Q
3 
R
0 
0 
0                   OPERATING SYSTEM =  NOS 2.8.7 871/871.   23/09/20. PRINTED = 24/05/08. 12.47.51.
0                   UJN          =  FTI1871     FAMILY    = CYBER         JOB ORIGIN    = INTERACTIVE.        
                    CREATING JSN =  AABP        USER NAME = INSTALL       SERVICE CLASS = INTERACTIVE.                  
                                                                                                              
0 
0 
       AAAAAAAAAA    AAAAAAAAAA    AAAAAAAAAA   IIIIIIIIIIII   AAAAAAAAAA    AAAAAAAAAA   BBBBBBBBBBB   RRRRRRRRRRR   
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA  IIIIIIIIIIII  AAAAAAAAAAAA  AAAAAAAAAAAA  BBBBBBBBBBBB  RRRRRRRRRRRR  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  RR        RR  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  RR        RR  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  RR        RR  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  RR        RR  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  RR        RR  
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA       II       AAAAAAAAAAAA  AAAAAAAAAAAA  BBBBBBBBBBBB  RRRRRRRRRRRR  
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA       II       AAAAAAAAAAAA  AAAAAAAAAAAA  BBBBBBBBBBB   RRRRRRRRRRR   
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  RR  RR        
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  RR   RR       
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  RR    RR      
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  RR     RR     
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  RR      RR    
      AA        AA  AA        AA  AA        AA  IIIIIIIIIIII  AA        AA  AA        AA  BBBBBBBBBBBB  RR       RR   
      AA        AA  AA        AA  AA        AA  IIIIIIIIIIII  AA        AA  AA        AA  BBBBBBBBBBB   RR        RR  
Q
T
2  MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
   WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMW
   MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
   WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMW
   MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
S
2 
R
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE   1    
  
0       
  
1UNLABELED OLDPL                  CORRECTION IDENTIFIERS              UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE   2    
  
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/08. 12.46.07.      PAGE   3    
  
          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/08. 12.46.07.      PAGE   4    
  
          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       
  
  THIS UPDATE REQUIRED  62200B WORDS OF MEMORY. 
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE   5    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - YANK$$$ 
  
          IDENTIFIER               TOTAL    ACTIVE
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY  *COMDECK HISTORY                                                                 HISTORY        1     A     
 HISTORY  L393     ***                                                                     L393           1     A     
 HISTORY   FCC0218  PREVENT IXFN/S INVENTED BY LISTIO FROM RESULTING IN ANSI WARNI         FCC0218        1     A     
 HISTORY            IMPROVE WORDING OF NON-ANSI SUBSCRIPT DIAGNOSTIC.                      FCC0218        2     A     
 HISTORY            MAH    74/09/19    APPLIES TO FTN VERSION 4.3 .                        FCC0218        3     A     
 HISTORY                                                                                   FCC0218        4     A     
 HISTORY   FCC0220  FIXES INTERMITTENT FAILURE TO SUPPRESS DEBUG-MODE OBJECT               FCC0220        1     A     
 HISTORY            CODE GENERATION (UNAMBIGUOUS CODE CANNOT BE GENERATED WHEN             FCC0220        2     A     
 HISTORY            CERTAIN FATAL ERRORS EXIST).  CORRECTS RELATED PROBLEM OF              FCC0220        3     A     
 HISTORY            SPORADIC LISTING OF *DEBUG EXECUTION SUPPRESSED* DIAGNOSTIC.           FCC0220        4     A     
 HISTORY            BOTH PROBLEMS WERE CAUSED BY MUDDLED USAGE OF *NOGOFLG* AND            FCC0220        5     A     
 HISTORY            *P2NOGO* CONTROL FLAGS.                                                FCC0220        6     A     
 HISTORY            DCD    74/09/23    APPLIES TO FTN 4.3.                                 FCC0220        7     A     
 HISTORY                                                                                   FCC0220        8     A     
 HISTORY   FCC0385  DIAGNOSE A(LEVEL3) AND ALLOW LOCF(LEVEL3)                              FCC0385        1     A     
 HISTORY            MAH    74/09/16    APPLIES TO FTN 4.3 .                                FCC0385        2     A     
 HISTORY                                                                                   FCC0385        3     A     
 HISTORY   FCC0389  SET VAR BIT FOR ENTITIES IN NAMELIST LIST.                             FCC0389        1     A     
 HISTORY            MAH    74/09/18    APPLIES TO FTN VERSION 4.3 .                        FCC0389        2     A     
 HISTORY                                                                                   FCC0389        3     A     
 HISTORY   FCC0390  ALLOW LEVEL 3 VARIABLES IN EQUIVALENCE.                                FCC0390        1     A     
 HISTORY            MAH    74/09/18    APPLIES TO FTN  VERSION 4.3 .                       FCC0390        2     A     
 HISTORY                                                                                   FCC0390        3     A     
 HISTORY   FCC0391  REMOVE SPURIOUS MODE ERRORS IN OPT=2 WHEN ECS/LCM WAS USED             FCC0391        1     A     
 HISTORY            AND PROGRAM TEXT OVERFLOWED IT AND CAUSED A GARBAGE COLLECTION         FCC0391        2     A     
 HISTORY            RELOAD *BIT* ENTRY CONTAINING THE RANDOM ADDRESS AFTER CALLING         FCC0391        3     A     
 HISTORY            *ASB*                                                                  FCC0391        4     A     
 HISTORY            SIJ    74/09/20    APPLIES TO FTN 4.3 ONLY.                            FCC0391        5     A     
 HISTORY                                                                                   FCC0391        6     A     
 HISTORY   FCC0392  CORRECT LOSS OF USE/DEF INFORMATION AND SUBSEQUENT LOSS OF STO         FCC0392        1     A     
 HISTORY            THAT ARE LIVE ON EXIT IN OPT=2 BECAUSE OF A REGISTER ERROR IN          FCC0392        2     A     
 HISTORY            GPO.                                                                   FCC0392        3     A     
 HISTORY            FIX INCORRECT/SUBOPTIMAL HANDLING OF LOOPS THAT EXIT TO THE            FCC0392        4     A     
 HISTORY            HEADER NODE OF ANOTHER LOOP BY REPLACING REFERENCES TO THE             FCC0392        5     A     
 HISTORY            HEADER NODE WITH THE HOLDING BLOCK OF THE LOOP.                        FCC0392        6     A     
 HISTORY            SIJ    74/09/18    APPLIES TO FTN 4.3 .                                FCC0392        7     A     
 HISTORY                                                                                   FCC0392        8     A     
 HISTORY   FCC0393  FIX MISCELLANEOUS BUGS IN MCG/JAM THAT OCCURED BECAUSE                 FCC0393        1     A     
 HISTORY            THE *PS* BIT WAS NOT BEING CLEARED PROPERLY, OR SET IN THE             FCC0393        2     A     
 HISTORY            CASE OF DEFS.                                                          FCC0393        3     A     
 HISTORY            SIJ    74/09/18    APPLIES TO FTN 4.3 .                                FCC0393        4     A     
 HISTORY                                                                                   FCC0393        5     A     
 HISTORY   FCC0394  CORRECT LOSS OF INDEX IN ARRAY REFERENCE RESULTING FROM ASF            FCC0394        1     A     
 HISTORY            EXPANSION IN I/O LIST.                                                 FCC0394        2     A     
 HISTORY            MAH    74/10/01    APPLIES TO FTN VESION 4.3 .                         FCC0394        3     A     
 HISTORY                                                                                   FCC0394        4     A     
 HISTORY   FCC0408  CORRECTLY OPTIMIZE LOOPS THAT ARE ENTERED BY A JUMP TO                 FCC0408        1     A     
 HISTORY            THE BEGINNING OF THE LOOP, AND THE LOOP CONTAINS A BLOCK THAT          FCC0408        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE   6    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            INTO THE BEGINNING OF IT BY PHYSICALLY PLACING THE PROLOUGE            FCC0408        3     A     
 HISTORY            CODE AT THE END OF THE PROGRAM.                                        FCC0408        4     A     
 HISTORY             SIJ   74/10/04    APPLIES TO FTN 4.3 ONLY, IN OPT=2 ONLY.             FCC0408        5     A     
 HISTORY                                                                                   FCC0408        6     A     
 HISTORY   FCC0413  PREVENT LOSS OF STORE PRECEDING ENCODE IN OPT=2.                       FCC0413        1     A     
 HISTORY            FILE *DEF* OF *V* AFTER *USES* OF LIST IN ENCODE                       FCC0413        2     A     
 HISTORY            STATEMENT, AS THAT IS THE LOGICAL ORDER.                               FCC0413        3     A     
 HISTORY            MAH    74/10/02    APPLIES TO FTN VERSION 4.3 .                        FCC0413        4     A     
 HISTORY                                                                                   FCC0413        5     A     
 HISTORY   FCC0414  FIX BUGS IN OPT=2 OUTER LOOP REG ASSIGNMENT.                           FCC0414        1     A     
 HISTORY            SIJ    74/10/01    APPLIES TO FTN 4.3 ONLY.                            FCC0414        2     A     
 HISTORY                                                                                   FCC0414        3     A     
 HISTORY   FCC0415  INFINITE LOOP IN COMPILER IN OPT=1 WHEN OPTIMIZING A *DO* LOOP         FCC0415        1     A     
 HISTORY            WITH MANY LEVEL 2 REFERENCES ON THE 7000.                              FCC0415        2     A     
 HISTORY            SJP - 10/11/74 - APPLIES TO FTN 4.3 ONLY                               FCC0415        3     A     
 HISTORY                                                                                   FCC0415        4     A     
 HISTORY  L397     ***                                                                     L397           1     A     
 HISTORY   FCC0407  DIAGNOSE ATTEMPT TO REFERENCE ASF, BEF OR INTRINSIC AS                 FCC0407        1     A     
 HISTORY            SUBROUTINE.                                                            FCC0407        2     A     
 HISTORY            MAH    74/10/02    APPLIES TO FTN 4.3 .                                FCC0407        3     A     
 HISTORY                                                                                   FCC0407        4     A     
 HISTORY   FCC0412  ENSURE MULTIPLY BY 1 OF LCM QUANTITY IS NOT REDUCED IN ARGUMEN         FCC0412        1     A     
 HISTORY            LIST.                                                                  FCC0412        2     A     
 HISTORY            MAH    74/10/07    APPLIES TO FTN 4.3 .                                FCC0412        3     A     
 HISTORY                                                                                   FCC0412        4     A     
 HISTORY   FCC0418  REMOVE GARBAGE FROM *DETAILS* FIELD OF SEVERAL ERROR MESSAGES.         FCC0418        1     A     
 HISTORY            CLEAN UP CODE IN *CALL* STATEMENT PROCESSOR.                           FCC0418        2     A     
 HISTORY            REMOVE GARBAGE FROM *DATA* STMT ERROR MSG 106.                         FCC0418        3     A     
 HISTORY            DCD    74/10/02    APPLIES TO FTN 4.3.                                 FCC0418        4     A     
 HISTORY                                                                                   FCC0418        5     A     
 HISTORY   FCC0422  USE 60-BIT ARITHMETIC FOR COMPUTED-GO-TO PROTECT CODE.                 FCC0422        1     A     
 HISTORY            MAH    74/10/14    APPLIES TO FTN 4.3 .                                FCC0422        2     A     
 HISTORY   FCC0435  INITIALIZE STAPL CHAIN POINTER AT ENTRY TO ARITH.                      FCC0435        1     A     
 HISTORY            NEEDED FOR DEBUG PROCESSING.                                           FCC0435        2     A     
 HISTORY            ARS.   74/10/30    ARITH.                                              FCC0435        3     A     
 HISTORY                                                                                   FCC0435        4     A     
 HISTORY   FCC0441  THIS CODE MODIFIES THE COMDECK COMCRDW TO IGNORE LEVEL 1               FCC0441        1     A     
 HISTORY            END-OF-RECORDS ONLY IF THEY ARE RETURNED FROM A DEVICE TYPE            FCC0441        2     A     
 HISTORY            *TT* IN WHICH CASE THEY ARE KRONOS TERMINAL END-OF-LINE                FCC0441        3     A     
 HISTORY            MARKERS.                                                               FCC0441        4     A     
 HISTORY            THIS MODIFICATION IS INTENDED TO BE A TEMPORARY SOLUTION               FCC0441        5     A     
 HISTORY            UNTIL THE STANDARD SET OF KRONOS/SCOPE COMDECKS CAN BE                 FCC0441        6     A     
 HISTORY            PRODUCED.                                                              FCC0441        7     A     
 HISTORY            SJP    74/11/22    APPLIES TO FTN 4.3                                  FCC0441        8     A     
 HISTORY   FCC0446  THIS CODE CORRECTS ERROR MODE 1 IN TURNON WHILE PROCESSING             FCC0446        1     A     
 HISTORY            STORE(Q.VALID.) AT C$ OFF ENCOUNTER.                                   FCC0446        2     A     
 HISTORY            MAH    74/11/05    APPLIES TO FTN VERSION 4.3 .                        FCC0446        3     A     
 HISTORY                                                                                   FCC0446        4     A     
 HISTORY                                                                                   FCC0448        1     A     
 HISTORY   FCC0448  FIX MISCELLANEOUS OPT=2 BUGS DISCOVERED DURING TESTING                 FCC0448        2     A     
 HISTORY            SIJ    74/10/16    APPLIES TO FTN 4.3 , OPT=2 ONLY                     FCC0448        3     A     
 HISTORY                                                                                   FCC0448        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE   7    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCC0451  CORRECT BAD RELOCATION IN LCM=I MODE WITH NO LOCAL                     FCC0451        1     A     
 HISTORY            VARIABLES.                                                             FCC0451        2     A     
 HISTORY            MUST NOT ASSUME THAT DATA. = 0 MEANS NO LEVEL CELLS.                   FCC0451        3     A     
 HISTORY            MAH    74/12/06    APPLIES TO FTN 4.3 .                                FCC0451        4     A     
 HISTORY                                                                                   FCC0451        5     A     
 HISTORY   FCC0458  CLEAR COM,EQUIV TABLES IF *FC* ERROR WHILE PROCESSING                  FCC0458        1     A     
 HISTORY            DECLARATIVES SO REFMAP DOES/NT MODE OUT IF R=3.                        FCC0458        2     A     
 HISTORY            ARS.   74/11/13.   PS1CTL,REFMAP.                                      FCC0458        3     A     
 HISTORY                                                                                   FCC0458        4     A     
 HISTORY   FCC0475  WHEN OPT=0 AND TS WERE BOTH ON THE FTN CONTROL                         FCC0475        1     A     
 HISTORY            CARD TRACE MODE WAS INADVERTENTLY TURNED ON.                           FCC0475        2     A     
 HISTORY            THIS MOD FIXES THIS PROBLEM PLUS A SPELLING ERROR.                     FCC0475        3     A     
 HISTORY            DDM    11/20/74    APPLIES TO FTN 4.3                                  FCC0475        4     A     
 HISTORY                                                                                   FCC0475        5     A     
 HISTORY   FCC0476  DIAGNOSE APPEARENCE OF FUNCTION NAME IN DECLARATIVE.                   FCC0476        1     A     
 HISTORY            MAH    74/11/19    APPLIES TO FTN 4.3 .                                FCC0476        2     A     
 HISTORY                                                                                   FCC0476        3     A     
 HISTORY   FCC0477  CORRECT REGISTER ERROR IN DOPROC THAT PREVENTED REFERENCE TO           FCC0477        1     A     
 HISTORY            UNDEFINED LABEL FROM BEING DIAGNOSED IF PRECEDED BY AN INNER           FCC0477        2     A     
 HISTORY            LOOP WITH AN ENTRY AND AN EXIT.                                        FCC0477        3     A     
 HISTORY            MAH    11/20/74    APPLIES TO FTN VERSION 4.3 .                        FCC0477        4     A     
 HISTORY                                                                                   FCC0477        5     A     
 HISTORY   FCC0481  DIAGNOSE NON-ANSI TWO BRANCH IF STATEMENT.                             FCC0481        1     A     
 HISTORY            MAH    74/12/12    APPLIES TO FTN VERSION 4.3 .                        FCC0481        2     A     
 HISTORY                                                                                   FCC0481        3     A     
 HISTORY   FCC0490  CORRECTS PROCESSING OF HOLL. STRINGS IN FORMAT STMTS.                  FCC0490        1     A     
 HISTORY            AN INCORRECT ASSUMPTION WAS MADE THAT THE 99TH CHAR WAS                FCC0490        2     A     
 HISTORY            NON-ZERO IF AN E-O-S HAD NOT YET BEEN ENCOUNTERED.                     FCC0490        3     A     
 HISTORY            JLW    74/12/10    APPLIES TO FTN 4.4                                  FCC0490        4     A     
 HISTORY                                                                                   FCC0490        5     A     
 HISTORY   FCC0491  REMOVE UNNECESSARY INSTRUCTION (NORMALIZE) FROM DOUBLE ADD AND         FCC0491        1     A     
 HISTORY            SUBTRACT MACROS.                                                       FCC0491        2     A     
 HISTORY            MAH    74/12/09    APPLIES TO FTN VERSION 4.3  .                       FCC0491        3     A     
 HISTORY                                                                                   FCC0491        4     A     
 HISTORY   FCC0498  DIAGNOSES VARIOUS NON-ANSI CONDITIONS.                                 FCC0498        1     A     
 HISTORY            MRR    74/12/13    APPLIES TO FTN 4.3, TS.                             FCC0498        2     A     
 HISTORY                                                                                   FCC0498        3     A     
 HISTORY   FCC0499  ALLOWS FUNCTION DEFINITION VIA NAMELIST LIST.  SETS DEFINE BIT         FCC0499        1     A     
 HISTORY            ON WHEN VARIABLE APPEARS IN NAMELIST LIST AND READ LIST.               FCC0499        2     A     
 HISTORY            MRR    74/12/18    APPLIES TO FTN 4.3, TS.                             FCC0499        3     A     
 HISTORY                                                                                   FCC0499        4     A     
 HISTORY   FCC0502  MCG/CRA - LOGIC ERROR WHEN ALL REGS BUT X0 FILLED WITH RESULTS         FCC0502        1     A     
 HISTORY            THAT HAVENT BEEN USED, AND NEED TO ISSUE A *LD* INSTRUCTION.           FCC0502        2     A     
 HISTORY            SIJ    74/12/18    APPLIES TO FTN 4.3.                                 FCC0502        3     A     
 HISTORY                                                                                   FCC0502        4     A     
 HISTORY   FCC0504  CORRECT *TYPE ECS* DECLARATION TO PROPERLY DECLARE ECS RES.            FCC0504        1     A     
 HISTORY            INCUR *LEVEL* OVERHEAD IN PASS 2 ONLY IF LCM-RESIDENT                  FCC0504        2     A     
 HISTORY            SYMBOLS HAVE BEEN DECLARED.                                            FCC0504        3     A     
 HISTORY            MAH    74/12/17    APPLIES TO FTN 4.3 .                                FCC0504        4     A     
 HISTORY                                                                                   FCC0504        5     A     
 HISTORY   FCC0506  PREVENT LOSS OF RELOCATION OF APLISTS DUE TO GENERATED                 FCC0506        1     A     
 HISTORY            LABEL AT CODE.-RELATIVE ADDRESS ZERO.                                  FCC0506        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE   8    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            MAH    74/12/18    APPLIES TO FTN 4.3 .                                FCC0506        3     A     
 HISTORY                                                                                   FCC0506        4     A     
 HISTORY   FCC0508  CHECK FOR NOT-DEF INSTRUCTION BEING MODIFIED BY AIS.                   FCC0508        1     A     
 HISTORY            MAH    74/12/20    APPLIES TO FTN 4.3 .                                FCC0508        2     A     
 HISTORY                                                                                   FCC0508        3     A     
 HISTORY   FCC0509  GPO/AUV - CHANGE ALGORITHM FOR ADJUSTING USE VECTOR SO WE DONT         FCC0509        1     A     
 HISTORY            CLEAR BITS FOR THE CLASS MEMBERS IF THERE WAS NO ST/LD SQUEEZI         FCC0509        2     A     
 HISTORY            IN *SQZ*                                                               FCC0509        3     A     
 HISTORY            SIJ - 12/30/74 - APPLIES TO FTN 4.3 , OPT=2 ONLY.                      FCC0509        4     A     
 HISTORY                                                                                   FCC0509        5     A     
 HISTORY   FCC0513  GRA/ERC - DONT REVERSE SIGN OF CON WHEN MOVED OUT OF 2 LOOPS           FCC0513        1     A     
 HISTORY            SIJ    74/12/30    APPLIES TO FTN 4.3.                                 FCC0513        2     A     
 HISTORY                                                                                   FCC0513        3     A     
 HISTORY   FCC0517  CORRECT LOSS OF TYPE FOR CERTAIN VARIABLES FIRST                       FCC0517        1     A     
 HISTORY            APPEARING IN A DEBUG DIRECTIVE.                                        FCC0517        2     A     
 HISTORY            MAH    75/1/07     APPLIES TO FTN VERSION 4.3.                         FCC0517        3     A     
 HISTORY   FCC0518  FTN MINIMUM FIELD LENGTH IN TS MODE WAS TOO SMALL. IT HAS BEEN         FCC0518        1     A     
 HISTORY            CHANGED TO 40K.                                                        FCC0518        2     A     
 HISTORY            DDM    01/02/75    APPLIES TO FTN 4.3                                  FCC0518        3     A     
 HISTORY   FCC0519  FORCE MODE CONVERSION WITH MODELESS CONSTANTS AND DOUBLE OR            FCC0519        1     A     
 HISTORY            COMPLEX VALUES.                                                        FCC0519        2     A     
 HISTORY            MRR    74/12/30    APPLIES TO FTN 4.3, TS.                             FCC0519        3     A     
 HISTORY   FCC0520  DUPLICATE FILE NAMES ON THE PROGRAM CARD CAUSED COMPILER               FCC0520        1     A     
 HISTORY            ERROR.                                                                 FCC0520        2     A     
 HISTORY            MRR    74/12/31    APPLIES TO FTN 4.3, TS.                             FCC0520        3     A     
 HISTORY   FCC0521  TYPE DECLARATION OF A STATEMENT FUNCTION CAUSED A SPURIOUS             FCC0521        1     A     
 HISTORY            WARNING DIAGNOSTIC.                                                    FCC0521        2     A     
 HISTORY            MRR    74/12/31    APPLIES TO FTN 4.3, TS.                             FCC0521        3     A     
 HISTORY            CORRECT HANDLING OF REDUNDANT PARENS IN DATA LIST.                     FCC0522        1     A     
 HISTORY            MAH    75/01/03    APPLIES TO FTN 4.3 (INCLUDING TS)                   FCC0522        2     A     
 HISTORY                                                                                   FCC0522        3     A     
 HISTORY   FCC0534  THE FINAL WRITE FLAG SHOULD NOT BE SET FOR OPT=1.                      FCC0534        1     A     
 HISTORY            SJP    75/01/23    APPLIES TO FTN 4.3                                  FCC0534        2     A     
 HISTORY                                                                                   FCC0534        3     A     
 HISTORY   FEAT79BZ RECOGNIZE SINH AND COSH AS BASIC EXTERNAL FUNCTIONS.                   FEAT79BZ       1     A     
 HISTORY            MRR    75/01/15    APPLIES TO FTN 4.4.                                 FEAT79BZ       2     A     
 HISTORY                                                                                   FEAT79BZ       3     A     
 HISTORY   FEAT121A ADD *UO* OPTION TO *FTN* TO PERFORM *UNSAFE OPTIMIZATIONS*             FEAT121A       1     A     
 HISTORY            IF OPT=2 AND *UO* SELECTED.                                            FEAT121A       2     A     
 HISTORY            EXTRA OPTIMIZATIONS PERFORMED ARE -                                    FEAT121A       3     A     
 HISTORY            B-REGISTERS ARE ASSUMED TO BE PRESERVED BY SOME OF THE LIBRARY         FEAT121A       4     A     
 HISTORY            FUNCTIONS ( SIN,COS,SQRT, EXP, ETC ) AND WILL BE USED IN               FEAT121A       5     A     
 HISTORY            INNERMOST LOOPS WHERE POSSIBLE.                                        FEAT121A       6     A     
 HISTORY            UNCONDITIONAL PREFETCHING WITHOUT REGARD TO SAFTY CONSIDERATIO         FEAT121A       7     A     
 HISTORY                                                                                   FEAT121A       8     A     
 HISTORY   FEAT121L TO PROVIDE INTERSPERSED COMPILE TIME CONTROL OVER SOURCE               FEAT121L       1     A     
 HISTORY            LISTING, REFERENCE MAP, AND OBJECT LIST.                               FEAT121L       2     A     
 HISTORY            PC     74/01/06    APPLIES TO FTN 4.4.                                 FEAT121L       3     A     
 HISTORY   FEAT123A MUST BE INSTALLED IN CONJUNCTION WITH FCL IDENT FEAT123B.              FEAT123A       1     A     
 HISTORY            REMOVE APLIST ITEM COUNT PROTECT CODE FROM MACROS.                     FEAT123A       2     A     
 HISTORY            MAH    74/09/17    APPLIES TO FTN 4.3 .                                FEAT123A       3     A     
 HISTORY                                                                                   FEAT123A       4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE   9    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY  L401     ***                                                                     L401           1     A     
 HISTORY   FCC0493  DUPLICATE NAME IN COMMON STATEMENT CAUSED BAD COMTAB AND SYM-          FCC0493        1     A     
 HISTORY            TAB ENTRIES. NEW CODE IGNORES DUPLICATE NAMES. IF ALL NAMES IN         FCC0493        2     A     
 HISTORY            A LIST ARE BAD, COMTAB LINK IS BROKEN BY SCF. CHECK FOR                FCC0493        3     A     
 HISTORY            FUNCTION NAME IS DELETED AS REDUNDANT.                                 FCC0493        4     A     
 HISTORY            ACA    75/01/02    APPLIES TO FTN 4.3                                  FCC0493        5     A     
 HISTORY   FCC0511  SUPPRESSES EXTRANEOUS ERROR MESSAGE FOR = SPECIFIED AS FIELD           FCC0511        1     A     
 HISTORY            WIDTH IN A FORMAT STATEMENT.                                           FCC0511        2     A     
 HISTORY            JLW    75/01/14    APPLIES TO FTN4.3                                   FCC0511        3     A     
 HISTORY   FCC0514  FIX PROBLEMS ASSOCIATED WITH USES EXTENDING PAST A REDEF.              FCC0514        1     A     
 HISTORY            ALLOW GENERAL REARRANGEMENT OF SEQUENCES IN *RIO*.                     FCC0514        2     A     
 HISTORY            SIJ    75/02/25    APPLIES TO FTN 4.3, OPT=2 ONLY.                     FCC0514        3     A     
 HISTORY                                                                                   FCC0514        4     A     
 HISTORY   FCC0524  FIX REFMAP FOR *SYSEDIT* COMPILATION.                                  FCC0524        1     A     
 HISTORY            LLB    75/01/14                                                        FCC0524        2     A     
 HISTORY   FCC0525  SUPPRESS EXTRANEOUS NON-ANSI DIAGNOSTIC GIVEN FOR A FORMAT             FCC0525        1     A     
 HISTORY            STMT.  IT WAS CAUSED BY A HOLLERITH CONSTANT FOLLOWED BY A             FCC0525        2     A     
 HISTORY            BLANK AND THEN AN ANSI SEPARATOR.                                      FCC0525        3     A     
 HISTORY            JLW    75/01/15    APPLIES TO FTN4.3                                   FCC0525        4     A     
 HISTORY   FCC0527  CORRECT ERRONEOUS CHECK FOR COMMON BLOCK LENGTH.                       FCC0527        1     A     
 HISTORY            ARS.   75/01/13.   DPCLOSE.                                            FCC0527        2     A     
 HISTORY                                                                                   FCC0527        3     A     
 HISTORY   FCC0529  CORRECT DIAGNOSTICS ISSUING FOR FORMAT DECLARATION OF AN I/O           FCC0529        1     A     
 HISTORY            STMT.                                                                  FCC0529        2     A     
 HISTORY            JLW    75/01/20    APPLIES TO FTN 4.3                                  FCC0529        3     A     
 HISTORY   FCC0535  MARK INCREMENT VALUES AS *LX* IN GRA/SEE TO PREVENT THEIR              FCC0535        1     A     
 HISTORY            BEING BIASED BY AN ADDRESS IN GRA/MFA.                                 FCC0535        2     A     
 HISTORY            SIJ - 1/23/75 APPLIES TO FTN 4.3 OPT=1 AND 2                           FCC0535        3     A     
 HISTORY                                                                                   FCC0535        4     A     
 HISTORY   FCC0544  I/O LOOPS WITH DIMENSIONS THAT HAVE THE SAME BASE AS THE               FCC0544        1     A     
 HISTORY            ARRAY NAME OR PREVIOUS DIMENSIONS WILL NOT BE COLLAPSED.               FCC0544        2     A     
 HISTORY            JLW    75/02/10    APPLIES TO FTN 4.3                                  FCC0544        3     A     
 HISTORY   FCC0558  HOLLERITH TYPE EXPRESSION MODE IN AN ARITHMETIC IF IS TURNED           FCC0558        1     A     
 HISTORY            INTO TYPE INTEGER.  THIS TO ENABLE CORRECT SEARCH IN IFTABLE.          FCC0558        2     A     
 HISTORY            THIRD LABEL IS CORRECTLY SET FOR TWO BRANCH LOGICAL IF.  ARTI-         FCC0558        3     A     
 HISTORY            FICIAL LABEL IS NEEDED FOR IFTABLE.                                    FCC0558        4     A     
 HISTORY            JLW    75/02/24    APPLIES TO FTN 4.3                                  FCC0558        5     A     
 HISTORY   FCC0564  CORRECTLY CHECK FOR STAND-ALONE HOLL CONST IN I/O LIST.                FCC0564        1     A     
 HISTORY            FORCE ARLIST TO BE GENERATED FOR A HOLLERITH CONSTANT LOAD             FCC0564        2     A     
 HISTORY            IF THE CONSTANT IS IN AN I/O LIST.  THIS IS NECESSARY FOR              FCC0564        3     A     
 HISTORY            HOLL CONSTANTS THAT RESULT FROM AN ASF EXPANSION EVEN IF THE           FCC0564        4     A     
 HISTORY            CONSTANT IS STAND-ALONE.  THIS IS DUE TO THE ASSUMPTION IN             FCC0564        5     A     
 HISTORY            ASF PROCESSING THAT THERE IS AN ARLIST TO WORK WITH.  BEFORE           FCC0564        6     A     
 HISTORY            RETURNING TO THE I/O PROCESSOR, THE LOAD WOULD BE NO-OPED              FCC0564        7     A     
 HISTORY            SINCE ONLY THE BASE AND BIAS OF THE CONSTANT IS NEEDED TO              FCC0564        8     A     
 HISTORY            GENERATE THE APLIST.                                                   FCC0564        9     A     
 HISTORY            JLW    75/02/24    APPLIES TO FTN 4.3                                  FCC0564       10     A     
 HISTORY   FCC0569  CORRECTS AN INCORRECT SYNTAX TABLE ENTRY THAT DISALLOWED               FCC0569        1     A     
 HISTORY            CONSTANTS PREFIXED WITH + - . OR LITERALS TO APPEAR AS                 FCC0569        2     A     
 HISTORY            THE FIRST ITEM TO BE ENCODED IN AN ENCODE STATEMENT.                   FCC0569        3     A     
 HISTORY            PC     75/02/10    APPLIES TO FTN 4.3.                                 FCC0569        4     A     
 HISTORY   FCC0574  CORRECT PRINTOUT OF LCM LBLED COM LEN WHEN .GT. 777 777B               FCC0574        1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  10    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            SIJ    75/02/26    APPLIES TO FTN 4.3                                  FCC0574        2     A     
 HISTORY                                                                                   FCC0574        3     A     
 HISTORY   FCC0584  MCG/JAM - ALWAYS ISSUE T0 IN *UJR* SO WE DONT BYPASS IT IN             FCC0584        1     A     
 HISTORY            CASE OF A PARCEL FAULT IN *SNI*.                                       FCC0584        2     A     
 HISTORY            SIJ - 3/5/75 APPLIES TO FTN 4.3                                        FCC0584        3     A     
 HISTORY                                                                                   FCC0584        4     A     
 HISTORY   FCC0586  AIS - DO NOT CONSIDER CANIDATES FOR B-REGS IF THEY                     FCC0586        1     A     
 HISTORY            PRECEED A *RS*,RJRS OR ARE RESULT OF A *DEF*                           FCC0586        2     A     
 HISTORY                                                                                   FCC0586        3     A     
 HISTORY   FCC0588  SQZ - DELETE OPT=2 *EOS"S* FROM SEQUENCE IF PREVIOUS INST IS           FCC0588        1     A     
 HISTORY            NOT A BOUNDARY MARKER                                                  FCC0588        2     A     
 HISTORY            SIJ - 3/12/75                                                          FCC0588        3     A     
 HISTORY                                                                                   FCC0588        4     A     
 HISTORY   FCC0590  RESET ALC.REG TO ALC.00 AT BEGINNING OF EACH STATEMENT.                FCC0590        1     A     
 HISTORY            OTHERWISE, IN CASE OF ERRORS, IT IS LEFT POINTING TO SOME              FCC0590        2     A     
 HISTORY            B-REGISTER AND SOME TABLE, CAUSING UNPREDICTABLE WIERD                 FCC0590        3     A     
 HISTORY            RESULTS IN SUBSEQUENT PROGRAM UNITS.                                   FCC0590        4     A     
 HISTORY            LJM    75/03/12    APPLIES TO FTN 4.4 - DECK MAIN                      FCC0590        5     A     
 HISTORY                                                                                   FCC0590        6     A     
 HISTORY  L406     ***                                                                     L406           1     A     
 HISTORY   FCC0400  CORRECT ALGORITHM TO IGNORE LEADING ZEROS AND INCORPORATE              FCC0400        1     A     
 HISTORY            REAL CONVERSION ALGORITHM COMPATIBLE WITH FCL. REWRITE.                FCC0400        2     A     
 HISTORY            L.D.HARE     4/8/75                                                    FCC0400        3     A     
 HISTORY                                                                                   FCC0400        4     A     
 HISTORY   FCC0396  IN THE TWO PASS COMPILER...WHEN THE RIGHT HAND SIDE OF THE             FCC0396        1     A     
 HISTORY            EQUAL SIGN IN AN ARITHMETIC FUNCTION STATEMENT IS UNDEFINED,           FCC0396        2     A     
 HISTORY            THE COMPILER ABORTS WITH MODE ERROR.  CORRECTIVE CODE ISSUES           FCC0396        3     A     
 HISTORY            DIAGNOSTIC... SYNTAX ERROR IN ASF STATEMENT.                           FCC0396        4     A     
 HISTORY            IN THE TS COMPILER... WHEN THE RIGHT HAND SIDE OF THE EQUAL            FCC0396        5     A     
 HISTORY            SIGN IN AN ARITHMETIC FUNCTION STATEMENT IS UNDEFINED, THE             FCC0396        6     A     
 HISTORY            COMPILER ABORTS WITH MODE ERROR AFTER COMPILING THE FOLLOWING          FCC0396        7     A     
 HISTORY            PROGRAM UNIT.  CORRECTIVE CODE ALLOWS ASF PROCESSOR TO                 FCC0396        8     A     
 HISTORY            CORRECTLY DIAGNOSE THE ABSENCE OF RIGHT HAND SIDE AND ISSUE            FCC0396        9     A     
 HISTORY            THE DIAGNOSTIC.... STATEMENT FUNCTION HAS NULL DEFINITION--,           FCC0396       10     A     
 HISTORY            IGNORED.                                                               FCC0396       11     A     
 HISTORY            ADDITIONALLY, IN THE TS COMPILER, IF A DOUBLY DEFINED DUMMY            FCC0396       12     A     
 HISTORY            ARGUMENT OCCURS, THE DIAGNOSTIC MESSAGE IS INCORRECTLY OUTPUT          FCC0396       13     A     
 HISTORY            AS ...DUMMY ARGUMENT 5...  .  THE CORRECTIVE CODE ALLOWS               FCC0396       14     A     
 HISTORY            THE FULL CORRECT DIAGNOSTIC MESSAGE FOR DOUBLY DEFINED  TO BE          FCC0396       15     A     
 HISTORY            OUTPUT.                                                                FCC0396       16     A     
 HISTORY            ERH    75/4/8      APPLIES TO FTN4.3                                   FCC0396       17     A     
 HISTORY                                                                                   FCC0396       18     A     
 HISTORY                                                                                   FCC0458A       1     A     
 HISTORY   FCC0458A RESET B1. INSTRUCTION LEFT OUT OF ORIGINAL FCC0458.                    FCC0458A       2     A     
 HISTORY            ARS    APPLIES TO FTN 4.4      REFMAP                                  FCC0458A       3     A     
 HISTORY   FCC0537    INCLUDE IN *DATA* AN INF. DIAGNOSTIC FOR HOLLERITH CONSTANTS         FCC0537        1     A     
 HISTORY            .GT. 10  CHARACTERS THAT ARE INITIALIZED INTO SUCCEEDING WORDS         FCC0537        2     A     
 HISTORY            WITHOUT TRUNCATION. MODIFY *DATA* DIAGNOSTIC OUTPUT FOR DETAIL         FCC0537        3     A     
 HISTORY            FIELD IMPROVEMENT. FOR TS COMPATIBILITY, CHANGE DIAGNOSTIC             FCC0537        4     A     
 HISTORY            FORMAT TO REFLECT HOLLERITH INITIALIZATION POSSIBILITY.                FCC0537        5     A     
 HISTORY            LDH    75/11/2                                                         FCC0537        6     A     
 HISTORY                                                                                   FCC0537        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  11    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCC0539  DIAGNOSE INTEGER CONSTANTS GREATER THAN 2**48-1.  (WHEN THEY           FCC0539        1     A     
 HISTORY            ARE USED AS OPERANDS OF * OR /.)                                       FCC0539        2     A     
 HISTORY            JLW    75/02/03    APPLIES TO FTN 4.3                                  FCC0539        3     A     
 HISTORY   FCC0539  MODIFICATION OF *CONRED* TO INCLUDE DIAGNOSIS OF INTEGERS              FCC0539        4     A     
 HISTORY            .GT. 2**48-1 INVOLVED IN MULTIPLICATION, DIVIDE OR OPERATIONS          FCC0539        5     A     
 HISTORY            WITH REAL VARIABLES. MODIFICATION ALSO TO *PAR* FOR                    FCC0539        6     A     
 HISTORY            IMPROVEMENT OF COMPILE TIME ARITHMETIC.                                FCC0539        7     A     
 HISTORY            LDH    75/3/3                                                          FCC0539        8     A     
 HISTORY                                                                                   FCC0539        9     A     
 HISTORY   FCC0556  MOVE TEST FOR EXCESSIVE SCM REQUIREMENT SUCH THAT TEST IS              FCC0556        1     A     
 HISTORY            MADE IF R=0 OR L=0 IS SELECTED.                                        FCC0556        2     A     
 HISTORY            ARS    75/03/03    APPLIES TO FTN 4.3                                  FCC0556        3     A     
 HISTORY                                                                                   FCC0556        4     A     
 HISTORY   FCC0570  CONSTANT DIVISORS WILL NOT BE INVERTED IF DIVIDEND IS                  FCC0570        1     A     
 HISTORY            TYPE DOUBLE                                                            FCC0570        2     A     
 HISTORY            JLW    75/03/25    APPLIES TO FTN4.3                                   FCC0570        3     A     
 HISTORY                                                                                   FCC0570        4     A     
 HISTORY   FCC0575  SAVE A6 BEFORE ISSUING ANSI DIAGNOSTIC FOR TWO BARNCH IF               FCC0575        1     A     
 HISTORY            MRR    75/02/28    APPLIES TO FTN 4.4 (TS ONLY).                       FCC0575        2     A     
 HISTORY                                                                                   FCC0575        3     A     
 HISTORY   FCC0579  DO NOT ENTER LOOP IN DOTAB IF LABEL WAS PREVIOUSLY DEFINED.            FCC0579        1     A     
 HISTORY            THIS AVOIDS A MULTITUDE OF SPURIOUS DIAGNOSTICS.                       FCC0579        2     A     
 HISTORY            MAH    75/3/10     APPLIES TO FTN 4.3 .                                FCC0579        3     A     
 HISTORY                                                                                   FCC0579        4     A     
 HISTORY   FCC0583  STOP OUTPUTTING BLANK COMMON TO THE PIDL TABLE WHEN IT DOESNT          FCC0583        1     A     
 HISTORY            EXIST.                                                                 FCC0583        2     A     
 HISTORY            MRR    75/04/14    APPLIES TO FTN 4.4, TS.                             FCC0583        3     A     
 HISTORY                                                                                   FCC0583        4     A     
 HISTORY   FCC0585  OUTPUT FATAL DIAGNOSTIC FOR ILLEGAL USE OF ENTRY POINT.                FCC0585        1     A     
 HISTORY            MRR    75/03/06    APPLIES TO FTN 4.4, TS.                             FCC0585        2     A     
 HISTORY                                                                                   FCC0585        3     A     
 HISTORY   FCC0589  CORRECTS PROBLEM OF F.P. USED AS MODE INDICATOR OR FWA IN              FCC0589        1     A     
 HISTORY            BUFFER I/O.  ALSO REMOVES PROCESSING FOR IOFMT AND IOSTL.              FCC0589        2     A     
 HISTORY            ALLOWS V TO BE SPECIFIED AS X OR P IN A FORMAT STMT.                   FCC0589        3     A     
 HISTORY            JLW    75/03/12    APPLIES TO FTN 4.3, TS                              FCC0589        4     A     
 HISTORY                                                                                   FCC0589        5     A     
 HISTORY   FCC0593  DIAGNOSE AS INFORMATIVE RATHER THAN FATAL IF FWA AND LWA ARE           FCC0593        1     A     
 HISTORY            ARE NOT IN SAME ARRAY, EQUIV CLASS, OR COMMON BLOCK.                   FCC0593        2     A     
 HISTORY            MRR    75/04/04    APPLIES TO FTN 4.4, TS.                             FCC0593        3     A     
 HISTORY            JLW    75/04/03    APPLIES TO FTN 4.4                                  FCC0593        4     A     
 HISTORY                                                                                   FCC0593        5     A     
 HISTORY   FCC0594  GRA/SCT - CHECK FOR SAME CANDIDATE TYPE WHEN SEARCHING FOR             FCC0594        1     A     
 HISTORY            A MATCH IN *RCT* SO AS TO AVOID INCORRECT CODE IN OUTER LPS.           FCC0594        2     A     
 HISTORY            SIJ - 3/22/75 - APPLIES TO FTN 4.3, OPT=2                              FCC0594        3     A     
 HISTORY                                                                                   FCC0594        4     A     
 HISTORY   FCC0596  MODIFY LOOP TEST WHEN OUTPUTTING FORMAT CONSTANTS.                     FCC0596        1     A     
 HISTORY            MRR    75/03/19    APPLIES TO FTN 4.4, TS.                             FCC0596        2     A     
 HISTORY                                                                                   FCC0596        3     A     
 HISTORY   FCC0597  CORRECT MODE ERRORS AND OUTPUT OF BAD ERRORS DUE TO LACK OF            FCC0597        1     A     
 HISTORY            SYNTAX CHECKING FOR BUFFER I/O STMTS. REMOVE PROCESSING OF             FCC0597        2     A     
 HISTORY            DFLAG AND ASSOCIATED CODE.                                             FCC0597        3     A     
 HISTORY            JLW    75/03/18    APPLIES TO FTN4.3, TS OPTION                        FCC0597        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  12    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FCC0597        5     A     
 HISTORY   FCC0599  PREVENT SPURIOUS DIAGNOSTICS FOR UNMODIFIED ARRAY NAME IN I/O          FCC0599        1     A     
 HISTORY            LISTS FOLLOWING BUFFER I/O STATMENT.                                   FCC0599        2     A     
 HISTORY            MAH    75/3/21     APPLIES TO FTN 4.3 .                                FCC0599        3     A     
 HISTORY                                                                                   FCC0599        4     A     
 HISTORY   FCC0603  DONT ASSIGN CANDIDATE TO AN A-REGISTER IF INCREMENT OF                 FCC0603        1     A     
 HISTORY            SUBSCRIPT OCCURS ON A SIDE BRANCH, SINCE POST FETCH FOR NEXT           FCC0603        2     A     
 HISTORY            ITERATION IS ASSOCIATED WITH THE LOOP BACK JUMP.                       FCC0603        3     A     
 HISTORY            GRA & MCG - FREE UP X-REG OF A-CANIDATE WHEN USES=0 SO AS TO           FCC0603        4     A     
 HISTORY            AVOID JAMS, AND IMPROVE QUALITY OF CODE IN INNER LOOPS.                FCC0603        5     A     
 HISTORY            SIJ - 3/26/75 - APPLIES TO FTN 4.3, OPT=2                              FCC0603        6     A     
 HISTORY                                                                                   FCC0603        7     A     
 HISTORY   FCC0611  CLEAR *IXFNCL* IN ERROUT AND *ACALL* IN INITR IN ARITH.                FCC0611        1     A     
 HISTORY            THIS INSURES PROPER INITIALIZATION OF *CALL* AND *LISTIO*              FCC0611        2     A     
 HISTORY            LINKAGES FOR FUTURE ARITH INVOCATIONS FOLLOWING PARSER ABORT.          FCC0611        3     A     
 HISTORY            MAH    75/4/4      APPLIES TO FTN VERSION 4.4 .                        FCC0611        4     A     
 HISTORY                                                                                   FCC0611        5     A     
 HISTORY   FCC0612  GPO/RDD - BLOCKS THAT TERMINATE WITH A COMPUTED GOTO ARE NOT           FCC0612        1     A     
 HISTORY            SEARCHED FOR DEAD DEFINITIONS.                                         FCC0612        2     A     
 HISTORY            SJP    75/04/03    APPLIES TO FTN 4.3  (OPT=2)                         FCC0612        3     A     
 HISTORY                                                                                   FCC0612        4     A     
 HISTORY   FCC0613  BDT/RIO - DO NOT ADD ST TO ST-PRED CHAIN IF RI IS A DEF AND            FCC0613        1     A     
 HISTORY            RF IS AN EXPRESSION SINCE SIO MAY FOUL UP IF REDEF LINKS               FCC0613        2     A     
 HISTORY            ARE PRESENT.                                                           FCC0613        3     A     
 HISTORY            SIJ - 4/2/75 - APPLIES TO FTN 4.4, OPT=2                               FCC0613        4     A     
 HISTORY                                                                                   FCC0613        5     A     
 HISTORY   FCC0614  NO RESTART CALLS SHOULD BE CAUSED BY BUFFER I/O FWA OR LWA OR          FCC0614        1     A     
 HISTORY            BY VARIABLE PARAMETER IN ENCODE.  SYMPTOM OF THIS WAS ERROR            FCC0614        2     A     
 HISTORY            MODE IN READRL.                                                        FCC0614        3     A     
 HISTORY            JLW    75/04/11    APPLIES TO FTN 4.4                                  FCC0614        4     A     
 HISTORY                                                                                   FCC0614        5     A     
 HISTORY   FCC0616  CORRECT EVALUATION OF LOGICAL OPERATORS.                               FCC0616        1     A     
 HISTORY            MRR    75/04/07    APPLIES TO FTN 4.4, TS.                             FCC0616        2     A     
 HISTORY                                                                                   FCC0616        3     A     
 HISTORY   FCC0618  PERFORM SOME COMMON BLOCK INITIALIZATION IN EXTERNAL PACKET            FCC0618        1     A     
 HISTORY            PROCESSING FOR EACH PROGRAM UNIT, AS THE COMMON BLOCKS ARE             FCC0618        2     A     
 HISTORY            RELOADED.                                                              FCC0618        3     A     
 HISTORY            M+H    75/4/11     APPLIES TO FTN 4.4 .                                FCC0618        4     A     
 HISTORY                                                                                   FCC0618        5     A     
 HISTORY   FCC0623  TEMPORARILY ZERO THE STORE-TO-APLIST CHAIN POINTER WHEN                FCC0623        1     A     
 HISTORY            ISSUING *BUGCLL* CALLS SO THAT ANY STACKED STORES ARE                  FCC0623        2     A     
 HISTORY            NOT ERRONEOUSLY PROCESSED.                                             FCC0623        3     A     
 HISTORY            FLUSH ANY SAVED FUNCTION RESULT THAT IS BACKED UP IN ARITH             FCC0623        4     A     
 HISTORY            AFTER INITIAL *BUGCLL* IS GENERATED.                                   FCC0623        5     A     
 HISTORY            MAH    75/4/8      APPLIES TO FTN 4.4 .                                FCC0623        6     A     
 HISTORY                                                                                   FCC0623        7     A     
 HISTORY   FCC0578  CORRECT REGISTER ERROR THAT CAUSED SPURIOUS ANSI DIAGNOSTICS           FCC0578        1     A     
 HISTORY            TO BE ISSUED FOR ANY SUBSCRIPT BEGINNING WITH CONSTANT.                FCC0578        2     A     
 HISTORY            MAH    75/3/5      APPLIES TO FTN 4.3 .                                FCC0578        3     A     
 HISTORY                                                                                   FCC0578        4     A     
 HISTORY   FCC0587  REWRITE TABLE OVERFLOW DIAGNOSTICS FOR IMPROVED CLARITY.               FCC0587        1     A     
 HISTORY            MAH    75/3/13     APPLIES TO FTN 4.3 .                                FCC0587        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  13    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FCC0587        3     A     
 HISTORY   FCC0624  ENDPRO - AVOID SPURIOUS DIAGNOSTIC *NO PATH* AFTER                     FCC0624        1     A     
 HISTORY            IF( ) RETURN IN A MAIN PROGRAM                                         FCC0624        2     A     
 HISTORY            SIJ - 4/10/75 - APPLIES TO FTN 4.4                                     FCC0624        3     A     
 HISTORY                                                                                   FCC0624        4     A     
 HISTORY   FCC0625  MCG/JAM & BDT - CORRECT PROBLEMS THAT OCCURED WHEN AN                  FCC0625        1     A     
 HISTORY            INSTRUCTION THAT *PRS* WAS REPEATEDLY MOVED AROUND IN *CRA*.           FCC0625        2     A     
 HISTORY            SIJ - 4/11/75 - APPLIES TO FTN 4.4                                     FCC0625        3     A     
 HISTORY                                                                                   FCC0625        4     A     
 HISTORY   FCC0628  WHEN AN ASF DEFINITION HAS A *SCANNER* TYPE ERROR, THE COM-            FCC0628        1     A     
 HISTORY            PILER PREMATURELY TRIPS INTO EXECUTABLE STATEMENT PROCESSING.          FCC0628        2     A     
 HISTORY            THIS PRODUCES AN ERRONEOUS ERROR MESSAGE ON SUBSEQUENT ASF             FCC0628        3     A     
 HISTORY            DEFINITIONS.                                                           FCC0628        4     A     
 HISTORY            THIS CODE ALSO CONTAINS SOME ERROR MESSAGE CLEANUP ASSOC-              FCC0628        5     A     
 HISTORY            IATED WITH CONTROL FLOW ERRORS AND *FORMAT* LABEL PROCESSING.          FCC0628        6     A     
 HISTORY            PC     74/04/15    APPLIES TO FTN 4.4.                                 FCC0628        7     A     
 HISTORY                                                                                   FCC0628        8     A     
 HISTORY   FCC0634  MIO - CHECK TO SEE IF BLOCK IS IN BLK BEFORE CALLING ASB               FCC0634        1     A     
 HISTORY            IN WMB/WFB.                                                            FCC0634        2     A     
 HISTORY            SJP    4/18/75     APPLIES TO FTN 4.4                                  FCC0634        3     A     
 HISTORY                                                                                   FCC0634        4     A     
 HISTORY   FCC0637  FIX RECOGNITION TEST FOR LOGICAL AND RELATIONAL OPERATORS.             FCC0637        1     A     
 HISTORY            MRR    75/04/16    APPLIES TO FTN 4.4, TS.                             FCC0637        2     A     
 HISTORY                                                                                   FCC0637        3     A     
 HISTORY   FCC0640  GPO/DIF - CHECK OPERANDS OF IA/IS FOR INV/^INV BEFORE CHECK            FCC0640        1     A     
 HISTORY            FOR OPERANDS OUTPUT TO GET CORRECT CODE IN CASE V*I + (I+V)            FCC0640        2     A     
 HISTORY            SIJ    4/16/75     APPLIES TO FTN 4.4                                  FCC0640        3     A     
 HISTORY                                                                                   FCC0640        4     A     
 HISTORY   FCC0641  BDT/CIP - SET LATE START TIMES OF *RS* INSTRUCTIONS TO 0 TO            FCC0641        1     A     
 HISTORY            FORCE THEIR ISSUE IMMEDIATELY AFTER THEIR PRED IN *MCG*.               FCC0641        2     A     
 HISTORY            GPO/INIT - SETUP SEARCH TERMINATOR FOR GRA/CIS AT O.BIT-2              FCC0641        3     A     
 HISTORY            SIJ - 4/17/75 - APPLIES TO FTN 4.4                                     FCC0641        4     A     
 HISTORY                                                                                   FCC0641        5     A     
 HISTORY   FCC0642  BDT/SIO ENSURE THAT SXT IS NOT SEPERATED FROM CON SHIFT                FCC0642        1     A     
 HISTORY            WHEN REORDERING INSTRUCTIONS.                                          FCC0642        2     A     
 HISTORY            SIJ - 4/17/75 - APPLIES TO FTN 4.4                                     FCC0642        3     A     
 HISTORY                                                                                   FCC0642        4     A     
 HISTORY   FCC0643  GPO, PROSEQ/ESR - CHANGE PROCESSING OF FP & LEVEL2 MEMORY              FCC0643        1     A     
 HISTORY            REFERENCES IN OPT=2 TO FORM A EXTENDED BASIC BLOCK AND SQZ IT          FCC0643        2     A     
 HISTORY            BEFORE CALLING *ESR*.  ALSO ADD CODE IN *ESR* TO CORRECTLY             FCC0643        3     A     
 HISTORY            SETUP SEMANTIC INFO WHEN *RF* IS -VAR* .                               FCC0643        4     A     
 HISTORY            SIJ - 5/29/75 - APPLIES TO FTN 4.4                                     FCC0643        5     A     
 HISTORY                                                                                   FCC0643        6     A     
 HISTORY   FCC0644  PROPERLY RESET INDICATOR AFTER THE CROSS REFERENCE TABLE HAS           FCC0644        1     A     
 HISTORY            SPILLED TO DISK IN THE PREVIOUS PROGRAM UNIT.                          FCC0644        2     A     
 HISTORY            MRR    75/04/18    APPLIES TO FTN 4.4, TS.                             FCC0644        3     A     
 HISTORY                                                                                   FCC0644        4     A     
 HISTORY   FCC0645  GRA/SUP - DONT OUTPUT AN *STT* WITH ONLY AN *H2* SINCE SQZ             FCC0645        1     A     
 HISTORY            AND FAX CANT HANDLE NEGATIVE RELOCATION.                               FCC0645        2     A     
 HISTORY            PROSEQ/ESR - SETUP UDI ORDINAL WHEN GENERATING ADDRESS LOADS.          FCC0645        3     A     
 HISTORY            GRA/SEE - PROPERLY PROCESS CANIDATES WITH UDI=1.                       FCC0645        4     A     
 HISTORY            GRA/IRA - PROPERLY SET RF OF DRL/DWL INSTS WHEN RF IS NOT              FCC0645        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  14    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            MATERIALIZED.                                                          FCC0645        6     A     
 HISTORY            SIJ - 4/18/75 - APPLIES TO FTN 4.4                                     FCC0645        7     A     
 HISTORY                                                                                   FCC0645        8     A     
 HISTORY   FCC0646  GPO/COL - CHANGE OPT=1 LOOP PROCESSING SO THAT *RIO* IS CALLED         FCC0646        1     A     
 HISTORY            TO REORDER THE SEQUENCE AND ELIMINATE OR MARK VARIABLES THAT           FCC0646        2     A     
 HISTORY            ARE *XU* ( USES EXTEND PAST A REDEFINITION ).                          FCC0646        3     A     
 HISTORY            GRA - FIX PROCESSING OF ADDRESS CANIDATES TO PROPERLY                  FCC0646        4     A     
 HISTORY            GENERATE SHORT INSTRUCTIONS WHEN INCREMENT VAR IS *EU*.                FCC0646        5     A     
 HISTORY            SIJ - 4/22/75 - APPLIES TO FTN 4.4, DEPENDS ON FCC0514                 FCC0646        6     A     
 HISTORY                                                                                   FCC0646        7     A     
 HISTORY   FCC0651  GRA/CLB - MARK INCR VALUE AS *EU* TO FORCE MATERIALIZATION IN          FCC0651        1     A     
 HISTORY            AN X-REGISTER IF INCR VARIABLE IS NOT ASSIGNED TO A B-REGISTER         FCC0651        2     A     
 HISTORY            SIJ - 4/21/75 - APPLIES TO FTN 4.4                                     FCC0651        3     A     
 HISTORY                                                                                   FCC0651        4     A     
 HISTORY   FCC0658  BDT - DONT LINK RJRS TO PREVIOUS *BM* IF CALL FROM *RIO*.              FCC0658        1     A     
 HISTORY            SIJ    4/24/75     APPLIES TO FTN 4.4                                  FCC0658        2     A     
 HISTORY                                                                                   FCC0658        3     A     
 HISTORY   FCC0602  GPO/CHB - COMBINES HOLDING BLOCKS WITH PREDECESSOR WHEN                FCC0602        1     A     
 HISTORY            THERE IS ONLY ONE PREDECESSOR BLOCK.                                   FCC0602        2     A     
 HISTORY            SJP    75/03/26    APPLIES TO FTN 4.3                                  FCC0602        3     A     
 HISTORY                                                                                   FCC0602        4     A     
 HISTORY   FCC0654  DO NOT PERFORM EXECUTION-TIME ARRAYS CHECK FOR A(C) IF C IS            FCC0654        1     A     
 HISTORY            IN BOUNDS.                                                             FCC0654        2     A     
 HISTORY            SIJ    4/18/75     APPLIES TO FTN 4.3                                  FCC0654        3     A     
 HISTORY                                                                                   FCC0654        4     A     
 HISTORY   FCC0656  GPO/MIP - BUMP THE *LDI* FIELD OF A IA/IS INCREMENT TO PREVENT         FCC0656        1     A     
 HISTORY            FORMING *IP"S* THAT USE THE OLD AND NEW VALUE OF THE *RD* VAR.         FCC0656        2     A     
 HISTORY            GRA/SCT - MASK OUT UDI FIELD SO THAT DIFFERENT ORDINALS FOR            FCC0656        3     A     
 HISTORY            CLASS AND SCALAR ENTRIES WILL NOT BE ORED IN.                          FCC0656        4     A     
 HISTORY            GPO - MAKE SURE PL/LVL BITS ARE SET IN DESCRIPTOR OF ALL LD/ST         FCC0656        5     A     
 HISTORY            INSTRUCTIONS GENERATED BY GPO ( IPS,DIF,EIE,UPB ).                     FCC0656        6     A     
 HISTORY            SIJ - 4/23/75 - APPLIES TO FTN 4.4                                     FCC0656        7     A     
 HISTORY                                                                                   FCC0656        8     A     
 HISTORY   FCC0714  LENGTH OF CHARACTER STRINGS CALCULATED INCORRECTLY IF IT IS A          FCC0714        1     A     
 HISTORY            MULTIPLE OF 10                                                         FCC0714        2     A     
 HISTORY            JLW    75/05/21    APPLIES TO FTN 4.5, TS                              FCC0714        3     A     
 HISTORY                                                                                   FCC0714        4     A     
 HISTORY   FCC0716  SQZ - PREVENT OVERSQZING OF IAZ/ISZ INSTRUCTIONS IN OPT=2              FCC0716        1     A     
 HISTORY            BY DISALLOWING REPEATED REDUCTION OF THE REDUCED IA/IS INSTRUCTIN      FCC0716        2     A     
 HISTORY            WHEN THE BLOCK IS SQUEEZED A SECOND TIME.                              FCC0716        3     A     
 HISTORY            SIJ - 5/23/75 - APPLIES TO FTN 4.4 , DEPENDS ON FCC0514.               FCC0716        4     A     
 HISTORY                                                                                   FCC0716        5     A     
 HISTORY   FCC0728  FIXES THESE PROBLEMS,1. VAR UNIT FOR I/O COMMANDS SUCH AS              FCC0728        1     A     
 HISTORY            REWIND, BACKSPACE, AND ENDFILE NOT PROCESSED PROPERLY IN OPT=2         FCC0728        2     A     
 HISTORY            RESULTING IN INCORRECT CODE TO BE GENERATED. 2. WHEN                   FCC0728        3     A     
 HISTORY            PARAMETERS OF AN IMPLIED DO LOOP ARE CONSTANTS AND THE                 FCC0728        4     A     
 HISTORY            TERMINAL PARAMETER IS LESS THAN THE INITIAL, INCORRECT CODE IS         FCC0728        5     A     
 HISTORY            GENERATED.                                                             FCC0728        6     A     
 HISTORY            JLW    75/05/30    APPLIES TO FTN 4.5                                  FCC0728        7     A     
 HISTORY                                                                                   FCC0728        8     A     
 HISTORY   FCC0732  MODE ERROR WHILE DATA STMT. PROCESSOR COMPILES COMPLEX CONSTS.         FCC0732        1     A     
 HISTORY            DEPENDENT ON FCC0537.                                                  FCC0732        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  15    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            LDH.   6/2/75      APPLIES TO FTN44                                    FCC0732        3     A     
 HISTORY                                                                                   FCC0732        4     A     
 HISTORY   FCC0761  CORRECT EXTRANEOUS EROSION OF WORKING STORAGE IN DEBUG MODE            FCC0761        1     A     
 HISTORY            WHICH ULTIMATELY RESULTED IN MEMORY OVERFLOW FOR PROGRAMS              FCC0761        2     A     
 HISTORY            WITH LARGE NUMBER OF SUBROUTINES RUN IN SMALL FIELD LENGTH.            FCC0761        3     A     
 HISTORY            ALSO CORRECTS UNRELATED PROBLEM MAINFESTED BY THIS CONDITION.          FCC0761        4     A     
 HISTORY            THIS WAS A MODE-OUT AFTER ANNOUNCING *MORE MEMORY NEEDED FOR           FCC0761        5     A     
 HISTORY            DEBUG*.                                                                FCC0761        6     A     
 HISTORY            MAH    75/6/11     APPLIES TO FTN VERSION 4.5 .                        FCC0761        7     A     
 HISTORY                                                                                   FCC0761        8     A     
 HISTORY   FEAT126A THIS FEATURE MODIFIES THE LISTINGS IN TS MODE WHEN AN OUTPUT           FEAT126A       1     A     
 HISTORY            FILE IS CONNECTED OR THE PW OPTION IS USED ON THE FTN CONTROL          FEAT126A       2     A     
 HISTORY            CARD.                                                                  FEAT126A       3     A     
 HISTORY            DDM    04/25/75    APPLIES TO FTN 4.4 TS                               FEAT126A       4     A     
 HISTORY   FCC0709  ADD LOCAL COMMON BLOCK LENGTH WHEN COMPUTING PROGRAM UNIT              FCC0709        1     A     
 HISTORY            SIZE.                                                                  FCC0709        2     A     
 HISTORY            MRR    75/05/20    APPLIES TO FTN 4.5, TS.                             FCC0709        3     A     
 HISTORY                                                                                   FCC0709        4     A     
 HISTORY   FEAT126B THIS FEATURE ADDS THE LIST/NOLIST OPTION TO FTN TS.                    FEAT126B       1     A     
 HISTORY            PXC    04/25/75    APPLIES TO FTN 4.4 TS                               FEAT126B       2     A     
 HISTORY   FEAT126C THIS MOD DOES GENERAL COMPILER CLEANUP.                                FEAT126C       1     A     
 HISTORY            DDM    04/25/75    APPLIES TO FTN 4.4 TS                               FEAT126C       2     A     
 HISTORY                                                                                   FEAT126AA      1     A     
 HISTORY   FEAT126AA FIX BUGS IN ORIGINAL FEAT126A CODE.                                   FEAT126AA      2     A     
 HISTORY            1.  FIXES INITIALIZATION PROBLEM IN MAP.                               FEAT126AA      3     A     
 HISTORY            2.  FIXES SPELLING ERRORS.                                             FEAT126AA      4     A     
 HISTORY            3.  FIXES REGISTER USAGE PROBLEM IN MAIN.                              FEAT126AA      5     A     
 HISTORY            DDM-ARS 75/05/13   APPLIES TO FTN 4.4                                  FEAT126AA      6     A     
 HISTORY   FEAT126AB       ALLOWS INSTALLATION TO CHANGE DEFAULT PAGE WIDTH FOR            FEAT126AB      1     A     
 HISTORY                   A CONNECTED OUTPUT FILE.                                        FEAT126AB      2     A     
 HISTORY            DDM    75/06/06    APPLIES TO FTN 4.5 TS                               FEAT126AB      3     A     
 HISTORY                                                                                   FEAT126AB      4     A     
 HISTORY   FEAT126AB CORRECT ISOLATION AND TESTING FOR CONNECTED FILE.  FIX MADE           FEAT126AC      1     A     
 HISTORY            NECESSARY BY MULTI-MAINFRAME MODS.                                     FEAT126AC      2     A     
 HISTORY            ARS    06/18/75    INIT    APPLIES TO FTN 4.5                          FEAT126AC      3     A     
 HISTORY                                                                                   FEAT126AC      4     A     
 HISTORY   FEAT126BA CONTROL OF OBJECT LIST VIA C/-LIST DIRECTIVES WAS NOT                 FEAT126BA      1     A     
 HISTORY            CORRECTLY HANDLED.                                                     FEAT126BA      2     A     
 HISTORY            PC     75/05/01    APPLIES TO FEAT126B.                                FEAT126BA      3     A     
 HISTORY   FEAT126BB SCANNERS *NLABEL/CLABEL* TRANSFER WAS HANDLED INCORRECTLY             FEAT126BB      1     A     
 HISTORY            FOR C/-LINES THAT WERE MERELY COMMENTS.                                FEAT126BB      2     A     
 HISTORY            PC     74/05/02    APPLIES TO FTN 4.5.                                 FEAT126BB      3     A     
 HISTORY   FEAT126BC THIS CODE ALLOWS ONE TO OVERRIDE C/ LIST OPTIONS IN BOTH OPT          FEAT126BC      1     A     
 HISTORY            AND TS VERSIONS THAT ARE ASSEMBLED IN *TEST* MODE VIA THE              FEAT126BC      2     A     
 HISTORY            *SNAP=U* CONTROL CARD OPTION.                                          FEAT126BC      3     A     
 HISTORY            PC     75/05/02    APPLIES TO FTN4.5.                                  FEAT126BC      4     A     
 HISTORY  FEAT126CA COMPILER RANGE ERROR ON 7600 CAUSED BY 7RM *FETCH* KILLING X5.         FEAT126CA      1     A     
 HISTORY            LDH    6/13/75     APPLIES TO FTN44                                    FEAT126CA      2     A     
 HISTORY                                                                                   FEAT126CA      3     A     
 HISTORY   FEAT129  CLEAN-UP EQUIVALENCE PROCESSING                                        FEAT129        1     A     
 HISTORY            ARS    74/09/10    APPLIES TO FTN 4.3.                                 FEAT129        2     A     
 HISTORY                                                                                   FEAT129        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  16    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FEAT129        4     A     
 HISTORY  L410     ***                                                                     L410           1     A     
 HISTORY   FCC0566  SCANNER INCORRECTLY POSITIONED ITSELF TO COLUMN 6 OF THE CONT-         FCC0566        1     A     
 HISTORY            UATION CARD IN THE SPECIAL CASE OF *.EQ.* WHERE *E* CAN BE THE         FCC0566        2     A     
 HISTORY            START OF AN EXPONENT OR AN *.EQ.* WHEN PRECEEDED BY A DIGIT.           FCC0566        3     A     
 HISTORY            ERH    75/5/15     APPLIES TO FTN 4.3                                  FCC0566        4     A     
 HISTORY                                                                                   FCC0566        5     A     
 HISTORY   FCC0580  GENERALIZED PROCESSING OF COMMON-LEVEL ERRORS.                         FCC0580        1     A     
 HISTORY            WITH THIS CODE THE COMPILER WILL GENERATE ONLY ONE ERROR               FCC0580        2     A     
 HISTORY            MESSAGE PER COMMON BLOCK PER ERROR TYPE.                               FCC0580        3     A     
 HISTORY            ARS    06/13/76    DPCLOSE    APPLIES TO FTN 4.5                       FCC0580        4     A     
 HISTORY                                                                                   FCC0580        5     A     
 HISTORY   FCC0639  CORRECT ASSIGN STATEMENT CODE ELIMINATING                              FCC0639        1     A     
 HISTORY            ERRONEOUS DIAGNOSTIC OUTPUT WITHIN NESTED LOOPS.                       FCC0639        2     A     
 HISTORY            LDH.   4/23/75     APPLIES TO FTN4.4TS                                 FCC0639        3     A     
 HISTORY                                                                                   FCC0639        4     A     
 HISTORY   FCC0672  GPO/MII - DONT MOVE A APLIST STORE FROM A LOOP IF IT IS A              FCC0672        1     A     
 HISTORY            BASE MEMBER OF A CLASS OF EQUIVALENCED APLISTS.                        FCC0672        2     A     
 HISTORY            PRE/PPL - SET *BASE* BIT IN *API* FOR BASE MEMBER OF CLASS OF          FCC0672        3     A     
 HISTORY            EQUIVALENCED APLISTS.                                                  FCC0672        4     A     
 HISTORY            SIJ - 5/8/75 - APPLIES TO FTN 4.4                                      FCC0672        5     A     
 HISTORY                                                                                   FCC0672        6     A     
 HISTORY   FCC0675  GPO,GRA,POST - REVISE TEMPORARY PACKING ALGORITHMS TO USE              FCC0675        1     A     
 HISTORY            INTERVAL INFORMATION SO WE GET CORRECT RESULTS WHEN HOLDING            FCC0675        2     A     
 HISTORY            BLOCK IS REMOTE .                                                      FCC0675        3     A     
 HISTORY            SIJ - 5/8/75 - APPLIES TO FTN 4.4                                      FCC0675        4     A     
 HISTORY                                                                                   FCC0675        5     A     
 HISTORY   FCC0683  IN THE TS COMPILER... WHEN THE CLOSING RIGHT HAND PARENTHESIS          FCC0683        1     A     
 HISTORY            IN THE DEFINITION OF AN ASF IS MISSING, FTN(TS) ABORTS WITH            FCC0683        2     A     
 HISTORY            MODE ERROR WHEN THE FAULTY ASF IS REFERENCED.  CORRECTIVE CODE         FCC0683        3     A     
 HISTORY            ALLOWS PROPER DIAGNOSIS OF THE ERROR.                                  FCC0683        4     A     
 HISTORY            ERH    75/5/5      APPLIES TO FTN4.3                                   FCC0683        5     A     
 HISTORY                                                                                   FCC0683        6     A     
 HISTORY   FCC0684  FIX FOR INCORRECT CODE GENERATION ON DO LOOP TERMINATOR.               FCC0684        1     A     
 HISTORY            LDH    5/2/75      APPLIES TO FTN4.4 TS                                FCC0684        2     A     
 HISTORY                                                                                   FCC0684        3     A     
 HISTORY   FCC0696  CORRECT PROBLEM WITH MIXED MODE CONSTANT CONVERSION.                   FCC0696        1     A     
 HISTORY            MRR    75/05/14    APPLIES TO FTN 4.5, TS.                             FCC0696        2     A     
 HISTORY                                                                                   FCC0696        3     A     
 HISTORY   FCC0708  TEST FOR A CONSTANT 2 IS ERRONEOUS WHEN REDUCING 2*X TO X+X            FCC0708        1     A     
 HISTORY            JLW    75/05/21    APPLIES TO FTN 4.5                                  FCC0708        2     A     
 HISTORY                                                                                   FCC0708        3     A     
 HISTORY   FCC0711  DETERMINE DEFINED/UNDEFINED STATE OF EQUIVALENCED NON-COMMON           FCC0711        1     A     
 HISTORY            VARIABLES.  INFORMATION TO BE USED IN PRODUCTION OF THE                FCC0711        2     A     
 HISTORY            2-PASS REFMAP.                                                         FCC0711        3     A     
 HISTORY            ARS    06/06/75    ENDPRO,DPCLOSE     APPLIES TO FTN 4.4               FCC0711        4     A     
 HISTORY                                                                                   FCC0711        5     A     
 HISTORY   FCC0715  BDT/FIL - FORM ALL MEMORY REDEF LINKS WHEN HAVE MULTIPLE               FCC0715        1     A     
 HISTORY            INCREMENTS IN A EXTENDED BASIC BLOCK IN OPT=2 .                        FCC0715        2     A     
 HISTORY            SQZ/CIA - PROPERLY MARK INCREMENTS IN EBB"S IN OPT=2                   FCC0715        3     A     
 HISTORY            SIJ - 5/22/75 - APPLIES TO FTN 4.4                                     FCC0715        4     A     
 HISTORY                                                                                   FCC0715        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  17    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCC0718  FIX ERRORS IN HANDLING OF EXTERNALS PASSED AS ACTUAL ARGUMENTS         FCC0718        1     A     
 HISTORY            MRR    75/05/27    APPLIES TO FTN 4.5, TS.                             FCC0718        2     A     
 HISTORY            MAH    75/05/27    APPLIES TO FTN 4.5 .                                FCC0718        3     A     
 HISTORY                                                                                   FCC0718        4     A     
 HISTORY   FCC0719  MCG/SNU - UPDATE NEXT USE DISTANCE FOR RJ,RK OPERANDS OF               FCC0719        1     A     
 HISTORY            TYPE I MEMORY REFERENCES.                                              FCC0719        2     A     
 HISTORY            SIJ - 5/29/75 - APPLIES TO FTN 4.4                                     FCC0719        3     A     
 HISTORY                                                                                   FCC0719        4     A     
 HISTORY   FCC0733  CONSTANTS AND EXPRESSIONS WILL NOT BE ALLOWED IN INPUT LISTS.          FCC0733        1     A     
 HISTORY            JLW    75/06/05    APPLIES TO FTN 4.5                                  FCC0733        2     A     
 HISTORY                                                                                   FCC0733        3     A     
 HISTORY   FCC0735  GRA/DUM - DO NOT PROPAGATE *RF* BIT ( SHORT USAGE) TO                  FCC0735        1     A     
 HISTORY            PREDECESSORS OF IA,IS INSTRUCTION UNLESS IT IS AN INCREMENT,           FCC0735        2     A     
 HISTORY            SO WE DONT INCORRECTLY ASSIGN IT TO A B-REGISTER.                      FCC0735        3     A     
 HISTORY            6/6/75 - SIJ - APPLIES TO FTN 4.4 , OPT=1,2                            FCC0735        4     A     
 HISTORY                                                                                   FCC0735        5     A     
 HISTORY   FCC0741  PROPERLY OUTPUT THE *LONG FILE* TO DISK (WHEN NECESSARY) WHEN          FCC0741        1     A     
 HISTORY            IN END PROCESSING.                                                     FCC0741        2     A     
 HISTORY            MRR    75/06/16    APPLIES TO FTN 4.5, TS.                             FCC0741        3     A     
 HISTORY                                                                                   FCC0741        4     A     
 HISTORY   FCC0743  CODE FIXES 2 *IF AS DO TERMINAL* PROBLEMS...                           FCC0743        1     A     
 HISTORY            1. A STATEMENT OF THE FORM *IF(...EQ...)GOTO...* GENERATED BAD         FCC0743        2     A     
 HISTORY               CODE SUCH THAT *IF* CONDITION WAS ALWAYS SATISFIED.                 FCC0743        3     A     
 HISTORY            2. A 3 BRANCH *IF* WAS NOT DIAGNOSED AS A FATAL ERROR, CON-            FCC0743        4     A     
 HISTORY               SEQUENTLY GENERATING BAD CODE.                                      FCC0743        5     A     
 HISTORY            PC     75/6/6      APPLIES TO FTN 4.5.                                 FCC0743        6     A     
 HISTORY                                                                                   FCC0743        7     A     
 HISTORY   FCC0744  WHEN COMPILING IN TS USING THE  *SEQ*  OPTION, FTN HANGS WHEN          FCC0744        1     A     
 HISTORY            SEQ NO. IS .GT. 511.                                                   FCC0744        2     A     
 HISTORY            SEQ INFORMATION IN TURPLES MISTAKEN BY PAR FOR INTERMEDIATE            FCC0744        3     A     
 HISTORY            OPERANDS.                                                              FCC0744        4     A     
 HISTORY            ERH    75/6/5      APPLIES TO FTN4.5(TS)                               FCC0744        5     A     
 HISTORY                                                                                   FCC0744        6     A     
 HISTORY   FCC0751  FTN - DO NOT CLEAR RA+66 SINCE IT CONTAINS THE *XJ* BIT, AND           FCC0751        1     A     
 HISTORY            IS REFERENCED IF THE *GO* OPTION IS SELECTED.                          FCC0751        2     A     
 HISTORY            SIJ - 6/11/75 - APPLIES TO FTN 4.3                                     FCC0751        3     A     
 HISTORY                                                                                   FCC0751        4     A     
 HISTORY   FCC0752  WHEN *LCC OVERLAY(...)* LINE WAS WRITTEN TO OUTPUT ON OBJECT           FCC0752        1     A     
 HISTORY            LISTING, AN EOL TERMINATOR WAS ASSUMED TO EXIST. THIS PRE-             FCC0752        2     A     
 HISTORY            SENTED A PROBLEM FOR LINES THAT WERE A MULTIPLE OF 10 CHARS.           FCC0752        3     A     
 HISTORY                                                                                   FCC0752        4     A     
 HISTORY   FCC0762  DIAGNOSE LEVEL 2 SYNTAX ERRORS IN 6000-MODE.                           FCC0762        1     A     
 HISTORY            MAH    75/6/12     APPLIES TO FTN 4.5 .                                FCC0762        2     A     
 HISTORY                                                                                   FCC0762        3     A     
 HISTORY   FCC0775  WHEN THE PROGRAM CARD IS CONTINUED ON CONTINUATION CARD WITH           FCC0775        1     A     
 HISTORY            PUNCTUATION OMITTED, FTN(TS) ABORTS WITH MODE ERROR.                   FCC0775        2     A     
 HISTORY            CORRECTIVE CODE APPLIED TO *HEADER* AND *ERRORS* FIXES INCOR-          FCC0775        3     A     
 HISTORY            RECT ERROR REPORTING METHOD.                                           FCC0775        4     A     
 HISTORY            ERH    75/6/18     APPLIES TO FTN4.3(TS)                               FCC0775        5     A     
 HISTORY                                                                                   FCC0775        6     A     
 HISTORY   FCC0784  PREVENT MODE 1 IN TBL MANAGER CAUSED BY SETTING L.IOLST TO -1          FCC0784        1     A     
 HISTORY            MAH    75/6/23     APPLIES TO FTN 4.5 .                                FCC0784        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  18    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FCC0784        3     A     
 HISTORY   FCC0789  IMPLEMENT CAPABILITY TO SHOW A USE AND A DEF IN THE *PIO*              FCC0789        1     A     
 HISTORY            MACRO USED IN OPT=2 FOR NAMELIST AND FREE FORM INPUT.                  FCC0789        2     A     
 HISTORY            SIJ    75/06/24    APPLIES TO FTN 4.5                                  FCC0789        3     A     
 HISTORY            JLW    75/06/24    APPLIES TO FTN 4.5                                  FCC0789        4     A     
 HISTORY                                                                                   FCC0789        5     A     
 HISTORY   FCC0791  BDT/RIO - SET *XU* BIT IN CASES WHERE MULTIPLE USES EXTEND             FCC0791        1     A     
 HISTORY            PAST A REDEF.                                                          FCC0791        2     A     
 HISTORY            6/26/75 - SIJ  APPLIES TO FTN 4.5                                      FCC0791        3     A     
 HISTORY                                                                                   FCC0791        4     A     
 HISTORY   FCC0792  SQZ - ELIMINATE REFERENCE TO XMT IN *RF* OF LD/ST OR STT               FCC0792        1     A     
 HISTORY            SIJ - 6/24/75 - APPLIES TO FTN 4.4                                     FCC0792        2     A     
 HISTORY                                                                                   FCC0792        3     A     
 HISTORY   FCC0826   CORRECT PROBLEMS WITH PW LISTING MODE.                                FCC0826        1     A     
 HISTORY            ARS,DDM   75/07/15     APPLIES TO FTN 4.5 LEVEL 406                    FCC0826        2     A     
 HISTORY                                                                                   FCC0826        3     A     
 HISTORY  L414     ***                                                                     L414           1     A     
 HISTORY   FCC0635  CORRECT HANDLING OF HOLLERITH FORMS NR: AND NL:.                       FCC0635        1     A     
 HISTORY            MRR    75/08/09    APPLIES TO FTN 4.5, TS.                             FCC0635        2     A     
 HISTORY                                                                                   FCC0635        3     A     
 HISTORY   FCC0717  GPO - CORRECT PROCESSING OF *IP*"S THAT USE THE OLD VALUE OF           FCC0717        1     A     
 HISTORY            THE INCREMENT VAR AND OCCUR AFTER A REDEFINITION OF IT.                FCC0717        2     A     
 HISTORY            10 IO = I $ I = I + 1 $ A(J,IO) = B(I) $ IF( I @ N ) GO TO 10          FCC0717        3     A     
 HISTORY            SIJ - 6/1/75 - APPLIES TO FTN 4.4                                      FCC0717        4     A     
 HISTORY                                                                                   FCC0717        5     A     
 HISTORY   FCC0764  GRA/IRA/RS - CLEAR R-NUMBER IN ST-REG FIELD WHEN RESULT *PRS*          FCC0764        1     A     
 HISTORY            IF IT IS THE SAME AS THE R-NUMBER IN THE *XR* FIELD.                   FCC0764        2     A     
 HISTORY            SIJ    8/18/75   APPLIES TO FTN 4.4 OPT=2                              FCC0764        3     A     
 HISTORY                                                                                   FCC0764        4     A     
 HISTORY   FCC0768  DEGRADE *FIRST ELEMENT WILL BE USED* DIAGNOSTIC FOR BEF(ARRAY)         FCC0768        1     A     
 HISTORY            FROM INFORMATIVE TO ANSI.                                              FCC0768        2     A     
 HISTORY            MAH    6/17/75     APPLIES TO FTN 4.5 .                                FCC0768        3     A     
 HISTORY                                                                                   FCC0768        4     A     
 HISTORY   FCC0780  SHARE *TT.COMM* WITH *TP.DO* INSTEAD OF *TT.USE*.                      FCC0780        1     A     
 HISTORY            MRR    75/06/24    APPLIES TO FTN 4.5, TS.                             FCC0780        2     A     
 HISTORY                                                                                   FCC0780        3     A     
 HISTORY   FCC0787  CORRECTS AND ENHANCES SYNTAX CHECKING OF I/O LIST.                     FCC0787        1     A     
 HISTORY            COMPLEX CONSTANTS IN I/O LISTS WILL BE RECOGNIZED.                     FCC0787        2     A     
 HISTORY            MRR,JLW 75/08/20   APPLIES TO FTN 4.5, TS.                             FCC0787        3     A     
 HISTORY            JLW    75/07/08    APPLIES TO FTN 4.5                                  FCC0787        4     A     
 HISTORY                                                                                   FCC0787        5     A     
 HISTORY   FCC0794  PROPERLY HANDLE FORMAT DESIGNATOR UPON RETURN FROM PAR.                FCC0794        1     A     
 HISTORY            MRR    75/08/21    APPLIES TO FTN 4.5, TS.                             FCC0794        2     A     
 HISTORY                                                                                   FCC0794        3     A     
 HISTORY   FCC0805  THIS CODE FIXES LEVEL 2 REGISTER CRASH PROBLEMS.                       FCC0805        1     A     
 HISTORY            HARE.  6/30/75     APPLIES TO FTN 4.5 TS                               FCC0805        2     A     
 HISTORY                                                                                   FCC0805        3     A     
 HISTORY   FCC0811  GRA - PROPERLY RESTORE *RCT* ENTRY FOR AN X-CANIDATE WHEN A            FCC0811        1     A     
 HISTORY            TENATIVE ASSIGNMENT CANNOT BE MADE. CLEAR REG1,MIT FIELDS.             FCC0811        2     A     
 HISTORY            GRA/IRA/RS - CHECK *IRA* BIT FOR *RS* MOTION, NOT *RA* BIT.            FCC0811        3     A     
 HISTORY            SIJ   7/8/75  APPLIES TO FTN 4.4 , OPT=2                               FCC0811        4     A     
 HISTORY                                                                                   FCC0811        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  19    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCC0812  GRA/IRA/PVC - ENSURE XMT PRIOR TO AN *RS* IN THE CASE -                FCC0812        1     A     
 HISTORY            LD 4,A  RS 4,X1,A  XMT 14,4  RS 14,X2,A THAT APPEARED IN               FCC0812        2     A     
 HISTORY            AN OUTER LOOP.                                                         FCC0812        3     A     
 HISTORY            SIJ   7/8/75   APPLIES TO FTN 4.4 , OPT=2                              FCC0812        4     A     
 HISTORY                                                                                   FCC0812        5     A     
 HISTORY   FCC0813  THE VALUE GIVEN FOR CM USED IN THE OUTPUT FILE WAS NOT                 FCC0813        1     A     
 HISTORY            CORRECT.  IT NOW IS.                                                   FCC0813        2     A     
 HISTORY            DDM    07/15/75    APPLIES TO FTN 4.5 TS                               FCC0813        3     A     
 HISTORY                                                                                   FCC0813        4     A     
 HISTORY   FCC0814  GRA/MFA - ENSURE TABLE TERMINATOR WHEN ATTEMPTING ADDRESS              FCC0814        1     A     
 HISTORY            DIFFERENCING.                                                          FCC0814        2     A     
 HISTORY           SIJ   7/9/75   APPLIES TO FTN 4.4                                       FCC0814        3     A     
 HISTORY                                                                                   FCC0814        4     A     
 HISTORY   FCC0818  PL PARAMETER DID NOT ALLOW .GT. 7 CHARACTERS. IT NOW                   FCC0818        1     A     
 HISTORY            WORKS AS ADVERTISED.                                                   FCC0818        2     A     
 HISTORY            DDM    07/15/75    APPLIES TO FTN 4.5                                  FCC0818        3     A     
 HISTORY                                                                                   FCC0818        4     A     
 HISTORY   FCC0822  CORRECT PROCESSING OF DEBUG-TRACED FUNCTION WITH TRACED                FCC0822        1     A     
 HISTORY            ARRAYS AMONG ACTUAL ARGUMENTS.                                         FCC0822        2     A     
 HISTORY            MAH    75/7/10     APPLIES TO FTN 4.5 .                                FCC0822        3     A     
 HISTORY                                                                                   FCC0822        4     A     
 HISTORY   FCC0824  CORRECT LOGIC ERROR THAT PREVENTS PASS 2 LOAD IF .OVL = 0 .            FCC0824        1     A     
 HISTORY            MAH    75/7/29     APPLIES TO FTN 4.5 .                                FCC0824        2     A     
 HISTORY                                                                                   FCC0824        3     A     
 HISTORY   FCC0827  BAD LABEL IN FORMAT STATEMENT WILL NOT CAUSE TIME LIMIT.               FCC0827        1     A     
 HISTORY            JLW    75/08/06    APPLIES TO FTN 4.5                                  FCC0827        2     A     
 HISTORY                                                                                   FCC0827        3     A     
 HISTORY   FCC0828  EXTRANEOUS CHARACTERS PRECEDING A KEYWORD WILL BE DETECTED.            FCC0828        1     A     
 HISTORY            JLW    75/08/06    APPLIES TO FTN 4.5                                  FCC0828        2     A     
 HISTORY                                                                                   FCC0828        3     A     
 HISTORY   FCC0839  GRA/SEE - DONT MARK CANDIDATE THAT IS RD AND ^DEF AS KD.               FCC0839        1     A     
 HISTORY            SIJ    7/30/75     APPLIES TO FTN 4.3                                  FCC0839        2     A     
 HISTORY                                                                                   FCC0839        3     A     
 HISTORY   FCC0840  CORECT TEST FOR POSITION OF IMPLICIT STATEMENT WITHIN                  FCC0840        1     A     
 HISTORY            A PROGRAM UNIT.                                                        FCC0840        2     A     
 HISTORY            ARS    75/09/02    PH1CTL    APPLIES TO FTN 4.5                        FCC0840        3     A     
 HISTORY                                                                                   FCC0840        4     A     
 HISTORY   FCC0841  GPO - DO NOT COMBINE HOLDING BLOCK WITH NATURAL PREDECESSOR            FCC0841        1     A     
 HISTORY            UNLESS PARITY OF FINAL JUMP BITS FOR BOTH BLOCKS IS THE SAME.          FCC0841        2     A     
 HISTORY            SIJ    7/28/75     APPLIES TO FTN 4.3                                  FCC0841        3     A     
 HISTORY                                                                                   FCC0841        4     A     
 HISTORY   FCC0842  PRESERVE (X1) ACCROSS ANSI MESSAGE CALL.                               FCC0842        1     A     
 HISTORY            MRR    75/07/22    APPLIES TO FTN 4.5, TS.                             FCC0842        2     A     
 HISTORY                                                                                   FCC0842        3     A     
 HISTORY   FCC0844  INCREASE MAX WORD LENGTH OF HOLLERITHS FROM 37B TO 777B.               FCC0844        1     A     
 HISTORY            INCREASE MAX LEADING BLANK COUNT FROM 1777B TO 3776B.                  FCC0844        2     A     
 HISTORY            ARS    75/07/17    APPLIES TO FTN 4.5, TS.                             FCC0844        3     A     
 HISTORY                                                                                   FCC0844        4     A     
 HISTORY   FCC0848  PROPERLY TEST FOR EXTRANEOUS COMMA PRECEEDING I/O LIST.                FCC0848        1     A     
 HISTORY            MRR    75/07/28    APPLIES TO FTN 4.5, TS.                             FCC0848        2     A     
 HISTORY                                                                                   FCC0848        3     A     
 HISTORY   FCC0872  ALLOW S INSTRUCTION AS PRED. OF INDEXED SHIFT IN SQUEEZE               FCC0872        1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  20    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            MAH    75/8/5      APPLIES TO FTN VERSION 4.5 .                        FCC0872        2     A     
 HISTORY                                                                                   FCC0872        3     A     
 HISTORY   FCC0878  PROPERLY HANDLE INTEGER RAISED TO REAL POWER                           FCC0878        1     A     
 HISTORY            MRR    75/08/14    APPLIES TO FTN 4.5, TS.                             FCC0878        2     A     
 HISTORY                                                                                   FCC0878        3     A     
 HISTORY   FCC0882  DO NOT CONFUSE LCM=I ADDRESS LOAD WITH A LOAD OF THE VALUE BY          FCC0882        1     A     
 HISTORY            SETTING THE *LCMA* BIT IN THE *IH* FIELD OF THE *LD*.                  FCC0882        2     A     
 HISTORY            FTNTEXT, POST/ASN, PROSEQ/ESR, GRA/OIL                                 FCC0882        3     A     
 HISTORY            SIJ    8/14/75  APPLIES TO FTN 4.5, OPT=2                              FCC0882        4     A     
 HISTORY                                                                                   FCC0882        5     A     
 HISTORY   FCC0883  BDT/CRW - DONT RESET REG-WIDTH TO 0 WHEN PROCESSING A *LAB*            FCC0883        1     A     
 HISTORY            SIJ - 8/11/75 - APPLIES TO FTN 4.5 , OPT=1                             FCC0883        2     A     
 HISTORY                                                                                   FCC0883        3     A     
 HISTORY   FCC0885  GPO/MII - PREVENT LOSS OF MOVED INV ST IN HB OF A OUTER LOOP           FCC0885        1     A     
 HISTORY            IN THE CASE THAT A ILD APPEARS AFTER IT BY CHANGING ALL ILD"S          FCC0885        2     A     
 HISTORY            TO LD"S.                                                               FCC0885        3     A     
 HISTORY            SIJ   8/14/75 - APPLIES TO FTN 4.5 , OPT=2                             FCC0885        4     A     
 HISTORY                                                                                   FCC0885        5     A     
 HISTORY   FCC0887  LARGE HOLLERITH CONSTANTS EVALUATED AS INTEGERS WILL BE                FCC0887        1     A     
 HISTORY            DIAGNOSED.                                                             FCC0887        2     A     
 HISTORY            JLW    75/08/11    APPLIES TO FTN 4.5                                  FCC0887        3     A     
 HISTORY                                                                                   FCC0887        4     A     
 HISTORY   FCC0888  CORRECTLY DIAGNOSE NON-ANSI USAGES OF FORMAT IN AN I/O STMT.           FCC0888        1     A     
 HISTORY            JLW    75/08/17    APPLIES TO FTN 4.5                                  FCC0888        2     A     
 HISTORY                                                                                   FCC0888        3     A     
 HISTORY   FCC0903  CORRECT HANDLING OF ARITHMETIC IF WHICH REDUCES TO AN                  FCC0903        1     A     
 HISTORY            UNCONDITIONAL BRANCH WHEN APPENDED TO A LOGICAL IF.  ALSO              FCC0903        2     A     
 HISTORY            CORRECT ISSUING NOPATH MESSAGE FOR THE ABOVE CASE.                     FCC0903        3     A     
 HISTORY            MRR    75/08/23    APPLIES TO FTN 4.5, TS.                             FCC0903        4     A     
 HISTORY                                                                                   FCC0903        5     A     
 HISTORY   FCC0912  GRA/SIV - CORRECTLY FORM B-REGISTER INITIALIZATION CODE FOR            FCC0912        1     A     
 HISTORY            THE CASE THAT THE B-REG IS AN ADDRESS DIFFERENCE OF A                  FCC0912        2     A     
 HISTORY            SYMBOL THAT IS A LEVEL 2 F.P. ( BIT 59 OF APLIST WORD SET).            FCC0912        3     A     
 HISTORY            PROSEQ/ESR - PROPAGATE FP BIT TO STT"S WHEN IN LCM ONLY MODE           FCC0912        4     A     
 HISTORY            SIJ    8/18/75   APPLIES TO FTN 4.5 OPT=1,2                            FCC0912        5     A     
 HISTORY                                                                                   FCC0912        6     A     
 HISTORY   FCC0919  GRA/ERC - COMBINE STT AND LD/ST LOGIC SO INC FIRST TEST IS             FCC0919        1     A     
 HISTORY            PERFORMED ON THE RF OF AN STT THAT IS AN *AC*.                         FCC0919        2     A     
 HISTORY            SIJ    8/25/75     APPLIES TO FTN 4.5 , OPT=2                          FCC0919        3     A     
 HISTORY                                                                                   FCC0919        4     A     
 HISTORY   FCC0931  PROPERLY TERMINATE COMPILATION FOR TABLE OVERFLOW WHEN IN END          FCC0931        1     A     
 HISTORY            PROCESSING.                                                            FCC0931        2     A     
 HISTORY            MRR    75/08/26    APPLIES TO FTN 4.5, TS.                             FCC0931        3     A     
 HISTORY                                                                                   FCC0931        4     A     
 HISTORY   FCC0943  CORRECT EXPANSION OF ED MACRO IN FAX.                                  FCC0943        1     A     
 HISTORY            ARS    75/8/27     FAX      APPLIES TO FTN 4.5 LEVEL 410               FCC0943        2     A     
 HISTORY                                                                                   FCC0943        3     A     
 HISTORY   S3143FC  REVISIONS FOR THE CYBER 170 SERIES, ALLOW MODEL MICRO TO BE            S3143FC        1     A     
 HISTORY            3 CHARACTERS, CORRECT CONDITIONAL ASSEMBLY IN VARIOUS RTNS.            S3143FC        2     A     
 HISTORY            SIJ    8/27/75 - APPLIES TO FTN 4.5, OPT AND TS                        S3143FC        3     A     
 HISTORY                                                                                   S3143FC        4     A     
 HISTORY   *L420*    ********************************************************************* *L420*         1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  21    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCC0715A BDT/FJL - IGNORE REDEF LINKS WHEN FORMING JUMP LINKS.                  FCC0715A       1     A     
 HISTORY            SIJ    10/23/75    APPLIES TO FTN 4.5, OPT=1, 2                        FCC0715A       2     A     
 HISTORY                                                                                   FCC0715A       3     A     
 HISTORY   FCC0777  GRA/OSI - DO NOT CHECK *WORDB* BITS IF *IH* IS A LABEL.                FCC0777        1     A     
 HISTORY            SIJ    10/2/75     APPLIES TO FTN 4.5 , OPT=2                          FCC0777        2     A     
 HISTORY                                                                                   FCC0777        3     A     
 HISTORY   FCC0835  CORRECT ERROR PRODUCTION DURING COMMON PROCESSING SUCH THAT            FCC0835        1     A     
 HISTORY            THE REGISTERS ARE SAVED AND RESTORED.  ALSO CORRECT THE FILL.          FCC0835        2     A     
 HISTORY            SET UP FOR THE CLASS ERROR MESSAGE.                                    FCC0835        3     A     
 HISTORY            MRR,ARS 75/09/22   APPLIES TO FTN 4.5, TS.                             FCC0835        4     A     
 HISTORY                                                                                   FCC0835        5     A     
 HISTORY   FCC0859  THE PW OPTION CAUSED THE PRINT LINE WIDTH TO BE OFF BY                 FCC0859        1     A     
 HISTORY            ONE CHARACTER ON KRONOS.                                               FCC0859        2     A     
 HISTORY            DDM    75/10/22    APPLIES TO FTN 4.5, TS                              FCC0859        3     A     
 HISTORY                                                                                   FCC0859        4     A     
 HISTORY   FCC0864  MEM DOWN TO MEM.GOFL VALUE BEFORE CALLING LOADER IN GO MODE.           FCC0864        1     A     
 HISTORY            LJM    75/08/01    APPLIES TO FTN 4.5, BOTH MODES                      FCC0864        2     A     
 HISTORY            LDH,DDM  75/10/25                                                      FCC0864        3     A     
 HISTORY                                                                                   FCC0864        4     A     
 HISTORY   FCC0881  MCG/JAM - REVISE HANDLING OF REISSUE OF INSTRUCTIONS THAT              FCC0881        1     A     
 HISTORY            *PS* AND NOT ALL USES ARE STORES.  REWRITE *SXB*.                      FCC0881        2     A     
 HISTORY            CHANGE LONG APLIST LDS INTO SHORT WHEN PRECEEDING ST.                  FCC0881        3     A     
 HISTORY            ELIMINATE XMT  R,R INSTRUCTIONS.                                       FCC0881        4     A     
 HISTORY            BDT/RIO - FORCE LATE OUTPUT OF FULL LOCK *RS"S* TO X-REGS              FCC0881        5     A     
 HISTORY            SIJ    10/23/75    APPLIES TO FTN 4.5 , OPT=1,2                        FCC0881        6     A     
 HISTORY                                                                                   FCC0881        7     A     
 HISTORY   FCC0902  INCREASE THE SIZE OF THE EXECUTION TIME BUFFERS TO ACCOMMADATE         FCC0902        1     A     
 HISTORY            DOUBLE BUFFERING WHEN PROCESSING 512 WORD BLOCKS ON STRANGER           FCC0902        2     A     
 HISTORY            TAPES.                                                                 FCC0902        3     A     
 HISTORY            ARS    75/10/06    OPTIONS,HEADER,PH1CTL   APPLIES TO FTN 4.5          FCC0902        4     A     
 HISTORY                                                                                   FCC0902        5     A     
 HISTORY   FCC0909  GPO, GRA - CORRECT PROCESSING OF LOOPS WITH MULTIPLE                   FCC0909        1     A     
 HISTORY            PREDECESSORS (LABEL CHANGE NECESSARY) AND THE LOOP BACK IS             FCC0909        2     A     
 HISTORY            BY AN ASSIGNED GOTO SO WE JUMP BACK TO THE BEGINNING OF THE            FCC0909        3     A     
 HISTORY            LOOP BODY, NOT THE BEGINNING OF THE HOLDING BLOCK.                     FCC0909        4     A     
 HISTORY            SIJ    9/8/75      APPLIES TO FTN 4.5 , OPT=2                          FCC0909        5     A     
 HISTORY                                                                                   FCC0909        6     A     
 HISTORY   FCC0914  GRA/SXC - CLEAR BITS IN LOOP LIVE ENTRY BIT VECTOR FOR                 FCC0914        1     A     
 HISTORY            VARIABLES THAT ARE NOT USED AND DEAD ON EXIT FROM THE LOOP.            FCC0914        2     A     
 HISTORY            SIJ    9/5/75      APPLIES TO FTN 4.5 , OPT=2                          FCC0914        3     A     
 HISTORY                                                                                   FCC0914        4     A     
 HISTORY   FCC0946  FOR FILE NAMES APPEARING ON A PROGRAM STATEMENT WHICH USE              FCC0946        1     A     
 HISTORY            MACHINE REGISTER NAMES, DELETE THE APPENDED *$* BEFORE APPEND-         FCC0946        2     A     
 HISTORY            ING THE *#*.                                                           FCC0946        3     A     
 HISTORY            MRR    75/10/14    APPLIES TO FTN 4.5, OPT.                            FCC0946        4     A     
 HISTORY                                                                                   FCC0946        5     A     
 HISTORY   FCC0960  SUPPRESS *BRANCH TO NEXT STATEMENT* OPTIMIZATION IF CURRENT            FCC0960        1     A     
 HISTORY            STATEMENT IS DO TERMINATOR.                                            FCC0960        2     A     
 HISTORY            MAH    75/9/9      APPLIES TO FTN 4.6 .                                FCC0960        3     A     
 HISTORY                                                                                   FCC0960        4     A     
 HISTORY   FCC0961  RETAIN THE BINARY OF AN INTEGER CONSTANT CONVERTED TO REAL BY          FCC0961        1     A     
 HISTORY            CIR.                                                                   FCC0961        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  22    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            MRR    75/09/08    APPLIES TO FTN 4.5, TS.                             FCC0961        3     A     
 HISTORY                                                                                   FCC0961        4     A     
 HISTORY   FCC0962  UNLABELED OR INCORRECTLY LABELED FORMAT STMNT CAUSES FTN(TS)           FCC0962        1     A     
 HISTORY            TO MODE OUT WHEN USING  *OL*  OPTION.                                  FCC0962        2     A     
 HISTORY            MANAGED TABLES INCORRECTLY PROCESSED WHEN FATAL OCCURS.                FCC0962        3     A     
 HISTORY            *OL*  TO BE TURNED OFF WHEN FATAL OCCURS.                              FCC0962        4     A     
 HISTORY            ERH    75/9/9      APPLIES TO FTN 4.3(TS)                              FCC0962        5     A     
 HISTORY                                                                                   FCC0962        6     A     
 HISTORY   FCC0963  DONT OUTPUT NULL MODE CONVERSION TURPLES WHEN CONVERTING               FCC0963        1     A     
 HISTORY            STATEMENT FUNCTION EXPANSION RESULTS.                                  FCC0963        2     A     
 HISTORY            MRR    75/09/16    APPLIES TO FTN 4.5, TS.                             FCC0963        3     A     
 HISTORY                                                                                   FCC0963        4     A     
 HISTORY   FCC0970  I/O UNIT ZERO WILL BE ACCEPTED.                                        FCC0970        1     A     
 HISTORY            ERH    75/10/20    APPLIES TO FTN 4.6,TS                               FCC0970        2     A     
 HISTORY                                                                                   FCC0970        3     A     
 HISTORY   FCC0975  CORRECT MASK SKELETON TO PROTECT FOR MASK(0) CASE.                     FCC0975        1     A     
 HISTORY            MAH    75/9/19     APPLIES TO FTN 4.5 TS ONLY.                         FCC0975        2     A     
 HISTORY                                                                                   FCC0975        3     A     
 HISTORY   FCC0977  GRA,BDT - SUPPLY CORRECT SEMANTIC INFORMATION ( *RF* ) FOR             FCC0977        1     A     
 HISTORY            TYPE I MEMORY REFERENCES THAT ARE FROM A NON-BASE *IP* THAT            FCC0977        2     A     
 HISTORY            IS ADDRESS DIFFERENCED IN GRA.                                         FCC0977        3     A     
 HISTORY            SIJ    10/15/75    APPLIES TO FTN 4.5, OPT=1,2                         FCC0977        4     A     
 HISTORY                                                                                   FCC0977        5     A     
 HISTORY   FCC0980  FIXES  ERRONEOUS ERROR MESSAGES WHEN P=0 OR ML WITH NO =               FCC0980        1     A     
 HISTORY            IS SPECIFIED ON CONTROL STATEMENT. ALSO MAKES SURE SYSEDIT=0           FCC0980        2     A     
 HISTORY            TURNS OFF SYSEDIT.                                                     FCC0980        3     A     
 HISTORY            DDM    75/10/22    APPLIES TO FTN 4.5                                  FCC0980        4     A     
 HISTORY                                                                                   FCC0980        5     A     
 HISTORY   FCC0982  REPAIR APLIST PROCESSING FOR LCM/ECS ITEMS IN C-MODE.                  FCC0982        1     A     
 HISTORY            MAH    75/9/24     APPLIES TO FTN 4.5 .                                FCC0982        2     A     
 HISTORY                                                                                   FCC0982        3     A     
 HISTORY   FCC0990  CHANGE THE UNTERMINATED I/O DO LOOP ERROR TO FATAL (FROM               FCC0990        1     A     
 HISTORY            COMPILER).  ALSO CLEAN UP EXIT CONDITIONS WHEN AN ACTUAL               FCC0990        2     A     
 HISTORY            COMPILER ERROR OCCURS.                                                 FCC0990        3     A     
 HISTORY            MRR    75/10/09    APPLIES TO FTN 4.5, TS.                             FCC0990        4     A     
 HISTORY                                                                                   FCC0990        5     A     
 HISTORY   FCC0994  AVOID RESTART CALLS BETWEEN TWO REFERENCES TO AN ARRAY                 FCC0994        1     A     
 HISTORY            FOR LWA-FWA+1 TYPE LIST COLLAPSE.                                      FCC0994        2     A     
 HISTORY            MAH    75/10/13    APPLIES TO FTN 4.5 .                                FCC0994        3     A     
 HISTORY                                                                                   FCC0994        4     A     
 HISTORY   FCC0996  DO NOT ALLOCATE ROOM IN START. FOR EXIT. IN MAIN PROGRAM.              FCC0996        1     A     
 HISTORY            MAH    75/14/75    APPLIES TO FTN 4.5 .                                FCC0996        2     A     
 HISTORY                                                                                   FCC0996        3     A     
 HISTORY   FCC1004  ALLOW CONTROL CARD OPTION FILENAMES TO BE NUMERIC UNDER NOS.           FCC1004        1     A     
 HISTORY            DDM    75/10/22    APPLIES TO FTN4.5                                   FCC1004        2     A     
 HISTORY                                                                                   FCC1004        3     A     
 HISTORY   FCC1011  TREAT SUBROUTINES REFERENCED AS FUNCTIONS AS EXTERNAL                  FCC1011        1     A     
 HISTORY            FUNCTIONS.                                                             FCC1011        2     A     
 HISTORY            MRR    75/11/04    APPLIES TO FTN 4.5, TS.                             FCC1011        3     A     
 HISTORY                                                                                   FCC1011        4     A     
 HISTORY   FCC1013  IN THE OPTIMIZING COMPILER, WHEN THE FOLLOWING SITUATION               FCC1013        1     A     
 HISTORY            ARISES--                                                               FCC1013        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  23    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            1.  A C/-LIST DIRECTIVE, FOLLOWED BY--                                 FCC1013        3     A     
 HISTORY            2.  A BLANK LINE, FOLLOWED BY--                                        FCC1013        4     A     
 HISTORY            3.  AN INITIAL LINE OF A STATEMENT, FOLLOWED BY--                      FCC1013        5     A     
 HISTORY            4.  AT LEAST ONE CONTINUATION LINE,                                    FCC1013        6     A     
 HISTORY            THE STATEMENT AT *3* AND *4* IS NOT HANDLED PROPERLY.                  FCC1013        7     A     
 HISTORY                                                                                   FCC1013        8     A     
 HISTORY   FCC1014  GRA - ALLOW *RCT* TO CONTAIN CANIDATES ( INDEXED LD/ST"S )             FCC1014        1     A     
 HISTORY            WHERE THE *RF* IS NOT A CANDIDATE. ENHANCES B-REG ASSGNMENT.           FCC1014        2     A     
 HISTORY            SIJ    10/20/75    APPLIES TO FTN 4.5 , OPT=1,2                        FCC1014        3     A     
 HISTORY                                                                                   FCC1014        4     A     
 HISTORY   FCC1025  AVOID DEADLOCKS IN OUTER LOOPS WHEN VAR IS ASSIGNED TO A B-REG         FCC1025        1     A     
 HISTORY            IN AN INNER LOOP AND INC FIRST IN THE OUTER LOOP.                      FCC1025        2     A     
 HISTORY            SQZ/CIA - REDUCE DEF/SA/INC K/ST K TO DEF/STT/ST K                     FCC1025        3     A     
 HISTORY            GPO/IPS - SETUP SEMANTIC INFO IN R2 WORD OF *SA*.                      FCC1025        4     A     
 HISTORY            SIJ    11/4/75     APPLIES TO FTN 4.5 , OPT=2                          FCC1025        5     A     
 HISTORY                                                                                   FCC1025        6     A     
 HISTORY   FCC1028  CHECK FOR AND SET LCM BIT FOR 7000 IF VARIABLE FORMAT DESIG-           FCC1028        1     A     
 HISTORY            NATOR IN ENCODE/DECODE.                                                FCC1028        2     A     
 HISTORY            ERH    75/10/30    APPLIES TO FTN 4.5,TS.                              FCC1028        3     A     
 HISTORY   FEAT79CZ ALLOW DSINH,DCOSH AND DTANH.                                           FEAT79CZ       1     A     
 HISTORY            MAH    9/25/75     APPLIES TO FTN 4.6 .                                FEAT79CZ       2     A     
 HISTORY                                                                                   FEAT79CZ       3     A     
 HISTORY   FEAT155A ADD OBJECT REPRIEVE INFORMATION TO THE COMPILED CODE.                  FEAT155A       1     A     
 HISTORY            ADD *ER* CONTROL CARD PARAMETER TO SELECT OBJECT TIME ERROR            FEAT155A       2     A     
 HISTORY            RECOVERY CODE.                                                         FEAT155A       3     A     
 HISTORY            SJP, MRR  10/15/75 APPLIES TO FTN 4.5 , ALL MODES                      FEAT155A       4     A     
 HISTORY                                                                                   FEAT155A       5     A     
 HISTORY   FEAT155B ENABLE LINE CONTROL FEATURE IN 2-PASS AND TS IN THE FORM OF A          FEAT155B       1     A     
 HISTORY            TERMINATING COMMA IN AN LIST DIRECTED I/O STMT.                        FEAT155B       2     A     
 HISTORY            JLW/ERH  75/09/12  APPLIES TO 4.5                                      FEAT155B       3     A     
 HISTORY                                                                                   FEAT155B       4     A     
 HISTORY   FEAT155C   THIS CODE CHANGES TS LONG FILE FORMAT INTO A COMPACTED               FEAT155C       1     A     
 HISTORY            FORM. 15 BIT INSTRUCTIONS ARE PACKED THREE PER WORD                    FEAT155C       2     A     
 HISTORY            WHEN POSSIBLE.                                                         FEAT155C       3     A     
 HISTORY            HARE.  6/25/74     APPLIES TO FTN 4.6 TS                               FEAT155C       4     A     
 HISTORY                                                                                   FEAT155C       5     A     
 HISTORY   FEAT155D WHEN FTN IN TS MODE NEEDS MORE FIELD LENGTH FOR A                      FEAT155D       1     A     
 HISTORY            COMPILATION IT WILL DO MEMORY REQUESTS.  NO TABLES WILL BE             FEAT155D       2     A     
 HISTORY            SPILLED TO DISK UNTIL THE FIELD LENGTH VALUE OF NOM.FL IS              FEAT155D       3     A     
 HISTORY            REACHED.                                                               FEAT155D       4     A     
 HISTORY            DDM    75/10/17    APPLIES TO FTN 4.5, TS.                             FEAT155D       5     A     
 HISTORY                                                                                   FEAT155D       6     A     
 HISTORY   FEAT155E ADD PRINT DENSITY (PD) AND PAGE SIZE (PS) OPTIONS TO                   FEAT155E       1     A     
 HISTORY            BOTH COMPILERS.                                                        FEAT155E       2     A     
 HISTORY            REPLACE THE TS CODE ADDRESSES WITH CARD NUMBER ON SOURCE CARD          FEAT155E       3     A     
 HISTORY            IMAGES.  USE THOSE NUMBERS IN REFMAP.                                  FEAT155E       4     A     
 HISTORY            ARS    75/09/29    APLIES TO FTN 4.5                                   FEAT155E       5     A     
 HISTORY                                                                                   FEAT155E       6     A     
 HISTORY   FEAT155G THIS FEATURE IS RELATED TO FEAT155D.  ITS PURPOSE IS TO                FEAT155G       1     A     
 HISTORY            REARRANGE DECKS SO THAT WHEN NO OBJECT LISTING IS REQUESTED            FEAT155G       2     A     
 HISTORY            OR WHEN NO OBJECT LISTING AND REFERENCE MAP IS REQUESTED, THE          FEAT155G       3     A     
 HISTORY            AREAS CAN BE USED BY THE TABLE MANAGER FOR TABLE SPACE.                FEAT155G       4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  24    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            DDM    75/10/17    APPLIES TO FTN 4.5, TS.                             FEAT155G       5     A     
 HISTORY                                                                                   FEAT155G       6     A     
 HISTORY            PARTS OF THIS FEAT155A HAVE BEEN INCORPORATED INTO                     FEAT155G       7     A     
 HISTORY            FEAT155G BECAUSE OF AN OVERLAP IN CORRECTION SETS. THE SECTION         FEAT155G       8     A     
 HISTORY            ADDED HERE IMPLEMENTS THE CAPABILITY TO REPRIEVE FROM ANY              FEAT155G       9     A     
 HISTORY            ABNORMAL TERMINATION --EXCEPT EXPLICIT *ABT* CALL-- AT                 FEAT155G      10     A     
 HISTORY            EXECUTION TIME... KNOWN AS *OBJECT TIME REPRIEVE (OTR) *. THIS         FEAT155G      11     A     
 HISTORY            CODE GENERATES *SB0 B2-LEN.* , *SB0 B2+POINTER*, AND                   FEAT155G      12     A     
 HISTORY            *RJ =XFTNRPV. *.                                                       FEAT155G      13     A     
 HISTORY            ERH    75/10/17    APPLIES TO FTN 4.5, TS.                             FEAT155G      14     A     
 HISTORY                                                                                   FEAT155G      15     A     
 HISTORY            FOR CONSISTENCY, THE TS OBJECT TIME REPRIEVE CODE HAS BEEN             FEAT155G      16     A     
 HISTORY            DROPPED IN THIS IDENT IN ITS ENTIRITY.  THE CODE IN QUESTION           FEAT155G      17     A     
 HISTORY            OUTPUTS LINE/SEQUENCE NUMBERS IN THE CODE FORM SB0 B2+LINENO.          FEAT155G      18     A     
 HISTORY            MRR    75/10/24    APPLIES TO FTN 4.6, TS.                             FEAT155G      19     A     
 HISTORY                                                                                   FEAT155G      20     A     
 HISTORY   TEXTCOM  CREATE COMDECK FOR MIN-MAX MACROS.                                     FEAT155G      21     A     
 HISTORY            DDM    75/10/28    TSTEXT,FTNTEXT   FTN4.5                             FEAT155G      22     A     
 HISTORY                                                                                   FEAT155G      23     A     
 HISTORY   FEAT155H DECREASE THE SIZE OF FTN BY DECREASING THE SIZE OF THE                 FEAT155H       1     A     
 HISTORY            FTN CONTROL CARD ERROR PROCESSING.                                     FEAT155H       2     A     
 HISTORY            ALSO ELIMINATE USED CELLS AND MOVE OTHER CELLS TO                      FEAT155H       3     A     
 HISTORY            HIGHER OVERLAYS.                                                       FEAT155H       4     A     
 HISTORY            ARS    75/10/26    FTN    APPLIES TO FTN 4.5                           FEAT155H       5     A     
 HISTORY                                                                                   FEAT155H       6     A     
 HISTORY   FEAT155J ADDS CONTROL CARD OPTION ER AND ER=0 FOR FEAT155A (SEE).               FEAT155J       1     A     
 HISTORY            DDM    10/15/75    APPLIES TO FTN 4.5 BOTH MODES                       FEAT155J       2     A     
 HISTORY                                                                                   FEAT155J       3     A     
 HISTORY   FCC*76   UPDATE COPYRIGHT INFO FOR 1976                                         FCC*76         1     A     
 HISTORY            DLD    75/12/05    FTN,FTNRES    APPLIES TO FTN4.5                     FCC*76         2     A     
 HISTORY                                                                                   FCC*76         3     A     
 HISTORY   CP139FC  FTN COMPILER CODE TO SUPPORT 54-TABLES ON OVERLAYS.                    CP139FC        1     A     
 HISTORY            LJM    75/08/25    APPLIES TO FTN 4.6.                                 CP139FC        2     A     
 HISTORY            PXC,DCD  75/10/22  INCORPORATE *RPV/FRA* CORRECTIONS.                  CP139FC        3     A     
 HISTORY            DDM    75/11/03    ADD COMPCOM RELATED CHANGES.                        CP139FC        4     A     
 HISTORY            DCD    75/12/02    MAKE 54-TABLES STANDARD ON ALL MACHINES.            CP139FC        5     A     
 HISTORY                                                                                   CP139FC        6     A     
 HISTORY  FCC0937   REPAIR RECOGNITION OF C$-DEBUG AREA DIRECTIVES THAT USE UPDATE         FCC0937        1     A     
 HISTORY            SEQUENCE NUMBERS AS LINE IDENTIFIERS.  THE IDENTIFIERS WERE            FCC0937        2     A     
 HISTORY            NOT BEING SAVED IN CORRECT ORDER IN AN INTERNAL TABLE.                 FCC0937        3     A     
 HISTORY            ALSO SUPPRESSES COMDECK LISTING IN FORTRAN-CODED C$-DEBUG              FCC0937        4     A     
 HISTORY            SUBROUTINES, USING C/-LIST,NONE DIRECTIVES.                            FCC0937        5     A     
 HISTORY            DCD,ARS  75/10/22  FTN 4.5, OPT, C$-DEBUG OPTION ONLY.                 FCC0937        6     A     
 HISTORY                                                                                   FCC0937        7     A     
 HISTORY   LDBGCOM  CREATE COMDECK FOR C/    LIST,NONE OF DEBUG DECLARATIONS.              FCC0937        8     A     
 HISTORY            ARS    75/10/28    ALL DEBUG ROUTINES IN FTN 4.5                       FCC0937        9     A     
 HISTORY                                                                                   FCC0937       10     A     
 HISTORY   FEAT155EA CORRECT PROBLEMS WITH FEAT155E.                                       FEAT155EA      1     A     
 HISTORY            ARS    75/11/13    FTN    APPLIES TO FTN 4.6                           FEAT155EA      2     A     
 HISTORY                                                                                   FEAT155EA      3     A     
 HISTORY   FEAT155HA REMOVE WORD FROM FTNRES.                                              FEAT155HA      1     A     
 HISTORY            ARS    75/11/13    FTNRES   APPLIES TO FTN 4.6                         FEAT155HA      2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  25    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FEAT155HA      3     A     
 HISTORY   FCC0957  SQZ/SMR - REVISE HANDLING OF ST/ST ELIMINATION SO WE DON"T             FCC0957        1     A     
 HISTORY            INCORRECTLY CLEAR THE *PS* BIT.                                        FCC0957        2     A     
 HISTORY            SIJ    1//1/75     APPLIES TO FTN 4.5 , OPT=1, 2                       FCC0957        3     A     
 HISTORY                                                                                   FCC0957        4     A     
 HISTORY   FCC0985  GPO,GRA - GENERALIZE HANDLING OF LOOPS WITH EPILOGUE POST              FCC0985        1     A     
 HISTORY            STORE NODES TO HANDLE CASE WHERE LOOP HAS MORE THAN ONE.               FCC0985        2     A     
 HISTORY            SIJ    9/6/75      APPLIES TO FTN 4.5 , OPT=2                          FCC0985        3     A     
 HISTORY                                                                                   FCC0985        4     A     
 HISTORY   FCC1097  ELIMINATES PAGE EJECT AFTER LOADER DIRECTIVES IN TS LISTINGS.          FCC1097        1     A     
 HISTORY            SJP    12/18/75    APPLIES TO FTN 4.6 TS                               FCC1097        2     A     
 HISTORY                                                                                   FCC1097        3     A     
 HISTORY   FEAT155F TEST MODE ONLY INTERACTIVE AND BATCH DEBUG PACKAGE.                    FEAT155F       1     A     
 HISTORY            PC     75/10/31    APPLIES TO FTN 4.5.                                 FEAT155F       2     A     
 HISTORY   FEAT155K GENERATE LDSET FOR LIBRARY TSLIB ON KRO/NOS.                           FEAT155K       1     A     
 HISTORY            REQUIRES RELEASE OF THE NEW LIBRARY *TSLIB*.                           FEAT155K       2     A     
 HISTORY            PHM    75/12/11.   FTN 4.6, TS ONLY.                                   FEAT155K       3     A     
 HISTORY                                                                                   FEAT155K       4     A     
 HISTORY   S3143FCA PREVENT DIRECT READ/WRITE TO LCM FOR CYBER 170.                        S3143FCA       1     A     
 HISTORY            SIJ    12/08/75    APPLIES TO FTN 4.6                                  S3143FCA       2     A     
 HISTORY   FEAT155EB CORRECTS PROBLEMS IN FEAT155E CODE.                                   FEAT155EB      1     A     
 HISTORY            ARS    12/31/75    APPLIES TO FTN4.6,FTN4.6(TS)                        FEAT155EB      2     A     
 HISTORY   FEAT155GA CORRECT PROBLEMS IN FEAT155G.                                         FEAT155GA      1     A     
 HISTORY            1.  CORRECT DECK NAMES FOR COMPILE-TIME REPRIVE.                       FEAT155GA      2     A     
 HISTORY            2.  CORRECT PROGRAM UNIT NAME PROCESSING.                              FEAT155GA      3     A     
 HISTORY            3.  CORRECT COMMON BLOCK MAP GENERATION.                               FEAT155GA      4     A     
 HISTORY            MRR, ARS    75/1/9      APPLIES TO FTN 4.5  420U                       FEAT155GA      5     A     
 HISTORY                                                                                   FEAT155GA      6     A     
 HISTORY   FEAT155FA ADD MISSING IF TEST TO FEAT155F.                                      FEAT155FA      1     A     
 HISTORY            ARS    75/01/13     TSNAP,SNAP     APPLIES TO FTN 4.6                  FEAT155FA      2     A     
 HISTORY                                                                                   FEAT155FA      3     A     
 HISTORY   *L428*    ********************************************************************* *L428*         1     A     
 HISTORY   FCC0807  ARITH - SET BIT IN WORDB IF VAR IS REFED AS ARG TO *LOCF*              FCC0807        1     A     
 HISTORY            UDT/AUT - CONSIDER REF TO *LOCF* EQUIVALENT TO BEING IN COMMON         FCC0807        2     A     
 HISTORY            SIJ    12/15/75    APPLIES TO FTN 4.5 OPT=2                            FCC0807        3     A     
 HISTORY                                                                                   FCC0807        4     A     
 HISTORY   FCC0825  ISSUE NON-ANSI DIAGNOSTIC FOR DO LOOP TERMINATING WITH A               FCC0825        1     A     
 HISTORY            LOGICAL IF , THE OBJECT OF WHICH IS A GO TO, IF, RETURN,               FCC0825        2     A     
 HISTORY            STOP, PAUSE.                                                           FCC0825        3     A     
 HISTORY            ERH    75/11/18    APPLIES TO FTN4.5                                   FCC0825        4     A     
 HISTORY                                                                                   FCC0825        5     A     
 HISTORY   FCC0868  ELIMINATE MULTIPLY BY ONE IGNORED DIAGNOSTIC FOR SUBSCRIPT             FCC0868        1     A     
 HISTORY            MULTIPLIERS GENERATED BY THE COMPILER.                                 FCC0868        2     A     
 HISTORY            MRR    75/11/12    APPLIES TO FTN 4.6, TS.                             FCC0868        3     A     
 HISTORY                                                                                   FCC0868        4     A     
 HISTORY   FCC0949  DOPROC - DO NOT ISSUE SPURIOUS DIAGNOSTIC FOR LOOP CONTROL             FCC0949        1     A     
 HISTORY            VARIABLE WHEN IT APPEARS IN A DATA STATEMENT.                          FCC0949        2     A     
 HISTORY            SIJ    76/02/02    APPLIES TO FTN 4.6                                  FCC0949        3     A     
 HISTORY                                                                                   FCC0949        4     A     
 HISTORY   FCC0964  WHEN TESTING TAGS FOR AN ARRAY LOAD, IGNORE THE BIAS FIELD             FCC0964        1     A     
 HISTORY            WHEN THE SUBSCRIPT OPERAND IS INTERMEDIATE.                            FCC0964        2     A     
 HISTORY            MRR    75/11/07    APPLIES TO FTN 4.6, TS.                             FCC0964        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  26    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FCC0964        4     A     
 HISTORY   FCC0966  INTERPRET RANF AS AN INTRINSIC FUNCTION.  GENERATE PROPER              FCC0966        1     A     
 HISTORY            CODE.  ELIMINATE ABNORMAL BIT.                                         FCC0966        2     A     
 HISTORY            MRR    76/02/19    APPLIES TO FTN 4.6, TS.                             FCC0966        3     A     
 HISTORY                                                                                   FCC0966        4     A     
 HISTORY   FCC1007  PRECHECK FOR *EOS* UNSTACKING A LEFT PAREN.  QUIT THEN.                FCC1007        1     A     
 HISTORY            MRR    75/12/18    APPLIES TO FTN 4.6, TS.                             FCC1007        2     A     
 HISTORY                                                                                   FCC1007        3     A     
 HISTORY   FCC1010  BAD CODE GENERATED FOR WRITE STMNT WITH I/O ELEMENT CONTAINING         FCC1010        1     A     
 HISTORY            SUBSCRIPTED SUBSCRIPT.     REGISTER INTO WHICH THE SUBSCRIPT           FCC1010        2     A     
 HISTORY            WAS LOADED WAS NOT BEING LOCKED BEFORE ENTERING  PLUG  CODE,           FCC1010        3     A     
 HISTORY            WHICH THEN RE-USED THE REGISTER, THUS DESTROYING THE NEEDED            FCC1010        4     A     
 HISTORY            DATA.                                                                  FCC1010        5     A     
 HISTORY            LLB/MRR/ERH/LDH/PHM  76/1/21  APPLIES TO FTN 4.6(TS)                   FCC1010        6     A     
 HISTORY                                                                                   FCC1010        7     A     
 HISTORY   FCC1012  ADD CODE TO *CIA* IN DECK *REG* SUCH THAT WHEN CLEARING                FCC1012        1     A     
 HISTORY            ASSOCIATES, ANY REGFILE ENTRY WITH A USE COUNT OF 0 (ZERO)             FCC1012        2     A     
 HISTORY            ARE ZEROED OUT.                                                        FCC1012        3     A     
 HISTORY            LDH    76/1/20     APPLIES TO FTN 4.6 (TS).                            FCC1012        4     A     
 HISTORY                                                                                   FCC1012        5     A     
 HISTORY   FCC1015  BAD CODE GENERATED FOR FORMAT WITH STRING LONGER THAN 99               FCC1015        1     A     
 HISTORY            CHARS.  ALGORITM FOR TRANSLATING STRING DELIMITED CONSTANTS            FCC1015        2     A     
 HISTORY            CORRECTED TO HANDLE 99 CHARS FILLING PRECISELY TEN 60-BIT              FCC1015        3     A     
 HISTORY            WORDS.                                                                 FCC1015        4     A     
 HISTORY            ERH    75/11/12    APPLIES TO FTN 4.5,TS                               FCC1015        5     A     
 HISTORY                                                                                   FCC1015        6     A     
 HISTORY   FCC1029  SQZ/SMR - BYPASS SQUEEZE IF LD IF IH.LD BIT IS SET SO WE DONT          FCC1029        1     A     
 HISTORY            SQUEEZE PREFETCHS WHICH HAVE THE SAME INITIAL FETCH.                   FCC1029        2     A     
 HISTORY            SIJ    11/11/75    APPLIES TO FTN 4.5 , OPT=2                          FCC1029        3     A     
 HISTORY                                                                                   FCC1029        4     A     
 HISTORY   FCC1039  GRA/SCT - SET *EU* BIT FOR INC VALUE IF IT IS NOT IN *RCT*             FCC1039        1     A     
 HISTORY            SIJ    11/11/75    APPLIES TO FTN 4.5 OPT=1,2                          FCC1039        2     A     
 HISTORY                                                                                   FCC1039        3     A     
 HISTORY   FCC1040  GRA - DO NOT ASSIGN A *CM* TO A REGISTER IN AN OUTER LOOP IF           FCC1040        1     A     
 HISTORY            THE *CR* WAS DEFINED IN AN INNER LOOP.                                 FCC1040        2     A     
 HISTORY            SIJ    11/14/75    APPLIES TO FTN 4.5 , OPT=2                          FCC1040        3     A     
 HISTORY                                                                                   FCC1040        4     A     
 HISTORY   FCC1045  PREVENT INCORRECT PIDL TABLE GENERATION FOR LCM BLOCKS                 FCC1045        1     A     
 HISTORY            OF LENGTH 131071.                                                      FCC1045        2     A     
 HISTORY            MAH    75/11/18    APPLIES TO FTN 4.5 .                                FCC1045        3     A     
 HISTORY                                                                                   FCC1045        4     A     
 HISTORY   FCC1046  CORRECT VARIOUS DIAGNOSTICS, BOTH COMMISSIONS AND OMISSIONS.           FCC1046        1     A     
 HISTORY                   CHARACTER MAPPING CONTAINS GARBAGE FOR SB SNAP.                 FCC1046        2     A     
 HISTORY                   STRING BUFFER SNAP INTERPRETS CONTROL CARD SWITCH               FCC1046        3     A     
 HISTORY                        (SNAP=G) BACKWARDS -- THE OLD WAY.                         FCC1046        4     A     
 HISTORY            MRR    75/11/17    APPLIES TO FTN 4.6, TS.                             FCC1046        5     A     
 HISTORY            PHM    76/02/02.   APPLIES TO FTN TS ONLY.                             FCC1046        6     A     
 HISTORY                                                                                   FCC1046        7     A     
 HISTORY   FCC1055  MODIFY SKELETONS USED BY TS FOR *AINT*, *AMOD*, *DIM*,                 FCC1055        1     A     
 HISTORY            AND *IDIM* SO THAT RANGES AND RESULTS WILL MATCH 2-PASS.               FCC1055        2     A     
 HISTORY            MAH    75/11/19    APPLIES TO FTN 4.5 TS ONLY.                         FCC1055        3     A     
 HISTORY                                                                                   FCC1055        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  27    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCC1056  MCG/CRA - CHECK TO SEE IF RESULT IN ST-REG IS *PRS* TO DECIDE          FCC1056        1     A     
 HISTORY            IF NEED A *XMT* BACK.                                                  FCC1056        2     A     
 HISTORY            BDT/RIO - FORCE OPERATIONS WHICH *PRS* TO AN X-REGISTER TO             FCC1056        3     A     
 HISTORY            COME AFTER ALL STORE INSTRUCTIONS.                                     FCC1056        4     A     
 HISTORY            SIJ - 11/25/75     APPLIES TO FTN 4.5 , OPT=1,2                        FCC1056        5     A     
 HISTORY                                                                                   FCC1056        6     A     
 HISTORY   FCC1058  CLEAR THE ASSIGN FLAG BEFORE IDENTIFYING A STATEMENT LABEL             FCC1058        1     A     
 HISTORY            WHEN THE ASSIGN STATEMENT IS NOT IN A DO LOOP.                         FCC1058        2     A     
 HISTORY            MRR    75/12/02    APPLIES TO FTN 4.6, TS.                             FCC1058        3     A     
 HISTORY                                                                                   FCC1058        4     A     
 HISTORY   FCC1062  SKIP AN ILLEGAL *=* WHEN DIAGNOSED.                                    FCC1062        1     A     
 HISTORY            MRR    75/12/01    APPLIES TO FTN 4.6, TS.                             FCC1062        2     A     
 HISTORY                                                                                   FCC1062        3     A     
 HISTORY   FCC1068  CLEAN UP ERROR REPORTING OF LIST DIRECTED I/O.                         FCC1068        1     A     
 HISTORY            ERH    75/12/3     APPLIES TO FTN 4.6.                                 FCC1068        2     A     
 HISTORY                                                                                   FCC1068        3     A     
 HISTORY   FCC1070  CHANGE *AMOD* ALGORITHM FOR INCREASED SPEED AND ACCURACY.              FCC1070        1     A     
 HISTORY            MAH    75/12/10    APPLIES TO FTN 4.6 .                                FCC1070        2     A     
 HISTORY                                                                                   FCC1070        3     A     
 HISTORY   FCC1082  ARITH/IXFN - ENSURE THAT COMPS IS IN *DATA.* BLOCK .                   FCC1082        1     A     
 HISTORY            SIJ    12/12/75    APPLIES TO FTN 4.6                                  FCC1082        2     A     
 HISTORY                                                                                   FCC1082        3     A     
 HISTORY   FCC1085  GOTO/MACROX - CORRECT COMPUTED GOTO MACRO TO HANDLE LINE               FCC1085        1     A     
 HISTORY            NUMBERS .GT. 4095 .                                                    FCC1085        2     A     
 HISTORY            SQZ - REDUCE FMA 0 TO A *CLR* INSTRUCTION.                             FCC1085        3     A     
 HISTORY            SIJ    12/12/75    APPLIES TO FTN 4.5 , OPT=0,1,2                      FCC1085        4     A     
 HISTORY                                                                                   FCC1085        5     A     
 HISTORY   FCC1088  REMOVE SPURIOUS ENTRIES FROM *UDT* IN OPT=2 BY INTRODUCING             FCC1088        1     A     
 HISTORY            A *LDO* (LOAD ONLY) BIT IN SYMTAB AND FOLDING ALL HOL. AND             FCC1088        2     A     
 HISTORY            CON. ENTRIES INTO UDI=1 ENTRY.  FTNTEXT,LSTPRO,LISTIO,GPO,UDT.         FCC1088        3     A     
 HISTORY            SIJ    12/19/75    APPLIES TO FTN 4.6 , OPT=2                          FCC1088        4     A     
 HISTORY                                                                                   FCC1088        5     A     
 HISTORY   FCC1091  OUTPUT XMIT FOR ANY MULTIPLY BY 1 IN ARITH TO FORCE ST.                FCC1091        1     A     
 HISTORY            MAH    75/12/17    APPLIES TO FTN 4.6 .                                FCC1091        2     A     
 HISTORY                                                                                   FCC1091        3     A     
 HISTORY   FCC1092  PREVENT OFFSET OF COMPLEX BUFFER IO FWA"S WHICH ARE REDUCED            FCC1092        1     A     
 HISTORY            TO LOADS BY PROPERLY INTERROGATING *ABIO* IN IXFN.                     FCC1092        2     A     
 HISTORY            MAH    75/12/18    APPLIES TO FTN 4.6 .                                FCC1092        3     A     
 HISTORY                                                                                   FCC1092        4     A     
 HISTORY   FCC1096  CLEAN UP FILL. SETTINGS FOR DIAGNOSTICS.                               FCC1096        1     A     
 HISTORY            ADD CODE TO INCREASE TEST-MODE ONLY FIELD LENGTH.                      FCC1096        2     A     
 HISTORY            MRR    75/12/18    APPLIES TO FTN 4.6, TS.                             FCC1096        3     A     
 HISTORY            SJP    76/1/9      APPLIES TO FTN 4.6                                  FCC1096        4     A     
 HISTORY                                                                                   FCC1096        5     A     
 HISTORY   FCC1107  GRA/IRA - CORRECT FCC0985 TO SEARCH ALL BLOCKS IN *RXI*                FCC1107        1     A     
 HISTORY            THAT HAVE THE SAME PRED WHEN LOOKING FOR FALL THROUGH NODES.           FCC1107        2     A     
 HISTORY            SIJ    1/15/76     APPLIES TO FTN 4.6 , OPT=2                          FCC1107        3     A     
 HISTORY                                                                                   FCC1107        4     A     
 HISTORY   FCC1108  REVISE CODE GENERATED FOR INTRINSIC MIN AND MAX FUNCTIONS TO           FCC1108        1     A     
 HISTORY            ALLOW MORE COMMON SUBEXPRESSION SQUEEZING.                             FCC1108        2     A     
 HISTORY            SJP    1/9/76      APPLIES TO FTN 4.6                                  FCC1108        3     A     
 HISTORY                                                                                   FCC1108        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  28    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCC1119  OUTPTK - CORRECT A,R AND T FORMAT PROCESSING.                          FCC1119        1     A     
 HISTORY            SIJ - 1/17/76 - APPLIES TO FTN 4.6                                     FCC1119        2     A     
 HISTORY                                                                                   FCC1119        3     A     
 HISTORY   FCC1123  CORRECT ERROR IN DUMPING BLOCKS ADJACENT TO 1 WORD FREE SPACE.         FCC1123        1     A     
 HISTORY            SJP    3/3/76      APPLIES TO FTN 4.6                                  FCC1123        2     A     
 HISTORY                                                                                   FCC1123        3     A     
 HISTORY   FCC1124  ARITH - DOES NOT DIAGNOSE SYNTAX ERROR IN IF STMT.                     FCC1124        1     A     
 HISTORY            SJP    2/12/76     APPLIES TO FTN 4.6                                  FCC1124        2     A     
 HISTORY                                                                                   FCC1124        3     A     
 HISTORY   FCC1126  BDT/FIL MARK REDEFINITION STORE IN DESCR. SO WE DONT SET THE           FCC1126        1     A     
 HISTORY            XU BIT WHEN NOT NECESSARY.                                             FCC1126        2     A     
 HISTORY            SIJ    2/4/76      APPLIES TO FTN 4.6                                  FCC1126        3     A     
 HISTORY                                                                                   FCC1126        4     A     
 HISTORY   FCC1127  GRA/DAA - ALLOW PREFETCHING IN CASE -  I = I+1 $  =A(I)                FCC1127        1     A     
 HISTORY            SIJ    1/27/76     APPLIES TO FTN 4.6 , OPT=2                          FCC1127        2     A     
 HISTORY                                                                                   FCC1127        3     A     
 HISTORY   FCC1129  CORRECT INCORRECT HANDLING OF ERROR CONDITION DURING                   FCC1129        1     A     
 HISTORY            EQUIVALENCE PROCESSING. (ERROR - MORE THAN ONE MEMBER OF               FCC1129        2     A     
 HISTORY            EQUIVALENCE CLASS IN COMMON)                                           FCC1129        3     A     
 HISTORY            ARS    76/2/6      DPCLOSE     APPLIES TO FTN 4.6                      FCC1129        4     A     
 HISTORY                                                                                   FCC1129        5     A     
 HISTORY   FCC1147  CORRECT *CONVERT* SUCH THAT WHEN PROCESSING A T.DBL                    FCC1142        1     A     
 HISTORY            CONSTANT AND INTEGER DOUBLE PRECISION OVERFLOW HAS                     FCC1142        2     A     
 HISTORY            OCCURRED, *CONVERT* WILL HANDLE THE EXPONENT SEARCH                    FCC1142        3     A     
 HISTORY            CORRECTLY WHEN OVERFLOW POINT TO EXPONENT SPAN                         FCC1142        4     A     
 HISTORY            DOES NOT CROSS WORD BOUNDARIES.                                        FCC1142        5     A     
 HISTORY            LDH.   2/6/76      APPLIES TO FTN 4.6                                  FCC1142        6     A     
 HISTORY                                                                                   FCC1142        7     A     
 HISTORY   FCC1155  CORRECT TEST FOR REDUCTION OF DIVIDE BY 1.0.                           FCC1155        1     A     
 HISTORY            MRR    76/02/09    APPLIES TO FTN 4.6 TS.                              FCC1155        2     A     
 HISTORY                                                                                   FCC1155        3     A     
 HISTORY   FCC1163  APPEND *.* TO BEF NAME IN OL.                                          FCC1163        1     A     
 HISTORY            MRR    76/02/19    LIST                                                FCC1163        2     A     
 HISTORY                                                                                   FCC1163        3     A     
 HISTORY   FCC1169  LCM BIT WILL BE SET FOR I/O ELEMENTS SPECIFIED FOR SAME IN             FCC1169        1     A     
 HISTORY            A *LEVEL* STATEMENT.  *PLUG* TYPE AP-LIST ENTRIES WILL BE              FCC1169        2     A     
 HISTORY            DISTINGUISHABLE FOR LCM OR SCM ASSOCIATED VARIABLES.                   FCC1169        3     A     
 HISTORY            ERH    76/2/20     APPLIES TO FTN 4.6,TS.                              FCC1169        4     A     
 HISTORY                                                                                   FCC1169        5     A     
 HISTORY   FCC1200  FIXES MISCELLANEOUS BUGS IN FEAT155E.                                  FCC1200        1     A     
 HISTORY               1.  CORRECTS MAXIMUM PAGE LENGTH.                                   FCC1200        2     A     
 HISTORY               2.  CORRECTS GENERATION OF FINAL EOR.                               FCC1200        3     A     
 HISTORY               3.  CORRECTS PROCESSING OF THE OPENING OF OUTPUT FILE.              FCC1200        4     A     
 HISTORY               4.  CORRECTS PROGRAM STATISTICS LINE IN PW MODE.                    FCC1200        5     A     
 HISTORY            ARS    76/03/10    APPLIES TO FTN 4.6 LEVEL 420                        FCC1200        6     A     
 HISTORY                                                                                   FCC1200        7     A     
 HISTORY   FCC1208  ADDRESS KEPT IN B6 DURING CODE GENERATION CAN BE                       FCC1208        1     A     
 HISTORY            INVALIDATED IF TABLES MOVE AT INOPPORTUNE TIME.                        FCC1208        2     A     
 HISTORY                   FIX GST (IN REG) TO RETURN LOCATION OF TAG AS AN                FCC1208        3     A     
 HISTORY            ADDRESS COUPLE:  (TABLE, OFFSET), AND CALLERS WHO PRESERVE             FCC1208        4     A     
 HISTORY            THE RESULT TO REMEMBER BOTH PARTS.                                     FCC1208        5     A     
 HISTORY                   REGISTER ASSOCIATE FOR (X0) WAS NOT BEING CLEARED AT            FCC1208        6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  29    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            EXIT FROM CAI.  CAUSED VARIOUS SYMPTOMS, FIELD LENGTH                  FCC1208        7     A     
 HISTORY            SENSITIVE.                                                             FCC1208        8     A     
 HISTORY                   ALSO, TABLE SNAP WAS COMPUTING SLOP INCORRECTLY.                FCC1208        9     A     
 HISTORY            PARSED FILE SNAP INCORRECT.                                            FCC1208       10     A     
 HISTORY            PHM/LDH   76/04/14       APPLIES TO FTN 4.6 (TS).                      FCC1208       11     A     
 HISTORY                                                                                   FCC1208       12     A     
 HISTORY   FCC1215  DELETE ERRANEOUS TEST FOR BAD FORMAT LABEL.                            FCC1215        1     A     
 HISTORY            LDH    3/23/76     APPLIES TO FTN 4.6 TS                               FCC1215        2     A     
 HISTORY            ERH    3/23/76     APPLIES TO FTN 4.6 TS                               FCC1215        3     A     
 HISTORY                                                                                   FCC1215        4     A     
 HISTORY   FCC1224  LOCK REGISTER *A5* IN *PIG* SUCH THAT ANY CALLS BY *PIG*               FCC1224        1     A     
 HISTORY            TO *DPT* WILL ENSURE THAT THE *LONG-FILE* POINTER REGISTER             FCC1224        2     A     
 HISTORY            (A5) WILL REMAIN CONSTANT RELATIVE TO (TT.LF) SHOULD                   FCC1224        3     A     
 HISTORY            THE TABLES CRASH.                                                      FCC1224        4     A     
 HISTORY            LDH    76/04/09    APPLIES TO FTN 4.6 (TS)                             FCC1224        5     A     
 HISTORY                                                                                   FCC1224        6     A     
 HISTORY   *L433*    ********************************************************************* *L433*         1     A     
 HISTORY   FCC0976  ENTERING NON-INNER LOOP WITHOUT EXITS CAUSED AN INFORMATIVE            FCC0976        1     A     
 HISTORY            RATHER THAN FATAL ERROR. THIS PROBLEM IS FIXED BY REVERSING            FCC0976        2     A     
 HISTORY            THE ORDER OF THE TESTS.                                                FCC0976        3     A     
 HISTORY            DDM    05/17/76    APPLIES TO FTN 4.6                                  FCC0976        4     A     
 HISTORY                                                                                   FCC0976        5     A     
 HISTORY   FCC0995  PROPERLY DENOTE PLUGGED AP-LIST ENTRIES FOR FORMAT DESIGNATORS         FCC0995        1     A     
 HISTORY            AND ENCODE/DECODE STRING ADDRESSES.                                    FCC0995        2     A     
 HISTORY            MRR    76/05/13    IO     APPLIES TO FTN 4.6, TS.                      FCC0995        3     A     
 HISTORY                                                                                   FCC0995        4     A     
 HISTORY   FCC1134  REPAIR LOCF IN TS TO ALLOW LCM ITEMS AND DIAGNOSE INVALID              FCC1134        1     A     
 HISTORY            ARGUMENTS.                                                             FCC1134        2     A     
 HISTORY            MAH    76/3/12     APPLIES TO FTN 4.6 TS.                              FCC1134        3     A     
 HISTORY                                                                                   FCC1134        4     A     
 HISTORY   FCC1175  ELIMINATE EXPLICIT LOAD FROM MASK CODE SKELETON.                       FCC1175        1     A     
 HISTORY            MRR    76/03/02    GEN   APPLIES TO FTN 4.6, TS.                       FCC1175        2     A     
 HISTORY                                                                                   FCC1175        3     A     
 HISTORY   FCC1191  CFA - GO DEPTH FIRST TO ADD BLOCKS TO AN INTERVAL IF A                 FCC1191        1     A     
 HISTORY            SUCCESSOR NODE HAS ONLY 1 PREDECESSOR SO HOLDING BLOCK DOESN"T         FCC1191        2     A     
 HISTORY            GET SEPERATED FROM ITS IMMEDIATE PREDECESSOR.                          FCC1191        3     A     
 HISTORY            SIJ    3/17/76     APPLIES TO FTN 4.5, OPT=2                           FCC1191        4     A     
 HISTORY                                                                                   FCC1191        5     A     
 HISTORY   FCC1196  GRA/IRA/ST - DO NOT DESTROY R-NUMBER IN B-REG OF A ST-PRED IF          FCC1196        1     A     
 HISTORY            VAR IS NOT IN A ST-REGISTER.                                           FCC1196        2     A     
 HISTORY            SIJ    3/12/76     APPLIES TO FTN 4.5, OPT=2                           FCC1196        3     A     
 HISTORY                                                                                   FCC1196        4     A     
 HISTORY   FCC1201  PROVIDE AN EXTENDED POINTER FIELD FOR STATEMENT FUNCTIONS.             FCC1201        1     A     
 HISTORY            MRR    76/03/12    TSTEXT,ASF  APPLIES TO FTN 4.6, TS.                 FCC1201        2     A     
 HISTORY                                                                                   FCC1201        3     A     
 HISTORY   FCC1206  CORRECT ADDRESSING OF LCM RESIDENTS CELL IN LCM=I MODE.                FCC1206        1     A     
 HISTORY            ARS    76/3/30     APPLIES TO 4.6 LEVEL 428                            FCC1206        2     A     
 HISTORY                                                                                   FCC1206        3     A     
 HISTORY   FCC1210  WHEN PROCESSING CONSTANT SUBSCRIPTS, RETAIN BOTH THE SUBSCRIPT         FCC1210        1     A     
 HISTORY            AND THE SUBSCRIPT INDICATOR.                                           FCC1210        2     A     
 HISTORY            MRR    76/04/02    GEN     APPLIES TO FTN 4.6, TS.                     FCC1210        3     A     
 HISTORY                                                                                   FCC1210        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  30    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCC1211  THIS CODE FIXES A PROBLEM THAT OCCURRED WHEN A *C/-LIST,NONE*          FCC1211        1     A     
 HISTORY            WAS IN EFFECT AT *END* LINE TIME IN A *BLOCKDATA* SUBPROGRAM           FCC1211        2     A     
 HISTORY            THAT --                                                                FCC1211        3     A     
 HISTORY              1. WAS COMPILED WITH *EL=A* SELECTED, AND                            FCC1211        4     A     
 HISTORY              2. CONTAINED NO FATAL-TO-EXECUTION ERRORS, AND                       FCC1211        5     A     
 HISTORY              3. DID CONTAIN INFORMATIVE AND/OR ANSI ERRORS...WHEW                 FCC1211        6     A     
 HISTORY            THIS PROBLEM OCCURRED BECAUSE, DUE TO BAD FLAG CHECKING, THE           FCC1211        7     A     
 HISTORY            (2,2) OVERLAY GOT LOADED FOR A *BLOCKDATA* SUBPROGRAM.                 FCC1211        8     A     
 HISTORY            PC     76/04/28    APPLIES TO FTN 4.6.                                 FCC1211        9     A     
 HISTORY                                                                                   FCC1211       10     A     
 HISTORY   FCC1213  FAX/L4.CKRB - CLEAR RBTEMP IF RELOCATION TYPE IS ABSOLUTE.             FCC1213        1     A     
 HISTORY            SIJ    3/24/76     APPLIES TO FTN 4.6, OPT=0,1,2                       FCC1213        2     A     
 HISTORY                                                                                   FCC1213        3     A     
 HISTORY   FCC1222  SET VARIABLE BIT FOR FORMAL PARAMETERS USED AS VARIABLE                FCC1222        1     A     
 HISTORY            DIMENSIONS.                                                            FCC1222        2     A     
 HISTORY            MRR    76/04/01    TSTEXT,LEX,DECL  APPLIES TO FTN 4.6, TS.            FCC1222        3     A     
 HISTORY                                                                                   FCC1222        4     A     
 HISTORY   FCC1226  DETECT SYNTAX ERROR OF FORM  AR(I,) .                                  FCC1226        1     A     
 HISTORY            MAH    76/5/26     APPLIES TO FTN 4.6 .                                FCC1226        2     A     
 HISTORY                                                                                   FCC1226        3     A     
 HISTORY   FCC1227  GRA/IRA - LD FPADDR IS EQUIVALENT TO A *STT* IF IT IS AN *AC*          FCC1227        1     A     
 HISTORY            SIJ    4/16/76     APPLIES TO FTN 4.5, OPT=1,2                         FCC1227        2     A     
 HISTORY                                                                                   FCC1227        3     A     
 HISTORY            TRACER (SEE,RAT,RCT)                                                   FCC1227        4     A     
 HISTORY   FCC1237  ADD SYMBOL TABLE CLASS BIT TO DETERMINE IF A SYMBOL HAS                FCC1237        1     A     
 HISTORY            APPEARED IN A TYPE DECLARATION.  ALSO REMOVE THE IBM * TYPING          FCC1237        2     A     
 HISTORY            KLUDGE.                                                                FCC1237        3     A     
 HISTORY            MRR    76/04/08    TSTEXT,ERRORS,MAIN,TYPE  APPLIES TO FTN 4.6         FCC1237        4     A     
 HISTORY                                                                                   FCC1237        5     A     
 HISTORY   FCC1238  DIAGNOSE EXTRANEOUS LABELS, ETC. ON ARITHMETIC IF.                     FCC1238        1     A     
 HISTORY            MRR    76/04/06    ERRORS, IF   APPLIES TO FTN 4.6, TS.                FCC1238        2     A     
 HISTORY                                                                                   FCC1238        3     A     
 HISTORY   FCC1239  SUPPRESS SQUEEZING OF FP(I-LOCF(FP)) AS LOSS OF SEMANTIC INFO.         FCC1239        1     A     
 HISTORY            IS DANGEROUS TO PASS 2.                                                FCC1239        2     A     
 HISTORY            MAH    4/27/76     APPLIES TO FTN 4.6 .                                FCC1239        3     A     
 HISTORY                                                                                   FCC1239        4     A     
 HISTORY   FCC1247  ASF/AFD,DECL/EQU   CATCHES PREVIOUS DEFINITION OF AN                   FCC1247        1     A     
 HISTORY            ASF NAME IN ANY STATEMENT OTHER THAN TYPE OR ASF.  IN CASE OF          FCC1247        2     A     
 HISTORY            REDEFINITION OF ASF, FIXES POINTER INSERTION WHICH                     FCC1247        3     A     
 HISTORY            WAS CAUSING MODE ERROR.  CAUSES EQUIV PROCESSOR                        FCC1247        4     A     
 HISTORY            TO SET VAR BIT.                                                        FCC1247        5     A     
 HISTORY            CXM    06/22/76    APPLIED AGAINST 4.6 TS                              FCC1247        6     A     
 HISTORY                                                                                   FCC1247        7     A     
 HISTORY   FCC1254  GPO/MIE - CORRECT MOTION OF INVARIANT FUNCTION CALLS SO THAT           FCC1254        1     A     
 HISTORY            ALL DEF"S FOLLOWING THE *RJX* ARE MOVED OUT AFTER IT.                  FCC1254        2     A     
 HISTORY            ALSO - MAKE REGISTERS AVAILABLE FOR ASSIGNMENT IN *GRA* IF             FCC1254        3     A     
 HISTORY            ALL EXT-REFS ARE MOVED OUT OF THE LOOP.                                FCC1254        4     A     
 HISTORY            SIJ    5/7/76      APPLIES TO FTN 4.6 , OPT=2                          FCC1254        5     A     
 HISTORY                                                                                   FCC1254        6     A     
 HISTORY   FCC1259  PRODUCE ANSI DIAGNOSTIC FOR SEVEN CHARACTER SYMBOLS.                   FCC1259        1     A     
 HISTORY            MRR    76/04/26    ERRORS,ALLOC,DECL  APPLIES TO FTN 4.6, TS.          FCC1259        2     A     
 HISTORY                                                                                   FCC1259        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  31    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCC1274  CORRECT VARIOUS ERROR AND DIAGNOSTIC MESSAGES.                         FCC1274        1     A     
 HISTORY            MRR    76/05/07    ERRORS,HEADER,MAIN,KEY,DECL                         FCC1274        2     A     
 HISTORY                               APPLIES TO FTN 4.6, TS.                             FCC1274        3     A     
 HISTORY                                                                                   FCC1274        4     A     
 HISTORY   FCC1275  FOR BUFFER IN/OUT OF COMPLEX AND DBL PRECISION VARIABLES,              FCC1275        1     A     
 HISTORY            THE LWA PARAM IN APLIST MUST BE INCREMENTED BY ONE.                    FCC1275        2     A     
 HISTORY            ERH    76/5/14     APPLIES TO FTN 4.6,TS.                              FCC1275        3     A     
 HISTORY                                                                                   FCC1275        4     A     
 HISTORY   FCC1283  THE ERROR MESSAGE EXTRACTOR FOR THE FTN REFERENCE MANUAL               FCC1283        1     A     
 HISTORY            USES THE SECOND PARAMETER OF THE ERMSG MACRO TO DETERMINE THE          FCC1283        2     A     
 HISTORY            ERROR SEVERITY.  THIS IS THE ONLY USE OF THIS PARAMETER.  THE          FCC1283        3     A     
 HISTORY            PARAMETER ON MESSAGE NUMBER 306 DISAGREED WITH ACTUAL MESSAGE          FCC1283        4     A     
 HISTORY            USAGE.  IT HAS NOW BEEN CHANGED.                                       FCC1283        5     A     
 HISTORY            DDM    05/21/76    APPLIES TO FTN 4.6                                  FCC1283        6     A     
 HISTORY                                                                                   FCC1283        7     A     
 HISTORY   FCC1290  BDT/SIO - SET PRIORITIES OF TERMINAL INSTRUCTIONS ST"S AND             FCC1290        1     A     
 HISTORY            THOSE THAT *PRS* ) SO THAT B-OPERAND OF ILS/IRS ALWAYS COMES           FCC1290        2     A     
 HISTORY            IMMEDIATELY BEFORE THE SHIFT INSTRUCTION.                              FCC1290        3     A     
 HISTORY            SIJ    5/20/76     APPLIES TO FTN 4.6, OPT=2                           FCC1290        4     A     
 HISTORY                                                                                   FCC1290        5     A     
 HISTORY   FCC1293  PAR/POP ORDER OF OCTAL CONSTANTS SHOULD NOT BE CHANGED                 FCC1293        1     A     
 HISTORY            MMF    06/02/76    APPLIED AGAINST FTN 4.6 TS.                         FCC1293        2     A     
 HISTORY                                                                                   FCC1293        3     A     
 HISTORY   FCC1293  CONRED/PCA  MODE OF RESULT OF ARITHMETIC OPERATION                     FCC1293        4     A     
 HISTORY            ON OCTAL CONSTANTS SHOULD BE INTEGER.                                  FCC1293        5     A     
 HISTORY            MMF    06/02/76    APPLIED AGAINST FTN 4.6 TS.                         FCC1293        6     A     
 HISTORY                                                                                   FCC1293        7     A     
 HISTORY   FCC1295  CORRECT DIAGNOSIS OF INFINITE AND INDEFINITE CONSTANTS.                FCC1295        1     A     
 HISTORY            MRR    76/05/17    ERRORS,CONRED    APPLIES TO FTN 4.6, TS.            FCC1295        2     A     
 HISTORY                                                                                   FCC1295        3     A     
 HISTORY   FCC1314  RESTORE THE NULL DO LOOP WARNING DIAGNOSTIC.                           FCC1314        1     A     
 HISTORY            MRR    76/06/01    DO   APPLIES TO FTN 4.6, TS.                        FCC1314        2     A     
 HISTORY                                                                                   FCC1314        3     A     
 HISTORY   FCCT001  THIS CODE CONTAINS /DBG=IDP/ INTERFACES FOR *TS* AND *OPT*             FCCT001        1     A     
 HISTORY            PC     76/05/10    APPLIES TO FTN 4.6.                                 FCCT001        2     A     
 HISTORY   FCCT002  FTN - MODIFY *LOVER* TO LOAD FROM RANDOM FILE IF *LINK* HAS            FCCT002        1     A     
 HISTORY            FILLED IN DISK ADDRESS"S IN IN THE *INDEX BUFFER *                     FCCT002        2     A     
 HISTORY            DDM    76/05/10    APPLIES TO FTN 4.6.                                 FCCT002        3     A     
 HISTORY                                                                                   FCCT002        4     A     
 HISTORY   FCCT003  SPP ADDITIONS FOR REJ AND IVG.                                         FCCT003        1     A     
 HISTORY            DDM    76/05/10    APPLIES TO FTN 4.6.                                 FCCT003        2     A     
 HISTORY                                                                                   FCCT003        3     A     
 HISTORY   DBG0001  FIXES THE FOLLOWING PROBLEMS IN *COMDECK DBG=IDP* --                   DBG0001        1     A     
 HISTORY              1. FOR THE FOLLOWING IDP COMMANDS--                                  DBG0001        2     A     
 HISTORY                   REG,X6                                                          DBG0001        3     A     
 HISTORY                 SET B,1       (ANY STMT THAT CALLED PARSER *PAS*)                 DBG0001        4     A     
 HISTORY                   REG,7                                                           DBG0001        5     A     
 HISTORY                 REGISTER TYPE (*X* IN THIS EXAMPLE) WAS FORGOTTEN FOR             DBG0001        6     A     
 HISTORY                 *REG 7* COMMAND.                                                  DBG0001        7     A     
 HISTORY              2. WHEN AN IDP GENERATED BREAKPOINT WAS PLACED AT A WORD             DBG0001        8     A     
 HISTORY                 CONTAINING AN *RJ* INSTRUCTION, AND THEN THE *RJ*                 DBG0001        9     A     
 HISTORY                 INSTRUCTION WAS STEPPED, THE /EQ *+1/ GENERATED BY *RJ*           DBG0001       10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  32    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                 WAS INCORRECT.                                                    DBG0001       11     A     
 HISTORY            PC     76/3/20     APPLIES TO FTN 4.6.                                 DBG0001       12     A     
 HISTORY   DBG0002  FIXES THE FOLLOWING PROBLEMS AND ADDS THE FOLLWING FEATURES            DBG0002        1     A     
 HISTORY            TO *COMDECK DBG=IDP* --                                                DBG0002        2     A     
 HISTORY              1. *SNAP* COMMAND NOW SNAPS ONLY NR OF WORDS REQUESTED               DBG0002        3     A     
 HISTORY                 (EXPLICITLY OR BY DEFAULT).  I.E. DOES NOT ROUND UP TO            DBG0002        4     A     
 HISTORY                 MULTIPLE OF *L.ISL* OR *L.BSL*.  THIS WAS DONE TO PREVENT         DBG0002        5     A     
 HISTORY                 ERRONEOUS MODE=1 ERROR NEAR FL.                                   DBG0002        6     A     
 HISTORY              2. NEW COMMAND *DPC FWA,LWA,LEN* - DUMP OCTAL AND DISPLAY            DBG0002        7     A     
 HISTORY                 CODE.                                                             DBG0002        8     A     
 HISTORY              3. NEW COMMAND *OUTPUT I,B,ECHO*.  ALLOWS USER MORE CONTROL          DBG0002        9     A     
 HISTORY                 OVER WHERE IDP OUTPUT IS WRITTEN.  E.G. IDP OUTPUT                DBG0002       10     A     
 HISTORY                 CAN GO TO TTY OR HARD COPY, OR BOTH.                              DBG0002       11     A     
 HISTORY              4. THE INTERACTIVE PROMPT IS MADE AN ASSEMBLY OPTION VIA             DBG0002       12     A     
 HISTORY                 MICRO "PROMPT".                                                   DBG0002       13     A     
 HISTORY              5. INTRODUCES MULTIPLE STATEMENTS ON A LINE SYNTAX TO IDP            DBG0002       14     A     
 HISTORY                 VIA CHARACTER DEFINED BY MICRO "EOS".                             DBG0002       15     A     
 HISTORY              6. NEW COMMAND *XFER NR* - LISTS THE LAST *NR* BRANCHES              DBG0002       16     A     
 HISTORY                 TAKEN IN STEP MODE.  USEFUL IF A WILD BRANCH IS TAKEN             DBG0002       17     A     
 HISTORY                 TO NOWHERE...                                                     DBG0002       18     A     
 HISTORY              7. *STNR NR,L,RJ* COMMAND FIXED SO THAT *NR* DOES NOT HAVE           DBG0002       19     A     
 HISTORY                 TO BE  0 .LE. NR .LT. (CP.NFLS).                                  DBG0002       20     A     
 HISTORY            PC     76/4/1      APPLIES TO FTN 4.6.                                 DBG0002       21     A     
 HISTORY   DBG0003  FIXES AN INCORRECT MACRO EXPANSION OF *SNAP* MACRO IN                  DBG0003        1     A     
 HISTORY            *COMDECK DBG=MAC*.                                                     DBG0003        2     A     
 HISTORY            PC     76/4/1      APPLIES FO FTN 4.6.                                 DBG0003        3     A     
 HISTORY   *L439*    *************************************************************         *L439*         1     A     
 HISTORY   FCC0971  CERTAIN CONTROL CARD CONFLICTS WERE BEING HANDLED IMPROPERLY           FCC0971        1     A     
 HISTORY            THE FOLLOWING CHANGES HAVE BEEN MADE -                                 FCC0971        2     A     
 HISTORY            1.  C,D,E, OR Q WITH TS CAUSES A FATAL CONTROL CARD ERROR.             FCC0971        3     A     
 HISTORY            2.  C,D,E, OR Q WITH OUT TS OR WITH TS=0 IMPLIES OPT                   FCC0971        4     A     
 HISTORY            3.  OPT WITH TS CAUSES A FATAL ERROR.                                  FCC0971        5     A     
 HISTORY            4.  PW OR SEQ WITHOUT TS IMPLIES TS.                                   FCC0971        6     A     
 HISTORY            5.  PW OR SEQ WITH TS=0 CAUSES A FATAL CONTROL CARD ERROR.             FCC0971        7     A     
 HISTORY            DDM    05/22/76    APPLIES TO FTN 4.6                                  FCC0971        8     A     
 HISTORY                                                                                   FCC0971        9     A     
 HISTORY   FCC1179  DECPRO/CDN, DPCOM  -ERROR PROCESSING FOR BAD COMMON STATEMENTS         FCC1179        1     A     
 HISTORY            IS CORRECTED TO ENSURE THAT VARIABLES APPEARING IN REFMAP SHOW         FCC1179        2     A     
 HISTORY            CORRECT RELOCATION ENTRIES                                             FCC1179        3     A     
 HISTORY            COMFLAG IS ADDED TO SIGNAL THE PRESENCE OF BAD COMMON STATS            FCC1179        4     A     
 HISTORY            ATH    08/08/76    APPLIED AGAINST FTN 4.6, OPT                        FCC1179        5     A     
 HISTORY                                                                                   FCC1179        6     A     
 HISTORY   FCC1244  DECPRO/DPCOM FIXES B1 CONFLICT BETWEEN DPCOM AND ADDWD                 FCC1244        1     A     
 HISTORY            CXM    06/22/76    APPLIED AGAINST 4.6                                 FCC1244        2     A     
 HISTORY                                                                                   FCC1244        3     A     
 HISTORY   FCC1247A ASF/AFD INSERT THE L.SYM MASK DESTROYED BY *SSY* AND                   FCC1247A       1     A     
 HISTORY            NOT RE-INSTATED, CORRECT VARIOUS COMMENTS.                             FCC1247A       2     A     
 HISTORY            LDH    7/28/76     APPLIES TO FTN 4.6 TS.                              FCC1247A       3     A     
 HISTORY                                                                                   FCC1247A       4     A     
 HISTORY  FCC1258   FTN.TS INCORRECTLY ALLOWS MULTIPLE IMPLICIT STATEMENTS                 FCC1258        1     A     
 HISTORY            SSK    06/21/76    APPLIED AGAINST FTN 4.6,TS.                         FCC1258        2     A     
 HISTORY                                                                                   FCC1258        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  33    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCC1264  OPTIONS,TSTEXT,FTNMAC,FTNTEXT,END,FAX -                                FCC1264        1     A     
 HISTORY            CYBER 175 CPUS WILL HAVE PREFIX TABLE *TARGET* AND *VALID*             FCC1264        2     A     
 HISTORY            FIELDS OF C5 AND CX RESPECTIVELY. THE FIELDS FOR CYBER MODELS          FCC1264        3     A     
 HISTORY            172,173,174 WILL BE 64.  FOR 176, THE FIELDS WILL BE 76, 7X.           FCC1264        4     A     
 HISTORY            ERH    76/5/28     APPLIES TO FTN 4.6                                  FCC1264        5     A     
 HISTORY                                                                                   FCC1264        6     A     
 HISTORY  FCC1286   LISTIO/UNITN.C FTN DOES NOT TRAP ILLEGAL TAPE UNIT NUMBERS             FCC1286        1     A     
 HISTORY            THAT EXCEED THE CAPACITY OF 18 BIT ARITHMETIC                          FCC1286        2     A     
 HISTORY            SSK    08/06/76    APPLIED AGAINST FTN4.6                              FCC1286        3     A     
 HISTORY                                                                                   FCC1286        4     A     
 HISTORY   FCC1294  PAR/A=ASF INCOMPATIBLE ASF EXPRESSION AND FUNCTION                     FCC1294        1     A     
 HISTORY            TYPES CAUSED INCORRECT CONVERSIONS TO BE PERFORMED.                    FCC1294        2     A     
 HISTORY            CXM    06/10/76    APPLIED AGAINST 4.6TS                               FCC1294        3     A     
 HISTORY                                                                                   FCC1294        4     A     
 HISTORY   FCC1299  PAR/C=DO    SET DEFINE BIT FOR THE CONTROL INDEX - SYMBOL              FCC1299        1     A     
 HISTORY            TABLE TAG ENTRY.                                                       FCC1299        2     A     
 HISTORY            CYY    76/06/23    APPLIES TO FTN4.6,TS.                               FCC1299        3     A     
 HISTORY                                                                                   FCC1299        4     A     
 HISTORY   FCC1307  NUM/ISN - TEST FOR LEGALITY OF DO NESTING WHEN DO ENCOUNTERED.         FCC1307        1     A     
 HISTORY            NUM/RDE - CREATE NEW ROUTINE TO REMOVE DO TABLE ENTRIES WHEN           FCC1307        2     A     
 HISTORY                      SEVERE ERRORS NOTED.                                         FCC1307        3     A     
 HISTORY            DO/CDI  - RETAIN CURRENT LINK FOR DO STATEMENTS ALREADY LINKED         FCC1307        4     A     
 HISTORY            MRR    76/08/24    ERRORS,NUM,DO   APPLIES TO FTN 4.6, TS.             FCC1307        5     A     
 HISTORY                                                                                   FCC1307        6     A     
 HISTORY  FCC1309   FTN.TS - MAIN - ERRORS- PRODUCES GARBLED OUTPUT FROM COMPILE           FCC1309        1     A     
 HISTORY            FILE GENERATED BY UPDATE  WHEN L=0  IS SELECTED AND A FORTRAN          FCC1309        2     A     
 HISTORY            STATEMENT WITH AT LEAST ONE CONTINUATION CARD CONTAINS AN              FCC1309        3     A     
 HISTORY            ERROR                                                                  FCC1309        4     A     
 HISTORY            SSK    07/07/76    APPLIED AGAINST FTN 4.6,TS.                         FCC1309        5     A     
 HISTORY                                                                                   FCC1309        6     A     
 HISTORY   FCC1313  ENDPRO/PST.  CORRECTS AN INCORRECT TERMINATION TEST IN                 FCC1313        1     A     
 HISTORY            FCC0711 WHICH CAUSED PREMATURE EXIT AND HENCE, DEF BITS WERE           FCC1313        2     A     
 HISTORY            NOT CORRECTLY PROPAGATED THROUGH EQUIVALENCE CLASSES.                  FCC1313        3     A     
 HISTORY            CXM    06/04/76    APPLIED AGAINST 4.6                                 FCC1313        4     A     
 HISTORY                                                                                   FCC1313        5     A     
 HISTORY   FCC1319  REVISE PROCESSING OF MULTI PREDECESSOR LOOPS IN OPT=2 SO THAT          FCC1319        1     A     
 HISTORY            WHEN A INNER LOOP EXITS TO THE HEADER OF AN OUTER LOOP WE DO           FCC1319        2     A     
 HISTORY            NOT REEXECUTE THE LOOP PROLOGUE.  AFFECTS FTNTEXT,GPO,CFA,POST         FCC1319        3     A     
 HISTORY            SIJ    6/10/76     APPLIES TO FTN 4.6, OPT=2.                          FCC1319        4     A     
 HISTORY                                                                                   FCC1319        5     A     
 HISTORY   FCC1320  I/O OF AN ARRAY OF DIMENSION GREATER THAN 17777B AND WITHOUT           FCC1320        1     A     
 HISTORY            SUBSCRIPTS SPECIFIED IN THE I/O LIST CAUSED ARRAY SIZE TO BE           FCC1320        2     A     
 HISTORY            ENTERED INTO  TS.CON  WITH APPROPRIATE POINTER AND BIT SET IN          FCC1320        3     A     
 HISTORY            AP-LIST  FOR THAT ARRAY.  PARAMETERS SPECIFYING THE AMOUNT OF          FCC1320        4     A     
 HISTORY            DATA TO BE WRITTEN TO  TS.CON  (ONE WORD IN THIS CASE) WAS             FCC1320        5     A     
 HISTORY            INCORRECTLY SPECIFIED (I.E.,LWA+1=FWA) WHICH RESULTED IN               FCC1320        6     A     
 HISTORY            NOTHING BEING ENTERED INTO TS.CON, WHICH IN TURN RESULTED IN           FCC1320        7     A     
 HISTORY            FAILURE IN I/O OF THE ARRAY.                                           FCC1320        8     A     
 HISTORY            ERH    75/8/6      APPLIES TO FTN 4.6,TS.                              FCC1320        9     A     
 HISTORY                                                                                   FCC1320       10     A     
 HISTORY   FCC1322  BDT/RIO7 - LATE OUTPUT FOR FULL LOCK RS"S TO B-REGISTERS               FCC1322        1     A     
 HISTORY            IF PRS INSTRUCTION IS *ZP*                                             FCC1322        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  34    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            SIJ    6/4/76      APPLIES TO FTN 4.6, OPT=2                           FCC1322        3     A     
 HISTORY                                                                                   FCC1322        4     A     
 HISTORY   FCC1332  DECL/EQU  FIXES AN INCORRECT TEST FOR REDUNDANT EQUIVALENCE            FCC1332        1     A     
 HISTORY            SPECIFICATION.  ADDS VARIABLE NAME TO DIAGNOSTIC MESSAGE.              FCC1332        2     A     
 HISTORY            CXM    06/28/76    APPLIED AGAINST 4.6 TS                              FCC1332        3     A     
 HISTORY                                                                                   FCC1332        4     A     
 HISTORY   FCC1336  DEFAULTING CONTROL CARD A OPTION ON CAUSED ASSEMBLY ERROR DUE          FCC1336        1     A     
 HISTORY            TO CHANGE IN COMPCOM. "CP.ABORT" HAS BEEN CHANGED FROM                 FCC1336        2     A     
 HISTORY            1S59 TO 1.                                                             FCC1336        3     A     
 HISTORY            DDM    06/18/76    APPLIES TO FTN 4.6                                  FCC1336        4     A     
 HISTORY                                                                                   FCC1336        5     A     
 HISTORY   FCC1337  IO/DOC  REDUNDANT PARENS IN TRIPLE SUBSCRIPTED IMPLIED DO              FCC1337        1     A     
 HISTORY            LOOP IN IO STATEMENT NOT PROPERLY DIAGNOSED.                           FCC1337        2     A     
 HISTORY            CYY    76/27/7     APPLIES TO FTN 4.6,TS.                              FCC1337        3     A     
 HISTORY                                                                                   FCC1337        4     A     
 HISTORY   FCC1339  FUN/O=ARG, CLEAR OUT ANY DELAYED STORES BEFORE PROCESSING AN           FCC1339        1     A     
 HISTORY            EXTERNAL ARGUMENT LIST SO WE DO NOT CLOBBER ANY DELAYED STORE          FCC1339        2     A     
 HISTORY            REGISTERS.                                                             FCC1339        3     A     
 HISTORY            LLB/LDH            7/21/76        APPLIES TO FTN 4.6 TS.               FCC1339        4     A     
 HISTORY                                                                                   FCC1339        5     A     
 HISTORY   FCC1352  MIO/GMB - CORRECT CHECK FOR BLOCK FITTING INTO *RRB* SO WE             FCC1352        1     A     
 HISTORY            DON"T CLOBBER THE FIRST WORD OF A BLOCK IN **RWB*.                     FCC1352        2     A     
 HISTORY            GJM    8/19/76     APPLIES TO FTN 4.6 OPT=2                            FCC1352        3     A     
 HISTORY                                                                                   FCC1352        4     A     
 HISTORY   FCC1353  PROSEQ/ESR - GENERATE CORRECT CODE FOR INDEXED LCM=I REFERENCES        FCC1353        1     A     
 HISTORY            WHEN *RF* IS IN A B-REGISTER AND *CA* IS 0.                            FCC1353        2     A     
 HISTORY            SIJ    6/29/76     APPLIES TO FTN 4.6, OPT=2                           FCC1353        3     A     
 HISTORY                                                                                   FCC1353        4     A     
 HISTORY  FCC1373   KEY/LCC FTN,TS INCORRECTLY ATTEMPTS TO WRITE TO AN                     FCC1373        1     A     
 HISTORY            UNINITIALIZED LGO FILE UNDER FOLLOWING CONDITIONS - B=0                FCC1373        2     A     
 HISTORY            OVERLAY CARD PRECEDES PROGRAM UNIT                                     FCC1373        3     A     
 HISTORY            SSK    07/28/76    APPLIED AGAINST FTN 4.6,TS.                         FCC1373        4     A     
 HISTORY                                                                                   FCC1373        5     A     
 HISTORY   FCC1385  FMT/FMT.RP,ERPRO/FINISH,FTNMSG  -  EXTRANEOUS GARBAGE FOLLOW-          FCC1385        1     A     
 HISTORY            ING A CLOSING RIGHT PARENTHESIS ON A *FORMAT* STATEMENT WAS            FCC1385        2     A     
 HISTORY            INFORMATIVE IN FTN AND FATAL IN TS.  CORRECTION MAKES BOTH             FCC1385        3     A     
 HISTORY            COMPILERS ISSUE FATAL DIAGNOSIICS.  ALSO, TS SPECIFIED INCORR-         FCC1385        4     A     
 HISTORY            ECTLY THE CHARACTER FOLLOWING THE CLOSING RIGTH PARENTHESIS.           FCC1385        5     A     
 HISTORY            CORRECTION ALLOWS CORRECT SPECIFICATION OF THE CHARACTER               FCC1385        6     A     
 HISTORY            FOLLOWING CLOSING RIGHT PARENTHESIS.                                   FCC1385        7     A     
 HISTORY            ERH    8/4/76      APPLIED AGAINST FTN 4.6, OPT AND TS.                FCC1385        8     A     
 HISTORY                                                                                   FCC1385        9     A     
 HISTORY   FCC1338  FTNMSG,SCANNER. CHANGE *ILLEGAL LABEL FIELD.* DIAGNOSTIC               FCC1388        1     A     
 HISTORY            SEVERITY TO FATAL.                                                     FCC1388        2     A     
 HISTORY            LDH    7/26/76     APPLIES TO FTN 4.6                                  FCC1388        3     A     
 HISTORY                                                                                   FCC1388        4     A     
 HISTORY   FCC1410  DECL/DIR - TEST FOR ARRAY SIZE GREATER THAN 2**17-1.                   FCC1410        1     A     
 HISTORY            MRR    76/07/28    ERRORS,LEX,KEY,DECL  APPLIES TO FTN 4.6,TS.         FCC1410        2     A     
 HISTORY                                                                                   FCC1410        3     A     
 HISTORY   FCC1412  REG/ASR, CORRECT *ASR* TO INITIALIZE REGISTER X5 CORRECTLY             FCC1412        1     A     
 HISTORY            FOR *CLI*. WHEN *ASR* DECIDES TO STORE TO A TEMPORARY, HE              FCC1412        2     A     
 HISTORY            CALLS  *CLI* WITH X1 CONTAINING THE TEMP TAG, X5 CONTAINED             FCC1412        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  35    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            JUNK OR AN INTERMEDIATE RESULT INSTEAD OF THE TAG BEING STORED.        FCC1412        4     A     
 HISTORY            TO ACCOMODATE THOSE CALLS TO *ASR* WHERE X5 DOES CONTAIN A             FCC1412        5     A     
 HISTORY            VALID SETTING, SAVE AND RESTORE X5 ACCROSS THE CALL TO *CLI*.          FCC1412        6     A     
 HISTORY            LDH/LLB            7/26/76        APPLIES TO FTN 4.6 (TS).             FCC1412        7     A     
 HISTORY                                                                                   FCC1412        8     A     
 HISTORY   FCC1413  SQZ/SRCH - PREVENT EXTENDING USES PAST AN INCREMNT IN THE              FCC1413        1     A     
 HISTORY            CASE - IF(I"1) GOTO N $ V=A(I) $ I=I-1 $ X=A(I)                        FCC1413        2     A     
 HISTORY            SIJ    7/29/76     APPLIES TO FTN 4.6, OPT=2                           FCC1413        3     A     
 HISTORY                                                                                   FCC1413        4     A     
 HISTORY   FCC1421  END/DFT    INCREASE ALLOCATION TO SCRATCH TABLE BY 1 WORD              FCC1421        1     A     
 HISTORY            BEFORE BUILDING *PIDL* TABLE TO ACCOMODATE *PIDL*                      FCC1421        2     A     
 HISTORY            TABLE HEADER WORD. CORRECT LOOP COUNT CODE OF *PIDL*                   FCC1421        3     A     
 HISTORY            TABLE COMMON BLOCK ENTRY GENERATION.                                   FCC1421        4     A     
 HISTORY            LDH    7/29/76     APPLIES TO FTN 4.6 TS.                              FCC1421        5     A     
 HISTORY                                                                                   FCC1421        6     A     
 HISTORY   FCC1424  SQZ/IS - DON"T OVERIZE OPTIMIZE  IF( IVAR .RO. I-CON )                 FCC1424        1     A     
 HISTORY            SIJ    8/5/76      APPLIES TO FTN 4.6 , OPT=1,2                        FCC1424        2     A     
 HISTORY                                                                                   FCC1424        3     A     
 HISTORY   FCC1425  PS1CTL/ENDPRO - CORRECTLY PROCESS LABELED END STATEMENTS IN            FCC1425        1     A     
 HISTORY            PASS 1 SO PASS 2 DOESN"T MODE OUT IF OPT=2.                            FCC1425        2     A     
 HISTORY            SIJ    8/2/76      APPLIES TO FTN 4.6, OPT=0,1,2                       FCC1425        3     A     
 HISTORY                                                                                   FCC1425        4     A     
 HISTORY   FCC1442  MCG/AVC - CLEAR B-REGISTER ASSOCIATES IN *TRA* SO *TRS*                FCC1442        1     A     
 HISTORY            DOESN"T BECOME -0 LEADING TO AN INFINITE LOOP ON THE 7600              FCC1442        2     A     
 HISTORY            IN *MCG*.                                                              FCC1442        3     A     
 HISTORY            SIJ    8/17/76     APPLIES TO FTN 4.6 , OPT=0,1,2 ON 7600              FCC1442        4     A     
 HISTORY                                                                                   FCC1442        5     A     
 HISTORY   FCC1449  IO/RTC  SET THE AVAR BIT (AP-LIST TABLE ENTRY) FOR A VARIABLE          FCC1449        1     A     
 HISTORY            NAME I/O DESIGNATOR - FOR I/O STATEMENTS WHICH CONTAIN AN              FCC1449        2     A     
 HISTORY            EXPLICIT *TAPE NUMBER* DESIGNATOR.                                     FCC1449        3     A     
 HISTORY            CYY     76/08/19     APPLIES TO FTN4.6,TS.                             FCC1449        4     A     
 HISTORY                                                                                   FCC1449        5     A     
 HISTORY   FCC1451  MCG/JAM - TRY TO ISSUE A INSTRUCTION IN *UJR* IF *CSI* HAS             FCC1451        1     A     
 HISTORY            SUCCEEDED IN ISSUING A STORE, SINCE THE ORIGINAL INSTRUCTION           FCC1451        2     A     
 HISTORY            MAY NOW BE ISSUABLE, AND *RIL* WILL MESS UP THE WORKS IF               FCC1451        3     A     
 HISTORY            USES OF THE REISSUED INSTRUCTION IS 0.                                 FCC1451        4     A     
 HISTORY            SIJ    8/25/76     APPLIES TO FTN 4.6, OPT=0,1,2                       FCC1451        5     A     
 HISTORY                                                                                   FCC1451        6     A     
 HISTORY   FCC1453  PAR/C=DO - AFTER DIAGNOSING AN EXTRANEOUS ELEMENT ON A DO              FCC1453        1     A     
 HISTORY                       STATEMENT, EXIT FROM PAR.                                   FCC1453        2     A     
 HISTORY            MRR    76/08/25    APPLIES TO FTN 4.6, TS.                             FCC1453        3     A     
 HISTORY                                                                                   FCC1453        4     A     
 HISTORY   *L444*    *************************************************************         *L444*         1     A     
 HISTORY   FCC*77X  FTN,FTNRES.  UPDATE THE COPYRIGHT INFORMATION TO INCLUDE THE           FCC*77X        1     A     
 HISTORY            YEAR 1977.                                                             FCC*77X        2     A     
 HISTORY            DLD    76/10/29    APPLIES TO FTN4.6                                   FCC*77X        3     A     
 HISTORY                                                                                   FCC*77X        4     A     
 HISTORY   F7540FT  *GLOBAL CHANGE*/TSTEXT/FTNTEXT/FTNMAC/FTN/OUTPTK/DECPRO/MIO/           F7540FT        1     A     
 HISTORY            FAX/ -- ADAPT FTN 4.6 FOR CYBER MODEL 176 WITH NOS, NOS/BE,            F7540FT        2     A     
 HISTORY            AND SCOPE 2 OPERATING SYSTEMS.                                         F7540FT        3     A     
 HISTORY                   SIDE EFFECT - DISABLES PART OF THE TEST-MODE *M* OPTION         F7540FT        4     A     
 HISTORY            CODE.  LEVEL 2 DECLARATIVES ARE NO LONGER IGNORED WHEN THIS            F7540FT        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  36    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            OPTION IS SELECTED.                                                    F7540FT        6     A     
 HISTORY            DCD    1976/08/26  APPLIES TO FTN 4.6 (TS, ALL OPT LEVELS).            F7540FT        7     A     
 HISTORY   RSM2763X MODIFY PASS 2 TO DYNAMICALLY INCREASE FIELD LENGTH                     RSM2763X       1     A     
 HISTORY            AS NECESSARY TO COMPILE LONG SUBPROGRAMS.                              RSM2763X       2     A     
 HISTORY            EFFECTS FTN,LSTPRO,FAX,CLOSE2,MIO,GPO,PROSEQ,MCG,AND PRE.              RSM2763X       3     A     
 HISTORY            GJM    7/26/76     APPLIED TO 4.6, OPT=0,1,2                           RSM2763X       4     A     
 HISTORY                                                                                   RSM2763X       5     A     
 HISTORY   RSM2763AX PROSEQ - FIXES MODE ERROR IN READRL                                   RSM2763AX      1     A     
 HISTORY            SIJ    76/12/01    APPLIES TO FTN 4.6                                  RSM2763AX      2     A     
 HISTORY   FCCT005  UDT - CHANGE MODE OF ACTIVATING *UDT* SNAPS FROM A *DEFINE TO          FCCT005        1     A     
 HISTORY            SNAP=2 ON THE CONTROL STATEMENT.                                       FCCT005        2     A     
 HISTORY            SIJ    11/7/76     APPLIES TO FTN 4.6                                  FCCT005        3     A     
 HISTORY                                                                                   FCCT005        4     A     
 HISTORY   FCC1059X SCANNER/NXT5A  FTN INCORRECTLY ISSUES A DUPLICATE STATEMENT            FCC1059X       1     A     
 HISTORY            LABEL MESSAGE FOR THE FOURTH AND SIXTH CARDS                           FCC1059X       2     A     
 HISTORY            5                  CARD 1                                              FCC1059X       3     A     
 HISTORY             + CONTINUE        CARD 2                                              FCC1059X       4     A     
 HISTORY                               CARD 3                                              FCC1059X       5     A     
 HISTORY             +STOP 1           CARD 4                                              FCC1059X       6     A     
 HISTORY                               CARD 5                                              FCC1059X       7     A     
 HISTORY             +PAUSE 1          CARD 6                                              FCC1059X       8     A     
 HISTORY            SSK    10/14/76    APPLIED AGAINST FTN 4.6                             FCC1059X       9     A     
 HISTORY                                                                                   FCC1059X      10     A     
 HISTORY   FCC1086X SCANNER/PCON  WHEN A CONSTANT STRING THAT BEGAN WITH A DECI-           FCC1086X       1     A     
 HISTORY            MAL POINT FOLLOWED A STATEMENT CONTAINING AN ERRONEOUS CONST-          FCC1086X       2     A     
 HISTORY            ANT, THE NEW STRING LENGTH WAS NOT INITIALIZED TO ZERO.                FCC1086X       3     A     
 HISTORY            ATH    10/22/76    APPLIED AGAINST FTN 4.6/ OPT                        FCC1086X       4     A     
 HISTORY                                                                                   FCC1086X       5     A     
 HISTORY   FCC1109X SETARR - IN C$-DEBUG MODE, VARIABLE NAMES AND LABELS WERE LOST         FCC1109X       1     A     
 HISTORY            OR ALTERED WHEN COMPILING LARGE PROGRAMS.  A SYMBOL TABLE              FCC1109X       2     A     
 HISTORY            POINTER (SYMTAB B) WAS NOT BEING UPDATED CORRECTLY DURING              FCC1109X       3     A     
 HISTORY            SYMBOL TABLE MOVES.                                                    FCC1109X       4     A     
 HISTORY            DCD    1976/10/15  APPLIES TO FTN 4.6 (OPT).                           FCC1109X       5     A     
 HISTORY                                                                                   FCC1109X       6     A     
 HISTORY   FCC1117X CORRECT DEBUG ABORT AT LSTPRO+366 WHEN FIELD LENGTH IS AT OR           FCC1117X       1     A     
 HISTORY            NEAR MINIMUM AND A LONG REFERENCE MAP IS SELECTED (R=2 OR =3).         FCC1117X       2     A     
 HISTORY            PART OF THIS CORRECTION SET INCREASES THE MINIMUM DEBUG                FCC1117X       3     A     
 HISTORY            FIELD LENGTH BY 2000 (OCTAL) WORDS.  REFERENCE BASELINE                FCC1117X       4     A     
 HISTORY            DOCUMENTATION CHANGE, DCS LOG S1935.                                   FCC1117X       5     A     
 HISTORY            DCD    76/10/08    APPLIES TO FTN 4.6.  (FTN, DBGPHCT)                 FCC1117X       6     A     
 HISTORY                                                                                   FCC1117X       7     A     
 HISTORY   FCC1128X CHANGE NAME OF OBJECT CODE OUTPUT FILE FROM *COMPS* TO                 FCC1128X       1     A     
 HISTORY            *ZZZZZFC* IN SYSTEM-MODE COMPILER, UNLESS *E* OPTION SELECTED.         FCC1128X       2     A     
 HISTORY            REFERENCE DOCUMENTATION BASELINE CHANGE, DCS LOG ARH1276.              FCC1128X       3     A     
 HISTORY            DCD    76/10/08    APPLIES TO FTN 4.6.  (FTN)                          FCC1128X       4     A     
 HISTORY                                                                                   FCC1128X       5     A     
 HISTORY   FCC1134AXREG/CLI- LCM CODE TURNED ON BY FCC1134 CAUSED UNNECESSARY              FCC1134AX      1     A     
 HISTORY            CHECKS FOR LCM TAGS AND A CORRESPONDING TIME DEGRADATION.              FCC1134AX      2     A     
 HISTORY            PRECEDING THE LCM TEST WITH A CHECK FOR AN ADDRESS LOAD                FCC1134AX      3     A     
 HISTORY            FILTERS ALL BUT THE LEGITAMATE LCM TESTS. (THIS CODE APPLIES           FCC1134AX      4     A     
 HISTORY            ONLY IN THE NON-DIRECT-ACCESS-LCM CASE)                                FCC1134AX      5     A     
 HISTORY            WED    76/12/2  APPLIED AGAINST TS 4.6                                 FCC1134AX      6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  37    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FCC1134AX      7     A     
 HISTORY   FCC1173X SCANNER/LEX   CONTINUATION LINE PROCESSING OF DEBUG STATEMENT          FCC1173X       1     A     
 HISTORY            CAUSE WILD JUMP OF B3 REGISTER.                                        FCC1173X       2     A     
 HISTORY            IF THE DEBUG KEYWORD IS UNTYPED, INSTEAD OF CONTINUEING THE            FCC1173X       3     A     
 HISTORY            SCANNING PROCESS, SHOULD STRIP CONTINUATION CARDS UNTIL NEW            FCC1173X       4     A     
 HISTORY            STATEMENT IS FOUND                                                     FCC1173X       5     A     
 HISTORY            ATH   09/09/76    APPLIED AGAINST FTN/OPT V.4.6.                       FCC1173X       6     A     
 HISTORY                                                                                   FCC1173X       7     A     
 HISTORY   FCC1252X LISTIO/INDXST2,DOPROC/INTVAR  FTN ISSUES AN INCORRECT ERROR            FCC1252X       1     A     
 HISTORY            MESSAGE FOR AN IMPLIED DO LOOP CONTAINING A REAL SUBSCRIPT.            FCC1252X       2     A     
 HISTORY            IF THE SUBSCRIPT IS NOT USED AS A DO CONTROL VARIABLE NO               FCC1252X       3     A     
 HISTORY            ERROR MESSAGE SHOULD BE ISSUED.                                        FCC1252X       4     A     
 HISTORY            SSK    09/24/76    APPLIED AGAINST FTN 4.6                             FCC1252X       5     A     
 HISTORY                                                                                   FCC1252X       6     A     
 HISTORY   FCC1300X FTNMSG,ERPRO/SPES,FLY - CHANGE FORMAT SPECIFICATION DIAGNOSIS.         FCC1300X       1     A     
 HISTORY            1. REMOVE MESSAGE  *DECIMAL POINT......MISSING.....* FOR -V-           FCC1300X       2     A     
 HISTORY               EDIT DESCRIPTORS OF THE FORM -VN-, AND GIVE INFORMATIVE             FCC1300X       3     A     
 HISTORY               DIAGNOSTIC ONLY FOR THE FORM -VN.-, AND NOT FOR THE FORM            FCC1300X       4     A     
 HISTORY               VN (WITHOUT A PERIOD).                                              FCC1300X       5     A     
 HISTORY            2. CHANGE MESSAGE TEXT FOR FLOATING POINT EDIT DESCRIPTORS             FCC1300X       6     A     
 HISTORY               THAT LACK A FRACTIONAL DIGIT COUNT SPECIFICATION.                   FCC1300X       7     A     
 HISTORY               ALDO REMOVE SPURIOUS DIAGNOSTIC SPECIFYING A FIELD WIDTH            FCC1300X       8     A     
 HISTORY               VIOLATION FOR THE FORM -VN.D-.                                      FCC1300X       9     A     
 HISTORY            3. REPAIR PROCESSING OF DESCRIPTORS -I-,-O-, OF THE FORM               FCC1300X      10     A     
 HISTORY               -IW. -, -OW. -, AND THE FORMS -EW.DEE-,-EW.DDE-.                    FCC1300X      11     A     
 HISTORY               ROUTINE *SPES* IN DECK *ERPRO* CHECKS FOR BLANK CHARACTERS          FCC1300X      12     A     
 HISTORY               FOLLOWING THE DECIMAL, CAUSING THE POINTER TO THE NEXT              FCC1300X      13     A     
 HISTORY               CHARACTER TO BE ADVANCED TWICE BEFORE A CHARACTER CHECK,            FCC1300X      14     A     
 HISTORY               THUS MISSING A CHARACTER WHEN IMBEDDED BLANKS ARE PRESENT.          FCC1300X      15     A     
 HISTORY               THUS IN DESCRIPTORS OF THE FORM -(I 8. )-, THE -)- FORCES           FCC1300X      16     A     
 HISTORY               *SPES* TO EXIT WITH A CORRECT ERROR MESSAGE BUT LEAVES THE          FCC1300X      17     A     
 HISTORY               POINTER ADVANCED TO THE CHARACTER FOLLOWING THE -)-.                FCC1300X      18     A     
 HISTORY               THIS CAUSES AN UNWANTED *NO ZERO LEVEL RIGHT PAREN* DIAG-           FCC1300X      19     A     
 HISTORY               NOSTIC WHEN PROCESSING CONTINUES IN *FLY*.                          FCC1300X      20     A     
 HISTORY               ADDITIONALLY, THE LOOP AT *SPES3* WHICH USES A DIGIT MASK           FCC1300X      21     A     
 HISTORY               (DIGMASK) IN REGISTER X4 DESTROYS THE CONTENTS OF X4 IN             FCC1300X      22     A     
 HISTORY               IN THE FIRST ITERATION OF THE LOOP, THUS CAUSING *SPES*             FCC1300X      23     A     
 HISTORY               TO MISS THE DIGIT AFTER THE DECIMAL POINT IF THERE ARE              FCC1300X      24     A     
 HISTORY               IMBEDDED BLANKS.                                                    FCC1300X      25     A     
 HISTORY               IN A SEQUENCE OF DESCRIPTORS, A DESCRIPTOR OF THE FORM              FCC1300X      26     A     
 HISTORY               -IW.- FOLLOWED BY A SEPARATOR (E.G. / , ) RESULTS IN THE            FCC1300X      27     A     
 HISTORY               SEPARATOR BEING SKIPPED, A DIAGNOSTIC ISSUED (FROM *SPES*)          FCC1300X      28     A     
 HISTORY               AND INCORRECT BINARY BEING PRODUCED FOR THAT DESCRIPTOR             FCC1300X      29     A     
 HISTORY               (SHOWN BY AN OBJECT LIST).                                          FCC1300X      30     A     
 HISTORY               CORRECTION FIXES THE REGISTER DESTRUCTION AND ALLOWS FOR            FCC1300X      31     A     
 HISTORY               INCREMENT TO NEXT ELEMENT OF A DESCRIPTOR ONLY IF THE               FCC1300X      32     A     
 HISTORY               ELEMENT IS NOT A -)- OR OTHER LEGAL SEPARATOR.                      FCC1300X      33     A     
 HISTORY            ERH    76/6/24     APPLIES TO FTN 4.6                                  FCC1300X      34     A     
 HISTORY                                                                                   FCC1300X      35     A     
 HISTORY   FCC1328X TABLES, ERRORS/LLN, BATCH, HEADER, MAIN/(AFS, ACD, ALN, ASK,           FCC1328X       1     A     
 HISTORY            BUL,CLO, CNT, CUS, LSL, PLO, PLR, RNC, RNS), KEY, INIT/FCA,            FCC1328X       2     A     
 HISTORY            *** LSTPRO, SCANNER/(SCAN, CBL, ENDP, GNL, LEX, NXT)                   FCC1328X       3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  38    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FCC1328X       4     A     
 HISTORY            AS OF PSR LEVEL XXX (SEE DAP S1040), BOTH NOS AND NOS/BE               FCC1328X       5     A     
 HISTORY            CONSIDER A LINE CONSISTING OF 60 BITS OF ZERO TO BE A                  FCC1328X       6     A     
 HISTORY            BLANK LINE.  THIS IS A DIVERGENCE FROM A SOMEWHAT UNSPOKEN             FCC1328X       7     A     
 HISTORY            *MACE* I/O CONVENTION WHICH *STATES* THAT A BLANK LINE                 FCC1328X       8     A     
 HISTORY            WILL CONTAIN AT LEAST ONE BLANK CHARACTER.  FOR YEARS,                 FCC1328X       9     A     
 HISTORY            FTN AND COMPASS HAVE USED THE FACT THAT A SOURCE LINE                  FCC1328X      10     A     
 HISTORY            COULD NEVER BE A FULL WORD OF ZEROES.  IN FTN/COMPASS                  FCC1328X      11     A     
 HISTORY            INTERCOMMUNICATION, SUCH A LINE WAS DEFINED AND SET UP                 FCC1328X      12     A     
 HISTORY            TO BE AN END-OF-RECORD INDICATOR.  THIS IS OBVIOUSLY                   FCC1328X      13     A     
 HISTORY            INCOMPATIBLE WITH THE NEW OPERATING SYSTEM CONVENTION.                 FCC1328X      14     A     
 HISTORY            THIS CODE MAKES FTN DO THE RIGHT THINGS FOR FULL ZERO                  FCC1328X      15     A     
 HISTORY            WORD (BLANK) LINES IN BOTH TS AND OPT COMPILERS.                       FCC1328X      16     A     
 HISTORY                                                                                   FCC1328X      17     A     
 HISTORY            THE TECHNIQUE USED HERE WAS TO COMDECK THE ROUTINE                     FCC1328X      18     A     
 HISTORY            THAT READS SOURCE LINES (COMFRNC) SO THAT TS AND                       FCC1328X      19     A     
 HISTORY            OPT HAVE A BETTER CHANCE OF BEING COMPATIBLE.  THIS                    FCC1328X      20     A     
 HISTORY            REQUIRED SOME INTERNAL RESTRUCTURING OF VARIOUS                        FCC1328X      21     A     
 HISTORY            SCANNING FUNCTIONS.  THEREFORE THE OPPORTUNITY                         FCC1328X      22     A     
 HISTORY            WAS TAKEN TO CLEAN UP SOME INTERFACES, PARTICULARLY                    FCC1328X      23     A     
 HISTORY            IN TS.                                                                 FCC1328X      24     A     
 HISTORY                                                                                   FCC1328X      25     A     
 HISTORY            THIS CODE ALSO STANDARDIZES THE HEADER LINE BETWEEN                    FCC1328X      26     A     
 HISTORY            TS AND OPT COMPILERS.  THIS REQUIRED IMPLEMENTING                      FCC1328X      27     A     
 HISTORY            *HEADER DELAY* CODE IN TS WHICH TRIES TO SAVE ALL SOURCE LINES         FCC1328X      28     A     
 HISTORY            IN THE DEFERRED LIST BUFFER UNTIL THE PROGRAM UNIT NAME HAS            FCC1328X      29     A     
 HISTORY            BEEN FOUND BY THE APPROPRIATE STATEMENT PROCESSOR AND                  FCC1328X      30     A     
 HISTORY            STUFFED INTO THE TITLE LINE BUFFER.                                    FCC1328X      31     A     
 HISTORY                                                                                   FCC1328X      32     A     
 HISTORY            IF YOU ARE WONDERING WHY THIS PSR DOES SO MUCH, IT IS BECAUSE          FCC1328X      33     A     
 HISTORY            ALL THIS STUFF IS INTERTWINED IN THE SCANNING LOGIC AND WAS            FCC1328X      34     A     
 HISTORY            MUCH SIMPLER TO DEAL WITH AS A WHOLE.                                  FCC1328X      35     A     
 HISTORY                                                                                   FCC1328X      36     A     
 HISTORY            PC     76/7/26     APPLIES TO FTN 4.6.                                 FCC1328X      37     A     
 HISTORY                                                                                   FCC1328X      38     A     
 HISTORY   FCC1328AX  MAIN/PLR, END/END, ALLOC/ALC                                         FCC1328AX      1     A     
 HISTORY            CORRECT MOVE DESTINATION ADDRESS COMPUTATION IN MAIN                   FCC1328AX      2     A     
 HISTORY            TO INCLUDE BASE ADDRESS OF T.DLBUF AFTER THE ALLOC                     FCC1328AX      3     A     
 HISTORY            CALL INSTEAD OF BEFORE TO ALLOW FOR TABLE MOVES.                       FCC1328AX      4     A     
 HISTORY            IN DECKS END AND ALLOC, UPDATE T.END WHEN MORE                         FCC1328AX      5     A     
 HISTORY            MEMORY IS AVAILABLE.                                                   FCC1328AX      6     A     
 HISTORY            LDH/DDM    11/11/76      APPLIES TO FTN 4.6 TS.                        FCC1328AX      7     A     
 HISTORY                                                                                   FCC1328AX      8     A     
 HISTORY   FCC1328BXMAIN/AFS11 STATEMENT LABELS ARE NOT HANDLED CORRECTLY                  FCC1328BX      1     A     
 HISTORY            IN TS,SEQ MODE.                                                        FCC1328BX      2     A     
 HISTORY            SSK    12/09/76    APPLIED AGAINST FTN,TS                              FCC1328BX      3     A     
 HISTORY                                                                                   FCC1328BX      4     A     
 HISTORY   FCC1361  OPTIONS, TSTEXT, FTNTEXT, FTN/MIB, LSTPRO, BATCH                       FCC1361X       1     A     
 HISTORY            WHEN PD WAS NOT ON CONTROL CARD THE VALUE OF CP.PD                     FCC1361X       2     A     
 HISTORY            WAS NOT SET.                                                           FCC1361X       3     A     
 HISTORY            DDM    76/09/05    APPLIES TO FTN 4.6                                  FCC1361X       4     A     
 HISTORY                                                                                   FCC1361X       5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  39    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCC1371X GEN/SLD THE HARD STORE REGISTER WAS BEING CLOBBERED BY                 FCC1371X       1     A     
 HISTORY            LFP IN REG. LOCKING THIS REG BEFORE THIS CALL CORRECTS                 FCC1371X       2     A     
 HISTORY            THE PROBLEM.                                                           FCC1371X       3     A     
 HISTORY            WED    76/11/11    APPLIED AGAINST TS 4.6                              FCC1371X       4     A     
 HISTORY                                                                                   FCC1371X       5     A     
 HISTORY   FCC1390X ERRORS/ SEVERITY CHANGED FROM W TO F FOR *MULTIPLE STATEMENT           FCC1390X       1     A     
 HISTORY            IGNORED AFTER LOADER DIRECTIVE*. JUMP ADDRESS CHANGED FROM             FCC1390X       2     A     
 HISTORY            RUN. X TO END93 FOR THIS ERROR AS WELL AS *TRIVIAL PROGRAM             FCC1390X       3     A     
 HISTORY            UNIT IGNORED*. THIS BECAUSE THE UPDATE TO THE FATAL ERROR              FCC1390X       4     A     
 HISTORY            COUNT WAS BEING BYPASSED IN BOTH CASES.                                FCC1390X       5     A     
 HISTORY            WED    10/14/76    APPLIES TO FTN 4.6, TS.                             FCC1390X       6     A     
 HISTORY                                                                                   FCC1390X       7     A     
 HISTORY   FCC1402X WHEN A RETURN WAS INSIDE A DO IT WAS TREATED AS AN EXIT                FCC1402X       1     A     
 HISTORY            INTO AN EXTENDED RANGE. ACTUALLY, ONLY IF AND GOTO ARE LEGAL           FCC1402X       2     A     
 HISTORY            IN THIS CONTEXT.                                                       FCC1402X       3     A     
 HISTORY            DDM    APPLIES TO FTN 4.6 OPT+TS                                       FCC1402X       4     A     
 HISTORY                                                                                   FCC1402X       5     A     
 HISTORY   FCC1434X END/     SET LCM BIT FOR LEVEL 2 / NAMELIST ITEMS.                     FCC1434X       1     A     
 HISTORY            KEY/NAM  CHECK FOR LEVEL 3 IN NAMELIST.                                FCC1434X       2     A     
 HISTORY            GEN/SLD  PROGLEM DUE TO OVERFLOW BIT IN TAG FIELD AFTER                FCC1434X       3     A     
 HISTORY            ADDING 2 BIAS VALUES.                                                  FCC1434X       4     A     
 HISTORY            DLD/LLB 76/11/01   APPLIES TO FTN 4.6 TS                               FCC1434X       5     A     
 HISTORY                                                                                   FCC1434X       6     A     
 HISTORY   FCC1448X FTNTEXT/ THE USE OF A SX.R  X.P+9D IN THE CW OPDEF CAUSES              FCC1448X       1     A     
 HISTORY            UNWANTED SIGN EXTENSION FOR N.GE.2**17-9. USING A SET AND              FCC1448X       2     A     
 HISTORY            MASK COMBINATION, CW NOW ACCOMIDATES 0.LE.N.LE.2**18-11D.              FCC1448X       3     A     
 HISTORY            EFFECTED DECKS- FAX,PH1CTL,AND SCANNER                                 FCC1448X       4     A     
 HISTORY            WED    10/1/76     APPLIED AGAINST FTN 4.6 OPT.                        FCC1448X       5     A     
 HISTORY                                                                                   FCC1448X       6     A     
 HISTORY   FCC1464  HEADER/PPA62 FTN,TS INCORRECTLY ISSUES THIS WARNING MESSAGE            FCC1464X       1     A     
 HISTORY            WHEN 50 FILE NAMES ARE DECLARED IN A PROGRAM CARD. - ONLY              FCC1464X       2     A     
 HISTORY            50 FILES ARE PERMITTED -- EXCESS IGNORED.                              FCC1464X       3     A     
 HISTORY            SSK    09/07/76    APPLIED AGAINST FTN,TS 4.6                          FCC1464X       4     A     
 HISTORY                                                                                   FCC1464X       5     A     
 HISTORY   FCC1467  KEY/CLL  SET BEF CLASS BIT FOR AN EXTERNAL FUNCTION USED IN A          FCC1467X       1     A     
 HISTORY            CALL STATEMENT.                                                        FCC1467X       2     A     
 HISTORY            CYY     76/09/09     APPLIES TO FTN4.6,TS.                             FCC1467X       3     A     
 HISTORY                                                                                   FCC1467X       4     A     
 HISTORY   FCC1469X SCANNER/LEX,CBL  DBGPHCT/DBGEPKT    NON-DEBUG STATEMENTS ON EXTERNAL   FCC1469X       1     A     
 HISTORY            DEBUG FILE CAUSE FATAL DIAGNOSTICS  TO APPEAR ON SAME PAGE AS          FCC1469X       2     A     
 HISTORY            PROGRAM.                                                               FCC1469X       3     A     
 HISTORY            DIAGNOSTICES ARE SUPRESSED BY TESTING FOR NON-DEBUG STATEMENTS         FCC1469X       4     A     
 HISTORY            EXTERNAL DEBUG FILE MODE IN THE BEGINNING OF LEXICAL SCAN.  TO         FCC1469X       5     A     
 HISTORY            RID OF THE *ILLEGAL LABEL FIELD* DIAG.,  PROCESSING OF LABEL F         FCC1469X       6     A     
 HISTORY            SKIPPED IN CBL.                                                        FCC1469X       7     A     
 HISTORY            ALSO, DBGEPKT WAS FIXED SO THAT EXTERNAL DEBUG FILE PROCESSING         FCC1469X       8     A     
 HISTORY            TERMINATES WHEN EOS/EOP/EOI IS ENCOUNTERED INSTEAD OF A NON-DE         FCC1469X       9     A     
 HISTORY            STATEMENT.                                                             FCC1469X      10     A     
 HISTORY            ATH   9/27/76   APPLIED AGAINST FTN 4.6/OPT                            FCC1469X      11     A     
 HISTORY                                                                                   FCC1469X      12     A     
 HISTORY   FCC1476X LEX/TAB.VA  FTN,TS 4.6 FAILS TO DETECT THE ILLEGAL                     FCC1476X       1     A     
 HISTORY            CHARACTER IN THIS STATEMENT.   INTEGER TEXT(4):                        FCC1476X       2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  40    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            SSK    12/17/76    APPLIES TO FTN,TS 4.6                               FCC1476X       3     A     
 HISTORY                                                                                   FCC1476X       4     A     
 HISTORY  COMPILE,HISTORY                                                                  FCC1476X       5     A     
 HISTORY   FCC1479  ARITH/PIM, LISTIO/COLAP - I/O RESTART CALLS WERE NOT BEING             FCC1479X       1     A     
 HISTORY            ISSUED FOR I/O LISTS CONTAINING INTEGER SCALARS FOLLOWED BY            FCC1479X       2     A     
 HISTORY            IMPLIED DO ARRAY ITEMS WHERE THE INTEGER WAS USED AS A                 FCC1479X       3     A     
 HISTORY            SUBSCRIPT.                                                             FCC1479X       4     A     
 HISTORY            LDH/MAH 9/17/76    APPLIES TO FTN 4.6                                  FCC1479X       5     A     
 HISTORY                                                                                   FCC1479X       6     A     
 HISTORY   FCC1491X GRA/SXC - BYPASS BIT VECTOR UPDATE IN OPT=1 SINCE INFORMATION          FCC1491X       1     A     
 HISTORY            IS NOT USED, AND ELA, ETC ARE NOT SETUP CORRECTLY TO DO CALC.          FCC1491X       2     A     
 HISTORY            SIJ    9/21/76     APPLIES TO FTN 4.6, OPT=1                           FCC1491X       3     A     
 HISTORY                                                                                   FCC1491X       4     A     
 HISTORY   FCC1495X HEADER/PSA - SET DEFINE BIT FOR ALL FORMAL PARAMETERS.                 FCC1495X       1     A     
 HISTORY            MRR    76/09/22    TABLES,BATCH,HEADER  APPLIES TO FTN 4.6,TS.         FCC1495X       2     A     
 HISTORY                                                                                   FCC1495X       3     A     
 HISTORY   FCC1495AXMAP/WVV - DONT OUTPUT THE REFERENCE MAP UNDEFINED INDICATOR            FCC1495AX      1     A     
 HISTORY                      FOR FORMAL PARAMETERS.                                       FCC1495AX      2     A     
 HISTORY            MRR    76/12/03    APPLIES TO FTN 4.6, TS.                             FCC1495AX      3     A     
 HISTORY                               TABLES,HEADER,PAR,MAP                               FCC1495AX      4     A     
 HISTORY                                                                                   FCC1495AX      5     A     
 HISTORY   FCC1498X MIO/CGB - RESET O.SEQ CORRECTLY WHEN A CURRENT BASIC                   FCC1498X       1     A     
 HISTORY            BLOCK IS MOVED WITHIN BLK                                              FCC1498X       2     A     
 HISTORY            GJM    9/27/76     APPLIED TO 4.6, OPT=1,2                             FCC1498X       3     A     
 HISTORY                                                                                   FCC1498X       4     A     
 HISTORY   FCC1504X ADD A *RF* BIT TO *UDT* SO WE CAN PROPAGATE SHORT USES FROM            FCC1504X       1     A     
 HISTORY            LOADS BACK TO THE PREDECESSORS OF STORES IN LOOPS WITH MULTIPL         FCC1504X       2     A     
 HISTORY            LOADS BACK TO THE PREDECESSORS OF STORES IN LOOPS WITH                 FCC1504X       3     A     
 HISTORY            MULTIPLE BLOCKS. NOW WE WILL CATCH A FEW MORE INTEGER POLYNOMI         FCC1504X       4     A     
 HISTORY            SIJ    11/8/76     APPLIES TO FTN 4.6, OPT=1,2                         FCC1504X       5     A     
 HISTORY                                                                                   FCC1504X       6     A     
 HISTORY   FCC1510X GEN/FIV   CHANGE ARGUMENT TYPE OF INTRINSIC MASK FUNCTION              FCC1510X       1     A     
 HISTORY            TO BE TYPE INTEGER.                                                    FCC1510X       2     A     
 HISTORY            ATH    9/30/76     APPLIES TO FTN 4.6 TS.                              FCC1510X       3     A     
 HISTORY                                                                                   FCC1510X       4     A     
 HISTORY   FCC1512X DATA/ADDCON  NEGATIVE HOLLERITH IN DATA STATEMENT IS NOT               FCC1512X       1     A     
 HISTORY            COMPLEMENTED BECAUSE (B7) WAS NOT PROPERLY SET TO -0,IE,A              FCC1512X       2     A     
 HISTORY            *SB7    X7* INSTRUCTION DID NOT PRESERVE THE NEGATIVE SIGN IN          FCC1512X       3     A     
 HISTORY            B7.                                                                    FCC1512X       4     A     
 HISTORY            ATH    9/30/76     APPLIED AGAINST FTN 4.6/OPT                         FCC1512X       5     A     
 HISTORY                                                                                   FCC1512X       6     A     
 HISTORY   FCC1513X FAX/FTNXAS,PIDENT,PEND   IF NOT MAIN PROGRAM, SKIP WRITING OF          FCC1513X       1     A     
 HISTORY            XFER TABLE ON BINARY FILE.  ALSO, IF BLOCK DATA, SKIP WRITING          FCC1513X       2     A     
 HISTORY            OF LDSET TABLE.  ADDED ALSO PROGRAM UNIT TYPE IN WORD 10 OF            FCC1513X       3     A     
 HISTORY            PREFIX TABLE.                                                          FCC1513X       4     A     
 HISTORY            ATH    10/05/76    APPLIED AGAINST FTN 4.6/OPT                         FCC1513X       5     A     
 HISTORY                                                                                   FCC1513X       6     A     
 HISTORY   FCC1514X CONRED/MUC - RESTORE TEST FOR REDUCTION OF MULTIPLY BY ONE             FCC1514X       1     A     
 HISTORY            FORCED BY SUBSCRIPT CALCULATIONS.                                      FCC1514X       2     A     
 HISTORY            MRR    76/10/05    APPLIES TO FTN 4.6, TS.                             FCC1514X       3     A     
 HISTORY                                                                                   FCC1514X       4     A     
 HISTORY   FCC1518X BDT/IPL - REVISE HANDLING OF REDEF LINKING FOR SIMILAR *IP"S*          FCC1518X       1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  41    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            SO *GRA* GENERATES THE CORRECT CODE WHEN ADDRESS DIFFERENCING          FCC1518X       2     A     
 HISTORY            BDT/FTL - FORM REDEF LINKS FOR BOTH BASE AND NON-BASE  WHEN            FCC1518X       3     A     
 HISTORY            ALTERNATE REDEFINITION FLAG IS SET.                                    FCC1518X       4     A     
 HISTORY            GRA/DUM - SET *EU* FOR *IP* IF THE INCREMENT AND STORE ARE             FCC1518X       5     A     
 HISTORY            SEPERATED SO WE DONT DO ANY ADDRESS DIFFERENCING.                      FCC1518X       6     A     
 HISTORY            IS DONE.                                                               FCC1518X       7     A     
 HISTORY            GRA/MFA - DONT ADDRESS DIFFERENCE IF BASE IS *XU* ( EU IN RCT          FCC1518X       8     A     
 HISTORY            SIJ    11/12/76    APPLIES TO FTN 4.6, OPT=1,2                         FCC1518X       9     A     
 HISTORY                                                                                   FCC1518X      10     A     
 HISTORY   FCC1530X GPO/MIE - CORRECT CODE MOTION WHEN MOVING OUT AN EXPRESSION            FCC1530X       1     A     
 HISTORY            THAT *PRS* AND HAS REMAINING USES IN THE SEQUENCE.                     FCC1530X       2     A     
 HISTORY            SIJ    10/12/76    APPLIES TO FTN 4.6, OPT=2                           FCC1530X       3     A     
 HISTORY                                                                                   FCC1530X       4     A     
 HISTORY   FCC1531X GRA/MFA - DONT CHANGE THE TYPE OF A CANIDATE ( VC TO AC )              FCC1531X       1     A     
 HISTORY            SINCE THIS CAN CAUSE INCORRECT CODE TO BE GENERATED.                   FCC1531X       2     A     
 HISTORY            SIJ    10/20/76    APPLIES TO FTN 4.6 , OPT=1,2                        FCC1531X       3     A     
 HISTORY                                                                                   FCC1531X       4     A     
 HISTORY   FCC1532X GPO/MIP - CORRECT HANDLING OF MULTIPLE BLOCK LOOPS WITH                FCC1532X       1     A     
 HISTORY            MULTIPLE INCREMENTS SO THAT THEY ARE HANDLED CORRECTLY IN              FCC1532X       2     A     
 HISTORY            OPT=1.                                                                 FCC1532X       3     A     
 HISTORY            SIJ    10/14/76    APPLIES TO FTN 4.6 , OPT=1,2                        FCC1532X       4     A     
 HISTORY                                                                                   FCC1532X       5     A     
 HISTORY   FCC1545X ARITH/MOPA  THIS CODE CAUSES A FLOATING POINT MULTIPLY BY A            FCC1545X       1     A     
 HISTORY            CONSTANT 2. TO BE CONVERTED TO AN ADD REGARDLESS OF THE ROUND          FCC1545X       2     A     
 HISTORY            OPTION SETTING.  THE ADD WILL BE ROUNDED IF AND ONLY IF                FCC1545X       3     A     
 HISTORY            ROUND=+ WAS SELECTED.                                                  FCC1545X       4     A     
 HISTORY            MAH    76/10/20    APPLIES TO FTN 4.6                                  FCC1545X       5     A     
 HISTORY                                                                                   FCC1545X       6     A     
 HISTORY   FCC1551X OCTAL CONSTANT IN LIST DIRECTED OUTPUT CAUSES ERROR MODE 1.            FCC1551X       1     A     
 HISTORY            MMF    10/29/76   APPLIED AGAINST FTN4.6 TS.                           FCC1551X       2     A     
 HISTORY                                                                                   FCC1551X       3     A     
 HISTORY   FCC1555X MCG/JAM/CRA - DONT BLOWUP IF A B-REGISTER DEADLOCK.                    FCC1555X       1     A     
 HISTORY            SIJ    11/6/76     APPLIES TO FTN 4.6, OPT                             FCC1555X       2     A     
 HISTORY                                                                                   FCC1555X       3     A     
 HISTORY   FCC1556X GPO - SET BIT IN REGION LIVE ENTRY BIT VECTOR FOR MOVED STORES         FCC1556X       1     A     
 HISTORY            SO *GRA* PRELOADS REFERENCES TO THEM THAT ARE ASSIGNED TO              FCC1556X       2     A     
 HISTORY            REGISTERS IN A LOOP. ALSO REMOVE *RF* BIT KLUDGE.                      FCC1556X       3     A     
 HISTORY            SIJ    11/5/76     APPLIES TO FTN 4.6, OPT=2                           FCC1556X       4     A     
 HISTORY                                                                                   FCC1556X       5     A     
 HISTORY   FCC1559X OPTIONS,HEADER/PPA,LEX/=XLIB,INIT/IMO,PH1CTL/PROG                      FCC1559X       1     A     
 HISTORY            ACCOMODATE PHASE I OF THE CRM2 CHANGE-OVER BY ENLARGING                FCC1559X       2     A     
 HISTORY            THE FIT LENGTH BY 9 WORDS, AND CHANGING THE CALLS                      FCC1559X       3     A     
 HISTORY            OF *Q8NTRY* AND *FTNRPV.* TO *Q1NTRY* AND *FTNRP1.*                    FCC1559X       4     A     
 HISTORY            RESPECTIVLY.                                                           FCC1559X       5     A     
 HISTORY            IF THIS IDENT IS INSTALLED YOU MUST INSTALL FCL1064.                   FCC1559X       6     A     
 HISTORY            LDH    11/8/76     APPLIES TO FTN OPT AND TS.                          FCC1559X       7     A     
 HISTORY                                                                                   FCC1559X       8     A     
 HISTORY   *L452*    *************************************************************         *L452*         1     A     
 HISTORY   F7540FTA FTNMAC, KEY/NTR, GEN/O=VOID, FAX/PADDSUB, POST/OVC -                   F7540FTA       1     A     
 HISTORY            ALWAYS VOID CPU INSTRUCTION STACK WITH *RJ* WHEN MODIFYING             F7540FTA       2     A     
 HISTORY            OBJECT CODE, REGARDLESS OF TARGET CPU MODEL.  AFFECTS OPT              F7540FTA       3     A     
 HISTORY            ADDSUB LOOP EXIT AND TS ALTERNATE ENTRY POINT CODE.                    F7540FTA       4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  42    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            IMPROVES OBJECT CODE PORTABILITY IN MULTI-MAINFRAME                    F7540FTA       5     A     
 HISTORY            ENVIRONMENTS.                                                          F7540FTA       6     A     
 HISTORY            MAH,DCD  77/04/19  APPLIES TO FTN 4.6 (OPT AND TS).                    F7540FTA       7     A     
 HISTORY                                                                                   F7540FTA       8     A     
 HISTORY   DBG0004  MAKES COMDECK /DBG=IDP/ USE *COMCSFN* FOR SPACE FILL NAME.             DBG0004        1     A     
 HISTORY            PC     76/05/24    APPLIES TO /DBG=IDP/ VERSION 1.0                    DBG0004        2     A     
 HISTORY                                                                                   DBG0004        3     A     
 HISTORY   DBG0005  CHANGES INTERACTIVE INPUT AND OUTPUT FILES                             DBG0005        1     A     
 HISTORY            FROM *IDPI* TO *ZZZZZDI*, AND *IDPO* TO *ZZZZZDO*.                     DBG0005        2     A     
 HISTORY            ALSO CHANGES *FET* LENGTHS FROM DEFAULT (5) TO 7.                      DBG0005        3     A     
 HISTORY            PC     76/12/09    APPLIES TO /DBG=IDP/ VERSION 1.0                    DBG0005        4     A     
 HISTORY                                                                                   DBG0005        5     A     
 HISTORY   DBG0006  NEW COMMAND - *FREEZE* WRITES INTERACTIVE CORE IMAGE                   DBG0006        1     A     
 HISTORY            TO FILE *FRZ*.                                                         DBG0006        2     A     
 HISTORY            PC     76/12/10    APPLIES TO DBG=IDP VERSION 1.0                      DBG0006        3     A     
 HISTORY            DECKS  DBG=IDP                                                         DBG0006        4     A     
 HISTORY   DBG0009  THIS CODE FIXES AN INTERFACE PROBLEM BETWEEN *IDP*                     DBG0009        1     A     
 HISTORY            AND ITS HOST.  THIS BUG EVIDENCED ITSELF IN THE FOLLOWING              DBG0009        2     A     
 HISTORY            FASHION --                                                             DBG0009        3     A     
 HISTORY            WHEN THE USER HAD *OUTPUT,B* SELECTED AND DID A *CODE* TO              DBG0009        4     A     
 HISTORY            SEE SOME CODE, *IDP* ONLY DEASSEMBLED THE HIGH ORDER                   DBG0009        5     A     
 HISTORY            INSTRUCTION IN EACH WORD (I.E. ONE INSTRUCTION PER WORD..UGH).         DBG0009        6     A     
 HISTORY            THIS WAS DUE TO THE FACT THAT *IDP* CALLS A HOST SUBROUTINE,           DBG0009        7     A     
 HISTORY            VIA *PRBDO* MACRO, TO OUTPUT LINES THAT ARE DESTINED FOR BATCH         DBG0009        8     A     
 HISTORY            (I.E. NOT INTERACTIVE...*OUTPUT,B*).  WHEN CALLING THIS                DBG0009        9     A     
 HISTORY            *PRBDO* SUBROUTINE, *IDP* EXPECTED SOME REGISTERS TO BE                DBG0009       10     A     
 HISTORY            LOCKED  (I.E. LEFT ALONE)...ONE HOST DIDNT.  ERGO, TO                  DBG0009       11     A     
 HISTORY            TOTALLY AVOID THE PROBLEM, *IDP* NOW SAVES THESE CRITICAL              DBG0009       12     A     
 HISTORY            REGISTERS THEREBY AVOIDING UNRULY HOSTS.                               DBG0009       13     A     
 HISTORY   FCCT006X DBGPHCT - FIX C$-DEBUG INITIALIZATION PROBLEM THAT CAUSES              FCCT006X       1     A     
 HISTORY            REGRESSION TEST *DEB04* TO MODE OUT DURING TEST-MODE                   FCCT006X       2     A     
 HISTORY            COMPILATION.  ALSO REMOVES DEAD ENTRY POINTS.                          FCCT006X       3     A     
 HISTORY            DCD    76/11/09    APPLIES TO FTN 4.6 (OPT).                           FCCT006X       4     A     
 HISTORY   FCCT007  MAKES *TSNAP* AND *SNAP* USE *COMCSFN*.                                FCCT007        1     A     
 HISTORY            PC     76/05/24    APPLIES TO FTN 4.6.                                 FCCT007        2     A     
 HISTORY                                                                                   FCCT007        3     A     
 HISTORY   FCC1456X FLY/N4  FTN FAILS TO DETECT AN ILLEGAL REPEAT COUNT BEFORE             FCC1456X       1     A     
 HISTORY            A SLASH FIELD SEPARATOR. E.G.    10  FORMAT(7/)                        FCC1456X       2     A     
 HISTORY            SSK    10/06/76    APPLIED AGAINST FTN                                 FCC1456X       3     A     
 HISTORY                                                                                   FCC1456X       4     A     
 HISTORY   FCC1462X REG/RUT  THE REGISTER ALLOCATION LOOP OF SLD IN GEN BECAME             FCC1462X       1     A     
 HISTORY            HUNG. THIS OCCURED BECAUSE RUT WAS ALLOWING A-REG REGFILE              FCC1462X       2     A     
 HISTORY            ENTRIES TO REMAIN EVEN AFTER THE CORRESPONDING X-REG ENTRY             FCC1462X       3     A     
 HISTORY            (WITH THE SAME TAG) HAD BEEN CLOBBERED.RUT CHOOSES TO CLOB-            FCC1462X       4     A     
 HISTORY            BER REGS ON THE BASIS OF A CALL TO GST (WHICH KEYS ON TAG).            FCC1462X       5     A     
 HISTORY            ERRONEOUS ENTRIES IN REGFILE CAUSED THE CURRENT ENTRIES TO             FCC1462X       6     A     
 HISTORY            BE CLEARED RATHER THAN THE A-REG RESIDUES THAT SHOULD HAVE             FCC1462X       7     A     
 HISTORY            BEEN REMOVED EARLIER.IN SLD, THE ADDRESS FUNCTION REG GOT              FCC1462X       8     A     
 HISTORY            CLEARED IN THIS FASHION ON EACH PASS THROUGH THE LOOP,                 FCC1462X       9     A     
 HISTORY            CAUSING ANOTHER REPEAT TO RELOAD.                                      FCC1462X      10     A     
 HISTORY            WED   76/12/21   APPLIED AGAINST TS 4.6                                FCC1462X      11     A     
 HISTORY                                                                                   FCC1462X      12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  43    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCC1463X HEADER/PPA3,ERRORS,FTNMSG FTN 4.6 HANDLES BUFFER SIZE                  FCC1463X       1     A     
 HISTORY            DECLARATIONS EXCEEDING THE MAXIMUM ALLOWED INCORRECTLY.                FCC1463X       2     A     
 HISTORY            TS SUBSTITUTES THE STANDARD LENGTH OF 2000B  (SHOULD USE THE           FCC1463X       3     A     
 HISTORY            MAXIMUM ALLOWED). OPT SUBSTITUTES THE MAXIMUM ALLOWED BUT              FCC1463X       4     A     
 HISTORY            THE ERROR MESSAGE INDICATES 2000B USED.                                FCC1463X       5     A     
 HISTORY            SSK    08/31/76    APPLIED AGAINST FTN 4.6                             FCC1463X       6     A     
 HISTORY                                                                                   FCC1463X       7     A     
 HISTORY   FCC1550X ERRORS,END  FTN,TS 4.6  A FUNCTION NAME NOT APPEARING                  FCC1550X       1     A     
 HISTORY            ON THE LEFT SIDE OF AT LEAST ONE ASSIGNMENT                            FCC1550X       2     A     
 HISTORY            STATEMENT IS A FATAL ERROR IN FTN(OPT) AND A WARNING                   FCC1550X       3     A     
 HISTORY            MESSAGE ERROR IN  FTN(TS). IT SHOULD BE A FATAL ERROR                  FCC1550X       4     A     
 HISTORY            IN BOTH COMPILERS.                                                     FCC1550X       5     A     
 HISTORY            IO/A=STR SET DEFINE BIT FOR THE STRING ADDRESS                         FCC1550X       6     A     
 HISTORY            VARIABLE IN ENCODE STATEMENTS.                                         FCC1550X       7     A     
 HISTORY            SSK/LDH/MAH 12/15/76     APPLIES TO FTN 4.6 TS.                        FCC1550X       8     A     
 HISTORY                                                                                   FCC1550X       9     A     
 HISTORY   FCC1558X TABLES/CHARMAP                                                         FCC1558X       1     A     
 HISTORY            DUC NORMALLY ENDS UP IGNORING O=NTR0 TURPLES IN CALCULATING            FCC1558X       2     A     
 HISTORY            USAGE COUNTS.  HOWEVER, WHEN THE INDEX TO THE SYMBOL TABLE             FCC1558X       3     A     
 HISTORY            ENTRY FOR THE ENTRY POINT NAME OVERFLOWS INTO BIT 9, DUC               FCC1558X       4     A     
 HISTORY            CONSIDERS THE WORD AS A POINTER TO AN INTERMEDIATE.  THIS CODE         FCC1558X       5     A     
 HISTORY            MODIFIES CHARMAP INDEX O.NTR TO CAUSE DUC TO IGNORE COMPLETELY         FCC1558X       6     A     
 HISTORY            ALL TURPLES WHOSE OPERATOR CONTAINS O.NTR IN THE LOW 18 BITS.          FCC1558X       7     A     
 HISTORY            JLA    76/11/10    APPLIES TO FTN4.6,TS.                               FCC1558X       8     A     
 HISTORY                                                                                   FCC1558X       9     A     
 HISTORY   FCC1568X GRA/IRA/ST - OUTPUT XMT BETWEEN DEF AND RS IF CANIDATE IS              FCC1568X       1     A     
 HISTORY            NOT IN SAME REGISTER AS THE *DEF*.                                     FCC1568X       2     A     
 HISTORY            SIJ       11/17/76       APPLIES TO FTN 4.6, OPT=2                     FCC1568X       3     A     
 HISTORY                                                                                   FCC1568X       4     A     
 HISTORY   FCC1571X IO/IOL47 FTN,TS 4.6 ALLOWS THE USER TO CHANGE A DO INDEX BY            FCC1571X       1     A     
 HISTORY            A READ STATEMENT LOCATED WITHIN THE DO. FTN(OPT) DETECTS               FCC1571X       2     A     
 HISTORY            THIS AS A FATAL ERROR.                                                 FCC1571X       3     A     
 HISTORY            SSK    11/19/76    APPLIED AGAINST FTN,TS 4.6                          FCC1571X       4     A     
 HISTORY                                                                                   FCC1571X       5     A     
 HISTORY   FCC1573X DECL/EQU, ERRORS- TS DOES NOT DIAGNOSE ILLEGAL EXTENSION OF            FCC1573X       1     A     
 HISTORY            COMMON BLOCK ORIGIN.  CHECK EQUIVALENCED VARIABLES FOR NEGATIV         FCC1573X       2     A     
 HISTORY            COMMON BLOCK EXTENSION IN G-F PASS 1 AND ADJUST ITS RA TO FIT          FCC1573X       3     A     
 HISTORY            WITHIN BLOCK.  ADD NEW ERROR MESSAGE *E.EQ16*.                         FCC1573X       4     A     
 HISTORY            ATH    76/11/30    APPLIED AGAINST FTN 4.6/TS                          FCC1573X       5     A     
 HISTORY                                                                                   FCC1573X       6     A     
 HISTORY   FCC1576X POST/ASN - SPACE FILL LABELS PROPERLY                                  FCC1576X       1     A     
 HISTORY            SIJ    76/11/23    APPLIES TO FTN 4.6, OPT=2                           FCC1576X       2     A     
 HISTORY                                                                                   FCC1576X       3     A     
 HISTORY   FCC1580X MCG/JAM/CNU - DONT CALL *SSR* WHEN RESULT IS FROM A *DEF* OR A         FCC1580X       1     A     
 HISTORY  *         *RS*.  THE SEQUENCE WITH DEF X0,X6,X7 CAUSED INCORRECT CODE            FCC1580X       2     A     
 HISTORY            WHEN SSR TRIED TO DUMP X0 BEFORE THE DEF X6,X7 WERE ISSUED.            FCC1580X       3     A     
 HISTORY            SIJ    12/1/76     APPLIES TO FTN 4.6 , OPT                            FCC1580X       4     A     
 HISTORY                                                                                   FCC1580X       5     A     
 HISTORY   FCC1583AX GEN/SKELS, MACROX/SKELS.   IMPROVE ACCURACY OF THE                    FCC1583AX      1     A     
 HISTORY            AMOD   INTRINSIC FUNCTION.                                             FCC1583AX      2     A     
 HISTORY            LDH/MAH 2/23/77    APPLIES TO FTN TS AND OPT.                          FCC1583AX      3     A     
 HISTORY                                                                                   FCC1583AX      4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  44    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCC1587X STMTP/FMAC                                                             FCC1587X       1     A     
 HISTORY            FMAC TRUNCATES A 7-CHARACTER GENERATED LABEL TO THE HIGH-ORDER         FCC1587X       2     A     
 HISTORY            6 CHARACTERS.  THIS CODE INITIALIZES THE BIT COUNTER ("BC") TO         FCC1587X       3     A     
 HISTORY            USE ALL 7 CHARACTERS IN -CHARACTER CONVERSION-.                        FCC1587X       4     A     
 HISTORY            JLA    76/11/30    APPLIES TO FTN4.6                                   FCC1587X       5     A     
 HISTORY                                                                                   FCC1587X       6     A     
 HISTORY   FCC1596X PROSEQ/ESR/IXI - CHECK REG TYPE BEFORE CHANGING XMIT TO SA SO          FCC1596X       1     A     
 HISTORY            WE DONT TRUNCATE LCM=I ADDRESSES THAT ARE IN X-REGISTERS.              FCC1596X       2     A     
 HISTORY            SIJ    12/17/76    APPLIES TO FTN 4.6.                                 FCC1596X       3     A     
 HISTORY                                                                                   FCC1596X       4     A     
 HISTORY   FCC1603X END/CKS                                                                FCC1603X       1     A     
 HISTORY            CKS MADE TO IGNORE COMPILER GENERATED LABELS IN T.DO.                  FCC1603X       2     A     
 HISTORY                                                                                   FCC1603X       3     A     
 HISTORY            JLA    76/12/17    APPLIES TO FTN 4.6, TS                              FCC1603X       4     A     
 HISTORY                                                                                   FCC1603X       5     A     
 HISTORY   FCC1605X FTN - REMOVE DOLLAR SIGN $ FROM END OF TIME IN TITLE LINE.             FCC1605X       1     A     
 HISTORY            DLD/SIJ 76/12/16   APPLIES TO FTN 4.6                                  FCC1605X       2     A     
 HISTORY                                                                                   FCC1605X       3     A     
 HISTORY   FCC1608X INIT/FTO,INIT/IMO,BATCH/IST,PIG/WIN,ERRORS/LLN                         FCC1608X       1     A     
 HISTORY            THIS CODE CAUSES A FULL OBJECT CODE LISTING BY THE TS COMPILER         FCC1608X       2     A     
 HISTORY            WHENEVER -OL- AND -B=0- APPEAR ON THE -FTN- CONTROL CARD.  THE         FCC1608X       3     A     
 HISTORY            PREVIOUS INCONSISTENCY WAS THE CAUSE OF SOME INTERMITTENT MODE         FCC1608X       4     A     
 HISTORY            1S.                                                                    FCC1608X       5     A     
 HISTORY            JLA    76/12/16    APPLIES TO FTN 4.6, TS.                             FCC1608X       6     A     
 HISTORY                                                                                   FCC1608X       7     A     
 HISTORY   FCC1616X PAR/A=BEF: THE STACK POINTER WAS NOT INTERROGATED FOR                  FCC1616X       1     A     
 HISTORY            STACKED SCRATCH TABLE ENTRIES WHENEVER THE TRACE-                      FCC1616X       2     A     
 HISTORY            BACK OPTION WAS OFF. THIS CAUSED READING UP A BOGUS                    FCC1616X       3     A     
 HISTORY            OPERAND WHICH FORCED A MODE OUT IN GST OF REG.                         FCC1616X       4     A     
 HISTORY            WED    77/02/24    APPLIED AGAINST TS 4.6                              FCC1616X       5     A     
 HISTORY                                                                                   FCC1616X       6     A     
 HISTORY   FCC1623X CFA/MRB - KEY LISTING OF UNREACHABLE CODE OFF SOURCE LIST              FCC1623X       1     A     
 HISTORY            OR REFMAP.                                                             FCC1623X       2     A     
 HISTORY            SIJ    1/7/77      APPLIES TO FTN 4.6, OPT=2                           FCC1623X       3     A     
 HISTORY                                                                                   FCC1623X       4     A     
 HISTORY   FCC1624X PRE/RJX - PROCESS I/O LIST OF BUFFER IN STMT SO LOCAL VARIABLE         FCC1624X       1     A     
 HISTORY            ARE HANDLED PROPERLY IN OPT=2                                          FCC1624X       2     A     
 HISTORY            SIJ    1/21/77     APPLIES TO FTN 4.6, OPT=2                           FCC1624X       3     A     
 HISTORY                                                                                   FCC1624X       4     A     
 HISTORY   FCC1626X GRA/IRA - SET *EU* BIT FOR INC VALUE IF INCREMENT VARIABLE IS          FCC1626X       1     A     
 HISTORY            ASSIGNED TO AN X-REGISTER                                              FCC1626X       2     A     
 HISTORY            SIJ    1/4/76      APPLIES TO FTN 4.6, OPT=2                           FCC1626X       3     A     
 HISTORY                                                                                   FCC1626X       4     A     
 HISTORY   FCC1636X KEY/CON FTN,TS GENERATES A JUMP TO A NON EXISTENT INTERNAL             FCC1636X       1     A     
 HISTORY            LABEL WHEN A CONTINUE IS THE OBJECT OF A LOGICAL *IF*                  FCC1636X       2     A     
 HISTORY            ARITH/IFSTMTGO FTN(OPT) FAILS TO ISSUE A WARNING MESSAGE               FCC1636X       3     A     
 HISTORY            WHEN A CONTINUE STATEMENT FOLLOWED BY SPURIOUS CHARACTERS              FCC1636X       4     A     
 HISTORY            IS THE OBJECT OF A LOGICAL *IF*                                        FCC1636X       5     A     
 HISTORY            SSK    01/25/77    APPLIED AGAINST FTN,4.6                             FCC1636X       6     A     
 HISTORY                                                                                   FCC1636X       7     A     
 HISTORY   FCC1644X GRA/IRA/LD - DO NOT OUTPUT ERRONEOUS *SA* IF LD FPADDR AND             FCC1644X       1     A     
 HISTORY            CANDIDATE IS IN AN X-REGISTER SINCE THIS WILL TRUNCATE A LCM=I         FCC1644X       2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  45    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            ADDRESS.                                                               FCC1644X       3     A     
 HISTORY            SIJ    2/1/77      APPLIES TO FTN 4.6, OPT=2                           FCC1644X       4     A     
 HISTORY                                                                                   FCC1644X       5     A     
 HISTORY   FCC1545X PROSEQ - ELIMINATE MEMORY OVERFLOW CHECK FOR OPT=1 LOOP                FCC1645X       1     A     
 HISTORY            PROCESSING.                                                            FCC1645X       2     A     
 HISTORY            SIJ    77/01/26    APPLIES TO FTN 4.6                                  FCC1645X       3     A     
 HISTORY                                                                                   FCC1645X       4     A     
 HISTORY   FCC1646X GRA/OIL - DO NOT OUTPUT *ILD* OF *CM* THAT IS ASSIGNED TO A            FCC1646X       1     A     
 HISTORY            REGISTER IF BASE WAS USED IN THE LOOP SO A DEFINITION OF THE           FCC1646X       2     A     
 HISTORY            *CR* IN THE PROLOGUE IS STORED IN MEMORY.                              FCC1646X       3     A     
 HISTORY            SIJ    2/1/77      APPLIES TO FTN 4.6, OPT=2                           FCC1646X       4     A     
 HISTORY                                                                                   FCC1646X       5     A     
 HISTORY   FCC1653X REG/SST: UNNECESSARY LCM CHECKS CAUSED A SIGNIFIGANT                   FCC1653X       1     A     
 HISTORY            SLOW DOWN IN 6000 COMPILATION TIME. A CHECK FOR ADD-                   FCC1653X       2     A     
 HISTORY            RESS LOADS FILTERS ALL BUT NECESSARY LCM CHECKS.                       FCC1653X       3     A     
 HISTORY            WED    76/1/26     APPLIED AGAINST  TS 4.6                             FCC1653X       4     A     
 HISTORY                                                                                   FCC1653X       5     A     
 HISTORY   FCC1655X MCG - RESOLVE DEADLOCK SITUATIONS IN A WIDER VARIETY OF CASES          FCC1655X       1     A     
 HISTORY            SIJ    77/02/28    APPLIES TO FTN 4.6                                  FCC1655X       2     A     
 HISTORY                                                                                   FCC1655X       3     A     
 HISTORY   FCC1656X MCG/JAM/CRC - COUNT A INTERFERING STORE AS A USE WHEN                  FCC1656X       1     A     
 HISTORY            CALCULATING THE NEXT USE DISTANCE.                                     FCC1656X       2     A     
 HISTORY            SIJ    2/9/77      APPLIES TO FTN 4.6, OPT=1,2                         FCC1656X       3     A     
 HISTORY                                                                                   FCC1656X       4     A     
 HISTORY   FCC1658X INIT/FTO SUPPRESS PRINT DENSITY CARRIAGE CONTROL CHARACTERS            FCC1658X       1     A     
 HISTORY            WHEN   COMPILER OUTPUT IS DIRECTED TO A CONNECTED                      FCC1658X       2     A     
 HISTORY            TERMINAL.                                                              FCC1658X       3     A     
 HISTORY            LDH    2/10/77     APPLIES TO FTN 4.6 TS.                              FCC1658X       4     A     
 HISTORY                                                                                   FCC1658X       5     A     
 HISTORY   FCC1660X SQZ/IA&IS - DO NOT REDUCE (I+-J)-+I COMBINATIONS IF FIRST IS           FCC1660X       1     A     
 HISTORY            AN INCREMENT AND THEY SPAN BASIC BLOCKS.                               FCC1660X       2     A     
 HISTORY                                                                                   FCC1660X       3     A     
 HISTORY            SIJ    2/24/77     APPLIES TO FTN 4.6, OPT=1,2                         FCC1660X       4     A     
 HISTORY                                                                                   FCC1660X       5     A     
 HISTORY   FCC1681X END/BT.LIB   ELIMINATE *LDSET LIB=SYSIO* ON SCOPE 2.                   FCC1681X       1     A     
 HISTORY            LDH    3/8/77      APPLIES TO FTN 4.6 TS.                              FCC1681X       2     A     
 HISTORY                                                                                   FCC1681X       3     A     
 HISTORY   *L460*    ********************************************************************* *L460*         1     A     
 HISTORY   RSM3545C FTNTEXT,FTNMAC,PH1CTL/ESF,POST/OPL/LD/TSL,                             RSM3545C       1     A     
 HISTORY            FAX/AVEC/ADDSUB/PDELAY/PSUB.                                           RSM3545C       2     A     
 HISTORY            IMPLEMENT IMPROVED ADDSUB CODE COMPATIBLE ACROSS                       RSM3545C       3     A     
 HISTORY            ALL    CYBER MACHINES.                                                 RSM3545C       4     A     
 HISTORY            LDH/MAH 5/10/77    APPLIES TO FTN OPT=0/1/2.                           RSM3545C       5     A     
 HISTORY                                                                                   RSM3545C       6     A     
 HISTORY   RSM3545CA POST/TSL - CHANGE INSTRUCTION TO INTEGER ADD AS IT SHOULD BE.         RSM3545CA      1     A     
 HISTORY            LDH    77/08/23    APPLIES TO FTN 4.6                                  RSM3545CA      2     A     
 HISTORY                                                                                   RSM3545CA      3     A     
 HISTORY   FCC0885AX GPO/MII - CHANGE ILD TO TLD IF IH = IT. SO CODE IS CORRECT            FCC0885AX      1     A     
 HISTORY            WHEN WE MOVE AN INVARIANT FUNCTION REFERENCE FROM AN INNER LP.         FCC0885AX      2     A     
 HISTORY            SIJ    4/7/77      APPLIES TO FTN 4.6, OPT=2                           FCC0885AX      3     A     
 HISTORY                                                                                   FCC0885AX      4     A     
 HISTORY   FCC0238AX GPO/MII - MARK INVARIANT *IM* AS UNSAFE IF ANY OF ITS                 FCC0238AX      1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  46    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            OPERANDS MAY CAUSE AN INTERRUPT WHEN THE *IM* IS EXECUTED.             FCC0238AX      2     A     
 HISTORY            SQZ - INSERT AN UNPACK INSTRUCTION PRIOR TO UNSAFE IM.                 FCC0238AX      3     A     
 HISTORY            SIJ    6/6/77      APPLIES TO FTN 4.6, OPT=1,2                         FCC0238AX      4     A     
 HISTORY                                                                                   FCC0238AX      5     A     
 HISTORY   FCC1289X DPCLOSE/PDC,PCE,EQV   DOPROC/PSYM,DODEF.E   REFMAP/DSORT               FCC1289X       1     A     
 HISTORY            DECPRO/DPEQU  ARITH/STRIP  FTNMSG                                      FCC1289X       2     A     
 HISTORY            EQUIVALENCE PROCESSING REWRITE.  DIAGNOSTIC MESSAGE *COMMON            FCC1289X       3     A     
 HISTORY            EQUIVALENCE ERROR* IS DELETED, INSTEAD, THE MESSAGE *CONTRA-           FCC1289X       4     A     
 HISTORY            DICTORY EQUIVALENCING* IS GIVEN WHEN MEMBERS OF DIFFERENT              FCC1289X       5     A     
 HISTORY            COMMON BLOCKS ARE EQUIVALENCED, AND *REDUNDANT EQUIVALENCING*          FCC1289X       6     A     
 HISTORY            IS DIAGNOSED WHEN REDUNDANCY OCCURS.                                   FCC1289X       7     A     
 HISTORY            ROUTINE CLE ADDED TO RESOLVE LEVEL/LCM BIT PROPAGATION PROB-           FCC1289X       8     A     
 HISTORY            LEM IN EQUIVALENCE CLASSES.                                            FCC1289X       9     A     
 HISTORY            ALL MEMBERS OF THE EQUIVALENCE CLASS NOW APPEAR IN THE REF MAP.        FCC1289X      10     A     
 HISTORY            FTNATH 77/3/12     APPLIED AGAINST FTN 4.6/OPT                         FCC1289X      11     A     
 HISTORY                                                                                   FCC1289X      12     A     
 HISTORY   FCC1289AX  DPCLOSE/EQV      INCORPORATE COM BIT IN G-F TABLE ENTRY              FCC1289AX      1     A     
 HISTORY           SO THAT BASE OF A COMMON EQUIVALENCE CLASS CHOSEN HAS AN                FCC1289AX      2     A     
 HISTORY           ENTRY IN THE COMMON TABLE.                                              FCC1289AX      3     A     
 HISTORY           FTNATH  77/5/11     APPLIED AGAINST FTN 4.6/OPT                         FCC1289AX      4     A     
 HISTORY                                                                                   FCC1289AX      5     A     
 HISTORY   FCC1289BX DPCLOSE/EQV  LOOP IN SCAN 5 OF EQV FAILS TO RECOGNIZE                 FCC1289BX      1     A     
 HISTORY             BEGINNING OF NEXT CLASS BECAUSE COMPARE IS DONE ON 0 FROM             FCC1289BX      2     A     
 HISTORY             LOGICAL DIFFERENCE, AND THE OPERANDS WERE COMPLIMENT OF               FCC1289BX      3     A     
 HISTORY             EACH OTHER.   CHANGED THE LOGICAL DIFFERENCE TO AN INTEGER            FCC1289BX      4     A     
 HISTORY             SUBTRACT.                                                             FCC1289BX      5     A     
 HISTORY            ATH    77/08/01    APPLIED AGAINST FTN 4.6 OPT.                        FCC1289BX      6     A     
 HISTORY                                                                                   FCC1289BX      7     A     
 HISTORY   FCC1524X KEY,TABLES,ERRORS,MAIN,END                                             FCC1524X       1     A     
 HISTORY            ELIMINATE GENERATION OF EXECUTABLE CODE FOR BLOCKDATA                  FCC1524X       2     A     
 HISTORY            SUBPROGRAMS.                                                           FCC1524X       3     A     
 HISTORY            CYY/MMF  77/04/18  APPLIED AGAINST FTN4.6,TS.                          FCC1524X       4     A     
 HISTORY                                                                                   FCC1524X       5     A     
 HISTORY   FCC1563X FTNMSG,DATA/BVT/ADDCON/ODI/PDV -                                       FCC1563X       1     A     
 HISTORY            ERRORS,TSTEXT,TSDATA/ADC/ODI/PDV -  MODIFY DATA                        FCC1563X       2     A     
 HISTORY            STATEMENT PROCESSING TO INCLUDE DATA/CONSTANT TYPE                     FCC1563X       3     A     
 HISTORY            CHECKING.                                                              FCC1563X       4     A     
 HISTORY            LDH    4/1/77      APPLIES TO FTN 4.6 OPT AND TS.                      FCC1563X       5     A     
 HISTORY                                                                                   FCC1563X       6     A     
 HISTORY   FCC1584X GPO/MII/LD - DO NOT MOVE INDEXED LD OFF A SIDE BRANCH IF THE           FCC1584X       1     A     
 HISTORY            SUBSCRIPT IS NOT A LD OF A SIMPLE INTEGER VARIABLE.                    FCC1584X       2     A     
 HISTORY            SIJ    3/9/77      APPLIES TO FTN 4.6, OPT=1,2                         FCC1584X       3     A     
 HISTORY                                                                                   FCC1584X       4     A     
 HISTORY   FCC1588X CALL - REPLACE FCL ENTRY POINT *BUGCLL* WITH TWO NEW ENTRY             FCC1588X       1     A     
 HISTORY            POINTS *BUGCL1* AND *BUGCL2*.  THE NEW ENTRY POINTS DO NOT USE         FCC1588X       2     A     
 HISTORY            ACTUAL ARGUMENTS, AND ARE THUS IMMUNE TO *CON.* BLOCK WIPEOUT.         FCC1588X       3     A     
 HISTORY            REFERENCE DAP S2175, 1977 FEB 25.                                      FCC1588X       4     A     
 HISTORY                   *** INSTALLATION WARNING *** - FCL1138X MUST BE                 FCC1588X       5     A     
 HISTORY                   INSTALLED BEFORE OR WITH THIS CORRECTION SET.                   FCC1588X       6     A     
 HISTORY            DCD    77/04/13    APPLIES TO FTN 4.6 (OPT WITH C$-DEBUG).             FCC1588X       7     A     
 HISTORY                                                                                   FCC1588X       8     A     
 HISTORY   FCC1590X ARITH/OUT,ACALL - PREVENT MODE 1 IN *MCG* WHEN C$-DEBUG                FCC1590X       1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  47    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            SELECTED.  ARITH POPPED SAVED FUNCTION RESULT TABLE (FRSTB)            FCC1590X       2     A     
 HISTORY            ENTRIES PREMATURELY WHEN TRACING CALLS, RESULTING IN BAD               FCC1590X       3     A     
 HISTORY            R-LIST AND SUBSEQUENT PASS 2 ABORT.                                    FCC1590X       4     A     
 HISTORY            DCD    1977/03/07  APPLIES TO FTN 4.6 (OPT WITH C$-DEBUG).             FCC1590X       5     A     
 HISTORY   FCC1638X ERRORS,KEY/END1E,PAR/OMC2,GEN/MCTBL,FTNMSG,ENDPRO/PSS FTN(OPT)         FCC1638X       1     A     
 HISTORY            AND FTN(TS) ISSUE INCONSISTENT ANSI DIAGNOSTICS INVOLVING              FCC1638X       2     A     
 HISTORY            CONTROL FLOW INTO END LINE AND M XED MODE ARITHMETIC.                  FCC1638X       3     A     
 HISTORY            SSK    02/08/77    APPLIED AGAINST FTN 4.6                             FCC1638X       4     A     
 HISTORY                                                                                   FCC1638X       5     A     
 HISTORY   FCC1664X LISTIO/BUFIO - SET LOCF BIT FOR VARIABLES IN INPUT LIST OF             FCC1664X       1     A     
 HISTORY            BUFFER IN STMT TO INHIBIT CODE MOTION IN LOOPS WITH EXTERNAL           FCC1664X       2     A     
 HISTORY            REFERENCES IN THE CASE OF A BUFFERIN PRIOR TO A LOOP AND THE           FCC1664X       3     A     
 HISTORY            UNIT CALL IS CONDITIONALLY EXECUTED IN THE LOOP.                       FCC1664X       4     A     
 HISTORY            SIJ/ATH 3/17/77    APPLIES TO FTN 4.6, OPT=2                           FCC1664X       5     A     
 HISTORY                                                                                   FCC1664X       6     A     
 HISTORY   FCC1668X ARITH/IFBRT.2 FTN,OPT MODES OUT WITH LEADING ZEROS IN BRANCH           FCC1668X       1     A     
 HISTORY            LABELS OF ARITHMETIC IF STATEMENTS. FIX IFBRT(ARITH) TO SAVE           FCC1668X       2     A     
 HISTORY            THE HOLLERITH FORM OF THE LABEL ONLY AFTER CALLING DOLABR              FCC1668X       3     A     
 HISTORY            WHICH RETURNS THE LABEL IN X7 WITH NO LEADING ZEROS.                   FCC1668X       4     A     
 HISTORY            SSK    03/07/77    APPLIED AGAINST FTN,OPT                             FCC1668X       5     A     
 HISTORY                                                                                   FCC1668X       6     A     
 HISTORY   FCC1670X LISTIO/PLFN,FTNMSG FTN(OPT) DOES NOT ISSUE A DIAGNOSTIC                FCC1670X       1     A     
 HISTORY            WARNING MESSAGE WHEN AN UNDEFINED I/O FILE IS REFERENCED               FCC1670X       2     A     
 HISTORY            IN AN I/O STATEMENT.                                                   FCC1670X       3     A     
 HISTORY            SSK    03/01/77    APPLIED AGAINST FTN,OPT                             FCC1670X       4     A     
 HISTORY                                                                                   FCC1670X       5     A     
 HISTORY   FCC1677X PROSEQ/ESR - TRANSFER UDT ORDINAL FROM LD/ST TO STT FOR USE BY         FCC1677X       1     A     
 HISTORY            GRA SO WE DONT KILL STORES OF SIMPLE LCM VARIABLES .                   FCC1677X       2     A     
 HISTORY            SIJ    3/15/77     APPLIES TO FTN 4.6, OPT=2                           FCC1677X       3     A     
 HISTORY                                                                                   FCC1677X       4     A     
 HISTORY   FCC1678X BATCH - CLOSE LGO IF INPUT IS EMPTY ON SCOPE 2.1.                      FCC1678X       1     A     
 HISTORY            LDH/DLD/DDM 77/03/09 APPLIES TO FTN 4.6 TS                             FCC1678X       2     A     
 HISTORY                                                                                   FCC1678X       3     A     
 HISTORY   FCC1692X DO/CDI - RETURN REGISTER X6 WAS GETTING DESTROYED BY A CALL            FCC1692X       1     A     
 HISTORY            TO *SHRINK*                                                            FCC1692X       2     A     
 HISTORY            ERH/DLD 77/03/17   APPLIES TO FTN 4.6 TS                               FCC1692X       3     A     
 HISTORY                                                                                   FCC1692X       4     A     
 HISTORY   FCC1695X BDT/FIL - FORM INTERFERENCE LINKS BETWEEN CONDITIONAL JUMPS            FCC1695X       1     A     
 HISTORY            WHEN CALLED FROM *RIO* SO IT REORDERS THE SEQUENCE CORRECTLY.          FCC1695X       2     A     
 HISTORY            SIJ    3/16/77     APPLIES TO FTN 4.6, OPT=1,2                         FCC1695X       3     A     
 HISTORY                                                                                   FCC1695X       4     A     
 HISTORY   FCC1700X BDT/FTL - CHECK FOR TABLE OVERLAP SO WE DONT MODE OUT DURING           FCC1700X       1     A     
 HISTORY            COMPILATION.                                                           FCC1700X       2     A     
 HISTORY            SIJ    8/8/77      APPLIES TO FTN 4.6, OPT                             FCC1700X       3     A     
 HISTORY                                                                                   FCC1700X       4     A     
 HISTORY   FCC1703X IF/IFS - CORRECT PROCESSING OF IF STATEMENT LABEL                      FCC1703X       1     A     
 HISTORY            CHECKING TO CATCH *EOS* CORRECTLY FOR INCORRECT SYNTAX.                FCC1703X       2     A     
 HISTORY            LDH/DLD 77/04/04   APPLIES TO FTN(TS) 4.6                              FCC1703X       3     A     
 HISTORY                                                                                   FCC1703X       4     A     
 HISTORY   FCC1706X CLOSE2 - ENSURE FTNOPT BUFFER POINTERS ARE WITHIN FIELD LENGTH         FCC1706X       1     A     
 HISTORY            BEFORE ISSUING AN EVICT REQUEST.                                       FCC1706X       2     A     
 HISTORY            SIJ    77/03/21    APPLIES TO FTN 4.6                                  FCC1706X       3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  48    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FCC1706X       4     A     
 HISTORY   FCC1709X PAR,IO - MODELESS INTRINSIC FUNCTION IN LIST DIRECTED OUTPUT           FCC1709X       1     A     
 HISTORY            CAUSES ERROR MODE 1.                                                   FCC1709X       2     A     
 HISTORY            MMF        77/03/11   APPLIED AGAINST FTN4.6 TS                        FCC1709X       3     A     
 HISTORY                                                                                   FCC1709X       4     A     
 HISTORY   FCC1710X GPO/CIF - WHEN AN *IP* EXPRESSION IS OF THE FORM (I+INVEXP)-I,         FCC1710X       1     A     
 HISTORY            ETC IS REDUCED BY *SQZ* TO *INVEXP* DO NOT FORM THE *IP*               FCC1710X       2     A     
 HISTORY            FORMULAS IN *IIT* FOR IT.                                              FCC1710X       3     A     
 HISTORY            SIJ    3/31/77     APPLIES TO FTN 4.6, OPT=1,2                         FCC1710X       4     A     
 HISTORY                                                                                   FCC1710X       5     A     
 HISTORY   FCC1716X  TSTEXT,DECL,ERRORS,PAR,FTNTEXT,PH1CTL,FTNMSG,ARITH                    FCC1716X       1     A     
 HISTORY             EXTERNAL IN CALL ARGUMENT LIST SHOULD APPEAR IN EXTERNAL              FCC1716X       2     A     
 HISTORY             STATEMENT.                                                            FCC1716X       3     A     
 HISTORY             MMF       6/1/77   APPLIED AGAINST FTN 4.6                            FCC1716X       4     A     
 HISTORY                                                                                   FCC1716X       5     A     
 HISTORY   FCC1719X SQZ/IS - DO NOT CALL *CIA* IF HAVE  IS I,CON,K SO WE DONT              FCC1719X       1     A     
 HISTORY            REDUCE K = CON-K TO K = K-CON AFTER A LOOP.                            FCC1719X       2     A     
 HISTORY            SIJ    4/1/77      APPLIES TO FTN 4.6, OPT=2                           FCC1719X       3     A     
 HISTORY                                                                                   FCC1719X       4     A     
 HISTORY   FCC1728X   NUM,ERRORS,  FALSE *DO LOOP TERMINATED* ERROR.                       FCC1728X       1     A     
 HISTORY              WED/MMF      7/20/77   APPLIED AGAINST FTN 4.6 TS.                   FCC1728X       2     A     
 HISTORY                                                                                   FCC1728X       3     A     
 HISTORY   FCC1731X ARITH/DIV - ENSURE THAT ARITH POPS OCTAL                               FCC1731X       1     A     
 HISTORY            DIVIDE/MULTIPLY SEQUENCES CORRECTLY DESPITE FLIP/FLOP.                 FCC1731X       2     A     
 HISTORY            LDH    4/29/77     APPLIES TO FTN 4.6 OPT=1,2,3.                       FCC1731X       3     A     
 HISTORY                                                                                   FCC1731X       4     A     
 HISTORY   FCC1736X IO/IOL49A  FTN,TS DOES NOT PASS A VARIABLE DIMENSION                   FCC1736X       1     A     
 HISTORY            PARAMETER TO A SUB PROGRAM WHEN THE FIRST DIMENSION OF A               FCC1736X       2     A     
 HISTORY            MULTI DIMENSION STATEMENT IS A CONSTANT AND THE INVOLVED               FCC1736X       3     A     
 HISTORY            ARRAY IS USED IN A PRINT STATEMENT.                                    FCC1736X       4     A     
 HISTORY            SSK    05/04/77    APPLIED AGAINST FTN,TS                              FCC1736X       5     A     
 HISTORY                                                                                   FCC1736X       6     A     
 HISTORY   FCC1739X BDT - CLEAR *TSTC* AFTER *FIL* SO IT IS RESET WHEN *GAS* IS            FCC1739X       1     A     
 HISTORY            CALLED TO GET MORE SPACE.                                              FCC1739X       2     A     
 HISTORY            SIJ    5/1/77      APPLIES TO FTN 4.6, OPT                             FCC1739X       3     A     
 HISTORY                                                                                   FCC1739X       4     A     
 HISTORY   FCC1740X GRA/IRA/XMT - IF PRED HAS NO X-VALUE THEN USE B-REG VALUE              FCC1740X       1     A     
 HISTORY            AND GENERATE A *SA* INSTEAD.                                           FCC1740X       2     A     
 HISTORY            SIJ    5/1/77      APPLIES TO FTN 4.6, OPT=2                           FCC1740X       3     A     
 HISTORY                                                                                   FCC1740X       4     A     
 HISTORY   FCC1741X FTN   *A* OPTION SHOULD DIRECT JOB PROCESSING TO AN EXIT(S)            FCC1741X       1     A     
 HISTORY            CONTROL CARD IF FATAL COMPILATION ERRORS ARE DETECTED.                 FCC1741X       2     A     
 HISTORY            MMF     5/16/77    APPLIED AGAINST FTN 4.                              FCC1741X       3     A     
 HISTORY                                                                                   FCC1741X       4     A     
 HISTORY   FCC1746X TSDATA/BIT/CRL - CORRECT *REPFLAG* FORMAT                              FCC1746X       1     A     
 HISTORY            SO THAT REPS WITHIN REPS CAN BE DIAGNOSED.                             FCC1746X       2     A     
 HISTORY            LDH    5/2/77      APPLIES TO FTN 4.6 TS.                              FCC1746X       3     A     
 HISTORY                                                                                   FCC1746X       4     A     
 HISTORY   FCC1754  FAX/EX - LIMIT WORKING STORAGE BUFFER SIZE TO 7777                     FCC1754        1     A     
 HISTORY            OCTAL SO THAT THE FILL TABLE LENGTH WILL NOT EXCEED                    FCC1754        2     A     
 HISTORY            THE MAXIMUM POSSIBLE LOADER TABLE SIZE.                                FCC1754        3     A     
 HISTORY            LDH    8/4/77      APPLIES TO FTN 4.6 OPT.                             FCC1754        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  49    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FCC1754        5     A     
 HISTORY   FCC1755X UDT/PBB - SET  THE FINAL JUMP BIT IN THE *BIT* ENTRY OF                FCC1755X       1     A     
 HISTORY            A BLOCK THAT HAS A *JIN* INSTRUCTION.                                  FCC1755X       2     A     
 HISTORY            GJM    06/01/77    APPLIES TO FTN 4.6,OPT = 2                          FCC1755X       3     A     
 HISTORY                                                                                   FCC1755X       4     A     
 HISTORY   FCC1767X DECL/CLU  ERROR MESSAGE SHOWS INCORRECT BLOCK NUMBER.  CODE            FCC1767X       1     A     
 HISTORY            ASSUMED BLANK COMMON HAD BLOCK NUMBER OF 1 WHETHER IT WAS              FCC1767X       2     A     
 HISTORY            PRESENT OR NOT.  *BLNKCOM* HAS THE CORRECT BLOCK NUMBER.               FCC1767X       3     A     
 HISTORY            FTNATH 77/5/19     APPLIED AGAINST FTN4.6/TS                           FCC1767X       4     A     
 HISTORY                                                                                   FCC1767X       5     A     
 HISTORY   FCC1769X IO/IOD4 FAILS TO DETECT A MISSING COMMA SEPARATING A RIGHT             FCC1769X       1     A     
 HISTORY            AND LEFT PARENTHESIS. THE RIGHT PARENTHESIS ENDING A                   FCC1769X       2     A     
 HISTORY            SUBSCRIPTED LIST ELEMENT AND THE LEFT PARENTHEIS                       FCC1769X       3     A     
 HISTORY            MARKING THE BEGINNING OF AN IMPLIED DO.                                FCC1769X       4     A     
 HISTORY            SSK    05/25/77    APPLIED AGAINST FTN,TS                              FCC1769X       5     A     
 HISTORY                                                                                   FCC1769X       6     A     
 HISTORY   FCC1770X GRA/ERC/RS - DO NOT SET *IRA* BIT FOR CASE UL = N $ DO I =1,UL         FCC1770X       1     A     
 HISTORY            WHERE N IS A F.P. AND IS CHANGED TO A *AC* IN THE OUTER LOOP           FCC1770X       2     A     
 HISTORY            BECAUSE OF REFS IN THE INNER LOOP.                                     FCC1770X       3     A     
 HISTORY            SIJ    5/26/77     APPLIES TO FTN 4.6, OPT=2                           FCC1770X       4     A     
 HISTORY                                                                                   FCC1770X       5     A     
 HISTORY   FCC1776X DPCLOSE/EQV  NEGATIVE VALUE OF RA IN DIM TABLE  COMPUTED               FCC1776X       1     A     
 HISTORY            BY SCAN 5 OF EQV CAUSES ERROR MODE 1 IN FAX.                           FCC1776X       2     A     
 HISTORY            MEMBER OF LOCAL EQUIVALENCE CLASS MAY HAVE NEGATIVE RA IN EQV          FCC1776X       3     A     
 HISTORY            TAB ENTRY AFTER SCAN 4 OF EQV, SO THE FINAL RA SOULD BE                FCC1776X       4     A     
 HISTORY            COMPUTED AS RA(BASE) + BIAS INSTEAD OF RA(ROOT) + RA(MEMBER).          FCC1776X       5     A     
 HISTORY            ATH    77/5/25     APPLIED AGAINST FTN4.6/OPT                          FCC1776X       6     A     
 HISTORY                                                                                   FCC1776X       7     A     
 HISTORY   FCC1790X DECL/EQU - ENSURE *P.COMM* GETS SET IN SYMBOL TABLE FOR                FCC1790X       1     A     
 HISTORY            NON-ROOT MEMBERS OF A NON-LOCAL CLASS.                                 FCC1790X       2     A     
 HISTORY            LDH    77/6/6      APPLIES TO FTN 4.6 TS.                              FCC1790X       3     A     
 HISTORY                                                                                   FCC1790X       4     A     
 HISTORY   FCC1795X PH1CTL - IF LABELED END IS THE ONLY STATEMENT THE COMPILER             FCC1795X       1     A     
 HISTORY            LOOPS OR MODES OUT.                                                    FCC1795X       2     A     
 HISTORY             MMF       6/20/77  APPLIED AGAINST FTN 4.6 OPT.                       FCC1795X       3     A     
 HISTORY   FCC1797X FTN - PRINT DENSITY CONTROL CHARACTERS S AND T SHOULD                  FCC1797X       1     A     
 HISTORY            NOT BE SENT TO A TERMINAL CONNECTED OUTPUT FILE.                       FCC1797X       2     A     
 HISTORY             MMF       6/14/77  APPLIED AGAINST FTN 4.6 OPT.                       FCC1797X       3     A     
 HISTORY                                                                                   FCC1797X       4     A     
 HISTORY   FCC1801X PAR      LARGE INTEGER OR OCTAL EXPONENT WITH VARIABLE BASE            FCC1801X       1     A     
 HISTORY            CAUSES ERROR MODE = 1.                                                 FCC1801X       2     A     
 HISTORY            MMF     6/22/77    APPLIED AGAINST FTN 4.6  TS.                        FCC1801X       3     A     
 HISTORY                                                                                   FCC1801X       4     A     
 HISTORY   FCC1808X KEY - INCORRECT CODE GENERATED FOR STOP STATEMENT.                     FCC1808X       1     A     
 HISTORY            MMF     7/18/77    APPLIED AGAINST FTN 4.6  TS.                        FCC1808X       2     A     
 HISTORY                                                                                   FCC1808X       3     A     
 HISTORY   FCC1812X GEN/SLD - LOCK ADDRESS FUNCTION REGISTER WHEN AN ARRAY                 FCC1812X       1     A     
 HISTORY            LOAD CONFLICT OCCURS SUCH THAT *AIR* WILL NOT CHOOSE IT WHEN           FCC1812X       2     A     
 HISTORY            LOOKING FOR AN INTERMEDIATE.                                           FCC1812X       3     A     
 HISTORY            LDH    7/22/77     APPLIES TO FTN 4.6 TS.                              FCC1812X       4     A     
 HISTORY                                                                                   FCC1812X       5     A     
 HISTORY   FCC1825X BDT/RIO - FORCE LATE OUTPUT OF INSTRUCTIONS THAT *PRS* TO AN           FCC1825X       1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  50    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            X-REGISTERS IF THEY HAVE NO OPERAND PREDECESSORS.                      FCC1825X       2     A     
 HISTORY            SIJ    8/9/77      APPLIES TO FTN 4.6, OPT=2                           FCC1825X       3     A     
 HISTORY                                                                                   FCC1825X       4     A     
 HISTORY   FCC1828X GRA/MFA - DO NOT ADD ADDRESS CANIDATES WITH A H2 TO THE MFA            FCC1828X       1     A     
 HISTORY            ADDRESS CANIDATE TABLE SINCE THERE IS NOT ROOM FOR THE H2              FCC1828X       2     A     
 HISTORY            FIELD IN IT.                                                           FCC1828X       3     A     
 HISTORY            SIJ    77/08/04    APPLIES TO FTN 4.6, OPT=2                           FCC1828X       4     A     
 HISTORY                                                                                   FCC1828X       5     A     
 HISTORY   *L470*    *************************************************************         *L470*         1     A     
 HISTORY   FCC*78X  FTN,FTNRES.  UPDATE THE COPYRIGHT INFORMATION TO INCLUDE THE           FCC*78X        1     A     
 HISTORY            YEAR 1978.                                                             FCC*78X        2     A     
 HISTORY            DLD    77/06/13    APPLIES TO FTN4.6                                   FCC*78X        3     A     
 HISTORY                                                                                   FCC*78X        4     A     
 HISTORY   FCCT010  OUTPTK - ADD SPA= TO OUTPTK SO THAT FORTRAN CODED                      FCCT010        1     A     
 HISTORY            SUBROUTINES WHICH INCLUDE *SUBS* WILL HAVE THE                         FCCT010        2     A     
 HISTORY            *SPA.* EXTERNAL SATISFIED WITHIN THE COMPILER.                         FCCT010        3     A     
 HISTORY            LDH    8/25/77     APPLIES TO FTN OPT=0,1,2.                           FCCT010        4     A     
 HISTORY                                                                                   FCCT010        5     A     
 HISTORY   F191FCC  ADD FOLLOWING NAMES TO BEF TABLE (TS,OPT) TO ACCOMODATE NEW            F191FCC        1     A     
 HISTORY            FCL ROUTINES...DOUBLE PRECISION MODE (DTAN,DASIN,DACOS), REAL          F191FCC        2     A     
 HISTORY            MODE (ERF,ERFC,ATANH,SIND,COSD,TAND)                                   F191FCC        3     A     
 HISTORY            ERH/DLD 77/07/01   APPLIES TO FTN4.6 TS AND OPT.                       F191FCC        4     A     
 HISTORY            MUST BE INSTALLED IN CONJUNCTION WITH FCL 4.7.                         F191FCC        5     A     
 HISTORY                                                                                   F191FCC        6     A     
 HISTORY   STLOAD   ADD COMDECK FOR GENERATING *LDSET USE=STLXXX.* DIRECTIVES.             STLOAD         1     A     
 HISTORY            MUST BE INSTALLED TO SUPPORT IDENT *F162FTNA*.  THIS IDENT             STLOAD         2     A     
 HISTORY            SEPARATED FROM *F162FTNA* TO PROVIDE THE APPROPRIATE                   STLOAD         3     A     
 HISTORY            DECK NAME ON EACH NEW LINE.                                            STLOAD         4     A     
 HISTORY            DCD    77/02/01    APPLIES TO FTN 4.6.                                 STLOAD         5     A     
 HISTORY                                                                                   STLOAD         6     A     
 HISTORY   F162FTN1 OPTIONS, TSTEXT, FTNRES, FTN/FTNINIT, TABLES, BATCH/IST,               F162FTNA       1     A     
 HISTORY            HEADER/PPA, END/DFT, INIT/IMO,                                         F162FTNA       2     A     
 HISTORY            IO/BCK/BUF/DCD/EFI/NCD/FNC/REW/RIT/WOT/NDC                             F162FTNA       3     A     
 HISTORY            INTERFACE CODE FOR THE TS COMPILER TO MEET THE *FCL/CRM*               F162FTNA       4     A     
 HISTORY            INTERFACE SPECIFICATIONS. INCLUDES:-                                   F162FTNA       5     A     
 HISTORY            1.     REFORMATTING THE *FIT*.                                         F162FTNA       6     A     
 HISTORY            2.     IMPLEMENTING STATIC LOAD *USE* TABLES.                          F162FTNA       7     A     
 HISTORY            3.     IMPLEMENTING CONTROL CARD OPTION FOR THE ABOVE.                 F162FTNA       8     A     
 HISTORY            4.     CHANGING *Q1NTRY./FTNRP1.* TO *Q2NTRY./FTNRP2.*.                F162FTNA       9     A     
 HISTORY            LDH/MRR/DDM 1/25/77    APPLIES TO FTN,TS 4.6.                          F162FTNA      10     A     
 HISTORY                                                                                   F162FTNA      11     A     
 HISTORY   F162FTN2 OPTIONS,FTNMAC,FTNTEXT,LSTPRO,ENDPRO,LISTIO,PH1CTL,FAX,REFMAP.         F162FTNA      12     A     
 HISTORY            REVISE OPTIMIZING COMPILER TO PROVIDE FCL/CRM INTERFACE.               F162FTNA      13     A     
 HISTORY                                                                                   F162FTNA      14     A     
 HISTORY            SIGNIFICANT OBJECT CODE CHANGES (CRM - NOS,NOS/BE ONLY) --             F162FTNA      15     A     
 HISTORY            1.  LENGTHENS AND REFORMATS CRM FIT SKELETON.                          F162FTNA      16     A     
 HISTORY            2.  ADDS 6-WORD FIT EXTENSION FOR FCL.  1ST WORD CONTAINS MRL          F162FTNA      17     A     
 HISTORY                AND WSA IF MRL SPECIFIED ON *PROGRAM* STATEMENT.                   F162FTNA      18     A     
 HISTORY            3.  REMOVES 4-WORD EXTENSION TO WSA BUFFER.                            F162FTNA      19     A     
 HISTORY            4.  ADDS *LIBLNK* PARAMETER LIST THAT CONTAINS --                      F162FTNA      20     A     
 HISTORY                A.  NUMBER OF FILES.                                               F162FTNA      21     A     
 HISTORY                B.  FWA *FLINK* FILE VECTOR LIST.                                  F162FTNA      22     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  51    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                C.  STATIC LOAD BIT.                                               F162FTNA      23     A     
 HISTORY                D.  RUN-TIME PRINT LIMIT (POSITIVE INTEGER).                       F162FTNA      24     A     
 HISTORY            5.  ADDS *LDSET USE=STLXXX.* DIRECTIVES WHEN *STATIC* OPTION           F162FTNA      25     A     
 HISTORY                SELECTED.                                                          F162FTNA      26     A     
 HISTORY            6.  ADDS ZERO-WORD TERMINATOR TO *FLINK* FILE VECTOR LIST.             F162FTNA      27     A     
 HISTORY            7.  REMOVES  *  DATA -PRINTLIM*  DECLARATION.                          F162FTNA      28     A     
 HISTORY                                                                                   F162FTNA      29     A     
 HISTORY            ADDITIONAL CHANGES AFFECTING ALL SYSTEMS (CRM OR 7RM) --               F162FTNA      30     A     
 HISTORY            8.  CHANGES  * Q1NTRY./FTNRP1. *  TO  * Q2NTRY./FTNRP2. *.             F162FTNA      31     A     
 HISTORY            9.  IN *FTNMAC* --                                                     F162FTNA      32     A     
 HISTORY                A.  ADDS *LIBLNK*, *FILCRM* AND *FIL7RM* MACRO DEFINITIONS         F162FTNA      33     A     
 HISTORY                B.  REMOVES OBSOLETE *FILE* MACRO DEFINITION.                      F162FTNA      34     A     
 HISTORY                C.  PREFACES ALL MACROS WITH *PURGMAC*.                            F162FTNA      35     A     
 HISTORY            10. REVISES *REFMAP* TO ISSUE EXACT I/O BUFFER LENGTHS.                F162FTNA      36     A     
 HISTORY            DCD    77/02/01    APPLIES TO FTN 4.6 (OPT).                           F162FTNA      37     A     
 HISTORY                                                                                   F162FTNA      38     A     
 HISTORY            FCC1289CX DPCLOSE - COMMON EQUIVALENCED VARIABLES HAVE                 FCC1289CX      1     A     
 HISTORY            INCORRECT RA IN REFMAP.                                                FCC1289CX      2     A     
 HISTORY            ATH    77/09/07    APPLIES TO FTN4.6 OPT                               FCC1289CX      3     A     
 HISTORY                                                                                   FCC1289CX      4     A     
 HISTORY   FCC1826  GEN/O=SUBL - REMOVE *P.2ARY* BIT ON THE LOAD OF THE                    FCC1826        1     A     
 HISTORY            FIRST SUBSCRIPT WHEN PROCESSING A SUBSCRIPTED SUBSCRIPT,               FCC1826        2     A     
 HISTORY            THIS WAY *RUT* WILL STORE IT TO A TEMP IF NECESSARY.                   FCC1826        3     A     
 HISTORY            LDH    8/10/77     APPLIES TO FTN 4.6 TS.                              FCC1826        4     A     
 HISTORY                                                                                   FCC1826        5     A     
 HISTORY   FCC1829  BATCH/RUN,MAIN - CYCLE OFF ANY POSSIBLE COMMENT CARDS                  FCC1829        1     A     
 HISTORY            PRECEEDING THE FIRST STATEMENT OF A PROGRAM UNIT SO                    FCC1829        2     A     
 HISTORY            WE CAN TRULY IDENTIFY POSSIBLE INTERMIXED COMPASS.                     FCC1829        3     A     
 HISTORY            LDH    8/15/77     APPLIES TO FTN 4.6 TS.                              FCC1829        4     A     
 HISTORY                                                                                   FCC1829        5     A     
 HISTORY   FCC1837X PROSEQ/AIS - SET LAST USE ADDRESS OF INSTRUCTION THAT *PRS*            FCC1837X       1     A     
 HISTORY            A UJP OR FULL LOCK *RS* TO END OF SUBSEQUENCE SO WE DONT               FCC1837X       2     A     
 HISTORY            END UP WITH A B-REGISTER DEADLOCK IN *MCG*.                            FCC1837X       3     A     
 HISTORY            SIJ    8/24/77     APPLIES TO FTN 4.6, OPT=2                           FCC1837X       4     A     
 HISTORY                                                                                   FCC1837X       5     A     
 HISTORY   FCC1842X POST/ILD - CHECK ILD OPCODE TO SEE IF IH = *IT.* AND TREAT             FCC1842X       1     A     
 HISTORY            IT AS A *TLD* IF SO.                                                   FCC1842X       2     A     
 HISTORY            SIJ    8/26/77     APPLIES TO FTN 4.6, OPT=1,2                         FCC1842X       3     A     
 HISTORY                                                                                   FCC1842X       4     A     
 HISTORY   FCC1843X DBGPHCT - MICRO ADDED FOR SYSTEM MODE FILE NAME ZZZZZOP                FCC1843X       1     A     
 HISTORY            AND FTNOPT.                                                            FCC1843X       2     A     
 HISTORY            DLD    77/09/19    APPLIES TO FTN 4.6 OPT.                             FCC1843X       3     A     
 HISTORY                                                                                   FCC1843X       4     A     
 HISTORY   FCC1845X MCG/CRA - ALLOW OVERRIDE OF FULL LOCK RS"S TO B-REGISTERS              FCC1845X       1     A     
 HISTORY            SO A SWAP(BI,BJ) SEQUENCE OF INSTRUCTIONS WORKS.                       FCC1845X       2     A     
 HISTORY            SIJ    8/29/77     APPLIES TO FTN 4.6, OPT=1,2                         FCC1845X       3     A     
 HISTORY                                                                                   FCC1845X       4     A     
 HISTORY   FCC1847X OPTIONS,TSTEXT,FTNMAC,FTNTEXT,END,FAX - ADD MODEL 71 AND 171           FCC1847X       1     A     
 HISTORY            TO PREFIX TABLE.                                                       FCC1847X       2     A     
 HISTORY            DLD    77/09/06    APPLIES TO FTN OPT AND TS.                          FCC1847X       3     A     
 HISTORY                                                                                   FCC1847X       4     A     
 HISTORY   FCC1851  DBGPHCT/EXP - DEBUG EXTERNAL PACKET PROCESSING INTERROGATES            FCC1851        1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  52    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            *CP.CARD(1)* FOR EOR/EOF BEFORE CHECKING WHETHER THE                   FCC1851        2     A     
 HISTORY            STATEMENT *SCANNER* JUST HANDED HIM WAS A GOOD *DEBUG*                 FCC1851        3     A     
 HISTORY            STATEMENT. THUS THE LAST CARD IN AN EXTERNAL DEBUG                     FCC1851        4     A     
 HISTORY            PACKET DOES NOT GET PROCESSED.                                         FCC1851        5     A     
 HISTORY            LDH    9/23/77     APPLIES TO FTN 4.6 DEBUG.                           FCC1851        6     A     
 HISTORY                                                                                   FCC1851        7     A     
 HISTORY   FCC1852  DBGCOM,DBGEPKT/EXP,SCANNER/ERP - WHILE PROCESSING                      FCC1852        1     A     
 HISTORY            AN EXTERNAL DEBUG PACKET OR FILE, CERTAIN CLASSES OF ERROR             FCC1852        2     A     
 HISTORY            ARE ALSO ACCUMULATED BY *SCANNER*. THIS CODE TURNS *SCANNER*           FCC1852        3     A     
 HISTORY            ERROR PROCESSING OFF IN THE ABOVE CASES WHILE *DBGPHCT* HAS            FCC1852        4     A     
 HISTORY            CONTROL. IF THIS IS NOT DONE, ERROR MESSAGE LIMIT CAN BE               FCC1852        5     A     
 HISTORY            REACHED IN WHICH CASE *ERPRO* NEVER RETURNS CONTROL TO                 FCC1852        6     A     
 HISTORY            *DBGPHCT*.                                                             FCC1852        7     A     
 HISTORY            LDH    9/20/77     APPLIES TO FTN 4.6 DEBUG.                           FCC1852        8     A     
 HISTORY                                                                                   FCC1852        9     A     
 HISTORY   FCC1853X PH1CTL/CCS - CHECK COLUMNS 10-14 FOR * END * FOR END LINE.             FCC1853X       1     A     
 HISTORY            DLD    77/09/13    APPLIES TO FTN 4.6 OPT.                             FCC1853X       2     A     
 HISTORY                                                                                   FCC1853X       3     A     
 HISTORY   FCC1858X GPO - ENSURE 0 TERMINATOR AT END OF *BIT* WHEN INITIALIZING IT         FCC1858X       1     A     
 HISTORY            SIJ    9/21/77     APPLIES TO FTN 4.6, OPT=2                           FCC1858X       2     A     
 HISTORY                                                                                   FCC1858X       3     A     
 HISTORY   FCC1870  BATCH/RUN - REWIND F.LF BEFORE CLOSING IT SO THAT                      FCC1870        1     A     
 HISTORY            THE PSEUDO SCOPE 2 FET WILL BE RESET FOR THE NEXT USE.                 FCC1870        2     A     
 HISTORY            LDH    11/7/77     APPLIES TO FTN 4.7 TS.                              FCC1870        3     A     
 HISTORY                                                                                   FCC1870        4     A     
 HISTORY   FCC1872  SCANNER/CBL - CHECK CONTINUATION CARDS TO INSURE THAT WHEN DEBUG IS    FCC1872        1     A     
 HISTORY            ON, WE DO NOT GET A CONTINUATION OF A C$-DEBUG STATEMENT WITHOUT A     FCC1872        2     A     
 HISTORY            C$ IN COLUMNS ONE AND TWO.                                             FCC1872        3     A     
 HISTORY            LDH    10/25/77    APPLIES TO FTN 4.6 OPT.                             FCC1872        4     A     
 HISTORY                                                                                   FCC1872        5     A     
 HISTORY   FCC1879  DPCLOSE/PDC,EQV,ACA - LEVEL 3 DECLARATION ON LABELED COMMON BLOCK      FCC1879        1     A     
 HISTORY            THROUGH EQUIVALENCING DOES NOT CAUSE THE BLOCK TO BE LCM.              FCC1879        2     A     
 HISTORY            LEVEL NO. PROPAGATION THROUGH COMMON BLOCKS MUST BE DONE ONCE          FCC1879        3     A     
 HISTORY            BEFORE AND AFTER EQUIVALENCE PROCESSING.                               FCC1879        4     A     
 HISTORY            THE COMMON/LEVEL PROPAGATION LOOP IN PDC IS TAKEN OUT AND              FCC1879        5     A     
 HISTORY            MADE SUBROUTINE CCL.                                                   FCC1879        6     A     
 HISTORY            THE LCM INDICATOR ON COMMON BLOCK HEADER WORD IS SET IN CCL            FCC1879        7     A     
 HISTORY            INSTEAD OF ACA.                                                        FCC1879        8     A     
 HISTORY            ATH    77/10/20    APPLIES TO FTN 4.7 OPT                              FCC1879        9     A     
 HISTORY                                                                                   FCC1879       10     A     
 HISTORY   FCC1891  LIST/WCT - RE-FETCH BA.TEM FOR VAR-DIM OBJECT LIST AS                  FCC1891        1     A     
 HISTORY            TEMPORARY OBJECT LISTING CODE DESTROYED THE ORIGINAL.                  FCC1891        2     A     
 HISTORY            LDH    77/11/01    APPLIES TO FTN 4.7 TS                               FCC1891        3     A     
 HISTORY                                                                                   FCC1891        4     A     
 HISTORY   F66FCC   OPTIONS/.FID,FTN/CONFIG,FTN/CTL.CARD,FTN/CO.ID,FTN/FTNINIT,            F66FCC         1     A     
 HISTORY            FTN/ARG,FTN/CLERR,FTN/MIA,FTN/MIB,TSTEXT/T.LNT,TABLES/T.LNT,           F66FCC         2     A     
 HISTORY            BATCH/IST,LEX/S.IOCAL,HEADER/PPA,GEN/O=NTRN1,MAIN/CUS,                 F66FCC         3     A     
 HISTORY            GEN/O=OTR,REG/CIA,PIG/PIG,KEY/RTU,KEY/SPR,END/DFD,ERRORS/E.CT          F66FCC         4     A     
 HISTORY                                                                                   F66FCC         5     A     
 HISTORY            ADD OPTIONAL CAPABILITY TO TSFTN TO INTERFACE TO THE CYBER             F66FCC         6     A     
 HISTORY            INTERACTIVE DEBUGGER.  A NEW TABLE (T.LNT - LINE NUMBER TABLE)         F66FCC         7     A     
 HISTORY            IS IMPLEMENTED AS AN IMAGE OF THE LOAD FILE 5700 TABLE.  PIG           F66FCC         8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  53    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            CREATES THE TABLE ENTRIES WITH INFORMATION PASSED FROM EIS             F66FCC         9     A     
 HISTORY            (O=OTR).  EIS RECEIVES ITS INFORMATION FROM A REVISED-FORMAT           F66FCC        10     A     
 HISTORY            OTR TURPLE.  EIS ALSO GENERATES AN RJ TO *DBUG.LN* WHEN                F66FCC        11     A     
 HISTORY            REQUESTED.  CODE IS ALSO GENERATED TO SAVE A1 ON ENTRY TO              F66FCC        12     A     
 HISTORY            FUNCTIONS AND SUBROUTINES.  NEW ROUTINE DFD ADDED TO OUTPUT            F66FCC        13     A     
 HISTORY            SYMBOL (5600) AND LINE-NUMBER (5700) TABLES TO THE LOAD FILE.          F66FCC        14     A     
 HISTORY            TP.DIM IS SAVED IN DECL IN A NEW TABLE(TP.CIDM) TO PRESERVE            F66FCC        15     A     
 HISTORY            INFORMATION FOR ROUTINE DFD IN END.                                    F66FCC        16     A     
 HISTORY            JLA,ERH,DDM 76/10/27    APPLIES TO FTN4.6,TS.                          F66FCC        17     A     
 HISTORY                                                                                   F66FCC        18     A     
 HISTORY   F66FCCA  CHANGE COMMENT LINE SO AS TO USE EXISTING TEXT.                        F66FCCA        1     A     
 HISTORY            LDH    77/12/01    APPLIES TO FTN 4.7                                  F66FCCA        2     A     
 HISTORY                                                                                   F66FCCA        3     A     
 HISTORY   FCC1886  PAR/C=BIF - SET SMOD (DOMINANT MODE) FOR ADT TO PLACE IN TURPLE        FCC1886        1     A     
 HISTORY            OPERATOR WORD WHEN PROCESSING INTRINSIC FUNCTION.                      FCC1886        2     A     
 HISTORY            LDH    77/12/01    APPLIES TO FTN 4.7 TS.                              FCC1886        3     A     
 HISTORY                                                                                   FCC1886        4     A     
 HISTORY   FCCA405  END/BT.LIB REMOVE *TSLIB* LDSETS                                       FCCA405        1     A     
 HISTORY            FOR LEVEL 466 AND ONWARDS.                                             FCCA405        2     A     
 HISTORY            LDH  1/10/78    APPLIES TO FTN 4.7 TS                                  FCCA405        3     A     
 HISTORY                                                                                   FCCA405        4     A     
 HISTORY   FCC1882  LISTIO/IOLIST - DO NOT FLUSH OUT I/O USE/DEF INFO AT BEGINNING         FCC1882        1     A     
 HISTORY            OF LIST BECAUSE UNIT/FORMAT INFO GETS LOST IF THERE IS A FUNCT         FCC1882        2     A     
 HISTORY            CALL IN THE LIST.                                                      FCC1882        3     A     
 HISTORY            SIJ    11/1/77     APPLIES TO FTN 4.6, OPT=2                           FCC1882        4     A     
 HISTORY                                                                                   FCC1882        5     A     
 HISTORY   *L477*    ****************************************************                  *L477*         1     A     
 HISTORY   FCCA403  END/DFD - UNUSED VARIABLES APPEARING IN TYPE STATEMENTS                FCCA403        1     A     
 HISTORY            ARE PLACED IN LOADER SYMBOL (5600) TABLES BY CHECKING                  FCCA403        2     A     
 HISTORY            FOR TYPE AS WELL AS VARIABLE.                                          FCCA403        3     A     
 HISTORY            WHEN ONLY ONE AND THE LAST 5600 TABLE IS GENERATED,                    FCCA403        4     A     
 HISTORY            THE LAST TABLE BIT (F) IN HEADER WORD IS ALWAYS SET.                   FCCA403        5     A     
 HISTORY            A 5600 TABLE IS GENERATED EVEN WHEN THERE IS NO                        FCCA403        6     A     
 HISTORY            VARIABLES IN THE SOURCE PROGRAM.                                       FCCA403        7     A     
 HISTORY            AML    01/23/78    APPLIES TO FTN 4.7 TS.                              FCCA403        8     A     
 HISTORY                                                                                   FCCA403        9     A     
 HISTORY   FCCA406  FTN/MIB - TWO IMPORTANT COMPILER OPTIONS HAVE BEEN                     FCCA406        1     A     
 HISTORY            INTRODUCED AT CODE LEVEL 466:                                          FCCA406        2     A     
 HISTORY            1) STATIC - FOR BAM 1.5 STATIC LOADING.                                FCCA406        3     A     
 HISTORY            2) ID - FOR INTERACTIVE DEBUG SUPPORT (THIS IS ONLY IN TS).            FCCA406        4     A     
 HISTORY            OBJECTIVE IS TO HAVE THESE NEW OPTIONS APPEAR IN THE                   FCCA406        5     A     
 HISTORY            "SELECTED OPTIONS" FIELD IN THE TITLE LINE IF THEY ARE                 FCCA406        6     A     
 HISTORY            CHOSEN BY THE USER.                                                    FCCA406        7     A     
 HISTORY            AML    01/16/78    APPLIES TO FTN 4.7 OPT & TS.                        FCCA406        8     A     
 HISTORY                                                                                   FCCA406        9     A     
 HISTORY   FCC1897  FTNMSG - DO NOT JUMP TO FTNEND WHEN FATAL ERRORS OCCURRED AND          FCC1897        1     A     
 HISTORY            NOT IN DEBUG MODE, INSTEAD PASS2 SHOULD BE LOADED AND EXECUTED.        FCC1897        2     A     
 HISTORY            AML    01/04/78    APPLIES TO FTN 4.7, OPT=1, R=0                      FCC1897        3     A     
 HISTORY                                                                                   FCC1897        4     A     
 HISTORY   FCC1902  FTN/IEM - CORRECT TEST FOR END OF STRING IN IEM.                       FCC1902        1     A     
 HISTORY            DLD    77/12/14    APPLIES TO FTN 4.7 OPT                              FCC1902        2     A     
 HISTORY                                                                                   FCC1902        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  54    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCC1918  GRA/OSI - MARK STT"S THAT SETUP INITIAL ADDRESS"S WITH THE             FCC1918        1     A     
 HISTORY            *SIA* BIT SO THAT PROSEQ/ESR KNOWS TO TRUNCATE THE ADDRESS             FCC1918        2     A     
 HISTORY            (LCM AND FP) TO 18 BITS TO AVOID PROBLEMS WHEN THE SUBSCRIPT           FCC1918        3     A     
 HISTORY            EXPRESSION IS NEGATIVE.                                                FCC1918        4     A     
 HISTORY            SIJ    2/2/78      APPLIES TO FTN 4.6, OPT=2 ON 7600 ONLY              FCC1918        5     A     
 HISTORY                                                                                   FCC1918        6     A     
 HISTORY   FCC1923  EQV/DPCLOSE - CHANGED OA. DEFINITION FROM                              FCC1923        1     A     
 HISTORY            7/RB,18/FWA,18/LWA,17/GFI TO 1/0,7/RB,18/FWA,18/LWA,16/GFI.            FCC1923        2     A     
 HISTORY            LARGE RB WAS CAUSING LOOP TO TERMINATE PREMATURELY                     FCC1923        3     A     
 HISTORY            IN SCAN3 OF EQUIVALENCE PROCESSING WHERE EOT INDEXES                   FCC1923        4     A     
 HISTORY            WERE BEING PUT INTO GF2 ENTRIES OF EACH CLASS ROOT.                    FCC1923        5     A     
 HISTORY            ATH    2/2/77      APPLIED AGAINST FTN4/OPT                            FCC1923        6     A     
 HISTORY                                                                                   FCC1923        7     A     
 HISTORY   FCCA402  ERPRO/HCOUNTER WHEN PROCESSING A FORMAT STATEMENT CONTAINING           FCCA402        1     A     
 HISTORY            A HOLLERITH FIELD OF 99 CHARACTERS THE FINAL FORM CONTAINS THE         FCCA402        2     A     
 HISTORY            FOLLOWING: (1H1,99H... 99 CHARACTERS ..., 0H) ERPRO HAS BEEN           FCCA402        3     A     
 HISTORY            MODIFIED TO ELIMINATE THE 0H.                                          FCCA402        4     A     
 HISTORY            SSK    10/02/78    APPLIED AGAINST FTN,OPT                             FCCA402        5     A     
 HISTORY                                                                                   FCCA402        6     A     
 HISTORY   FCCA408  TSTEXT,BATCH/IST,HEADER/PPA,END/DFT,IO/STLI -                          FCCA408        1     A     
 HISTORY            FTNTEXT,FTNMAC,PH1CTL/PROG,FAX/PID -                                   FCCA408        2     A     
 HISTORY            1)     CORRECT HANDLING OF STATIC MODE IN OVERLAYS IN BOTH TS          FCCA408        3     A     
 HISTORY            AND OPT. THIS INVOLVES CHECKING FOR STATIC MODE, AND IN                FCCA408        4     A     
 HISTORY            A MAIN PROGRAM WITHOUT FILES (DEFINITION OF OVERLAY) WE                FCCA408        5     A     
 HISTORY            EXPAND THE Q2NTRY AP-LIST TO CONTAIN A POINTER TO A LIST               FCCA408        6     A     
 HISTORY            OF WEAK EXTERNALS, ONE EACH FOR ALL POSSIBLE *STLTAB*                  FCCA408        7     A     
 HISTORY            ENTRIES. FOR THIS PURPOSE TS IS FIXED UP TO USE THE                    FCCA408        8     A     
 HISTORY            COMDECK *STLTAB* ALONG WITH OPT.                                       FCCA408        9     A     
 HISTORY            2)     PUT THE *FIT* LENGTH IN THE *FIT*.                              FCCA408       10     A     
 HISTORY            LDH    12/12/77    APPLIES TO FTN TS AND OPT.                          FCCA408       11     A     
 HISTORY                                                                                   FCCA408       12     A     
 HISTORY   FCCA410  FTN/MIB,LSTPRO/FA=NPG,BATCH/RUN.X,MAIN/WOF,INIT/FTO                    FCCA410        1     A     
 HISTORY            PD IS WRITTEN TO OUTPUT FILE EVEN WHEN L=0 AND NO DIAGNOSTICS          FCCA410        2     A     
 HISTORY            ARE GENERATED, OR RATHER WHEN OUTPUT FILE IS COMPLETELY EMPTY.         FCCA410        3     A     
 HISTORY            WHEN PD IS NOT SELECTED, DO NOT SET CP.PD TO THE SYSTEM                FCCA410        4     A     
 HISTORY            DEFAULT FOR THE PURPOSE OF DEFERRED CHECKING FOR THE EXISTENCE         FCCA410        5     A     
 HISTORY            OF PD PARAMETER IN THE CONTROL CARD.  WHEN PD IS SELECTED AND          FCCA410        6     A     
 HISTORY            OUTPUT FILE IS NOT EMPTY, ON OPENING OF A FILE, WRITE PD TO            FCCA410        7     A     
 HISTORY            THE OUTPUT FILE, AND ON CLOSING OF A FILE, WRITE THE SYSTEM            FCCA410        8     A     
 HISTORY            DEFAULT TO THE OUTPUT FILE.                                            FCCA410        9     A     
 HISTORY            AML    03/22/78    APPLIED AGAINST FTN,TS & OPT                        FCCA410       10     A     
 HISTORY                                                                                   FCCA410       11     A     
 HISTORY   FCC1908  BDT/SIO - DO NOT STACK STORES IF RF > RI AND RF NOT PROCESSED          FCC1908        1     A     
 HISTORY            WHEN THE RI IS ENCOUNTERED.                                            FCC1908        2     A     
 HISTORY            SIJ    3/8/78      APPLIES TO FTN 4.6                                  FCC1908        3     A     
 HISTORY                                                                                   FCC1908        4     A     
 HISTORY   FCC1924  ENDPRO/PST11 BASE ADDRESS OF SYMBOL TABLE IS WIPED OUT WHEN:           FCC1924        1     A     
 HISTORY            1. E OR C OPTION IS INVOKED. 2. NO USAGED-DEFINED VARIABLES            FCC1924        2     A     
 HISTORY            ARE PRESENT. 3. NO DATA STATEMENTS ARE PRESENT.                        FCC1924        3     A     
 HISTORY            4. EQUIVALENCE STATEMENTS ARE PRESENT.                                 FCC1924        4     A     
 HISTORY            SSK    02/17/78    APPLIED AGAINST FTN,OPT                             FCC1924        5     A     
 HISTORY                                                                                   FCC1924        6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  55    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCC1925  ARITH/RTPRN - ENCODE SYNTAX ERROR(MISPLACING OF RIGHT PAREN-           FCC1925        1     A     
 HISTORY            THESIS) NOT DIAGNOSED.                                                 FCC1925        2     A     
 HISTORY            IN PROCESSING RIGHT PARENTHESIS, LOOK AHEAD TO SEE IF IT IS            FCC1925        3     A     
 HISTORY            FOLLOWED BY AN IDENTIFIER, CONSTANT OR A LEFT PARENTHESIS.             FCC1925        4     A     
 HISTORY            WHEN THIS IS THE CASE, AND WE ARE PROCESSING I/O UNIT OR               FCC1925        5     A     
 HISTORY            VARIABLE FORMAT, AND THE PARENTHESIS LEVEL IS POSITIVE,                FCC1925        6     A     
 HISTORY            GENERATE A FATAL TO EXECUTION ERROR.                                   FCC1925        7     A     
 HISTORY            AML    03/10/78    APPLIED AGAINST OPT                                 FCC1925        8     A     
 HISTORY                                                                                   FCC1925        9     A     
 HISTORY   FCC1928  SQZ/SA - DONT"T SET RF BIT FOR PRED SO WE DONT INCORRECTLY             FCC1928        1     A     
 HISTORY            REDUCE 60 BIT ARITHMETIC TO 18 BITS IN GPO/GRA.                        FCC1928        2     A     
 HISTORY            SQZ/STT - SET RF BIT ONLY IF IH " 0 FOR SAME REASONS.                  FCC1928        3     A     
 HISTORY            SIJ    3/1/78      APPLIES TO FTN 4.6, OPT=2                           FCC1928        4     A     
 HISTORY                                                                                   FCC1928        5     A     
 HISTORY   FCC1936  SCANNER/POINT2 THE ERROR MESSAGE FOR A MISSPELLED                      FCC1936        1     A     
 HISTORY            RELATIONAL OPERATOR HAS BEEN CHANGED TO *UNRECOGNISED                  FCC1936        2     A     
 HISTORY            OPERATOR*. WAS *INVALID USE OF CHARACTER STRING*.                      FCC1936        3     A     
 HISTORY            SSK    03/14/78    APPLIED AGAINST FTN,OPT                             FCC1936        4     A     
 HISTORY                                                                                   FCC1936        5     A     
 HISTORY   FCC1946  DPCLOSE/EQV,DECPRO/DPEQU.L  REPLACE ALL PACK AND UNPACK                FCC1946        1     A     
 HISTORY            INSTRUCTIONS TO ALLOW A LARGER SIZE FOR EQUIVALENCE TABLES,            FCC1946        2     A     
 HISTORY            BUT RETAIN THE SAME 12 BIT , 48 BIT FORMAT. THE EXPONENT               FCC1946        3     A     
 HISTORY            FIELD MAXIMUM VALUE WILL INCREASE FROM 1023 TO 4095                    FCC1946        4     A     
 HISTORY            AND ALLOWS PROGRAMS THAT RAN AT LEVEL 452 TO RUN AGAIN.                FCC1946        5     A     
 HISTORY            SSK    04/10/78    APPLIED AGAINST FTN,OPT,TS                          FCC1946        6     A     
 HISTORY                                                                                   FCC1946        7     A     
 HISTORY   FCC1954  THE LAST INVALID DEBUGGING STATEMENT ON THE EXTERNAL DEBUG             FCC1954        1     A     
 HISTORY            PACKAGE FILE (FTN,D=LFN,...) IS NEVER PROCESSED, BECAUSE THE           FCC1954        2     A     
 HISTORY            *CP.CARD* IS CHECKED TOO EARLY FOR THE EOS/EOP/EOI. CORRECTION         FCC1954        3     A     
 HISTORY            IS SUCH THAT THE LAST INVALID STATEMENT ON THE FILE IS                 FCC1954        4     A     
 HISTORY            DIAGNOSED BEFORE INTERROGATING *CP.CARD* FOR EOS/EOP/EOI.              FCC1954        5     A     
 HISTORY            AML    04/05/78    APPLIED AGAINST FTN,OPT                             FCC1954        6     A     
 HISTORY                                                                                   FCC1954        7     A     
 HISTORY   FCC1957  PH1CTL/PLD - IN *OVERLAY* DIRECTIVE, FILE NAME CAN NOT BE A            FCC1957        1     A     
 HISTORY            HOLLERITH CONSTANT.                                                    FCC1957        2     A     
 HISTORY            E-LIST ELEMENT IS CHECKED TO SEE IF HOLLERITH CONSTANT OCCURS,         FCC1957        3     A     
 HISTORY            IF SO, *=HOLL=* IS GENERATED FOR LOADER TO PROCESS AS THIS             FCC1957        4     A     
 HISTORY            *OVERLAY* FILE NAME.  *=HOLL=* IS CHOSEN FOR THE SAKE OF               FCC1957        5     A     
 HISTORY            CONSISTENCY BETWEEN OPT AND TS, AND LOADER WILL DIAGNOSE IT.           FCC1957        6     A     
 HISTORY            AML    04/24/78    APPLIED AGAINST FTN,OPT                             FCC1957        7     A     
 HISTORY                                                                                   FCC1957        8     A     
 HISTORY   FCC1967  DATA/PDV                                                               FCC1967        1     A     
 HISTORY            TYPE FIELD INADVERTANTLY REMOVED FROM DVT ENTRY WHEN                   FCC1967        2     A     
 HISTORY            MASKING OUT SYMBOL ORDINAL IN EQUIVALENCE TEST. ADJUST                 FCC1967        3     A     
 HISTORY            MASK TO KEEP TYPE FIELD.                                               FCC1967        4     A     
 HISTORY            ERH    4/4/78      APPLIES TO FTN 4.7, OPT                             FCC1967        5     A     
 HISTORY                                                                                   FCC1967        6     A     
 HISTORY   FCC2009  DPCLOSE/EQU290 WHEN ISOLATING BLOCK LENGTH FIELD CLEAR                 FCC2009        1     A     
 HISTORY            BIT 17 (LCM BIT) IN ORDER TO AVOID UNWANTED SIGN EXTENSION.            FCC2009        2     A     
 HISTORY            SSK    06/08/78    APPLIED AGAINST FTN,OPT                             FCC2009        3     A     
 HISTORY                                                                                   FCC2009        4     A     
 HISTORY   *L485*    *****************************************************                 *L485*         1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  56    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCCA426  PH1CTL/PPN                                                             FCCA426        1     A     
 HISTORY            UNDEFINED SYMBOL WHEN COMPILING WITH E OR C OPTION.  INSERT            FCCA426        2     A     
 HISTORY            SST  WHEN E OR C OPTION SPECIFIED.                                     FCCA426        3     A     
 HISTORY            ERH    06/30/78    APPLIED AGAINST FTN,OPT                             FCCA426        4     A     
 HISTORY                                                                                   FCCA426        5     A     
 HISTORY   FCCA437  PH1CTL/PROG - GETTING OUTPUT LIMIT EXCEEDED ON TWO LINES OF            FCCA437        1     A     
 HISTORY            OUTPUT, USING LGO FROM E OR C OPTION.  NARGS NOT GETTING               FCCA437        2     A     
 HISTORY            UPDATED AFTER SETTING PRINT LIMIT.                                     FCCA437        3     A     
 HISTORY            ERH    02/AUG/78    APPLIED AGAINST FTN.                               FCCA437        4     A     
 HISTORY                                                                                   FCCA437        5     A     
 HISTORY   FCC1811XA GEN/SLD RESOLVE A SITUATION IN WHICH THE K PORTION OF AN              FCC1811XA      1     A     
 HISTORY            INSTRUCTION GETS CLOBBERED BY STORING THE ADDRESS FUNCTION TO          FCC1811XA      2     A     
 HISTORY            A TEMPORARY (IF IN A STORE REGISTER AND THE OTHER ONE IS               FCC1811XA      3     A     
 HISTORY            LOCKED ) AND RELOADING.                                                FCC1811XA      4     A     
 HISTORY            SSK    03/23/78    APPLIED AGAINST FTN,TS                              FCC1811XA      5     A     
 HISTORY                                                                                   FCC1811XA      6     A     
 HISTORY   FCC1901  ARITH/EQPO,DOPROC/DOTOP,PAR/(POPRQ,C=DO) -                             FCC1901        1     A     
 HISTORY            REDEFINITION OF A FORMAL PARAMETER USED AS DIMENSION INDICATOR         FCC1901        2     A     
 HISTORY            IS NON-ANSI.                                                           FCC1901        3     A     
 HISTORY            1) LEFT-HAND SIDE VARIABLE OF AN EQUAL SIGN IS CHECKED FOR             FCC1901        4     A     
 HISTORY            SUCH A VIOLATION.                                                      FCC1901        5     A     
 HISTORY            2) CONTROL VARIABLE OF A DO LOOP IS CHECKED FOR THE SAME               FCC1901        6     A     
 HISTORY            VIOLATION.                                                             FCC1901        7     A     
 HISTORY            IN BOTH CASES, WHEN VIOLATION OCCURS, ANSI DIAGNOSTIC IS               FCC1901        8     A     
 HISTORY            GENERATED.                                                             FCC1901        9     A     
 HISTORY            AML     02/28/78    APPLIES TO FTN 4.7 OPT & TS                        FCC1901       10     A     
 HISTORY                                                                                   FCC1901       11     A     
 HISTORY   FCC1960  GEN/EIS.L15 INSERT CODE THAT ANTICIPATES THE POSSIBILTY OF A           FCC1960        1     A     
 HISTORY            STORE REGISTER BEING WIPED OUT AT I REGISTER SELECTION TIME.           FCC1960        2     A     
 HISTORY            IF TAG IS IN A STORE REGISTER AT K REGISTER SELECTION                  FCC1960        3     A     
 HISTORY            TIME  AND THE OTHER STORE REGISTER IS A TEMPORARY, GET A               FCC1960        4     A     
 HISTORY            TEMPORARY CLASS REG, IF ITS USE COUNT IS ZERO TRANSMIT TO IT.          FCC1960        5     A     
 HISTORY            ELSE GET A LOAD CLASS REGISTER. IF TAG IS STILL IN STORE               FCC1960        6     A     
 HISTORY            REGISTER TRANSMIT TO LOAD REGISTER ELSE RELOAD TAG.                    FCC1960        7     A     
 HISTORY            AT J REGISTER SELECTION TIME IF A TEMPORARY CLASS REGISTER             FCC1960        8     A     
 HISTORY            IS AVAILABLE DO NOTHING ELSE PROCEED AS ABOVE.                         FCC1960        9     A     
 HISTORY            SSK    06/09/78    APPLIED AGAINST FTN,TS                              FCC1960       10     A     
 HISTORY                                                                                   FCC1960       11     A     
 HISTORY   FCC1984  SCANNER/LEX46 - SYNTAX ERROR IN *WRITE* NOT DIAGNOSED.                 FCC1984        1     A     
 HISTORY            WHEN STATEMENT OF THE FORM: *KEYWORD* ALPHANUMERIC(...)(...)           FCC1984        2     A     
 HISTORY            IS DETECTED, A *JP* IS MADE TO *LEX46* TO LEXICALLY SCAN THE           FCC1984        3     A     
 HISTORY            STATEMENT WITH THE KEYWORD BEING STRIPPED OFF BY *SRCH*                FCC1984        4     A     
 HISTORY            PROCESSOR.  HERE A *RJ ADJ* SHOULD BE MADE TO REMOVE THE               FCC1984        5     A     
 HISTORY            ALPHANUMERIC AND STORE IT IN *ELIST* FOR FURTHER PROCESSING.           FCC1984        6     A     
 HISTORY            THE FAULTY FORM IS DIAGNOSED IN *ARITH*.                               FCC1984        7     A     
 HISTORY            AML    05/15/78    APPLIED AGAINST FTN,OPT                             FCC1984        8     A     
 HISTORY                                                                                   FCC1984        9     A     
 HISTORY   FCC1997  GRA/DUM - SET *EU* FOR INCREMENT CANIDATE IF STORE IS NOT NEXT         FCC1997        1     A     
 HISTORY            TO INCREMENT VARIABLE.                                                 FCC1997        2     A     
 HISTORY            SIJ    6/6/78      APPLIES TO FTN 4.6, OPT=1,2                         FCC1997        3     A     
 HISTORY                                                                                   FCC1997        4     A     
 HISTORY   FCC1998  PH1CTL/DPBDA,FTNMSG,KEY/BKD,ERRORS - NAMED BLOCK DATA SUB-             FCC1998        1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  57    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            ROUTINE IS NOT ANSI-DIAGNOSED.                                         FCC1998        2     A     
 HISTORY            WHEN NAME IS SPECIFIED FOR BLOCK DATA SUBROUTINE, AN ANSI              FCC1998        3     A     
 HISTORY            DIAGNOSTIC OF THE FOLLOWING TEXT *NON-ANSI FORM OF BLOCK               FCC1998        4     A     
 HISTORY            DATA STATEMENT* SHOULD BE GENERATED.                                   FCC1998        5     A     
 HISTORY            AML    05/18/78    APPLIED AGAINST FTN,TS & OPT                        FCC1998        6     A     
 HISTORY                                                                                   FCC1998        7     A     
 HISTORY   FCC2031  IO/A=STR TAG FIELD NOT PRESERVED IF PLUG CODE IS NECESSARY             FCC2031        1     A     
 HISTORY            RESULTING IN DEFINE BIT BEING SET IN THE HASH ADDRESS FIELD            FCC2031        2     A     
 HISTORY            OF THE FIRST WORD IN THE SYMBOL TABLE.                                 FCC2031        3     A     
 HISTORY            THIS PSR CONTAINS A ONE LINE CORRECTION TO F162FTNA.                   FCC2031        4     A     
 HISTORY            SSK    07,19,78    APPLIED AGAINST FTN,TS                              FCC2031        5     A     
 HISTORY                                                                                   FCC2031        6     A     
 HISTORY   FCCA434  KEY/AGN4 AFTER CALL TO TRV USE X6 INSTEAD OF X2 TO SET DEFINE          FCCA434        1     A     
 HISTORY            BIT (SYMBOL TAG ). X2 IS THE PASS *2* TAG (NO CLASS BITS).             FCCA434        2     A     
 HISTORY            THIS ALLOWS THE VARIABLE TO BE PUT IN THE 56 TABLE FOR CID             FCCA434        3     A     
 HISTORY            SSK    08/11/78    APPLIED AGAINST FTN,TS                              FCCA434        4     A     
 HISTORY                                                                                   FCCA434        5     A     
 HISTORY   FCCA435  SCANNER/SRCH12 ISSUE INFORMATIVE ERROR MESSAGE IF NON ALPHA            FCCA435        1     A     
 HISTORY            NUMERIC CHARACTERS APPEAR AFTER THE END STATEMENT.                     FCCA435        2     A     
 HISTORY            SSK    08/07/78    APPLIED AGAINST FTN,OPT                             FCCA435        3     A     
 HISTORY                                                                                   FCCA435        4     A     
 HISTORY   FCCA442  KEY/LCC-                                                               FCCA442        1     A     
 HISTORY            OVERLAY CARD NOT PRINTED.  GETS WIPED OUT OF DEFERRED LISTING          FCCA442        2     A     
 HISTORY            BUFFER (T.DLBUF) AT END OF LCC PROCESSING.                             FCCA442        3     A     
 HISTORY            ERH    08/23/78    APPLIED AGAINST FTN,TS                              FCCA442        4     A     
 HISTORY                                                                                   FCCA442        5     A     
 HISTORY   FCCA444  GEN/EIS.L15 *B2* NOT RESTORED AFTER *WCODE*. OLD REGFILE               FCCA444        1     A     
 HISTORY            ENTRY NOT ZEROED. THESE CORRECTIONS APPLY TO FCC1960.                  FCCA444        2     A     
 HISTORY            SSK    10/18/78    APPLIED AGAINST FTN,TS                              FCCA444        3     A     
 HISTORY                                                                                   FCCA444        4     A     
 HISTORY   FCCA451  OPTIONS   REMOVE COMPILER CONFIGURATION DEFINITIONS ( TEST             FCCA451        1     A     
 HISTORY            MODE OR SYSTEM MODE ) FROM OPTIONS TO PREVENT DEFINITIONS              FCCA451        2     A     
 HISTORY            FROM APPEARING IN FTNMAC . INSERT DEFINITIONS IN TSTEXT AND            FCCA451        3     A     
 HISTORY            FTNTEXT.                                                               FCCA451        4     A     
 HISTORY            SSK    09/28/78    APPLIED AGAINST FTN,TS,OPT                          FCCA451        5     A     
 HISTORY                                                                                   FCCA451        6     A     
 HISTORY   FCCA456  GEN/CAI40 CLEARS INTERMEDIATES FOR X REGISTER ENTRIES IN               FCCA456        1     A     
 HISTORY            REGFILE SHOULD ALSO CLEAR *A* REGISTER ENTRIES FOR                     FCCA456        2     A     
 HISTORY            INTERMEDIATES.                                                         FCCA456        3     A     
 HISTORY            SSK    10/23/78    APPLIED AGAINST FTN,TS                              FCCA456        4     A     
 HISTORY                                                                                   FCCA456        5     A     
 HISTORY   FCC1972  ARITH/MOPB2 DO NOT ALLOW REAL CONSTANT DIVISORS TO BE                  FCC1972        1     A     
 HISTORY            INVERTED IF ((1/CON) * CON .NE. 1).                                    FCC1972        2     A     
 HISTORY            SSK    07,24,78    APPLIED AGAINST FTN,OPT                             FCC1972        3     A     
 HISTORY                                                                                   FCC1972        4     A     
 HISTORY   FCC1983  ARITH/SFLPR ISSUE MACRO FOR DATA MODE CONVERSION THEN                  FCC1983        1     A     
 HISTORY            UPDATE MODE CHANGE TYPE AND SAVE MODE CHANGE ADDRESS.                  FCC1983        2     A     
 HISTORY            THIS PREVENTS AN INCORRECT RLIST HEADER ADDRESS IN CASE A MODE         FCC1983        3     A     
 HISTORY            CONVERSION MACRO IS NOT NECESSARY AND IT ALLOWS A NECESSARY            FCC1983        4     A     
 HISTORY            MODE CONVERSION MACRO (OCTAL TO COMPLEX) TO BE ISSUED                  FCC1983        5     A     
 HISTORY            WHEN NECESSARY.                                                        FCC1983        6     A     
 HISTORY            SSK    08/28/78    APPLIED AGAINST FTN,OPT                             FCC1983        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  58    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FCC1983        8     A     
 HISTORY   FCC2004  ARITH/CMMA7 PRESERVE ADDRESS OF NEXT ELIST TO PROCESS(EPOINT).         FCC2004        1     A     
 HISTORY            - CAUSING MODE OUT IF THERE ARE COMPILATION ERRORS TO REPORT.          FCC2004        2     A     
 HISTORY            SSK    08/02/78    APPLIED AGAINST FTN                                 FCC2004        3     A     
 HISTORY                                                                                   FCC2004        4     A     
 HISTORY   FCC2030  SCANNER/SCANNER.580 SET RECORD LENGTH IN WORDS TO ONE SO               FCC2030        1     A     
 HISTORY            A BLANK WORD REPRESENTING A BLANK LINE BETWEEN PROGRAM UNITS           FCC2030        2     A     
 HISTORY            WILL NOT BE ZEROED OUT CAUSING SCANNER TO COMPLAIN ABOUT               FCC2030        3     A     
 HISTORY            ILLEGAL INPUT.                                                         FCC2030        4     A     
 HISTORY            SSK    08/03/78    APPLIED AGAINST FTN                                 FCC2030        5     A     
 HISTORY                                                                                   FCC2030        6     A     
 HISTORY   FCC2038  MCG/CSI - AWWAYS START AT X6 AFTER ISSUING A STORE SINCE ISI           FCC2038        1     A     
 HISTORY            WILL NOT RETURN B3 SET PROPERLY IF A DWL WAS ISSUED.                   FCC2038        2     A     
 HISTORY            SIJ    8/8/78      APPLIES TO FTN 4.6, OPT=1,2                         FCC2038        3     A     
 HISTORY                                                                                   FCC2038        4     A     
 HISTORY   FCC2039  GPO/MII - PROCESS RJ6 INSTRUCTION SO THAT *FAC* IS CLEARED             FCC2039        1     A     
 HISTORY            AND Z PARAMETER NULL ARG LIST IS NOT ADDED TO ARG LIST OF              FCC2039        2     A     
 HISTORY            THE NEXT INVARIANT FUNCTION.                                           FCC2039        3     A     
 HISTORY            SIJ    7/25/78     APPLIES TO FTN 4.6, OPT=2                           FCC2039        4     A     
 HISTORY                                                                                   FCC2039        5     A     
 HISTORY   FCC2045  GPO/UPB - GET CORRECT TLD FOR XMT IN OPT=1 WHEN PROCESSING             FCC2045        1     A     
 HISTORY            ABNORMAL IP IN LOOP WITH MULTIPLE BLOCKS.                              FCC2045        2     A     
 HISTORY                                                                                   FCC2045        3     A     
 HISTORY   FCC2051  GRA/IRA - PROCESS HOLDING BLOCK OF INNER LOOP SO THAT ANY              FCC2051        1     A     
 HISTORY            EPILOGUE POST STORES THAT HAVE TO BE PLACED IN IT ARE.                 FCC2051        2     A     
 HISTORY            SIJ    8/14/78     APPLIES TO FTN 4.7, OPT=2                           FCC2051        3     A     
 HISTORY                                                                                   FCC2051        4     A     
 HISTORY   FCC2053  DBGPHCT/DBGCUN,BUGCON -                                                FCC2053        1     A     
 HISTORY            1. RE-INITIALIZE A FLAG (CUR OP BD) AFTER REPORTING AN                 FCC2053        2     A     
 HISTORY            ERROR CONDITION.                                                       FCC2053        3     A     
 HISTORY            2. ORDINAL OF NAME LOST IN ROUTINE DBGCUN.                             FCC2053        4     A     
 HISTORY            ERH    8/31/78    APPLIED AGAINST FTN,OPT.                             FCC2053        5     A     
 HISTORY                                                                                   FCC2053        6     A     
 HISTORY   FCC2056  GRA/DUM - MARK PRED OF RS AS *EU* SO WE DONT BIAS THE                  FCC2056        1     A     
 HISTORY            ASSIGNMENT OF AN OUTER LOOP INDEX WHICH HAS BEEN ASSIGNED TO           FCC2056        2     A     
 HISTORY            A REGISTER IN A INNER LOOP.                                            FCC2056        3     A     
 HISTORY            SIJ    8/24/78     APPLIES TO FTN 4.7, OPT=2                           FCC2056        4     A     
 HISTORY                                                                                   FCC2056        5     A     
 HISTORY   *L498*    ************************************************                      *L498*         1     A     
 HISTORY   FCC*79   UPDATE COPYRIGHT INFORMATION FOR 1979                                  FCC*79         1     A     
 HISTORY            BEA    79/01/18    FTN,FTNRES    APPLIES TO FTN 4.7                    FCC*79         2     A     
 HISTORY                                                                                   FCC*79         3     A     
 HISTORY   FEAT1070C FTNTEXT,FTN,LSTPRO,ENDPRO,REFMAP,FAX -                                FEAT1070C      1     A     
 HISTORY            REQUIRED POST MORTEM DUMP (PMD) MODS TO THE FTN4 (OPT) COMP-           FEAT1070C      2     A     
 HISTORY            ILER ARE (PER DAP S2619) ...                                           FEAT1070C      3     A     
 HISTORY            1.  PMD OPTION ON FTN CONTROL CARD.  PMD MEANS GENERATE CODE           FEAT1070C      4     A     
 HISTORY            FOR REPRIEVE ON ALL ERRORS SO THAT A SYMBOLIC PRESENTAION OF           FEAT1070C      5     A     
 HISTORY            ERROR CONDITIONS, VARIABLE CONTENTS, AND TRACEBACK INFORMATION         FEAT1070C      6     A     
 HISTORY            MAY BE WRITTEN TO THE OUTPUT FILE BY THE POST MORTEM DUMP              FEAT1070C      7     A     
 HISTORY            PACKAGE.  IF PMD = 0, THEN POST MORTEM DUMP IS DISABLED.               FEAT1070C      8     A     
 HISTORY            DEFAULT IS PMD = 0.                                                    FEAT1070C      9     A     
 HISTORY                                                                                   FEAT1070C     10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  59    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            2.  WHEN PMD IS INVOKED CREATE A PMD SYMBOL FILE -ZZZZZSY- TO          FEAT1070C     11     A     
 HISTORY            CONTAIN THE FTN4 SYMBOL TABLE, COMMON BLOCK TABLE, AND DIM-            FEAT1070C     12     A     
 HISTORY            ENSION TABLE.                                                          FEAT1070C     13     A     
 HISTORY                                                                                   FEAT1070C     14     A     
 HISTORY            3.  IN ORDER TO FACILITATE FTN4/FCL4 COMMUNICATION OF PMD              FEAT1070C     15     A     
 HISTORY            MODE BIT 47 OF THE FIRST WORD OF THE APLIST PASSED TO Q2NTRY           FEAT1070C     16     A     
 HISTORY            AND FTNRP2 WILL BE SET WHEN PMD IS INVOKED.                            FEAT1070C     17     A     
 HISTORY                                                                                   FEAT1070C     18     A     
 HISTORY            4.  WHEN PMD IS INVOKED CREATE AN LDSET PRESET TABLE THAT              FEAT1070C     19     A     
 HISTORY            REQUESTS LOADER TO PRESET USER CORE TO NEGATIVE INDEFINITES            FEAT1070C     20     A     
 HISTORY            SO THAT PMD CAN TELL THE USER WHICH VARIABLES WERE USED WITH-          FEAT1070C     21     A     
 HISTORY            OUT BEING INITIALIZED.                                                 FEAT1070C     22     A     
 HISTORY                                                                                   FEAT1070C     23     A     
 HISTORY            5.  WHEN PMD IS INVOKED CREATE AN LDSET MAP TABLE THAT                 FEAT1070C     24     A     
 HISTORY            REQUESTS LOADER TO WRITE A SHORT MAP (*BS* OPTION) TO FILE             FEAT1070C     25     A     
 HISTORY            ZZZZZMP.  PMD USES THIS MAP FOR OBTAINING BLOCK DATA.                  FEAT1070C     26     A     
 HISTORY                                                                                   FEAT1070C     27     A     
 HISTORY            6.  LTP OPTION ON CONTROL CARD FOR BENEFIT OF CURRENT USERS OF         FEAT1070C     28     A     
 HISTORY            *MANTRAP*.  IDENTICAL TO PMD OPTION.  LTP WILL NOT BE DOCU-            FEAT1070C     29     A     
 HISTORY            MENTED IN THE STANDARD CDC REFERENCE MANUALS IN ORDER TO               FEAT1070C     30     A     
 HISTORY            ENCOURAGE FUTURE USERS TO USE PMD.                                     FEAT1070C     31     A     
 HISTORY            VOS/SMT/ERH    11/28/78   APPLIED AGAINST FTN,OPT                      FEAT1070C     32     A     
 HISTORY                                                                                   FEAT1070C     33     A     
 HISTORY   FCCA422  FTN,BATCH,MAIN,INIT,MAP,LIST,LSTPRO - FTN PASSES COMPASS WRONG         FCCA422        1     A     
 HISTORY            PAGE SIZE IN CP.PS.  ALSO, ILLEGAL ARGUMENT FOR PD AND PS DOES         FCCA422        2     A     
 HISTORY            NOT GET SET TO DEFAULT VALUE.                                          FCCA422        3     A     
 HISTORY            A NEW CELL LCP.PS IS CREATED FOR LOCAL USE.  IT IS EQUATED TO          FCCA422        4     A     
 HISTORY            CP.PS - 3, WITH 3 LINES RESERVED FOR PAGE HEADER.  CORRECT             FCCA422        5     A     
 HISTORY            PS VALUE IS PASSED TO COMPASS THROUGH CP.PS.                           FCCA422        6     A     
 HISTORY            WHEN ILLEGAL ARGUMENT IN PD/PS IS DETECTED, CP.PD/CP.PS WILL           FCCA422        7     A     
 HISTORY            BE SET TO IP.PD/IP.PS AS APPROPRIATE.                                  FCCA422        8     A     
 HISTORY            AML    07/10/78    APPLIED AGAINST FTN,TS & OPT                        FCCA422        9     A     
 HISTORY                                                                                   FCCA422       10     A     
 HISTORY   FCCA454  BATCH/RUN1A  FAILURE TO CHECK FOR A BLANK LINE PRIOR                   FCCA454        1     A     
 HISTORY            TO COMPASS IDENT CAUSES SUBSEQUENT COMPASS CODE TO BE                  FCCA454        2     A     
 HISTORY            INTERPRETED AS FORTRAN SOURCE.                                         FCCA454        3     A     
 HISTORY            SJC    10/5/78     APPLIED AGAINST FTN.TS                              FCCA454        4     A     
 HISTORY                                                                                   FCCA454        5     A     
 HISTORY   FCCA455  DPCLOSE/EQV255 WHEN COMPUTING FWA OF CLASS ( COMMON MEMBER             FCCA455        1     A     
 HISTORY            LOOP ) A NEGATIVE RESULT CAUSES A MODE OUT LATER WHEN                  FCCA455        2     A     
 HISTORY            CREATING AN ENTRY FOR A COMMON ELEMENT. COMPLEMENT FWA OF              FCCA455        3     A     
 HISTORY            CLASS WHEN RESULT IS NEGATIVE.                                         FCCA455        4     A     
 HISTORY            SSK    10/25/78    APPLIED AGAINST FTN,OPT                             FCCA455        5     A     
 HISTORY                                                                                   FCCA455        6     A     
 HISTORY   FCCA462  GPO/MII - CHANGE INSTANCES OF 18 BIT ARITHMETIC IN JUMP                FCCA462        1     A     
 HISTORY            PROCESSORS TO 60 BIT SO TOP BITS OF *N.LJ* DON"T GET DESTROYED         FCCA462        2     A     
 HISTORY            SIJ    11/24/78    APPLIES TO FTN 4.7, OPT=2                           FCCA462        3     A     
 HISTORY                                                                                   FCCA462        4     A     
 HISTORY   FCCA463  IF - STATEMENT(S) BETWEEN ARITHMETIC IF(OR TWO-BRANCH                  FCCA463        1     A     
 HISTORY            LOGICAL IF) AND FIRST STATEMENT LABEL ENCOUNTERED NOT                  FCCA463        2     A     
 HISTORY            DIAGNOSED AS "NO PATH".                                                FCCA463        3     A     
 HISTORY            SJC    11/9/78     APPLIED AGAINST FTN.TS                              FCCA463        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  60    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FCCA463        5     A     
 HISTORY   FCCA465  KEY MUST PROVIDE PROGRAM NAME ON PAGE 1 OF THE OUTPUT                  FCCA465        1     A     
 HISTORY            LISTING WHEN EL=A IS SPECIFIED ON FTN CONTROL CARD.                    FCCA465        2     A     
 HISTORY            SJC    12/7/78     APPLIED AGAINST FTN.TS                              FCCA465        3     A     
 HISTORY                                                                                   FCCA465        4     A     
 HISTORY   FCCA468  PAR/POP.RQ12 THE CHECK FOR C.SYM(200000) MAY FAIL IF TAG               FCCA468        1     A     
 HISTORY            BEING LOOKED AT IS NOT A SYMBOL TAG . THIS MAY RESULT IN               FCCA468        2     A     
 HISTORY            INCONSISTENT DIAGNOSTICS USING CONTROL CARD OPTION                     FCCA468        3     A     
 HISTORY            B=0 IN ONE CASE AND B NE 0 FOR THE OTHER CASE.                         FCCA468        4     A     
 HISTORY            SSK    12/11/78    APPLIED AGAINST FTN,TS                              FCCA468        5     A     
 HISTORY                                                                                   FCCA468        6     A     
 HISTORY   FCCA469  END/DFD90 WHEN GENERATING A 5600 TABLE (DEBUG ON) SAVEA1 ( SUB         FCCA469        1     A     
 HISTORY            PROGRAM REL. ADDR. OF WORD IN WHICH SUBPROGRAM INITIALIZATION          FCCA469        2     A     
 HISTORY            WILL SAVE REG A1 ) IN THE HEADER WORD IS NOT USED AND IS SET           FCCA469        3     A     
 HISTORY            TO ZERO WHEN THE CURRENT SUBPROGRAM UNIT IS  BLOCKDATA.                FCCA469        4     A     
 HISTORY            SSK    01/04/79    APPLIED AGAINST FTN,TS                              FCCA469        5     A     
 HISTORY                                                                                   FCCA469        6     A     
 HISTORY   FCCA474   TSDATA/PSS                                                            FCCA474        1     A     
 HISTORY             INCONSISTENT ERROR DIAGNOSTIC PRODUCED FOR                            FCCA474        2     A     
 HISTORY             CERTAIN DATA STATEMENTS, SUCH AS DATA(A(I-4),I=1,4)                   FCCA474        3     A     
 HISTORY             /4*4/.  THE ERROR IS DIAGNOSED AS DATA SUBSCRIPT                      FCCA474        4     A     
 HISTORY             LIST SYNTAX ERROR.                                                    FCCA474        5     A     
 HISTORY             CORRECTION CODE WILL FORCE TO DIAGNOSE THE                            FCCA474        6     A     
 HISTORY             ERROR AS SUBSCRIPT LESS THAN 1 OR EXCEEDS DIMENSION.                  FCCA474        7     A     
 HISTORY             KKN    2/9/79     APPLIED AGAINST FTN,TS                              FCCA474        8     A     
 HISTORY                                                                                   FCCA474        9     A     
 HISTORY                                                                                   FCCA474       10     A     
 HISTORY   FCCA476  DATA/BVT,TSDATA/(CSC,BVT)                                              FCCA476        1     A     
 HISTORY            BOTH COMPILERS FAILED TO DETECT SUBSCRIPTS WHICH                       FCCA476        2     A     
 HISTORY            EXCEED ARRAY DIMENSION BY ONE.                                         FCCA476        3     A     
 HISTORY                                                                                   FCCA476        4     A     
 HISTORY            KKN    2/14/79    APPLIED AGAINST FTN,TS + OPT                         FCCA476        5     A     
 HISTORY   FCC1964  FTN/ARG=PD,LSTPRO/END1 APPEND A 55B TO THE PAGE DENSITY                FCC1964        1     A     
 HISTORY            CONTROL CHARACTER TO SEE IF THIS ELIMINATES SPURIOUS COLONS            FCC1964        2     A     
 HISTORY            ON THE 7611-1 PRINTER. (02/05/79 CUSTOMER IS SATISIFED                 FCC1964        3     A     
 HISTORY            WITH RESULT).                                                          FCC1964        4     A     
 HISTORY            SSK    02/05/79    APPLIED AGAINST FTN4                                FCC1964        5     A     
 HISTORY                                                                                   FCC1964        6     A     
 HISTORY   FCC2020  THE COMPILER TERMINATES THE COLLECTION OF A SEQUENCE                   FCC2020        1     A     
 HISTORY            OF STATEMENTS (BASIC BLOCK) AFTER A CONDITIONAL JUMP,                  FCC2020        2     A     
 HISTORY            A GOTO, A CALL WITH RETURNS, OR BEFORE A STATEMENT                     FCC2020        3     A     
 HISTORY            WITH AN ACTIVE LABEL. WHEN A USER PROGRAM CONTAINS                     FCC2020        4     A     
 HISTORY            NONE OF THE ABOVE THE COMPILER COLLECTS IT AS ONE                      FCC2020        5     A     
 HISTORY            SEQUENCE AND ATTEMPTS TO OPTIMIZE IT. AT A LATER STAGE                 FCC2020        6     A     
 HISTORY            OF THE CODE GENERATION IT MODES OUT BECAUSE THE SEQUENCE               FCC2020        7     A     
 HISTORY            IS TOO LONG. THIS WILL BE CHANGED TO PUT OUT THE MESSAGE               FCC2020        8     A     
 HISTORY            "PROGRAM CONTAINS SEQUENCES THAT ARE TOO LONG,                         FCC2020        9     A     
 HISTORY            CANNOT BE COMPILED."                                                   FCC2020       10     A     
 HISTORY            SIJ    12/28/78    FTN 4, OPT=2                                        FCC2020       11     A     
 HISTORY                                                                                   FCC2020       12     A     
 HISTORY   FCC2059  REFMAP                                                                 FCC2059        1     A     
 HISTORY            THE DO-LOOP MATERIALIZATION FLAG -MF- SHOWN IN THE                     FCC2059        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  61    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            REFERENCE MAP FOR DO-LOOPS WILL BE ELIMINATED FROM THE                 FCC2059        3     A     
 HISTORY            REFERENCE MAP SINCE,ESPECIALLY UNDER OPT=2, THE ACCURACY               FCC2059        4     A     
 HISTORY            OF THE FLAG CANNOT BE CORRECTLY DETERMINED IN AN EXCESSIVE             FCC2059        5     A     
 HISTORY            NUMBER OF USER PROGRAM CONDITIONS.                                     FCC2059        6     A     
 HISTORY            SJC    12/19/78    APPLIED AGAINST FTN.OPT                             FCC2059        7     A     
 HISTORY                                                                                   FCC2059        8     A     
 HISTORY   FCC2064  UNDER SCOPE 2.1 PH1CTL FAILS TO KEEP TRACK OF NUMBER                   FCC2064        1     A     
 HISTORY            OF EQUIVALENCED FILES CAUSING ERRORS IN REFERENCE MAP.                 FCC2064        2     A     
 HISTORY            SJC    11/15/78    APPLIED AGAINST FTN.OPT                             FCC2064        3     A     
 HISTORY                                                                                   FCC2064        4     A     
 HISTORY   FCC2069A END/CKSX DON'T STORE THE PROGRAM UNIT LENGTH IF L=0 IS USED.           FCC2069A       1     A     
 HISTORY            LPS.PL (IN MAP)  IS THE DESTINATION CELL FOR THE PROGRAM UNIT          FCC2069A       2     A     
 HISTORY            LENGTH AND IS TRASHED ALONG WITH MAP IF L=0 IS USED RESULTING          FCC2069A       3     A     
 HISTORY            IN A CELL BEING WIPED OUT IN THE LONG-FILE WHEN USING A                FCC2069A       4     A     
 HISTORY            SYSTEM MODE FTN,TS IN 41K .                                            FCC2069A       5     A     
 HISTORY            SSK    09/18/78    APPLIED AGAINST FTN,TS                              FCC2069A       6     A     
 HISTORY                                                                                   FCC2069A       7     A     
 HISTORY   FCC2072  SQZ/DRL - IF LVL2 = DIRECT AND PREDECESSOR IS AN *STT* THEN            FCC2072        1     A     
 HISTORY            REPLACE SEMANTIC INFO IN DRL/DWL WITH SEMANTIC INFO IN *STT*           FCC2072        2     A     
 HISTORY            IN CASE *ARF* HAS CHANGED THE RF BECAUSE IT WAS *IAC* SO WE            FCC2072        3     A     
 HISTORY            DON"T MODE OUT LATER ON.                                               FCC2072        4     A     
 HISTORY            SIJ    9/14/78     APPLIES TO FTN 4.7, OPT                             FCC2072        5     A     
 HISTORY                                                                                   FCC2072        6     A     
 HISTORY   FCC2074  GRA/ERC - DO NOT ENTER AN STT THAT IS *IRA* IF IH " 0 AND              FCC2074        1     A     
 HISTORY            RF IS NOT A VALUE CANIDATE AS THIS IS AN ERROR  ( LOCF(A(FP)))         FCC2074        2     A     
 HISTORY            SIJ    9/15/78     APPLIES TO FTN 4.7, OPT=2                           FCC2074        3     A     
 HISTORY                                                                                   FCC2074        4     A     
 HISTORY   FCC2078  PAR/PAREX FAILS TO CHECK FOR *EOS* (END OF STATEMENT)                  FCC2078        1     A     
 HISTORY            AFTER DIAGNOSING ILLEGAL COMBINATION OF OPERATOR/OPERAND               FCC2078        2     A     
 HISTORY            CAUSES TS TO MODE OUT BY PROCESSING STRING BUFFER AFTER                FCC2078        3     A     
 HISTORY            *EOS*.                                                                 FCC2078        4     A     
 HISTORY            SJC    10/23/78    APPLIED AGAINST FTN.TS                              FCC2078        5     A     
 HISTORY                                                                                   FCC2078        6     A     
 HISTORY   FCC2091  GPO/TRP - ALWAYS MAKE *HB* OF *FTH* LOOP REMOTE ( *UJP* AT             FCC2091        1     A     
 HISTORY            END ) SINCE *TRP* DOESN"T KNOW IF POST STORES WILL BE                  FCC2091        2     A     
 HISTORY            INSERTED BY *IPS* LATER.                                               FCC2091        3     A     
 HISTORY            SIJ    11/21/78    APPLIES TO FTN 4.6, OPT=2                           FCC2091        4     A     
 HISTORY                                                                                   FCC2091        5     A     
 HISTORY   FCC2092  GRA/MFA - CHECK FOR RF = 0 BEFORE SETTING BASE BIT IN *AIT* SO         FCC2092        1     A     
 HISTORY            AS TO AVOID PICKING UP RANDOM GARBAGE.                                 FCC2092        2     A     
 HISTORY            SIJ    12/5/78     APPLIES TO FTN 4.6, OPT=1,2                         FCC2092        3     A     
 HISTORY                                                                                   FCC2092        4     A     
 HISTORY   FCC2104  FTN,BATCH,PH1CTL                                                       FCC2104        1     A     
 HISTORY            FTN WILL ABORT TO AN EXIT(S) IN CASE OF FTN CONTROL                    FCC2104        2     A     
 HISTORY            CARD ERRORS OR NULL PROGRAM WHEN FTN CONTROL CARD                      FCC2104        3     A     
 HISTORY            PARAMETER "A" IS SPECIFIED.                                            FCC2104        4     A     
 HISTORY            SJC    11/28/78    APPLIED AGAINST FTN                                 FCC2104        5     A     
 HISTORY                                                                                   FCC2104        6     A     
 HISTORY   FCC2108  REFMAP                                                                 FCC2108        1     A     
 HISTORY            ADDRESSES IN THE CROSS REFERENCE MAP WILL BE SET TO 0                  FCC2108        2     A     
 HISTORY            WHEN Q IS SPECIFIED IN THE FTN CONTROL CARD.                           FCC2108        3     A     
 HISTORY            SJC    12/6/78     APPLIED AGAINST FTN.OPT                             FCC2108        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  62    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FCC2108        5     A     
 HISTORY   FCC2109  REG/SST IT IS POSSIBLE FOR A USE COUNT TO BE REDUCED BY 2 IF           FCC2109        1     A     
 HISTORY            PREVIOUS TURPLE WAS AN ARRAY LOAD TURPLE AND CURRENT TURPLE            FCC2109        2     A     
 HISTORY            CONTAINS THE SAME INDEX TAG  BEING USED IN AN EXPRESSION.              FCC2109        3     A     
 HISTORY            IN THIS EXAMPLE THE USE COUNT WENT FROM TWO TO ZERO AND BACK           FCC2109        4     A     
 HISTORY            ONE WHEN THE ARRAY LOAD TURPLE WAS PROCESSED.                          FCC2109        5     A     
 HISTORY            CORRECTIVE CODE COMPARES CURRENT TAG AND REGFILE TAG IF                FCC2109        6     A     
 HISTORY            EQUAL RETAINS REGFILE USE COUNT ELSE DOES NOTHING.                     FCC2109        7     A     
 HISTORY            SSK    12/11/78    APPLIED AGAINST FTN,TS                              FCC2109        8     A     
 HISTORY                                                                                   FCC2109        9     A     
 HISTORY   FCC2111  SCANNER,ERPRO                                                          FCC2111        1     A     
 HISTORY            ELIMINATE INCONSISTANCIES IN SEVERITIES OF ERROR DIAGNOSTICS.          FCC2111        2     A     
 HISTORY            SJC    12/1/78     APPLIED AGAINST FTN.OPT                             FCC2111        3     A     
 HISTORY                                                                                   FCC2111        4     A     
 HISTORY   FCC2113  GPO - LABEL DEFINITION ELIMINATED BECAUSE THE *HB* OF A *FTH*          FCC2113        1     A     
 HISTORY            LOOP COMBINED WITH ITS NATURAL PRED, BUT REFS TO THE LABEL             FCC2113        2     A     
 HISTORY            ( ASSIGNED GOTO"S ) REMAIN.  ADD CODE TO OUTPUT THE LABEL              FCC2113        3     A     
 HISTORY            DEFINITION WITH THAT OF THE GENERATED LABEL.                           FCC2113        4     A     
 HISTORY            SIJ    12/14/78    APPLIES TO FTN 4.6, OPT=2                           FCC2113        5     A     
 HISTORY                                                                                   FCC2113        6     A     
 HISTORY   FCC2115  IO/NDC  WILL CHECK ILLEGAL CHARACTER BEFORE IMPLIED DO                 FCC2115        1     A     
 HISTORY            IN I/O LIST OF ENCODE/DECODE STATEMENT(S).                             FCC2115        2     A     
 HISTORY            SJC    12/20/78    APPLIED AGAINST FTN.TS                              FCC2115        3     A     
 HISTORY   FCC2119  SCANNER                                                                FCC2119        1     A     
 HISTORY            C$ DEBUG CONTINUATION LINE WILL BE TREATED AS COMMENT                  FCC2119        2     A     
 HISTORY            LINE IF THE PREVIOUS STATEMENT IS NOT C$ DEBUG STATEMENT.              FCC2119        3     A     
 HISTORY            SJC    2/21/79     APPLIES AGAINST FTN.OPT                             FCC2119        4     A     
 HISTORY                                                                                   FCC2119        5     A     
 HISTORY   FCC2126  PS1CTL/LDPS2C,ERPRO WHEN AN FC TYPE ERROR OCCURS AND R=3 WAS           FCC2126        1     A     
 HISTORY            REQUESTED A MODEOUT IS POSSIBLE IN REFMAP IF DPCLOSE WAS NOT           FCC2126        2     A     
 HISTORY            CALLED TO PROCESS DECLARATIVE INFORMATION. WHEN AN FC TYPE             FCC2126        3     A     
 HISTORY            ERROR OCCURS A CELL (L.COM) IS SET TO ZERO. REFMAP CHECKS              FCC2126        4     A     
 HISTORY            THIS CELL FOR FC TYPE ERRORS.                                          FCC2126        5     A     
 HISTORY            SSK    02/02/79    APPLIED AGAINST FTN,OPT                             FCC2126        6     A     
 HISTORY                                                                                   FCC2126        7     A     
 HISTORY   FCC2138  DPCLOSE/EQV310 ITS POSSIBLE FOR A MASK (EO.LWAL) NOT TO BE             FCC2138        1     A     
 HISTORY            INITIALIZED DURING THE EQUIVALENCE CLASS OVERLAP SEARCH                FCC2138        2     A     
 HISTORY            RESULTING IN A MODE OUT.                                               FCC2138        3     A     
 HISTORY            SSK    01/25/79    APPLIED AGAINST FTN,OPT                             FCC2138        4     A     
 HISTORY                                                                                   FCC2138        5     A     
 HISTORY   *L505*    ************************************************                      *L505*         1     A     
 HISTORY   F2950F4  TSTEXT,FTNMAC,FTNTEXT REVISE OPTIONS TO USE THE HF.LIST MICRO          F2950F4        1     A     
 HISTORY            AND THE DEFINHF MACRO TO DETERMINE IF CERTAIN HARDWARE                 F2950F4        2     A     
 HISTORY            FEATURES ARE PRESENT.                                                  F2950F4        3     A     
 HISTORY            SSK    04/11/79    APPLIED AGAINST FTN,TS AND OPT                      F2950F4        4     A     
 HISTORY                                                                                   F2950F4        5     A     
 HISTORY   FCCA475  DECL/EQU46,DPCLOSE/EQV170 ILLEGAL EXTENSION OF COMMON BLOCK            FCCA475        1     A     
 HISTORY            ORIGIN FAILS WHEN THE ELEMENT IN QUESTION EXISTS IN TWO                FCCA475        2     A     
 HISTORY            GROUPS AND *RAT-DIST GE 0*. THEN THE TEST *RATO-LOTO* FINDS            FCCA475        3     A     
 HISTORY            THE ILLEGAL EXTENSION.                                                 FCCA475        4     A     
 HISTORY            SSK    03/15/79    APPLIED AGAINST FTN,TS ,OPT                         FCCA475        5     A     
 HISTORY                                                                                   FCCA475        6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  63    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCCA487  GPO. FIX FCC1040 SO WE DONT LOSE OPTIMIZATION IN INNER LOOPS           FCCA487        1     A     
 HISTORY            SIJ  4/25/79  APPLIES TO FTN 4.8, OPT                                  FCCA487        2     A     
 HISTORY                                                                                   FCCA487        3     A     
 HISTORY   FCCA488  FTNRES.  CREATE A FET FOR ERRORS FILE FOR INTERMIXED COMPASS           FCCA488        1     A     
 HISTORY            AND EQUATE IT TO OUTPUT.                                               FCCA488        2     A     
 HISTORY            ERH    5/2/79   APPLIES TO FTN 4.8 TS AND OPT                          FCCA488        3     A     
 HISTORY                                                                                   FCCA488        4     A     
 HISTORY   FCCA488A FTN/IOBUFL,FTNRES ENABLE SCOPE2 TO HANDLE NEW COMPCOM WITH             FCCA488A       1     A     
 HISTORY            E PARAMETER ON JOBCARD FOR ERRORS FILE.                                FCCA488A       2     A     
 HISTORY            BEA/GARCIA   5/30/79     APPLIES TO FTN 4.8 TS AND OPT                 FCCA488A       3     A     
 HISTORY                                                                                   FCCA488A       4     A     
 HISTORY   FCCA489  FTN   THESE CHANGES INVOLVE A NEW ALTERNATE ENTRY POINT (FTN4)         FCCA489        1     A     
 HISTORY            FOR FTN4,TS AND OPT . VALID ONLY FOR NOS AND NOS,BE.                   FCCA489        2     A     
 HISTORY            EVENTUALITY IT IS EXPECTED THAT FTN4 WILL BE THE STANDARD              FCCA489        3     A     
 HISTORY            ENTRY POINT FOR FTN4,TS,OPT AND SOME ADDITIONAL CHANGES WILL           FCCA489        4     A     
 HISTORY            BE REQUIRED IN FTN.                                                    FCCA489        5     A     
 HISTORY            SSK    03/20/79    APPLIED AGAINST FTN,TS AND OPT                      FCCA489        6     A     
 HISTORY                                                                                   FCCA489        7     A     
 HISTORY            GPO/IHB.  FCC2113 ELIMINATED UPDATE OF LIH.  THIS MADE GRA             FCCA495        1     A     
 HISTORY            FAIL TO INSERT THE PROPER PREFETCH INSIDE A LOOP BECAUSE               FCCA495        2     A     
 HISTORY            GRA DID NOT RECOGNIZE A LOOP BACK JUMP IN IRA.                         FCCA495        3     A     
 HISTORY            SPS    6-18-79     APPLIES TO FTN 4.7.                                 FCCA495        4     A     
 HISTORY                                                                                   FCCA495        5     A     
 HISTORY   FCC2120  HEADER/PPA64 DURING THE PRINT FILE DESCRIPTION MACRO LOOP ITS          FCC2120        1     A     
 HISTORY            POSSIBLE FOR T.FILE TO BE MOVED SO IT WILL BE NECESSARY TO             FCC2120        2     A     
 HISTORY            PICK UP THE ORIGIN OF T.FILE BEFORE EVERY FETCH OF THE TAG             FCC2120        3     A     
 HISTORY            WORD. THE INCREMENT INTO T.FILE MUST BE SAVE LOCALLY SINCE             FCC2120        4     A     
 HISTORY            THEIR ARE NO AVAILABLE REGISTERS.                                      FCC2120        5     A     
 HISTORY            SSK    12/11/78    APPLIED AGAINST FTN,TS                              FCC2120        6     A     
 HISTORY                                                                                   FCC2120        7     A     
 HISTORY   FCC2149  GPO/UPB - WHEN SEARCHING FOR TLD OF AN ABNORMAL *IP*, CHECK            FCC2149        1     A     
 HISTORY            THE WHOLE INSERT LIST.                                                 FCC2149        2     A     
 HISTORY            SIJ    2/28/79     APPLIES TO FTN 4.8, OPT=1,2                         FCC2149        3     A     
 HISTORY                                                                                   FCC2149        4     A     
 HISTORY   FCC2157  BDT/RIO - SEQUENCE  4/SET 10/EOS/ST 10/JPX 4 . STORE FLOATED ABOVE     FCC2157        1     A     
 HISTORY            EOS SINCE JPX WAS LINKED TO DEF AND LOGIC AT RIO17 WAS IN ERROR        FCC2157        2     A     
 HISTORY            SIJ    3/19/79     APPLIES TO FTN 4.7, OPT=1,2                         FCC2157        3     A     
 HISTORY                                                                                   FCC2157        4     A     
 HISTORY   FCC2159   KEY/LCC                                                               FCC2159        1     A     
 HISTORY             DO NOT LIST OVERLAY CARD WHEN L =  0                                  FCC2159        2     A     
 HISTORY             KKN    3/27/79    APPLIED AGAINST FTN,TS                              FCC2159        3     A     
 HISTORY                                                                                   FCC2159        4     A     
 HISTORY                                                                                   FCC2159        5     A     
 HISTORY   FCC2165  GRA/IRA/PVC - MOVE SHIFT INST UP SO X2 IS POSITIONED FOR TEST          FCC2165        1     A     
 HISTORY            AT PVC6.                                                               FCC2165        2     A     
 HISTORY            SIJ    4/16/79     APPLIES TO FTN 4.8, OPT=2                           FCC2165        3     A     
 HISTORY                                                                                   FCC2165        4     A     
 HISTORY   FCC2168  FTN/ARGRNDD1 CLEAR THE ROUND OPTIONS WORD BEFORE ORING IN THE          FCC2168        1     A     
 HISTORY            NEW VALUE.                                                             FCC2168        2     A     
 HISTORY            SSK    04/20/79    APPLIED AGAINST FTN                                 FCC2168        3     A     
 HISTORY                                                                                   FCC2168        4     A     
 HISTORY   *L508*    ************************************************                      *L508*         1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  64    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCCA499X GPO/RDD.  RDD WAS ELIMINATING STORES WITHOUT SCANNING FOR              FCCA499X       1     A     
 HISTORY            INTERFERING USES (EQUIVALENCE CLASSES) AFTER THE STORE.                FCCA499X       2     A     
 HISTORY            SPS    8-9-79      APPLIES TO FCC,CCG                                  FCCA499X       3     A     
 HISTORY                                                                                   FCCA499X       4     A     
 HISTORY   FCCA505  BATCH                                                                  FCCA505        1     A     
 HISTORY            JOB HANGS IN RECALL AT END OF COMPILATION                              FCCA505        2     A     
 HISTORY            THE PROBLEM OCCURS BECAUSE THE FILE VECTOR IN LOW CORE                 FCCA505        3     A     
 HISTORY            IS DESTROYED WHEN A0 IS ACCIDENTLY DESTROYED WHILE PROCESSING          FCCA505        4     A     
 HISTORY            LEADING BLANK CARDS IN A SUBPROGRAM                                    FCCA505        5     A     
 HISTORY            TMH    09/10/79     APPLIES TO TS                                      FCCA505        6     A     
 HISTORY   FCCA506X  GPO/MII. AVOID MODE 1 IN GPO FOR TLD ENCOUNTERED.                     FCCA506X       1     A     
 HISTORY   MAH      07/25/79           APPLIES TO FTN 4.8 AND CCG .                        FCCA506X       2     A     
 HISTORY                                                                                   FCCA506X       3     A     
 HISTORY   FCCA510   LSTPRO,FAX.                                                           FCCA510        1     A     
 HISTORY             ALLOW PMD TO WORK ON SCOPE2                                           FCCA510        2     A     
 HISTORY             TMH     9/10/79     APPLIES TO FTN 4.8                                FCCA510        3     A     
 HISTORY                                                                                   FCCA510        4     A     
 HISTORY   FCCA511  TSTEXT,FTNTEXT.  REMOVE WARNING MESSAGES IN ASSEMBLING                 FCCA511        1     A     
 HISTORY            TSTEXT AND FTNTEXT ON NOS.                                             FCCA511        2     A     
 HISTORY            BEA     9/4/79     APPLIES TO FTN 4.8                                  FCCA511        3     A     
 HISTORY                                                                                   FCCA511        4     A     
 HISTORY   FCCA519  ALLOW FTN 4 TO BE USED WITH CURRENT COMPASS.                           FCCA519        1     A     
 HISTORY            MAH    10/12/79       APPLIES TO FTN 4.8                               FCCA519        2     A     
 HISTORY                                                                                   FCCA519        3     A     
 HISTORY   FCC2061  MCG/UJR.  MCG MODES OUT WHEN THE X-REGISTER WIDTH IS                   FCC2061        1     A     
 HISTORY            GREATER THAN 8 AND X6 AND X7 ARE LOCKED UP AS A RESULT OF              FCC2061        2     A     
 HISTORY            A PREVIOUS ALLOCATION.  THIS CODE BREAKS THE DEADLOCK BY               FCC2061        3     A     
 HISTORY            STORING OUT X6 OR X7 REGARDLESS OF ANY PREVIOUS COMMITMENTS.           FCC2061        4     A     
 HISTORY            X6 OR X7 IS THEN RESTORED WITH THE PROPER VALUE BEFORE                 FCC2061        5     A     
 HISTORY            EXITING THE BLOCK WITHOUT DESTROYING THE CONTENTS OF THE               FCC2061        6     A     
 HISTORY            THE OTHER X REGISTERS.                                                 FCC2061        7     A     
 HISTORY            SPS    7-12-79     APPLIES TO FCC                                      FCC2061        8     A     
 HISTORY                                                                                   FCC2061        9     A     
 HISTORY   FCC2124  GRA/DUM - DO NOT SET *RF* BIT FOR SUBSCRIPTS THAT ARE NOT              FCC2124        1     A     
 HISTORY            UNCONDITIONALLY EXECUTED SO AS TO AVOID MODE ERRORS AT EXECUTION       FCC2124        2     A     
 HISTORY            TIME.  DELETE THE CHECK IF *UO* IS SELECTED.                           FCC2124        3     A     
 HISTORY            SIJ    2/2/79      APPLIES TO FTN 4.7  OPT=1,2                         FCC2124        4     A     
 HISTORY                                                                                   FCC2124        5     A     
 HISTORY  FCC2129   REPEATING ONE OR MORE VARIABLES IN THE SAME OR                         FCC2129        1     A     
 HISTORY            SUBSEQUENT DATA STATEMENTS CAUSES THE COMPILER                         FCC2129        2     A     
 HISTORY            TO ASSIGN INCORRECT ADDRESSES.  THIS FAILURE IS                        FCC2129        3     A     
 HISTORY            A REGRESSION CAUSED BY FCC1935 AND FCC2101                             FCC2129        4     A     
 HISTORY                                                                                   FCC2129        5     A     
 HISTORY            THE INTERNAL ASSEMBLER, FAX, MUST SAVE THE NEXT                        FCC2129        6     A     
 HISTORY            AVAILABLE VALUE OF THE ORG COUNTER WHEN IT                             FCC2129        7     A     
 HISTORY            ASSEMBLES THE PSEUDO OPERATION ORG NAME,,1                             FCC2129        8     A     
 HISTORY                                                                                   FCC2129        9     A     
 HISTORY            THE PROBLEM OCCURS WHEN  TWO SUCH OPERATIONS                           FCC2129       10     A     
 HISTORY            OCCUR IN SUCCESSION WITH NO NEW DATA                                   FCC2129       11     A     
 HISTORY            BEING ASSIGNED IN THE MEANTIME.  THIS CAUSES                           FCC2129       12     A     
 HISTORY            LOCATIONS TO BE SKIPPED.                                               FCC2129       13     A     
 HISTORY                                                                                   FCC2129       14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  65    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY             FCC1935 AND FCC2101 TRIED TO DETECT AND SOLVE                         FCC2129       15     A     
 HISTORY            THIS PROBLEM BY COMPARING THE VALUE SAVED                              FCC2129       16     A     
 HISTORY            BY THE ORG NAME,,1 OPERATION AND THE                                   FCC2129       17     A     
 HISTORY            CURRENT VALUE OF THE ORG COUNTER.  THIS                                FCC2129       18     A     
 HISTORY            TECHNIQUE IS UNRELIABLE DEPENDING UPON THE                             FCC2129       19     A     
 HISTORY            LOCATION OF THE VARIABLES BEING REDEFINED.                             FCC2129       20     A     
 HISTORY                                                                                   FCC2129       21     A     
 HISTORY            THE SOLUTION TO THIS PROBLEM IS TO PURGE                               FCC2129       22     A     
 HISTORY            FCC1935, FCC1817X, AND FCC2101 AND TO CORRECTLY INCREMENT              FCC2129       23     A     
 HISTORY            AND STORE THE ORG COUNTER IN K. WITHOUT                                FCC2129       24     A     
 HISTORY            DEPENDING ON THE ADDRESSES INVOLVED.                                   FCC2129       25     A     
 HISTORY                                                                                   FCC2129       26     A     
 HISTORY            IF NO DATA HAS BEEN ASSEMBLED INTO THE LOADER                          FCC2129       27     A     
 HISTORY            TEXT TABLE FOR THE DATA. BLOCK,  THEN TABC=2                           FCC2129       28     A     
 HISTORY            AND POSC=60 AND THE VALUE IN ORGC IS THE                               FCC2129       29     A     
 HISTORY            PROPER VALUE TO USE WHEN WE SET UP THIS SAME LOADER                    FCC2129       30     A     
 HISTORY            TEXT TABLE AFTER THE REDEFINITION HAS TAKEN PLACE.                     FCC2129       31     A     
 HISTORY            IF ON THE OTHER HAND,  DATA HAS BEEN ASSEMBLED                         FCC2129       32     A     
 HISTORY            INTO THE LOADER TEXT TABLE FOR THE DATA. BLOCK,                        FCC2129       33     A     
 HISTORY            THEN TABC>2 OR TABC=2 AND POSC<60.                                     FCC2129       34     A     
 HISTORY            IN THIS CASE, THE PROPER ORIGIN FOR THE NEW LOADER TEXT                FCC2129       35     A     
 HISTORY            TABLE AFTER THE REDEFINITION WILL BE ORGC+1.                           FCC2129       36     A     
 HISTORY                                                                                   FCC2129       37     A     
 HISTORY            THIS PSR ANSWERS FCC2180, FCC2195, AND FCC2234 AS WELL.                FCC2129       38     A     
 HISTORY            TMH    10/20/79    FAX                                                 FCC2129       39     A     
 HISTORY   FCC2135  GRA - DO NOT USE INTEGER POLYNOMIALS THAT INDEX LCM, BLANK             FCC2135        1     A     
 HISTORY            COMMON, OR A FORMAL PARAMETER AND WHOSE INCREMENT VALUE IS             FCC2135        2     A     
 HISTORY            SUFFICIENTLY LARGE IN TEST REPLACEMENT AS THIS COULD CAUSE             FCC2135        3     A     
 HISTORY            A B REGISTER OVERFLOW.                                                 FCC2135        4     A     
 HISTORY            SPS 4-23-79         APPLIES FTN4.8                                     FCC2135        5     A     
 HISTORY                                                                                   FCC2135        6     A     
 HISTORY   FCC2150  LISTIO/IOL.C                                                           FCC2150        1     A     
 HISTORY            THE OPT COMPILER WILL ONLY ISSUE AN ERROR MESSAGE IF A REAL            FCC2150        2     A     
 HISTORY            SUBSCRIPT IS USED AS A DO INDEX IN A IMPLIED DO LOOP.                  FCC2150        3     A     
 HISTORY            KKN    12/11/78    APPLIED AGAINST FTN,OPT                             FCC2150        4     A     
 HISTORY                                                                                   FCC2150        5     A     
 HISTORY   FCC2170  FTN/(KEY,MIB)                                                          FCC2170        1     A     
 HISTORY            TWO OR MORE OPTIONS USING THE SAME FILE WILL CAUSE                     FCC2170        2     A     
 HISTORY            COMPILATION TO TERMINATE, THIS WILL BE INDICATED IN A                  FCC2170        3     A     
 HISTORY            DAYFILE ENTRY.                                                         FCC2170        4     A     
 HISTORY            KKN      4/24/79             APPLIED AGAINST FTN,TS + OPT              FCC2170        5     A     
 HISTORY                                                                                   FCC2170        6     A     
 HISTORY   FCC2175  MAIN/CSB,PAR/PAR                                                       FCC2175        1     A     
 HISTORY            TO PREVENT TS COMPILER ABORTS WHEN DEAD CODE EXISTS                    FCC2175        2     A     
 HISTORY            AND THE DEAD-CODE IS AN BRANCHING OUT IF STATEMENT,                    FCC2175        3     A     
 HISTORY            THE LENGTH OF THE PARSE-FILE IS RESET BASED ON THE                     FCC2175        4     A     
 HISTORY            LENGTH BEFORE PRESENT STATEMENT(DEAD-CODE) IS PARSED.                  FCC2175        5     A     
 HISTORY            ALL THE DEAD-CODE ADDED TO THE PARSE-FILE WILL BE DISCARDED.           FCC2175        6     A     
 HISTORY            KKN    6/27/79     APPLIED AGAINST FTN,TS                              FCC2175        7     A     
 HISTORY                                                                                   FCC2175        8     A     
 HISTORY   FCC2177  ERRORS,TYPE/TYP-THE TS COMPILER DOES NOT DIAGNOSE                      FCC2177        1     A     
 HISTORY            A FUNCTION NAME USED AS A VARIABLE NAME.  THE PROBLEM                  FCC2177        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  66    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            HAS BEEN CORRECTED, AND A FATAL ERROR MESSAGE                          FCC2177        3     A     
 HISTORY            WILL BE ISSUED.                                                        FCC2177        4     A     
 HISTORY            KKN    6/1/79      APPLIED AGAINST FTN,TS                              FCC2177        5     A     
 HISTORY                                                                                   FCC2177        6     A     
 HISTORY   FCC2184  PAR/A=DO.  DIAGNOSE TOO FEW DO INDEX PARAMETERS.                       FCC2184        1     A     
 HISTORY            MRR    79/07/05    APPLIES TO FTN 4.8, TS.                             FCC2184        2     A     
 HISTORY                                                                                   FCC2184        3     A     
 HISTORY   FCC2186  FTNTEXT, DPCLOSE/EQV.  FIX ENTRY CONDITION ON CALL TO ALLOC.           FCC2186        1     A     
 HISTORY            PREVENT RECURRENCE OF ABSOLUTE VALUE AS PARAMETER.                     FCC2186        2     A     
 HISTORY            MRR    79/07/23    APPLIES TO FTN 4.8, OPT.                            FCC2186        3     A     
 HISTORY                                                                                   FCC2186        4     A     
 HISTORY   FCC2189  MAIN/RNS                                                               FCC2189        1     A     
 HISTORY            IF THE SEQ PARAMETER IS SPECIFIED ON THE FTN CONTROL                   FCC2189        2     A     
 HISTORY            CARD, TS COMPILER ASSUMES INPUT IS A FORTRAN                           FCC2189        3     A     
 HISTORY            PROGRAM AND THEREFORE FAILS TO DETECT A                                FCC2189        4     A     
 HISTORY            COMPASS PROGRAM WHICH FOLLOWS A FORTRAN PROGRAM.                       FCC2189        5     A     
 HISTORY            KKN    7/6/79     APPLIED AGAINST FTN,TS                               FCC2189        6     A     
 HISTORY                                                                                   FCC2189        7     A     
 HISTORY   FCC2194  TSTEXT,TABLES,GEN/A=ARRAY/O=SUBL.  PREVENT REGISTER DEADLOCK           FCC2194        1     A     
 HISTORY            ON SUBSCRIPTED SUBSCRIPTS.                                             FCC2194        2     A     
 HISTORY            MRR    79/07/16    APPLIES TO FTN 4.8, TS.                             FCC2194        3     A     
 HISTORY                                                                                   FCC2194        4     A     
 HISTORY   FCC2196  PAR/PAR.TNK.  SEQUENCE POINTERS PROPERLY WHEN DIAGNOSING AN            FCC2196        1     A     
 HISTORY            OPERATOR/OPERAND ERROR INVOLVING A CONSTANT.                           FCC2196        2     A     
 HISTORY            MRR    79/07/10    APPLIES TO FTN 4.8, TS.                             FCC2196        3     A     
 HISTORY                                                                                   FCC2196        4     A     
 HISTORY   FCC2203  GEN/RMAC                                                               FCC2203        1     A     
 HISTORY            FTN,TS COMPILER TREATS A VARIABLE CONTAINING MINUS                     FCC2203        2     A     
 HISTORY            ZERO VALUE AS NEGATIVE IN ARITHMATIC IF STATEMENT.                     FCC2203        3     A     
 HISTORY            THE PROBLEM IS CORRECTED BY NORMALIZING THE VARIABLE                   FCC2203        4     A     
 HISTORY            IN AN ARITHMATIC IF STATEMENT BEFORE THE VALUE IS TESTED               FCC2203        5     A     
 HISTORY            TO DETERMINE WHETHER THE VARIABLE CONTAINS A NEGATIVE, ZERO,           FCC2203        6     A     
 HISTORY            OR POSITIVE VALUE.                                                     FCC2203        7     A     
 HISTORY            KKN    7/23/79     APPLIED AGAINST FTN,TS                              FCC2203        8     A     
 HISTORY                                                                                   FCC2203        9     A     
 HISTORY   FCC2204  PRE.  FAILURE TO ZERO FILL GLT TABLE DURING INITIALIZATION             FCC2204        1     A     
 HISTORY            RESULTED IN MODE ERROR WHEN OPT=2, R=3 OPTION CHOSEN                   FCC2204        2     A     
 HISTORY            AND THERE IS DEAD CODE.                                                FCC2204        3     A     
 HISTORY            SPS    8-13-79     APPLIES TO FTN4.                                    FCC2204        4     A     
 HISTORY                                                                                   FCC2204        5     A     
 HISTORY   FCC2212X BDT/FTL.  FTL WAS NOT FORMING DEPENDENCY LINKS FROM A                  FCC2212X       1     A     
 HISTORY            TEMPORARY *RS* TO FULL *RS*. IN ADDITION RIO WOULD OFTEN FLOAT         FCC2212X       2     A     
 HISTORY            ALL FULL *RS* POSSIBLE IN A CLASS OF REGISTERS ABOVE A TEMP OF         FCC2212X       3     A     
 HISTORY            THE SAME CLASS.  THIS MADE LIFE FOR MCG PRETTY TOUGH.                  FCC2212X       4     A     
 HISTORY            SPS    9-13-79     APPLIES TO FTN4.8,CCG                               FCC2212X       5     A     
 HISTORY                                                                                   FCC2212X       6     A     
 HISTORY   *L518*    ************************************************                      *L518*         1     A     
 HISTORY   FCC*80   FTN/FTNRES. UPDATE COPYRIGHT INFORMATION FOR 1980                      FCC*80         1     A     
 HISTORY            BEA    79/09/28    APPLIES TO FTN 4.8                                  FCC*80         2     A     
 HISTORY                                                                                   FCC*80         3     A     
 HISTORY   FCCA473  FTN,LSTPRO. FIXES PD=8 PROBLEMS.                                       FCCA473        1     A     
 HISTORY            KKN    11/13/79     APPLIES FTN 4.8 TS, OPT                            FCCA473        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  67    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FCCA473        3     A     
 HISTORY   FCCA509X GPO/CBB,GRA/CLB,MIO.  CBB IN BUILDING AN *EBB* ASSUMMED                FCCA509X       1     A     
 HISTORY            THAT THE PHYSICAL PRED. OF A HB IN THE BST TABLE WAS                   FCCA509X       2     A     
 HISTORY            ALWAYS THE LOGICAL PRED. AS WELL.  THIS IS NOT ALWAYS                  FCCA509X       3     A     
 HISTORY            THE CASE AND ADDITIONAL CODE WAS ADDED TO CHECK FOR THIS.              FCCA509X       4     A     
 HISTORY            SPS    10-2-79     APPLIES TO FTN4.8,CCG.                              FCCA509X       5     A     
 HISTORY                                                                                   FCCA509X       6     A     
 HISTORY   FCCA513X GPO/MII,FXI.  MII WAS MAKING INSUFFICIENT TEST ON                      FCCA513X       1     A     
 HISTORY            WHETHER INVARIANT STORES COULD BE MOVED.  WHAT WAS                     FCCA513X       2     A     
 HISTORY            NEEDED WAS A CHECK ON THE REGION LIVE ENTRY VECTOR (LEA).              FCCA513X       3     A     
 HISTORY            CODE WAS ADDED TO CALCULATE LEA BEFORE MII WAS CALLED.                 FCCA513X       4     A     
 HISTORY            BEFORE FXI CALCULATED LEA.                                             FCCA513X       5     A     
 HISTORY            SPS    10-10-79    APPLIES TO FTN4.8,CCG.                              FCCA513X       6     A     
 HISTORY                                                                                   FCCA513X       7     A     
 HISTORY   FCC2174  PAR/A=BEF.  REPAIR SPURIOUS FIELD-LENGTH SENSITIVE TYPE-               FCC2174        1     A     
 HISTORY            MISMATCH ERRORS ASSOCIATED WITH RESULT OF BASIC EXTERNAL               FCC2174        2     A     
 HISTORY            FUNCTIONS IN TRACE MODE.  A SYMBOL TABLE POINTER WAS BEING             FCC2174        3     A     
 HISTORY            CARRIED ACROSS *FAL*, WHICH DOES A TABLE MANAGER CALL.                 FCC2174        4     A     
 HISTORY            MAH    11/3/79     APPLIES TO FTN 4.8, OPT                             FCC2174        5     A     
 HISTORY                                                                                   FCC2174        6     A     
 HISTORY   FCC2198  FTN/ARG.  DIAGNOSE ILLEGAL OPT= VALUE.                                 FCC2198        1     A     
 HISTORY            MAH    11/3/79     APPLIES TO FTN 4.8 .                                FCC2198        2     A     
 HISTORY                                                                                   FCC2198        3     A     
 HISTORY   FCC2207  MCG/UJR  UJR IN SEEKING TO UNJAM REGISTERS WAS STORING OUT             FCC2207        1     A     
 HISTORY            AN OPERAND OF THE INSTRUCTION IT IS ATTEMPTING TO ISSUE.               FCC2207        2     A     
 HISTORY            THIS WOULD REMOVE THAT INSTRUCTION OF THE ISSUE CANDIDATE LIST         FCC2207        3     A     
 HISTORY            MAKING IT IMPOSSIBLE TO ISSUE BEFORE THE DESTROYED OPERAND             FCC2207        4     A     
 HISTORY            COULD BE RELOADED.  A MODULE WAS ADDED TO RECOGNIZE THIS               FCC2207        5     A     
 HISTORY            AND TOGGLE THE OPERAND REGISTER WITH A REGISTER OF THE NEEDED          FCC2207        6     A     
 HISTORY            CLASS WITHOUT A STORE TO MEMORY.  THIS WAS DONE BY ISSUEING A          FCC2207        7     A     
 HISTORY            SERIES OF XOR'S.                                                       FCC2207        8     A     
 HISTORY            SPS    11-01-79     APPLIES TO FTN4.8.                                 FCC2207        9     A     
 HISTORY                                                                                   FCC2207       10     A     
 HISTORY   FCC2222  FTN.  ALLOW LCM FL TO BE RESET AFTER MORE THAN 400000B                 FCC2222        1     A     
 HISTORY            HAS BEEN REQUESTED DURING COMPILATION.                                 FCC2222        2     A     
 HISTORY            BEA   8/31/70     APPLIES TO FTN 4.8 (7600/176 ONLY)                   FCC2222        3     A     
 HISTORY                                                                                   FCC2222        4     A     
 HISTORY   FCC2228   STMTP/FMAC                                                            FCC2228        1     A     
 HISTORY             WHEN THE FORTRAN COMPILER IS COMPILING A PROGRAM WITH                 FCC2228        2     A     
 HISTORY             DEBUG ON AND LCM EQUAL I, IT FAILS TO ADD THE OFFSET OF THE           FCC2228        3     A     
 HISTORY             FIRST UNSUBSCRIPTED VARIABLE WITHIN THE COMMON BLOCK DURING           FCC2228        4     A     
 HISTORY             I/0 MACRO PROCESSING.                                                 FCC2228        5     A     
 HISTORY             THE PROBLEM CAN BE FIXED IF THE COMPILER FIRST CHECKS                 FCC2228        6     A     
 HISTORY             WHETHER IT IS OPERATING UNDER DEBUG MODE BEFORE IT DETERMINES         FCC2228        7     A     
 HISTORY             WHETHER THE DIMP FIELD IS ANY GOOD.  EVEN IF THE DIMP FIELD           FCC2228        8     A     
 HISTORY             IS ZERO, IT STILL REPRESENTS A RELOCATABLE ADDRESS FOR                FCC2228        9     A     
 HISTORY             SCA TABLE, BECAUSE COMPASS IS USING ZERO BASE IN CALCULATION          FCC2228       10     A     
 HISTORY             FOR TABLES AND ARRAYS.                                                FCC2228       11     A     
 HISTORY             KKN    10/23/79    APPLIED AGAINST FTN                                FCC2228       12     A     
 HISTORY                                                                                   FCC2228       13     A     
 HISTORY   FCC2229  TSDATA/ODI,DATA/ODI                                                    FCC2229        1     A     
 HISTORY            TS COMPILER FAILED TO INITIALIZE THE IMAGINARY PART                    FCC2229        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  68    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            OF A COMPLEX NUMBER IF ONLY THE REAL PART OF A COMPLEX                 FCC2229        3     A     
 HISTORY            NUMBER IS SPECIFIED.   OPT COMPILER WILL INITIALIZE THE                FCC2229        4     A     
 HISTORY            IMAGARY PART OF A COMPLEX NUMBER EVEN IF ONLY THE REAL PART            FCC2229        5     A     
 HISTORY            IS SPECIFIED; HOWEVER, IT WILL NOT INITIALIZE THE IMAGINARY            FCC2229        6     A     
 HISTORY            PART IF THE COMPLEX VARIABLE IS DIMENSIONED.  THE PROBLEM              FCC2229        7     A     
 HISTORY            VANISHES WHEN THE USER SPECIFIED BOTH THE REAL AND IMAGINARY           FCC2229        8     A     
 HISTORY            PART OF A COMPLEX NUMBER.  THE PROBLEM IS CORRECTED BY FORC-           FCC2229        9     A     
 HISTORY            ING THE COMPILER TO OUTPUT TWO WORDS INSTEAD OF ONE WHEN A             FCC2229       10     A     
 HISTORY            INCOMPLETE COMPLEX NUMBER(EX. ONLY REAL PART IS SPECIFIED)             FCC2229       11     A     
 HISTORY            IS ENCOUNTERED BY THE COMPILER. THE ABOVE PROBLEM IS CONCERNED         FCC2229       12     A     
 HISTORY            ONLY WITH DATA STATEMENTS IN A DECLARATIVE PART OF A FTN PROG.         FCC2229       13     A     
 HISTORY            KKN    9/26/79     APPLIED AGAINST FTN,TS &OPT                         FCC2229       14     A     
 HISTORY                                                                                   FCC2229       15     A     
 HISTORY   FCC2230X GPO/DIF.  DIF ASSUMED RK = 0 WAS A SUFFICIENT CONDITION FOR            FCC2230X       1     A     
 HISTORY            RECOGNIZING UNARY TYPE I INSTRUCTION.  HOWEVER A PACK WITH             FCC2230X       2     A     
 HISTORY            A RJ = 0 IS AN EXCEPTION.  DIF WOULD THEN PICK UP A BOS IN             FCC2230X       3     A     
 HISTORY            FORMING AN INCREMENT FORMULA.                                          FCC2230X       4     A     
 HISTORY            SPS    9-19-79     APPLIES TO FTN4.8,CCG.                              FCC2230X       5     A     
 HISTORY                                                                                   FCC2230X       6     A     
 HISTORY   FCC2240  ARITH/EXPOP.  WHEN PROCESSING AN EXPONENTIATION WHICH                  FCC2240        1     A     
 HISTORY            IS PART OF AN ACTUAL ARGUMENT EXPRESSION TO A TRACED FUNCTION          FCC2240        2     A     
 HISTORY            IN DEBUG MODE, THE FUNCTION PROCESSORS (CARGPORT AND ARG1PRT)          FCC2240        3     A     
 HISTORY            WOULD ATTEMPT TO TRACE THE RJ XTOY$ ETC.  TO AVOID THIS                FCC2240        4     A     
 HISTORY            THE EXPONENTIATION PROCESSOR WILL ZERO THE FUNCTION TRACE FLAG         FCC2240        5     A     
 HISTORY            AND RESET IT AFTER THE CALL TO EXPONTIATE IS EMITTED.                  FCC2240        6     A     
 HISTORY            MAH    11/3/79     APPLIES TO FTN 4.8 .                                FCC2240        7     A     
 HISTORY                                                                                   FCC2240        8     A     
 HISTORY   CCGA025  GPO/MIP.  AVOID MOVING MULTIPLY THAT IS NOT UNCONDITIONALLY            FCC2271X       1     A     
 HISTORY            EXECUTED IF OPERANDS NOT SAFE.                                         FCC2271X       2     A     
 HISTORY            MAH    12-15-79    APPLIES TO CCG.                                     FCC2271X       3     A     
 HISTORY                                                                                   FCC2271X       4     A     
 HISTORY   FCC2273X BDT/RIO.  BAD CODE GENERATED FOR FCC2157.  FALSE ASSUMPTION            FCC2273X       1     A     
 HISTORY            WAS MADE BECAUSE BM FLAG TEMPORARILY SET ON BOS.  FOLLOWING            FCC2273X       2     A     
 HISTORY            CONSEQUTIVE DEFS AT BEGINNING OF SEQUENCE - LOOP AT RIO16              FCC2273X       3     A     
 HISTORY            EXITED ON A BOS AND NOT A DEF AND THE RMIN VARIABLE(KEEPS              FCC2273X       4     A     
 HISTORY            FIRST DEF IN SEQUENCE) WAS NOT UPDATED.                                FCC2273X       5     A     
 HISTORY            REPLACES (PURGES) FCCA504AX.                                           FCC2273X       6     A     
 HISTORY            SPS    12-17-79    APPLIES FTN 4.8, CCG                                FCC2273X       7     A     
 HISTORY                                                                                   FCC2273X       8     A     
 HISTORY   *L528*    ************************************************                      *L528*         1     A     
 HISTORY   RSM4033  CPL/REFMAP                                                             RSM4033        1     A     
 HISTORY            COMPILER FAILS TO DETECT IF USER OMITS LCM=I BUT USES                  RSM4033        2     A     
 HISTORY            400K LCM. THE SOLUTION IS LCM = I MUST BE SPECIFIED IF                 RSM4033        3     A     
 HISTORY            THE EXECUTION LCM FIELD LENGTH EXCEEDS 131,071 WORDS.                  RSM4033        4     A     
 HISTORY            KKN    1/16/80    APPLIED AGAINST FTN,OPT                              RSM4033        5     A     
 HISTORY                                                                                   RSM4033        6     A     
 HISTORY   FCCA493  HEADER/PSF                                                             FCCA493        1     A     
 HISTORY            THE TS COMPILER ISSUED INAPPROPRIATE ERROR DIAGNOSTIC                  FCCA493        2     A     
 HISTORY            THE PROBLEM OCCURED BECAUSE INCORRECT INFORMATION WAS                  FCCA493        3     A     
 HISTORY            ACCIDENTIALLY STORED DURING DUMMY PROGRAM CARD PROCESS-                FCCA493        4     A     
 HISTORY            ING.  THE FORMAT STATEMENT PROCESSOR PICKED UP WRONG                   FCCA493        5     A     
 HISTORY            INFORMATION AND IT ISSUED THE ERROR MESSAGE BEFORE IT                  FCCA493        6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  69    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            COULD FURTHER SCAN AND PROCESS THE STATEMENT.                          FCCA493        7     A     
 HISTORY            KKN     11/12/79   APPLIED AGAINST FTN,TS                              FCCA493        8     A     
 HISTORY                                                                                   FCCA493        9     A     
 HISTORY   FCCA526  ASF/AFD                                                                FCCA526        1     A     
 HISTORY            WHEN A DUMMY ARGUMENT APPEARS MORE THAN ONCE IN AN ASF                 FCCA526        2     A     
 HISTORY            DEFINITION, THEN AN ERROR MESSAGE IS ISSUED.  AND AN                   FCCA526        3     A     
 HISTORY            UNWANTED UNINITIALIZED ENTRY IS ADDED TO TT.SCR.  SUB-                 FCCA526        4     A     
 HISTORY            SEQUENT PROCESSING OF THIS UNINITIALIZED ENTRY MAY OR MAY              FCCA526        5     A     
 HISTORY            NOT PRODUCE A SECOND ERROR MESSAGE.  THIS SECOND MESSAGE IS            FCCA526        6     A     
 HISTORY            UNWANTED AND THE FILLER CHARACTERS IN THE MESSAGE ARE UN-              FCCA526        7     A     
 HISTORY            INITIALIZED. THIS CORRECTIVE CODE ELIMINATES THE UNWANTED              FCCA526        8     A     
 HISTORY            TT.SCR ENTRY AND THE RANDOM OCCURANCE OF THE UNWANTED ERROR            FCCA526        9     A     
 HISTORY            MESSAGE.                                                               FCCA526       10     A     
 HISTORY            KKN     11/29/79    APPLIED AGAINST FTN,TS                             FCCA526       11     A     
 HISTORY                                                                                   FCCA526       12     A     
 HISTORY   FCCA527  DPCLOSE                                                                FCCA527        1     A     
 HISTORY            THE FAILING PROGRAM CONTAINS A VARIABLE WHICH IS DEFINED IN COMMON,    FCCA527        2     A     
 HISTORY            APPEARS IN AN EQUIVALENCE STATEMENT, AND IS THE SUBJECT OF A           FCCA527        3     A     
 HISTORY            C$STORES DEBUG STATEMENT.   C$ TRACE IS ALSO PRESENT AND THE           FCCA527        4     A     
 HISTORY            PROGRAM IS COMPILED WITH THE D OPTION.  THE PROBLEM OCCURS WHEN        FCCA527        5     A     
 HISTORY            THE LOW ORDER BIT OF THE DEBUG TABLE ORDINAL FIELD OF WORD B           FCCA527        6     A     
 HISTORY            OF SYMBOL TABLE ENTRY IS DESTROYED WHEN THE EQUIVALENCE                FCCA527        7     A     
 HISTORY            PROCESSOR ATTEMPTS TO UPDATE THE RB FIELD FOR THE VARIABLE IN COMMON.  FCCA527        8     A     
 HISTORY            THIS OCCURS BECAUSE A MASK DERIVED FROM EO.RBL (VALUE IS 8) WAS        FCCA527        9     A     
 HISTORY            USED INSTEAD OF A MASK DERIVED FROM L.RB (VALUE IS 7). FIX IS TO       FCCA527       10     A     
 HISTORY            USE L.RB                                                               FCCA527       11     A     
 HISTORY            TMH    01/07/80    APPLIES TO FTN,OPT                                  FCCA527       12     A     
 HISTORY                                                                                   FCCA527       13     A     
 HISTORY   FCCA530  PROSEQ. AVOID ASSORTED MODE ERRORS OR TIME LIMITS IN OPT=2.            FCCA530        1     A     
 HISTORY            BLOCK TABLE WAS BEING SHRUNK BY TABLE OVERFLOW PROCESSOR               FCCA530        2     A     
 HISTORY            ALTHOUGH TABLE MANAGER WAS INVOKED TO ALLOCATE BLOCK SPACE.            FCCA530        3     A     
 HISTORY            FTN 4 VERSION OF CCGA027.                                              FCCA530        4     A     
 HISTORY            MAH    12-26-79    APPLIES TO FTN 4.8, OPT = 2.                        FCCA530        5     A     
 HISTORY                                                                                   FCCA530        6     A     
 HISTORY   FCCA531  FAX,PH1CTL                                                             FCCA531        1     A     
 HISTORY            THE CODE CAUSES FTN TO ISSUE A RETURN JUMP TO Q4PMD                    FCCA531        2     A     
 HISTORY            WHENEVER PMD IS SPECIFIED ON THE FTN CONTROL CARD. PREVIOUSLY          FCCA531        3     A     
 HISTORY            FTN WOULD CALL EITHER Q2NTRY OR FTNRP2.                                FCCA531        4     A     
 HISTORY            RLD.   01/31/80.   APPLIES TO OPT ONLY                                 FCCA531        5     A     
 HISTORY                                                                                   FCCA531        6     A     
 HISTORY   FCCA532  DIAGNOSE ILLEGAL CONTROL CARD FTN,TS,PMD                               FCCA532        1     A     
 HISTORY            TMH    01/29/80    FTN                                                 FCCA532        2     A     
 HISTORY                                                                                   FCCA532        3     A     
 HISTORY   FCCA533  PAR.  GENERATE CORRECT CODE FOR  A/2./B/3.*4.                          FCCA533        1     A     
 HISTORY            RECOGNIZE MULTIPLY POPPING DIVIDE-INVENTED MULTIPLY, AND               FCCA533        2     A     
 HISTORY            AVOID STACKING REAL MULTIPLY FOR CONSTANT SUBSUMPTION IN               FCCA533        3     A     
 HISTORY            THAT CASE.                                                             FCCA533        4     A     
 HISTORY            MAH    1/25/80     APPLIES TO FTN 4.8, TS .                            FCCA533        5     A     
 HISTORY                                                                                   FCCA533        6     A     
 HISTORY   FCCA534  BATCH/RUN1A,MAIN/WOF,LSTPRO(FTNEND,FA=NPG)                             FCCA534        1     A     
 HISTORY            THE COMPILER WRITES AN UNWANTED S CARRIAGE CONTROL                     FCCA534        2     A     
 HISTORY            CHARACTER ON A CONNECTED LISTING FILE.  THIS PROBLEM WAS               FCCA534        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  70    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            INTRODUCED BY FCCA473 AND OCCURS BECAUSE CP.PD CAN HAVE                FCCA534        4     A     
 HISTORY            ONE OF THREE VALUES (S, T, OR 0) WHEN THE LISTING FILE IS              FCCA534        5     A     
 HISTORY            CLOSED.  THE EXISTING CODE ASSUMED CP.PD WOULD BE S OR T.              FCCA534        6     A     
 HISTORY            THE CORRECTIVE CODE WILL RECOGNIZE THAT CP.PD MAY BE ZERO              FCCA534        7     A     
 HISTORY            INDICATING A CONNECTED LISTING FILE AND AVOID WRITING THE              FCCA534        8     A     
 HISTORY            UNWANTED CARRIAGE CONTROL.                                             FCCA534        9     A     
 HISTORY            TMH    02/25/80                                                        FCCA534       10     A     
 HISTORY            KKN    2/25/80     APPLIED AGAINST FTN,TS & OPT                        FCCA534       11     A     
 HISTORY                                                                                   FCCA534       12     A     
 HISTORY   FCCA535  STLOAD,END/DFT,ENDPRO/OSL                                              FCCA535        1     A     
 HISTORY            STATIC OPTION MOD NEEDED IN CONJUNCTION WITH FCL1517.                  FCCA535        2     A     
 HISTORY            IN CASES WHERE THE MAIN PROGRAM IS COMPILED WITH STATIC                FCCA535        3     A     
 HISTORY            OPTION TURNED ON, THE FTN COMPILER WILL ISSUE A LDSET USE=             FCCA535        4     A     
 HISTORY            STLCMM. WHEN STATIC IS ON FOR OTHER THAN THE AFOREMENTIONED            FCCA535        5     A     
 HISTORY            CASE FTN COMPILER DOES NOT ISSUE THIS LDSET.                           FCCA535        6     A     
 HISTORY            KKN    2/15/80     APPLIED AGAINST FTN,OPT & TS                        FCCA535        7     A     
 HISTORY                                                                                   FCCA535        8     A     
 HISTORY   FCCA536  LSTPRO                                                                 FCCA536        1     A     
 HISTORY            THIS CODE CHANGES THE FILE DESCRIPTION FOR THE ZZZZZSY                 FCCA536        2     A     
 HISTORY            FILE FOR SCOPE 2 PMD                                                   FCCA536        3     A     
 HISTORY            TMH    02/25/80    APPLIES TO FTN,OPT                                  FCCA536        4     A     
 HISTORY                                                                                   FCCA536        5     A     
 HISTORY   FCCA537  CALL                                                                   FCCA537        1     A     
 HISTORY            CHANGE RETURN,PH2RETN TO RETURN=PH2RETN IN THE POSTER MACRO            FCCA537        2     A     
 HISTORY            CALL FOR E317                                                          FCCA537        3     A     
 HISTORY            TMH    02/27/80    APPLIES TO FTN,OPT                                  FCCA537        4     A     
 HISTORY                                                                                   FCCA537        5     A     
 HISTORY   FCCA543  IO                                                                     FCCA543        1     A     
 HISTORY            COMPLEX LWA(5)                                                         FCCA543        2     A     
 HISTORY            BUFFER IN/OUT (1,0) (FWA,LWA(I))                                       FCCA543        3     A     
 HISTORY            FTN,TS BUFFER IN/OUT STATEMENTS TRANSFER ONE TOO FEW WORDS             FCCA543        4     A     
 HISTORY            WHEN LWA IS A COMPLEX OR DOUBLE PRECISION ARRAY ELEMENT                FCCA543        5     A     
 HISTORY            WHOSE ADDRESS MUST BE PLUGGED INTO AN APLIST AT RUN TIME.              FCCA543        6     A     
 HISTORY            THE CALCULATED ADDRESS MUST BE INCREMENTED BY ONE TO AVOID             FCCA543        7     A     
 HISTORY            LOSING THE LAST WORD.                                                  FCCA543        8     A     
 HISTORY            TMH    06/12/80    APPLIES TO FTN,TS                                   FCCA543        9     A     
 HISTORY                                                                                   FCCA543       10     A     
 HISTORY   FCCA546X MCG                                                                    FCCA546X       1     A     
 HISTORY            THE COMBINATION .CPU=73 AND .DAL=NZ CAUSES MCG ASSEMBLY                FCCA546X       2     A     
 HISTORY            ERRORS.  THIS HAPPENS WHEN HF.LIST IN IPTEXT SELECTS L, S0,            FCCA546X       3     A     
 HISTORY            AND PS.   (LCM AND A SERIAL MACHINE)                                   FCCA546X       4     A     
 HISTORY            TMH    06/02/80    APPLIES TO FTN,OPT AND CCG                          FCCA546X       5     A     
 HISTORY                                                                                   FCCA546X       6     A     
 HISTORY   FCC2292  DATA/PDV,FTNMSG                                                        FCC2292        1     A     
 HISTORY            FTN OPT COMPILER FAILS TO DIAGNOSE LOCAL VARIABLE WHICH                FCC2292        2     A     
 HISTORY            HAD NOT DECLARED IN LABEL OR NUMBER COMMON IN BLOCK DATA               FCC2292        3     A     
 HISTORY            SUBPROGRAM, BUT FTN TS COMPILER CATCH THE ERROR.  THE                  FCC2292        4     A     
 HISTORY            CORRECTIVE CODE WILL FIX THE PROBLEM.                                  FCC2292        5     A     
 HISTORY            KKN    2/27/80     APPLIES AGAINST FTN OPT                             FCC2292        6     A     
 HISTORY                                                                                   FCC2292        7     A     
 HISTORY   FCCA549  DATA,FTNMSG                                                            FCCA549        1     A     
 HISTORY            CHANGE SEVERITY OF MESSAGE E.DNC = 326 TO INFORMATIVE                  FCCA549        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  71    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            TMH    06/13/80    APPLIES TO FTN,OPT ONLY                             FCCA549        3     A     
 HISTORY                                                                                   FCCA549        4     A     
 HISTORY   FCCA550X BDT/IPL.  CLEAR EXTRANEOUS FIELDS OF LINK WORD TO AVOID                FCCA550X       1     A     
 HISTORY            MODE 1 IN BDT AT OPT=1.                                                FCCA550X       2     A     
 HISTORY            SPS    80/06/12    APPLIES TO FTN,OPT AND CCG.                         FCCA550X       3     A     
 HISTORY                                                                                   FCCA550X       4     A     
 HISTORY   FCCA551  FAX                                                                    FCCA551        1     A     
 HISTORY            THE CODE FOR THIS IDENT CAUSES THE FTN 4 COMPILER TO                   FCCA551        2     A     
 HISTORY            WRITE THE MAP AND PRESET LDSET TABLES TO THE LGO FILE                  FCCA551        3     A     
 HISTORY            WHEN PMD IS SPECIFIED ON THE FTN CONTROL CARD. THE TABLES              FCCA551        4     A     
 HISTORY            ARE NOW THE SAME FOR NOS, NOS/BE AND SCOPE 2.                          FCCA551        5     A     
 HISTORY            RLD    06/26/80.   FTN.                                                FCCA551        6     A     
 HISTORY                                                                                   FCCA551        7     A     
 HISTORY   FCC1768  PS1CTL/PH2CTL                                                          FCC1768        1     A     
 HISTORY            THE FAILING TEST CONTAINS A DECLARATIVE STATEMENT OUT OF SEQUENCE      FCC1768        2     A     
 HISTORY            FOLLOWED BY A C$DEBUG STATEMENT.  THE INTEGER STATEMENT IS             FCC1768        3     A     
 HISTORY            DIAGNOSED IN PS1CTL BUT THE SUBSEQUENT ERROR RECOVERY GETS INTO        FCC1768        4     A     
 HISTORY            TROUBLE BECAUSE IT FAILS TO ANTICIPATE THE C$DEBUG STATEMENT.          FCC1768        5     A     
 HISTORY            THE COMPILER ABORTS WITH A PP CALL ERROR WHEN IT ATTEMPTS USE          FCC1768        6     A     
 HISTORY            THE PS1CTL JUMP TABLE TO PROCESS THE C$DEBUG STATMENT.                 FCC1768        7     A     
 HISTORY            TO FIX THE PROBLEM,AFTER THE DIAGNOSTIC IS POSTED, IF THE NEXT         FCC1768        8     A     
 HISTORY            STATEMENT IS A C$DEBUG STATEMENT, THE PS1CTL CALLS SCANNER AND         FCC1768        9     A     
 HISTORY            THEN CALLS DBGINTX TO PROCESS THE DEBUG STATEMENT OR STATEMENTS.       FCC1768       10     A     
 HISTORY            IF THE NEXT STATEMENT IS NOT A C$DEBUG STATEMENT, THE FLOW OF          FCC1768       11     A     
 HISTORY            CONTROL REMAINS AS IT IS.                                              FCC1768       12     A     
 HISTORY            THE SAME PROBLEM OCCURS WHEN A PROGRAM HEADER APPEARS OUT OF           FCC1768       13     A     
 HISTORY            SEQUENCE AND THE NEXT STATEMENT IS A DEBUG STATEMENT.                  FCC1768       14     A     
 HISTORY            KKN    2/5/80      APPLIED AGAINST FTN, OPT                            FCC1768       15     A     
 HISTORY                                                                                   FCC1768       16     A     
 HISTORY   FCC2202                                                                         FCC2202        1     A     
 HISTORY            WHEN A READ OR DECODE STATEMENT REFERENCES A                           FCC2202        2     A     
 HISTORY            FORMAT WHICH CONTAINS THE V OR = SPECIFICATIONS,                       FCC2202        3     A     
 HISTORY            THE VARIABLES IN THE IOLIST WHICH CORRESPOND TO                        FCC2202        4     A     
 HISTORY            THE V AND = ARE REFERENCES.  DURING OPTIMIZATION,                      FCC2202        5     A     
 HISTORY            THE OPT=2 COMPILER ASSUMES THAT ALL VARIABLES                          FCC2202        6     A     
 HISTORY            IN THE IOLIST CORRESPOND TO VARIABLE DEFINITIONS.                      FCC2202        7     A     
 HISTORY            THIS SETS THE STAGE FOR UNWANTED OPTIMIZATIONS AND                     FCC2202        8     A     
 HISTORY            THE SUBSEQUENT FAILURE OF THE READ OR DECODE STATEMENT.                FCC2202        9     A     
 HISTORY                                                                                   FCC2202       10     A     
 HISTORY            THE SOLUTION IS AS FOLLOWS.  EACH FORMAT WHICH                         FCC2202       11     A     
 HISTORY            CONTAINS THE V SPECIFICATION OR = SPECIFICATION, WILL BE               FCC2202       12     A     
 HISTORY            SO IDENTIFIED IN ITS SYMBOL TABLE ENTRY.                               FCC2202       13     A     
 HISTORY            THE IOLIST HEADER IN THE RLIST WILL BE MODIFIED                        FCC2202       14     A     
 HISTORY            TO CONTAIN THE FORMAT SYMBOL TABLE ORDINAL IF ANY.                     FCC2202       15     A     
 HISTORY            WHEN THE RLIST IS PROCESSED IN PRE,  ALL VARIABLES IN                  FCC2202       16     A     
 HISTORY            THE IOLIST OF A READ OR DECODE WILL BE TREATED                         FCC2202       17     A     
 HISTORY            AS REFERENCES,  IF THE ASSOCIATED FORMAT CONTAINS V OR =.              FCC2202       18     A     
 HISTORY                                                                                   FCC2202       19     A     
 HISTORY            THIS SOLUTION SACRIFICES SOME LEGITIMATE OPTIMIZATION                  FCC2202       20     A     
 HISTORY            BUT SOLVES THE PROBLEM.                                                FCC2202       21     A     
 HISTORY            SOLUTION ALSO APPLIES AGAINST WHEN A READ OR DECODE                    FCC2202       22     A     
 HISTORY            STATEMENT REFERENCES A VARIABLE FORMAT.                                FCC2202       23     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  72    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            TMH    09/14/79                                                        FCC2202       24     A     
 HISTORY                                                                                   FCC2202       25     A     
 HISTORY   FCC2239  REFMAP                                                                 FCC2239        1     A     
 HISTORY            WHEN R=3 IS SPECIFIED AND THERE IS NOT ENOUGH                          FCC2239        2     A     
 HISTORY            FIELD LENGTH TO BUILD A COMPLETE REFERENCE TABLE                       FCC2239        3     A     
 HISTORY            THE COMPILER READS IN THE REMAINDER OF THE                             FCC2239        4     A     
 HISTORY            REFERENCE BLOCK FROM THE FILE FTNRMAP (ZZZZZRM)                        FCC2239        5     A     
 HISTORY            IN ORDER TO CALCULATE THE SPACE REQUIRED.                              FCC2239        6     A     
 HISTORY            THE REFERENCES BLOCK IS TERMINATED BY ONE OR                           FCC2239        7     A     
 HISTORY            MORE ZERO WORDS.  THE COMPILER READS IN THE FILE                       FCC2239        8     A     
 HISTORY            ONE PRU AT A TIME EXAMINING THE LAST WORD                              FCC2239        9     A     
 HISTORY            FOR A ZERO.  UNFORTUNATELY,  THE FILE CONTAINS                         FCC2239       10     A     
 HISTORY            LEGITIMATE ZERO WORDS AND THE SEARCH FOR                               FCC2239       11     A     
 HISTORY            THE END OF THE REFERENCES BLOCK MAY STOP                               FCC2239       12     A     
 HISTORY            PREMATURELY.  WHEN THE CROSS REFERENCE PROCESSOR                       FCC2239       13     A     
 HISTORY            RESUMES PROCESSING THE FTNRMAP FILE FOR THE                            FCC2239       14     A     
 HISTORY            COMMON BLOCKS SECTION, IT IS POSITIONED AT                             FCC2239       15     A     
 HISTORY            THE WRONG PLACE AND BAD THINGS HAPPEN.                                 FCC2239       16     A     
 HISTORY            THE FIX IS TO SEARCH FOR AN END OF LINE IN THE                         FCC2239       17     A     
 HISTORY            SECOND LAST WORD OF THE PRU AS WELL AS A FULL                          FCC2239       18     A     
 HISTORY            WORD OF ZEROES IN THE LAST WORD OF THE PRU.                            FCC2239       19     A     
 HISTORY            TMH    11/12/79    APPLIES AGAINST FTN                                 FCC2239       20     A     
 HISTORY                                                                                   FCC2239       21     A     
 HISTORY   FCC2246  PH1CTL,FTNMSG,TSTEXT,ERRORS,HEADER                                     FCC2246        1     A     
 HISTORY            CORRECTIVE CODE REDUCES TO 49 THE NUMBER OF FILES THAT                 FCC2246        2     A     
 HISTORY            MAY BE SPECIFIED ON A FORTRAN PROGRAM CARD.                            FCC2246        3     A     
 HISTORY            RLD    10/26/79       APPLIES TO FTN 4.8, TS AND OPT                   FCC2246        4     A     
 HISTORY                                                                                   FCC2246        5     A     
 HISTORY   FCC2253  FTN/CCERR                                                              FCC2253        1     A     
 HISTORY            FORTRAN COMPILER DIAGNOSED INFORMATIVE CONTROL CARD ERRORS AS          FCC2253        2     A     
 HISTORY            FATAL ERRORS.  IN TURN, IT FORCED THE OPERATING SYSTEM TO SKIP         FCC2253        3     A     
 HISTORY            TO NEXT EXIT CARD. THE PROBLEM IS CAUSED BY FIX OF PSR FCC2104         FCC2253        4     A     
 HISTORY            BY DELETED SOME PORTION OF FCC2104, THE PROBLEM DISAPPEARED.           FCC2253        5     A     
 HISTORY            KKN    11/21/79    APPLIED AGAINST FTN,TS                              FCC2253        6     A     
 HISTORY                                                                                   FCC2253        7     A     
 HISTORY   FCC2259  END                                                                    FCC2259        1     A     
 HISTORY            FTN,TS,R=0 CAUSES A GARBAGE WORD TO APPEAR IN THE LGO FILE.            FCC2259        2     A     
 HISTORY            THE PROBLEM OCCURS WHEN THE END PROCESSOR ABSENT                       FCC2259        3     A     
 HISTORY            MINDEDLY STORES THE PROGRAM LENGTH INTO LPS.PL IN THE                  FCC2259        4     A     
 HISTORY            ROUTINE MAP EVEN THOUGH THE ROUTINE MAP HAS BEEN OVERLAYED             FCC2259        5     A     
 HISTORY            BY THE LONG FILE.                                                      FCC2259        6     A     
 HISTORY            THE FIX IS TO RECOGNIZE R=0 AND SKIP THE DESTRUCTIVE STORE             FCC2259        7     A     
 HISTORY            THE SAME PROBLEM IS FIXED BY FCC2069A FOR L=0                          FCC2259        8     A     
 HISTORY            TMH    12/04/79                                                        FCC2259        9     A     
 HISTORY                                                                                   FCC2259       10     A     
 HISTORY   FCC2272  MAIN/(CNT,BUL)                                                         FCC2272        1     A     
 HISTORY            FTN,TS COMPILER GIVES CPU ERROR EXIT WHEN COMPILING A PROGRAM          FCC2272        2     A     
 HISTORY            WITH STATEMENTS THAT GO BEYOND COLUMN 72 UNDER SEQ INPUT MODE.         FCC2272        3     A     
 HISTORY            THE ROOT OF THE PROBLEM IS THAT NOT ENOUGH ROOM IS ALLOCATED           FCC2272        4     A     
 HISTORY            FOR STRING-BUFFER WHEN A STATEMENT IS LONGER THAN 66 CHARACTERS        FCC2272        5     A     
 HISTORY            WHEN THAT HAPPENED, PORTION OF THE STRING-BUFFER IS CLOBBERED.         FCC2272        6     A     
 HISTORY            THE SOLUTION TO THE PROBLEM IS TO INCREASE STORAGE SPACE TO            FCC2272        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  73    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            74 CHARACTERS INSTEAD 68 OF CHARACTERS.                                FCC2272        8     A     
 HISTORY            KKN    12/14/79    APPLIES AGAINST FTN,TS                              FCC2272        9     A     
 HISTORY                                                                                   FCC2272       10     A     
 HISTORY   FCC2277  GPO/MII. AVOID MOVING INVARIANT INDEXED LOAD OUT OF                    FCC2277        1     A     
 HISTORY            LOOP IF PROTECTED BY CONDITIONAL BRANCH, UNLESS OPT=3.                 FCC2277        2     A     
 HISTORY            MAH    01-08-80    APPLIES TO CCG .                                    FCC2277        3     A     
 HISTORY                                                                                   FCC2277        4     A     
 HISTORY   FCC2282  REG/CWI.  AVOID RECURSIVE CLI CALL (TIME LIMIT IN REG).                FCC2282        1     A     
 HISTORY            MAH    1/25/80     APPLIES TO FTN 4, TS.                               FCC2282        2     A     
 HISTORY                                                                                   FCC2282        3     A     
 HISTORY   FCC2285  LISTIO/IOL.C                                                           FCC2285        1     A     
 HISTORY            FTN OPT COMPILER FAILS TO DIAGNOSE ILLEGAL PARENTHESIS                 FCC2285        2     A     
 HISTORY            WITHIN IMPLIED DO SPECIFICATION.  FTN TS COMPILER CATCHES              FCC2285        3     A     
 HISTORY            THE ERROR.  THE CORRECTION CODE WILL FIX THE PROBLEM.                  FCC2285        4     A     
 HISTORY            MESSAGE 418 WILL BE CORRECTED.                                         FCC2285        5     A     
 HISTORY            KKN    2/28/80     APPLIED AGAINST FTN OPT                             FCC2285        6     A     
 HISTORY                                                                                   FCC2285        7     A     
 HISTORY   FCC2288  MCG/UJR.  CONFLICT FOUND IN REGISTER USAGE OF X5.  AT URJ3 IF          FCC2288        1     A     
 HISTORY            THE TOP BIT OF X5 IS 0 THEN A SUTIABLE RESULT REGISTER HAS             FCC2288        2     A     
 HISTORY            BEEN FOUND.  OTHERWISE, EITHER X6 OR X7 MUST BE STORED AND UJR         FCC2288        3     A     
 HISTORY            TRIES TO FIND A SUTIABLE REGISTER.  THE INSTRUCTIONS REMOVED           FCC2288        4     A     
 HISTORY            FROM THIS CORRECTIVE CODE DESTROYED THE CONTENTS OF X5 BEFORE          FCC2288        5     A     
 HISTORY            THE CHECK COULD BE MADE.                                               FCC2288        6     A     
 HISTORY            SPS    80/03/12    APPLIES TO FTN 4.8, OPT.                            FCC2288        7     A     
 HISTORY                                                                                   FCC2288        8     A     
 HISTORY   FCC2291  PAR,DOPROC,FTNMSG                                                      FCC2291        1     A     
 HISTORY            DO SN IV=M1,M2,M3                                                      FCC2291        2     A     
 HISTORY            CHANGE TS AND OPT COMPILERS TO DIAGNOSE CONSTANT                       FCC2291        3     A     
 HISTORY            VALUES OF M1, M2, OR M3 WHICH EXCEED 131,070.                          FCC2291        4     A     
 HISTORY            BOTH COMPILERS GENERATE BAD CODE WHEN THE OLD                          FCC2291        5     A     
 HISTORY            LIMIT 131,071 IS USED.  NO ATTEMPT IS MADE TO                          FCC2291        6     A     
 HISTORY            DIAGNOSE THE UNPREDICTABLE RESULTS WHICH WILL                          FCC2291        7     A     
 HISTORY            OCCUR WHENEVER M1+M3 OR M2+M3 EXCEEDS                                  FCC2291        8     A     
 HISTORY            131,070 EVEN WHEN THE VALUES OF M1,M2,AND M3                           FCC2291        9     A     
 HISTORY            ARE KNOWN AT COMPILE TIME.                                             FCC2291       10     A     
 HISTORY            TMH    04/25/80    APPLIES TO FTN,OPT AND FTN,TS                       FCC2291       11     A     
 HISTORY                                                                                   FCC2291       12     A     
 HISTORY   FCC2305  FTNTEXT,ARITH                                                          FCC2305        1     A     
 HISTORY            CALL JOE (X) $ CALL JOE                GETS DIAGNOSED                  FCC2305        2     A     
 HISTORY            CALL JOE     $ CALL JOE (X)            DOES NOT                        FCC2305        3     A     
 HISTORY            THE PROBLEM OCCURS BECAUSE ARITH INTERPRETS A ZERO                     FCC2305        4     A     
 HISTORY            IN THE FARG FIELD OF WORD B OF THE SYMBOL TABLE                        FCC2305        5     A     
 HISTORY            TO MEAN NO ARGUMENTS AND AT THE SAME TIME TO INDICATE                  FCC2305        6     A     
 HISTORY            THE FIRST CALL TO THE SUBROUTINE.   THE FIX IS TO USE A                FCC2305        7     A     
 HISTORY            SEPARATE BIT (P.FCALL) IN WORD B TO INDICATE WHEN TWO                  FCC2305        8     A     
 HISTORY            CALLS HAVE BEEN ENCOUNTERED SO WE CAN COMPARE THE NUMBER OF ARGUMENTS  FCC2305        9     A     
 HISTORY            RLD    05/15/80                                                        FCC2305       10     A     
 HISTORY            TMH    05/15/80    APPLIES TO FTN,OPT                                  FCC2305       11     A     
 HISTORY                                                                                   FCC2305       12     A     
 HISTORY   FCC2306  PH1CTL                                                                 FCC2306        1     A     
 HISTORY            PROGRAM LONGNAME                                                       FCC2306        2     A     
 HISTORY            IMPLICIT ETC.                                                          FCC2306        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  74    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            CAUSES DECLARATIVE OUT OF SEQUENCE MESSAGE EVEN                        FCC2306        4     A     
 HISTORY            AFTER CORRECTING LONGNAME TO START.                                    FCC2306        5     A     
 HISTORY            SCANNER TYPES THE PROGRAM STATEMENT 22 INSTEAD OF 0 AND                FCC2306        6     A     
 HISTORY            THE RELATIONSHIP BETWEEN THE IMPLICIT STATEMENT AND THE                FCC2306        7     A     
 HISTORY            PROGRAM STATEMENT IS LOST.   THE FIX IS TO RETYPE THE PROGRAM          FCC2306        8     A     
 HISTORY            STATEMENT TO 0.                                                        FCC2306        9     A     
 HISTORY            TMH    04/11/80    APPLIES TO FTN,OPT                                  FCC2306       10     A     
 HISTORY                                                                                   FCC2306       11     A     
 HISTORY   FCC2313  REFMAP                                                                 FCC2313        1     A     
 HISTORY            OPT COMPILER FAILS TO HONOR THE A PARAMETER                            FCC2313        2     A     
 HISTORY            WHEN CM EXCEEDS 131K                                                   FCC2313        3     A     
 HISTORY            TMH    05/01/80    APPLIES TO FTN,OPT                                  FCC2313        4     A     
 HISTORY                                                                                   FCC2313        5     A     
 HISTORY   FCC2319  FAX                                                                    FCC2319        1     A     
 HISTORY            FAX FAILS TO COMPILE NAME MACRO PROPERLY                               FCC2319        2     A     
 HISTORY            NMLREF IN FAX EXECUTES THE GCH MACRO WITHOUT EXECUTING THE CWD         FCC2319        3     A     
 HISTORY            MACRO AND THEN CALLS CONVERT.  THIS SEQUENCE FAILS WHEN A WORD         FCC2319        4     A     
 HISTORY            BOUNDARY OCCURS AFTER THE FIRST CHARACTER OF THE STRING TO BE          FCC2319        5     A     
 HISTORY            CONVERTED.                                                             FCC2319        6     A     
 HISTORY            THE FIX IS TO EXECUTE CWD BEFORE CALLING CONVERT                       FCC2319        7     A     
 HISTORY            TMH    05/16/80    APPLIES TO FTN,OPT                                  FCC2319        8     A     
 HISTORY                                                                                   FCC2319        9     A     
 HISTORY   *L538*    ************************************************                      *L538*         1     A     
 HISTORY   FCC*81   FTN/FTNRES                                                             FCC*81         1     A     
 HISTORY            UPDATE COPYRIGHT INFORMATION FOR 1981                                  FCC*81         2     A     
 HISTORY            SSK    09/17/80    APPLIED AGAINST FTN 4.8                             FCC*81         3     A     
 HISTORY                                                                                   FCC*81         4     A     
 HISTORY   FCCA540  IO/PTN                                                                 FCCA540        1     A     
 HISTORY            THE STATEMENT PRINT K(1) CAUSES THE TS COMPILER TO SKIP                FCCA540        2     A     
 HISTORY            PAST THE EOS IN THE STRING BUFFER AND GENERATE FATAL                   FCCA540        3     A     
 HISTORY            DIAGNOSTICS.  THE ROUTINE PTN IS LOOKING IN THE WRONG                  FCCA540        4     A     
 HISTORY            PLACE (B4 IS ONE TOO BIG) FOR A COMMA FOLLOWING THE                    FCCA540        5     A     
 HISTORY            PRINT K(1).  IN THE FAILING TEST, THE CHARACTER IN THE SB              FCCA540        6     A     
 HISTORY            IS K WHICH HAS THE SAME OCTAL REPRESENTATION AS COMMA, B4 IS           FCCA540        7     A     
 HISTORY            ADVANCED, AND THE EOS IS MISSED.                                       FCCA540        8     A     
 HISTORY            THE FIX IS TO AVOID TESTING FOR THE COMMA WHEN B4                      FCCA540        9     A     
 HISTORY            POINTS TO THE EOS.                                                     FCCA540       10     A     
 HISTORY            TMH    08/12/80    APPLIES TO FTN,TS                                   FCCA540       11     A     
 HISTORY                                                                                   FCCA540       12     A     
 HISTORY   FCCA553  REFMAP, OPTIONS (TSTEXT,FTNMAC,FTNTEXT)                                FCCA553        1     A     
 HISTORY            THE VALUE OF THE LCM MACRO SHOULD BE LCM WHEN                          FCCA553        2     A     
 HISTORY            THE IPTEXT SYMBOL HF.L = 1 AND ECS WHEN HF.L = 0 AND SHOULD            FCCA553        3     A     
 HISTORY            NOT DEPEND ON .CPU                                                     FCCA553        4     A     
 HISTORY            TMH    08/07/80    APPLIES TO FTN,OPT                                  FCCA553        5     A     
 HISTORY                                                                                   FCCA553        6     A     
 HISTORY   FCCA556  ERPRO                                                                  FCCA556        1     A     
 HISTORY            OPT=2 INCORRECTLY REMOVES CODE FROM LOOPS CONTAINING READ OR           FCCA556        2     A     
 HISTORY            DECODE STATEMENTS WHOSE FORMATS CONTAIN THE O SPECIFICATION.           FCCA556        3     A     
 HISTORY            THIS IS A REGRESSION CAUSED BY FCC2202.                                FCCA556        4     A     
 HISTORY            TMH    12/18/80    APPLIES TO FTN,OPT=2                                FCCA556        5     A     
 HISTORY                                                                                   FCCA556        6     A     
 HISTORY   FCCA557  ALLOC,HEADER                                                           FCCA557        1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  75    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            FTN,TS,R=3,OL SOMETIMES PRODUCES A BINARY WITH AN INVALID              FCCA557        2     A     
 HISTORY            TRANSFER ADDRESS BECAUSE THE OBJECT TIME REPRIEVE CODE IS              FCCA557        3     A     
 HISTORY            MISSING.  SOR IN HEADER FAILS TO WRITE THE OTR CODE TO                 FCCA557        4     A     
 HISTORY            DISK WHEN THE LONG FILE IS INITIALLY ASSIGNED TO DISK.                 FCCA557        5     A     
 HISTORY            LOSS OF THESE TWO INSTRUCTIONS CAUSES THE TRANSFER ADDRESS             FCCA557        6     A     
 HISTORY            TO BE ONE WORD TO LARGE.  THIS CAUSES PROGRAM INITIALIZATION           FCCA557        7     A     
 HISTORY            TO BE SKIPPED AT EXECUTION TIME.  THE FIX IS TO CORRECT AN             FCCA557        8     A     
 HISTORY            INVALID TEST IN ALLOC USED TO DETERMINE TT.LF SHOULD REVERT TO         FCCA557        9     A     
 HISTORY            DISK.  ALSO, SOR WILL WRITE THE OTR INSTRUCTIONS TO DISK               FCCA557       10     A     
 HISTORY            IF NECESSARY.                                                          FCCA557       11     A     
 HISTORY            TMH    10/28/80    APPLIES TO FTN,TS                                   FCCA557       12     A     
 HISTORY                                                                                   FCCA557       13     A     
 HISTORY   FCC2125  FTN,FTNRES,FTN10,FTN20                                                 FCC2125        1     A     
 HISTORY            THE CODE FOR THIS IDENT MODIFIES FTN SO THAT CONTINUATION              FCC2125        2     A     
 HISTORY            CONTROL CARDS MAY BE SPECIFIED WITH A NEW CONTROL CARD                 FCC2125        3     A     
 HISTORY            PARAMETER, WHICH IS -CC-. HOWEVER, SINCE THERE WAS NOT                 FCC2125        4     A     
 HISTORY            ENOUGH ROOM IN FTN RESIDENT TO ACCOMMODATE THE ADDITIONAL              FCC2125        5     A     
 HISTORY            CODE, THE OVERLAY DIRECTIVES (FOR FTN10 AND FTN20) WERE                FCC2125        6     A     
 HISTORY            MODIFIED TO DIRECT THE LOADER TO LOAD THE OVERLAYS AT                  FCC2125        7     A     
 HISTORY            2777B (777B ON SCOPE 2) EVEN THOUGH THE INITIALIZATION CODE            FCC2125        8     A     
 HISTORY            GOES BEYOND THAT.                                                      FCC2125        9     A     
 HISTORY            ONCE THAT WORKED, IT WAS REALIZED THAT THE CONTRLC MACRO               FCC2125       10     A     
 HISTORY            WIPED OUT RA+2, WHICH IS WHERE THE FILE VECTOR TABLE HAD               FCC2125       11     A     
 HISTORY            BEEN STORED.  THE FILE VECTOR TABLE IS NOW MOVED TO RA+2               FCC2125       12     A     
 HISTORY            IN ROUTINE MIB (AFTER THE CONTROL CARD CRACKER) AND NOT                FCC2125       13     A     
 HISTORY            ROUTINE MIA WHICH COMES BEFORE THE CONTROL CARD CRACKER.               FCC2125       14     A     
 HISTORY            RLD.   06/12/80.   FTN.                                                FCC2125       15     A     
 HISTORY                                                                                   FCC2125       16     A     
 HISTORY   FCC2307  FTNMSG,ARITH                                                           FCC2307        1     A     
 HISTORY            FTN,OPT COMPILER FAILS TO GIVE A NON-ANSI DIAGNOSTIC WHEN              FCC2307        2     A     
 HISTORY            THE SAME NAME IS USED AS A FUNCTION AND AS A SUBROUTINE                FCC2307        3     A     
 HISTORY            TMH    07/14/80    APPLIES TO OPT AND TS                               FCC2307        4     A     
 HISTORY                                                                                   FCC2307        5     A     
 HISTORY   FCC2318  NUM                                                                    FCC2318        1     A     
 HISTORY            INVALID DO STATEMENTS CAUSE MODE ERROR IN FTN,TS COMPILER              FCC2318        2     A     
 HISTORY            WHEN RDE (IN NUM) REMOVES A NONEXISTENT DO TABLE ENTRY.                FCC2318        3     A     
 HISTORY            RLD.   09/09/80.   FTN,TS.                                             FCC2318        4     A     
 HISTORY                                                                                   FCC2318        5     A     
 HISTORY   FCC2321  DOPROC                                                                 FCC2321        1     A     
 HISTORY            DO SN IV=M1,M2,M3                                                      FCC2321        2     A     
 HISTORY            CHANGE FTN,OPT COMPILER TO ACCEPT ARRAY NAMES FOR M1, M2,              FCC2321        3     A     
 HISTORY            AND M3 AND PRODUCE AN ANSI DIAGONOSTIC AS IN FTN,TS                    FCC2321        4     A     
 HISTORY            TMH    08/19/80    APPLIES TO FTN,OPT                                  FCC2321        5     A     
 HISTORY                                                                                   FCC2321        6     A     
 HISTORY   FCC2323  DPCLOSE                                                                FCC2323        1     A     
 HISTORY            THE FAILING PROGRAM CONTAINS AN ARRAY DEFINED IN COMMON                FCC2323        2     A     
 HISTORY            WITH VARIABLE DIMENSIONS (THIS IS AN ERROR) AND THE ARRAY              FCC2323        3     A     
 HISTORY            IS MENTIONED IN AN EQUIVALENCE STATEMENT.   THE COMPILER               FCC2323        4     A     
 HISTORY            MODES OUT WHEN IT USES A INVALID POINTER INTO THE DIMTAB               FCC2323        5     A     
 HISTORY            DURING EQUIVALENCE PROCESSING                                          FCC2323        6     A     
 HISTORY            RLD     07/09/80     APPLIES TO FTN,OPT                                FCC2323        7     A     
 HISTORY                                                                                   FCC2323        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  76    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   FCC2330  IO                                                                     FCC2330        1     A     
 HISTORY            FTN,TS LIST DIRECTED PRINT STATEMENTS BEHAVE LIKE WRITE                FCC2330        2     A     
 HISTORY            STATEMENTS WHEN THE UNIT DESIGNATOR IS A VARIABLE AND THE              FCC2330        3     A     
 HISTORY            IOLIST CONTAINS HOLLERITH CONSTANTS.  THE PRINTED CONSTANTS            FCC2330        4     A     
 HISTORY            SHOULD NOT BE ENCLOSED IN QUOTES.                                      FCC2330        5     A     
 HISTORY            TMH    08/11/80    APPLIES TO FTN,TS                                   FCC2330        6     A     
 HISTORY                                                                                   FCC2330        7     A     
 HISTORY   FCC2334  GRA/MFA.  FCC2135 WAS INTRODUCED TO CORRECT A PROBLEM                  FCC2334        1     A     
 HISTORY            WITH LOOP TEST MECHANISMS.  THE OPTIMISER IN SEEKING TO REDUCE         FCC2334        2     A     
 HISTORY            THE NUMBER OF REGISTERS IT ASSIGNS ACROSS A LOOP SEEKS TO REPLACE      FCC2334        3     A     
 HISTORY            THE LOOP VARIABLE WITH A VARIABLE ASSIGNED TO A B REGISTER             FCC2334        4     A     
 HISTORY            WHICH INDEXES AN ARRAY IN THE LOOP TEST MECHANISM.  HOWEVER            FCC2334        5     A     
 HISTORY            TROUBLE WITH B REGISTER OVERFLOW OCCURRED WHEN THE VARIABLE INDEXED    FCC2334        6     A     
 HISTORY            LCM, FORMAL PARAMETERS OR BLANK COMMON AND THE INCREMENT VALUE OF      FCC2334        7     A     
 HISTORY            THE VARIANT WAS SUFFICIENTLY LARGE.  FCC2135 INTRODUCED CODE TO        FCC2334        8     A     
 HISTORY            CHOOSE AN ALTERNATIVE MECHANISM IF ANY OF THE ABOVE CONDITIONS         FCC2334        9     A     
 HISTORY            WERE MET.  HOWEVER PROBLEMS ALSO OCCURRED WHEN THE OPTION LCM=I        FCC2334       10     A     
 HISTORY            IS CHOSEN.  IN THIS CASE THE RLIST CODE GENERATED IS SUCH THAT         FCC2334       11     A     
 HISTORY            THERE IS NO EASY WAY OF DETERMINING WHAT ARRAYS THE VARIANT IS         FCC2334       12     A     
 HISTORY            REALLY INDEXING.  CODE HAS BEEN INTRODUCED SO THAT THE VARIANT         FCC2334       13     A     
 HISTORY            I WILL NOT BE USED IN LOOP TEST MECHANISMS IF THERE IS A RCT           FCC2334       14     A     
 HISTORY            ENTRY WHERE RF=I AND IH=0.                                             FCC2334       15     A     
 HISTORY            SPS    8-28-80     APPLIES TO FTN4.8                                   FCC2334       16     A     
 HISTORY                                                                                   FCC2334       17     A     
 HISTORY   FCC2345  FTNMAC                                                                 FCC2345        1     A     
 HISTORY            FTNMAC AND FAX ASSEMBLE THE IOM MACRO DIFFERENTLY                      FCC2345        2     A     
 HISTORY            DECODE (20,1,A(4)) GENERATES IOM ,0B,,,,1,3 WHERE THE                  FCC2345        3     A     
 HISTORY            ARRAY A IS A FORMAL PARAMETER.  THE FTNMAC VERSION OF THE              FCC2345        4     A     
 HISTORY            IOM MACRO SPECIAL CASES B57, FAX DOES NOT.                             FCC2345        5     A     
 HISTORY            THE FIX IS TO MAKE FTNMAC BEHAVE LIKE FAX.                             FCC2345        6     A     
 HISTORY            TMH    07/22/80    APPLIES TO TS AND OPT                               FCC2345        7     A     
 HISTORY                                                                                   FCC2345        8     A     
 HISTORY   FCC2365  GPO                                                                    FCC2365        1     A     
 HISTORY            AN INVALID STORE INTO THE ELIMINATED LABEL TABLE (ELT)                 FCC2365        2     A     
 HISTORY            DESTROYS THE FIRST ENTRY OF THE UDT TABLE AND CAUSES AN                FCC2365        3     A     
 HISTORY            EVENTUAL ERROR MODE.                                                   FCC2365        4     A     
 HISTORY                                                                                   FCC2365        5     A     
 HISTORY            CHB ASSUMED THAT TO COMBINE A HOLDING BLOCK WITH ITS SINGLE            FCC2365        6     A     
 HISTORY            PREDECESSOR, BOTH BLOCKS MUST END WITH AN UNCONDITIONAL JUMP           FCC2365        7     A     
 HISTORY            OR NEITHER ENDS WITH AN UNCONDITIONAL JUMP AND THAT BOTH DO            FCC2365        8     A     
 HISTORY            IF AND ONLY IF THE HOLDING BLOCK IS LABELED.  IN THE CASE              FCC2365        9     A     
 HISTORY            WHERE THE HOLDING BLOCK"S PREDECESSOR BOTH FALLS THROUGH               FCC2365       10     A     
 HISTORY            TO THE HB AND JUMPS TO THE HB, THIS IS NOT TRUE.  THE BLOCKS           FCC2365       11     A     
 HISTORY            DO NOT END WITH UNCONDITIONAL JUMPS BUT THE LOOPS LABEL IS             FCC2365       12     A     
 HISTORY            MOVED TO THE HB.   SINCE THE HB IS LABELED, IT CANNOT BE               FCC2365       13     A     
 HISTORY            COMBINED WITH THE SINGLE PREDECESSOR BECAUSE THE RESULTING             FCC2365       14     A     
 HISTORY            BLOCK WOULD NOT BE A BASIC BLOCK.  THE LABEL CANNOT BE REMOVED         FCC2365       15     A     
 HISTORY            BECAUSE THE JUMP MAY BE AN ASSIGNED GOTO OR RETURNS JUMP.              FCC2365       16     A     
 HISTORY                                                                                   FCC2365       17     A     
 HISTORY            THE ELT LENGTH IS SET ASSUMING THAT THE ONLY LABELS THAT               FCC2365       18     A     
 HISTORY            WOULD BE REMOVED WOULD BE FROM HB"S ASSOCIATED WITH FTH                FCC2365       19     A     
 HISTORY            LOOPS.   SO THE ELT LENGTH IS THE NUMBER OF FTH LOOPS IN THE           FCC2365       20     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  77    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            PROGRAM.  IN THE FAILING PROGRAM THERE WERE NO FTH LOOPS.              FCC2365       21     A     
 HISTORY            THE ELT WAS ALLOCATED TO CONTAIN NO ENTRIES.  CHB TRIED TO             FCC2365       22     A     
 HISTORY            COMBINE A LABELED HB THAT DID NOT END WITH AN UNCONDITIONAL            FCC2365       23     A     
 HISTORY            JUMP DUE TO THE BUG.  THINKING THAT IT WOULD REMOVE THE LABEL          FCC2365       24     A     
 HISTORY            CHB ENTERED IT INTO THE ELT, THUS CLOBBERING THE FIRST                 FCC2365       25     A     
 HISTORY            WORD OF THE NEXT TABLE, THE UDT.                                       FCC2365       26     A     
 HISTORY            TMH    11/20/80    APPLIES TO FTN,OPT=2                                FCC2365       27     A     
 HISTORY            RK     11/20/80    APPLIES TO FTN,OPT=2                                FCC2365       28     A     
 HISTORY                                                                                   FCC2365       29     A     
 HISTORY   FCC2381  DPCLOSE,SCANNER                                                        FCC2381        1     A     
 HISTORY            DIAGNOSTIC LINE NUMBERS ARE INCORRECT.                                 FCC2381        2     A     
 HISTORY            THIS PROBLEM WAS INTRODUCED BY FCC2241 AND FCCA539.                    FCC2381        3     A     
 HISTORY            ACCURATE LINE NUMBERS ARE NOT AVAILABLE DURING                         FCC2381        4     A     
 HISTORY            EQUIVALENCE AND COMMON PROCESSION IN DPCLOSE.  DIAGNOSTICS             FCC2381        5     A     
 HISTORY            WHICH ORIGINATE IN DPCLOSE POINT TO THE FIRST EXECUTABLE               FCC2381        6     A     
 HISTORY            STATEMENT FOLLOWING THE DECLARATIVES.  INTERVENING COMMENTS            FCC2381        7     A     
 HISTORY            MAY CAUSE THE PRINTED LINE NUMBER TO BE MUCH GREATER                   FCC2381        8     A     
 HISTORY            THAN THE ACTUAL LINE NUMBER.  THE CORRECTIVE CODE FOR                  FCC2381        9     A     
 HISTORY            FCC2381 PURGES FCC2241 AND FCCA539 AND REPLACES THE LINE               FCC2381       10     A     
 HISTORY            NUMBER FIELD IN THE DIAGNOSTICS ORIGINATING IN DPCLOSE WITH            FCC2381       11     A     
 HISTORY            THE PHRASE EQV/COMM INDICATING THAT THE ERROR OCCURRED IN              FCC2381       12     A     
 HISTORY            AN EQUIVALENCE OR COMMON STATEMENT.                                    FCC2381       13     A     
 HISTORY            TMH    11/05/80    APPLIES TO FTN,OPT                                  FCC2381       14     A     
 HISTORY                                                                                   FCC2381       15     A     
 HISTORY   *L552*    ************************************************                      *L552*         1     A     
 HISTORY   FCCA561  FTNMAC,FAX,END                                                         FCCA561        1     A     
 HISTORY            CRM FITS MUST HAVE THE LNG FIELD IN WORD 26B SET TO ONE TO             FCCA561        2     A     
 HISTORY            SIGNIFY A FTN CREATED FIT. 7RM FITS MUST HAVE THE LNG FIELD            FCCA561        3     A     
 HISTORY            IN WORD 10B SET TO ONE. THE CF FIELD IN 7RM FITS(WORD 2)               FCCA561        4     A     
 HISTORY            IS MISPOSITIONED.                                                      FCCA561        5     A     
 HISTORY            SSK    12/05/80    APPLIED AGAINST FTN4 TS,OPT                         FCCA561        6     A     
 HISTORY                                                                                   FCCA561        7     A     
 HISTORY   FCCA562  LSTPRO                                                                 FCCA562        1     A     
 HISTORY            FET POINTERS MUST FOLLOW NOS R6 VALIDATION RULES AT OPEN               FCCA562        2     A     
 HISTORY            TIME TO PREVENT BUFFER ARGUMENT ERROR ON FILE ZZZZZSY FOR PMD          FCCA562        3     A     
 HISTORY            SSK    12/04/80    APPLIED AGAINST FTN4,OPT                            FCCA562        4     A     
 HISTORY                                                                                   FCCA562        5     A     
 HISTORY   FCCA564  PH1CTL                                                                 FCCA564        1     A     
 HISTORY            THIS CODE RESERVES AN ADDITIONAL WORD AT THE END OF THE FLINK          FCCA564        2     A     
 HISTORY            APLIST SO THAT THE LIBRARY CAN APPEND AN ENTRY FOR THE FILE            FCCA564        3     A     
 HISTORY            DEBUG WHEN DEBUG ACTIVITY IS REQUESTED BY THIS OR SOME OTHER           FCCA564        4     A     
 HISTORY            SUBPROGRAM AND THE FILE DEBUG WAS NOT MENTIONED ON THE                 FCCA564        5     A     
 HISTORY            PROGRAM CARD.                                                          FCCA564        6     A     
 HISTORY            TMH    11/12/80    APPLIES TO FTN,OPT ONLY                             FCCA564        7     A     
 HISTORY                                                                                   FCCA564        8     A     
 HISTORY   FCCA573  FTN                                                                    FCCA573        1     A     
 HISTORY            DIAGNOSE NOS LFN WHICH BEGINS WITH A DIGIT                             FCCA573        2     A     
 HISTORY            TMH    03/10/81    FTN (NOS ONLY)                                      FCCA573        3     A     
 HISTORY                                                                                   FCCA573        4     A     
 HISTORY   FCCA580  CHANGE ALL FCC OPEN REFERENCES TO USE RECALL FOR NOS                   FCCA580        1     A     
 HISTORY            R6 COMPATABILITY SINCE IN/OUT ARE SET TO FIRST AT                      FCCA580        2     A     
 HISTORY            COMPLETION POSSIBLY ERADICATING A BUFFER FULL WE                       FCCA580        3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  78    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            HAVE JUST STUFFED.                                                     FCCA580        4     A     
 HISTORY            IDENT  DEPENDENCIES: FCC1797X, FEAT155H                                FCCA580        5     A     
 HISTORY            SCC    07/13/81    DBG=IDP, ALLOC, INIT, LSTPRO                        FCCA580        6     A     
 HISTORY                                                                                   FCCA580        7     A     
 HISTORY   FCC2338  ARITH                                                                  FCC2338        1     A     
 HISTORY            CP TIME LIMIT COMPILING PRINT *, FUNC(1,)                              FCC2338        2     A     
 HISTORY            FCC0787 DELETED THE CALL TO SSERR3                                     FCC2338        3     A     
 HISTORY            TMH    11/26/80    APPLIES TO FTN,OPT                                  FCC2338        4     A     
 HISTORY                                                                                   FCC2338        5     A     
 HISTORY   FCC2360  PH1CTL                                                                 FCC2360        1     A     
 HISTORY            WHEN THE A PARAMETER APPEARS ON THE CONTROL CARD                       FCC2360        2     A     
 HISTORY            ADD THE DAYFILE MESSAGE                                                FCC2360        3     A     
 HISTORY               NULL PROGRAM - HONOR THE A PARAMETER                                FCC2360        4     A     
 HISTORY            TO STRENGTHEN THE EXISTING DAYFILE MESSAGE                             FCC2360        5     A     
 HISTORY               NULL PROGRAM IGNORED AFTER ...                                      FCC2360        6     A     
 HISTORY            TMH    12/15/80    APPLIES TO FTN,OPT ONLY                             FCC2360        7     A     
 HISTORY                                                                                   FCC2360        8     A     
 HISTORY   FCC2362  DPCLOSE                                                                FCC2362        1     A     
 HISTORY            AN EQUIVALENCE STATEMENT CONTAINING CONTRADICTORY/REDUNDANT            FCC2362        2     A     
 HISTORY            EQUIVALENCE ERRORS MAY RESULT IN A NEGATIVE BIAS IN SCAN4              FCC2362        3     A     
 HISTORY            OF DPCLOSE AND RESULT IN OTHER ENTRIES IN O.EQV TABLE BEING            FCC2362        4     A     
 HISTORY            WIPED OUT. IN SCAN5 OF DPCLOSE THE EOT INDEX MAY BE GARBAGE            FCC2362        5     A     
 HISTORY            AND RESULT IN A MODE OUT.                                              FCC2362        6     A     
 HISTORY            SSK    02/02/81    APPLIED AGAINST FTN OPT                             FCC2362        7     A     
 HISTORY                                                                                   FCC2362        8     A     
 HISTORY   FCC2391  FTN                                                                    FCC2391        1     A     
 HISTORY            WITH AN OPT ONLY COMPILER , THE USE OF CONTROL CARD PARAMETERS         FCC2391        2     A     
 HISTORY            PW OR DB RESULTS IN A MISSING OVERLAY MESSAGE. CONDITIONAL             FCC2391        3     A     
 HISTORY            CODE WILL BE USED TO TURN THESE PARAMETERS( PW , DB ) OFF              FCC2391        4     A     
 HISTORY            WITH AN OPT ONLY INSTALLATION.                                         FCC2391        5     A     
 HISTORY            SSK    12/11/80    APPLIED AGAINST FTN4 OPT                            FCC2391        6     A     
 HISTORY                                                                                   FCC2391        7     A     
 HISTORY   FCC2392  FTNTEXT,SQZ/STS,GPO                                                    FCC2392        1     A     
 HISTORY            THE CA FIELD IN THE TEMPORARY EQUIVALENCE TABLE (TET)                  FCC2392        2     A     
 HISTORY            IS USED FOR TWO PURPOSES. THE OPT=2 COMPILER GENERATES                 FCC2392        3     A     
 HISTORY            LOADS OF THE WRONG TEMP BECAUSE SQZ DESTROYS THE TET INDEX             FCC2392        4     A     
 HISTORY            IN THE CA FIELD WHEN IT ATTEMPTS TO EQUIVALENCE TWO ASSIGNED           FCC2392        5     A     
 HISTORY            TEMPS. THE FIX IS TO PREVENT THE EQUIVALENCE UNTIL AFTER               FCC2392        6     A     
 HISTORY            THE TEMP LOAD HAS BEEN GENERATED AND THE CA FIELD IS FREE              FCC2392        7     A     
 HISTORY            TO CONTAIN A TEMP NUMBER.                                              FCC2392        8     A     
 HISTORY            TMH    01/23/81    APPLIES TO FTN,OPT=2                                FCC2392        9     A     
 HISTORY                                                                                   FCC2392       10     A     
 HISTORY   FCC2419  DATA                                                                   FCC2419        1     A     
 HISTORY            AVOID THE SPURIOUS DIAGNOSTIC                                          FCC2419        2     A     
 HISTORY            VARIABLE NOT IN LABEL COMMON                                           FCC2419        3     A     
 HISTORY            REGRESSION CAUSED BY FCCA549                                           FCC2419        4     A     
 HISTORY            TMH    03/17/81    APPLIES TO FTN,OPT                                  FCC2419        5     A     
 HISTORY                                                                                   FCC2419        6     A     
 HISTORY   *L564*    ************************************************                      *L564*         1     A     
 HISTORY   FCC*82   FTN                                                                    FCC*82         1     A     
 HISTORY            UPDATE COPYRIGHT INFORMATION FOR 1982                                  FCC*82         2     A     
 HISTORY            TMH    09/11/81                                                        FCC*82         3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  79    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FCC*82         4     A     
 HISTORY   FCCA577  FSCALE.  CORRECT THE OVERFLOW TEST TO BE ABLE TO DIAGNOSE              FCCA577        1     A     
 HISTORY            INVALID FLOATING CONSTANTS AT COMPILE TIME.                            FCCA577        2     A     
 HISTORY            MRR    81/05/06    APPLIES TO FTN 4.8 .                                FCCA577        3     A     
 HISTORY                                                                                   FCCA577        4     A     
 HISTORY  FCC5A588  GPO/GPO.  CORRECT TABLE POINTER ACCESS IN GPO. MAKE                    FCCA588        1     A     
 HISTORY            ACCESS INDIRECT.  PREVENTS INADVERTENT FREE SPACE ALLOCATION           FCCA588        2     A     
 HISTORY            IN BLK BY ALLOC.                                                       FCCA588        3     A     
 HISTORY            SIJ    81/11/17    APPLIES TO CCG, OPT=2.                              FCCA588        4     A     
 HISTORY                                                                                   FCCA588        5     A     
 HISTORY   FCCA589  SEPARATE WEORS OUT OF DECKS AS PER INTEGRATION RQMTS.                  FCCA589        1     A     
 HISTORY            ALSO FORCES USE OF COMPASS OLDPL AS SECONDARY PL IN UPDATE             FCCA589        2     A     
 HISTORY            ELIMINATING THE EXTCOMC DEF.  ALSO INSTALLS SKELETON TO                FCCA589        3     A     
 HISTORY            CLEAN UP THE BUILD.                                                    FCCA589        4     A     
 HISTORY            SCC    10/19/81    TSTEXT, FTNMAC, FTNTEXT, FTN, LIST, FTN20,          FCCA589        5     A     
 HISTORY                               DMPELST,MACROX, SAVREGS, FORMDBG, WEOR1*-8*         FCCA589        6     A     
 HISTORY                               FTN00, FTN10,FTN20, FTN23, FTN21, FTN25,            FCCA589        7     A     
 HISTORY                               FTN22, FTN24, FRAME, FRAMDBUG, FWACOM,              FCCA589        8     A     
 HISTORY                               FTNDBG                                              FCCA589        9     A     
 HISTORY                                                                                   FCCA589       10     A     
 HISTORY   FCCA590  INHIBIT FTN TS FRAME GENERATION FOR NO TS(TSOFF DEFINED)               FCCA590        1     A     
 HISTORY            BUILDS. THIS IS TO BE USED WITH NOS/NOSBE/SC2 INSTALL.                 FCCA590        2     A     
 HISTORY            DECK MODIFICATIONS AT R2A.                                             FCCA590        3     A     
 HISTORY            IDENT DEPENDENCIES: FCCA589                                            FCCA590        4     A     
 HISTORY            SCC    11/19/81    FRAME                                               FCCA590        5     A     
 HISTORY                                                                                   FCCA590        6     A     
 HISTORY   FCC2436  FTN                                                                    FCC2436        1     A     
 HISTORY            THE RETURN FROM CONTROL CARD DIAGNOSTIC E.TSMD IS INCORRECT            FCC2436        2     A     
 HISTORY            FTN,TS=0 SHOULD BE TREATED AS FTN,TS WHEN CONFIGURATION IS             FCC2436        3     A     
 HISTORY            TS ONLY (.MODES EQU 2)                                                 FCC2436        4     A     
 HISTORY            TMH    04/29/81    APPLIES TO FTN                                      FCC2436        5     A     
 HISTORY                                                                                   FCC2436        6     A     
 HISTORY   FCC2450  LISTIO                                                                 FCC2450        1     A     
 HISTORY            FCC2202 CAUSES OPT=2 TO INCORRECTLY OPTIMIZE LOOPS CONTAINING          FCC2450        2     A     
 HISTORY            VARIABLE FORMAT READS.                                                 FCC2450        3     A     
 HISTORY            TMH    06/10/81    APPLIES TO FTN,OPT=2                                FCC2450        4     A     
 HISTORY                                                                                   FCC2450        5     A     
 HISTORY   FCC2472  GEN/SLD                                                                FCC2472        1     A     
 HISTORY            USE COUNT FIELD OVERFLOWS. CORRECTIVE CODE ALLOWS - NOT LAST           FCC2472        2     A     
 HISTORY            COUNT FIELD - TO INCREASE FROM 255 TO 511.                             FCC2472        3     A     
 HISTORY            SSK    10/01/81    APPLIED AGAINST FTN4 TS                             FCC2472        4     A     
 HISTORY                                                                                   FCC2472        5     A     
 HISTORY   *L577*    ************************************************                      *L577*         1     A     
 HISTORY   FCC2448  CORRECT ERROR DIAGNOSTIC SPELLING OF *UNRECOGNIZED*.                   FCC2448        1     A     
 HISTORY            IDENT DEPENDENCY: FCC1936                                              FCC2448        2     A     
 HISTORY            SCC    03/16/82    FTNMSG                                              FCC2448        3     A     
 HISTORY                                                                                   FCC2448        4     A     
 HISTORY   *L587*    ************************************************                      *L587*         1     A     
 HISTORY   FCC2531  ELIMINATE OBJECT TIME REPRIEVE CODE INSTRUCTION                        FCC2531        1     A     
 HISTORY            SB0  B2+L.0 .                                                          FCC2531        2     A     
 HISTORY            DEPENDENCY=FEAT155G                                                    FCC2531        3     A     
 HISTORY            SSK    82/08/20    MCG                                                 FCC2531        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  80    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   FCC2531        5     A     
 HISTORY   *L601*    ************************************************                      *L601*         1     A     
 HISTORY   FCCA592  OPTIONS,TSTEXT,FTNTEXT,FTNMAC. REVISE MODEL MICRO TO ACCEPT            FCCA592        1     A     
 HISTORY            MODEL NUMBERS 865,875.                                                 FCCA592        2     A     
 HISTORY            DEPENDENCY=F2959F4                                                     FCCA592        3     A     
 HISTORY            SSK    83/04/05    OPTIONS,TSTEXT,FTNTEXT,FTNMAC                       FCCA592        4     A     
 HISTORY                                                                                   FCCA592        5     A     
 HISTORY   FCCA593  IMPLEMENT SYSTEM PAGE SIZE.  USE *GETPAGE* MACRO                       FCCA593        1     A     
 HISTORY            TO OBTAIN SYSTEM DEFAULTS FOR PS, PW, AND PD.                          FCCA593        2     A     
 HISTORY            USES COMDECK *COMCCPM* ON THE COMPASS PL.                              FCCA593        3     A     
 HISTORY            DEPENDENCY=FEAT155E,FCC1361X,FCCA422,FEAT155EA,FCCA473                 FCCA593        4     A     
 HISTORY            DEPENDENCY=FCCA410,CP139FC,FCCA534,FCC1964                             FCCA593        5     A     
 HISTORY            RETRANS=8I3                                                            FCCA593        6     A     
 HISTORY            ASD/RRR 82/07/26   OPTIONS, FTNRES,                                    FCCA593        7     A     
 HISTORY                               FTN, BATCH, LSTPRO, MIO                             FCCA593        8     A     
 HISTORY                                                                                   FCCA593        9     A     
 HISTORY   FCCA594  BATCH/IST.  PREVENT PAR/POP FROM POPPING AN ELEMENT AT                 FCCA594        1     A     
 HISTORY            ESTACK-1(PRESET TO DEBUG) , ITS CAUSING A NEGATIVE TEST                FCCA594        2     A     
 HISTORY            CASE FAILURE BY ISSUING AN EXTRA ERROR MESSAGE. PROBLEM                FCCA594        3     A     
 HISTORY            SHOULD BE FIXED IN PAR , IS GOING TO BE FIXED BY CLEARING              FCCA594        4     A     
 HISTORY            ESTACK AND OSTACK.                                                     FCCA594        5     A     
 HISTORY            SSK    83/07/25    BATCH                                               FCCA594        6     A     
 HISTORY                                                                                   FCCA594        7     A     
 HISTORY   FCC2535  MCG - ZERO THE USES COUNT FOR OMITTED SXT/XMT"S SO MCG                 FCC2535        1     A     
 HISTORY            (IN JAM MODE) DOESN'T ERRONEOUSLY STORE OUT REGISTERS.                 FCC2535        2     A     
 HISTORY            RESET N.SP AFTER AN *EOS*, *UJP*, ETC TO AVOID SPURRIOUS               FCC2535        3     A     
 HISTORY            CALLS TO JAM MODE. THIS PSR IS A COPY OF CCGA006 WITH PL/I             FCC2535        4     A     
 HISTORY            CONDITIONAL CODE LEFT OUT.                                             FCC2535        5     A     
 HISTORY            DEPENDENCY=FCC0881                                                     FCC2535        6     A     
 HISTORY            SSK    82/12/01    MCG                                                 FCC2535        7     A     
 HISTORY                                                                                   FCC2535        8     A     
 HISTORY   FCC2548  DPCLOSE/EQV. THIS SPECIAL ENHANCEMENT CODE ALLOWS MORE                 FCC2548        1     A     
 HISTORY            EQUIVALENCE STATEMENTS TO BE PROCESSED AND APPLIES ONLY                FCC2548        2     A     
 HISTORY            TO FTN4,OPT=0,1,2. THIS SPECIAL CODE DOES NOT APPLY TO                 FCC2548        3     A     
 HISTORY            FTN4,TS.                                                               FCC2548        4     A     
 HISTORY            DEPENDENCY=FCC1289AX,FCC1289X,FCC1946                                  FCC2548        5     A     
 HISTORY            SSK    83/03/07    DPCLOSE                                             FCC2548        6     A     
 HISTORY                                                                                   FCC2548        7     A     
 HISTORY   *L617*    ************************************************                      *L617*         1     A     
 HISTORY   FCCA595  FTN.  DO NOT CALL *COMCCPM* ON SCOPE2 SYSTEMS.                         FCCA595        1     A     
 HISTORY            DEPENDENCY=FCCA593                                                     FCCA595        2     A     
 HISTORY            KJM    83/12/12    FTN                                                 FCCA595        3     A     
 HISTORY                                                                                   FCCA595        4     A     
 HISTORY   FCC2563  TSTEST,FTNMAC,FTNTEXT.  REVISE MODEL MICRO TO ACCEPT MODEL             FCC2563        1     A     
 HISTORY            NUMBERS 740,750,760.                                                   FCC2563        2     A     
 HISTORY            DEPENDENCY=F2950F4,FCCA592                                             FCC2563        3     A     
 HISTORY            SSK    84/01/26    TSTEXT,FTNMAC,FTNTEXT                               FCC2563        4     A     
 HISTORY                                                                                   FCC2563        5     A     
 HISTORY   *L628*    ************************************************                      *L628*         1     A     
 HISTORY   *L642*    ************************************************                      *L642*         1     A     
 HISTORY   FCCA596  OPTIONS, FTN/MIB, GPO/PCC.  FIX PROBLEMS FOUND DURING 990              FCCA596        1     A     
 HISTORY            TESTING -                                                              FCCA596        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  81    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            - CHANGE *VALMDL* MACRO TO RECOGNIZE 990 MODEL.                        FCCA596        3     A     
 HISTORY            - FIX MODE ERROR WHICH CAN OCCUR ON DUAL-STATE SYSTEMS.                FCCA596        4     A     
 HISTORY              IDENTICAL TO THE PROBLEM FIXED IN FTN5 BY FC5A464.                   FCCA596        5     A     
 HISTORY            - VOID INSTRUCTION STACK AFTER PLUGGING RJ AT *PCC5* IN *GPO*.         FCCA596        6     A     
 HISTORY            DEPENDENCY=FCC2563                                                     FCCA596        7     A     
 HISTORY            AXM/SSK  85/03/19  OPTIONS, FTN, GPO                                   FCCA596        8     A     
 HISTORY                                                                                   FCCA596        9     A     
 HISTORY   FCCA597  MAP/WRM.  FIX CODE MODIFICATION PROBLEM FOR 990.                       FCCA597        1     A     
 HISTORY            SSK    85/06/10    MAP                                                 FCCA597        2     A     
 HISTORY                                                                                   FCCA597        3     A     
 HISTORY   *L650*    ************************************************                      *L650*         1     A     
 HISTORY   FCCA598  GEN. ADDED CODE TO CHANGE THIS SKELETON TO A JP IN CASE A              FCCA598        1     A     
 HISTORY            FUNCTION SUBPROGRAM DOES CODE MODIFICATION. THE JP IS                  FCCA598        2     A     
 HISTORY            REQUIRED BECAUSE OF THE 990 STACK LENGTH.                              FCCA598        3     A     
 HISTORY            SSK    85/08/04    GEN                                                 FCCA598        4     A     
 HISTORY                                                                                   FCCA598        5     A     
 HISTORY   *L670*    ************************************************                      *L670*         1     A     
 HISTORY   *L688*    ************************************************                      *L688*         1     A     
 HISTORY   *L716*    ************************************************                      *L716*         1     A     
 HISTORY   *L739*    ************************************************                      *L739*         1     A     
 HISTORY   FCC2567  FTNTEXT/TSTEXT/FTNMAC.  ADDED CODE TO THE MODEL MICRO TO               FCC2567        1     A     
 HISTORY            RECOGNIZE MODEL NUMBERS 994 AND 995.                                   FCC2567        2     A     
 HISTORY            DEPENDENCY=FCCA596                                                     FCC2567        3     A     
 HISTORY            SSK    89/09/22    FTNTEXT                                             FCC2567        4     A     
 HISTORY                                                                                   FCC2567        5     A     
 HISTORY   *L780*    ************************************************                      *L780*         1     A     
 HISTORY   *L797*    ************************************************                      *L797*         1     A     
 HISTORY   *L803*    ************************************************                      *L803*         1     A     
 HISTORY   *L826*    ************************************************                      *L826*         1     A     
 HISTORY   *L840*    ************************************************                      *L840*         1     A     
 HISTORY   *L847*    ************************************************                      *L847*         1     A     
 HISTORY   *L851*    ************************************************                      *L851*         1     A     
 HISTORY   *L859*    ************************************************                      *L859*         1     A     
 HISTORY   *L871*    ************************************************                      *L871*         1     A     
 HISTORY                                                                                   HISTORY        2     A     
 HISTORY   FCC1822X DPCOM/DECPRO  COMMON STATEMENT WHICH HAS NOTHING BUT                   FCC1822X       1     A     
 HISTORY            DUPLICATE NAMES IN GROUP, DOES NOT HAVE TO HAVE THE                    FCC1822X       2     A     
 HISTORY            MEMBER COUNT AND LINK FILED UPDATED IN THE COMMON                      FCC1822X       3     A     
 HISTORY            BLOCK HEADER WORD.                                                     FCC1822X       4     A     
 HISTORY            ATH    77/7/29     APPLIED AGAINST FTN 4.6/OPT                         FCC1822X       5     A     
 HISTORY                                                                                   FCC1822X       6     A     
 HISTORY                                                                                   HISTORY        3     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - HISTORY 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          HISTORY                      3         3
          L393                         1         1
          FCC0218                      4         4
          FCC0220                      8         8
          FCC0385                      3         3
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  82    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FCC0389                      3         3
          FCC0390                      3         3
          FCC0391                      6         6
          FCC0392                      8         8
          FCC0393                      5         5
          FCC0394                      4         4
          FCC0408                      6         6
          FCC0413                      5         5
          FCC0414                      3         3
          FCC0415                      4         4
          L397                         1         1
          FCC0407                      4         4
          FCC0412                      4         4
          FCC0418                      5         5
          FCC0422                      2         2
          FCC0435                      4         4
          FCC0441                      8         8
          FCC0446                      4         4
          FCC0448                      4         4
          FCC0451                      5         5
          FCC0458                      4         4
          FCC0475                      5         5
          FCC0476                      3         3
          FCC0477                      5         5
          FCC0481                      3         3
          FCC0490                      5         5
          FCC0491                      4         4
          FCC0498                      3         3
          FCC0499                      4         4
          FCC0502                      4         4
          FCC0504                      5         5
          FCC0506                      4         4
          FCC0508                      3         3
          FCC0509                      5         5
          FCC0513                      3         3
          FCC0517                      3         3
          FCC0518                      3         3
          FCC0519                      3         3
          FCC0520                      3         3
          FCC0521                      3         3
          FCC0522                      3         3
          FCC0534                      3         3
          FEAT79BZ                     3         3
          FEAT121A                     8         8
          FEAT121L                     3         3
          FEAT123A                     4         4
          L401                         1         1
          FCC0493                      5         5
          FCC0511                      3         3
          FCC0514                      4         4
          FCC0524                      2         2
          FCC0525                      4         4
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  83    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FCC0527                      3         3
          FCC0529                      3         3
          FCC0535                      4         4
          FCC0544                      3         3
          FCC0558                      5         5
          FCC0564                     10        10
          FCC0569                      4         4
          FCC0574                      3         3
          FCC0584                      4         4
          FCC0586                      3         3
          FCC0588                      4         4
          FCC0590                      6         6
          L406                         1         1
          FCC0400                      4         4
          FCC0396                     18        18
          FCC0458A                     3         3
          FCC0537                      7         7
          FCC0539                      9         9
          FCC0556                      4         4
          FCC0570                      4         4
          FCC0575                      3         3
          FCC0579                      4         4
          FCC0583                      4         4
          FCC0585                      3         3
          FCC0589                      5         5
          FCC0593                      5         5
          FCC0594                      4         4
          FCC0596                      3         3
          FCC0597                      5         5
          FCC0599                      4         4
          FCC0603                      7         7
          FCC0611                      5         5
          FCC0612                      4         4
          FCC0613                      5         5
          FCC0614                      5         5
          FCC0616                      3         3
          FCC0618                      5         5
          FCC0623                      7         7
          FCC0578                      4         4
          FCC0587                      3         3
          FCC0624                      4         4
          FCC0625                      4         4
          FCC0628                      8         8
          FCC0634                      4         4
          FCC0637                      3         3
          FCC0640                      4         4
          FCC0641                      5         5
          FCC0642                      4         4
          FCC0643                      6         6
          FCC0644                      4         4
          FCC0645                      8         8
          FCC0646                      7         7
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  84    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FCC0651                      4         4
          FCC0658                      3         3
          FCC0602                      4         4
          FCC0654                      4         4
          FCC0656                      8         8
          FCC0714                      4         4
          FCC0716                      5         5
          FCC0728                      8         8
          FCC0732                      4         4
          FCC0761                      8         8
          FEAT126A                     4         4
          FCC0709                      4         4
          FEAT126B                     2         2
          FEAT126C                     2         2
          FEAT126AA                    6         6
          FEAT126AB                    4         4
          FEAT126AC                    4         4
          FEAT126BA                    3         3
          FEAT126BB                    3         3
          FEAT126BC                    4         4
          FEAT126CA                    3         3
          FEAT129                      4         4
          L410                         1         1
          FCC0566                      5         5
          FCC0580                      5         5
          FCC0639                      4         4
          FCC0672                      6         6
          FCC0675                      5         5
          FCC0683                      6         6
          FCC0684                      3         3
          FCC0696                      3         3
          FCC0708                      3         3
          FCC0711                      5         5
          FCC0715                      5         5
          FCC0718                      4         4
          FCC0719                      4         4
          FCC0733                      3         3
          FCC0735                      5         5
          FCC0741                      4         4
          FCC0743                      7         7
          FCC0744                      6         6
          FCC0751                      4         4
          FCC0752                      4         4
          FCC0762                      3         3
          FCC0775                      6         6
          FCC0784                      3         3
          FCC0789                      5         5
          FCC0791                      4         4
          FCC0792                      3         3
          FCC0826                      3         3
          L414                         1         1
          FCC0635                      3         3
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  85    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FCC0717                      5         5
          FCC0764                      4         4
          FCC0768                      4         4
          FCC0780                      3         3
          FCC0787                      5         5
          FCC0794                      3         3
          FCC0805                      3         3
          FCC0811                      5         5
          FCC0812                      5         5
          FCC0813                      4         4
          FCC0814                      4         4
          FCC0818                      4         4
          FCC0822                      4         4
          FCC0824                      3         3
          FCC0827                      3         3
          FCC0828                      3         3
          FCC0839                      3         3
          FCC0840                      4         4
          FCC0841                      4         4
          FCC0842                      3         3
          FCC0844                      4         4
          FCC0848                      3         3
          FCC0872                      3         3
          FCC0878                      3         3
          FCC0882                      5         5
          FCC0883                      3         3
          FCC0885                      5         5
          FCC0887                      4         4
          FCC0888                      3         3
          FCC0903                      5         5
          FCC0912                      6         6
          FCC0919                      4         4
          FCC0931                      4         4
          FCC0943                      3         3
          S3143FC                      4         4
          *L420*                       1         1
          FCC0715A                     3         3
          FCC0777                      3         3
          FCC0835                      5         5
          FCC0859                      4         4
          FCC0864                      4         4
          FCC0881                      7         7
          FCC0902                      5         5
          FCC0909                      6         6
          FCC0914                      4         4
          FCC0946                      5         5
          FCC0960                      4         4
          FCC0961                      4         4
          FCC0962                      6         6
          FCC0963                      4         4
          FCC0970                      3         3
          FCC0975                      3         3
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  86    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FCC0977                      5         5
          FCC0980                      5         5
          FCC0982                      3         3
          FCC0990                      5         5
          FCC0994                      4         4
          FCC0996                      3         3
          FCC1004                      3         3
          FCC1011                      4         4
          FCC1013                      8         8
          FCC1014                      4         4
          FCC1025                      6         6
          FCC1028                      3         3
          FEAT79CZ                     3         3
          FEAT155A                     5         5
          FEAT155B                     4         4
          FEAT155C                     5         5
          FEAT155D                     6         6
          FEAT155E                     6         6
          FEAT155G                    23        23
          FEAT155H                     6         6
          FEAT155J                     3         3
          FCC*76                       3         3
          CP139FC                      6         6
          FCC0937                     10        10
          FEAT155EA                    3         3
          FEAT155HA                    3         3
          FCC0957                      4         4
          FCC0985                      4         4
          FCC1097                      3         3
          FEAT155F                     2         2
          FEAT155K                     4         4
          S3143FCA                     2         2
          FEAT155EB                    2         2
          FEAT155GA                    6         6
          FEAT155FA                    3         3
          *L428*                       1         1
          FCC0807                      4         4
          FCC0825                      5         5
          FCC0868                      4         4
          FCC0949                      4         4
          FCC0964                      4         4
          FCC0966                      4         4
          FCC1007                      3         3
          FCC1010                      7         7
          FCC1012                      5         5
          FCC1015                      6         6
          FCC1029                      4         4
          FCC1039                      3         3
          FCC1040                      4         4
          FCC1045                      4         4
          FCC1046                      7         7
          FCC1055                      4         4
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  87    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FCC1056                      6         6
          FCC1058                      4         4
          FCC1062                      3         3
          FCC1068                      3         3
          FCC1070                      3         3
          FCC1082                      3         3
          FCC1085                      5         5
          FCC1088                      5         5
          FCC1091                      3         3
          FCC1092                      4         4
          FCC1096                      5         5
          FCC1107                      4         4
          FCC1108                      4         4
          FCC1119                      3         3
          FCC1123                      3         3
          FCC1124                      3         3
          FCC1126                      4         4
          FCC1127                      3         3
          FCC1129                      5         5
          FCC1142                      7         7
          FCC1155                      3         3
          FCC1163                      3         3
          FCC1169                      5         5
          FCC1200                      7         7
          FCC1208                     12        12
          FCC1215                      4         4
          FCC1224                      6         6
          *L433*                       1         1
          FCC0976                      5         5
          FCC0995                      4         4
          FCC1134                      4         4
          FCC1175                      3         3
          FCC1191                      5         5
          FCC1196                      4         4
          FCC1201                      3         3
          FCC1206                      3         3
          FCC1210                      4         4
          FCC1211                     10        10
          FCC1213                      3         3
          FCC1222                      4         4
          FCC1226                      3         3
          FCC1227                      4         4
          FCC1237                      5         5
          FCC1238                      3         3
          FCC1239                      4         4
          FCC1247                      7         7
          FCC1254                      6         6
          FCC1259                      3         3
          FCC1274                      4         4
          FCC1275                      4         4
          FCC1283                      7         7
          FCC1290                      5         5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  88    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FCC1293                      7         7
          FCC1295                      3         3
          FCC1314                      3         3
          FCCT001                      2         2
          FCCT002                      4         4
          FCCT003                      3         3
          DBG0001                     12        12
          DBG0002                     21        21
          DBG0003                      3         3
          *L439*                       1         1
          FCC0971                      9         9
          FCC1179                      6         6
          FCC1244                      3         3
          FCC1247A                     4         4
          FCC1258                      3         3
          FCC1264                      6         6
          FCC1286                      4         4
          FCC1294                      4         4
          FCC1299                      4         4
          FCC1307                      6         6
          FCC1309                      6         6
          FCC1313                      5         5
          FCC1319                      5         5
          FCC1320                     10        10
          FCC1322                      4         4
          FCC1332                      4         4
          FCC1336                      5         5
          FCC1337                      4         4
          FCC1339                      5         5
          FCC1352                      4         4
          FCC1353                      4         4
          FCC1373                      5         5
          FCC1385                      9         9
          FCC1388                      4         4
          FCC1410                      3         3
          FCC1412                      8         8
          FCC1413                      4         4
          FCC1421                      6         6
          FCC1424                      3         3
          FCC1425                      4         4
          FCC1442                      5         5
          FCC1449                      5         5
          FCC1451                      6         6
          FCC1453                      4         4
          *L444*                       1         1
          FCC*77X                      4         4
          F7540FT                      7         7
          RSM2763X                     5         5
          RSM2763AX                    2         2
          FCCT005                      4         4
          FCC1059X                    10        10
          FCC1086X                     5         5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  89    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FCC1109X                     6         6
          FCC1117X                     7         7
          FCC1128X                     5         5
          FCC1134AX                    7         7
          FCC1173X                     7         7
          FCC1252X                     6         6
          FCC1300X                    35        35
          FCC1328X                    38        38
          FCC1328AX                    8         8
          FCC1328BX                    4         4
          FCC1361X                     5         5
          FCC1371X                     5         5
          FCC1390X                     7         7
          FCC1402X                     5         5
          FCC1434X                     6         6
          FCC1448X                     6         6
          FCC1464X                     5         5
          FCC1467X                     4         4
          FCC1469X                    12        12
          FCC1476X                     5         5
          FCC1479X                     6         6
          FCC1491X                     4         4
          FCC1495X                     3         3
          FCC1495AX                    5         5
          FCC1498X                     4         4
          FCC1504X                     6         6
          FCC1510X                     4         4
          FCC1512X                     6         6
          FCC1513X                     6         6
          FCC1514X                     4         4
          FCC1518X                    10        10
          FCC1530X                     4         4
          FCC1531X                     4         4
          FCC1532X                     5         5
          FCC1545X                     6         6
          FCC1551X                     3         3
          FCC1555X                     3         3
          FCC1556X                     5         5
          FCC1559X                     8         8
          *L452*                       1         1
          F7540FTA                     8         8
          DBG0004                      3         3
          DBG0005                      5         5
          DBG0006                      4         4
          DBG0009                     13        13
          FCCT006X                     4         4
          FCCT007                      3         3
          FCC1456X                     4         4
          FCC1462X                    12        12
          FCC1463X                     7         7
          FCC1550X                     9         9
          FCC1558X                     9         9
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  90    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FCC1568X                     4         4
          FCC1571X                     5         5
          FCC1573X                     6         6
          FCC1576X                     3         3
          FCC1580X                     5         5
          FCC1583AX                    4         4
          FCC1587X                     6         6
          FCC1596X                     4         4
          FCC1603X                     5         5
          FCC1605X                     3         3
          FCC1608X                     7         7
          FCC1616X                     6         6
          FCC1623X                     4         4
          FCC1624X                     4         4
          FCC1626X                     4         4
          FCC1636X                     7         7
          FCC1644X                     5         5
          FCC1645X                     4         4
          FCC1646X                     5         5
          FCC1653X                     5         5
          FCC1655X                     3         3
          FCC1656X                     4         4
          FCC1658X                     5         5
          FCC1660X                     5         5
          FCC1681X                     3         3
          *L460*                       1         1
          RSM3545C                     6         6
          RSM3545CA                    3         3
          FCC0885AX                    4         4
          FCC0238AX                    5         5
          FCC1289X                    12        12
          FCC1289AX                    5         5
          FCC1289BX                    7         7
          FCC1524X                     5         5
          FCC1563X                     6         6
          FCC1584X                     4         4
          FCC1588X                     8         8
          FCC1590X                     5         5
          FCC1638X                     5         5
          FCC1664X                     6         6
          FCC1668X                     6         6
          FCC1670X                     5         5
          FCC1677X                     4         4
          FCC1678X                     3         3
          FCC1692X                     4         4
          FCC1695X                     4         4
          FCC1700X                     4         4
          FCC1703X                     4         4
          FCC1706X                     4         4
          FCC1709X                     4         4
          FCC1710X                     5         5
          FCC1716X                     5         5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  91    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FCC1719X                     4         4
          FCC1728X                     3         3
          FCC1731X                     4         4
          FCC1736X                     6         6
          FCC1739X                     4         4
          FCC1740X                     4         4
          FCC1741X                     4         4
          FCC1746X                     4         4
          FCC1754                      5         5
          FCC1755X                     4         4
          FCC1767X                     5         5
          FCC1769X                     6         6
          FCC1770X                     5         5
          FCC1776X                     7         7
          FCC1790X                     4         4
          FCC1795X                     3         3
          FCC1797X                     4         4
          FCC1801X                     4         4
          FCC1808X                     3         3
          FCC1812X                     5         5
          FCC1822X                     6         6
          FCC1825X                     4         4
          FCC1828X                     5         5
          *L470*                       1         1
          FCC*78X                      4         4
          FCCT010                      5         5
          F191FCC                      6         6
          STLOAD                       6         6
          F162FTNA                    38        38
          FCC1289CX                    4         4
          FCC1826                      5         5
          FCC1829                      5         5
          FCC1837X                     5         5
          FCC1842X                     4         4
          FCC1843X                     4         4
          FCC1845X                     4         4
          FCC1847X                     4         4
          FCC1851                      7         7
          FCC1852                      9         9
          FCC1853X                     3         3
          FCC1858X                     3         3
          FCC1870                      4         4
          FCC1872                      5         5
          FCC1879                     10        10
          FCC1891                      4         4
          F66FCC                      18        18
          F66FCCA                      3         3
          FCC1886                      4         4
          FCCA405                      4         4
          FCC1882                      5         5
          *L477*                       1         1
          FCCA403                      9         9
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  92    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FCCA406                      9         9
          FCC1897                      4         4
          FCC1902                      3         3
          FCC1918                      6         6
          FCC1923                      7         7
          FCCA402                      6         6
          FCCA408                     12        12
          FCCA410                     11        11
          FCC1908                      4         4
          FCC1924                      6         6
          FCC1925                      9         9
          FCC1928                      5         5
          FCC1936                      5         5
          FCC1946                      7         7
          FCC1954                      7         7
          FCC1957                      8         8
          FCC1967                      6         6
          FCC2009                      4         4
          *L485*                       1         1
          FCCA426                      5         5
          FCCA437                      5         5
          FCC1811XA                    6         6
          FCC1901                     11        11
          FCC1960                     11        11
          FCC1984                      9         9
          FCC1997                      4         4
          FCC1998                      7         7
          FCC2031                      6         6
          FCCA434                      5         5
          FCCA435                      4         4
          FCCA442                      5         5
          FCCA444                      4         4
          FCCA451                      6         6
          FCCA456                      5         5
          FCC1972                      4         4
          FCC1983                      8         8
          FCC2004                      4         4
          FCC2030                      6         6
          FCC2038                      4         4
          FCC2039                      5         5
          FCC2045                      3         3
          FCC2051                      4         4
          FCC2053                      6         6
          FCC2056                      5         5
          *L498*                       1         1
          FCC*79                       3         3
          FEAT1070C                   33        33
          FCCA422                     10        10
          FCCA454                      5         5
          FCCA455                      6         6
          FCCA462                      4         4
          FCCA463                      5         5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  93    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FCCA465                      4         4
          FCCA468                      6         6
          FCCA469                      6         6
          FCCA474                     10        10
          FCCA476                      5         5
          FCC1964                      6         6
          FCC2020                     12        12
          FCC2059                      8         8
          FCC2064                      4         4
          FCC2069A                     7         7
          FCC2072                      6         6
          FCC2074                      4         4
          FCC2078                      6         6
          FCC2091                      5         5
          FCC2092                      4         4
          FCC2104                      6         6
          FCC2108                      5         5
          FCC2109                      9         9
          FCC2111                      4         4
          FCC2113                      6         6
          FCC2115                      3         3
          FCC2119                      5         5
          FCC2126                      7         7
          FCC2138                      5         5
          *L505*                       1         1
          F2950F4                      5         5
          FCCA475                      6         6
          FCCA487                      3         3
          FCCA488                      4         4
          FCCA488A                     4         4
          FCCA489                      7         7
          FCCA495                      5         5
          FCC2120                      7         7
          FCC2149                      4         4
          FCC2157                      4         4
          FCC2159                      5         5
          FCC2165                      4         4
          FCC2168                      4         4
          *L508*                       1         1
          FCCA499X                     4         4
          FCCA505                      6         6
          FCCA506X                     3         3
          FCCA510                      4         4
          FCCA511                      4         4
          FCCA519                      3         3
          FCC2061                      9         9
          FCC2124                      5         5
          FCC2129                     39        39
          FCC2135                      6         6
          FCC2150                      5         5
          FCC2170                      6         6
          FCC2175                      8         8
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  94    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FCC2177                      6         6
          FCC2184                      3         3
          FCC2186                      4         4
          FCC2189                      7         7
          FCC2194                      4         4
          FCC2196                      4         4
          FCC2203                      9         9
          FCC2204                      5         5
          FCC2212X                     6         6
          *L518*                       1         1
          FCC*80                       3         3
          FCCA473                      3         3
          FCCA509X                     6         6
          FCCA513X                     7         7
          FCC2174                      6         6
          FCC2198                      3         3
          FCC2207                     10        10
          FCC2222                      4         4
          FCC2228                     13        13
          FCC2229                     15        15
          FCC2230X                     6         6
          FCC2240                      8         8
          FCC2271X                     4         4
          FCC2273X                     8         8
          *L528*                       1         1
          RSM4033                      6         6
          FCCA493                      9         9
          FCCA526                     12        12
          FCCA527                     13        13
          FCCA530                      6         6
          FCCA531                      6         6
          FCCA532                      3         3
          FCCA533                      6         6
          FCCA534                     12        12
          FCCA535                      8         8
          FCCA536                      5         5
          FCCA537                      5         5
          FCCA543                     10        10
          FCCA546X                     6         6
          FCC2292                      7         7
          FCCA549                      4         4
          FCCA550X                     4         4
          FCCA551                      7         7
          FCC1768                     16        16
          FCC2202                     25        25
          FCC2239                     21        21
          FCC2246                      5         5
          FCC2253                      7         7
          FCC2259                     10        10
          FCC2272                     10        10
          FCC2277                      4         4
          FCC2282                      3         3
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  95    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FCC2285                      7         7
          FCC2288                      8         8
          FCC2291                     12        12
          FCC2305                     12        12
          FCC2306                     11        11
          FCC2313                      5         5
          FCC2319                      9         9
          *L538*                       1         1
          FCC*81                       4         4
          FCCA540                     12        12
          FCCA553                      6         6
          FCCA556                      6         6
          FCCA557                     13        13
          FCC2125                     16        16
          FCC2307                      5         5
          FCC2318                      5         5
          FCC2321                      6         6
          FCC2323                      8         8
          FCC2330                      7         7
          FCC2334                     17        17
          FCC2345                      8         8
          FCC2365                     29        29
          FCC2381                     15        15
          *L552*                       1         1
          FCCA561                      7         7
          FCCA562                      5         5
          FCCA564                      8         8
          FCCA573                      4         4
          FCCA580                      7         7
          FCC2338                      5         5
          FCC2360                      8         8
          FCC2362                      8         8
          FCC2391                      7         7
          FCC2392                     10        10
          FCC2419                      6         6
          *L564*                       1         1
          FCC*82                       4         4
          FCCA577                      4         4
          FCCA588                      5         5
          FCCA589                     10        10
          FCCA590                      6         6
          FCC2436                      6         6
          FCC2450                      5         5
          FCC2472                      5         5
          *L577*                       1         1
          FCC2448                      4         4
          *L587*                       1         1
          FCC2531                      5         5
          *L601*                       1         1
          FCCA592                      5         5
          FCCA593                      9         9
          FCCA594                      7         7
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  96    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          FCC2535                      8         8
          FCC2548                      7         7
          *L617*                       1         1
          FCCA595                      4         4
          FCC2563                      5         5
          *L628*                       1         1
          *L642*                       1         1
          FCCA596                      9         9
          FCCA597                      3         3
          *L650*                       1         1
          FCCA598                      5         5
          *L670*                       1         1
          *L688*                       1         1
          *L716*                       1         1
          *L739*                       1         1
          FCC2567                      5         5
          *L780*                       1         1
          *L797*                       1         1
          *L803*                       1         1
          *L826*                       1         1
          *L840*                       1         1
          *L847*                       1         1
          *L851*                       1         1
          *L859*                       1         1
          *L871*                       1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *COMDKS*
  
 *COMDKS* *DECK     *COMDKS*,COMPASS                                                       *COMDKS*       1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *COMDKS*
  
          IDENTIFIER               TOTAL    ACTIVE
  
          *COMDKS*                     1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAREG 
  
 COMAREG  *COMDECK COMAREG                                                                 COMAREG        1     A     
 COMAREG            CTEXT  COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.                COMAREG        2     A     
 COMAREG   COMAREG  SPACE  4                                                               COMAREG        3     A     
 COMAREG  ***       COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION.                       COMAREG        4     A     
 COMAREG  *                                                                                COMAREG        5     A     
 COMAREG  *         R. H. GOODELL.     71/06/01.                                           COMAREG        6     A     
 COMAREG  *                                                                                COMAREG        7     A     
 COMAREG  *         CONTROL DATA  PROPRIETARY PRODUCT.                                     COMAREG        8     A     
 COMAREG  *         COPYRIGHT CONTROL DATA CORP. 1971.                                     COMAREG        9     A     
 COMAREG   COMAREG  SPACE  4,7                                                             COMAREG       10     A     
 COMAREG  ***              THE FOLLOWING SET OF  MACROS,  OPDEFS,  AND  CPOPS              COMAREG       11     A     
 COMAREG  *         DEFINE PSEUDO MACHINE INSTRUCTIONS FOR SETTING A REGISTER              COMAREG       12     A     
 COMAREG  *         TO  A  VALUE INVOLVING REGISTERS AND/OR CONSTANTS.  THESE              COMAREG       13     A     
 COMAREG  *         INSTRUCTIONS GENERATE NO CODE AT ALL OR A 15-BIT  MACHINE              COMAREG       14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  97    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAREG 
  
 COMAREG  *         INSTRUCTION WHENEVER POSSIBLE DEPENDING ON THE EXPRESSION              COMAREG       15     A     
 COMAREG  *         VALUE  AND WHETHER *B1=1* IS DEFINED, WITHOUT MOST OF THE              COMAREG       16     A     
 COMAREG  *         DEFICIENCIES OF THE R=  PSEUDO  INSTRUCTION  IN  COMPASS.              COMAREG       17     A     
 COMAREG  *         EXAMPLES --                                                            COMAREG       18     A     
 COMAREG  *                                                                                COMAREG       19     A     
 COMAREG  *         COMPASS         R= FORM          NEW FORM        COMMENTS              COMAREG       20     A     
 COMAREG  *                                                                                COMAREG       21     A     
 COMAREG  *         SX1   1         R=   X1,1        =X1   1                               COMAREG       22     A     
 COMAREG  *         SA1   EXP       R=   A1,EXP      =A1   EXP                             COMAREG       23     A     
 COMAREG  *         SB4   B4+1      R=   B4,B4+1     =B4   B4+1      NOTE 1.               COMAREG       24     A     
 COMAREG  *         SA6   A6+EXP    R=   A6,A6+EXP   =A6   A6+EXP    NOTE 2.               COMAREG       25     A     
 COMAREG  *         SB.I  B.J       ---------        =B.I  B.J       NOTE 3.               COMAREG       26     A     
 COMAREG  *         BX6   X4        ---------        =X6   X4        BOOLEAN.              COMAREG       27     A     
 COMAREG  *                                                                                COMAREG       28     A     
 COMAREG  *         NOTE 1.   R= GENERATES 30 BITS.  NEW IS 15 BITS IF B1=1.               COMAREG       29     A     
 COMAREG  *         NOTE 2.   R= GENERATES 30 BITS.  NEW IS 15 BITS IF B1=1                COMAREG       30     A     
 COMAREG  *                            AND (EXP) IS EVALUATABLE AND = +- 1.                COMAREG       31     A     
 COMAREG  *         NOTE 3.   R= CANNOT HANDLE SYMBOLIC REGISTERS.  NEW FORM               COMAREG       32     A     
 COMAREG  *                            GENERATES NO CODE IF  (I) = (J).                    COMAREG       33     A     
 COMAREG  *         * NOTE * THIS COMDECK WILL DISAPPEAR WHEN COMPASS 4.0 ARRIVES.         COMAREG       34     A     
 COMAREG                                                                                   COMAREG       35     A     
 COMAREG                                                                                   COMAREG       36     A     
 COMAREG            BASE   OCTAL                                                           COMAREG       37     A     
 COMAREG   =A       SPACE  4,7                                                             COMAREG       38     A     
 COMAREG  *         A-REGISTER SETS.                                                       COMAREG       39     A     
 COMAREG                                                                                   COMAREG       40     A     
 COMAREG                                                                                   COMAREG       41     A     
 COMAREG   =A       CPOP   0,560,100         =AI                                           COMAREG       42     A     
 COMAREG                                                                                   COMAREG       43     A     
 COMAREG   =A,Q     OPDEF  I,Q               =AI    K                                      COMAREG       44     A     
 COMAREG    '?REG#S2 A.I,(Q)                                                               COMAREG       45     A     
 COMAREG    ENDM                                                                           COMAREG       46     A     
 COMAREG                                                                                   COMAREG       47     A     
 COMAREG   =A,A     OPDEF  I,J               =AI    AJ                                     COMAREG       48     A     
 COMAREG    IFNE I,J,1                                                                     COMAREG       49     A     
 COMAREG    SA.I A.J                                                                       COMAREG       50     A     
 COMAREG    ENDM                                                                           COMAREG       51     A     
 COMAREG                                                                                   COMAREG       52     A     
 COMAREG   =A,AQ    OPDEF  I,J,Q             =AI    AJ+K                                   COMAREG       53     A     
 COMAREG    '?REG#S1 A.I,A.J,(Q)                                                           COMAREG       54     A     
 COMAREG    ENDM                                                                           COMAREG       55     A     
 COMAREG                                                                                   COMAREG       56     A     
 COMAREG   =A,A+B   CPOP   0,540,132         =AI    AJ+BK                                  COMAREG       57     A     
 COMAREG   =A,A-B   CPOP   0,550,132         =AI    AJ-BK                                  COMAREG       58     A     
 COMAREG                                                                                   COMAREG       59     A     
 COMAREG   =A,B     CPOP   0,560,120         =AI    BJ                                     COMAREG       60     A     
 COMAREG                                                                                   COMAREG       61     A     
 COMAREG   =A,BQ    OPDEF  I,J,Q             =AI    BJ+K                                   COMAREG       62     A     
 COMAREG    '?REG#S1 A.I,B.J,(Q)                                                           COMAREG       63     A     
 COMAREG    ENDM                                                                           COMAREG       64     A     
 COMAREG                                                                                   COMAREG       65     A     
 COMAREG   =A,B+A   CPOP   0,540,123         =AI    BK+AJ                                  COMAREG       66     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  98    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAREG 
  
 COMAREG   =A,B+B   CPOP   0,560,132         =AI    BJ+BK                                  COMAREG       67     A     
 COMAREG   =A,B+X   CPOP   0,530,123         =AI    BK+XJ                                  COMAREG       68     A     
 COMAREG   =A,B-B   CPOP   0,570,132         =AI    BJ-BK                                  COMAREG       69     A     
 COMAREG   =A,-B    CPOP   0,570,102         =AI    -BK                                    COMAREG       70     A     
 COMAREG   =A,-B+A  CPOP   0,550,123         =AI    -BK+AJ                                 COMAREG       71     A     
 COMAREG   =A,-B+B  CPOP   0,570,123         =AI    -BK+BJ                                 COMAREG       72     A     
 COMAREG                                                                                   COMAREG       73     A     
 COMAREG   =A,X     CPOP   0,530,120         =AI    XJ                                     COMAREG       74     A     
 COMAREG                                                                                   COMAREG       75     A     
 COMAREG   =A,XQ    OPDEF  I,J,Q             =AI    XJ+K                                   COMAREG       76     A     
 COMAREG    '?REG#S0 A.I,X.J,(Q)                                                           COMAREG       77     A     
 COMAREG    ENDM                                                                           COMAREG       78     A     
 COMAREG                                                                                   COMAREG       79     A     
 COMAREG   =A,X+B   CPOP   0,530,132         =AI    XJ+BK                                  COMAREG       80     A     
 COMAREG   =B       SPACE  4,7                                                             COMAREG       81     A     
 COMAREG  *         B-REGISTER SETS.                                                       COMAREG       82     A     
 COMAREG                                                                                   COMAREG       83     A     
 COMAREG                                                                                   COMAREG       84     A     
 COMAREG   =B       CPOP   0,660,100         =BI                                           COMAREG       85     A     
 COMAREG                                                                                   COMAREG       86     A     
 COMAREG   =B,Q     OPDEF  I,Q               =BI    K                                      COMAREG       87     A     
 COMAREG    '?REG#S2 B.I,(Q)                                                               COMAREG       88     A     
 COMAREG    ENDM                                                                           COMAREG       89     A     
 COMAREG                                                                                   COMAREG       90     A     
 COMAREG   =B,A     CPOP   0,640,120         =BI    AJ                                     COMAREG       91     A     
 COMAREG                                                                                   COMAREG       92     A     
 COMAREG   =B,AQ    OPDEF  I,J,Q             =BI    AJ+K                                   COMAREG       93     A     
 COMAREG    '?REG#S1 B.I,A.J,(Q)                                                           COMAREG       94     A     
 COMAREG    ENDM                                                                           COMAREG       95     A     
 COMAREG                                                                                   COMAREG       96     A     
 COMAREG   =B,A+B   CPOP   0,640,132         =BI    AJ+BK                                  COMAREG       97     A     
 COMAREG   =B,A-B   CPOP   0,650,132         =BI    AJ-BK                                  COMAREG       98     A     
 COMAREG                                                                                   COMAREG       99     A     
 COMAREG   =B,B     OPDEF  I,J               =BI    BJ                                     COMAREG      100     A     
 COMAREG    IFNE I,J,1                                                                     COMAREG      101     A     
 COMAREG    SB.I B.J                                                                       COMAREG      102     A     
 COMAREG    ENDM                                                                           COMAREG      103     A     
 COMAREG                                                                                   COMAREG      104     A     
 COMAREG   =B,BQ    OPDEF  I,J,Q             =BI    BJ+K                                   COMAREG      105     A     
 COMAREG    '?REG#S1 B.I,B.J,(Q)                                                           COMAREG      106     A     
 COMAREG    ENDM                                                                           COMAREG      107     A     
 COMAREG                                                                                   COMAREG      108     A     
 COMAREG   =B,B+A   CPOP   0,640,123         =BI    BK+AJ                                  COMAREG      109     A     
 COMAREG   =B,B+B   CPOP   0,660,132         =BI    BJ+BK                                  COMAREG      110     A     
 COMAREG   =B,B-B   CPOP   0,670,132         =BI    BJ-BK                                  COMAREG      111     A     
 COMAREG   =B,B+X   CPOP   0,630,123         =BI    BK+XJ                                  COMAREG      112     A     
 COMAREG   =B,-B    CPOP   0,670,102         =BI    -BK                                    COMAREG      113     A     
 COMAREG   =B,-B+A  CPOP   0,650,123         =BI    -BK+AJ                                 COMAREG      114     A     
 COMAREG   =B,-B+B  CPOP   0,670,123         =BI    -BK+BJ                                 COMAREG      115     A     
 COMAREG                                                                                   COMAREG      116     A     
 COMAREG   =B,X     CPOP   0,630,120         =BI    XJ                                     COMAREG      117     A     
 COMAREG                                                                                   COMAREG      118     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE  99    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAREG 
  
 COMAREG   =B,XQ    OPDEF  I,J,Q             =BI    XJ+K                                   COMAREG      119     A     
 COMAREG    '?REG#S0 B.I,X.J,(Q)                                                           COMAREG      120     A     
 COMAREG    ENDM                                                                           COMAREG      121     A     
 COMAREG                                                                                   COMAREG      122     A     
 COMAREG   =B,X+B   CPOP   0,630,132         =BI    XJ+BK                                  COMAREG      123     A     
 COMAREG   =X       SPACE  4,7                                                             COMAREG      124     A     
 COMAREG  *         X-REGISTER SETS, PLUS SOME FAKES.                                      COMAREG      125     A     
 COMAREG                                                                                   COMAREG      126     A     
 COMAREG                                                                                   COMAREG      127     A     
 COMAREG   =X       CPOP   0,130,111         =XI                 BOOLEAN                   COMAREG      128     A     
 COMAREG                                                                                   COMAREG      129     A     
 COMAREG   =X,Q     OPDEF  I,Q               =XI    K                                      COMAREG      130     A     
 COMAREG    '?REG#S2 X.I,(Q)                                                               COMAREG      131     A     
 COMAREG    ENDM                                                                           COMAREG      132     A     
 COMAREG                                                                                   COMAREG      133     A     
 COMAREG   =X,A     CPOP   0,740,120         =XI    AJ                                     COMAREG      134     A     
 COMAREG                                                                                   COMAREG      135     A     
 COMAREG   =X,AQ    OPDEF  I,J,Q             =XI    AJ+K                                   COMAREG      136     A     
 COMAREG    '?REG#S1 X.I,A.J,(Q)                                                           COMAREG      137     A     
 COMAREG    ENDM                                                                           COMAREG      138     A     
 COMAREG                                                                                   COMAREG      139     A     
 COMAREG   =X,A+B   CPOP   0,740,132         =XI    AJ+BK                                  COMAREG      140     A     
 COMAREG   =X,A-B   CPOP   0,750,132         =XI    AJ-BK                                  COMAREG      141     A     
 COMAREG                                                                                   COMAREG      142     A     
 COMAREG   =X,B     CPOP   0,760,120         =XI    BJ                                     COMAREG      143     A     
 COMAREG                                                                                   COMAREG      144     A     
 COMAREG   =X,BQ    OPDEF  I,J,Q             =XI    BJ+K                                   COMAREG      145     A     
 COMAREG    '?REG#S1 X.I,B.J,(Q)                                                           COMAREG      146     A     
 COMAREG    ENDM                                                                           COMAREG      147     A     
 COMAREG                                                                                   COMAREG      148     A     
 COMAREG   =X,B+A   CPOP   0,740,123         =XI    BK+AJ                                  COMAREG      149     A     
 COMAREG   =X,B+B   CPOP   0,760,132         =XI    BJ+BK                                  COMAREG      150     A     
 COMAREG   =X,B-B   CPOP   0,770,132         =XI    BJ-BK                                  COMAREG      151     A     
 COMAREG   =X,B+X   CPOP   0,730,123         =XI    BK+XJ                                  COMAREG      152     A     
 COMAREG   =X,-B    CPOP   0,770,102         =XI    -BK                                    COMAREG      153     A     
 COMAREG   =X,-B+A  CPOP   0,750,123         =XI    -BK+AJ                                 COMAREG      154     A     
 COMAREG   =X,-B+B  CPOP   0,770,123         =XI    -BK+BJ                                 COMAREG      155     A     
 COMAREG                                                                                   COMAREG      156     A     
 COMAREG   =X,X     OPDEF  I,J               =XI    XJ          BOOLEAN                    COMAREG      157     A     
 COMAREG    IFNE I,J,1                                                                     COMAREG      158     A     
 COMAREG    BX.I X.J                                                                       COMAREG      159     A     
 COMAREG    ENDM                                                                           COMAREG      160     A     
 COMAREG                                                                                   COMAREG      161     A     
 COMAREG   =X,XQ    OPDEF  I,J,Q             =XI    XJ+K                                   COMAREG      162     A     
 COMAREG    '?REG#S0 X.I,X.J,(Q)                                                           COMAREG      163     A     
 COMAREG    ENDM                                                                           COMAREG      164     A     
 COMAREG                                                                                   COMAREG      165     A     
 COMAREG   =X,X+B   CPOP   0,730,132         =XI    XJ+BK                                  COMAREG      166     A     
 COMAREG   =X,X+X   CPOP   0,360,132         =XI    XJ+XK       LONG ADD                   COMAREG      167     A     
 COMAREG   =X,X-X   CPOP   0,370,132         =XI    XJ-XK       LONG ADD                   COMAREG      168     A     
 COMAREG   =X,-X    CPOP   0,140,122         =XI    -XK         BOOLEAN                    COMAREG      169     A     
 COMAREG   =X,-X+X  CPOP   0,370,123         =XI    -XK+XJ      LONG ADD                   COMAREG      170     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 100    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAREG 
  
 COMAREG   '?REG#S0 SPACE  4,7                                                             COMAREG      171     A     
 COMAREG  *         INTERNAL MACROS USED BY SOME OF THE ABOVE.                             COMAREG      172     A     
 COMAREG                                                                                   COMAREG      173     A     
 COMAREG                                                                                   COMAREG      174     A     
 COMAREG            PURGMAC '?REG#S0,'?REG#S1,'?REG#S2                                     COMAREG      175     A     
 COMAREG                                                                                   COMAREG      176     A     
 COMAREG   '?REG#S0 MACRO  I,J,Q       FOR VARIABLE FIELD SYNTAX = XQ                      COMAREG      177     A     
 COMAREG    IF DEF,B1=1+Q,8D                                                               COMAREG      178     A     
 COMAREG  '?REG#QQ SET Q                                                                   COMAREG      179     A     
 COMAREG    IFEQ '?REG#QQ,1,2                                                              COMAREG      180     A     
 COMAREG    S;A J+B1                                                                       COMAREG      181     A     
 COMAREG    SKIP 5                                                                         COMAREG      182     A     
 COMAREG    IFEQ '?REG#QQ,,3                                                               COMAREG      183     A     
 COMAREG    IFNE I,J,3                                                                     COMAREG      184     A     
 COMAREG    S;A J                                                                          COMAREG      185     A     
 COMAREG    SKIP 1                                                                         COMAREG      186     A     
 COMAREG    S;A J+Q                                                                        COMAREG      187     A     
 COMAREG    ENDM                                                                           COMAREG      188     A     
 COMAREG                                                                                   COMAREG      189     A     
 COMAREG   '?REG#S1 MACRO  I,J,Q       FOR VARIABLE FIELD SYNTAX = AQ OR BQ                COMAREG      190     A     
 COMAREG    IF DEF,B1=1+Q,11D                                                              COMAREG      191     A     
 COMAREG  '?REG#QQ SET Q                                                                   COMAREG      192     A     
 COMAREG    IFEQ '?REG#QQ,1,2                                                              COMAREG      193     A     
 COMAREG    S;A J+B1                                                                       COMAREG      194     A     
 COMAREG    SKIP 8D                                                                        COMAREG      195     A     
 COMAREG    IFEQ '?REG#QQ,,3                                                               COMAREG      196     A     
 COMAREG    IFNE I,J,6                                                                     COMAREG      197     A     
 COMAREG    S;A J                                                                          COMAREG      198     A     
 COMAREG    SKIP 4                                                                         COMAREG      199     A     
 COMAREG    IFEQ '?REG#QQ,-1,2                                                             COMAREG      200     A     
 COMAREG    S;A J-B1                                                                       COMAREG      201     A     
 COMAREG    SKIP 1                                                                         COMAREG      202     A     
 COMAREG    S;A J+Q                                                                        COMAREG      203     A     
 COMAREG    ENDM                                                                           COMAREG      204     A     
 COMAREG                                                                                   COMAREG      205     A     
 COMAREG   '?REG#S2 MACRO  I,Q         FOR VARIABLE FIELD SYNTAX = Q                       COMAREG      206     A     
 COMAREG    IF DEF,B1=1+Q,14D                                                              COMAREG      207     A     
 COMAREG  '?REG#QQ SET Q                                                                   COMAREG      208     A     
 COMAREG    IFEQ '?REG#QQ,1,3                                                              COMAREG      209     A     
 COMAREG    IFNE I,B1,1                                                                    COMAREG      210     A     
 COMAREG    S;A B1                                                                         COMAREG      211     A     
 COMAREG    SKIP 10D                                                                       COMAREG      212     A     
 COMAREG    IFEQ '?REG#QQ,,2                                                               COMAREG      213     A     
 COMAREG    S;A B0                                                                         COMAREG      214     A     
 COMAREG    SKIP 7                                                                         COMAREG      215     A     
 COMAREG    IFEQ '?REG#QQ,-1,2                                                             COMAREG      216     A     
 COMAREG    S;A -B1                                                                        COMAREG      217     A     
 COMAREG    SKIP 4                                                                         COMAREG      218     A     
 COMAREG    IFEQ '?REG#QQ,2,2                                                              COMAREG      219     A     
 COMAREG    S;A B1+B1                                                                      COMAREG      220     A     
 COMAREG    SKIP 1                                                                         COMAREG      221     A     
 COMAREG    S;A Q                                                                          COMAREG      222     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 101    
0*** OUTPUT LINE LIMIT EXCEEDED.  LIST OPTIONS 3 AND 4 CANCELLED. *** 
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMAREG 
  
 COMAREG    ENDM                                                                           COMAREG      223     A     
 COMAREG            SPACE  4,7                                                             COMAREG      224     A     
 COMAREG            BASE   *                                                               COMAREG      225     A     
 COMAREG                                                                                   COMAREG      226     A     
 COMAREG                                                                                   COMAREG      227     A     
 COMAREG   COMAREG  ENDX                                                                   COMAREG      228     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMAREG 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMAREG                    228       228
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCDD 
  
 COMCCDD  *COMDECK,COMCCDD                                                                 COMCCDD        1     A     
 COMCCDD            CTEXT  COMCCDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.          COMCCDD        2     A     
 COMCCDD   CDD      SPACE  4                                                               COMCCDD        3     A     
 COMCCDD            IF     -DEF,QUAL$,1                                                    COMCCDD        4     A     
 COMCCDD            QUAL   COMCCDD                                                         COMCCDD        5     A     
 COMCCDD            BASE   D                                                               COMCCDD        6     A     
 COMCCDD  *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                             COMCCDD        7     A     
 COMCCDD   CDD      SPACE  4                                                               COMCCDD        8     A     
 COMCCDD  ***       CDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.                     COMCCDD        9     A     
 COMCCDD  *         G. R. MANSFIELD.  70/12/18.                                            COMCCDD       10     A     
 COMCCDD  *         ADAPTED FROM SUBROUTINE *CONDEC* IN *COMPASS VER 2.0*.                 COMCCDD       11     A     
 COMCCDD   CDD      SPACE  4                                                               COMCCDD       12     A     
 COMCCDD  ***              CDD CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH               COMCCDD       13     A     
 COMCCDD  *         LEADING ZERO SUPPRESSION.  CONVERSION CONTAINS SPACE FILL              COMCCDD       14     A     
 COMCCDD  *         AND IS RIGHT AND LEFT JUSTIFIED.                                       COMCCDD       15     A     
 COMCCDD  *                                                                                COMCCDD       16     A     
 COMCCDD  *         ENTRY  (X1) = NUMBER TO BE CONVERTED.                                  COMCCDD       17     A     
 COMCCDD  *                (B1) = 1.                                                       COMCCDD       18     A     
 COMCCDD  *                                                                                COMCCDD       19     A     
 COMCCDD  *         EXIT   (X6) = DPC CONVERSION RIGHT JUSTIFIED.                          COMCCDD       20     A     
 COMCCDD  *                (X4) = DPC CONVERSION LEFT JUSTIFIED.                           COMCCDD       21     A     
 COMCCDD  *                (B2) = 6*COUNT OF DIGITS CONVERTED.                             COMCCDD       22     A     
 COMCCDD  *                                                                                COMCCDD       23     A     
 COMCCDD  *         USES   X - 1, 2, 3, 4, 6, 7.                                           COMCCDD       24     A     
 COMCCDD  *                B - 2, 3, 4, 5.                                                 COMCCDD       25     A     
 COMCCDD  *                A - 2, 3, 4.                                                    COMCCDD       26     A     
 COMCCDD  *                                                                                COMCCDD       27     A     
 COMCCDD  *         CALLS  NONE.                                                           COMCCDD       28     A     
 COMCCDD                                                                                   COMCCDD       29     A     
 COMCCDD                                                                                   COMCCDD       30     A     
 COMCCDD   CDD1     DX6    X1*X2       COMPUTE QUOTIENT                                    COMCCDD       31     A     
 COMCCDD            FX1    X1*X2                                                           COMCCDD       32     A     
 COMCCDD            UX7    X1          CHECK QUOTIENT                                      COMCCDD       33     A     
 COMCCDD            LX4    -6          SHIFT ASSEMBLY                                      COMCCDD       34     A     
 COMCCDD            SB2    B2+B4                                                           COMCCDD       35     A     
 COMCCDD            FX6    X6*X3       EXTRACT REMAINDER DIGIT                             COMCCDD       36     A     
 COMCCDD            SX6    X6+B3       CONVERT DIGIT                                       COMCCDD       37     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 102    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCDD 
  
 COMCCDD            IX4    X6+X4                                                           COMCCDD       38     A     
 COMCCDD            NZ     X7,CDD1     LOOP TO ZERO QUOTIENT                               COMCCDD       39     A     
 COMCCDD            LX4    -6          LEFT JUSTIFY ASSEMBLY                               COMCCDD       40     A     
 COMCCDD            LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY                              COMCCDD       41     A     
 COMCCDD                                                                                   COMCCDD       42     A     
 COMCCDD   CDD      PS                 ENTRY/EXIT                                          COMCCDD       43     A     
 COMCCDD            SA2    CDDA        =.1P48+1                                            COMCCDD       44     A     
 COMCCDD            SA3    A2+B1       =10.P                                               COMCCDD       45     A     
 COMCCDD            PX1    X1                                                              COMCCDD       46     A     
 COMCCDD            SB2    B0          CLEAR JUSTIFY COUNT                                 COMCCDD       47     A     
 COMCCDD            SA4    A3+B1       =1H                                                 COMCCDD       48     A     
 COMCCDD            SB3    1R0-1R      (B3) = CONVERSION CONSTANT                          COMCCDD       49     A     
 COMCCDD            SB4    6           (B4) = SHIFT INCREMENT                              COMCCDD       50     A     
 COMCCDD            EQ     CDD1                                                            COMCCDD       51     A     
 COMCCDD                                                                                   COMCCDD       52     A     
 COMCCDD   CDDA     CON    0.1P48+1                                                        COMCCDD       53     A     
 COMCCDD            CON    10.P                                                            COMCCDD       54     A     
 COMCCDD            CON    1H                                                              COMCCDD       55     A     
 COMCCDD            SPACE  4                                                               COMCCDD       56     A     
 COMCCDD            BASE   *                                                               COMCCDD       57     A     
 COMCCDD   QUAL$    IF     -DEF,QUAL$                                                      COMCCDD       58     A     
 COMCCDD            QUAL   *                                                               COMCCDD       59     A     
 COMCCDD   CDD      EQU    /COMCCDD/CDD                                                    COMCCDD       60     A     
 COMCCDD   QUAL$    ENDIF                                                                  COMCCDD       61     A     
 COMCCDD            ENDX                                                                   COMCCDD       62     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCCDD 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCCDD                     62        62
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCIO 
  
 COMCCIO  *COMDECK,COMCCIO                                                                 COMCCIO        1     A     
 COMCCIO            CTEXT  COMCCIO - I/O FUNCTION PROCESSOR.                               COMCCIO        2     A     
 COMCCIO   CIO      SPACE  4                                                               COMCCIO        3     A     
 COMCCIO            IF     -DEF,QUAL$,1                                                    COMCCIO        4     A     
 COMCCIO            QUAL   COMCCIO                                                         COMCCIO        5     A     
 COMCCIO            BASE   D                                                               COMCCIO        6     A     
 COMCCIO  *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                             COMCCIO        7     A     
 COMCCIO   CIO      SPACE  4                                                               COMCCIO        8     A     
 COMCCIO  ***       CIO - I/O FUNCTION PROCESSOR.                                          COMCCIO        9     A     
 COMCCIO  *         G. R. MANSFIELD.  70/10/09.                                            COMCCIO       10     A     
 COMCCIO   CIO      SPACE  4                                                               COMCCIO       11     A     
 COMCCIO  ***              CIO PERFORMS I/O FUNCTIONS VIA THE PP PROGRAM *CIO*.            COMCCIO       12     A     
 COMCCIO  *         OPERATION WILL BE PROCESSED WHEN BUFFER IS NOT BUSY.                   COMCCIO       13     A     
 COMCCIO  *         IF FILE STATUS WORD = 0, OPERATION WILL NOT BE PROCESSED,              COMCCIO       14     A     
 COMCCIO  *         AND IN AND OUT WILL BE SET TO FIRST.                                   COMCCIO       15     A     
 COMCCIO  *                                                                                COMCCIO       16     A     
 COMCCIO  *                (X2) (BITS 17 - 0) = ADDRESS OF FET FOR FILE.                   COMCCIO       17     A     
 COMCCIO  *                (X2) (BITS 35 - 18) = SKIP COUNT TO CIO.                        COMCCIO       18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 103    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCIO 
  
 COMCCIO  *                (X7) = FUNCTION CODE.                                           COMCCIO       19     A     
 COMCCIO  *                IF (X7) < 0, (X7) IS COMPLEMENT OF REQUEST, AND                 COMCCIO       20     A     
 COMCCIO  *                AUTO RECALL WILL BE REQUESTED.                                  COMCCIO       21     A     
 COMCCIO  *                                                                                COMCCIO       22     A     
 COMCCIO  *         EXIT   (X2) = ADDRESS OF FET FOR FILE.                                 COMCCIO       23     A     
 COMCCIO  *                IF ERP$ DEFINED IN CP PROGRAM -                                 COMCCIO       24     A     
 COMCCIO  *                CIO= WILL EXIT TO ERP$ WHEN UNRECOVERED PARITY ERROR            COMCCIO       25     A     
 COMCCIO  *                OR END OF TAPE STATUS BITS ARE SET.                             COMCCIO       26     A     
 COMCCIO  *                                                                                COMCCIO       27     A     
 COMCCIO  *         USES   X - 1, 2, 6, 7.                                                 COMCCIO       28     A     
 COMCCIO  *                B - NONE.                                                       COMCCIO       29     A     
 COMCCIO  *                A - 1, 6, 7.                                                    COMCCIO       30     A     
 COMCCIO  *                                                                                COMCCIO       31     A     
 COMCCIO  *         CALLS  SYS=.                                                           COMCCIO       32     A     
 COMCCIO                                                                                   COMCCIO       33     A     
 COMCCIO                                                                                   COMCCIO       34     A     
 COMCCIO   CIO1     RECALL X2          WAIT COMPLETION                                     COMCCIO       35     A     
 COMCCIO   ERP$     IF     -DEF,ERP$                                                       COMCCIO       36     A     
 COMCCIO   CIO2     MX6    42                                                              COMCCIO       37     A     
 COMCCIO            SX1    2                                                               COMCCIO       38     A     
 COMCCIO   ERP$     ELSE                                                                   COMCCIO       39     A     
 COMCCIO   CIO2     SA1    X2          READ FILE STATUS                                    COMCCIO       40     A     
 COMCCIO            SX6    6000B                                                           COMCCIO       41     A     
 COMCCIO            BX6    X6*X1                                                           COMCCIO       42     A     
 COMCCIO            SX1    2                                                               COMCCIO       43     A     
 COMCCIO            NZ     X6,ERP$     IF PARITY ERROR OR END OF REEL                      COMCCIO       44     A     
 COMCCIO            MX6    42                                                              COMCCIO       45     A     
 COMCCIO   ERP$     ENDIF                                                                  COMCCIO       46     A     
 COMCCIO            BX6    X6+X1                                                           COMCCIO       47     A     
 COMCCIO            SA1    X2          READ FILE STATUS                                    COMCCIO       48     A     
 COMCCIO            BX1    X6*X1       MASK NAME AND MODE                                  COMCCIO       49     A     
 COMCCIO            SX6    3RCIO       SET CIO REQUEST                                     COMCCIO       50     A     
 COMCCIO            PL     X7,CIO3     IF NO AUTO RECALL WITH REQUEST                      COMCCIO       51     A     
 COMCCIO            BX7    -X7                                                             COMCCIO       52     A     
 COMCCIO            PX6    X6          SET AUTO RECALL                                     COMCCIO       53     A     
 COMCCIO   CIO3     BX7    X1+X7       ENTER REQUEST IN FILE NAME                          COMCCIO       54     A     
 COMCCIO            LX6    42                                                              COMCCIO       55     A     
 COMCCIO            SA7    X2          STORE FILE STATUS                                   COMCCIO       56     A     
 COMCCIO            BX6    X6+X2       MERGE REQUEST AND FET ADDRESS                       COMCCIO       57     A     
 COMCCIO            SX2    X2                                                              COMCCIO       58     A     
 COMCCIO            RJ     =XSYS=                                                          COMCCIO       59     A     
 COMCCIO                                                                                   COMCCIO       60     A     
 COMCCIO   CIO=     PS                 ENTRY/EXIT                                          COMCCIO       61     A     
 COMCCIO            SA1    X2          CHECK BUFFER STATUS                                 COMCCIO       62     A     
 COMCCIO            LX1    59                                                              COMCCIO       63     A     
 COMCCIO            NG     X1,CIO2     IF BUFFER NOT BUSY                                  COMCCIO       64     A     
 COMCCIO            NZ     X1,CIO1     IF NOT BLANK FILE STATUS                            COMCCIO       65     A     
 COMCCIO   QUAL$    IF     DEF,B1=1                                                        COMCCIO       66     A     
 COMCCIO            SA1    X2+B1       SET FIRST = IN = OUT                                COMCCIO       67     A     
 COMCCIO            SX6    X1                                                              COMCCIO       68     A     
 COMCCIO            SA6    A1+B1                                                           COMCCIO       69     A     
 COMCCIO            SA6    A6+B1                                                           COMCCIO       70     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 104    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCIO 
  
 COMCCIO   QUAL$    ELSE                                                                   COMCCIO       71     A     
 COMCCIO            SA1    X2+1        SET FIRST = IN = OUT                                COMCCIO       72     A     
 COMCCIO            SX6    X1                                                              COMCCIO       73     A     
 COMCCIO            SA6    X2+2                                                            COMCCIO       74     A     
 COMCCIO            SA6    X2+3                                                            COMCCIO       75     A     
 COMCCIO   QUAL$    ENDIF                                                                  COMCCIO       76     A     
 COMCCIO            EQ     CIO=        RETURN                                              COMCCIO       77     A     
 COMCCIO            SPACE  4                                                               COMCCIO       78     A     
 COMCCIO            BASE   *                                                               COMCCIO       79     A     
 COMCCIO   QUAL$    IF     -DEF,QUAL$                                                      COMCCIO       80     A     
 COMCCIO            QUAL   *                                                               COMCCIO       81     A     
 COMCCIO   CIO=     EQU    /COMCCIO/CIO=                                                   COMCCIO       82     A     
 COMCCIO   QUAL$    ENDIF                                                                  COMCCIO       83     A     
 COMCCIO            ENDX                                                                   COMCCIO       84     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCCIO 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCCIO                     84        84
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCOD 
  
 COMCCOD  *COMDECK,COMCCOD                                                                 COMCCOD        1     A     
 COMCCOD            CTEXT  COMCCOD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.            COMCCOD        2     A     
 COMCCOD   COD      SPACE  4                                                               COMCCOD        3     A     
 COMCCOD            IF     -DEF,QUAL$,1                                                    COMCCOD        4     A     
 COMCCOD            QUAL   COMCCOD                                                         COMCCOD        5     A     
 COMCCOD            BASE   D                                                               COMCCOD        6     A     
 COMCCOD  *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                             COMCCOD        7     A     
 COMCCOD   COD      SPACE  4                                                               COMCCOD        8     A     
 COMCCOD  ***       COD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.                       COMCCOD        9     A     
 COMCCOD  *         G. R. MANSFIELD.  70/12/18.                                            COMCCOD       10     A     
 COMCCOD  *         ADAPTED FROM SUBROUTINE *COD* IN *LIBEDIT*.                            COMCCOD       11     A     
 COMCCOD   COD      SPACE  4                                                               COMCCOD       12     A     
 COMCCOD  ***              COD CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH               COMCCOD       13     A     
 COMCCOD  *         LEADING ZERO SUPPRESSION.  CONVERSION CONTAINS SPACE FILL              COMCCOD       14     A     
 COMCCOD  *         AND IS RIGHT AND LEFT JUSTIFIED.                                       COMCCOD       15     A     
 COMCCOD  *                                                                                COMCCOD       16     A     
 COMCCOD  *         ENTRY  (X1) = NUMBER TO BE CONVERTED.                                  COMCCOD       17     A     
 COMCCOD  *                (B1) = 1.                                                       COMCCOD       18     A     
 COMCCOD  *                                                                                COMCCOD       19     A     
 COMCCOD  *         EXIT   (X6) = DPC CONVERSION RIGHT JUSTIFIED.                          COMCCOD       20     A     
 COMCCOD  *                (X4) = DPC CONVERSION LEFT JUSTIFIED.                           COMCCOD       21     A     
 COMCCOD  *                (B2) = 6*COUNT OF DIGITS CONVERTED.                             COMCCOD       22     A     
 COMCCOD  *                                                                                COMCCOD       23     A     
 COMCCOD  *         USES   X - 1, 2, 3, 4, 6, 7.                                           COMCCOD       24     A     
 COMCCOD  *                B - 2, 3, 4.                                                    COMCCOD       25     A     
 COMCCOD  *                A - 2, 4.                                                       COMCCOD       26     A     
 COMCCOD  *                                                                                COMCCOD       27     A     
 COMCCOD  *         CALLS  NONE.                                                           COMCCOD       28     A     
 COMCCOD                                                                                   COMCCOD       29     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 105    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCOD 
  
 COMCCOD                                                                                   COMCCOD       30     A     
 COMCCOD   COD      PS                 ENTRY/EXIT                                          COMCCOD       31     A     
 COMCCOD            SA4    CODA        =1H                                                 COMCCOD       32     A     
 COMCCOD            SB3    6           (B3) = SHIFT INCREMENT                              COMCCOD       33     A     
 COMCCOD            MX2    -3          (X2) = DIGIT MASK                                   COMCCOD       34     A     
 COMCCOD            SB2    B0          CLEAR JUSTIFY COUNT                                 COMCCOD       35     A     
 COMCCOD            SB4    1R0-1R      (B4) = CONVERSION COUNT                             COMCCOD       36     A     
 COMCCOD   COD1     BX7    -X2*X1      EXTRACT DIGIT                                       COMCCOD       37     A     
 COMCCOD            LX4    -6          SHIFT ASSEMBLY                                      COMCCOD       38     A     
 COMCCOD            SB2    B2+B3                                                           COMCCOD       39     A     
 COMCCOD            SX3    X7+B4       CONVERT DIGIT                                       COMCCOD       40     A     
 COMCCOD            AX1    3           SHIFT OFF DIGIT                                     COMCCOD       41     A     
 COMCCOD            IX4    X4+X3       ADD DIGIT TO ASSEMBLY                               COMCCOD       42     A     
 COMCCOD            NZ     X1,COD1     LOOP TO ZERO DIGIT                                  COMCCOD       43     A     
 COMCCOD            LX4    -6          LEFT JUSTIFY ASSEMBLY                               COMCCOD       44     A     
 COMCCOD            LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY                              COMCCOD       45     A     
 COMCCOD            EQ     COD         RETURN                                              COMCCOD       46     A     
 COMCCOD                                                                                   COMCCOD       47     A     
 COMCCOD   CODA     CON    1H                                                              COMCCOD       48     A     
 COMCCOD            SPACE  4                                                               COMCCOD       49     A     
 COMCCOD            BASE   *                                                               COMCCOD       50     A     
 COMCCOD   QUAL$    IF     -DEF,QUAL$                                                      COMCCOD       51     A     
 COMCCOD            QUAL   *                                                               COMCCOD       52     A     
 COMCCOD   COD      EQU    /COMCCOD/COD                                                    COMCCOD       53     A     
 COMCCOD   QUAL$    ENDIF                                                                  COMCCOD       54     A     
 COMCCOD            ENDX                                                                   COMCCOD       55     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCCOD 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCCOD                     55        55
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCDXB 
  
 COMCDXB  *COMDECK,COMCDXB                                                                 COMCDXB        1     A     
 COMCDXB            CTEXT  COMCDXB - DISPLAY CODE TO BINARY CONVERSION.                    COMCDXB        2     A     
 COMCDXB   DXB      SPACE  4                                                               COMCDXB        3     A     
 COMCDXB            IF     -DEF,QUAL$,1                                                    COMCDXB        4     A     
 COMCDXB            QUAL   COMCDXB                                                         COMCDXB        5     A     
 COMCDXB            BASE   D                                                               COMCDXB        6     A     
 COMCDXB  *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                             COMCDXB        7     A     
 COMCDXB   DXB      SPACE  4                                                               COMCDXB        8     A     
 COMCDXB  ***       DXB - DISPLAY CODE TO BINARY CONVERSION.                               COMCDXB        9     A     
 COMCDXB  *         G. R. MANSFIELD.  70/10/09.                                            COMCDXB       10     A     
 COMCDXB   COMCDXB  SPACE  4                                                               COMCDXB       11     A     
 COMCDXB  ***              DXB CONVERTS ONE WORD OF DISPLAY CODE DIGITS TO                 COMCDXB       12     A     
 COMCDXB  *         A BINARY VALUE.  CONVERSION MAY BE IN OCTAL OR DECIMAL BY              COMCDXB       13     A     
 COMCDXB  *         THE FOLLOWING CONDITIONS.                                              COMCDXB       14     A     
 COMCDXB  *         (1.)  ASSUMED BASE SPECIFIED BY CALLER.                                COMCDXB       15     A     
 COMCDXB  *         (2.)  POST RADIX SPECIFICATION.  (B = OCTAL, D = DECIMAL)              COMCDXB       16     A     
 COMCDXB  *         (3.)  PRESENCE OF 8 OR 9 WILL FORCE DECIMAL IF NO *B* POST             COMCDXB       17     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 106    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCDXB 
  
 COMCDXB  *                RADIX.                                                          COMCDXB       18     A     
 COMCDXB  *         ERROR CONDITIONS SENSED ARE -                                          COMCDXB       19     A     
 COMCDXB  *         (1.)  PRESENCE OF NON-DIGIT IN WORD.                                   COMCDXB       20     A     
 COMCDXB  *         (2.)  PRESENCE OF CHARACTER AFTER POST RADIX.                          COMCDXB       21     A     
 COMCDXB  *         (3.)  PRESENCE OF 8 OR 9 WITH POST RADIX = B.                          COMCDXB       22     A     
 COMCDXB  *                                                                                COMCDXB       23     A     
 COMCDXB  *                                                                                COMCDXB       24     A     
 COMCDXB  *         ENTRY  (X5) = WORD TO CONVERT.                                         COMCDXB       25     A     
 COMCDXB  *                (B7) > 0 IF DECIMAL BASE ASSUMED.                               COMCDXB       26     A     
 COMCDXB  *                (B1) = 1.                                                       COMCDXB       27     A     
 COMCDXB  *                                                                                COMCDXB       28     A     
 COMCDXB  *         EXIT   (X6) = CONVERTED DIGITS.                                        COMCDXB       29     A     
 COMCDXB  *                (X4) " 0 IF ERROR IN ASSEMBLY.                                  COMCDXB       30     A     
 COMCDXB  *                                                                                COMCDXB       31     A     
 COMCDXB  *         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.                                     COMCDXB       32     A     
 COMCDXB  *                B - 2, 3, 4, 5.                                                 COMCDXB       33     A     
 COMCDXB  *                A - NONE.                                                       COMCDXB       34     A     
 COMCDXB  *                                                                                COMCDXB       35     A     
 COMCDXB  *         CALLS  NONE.                                                           COMCDXB       36     A     
 COMCDXB                                                                                   COMCDXB       37     A     
 COMCDXB                                                                                   COMCDXB       38     A     
 COMCDXB   DXB1     LX2    X7,B2       DECIMAL * 10                                        COMCDXB       39     A     
 COMCDXB            IX7    X2+X7                                                           COMCDXB       40     A     
 COMCDXB            LX6    3           OCTAL * 8                                           COMCDXB       41     A     
 COMCDXB            BX2    -X3*X1      8/9 PRESENCE                                        COMCDXB       42     A     
 COMCDXB            LX7    1                                                               COMCDXB       43     A     
 COMCDXB            BX6    X6+X1       OCTAL + NEW DIGIT                                   COMCDXB       44     A     
 COMCDXB            IX7    X7+X1       DECIMAL + NEW DIGIT                                 COMCDXB       45     A     
 COMCDXB            SB5    B5+X2       NOTE 8/9                                            COMCDXB       46     A     
 COMCDXB   DXB2     LX5    6           NEXT CHARACTER                                      COMCDXB       47     A     
 COMCDXB            BX1    -X0*X5                                                          COMCDXB       48     A     
 COMCDXB            SB4    X1          CHECK CHARACTER                                     COMCDXB       49     A     
 COMCDXB            LX2    X4,B4                                                           COMCDXB       50     A     
 COMCDXB            SX1    X1+B3       CONVERT CHARACTER                                   COMCDXB       51     A     
 COMCDXB            BX5    X0*X5       CLEAR CHARACTER                                     COMCDXB       52     A     
 COMCDXB            NG     X2,DXB1     LOOP IF DIGIT                                       COMCDXB       53     A     
 COMCDXB                                                                                   COMCDXB       54     A     
 COMCDXB  *         CHECK FOR POST RADIX SPECIFICATION.                                    COMCDXB       55     A     
 COMCDXB                                                                                   COMCDXB       56     A     
 COMCDXB            SB3    B5+B7       SET BASE (ASSUMED OR 8/9)                           COMCDXB       57     A     
 COMCDXB            ZR     B4,DXB3     IF END OF ASSEMBLY                                  COMCDXB       58     A     
 COMCDXB            SB3    B2+B2       BASE = DECIMAL                                      COMCDXB       59     A     
 COMCDXB            NZ     X5,DXB      RETURN IF NOT LAST CHARACTER                        COMCDXB       60     A     
 COMCDXB            EQ     B4,B3,DXB3  IF *D*                                              COMCDXB       61     A     
 COMCDXB            SB5    B4-B5                                                           COMCDXB       62     A     
 COMCDXB            NE     B5,B2,DXB   RETURN IF NOT *B* OR *B* AND 8/9 PRESENT            COMCDXB       63     A     
 COMCDXB            SB3    B0          SET OCTAL                                           COMCDXB       64     A     
 COMCDXB   DXB3     MX4    0           CLEAR ERROR                                         COMCDXB       65     A     
 COMCDXB            ZR     B3,DXB      RETURN IF BASE = OCTAL                              COMCDXB       66     A     
 COMCDXB            BX6    X7          SET DECIMAL                                         COMCDXB       67     A     
 COMCDXB                                                                                   COMCDXB       68     A     
 COMCDXB   DXB      PS                 ENTRY/EXIT                                          COMCDXB       69     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 107    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCDXB 
  
 COMCDXB            SX4    7774B       MASK FOR \0123456789@                               COMCDXB       70     A     
 COMCDXB            MX0    -6          (X0) = CHARACTER MASK.                              COMCDXB       71     A     
 COMCDXB            SX6    B0          CLEAR OCTAL                                         COMCDXB       72     A     
 COMCDXB            SB2    B1+B1       (B2) = 2                                            COMCDXB       73     A     
 COMCDXB            BX7    X7-X7       CLEAR DECIMAL                                       COMCDXB       74     A     
 COMCDXB            SB3    -1R0        (B3) = CONVERSION CONSTANT                          COMCDXB       75     A     
 COMCDXB            LX4    21                                                              COMCDXB       76     A     
 COMCDXB            SB5    B0          CLEAR 8/9 PRESENCE                                  COMCDXB       77     A     
 COMCDXB            SX3    7           MASK FOR 8/9                                        COMCDXB       78     A     
 COMCDXB            EQ     DXB2        ENTER CONVERSION LOOP                               COMCDXB       79     A     
 COMCDXB            SPACE  4                                                               COMCDXB       80     A     
 COMCDXB            BASE   *                                                               COMCDXB       81     A     
 COMCDXB   QUAL$    IF     -DEF,QUAL$                                                      COMCDXB       82     A     
 COMCDXB            QUAL   *                                                               COMCDXB       83     A     
 COMCDXB   DXB      EQU    /COMCDXB/DXB                                                    COMCDXB       84     A     
 COMCDXB   QUAL$    ENDIF                                                                  COMCDXB       85     A     
 COMCDXB            ENDX                                                                   COMCDXB       86     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCDXB 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCDXB                     86        86
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMVE 
  
 COMCMVE  *COMDECK,COMCMVE                                                                 COMCMVE        1     A     
 COMCMVE            CTEXT  COMCMVE - MOVE BLOCK OF DATA.                                   COMCMVE        2     A     
 COMCMVE   MVE      SPACE  4                                                               COMCMVE        3     A     
 COMCMVE            IF     -DEF,QUAL$,1                                                    COMCMVE        4     A     
 COMCMVE            QUAL   COMCMVE                                                         COMCMVE        5     A     
 COMCMVE            BASE   D                                                               COMCMVE        6     A     
 COMCMVE  *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                             COMCMVE        7     A     
 COMCMVE   MVE      SPACE  4                                                               COMCMVE        8     A     
 COMCMVE  ***       MVE - MOVE BLOCK OF DATA.                                              COMCMVE        9     A     
 COMCMVE  *         G. R. MANSFIELD.  70/10/09.                                            COMCMVE       10     A     
 COMCMVE  *         ADAPTED FROM SUBROUTINE *MOVE* IN *COMPASS VER 2.0*.                   COMCMVE       11     A     
 COMCMVE   MVE      SPACE  4                                                               COMCMVE       12     A     
 COMCMVE  ***              MVE MOVES A BLOCK OF DATA.                                      COMCMVE       13     A     
 COMCMVE  *                                                                                COMCMVE       14     A     
 COMCMVE  *         ENTRY  (X1) = WORD COUNT.                                              COMCMVE       15     A     
 COMCMVE  *                (X2) = SOURCE ADDRESS.                                          COMCMVE       16     A     
 COMCMVE  *                (X3) = DESTINATION ADDRESS.                                     COMCMVE       17     A     
 COMCMVE  *                (B1) = 1                                                        COMCMVE       18     A     
 COMCMVE  *                                                                                COMCMVE       19     A     
 COMCMVE  *         EXIT   NONE.                                                           COMCMVE       20     A     
 COMCMVE  *                                                                                COMCMVE       21     A     
 COMCMVE  *         USES   X - 1, 2, 3, 4, 6, 7.                                           COMCMVE       22     A     
 COMCMVE  *                B - 7.                                                          COMCMVE       23     A     
 COMCMVE  *                A - 2, 4, 6, 7.                                                 COMCMVE       24     A     
 COMCMVE  *                                                                                COMCMVE       25     A     
 COMCMVE  *         CALLS  NONE.                                                           COMCMVE       26     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 108    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMVE 
  
 COMCMVE                                                                                   COMCMVE       27     A     
 COMCMVE                                                                                   COMCMVE       28     A     
 COMCMVE  *         BEGIN UPWARD MOVE.                                                     COMCMVE       29     A     
 COMCMVE                                                                                   COMCMVE       30     A     
 COMCMVE   MVE2     SB7    -2          UPWARD MOVE                                         COMCMVE       31     A     
 COMCMVE            SX2    X2+B7                                                           COMCMVE       32     A     
 COMCMVE            SX3    X3+B7                                                           COMCMVE       33     A     
 COMCMVE            SB7    B1+B1                                                           COMCMVE       34     A     
 COMCMVE            ZR     X6,MVE3     IF WORD COUNT EVEN                                  COMCMVE       35     A     
 COMCMVE            SA4    X2+B7       MOVE INITIAL WORD                                   COMCMVE       36     A     
 COMCMVE            IX2    X2+X6                                                           COMCMVE       37     A     
 COMCMVE            BX7    X4                                                              COMCMVE       38     A     
 COMCMVE            SA7    X3+B7                                                           COMCMVE       39     A     
 COMCMVE            IX3    X3+X6                                                           COMCMVE       40     A     
 COMCMVE                                                                                   COMCMVE       41     A     
 COMCMVE  *         INITIALIZE MOVE LOOP.                                                  COMCMVE       42     A     
 COMCMVE                                                                                   COMCMVE       43     A     
 COMCMVE   MVE3     ZR     X1,MVE=     IF MOVE COMPLETE                                    COMCMVE       44     A     
 COMCMVE            SA2    X2+B7       MOVE FIRST 2 WORDS                                  COMCMVE       45     A     
 COMCMVE            SA4    A2+B1                                                           COMCMVE       46     A     
 COMCMVE            BX6    X2                                                              COMCMVE       47     A     
 COMCMVE            LX7    X4                                                              COMCMVE       48     A     
 COMCMVE            SA6    X3+B7                                                           COMCMVE       49     A     
 COMCMVE            SA7    A6+B1                                                           COMCMVE       50     A     
 COMCMVE            SX3    B1+B1                                                           COMCMVE       51     A     
 COMCMVE            IX1    X1-X3                                                           COMCMVE       52     A     
 COMCMVE            ZR     X1,MVE=     IF MOVE COMPLETE                                    COMCMVE       53     A     
 COMCMVE            SA2    A2+B7       NEXT 2 WORDS                                        COMCMVE       54     A     
 COMCMVE            SA4    A4+B7                                                           COMCMVE       55     A     
 COMCMVE                                                                                   COMCMVE       56     A     
 COMCMVE  *         MOVE LOOP.                                                             COMCMVE       57     A     
 COMCMVE                                                                                   COMCMVE       58     A     
 COMCMVE   MVE4     BX6    X2                                                              COMCMVE       59     A     
 COMCMVE            SA2    A2+B7                                                           COMCMVE       60     A     
 COMCMVE            LX7    X4                                                              COMCMVE       61     A     
 COMCMVE            SA4    A4+B7                                                           COMCMVE       62     A     
 COMCMVE            IX1    X1-X3                                                           COMCMVE       63     A     
 COMCMVE            NO                                                                     COMCMVE       64     A     
 COMCMVE            SA6    A6+B7                                                           COMCMVE       65     A     
 COMCMVE            SA7    A7+B7                                                           COMCMVE       66     A     
 COMCMVE            NZ     X1,MVE4                                                         COMCMVE       67     A     
 COMCMVE                                                                                   COMCMVE       68     A     
 COMCMVE   MVE=     PS                 ENTRY/EXIT                                          COMCMVE       69     A     
 COMCMVE            IX4    X2-X3       CHECK DIRECTION OF MOVE                             COMCMVE       70     A     
 COMCMVE            MX7    59                                                              COMCMVE       71     A     
 COMCMVE            BX6    -X7*X1                                                          COMCMVE       72     A     
 COMCMVE            IX1    X1-X6       REDUCE WORD COUNT TO EVEN NUMBER                    COMCMVE       73     A     
 COMCMVE            PL     X4,MVE2     IF MOVE UP                                          COMCMVE       74     A     
 COMCMVE                                                                                   COMCMVE       75     A     
 COMCMVE  *         BEGIN DOWNWARD MOVE.                                                   COMCMVE       76     A     
 COMCMVE                                                                                   COMCMVE       77     A     
 COMCMVE            ZR     X6,MVE1     IF WORD COUNT EVEN                                  COMCMVE       78     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 109    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMVE 
  
 COMCMVE            SB7    X1                                                              COMCMVE       79     A     
 COMCMVE            SA4    X2+B7       MOVE INITIAL WORD                                   COMCMVE       80     A     
 COMCMVE            BX6    X4                                                              COMCMVE       81     A     
 COMCMVE            SA6    X3+B7                                                           COMCMVE       82     A     
 COMCMVE   MVE1     IX2    X2+X1                                                           COMCMVE       83     A     
 COMCMVE            IX3    X3+X1                                                           COMCMVE       84     A     
 COMCMVE            SB7    -2                                                              COMCMVE       85     A     
 COMCMVE            EQ     MVE3                                                            COMCMVE       86     A     
 COMCMVE            SPACE  4                                                               COMCMVE       87     A     
 COMCMVE            BASE   *                                                               COMCMVE       88     A     
 COMCMVE   QUAL$    IF     -DEF,QUAL$                                                      COMCMVE       89     A     
 COMCMVE            QUAL   *                                                               COMCMVE       90     A     
 COMCMVE   MVE=     EQU    /COMCMVE/MVE=                                                   COMCMVE       91     A     
 COMCMVE   QUAL$    ENDIF                                                                  COMCMVE       92     A     
 COMCMVE            ENDX                                                                   COMCMVE       93     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCMVE 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCMVE                     93        93
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDC 
  
 COMCRDC  *COMDECK,COMCRDC                                                                 COMCRDC        1     A     
 COMCRDC            CTEXT  COMCRDC - READ CODED LINE, -C- FORMAT.                          COMCRDC        2     A     
 COMCRDC   RDC      SPACE  4                                                               COMCRDC        3     A     
 COMCRDC            IF     -DEF,QUAL$,1                                                    COMCRDC        4     A     
 COMCRDC            QUAL   COMCRDC                                                         COMCRDC        5     A     
 COMCRDC            BASE   D                                                               COMCRDC        6     A     
 COMCRDC  *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                             COMCRDC        7     A     
 COMCRDC   RDC      SPACE  4                                                               COMCRDC        8     A     
 COMCRDC  ***       RDC - READ CODED LINE, -C- FORMAT.                                     COMCRDC        9     A     
 COMCRDC  *         G. R. MANSFIELD.  70/10/09.                                            COMCRDC       10     A     
 COMCRDC   RDC      SPACE  4                                                               COMCRDC       11     A     
 COMCRDC  ***              RDC READS 1 CODED LINE FROM A CIO BUFFER TO A                   COMCRDC       12     A     
 COMCRDC  *         WORKING BUFFER.                                                        COMCRDC       13     A     
 COMCRDC  *                                                                                COMCRDC       14     A     
 COMCRDC  *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                                 COMCRDC       15     A     
 COMCRDC  *                (B6) = FWA WORKING BUFFER.                                      COMCRDC       16     A     
 COMCRDC  *                (B7) = WORD COUNT OF WORKING BUFFER.                            COMCRDC       17     A     
 COMCRDC  *                                                                                COMCRDC       18     A     
 COMCRDC  *         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                                 COMCRDC       19     A     
 COMCRDC  *                (X1) = -1 IF EOF DETECTED ON FILE.                              COMCRDC       20     A     
 COMCRDC  *                (X1) = -2 IF EOI DETECTED ON FILE.                              COMCRDC       21     A     
 COMCRDC  *                (X1) = (B6) IF EOR WAS DETECTED ON FILE BEFORE                  COMCRDC       22     A     
 COMCRDC  *                             TRANSFER WAS COMPLETED.                            COMCRDC       23     A     
 COMCRDC  *                (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO             COMCRDC       24     A     
 COMCRDC  *                             WORKING BUFFER.                                    COMCRDC       25     A     
 COMCRDC  *                (X2) = ADDRESS OF FET FOR FILE.                                 COMCRDC       26     A     
 COMCRDC  *                                                                                COMCRDC       27     A     
 COMCRDC  *         USES   X - 1, 2, 3, 4, 6, 7.                                           COMCRDC       28     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 110    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDC 
  
 COMCRDC  *                B - 1, 2, 3, 4, 5, 6, 7.                                        COMCRDC       29     A     
 COMCRDC  *                A - 1, 2, 3, 4, 6, 7.                                           COMCRDC       30     A     
 COMCRDC  *                                                                                COMCRDC       31     A     
 COMCRDC  *         CALLS  LCB=, RXT=.                                                     COMCRDC       32     A     
 COMCRDC                                                                                   COMCRDC       33     A     
 COMCRDC                                                                                   COMCRDC       34     A     
 COMCRDC   +        EQ     RDC1                                                            COMCRDC       35     A     
 COMCRDC                                                                                   COMCRDC       36     A     
 COMCRDC   RDC=     PS                 ENTRY/EXIT                                          COMCRDC       37     A     
 COMCRDC            SA4    *-1         SET RETURN ADDRESS                                  COMCRDC       38     A     
 COMCRDC                                                                                   COMCRDC       39     A     
 COMCRDC            IF     -DEF,B1=1,1                                                     COMCRDC       40     A     
 COMCRDC            SB1    1                                                               COMCRDC       41     A     
 COMCRDC                                                                                   COMCRDC       42     A     
 COMCRDC            SA1    X2+4        (B5) = LIMIT                                        COMCRDC       43     A     
 COMCRDC            SA3    X2+B1       (X3) = FIRST                                        COMCRDC       44     A     
 COMCRDC            SB7    B6+B7       (B7) = LWA+1 WORKING BUFFER                         COMCRDC       45     A     
 COMCRDC            MX4    -12         (X4) = BYTE MASK                                    COMCRDC       46     A     
 COMCRDC            SB5    X1                                                              COMCRDC       47     A     
 COMCRDC                                                                                   COMCRDC       48     A     
 COMCRDC  *         INITIALIZE REGISTERS FOR TRANSFER.                                     COMCRDC       49     A     
 COMCRDC                                                                                   COMCRDC       50     A     
 COMCRDC   RDC1     SA1    A3+B1       (B3) = IN                                           COMCRDC       51     A     
 COMCRDC            SA2    A1+B1       (B4) = OUT                                          COMCRDC       52     A     
 COMCRDC            SB3    X1                                                              COMCRDC       53     A     
 COMCRDC            SB4    X2                                                              COMCRDC       54     A     
 COMCRDC                                                                                   COMCRDC       55     A     
 COMCRDC  *         TRANSFER DATA FROM CIRCULAR BUFFER TO WORKING BUFFER.                  COMCRDC       56     A     
 COMCRDC                                                                                   COMCRDC       57     A     
 COMCRDC   RDC2     EQ     B4,B3,=XLCB= LOAD CIRCULAR BUFFER IF OUT = IN                   COMCRDC       58     A     
 COMCRDC            SA1    B4          READ WORD                                           COMCRDC       59     A     
 COMCRDC            BX6    X1                                                              COMCRDC       60     A     
 COMCRDC            SB4    B4+B1       (OUT+1)                                             COMCRDC       61     A     
 COMCRDC            NE     B4,B5,RDC3  IF (OUT+1) " LIMIT                                  COMCRDC       62     A     
 COMCRDC            SB4    X3          (OUT+1) = FIRST                                     COMCRDC       63     A     
 COMCRDC   RDC3     SA6    B6          STORE WORD                                          COMCRDC       64     A     
 COMCRDC            BX7    -X4*X6      CHECK LOWER BYTE                                    COMCRDC       65     A     
 COMCRDC            SB6    B6+B1       ADVANCE WORKING BUFFER                              COMCRDC       66     A     
 COMCRDC            ZR     X7,=XRDX=   EXIT IF END OF LINE                                 COMCRDC       67     A     
 COMCRDC            NE     B6,B7,RDC2  LOOP TO FILL WORKING BUFFER                         COMCRDC       68     A     
 COMCRDC            BX6    X4*X6       CLEAR LAST BYTE                                     COMCRDC       69     A     
 COMCRDC            SA6    A6                                                              COMCRDC       70     A     
 COMCRDC            EQ     =XRDX=      EXIT                                                COMCRDC       71     A     
 COMCRDC            SPACE  4                                                               COMCRDC       72     A     
 COMCRDC            BASE   *                                                               COMCRDC       73     A     
 COMCRDC   QUAL$    IF     -DEF,QUAL$                                                      COMCRDC       74     A     
 COMCRDC            QUAL   *                                                               COMCRDC       75     A     
 COMCRDC   RDC=     EQU    /COMCRDC/RDC=                                                   COMCRDC       76     A     
 COMCRDC   QUAL$    ENDIF                                                                  COMCRDC       77     A     
 COMCRDC            ENDX                                                                   COMCRDC       78     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 111    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCRDC 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCRDC                     78        78
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDW 
  
 COMCRDW  *COMDECK,COMCRDW                                                                 COMCRDW        1     A     
 COMCRDW            CTEXT  COMCRDW - READ WORDS TO WORKING BUFFER.                         COMCRDW        2     A     
 COMCRDW   RDW      SPACE  4                                                               COMCRDW        3     A     
 COMCRDW            IF     -DEF,QUAL$,1                                                    COMCRDW        4     A     
 COMCRDW            QUAL   COMCRDW                                                         COMCRDW        5     A     
 COMCRDW            BASE   D                                                               COMCRDW        6     A     
 COMCRDW  *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                             COMCRDW        7     A     
 COMCRDW   RDW      SPACE  4                                                               COMCRDW        8     A     
 COMCRDW  ***       RDW - READ WORDS TO WORKING BUFFER.                                    COMCRDW        9     A     
 COMCRDW  *         D. A. CAHLANDER.  70/11/29.                                            COMCRDW       10     A     
 COMCRDW   RDW      SPACE  4                                                               COMCRDW       11     A     
 COMCRDW  ***              RDW READS A GIVEN NUMBER OF WORDS FROM A CIO BUFFER TO          COMCRDW       12     A     
 COMCRDW  *         A WORKING BUFFER.  THIS DECK ALSO CONTAINS LCB=, RDX=.                 COMCRDW       13     A     
 COMCRDW  *                                                                                COMCRDW       14     A     
 COMCRDW  *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                                 COMCRDW       15     A     
 COMCRDW  *                (B6) = FWA WORKING BUFFER.                                      COMCRDW       16     A     
 COMCRDW  *                (B7) = WORD COUNT OF WORKING BUFFER.                            COMCRDW       17     A     
 COMCRDW  *                                                                                COMCRDW       18     A     
 COMCRDW  *         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                                 COMCRDW       19     A     
 COMCRDW  *                (X1) = -1 IF EOF DETECTED ON FILE.                              COMCRDW       20     A     
 COMCRDW  *                (X1) = -2 IF EOI DETECTED ON FILE.                              COMCRDW       21     A     
 COMCRDW  *                (X1) = (B6) IF EOR WAS DETECTED ON FILE BEFORE                  COMCRDW       22     A     
 COMCRDW  *                             TRANSFER WAS COMPLETED.                            COMCRDW       23     A     
 COMCRDW  *                (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO             COMCRDW       24     A     
 COMCRDW  *                             WORKING BUFFER.                                    COMCRDW       25     A     
 COMCRDW  *                (X2) = ADDRESS OF FET FOR FILE.                                 COMCRDW       26     A     
 COMCRDW  *                                                                                COMCRDW       27     A     
 COMCRDW  *         USES   X - 1, 2, 3, 4, 6, 7.                                           COMCRDW       28     A     
 COMCRDW  *                B - 1, 2, 3, 4, 5, 6, 7.                                        COMCRDW       29     A     
 COMCRDW  *                A - 1, 2, 3, 4, 6, 7.                                           COMCRDW       30     A     
 COMCRDW  *                                                                                COMCRDW       31     A     
 COMCRDW  *         CALLS  CIO=, LCB=, RDX=.                                               COMCRDW       32     A     
 COMCRDW                                                                                   COMCRDW       33     A     
 COMCRDW                                                                                   COMCRDW       34     A     
 COMCRDW   RDW7     SX6    B4+B3       ADVANCE OUT                                         COMCRDW       35     A     
 COMCRDW            SB4    B4+B3                                                           COMCRDW       36     A     
 COMCRDW            SB6    B6+B3                                                           COMCRDW       37     A     
 COMCRDW            SB7    B7-B3                                                           COMCRDW       38     A     
 COMCRDW            NE     B4,B5,RDW8  IF OUT " LIMIT                                      COMCRDW       39     A     
 COMCRDW            SA1    X2+B1       READ FIRST                                          COMCRDW       40     A     
 COMCRDW            SX6    X1          OUT = FIRST                                         COMCRDW       41     A     
 COMCRDW   RDW8     SA6    A3          UPDATE OUT                                          COMCRDW       42     A     
 COMCRDW            MX1    0                                                               COMCRDW       43     A     
 COMCRDW            NZ     B7,RDW1     IF NOT END OF TRANSFER                              COMCRDW       44     A     
 COMCRDW                                                                                   COMCRDW       45     A     
 COMCRDW   RDW=     PS                 ENTRY/EXIT                                          COMCRDW       46     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 112    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDW 
  
 COMCRDW   RDW1     SA3    X2+3        (B4) = OUT                                          COMCRDW       47     A     
 COMCRDW            SA1    X2+2        (B3) = IN                                           COMCRDW       48     A     
 COMCRDW            IF     -DEF,B1=1,1                                                     COMCRDW       49     A     
 COMCRDW            SB1    1                                                               COMCRDW       50     A     
 COMCRDW            SA4    A3+B1       (B5) = LIMIT                                        COMCRDW       51     A     
 COMCRDW            SB4    X3                                                              COMCRDW       52     A     
 COMCRDW            SB3    X1                                                              COMCRDW       53     A     
 COMCRDW            SA1    X3          READ FIRST WORD                                     COMCRDW       54     A     
 COMCRDW            SB5    X4                                                              COMCRDW       55     A     
 COMCRDW            GE     B3,B4,RDW2  IF NO END AROUND                                    COMCRDW       56     A     
 COMCRDW            SB3    B5                                                              COMCRDW       57     A     
 COMCRDW   RDW2     SB3    B3-B4       FREE DATA LENGTH                                    COMCRDW       58     A     
 COMCRDW            LE     B3,B7,RDW3  IF NOT ENOUGH ROOM                                  COMCRDW       59     A     
 COMCRDW            SB3    B7                                                              COMCRDW       60     A     
 COMCRDW   RDW3     ZR     B3,RDW9     IF NO DATA                                          COMCRDW       61     A     
 COMCRDW            BX7    X1                                                              COMCRDW       62     A     
 COMCRDW            SA1    A1+B1                                                           COMCRDW       63     A     
 COMCRDW                                                                                   COMCRDW       64     A     
 COMCRDW  *         INITIALIZE REGISTERS FOR TRANSFER.                                     COMCRDW       65     A     
 COMCRDW                                                                                   COMCRDW       66     A     
 COMCRDW            SX4    B3-B1                                                           COMCRDW       67     A     
 COMCRDW            MX6    -3                                                              COMCRDW       68     A     
 COMCRDW            SA7    B6                                                              COMCRDW       69     A     
 COMCRDW            BX3    -X6*X4      NUMBER OF ODD WORDS                                 COMCRDW       70     A     
 COMCRDW            AX4    3           NUMBER OF BLOCKS                                    COMCRDW       71     A     
 COMCRDW                                                                                   COMCRDW       72     A     
 COMCRDW  *         TRANSFER UP TO 7 WORDS.                                                COMCRDW       73     A     
 COMCRDW                                                                                   COMCRDW       74     A     
 COMCRDW            ZR     X3,RDW5     IF NO ODD WORDS                                     COMCRDW       75     A     
 COMCRDW   RDW4     SX3    X3-1                                                            COMCRDW       76     A     
 COMCRDW            BX7    X1                                                              COMCRDW       77     A     
 COMCRDW            SA1    A1+B1                                                           COMCRDW       78     A     
 COMCRDW            SA7    A7+B1                                                           COMCRDW       79     A     
 COMCRDW            NZ     X3,RDW4     LOOP                                                COMCRDW       80     A     
 COMCRDW                                                                                   COMCRDW       81     A     
 COMCRDW  *         PRE-READ REGISTERS.                                                    COMCRDW       82     A     
 COMCRDW                                                                                   COMCRDW       83     A     
 COMCRDW   RDW5     ZR     X4,RDW7     IF NO BLOCKS                                        COMCRDW       84     A     
 COMCRDW            SB5    X2                                                              COMCRDW       85     A     
 COMCRDW            SA2    A1+B1                                                           COMCRDW       86     A     
 COMCRDW            SB2    B1+B1       (B2) = 2                                            COMCRDW       87     A     
 COMCRDW            SA3    A2+B1                                                           COMCRDW       88     A     
 COMCRDW            SB4    X4          (B4) = LOOP COUNT                                   COMCRDW       89     A     
 COMCRDW            SA4    A3+B1                                                           COMCRDW       90     A     
 COMCRDW                                                                                   COMCRDW       91     A     
 COMCRDW  *         TRANSFER 8 WORD BLOCKS.                                                COMCRDW       92     A     
 COMCRDW                                                                                   COMCRDW       93     A     
 COMCRDW   RDW6     BX6    X1                                                              COMCRDW       94     A     
 COMCRDW            LX7    X2                                                              COMCRDW       95     A     
 COMCRDW            SA1    A3+B2                                                           COMCRDW       96     A     
 COMCRDW            SA2    A4+B2                                                           COMCRDW       97     A     
 COMCRDW            SA6    A7+B1                                                           COMCRDW       98     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 113    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDW 
  
 COMCRDW            SB4    B4-B1                                                           COMCRDW       99     A     
 COMCRDW            SA7    A6+B1                                                           COMCRDW      100     A     
 COMCRDW            BX6    X3                                                              COMCRDW      101     A     
 COMCRDW            LX7    X4                                                              COMCRDW      102     A     
 COMCRDW            SA3    A1+B2                                                           COMCRDW      103     A     
 COMCRDW            SA4    A2+B2                                                           COMCRDW      104     A     
 COMCRDW            SA6    A6+B2                                                           COMCRDW      105     A     
 COMCRDW            SA7    A7+B2                                                           COMCRDW      106     A     
 COMCRDW            BX6    X1                                                              COMCRDW      107     A     
 COMCRDW            LX7    X2                                                              COMCRDW      108     A     
 COMCRDW            SA1    A3+B2                                                           COMCRDW      109     A     
 COMCRDW            SA2    A4+B2                                                           COMCRDW      110     A     
 COMCRDW            SA6    A6+B2                                                           COMCRDW      111     A     
 COMCRDW            SA7    A7+B2                                                           COMCRDW      112     A     
 COMCRDW            BX6    X3                                                              COMCRDW      113     A     
 COMCRDW            LX7    X4                                                              COMCRDW      114     A     
 COMCRDW            SA3    A1+B2                                                           COMCRDW      115     A     
 COMCRDW            SA4    A2+B2                                                           COMCRDW      116     A     
 COMCRDW            SA6    A6+B2                                                           COMCRDW      117     A     
 COMCRDW            SA7    A7+B2                                                           COMCRDW      118     A     
 COMCRDW            NZ     B4,RDW6     LOOP                                                COMCRDW      119     A     
 COMCRDW                                                                                   COMCRDW      120     A     
 COMCRDW  *         READ EXIT.                                                             COMCRDW      121     A     
 COMCRDW                                                                                   COMCRDW      122     A     
 COMCRDW            SA3    B5+3        OUT                                                 COMCRDW      123     A     
 COMCRDW            SX2    B5                                                              COMCRDW      124     A     
 COMCRDW            SA1    A3+B1       (B5) = LIMIT                                        COMCRDW      125     A     
 COMCRDW            SA4    B5          CHECK BUFFER STATUS                                 COMCRDW      126     A     
 COMCRDW            SB6    B6+B3                                                           COMCRDW      127     A     
 COMCRDW            SB7    B7-B3                                                           COMCRDW      128     A     
 COMCRDW            SB4    X3+B3       ADVANCE OUT                                         COMCRDW      129     A     
 COMCRDW            SX6    X3+B3                                                           COMCRDW      130     A     
 COMCRDW            SB5    X1                                                              COMCRDW      131     A     
 COMCRDW            LX4    59-0                                                            COMCRDW      132     A     
 COMCRDW            SA1    X2+B1       READ FIRST                                          COMCRDW      133     A     
 COMCRDW            NE     B4,B5,RDW14 IF OUT " LIMIT                                      COMCRDW      134     A     
 COMCRDW            SX6    X1          OUT = FIRST                                         COMCRDW      135     A     
 COMCRDW                                                                                   COMCRDW      136     A     
 COMCRDW  *         TRY TO BUFFER AHEAD.                                                   COMCRDW      137     A     
 COMCRDW                                                                                   COMCRDW      138     A     
 COMCRDW   RDW14    PL     X4,RDW8     IF BUFFER BUSY                                      COMCRDW      139     A     
 COMCRDW            LX4    0-4                                                             COMCRDW      140     A     
 COMCRDW            NG     X4,RDW8     IF EOR/EOF SET                                      COMCRDW      141     A     
 COMCRDW            SA4    X2+2        READ IN                                             COMCRDW      142     A     
 COMCRDW            SB2    X1          (LIMIT - FIRST)                                     COMCRDW      143     A     
 COMCRDW            SX1    B5-B2                                                           COMCRDW      144     A     
 COMCRDW            IX7    X4-X6       (IN-OUT)                                            COMCRDW      145     A     
 COMCRDW            LX3    X7,B1       2*(IN-OUT)                                          COMCRDW      146     A     
 COMCRDW            AX7    60          SIGN OF (IN-OUT)                                    COMCRDW      147     A     
 COMCRDW            BX4    X7-X1       INVERT BUFFER IF OUT \ IN                           COMCRDW      148     A     
 COMCRDW            IX7    X4-X3       BUFFER SIZE - 2*(IN-OUT)                            COMCRDW      149     A     
 COMCRDW            NG     X7,RDW8     IF BUFFER THRESHOLD NOT REACHED                     COMCRDW      150     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 114    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDW 
  
 COMCRDW            SA6    A3          UPDATE OUT                                          COMCRDW      151     A     
 COMCRDW            SA1    X2          ISSUE PREVIOUS READ FUNCTION                        COMCRDW      152     A     
 COMCRDW            SX7    740770B/2                                                       COMCRDW      153     A     
 COMCRDW            AX1    1                                                               COMCRDW      154     A     
 COMCRDW            BX7    X7*X1                                                           COMCRDW      155     A     
 COMCRDW            LX7    1                                                               COMCRDW      156     A     
 COMCRDW            RJ     =XCIO=                                                          COMCRDW      157     A     
 COMCRDW            MX1    0           RESPONSE = 0                                        COMCRDW      158     A     
 COMCRDW            NZ     B7,RDW1     IF NOT DONE                                         COMCRDW      159     A     
 COMCRDW            JP     RDW=        RETURN                                              COMCRDW      160     A     
 COMCRDW                                                                                   COMCRDW      161     A     
 COMCRDW  *         LOAD CIRCULAR BUFFER.                                                  COMCRDW      162     A     
 COMCRDW                                                                                   COMCRDW      163     A     
 COMCRDW   RDW9     SA1    X2          CHECK BUFFER STATUS                                 COMCRDW      164     A     
 COMCRDW            SA3    X2+2        READ IN                                             COMCRDW      165     A     
 COMCRDW            LX1    59-0                                                            COMCRDW      166     A     
 COMCRDW            NG     X1,RDW11    IF BUFFER NOT BUSY                                  COMCRDW      167     A     
 COMCRDW            RECALL                                                                 COMCRDW      168     A     
 COMCRDW   RDW10    JP     RDW1        CONTINUE READ                                       COMCRDW      169     A     
 COMCRDW                                                                                   COMCRDW      170     A     
 COMCRDW   RDW11    SB3    X3                                                              COMCRDW      171     A     
 COMCRDW            LX1    0-4                                                             COMCRDW      172     A     
 COMCRDW            NE     B3,B4,RDW1  IF BUFFER NOT EMPTY                                 COMCRDW      173     A     
 COMCRDW            NG     X1,RDW12    IF EOR SET                                          COMCRDW      174     A     
 COMCRDW            SX6    740770B/2   ISSUE PREVIOUS READ FUNCTION                        COMCRDW      175     A     
 COMCRDW            LX1    4                                                               COMCRDW      176     A     
 COMCRDW            BX7    X6*X1                                                           COMCRDW      177     A     
 COMCRDW            LX7    1                                                               COMCRDW      178     A     
 COMCRDW            RJ     =XCIO=                                                          COMCRDW      179     A     
 COMCRDW            JP     RDW1        CONTINUE READ                                       COMCRDW      180     A     
 COMCRDW                                                                                   COMCRDW      181     A     
 COMCRDW   RDW12    SA3    X2+B1       SET IN = OUT = FIRST                                COMCRDW      182     A     
 COMCRDW            LX6    X1,B1                                                           COMCRDW      183     A     
 COMCRDW            SX1    B6+0                                                            COMCRDW      184     A     
 COMCRDW            PL     X6,RDW13    IF NOT EOF                                          COMCRDW      185     A     
 COMCRDW            LX6    3-9                                                             COMCRDW      186     A     
 COMCRDW            MX1    -1                                                              COMCRDW      187     A     
 COMCRDW            PL     X6,RDW13    IF NOT EOI                                          COMCRDW      188     A     
 COMCRDW            SX1    -2                                                              COMCRDW      189     A     
 COMCRDW   RDW13    SX7    X3                                                              COMCRDW      190     A     
 COMCRDW            SA7    A3+B1                                                           COMCRDW      191     A     
 COMCRDW            NO                                                                     COMCRDW      192     A     
 COMCRDW            SA7    A7+B1                                                           COMCRDW      193     A     
 COMCRDW            JP     RDW=        RETURN                                              COMCRDW      194     A     
 COMCRDW   RDX      SPACE  4                                                               COMCRDW      195     A     
 COMCRDW  **        RDX - READ EXIT.                                                       COMCRDW      196     A     
 COMCRDW  *         EXIT FROM READ SUBROUTINE TO CALLER.                                   COMCRDW      197     A     
 COMCRDW  *         IF CIRCULAR BUFFER IS BUSY, OR EOR/EOF IS SENSED, NO ACTION            COMCRDW      198     A     
 COMCRDW  *         IS TAKEN.                                                              COMCRDW      199     A     
 COMCRDW  *         OTHERWISE, THE WORD COUNT REMAINING IN THE BUFFER IS CHECKED           COMCRDW      200     A     
 COMCRDW  *         AND PREVIOUS READ FUNCTION ISSUED IF NECESSARY.                        COMCRDW      201     A     
 COMCRDW  *                                                                                COMCRDW      202     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 115    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDW 
  
 COMCRDW  *         ENTRY  (A2) = ADDRESS OF OUT.                                          COMCRDW      203     A     
 COMCRDW  *                (A3) = ADDRESS OF FIRST.                                        COMCRDW      204     A     
 COMCRDW  *                (A4) = RETURN ADDRESS.                                          COMCRDW      205     A     
 COMCRDW  *                (X3) = FIRST.                                                   COMCRDW      206     A     
 COMCRDW  *                (B3) = IN.                                                      COMCRDW      207     A     
 COMCRDW  *                (B4) = OUT.                                                     COMCRDW      208     A     
 COMCRDW  *                (B5) = LIMIT.                                                   COMCRDW      209     A     
 COMCRDW  *                                                                                COMCRDW      210     A     
 COMCRDW  *         EXIT   TO RETURN ADDRESS.                                              COMCRDW      211     A     
 COMCRDW  *                                                                                COMCRDW      212     A     
 COMCRDW  *         CALLS  CIO=.                                                           COMCRDW      213     A     
 COMCRDW                                                                                   COMCRDW      214     A     
 COMCRDW                                                                                   COMCRDW      215     A     
 COMCRDW   RDX=     SA1    A3-B1       CHECK BUFFER STATUS                                 COMCRDW      216     A     
 COMCRDW            SX6    B4          STORE OUT                                           COMCRDW      217     A     
 COMCRDW            LX1    59                                                              COMCRDW      218     A     
 COMCRDW            SA6    A2                                                              COMCRDW      219     A     
 COMCRDW            SX2    A3-B1       RESET (X2)                                          COMCRDW      220     A     
 COMCRDW            PL     X1,RDX1     IF BUFFER BUSY                                      COMCRDW      221     A     
 COMCRDW            LX1    -4                                                              COMCRDW      222     A     
 COMCRDW            NG     X1,RDX1     IF EOR/EOF SET                                      COMCRDW      223     A     
 COMCRDW                                                                                   COMCRDW      224     A     
 COMCRDW  *         IF BUFFER IS NOT BUSY, CHECK BUFFER SIZE.                              COMCRDW      225     A     
 COMCRDW  *         ISSUE READ IF BUFFER THRESHOLD IS REACHED.                             COMCRDW      226     A     
 COMCRDW                                                                                   COMCRDW      227     A     
 COMCRDW            SX6    B3-B4       (IN-OUT)                                            COMCRDW      228     A     
 COMCRDW            SB2    X3          (LIMIT-FIRST)                                       COMCRDW      229     A     
 COMCRDW            LX3    X6,B1       2*(IN-OUT)                                          COMCRDW      230     A     
 COMCRDW            SX7    B5-B2                                                           COMCRDW      231     A     
 COMCRDW            AX6    60          SIGN OF (IN-OUT)                                    COMCRDW      232     A     
 COMCRDW            BX4    X6-X7       INVERT BUFFER IF OUT \ IN                           COMCRDW      233     A     
 COMCRDW            IX6    X4-X3       BUFFER SIZE - 2*(IN-OUT)                            COMCRDW      234     A     
 COMCRDW            NG     X6,RDX1     IF BUFFER THRESHOLD NOT REACHED                     COMCRDW      235     A     
 COMCRDW            LX1    4           ISSUE PREVIOUS READ FUNCTION                        COMCRDW      236     A     
 COMCRDW            SX6    740770B/2                                                       COMCRDW      237     A     
 COMCRDW            BX7    X6*X1                                                           COMCRDW      238     A     
 COMCRDW            LX7    1                                                               COMCRDW      239     A     
 COMCRDW            RJ     =XCIO=                                                          COMCRDW      240     A     
 COMCRDW   RDX1     SX1    B0          RESPONSE = 0                                        COMCRDW      241     A     
 COMCRDW            SB2    A4          SET RETURN ADDRESS                                  COMCRDW      242     A     
 COMCRDW            JP     B2          RETURN                                              COMCRDW      243     A     
 COMCRDW   LCB      SPACE  4                                                               COMCRDW      244     A     
 COMCRDW  **        LCB - LOAD CIRCULAR BUFFER.                                            COMCRDW      245     A     
 COMCRDW  *         REQUEST READ IF BUFFER IS EMPTY, NOT BUSY AND NOE EOR/EOF.             COMCRDW      246     A     
 COMCRDW  *         IF BUFFER IS BUSY, RECALL AND RETURN.                                  COMCRDW      247     A     
 COMCRDW  *                                                                                COMCRDW      248     A     
 COMCRDW  *         ENTRY  (A2) = ADDRESS OF OUT.                                          COMCRDW      249     A     
 COMCRDW  *                (A3) = ADDRESS OF FIRST.                                        COMCRDW      250     A     
 COMCRDW  *                (A4) = RETURN ADDRESS.                                          COMCRDW      251     A     
 COMCRDW  *                (B4) = OUT.                                                     COMCRDW      252     A     
 COMCRDW  *                                                                                COMCRDW      253     A     
 COMCRDW  *         EXIT   TO RETURN ADDRESS - 1 IF CONTINUATION READ.                     COMCRDW      254     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 116    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDW 
  
 COMCRDW  *                TO RETURN ADDRESS IF EOR/EOF.                                   COMCRDW      255     A     
 COMCRDW  *                (X1) = LAST WORD ADDRESS OF WORKING BUFFER.                     COMCRDW      256     A     
 COMCRDW  *                (X1) = -1 IF EOF.                                               COMCRDW      257     A     
 COMCRDW  *                (X1) = -2 IF EOI.                                               COMCRDW      258     A     
 COMCRDW  *                                                                                COMCRDW      259     A     
 COMCRDW  *         CALLS  CIO=.                                                           COMCRDW      260     A     
 COMCRDW                                                                                   COMCRDW      261     A     
 COMCRDW                                                                                   COMCRDW      262     A     
 COMCRDW   LCB=     SA1    A3-B1       CHECK BUFFER STATUS                                 COMCRDW      263     A     
 COMCRDW            SX6    B4          STORE OUT                                           COMCRDW      264     A     
 COMCRDW            LX1    59                                                              COMCRDW      265     A     
 COMCRDW            SA6    A2                                                              COMCRDW      266     A     
 COMCRDW            NG     X1,LCB2     IF BUFFER NOT BUSY                                  COMCRDW      267     A     
 COMCRDW            RECALL                                                                 COMCRDW      268     A     
 COMCRDW   LCB1     SB2    A4-B1       CONTINUE READ                                       COMCRDW      269     A     
 COMCRDW            JP     B2                                                              COMCRDW      270     A     
 COMCRDW                                                                                   COMCRDW      271     A     
 COMCRDW   LCB2     SA1    A2-B1       RE-READ IN                                          COMCRDW      272     A     
 COMCRDW            SB3    X1                                                              COMCRDW      273     A     
 COMCRDW            NE     B3,B4,LCB1  IF BUFFER NOT EMPTY                                 COMCRDW      274     A     
 COMCRDW            SA1    A3-B1       CHECK BUFFER STATUS                                 COMCRDW      275     A     
 COMCRDW            LX1    59-4                                                            COMCRDW      276     A     
 COMCRDW            NG     X1,LCB3     IF EOR SET                                          COMCRDW      277     A     
 COMCRDW            SX6    740770B/2   ISSUE PREVIOUS READ FUNCTION                        COMCRDW      278     A     
 COMCRDW            LX1    4                                                               COMCRDW      279     A     
 COMCRDW            SX2    A3-B1                                                           COMCRDW      280     A     
 COMCRDW            BX7    X6*X1                                                           COMCRDW      281     A     
 COMCRDW            LX7    1                                                               COMCRDW      282     A     
 COMCRDW            RJ     =XCIO=                                                          COMCRDW      283     A     
 COMCRDW            SB2    A4-B1       CONTINUE READ                                       COMCRDW      284     A     
 COMCRDW            JP     B2                                                              COMCRDW      285     A     
 COMCRDW                                                                                   COMCRDW      286     A     
 COMCRDW   LCB3     LX6    B1,X1                                                           COMCRDW      287     A     
 COMCRDW            SA1    A3          SET IN = OUT = FIRST                                COMCRDW      288     A     
 COMCRDW            SX7    X1                                                              COMCRDW      289     A     
 COMCRDW            SA7    A1+B1                                                           COMCRDW      290     A     
 COMCRDW            SX1    -B1         RESPONSE = -1                                       COMCRDW      291     A     
 COMCRDW            SB2    A4          SET RETURN ADDRESS                                  COMCRDW      292     A     
 COMCRDW            NG     X6,LCB4     IF EOF                                              COMCRDW      293     A     
 COMCRDW            MX2    -4                                                              COMCRDW      294     A     
 COMCRDW            SX1    B6          RESPONSE = LAST WORD ADDRESS                        COMCRDW      295     A     
 COMCRDW            LX6    -14+4                                                           COMCRDW      296     A     
 COMCRDW            BX2    -X2*X6                                                          COMCRDW      297     A     
 COMCRDW            SB3    X2+                                                             COMCRDW      298     A     
 COMCRDW            EQ     B3,B1,LCB5  IF LEVEL 1                                          COMCRDW      299     A     
 COMCRDW   LCB4     SX2    A3-B1       RESET (X2)                                          COMCRDW      300     A     
 COMCRDW            SA7    A7+B1                                                           COMCRDW      301     A     
 COMCRDW            NG     X1,LCB6     IF EOF/EOI                                          COMCRDW      302     A     
 COMCRDW   LCB4.1   JP     B2          RETURN                                              COMCRDW      303     A     
 COMCRDW                                                                                   COMCRDW      304     A     
 COMCRDW   LCB5     SA7    A7+B1       STORE OUT                                           COMCRDW      305          I
          -FCC0441
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 117    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDW 
  
 COMCRDW   LCB5     SA1    A3          CHECK DEVICE TYPE                                   FCC0441        9     A     
 COMCRDW            MX2    -12                                                             FCC0441       10     A     
 COMCRDW            LX1    12                                                              FCC0441       11     A     
 COMCRDW            BX1    -X2*X1                                                          FCC0441       12     A     
 COMCRDW            SX6    X1-2RTT                                                         FCC0441       13     A     
 COMCRDW            SX1    B6          RESPONSE = LAST WORD ADDRESS                        FCC0441       14     A     
 COMCRDW            NZ     X6,LCB4     IF DEVICE TYPE NOT *TT*                             FCC0441       15     A     
 COMCRDW            SA7    A7+B1       STORE OUT                                           FCC0441       16     A     
 COMCRDW            READ   A3-B1       RESTART READ                                        COMCRDW      306     A     
 COMCRDW            SB2    A4-B1       CONTINUE                                            COMCRDW      307     A     
 COMCRDW            JP     B2                                                              COMCRDW      308     A     
 COMCRDW   LCB6     LX6    3-9                                                             COMCRDW      309     A     
 COMCRDW            PL     X6,LCB4.1   IF NOT EOI                                          COMCRDW      310     A     
 COMCRDW            LX1    1           RESPONSE= -2                                        COMCRDW      311     A     
 COMCRDW            JP     B2          RETURN                                              COMCRDW      312     A     
 COMCRDW            SPACE  4                                                               COMCRDW      313     A     
 COMCRDW            BASE   *                                                               COMCRDW      314     A     
 COMCRDW   QUAL$    IF     -DEF,QUAL$                                                      COMCRDW      315     A     
 COMCRDW            QUAL   *                                                               COMCRDW      316     A     
 COMCRDW   RDW=     EQU    /COMCRDW/RDW=                                                   COMCRDW      317     A     
 COMCRDW   RDX=     EQU    /COMCRDW/RDX=                                                   COMCRDW      318     A     
 COMCRDW   LCB=     EQU    /COMCRDW/LCB=                                                   COMCRDW      319     A     
 COMCRDW   QUAL$    ENDIF                                                                  COMCRDW      320     A     
 COMCRDW            ENDX                                                                   COMCRDW      321     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCRDW 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCRDW                    321       320
          FCC0441                      8         8
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSFN 
  
 COMCSFN  *COMDECK  COMCSFN - SPACE FILL NAME.                                             COMCSFN        1     A     
 COMCSFN            CTEXT  COMCSFN - SPACE FILL RIGHT JUSTIFIED ZEROES.                    COMCSFN        2     A     
 COMCSFN            SPACE  4                                                               COMCSFN        3     A     
 COMCSFN            IF     -DEF,QUAL$,1                                                    COMCSFN        4     A     
 COMCSFN            QUAL   COMCSFN                                                         COMCSFN        5     A     
 COMCSFN            BASE   D                                                               COMCSFN        6     A     
 COMCSFN  *         COMMENT COPYRIGHT CONTROL DATA CORP. 1974.                             COMCSFN        7     A     
 COMCSFN   SFN      SPACE  4                                                               COMCSFN        8     A     
 COMCSFN  ***       SFN - SPACE FILL NAME.                                                 COMCSFN        9     A     
 COMCSFN  *         G. R. MANSFIELD.   70/12/08.                                           COMCSFN       10     A     
 COMCSFN  *         S. R. MCPHERSON.   74/11/15.                                           COMCSFN       11     A     
 COMCSFN   SFN      SPACE  4                                                               COMCSFN       12     A     
 COMCSFN  ***       SFN - SPACE FILL RIGHT JUSTIFIED ZEROES.                               COMCSFN       13     A     
 COMCSFN  *                                                                                COMCSFN       14     A     
 COMCSFN  *         ENTRY  (X1) = NAME LEFT JUSTIFIED, ZERO FILL.                          COMCSFN       15     A     
 COMCSFN  *                (B1) = 1.                                                       COMCSFN       16     A     
 COMCSFN  *                                                                                COMCSFN       17     A     
 COMCSFN  *         EXIT   (X6) = NAME SPACE FILLED.                                       COMCSFN       18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 118    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSFN 
  
 COMCSFN  *                (X7) = FINAL CHARACTER MASK.                                    COMCSFN       19     A     
 COMCSFN  *                                                                                COMCSFN       20     A     
 COMCSFN  *         USES   X - 1, 2, 3, 6, 7.                                              COMCSFN       21     A     
 COMCSFN  *                A - 3.                                                          COMCSFN       22     A     
 COMCSFN  *                B - 2.                                                          COMCSFN       23     A     
 COMCSFN                                                                                   COMCSFN       24     A     
 COMCSFN                                                                                   COMCSFN       25     A     
 COMCSFN   SFN      PS     0           ENTRY/EXIT                                          COMCSFN       26     A     
 COMCSFN            SX7    B1                                                              COMCSFN       27     A     
 COMCSFN            SA3    SFNA        =40404040404040404040B                              COMCSFN       28     A     
 COMCSFN            IX7    X1-X7       FIND LOWEST BIT SET                                 COMCSFN       29     A     
 COMCSFN            BX6    -X7+X1                                                          COMCSFN       30     A     
 COMCSFN            SB2    60-5                                                            COMCSFN       31     A     
 COMCSFN            BX7    X3*X6       BUILD MASK OF NON-ZERO CHARACTERS                   COMCSFN       32     A     
 COMCSFN            SA3    A3+B1       =10H                                                COMCSFN       33     A     
 COMCSFN            LX6    X7,B2                                                           COMCSFN       34     A     
 COMCSFN            IX6    X7-X6                                                           COMCSFN       35     A     
 COMCSFN            BX7    X7+X6                                                           COMCSFN       36     A     
 COMCSFN            BX3    -X7*X3                                                          COMCSFN       37     A     
 COMCSFN            IX6    X1+X3                                                           COMCSFN       38     A     
 COMCSFN            EQ     SFN         RETURN                                              COMCSFN       39     A     
 COMCSFN                                                                                   COMCSFN       40     A     
 COMCSFN   SFNA     DATA   40404040404040404040B                                           COMCSFN       41     A     
 COMCSFN   SFNB     DATA   10H                                                             COMCSFN       42     A     
 COMCSFN            SPACE  4                                                               COMCSFN       43     A     
 COMCSFN            BASE   *                                                               COMCSFN       44     A     
 COMCSFN   QUAL$    IF     -DEF,QUAL$                                                      COMCSFN       45     A     
 COMCSFN            QUAL   *                                                               COMCSFN       46     A     
 COMCSFN   SFN      EQU    /COMCSFN/SFN                                                    COMCSFN       47     A     
 COMCSFN   QUAL$    ENDIF                                                                  COMCSFN       48     A     
 COMCSFN            ENDX                                                                   COMCSFN       49     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCSFN 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCSFN                     49        49
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSVR 
  
 COMCSVR  *COMDECK COMCSVR                                                                 COMCSVR        1     A     
 COMCSVR   SVR=     CTEXT  COMCSVR - SAVE AND RESTORE REGISTERS.                           COMCSVR        2     A     
 COMCSVR   SVR=     SPACE  4,8                                                             COMCSVR        3     A     
 COMCSVR            IF     -DEF,QUAL$,1                                                    COMCSVR        4     A     
 COMCSVR            QUAL   COMCSVR                                                         COMCSVR        5     A     
 COMCSVR            BASE   D                                                               COMCSVR        6     A     
 COMCSVR   SVR=     SPACE  4,8                                                             COMCSVR        7     A     
 COMCSVR  ***       SVR - SAVE AND RESTORE REGISTERS.                                      COMCSVR        8     A     
 COMCSVR  *                                                                                COMCSVR        9     A     
 COMCSVR  *                                                                                COMCSVR       10     A     
 COMCSVR  *                CONTAINS THE ROUTINES *SVR=* TO SAVE ALL REGISTERS,             COMCSVR       11     A     
 COMCSVR  *         AND *RSR=* TO RESTORE ALL REGISTERS. MINUS ZERO (-0) IS PRE-           COMCSVR       12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 119    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSVR 
  
 COMCSVR  *         SERVED IN ALL REGISTERS, PARTICULARLY -A- AND -B- REGISTERS.           COMCSVR       13     A     
 COMCSVR  *         EACH REGISTER IS SAVED IN A FULL CM WORD (-A- AND -B-                  COMCSVR       14     A     
 COMCSVR  *         REGISTERS ARE SIGN EXTENDED TO BIT 59). A REGISTER BLOCK IS            COMCSVR       15     A     
 COMCSVR  *         DEFINED TO BE ALL THE -B- REGISTERS, ALL THE -A- REGISTERS, OR         COMCSVR       16     A     
 COMCSVR  *         ALL THE -X- REGISTERS. ALL REGISTERS IN A REGISTER BLOCK ARE           COMCSVR       17     A     
 COMCSVR  *         SAVED CONTIGUOUSLY IN ASCENDING ORDER.                                 COMCSVR       18     A     
 COMCSVR  *                                                                                COMCSVR       19     A     
 COMCSVR  *         ASSEMBLY-TIME OPTIONS--                                                COMCSVR       20     A     
 COMCSVR  *                                                                                COMCSVR       21     A     
 COMCSVR  *            IF THE SYMBOL *BN=1* (N=1 THRU 7) IS DEFINED, (B.N) ARE             COMCSVR       22     A     
 COMCSVR  *         ASSUMED TO BE EQUAL TO 1. IF *BN=1* IS NOT DEFINED, (B1)               COMCSVR       23     A     
 COMCSVR  *         ARE CHECKED FOR 1 TO TRY TO AVOID EXECUTING THE *SAVE (B1)             COMCSVR       24     A     
 COMCSVR  *         VIA RJ SEQUENCE* CODE.                                                 COMCSVR       25     A     
 COMCSVR  *                                                                                COMCSVR       26     A     
 COMCSVR  *            IF THE SYMBOL *#SVR* IS DEFINED (DEF), THEN THE CALLER              COMCSVR       27     A     
 COMCSVR  *         WILL PROVIDE THE FWA OF THE REGISTER SAVE AREA IN THE LOWER            COMCSVR       28     A     
 COMCSVR  *         30 BITS OF THE CALLING *RJ* FOR *SVR=*--                               COMCSVR       29     A     
 COMCSVR  *                30/RJ SVR, 30/FWA OF REGISTER SAVE AREA                         COMCSVR       30     A     
 COMCSVR  *         AND IN (X1) FOR *RSR=*.                                                COMCSVR       31     A     
 COMCSVR  *            IF THE SYMBOL *#SVR* IS NOT DEFINED (-DEF), THEN A LOCAL            COMCSVR       32     A     
 COMCSVR  *         REGISTER SAVE AREA, (SVREG) ET SEQ, WILL BE USED AND NO                COMCSVR       33     A     
 COMCSVR  *         PARAMETERS NEED TO BE PASSED.                                          COMCSVR       34     A     
 COMCSVR  *                                                                                COMCSVR       35     A     
 COMCSVR  *            THE MICRO "SVBAX" DEFINES THE ORDER IN WHICH THE -B-, -A-,          COMCSVR       36     A     
 COMCSVR  *         AND -X- REGISTER BLOCKS ARE SAVED IN CM.                               COMCSVR       37     A     
 COMCSVR  *         I.E.   SVBAX    MICRO  1,,/BAX/        (DEFAULT) MEANS                 COMCSVR       38     A     
 COMCSVR  *                SV=B     BSSZ   8                                               COMCSVR       39     A     
 COMCSVR  *                SV=A     BSSZ   8                                               COMCSVR       40     A     
 COMCSVR  *                SV=X     BSSZ   8                                               COMCSVR       41     A     
 COMCSVR  *         OR     SVBAX    MICRO  1,,/ABX/        MEANS                           COMCSVR       42     A     
 COMCSVR  *                SV=A     BSSZ   8                                               COMCSVR       43     A     
 COMCSVR  *                SV=B     BSSZ   8                                               COMCSVR       44     A     
 COMCSVR  *                SV=X     BSSZ   8                                               COMCSVR       45     A     
 COMCSVR   SVR=     SPACE  4,8                                                             COMCSVR       46     A     
 COMCSVR            IF     -MIC,SVBAX,1                                                    COMCSVR       47     A     
 COMCSVR   SVBAX    MICRO  1,,/BAX/                                                        COMCSVR       48     A     
 COMCSVR                                                                                   COMCSVR       49     A     
 COMCSVR   .1       MICRO  1,1,/"SVBAX"/                                                   COMCSVR       50     A     
 COMCSVR   .2       MICRO  2,1,/"SVBAX"/                                                   COMCSVR       51     A     
 COMCSVR   .3       MICRO  3,1,/"SVBAX"/                                                   COMCSVR       52     A     
 COMCSVR                                                                                   COMCSVR       53     A     
 COMCSVR   SV".1"   =      0                                                               COMCSVR       54     A     
 COMCSVR   SV".2"   =      0+8                                                             COMCSVR       55     A     
 COMCSVR   SV".3"   =      0+8+8                                                           COMCSVR       56     A     
 COMCSVR                                                                                   COMCSVR       57     A     
 COMCSVR   .SVR     IF     -DEF,#SVR                                                       COMCSVR       58     A     
 COMCSVR   SVREG    BSSZ   3*8                                                             COMCSVR       59     A     
 COMCSVR                                                                                   COMCSVR       60     A     
 COMCSVR   .SVR     ELSE                                                                   COMCSVR       61     A     
 COMCSVR   SVX7     BSSZ   1           TEMPORARY SAVE (X7)                                 COMCSVR       62     A     
 COMCSVR   SVA5     BSSZ   1           TEMPORARY SAVE (A5)                                 COMCSVR       63     A     
 COMCSVR   SVX5     BSSZ   1           TEMPORARY SAVE (X5)                                 COMCSVR       64     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 120    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSVR 
  
 COMCSVR   .SVR     ENDIF                                                                  COMCSVR       65     A     
 COMCSVR                                                                                   COMCSVR       66     A     
 COMCSVR   SVR=     SPACE  4,8                                                             COMCSVR       67     A     
 COMCSVR  **        SVR - SAVE ALL REGISTERS.                                              COMCSVR       68     A     
 COMCSVR  *                                                                                COMCSVR       69     A     
 COMCSVR  *                                                                                COMCSVR       70     A     
 COMCSVR  *         ENTRY  IF *#SVR* DEFINED--                                             COMCSVR       71     A     
 COMCSVR  *                LOWER 30 BITS OF CALLING *RJ* CONTAINS FWA OF                   COMCSVR       72     A     
 COMCSVR  *                 REGISTER SAVE AREA (RSA)--   30/RJ SVR=, 30/FWA OF RSA         COMCSVR       73     A     
 COMCSVR  *                                                                                COMCSVR       74     A     
 COMCSVR  *                IF *#SVR* NOT DEFINED-- NONE                                    COMCSVR       75     A     
 COMCSVR  *                                                                                COMCSVR       76     A     
 COMCSVR  *                IF *BN=1* DEFINED-- (B.N) = 1                                   COMCSVR       77     A     
 COMCSVR  *                                                                                COMCSVR       78     A     
 COMCSVR  *         EXIT   (B1) = 1                                                        COMCSVR       79     A     
 COMCSVR  *                                                                                COMCSVR       80     A     
 COMCSVR  *         USES   ALL                                                             COMCSVR       81     A     
 COMCSVR  *                                                                                COMCSVR       82     A     
 COMCSVR  *         CALLS  NONE                                                            COMCSVR       83     A     
 COMCSVR                                                                                   COMCSVR       84     A     
 COMCSVR                                                                                   COMCSVR       85     A     
 COMCSVR   SVR=     EQ     *+4S15      ** ENTRY/EXIT **                                    COMCSVR       86     A     
 COMCSVR                                                                                   COMCSVR       87     A     
 COMCSVR  *         CHECK TO SEE IF ANY REGISTER HAS BEEN DEFINED TO BE EQUAL              COMCSVR       88     A     
 COMCSVR  *           TO 1 AT ASSEMBLY TIME VIA *BN=1* SYMBOL. IF NOT, CHECK FOR           COMCSVR       89     A     
 COMCSVR  *           (B1) = 1. IF (B1).NE.1, SAVE (B1) THE HARD WAY BY EXECUTING          COMCSVR       90     A     
 COMCSVR  *           THE *SAVE (B1)* RJ SEQUENCE AT *SVR2*. IF BIT 2**N WAS ON            COMCSVR       91     A     
 COMCSVR  *           IN (B1), THEN THE *RJ* AT (SVR2+2*N+1) WILL BE EXECUTED,             COMCSVR       92     A     
 COMCSVR  *           RESULTING IN AN /EQ SVR2+2*N+2/. IF BIT 2**N WAS NOT ON              COMCSVR       93     A     
 COMCSVR  *           IN (B1), THEN THE *RJ* WILL NOT BE  EXECUTED. BY QUERYING            COMCSVR       94     A     
 COMCSVR  *           (SVR2+2*N+1), ONE CAN DETERMINE WHETHER OR NOT BIT 2**N              COMCSVR       95     A     
 COMCSVR  *           WAS ON IN (B1) BY THE PRESENCE OF AN *EQ* (BIT WAS ON), OR           COMCSVR       96     A     
 COMCSVR  *           AN *RJ* (BIT WAS OFF) INSTRUCTION.                                   COMCSVR       97     A     
 COMCSVR                                                                                   COMCSVR       98     A     
 COMCSVR   B=1      MICRO  1,,/B0/                                                         COMCSVR       99     A     
 COMCSVR            ECHO   4,BN=(B1,B7,B5,B2,B3,B4,B6)                                     COMCSVR      100     A     
 COMCSVR            IF     DEF,BN=1,3                                                      COMCSVR      101     A     
 COMCSVR   B=1      MICRO  1,,/BN/                                                         COMCSVR      102     A     
 COMCSVR            STOPDUP                                                                COMCSVR      103     A     
 COMCSVR   B.EQ.1   SKIP                                                                   COMCSVR      104     A     
 COMCSVR                                                                                   COMCSVR      105     A     
 COMCSVR            LE     B1,B0,SVR2  IF (B1).LE.0 (INSURES -0 WILL BE HONORED)           COMCSVR      106     A     
 COMCSVR            SB1    B1-1                                                            COMCSVR      107     A     
 COMCSVR            ZR     B1,SVR4     IF (B1) = 1                                         COMCSVR      108     A     
 COMCSVR            SB1    B1+1        RESTORE (B1)                                        COMCSVR      109     A     
 COMCSVR                                                                                   COMCSVR      110     A     
 COMCSVR   SVR2     BSS    0                                                               COMCSVR      111     A     
 COMCSVR            PL     B1,*+2                                                          COMCSVR      112     A     
 COMCSVR   +        RJ     *                                                               COMCSVR      113     A     
 COMCSVR                                                                                   COMCSVR      114     A     
 COMCSVR   B.NE.1   DUP    17                                                              COMCSVR      115     A     
 COMCSVR   +        SB1    B1+B1                                                           COMCSVR      116     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 121    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSVR 
  
 COMCSVR            NO                                                                     COMCSVR      117     A     
 COMCSVR            PL     B1,*+2                                                          COMCSVR      118     A     
 COMCSVR   +        RJ     *                                                               COMCSVR      119     A     
 COMCSVR   B.NE.1   ENDD                                                                   COMCSVR      120     A     
 COMCSVR                                                                                   COMCSVR      121     A     
 COMCSVR   +        SB0    B0+         FILLER BECAUSE /RJ */S MUST BE 2 WORDS              COMCSVR      122     A     
 COMCSVR  *                              APART FOR RESTORE                                 COMCSVR      123     A     
 COMCSVR                                                                                   COMCSVR      124     A     
 COMCSVR   SVR3     RJ     *           (B1)=1/(B1).NE.1 FLAG                               COMCSVR      125     A     
 COMCSVR                                                                                   COMCSVR      126     A     
 COMCSVR   SVR4     BSS    0                                                               COMCSVR      127     A     
 COMCSVR                                                                                   COMCSVR      128     A     
 COMCSVR   B.EQ.1   ELSE                                                                   COMCSVR      129     A     
 COMCSVR            MI     "B=1",*+4S15  IF ("B=1") IS BAD (SHOULD BE EQUAL TO 1)          COMCSVR      130     A     
 COMCSVR            S"B=1" "B=1"-1                                                         COMCSVR      131     A     
 COMCSVR            ZR     "B=1",SVR2  IF ("B=1") = 1                                      COMCSVR      132     A     
 COMCSVR            S"B=1" "B=1"+1     RESTORE ("B=1")                                     COMCSVR      133     A     
 COMCSVR            EQ     *+4S15                                                          COMCSVR      134     A     
 COMCSVR                                                                                   COMCSVR      135     A     
 COMCSVR   SVR2     BSS    0                                                               COMCSVR      136     A     
 COMCSVR            IFC    NE,/"B=1"/B1/,1                                                 COMCSVR      137     A     
 COMCSVR            S"B=1" B1-B0       SAVE (B1)                                           COMCSVR      138     A     
 COMCSVR   B.EQ.1   ENDIF                                                                  COMCSVR      139     A     
 COMCSVR                                                                                   COMCSVR      140     A     
 COMCSVR  *         SAVE   A - 4,5,6,7                                                     COMCSVR      141     A     
 COMCSVR  *                X - 4,5,6,7                                                     COMCSVR      142     A     
 COMCSVR                                                                                   COMCSVR      143     A     
 COMCSVR   .SVR1    IF     -DEF,#SVR   IF USING LOCAL REGISTER SAVE AREA                   COMCSVR      144     A     
 COMCSVR            SB1    A7-B0                                                           COMCSVR      145     A     
 COMCSVR            SA7    SVREG+SVX+7                                                     COMCSVR      146     A     
 COMCSVR            SX7    B1-B0                                                           COMCSVR      147     A     
 COMCSVR            SA7    SVREG+SVA+7                                                     COMCSVR      148     A     
 COMCSVR            SB1    1                                                               COMCSVR      149     A     
 COMCSVR            SX7    A6-B0                                                           COMCSVR      150     A     
 COMCSVR            SA6    SVREG+SVX+6                                                     COMCSVR      151     A     
 COMCSVR            SA7    A7-B1                                                           COMCSVR      152     A     
 COMCSVR            BX6    X5                                                              COMCSVR      153     A     
 COMCSVR            SX7    A5-B0                                                           COMCSVR      154     A     
 COMCSVR            SA6    A6-B1                                                           COMCSVR      155     A     
 COMCSVR            SA7    A7-B1                                                           COMCSVR      156     A     
 COMCSVR            BX6    X4                                                              COMCSVR      157     A     
 COMCSVR            SX7    A4-B0                                                           COMCSVR      158     A     
 COMCSVR            SA6    A6-B1                                                           COMCSVR      159     A     
 COMCSVR            SA7    A7-B1                                                           COMCSVR      160     A     
 COMCSVR            SX5    SVREG       (X5) = FWA OF SAVED REGISTER AREA                   COMCSVR      161     A     
 COMCSVR                                                                                   COMCSVR      162     A     
 COMCSVR   .SVR1    ELSE               IF USING USER DEFINED SAVE AREA                     COMCSVR      163     A     
 COMCSVR            SB1    A7-B0       SAVE (A7) ** TEMPORARY **                           COMCSVR      164     A     
 COMCSVR            SA7    SVX7        SAVE (X7) ** TEMPORARY **                           COMCSVR      165     A     
 COMCSVR            SX7    A5-B0                                                           COMCSVR      166     A     
 COMCSVR            SA7    SVA5        SAVE (A5) ** TEMPORARY **                           COMCSVR      167     A     
 COMCSVR            BX7    X5                                                              COMCSVR      168     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 122    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSVR 
  
 COMCSVR            SA7    SVX5        SAVE (X5) ** TEMPORARY **                           COMCSVR      169     A     
 COMCSVR                                                                                   COMCSVR      170     A     
 COMCSVR            SA5    SVR=        (X5) = 30/EQ CALLER+1, 30/0                         COMCSVR      171     A     
 COMCSVR            LX5    30                                                              COMCSVR      172     A     
 COMCSVR            SA5    X5-1        (X5) = 30/RJ SVR=, 30/FWA OF RSA                    COMCSVR      173     A     
 COMCSVR            SX7    B1-B0                                                           COMCSVR      174     A     
 COMCSVR            SB1    1                                                               COMCSVR      175     A     
 COMCSVR            SA7    X5+SVA+7                                                        COMCSVR      176     A     
 COMCSVR            SX7    A6-B0                                                           COMCSVR      177     A     
 COMCSVR            SA6    X5+SVX+6                                                        COMCSVR      178     A     
 COMCSVR            SA7    A7-B1                                                           COMCSVR      179     A     
 COMCSVR            BX6    X4                                                              COMCSVR      180     A     
 COMCSVR            SX7    A4-B0                                                           COMCSVR      181     A     
 COMCSVR            SA6    A6-2                                                            COMCSVR      182     A     
 COMCSVR            SA7    A7-2                                                            COMCSVR      183     A     
 COMCSVR   .SVR1    ENDIF                                                                  COMCSVR      184     A     
 COMCSVR                                                                                   COMCSVR      185     A     
 COMCSVR  *         SAVE   A - 0,1,2,3                                                     COMCSVR      186     A     
 COMCSVR  *                X - 0,1,2,3                                                     COMCSVR      187     A     
 COMCSVR                                                                                   COMCSVR      188     A     
 COMCSVR   SV=AX    ECHO   ,N=(3,2,1,0)                                                    COMCSVR      189     A     
 COMCSVR            BX6    X.N                                                             COMCSVR      190     A     
 COMCSVR            SX7    A.N-B0                                                          COMCSVR      191     A     
 COMCSVR            SA6    A6-B1                                                           COMCSVR      192     A     
 COMCSVR            SA7    A7-B1                                                           COMCSVR      193     A     
 COMCSVR   SV=AX    ENDD                                                                   COMCSVR      194     A     
 COMCSVR                                                                                   COMCSVR      195     A     
 COMCSVR  *         IF USING USER DEFINED SAVE AREA, SAVE (X7),(A5),(X5) FINALLY.          COMCSVR      196     A     
 COMCSVR                                                                                   COMCSVR      197     A     
 COMCSVR   .SVR2    IF     DEF,#SVR                                                        COMCSVR      198     A     
 COMCSVR            SA2    SVX7        (X2) = SAVED (X7)                                   COMCSVR      199     A     
 COMCSVR            SA3    A2+B1       (X3) = SAVED (A5)                                   COMCSVR      200     A     
 COMCSVR            SA4    A3+B1       (X4) = SAVED (X5)                                   COMCSVR      201     A     
 COMCSVR            BX6    X2                                                              COMCSVR      202     A     
 COMCSVR            LX7    X3                                                              COMCSVR      203     A     
 COMCSVR            SA6    X5+SVX+7                                                        COMCSVR      204     A     
 COMCSVR            SA7    X5+SVA+5                                                        COMCSVR      205     A     
 COMCSVR            BX6    X4                                                              COMCSVR      206     A     
 COMCSVR            SA6    X5+SVX+5                                                        COMCSVR      207     A     
 COMCSVR   .SVR2    ENDIF                                                                  COMCSVR      208     A     
 COMCSVR                                                                                   COMCSVR      209     A     
 COMCSVR  *         SAVE   B - 0,2,3,4,5,6,7                                               COMCSVR      210     A     
 COMCSVR                                                                                   COMCSVR      211     A     
 COMCSVR            BX6    X6-X6                                                           COMCSVR      212     A     
 COMCSVR            SA6    X5+SVB+0                                                        COMCSVR      213     A     
 COMCSVR                                                                                   COMCSVR      214     A     
 COMCSVR   B=1      IFC    NE,/"B=1"/B0/                                                   COMCSVR      215     A     
 COMCSVR            SX7    "B=1"-B0                                                        COMCSVR      216     A     
 COMCSVR            S"B=1" B1          RESET ("B=1") = 1                                   COMCSVR      217     A     
 COMCSVR                                                                                   COMCSVR      218     A     
 COMCSVR   B=1      ELSE                                                                   COMCSVR      219     A     
 COMCSVR            SX7    B1                                                              COMCSVR      220     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 123    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSVR 
  
 COMCSVR   B=1      ENDIF                                                                  COMCSVR      221     A     
 COMCSVR                                                                                   COMCSVR      222     A     
 COMCSVR            SA7    A6+B1                                                           COMCSVR      223     A     
 COMCSVR                                                                                   COMCSVR      224     A     
 COMCSVR   SV=B     ECHO   ,U=(2,4,6),L=(3,5,7)                                            COMCSVR      225     A     
 COMCSVR            SX6    B.U-B0                                                          COMCSVR      226     A     
 COMCSVR            SX7    B.L-B0                                                          COMCSVR      227     A     
 COMCSVR            SA6    A7+B1                                                           COMCSVR      228     A     
 COMCSVR            SA7    A6+B1                                                           COMCSVR      229     A     
 COMCSVR   SV=B     ENDD                                                                   COMCSVR      230     A     
 COMCSVR                                                                                   COMCSVR      231     A     
 COMCSVR  *         SAVE (B1)                                                              COMCSVR      232     A     
 COMCSVR                                                                                   COMCSVR      233     A     
 COMCSVR   B.NE.1   IFC    EQ,/"B=1"/B0/                                                   COMCSVR      234     A     
 COMCSVR            SA5    SVR3        (X5) = (B1)=1/(B1).NE.1 FLAG                        COMCSVR      235     A     
 COMCSVR            SX4    0100B       (X4) = *RJ* OP CODE                                 COMCSVR      236     A     
 COMCSVR            SX3    B1                                                              COMCSVR      237     A     
 COMCSVR            LX3    42-0-1                                                          COMCSVR      238     A     
 COMCSVR            SX6    A5                                                              COMCSVR      239     A     
 COMCSVR            LX4    29-11                                                           COMCSVR      240     A     
 COMCSVR            BX6    X4+X6       (X6) = 30/0, 30/RJ *                                COMCSVR      241     A     
 COMCSVR            LX6    30                                                              COMCSVR      242     A     
 COMCSVR            SA6    A5          RESTORE .RJ *.                                      COMCSVR      243     A     
 COMCSVR            LX5    59-56                                                           COMCSVR      244     A     
 COMCSVR            BX7    X7-X7                                                           COMCSVR      245     A     
 COMCSVR            PL     X5,SVR=     IF (B1) = 1, NO NEED TO ASSEMBLE (B1)               COMCSVR      246     A     
 COMCSVR            SB2    B1+B1                                                           COMCSVR      247     A     
 COMCSVR                                                                                   COMCSVR      248     A     
 COMCSVR  *         ASSEMBLE ORIGINAL (B1) INTO (X7).                                      COMCSVR      249     A     
 COMCSVR                                                                                   COMCSVR      250     A     
 COMCSVR   SVR5     SA5    A5-B2                                                           COMCSVR      251     A     
 COMCSVR            IX3    X3+X3                                                           COMCSVR      252     A     
 COMCSVR            SX6    A5                                                              COMCSVR      253     A     
 COMCSVR            LX5    59-56                                                           COMCSVR      254     A     
 COMCSVR            BX6    X4+X6                                                           COMCSVR      255     A     
 COMCSVR            PL     X5,SVR6     IF BIT WAS CLEAR                                    COMCSVR      256     A     
 COMCSVR            BX7    X7+X3                                                           COMCSVR      257     A     
 COMCSVR                                                                                   COMCSVR      258     A     
 COMCSVR   SVR6     LX6    59-29                                                           COMCSVR      259     A     
 COMCSVR            SA6    A5                                                              COMCSVR      260     A     
 COMCSVR            PL     X3,SVR5     IF MORE BITS TO ASSEMBLE                            COMCSVR      261     A     
 COMCSVR                                                                                   COMCSVR      262     A     
 COMCSVR  *         HERE FOR FINAL SAVE OF (B1).                                           COMCSVR      263     A     
 COMCSVR                                                                                   COMCSVR      264     A     
 COMCSVR            AX7    42          SIGN EXTEND                                         COMCSVR      265     A     
 COMCSVR            SA7    A7-7+1                                                          COMCSVR      266     A     
 COMCSVR   B.NE.1   ENDIF                                                                  COMCSVR      267     A     
 COMCSVR                                                                                   COMCSVR      268     A     
 COMCSVR            EQ     SVR=        EXIT...                                             COMCSVR      269     A     
 COMCSVR   RSR=     SPACE  4,8                                                             COMCSVR      270     A     
 COMCSVR  **        RSR - RESTORE ALL REGISTERS.                                           COMCSVR      271     A     
 COMCSVR  *                                                                                COMCSVR      272     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 124    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSVR 
  
 COMCSVR  *                                                                                COMCSVR      273     A     
 COMCSVR  *         ENTRY  IF *#SVR* NOT DEFINED-- NONE                                    COMCSVR      274     A     
 COMCSVR  *                                                                                COMCSVR      275     A     
 COMCSVR  *                IF *#SVR* DEFINED-- (X1) = FWA OF REGISTER SAVE AREA            COMCSVR      276     A     
 COMCSVR  *                                                                                COMCSVR      277     A     
 COMCSVR  *         EXIT   ALL REGISTERS SET TO THE CONTENTS OF REGISTER SAVE AREA         COMCSVR      278     A     
 COMCSVR  *                                                                                COMCSVR      279     A     
 COMCSVR  *         USES   ALL                                                             COMCSVR      280     A     
 COMCSVR  *                                                                                COMCSVR      281     A     
 COMCSVR  *         CALLS  NONE                                                            COMCSVR      282     A     
 COMCSVR                                                                                   COMCSVR      283     A     
 COMCSVR                                                                                   COMCSVR      284     A     
 COMCSVR   RSR=     EQ     *+4S15      ** ENTRY/EXIT **                                    COMCSVR      285     A     
 COMCSVR            SB1    1                                                               COMCSVR      286     A     
 COMCSVR                                                                                   COMCSVR      287     A     
 COMCSVR  *         SET UP FINAL -B- REGISTERS RESTORE AT (RSR4) ET SEQ.                   COMCSVR      288     A     
 COMCSVR                                                                                   COMCSVR      289     A     
 COMCSVR   .RSR     IF     DEF,#SVR    IF USING USER DEFINED REGISTER SAVE AREA            COMCSVR      290     A     
 COMCSVR            SB7    X1+         (B7) = FWA OF REGISTER SAVE AREA                    COMCSVR      291     A     
 COMCSVR                                                                                   COMCSVR      292     A     
 COMCSVR   .RSR     ELSE               IF USING LOCAL REGISTER SAVE AREA                   COMCSVR      293     A     
 COMCSVR            SB7    SVREG                                                           COMCSVR      294     A     
 COMCSVR   .RSR     ENDIF                                                                  COMCSVR      295     A     
 COMCSVR                                                                                   COMCSVR      296     A     
 COMCSVR            MX4    -18                                                             COMCSVR      297     A     
 COMCSVR            SA1    B7+SVB+7    (X1) = SAVED (B7)                                   COMCSVR      298     A     
 COMCSVR            BX5    X4                                                              COMCSVR      299     A     
 COMCSVR            LX4    30                                                              COMCSVR      300     A     
 COMCSVR            SB4    4                                                               COMCSVR      301     A     
 COMCSVR            BX0    X4*X5       (X0) = 77770000007777000000B                        COMCSVR      302     A     
 COMCSVR                                                                                   COMCSVR      303     A     
 COMCSVR   RSR2     SA2    A1-B1       (X2) = SAVED (B.N-1)                                COMCSVR      304     A     
 COMCSVR            SA3    RSR4+B4-1                                                       COMCSVR      305     A     
 COMCSVR            BX1    -X5*X1                                                          COMCSVR      306     A     
 COMCSVR            SB4    B4-B1                                                           COMCSVR      307     A     
 COMCSVR            BX2    -X5*X2                                                          COMCSVR      308     A     
 COMCSVR            LX1    30                                                              COMCSVR      309     A     
 COMCSVR            BX3    X0*X3                                                           COMCSVR      310     A     
 COMCSVR            IX6    X1+X2                                                           COMCSVR      311     A     
 COMCSVR            BX7    X6+X3       (X7) = 30/SB.N B7+K, 30/SB.N-1 B7+K                 COMCSVR      312     A     
 COMCSVR            SA7    A3                                                              COMCSVR      313     A     
 COMCSVR            SA1    A2-B1       (X1) = SAVED (B.N)                                  COMCSVR      314     A     
 COMCSVR            GT     B4,B0,RSR2  IF STILL MORE -B- REGS TO GO...                     COMCSVR      315     A     
 COMCSVR                                                                                   COMCSVR      316     A     
 COMCSVR            SA2    B7+SVA+6    (X2) = SAVED (A6)                                   COMCSVR      317     A     
 COMCSVR                                                                                   COMCSVR      318     A     
 COMCSVR  *         THE MOST LIKELY CANDIDATE FOR THE DANGER DISCUSSED IN THE NEXT         COMCSVR      319     A     
 COMCSVR  *           PARAGRAPH IS THE SYSTEM COMMUNICATION CELL (RA.MTR).                 COMCSVR      320     A     
 COMCSVR  *           ACCORDINGLY, WE WAIT FOR IT TO CLEAR BEFORE PROCEEDING.              COMCSVR      321     A     
 COMCSVR                                                                                   COMCSVR      322     A     
 COMCSVR   RSR3     SA1    B1                                                              COMCSVR      323     A     
 COMCSVR            NZ     X1,RSR3     IF (RA.MTR) NOT CLEAR                               COMCSVR      324     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 125    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSVR 
  
 COMCSVR                                                                                   COMCSVR      325     A     
 COMCSVR  *         A SLIGHT BIT OF CARE IS SPENT ON RESTORATION OF (A6) AND (A7).         COMCSVR      326     A     
 COMCSVR  *           WE WISH TO AVOID HAVING THE CONTENTS OF THE WORD THAT THE            COMCSVR      327     A     
 COMCSVR  *           STORE REGISTER IS POINTING TO TO GET CHANGED (I.E. BY A PP)          COMCSVR      328     A     
 COMCSVR  *           WHILE WE ARE RESTORING (A6) OR (A7). ABOUT THE ONLY THING            COMCSVR      329     A     
 COMCSVR  *           THAT CAN BE DONE TO MINIMIZE THIS POSSIBILITY IS TO GET THE          COMCSVR      330     A     
 COMCSVR  *           LOAD AND THE STORE AS CLOSE TOGETHER AS POSSIBLE. BY KEEPING         COMCSVR      331     A     
 COMCSVR  *           THEM IN THE SAME WORD, WE HAVE AT LEAST INSURED THAT WE WILL         COMCSVR      332     A     
 COMCSVR  *           NOT BE EXCHANGED AFTER THE LOAD BUT BEFORE THE STORE.                COMCSVR      333     A     
 COMCSVR  *           BARRING DELAYS IN THE HOPPER, THIS SHOULD REDUCE THE DANGER          COMCSVR      334     A     
 COMCSVR  *           PERIOD TO A FEW MINOR CYCLES. SUGGESTIONS ARE WELCOME.               COMCSVR      335     A     
 COMCSVR                                                                                   COMCSVR      336     A     
 COMCSVR            SA3    A2+B1       (X3) = SAVED (A7)                                   COMCSVR      337     A     
 COMCSVR                                                                                   COMCSVR      338     A     
 COMCSVR   +        SA4    X2-0                                                            COMCSVR      339     A     
 COMCSVR            BX6    X4                                                              COMCSVR      340     A     
 COMCSVR            SA6    A4-B0       RESTORE (A6)                                        COMCSVR      341     A     
 COMCSVR                                                                                   COMCSVR      342     A     
 COMCSVR   +        SA5    X3-0                                                            COMCSVR      343     A     
 COMCSVR            BX7    X5                                                              COMCSVR      344     A     
 COMCSVR            SA7    A5-B0       RESTORE (A7)                                        COMCSVR      345     A     
 COMCSVR                                                                                   COMCSVR      346     A     
 COMCSVR            SA1    B7+SVX+6                                                        COMCSVR      347     A     
 COMCSVR            SA4    A1+B1                                                           COMCSVR      348     A     
 COMCSVR            BX6    X1          RESTORE (X6)                                        COMCSVR      349     A     
 COMCSVR            LX7    X4          RESTORE (X7)                                        COMCSVR      350     A     
 COMCSVR            BX0    -X0-X0                                                          COMCSVR      351     A     
 COMCSVR            SB6    X0-0        (B6) = -0                                           COMCSVR      352     A     
 COMCSVR                                                                                   COMCSVR      353     A     
 COMCSVR  *         RESTORE (A0),(X0).                                                     COMCSVR      354     A     
 COMCSVR                                                                                   COMCSVR      355     A     
 COMCSVR            SA4    B7+SVA+0                                                        COMCSVR      356     A     
 COMCSVR            SA5    B7+SVX+0                                                        COMCSVR      357     A     
 COMCSVR            SA0    X4+B6                                                           COMCSVR      358     A     
 COMCSVR            BX0    X5                                                              COMCSVR      359     A     
 COMCSVR                                                                                   COMCSVR      360     A     
 COMCSVR  *         RESTORE A - 1,2,3,4                                                    COMCSVR      361     A     
 COMCSVR  *                 X - 1,2,3,4                                                    COMCSVR      362     A     
 COMCSVR                                                                                   COMCSVR      363     A     
 COMCSVR            ECHO   4,N=(1,2,3,4)                                                   COMCSVR      364     A     
 COMCSVR            SA4    A4+B1       (X4) = SAVED (A.N)                                  COMCSVR      365     A     
 COMCSVR            SA5    A5+B1       (X5) = SAVED (X.N)                                  COMCSVR      366     A     
 COMCSVR            SA.N   X4+B6                                                           COMCSVR      367     A     
 COMCSVR            BX.N   X5                                                              COMCSVR      368     A     
 COMCSVR                                                                                   COMCSVR      369     A     
 COMCSVR  *         RESTORE (A5),(X5)-- THE ORIGINAL (X5) ARE BROKEN APART INTO            COMCSVR      370     A     
 COMCSVR  *           (B1) THRU (B5) AS DISPLAYED BELOW. THIS ALLOWS US TO RESTORE         COMCSVR      371     A     
 COMCSVR  *           (A5).                                                                COMCSVR      372     A     
 COMCSVR  *           DISASSEMBLY IS FROM LEFT TO RIGHT, TOP TO BOTTOM.                    COMCSVR      373     A     
 COMCSVR  *           REASSEMBLY IS FROM RIGHT TO LEFT, BOTTOM TO TOP.                     COMCSVR      374     A     
 COMCSVR  *         5          4          3          2          1               55         COMCSVR      375     A     
 COMCSVR  *         9          8          7          6          5              098         COMCSVR      376     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 126    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSVR 
  
 COMCSVR  *         ..............................................................         COMCSVR      377     A     
 COMCSVR  *         ++++++++++++                                                           COMCSVR      378     A     
 COMCSVR  *             (B1)   ++++++++++++                                                COMCSVR      379     A     
 COMCSVR  *                        (B2)   ++++++++++++                                     COMCSVR      380     A     
 COMCSVR  *                                   (B3)   ++++++++++++                          COMCSVR      381     A     
 COMCSVR  *                                              (B4)   ++++++++++++++++++         COMCSVR      382     A     
 COMCSVR  *         ++                                                 (B5)                COMCSVR      383     A     
 COMCSVR                                                                                   COMCSVR      384     A     
 COMCSVR            SA5    A5+B1       (X5) = SAVED (X5)                                   COMCSVR      385     A     
 COMCSVR                                                                                   COMCSVR      386     A     
 COMCSVR            ECHO   2,N=(1,2,3)                                                     COMCSVR      387     A     
 COMCSVR            UX5    X5,B.N                                                          COMCSVR      388     A     
 COMCSVR            LX5    11                                                              COMCSVR      389     A     
 COMCSVR                                                                                   COMCSVR      390     A     
 COMCSVR            UX5    X5,B4                                                           COMCSVR      391     A     
 COMCSVR            LX5    11+18                                                           COMCSVR      392     A     
 COMCSVR            SB5    X5+B6                                                           COMCSVR      393     A     
 COMCSVR                                                                                   COMCSVR      394     A     
 COMCSVR            SA5    B7+SVA+5    (X5) = SAVED (A5)                                   COMCSVR      395     A     
 COMCSVR            SA5    X5+B6       RESTORE (A5)                                        COMCSVR      396     A     
 COMCSVR                                                                                   COMCSVR      397     A     
 COMCSVR  *         REASSEMBLE (X5).                                                       COMCSVR      398     A     
 COMCSVR                                                                                   COMCSVR      399     A     
 COMCSVR            SX5    B5+B6                                                           COMCSVR      400     A     
 COMCSVR            LX5    60-11-18                                                        COMCSVR      401     A     
 COMCSVR            PX5    X5,B4                                                           COMCSVR      402     A     
 COMCSVR                                                                                   COMCSVR      403     A     
 COMCSVR            ECHO   2,N=(3,2,1)                                                     COMCSVR      404     A     
 COMCSVR            LX5    -11                                                             COMCSVR      405     A     
 COMCSVR            PX5    X5,B.N                                                          COMCSVR      406     A     
 COMCSVR                                                                                   COMCSVR      407     A     
 COMCSVR  *         RESTORE B - 0,1,2,3,4,5,6,7                                            COMCSVR      408     A     
 COMCSVR                                                                                   COMCSVR      409     A     
 COMCSVR   RSR4     BSS    0                                                               COMCSVR      410     A     
 COMCSVR            ECHO   2,U=(1,3,5,7),L=(0,2,4,6)                                       COMCSVR      411     A     
 COMCSVR            SB.U   B6+*                                                            COMCSVR      412     A     
 COMCSVR            SB.L   B6+*                                                            COMCSVR      413     A     
 COMCSVR                                                                                   COMCSVR      414     A     
 COMCSVR            EQ     RSR=        EXIT...                                             COMCSVR      415     A     
 COMCSVR   SVR=     SPACE  4,8                                                             COMCSVR      416     A     
 COMCSVR            BASE   *                                                               COMCSVR      417     A     
 COMCSVR                                                                                   COMCSVR      418     A     
 COMCSVR   #SVR     IF     -DEF,#SVR                                                       COMCSVR      419     A     
 COMCSVR   SV=B     =      SVREG+SVB                                                       COMCSVR      420     A     
 COMCSVR   SV=A     =      SVREG+SVA                                                       COMCSVR      421     A     
 COMCSVR   SV=X     =      SVREG+SVX                                                       COMCSVR      422     A     
 COMCSVR   #SVR     ENDIF                                                                  COMCSVR      423     A     
 COMCSVR                                                                                   COMCSVR      424     A     
 COMCSVR   QUAL$    IF     -DEF,QUAL$                                                      COMCSVR      425     A     
 COMCSVR            QUAL   *                                                               COMCSVR      426     A     
 COMCSVR   SVR=     =      /COMCSVR/SVR=                                                   COMCSVR      427     A     
 COMCSVR   RSR=     =      /COMCSVR/RSR=                                                   COMCSVR      428     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 127    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSVR 
  
 COMCSVR                                                                                   COMCSVR      429     A     
 COMCSVR   #SVR     IF     -DEF,#SVR                                                       COMCSVR      430     A     
 COMCSVR   SV=B     =      /COMCSVR/SV=B                                                   COMCSVR      431     A     
 COMCSVR   SV=A     =      /COMCSVR/SV=A                                                   COMCSVR      432     A     
 COMCSVR   SV=X     =      /COMCSVR/SV=X                                                   COMCSVR      433     A     
 COMCSVR   #SVR     ENDIF                                                                  COMCSVR      434     A     
 COMCSVR   QUAL$    ENDIF                                                                  COMCSVR      435     A     
 COMCSVR            ENDX                                                                   COMCSVR      436     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCSVR 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCSVR                    436       436
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTC 
  
 COMCWTC  *COMDECK,COMCWTC                                                                 COMCWTC        1     A     
 COMCWTC            CTEXT  COMCWTC - WRITE CODED LINE, -C- FORMAT.                         COMCWTC        2     A     
 COMCWTC   WTC      SPACE  4                                                               COMCWTC        3     A     
 COMCWTC            IF     -DEF,QUAL$,1                                                    COMCWTC        4     A     
 COMCWTC            QUAL   COMCWTC                                                         COMCWTC        5     A     
 COMCWTC            BASE   D                                                               COMCWTC        6     A     
 COMCWTC  *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                             COMCWTC        7     A     
 COMCWTC   WTC      SPACE  4                                                               COMCWTC        8     A     
 COMCWTC  ***       WTC - WRITE CODED LINE, -C- FORMAT.                                    COMCWTC        9     A     
 COMCWTC  *         G. R. MANSFIELD.  70/10/09.                                            COMCWTC       10     A     
 COMCWTC   WTC      SPACE  4                                                               COMCWTC       11     A     
 COMCWTC  ***              WTC TRANSFERRS 1 CODED LINE IN -C- FORMAT FROM A                COMCWTC       12     A     
 COMCWTC  *         WORKING BUFFER TO A CIO BUFFER.                                        COMCWTC       13     A     
 COMCWTC  *         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,            COMCWTC       14     A     
 COMCWTC  *         WTC WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*          COMCWTC       15     A     
 COMCWTC  *         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET          COMCWTC       16     A     
 COMCWTC  *         WILL BE RE-ISSUED.                                                     COMCWTC       17     A     
 COMCWTC  *                                                                                COMCWTC       18     A     
 COMCWTC  *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                                 COMCWTC       19     A     
 COMCWTC  *                (B6) = FWA WORKING BUFFER.                                      COMCWTC       20     A     
 COMCWTC  *                                                                                COMCWTC       21     A     
 COMCWTC  *         EXIT   (X2) = ADDRESS OF FET FOR FILE.                                 COMCWTC       22     A     
 COMCWTC  *                                                                                COMCWTC       23     A     
 COMCWTC  *         USES   X - 1, 2, 3, 4, 6, 7.                                           COMCWTC       24     A     
 COMCWTC  *                B - 1, 2, 3, 4, 5, 6.                                           COMCWTC       25     A     
 COMCWTC  *                A - 1, 2, 3, 4, 6, 7.                                           COMCWTC       26     A     
 COMCWTC  *                                                                                COMCWTC       27     A     
 COMCWTC  *         CALLS  DCB=, WTX=.                                                     COMCWTC       28     A     
 COMCWTC                                                                                   COMCWTC       29     A     
 COMCWTC                                                                                   COMCWTC       30     A     
 COMCWTC   +        EQ     WTC1                                                            COMCWTC       31     A     
 COMCWTC                                                                                   COMCWTC       32     A     
 COMCWTC   WTC=     PS                 ENTRY/EXIT                                          COMCWTC       33     A     
 COMCWTC            SA4    *-1                                                             COMCWTC       34     A     
 COMCWTC                                                                                   COMCWTC       35     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 128    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTC 
  
 COMCWTC            IF     -DEF,B1=1,1                                                     COMCWTC       36     A     
 COMCWTC            SB1    1                                                               COMCWTC       37     A     
 COMCWTC                                                                                   COMCWTC       38     A     
 COMCWTC            SA1    X2+4        (B5) = LIMIT                                        COMCWTC       39     A     
 COMCWTC            SA3    X2+B1       (X3) = FIRST                                        COMCWTC       40     A     
 COMCWTC            MX4    -12         (X4) = BYTE MASK                                    COMCWTC       41     A     
 COMCWTC            SB5    X1                                                              COMCWTC       42     A     
 COMCWTC                                                                                   COMCWTC       43     A     
 COMCWTC  *         INITIALIZE REGISTERS FOR TRANSFER.                                     COMCWTC       44     A     
 COMCWTC                                                                                   COMCWTC       45     A     
 COMCWTC   WTC1     SA1    A3+2        (B4) = OUT                                          COMCWTC       46     A     
 COMCWTC            SA2    A3+B1       (X2) = IN                                           COMCWTC       47     A     
 COMCWTC            SB4    X1                                                              COMCWTC       48     A     
 COMCWTC                                                                                   COMCWTC       49     A     
 COMCWTC  *         TRANSFER DATA FROM WORKING BUFFER TO CIRCULAR BUFFER.                  COMCWTC       50     A     
 COMCWTC                                                                                   COMCWTC       51     A     
 COMCWTC   WTC2     SB3    X2+B1       (IN+1)                                              COMCWTC       52     A     
 COMCWTC            NE     B3,B5,WTC3  IF (IN+1) " LIMIT                                   COMCWTC       53     A     
 COMCWTC            SB3    X3          (IN+1) = FIRST                                      COMCWTC       54     A     
 COMCWTC   WTC3     SA1    B6          NEXT WORD                                           COMCWTC       55     A     
 COMCWTC            EQ     B3,B4,=XDCB= DUMP CIRCULAR BUFFER IF (IN+1) = OUT               COMCWTC       56     A     
 COMCWTC            LX6    X1                                                              COMCWTC       57     A     
 COMCWTC            SB6    B6+B1       ADVANCE WORKING BUFFER                              COMCWTC       58     A     
 COMCWTC            BX7    -X4*X1                                                          COMCWTC       59     A     
 COMCWTC            SA6    X2          STORE WORD                                          COMCWTC       60     A     
 COMCWTC            SX2    B3          IN = IN+1                                           COMCWTC       61     A     
 COMCWTC            NZ     X7,WTC2     LOOP TO END OF LINE                                 COMCWTC       62     A     
 COMCWTC            EQ     =XWTX=      EXIT                                                COMCWTC       63     A     
 COMCWTC            SPACE  4                                                               COMCWTC       64     A     
 COMCWTC            BASE   *                                                               COMCWTC       65     A     
 COMCWTC   QUAL$    IF     -DEF,QUAL$                                                      COMCWTC       66     A     
 COMCWTC            QUAL   *                                                               COMCWTC       67     A     
 COMCWTC   WTC=     EQU    /COMCWTC/WTC=                                                   COMCWTC       68     A     
 COMCWTC   QUAL$    ENDIF                                                                  COMCWTC       69     A     
 COMCWTC            ENDX                                                                   COMCWTC       70     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCWTC 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCWTC                     70        70
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTW 
  
 COMCWTW  *COMDECK,COMCWTW                                                                 COMCWTW        1     A     
 COMCWTW            CTEXT  COMCWTW - WRITE WORDS FROM WORKING BUFFER.                      COMCWTW        2     A     
 COMCWTW   WTW      SPACE  4                                                               COMCWTW        3     A     
 COMCWTW            IF     -DEF,QUAL$,1                                                    COMCWTW        4     A     
 COMCWTW            QUAL   COMCWTW                                                         COMCWTW        5     A     
 COMCWTW            BASE   D                                                               COMCWTW        6     A     
 COMCWTW  *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                             COMCWTW        7     A     
 COMCWTW   WTW      SPACE  4                                                               COMCWTW        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 129    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTW 
  
 COMCWTW  ***       WTW - WRITE WORDS FROM WORKING BUFFER.                                 COMCWTW        9     A     
 COMCWTW  *         D. A. CAHLANDER.  70/11/29.                                            COMCWTW       10     A     
 COMCWTW   WTW      SPACE  4                                                               COMCWTW       11     A     
 COMCWTW  ***              WTW TRANSFERS DATA FROM A WORKING BUFFER TO A CIO               COMCWTW       12     A     
 COMCWTW  *         BUFFER.  THIS DECK ALSO CONTAINS DCB=, AND WTX=.                       COMCWTW       13     A     
 COMCWTW  *         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,            COMCWTW       14     A     
 COMCWTW  *         WTW WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*          COMCWTW       15     A     
 COMCWTW  *         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET          COMCWTW       16     A     
 COMCWTW  *         WILL BE RE-ISSUED.                                                     COMCWTW       17     A     
 COMCWTW  *                                                                                COMCWTW       18     A     
 COMCWTW  *         WHEN CALLING CIO= FROM THIS ROUTINE B6 AND B7                          COMCWTW       19     A     
 COMCWTW  *         MUST CONTAIN WORKING STORAGE BUFFER ADDRESS,                           COMCWTW       20     A     
 COMCWTW  *         AND NUMBER OF WORDS TO TRANSFER RESPECTIVELY                           COMCWTW       21     A     
 COMCWTW  *         AS ERROR PROCESSING ROUTINES DEPEND UPON                               COMCWTW       22     A     
 COMCWTW  *         THESE REGISTERS.                                                       COMCWTW       23     A     
 COMCWTW  *                                                                                COMCWTW       24     A     
 COMCWTW  *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                                 COMCWTW       25     A     
 COMCWTW  *                (B6) = FWA WORKING BUFFER.                                      COMCWTW       26     A     
 COMCWTW  *                (B7) = WORD COUNT OF WORKING BUFFER.                            COMCWTW       27     A     
 COMCWTW  *                IF (B7) = 0, NO TRANSFER WILL BE PERFORMED.                     COMCWTW       28     A     
 COMCWTW  *                                                                                COMCWTW       29     A     
 COMCWTW  *         EXIT   (X2) = ADDRESS OF FET FOR FILE.                                 COMCWTW       30     A     
 COMCWTW  *                                                                                COMCWTW       31     A     
 COMCWTW  *         USES   X - 1, 2, 3, 4, 6, 7.                                           COMCWTW       32     A     
 COMCWTW  *                B - 1, 2, 3, 4, 5, 6, 7.                                        COMCWTW       33     A     
 COMCWTW  *                A - 1, 2, 3, 4, 6, 7.                                           COMCWTW       34     A     
 COMCWTW  *                                                                                COMCWTW       35     A     
 COMCWTW  *         CALLS  CIO=.                                                           COMCWTW       36     A     
 COMCWTW                                                                                   COMCWTW       37     A     
 COMCWTW                                                                                   COMCWTW       38     A     
 COMCWTW   WTW8     SX6    B3+B4       ADVANCE IN                                          COMCWTW       39     A     
 COMCWTW            SB3    B3+B4                                                           COMCWTW       40     A     
 COMCWTW            SB6    B6+B4                                                           COMCWTW       41     A     
 COMCWTW            SB7    B7-B4                                                           COMCWTW       42     A     
 COMCWTW            NE     B3,B5,WTW9  IF IN " LIMIT                                       COMCWTW       43     A     
 COMCWTW            SA1    X2+B1       IN = FIRST                                          COMCWTW       44     A     
 COMCWTW            SX6    X1                                                              COMCWTW       45     A     
 COMCWTW   WTW9     SA6    X2+2        UPDATE IN                                           COMCWTW       46     A     
 COMCWTW            NZ     B7,WTW1     IF NOT END OF TRANSFER                              COMCWTW       47     A     
 COMCWTW                                                                                   COMCWTW       48     A     
 COMCWTW   WTW=     PS                 ENTRY/EXIT                                          COMCWTW       49     A     
 COMCWTW   WTW1     SA1    X2+3        (B4) = OUT                                          COMCWTW       50     A     
 COMCWTW            SA3    X2+2        (B3) = IN                                           COMCWTW       51     A     
 COMCWTW            IF     -DEF,B1=1,1                                                     COMCWTW       52     A     
 COMCWTW            SB1    1                                                               COMCWTW       53     A     
 COMCWTW            SA4    A1+B1       (B5) = LIMIT                                        COMCWTW       54     A     
 COMCWTW            ZR     B7,WTW=     IF WORKING BUFFER EMPTY                             COMCWTW       55     A     
 COMCWTW            SB4    X1                                                              COMCWTW       56     A     
 COMCWTW            SA1    X2+B1       (B2) = FIRST                                        COMCWTW       57     A     
 COMCWTW            SB3    X3                                                              COMCWTW       58     A     
 COMCWTW            SB5    X4                                                              COMCWTW       59     A     
 COMCWTW            SB2    X1                                                              COMCWTW       60     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 130    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTW 
  
 COMCWTW            SA1    B6          READ FIRST WORD                                     COMCWTW       61     A     
 COMCWTW            NE     B2,B4,WTW2  IF OUT " FIRST                                      COMCWTW       62     A     
 COMCWTW            SB4    B5                                                              COMCWTW       63     A     
 COMCWTW   WTW2     LT     B3,B4,WTW3  IF NO END AROUND                                    COMCWTW       64     A     
 COMCWTW            SB4    B5+1                                                            COMCWTW       65     A     
 COMCWTW   WTW3     SB4    B4-B1       CALCULATE FREE DATA SPACE                           COMCWTW       66     A     
 COMCWTW            SB4    B4-B3       (B4) = TRANSFER LENGTH                              COMCWTW       67     A     
 COMCWTW            ZR     B4,WTW10    IF NO ROOM                                          COMCWTW       68     A     
 COMCWTW            BX7    X1                                                              COMCWTW       69     A     
 COMCWTW            LE     B4,B7,WTW4  IF NOT ENOUGH ROOM                                  COMCWTW       70     A     
 COMCWTW            SB4    B7                                                              COMCWTW       71     A     
 COMCWTW                                                                                   COMCWTW       72     A     
 COMCWTW  *         INITIALIZE REGISTERS FOR TRANSFER.                                     COMCWTW       73     A     
 COMCWTW                                                                                   COMCWTW       74     A     
 COMCWTW   WTW4     SA1    A1+B1                                                           COMCWTW       75     A     
 COMCWTW            SX4    B4-B1                                                           COMCWTW       76     A     
 COMCWTW            MX6    -3                                                              COMCWTW       77     A     
 COMCWTW            SA7    B3                                                              COMCWTW       78     A     
 COMCWTW            BX3    -X6*X4      NUMBER OF ODD WORDS                                 COMCWTW       79     A     
 COMCWTW            AX4    3           NUMBER OF BLOCKS                                    COMCWTW       80     A     
 COMCWTW            ZR     X3,WTW6     IF NO ODD WORDS                                     COMCWTW       81     A     
 COMCWTW                                                                                   COMCWTW       82     A     
 COMCWTW  *         TRANSFER UP TO 7 WORDS.                                                COMCWTW       83     A     
 COMCWTW                                                                                   COMCWTW       84     A     
 COMCWTW   WTW5     SX3    X3-1                                                            COMCWTW       85     A     
 COMCWTW            BX7    X1                                                              COMCWTW       86     A     
 COMCWTW            SA1    A1+B1                                                           COMCWTW       87     A     
 COMCWTW            SA7    A7+B1                                                           COMCWTW       88     A     
 COMCWTW            NZ     X3,WTW5     LOOP                                                COMCWTW       89     A     
 COMCWTW                                                                                   COMCWTW       90     A     
 COMCWTW  *         PRE-READ REGISTERS.                                                    COMCWTW       91     A     
 COMCWTW                                                                                   COMCWTW       92     A     
 COMCWTW   WTW6     ZR     X4,WTW8     IF NO BLOCKS                                        COMCWTW       93     A     
 COMCWTW            SB5    X2          (B5) = FET ADDRESS                                  COMCWTW       94     A     
 COMCWTW            SA2    A1+B1                                                           COMCWTW       95     A     
 COMCWTW            SB2    B1+B1       (B2) = 2                                            COMCWTW       96     A     
 COMCWTW            SA3    A2+B1                                                           COMCWTW       97     A     
 COMCWTW            SB3    X4          (B3) = BLOCK COUNT                                  COMCWTW       98     A     
 COMCWTW            SA4    A3+B1                                                           COMCWTW       99     A     
 COMCWTW                                                                                   COMCWTW      100     A     
 COMCWTW  *         TRANSFER 8 WORD BLOCKS.                                                COMCWTW      101     A     
 COMCWTW                                                                                   COMCWTW      102     A     
 COMCWTW   WTW7     BX6    X1                                                              COMCWTW      103     A     
 COMCWTW            LX7    X2                                                              COMCWTW      104     A     
 COMCWTW            SA1    A3+B2                                                           COMCWTW      105     A     
 COMCWTW            SA2    A4+B2                                                           COMCWTW      106     A     
 COMCWTW            SA6    A7+B1                                                           COMCWTW      107     A     
 COMCWTW            SB3    B3-B1                                                           COMCWTW      108     A     
 COMCWTW            SA7    A6+B1                                                           COMCWTW      109     A     
 COMCWTW            BX6    X3                                                              COMCWTW      110     A     
 COMCWTW            LX7    X4                                                              COMCWTW      111     A     
 COMCWTW            SA3    A1+B2                                                           COMCWTW      112     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 131    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTW 
  
 COMCWTW            SA4    A2+B2                                                           COMCWTW      113     A     
 COMCWTW            SA6    A6+B2                                                           COMCWTW      114     A     
 COMCWTW            SA7    A7+B2                                                           COMCWTW      115     A     
 COMCWTW            BX6    X1                                                              COMCWTW      116     A     
 COMCWTW            LX7    X2                                                              COMCWTW      117     A     
 COMCWTW            SA1    A3+B2                                                           COMCWTW      118     A     
 COMCWTW            SA2    A4+B2                                                           COMCWTW      119     A     
 COMCWTW            SA6    A6+B2                                                           COMCWTW      120     A     
 COMCWTW            SA7    A7+B2                                                           COMCWTW      121     A     
 COMCWTW            BX6    X3                                                              COMCWTW      122     A     
 COMCWTW            LX7    X4                                                              COMCWTW      123     A     
 COMCWTW            SA3    A1+B2                                                           COMCWTW      124     A     
 COMCWTW            SA4    A2+B2                                                           COMCWTW      125     A     
 COMCWTW            SA6    A6+B2                                                           COMCWTW      126     A     
 COMCWTW            SA7    A7+B2                                                           COMCWTW      127     A     
 COMCWTW            NZ     B3,WTW7     LOOP                                                COMCWTW      128     A     
 COMCWTW                                                                                   COMCWTW      129     A     
 COMCWTW  *         WRITE EXIT.                                                            COMCWTW      130     A     
 COMCWTW                                                                                   COMCWTW      131     A     
 COMCWTW            SA3    B5+B2       READ IN                                             COMCWTW      132     A     
 COMCWTW            SA1    A3+B2       (B5) = LIMIT                                        COMCWTW      133     A     
 COMCWTW            SA4    B5          CHECK BUFFER STATUS                                 COMCWTW      134     A     
 COMCWTW            SB6    B6+B4                                                           COMCWTW      135     A     
 COMCWTW            SB7    B7-B4                                                           COMCWTW      136     A     
 COMCWTW            SB3    X3+B4       ADVANCE IN                                          COMCWTW      137     A     
 COMCWTW            SX6    X3+B4                                                           COMCWTW      138     A     
 COMCWTW            SX2    B5                                                              COMCWTW      139     A     
 COMCWTW            SB5    X1                                                              COMCWTW      140     A     
 COMCWTW            LX4    59-0                                                            COMCWTW      141     A     
 COMCWTW            SA3    X2+B1       READ FIRST                                          COMCWTW      142     A     
 COMCWTW            NE     B3,B5,WTW12 IF IN " LIMIT                                       COMCWTW      143     A     
 COMCWTW            SX6    X3          IN = FIRST                                          COMCWTW      144     A     
 COMCWTW                                                                                   COMCWTW      145     A     
 COMCWTW  *         TRY TO BUFFER AHEAD.                                                   COMCWTW      146     A     
 COMCWTW                                                                                   COMCWTW      147     A     
 COMCWTW   WTW12    PL     X4,WTW9     IF BUFFER BUSY                                      COMCWTW      148     A     
 COMCWTW            SA1    X2+3        READ OUT                                            COMCWTW      149     A     
 COMCWTW            SA6    X2+2        STORE IN                                            COMCWTW      150     A     
 COMCWTW            SB2    X3          (LIMIT-FIRST)                                       COMCWTW      151     A     
 COMCWTW            IX6    X1-X6       (OUT-IN)                                            COMCWTW      152     A     
 COMCWTW            SX7    B5-B2                                                           COMCWTW      153     A     
 COMCWTW            LX3    X6,B1       2*(OUT-IN)                                          COMCWTW      154     A     
 COMCWTW            AX6    60          SIGN OF (OUT-IN)                                    COMCWTW      155     A     
 COMCWTW            BX4    X6-X7       INVERT BUFFER IF IN \ OUT                           COMCWTW      156     A     
 COMCWTW            IX6    X4-X3       BUFFER SIZE - 2*(OUT-IN)                            COMCWTW      157     A     
 COMCWTW            NG     X6,WTW13    IF BUFFER THRESHOLD NOT REACHED                     COMCWTW      158     A     
 COMCWTW   WRIF$    IF     DEF,WRIF$                                                       COMCWTW      159     A     
 COMCWTW            SA1    X2          RE-ISSUE CURRENT WRITE FUNCTION                     COMCWTW      160     A     
 COMCWTW            SX6    774B                                                            COMCWTW      161     A     
 COMCWTW            BX7    X6*X1                                                           COMCWTW      162     A     
 COMCWTW            RJ     =XCIO=                                                          COMCWTW      163     A     
 COMCWTW   WRIF$    ELSE   1                                                               COMCWTW      164     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 132    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTW 
  
 COMCWTW            WRITE  X2                                                              COMCWTW      165     A     
 COMCWTW   WTW13    NZ     B7,WTW1     IF NOT DONE                                         COMCWTW      166     A     
 COMCWTW            JP     WTW=        RETURN                                              COMCWTW      167     A     
 COMCWTW                                                                                   COMCWTW      168     A     
 COMCWTW  *         DUMP CIRCULAR BUFFER.                                                  COMCWTW      169     A     
 COMCWTW                                                                                   COMCWTW      170     A     
 COMCWTW   WTW10    SA1    X2          CHECK BUFFER STATUS                                 COMCWTW      171     A     
 COMCWTW            LX1    59-0                                                            COMCWTW      172     A     
 COMCWTW            NG     X1,WTW11    IF NOT BUSY                                         COMCWTW      173     A     
 COMCWTW            ZR     X1,WTW11    IF BLANK FET                                        COMCWTW      174     A     
 COMCWTW            RECALL                                                                 COMCWTW      175     A     
 COMCWTW            JP     WTW1        CONTINUE WRITE                                      COMCWTW      176     A     
 COMCWTW   WRIF$    IF     DEF,WRIF$                                                       COMCWTW      177     A     
 COMCWTW   WTW11    SA1    X2          RE-ISSUE CURRENT WRITE FUNCTION                     COMCWTW      178     A     
 COMCWTW            SX6    774B                                                            COMCWTW      179     A     
 COMCWTW            BX7    X6*X1                                                           COMCWTW      180     A     
 COMCWTW            RJ     =XCIO=                                                          COMCWTW      181     A     
 COMCWTW   WRIF$    ELSE   1                                                               COMCWTW      182     A     
 COMCWTW   WTW11    WRITE  X2                                                              COMCWTW      183     A     
 COMCWTW            JP     WTW1        CONTINUE WRITE                                      COMCWTW      184     A     
 COMCWTW   WTX      SPACE  4                                                               COMCWTW      185     A     
 COMCWTW  **        WTX - WRITE EXIT.                                                      COMCWTW      186     A     
 COMCWTW  *         IF BUFFER IS BUSY, RETURN.                                             COMCWTW      187     A     
 COMCWTW  *         OTHERWISE, WORD COUNT OF BUFFER IS CHECKED, AND A WRITE                COMCWTW      188     A     
 COMCWTW  *         FUNCTION IS REQUESTED IF NECESSARY.                                    COMCWTW      189     A     
 COMCWTW  *                                                                                COMCWTW      190     A     
 COMCWTW  *         ENTRY  (A2) = ADDRESS OF IN.                                           COMCWTW      191     A     
 COMCWTW  *                (A3) = ADDRESS OF FIRST.                                        COMCWTW      192     A     
 COMCWTW  *                (A4) = RETURN ADDRESS.                                          COMCWTW      193     A     
 COMCWTW  *                (B3) = IN+1.                                                    COMCWTW      194     A     
 COMCWTW  *                (B4) = OUT.                                                     COMCWTW      195     A     
 COMCWTW  *                (B5) = LIMIT.                                                   COMCWTW      196     A     
 COMCWTW  *                (X2) = IN                                                       COMCWTW      197     A     
 COMCWTW  *                                                                                COMCWTW      198     A     
 COMCWTW  *         EXIT   TO RETURN ADDRESS.                                              COMCWTW      199     A     
 COMCWTW  *                                                                                COMCWTW      200     A     
 COMCWTW  *         CALLS  NONE.                                                           COMCWTW      201     A     
 COMCWTW                                                                                   COMCWTW      202     A     
 COMCWTW                                                                                   COMCWTW      203     A     
 COMCWTW   WTX=     SA1    A3-B1       CHECK BUFFER STATUS                                 COMCWTW      204     A     
 COMCWTW            SX6    X2          STORE IN                                            COMCWTW      205     A     
 COMCWTW            LX1    59                                                              COMCWTW      206     A     
 COMCWTW            SA6    A2                                                              COMCWTW      207     A     
 COMCWTW            PL     X1,WTX1     IF BUFFER BUSY                                      COMCWTW      208     A     
 COMCWTW                                                                                   COMCWTW      209     A     
 COMCWTW  *         IF BUFFER IS NOT BUSY, CHECK SIZE OF BUFFER.                           COMCWTW      210     A     
 COMCWTW  *         ISSUE WRITE IF THRESHOLD IS REACHED.                                   COMCWTW      211     A     
 COMCWTW                                                                                   COMCWTW      212     A     
 COMCWTW            SA3    A3          FIRST                                               COMCWTW      213     A     
 COMCWTW            SX6    B4-B3       (OUT-IN+1)                                          COMCWTW      214     A     
 COMCWTW            SB2    X3          (LIMIT-FIRST)                                       COMCWTW      215     A     
 COMCWTW            LX3    X6,B1       2*(OUT-IN+1)                                        COMCWTW      216     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 133    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTW 
  
 COMCWTW            SX7    B5-B2                                                           COMCWTW      217     A     
 COMCWTW            AX6    60          SIGN OF (OUT-IN+1)                                  COMCWTW      218     A     
 COMCWTW            BX4    X6-X7       INVERT BUFFER IF IN+1 \ OUT                         COMCWTW      219     A     
 COMCWTW            IX6    X4-X3       BUFFER SIZE - 2*(OUT-IN+1)                          COMCWTW      220     A     
 COMCWTW            NG     X6,WTX1     IF BUFFER THRESHOLD NOT REACHED                     COMCWTW      221     A     
 COMCWTW   WRIF$    IF     DEF,WRIF$                                                       COMCWTW      222     A     
 COMCWTW            SA1    A3-B1       RE-ISSUE CURRENT WRITE FUNCTION                     COMCWTW      223     A     
 COMCWTW            SX6    774B                                                            COMCWTW      224     A     
 COMCWTW            BX7    X6*X1                                                           COMCWTW      225     A     
 COMCWTW            RJ     =XCIO=                                                          COMCWTW      226     A     
 COMCWTW   WRIF$    ELSE   1                                                               COMCWTW      227     A     
 COMCWTW            WRITE  A3-B1                                                           COMCWTW      228     A     
 COMCWTW                                                                                   COMCWTW      229     A     
 COMCWTW   WTX1     SB2    A4          SET RETURN ADDRESS                                  COMCWTW      230     A     
 COMCWTW            SX2    A3-B1       RESET (X2)                                          COMCWTW      231     A     
 COMCWTW            JP     B2          RETURN                                              COMCWTW      232     A     
 COMCWTW   DCB      SPACE  4                                                               COMCWTW      233     A     
 COMCWTW  **        DCB - DUMP CIRCULAR BUFFER.                                            COMCWTW      234     A     
 COMCWTW  *         IF BUFFER IS BUSY, RECALL AND RETURN.                                  COMCWTW      235     A     
 COMCWTW  *         IF BUFFER IS NOT BUSY, REQUEST WRITE FUNCTION AND RETURN.              COMCWTW      236     A     
 COMCWTW  *                                                                                COMCWTW      237     A     
 COMCWTW  *         ENTRY  (A2) = ADDRESS OF IN.                                           COMCWTW      238     A     
 COMCWTW  *                (A3) = ADDRESS OF FIRST.                                        COMCWTW      239     A     
 COMCWTW  *                (A4) = RETURN ADDRESS.                                          COMCWTW      240     A     
 COMCWTW  *                (X2) = IN.                                                      COMCWTW      241     A     
 COMCWTW  *                                                                                COMCWTW      242     A     
 COMCWTW  *         EXIT   TO RETURN ADDRESS - 1.                                          COMCWTW      243     A     
 COMCWTW  *                                                                                COMCWTW      244     A     
 COMCWTW  *         CALLS  NONE.                                                           COMCWTW      245     A     
 COMCWTW                                                                                   COMCWTW      246     A     
 COMCWTW                                                                                   COMCWTW      247     A     
 COMCWTW   DCB=     SA1    A3-B1       CHECK BUFFER STATUS                                 COMCWTW      248     A     
 COMCWTW            SX6    X2          STORE IN                                            COMCWTW      249     A     
 COMCWTW            LX1    59                                                              COMCWTW      250     A     
 COMCWTW            SA6    A2                                                              COMCWTW      251     A     
 COMCWTW            NG     X1,DCB1     IF NOT BUSY                                         COMCWTW      252     A     
 COMCWTW            ZR     X1,DCB1     IF BLANK FET                                        COMCWTW      253     A     
 COMCWTW            RECALL                                                                 COMCWTW      254     A     
 COMCWTW            SB2    A4-B1       CONTINUE WRITE                                      COMCWTW      255     A     
 COMCWTW            JP     B2                                                              COMCWTW      256     A     
 COMCWTW   WRIF$    IF     DEF,WRIF$                                                       COMCWTW      257     A     
 COMCWTW   DCB1     SA1    A3-B1       RE-ISSUE CURRENT WRITE FUNCTION                     COMCWTW      258     A     
 COMCWTW            SX6    774B                                                            COMCWTW      259     A     
 COMCWTW            BX7    X6*X1                                                           COMCWTW      260     A     
 COMCWTW            RJ     =XCIO=                                                          COMCWTW      261     A     
 COMCWTW   WRIF$    ELSE   1                                                               COMCWTW      262     A     
 COMCWTW   DCB1     WRITE  A3-B1                                                           COMCWTW      263     A     
 COMCWTW            SB2    A4-B1       CONTINUE WRITE                                      COMCWTW      264     A     
 COMCWTW            JP     B2                                                              COMCWTW      265     A     
 COMCWTW            SPACE  4                                                               COMCWTW      266     A     
 COMCWTW            BASE   *                                                               COMCWTW      267     A     
 COMCWTW   QUAL$    IF     -DEF,QUAL$                                                      COMCWTW      268     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 134    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTW 
  
 COMCWTW            QUAL   *                                                               COMCWTW      269     A     
 COMCWTW   WTW=     EQU    /COMCWTW/WTW=                                                   COMCWTW      270     A     
 COMCWTW   WTX=     EQU    /COMCWTW/WTX=                                                   COMCWTW      271     A     
 COMCWTW   DCB=     EQU    /COMCWTW/DCB=                                                   COMCWTW      272     A     
 COMCWTW   QUAL$    ENDIF                                                                  COMCWTW      273     A     
 COMCWTW            ENDX                                                                   COMCWTW      274     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCWTW 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCWTW                    274       274
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFRNC 
  
 COMFRNC  *COMDECK COMFRNC                                                                 COMFRNC        1     A     
 COMFRNC   COMFRNC  CTEXT  COMFRNC - READ NEXT CARD.                                       COMFRNC        2     A     
 COMFRNC   RNC      SPACE  4,8                                                             COMFRNC        3     A     
 COMFRNC            IF     -DEF,QUAL$,1                                                    COMFRNC        4     A     
 COMFRNC            QUAL   COMFRNC                                                         COMFRNC        5     A     
 COMFRNC   RNC      SPACE  4,8                                                             COMFRNC        6     A     
 COMFRNC  **        RNC - READ NEXT CARD.                                                  COMFRNC        7     A     
 COMFRNC  *                                                                                COMFRNC        8     A     
 COMFRNC  *                                                                                COMFRNC        9     A     
 COMFRNC  *                READS A SINGLE SOURCE LINE FROM THE INPUT BUFFER *F.IN*         COMFRNC       10     A     
 COMFRNC  *         TO THE SOURCE LINE IMAGE AREA *CP.CARD*.  ALSO GUARANTEES              COMFRNC       11     A     
 COMFRNC  *         THAT, ON EXIT, THE EOL MARK IS ON A WORD BOUNDARY BY                   COMFRNC       12     A     
 COMFRNC  *         APPROPRIATELY BLANK FILLING THE LAST WORD OF THE LINE IMAGE            COMFRNC       13     A     
 COMFRNC  *         AND STORING A FULL ZERO WORD EOL MARK AFTER IT.                        COMFRNC       14     A     
 COMFRNC  *                                                                                COMFRNC       15     A     
 COMFRNC  *         ENTRY  (B1)     =  1                                                   COMFRNC       16     A     
 COMFRNC  *                CIO ONLY - INITIAL *READ* ISSUED                                COMFRNC       17     A     
 COMFRNC  *                RM  ONLY - FILE TABLES INITIALIZED                              COMFRNC       18     A     
 COMFRNC  *                (CP.IFMT)=  +0 IF NORMAL UNCOMPRESSED INPUT                     COMFRNC       19     A     
 COMFRNC  *                         =   1 IF MODIFY COMPRESSED INPUT (UNSUPPORTED)         COMFRNC       20     A     
 COMFRNC  *                         =   2 IF UPDATE COMPRESSED INPUT (UNSUPPORTED)         COMFRNC       21     A     
 COMFRNC  *                                                                                COMFRNC       22     A     
 COMFRNC  *         EXIT   (B1)     =  1                                                   COMFRNC       23     A     
 COMFRNC  *                (B4)     =  FWA OF SOURCE LINE IMAGE, *CP.CARD*                 COMFRNC       24     A     
 COMFRNC  *                (B5)     =  1                                                   COMFRNC       25     A     
 COMFRNC  *                (B6)     =  LWA OF SOURCE LINE IMAGE,                           COMFRNC       26     A     
 COMFRNC  *                              I.E. (B6) POINTS TO FULL WORD EOL MARK            COMFRNC       27     A     
 COMFRNC  *                (B7)     =  NR OF USEABLE WORDS IN LINE IMAGE,                  COMFRNC       28     A     
 COMFRNC  *                              I.E. DOES NOT INCLUDE FULL WORD EOL MARK          COMFRNC       29     A     
 COMFRNC  *                (X1)     =  .NZ. IF EOR/EOF/EOI ENCOUNTERED, ELSE .ZR.          COMFRNC       30     A     
 COMFRNC  *                (CP.CARD) = .ZR. IF EOR/EOF/EOI ENCOUNTERED, ELSE 1ST           COMFRNC       31     A     
 COMFRNC  *                              WORD OF SOURCE LINE IMAGE                         COMFRNC       32     A     
 COMFRNC  *                (L.CARD) =  NR OF WORDS IN SOURCE LINE IMAGE                    COMFRNC       33     A     
 COMFRNC  *                              I.E. INCLUDES FULL ZERO WORD EOL MARK             COMFRNC       34     A     
 COMFRNC  *                (X7)     =  (L.CARD) = (B7)+1                                   COMFRNC       35     A     
 COMFRNC  *                                                                                COMFRNC       36     A     
 COMFRNC  *         USES   ALL BUT A0,X0,A5,X5  (INCLUDES ALL CALLS)                       COMFRNC       37     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 135    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFRNC 
  
 COMFRNC  *                                                                                COMFRNC       38     A     
 COMFRNC  *         CALLS  READC                                                           COMFRNC       39     A     
 COMFRNC                                                                                   COMFRNC       40     A     
 COMFRNC                                                                                   COMFRNC       41     A     
 COMFRNC   RNC      SUBR               ** ENTRY/EXIT **                                    COMFRNC       42     A     
 COMFRNC            SA1    =XCARDS                                                         COMFRNC       43     A     
 COMFRNC            SA2    =XCP.IFMT                                                       COMFRNC       44     A     
 COMFRNC            SX6    X1+B1                                                           COMFRNC       45     A     
 COMFRNC            SA6    A1          UPDATE LINE COUNT                                   COMFRNC       46     A     
 COMFRNC            NZ     X2,*+4S15   IF COMPRESSED INPUT (UPDATE OR MODIFY)              COMFRNC       47     A     
 COMFRNC            READC  =XF.IN,=XCP.CARD,16                                             COMFRNC       48     A     
 COMFRNC            SB4    CP.CARD                                                         COMFRNC       49     A     
 COMFRNC            SA2    B6-B1       (A2,X2) = A+C OF LAST WORD OF LINE IMAGE            COMFRNC       50     A     
 COMFRNC            SB7    B0                                                              COMFRNC       51     A     
 COMFRNC            NZ     X1,RNC5     IF EOR/EOF/EOI ENCOUNTERED                          COMFRNC       52     A     
 COMFRNC                                                                                   COMFRNC       53     A     
 COMFRNC  *         CHECK FOR AND PROCESS FULL WORD OR 11 CHARACTER EOL MARK.              COMFRNC       54     A     
 COMFRNC                                                                                   COMFRNC       55     A     
 COMFRNC            NZ     X2,RNC2     IF NOT A FULL WORD EOL MARK                         COMFRNC       56     A     
 COMFRNC            SA2    A2-B1                                                           COMFRNC       57     A     
 COMFRNC            MX3    -CHAR                                                           COMFRNC       58     A     
 COMFRNC            SB6    B6-B1                                                           COMFRNC       59     A     
 COMFRNC            BX4    -X3*X2      EXTRACT LAST CHARACTER                              COMFRNC       60     A     
 COMFRNC            NZ     X4,RNC3     IF NOT 11 CHAR EOL MARK                             COMFRNC       61     A     
 COMFRNC            SX6    1R                                                              COMFRNC       62     A     
 COMFRNC            IX7    X2+X6                                                           COMFRNC       63     A     
 COMFRNC            SA7    A2                                                              COMFRNC       64     A     
 COMFRNC            EQ     RNC3                                                            COMFRNC       65     A     
 COMFRNC                                                                                   COMFRNC       66     A     
 COMFRNC  *         PROCESS 2 THRU 8 CHARACTER (12 THRU 48 BIT) EOL MARK,                  COMFRNC       67     A     
 COMFRNC  *           BLANK FILL LAST WORD OF SOURCE LINE IMAGE.                           COMFRNC       68     A     
 COMFRNC                                                                                   COMFRNC       69     A     
 COMFRNC   RNC2     MX7    -1                                                              COMFRNC       70     A     
 COMFRNC            IX4    X2+X7       BORROW RIPPLES LEFT TO 1ST NON-ZERO BIT             COMFRNC       71     A     
 COMFRNC            SA3    =40404040404040404040B                                          COMFRNC       72     A     
 COMFRNC            BX4    -X2*X4      (X4) = ALL TRAILING 0 BITS IN (X2) = 1 BITS         COMFRNC       73     A     
 COMFRNC            SB5    60-5        (B5) = RIGHT CIRCULAR SHIFT 5 BITS                  COMFRNC       74     A     
 COMFRNC            BX4    X3*X4       (X4) = 40B WHERE TRAILING 00B WERE                  COMFRNC       75     A     
 COMFRNC            LX6    X4,B5       (X6) = 01B WHERE TRAILING 00B WERE                  COMFRNC       76     A     
 COMFRNC            IX7    X4-X6       (X7) = 37B WHERE TRAILING 00B WERE                  COMFRNC       77     A     
 COMFRNC            SA3    =10H                                                            COMFRNC       78     A     
 COMFRNC            BX4    X4+X7       (X4) = 77B WHERE TRAILING 00B WERE                  COMFRNC       79     A     
 COMFRNC            BX6    X4*X3       (X6) = 55B WHERE TRAILING 00B WERE                  COMFRNC       80     A     
 COMFRNC            IX7    X2+X6       TRAILING 00B BECOMES TRAILING 55B                   COMFRNC       81     A     
 COMFRNC            SA7    A2                                                              COMFRNC       82     A     
 COMFRNC                                                                                   COMFRNC       83     A     
 COMFRNC  *         CHECK FOR (AND TRUNCATE) LONG LINE (.GT. *L.MAXCD* WORDS).             COMFRNC       84     A     
 COMFRNC                                                                                   COMFRNC       85     A     
 COMFRNC   RNC3     SA2    B4          (A2,X2) = A+C OF 1ST WORD OF SOURCE LINE            COMFRNC       86     A     
 COMFRNC            SB7    B6-B4       (B7) = NR OF USEABLE WORDS IN SOURCE LINE           COMFRNC       87     A     
 COMFRNC            SB5    =XL.MAXCD-1                                                     COMFRNC       88     A     
 COMFRNC            LE     B7,B5,RNC4  IF LINE LENGTH OK                                   COMFRNC       89     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 136    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMFRNC 
  
 COMFRNC            SB7    B5          SET TO *MAX NR OF WDS IN LINE IS /L.MAXCD/*         COMFRNC       90     A     
 COMFRNC            SB6    B4+B5                                                           COMFRNC       91     A     
 COMFRNC                                                                                   COMFRNC       92     A     
 COMFRNC  *         CHECK FOR AND PROCESS FALSE EOR/EOF (TELEX BLANK LINE ONLY).           COMFRNC       93     A     
 COMFRNC                                                                                   COMFRNC       94     A     
 COMFRNC   RNC4     NZ     X2,RNC5     IF NO FALSE EOR/EOF                                 COMFRNC       95     A     
 COMFRNC            SA3    =10H                                                            COMFRNC       96     A     
 COMFRNC            SB6    B4+B1                                                           COMFRNC       97     A     
 COMFRNC            SB7    B1          (B7) = NR OF USEABLE WORDS = 1                      COMFRNC       98     A     
 COMFRNC            BX6    X3                                                              COMFRNC       99     A     
 COMFRNC            SA6    B4                                                              COMFRNC      100     A     
 COMFRNC                                                                                   COMFRNC      101     A     
 COMFRNC  *         FINAL PROCESSING AND EXIT.                                             COMFRNC      102     A     
 COMFRNC                                                                                   COMFRNC      103     A     
 COMFRNC   RNC5     BX6    X6-X6                                                           COMFRNC      104     A     
 COMFRNC            SX7    B7+B1       (X7) = NR OF WORDS IN SOURCE LINE IMAGE             COMFRNC      105     A     
 COMFRNC            SA6    B6          MARK FULL WORD EOL                                  COMFRNC      106     A     
 COMFRNC            SB5    B1                                                              COMFRNC      107     A     
 COMFRNC            SA7    =XL.CARD                                                        COMFRNC      108     A     
 COMFRNC            EQ     EXIT.                                                           COMFRNC      109     A     
 COMFRNC   RNC      SPACE  4,8                                                             COMFRNC      110     A     
 COMFRNC            IF     -DEF,QUAL$,2                                                    COMFRNC      111     A     
 COMFRNC            QUAL   *                                                               COMFRNC      112     A     
 COMFRNC   RNC      =      /COMFRNC/RNC                                                    COMFRNC      113     A     
 COMFRNC            ENDX                                                                   COMFRNC      114     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMFRNC 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMFRNC                    114       114
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGCOM  
  
 DBGCOM   *COMDECK  DBGCOM                                                                 DBGCOM         1     A     
 DBGCOM             EJECT                                                                  DBGCOM         2     A     
 DBGCOM   *         LOCATIONS USED BY THE "DEBUG" PROCESSOR                                DBGCOM         3     A     
 DBGCOM                                                                                    DBGCOM         4     A     
 DBGCOM             USE    //                                                              DBGCOM         5     A     
 DBGCOM    DEBUG    BSS    1                                                               DBGCOM         6     A     
 DBGCOM             USE    *                                                               DBGCOM         7     A     
 DBGCOM             USE    /DBGBLK2/                                                       DBGCOM         8     A     
 DBGCOM    D.SDRL   BSS    1            BEGINNING ADDRESS OF DRL RELATIVE TO //            DBGCOM         9     A     
 DBGCOM    D.EDRL   BSS    1            NEXT AVAILABLE ORDINAL OF DRL                      DBGCOM        10     A     
 DBGCOM    D.SDVL   BSS    1            BEGINNING ADDRESS OF DVL RELATIVE TO //            DBGCOM        11     A     
 DBGCOM    D.EDVL   BSS    1            NEXT AVAILABLE ORDINAL OF DVL                      DBGCOM        12     A     
 DBGCOM    D.SAREA  BSS    1            BEGINNING ADDRESS OF AREA LIST // RELATIVE         DBGCOM        13     A     
 DBGCOM    D.EAREA  BSS    1            NEXT AVAILABLE ORDINAL OF AREA LIST                DBGCOM        14     A     
 DBGCOM    D.OPL    BSS    1            BEG. ADDRESS OF OPTIONS LIST // RELATIVE           DBGCOM        15     A     
 DBGCOM    D.SSMTB  BSS    1            BEG. ADDRESS OF SYMTAB RELATIVE TO //              DBGCOM        16     A     
 DBGCOM    D.ESMTB  BSS    1            NEXT AVAILABLE ORDINAL OF SYMTAB                   DBGCOM        17     A     
 DBGCOM    D.SAASI  BSS    1            BEGINNING ADDRESS OF AASI RELATIVE TO //           DBGCOM        18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 137    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGCOM  
  
 DBGCOM    D.RFMAP  BSS    1            FWA REFMAP OR ITS EQU REL TO //                    DBGCOM        19     A     
 DBGCOM    D.ELIST  BSS    1            CURRENT ELIST POINTER RELATIVE TO //               DBGCOM        20     A     
 DBGCOM    D.LELST  BSSZ   1                 LELIST FOR BUGPRO                             DBGCOM        21     A     
 DBGCOM    D.ELAST  BSS    1            ENDING ADDRESS OF ELIST RELATIVE TO //             DBGCOM        22     A     
 DBGCOM    D.NESTW  BSS    1            CURRENT ADDRESS OF OPRIONS LIST                    DBGCOM        23     A     
 DBGCOM    D.SFDIT  BSS    1            BEG. ADD. OF FIXED AREA LIST // RELATIVE           DBGCOM        24     A     
 DBGCOM    D.EFDIT  BSS    1            LAST ORDINAL + 1 OF FIXED AREA LIST                DBGCOM        25     A     
 DBGCOM    D.CON1   BSS    1            BEG. ADD. OF CONLIST RELATIVE TO //                DBGCOM        26     A     
 DBGCOM    D.CONL   BSS    1            LAST USED WORD ORDINAL OF CONLIST                  DBGCOM        27     A     
 DBGCOM    D.NAASI  BSS    1            NEXT AVAILABLE ORDINAL OF AASI                     DBGCOM        28     A     
 DBGCOM    SDBGIND  BSS    1            BEG. ADD. OF RANDOM DEBUG INDEX REL. TO //         DBGCOM        29     A     
 DBGCOM    D.STOR   BSSZ   1            SCANNERS CONSTOR FOR BUGCON                        DBGCOM        30     A     
 DBGCOM    D.SCON1  BSSZ   1            SCANNERS CONSTOR RELATIVE TO //                    DBGCOM        31     A     
 DBGCOM    D.DOLAST BSS    1            DOLAST FOR FTN DEBUG ROUTINES                      DBGCOM        32     A     
 DBGCOM    D.NOGO   BSSZ   1            .NE. 0 IF DEBUG STMTS NOT TO BE EXECUTED           DBGCOM        33     A     
 DBGCOM    D.PACK   BSSZ   1                                                               DBGCOM        34     A     
 DBGCOM    D.POW    BSS    1            PREVIOUS OPTION WORD                               DBGCOM        35     A     
 DBGCOM    D.OPFLG  BSSZ   1            .NE. 0 IF OPTIONS HAVE TO BE WRITTEN OUT           DBGCOM        36     A     
 DBGCOM    D.ON     BSS    1            0 IF TURNING ON OPTIONS. .NE.0 IF OFF              DBGCOM        37     A     
 DBGCOM    D.NOERR  BSS    1            NO. OF ERRORS IN AREA LIST                         DBGCOM        38     A     
 DBGCOM    D.PADD   BSS    1           = 0 IF INTERSPERSED  (FOR TURNON)                   DBGCOM        39     A     
 DBGCOM    FEFLAG   BSSZ   1            IF .NE. 0 CAUSES LIST OF FE STMT IN NOLIST         DBGCOM        40     A     
 DBGCOM    D.OPEN   BSSZ   1            .EQ.1 IF DUNIT OPEN, 0 IF CLOSED                   DBGCOM        41     A     
 DBGCOM    DBGPROG  BSSZ   1            LOCATION 56 FOR FTN DEBUG ROUTINES                 DBGCOM        42     A     
 DBGCOM    LDEBUG   BSSZ   1                 LOCATION OF DEBUG FOR FTN DEBUG RTNS          DBGCOM        43     A     
 DBGCOM    RECORD   BSSZ   1                 NEXT AVAILABLE RECORD NUMBER                  DBGCOM        44     A     
 DBGCOM    DISPOW   BSSZ   1                 DISPLAY FOR OPTIONS HEADER                    DBGCOM        45     A     
 DBGCOM    SUCCESS  BSSZ   1                 FLG FOR EXTERNAL PACKET ON DISK               DBGCOM        46     A     
 DBGCOM    LTFLAG   BSS    1            .TRUE. IF PROCESSING AN OFF STMT                   DBGCOM        47     A     
 DBGCOM    LFLAG    BSS    1            .TRUE. IF PROCESSING AN INTERSPERSED OFF           DBGCOM        48     A     
 DBGCOM    NOPROG   BSSZ   1            NON ZERO IF NO PROGRAM CARD AND                    DBGCOM        49     A     
 DBGCOM                                 CALLING DBGIPKT ONLY TO SET UP                     DBGCOM        50     A     
 DBGCOM                                 FOR FURTHER PROCESSING                             DBGCOM        51     A     
 DBGCOM    D.CURUD  BSS    2            UPDATE ID OF CURRENT STATEMENT                     DBGCOM        52     A     
 DBGCOM    D.DUKE1  BSS    1            BIN. LINE NO. OF START OF CURRENT STMT.            DBGCOM        53     A     
 DBGCOM    D.LABEL  BSS    1            LABEL OF CURRENT STATEMENT                         DBGCOM        54     A     
 DBGCOM    D.TYPE   BSS    1            STATEMENT TYPE                                     DBGCOM        55     A     
 DBGCOM    D.NEST   BSS    1            CURRENT POSITION IN D.NESTW                        DBGCOM        56     A     
 DBGCOM    LNGIND   BSS    1            LENGTH OF THE INDEX OF DEBUG RANDOM FILE           DBGCOM        57     A     
 DBGCOM    NOACT    DATA   0           .ZR. IF PACKET INFO AVAILABLE, .MI. IF NOT          DBGCOM        58     A     
 DBGCOM    AREAFLG  BSSZ   1                 AREA LIST FLAG                                DBGCOM        59     A     
 DBGCOM    LNGDRL   BSSZ   1                 LENGTH ALLOTTED TO THE DRL                    DBGCOM        60     A     
 DBGCOM    LNGDVL   BSSZ   1                 LENGTH ALLOTTED TO THE DVL                    DBGCOM        61     A     
 DBGCOM    C.PACK   BSS    1                 E IF EXTERNAL PACKET, I IF INTERNAL           DBGCOM        62     A     
 DBGCOM    UPDTTBL  BSS    20                TABLE FOR UPDATE IDS ON COMMENT CDS           DBGCOM        63     A     
 DBGCOM    COUNTUP  BSSZ   1                 NUMBER OF ENTRIES IN UPDTTBL                  DBGCOM        64     A     
 DBGCOM    SCNUPDT  BSSZ   1                 .NE. 0 IF PUTUPDT ENTERED FM SCANNER          DBGCOM        65     A     
 DBGCOM    INDEXNO  BSSZ   1                 1 IF NO INTERNAL PACKET INFO, 3 ELSE          DBGCOM        66     A     
 DBGCOM    PHSFLAG  BSSZ   1            .LT. 0 IF BETWEEN PHASES                           DBGCOM        67     A     
 DBGCOM             USE    *                                                               DBGCOM        68     A     
 DBGCOM             USE    /DBGBLK1/                                                       DBGCOM        69     A     
 DBGCOM    ALLARR   BSSZ   1            .NE. 0 IF OPTION APPLIES TO ALL ARRAYS             DBGCOM        70     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 138    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGCOM  
  
 DBGCOM    ALLCALL  BSSZ   1            .NE. 0 IF OPTION APPLIES TO ALL CALLS              DBGCOM        71     A     
 DBGCOM    ALLFUNC  BSSZ   1            .NE. 0 IF OPTION APPLIES TO ALL FUNCTIONS          DBGCOM        72     A     
 DBGCOM    GOTOSFL  BSSZ   1            .NE. 0 IF GO TOS OPTION IS ON                      DBGCOM        73     A     
 DBGCOM    NOGOFLG  BSSZ   1            .NE. 0 IF NO EXECUTION DESPITE FATAL ERROR         DBGCOM        74     A     
 DBGCOM    TRACEL   DATA   -1           CURRENT TRACE LEVEL                                DBGCOM        75     A     
 DBGCOM    ALLROU   BSS    1            .NE. 0 IF OPLIST APPLIES TO ALL ROUTINES           DBGCOM        76     A     
 DBGCOM    SPIDER   VFD    42/7LSPIDER.,18/0                                               DBGCOM        77     A     
 DBGCOM             USE    *                                                               DBGCOM        78     A     
 DBGCOM             USE    /NONFTNX/                                                       DBGCOM        79     A     
 DBGCOM    D.COL    BSSZ   1            .NE. 0 IF EXT DEBUG PACKET ALREADY DONE            DBGCOM        80     A     
 DBGCOM    DTYPE    BSSZ   1            = 0 IF NEXT STMT NOT DEBUG STMT                    DBGCOM        81     A     
 DBGCOM    C$STMT   =      DTYPE                                                           DBGCOM        82     A     
 DBGCOM   *C$STMT   BSSZ   1           .NZ. IF NEXT STMT IS C$-DEBUG, .ZR. IF NOT          DBGCOM        83     A     
 DBGCOM    D.NCURU  BSSZ   2            UPDATE ID OF NEXT STATEMENT                        DBGCOM        84     A     
 DBGCOM    D.NDUKE  BSSZ   1            BIN. LINE NO. OF START OF NEXT STMT                DBGCOM        85     A     
 DBGCOM    D.NLBEL  BSSZ   1            LABEL OF NEXT STATEMENT                            DBGCOM        86     A     
 DBGCOM    DBGRFMP  BSSZ   1            LAST USED WD OF REFMAP OR EQUIVALENT               DBGCOM        87     A     
 DBGCOM    DBGPHCT  BSSZ   1            " 0 WHILE DBGPHCT HAS CONTROL                      FCC1852       10     A     
 DBGCOM    D.CURT   BSSZ   1           .LT. 0 IF CURRENT STATEMENT IS C$ DEBUG             FCC2119        6     A     
 DBGCOM             USE    *                                                               DBGCOM        88     A     
 DBGCOM             PURGMAC CALLF                                                          DBGCOM        89     A     
 DBGCOM    CALLF    MACRO  NAME,RESET                                                      DBGCOM        90     A     
 DBGCOM             SA1    =0                                                              DBGCOM        91     A     
 DBGCOM             RJ     =X_NAME                                                         DBGCOM        92     A     
 DBGCOM             IFC    NE, RESET  ,4                                                   DBGCOM        93     A     
 DBGCOM             IFC    EQ, RESET B1 ,2                                                 DBGCOM        94     A     
 DBGCOM             SB1    1                                                               DBGCOM        95     A     
 DBGCOM             SKIP   1                                                               DBGCOM        96     A     
 DBGCOM             SB5    1                                                               DBGCOM        97     A     
 DBGCOM    CALLF    ENDM                                                                   DBGCOM        98     A     
 DBGCOM             SPACE  3                                                               DBGCOM        99     A     
 DBGCOM   ***                                                                              DBGCOM       100     A     
 DBGCOM   *         DBGERR - CALL ROUTINE TO PRINT AN ERROR MESSAGE WHEN IN DEBUG          DBGCOM       101     A     
 DBGCOM   *                MODE                                                            DBGCOM       102     A     
 DBGCOM   *                ARGUMENT IS TEXT OF THE MESSAGE                                 DBGCOM       103     A     
 DBGCOM   *                                                                                DBGCOM       104     A     
 DBGCOM             PURGMAC DBGERR                                                         DBGCOM       105     A     
 DBGCOM    DBGERR   MACRO  TEXT                                                            DBGCOM       106     A     
 DBGCOM             RJ     =XSAVREG                                                        DBGCOM       107     A     
 DBGCOM             SA5    =C/TEXT/                                                        DBGCOM       108     A     
 DBGCOM             RJ     =XDBGERR                                                        DBGCOM       109     A     
 DBGCOM             RJ     =XRESREG                                                        DBGCOM       110     A     
 DBGCOM             ENDM                                                                   DBGCOM       111     A     
 DBGCOM    DBGFSTT  EQU    39                                                              DBGCOM       112     A     
 DBGCOM    DBGEXTP  EQU    50                                                              DBGCOM       113     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DBGCOM  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DBGCOM                     113       113
          FCC1852                      1         1
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 139    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGCOM  
  
          FCC2119                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *COMDECK DBG=IDP                                                                 DBG=IDP        1     A     
 DBG=IDP   DBG=IDP  CTEXT  DBG=IDP - INTERACTIVE AND BATCH DEBUG PACKAGES.                 DBG=IDP        2     A     
 DBG=IDP   DBG=IDP  SPACE  4,8                                                             DBG=IDP        3     A     
 DBG=IDP            IF     -DEF,QUAL$,1                                                    DBG=IDP        4     A     
 DBG=IDP            QUAL   DBG=IDP                                                         DBG=IDP        5     A     
 DBG=IDP            BASE   D                                                               DBG=IDP        6     A     
 DBG=IDP   DBG=IDP  SPACE  4,8                                                             DBG=IDP        7     A     
 DBG=IDP  **        DBG=IDP - INTERACTIVE AND BATCH DEBUG PACKAGES.                        DBG=IDP        8     A     
 DBG=IDP  *                                                                                DBG=IDP        9     A     
 DBG=IDP  *                                                                                DBG=IDP       10     A     
 DBG=IDP  *                CONTAINS THE INTERACTIVE DEBUG PACKAGE (IDP=), WHICH            DBG=IDP       11     A     
 DBG=IDP  *         PLACES A HOST PROGRAM IN INTERACTIVE MODE; AND THE 2 BATCH             DBG=IDP       12     A     
 DBG=IDP  *         DEBUGGING ROUTINES (REG=,SNP=), WHICH PROVIDE REGISTER AND             DBG=IDP       13     A     
 DBG=IDP  *         CORE SNAPSHOT DUMPS.                                                   DBG=IDP       14     A     
 DBG=IDP  *                                                                                DBG=IDP       15     A     
 DBG=IDP  *            IN THE SECTIONS THAT FOLLOW, *ASSEMBLY-TIME DEPENDENCIES*           DBG=IDP       16     A     
 DBG=IDP  *         ARE DEFINED TO BE THE INTERFACES THAT THE IDP INSTALLER MUST           DBG=IDP       17     A     
 DBG=IDP  *         PROVIDE; *ASSEMBLY-TIME OPTIONS* ARE THOSE INTERFACES WHICH            DBG=IDP       18     A     
 DBG=IDP  *         ARE OPTIONAL, I.E. INTERFACES THAT HAVE DEFAULT CONDITIONS.            DBG=IDP       19     A     
 DBG=IDP  *            IN THE CASE WHERE THE USER PROVIDES A SUBROUTINE THAT WILL          DBG=IDP       20     A     
 DBG=IDP  *         BE CALLED BY IDP, THE *ENTRY* AND *EXIT* CONDITIONS ARE SHOWN.         DBG=IDP       21     A     
 DBG=IDP  *         IN ADDITION, THE REGISTERS THAT CANNOT BE ALTERED BY THE USER          DBG=IDP       22     A     
 DBG=IDP  *         SUBROUTINE ARE SPECIFIED VIA *LOCKED*.  (B1) ARE ASSUMED TO BE         DBG=IDP       23     A     
 DBG=IDP  *         EQUAL TO 1 (LOCKED), AND WILL THEREFORE NOT BE MENTIUNED               DBG=IDP       24     A     
 DBG=IDP  *         AGAIN.                                                                 DBG=IDP       25     A     
 DBG=IDP  *                                                                                DBG=IDP       26     A     
 DBG=IDP  *         ASSEMBLY-TIME DEPENDENCIES--                                           DBG=IDP       27     A     
 DBG=IDP  *                                                                                DBG=IDP       28     A     
 DBG=IDP  ************************************************************************         DBG=IDP       29     A     
 DBG=IDP  *                                                                                DBG=IDP       30     A     
 DBG=IDP  ***       CP.NFLS - NOMINAL FIELD LENGTH SCM.                                    DBG=IDP       31     A     
 DBG=IDP  *                                                                                DBG=IDP       32     A     
 DBG=IDP  *                *CP.NFLS* MUST BE THE NAME OF THE SCM LOCATION THAT             DBG=IDP       33     A     
 DBG=IDP  *         CONTAINS THE CURRENT NOMINAL FIELD LENGTH FOR THE HOST                 DBG=IDP       34     A     
 DBG=IDP  *         PROGRAM.  THE CONTENTS OF *CP.NFLS* ARE USED BY *DBG=IDP*              DBG=IDP       35     A     
 DBG=IDP  *         FOR ADDRESS COMPUTATION CHECKS.                                        DBG=IDP       36     A     
 DBG=IDP  *                0 .LE. LEGAL ADDR .LE. (CP.NFLS)                                DBG=IDP       37     A     
 DBG=IDP  *                                                                                DBG=IDP       38     A     
 DBG=IDP  *         FORMAT--                                                               DBG=IDP       39     A     
 DBG=IDP  *         VFD    42/0,18/FL                                                      DBG=IDP       40     A     
 DBG=IDP  *                                                                                DBG=IDP       41     A     
 DBG=IDP  *         NOTE-- IT IS SUGGESTED THAT (CP.NFLS) BE 10B WORDS LESS THAN           DBG=IDP       42     A     
 DBG=IDP  *           THE ACTUAL FIELD LENGTH SCM TO AVOID POSSIBLE STACK                  DBG=IDP       43     A     
 DBG=IDP  *           LOOK AHEAD PROBLEMS NEAR FL.                                         DBG=IDP       44     A     
 DBG=IDP  ************************************************************************         DBG=IDP       45     A     
 DBG=IDP  *                                                                                DBG=IDP       46     A     
 DBG=IDP  *         ASSEMBLY-TIME OPTIONS--                                                DBG=IDP       47     A     
 DBG=IDP  *                                                                                DBG=IDP       48     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 140    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  ************************************************************************         DBG=IDP       49     A     
 DBG=IDP  *                                                                                DBG0002       22     A     
 DBG=IDP  ***              IF THE SYMBOL *EOS* IS A MICRO NAME (MIC), THEN                 DBG0002       23     A     
 DBG=IDP  *         "EOS" IS A MICRO WHICH DEFINES THE INTERACTIVE                         DBG0002       24     A     
 DBG=IDP  *         END-OF-STATEMENT CHARACTER.  THE USE OF THIS CHARACTER ALLOWS          DBG0002       25     A     
 DBG=IDP  *         AN *IDP* USER TO ENTER MORE THAN ONE INTERACTIVE COMMAND ON            DBG0002       26     A     
 DBG=IDP  *         A SINGLE LINE.                                                         DBG0002       27     A     
 DBG=IDP  *                                                                                DBG0002       28     A     
 DBG=IDP  *         DEFAULT IS --                                                          DBG0002       29     A     
 DBG=IDP  *                                                                                DBG0002       30     A     
 DBG=IDP  *         EOS    MICRO  1,,/;/                                                   DBG0002       31     A     
 DBG=IDP  *                                                                                DBG0002       32     A     
 DBG=IDP  *         E.G.   SNAP,100;REG,X1;END                                             DBG0002       33     A     
 DBG=IDP  *                                                                                DBG0002       34     A     
 DBG=IDP  *         NOTE   THE END OF STATEMENT LOGIC WILL NOT WORK PROPERLY IF            DBG0002       35     A     
 DBG=IDP  *                "EOS" IS ONE OF THE FOLLOWING 8 CHARACTERS --                   DBG0002       36     A     
 DBG=IDP  *                JKLMNOPQ                                                        DBG0002       37     A     
 DBG=IDP  ************************************************************************         DBG0002       38     A     
 DBG=IDP  *                                                                                DBG=IDP       50     A     
 DBG=IDP  ***          IF THE SYMBOL *FAA=* IS DEFINED (DEF), THEN *FAA= - FIND            DBG=IDP       51     A     
 DBG=IDP  *         ABSOLUTE ADDRESS* IS A USER SUBROUTINE THAT WILL PROVIDE               DBG=IDP       52     A     
 DBG=IDP  *         *DBG=IDP* WITH AN ABSOLUTE ADDRESS ASSOCIATED WITH A *NAME*.           DBG=IDP       53     A     
 DBG=IDP  *         THIS OPTION IS INTENDED FOR HOST PROGRAMS THAT CONSIST OF              DBG=IDP       54     A     
 DBG=IDP  *         MULTIPLE *DECK*S OR *IDENT*S, AND WHERE USERS OF *IDP* WOULD           DBG=IDP       55     A     
 DBG=IDP  *         LIKE TO BE ABLE TO REFERENCE ADDRESSES RELATIVE TO A                   DBG=IDP       56     A     
 DBG=IDP  *         DECK NAME--  E.G. SNAP NAME+20,,10                                     DBG=IDP       57     A     
 DBG=IDP  *            IF *FAA=* IS DEFINED, THEN *IDP* WILL *RJ =XFAA=* TO TRY TO         DBG=IDP       58     A     
 DBG=IDP  *         ASSOCIATE AN ABSOLUTE ADDRESS WITH *NAME* BEFORE HE SEARCHS            DBG=IDP       59     A     
 DBG=IDP  *         THE USER *SET* TABLE.                                                  DBG=IDP       60     A     
 DBG=IDP  *                                                                                DBG=IDP       61     A     
 DBG=IDP  **        FAA= - FIND ABSOLUTE ADDRESS.                                          DBG=IDP       62     A     
 DBG=IDP  *                                                                                DBG=IDP       63     A     
 DBG=IDP  *         ENTRY  (X0) = MX0 7*CHAR     (CHAR=6)                                  DBG=IDP       64     A     
 DBG=IDP  *                (X1) = 42/0LNAME, 18/0                                          DBG=IDP       65     A     
 DBG=IDP  *                                                                                DBG=IDP       66     A     
 DBG=IDP  *         EXIT   (X6) = .PL. IF ABS ADDR ASSOCIATED WITH NAME                    DBG=IDP       67     A     
 DBG=IDP  *                       .MI. IF NO ADDR KNOWN FOR *NAME* (I.E. NO FIND)          DBG=IDP       68     A     
 DBG=IDP  *                                                                                DBG=IDP       69     A     
 DBG=IDP  *         LOCKED X - 0,1                                                         DBG=IDP       70     A     
 DBG=IDP  ************************************************************************         DBG=IDP       71     A     
 DBG=IDP  *                                                                                DBG=IDP       72     A     
 DBG=IDP  ***          IF THE SYMBOL *FRA=* IS DEFINED (DEF), THEN *FRA= - FIND            DBG=IDP       73     A     
 DBG=IDP  *         RELATIVE ADDRESS* IS A USER SUBROUTINE THAT WILL PROVIDE               DBG=IDP       74     A     
 DBG=IDP  *         *DBG=IDP* WITH A DISPLAY CODE (DPC) NAME AND RELATIVE OFFSET           DBG=IDP       75     A     
 DBG=IDP  *         ASSOCIATED WITH AN ABSOLUTE ADDRESS. THIS ROUTINE IS THE               DBG=IDP       76     A     
 DBG=IDP  *         LOGICAL COMPLEMENT TO *FAA=*, AND IS USED BY ROUTINES IN               DBG=IDP       77     A     
 DBG=IDP  *         *DBG=IDP* TO OUTPUT A MORE HUMAN READABLE ADDRESS FORMAT.              DBG=IDP       78     A     
 DBG=IDP  *                                                                                DBG=IDP       79     A     
 DBG=IDP  *         E.G. IN RESPONSE TO *IDP* COMMAND-- CODE NAME+10                       DBG=IDP       80     A     
 DBG=IDP  *         1025   010001023         RJ    1023     6 IN NAME                      DBG=IDP       81     A     
 DBG=IDP  *                                                                                DBG=IDP       82     A     
 DBG=IDP  *            IF *FRA=* IS DEFINED, WHENEVER A ROUTINE IN *DBG=IDP*               DBG=IDP       83     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 141    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *         REQUIRES THIS RELATIVE ADDRESS PLUS OFFSET DPC FORMAT, A               DBG=IDP       84     A     
 DBG=IDP  *         *EQ =XFRA=* IS EXECUTED.                                               DBG=IDP       85     A     
 DBG=IDP  *                                                                                DBG=IDP       86     A     
 DBG=IDP  **        FRA= - FIND RELATIVE ADDRESS.                                          DBG=IDP       87     A     
 DBG=IDP  *                                                                                DBG=IDP       88     A     
 DBG=IDP  *         ENTRY  (X1) = 60/ABS ADDR                                              DBG=IDP       89     A     
 DBG=IDP  *                (B7) = RETURN ADDRESS-- AN *RJ =XFRA=* IS NOT USED              DBG=IDP       90     A     
 DBG=IDP  *                         BECAUSE IF THE HOST PROGRAM HAS REPRIEVE               DBG=IDP       91     A     
 DBG=IDP  *                         PROCESSING, THEN *FRA=* COULD BE INCORPORATED          DBG=IDP       92     A     
 DBG=IDP  *                         INTO IT AND EXIST IN AN AREA CHECKSUMMED               DBG=IDP       93     A     
 DBG=IDP  *                         BY *RPV*                                               DBG=IDP       94     A     
 DBG=IDP  *                                                                                DBG=IDP       95     A     
 DBG=IDP  *         EXIT   (X6) = 1ST WORD OF DPC RESULT                                   DBG=IDP       96     A     
 DBG=IDP  *                         E.G. (X6) = NNNNNN.IN.     (.=BLANK(55B))              DBG=IDP       97     A     
 DBG=IDP  *                (X7) = 2ND WORD OF DPC RESULT  (-C- FORMAT)                     DBG=IDP       98     A     
 DBG=IDP  *                         E.G. (X7) = XXXXXXX000     (0=00B)                     DBG=IDP       99     A     
 DBG=IDP  *                                                                                DBG=IDP      100     A     
 DBG=IDP  *         LOCKED X - 5                                                           DBG=IDP      101     A     
 DBG=IDP  *                A - 0,5,6,7                                                     DBG=IDP      102     A     
 DBG=IDP  ************************************************************************         DBG0002       39     A     
 DBG=IDP  *                                                                                DBG0002       40     A     
 DBG=IDP  ***              IF THE SYMBOL *PROMPT* IS A MICRO NAME (MIC), THEN              DBG0002       41     A     
 DBG=IDP  *         "PROMPT" IS A MICRO WHICH DEFINES THE INTERACTIVE PROMPT.              DBG0002       42     A     
 DBG=IDP  *         THIS PROMPT WILL BE ISSUED WHENEVER *IDP* REQUIRES THAT THE            DBG0002       43     A     
 DBG=IDP  *         USER ENTER A COMMAND.                                                  DBG0002       44     A     
 DBG=IDP  *                                                                                DBG0002       45     A     
 DBG=IDP  *         DEFAULT IS --                                                          DBG0002       46     A     
 DBG=IDP  *                                                                                DBG0002       47     A     
 DBG=IDP  *         PROMPT MICRO  1,,/>>/                                                  DBG0002       48     A     
 DBG=IDP  *                                                                                DBG0002       49     A     
 DBG=IDP  *         NOTE - *IDP* PREFIXES THE "PROMPT" WITH A BLANK (55B) PRINT            DBG0002       50     A     
 DBG=IDP  *                CONTROL CHARACTER.                                              DBG0002       51     A     
 DBG=IDP  ************************************************************************         DBG=IDP      103     A     
 DBG=IDP  *                                                                                DBG=IDP      104     A     
 DBG=IDP  ***          IF THE SYMBOL *UKT=* IS DEFINED (DEF), THEN *UKT=* IS THE           DBG=IDP      105     A     
 DBG=IDP  *         FWA OF THE USER KEYWORD TABLE. THIS OPTION ALLOWS THE USER TO          DBG=IDP      106     A     
 DBG=IDP  *         PERFORM HER OR HIS OWN KEYWORD PROCESSING IN INTERACTIVE MODE.         DBG=IDP      107     A     
 DBG=IDP  *         IF *UKT=* IS DEFINED, THEN AFTER *IDP* HAS SEARCHED ITS OWN            DBG=IDP      108     A     
 DBG=IDP  *         KEYWORD TABLE, IT WILL SEARCH THE USER KEYWORD TABLE AT                DBG=IDP      109     A     
 DBG=IDP  *         *UKT=* ET SEQ, AND BRANCH TO THE PROCESSOR ADDRESS IF A FIND           DBG=IDP      110     A     
 DBG=IDP  *         IS MADE. *UKT=* FORMAT--                                               DBG=IDP      111     A     
 DBG=IDP  *                                                                                DBG=IDP      112     A     
 DBG=IDP  * UKT=    BSS    0                                                               DBG=IDP      113     A     
 DBG=IDP  *         VFD    42/0LKEYWORD, 18/PROCESSOR ADDR                                 DBG=IDP      114     A     
 DBG=IDP  *          .                                                                     DBG=IDP      115     A     
 DBG=IDP  *          .                                                                     DBG=IDP      116     A     
 DBG=IDP  *         DATA   0           END OF TABLE MARK                                   DBG=IDP      117     A     
 DBG=IDP  *                                                                                DBG=IDP      118     A     
 DBG=IDP  *            AFTER KEYWORD PROCESSING, THE USER SHOULD BRANCH TO EITHER          DBG=IDP      119     A     
 DBG=IDP  *         *IDP=MN* TO REENTER THE MAIN LOOP, OR TO *IDP=ER* TO ISSUE             DBG=IDP      120     A     
 DBG=IDP  *         MESSAGE *ERROR--* BEFORE REENTERING MAIN LOOP.                         DBG=IDP      121     A     
 DBG=IDP  ************************************************************************         DBG=IDP      122     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 142    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                                                                                DBG=IDP      123     A     
 DBG=IDP  ***          IF THE SYMBOL *UIO=* IS DEFINED (DEF), THEN *UIO= - USER            DBG=IDP      124     A     
 DBG=IDP  *         IDP OWNCODE* IS A USER SUBROUTINE THAT IS CALLED AFTER ENTRY           DBG=IDP      125     A     
 DBG=IDP  *         TO *IDP=*. IT ALLOWS THE USER TO PERFORM HER OWN TASKS BEFORE          DBG=IDP      126     A     
 DBG=IDP  *         ENTERING INTERACTIVE MODE (E.G. CHECKING A MASTER SNAP FLAG).          DBG=IDP      127     A     
 DBG=IDP  *                                                                                DBG=IDP      128     A     
 DBG=IDP  **        UIO= - USER IDP OWNCODE.                                               DBG=IDP      129     A     
 DBG=IDP  *                                                                                DBG=IDP      130     A     
 DBG=IDP  *         ENTRY  NONE                                                            DBG=IDP      131     A     
 DBG=IDP  *                                                                                DBG=IDP      132     A     
 DBG=IDP  *         EXIT   (X1) = .MI. IF TO ENTER INTERACTIVE MODE                        DBG=IDP      133     A     
 DBG=IDP  *                     = .PL. IF NOT ENTERING INTERACTIVE MODE THIS TIME          DBG=IDP      134     A     
 DBG=IDP  *                              I.E. ALL REGISTERS ARE RESTORED AND               DBG=IDP      135     A     
 DBG=IDP  *                                   CONTROL RETURNS TO CALLER                    DBG=IDP      136     A     
 DBG=IDP  *                                                                                DBG=IDP      137     A     
 DBG=IDP  *         LOCKED X - 5                                                           DBG=IDP      138     A     
 DBG=IDP  ************************************************************************         DBG=IDP      139     A     
 DBG=IDP  *                                                                                DBG=IDP      140     A     
 DBG=IDP  ***       .OS - DEFINE OPERATING SYSTEM.                                         DBG=IDP      141     A     
 DBG=IDP  *                                                                                DBG=IDP      142     A     
 DBG=IDP  *         .OS = 1   KRONOS 2 OR NOS 1/TS                                         DBG=IDP      143     A     
 DBG=IDP  *         .OS = 2   SCOPE 2  (CYBER 76)                                          DBG=IDP      144     A     
 DBG=IDP  *         .OS = 3   SCOPE 3 OR NOS 1/BE  (DEFAULT)                               DBG=IDP      145     A     
 DBG=IDP  ************************************************************************         DBG=IDP      146     A     
 DBG=IDP  *                                                                                DBG=IDP      147     A     
 DBG=IDP  ***          IF THE SYMBOL *URO=* IS DEFINED (DEF), THEN *URO= - USER            DBG=IDP      148     A     
 DBG=IDP  *         REG= OWNCODE* IS A USER SUBROUTINE THAT IS CALLED AFTER ENTRY          DBG=IDP      149     A     
 DBG=IDP  *         TO THE REGISTER SNAPSHOT ROUTINE *REG=* (CALLED VIA *REG*              DBG=IDP      150     A     
 DBG=IDP  *         MACRO IN *DBG=MAC*). IT ALLOWS THE USER TO PERFORM HIS OWN             DBG=IDP      151     A     
 DBG=IDP  *         TASKS BEFORE THE REGISTER SNAPSHOT IS TAKEN (E.G. CHECKING A           DBG=IDP      152     A     
 DBG=IDP  *         MASTER SNAP FLAG).                                                     DBG=IDP      153     A     
 DBG=IDP  *                                                                                DBG=IDP      154     A     
 DBG=IDP  **        URO= - USER REG= OWNCODE.                                              DBG=IDP      155     A     
 DBG=IDP  *                                                                                DBG=IDP      156     A     
 DBG=IDP  *         ENTRY  NONE                                                            DBG=IDP      157     A     
 DBG=IDP  *                                                                                DBG=IDP      158     A     
 DBG=IDP  *         EXIT   (X1) = .MI. IF TO PERFORM REGISTER SNAPSHOT                     DBG=IDP      159     A     
 DBG=IDP  *                     = .PL. IF NO REGISTER SNAPSHOT THIS TIME                   DBG=IDP      160     A     
 DBG=IDP  ************************************************************************         DBG=IDP      161     A     
 DBG=IDP  *                                                                                DBG=IDP      162     A     
 DBG=IDP  ***          IF THE SYMBOL *USO=* IS DEFINED (DEF), THEN *USO= - USER            DBG=IDP      163     A     
 DBG=IDP  *         SNP= OWNCODE* IS A USER SUBROUTINE THAT IS CALLED AFTER ENTRY          DBG=IDP      164     A     
 DBG=IDP  *         TO THE CORE SNAPSHOT ROUTINE *SNP=* (CALLED VIA *SNAP* MACRO           DBG=IDP      165     A     
 DBG=IDP  *         IN *DBG=MAC*). IT ALLOWS THE USER TO PERFORM HIS OWN TASKS             DBG=IDP      166     A     
 DBG=IDP  *         BEFORE THE SNAPSHOT IS TAKEN (E.G. CHECKING A MASTER SNAP              DBG=IDP      167     A     
 DBG=IDP  *         FLAG).                                                                 DBG=IDP      168     A     
 DBG=IDP  *                                                                                DBG=IDP      169     A     
 DBG=IDP  **        USO= - USER SNP= OWNCODE.                                              DBG=IDP      170     A     
 DBG=IDP  *                                                                                DBG=IDP      171     A     
 DBG=IDP  *         ENTRY  NONE                                                            DBG=IDP      172     A     
 DBG=IDP  *                                                                                DBG=IDP      173     A     
 DBG=IDP  *         EXIT   (X1) = .MI. IF SNAP TO BE TAKEN                                 DBG=IDP      174     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 143    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                     = .PL. IF NO SNAP THIS TIME                                DBG=IDP      175     A     
 DBG=IDP  ************************************************************************         DBG=IDP      176     A     
 DBG=IDP  *                                                                                DBG=IDP      177     A     
 DBG=IDP  ***              AS A SPACE OPTIMIZATION, IF THE FOLLOWING GENERAL               DBG=IDP      178     A     
 DBG=IDP  *         UTILITY SUBROUTINES ARE DEFINED (DEF), THEN THEY WILL NOT BE           DBG=IDP      179     A     
 DBG=IDP  *         ASSEMBLED WITHIN *DBG=IDP*--                                           DBG=IDP      180     A     
 DBG=IDP  *                                                                                DBG=IDP      181     A     
 DBG=IDP  *         SFN - SPACE FILL NAME.                                                 DBG=IDP      182          I
          -DBG0004
 DBG=IDP  *         WOD - CONVERT A FULL BINARY WORD TO OCTAL DPC.                         DBG=IDP      183     A     
 DBG=IDP  *                                                                                DBG=IDP      184     A     
 DBG=IDP  *                THIS OPTIOM APPLIES MAINLY TO HOST PROGRAMS THAT HAVE           DBG=IDP      185     A     
 DBG=IDP  *         *DBG=IDP* ASSEMBLED ONLY IN A TEST OR DEBUGGING CONFIGURATION,         DBG=IDP      186     A     
 DBG=IDP  *         BUT THAT REQUIRE THE ABOVE UTILITY SUBROUTINES UNDER ALL               DBG=IDP      187     A     
 DBG=IDP  *         CONFIGURATIONS, THEREBY NECESSITATING A SEPARATE COPY OF THEM.         DBG=IDP      188     A     
 DBG=IDP  ************************************************************************         DBG=IDP      189     A     
 DBG=IDP   .OS      SPACE  4,8                                                             DBG=IDP      190     A     
 DBG=IDP  **        DEFINE DEFAULT OPERATING SYSTEM.                                       DBG=IDP      191     A     
 DBG=IDP            IF     -DEF,.OS,1                                                      DBG=IDP      192     A     
 DBG=IDP   .OS      =      3           SCOPE 3                                             DBG=IDP      193     A     
 DBG=IDP   BITMIC   SPACE  4,8                                                             DBG0002       52     A     
 DBG=IDP  **        BITMIC - MACRO TO GENERATE BIT MASKS FOR CHARACTER STRINGS             DBG0002       53     A     
 DBG=IDP  *                                                                                DBG0002       54     A     
 DBG=IDP  * MIKE    BITMIC (BITS),OFF                                                      DBG0002       55     A     
 DBG=IDP  * MIKE    LETMIC (LETS),OFF             (ALTERNATE FORM)                         DBG0002       56     A     
 DBG=IDP  *                                                                                DBG0002       57     A     
 DBG=IDP  *         *MIKE* = THE NAME OF THE MICRO TO BE GENERATED.                        DBG0002       58     A     
 DBG=IDP  *         *BITS* = (BIT1,BIT2,...,BITN)                                          DBG0002       59     A     
 DBG=IDP  *                WHERE EACH *BITN* IS A VALUE OF A BIT THAT IS TO BE SET         DBG0002       60     A     
 DBG=IDP  *         *LETS* = A CHARACTER STRING, (ABCD...N) IMPLIES THAT                   DBG0002       61     A     
 DBG=IDP  *                THE BIT VALUES ARE (1RA,1RB,1RC,...,1RN).                       DBG0002       62     A     
 DBG=IDP  *                THIS ALTERNATE FORM IS MERELY A CONVENIENCE ITEM.               DBG0002       63     A     
 DBG=IDP  *         *OFF*  = OFFSET, IF OTHER THAN 59.                                     DBG0002       64     A     
 DBG=IDP  *                                                                                DBG0002       65     A     
 DBG=IDP  *         GENERATES A MICRO WHICH IS A 20 OCTAL DIGIT INTEGER (WITH              DBG0002       66     A     
 DBG=IDP  *                THE *B* SUFFIX PRESENT) WHICH REPRESENTS THE SUM OF             DBG0002       67     A     
 DBG=IDP  *                    ---     2**(OFF-BIT(N))     ---                             DBG0002       68     A     
 DBG=IDP  *                TAKEN OVER ALL *N* PARAMETERS.                                  DBG0002       69     A     
 DBG=IDP  *                *OFF* IS = 59 UNLESS EXPLICITLY MENTIONED.                      DBG0002       70     A     
 DBG=IDP  *                                                                                DBG0002       71     A     
 DBG=IDP  *         USES   (AS SCRATCH SYMBOLS)  A B C D E F G                             DBG0002       72     A     
 DBG=IDP                                                                                   DBG0002       73     A     
 DBG=IDP            NOREF  A,B,C,D,E,F,G                                                   DBG0002       74     A     
 DBG=IDP                                                                                   DBG0002       75     A     
 DBG=IDP            PURGMAC BITMIC                                                         DBG0002       76     A     
 DBG=IDP                                                                                   DBG0002       77     A     
 DBG=IDP            MACRO  BITMIC,LOC,BITS,OFF                                             DBG0002       78     A     
 DBG=IDP   C        OCTMIC ,10D                                                            DBG0002       79     A     
 DBG=IDP   D        OCTMIC ,10D                                                            DBG0002       80     A     
 DBG=IDP   F        SET    OFF 59D                                                         DBG0002       81     A     
 DBG=IDP            IRP    BITS                                                            DBG0002       82     A     
 DBG=IDP  ..2       IFLE   F-BITS,29                                                       DBG0002       83     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 144    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP   E        DECMIC F-BITS,2                                                        DBG0002       84     A     
 DBG=IDP   C        OCTMIC 1S"E"+"C"B,10D                                                  DBG0002       85     A     
 DBG=IDP  ..2       ELSE                                                                   DBG0002       86     A     
 DBG=IDP   E        DECMIC F-30-BITS,2                                                     DBG0002       87     A     
 DBG=IDP   D        OCTMIC 1S"E"+"D"B,10D                                                  DBG0002       88     A     
 DBG=IDP  ..2       ENDIF                                                                  DBG0002       89     A     
 DBG=IDP            IRP                                                                    DBG0002       90     A     
 DBG=IDP   LOC      MICRO  1,, "D""C"B                                                     DBG0002       91     A     
 DBG=IDP   BITMIC   ENDM                                                                   DBG0002       92     A     
 DBG=IDP   LETMIC   SPACE  4,8                                                             DBG0002       93     A     
 DBG=IDP            PURGMAC LETMIC                                                         DBG0002       94     A     
 DBG=IDP                                                                                   DBG0002       95     A     
 DBG=IDP            MACRO  LETMIC,LOC,BITS,OFF                                             DBG0002       96     A     
 DBG=IDP   A        SET    0                                                               DBG0002       97     A     
 DBG=IDP   B        MICRO  1,,^_BITS_^                                                     DBG0002       98     A     
 DBG=IDP   C        OCTMIC ,10D                                                            DBG0002       99     A     
 DBG=IDP   D        OCTMIC ,10D                                                            DBG0002      100     A     
 DBG=IDP   F        SET    OFF 59D                                                         DBG0002      101     A     
 DBG=IDP   G        MICCNT B                                                               DBG0002      102     A     
 DBG=IDP  .1        DUP    G                                                               DBG0002      103     A     
 DBG=IDP   A        SET    A+1                                                             DBG0002      104     A     
 DBG=IDP   B        MICRO  A,1,^_BITS_^                                                    DBG0002      105     A     
 DBG=IDP  ..2       IFLE   F-1R"B",29                                                      DBG0002      106     A     
 DBG=IDP   E        DECMIC F-1R"B",2                                                       DBG0002      107     A     
 DBG=IDP   C        OCTMIC 1S"E"+"C"B,10D                                                  DBG0002      108     A     
 DBG=IDP  ..2       ELSE                                                                   DBG0002      109     A     
 DBG=IDP   E        DECMIC F-30-1R"B",2                                                    DBG0002      110     A     
 DBG=IDP   D        OCTMIC 1S"E"+"D"B,10D                                                  DBG0002      111     A     
 DBG=IDP  ..2       ENDIF                                                                  DBG0002      112     A     
 DBG=IDP  .1        ENDD                                                                   DBG0002      113     A     
 DBG=IDP   LOC      MICRO  1,, "D""C"B                                                     DBG0002      114     A     
 DBG=IDP   LETMIC   ENDM                                                                   DBG0002      115     A     
 DBG=IDP   CHARMX   SPACE  4,8                                                             DBG0002      116     A     
 DBG=IDP  **        CHARMX - GENERATE CHARACTER SHIFT MASK WORD.                           DBG0002      117     A     
 DBG=IDP  *                                                                                DBG0002      118     A     
 DBG=IDP  *                                                                                DBG0002      119     A     
 DBG=IDP  * LAB     CHARMX CHAR,BIAS                                                       DBG0002      120     A     
 DBG=IDP  *                                                                                DBG0002      121     A     
 DBG=IDP  * MX=NR09 CHARMX (0,1,2,3,4,5,6,7,8,9)                                           DBG0002      122     A     
 DBG=IDP  * MX=TOKN CHARMX ("EOS",+,-,*,(,)),+7777B-1RM                                    DBG0002      123     A     
 DBG=IDP  *                                                                                DBG0002      124     A     
 DBG=IDP  *         ENTRY  LAB  = COMPASS ADDRESS FIELD OF CHARACTER SHIFT MASK            DBG0002      125     A     
 DBG=IDP  *                         WORD                                                   DBG0002      126     A     
 DBG=IDP  *                CHAR = A LIST OF CHARACTERS TO GENERATE SHIFT MASK FOR          DBG0002      127     A     
 DBG=IDP  *                BIAS = CHAR BIAS (MODULO 60D)                                   DBG0002      128     A     
 DBG=IDP  *                                                                                DBG0002      129     A     
 DBG=IDP  *                         IF (LAB) ARE LEFT SHIFTED *CHAR_BIAS*, THEN            DBG0002      130     A     
 DBG=IDP  *                         SIGN BIT WILL BE ON FOR ANY CHARACTER THAT             DBG0002      131     A     
 DBG=IDP  *                         APPEARED IN *CHAR* LIST, AND OFF FOR ALL               DBG0002      132     A     
 DBG=IDP  *                         OTHERS.                                                DBG0002      133     A     
 DBG=IDP  *                                                                                DBG0002      134     A     
 DBG=IDP  *         EXIT   NONE                                                            DBG0002      135     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 145    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                                                                                DBG0002      136     A     
 DBG=IDP  *         USES   NONE                                                            DBG0002      137     A     
 DBG=IDP  *                                                                                DBG0002      138     A     
 DBG=IDP  *         CALLS  NONE                                                            DBG0002      139     A     
 DBG=IDP                                                                                   DBG0002      140     A     
 DBG=IDP            NOREF  .2,.3,.4                                                        DBG0002      141     A     
 DBG=IDP                                                                                   DBG0002      142     A     
 DBG=IDP            PURGMAC CHARMX                                                         DBG0002      143     A     
 DBG=IDP                                                                                   DBG0002      144     A     
 DBG=IDP            MACRO  CHARMX,LAB,CHAR,BIAS                                            DBG0002      145     A     
 DBG=IDP  *                                                                                DBG0002      146     A     
 DBG=IDP   .1       MICRO  1,60,/0000000000000000000000000000000000000000000000000         DBG0002      147     A     
 DBG=IDP  ,00000000000/                                                                    DBG0002      148     A     
 DBG=IDP  *                                                                                DBG0002      149     A     
 DBG=IDP   CHAR     IRP    CHAR                                                            DBG0002      150     A     
 DBG=IDP   .2       MICRO  1,,/CHAR/                                                       DBG0002      151     A     
 DBG=IDP   .3       MICCNT .2                                                              DBG0002      152     A     
 DBG=IDP  *                                                                                DBG0002      153     A     
 DBG=IDP            IFEQ   .3,1,2                                                          DBG0002      154     A     
 DBG=IDP   .4       SET    1R".2"                                                          DBG0002      155     A     
 DBG=IDP            SKIP   1                                                               DBG0002      156     A     
 DBG=IDP   .4       SET    ".2"                                                            DBG0002      157     A     
 DBG=IDP  *                                                                                DBG0002      158     A     
 DBG=IDP            IFC    NE,/BIAS//,1                                                    DBG0002      159     A     
 DBG=IDP   .4       SET    .4_BIAS                                                         DBG0002      160     A     
 DBG=IDP  *                                                                                DBG0002      161     A     
 DBG=IDP   .4       OCTMIC .4,2                                                            DBG0002      162     A     
 DBG=IDP   .2       SET    ".4"B                                                           DBG0002      163     A     
 DBG=IDP  *                                                                                DBG0002      164     A     
 DBG=IDP            IFNE   .2,0,2                                                          DBG0002      165     A     
 DBG=IDP   .3       MICRO  1,.2,/".1"/                                                     DBG0002      166     A     
 DBG=IDP            SKIP   1                                                               DBG0002      167     A     
 DBG=IDP   .3       MICRO  1,,//                                                           DBG0002      168     A     
 DBG=IDP  *                                                                                DBG0002      169     A     
 DBG=IDP            IFNE   .2,59,2                                                         DBG0002      170     A     
 DBG=IDP   .4       MICRO  .2+2,,/".1"/                                                    DBG0002      171     A     
 DBG=IDP            SKIP   1                                                               DBG0002      172     A     
 DBG=IDP   .4       MICRO  1,,//                                                           DBG0002      173     A     
 DBG=IDP  *                                                                                DBG0002      174     A     
 DBG=IDP   .1       MICRO  1,60,/".3"1".4"/                                                DBG0002      175     A     
 DBG=IDP   CHAR     IRP                                                                    DBG0002      176     A     
 DBG=IDP  *                                                                                DBG0002      177     A     
 DBG=IDP   .2       SET    0                                                               DBG0002      178     A     
 DBG=IDP   LAB      BSS    0                                                               DBG0002      179     A     
 DBG=IDP  *                                                                                DBG0002      180     A     
 DBG=IDP   BIT      DUP    60                                                              DBG0002      181     A     
 DBG=IDP   .2       SET    .2+1                                                            DBG0002      182     A     
 DBG=IDP   .3       MICRO  .2,1,/".1"/                                                     DBG0002      183     A     
 DBG=IDP  *                                                                                DBG0002      184     A     
 DBG=IDP            POS    60-.2+1                                                         DBG0002      185     A     
 DBG=IDP            VFD    1/".3"                                                          DBG0002      186     A     
 DBG=IDP   BIT      ENDD                                                                   DBG0002      187     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 146    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                                                                                DBG0002      188     A     
 DBG=IDP   CHARMX   ENDM                                                                   DBG0002      189     A     
 DBG=IDP   DESCRIBE SPACE  4,8                                                             DBG0002      190     A     
 DBG=IDP  **        DESCRIBE, DEFINE - FIELD DEFINITION MACROS.                            DBG0002      191     A     
 DBG=IDP  *                                                                                DBG0002      192     A     
 DBG=IDP  *         MACROS TO FACILITATE FIELD DESCRIPTION, WHERE FIELDS ARE               DBG0002      193     A     
 DBG=IDP  *         SUB-WORD ENTITIES.  THE 'DESCRIBE' MACRO IS USED TO PROVIDE            DBG0002      194     A     
 DBG=IDP  *         A PREFIX FOR NAMES SUPPLIED IN SUBSEQUENT 'DEFINE' REFERENCES.         DBG0002      195     A     
 DBG=IDP  *         FOR EACH NAME SPECIFIED, THE FOLLOWING SYMBOLS WILL BE                 DBG0002      196     A     
 DBG=IDP  *         DEFINED0                                                               DBG0002      197     A     
 DBG=IDP  *                                                                                DBG0002      198     A     
 DBG=IDP  *                PFX_NAME_P -- THE BIT POSITION OF THE RIGHT MOST BIT            DBG0002      199     A     
 DBG=IDP  *                              WHICH COMPRISES THE NAMED FIELD (WITHIN           DBG0002      200     A     
 DBG=IDP  *                              A WORD BITS ARE NUMBERED ACCORDING TO             DBG0002      201     A     
 DBG=IDP  *                              THE POWER OF TWO WHICH THEY REPRESENT)            DBG0002      202     A     
 DBG=IDP  *                PFX_NAME_L -- THE LENGTH IN BITS OF THE FIELD                   DBG0002      203     A     
 DBG=IDP  *                                                                                DBG0002      204     A     
 DBG=IDP  *         FIELDS ARE NOT PERMITTED TO SPAN WORD BOUNDARIES (A FATAL-TO-          DBG0002      205     A     
 DBG=IDP  *         ASSEMBLY ERROR WILL RESULT) OR TO GO BEYOND THE TOTAL NUMBER           DBG0002      206     A     
 DBG=IDP  *         OF BITS WHICH THE ENTIRE SET OF FIELDS IS SUPPOSED TO OCCUPY.          DBG0002      207     A     
 DBG=IDP  *                                                                                DBG0002      208     A     
 DBG=IDP  *         'DESCRIBE' REFERENCE --                                                DBG0002      209     A     
 DBG=IDP  *                                                                                DBG0002      210     A     
 DBG=IDP  *                DESCRIBE PFX,BITSLONG,TOPBIT                                    DBG0002      211     A     
 DBG=IDP  *                                                                                DBG0002      212     A     
 DBG=IDP  *         WHERE  PFX  IS THE PREFIX MENTIONED ABOVE,                             DBG0002      213     A     
 DBG=IDP  *           BITSLONG  IS THE TOTAL LENGTH IN BITS OF THE STRUCTURE,              DBG0002      214     A     
 DBG=IDP  *                     IF NOT PRESENT A VALUE OF 60 IS ASSUMED,                   DBG0002      215     A     
 DBG=IDP  *             TOPBIT  THE BEGINNING (I.E. LEFTMOST) BIT OF THE STRUCTURE         DBG0002      216     A     
 DBG=IDP  *                     IF ABSENT "BITSLONG-1" IS THE DEFAULT VALUE                DBG0002      217     A     
 DBG=IDP  *                                                                                DBG0002      218     A     
 DBG=IDP  *         'DEFINE' REFERENCE --                                                  DBG0002      219     A     
 DBG=IDP  *         NAME   DEFINE  LENGTH,RESET                                            DBG0002      220     A     
 DBG=IDP  *                                                                                DBG0002      221     A     
 DBG=IDP  *         WHERE NAME IS THE NAME OF THE FIELD MENTIONED ABOVE, IF NOT            DBG0002      222     A     
 DBG=IDP  *                    PRESENT THEN THE REFERENCE WILL ACT AS FILLER.              DBG0002      223     A     
 DBG=IDP  *             LENGTH IS THE BIT LENGTH OF THE FIELD (OR FILLER), A VALUE         DBG0002      224     A     
 DBG=IDP  *                    ONE IS ASSUMED IF THIS PARAMETER IS OMITTED                 DBG0002      225     A     
 DBG=IDP  *              RESET IF PRESENT, WILL CAUSE THE NAMED FIELD TO BE                DBG0002      226     A     
 DBG=IDP  *                    DEFINED RELATIVE TO BIT POSITION 'RESET' AS THE             DBG0002      227     A     
 DBG=IDP  *                    TOPMOST (LEFTMOST) BIT.                                     DBG0002      228     A     
 DBG=IDP  *                                                                                DBG0002      229     A     
 DBG=IDP  *         UNLESS THE 'RESET' PARAMETER OCCURS, EACH 'DEFINE' IS                  DBG0002      230     A     
 DBG=IDP  *         CONSIDERED TO REFERENCE A FIELD BEGINNING TO THE IMMEDIATE             DBG0002      231     A     
 DBG=IDP  *         RIGHT OF THE PRECEDING FIELD.                                          DBG0002      232     A     
 DBG=IDP  *                                                                                DBG0002      233     A     
 DBG=IDP  *         CONSIDER THE FOLLOWING EXAMPLE                                         DBG0002      234     A     
 DBG=IDP  *                                                                                DBG0002      235     A     
 DBG=IDP  *         TABLE X      .------.-------.------.                                   DBG0002      236     A     
 DBG=IDP  *                      . TYPE   VALUE . SUBV .  (SAY FOR TYPE @ 100)             DBG0002      237     A     
 DBG=IDP  *                      .------.-------.------.                                   DBG0002      238     A     
 DBG=IDP  *                       '      '       '     '                                   DBG0002      239     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 147    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                      59     47      17     0                                   DBG0002      240     A     
 DBG=IDP  *                                                                                DBG0002      241     A     
 DBG=IDP  *                 OR   .------.--------------.                                   DBG0002      242     A     
 DBG=IDP  *                      . TYPE . MESSAGE      .  (FOR TYPE > 100)                 DBG0002      243     A     
 DBG=IDP  *                      .------.--------------.                                   DBG0002      244     A     
 DBG=IDP  *                       '      '             '                                   DBG0002      245     A     
 DBG=IDP  *                      59     47             0                                   DBG0002      246     A     
 DBG=IDP  *                                                                                DBG0002      247     A     
 DBG=IDP  *                DESCRIBE X.,60    TABLE X, THE PREFIX TO BE USED IS THE         DBG0002      248     A     
 DBG=IDP  *                                  TWO CHARACTERS 'X.'                           DBG0002      249     A     
 DBG=IDP  *         TYPE   DEFINE  12                                                      DBG0002      250     A     
 DBG=IDP  *         MSG    DEFINE  48                                                      DBG0002      251     A     
 DBG=IDP  *         VALUE  DEFINE  30,X.TYPEP-1                                            DBG0002      252     A     
 DBG=IDP  *         SUBV   DEFINE  18                                                      DBG0002      253     A     
 DBG=IDP  *                                                                                DBG0002      254     A     
 DBG=IDP  *       THE SYMBOLS DEFINED WOULD BE                                             DBG0002      255     A     
 DBG=IDP  *                                                                                DBG0002      256     A     
 DBG=IDP  *                X.TYPEP   EQU  48                                               DBG0002      257     A     
 DBG=IDP  *                X.TYPEL   EQU  12                                               DBG0002      258     A     
 DBG=IDP  *                X.MSGP    EQU   0                                               DBG0002      259     A     
 DBG=IDP  *                X.MSGL    EQU  48                                               DBG0002      260     A     
 DBG=IDP  *                X.VALUEP  EQU  18                                               DBG0002      261     A     
 DBG=IDP  *                X.VALUEL  EQU  30                                               DBG0002      262     A     
 DBG=IDP  *                X.SUBVP   EQU   0                                               DBG0002      263     A     
 DBG=IDP  *                X.SUBVL   EQU  18                                               DBG0002      264     A     
 DBG=IDP                                                                                   DBG0002      265     A     
 DBG=IDP            NOREF  .1,.L,.P,.Z                                                     DBG0002      266     A     
 DBG=IDP                                                                                   DBG0002      267     A     
 DBG=IDP            PURGMAC DESCRIBE                                                       DBG0002      268     A     
 DBG=IDP                                                                                   DBG0002      269     A     
 DBG=IDP   DESCRIBE MACRO  PREFIX,BITSLONG,TOPBIT                                          DBG0002      270     A     
 DBG=IDP  *                                                                                DBG0002      271     A     
 DBG=IDP   .P       MICRO  1,,/PREFIX/                                                     DBG0002      272     A     
 DBG=IDP   .L       SET    BITSLONG 60                                                     DBG0002      273     A     
 DBG=IDP   .B       SET    TOPBIT .L-1                                                     DBG0002      274     A     
 DBG=IDP   DESCRIBE ENDM                                                                   DBG0002      275     A     
 DBG=IDP                                                                                   DBG0002      276     A     
 DBG=IDP            PURGMAC DEFINE                                                         DBG0002      277     A     
 DBG=IDP                                                                                   DBG0002      278     A     
 DBG=IDP            MACRO  DEFINE,N,LONG,RESET                                             DBG0002      279     A     
 DBG=IDP   .1       SET    LONG 1                                                          DBG0002      280     A     
 DBG=IDP            IFC    NE,//RESET/,2                                                   DBG0002      281     A     
 DBG=IDP   .B       SET    RESET                                                           DBG0002      282     A     
 DBG=IDP   .L       SET    1000                                                            DBG0002      283     A     
 DBG=IDP            IFC    NE,//N/,6                                                       DBG0002      284     A     
 DBG=IDP   ".P"N_P  EQU    .B-.1+1                                                         DBG0002      285     A     
 DBG=IDP   ".P"N_L  EQU    .1                                                              DBG0002      286     A     
 DBG=IDP            IFEQ   .1,1,3                                                          DBG0002      287     A     
 DBG=IDP            IFLE   ".P"N_P,18,2                                                    DBG0002      288     A     
 DBG=IDP   .A       DECMIC ".P"N_P                                                         DBG0002      289     A     
 DBG=IDP   ".P"N_M  EQU    1S".A"                                                          DBG0002      290     A     
 DBG=IDP   .L       SET    .L-.1                                                           DBG0002      291     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 148    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP   .B       SET    .B-.1                                                           DBG0002      292     A     
 DBG=IDP            IFLT   .L,0,1                                                          DBG0002      293     A     
 DBG=IDP             ERR    TOTAL FIELD LENGTHS ARE LONGER THAN SPECIFIED                  DBG0002      294     A     
 DBG=IDP            IFLT   .B,0,3                                                          DBG0002      295     A     
 DBG=IDP            IFNE   .B,-1,1                                                         DBG0002      296     A     
 DBG=IDP             ERR    FIELD SPANS A WORD BOUNDARY                                    DBG0002      297     A     
 DBG=IDP   .B       SET    59                                                              DBG0002      298     A     
 DBG=IDP   DEFINE   ENDM                                                                   DBG0002      299     A     
 DBG=IDP   DEQU     SPACE  4,8                                                             DBG0002      300     A     
 DBG=IDP  **        DEQU - DEFINE EQUIVALENCED FIELDS                                      DBG0002      301     A     
 DBG=IDP                                                                                   DBG0002      302     A     
 DBG=IDP            PURGMAC DEQU                                                           DBG0002      303     A     
 DBG=IDP                                                                                   DBG0002      304     A     
 DBG=IDP            MACRO  DEQU,N,B,LEN                                                    DBG0002      305     A     
 DBG=IDP   ".P"N_P  EQU    ".P"B_P                                                         DBG0002      306     A     
 DBG=IDP   ".P"N_L  EQU    LEN ".P"B_L                                                     DBG0002      307     A     
 DBG=IDP            ENDM                                                                   DBG0002      308     A     
 DBG=IDP   LXQ      SPACE  4,8                                                             DBG0002      309     A     
 DBG=IDP  **        LXQ - REDEFINE THE LEFT SHIFT INSTRUCTION.                             DBG0002      310     A     
 DBG=IDP  *                                                                                DBG0002      311     A     
 DBG=IDP  *         THIS OPDEF REDEFINES THE LEFT SHIFT INSTRUCTION TO SUPPRESS            DBG0002      312     A     
 DBG=IDP  *         CODE GENERATION WHEN THE SHIFT COUNT IS 0, +60D OR -60D.               DBG0002      313     A     
 DBG=IDP  *         THE INSTRUCTION IS OTHERWISE UNCHANGED.                                DBG0002      314     A     
 DBG=IDP  *                                                                                DBG0002      315     A     
 DBG=IDP  *         LXI       JK                                                           DBG0002      316     A     
 DBG=IDP  *                                                                                DBG0002      317     A     
 DBG=IDP  *         ENTRY  *XI* = X-REG TO BE SHIFTED                                      DBG0002      318     A     
 DBG=IDP  *                *JK* = SHIFT COUNT EXPRESSION                                   DBG0002      319     A     
 DBG=IDP  *                                                                                DBG0002      320     A     
 DBG=IDP  *         USES   XI                                                              DBG0002      321     A     
 DBG=IDP                                                                                   DBG0002      322     A     
 DBG=IDP                                                                                   DBG0002      323     A     
 DBG=IDP            PURGDEF ^XQ                                                            DBG0002      324     A     
 DBG=IDP            PURGDEF   LXQ                                                          DBG0002      325     A     
 DBG=IDP   ^XQ      CPOP   0,200B,100B                                                     DBG0002      326     A     
 DBG=IDP                                                                                   DBG0002      327     A     
 DBG=IDP   LXQ      OPDEF     I,JK                                                         DBG0002      328     A     
 DBG=IDP    IFNE JK,0,2                                                                    DBG0002      329     A     
 DBG=IDP    IFNE JK_&60D,0,1                                                               DBG0002      330     A     
 DBG=IDP    ^X.I JK                                                                        DBG0002      331     A     
 DBG=IDP    ENDM                                                                           DBG0002      332     A     
 DBG=IDP   PRIDP    SPACE  4,8                                                             DBG=IDP      194     A     
 DBG=IDP  **        PRIDP - PRINT CODED LINE ON OUTPUT FILE.                               DBG=IDP      195     A     
 DBG=IDP  *                                                                                DBG=IDP      196     A     
 DBG=IDP  *                                                                                DBG=IDP      197     A     
 DBG=IDP  *         PRIDP  FWA,LEN,NRB                                                     DBG=IDP      198     A     
 DBG=IDP  *                                                                                DBG=IDP      199     A     
 DBG=IDP  *         ENTRY  FWA = FWA OF LINE (-C- FORMAT)                                  DBG=IDP      200     A     
 DBG=IDP  *                LEN = LENGTH OF LINE (IN WORDS)                                 DBG=IDP      201     A     
 DBG=IDP  *                    = .ZR. IF LENGTH TO BE COMPUTED                             DBG=IDP      202     A     
 DBG=IDP  *                NRB = NR OF BLANK LINES TO OUTPUT PRECEDING THE LINE            DBG=IDP      203     A     
 DBG=IDP  *                                                                                DBG=IDP      204     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 149    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *         EXIT   NONE                                                            DBG=IDP      205     A     
 DBG=IDP  *                                                                                DBG=IDP      206     A     
 DBG=IDP  *         USES   ALL BUT B4,A0,X0,A5,X5 (INCLUDES ALL CALLS)                     DBG=IDP      207     A     
 DBG=IDP  *                                                                                DBG=IDP      208     A     
 DBG=IDP  *         CALLS  ROL                                                             DBG=IDP      209     A     
 DBG=IDP                                                                                   DBG=IDP      210     A     
 DBG=IDP                                                                                   DBG=IDP      211     A     
 DBG=IDP            PURGMAC PRIDP                                                          DBG=IDP      212     A     
 DBG=IDP                                                                                   DBG=IDP      213     A     
 DBG=IDP   PRIDP    MACRO  FWA,LEN,NRB                                                     DBG=IDP      214     A     
 DBG=IDP            =X6    FWA                                                             DBG=IDP      215     A     
 DBG=IDP            =X7    LEN                                                             DBG=IDP      216     A     
 DBG=IDP            =X4    NRB                                                             DBG=IDP      217     A     
 DBG=IDP            RJ     =XROL                                                           DBG=IDP      218     A     
 DBG=IDP   PRIDP    ENDM                                                                   DBG=IDP      219     A     
 DBG=IDP   PRBDO    SPACE  4,8                                                             DBG=IDP      220     A     
 DBG=IDP  **        PRBDO - PRINT CODED LINE ON BATCH DEBUG OUTPUT FILE.                   DBG=IDP      221     A     
 DBG=IDP  *                                                                                DBG=IDP      222     A     
 DBG=IDP  *                                                                                DBG=IDP      223     A     
 DBG=IDP  *                IF THE USER DID NOT DEFINE A BATCH DEBUG OUTPUT FILE,           DBG=IDP      224     A     
 DBG=IDP  *         (F.BDO -DEF), THEN *IDP* WILL INVENT ONE AND ACCESS IT VIA             DBG=IDP      225     A     
 DBG=IDP  *         *PRBDO* MACRO. IF *F.BDO* IS DEFINED, THEN THE USER SUPPLIES           DBG=IDP      226     A     
 DBG=IDP  *         HER OWN *PRINT*.                                                       DBG=IDP      227          I
          -DBG0002
 DBG=IDP  *         HER OWN *PRBDO*.                                                       DBG0002      333     A     
 DBG=IDP  *                                                                                DBG=IDP      228     A     
 DBG=IDP  *         PRBDO  FWA,LEN                                                         DBG=IDP      229     A     
 DBG=IDP  *                                                                                DBG=IDP      230     A     
 DBG=IDP  *         ENTRY  FWA = FWA OF LINE (-C- FORMAT)                                  DBG=IDP      231     A     
 DBG=IDP  *                LEN = LENGTH OF LINE (IN WORDS)                                 DBG=IDP      232     A     
 DBG=IDP  *                    = .ZR. IF LENGTH TO BE COMPUTED                             DBG=IDP      233     A     
 DBG=IDP  *                                                                                DBG=IDP      234     A     
 DBG=IDP  *         EXIT   NONE                                                            DBG=IDP      235     A     
 DBG=IDP  *                                                                                DBG=IDP      236     A     
 DBG=IDP  *         USES   ALL BUT A0,X0,A5,X5   (INCLUDES ALL CALLS)                      DBG=IDP      237     A     
 DBG=IDP  *                                                                                DBG=IDP      238     A     
 DBG=IDP  *         CALLS  WRITEC                                                          DBG=IDP      239     A     
 DBG=IDP                                                                                   DBG=IDP      240     A     
 DBG=IDP                                                                                   DBG=IDP      241     A     
 DBG=IDP   #BDO     IF     -DEF,F.BDO                                                      DBG=IDP      242     A     
 DBG=IDP   #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      DBG=IDP      243     A     
 DBG=IDP                                                                                   DBG=IDP      244     A     
 DBG=IDP            PURGMAC PRBDO                                                          DBG=IDP      245     A     
 DBG=IDP                                                                                   DBG=IDP      246     A     
 DBG=IDP   PRBDO    MACRO  FWA,LEN                                                         DBG=IDP      247     A     
 DBG=IDP            WRITEC =XF.BDO,(FWA),(LEN)                                             DBG=IDP      248     A     
 DBG=IDP   PRBDO    ENDM                                                                   DBG=IDP      249     A     
 DBG=IDP   #OS      ENDIF                                                                  DBG=IDP      250     A     
 DBG=IDP   #BDO     ENDIF                                                                  DBG=IDP      251     A     
 DBG=IDP   MICROS   SPACE  4,8                                                             DBG0002      334     A     
 DBG=IDP  **        DEFINE DEFAULT MICROS.                                                 DBG0002      335     A     
 DBG=IDP                                                                                   DBG0002      336     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 150    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            IFNE   .OS,2,2                                                         DBG0002      337     A     
 DBG=IDP            IF     -MIC,EOS,1                                                      DBG0002      338     A     
 DBG=IDP   EOS      MICRO  1,,/;/                                                          DBG0002      339     A     
 DBG=IDP                                                                                   DBG0002      340     A     
 DBG=IDP            IFNE   .OS,2,2                                                         DBG0002      341     A     
 DBG=IDP            IF     -MIC,PROMPT,1                                                   DBG0002      342     A     
 DBG=IDP   PROMPT   MICRO  1,,/>>/                                                         DBG0002      343     A     
 DBG=IDP   DEFS     SPACE  4,8                                                             DBG=IDP      252     A     
 DBG=IDP  **        SYMBOL DEFINITIONS.                                                    DBG=IDP      253     A     
 DBG=IDP                                                                                   DBG=IDP      254     A     
 DBG=IDP                                                                                   DBG=IDP      255     A     
 DBG=IDP   CHAR     =      6           LENGTH OF CYBER CHARACTER                           DBG=IDP      256     A     
 DBG=IDP                                                                                   DBG=IDP      257     A     
 DBG=IDP   L.BSL    =      4           NR OF CM WORDS DUMPED ON LINE (BATCH)               DBG=IDP      258     A     
 DBG=IDP   L.ISL    =      2           NR OF CM WORDS DUMPED ON LINE (INTERACTIVE)         DBG=IDP      259     A     
 DBG=IDP                                                                                   DBG=IDP      260     A     
 DBG=IDP   L.PRB    =      1           NR OF PRECEDING BLANK LINES TO OUTPUT               DBG=IDP      261          I
          -DBG0002
 DBG=IDP   L.PRB    =      0           NR OF PRECEDING BLANKS TO OUTPUT                    DBG0002      344     A     
 DBG=IDP  *                              FOR SPACING PURPOSES                              DBG=IDP      262     A     
 DBG=IDP   DEFS     SPACE  4,8                                                             DBG=IDP      263     A     
 DBG=IDP  **        SNAP PARAMETER LIST SYMBOL DEFINITIONS.                                DBG=IDP      264     A     
 DBG=IDP  *           THESE SYMBOLS DEFINE THE ORDINALS INTO THE SNAP PARAMETER            DBG=IDP      265     A     
 DBG=IDP  *           LIST. (DESIRED WORD IS AT-- FWA OF PARAMETER LIST + SN=XXX)          DBG=IDP      266     A     
 DBG=IDP                                                                                   DBG=IDP      267     A     
 DBG=IDP                                                                                   DBG=IDP      268     A     
 DBG=IDP   SN=FRK   =      0           1ST WORD OF FREQUENCY PARAMETER LIST                DBG=IDP      269     A     
 DBG=IDP   SN=LL    =      0           LOWER LIMIT                                         DBG=IDP      270     A     
 DBG=IDP   SN=UL    =      1           UPPER LIMIT                                         DBG=IDP      271     A     
 DBG=IDP   SN=INC   =      2           INCREMENT                                           DBG=IDP      272     A     
 DBG=IDP   SN=HDR   =      3           HEADER                                              DBG=IDP      273     A     
 DBG=IDP   SN=CNT   =      4           SNAP COUNT                                          DBG=IDP      274     A     
 DBG=IDP   SN=FWA   =      5           FWA                                                 DBG=IDP      275     A     
 DBG=IDP   SN=LWA   =      6           LWA                                                 DBG=IDP      276     A     
 DBG=IDP   SN=LEN   =      7           LENGTH                                              DBG=IDP      277     A     
 DBG=IDP   SN=RRL   =      5           1ST WORD OF *RGR=* LIST FOR *REG* MACRO             DBG=IDP      278     A     
 DBG=IDP   SN=SRL   =      8           1ST WORD OF *RGR=* LIST FOR *SNAP* MACRO            DBG=IDP      279     A     
 DBG=IDP   APL      SPACE  4,8                                                             DBG=IDP      280     A     
 DBG=IDP  *         APL - DUMMY APLIST USED FOR SAVE CELLS AND *IDP* CALLS.                DBG=IDP      281     A     
 DBG=IDP                                                                                   DBG=IDP      282     A     
 DBG=IDP   APL      BSSZ   SN=LEN+1                                                        DBG=IDP      283     A     
 DBG=IDP                                                                                   DBG=IDP      284     A     
 DBG=IDP            LOC    APL                                                             DBG=IDP      285     A     
 DBG=IDP                                                                                   DBG=IDP      286     A     
 DBG=IDP   AP=LL    =      *+SN=LL                                                         DBG=IDP      287     A     
 DBG=IDP   AP=UL    =      *+SN=UL                                                         DBG=IDP      288     A     
 DBG=IDP   AP=INC   =      *+SN=INC                                                        DBG=IDP      289     A     
 DBG=IDP   AP=HDR   =      *+SN=HDR                                                        DBG=IDP      290     A     
 DBG=IDP   AP=CNT   =      *+SN=CNT                                                        DBG=IDP      291     A     
 DBG=IDP   AP=FWA   =      *+SN=FWA                                                        DBG=IDP      292     A     
 DBG=IDP   AP=LWA   =      *+SN=LWA                                                        DBG=IDP      293     A     
 DBG=IDP   AP=LEN   =      *+SN=LEN                                                        DBG=IDP      294     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 151    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            LOC    *O                                                              DBG=IDP      295     A     
 DBG=IDP   DATA     SPACE  4,8                                                             DBG=IDP      296     A     
 DBG=IDP   FWAPARM  BSSZ   1           SAVE CELL FOR FWA OF PARAMETER LIST                 DBG=IDP      297     A     
 DBG=IDP                                                                                   DBG=IDP      298     A     
 DBG=IDP   IDPCOPY  BSSZ   1           .NZ. IF A SAVE HARD COPY DESIRED IN                 DBG=IDP      299          I
          -DBG0002
 DBG=IDP  *                                  INTERACTIVE MODE, ELSE .ZR.                   DBG=IDP      300          I
          -DBG0002
 DBG=IDP   IDPFLG   BSSZ   1           .NZ. IF UNDER CONTROL OF IDP, ELSE .ZR.             DBG=IDP      301          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      302     A     
 DBG=IDP   SNAPLNE  BSSZ   15          INTERACTIVE AND BATCH DEBUG OUTPUT LINE             DBG=IDP      303     A     
 DBG=IDP  *                              IMAGE AREA                                        DBG=IDP      304     A     
 DBG=IDP   IDPFLG   SPACE  4,8                                                             DBG0002      345     A     
 DBG=IDP  **        IDPFLG - INTERACTIVE/BATCH MASTER CONTROL FLAG.                        DBG0002      346     A     
 DBG=IDP  *                                                                                DBG0002      347     A     
 DBG=IDP  *                CONTAINS GLOBAL CONTROL INFORMATION THAT IS USED                DBG0002      348     A     
 DBG=IDP  *         THROUGH OUT *DBG=IDP*.  THE FIELDS IN *IDPFLG* ARE DESCRIBED           DBG0002      349     A     
 DBG=IDP  *         BY PAIRS OF SYMBOLS OF THE FORM *IDF.XXXP* AND *IDF.XXXL*,             DBG0002      350     A     
 DBG=IDP  *         WHERE *IDF* IS THE COMMON PREFIX, *XXX* IS THE FIELD                   DBG0002      351     A     
 DBG=IDP  *         DESCRIPTOR, *P* DENOTES THE RIGHT-MOST BIT OF THE FIELD, AND           DBG0002      352     A     
 DBG=IDP  *         *L* DENOTES THE LENGTH OF THE FIELD.                                   DBG0002      353     A     
 DBG=IDP  *                                                                                DBG0002      354     A     
 DBG=IDP  *                FIELD DESCRIPTIONS (XXX) ARE --                                 DBG0002      355     A     
 DBG=IDP  *                                                                                DBG0002      356     A     
 DBG=IDP  *         ADR  = 0  IF ADDRESSES ARE TO BE OUTPUT AS ABSOLUTE                    DBG0002      357     A     
 DBG=IDP  *              = 1  IF ADDRESSES ARE TO BE OUTPUT AS DECK RELATIVE               DBG0002      358     A     
 DBG=IDP  *                                                                                DBG0002      359     A     
 DBG=IDP  *         BDO  = 1  IF WRITING TO BATCH DEBUG OUTPUT FILE (F.BDO),               DBG0002      360     A     
 DBG=IDP  *                     ELSE 0                                                     DBG0002      361     A     
 DBG=IDP  *                                                                                DBG0002      362     A     
 DBG=IDP  *         BKO  = 1  IF ECHOING/WRITING INPUT SOURCE LINE IMAGE TO                DBG0002      363     A     
 DBG=IDP  *                     BATCH DEBUG OUTPUT FILE *F.BDO*, ELSE 0                    DBG0002      364     A     
 DBG=IDP  *                                                                                DBG0002      365     A     
 DBG=IDP  *         FTO  = 0  IF THIS IS 1ST TIME *IDP* HAS BEEN CALLED, ELSE 1            DBG0002      366     A     
 DBG=IDP  *                                                                                DBG0002      367     A     
 DBG=IDP  *         IDO  = 1  IF WRITING TO INTERACTIVE DEBUG OUTPUT FILE (F.IDO),         DBG0002      368     A     
 DBG=IDP  *                     ELSE 0                                                     DBG0002      369     A     
 DBG=IDP  *                                                                                DBG0002      370     A     
 DBG=IDP  *         IKO  = 1  IF ECHOING/WRITING INPUT SOURCE LINE IMAGE TO                DBG0002      371     A     
 DBG=IDP  *                     INTERACTIVE DEBUG OUTPUT FILE *F.IDO*, ELSE 0              DBG0002      372     A     
 DBG=IDP  *                                                                                DBG0002      373     A     
 DBG=IDP  *         INP  = 1  IF READING FROM BATCH DEBUG INPUT FILE (F.BDI)               DBG0002      374     A     
 DBG=IDP  *                     (I.E. READING FROM AN UNCONNECTED INPUT FILE)              DBG0002      375     A     
 DBG=IDP  *              = 0  IF READING FROM INTERACTIVE DEBUG INPUT FILE (F.IDI)         DBG0002      376     A     
 DBG=IDP  *                                                                                DBG0002      377     A     
 DBG=IDP  *         SNL  = NR OF CM WORDS TO BE DUMPED (BY *DCM*) ON A SINGLE LINE         DBG0002      378     A     
 DBG=IDP  *              = L.BSL  IN BATCH MODE                                            DBG0002      379     A     
 DBG=IDP  *              = L.ISL  IN INTERACTIVE MODE                                      DBG0002      380     A     
 DBG=IDP  *                                                                                DBG0002      381     A     
 DBG=IDP  *         XEC  = 0  IF THE EXECUTIVE IS *IDP=*                                   DBG0002      382     A     
 DBG=IDP  *              = 1  IF THE EXECUTIVE IS *REG=*                                   DBG0002      383     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 152    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *              = 2  IF THE EXECUTIVE IS *SNP=*                                   DBG0002      384     A     
 DBG=IDP                                                                                   DBG0002      385     A     
 DBG=IDP                                                                                   DBG0002      386     A     
 DBG=IDP            DESCRIBE IDF.                                                          DBG0002      387     A     
 DBG=IDP   IDO      DEFINE 1                                                               DBG0002      388     A     
 DBG=IDP   IKO      DEFINE 1                                                               DBG0002      389     A     
 DBG=IDP            DEFINE 1                                                               DBG0002      390     A     
 DBG=IDP   BDO      DEFINE 1                                                               DBG0002      391     A     
 DBG=IDP   BKO      DEFINE 1                                                               DBG0002      392     A     
 DBG=IDP            DEFINE 1                                                               DBG0002      393     A     
 DBG=IDP   FTO      DEFINE 1                                                               DBG0002      394     A     
 DBG=IDP   INP      DEFINE 1                                                               DBG0002      395     A     
 DBG=IDP   ADR      DEFINE 1                                                               DBG0002      396     A     
 DBG=IDP   XEC      DEFINE 3                                                               DBG0002      397     A     
 DBG=IDP            DEFINE 30                                                              DBG0002      398     A     
 DBG=IDP   SNL      DEFINE 18                                                              DBG0002      399     A     
 DBG=IDP                                                                                   DBG0002      400     A     
 DBG=IDP   IDPFLG   BSSZ   1                                                               DBG0002      401     A     
 DBG=IDP   IDPTB    SPACE  4,8                                                             DBG0002      402     A     
 DBG=IDP  **        IDPTB - COMMAND LINE TOKEN BUFFER DESCRIBE/DEFINES.                    DBG0002      403     A     
 DBG=IDP                                                                                   DBG0002      404     A     
 DBG=IDP                                                                                   DBG0002      405     A     
 DBG=IDP            DESCRIBE TB.                                                           DBG0002      406     A     
 DBG=IDP   LAS      DEFINE 1                                                               DBG0002      407     A     
 DBG=IDP            DEFINE 23                                                              DBG0002      408     A     
 DBG=IDP   PRS      DEFINE 18                                                              DBG0002      409     A     
 DBG=IDP   LEN      DEFINE 18                                                              DBG0002      410     A     
 DBG=IDP   F.BDO    SPACE  4,8                                                             DBG=IDP      305     A     
 DBG=IDP  **        F.BDO - FET AND BUFFER FOR BATCH DEBUG OUTPUT FILE.                    DBG=IDP      306     A     
 DBG=IDP                                                                                   DBG=IDP      307     A     
 DBG=IDP   #BDO     IF     -DEF,F.BDO                                                      DBG=IDP      308     A     
 DBG=IDP   #OS      IFNE   .OS,2                                                           DBG=IDP      309     A     
 DBG=IDP   L.BDO    =      101B        LENGTH OF BATCH OUTPUT BUFFER                       DBG=IDP      310     A     
 DBG=IDP                                                                                   DBG=IDP      311     A     
 DBG=IDP   F.BDO    BSS    0           ** FWA OF FET **                                    DBG=IDP      312     A     
 DBG=IDP   BDO      FILEC  IDPBDO,L.BDO                                                    DBG=IDP      313     A     
 DBG=IDP   IDPBDO   BSS    L.BDO                                                           DBG=IDP      314     A     
 DBG=IDP   #OS      ENDIF                                                                  DBG=IDP      315     A     
 DBG=IDP   #BDO     ENDIF                                                                  DBG=IDP      316     A     
 DBG=IDP   DBG=IDP  TITLE  BATCH AND SHARED ROUTINES.                                      DBG=IDP      317     A     
 DBG=IDP   CHK      SPACE  4,8                                                             DBG=IDP      318     A     
 DBG=IDP  **        CHK - CHECK CM ADDRESS.                                                DBG=IDP      319     A     
 DBG=IDP  *                                                                                DBG=IDP      320     A     
 DBG=IDP  *                                                                                DBG=IDP      321     A     
 DBG=IDP  *         ENTRY  (B2)   =  ADDRESS TO BE CHECKED                                 DBG=IDP      322     A     
 DBG=IDP  *                                                                                DBG=IDP      323     A     
 DBG=IDP  *         EXIT   (B2)   =  .MI. IF (B2) WAS BAD                                  DBG=IDP      324     A     
 DBG=IDP  *                       =  UNCHANGED IF OK                                       DBG=IDP      325     A     
 DBG=IDP  *                                                                                DBG=IDP      326     A     
 DBG=IDP  *         USES   X - 1,2                                                         DBG=IDP      327     A     
 DBG=IDP  *                A - 1                                                           DBG=IDP      328     A     
 DBG=IDP  *                B - NONE    (USES B2 IF .GT. FL)                                DBG=IDP      329     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 153    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                                                                                DBG=IDP      330     A     
 DBG=IDP  *         CALLS  NONE                                                            DBG=IDP      331     A     
 DBG=IDP                                                                                   DBG=IDP      332     A     
 DBG=IDP                                                                                   DBG=IDP      333     A     
 DBG=IDP   CHK      SUBR               ** ENTRY/EXIT **                                    DBG=IDP      334     A     
 DBG=IDP            SA1    =XCP.NFLS                                                       DBG=IDP      335     A     
 DBG=IDP            MI     B2,EXIT.    IF ADDR BAD TO START WITH                           DBG=IDP      336     A     
 DBG=IDP            SX2    B2                                                              DBG=IDP      337     A     
 DBG=IDP            IX2    X2-X1                                                           DBG=IDP      338     A     
 DBG=IDP            MI     X2,EXIT.    IF ADDR OK                                          DBG=IDP      339     A     
 DBG=IDP            SB2    -B2         SET TO *ADDR IS BAD*                                DBG=IDP      340     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP      341     A     
 DBG=IDP   DAB      SPACE  4,8                                                             DBG=IDP      342     A     
 DBG=IDP  **        DAB - DUMP AN -A- OR -B- REGISTER AND WHAT IT POINTS TO.               DBG=IDP      343     A     
 DBG=IDP  *                                                                                DBG=IDP      344     A     
 DBG=IDP  *                                                                                DBG=IDP      345     A     
 DBG=IDP  *         ENTRY  (B4) = 0TR, WHERE                                               DBG=IDP      346     A     
 DBG=IDP  *                            T IS REGISTER TYPE                                  DBG=IDP      347     A     
 DBG=IDP  *                                  = 0 FOR -B- REGISTER                          DBG=IDP      348     A     
 DBG=IDP  *                                  = 1 FOR -A- REGISTER                          DBG=IDP      349     A     
 DBG=IDP  *                            R IS REGISTER NR (0-7)                              DBG=IDP      350     A     
 DBG=IDP  *                            E.G.  A6 WOULD BE 016                               DBG=IDP      351     A     
 DBG=IDP  *                                                                                DBG=IDP      352     A     
 DBG=IDP  *         EXIT   (B4) IS UNCHANGED                                               DBG=IDP      353     A     
 DBG=IDP  *                                                                                DBG=IDP      354     A     
 DBG=IDP  *         USES   ALL BUT B4                                                      DBG=IDP      355     A     
 DBG=IDP  *                                                                                DBG=IDP      356     A     
 DBG=IDP  *         CALLS  FAB,PRIDP                                                       DBG=IDP      357     A     
 DBG=IDP                                                                                   DBG=IDP      358     A     
 DBG=IDP                                                                                   DBG=IDP      359     A     
 DBG=IDP   DAB      SUBR               ** ENTRY/EXIT **                                    DBG=IDP      360     A     
 DBG=IDP            SB6    SNAPLNE                                                         DBG=IDP      361     A     
 DBG=IDP            RJ     FAB         FORMAT -A- OR -B- REGISTER                          DBG=IDP      362     A     
 DBG=IDP            PRIDP  SNAPLNE                                                         DBG=IDP      363     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP      364     A     
 DBG=IDP   DAR      SPACE  4,8                                                             DBG=IDP      365     A     
 DBG=IDP  **        DAR - DUMP ALL REGISTERS.                                              DBG=IDP      366     A     
 DBG=IDP  *                                                                                DBG=IDP      367     A     
 DBG=IDP  *                                                                                DBG=IDP      368     A     
 DBG=IDP  *         ENTRY  NONE                                                            DBG=IDP      369     A     
 DBG=IDP  *                                                                                DBG=IDP      370     A     
 DBG=IDP  *         EXIT   NONE                                                            DBG=IDP      371     A     
 DBG=IDP  *                                                                                DBG=IDP      372     A     
 DBG=IDP  *         USES   ALL                                                             DBG=IDP      373     A     
 DBG=IDP  *                                                                                DBG=IDP      374     A     
 DBG=IDP  *         CALLS  DAB,DUX,PRIDP,WOD                                               DBG=IDP      375     A     
 DBG=IDP                                                                                   DBG=IDP      376     A     
 DBG=IDP                                                                                   DBG=IDP      377     A     
 DBG=IDP   DAR      SUBR   0           ** ENTRY/EXIT **                                    DBG=IDP      378     A     
 DBG=IDP            SB4    B0          INITIALIZE (B4) = REGISTER COUNT, 0TR               DBG=IDP      379     A     
 DBG=IDP            PRIDP  ,,L.PRB                                                         DBG=IDP      380     A     
 DBG=IDP                                                                                   DBG=IDP      381     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 154    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SA1    IDPFLG                                                          DBG=IDP      382     A     
 DBG=IDP            ZR     X1,DAR5     IF PACKING -A- AND -B- REGS IN BATCH MODE           DBG=IDP      383          I
          -DBG0002
 DBG=IDP            LX1    59-IDF.IDOP                                                     DBG0002      411     A     
 DBG=IDP            PL     X1,DAR5     IF NOT WRITING INTERACTIVELY,                       DBG0002      412     A     
 DBG=IDP  *                              PACK -A- AND -B- REGISTERS...                     DBG0002      413     A     
 DBG=IDP                                                                                   DBG=IDP      384     A     
 DBG=IDP  *         DUMP -B- REGISTERS.                                                    DBG=IDP      385     A     
 DBG=IDP                                                                                   DBG=IDP      386     A     
 DBG=IDP   DAR2     RJ     DAB         DUMP -B- REGISTER                                   DBG=IDP      387     A     
 DBG=IDP            SB4    B4+B1                                                           DBG=IDP      388     A     
 DBG=IDP            SB7    007B                                                            DBG=IDP      389     A     
 DBG=IDP            LE     B4,B7,DAR2  IF NOT DONE                                         DBG=IDP      390     A     
 DBG=IDP                                                                                   DBG=IDP      391     A     
 DBG=IDP            PRIDP  ,,L.PRB                                                         DBG=IDP      392     A     
 DBG=IDP                                                                                   DBG=IDP      393     A     
 DBG=IDP  *         DUMP -A- REGISTERS.                                                    DBG=IDP      394     A     
 DBG=IDP                                                                                   DBG=IDP      395     A     
 DBG=IDP   DAR3     RJ     DAB         DUMP -A- REGISTER                                   DBG=IDP      396     A     
 DBG=IDP            SB4    B4+B1                                                           DBG=IDP      397     A     
 DBG=IDP            SB7    017B                                                            DBG=IDP      398     A     
 DBG=IDP            LE     B4,B7,DAR3  IF NOT DONE                                         DBG=IDP      399     A     
 DBG=IDP                                                                                   DBG=IDP      400     A     
 DBG=IDP            PRIDP  ,,L.PRB                                                         DBG=IDP      401     A     
 DBG=IDP                                                                                   DBG=IDP      402     A     
 DBG=IDP  *         DUMP -X- REGISTERS.                                                    DBG=IDP      403     A     
 DBG=IDP                                                                                   DBG=IDP      404     A     
 DBG=IDP   DAR4     RJ     DUX         DUMP -X- REGISTER                                   DBG=IDP      405     A     
 DBG=IDP            SB4    B4+B1                                                           DBG=IDP      406     A     
 DBG=IDP            SB7    027B                                                            DBG=IDP      407     A     
 DBG=IDP            LE     B4,B7,DAR4  IF NOT DONE                                         DBG=IDP      408     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP      409     A     
 DBG=IDP                                                                                   DBG=IDP      410     A     
 DBG=IDP  *         HERE IF PACKING -A- AND -B- REGISTERS IN BATCH MODE.                   DBG=IDP      411     A     
 DBG=IDP                                                                                   DBG=IDP      412     A     
 DBG=IDP   DAR5     SB6    SNAPLNE                                                         DBG=IDP      413     A     
 DBG=IDP            RJ     FAB         FORMAT -B- REGISTER                                 DBG=IDP      414     A     
 DBG=IDP            SB4    B4+10B                                                          DBG=IDP      415     A     
 DBG=IDP            SB6    A6                                                              DBG=IDP      416     A     
 DBG=IDP            RJ     FAB         FORMAT -A- REGISTER                                 DBG=IDP      417     A     
 DBG=IDP            PRIDP  SNAPLNE                                                         DBG=IDP      418     A     
 DBG=IDP            SB4    B4-10B+1                                                        DBG=IDP      419     A     
 DBG=IDP            SB7    007B                                                            DBG=IDP      420     A     
 DBG=IDP            LE     B4,B7,DAR5  IF NOT DONE                                         DBG=IDP      421     A     
 DBG=IDP                                                                                   DBG=IDP      422     A     
 DBG=IDP            PRIDP  ,,L.PRB                                                         DBG=IDP      423     A     
 DBG=IDP            SB4    020B        (B4) = 0TR, WHERE T=2 (X REG)                       DBG=IDP      424     A     
 DBG=IDP            EQ     DAR4                                                            DBG=IDP      425     A     
 DBG=IDP   DCM      SPACE  4,8                                                             DBG=IDP      426     A     
 DBG=IDP  **        DCM - DUMP CENTRAL MEMORY.                                             DBG=IDP      427     A     
 DBG=IDP  *                                                                                DBG=IDP      428     A     
 DBG=IDP  *                                                                                DBG=IDP      429     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 155    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                CONVERTS CM WORDS TO OCTAL DPC AND DUMPS THEM IN THE            DBG0002      414     A     
 DBG=IDP  *         FOLLOWING FORMAT--                                                     DBG0002      415     A     
 DBG=IDP  *     COL 1         1         1         1         1                              DBG0002      416     A     
 DBG=IDP  *         ..NNNNNN..CCCCCCCCCCCCCCCCCCCC..........ETC                            DBG0002      417     A     
 DBG=IDP  *                   ******************************                               DBG0002      418     A     
 DBG=IDP  *         N = ADDR OF 1ST WORD DUMPED ON LINE                                    DBG0002      419     A     
 DBG=IDP  *         C = CONVERTED CM WORD                                                  DBG0002      420     A     
 DBG=IDP  *         . = BLANK(55B)                                                         DBG0002      421     A     
 DBG=IDP  *         THE FORMAT OF COLS 11 THRU 40 (INDICATED BY *) IS REPEATED FOR         DBG0002      422     A     
 DBG=IDP  *           HOWEVER MANY CM WORDS ARE TO BE DUMPED ON A LINE.                    DBG0002      423     A     
 DBG=IDP  *                                                                                DBG0002      424     A     
 DBG=IDP  *                (IDPFLG) = 42/OTHER, 18/NR OF CM WORDS TO BE DUMPED ON          DBG0002      425     A     
 DBG=IDP  *                             A SINGLE LINE                                      DBG0002      426     A     
 DBG=IDP  *                                                                                DBG0002      427     A     
 DBG=IDP  *         ENTRY  (X2) = 18/0, 21/LEV OF IND ADDR ,21/FWA                         DBG=IDP      430     A     
 DBG=IDP  *                (X3) = 18/0, 21/LEV OF IND ADDR ,21/LWA                         DBG=IDP      431     A     
 DBG=IDP  *                         (X3) IS OPTIONAL                                       DBG=IDP      432     A     
 DBG=IDP  *                (X4) = 18/0,21/LEV OF IND ADDR ,21/LEN                          DBG=IDP      433     A     
 DBG=IDP  *                         NOTE -- IF LEN = 0, DMP IS FROM FWA TO LWA,            DBG=IDP      434     A     
 DBG=IDP  *                                        ELSE DMP IS FROM FWA TO FWA+LEN         DBG=IDP      435     A     
 DBG=IDP  *                                                                                DBG=IDP      436     A     
 DBG=IDP  *         EXIT   (B2) = .MI. IF FWA,LWA, OR LEN BAD, ELSE .PL.                   DBG=IDP      437     A     
 DBG=IDP  *                                                                                DBG=IDP      438     A     
 DBG=IDP  *         USES   ALL                                                             DBG=IDP      439          I
          -DBG0002
 DBG=IDP  *         USES   ALL BUT B4,A0                                                   DBG0002      428     A     
 DBG=IDP  *                                                                                DBG=IDP      440     A     
 DBG=IDP  *         CALLS  COD,FLL,PRIDP                                                   DBG=IDP      441     A     
 DBG=IDP                                                                                   DBG=IDP      442     A     
 DBG=IDP                                                                                   DBG=IDP      443     A     
 DBG=IDP   DCM      SUBR   0           ** ENTRY/EXIT **                                    DBG=IDP      444          I
          -DBG0002
 DBG=IDP            RJ     FLL         CHECK FWA,LWA, AND LENGTH                           DBG=IDP      445          I
          -DBG0002
 DBG=IDP            MI     B2,DCMX     IF FWA, LWA, OR LENGTH IS BAD                       DBG=IDP      446          I
          -DBG0002
 DBG=IDP            PRIDP  ,,L.PRB                                                         DBG=IDP      447          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      448          I
          -DBG0002
 DBG=IDP  *         HERE TO BUILD A SNAP OUTPUT LINE.                                      DBG=IDP      449          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      450          I
          -DBG0002
 DBG=IDP   DCM3     SA1    AP=FWA      (X1) = FWA OF LAST LINE SNAPPED                     DBG=IDP      451          I
          -DBG0002
 DBG=IDP            SA2    A1+B1       (X2) = LWA TO BE SNAPPED                            DBG=IDP      452          I
          -DBG0002
 DBG=IDP            SB4    X1                                                              DBG=IDP      453          I
          -DBG0002
 DBG=IDP            SA3    IDPFLG      (X3) = .NZ. IF CALLED BY *IDP*, ELSE .ZR.           DBG=IDP      454          I
          -DBG0002
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 156    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SB6    L.BSL       (B6) = NR OF WORDS PER LINE (BATCH)                 DBG=IDP      455          I
          -DBG0002
 DBG=IDP            ZR     X3,DCM4     IF NOT CALLED FROM *IDP*                            DBG=IDP      456          I
          -DBG0002
 DBG=IDP            SB6    L.ISL                                                           DBG=IDP      457          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      458          I
          -DBG0002
 DBG=IDP   DCM4     IX3    X2-X1                                                           DBG=IDP      459          I
          -DBG0002
 DBG=IDP            SX6    X1+B6                                                           DBG=IDP      460          I
          -DBG0002
 DBG=IDP            MI     X3,DCM8     IF FINISHED                                         DBG=IDP      461          I
          -DBG0002
 DBG=IDP            SA6    A1                                                              DBG=IDP      462          I
          -DBG0002
 DBG=IDP            SB5    B4          SAVE (B4)                                           DBG=IDP      463          I
          -DBG0002
 DBG=IDP            RJ     =XCOD       CONVERT BINARY ADDR TO OCTAL DPC                    DBG=IDP      464          I
          -DBG0002
 DBG=IDP            LX6    2*CHAR                                                          DBG=IDP      465          I
          -DBG0002
 DBG=IDP            SB4    B5          RESTORE (B4)                                        DBG=IDP      466          I
          -DBG0002
 DBG=IDP            SA6    =XSNAPLNE                                                       DBG=IDP      467          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      468          I
          -DBG0002
 DBG=IDP   DCM5     SA1    B4          (X1) = NEXT WORD TO BE SNAPPED                      DBG=IDP      469          I
          -DBG0002
 DBG=IDP            RJ     =XWOD       CONVERT A FULL BINARY WORD TO OCTAL DPC             DBG=IDP      470          I
          -DBG0002
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP      471          I
          -DBG0002
 DBG=IDP            SA7    A6+B1                                                           DBG=IDP      472          I
          -DBG0002
 DBG=IDP            SA1    =10H                                                            DBG=IDP      473          I
          -DBG0002
 DBG=IDP            SB6    B6-B1                                                           DBG=IDP      474          I
          -DBG0002
 DBG=IDP            SB4    B4+B1                                                           DBG=IDP      475          I
          -DBG0002
 DBG=IDP            BX6    X1                                                              DBG=IDP      476          I
          -DBG0002
 DBG=IDP            MX7    0                                                               DBG=IDP      477          I
          -DBG0002
 DBG=IDP            SA6    A7+B1                                                           DBG=IDP      478          I
          -DBG0002
 DBG=IDP            GT     B6,B0,DCM5  IF MORE WORDS TO GO ON THIS LINE                    DBG=IDP      479          I
          -DBG0002
 DBG=IDP            SA7    A6+B1       MARK EOS                                            DBG=IDP      480          I
          -DBG0002
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 157    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            PRIDP  SNAPLNE                                                         DBG=IDP      481          I
          -DBG0002
 DBG=IDP            EQ     DCM3        PROCESS NEXT LINE                                   DBG=IDP      482          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      483          I
          -DBG0002
 DBG=IDP   DCM8     PRIDP  ,,1                                                             DBG=IDP      484          I
          -DBG0002
 DBG=IDP            SB2    B1          SET TO *FWA,LWA, AND LEN OK*                        DBG=IDP      485          I
          -DBG0002
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP      486          I
          -DBG0002
 DBG=IDP   DCM      SUBR               ** ENTRY/EXIT **                                    DBG0002      429     A     
 DBG=IDP            RJ     FLL         CHECK FWA,LWA, AND LENGTH                           DBG0002      430     A     
 DBG=IDP            SA1    =10H                                                            DBG0002      431     A     
 DBG=IDP            MI     B2,EXIT.    IF FWA,LWA, OR LEN IS BAD                           DBG0002      432     A     
 DBG=IDP            BX6    X1                                                              DBG0002      433     A     
 DBG=IDP            SB6    B0          PRESET TO *READY FOR NEW SNAP LINE*                 DBG0002      434     A     
 DBG=IDP            SA6    SNAPLNE     PRESTORE (A6) = ADDR OF LAST WORD STORED            DBG0002      435     A     
 DBG=IDP  *                              INTO SNAP LINE.  THIS WILL FORCE A BLANK          DBG0002      436     A     
 DBG=IDP  *                              LINE TO BE OUTPUT AS 1ST LINE OF DUMP.            DBG0002      437     A     
 DBG=IDP                                                                                   DBG0002      438     A     
 DBG=IDP  *         ** MAIN LOOP NODE **                                                   DBG0002      439     A     
 DBG=IDP                                                                                   DBG0002      440     A     
 DBG=IDP   DCM2     SA5    AP=FWA      (X5) = ADDR OF NEXT WORD TO DUMP                    DBG0002      441     A     
 DBG=IDP            SA2    A5+B1       (X2) = LWA OF DUMP                                  DBG0002      442     A     
 DBG=IDP            IX3    X2-X5                                                           DBG0002      443     A     
 DBG=IDP            SX7    X5+B1                                                           DBG0002      444     A     
 DBG=IDP            MI     X3,DCM6     IF FINISHED                                         DBG0002      445     A     
 DBG=IDP            SA7    A5                                                              DBG0002      446     A     
 DBG=IDP            GT     B6,B0,DCM3  IF MORE WORDS TO DUMP ON THIS LINE                  DBG0002      447     A     
 DBG=IDP                                                                                   DBG0002      448     A     
 DBG=IDP  *         HERE IF READY TO OUTPUT OLD LINE AND START NEW LINE BY                 DBG0002      449     A     
 DBG=IDP  *           SETTING UP ADDR OF 1ST WORD ON LINE.                                 DBG0002      450     A     
 DBG=IDP                                                                                   DBG0002      451     A     
 DBG=IDP            MX6    0                                                               DBG0002      452     A     
 DBG=IDP            SA6    A6+B1       MARK EOL                                            DBG0002      453     A     
 DBG=IDP            PRIDP  SNAPLNE                                                         DBG0002      454     A     
 DBG=IDP                                                                                   DBG0002      455     A     
 DBG=IDP            SX1    X5                                                              DBG0002      456     A     
 DBG=IDP            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- ADDR                 DBG0002      457     A     
 DBG=IDP            SA1    IDPFLG                                                          DBG0002      458     A     
 DBG=IDP            LX6    8*CHAR-6*CHAR                                                   DBG0002      459     A     
 DBG=IDP            SB6    X1          (B6) = NR OF WORDS TO DUMP ON A LINE                DBG0002      460     A     
 DBG=IDP            SA6    SNAPLNE                                                         DBG0002      461     A     
 DBG=IDP            LE     B6,B0,*+4S15 IF BAD WORDS PER LINE COUNT...                     DBG0002      462     A     
 DBG=IDP                                                                                   DBG0002      463     A     
 DBG=IDP  *         HERE TO DUMP A SINGLE WORD.                                            DBG0002      464     A     
 DBG=IDP                                                                                   DBG0002      465     A     
 DBG=IDP   DCM3     SA1    X5          (X1) = NEXT WORD TO BE DUMPED                       DBG0002      466     A     
 DBG=IDP            SA2    =10H                                                            DBG0002      467     A     
 DBG=IDP            NZ     X1,DCM4     IF WORD TO DUMP IS NON-ZERO                         DBG0002      468     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 158    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SX3    2R 0&2R                                                         DBG0002      469     A     
 DBG=IDP            SX4    2R-0&2R                                                         DBG0002      470     A     
 DBG=IDP            BX3    -X1*X3                                                          DBG0002      471     A     
 DBG=IDP            BX4    -X1+X4                                                          DBG0002      472     A     
 DBG=IDP            IX5    X3+X4                                                           DBG0002      473     A     
 DBG=IDP            LX6    X2                                                              DBG0002      474     A     
 DBG=IDP            BX7    X2-X5       (X7) = .........0   (.=55B)  IF (X1) = +0           DBG0002      475     A     
 DBG=IDP  *                                 = ........-0   (.=55B)  IF (X1) = -0           DBG0002      476     A     
 DBG=IDP            EQ     DCM5                                                            DBG0002      477     A     
 DBG=IDP                                                                                   DBG0002      478     A     
 DBG=IDP   DCM4     RJ     =XWOD       CONVERT A FULL BINARY WORD TO OCTAL DPC             DBG0002      479     A     
 DBG=IDP                                                                                   DBG0002      480     A     
 DBG=IDP   DCM5     SA6    A6+B1                                                           DBG0002      481     A     
 DBG=IDP            SA7    A6+B1                                                           DBG0002      482     A     
 DBG=IDP            SA1    =10H                                                            DBG0002      483     A     
 DBG=IDP            SB6    B6-B1                                                           DBG0002      484     A     
 DBG=IDP            BX6    X1                                                              DBG0002      485     A     
 DBG=IDP            SA6    A7+B1                                                           DBG0002      486     A     
 DBG=IDP            EQ     DCM2        MAIN LOOP...                                        DBG0002      487     A     
 DBG=IDP                                                                                   DBG0002      488     A     
 DBG=IDP  *         HERE IF FINISHED -- NEED TO OUTPUT FINAL WORD.                         DBG0002      489     A     
 DBG=IDP                                                                                   DBG0002      490     A     
 DBG=IDP   DCM6     MX6    0                                                               DBG0002      491     A     
 DBG=IDP            SA6    A6+B1       MARK EOL                                            DBG0002      492     A     
 DBG=IDP            PRIDP  SNAPLNE                                                         DBG0002      493     A     
 DBG=IDP            EQ     EXIT.                                                           DBG0002      494     A     
 DBG=IDP   DSR      SPACE  4,8                                                             DBG=IDP      487     A     
 DBG=IDP  **        DSR - DUMP SELECTED REGISTERS.                                         DBG=IDP      488     A     
 DBG=IDP  *                                                                                DBG=IDP      489     A     
 DBG=IDP  *                                                                                DBG=IDP      490     A     
 DBG=IDP  *                PERFORMS A SELECTED REGISTER DUMP, BASED ON A PARAMETER         DBG=IDP      491     A     
 DBG=IDP  *         LIST SET UP BY *SNAP* AND/OR *REG* MACROS.                             DBG=IDP      492     A     
 DBG=IDP  *                                                                                DBG=IDP      493     A     
 DBG=IDP  *                0TR = REGISTER DESIGNATOR                                       DBG=IDP      494     A     
 DBG=IDP  *                            T = REGISTER TYPE                                   DBG=IDP      495     A     
 DBG=IDP  *                              = 0 FOR -B- REGISTER                              DBG=IDP      496     A     
 DBG=IDP  *                              = 1 FOR -A- REGISTER                              DBG=IDP      497     A     
 DBG=IDP  *                              = 2 FOR -X- REGISTER                              DBG=IDP      498     A     
 DBG=IDP  *                            R = REGISTER NR (0-7)                               DBG=IDP      499     A     
 DBG=IDP  *                              E.G. A3 WOULD BE 013B                             DBG=IDP      500     A     
 DBG=IDP  *                SV=B = FWA OF REGISTER SAVE AREA                                DBG=IDP      501     A     
 DBG=IDP  *                                                                                DBG=IDP      502     A     
 DBG=IDP  *         PARAMETER LIST FORMAT--                                                DBG=IDP      503     A     
 DBG=IDP  *                                                                                DBG=IDP      504     A     
 DBG=IDP  *         VFD    60/SV=B+0TR                                                     DBG=IDP      505     A     
 DBG=IDP  *         VFD    60/SV=B+0TR                                                     DBG=IDP      506     A     
 DBG=IDP  *                 .                                                              DBG=IDP      507     A     
 DBG=IDP  *                 .                                                              DBG=IDP      508     A     
 DBG=IDP  *                60/0        END OF PARAMETER LIST                               DBG=IDP      509     A     
 DBG=IDP  *                                                                                DBG=IDP      510     A     
 DBG=IDP  *         ENTRY  (A1,X1) = ADDR + CNTS OF 1ST WORD OF PARAMETER LIST             DBG=IDP      511     A     
 DBG=IDP  *                                                                                DBG=IDP      512     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 159    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *         EXIT   NONE                                                            DBG=IDP      513     A     
 DBG=IDP  *                                                                                DBG=IDP      514     A     
 DBG=IDP  *         USES   ALL                                                             DBG=IDP      515     A     
 DBG=IDP  *                                                                                DBG=IDP      516     A     
 DBG=IDP  *         CALLS  DAB,DUX                                                         DBG=IDP      517     A     
 DBG=IDP                                                                                   DBG=IDP      518     A     
 DBG=IDP                                                                                   DBG=IDP      519     A     
 DBG=IDP   DSR      SUBR               ** ENTRY/EXIT **                                    DBG=IDP      520     A     
 DBG=IDP                                                                                   DBG=IDP      521     A     
 DBG=IDP   DSR2     ZR     X1,EXIT.    IF FINISHED DUMPING SELECTED REGISTERS              DBG=IDP      522     A     
 DBG=IDP            SB2    =XSV=B                                                          DBG=IDP      523     A     
 DBG=IDP            SB3    X1                                                              DBG=IDP      524     A     
 DBG=IDP            SX6    A1+                                                             DBG=IDP      525     A     
 DBG=IDP            SB4    B3-B2                                                           DBG=IDP      526     A     
 DBG=IDP            SB5    20B                                                             DBG=IDP      527     A     
 DBG=IDP            SA6    DSRA        SAVE (A1) = CURRENT POSITION IN PARM LIST           DBG=IDP      528     A     
 DBG=IDP            GE     B4,B5,DSR3  IF -X- REGISTER DUMP                                DBG=IDP      529     A     
 DBG=IDP            RJ     DAB         DUMP -A- OR -B- REGISTER                            DBG=IDP      530     A     
 DBG=IDP            EQ     DSR4                                                            DBG=IDP      531     A     
 DBG=IDP                                                                                   DBG=IDP      532     A     
 DBG=IDP   DSR3     RJ     DUX         DUMP -X- REGISTER                                   DBG=IDP      533     A     
 DBG=IDP                                                                                   DBG=IDP      534     A     
 DBG=IDP   DSR4     SA1    DSRA                                                            DBG=IDP      535     A     
 DBG=IDP            SA1    X1+1                                                            DBG=IDP      536     A     
 DBG=IDP            EQ     DSR2                                                            DBG=IDP      537     A     
 DBG=IDP                                                                                   DBG=IDP      538     A     
 DBG=IDP                                                                                   DBG=IDP      539     A     
 DBG=IDP   DSRA     BSSZ   1           SAVED (A1) = ADDR OF NEXT REGISTER PARAME-          DBG=IDP      540     A     
 DBG=IDP  *                              TER WORD                                          DBG=IDP      541     A     
 DBG=IDP   DUX      SPACE  4,8                                                             DBG=IDP      542     A     
 DBG=IDP  **        DUX - DUMP AN -X- REGISTER.                                            DBG=IDP      543     A     
 DBG=IDP  *                                                                                DBG=IDP      544     A     
 DBG=IDP  *                                                                                DBG=IDP      545     A     
 DBG=IDP  *         ENTRY  (B4) = 0TR, WHERE                                               DBG=IDP      546     A     
 DBG=IDP  *                            T IS REGISTER TYPE (2=X REGISTER)                   DBG=IDP      547     A     
 DBG=IDP  *                            R IS REGISTER NR (0-7)                              DBG=IDP      548     A     
 DBG=IDP  *                              E.G. X1 WOULD BE 021B                             DBG=IDP      549     A     
 DBG=IDP  *                                                                                DBG=IDP      550     A     
 DBG=IDP  *         EXIT   (B4) IS UNCHANGED                                               DBG=IDP      551     A     
 DBG=IDP  *                                                                                DBG=IDP      552     A     
 DBG=IDP  *         USES   ALL BUT B4                                                      DBG=IDP      553     A     
 DBG=IDP  *                                                                                DBG=IDP      554     A     
 DBG=IDP  *         CALLS  PRIDP,WOD                                                       DBG=IDP      555     A     
 DBG=IDP                                                                                   DBG=IDP      556     A     
 DBG=IDP                                                                                   DBG=IDP      557     A     
 DBG=IDP   DUX      SUBR               ** ENTRY/EXIT **                                    DBG=IDP      558     A     
 DBG=IDP            SA1    B4+SV=B                                                         DBG=IDP      559     A     
 DBG=IDP            SA2    DUXA                                                            DBG=IDP      560     A     
 DBG=IDP            SX7    B4-20B      (X7) = X REGISTER NR                                DBG=IDP      561     A     
 DBG=IDP            LX7    2*CHAR-1*CHAR                                                   DBG=IDP      562     A     
 DBG=IDP            IX6    X2+X7       (X6) = 10H       XN  , WHERE N=0 THRU 7             DBG=IDP      563     A     
 DBG=IDP            SA6    SNAPLNE                                                         DBG=IDP      564     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 160    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            RJ     =XWOD       CONVERT ONE FULL BINARY WORD TO OCTAL DPC           DBG=IDP      565     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP      566     A     
 DBG=IDP            SA7    A6+B1                                                           DBG=IDP      567     A     
 DBG=IDP            SA1    =10H                                                            DBG=IDP      568     A     
 DBG=IDP            SA2    B4+SV=B     (X2) = CONTENTS OF X-N-                             DBG=IDP      569     A     
 DBG=IDP            BX6    X1                                                              DBG=IDP      570     A     
 DBG=IDP            LX7    X2                                                              DBG=IDP      571     A     
 DBG=IDP            SA6    A7+B1                                                           DBG=IDP      572     A     
 DBG=IDP            SA7    A6+B1                                                           DBG=IDP      573     A     
 DBG=IDP            BX6    X6-X6                                                           DBG=IDP      574     A     
 DBG=IDP            SA6    A7+B1       MARK EOL                                            DBG=IDP      575     A     
 DBG=IDP            PRIDP  SNAPLNE                                                         DBG=IDP      576     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP      577     A     
 DBG=IDP                                                                                   DBG=IDP      578     A     
 DBG=IDP                                                                                   DBG=IDP      579     A     
 DBG=IDP   DUXA     DATA   10H       X0                                                    DBG=IDP      580     A     
 DBG=IDP   FAB      SPACE  4,8                                                             DBG=IDP      581     A     
 DBG=IDP  **        FAB - FORMAT AN -A- OR -B- REGISTER.                                   DBG=IDP      582     A     
 DBG=IDP  *                                                                                DBG=IDP      583     A     
 DBG=IDP  *                                                                                DBG=IDP      584     A     
 DBG=IDP  *                THIS ROUTINE WILL FORMAT AN -A- OR -B- REGISTER                 DBG=IDP      585     A     
 DBG=IDP  *         SUITABLE FOR PRINTING. FORMAT--                                        DBG=IDP      586     A     
 DBG=IDP  *                                                                                DBG=IDP      587     A     
 DBG=IDP  *    (B6)+0         0         0         0         0         0                    DBG=IDP      588     A     
 DBG=IDP  *         .......TR..NNNNNN.....C(TR).=.NNNNNNNNNNNNNNNNNNNN                     DBG=IDP      589     A     
 DBG=IDP  *                                                                                DBG=IDP      590     A     
 DBG=IDP  *         T=REGISTER TYPE (B,A),R=REGISTER NR (0-7),.=BLANK(55B)                 DBG=IDP      591     A     
 DBG=IDP  *                                                                                DBG=IDP      592     A     
 DBG=IDP  *         ENTRY  (B4) = 0TR, WHERE                                               DBG=IDP      593     A     
 DBG=IDP  *                            T IS REGISTER TYPE (B=0,A=1)                        DBG=IDP      594     A     
 DBG=IDP  *                            R IS REGISTER NR (0-7)                              DBG=IDP      595     A     
 DBG=IDP  *                (B6) = FWA TO STORE                                             DBG=IDP      596     A     
 DBG=IDP  *                                                                                DBG=IDP      597     A     
 DBG=IDP  *         EXIT   (B4) = UNCHANGED                                                DBG=IDP      598     A     
 DBG=IDP  *                (B6) = UNCHANGED                                                DBG=IDP      599     A     
 DBG=IDP  *                (A6) = ADDR OF FULL ZERO WORD EOL MARKER                        DBG=IDP      600     A     
 DBG=IDP  *                                                                                DBG=IDP      601     A     
 DBG=IDP  *         USES   X - ALL     (INCLUDES ALL CALLS)                                DBG=IDP      602     A     
 DBG=IDP  *                A - ALL BUT A0                                                  DBG=IDP      603     A     
 DBG=IDP  *                B - 2,3,4,5                                                     DBG=IDP      604     A     
 DBG=IDP  *                                                                                DBG=IDP      605     A     
 DBG=IDP  *         CALLS  CHK,COD,WOD                                                     DBG=IDP      606     A     
 DBG=IDP                                                                                   DBG=IDP      607     A     
 DBG=IDP                                                                                   DBG=IDP      608     A     
 DBG=IDP   FAB      SUBR               ** ENTRY/EXIT **                                    DBG=IDP      609     A     
 DBG=IDP            SX1    B4                                                              DBG=IDP      610     A     
 DBG=IDP            MX0    -3                                                              DBG=IDP      611     A     
 DBG=IDP            SA5    SV=B+B4     (X5) = SAVED (TR)   (T=REG TYPE,R=REG NR)           DBG=IDP      612     A     
 DBG=IDP            BX6    X0*X1       (X6) = REG TYPE (B=00B,A=10B)                       DBG=IDP      613     A     
 DBG=IDP            SB5    B4          SAVE (B4) = 0TR                                     DBG=IDP      614     A     
 DBG=IDP            BX7    -X0*X1      (X7) = REG NR (0-7)                                 DBG=IDP      615     A     
 DBG=IDP            LX6    -3                                                              DBG=IDP      616     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 161    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SA2    FABA+X6                                                         DBG=IDP      617     A     
 DBG=IDP            SA3    FABB+X6                                                         DBG=IDP      618     A     
 DBG=IDP            LX7    2*CHAR-1*CHAR                                                   DBG=IDP      619     A     
 DBG=IDP            IX6    X2+X7       (X6) = .......TR.   (.=BLANK,T=RTYPE,R=RNR)         DBG=IDP      620     A     
 DBG=IDP            LX7    5*CHAR-2*CHAR                                                   DBG=IDP      621     A     
 DBG=IDP            SA6    B6                                                              DBG=IDP      622     A     
 DBG=IDP            MX0    -18                                                             DBG=IDP      623     A     
 DBG=IDP            IX7    X3+X7       (X7) = ..C(TR).=.                                   DBG=IDP      624     A     
 DBG=IDP            BX1    -X0*X5                                                          DBG=IDP      625     A     
 DBG=IDP            SA7    B6+2                                                            DBG=IDP      626     A     
 DBG=IDP            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                         DBG=IDP      627     A     
 DBG=IDP            LX6    9*CHAR-6*CHAR                                                   DBG=IDP      628     A     
 DBG=IDP            SB4    B5          RESTORE (B4)                                        DBG=IDP      629     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP      630     A     
 DBG=IDP            SB2    X5                                                              DBG=IDP      631     A     
 DBG=IDP            RJ     CHK         CHECK CM ADDRESS                                    DBG=IDP      632     A     
 DBG=IDP            PL     B2,FAB2     IF ADDR OK                                          DBG=IDP      633     A     
 DBG=IDP            SA1    =20H ** OUT OF RANGE **                                         DBG=IDP      634     A     
 DBG=IDP            SA2    A1+B1                                                           DBG=IDP      635     A     
 DBG=IDP            BX6    X1                                                              DBG=IDP      636     A     
 DBG=IDP            LX7    X2                                                              DBG=IDP      637     A     
 DBG=IDP            EQ     FAB3                                                            DBG=IDP      638     A     
 DBG=IDP                                                                                   DBG=IDP      639     A     
 DBG=IDP  *         HERE TO CONVERT C(TR) TO OCTAL DPC.                                    DBG=IDP      640     A     
 DBG=IDP                                                                                   DBG=IDP      641     A     
 DBG=IDP   FAB2     SA1    B2          (X1) = C(TR)                                        DBG=IDP      642     A     
 DBG=IDP            RJ     WOD         CONVERT A FULL BINARY WORD TO OCTAL DPC             DBG=IDP      643     A     
 DBG=IDP                                                                                   DBG=IDP      644     A     
 DBG=IDP   FAB3     SA6    A7+B1                                                           DBG=IDP      645     A     
 DBG=IDP            SA7    A6+B1                                                           DBG=IDP      646     A     
 DBG=IDP            MX6    0                                                               DBG=IDP      647     A     
 DBG=IDP            SA6    A7+B1       MARK EOL                                            DBG=IDP      648     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP      649     A     
 DBG=IDP                                                                                   DBG=IDP      650     A     
 DBG=IDP                                                                                   DBG=IDP      651     A     
 DBG=IDP   FABA     DATA   10H       B0  NNNNNN                                            DBG=IDP      652     A     
 DBG=IDP            DATA   10H       A0  NNNNNN                                            DBG=IDP      653     A     
 DBG=IDP   FABB     DATA   10H  C(B0) =  NNNNNNNNNNNNNNNNNNNN                              DBG=IDP      654     A     
 DBG=IDP            DATA   10H  C(A0) =  NNNNNNNNNNNNNNNNNNNN                              DBG=IDP      655     A     
 DBG=IDP   FLL      SPACE  4,8                                                             DBG=IDP      656     A     
 DBG=IDP  **        FLL - CHECK FWA,LWA, AND LENGTH PARAMETERS.                            DBG=IDP      657     A     
 DBG=IDP  *                                                                                DBG=IDP      658     A     
 DBG=IDP  *                                                                                DBG=IDP      659     A     
 DBG=IDP  *         ENTRY  (X2) = 18/0, 21/LEV OF IND ADDR, 21/FWA                         DBG=IDP      660     A     
 DBG=IDP  *                (X3) = 18/0, 21/LEV OF IND ADDR, 21/LWA                         DBG=IDP      661     A     
 DBG=IDP  *                         (X3) IS OPTIONAL                                       DBG=IDP      662     A     
 DBG=IDP  *                (X4) = 18/0, 21/LEV OF IND ADDR, 21/LEN                         DBG=IDP      663     A     
 DBG=IDP  *                         NOTE -- IF LEN = 0, DMP IS FROM FWA TO LWA,            DBG=IDP      664     A     
 DBG=IDP  *                                        ELSE DMP IS FROM FWA TO FWA+LEN         DBG=IDP      665     A     
 DBG=IDP  *                                                                                DBG=IDP      666     A     
 DBG=IDP  *         EXIT   (B2) = .MI. IF FWA,LWA, OR LEN WAS BAD, ELSE .PL.               DBG=IDP      667     A     
 DBG=IDP  *                (AP=FWA) = FWA                                                  DBG=IDP      668     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 162    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                (AP=LWA) = LWA                                                  DBG=IDP      669     A     
 DBG=IDP  *                                                                                DBG=IDP      670     A     
 DBG=IDP  *         USES   X - ALL BUT X5                                                  DBG=IDP      671     A     
 DBG=IDP  *                A - 1,2,6                                                       DBG=IDP      672     A     
 DBG=IDP  *                B - 2,3                                                         DBG=IDP      673     A     
 DBG=IDP  *                                                                                DBG=IDP      674     A     
 DBG=IDP  *         CALLS  CHK,GIL                                                         DBG=IDP      675     A     
 DBG=IDP                                                                                   DBG=IDP      676     A     
 DBG=IDP                                                                                   DBG=IDP      677     A     
 DBG=IDP   FLL      SUBR               ** ENTRY/EXIT **                                    DBG=IDP      678     A     
 DBG=IDP                                                                                   DBG=IDP      679     A     
 DBG=IDP  *         CHECK FWA.                                                             DBG=IDP      680     A     
 DBG=IDP                                                                                   DBG=IDP      681     A     
 DBG=IDP            LX2    -21                                                             DBG=IDP      682     A     
 DBG=IDP            SB3    X2+         (B3) = LEVEL OF INDIRECT ADDRESSING                 DBG=IDP      683     A     
 DBG=IDP            LX2    21          RESTORE (X2)                                        DBG=IDP      684     A     
 DBG=IDP            RJ     GIL         GENERATE INDIRECT LOAD (IF NECESSARY)               DBG=IDP      685     A     
 DBG=IDP            MI     B2,EXIT.    IF FWA IS BAD                                       DBG=IDP      686     A     
 DBG=IDP            SX6    B2          SAVE (B2) = FWA                                     DBG=IDP      687     A     
 DBG=IDP            SA6    AP=FWA                                                          DBG=IDP      688     A     
 DBG=IDP                                                                                   DBG=IDP      689     A     
 DBG=IDP  *         CHECK LENGTH.                                                          DBG=IDP      690     A     
 DBG=IDP                                                                                   DBG=IDP      691     A     
 DBG=IDP   FLL2     MX0    -42                                                             DBG=IDP      692     A     
 DBG=IDP            BX2    -X0*X4                                                          DBG=IDP      693     A     
 DBG=IDP            ZR     X2,FLL3     IF NO LENGTH, USE LWA                               DBG=IDP      694     A     
 DBG=IDP            LX2    -21                                                             DBG=IDP      695     A     
 DBG=IDP            SB3    X2                                                              DBG=IDP      696     A     
 DBG=IDP            LX2    21                                                              DBG=IDP      697     A     
 DBG=IDP            RJ     GIL         GENERATE INDIRECT LOAD (IF NECESSARY)               DBG=IDP      698     A     
 DBG=IDP            MI     B2,EXIT.    IF LENGTH IS BAD                                    DBG=IDP      699     A     
 DBG=IDP            SB2    X6+B2       (B2) = FWA + LEN                                    DBG=IDP      700     A     
 DBG=IDP            SB2    B2-B1       (B2) = LWA                                          DBG=IDP      701     A     
 DBG=IDP            RJ     CHK         CHECK CM ADDR                                       DBG=IDP      702     A     
 DBG=IDP            MI     B2,EXIT.    IF LWA IS BAD                                       DBG=IDP      703     A     
 DBG=IDP            SX6    B2          SAVE (B2) = LWA                                     DBG=IDP      704     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP      705     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP      706     A     
 DBG=IDP                                                                                   DBG=IDP      707     A     
 DBG=IDP  *         CHECK LWA.                                                             DBG=IDP      708     A     
 DBG=IDP                                                                                   DBG=IDP      709     A     
 DBG=IDP   FLL3     BX2    X3                                                              DBG=IDP      710     A     
 DBG=IDP            LX2    -21                                                             DBG=IDP      711     A     
 DBG=IDP            BX7    -X0*X3                                                          DBG=IDP      712     A     
 DBG=IDP            SB3    X2                                                              DBG=IDP      713     A     
 DBG=IDP            SX4    B1          (X4) = DEFAULT LEN IS 1, IF LEN AND LWA =0          DBG=IDP      714     A     
 DBG=IDP            LX2    21                                                              DBG=IDP      715     A     
 DBG=IDP            ZR     X7,FLL2     IF NO LWA, DEFAULT LEN=1                            DBG=IDP      716     A     
 DBG=IDP            RJ     GIL         GENERATE INDIRECT LOAD (IF NECESSARY)               DBG=IDP      717     A     
 DBG=IDP            MI     B2,EXIT.    IF LWA IS BAD                                       DBG=IDP      718     A     
 DBG=IDP            SX6    B2          SAVE (B2) = LWA                                     DBG=IDP      719     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP      720     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 163    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP      721     A     
 DBG=IDP   FRK      SPACE  4,8                                                             DBG=IDP      722     A     
 DBG=IDP  **        FRK - CHECK FREQUENCY PARAMETERS.                                      DBG=IDP      723     A     
 DBG=IDP  *                                                                                DBG=IDP      724     A     
 DBG=IDP  *                                                                                DBG=IDP      725     A     
 DBG=IDP  *         ENTRY  (X5)   =  FWA OF SNAP PARAMETER LIST                            DBG=IDP      726     A     
 DBG=IDP  *                                                                                DBG=IDP      727     A     
 DBG=IDP  *         FREQUENCY PARAMETER LIST AT (X5)+SN=FRK --                             DBG=IDP      728     A     
 DBG=IDP  *                                                                                DBG=IDP      729     A     
 DBG=IDP  *         VFD    60/LOWER LIMIT (LL)                                             DBG=IDP      730     A     
 DBG=IDP  *         VFD    60/UPPER LIMIT (UL)                                             DBG=IDP      731     A     
 DBG=IDP  *         VFD    60/INCREMENT  (INC)                                             DBG=IDP      732     A     
 DBG=IDP  *         VFD    60/10HNAME                                                      DBG=IDP      733     A     
 DBG=IDP  *         VFD    60/SNAP COUNT                                                   DBG=IDP      734     A     
 DBG=IDP  *                                                                                DBG=IDP      735     A     
 DBG=IDP  *         EXIT   (X5)   =  .ZR. IF NO SNAP THIS TIME, ELSE UNCHANGED             DBG=IDP      736     A     
 DBG=IDP  *                                                                                DBG=IDP      737     A     
 DBG=IDP  *         USES   X - ALL     (BUT X5 IF SNAP THIS TIME)                          DBG=IDP      738     A     
 DBG=IDP  *                A - 1,2,3,4                                                     DBG=IDP      739     A     
 DBG=IDP  *                B - 7                                                           DBG=IDP      740     A     
 DBG=IDP  *                                                                                DBG=IDP      741     A     
 DBG=IDP  *         CALLS  NONE                                                            DBG=IDP      742     A     
 DBG=IDP                                                                                   DBG=IDP      743     A     
 DBG=IDP                                                                                   DBG=IDP      744     A     
 DBG=IDP   FRK.NO   SX5    0                                                               DBG=IDP      745     A     
 DBG=IDP                                                                                   DBG=IDP      746     A     
 DBG=IDP   FRK      SUBR               ** ENTRY/EXIT **                                    DBG=IDP      747     A     
 DBG=IDP            SA1    X5+SN=LL    (X1) = LL                                           DBG=IDP      748     A     
 DBG=IDP            SA2    A1+B1       (X2) = UL                                           DBG=IDP      749     A     
 DBG=IDP            SA3    A2+B1       (X3) = INC                                          DBG=IDP      750     A     
 DBG=IDP            SA4    X5+SN=CNT   (X4) = SNAP COUNT                                   DBG=IDP      751     A     
 DBG=IDP            MI     X1,FRK.NO   IF LL BAD                                           DBG=IDP      752     A     
 DBG=IDP            MI     X2,FRK.NO   IF UL BAD                                           DBG=IDP      753     A     
 DBG=IDP            MI     X3,FRK.NO    IF INC BAD                                         DBG=IDP      754     A     
 DBG=IDP            SX6    X4+B1       (X6) = SNAP COUNT + 1                               DBG=IDP      755     A     
 DBG=IDP            SA6    A4+                                                             DBG=IDP      756     A     
 DBG=IDP            IX7    X6-X1       (X7) = SNAP CNT - LOWER LIMIT                       DBG=IDP      757     A     
 DBG=IDP            MI     X7,FRK.NO   IF NOT TIME TO SNAP YET                             DBG=IDP      758     A     
 DBG=IDP            IX7    X2-X6       (X7) = UPPER LIMIT - SNAP COUNT                     DBG=IDP      759     A     
 DBG=IDP            PX3    X3                                                              DBG=IDP      760     A     
 DBG=IDP            MI     X7,FRK.NO   IF PAST UPPER LIMIT                                 DBG=IDP      761     A     
 DBG=IDP                                                                                   DBG=IDP      762     A     
 DBG=IDP  *         COMPUTE  (COUNT/INC)*INC-COUNT.                                        DBG=IDP      763     A     
 DBG=IDP                                                                                   DBG=IDP      764     A     
 DBG=IDP            PX6    X6                                                              DBG=IDP      765     A     
 DBG=IDP            NX3    X3                                                              DBG=IDP      766     A     
 DBG=IDP            NX6    X6                                                              DBG=IDP      767     A     
 DBG=IDP            FX7    X6/X3                                                           DBG=IDP      768     A     
 DBG=IDP            UX7    X7,B7                                                           DBG=IDP      769     A     
 DBG=IDP            LX7    X7,B7                                                           DBG=IDP      770     A     
 DBG=IDP            PX7    X7                                                              DBG=IDP      771     A     
 DBG=IDP            NX7    X7                                                              DBG=IDP      772     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 164    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            FX7    X7*X3                                                           DBG=IDP      773     A     
 DBG=IDP            IX7    X7-X6                                                           DBG=IDP      774     A     
 DBG=IDP            NZ     X7,FRK.NO   IF NOT AT A SNAP INCREMENT                          DBG=IDP      775     A     
 DBG=IDP            EQ     EXIT.       SNAP SHOULD BE HONORED...                           DBG=IDP      776     A     
 DBG=IDP   GIL      SPACE  4,8                                                             DBG=IDP      777     A     
 DBG=IDP  **        GIL - GENERATE INDIRECT LOAD.                                          DBG=IDP      778     A     
 DBG=IDP  *                                                                                DBG=IDP      779     A     
 DBG=IDP  *                                                                                DBG=IDP      780     A     
 DBG=IDP  *                GENERATES 0 THRU N INDIRECT LOADS, CHECKING THE ADDRESS         DBG=IDP      781     A     
 DBG=IDP  *         TO BE LOADED BEFORE EACH LOAD.                                         DBG=IDP      782     A     
 DBG=IDP  *                                                                                DBG=IDP      783     A     
 DBG=IDP  *         ENTRY  (X2) = ADDRESS (BITS 59-18) IGNORED)                            DBG=IDP      784     A     
 DBG=IDP  *                (B3) = LEVEL OF INDIRECT ADDRESSING,                            DBG=IDP      785     A     
 DBG=IDP  *                         (B3) = 0 MEANS DIRECT ADDRESSING                       DBG=IDP      786     A     
 DBG=IDP  *                                                                                DBG=IDP      787     A     
 DBG=IDP  *         EXIT   (B2) = ADDRESS AT END OF INDIRECT CHAIN, IF (B2) .PL.           DBG=IDP      788     A     
 DBG=IDP  *                       IF (B2) .MI., ONE OF THE ADDRESSES WAS BAD               DBG=IDP      789     A     
 DBG=IDP  *                                                                                DBG=IDP      790     A     
 DBG=IDP  *         USES   X - 1,2                                                         DBG=IDP      791     A     
 DBG=IDP  *                A - 1,2                                                         DBG=IDP      792     A     
 DBG=IDP  *                B - 2,3                                                         DBG=IDP      793     A     
 DBG=IDP  *                                                                                DBG=IDP      794     A     
 DBG=IDP  *         CALLS  CHK                                                             DBG=IDP      795     A     
 DBG=IDP                                                                                   DBG=IDP      796     A     
 DBG=IDP                                                                                   DBG=IDP      797     A     
 DBG=IDP   GIL      SUBR               ** ENTRY/EXIT **                                    DBG=IDP      798     A     
 DBG=IDP                                                                                   DBG=IDP      799     A     
 DBG=IDP   GIL2     SB2    X2                                                              DBG=IDP      800     A     
 DBG=IDP            SB3    B3-B1                                                           DBG=IDP      801     A     
 DBG=IDP            RJ     CHK         CHECK CM ADDRESS                                    DBG=IDP      802     A     
 DBG=IDP            MI     B2,EXIT.    IF ADDR IS BAD                                      DBG=IDP      803     A     
 DBG=IDP            SA2    B2+                                                             DBG=IDP      804     A     
 DBG=IDP            GE     B3,B0,GIL2  IF MORE LEVELS OF INDIRECT ADDRESSING TO GO         DBG=IDP      805     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP      806     A     
 DBG=IDP   HDR      SPACE  4,8                                                             DBG=IDP      807     A     
 DBG=IDP  **        HDR - PRINT SNAP HEADER.                                               DBG=IDP      808     A     
 DBG=IDP  *                                                                                DBG=IDP      809     A     
 DBG=IDP  *                                                                                DBG=IDP      810     A     
 DBG=IDP  *                PRINTS A SNAP HEADER OF THE FORM--                              DBG=IDP      811     A     
 DBG=IDP  *                                                                                DBG=IDP      812     A     
 DBG=IDP  * NAME      SNAP NR  NNNNNN    CALLED BY NNNNNN IN XXXXXXX                       DBG=IDP      813     A     
 DBG=IDP  *                                                                                DBG=IDP      814     A     
 DBG=IDP  *         ENTRY  (A5,   =  ADDR OF CALLER                                        DBG=IDP      815     A     
 DBG=IDP  *                    X5)=  FWA OF PARAMETER LSIT                                 DBG=IDP      816     A     
 DBG=IDP  *                                                                                DBG=IDP      817     A     
 DBG=IDP  *         EXIT   NONE                                                            DBG=IDP      818     A     
 DBG=IDP  *                                                                                DBG=IDP      819     A     
 DBG=IDP  *         USES   ALL BUT A5,X5                                                   DBG=IDP      820     A     
 DBG=IDP  *                                                                                DBG=IDP      821     A     
 DBG=IDP  *         CALLS  CDD,FRA=,PRIDP                                                  DBG=IDP      822     A     
 DBG=IDP                                                                                   DBG=IDP      823     A     
 DBG=IDP                                                                                   DBG=IDP      824     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 165    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP   HDR      SUBR               ** ENTRY/EXIT **                                    DBG=IDP      825     A     
 DBG=IDP            SA1    X5+SN=HDR                                                       DBG=IDP      826     A     
 DBG=IDP            SA4    X5+SN=CNT                                                       DBG=IDP      827     A     
 DBG=IDP            ZR     X1,EXIT.    IF NO HEADER TO BE GENERATED                        DBG=IDP      828     A     
 DBG=IDP            MX0    8*CHAR                                                          DBG=IDP      829     A     
 DBG=IDP            BX6    X0*X1                                                           DBG=IDP      830     A     
 DBG=IDP            SX7    2R                                                              DBG=IDP      831     A     
 DBG=IDP            BX6    X6+X7                                                           DBG=IDP      832     A     
 DBG=IDP            LX6    -2*CHAR     (X6) = 10H  NAME                                    DBG=IDP      833     A     
 DBG=IDP            SA6    SNAPLNE                                                         DBG=IDP      834     A     
 DBG=IDP            SA2    HDRA                                                            DBG=IDP      835     A     
 DBG=IDP            SA3    A2+B1                                                           DBG=IDP      836     A     
 DBG=IDP            SX1    X4                                                              DBG=IDP      837     A     
 DBG=IDP            BX6    X2                                                              DBG=IDP      838     A     
 DBG=IDP            LX7    X3                                                              DBG=IDP      839     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP      840     A     
 DBG=IDP            SA7    A6+2                                                            DBG=IDP      841     A     
 DBG=IDP            RJ     =XCDD       CONVERT BINARY TO DECIMAL DPC                       DBG=IDP      842     A     
 DBG=IDP            BX6    X4                                                              DBG=IDP      843     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP      844     A     
 DBG=IDP            SX1    A5                                                              DBG=IDP      845     A     
 DBG=IDP                                                                                   DBG=IDP      846     A     
 DBG=IDP   #FRA     IF     DEF,FRA=                                                        DBG=IDP      847     A     
 DBG=IDP            SB7    HDR2        (B7) = RETURN ADDR FOR *FRA=*                       DBG=IDP      848     A     
 DBG=IDP            EQ     =XFRA=      FIND RELATIVE ADDRESS                               DBG=IDP      849     A     
 DBG=IDP                                                                                   DBG=IDP      850     A     
 DBG=IDP   HDR2     BSS    0                                                               DBG=IDP      851     A     
 DBG=IDP                                                                                   DBG=IDP      852     A     
 DBG=IDP   #FRA     ELSE                                                                   DBG=IDP      853     A     
 DBG=IDP            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                         DBG=IDP      854     A     
 DBG=IDP            BX6    X4                                                              DBG=IDP      855     A     
 DBG=IDP            MX7    0                                                               DBG=IDP      856     A     
 DBG=IDP   #FRA     ENDIF                                                                  DBG=IDP      857     A     
 DBG=IDP                                                                                   DBG=IDP      858     A     
 DBG=IDP            SA6    A7+B1                                                           DBG=IDP      859     A     
 DBG=IDP            SA7    A6+B1                                                           DBG=IDP      860     A     
 DBG=IDP            PRIDP  SNAPLNE,,L.PRB                                                  DBG=IDP      861     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP      862     A     
 DBG=IDP                                                                                   DBG=IDP      863     A     
 DBG=IDP                                                                                   DBG=IDP      864     A     
 DBG=IDP  *         DATA   10H  SNAPNAME                                                   DBG=IDP      865     A     
 DBG=IDP   HDRA     DATA   10H SNAP NR                                                     DBG=IDP      866     A     
 DBG=IDP  *         DATA   10HNNNNNN                                                       DBG=IDP      867     A     
 DBG=IDP            DATA   10HCALLED BY                                                    DBG=IDP      868     A     
 DBG=IDP  *         DATA   10HNNNNNN IN                                                    DBG=IDP      869     A     
 DBG=IDP  *         DATA   10CXXXXXXX                                                      DBG=IDP      870     A     
 DBG=IDP   REG      SPACE  4,8                                                             DBG=IDP      871     A     
 DBG=IDP  **        REG - REGISTER SNAPSHOT.                                               DBG=IDP      872     A     
 DBG=IDP  *                                                                                DBG=IDP      873     A     
 DBG=IDP  *                                                                                DBG=IDP      874     A     
 DBG=IDP  *                CALLED BY *REG* MACRO.                                          DBG=IDP      875     A     
 DBG=IDP  *                                                                                DBG=IDP      876     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 166    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *         ENTRY  LOWER HALF OF *RJ REG=* WORD HAS FWA OF PARAMETER LIST.         DBG=IDP      877     A     
 DBG=IDP  *                                                                                DBG=IDP      878     A     
 DBG=IDP  * +       RJ     REG=                                                            DBG=IDP      879     A     
 DBG=IDP  * -       VFD    30/FWA OF PARAMETER LIST                                        DBG=IDP      880     A     
 DBG=IDP  *                                                                                DBG=IDP      881     A     
 DBG=IDP  *         PARAMETER LIST EXISTS IN LOCAL BLOCK *USE DEBUG*, AS SET UP BY         DBG=IDP      882     A     
 DBG=IDP  *         *REG* MACRO (SEE *DBG=MAC*) --                                         DBG=IDP      883     A     
 DBG=IDP  *                                                                                DBG=IDP      884     A     
 DBG=IDP  *         VFD    60/LOWER LIMIT (LL)                                             DBG=IDP      885     A     
 DBG=IDP  *         VFD    60/UPPER LIMIT (UL)                                             DBG=IDP      886     A     
 DBG=IDP  *         VFD    60/INCREMENT (INC)                                              DBG=IDP      887     A     
 DBG=IDP  *         VFD    60/10HNAME  (OR .ZR. IF NO NAME)                                DBG=IDP      888     A     
 DBG=IDP  *         VFD    60/0        (USED BY *FRK* TO KEEP SNAP COUNT)                  DBG=IDP      889     A     
 DBG=IDP  *         VFD    18/0,21/LVL OF INDIRECT ADDRESSING,21/FWA                       DBG=IDP      890          I
          -DBG0001
 DBG=IDP  *         VFD    18/0,21/LVL OF INDIRECT ADDRESSING,21/LWA                       DBG=IDP      891          I
          -DBG0001
 DBG=IDP  *         VFD    18/0,21/LVL OF INDIRECT ADDRESSING,21/LEN                       DBG=IDP      892          I
          -DBG0001
 DBG=IDP  *         VFD    60/REGISTER DUMP FLAG                                           DBG=IDP      893     A     
 DBG=IDP  *                 .                                                              DBG=IDP      894     A     
 DBG=IDP  *                 .                                                              DBG=IDP      895     A     
 DBG=IDP  *         VFD    60/REGISTER DUMP FLAG                                           DBG=IDP      896     A     
 DBG=IDP  *                .ZR. = NO REGISTER DUMP  (OR END OF REGISTER LIST)              DBG=IDP      897     A     
 DBG=IDP  *                .MI. = DUMP ALL REGISTERS                                       DBG=IDP      898     A     
 DBG=IDP  *                .GT.0 = ADDR OF REGISTER SAVE WORD FOR REGISTER TO DMP          DBG=IDP      899     A     
 DBG=IDP  *                                                                                DBG=IDP      900     A     
 DBG=IDP  *         EXIT   NONE                                                            DBG=IDP      901     A     
 DBG=IDP  *                                                                                DBG=IDP      902     A     
 DBG=IDP  *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)              DBG=IDP      903     A     
 DBG=IDP  *                                                                                DBG=IDP      904     A     
 DBG=IDP  *         CALLS  DAR,DSR,FRK,HDR,RSR=,SVR=,URO=(IF DEF)                          DBG=IDP      905          I
          -DBG0002
 DBG=IDP  *         CALLS  DAR,DSR,FRK,HDR,RSR=,SOB,SVR=,URO=(IF DEF)                      DBG0002      495     A     
 DBG=IDP                                                                                   DBG=IDP      906     A     
 DBG=IDP                                                                                   DBG=IDP      907     A     
 DBG=IDP   REG=     SUBR               ** ENTRY/EXIT **                                    DBG=IDP      908     A     
 DBG=IDP            RJ     =XSVR=      SAVE ALL REGISTERS                                  DBG=IDP      909     A     
 DBG=IDP            SX1    1           SET TO *EXECUTIVE IS /REG=/*                        DBG0002      496     A     
 DBG=IDP            RJ     SOB         SET OUTPUT BIT FLAGS                                DBG0002      497     A     
 DBG=IDP                                                                                   DBG=IDP      910     A     
 DBG=IDP   #URO     IF     DEF,URO=                                                        DBG=IDP      911     A     
 DBG=IDP            RJ     =XURO=      USER REG= OWNCODE                                   DBG=IDP      912     A     
 DBG=IDP            PL     X1,REG3     IF NO REGISTER SNAPSHOT THIS TIME                   DBG=IDP      913     A     
 DBG=IDP   #URO     ENDIF                                                                  DBG=IDP      914     A     
 DBG=IDP                                                                                   DBG=IDP      915     A     
 DBG=IDP            SA4    REG=        (X4) = 30/EQ CALLING ADDRESS+1, 30/0                DBG=IDP      916     A     
 DBG=IDP            LX4    30                                                              DBG=IDP      917     A     
 DBG=IDP            SA5    X4-1        (A5,X5) = ADDR + CNTS OF CALLING *RJ*               DBG=IDP      918     A     
 DBG=IDP            SX6    X5          (X6) = FWA OF PARAMETER LIST                        DBG=IDP      919     A     
 DBG=IDP            SA6    FWAPARM                                                         DBG=IDP      920     A     
 DBG=IDP            RJ     FRK         CHECK FREQUENCY PARAMETERS                          DBG=IDP      921     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 167    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            ZR     X5,REG3     IF NOT SNAPPING THIS TIME                           DBG=IDP      922     A     
 DBG=IDP            RJ     HDR         OUTPUT SNAP HEADER                                  DBG=IDP      923     A     
 DBG=IDP            SA5    FWAPARM                                                         DBG=IDP      924     A     
 DBG=IDP            SA1    X5+SN=RRL   (A1,X1) = ADDR + CNTS OF 1ST REGISTER DUMP          DBG=IDP      925     A     
 DBG=IDP  *                              PARAMETER WORD                                    DBG=IDP      926     A     
 DBG=IDP            PL     X1,REG2     IF NOT DUMPING ALL REGISTERS                        DBG=IDP      927     A     
 DBG=IDP            RJ     DAR         DUMP ALL REGISTERS                                  DBG=IDP      928     A     
 DBG=IDP            EQ     REG3                                                            DBG=IDP      929     A     
 DBG=IDP                                                                                   DBG=IDP      930     A     
 DBG=IDP   REG2     RJ     DSR         DUMP SELECTED REGISTERS                             DBG=IDP      931     A     
 DBG=IDP                                                                                   DBG=IDP      932     A     
 DBG=IDP   REG3     RJ     =XRSR=      RESTORE ALL REGISTERS                               DBG=IDP      933     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP      934     A     
 DBG=IDP   ROL      SPACE  4,8                                                             DBG=IDP      935          I
          -DBG0002
 DBG=IDP  **        ROL - WRITE OUTPUT LINE(S).                                            DBG=IDP      936          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP      937          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP      938          I
          -DBG0002
 DBG=IDP  *                SHOULD BE ACCESSED VIA *PRIDP* MACRO. THIS ROUTINE WILL         DBG=IDP      939          I
          -DBG0002
 DBG=IDP  *         OUTPUT A SINGLE LINE WITH AN APPROPRIATE NUMBER OF PRECEDING           DBG=IDP      940          I
          -DBG0002
 DBG=IDP  *         BLANK LINES TO EITHER THE INTERACTIVE DEBUG OUTPUT FILE                DBG=IDP      941          I
          -DBG0002
 DBG=IDP  *         *F.IDO* OR TO THE USERS BATCH OUTPUT FILE (VIA *PRBDO* MACRO),         DBG=IDP      942          I
          -DBG0002
 DBG=IDP  *         OR TO BOTH FILES IF (IDPCOPY) IS .NZ.                                  DBG=IDP      943          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP      944          I
          -DBG0002
 DBG=IDP  *         ENTRY  (X4) = NR OF PRECEDING BLANK LINES TO BE OUTPUT                 DBG=IDP      945          I
          -DBG0002
 DBG=IDP  *                (X6) = FWA OF LINE TO BE OUTPUT                                 DBG=IDP      946          I
          -DBG0002
 DBG=IDP  *                (X7) = LEN OF LINE TO BE OUTPUT (IN WORDS)                      DBG=IDP      947          I
          -DBG0002
 DBG=IDP  *                     = .ZR. IF LENGTH TO BE COMPUTED BY *WRITEC*                DBG=IDP      948          I
          -DBG0002
 DBG=IDP  *                (IDPCOPY) = .ZR. IF NO COPY OF INTERACTIVE OUTPUT TO            DBG=IDP      949          I
          -DBG0002
 DBG=IDP  *                                   BE LISTED ON BATCH OUTPUT FILE, ELSE         DBG=IDP      950          I
          -DBG0002
 DBG=IDP  *                            .NZ. IF A COPY IS DESIRED                           DBG=IDP      951          I
          -DBG0002
 DBG=IDP  *                (IDPFLG)  = .ZR. IF IN BATCH MODE                               DBG=IDP      952          I
          -DBG0002
 DBG=IDP  *                          = .NZ. IF IN INTERACTIVE MODE                         DBG=IDP      953          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP      954          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 168    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
          -DBG0002
 DBG=IDP  *         EXIT   NONE                                                            DBG=IDP      955          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP      956          I
          -DBG0002
 DBG=IDP  *         USES   ALL BUT B4,A0,A5,X5      (INCLUDES ALL CALLS)                   DBG=IDP      957          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP      958          I
          -DBG0002
 DBG=IDP  *         CALLS  PRBDO(USER SUPPLIED),WRITEC                                     DBG=IDP      959          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      960          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      961          I
          -DBG0002
 DBG=IDP   ROL      SUBR               ** ENTRY/EXIT **                                    DBG=IDP      962          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      963          I
          -DBG0002
 DBG=IDP  *         INITIALIZATION.                                                        DBG=IDP      964          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      965          I
          -DBG0002
 DBG=IDP            SA6    ROLA        SAVE (X6) = FWA OF LINE                             DBG=IDP      966          I
          -DBG0002
 DBG=IDP            SA7    A6+B1       SAVE (X7) = LEN OF LINE                             DBG=IDP      967          I
          -DBG0002
 DBG=IDP            BX6    X4                                                              DBG=IDP      968          I
          -DBG0002
 DBG=IDP            SX7    B4                                                              DBG=IDP      969          I
          -DBG0002
 DBG=IDP            SA6    A7+B1       SAVE (X4) = NR OF PRECEDING BLANK LINES             DBG=IDP      970          I
          -DBG0002
 DBG=IDP            SA7    A6+B1       SAVE (B4)                                           DBG=IDP      971          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      972          I
          -DBG0002
 DBG=IDP  *         HERE TO OUTPUT APPROPRIATE NUMBER OF PRECEDING BLANK LINES.            DBG=IDP      973          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      974          I
          -DBG0002
 DBG=IDP   ROL2     SA1    ROLC        (X1) = NR OF PRECEDING BLANK LINES                  DBG=IDP      975          I
          -DBG0002
 DBG=IDP            SA2    IDPFLG                                                          DBG=IDP      976          I
          -DBG0002
 DBG=IDP            SX6    X1-1                                                            DBG=IDP      977          I
          -DBG0002
 DBG=IDP            MI     X6,ROL4     IF NO MORE BLANK LINES                              DBG=IDP      978          I
          -DBG0002
 DBG=IDP            SA6    A1+                                                             DBG=IDP      979          I
          -DBG0002
 DBG=IDP            ZR     X2,ROL3     IF NOT IN INTERACTIVE MODE                          DBG=IDP      980          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 169    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      981          I
          -DBG0002
 DBG=IDP   #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      DBG=IDP      982          I
          -DBG0002
 DBG=IDP            WRITEC =XF.IDO,(=C= =),1                                               DBG=IDP      983          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      984          I
          -DBG0002
 DBG=IDP            SA1    IDPCOPY                                                         DBG=IDP      985          I
          -DBG0002
 DBG=IDP            ZR     X1,ROL2     IF NO COPY WANTED                                   DBG=IDP      986          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      987          I
          -DBG0002
 DBG=IDP   #OS      ELSE                                                                   DBG=IDP      988          I
          -DBG0002
 DBG=IDP            EQ     *+4S15      IF IN INTERACTIVE MODE, KABLOOEY...                 DBG=IDP      989          I
          -DBG0002
 DBG=IDP   #OS      ENDIF                                                                  DBG=IDP      990          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      991          I
          -DBG0002
 DBG=IDP   ROL3     PRBDO  (=C= =),1                                                       DBG=IDP      992          I
          -DBG0002
 DBG=IDP            EQ     ROL2                                                            DBG=IDP      993          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      994          I
          -DBG0002
 DBG=IDP  *         HERE TO OUTPUT LINE FINALLY.                                           DBG=IDP      995          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      996          I
          -DBG0002
 DBG=IDP   ROL4     SA1    IDPFLG                                                          DBG=IDP      997          I
          -DBG0002
 DBG=IDP            ZR     X1,ROL5     IF NOT IN INTERACTIVE MODE                          DBG=IDP      998          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP      999          I
          -DBG0002
 DBG=IDP   #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      DBG=IDP     1000          I
          -DBG0002
 DBG=IDP            SA1    ROLA        (X1) = FWA OF LINE                                  DBG=IDP     1001          I
          -DBG0002
 DBG=IDP            SA2    A1+B1       (X2) = LEN OF LINE                                  DBG=IDP     1002          I
          -DBG0002
 DBG=IDP            ZR     X1,ROL6     IF NO LINE TO OUTPUT                                DBG=IDP     1003          I
          -DBG0002
 DBG=IDP            WRITEC =XF.IDO,X1,X2                                                   DBG=IDP     1004          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     1005          I
          -DBG0002
 DBG=IDP            SA1    IDPCOPY                                                         DBG=IDP     1006          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 170    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
          -DBG0002
 DBG=IDP            ZR     X1,ROL6     IF NO COPY WANTED                                   DBG=IDP     1007          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     1008          I
          -DBG0002
 DBG=IDP   #OS      ELSE                                                                   DBG=IDP     1009          I
          -DBG0002
 DBG=IDP            EQ     *+4S15      IF IN INTERACTIVE MODE, KABLOOEY...                 DBG=IDP     1010          I
          -DBG0002
 DBG=IDP   #OS      ENDIF                                                                  DBG=IDP     1011          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     1012          I
          -DBG0002
 DBG=IDP   ROL5     SA1    ROLA                                                            DBG=IDP     1013          I
          -DBG0002
 DBG=IDP            SA2    A1+B1                                                           DBG=IDP     1014          I
          -DBG0002
 DBG=IDP            ZR     X1,ROL6     IF NO LINE TO OUTPUT                                DBG=IDP     1015          I
          -DBG0002
 DBG=IDP            PRBDO  X1,X2                                                           DBG=IDP     1016          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     1017          I
          -DBG0002
 DBG=IDP   ROL6     SA1    ROLD                                                            DBG=IDP     1018          I
          -DBG0002
 DBG=IDP            SB4    X1                                                              DBG=IDP     1019          I
          -DBG0002
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     1020          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     1021          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     1022          I
          -DBG0002
 DBG=IDP   ROLA     BSSZ   1           SAVED FWA                                           DBG=IDP     1023          I
          -DBG0002
 DBG=IDP   ROLB     BSSZ   1           SAVED LENGTH                                        DBG=IDP     1024          I
          -DBG0002
 DBG=IDP   ROLC     BSSZ   1           SAVED PRECEDING BLANK LINE COUNT                    DBG=IDP     1025          I
          -DBG0002
 DBG=IDP   ROLD     BSSZ   1           SAVED (B4)                                          DBG=IDP     1026          I
          -DBG0002
 DBG=IDP   ROL      SPACE  4,8                                                             DBG0002      498     A     
 DBG=IDP  **        ROL - WRITE OUTPUT LINE.                                               DBG0002      499     A     
 DBG=IDP  *                                                                                DBG0002      500     A     
 DBG=IDP  *                                                                                DBG0002      501     A     
 DBG=IDP  *                SHOULD BE ACCESSED VIA *PRIDP* MACRO.  THIS ROUTINE             DBG0002      502     A     
 DBG=IDP  *         WILL OUTPUT A SINGLE LINE WITH A SPECIFIED NUMBER OF PRECEDING         DBG0002      503     A     
 DBG=IDP  *         BLANK LINES TO EITHER THE INTERACTIVE DEBUG OUTPUT FILE                DBG0002      504     A     
 DBG=IDP  *         *F.IDO* AND/OR TO THE USERS BATCH DEBUG OUTPUT FILE                    DBG0002      505     A     
 DBG=IDP  *         (VIA *PRBDO* MACRO).                                                   DBG0002      506     A     
 DBG=IDP  *                                                                                DBG0002      507     A     
 DBG=IDP  *         ENTRY  (X4) = NR OF PRECEDING BLANK LINES TO OUTPUT (0=NONE)           DBG0002      508     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 171    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                (X6) = FWA OF LINE TO BE OUTPUT                                 DBG0002      509     A     
 DBG=IDP  *                (X7) = LEN OF LINE TO BE OUTPUT (IN WORDS)                      DBG0002      510     A     
 DBG=IDP  *                     = .ZR. IF LEN TO BE COMPUTED BY *WRITEC* (SCOPE 2)         DBG0002      511     A     
 DBG=IDP  *                (IDPFLG) --                                                     DBG0002      512     A     
 DBG=IDP  *                  BIT IDF.IDOP = 1 IF WRITING TO *F.IDO*, ELSE 0                DBG0002      513     A     
 DBG=IDP  *                  BIT IDF.BDOP = 1 IF WRITING TO *F.BDO*, ELSE 0                DBG0002      514     A     
 DBG=IDP  *                                                                                DBG0002      515     A     
 DBG=IDP  *         EXIT   NONE                                                            DBG0002      516     A     
 DBG=IDP  *                                                                                DBG0002      517     A     
 DBG=IDP  *         USES   ALL BUT B4,A0,X0,A5,X5          (INCLUDES ALL CALLS)            DBG0002      518     A     
 DBG=IDP  *                                                                                DBG0002      519     A     
 DBG=IDP  *         CALLS  PRBDO,WRITEC                                                    DBG0002      520     A     
 DBG=IDP                                                                                   DBG0002      521     A     
 DBG=IDP                                                                                   DBG0002      522     A     
 DBG=IDP   ROL      SUBR               ** ENTRY/EXIT **                                    DBG0002      523     A     
 DBG=IDP                                                                                   DBG0002      524     A     
 DBG=IDP  *         INITIALIZATION.                                                        DBG0002      525          I
          -DBG0009
 DBG=IDP  *         INITIALIZATION.  SAVE CRITICAL REGISTERS TO AVOID LETTING              DBG0009       14     A     
 DBG=IDP  *         HOST DESTROY THEM VIA *PRBDO* CALL.                                    DBG0009       15     A     
 DBG=IDP                                                                                   DBG0002      526     A     
 DBG=IDP            SA6    ROLA        SAVE (X6) = FWA OF LINE                             DBG0002      527     A     
 DBG=IDP            SA7    A6+B1       SAVE (X7) = LEN OF LINE                             DBG0002      528     A     
 DBG=IDP            BX6    X4                                                              DBG0002      529     A     
 DBG=IDP            SX7    B4-B0                                                           DBG0002      530     A     
 DBG=IDP            SA6    A7+B1       SAVE (X4) = NR OF PRECEDING BLANK LINES             DBG0002      531     A     
 DBG=IDP            SA7    A6+B1       SAVE (B4)                                           DBG0002      532     A     
 DBG=IDP            SX6    A0-B0                                                           DBG0009       16     A     
 DBG=IDP            SX7    A5-B0                                                           DBG0009       17     A     
 DBG=IDP            SA6    A7+B1       SAVE (A0)                                           DBG0009       18     A     
 DBG=IDP            SA7    A6+B1       SAVE (A5)                                           DBG0009       19     A     
 DBG=IDP            BX6    X0                                                              DBG0009       20     A     
 DBG=IDP            LX7    X5                                                              DBG0009       21     A     
 DBG=IDP            SA6    A7+B1       SAVE (X0)                                           DBG0009       22     A     
 DBG=IDP            SA7    A6+B1       SAVE (X5)                                           DBG0009       23     A     
 DBG=IDP                                                                                   DBG0002      533     A     
 DBG=IDP  *         HERE TO OUTPUT APPROPRIATE NUMBER OF PRECEDING BLANK LINES.            DBG0002      534     A     
 DBG=IDP                                                                                   DBG0002      535     A     
 DBG=IDP   ROL2     SA1    ROL=PRB     (X1) = NR OF PRECEDING BLANK LINES                  DBG0002      536     A     
 DBG=IDP            SA2    IDPFLG                                                          DBG0002      537     A     
 DBG=IDP            SX6    X1-1                                                            DBG0002      538     A     
 DBG=IDP            MI     X6,ROL4     IF NO MORE BLANK LINES                              DBG0002      539     A     
 DBG=IDP            LX2    59-IDF.IDOP                                                     DBG0002      540     A     
 DBG=IDP            SA6    A1                                                              DBG0002      541     A     
 DBG=IDP            PL     X2,ROL3     IF NOT WRITING TO INTERACTIVE DEBUG OUTPUT          DBG0002      542     A     
 DBG=IDP                                                                                   DBG0002      543     A     
 DBG=IDP   #OS2     IFNE   .OS,2       IF NOT SCOPE 2                                      DBG0002      544     A     
 DBG=IDP            WRITEC =XF.IDO,(=C= =),1                                               DBG0002      545     A     
 DBG=IDP                                                                                   DBG0002      546     A     
 DBG=IDP   #OS2     ELSE                                                                   DBG0002      547     A     
 DBG=IDP            EQ     *+4S15      IF TRYING TO WRITE INTERACTIVELY...                 DBG0002      548     A     
 DBG=IDP   #OS2     ENDIF                                                                  DBG0002      549     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 172    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG0002      550     A     
 DBG=IDP   ROL3     SA1    IDPFLG                                                          DBG0002      551     A     
 DBG=IDP            LX1    59-IDF.BDOP                                                     DBG0002      552     A     
 DBG=IDP            PL     X1,ROL2     IF NOT WRITING TO BATCH DEBUG OUTPUT                DBG0002      553     A     
 DBG=IDP            PRBDO  (=C= =),1                                                       DBG0002      554     A     
 DBG=IDP            EQ     ROL2                                                            DBG0002      555     A     
 DBG=IDP                                                                                   DBG0002      556     A     
 DBG=IDP  *         HERE TO OUTPUT LINE FINALLY.                                           DBG0002      557     A     
 DBG=IDP                                                                                   DBG0002      558     A     
 DBG=IDP   ROL4     SA1    IDPFLG                                                          DBG0002      559     A     
 DBG=IDP            LX1    59-IDF.IDOP                                                     DBG0002      560     A     
 DBG=IDP            PL     X1,ROL5     IF NOT WRITING TO INTERACTIVE DEBUG OUTPUT          DBG0002      561     A     
 DBG=IDP                                                                                   DBG0002      562     A     
 DBG=IDP   #OS2     IFNE   .OS,2       IF NOT SCOPE 2                                      DBG0002      563     A     
 DBG=IDP            SA1    ROLA        (X1) = FWA OF LINE                                  DBG0002      564     A     
 DBG=IDP            SA2    A1+B1       (X2) = LEN OF LINE                                  DBG0002      565     A     
 DBG=IDP            ZR     X1,ROL6     IF NO LINE TO OUTPUT                                DBG0002      566     A     
 DBG=IDP            WRITEC =XF.IDO,X1,X2                                                   DBG0002      567     A     
 DBG=IDP                                                                                   DBG0002      568     A     
 DBG=IDP   #OS2     ELSE                                                                   DBG0002      569     A     
 DBG=IDP            EQ     *+4S15      IF TRYING TO WRITE INTERACTIVELY...                 DBG0002      570     A     
 DBG=IDP   #OS2     ENDIF                                                                  DBG0002      571     A     
 DBG=IDP                                                                                   DBG0002      572     A     
 DBG=IDP   ROL5     SA1    IDPFLG                                                          DBG0002      573     A     
 DBG=IDP            SA2    ROLA                                                            DBG0002      574     A     
 DBG=IDP            SA3    A2+B1                                                           DBG0002      575     A     
 DBG=IDP            LX1    59-IDF.BDOP                                                     DBG0002      576     A     
 DBG=IDP            PL     X1,ROL6     IF NOT WRITING TO BATCH DEBUG OUTPUT                DBG0002      577     A     
 DBG=IDP            ZR     X2,ROL6     IF NO LINE TO OUTPUT                                DBG0002      578     A     
 DBG=IDP            PRBDO  X2,X3                                                           DBG0002      579     A     
 DBG=IDP                                                                                   DBG0002      580     A     
 DBG=IDP  *         FINAL PROCESSING -- RESTORE SAVED REGISTERS.                           DBG0002      581     A     
 DBG=IDP                                                                                   DBG0002      582     A     
 DBG=IDP   ROL6     SA1    ROL=B4                                                          DBG0002      583     A     
 DBG=IDP            SB4    X1-0                                                            DBG0002      584          I
          -DBG0009
 DBG=IDP            SA2    A1+B1                                                           DBG0009       24     A     
 DBG=IDP            SA3    A2+B1                                                           DBG0009       25     A     
 DBG=IDP            SA4    A3+B1                                                           DBG0009       26     A     
 DBG=IDP            SB4    X1          RESTORE (B4)                                        DBG0009       27     A     
 DBG=IDP            SA0    X2          RESTORE (A0)                                        DBG0009       28     A     
 DBG=IDP            SA5    X3          RESTORE (A5)                                        DBG0009       29     A     
 DBG=IDP            SA1    A4+B1                                                           DBG0009       30     A     
 DBG=IDP            NO                                                                     DBG0009       31     A     
 DBG=IDP            BX0    X4          RESTORE (X0)                                        DBG0009       32     A     
 DBG=IDP            LX5    X1          RESTORE (X5)                                        DBG0009       33     A     
 DBG=IDP            EQ     EXIT.                                                           DBG0002      585     A     
 DBG=IDP                                                                                   DBG0002      586     A     
 DBG=IDP                                                                                   DBG0002      587     A     
 DBG=IDP   ROLA     BSSZ   4                                                               DBG0002      588          I
          -DBG0009
 DBG=IDP   ROLA     BSSZ   8                                                               DBG0009       34     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 173    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG0002      589     A     
 DBG=IDP            LOC    ROLA                                                            DBG0002      590     A     
 DBG=IDP   ROL=FWA  =      *           SAVED FWA                                           DBG0002      591     A     
 DBG=IDP   ROL=LEN  =      *+1         SAVED LENGTH                                        DBG0002      592     A     
 DBG=IDP   ROL=PRB  =      *+2         SAVED PRECEDING BLANK COUNT                         DBG0002      593     A     
 DBG=IDP   ROL=B4   =      *+3         SAVED (B4)                                          DBG0002      594     A     
 DBG=IDP   ROL=A0   =      *+4         SAVED (A0)                                          DBG0009       35     A     
 DBG=IDP   ROL=A5   =      *+5         SAVED (A5)                                          DBG0009       36     A     
 DBG=IDP   ROL=X0   =      *+6         SAVED (X0)                                          DBG0009       37     A     
 DBG=IDP   ROL=X5   =      *+7         SAVED (X5)                                          DBG0009       38     A     
 DBG=IDP            LOC    *O                                                              DBG0002      595     A     
 DBG=IDP   SFN      SPACE  4,8                                                             DBG=IDP     1027          I
          -DBG0004
 DBG=IDP  **        SFN - SPACE FILL NAME.                                                 DBG=IDP     1028          I
          -DBG0004
 DBG=IDP  *                                                                                DBG=IDP     1029          I
          -DBG0004
 DBG=IDP  *                                                                                DBG=IDP     1030          I
          -DBG0004
 DBG=IDP  *                THIS ROUTINE WILL CHANGE 0 THRU 10 TRAILING (00B) BYTES         DBG=IDP     1031          I
          -DBG0004
 DBG=IDP  *         IN A WORD INTO TRAILING BLANKS (55B).                                  DBG=IDP     1032          I
          -DBG0004
 DBG=IDP  *                                                                                DBG=IDP     1033          I
          -DBG0004
 DBG=IDP  *         ENTRY  (X1) = WORD TO BE SPACE FILLED (0L FORMAT)                      DBG=IDP     1034          I
          -DBG0004
 DBG=IDP  *                                                                                DBG=IDP     1035          I
          -DBG0004
 DBG=IDP  *         EXIT   (X6) = (X1) IN -H- FORMAT                                       DBG=IDP     1036          I
          -DBG0004
 DBG=IDP  *                                                                                DBG=IDP     1037          I
          -DBG0004
 DBG=IDP  *         USES   X - 2,3,6,7                                                     DBG=IDP     1038          I
          -DBG0004
 DBG=IDP  *                A - 2                                                           DBG=IDP     1039          I
          -DBG0004
 DBG=IDP  *                B - 2                                                           DBG=IDP     1040          I
          -DBG0004
 DBG=IDP  *                                                                                DBG=IDP     1041          I
          -DBG0004
 DBG=IDP  *         CALLS  NONE                                                            DBG=IDP     1042          I
          -DBG0004
 DBG=IDP                                                                                   DBG=IDP     1043          I
          -DBG0004
 DBG=IDP                                                                                   DBG=IDP     1044          I
          -DBG0004
 DBG=IDP   #SFN     IF     -DEF,SFN                                                        DBG=IDP     1045          I
          -DBG0004
 DBG=IDP                                                                                   DBG=IDP     1046          I
          -DBG0004
 DBG=IDP   SFN      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     1047          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 174    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
          -DBG0004
 DBG=IDP            SX7    B1                                                              DBG=IDP     1048          I
          -DBG0004
 DBG=IDP            SA2    =40404040404040404040B                                          DBG=IDP     1049          I
          -DBG0004
 DBG=IDP            IX7    X1-X7       BORROW RIPPLES LEFT TO 1ST NON-ZERO BIT             DBG=IDP     1050          I
          -DBG0004
 DBG=IDP            BX3    -X1*X7      (X3) = ALL TRAILING 0 BITS IN (X1) = 1 BITS         DBG=IDP     1051          I
          -DBG0004
 DBG=IDP            SB2    10*CHAR-1*CHAR+1                                                DBG=IDP     1052          I
          -DBG0004
 DBG=IDP            BX7    X2*X3       (X7) = 40B WHERE TRAILING 00B WERE                  DBG=IDP     1053          I
          -DBG0004
 DBG=IDP            SA2    =10H                                                            DBG=IDP     1054          I
          -DBG0004
 DBG=IDP            LX3    X7,B2       (X3) = 01B WHERE TRAILING 00B WERE                  DBG=IDP     1055          I
          -DBG0004
 DBG=IDP            IX6    X7-X3       (X6) = 37B WHERE TRAILING 00B WERE                  DBG=IDP     1056          I
          -DBG0004
 DBG=IDP            BX7    X7+X6       (X7) = 77B WHERE TRAILING 00B WERE                  DBG=IDP     1057          I
          -DBG0004
 DBG=IDP            NO                                                                     DBG=IDP     1058          I
          -DBG0004
 DBG=IDP            BX2    X7*X2       (X2) = 55B WHERE TRAILING 00B WERE                  DBG=IDP     1059          I
          -DBG0004
 DBG=IDP            IX6    X1+X2       TRAILING 00B BECOMES TRAILING 55B                   DBG=IDP     1060          I
          -DBG0004
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     1061          I
          -DBG0004
 DBG=IDP   #SFN     ENDIF                                                                  DBG=IDP     1062          I
          -DBG0004
 DBG=IDP   SNP      SPACE  4,8                                                             DBG=IDP     1063     A     
 DBG=IDP  **        SNP - SNAPSHOT OF CORE AND REGISTERS.                                  DBG=IDP     1064     A     
 DBG=IDP  *                                                                                DBG=IDP     1065     A     
 DBG=IDP  *                                                                                DBG=IDP     1066     A     
 DBG=IDP  *                CALLED BY *SNAP* MACRO.                                         DBG=IDP     1067     A     
 DBG=IDP  *                                                                                DBG=IDP     1068     A     
 DBG=IDP  *         LOWER HALF OF *RJ SNP=* WORD HAS FWA OF PARAMETER LIST--               DBG=IDP     1069     A     
 DBG=IDP  *                                                                                DBG=IDP     1070     A     
 DBG=IDP  * +       RJ     SNP=                                                            DBG=IDP     1071     A     
 DBG=IDP  * -       VFD    30/FWA OF PARAMETER LIST                                        DBG=IDP     1072     A     
 DBG=IDP  *                                                                                DBG=IDP     1073     A     
 DBG=IDP  *         PARAMETER LIST EXISTS IN LOCAL BLOCK *USE DEBUG*, AS SET UP BY         DBG=IDP     1074     A     
 DBG=IDP  *         BY *SNAP* MACRO. (SEE *DBG=MAC*) --                                    DBG=IDP     1075     A     
 DBG=IDP  *                                                                                DBG=IDP     1076     A     
 DBG=IDP  *         VFD    60/LOWER LIMIT (LL)                                             DBG=IDP     1077     A     
 DBG=IDP  *         VFD    60/UPPER LIMIT (UL)                                             DBG=IDP     1078     A     
 DBG=IDP  *         VFD    60/INCREMENT (INC)                                              DBG=IDP     1079     A     
 DBG=IDP  *         VFD    60/10HNAME  (OR .ZR. IF NO NAME)                                DBG=IDP     1080     A     
 DBG=IDP  *         VFD    60/0        (USED BY *FRK* TO KEEP SNAP COUNT)                  DBG=IDP     1081     A     
 DBG=IDP  *         VFD    18/0,21/LVL OF INDIRECT ADDRESSING,21/FWA                       DBG=IDP     1082     A     
 DBG=IDP  *         VFD    18/0,21/LVL OF INDIRECT ADDRESSING,21/LWA                       DBG=IDP     1083     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 175    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *         VFD    18/0,21/LVL OF INDIRECT ADDRESSING,21/LEN                       DBG=IDP     1084     A     
 DBG=IDP  *         VFD    60/REGISTER DUMP FLAG                                           DBG=IDP     1085     A     
 DBG=IDP  *                 .                                                              DBG=IDP     1086     A     
 DBG=IDP  *                 .                                                              DBG=IDP     1087     A     
 DBG=IDP  *         VFD    60/REGISTER DUMP FLAG                                           DBG=IDP     1088     A     
 DBG=IDP  *                .ZR. = NO REGISTER DUMP  (OR END OF REGISTER LIST)              DBG=IDP     1089     A     
 DBG=IDP  *                .MI. = DUMP ALL REGISTERS                                       DBG=IDP     1090     A     
 DBG=IDP  *                .GT.0 = ADDR OF REGISTER SAVE WORD FOR REGISTER TO DMP          DBG=IDP     1091     A     
 DBG=IDP  *                                                                                DBG=IDP     1092     A     
 DBG=IDP  *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)              DBG=IDP     1093     A     
 DBG=IDP  *                                                                                DBG=IDP     1094     A     
 DBG=IDP  *         CALLS  DAR,DCM,DSR,FRK,HDR,RSR=,SVR=,USO=(IF DEF)                      DBG=IDP     1095          I
          -DBG0002
 DBG=IDP  *         CALLS  DAR,DCM,DSR,FRK,HDR,RSR=,SOB,SVR=,USO=(IF DEF)                  DBG0002      596     A     
 DBG=IDP                                                                                   DBG=IDP     1096     A     
 DBG=IDP                                                                                   DBG=IDP     1097     A     
 DBG=IDP   SNP=     SUBR               ** ENTRY/EXIT **                                    DBG=IDP     1098     A     
 DBG=IDP            RJ     SVR=        SAVE ALL REGISTERS                                  DBG=IDP     1099     A     
 DBG=IDP            SX1    2           SET TO *EXECUTIVE IS /SNP=/*                        DBG0002      597     A     
 DBG=IDP            RJ     SOB         SET OUTPUT BIT FLAGS                                DBG0002      598     A     
 DBG=IDP                                                                                   DBG=IDP     1100     A     
 DBG=IDP   #USO     IF     DEF,USO=                                                        DBG=IDP     1101     A     
 DBG=IDP            RJ     =XUSO=      USER SNP= OWNCODE                                   DBG=IDP     1102     A     
 DBG=IDP            PL     X1,SNP4     IF NO SNAPSHOT THIS TIME                            DBG=IDP     1103     A     
 DBG=IDP   #USO     ENDIF                                                                  DBG=IDP     1104     A     
 DBG=IDP                                                                                   DBG=IDP     1105     A     
 DBG=IDP            SA4    SNP=        (X4) = 30/EQ CALLING ADDRESS+1, 30/0                DBG=IDP     1106     A     
 DBG=IDP            LX4    30                                                              DBG=IDP     1107     A     
 DBG=IDP            SA5    X4-1        (A5,X5) = ADDR + CNTS OF CALLING *RJ*               DBG=IDP     1108     A     
 DBG=IDP            SX6    X5          (X6) = FWA OF PARAMETER LIST                        DBG=IDP     1109     A     
 DBG=IDP            SA6    FWAPARM                                                         DBG=IDP     1110     A     
 DBG=IDP            RJ     FRK         CHECK FREQUENCY PARAMETERS                          DBG=IDP     1111     A     
 DBG=IDP            ZR     X5,SNP4     IF NO SNAP THIS TIME                                DBG=IDP     1112     A     
 DBG=IDP            RJ     HDR         OUTPUT SNAP HEADER                                  DBG=IDP     1113     A     
 DBG=IDP            SA1    X5+SN=SRL   (A1,X1) = ADDR + CNTS OF 1ST WORD OF                DBG=IDP     1114     A     
 DBG=IDP  *                              REGISTER LIST                                     DBG=IDP     1115     A     
 DBG=IDP            PL     X1,SNP2     IF NOT DUMPING ALL REGISTERS                        DBG=IDP     1116     A     
 DBG=IDP            RJ     DAR         DUMP ALL REGISTERS                                  DBG=IDP     1117     A     
 DBG=IDP            EQ     SNP3                                                            DBG=IDP     1118     A     
 DBG=IDP                                                                                   DBG=IDP     1119     A     
 DBG=IDP   SNP2     RJ     DSR         DUMP SELECTED REGISTERS                             DBG=IDP     1120     A     
 DBG=IDP                                                                                   DBG=IDP     1121     A     
 DBG=IDP   SNP3     SA5    FWAPARM                                                         DBG=IDP     1122     A     
 DBG=IDP            SA2    X5+SN=FWA   (X2) = 10/0,21/LVL OF IND ADDR,21/FWA               DBG=IDP     1123     A     
 DBG=IDP            SA3    A2+B1       (X3) = 18/0,21/LVL OF IND ADDR,21/LWA               DBG=IDP     1124     A     
 DBG=IDP            SA4    A3+B1       (X4) = 18/0,21/LVL OF IND ADDR,21/LEN               DBG=IDP     1125     A     
 DBG=IDP            RJ     DCM         DUMP CENTRAL MEMORY                                 DBG=IDP     1126     A     
 DBG=IDP                                                                                   DBG=IDP     1127     A     
 DBG=IDP   SNP4     RJ     =XRSR=      RESTORE ALL REGISTERS                               DBG=IDP     1128     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     1129     A     
 DBG=IDP   SOB      SPACE  4,8                                                             DBG0002      599     A     
 DBG=IDP  **        SOB - SET OUTPUT BIT FLAGS.                                            DBG0002      600     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 176    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                                                                                DBG0002      601     A     
 DBG=IDP  *                                                                                DBG0002      602     A     
 DBG=IDP  *                THIS ROUTINE SETS BITS IN THE MASTER CONTROL FLAG,              DBG0002      603     A     
 DBG=IDP  *         *IDPFLG*, WHICH DETERMINES WHERE OUTPUT IS TO BE WRITTEN BY A          DBG0002      604     A     
 DBG=IDP  *         BATCH (I.E. NON-INTERACTIVE) EXECUTIVE --                              DBG0002      605     A     
 DBG=IDP  *                                                                                DBG0002      606     A     
 DBG=IDP  *           1. IF INTERACTIVE MODE HAS EVER BEEN ENTERED (BIT *FTO* ON),         DBG0002      607     A     
 DBG=IDP  *                THEN NO FLAGS ARE SET  (I.E. ALL FLAGS ARE AS SET BY            DBG0002      608     A     
 DBG=IDP  *                INTERACTIVE USER VIA *OUTPUT* COMMAND).                         DBG0002      609     A     
 DBG=IDP  *           2. IF INTERACTIVE MODE HAS NOT YET BEEN ENTERED                      DBG0002      610     A     
 DBG=IDP  *                (BIT *FTO* OFF), THEN SET --                                    DBG0002      611     A     
 DBG=IDP  *                  BDO = WRITING TO BATCH DEBUG OUTPUT FILE, *F.BDO*             DBG0002      612     A     
 DBG=IDP  *                  SNL = L.BSL                                                   DBG0002      613     A     
 DBG=IDP  *                                                                                DBG0002      614     A     
 DBG=IDP  *         ENTRY  (X1) = BITS 0 THRU *IDF.XECL-1* CONTAIN THE VALUE TO            DBG0002      615     A     
 DBG=IDP  *                         BE PLACED IN *XEC* FIELD,                              DBG0002      616     A     
 DBG=IDP  *                         (BITS 59 THRU *IDF.XECL* ARE IGNORED).                 DBG0002      617     A     
 DBG=IDP  *                                                                                DBG0002      618     A     
 DBG=IDP  *         EXIT   (IDPFLG) UPDATED                                                DBG0002      619     A     
 DBG=IDP  *                                                                                DBG0002      620     A     
 DBG=IDP  *         USES   X - 1,2,3,4,6                                                   DBG0002      621     A     
 DBG=IDP  *                A - 2,6                                                         DBG0002      622     A     
 DBG=IDP  *                B - NONE                                                        DBG0002      623     A     
 DBG=IDP  *                                                                                DBG0002      624     A     
 DBG=IDP  *         CALLS  NONE                                                            DBG0002      625     A     
 DBG=IDP                                                                                   DBG0002      626     A     
 DBG=IDP                                                                                   DBG0002      627     A     
 DBG=IDP   SOB      SUBR               ** ENTRY/EXIT **                                    DBG0002      628     A     
 DBG=IDP            SA2    IDPFLG                                                          DBG0002      629     A     
 DBG=IDP            MX3    -IDF.XECL                                                       DBG0002      630     A     
 DBG=IDP            SX4    L.BSL                                                           DBG0002      631     A     
 DBG=IDP            BX1    -X3*X1                                                          DBG0002      632     A     
 DBG=IDP            LX2    0-IDF.XECP                                                      DBG0002      633     A     
 DBG=IDP            BX2    X3*X2       CLEAR OLD *XEC*                                     DBG0002      634     A     
 DBG=IDP            IX6    X2+X1       MERGE NEW *XEC*                                     DBG0002      635     A     
 DBG=IDP            LX2    59-IDF.FTOP+IDF.XECP-0                                          DBG0002      636     A     
 DBG=IDP            LX6    IDF.XECP-0                                                      DBG0002      637     A     
 DBG=IDP            MX3    1                                                               DBG0002      638     A     
 DBG=IDP            SA6    A2                                                              DBG0002      639     A     
 DBG=IDP            MI     X2,EXIT.    IF *IDP* HAS EVER BEEN CALLED                       DBG0002      640     A     
 DBG=IDP            LX3    IDF.BDOP-59                                                     DBG0002      641     A     
 DBG=IDP            MX2    -IDF.SNLL                                                       DBG0002      642     A     
 DBG=IDP            BX6    X6+X3       MERGE *BDO*                                         DBG0002      643     A     
 DBG=IDP            LX2    IDF.SNLP-0                                                      DBG0002      644     A     
 DBG=IDP            LX4    IDF.SNLP-0                                                      DBG0002      645     A     
 DBG=IDP            BX6    X2*X6       CLEAR OLD *SNL*                                     DBG0002      646     A     
 DBG=IDP            IX6    X6+X4       MERGE NEW *SNL*                                     DBG0002      647     A     
 DBG=IDP            SA6    A2                                                              DBG0002      648     A     
 DBG=IDP            EQ     EXIT.                                                           DBG0002      649     A     
 DBG=IDP   WOD      SPACE  4,8                                                             DBG=IDP     1130     A     
 DBG=IDP  **        WOD - CONVERT A WORD TO OCTAL DISPLAY CODE.                            DBG=IDP     1131     A     
 DBG=IDP  *                                                                                DBG=IDP     1132     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 177    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                                                                                DBG=IDP     1133     A     
 DBG=IDP  *         ENTRY  (X1)   =  BINARY WORD TO CONVERT                                DBG=IDP     1134     A     
 DBG=IDP  *                                                                                DBG=IDP     1135     A     
 DBG=IDP  *         EXIT   (X6)   =  UPPER 10 OCTAL DIGITS OF CONVERTED WORD               DBG=IDP     1136     A     
 DBG=IDP  *                (X7)   =  LOWER 10 OCTAL DIGITS OF CONVERTED WORD               DBG=IDP     1137     A     
 DBG=IDP  *                                                                                DBG=IDP     1138     A     
 DBG=IDP  *         USES   X - ALL                                                         DBG=IDP     1139     A     
 DBG=IDP  *                A - 2,3,4,5                                                     DBG=IDP     1140     A     
 DBG=IDP  *                B - NONE                                                        DBG=IDP     1141     A     
 DBG=IDP  *                                                                                DBG=IDP     1142     A     
 DBG=IDP  *         CALLS  NONE                                                            DBG=IDP     1143     A     
 DBG=IDP                                                                                   DBG=IDP     1144     A     
 DBG=IDP                                                                                   DBG=IDP     1145     A     
 DBG=IDP   #WOD     IF     -DEF,WOD                                                        DBG=IDP     1146     A     
 DBG=IDP                                                                                   DBG=IDP     1147     A     
 DBG=IDP   WOD      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     1148     A     
 DBG=IDP                                                                                   DBG=IDP     1149     A     
 DBG=IDP  *         ON ENTRY   (X1)  = ABCDE FGHIJ KLMNO PQRST                             DBG=IDP     1150     A     
 DBG=IDP                                                                                   DBG=IDP     1151     A     
 DBG=IDP            SA2    WODA        7.... 7.... 7.... 7....                             DBG=IDP     1152     A     
 DBG=IDP            BX7    X2*X1       A.... F.... K.... P....                             DBG=IDP     1153     A     
 DBG=IDP            LX1    3           BCDEF GHIJK LMNOP QRSTA                             DBG=IDP     1154     A     
 DBG=IDP            BX6    X2*X1       B.... G.... L.... Q....                             DBG=IDP     1155     A     
 DBG=IDP            LX1    3           CDEFG HIJKL MNOPQ RSTAB                             DBG=IDP     1156     A     
 DBG=IDP            LX7    9*3         .K... .P... .A... .F...                             DBG=IDP     1157     A     
 DBG=IDP            BX0    X2*X1       C.... H.... M.... R....                             DBG=IDP     1158     A     
 DBG=IDP            LX6    7*3         ...L. ...Q. ...B. ...G.                             DBG=IDP     1159     A     
 DBG=IDP            LX1    3           DEFGH IJKLM NOPQR STABC                             DBG=IDP     1160     A     
 DBG=IDP            IX7    X6+X7       .K.L. .P.Q. .A.B. .F.G.                             DBG=IDP     1161     A     
 DBG=IDP            BX5    X2*X1       D.... I.... N.... S....                             DBG=IDP     1162     A     
 DBG=IDP            LX1    3           EFGHI JKLMN OPQRS TABCD                             DBG=IDP     1163     A     
 DBG=IDP            LX0    5*3         H.... M.... R.... C....                             DBG=IDP     1164     A     
 DBG=IDP            BX6    X2*X1       E.... J.... O.... T....                             DBG=IDP     1165     A     
 DBG=IDP            IX7    X7+X0       HK.L. MP.Q. RA.B. CF.G.                             DBG=IDP     1166     A     
 DBG=IDP            LX5    3*3         ..I.. ..N.. ..S.. ..D..                             DBG=IDP     1167     A     
 DBG=IDP            LX6    3           ....J ....O ....T ....E                             DBG=IDP     1168     A     
 DBG=IDP            IX7    X7+X6       HK.LJ MP.QO RA.BT CF.GE                             DBG=IDP     1169     A     
 DBG=IDP            SA4    A2+B1       .7.7. 7.7.7 ..... .....                             DBG=IDP     1170     A     
 DBG=IDP            SA3    A4+B1       ..... .7.7. 7.7.7 .....                             DBG=IDP     1171     A     
 DBG=IDP            BX7    X7+X5       HKILJ MPNQO RASBT CFDGE                             DBG=IDP     1172     A     
 DBG=IDP            BX2    X7*X4       .K.L. M.N.O ..... .....                             DBG=IDP     1173     A     
 DBG=IDP            SA5    A3+B1       00000 00000 00000 00000                             DBG=IDP     1174     A     
 DBG=IDP            BX1    X7*X3       ..... .P.Q. R.S.T .....                             DBG=IDP     1175     A     
 DBG=IDP            LX7    10*3        RASBT CFDGE HKILJ MPNQO                             DBG=IDP     1176     A     
 DBG=IDP            IX2    X5+X2       .K.L. M.N.O 00000 00000                             DBG=IDP     1177     A     
 DBG=IDP            BX0    X7*X4       .A.B. C.D.E ..... .....                             DBG=IDP     1178     A     
 DBG=IDP            IX0    X0+X5       .A.B. C.D.E 00000 00000                             DBG=IDP     1179     A     
 DBG=IDP            LX1    15*3        ..... ..... .P.Q. R.S.T                             DBG=IDP     1180     A     
 DBG=IDP            BX3    X7*X3       ..... .F.G. H.I.J .....                             DBG=IDP     1181     A     
 DBG=IDP            IX7    X1+X2       .K.L. M.N.O .P.Q. R.S.T                             DBG=IDP     1182     A     
 DBG=IDP            LX3    15*3        ..... ..... .F.G. H.I.J                             DBG=IDP     1183     A     
 DBG=IDP            IX6    X0+X3       .A.B. C.D.E .F.G. H.I.J                             DBG=IDP     1184     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 178    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     1185     A     
 DBG=IDP                                                                                   DBG=IDP     1186     A     
 DBG=IDP   WODA     CON    70000700007000070000B                                           DBG=IDP     1187     A     
 DBG=IDP            CON    07070707070000000000B                                           DBG=IDP     1188     A     
 DBG=IDP            CON    00000070707070700000B                                           DBG=IDP     1189     A     
 DBG=IDP            CON    10H0000000000                                                   DBG=IDP     1190     A     
 DBG=IDP   #WOD     ENDIF                                                                  DBG=IDP     1191     A     
 DBG=IDP   IDP      TITLE  IDP - INTERACTIVE DEBUGGING PACKAGE.                            DBG=IDP     1192     A     
 DBG=IDP  **        IDP - INTERACTIVE DEBUGGING PACKAGE.                                   DBG=IDP     1193     A     
 DBG=IDP  *                                                                                DBG=IDP     1194     A     
 DBG=IDP  *                                                                                DBG=IDP     1195     A     
 DBG=IDP  *                THIS IS THE INTERACTIVE DEBUGGING PACKAGE WHICH ALLOWS          DBG=IDP     1196     A     
 DBG=IDP  *         ITS USER THE JOYS AND SORROWS OF INTERACTIVE DEBUGGING.                DBG=IDP     1197     A     
 DBG=IDP  *                                                                                DBG=IDP     1198     A     
 DBG=IDP  *                INITIAL ENTRY IS VIA *BREAK* MACRO (DBG=MAC), WHICH             DBG=IDP     1199     A     
 DBG=IDP  *         ASSEMBLES AN *RJ IDP=* AT THE DESIRED LOCATION TO BE BREAK-            DBG=IDP     1200     A     
 DBG=IDP  *         POINTED. SUBSEQUENT ENTRIES CAN BE VIA MORE ASSEMBLED *BREAK*S         DBG=IDP     1201     A     
 DBG=IDP  *         OR BY PLACING AN *IDP* GENERATED BREAKPOINT, VIA *BREAK*               DBG=IDP     1202     A     
 DBG=IDP  *         COMMAND, AT THE DESIRED LOCATION TO BE BREAKPOINTED.                   DBG=IDP     1203     A     
 DBG=IDP  *                                                                                DBG=IDP     1204     A     
 DBG=IDP  *         IDP COMMANDS ARE--                                                     DBG=IDP     1205     A     
 DBG=IDP  *                                                                                DBG=IDP     1206     A     
 DBG=IDP  *         BREAK                                                                  DBG=IDP     1207     A     
 DBG=IDP  *         BREAK  ADDR,LL,UL,INC                                                  DBG=IDP     1208     A     
 DBG=IDP  *         BRPL   ADDR,A1,LL,UL,INC                                               DBG=IDP     1209     A     
 DBG=IDP  *         BRMI   ADDR,A1,LL,UL,INC                                               DBG=IDP     1210     A     
 DBG=IDP  *         BRZR   ADDR,A1,LL,UL,INC                                               DBG=IDP     1211     A     
 DBG=IDP  *         BRNZ   ADDR,A1,LL,UL,INC                                               DBG=IDP     1212     A     
 DBG=IDP  *         BREQ   ADDR,A1,A2,LL,UL,INC                                            DBG=IDP     1213     A     
 DBG=IDP  *         BRNE   ADDR,A1,A2,LL,UL,INC                                            DBG=IDP     1214     A     
 DBG=IDP  *         BRLT   ADDR,A1,A2,LL,UL,INC                                            DBG=IDP     1215     A     
 DBG=IDP  *         BRGE   ADDR,A1,A2,LL,UL,INC                                            DBG=IDP     1216     A     
 DBG=IDP  *         BRLE   ADDR,A1,A2,LL,UL,INC                                            DBG=IDP     1217     A     
 DBG=IDP  *         BRGT   ADDR,A1,A2,LL,UL,INC                                            DBG=IDP     1218     A     
 DBG=IDP  *         CODE   FWA,LWA,LEN                                                     DBG=IDP     1219     A     
 DBG=IDP  *         CONNECT FILE                                                           DBG=IDP     1220     A     
 DBG=IDP  *         DISCONT FILE                                                           DBG=IDP     1221     A     
 DBG=IDP  *         DPC FWA,LWA,LEN                                                        DBG0002      650     A     
 DBG=IDP  *         END                                                                    DBG=IDP     1222     A     
 DBG=IDP  *         FREEZE                                                                 DBG0006        5     A     
 DBG=IDP  *         JUMP   ADDR                                                            DBG=IDP     1223     A     
 DBG=IDP  *         OUTPUT I,B,IE,BE                                                       DBG0002      651     A     
 DBG=IDP  *         REGS                                                                   DBG=IDP     1224     A     
 DBG=IDP  *         REGS   R1,R2,...,RN                                                    DBG=IDP     1225     A     
 DBG=IDP  *         SET                                                                    DBG=IDP     1226     A     
 DBG=IDP  *         SET    NAME,VALUE                                                      DBG=IDP     1227     A     
 DBG=IDP  *         SNAP   FWA,LWA,LEN                                                     DBG=IDP     1228     A     
 DBG=IDP  *         STORE  ADDR,C1,C2,C3,C4                                                DBG=IDP     1229     A     
 DBG=IDP  *         STEP   L,RJ                                                            DBG=IDP     1230     A     
 DBG=IDP  *         STPL   ADDR,L,RJ                                                       DBG=IDP     1231     A     
 DBG=IDP  *         STMI   ADDR,L,RJ                                                       DBG=IDP     1232     A     
 DBG=IDP  *         STZR   ADDR,L,RJ                                                       DBG=IDP     1233     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 179    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *         STNZ   ADDR,L,RJ                                                       DBG=IDP     1234     A     
 DBG=IDP  *         STEQ   ADDR1,ADDR2,L,RJ                                                DBG=IDP     1235     A     
 DBG=IDP  *         STNE   ADDR1,ADDR2,L,RJ                                                DBG=IDP     1236     A     
 DBG=IDP  *         STLT   ADDR1,ADDR2,L,RJ                                                DBG=IDP     1237     A     
 DBG=IDP  *         STGE   ADDR1,ADDR2,L,RJ                                                DBG=IDP     1238     A     
 DBG=IDP  *         STLE   ADDR1,ADDR2,L,RJ                                                DBG=IDP     1239     A     
 DBG=IDP  *         STGT   ADDR1,ADDR2,L,RJ                                                DBG=IDP     1240     A     
 DBG=IDP  *         STRANGE ADDR1,ADDR2,L,RJ                                               DBG=IDP     1241     A     
 DBG=IDP  *         STNR   NR,L,RJ                                                         DBG=IDP     1242     A     
 DBG=IDP  *         STAR   ADDR1,ADDR2,L,RJ                                                DBG=IDP     1243     A     
 DBG=IDP  *         UNBREAK ADDR                                                           DBG=IDP     1244          I
          -DBG0002
 DBG=IDP  *         UNBREAK ADDR1,...,ADDRN                                                DBG0002      652     A     
 DBG=IDP  *         UNSET  NAME1,...,NAMEN                                                 DBG=IDP     1245     A     
 DBG=IDP  *         WHERE  ADDR1,...,ADDRN                                                 DBG=IDP     1246     A     
 DBG=IDP  *         XEQ                                                                    DBG=IDP     1247     A     
 DBG=IDP  *                                                                                DBG=IDP     1248     A     
 DBG=IDP  *         MAY THE GODS BE WITH YOU...                                            DBG=IDP     1249     A     
 DBG=IDP  *                                                                                DBG=IDP     1250     A     
 DBG=IDP  *         ENTRY  NONE                                                            DBG=IDP     1251     A     
 DBG=IDP  *                                                                                DBG=IDP     1252     A     
 DBG=IDP  *         EXIT   NONE                                                            DBG=IDP     1253     A     
 DBG=IDP  *                                                                                DBG=IDP     1254     A     
 DBG=IDP  *         USES   NONE        (OR IT WOULDNT BE ANY GOOD)                         DBG=IDP     1255     A     
 DBG=IDP  *                                                                                DBG=IDP     1256     A     
 DBG=IDP  *         CALLS  (EXTERNAL TO DBG=IDP)--                                         DBG=IDP     1257     A     
 DBG=IDP  *                CDD,COD,DXB,OPEN,READC,RSR=,SVR=,WRITEC,WRITER                  DBG=IDP     1258          I
          -DBG0004
 DBG=IDP  *                CDD,COD,DXB,OPEN,READC,RSR=,SFN,SVR=,WRITEC,WRITER              DBG0004        4     A     
 DBG=IDP                                                                                   DBG=IDP     1259     A     
 DBG=IDP                                                                                   DBG=IDP     1260     A     
 DBG=IDP   #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      DBG=IDP     1261     A     
 DBG=IDP                                                                                   DBG=IDP     1262     A     
 DBG=IDP   IDP=     SUBR               ** ENTRY/EXIT **                                    DBG=IDP     1263          I
          -DBG0001
 DBG=IDP   IDP=     SUBR               ** ENTRY **                                         DBG0001       13     A     
 DBG=IDP            RJ     =XSVR=      SAVE ALL REGISTTERS                                 DBG=IDP     1264     A     
 DBG=IDP            SA1    IDPFTO                                                          DBG=IDP     1265          I
          -DBG0002
 DBG=IDP            SA2    IDP=                                                            DBG=IDP     1266          I
          -DBG0002
 DBG=IDP            SX6    60                                                              DBG=IDP     1267          I
          -DBG0002
 DBG=IDP            LX2    30                                                              DBG=IDP     1268          I
          -DBG0002
 DBG=IDP            SX7    X2                                                              DBG=IDP     1269          I
          -DBG0002
 DBG=IDP                                                                                   DBG0002      653     A     
 DBG=IDP  *         INITIALIZATION.                                                        DBG0002      654     A     
 DBG=IDP                                                                                   DBG0002      655     A     
 DBG=IDP            SA1    IDP=                                                            DBG0002      656     A     
 DBG=IDP            SX6    60                                                              DBG0002      657     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 180    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            LX1    30                                                              DBG0002      658     A     
 DBG=IDP            SX7    X1                                                              DBG0002      659     A     
 DBG=IDP            SA6    IDPPOS      SET UP POS COUNTER                                  DBG=IDP     1270     A     
 DBG=IDP            SA7    IDPPREG     SET UP PSEUDO P REGISTER                            DBG=IDP     1271     A     
 DBG=IDP            SX6    X1+B1                                                           DBG=IDP     1272          I
          -DBG0002
 DBG=IDP            SA6    A1                                                              DBG=IDP     1273          I
          -DBG0002
 DBG=IDP            NZ     X1,IDP2     IF NOT FIRST TIME                                   DBG=IDP     1274          I
          -DBG0002
 DBG=IDP            SB6    IDPXFT                                                          DBG0002      660     A     
 DBG=IDP            RJ     CLZ         CLEAR *IDP* TABLE -- TRANSFER ADDRESSES             DBG0002      661     A     
 DBG=IDP                                                                                   DBG0002      662     A     
 DBG=IDP  *         SET UP *IDPFLG* - MASTER CONTROL FLAG.                                 DBG0002      663     A     
 DBG=IDP  *                                                                                DBG0002      664     A     
 DBG=IDP  *           SET  XEC = *IDP=*                                                    DBG0002      665     A     
 DBG=IDP  *           IF 1ST TIME *IDP* HAS BEEN ENTERED (BIT *FTO* OFF), SET --           DBG0002      666     A     
 DBG=IDP  *                FTO = 1ST TIME ONLY CODE HAS BEEN EXECUTED                      DBG0002      667     A     
 DBG=IDP  *                IDO = WRITING INTERACTIVELY (F.IDO)                             DBG0002      668     A     
 DBG=IDP  *                SNL = L.ISL                                                     DBG0002      669     A     
 DBG=IDP                                                                                   DBG0002      670     A     
 DBG=IDP            SA1    IDPFLG                                                          DBG0002      671     A     
 DBG=IDP            MX2    -IDF.XECL                                                       DBG0002      672     A     
 DBG=IDP            MX3    1                                                               DBG0002      673     A     
 DBG=IDP            LX2    IDF.XECP-0                                                      DBG0002      674     A     
 DBG=IDP            BX6    X2*X1       CLEAR OLD *XEC*/SET NEW *XEC*                       DBG0002      675     A     
 DBG=IDP            MX4    -IDF.SNLL                                                       DBG0002      676     A     
 DBG=IDP            LX1    59-IDF.FTOP                                                     DBG0002      677     A     
 DBG=IDP            SA6    A1                                                              DBG0002      678     A     
 DBG=IDP            MI     X1,IDP2     IF NOT 1ST TIME                                     DBG0002      679     A     
 DBG=IDP            LX4    IDF.SNLP-0                                                      DBG0002      680     A     
 DBG=IDP            LX3    IDF.FTOP-59                                                     DBG0002      681     A     
 DBG=IDP            BX6    X4*X6       CLEAR OLD *SNL*                                     DBG0002      682     A     
 DBG=IDP            =X1    L.ISL                                                           DBG0002      683     A     
 DBG=IDP            BX6    X6+X3       MERGE *FTO*                                         DBG0002      684     A     
 DBG=IDP            LX3    IDF.IDOP-IDF.FTOP                                               DBG0002      685     A     
 DBG=IDP            BX6    X6+X1       MERGE NEW *SNL*                                     DBG0002      686     A     
 DBG=IDP            IX6    X6+X3       MERGE *IDO*                                         DBG0002      687     A     
 DBG=IDP            SA6    A1                                                              DBG0002      688     A     
 DBG=IDP                                                                                   DBG=IDP     1275     A     
 DBG=IDP  *         SET UP *F.IDI - INTERACTIVE DEBUG INPUT FILE*.                         DBG=IDP     1276     A     
 DBG=IDP                                                                                   DBG=IDP     1277     A     
 DBG=IDP            SA1    F.IDI                                                           DBG=IDP     1278     A     
 DBG=IDP            SX2    040021B     (X2) = CIO EOR STATUS                               DBG=IDP     1279     A     
 DBG=IDP            MX0    7*CHAR                                                          DBG=IDP     1280     A     
 DBG=IDP            BX6    X0*X1                                                           DBG=IDP     1281     A     
 DBG=IDP            BX6    X6+X2                                                           DBG=IDP     1282     A     
 DBG=IDP            SA6    A1                                                              DBG=IDP     1283     A     
 DBG=IDP            OPEN   F.IDI                                                           DBG=IDP     1284          I
          -FCCA580
 DBG=IDP            OPEN   F.IDI,,RCL                                                      FCCA580        8     A     
 DBG=IDP            SA1    F.IDI                                                           DBG=IDP     1285     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 181    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            MX2    0           SET TO *CONNECT*                                    DBG=IDP     1286     A     
 DBG=IDP            RJ     CON         CONNECT F.IDI                                       DBG=IDP     1287     A     
 DBG=IDP                                                                                   DBG=IDP     1288     A     
 DBG=IDP   #OS3     IFEQ   .OS,3       IF SCOPE 3                                          DBG=IDP     1289     A     
 DBG=IDP            MI     X1,*+4S15   IF *CON* DETECTED ERROR...                          DBG=IDP     1290     A     
 DBG=IDP   #OS3     ENDIF                                                                  DBG=IDP     1291     A     
 DBG=IDP                                                                                   DBG=IDP     1292     A     
 DBG=IDP  *         SET UP *F.IDO - INTERACTIVE DEBUG OUTPUT FILE*.                        DBG=IDP     1293     A     
 DBG=IDP                                                                                   DBG=IDP     1294     A     
 DBG=IDP            OPEN   F.IDO                                                           DBG=IDP     1295          I
          -FCCA580
 DBG=IDP            OPEN   F.IDO,,RCL                                                      FCCA580        9     A     
 DBG=IDP            SA1    F.IDO                                                           DBG=IDP     1296     A     
 DBG=IDP            MX2    0           SET TO *CONNECT*                                    DBG=IDP     1297     A     
 DBG=IDP            RJ     CON         CONNECT F.IDO                                       DBG=IDP     1298     A     
 DBG=IDP                                                                                   DBG=IDP     1299     A     
 DBG=IDP   #OS3     IFEQ   .OS,3       IF SCOPE 3                                          DBG=IDP     1300     A     
 DBG=IDP            MI     X1,*+4S15   IF *CON* DETECTED ERROR...                          DBG=IDP     1301     A     
 DBG=IDP   #OS3     ENDIF                                                                  DBG=IDP     1302     A     
 DBG=IDP                                                                                   DBG=IDP     1303     A     
 DBG=IDP  *         INITIALIZE *BREAK* AND *SET* TABLES.                                   DBG=IDP     1304          I
          -DBG0002
 DBG=IDP  *         CLEAR/INITIALIZE TABLES.                                               DBG0002      689     A     
 DBG=IDP                                                                                   DBG=IDP     1305     A     
 DBG=IDP            SB6    IDPBA                                                           DBG=IDP     1306     A     
 DBG=IDP            RJ     CLZ         CLEAR *IDP* TABLE -- BREAK ADDRESSES                DBG=IDP     1307     A     
 DBG=IDP            SB6    IDPSET                                                          DBG=IDP     1308     A     
 DBG=IDP            RJ     CLZ         CLEAR *IDP* TABLE -- SET NAMES                      DBG=IDP     1309     A     
 DBG=IDP            RJ     IST         (RE)INITIALIZE *SET* TABLE                          DBG=IDP     1310     A     
 DBG=IDP                                                                                   DBG=IDP     1311     A     
 DBG=IDP  *         INITIAL BREAK PROCESSING.                                              DBG=IDP     1312     A     
 DBG=IDP                                                                                   DBG=IDP     1313     A     
 DBG=IDP   IDP2     SA1    IDPPREG                                                         DBG=IDP     1314     A     
 DBG=IDP            SA5    X1-1        (X5) = 30/RJ IDP, 30/FWA PARAMETER LIST             DBG=IDP     1315     A     
 DBG=IDP            BX6    X6-X6                                                           DBG=IDP     1316     A     
 DBG=IDP            SX7    B1                                                              DBG=IDP     1317          I
          -DBG0002
 DBG=IDP            SX5    X5                                                              DBG=IDP     1318     A     
 DBG=IDP            SA6    ST=ENDX     SET TO *DEFAULT IS NOT IDP GENERATED BRK*           DBG=IDP     1319     A     
 DBG=IDP            SA7    IDPFLG      SET TO *NORMAL IDP MODE*                            DBG=IDP     1320          I
          -DBG0002
 DBG=IDP            RJ     BRK         BREAK PROCESSOR                                     DBG=IDP     1321     A     
 DBG=IDP                                                                                   DBG=IDP     1322     A     
 DBG=IDP   #UIO     IF     DEF,UIO=                                                        DBG=IDP     1323     A     
 DBG=IDP            RJ     =XUIO=      USER IDP OWNCODE                                    DBG=IDP     1324     A     
 DBG=IDP            PL     X1,ST=ENDW  IF NO INTERACTIVE BREAK THIS TIME                   DBG=IDP     1325     A     
 DBG=IDP   #UIO     ENDIF                                                                  DBG=IDP     1326     A     
 DBG=IDP                                                                                   DBG=IDP     1327     A     
 DBG=IDP            ZR     X5,ST=ENDW  IF CONDITIONAL BREAK NOT SATISFIED                  DBG=IDP     1328     A     
 DBG=IDP            RJ     FRK         CHECK FREQUENCY PARAMETERS                          DBG=IDP     1329     A     
 DBG=IDP            ZR     X5,ST=ENDW  IF NO BREAK THIS TIME                               DBG=IDP     1330     A     
 DBG=IDP                                                                                   DBG=IDP     1331     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 182    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *         FLUSH *F.BDO - BATCH DEBUG OUTPUT FILE*.                               DBG=IDP     1332     A     
 DBG=IDP                                                                                   DBG=IDP     1333     A     
 DBG=IDP            WRITER =XF.BDO,,RCL                                                    DBG=IDP     1334     A     
 DBG=IDP                                                                                   DBG=IDP     1335     A     
 DBG=IDP  *         INTRODUCE YOURSELF.                                                    DBG=IDP     1336     A     
 DBG=IDP                                                                                   DBG=IDP     1337     A     
 DBG=IDP   IDP2A    BSS    0                                                               DBG=IDP     1338     A     
 DBG=IDP            PRIDP  (=C= INTERACTIVE DBG PKG --=),3,1                               DBG=IDP     1339          I
          -DBG0002
 DBG=IDP            SA1    X5+SN=HDR                                                       DBG=IDP     1340          I
          -DBG0002
 DBG=IDP            NZ     X1,IDP3     IF HEADER PROVIDED BY CALLER                        DBG=IDP     1341          I
          -DBG0002
 DBG=IDP            PL     X1,IDP4     IF NOT *IDP* GENERATED BREAK                        DBG=IDP     1342          I
          -DBG0002
 DBG=IDP            SA1    =20H IDP GENERATED BREAK                                        DBG=IDP     1343          I
          -DBG0002
 DBG=IDP            SA2    A1+B1                                                           DBG=IDP     1344          I
          -DBG0002
 DBG=IDP            BX6    X1                                                              DBG=IDP     1345          I
          -DBG0002
 DBG=IDP            SA6    SNAPLNE                                                         DBG=IDP     1346          I
          -DBG0002
 DBG=IDP            LX7    X2                                                              DBG=IDP     1347          I
          -DBG0002
 DBG=IDP            SA7    A6+B1                                                           DBG=IDP     1348          I
          -DBG0002
 DBG=IDP            EQ     IDP3A                                                           DBG=IDP     1349          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     1350          I
          -DBG0002
 DBG=IDP   IDP3     MX0    10*CHAR-2*CHAR                                                  DBG=IDP     1351          I
          -DBG0002
 DBG=IDP            BX7    X0*X1                                                           DBG=IDP     1352          I
          -DBG0002
 DBG=IDP            SX6    2R                                                              DBG=IDP     1353          I
          -DBG0002
 DBG=IDP            BX7    X7+X6                                                           DBG=IDP     1354          I
          -DBG0002
 DBG=IDP            LX7    10*CHAR-2*CHAR    (X7) = ..HHHHHHHH   (.=BLANK(55B))            DBG=IDP     1355          I
          -DBG0002
 DBG=IDP            SA7    SNAPLNE                                                         DBG=IDP     1356          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     1357          I
          -DBG0002
 DBG=IDP   IDP3A    MX6    0                                                               DBG=IDP     1358          I
          -DBG0002
 DBG=IDP            SA6    A7+B1       MARK EOL                                            DBG=IDP     1359          I
          -DBG0002
 DBG=IDP            PRIDP  SNAPLNE                                                         DBG=IDP     1360          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     1361          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 183    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
          -DBG0002
 DBG=IDP  *         ASSEMBLE * CALLD BY NNNNNN IN XXXXXXX*.                                DBG=IDP     1362          I
          -DBG0002
 DBG=IDP            SA1    =10H **IDP**                                                    DBG0002      690     A     
 DBG=IDP            SA2    =10H CALLD BY                                                   DBG0002      691     A     
 DBG=IDP            SA3    X5+SN=HDR                                                       DBG0002      692     A     
 DBG=IDP            BX6    X1                                                              DBG0002      693     A     
 DBG=IDP            LX7    X2                                                              DBG0002      694     A     
 DBG=IDP            SA6    SNAPLNE                                                         DBG0002      695     A     
 DBG=IDP            SA7    A6+B1                                                           DBG0002      696     A     
 DBG=IDP            BX6    X3                                                              DBG0002      697     A     
 DBG=IDP            ZR     X3,IDP4     IF NO HEADER PROVIDED BY CALLER .OR.                DBG0002      698     A     
 DBG=IDP  *                              IDP GENERATED BREAK                               DBG0002      699     A     
 DBG=IDP            SA6    A6+B1                                                           DBG0002      700     A     
 DBG=IDP            SA7    A6+B1                                                           DBG0002      701     A     
 DBG=IDP                                                                                   DBG=IDP     1363     A     
 DBG=IDP   IDP4     SA1    IDPPREG                                                         DBG=IDP     1364     A     
 DBG=IDP            SX1    X1-1                                                            DBG=IDP     1365     A     
 DBG=IDP                                                                                   DBG=IDP     1366     A     
 DBG=IDP   #FRA     IF     DEF,FRA=                                                        DBG=IDP     1367     A     
 DBG=IDP            SB7    IDP5        (B7) = RETURN ADDR FOR *FRA=*                       DBG=IDP     1368     A     
 DBG=IDP            EQ     =XFRA=      FIND RELATIVE ADDRESS                               DBG=IDP     1369     A     
 DBG=IDP                                                                                   DBG=IDP     1370     A     
 DBG=IDP   IDP5     BSS    0                                                               DBG=IDP     1371     A     
 DBG=IDP                                                                                   DBG=IDP     1372     A     
 DBG=IDP   #FRA     ELSE                                                                   DBG=IDP     1373     A     
 DBG=IDP            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                         DBG=IDP     1374     A     
 DBG=IDP            BX6    X4                                                              DBG=IDP     1375     A     
 DBG=IDP            MX7    0                                                               DBG=IDP     1376     A     
 DBG=IDP   #FRA     ENDIF                                                                  DBG=IDP     1377     A     
 DBG=IDP                                                                                   DBG=IDP     1378     A     
 DBG=IDP            SA6    IDPMSG2+1                                                       DBG=IDP     1379          I
          -DBG0002
 DBG=IDP            SA7    A6+B1                                                           DBG=IDP     1380          I
          -DBG0002
 DBG=IDP            PRIDP  IDPMSG2,3                                                       DBG=IDP     1381          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     1382          I
          -DBG0002
 DBG=IDP  *         *IDP* MAIN LOOP -- BEGINNING WITH PROMPT.                              DBG=IDP     1383          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     1384          I
          -DBG0002
 DBG=IDP   IDP=MN   BSS    0           ** MAIN LOOP NODE **                                DBG=IDP     1385          I
          -DBG0002
 DBG=IDP            PRIDP  (=C= ENTER--=),1,L.PRB                                          DBG=IDP     1386          I
          -DBG0002
 DBG=IDP            WRITER =XF.IDO,,RCL                                                    DBG=IDP     1387          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     1388          I
          -DBG0002
 DBG=IDP  *         READ STATEMENT INTO (IDPLIM) ET SEQ.                                   DBG=IDP     1389          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 184    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     1390          I
          -DBG0002
 DBG=IDP            RJ     RIL         READ *IDP* LINE                                     DBG=IDP     1391          I
          -DBG0002
 DBG=IDP            NZ     X1,ST=END   IF EOR/EOF OCCURRED                                 DBG=IDP     1392          I
          -DBG0002
 DBG=IDP            RJ     BBD         BURST/BUILD *IDP* COMMAND                           DBG=IDP     1393          I
          -DBG0002
 DBG=IDP            SA1    IDPSB                                                           DBG=IDP     1394          I
          -DBG0002
 DBG=IDP            SA2    IDPKMX                                                          DBG=IDP     1395          I
          -DBG0002
 DBG=IDP            SB6    IDPKEY      (B6) = FWA OF *IDP* KEYWORD TABLE                   DBG=IDP     1396          I
          -DBG0002
 DBG=IDP            BX0    X2                                                              DBG=IDP     1397          I
          -DBG0002
 DBG=IDP            SA6    A7+B1                                                           DBG0002      702     A     
 DBG=IDP            SA7    A6+B1                                                           DBG0002      703     A     
 DBG=IDP            PRIDP  SNAPLNE                                                         DBG0002      704     A     
 DBG=IDP            EQ     IDP8        READ 1ST LINE...                                    DBG0002      705     A     
 DBG=IDP   IDP=MN   SPACE  4,8                                                             DBG0002      706     A     
 DBG=IDP  *         ** MAIN LOOP NODE **                                                   DBG0002      707     A     
 DBG=IDP                                                                                   DBG0002      708     A     
 DBG=IDP   IDP=MN   BSS    0                                                               DBG0002      709     A     
 DBG=IDP            SA1    IDPSTMT                                                         DBG0002      710     A     
 DBG=IDP            PL     X1,IDP7     IF LAST STMT PROCESSED WAS NOT IN *PROC*            DBG0002      711     A     
 DBG=IDP                                                                                   DBG0002      712     A     
 DBG=IDP  *         HERE IF LAST STATEMENT WAS IN A PROCEDURE.                             DBG0002      713     A     
 DBG=IDP                                                                                   DBG0002      714     A     
 DBG=IDP            EQ     *+4S15      OOPS...                                             DBG0002      715     A     
 DBG=IDP                                                                                   DBG0002      716     A     
 DBG=IDP  *         CHECK FOR AVAILABILITY OF NEXT STATEMENT.                              DBG0002      717     A     
 DBG=IDP                                                                                   DBG0002      718     A     
 DBG=IDP   IDP7     SA2    X1          (X2) = LEN WORD FOR LAST STMT PROCESSED             DBG0002      719     A     
 DBG=IDP            LX2    59-TB.LASP                                                      DBG0002      720     A     
 DBG=IDP            MI     X2,IDP8     IF LAST STMT PROCESSED WAS LAST ON LINE             DBG0002      721     A     
 DBG=IDP            LX2    0-TB.LENP+TB.LASP-59                                            DBG0002      722     A     
 DBG=IDP            SX1    X1                                                              DBG0002      723     A     
 DBG=IDP            SX2    X2+B1                                                           DBG0002      724     A     
 DBG=IDP            IX6    X1+X2       (X6) = ADDR OF LEN WORD FOR NEXT STMT               DBG0002      725     A     
 DBG=IDP            SA6    IDPSTMT                                                         DBG0002      726     A     
 DBG=IDP            SA5    X6+B1       (A5,X5) = A+C OF 1ST TOKEN IN NEXT STMT             DBG0002      727     A     
 DBG=IDP            EQ     IDP12                                                           DBG0002      728     A     
 DBG=IDP                                                                                   DBG0002      729     A     
 DBG=IDP  *         HERE TO READ NEW LINE.                                                 DBG0002      730     A     
 DBG=IDP                                                                                   DBG0002      731     A     
 DBG=IDP   IDP8     SA1    IDPFLG                                                          DBG0002      732     A     
 DBG=IDP            LX1    59-IDF.INPP                                                     DBG0002      733     A     
 DBG=IDP            MI     X1,IDP9     IF READING FROM BATCH INPUT (F.BDI)                 DBG0002      734     A     
 DBG=IDP                                                                                   DBG0002      735     A     
 DBG=IDP            DUP    L.PRB,1                                                         DBG0002      736     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 185    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            WRITEC =XF.IDO,(=C=  =)                                                DBG0002      737     A     
 DBG=IDP                                                                                   DBG0002      738     A     
 DBG=IDP            WRITEC =XF.IDO,(=C= "PROMPT"=)                                         DBG0002      739     A     
 DBG=IDP            WRITER =XF.IDO,,RCL                                                    DBG0002      740     A     
 DBG=IDP                                                                                   DBG0002      741     A     
 DBG=IDP   IDP9     RJ     RIL         READ IDP LINE                                       DBG0002      742     A     
 DBG=IDP            SA2    IDPFLG                                                          DBG0002      743     A     
 DBG=IDP            ZR     X1,IDP10    IF EOR/EOF NOT ENCOUNTERED                          DBG0002      744     A     
 DBG=IDP            MX6    1                                                               DBG0002      745     A     
 DBG=IDP            LX6    IDF.INPP-59                                                     DBG0002      746     A     
 DBG=IDP            BX6    -X6*X2      CLEAR INP                                           DBG0002      747     A     
 DBG=IDP            SA6    A2                                                              DBG0002      748     A     
 DBG=IDP            EQ     IDP8                                                            DBG0002      749     A     
 DBG=IDP                                                                                   DBG0002      750     A     
 DBG=IDP  *         HERE TO ECHO LINE TO BATCH DEBUG OUTPUT FILE (F.BDO),                  DBG0002      751     A     
 DBG=IDP  *           IF REQUESTED.                                                        DBG0002      752     A     
 DBG=IDP                                                                                   DBG0002      753     A     
 DBG=IDP   IDP10    BX3    X2                                                              DBG0002      754     A     
 DBG=IDP            LX2    59-IDF.BKOP                                                     DBG0002      755     A     
 DBG=IDP            LX3    59-IDF.BDOP                                                     DBG0002      756     A     
 DBG=IDP            BX4    X2*X3                                                           DBG0002      757     A     
 DBG=IDP            PL     X4,IDP10A   IF NO ECHO REQUESTED .OR. NOT WRITING TO            DBG0002      758     A     
 DBG=IDP  *                              BATCH DEBUG OUTPUT FILE (F.BDO)                   DBG0002      759     A     
 DBG=IDP            PRBDO  (=C=  =),1                                                      DBG0002      760     A     
 DBG=IDP            SA2    L=LIM                                                           DBG0002      761     A     
 DBG=IDP            PRBDO  IDPLIM-1,X2                                                     DBG0002      762     A     
 DBG=IDP                                                                                   DBG0002      763     A     
 DBG=IDP  *         HERE TO ECHO LINE TO INTERACTIVE DEBUG OUTPUT FILE (F.IDO),            DBG0002      764     A     
 DBG=IDP  *           IF REQUESTED.                                                        DBG0002      765     A     
 DBG=IDP                                                                                   DBG0002      766     A     
 DBG=IDP   IDP10A   SA1    IDPFLG                                                          DBG0002      767     A     
 DBG=IDP            BX2    X1                                                              DBG0002      768     A     
 DBG=IDP            LX1    59-IDF.IKOP                                                     DBG0002      769     A     
 DBG=IDP            LX2    59-IDF.IDOP                                                     DBG0002      770     A     
 DBG=IDP            BX3    X1*X2                                                           DBG0002      771     A     
 DBG=IDP            PL     X3,IDP11    IF NO ECHO REQUESTED .OR. NOT WRITING TO            DBG0002      772     A     
 DBG=IDP  *                              INTERACTIVE DEBUG OUTPUT FILE (F.IDO)             DBG0002      773     A     
 DBG=IDP                                                                                   DBG0002      774     A     
 DBG=IDP            DUP    L.PRB,1                                                         DBG0002      775     A     
 DBG=IDP            WRITEC =XF.IDO,(=C=  =)                                                DBG0002      776     A     
 DBG=IDP                                                                                   DBG0002      777     A     
 DBG=IDP            WRITEC =XF.IDO,IDPLIM-1                                                DBG0002      778     A     
 DBG=IDP                                                                                   DBG0002      779     A     
 DBG=IDP  *         HERE TO ENTOKEN NEW LINE.                                              DBG0002      780     A     
 DBG=IDP                                                                                   DBG0002      781     A     
 DBG=IDP   IDP11    SX7    L.TB                                                            DBG0002      782     A     
 DBG=IDP            SA6    IDPTB       (A6) = ADDR OF LEN WORD FOR 1ST STMT                DBG0002      783     A     
 DBG=IDP            SA7    BUB=LEN                                                         DBG0002      784     A     
 DBG=IDP            RJ     BUB         BURST/BUILD NEW LINE                                DBG0002      785     A     
 DBG=IDP            SX6    IDPTB                                                           DBG0002      786     A     
 DBG=IDP            SA5    IDPTB+1                                                         DBG0002      787     A     
 DBG=IDP            SA6    IDPSTMT                                                         DBG0002      788     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 186    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG0002      789     A     
 DBG=IDP  *         HERE TO SEARCH FOR STATEMENT KEYWORD.                                  DBG0002      790     A     
 DBG=IDP                                                                                   DBG0002      791     A     
 DBG=IDP   IDP12    MX0    7*CHAR                                                          DBG0002      792     A     
 DBG=IDP            SX6    B1                                                              DBG0002      793     A     
 DBG=IDP            ZR     X5,IDP=MN   IF A NULL STMT, IGNORE...                           DBG0002      794     A     
 DBG=IDP  *                              (PROBABLE "EOS" "EOS" SYNTAX)                     DBG0002      795     A     
 DBG=IDP            SA2    =40404040404040404040B                                          DBG0002      796     A     
 DBG=IDP            BX1    X0*X5       (X1) = 0LKEYWORD                                    DBG0002      797     A     
 DBG=IDP            IX6    X1-X6       BORROW RIPPLES LEFT TO 1ST NON-ZERO BIT             DBG0002      798     A     
 DBG=IDP            BX7    -X6+X1      (X7) = ALL TRAILING 0 BITS IN (X1) = 0 BITS         DBG0002      799     A     
 DBG=IDP  *                                    ALL OTHER LEADING BITS = 1 BITS             DBG0002      800     A     
 DBG=IDP            SB7    60-5        (B7) = RIGHT CIRCULAR SHIFT 5 BITS                  DBG0002      801     A     
 DBG=IDP            BX6    X2*X7       (X6) = 40B WHERE EACH CHAR IN KEYWORD IS            DBG0002      802     A     
 DBG=IDP            LX7    X6,B7       (X7) = 01B WHERE EACH CHAR IN KEYWORD IS            DBG0002      803     A     
 DBG=IDP            SB6    IDPKEY                                                          DBG0002      804     A     
 DBG=IDP            IX7    X6-X7       (X7) = 37B WHERE EACH CHAR IN KEYWORD IS            DBG0002      805     A     
 DBG=IDP            BX0    X6+X7       (X0) = 77B WHERE EACH CHAR IN KEYWORD IS            DBG0002      806     A     
 DBG=IDP            RJ     SKT         SEARCH *IDP* KEYWORD TABLE                          DBG=IDP     1398     A     
 DBG=IDP                                                                                   DBG=IDP     1399     A     
 DBG=IDP   #UKT     IF     DEF,UKT=                                                        DBG=IDP     1400     A     
 DBG=IDP            NZ     X2,IDP=UK   IF A FIND                                           DBG=IDP     1401     A     
 DBG=IDP            SB6    =XUKT=      (B6) = FWA OF USER KEYWORD TABLE                    DBG=IDP     1402     A     
 DBG=IDP            RJ     SKT         SEARCH USER KEYWORD TABLE                           DBG=IDP     1403     A     
 DBG=IDP                                                                                   DBG=IDP     1404     A     
 DBG=IDP   IDP=UK   BSS    0                                                               DBG=IDP     1405     A     
 DBG=IDP   #UKT     ENDIF                                                                  DBG=IDP     1406     A     
 DBG=IDP                                                                                   DBG=IDP     1407     A     
 DBG=IDP            ZR     X2,IDP.ER   IF NO FIND IN TABLE                                 DBG=IDP     1408     A     
 DBG=IDP            SB5    X2          (B5) = PROCESSOR ADDR                               DBG=IDP     1409     A     
 DBG=IDP            SA5    A5+B1       (A5,X5) = A+C OF TOKEN THAT TERMINATED KEYW         DBG0002      807     A     
 DBG=IDP            JP     B5                                                              DBG=IDP     1410     A     
 DBG=IDP                                                                                   DBG=IDP     1411          I
          -DBG0002
 DBG=IDP   IDP=ER   SPACE  4,8                                                             DBG0002      808     A     
 DBG=IDP  *         HERE FOR ERROR CONDITION.                                              DBG=IDP     1412     A     
 DBG=IDP                                                                                   DBG=IDP     1413     A     
 DBG=IDP   IDP=ER   BSS    0           ** ERROR **                                         DBG=IDP     1414     A     
 DBG=IDP   IDP.ER   BSS    0                                                               DBG=IDP     1415     A     
 DBG=IDP            PRIDP  (=C= ERROR--=)                                                  DBG=IDP     1416          I
          -DBG0002
 DBG=IDP                                                                                   DBG0002      809     A     
 DBG=IDP            DUP    L.PRB,1                                                         DBG0002      810     A     
 DBG=IDP            WRITEC =XF.IDO,(=C=  =)                                                DBG0002      811     A     
 DBG=IDP                                                                                   DBG0002      812     A     
 DBG=IDP            WRITEC =XF.IDO,(=C= ** ERROR **=)                                      DBG0002      813     A     
 DBG=IDP            EQ     IDP=MN                                                          DBG=IDP     1417     A     
 DBG=IDP   IDP=OV   SPACE  4,8                                                             DBG0002      814     A     
 DBG=IDP  *         HERE IF TABLE OVERFLOW.                                                DBG0002      815     A     
 DBG=IDP                                                                                   DBG0002      816     A     
 DBG=IDP   IDP=OV   BSS    0           ** TABLE OVERFLOW **                                DBG0002      817     A     
 DBG=IDP                                                                                   DBG0002      818     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 187    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            DUP    L.PRB,1                                                         DBG0002      819     A     
 DBG=IDP            WRITEC =XF.IDO,(=C=  =)                                                DBG0002      820     A     
 DBG=IDP                                                                                   DBG0002      821     A     
 DBG=IDP            WRITEC =XF.IDO,(=C= ** TABLE OVERFLOW **=)                             DBG0002      822     A     
 DBG=IDP            EQ     IDP=ER                                                          DBG0002      823     A     
 DBG=IDP   IDP=IFR  SPACE  4,8                                                             DBG0006        6     A     
 DBG=IDP  **        IDP=IFR - IDP RESTART.                                                 DBG0006        7     A     
 DBG=IDP  *                                                                                DBG0006        8     A     
 DBG=IDP  *                                                                                DBG0006        9     A     
 DBG=IDP  *         HERE FROM *RHH* WHEN HOST HAS JUST BEEN RESTARTED                      DBG0006       10     A     
 DBG=IDP  *         VIA *IFR*.  NEED TO *MEM* BACK DOWN TO ORIGINAL FIELD                  DBG0006       11     A     
 DBG=IDP  *         LENGTH.                                                                DBG0006       12     A     
 DBG=IDP                                                                                   DBG0006       13     A     
 DBG=IDP                                                                                   DBG0006       14     A     
 DBG=IDP   IDP=IFR  BSS    0           ** ENTRY **                                         DBG0006       15     A     
 DBG=IDP            SA1    FW.IFR+/IFR/SYS=MEM+1-RA.ORG                                    DBG0006       16     A     
 DBG=IDP            MX2    -1                                                              DBG0006       17     A     
 DBG=IDP            BX6    X2*X1       CLEAR COMPLETE BIT                                  DBG0006       18     A     
 DBG=IDP            SA6    A1                                                              DBG0006       19     A     
 DBG=IDP            MEMORY SCM,A1,RCL                                                      DBG0006       20     A     
 DBG=IDP            EQ     IDP=MN      CONTINUE INTERACTIVE SESSION...                     DBG0006       21     A     
 DBG=IDP   ST=      SPACE  4,8                                                             DBG=IDP     1418     A     
 DBG=IDP  **        ST= - STATEMENT PROCESSORS.                                            DBG=IDP     1419     A     
 DBG=IDP  *                                                                                DBG=IDP     1420     A     
 DBG=IDP   ST=BRK   SPACE  4,8                                                             DBG=IDP     1421     A     
 DBG=IDP  *         HERE TO PROCESS *BREAK ADDR,LL,UL,INC*,                                DBG=IDP     1422     A     
 DBG=IDP  *                      OR *BRPL ADDR,ADDR1,LL,UL,INC* FORM,                      DBG=IDP     1423     A     
 DBG=IDP  *                      OR  *BREQ ADDR,ADDR1,ADDR2,LL,UL,INC* FORM.               DBG=IDP     1424     A     
 DBG=IDP                                                                                   DBG=IDP     1425     A     
 DBG=IDP   ST=BRK   SX6    B7+IDPKEY-IDPKBR  (X6) = BREAK TYPE CODE (BTC)                  DBG=IDP     1426     A     
 DBG=IDP            SA6    IDPBTC                                                          DBG=IDP     1427     A     
 DBG=IDP            ZR     X5,ST=BRK13 IF EOS ENCOUNTERED, LIST ALL BREAKS...              DBG0002      824     A     
 DBG=IDP            SA5    IDPSB+1                                                         DBG=IDP     1428          I
          -DBG0002
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION-- ADDR                          DBG=IDP     1429     A     
 DBG=IDP            ZR     X3,ST=BRK13 IF 1ST EXPRESSION IS NULL, LIST ALL BREAKS          DBG=IDP     1430     A     
 DBG=IDP            SX6    X1                                                              DBG=IDP     1431     A     
 DBG=IDP            SB2    X1          (B2) = ADDR AT WHICH TO BREAK                       DBG=IDP     1432     A     
 DBG=IDP            SA6    AP=FWA                                                          DBG=IDP     1433     A     
 DBG=IDP            RJ     CHK         CHECK CM ADDRESS                                    DBG=IDP     1434     A     
 DBG=IDP            MI     B2,IDP.ER   IF ADDR IS BAD                                      DBG=IDP     1435     A     
 DBG=IDP            SA2    IDPBTC                                                          DBG=IDP     1436     A     
 DBG=IDP            MX3    0                                                               DBG=IDP     1437     A     
 DBG=IDP            ZR     X2,ST=BRK2  IF THIS IS *BREAK ADDR,LL,UL,INC*                   DBG=IDP     1438     A     
 DBG=IDP                                                                                   DBG=IDP     1439     A     
 DBG=IDP  *         ASSEMBLE ADDR1.                                                        DBG=IDP     1440     A     
 DBG=IDP                                                                                   DBG=IDP     1441     A     
 DBG=IDP            ZR     X5,ST=BRK2  IF ADDR FOLLOWED BY EOS                             DBG=IDP     1442     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION-- ADDR1                         DBG=IDP     1443     A     
 DBG=IDP                                                                                   DBG=IDP     1444     A     
 DBG=IDP   ST=BRK2  NZ     X3,ST=BRK3  IF ADDR1 NOT NULL                                   DBG=IDP     1445     A     
 DBG=IDP            SX1    0           (X1) = DEFAULT ADDR1                                DBG=IDP     1446     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 188    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG=IDP     1447     A     
 DBG=IDP   ST=BRK3  SB2    X1                                                              DBG=IDP     1448     A     
 DBG=IDP            RJ     CHK         CHECK CM ADDRESS                                    DBG=IDP     1449     A     
 DBG=IDP            MI     B2,IDP.ER   IF ADDR1 IS BAD                                     DBG=IDP     1450     A     
 DBG=IDP            SX6    B2                                                              DBG=IDP     1451     A     
 DBG=IDP            MX3    0                                                               DBG=IDP     1452     A     
 DBG=IDP            SA6    AP=LWA                                                          DBG=IDP     1453     A     
 DBG=IDP            SA2    IDPBTC                                                          DBG=IDP     1454     A     
 DBG=IDP            SX7    X2-BTC=EQ                                                       DBG=IDP     1455     A     
 DBG=IDP            MI     X7,ST=BRK4  IF THIS IS *BREAK ADDR,LL,UL,INC*                   DBG=IDP     1456     A     
 DBG=IDP  *                              OR *BRPL ADDR,ADDR1,LL,UL,INC* FORM               DBG=IDP     1457     A     
 DBG=IDP                                                                                   DBG=IDP     1458     A     
 DBG=IDP  *         ASSEMBL ADDR2.                                                         DBG=IDP     1459     A     
 DBG=IDP                                                                                   DBG=IDP     1460     A     
 DBG=IDP            ZR     X5,ST=BRK4  IF ADDR1 FOLLOWED BY EOS                            DBG=IDP     1461     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION-- ADDR2                         DBG=IDP     1462     A     
 DBG=IDP                                                                                   DBG=IDP     1463     A     
 DBG=IDP   ST=BRK4  NZ     X3,ST=BRK5  IF ADDR2 NOT NULL                                   DBG=IDP     1464     A     
 DBG=IDP            SX1    0                                                               DBG=IDP     1465     A     
 DBG=IDP                                                                                   DBG=IDP     1466     A     
 DBG=IDP   ST=BRK5  SB2    X1                                                              DBG=IDP     1467     A     
 DBG=IDP            RJ     CHK         CHECK CM ADDRESS                                    DBG=IDP     1468     A     
 DBG=IDP            MI     B2,IDP.ER   IF ADDR2 IS BAD                                     DBG=IDP     1469     A     
 DBG=IDP            SX6    B2                                                              DBG=IDP     1470     A     
 DBG=IDP            MX3    0                                                               DBG=IDP     1471     A     
 DBG=IDP            SA6    AP=LEN      SAVE (X6) = ADDR2                                   DBG=IDP     1472     A     
 DBG=IDP                                                                                   DBG=IDP     1473     A     
 DBG=IDP  *         ASSEMBLE LL.                                                           DBG=IDP     1474     A     
 DBG=IDP                                                                                   DBG=IDP     1475     A     
 DBG=IDP            ZR     X5,ST=BRK6  IF ADDR2 FOLLOWED BY EOS                            DBG=IDP     1476     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION-- LL                            DBG=IDP     1477     A     
 DBG=IDP                                                                                   DBG=IDP     1478     A     
 DBG=IDP   ST=BRK6  NZ     X3,ST=BRK7  IF LL NOT NULL                                      DBG=IDP     1479     A     
 DBG=IDP            SX1    1           (X1) = DEFAULT LL                                   DBG=IDP     1480     A     
 DBG=IDP                                                                                   DBG=IDP     1481     A     
 DBG=IDP   ST=BRK7  SX6    X1                                                              DBG=IDP     1482     A     
 DBG=IDP            SA6    AP=LL                                                           DBG=IDP     1483     A     
 DBG=IDP            MX3    0                                                               DBG=IDP     1484     A     
 DBG=IDP            ZR     X5,ST=BRK8  IF LL FOLLOWED BY EOS                               DBG=IDP     1485     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION-- UL                            DBG=IDP     1486     A     
 DBG=IDP                                                                                   DBG=IDP     1487     A     
 DBG=IDP   ST=BRK8  NZ     X3,ST=BRK9  IF UL NOT NULL                                      DBG=IDP     1488     A     
 DBG=IDP            SX1    100         (X1) = DEFAULT UL                                   DBG=IDP     1489     A     
 DBG=IDP                                                                                   DBG=IDP     1490     A     
 DBG=IDP   ST=BRK9  SX6    X1                                                              DBG=IDP     1491     A     
 DBG=IDP            SA6    AP=UL                                                           DBG=IDP     1492     A     
 DBG=IDP            MX3    0                                                               DBG=IDP     1493     A     
 DBG=IDP            ZR     X5,ST=BRK10 IF UL FOLLOWED BY EOS                               DBG=IDP     1494     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION-- INC                           DBG=IDP     1495     A     
 DBG=IDP                                                                                   DBG=IDP     1496     A     
 DBG=IDP   ST=BRK10 NZ     X3,ST=BRK11 IF INC NOT NULL                                     DBG=IDP     1497     A     
 DBG=IDP            SX1    1           (X1) = DEFAULT INC                                  DBG=IDP     1498     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 189    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG=IDP     1499     A     
 DBG=IDP   ST=BRK11 SX6    X1                                                              DBG=IDP     1500     A     
 DBG=IDP            SA6    AP=INC                                                          DBG=IDP     1501     A     
 DBG=IDP                                                                                   DBG=IDP     1502     A     
 DBG=IDP  *         ASSEMBLE NEW BREAK TABLE ENTRY.                                        DBG=IDP     1503     A     
 DBG=IDP                                                                                   DBG=IDP     1504     A     
 DBG=IDP            SA1    AP=FWA      (X1) = BREAK ADDR                                   DBG=IDP     1505     A     
 DBG=IDP            SA2    A1+B1       (X2) = ADDR1                                        DBG=IDP     1506     A     
 DBG=IDP            SA3    A2+B1       (X3) = ADDR2                                        DBG=IDP     1507     A     
 DBG=IDP            SA4    IDPBTC      (X4) = BREAK TYPE CODE                              DBG=IDP     1508     A     
 DBG=IDP            LX2    54-18                                                           DBG=IDP     1509     A     
 DBG=IDP            BX6    X1+X2       (X6) = 6/0,18/ADDR1,18/0,18/BREAK ADDR              DBG=IDP     1510     A     
 DBG=IDP            LX3    36-18                                                           DBG=IDP     1511     A     
 DBG=IDP            BX6    X6+X3       (X6) = 6/0,18/ADDR1,18/ADDR2,18/BRK ADDR            DBG=IDP     1512     A     
 DBG=IDP            LX4    60-6                                                            DBG=IDP     1513     A     
 DBG=IDP            BX6    X6+X4       (X6) = 6/BTC,18/ADDR1,18/ADDR2,18/BRK ADDR          DBG=IDP     1514     A     
 DBG=IDP            SA6    ST=BRKB                                                         DBG=IDP     1515     A     
 DBG=IDP                                                                                   DBG=IDP     1516     A     
 DBG=IDP            SA2    AP=LL       (X2) = LL                                           DBG=IDP     1517     A     
 DBG=IDP            SA3    A2+B1       (X3) = UL                                           DBG=IDP     1518     A     
 DBG=IDP            SA4    A3+B1       (X4) = INC                                          DBG=IDP     1519     A     
 DBG=IDP            LX2    60-15                                                           DBG=IDP     1520     A     
 DBG=IDP            LX3    45-15                                                           DBG=IDP     1521     A     
 DBG=IDP            BX7    X2+X3       (X7) = 15/LL,15/UL,12/0,18/0                        DBG=IDP     1522     A     
 DBG=IDP            LX4    30-12                                                           DBG=IDP     1523     A     
 DBG=IDP            BX7    X7+X4       (X7) = 15/LL,15/UL,12/INC,18/0                      DBG=IDP     1524     A     
 DBG=IDP            SA7    A6+B1                                                           DBG=IDP     1525     A     
 DBG=IDP                                                                                   DBG=IDP     1526     A     
 DBG=IDP            SX1    X1                                                              DBG=IDP     1527     A     
 DBG=IDP            SB6    IDPBA                                                           DBG=IDP     1528     A     
 DBG=IDP            MX0    -18                                                             DBG=IDP     1529     A     
 DBG=IDP            BX0    -X0                                                             DBG=IDP     1530     A     
 DBG=IDP            RJ     SKT         SEARCH FOR BREAK ADDR                               DBG=IDP     1531     A     
 DBG=IDP            SA1    ST=BRKB                                                         DBG=IDP     1532     A     
 DBG=IDP            NZ     X2,ST=BRK12 IF BREAK ADDR ALREADY IN TABLE                      DBG=IDP     1533     A     
 DBG=IDP                                                                                   DBG=IDP     1534     A     
 DBG=IDP  *         HERE IF MAKING A NEW ENTRY.                                            DBG=IDP     1535     A     
 DBG=IDP                                                                                   DBG=IDP     1536     A     
 DBG=IDP            BX6    X1                                                              DBG=IDP     1537     A     
 DBG=IDP            RJ     ADZ         ADD NEW *IDPBA* ENTRY                               DBG=IDP     1538     A     
 DBG=IDP            SA3    X1          (X3) = PREVIOUS CONTENTS OF BREAK ADDR              DBG=IDP     1539     A     
 DBG=IDP            SA4    ST=BRKA     (X4) = *RJ IDP* PLUG                                DBG=IDP     1540     A     
 DBG=IDP            BX6    X3                                                              DBG=IDP     1541     A     
 DBG=IDP            LX7    X4                                                              DBG=IDP     1542     A     
 DBG=IDP            SB6    B7+B7                                                           DBG=IDP     1543     A     
 DBG=IDP            SA6    IDPBC+B6                                                        DBG=IDP     1544     A     
 DBG=IDP            SA7    A3                                                              DBG=IDP     1545     A     
 DBG=IDP            SA1    ST=BRKB+1   (X1) = 2ND WORD OF NEW *IDPBC* ENTRY                DBG=IDP     1546     A     
 DBG=IDP            BX6    X1                                                              DBG=IDP     1547     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     1548     A     
 DBG=IDP            EQ     IDP=MN                                                          DBG=IDP     1549     A     
 DBG=IDP                                                                                   DBG=IDP     1550     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 190    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *         HERE IF REPLACING/UPDATING AN EXISTING ENTRY.                          DBG=IDP     1551     A     
 DBG=IDP                                                                                   DBG=IDP     1552     A     
 DBG=IDP   ST=BRK12 SB6    B7+B7                                                           DBG=IDP     1553     A     
 DBG=IDP            BX6    X1                                                              DBG=IDP     1554     A     
 DBG=IDP            SA3    IDPBC+B6+1  (X3) = 2ND WORD OF EXISTING *IDPBC* ENTRY           DBG=IDP     1555     A     
 DBG=IDP            SA6    A2          REPLACE OLD *IDPBA* WITH NEW                        DBG=IDP     1556     A     
 DBG=IDP            SA4    A1+B1       (X4) = NEW 2ND WORD OF *IDPBC* ENTRY                DBG=IDP     1557     A     
 DBG=IDP            SX3    X3          (X3) = SNAP COUNT                                   DBG=IDP     1558     A     
 DBG=IDP            BX6    X4+X3                                                           DBG=IDP     1559     A     
 DBG=IDP            SA6    A3          REPLACE OLD WITH NEW                                DBG=IDP     1560     A     
 DBG=IDP            EQ     IDP=MN                                                          DBG=IDP     1561     A     
 DBG=IDP                                                                                   DBG=IDP     1562     A     
 DBG=IDP  *         HERE TO LIST ALL BREAKS.                                               DBG=IDP     1563     A     
 DBG=IDP                                                                                   DBG=IDP     1564     A     
 DBG=IDP   ST=BRK13 RJ     LBT         LIST BREAK TABLE                                    DBG=IDP     1565     A     
 DBG=IDP            EQ     IDP=MN                                                          DBG=IDP     1566     A     
 DBG=IDP                                                                                   DBG=IDP     1567     A     
 DBG=IDP                                                                                   DBG=IDP     1568     A     
 DBG=IDP   ST=BRKA  RJ     IDP=        PLUG VALUE                                          DBG=IDP     1569     A     
 DBG=IDP   -        VFD    30/0                                                            DBG=IDP     1570     A     
 DBG=IDP                                                                                   DBG=IDP     1571     A     
 DBG=IDP   ST=BRKB  BSSZ   2           SAVE CELLS                                          DBG=IDP     1572     A     
 DBG=IDP   ST=COD   SPACE  4,8                                                             DBG=IDP     1573     A     
 DBG=IDP  *         HERE TO PROCESS *CODE FWA,LWA,LEN*.                                    DBG=IDP     1574     A     
 DBG=IDP                                                                                   DBG=IDP     1575     A     
 DBG=IDP   ST=COD   SA5    IDPSB+1                                                         DBG=IDP     1576          I
          -DBG0002
 DBG=IDP   ST=COD   BSS    0                                                               DBG0002      825     A     
 DBG=IDP            ZR     X5,ST=COD1  IF EOS ENCOUNTERED                                  DBG0002      826     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION-- FWA                           DBG=IDP     1577     A     
 DBG=IDP            NZ     X3,ST=COD2  IF 1ST EXPRESSION *FWA* NOT NULL                    DBG=IDP     1578     A     
 DBG=IDP            SA1    IDPPREG                                                         DBG=IDP     1579          I
          -DBG0002
 DBG=IDP                                                                                   DBG0002      827     A     
 DBG=IDP   ST=COD1  SA1    IDPPREG                                                         DBG0002      828     A     
 DBG=IDP                                                                                   DBG=IDP     1580     A     
 DBG=IDP   ST=COD2  SX6    X1                                                              DBG=IDP     1581     A     
 DBG=IDP            SA6    AP=FWA                                                          DBG=IDP     1582     A     
 DBG=IDP            MX1    0                                                               DBG=IDP     1583     A     
 DBG=IDP            ZR     X5,ST=COD3  IF FWA FOLLOWED BY EOS                              DBG=IDP     1584     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION-- LWA                           DBG=IDP     1585     A     
 DBG=IDP                                                                                   DBG=IDP     1586     A     
 DBG=IDP   ST=COD3  SX6    X1                                                              DBG=IDP     1587     A     
 DBG=IDP            SA6    AP=LWA                                                          DBG=IDP     1588     A     
 DBG=IDP            MX1    0                                                               DBG=IDP     1589     A     
 DBG=IDP            ZR     X5,ST=COD4  IF LWA (OR INVENTED LWA) FOLLOWED BY EOS            DBG=IDP     1590     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION-- LEN                           DBG=IDP     1591     A     
 DBG=IDP                                                                                   DBG=IDP     1592     A     
 DBG=IDP   ST=COD4  SX6    X1                                                              DBG=IDP     1593     A     
 DBG=IDP            SA6    AP=LEN                                                          DBG=IDP     1594     A     
 DBG=IDP            SA2    AP=FWA                                                          DBG=IDP     1595     A     
 DBG=IDP            SA3    A2+B1                                                           DBG=IDP     1596     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 191    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SA4    A3+B1                                                           DBG=IDP     1597     A     
 DBG=IDP            RJ     FLL         CHECK FWA,LWA,LEN                                   DBG=IDP     1598     A     
 DBG=IDP            MI     B2,IDP=ER   IF FWA,LWA,OR LEN IS BAD                            DBG=IDP     1599     A     
 DBG=IDP                                                                                   DBG=IDP     1600     A     
 DBG=IDP  *         HERE TO DEASSEMBLE FROM FWA TO LWA.                                    DBG=IDP     1601     A     
 DBG=IDP                                                                                   DBG=IDP     1602     A     
 DBG=IDP   ST=COD5  SA1    AP=FWA                                                          DBG=IDP     1603     A     
 DBG=IDP            SA2    A1+B1                                                           DBG=IDP     1604     A     
 DBG=IDP            IX3    X2-X1                                                           DBG=IDP     1605     A     
 DBG=IDP            SX6    X1+B1                                                           DBG=IDP     1606     A     
 DBG=IDP            MI     X3,IDP=MN   IF FINISHED                                         DBG=IDP     1607     A     
 DBG=IDP            SA6    A1                                                              DBG=IDP     1608     A     
 DBG=IDP            SA5    X1          (A5,X5) = WORD TO DEASSEMBLE                        DBG=IDP     1609     A     
 DBG=IDP            SB4    60          (B4) = POSITION COUNTER                             DBG=IDP     1610     A     
 DBG=IDP                                                                                   DBG=IDP     1611     A     
 DBG=IDP   ST=COD6  RJ     DAZ         DEASSEMBLE INSTRUCTION                              DBG=IDP     1612     A     
 DBG=IDP            MI     X1,ST=COD5  IF INSTRUCTION FORCED UPPER                         DBG=IDP     1613     A     
 DBG=IDP            SB4    B4-B5                                                           DBG=IDP     1614     A     
 DBG=IDP            GT     B4,B0,ST=COD6  IF MORE INSTRUCTIONS TO GO IN THIS WORD          DBG=IDP     1615     A     
 DBG=IDP            EQ     ST=COD5                                                         DBG=IDP     1616     A     
 DBG=IDP   ST=CON   SPACE  4,8                                                             DBG=IDP     1617     A     
 DBG=IDP  *         HERE TO PROCESS *CONNECT FILE*.                                        DBG=IDP     1618     A     
 DBG=IDP                                                                                   DBG=IDP     1619     A     
 DBG=IDP   ST=CON   SA1    IDPSB+2                                                         DBG=IDP     1620          I
          -DBG0002
 DBG=IDP            SB4    0           SET TO *CONNECT*                                    DBG=IDP     1621          I
          -DBG0002
 DBG=IDP   ST=CON   ZR     X5,IDP=ER   IF EOS ENCOUTNTERED                                 DBG0002      829     A     
 DBG=IDP            SA5    A5+B1                                                           DBG0002      830     A     
 DBG=IDP            SB4    B0          SET TO *CONNECT*                                    DBG0002      831     A     
 DBG=IDP                                                                                   DBG=IDP     1622     A     
 DBG=IDP   ST=CON2  BSS    0                                                               DBG=IDP     1623     A     
 DBG=IDP                                                                                   DBG=IDP     1624     A     
 DBG=IDP   #UFT     IF     DEF,UFT=                                                        DBG=IDP     1625     A     
 DBG=IDP            SB6    =XUFT=      (B6) = FWA OF USER FILE NAME TABLE                  DBG=IDP     1626     A     
 DBG=IDP            MX0    7*CHAR                                                          DBG=IDP     1627     A     
 DBG=IDP            BX1    X0*X5       (X1) = 0LLFN                                        DBG0002      832     A     
 DBG=IDP            RJ     SKT         SEARCH FOR FILE NAME                                DBG=IDP     1628     A     
 DBG=IDP            ZR     X2,IDP=ER   IF NO FIND                                          DBG=IDP     1629     A     
 DBG=IDP            SA1    X2          (A1,X1) = A + C OF 1ST WORD OF FET                  DBG=IDP     1630     A     
 DBG=IDP            SX2    B4          SET TO *CONNECT/DISCONT*                            DBG=IDP     1631     A     
 DBG=IDP            RJ     CON         CONNECT/DISCONT FILE                                DBG=IDP     1632     A     
 DBG=IDP                                                                                   DBG=IDP     1633     A     
 DBG=IDP   #OS3     IFEQ   .OS,3       IF SCOPE 3                                          DBG=IDP     1634     A     
 DBG=IDP            MI     X1,IDP=ER   IF *CON* DETECTED ERROR...                          DBG=IDP     1635     A     
 DBG=IDP   #OS3     ENDIF                                                                  DBG=IDP     1636     A     
 DBG=IDP   #UFT     ENDIF                                                                  DBG=IDP     1637     A     
 DBG=IDP                                                                                   DBG=IDP     1638     A     
 DBG=IDP            EQ     IDP=MN                                                          DBG=IDP     1639     A     
 DBG=IDP   ST=DPC   SPACE  4,8                                                             DBG0002      833     A     
 DBG=IDP  *         HERE TO PROCESS *DPC FWA,LWA,LEN*.                                     DBG0002      834     A     
 DBG=IDP                                                                                   DBG0002      835     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 192    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP   ST=DPC   BSS    0                                                               DBG0002      836     A     
 DBG=IDP            ZR     X5,IDP=ER   IF EOS ENCOUNTERED                                  DBG0002      837     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION -- FWA                          DBG0002      838     A     
 DBG=IDP            ZR     X3,IDP=ER   IF 1ST EXPRESSION *FWA* IS NULL                     DBG0002      839     A     
 DBG=IDP            SX6    X1                                                              DBG0002      840     A     
 DBG=IDP            SA6    AP=FWA                                                          DBG0002      841     A     
 DBG=IDP            MX1    0                                                               DBG0002      842     A     
 DBG=IDP            ZR     X5,ST=DPC2  IF FWA FOLLOWED BY EOS                              DBG0002      843     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION -- LWA                          DBG0002      844     A     
 DBG=IDP                                                                                   DBG0002      845     A     
 DBG=IDP   ST=DPC2  SX6    X1                                                              DBG0002      846     A     
 DBG=IDP            SA6    AP=LWA                                                          DBG0002      847     A     
 DBG=IDP            MX1    0                                                               DBG0002      848     A     
 DBG=IDP            ZR     X5,ST=DPC3  IF LWA (OR INVENTED LWA) FOLLOWED BY EOS            DBG0002      849     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION -- LEN                          DBG0002      850     A     
 DBG=IDP                                                                                   DBG0002      851     A     
 DBG=IDP   ST=DPC3  SX6    X1                                                              DBG0002      852     A     
 DBG=IDP            BX4    X6                                                              DBG0002      853     A     
 DBG=IDP            SA6    AP=LEN                                                          DBG0002      854     A     
 DBG=IDP            SA2    AP=FWA                                                          DBG0002      855     A     
 DBG=IDP            SA3    AP=LWA                                                          DBG0002      856     A     
 DBG=IDP            RJ     DOD         DUMP CENTRAL MEMORY - OCTAL AND DPC                 DBG0002      857     A     
 DBG=IDP            PL     B2,IDP=MN   IF FWA,LWA,AND LEN OK                               DBG0002      858     A     
 DBG=IDP            EQ     IDP=ER                                                          DBG0002      859     A     
 DBG=IDP   ST=DSC   SPACE  4,8                                                             DBG=IDP     1640     A     
 DBG=IDP  *         HERE TO PROCESS *DISCONT FILE*.                                        DBG=IDP     1641     A     
 DBG=IDP                                                                                   DBG=IDP     1642     A     
 DBG=IDP   ST=DSC   SA1    IDPSB+2                                                         DBG=IDP     1643          I
          -DBG0002
 DBG=IDP   ST=DSC   ZR     X5,IDP=ER   IF EOS ENCOUNTERED                                  DBG0002      860     A     
 DBG=IDP            SA5    A5+B1                                                           DBG0002      861     A     
 DBG=IDP            SB4    B1          SET TO *DISCONT*                                    DBG=IDP     1644     A     
 DBG=IDP            EQ     ST=CON2     PROCESS *DISCONT*...                                DBG=IDP     1645     A     
 DBG=IDP   ST=END   SPACE  4,8                                                             DBG=IDP     1646     A     
 DBG=IDP  *         HERE TO PROCESS *END*.                                                 DBG=IDP     1647     A     
 DBG=IDP                                                                                   DBG=IDP     1648     A     
 DBG=IDP   ST=END   BSS    0           ** END **                                           DBG=IDP     1649     A     
 DBG=IDP            PRIDP  (=C= BYE...=),,L.PRB                                            DBG=IDP     1650     A     
 DBG=IDP            WRITER =XF.IDO,,RCL                                                    DBG=IDP     1651     A     
 DBG=IDP                                                                                   DBG=IDP     1652     A     
 DBG=IDP   ST=ENDW  SA1    IDPPREG     (X1) = PSEUDO P REGISTER                            DBG=IDP     1653     A     
 DBG=IDP            SA2    IDPPOS      (X2) = POS COUNTER                                  DBG=IDP     1654     A     
 DBG=IDP            SA3    ST=ENDX                                                         DBG=IDP     1655     A     
 DBG=IDP            SA4    =46000460004600046000B                                          DBG=IDP     1656     A     
 DBG=IDP            BX7    X7-X7                                                           DBG=IDP     1657          I
          -DBG0002
 DBG=IDP            SB4    X2                                                              DBG=IDP     1658     A     
 DBG=IDP            LX6    X3                                                              DBG=IDP     1659     A     
 DBG=IDP            SB6    60                                                              DBG=IDP     1660     A     
 DBG=IDP            SA5    ST=ENDZ     (X5) = *JP B0+0* PLUG                               DBG=IDP     1661     A     
 DBG=IDP            LE     B4,B0,*+4S15  IF BAD POS COUNTER, SHAZAM...                     DBG=IDP     1662     A     
 DBG=IDP            LT     B4,B6,ST=END2 IF NEXT INSTRUCTION TO XEQ IS NOT UPPER,          DBG=IDP     1663     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 193    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                              (I.E.STEP MODE LEFT US IN MIDDLE OF WORD)         DBG=IDP     1664     A     
 DBG=IDP            NZ     X3,ST=END4  IF TO XEQ PREVIOUS CONTENTS OF BREAK ADDR           DBG=IDP     1665     A     
 DBG=IDP  *                              AT *ST=ENDX*                                      DBG=IDP     1666     A     
 DBG=IDP            LX6    X4                                                              DBG=IDP     1667     A     
 DBG=IDP            EQ     ST=END4                                                         DBG=IDP     1668     A     
 DBG=IDP                                                                                   DBG=IDP     1669     A     
 DBG=IDP   ST=END2  NZ     X3,ST=END3  IF TO XEQ PARTIAL WORD AT *ST=ENDX*                 DBG=IDP     1670     A     
 DBG=IDP            SA3    X1          (X3) = PARTIALLY XEQ WORD AT ((IDPPREG))            DBG=IDP     1671     A     
 DBG=IDP            SX1    X1+B1       (X1) = RETURN ADDR                                  DBG=IDP     1672     A     
 DBG=IDP                                                                                   DBG=IDP     1673     A     
 DBG=IDP  *         HERE BECAUSE STEP MODE LEFT US IN THE MIDDLE OF A WORD--               DBG=IDP     1674     A     
 DBG=IDP  *           LEFT JUSTIFY REMAINING INSTRUCTION(S) TO XEQ AND NO-OP FILL.         DBG=IDP     1675     A     
 DBG=IDP                                                                                   DBG=IDP     1676     A     
 DBG=IDP   ST=END3  MX0    1                                                               DBG=IDP     1677     A     
 DBG=IDP            SB7    B6-B4       (B7) = NR OF BITS ALREADY XEQ IN THIS WORD          DBG=IDP     1678     A     
 DBG=IDP            SB5    B4-B1                                                           DBG=IDP     1679     A     
 DBG=IDP            LX6    X3,B7       (X6) = INSTRUCTIONS TO XEQ-- LEFT JUSTIFIED         DBG=IDP     1680     A     
 DBG=IDP            AX0    X0,B5       (X0) = EXTRACT MASK FOR INST TO XEQ                 DBG=IDP     1681     A     
 DBG=IDP            BX6    X0*X6                                                           DBG=IDP     1682     A     
 DBG=IDP            BX4    -X0*X4                                                          DBG=IDP     1683     A     
 DBG=IDP            BX6    X6+X4       (X6) = INSTRUCTIONS TO XEQ W/ NO-OP FILL            DBG=IDP     1684     A     
 DBG=IDP                                                                                   DBG=IDP     1685     A     
 DBG=IDP  *         HERE TO SET UP *JP B0+RETURN ADDR*.                                    DBG=IDP     1686     A     
 DBG=IDP                                                                                   DBG=IDP     1687     A     
 DBG=IDP   ST=END4  SA6    ST=ENDX                                                         DBG=IDP     1688     A     
 DBG=IDP            SA7    IDPFLG      SET TO *NOT IN INTERACTIVE MODE*                    DBG=IDP     1689          I
          -DBG0002
 DBG=IDP            LX1    30                                                              DBG=IDP     1690     A     
 DBG=IDP            BX6    X5+X1       (X6) = 30/JP B0+RETURN ADDR, 30/NO-OP               DBG=IDP     1691     A     
 DBG=IDP            SA6    ST=ENDY                                                         DBG=IDP     1692     A     
 DBG=IDP            RJ     RSR=        RESTORE ORIGINAL REGISTERS                          DBG=IDP     1693     A     
 DBG=IDP                                                                                   DBG=IDP     1694     A     
 DBG=IDP   ST=ENDX  BSSZ   1           WORD TO EXECUTE BEFORE EXITING *IDP*                DBG=IDP     1695     A     
 DBG=IDP  *                              IF AN IDP GENERATED BREAK, THEN IS PLUG-          DBG=IDP     1696     A     
 DBG=IDP  *                              GED WITH PREVIOUS CONTENTS OF BREAK ADDR          DBG=IDP     1697     A     
 DBG=IDP  *                              IF AN ASSEMBLED BREAK, THEN IS .ZR.               DBG=IDP     1698     A     
 DBG=IDP  *                              SEE *BRK*.                                        DBG=IDP     1699     A     
 DBG=IDP                                                                                   DBG=IDP     1700     A     
 DBG=IDP   ST=ENDY  BSSZ   1           PLUGGED WITH *JP B0+RETURN ADDR*                    DBG=IDP     1701     A     
 DBG=IDP                                                                                   DBG=IDP     1702     A     
 DBG=IDP   ST=ENDZ  JP     B0+         PLUG VALUE                                          DBG=IDP     1703     A     
 DBG=IDP   ST=FRZ   SPACE  4,8                                                             DBG0006       22     A     
 DBG=IDP  *         HERE TO PROCESS *FREEZE*.                                              DBG0006       23     A     
 DBG=IDP                                                                                   DBG0006       24     A     
 DBG=IDP   ST=FRZ   BSS    0                                                               DBG0006       25     A     
 DBG=IDP            SA1    FW.IFR+/IFR/F.FRZ-RA.ORG                                        DBG0006       26     A     
 DBG=IDP            SA2    =0LFRZ                                                          DBG0006       27     A     
 DBG=IDP            MX3    -18                                                             DBG0006       28     A     
 DBG=IDP            BX1    -X3*X1      CLEAR OLD LFN                                       DBG0006       29     A     
 DBG=IDP            IX6    X1+X2       MERGE NEW LFN                                       DBG0006       30     A     
 DBG=IDP            SA6    A1                                                              DBG0006       31     A     
 DBG=IDP            RJ     FRZ         FREEZE INTERACTIVE HOST                             DBG0006       32     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 194    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            EQ     IDP=MN                                                          DBG0006       33     A     
 DBG=IDP   ST=JP    SPACE  4,8                                                             DBG=IDP     1704     A     
 DBG=IDP  *         HERE TO PROCESS *JUMP ADDR*.                                           DBG=IDP     1705     A     
 DBG=IDP                                                                                   DBG=IDP     1706     A     
 DBG=IDP   ST=JP    SA5    IDPSB+1                                                         DBG=IDP     1707          I
          -DBG0002
 DBG=IDP   ST=JP    BSS    0                                                               DBG0002      862     A     
 DBG=IDP            ZR     X5,IDP=MN   IF EOS ENCOUNTERED                                  DBG0002      863     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION-- ADDR                          DBG=IDP     1708     A     
 DBG=IDP            ZR     X3,IDP=MN   IF ADDR IS NULL                                     DBG=IDP     1709     A     
 DBG=IDP            SB2    X1                                                              DBG=IDP     1710     A     
 DBG=IDP            RJ     CHK         CHECK CM ADDRESS                                    DBG=IDP     1711     A     
 DBG=IDP            MI     B2,IDP.ER   IF ADDR IS BAD                                      DBG=IDP     1712     A     
 DBG=IDP            SA1    =46000460004600046000B                                          DBG=IDP     1713     A     
 DBG=IDP            SX7    60                                                              DBG=IDP     1714     A     
 DBG=IDP            SA7    IDPPOS                                                          DBG=IDP     1715     A     
 DBG=IDP            SX6    B2                                                              DBG=IDP     1716     A     
 DBG=IDP            BX7    X1                                                              DBG=IDP     1717     A     
 DBG=IDP            SA6    IDPPREG                                                         DBG=IDP     1718     A     
 DBG=IDP            SA7    ST=ENDX                                                         DBG=IDP     1719     A     
 DBG=IDP            EQ     ST=END                                                          DBG=IDP     1720     A     
 DBG=IDP   ST=OUT   SPACE  4,8                                                             DBG0002      864     A     
 DBG=IDP  **        HERE TO PROCESS *OUTPUT I,B*.                                          DBG0002      865     A     
 DBG=IDP                                                                                   DBG0002      866     A     
 DBG=IDP   ST=OUT   ZR     X5,IDP=MN   IF EOS ENCOUNTERED                                  DBG0002      867     A     
 DBG=IDP            SB6    IDPKOUT     (B6) = FWA OF *OUTPUT* OPTIONS KEYWORD TBL          DBG0002      868     A     
 DBG=IDP            RJ     POL         PROCESS OPTIONS LIST ITEM                           DBG0002      869     A     
 DBG=IDP            SA1    B6+B7                                                           DBG0002      870     A     
 DBG=IDP            ZR     X3,ST=OUT   IF NULL PARAMETER, IGNORE...                        DBG0002      871     A     
 DBG=IDP            SB5    X1          (B5) = OPTIONS PROCESSOR ADDR                       DBG0002      872     A     
 DBG=IDP            MX0    1                                                               DBG0002      873     A     
 DBG=IDP            SA2    IDPFLG                                                          DBG0002      874     A     
 DBG=IDP            BX6    -X6*X0      (X6) = +0 IF -OPTION, OR 1S59 IF +OPTION            DBG0002      875     A     
 DBG=IDP            JP     B5+                                                             DBG0002      876     A     
 DBG=IDP                                                                                   DBG0002      877     A     
 DBG=IDP  *         HERE IF *OUTPUT I* OR *OUTPUT -I*.                                     DBG0002      878     A     
 DBG=IDP                                                                                   DBG0002      879     A     
 DBG=IDP   ST=OUT2  LX0    IDF.IDOP-59                                                     DBG0002      880     A     
 DBG=IDP            BX2    -X0*X2      CLEAR EXISTING FIELD                                DBG0002      881     A     
 DBG=IDP            LX6    IDF.IDOP-59                                                     DBG0002      882     A     
 DBG=IDP            BX6    X2+X6                                                           DBG0002      883     A     
 DBG=IDP            SA6    A2                                                              DBG0002      884     A     
 DBG=IDP            EQ     ST=OUT                                                          DBG0002      885     A     
 DBG=IDP                                                                                   DBG0002      886     A     
 DBG=IDP  *         HERE IF *OUTPUT B* OR *OUTPUT -B*.                                     DBG0002      887     A     
 DBG=IDP                                                                                   DBG0002      888     A     
 DBG=IDP   ST=OUT3  LX0    IDF.BDOP-59                                                     DBG0002      889     A     
 DBG=IDP            BX2    -X0*X2      CLEAR EXISTING FIELD                                DBG0002      890     A     
 DBG=IDP            LX6    IDF.BDOP-59                                                     DBG0002      891     A     
 DBG=IDP            BX6    X2+X6                                                           DBG0002      892     A     
 DBG=IDP            SA6    A2                                                              DBG0002      893     A     
 DBG=IDP            EQ     ST=OUT                                                          DBG0002      894     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 195    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG0002      895     A     
 DBG=IDP  *         HERE IF *OUTPUT BE* OR *OUTPUT -BE*.                                   DBG0002      896     A     
 DBG=IDP                                                                                   DBG0002      897     A     
 DBG=IDP   ST=OUT4  LX0    IDF.BKOP-59                                                     DBG0002      898     A     
 DBG=IDP            BX2    -X0*X2      CLEAR EXISTING FIELD                                DBG0002      899     A     
 DBG=IDP            LX6    IDF.BKOP-59                                                     DBG0002      900     A     
 DBG=IDP            BX6    X2+X6       MERGE NEW BKO                                       DBG0002      901     A     
 DBG=IDP            SA6    A2                                                              DBG0002      902     A     
 DBG=IDP            EQ     ST=OUT                                                          DBG0002      903     A     
 DBG=IDP                                                                                   DBG0002      904     A     
 DBG=IDP  *         HERE IF *OUTPUT IE* OR *OUTPUT -IE*.                                   DBG0002      905     A     
 DBG=IDP                                                                                   DBG0002      906     A     
 DBG=IDP   ST=OUT5  LX0    IDF.IKOP-59                                                     DBG0002      907     A     
 DBG=IDP            BX2    -X0*X2      CLEAR EXISTING FIELD                                DBG0002      908     A     
 DBG=IDP            LX6    IDF.IKOP-59                                                     DBG0002      909     A     
 DBG=IDP            BX6    X2+X6       MERGE NEW IKO                                       DBG0002      910     A     
 DBG=IDP            SA6    A2                                                              DBG0002      911     A     
 DBG=IDP            EQ     ST=OUT                                                          DBG0002      912     A     
 DBG=IDP   ST=REG   SPACE  4,8                                                             DBG=IDP     1721     A     
 DBG=IDP  *         HERE TO PROCESS *REG R1,R2,...,RN*.                                    DBG=IDP     1722     A     
 DBG=IDP                                                                                   DBG=IDP     1723     A     
 DBG=IDP   ST=REG   SA5    IDPSB+2                                                         DBG=IDP     1724          I
          -DBG0002
 DBG=IDP   ST=REG   BSS    0                                                               DBG0002      913     A     
 DBG=IDP            SA0    A5          INITIALIZE (A0) = ADDR OF CURRENT TOKEN             DBG=IDP     1725     A     
 DBG=IDP            NZ     X5,ST=REG3  IF *REG* NOT FOLLOWED BY EOS                        DBG=IDP     1726          I
          -DBG0002
 DBG=IDP            NZ     X5,ST=REG2  IF *REG* NOT FOLLOWED BY EOS                        DBG0002      914     A     
 DBG=IDP            RJ     DAR         DUMP ALL REGISTERS                                  DBG=IDP     1727     A     
 DBG=IDP            EQ     IDP=MN                                                          DBG=IDP     1728     A     
 DBG=IDP                                                                                   DBG=IDP     1729     A     
 DBG=IDP  *         HERE FOR SELECTED REGISTER DUMP.                                       DBG=IDP     1730     A     
 DBG=IDP                                                                                   DBG=IDP     1731     A     
 DBG=IDP   ST=REG2  SA0    A0+B1                                                           DBG=IDP     1732     A     
 DBG=IDP            SA5    A0                                                              DBG=IDP     1733     A     
 DBG=IDP            NO                                                                     DBG=IDP     1734          I
          -DBG0002
 DBG=IDP            ZR     X5,IDP=MN   IF AN EOS ENCOUNTERED                               DBG=IDP     1735     A     
 DBG=IDP                                                                                   DBG=IDP     1736     A     
 DBG=IDP   ST=REG3  SX6    X5-O.SEP                                                        DBG=IDP     1737          I
          -DBG0002
 DBG=IDP            SX6    X5-O.SEP                                                        DBG0002      915     A     
 DBG=IDP            SX7    X5-O.CONS                                                       DBG=IDP     1738     A     
 DBG=IDP            SA4    IDP0TR                                                          DBG=IDP     1739     A     
 DBG=IDP            ZR     X6,ST=REG2  IF SEPARATOR TOKEN                                  DBG=IDP     1740     A     
 DBG=IDP            ZR     X7,ST=REG4  IF CONSTANT TOKEN                                   DBG=IDP     1741     A     
 DBG=IDP                                                                                   DBG=IDP     1742     A     
 DBG=IDP  *         HERE IF A NAME TOKEN, CHECK FOR REGISTER NAME.                         DBG=IDP     1743     A     
 DBG=IDP                                                                                   DBG=IDP     1744     A     
 DBG=IDP            LX5    CHAR                                                            DBG=IDP     1745     A     
 DBG=IDP            MX0    -CHAR                                                           DBG=IDP     1746     A     
 DBG=IDP            BX6    -X0*X5      (X6) = REGISTER TYPE (BAX)                          DBG=IDP     1747     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 196    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SX4    B0          (X4) = 0TR, WHERE T=0 (B REG)                       DBG=IDP     1748     A     
 DBG=IDP            SX1    X6-1RB                                                          DBG=IDP     1749     A     
 DBG=IDP            SX2    X6-1RA                                                          DBG=IDP     1750     A     
 DBG=IDP            SX3    X6-1RX                                                          DBG=IDP     1751     A     
 DBG=IDP            ZR     X1,ST=REG4  IF B REGISTER                                       DBG=IDP     1752     A     
 DBG=IDP            SX4    010B        (X4) = 0TR, WHERE T=1 (A REG)                       DBG=IDP     1753     A     
 DBG=IDP            ZR     X2,ST=REG4  IF A REGISTER                                       DBG=IDP     1754     A     
 DBG=IDP            SX4    020B        (X4) = 0TR, WHERE T=2 (X REG)                       DBG=IDP     1755     A     
 DBG=IDP            ZR     X3,ST=REG4  IF X REGISTER                                       DBG=IDP     1756     A     
 DBG=IDP            EQ     IDP=ER                                                          DBG=IDP     1757     A     
 DBG=IDP                                                                                   DBG=IDP     1758     A     
 DBG=IDP   ST=REG4  LX5    CHAR                                                            DBG=IDP     1759     A     
 DBG=IDP            MX0    -CHAR                                                           DBG=IDP     1760     A     
 DBG=IDP            BX6    -X0*X5                                                          DBG=IDP     1761     A     
 DBG=IDP            MX1    1R7-1R0+1                                                       DBG=IDP     1762     A     
 DBG=IDP            LX1    -1R0        (X1) = (0-7) SHIFT MASK                             DBG=IDP     1763     A     
 DBG=IDP            SB3    X6          (B3) = REGISTER NR (0-7)                            DBG=IDP     1764     A     
 DBG=IDP            LX7    X1,B3                                                           DBG=IDP     1765     A     
 DBG=IDP            LX5    5*CHAR                                                          DBG=IDP     1766     A     
 DBG=IDP            PL     X7,IDP=ER   IF NOT (0-7), ERROR...                              DBG=IDP     1767     A     
 DBG=IDP            MX0    -5*CHAR                                                         DBG=IDP     1768     A     
 DBG=IDP            BX7    -X0*X5                                                          DBG=IDP     1769     A     
 DBG=IDP            NZ     X7,IDP=ER   IF REST OF CHARS NON-ZERO, NOT A REGISTER           DBG=IDP     1770     A     
 DBG=IDP            SB6    B3-1R0      (B6) = REGISTER NR IN BINARY                        DBG=IDP     1771     A     
 DBG=IDP            MX0    60-3                                                            DBG=IDP     1772     A     
 DBG=IDP            BX7    X0*X4       STRIP OLD REGISTER NR                               DBG=IDP     1773     A     
 DBG=IDP            SX6    X7+B6       (X6) = NEW 0TR                                      DBG=IDP     1774     A     
 DBG=IDP            SB4    X6                                                              DBG=IDP     1775     A     
 DBG=IDP            SA6    IDP0TR                                                          DBG=IDP     1776     A     
 DBG=IDP            SB7    020B                                                            DBG=IDP     1777     A     
 DBG=IDP            GE     B4,B7,ST=REG5     IF DUMPING X REGISTER                         DBG=IDP     1778     A     
 DBG=IDP            RJ     DAB         DUMP -A- OR -B- REGISTER                            DBG=IDP     1779     A     
 DBG=IDP            EQ     ST=REG2                                                         DBG=IDP     1780     A     
 DBG=IDP                                                                                   DBG=IDP     1781     A     
 DBG=IDP   ST=REG5  RJ     DUX         DUMP -X- REGISTER                                   DBG=IDP     1782     A     
 DBG=IDP            EQ     ST=REG2                                                         DBG=IDP     1783     A     
 DBG=IDP   ST=RES   SPACE  4,8                                                             DBG=IDP     1784     A     
 DBG=IDP  *         HERE TO PROCESS *RESET*.                                               DBG=IDP     1785     A     
 DBG=IDP                                                                                   DBG=IDP     1786     A     
 DBG=IDP   ST=RES   SB6    IDPBA                                                           DBG=IDP     1787     A     
 DBG=IDP            RJ     CLZ         CLEAR *IDP* TABLE -- BREAK ADDRESSES                DBG=IDP     1788     A     
 DBG=IDP            SB6    IDPSET                                                          DBG=IDP     1789     A     
 DBG=IDP            RJ     CLZ         CLEAR *IDP* TABLE -- SET NAMES                      DBG=IDP     1790     A     
 DBG=IDP            RJ     IST         (RE)INITIALIZE DEFAULT *SET* NAMES                  DBG=IDP     1791     A     
 DBG=IDP            EQ     IDP=MN                                                          DBG=IDP     1792     A     
 DBG=IDP   ST=SET   SPACE  4,8                                                             DBG=IDP     1793     A     
 DBG=IDP  *         HERE TO PROCESS *SET NAME,ADDR*.                                       DBG=IDP     1794     A     
 DBG=IDP                                                                                   DBG=IDP     1795     A     
 DBG=IDP   ST=SET   SA5    IDPSB+2     (X5) = 42/0LNAME, 18/O.VAR                          DBG=IDP     1796          I
          -DBG0002
 DBG=IDP   ST=SET   ZR     X5,ST=SET3  IF EOS ENCOUNTERED                                  DBG0002      916     A     
 DBG=IDP            SA5    A5+B1       (X5) = 42/0LNAME,18/O.VAR                           DBG0002      917     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 197    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SX6    X5-O.VAR                                                        DBG=IDP     1797     A     
 DBG=IDP            NZ     X6,ST=SET3  IF NOT A NAME TOKEN                                 DBG=IDP     1798          I
          -DBG0002
 DBG=IDP            NZ     X6,IDP=ER   IF NOT A NAME TOKEN                                 DBG0002      918     A     
 DBG=IDP            MX0    7*CHAR                                                          DBG=IDP     1799     A     
 DBG=IDP            BX7    X0*X5                                                           DBG=IDP     1800     A     
 DBG=IDP            SA7    IDPNAM      SAVE 0LNAME                                         DBG=IDP     1801     A     
 DBG=IDP            SA5    A5+B1                                                           DBG=IDP     1802     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION -- ADDR                         DBG=IDP     1803     A     
 DBG=IDP            MX0    7*CHAR                                                          DBG=IDP     1804     A     
 DBG=IDP            SB6    IDPSET      (B6) = FWA OF *SET* TABLE                           DBG=IDP     1805     A     
 DBG=IDP            BX4    -X0*X1      (X4) = 42/0,18/VALUE OF *NAME*                      DBG=IDP     1806     A     
 DBG=IDP            SA1    IDPNAM                                                          DBG=IDP     1807     A     
 DBG=IDP            RJ     SKT         SEARCH *SET* TABLE FOR NAME                         DBG=IDP     1808     A     
 DBG=IDP            IX6    X1+X4       (X6) = 42/0LNAME, 18/VALUE OF NAME                  DBG=IDP     1809     A     
 DBG=IDP            ZR     X2,ST=SET2  IF NO FIND                                          DBG=IDP     1810     A     
 DBG=IDP            SA6    A2                                                              DBG=IDP     1811     A     
 DBG=IDP            EQ     IDP=MN                                                          DBG=IDP     1812     A     
 DBG=IDP                                                                                   DBG=IDP     1813     A     
 DBG=IDP   ST=SET2  RJ     ADZ         ADD A WORD TO IDP TABLE                             DBG=IDP     1814     A     
 DBG=IDP            EQ     IDP=MN                                                          DBG=IDP     1815     A     
 DBG=IDP                                                                                   DBG=IDP     1816     A     
 DBG=IDP  *         HERE TO LIST *SET* TABLE.                                              DBG=IDP     1817     A     
 DBG=IDP                                                                                   DBG=IDP     1818     A     
 DBG=IDP   ST=SET3  SA5    IDPSET                                                          DBG=IDP     1819     A     
 DBG=IDP            RJ     LST         LIST SET TABLE                                      DBG=IDP     1820     A     
 DBG=IDP            EQ     IDP=MN                                                          DBG=IDP     1821     A     
 DBG=IDP   ST=SNP   SPACE  4,8                                                             DBG=IDP     1822     A     
 DBG=IDP  *         HERE TO PROCESS *SNAP FWA,LWA,LEN*.                                    DBG=IDP     1823     A     
 DBG=IDP                                                                                   DBG=IDP     1824     A     
 DBG=IDP   ST=SNP   SA5    IDPSB+1                                                         DBG=IDP     1825          I
          -DBG0002
 DBG=IDP   ST=SNP   BSS    0                                                               DBG0002      919     A     
 DBG=IDP            ZR     X5,IDP=ER   IF EOS ENCOUNTERED                                  DBG0002      920     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION -- FWA                          DBG=IDP     1826     A     
 DBG=IDP            ZR     X3,IDP.ER   IF 1ST EXPRESSION *FWA* IS NULL                     DBG=IDP     1827     A     
 DBG=IDP            SX6    X1                                                              DBG=IDP     1828     A     
 DBG=IDP            SA6    AP=FWA                                                          DBG=IDP     1829     A     
 DBG=IDP            MX1    0                                                               DBG=IDP     1830     A     
 DBG=IDP            ZR     X5,ST=SNP2  IF FWA FOLLOWED BY EOS                              DBG=IDP     1831     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION -- LWA                          DBG=IDP     1832     A     
 DBG=IDP                                                                                   DBG=IDP     1833     A     
 DBG=IDP   ST=SNP2  SX6    X1                                                              DBG=IDP     1834     A     
 DBG=IDP            SA6    AP=LWA                                                          DBG=IDP     1835     A     
 DBG=IDP            MX1    0                                                               DBG=IDP     1836     A     
 DBG=IDP            ZR     X5,ST=SNP3  IF LWA (OR INVENTED LWA) FOLLOWED BY EOS            DBG=IDP     1837     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION -- LEN                          DBG=IDP     1838     A     
 DBG=IDP                                                                                   DBG=IDP     1839     A     
 DBG=IDP   ST=SNP3  SX6    X1                                                              DBG=IDP     1840     A     
 DBG=IDP            BX4    X6                                                              DBG=IDP     1841     A     
 DBG=IDP            SA6    AP=LEN                                                          DBG=IDP     1842     A     
 DBG=IDP            SA2    AP=FWA                                                          DBG=IDP     1843     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 198    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SA3    AP=LWA                                                          DBG=IDP     1844     A     
 DBG=IDP            RJ     DCM         DUMP CENTRAL MEMORY                                 DBG=IDP     1845     A     
 DBG=IDP            PL     B2,IDP=MN   IF FWA,LWA,AND LEN OK                               DBG=IDP     1846     A     
 DBG=IDP            EQ     IDP=ER                                                          DBG=IDP     1847     A     
 DBG=IDP   ST=STO   SPACE  4,8                                                             DBG=IDP     1848     A     
 DBG=IDP  *         HERE TO PROCESS *STORE ADDR,C1,C2,C3,C4*.                              DBG=IDP     1849     A     
 DBG=IDP                                                                                   DBG=IDP     1850     A     
 DBG=IDP   ST=STO   SA5    IDPSB+1                                                         DBG=IDP     1851          I
          -DBG0002
 DBG=IDP   ST=STO   BSS    0                                                               DBG0002      921     A     
 DBG=IDP            ZR     X5,IDP=ER   IF EOS ENCOUNTERED                                  DBG0002      922     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION -- ADDR TO STORE                DBG=IDP     1852     A     
 DBG=IDP            ZR     X3,IDP=ER   IF 1ST EXPRESSION *ADDR* IS NULL                    DBG=IDP     1853     A     
 DBG=IDP            SX6    X1                                                              DBG=IDP     1854     A     
 DBG=IDP            SB2    X1                                                              DBG=IDP     1855     A     
 DBG=IDP            SA6    IDPSTA      SAVE STORE ADDR                                     DBG=IDP     1856     A     
 DBG=IDP            RJ     CHK         CHECK CM ADDRESS -- STORE ADDR                      DBG=IDP     1857     A     
 DBG=IDP            MI     B2,IDP=ER   IF ADDR IS BAD                                      DBG=IDP     1858     A     
 DBG=IDP            MX6    0                                                               DBG=IDP     1859     A     
 DBG=IDP            SA6    A6+B1       CLEAR (IDPSTC) = NEW VALUE TO STORE                 DBG=IDP     1860     A     
 DBG=IDP            SA6    A6+B1       CLEAR (IDPSTM) = NULL PARAMETER MASK                DBG=IDP     1861     A     
 DBG=IDP            ZR     X5,ST=STO4  IF STORE ADDR FOLLOWED BY EOS                       DBG=IDP     1862     A     
 DBG=IDP                                                                                   DBG=IDP     1863     A     
 DBG=IDP   ST=STO2  RJ     PAS         PARSE SUBEXPRESSION -- C-N-                         DBG=IDP     1864     A     
 DBG=IDP            SA2    IDPSTC      (X2) = CURRENT VALUE TO BE STORED                   DBG=IDP     1865     A     
 DBG=IDP            SA4    A2+B1       (X4) = CURRENT NULL PARAMETER MASK                  DBG=IDP     1866     A     
 DBG=IDP            MX0    -15                                                             DBG=IDP     1867     A     
 DBG=IDP            LX2    15                                                              DBG=IDP     1868     A     
 DBG=IDP            LX4    15                                                              DBG=IDP     1869     A     
 DBG=IDP            BX6    X2+X1                                                           DBG=IDP     1870     A     
 DBG=IDP            LX7    X4                                                              DBG=IDP     1871     A     
 DBG=IDP            SA6    A2                                                              DBG=IDP     1872     A     
 DBG=IDP            NZ     X3,ST=STO3  IF C-N- NOT NULL                                    DBG=IDP     1873     A     
 DBG=IDP            BX7    -X0+X4                                                          DBG=IDP     1874     A     
 DBG=IDP                                                                                   DBG=IDP     1875     A     
 DBG=IDP   ST=STO3  SA7    A4                                                              DBG=IDP     1876     A     
 DBG=IDP            NZ     X5,ST=STO2  IF NOT FINISHED ASSEMBLING STORE VALUE              DBG=IDP     1877     A     
 DBG=IDP                                                                                   DBG=IDP     1878     A     
 DBG=IDP  *         HERE IF FINISHED ASSEMBLING STORE VALUE.                               DBG=IDP     1879     A     
 DBG=IDP                                                                                   DBG=IDP     1880     A     
 DBG=IDP   ST=STO4  SA1    IDPSTA      (X1) = STORE ADDR                                   DBG=IDP     1881     A     
 DBG=IDP            SA2    A1+B1       (X2) = NEW ASSEMBLED STORE VALUE                    DBG=IDP     1882     A     
 DBG=IDP            SA3    A2+B1       (X3) = NULL PARAMETER MASK                          DBG=IDP     1883     A     
 DBG=IDP            SA1    X1          (X1) = OLD CONTENTS OF STORE ADDR                   DBG=IDP     1884     A     
 DBG=IDP            BX6    X3*X1                                                           DBG=IDP     1885     A     
 DBG=IDP            BX7    X2+X6       (X7) = NEW CONTENTS OF STORE ADDR                   DBG=IDP     1886     A     
 DBG=IDP            SA7    A1          NEW REPLACES OLD                                    DBG=IDP     1887     A     
 DBG=IDP            SA7    A2                                                              DBG=IDP     1888     A     
 DBG=IDP            RJ     =XWOD       CONVERT A WORD OF BINARY TO OCTAL DPC--OLD          DBG=IDP     1889     A     
 DBG=IDP            SA6    IDPMSG4+1                                                       DBG=IDP     1890     A     
 DBG=IDP            SA7    A6+B1                                                           DBG=IDP     1891     A     
 DBG=IDP            SA1    IDPSTC      (X1) = NEW CONTENTS OF STORE ADDR                   DBG=IDP     1892     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 199    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            RJ     =XWOD       CONVERT A WORD OF BINARY TO OCTAL DPC--NEW          DBG=IDP     1893     A     
 DBG=IDP            SA6    IDPMSG5+1                                                       DBG=IDP     1894     A     
 DBG=IDP            SA7    A6+B1                                                           DBG=IDP     1895     A     
 DBG=IDP            PRIDP  IDPMSG4,4                                                       DBG=IDP     1896     A     
 DBG=IDP            PRIDP  IDPMSG5,4                                                       DBG=IDP     1897     A     
 DBG=IDP            EQ     IDP=MN                                                          DBG=IDP     1898     A     
 DBG=IDP   ST=STP   SPACE  4,8                                                             DBG=IDP     1899     A     
 DBG=IDP  *         HERE TO PROCESS *STEP L,RJ*,                                           DBG=IDP     1900     A     
 DBG=IDP  *                      OR *STPL ADDR1,L,RJ* FORM,                                DBG=IDP     1901     A     
 DBG=IDP  *                      OR *STEQ ADDR1,ADDR2,L,RJ* FORM.                          DBG=IDP     1902     A     
 DBG=IDP                                                                                   DBG=IDP     1903     A     
 DBG=IDP   ST=STP   SX6    B7+IDPKEY-IDPKST  (X6) = STEP TYPE CODE (XTC)                   DBG=IDP     1904     A     
 DBG=IDP            SA6    IDPXTC                                                          DBG=IDP     1905     A     
 DBG=IDP            SA5    IDPSB+1                                                         DBG=IDP     1906          I
          -DBG0002
 DBG=IDP            ZR     X6,ST=STP5  IF *STEP L,RJ* FORM                                 DBG=IDP     1907     A     
 DBG=IDP            ZR     X5,ST=STP1  IF EOS ENCOUNTERED                                  DBG0002      923     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION-- ADDR1                         DBG=IDP     1908     A     
 DBG=IDP            NZ     X3,ST=STP2  IF ADDR1 IS NULL                                    DBG=IDP     1909          I
          -DBG0002
 DBG=IDP            SX1    0           (X1) = DEFAULT ADDR1                                DBG=IDP     1910          I
          -DBG0002
 DBG=IDP            NZ     X3,ST=STP2  IF ADDR1 NOT NULL                                   DBG0002      924     A     
 DBG=IDP                                                                                   DBG0002      925     A     
 DBG=IDP   ST=STP1  SX1    0           (X1) = DEFAULT ADDR1                                DBG0002      926     A     
 DBG=IDP                                                                                   DBG=IDP     1911     A     
 DBG=IDP   ST=STP2  SB2    X1                                                              DBG=IDP     1912     A     
 DBG=IDP            RJ     CHK         CHECK CM ADDRESS                                    DBG=IDP     1913     A     
 DBG=IDP            MI     B2,IDP=ER   IF ADDR1 IS BAD                                     DBG=IDP     1914     A     
 DBG=IDP            SX6    B2                                                              DBG=IDP     1915     A     
 DBG=IDP            MX3    0                                                               DBG=IDP     1916     A     
 DBG=IDP            SA6    IDPXA1                                                          DBG=IDP     1917     A     
 DBG=IDP            SA2    IDPXTC                                                          DBG=IDP     1918     A     
 DBG=IDP            SX7    X2-XTC=EQ                                                       DBG=IDP     1919     A     
 DBG=IDP            MI     X7,ST=STP3  IF THIS IS *STPL ADDR1,L,RJ* FORM                   DBG=IDP     1920     A     
 DBG=IDP            SX7    X2-XTC=NR                                                       DBG=IDP     1921          I
          -DBG0002
 DBG=IDP            ZR     X7,ST=STP3  IF THIS IS *STNR NR,L,RJ* FORM                      DBG=IDP     1922          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     1923     A     
 DBG=IDP  *         ASSEMBLE ADDR2.                                                        DBG=IDP     1924     A     
 DBG=IDP                                                                                   DBG=IDP     1925     A     
 DBG=IDP            ZR     X5,ST=STP3  IF ADDR1 FOLLOWED BY EOS                            DBG=IDP     1926     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION-- ADDR2                         DBG=IDP     1927     A     
 DBG=IDP                                                                                   DBG=IDP     1928     A     
 DBG=IDP   ST=STP3  NZ     X3,ST=STP4  IF ADDR2 NOT NULL                                   DBG=IDP     1929     A     
 DBG=IDP            SA1    IDPXA1      (X1) = DEFAULT ADDR2                                DBG=IDP     1930     A     
 DBG=IDP                                                                                   DBG=IDP     1931     A     
 DBG=IDP   ST=STP4  SB2    X1                                                              DBG=IDP     1932     A     
 DBG=IDP            SX6    B2                                                              DBG=IDP     1933     A     
 DBG=IDP            RJ     CHK         CHECK CM ADDRESS                                    DBG=IDP     1934     A     
 DBG=IDP            MI     B2,IDP=ER   IF ADDR2 IS BAD                                     DBG=IDP     1935     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 200    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SA6    IDPXA2                                                          DBG=IDP     1936     A     
 DBG=IDP                                                                                   DBG=IDP     1937     A     
 DBG=IDP  *         HERE TO PROCESS *L,RJ* OPTIONS LIST.                                   DBG=IDP     1938     A     
 DBG=IDP                                                                                   DBG=IDP     1939     A     
 DBG=IDP   ST=STP5  ZR     X5,ST=STP6  IF EOS ENCOUNTERED                                  DBG=IDP     1940     A     
 DBG=IDP            SB6    IDPKSTO     (B6) = FWA OF STEP OPTIONS KEYWORD TABLE            DBG=IDP     1941     A     
 DBG=IDP            RJ     POL         PROCESS OPTIONS LIST                                DBG=IDP     1942     A     
 DBG=IDP            ZR     X3,ST=STP5  IF NULL PARAMETER                                   DBG=IDP     1943     A     
 DBG=IDP            SA7    IDPXOP+B7                                                       DBG=IDP     1944     A     
 DBG=IDP            EQ     ST=STP5                                                         DBG=IDP     1945     A     
 DBG=IDP                                                                                   DBG=IDP     1946     A     
 DBG=IDP  *         HERE TO SET UP FOR ACTUAL STEP.                                        DBG=IDP     1947     A     
 DBG=IDP                                                                                   DBG=IDP     1948     A     
 DBG=IDP   ST=STP6  SA1    IDPXTC                                                          DBG=IDP     1949     A     
 DBG=IDP            SA2    IDPXA2                                                          DBG=IDP     1950     A     
 DBG=IDP            MX6    0                                                               DBG=IDP     1951     A     
 DBG=IDP            SX3    X1-XTC=NR                                                       DBG=IDP     1952     A     
 DBG=IDP            BX7    X2                                                              DBG=IDP     1953     A     
 DBG=IDP            SA6    IDPXRJ      SET TO *AT LEVEL 0 NOW*                             DBG=IDP     1954     A     
 DBG=IDP            NZ     X3,ST=STP7  IF NOT *STNR NR,L,RJ*                               DBG=IDP     1955     A     
 DBG=IDP            SA7    IDPXA1      (RE)SET STEP COUNT                                  DBG=IDP     1956     A     
 DBG=IDP                                                                                   DBG=IDP     1957     A     
 DBG=IDP   ST=STP7  SA1    IDPXOL      (X1) = /L/ OPTION FLAG                              DBG=IDP     1958     A     
 DBG=IDP            SA2    A1+B1       (X2) = /RJ/ OPTION FLAG                             DBG=IDP     1959     A     
 DBG=IDP            SX6    B1          SET TO *LIST ON*                                    DBG=IDP     1960     A     
 DBG=IDP            SA3    IDPXRJ                                                          DBG=IDP     1961     A     
 DBG=IDP            NZ     X2,ST=STP7A IF /RJ/ TRACING ON                                  DBG=IDP     1962     A     
 DBG=IDP            ZR     X3,ST=STP7A IF AT LEVEL 0 (I.E. NO ACTIVE *RJ*)                 DBG=IDP     1963     A     
 DBG=IDP            SX6    B0          SET TO *LIST OFF*                                   DBG=IDP     1964     A     
 DBG=IDP                                                                                   DBG=IDP     1965     A     
 DBG=IDP   ST=STP7A BX7    X6*X1                                                           DBG=IDP     1966     A     
 DBG=IDP            SA7    IDPXLST                                                         DBG=IDP     1967     A     
 DBG=IDP                                                                                   DBG=IDP     1968     A     
 DBG=IDP  *         HERE TO CHECK STEP CONDITIONS.                                         DBG=IDP     1969     A     
 DBG=IDP                                                                                   DBG=IDP     1970     A     
 DBG=IDP   ST=STP8  SA3    IDPXTC      (X3) = STEP TYPE CODE                               DBG=IDP     1971     A     
 DBG=IDP            SA1    IDPXA1      (X1) = A1                                           DBG=IDP     1972     A     
 DBG=IDP            SA2    A1+B1       (X2) = A2                                           DBG=IDP     1973     A     
 DBG=IDP            SB5    X3                                                              DBG=IDP     1974     A     
 DBG=IDP            SX6    X3-XTC=NR                                                       DBG=IDP     1975     A     
 DBG=IDP            SX0    X3-XTC=AR                                                       DBG=IDP     1976     A     
 DBG=IDP            SX7    X3-XTC=RNG                                                      DBG=IDP     1977     A     
 DBG=IDP            ZR     X3,ST=STP9  IF *STEP L,RJ*                                      DBG=IDP     1978     A     
 DBG=IDP            ZR     X6,ST=STP10 IF *STNR NR,L,RJ*                                   DBG=IDP     1979     A     
 DBG=IDP            ZR     X0,ST=STP9  IF *STAR ADDR1,ADDR2,L,RJ*                          DBG=IDP     1980     A     
 DBG=IDP            ZR     X7,ST=STP12 IF *STRANGE ADDR1,ADDR2,L,RJ*                       DBG=IDP     1981     A     
 DBG=IDP                                                                                   DBG=IDP     1982     A     
 DBG=IDP            SA1    X1          (X1) = C1                                           DBG=IDP     1983     A     
 DBG=IDP            SA2    X2          (X2) = C2                                           DBG=IDP     1984     A     
 DBG=IDP            RJ     CBC         CHECK STEP CONDITION                                DBG=IDP     1985     A     
 DBG=IDP            ZR     B6,IDP=MN   IF CONDITION NOT SATISFIED                          DBG=IDP     1986     A     
 DBG=IDP                                                                                   DBG=IDP     1987     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 201    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP   ST=STP9  RJ     STP         STEP ONE INSTRUCTION                                DBG=IDP     1988     A     
 DBG=IDP            SA1    IDPXTC                                                          DBG=IDP     1989     A     
 DBG=IDP            SA2    IDPXRJ                                                          DBG=IDP     1990     A     
 DBG=IDP            SA3    IDPXORJ                                                         DBG=IDP     1991     A     
 DBG=IDP            SX6    X1-XTC=AR                                                       DBG=IDP     1992     A     
 DBG=IDP            ZR     X6,ST=STP9A IF *STAR ADDR1,ADDR2,L,RJ*                          DBG=IDP     1993     A     
 DBG=IDP            NZ     X1,ST=STP7  IF NOT *STEP L,RJ*                                  DBG=IDP     1994     A     
 DBG=IDP                                                                                   DBG=IDP     1995     A     
 DBG=IDP  *         HERE IF *STEP L,RJ*.                                                   DBG=IDP     1996     A     
 DBG=IDP                                                                                   DBG=IDP     1997     A     
 DBG=IDP            NZ     X3,IDP=MN   IF /RJ/ SELECTED                                    DBG=IDP     1998     A     
 DBG=IDP            ZR     X2,IDP=MN   IF AT LEVEL 0                                       DBG=IDP     1999     A     
 DBG=IDP            EQ     ST=STP7                                                         DBG=IDP     2000     A     
 DBG=IDP                                                                                   DBG=IDP     2001     A     
 DBG=IDP  *         HERE TO PROCESS *STAR ADDR1,ADDR2,L,RJ*.                               DBG=IDP     2002     A     
 DBG=IDP                                                                                   DBG=IDP     2003     A     
 DBG=IDP   ST=STP9A SA1    IDPXAR                                                          DBG=IDP     2004     A     
 DBG=IDP            SA2    IDPXA1                                                          DBG=IDP     2005     A     
 DBG=IDP            SA3    IDPXA2                                                          DBG=IDP     2006     A     
 DBG=IDP            SA4    IDPPREG                                                         DBG=IDP     2007     A     
 DBG=IDP            IX6    X1-X2                                                           DBG=IDP     2008     A     
 DBG=IDP            IX7    X3-X1                                                           DBG=IDP     2009     A     
 DBG=IDP            MI     X6,ST=STP7  IF ADDR BELOW LOWER LIMIT                           DBG=IDP     2010     A     
 DBG=IDP            MI     X7,ST=STP7  IF ADDR ABOVE UPPER LIMIT                           DBG=IDP     2011     A     
 DBG=IDP            EQ     IDP=MN                                                          DBG=IDP     2012     A     
 DBG=IDP                                                                                   DBG=IDP     2013     A     
 DBG=IDP  *         HERE TO PROCESS *STNR NR,L,RJ*.                                        DBG=IDP     2014     A     
 DBG=IDP                                                                                   DBG=IDP     2015     A     
 DBG=IDP   ST=STP10 SA2    IDPXORJ                                                         DBG=IDP     2016     A     
 DBG=IDP            SA3    IDPXRJ                                                          DBG=IDP     2017     A     
 DBG=IDP            SX6    X1-1                                                            DBG=IDP     2018     A     
 DBG=IDP            NZ     X2,ST=STP11 IF /RJ/ SELECTED                                    DBG=IDP     2019     A     
 DBG=IDP            NZ     X3,ST=STP9  IF NOT AT LEVEL 0                                   DBG=IDP     2020     A     
 DBG=IDP                                                                                   DBG=IDP     2021     A     
 DBG=IDP   ST=STP11 MI     X6,IDP=MN   IF NO MORE INSTRUCTIONS TO STEP                     DBG=IDP     2022     A     
 DBG=IDP            SA6    A1                                                              DBG=IDP     2023     A     
 DBG=IDP            EQ     ST=STP9                                                         DBG=IDP     2024     A     
 DBG=IDP                                                                                   DBG=IDP     2025     A     
 DBG=IDP  *         HERE TO PROCESS *STRANGE ADDR1,ADDR2,L,RJ*.                            DBG=IDP     2026     A     
 DBG=IDP                                                                                   DBG=IDP     2027     A     
 DBG=IDP   ST=STP12 SA4    IDPPREG                                                         DBG=IDP     2028     A     
 DBG=IDP            IX6    X4-X1                                                           DBG=IDP     2029     A     
 DBG=IDP            IX7    X2-X4                                                           DBG=IDP     2030     A     
 DBG=IDP            MI     X6,IDP=MN   IF P BELOW LOWER RANGE                              DBG=IDP     2031     A     
 DBG=IDP            MI     X7,IDP=MN   IF P ABOVE UPPER RANGE                              DBG=IDP     2032     A     
 DBG=IDP            EQ     ST=STP9                                                         DBG=IDP     2033     A     
 DBG=IDP   ST=UBK   SPACE  4,8                                                             DBG=IDP     2034     A     
 DBG=IDP  *         HERE TO PROCESS *UNBREAK ADDR*.                                        DBG=IDP     2035          I
          -DBG0002
 DBG=IDP  *         HERE TO PROCESS *UNBREAK ADDR1,...,ADDRN*.                             DBG0002      927     A     
 DBG=IDP                                                                                   DBG=IDP     2036     A     
 DBG=IDP   ST=UBK   SA5    IDPSB+1                                                         DBG=IDP     2037          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 202    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
          -DBG0002
 DBG=IDP   ST=UBK   BSS    0                                                               DBG0002      928     A     
 DBG=IDP            ZR     X5,IDP=MN   IF EOS ENCOUNTERED                                  DBG0002      929     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION-- ADDR                          DBG=IDP     2038     A     
 DBG=IDP            ZR     X3,IDP.ER   IF 1ST EXPRESSION *ADDR* IS NULL                    DBG=IDP     2039          I
          -DBG0002
 DBG=IDP            ZR     X3,ST=UBK   IF ADDR IS NULL                                     DBG0002      930     A     
 DBG=IDP            SB6    IDPBA                                                           DBG=IDP     2040     A     
 DBG=IDP            MX0    -18                                                             DBG=IDP     2041     A     
 DBG=IDP            BX0    -X0                                                             DBG=IDP     2042     A     
 DBG=IDP            RJ     SKT         SEARCH FOR *ADDR*                                   DBG=IDP     2043     A     
 DBG=IDP            ZR     X2,IDP=MN   IF NO FIND                                          DBG=IDP     2044          I
          -DBG0002
 DBG=IDP            ZR     X2,IDP=ER   IF NO FIND                                          DBG0002      931     A     
 DBG=IDP            SB6    B7+B7                                                           DBG=IDP     2045     A     
 DBG=IDP            SA4    IDPBC+B6                                                        DBG=IDP     2046     A     
 DBG=IDP            MX6    -1                                                              DBG=IDP     2047     A     
 DBG=IDP            BX7    X4                                                              DBG=IDP     2048     A     
 DBG=IDP            SA6    A2          SET TO *THIS ENTRY IS AVAILABLE*                    DBG=IDP     2049     A     
 DBG=IDP            SA7    X2          RESTORE PREVIOUS CONTENTS OF BREAK ADDR             DBG=IDP     2050     A     
 DBG=IDP            EQ     IDP=MN      RETURN TO MAIN LOOP...                              DBG=IDP     2051          I
          -DBG0002
 DBG=IDP            EQ     ST=UBK      CONTINUE...                                         DBG0002      932     A     
 DBG=IDP   ST=UST   SPACE  4,8                                                             DBG=IDP     2052     A     
 DBG=IDP  *         HERE TO PROCESS *UNSET NAME1,...,NAMEN*.                               DBG=IDP     2053     A     
 DBG=IDP                                                                                   DBG=IDP     2054     A     
 DBG=IDP   ST=UST   SA5    IDPSB+1                                                         DBG=IDP     2055          I
          -DBG0002
 DBG=IDP   ST=UST   BSS    0                                                               DBG0002      933     A     
 DBG=IDP                                                                                   DBG=IDP     2056     A     
 DBG=IDP   ST=UST2  SA5    A5+B1                                                           DBG=IDP     2057          I
          -DBG0002
 DBG=IDP   ST=UST2  ZR     X5,IDP=MN   IF EOS ENCOUNTERED                                  DBG0002      934     A     
 DBG=IDP            SA5    A5+B1                                                           DBG0002      935     A     
 DBG=IDP            NO                                                                     DBG=IDP     2058     A     
 DBG=IDP            ZR     X5,IDP=MN   IF EOS TOKEN                                        DBG=IDP     2059          I
          -DBG0002
 DBG=IDP            SX6    X5-O.VAR                                                        DBG=IDP     2060     A     
 DBG=IDP            NZ     X6,ST=UST2  IF NOT A NAME TOKEN                                 DBG=IDP     2061     A     
 DBG=IDP            SB6    IDPSET                                                          DBG=IDP     2062     A     
 DBG=IDP            MX0    7*CHAR                                                          DBG=IDP     2063     A     
 DBG=IDP            BX1    X5                                                              DBG=IDP     2064     A     
 DBG=IDP            RJ     SKT         SEARCH FOR NAME                                     DBG=IDP     2065     A     
 DBG=IDP            ZR     X2,ST=UST2  IF NO FIND                                          DBG=IDP     2066     A     
 DBG=IDP            SX6    -B1                                                             DBG=IDP     2067     A     
 DBG=IDP            SA6    A2          SET TO *THIS ENTRY IS AVAILABLE*                    DBG=IDP     2068     A     
 DBG=IDP            EQ     ST=UST2                                                         DBG=IDP     2069     A     
 DBG=IDP   ST=WHR   SPACE  4,8                                                             DBG=IDP     2070     A     
 DBG=IDP  *         HERE TO PROCESS *WHERE ADDR1,...,ADDRN*.                               DBG=IDP     2071     A     
 DBG=IDP                                                                                   DBG=IDP     2072     A     
 DBG=IDP   ST=WHR   SA5    IDPSB+1                                                         DBG=IDP     2073          I
          -DBG0002
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 203    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP   ST=WHR   BSS    0                                                               DBG0002      936     A     
 DBG=IDP            ZR     X5,ST=WHR2A IF EOS ENCOUNTERED                                  DBG0002      937     A     
 DBG=IDP                                                                                   DBG=IDP     2074     A     
 DBG=IDP   ST=WHR2  RJ     PAS         PARSE SUBEXPRESSION                                 DBG=IDP     2075     A     
 DBG=IDP            NZ     X3,ST=WHR3  IF ADDR NOT NULL                                    DBG=IDP     2076     A     
 DBG=IDP            SA1    IDPPREG                                                         DBG=IDP     2077          I
          -DBG0002
 DBG=IDP                                                                                   DBG0002      938     A     
 DBG=IDP   ST=WHR2A SA1    IDPPREG                                                         DBG0002      939     A     
 DBG=IDP                                                                                   DBG=IDP     2078     A     
 DBG=IDP   ST=WHR3  MX0    -18                                                             DBG=IDP     2079     A     
 DBG=IDP            BX1    -X0*X1                                                          DBG=IDP     2080     A     
 DBG=IDP            LX0    X1          SAVE (X1) = ADDR                                    DBG=IDP     2081     A     
 DBG=IDP            RJ     COD         CONVERT BINARY TO OCTAL DPC                         DBG=IDP     2082     A     
 DBG=IDP            LX6    9*CHAR-6*CHAR                                                   DBG=IDP     2083     A     
 DBG=IDP            BX1    X0                                                              DBG=IDP     2084     A     
 DBG=IDP            SA6    SNAPLNE                                                         DBG=IDP     2085     A     
 DBG=IDP                                                                                   DBG=IDP     2086     A     
 DBG=IDP   #FRA     IF     DEF,FRA=                                                        DBG=IDP     2087     A     
 DBG=IDP            SB7    ST=WHR4     (B7) = RETURN ADDRESS FOR *FRA=*                    DBG=IDP     2088     A     
 DBG=IDP            EQ     =XFRA=      FIND RELATIVE ADDRESS                               DBG=IDP     2089     A     
 DBG=IDP                                                                                   DBG=IDP     2090     A     
 DBG=IDP   ST=WHR4  SA6    A6+B1                                                           DBG=IDP     2091     A     
 DBG=IDP            SA7    A6+B1                                                           DBG=IDP     2092     A     
 DBG=IDP                                                                                   DBG=IDP     2093     A     
 DBG=IDP   #FRA     ELSE                                                                   DBG=IDP     2094     A     
 DBG=IDP            MX6    0                                                               DBG=IDP     2095     A     
 DBG=IDP            SA6    A6+B1       MARK EOL                                            DBG=IDP     2096     A     
 DBG=IDP   #FRA     ENDIF                                                                  DBG=IDP     2097     A     
 DBG=IDP                                                                                   DBG=IDP     2098     A     
 DBG=IDP            PRIDP  SNAPLNE                                                         DBG=IDP     2099     A     
 DBG=IDP            NZ     X5,ST=WHR2  IF NOT EOS TOKEN                                    DBG=IDP     2100     A     
 DBG=IDP            EQ     IDP=MN                                                          DBG=IDP     2101     A     
 DBG=IDP   ST=XEQ   SPACE  4,8                                                             DBG=IDP     2102     A     
 DBG=IDP  *         HERE TO PROCESS *XEQ*.                                                 DBG=IDP     2103     A     
 DBG=IDP                                                                                   DBG=IDP     2104     A     
 DBG=IDP   ST=XEQ   =      ST=STP6                                                         DBG=IDP     2105     A     
 DBG=IDP   ST=XFR   SPACE  4,8                                                             DBG0002      940     A     
 DBG=IDP  *         HERE TO PROCESS *XFER NR*.                                             DBG0002      941     A     
 DBG=IDP                                                                                   DBG0002      942     A     
 DBG=IDP   ST=XFR   ZR     X5,ST=XFR1  IF EOS ENCOUNTERED                                  DBG0002      943     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION -- NR                           DBG0002      944     A     
 DBG=IDP            NZ     X3,ST=XFR2  IF NR NOT NULL                                      DBG0002      945     A     
 DBG=IDP                                                                                   DBG0002      946     A     
 DBG=IDP   ST=XFR1  SX6    L.XFT       (X6) = DEFAULT NR = ALL ENTRIES                     DBG0002      947     A     
 DBG=IDP                                                                                   DBG0002      948     A     
 DBG=IDP   ST=XFR2  RJ     LXT         LIST XFER TABLE                                     DBG0002      949     A     
 DBG=IDP            EQ     IDP=MN                                                          DBG0002      950     A     
 DBG=IDP   ST=XNR   SPACE  4,8                                                             DBG0002      951     A     
 DBG=IDP  *         HERE TO PROCESS *STNR,NR,L,RJ*.                                        DBG0002      952     A     
 DBG=IDP                                                                                   DBG0002      953     A     
 DBG=IDP   ST=XNR   SX6    XTC=NR                                                          DBG0002      954     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 204    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SA6    IDPXTC                                                          DBG0002      955     A     
 DBG=IDP            ZR     X5,ST=STP5  IF EOS ENCOUNTERED                                  DBG0002      956     A     
 DBG=IDP            RJ     PAS         PARSE SUBEXPRESSION-- NR                            DBG0002      957     A     
 DBG=IDP            ZR     X3,ST=STP5  IF NR IS NULL                                       DBG0002      958     A     
 DBG=IDP            SA6    IDPXA1                                                          DBG0002      959     A     
 DBG=IDP            SA6    IDPXA2                                                          DBG0002      960     A     
 DBG=IDP            EQ     ST=STP5     REJOIN NORMAL STEP PROCESSING FLOW...               DBG0002      961     A     
 DBG=IDP   ADZ      SPACE  4,8                                                             DBG=IDP     2106     A     
 DBG=IDP  **        ADZ - ADD A WORD TO IDP TABLE.                                         DBG=IDP     2107     A     
 DBG=IDP  *                                                                                DBG=IDP     2108     A     
 DBG=IDP  *                                                                                DBG=IDP     2109     A     
 DBG=IDP  *                THIS ROUTINE WILL ADD A SINGLE WORD TO AN IDP FIXED             DBG=IDP     2110     A     
 DBG=IDP  *         LENGTH TABLE THAT IS TERMINATED BY A ZERO WORD, AND WHERE              DBG=IDP     2111     A     
 DBG=IDP  *         AN AVAILABLE SPACE IS MARKED BY A -1.                                  DBG=IDP     2112     A     
 DBG=IDP  *                                                                                DBG=IDP     2113     A     
 DBG=IDP  *         ENTRY  (X6)   =  WORD TO BE ADDED TO TABLE                             DBG=IDP     2114     A     
 DBG=IDP  *                (B6)   =  FWA OF TABLE                                          DBG=IDP     2115     A     
 DBG=IDP  *                                                                                DBG=IDP     2116     A     
 DBG=IDP  *         EXIT   TO *IDP.ER* IF NO SPACE AVAILABLE                               DBG=IDP     2117          I
          -DBG0002
 DBG=IDP  *         EXIT   TO *IDP=OV* IF TABLE OVERFLOW                                   DBG0002      962     A     
 DBG=IDP  *                (X1)   =  -1 IF ENTRY ALREADY IN TABLE, ELSE                    DBG=IDP     2118     A     
 DBG=IDP  *                       =  ENTRY THAT WAS MADE IN TABLE                          DBG=IDP     2119     A     
 DBG=IDP  *                (B7)   =  ORDINAL OF ENTRY THAT WAS MADE OR OF MATCHING         DBG=IDP     2120     A     
 DBG=IDP  *                            ENTRY                                               DBG=IDP     2121     A     
 DBG=IDP  *                                                                                DBG=IDP     2122     A     
 DBG=IDP  *         USES   X - 0,1,2,3,6,7                                                 DBG=IDP     2123     A     
 DBG=IDP  *                A - 1,2                                                         DBG=IDP     2124     A     
 DBG=IDP  *                B - 7                                                           DBG=IDP     2125     A     
 DBG=IDP  *                                                                                DBG=IDP     2126     A     
 DBG=IDP  *         CALLS  IDP.ER,PRIDP,SKT                                                DBG=IDP     2127     A     
 DBG=IDP                                                                                   DBG=IDP     2128     A     
 DBG=IDP                                                                                   DBG=IDP     2129     A     
 DBG=IDP   ADZ      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     2130     A     
 DBG=IDP            BX1    X6                                                              DBG=IDP     2131     A     
 DBG=IDP            MX0    60                                                              DBG=IDP     2132     A     
 DBG=IDP            SA6    ADZA        SAVE (X6)                                           DBG=IDP     2133     A     
 DBG=IDP            RJ     SKT         SEARCH TO SEE IF ENTRY ALREADY IN TABLE             DBG=IDP     2134     A     
 DBG=IDP            SX1    -B1                                                             DBG=IDP     2135     A     
 DBG=IDP            NZ     X2,EXIT.    IF ENTRY ALREADY IN TABLE                           DBG=IDP     2136     A     
 DBG=IDP            RJ     SKT         SEARCH FOR AVAILABLE SPACE                          DBG=IDP     2137     A     
 DBG=IDP            ZR     X2,ADZ2     IF NO AVAILABLE SPACE LEFT                          DBG=IDP     2138          I
          -DBG0002
 DBG=IDP            ZR     X2,IDP=OV   IF NO AVAILABLE SPACE LEFT                          DBG0002      963     A     
 DBG=IDP            SA1    ADZA                                                            DBG=IDP     2139     A     
 DBG=IDP            BX6    X1                                                              DBG=IDP     2140     A     
 DBG=IDP            SA6    A2          MAKE NEW TABLE ENTRY                                DBG=IDP     2141     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     2142     A     
 DBG=IDP                                                                                   DBG=IDP     2143          I
          -DBG0002
 DBG=IDP   ADZ2     PRIDP  (=C= NO TABLE SPACE LEFT=),,L.PRB                               DBG=IDP     2144          I
          -DBG0002
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 205    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            EQ     IDP.ER                                                          DBG=IDP     2145          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2146     A     
 DBG=IDP                                                                                   DBG=IDP     2147     A     
 DBG=IDP   ADZA     BSSZ   1                                                               DBG=IDP     2148     A     
 DBG=IDP   BBD      SPACE  4,8                                                             DBG=IDP     2149          I
          -DBG0002
 DBG=IDP  **        BBD - BURST/BUILD IDP COMMAND.                                         DBG=IDP     2150          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP     2151          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP     2152          I
          -DBG0002
 DBG=IDP  *                FROM THE SOURCE LINE IMAGE AT (IDPLIM) ET SEQ,                  DBG=IDP     2153          I
          -DBG0002
 DBG=IDP  *         *BBD* BURSTS AND BUILDS AN IDP STATEMENT INTO ITS TOKEN FORM           DBG=IDP     2154          I
          -DBG0002
 DBG=IDP  *         AT (IDPSB) ET SEQ.                                                     DBG=IDP     2155          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP     2156          I
          -DBG0002
 DBG=IDP  *         ENTRY  (A5,X5)  =  ADDR + CONTENTS OF 1ST WORD OF SOURCE LINE          DBG=IDP     2157          I
          -DBG0002
 DBG=IDP  *                              IMAGE TO BE BURST AND BUILT                       DBG=IDP     2158          I
          -DBG0002
 DBG=IDP  *                (B6)     =  -NR OF WORDS IN (IDPLIM) TO BE BURST/BUILT          DBG=IDP     2159          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP     2160          I
          -DBG0002
 DBG=IDP  *         EXIT   (IDPSB) ET SEQ  =  TOKEN FORM OF STATEMENT                      DBG=IDP     2161          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP     2162          I
          -DBG0002
 DBG=IDP  *         USES   ALL                                                             DBG=IDP     2163          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP     2164          I
          -DBG0002
 DBG=IDP  *         CALLS  NONE                                                            DBG=IDP     2165          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2166          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2167          I
          -DBG0002
 DBG=IDP   BBD      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     2168          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2169          I
          -DBG0002
 DBG=IDP  *         BURST/BUILD INITIALIZATION.                                            DBG=IDP     2170          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2171          I
          -DBG0002
 DBG=IDP            SB3    CHAR                                                            DBG=IDP     2172          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 206    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
          -DBG0002
 DBG=IDP            SB4    8*CHAR-1*CHAR                                                   DBG=IDP     2173          I
          -DBG0002
 DBG=IDP            SB7    9*CHAR                                                          DBG=IDP     2174          I
          -DBG0002
 DBG=IDP            MX0    -CHAR                                                           DBG=IDP     2175          I
          -DBG0002
 DBG=IDP            LX5    CHAR                                                            DBG=IDP     2176          I
          -DBG0002
 DBG=IDP            BX4    -X0*X5                                                          DBG=IDP     2177          I
          -DBG0002
 DBG=IDP            MX2    -1R+                                                            DBG=IDP     2178          I
          -DBG0002
 DBG=IDP            SA1    =10H                                                            DBG=IDP     2179          I
          -DBG0002
 DBG=IDP            SA0    10*CHAR                                                         DBG=IDP     2180          I
          -DBG0002
 DBG=IDP            BX6    X6-X6                                                           DBG=IDP     2181          I
          -DBG0002
 DBG=IDP            SB5    -B3                                                             DBG=IDP     2182          I
          -DBG0002
 DBG=IDP            SA6    IDPSB-1     (A6+1) = 1ST ADDR TO STORE                          DBG=IDP     2183          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2184          I
          -DBG0002
 DBG=IDP  *         BURST/BUILD IDP STATEMENT KEYWORD TO X6.                               DBG=IDP     2185          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2186          I
          -DBG0002
 DBG=IDP   BBD2     LX5    CHAR                                                            DBG=IDP     2187          I
          -DBG0002
 DBG=IDP            SB2    X4+7777B                                                        DBG=IDP     2188          I
          -DBG0002
 DBG=IDP            AX7    X2,B2                                                           DBG=IDP     2189          I
          -DBG0002
 DBG=IDP            SB7    B7-B3                                                           DBG=IDP     2190          I
          -DBG0002
 DBG=IDP            SB5    B5+B3                                                           DBG=IDP     2191          I
          -DBG0002
 DBG=IDP            LX3    X4,B4                                                           DBG=IDP     2192          I
          -DBG0002
 DBG=IDP            BX4    -X0*X5                                                          DBG=IDP     2193          I
          -DBG0002
 DBG=IDP            ZR     X7,BBD2A    IF KEYWORD TERMINATOR FOUND                         DBG=IDP     2194          I
          -DBG0002
 DBG=IDP            SB4    B4-B3                                                           DBG=IDP     2195          I
          -DBG0002
 DBG=IDP            BX6    X6+X3                                                           DBG=IDP     2196          I
          -DBG0002
 DBG=IDP            GE     B4,B0,BBD2  IF PACKING REG (X6) NOT FULL                        DBG=IDP     2197          I
          -DBG0002
 DBG=IDP            EQ     IDP.ER      ERR - *KEYWORD .GT. 7 CHARS*                        DBG=IDP     2198          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 207    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2199          I
          -DBG0002
 DBG=IDP   BBD2A    SB2    B2-7777B    REMOVE BIAS                                         DBG=IDP     2200          I
          -DBG0002
 DBG=IDP            MX7    1                                                               DBG=IDP     2201          I
          -DBG0002
 DBG=IDP            SB5    B5-B1                                                           DBG=IDP     2202          I
          -DBG0002
 DBG=IDP            AX7    X7,B5       (X7) = MASK TO USE IN KEYWORD SEARCH                DBG=IDP     2203          I
          -DBG0002
 DBG=IDP            SB5    1R                                                              DBG=IDP     2204          I
          -DBG0002
 DBG=IDP            SA7    IDPKMX                                                          DBG=IDP     2205          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2206          I
          -DBG0002
 DBG=IDP  *         HERE TO STORE PACKING REG (X6) AND TERMINATOR CHARACTER.               DBG=IDP     2207          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2208          I
          -DBG0002
 DBG=IDP   BBD3     LX6    10*CHAR-8*CHAR                                                  DBG=IDP     2209          I
          -DBG0002
 DBG=IDP            LX7    X6,B3                                                           DBG=IDP     2210          I
          -DBG0002
 DBG=IDP            BX7    -X0*X7      (X7) = 1ST CHAR IN X6                               DBG=IDP     2211          I
          -DBG0002
 DBG=IDP            MX2    1R9-1R0+1                                                       DBG=IDP     2212          I
          -DBG0002
 DBG=IDP            LX2    -1R0        (X2) = (0-9) SHIFT MASK                             DBG=IDP     2213          I
          -DBG0002
 DBG=IDP            SB4    X7                                                              DBG=IDP     2214          I
          -DBG0002
 DBG=IDP            LX2    X2,B4                                                           DBG=IDP     2215          I
          -DBG0002
 DBG=IDP            =X7    O.CONS                                                          DBG=IDP     2216          I
          -DBG0002
 DBG=IDP            MI     X2,BBD4     IF 1ST CHAR IN X6 IS (0-9)                          DBG=IDP     2217          I
          -DBG0002
 DBG=IDP            SX7    O.VAR                                                           DBG=IDP     2218          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2219          I
          -DBG0002
 DBG=IDP   BBD4     ZR     X6,BBD5     IF (X6) IS NULL, PROBABLE ,, SYNTAX                 DBG=IDP     2220          I
          -DBG0002
 DBG=IDP            BX6    X6+X7                                                           DBG=IDP     2221          I
          -DBG0002
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     2222          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2223          I
          -DBG0002
 DBG=IDP   BBD5     GE     B6,B0,BBD.FN2  IF JUST FIN PROC LAST CHAR OF STMT               DBG=IDP     2224          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 208    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
          -DBG0002
 DBG=IDP            SX6    B2+         (X6) = CHAR THAT TERM PACK                          DBG=IDP     2225          I
          -DBG0002
 DBG=IDP            SX7    O.SEP                                                           DBG=IDP     2226          I
          -DBG0002
 DBG=IDP            LX6    18                                                              DBG=IDP     2227          I
          -DBG0002
 DBG=IDP            BX6    X6+X7       (X6) = 36/0,6/CHAR,18/O.SEP                         DBG=IDP     2228          I
          -DBG0002
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     2229          I
          -DBG0002
 DBG=IDP            SB4    IDPSB+L.DSB-1                                                   DBG=IDP     2230          I
          -DBG0002
 DBG=IDP            SB4    A6-B4                                                           DBG=IDP     2231          I
          -DBG0002
 DBG=IDP            GE     B4,B0,IDP.ER  IF NO MORE STRING BUFFER SPACE                    DBG=IDP     2232          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2233          I
          -DBG0002
 DBG=IDP  *         HERE TO INITIALIZE FOR TOKEN BURST/BUILD.                              DBG=IDP     2234          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2235          I
          -DBG0002
 DBG=IDP            SA2    IDPSMX      (X2) = ,+-* SHIFT MASK                              DBG=IDP     2236          I
          -DBG0002
 DBG=IDP            BX6    X6-X6                                                           DBG=IDP     2237          I
          -DBG0002
 DBG=IDP            SB4    8*CHAR-1*CHAR                                                   DBG=IDP     2238          I
          -DBG0002
 DBG=IDP            EQ     BBD10B      BACK INTO THE FIRE...                               DBG=IDP     2239          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2240          I
          -DBG0002
 DBG=IDP  *         TOKEN BURST/BUILD LOOP.   ** INSTACK **                                DBG=IDP     2241          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP     2242          I
          -DBG0002
 DBG=IDP  *         ON ENTRY TO BURST/BUILD LOOP AT *BBD10B* --                            DBG=IDP     2243          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP     2244          I
          -DBG0002
 DBG=IDP  *                (B3)     =  NR OF BITS IN CHAR (=6)                             DBG=IDP     2245          I
          -DBG0002
 DBG=IDP  *                (B4)     =  NR OF BITS TO SHIFT (X4) INTO (X6)                  DBG=IDP     2246          I
          -DBG0002
 DBG=IDP  *                (B5)     =  1R                                                  DBG=IDP     2247          I
          -DBG0002
 DBG=IDP  *                (B6)     =  -NR OF WORDS REMAINING IN (IDPLIM) ET SEQ           DBG=IDP     2248          I
          -DBG0002
 DBG=IDP  *                (B7)     =  NR OF BITS REMAINING IN (X5)                        DBG=IDP     2249          I
          -DBG0002
 DBG=IDP  *                (A0)     =  NR OF BITS IN WORD (=60)                            DBG=IDP     2250          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 209    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
          -DBG0002
 DBG=IDP  *                (X0)     =  CHAR EXTRACT MASK  (MX0 -CHAR)                      DBG=IDP     2251          I
          -DBG0002
 DBG=IDP  *                (X1)     =  10H                                                 DBG=IDP     2252          I
          -DBG0002
 DBG=IDP  *                (X2)     =  ,+-*  SHIFT MASK                                    DBG=IDP     2253          I
          -DBG0002
 DBG=IDP  *                (X4)     =  1ST CHAR TO BE CHECKED, THEN PACKED                 DBG=IDP     2254          I
          -DBG0002
 DBG=IDP  *                (A5,X5)  =  SOURCE IMAGE WORD, NEXT CHAR TO CHECK/PACK          DBG=IDP     2255          I
          -DBG0002
 DBG=IDP  *                              (X4) IN BITS (05-00)                              DBG=IDP     2256          I
          -DBG0002
 DBG=IDP  *                (A6+1,   =  ADDR OF NEXT LOCATION TO STORE PACKED TOKEN         DBG=IDP     2257          I
          -DBG0002
 DBG=IDP  *                      X6)=  PACKING REGISTER,  60/0                             DBG=IDP     2258          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2259          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2260          I
          -DBG0002
 DBG=IDP   BBD10A   SB6    B6+B1                                                           DBG=IDP     2261          I
          -DBG0002
 DBG=IDP            SA5    A5+B1                                                           DBG=IDP     2262          I
          -DBG0002
 DBG=IDP            GE     B6,B0,BBD.FN1  IF (IDPLIM) EMPTY                                DBG=IDP     2263          I
          -DBG0002
 DBG=IDP            IX7    X5-X1                                                           DBG=IDP     2264          I
          -DBG0002
 DBG=IDP            SB7    A0                                                              DBG=IDP     2265          I
          -DBG0002
 DBG=IDP            ZR     X7,BBD10A   IF NEXT SOURCE IMAGE WORD IS ALL BLANK              DBG=IDP     2266          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2267          I
          -DBG0002
 DBG=IDP   BBD10B   SB2    X4+                                                             DBG=IDP     2268          I
          -DBG0002
 DBG=IDP            LX5    CHAR                                                            DBG=IDP     2269          I
          -DBG0002
 DBG=IDP            BX3    X4                                                              DBG=IDP     2270          I
          -DBG0002
 DBG=IDP            LE     B7,B0,BBD10A  IF SOURCE IMAGE WORD (X5) IS EXHAUSTED            DBG=IDP     2271          I
          -DBG0002
 DBG=IDP            LX7    X2,B2                                                           DBG=IDP     2272          I
          -DBG0002
 DBG=IDP            SB7    B7-B3                                                           DBG=IDP     2273          I
          -DBG0002
 DBG=IDP            BX4    -X0*X5                                                          DBG=IDP     2274          I
          -DBG0002
 DBG=IDP            EQ     B2,B5,BBD10B  IF NEXT CHAR TO PACK IS A BLANK (55B)             DBG=IDP     2275          I
          -DBG0002
 DBG=IDP            LX3    X3,B4                                                           DBG=IDP     2276          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 210    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
          -DBG0002
 DBG=IDP            MI     X7,BBD3     IF NEXT CHAR TO PACK IS ,+-*                        DBG=IDP     2277          I
          -DBG0002
 DBG=IDP            SB4    B4-B3                                                           DBG=IDP     2278          I
          -DBG0002
 DBG=IDP            BX6    X6+X3                                                           DBG=IDP     2279          I
          -DBG0002
 DBG=IDP            GE     B4,B0,BBD10B  IF PACKING REG (X6) IS NOT FULL                   DBG=IDP     2280          I
          -DBG0002
 DBG=IDP            EQ     IDP.ER      ERR - *NAME .GT. 7 CHARS*                           DBG=IDP     2281          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2282          I
          -DBG0002
 DBG=IDP  *         HERE IF (IDPLIM) IS EMPTY.                                             DBG=IDP     2283          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2284          I
          -DBG0002
 DBG=IDP   BBD.FN1  SB7    CHAR                                                            DBG=IDP     2285          I
          -DBG0002
 DBG=IDP            LE     B6,B0,BBD10B  IF WE NEED TO PACK LAST CHAR                      DBG=IDP     2286          I
          -DBG0002
 DBG=IDP            EQ     BBD3        PROCESS FINAL PACK                                  DBG=IDP     2287          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     2288          I
          -DBG0002
 DBG=IDP   BBD.FN2  MX6    0                                                               DBG=IDP     2289          I
          -DBG0002
 DBG=IDP            SA6    A6+B1       EOS TERMINATOR                                      DBG=IDP     2290          I
          -DBG0002
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     2291          I
          -DBG0002
 DBG=IDP   BRK      SPACE  4,8                                                             DBG=IDP     2292     A     
 DBG=IDP  **        BRK - BREAK PROCESSOR.                                                 DBG=IDP     2293     A     
 DBG=IDP  *                                                                                DBG=IDP     2294     A     
 DBG=IDP  *                                                                                DBG=IDP     2295     A     
 DBG=IDP  *         1. IF THIS IS AN ASSEMBLED BREAK (NOT *IDP* GENERATED),                DBG=IDP     2296     A     
 DBG=IDP  *            THEN CONTROL IS MERELY RETURNED TO CALLER.                          DBG=IDP     2297     A     
 DBG=IDP  *                                                                                DBG=IDP     2298     A     
 DBG=IDP  *         2. IF THIS IS AN *IDP* GENERATED BREAK, THE 2 PARALLEL TABLES,         DBG=IDP     2299     A     
 DBG=IDP  *            *IDPBA/IDPBC*, ARE QUERIED FOR INFORMATION THAT WILL BE             DBG=IDP     2300     A     
 DBG=IDP  *            PLUGGED INTO A DUMMY PARAMETER LIST FOR THIS BREAK. THE             DBG=IDP     2301     A     
 DBG=IDP  *            PREVIOUS CONTENTS OF THE BREAK ADDR ARE PICKED UP FROM              DBG=IDP     2302     A     
 DBG=IDP  *            *IDPBC* AND PLUGGED AT *ST=ENDX* SO THAT THEY CAN BE                DBG=IDP     2303     A     
 DBG=IDP  *            EXECUTED BEFORE EXITING *IDP*.                                      DBG=IDP     2304     A     
 DBG=IDP  *                                                                                DBG=IDP     2305     A     
 DBG=IDP  *         TABLE FORMATS ARE--                                                    DBG=IDP     2306     A     
 DBG=IDP  *                                                                                DBG=IDP     2307     A     
 DBG=IDP  *         IDPBA ENTRY AT (IDPBA+ORDINAL)                                         DBG=IDP     2308     A     
 DBG=IDP  *                                                                                DBG=IDP     2309     A     
 DBG=IDP  *         VFD    6/BREAK TYPE CODE (BTC)                                         DBG=IDP     2310     A     
 DBG=IDP  *         VFD    18/ ADDR1                                                       DBG=IDP     2311     A     
 DBG=IDP  *         VFD    18/ ADDR2   FOR A CONDITIONAL BREAK (BRNE,...) THE              DBG=IDP     2312     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 211    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                              CONTENTS OF THE CORE LOCATION ADDR1 WILL          DBG=IDP     2313     A     
 DBG=IDP  *                              BE COMPARED TO THE CONTENTS OF CORE               DBG=IDP     2314     A     
 DBG=IDP  *                              LOCATION ADDR2.                                   DBG=IDP     2315     A     
 DBG=IDP  *         VFD    18/ BREAK ADDR                                                  DBG=IDP     2316     A     
 DBG=IDP  *                                                                                DBG=IDP     2317     A     
 DBG=IDP  *         IDPBC ENTRY AT (IDPBC+2*ORDINAL)                                       DBG=IDP     2318     A     
 DBG=IDP  *                                                                                DBG=IDP     2319     A     
 DBG=IDP  *         VFD    60/ PREVIOUS CONTENTS OF BREAK ADDR                             DBG=IDP     2320     A     
 DBG=IDP  *         VFD    15/ LL                                                          DBG=IDP     2321     A     
 DBG=IDP  *         VFD    15/ UL                                                          DBG=IDP     2322     A     
 DBG=IDP  *         VFD    12/ INC                                                         DBG=IDP     2323     A     
 DBG=IDP  *         VFD    18/ SNAP COUNT                                                  DBG=IDP     2324     A     
 DBG=IDP  *                                                                                DBG=IDP     2325     A     
 DBG=IDP  *            IF THIS IS A CONDITIONAL *IDP* GENERATED BREAK                      DBG=IDP     2326     A     
 DBG=IDP  *            (BRPL,BREQ,...), THE RELATIONAL CONDITION IS EVALUATED.             DBG=IDP     2327     A     
 DBG=IDP  *            A TRUE RESULT MEANS THE BREAK WILL BE HONORED, A FALSE THAT         DBG=IDP     2328     A     
 DBG=IDP  *            IT WILL NOT.                                                        DBG=IDP     2329     A     
 DBG=IDP  *                                                                                DBG=IDP     2330     A     
 DBG=IDP  *         ENTRY  (X1)    =   (IDPPREG)  PSEUDO P REGISTER                        DBG=IDP     2331     A     
 DBG=IDP  *                            (IDPPREG)-1 = ADDR OF IDP CALLER (BREAK AD)         DBG=IDP     2332     A     
 DBG=IDP  *                (A5,    =   (IDPPREG)-1                                         DBG=IDP     2333     A     
 DBG=IDP  *                    X5) =   FWA OF PARAMETER LIST                               DBG=IDP     2334     A     
 DBG=IDP  *                        =   .ZR. IF *IDP* GENERATED BREAK                       DBG=IDP     2335     A     
 DBG=IDP  *                                                                                DBG=IDP     2336     A     
 DBG=IDP  *         EXIT   (X5)    =   FWA OF PARAMETER LIST FOR THIS BREAK                DBG=IDP     2337     A     
 DBG=IDP  *                              (OR DUMMY PARAMETER LIST FOR *IDP* BREAK)         DBG=IDP     2338     A     
 DBG=IDP  *                        =   .ZR. IF NO BREAK THIS TIME                          DBG=IDP     2339     A     
 DBG=IDP  *                                                                                DBG=IDP     2340     A     
 DBG=IDP  *         USES   X - ALL                                                         DBG=IDP     2341     A     
 DBG=IDP  *                A - 1,2,3,6,7                                                   DBG=IDP     2342     A     
 DBG=IDP  *                B - 5,6,7                                                       DBG=IDP     2343     A     
 DBG=IDP  *                                                                                DBG=IDP     2344     A     
 DBG=IDP  *         CALLS  CBC,SKT                                                         DBG=IDP     2345     A     
 DBG=IDP                                                                                   DBG=IDP     2346     A     
 DBG=IDP                                                                                   DBG=IDP     2347     A     
 DBG=IDP   BRK      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     2348     A     
 DBG=IDP            SX6    X5                                                              DBG=IDP     2349     A     
 DBG=IDP            MX7    -0                                                              DBG=IDP     2350     A     
 DBG=IDP            SX1    X1-1        (X1) = BREAK ADDR                                   DBG=IDP     2351     A     
 DBG=IDP            SA6    FWAPARM                                                         DBG=IDP     2352     A     
 DBG=IDP            NZ     X5,EXIT.    IF NOT *IDP* GENERATED BREAK                        DBG=IDP     2353     A     
 DBG=IDP                                                                                   DBG=IDP     2354     A     
 DBG=IDP  *         SET UP DUMMY APLIST FOR *IDP* GENERATED BREAK.                         DBG=IDP     2355     A     
 DBG=IDP                                                                                   DBG=IDP     2356     A     
 DBG=IDP            SX6    APL         (X6) = FWA OF DUMMY APLIST                          DBG=IDP     2357     A     
 DBG=IDP            SA7    AP=HDR      SET TO *IDP GENERATED BREAK HEADER*                 DBG=IDP     2358     A     
 DBG=IDP            SA6    A6                                                              DBG=IDP     2359     A     
 DBG=IDP            MX0    -18                                                             DBG=IDP     2360     A     
 DBG=IDP            SX5    X6                                                              DBG=IDP     2361     A     
 DBG=IDP            BX0    -X0                                                             DBG=IDP     2362     A     
 DBG=IDP            SB6    IDPBA                                                           DBG=IDP     2363     A     
 DBG=IDP            RJ     SKT         SEARCH FOR BREAK ADDR                               DBG=IDP     2364     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 212    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            ZR     X2,*+4S15   IF NO FIND, IRRETRIEVABLE ERROR...                  DBG=IDP     2365     A     
 DBG=IDP            SB6    B7+B7                                                           DBG=IDP     2366     A     
 DBG=IDP            SA3    IDPBC+B6+1  (X3) = 15/LL,15/UL,12/INC,18/CNT                    DBG=IDP     2367     A     
 DBG=IDP            SX6    X3                                                              DBG=IDP     2368     A     
 DBG=IDP            BX7    -X0*X3      (X7) = 15/LL,15/UL,12/INC,18/0                      DBG=IDP     2369     A     
 DBG=IDP            SA6    AP=CNT                                                          DBG=IDP     2370     A     
 DBG=IDP            SX4    X3+B1       (X4) = CNT+1                                        DBG=IDP     2371     A     
 DBG=IDP            BX7    X7+X4       (X7) = 15/LL,15/UL,12/INC,18/CNT+1                  DBG=IDP     2372     A     
 DBG=IDP            SA7    A3                                                              DBG=IDP     2373     A     
 DBG=IDP            MX0    -15                                                             DBG=IDP     2374     A     
 DBG=IDP            LX3    15                                                              DBG=IDP     2375     A     
 DBG=IDP            BX6    -X0*X3      (X6) = LL                                           DBG=IDP     2376     A     
 DBG=IDP            LX3    15                                                              DBG=IDP     2377     A     
 DBG=IDP            BX7    -X0*X3      (X7) = UL                                           DBG=IDP     2378     A     
 DBG=IDP            SA6    AP=LL                                                           DBG=IDP     2379     A     
 DBG=IDP            SA7    A6+B1                                                           DBG=IDP     2380     A     
 DBG=IDP            MX0    -12                                                             DBG=IDP     2381     A     
 DBG=IDP            LX3    12                                                              DBG=IDP     2382     A     
 DBG=IDP            BX6    -X0*X3      (X6) = INC                                          DBG=IDP     2383     A     
 DBG=IDP            SA6    A7+B1                                                           DBG=IDP     2384     A     
 DBG=IDP                                                                                   DBG=IDP     2385     A     
 DBG=IDP  *         SET UP EXIT SO THAT PREVIOUS CONTENTS OF BREAK ADDR WILL BE            DBG=IDP     2386     A     
 DBG=IDP  *           EXECUTED BEFORE EXITING *IDP*.                                       DBG=IDP     2387     A     
 DBG=IDP  *                                                                                DBG=IDP     2388     A     
 DBG=IDP            SA3    A3-B1       (X3) = PREVIOUS CONTENTS OF BREAK ADDR              DBG=IDP     2389     A     
 DBG=IDP            BX6    X3                                                              DBG=IDP     2390     A     
 DBG=IDP            SA6    ST=ENDX                                                         DBG=IDP     2391     A     
 DBG=IDP                                                                                   DBG=IDP     2392     A     
 DBG=IDP  *         CHECK TO SEE IF BREAK CONDITION SATISFIED.                             DBG=IDP     2393     A     
 DBG=IDP                                                                                   DBG=IDP     2394     A     
 DBG=IDP            MX0    -6                                                              DBG=IDP     2395     A     
 DBG=IDP            LX2    6                                                               DBG=IDP     2396     A     
 DBG=IDP            BX6    -X0*X2      (X6) = BREAK TYPE CODE (BTC)                        DBG=IDP     2397     A     
 DBG=IDP            SB5    X6                                                              DBG=IDP     2398     A     
 DBG=IDP            MX0    -18                                                             DBG=IDP     2399     A     
 DBG=IDP            LX2    18                                                              DBG=IDP     2400     A     
 DBG=IDP            BX6    -X0*X2                                                          DBG=IDP     2401     A     
 DBG=IDP            SA1    X6          (X1) = (ADDR1)                                      DBG=IDP     2402     A     
 DBG=IDP            LX2    18                                                              DBG=IDP     2403     A     
 DBG=IDP            BX6    -X0*X2                                                          DBG=IDP     2404     A     
 DBG=IDP            SA2    X6          (X2) = (ADDR2)                                      DBG=IDP     2405     A     
 DBG=IDP            RJ     CBC         CHECK BREAK CONDITION                               DBG=IDP     2406     A     
 DBG=IDP            NZ     B6,EXIT.    IF CONDITION WAS SATISFIED (TRUE)                   DBG=IDP     2407     A     
 DBG=IDP            MX5    0                                                               DBG=IDP     2408     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     2409     A     
 DBG=IDP   BUB      SPACE  4,8                                                             DBG0002      964     A     
 DBG=IDP  **        BUB - BURST/BUILD IDP COMMAND.                                         DBG0002      965     A     
 DBG=IDP  *                                                                                DBG0002      966     A     
 DBG=IDP  *                                                                                DBG0002      967     A     
 DBG=IDP  *                THIS ROUTINE BURSTS AND BUILDS A PACKED (I.E. 10 CHARS          DBG0002      968     A     
 DBG=IDP  *         PER WORD) SOURCE LINE AT *IDPLIM* ET SEQ INTO ITS TOKEN FORM.          DBG0002      969     A     
 DBG=IDP  *                                                                                DBG0002      970     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 213    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *         GENERAL TOKEN FORMAT IS --                                             DBG0002      971     A     
 DBG=IDP  *                                                                                DBG0002      972     A     
 DBG=IDP  *         VFD    42/0L_CHARS,18/TOKEN TYPE                                       DBG0002      973     A     
 DBG=IDP  *                CHARS = DISPLAY CODE CHARACTERS THAT CONSTITUTE THIS            DBG0002      974     A     
 DBG=IDP  *                          TOKEN                                                 DBG0002      975     A     
 DBG=IDP  *                TOKEN TYPE = A TYPE CODE THAT IS USED TO DISTINGUISH            DBG0002      976     A     
 DBG=IDP  *                               ONE TOKEN FROM ANOTHER. (NOTE--BIT 17            DBG0002      977     A     
 DBG=IDP  *                               OF TOKEN TYPE MUST BE 0)                         DBG0002      978     A     
 DBG=IDP  *                                                                                DBG0002      979     A     
 DBG=IDP  *         TOKEN TYPES ARE --                                                     DBG0002      980     A     
 DBG=IDP  *                                                                                DBG0002      981     A     
 DBG=IDP  *         O.VAR  VARIABLE OR NAME TOKEN  (ALPHANUMERIC)                          DBG0002      982     A     
 DBG=IDP  *         O.CONS CONSTANT TOKEN  (NUMERIC)                                       DBG0002      983     A     
 DBG=IDP  *         O.SEP  SEPARATOR TOKEN (E.G. *,+-)                                     DBG0002      984     A     
 DBG=IDP  *                                                                                DBG0002      985     A     
 DBG=IDP  *         E.G. IF ; IS THE END-OF-STMT CHARACTER --                              DBG0002      986     A     
 DBG=IDP  *                                                                                DBG0002      987     A     
 DBG=IDP  *         SNAP,NAME,,4;REG,X1                                                    DBG0002      988     A     
 DBG=IDP  *                                                                                DBG0002      989     A     
 DBG=IDP  *         WOULD BECOME --                                                        DBG0002      990     A     
 DBG=IDP  *         VFD    42/OTHER ,18/LEN OF STMT = 7                                    DBG0002      991     A     
 DBG=IDP  *         VFD    42/4LSNAP,18/O.VAR                                              DBG0002      992     A     
 DBG=IDP  *         VFD    42/1L,   ,18/O.SEP                                              DBG0002      993     A     
 DBG=IDP  *         VFD    42/4LNAME,18/O.VAR                                              DBG0002      994     A     
 DBG=IDP  *         VFD    42/1L,   ,18/O.SEP                                              DBG0002      995     A     
 DBG=IDP  *         VFD    42/1L,   ,18/O.SEP                                              DBG0002      996     A     
 DBG=IDP  *         VFD    42/1L4   ,18/O.CONS                                             DBG0002      997     A     
 DBG=IDP  *         VFD    60/0  ** EOS **                                                 DBG0002      998     A     
 DBG=IDP  *                                                                                DBG0002      999     A     
 DBG=IDP  *         VFD    42/OTHER ,18/LEN OF STMT = 4                                    DBG0002     1000     A     
 DBG=IDP  *         VFD    42/3LREG ,18/O.VAR                                              DBG0002     1001     A     
 DBG=IDP  *         VFD    42/1L,   ,18/O.SEP                                              DBG0002     1002     A     
 DBG=IDP  *         VFD    42/2LX1  ,18/O.VAR                                              DBG0002     1003     A     
 DBG=IDP  *         VFD    60/0  ** EOS **                                                 DBG0002     1004     A     
 DBG=IDP  *                                                                                DBG0002     1005     A     
 DBG=IDP  *         ENTRY  (A5,X5)   = A+C OF 1ST WORD OF SOURCE LINE IMAGE                DBG0002     1006     A     
 DBG=IDP  *                              TO BE BURST/BUILT                                 DBG0002     1007     A     
 DBG=IDP  *                (A6)+1    = ADDR TO STORE 1ST TOKEN THAT IS BURST/BUILT         DBG0002     1008     A     
 DBG=IDP  *                (L=LIM)   = NR OF WORDS IN SOURCE LINE IMAGE AT                 DBG0002     1009     A     
 DBG=IDP  *                              (IDPLIM) ET SEQ  (INCLUDES WORD                   DBG0002     1010     A     
 DBG=IDP  *                              CONTAINING EOL MARK)                              DBG0002     1011     A     
 DBG=IDP  *                                                                                DBG0002     1012     A     
 DBG=IDP  *         EXIT   NONE                                                            DBG0002     1013     A     
 DBG=IDP  *                                                                                DBG0002     1014     A     
 DBG=IDP  *         USES   ALL                                                             DBG0002     1015     A     
 DBG=IDP  *                                                                                DBG0002     1016     A     
 DBG=IDP  *         CALLS  NONE                                                            DBG0002     1017     A     
 DBG=IDP                                                                                   DBG0002     1018     A     
 DBG=IDP                                                                                   DBG0002     1019     A     
 DBG=IDP   BUB      SUBR               ** ENTRY/EXIT **                                    DBG0002     1020     A     
 DBG=IDP                                                                                   DBG0002     1021     A     
 DBG=IDP  *         FIRST TIME ONLY INITIALIZATION.                                        DBG0002     1022     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 214    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG0002     1023     A     
 DBG=IDP            SX7    A6                                                              DBG0002     1024     A     
 DBG=IDP            MX0    -CHAR                                                           DBG0002     1025     A     
 DBG=IDP            SA4    10*CHAR                                                         DBG0002     1026     A     
 DBG=IDP            SA7    IDPSTMT                                                         DBG0002     1027     A     
 DBG=IDP            SB3    CHAR                                                            DBG0002     1028     A     
 DBG=IDP            SB6    A4                                                              DBG0002     1029     A     
 DBG=IDP            SA0    B0          SET TO *LENGTH=0 FIRST TIME THROUGH*                DBG0002     1030     A     
 DBG=IDP                                                                                   DBG0002     1031     A     
 DBG=IDP  *         SET UP (B7) = NR OF WORDS TO BURST/BUILD (NOT INCLUDING WORD           DBG0002     1032     A     
 DBG=IDP  *           CONTAINING EOL MARK).  I.E. (B7) WILL CONTAIN NR OF FULL             DBG0002     1033     A     
 DBG=IDP  *           WORDS (10 CHARS EACH) TO BURST/BUILD.  THREE END-OF-LINE             DBG0002     1034     A     
 DBG=IDP  *           CONDITIONS ARE SIGNIFICANT --                                        DBG0002     1035     A     
 DBG=IDP  *                                                                                DBG0002     1036     A     
 DBG=IDP  *             (A5)+0         1     (X=ANY CHAR,0=00B)                            DBG0002     1037     A     
 DBG=IDP  *                  XXXXXXXX00            (L=LIM) = 1, (B7) = 0                   DBG0002     1038     A     
 DBG=IDP  *                 +0         1                                                   DBG0002     1039     A     
 DBG=IDP  *                  XXXXXXXXXX0000000000  (L=LIM) = 1, (B7) = 1                   DBG0002     1040     A     
 DBG=IDP  *                 +0         1                                                   DBG0002     1041     A     
 DBG=IDP  *                  XXXXXXXXX00000000000  (L=LIM) = 2, (B7) = 0                   DBG0002     1042     A     
 DBG=IDP                                                                                   DBG0002     1043     A     
 DBG=IDP            SA1    =XL=LIM     (X1) = NR OF WORDS IN SOURCE LINE IMAGE             DBG0002     1044     A     
 DBG=IDP  *                                     (INCLUDES WORD CONTAINING EOL MRK)         DBG0002     1045     A     
 DBG=IDP            SB5    A5-2                                                            DBG0002     1046     A     
 DBG=IDP            SB7    X1-1        (B7) = NR OF WORDS IN SOURCE LINE IMAGE             DBG0002     1047     A     
 DBG=IDP  *                                     (NOT INCLUDING WD CONTAINING EOL)          DBG0002     1048     A     
 DBG=IDP            SA2    B5+X1       (A2,X2) = A+C OF NEXT TO LAST WORD OF LINE          DBG0002     1049     A     
 DBG=IDP            ZR     B7,BUB2     IF 11 CHAR (66 BIT) EOL NOT POSSIBLE                DBG0002     1050     A     
 DBG=IDP            BX6    -X0*X2                                                          DBG0002     1051     A     
 DBG=IDP            NZ     X6,BUB2     IF NOT 11 CHAR (66 BIT) EOL MARK                    DBG0002     1052     A     
 DBG=IDP            SB7    B7-B1                                                           DBG0002     1053     A     
 DBG=IDP                                                                                   DBG0002     1054     A     
 DBG=IDP  *         INITIALIZE FOR BURST/BUILD OF KEYWORD.                                 DBG0002     1055     A     
 DBG=IDP                                                                                   DBG0002     1056     A     
 DBG=IDP   BUB2     SA2    MX=KEYW                                                         DBG0002     1057     A     
 DBG=IDP            MX1    0           SET TO *NOT SQUEEZING BLANKS*                       DBG0002     1058     A     
 DBG=IDP            SB5    B0          SET TO *NOT SQUEEZING BLANKS*                       DBG0002     1059     A     
 DBG=IDP            BX2    -X2                                                             DBG0002     1060     A     
 DBG=IDP            EQ     BUB2B                                                           DBG0002     1061     A     
 DBG=IDP                                                                                   DBG0002     1062     A     
 DBG=IDP  *         INITIALIZE FOR BURST/BUILD OF NON-KEYWORD.                             DBG0002     1063     A     
 DBG=IDP                                                                                   DBG0002     1064     A     
 DBG=IDP   BUB2A    SA1    =10H                                                            DBG0002     1065     A     
 DBG=IDP            SA2    MX=TOKN                                                         DBG0002     1066     A     
 DBG=IDP            SB5    1R +7777B-1RM                                                   DBG0002     1067     A     
 DBG=IDP                                                                                   DBG0002     1068     A     
 DBG=IDP  *         COMMON INITIALIZATION FOR BURST/BUILD.                                 DBG0002     1069     A     
 DBG=IDP                                                                                   DBG0002     1070     A     
 DBG=IDP   BUB2B    SA3    BUB=LEN                                                         DBG0002     1071     A     
 DBG=IDP            SX4    A0                                                              DBG0002     1072     A     
 DBG=IDP            IX7    X3-X4                                                           DBG0002     1073     A     
 DBG=IDP            SB4    8*CHAR-1*CHAR                                                   DBG0002     1074     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 215    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            BX6    X6-X6                                                           DBG0002     1075     A     
 DBG=IDP            SA7    A3                                                              DBG0002     1076     A     
 DBG=IDP            NZ     B7,BUB4     IF 1ST WORD OF SOURCE LINE DOES NOT CONTAIN         DBG0002     1077     A     
 DBG=IDP  *                              EOL MARK, INTO THE FIRE...                        DBG0002     1078     A     
 DBG=IDP                                                                                   DBG0002     1079     A     
 DBG=IDP  *         HERE TO PROCESS WORD CONTAINING EOL MARK (I.E. LAST WORD OF            DBG0002     1080     A     
 DBG=IDP  *           SOURCE LINE) -- FIGURE OUT HOW MANY USEABLE (I.E. NON-EOL)           DBG0002     1081     A     
 DBG=IDP  *           BITS ARE IN FINAL WORD TO BE BURST/BUILT.                            DBG0002     1082     A     
 DBG=IDP                                                                                   DBG0002     1083     A     
 DBG=IDP   BUB2C    MI     B7,BUB5     IF HAVE ALREADY PROCESSED LAST WORD OF LINE         DBG0002     1084     A     
 DBG=IDP            SA3    =40404040404040404040B                                          DBG0002     1085     A     
 DBG=IDP            SX4    B1                                                              DBG0002     1086     A     
 DBG=IDP            IX7    X5-X4       BORROW RIPPLES LEFT TO 1ST NON-ZERO BIT             DBG0002     1087     A     
 DBG=IDP            BX4    -X7+X5      (X4) = ALL TRAILING 0 BITS IN (X1) = 0 BITS         DBG0002     1088     A     
 DBG=IDP  *                                     ALL OTHER LEADING BITS = 1 BITS            DBG0002     1089     A     
 DBG=IDP            SB2    60-5        (B2) = RIGHT CIRCULAR SHIFT 5 BITS                  DBG0002     1090     A     
 DBG=IDP            BX7    X3*X4       (X7) = 40B WHERE EACH CHAR IN LAST WORD IS          DBG0002     1091     A     
 DBG=IDP            LX4    X7,B2       (X4) = 01B WHERE EACH CHAR IN LAST WORD IS          DBG0002     1092     A     
 DBG=IDP            IX3    X7-X4       (X3) = 37B WHERE EACH CHAR IN LAST WORD IS          DBG0002     1093     A     
 DBG=IDP            BX4    X7+X3       (X4) = 77B WHERE EACH CHAR IN LAST WORD IS          DBG0002     1094     A     
 DBG=IDP            CX7    X4                                                              DBG0002     1095     A     
 DBG=IDP            SB7    B7-B1       (B7) = SET WORD COUNT TO -1 (I.E. BURSTING          DBG0002     1096     A     
 DBG=IDP  *                                     LAST WD) TO AVOID LOOPING AT BUB2B         DBG0002     1097     A     
 DBG=IDP            SB6    X7          (B6) = NR OF BITS TO BU/BU IN LAST WD (X5)          DBG0002     1098     A     
 DBG=IDP            EQ     BUB4        BURST/BUILD LAST WORD...                            DBG0002     1099     A     
 DBG=IDP                                                                                   DBG0002     1100     A     
 DBG=IDP  *         BURST/BUILD LOOP  ** INSTACK **                                        DBG0002     1101     A     
 DBG=IDP                                                                                   DBG0002     1102     A     
 DBG=IDP   BUB3     SB7    B7-B1                                                           DBG0002     1103     A     
 DBG=IDP            SA5    A5+B1                                                           DBG0002     1104     A     
 DBG=IDP            LE     B7,B0,BUB2C IF NO MORE SOURCE WORDS TO BURST/BUILD              DBG0002     1105     A     
 DBG=IDP            IX7    X5-X1                                                           DBG0002     1106     A     
 DBG=IDP            SB6    A4                                                              DBG0002     1107     A     
 DBG=IDP            ZR     X7,BUB3     IF NEXT SOURCE IMAGE WORD IS ALL BLANK              DBG0002     1108     A     
 DBG=IDP                                                                                   DBG0002     1109     A     
 DBG=IDP   BUB4     LX5    CHAR                                                            DBG0002     1110     A     
 DBG=IDP            LE     B6,B0,BUB3  IF SOURCE IMAGE WORD (X5) IS EXHAUSTED              DBG0002     1111     A     
 DBG=IDP            BX4    -X0*X5                                                          DBG0002     1112     A     
 DBG=IDP            SB6    B6-B3                                                           DBG0002     1113     A     
 DBG=IDP            SB2    X4+7777B-1RM                                                    DBG0002     1114     A     
 DBG=IDP            NO                                                                     DBG0002     1115     A     
 DBG=IDP            LX7    X2,B2                                                           DBG0002     1116     A     
 DBG=IDP            EQ     B2,B5,BUB4  IF CHAR TO PACK IS A BLANK (55B)                    DBG0002     1117     A     
 DBG=IDP            LX3    X4,B4                                                           DBG0002     1118     A     
 DBG=IDP            SB4    B4-B3                                                           DBG0002     1119     A     
 DBG=IDP            MI     X7,BUB5     IF NEXT CHAR TO PACK IS TERMINATOR                  DBG0002     1120     A     
 DBG=IDP            BX6    X6+X3                                                           DBG0002     1121     A     
 DBG=IDP            GE     B4,B0,BUB4  IF PACKING REG (X6) NOT FULL                        DBG0002     1122     A     
 DBG=IDP                                                                                   DBG0002     1123     A     
 DBG=IDP  *         HERE IF AN ERROR -- TERMINATE TOKEN BUFFER.                            DBG0002     1124     A     
 DBG=IDP                                                                                   DBG0002     1125     A     
 DBG=IDP            SA1    IDPSTMT                                                         DBG0002     1126     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 216    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            MX6    1                                                               DBG0002     1127     A     
 DBG=IDP            SX2    B1                                                              DBG0002     1128     A     
 DBG=IDP            BX6    X6+X2       (X6) = 1/1=LAST STMT ON LINE,41/0,18/LEN            DBG0002     1129     A     
 DBG=IDP            SA6    X1                                                              DBG0002     1130     A     
 DBG=IDP            EQ     IDP=ER      ERROR - TOKEN .GT. 7 CHARS                          DBG0002     1131     A     
 DBG=IDP                                                                                   DBG0002     1132     A     
 DBG=IDP  *         HERE TO STORE PACKING REG (X6).                                        DBG0002     1133     A     
 DBG=IDP                                                                                   DBG0002     1134     A     
 DBG=IDP   BUB5     LX6    10*CHAR-8*CHAR (X6) = 42/0LNAME,18/0                            DBG0002     1135     A     
 DBG=IDP            SA1    BUB=LEN                                                         DBG0002     1136     A     
 DBG=IDP            SA0    B1                                                              DBG0002     1137     A     
 DBG=IDP            SA2    MX=NR09                                                         DBG0002     1138     A     
 DBG=IDP            LX7    X6,B3                                                           DBG0002     1139     A     
 DBG=IDP            BX7    -X0*X7                                                          DBG0002     1140     A     
 DBG=IDP            SX3    X1-3-1                                                          DBG0002     1141     A     
 DBG=IDP            SB4    X7                                                              DBG0002     1142     A     
 DBG=IDP            LX2    X2,B4                                                           DBG0002     1143     A     
 DBG=IDP            PL     X3,BUB6     IF NO TABLE OVERFLOW IMPENDING                      DBG0002     1144     A     
 DBG=IDP                                                                                   DBG0002     1145     A     
 DBG=IDP  *         HERE IF AN ERROR -- TERMINATE TOKEN BUFFER.                            DBG0002     1146     A     
 DBG=IDP                                                                                   DBG0002     1147     A     
 DBG=IDP            SA1    IDPSTMT                                                         DBG0002     1148     A     
 DBG=IDP            MX6    1                                                               DBG0002     1149     A     
 DBG=IDP            SX2    B1                                                              DBG0002     1150     A     
 DBG=IDP            BX6    X6+X2       (X6) = 1/1=LAST STMT ON LINE,41/0,18/LEN            DBG0002     1151     A     
 DBG=IDP            SA6    X1                                                              DBG0002     1152     A     
 DBG=IDP            EQ     IDP=OV                                                          DBG0002     1153     A     
 DBG=IDP                                                                                   DBG0002     1154     A     
 DBG=IDP   BUB6     ZR     X6,BUB8     IF (X6) IS NULL, PROBABLE ,, SYNTAX                 DBG0002     1155     A     
 DBG=IDP            SX7    O.VAR                                                           DBG0002     1156     A     
 DBG=IDP            PL     X2,BUB7     IF 1ST CHAR IN (X6) IS NOT 0 THRU 9                 DBG0002     1157     A     
 DBG=IDP            SX7    O.CONS                                                          DBG0002     1158     A     
 DBG=IDP                                                                                   DBG0002     1159     A     
 DBG=IDP   BUB7     BX6    X6+X7                                                           DBG0002     1160     A     
 DBG=IDP            SA0    A0+B1                                                           DBG0002     1161     A     
 DBG=IDP            SA6    A6+B1                                                           DBG0002     1162     A     
 DBG=IDP                                                                                   DBG0002     1163     A     
 DBG=IDP  *         CHECK FOR AND PROCESS END-OF-STATEMENT.                                DBG0002     1164     A     
 DBG=IDP                                                                                   DBG0002     1165     A     
 DBG=IDP   BUB8     SB2    -2                                                              DBG0002     1166     A     
 DBG=IDP            SX2    X4-1R"EOS"                                                      DBG0002     1167     A     
 DBG=IDP            LE     B7,B2,BUB9  IF NOTHING MORE TO BURST                            DBG0002     1168     A     
 DBG=IDP            NZ     X2,BUB10    IF NOT EOS CHARACTER                                DBG0002     1169     A     
 DBG=IDP                                                                                   DBG0002     1170     A     
 DBG=IDP   BUB9     SA1    IDPSTMT                                                         DBG0002     1171     A     
 DBG=IDP            MX6    0                                                               DBG0002     1172     A     
 DBG=IDP            SX2    A6+B1                                                           DBG0002     1173     A     
 DBG=IDP            SA6    A6+B1       MARK EOS                                            DBG0002     1174     A     
 DBG=IDP            IX7    X2-X1                                                           DBG0002     1175     A     
 DBG=IDP            NO                                                                     DBG0002     1176     A     
 DBG=IDP            SA7    X1                                                              DBG0002     1177     A     
 DBG=IDP            LE     B7,B2,BUB11 IF FINISHED                                         DBG0002     1178     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 217    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SX7    A6+B1       (X7) = ADDR OF LEN WORD FOR NEXT STMT               DBG0002     1179     A     
 DBG=IDP            SA6    A6+B1       (A6+1) = NEXT ADDR TO STORE                         DBG0002     1180     A     
 DBG=IDP            SA0    A0+B1                                                           DBG0002     1181     A     
 DBG=IDP            SA7    A1                                                              DBG0002     1182     A     
 DBG=IDP            EQ     BUB2        CRANK UP FOR NEW STMT...                            DBG0002     1183     A     
 DBG=IDP                                                                                   DBG0002     1184     A     
 DBG=IDP  *         HERE TO STORE TERMINATOR CHARACTER (X4).                               DBG0002     1185     A     
 DBG=IDP                                                                                   DBG0002     1186     A     
 DBG=IDP   BUB10    BX6    X4                                                              DBG0002     1187     A     
 DBG=IDP            SX7    O.SEP                                                           DBG0002     1188     A     
 DBG=IDP            LX6    10*CHAR-1*CHAR                                                  DBG0002     1189     A     
 DBG=IDP            BX6    X6+X7       (X6) = 42/0LCHAR,18/O.SEP                           DBG0002     1190     A     
 DBG=IDP            SA6    A6+B1                                                           DBG0002     1191     A     
 DBG=IDP            EQ     BUB2A       CONTINUE...                                         DBG0002     1192     A     
 DBG=IDP                                                                                   DBG0002     1193     A     
 DBG=IDP   BUB11    MX6    1                                                               DBG0002     1194     A     
 DBG=IDP            BX7    X6+X7                                                           DBG0002     1195     A     
 DBG=IDP            SA7    X1                                                              DBG0002     1196     A     
 DBG=IDP            EQ     EXIT.                                                           DBG0002     1197     A     
 DBG=IDP                                                                                   DBG0002     1198     A     
 DBG=IDP                                                                                   DBG0002     1199     A     
 DBG=IDP   BUB=LEN  =      APL         SAVED NR OF WORDS LEFT IN TOKEN BUFFER              DBG0002     1200     A     
 DBG=IDP   CBC      SPACE  4,8                                                             DBG=IDP     2410     A     
 DBG=IDP  **        CBC - CHECK BREAK CONDITION.                                           DBG=IDP     2411     A     
 DBG=IDP  *                                                                                DBG=IDP     2412     A     
 DBG=IDP  *                                                                                DBG=IDP     2413     A     
 DBG=IDP  *                THIS ROUTINE RETURNS A TRUE/FALSE VALUE FOR A GIVEN             DBG=IDP     2414     A     
 DBG=IDP  *         LOGICAL EXPRESSION-- C1.OP.C2                                          DBG=IDP     2415     A     
 DBG=IDP  *                                                                                DBG=IDP     2416     A     
 DBG=IDP  *         NOTE-- THE OPERATOR JUMP TABLE AT *CBC.OP* HAS A ONE-TO-ONE            DBG=IDP     2417     A     
 DBG=IDP  *         ORDER DEPENDENT RELATIONSHIP WITH THE *BREAK* KEYWORDS AT              DBG=IDP     2418     A     
 DBG=IDP  *         (IDPKBR) ET SEQ. SHOULD A CHANGE BE EFFECTED TO EITHER TABLE,          DBG=IDP     2419     A     
 DBG=IDP  *         BOTH SHOULD BE CHECKED FOR CONSISTENCY.                                DBG=IDP     2420     A     
 DBG=IDP  *                                                                                DBG=IDP     2421     A     
 DBG=IDP  *         ENTRY  (X1) = C1   1ST QUANTITY                                        DBG=IDP     2422     A     
 DBG=IDP  *                (X2) = C2   2ND QUANTITY                                        DBG=IDP     2423     A     
 DBG=IDP  *                (B5) = BREAK TYPE CODE (BTC)                                    DBG=IDP     2424     A     
 DBG=IDP  *                                                                                DBG=IDP     2425     A     
 DBG=IDP  *         EXIT   (B6) = .NZ. IF TRUE, ELSE .ZR. IF FALSE                         DBG=IDP     2426     A     
 DBG=IDP  *                                                                                DBG=IDP     2427     A     
 DBG=IDP  *         USES   X - 0,3,6,7                                                     DBG=IDP     2428     A     
 DBG=IDP  *                A - NONE                                                        DBG=IDP     2429     A     
 DBG=IDP  *                B - 6                                                           DBG=IDP     2430     A     
 DBG=IDP  *                                                                                DBG=IDP     2431     A     
 DBG=IDP  *         CALLS  NONE                                                            DBG=IDP     2432     A     
 DBG=IDP                                                                                   DBG=IDP     2433     A     
 DBG=IDP                                                                                   DBG=IDP     2434     A     
 DBG=IDP   CBC      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     2435     A     
 DBG=IDP            MI     B5,*+4S15   IF BTC IS BAD, AVOID SMELLY EVIL BUG...             DBG=IDP     2436     A     
 DBG=IDP            SB6    CBC2-CBC.OP (B6) = NR OF OPERATOR JP TABLE ENTRIES              DBG=IDP     2437     A     
 DBG=IDP            GT     B5,B6,*+4S15  IF BTC IS BAD, P U...DUMMKOPF                     DBG=IDP     2438     A     
 DBG=IDP            SB6    B1          SET TO *CONDITION SATISFIED (TRUE)*                 DBG=IDP     2439     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 218    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            ZR     B5,EXIT.    IF UNCONDITIONAL BREAK                              DBG=IDP     2440     A     
 DBG=IDP            BX3    X1-X2                                                           DBG=IDP     2441     A     
 DBG=IDP            IX6    X1-X2                                                           DBG=IDP     2442     A     
 DBG=IDP            IX7    X2-X1                                                           DBG=IDP     2443     A     
 DBG=IDP            MX0    0                                                               DBG=IDP     2444     A     
 DBG=IDP            IX6    X6+X0       REMOVE POSSIBLE -0                                  DBG=IDP     2445     A     
 DBG=IDP            IX7    X7+X0                                                           DBG=IDP     2446     A     
 DBG=IDP            JP     CBC.OP+B5-1                                                     DBG=IDP     2447     A     
 DBG=IDP                                                                                   DBG=IDP     2448     A     
 DBG=IDP  *         CBC.OP - OPERATOR JUMP TABLE.                                          DBG=IDP     2449     A     
 DBG=IDP                                                                                   DBG=IDP     2450     A     
 DBG=IDP   CBC.OP   BSS    0                                                               DBG=IDP     2451     A     
 DBG=IDP            LOC    1                                                               DBG=IDP     2452     A     
 DBG=IDP                                                                                   DBG=IDP     2453     A     
 DBG=IDP  *         HERE FOR .PL.C1                                                        DBG=IDP     2454     A     
 DBG=IDP                                                                                   DBG=IDP     2455     A     
 DBG=IDP   +        PL     X1,EXIT.    IF TRUE                                             DBG=IDP     2456     A     
 DBG=IDP            EQ     CBC2                                                            DBG=IDP     2457     A     
 DBG=IDP                                                                                   DBG=IDP     2458     A     
 DBG=IDP  *         HERE FOR .MI.C1                                                        DBG=IDP     2459     A     
 DBG=IDP                                                                                   DBG=IDP     2460     A     
 DBG=IDP  +         MI     X1,EXIT.    IF TRUE                                             DBG=IDP     2461     A     
 DBG=IDP            EQ     CBC2                                                            DBG=IDP     2462     A     
 DBG=IDP                                                                                   DBG=IDP     2463     A     
 DBG=IDP  *         HERE FOR .ZR.C1                                                        DBG=IDP     2464     A     
 DBG=IDP                                                                                   DBG=IDP     2465     A     
 DBG=IDP   +        ZR     X1,EXIT.    IF TRUE                                             DBG=IDP     2466     A     
 DBG=IDP            EQ     CBC2                                                            DBG=IDP     2467     A     
 DBG=IDP                                                                                   DBG=IDP     2468     A     
 DBG=IDP  *         HERE FOR .NZ.C1                                                        DBG=IDP     2469     A     
 DBG=IDP                                                                                   DBG=IDP     2470     A     
 DBG=IDP   +        NZ     X1,EXIT.    IF TRUE                                             DBG=IDP     2471     A     
 DBG=IDP            EQ     CBC2                                                            DBG=IDP     2472     A     
 DBG=IDP                                                                                   DBG=IDP     2473     A     
 DBG=IDP  *         HERE FOR C1.EQ.C2                                                      DBG=IDP     2474     A     
 DBG=IDP                                                                                   DBG=IDP     2475     A     
 DBG=IDP   +        ZR     X3,EXIT.    IF TRUE                                             DBG=IDP     2476     A     
 DBG=IDP            EQ     CBC2                                                            DBG=IDP     2477     A     
 DBG=IDP                                                                                   DBG=IDP     2478     A     
 DBG=IDP  *         HERE FOR C1.NE.C2                                                      DBG=IDP     2479     A     
 DBG=IDP                                                                                   DBG=IDP     2480     A     
 DBG=IDP   +        NZ     X3,EXIT.    IF TRUE                                             DBG=IDP     2481     A     
 DBG=IDP            EQ     CBC2                                                            DBG=IDP     2482     A     
 DBG=IDP                                                                                   DBG=IDP     2483     A     
 DBG=IDP  *         HERE FOR C1.LT.C2                                                      DBG=IDP     2484     A     
 DBG=IDP                                                                                   DBG=IDP     2485     A     
 DBG=IDP   +        MI     X6,EXIT.    IF TRUE                                             DBG=IDP     2486     A     
 DBG=IDP            EQ     CBC2                                                            DBG=IDP     2487     A     
 DBG=IDP                                                                                   DBG=IDP     2488     A     
 DBG=IDP  *         HERE FOR C1.GE.C2                                                      DBG=IDP     2489     A     
 DBG=IDP                                                                                   DBG=IDP     2490     A     
 DBG=IDP   +        PL     X6,EXIT.    IF TRUE                                             DBG=IDP     2491     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 219    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            EQ     CBC2                                                            DBG=IDP     2492     A     
 DBG=IDP                                                                                   DBG=IDP     2493     A     
 DBG=IDP  *         HERE FOR C1.LE.C2                                                      DBG=IDP     2494     A     
 DBG=IDP                                                                                   DBG=IDP     2495     A     
 DBG=IDP   +        PL     X7,EXIT.    IF TRUE                                             DBG=IDP     2496     A     
 DBG=IDP            EQ     CBC2                                                            DBG=IDP     2497     A     
 DBG=IDP                                                                                   DBG=IDP     2498     A     
 DBG=IDP  *         HERE FOR C1.GT.C2                                                      DBG=IDP     2499     A     
 DBG=IDP                                                                                   DBG=IDP     2500     A     
 DBG=IDP   +        MI     X7,EXIT.    IF TRUE                                             DBG=IDP     2501     A     
 DBG=IDP            EQ     CBC2                                                            DBG=IDP     2502     A     
 DBG=IDP                                                                                   DBG=IDP     2503     A     
 DBG=IDP            LOC    *O                                                              DBG=IDP     2504     A     
 DBG=IDP                                                                                   DBG=IDP     2505     A     
 DBG=IDP  *         HERE FOR CONDITION NOT SATISFIED (FALSE).                              DBG=IDP     2506     A     
 DBG=IDP                                                                                   DBG=IDP     2507     A     
 DBG=IDP   CBC2     SB6    B0                                                              DBG=IDP     2508     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     2509     A     
 DBG=IDP   CLZ      SPACE  4,8                                                             DBG=IDP     2510     A     
 DBG=IDP  **        CLZ - CLEAR *IDP* TABLE.                                               DBG=IDP     2511     A     
 DBG=IDP  *                                                                                DBG=IDP     2512     A     
 DBG=IDP  *                                                                                DBG=IDP     2513     A     
 DBG=IDP  *                THIS ROUTINE WILL CLEAR AN *IDP* ZERO TERMINATED TABLE          DBG=IDP     2514     A     
 DBG=IDP  *         BY SETTING ALL ENTRIES TO *AVAILABLE*, I.E. -1.                        DBG=IDP     2515     A     
 DBG=IDP  *                                                                                DBG=IDP     2516     A     
 DBG=IDP  *         ENTRY  (B6) = FWA OF TABLE TO BE CLEARED                               DBG=IDP     2517     A     
 DBG=IDP  *                                                                                DBG=IDP     2518     A     
 DBG=IDP  *         EXIT   NONE                                                            DBG=IDP     2519     A     
 DBG=IDP  *                                                                                DBG=IDP     2520     A     
 DBG=IDP  *         USES   X - 1,6                                                         DBG=IDP     2521     A     
 DBG=IDP  *                A - 1,6                                                         DBG=IDP     2522     A     
 DBG=IDP  *                B - NONE                                                        DBG=IDP     2523     A     
 DBG=IDP  *                                                                                DBG=IDP     2524     A     
 DBG=IDP  *         CALLS  NONE                                                            DBG=IDP     2525     A     
 DBG=IDP                                                                                   DBG=IDP     2526     A     
 DBG=IDP                                                                                   DBG=IDP     2527     A     
 DBG=IDP   CLZ      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     2528     A     
 DBG=IDP            SA1    B6                                                              DBG=IDP     2529     A     
 DBG=IDP            MX6    -1                                                              DBG=IDP     2530     A     
 DBG=IDP                                                                                   DBG=IDP     2531     A     
 DBG=IDP   CLZ2     ZR     X1,EXIT.    IF FINISHED                                         DBG=IDP     2532     A     
 DBG=IDP            SA6    A1                                                              DBG=IDP     2533     A     
 DBG=IDP            SA1    A1+B1                                                           DBG=IDP     2534     A     
 DBG=IDP            EQ     CLZ2                                                            DBG=IDP     2535     A     
 DBG=IDP   CON      SPACE  4,8                                                             DBG=IDP     2536     A     
 DBG=IDP  **        CON - CONNECT/DISCONT FILE.                                            DBG=IDP     2537     A     
 DBG=IDP  *                                                                                DBG=IDP     2538     A     
 DBG=IDP  *                                                                                DBG=IDP     2539     A     
 DBG=IDP  *         ENTRY  (A1,X1) = A + C OF 1ST WORD OF FET OF FILE                      DBG=IDP     2540     A     
 DBG=IDP  *                (X2)    = +0  IF TO CONNECT                                     DBG=IDP     2541     A     
 DBG=IDP  *                        =  1  IF TO DISCONT                                     DBG=IDP     2542     A     
 DBG=IDP  *                                                                                DBG=IDP     2543     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 220    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *         EXIT   SCOPE 3--                                                       DBG=IDP     2544     A     
 DBG=IDP  *                (X1)    = .MI. IF PP ROUTINE *CON* DETECTED ERROR,              DBG=IDP     2545     A     
 DBG=IDP  *                                 ELSE .PL.                                      DBG=IDP     2546     A     
 DBG=IDP  *                KRONOS/NOS/SCOPE 2-- NONE                                       DBG=IDP     2547     A     
 DBG=IDP  *                                                                                DBG=IDP     2548     A     
 DBG=IDP  *         USES   ALL BUT A0,A5,X5                                                DBG=IDP     2549     A     
 DBG=IDP  *                                                                                DBG=IDP     2550     A     
 DBG=IDP  *         CALLS  SCOPE 3-- SYSTEM                                                DBG=IDP     2551     A     
 DBG=IDP  *                KRONOS/NOS-- CLOSE,REQUEST,WRITER                               DBG=IDP     2552     A     
 DBG=IDP                                                                                   DBG=IDP     2553     A     
 DBG=IDP                                                                                   DBG=IDP     2554     A     
 DBG=IDP   CON      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     2555     A     
 DBG=IDP                                                                                   DBG=IDP     2556     A     
 DBG=IDP   #OS2     IFEQ   .OS,2       IF SCOPE 2                                          DBG=IDP     2557     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     2558     A     
 DBG=IDP   #OS2     ENDIF                                                                  DBG=IDP     2559     A     
 DBG=IDP                                                                                   DBG=IDP     2560     A     
 DBG=IDP   #OS3     IFEQ   .OS,3       IF SCOPE 3                                          DBG=IDP     2561     A     
 DBG=IDP            MX0    7*CHAR                                                          DBG=IDP     2562     A     
 DBG=IDP            BX6    X0*X1       (X6) = 42/0LFILENAME, 18/0                          DBG=IDP     2563     A     
 DBG=IDP            SA6    CONA                                                            DBG=IDP     2564     A     
 DBG=IDP            LX2    6                                                               DBG=IDP     2565     A     
 DBG=IDP            SYSTEM CON,RCL,CONA,X2                                                 DBG=IDP     2566     A     
 DBG=IDP                                                                                   DBG=IDP     2567     A     
 DBG=IDP            SA1    CONA                                                            DBG=IDP     2568     A     
 DBG=IDP            LX1    59-1                                                            DBG=IDP     2569     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     2570     A     
 DBG=IDP                                                                                   DBG=IDP     2571     A     
 DBG=IDP                                                                                   DBG=IDP     2572     A     
 DBG=IDP   CONA     BSSZ   1           PARAMETER WORD FOR PP ROUTINE *CON*--               DBG=IDP     2573     A     
 DBG=IDP  *                              42/0LFILENAME                                     DBG=IDP     2574     A     
 DBG=IDP  *                              16/0, 1/ERROR FLAG, 1/COMPLETE BIT                DBG=IDP     2575     A     
 DBG=IDP                                                                                   DBG=IDP     2576     A     
 DBG=IDP   #OS3     ELSE               IF KRONOS/NOS                                       DBG=IDP     2577     A     
 DBG=IDP            SX6    A1                                                              DBG=IDP     2578     A     
 DBG=IDP            SA6    CONA        SAVE (A1) = FWA OF FET                              DBG=IDP     2579     A     
 DBG=IDP            NZ     X2,CON2     IF TO DISCONT FILE                                  DBG=IDP     2580     A     
 DBG=IDP                                                                                   DBG=IDP     2581     A     
 DBG=IDP  *         HERE TO CONNECT FILE.                                                  DBG=IDP     2582     A     
 DBG=IDP                                                                                   DBG=IDP     2583     A     
 DBG=IDP            WRITER A1,,RCL     FLUSH BUFFER                                        DBG=IDP     2584     A     
 DBG=IDP            SA1    CONA                                                            DBG=IDP     2585     A     
 DBG=IDP            CLOSE  X1,,RCL     CLOSE FILE                                          DBG=IDP     2586     A     
 DBG=IDP            SA1    CONA                                                            DBG=IDP     2587     A     
 DBG=IDP            SX6    2RTT                                                            DBG=IDP     2588     A     
 DBG=IDP            MX0    60-48                                                           DBG=IDP     2589     A     
 DBG=IDP            SA2    X1+B1       (X2) = 12/DEVICE TYPE, 48/OTHER                     DBG=IDP     2590     A     
 DBG=IDP            LX6    10*CHAR-2*CHAR                                                  DBG=IDP     2591     A     
 DBG=IDP            BX2    -X0*X2                                                          DBG=IDP     2592     A     
 DBG=IDP            IX6    X2+X6       (X6) = 12/2RTT, 48/OTHER                            DBG=IDP     2593     A     
 DBG=IDP            SA6    A2                                                              DBG=IDP     2594     A     
 DBG=IDP            REQUEST X1,TT      ASSIGN FILE TO TERMINAL                             DBG=IDP     2595     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 221    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     2596     A     
 DBG=IDP                                                                                   DBG=IDP     2597     A     
 DBG=IDP  *         HERE TO DISCONT FILE.                                                  DBG=IDP     2598     A     
 DBG=IDP                                                                                   DBG=IDP     2599     A     
 DBG=IDP   CON2     WRITER A1,,RCL     FLUSH BUFFER                                        DBG=IDP     2600     A     
 DBG=IDP            SA1    CONA                                                            DBG=IDP     2601     A     
 DBG=IDP            CLOSE  X1,,RCL                                                         DBG=IDP     2602     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     2603     A     
 DBG=IDP                                                                                   DBG=IDP     2604     A     
 DBG=IDP                                                                                   DBG=IDP     2605     A     
 DBG=IDP   CONA     BSSZ   1           SAVED FWA OF FET                                    DBG=IDP     2606     A     
 DBG=IDP   #OS3     ENDIF                                                                  DBG=IDP     2607     A     
 DBG=IDP   DAZ      SPACE  4,8                                                             DBG=IDP     2608     A     
 DBG=IDP  **        DAZ - DEASSEMBLER.                                                     DBG=IDP     2609     A     
 DBG=IDP  *                                                                                DBG=IDP     2610     A     
 DBG=IDP  *                                                                                DBG=IDP     2611     A     
 DBG=IDP  *                DEASSEMBLES A SINGLE BINARY INSTRUCTION TO ITS                  DBG=IDP     2612     A     
 DBG=IDP  *         *COMPASS* MNEMONIC AND LISTS IT.                                       DBG=IDP     2613     A     
 DBG=IDP  *                                                                                DBG=IDP     2614     A     
 DBG=IDP  *         ENTRY  (A5,     =  ADDR OF WORD CONTAINING INSTRUCTION TO              DBG=IDP     2615     A     
 DBG=IDP  *                              DEASSEMBLE                                        DBG=IDP     2616     A     
 DBG=IDP  *                    X5)  =  WORD CONTAINING INSTRUCTION TO DEASSEMBLE           DBG=IDP     2617     A     
 DBG=IDP  *                            NOTE-- ((A5)) MIGHT NOT BE EQUAL TO (X5),           DBG=IDP     2618     A     
 DBG=IDP  *                              AS WOULD BE THE CASE WHEN DASSEMBLING             DBG=IDP     2619     A     
 DBG=IDP  *                              THE SAVED PREVIOUS CONTENTS OF AN IDP             DBG=IDP     2620     A     
 DBG=IDP  *                              GENERATED BREAK (SEE *STP*)                       DBG=IDP     2621     A     
 DBG=IDP  *                (B4)     =  POSITION COUNTER. LEFT MOST BIT TO BE               DBG=IDP     2622     A     
 DBG=IDP  *                              DEASSEMBLED IS BIT (B4)-1 IN (X5).                DBG=IDP     2623     A     
 DBG=IDP  *                              (BITS ARE NUMBERED 59 THRU 0) COMPASS             DBG=IDP     2624     A     
 DBG=IDP  *                              EQUIVALENT WOULD BE--                             DBG=IDP     2625     A     
 DBG=IDP  *                                  POS   (B4)    IN (X5)                         DBG=IDP     2626     A     
 DBG=IDP  *                (IDPFAD) =  .NZ. IF *DAZ* IS TO UNCONDITIONALLY FORCE           DBG0002     1201     A     
 DBG=IDP  *                                   OUT ADDR OF DEASSEMBLED INSTRUCTION,         DBG0002     1202     A     
 DBG=IDP  *                         =  .ZR. IF ADDR IS TO APPEAR ONLY IF INSTR IS          DBG0002     1203     A     
 DBG=IDP  *                                   FORCED UPPER IN WORD, I.E. (B4)=60D          DBG0002     1204     A     
 DBG=IDP  *                                                                                DBG=IDP     2627     A     
 DBG=IDP  *         EXIT   (A5,X5)  =  UNCHANGED                                           DBG=IDP     2628     A     
 DBG=IDP  *                (B4)     =  UNCHANGED                                           DBG=IDP     2629     A     
 DBG=IDP  *                (X1)     =  .MI. IF INSTRUCTION DEASSEMBLED FORCES              DBG=IDP     2630     A     
 DBG=IDP  *                              UPPER, ELSE .PL.                                  DBG=IDP     2631     A     
 DBG=IDP  *                (B5)     =  NR OF BITS DEASSEMBLED IF NO FORCE UPPER,           DBG=IDP     2632     A     
 DBG=IDP  *                         =  NR OF BITS IN INSTRUCTION THAT FORCED UPPER         DBG=IDP     2633     A     
 DBG=IDP  *                (IDPFAD) =  +0                                                  DBG0002     1205     A     
 DBG=IDP  *                                                                                DBG=IDP     2634     A     
 DBG=IDP  *         USES   ALL BUT A5,X5,B4                                                DBG=IDP     2635     A     
 DBG=IDP  *                                                                                DBG=IDP     2636     A     
 DBG=IDP  *         LOCKED (A6+1)   =  NEXT AVAILABLE *SNAPLNE* LOCATION                   DBG=IDP     2637     A     
 DBG=IDP  *                                                                                DBG=IDP     2638     A     
 DBG=IDP  *         CALLS  COD,PRIDP,VFD                                                   DBG=IDP     2639     A     
 DBG=IDP                                                                                   DBG=IDP     2640     A     
 DBG=IDP                                                                                   DBG=IDP     2641     A     
 DBG=IDP   DAZ      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     2642     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 222    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SB6    60                                                              DBG=IDP     2643     A     
 DBG=IDP            LE     B4,B0,*+1S17  IF POSITION COUNTER IS BAD                        DBG=IDP     2644     A     
 DBG=IDP            SA1    =10H                                                            DBG=IDP     2645     A     
 DBG=IDP            SA2    IDPFAD                                                          DBG0002     1206     A     
 DBG=IDP            MX7    0                                                               DBG0002     1207     A     
 DBG=IDP            BX6    X1                                                              DBG=IDP     2646     A     
 DBG=IDP            SA7    A2          CLEAR *FORCE OUT ADDR UNCONDITIONALLY* FLAG         DBG0002     1208     A     
 DBG=IDP            NZ     X2,DAZ1     IF FORCING OUT ADDR UNCONDITIONALLY                 DBG0002     1209     A     
 DBG=IDP            LT     B4,B6,DAZ2  IF THIS INSTRUCTION NOT UPPER                       DBG=IDP     2647     A     
 DBG=IDP                                                                                   DBG=IDP     2648     A     
 DBG=IDP  *         HERE IF INSTRUCTION IS UPPER, OUTPUT ADDRESS.                          DBG=IDP     2649     A     
 DBG=IDP                                                                                   DBG=IDP     2650     A     
 DBG=IDP            SB5    B4          SAVE (B4)                                           DBG=IDP     2651          I
          -DBG0002
 DBG=IDP   DAZ1     SB5    B4          SAVE (B4)                                           DBG0002     1210     A     
 DBG=IDP            SX1    A5                                                              DBG=IDP     2652     A     
 DBG=IDP            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC (ADDR)                  DBG=IDP     2653     A     
 DBG=IDP            LX6    3*CHAR                                                          DBG=IDP     2654     A     
 DBG=IDP            SB4    B5          RESTORE (B4)                                        DBG=IDP     2655     A     
 DBG=IDP                                                                                   DBG=IDP     2656     A     
 DBG=IDP  *         BREAK OUT OP CODE.                                                     DBG=IDP     2657     A     
 DBG=IDP                                                                                   DBG=IDP     2658     A     
 DBG=IDP   DAZ2     SA6    SNAPLNE                                                         DBG=IDP     2659     A     
 DBG=IDP            SB6    -B4                                                             DBG=IDP     2660     A     
 DBG=IDP            MX0    -6                                                              DBG=IDP     2661     A     
 DBG=IDP            SB6    60+B6+6     60-(B4) = LEFT JUST SHIFT COUNT FOR INSTRTN         DBG=IDP     2662     A     
 DBG=IDP            LX5    X5,B6       (X5) = 54/OTHER STUFF, 6/OP CODE                    DBG=IDP     2663     A     
 DBG=IDP            BX7    -X0*X5                                                          DBG=IDP     2664     A     
 DBG=IDP            LX5    3           (X5) = 51/OTHER STUFF,6/OP CODE,3/I                 DBG=IDP     2665     A     
 DBG=IDP            MX0    -3                                                              DBG=IDP     2666     A     
 DBG=IDP            SA7    DAZ=OP                                                          DBG=IDP     2667     A     
 DBG=IDP            ZR     X7,DAZ12    IF 00B OP CODE, REST OF WORD IS DATA                DBG=IDP     2668     A     
 DBG=IDP                                                                                   DBG=IDP     2669     A     
 DBG=IDP  *         BREAK OUT *I* FIELD.                                                   DBG=IDP     2670     A     
 DBG=IDP                                                                                   DBG=IDP     2671     A     
 DBG=IDP            BX7    -X0*X5                                                          DBG=IDP     2672     A     
 DBG=IDP            LX5    3           (X5) = 48/OTHER STUFF,6/OP,3/I,3/J                  DBG=IDP     2673     A     
 DBG=IDP            SX7    X7+1R0                                                          DBG=IDP     2674     A     
 DBG=IDP            SA7    A7+B1       SAVE (X7) = 1R<I>                                   DBG=IDP     2675     A     
 DBG=IDP                                                                                   DBG=IDP     2676     A     
 DBG=IDP  *         BREAK OUT *J* FIELD.                                                   DBG=IDP     2677     A     
 DBG=IDP                                                                                   DBG=IDP     2678     A     
 DBG=IDP            BX7    -X0*X5                                                          DBG=IDP     2679     A     
 DBG=IDP            LX5    3           (X5) = 45/OTHER,6/OP,3/I,3/J,3/K                    DBG=IDP     2680     A     
 DBG=IDP            SX7    X7+1R0                                                          DBG=IDP     2681     A     
 DBG=IDP            SA7    A7+B1       SAVE (X7) = 1R<J>                                   DBG=IDP     2682     A     
 DBG=IDP                                                                                   DBG=IDP     2683     A     
 DBG=IDP  *         BREAK OUT *K* FIELD.                                                   DBG=IDP     2684     A     
 DBG=IDP                                                                                   DBG=IDP     2685     A     
 DBG=IDP            BX7    -X0*X5                                                          DBG=IDP     2686     A     
 DBG=IDP            LX5    18-3        (X5) = 30/OTHER,6/OP,3/I,3/J,18/Q                   DBG=IDP     2687     A     
 DBG=IDP            SX7    X7+1R0                                                          DBG=IDP     2688     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 223    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            MX0    -18                                                             DBG=IDP     2689     A     
 DBG=IDP            SA7    A7+B1       SAVE (X7) = 1R<K>                                   DBG=IDP     2690     A     
 DBG=IDP                                                                                   DBG=IDP     2691     A     
 DBG=IDP  *         BREAK OUT *Q* 18 BIT ADDRESS FIELD.                                    DBG=IDP     2692     A     
 DBG=IDP                                                                                   DBG=IDP     2693     A     
 DBG=IDP            BX1    -X0*X5      (X1) = 42/0,18/Q                                    DBG=IDP     2694     A     
 DBG=IDP            SB5    B4          SAVE (B4)                                           DBG=IDP     2695     A     
 DBG=IDP            SB7    60-60+B4-6-3-3-3-15  (B7) = 60-((60-(B4))+6+3+3+3+15)           DBG=IDP     2696     A     
 DBG=IDP            SX7    X1                                                              DBG=IDP     2697     A     
 DBG=IDP            LX5    X5,B7       RESTORE (X5)                                        DBG=IDP     2698     A     
 DBG=IDP            SA7    DAZ=ADR                                                         DBG=IDP     2699     A     
 DBG=IDP            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC-- *Q*                   DBG=IDP     2700     A     
 DBG=IDP            SB4    B5          RESTORE (B4)                                        DBG=IDP     2701     A     
 DBG=IDP            SB2    B2-B1                                                           DBG=IDP     2702     A     
 DBG=IDP            MX0    1                                                               DBG=IDP     2703     A     
 DBG=IDP            AX0    X0,B2                                                           DBG=IDP     2704     A     
 DBG=IDP            BX7    X0*X4       (X7) = 0L<Q>                                        DBG=IDP     2705     A     
 DBG=IDP            SA7    A7+B1                                                           DBG=IDP     2706     A     
 DBG=IDP                                                                                   DBG=IDP     2707     A     
 DBG=IDP  *         FETCH INSTRUCTION SKELETON AND CHECK FOR LENGTH CONFLICT.              DBG=IDP     2708     A     
 DBG=IDP                                                                                   DBG=IDP     2709     A     
 DBG=IDP            SA1    DAZ=OP                                                          DBG=IDP     2710     A     
 DBG=IDP            SA2    DAZ=PS+X1   (X2) = INSTRUCTION SKELETON                         DBG=IDP     2711     A     
 DBG=IDP            SB5    15                                                              DBG=IDP     2712     A     
 DBG=IDP            BX1    X5                                                              DBG=IDP     2713     A     
 DBG=IDP            PL     X2,DAZ3     IF SHORT (15 BIT) INSTRUCTION                       DBG=IDP     2714     A     
 DBG=IDP            SB5    B5+B5       (B5) = 30                                           DBG=IDP     2715     A     
 DBG=IDP                                                                                   DBG=IDP     2716     A     
 DBG=IDP   DAZ3     LT     B4,B5,DAZ12 IF NOT ENOUGH ROOM FOR 30 BIT INSTR,                DBG=IDP     2717     A     
 DBG=IDP  *                                  MUST BE DATA                                  DBG=IDP     2718     A     
 DBG=IDP                                                                                   DBG=IDP     2719     A     
 DBG=IDP  *         CONVERT BINARY INSTRUCTION PARCEL TO OCTAL DPC.                        DBG=IDP     2720     A     
 DBG=IDP                                                                                   DBG=IDP     2721     A     
 DBG=IDP            RJ     VFD         VARIABLE FIELD DEFINITION                           DBG=IDP     2722     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     2723     A     
 DBG=IDP            BX6    X7                                                              DBG=IDP     2724     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     2725     A     
 DBG=IDP                                                                                   DBG=IDP     2726     A     
 DBG=IDP  *         CHECK FOR X REGISTER BRANCH INSTRUCTION.                               DBG=IDP     2727     A     
 DBG=IDP                                                                                   DBG=IDP     2728     A     
 DBG=IDP            SA1    DAZ=OP                                                          DBG=IDP     2729     A     
 DBG=IDP            SA2    DAZ=PS+X1   (X2) = INSTRUCTION SKELETON                         DBG=IDP     2730     A     
 DBG=IDP            SX6    X1-03B                                                          DBG=IDP     2731     A     
 DBG=IDP            NZ     X6,DAZ4     IF NOT X REGISTER BRANCH                            DBG=IDP     2732     A     
 DBG=IDP            SA1    DAZ=I                                                           DBG=IDP     2733     A     
 DBG=IDP            SA2    DAZ=XJP+X1-1R0    (X2) = X REG BRANCH SKELETON                  DBG=IDP     2734     A     
 DBG=IDP                                                                                   DBG=IDP     2735     A     
 DBG=IDP  *         GENERATE ...OPI....      (.=BLANK(55B))                                DBG=IDP     2736     A     
 DBG=IDP                                                                                   DBG=IDP     2737     A     
 DBG=IDP   DAZ4     SA1    DAZ=OPI     (X1) = ...000....   (0=00B)                         DBG=IDP     2738     A     
 DBG=IDP            MX0    -2*CHAR                                                         DBG=IDP     2739     A     
 DBG=IDP            BX6    -X0*X2      (X6) = 2R<OP>                                       DBG=IDP     2740     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 224    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            LX6    7*CHAR-2*CHAR                                                   DBG=IDP     2741     A     
 DBG=IDP            MX0    -4                                                              DBG=IDP     2742     A     
 DBG=IDP            LX2    3+4         (X2) = 56/OTHER STUFF,4/1ST DESCRIPTOR              DBG=IDP     2743     A     
 DBG=IDP            BX3    -X0*X2                                                          DBG=IDP     2744     A     
 DBG=IDP            SA4    DAZ=I-1+X3                                                      DBG=IDP     2745     A     
 DBG=IDP            BX6    X1+X6       (X6) = ...OP0....   (0=00B)                         DBG=IDP     2746     A     
 DBG=IDP            LX4    5*CHAR-1*CHAR                                                   DBG=IDP     2747     A     
 DBG=IDP            BX6    X6+X4       (X6) = ...OPI....                                   DBG=IDP     2748     A     
 DBG=IDP                                                                                   DBG=IDP     2749     A     
 DBG=IDP  *         ASSEMBLE NORMAL (I,J,K) ITEMS.                                         DBG=IDP     2750     A     
 DBG=IDP                                                                                   DBG=IDP     2751     A     
 DBG=IDP   DAZ5     SA6    A6+B1                                                           DBG=IDP     2752     A     
 DBG=IDP            SB6    10*CHAR                                                         DBG=IDP     2753     A     
 DBG=IDP            MX6    0                                                               DBG=IDP     2754     A     
 DBG=IDP                                                                                   DBG=IDP     2755     A     
 DBG=IDP   DAZ6     LX2    4                                                               DBG=IDP     2756     A     
 DBG=IDP            SB6    B6-CHAR                                                         DBG=IDP     2757     A     
 DBG=IDP            BX3    -X0*X2      (X3) = DESCRIPTOR                                   DBG=IDP     2758     A     
 DBG=IDP            SA4    DAZ=I-1+X3                                                      DBG=IDP     2759     A     
 DBG=IDP            ZR     X3,DAZ11    IF END OF DESCRIPTOR LIST IN SKELETON               DBG=IDP     2760     A     
 DBG=IDP                                                                                   DBG=IDP     2761     A     
 DBG=IDP   DAZ7     MI     X4,DAZ8     IF THIS IS A CONDITIONAL ITEM                       DBG=IDP     2762     A     
 DBG=IDP            LX4    X4,B6                                                           DBG=IDP     2763     A     
 DBG=IDP            BX6    X6+X4                                                           DBG=IDP     2764     A     
 DBG=IDP            GT     B6,B0,DAZ6  IF PACKING REG (X6) NOT FULL                        DBG=IDP     2765     A     
 DBG=IDP            EQ     DAZ5                                                            DBG=IDP     2766     A     
 DBG=IDP                                                                                   DBG=IDP     2767     A     
 DBG=IDP  *         PROCESS AND ASSEMBLE CONDITONAL ITEM.                                  DBG=IDP     2768     A     
 DBG=IDP                                                                                   DBG=IDP     2769     A     
 DBG=IDP   DAZ8     NZ     X4,DAZ9     IF *Q* 18 BIT ADDRESS                               DBG=IDP     2770     A     
 DBG=IDP                                                                                   DBG=IDP     2771     A     
 DBG=IDP  *         HERE TO PROCESS CONDITIONAL *B0* ASSEMBLY.                             DBG=IDP     2772     A     
 DBG=IDP                                                                                   DBG=IDP     2773     A     
 DBG=IDP            LX2    4                                                               DBG=IDP     2774     A     
 DBG=IDP            BX3    -X0*X2                                                          DBG=IDP     2775     A     
 DBG=IDP            SA4    DAZ=I-1+X3                                                      DBG=IDP     2776     A     
 DBG=IDP            SX7    X4-1R0                                                          DBG=IDP     2777     A     
 DBG=IDP            SX4    1RB                                                             DBG=IDP     2778     A     
 DBG=IDP            LX2    -4          RESTORE (X2)                                        DBG=IDP     2779     A     
 DBG=IDP            NZ     X7,DAZ7     IF NOT *B0* REFERENCE                               DBG=IDP     2780     A     
 DBG=IDP                                                                                   DBG=IDP     2781     A     
 DBG=IDP  *         HERE TO IGNORE *B0* REFERENCE.                                         DBG=IDP     2782     A     
 DBG=IDP                                                                                   DBG=IDP     2783     A     
 DBG=IDP            LX2    2*4         SKIP OVER *B0* AND SEPARATOR                        DBG=IDP     2784     A     
 DBG=IDP            SB6    B6+CHAR                                                         DBG=IDP     2785     A     
 DBG=IDP            EQ     DAZ6                                                            DBG=IDP     2786     A     
 DBG=IDP                                                                                   DBG=IDP     2787     A     
 DBG=IDP  *         HERE TO PROCESS *Q* 18 BIT ADDRESS.                                    DBG=IDP     2788     A     
 DBG=IDP                                                                                   DBG=IDP     2789     A     
 DBG=IDP   DAZ9     SA1    DAZ=ADR+1   (X1) = 0L<Q>   (ALWAYS .LE. 6 CHARS)                DBG=IDP     2790     A     
 DBG=IDP            MX0    -CHAR                                                           DBG=IDP     2791     A     
 DBG=IDP                                                                                   DBG=IDP     2792     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 225    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *         ASSEMBLE *Q*.                                                          DBG=IDP     2793     A     
 DBG=IDP                                                                                   DBG=IDP     2794     A     
 DBG=IDP   DAZ10    LX1    CHAR                                                            DBG=IDP     2795     A     
 DBG=IDP            BX4    -X0*X1                                                          DBG=IDP     2796     A     
 DBG=IDP            ZR     X4,DAZ11    IF FINISHED ASSEMBLING *Q*                          DBG=IDP     2797     A     
 DBG=IDP            LX4    X4,B6                                                           DBG=IDP     2798     A     
 DBG=IDP            SB6    B6-CHAR                                                         DBG=IDP     2799     A     
 DBG=IDP            BX6    X6+X4                                                           DBG=IDP     2800     A     
 DBG=IDP            GE     B6,B0,DAZ10 IF PACKING REG (X6) NOT FULL                        DBG=IDP     2801     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     2802     A     
 DBG=IDP            MX6    0                                                               DBG=IDP     2803     A     
 DBG=IDP            SB6    10*CHAR-1*CHAR                                                  DBG=IDP     2804     A     
 DBG=IDP            EQ     DAZ10                                                           DBG=IDP     2805     A     
 DBG=IDP                                                                                   DBG=IDP     2806     A     
 DBG=IDP  *         STORE FINAL WORD.                                                      DBG=IDP     2807     A     
 DBG=IDP                                                                                   DBG=IDP     2808     A     
 DBG=IDP   DAZ11    BX1    X6                                                              DBG=IDP     2809     A     
 DBG=IDP            RJ     =XSFN       SPACE FILL NAME                                     DBG=IDP     2810     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     2811     A     
 DBG=IDP                                                                                   DBG=IDP     2812     A     
 DBG=IDP  *         GENERATE RELATIVE ADDRESS.                                             DBG=IDP     2813     A     
 DBG=IDP                                                                                   DBG=IDP     2814     A     
 DBG=IDP   #FRA     IF     DEF,FRA=                                                        DBG=IDP     2815     A     
 DBG=IDP            SA1    DAZ=ADR                                                         DBG=IDP     2816     A     
 DBG=IDP            SA2    =10H                                                            DBG=IDP     2817     A     
 DBG=IDP            SB3    SNAPLNE+5                                                       DBG=IDP     2818     A     
 DBG=IDP            SB2    A6                                                              DBG=IDP     2819     A     
 DBG=IDP            SB7    DAZ11B      (B7) = RETURN ADDRESS FOR *FRA=*                    DBG=IDP     2820     A     
 DBG=IDP            SA0    B4          SAVE (B4)                                           DBG=IDP     2821     A     
 DBG=IDP            GE     B2,B3,DAZ11A IF WE DONT NEED BLANK FILL                         DBG=IDP     2822     A     
 DBG=IDP            BX6    X2                                                              DBG=IDP     2823     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     2824     A     
 DBG=IDP                                                                                   DBG=IDP     2825     A     
 DBG=IDP   DAZ11A   SB6    30                                                              DBG=IDP     2826     A     
 DBG=IDP            MI     X1,DAZ11C   IF ADDR IS .MI. (I.E. NOT AN ADDRESS)               DBG=IDP     2827     A     
 DBG=IDP            LT     B5,B6,DAZ11C IF 15 BIT INSTRUCTION, NO RELATIVE ADDR            DBG=IDP     2828     A     
 DBG=IDP            EQ     =XFRA=      FIND RELATIVE ADDRESS                               DBG=IDP     2829     A     
 DBG=IDP                                                                                   DBG=IDP     2830     A     
 DBG=IDP   DAZ11B   SA1    A6          (X1) = XX........   .=BLANK(55B)                    DBG=IDP     2831     A     
 DBG=IDP  *                              X=DIFFERENT CHARS DEPENDING ON DEASSEMBLY         DBG=IDP     2832     A     
 DBG=IDP            SB4    A0          RESTORE (B4)                                        DBG=IDP     2833     A     
 DBG=IDP            MX0    3*CHAR                                                          DBG=IDP     2834     A     
 DBG=IDP            BX1    X0*X1       (X1) = XX.0000000   (.=BLANK(55B),0=00B)            DBG=IDP     2835     A     
 DBG=IDP            LX6    -3*CHAR                                                         DBG=IDP     2836     A     
 DBG=IDP            BX6    -X0*X6      (X6) = 000NNNNNN.   (.=BLANK(55B),0=00B)            DBG=IDP     2837     A     
 DBG=IDP            BX6    X6+X1       (X6) = XX.NNNNNN.   (.=BLANK(55B))                  DBG=IDP     2838     A     
 DBG=IDP            SA6    A1                                                              DBG=IDP     2839     A     
 DBG=IDP            SX1    3RIN                                                            DBG=IDP     2840     A     
 DBG=IDP            BX6    X7+X1       (X6) = XXXXXXXIN.   (.=BLANK(55B))                  DBG=IDP     2841     A     
 DBG=IDP            LX6    10*CHAR-3*CHAR                                                  DBG=IDP     2842     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     2843     A     
 DBG=IDP   #FRA     ENDIF                                                                  DBG=IDP     2844     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 226    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG=IDP     2845     A     
 DBG=IDP  *         FINAL PROCESSING AND EXIT.                                             DBG=IDP     2846     A     
 DBG=IDP                                                                                   DBG=IDP     2847     A     
 DBG=IDP   DAZ11C   MX6    0                                                               DBG=IDP     2848     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     2849     A     
 DBG=IDP            SA0    B5          SAVE (B5)                                           DBG=IDP     2850          I
          -DBG0002
 DBG=IDP            SX0    B5                                                              DBG0002     1211     A     
 DBG=IDP            PRIDP  =XSNAPLNE                                                       DBG=IDP     2851     A     
 DBG=IDP            SB5    A0          RESTORE (B5)                                        DBG=IDP     2852          I
          -DBG0002
 DBG=IDP            SB5    X0                                                              DBG0002     1212     A     
 DBG=IDP            SB6    59-57                                                           DBG=IDP     2853     A     
 DBG=IDP            SA2    DAZ=OP                                                          DBG=IDP     2854     A     
 DBG=IDP            SA2    DAZ=PS+X2                                                       DBG=IDP     2855     A     
 DBG=IDP            LX1    X2,B6       SET TO *FORCED UPPER(.MI.)/NOT UPPER(.PL.)*         DBG=IDP     2856     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     2857     A     
 DBG=IDP                                                                                   DBG=IDP     2858     A     
 DBG=IDP  *         HERE IF OUTPUTING REST OF WORD AS DATA.                                DBG=IDP     2859     A     
 DBG=IDP                                                                                   DBG=IDP     2860     A     
 DBG=IDP   DAZ12    SB5    B4          (B5) = LENGTH OF REMAINDER OF INSTR WORD            DBG=IDP     2861     A     
 DBG=IDP            SA1    A5          (X1) = INSTRUCTION WORD                             DBG=IDP     2862     A     
 DBG=IDP            RJ     VFD         VARIABLE FIELD DEFINITION                           DBG=IDP     2863     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     2864     A     
 DBG=IDP            SA7    A6+B1                                                           DBG=IDP     2865     A     
 DBG=IDP            SA1    =7L   DATA                                                      DBG=IDP     2866     A     
 DBG=IDP            BX6    X1                                                              DBG=IDP     2867     A     
 DBG=IDP            SA6    A7+B1                                                           DBG=IDP     2868     A     
 DBG=IDP            SA0    B5          SAVE (B5)                                           DBG=IDP     2869          I
          -DBG0002
 DBG=IDP            SX0    B5          SAVE (B5)                                           DBG0002     1213     A     
 DBG=IDP            PRIDP  =XSNAPLNE                                                       DBG=IDP     2870     A     
 DBG=IDP            SB5    A0          RESTORE (B5)                                        DBG=IDP     2871          I
          -DBG0002
 DBG=IDP            SB5    X0          RESTORE (B5)                                        DBG0002     1214     A     
 DBG=IDP            MX2    0           SET TO *THIS IS A DATA ITEM*                        DBG=IDP     2872     A     
 DBG=IDP            MX1    1           SET TO *FORCED UPPER*                               DBG=IDP     2873     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     2874     A     
 DBG=IDP                                                                                   DBG=IDP     2875     A     
 DBG=IDP                                                                                   DBG=IDP     2876     A     
 DBG=IDP   DAZ=ADR  BSSZ   1           18 BIT *Q* IN BINARY                                DBG=IDP     2877     A     
 DBG=IDP            BSSZ   1           18 BIT *Q* IN -0L- FORMAT                           DBG=IDP     2878     A     
 DBG=IDP   DAZ=OPI  CON    3L   +4R                                                        DBG=IDP     2879     A     
 DBG=IDP   DAZ=OP   DATA   0           OP CODE FOR INSTRUCTION                             DBG=IDP     2880     A     
 DBG=IDP   DAZ=I    DATA   0           *I* REGISTER PORTION OF INSTRUCTION                 DBG=IDP     2881     A     
 DBG=IDP   DAZ=J    DATA   0           *J* REGISTER PORTION OF INSTRUCTION                 DBG=IDP     2882     A     
 DBG=IDP   DAZ=K    DATA   0           *K* REGISTER PORTION OF INSTRUCTION                 DBG=IDP     2883     A     
 DBG=IDP   DAZ=Q    DATA   -1          FLAG TO INDICATE 18 BIT *Q*                         DBG=IDP     2884     A     
 DBG=IDP            DATA   1R+                                                             DBG=IDP     2885     A     
 DBG=IDP            DATA   1R-                                                             DBG=IDP     2886     A     
 DBG=IDP            DATA   1R*                                                             DBG=IDP     2887     A     
 DBG=IDP            DATA   1R/                                                             DBG=IDP     2888     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 227    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            DATA   1R,                                                             DBG=IDP     2889     A     
 DBG=IDP            DATA   1RA                                                             DBG=IDP     2890     A     
 DBG=IDP            DATA   1RB                                                             DBG=IDP     2891     A     
 DBG=IDP            DATA   -0          FLAG TO INDICATE CONDITIONAL *B0* ASSEMBLY          DBG=IDP     2892     A     
 DBG=IDP            DATA   1RX                                                             DBG=IDP     2893     A     
 DBG=IDP            DATA   1R                                                              DBG=IDP     2894     A     
 DBG=IDP   INST     SPACE  4,8                                                             DBG=IDP     2895     A     
 DBG=IDP  **        INST - MACRO TO GENERATE INSTRUCTION SKELETONS.                        DBG=IDP     2896     A     
 DBG=IDP  *         GENERATES TABLE OF INSTRUCTION SKELETONS USED BY *PIG* TO              DBG=IDP     2897     A     
 DBG=IDP  *                CONVERT INSTRUCTIONS TO HUMAN-READABLE FORM FOR THE             DBG=IDP     2898     A     
 DBG=IDP  *                OBJECT CODE LISTING.                                            DBG=IDP     2899     A     
 DBG=IDP  *                                                                                DBG=IDP     2900     A     
 DBG=IDP  *         INST   (KEY),BJMP,FORCE,IJJ                                            DBG=IDP     2901     A     
 DBG=IDP  *                                                                                DBG=IDP     2902     A     
 DBG=IDP  *         *KEY*  = INSTRUCTION DESCRIPTOR.  EACH CHARACTER OF THE *KEY*          DBG=IDP     2903     A     
 DBG=IDP  *                  HAS MEANING AS FOLLOWS --                                     DBG=IDP     2904     A     
 DBG=IDP  *                            I   I-PORTION OF INSTRUCTION                        DBG=IDP     2905     A     
 DBG=IDP  *                            J   J-PORTION OF INSTRUCTION                        DBG=IDP     2906     A     
 DBG=IDP  *                            K   K-PORTION OF INSTRUCTION (3 BITS ONLY)          DBG=IDP     2907     A     
 DBG=IDP  *                            Q   18-BIT *K* ADDRESS FIELD (MUST BE LAST)         DBG=IDP     2908     A     
 DBG=IDP  *                            C   OUTPUT A *B* IF THE NEXT REGISTER IS            DBG=IDP     2909     A     
 DBG=IDP  *                                            NOT A ZERO,                         DBG=IDP     2910     A     
 DBG=IDP  *                                            ELSE, SKIP THE NEXT 2 ITEMS         DBG=IDP     2911     A     
 DBG=IDP  *                            + - * / A B X , AND BLANK ALL STAND FOR             DBG=IDP     2912     A     
 DBG=IDP  *                                            THEMSELVES.                         DBG=IDP     2913     A     
 DBG=IDP  *         *BJMP* = NON-EMPTY IF THIS A *B-REGISTER* JUMP INSTRUCTION.            DBG=IDP     2914     A     
 DBG=IDP  *                            (04 THRU 07 INSTRUCTION.)                           DBG=IDP     2915     A     
 DBG=IDP  *         *FORCE*= THIS INSTRUCTION FORCES THE NEXT INSTRUCTION UPPER.           DBG=IDP     2916     A     
 DBG=IDP  *         *COPY* = COPY *J* INTO *K*.                                            DBG=IDP     2917     A     
 DBG=IDP                                                                                   DBG=IDP     2918     A     
 DBG=IDP   #DAZ     IF     -DEF,DAZ=PS                                                     DBG=IDP     2919     A     
 DBG=IDP   P.COPY   =      2*CHAR                                                          DBG=IDP     2920     A     
 DBG=IDP            NOREF  D,L                                                             DBG=IDP     2921     A     
 DBG=IDP                                                                                   DBG=IDP     2922     A     
 DBG=IDP                                                                                   DBG=IDP     2923     A     
 DBG=IDP   INST     MACRO  KEY,BJMP,FORCE,IJJ                                              DBG=IDP     2924     A     
 DBG=IDP   A        MICRO  3,1,=KEY=                                                       DBG=IDP     2925     A     
 DBG=IDP   B        MICRO  5,,=KEY=                                                        DBG=IDP     2926     A     
 DBG=IDP   B        MICRO  1,,="A""B"=                                                     DBG=IDP     2927     A     
 DBG=IDP   C        MICCNT B                                                               DBG=IDP     2928     A     
 DBG=IDP   D        SET    0                                                               DBG=IDP     2929     A     
 DBG=IDP   L        SET    0                                                               DBG=IDP     2930     A     
 DBG=IDP   A        MICRO  C+3,1,=KEY=                                                     DBG=IDP     2931     A     
 DBG=IDP            IFC    EQ,="A"=Q=,1                                                    DBG=IDP     2932     A     
 DBG=IDP   L        SET    L+4                                                             DBG=IDP     2933     A     
 DBG=IDP            IFC    NE,,BJMP,,,1                                                    DBG=IDP     2934     A     
 DBG=IDP   L        SET    L+2                                                             DBG=IDP     2935     A     
 DBG=IDP            IFC    NE,,FORCE,,,1                                                   DBG=IDP     2936     A     
 DBG=IDP   L        SET    L+1                                                             DBG=IDP     2937     A     
 DBG=IDP            VFD    3/L                                                             DBG=IDP     2938     A     
 DBG=IDP  .1        DUP    C                                                               DBG=IDP     2939     A     
 DBG=IDP   D        SET    D+1                                                             DBG=IDP     2940     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 228    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP   A        MICRO  D,1,="B"=                                                       DBG=IDP     2941     A     
 DBG=IDP   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     A     
 DBG=IDP  ,-V-W13-Y-Z-0-1-2-3-4-5-6-7-8-905060708-(-)-$-=1409/                             DBG=IDP     2943     A     
 DBG=IDP            VFD    4/"A"                                                           DBG=IDP     2944     A     
 DBG=IDP  .1        ENDD                                                                   DBG=IDP     2945     A     
 DBG=IDP            IFLE   $,2*6-1+4,1                                                     DBG=IDP     2946     A     
 DBG=IDP   8        ERR    INST - DESCRIPTOR (KEY) IS TOO LONG                             DBG=IDP     2947     A     
 DBG=IDP            POS    P.COPY+1                                                        DBG=IDP     2948     A     
 DBG=IDP   A        MICRO  1,2, KEY                                                        DBG=IDP     2949     A     
 DBG=IDP            VFD    1/IJJ,12/2R"A"                                                  DBG=IDP     2950     A     
 DBG=IDP   INST     ENDM                                                                   DBG=IDP     2951     A     
 DBG=IDP   DAZ=PS   SPACE  4,8                                                             DBG=IDP     2952     A     
 DBG=IDP  **        DAZ=PS - INSTRUCTION SKELETON TABLES FOR *DAZ*.                        DBG=IDP     2953     A     
 DBG=IDP                                                                                   DBG=IDP     2954     A     
 DBG=IDP                                                                                   DBG=IDP     2955     A     
 DBG=IDP   DAZ=PS   INST   (PS  Q)               00    (FAKE)                              DBG=IDP     2956     A     
 DBG=IDP            INST   (RJ  Q),,1            01                                        DBG=IDP     2957     A     
 DBG=IDP            INST   (JP  CI+Q),,1         02                                        DBG=IDP     2958     A     
 DBG=IDP            INST   (JXI XJ,Q)            03I  (FAKE)                               DBG=IDP     2959     A     
 DBG=IDP   DAZ=EQ   INST   (EQ  CI,CJ,Q),1       04                                        DBG=IDP     2960     A     
 DBG=IDP            INST   (NE  CI,CJ,Q),1       05                                        DBG=IDP     2961     A     
 DBG=IDP            INST   (GE  BI,CJ,Q),1       06                                        DBG=IDP     2962     A     
 DBG=IDP            INST   (LT  BI,CJ,Q),1       07                                        DBG=IDP     2963     A     
 DBG=IDP                                                                                   DBG=IDP     2964     A     
 DBG=IDP            INST   (BXI XJ),,,1          10                                        DBG=IDP     2965     A     
 DBG=IDP            INST   (BXI XJ*XK)           11                                        DBG=IDP     2966     A     
 DBG=IDP            INST   (BXI XJ+XK)           12                                        DBG=IDP     2967     A     
 DBG=IDP            INST   (BXI XJ-XK)           13                                        DBG=IDP     2968     A     
 DBG=IDP            INST   (BXI -XJ),,,1         14                                        DBG=IDP     2969     A     
 DBG=IDP            INST   (BXI -XK*XJ)          15                                        DBG=IDP     2970     A     
 DBG=IDP            INST   (BXI -XK+XJ)          16                                        DBG=IDP     2971     A     
 DBG=IDP            INST   (BXI -XJ-XK)          17                                        DBG=IDP     2972     A     
 DBG=IDP                                                                                   DBG=IDP     2973     A     
 DBG=IDP            INST   (LXI JKB)             20                                        DBG=IDP     2974     A     
 DBG=IDP            INST   (AXI JKB)             21                                        DBG=IDP     2975     A     
 DBG=IDP            INST   (LXI CJ,XK)           22                                        DBG=IDP     2976     A     
 DBG=IDP            INST   (AXI CJ,XK)           23                                        DBG=IDP     2977     A     
 DBG=IDP            INST   (NXI CJ,XK)           24                                        DBG=IDP     2978     A     
 DBG=IDP            INST   (ZXI CJ,XK)           25                                        DBG=IDP     2979     A     
 DBG=IDP            INST   (UXI CJ,XK)           26                                        DBG=IDP     2980     A     
 DBG=IDP            INST   (PXI CJ,XK)           27                                        DBG=IDP     2981     A     
 DBG=IDP                                                                                   DBG=IDP     2982     A     
 DBG=IDP            INST   (FXI XJ+XK)           30                                        DBG=IDP     2983     A     
 DBG=IDP            INST   (FXI XJ-XK)           31                                        DBG=IDP     2984     A     
 DBG=IDP            INST   (DXI XJ+XK)           32                                        DBG=IDP     2985     A     
 DBG=IDP            INST   (DXI XJ-XK)           33                                        DBG=IDP     2986     A     
 DBG=IDP            INST   (RXI XJ+XK)           34                                        DBG=IDP     2987     A     
 DBG=IDP            INST   (RXI XJ-XK)           35                                        DBG=IDP     2988     A     
 DBG=IDP            INST   (IXI XJ+XK)           36                                        DBG=IDP     2989     A     
 DBG=IDP            INST   (IXI XJ-XK)           37                                        DBG=IDP     2990     A     
 DBG=IDP                                                                                   DBG=IDP     2991     A     
 DBG=IDP            INST   (FXI XJ*XK)           40                                        DBG=IDP     2992     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 229    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            INST   (RXI XJ*XK)           41                                        DBG=IDP     2993     A     
 DBG=IDP            INST   (DXI XJ*XK)           42                                        DBG=IDP     2994     A     
 DBG=IDP            INST   (MXI JKB)             43                                        DBG=IDP     2995     A     
 DBG=IDP            INST   (FXI XJ/XK)           44                                        DBG=IDP     2996     A     
 DBG=IDP            INST   (RXI XJ/XK)           45                                        DBG=IDP     2997     A     
 DBG=IDP            INST   (NO  IJKB)            46                                        DBG=IDP     2998     A     
 DBG=IDP            INST   (CXI XK),,,1          47                                        DBG=IDP     2999     A     
 DBG=IDP                                                                                   DBG=IDP     3000     A     
 DBG=IDP            INST   (SAI AJ+Q)            50                                        DBG=IDP     3001     A     
 DBG=IDP            INST   (SAI CJ+Q)            51                                        DBG=IDP     3002     A     
 DBG=IDP            INST   (SAI XJ+Q)            52                                        DBG=IDP     3003     A     
 DBG=IDP            INST   (SAI CK+XJ)           53                                        DBG=IDP     3004     A     
 DBG=IDP            INST   (SAI CK+AJ)           54                                        DBG=IDP     3005     A     
 DBG=IDP            INST   (SAI AJ-BK)           55                                        DBG=IDP     3006     A     
 DBG=IDP            INST   (SAI CK+BJ)           56                                        DBG=IDP     3007     A     
 DBG=IDP            INST   (SAI -BK+BJ)          57                                        DBG=IDP     3008     A     
 DBG=IDP                                                                                   DBG=IDP     3009     A     
 DBG=IDP            INST   (SBI AJ+Q)            60                                        DBG=IDP     3010     A     
 DBG=IDP            INST   (SBI CJ+Q)            61                                        DBG=IDP     3011     A     
 DBG=IDP            INST   (SBI XJ+Q)            62                                        DBG=IDP     3012     A     
 DBG=IDP            INST   (SBI CK+XJ)           63                                        DBG=IDP     3013     A     
 DBG=IDP            INST   (SBI CK+AJ)           64                                        DBG=IDP     3014     A     
 DBG=IDP            INST   (SBI AJ-BK)           65                                        DBG=IDP     3015     A     
 DBG=IDP            INST   (SBI CK+BJ)           66                                        DBG=IDP     3016     A     
 DBG=IDP            INST   (SBI -BK+BJ)          67                                        DBG=IDP     3017     A     
 DBG=IDP                                                                                   DBG=IDP     3018     A     
 DBG=IDP            INST   (SXI AJ+Q)            70                                        DBG=IDP     3019     A     
 DBG=IDP            INST   (SXI CJ+Q)            71                                        DBG=IDP     3020     A     
 DBG=IDP            INST   (SXI XJ+Q)            72                                        DBG=IDP     3021     A     
 DBG=IDP            INST   (SXI CK+XJ)           73                                        DBG=IDP     3022     A     
 DBG=IDP            INST   (SXI CK+AJ)           74                                        DBG=IDP     3023     A     
 DBG=IDP            INST   (SXI AJ-BK)           75                                        DBG=IDP     3024     A     
 DBG=IDP            INST   (SXI CK+BJ)           76                                        DBG=IDP     3025     A     
 DBG=IDP            INST   (SXI -BK+BJ)          77                                        DBG=IDP     3026     A     
 DBG=IDP                                                                                   DBG=IDP     3027     A     
 DBG=IDP   DAZ=XJP  INST   (ZR  XJ,Q)            030                                       DBG=IDP     3028     A     
 DBG=IDP            INST   (NZ  XJ,Q)            031                                       DBG=IDP     3029     A     
 DBG=IDP            INST   (PL  XJ,Q)            032                                       DBG=IDP     3030     A     
 DBG=IDP            INST   (MI  XJ,Q)            033                                       DBG=IDP     3031     A     
 DBG=IDP            INST   (IR  XJ,Q)            034                                       DBG=IDP     3032     A     
 DBG=IDP            INST   (OR  XJ,Q)            035                                       DBG=IDP     3033     A     
 DBG=IDP            INST   (DF  XJ,Q)            036                                       DBG=IDP     3034     A     
 DBG=IDP            INST   (ID  XJ,Q)            037                                       DBG=IDP     3035     A     
 DBG=IDP   #DAZ     ENDIF                                                                  DBG=IDP     3036     A     
 DBG=IDP   DOD      SPACE  4,8                                                             DBG0002     1215     A     
 DBG=IDP  **        DOD - DUMP CENTRAL MEMORY -- OCTAL AND DPC.                            DBG0002     1216     A     
 DBG=IDP  *                                                                                DBG0002     1217     A     
 DBG=IDP  *                                                                                DBG0002     1218     A     
 DBG=IDP  *                CONVERTS CM WORDS TO OCTAL DPC AND ALSO DUMPS THE               DBG0002     1219     A     
 DBG=IDP  *         UNCONVERTED DPC EQUIVALENT IN THE FOLLOWING FORMAT--                   DBG0002     1220     A     
 DBG=IDP  *     COL 1         1         1         1         1         1                    DBG0002     1221     A     
 DBG=IDP  *         ..NNNNNN..CCCCCCCCCCCCCCCCCCCC..........UUUUUUUUUU                     DBG0002     1222     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 230    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *         N = ADDR OF WORD DUMPED                                                DBG0002     1223     A     
 DBG=IDP  *         C = CONVERTED CM WORD                                                  DBG0002     1224     A     
 DBG=IDP  *         U = UNCONVERTED CM WORD. NOTE--TRAILING COLONS ARE TREATED AS          DBG0002     1225     A     
 DBG=IDP  *               AN EOL AND THEREFORE WILL NOT APPEAR.                            DBG0002     1226     A     
 DBG=IDP  *         . = BLANK(55B)                                                         DBG0002     1227     A     
 DBG=IDP  *                                                                                DBG0002     1228     A     
 DBG=IDP  *         ENTRY  (X2) = 18/0,21/LEV OF IND ADDR,21/FWA                           DBG0002     1229     A     
 DBG=IDP  *                (X3) = 18/0,21/LEV OF IND ADDR,21/LWA                           DBG0002     1230     A     
 DBG=IDP  *                       NOTE-- (X3) IS OPTIONAL                                  DBG0002     1231     A     
 DBG=IDP  *                (X4) = 18/0,21/LEV OF IND ADDR,21/LEN                           DBG0002     1232     A     
 DBG=IDP  *                         NOTE-- IF LEN = 0, DMP IS FROM FWA TO LWA,             DBG0002     1233     A     
 DBG=IDP  *                         ELSE DMP IS FROM FWA TO FWA+LEN-1                      DBG0002     1234     A     
 DBG=IDP  *                                                                                DBG0002     1235     A     
 DBG=IDP  *         EXIT   (B2) = .MI. IF FWA,LWA, OR LEN IS BAD, ELSE .PL.                DBG0002     1236     A     
 DBG=IDP  *                                                                                DBG0002     1237     A     
 DBG=IDP  *         USES   ALL BUT B4        (INCLUDES ALL CALLS)                          DBG0002     1238     A     
 DBG=IDP  *                                                                                DBG0002     1239     A     
 DBG=IDP  *         CALLS  COD,FLL,PRIDP,WOD                                               DBG0002     1240     A     
 DBG=IDP                                                                                   DBG0002     1241     A     
 DBG=IDP                                                                                   DBG0002     1242     A     
 DBG=IDP   DOD      SUBR               ** ENTRY/EXIT **                                    DBG0002     1243     A     
 DBG=IDP            RJ     FLL         CHECK FWA,LWA, AND LENGTH                           DBG0002     1244     A     
 DBG=IDP            MI     B2,EXIT.    IF FWA,LWA, OR LEN IS BAD                           DBG0002     1245     A     
 DBG=IDP                                                                                   DBG0002     1246     A     
 DBG=IDP  *         HERE TO BUILD SNAP OUTPUT LINE.                                        DBG0002     1247     A     
 DBG=IDP                                                                                   DBG0002     1248     A     
 DBG=IDP   DOD2     SA1    AP=FWA      (X1) = ADDR OF NEXT WORD TO DUMP                    DBG0002     1249     A     
 DBG=IDP            SA2    A1+B1       (X2) = LWA TO DUMP                                  DBG0002     1250     A     
 DBG=IDP            IX3    X2-X1                                                           DBG0002     1251     A     
 DBG=IDP            SX6    X1+B1                                                           DBG0002     1252     A     
 DBG=IDP            SB2    B0          SET TO *NO ERROR OCCURRED*                          DBG0002     1253     A     
 DBG=IDP            MI     X3,EXIT.    IF FINISHED                                         DBG0002     1254     A     
 DBG=IDP            SA6    A1                                                              DBG0002     1255     A     
 DBG=IDP            SA0    X1                                                              DBG0002     1256     A     
 DBG=IDP            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                         DBG0002     1257     A     
 DBG=IDP            LX6    8*CHAR-6*CHAR                                                   DBG0002     1258     A     
 DBG=IDP            SA6    SNAPLNE                                                         DBG0002     1259     A     
 DBG=IDP            SA1    A0          (X1) = NEXT WORD TO BE DUMPED                       DBG0002     1260     A     
 DBG=IDP            RJ     =XWOD       CONVERT A FULL BINARY WORD TO OCTAL DPC             DBG0002     1261     A     
 DBG=IDP            SA6    A6+B1                                                           DBG0002     1262     A     
 DBG=IDP            SA7    A6+B1                                                           DBG0002     1263     A     
 DBG=IDP            SA1    =10H                                                            DBG0002     1264     A     
 DBG=IDP            SA2    A0                                                              DBG0002     1265     A     
 DBG=IDP            BX6    X1                                                              DBG0002     1266     A     
 DBG=IDP            LX7    X2                                                              DBG0002     1267     A     
 DBG=IDP            SA6    A7+B1                                                           DBG0002     1268     A     
 DBG=IDP            SA7    A6+B1                                                           DBG0002     1269     A     
 DBG=IDP            MX6    0                                                               DBG0002     1270     A     
 DBG=IDP            SA6    A7+B1       MARK EOL                                            DBG0002     1271     A     
 DBG=IDP            PRIDP  SNAPLNE                                                         DBG0002     1272     A     
 DBG=IDP            EQ     DOD2                                                            DBG0002     1273     A     
 DBG=IDP   FRZ      SPACE  4,8                                                             DBG0006       34     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 231    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  **        FRZ - FREEZE INTERACTIVE SESSION.                                      DBG0006       35     A     
 DBG=IDP  *                                                                                DBG0006       36     A     
 DBG=IDP  *                                                                                DBG0006       37     A     
 DBG=IDP  *         PERFORMS A CHECKPOINT OF AN INTERACTIVE SESSION BY                     DBG0006       38     A     
 DBG=IDP  *         WRITING THE CURRENT CORE IMAGE TO LFN *F.FRZ* IN A                     DBG0006       39     A     
 DBG=IDP  *         SPECIAL FORMAT.                                                        DBG0006       40     A     
 DBG=IDP  *                                                                                DBG0006       41     A     
 DBG=IDP  *         *F.FRZ* FORMAT --                                                      DBG0006       42     A     
 DBG=IDP  *                                                                                DBG0006       43     A     
 DBG=IDP  *           RECORD 1 CONSISTS OF A LOADER ABSOLUTE BINARY, CALLED *IFR*          DBG0006       44     A     
 DBG=IDP  *           (IDP FREEZE RESTART), THAT WHEN EXECUTED WILL READ THE               DBG0006       45     A     
 DBG=IDP  *           FROZEN HOST BACK INTO CORE (OVERLAYING ITSELF), AND                  DBG0006       46     A     
 DBG=IDP  *           THEN REINVOKE *IDP*.                                                 DBG0006       47     A     
 DBG=IDP  *                                                                                DBG0006       48     A     
 DBG=IDP  *           RECORD 2 CONTAINS THE CORE IMAGE OF THE FROZEN HOST.                 DBG0006       49     A     
 DBG=IDP  *                                                                                DBG0006       50     A     
 DBG=IDP  *         SEE ROUTINE *IFR* IN DATA SECTION BEGINNING AT ADDR *FW.IFR*.          DBG0006       51     A     
 DBG=IDP  *                                                                                DBG0006       52     A     
 DBG=IDP  *         ENTRY  NONE                                                            DBG0006       53     A     
 DBG=IDP  *                                                                                DBG0006       54     A     
 DBG=IDP  *         EXIT   *F.FRZ* WRITTEN                                                 DBG0006       55     A     
 DBG=IDP  *                                                                                DBG0006       56     A     
 DBG=IDP  *         USES   ALL BUT A0,X0,A5,X5   (INCLUDES ALL CALLS)                      DBG0006       57     A     
 DBG=IDP  *                                                                                DBG0006       58     A     
 DBG=IDP  *         CALLS  MEMORY,REWIND,WRITER,WRITEW                                     DBG0006       59     A     
 DBG=IDP                                                                                   DBG0006       60     A     
 DBG=IDP                                                                                   DBG0006       61     A     
 DBG=IDP   FRZ      SUBR               ** ENTRY/EXIT **                                    DBG0006       62     A     
 DBG=IDP                                                                                   DBG0006       63     A     
 DBG=IDP  *         FIND OUT ACTUAL FIELD LENGTH SCM (AFLS) SO THAT *IFR*                  DBG0006       64     A     
 DBG=IDP  *         CAN KNOW HOW MUCH IS NEEDED TO RESTART.  IF *CMM* IS ACTIVE,           DBG0006       65     A     
 DBG=IDP  *         SAVE THIS KNOWLEDGE IN (CMMFLG) SO THAT *IFR* CAN KNOW                 DBG0006       66     A     
 DBG=IDP  *         TO INDICATE SO TO OPERATING SYSTEM.                                    DBG0006       67     A     
 DBG=IDP                                                                                   DBG0006       68     A     
 DBG=IDP            SA1    RA.LWP                                                          DBG0006       69     A     
 DBG=IDP            BX6    X6-X6                                                           DBG0006       70     A     
 DBG=IDP            SX7    X1          (X7) = .MI. IF *CMM* ACTIVE, ELSE .PL.              DBG0006       71     A     
 DBG=IDP            SA6    FW.IFR+/IFR/SYS=MEM+1-RA.ORG                                    DBG0006       72     A     
 DBG=IDP            SA7    FW.IFR+/IFR/CMMFLG-RA.ORG                                       DBG0006       73     A     
 DBG=IDP            MEMORY SCM,A6,RCL                                                      DBG0006       74     A     
 DBG=IDP                                                                                   DBG0006       75     A     
 DBG=IDP  *         NEED TO SAVE 2 SPECIAL WORDS BECAUSE WE ARE ONLY WRITING               DBG0006       76     A     
 DBG=IDP  *         FROM *RA.MTR+1* TO FL-1 TO *F.FRZ*.                                    DBG0006       77     A     
 DBG=IDP  *           1. SAVE (RA.SSW) BECAUSE APPARENTLY *CIO* WILL SOMETIMES             DBG0006       78     A     
 DBG=IDP  *              NOT ALLOW ONE TO HAVE *RA.MTR* IN CIO BUFFER AREA.                DBG0006       79     A     
 DBG=IDP  *           2. SAVE WORD AT FL-1 BECAUSE LWA+1 OF CIO BUFFER IS NOT              DBG0006       80     A     
 DBG=IDP  *              WRITTEN.                                                          DBG0006       81     A     
 DBG=IDP                                                                                   DBG0006       82     A     
 DBG=IDP            SA1    FW.IFR+/IFR/SYS=MEM+1-RA.ORG                                    DBG0006       83     A     
 DBG=IDP            SA2    RA.SSW                                                          DBG0006       84     A     
 DBG=IDP            SA3    X1-1                                                            DBG0006       85     A     
 DBG=IDP            BX6    X2                                                              DBG0006       86     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 232    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            LX7    X3                                                              DBG0006       87     A     
 DBG=IDP            SA6    FW.IFR+/IFR/SVWDS-RA.ORG                                        DBG0006       88     A     
 DBG=IDP            SA7    A6+B1                                                           DBG0006       89     A     
 DBG=IDP                                                                                   DBG0006       90     A     
 DBG=IDP  *         SET UP AND *OPEN* *F.FRZ* FET FOR RECORD 1 WRITE.                      DBG0006       91     A     
 DBG=IDP  *         FIRST, THOUGH, WE NEED TO SET THE *COMPLETE* BIT                       DBG0006       92     A     
 DBG=IDP  *         IN *F.FRZ* FET BECAUSE IF WE ARE NOW FREEZING AN                       DBG0006       93     A     
 DBG=IDP  *         INTERACTIVE SESSION THAT WAS PREVIOUSLY FROZEN AND UNFROZEN,           DBG0006       94     A     
 DBG=IDP  *         THEN *F.FRZ* IS MARKED AS STILL BEING ACTIVE.  THIS HAPPENS            DBG0006       95     A     
 DBG=IDP  *         BECAUSE WHEN THE PREVIOUS SESSION WAS FROZEN, *F.FRZ* WAS              DBG0006       96     A     
 DBG=IDP  *         USED TO WRITE ITSELF OUT, AND WAS THEREFORE STILL ACTIVE WHEN          DBG0006       97     A     
 DBG=IDP  *         CORE IMAGE WAS WRITTEN TO DISK.                                        DBG0006       98     A     
 DBG=IDP                                                                                   DBG0006       99     A     
 DBG=IDP            SA1    F.FRZ                                                           DBG0006      100     A     
 DBG=IDP            MX2    -1                                                              DBG0006      101     A     
 DBG=IDP            BX6    -X2+X1      SET COMPLETE BIT                                    DBG0006      102     A     
 DBG=IDP            SA6    A1                                                              DBG0006      103     A     
 DBG=IDP                                                                                   DBG0006      104     A     
 DBG=IDP            SX6    FW.IFR                                                          DBG0006      105     A     
 DBG=IDP            SX7    FW.IFR+L.IFR-1                                                  DBG0006      106     A     
 DBG=IDP            SA6    A6+B1       FIRST  = FW.IFR                                     DBG0006      107     A     
 DBG=IDP            SA7    A6+B1       IN     = FW.IFR+L.IFR-1                             DBG0006      108     A     
 DBG=IDP            SA6    A7+B1       OUT    = FW.IFR                                     DBG0006      109     A     
 DBG=IDP            SX7    X7+B1                                                           DBG0006      110     A     
 DBG=IDP            SA7    A6+B1       LIMIT  = FW.IFR+L.IFR                               DBG0006      111     A     
 DBG=IDP                                                                                   DBG0006      112     A     
 DBG=IDP            OPEN   A1,,RCL                                                         DBG0006      113     A     
 DBG=IDP            SA1    F.FRZ+4     (X1) = LIMIT                                        DBG0006      114     A     
 DBG=IDP            SX6    X1-1                                                            DBG0006      115     A     
 DBG=IDP            SA6    F.FRZ+2     IN = LIMIT-1                                        DBG0006      116     A     
 DBG=IDP                                                                                   DBG0006      117     A     
 DBG=IDP  *         WRITE INTERACTIVE FREEZE RESTART PROGRAM, *IFR*,                       DBG0006      118     A     
 DBG=IDP  *         TO RECORD 1 OF *F.FRZ*.                                                DBG0006      119     A     
 DBG=IDP                                                                                   DBG0006      120     A     
 DBG=IDP            WRITER F.FRZ,,RCL                                                      DBG0006      121     A     
 DBG=IDP                                                                                   DBG0006      122     A     
 DBG=IDP  *         SET UP *F.FRZ* FET SO THAT BUFFER IS ALL OF FL.                        DBG0006      123     A     
 DBG=IDP                                                                                   DBG0006      124     A     
 DBG=IDP            SA1    FW.IFR+/IFR/SYS=MEM+1-RA.ORG                                    DBG0006      125     A     
 DBG=IDP            SX6    RA.MTR+1    (X6) = FIRST = OUT                                  DBG0006      126     A     
 DBG=IDP            LX1    30                                                              DBG0006      127     A     
 DBG=IDP            SX7    X1-2        (X7) = IN = AFLS-2 (FOR SAFETY)                     DBG0006      128     A     
 DBG=IDP            SA6    F.FRZ+1     FIRST = RA.MTR+1                                    DBG0006      129     A     
 DBG=IDP            SA7    A6+B1       IN =AFLS-2                                          DBG0006      130     A     
 DBG=IDP            SA6    A7+B1       OUT = RA.MTR+1                                      DBG0006      131     A     
 DBG=IDP            SX7    X7+B1       (X7) = LIMIT = AFLS-1 (FOR SAFETY)                  DBG0006      132     A     
 DBG=IDP            SA7    A6+B1       LIMIT = AFLS-1                                      DBG0006      133     A     
 DBG=IDP                                                                                   DBG0006      134     A     
 DBG=IDP  *         WRITE ALL OF SCM TO *F.FRZ/RECORD 2*.                                  DBG0006      135     A     
 DBG=IDP                                                                                   DBG0006      136     A     
 DBG=IDP            WRITER F.FRZ,,RCL                                                      DBG0006      137     A     
 DBG=IDP            EQ     EXIT.                                                           DBG0006      138     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 233    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP   IST      SPACE  4,8                                                             DBG=IDP     3037     A     
 DBG=IDP  **        IST - INITIALIZE *SET* TABLE.                                          DBG=IDP     3038     A     
 DBG=IDP  *                                                                                DBG=IDP     3039     A     
 DBG=IDP  *                                                                                DBG=IDP     3040     A     
 DBG=IDP  *                THIS ROUTINE SETS UP THE DEFAULT *SET* TABLE VALUES.            DBG=IDP     3041     A     
 DBG=IDP  *                                                                                DBG=IDP     3042     A     
 DBG=IDP  *         ENTRY  NONE                                                            DBG=IDP     3043     A     
 DBG=IDP  *                                                                                DBG=IDP     3044     A     
 DBG=IDP  *         EXIT   NONE                                                            DBG=IDP     3045     A     
 DBG=IDP  *                                                                                DBG=IDP     3046     A     
 DBG=IDP  *         USES   ALL                                                             DBG=IDP     3047     A     
 DBG=IDP  *                                                                                DBG=IDP     3048     A     
 DBG=IDP  *         CALLS  ADZ                                                             DBG=IDP     3049     A     
 DBG=IDP                                                                                   DBG=IDP     3050     A     
 DBG=IDP                                                                                   DBG=IDP     3051     A     
 DBG=IDP   IST      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     3052     A     
 DBG=IDP            SB6    IDPSET      (B6) = FWA OF IDP *SET* TABLE                       DBG=IDP     3053     A     
 DBG=IDP            SA1    =4LTEMP                                                         DBG=IDP     3054     A     
 DBG=IDP            SX6    IDPTMP                                                          DBG=IDP     3055     A     
 DBG=IDP            BX6    X1+X6       (X6) = 42/0LTEMP,18/FWA OF TEMP AREA                DBG=IDP     3056     A     
 DBG=IDP            RJ     ADZ         ADD WORD TO IDP TABLE                               DBG=IDP     3057     A     
 DBG=IDP            SX7    1RP                                                             DBG=IDP     3058     A     
 DBG=IDP            SX6    IDPPREG                                                         DBG=IDP     3059     A     
 DBG=IDP            LX7    10*CHAR-1*CHAR                                                  DBG=IDP     3060     A     
 DBG=IDP            BX6    X7+X6       (X6) = 42/0LP, 18/ADDR OF PSEUDO P REGISTER         DBG=IDP     3061     A     
 DBG=IDP            RJ     ADZ         ADD WORD TO IDP TABLE                               DBG=IDP     3062     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     3063     A     
 DBG=IDP   LBT      SPACE  4,8                                                             DBG=IDP     3064     A     
 DBG=IDP  **        LBT - LIST BREAK TABLE.                                                DBG=IDP     3065     A     
 DBG=IDP  *                                                                                DBG=IDP     3066     A     
 DBG=IDP  *                                                                                DBG=IDP     3067     A     
 DBG=IDP  *                LISTS THE CONTENTS OF THE PARALLEL BREAK TABLES                 DBG=IDP     3068     A     
 DBG=IDP  *         *IDPBA/IDPBC* IN THREE FORMS, DEPENDING ON THE TYPE OF BREAK--         DBG=IDP     3069     A     
 DBG=IDP  *                                                                                DBG=IDP     3070     A     
 DBG=IDP  *     COL 1         1         1         1        (.=BLANK(55B))                  DBG=IDP     3071     A     
 DBG=IDP  *         .BREAK.AT.NNNNNN.IN.XXXXXXX                                            DBG=IDP     3072     A     
 DBG=IDP  *         ...........LL.NNNNN..UL.NNNNN..INC.NNNN.CNT.NNNNNN                     DBG=IDP     3073     A     
 DBG=IDP  *                                                                                DBG=IDP     3074     A     
 DBG=IDP  *         .BRPL..AT.NNNNNN.IN.XXXXXXX....A1.NNNNNN                               DBG=IDP     3075     A     
 DBG=IDP  *         ...........LL.NNNNN..UL.NNNNN..INC.NNNN.CNT.NNNNNN                     DBG=IDP     3076     A     
 DBG=IDP  *                                                                                DBG=IDP     3077     A     
 DBG=IDP  *         .BREQ..AT.NNNNNN.IN.XXXXXXX....A1.NNNNNN.A2.NNNNNN                     DBG=IDP     3078     A     
 DBG=IDP  *         ...........LL.NNNNN..UL.NNNNN..INC.NNNN.CNT.NNNNNN                     DBG=IDP     3079     A     
 DBG=IDP  *                                                                                DBG=IDP     3080     A     
 DBG=IDP  *         ENTRY  NONE                                                            DBG=IDP     3081     A     
 DBG=IDP  *                                                                                DBG=IDP     3082     A     
 DBG=IDP  *         EXIT   NONE                                                            DBG=IDP     3083     A     
 DBG=IDP  *                                                                                DBG=IDP     3084     A     
 DBG=IDP  *         USES   ALL BUT A0                                                      DBG=IDP     3085     A     
 DBG=IDP  *                                                                                DBG=IDP     3086     A     
 DBG=IDP  *         CALLS  COD,FRA=,PRIDP,SFN                                              DBG=IDP     3087     A     
 DBG=IDP                                                                                   DBG=IDP     3088     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 234    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG=IDP     3089     A     
 DBG=IDP   LBT      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     3090     A     
 DBG=IDP                                                                                   DBG=IDP     3091     A     
 DBG=IDP  *         SET UP FOR 1ST ENTRY.                                                  DBG=IDP     3092     A     
 DBG=IDP                                                                                   DBG=IDP     3093     A     
 DBG=IDP            SA5    IDPBA                                                           DBG=IDP     3094     A     
 DBG=IDP            EQ     LBT2                                                            DBG=IDP     3095     A     
 DBG=IDP                                                                                   DBG=IDP     3096     A     
 DBG=IDP  *         MAIN LOOP.                                                             DBG=IDP     3097     A     
 DBG=IDP                                                                                   DBG=IDP     3098     A     
 DBG=IDP   LBT1     SA5    A5+B1                                                           DBG=IDP     3099     A     
 DBG=IDP                                                                                   DBG=IDP     3100     A     
 DBG=IDP   LBT2     ZR     X5,EXIT.    IF FINISHED LISTING ALL BREAKS                      DBG=IDP     3101     A     
 DBG=IDP            SX6    X5+B1                                                           DBG=IDP     3102     A     
 DBG=IDP            ZR     X6,LBT1     IF THIS ENTRY AVAILABLE (NOT A BREAK)               DBG=IDP     3103     A     
 DBG=IDP                                                                                   DBG=IDP     3104     A     
 DBG=IDP  *         ASSEMBLE * BREAK AT *.                                                 DBG=IDP     3105     A     
 DBG=IDP                                                                                   DBG=IDP     3106     A     
 DBG=IDP            SX4    X5          (X4) = BREAK ADDRESS                                DBG=IDP     3107     A     
 DBG=IDP            LX5    6                                                               DBG=IDP     3108     A     
 DBG=IDP            MX0    -6                                                              DBG=IDP     3109     A     
 DBG=IDP            BX6    -X0*X5      (X6) = BREAK TYPE CODE                              DBG=IDP     3110     A     
 DBG=IDP            MX0    7*CHAR                                                          DBG=IDP     3111     A     
 DBG=IDP            SA1    IDPKBR+X6                                                       DBG=IDP     3112     A     
 DBG=IDP            SA6    IDPBTC                                                          DBG=IDP     3113     A     
 DBG=IDP            BX1    X0*X1                                                           DBG=IDP     3114     A     
 DBG=IDP            RJ     =XSFN       SPACE FILL NAME                                     DBG=IDP     3115     A     
 DBG=IDP            LX6    -CHAR                                                           DBG=IDP     3116     A     
 DBG=IDP            BX6    X0*X6                                                           DBG=IDP     3117     A     
 DBG=IDP            SX7    3RAT                                                            DBG=IDP     3118     A     
 DBG=IDP            BX6    X6+X7       (X6) = .BREAK.AT.   (.=BLANK(55B))                  DBG=IDP     3119     A     
 DBG=IDP            SA6    SNAPLNE                                                         DBG=IDP     3120     A     
 DBG=IDP                                                                                   DBG=IDP     3121     A     
 DBG=IDP  *         ASSEMBLE *NNNNNN IN XXXXXXX   *.                                       DBG=IDP     3122     A     
 DBG=IDP                                                                                   DBG=IDP     3123     A     
 DBG=IDP            SX1    X4                                                              DBG=IDP     3124     A     
 DBG=IDP                                                                                   DBG=IDP     3125     A     
 DBG=IDP   #FRA     IF     DEF,FRA=                                                        DBG=IDP     3126     A     
 DBG=IDP            SB7    LBT3        (B7) = RETURN ADDR FOR *FRA=*                       DBG=IDP     3127     A     
 DBG=IDP            EQ     =XFRA=      FIND RELATIVE ADDRESS                               DBG=IDP     3128     A     
 DBG=IDP                                                                                   DBG=IDP     3129     A     
 DBG=IDP   LBT3     BSS    0                                                               DBG=IDP     3130     A     
 DBG=IDP                                                                                   DBG=IDP     3131     A     
 DBG=IDP   #FRA     ELSE                                                                   DBG=IDP     3132     A     
 DBG=IDP            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                         DBG=IDP     3133     A     
 DBG=IDP            BX6    X4                                                              DBG=IDP     3134     A     
 DBG=IDP            MX7    0                                                               DBG=IDP     3135     A     
 DBG=IDP   #FRA     ENDIF                                                                  DBG=IDP     3136     A     
 DBG=IDP                                                                                   DBG=IDP     3137     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     3138     A     
 DBG=IDP            SA7    A6+B1                                                           DBG=IDP     3139     A     
 DBG=IDP            SA2    IDPBTC                                                          DBG=IDP     3140     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 235    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            ZR     X2,LBT5     IF *BREAK ADDR,LL,UL,INC* FORM                      DBG=IDP     3141     A     
 DBG=IDP            BX1    X7                                                              DBG=IDP     3142     A     
 DBG=IDP            RJ     SFN         SPACE FILL NAME                                     DBG=IDP     3143     A     
 DBG=IDP            SA6    A6+B1       RE-STORE BLANK FILLED *XXXXXXX   *                  DBG=IDP     3144     A     
 DBG=IDP                                                                                   DBG=IDP     3145     A     
 DBG=IDP  *         ASSEMBLE * A1 NNNNNN*.                                                 DBG=IDP     3146     A     
 DBG=IDP                                                                                   DBG=IDP     3147     A     
 DBG=IDP            LX5    18                                                              DBG=IDP     3148     A     
 DBG=IDP            SX1    X5                                                              DBG=IDP     3149     A     
 DBG=IDP            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                         DBG=IDP     3150     A     
 DBG=IDP            SA2    IDPBTC                                                          DBG=IDP     3151     A     
 DBG=IDP            SX1    3R A1                                                           DBG=IDP     3152     A     
 DBG=IDP            MX0    -7*CHAR                                                         DBG=IDP     3153     A     
 DBG=IDP            BX6    -X0*X6                                                          DBG=IDP     3154     A     
 DBG=IDP            LX1    10*CHAR-3*CHAR                                                  DBG=IDP     3155     A     
 DBG=IDP            BX1    X0*X1                                                           DBG=IDP     3156     A     
 DBG=IDP            BX6    X6+X1       (X6) = .A1.NNNNNN   (.=BLANK(55B))                  DBG=IDP     3157     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     3158     A     
 DBG=IDP            SX2    X2-BTC=EQ                                                       DBG=IDP     3159     A     
 DBG=IDP            MI     X2,LBT4     IF *BRPL ADDR,A1,LL,UL,INC* FORM                    DBG=IDP     3160     A     
 DBG=IDP                                                                                   DBG=IDP     3161     A     
 DBG=IDP  *         ASSEMBLE * A2 NNNNNN*.                                                 DBG=IDP     3162     A     
 DBG=IDP                                                                                   DBG=IDP     3163     A     
 DBG=IDP            LX5    18                                                              DBG=IDP     3164     A     
 DBG=IDP            SX1    X5                                                              DBG=IDP     3165     A     
 DBG=IDP            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                         DBG=IDP     3166     A     
 DBG=IDP            SX1    3R A2                                                           DBG=IDP     3167     A     
 DBG=IDP            MX0    -7*CHAR                                                         DBG=IDP     3168     A     
 DBG=IDP            BX6    -X0*X6                                                          DBG=IDP     3169     A     
 DBG=IDP            LX1    10*CHAR-3*CHAR                                                  DBG=IDP     3170     A     
 DBG=IDP            BX1    X0*X1                                                           DBG=IDP     3171     A     
 DBG=IDP            BX6    X6+X1       (X6) = .A2.NNNNNN   (.=BLANK(55B))                  DBG=IDP     3172     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     3173     A     
 DBG=IDP                                                                                   DBG=IDP     3174     A     
 DBG=IDP   LBT4     MX6    0                                                               DBG=IDP     3175     A     
 DBG=IDP            SA6    A6+B1       MARK EOL                                            DBG=IDP     3176     A     
 DBG=IDP                                                                                   DBG=IDP     3177     A     
 DBG=IDP   LBT5     PRIDP  SNAPLNE                                                         DBG=IDP     3178     A     
 DBG=IDP                                                                                   DBG=IDP     3179     A     
 DBG=IDP  *         ASSEMBLE *           LL NNNNN *.                                       DBG=IDP     3180     A     
 DBG=IDP                                                                                   DBG=IDP     3181     A     
 DBG=IDP            SA1    =10H                                                            DBG=IDP     3182     A     
 DBG=IDP            SB7    A5-IDPBA                                                        DBG=IDP     3183     A     
 DBG=IDP            SB6    B7+B7                                                           DBG=IDP     3184     A     
 DBG=IDP            SA2    IDPBC+B6+1  (X2) = 2ND WORD OF *IDPBC* ENTRY                    DBG=IDP     3185     A     
 DBG=IDP            BX6    X1                                                              DBG=IDP     3186     A     
 DBG=IDP            BX5    X2                                                              DBG=IDP     3187     A     
 DBG=IDP            LX5    15                                                              DBG=IDP     3188     A     
 DBG=IDP            MX0    -15                                                             DBG=IDP     3189     A     
 DBG=IDP            BX1    -X0*X5                                                          DBG=IDP     3190     A     
 DBG=IDP            SA6    SNAPLNE                                                         DBG=IDP     3191     A     
 DBG=IDP            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                         DBG=IDP     3192     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 236    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SX1    3R LL                                                           DBG=IDP     3193     A     
 DBG=IDP            LX4    -4*CHAR     LEFT JUSTIFY NR TO BIT 35                           DBG=IDP     3194     A     
 DBG=IDP            BX6    X4          (X6) = ....NNNNN.   (.=BLANK(55B))                  DBG=IDP     3195     A     
 DBG=IDP            MX0    -7*CHAR                                                         DBG=IDP     3196     A     
 DBG=IDP            LX1    10*CHAR-3*CHAR                                                  DBG=IDP     3197     A     
 DBG=IDP            BX1    X0*X1                                                           DBG=IDP     3198     A     
 DBG=IDP            BX6    -X0*X6                                                          DBG=IDP     3199     A     
 DBG=IDP            BX6    X6+X1       (X6) = .LL.NNNNN.   (.=BLANK(55B))                  DBG=IDP     3200     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     3201     A     
 DBG=IDP                                                                                   DBG=IDP     3202     A     
 DBG=IDP  *         ASSEMBLE * UL NNNNN *.                                                 DBG=IDP     3203     A     
 DBG=IDP                                                                                   DBG=IDP     3204     A     
 DBG=IDP            LX5    15                                                              DBG=IDP     3205     A     
 DBG=IDP            MX0    -15                                                             DBG=IDP     3206     A     
 DBG=IDP            BX1    -X0*X5      (X1) = UL                                           DBG=IDP     3207     A     
 DBG=IDP            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                         DBG=IDP     3208     A     
 DBG=IDP            SX1    3R UL                                                           DBG=IDP     3209     A     
 DBG=IDP            LX4    -4*CHAR                                                         DBG=IDP     3210     A     
 DBG=IDP            BX6    X4          (X6) = ....NNNNN.   (.=BLANK(55B))                  DBG=IDP     3211     A     
 DBG=IDP            MX0    -7*CHAR                                                         DBG=IDP     3212     A     
 DBG=IDP            BX6    -X0*X6                                                          DBG=IDP     3213     A     
 DBG=IDP            LX1    10*CHAR-3*CHAR                                                  DBG=IDP     3214     A     
 DBG=IDP            BX1    X0*X1                                                           DBG=IDP     3215     A     
 DBG=IDP            BX6    X6+X1       (X6) = .UL.NNNNN.   (.=BLANK(55B))                  DBG=IDP     3216     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     3217     A     
 DBG=IDP                                                                                   DBG=IDP     3218     A     
 DBG=IDP  *         ASSEMBLE * INC NNNN *.                                                 DBG=IDP     3219     A     
 DBG=IDP                                                                                   DBG=IDP     3220     A     
 DBG=IDP            LX5    12                                                              DBG=IDP     3221     A     
 DBG=IDP            MX0    -12                                                             DBG=IDP     3222     A     
 DBG=IDP            BX1    -X0*X5      (X1) = INC                                          DBG=IDP     3223     A     
 DBG=IDP            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                         DBG=IDP     3224     A     
 DBG=IDP            SA1    =4L INC                                                         DBG=IDP     3225     A     
 DBG=IDP            LX4    -5*CHAR                                                         DBG=IDP     3226     A     
 DBG=IDP            BX6    X4          (X6) = .....NNNN.   (.=BLANK(55B))                  DBG=IDP     3227     A     
 DBG=IDP            MX0    -6*CHAR                                                         DBG=IDP     3228     A     
 DBG=IDP            BX6    -X0*X6                                                          DBG=IDP     3229     A     
 DBG=IDP            BX6    X6+X1       (X6) = .INC.NNNN.   (.=BLANK(55B))                  DBG=IDP     3230     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     3231     A     
 DBG=IDP                                                                                   DBG=IDP     3232     A     
 DBG=IDP  *         ASSEMBLE *CNT NNNNNN*.                                                 DBG=IDP     3233     A     
 DBG=IDP                                                                                   DBG=IDP     3234     A     
 DBG=IDP            LX5    18                                                              DBG=IDP     3235     A     
 DBG=IDP            SX1    X5                                                              DBG=IDP     3236     A     
 DBG=IDP            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                         DBG=IDP     3237     A     
 DBG=IDP            SX1    3RCNT                                                           DBG=IDP     3238     A     
 DBG=IDP            MX0    -7*CHAR                                                         DBG=IDP     3239     A     
 DBG=IDP            BX6    -X0*X6                                                          DBG=IDP     3240     A     
 DBG=IDP            LX1    10*CHAR-3*CHAR                                                  DBG=IDP     3241     A     
 DBG=IDP            BX1    X0*X1                                                           DBG=IDP     3242     A     
 DBG=IDP            BX6    X6+X1       (X6) = CNT.NNNNNN   (.=BLANK(55B))                  DBG=IDP     3243     A     
 DBG=IDP            MX7    0                                                               DBG=IDP     3244     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 237    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     3245     A     
 DBG=IDP            SA7    A6+B1       MARK EOL                                            DBG=IDP     3246     A     
 DBG=IDP            PRIDP  SNAPLNE                                                         DBG=IDP     3247     A     
 DBG=IDP            EQ     LBT1                                                            DBG=IDP     3248     A     
 DBG=IDP   LST      SPACE  4,8                                                             DBG=IDP     3249     A     
 DBG=IDP  **        LST - LIST *SET* NAME TABLE.                                           DBG=IDP     3250     A     
 DBG=IDP  *                                                                                DBG=IDP     3251     A     
 DBG=IDP  *                                                                                DBG=IDP     3252     A     
 DBG=IDP  *         ENTRY  (A5,X5) =   ADDR + CNTS OF 1ST *SET* TABLE ENTRY                DBG=IDP     3253     A     
 DBG=IDP  *                                                                                DBG=IDP     3254     A     
 DBG=IDP  *         EXIT   NONE                                                            DBG=IDP     3255     A     
 DBG=IDP  *                                                                                DBG=IDP     3256     A     
 DBG=IDP  *         USES   ALL                                                             DBG=IDP     3257     A     
 DBG=IDP  *                                                                                DBG=IDP     3258     A     
 DBG=IDP  *         CALLS  COD,FRA=,PRIDP,SFN                                              DBG=IDP     3259     A     
 DBG=IDP                                                                                   DBG=IDP     3260     A     
 DBG=IDP                                                                                   DBG=IDP     3261     A     
 DBG=IDP   LST      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     3262     A     
 DBG=IDP                                                                                   DBG=IDP     3263     A     
 DBG=IDP   LST2     ZR     X5,EXIT.    IF FINISHED ALL SET NAMES                           DBG=IDP     3264     A     
 DBG=IDP            SX1    B1                                                              DBG=IDP     3265     A     
 DBG=IDP            IX6    X5+X1                                                           DBG=IDP     3266     A     
 DBG=IDP            ZR     X6,LST4     IF THIS ENTRY IS AVAILABLE (NOT A SET)              DBG=IDP     3267     A     
 DBG=IDP            MX0    7*CHAR                                                          DBG=IDP     3268     A     
 DBG=IDP            BX1    X0*X5       (X1) = 0LNAME                                       DBG=IDP     3269     A     
 DBG=IDP            RJ     =XSFN       SPACE FILL NAME                                     DBG=IDP     3270     A     
 DBG=IDP            LX6    -CHAR                                                           DBG=IDP     3271     A     
 DBG=IDP            SA6    SNAPLNE                                                         DBG=IDP     3272     A     
 DBG=IDP            BX1    -X0*X5                                                          DBG=IDP     3273     A     
 DBG=IDP            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC-- SET NAME VALU         DBG=IDP     3274     A     
 DBG=IDP            LX6    4*CHAR                                                          DBG=IDP     3275     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     3276     A     
 DBG=IDP                                                                                   DBG=IDP     3277     A     
 DBG=IDP   #FRA     IF     DEF,FRA=                                                        DBG=IDP     3278     A     
 DBG=IDP            BX1    -X0*X5                                                          DBG=IDP     3279     A     
 DBG=IDP            SB7    LST3        (B7) = RETURN ADDR FOR *FRA=*                       DBG=IDP     3280     A     
 DBG=IDP            EQ     =XFRA=      FIND RELATIVE ADDRESS                               DBG=IDP     3281     A     
 DBG=IDP                                                                                   DBG=IDP     3282     A     
 DBG=IDP   LST3     SA6    A6+B1                                                           DBG=IDP     3283     A     
 DBG=IDP            SA7    A6+B1                                                           DBG=IDP     3284     A     
 DBG=IDP                                                                                   DBG=IDP     3285     A     
 DBG=IDP   #FRA     ELSE                                                                   DBG=IDP     3286     A     
 DBG=IDP            MX6    0                                                               DBG=IDP     3287     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     3288     A     
 DBG=IDP   #FRA     ENDIF                                                                  DBG=IDP     3289     A     
 DBG=IDP                                                                                   DBG=IDP     3290     A     
 DBG=IDP            PRIDP  SNAPLNE                                                         DBG=IDP     3291     A     
 DBG=IDP                                                                                   DBG=IDP     3292     A     
 DBG=IDP   LST4     SA5    A5+B1                                                           DBG=IDP     3293     A     
 DBG=IDP            EQ     LST2                                                            DBG=IDP     3294     A     
 DBG=IDP   LXT      SPACE  4,8                                                             DBG0002     1274     A     
 DBG=IDP  **        LXT - LIST XFER TABLE.                                                 DBG0002     1275     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 238    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                                                                                DBG0002     1276     A     
 DBG=IDP  *                                                                                DBG0002     1277     A     
 DBG=IDP  *                LISTS THE MOST RECENT TRANSFERS OF CONTROL TO OCCUR             DBG0002     1278     A     
 DBG=IDP  *         DURING STEP MODE (CONTAINED IN *IDPXFT*).                              DBG0002     1279     A     
 DBG=IDP  *                                                                                DBG0002     1280     A     
 DBG=IDP  *         *IDPXFT* FORMAT --                                                     DBG0002     1281     A     
 DBG=IDP  *                                                                                DBG0002     1282     A     
 DBG=IDP  *         VFD    60/-1       UNUSED ENTRY (I.E. XFT HAS NOT FILLED YET)          DBG0002     1283     A     
 DBG=IDP  *          .                                                                     DBG0002     1284     A     
 DBG=IDP  *          .                                                                     DBG0002     1285     A     
 DBG=IDP  *         VFD    30/POS COUNTER,30/P REGISTER OF XFER INSTRUCTION                DBG0002     1286     A     
 DBG=IDP  *          .                                                                     DBG0002     1287     A     
 DBG=IDP  *         VFD    60/0        END OF TABLE MARK                                   DBG0002     1288     A     
 DBG=IDP  *                                                                                DBG0002     1289     A     
 DBG=IDP  *         ENTRY  (X6) = NR OF ENTRIES TO LIST (BEGINNING W/ MOST RECENT)         DBG0002     1290     A     
 DBG=IDP  *                                                                                DBG0002     1291     A     
 DBG=IDP  *         EXIT   NONE                                                            DBG0002     1292     A     
 DBG=IDP  *                                                                                DBG0002     1293     A     
 DBG=IDP  *         USES   ALL                                                             DBG0002     1294     A     
 DBG=IDP  *                                                                                DBG0002     1295     A     
 DBG=IDP  *         CALLS  DAZ                                                             DBG0002     1296     A     
 DBG=IDP                                                                                   DBG0002     1297     A     
 DBG=IDP                                                                                   DBG0002     1298     A     
 DBG=IDP   LXT      SUBR               ** ENTRY/EXIT **                                    DBG0002     1299     A     
 DBG=IDP                                                                                   DBG0002     1300     A     
 DBG=IDP  *         INITIALIZATION.                                                        DBG0002     1301     A     
 DBG=IDP                                                                                   DBG0002     1302     A     
 DBG=IDP            SX1    IDPXFT+L.XFT                                                    DBG0002     1303     A     
 DBG=IDP            SX7    X6-L.XFT-1                                                      DBG0002     1304     A     
 DBG=IDP            MI     X7,LXT2     IF NOT ASKING FOR TOO MANY ENTRIES                  DBG0002     1305     A     
 DBG=IDP            SX6    L.XFT                                                           DBG0002     1306     A     
 DBG=IDP                                                                                   DBG0002     1307     A     
 DBG=IDP   LXT2     IX7    X1-X6                                                           DBG0002     1308     A     
 DBG=IDP            NO                                                                     DBG0002     1309     A     
 DBG=IDP            SA7    LXT=NXT                                                         DBG0002     1310     A     
 DBG=IDP                                                                                   DBG0002     1311     A     
 DBG=IDP  *         ** MAIN LOOP NODE **                                                   DBG0002     1312     A     
 DBG=IDP                                                                                   DBG0002     1313     A     
 DBG=IDP   LXT3     SA2    LXT=NXT                                                         DBG0002     1314     A     
 DBG=IDP            SA3    X2          (X3) = NEXT *XFT* ENTRY                             DBG0002     1315     A     
 DBG=IDP            SX7    X2+B1                                                           DBG0002     1316     A     
 DBG=IDP            SX4    X3+B1                                                           DBG0002     1317     A     
 DBG=IDP            SA7    A2                                                              DBG0002     1318     A     
 DBG=IDP            ZR     X3,EXIT.    IF HIT END OF TABLE MARK, DONE...                   DBG0002     1319     A     
 DBG=IDP            ZR     X4,LXT3     IF HIT AVAILABLE ENTRY (I.E. *XFT* WAS NOT          DBG0002     1320     A     
 DBG=IDP  *                              FULL TO BEGIN WITH)                               DBG0002     1321     A     
 DBG=IDP            SA5    X3          (A5,X5) = A+C OF XFER INSTRUCTION                   DBG0002     1322     A     
 DBG=IDP            AX3    30                                                              DBG0002     1323     A     
 DBG=IDP            SB4    X3          (B4) = POS COUNTER                                  DBG0002     1324     A     
 DBG=IDP            SA7    IDPFAD      SET TO *FORCE OUT ADDR UNCONDITIONALLY*             DBG0002     1325     A     
 DBG=IDP            RJ     DAZ         DEASSEMBLE XFER INSTRUCTION                         DBG0002     1326     A     
 DBG=IDP            EQ     LXT3                                                            DBG0002     1327     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 239    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG0002     1328     A     
 DBG=IDP                                                                                   DBG0002     1329     A     
 DBG=IDP   LXT=NXT  =      APL         SAVED ADDR OF NEXT *XFT* ENTRY                      DBG0002     1330     A     
 DBG=IDP   PAS      SPACE  4,8                                                             DBG=IDP     3295     A     
 DBG=IDP  **        PAS - PARSE SUBEXPRESSION.                                             DBG=IDP     3296     A     
 DBG=IDP  *                                                                                DBG=IDP     3297     A     
 DBG=IDP  *                THIS ROUTINE PARSES AN EXPRESSION THAT IS TERMINATED            DBG=IDP     3298     A     
 DBG=IDP  *         BY A -,- OR -EOS-, AND RETURNS THE VALUE OF THE EXPRESSION             DBG=IDP     3299     A     
 DBG=IDP  *         IN THE ACCUMULATOR *IDPACC*.                                           DBG=IDP     3300     A     
 DBG=IDP  *                                                                                DBG=IDP     3301     A     
 DBG=IDP  *         ENTRY  (A5+1,X5)=  ADDR + CONTENTS OF 1ST TOKEN IN EXPRESSION          DBG=IDP     3302     A     
 DBG=IDP  *                                                                                DBG=IDP     3303     A     
 DBG=IDP  *         EXIT   (IDPACC) =  BINARY VALUE OF EXPRESSION                          DBG=IDP     3304     A     
 DBG=IDP  *                (X1)     =  (IDPACC)                                            DBG=IDP     3305     A     
 DBG=IDP  *                (X3)     =  .ZR. IF EXPRESSION WAS NULL, ELSE .NZ.              DBG=IDP     3306     A     
 DBG=IDP  *                (A5,X5)  =  ADDR + CNTS OF TOKEN THAT TERMINATED PARSE          DBG=IDP     3307     A     
 DBG=IDP  *                (X6)     =  (X1) = (IDPACC)                                     DBG0002     1331     A     
 DBG=IDP  *                                                                                DBG=IDP     3308     A     
 DBG=IDP  *         USES   ALL                                                             DBG=IDP     3309     A     
 DBG=IDP  *                                                                                DBG=IDP     3310     A     
 DBG=IDP  *         CALLS  DXB,IDP.ER,SCS,SKT                                              DBG=IDP     3311          I
          -DBG0002
 DBG=IDP  *         CALLS  DXB,FAA(IF DEF),IDP=ER,SKT                                      DBG0002     1332     A     
 DBG=IDP                                                                                   DBG=IDP     3312     A     
 DBG=IDP                                                                                   DBG=IDP     3313     A     
 DBG=IDP   PAS      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     3314     A     
 DBG=IDP                                                                                   DBG=IDP     3315     A     
 DBG=IDP  *         INITIALIZATION.                                                        DBG=IDP     3316     A     
 DBG=IDP                                                                                   DBG=IDP     3317     A     
 DBG=IDP            MX6    0                                                               DBG=IDP     3318     A     
 DBG=IDP            MX7    -1                                                              DBG=IDP     3319     A     
 DBG=IDP            SA6    IDPACC      CLEAR ACCUMULATOR                                   DBG=IDP     3320     A     
 DBG=IDP            SA6    IDPSGN      SET TO *SIGN IS PLUS*                               DBG=IDP     3321     A     
 DBG=IDP            SA6    IDPIND      SET TO *DIRECT ADDRESSING*                          DBG=IDP     3322     A     
 DBG=IDP            SA6    IDP0TR      CLEAR REGISTER DESIGNATOR                           DBG=IDP     3323          I
          -DBG0001
 DBG=IDP            SA7    IDPNUL      SET TO *NULL EXPRESSION SO FAR*                     DBG=IDP     3324     A     
 DBG=IDP                                                                                   DBG=IDP     3325     A     
 DBG=IDP  *         MAIN LOOP NODE.                                                        DBG=IDP     3326     A     
 DBG=IDP                                                                                   DBG=IDP     3327     A     
 DBG=IDP   PS=ALL   SA5    A5+B1       (X5) = NEXT TOKEN TO PARSE                          DBG=IDP     3328     A     
 DBG=IDP            SA4    IDPNUL                                                          DBG=IDP     3329     A     
 DBG=IDP            SX7    X4+B1                                                           DBG=IDP     3330     A     
 DBG=IDP            SA7    A4                                                              DBG=IDP     3331     A     
 DBG=IDP            ZR     X5,PS=END   IF EOS TOKEN                                        DBG=IDP     3332     A     
 DBG=IDP            MX0    -CHAR                                                           DBG0002     1333     A     
 DBG=IDP            =X6    X5-O.VAR                                                        DBG=IDP     3333     A     
 DBG=IDP            =X7    X5-O.CONS                                                       DBG=IDP     3334     A     
 DBG=IDP            ZR     X6,PS=NAM   IF NAME TOKEN                                       DBG=IDP     3335     A     
 DBG=IDP            ZR     X7,PS=CON   IF CONSTANT TOKEN                                   DBG=IDP     3336     A     
 DBG=IDP            SX6    X5-O.SEP                                                        DBG=IDP     3337     A     
 DBG=IDP            NZ     X6,IDP.ER   IF NOT SEPARATOR TOKEN, ERR...                      DBG=IDP     3338     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 240    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG=IDP     3339     A     
 DBG=IDP  *         HERE TO PROCESS A SEPARATOR TOKEN -- *,+-                              DBG=IDP     3340     A     
 DBG=IDP                                                                                   DBG=IDP     3341     A     
 DBG=IDP            AX5    18                                                              DBG=IDP     3342          I
          -DBG0002
 DBG=IDP            LX5    1*CHAR-10*CHAR                                                  DBG0002     1334     A     
 DBG=IDP            BX5    -X0*X5                                                          DBG0002     1335     A     
 DBG=IDP            SX6    X5-1R,                                                          DBG=IDP     3343     A     
 DBG=IDP            SX7    X5-1R*                                                          DBG=IDP     3344     A     
 DBG=IDP            ZR     X6,PS=END   IF , TOKEN                                          DBG=IDP     3345     A     
 DBG=IDP            ZR     X7,PS=STR   IF * TOKEN                                          DBG=IDP     3346     A     
 DBG=IDP            SX6    X5-1R+                                                          DBG=IDP     3347     A     
 DBG=IDP            SX7    X5-1R-                                                          DBG=IDP     3348     A     
 DBG=IDP            ZR     X6,PS=PL    IF + TOKEN                                          DBG=IDP     3349     A     
 DBG=IDP            ZR     X7,PS=MI    IF - TOKEN                                          DBG=IDP     3350     A     
 DBG=IDP            EQ     IDP.ER      ERR - *UNKNOWN TOKEN*                               DBG=IDP     3351     A     
 DBG=IDP                                                                                   DBG=IDP     3352     A     
 DBG=IDP  *         HERE IF NAME TOKEN.                                                    DBG=IDP     3353     A     
 DBG=IDP                                                                                   DBG=IDP     3354     A     
 DBG=IDP   PS=NAM   SA1    IDPBAX                                                          DBG=IDP     3355     A     
 DBG=IDP            BX2    X5                                                              DBG=IDP     3356     A     
 DBG=IDP            MX0    -CHAR                                                           DBG=IDP     3357     A     
 DBG=IDP            LX2    CHAR                                                            DBG=IDP     3358     A     
 DBG=IDP            BX6    -X0*X2                                                          DBG=IDP     3359     A     
 DBG=IDP            SB2    X6          (B2) = REGISTER TYPE (BAX)                          DBG=IDP     3360     A     
 DBG=IDP            LX7    X1,B2                                                           DBG=IDP     3361     A     
 DBG=IDP            PL     X7,PS=NAM2  IF NAME DOES NOT BEGIN WITH B,A,OR X                DBG=IDP     3362     A     
 DBG=IDP                                                                                   DBG=IDP     3363     A     
 DBG=IDP  *         CHECK FOR REGISTER NAME.                                               DBG=IDP     3364     A     
 DBG=IDP                                                                                   DBG=IDP     3365     A     
 DBG=IDP            MX1    1R7-1R0+1                                                       DBG=IDP     3366     A     
 DBG=IDP            LX1    -1R0        (X1) = (0-7) SHIFT MASK                             DBG=IDP     3367     A     
 DBG=IDP            LX2    CHAR                                                            DBG=IDP     3368     A     
 DBG=IDP            BX6    -X0*X2                                                          DBG=IDP     3369     A     
 DBG=IDP            SB3    X6          (B3) = REGISTER NR (0-7) DPC                        DBG=IDP     3370     A     
 DBG=IDP            LX7    X1,B3                                                           DBG=IDP     3371     A     
 DBG=IDP            PL     X7,PS=NAM2  IF 2ND LETTER OF NAME IS NOT (0-7)                  DBG=IDP     3372     A     
 DBG=IDP            LX2    CHAR                                                            DBG=IDP     3373     A     
 DBG=IDP            BX7    -X0*X2                                                          DBG=IDP     3374     A     
 DBG=IDP            NZ     X7,PS=NAM2  IF 3RD CHAR IS NON-ZERO, NOT A REGISTER             DBG=IDP     3375     A     
 DBG=IDP            SB5    1RB                                                             DBG=IDP     3376     A     
 DBG=IDP            SB6    000B        (B6) = 0TR, WHERE T=0 (B REG)                       DBG=IDP     3377     A     
 DBG=IDP            EQ     B2,B5,PS=NAM1     IF B REGISTER                                 DBG=IDP     3378     A     
 DBG=IDP            SB5    1RA                                                             DBG=IDP     3379     A     
 DBG=IDP            SB6    010B        (B6) = 0TR, WHERE T=1 (A REG)                       DBG=IDP     3380     A     
 DBG=IDP            EQ     B2,B5,PS=NAM1     IF A REGISTER                                 DBG=IDP     3381     A     
 DBG=IDP            SB6    020B        (B6) = 0TR, WHERE T=2 (X REG)                       DBG=IDP     3382     A     
 DBG=IDP                                                                                   DBG=IDP     3383     A     
 DBG=IDP   PS=NAM1  SB7    X6-1R0      (B7) = REGISTER NR IN BINARY                        DBG=IDP     3384     A     
 DBG=IDP            SB6    B6+B7       (B6) = 0TR                                          DBG=IDP     3385     A     
 DBG=IDP            SX6    B6+SV=B     (X6) = ADDR OF SAVED 0TR REGISTER                   DBG=IDP     3386     A     
 DBG=IDP            EQ     PS=ACC                                                          DBG=IDP     3387     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 241    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG=IDP     3388     A     
 DBG=IDP  *         CHECK FOR DECK NAME.                                                   DBG=IDP     3389     A     
 DBG=IDP                                                                                   DBG=IDP     3390     A     
 DBG=IDP   PS=NAM2  MX0    7*CHAR                                                          DBG=IDP     3391     A     
 DBG=IDP            BX1    X0*X5       (X1) = 0LNAME                                       DBG=IDP     3392     A     
 DBG=IDP                                                                                   DBG=IDP     3393     A     
 DBG=IDP   #FAA     IF     DEF,FAA=                                                        DBG=IDP     3394     A     
 DBG=IDP            RJ     =XFAA=      FIND ABSOLUTE ADDRESS                               DBG=IDP     3395     A     
 DBG=IDP            PL     X6,PS=ACC   IF A FIND, ADJUST ACCUMULATOR...                    DBG=IDP     3396     A     
 DBG=IDP   #FAA     ENDIF                                                                  DBG=IDP     3397     A     
 DBG=IDP                                                                                   DBG=IDP     3398     A     
 DBG=IDP  *         HERE TO SEARCH USER *SET* TABLE.                                       DBG=IDP     3399     A     
 DBG=IDP                                                                                   DBG=IDP     3400     A     
 DBG=IDP            SB6    IDPSET      (B6) = FWA OF *SET* TABLE                           DBG=IDP     3401     A     
 DBG=IDP            RJ     SKT         SEARCH SET TABLE FOR NAME                           DBG=IDP     3402     A     
 DBG=IDP            ZR     X2,IDP.ER   IF NO FIND                                          DBG=IDP     3403     A     
 DBG=IDP            SX6    X2+                                                             DBG=IDP     3404     A     
 DBG=IDP            EQ     PS=ACC                                                          DBG=IDP     3405     A     
 DBG=IDP                                                                                   DBG=IDP     3406     A     
 DBG=IDP  *         HERE IF CONSTANT TOKEN.                                                DBG=IDP     3407     A     
 DBG=IDP                                                                                   DBG=IDP     3408     A     
 DBG=IDP   PS=CON   MX0    7*CHAR                                                          DBG=IDP     3409     A     
 DBG=IDP            BX5    X0*X5       (X5) = 42/0LCONSTANT(DPC), 18/0                     DBG=IDP     3410     A     
 DBG=IDP            SB7    B0          SET TO *MODE IS OCTAL*                              DBG=IDP     3411     A     
 DBG=IDP            RJ     =XDXB       CONVERT DPC TO BINARY                               DBG=IDP     3412     A     
 DBG=IDP            NZ     X4,IDP.ER   IF ERROR IN ASSEMBLY                                DBG=IDP     3413     A     
 DBG=IDP            EQ     PS=ACC      ADJUST ACCUMULATOR...                               DBG=IDP     3414     A     
 DBG=IDP                                                                                   DBG=IDP     3415     A     
 DBG=IDP  *         HERE IF * TOKEN.                                                       DBG=IDP     3416     A     
 DBG=IDP                                                                                   DBG=IDP     3417     A     
 DBG=IDP   PS=STR   SA1    IDPIND                                                          DBG=IDP     3418     A     
 DBG=IDP            SX6    X1+B1       (X6) = LEVEL OF INDIRECT ADDRESSING                 DBG=IDP     3419     A     
 DBG=IDP            SA6    A1                                                              DBG=IDP     3420     A     
 DBG=IDP            EQ     PS=ALL      RETURN TO MAIN LOOP.. .                             DBG=IDP     3421     A     
 DBG=IDP                                                                                   DBG=IDP     3422     A     
 DBG=IDP  *         HERE IF + TOKEN .                                                      DBG=IDP     3423     A     
 DBG=IDP                                                                                   DBG=IDP     3424     A     
 DBG=IDP   PS=PL    =      PS=ALL                                                          DBG=IDP     3425     A     
 DBG=IDP                                                                                   DBG=IDP     3426     A     
 DBG=IDP  *         HERE IF - TOKEN.                                                       DBG=IDP     3427     A     
 DBG=IDP                                                                                   DBG=IDP     3428     A     
 DBG=IDP   PS=MI    SA1    IDPSGN                                                          DBG=IDP     3429     A     
 DBG=IDP            MX6    60                                                              DBG=IDP     3430     A     
 DBG=IDP            BX6    X1-X6                                                           DBG=IDP     3431     A     
 DBG=IDP            SA6    A1                                                              DBG=IDP     3432     A     
 DBG=IDP            EQ     PS=ALL      RETURN TO MAIN LOOP...                              DBG=IDP     3433     A     
 DBG=IDP                                                                                   DBG=IDP     3434     A     
 DBG=IDP  *         HERE TO ADJUST ACCUMULATOR.                                            DBG=IDP     3435     A     
 DBG=IDP                                                                                   DBG=IDP     3436     A     
 DBG=IDP   PS=ACC   SA1    IDPIND                                                          DBG=IDP     3437     A     
 DBG=IDP            SX7    X1-1                                                            DBG=IDP     3438     A     
 DBG=IDP            MI     X7,PS=ACC2  IF NO MORE LEVELS OF INDIRECT ADDR                  DBG=IDP     3439     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 242    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SA7    A1                                                              DBG=IDP     3440     A     
 DBG=IDP            SB2    X6                                                              DBG=IDP     3441     A     
 DBG=IDP            RJ     CHK         CHECK CM ADDR                                       DBG=IDP     3442     A     
 DBG=IDP            MI     B2,IDP.ER   IF ADDR IS BAD                                      DBG=IDP     3443     A     
 DBG=IDP            SA2    B2          (X2) = NEW ADDRESS                                  DBG=IDP     3444     A     
 DBG=IDP            BX6    X2                                                              DBG=IDP     3445     A     
 DBG=IDP            EQ     PS=ACC                                                          DBG=IDP     3446     A     
 DBG=IDP                                                                                   DBG=IDP     3447     A     
 DBG=IDP   PS=ACC2  SA1    IDPACC                                                          DBG=IDP     3448     A     
 DBG=IDP            SA2    IDPSGN                                                          DBG=IDP     3449     A     
 DBG=IDP            BX3    X6-X2       (X3) = +X6 IF +, -X6 IF -                           DBG=IDP     3450     A     
 DBG=IDP            IX7    X1+X3                                                           DBG=IDP     3451     A     
 DBG=IDP            MX6    0                                                               DBG=IDP     3452     A     
 DBG=IDP            SA7    A1                                                              DBG=IDP     3453     A     
 DBG=IDP            SA6    A2          SET TO *DEFAULT SIGN IS PLUS*                       DBG=IDP     3454     A     
 DBG=IDP            EQ     PS=ALL      RETURN TO MAIN LOOP ...                             DBG=IDP     3455     A     
 DBG=IDP                                                                                   DBG=IDP     3456     A     
 DBG=IDP  *         HERE IF END OF SUBEXPRESSION SENSED.                                   DBG=IDP     3457     A     
 DBG=IDP                                                                                   DBG=IDP     3458     A     
 DBG=IDP   PS=END   SA1    IDPACC                                                          DBG=IDP     3459     A     
 DBG=IDP            SA3    IDPNUL                                                          DBG=IDP     3460     A     
 DBG=IDP            BX6    X1                                                              DBG0002     1336     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     3461     A     
 DBG=IDP   POL      SPACE  4,8                                                             DBG=IDP     3462     A     
 DBG=IDP  **        POL - PROCESS OPTIONS LIST ITEM.                                       DBG=IDP     3463     A     
 DBG=IDP  *                                                                                DBG=IDP     3464     A     
 DBG=IDP  *                                                                                DBG=IDP     3465     A     
 DBG=IDP  *                THIS ROUTINE WILL PROCESS AN OPTIONS LIST ITEM THAT IS          DBG=IDP     3466     A     
 DBG=IDP  *         TERMINATED BY A -,- OR -EOS-.                                          DBG=IDP     3467     A     
 DBG=IDP  *                                                                                DBG=IDP     3468     A     
 DBG=IDP  *         ENTRY  (B6) = FWA OF OPTIONS KEYWORD TABLE (OKT)                       DBG=IDP     3469     A     
 DBG=IDP  *                (A5+1,X5) = ADDR + CONTENTS OF 1ST TOKEN IN LIST                DBG=IDP     3470     A     
 DBG=IDP  *                                                                                DBG=IDP     3471     A     
 DBG=IDP  *         EXIT   IF NO ERROR--                                                   DBG=IDP     3472     A     
 DBG=IDP  *                (A5,X5) =  A + C OF TOKEN THAT TERMINATED OPTIONS LIST          DBG=IDP     3473     A     
 DBG=IDP  *                (X3)    = .ZR. IF OPTIONS LIST ITEM WAS NULL, ELSE .NZ.         DBG=IDP     3474     A     
 DBG=IDP  *                (X6)    =  -DEFAULT IF - PREFIX, ELSE +DEFAULT                  DBG=IDP     3475     A     
 DBG=IDP  *                (X7)    =  +0 IF - PREFIX, ELSE + DEFAULT                       DBG=IDP     3476     A     
 DBG=IDP  *                (B7)    =  ORDINAL INTO *OKT* OF FIND                           DBG=IDP     3477     A     
 DBG=IDP  *                                                                                DBG=IDP     3478     A     
 DBG=IDP  *                IF AN ERROR-- EXIT IS TO *IDP=ER*                               DBG=IDP     3479     A     
 DBG=IDP  *                                                                                DBG=IDP     3480     A     
 DBG=IDP  *         USES   X - ALL                                                         DBG=IDP     3481     A     
 DBG=IDP  *                A - 2,3,5                                                       DBG=IDP     3482     A     
 DBG=IDP  *                B - 7                                                           DBG=IDP     3483     A     
 DBG=IDP  *                                                                                DBG=IDP     3484     A     
 DBG=IDP  *         CALLS  IDP=ER,SKT                                                      DBG=IDP     3485     A     
 DBG=IDP                                                                                   DBG=IDP     3486     A     
 DBG=IDP                                                                                   DBG=IDP     3487     A     
 DBG=IDP   POL      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     3488     A     
 DBG=IDP                                                                                   DBG=IDP     3489     A     
 DBG=IDP  *         INITIALIZATION.                                                        DBG=IDP     3490     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 243    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG=IDP     3491     A     
 DBG=IDP            BX4    X4-X4       SET TO *NO - PREFIX SO FAR*                         DBG=IDP     3492     A     
 DBG=IDP            MX6    -1                                                              DBG=IDP     3493     A     
 DBG=IDP            SX7    B0                                                              DBG=IDP     3494     A     
 DBG=IDP            SA6    IDPNUL      SET TO *NULL EXPRESSION SO FAR*                     DBG=IDP     3495     A     
 DBG=IDP            SA7    IDPACC      CLEAR ACCUMULATOR                                   DBG=IDP     3496     A     
 DBG=IDP                                                                                   DBG=IDP     3497     A     
 DBG=IDP  *         MAIN LOOP NODE.                                                        DBG=IDP     3498     A     
 DBG=IDP                                                                                   DBG=IDP     3499     A     
 DBG=IDP   POL2     SA3    IDPNUL                                                          DBG=IDP     3500     A     
 DBG=IDP            SA5    A5+B1                                                           DBG=IDP     3501     A     
 DBG=IDP            SX6    X3+B1                                                           DBG=IDP     3502     A     
 DBG=IDP            MX0    -CHAR                                                           DBG0002     1337     A     
 DBG=IDP            SA6    A3                                                              DBG=IDP     3503     A     
 DBG=IDP            ZR     X5,POL4     IF EOS ENCOUNTERED                                  DBG=IDP     3504     A     
 DBG=IDP            SX6    X5-O.SEP                                                        DBG=IDP     3505     A     
 DBG=IDP            SX7    X5-O.VAR                                                        DBG=IDP     3506     A     
 DBG=IDP            NZ     X6,POL3     IF NOT A SEPARATOR                                  DBG=IDP     3507     A     
 DBG=IDP                                                                                   DBG=IDP     3508     A     
 DBG=IDP  *         HERE IF A SEPARATOR TOKEN ENCOUNTERED.                                 DBG=IDP     3509     A     
 DBG=IDP                                                                                   DBG=IDP     3510     A     
 DBG=IDP            LX5    -18                                                             DBG=IDP     3511          I
          -DBG0002
 DBG=IDP            LX5    1*CHAR-10*CHAR                                                  DBG0002     1338     A     
 DBG=IDP            BX5    -X0*X5                                                          DBG0002     1339     A     
 DBG=IDP            SX6    X5-1R,                                                          DBG=IDP     3512     A     
 DBG=IDP            SX7    X5-1R-                                                          DBG=IDP     3513     A     
 DBG=IDP            ZR     X6,POL4     IF , ENCOUNTERED (I.E. END OF LIST)                 DBG=IDP     3514     A     
 DBG=IDP            NZ     X7,IDP=ER   IF NOT - TOKEN, ERROR...                            DBG=IDP     3515     A     
 DBG=IDP            MX4    60          SET TO * - PREFIX ENCOUNTERED*                      DBG=IDP     3516     A     
 DBG=IDP            EQ     POL2                                                            DBG=IDP     3517     A     
 DBG=IDP                                                                                   DBG=IDP     3518     A     
 DBG=IDP  *         HERE TO PROCESS NAME TOKEN.                                            DBG=IDP     3519     A     
 DBG=IDP                                                                                   DBG=IDP     3520     A     
 DBG=IDP   POL3     NZ     X7,IDP=ER   IF NOT A NAME TOKEN, ERROR...                       DBG=IDP     3521     A     
 DBG=IDP            MX0    7*CHAR                                                          DBG=IDP     3522          I
          -DBG0002
 DBG=IDP            BX1    X0*X5       (X1) = 0LNAME                                       DBG=IDP     3523          I
          -DBG0002
 DBG=IDP            MX0    7*CHAR                                                          DBG0002     1340     A     
 DBG=IDP            SX6    B1                                                              DBG0002     1341     A     
 DBG=IDP            SA2    =40404040404040404040B                                          DBG0002     1342     A     
 DBG=IDP            BX1    X0*X5       (X1) = 0LKEYWORD                                    DBG0002     1343     A     
 DBG=IDP            IX6    X1-X6       BORROW RIPPLES LEFT TO 1ST NON-ZERO BIT             DBG0002     1344     A     
 DBG=IDP            BX7    -X6+X1      (X7) = ALL TRAILING 0 BITS IN (X1) = 0 BITS         DBG0002     1345     A     
 DBG=IDP  *                                    ALL OTHER LEADING BITS = 1 BITS             DBG0002     1346     A     
 DBG=IDP            SB7    60-5        (B7) = RIGHT CIRCULAR SHIFT 5 BITS                  DBG0002     1347     A     
 DBG=IDP            BX6    X2*X7       (X6) = 40B WHERE EACH CHAR IN KEYWORD IS            DBG0002     1348     A     
 DBG=IDP            LX7    X6,B7       (X7) = 01B WHERE EACH CHAR IN KEYWORD IS            DBG0002     1349     A     
 DBG=IDP            IX7    X6-X7       (X7) = 37B WHERE EACH CHAR IN KEYWORD IS            DBG0002     1350     A     
 DBG=IDP            BX0    X6+X7       (X0) = 77B WHERE EACH CHAR IN KEYWORD IS            DBG0002     1351     A     
 DBG=IDP            RJ     SKT         SEARCH FOR NAME                                     DBG=IDP     3524     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 244    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            ZR     X2,IDP=ER   IF NO FIND                                          DBG=IDP     3525     A     
 DBG=IDP            SX6    X2                                                              DBG=IDP     3526     A     
 DBG=IDP            SA6    IDPACC                                                          DBG=IDP     3527     A     
 DBG=IDP            EQ     POL2                                                            DBG=IDP     3528     A     
 DBG=IDP                                                                                   DBG=IDP     3529     A     
 DBG=IDP  *         HERE TO SET UP EXIT CONDITIONS.                                        DBG=IDP     3530     A     
 DBG=IDP                                                                                   DBG=IDP     3531     A     
 DBG=IDP   POL4     SA1    IDPACC                                                          DBG=IDP     3532     A     
 DBG=IDP            SA3    IDPNUL                                                          DBG=IDP     3533     A     
 DBG=IDP            BX6    X1-X4       (X6) = -DEFAULT IF - PREFIX, ELSE +DEFAULT          DBG=IDP     3534     A     
 DBG=IDP            BX7    -X4*X1      (X7) = +0 IF - PREFIX, ELSE +DEFAULT                DBG=IDP     3535     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     3536     A     
 DBG=IDP   RIL      SPACE  4,8                                                             DBG=IDP     3537          I
          -DBG0002
 DBG=IDP  **        RIL - READ NEXT *IDP* LINE.                                            DBG=IDP     3538          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP     3539          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP     3540          I
          -DBG0002
 DBG=IDP  *         ENTRY  NONE                                                            DBG=IDP     3541          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP     3542          I
          -DBG0002
 DBG=IDP  *         EXIT   (X1)      =  .NZ. IF EOR/EOF ENCOUNTERED                        DBG=IDP     3543          I
          -DBG0002
 DBG=IDP  *                (A5,X5)   =  ADDR + CONTENTS OF 1ST WORD OF LINE IMAGE          DBG=IDP     3544          I
          -DBG0002
 DBG=IDP  *                (B6)      =  -NR OF WORDS IN LINE                               DBG=IDP     3545          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP     3546          I
          -DBG0002
 DBG=IDP  *         USES   ALL BUT A0,X0                                                   DBG=IDP     3547          I
          -DBG0002
 DBG=IDP  *                                                                                DBG=IDP     3548          I
          -DBG0002
 DBG=IDP  *         CALLS  READ,READC,RECALL                                               DBG=IDP     3549          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     3550          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     3551          I
          -DBG0002
 DBG=IDP   RIL      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     3552          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     3553          I
          -DBG0002
 DBG=IDP   RIL1     READC  F.IDI,IDPLIM                                                    DBG=IDP     3554          I
          -DBG0002
 DBG=IDP            ZR     X1,RIL1A    IF NOT EOR/EOF STATUS                               DBG=IDP     3555          I
          -DBG0002
 DBG=IDP            READ   X2,RCL                                                          DBG=IDP     3556          I
          -DBG0002
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 245    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG=IDP     3557          I
          -DBG0002
 DBG=IDP  *         SET EOR STATUS TO PREVENT *READC* FROM READING AHEAD.                  DBG=IDP     3558          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     3559          I
          -DBG0002
 DBG=IDP            SA1    X2                                                              DBG=IDP     3560          I
          -DBG0002
 DBG=IDP            MX6    60-18                                                           DBG=IDP     3561          I
          -DBG0002
 DBG=IDP            BX1    X6*X1                                                           DBG=IDP     3562          I
          -DBG0002
 DBG=IDP            SX6    040021B                                                         DBG=IDP     3563          I
          -DBG0002
 DBG=IDP            BX6    X1+X6                                                           DBG=IDP     3564          I
          -DBG0002
 DBG=IDP            SA6    A1                                                              DBG=IDP     3565          I
          -DBG0002
 DBG=IDP            EQ     RIL1                                                            DBG=IDP     3566          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     3567          I
          -DBG0002
 DBG=IDP   RIL1A    SA2    B6-B1       (X2) = LAST WORD OF INPUT LINE IMAGE                DBG=IDP     3568          I
          -DBG0002
 DBG=IDP            BX6    X6-X6                                                           DBG=IDP     3569          I
          -DBG0002
 DBG=IDP            MX7    -1                                                              DBG=IDP     3570          I
          -DBG0002
 DBG=IDP            NZ     X2,RIL2     IF NOT A FULL WORD EOL MARK                         DBG=IDP     3571          I
          -DBG0002
 DBG=IDP            SA2    A2-B1                                                           DBG=IDP     3572          I
          -DBG0002
 DBG=IDP            MX3    -CHAR                                                           DBG=IDP     3573          I
          -DBG0002
 DBG=IDP            SB6    B6-B1                                                           DBG=IDP     3574          I
          -DBG0002
 DBG=IDP            BX4    -X3*X2      EXTRACT LAST CHAR                                   DBG=IDP     3575          I
          -DBG0002
 DBG=IDP            NZ     X4,RIL3     IF NOT 11 CHAR EOL                                  DBG=IDP     3576          I
          -DBG0002
 DBG=IDP            SX6    1R                                                              DBG=IDP     3577          I
          -DBG0002
 DBG=IDP            IX7    X2+X6                                                           DBG=IDP     3578          I
          -DBG0002
 DBG=IDP            SA7    A2                                                              DBG=IDP     3579          I
          -DBG0002
 DBG=IDP            EQ     RIL3                                                            DBG=IDP     3580          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     3581          I
          -DBG0002
 DBG=IDP   RIL2     IX4    X2+X7       BORROW RIPPLES LEFT TO 1ST NON-ZERO BIT             DBG=IDP     3582          I
          -DBG0002
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 246    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SA3    =40404040404040404040B                                          DBG=IDP     3583          I
          -DBG0002
 DBG=IDP            SA6    B6          MARK EOL                                            DBG=IDP     3584          I
          -DBG0002
 DBG=IDP            BX4    -X2*X4      (X4) = ALL TRAILING 0 BITS IN (X2) = 1 BITS         DBG=IDP     3585          I
          -DBG0002
 DBG=IDP            SB7    10*CHAR-1*CHAR+1                                                DBG=IDP     3586          I
          -DBG0002
 DBG=IDP            BX4    X3*X4       (X4) = 40B WHERE TRAILING 00B WERE                  DBG=IDP     3587          I
          -DBG0002
 DBG=IDP            LX6    X4,B7       (X6) = 01B WHERE TRAILING 00B WERE                  DBG=IDP     3588          I
          -DBG0002
 DBG=IDP            IX7    X4-X6       (X7) = 37B WHERE TRAILING 00B WERE                  DBG=IDP     3589          I
          -DBG0002
 DBG=IDP            SA3    =10H                                                            DBG=IDP     3590          I
          -DBG0002
 DBG=IDP            BX4    X4+X7       (X4) = 77B WHERE TRAILING 00B WERE                  DBG=IDP     3591          I
          -DBG0002
 DBG=IDP            BX6    X4*X3       (X6) = 55B WHERE TRAILING 00B WERE                  DBG=IDP     3592          I
          -DBG0002
 DBG=IDP            IX7    X2+X6       TRAILING 00B BECOMES TRAILING 55B                   DBG=IDP     3593          I
          -DBG0002
 DBG=IDP            SA7    A2                                                              DBG=IDP     3594          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     3595          I
          -DBG0002
 DBG=IDP   RIL3     SB7    -B6                                                             DBG=IDP     3596          I
          -DBG0002
 DBG=IDP            MX6    0                                                               DBG=IDP     3597          I
          -DBG0002
 DBG=IDP            SB6    B7+IDPLIM   (B6) = -WD COUNT                                    DBG=IDP     3598          I
          -DBG0002
 DBG=IDP            SA5    IDPLIM                                                          DBG=IDP     3599          I
          -DBG0002
 DBG=IDP            ZR     X1,EXIT.    IF EOR/EOF DID NOT OCCUR                            DBG=IDP     3600          I
          -DBG0002
 DBG=IDP            SA6    A5          MARK EOL                                            DBG=IDP     3601          I
          -DBG0002
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     3602          I
          -DBG0002
 DBG=IDP   RIL      SPACE  4,8                                                             DBG0002     1352     A     
 DBG=IDP  **        RIL - READ IDP INPUT LINE.                                             DBG0002     1353     A     
 DBG=IDP  *                                                                                DBG0002     1354     A     
 DBG=IDP  *                                                                                DBG0002     1355     A     
 DBG=IDP  *         ENTRY  IF READING INTERACTIVELY (F.IDI) -- NONE                        DBG0002     1356     A     
 DBG=IDP  *                IF READING FROM BATCH (F.BDI) -- INITIAL *READ* ISSUED          DBG0002     1357     A     
 DBG=IDP  *                  TO FILL BUFFER                                                DBG0002     1358     A     
 DBG=IDP  *                                                                                DBG0002     1359     A     
 DBG=IDP  *         EXIT   (X1)      = .NZ. IF EOR/EOF ENCOUNTERED, ELSE .ZR.              DBG0002     1360     A     
 DBG=IDP  *                IF NO EOR/EOF ENCOUNTERED --                                    DBG0002     1361     A     
 DBG=IDP  *                (A5,X5)   = A+C OF 1ST WORD OF LINE IMAGE                       DBG0002     1362     A     
 DBG=IDP  *                (L=LIM)   = NR OF WORDS IN SOURCE LINE IMAGE                    DBG0002     1363     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 247    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                              (INCLUDES WORD CONTAINING EOL MARK)               DBG0002     1364     A     
 DBG=IDP  *                                                                                DBG0002     1365     A     
 DBG=IDP  *         USES   ALL BUT A0,X0     (INCLUDES ALL CALLS)                          DBG0002     1366     A     
 DBG=IDP  *                                                                                DBG0002     1367     A     
 DBG=IDP  *         CALLS  READ,READC                                                      DBG0002     1368     A     
 DBG=IDP                                                                                   DBG0002     1369     A     
 DBG=IDP                                                                                   DBG0002     1370     A     
 DBG=IDP   RIL      SUBR               ** ENTRY/EXIT **                                    DBG0002     1371     A     
 DBG=IDP                                                                                   DBG0002     1372     A     
 DBG=IDP   RIL2     SA5    IDPFLG                                                          DBG0002     1373     A     
 DBG=IDP            SX2    F.IDI                                                           DBG0002     1374     A     
 DBG=IDP            LX5    59-IDF.INPP                                                     DBG0002     1375     A     
 DBG=IDP            SB6    IDPLIM                                                          DBG0002     1376     A     
 DBG=IDP            PL     X5,RIL3     IF READING INTERACTIVELY (F.IDI)                    DBG0002     1377     A     
 DBG=IDP            SX2    F.BDI                                                           DBG0002     1378     A     
 DBG=IDP                                                                                   DBG0002     1379     A     
 DBG=IDP   RIL3     READC  X2,B6                                                           DBG0002     1380     A     
 DBG=IDP            ZR     X1,RIL4     IF NOT EOR/EOF STATUS                               DBG0002     1381     A     
 DBG=IDP            MI     X5,EXIT.    IF READING FROM BATCH (F.BDI)                       DBG0002     1382     A     
 DBG=IDP            READ   X2,RCL                                                          DBG0002     1383     A     
 DBG=IDP                                                                                   DBG0002     1384     A     
 DBG=IDP  *         SET EOR STATUS TO PREVENT *READC* FROM READING AHEAD.                  DBG0002     1385     A     
 DBG=IDP                                                                                   DBG0002     1386     A     
 DBG=IDP            SA1    X2                                                              DBG0002     1387     A     
 DBG=IDP            MX6    60-18                                                           DBG0002     1388     A     
 DBG=IDP            BX1    X6*X1                                                           DBG0002     1389     A     
 DBG=IDP            SX6    040021B                                                         DBG0002     1390     A     
 DBG=IDP            BX6    X1+X6                                                           DBG0002     1391     A     
 DBG=IDP            SA6    A1                                                              DBG0002     1392     A     
 DBG=IDP            EQ     RIL2                                                            DBG0002     1393     A     
 DBG=IDP                                                                                   DBG0002     1394     A     
 DBG=IDP  *         SET UP EXIT CONDITIONS.                                                DBG0002     1395     A     
 DBG=IDP                                                                                   DBG0002     1396     A     
 DBG=IDP   RIL4     SX7    B6-IDPLIM   (X7) = NR OF WORDS IN LINE IMAGE                    DBG0002     1397     A     
 DBG=IDP            SA5    IDPLIM      (A5,X5) = A+C OF 1ST WORD OF LINE IMAGE             DBG0002     1398     A     
 DBG=IDP            SA7    L=LIM                                                           DBG0002     1399     A     
 DBG=IDP            EQ     EXIT.                                                           DBG0002     1400     A     
 DBG=IDP   SKT      SPACE  4,8                                                             DBG=IDP     3603     A     
 DBG=IDP  **        SKT - SEARCH KEYWORD TABLE.                                            DBG=IDP     3604     A     
 DBG=IDP  *                                                                                DBG=IDP     3605     A     
 DBG=IDP  *                                                                                DBG=IDP     3606     A     
 DBG=IDP  *                SEARCHS A TABLE THAT IS TERMINATED BY A ZERO WORD               DBG=IDP     3607     A     
 DBG=IDP  *         FOR A MATCH, USING A SPECIFIED EXTRACTION MASK.                        DBG=IDP     3608     A     
 DBG=IDP  *                                                                                DBG=IDP     3609     A     
 DBG=IDP  *         ENTRY  (B6)     =  FWA TO BEGIN SEARCH                                 DBG=IDP     3610     A     
 DBG=IDP  *                (X0)     =  EXTRACTION MASK TO USE                              DBG=IDP     3611     A     
 DBG=IDP  *                (X1)     =  ELEMENT TO SEARCH FOR                               DBG=IDP     3612     A     
 DBG=IDP  *                                                                                DBG=IDP     3613     A     
 DBG=IDP  *         EXIT   IF NO FIND --                                                   DBG=IDP     3614     A     
 DBG=IDP  *                (X2)     =  .ZR.                                                DBG=IDP     3615     A     
 DBG=IDP  *                IF A FIND --                                                    DBG=IDP     3616     A     
 DBG=IDP  *                (B7)     =  ORDINAL OF FIND                                     DBG=IDP     3617     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 248    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                (A2,X2)  =  ADDR + CONTENTS OF WORD THAT MATCHED                DBG=IDP     3618     A     
 DBG=IDP  *                                                                                DBG=IDP     3619     A     
 DBG=IDP  *         USES   X - 2,3,6,7                                                     DBG=IDP     3620     A     
 DBG=IDP  *                A - 2                                                           DBG=IDP     3621     A     
 DBG=IDP  *                B - 7                                                           DBG=IDP     3622     A     
 DBG=IDP  *                                                                                DBG=IDP     3623     A     
 DBG=IDP  *         CALLS  NONE                                                            DBG=IDP     3624     A     
 DBG=IDP                                                                                   DBG=IDP     3625     A     
 DBG=IDP                                                                                   DBG=IDP     3626     A     
 DBG=IDP   SKT      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     3627     A     
 DBG=IDP            SA2    B6                                                              DBG=IDP     3628     A     
 DBG=IDP            BX6    X0*X1                                                           DBG=IDP     3629     A     
 DBG=IDP            SB7    -1                                                              DBG=IDP     3630     A     
 DBG=IDP                                                                                   DBG=IDP     3631     A     
 DBG=IDP   SKT2     ZR     X2,EXIT.    IF END OF TABLE                                     DBG=IDP     3632     A     
 DBG=IDP            BX7    X0*X2                                                           DBG=IDP     3633     A     
 DBG=IDP            SB7    B7+B1                                                           DBG=IDP     3634     A     
 DBG=IDP            IX3    X6-X7                                                           DBG=IDP     3635     A     
 DBG=IDP            ZR     X3,EXIT.    IF A FIND                                           DBG=IDP     3636     A     
 DBG=IDP            SA2    A2+B1                                                           DBG=IDP     3637     A     
 DBG=IDP            EQ     SKT2                                                            DBG=IDP     3638     A     
 DBG=IDP   STP      SPACE  4,8                                                             DBG=IDP     3639     A     
 DBG=IDP  **        STP - STEP AN INSTRUCTION.                                             DBG=IDP     3640     A     
 DBG=IDP  *                                                                                DBG=IDP     3641     A     
 DBG=IDP  *                                                                                DBG=IDP     3642     A     
 DBG=IDP  *                THIS ROUTINE WILL STEP A SINGLE CPU INSTRUCTION, AND            DBG=IDP     3643     A     
 DBG=IDP  *         LIST THE RESULT REGISTER, IF APPROPRIATE.                              DBG=IDP     3644     A     
 DBG=IDP  *                                                                                DBG=IDP     3645     A     
 DBG=IDP  *                *STP* ALSO PERFORMS A LIMITED SET OF ERROR CHECKS FOR           DBG=IDP     3646     A     
 DBG=IDP  *         RANGE ERRORS (MODE=1). 1) THE PSEUDO P REGISTER IS CHECKED,            DBG=IDP     3647     A     
 DBG=IDP  *         2) XFERS OF CONTROL (BRANCH OR RJ) ARE CHECKED, AND                    DBG=IDP     3648     A     
 DBG=IDP  *         3) LOAD/STORE ADDRESSES ARE CHECKED. IF AN ERROR IS DETECTED,          DBG=IDP     3649     A     
 DBG=IDP  *         THE BAD INSTRUCTION AND THE -P- REGISTER ARE DISPLAYED (EVEN           DBG=IDP     3650     A     
 DBG=IDP  *         IF -L SELECTED). STEP MODE IS THEN TERMINATED.                         DBG=IDP     3651     A     
 DBG=IDP  *                                                                                DBG=IDP     3652     A     
 DBG=IDP  *         ENTRY  (ST=ENDX) = CONTAINS THE PREVIOUS CONTENTS OF IDP               DBG=IDP     3653     A     
 DBG=IDP  *                              GENERATED BREAK ADDR IF THEY NEED TO              DBG=IDP     3654     A     
 DBG=IDP  *                              BE XEQ, ELSE .ZR.                                 DBG=IDP     3655     A     
 DBG=IDP  *                (IDPPREG) = PSEUDO P REGISTER, I.E. ADDRESS OF WORD             DBG=IDP     3656     A     
 DBG=IDP  *                              CONTAINING INSTRUCTION TO XEQ                     DBG=IDP     3657     A     
 DBG=IDP  *                (IDPPOS)  = POSITION COUNTER. LEFT MOST BIT OF INSTR            DBG=IDP     3658     A     
 DBG=IDP  *                              TO XEQ IS BIT (IDPPOS)-1 IN ((IDPPREG)).          DBG=IDP     3659     A     
 DBG=IDP  *                              (BITS ARE NUMBERED 59 THRU 0)                     DBG=IDP     3660     A     
 DBG=IDP  *                              E.G. FOR A WORD CONTAINING--                      DBG=IDP     3661     A     
 DBG=IDP  *                               +  MX0  -CHAR                                    DBG=IDP     3662     A     
 DBG=IDP  *                                  SA1  ADDR                                     DBG=IDP     3663     A     
 DBG=IDP  *                                  BX6  -X0*X5                                   DBG=IDP     3664     A     
 DBG=IDP  *                              WHEN STEPPING *SA1  ADDR*--                       DBG=IDP     3665     A     
 DBG=IDP  *                              (IDPPOS) = 45                                     DBG=IDP     3666     A     
 DBG=IDP  *                (IDPXLST) = .NZ. IF LISTING EACH STEPPED INSTRUCTION,           DBG=IDP     3667     A     
 DBG=IDP  *                                  ELSE .ZR.                                     DBG=IDP     3668     A     
 DBG=IDP  *                                                                                DBG=IDP     3669     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 249    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *         EXIT   (ST=ENDX), (IDPPREG), AND (IDPPOS) UPDATED                      DBG=IDP     3670     A     
 DBG=IDP  *                TO *IDP=ER* IF AN ERROR DETECTED                                DBG=IDP     3671     A     
 DBG=IDP  *                TO *IDP2A* IF AN *RJ IDP=* IS ENCOUNTERED AND THE               DBG0001       14     A     
 DBG=IDP  *                  BREAK CONDITIONS ARE STATISFIED                               DBG0001       15     A     
 DBG=IDP  *                                                                                DBG=IDP     3672     A     
 DBG=IDP  *         USES   ALL BUT A0                                                      DBG=IDP     3673     A     
 DBG=IDP  *                                                                                DBG=IDP     3674     A     
 DBG=IDP  *         CALLS  CHK,COD,DAB,DAZ,DUX,FRA=(IF DEF),PRIDP,RSR=,SVR=                DBG=IDP     3675          I
          -DBG0001
 DBG=IDP  *         CALLS  BRK,CHK,DAB,DAZ,DUX,FRA=(IF DEF),FRK,                           DBG0001       16     A     
 DBG=IDP  *                  PRIDP,RSR=,SVR=                                               DBG0001       17     A     
 DBG=IDP                                                                                   DBG=IDP     3676     A     
 DBG=IDP                                                                                   DBG=IDP     3677     A     
 DBG=IDP   STP      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     3678     A     
 DBG=IDP                                                                                   DBG=IDP     3679     A     
 DBG=IDP  *         INITIALIZATION.                                                        DBG=IDP     3680     A     
 DBG=IDP                                                                                   DBG=IDP     3681     A     
 DBG=IDP            MX6    0                                                               DBG=IDP     3682     A     
 DBG=IDP            SX7    -B1                                                             DBG=IDP     3683     A     
 DBG=IDP            SA6    IDPXFR      CLEAR *TRANSFER CONTROL* FLAG                       DBG=IDP     3684     A     
 DBG=IDP            SA7    IDPXAR      SET TO *NO ADDR REF SO FAR*                         DBG=IDP     3685     A     
 DBG=IDP                                                                                   DBG=IDP     3686     A     
 DBG=IDP  *         FETCH WORD CONTAINING INSTRUCTION TO BE XEQ.                           DBG=IDP     3687     A     
 DBG=IDP                                                                                   DBG=IDP     3688     A     
 DBG=IDP            SA1    IDPPREG     (X1) = PSEUDO P REGISTER                            DBG=IDP     3689     A     
 DBG=IDP            SA2    ST=ENDX                                                         DBG=IDP     3690     A     
 DBG=IDP            SA3    A1+B1       (X3) = POS COUNTER                                  DBG=IDP     3691     A     
 DBG=IDP            SA5    X1          (X5) = WORD CONTAINING INSTRUCTION TO XEQ           DBG=IDP     3692     A     
 DBG=IDP            ZR     X2,STP2     IF NOT *IDP* GENERATED BREAK                        DBG=IDP     3693     A     
 DBG=IDP                                                                                   DBG=IDP     3694     A     
 DBG=IDP  *         HERE BECAUSE INSTRUCTION TO XEQ AT *ST=ENDX*.                          DBG=IDP     3695     A     
 DBG=IDP                                                                                   DBG=IDP     3696     A     
 DBG=IDP            SA5    A5-B1       (A5) = ADDR OF GENERATED BREAK                      DBG=IDP     3697     A     
 DBG=IDP            BX5    X2                                                              DBG=IDP     3698     A     
 DBG=IDP                                                                                   DBG=IDP     3699     A     
 DBG=IDP  *         LIST INSTRUCTION IF NECESSARY.                                         DBG=IDP     3700     A     
 DBG=IDP                                                                                   DBG=IDP     3701     A     
 DBG=IDP   STP2     SA1    IDPXLST                                                         DBG=IDP     3702     A     
 DBG=IDP            SB4    X3                                                              DBG=IDP     3703     A     
 DBG=IDP            ZR     X1,STP3     IF NOT LISTING INSTRUCTION                          DBG=IDP     3704     A     
 DBG=IDP            RJ     DAZ         DEASSEMBLE INSTRUCTION                              DBG=IDP     3705     A     
 DBG=IDP                                                                                   DBG=IDP     3706     A     
 DBG=IDP  *         BREAK OUT OPCODE.                                                      DBG=IDP     3707     A     
 DBG=IDP                                                                                   DBG=IDP     3708     A     
 DBG=IDP   STP3     SB6    -B4                                                             DBG=IDP     3709     A     
 DBG=IDP            MX0    -6                                                              DBG=IDP     3710     A     
 DBG=IDP            SB6    B6+60+6                                                         DBG=IDP     3711     A     
 DBG=IDP            LX5    X5,B6       (X5) = 54/OTHER STUFF, 6/OPCODE                     DBG=IDP     3712     A     
 DBG=IDP            BX6    -X0*X5                                                          DBG=IDP     3713     A     
 DBG=IDP            LX5    3           (X5) = 51/OTHER, 6/OPC, 3/I                         DBG=IDP     3714     A     
 DBG=IDP            MX0    -3                                                              DBG=IDP     3715     A     
 DBG=IDP            SA6    STP=OP                                                          DBG=IDP     3716     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 250    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            ZR     X6,STP=ER   IF 00B OPCODE, TRYING TO XEQ DATA...                DBG=IDP     3717     A     
 DBG=IDP                                                                                   DBG=IDP     3718     A     
 DBG=IDP  *         BREAK OUT *I* FIELD.                                                   DBG=IDP     3719     A     
 DBG=IDP                                                                                   DBG=IDP     3720     A     
 DBG=IDP            BX6    -X0*X5                                                          DBG=IDP     3721     A     
 DBG=IDP            LX5    3           (X5) = 48/OTHER, 6/OPC, 3/I, 3/J                    DBG=IDP     3722     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     3723     A     
 DBG=IDP                                                                                   DBG=IDP     3724     A     
 DBG=IDP  *         BREAK OUT *J* FIELD.                                                   DBG=IDP     3725     A     
 DBG=IDP                                                                                   DBG=IDP     3726     A     
 DBG=IDP            BX6    -X0*X5                                                          DBG=IDP     3727     A     
 DBG=IDP            LX5    3           (X5) = 45/OTHER, 6/OPC, 3/I, 3/J, 3/K               DBG=IDP     3728     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     3729     A     
 DBG=IDP                                                                                   DBG=IDP     3730     A     
 DBG=IDP  *         BREAK OUT *K* FIELD.                                                   DBG=IDP     3731     A     
 DBG=IDP                                                                                   DBG=IDP     3732     A     
 DBG=IDP            BX6    -X0*X5                                                          DBG=IDP     3733     A     
 DBG=IDP            LX5    18-3        (X5) = 30/OTHER, 6/OPC, 3/I, 3/J, 18/Q              DBG=IDP     3734     A     
 DBG=IDP            SA6    A6+B1                                                           DBG=IDP     3735     A     
 DBG=IDP                                                                                   DBG=IDP     3736     A     
 DBG=IDP  *         BREAK OUT *Q* 18 BIT ADDRESS FIELD.                                    DBG=IDP     3737     A     
 DBG=IDP                                                                                   DBG=IDP     3738     A     
 DBG=IDP            SX6    X5                                                              DBG=IDP     3739     A     
 DBG=IDP            SA6    STP=ADR                                                         DBG=IDP     3740     A     
 DBG=IDP                                                                                   DBG=IDP     3741     A     
 DBG=IDP  *         FETCH INSTRUCTION SKELETON AND CHECK FOR LENGTH CONFLICT.              DBG=IDP     3742     A     
 DBG=IDP                                                                                   DBG=IDP     3743     A     
 DBG=IDP            SA1    STP=OP                                                          DBG=IDP     3744     A     
 DBG=IDP            LX5    30          LEFT JUSTIFY INSTRUCTION                            DBG=IDP     3745     A     
 DBG=IDP            MX0    15                                                              DBG=IDP     3746     A     
 DBG=IDP            SA2    DAZ=PS+X1   (X2) = INSTRUCTION SKELETON                         DBG=IDP     3747     A     
 DBG=IDP            SB5    15                                                              DBG=IDP     3748     A     
 DBG=IDP            PL     X2,STP4     IF SHORT (15 BIT) INSTRUCTION                       DBG=IDP     3749     A     
 DBG=IDP            MX0    30                                                              DBG=IDP     3750     A     
 DBG=IDP            SB5    B5+B5                                                           DBG=IDP     3751     A     
 DBG=IDP                                                                                   DBG=IDP     3752     A     
 DBG=IDP   STP4     LT     B4,B5,STP=ER IF NOT ENOUGH ROOM FOR 30 BIT INSTRUCTION,         DBG=IDP     3753     A     
 DBG=IDP  *                              TRYING TO XEQ DATA...                             DBG=IDP     3754     A     
 DBG=IDP                                                                                   DBG=IDP     3755     A     
 DBG=IDP  *         BREAK OUT FULL INSTRUCTION.                                            DBG=IDP     3756     A     
 DBG=IDP                                                                                   DBG=IDP     3757     A     
 DBG=IDP            SA3    =46000460004600046000B                                          DBG=IDP     3758     A     
 DBG=IDP            BX6    X0*X5                                                           DBG=IDP     3759     A     
 DBG=IDP            BX7    -X0*X3                                                          DBG=IDP     3760     A     
 DBG=IDP            IX6    X6+X7       (X6) = INSTRUCTION, LEFT JUST W/ NO-OP FILL         DBG=IDP     3761     A     
 DBG=IDP            SA6    STP=IN                                                          DBG=IDP     3762     A     
 DBG=IDP                                                                                   DBG=IDP     3763     A     
 DBG=IDP  *         SPLIT INSTRUCTION INTO REPRESENTATIVE TYPE--                           DBG=IDP     3764     A     
 DBG=IDP  *           01 THRU 07  BRANCH                                                   DBG=IDP     3765     A     
 DBG=IDP  *           10 THRU 47  NORMAL                                                   DBG=IDP     3766     A     
 DBG=IDP  *           50 THRU 57  LOAD/STORE                                               DBG=IDP     3767     A     
 DBG=IDP  *           60 THRU 77  NORMAL                                                   DBG=IDP     3768     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 251    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG=IDP     3769     A     
 DBG=IDP            SX3    X1-10B                                                          DBG=IDP     3770     A     
 DBG=IDP            SX4    X1-50B                                                          DBG=IDP     3771     A     
 DBG=IDP            MI     X3,STP6     IF A BRANCH                                         DBG=IDP     3772     A     
 DBG=IDP            MI     X4,STP5     IF A NORMAL                                         DBG=IDP     3773     A     
 DBG=IDP            SX3    X1-60B                                                          DBG=IDP     3774     A     
 DBG=IDP            MI     X3,STP12    IF A LOAD/STORE                                     DBG=IDP     3775     A     
 DBG=IDP                                                                                   DBG=IDP     3776     A     
 DBG=IDP  *         HERE IF A NORMAL INSTRUCTION (NO SPECIAL PROCESSING).                  DBG=IDP     3777     A     
 DBG=IDP                                                                                   DBG=IDP     3778     A     
 DBG=IDP   STP5     RJ     =XRSR=      RESTORE ORIGINAL REGISTERS                          DBG=IDP     3779     A     
 DBG=IDP                                                                                   DBG=IDP     3780     A     
 DBG=IDP  *         HERE TO XEQ NORMAL INSTRUCTION.                                        DBG=IDP     3781     A     
 DBG=IDP                                                                                   DBG=IDP     3782     A     
 DBG=IDP   STP=IN   BSSZ   1           THIS WORD IS PLUGGED WITH THE INSTRUCTION           DBG=IDP     3783     A     
 DBG=IDP  *                              TO BE XEQ, LEFT JUSTIFIED WITH NO-OP FILL         DBG=IDP     3784     A     
 DBG=IDP                                                                                   DBG=IDP     3785     A     
 DBG=IDP            RJ     SVR=        SAVE ORIGINAL REGISTERS                             DBG=IDP     3786     A     
 DBG=IDP            EQ     STP=X                                                           DBG=IDP     3787     A     
 DBG=IDP                                                                                   DBG=IDP     3788     A     
 DBG=IDP  *         HERE IF A BRANCH INSTRUCTION (01 THRU 07).                             DBG=IDP     3789     A     
 DBG=IDP                                                                                   DBG=IDP     3790     A     
 DBG=IDP   STP6     SA2    STP=I                                                           DBG=IDP     3791          I
          -DBG0001
 DBG=IDP            SA3    STP=ADR                                                         DBG=IDP     3792          I
          -DBG0001
 DBG=IDP            SA4    IDPPREG                                                         DBG=IDP     3793          I
          -DBG0001
 DBG=IDP            SX6    X1-1                                                            DBG=IDP     3794          I
          -DBG0001
 DBG=IDP            NZ     X6,STP8     IF NOT 01B INSTRUCTION                              DBG=IDP     3795          I
          -DBG0001
 DBG=IDP            NZ     X2,STP5     IF NOT *RJ*                                         DBG=IDP     3796          I
          -DBG0001
 DBG=IDP                                                                                   DBG=IDP     3797          I
          -DBG0001
 DBG=IDP  *         HERE IF AN *RJ* INSTRUCTION.                                           DBG=IDP     3798          I
          -DBG0001
 DBG=IDP                                                                                   DBG=IDP     3799          I
          -DBG0001
 DBG=IDP            SX6    X3+B1       (X6) = ADDR TO XFER CONTROL TO                      DBG=IDP     3800          I
          -DBG0001
 DBG=IDP            SB2    X3                                                              DBG=IDP     3801          I
          -DBG0001
 DBG=IDP            SA6    IDPXFR                                                          DBG=IDP     3802          I
          -DBG0001
 DBG=IDP            RJ     CHK         CHECK CM ADDRESS                                    DBG=IDP     3803          I
          -DBG0001
 DBG=IDP            MI     B2,STP=ER   IF ADDR IS BAD                                      DBG=IDP     3804          I
          -DBG0001
 DBG=IDP                                                                                   DBG=IDP     3805          I
          -DBG0001
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 252    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *         HERE TO SIMULATE *RJ* BY PLUGGING /EQ *+1/.                            DBG=IDP     3806          I
          -DBG0001
 DBG=IDP                                                                                   DBG=IDP     3807          I
          -DBG0001
 DBG=IDP            SX7    0400B       (X7) = *EQ* INSTRUCTION                             DBG=IDP     3808          I
          -DBG0001
 DBG=IDP            SX0    X3-IDP=                                                         DBG=IDP     3809          I
          -DBG0001
 DBG=IDP            SX1    X3-REG=                                                         DBG=IDP     3810          I
          -DBG0001
 DBG=IDP            SX2    X3-SNP=                                                         DBG=IDP     3811          I
          -DBG0001
 DBG=IDP            LX7    30-12                                                           DBG=IDP     3812          I
          -DBG0001
 DBG=IDP            SX6    X4+B1       (X4) = /*+1/                                        DBG=IDP     3813          I
          -DBG0001
 DBG=IDP            ZR     X1,STP7A    IF *RJ REG=*                                        DBG=IDP     3814          I
          -DBG0001
 DBG=IDP            ZR     X2,STP7B    IF *RJ SNP=*                                        DBG=IDP     3815          I
          -DBG0001
 DBG=IDP            BX7    X7+X6                                                           DBG=IDP     3816          I
          -DBG0001
 DBG=IDP            LX7    60-30       (X7) = 30/EQ *+1, 30/0                              DBG=IDP     3817          I
          -DBG0001
 DBG=IDP            SA7    X3                                                              DBG=IDP     3818          I
          -DBG0001
 DBG=IDP            SX6    =XSVR=                                                          DBG=IDP     3819          I
          -DBG0001
 DBG=IDP            SX7    =XRSR=                                                          DBG=IDP     3820          I
          -DBG0001
 DBG=IDP            IX6    X3-X6                                                           DBG=IDP     3821          I
          -DBG0001
 DBG=IDP            IX7    X3-X7                                                           DBG=IDP     3822          I
          -DBG0001
 DBG=IDP            ZR     X0,STP7     IF *RJ IDP=*                                        DBG=IDP     3823          I
          -DBG0001
 DBG=IDP            ZR     X6,STP=ER   IF *RJ SVR=*, CURRENTLY FATALLY RECURSIVE           DBG=IDP     3824          I
          -DBG0001
 DBG=IDP            ZR     X7,STP=ER   IF *RJ RSR=*, CURRENTLY FATALLY RECURSIVE           DBG=IDP     3825          I
          -DBG0001
 DBG=IDP                                                                                   DBG=IDP     3826          I
          -DBG0001
 DBG=IDP  *         SET UP LEVEL 0 *RJ* ADDRESS.                                           DBG=IDP     3827          I
          -DBG0001
 DBG=IDP                                                                                   DBG=IDP     3828          I
          -DBG0001
 DBG=IDP            SA1    IDPXRJ                                                          DBG=IDP     3829          I
          -DBG0001
 DBG=IDP            SA2    STP=ADR                                                         DBG=IDP     3830          I
          -DBG0001
 DBG=IDP            NZ     X1,STP=X    IF NOT AT LEVEL 0 *RJ*                              DBG=IDP     3831          I
          -DBG0001
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 253    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SX6    X2                                                              DBG=IDP     3832          I
          -DBG0001
 DBG=IDP            SA6    A1                                                              DBG=IDP     3833          I
          -DBG0001
 DBG=IDP            EQ     STP=X                                                           DBG=IDP     3834          I
          -DBG0001
 DBG=IDP                                                                                   DBG=IDP     3835          I
          -DBG0001
 DBG=IDP  *         HERE TO PROCESS *RJ IDP=*.                                             DBG=IDP     3836          I
          -DBG0001
 DBG=IDP                                                                                   DBG=IDP     3837          I
          -DBG0001
 DBG=IDP   STP7     SX6    X4+B1                                                           DBG=IDP     3838          I
          -DBG0001
 DBG=IDP            SA6    IDPXFR      SET TO */RJ IDP=/ BECOMES BRANCH TO /*+1/*          DBG=IDP     3839          I
          -DBG0001
 DBG=IDP            BX1    X6          (X1) = ADDR+1 OF *RJ IDP=*                          DBG=IDP     3840          I
          -DBG0001
 DBG=IDP            SA5    X4                                                              DBG=IDP     3841          I
          -DBG0001
 DBG=IDP            SX5    X5          (X5) = FWA OF PARAMETER LIST (IF .NZ.)              DBG=IDP     3842          I
          -DBG0001
 DBG=IDP            RJ     BRK         BREAK PROCESSOR                                     DBG=IDP     3843          I
          -DBG0001
 DBG=IDP            ZR     X5,STP=X    IF NO BREAK THIS TIME                               DBG=IDP     3844          I
          -DBG0001
 DBG=IDP            RJ     FRK         CHECK FREQUENCY PARAMETERS                          DBG=IDP     3845          I
          -DBG0001
 DBG=IDP            ZR     X5,STP=X    IF NO BREAK THIS TIME                               DBG=IDP     3846          I
          -DBG0001
 DBG=IDP                                                                                   DBG=IDP     3847          I
          -DBG0001
 DBG=IDP  *         HERE TO HONOR BREAK.                                                   DBG=IDP     3848          I
          -DBG0001
 DBG=IDP                                                                                   DBG=IDP     3849          I
          -DBG0001
 DBG=IDP            SA1    IDPXFR                                                          DBG=IDP     3850          I
          -DBG0001
 DBG=IDP            BX6    X1                                                              DBG=IDP     3851          I
          -DBG0001
 DBG=IDP            SX7    60                                                              DBG=IDP     3852          I
          -DBG0001
 DBG=IDP            SA6    IDPPREG                                                         DBG=IDP     3853          I
          -DBG0001
 DBG=IDP            SA7    IDPPOS                                                          DBG=IDP     3854          I
          -DBG0001
 DBG=IDP            EQ     IDP2A       HONOR THIS BREAK...                                 DBG=IDP     3855          I
          -DBG0001
 DBG=IDP                                                                                   DBG=IDP     3856          I
          -DBG0001
 DBG=IDP  *         HERE TO PROCESS *RJ REG=*.                                             DBG=IDP     3857          I
          -DBG0001
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 254    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG=IDP     3858          I
          -DBG0001
 DBG=IDP   STP7A    SA1    X4          (X1) = 30/RJ REG=, 30/FWA OF PARAMETER LIST         DBG=IDP     3859          I
          -DBG0001
 DBG=IDP            SA6    IDPXFR      SET TO */RJ REG=/ BECOMES BRANCH TO /*+1/*          DBG=IDP     3860          I
          -DBG0001
 DBG=IDP            BX7    X1                                                              DBG=IDP     3861          I
          -DBG0001
 DBG=IDP            SA7    STP=SNP     SET UP *RJ REG=*                                    DBG=IDP     3862          I
          -DBG0001
 DBG=IDP            EQ     STP7C                                                           DBG=IDP     3863          I
          -DBG0001
 DBG=IDP                                                                                   DBG=IDP     3864          I
          -DBG0001
 DBG=IDP  *         HERE TO PROCESS *RJ SNP=*.                                             DBG=IDP     3865          I
          -DBG0001
 DBG=IDP                                                                                   DBG=IDP     3866          I
          -DBG0001
 DBG=IDP   STP7B    SA1    X4          (X1) = 30/RJ SNP=, 30/FWA OF PARAMETER LIST         DBG=IDP     3867          I
          -DBG0001
 DBG=IDP            SA6    IDPXFR      SET TO */RJ SNP=/ BECOMES BRANCH TO /*+1/*          DBG=IDP     3868          I
          -DBG0001
 DBG=IDP            BX7    X1                                                              DBG=IDP     3869          I
          -DBG0001
 DBG=IDP            SA7    STP=SNP     SET UP *RJ SNP=*                                    DBG=IDP     3870          I
          -DBG0001
 DBG=IDP                                                                                   DBG=IDP     3871          I
          -DBG0001
 DBG=IDP   STP7C    RJ     RSR=        RESTORE ORIGINAL REGISTERS                          DBG=IDP     3872          I
          -DBG0001
 DBG=IDP                                                                                   DBG=IDP     3873          I
          -DBG0001
 DBG=IDP   STP=SNP  BSSZ   1           THIS WORD IS PLUGGED WITH AN *RJ REG=* OR           DBG=IDP     3874          I
          -DBG0001
 DBG=IDP  *                              AN *RJ SNP=* FORCED UPPER WITH THE FWA OF         DBG=IDP     3875          I
          -DBG0001
 DBG=IDP  *                              THE PARAMETER LIST IN THE LOWER 30 BITS           DBG=IDP     3876          I
          -DBG0001
 DBG=IDP                                                                                   DBG=IDP     3877          I
          -DBG0001
 DBG=IDP            SA1    IDPXFR                                                          DBG=IDP     3878          I
          -DBG0001
 DBG=IDP            SA2    STP=SNP     (X2) = 30/RJ SNP=/REG=, 30/FWA OF PARM LIST         DBG=IDP     3879          I
          -DBG0001
 DBG=IDP            SX7    0400B       (X7) = *EQ* INSTRUCTION                             DBG=IDP     3880          I
          -DBG0001
 DBG=IDP            SB1    1           RESTORE (B1) = 1                                    DBG=IDP     3881          I
          -DBG0001
 DBG=IDP            LX7    30-12                                                           DBG=IDP     3882          I
          -DBG0001
 DBG=IDP            IX6    X7+X1       (X6) = 30/0, 30/EQ *+1                              DBG=IDP     3883          I
          -DBG0001
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 255    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            LX2    -30         (X2) = *SNP=/REG=*                                  DBG=IDP     3884          I
          -DBG0001
 DBG=IDP            LX6    30                                                              DBG=IDP     3885          I
          -DBG0001
 DBG=IDP            SA6    X2          PLUG /EQ *+1/                                       DBG=IDP     3886          I
          -DBG0001
 DBG=IDP            EQ     STP=X                                                           DBG=IDP     3887          I
          -DBG0001
 DBG=IDP   STP6     SA2    STP=I                                                           DBG0001       18     A     
 DBG=IDP            SX6    X1-01B                                                          DBG0001       19     A     
 DBG=IDP            SA3    STP=ADR                                                         DBG0001       20     A     
 DBG=IDP            NZ     X6,STP8     IF NOT 01B INSTRUCTION                              DBG0001       21     A     
 DBG=IDP            NZ     X2,STP5     IF NOT *RJ*                                         DBG0001       22     A     
 DBG=IDP                                                                                   DBG0001       23     A     
 DBG=IDP  *         HERE IF AN *RJ* INSTRUCTION.                                           DBG0001       24     A     
 DBG=IDP                                                                                   DBG0001       25     A     
 DBG=IDP            SA4    IDPPREG                                                         DBG0001       26     A     
 DBG=IDP            SA5    ST=ENDX     (X5) = WORD CONTAINING *RJ* INSTRUCTION             DBG0001       27     A     
 DBG=IDP  *                                     (IF PREVIOUS CONTENTS OF GEN BRK)          DBG0001       28     A     
 DBG=IDP            BX6    X4          (X6) = /*+1/                                        DBG0001       29     A     
 DBG=IDP            SX7    X3-REG=                                                         DBG0001       30     A     
 DBG=IDP            SX0    X3-SNP=                                                         DBG0001       31     A     
 DBG=IDP            NZ     X5,STP6A    IF *RJ* IS PREVIOUS CONTENTS OF BREAK ADDR          DBG0001       32     A     
 DBG=IDP            SA5    X4          (X5) = WORD CONTAINING *RJ* INSTRUCTION             DBG0001       33     A     
 DBG=IDP            SX6    X4+B1       (X6) = /*+1/                                        DBG0001       34     A     
 DBG=IDP                                                                                   DBG0001       35     A     
 DBG=IDP  *         CHECK FOR CALL TO *REG=/SNP=*.  THESE ROUTINES MUST AVOID              DBG0001       36     A     
 DBG=IDP  *           BEING STEPPED BECAUSE THEY USE *SVR=/RSR=* TO SAVE AND               DBG0001       37     A     
 DBG=IDP  *           RESTORE THE CALLERS REGISTERS (SEE NEXT PARAGRAPH).                  DBG0001       38     A     
 DBG=IDP                                                                                   DBG0001       39     A     
 DBG=IDP   STP6A    ZR     X7,STP7     IF *RJ REG=*                                        DBG0001       40     A     
 DBG=IDP            ZR     X0,STP7     IF *RJ SNP=*                                        DBG0001       41     A     
 DBG=IDP                                                                                   DBG0001       42     A     
 DBG=IDP  *         CHECK FOR CALL TO *RSR=/SVR=*.  THIS IS CURRENTLY FATALLY              DBG0001       43     A     
 DBG=IDP  *           RECURSIVE BECAUSE *STP* USES *RSR=/SVR=* TO SAVE AND RESTORE         DBG0001       44     A     
 DBG=IDP  *           THE ORIGINAL REGISTERS BEFORE AND AFTER EACH INSTRUCTION IS          DBG0001       45     A     
 DBG=IDP  *           STEPPED.  THIS IMPLIES THAT *RSR=/SVR=* WOULD HAVE TO BE             DBG0001       46     A     
 DBG=IDP  *           ABLE TO BE STEPPED AND EXECUTED CONCURRENTLY...TRICKY.               DBG0001       47     A     
 DBG=IDP                                                                                   DBG0001       48     A     
 DBG=IDP            SX7    =XRSR=                                                          DBG0001       49     A     
 DBG=IDP            SX0    =XSVR=                                                          DBG0001       50     A     
 DBG=IDP            IX7    X3-X7                                                           DBG0001       51     A     
 DBG=IDP            IX0    X3-X0                                                           DBG0001       52     A     
 DBG=IDP            ZR     X7,STP=ER   IF *RJ RSR=*                                        DBG0001       53     A     
 DBG=IDP            ZR     X0,STP=ER   IF *RJ SVR=*                                        DBG0001       54     A     
 DBG=IDP                                                                                   DBG0001       55     A     
 DBG=IDP  *         SET UP TRANSFER ADDRESS OF /RJ Q/ TO BE /Q+1/.                         DBG0001       56     A     
 DBG=IDP                                                                                   DBG0001       57     A     
 DBG=IDP            SX7    X3+B1       (X7) = /Q+1/                                        DBG0001       58     A     
 DBG=IDP            SB2    X7                                                              DBG0001       59     A     
 DBG=IDP            SA7    IDPXFR                                                          DBG0001       60     A     
 DBG=IDP                                                                                   DBG0001       61     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 256    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *         CHECK TRANSFER ADDR AND SIMULATE *RJ* BY PLUGGING /EQ *+1/.            DBG0001       62     A     
 DBG=IDP  *                                                                                DBG0001       63     A     
 DBG=IDP  *         ENTRY  (B2) = TRANSFER ADDRESS                                         DBG0001       64     A     
 DBG=IDP  *                (X6) = /*+1/  (I.E. RETURN ADDR)                                DBG0001       65     A     
 DBG=IDP  *                (X3) = /Q/    (I.E. ADDR TO PLUG /EQ *+1/)                      DBG0001       66     A     
 DBG=IDP  *                                                                                DBG0001       67     A     
 DBG=IDP  *         NOTE   WHEN THIS IS NOT *RJ REG=/SNP=*, THEN                           DBG0001       68     A     
 DBG=IDP  *                TRANSFER ADDR = Q+1  OR  (B2) = (X3)+1.                         DBG0001       69     A     
 DBG=IDP  *                                                                                DBG0001       70     A     
 DBG=IDP  *                WHEN THIS IS AN *RJ REG=/SNP=*, THEN                            DBG0001       71     A     
 DBG=IDP  *                TRANSFER ADDR = *+1  OR  (B2) = (X6), I.E. THE *RJ* HAS         DBG0001       72     A     
 DBG=IDP  *                BEEN SKIPPED.                                                   DBG0001       73     A     
 DBG=IDP                                                                                   DBG0001       74     A     
 DBG=IDP   STP6B    RJ     CHK         CHECK CM ADDRESS                                    DBG0001       75     A     
 DBG=IDP            SX7    0400B       (X7) = *EQ* INSTRUCTION                             DBG0001       76     A     
 DBG=IDP            MI     B2,STP=ER   IF ADDR IS BAD                                      DBG0001       77     A     
 DBG=IDP            LX7    29-11                                                           DBG0001       78     A     
 DBG=IDP            SX0    IDP=                                                            DBG0001       79     A     
 DBG=IDP            BX7    X7+X6       (X7) = 30/0,30/EQ *+1                               DBG0001       80     A     
 DBG=IDP            LX7    59-29       (X7) = 30/EQ *+1,30/0                               DBG0001       81     A     
 DBG=IDP            SA7    X3                                                              DBG0001       82     A     
 DBG=IDP                                                                                   DBG0001       83     A     
 DBG=IDP  *         CHECK FOR *RJ IDP=*.                                                   DBG0001       84     A     
 DBG=IDP                                                                                   DBG0001       85     A     
 DBG=IDP            IX0    X3-X0                                                           DBG0001       86     A     
 DBG=IDP            SA1    IDPXRJ                                                          DBG0001       87     A     
 DBG=IDP            ZR     X0,STP7A    IF *RJ IDP=*                                        DBG0001       88     A     
 DBG=IDP                                                                                   DBG0001       89     A     
 DBG=IDP  *         SET UP LEVEL 0 *RJ* ADDRESS.                                           DBG0001       90     A     
 DBG=IDP                                                                                   DBG0001       91     A     
 DBG=IDP            NZ     X1,STP=X    IF NOT AT LEVEL 0 *RJ*                              DBG0001       92     A     
 DBG=IDP            SX6    X3                                                              DBG0001       93     A     
 DBG=IDP            SA6    A1                                                              DBG0001       94     A     
 DBG=IDP            EQ     STP=X                                                           DBG0001       95     A     
 DBG=IDP                                                                                   DBG0001       96     A     
 DBG=IDP  *         HERE TO PROCESS *RJ REG=/SNP=*.                                        DBG0001       97     A     
 DBG=IDP                                                                                   DBG0001       98     A     
 DBG=IDP   STP7     SA6    IDPXFR      SET TO *RJ REG=/SNP= BECOMES                        DBG0001       99     A     
 DBG=IDP  *                              BRANCH TO /*+1/*                                  DBG0001      100     A     
 DBG=IDP            BX7    X5          (X7) = 30/RJ REG=/SNP=, 30/FWA OF PARM LIST         DBG0001      101     A     
 DBG=IDP            SA7    STP=SNP                                                         DBG0001      102     A     
 DBG=IDP            RJ     =XRSR=      RESTORE ORIGINAL REGISTERS                          DBG0001      103     A     
 DBG=IDP                                                                                   DBG0001      104     A     
 DBG=IDP   STP=SNP  BSSZ   1           THIS WORD IS PLUGGED WITH AN *RJ REG=* OR           DBG0001      105     A     
 DBG=IDP  *                              AN *RJ SNP=* FORCED UPPER WITH THE FWA OF         DBG0001      106     A     
 DBG=IDP  *                              THE PARAMETER LIST IN THE LOWER 18 BITS           DBG0001      107     A     
 DBG=IDP                                                                                   DBG0001      108     A     
 DBG=IDP            SA1    IDPXFR      (X1) = ADDR TO XFER TO (I.E. /*+1/)                 DBG0001      109     A     
 DBG=IDP            SA3    STP=ADR     (X3) = *REG=* OR *SNP=*                             DBG0001      110     A     
 DBG=IDP            SB2    X1                                                              DBG0001      111     A     
 DBG=IDP            BX6    X1                                                              DBG0001      112     A     
 DBG=IDP            EQ     STP6B                                                           DBG0001      113     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 257    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG0001      114     A     
 DBG=IDP  *         HERE TO PROCESS *RJ IDP=*.                                             DBG0001      115     A     
 DBG=IDP                                                                                   DBG0001      116     A     
 DBG=IDP   STP7A    SA6    IDPXFR      SET TO */RJ IDP=/ BECOMES BRANCH TO /*+1/*          DBG0001      117     A     
 DBG=IDP            SX1    A5+B1       (X1) = ADDR+1 OF *RJ IDP=*                          DBG0001      118     A     
 DBG=IDP            SX5    X5          (X5) = FWA OF PARAMETER LIST (IF .NZ.)              DBG0001      119     A     
 DBG=IDP            RJ     BRK         BREAK PROCESSOR                                     DBG0001      120     A     
 DBG=IDP            ZR     X5,STP=X    IF NO BREAK THIS TIME                               DBG0001      121     A     
 DBG=IDP            RJ     FRK         CHECK FREQUENCY PARAMETERS                          DBG0001      122     A     
 DBG=IDP            ZR     X5,STP=X    IF NO BREAK THIS TIME                               DBG0001      123     A     
 DBG=IDP                                                                                   DBG0001      124     A     
 DBG=IDP  *         HERE TO HONOR BREAK.                                                   DBG0001      125     A     
 DBG=IDP                                                                                   DBG0001      126     A     
 DBG=IDP            SA1    IDPXFR                                                          DBG0001      127     A     
 DBG=IDP            SX7    60                                                              DBG0001      128     A     
 DBG=IDP            BX6    X1                                                              DBG0001      129     A     
 DBG=IDP            SA7    IDPPOS                                                          DBG0001      130     A     
 DBG=IDP            SA6    IDPPREG                                                         DBG0001      131     A     
 DBG=IDP            EQ     IDP2A       HONOR THIS BREAK...                                 DBG0001      132     A     
 DBG=IDP                                                                                   DBG=IDP     3888     A     
 DBG=IDP  *         HERE IF BRANCH INSTRUCTION (02 THRU 07).                               DBG=IDP     3889     A     
 DBG=IDP                                                                                   DBG=IDP     3890     A     
 DBG=IDP   STP8     SX6    X1-4                                                            DBG=IDP     3891     A     
 DBG=IDP            SX7    X1-2                                                            DBG=IDP     3892     A     
 DBG=IDP            ZR     X6,STP10    IF *EQ BI,BJ,ADDR*                                  DBG=IDP     3893     A     
 DBG=IDP            ZR     X7,STP11    IF *JP BI+ADDR*                                     DBG=IDP     3894     A     
 DBG=IDP                                                                                   DBG=IDP     3895     A     
 DBG=IDP  *         HERE IF CONDITIONAL BRANCH INSTRUCTION.                                DBG=IDP     3896     A     
 DBG=IDP                                                                                   DBG=IDP     3897     A     
 DBG=IDP   STP9     SA1    STP=IN                                                          DBG=IDP     3898     A     
 DBG=IDP            MX0    -18                                                             DBG=IDP     3899     A     
 DBG=IDP            LX0    48-18                                                           DBG=IDP     3900     A     
 DBG=IDP            SX2    STP=BP      (X2) = BRANCH *PASS* ADDR                           DBG=IDP     3901     A     
 DBG=IDP            LX2    48-18                                                           DBG=IDP     3902     A     
 DBG=IDP            BX1    X0*X1                                                           DBG=IDP     3903     A     
 DBG=IDP            BX2    -X0*X2                                                          DBG=IDP     3904     A     
 DBG=IDP            IX6    X1+X2       (X6) = 12/BRANCH OPC, 18/STP=BRP, 30/NO-OPS         DBG=IDP     3905     A     
 DBG=IDP            SA6    STP=BR                                                          DBG=IDP     3906     A     
 DBG=IDP                                                                                   DBG=IDP     3907     A     
 DBG=IDP  *         HERE TO XEQ CONDITIONAL BRANCH INSTRUCTION. THE 18 BIT ADDRESS         DBG=IDP     3908     A     
 DBG=IDP  *           *Q* PORTION OF THE BRANCH INSTRUCTION IS MODIFIED SO THAT IF         DBG=IDP     3909     A     
 DBG=IDP  *           THE BRANCH IS TAKEN, CONTROL PASSES TO *STP=BP*.                     DBG=IDP     3910     A     
 DBG=IDP                                                                                   DBG=IDP     3911     A     
 DBG=IDP            RJ     =XRSR=      RESTORE ORIGINAL REGISTERS                          DBG=IDP     3912     A     
 DBG=IDP                                                                                   DBG=IDP     3913     A     
 DBG=IDP   STP=BR   BSSZ   1           BRANCH TO XEQ IS PLUGGED HERE -- LEFT JUST-         DBG=IDP     3914     A     
 DBG=IDP  *                              IFIED W/ *Q* ALTERED AND NO-OP FILL               DBG=IDP     3915     A     
 DBG=IDP                                                                                   DBG=IDP     3916     A     
 DBG=IDP   STP=BF   SB1    1           RESTORE (B1) = 1                                    DBG=IDP     3917     A     
 DBG=IDP            EQ     STP=X                                                           DBG=IDP     3918     A     
 DBG=IDP                                                                                   DBG=IDP     3919     A     
 DBG=IDP   STP=BP   SA1    STP=ADR                                                         DBG=IDP     3920     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 258    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SB1    1           RESTORE (B1) = 1                                    DBG=IDP     3921     A     
 DBG=IDP            SB2    X1          (B2) = ADDR TO TRANSFER CONTROL TO                  DBG=IDP     3922     A     
 DBG=IDP            SX6    X1                                                              DBG=IDP     3923     A     
 DBG=IDP            SA6    IDPXFR                                                          DBG=IDP     3924     A     
 DBG=IDP            RJ     CHK         CHECK CM ADDRESS                                    DBG=IDP     3925     A     
 DBG=IDP            SA1    IDPXLST                                                         DBG=IDP     3926     A     
 DBG=IDP            MI     B2,STP=ER   IF ADDR IS BAD                                      DBG=IDP     3927     A     
 DBG=IDP            ZR     X1,STP=X    IF NOT LISTING                                      DBG=IDP     3928     A     
 DBG=IDP            PRIDP  (=C=                                 BRANCH TAKEN...=)          DBG=IDP     3929     A     
 DBG=IDP            EQ     STP=X                                                           DBG=IDP     3930     A     
 DBG=IDP                                                                                   DBG=IDP     3931     A     
 DBG=IDP  *         HERE IF *EQ BI,BJ,ADDR*.                                               DBG=IDP     3932     A     
 DBG=IDP                                                                                   DBG=IDP     3933     A     
 DBG=IDP   STP10    SA1    STP=I                                                           DBG=IDP     3934     A     
 DBG=IDP            SA2    STP=J                                                           DBG=IDP     3935     A     
 DBG=IDP            BX6    X1+X2                                                           DBG=IDP     3936     A     
 DBG=IDP            NZ     X6,STP9     IF NOT *EQ ADDR*                                    DBG=IDP     3937     A     
 DBG=IDP            MX7    0                                                               DBG=IDP     3938     A     
 DBG=IDP            SA1    IDPXRJ                                                          DBG=IDP     3939     A     
 DBG=IDP            SA2    IDPPREG                                                         DBG=IDP     3940     A     
 DBG=IDP            IX6    X1-X2                                                           DBG=IDP     3941     A     
 DBG=IDP            NZ     X6,STP=BP   IF NOT POSSIBLY *RJ SUBR* EXIT                      DBG=IDP     3942     A     
 DBG=IDP            SA7    A1          SET TO *BACK TO LEVEL 0 NOW*                        DBG=IDP     3943     A     
 DBG=IDP            EQ     STP=BP                                                          DBG=IDP     3944     A     
 DBG=IDP                                                                                   DBG=IDP     3945     A     
 DBG=IDP  *         HERE IF *JP BI+ADDR*.                                                  DBG=IDP     3946     A     
 DBG=IDP                                                                                   DBG=IDP     3947     A     
 DBG=IDP   STP11    SA1    STP=I                                                           DBG=IDP     3948     A     
 DBG=IDP            SA2    STP=ADR                                                         DBG=IDP     3949     A     
 DBG=IDP            SA3    =XSV=B+X1   (X3) = (BI)                                         DBG=IDP     3950     A     
 DBG=IDP            IX6    X2+X3       (X6) = BI+ADDR                                      DBG=IDP     3951     A     
 DBG=IDP            SB2    X6                                                              DBG=IDP     3952     A     
 DBG=IDP            SA6    IDPXFR                                                          DBG=IDP     3953     A     
 DBG=IDP            RJ     CHK         CHECK CM ADDRESS                                    DBG=IDP     3954     A     
 DBG=IDP            PL     B2,STP=X    IF ADDR OK                                          DBG=IDP     3955     A     
 DBG=IDP            EQ     STP=ER                                                          DBG=IDP     3956     A     
 DBG=IDP                                                                                   DBG=IDP     3957     A     
 DBG=IDP  *         HERE IF A LOAD/STORE INSTRUCTION (50 THRU 57).                         DBG=IDP     3958     A     
 DBG=IDP                                                                                   DBG=IDP     3959     A     
 DBG=IDP   STP12    SA1    STP=LS+X1-50B  (X1) = LOAD/STORE SKELETON                       DBG=IDP     3960     A     
 DBG=IDP            SA2    STP=I                                                           DBG=IDP     3961     A     
 DBG=IDP            SA3    A2+B1                                                           DBG=IDP     3962     A     
 DBG=IDP            SA4    A3+B1                                                           DBG=IDP     3963     A     
 DBG=IDP            SA5    STP=ADR                                                         DBG=IDP     3964     A     
 DBG=IDP            SB6    X1          (B6) = .MI. IF *Q* FLAG, ELSE                       DBG=IDP     3965     A     
 DBG=IDP  *                                 = FWA OF APPROPRIATE SAVED REG BLOCK           DBG=IDP     3966     A     
 DBG=IDP            LX1    -18-3                                                           DBG=IDP     3967     A     
 DBG=IDP            BX6    X1                                                              DBG=IDP     3968     A     
 DBG=IDP            AX6    59          (X6) = +0 IF *J* REG + *K* REG                      DBG=IDP     3969     A     
 DBG=IDP  *                                   -0 IF *J* REG - *K* REG                      DBG=IDP     3970     A     
 DBG=IDP            SB7    X1                                                              DBG=IDP     3971     A     
 DBG=IDP            ZR     X2,STP5     IF *SA0* (I.E. NOT LOAD/STORE)                      DBG=IDP     3972     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 259    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            MI     B6,STP13    IF *Q* 18 BIT ADDR                                  DBG=IDP     3973     A     
 DBG=IDP            SA5    B6+X4       (X5) = SAVED *K* REGISTER                           DBG=IDP     3974     A     
 DBG=IDP            BX5    X5-X6                                                           DBG=IDP     3975     A     
 DBG=IDP                                                                                   DBG=IDP     3976     A     
 DBG=IDP   STP13    SA1    B7+X3       (X1) = SAVED *J* REGISTER                           DBG=IDP     3977     A     
 DBG=IDP            IX6    X1+X5                                                           DBG=IDP     3978     A     
 DBG=IDP            SB2    X6          (B2) = ADDR TO LOAD/STORE                           DBG=IDP     3979     A     
 DBG=IDP            SA6    IDPXAR                                                          DBG=IDP     3980     A     
 DBG=IDP            RJ     =XCHK       CHECK CM ADDRESS                                    DBG=IDP     3981     A     
 DBG=IDP            PL     B2,STP5     IF ADDR OK                                          DBG=IDP     3982     A     
 DBG=IDP            EQ     STP=ER                                                          DBG=IDP     3983     A     
 DBG=IDP                                                                                   DBG=IDP     3984     A     
 DBG=IDP  *         LOAD/STORE TABLE.                                                      DBG=IDP     3985     A     
 DBG=IDP                                                                                   DBG=IDP     3986     A     
 DBG=IDP   STP=LS   BSS    0                                                               DBG=IDP     3987     A     
 DBG=IDP                                                                                   DBG=IDP     3988     A     
 DBG=IDP            LOC    50B                                                             DBG=IDP     3989     A     
 DBG=IDP   +        VFD    18/0,3/0,18/=XSV=A,3/0,18/-1         SAI  AJ+Q                  DBG=IDP     3990     A     
 DBG=IDP   +        VFD    18/0,3/0,18/=XSV=B,3/0,18/-1         SAI  BJ+Q                  DBG=IDP     3991     A     
 DBG=IDP   +        VFD    18/0,3/0,18/=XSV=X,3/0,18/-1         SAI  XJ+Q                  DBG=IDP     3992     A     
 DBG=IDP   +        VFD    18/0,3/0,18/=XSV=X,3/0,18/=XSV=B     SAI  XJ+BK                 DBG=IDP     3993     A     
 DBG=IDP   +        VFD    18/0,3/0,18/=XSV=A,3/0,18/=XSV=B     SAI  AJ+BK                 DBG=IDP     3994     A     
 DBG=IDP   +        VFD    18/0,3/0,18/=XSV=A,3/4,18/=XSV=B     SAI  AJ-BK                 DBG=IDP     3995     A     
 DBG=IDP   +        VFD    18/0,3/0,18/=XSV=B,3/0,18/=XSV=B     SAI  BJ+BK                 DBG=IDP     3996     A     
 DBG=IDP   +        VFD    18/0,3/0,18/=XSV=B,3/4,18/=XSV=B     SAI  BJ-BK                 DBG=IDP     3997     A     
 DBG=IDP            LOC    *O                                                              DBG=IDP     3998     A     
 DBG=IDP                                                                                   DBG=IDP     3999     A     
 DBG=IDP  *         HERE TO UPDATE POS COUNTER AND PSEUDO P REGISTER.                      DBG=IDP     4000     A     
 DBG=IDP                                                                                   DBG=IDP     4001     A     
 DBG=IDP   STP=X    SA1    STP=OP                                                          DBG=IDP     4002     A     
 DBG=IDP            SA2    IDPXFR                                                          DBG=IDP     4003     A     
 DBG=IDP            SA3    IDPPREG                                                         DBG=IDP     4004     A     
 DBG=IDP            SA4    IDPPOS                                                          DBG=IDP     4005     A     
 DBG=IDP            SA5    ST=ENDX                                                         DBG=IDP     4006     A     
 DBG=IDP            SA1    DAZ=PS+X1   (X1) = INSTRUCTION SKELETON                         DBG=IDP     4007     A     
 DBG=IDP            SB5    15                                                              DBG=IDP     4008     A     
 DBG=IDP            BX6    X2                                                              DBG=IDP     4009     A     
 DBG=IDP            SB4    X4                                                              DBG=IDP     4010     A     
 DBG=IDP            MX7    0                                                               DBG=IDP     4011     A     
 DBG=IDP            PL     X1,STP=X2   IF SHORT (15 BIT) INSTRUCTION                       DBG=IDP     4012     A     
 DBG=IDP            SB5    B5+B5                                                           DBG=IDP     4013     A     
 DBG=IDP                                                                                   DBG=IDP     4014     A     
 DBG=IDP   STP=X2   LX1    59-57                                                           DBG=IDP     4015     A     
 DBG=IDP            NZ     X2,STP=X4   IF A XFER OF CONTROL OCCURRED, FORCE UPPER          DBG=IDP     4016          I
          -DBG0002
 DBG=IDP            NZ     X2,STP=X4A  IF A XFER OF CONTROL OCCURRED                       DBG0002     1401     A     
 DBG=IDP            SX6    X3+B1                                                           DBG=IDP     4017     A     
 DBG=IDP            LE     B4,B5,STP=X3  IF NO MORE INSTRUCTIONS IN THIS WORD              DBG=IDP     4018     A     
 DBG=IDP            PL     X1,STP=X5   IF INSTRUCTION DOES NOT FORCE UPPER                 DBG=IDP     4019     A     
 DBG=IDP                                                                                   DBG=IDP     4020     A     
 DBG=IDP   STP=X3   ZR     X5,STP=X4   IF NOT IN IDP GENERATED BREAK MODE                  DBG=IDP     4021     A     
 DBG=IDP            SX6    X3                                                              DBG=IDP     4022     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 260    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG=IDP     4023     A     
 DBG=IDP  *         HERE IF INSTRUCTION FORCES UPPER.                                      DBG=IDP     4024     A     
 DBG=IDP                                                                                   DBG=IDP     4025     A     
 DBG=IDP   STP=X4   SA7    A5          SET TO *NOT IN IDP GENERATED BREAK MODE*            DBG=IDP     4026     A     
 DBG=IDP            SA6    A3                                                              DBG=IDP     4027     A     
 DBG=IDP            SX7    60                                                              DBG=IDP     4028     A     
 DBG=IDP            SA7    A4                                                              DBG=IDP     4029     A     
 DBG=IDP            EQ     STP=X6                                                          DBG=IDP     4030     A     
 DBG=IDP                                                                                   DBG0002     1402     A     
 DBG=IDP  *         HERE IF TRANSFER OF CONTROL OCCURRED -- ENTER TRANSFER ADDR            DBG0002     1403     A     
 DBG=IDP  *           ONTO PUSH DOWN STACK OF SAVED TRANSFER ADDRESSES *IDPXFT*.           DBG0002     1404     A     
 DBG=IDP  *           ALL ENTRIES IN PUSH DOWN STACK ARE MOVED UP (TOWARD *RA*)            DBG0002     1405     A     
 DBG=IDP  *           ONE POSITION (THE 1ST ENTRY IN *XFT*, THE EARLIEST TRANSFER          DBG0002     1406     A     
 DBG=IDP  *           ADDRESS, FALLS OFF STACK).  EXAMPLE --                               DBG0002     1407     A     
 DBG=IDP  *                                                                                DBG0002     1408     A     
 DBG=IDP  *                     BEFORE                 AFTER                               DBG0002     1409     A     
 DBG=IDP  *             XFT+0  XFER(N)         XFT+0  XFER(N+1)                            DBG0002     1410     A     
 DBG=IDP  *                +1  XFER(N+1)          +1  XFER(N+2)                            DBG0002     1411     A     
 DBG=IDP  *                +2  XFER(N+2)          +2  XFER(N+3)                            DBG0002     1412     A     
 DBG=IDP  *                +3  XFER(N+3)          +3  XFER(N+4) -- NEW ENTRY               DBG0002     1413     A     
 DBG=IDP  *                +4  END-OF-TABLE       +4  END-OF-TABLE                         DBG0002     1414     A     
 DBG=IDP                                                                                   DBG0002     1415     A     
 DBG=IDP   STP=X4A  SA1    IDPXFT+1    (A1,X1) = A+C OF 1ST WORD TO MOVE                   DBG0002     1416     A     
 DBG=IDP            SB7    L.XFT-1     (B7) = NR OF WORDS TO MOVE                          DBG0002     1417     A     
 DBG=IDP                                                                                   DBG0002     1418     A     
 DBG=IDP   STP=X4B  BX7    X1                                                              DBG0002     1419     A     
 DBG=IDP            SA7    A1-B1                                                           DBG0002     1420     A     
 DBG=IDP            SB7    B7-B1                                                           DBG0002     1421     A     
 DBG=IDP            SA1    A1+B1                                                           DBG0002     1422     A     
 DBG=IDP            GT     B7,B0,STP=X4B IF NOT DONE                                       DBG0002     1423     A     
 DBG=IDP                                                                                   DBG0002     1424     A     
 DBG=IDP            LX4    59-29                                                           DBG0002     1425     A     
 DBG=IDP            BX7    X4+X3       (X7) = 30/POS COUNTER,30/P REG OF XFER INST         DBG0002     1426     A     
 DBG=IDP            SA7    A1-B1       MAKE NEW ENTRY                                      DBG0002     1427     A     
 DBG=IDP            MX7    0                                                               DBG0002     1428     A     
 DBG=IDP            EQ     STP=X4      FORCE UPPER...                                      DBG0002     1429     A     
 DBG=IDP                                                                                   DBG=IDP     4031     A     
 DBG=IDP  *         HERE IF INSTRUCTION DOES NOT FORCE UPPER.                              DBG=IDP     4032     A     
 DBG=IDP                                                                                   DBG=IDP     4033     A     
 DBG=IDP   STP=X5   SB6    B4-B5                                                           DBG=IDP     4034     A     
 DBG=IDP            SX7    B6                                                              DBG=IDP     4035     A     
 DBG=IDP            SA7    A4                                                              DBG=IDP     4036     A     
 DBG=IDP                                                                                   DBG=IDP     4037     A     
 DBG=IDP  *         LIST RESULT REGISTER.                                                  DBG=IDP     4038     A     
 DBG=IDP                                                                                   DBG=IDP     4039     A     
 DBG=IDP   STP=X6   SA3    IDPXLST                                                         DBG=IDP     4040     A     
 DBG=IDP            SA4    STP=OP                                                          DBG=IDP     4041     A     
 DBG=IDP            ZR     X3,EXIT.    IF NOT LISTING                                      DBG=IDP     4042     A     
 DBG=IDP                                                                                   DBG=IDP     4043     A     
 DBG=IDP            SX6    X4-10B                                                          DBG=IDP     4044     A     
 DBG=IDP            SA3    STP=I                                                           DBG=IDP     4045     A     
 DBG=IDP            MI     X6,EXIT.    IF A BRANCH INSTRUCTION                             DBG=IDP     4046     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 261    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            LX1    -2          RESTORE (X1) = INSTRUCTION SKELETON                 DBG=IDP     4047     A     
 DBG=IDP            MX0    -CHAR                                                           DBG=IDP     4048     A     
 DBG=IDP            BX6    -X0*X1                                                          DBG=IDP     4049     A     
 DBG=IDP            SX7    X6-1RB                                                          DBG=IDP     4050     A     
 DBG=IDP            SB6    000B        (B6) = 0TR, WHERE T=0 (B REG)                       DBG=IDP     4051     A     
 DBG=IDP            ZR     X7,STP=X8   IF B REGISTER                                       DBG=IDP     4052     A     
 DBG=IDP            SX7    X6-1RA                                                          DBG=IDP     4053     A     
 DBG=IDP            SB6    010B        (B6) = 0TR, WHERE T=1 (A REG)                       DBG=IDP     4054     A     
 DBG=IDP            ZR     X7,STP=X8   IF A REGISTER                                       DBG=IDP     4055     A     
 DBG=IDP            SX7    X6-1RX                                                          DBG=IDP     4056     A     
 DBG=IDP            SB6    020B        (B6) = 0TR, WHERE T=2 (X REG)                       DBG=IDP     4057     A     
 DBG=IDP            ZR     X7,STP=X9   IF X REGISTER                                       DBG=IDP     4058     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     4059     A     
 DBG=IDP                                                                                   DBG=IDP     4060     A     
 DBG=IDP   STP=X8   SB4    B6+X3       (B4) = 0TR                                          DBG=IDP     4061     A     
 DBG=IDP            RJ     DAB         DUMP -A- OR -B- REGISTER                            DBG=IDP     4062     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     4063     A     
 DBG=IDP                                                                                   DBG=IDP     4064     A     
 DBG=IDP   STP=X9   SB4    B6+X3       (B4) = 02R                                          DBG=IDP     4065     A     
 DBG=IDP            RJ     DUX         DUMP -X- REGISTER                                   DBG=IDP     4066     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     4067     A     
 DBG=IDP                                                                                   DBG=IDP     4068     A     
 DBG=IDP  *         HERE IF AN ERROR ENCOUNTERED.                                          DBG=IDP     4069     A     
 DBG=IDP                                                                                   DBG=IDP     4070     A     
 DBG=IDP   STP=ER   SA1    IDPXLST                                                         DBG=IDP     4071     A     
 DBG=IDP            SA2    ST=ENDX                                                         DBG=IDP     4072     A     
 DBG=IDP            SA3    IDPPREG                                                         DBG=IDP     4073     A     
 DBG=IDP            SA4    IDPPOS                                                          DBG=IDP     4074     A     
 DBG=IDP            NZ     X1,STP=E3   IF INSTRUCTION WAS ALREADY LISTED                   DBG=IDP     4075     A     
 DBG=IDP            SA5    X3                                                              DBG=IDP     4076     A     
 DBG=IDP            ZR     X2,STP=E2   IF NOT IN IDP GENERATED BREAK MODE                  DBG=IDP     4077     A     
 DBG=IDP            SA5    A2                                                              DBG=IDP     4078     A     
 DBG=IDP                                                                                   DBG=IDP     4079     A     
 DBG=IDP   STP=E2   SB4    X4                                                              DBG=IDP     4080     A     
 DBG=IDP            RJ     DAZ         DEASSEMBLE BAD INSTRUCTION                          DBG=IDP     4081     A     
 DBG=IDP                                                                                   DBG=IDP     4082     A     
 DBG=IDP   STP=E3   MX0    -18                                                             DBG=IDP     4083     A     
 DBG=IDP            SA1    IDPPREG                                                         DBG=IDP     4084     A     
 DBG=IDP            SA2    =10H      P =                                                   DBG=IDP     4085     A     
 DBG=IDP            BX1    -X0*X1                                                          DBG=IDP     4086     A     
 DBG=IDP            LX7    X2                                                              DBG=IDP     4087     A     
 DBG=IDP            SA7    SNAPLNE                                                         DBG=IDP     4088     A     
 DBG=IDP            RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                         DBG=IDP     4089     A     
 DBG=IDP            BX6    X4                                                              DBG=IDP     4090     A     
 DBG=IDP            SA6    A7+B1                                                           DBG=IDP     4091     A     
 DBG=IDP                                                                                   DBG=IDP     4092     A     
 DBG=IDP   #FRA     IF     DEF,FRA=                                                        DBG=IDP     4093     A     
 DBG=IDP            SA1    IDPPREG                                                         DBG=IDP     4094     A     
 DBG=IDP            SB7    STP=E4      (B7) = RETURN ADDR FOR *FRA=*                       DBG=IDP     4095     A     
 DBG=IDP            EQ     =XFRA=      FIND RELATIVE ADDRESS                               DBG=IDP     4096     A     
 DBG=IDP                                                                                   DBG=IDP     4097     A     
 DBG=IDP   STP=E4   SA6    A6+B1                                                           DBG=IDP     4098     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 262    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SA7    A6+B1                                                           DBG=IDP     4099     A     
 DBG=IDP                                                                                   DBG=IDP     4100     A     
 DBG=IDP   #FRA     ELSE                                                                   DBG=IDP     4101     A     
 DBG=IDP            MX6    0                                                               DBG=IDP     4102     A     
 DBG=IDP            SA6    A6+B1       MARK EOL                                            DBG=IDP     4103     A     
 DBG=IDP   #FRA     ENDIF                                                                  DBG=IDP     4104     A     
 DBG=IDP                                                                                   DBG=IDP     4105     A     
 DBG=IDP            PRIDP  SNAPLNE                                                         DBG=IDP     4106     A     
 DBG=IDP            EQ     IDP=ER                                                          DBG=IDP     4107     A     
 DBG=IDP                                                                                   DBG=IDP     4108     A     
 DBG=IDP                                                                                   DBG=IDP     4109     A     
 DBG=IDP   STP=ADR  =      DAZ=ADR                                                         DBG=IDP     4110     A     
 DBG=IDP   STP=I    =      DAZ=I                                                           DBG=IDP     4111     A     
 DBG=IDP   STP=J    =      DAZ=J                                                           DBG=IDP     4112     A     
 DBG=IDP   STP=K    =      DAZ=K                                                           DBG=IDP     4113     A     
 DBG=IDP   STP=OP   =      DAZ=OP                                                          DBG=IDP     4114     A     
 DBG=IDP   VFD      SPACE  4,8                                                             DBG=IDP     4115     A     
 DBG=IDP  **        VFD - VARIABLE FIELD DEFINITION.                                       DBG=IDP     4116     A     
 DBG=IDP  *                                                                                DBG=IDP     4117     A     
 DBG=IDP  *                                                                                DBG=IDP     4118     A     
 DBG=IDP  *                CONVERTS A SPECIFIED FIELD IN A BINARY WORD TO OCTAL            DBG=IDP     4119     A     
 DBG=IDP  *         DISPLAY CODE WITH APPROPRIATE SPACING AND BLANK FILL.                  DBG=IDP     4120     A     
 DBG=IDP  *         THE FIELD TO BE CONVERTED CAN BE REPRESENTED IN *COMPASS* BY--         DBG=IDP     4121     A     
 DBG=IDP  *                                                                                DBG=IDP     4122     A     
 DBG=IDP  *         POS    (B4)   IN (X1)                                                  DBG=IDP     4123     A     
 DBG=IDP  *         VFD    (B5)/FIELD   WHERE *FIELD* HAS BEEN EXTRACTED FROM (X1)         DBG=IDP     4124     A     
 DBG=IDP  *                                                                                DBG=IDP     4125     A     
 DBG=IDP  *         E.G.   (B4) = 45   POSITION COUNTER                                    DBG=IDP     4126     A     
 DBG=IDP  *                (B5) = 30   NR OF BITS                                          DBG=IDP     4127     A     
 DBG=IDP  *                                                                                DBG=IDP     4128     A     
 DBG=IDP  *                BINARY      76211031100015620310                                DBG=IDP     4129     A     
 DBG=IDP  *                DPC RSULT   .....0311000156.....    (.=BLANK(55B))              DBG=IDP     4130     A     
 DBG=IDP  *                                                                                DBG=IDP     4131     A     
 DBG=IDP  *         ENTRY  (X1)  =  BINARY WORD TO BE CONVERTED                            DBG=IDP     4132     A     
 DBG=IDP  *                (B4)  =  POSITION COUNTER                                       DBG=IDP     4133     A     
 DBG=IDP  *                (B5)  =  NR OF BITS IN FIELD                                    DBG=IDP     4134     A     
 DBG=IDP  *                                                                                DBG=IDP     4135     A     
 DBG=IDP  *         EXIT   (X6)  =  CONVERTED UPPER 30 BITS OF (X1) -- DPC RESULT          DBG=IDP     4136     A     
 DBG=IDP  *                (X7)  =  CONVERTED LOWER 30 BITS OF (X1) -- DPC RESULT          DBG=IDP     4137     A     
 DBG=IDP  *                (X0)  =  .ZR. IF BAD POS OR BIT COUNT ON ENTRY,                 DBG=IDP     4138     A     
 DBG=IDP  *                            ELSE .NZ.                                           DBG=IDP     4139     A     
 DBG=IDP  *                                                                                DBG=IDP     4140     A     
 DBG=IDP  *         USES   X - 0,1,2,3,4,6,7                                               DBG=IDP     4141     A     
 DBG=IDP  *                A - NONE                                                        DBG=IDP     4142     A     
 DBG=IDP  *                B - 6                                                           DBG=IDP     4143     A     
 DBG=IDP  *                                                                                DBG=IDP     4144     A     
 DBG=IDP  *         CALLS  NONE                                                            DBG=IDP     4145     A     
 DBG=IDP                                                                                   DBG=IDP     4146     A     
 DBG=IDP                                                                                   DBG=IDP     4147     A     
 DBG=IDP   VFD      SUBR               ** ENTRY/EXIT **                                    DBG=IDP     4148     A     
 DBG=IDP            MX3    0                                                               DBG=IDP     4149     A     
 DBG=IDP            BX0    X0-X0                                                           DBG=IDP     4150     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 263    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SB6    B5-1                                                            DBG=IDP     4151     A     
 DBG=IDP            LT     B4,B0,EXIT. IF POS COUNT IS BAD                                 DBG=IDP     4152     A     
 DBG=IDP            LT     B5,B0,EXIT. IF BIT COUNT IS BAD                                 DBG=IDP     4153     A     
 DBG=IDP            MX0    -3                                                              DBG=IDP     4154     A     
 DBG=IDP            ZR     B5,VFD2     IF NOT CONVERTING ANY BITS                          DBG=IDP     4155     A     
 DBG=IDP            MX3    1                                                               DBG=IDP     4156     A     
 DBG=IDP            AX3    X3,B6                                                           DBG=IDP     4157     A     
 DBG=IDP            NO                                                                     DBG=IDP     4158     A     
 DBG=IDP            LX3    X3,B4       (X3) = EXTRACT MASK FOR BITS TO CONVERT             DBG=IDP     4159     A     
 DBG=IDP            BX1    X3*X1                                                           DBG=IDP     4160     A     
 DBG=IDP                                                                                   DBG=IDP     4161     A     
 DBG=IDP   VFD2     MX6    0                                                               DBG=IDP     4162     A     
 DBG=IDP            BX7    X7-X7                                                           DBG=IDP     4163     A     
 DBG=IDP            SB6    60                                                              DBG=IDP     4164     A     
 DBG=IDP                                                                                   DBG=IDP     4165     A     
 DBG=IDP  *         ASSEMBLE APPROPRIATE DIGITS.                                           DBG=IDP     4166     A     
 DBG=IDP                                                                                   DBG=IDP     4167     A     
 DBG=IDP   VFD3     LX1    3                                                               DBG=IDP     4168     A     
 DBG=IDP            BX2    -X0*X1                                                          DBG=IDP     4169     A     
 DBG=IDP            LX3    3                                                               DBG=IDP     4170     A     
 DBG=IDP            BX4    -X0*X3                                                          DBG=IDP     4171     A     
 DBG=IDP            SX2    X2+1R0                                                          DBG=IDP     4172     A     
 DBG=IDP            SB6    B6-6                                                            DBG=IDP     4173     A     
 DBG=IDP            NZ     X4,VFD4     IF ASSEMBLING THESE DIGITS                          DBG=IDP     4174     A     
 DBG=IDP            SX2    1R                                                              DBG=IDP     4175     A     
 DBG=IDP                                                                                   DBG=IDP     4176     A     
 DBG=IDP   VFD4     LX2    X2,B6                                                           DBG=IDP     4177     A     
 DBG=IDP            BX7    X7+X2                                                           DBG=IDP     4178     A     
 DBG=IDP            GT     B6,B0,VFD3  IF PACKING REG (X7) NOT FULL                        DBG=IDP     4179     A     
 DBG=IDP                                                                                   DBG=IDP     4180     A     
 DBG=IDP  *         HERE IF PACKING REGISTER (X7) IS FULL.                                 DBG=IDP     4181     A     
 DBG=IDP                                                                                   DBG=IDP     4182     A     
 DBG=IDP            SB6    60                                                              DBG=IDP     4183     A     
 DBG=IDP            NZ     X6,EXIT.    IF FINISHED ASSEMBLING ENTIRE WORD                  DBG=IDP     4184     A     
 DBG=IDP            BX6    X7                                                              DBG=IDP     4185     A     
 DBG=IDP            MX7    0                                                               DBG=IDP     4186     A     
 DBG=IDP            EQ     VFD3                                                            DBG=IDP     4187     A     
 DBG=IDP   DATA     SPACE  4,8                                                             DBG=IDP     4188     A     
 DBG=IDP  **        *IDP* DATA DECLARATIONS.                                               DBG=IDP     4189     A     
 DBG=IDP                                                                                   DBG=IDP     4190     A     
 DBG=IDP                                                                                   DBG0002     1430     A     
 DBG=IDP   IDPSTMT  BSSZ   1           DURING TOKEN GENERATION *BUB* -- CONTAINS           DBG0002     1431     A     
 DBG=IDP  *                              ADDR OF STMT INFO WORD FOR STMT BEING             DBG0002     1432     A     
 DBG=IDP  *                              BURST/BUILT, SO THAT UPON ENCOUNTERING            DBG0002     1433     A     
 DBG=IDP  *                              EOS, *BUB* CAN GO BACK AND FILL IN LEN.           DBG0002     1434     A     
 DBG=IDP  *                            DURING STMT PROCESSING -- INDICATES WHERE           DBG0002     1435     A     
 DBG=IDP  *                              STMT BEING PROCESSED IS.                          DBG0002     1436     A     
 DBG=IDP  *                              IF STMT IS NOT PART OF *PROC* -- BIT 59           DBG0002     1437     A     
 DBG=IDP  *                                IS 0 AND BITS 17 THRU 0 CONTAIN THE             DBG0002     1438     A     
 DBG=IDP  *                                ADDR OF STMT INFO WORD IN *IDPTB* FOR           DBG0002     1439     A     
 DBG=IDP  *                                THIS STMT.                                      DBG0002     1440     A     
 DBG=IDP  *                              IF STMT IS PART OF *PROC* -- BIT 59 IS 1          DBG0002     1441     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 264    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                                AND BITS 17 THRU 0 CONTAIN THE *IDPPRN*         DBG0002     1442     A     
 DBG=IDP  *                                ORD OF *PROC* CONTAINING STMT.                  DBG0002     1443     A     
 DBG=IDP                                                                                   DBG0002     1444     A     
 DBG=IDP   IDPSTO   BSSZ   3                                                               DBG=IDP     4191     A     
 DBG=IDP                                                                                   DBG=IDP     4192     A     
 DBG=IDP            LOC    IDPSTO                                                          DBG=IDP     4193     A     
 DBG=IDP   IDPSTA   =      *           ADDR TO STORE INTO FOR *STORE* PROCESSING           DBG=IDP     4194     A     
 DBG=IDP   IDPSTC   =      *+1         NEW VALUE ASSEMBLED FROM C1 THRU C4 ON              DBG=IDP     4195     A     
 DBG=IDP  *                              *STORE* COMMAND                                   DBG=IDP     4196     A     
 DBG=IDP   IDPSTM   =      *+2         MASK ASSEMBLED FROM NULL C1 THRU C4 ON              DBG=IDP     4197     A     
 DBG=IDP  *                              *STORE* COMMAND. IDP USES THIS MASK TO            DBG=IDP     4198     A     
 DBG=IDP  *                              PICK UP THE PREVIOUS CONTENTS OF THE C-N-         DBG=IDP     4199     A     
 DBG=IDP  *                              FIELD IF THE NEW C-N- FIELD IS NULL               DBG=IDP     4200     A     
 DBG=IDP  *                              E.G.  STORE ADDR,,22222,,44444                    DBG=IDP     4201     A     
 DBG=IDP  *                              PREVIOUS (STA) = 01020304050607080910             DBG=IDP     4202     A     
 DBG=IDP  *                                       (STC) = 00000222220000044444             DBG=IDP     4203     A     
 DBG=IDP  *                                       (STM) = 77777000007777700000             DBG=IDP     4204     A     
 DBG=IDP  *                                   NEW (STA) = 01020222220607044444             DBG=IDP     4205     A     
 DBG=IDP            LOC    *O                                                              DBG=IDP     4206     A     
 DBG=IDP                                                                                   DBG=IDP     4207     A     
 DBG=IDP   IDPBAX   BSS    0           BAX REGISTER SHIFT MASK                             DBG=IDP     4208     A     
 DBG=IDP            ECHO   2,BIT=(A,B,X)                                                   DBG=IDP     4209     A     
 DBG=IDP            POS    60-1R_BIT                                                       DBG=IDP     4210     A     
 DBG=IDP            VFD    1/1                                                             DBG=IDP     4211     A     
 DBG=IDP            POS    0                                                               DBG=IDP     4212     A     
 DBG=IDP   IDPKMX   BSSZ   1           MASK TO USE IN KEYWORD SEARCH                       DBG=IDP     4213          I
          -DBG0002
 DBG=IDP  *                              NOTE-- THIS MASK ALLOWS THE *IDP* USER            DBG=IDP     4214          I
          -DBG0002
 DBG=IDP  *                              TO ENTER THE MINIMUM NR OF CHARS IN ORDER         DBG=IDP     4215          I
          -DBG0002
 DBG=IDP  *                              TO UNIQUELY SPECIFY AN *IDP* KEYWORD.             DBG=IDP     4216          I
          -DBG0002
 DBG=IDP                                                                                   DBG0002     1445     A     
 DBG=IDP   IDPSMX   BSS    0           SEPARATOR TOKEN MASK +-*,                           DBG=IDP     4217     A     
 DBG=IDP            POS    60-1R+                                                          DBG=IDP     4218     A     
 DBG=IDP            VFD    1/1                                                             DBG=IDP     4219     A     
 DBG=IDP            POS    60-1R-                                                          DBG=IDP     4220     A     
 DBG=IDP            VFD    1/1                                                             DBG=IDP     4221     A     
 DBG=IDP            POS    60-1R*                                                          DBG=IDP     4222     A     
 DBG=IDP            VFD    1/1                                                             DBG=IDP     4223     A     
 DBG=IDP            POS    60-1R,                                                          DBG=IDP     4224     A     
 DBG=IDP            VFD    1/1                                                             DBG=IDP     4225     A     
 DBG=IDP            POS    0                                                               DBG=IDP     4226     A     
 DBG=IDP   IDPBTC   BSSZ   1           BREAK TYPE CODE                                     DBG=IDP     4227     A     
 DBG=IDP                                                                                   DBG=IDP     4228     A     
 DBG=IDP   IDPACC   BSSZ   1           ACCUMULATOR FOR THIS SUBEXPRESSION                  DBG=IDP     4229     A     
 DBG=IDP   IDPIND   BSSZ   1           USED BY *PAS* TO SHOW THE LEVEL OF INDIR-           DBG=IDP     4230     A     
 DBG=IDP  *                              ECT ADDRESSING, 0 = DIRECT ADDRESSING             DBG=IDP     4231     A     
 DBG=IDP   IDPNUL   BSSZ   1           .ZR. IF JUST PARSED NULL EXPRESSION                 DBG=IDP     4232     A     
 DBG=IDP  *                                   E.G.   SNAP FWA,,LEN   (LWA IS NULL)         DBG=IDP     4233     A     
 DBG=IDP   IDPSGN   BSSZ   1           SET TO +0 WHEN + SIGN ENCOUNTERED                   DBG=IDP     4234     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 265    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                                   -0 WHEN - SIGN ENCOUNTERED                   DBG=IDP     4235     A     
 DBG=IDP                                                                                   DBG=IDP     4236     A     
 DBG=IDP   IDP0TR   BSSZ   1           REGISTER DESIGNATOR                                 DBG=IDP     4237     A     
 DBG=IDP  *                              USED FOR *REG R1,R2,...,RN* PROCESSING.           DBG=IDP     4238     A     
 DBG=IDP  *                              FORMAT IS--  60/0TR WHERE                         DBG=IDP     4239     A     
 DBG=IDP  *                                  T = REGISTER TYPE (B=0,A=1,X=2)               DBG=IDP     4240     A     
 DBG=IDP  *                                  R = REGISTER NR (0-7)                         DBG=IDP     4241     A     
 DBG=IDP                                                                                   DBG=IDP     4242     A     
 DBG=IDP   IDPNAM   BSSZ   1           SAVE CELL FOR *ST=SET* -- SET NAME (0L FMT)         DBG=IDP     4243     A     
 DBG=IDP                                                                                   DBG=IDP     4244     A     
 DBG=IDP   IDPFAD   BSSZ   1           .NZ. IF *DAZ* IS TO FORCE OUT ADDR OF INST-         DBG0002     1446     A     
 DBG=IDP  *                              RUCTION BEING DEASSEMBLED EVEN IF NOT             DBG0002     1447     A     
 DBG=IDP  *                              FORCED UPPER IN WORD, ELSE .ZR.                   DBG0002     1448     A     
 DBG=IDP  *                              E.G. IF *FAD* IS .ZR. --                          DBG0002     1449     A     
 DBG=IDP  *                              ADDR  54111                 SA1  A1+B1            DBG0002     1450     A     
 DBG=IDP  *                                         0311000000       NZ   X1,...           DBG0002     1451     A     
 DBG=IDP  *                                                   10611  BX6  X1               DBG0002     1452     A     
 DBG=IDP  *                              E.G. IF *FAD* IS .NZ. --                          DBG0002     1453     A     
 DBG=IDP  *                              ADDR  54111                 SA1  A1+B1            DBG0002     1454     A     
 DBG=IDP  *                              ADDR       0311000000       NZ   X1,...           DBG0002     1455     A     
 DBG=IDP  *                              ADDR                 10611  BX6  X1               DBG0002     1456     A     
 DBG=IDP  *                              NOTE-- *DAZ* WILL ALWAYS ZERO *FAD*               DBG0002     1457     A     
 DBG=IDP                                                                                   DBG0002     1458     A     
 DBG=IDP   IDPFTO   BSSZ   1           .ZR. IF FIRST CALL TO *IDP*, ELSE .NZ.              DBG=IDP     4245          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     4246          I
          -DBG0002
 DBG=IDP   IDPSA5   BSSZ   1           SAVE CELL FOR (A5)                                  DBG=IDP     4247     A     
 DBG=IDP                                                                                   DBG=IDP     4248     A     
 DBG=IDP   IDPPPP   BSSZ   2           PSEUDO P REGISTER AND POS COUNTER                   DBG=IDP     4249     A     
 DBG=IDP                                                                                   DBG=IDP     4250     A     
 DBG=IDP            LOC    IDPPPP                                                          DBG=IDP     4251     A     
 DBG=IDP   IDPPREG  =      *           PSEUDO P REGISTER. POINTS TO WORD CONTAIN-          DBG=IDP     4252     A     
 DBG=IDP  *                              ING NEXT INSTRUCTION TO BE XEQ                    DBG=IDP     4253     A     
 DBG=IDP   IDPPOS   =      *+1         POSITION COUNTER. LEFT MOST BIT OF INST-            DBG=IDP     4254     A     
 DBG=IDP  *                              RUCTION TO XEQ IS BIT (IDPPOS)-1 IN               DBG=IDP     4255     A     
 DBG=IDP  *                              ((IDPPREG)).(BITS ARE NUMBERED 59 THRU 0)         DBG=IDP     4256     A     
 DBG=IDP            LOC    *O                                                              DBG=IDP     4257     A     
 DBG=IDP                                                                                   DBG=IDP     4258     A     
 DBG=IDP   IDPXAR   BSSZ   1           .MI. IF NO ADDR REF VIA LOAD/STORE, ELSE            DBG=IDP     4259     A     
 DBG=IDP  *                              ADDR THAT WAS REFERENCED. USED IN *STAR*          DBG=IDP     4260     A     
 DBG=IDP  *                              PROCESSING.                                       DBG=IDP     4261     A     
 DBG=IDP   IDPXCA   BSSZ   2           CONDITIONAL *STEP* COMPARE ADDRESSES.               DBG=IDP     4262     A     
 DBG=IDP  *                              IF THIS IS A CONDITIONAL STEP (STNE,...),         DBG=IDP     4263     A     
 DBG=IDP  *                              THEN ((XA1)) WILL BE COMPARED TO ((XA2))          DBG=IDP     4264     A     
 DBG=IDP                                                                                   DBG=IDP     4265     A     
 DBG=IDP            LOC    IDPXCA                                                          DBG=IDP     4266     A     
 DBG=IDP   IDPXA1   =      *                                                               DBG=IDP     4267     A     
 DBG=IDP   IDPXA2   =      *+1                                                             DBG=IDP     4268     A     
 DBG=IDP            LOC    *O                                                              DBG=IDP     4269     A     
 DBG=IDP                                                                                   DBG=IDP     4270     A     
 DBG=IDP   IDPXFR   BSSZ   1           .ZR. IF NO XFER OF CONTROL BY BRANCH OR RJ,         DBG=IDP     4271     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 266    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *                              ELSE ADDR TO XFER CONTROL TO. USED IN             DBG=IDP     4272     A     
 DBG=IDP  *                              STEP MODE SO THAT PSEUDO P REGISTER IS            DBG=IDP     4273     A     
 DBG=IDP  *                              NOT PREMATURELY UPDATED WHEN BRANCHING.           DBG=IDP     4274     A     
 DBG=IDP   IDPXLST  BSSZ   1           .NZ. IF LISTING THIS INSTRUCTION IN STEP            DBG=IDP     4275     A     
 DBG=IDP  *                              MODE, ELSE .ZR.                                   DBG=IDP     4276     A     
 DBG=IDP   IDPXRJ   BSSZ   1           .ZR. IF AT LEVEL 0 (I.E. NO *RJ* ACTIVE),           DBG=IDP     4277     A     
 DBG=IDP  *                              ELSE ADDR OF ENTRY POINT TO ROUTINE               DBG=IDP     4278     A     
 DBG=IDP  *                              CALLED FROM LEVEL 0. USED IN STEP MODE TO         DBG=IDP     4279     A     
 DBG=IDP  *                              DETERMINE WHEN TO TURN LISTING BACK ON            DBG=IDP     4280     A     
 DBG=IDP  *                              WHEN /-RJ/ OPTION SELECTED                        DBG=IDP     4281     A     
 DBG=IDP   IDPXTC   BSSZ   1           *STEP* TYPE CODE                                    DBG=IDP     4282     A     
 DBG=IDP                                                                                   DBG=IDP     4283     A     
 DBG=IDP   IDPXOP   BSSZ   2           STEP OPTIONS FLAGS. THERE IS A ONE-TO-ONE           DBG=IDP     4284     A     
 DBG=IDP  *                              RELATIONSHIP BETWEEN THE STEP OPTIONS             DBG=IDP     4285     A     
 DBG=IDP  *                              FLAGS AND THE STEP OPTIONS KEYWORD TABLE.         DBG=IDP     4286     A     
 DBG=IDP  *                              WHEN *POL* RETURNS WITH A KEYWORD FIND            DBG=IDP     4287     A     
 DBG=IDP  *                              AND AN OPTIONS FLAG VALUE, THE ORDINAL OF         DBG=IDP     4288     A     
 DBG=IDP  *                              FIND IN THE STEP OPTIONS KEYWORD TABLE IS         DBG=IDP     4289     A     
 DBG=IDP  *                              THE ORDINAL TO STORE INTO *IDPXOP*.               DBG=IDP     4290     A     
 DBG=IDP                                                                                   DBG=IDP     4291     A     
 DBG=IDP            LOC    IDPXOP                                                          DBG=IDP     4292     A     
 DBG=IDP   IDPXOL   =      *           .NZ. IF /L/ SELECTED ON STEP COMAND,                DBG=IDP     4293     A     
 DBG=IDP  *                              ELSE .ZR. IF /-L/ SELECTED                        DBG=IDP     4294     A     
 DBG=IDP   IDPXORJ  =      *+1         .NZ. IF /RJ/ SELECTED ON STEP COMMAND,              DBG=IDP     4295     A     
 DBG=IDP  *                              ELSE .ZR. IF /-RJ/ SELECTED                       DBG=IDP     4296     A     
 DBG=IDP            LOC    *O                                                              DBG=IDP     4297     A     
 DBG=IDP   MX=      SPACE  4,8                                                             DBG0002     1459     A     
 DBG=IDP  **        MX= - CHARACTER SHIFT MASKS.                                           DBG0002     1460     A     
 DBG=IDP                                                                                   DBG0002     1461     A     
 DBG=IDP                                                                                   DBG0002     1462     A     
 DBG=IDP   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     A     
 DBG=IDP  ,1,2,3,4,5,6,7,8,9),+7777B-1RM                                                   DBG0002     1464     A     
 DBG=IDP   MX=NR09  CHARMX (0,1,2,3,4,5,6,7,8,9)                                           DBG0002     1465     A     
 DBG=IDP   MX=TOKN  CHARMX ("EOS",+,-,*,(,)),+7777B-1RM                                    DBG0002     1466     A     
 DBG=IDP   MSG      SPACE  4,8                                                             DBG=IDP     4298     A     
 DBG=IDP  **        *IDP* MESSAGES.                                                        DBG=IDP     4299     A     
 DBG=IDP                                                                                   DBG=IDP     4300     A     
 DBG=IDP   IDPMSG2  DIS    3, CALLD BY 000000 IN XXXXXXX                                   DBG=IDP     4301     A     
 DBG=IDP   IDPMSG4  DIS    3, OLD VALU 00000000000000000000                                DBG=IDP     4302     A     
 DBG=IDP            DATA   0                                                               DBG=IDP     4303     A     
 DBG=IDP   IDPMSG5  DIS    3, NEW VALU 00000000000000000000                                DBG=IDP     4304     A     
 DBG=IDP            DATA   0                                                               DBG=IDP     4305     A     
 DBG=IDP   F.IDI    SPACE  4,8                                                             DBG=IDP     4306     A     
 DBG=IDP  **        F.IDI - FET, LINE IMAGE AREA, AND BUFFER FOR INTERACTIVE               DBG=IDP     4307     A     
 DBG=IDP  *           DEBUG INPUT FILE.                                                    DBG=IDP     4308     A     
 DBG=IDP                                                                                   DBG=IDP     4309     A     
 DBG=IDP   #IDI     IF     -DEF,F.IDI                                                      DBG=IDP     4310     A     
 DBG=IDP   L.IDI    =      30B         LENGTH OF *IDP* INPUT BUFFER                        DBG=IDP     4311          I
          -DBG0002
 DBG=IDP   L.IDI    =      101B        LENGTH OF *IDP* INPUT BUFFER                        DBG0002     1467     A     
 DBG=IDP                                                                                   DBG=IDP     4312     A     
 DBG=IDP   F.IDI    BSS    0           ** FWA OF FET **                                    DBG=IDP     4313     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 267    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP   IDPI     FILEC  IDPIDI,L.IDI                                                    DBG=IDP     4314          I
          -DBG0005
 DBG=IDP   ZZZZZDI  FILEC  IDPIDI,L.IDI,(FET=7)                                            DBG0005        6     A     
 DBG=IDP            DIS    1, **IDP**                                                      DBG0002     1468     A     
 DBG=IDP   IDPLIM   DIS    8,INTERACTIVE DEBUG LINE IMAGE AREA.                            DBG=IDP     4315     A     
 DBG=IDP   IDPIDI   BSS    L.IDI                                                           DBG=IDP     4316     A     
 DBG=IDP                                                                                   DBG0002     1469     A     
 DBG=IDP   L=LIM    BSSZ   1           NR OF WORDS IN SOURCE LINE IMAGE AT                 DBG0002     1470     A     
 DBG=IDP  *                              (IDPLIM) ET SEQ (INCLUDES WORD CONTAINING         DBG0002     1471     A     
 DBG=IDP  *                              EOL MARK)                                         DBG0002     1472     A     
 DBG=IDP   #IDI     ENDIF                                                                  DBG=IDP     4317     A     
 DBG=IDP   F.BDI    SPACE  4,8                                                             DBG0002     1473     A     
 DBG=IDP   F.BDI    =      F.IDI                                                           DBG0002     1474     A     
 DBG=IDP   F.IDO    SPACE  4,8                                                             DBG=IDP     4318     A     
 DBG=IDP  **        F.IDO - FET AND BUFFER FOR INTERACTIVE DEBUG OUTPUT FILE.              DBG=IDP     4319     A     
 DBG=IDP                                                                                   DBG=IDP     4320     A     
 DBG=IDP   #IDO     IF     -DEF,F.IDO                                                      DBG=IDP     4321     A     
 DBG=IDP   L.IDO    =      101B        LENGTH OF *IDP* OUTPUT BUFFER                       DBG=IDP     4322     A     
 DBG=IDP                                                                                   DBG=IDP     4323     A     
 DBG=IDP   F.IDO    BSS    0           ** FWA OF FET **                                    DBG=IDP     4324     A     
 DBG=IDP   IDPO     FILEC  IDPIDO,L.IDO                                                    DBG=IDP     4325          I
          -DBG0005
 DBG=IDP   ZZZZZDO  FILEC  IDPIDO,L.IDO,(FET=7)                                            DBG0005        7     A     
 DBG=IDP   IDPIDO   BSS    L.IDO                                                           DBG=IDP     4326     A     
 DBG=IDP   #IDO     ENDIF                                                                  DBG=IDP     4327     A     
 DBG=IDP   SB       SPACE  4,8                                                             DBG=IDP     4328          I
          -DBG0002
 DBG=IDP  **        *IDP* STRING BUFFER.                                                   DBG=IDP     4329          I
          -DBG0002
 DBG=IDP                                                                                   DBG=IDP     4330          I
          -DBG0002
 DBG=IDP   L.DSB    =      30B         LENGTH OF *IDP* STRING BUFFER                       DBG=IDP     4331          I
          -DBG0002
 DBG=IDP            BSSZ   1           WORD FOR (A6) INITIALIZATION                        DBG=IDP     4332          I
          -DBG0002
 DBG=IDP   IDPSB    BSSZ   L.DSB                                                           DBG=IDP     4333          I
          -DBG0002
 DBG=IDP   IDPTB    SPACE  4,8                                                             DBG0002     1475     A     
 DBG=IDP  **        IDPTB - COMMAND LINE TOKEN BUFFER.                                     DBG0002     1476     A     
 DBG=IDP  *                                                                                DBG0002     1477     A     
 DBG=IDP  *                CONTAINS THE CURRENT COMMAND LINE IN TOKEN FORM.                DBG0002     1478     A     
 DBG=IDP  *                                                                                DBG0002     1479     A     
 DBG=IDP  *         TOKEN BUFFER FORMAT --                                                 DBG0002     1480     A     
 DBG=IDP  *                                                                                DBG0002     1481     A     
 DBG=IDP  *         VFD    1/LAS,41/0,18/LEN   (TOKEN INFO WORD FOR STMT 1)                DBG0002     1482     A     
 DBG=IDP  *         VFD    42/0LCHARS,18/TOKEN TYPE                                        DBG0002     1483     A     
 DBG=IDP  *         VFD    42/0LCHAR ,18/TOKEN TYPE                                        DBG0002     1484     A     
 DBG=IDP  *          .                                                                     DBG0002     1485     A     
 DBG=IDP  *          .                                                                     DBG0002     1486     A     
 DBG=IDP  *         VFD    60/0   (END OF STATEMENT MARK FOR STMT 1)                       DBG0002     1487     A     
 DBG=IDP  *                                                                                DBG0002     1488     A     
 DBG=IDP  *         VFD    1/LAS,41/0,18/LEN   (TOKEN INFO WORD FOR STMT 2)                DBG0002     1489     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 268    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *          .                                                                     DBG0002     1490     A     
 DBG=IDP  *         ETC                                                                    DBG0002     1491     A     
 DBG=IDP  *                                                                                DBG0002     1492     A     
 DBG=IDP  *                THE FIELDS IN THE TOKEN INFORMATION WORDS ARE DESCRIBED         DBG0002     1493     A     
 DBG=IDP  *         BY PAIRS OF SYMBOLS OF THE FORM *TB.XXXP* AND *TB.XXXL*,               DBG0002     1494     A     
 DBG=IDP  *         WHERE *TB* IS THE COMMON PREFIX, AND *XXX* IS THE FIELD                DBG0002     1495     A     
 DBG=IDP  *         DESCRIPTION.                                                           DBG0002     1496     A     
 DBG=IDP  *                                                                                DBG0002     1497     A     
 DBG=IDP  *         FIELD DESCRIPTIONS (XXX) ARE --                                        DBG0002     1498     A     
 DBG=IDP  *                                                                                DBG0002     1499     A     
 DBG=IDP  *         LAS  = 1  IF THIS IS LAST STMT ON LINE, ELSE 0                         DBG0002     1500     A     
 DBG=IDP  *                                                                                DBG0002     1501     A     
 DBG=IDP  *         LEN  = NR OF WORDS OR TOKENS IN STMT  (INCLUDES EOL MARK)              DBG0002     1502     A     
 DBG=IDP  *                  NOTE--IF LAS .EQ. 0, TOKEN INFO WORD FOR NEXT                 DBG0002     1503     A     
 DBG=IDP  *                  STMT IS AT -- TOKEN INFO WORD + LEN + 1                       DBG0002     1504     A     
 DBG=IDP                                                                                   DBG0002     1505     A     
 DBG=IDP                                                                                   DBG0002     1506     A     
 DBG=IDP   L.TB     =      40          LENGTH OF TOKEN BUFFER                              DBG0002     1507     A     
 DBG=IDP   IDPTB    BSSZ   L.TB                                                            DBG0002     1508     A     
 DBG=IDP   TOKEN    SPACE  4,8                                                             DBG=IDP     4334     A     
 DBG=IDP  **        IDP TOKEN VALUES.                                                      DBG=IDP     4335     A     
 DBG=IDP                                                                                   DBG=IDP     4336     A     
 DBG=IDP   O.CONS   =      2           CONSTANT                                            DBG=IDP     4337     A     
 DBG=IDP   O.SEP    =      4           SEPARATOR +-*,                                      DBG=IDP     4338     A     
 DBG=IDP   O.VAR    =      3           NAME                                                DBG=IDP     4339     A     
 DBG=IDP   KEYW     SPACE  4,8                                                             DBG=IDP     4340     A     
 DBG=IDP  **        KEYW - *IDP* KEYWORD TABLE GENERATOR.                                  DBG=IDP     4341     A     
 DBG=IDP  *                                                                                DBG=IDP     4342     A     
 DBG=IDP  *                                                                                DBG=IDP     4343     A     
 DBG=IDP  *                MACRO USED TO GENERATE THE *IDP* COMMAND KEYWORD TABLE.         DBG=IDP     4344     A     
 DBG=IDP  *                                                                                DBG=IDP     4345     A     
 DBG=IDP  *         KEYW   KEYWRD,ADDR                                                     DBG=IDP     4346     A     
 DBG=IDP  *                                                                                DBG=IDP     4347     A     
 DBG=IDP  *         ENTRY  *KEYWRD* =  THE *IDP* KEYWORD                                   DBG=IDP     4348     A     
 DBG=IDP  *                *ADDR*   =  STATEMENT PROCESSOR FOR THIS KEYWORD                DBG=IDP     4349     A     
 DBG=IDP  *                                                                                DBG=IDP     4350     A     
 DBG=IDP  *         EXIT   NONE                                                            DBG=IDP     4351     A     
 DBG=IDP  *                                                                                DBG=IDP     4352     A     
 DBG=IDP  *         USES   NONE                                                            DBG=IDP     4353     A     
 DBG=IDP  *                                                                                DBG=IDP     4354     A     
 DBG=IDP  *         CALLS  NONE                                                            DBG=IDP     4355     A     
 DBG=IDP                                                                                   DBG=IDP     4356     A     
 DBG=IDP                                                                                   DBG=IDP     4357     A     
 DBG=IDP            PURGMAC  KEYW                                                          DBG=IDP     4358     A     
 DBG=IDP                                                                                   DBG=IDP     4359     A     
 DBG=IDP   KEYW     MACRO  KEYWRD,ADDR                                                     DBG=IDP     4360     A     
 DBG=IDP            VFD    42/0L_KEYWRD,18/ADDR                                            DBG=IDP     4361     A     
 DBG=IDP   KEYW     ENDM                                                                   DBG=IDP     4362     A     
 DBG=IDP   KEY      SPACE  4,8                                                             DBG=IDP     4363     A     
 DBG=IDP  **        *IDP* KEYWORD TABLE.                                                   DBG=IDP     4364     A     
 DBG=IDP                                                                                   DBG=IDP     4365     A     
 DBG=IDP   IDPKEY   BSS    0                                                               DBG=IDP     4366     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 269    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            KEYW   CODE,ST=COD                                                     DBG=IDP     4367     A     
 DBG=IDP            KEYW   CONNECT,ST=CON                                                  DBG=IDP     4368     A     
 DBG=IDP            KEYW   DISCONT,ST=DSC                                                  DBG=IDP     4369     A     
 DBG=IDP            KEYW   DPC,ST=DPC                                                      DBG0002     1509     A     
 DBG=IDP            KEYW   END,ST=END                                                      DBG=IDP     4370     A     
 DBG=IDP            KEYW   FREEZE,ST=FRZ                                                   DBG0006      139     A     
 DBG=IDP            KEYW   JUMP,ST=JP                                                      DBG=IDP     4371     A     
 DBG=IDP            KEYW   OUTPUT,ST=OUT                                                   DBG0002     1510     A     
 DBG=IDP            KEYW   REGS,ST=REG                                                     DBG=IDP     4372     A     
 DBG=IDP            KEYW   RESET,ST=RES                                                    DBG=IDP     4373     A     
 DBG=IDP            KEYW   SET,ST=SET                                                      DBG=IDP     4374     A     
 DBG=IDP            KEYW   SNAP,ST=SNP                                                     DBG=IDP     4375     A     
 DBG=IDP            KEYW   STORE,ST=STO                                                    DBG=IDP     4376     A     
 DBG=IDP            KEYW   UNBREAK,ST=UBK                                                  DBG=IDP     4377     A     
 DBG=IDP            KEYW   UNSET,ST=UST                                                    DBG=IDP     4378     A     
 DBG=IDP            KEYW   UBREAK,ST=UBK                                                   DBG=IDP     4379     A     
 DBG=IDP            KEYW   USET,ST=UST                                                     DBG=IDP     4380     A     
 DBG=IDP            KEYW   WHERE,ST=WHR                                                    DBG=IDP     4381     A     
 DBG=IDP            KEYW   XEQ,ST=XEQ                                                      DBG=IDP     4382     A     
 DBG=IDP            KEYW   XFER,ST=XFR                                                     DBG0002     1511     A     
 DBG=IDP                                                                                   DBG=IDP     4383     A     
 DBG=IDP  *         *BREAK* KEYWORDS.                                                      DBG=IDP     4384     A     
 DBG=IDP  *              THE BREAK TYPE CODE (IDPBTC) IS DETERMINED FROM THE BREAK         DBG=IDP     4385     A     
 DBG=IDP  *           KEYWORD ORDINAL.                                                     DBG=IDP     4386     A     
 DBG=IDP  *              THERE EXISTS A ONE-TO-ONE RELATIONSHIP BETWEEN THE                DBG=IDP     4387     A     
 DBG=IDP  *           BREAK KEYWORD TABLE AND THE *CBC* OPERATOR TABLE. A CHANGE           DBG=IDP     4388     A     
 DBG=IDP  *           TO ONE WOULD AFFECT THE OTHER.                                       DBG=IDP     4389     A     
 DBG=IDP  *              THE ORDER OF THE BREAK KEYWORDS WITHIN *IDPKBR* IS ALSO           DBG=IDP     4390     A     
 DBG=IDP  *           SIGNIFICANT--                                                        DBG=IDP     4391     A     
 DBG=IDP  *                BTC = 0  IS A BREAK WITH ONLY ONE ADDRESS EXPRESSION--          DBG=IDP     4392     A     
 DBG=IDP  *                            BREAK ADDR                                          DBG=IDP     4393     A     
 DBG=IDP  *                BTC .LT. BTC=EQ  ARE BREAKS WITH 2 ADDR EXPRESSIONS--           DBG=IDP     4394     A     
 DBG=IDP  *                            BRPL ADDR,ADDR1                                     DBG=IDP     4395     A     
 DBG=IDP  *                BTC .GE. BTC=EQ  ARE BREAKS WITH 3 ADDR EXPRESSIONS--           DBG=IDP     4396     A     
 DBG=IDP  *                            BREQ ADDR,ADDR1,ADDR2                               DBG=IDP     4397     A     
 DBG=IDP  *           THIS INFORMATION IS USED THROUGHOUT BREAK PROCESSING.                DBG=IDP     4398     A     
 DBG=IDP                                                                                   DBG=IDP     4399     A     
 DBG=IDP   IDPKBR   BSS    0                                                               DBG=IDP     4400     A     
 DBG=IDP            LOC    0                                                               DBG=IDP     4401     A     
 DBG=IDP            KEYW   BREAK,ST=BRK                                                    DBG=IDP     4402     A     
 DBG=IDP            KEYW   BRPL,ST=BRK                                                     DBG=IDP     4403     A     
 DBG=IDP            KEYW   BRMI,ST=BRK                                                     DBG=IDP     4404     A     
 DBG=IDP            KEYW   BRZR,ST=BRK                                                     DBG=IDP     4405     A     
 DBG=IDP            KEYW   BRNZ,ST=BRK                                                     DBG=IDP     4406     A     
 DBG=IDP   BTC=EQ   KEYW   BREQ,ST=BRK                                                     DBG=IDP     4407     A     
 DBG=IDP            KEYW   BRNE,ST=BRK                                                     DBG=IDP     4408     A     
 DBG=IDP            KEYW   BRLT,ST=BRK                                                     DBG=IDP     4409     A     
 DBG=IDP            KEYW   BRGE,ST=BRK                                                     DBG=IDP     4410     A     
 DBG=IDP            KEYW   BRLE,ST=BRK                                                     DBG=IDP     4411     A     
 DBG=IDP            KEYW   BRGT,ST=BRK                                                     DBG=IDP     4412     A     
 DBG=IDP            LOC    *O                                                              DBG=IDP     4413     A     
 DBG=IDP                                                                                   DBG=IDP     4414     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 270    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP  *         *STEP* KEYWORDS.                                                       DBG=IDP     4415     A     
 DBG=IDP  *              THE STEP TYPE CODE (IDPXTC) IS DETERMINED FROM THE STEP           DBG=IDP     4416     A     
 DBG=IDP  *           KEYWORD ORDINAL.                                                     DBG=IDP     4417     A     
 DBG=IDP  *              THERE EXISTS A ONE-TO-ONE RELATIONSHIP BETWEEN THE STEP           DBG=IDP     4418     A     
 DBG=IDP  *           KEYWORD TABLE AND THE *CBC* OPERATOR TABLE.                          DBG=IDP     4419     A     
 DBG=IDP  *              THE ORDER OF THE STEP KEYWORDS WITHIN *IDPKST* IS ALSO            DBG=IDP     4420     A     
 DBG=IDP  *           SIGNIFICANT--                                                        DBG=IDP     4421     A     
 DBG=IDP  *                XTC = 0  IS A STEP WITH NO ADDR EXPRESSION--                    DBG=IDP     4422     A     
 DBG=IDP  *                            STEP L,RJ                                           DBG=IDP     4423     A     
 DBG=IDP  *                XTC .LT. XTC=EQ ARE STEPS WITH 1 ADDR EXPRESSION--              DBG=IDP     4424     A     
 DBG=IDP  *                            STMI ADDR,L,RJ                                      DBG=IDP     4425     A     
 DBG=IDP  *                XTC .GE. XTC=EQ AND                                             DBG=IDP     4426     A     
 DBG=IDP  *                    .LT. XTC=RNG ARE STEPS WITH 2 ADDR EXPRESSIONS--            DBG=IDP     4427     A     
 DBG=IDP  *                            STGT ADDR1,ADDR2,L,RJ                               DBG=IDP     4428     A     
 DBG=IDP  *                XTC .GE. XTC=RNG ARE STEPS THAT ARE SPECIAL CASED--             DBG=IDP     4429     A     
 DBG=IDP  *                            STAR ADDR,L,RJ                                      DBG=IDP     4430     A     
 DBG=IDP  *           (ALSO SEE *BREAK* KEYWORDS)                                          DBG=IDP     4431     A     
 DBG=IDP                                                                                   DBG=IDP     4432     A     
 DBG=IDP   IDPKST   BSS    0                                                               DBG=IDP     4433     A     
 DBG=IDP            LOC    0                                                               DBG=IDP     4434     A     
 DBG=IDP            KEYW   STEP,ST=STP                                                     DBG=IDP     4435     A     
 DBG=IDP            KEYW   STPL,ST=STP                                                     DBG=IDP     4436     A     
 DBG=IDP            KEYW   STMI,ST=STP                                                     DBG=IDP     4437     A     
 DBG=IDP            KEYW   STZR,ST=STP                                                     DBG=IDP     4438     A     
 DBG=IDP            KEYW   STNZ,ST=STP                                                     DBG=IDP     4439     A     
 DBG=IDP   XTC=EQ   KEYW   STEQ,ST=STP                                                     DBG=IDP     4440     A     
 DBG=IDP            KEYW   STNE,ST=STP                                                     DBG=IDP     4441     A     
 DBG=IDP            KEYW   STLT,ST=STP                                                     DBG=IDP     4442     A     
 DBG=IDP            KEYW   STGE,ST=STP                                                     DBG=IDP     4443     A     
 DBG=IDP            KEYW   STLE,ST=STP                                                     DBG=IDP     4444     A     
 DBG=IDP            KEYW   STGT,ST=STP                                                     DBG=IDP     4445     A     
 DBG=IDP   XTC=RNG  KEYW   STRANGE,ST=STP                                                  DBG=IDP     4446     A     
 DBG=IDP   XTC=NR   KEYW   STNR,ST=STP                                                     DBG=IDP     4447          I
          -DBG0002
 DBG=IDP   XTC=NR   KEYW   STNR,ST=XNR                                                     DBG0002     1512     A     
 DBG=IDP   XTC=AR   KEYW   STAR,ST=STP                                                     DBG=IDP     4448     A     
 DBG=IDP            LOC    *O                                                              DBG=IDP     4449     A     
 DBG=IDP            DATA   0           END OF TABLE MARK                                   DBG=IDP     4450     A     
 DBG=IDP                                                                                   DBG=IDP     4451     A     
 DBG=IDP  **        *STEP* OPTIONS KEYWORD TABLE.                                          DBG=IDP     4452     A     
 DBG=IDP  *           THERE IS A ONE-TO-ONE RELATIONSHIP BETWEEN THE STEP OPTIONS          DBG=IDP     4453     A     
 DBG=IDP  *           KEYWORD TABLE AND THE STEP OPTIONS FLAGS (SEE *IDPXOP*)              DBG=IDP     4454     A     
 DBG=IDP                                                                                   DBG=IDP     4455     A     
 DBG=IDP   IDPKSTO  BSS    0                                                               DBG=IDP     4456     A     
 DBG=IDP            KEYW   L,1                                                             DBG=IDP     4457     A     
 DBG=IDP            KEYW   RJ,1                                                            DBG=IDP     4458     A     
 DBG=IDP            DATA   0           END OF TABLE MARK                                   DBG=IDP     4459     A     
 DBG=IDP   KEY      SPACE  4,8                                                             DBG0002     1513     A     
 DBG=IDP  **        *OUTPUT* OPTIONS KEYWORD TABLE.                                        DBG0002     1514     A     
 DBG=IDP                                                                                   DBG0002     1515     A     
 DBG=IDP   IDPKOUT  BSS    0                                                               DBG0002     1516     A     
 DBG=IDP            KEYW   B,ST=OUT3                                                       DBG0002     1517     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 271    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            KEYW   BECHO,ST=OUT4                                                   DBG0002     1518     A     
 DBG=IDP            KEYW   I,ST=OUT2                                                       DBG0002     1519     A     
 DBG=IDP            KEYW   IECHO,ST=OUT5                                                   DBG0002     1520     A     
 DBG=IDP            DATA   0           END OF TABLE MARK                                   DBG0002     1521     A     
 DBG=IDP   IDPBA    SPACE  4,8                                                             DBG=IDP     4460     A     
 DBG=IDP  **        IDPBA/IDPBC - BREAK ADDRESS AND BREAK CONTENTS PARALLEL TBLS.          DBG=IDP     4461     A     
 DBG=IDP                                                                                   DBG=IDP     4462     A     
 DBG=IDP   L.BA     =      10          LENGTH OF *IDPBA*                                   DBG=IDP     4463     A     
 DBG=IDP   IDPBA    BSS    0           FWA OF *BREAK* ADDR TABLE                           DBG=IDP     4464     A     
 DBG=IDP   .BA      DUP    L.BA,1                                                          DBG=IDP     4465     A     
 DBG=IDP            CON    -1                                                              DBG=IDP     4466     A     
 DBG=IDP            DATA   0           END OF TABLE TERMINATOR                             DBG=IDP     4467     A     
 DBG=IDP   IDPBC    BSSZ   2*L.BA      *BREAK* ADDR CONTENTS TABLE                         DBG=IDP     4468     A     
 DBG=IDP   IDPTMP   SPACE  4,8                                                             DBG=IDP     4469     A     
 DBG=IDP  **        IDP USER *TEMP* TABLE.                                                 DBG=IDP     4470     A     
 DBG=IDP                                                                                   DBG=IDP     4471     A     
 DBG=IDP   L.TMP    =      10D                                                             DBG=IDP     4472     A     
 DBG=IDP   IDPTMP   BSSZ   L.TMP                                                           DBG=IDP     4473     A     
 DBG=IDP   IDPSET   SPACE  4,8                                                             DBG=IDP     4474     A     
 DBG=IDP  **        IDP *SET* TABLE DEFINITION.                                            DBG=IDP     4475     A     
 DBG=IDP                                                                                   DBG=IDP     4476     A     
 DBG=IDP   L.SET    =      30B         LENGTH OF IDP *SET* TABLE                           DBG=IDP     4477     A     
 DBG=IDP   IDPSET   BSS    0                                                               DBG=IDP     4478     A     
 DBG=IDP            DUP    L.SET,1                                                         DBG=IDP     4479     A     
 DBG=IDP            CON    -1                                                              DBG=IDP     4480     A     
 DBG=IDP            DATA   0                                                               DBG=IDP     4481     A     
 DBG=IDP   IDPXFT   SPACE  4,8                                                             DBG0002     1522     A     
 DBG=IDP  **        IDPXFT - MOST RECENT TRANSFER ADDRESSES TABLE.                         DBG0002     1523     A     
 DBG=IDP  *                                                                                DBG0002     1524     A     
 DBG=IDP  *           TABLE FORMAT --                                                      DBG0002     1525     A     
 DBG=IDP  *                                                                                DBG0002     1526     A     
 DBG=IDP  *             XFT+0    VFD  30/-1  AVAILABLE ENTRY(ONLY IF XFT NOT FULL)         DBG0002     1527     A     
 DBG=IDP  *                       .                                                        DBG0002     1528     A     
 DBG=IDP  *                       .                                                        DBG0002     1529     A     
 DBG=IDP  *                +N    VFD  30/POS COUNTER,30/P REG OF EARLIEST XFER             DBG0002     1530     A     
 DBG=IDP  *                +N+1  VFD  30/POS COUNTER,30/P REG OF LATER XFER                DBG0002     1531     A     
 DBG=IDP  *                       .                                                        DBG0002     1532     A     
 DBG=IDP  *               +L.XFT VFD  60/0   END OF TABLE MARK                             DBG0002     1533     A     
 DBG=IDP                                                                                   DBG0002     1534     A     
 DBG=IDP   L.XFT    =      4                                                               DBG0002     1535     A     
 DBG=IDP   IDPXFT   BSS    0                                                               DBG0002     1536     A     
 DBG=IDP            DUP    L.XFT,1                                                         DBG0002     1537     A     
 DBG=IDP            CON    -1                                                              DBG0002     1538     A     
 DBG=IDP            DATA   0                                                               DBG0002     1539     A     
 DBG=IDP   IFR      SPACE  4,8                                                             DBG0006      140     A     
 DBG=IDP  ***       IFR - IDP FREEZE RESTART.                                              DBG0006      141     A     
 DBG=IDP  *                                                                                DBG0006      142     A     
 DBG=IDP  *                                                                                DBG0006      143     A     
 DBG=IDP                                                                                   DBG0006      144     A     
 DBG=IDP   FW.IFR   BSS    0           MARK FWA OF *FREEZE* RESTART AREA                   DBG0006      145     A     
 DBG=IDP                                                                                   DBG0006      146     A     
 DBG=IDP            QUAL   IFR                                                             DBG0006      147     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 272    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP   IFR      SPACE  4,8                                                             DBG0006      148     A     
 DBG=IDP  **        IFR - IDP FREEZE RECOVERY/RESTART.                                     DBG0006      149     A     
 DBG=IDP  *                                                                                DBG0006      150     A     
 DBG=IDP  *                                                                                DBG0006      151     A     
 DBG=IDP  *         THIS ROUTINE IS USED TO RESTART (I.E. SWAPIN) AN                       DBG0006      152     A     
 DBG=IDP  *         IDP HOST PROGRAM THAT WAS FROZEN VIA *FREEZE*                          DBG0006      153     A     
 DBG=IDP  *         COMMAND.  THE PROGRAM TO RESTART WAS WRITTEN BY *FRZ*                  DBG0006      154     A     
 DBG=IDP  *         TO LFN *F.FRZ* IN A SPECIAL FORMAT --                                  DBG0006      155     A     
 DBG=IDP  *                                                                                DBG0006      156     A     
 DBG=IDP  *           RECORD 1  CONTAINS *IFR* (THE CODE YOU ARE LOOKING AT)               DBG0006      157     A     
 DBG=IDP  *                     IN THE FORMAT OF AN ABSOLUTE BINARY.                       DBG0006      158     A     
 DBG=IDP  *                                                                                DBG0006      159     A     
 DBG=IDP  *           RECORD 2  CONTAINS THE CORE IMAGE OF THE FROZEN PROGRAM.             DBG0006      160     A     
 DBG=IDP  *                                                                                DBG0006      161     A     
 DBG=IDP  *         BECAUSE RECORD 1 OF *F.FRZ* LOOKS LIKE AN ABS BINARY, THE              DBG0006      162     A     
 DBG=IDP  *         PROGRAMMER NEED ONLY ENTER THE NAME OF THE FREEZE FILE AT              DBG0006      163     A     
 DBG=IDP  *         HIS OR HER TERMINAL IN ORDER TO RESTART THE HOST.                      DBG0006      164     A     
 DBG=IDP  *                                                                                DBG0006      165     A     
 DBG=IDP  *         AFTER *IFR* HAS BEEN LOADED, IT WILL MAKE AN OPERATING SYSTEM          DBG0006      166     A     
 DBG=IDP  *         REQUEST FOR THE AMOUNT OF CM THAT THE HOST HAD AT THE TIME IT          DBG0006      167     A     
 DBG=IDP  *         WAS FROZEN PLUS ENOUGH FOR *IFR* TO PERFORM THE FOLLOWING              DBG0006      168     A     
 DBG=IDP  *         TASKS.  AFTER *IFR* HAS CREATED A HOLE FOR THE HOST                    DBG0006      169     A     
 DBG=IDP  *         BY *MEM*ING, IT WILL *PLUG* SOME CODE UP ABOVE THE HOLE,               DBG0006      170     A     
 DBG=IDP  *         WHICH WILL READ IN THE 2ND RECORD OF *F.FRZ*.                          DBG0006      171     A     
 DBG=IDP  *                                                                                DBG0006      172     A     
 DBG=IDP  *         WE ALL HAVE CHET RICHARDS OF SVLOPS TO THANK FOR THIS                  DBG0006      173     A     
 DBG=IDP  *         DIABOLICALLY CLEVER IDEA.  HI HO SILVER, AND AWAY...                   DBG0006      174     A     
 DBG=IDP  *                                                                                DBG0006      175     A     
 DBG=IDP  *         IMPORTANT NOTE--  IT IS IMPORTANT TO REALIZE THAT                      DBG0006      176     A     
 DBG=IDP  *         THIS CODE, AS IT EXISTS IN /DBG=IDP/, IS A DATA SECTION,               DBG0006      177     A     
 DBG=IDP  *         I.E. IT CANNOT BE EXECUTED.  IT IS HERE ONLY SO THAT *FRZ*             DBG0006      178     A     
 DBG=IDP  *         CAN WRITE IT OUT AS THE 1ST RECORD ON *F.FRZ*.                         DBG0006      179     A     
 DBG=IDP  *                                                                                DBG0006      180     A     
 DBG=IDP  *         ENTRY  NONE                                                            DBG0006      181     A     
 DBG=IDP  *                                                                                DBG0006      182     A     
 DBG=IDP  *         EXIT   TO *RHH* IN HIGH CORE TO READ IN FROZEN HOST                    DBG0006      183     A     
 DBG=IDP  *                                                                                DBG0006      184     A     
 DBG=IDP  *         USES   IRRELEVANT                                                      DBG0006      185     A     
 DBG=IDP  *                                                                                DBG0006      186     A     
 DBG=IDP  *         CALLS  MEMORY                                                          DBG0006      187     A     
 DBG=IDP                                                                                   DBG0006      188     A     
 DBG=IDP                                                                                   DBG0006      189     A     
 DBG=IDP            LOC    RA.ORG                                                          DBG0006      190     A     
 DBG=IDP                                                                                   DBG0006      191     A     
 DBG=IDP            VFD    12/5000B,12/0,18/RA.ORG,18/IFR                                  DBG0006      192     A     
 DBG=IDP                                                                                   DBG0006      193     A     
 DBG=IDP   IFR      BSS    0           ** LOADER ENTRY POINT **                            DBG0006      194     A     
 DBG=IDP            SB1    1                                                               DBG0006      195     A     
 DBG=IDP                                                                                   DBG0006      196     A     
 DBG=IDP  *         REQUEST ENOUGH MEMORY FOR THE FROZEN HOST PLUS *RHH*.                  DBG0006      197     A     
 DBG=IDP  *         ALSO, IF *CMM* WAS ACTIVE IN FROZEN HOST, INDICATE SO TO               DBG0006      198     A     
 DBG=IDP  *         OPERATING SYSTEM.                                                      DBG0006      199     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 273    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG0006      200     A     
 DBG=IDP            SA2    SYS=MEM+1   (X2) = 30/AFLS OF FROZEN HOST,30/OTHER              DBG0006      201     A     
 DBG=IDP            SA1    CMMFLG      (X1) = .MI. IF *CMM* ACTIVE IN HOST,                DBG0006      202     A     
 DBG=IDP  *                                   ELSE .PL.                                    DBG0006      203     A     
 DBG=IDP            LX2    30                                                              DBG0006      204     A     
 DBG=IDP            MX3    1                                                               DBG0006      205     A     
 DBG=IDP            SX6    X2+L.RHH+L.IFRSZ+10B                                            DBG0006      206     A     
 DBG=IDP            BX7    X3*X1       (X7) = 1S59 IF *CMM* ACTIVE, ELSE +0                DBG0006      207     A     
 DBG=IDP            LX6    30          (X6) = 30/ENOUGH CORE FOR FROZEN HOST               DBG0006      208     A     
 DBG=IDP  *                                    AND *RHH*, 30/0                             DBG0006      209     A     
 DBG=IDP            LX7    2-59                                                            DBG0006      210     A     
 DBG=IDP            BX6    X6+X2       SET *CMM* BIT IF APPROPRIATE                        DBG0006      211     A     
 DBG=IDP            SA6    SYS=MEM                                                         DBG0006      212     A     
 DBG=IDP                                                                                   DBG0006      213     A     
 DBG=IDP                                                                                   DBG0006      214     A     
 DBG=IDP            SA1    IFRA        (X1) = *MEM* REQUEST WORD                           DBG0006      215     A     
 DBG=IDP            BX6    X1                                                              DBG0006      216     A     
 DBG=IDP            RJ     SYS         MAKE SYSTEM REQUEST                                 DBG0006      217     A     
 DBG=IDP                                                                                   DBG0006      218     A     
 DBG=IDP  *         RESTORE (RA.SSW) AND (FL-1).                                           DBG0006      219     A     
 DBG=IDP                                                                                   DBG0006      220     A     
 DBG=IDP            SA1    SVWDS       (X1) = SAVED (RA.SSW)                               DBG0006      221     A     
 DBG=IDP            SA3    A1+B1       (X3) = SAVED (FL-1)                                 DBG0006      222     A     
 DBG=IDP            BX6    X1                                                              DBG0006      223     A     
 DBG=IDP            LX7    X2                                                              DBG0006      224     A     
 DBG=IDP            =A6    RA.SSW                                                          DBG0006      225     A     
 DBG=IDP            SA7    X2-1                                                            DBG0006      226     A     
 DBG=IDP                                                                                   DBG0006      227     A     
 DBG=IDP  *         SET UP *F.FRZ* FET SO THAT A *READSKP* WILL READ                       DBG0006      228     A     
 DBG=IDP  *         THE FROZEN HOST FROM *F.FRZ/RECORD 2* INTO                             DBG0006      229     A     
 DBG=IDP  *         THE HOLE CREATED BY *MEM*.                                             DBG0006      230     A     
 DBG=IDP                                                                                   DBG0006      231     A     
 DBG=IDP            SA1    RA.PGN                                                          DBG0006      232     A     
 DBG=IDP            SX7    X2          (X7) = OUT = AFLS OF FROZEN HOST                    DBG0006      233     A     
 DBG=IDP            MX3    7*CHAR                                                          DBG0006      234     A     
 DBG=IDP            SA7    F.FRZ+3     OUT = AFLS OF FROZEN HOST                           DBG0006      235     A     
 DBG=IDP            SX4    122B        (X4) = *OPEN/NO REWIND* CIO CODE                    DBG0006      236     A     
 DBG=IDP            BX6    X3*X1                                                           DBG0006      237     A     
 DBG=IDP            SX7    X7+B1       (X7) = LIMIT = AFLS+1 OF FROZEN HOST                DBG0006      238     A     
 DBG=IDP            IX6    X6+X4                                                           DBG0006      239     A     
 DBG=IDP            SA7    A7+B1       LIMIT = AFLS+1 OF FROZEN HOST                       DBG0006      240     A     
 DBG=IDP            SA6    F.FRZ                                                           DBG0006      241     A     
 DBG=IDP            =X7    RA.MTR+1                                                        DBG0006      242     A     
 DBG=IDP            SA7    A6+B1       FIRST = RA.MTR+1                                    DBG0006      243     A     
 DBG=IDP            SA7    A7+B1       IN = FIRST =RA.MTR+1                                DBG0006      244     A     
 DBG=IDP                                                                                   DBG0006      245     A     
 DBG=IDP  *         MOVE *RHH* AND *F.FRZ* FET TO HIGH CORE                                DBG0006      246     A     
 DBG=IDP  *         (ABOVE HOLE CREATED FOR FROZEN HOST).                                  DBG0006      247     A     
 DBG=IDP                                                                                   DBG0006      248     A     
 DBG=IDP            SB4    B0                                                              DBG0006      249     A     
 DBG=IDP            SA1    FW.RHH      (A1,X1) = A+C OF 1ST WORD TO MOVE                   DBG0006      250     A     
 DBG=IDP            SB3    L.RHH       (B2) = NR OF WORDS TO MOVE                          DBG0006      251     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 274    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP            SB2    X2+L.IFRSZ  (B2) = ADDR TO MOVE TO                              DBG0006      252     A     
 DBG=IDP                                                                                   DBG0006      253     A     
 DBG=IDP   IFR2     BX6    X1                                                              DBG0006      254     A     
 DBG=IDP            SA6    B2+B4                                                           DBG0006      255     A     
 DBG=IDP            SB4    B4+B1                                                           DBG0006      256     A     
 DBG=IDP            SA1    A1+B1                                                           DBG0006      257     A     
 DBG=IDP            LT     B4,B3,IFR2  IF NOT DONE                                         DBG0006      258     A     
 DBG=IDP                                                                                   DBG0006      259     A     
 DBG=IDP  *         OPEN *F.FRZ*.                                                          DBG0006      260     A     
 DBG=IDP                                                                                   DBG0006      261     A     
 DBG=IDP            SA1    IFRB        (X1) = *CIO* REQUEST WORD                           DBG0006      262     A     
 DBG=IDP            SX2    B2+F.FRZ-FW.RHH   (X2) = FWA OF *F.FRZ* FET                     DBG0006      263     A     
 DBG=IDP            BX6    X1+X2                                                           DBG0006      264     A     
 DBG=IDP            SA6    A1          SAVE *CIO* REQUEST W/ ADDR OF MOVED *F.FRZ*         DBG0006      265     A     
 DBG=IDP            RJ     SYS         MAKE SYSTEM REQUEST TO OPEN *F.FRZ*                 DBG0006      266     A     
 DBG=IDP                                                                                   DBG0006      267     A     
 DBG=IDP  *         SET UP SYSTEM REQUEST TO PERFORM THE *READSKP*                         DBG0006      268     A     
 DBG=IDP  *         WHICH WILL READ THE FROZEN HOST INTO THE HOLE CREATED                  DBG0006      269     A     
 DBG=IDP  *         BY *MEM*.                                                              DBG0006      270     A     
 DBG=IDP                                                                                   DBG0006      271     A     
 DBG=IDP   IFR3     SA1    RA.MTR                                                          DBG0006      272     A     
 DBG=IDP            NZ     X1,IFR3     IF (RA.MTR) NOT CLEAR, WAIT...                      DBG0006      273     A     
 DBG=IDP                                                                                   DBG0006      274     A     
 DBG=IDP            SA1    SYS1                                                            DBG0006      275     A     
 DBG=IDP            SA2    B2+F.FRZ-FW.RHH   (A2,X2) = A+C OF *F.FRZ* FET WORD 1           DBG0006      276     A     
 DBG=IDP            SA3    IFRB        (X3) = *CIO* REQUEST WORD                           DBG0006      277     A     
 DBG=IDP            MX4    7*CHAR                                                          DBG0006      278     A     
 DBG=IDP            BX7    X1                                                              DBG0006      279     A     
 DBG=IDP            LX1    59-56       (X1) = .MI. IF *EQ* INSTRUCTION                     DBG0006      280     A     
 DBG=IDP  *                                 = .PL. IF *XJ* INSTRUCTION                     DBG0006      281     A     
 DBG=IDP            BX6    X4*X2       CLEAR BITS 0 THRU 17 OF *F.FRZ* WORD 1              DBG0006      282     A     
 DBG=IDP            SX4    22B         (X4) = *READSKP* CIO CODE                           DBG0006      283     A     
 DBG=IDP            IX6    X6+X4       MERGE *READSKP* CIO CODE                            DBG0006      284     A     
 DBG=IDP            SA6    A2                                                              DBG0006      285     A     
 DBG=IDP            BX6    X3          (X6) = *CIO* REQUEST WORD                           DBG0006      286     A     
 DBG=IDP                                                                                   DBG0006      287     A     
 DBG=IDP  *         RELOCATE *WAIT (RA.MTR) LOOP* IF NOT USING                             DBG0006      288     A     
 DBG=IDP  *         *XJ* INSTRUCTION.                                                      DBG0006      289     A     
 DBG=IDP                                                                                   DBG0006      290     A     
 DBG=IDP            PL     X1,IFR4     IF USING *XJ*                                       DBG0006      291     A     
 DBG=IDP            MX2    -18                                                             DBG0006      292     A     
 DBG=IDP            SX3    B2+B1       (X3) = ADDR OF *RHH* INSTRUCTIONS WHICH             DBG0006      293     A     
 DBG=IDP  *                                   ACTUALLY MAKES THE *CIO* REQUEST             DBG0006      294     A     
 DBG=IDP  *                                   TO READ *F.FRZ*                              DBG0006      295     A     
 DBG=IDP            BX7    X2*X7       CLEAR OLD ADDR                                      DBG0006      296     A     
 DBG=IDP            IX7    X7+X3       MERGE NEW ADDR                                      DBG0006      297     A     
 DBG=IDP            SA7    B2+B1                                                           DBG0006      298     A     
 DBG=IDP                                                                                   DBG0006      299     A     
 DBG=IDP  *         EVERYTHING IS READY TO GO...                                           DBG0006      300     A     
 DBG=IDP  *         TRANSFER CONTROL TO *RHH* UP IN HIGH CORE.                             DBG0006      301     A     
 DBG=IDP                                                                                   DBG0006      302     A     
 DBG=IDP   IFR4     JP     B2+                                                             DBG0006      303     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 275    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG0006      304     A     
 DBG=IDP                                                                                   DBG0006      305     A     
 DBG=IDP  *         *MEM* REQUEST WORD.                                                    DBG0006      306     A     
 DBG=IDP                                                                                   DBG0006      307     A     
 DBG=IDP   IFRA     VFD    18/3LMEM,3/2,21/0,18/SYS=MEM                                    DBG0006      308     A     
 DBG=IDP                                                                                   DBG0006      309     A     
 DBG=IDP  *         *CIO* REQUEST WORD.                                                    DBG0006      310     A     
 DBG=IDP                                                                                   DBG0006      311     A     
 DBG=IDP   IFRB     VFD    18/3LCIO,3/2,21/0,18/0                                          DBG0006      312     A     
 DBG=IDP   SYS      SPACE  4                                                               DBG0006      313     A     
 DBG=IDP  ***       SYS - PROCESS SYSTEM REQUEST.                                          DBG0006      314     A     
 DBG=IDP  *                                                                                DBG0006      315     A     
 DBG=IDP  *         ENTRY  (X6) = SYSTEM REQUEST.                                          DBG0006      316     A     
 DBG=IDP  *                                                                                DBG0006      317     A     
 DBG=IDP  *         EXIT   REQUEST PROCESSED.                                              DBG0006      318     A     
 DBG=IDP  *                                                                                DBG0006      319     A     
 DBG=IDP  *         USES   X - 1.                                                          DBG0006      320     A     
 DBG=IDP  *                B - NONE.                                                       DBG0006      321     A     
 DBG=IDP  *                A - 1, 6.                                                       DBG0006      322     A     
 DBG=IDP  *                                                                                DBG0006      323     A     
 DBG=IDP  *         CALLS  NONE.                                                           DBG0006      324     A     
 DBG=IDP                                                                                   DBG0006      325     A     
 DBG=IDP                                                                                   DBG0006      326     A     
 DBG=IDP  *         INSTRUCTION WORDS FOR MONITOR CALL.                                    DBG0006      327     A     
 DBG=IDP                                                                                   DBG0006      328     A     
 DBG=IDP   SYSA     BSS    0                                                               DBG0006      329     A     
 DBG=IDP            LOC    *+2                                                             DBG0006      330     A     
 DBG=IDP   +        SA1    A1          WAIT (RA+1) CLEAR IF AUTO RECALL                    DBG0006      331     A     
 DBG=IDP            LX1    59-40                                                           DBG0006      332     A     
 DBG=IDP            NG     X1,*                                                            DBG0006      333     A     
 DBG=IDP            LOC    SYSA+1                                                          DBG0006      334     A     
 DBG=IDP                                                                                   DBG0006      335     A     
 DBG=IDP            XJ                                                                     DBG0006      336     A     
 DBG=IDP                                                                                   DBG0006      337     A     
 DBG=IDP   SYS1     EQ     SYS2        FIRST ENTRY                                         DBG0006      338     A     
 DBG=IDP                                                                                   DBG0006      339     A     
 DBG=IDP   SYS      PS                 ENTRY/EXIT                                          DBG0006      340     A     
 DBG=IDP   +        SA1    1           WAIT (RA+1) CLEAR                                   DBG0006      341     A     
 DBG=IDP            NZ     X1,*                                                            DBG0006      342     A     
 DBG=IDP            SA6    A1          ENTER REQUEST                                       DBG0006      343     A     
 DBG=IDP            EQ     SYS1                                                            DBG0006      344     A     
 DBG=IDP                                                                                   DBG0006      345     A     
 DBG=IDP  *         INITIAL ENTRY TO SET TYPE OF CALL.                                     DBG0006      346     A     
 DBG=IDP                                                                                   DBG0006      347     A     
 DBG=IDP   SYS2     SA1    SYSA        NO MEJ/CEJ OPTION                                   DBG0006      348     A     
 DBG=IDP            BX6    X1                                                              DBG0006      349     A     
 DBG=IDP                                                                                   DBG0006      350     A     
 DBG=IDP            SA1    RA.CEJ                                                          DBG0006      351     A     
 DBG=IDP            PL     X1,SYS3     IF NO MEJ/CEJ PRESENT                               DBG0006      352     A     
 DBG=IDP            SA1    SYSA+1                                                          DBG0006      353     A     
 DBG=IDP            BX6    X1                                                              DBG0006      354     A     
 DBG=IDP   SYS3     BSS    0                                                               DBG0006      355     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 276    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP                                                                                   DBG0006      356     A     
 DBG=IDP            SA6    SYS1        SET MONITOR CALL                                    DBG0006      357     A     
 DBG=IDP            SA1    1           RESET (A1)                                          DBG0006      358     A     
 DBG=IDP            BX6    X1                                                              DBG0006      359     A     
 DBG=IDP            RJ     SYS1-1      CLEAR STACK                                         DBG0006      360     A     
 DBG=IDP   IFR      SPACE  4,8                                                             DBG0006      361     A     
 DBG=IDP   SYS=MEM  BSSZ   2           30/AFLS OF HOST PLUS *RHH*,30/0                     DBG0006      362     A     
 DBG=IDP  *                            30/AFLS OF HOST,30/0                                DBG0006      363     A     
 DBG=IDP                                                                                   DBG0006      364     A     
 DBG=IDP   L.IFRSZ  =      10B         LEN OF SAFETY ZONE BETWEEN HOST AND *RHH*           DBG0006      365     A     
 DBG=IDP                                                                                   DBG0006      366     A     
 DBG=IDP                                                                                   DBG0006      367     A     
 DBG=IDP   SVWDS    BSSZ   1           SAVED (RA.SSW)                                      DBG0006      368     A     
 DBG=IDP            BSSZ   1           SAVED (FL-1)                                        DBG0006      369     A     
 DBG=IDP                                                                                   DBG0006      370     A     
 DBG=IDP   CMMFLG   BSSZ   1           .MI. IF *CMM* ACTIVE, ELSE .PL.                     DBG0006      371     A     
 DBG=IDP   RHH      SPACE  4,8                                                             DBG0006      372     A     
 DBG=IDP  **        RHH - READ HOST INTO HOLE.                                             DBG0006      373     A     
 DBG=IDP  *                                                                                DBG0006      374     A     
 DBG=IDP  *                                                                                DBG0006      375     A     
 DBG=IDP  *         THIS ROUTINE MAKES THE ACTUAL OPERATING SYSTEM REQUEST                 DBG0006      376     A     
 DBG=IDP  *         TO READ THE FROZEN HOST FROM *F.FRZ/RECORD 2*                          DBG0006      377     A     
 DBG=IDP  *         INTO THE HOLE CREATED BY *IFR*.                                        DBG0006      378     A     
 DBG=IDP  *                                                                                DBG0006      379     A     
 DBG=IDP  *         ENTRY  (X6) = *CIO* REQUEST WORD                                       DBG0006      380     A     
 DBG=IDP  *                                                                                DBG0006      381     A     
 DBG=IDP  *         EXIT   TO *IDP=MN* IN UNFROZEN HOST                                    DBG0006      382     A     
 DBG=IDP  *                                                                                DBG0006      383     A     
 DBG=IDP  *         USES                                                                   DBG0006      384     A     
 DBG=IDP  *                                                                                DBG0006      385     A     
 DBG=IDP  *         CALLS  NONE                                                            DBG0006      386     A     
 DBG=IDP                                                                                   DBG0006      387     A     
 DBG=IDP   FW.RHH   BSS    0           MARK FWA OF*RHH*                                    DBG0006      388     A     
 DBG=IDP                                                                                   DBG0006      389     A     
 DBG=IDP   RHH      BSS    0           ** ENTRY **                                         DBG0006      390     A     
 DBG=IDP            SA6    RA.MTR                                                          DBG0006      391     A     
 DBG=IDP                                                                                   DBG0006      392     A     
 DBG=IDP  *         THE FOLLOWING LOCATION WILL BE PLUGGED WITH                            DBG0006      393     A     
 DBG=IDP  *         A *WAIT (RA.MTR)* LOOP BY *IFR* IF NO *XJ* INSTRUCTION                 DBG0006      394     A     
 DBG=IDP  *         AVAILABLE.                                                             DBG0006      395     A     
 DBG=IDP                                                                                   DBG0006      396     A     
 DBG=IDP  +         XJ                                                                     DBG0006      397     A     
 DBG=IDP                                                                                   DBG0006      398     A     
 DBG=IDP  *         THE INTERACTIVE HOST IS NOW BACK IN CORE... RE-ENTER *IDP*.            DBG0006      399     A     
 DBG=IDP                                                                                   DBG0006      400     A     
 DBG=IDP  +         EQ     IDP=IFR                                                         DBG0006      401     A     
 DBG=IDP   F.FRZ    SPACE  4,8                                                             DBG0006      402     A     
 DBG=IDP  **        F.FRZ - FET FOR *FREEZE* FILE.                                         DBG0006      403     A     
 DBG=IDP                                                                                   DBG0006      404     A     
 DBG=IDP   F.FRZ    BSS    0           ** FWA OF FET **                                    DBG0006      405     A     
 DBG=IDP   L.FRZ    =      101B        LENGTH OF *F.FRZ* BUFFER FOR RECORD 1 WRITE         DBG0006      406     A     
 DBG=IDP  *                            (I.E. SMALLEST POSSIBLE, 1 PRU)                     DBG0006      407     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 277    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=IDP 
  
 DBG=IDP   FRZ      FILEB  /DBG=IDP/FW.IFR,L.FRZ                                           DBG0006      408     A     
 DBG=IDP                                                                                   DBG0006      409     A     
 DBG=IDP                                                                                   DBG0006      410     A     
 DBG=IDP   L.RHH    =      *-FW.RHH+1                                                      DBG0006      411     A     
 DBG=IDP                                                                                   DBG0006      412     A     
 DBG=IDP            LOC    *O                                                              DBG0006      413     A     
 DBG=IDP            QUAL   *                                                               DBG0006      414     A     
 DBG=IDP                                                                                   DBG0006      415     A     
 DBG=IDP   L.IFR    =      *-FW.IFR+1  LENGTH OF IDP FREEZE RESTART PROGRAM                DBG0006      416     A     
 DBG=IDP   F.FRZ    =      FW.IFR+/IFR/F.FRZ-RA.ORG  SO THAT *IDP* CAN REF FET             DBG0006      417     A     
 DBG=IDP   IDP      SPACE  4,8                                                             DBG0006      418     A     
 DBG=IDP                                                                                   DBG=IDP     4482     A     
 DBG=IDP   #OS      ELSE                                                                   DBG=IDP     4483     A     
 DBG=IDP   IDP=     SUBR               ** ENTRY/EXIT **                                    DBG=IDP     4484     A     
 DBG=IDP            EQ     EXIT.                                                           DBG=IDP     4485     A     
 DBG=IDP   #OS      ENDIF                                                                  DBG=IDP     4486     A     
 DBG=IDP   DBG=IDP  SPACE  4,8                                                             DBG=IDP     4487     A     
 DBG=IDP            BASE   *                                                               DBG=IDP     4488     A     
 DBG=IDP   QUAL$    IF     -DEF,QUAL$                                                      DBG=IDP     4489     A     
 DBG=IDP            QUAL   *                                                               DBG=IDP     4490     A     
 DBG=IDP   IDP=     =      /DBG=IDP/IDP=                                                   DBG=IDP     4491     A     
 DBG=IDP                                                                                   DBG=IDP     4492     A     
 DBG=IDP            IF     DEF,/DBG=IDP/.OS,1                                              DBG=IDP     4493     A     
 DBG=IDP   .OS      =      /DBG=IDP/.OS                                                    DBG=IDP     4494     A     
 DBG=IDP   #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      DBG=IDP     4495     A     
 DBG=IDP   IDP=ER   =      /DBG=IDP/IDP=ER                                                 DBG=IDP     4496     A     
 DBG=IDP   IDP=IFR  =      /DBG=IDP/IDP=IFR                                                DBG0006      419     A     
 DBG=IDP   IDP=MN   =      /DBG=IDP/IDP=MN                                                 DBG=IDP     4497     A     
 DBG=IDP   #OS      ENDIF                                                                  DBG=IDP     4498     A     
 DBG=IDP                                                                                   DBG=IDP     4499     A     
 DBG=IDP   REG=     =      /DBG=IDP/REG=                                                   DBG=IDP     4500     A     
 DBG=IDP   SNP=     =      /DBG=IDP/SNP=                                                   DBG=IDP     4501     A     
 DBG=IDP   QUAL$    ENDIF                                                                  DBG=IDP     4502     A     
 DBG=IDP            ENDX                                                                   DBG=IDP     4503     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DBG=IDP 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DBG=IDP                   4503      3886
          DBG0001                    120       120
          DBG0002                   1518      1515
          DBG0004                      1         1
          DBG0005                      2         2
          DBG0006                    415       415
          DBG0009                     25        25
          FCCA580                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=MAC 
  
 DBG=MAC  *COMDECK DBG=MAC                                                                 DBG=MAC        1     A     
 DBG=MAC   DBG=MAC  CTEXT  DBG=MAC - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.           DBG=MAC        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 278    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=MAC 
  
 DBG=MAC   DBG=MAC  SPACE  4,8                                                             DBG=MAC        3     A     
 DBG=MAC            IF     -DEF,QUAL$,1                                                    DBG=MAC        4     A     
 DBG=MAC            QUAL   DBG=MAC                                                         DBG=MAC        5     A     
 DBG=MAC            BASE   D                                                               DBG=MAC        6     A     
 DBG=MAC   DBG=MAC  SPACE  4,8                                                             DBG=MAC        7     A     
 DBG=MAC  **        DBG=MAC - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.                  DBG=MAC        8     A     
 DBG=MAC  *                                                                                DBG=MAC        9     A     
 DBG=MAC  *                                                                                DBG=MAC       10     A     
 DBG=MAC  *                CONTAINS THE MACROS USED TO ACCESS THE ROUTINES IN              DBG=MAC       11     A     
 DBG=MAC  *         *DBG=IDP*--                                                            DBG=MAC       12     A     
 DBG=MAC  *                                                                                DBG=MAC       13     A     
 DBG=MAC  * NAME    BREAK  LL,UL,INC   TO PLACE A BREAKPOINT                               DBG=MAC       14     A     
 DBG=MAC  * NAME    REG                TO PROVIDE A SNAPSHOT OF ALL REGISTERS              DBG=MAC       15     A     
 DBG=MAC  * NAME    REG    (X1,X2,A4)  TO PROVIDE A SNAPSHOT OF SELECTED REGISTERS         DBG=MAC       16     A     
 DBG=MAC  * NAME    SNAP   FWA,LWA,LEN TO PROVIDE A SNAPSHOT OF CENTRAL MEMORY             DBG=MAC       17     A     
 DBG=MAC   BREAK    SPACE  4,8                                                             DBG=MAC       18     A     
 DBG=MAC  **        BREAK - PLACE A BREAKPOINT.                                            DBG=MAC       19     A     
 DBG=MAC  *                                                                                DBG=MAC       20     A     
 DBG=MAC  *                                                                                DBG=MAC       21     A     
 DBG=MAC  *                THIS MACRO DOES A RETURN JUMP TO THE INTERACTIVE                DBG=MAC       22     A     
 DBG=MAC  *         DEBUG PACKAGE *IDP*.                                                   DBG=MAC       23     A     
 DBG=MAC  *                                                                                DBG=MAC       24     A     
 DBG=MAC  * NAME    BREAK  LL,UL,INC                                                       DBG=MAC       25     A     
 DBG=MAC  *                                                                                DBG=MAC       26     A     
 DBG=MAC  *         ENTRY  NAME = DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH            DBG=MAC       27     A     
 DBG=MAC  *                         EACH SNAP. (NR CHARS.LE.8)                             DBG=MAC       28     A     
 DBG=MAC  *                LL   = LOWER LIMIT (DEFAULT=1)                                  DBG=MAC       29     A     
 DBG=MAC  *                UL   = UPPER LIMIT (DEFAULT=100)                                DBG=MAC       30     A     
 DBG=MAC  *                NUSE =  USE BLOCK FLAG. IF *NUSE* IS NULL, THE PARA-            DBG=MAC       31     A     
 DBG=MAC  *                          METER LIST EXISTS IN *USE DEBUG*, ELSE IS             DBG=MAC       32     A     
 DBG=MAC  *                          ASSEMBLED AFTER *RJ*                                  DBG=MAC       33     A     
 DBG=MAC  *                                                                                DBG=MAC       34     A     
 DBG=MAC  *         EXIT   NONE                                                            DBG=MAC       35     A     
 DBG=MAC  *                                                                                DBG=MAC       36     A     
 DBG=MAC  *         USES   NONE                                                            DBG=MAC       37     A     
 DBG=MAC  *                                                                                DBG=MAC       38     A     
 DBG=MAC  *         CALLS  IDP=                                                            DBG=MAC       39     A     
 DBG=MAC                                                                                   DBG=MAC       40     A     
 DBG=MAC                                                                                   DBG=MAC       41     A     
 DBG=MAC            PURGMAC BREAK                                                          DBG=MAC       42     A     
 DBG=MAC                                                                                   DBG=MAC       43     A     
 DBG=MAC            MACRO  BREAK,NAME,LL,UL,INC,NUSE                                       DBG=MAC       44     A     
 DBG=MAC            LOCAL  RTN                                                             DBG=MAC       45     A     
 DBG=MAC            LOCAL  APL                                                             DBG=MAC       46     A     
 DBG=MAC  *                                                                                DBG=MAC       47     A     
 DBG=MAC   +        RJ     =XIDP=                                                          DBG=MAC       48     A     
 DBG=MAC   -        VFD    30/APL                                                          DBG=MAC       49     A     
 DBG=MAC  *                                                                                DBG=MAC       50     A     
 DBG=MAC   #NUSE    IFC    EQ,/NUSE//                                                      DBG=MAC       51     A     
 DBG=MAC            USE    DEBUG                                                           DBG=MAC       52     A     
 DBG=MAC  *                                                                                DBG=MAC       53     A     
 DBG=MAC   #NUSE    ELSE                                                                   DBG=MAC       54     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 279    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=MAC 
  
 DBG=MAC            EQ     RTN                                                             DBG=MAC       55     A     
 DBG=MAC   #NUSE    ENDIF                                                                  DBG=MAC       56     A     
 DBG=MAC   APL      BSS    0                                                               DBG=MAC       57     A     
 DBG=MAC            FRK=   (NAME),LL,UL,INC                                                DBG=MAC       58     A     
 DBG=MAC  *                                                                                DBG=MAC       59     A     
 DBG=MAC   #NUSE    IFC    EQ,/NUSE//                                                      DBG=MAC       60     A     
 DBG=MAC            USE    *                                                               DBG=MAC       61     A     
 DBG=MAC  *                                                                                DBG=MAC       62     A     
 DBG=MAC   #NUSE    ELSE                                                                   DBG=MAC       63     A     
 DBG=MAC   RTN      BSS    0                                                               DBG=MAC       64     A     
 DBG=MAC   #NUSE    ENDIF                                                                  DBG=MAC       65     A     
 DBG=MAC  *                                                                                DBG=MAC       66     A     
 DBG=MAC   BREAK    ENDM                                                                   DBG=MAC       67     A     
 DBG=MAC   FRK=     SPACE  4,8                                                             DBG=MAC       68     A     
 DBG=MAC  **        FRK= - GENERATE FREQUENCY PARAMETER LIST.                              DBG=MAC       69     A     
 DBG=MAC  *                                                                                DBG=MAC       70     A     
 DBG=MAC  *                                                                                DBG=MAC       71     A     
 DBG=MAC  *         FRK=   (NAME),LL,UL,INC                                                DBG=MAC       72     A     
 DBG=MAC  *                                                                                DBG=MAC       73     A     
 DBG=MAC  *         ENTRY  NAME =  DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH           DBG=MAC       74     A     
 DBG=MAC  *                          EACH SNAP. (NR CHARS.LE.8)                            DBG=MAC       75     A     
 DBG=MAC  *                LL   =  LOWER LIMIT (DEFAULT=1)                                 DBG=MAC       76     A     
 DBG=MAC  *                UL   =  UPPER LIMIT (DEFAULT=100)                               DBG=MAC       77     A     
 DBG=MAC  *                INC  =  INCREMENT (DEFAULT=1)                                   DBG=MAC       78     A     
 DBG=MAC  *                          LL, UL, AND INC ARE THE SNAP FREQUENCY PAR-           DBG=MAC       79     A     
 DBG=MAC  *                          AMETERS AND ARE RELATED AS FOLLOWS--  THE 1ST         DBG=MAC       80     A     
 DBG=MAC  *                          SNAP PRINTED WILL OCCUR THE LLTH TIME THIS            DBG=MAC       81     A     
 DBG=MAC  *                          SNAP IS EXECUTED. THE 2ND SNAP PRINTED WILL           DBG=MAC       82     A     
 DBG=MAC  *                          OCCUR THE (LL+INC)TH TIME THIS SNAP IS EXEC-          DBG=MAC       83     A     
 DBG=MAC  *                          UTED, AND SO ON. THE LAST SNAP PRINTED WILL           DBG=MAC       84     A     
 DBG=MAC  *                          OCCUR THE ULTH TIME THIS SNAP IS EXECUTED.            DBG=MAC       85     A     
 DBG=MAC  *                                                                                DBG=MAC       86     A     
 DBG=MAC  *         EXIT   NONE                                                            DBG=MAC       87     A     
 DBG=MAC  *                                                                                DBG=MAC       88     A     
 DBG=MAC  *         USES   NONE                                                            DBG=MAC       89     A     
 DBG=MAC  *                                                                                DBG=MAC       90     A     
 DBG=MAC  *         CALLS  NONE                                                            DBG=MAC       91     A     
 DBG=MAC                                                                                   DBG=MAC       92     A     
 DBG=MAC                                                                                   DBG=MAC       93     A     
 DBG=MAC            PURGMAC FRK=                                                           DBG=MAC       94     A     
 DBG=MAC                                                                                   DBG=MAC       95     A     
 DBG=MAC   FRK=     MACRO  NAME,LL,UL,INC                                                  DBG=MAC       96     A     
 DBG=MAC            CON    LL  1                                                           DBG=MAC       97     A     
 DBG=MAC            CON    UL  100                                                         DBG=MAC       98     A     
 DBG=MAC            CON    INC 1                                                           DBG=MAC       99     A     
 DBG=MAC   .1       IFC    EQ,/NAME//                                                      DBG=MAC      100     A     
 DBG=MAC            CON    0                                                               DBG=MAC      101     A     
 DBG=MAC   .1       ELSE                                                                   DBG=MAC      102     A     
 DBG=MAC            CON    10H_NAME                                                        DBG=MAC      103     A     
 DBG=MAC   .1       ENDIF                                                                  DBG=MAC      104     A     
 DBG=MAC            CON    0                                                               DBG=MAC      105     A     
 DBG=MAC  *                            USED BY *FRK=/TSNAP* TO KEEP SNAP COUNT             DBG=MAC      106     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 280    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=MAC 
  
 DBG=MAC   FRK=     ENDM                                                                   DBG=MAC      107     A     
 DBG=MAC   REG      SPACE  4,8                                                             DBG=MAC      108     A     
 DBG=MAC  **        REG - REGISTER SNAPSHOT.                                               DBG=MAC      109     A     
 DBG=MAC  *                                                                                DBG=MAC      110     A     
 DBG=MAC  *                                                                                DBG=MAC      111     A     
 DBG=MAC  * NAME    REG    RG,LL,UL,INC                                                    DBG=MAC      112     A     
 DBG=MAC  *                                                                                DBG=MAC      113     A     
 DBG=MAC  *         REG                                                                    DBG=MAC      114     A     
 DBG=MAC  *         REG    (X1,B3,A4)                                                      DBG=MAC      115     A     
 DBG=MAC  *         REG    NOREG                                                           DBG=MAC      116     A     
 DBG=MAC  *                                                                                DBG=MAC      117     A     
 DBG=MAC  *         ENTRY  NAME =  DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH           DBG=MAC      118     A     
 DBG=MAC  *                          EACH SNAP. (NR CHARS.LE.8)                            DBG=MAC      119     A     
 DBG=MAC  *                     =  NULL IF NO SNAP HEADER                                  DBG=MAC      120     A     
 DBG=MAC  *                RG   =  NULL IF ALL REGISTERS ARE TO BE DUMPED                  DBG=MAC      121     A     
 DBG=MAC  *                     =  A LIST OF THE REGISTERS (ENCLOSED IN PARENS)            DBG=MAC      122     A     
 DBG=MAC  *                          DESIRED TO BE DUMPED                                  DBG=MAC      123     A     
 DBG=MAC  *                     =  NON-REGISTER/NON-NULL IF NO REGISTERS TO BE             DBG=MAC      124     A     
 DBG=MAC  *                          DUMPED                                                DBG=MAC      125     A     
 DBG=MAC  *                LL   =  LOWER LIMIT (DEFAULT=1)                                 DBG=MAC      126     A     
 DBG=MAC  *                UL   =  UPPER LIMIT (DEFAULT=100)                               DBG=MAC      127     A     
 DBG=MAC  *                NUSE =  USE BLOCK FLAG. IF *NUSE* IS NULL, THE PARA-            DBG=MAC      128     A     
 DBG=MAC  *                          METER LIST EXISTS IN *USE DEBUG*, ELSE IS             DBG=MAC      129     A     
 DBG=MAC  *                          ASSEMBLED AFTER *RJ*                                  DBG=MAC      130     A     
 DBG=MAC  *                                                                                DBG=MAC      131     A     
 DBG=MAC  *         EXIT   NONE                                                            DBG=MAC      132     A     
 DBG=MAC  *                                                                                DBG=MAC      133     A     
 DBG=MAC  *         USES   NONE                                                            DBG=MAC      134     A     
 DBG=MAC  *                                                                                DBG=MAC      135     A     
 DBG=MAC  *         CALLS  FRK=,REG=,RGR=                                                  DBG=MAC      136     A     
 DBG=MAC                                                                                   DBG=MAC      137     A     
 DBG=MAC                                                                                   DBG=MAC      138     A     
 DBG=MAC            PURGMAC REG                                                            DBG=MAC      139     A     
 DBG=MAC                                                                                   DBG=MAC      140     A     
 DBG=MAC            MACRO  REG,NAME,RG,LL,UL,INC,NUSE                                      DBG=MAC      141     A     
 DBG=MAC            LOCAL  RTN                                                             DBG=MAC      142     A     
 DBG=MAC            LOCAL  APL                                                             DBG=MAC      143     A     
 DBG=MAC  *                                                                                DBG=MAC      144     A     
 DBG=MAC   +        RJ     =XREG=                                                          DBG=MAC      145     A     
 DBG=MAC   -        VFD    30/APL                                                          DBG=MAC      146     A     
 DBG=MAC  *                                                                                DBG=MAC      147     A     
 DBG=MAC   #NUSE    IFC    EQ,/NUSE//                                                      DBG=MAC      148     A     
 DBG=MAC            USE    DEBUG                                                           DBG=MAC      149     A     
 DBG=MAC  *                                                                                DBG=MAC      150     A     
 DBG=MAC   #NUSE    ELSE                                                                   DBG=MAC      151     A     
 DBG=MAC            EQ     RTN                                                             DBG=MAC      152     A     
 DBG=MAC   #NUSE    ENDIF                                                                  DBG=MAC      153     A     
 DBG=MAC   APL      BSS    0                                                               DBG=MAC      154     A     
 DBG=MAC            FRK=   (NAME),LL,UL,INC                                                DBG=MAC      155     A     
 DBG=MAC            RGR=   (RG)                                                            DBG=MAC      156     A     
 DBG=MAC  *                                                                                DBG=MAC      157     A     
 DBG=MAC   #NUSE    IFC    EQ,/NUSE//                                                      DBG=MAC      158     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 281    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=MAC 
  
 DBG=MAC            USE    *                                                               DBG=MAC      159     A     
 DBG=MAC  *                                                                                DBG=MAC      160     A     
 DBG=MAC   #NUSE    ELSE                                                                   DBG=MAC      161     A     
 DBG=MAC   RTN      BSS    0                                                               DBG=MAC      162     A     
 DBG=MAC   #NUSE    ENDIF                                                                  DBG=MAC      163     A     
 DBG=MAC  *                                                                                DBG=MAC      164     A     
 DBG=MAC   REG      ENDM                                                                   DBG=MAC      165     A     
 DBG=MAC                                                                                   DBG=MAC      166     A     
 DBG=MAC            PURGMAC REGS                                                           DBG=MAC      167     A     
 DBG=MAC   REGS     OPSYN  REG                                                             DBG=MAC      168     A     
 DBG=MAC   RGR=     SPACE  4,8                                                             DBG=MAC      169     A     
 DBG=MAC  **        RGR= - GENERATE REGISTER PARAMETER LIST.                               DBG=MAC      170     A     
 DBG=MAC  *                                                                                DBG=MAC      171     A     
 DBG=MAC  *                                                                                DBG=MAC      172     A     
 DBG=MAC  *                SEE *DSR/DBG=IDP*.                                              DBG=MAC      173     A     
 DBG=MAC  *                                                                                DBG=MAC      174     A     
 DBG=MAC  *         RGR=   RG                                                              DBG=MAC      175     A     
 DBG=MAC  *                                                                                DBG=MAC      176     A     
 DBG=MAC  *         RGR=                                                                   DBG=MAC      177     A     
 DBG=MAC  *         RGR=   (X1,X2,A3,B4)                                                   DBG=MAC      178     A     
 DBG=MAC  *         RGR=   NOREG                                                           DBG=MAC      179     A     
 DBG=MAC  *                                                                                DBG=MAC      180     A     
 DBG=MAC  *         ENTRY  RG   =  NULL IF ALL REGISTERS ARE TO BE DUMPED                  DBG=MAC      181     A     
 DBG=MAC  *                     =  A LIST OF THE REGISTERS (ENCLOSED IN PARENS)            DBG=MAC      182     A     
 DBG=MAC  *                          DESIRED TO BE DUMPED                                  DBG=MAC      183     A     
 DBG=MAC  *                     =  NON-REGISTER/NON-NULL IF NO REGISTERS TO BE             DBG=MAC      184     A     
 DBG=MAC  *                          DUMPED                                                DBG=MAC      185     A     
 DBG=MAC  *                                                                                DBG=MAC      186     A     
 DBG=MAC  *         EXIT   NONE                                                            DBG=MAC      187     A     
 DBG=MAC  *                                                                                DBG=MAC      188     A     
 DBG=MAC  *         USES   NONE                                                            DBG=MAC      189     A     
 DBG=MAC  *                                                                                DBG=MAC      190     A     
 DBG=MAC  *         CALLS  NONE                                                            DBG=MAC      191     A     
 DBG=MAC                                                                                   DBG=MAC      192     A     
 DBG=MAC                                                                                   DBG=MAC      193     A     
 DBG=MAC            PURGMAC RGR=                                                           DBG=MAC      194     A     
 DBG=MAC                                                                                   DBG=MAC      195     A     
 DBG=MAC   RGR=     MACRO  RG                                                              DBG=MAC      196     A     
 DBG=MAC  *                                                                                DBG=MAC      197     A     
 DBG=MAC   .1       IFC    EQ,/RG//                                                        DBG=MAC      198     A     
 DBG=MAC            DATA   -1                                                              DBG=MAC      199     A     
 DBG=MAC   .1       ELSE                                                                   DBG=MAC      200     A     
 DBG=MAC  *                                                                                DBG=MAC      201     A     
 DBG=MAC   .2       IRP    RG                                                              DBG=MAC      202     A     
 DBG=MAC   .3       IF     -REG,RG                                                         DBG=MAC      203     A     
 DBG=MAC            DATA   0                                                               DBG=MAC      204     A     
 DBG=MAC   .3       ELSE                                                                   DBG=MAC      205     A     
 DBG=MAC   .T       MICRO  1,1,/RG/                                                        DBG=MAC      206     A     
 DBG=MAC   .R       MICRO  2,1,/RG/                                                        DBG=MAC      207     A     
 DBG=MAC            VFD    60/=XSV_".T"+".R"                                               DBG=MAC      208     A     
 DBG=MAC   .3       ENDIF                                                                  DBG=MAC      209     A     
 DBG=MAC   .2       IRP                                                                    DBG=MAC      210     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 282    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=MAC 
  
 DBG=MAC  *                                                                                DBG=MAC      211     A     
 DBG=MAC            DATA   0                                                               DBG=MAC      212     A     
 DBG=MAC   .1       ENDIF                                                                  DBG=MAC      213     A     
 DBG=MAC  *                                                                                DBG=MAC      214     A     
 DBG=MAC   RGR=     ENDM                                                                   DBG=MAC      215     A     
 DBG=MAC   SNAP     SPACE  4,8                                                             DBG=MAC      216     A     
 DBG=MAC  **        SNAP - SNAPSHOT OF REGISTERS AND CORE.                                 DBG=MAC      217     A     
 DBG=MAC  *                                                                                DBG=MAC      218     A     
 DBG=MAC  *                                                                                DBG=MAC      219     A     
 DBG=MAC  * NAME    SNAP   FWA,LWA,LNG,RG,LL,UL,INC                                        DBG=MAC      220     A     
 DBG=MAC  *         SNAP   *FWA,,**LNG,(X1,X2,B5,A1)                                       DBG=MAC      221     A     
 DBG=MAC  *                                                                                DBG=MAC      222     A     
 DBG=MAC  *         ENTRY  NAME =  DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH           DBG=MAC      223     A     
 DBG=MAC  *                          EACH SNAP. (NR CHARS.LE.8)                            DBG=MAC      224     A     
 DBG=MAC  *                     =  NULL IF NO SNAP HEADER                                  DBG=MAC      225     A     
 DBG=MAC  *                FWA  =  FWA OF CORE TO BE DUMPED. THIS PARAMETER MUST           DBG=MAC      226     A     
 DBG=MAC  *                          APPEAR IF A CORE DUMP IS DESIRED.                     DBG=MAC      227     A     
 DBG=MAC  *                LWA  =  LWA OF CORE TO BE DUMPED. (OPTIONAL)                    DBG=MAC      228     A     
 DBG=MAC  *                LNG  =  NR OF WORDS TO BE DUMPED. *LWA* AND *LNG* ARE           DBG=MAC      229     A     
 DBG=MAC  *                          RELATED AS FOLLOWS--  DUMP IS FROM                    DBG=MAC      230     A     
 DBG=MAC  *                          FWA TO FWA+LNG UNLESS LNG IS NULL OR ZERO.            DBG=MAC      231     A     
 DBG=MAC  *                          IN THAT CASE, DUMP IS FROM FWA TO LWA.                DBG=MAC      232     A     
 DBG=MAC  *                RG   =  NULL IF ALL REGISTERS ARE TO BE DUMPED                  DBG=MAC      233     A     
 DBG=MAC  *                     =  A LIST OF THE REGISTERS (ENCLOSED IN PARENS)            DBG=MAC      234     A     
 DBG=MAC  *                          DESIRED TO BE DUMPED                                  DBG=MAC      235     A     
 DBG=MAC  *                     =  NON-REGISTER/NON-NULL IF NO REGISTERS TO BE             DBG=MAC      236     A     
 DBG=MAC  *                          DUMPED                                                DBG=MAC      237     A     
 DBG=MAC  *                LL   =  LOWER LIMIT (DEFAULT=1)                                 DBG=MAC      238     A     
 DBG=MAC  *                UL   =  UPPER LIMIT (DEFAULT=100)                               DBG=MAC      239     A     
 DBG=MAC  *                INC  =  INCREMENT (DEFAULT=1)                                   DBG=MAC      240     A     
 DBG=MAC  *                NUSE =  USE BLOCK FLAG. IF *NUSE* IS NULL, THE PARA-            DBG=MAC      241     A     
 DBG=MAC  *                          METER LIST EXISTS IN *USE DEBUG*, ELSE IS             DBG=MAC      242     A     
 DBG=MAC  *                          ASSEMBLED AFTER *RJ*                                  DBG=MAC      243     A     
 DBG=MAC  *                                                                                DBG=MAC      244     A     
 DBG=MAC  *         NOTES-- AN INDIRECT ADDRESSING SYNTAX IS PROVIDED FOR THE FWA,         DBG=MAC      245     A     
 DBG=MAC  *         LWA, AND LNG PARAMETERS. ANY OF THESE PARAMETERS PRECEDED BY           DBG=MAC      246     A     
 DBG=MAC  *         AN ASTERICK (*) DENOTES ONE LEVEL OF INDIRECT ADDRESSING.              DBG=MAC      247     A     
 DBG=MAC  *         N LEVELS OF INDIRECT ADDRESSING ARE POSSIBLE (N.LE.2**21-1)            DBG=MAC      248     A     
 DBG=MAC  *         BY STACKING ASTERICKS. (E.G.  SNAP  **X1,***LWA)                       DBG=MAC      249     A     
 DBG=MAC  *                                                                                DBG=MAC      250     A     
 DBG=MAC  *                A SINGLE REGISTER OR AN ADDRESS EXPRESSION CAN BE USED          DBG=MAC      251     A     
 DBG=MAC  *         FOR THE FWA, LWA, OR LNG PARAMETER, BUT A MIX (E.G. SNAP X1+1)         DBG=MAC      252     A     
 DBG=MAC  *         IS NOT ALLOWED.                                                        DBG=MAC      253     A     
 DBG=MAC  *                                                                                DBG=MAC      254     A     
 DBG=MAC  *         EXIT   NONE                                                            DBG=MAC      255     A     
 DBG=MAC  *                                                                                DBG=MAC      256     A     
 DBG=MAC  *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)              DBG=MAC      257     A     
 DBG=MAC  *                                                                                DBG=MAC      258     A     
 DBG=MAC  *         CALLS  SNP=                                                            DBG=MAC      259     A     
 DBG=MAC                                                                                   DBG=MAC      260     A     
 DBG=MAC                                                                                   DBG=MAC      261     A     
 DBG=MAC            PURGMAC SNAP                                                           DBG=MAC      262     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 283    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=MAC 
  
 DBG=MAC                                                                                   DBG=MAC      263     A     
 DBG=MAC            MACRO  SNAP,NAME,FWA,LWA,LNG,RG,LL,UL,INC,NUSE                         DBG=MAC      264     A     
 DBG=MAC            LOCAL  RTN                                                             DBG=MAC      265     A     
 DBG=MAC            LOCAL  APL                                                             DBG=MAC      266     A     
 DBG=MAC  *                                                                                DBG=MAC      267     A     
 DBG=MAC   +        RJ     =XSNP=                                                          DBG=MAC      268     A     
 DBG=MAC   -        VFD    30/APL                                                          DBG=MAC      269     A     
 DBG=MAC  *                                                                                DBG=MAC      270     A     
 DBG=MAC   #NUSE    IFC    EQ,/NUSE//                                                      DBG=MAC      271     A     
 DBG=MAC            USE    DEBUG                                                           DBG=MAC      272     A     
 DBG=MAC  *                                                                                DBG=MAC      273     A     
 DBG=MAC   #NUSE    ELSE                                                                   DBG=MAC      274     A     
 DBG=MAC            EQ     RTN                                                             DBG=MAC      275     A     
 DBG=MAC   #NUSE    ENDIF                                                                  DBG=MAC      276     A     
 DBG=MAC   APL      BSS    0                                                               DBG=MAC      277     A     
 DBG=MAC            FRK=   (NAME),UL,LL,INC                                                DBG=MAC      278          I
          -DBG0003
 DBG=MAC            FRK=   (NAME),LL,UL,INC                                                DBG0003        4     A     
 DBG=MAC            SNG=   (FWA)                                                           DBG=MAC      279     A     
 DBG=MAC            SNG=   (LWA)                                                           DBG=MAC      280     A     
 DBG=MAC            SNG=   (LNG)                                                           DBG=MAC      281     A     
 DBG=MAC            RGR=   (RG)                                                            DBG=MAC      282     A     
 DBG=MAC  *                                                                                DBG=MAC      283     A     
 DBG=MAC   #NUSE    IFC    EQ,/NUSE//                                                      DBG=MAC      284     A     
 DBG=MAC            USE    *                                                               DBG=MAC      285     A     
 DBG=MAC  *                                                                                DBG=MAC      286     A     
 DBG=MAC   #NUSE    ELSE                                                                   DBG=MAC      287     A     
 DBG=MAC   RTN      BSS    0                                                               DBG=MAC      288     A     
 DBG=MAC   #NUSE    ENDIF                                                                  DBG=MAC      289     A     
 DBG=MAC  *                                                                                DBG=MAC      290     A     
 DBG=MAC   SNAP     ENDM                                                                   DBG=MAC      291     A     
 DBG=MAC   SNG=     SPACE  4,8                                                             DBG=MAC      292     A     
 DBG=MAC  **        SNG= - GENERATE INDIRECT/ADDRESS FIELDS.                               DBG=MAC      293     A     
 DBG=MAC  *                                                                                DBG=MAC      294     A     
 DBG=MAC  *                                                                                DBG=MAC      295     A     
 DBG=MAC  *         GENERATES--                                                            DBG=MAC      296     A     
 DBG=MAC  *                                                                                DBG=MAC      297     A     
 DBG=MAC  *         VFD    18/0                                                            DBG=MAC      298     A     
 DBG=MAC  *         VFD    21/NR OF LEVELS OF INDIRECT ADDRESSING (0=DIRECT)               DBG=MAC      299     A     
 DBG=MAC  *         VFD    21/ADDRESS AT BEGINNING OF INDIRECT CHAIN                       DBG=MAC      300     A     
 DBG=MAC  *                                                                                DBG=MAC      301     A     
 DBG=MAC  *         SNG=   (*ADDR)                                                         DBG=MAC      302     A     
 DBG=MAC  *                                                                                DBG=MAC      303     A     
 DBG=MAC  *         ENTRY  *        =  A LEVEL OF INDIRECT ADDRESSING.                     DBG=MAC      304     A     
 DBG=MAC  *                              NO * MEANS DIRECT ADDRESSING.                     DBG=MAC      305     A     
 DBG=MAC  *                              E.G. *ADDR MEANS THE CONTENTS OF ADDR             DBG=MAC      306     A     
 DBG=MAC  *                              CONTAIN AN ADDRESS THAT IS TO BE USED BY          DBG=MAC      307     A     
 DBG=MAC  *                              SNAP UTILITY.                                     DBG=MAC      308     A     
 DBG=MAC  *                ADDR     =  THE BEGINNING OF THE ADDRESS CHAIN.                 DBG=MAC      309     A     
 DBG=MAC                                                                                   DBG=MAC      310     A     
 DBG=MAC                                                                                   DBG=MAC      311     A     
 DBG=MAC            PURGMAC SNG=                                                           DBG=MAC      312     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 284    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBG=MAC 
  
 DBG=MAC                                                                                   DBG=MAC      313     A     
 DBG=MAC   SNG=     MACRO  ARG                                                             DBG=MAC      314     A     
 DBG=MAC   .9       SET    -1                                                              DBG=MAC      315     A     
 DBG=MAC   +        VFD    18/0                                                            DBG=MAC      316     A     
 DBG=MAC  *                                                                                DBG=MAC      317     A     
 DBG=MAC   .D       DUP    -1                                                              DBG=MAC      318     A     
 DBG=MAC   .9       SET    .9+1                                                            DBG=MAC      319     A     
 DBG=MAC   .1       MICRO  .9+1,1,/ARG/                                                    DBG=MAC      320     A     
 DBG=MAC            IFC    NE,/".1"/*/,1                                                   DBG=MAC      321     A     
 DBG=MAC            STOPDUP                                                                DBG=MAC      322     A     
 DBG=MAC   .D       ENDD                                                                   DBG=MAC      323     A     
 DBG=MAC  *                                                                                DBG=MAC      324     A     
 DBG=MAC   .2       MICRO  .9+1,,/ARG/                                                     DBG=MAC      325     A     
 DBG=MAC  *                                                                                DBG=MAC      326     A     
 DBG=MAC   #RG      IF     REG,".2"                                                        DBG=MAC      327     A     
 DBG=MAC            IFEQ   .9,0,1                                                          DBG=MAC      328     A     
 DBG=MAC   .9       SET    .9+1                                                            DBG=MAC      329     A     
 DBG=MAC   .3       MICRO  1,1,/".2"/                                                      DBG=MAC      330     A     
 DBG=MAC   .4       MICRO  2,1,/".2"/                                                      DBG=MAC      331     A     
 DBG=MAC   .2       MICRO  1,,/=XSV=".3"+".4"/                                             DBG=MAC      332     A     
 DBG=MAC  *                                                                                DBG=MAC      333     A     
 DBG=MAC   #RG      ELSE                                                                   DBG=MAC      334     A     
 DBG=MAC   .5       MICRO  1,2,/".2"/                                                      DBG=MAC      335     A     
 DBG=MAC            IFC    EQ,/".5"/=X/,1                                                  DBG=MAC      336     A     
 DBG=MAC   .2       MICRO  3,,/".2"/                                                       DBG=MAC      337     A     
 DBG=MAC            IF     -DEF,".2",1                                                     DBG=MAC      338     A     
 DBG=MAC            SKIP   1                                                               DBG=MAC      339     A     
 DBG=MAC            IF     -ABS,".2",1                                                     DBG=MAC      340     A     
 DBG=MAC   .2       MICRO  1,,/=X".2"/                                                     DBG=MAC      341     A     
 DBG=MAC   #RG      ENDIF                                                                  DBG=MAC      342     A     
 DBG=MAC  *                                                                                DBG=MAC      343     A     
 DBG=MAC            VFD    21/.9                                                           DBG=MAC      344     A     
 DBG=MAC            VFD    21/".2"                                                         DBG=MAC      345     A     
 DBG=MAC   SNG=     ENDM                                                                   DBG=MAC      346     A     
 DBG=MAC   DBG=MAC  SPACE  4,8                                                             DBG=MAC      347     A     
 DBG=MAC            BASE   *                                                               DBG=MAC      348     A     
 DBG=MAC   QUAL$    IF     -DEF,QUAL$                                                      DBG=MAC      349     A     
 DBG=MAC            QUAL   *                                                               DBG=MAC      350     A     
 DBG=MAC   QUAL$    ENDIF                                                                  DBG=MAC      351     A     
 DBG=MAC            ENDX                                                                   DBG=MAC      352     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DBG=MAC 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DBG=MAC                    352       351
          DBG0003                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=CLO  
  
 FA=CLO   *COMDECK,FA=CLO                                                                  FA=CLO         1     A     
 FA=CLO             CTEXT  FA=CLO - CLOSE FILE                                             FA=CLO         2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 285    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=CLO  
  
 FA=CLO    CLO      SPACE  4                                                               FA=CLO         3     A     
 FA=CLO             IF     -DEF,QUAL$,1                                                    FA=CLO         4     A     
 FA=CLO             QUAL   FA=CLO                                                          FA=CLO         5     A     
 FA=CLO                                                                                    FA=CLO         6     A     
 FA=CLO                                                                                    FA=CLO         7     A     
 FA=CLO   **        FA=CLO - CLOSE FILE.                                                   FA=CLO         8     A     
 FA=CLO   *                                                                                FA=CLO         9     A     
 FA=CLO   *                                                                                FA=CLO        10     A     
 FA=CLO   *         CLOSES A FILE IF OPEN.                                                 FA=CLO        11     A     
 FA=CLO   *                                                                                FA=CLO        12     A     
 FA=CLO   *         ENTRY  (X2) = FIT ADDRESS                                              FA=CLO        13     A     
 FA=CLO   *                                                                                FA=CLO        14     A     
 FA=CLO   *         EXIT   (X2) = FIT ADDRESS                                              FA=CLO        15     A     
 FA=CLO   *                                                                                FA=CLO        16     A     
 FA=CLO   *         USES   X - 6, 7                                                        FA=CLO        17          I
          -FEAT126C 
 FA=CLO   *                A - NONE                                                        FA=CLO        18          I
          -FEAT126C 
 FA=CLO   *                B - 7                                                           FA=CLO        19          I
          -FEAT126C 
 FA=CLO   *         USES   X - 3, 6                                                        FEAT126C       3     A     
 FA=CLO   *                A - 3                                                           FEAT126C       4     A     
 FA=CLO   *                B - NONE                                                        FEAT126C       5     A     
 FA=CLO   *                                                                                FA=CLO        20          I
          -FEAT126C 
 FA=CLO   *         SAVES  (A5), (X5)                                                      FA=CLO        21          I
          -FEAT126C 
 FA=CLO   *                                                                                FA=CLO        22     A     
 FA=CLO   *         CALLS CLOSEM, FETCH                                                    FA=CLO        23     A     
 FA=CLO                                                                                    FA=CLO        24     A     
 FA=CLO                                                                                    FA=CLO        25     A     
 FA=CLO    FA=CLO   JP     *+4S15      ** ENTRY/EXIT **                                    FA=CLO        26     A     
 FA=CLO             SB7    A5          SAVE (A5), (X5)                                     FA=CLO        27          I
          -FEAT126C 
 FA=CLO             BX7    X5                                                              FA=CLO        28          I
          -FEAT126C 
 FA=CLO             FETCH  X2,OC,X6                                                        FA=CLO        29          I
          -FEAT126C 
 FA=CLO             SA5    B7                                                              FA=CLO        30          I
          -FEAT126C 
 FA=CLO             FETCH  X2,OC,X6,X3                                                     FEAT126C       6     A     
 FA=CLO             SX6    X6-#OPE#                                                        FA=CLO        31     A     
 FA=CLO             BX5    X7                                                              FA=CLO        32          I
          -FEAT126C 
 FA=CLO             NZ     X6,FA=CLO   IF NOT OPEN, EXIT                                   FA=CLO        33     A     
 FA=CLO             CLOSEM X2                                                              FA=CLO        34     A     
 FA=CLO             JP     FA=CLO      EXIT                                                FA=CLO        35     A     
 FA=CLO                                                                                    FA=CLO        36     A     
 FA=CLO                                                                                    FA=CLO        37     A     
 FA=CLO             IF     -DEF,QUAL$,2                                                    FA=CLO        38     A     
 FA=CLO             QUAL   *                                                               FA=CLO        39     A     
 FA=CLO    FA=CLO   EQU    /FA=CLO/FA=CLO                                                  FA=CLO        40     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 286    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=CLO  
  
 FA=CLO             ENDX                                                                   FA=CLO        41     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FA=CLO  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FA=CLO                      41        31
          FEAT126C                     4         4
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=DEFS 
  
 FA=DEFS  *COMDECK,FA=DEFS                                                                 FA=DEFS        1     A     
 FA=DEFS  **        I/O MACRO CODING CONVENTIONS.                                          FA=DEFS        2     A     
 FA=DEFS  *                                                                                FA=DEFS        3     A     
 FA=DEFS  *         1.  MACRO DEFINITIONS THAT ACCEPT NULL CALLING PARAMETERS              FA=DEFS        4     A     
 FA=DEFS  *         SHOULD BE AVOIDED, PARTICULARLY WHEN A NULL PARAMETER IMPLIES          FA=DEFS        5     A     
 FA=DEFS  *         THAT A REGISTER IS ALREADY PROPERLY LOADED.  THE ASSUMPTIONS           FA=DEFS        6     A     
 FA=DEFS  *         OR REGISTERS MAY HAVE TO BE CHANGED IN THE FUTURE, WHICH COULD         FA=DEFS        7     A     
 FA=DEFS  *         COMPEL RECODING OF ALL CALLS TO THE MACRO IF NULL PARAMETERS           FA=DEFS        8     A     
 FA=DEFS  *         HAVE SPECIFIC MEANINGS.                                                FA=DEFS        9     A     
 FA=DEFS  *             THE PREFERRED TECHNIQUE IS TO REQUIRE EXPLICIT CALL                FA=DEFS       10     A     
 FA=DEFS  *         PARAMETERS, AND THEN SQUEEZE OUT REDUNDANT CODE WITH THE               FA=DEFS       11     A     
 FA=DEFS  *         (R=) PSEUDO-OP OR OTHER METHOD.                                        FA=DEFS       12     A     
 FA=DEFS  *                                                                                FA=DEFS       13     A     
 FA=DEFS  *         2.  *USES* LISTS ONLY THE REGISTERS DESTROYED BY THE MACRO             FA=DEFS       14     A     
 FA=DEFS  *         CALL EXPANSION.  REGISTERS DESTROYED BY INNER MACRO OR                 FA=DEFS       15     A     
 FA=DEFS  *         SUBROUTINE CALLS ARE LISTED IN THE DESCRIPTION OF THE CALLED           FA=DEFS       16     A     
 FA=DEFS  *         ITEM.                                                                  FA=DEFS       17     A     
 FA=DEFS  *             THE ONLY EXCEPTION TO THIS IS THAT REGISTERS DESTROYED BY          FA=DEFS       18     A     
 FA=DEFS  *         THE (R=) PSEUDO-OP SHOULD BE LISTED IN THE *USES* BLOCK OF             FA=DEFS       19     A     
 FA=DEFS  *         THE CALLER.                                                            FA=DEFS       20     A     
 FA=DEFS  *                                                                                FA=DEFS       21     A     
 FA=DEFS  *         3.  BOTH MACRO AND SUBROUTINE CALLS ARE LISTED IN *CALLS*.             FA=DEFS       22     A     
 FA=DEFS  *                                                                                FA=DEFS       23     A     
 FA=DEFS  *         4.  CONDITIONAL ASSEMBLY PSEUDO-OPS (IF.., ELSE, SKIP, ENDIF)          FA=DEFS       24     A     
 FA=DEFS  *         ARE ALWAYS EITHER COUNT-CONTROLLED OR LABELED, TO AVOID MACRO          FA=DEFS       25     A     
 FA=DEFS  *         NESTING PROBLEMS.                                                      FA=DEFS       26     A     
 FA=DEFS  *             COUNT CONTROL IS PREFERRED WHERE THE LINE COUNTS ARE               FA=DEFS       27     A     
 FA=DEFS  *         SMALL (.LE. 9), TO REDUCE ASSEMBLY TIME.                               FA=DEFS       28     A     
 FA=DEFS  *             LABELING IS PREFERRED FOR LARGER LINE COUNTS, TO REDUCE            FA=DEFS       29     A     
 FA=DEFS  *         THE CHANCE OF COUNT ERRORS AND TO ENHANCE CODE READABILITY.            FA=DEFS       30     A     
 FA=DEFS  *                                                                                FA=DEFS       31     A     
 FA=DEFS  *         5.  ADDRESS TERMINOLOGY.                                               FA=DEFS       32     A     
 FA=DEFS  *                THE FOLLOWING CONVENTIONS ARE ADOPTED FOR REFERRING             FA=DEFS       33     A     
 FA=DEFS  *         TO A GROUP OF CONTIGUOUS STORAGE LOCATIONS.                            FA=DEFS       34     A     
 FA=DEFS  *             A.  *FWA* OR FIRST WORD ADDRESS IS THE SMALLEST STORAGE            FA=DEFS       35     A     
 FA=DEFS  *             ADDRESS FOR THE GROUP.                                             FA=DEFS       36     A     
 FA=DEFS  *             B.  *LWA* OR LAST WORD ADDRESS IS THE LARGEST STORAGE              FA=DEFS       37     A     
 FA=DEFS  *             ADDRESS FOR THE GROUP.                                             FA=DEFS       38     A     
 FA=DEFS  *             C.  *ADDRESS*, IF NOT OTHERWISE QUALIFIED, IS THE FIRST            FA=DEFS       39     A     
 FA=DEFS  *             WORD ADDRESS.                                                      FA=DEFS       40     A     
 FA=DEFS  *             D. *FWA* IS PREFERRED WHEN BOTH *FWA* AND *LWA* ARE                FA=DEFS       41     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 287    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=DEFS 
  
 FA=DEFS  *             BEING MENTIONED, TO AVOID CONFUSION.  OTHERWISE,                   FA=DEFS       42     A     
 FA=DEFS  *             *ADDRESS* IS PREFERRED.                                            FA=DEFS       43     A     
 FA=DEFS  *             E.  *LWA+1* IS NEVER, NEVER ABBREVIATED AS *LWA*.                  FA=DEFS       44     A     
 FA=DEFS            TITLE  I/O SYSTEM SYMBOLS                                              FA=DEFS       45     A     
 FA=DEFS            SPACE  4                                                               FA=DEFS       46     A     
 FA=DEFS   #RM      IFEQ   CP#RM,0                                                         FA=DEFS       47     A     
 FA=DEFS            SPACE  4,8                                                             FA=DEFS       48     A     
 FA=DEFS  ****      FET STRUCTURE AND WORD OFFSETS.                                        FA=DEFS       49     A     
 FA=DEFS  *                                                                                FA=DEFS       50     A     
 FA=DEFS  *                                                                                FA=DEFS       51     A     
 FA=DEFS  *              OFFSET        CONTENTS                                            FA=DEFS       52     A     
 FA=DEFS  *              ------        --------                                            FA=DEFS       53     A     
 FA=DEFS                                                                                   FA=DEFS       54     A     
 FA=DEFS   I.FET    =      0           42/EXTERNAL LFN, 18/CIO CODE AND STATUS             FA=DEFS       55     A     
 FA=DEFS   I.FIRST  =      1           36/0, 6/FET LEN - 5, 18/FIRST                       FA=DEFS       56     A     
 FA=DEFS   I.DT     =      1           12/DEVICE TYPE,48/0                                 FEAT126A       5     A     
 FA=DEFS   I.IN     =      2           60/IN                                               FA=DEFS       57     A     
 FA=DEFS   I.OUT    =      3           60/OUT                                              FA=DEFS       58     A     
 FA=DEFS   I.LIMIT  =      4           42/0,18/LIMIT                                       FA=DEFS       59     A     
 FA=DEFS   I.PRU    =      4           26/0,16/PRU SIZE,18/0                               FA=DEFS       60     A     
 FA=DEFS   I.CBSET  =      5           24/0, 18/PASS 1 LEN, 18/PASS 1 FWA                  FA=DEFS       61     A     
 FA=DEFS   I.RAN1   =      6           RANDOM FILE INFORMATION                             FA=DEFS       62     A     
 FA=DEFS   I.RAN2   =      7           RANDOM FILE INFORMATION                             FA=DEFS       63     A     
 FA=DEFS  ****                                                                             FA=DEFS       64     A     
 FA=DEFS            SPACE  4                                                               FA=DEFS       65     A     
 FA=DEFS   #RM      ELSE                                                                   FA=DEFS       66     A     
 FA=DEFS            SPACE  4                                                               FA=DEFS       67     A     
 FA=DEFS  ****      PSEUDO-FET STRUCTURE AND WORD OFFSETS.                                 FA=DEFS       68     A     
 FA=DEFS  *                                                                                FA=DEFS       69     A     
 FA=DEFS  *                                                                                FA=DEFS       70     A     
 FA=DEFS  *              OFFSET        CONTENTS                                            FA=DEFS       71     A     
 FA=DEFS  *              ------        --------                                            FA=DEFS       72     A     
 FA=DEFS                                                                                   FA=DEFS       73     A     
 FA=DEFS   I.CBSET  =      -1          CIO BUFFER PASS 1 PARAMS - 42/LEN, 18/FWA           FA=DEFS       74     A     
 FA=DEFS   I.FIT    =      0           1/HOLD BUF FLAG, 1/SPILL FLAG, 58/FIT ADDR          FA=DEFS       75     A     
 FA=DEFS   I.FIRST  =      1           60/FIRST                                            FA=DEFS       76     A     
 FA=DEFS   I.IN     =      2           60/IN                                               FA=DEFS       77     A     
 FA=DEFS   I.OUT    =      3           60/OUT                                              FA=DEFS       78     A     
 FA=DEFS   I.LIMIT  =      4           60/LIMIT                                            FA=DEFS       79     A     
 FA=DEFS   I.HBSET  =      5           HOLDING BUF PASS 1 PARAMS - 42/LEN, 18/FWA          FA=DEFS       80     A     
 FA=DEFS  ****                                                                             FA=DEFS       81     A     
 FA=DEFS            SPACE  4                                                               FA=DEFS       82     A     
 FA=DEFS   #RM      ENDIF                                                                  FA=DEFS       83     A     
 FA=DEFS            TITLE  I/O GENERAL MACROS                                              FA=DEFS       84     A     
 FA=DEFS   SETFIL   SPACE  4,8                                                             FA=DEFS       85     A     
 FA=DEFS  **        SETFIL - SET PARAMS IN FILE MANAGEMENT TABLES.                         FA=DEFS       86     A     
 FA=DEFS  *                                                                                FA=DEFS       87     A     
 FA=DEFS  *                                                                                FA=DEFS       88     A     
 FA=DEFS  *         TO SET INITIAL PARAMETER VALUES IN FILE TABLES,                        FA=DEFS       89     A     
 FA=DEFS  *         SETFIL    FILE=FNAM,MODE=INIT,FWA=ADDR                                 FA=DEFS       90     A     
 FA=DEFS  *          OR                                                                    FA=DEFS       91     A     
 FA=DEFS  *         SETFIL    FILE=FNAM,MODE=INIT,LWA1=ADDR                                FA=DEFS       92     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 288    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=DEFS 
  
 FA=DEFS  *                                                                                FA=DEFS       93     A     
 FA=DEFS  *         TO RESTORE FILE TABLES TO INITIAL (PASS 1) CONDITIONS,                 FA=DEFS       94     A     
 FA=DEFS  *         SETFIL    FILE=FNAM,MODE=RESET                                         FA=DEFS       95     A     
 FA=DEFS  *                                                                                FA=DEFS       96     A     
 FA=DEFS  *         ENTRY  *FNAM* = FILE NAME                                              FA=DEFS       97     A     
 FA=DEFS  *                 MODE  = *INIT* OR *RESET*                                      FA=DEFS       98     A     
 FA=DEFS  *                *ADDR* = BUFFER FWA OR LWA+1, TO MATCH EQUIV PARAM              FA=DEFS       99     A     
 FA=DEFS  *                                                                                FA=DEFS      100     A     
 FA=DEFS  *         USES   X - 1, 2                                                        FA=DEFS      101     A     
 FA=DEFS  *                B - 2, 3                                                        FA=DEFS      102     A     
 FA=DEFS  *                                                                                FA=DEFS      103     A     
 FA=DEFS  *         CALLS  FA=SET                                                          FA=DEFS      104     A     
 FA=DEFS                                                                                   FA=DEFS      105     A     
 FA=DEFS                                                                                   FA=DEFS      106     A     
 FA=DEFS            PURGMAC   SETFIL                                                       FA=DEFS      107     A     
 FA=DEFS                                                                                   FA=DEFS      108     A     
 FA=DEFS   SETFIL   MACROE FILE,MODE,FWA,LWA1                                              FA=DEFS      109     A     
 FA=DEFS            LOCAL  CHECK                                                           FA=DEFS      110     A     
 FA=DEFS   CHECK    SET    0                                                               FA=DEFS      111     A     
 FA=DEFS            IFC    NE, LWA1  ,1                                                    FA=DEFS      112     A     
 FA=DEFS   CHECK    SET    CHECK+1                                                         FA=DEFS      113     A     
 FA=DEFS            IFC    NE, FWA  ,1                                                     FA=DEFS      114     A     
 FA=DEFS   CHECK    SET    CHECK+2                                                         FA=DEFS      115     A     
 FA=DEFS  *                            SET FILE ADDRESS.                                   FA=DEFS      116     A     
 FA=DEFS            IFEQ   CP#RM,0,2                                                       FA=DEFS      117     A     
 FA=DEFS            R=     X2,FILE                                                         FA=DEFS      118     A     
 FA=DEFS            SKIP   1                                                               FA=DEFS      119     A     
 FA=DEFS            R=     A2,FILE                                                         FA=DEFS      120     A     
 FA=DEFS   .M       IFC    NE, MODE INIT                                                   FA=DEFS      121     A     
 FA=DEFS  *                            VALIDATE MODE PARAMETER.                            FA=DEFS      122     A     
 FA=DEFS            IFC    NE, MODE RESET ,1                                               FA=DEFS      123     A     
 FA=DEFS            ERR    (MODE) BAD MODE# "SEQUENCE"                                     FA=DEFS      124     A     
 FA=DEFS  *                            RESET MODE.                                         FA=DEFS      125     A     
 FA=DEFS            IFNE   CHECK,0,1                                                       FA=DEFS      126     A     
 FA=DEFS   7        ERR    MODE#RESET, FWA#/LWA1# IGNORED "SEQUENCE"                       FA=DEFS      127     A     
 FA=DEFS            IFEQ   CP#RM,0,2                                                       FA=DEFS      128     A     
 FA=DEFS            SA1    X2+I.CBSET                                                      FA=DEFS      129     A     
 FA=DEFS            SKIP   1                                                               FA=DEFS      130     A     
 FA=DEFS            SA1    A2+I.HBSET                                                      FA=DEFS      131     A     
 FA=DEFS            SB3    B0                                                              FA=DEFS      132     A     
 FA=DEFS            SB2    X1                                                              FA=DEFS      133     A     
 FA=DEFS   .M       ELSE                                                                   FA=DEFS      134     A     
 FA=DEFS  *                            INITIALIZE MODE.                                    FA=DEFS      135     A     
 FA=DEFS            IFGE   CHECK,2,5                                                       FA=DEFS      136     A     
 FA=DEFS            IFGE   CHECK,3,1                                                       FA=DEFS      137     A     
 FA=DEFS   7        ERR    BOTH FWA# AND LWA1# SPECIFIED, LWA1# IGNORED "SEQUENCE"         FA=DEFS      138     A     
 FA=DEFS  *                            SET FWA.                                            FA=DEFS      139     A     
 FA=DEFS            R=     B2,FWA                                                          FA=DEFS      140     A     
 FA=DEFS            SB3    B0                                                              FA=DEFS      141     A     
 FA=DEFS            SKIP   5                                                               FA=DEFS      142     A     
 FA=DEFS            IFLE   CHECK,0,2                                                       FA=DEFS      143     A     
 FA=DEFS            ERR    NO FWA#/LWA1# "SEQUENCE"                                        FA=DEFS      144     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 289    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=DEFS 
  
 FA=DEFS            SKIP   2                                                               FA=DEFS      145     A     
 FA=DEFS  *                            SET LWA1.                                           FA=DEFS      146     A     
 FA=DEFS            R=     B3,LWA1                                                         FA=DEFS      147     A     
 FA=DEFS            SB2    B0                                                              FA=DEFS      148     A     
 FA=DEFS   .M       ENDIF                                                                  FA=DEFS      149     A     
 FA=DEFS  *                            CALL PROCESSING SUBROUTINE.                         FA=DEFS      150     A     
 FA=DEFS            RJ     =XFA=SET                                                        FA=DEFS      151     A     
 FA=DEFS   SETFIL   ENDM                                                                   FA=DEFS      152     A     
 FA=DEFS            TITLE  FILE ACTION MACROS (RECORD MANAGER I/O)                         FA=DEFS      153     A     
 FA=DEFS   #RM      IFNE   CP#RM,0                                                         FA=DEFS      154     A     
 FA=DEFS   BKSP     SPACE  4,8                                                             FA=DEFS      155     A     
 FA=DEFS  **        BKSP - BACKSPACE FILE ONE RECORD.                                      FA=DEFS      156     A     
 FA=DEFS  *                                                                                FA=DEFS      157     A     
 FA=DEFS  *                                                                                FA=DEFS      158     A     
 FA=DEFS  *         BKSP      FILE                                                         FA=DEFS      159     A     
 FA=DEFS  *                                                                                FA=DEFS      160     A     
 FA=DEFS  *         ENTRY  *FILE* = FILE NAME                                              FA=DEFS      161     A     
 FA=DEFS  *                                                                                FA=DEFS      162     A     
 FA=DEFS  *         USES   X2, A2                                                          FA=DEFS      163     A     
 FA=DEFS  *                                                                                FA=DEFS      164     A     
 FA=DEFS  *         CALLS  SKIPBL                                                          FA=DEFS      165     A     
 FA=DEFS                                                                                   FA=DEFS      166     A     
 FA=DEFS                                                                                   FA=DEFS      167     A     
 FA=DEFS            PURGMAC   BKSP                                                         FA=DEFS      168     A     
 FA=DEFS                                                                                   FA=DEFS      169     A     
 FA=DEFS   BKSP     MACRO  F                                                               FA=DEFS      170     A     
 FA=DEFS            R=     A2,F                                                            FA=DEFS      171     A     
 FA=DEFS            SKIPBL X2,1                                                            FA=DEFS      172     A     
 FA=DEFS   BKSP     ENDM                                                                   FA=DEFS      173     A     
 FA=DEFS   CLOSE    SPACE  4,8                                                             FA=DEFS      174     A     
 FA=DEFS  **        CLOSE - CLOSE FILE.                                                    FA=DEFS      175     A     
 FA=DEFS  *                                                                                FA=DEFS      176     A     
 FA=DEFS  *         CLOSES *FILE*, USING POSITIONING PARAMETER (CF) CURRENTLY              FA=DEFS      177     A     
 FA=DEFS  *         IN THE FIT.                                                            FA=DEFS      178     A     
 FA=DEFS  *                                                                                FA=DEFS      179     A     
 FA=DEFS  *                                                                                FA=DEFS      180     A     
 FA=DEFS  *         CLOSE     FILE                                                         FA=DEFS      181     A     
 FA=DEFS  *                                                                                FA=DEFS      182     A     
 FA=DEFS  *         ENTRY  *FILE* = FILE NAME                                              FA=DEFS      183     A     
 FA=DEFS  *                                                                                FA=DEFS      184     A     
 FA=DEFS  *         USES   X2, A2                                                          FA=DEFS      185     A     
 FA=DEFS  *                                                                                FA=DEFS      186     A     
 FA=DEFS  *         CALLS  FA=CLO                                                          FA=DEFS      187     A     
 FA=DEFS                                                                                   FA=DEFS      188     A     
 FA=DEFS                                                                                   FA=DEFS      189     A     
 FA=DEFS            PURGMAC   CLOSE                                                        FA=DEFS      190     A     
 FA=DEFS                                                                                   FA=DEFS      191     A     
 FA=DEFS   CLOSE    MACRO  F                                                               FA=DEFS      192     A     
 FA=DEFS            R=     A2,F                                                            FA=DEFS      193     A     
 FA=DEFS            RJ     =XFA=CLO                                                        FA=DEFS      194     A     
 FA=DEFS   CLOSE    ENDM                                                                   FA=DEFS      195     A     
 FA=DEFS   OPEN     SPACE  4,8                                                             FA=DEFS      196     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 290    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=DEFS 
  
 FA=DEFS  **        OPEN - OPEN FILE.                                                      FA=DEFS      197     A     
 FA=DEFS  *                                                                                FA=DEFS      198     A     
 FA=DEFS  *         OPENS *FILE*, USING PROCESSING DIRECTION (PD) AND POSITIONING          FA=DEFS      199     A     
 FA=DEFS  *         (OF) PARAMETERS CURRENTLY IN THE FIT.                                  FA=DEFS      200     A     
 FA=DEFS  *                                                                                FA=DEFS      201     A     
 FA=DEFS  *                                                                                FA=DEFS      202     A     
 FA=DEFS  *         OPEN      FILE                                                         FA=DEFS      203     A     
 FA=DEFS  *                                                                                FA=DEFS      204     A     
 FA=DEFS  *         ENTRY  *FILE* = FILE NAME                                              FA=DEFS      205     A     
 FA=DEFS  *                                                                                FA=DEFS      206     A     
 FA=DEFS  *         USES   X2, A2                                                          FA=DEFS      207     A     
 FA=DEFS  *                                                                                FA=DEFS      208     A     
 FA=DEFS  *         CALLS  FA=OPE                                                          FA=DEFS      209     A     
 FA=DEFS                                                                                   FA=DEFS      210     A     
 FA=DEFS                                                                                   FA=DEFS      211     A     
 FA=DEFS            PURGMAC   OPEN                                                         FA=DEFS      212     A     
 FA=DEFS                                                                                   FA=DEFS      213     A     
 FA=DEFS   OPEN     MACRO  F                                                               FA=DEFS      214     A     
 FA=DEFS            R=     A2,F                                                            FA=DEFS      215     A     
 FA=DEFS            RJ     =XFA=OPE                                                        FA=DEFS      216     A     
 FA=DEFS   OPEN     ENDM                                                                   FA=DEFS      217     A     
 FA=DEFS   REWIND   SPACE  4,8                                                             FA=DEFS      218     A     
 FA=DEFS  **        REWIND- REWIND A FILE/BUFFER.                                          FA=DEFS      219     A     
 FA=DEFS  *                                                                                FA=DEFS      220     A     
 FA=DEFS  *         THIS EXTENSION OF A NORMAL *REWIND* PREVENTS UNNECESSARY I/O           FA=DEFS      221     A     
 FA=DEFS  *         TRANSFERS OF SMALL INTERNAL SCRATCH FILES BETWEEN CENTRAL              FA=DEFS      222     A     
 FA=DEFS  *         MEMORY AND MASS STORAGE.                                               FA=DEFS      223     A     
 FA=DEFS  *                                                                                FA=DEFS      224     A     
 FA=DEFS  *                                                                                FA=DEFS      225     A     
 FA=DEFS  *         REWIND    FILE,RECALL                                                  FA=DEFS      226     A     
 FA=DEFS  *                                                                                FA=DEFS      227     A     
 FA=DEFS  *         ENTRY  *FILE*    = FILE NAME                                           FA=DEFS      228     A     
 FA=DEFS  *                *RECALL*  = IGNORED; INCLUDED FOR CIO COMPATIBILITY             FA=DEFS      229     A     
 FA=DEFS  *                                                                                FA=DEFS      230     A     
 FA=DEFS  *         USES   X2, A2                                                          FA=DEFS      231     A     
 FA=DEFS  *                                                                                FA=DEFS      232     A     
 FA=DEFS  *         CALLS  FA=RWX                                                          FA=DEFS      233     A     
 FA=DEFS                                                                                   FA=DEFS      234     A     
 FA=DEFS                                                                                   FA=DEFS      235     A     
 FA=DEFS            PURGMAC   REWIND                                                       FA=DEFS      236     A     
 FA=DEFS                                                                                   FA=DEFS      237     A     
 FA=DEFS   REWIND   MACRO  F                                                               FA=DEFS      238     A     
 FA=DEFS            R=     A2,F                                                            FA=DEFS      239     A     
 FA=DEFS            RJ     =XFA=RWX                                                        FA=DEFS      240     A     
 FA=DEFS   REWIND   ENDM                                                                   FA=DEFS      241     A     
 FA=DEFS   WRITEF   SPACE  4,8                                                             FA=DEFS      242     A     
 FA=DEFS  **        WRITEF - WRITE END-OF-FILE/PARTITION ON FILE.                          FA=DEFS      243     A     
 FA=DEFS  *                                                                                FA=DEFS      244     A     
 FA=DEFS  *         WRITES END-OF-FILE/PARTITION ON *FILE*.  THE HOLDING BUFFER,           FA=DEFS      245     A     
 FA=DEFS  *         IF ONE EXISTS, IS FLUSHED BEFORE WRITING THE E-O-F.                    FA=DEFS      246     A     
 FA=DEFS  *                                                                                FA=DEFS      247     A     
 FA=DEFS  *                                                                                FA=DEFS      248     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 291    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=DEFS 
  
 FA=DEFS  *         WRITEF    FILE                                                         FA=DEFS      249     A     
 FA=DEFS  *                                                                                FA=DEFS      250     A     
 FA=DEFS  *         ENTRY  *FILE* = FILE NAME                                              FA=DEFS      251     A     
 FA=DEFS  *                                                                                FA=DEFS      252     A     
 FA=DEFS  *         USES   X2, A2                                                          FA=DEFS      253     A     
 FA=DEFS  *                                                                                FA=DEFS      254     A     
 FA=DEFS  *         CALLS  FA=FLSH, RECORD MANAGER                                         FA=DEFS      255     A     
 FA=DEFS                                                                                   FA=DEFS      256     A     
 FA=DEFS                                                                                   FA=DEFS      257     A     
 FA=DEFS            PURGMAC   WRITEF                                                       FA=DEFS      258     A     
 FA=DEFS                                                                                   FA=DEFS      259     A     
 FA=DEFS   WRITEF   MACRO  F                                                               FA=DEFS      260     A     
 FA=DEFS            R=     A2,F                                                            FA=DEFS      261     A     
 FA=DEFS            RJ     =XFA=EOF                                                        FA=DEFS      262     A     
 FA=DEFS   WRITEF   ENDM                                                                   FA=DEFS      263     A     
 FA=DEFS   WRITER   SPACE  4,8                                                             FA=DEFS      264     A     
 FA=DEFS  **        WRITER - WRITE END-OF-RECORD/SECTION ON FILE.                          FA=DEFS      265     A     
 FA=DEFS  *                                                                                FA=DEFS      266     A     
 FA=DEFS  *         WRITES LEVEL 0 END-OF-RECORD/SECTION ON *FILE*.  THE HOLDING           FA=DEFS      267     A     
 FA=DEFS  *         BUFFER, IF ONE EXISTS, IS FLUSHED BEFORE WRITING THE E-O-R.            FA=DEFS      268     A     
 FA=DEFS  *                                                                                FA=DEFS      269     A     
 FA=DEFS  *                                                                                FA=DEFS      270     A     
 FA=DEFS  *         WRITER    FILE                                                         FA=DEFS      271     A     
 FA=DEFS  *                                                                                FA=DEFS      272     A     
 FA=DEFS  *         ENTRY  *FILE* = FILE NAME                                              FA=DEFS      273     A     
 FA=DEFS  *                                                                                FA=DEFS      274     A     
 FA=DEFS  *         USES   X2, A2                                                          FA=DEFS      275     A     
 FA=DEFS  *                                                                                FA=DEFS      276     A     
 FA=DEFS  *         CALLS  FA=FLSH, RECORD MANAGER                                         FA=DEFS      277     A     
 FA=DEFS                                                                                   FA=DEFS      278     A     
 FA=DEFS                                                                                   FA=DEFS      279     A     
 FA=DEFS            PURGMAC   WRITER                                                       FA=DEFS      280     A     
 FA=DEFS                                                                                   FA=DEFS      281     A     
 FA=DEFS   WRITER   MACRO  F                                                               FA=DEFS      282     A     
 FA=DEFS            R=     A2,F                                                            FA=DEFS      283     A     
 FA=DEFS            RJ     =XFA=EOR                                                        FA=DEFS      284     A     
 FA=DEFS   WRITER   ENDM                                                                   FA=DEFS      285     A     
 FA=DEFS   #RM      ENDIF                                                                  FA=DEFS      286     A     
 FA=DEFS            TITLE  I/O DATA TRANSFER MACROS (RECORD MANAGER I/O)                   FA=DEFS      287     A     
 FA=DEFS   #RM      IFNE   CP#RM,0                                                         FA=DEFS      288     A     
 FA=DEFS   READC    SPACE  4,8                                                             FA=DEFS      289     A     
 FA=DEFS  **        READC - READ ONE CODED LINE IN -C- FORMAT.                             FA=DEFS      290     A     
 FA=DEFS  *                                                                                FA=DEFS      291     A     
 FA=DEFS  *                                                                                FA=DEFS      292     A     
 FA=DEFS  *         READC     FILE,TO,WORDS                                                FA=DEFS      293     A     
 FA=DEFS  *                                                                                FA=DEFS      294     A     
 FA=DEFS  *         ENTRY  *FILE*  = FILE NAME                                             FA=DEFS      295     A     
 FA=DEFS  *                *TO*    = WSA ADDRESS                                           FA=DEFS      296     A     
 FA=DEFS  *                *WORDS* = WSA LENGTH (WORDS)                                    FA=DEFS      297     A     
 FA=DEFS  *                                                                                FA=DEFS      298     A     
 FA=DEFS  *         USES   X2, A2, B6, B7                                                  FA=DEFS      299     A     
 FA=DEFS  *                                                                                FA=DEFS      300     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 292    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=DEFS 
  
 FA=DEFS  *         CALLS  FA=RDC                                                          FA=DEFS      301     A     
 FA=DEFS                                                                                   FA=DEFS      302     A     
 FA=DEFS                                                                                   FA=DEFS      303     A     
 FA=DEFS            PURGMAC   READC                                                        FA=DEFS      304     A     
 FA=DEFS                                                                                   FA=DEFS      305     A     
 FA=DEFS   READC    MACRO  F,S,N                                                           FA=DEFS      306     A     
 FA=DEFS            R=     B6,S                                                            FA=DEFS      307     A     
 FA=DEFS            R=     B7,N                                                            FA=DEFS      308     A     
 FA=DEFS            R=     A2,F                                                            FA=DEFS      309     A     
 FA=DEFS            RJ     =XFA=RDC                                                        FA=DEFS      310     A     
 FA=DEFS   READC    ENDM                                                                   FA=DEFS      311     A     
 FA=DEFS   READW    SPACE  4,8                                                             FA=DEFS      312     A     
 FA=DEFS  **        READW - READ WORDS TO WORKING STORAGE AREA.                            FA=DEFS      313     A     
 FA=DEFS  *                                                                                FA=DEFS      314     A     
 FA=DEFS  *                                                                                FA=DEFS      315     A     
 FA=DEFS  *         READW     FILE,TO,WORDS                                                FA=DEFS      316     A     
 FA=DEFS  *                                                                                FA=DEFS      317     A     
 FA=DEFS  *         ENTRY  *FILE*  = FILE NAME                                             FA=DEFS      318     A     
 FA=DEFS  *                *TO*    = WSA ADDRESS                                           FA=DEFS      319     A     
 FA=DEFS  *                *WORDS* = WSA LENGTH (WORDS)                                    FA=DEFS      320     A     
 FA=DEFS  *                                                                                FA=DEFS      321     A     
 FA=DEFS  *         USES   X2, A2, B6, B7                                                  FA=DEFS      322     A     
 FA=DEFS  *                                                                                FA=DEFS      323     A     
 FA=DEFS  *         CALLS  FA=RDW                                                          FA=DEFS      324     A     
 FA=DEFS                                                                                   FA=DEFS      325     A     
 FA=DEFS                                                                                   FA=DEFS      326     A     
 FA=DEFS            PURGMAC   READW                                                        FA=DEFS      327     A     
 FA=DEFS                                                                                   FA=DEFS      328     A     
 FA=DEFS   READW    MACRO  F,S,N                                                           FA=DEFS      329     A     
 FA=DEFS            R=     B6,S                                                            FA=DEFS      330     A     
 FA=DEFS            R=     B7,N                                                            FA=DEFS      331     A     
 FA=DEFS            R=     A2,F                                                            FA=DEFS      332     A     
 FA=DEFS            RJ     =XFA=RDW                                                        FA=DEFS      333     A     
 FA=DEFS   READW    ENDM                                                                   FA=DEFS      334     A     
 FA=DEFS   WRITEC   SPACE  4,8                                                             FA=DEFS      335     A     
 FA=DEFS  **        WRITEC - WRITE ONE CODED LINE IN -C- FORMAT.                           FA=DEFS      336     A     
 FA=DEFS  *                                                                                FA=DEFS      337     A     
 FA=DEFS  *                                                                                FA=DEFS      338     A     
 FA=DEFS  *         WRITEC    FILE,FROM,WORDS                                              FA=DEFS      339     A     
 FA=DEFS  *                                                                                FA=DEFS      340     A     
 FA=DEFS  *         ENTRY  *FILE*  = FILE NAME                                             FA=DEFS      341     A     
 FA=DEFS  *                *FROM*  = WSA ADDRESS                                           FA=DEFS      342     A     
 FA=DEFS  *                *WORDS* = LINE LENGTH (WORDS).  IF ZERO OR OMITTED,             FA=DEFS      343     A     
 FA=DEFS  *                            LENGTH WILL BE DETERMINED BY SCANNING TO            FA=DEFS      344     A     
 FA=DEFS  *                            AN END-OF-LINE MARKER -- SLOWLY.                    FA=DEFS      345     A     
 FA=DEFS  *                                                                                FA=DEFS      346     A     
 FA=DEFS  *         USES   X2, A2, B6, B7                                                  FA=DEFS      347     A     
 FA=DEFS  *                                                                                FA=DEFS      348     A     
 FA=DEFS  *         CALLS  FA=WTC                                                          FA=DEFS      349     A     
 FA=DEFS                                                                                   FA=DEFS      350     A     
 FA=DEFS                                                                                   FA=DEFS      351     A     
 FA=DEFS            PURGMAC   WRITEC                                                       FA=DEFS      352     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 293    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=DEFS 
  
 FA=DEFS                                                                                   FA=DEFS      353     A     
 FA=DEFS   WRITEC   MACRO  F,S,N                                                           FA=DEFS      354     A     
 FA=DEFS            R=     B6,S                                                            FA=DEFS      355     A     
 FA=DEFS            IFC    NE, N  ,2                                                       FA=DEFS      356     A     
 FA=DEFS  *                            SET GIVEN LENGTH.                                   FA=DEFS      357     A     
 FA=DEFS            R=     B7,N                                                            FA=DEFS      358     A     
 FA=DEFS            SKIP   1                                                               FA=DEFS      359     A     
 FA=DEFS  *                            SET LENGTH OMITTED.                                 FA=DEFS      360     A     
 FA=DEFS            SB7    B0                                                              FA=DEFS      361     A     
 FA=DEFS            R=     A2,F                                                            FA=DEFS      362     A     
 FA=DEFS            RJ     =XFA=WTC                                                        FA=DEFS      363     A     
 FA=DEFS   WRITEC   ENDM                                                                   FA=DEFS      364     A     
 FA=DEFS   WRITEW   SPACE  4,8                                                             FA=DEFS      365     A     
 FA=DEFS  **        WRITEW - WRITE WORDS FROM WORKING STORAGE AREA.                        FA=DEFS      366     A     
 FA=DEFS  *                                                                                FA=DEFS      367     A     
 FA=DEFS  *                                                                                FA=DEFS      368     A     
 FA=DEFS  *         WRITEW    FILE,FROM,WORDS                                              FA=DEFS      369     A     
 FA=DEFS  *                                                                                FA=DEFS      370     A     
 FA=DEFS  *         ENTRY  *FILE*  = FILE NAME                                             FA=DEFS      371     A     
 FA=DEFS  *                *FROM*  = WSA ADDRESS                                           FA=DEFS      372     A     
 FA=DEFS  *                *WORDS* = WSA LENGTH (WORDS)                                    FA=DEFS      373     A     
 FA=DEFS  *                                                                                FA=DEFS      374     A     
 FA=DEFS  *         USES   X2, A2, B6, B7                                                  FA=DEFS      375     A     
 FA=DEFS  *                                                                                FA=DEFS      376     A     
 FA=DEFS  *         CALLS  FA=WTW                                                          FA=DEFS      377     A     
 FA=DEFS                                                                                   FA=DEFS      378     A     
 FA=DEFS                                                                                   FA=DEFS      379     A     
 FA=DEFS            PURGMAC   WRITEW                                                       FA=DEFS      380     A     
 FA=DEFS                                                                                   FA=DEFS      381     A     
 FA=DEFS   WRITEW   MACRO  F,S,N                                                           FA=DEFS      382     A     
 FA=DEFS            R=     B6,S                                                            FA=DEFS      383     A     
 FA=DEFS            R=     B7,N                                                            FA=DEFS      384     A     
 FA=DEFS            R=     A2,F                                                            FA=DEFS      385     A     
 FA=DEFS            RJ     =XFA=WTW                                                        FA=DEFS      386     A     
 FA=DEFS   WRITEW   ENDM                                                                   FA=DEFS      387     A     
 FA=DEFS            SPACE  4                                                               FA=DEFS      388     A     
 FA=DEFS   #RM      ENDIF                                                                  FA=DEFS      389     A     
 FA=DEFS   POPMAC    OPSYN  PURGMAC                                                        F2950F4        6     A     
 FA=DEFS   POPDEF    OPSYN  PURGDEF                                                        F2950F4        7     A     
 FA=DEFS                                                                                   F2950F4        8     A     
 FA=DEFS             PURGDEF  =A,Q                                                         F2950F4        9     A     
 FA=DEFS             PURGDEF  =A,A                                                         F2950F4       10     A     
 FA=DEFS             PURGDEF  =A,AQ                                                        F2950F4       11     A     
 FA=DEFS             PURGDEF  =A,BQ                                                        F2950F4       12     A     
 FA=DEFS             PURGDEF  =A,XQ                                                        F2950F4       13     A     
 FA=DEFS             PURGDEF  =B,Q                                                         F2950F4       14     A     
 FA=DEFS             PURGDEF  =B,AQ                                                        F2950F4       15     A     
 FA=DEFS             PURGDEF  =B,B                                                         F2950F4       16     A     
 FA=DEFS             PURGDEF  =B,BQ                                                        F2950F4       17     A     
 FA=DEFS             PURGDEF  =B,XQ                                                        F2950F4       18     A     
 FA=DEFS             PURGDEF  =X,Q                                                         F2950F4       19     A     
 FA=DEFS             PURGDEF  =X,AQ                                                        F2950F4       20     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 294    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=DEFS 
  
 FA=DEFS             PURGDEF  =X,BQ                                                        F2950F4       21     A     
 FA=DEFS             PURGDEF  =X,X                                                         F2950F4       22     A     
 FA=DEFS             PURGDEF  =X,XQ                                                        F2950F4       23     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FA=DEFS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FA=DEFS                    389       389
          FEAT126A                     1         1
          F2950F4                     18        18
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=EOF  
  
 FA=EOF   *COMDECK,FA=EOF                                                                  FA=EOF         1     A     
 FA=EOF             CTEXT  FA=EOF - WRITE END-OF-FILE/PARTITION                            FA=EOF         2     A     
 FA=EOF    EOF      SPACE  4                                                               FA=EOF         3     A     
 FA=EOF             IF     -DEF,QUAL$,1                                                    FA=EOF         4     A     
 FA=EOF             QUAL   FA=EOF                                                          FA=EOF         5     A     
 FA=EOF                                                                                    FA=EOF         6     A     
 FA=EOF                                                                                    FA=EOF         7     A     
 FA=EOF   **        FA=EOF - WRITE END-OF-FILE/PARTITION.                                  FA=EOF         8     A     
 FA=EOF   *                                                                                FA=EOF         9     A     
 FA=EOF   *                                                                                FA=EOF        10     A     
 FA=EOF   *         ENTRY  (X2) = PSEUDO-FET WORD 1                                        FA=EOF        11     A     
 FA=EOF   *                (A2) = PSEUDO-FET ADDRESS                                       FA=EOF        12     A     
 FA=EOF   *                (B1) = 1                                                        FA=EOF        13     A     
 FA=EOF   *                                                                                FA=EOF        14     A     
 FA=EOF   *         EXIT   (X2) = PSEUDO-FET WORD 1                                        FA=EOF        15     A     
 FA=EOF   *                (A2) = PSEUDO-FET ADDRESS                                       FA=EOF        16     A     
 FA=EOF   *                (B1) = 1                                                        FA=EOF        17     A     
 FA=EOF   *                                                                                FA=EOF        18     A     
 FA=EOF   *         USES   X - 7                                                           FA=EOF        19     A     
 FA=EOF   *                A - NONE                                                        FA=EOF        20     A     
 FA=EOF   *                B - NONE                                                        FA=EOF        21     A     
 FA=EOF   *                                                                                FA=EOF        22     A     
 FA=EOF   *         CALLS  ENDFILE, FA=FLSH                                                FA=EOF        23     A     
 FA=EOF                                                                                    FA=EOF        24     A     
 FA=EOF                                                                                    FA=EOF        25     A     
 FA=EOF    FA=EOF   JP     *+4S15      ** ENTRY/EXIT **                                    FA=EOF        26     A     
 FA=EOF             PL     X2,EOF2     IF NO HOLDING BUFFER                                FA=EOF        27     A     
 FA=EOF                                                                                    FA=EOF        28     A     
 FA=EOF             IFEQ   TEST,0,2                                                        FA=EOF        29     A     
 FA=EOF             IX7    X2+X2       LEFT ADJUST SPILL FLAG                              FA=EOF        30     A     
 FA=EOF             PL     X7,FA=EOF   IF FILE NOT SPILLED TO DISK, EXIT                   FA=EOF        31     A     
 FA=EOF                                                                                    FA=EOF        32     A     
 FA=EOF             RJ     FA=FLSH                                                         FA=EOF        33     A     
 FA=EOF    EOF2     ENDFILE   X2                                                           FA=EOF        34     A     
 FA=EOF             JP     FA=EOF      EXIT                                                FA=EOF        35     A     
 FA=EOF                                                                                    FA=EOF        36     A     
 FA=EOF                                                                                    FA=EOF        37     A     
 FA=EOF             IF     -DEF,QUAL$,2                                                    FA=EOF        38     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 295    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=EOF  
  
 FA=EOF             QUAL   *                                                               FA=EOF        39     A     
 FA=EOF    FA=EOF   EQU    /FA=EOF/FA=EOF                                                  FA=EOF        40     A     
 FA=EOF             ENDX                                                                   FA=EOF        41     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FA=EOF  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FA=EOF                      41        41
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=EOR  
  
 FA=EOR   *COMDECK,FA=EOR                                                                  FA=EOR         1     A     
 FA=EOR             CTEXT  FA=EOR - WRITE END-OF-RECORD/SECTION                            FA=EOR         2     A     
 FA=EOR    EOR      SPACE  4                                                               FA=EOR         3     A     
 FA=EOR             IF     -DEF,QUAL$,1                                                    FA=EOR         4     A     
 FA=EOR             QUAL   FA=EOR                                                          FA=EOR         5     A     
 FA=EOR                                                                                    FA=EOR         6     A     
 FA=EOR                                                                                    FA=EOR         7     A     
 FA=EOR   **        FA=EOR - WRITE END-OF-RECORD/SECTION.                                  FA=EOR         8     A     
 FA=EOR   *                                                                                FA=EOR         9     A     
 FA=EOR   *                                                                                FA=EOR        10     A     
 FA=EOR   *         ENTRY  (X2) = PSEUDO-FET WORD 1                                        FA=EOR        11     A     
 FA=EOR   *                (A2) = PSEUDO-FET ADDRESS                                       FA=EOR        12     A     
 FA=EOR   *                (B1) = 1                                                        FA=EOR        13     A     
 FA=EOR   *                                                                                FA=EOR        14     A     
 FA=EOR   *         EXIT   (X2) = PSEUDO-FET WORD 1                                        FA=EOR        15     A     
 FA=EOR   *                (A2) = PSEUDO-FET ADDRESS                                       FA=EOR        16     A     
 FA=EOR   *                (B1) = 1                                                        FA=EOR        17     A     
 FA=EOR   *                                                                                FA=EOR        18     A     
 FA=EOR   *         USES   X - 7                                                           FA=EOR        19     A     
 FA=EOR   *                A - NONE                                                        FA=EOR        20     A     
 FA=EOR   *                B - NONE                                                        FA=EOR        21     A     
 FA=EOR   *                                                                                FA=EOR        22     A     
 FA=EOR   *         CALLS  FA=FLSH, WEOR                                                   FA=EOR        23     A     
 FA=EOR                                                                                    FA=EOR        24     A     
 FA=EOR                                                                                    FA=EOR        25     A     
 FA=EOR    FA=EOR   JP     *+4S15      ** ENTRY/EXIT **                                    FA=EOR        26     A     
 FA=EOR             PL     X2,EOR2     IF NO HOLDING BUFFER                                FA=EOR        27     A     
 FA=EOR                                                                                    FA=EOR        28     A     
 FA=EOR             IFEQ   TEST,0,2                                                        FA=EOR        29     A     
 FA=EOR             IX7    X2+X2       LEFT ADJUST SPILL FLAG                              FA=EOR        30     A     
 FA=EOR             PL     X7,FA=EOR   IF FILE NOT SPILLED TO DISK, EXIT                   FA=EOR        31     A     
 FA=EOR                                                                                    FA=EOR        32     A     
 FA=EOR             RJ     FA=FLSH                                                         FA=EOR        33     A     
 FA=EOR    EOR2     WEOR   X2                                                              FA=EOR        34     A     
 FA=EOR             JP     FA=EOR      EXIT                                                FA=EOR        35     A     
 FA=EOR                                                                                    FA=EOR        36     A     
 FA=EOR                                                                                    FA=EOR        37     A     
 FA=EOR             IF     -DEF,QUAL$,2                                                    FA=EOR        38     A     
 FA=EOR             QUAL   *                                                               FA=EOR        39     A     
 FA=EOR    FA=EOR   EQU    /FA=EOR/FA=EOR                                                  FA=EOR        40     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 296    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=EOR  
  
 FA=EOR             ENDX                                                                   FA=EOR        41     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FA=EOR  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FA=EOR                      41        41
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=FLSH 
  
 FA=FLSH  *COMDECK,FA=FLSH                                                                 FA=FLSH        1     A     
 FA=FLSH            CTEXT  FA=FLSH - FLUSH FILE HOLDING BUFFER                             FA=FLSH        2     A     
 FA=FLSH   FLSH     SPACE  4                                                               FA=FLSH        3     A     
 FA=FLSH            IF     -DEF,QUAL$,1                                                    FA=FLSH        4     A     
 FA=FLSH            QUAL   FA=FLSH                                                         FA=FLSH        5     A     
 FA=FLSH                                                                                   FA=FLSH        6     A     
 FA=FLSH                                                                                   FA=FLSH        7     A     
 FA=FLSH  **        FA=FLSH - FLUSH FILE HOLDING BUFFER.                                   FA=FLSH        8     A     
 FA=FLSH  *                                                                                FA=FLSH        9     A     
 FA=FLSH  *         SEQUENTIAL BINARY FILE -                                               FA=FLSH       10     A     
 FA=FLSH  *           CALLS RECORD MANAGER TO EMPTY THE HOLDING BUFFER.                    FA=FLSH       11     A     
 FA=FLSH  *           SETS (IN) = (OUT) = (FIRST) IN PSEUDO-FET.                           FA=FLSH       12     A     
 FA=FLSH  *           TURNS SPILL FLAG ON IN PSEUDO-FET.                                   FA=FLSH       13     A     
 FA=FLSH  *                                                                                FA=FLSH       14     A     
 FA=FLSH  *         OTHER FILE TYPE -                                                      FA=FLSH       15     A     
 FA=FLSH  *           EXITS WITHOUT ACTION (HOLDING BUFFER DOES NOT EXIST).                FA=FLSH       16     A     
 FA=FLSH  *                                                                                FA=FLSH       17     A     
 FA=FLSH  *                                                                                FA=FLSH       18     A     
 FA=FLSH  *         ENTRY  (X2) = PSEUDO-FET WORD 1                                        FA=FLSH       19     A     
 FA=FLSH  *                (A2) = PSEUDO-FET ADDRESS                                       FA=FLSH       20     A     
 FA=FLSH  *                (B1) = 1                                                        FA=FLSH       21     A     
 FA=FLSH  *                                                                                FA=FLSH       22     A     
 FA=FLSH  *         EXIT   (X2) = PSEUDO-FET WORD 1                                        FA=FLSH       23     A     
 FA=FLSH  *                (A2) = PSEUDO-FET ADDRESS                                       FA=FLSH       24     A     
 FA=FLSH  *                (B1) = 1                                                        FA=FLSH       25     A     
 FA=FLSH  *                                                                                FA=FLSH       26     A     
 FA=FLSH  *         USES   X - 1, 3, 6, 7                                                  FA=FLSH       27          I
          -FEAT126C 
 FA=FLSH  *                A - 1, 3, 6, 7                                                  FA=FLSH       28          I
          -FEAT126C 
 FA=FLSH  *                B - NONE                                                        FA=FLSH       29          I
          -FEAT126C 
 FA=FLSH  *         USES   X - 1, 3, 4, 6, 7                                               FEAT126C       7     A     
 FA=FLSH  *                A - 1, 3, 4, 6, 7                                               FEAT126C       8     A     
 FA=FLSH  *                B - 7                                                           FEAT126C       9     A     
 FA=FLSH  *                                                                                FA=FLSH       30     A     
 FA=FLSH  *         CALLS  PUTW                                                            FA=FLSH       31     A     
 FA=FLSH                                                                                   FA=FLSH       32     A     
 FA=FLSH                                                                                   FA=FLSH       33     A     
 FA=FLSH   FA=FLSH  JP     *+4S15      ** ENTRY/EXIT **                                    FA=FLSH       34     A     
 FA=FLSH            PL     X2,FA=FLSH  IF NO HOLDING BUFFER, EXIT                          FA=FLSH       35     A     
 FA=FLSH            SA1    A2+B1       (X1) = HOLDING BUFFER -FIRST-                       FA=FLSH       36     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 297    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=FLSH 
  
 FA=FLSH            MX7    1                                                               FA=FLSH       37     A     
 FA=FLSH            SA3    A1+B1       (X3) = HOLDING BUFFER -IN-                          FA=FLSH       38     A     
 FA=FLSH            LX7    -59D+58D                                                        FA=FLSH       39     A     
 FA=FLSH            SX6    X1                                                              FA=FLSH       40     A     
 FA=FLSH            BX7    X7+X2                                                           FA=FLSH       41     A     
 FA=FLSH            SA6    A3          RESET -IN- = -FIRST-                                FA=FLSH       42     A     
 FA=FLSH            IX3    X3-X1       NR WORDS IN BUFFER                                  FA=FLSH       43     A     
 FA=FLSH            SA7    A2          TURN SPILL FLAG ON                                  FA=FLSH       44     A     
 FA=FLSH            SA6    A6+B1       RESET -OUT- = -FIRST-                               FA=FLSH       45     A     
 FA=FLSH            ZR     X3,FA=FLSH  IF HOLDING BUFFER EMPTY, EXIT                       FA=FLSH       46     A     
 FA=FLSH            FETCH  X2,RT,X4,X4                                                     FEAT126C      10     A     
 FA=FLSH            SB7    X4-#ST#                                                         FEAT126C      11     A     
 FA=FLSH            ZR     B7,FLSH1    IF S TYPE RECORD                                    FEAT126C      12     A     
 FA=FLSH            PUTW   X2,X1,X3                                                        FA=FLSH       47     A     
 FA=FLSH            JP     FA=FLSH     EXIT                                                FA=FLSH       48     A     
 FA=FLSH                                                                                   FEAT126C      13     A     
 FA=FLSH   FLSH1    PUTWP  X2,X1,X3                                                        FEAT126C      14     A     
 FA=FLSH            JP     FA=FLSH     EXIT                                                FEAT126C      15     A     
 FA=FLSH                                                                                   FA=FLSH       49     A     
 FA=FLSH                                                                                   FA=FLSH       50     A     
 FA=FLSH            IF     -DEF,QUAL$,2                                                    FA=FLSH       51     A     
 FA=FLSH            QUAL   *                                                               FA=FLSH       52     A     
 FA=FLSH   FA=FLSH  EQU    /FA=FLSH/FA=FLSH                                                FA=FLSH       53     A     
 FA=FLSH            ENDX                                                                   FA=FLSH       54     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FA=FLSH 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FA=FLSH                     54        51
          FEAT126C                     9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=OPE  
  
 FA=OPE   *COMDECK,FA=OPE                                                                  FA=OPE         1     A     
 FA=OPE             CTEXT  FA=OPE - OPEN FILE                                              FA=OPE         2     A     
 FA=OPE    OPE      SPACE  4                                                               FA=OPE         3     A     
 FA=OPE             IF     -DEF,QUAL$,1                                                    FA=OPE         4     A     
 FA=OPE             QUAL   FA=OPE                                                          FA=OPE         5     A     
 FA=OPE                                                                                    FA=OPE         6     A     
 FA=OPE                                                                                    FA=OPE         7     A     
 FA=OPE   **        FA=OPE - OPEN FILE.                                                    FA=OPE         8     A     
 FA=OPE   *                                                                                FA=OPE         9     A     
 FA=OPE   *                OPENS A FILE, RELIABLY.  PREVENTS REDUNDANT OPEN                FA=OPE        10     A     
 FA=OPE   *         ERRORS.  HONORS AND PRESERVES *PD*, *OF* AND *CF* IN FIT.              FA=OPE        11     A     
 FA=OPE   *                                                                                FA=OPE        12     A     
 FA=OPE   *                                                                                FA=OPE        13     A     
 FA=OPE   *         ENTRY  (X2) = FIT ADDRESS                                              FA=OPE        14     A     
 FA=OPE   *                                                                                FA=OPE        15     A     
 FA=OPE   *         EXIT   (X2) = FIT ADDRESS                                              FA=OPE        16     A     
 FA=OPE   *                                                                                FA=OPE        17     A     
 FA=OPE   *         USES   X - 3, 6                                                        FA=OPE        18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 298    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=OPE  
  
 FA=OPE   *                A - NONE                                                        FA=OPE        19          I
          -FEAT126C 
 FA=OPE   *                B - 2, 3                                                        FA=OPE        20          I
          -FEAT126C 
 FA=OPE   *                A - 3                                                           FEAT126C      16     A     
 FA=OPE   *                B - 2                                                           FEAT126C      17     A     
 FA=OPE   *                                                                                FA=OPE        21     A     
 FA=OPE   *         SAVES  (A5), (X5)                                                      FA=OPE        22     A     
 FA=OPE   *                                                                                FA=OPE        23     A     
 FA=OPE   *         CALLS  CLOSEM, FETCH, OPENM, SETFIT, STORE                             FA=OPE        24     A     
 FA=OPE                                                                                    FA=OPE        25     A     
 FA=OPE                                                                                    FA=OPE        26     A     
 FA=OPE    FA=OPE   JP     *+4S15      ** ENTRY/EXIT **                                    FA=OPE        27     A     
 FA=OPE             SB3    A5          TEMP SAVE (A5), (X5)                                FA=OPE        28          I
          -FEAT126C 
 FA=OPE             BX3    X5                                                              FA=OPE        29          I
          -FEAT126C 
 FA=OPE                                                                                    FA=OPE        30     A     
 FA=OPE   *         CHECK FILE OPEN/CLOSED STATUS.                                         FA=OPE        31     A     
 FA=OPE                                                                                    FA=OPE        32     A     
 FA=OPE             FETCH  X2,PD,X6                                                        FA=OPE        33          I
          -FEAT126C 
 FA=OPE             FETCH  X2,PD,X6,X3                                                     FEAT126C      18     A     
 FA=OPE             SB2    X6          TEMP SAVE *PD* (*SETFIT* WILL DESTROY)              FA=OPE        34     A     
 FA=OPE             SETFIT X2          FDT PARAMETERS TO FIT                               FA=OPE        35     A     
 FA=OPE             FETCH  X2,OC,X6                                                        FA=OPE        36          I
          -FEAT126C 
 FA=OPE             FETCH  X2,OC,X6,X3                                                     FEAT126C      19     A     
 FA=OPE             SX6    X6-#OPE#                                                        FA=OPE        37     A     
 FA=OPE             NZ     X6,OPE2     IF FILE NOT OPEN                                    FA=OPE        38     A     
 FA=OPE                                                                                    FA=OPE        39     A     
 FA=OPE   *         HERE IF FILE LEFT OPEN BY PREVIOUS JOB STEP.  SOME ATTRIBUTES          FA=OPE        40     A     
 FA=OPE   *         OF AN OPEN FILE, SUCH AS *PD*, CANNOT BE CHANGED, SO WE CLOSE          FA=OPE        41     A     
 FA=OPE   *         IT FIRST (SIGH).                                                       FA=OPE        42     A     
 FA=OPE                                                                                    FA=OPE        43     A     
 FA=OPE             FETCH  X2,CF,X6    TEMP SAVE *CF* (*CLOSEM* WILL DESTROY)              FA=OPE        44          I
          -FEAT126C 
 FA=OPE             FETCH  X2,CF,X6,X3 TEMP SAVE *CF* (*CLOSEM* WILL DESTROY)              FEAT126C      20     A     
 FA=OPE             CLOSEM X2,N                                                            FA=OPE        45     A     
 FA=OPE             STORE  X2,CF=X6                                                        FA=OPE        46          I
          -FEAT126C 
 FA=OPE             STORE  X2,CF=X6,X3                                                     FEAT126C      21     A     
 FA=OPE                                                                                    FA=OPE        47     A     
 FA=OPE   *         (RE)OPEN FILE.                                                         FA=OPE        48     A     
 FA=OPE                                                                                    FA=OPE        49     A     
 FA=OPE    OPE2     SX6    B2                                                              FA=OPE        50     A     
 FA=OPE             STORE  X2,PD=X6                                                        FA=OPE        51          I
          -FEAT126C 
 FA=OPE             STORE  X2,PD=X6,X3                                                     FEAT126C      22     A     
 FA=OPE             OPENM  X2                                                              FA=OPE        52     A     
 FA=OPE             SA5    B3          RESTORE (A5), (X5) FOR EXIT                         FA=OPE        53          I
          -FEAT126C 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 299    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=OPE  
  
 FA=OPE             BX5    X3                                                              FA=OPE        54          I
          -FEAT126C 
 FA=OPE             JP     FA=OPE      EXIT                                                FA=OPE        55     A     
 FA=OPE                                                                                    FA=OPE        56     A     
 FA=OPE                                                                                    FA=OPE        57     A     
 FA=OPE             IF     -DEF,QUAL$,2                                                    FA=OPE        58     A     
 FA=OPE             QUAL   *                                                               FA=OPE        59     A     
 FA=OPE    FA=OPE   EQU    /FA=OPE/FA=OPE                                                  FA=OPE        60     A     
 FA=OPE             ENDX                                                                   FA=OPE        61     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FA=OPE  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FA=OPE                      61        50
          FEAT126C                     7         7
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=RDC  
  
 FA=RDC   *COMDECK,FA=RDC                                                                  FA=RDC         1     A     
 FA=RDC             CTEXT  FA=RDC - READ CODED LINE, -C- FORMAT                            FA=RDC         2     A     
 FA=RDC    RDC      SPACE  4                                                               FA=RDC         3     A     
 FA=RDC             IF     -DEF,QUAL$,1                                                    FA=RDC         4     A     
 FA=RDC             QUAL   FA=RDC                                                          FA=RDC         5     A     
 FA=RDC                                                                                    FA=RDC         6     A     
 FA=RDC                                                                                    FA=RDC         7     A     
 FA=RDC   **        FA=RDC - READ ONE CODED LINE FROM FILE, IN -C- FORMAT.                 FA=RDC         8     A     
 FA=RDC   *                                                                                FA=RDC         9     A     
 FA=RDC   *                                                                                FA=RDC        10     A     
 FA=RDC   *         ENTRY  (X2) = PSEUDO-FET WORD 1.                                       FA=RDC        11     A     
 FA=RDC   *                (A2) = PSEUDO-FET ADDRESS.                                      FA=RDC        12     A     
 FA=RDC   *                (B1) = 1                                                        FA=RDC        13     A     
 FA=RDC   *                (B6) = WSA ADDRESS.                                             FA=RDC        14     A     
 FA=RDC   *                (B7) = WSA LENGTH (WORDS).                                      FA=RDC        15     A     
 FA=RDC   *                                                                                FA=RDC        16     A     
 FA=RDC   *         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                                 FA=RDC        17     A     
 FA=RDC   *                (X1) = -1 IF EOP/EOI DETECTED ON FILE.                          FA=RDC        18     A     
 FA=RDC   *                (X1) = (B6) IF EOS DETECTED ON FILE BEFORE TRANSFER             FA=RDC        19     A     
 FA=RDC   *                            WAS COMPLETED.                                      FA=RDC        20     A     
 FA=RDC   *                (X2) = ADDRESS OF FIT FOR FILE.                                 FA=RDC        21     A     
 FA=RDC   *                (B1) = 1                                                        FA=RDC        22     A     
 FA=RDC   *                (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO             FA=RDC        23     A     
 FA=RDC   *                            WORKING STORAGE AREA.                               FA=RDC        24     A     
 FA=RDC   *                                                                                FA=RDC        25     A     
 FA=RDC   *         USES   X - 1, 3, 4, 6, 7                                               FA=RDC        26     A     
 FA=RDC   *                A - 3, 6, 7                                                     FA=RDC        27          I
          -FEAT126C 
 FA=RDC   *                A - 1, 3, 6, 7                                                  FEAT126C      23     A     
 FA=RDC   *                B - 2, 6                                                        FA=RDC        28     A     
 FA=RDC   *                                                                                FA=RDC        29          I
          -FEAT126C 
 FA=RDC   *         SAVES  (A5), (X5)                                                      FA=RDC        30          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 300    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=RDC  
  
          -FEAT126C 
 FA=RDC   *                                                                                FA=RDC        31     A     
 FA=RDC   *         CALLS  FETCH, GETW, STORE                                              FA=RDC        32     A     
 FA=RDC                                                                                    FA=RDC        33     A     
 FA=RDC                                                                                    FA=RDC        34     A     
 FA=RDC    FA=RDC   JP     *+4S15      ** ENTRY/EXIT **                                    FA=RDC        35     A     
 FA=RDC                                                                                    FA=RDC        36     A     
 FA=RDC             IFNE   TEST,0,1                                                        FA=RDC        37     A     
 FA=RDC             LE     B7,B0,*+4S15      IF LENGTH ERROR, ABORT JOB                    FA=RDC        38     A     
 FA=RDC                                                                                    FA=RDC        39     A     
 FA=RDC             SX3    B6          (X3) = WSA ADDRESS                                  FA=RDC        40     A     
 FA=RDC             SX4    B7          (X4) = WSA LENGTH                                   FA=RDC        41     A     
 FA=RDC             GETW   X2,X3,X4,RDC2                                                   FA=RDC        42     A     
 FA=RDC             SB6    B6+X4       (B6) = LWA+1 OF TRANSFER                            FA=RDC        43     A     
 FA=RDC             AX4    18D         (X4) = UNUSED BIT COUNT                             FA=RDC        44     A     
 FA=RDC             SA3    B6-B1       LAST WORD OF LINE                                   FA=RDC        45     A     
 FA=RDC             MX6    1                                                               FA=RDC        46     A     
 FA=RDC             SB2    X4-59D                                                          FA=RDC        47     A     
 FA=RDC             MX7    0                                                               FA=RDC        48     A     
 FA=RDC             AX4    X6,-B2                                                          FA=RDC        49     A     
 FA=RDC             MX1    0           *TRANSFER COMPLETE* STATUS                          FA=RDC        50     A     
 FA=RDC             BX6    X4*X3       DISCARD UNUSED BITS                                 FA=RDC        51     A     
 FA=RDC             AX4    6                                                               FA=RDC        52     A     
 FA=RDC             SA6    A3          TERMINATE LAST WORD READ                            FA=RDC        53     A     
 FA=RDC             NZ     X4,FA=RDC   IF AT LEAST 12-BIT LINE TERMINATOR, EXIT            FA=RDC        54     A     
 FA=RDC             SB6    B6+B1       INCREMENT LWA+1 OF TRANSFER                         FA=RDC        55     A     
 FA=RDC             SA7    A6+B1       TERMINATE LINE                                      FA=RDC        56     A     
 FA=RDC             JP     FA=RDC      EXIT                                                FA=RDC        57     A     
 FA=RDC                                                                                    FA=RDC        58     A     
 FA=RDC   *         HERE IF END-OF-DATA ENCOUNTERED.                                       FA=RDC        59     A     
 FA=RDC                                                                                    FA=RDC        60     A     
 FA=RDC    RDC2     JP     *+4S15      ** REC MGR SIMULATES -RJ- HERE IF E-O-D **          FA=RDC        61     A     
 FA=RDC             SB2    A5          TEMP SAVE (A5), (X5)                                FA=RDC        62          I
          -FEAT126C 
 FA=RDC             BX1    X5                                                              FA=RDC        63          I
          -FEAT126C 
 FA=RDC             FETCH  X2,FP,X3                                                        FA=RDC        64          I
          -FEAT126C 
 FA=RDC             SA5    B2                                                              FA=RDC        65          I
          -FEAT126C 
 FA=RDC             FETCH  X2,FP,X3,X1                                                     FEAT126C      24     A     
 FA=RDC             SX3    X3-#EOS#                                                        FA=RDC        66     A     
 FA=RDC             SB6    B6+X4       (B6) = LWA+1 OF TRANSFER                            FA=RDC        67     A     
 FA=RDC             BX5    X1                                                              FA=RDC        68          I
          -FEAT126C 
 FA=RDC             SX1    B6          TO RETURN *EOS* STATUS                              FA=RDC        69     A     
 FA=RDC             ZR     X3,FA=RDC   IF EOS, EXIT                                        FA=RDC        70     A     
 FA=RDC             MX1    -1          RETURN EOP/EOI STATUS                               FA=RDC        71     A     
 FA=RDC             JP     FA=RDC      EXIT                                                FA=RDC        72     A     
 FA=RDC                                                                                    FA=RDC        73     A     
 FA=RDC                                                                                    FA=RDC        74     A     
 FA=RDC             IF     -DEF,QUAL$,2                                                    FA=RDC        75     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 301    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=RDC  
  
 FA=RDC             QUAL   *                                                               FA=RDC        76     A     
 FA=RDC    FA=RDC   EQU    /FA=RDC/FA=RDC                                                  FA=RDC        77     A     
 FA=RDC             ENDX                                                                   FA=RDC        78     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FA=RDC  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FA=RDC                      78        70
          FEAT126C                     2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=RDW  
  
 FA=RDW   *COMDECK,FA=RDW                                                                  FA=RDW         1     A     
 FA=RDW             CTEXT  FA=RDW - READ WORDS TO WORKING BUFFER                           FA=RDW         2     A     
 FA=RDW    RDW      SPACE  4                                                               FA=RDW         3     A     
 FA=RDW             IF     -DEF,QUAL$,1                                                    FA=RDW         4     A     
 FA=RDW             QUAL   FA=RDW                                                          FA=RDW         5     A     
 FA=RDW                                                                                    FA=RDW         6     A     
 FA=RDW                                                                                    FA=RDW         7     A     
 FA=RDW   **        FA=RDW - READ WORDS TO WORKING BUFFER.                                 FA=RDW         8     A     
 FA=RDW   *                                                                                FA=RDW         9     A     
 FA=RDW   *                *FA=RDW* PARALLELS ITS KRONOS MODEL, *COMCRDW* AS               FA=RDW        10     A     
 FA=RDW   *         CLOSELY AS POSSIBLE.  RECORD MANAGER COMPLICATED THINGS BY             FA=RDW        11     A     
 FA=RDW   *         ADDING A NEW LEVEL, *RECORD*, TO THE LOGICAL STRUCTURE                 FA=RDW        12     A     
 FA=RDW   *         HIERARCHY OF FILES.  SINCE CIO-STYLED I/O HAS NO SUCH LEVEL            FA=RDW        13     A     
 FA=RDW   *         (A CIO *RECORD* RESEMBLES A RECORD MANAGER *SECTION*),                 FA=RDW        14     A     
 FA=RDW   *         *FA=RDW* IGNORES 7RM RECORD BOUNDARIES AND RETURNS AN                  FA=RDW        15     A     
 FA=RDW   *         END-OF-DATA STATUS ONLY WHEN END-OF-SECTION IS SENSED.                 FA=RDW        16     A     
 FA=RDW   *                                                                                FA=RDW        17     A     
 FA=RDW   *                                                                                FA=RDW        18     A     
 FA=RDW   *         ENTRY  (X2) = PSEUDO-FET WORD 1.                                       FA=RDW        19     A     
 FA=RDW   *                (A2) = PSEUDO-FET ADDRESS.                                      FA=RDW        20     A     
 FA=RDW   *                (B1) = 1                                                        FA=RDW        21     A     
 FA=RDW   *                (B6) = WSA ADDRESS.                                             FA=RDW        22     A     
 FA=RDW   *                (B7) = WSA LENGTH (WORDS).                                      FA=RDW        23     A     
 FA=RDW   *                                                                                FA=RDW        24     A     
 FA=RDW   *         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                                 FA=RDW        25     A     
 FA=RDW   *                (X1) = -1 IF EOP/EOI DETECTED ON FILE.                          FA=RDW        26     A     
 FA=RDW   *                (X1) = (B6) IF EOS DETECTED ON FILE BEFORE TRANSFER             FA=RDW        27     A     
 FA=RDW   *                            WAS COMPLETED.                                      FA=RDW        28     A     
 FA=RDW   *                (X2) = PSEUDO-FET WORD 1.                                       FA=RDW        29     A     
 FA=RDW   *                (A2) = PSEUDO-FET ADDRESS.                                      FA=RDW        30     A     
 FA=RDW   *                (B1) = 1                                                        FA=RDW        31     A     
 FA=RDW   *                (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO             FA=RDW        32     A     
 FA=RDW   *                            WORKING STORAGE AREA.                               FA=RDW        33     A     
 FA=RDW   *                                                                                FA=RDW        34     A     
 FA=RDW   *         USES   X - 1, 2, 3, 4, 6, 7                                            FA=RDW        35     A     
 FA=RDW   *                A - 2, 3, 4, 6, 7                                               FA=RDW        36     A     
 FA=RDW   *                B - 2, 3, 4, 6, 7                                               FA=RDW        37     A     
 FA=RDW   *                                                                                FA=RDW        38          I
          -FEAT126C 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 302    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=RDW  
  
 FA=RDW   *         SAVES  (A5), (X5)                                                      FA=RDW        39          I
          -FEAT126C 
 FA=RDW   *                                                                                FA=RDW        40     A     
 FA=RDW   *         CALLS  FETCH, GETWP, MOVE                                              FA=RDW        41     A     
 FA=RDW                                                                                    FA=RDW        42     A     
 FA=RDW                                                                                    FA=RDW        43     A     
 FA=RDW    FA=RDW   JP     *+4S15      ** ENTRY/EXIT **                                    FA=RDW        44     A     
 FA=RDW                                                                                    FA=RDW        45     A     
 FA=RDW             IFNE   TEST,0,1                                                        FA=RDW        46     A     
 FA=RDW             LE     B7,B0,*+4S15      IF LENGTH ERROR, ABORT JOB                    FA=RDW        47     A     
 FA=RDW                                                                                    FA=RDW        48     A     
 FA=RDW             SB2    A2          (B2) = PSEUDO-FET ADDRESS                           FA=RDW        49     A     
 FA=RDW             SB3    B7+         (B3) = NR UNTRANSFERRED WORDS                       FA=RDW        50     A     
 FA=RDW             SB4    B6          (B4) = FWA OF TRANSFER                              FA=RDW        51     A     
 FA=RDW    RDW2     SA3    B2+I.IN     (X3) = HOLDING BUFFER -IN- POINTER                  FA=RDW        52     A     
 FA=RDW             SA2    A3+B1       (X2) = HOLDING BUFFER -OUT- POINTER                 FA=RDW        53     A     
 FA=RDW             SX6    B3          NR WORDS REQUESTED                                  FA=RDW        54     A     
 FA=RDW             IX7    X3-X2       NR WORDS IN HOLDING BUFFER                          FA=RDW        55     A     
 FA=RDW             ZR     X7,RDW6     IF HOLDING BUFFER EMPTY                             FA=RDW        56     A     
 FA=RDW                                                                                    FA=RDW        57     A     
 FA=RDW   *         COMPUTE MINIMUM OF NUMBER OF WORDS REQUESTED VS. WORDS IN              FA=RDW        58     A     
 FA=RDW   *         HOLDING BUFFER.  TRANSFER *MIN* WORDS TO WORKING STORAGE AREA.         FA=RDW        59     A     
 FA=RDW                                                                                    FA=RDW        60     A     
 FA=RDW             IX1    X6-X7                                                           FA=RDW        61     A     
 FA=RDW             SX3    B6          (X3) = FWA OF TRANSFER                              FA=RDW        62     A     
 FA=RDW             AX1    59D                                                             FA=RDW        63     A     
 FA=RDW             BX6    X1*X6                                                           FA=RDW        64     A     
 FA=RDW             BX7    -X1*X7                                                          FA=RDW        65     A     
 FA=RDW             IX1    X6+X7       (X1) = MIN (REQUESTED, AVAILABLE) NR WORDS          FA=RDW        66     A     
 FA=RDW             SB7    X1                                                              FA=RDW        67     A     
 FA=RDW             IX6    X2+X1                                                           FA=RDW        68     A     
 FA=RDW             SB3    B3-B7                                                           FA=RDW        69     A     
 FA=RDW             SB6    B6+X1       (B6) = LWA+1 OF TRANSFER                            FA=RDW        70     A     
 FA=RDW             SA6    A2          UPDATE -OUT-                                        FA=RDW        71     A     
 FA=RDW             MOVE   X1,X2,X3                                                        FA=RDW        72     A     
 FA=RDW             SA2    B2          RESTORE (X2) = FILE CONTROL WORD                    FA=RDW        73     A     
 FA=RDW             MX1    0           *TRANSFER COMPLETE* STATUS                          FA=RDW        74     A     
 FA=RDW             ZR     B3,FA=RDW   IF TRANSFER COMPLETE, EXIT                          FA=RDW        75     A     
 FA=RDW             LX3    X2,B1       LEFT ADJUST SPILL FLAG                              FA=RDW        76     A     
 FA=RDW             SX1    B6          *EOS DETECTED* STATUS                               FA=RDW        77     A     
 FA=RDW             PL     X3,FA=RDW   IF FILE NOT SPILLED TO DISK, EXIT                   FA=RDW        78     A     
 FA=RDW             SB7    A5          TEMP SAVE (A5), (X5)                                FA=RDW        79          I
          -FEAT126C 
 FA=RDW             BX1    X5                                                              FA=RDW        80          I
          -FEAT126C 
 FA=RDW             FETCH  X2,FP,X3                                                        FA=RDW        81          I
          -FEAT126C 
 FA=RDW             SA5    B7                                                              FA=RDW        82          I
          -FEAT126C 
 FA=RDW             FETCH  X2,FP,X3,X4                                                     FEAT126C      25     A     
 FA=RDW             SX4    #EOS#+#EOP#+#EOI#                                               FA=RDW        83     A     
 FA=RDW             BX3    X4*X3                                                           FA=RDW        84     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 303    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=RDW  
  
 FA=RDW             LX5    X1                                                              FA=RDW        85          I
          -FEAT126C 
 FA=RDW             NZ     X3,RDW5     IF FILE AT EOS/EOP/EOI                              FA=RDW        86     A     
 FA=RDW                                                                                    FA=RDW        87     A     
 FA=RDW   *         REFILL HOLDING BUFFER.                                                 FA=RDW        88     A     
 FA=RDW                                                                                    FA=RDW        89     A     
 FA=RDW    RDW3     SA3    B2+B1       -FIRST-                                             FA=RDW        90     A     
 FA=RDW             SA4    B2+I.LIMIT  -LIMIT-                                             FA=RDW        91     A     
 FA=RDW             IX1    X4-X3       HOLDING BUFFER LENGTH                               FA=RDW        92     A     
 FA=RDW             GETWP  X2,X3,X1,RDW7     RETURNS (X1) = TRANSFER LENGTH                FA=RDW        93     A     
 FA=RDW    RDW4     ZR     X1,RDW5     IF NO DATA RECEIVED                                 FA=RDW        94     A     
 FA=RDW             BX6    X3                                                              FA=RDW        95     A     
 FA=RDW             IX7    X3+X1                                                           FA=RDW        96     A     
 FA=RDW             SA6    A4-B1       RESET -OUT- = -FIRST-                               FA=RDW        97     A     
 FA=RDW             SA7    A3+B1       SET NEW -IN-                                        FA=RDW        98     A     
 FA=RDW             JP     RDW2        CONTINUE TRANSFER                                   FA=RDW        99     A     
 FA=RDW                                                                                    FA=RDW       100     A     
 FA=RDW   *         PROCESS END-OF-DATA CONDITION.                                         FA=RDW       101     A     
 FA=RDW                                                                                    FA=RDW       102     A     
 FA=RDW    RDW5     SA3    B2+B1       -FIRST-                                             FA=RDW       103     A     
 FA=RDW             SX1    B6          *EOS DETECTED* STATUS                               FA=RDW       104     A     
 FA=RDW             BX6    X3                                                              FA=RDW       105     A     
 FA=RDW             SA6    A3+B1       RESET -IN- = -FIRST-                                FA=RDW       106     A     
 FA=RDW             SA6    A6+B1       RESET -OUT- = -FIRST-                               FA=RDW       107     A     
 FA=RDW             GT     B6,B4,FA=RDW      IF ANY DATA TRANSFERRED TO WSA                FA=RDW       108     A     
 FA=RDW             MX1    -1          *EOP/EOI* STATUS                                    FA=RDW       109     A     
 FA=RDW             JP     FA=RDW      EXIT                                                FA=RDW       110     A     
 FA=RDW                                                                                    FA=RDW       111     A     
 FA=RDW   *         PROCESS EMPTY HOLDING BUFFER.                                          FA=RDW       112     A     
 FA=RDW                                                                                    FA=RDW       113     A     
 FA=RDW    RDW6     SA2    B2          RESTORE (X2) = PSEUDO-FET WORD 1                    FA=RDW       114     A     
 FA=RDW             LX1    X2,B1       LEFT ADJUST SPILL FLAG                              FA=RDW       115     A     
 FA=RDW             PL     X1,RDW5     IF FILE NOT SPILLED TO DISK                         FA=RDW       116     A     
 FA=RDW             JP     RDW3        GO REFILL HOLDING BUFFER                            FA=RDW       117     A     
 FA=RDW                                                                                    FA=RDW       118     A     
 FA=RDW   *         PROCESS RECORD MANAGER DATA EXIT.                                      FA=RDW       119     A     
 FA=RDW                                                                                    FA=RDW       120     A     
 FA=RDW    RDW7     JP     *+4S15      ** REC MGR SIMULATES -RJ- HERE IF E-O-D **          FA=RDW       121     A     
 FA=RDW             JP     RDW4        CONTINUE (IGNORE 7RM *RECORD* END)                  FA=RDW       122     A     
 FA=RDW                                                                                    FA=RDW       123     A     
 FA=RDW                                                                                    FA=RDW       124     A     
 FA=RDW             IF     -DEF,QUAL$,2                                                    FA=RDW       125     A     
 FA=RDW             QUAL   *                                                               FA=RDW       126     A     
 FA=RDW    FA=RDW   EQU    /FA=RDW/FA=RDW                                                  FA=RDW       127     A     
 FA=RDW             ENDX                                                                   FA=RDW       128     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FA=RDW  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FA=RDW                     128       121
          FEAT126C                     1         1
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 304    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=RDW  
  
0 
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=RWX  
  
 FA=RWX   *COMDECK,FA=RWX                                                                  FA=RWX         1     A     
 FA=RWX             CTEXT  FA=RWX - REWIND FILE (FANCY)                                    FA=RWX         2     A     
 FA=RWX    RWX      SPACE  4                                                               FA=RWX         3     A     
 FA=RWX             IF     -DEF,QUAL$,1                                                    FA=RWX         4     A     
 FA=RWX             QUAL   FA=RWX                                                          FA=RWX         5     A     
 FA=RWX                                                                                    FA=RWX         6     A     
 FA=RWX                                                                                    FA=RWX         7     A     
 FA=RWX   **        FA=RWX - REWIND FILE (SUPPRESSED FOR SCRATCH FILES).                   FA=RWX         8     A     
 FA=RWX   *                                                                                FA=RWX         9     A     
 FA=RWX   *         SEQUENTIAL BINARY FILE -                                               FA=RWX        10     A     
 FA=RWX   *           REWINDS THE FILE, UNLESS THE HOLDING BUFFER HAS NOT                  FA=RWX        11     A     
 FA=RWX   *           OVERFLOWED AND THE COMPILER IS ASSEMBLED IN SYSTEM MODE.             FA=RWX        12     A     
 FA=RWX   *                                                                                FA=RWX        13     A     
 FA=RWX   *         OTHER FILE TYPE -                                                      FA=RWX        14     A     
 FA=RWX   *           REWINDS THE FILE UNCONDITIONALLY.                                    FA=RWX        15     A     
 FA=RWX   *                                                                                FA=RWX        16     A     
 FA=RWX   *                                                                                FA=RWX        17     A     
 FA=RWX   *         ENTRY  (X2) = PSEUDO-FET WORD 1                                        FA=RWX        18     A     
 FA=RWX   *                (A2) = PSEUDO-FET ADDRESS                                       FA=RWX        19     A     
 FA=RWX   *                                                                                FA=RWX        20     A     
 FA=RWX   *         EXIT   (X2) = PSEUDO-FET WORD 1                                        FA=RWX        21     A     
 FA=RWX   *                (A2) = PSEUDO-FET ADDRESS                                       FA=RWX        22     A     
 FA=RWX   *                                                                                FA=RWX        23     A     
 FA=RWX   *         USES   X - 1, 6, 7                                                     FA=RWX        24     A     
 FA=RWX   *                A - 1, 6                                                        FA=RWX        25     A     
 FA=RWX   *                B - NONE                                                        FA=RWX        26     A     
 FA=RWX   *                                                                                FA=RWX        27     A     
 FA=RWX   *         CALLS  REWINDM                                                         FA=RWX        28     A     
 FA=RWX                                                                                    FA=RWX        29     A     
 FA=RWX                                                                                    FA=RWX        30     A     
 FA=RWX    FA=RWX   JP     *+4S15      ** ENTRY/EXIT **                                    FA=RWX        31     A     
 FA=RWX             PL     X2,RWX2     IF FILE HAS NO HOLDING BUFFER                       FA=RWX        32     A     
 FA=RWX             SA1    A2+I.FIRST                                                      FA=RWX        33     A     
 FA=RWX             IX7    X2+X2       LEFT ADJUST SPILL FLAG                              FA=RWX        34     A     
 FA=RWX             BX6    X1                                                              FA=RWX        35     A     
 FA=RWX             SA6    A2+I.OUT    SET -OUT- = -FIRST-                                 FA=RWX        36     A     
 FA=RWX                                                                                    FA=RWX        37     A     
 FA=RWX             IFEQ   TEST,0,1                                                        FA=RWX        38     A     
 FA=RWX             PL     X7,FA=RWX   IF HOLDING BUFFER HAS NOT SPILLED, EXIT             FA=RWX        39     A     
 FA=RWX                                                                                    FA=RWX        40     A     
 FA=RWX             SA6    A2+I.IN     SET -IN- = -FIRST-                                  FA=RWX        41     A     
 FA=RWX    RWX2     REWINDM   X2                                                           FA=RWX        42     A     
 FA=RWX             JP     FA=RWX      EXIT                                                FA=RWX        43     A     
 FA=RWX                                                                                    FA=RWX        44     A     
 FA=RWX                                                                                    FA=RWX        45     A     
 FA=RWX             IF     -DEF,QUAL$,2                                                    FA=RWX        46     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 305    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=RWX  
  
 FA=RWX             QUAL   *                                                               FA=RWX        47     A     
 FA=RWX    FA=RWX   EQU    /FA=RWX/FA=RWX                                                  FA=RWX        48     A     
 FA=RWX             ENDX                                                                   FA=RWX        49     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FA=RWX  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FA=RWX                      49        49
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=SET  
  
 FA=SET   *COMDECK FA=SET                                                                  FA=SET         1     A     
 FA=SET             CTEXT  FA=SET - SET FILE TABLES                                        FA=SET         2     A     
 FA=SET    SET      SPACE  4                                                               FA=SET         3     A     
 FA=SET             IF     -DEF,QUAL$,1                                                    FA=SET         4     A     
 FA=SET             QUAL   FA=SET                                                          FA=SET         5     A     
 FA=SET                                                                                    FA=SET         6     A     
 FA=SET                                                                                    FA=SET         7     A     
 FA=SET    #RM      IFEQ   CP#RM,0                                                         FA=SET         8     A     
 FA=SET                                                                                    FA=SET         9     A     
 FA=SET   **        FA=SET - SET FILE ENVIRONMENT TABLE  (CIO DIRECT I/O).                 FA=SET        10     A     
 FA=SET   *                                                                                FA=SET        11     A     
 FA=SET   *         SETS CIO BUFFER ADDRESSES IN FET.  EITHER THE FWA OR LWA+1 OF          FA=SET        12     A     
 FA=SET   *         THE BUFFER SPACE IS REQUIRED AS AN INPUT PARAMETER.  THE OTHER         FA=SET        13     A     
 FA=SET   *         ADDRESS IS COMPUTED.  BOTH ADDRESSES ARE IN REGISTERS ON EXIT.         FA=SET        14     A     
 FA=SET   *         BUFFER LENGTH IS OBTAINED FROM THE FET (I.CBSET).                      FA=SET        15     A     
 FA=SET   *                                                                                FA=SET        16     A     
 FA=SET   *                                                                                FA=SET        17     A     
 FA=SET   *         ENTRY  (X2) = FET ADDRESS                                              FA=SET        18     A     
 FA=SET   *                (B1) = 1                                                        FA=SET        19     A     
 FA=SET   *                (B2) = BUFFER FWA OR 0                                          FA=SET        20     A     
 FA=SET   *                (B3) = 0 OR BUFFER LWA+1                                        FA=SET        21     A     
 FA=SET   *                                                                                FA=SET        22     A     
 FA=SET   *         EXIT   (X2) = FET ADDRESS                                              FA=SET        23     A     
 FA=SET   *                (B1) = 1                                                        FA=SET        24     A     
 FA=SET   *                (B2) = BUFFER FWA                                               FA=SET        25     A     
 FA=SET   *                (B3) = BUFFER LWA+1                                             FA=SET        26     A     
 FA=SET   *                                                                                FA=SET        27     A     
 FA=SET   *         USES   X - 1, 3, 4, 6, 7                                               FA=SET        28     A     
 FA=SET   *                A - 1, 4, 6, 7                                                  FA=SET        29     A     
 FA=SET   *                B - 2, 3                                                        FA=SET        30     A     
 FA=SET   *                                                                                FA=SET        31     A     
 FA=SET   *         CALLS  NONE                                                            FA=SET        32     A     
 FA=SET                                                                                    FA=SET        33     A     
 FA=SET                                                                                    FA=SET        34     A     
 FA=SET    FA=SET   JP     *+4S15      ** ENTRY/EXIT **                                    FA=SET        35     A     
 FA=SET             SA1    X2          (X1) = FET WORD 1                                   FA=SET        36     A     
 FA=SET             LX1    59-0                                                            FA=SET        37     A     
 FA=SET             MI     X1,SET2     IF FILE QUIET                                       FA=SET        38     A     
 FA=SET             RECALL X2          WAIT FOR FILE QUIET; RETURNS (X2) = FET ADR         FA=SET        39     A     
 FA=SET                                                                                    FA=SET        40     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 306    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=SET  
  
 FA=SET   *         NEXT SEQUENCE SETS (X6)=FWA AND (X7)=LWA+1, GIVEN EITHER               FA=SET        41     A     
 FA=SET   *         (B2)=FWA AND (B3)=0,  OR,  (B2)=0 AND (B3)=LWA+1.                      FA=SET        42     A     
 FA=SET                                                                                    FA=SET        43     A     
 FA=SET    SET2     SA1    X2+I.CBSET                                                      FA=SET        44     A     
 FA=SET             SX3    B2-B3                                                           FA=SET        45     A     
 FA=SET             AX3    59D                                                             FA=SET        46     A     
 FA=SET             AX1    18          (X1) = CIO BUFFER LENGTH                            FA=SET        47     A     
 FA=SET             BX6    -X1*X3                                                          FA=SET        48     A     
 FA=SET             NO                                                                     FA=SET        49     A     
 FA=SET             BX7    -X3*X1                                                          FA=SET        50     A     
 FA=SET             SX3    B2+B3       FWA OR LWA+1                                        FA=SET        51     A     
 FA=SET             IX6    X6+X3       (X6) = BUFFER FWA                                   FA=SET        52     A     
 FA=SET             LX1    18                                                              FA=SET        53     A     
 FA=SET             SB2    X6          (B2) = BUFFER FWA                                   FA=SET        54     A     
 FA=SET             IX7    X7+X3       (X7) = BUFFER LWA+1                                 FA=SET        55     A     
 FA=SET                                                                                    FA=SET        56     A     
 FA=SET   *         STORE VALUES IN FET.                                                   FA=SET        57     A     
 FA=SET                                                                                    FA=SET        58     A     
 FA=SET             SA6    X2+I.OUT    OUT                                                 FA=SET        59     A     
 FA=SET             SB3    X7          (B3) = BUFFER LWA+1                                 FA=SET        60     A     
 FA=SET             SA4    X2+I.LIMIT  FET+4                                               FA=SET        61     A     
 FA=SET             MX3    42                                                              FA=SET        62     A     
 FA=SET             BX4    X4*X3       SAVE PRU SIZE ETC.                                  FA=SET        63     A     
 FA=SET             BX7    X7+X4                                                           FA=SET        64     A     
 FA=SET             SA7    A4          LIMIT                                               FA=SET        65     A     
 FA=SET             SA6    A6-B1       IN                                                  FA=SET        66     A     
 FA=SET             BX7    X1+X6       24/0, 18/PASS 1 LEN, 18/PASS 1 FWA                  FA=SET        67     A     
 FA=SET             SA1    A6-B1       FET+1                                               FA=SET        68     A     
 FA=SET             BX1    X1*X3       SAVE FET LENGTH ETC.                                FA=SET        69     A     
 FA=SET             BX6    X6+X1                                                           FA=SET        70     A     
 FA=SET             SA6    A1          FIRST                                               FA=SET        71     A     
 FA=SET             SA7    A7+B1       CBSET                                               FA=SET        72     A     
 FA=SET             JP     FA=SET      EXIT                                                FA=SET        73     A     
 FA=SET                                                                                    FA=SET        74     A     
 FA=SET    #RM      ELSE                                                                   FA=SET        75     A     
 FA=SET                                                                                    FA=SET        76     A     
 FA=SET   **        FA=SET - SET FILE BUFFER ADDRESSES (RECORD MANAGER I/O).               FA=SET        77     A     
 FA=SET   *                                                                                FA=SET        78     A     
 FA=SET   *         INITIALIZES HOLDING BUFFER ADDRESSES IN FIT AND PSEUDO-FET.            FA=SET        79     A     
 FA=SET   *         EITHER THE FWA OR LWA+1 OF THE BUFFER SPACE IS REQUIRED AS AN          FA=SET        80     A     
 FA=SET   *         INPUT PARAMETER.  THE OTHER ADDRESS WILL BE COMPUTED.  BOTH            FA=SET        81     A     
 FA=SET   *         ADDRESSES ARE IN REGISTERS ON EXIT.  BUFFER LENGTH IS                  FA=SET        82     A     
 FA=SET   *         OBTAINED FROM THE PSEUDO-FET (I.HBSET).                                FA=SET        83     A     
 FA=SET   *                                                                                FA=SET        84     A     
 FA=SET   *                                                                                FA=SET        85     A     
 FA=SET   *         ENTRY  (X2) = PSEUDO-FET WORD 1                                        FA=SET        86     A     
 FA=SET   *                (A2) = PSEUDO-FET ADDRESS                                       FA=SET        87     A     
 FA=SET   *                (B1) = 1                                                        FA=SET        88     A     
 FA=SET   *                (B2) = BUFFER FWA OR 0                                          FA=SET        89     A     
 FA=SET   *                (B3) = 0 OR BUFFER LWA+1                                        FA=SET        90     A     
 FA=SET   *                                                                                FA=SET        91     A     
 FA=SET   *         EXIT   (X2) = PSEUDO-FET WORD 1                                        FA=SET        92     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 307    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=SET  
  
 FA=SET   *                (A2) = PSEUDO-FET ADDRESS                                       FA=SET        93     A     
 FA=SET   *                (B1) = 1                                                        FA=SET        94     A     
 FA=SET   *                (B2) = BUFFER FWA                                               FA=SET        95     A     
 FA=SET   *                (B3) = BUFFER LWA+1                                             FA=SET        96     A     
 FA=SET   *                                                                                FA=SET        97     A     
 FA=SET   *         USES   X - 1, 6, 7                                                     FA=SET        98     A     
 FA=SET   *                A - 1, 6, 7                                                     FA=SET        99     A     
 FA=SET   *                B - 2, 3, 4                                                     FA=SET       100     A     
 FA=SET   *                                                                                FA=SET       101     A     
 FA=SET   *         SAVES  (A5), (X5)                                                      FA=SET       102     A     
 FA=SET   *                                                                                FA=SET       103     A     
 FA=SET   *         CALLS  SAR, STORE                                                      FA=SET       104     A     
 FA=SET                                                                                    FA=SET       105     A     
 FA=SET                                                                                    FA=SET       106     A     
 FA=SET    FA=SET   JP     *+4S15      ** ENTRY/EXIT **                                    FA=SET       107     A     
 FA=SET                                                                                    FA=SET       108     A     
 FA=SET   *         INITIALIZE -FILE SPILLED- FLAG TO -UNCONDITIONAL FLUSH-                FA=SET       109     A     
 FA=SET   *         FLAG VALUE.  THIS ALLOWS SMALL FILES TO BE FLUSHED TO DISK,            FA=SET       110     A     
 FA=SET   *         EVEN THOUGH THE RELATED HOLDING BUFFER MAY HAVE NEVER BEEN             FA=SET       111     A     
 FA=SET   *         COMPLETELY FILLED.                                                     FA=SET       112     A     
 FA=SET                                                                                    FA=SET       113     A     
 FA=SET             MX1    1                                                               FA=SET       114     A     
 FA=SET             LX6    X2,B1                                                           FA=SET       115     A     
 FA=SET             LX1    -59D+58D                                                        FA=SET       116     A     
 FA=SET             BX7    -X1*X2      CLEAR OLD SPILL FLAG                                FA=SET       117     A     
 FA=SET             BX6    X1*X6       EXTRACT FLUSH FLAG                                  FA=SET       118     A     
 FA=SET             BX7    X6+X7                                                           FA=SET       119     A     
 FA=SET             SA7    A2          RESET SPILL FLAG = FLUSH FLAG                       FA=SET       120     A     
 FA=SET                                                                                    FA=SET       121     A     
 FA=SET   *         DETERMINE IF FWA-UP OR LWA-DOWN MODE.                                  FA=SET       122     A     
 FA=SET                                                                                    FA=SET       123     A     
 FA=SET             SB4    B1          (B4) = +1 = MODE SWITCH TO FWA-UP                   FA=SET       124     A     
 FA=SET             NZ     B2,SET2     IF (B2) .NZ., MODE IS FWA-UP                        FA=SET       125     A     
 FA=SET             SB4    -B1         (B4) = -1 = MODE SWITCH TO LWA-DOWN                 FA=SET       126     A     
 FA=SET                                                                                    FA=SET       127     A     
 FA=SET    SET2     PL     X2,SET3     IF FILE HAS NO HOLDING BUFFER                       FA=SET       128     A     
 FA=SET             SA1    A2+I.HBSET  (X1) = HOLDING BUFFER RESET PARAMS                  FA=SET       129     A     
 FA=SET             RJ     SAR                                                             FA=SET       130     A     
 FA=SET             BX7    X1+X6                                                           FA=SET       131     A     
 FA=SET             SA6    A2+B1       HOLD BUF FWA   TO (P-FET+I.FIRST)                   FA=SET       132     A     
 FA=SET             SA7    A1          ADD FWA TO RESET PARAM WORD                         FA=SET       133     A     
 FA=SET             SA6    A6+B1                      TO (P-FET+I.IN)                      FA=SET       134     A     
 FA=SET             SX7    B3                                                              FA=SET       135     A     
 FA=SET             SA6    A6+B1                      TO (P-FET+I.OUT)                     FA=SET       136     A     
 FA=SET             SA7    A6+B1       HOLD BUF LWA+1 TO (P-FET+I.LIMIT)                   FA=SET       137     A     
 FA=SET             BX1    X5          TEMP SAVE (X5), (A5)                                FA=SET       138          I
          -FEAT126C 
 FA=SET             SB4    A5                                                              FA=SET       139          I
          -FEAT126C 
 FA=SET             STORE  X2,WSA=X6                                                       FA=SET       140          I
          -FEAT126C 
 FA=SET             STORE  X2,WSA=X6,X1                                                    FEAT126C      26     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 308    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=SET  
  
 FA=SET             SX7    B3-B2       (X7) = HOLDING BUFFER LENGTH (WORDS)                FA=SET       141     A     
 FA=SET             IX6    X7+X7                                                           FA=SET       142     A     
 FA=SET             LX7    3                                                               FA=SET       143     A     
 FA=SET             IX6    X6+X7       (X6) = LENGTH (CHARACTERS)                          FA=SET       144     A     
 FA=SET             STORE  X2,PTL=X6                                                       FA=SET       145          I
          -FEAT126C 
 FA=SET             SA5    B4          RESTORE (A5), (X5) FOR EXIT                         FA=SET       146          I
          -FEAT126C 
 FA=SET             BX5    X1                                                              FA=SET       147          I
          -FEAT126C 
 FA=SET             STORE  X2,PTL=X6,X1                                                    FEAT126C      27     A     
 FA=SET             JP     FA=SET      EXIT                                                FA=SET       148     A     
 FA=SET                                                                                    FA=SET       149     A     
 FA=SET    SET3     MX1    0           DUMMY LENGTH = 0 TO FORCE FWA = LWA+1               FA=SET       150     A     
 FA=SET             RJ     SAR                                                             FA=SET       151     A     
 FA=SET             JP     FA=SET      EXIT                                                FA=SET       152     A     
 FA=SET    SAR      SPACE  4,8                                                             FA=SET       153     A     
 FA=SET   **        SAR - SET ADDRESSES IN REGISTERS.                                      FA=SET       154     A     
 FA=SET   *                                                                                FA=SET       155     A     
 FA=SET   *                                                                                FA=SET       156     A     
 FA=SET   *         ENTRY  (X1) = LEN * 1S18                                               FA=SET       157     A     
 FA=SET   *                (B2) = FWA OR 0                                                 FA=SET       158     A     
 FA=SET   *                (B3) = 0 OR LWA+1                                               FA=SET       159     A     
 FA=SET   *                (B4) = +1 IF FWA-UP MODE AND (B2) = FWA                         FA=SET       160     A     
 FA=SET   *                     = -1 IF LWA-DOWN MODE AND (B3) = LWA+1                     FA=SET       161     A     
 FA=SET   *                                                                                FA=SET       162     A     
 FA=SET   *         EXIT   (X1) = LEN * 1S18  (LOWER 18 BITS CLEAR)                        FA=SET       163     A     
 FA=SET   *                (X6) = FWA                                                      FA=SET       164     A     
 FA=SET   *                (B2) = FWA                                                      FA=SET       165     A     
 FA=SET   *                (B3) = LWA+1                                                    FA=SET       166     A     
 FA=SET   *                                                                                FA=SET       167     A     
 FA=SET   *         USES   X - 1, 6                                                        FA=SET       168     A     
 FA=SET   *                A - NONE                                                        FA=SET       169     A     
 FA=SET   *                B - 2, 3                                                        FA=SET       170     A     
 FA=SET   *                                                                                FA=SET       171     A     
 FA=SET   *         CALLS  NONE                                                            FA=SET       172     A     
 FA=SET                                                                                    FA=SET       173     A     
 FA=SET                                                                                    FA=SET       174     A     
 FA=SET    SAR2     BX6    -X1         (X6) = - BUFFER LENGTH                              FA=SET       175     A     
 FA=SET             LX1    18D                                                             FA=SET       176     A     
 FA=SET             SB2    X6+B3       (B2) = BUFFER FWA                                   FA=SET       177     A     
 FA=SET             SX6    X6+B3                                                           FA=SET       178     A     
 FA=SET                                                                                    FA=SET       179     A     
 FA=SET    SAR      JP     *+4S15      ** ENTRY/EXIT **                                    FA=SET       180     A     
 FA=SET             AX1    18D                                                             FA=SET       181     A     
 FA=SET             MI     B4,SAR2     IF LWA-DOWN MODE                                    FA=SET       182     A     
 FA=SET             SB3    X1+B2       (B3) = BUFFER LWA+1                                 FA=SET       183     A     
 FA=SET             LX1    18D                                                             FA=SET       184     A     
 FA=SET             SX6    B2                                                              FA=SET       185     A     
 FA=SET             EQ     SAR         EXIT                                                FA=SET       186     A     
 FA=SET             SPACE  4                                                               FA=SET       187     A     
 FA=SET    #RM      ENDIF                                                                  FA=SET       188     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 309    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=SET  
  
 FA=SET                                                                                    FA=SET       189     A     
 FA=SET                                                                                    FA=SET       190     A     
 FA=SET             IF     -DEF,QUAL$,2                                                    FA=SET       191     A     
 FA=SET             QUAL   *                                                               FA=SET       192     A     
 FA=SET    FA=SET   EQU    /FA=SET/FA=SET                                                  FA=SET       193     A     
 FA=SET             ENDX                                                                   FA=SET       194     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FA=SET  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FA=SET                     194       188
          FEAT126C                     2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=WTC  
  
 FA=WTC   *COMDECK,FA=WTC                                                                  FA=WTC         1     A     
 FA=WTC             CTEXT  FA=WTC - WRITE CODED LINE, -C- FORMAT                           FA=WTC         2     A     
 FA=WTC    WTC      SPACE  4                                                               FA=WTC         3     A     
 FA=WTC             IF     -DEF,QUAL$,1                                                    FA=WTC         4     A     
 FA=WTC             QUAL   FA=WTC                                                          FA=WTC         5     A     
 FA=WTC                                                                                    FA=WTC         6     A     
 FA=WTC                                                                                    FA=WTC         7     A     
 FA=WTC   **        FA=WTC - WRITE CODED LINE TO FILE, IN -C- FORMAT.                      FA=WTC         8     A     
 FA=WTC   *                                                                                FA=WTC         9     A     
 FA=WTC   *                *FA=WTC* PARALLELS ITS KRONOS MODEL, *COMCWTC*.                 FA=WTC        10     A     
 FA=WTC   *         FOR EFFICIENCY, LINE LENGTH IN WORDS MAY BE PROVIDED IN (B7)           FA=WTC        11     A     
 FA=WTC   *         ON ENTRY.  THIS WILL AVOID A SCAN FOR AN END-OF-LINE ZERO              FA=WTC        12     A     
 FA=WTC   *         BYTE.  IF LENGTH IS NOT PROVIDED, (B7) MUST CONTAIN ZERO.              FA=WTC        13     A     
 FA=WTC   *                                                                                FA=WTC        14     A     
 FA=WTC   *                                                                                FA=WTC        15     A     
 FA=WTC   *         ENTRY  (X2) = FIT ADDRESS                                              FA=WTC        16     A     
 FA=WTC   *                (B1) = 1                                                        FA=WTC        17     A     
 FA=WTC   *                (B6) = LINE ADDRESS                                             FA=WTC        18     A     
 FA=WTC   *                (B7) = LINE LENGTH IN WORDS, OR ZERO - SEE ABOVE                FA=WTC        19     A     
 FA=WTC   *                                                                                FA=WTC        20     A     
 FA=WTC   *         EXIT   (X2) = FIT ADDRESS                                              FA=WTC        21     A     
 FA=WTC   *                (B1) = 1                                                        FA=WTC        22     A     
 FA=WTC   *                                                                                FA=WTC        23     A     
 FA=WTC   *         USES   X - 1, 3, 4, 6, 7                                               FA=WTC        24     A     
 FA=WTC   *                A - 1, 4                                                        FA=WTC        25     A     
 FA=WTC   *                B - 2, 7                                                        FA=WTC        26     A     
 FA=WTC   *                                                                                FA=WTC        27     A     
 FA=WTC   *         CALLS  PUT                                                             FA=WTC        28     A     
 FA=WTC                                                                                    FA=WTC        29     A     
 FA=WTC                                                                                    FA=WTC        30     A     
 FA=WTC    FA=WTC   JP     *+4S15      ** ENTRY/EXIT **                                    FA=WTC        31     A     
 FA=WTC                                                                                    FA=WTC        32     A     
 FA=WTC             IFNE   TEST,0,1                                                        FA=WTC        33     A     
 FA=WTC             LT     B7,B0,*+4S15      IF LENGTH ERROR, ABORT JOB                    FA=WTC        34     A     
 FA=WTC                                                                                    FA=WTC        35     A     
 FA=WTC   *         DETERMINE LINE LENGTH (WORDS).                                         FA=WTC        36     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 310    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=WTC  
  
 FA=WTC                                                                                    FA=WTC        37     A     
 FA=WTC             GT     B7,B0,WTC3  IF CALLER PROVIDED LENGTH                           FA=WTC        38     A     
 FA=WTC             SA1    B6          (X1) = FIRST WORD OF LINE                           FA=WTC        39     A     
 FA=WTC             MX6    -12D                                                            FA=WTC        40     A     
 FA=WTC    WTC2     BX7    -X6*X1      EXTRACT EOL BYTE FIELD                              FA=WTC        41     A     
 FA=WTC             SA1    A1+B1                                                           FA=WTC        42     A     
 FA=WTC             NZ     X7,WTC2     IF NOT END-OF-LINE                                  FA=WTC        43     A     
 FA=WTC             SB7    A1-B6       (B7) = LINE LENGTH (WORDS)                          FA=WTC        44     A     
 FA=WTC                                                                                    FA=WTC        45     A     
 FA=WTC   *         DETERMINE LINE LENGTH (CHARACTERS).                                    FA=WTC        46     A     
 FA=WTC                                                                                    FA=WTC        47     A     
 FA=WTC    WTC3     SB2    B7-B1                                                           FA=WTC        48     A     
 FA=WTC             SX6    B7                                                              FA=WTC        49     A     
 FA=WTC             SA1    B6+B2       (X1) = LAST WORD OF LINE                            FA=WTC        50     A     
 FA=WTC             IX7    X6+X6                                                           FA=WTC        51     A     
 FA=WTC             LX6    3                                                               FA=WTC        52     A     
 FA=WTC             SA4    WTCA        (X4) = CHARACTER BYTE MASK                          FA=WTC        53     A     
 FA=WTC             IX7    X6+X7       (X7) = LINE LENGTH (CHARACTERS)                     FA=WTC        54     A     
 FA=WTC                                                                                    FA=WTC        55     A     
 FA=WTC   *         LOCATE AND COUNT LINE TERMINATING ZERO BYTES.  ADJUST LINE             FA=WTC        56     A     
 FA=WTC   *         LENGTH (IN CHARACTERS) ACCORDINGLY.                                    FA=WTC        57     A     
 FA=WTC                                                                                    FA=WTC        58     A     
 FA=WTC             CX6    X1          MINUS ZERO PROTECT                                  FA=WTC        59     A     
 FA=WTC             MX3    -1                                                              FA=WTC        60     A     
 FA=WTC             NZ     X6,WTC4     IF LAST WORD NOT NULL                               FA=WTC        61     A     
 FA=WTC             SA1    A1-1        (X1) = LAST NON-NULL WORD OF LINE                   FA=WTC        62     A     
 FA=WTC             SX7    X7-10D                                                          FA=WTC        63     A     
 FA=WTC    WTC4     IX6    X1+X3       BORROW PROPAGATES LEFT THRU ALL ZERO BYTES          FA=WTC        64     A     
 FA=WTC             NO                                                                     FA=WTC        65     A     
 FA=WTC             BX1    -X1*X6                                                          FA=WTC        66     A     
 FA=WTC             SX3    B6          (X3) = LINE ADDRESS                                 FA=WTC        67     A     
 FA=WTC             BX6    X4*X1       RETAIN *40* IN EACH NULL CHAR BYTE POSITION         FA=WTC        68     A     
 FA=WTC             NO                                                                     FA=WTC        69     A     
 FA=WTC             CX1    X6          (X1) = NR OF NULL CHARACTERS                        FA=WTC        70     A     
 FA=WTC             IX4    X7-X1       (X4) = LINE LENGTH (NON-NULL CHARACTERS)            FA=WTC        71     A     
 FA=WTC             PUT    X2,X3,X4                                                        FA=WTC        72     A     
 FA=WTC             JP     FA=WTC      EXIT                                                FA=WTC        73     A     
 FA=WTC                                                                                    FA=WTC        74     A     
 FA=WTC                                                                                    FA=WTC        75     A     
 FA=WTC                                                                                    FA=WTC        76     A     
 FA=WTC    WTCA     DATA   40404040404040404040B                                           FA=WTC        77     A     
 FA=WTC                                                                                    FA=WTC        78     A     
 FA=WTC                                                                                    FA=WTC        79     A     
 FA=WTC             IF     -DEF,QUAL$,2                                                    FA=WTC        80     A     
 FA=WTC             QUAL   *                                                               FA=WTC        81     A     
 FA=WTC    FA=WTC   EQU    /FA=WTC/FA=WTC                                                  FA=WTC        82     A     
 FA=WTC             ENDX                                                                   FA=WTC        83     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FA=WTC  
  
          IDENTIFIER               TOTAL    ACTIVE
  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 311    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=WTC  
  
          FA=WTC                      83        83
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=WTW  
  
 FA=WTW   *COMDECK,FA=WTW                                                                  FA=WTW         1     A     
 FA=WTW             CTEXT  FA=WTW - WRITE WORDS FROM WORKING BUFFER                        FA=WTW         2     A     
 FA=WTW    WTW      SPACE  4                                                               FA=WTW         3     A     
 FA=WTW             IF     -DEF,QUAL$,1                                                    FA=WTW         4     A     
 FA=WTW             QUAL   FA=WTW                                                          FA=WTW         5     A     
 FA=WTW                                                                                    FA=WTW         6     A     
 FA=WTW                                                                                    FA=WTW         7     A     
 FA=WTW   **        FA=WTW - WRITE WORDS FROM WORKING BUFFER TO SEQUENTIAL FILE.           FA=WTW         8     A     
 FA=WTW   *                                                                                FA=WTW         9     A     
 FA=WTW   *                                                                                FA=WTW        10     A     
 FA=WTW   *         ENTRY  (X2) = PSEUDO-FET WORD 1                                        FA=WTW        11     A     
 FA=WTW   *                (A2) = PSEUDO-FET ADDRESS                                       FA=WTW        12     A     
 FA=WTW   *                (B1) = 1                                                        FA=WTW        13     A     
 FA=WTW   *                (B6) = WSA ADDRESS                                              FA=WTW        14     A     
 FA=WTW   *                (B7) = WSA LENGTH (WORDS)                                       FA=WTW        15     A     
 FA=WTW   *                                                                                FA=WTW        16     A     
 FA=WTW   *         EXIT   (X2) = PSEUDO-FET WORD 1                                        FA=WTW        17     A     
 FA=WTW   *                (A2) = PSEUDO-FET ADDRESS                                       FA=WTW        18     A     
 FA=WTW   *                (B1) = 1                                                        FA=WTW        19     A     
 FA=WTW   *                                                                                FA=WTW        20     A     
 FA=WTW   *         USES   X - 1, 2, 3, 4, 6                                               FA=WTW        21     A     
 FA=WTW   *                A - 1, 2, 3, 4, 6                                               FA=WTW        22     A     
 FA=WTW   *                B - 2, 3, 6, 7                                                  FA=WTW        23     A     
 FA=WTW   *                                                                                FA=WTW        24     A     
 FA=WTW   *         CALLS  MOVE, PUTW                                                      FA=WTW        25     A     
 FA=WTW                                                                                    FEAT126CA      4     A     
 FA=WTW    FA=WTWA  BSS    1           STORAGE FOR (X5)                                    FEAT126CA      5     A     
 FA=WTW    FA=WTWB  BSS    1           STORAGE FOR (A5)                                    FEAT126CA      6     A     
 FA=WTW                                                                                    FA=WTW        26     A     
 FA=WTW                                                                                    FA=WTW        27     A     
 FA=WTW    FA=WTW   JP     *+4S15      ** ENTRY/EXIT **                                    FA=WTW        28     A     
 FA=WTW                                                                                    FA=WTW        29     A     
 FA=WTW             IFNE   TEST,0,1                                                        FA=WTW        30     A     
 FA=WTW             LT     B7,B0,*+4S15  IF LENGTH ERROR, ABORT JOB                        FA=WTW        31     A     
 FA=WTW                                                                                    FA=WTW        32     A     
 FA=WTW             ZR     B7,FA=WTW   IF ZERO LENGTH WRITE                                FA=WTW        33     A     
 FA=WTW    WTW2     SA3    A2+I.IN     (X3) = HOLDING BUFFER -IN- POINTER                  FA=WTW        34     A     
 FA=WTW             SA4    A2+I.LIMIT  (X4) = HOLDING BUFFER -LIMIT- POINTER               FA=WTW        35     A     
 FA=WTW             SX6    X3+B7       UPDATED -IN-                                        FA=WTW        36     A     
 FA=WTW             IX1    X6-X4       DATA LENGTH .MI. EMPTY BUFFER SPACE                 FA=WTW        37     A     
 FA=WTW             MI     X1,WTW4     IF DATA WILL NOT OVERFLOW BUFFER                    FA=WTW        38     A     
 FA=WTW                                                                                    FA=WTW        39     A     
 FA=WTW   *         FILL HOLDING BUFFER.  CALL RECORD MANAGER TO WRITE IT TO FILE.         FA=WTW        40     A     
 FA=WTW                                                                                    FA=WTW        41     A     
 FA=WTW             MX6    1                                                               FA=WTW        42     A     
 FA=WTW             SB2    A2          (B2) = PSEUDO-FET ADDRESS                           FA=WTW        43     A     
 FA=WTW             LX6    -59D+58D                                                        FA=WTW        44     A     
 FA=WTW             SB3    X1          (B3) = LENGTH OF EXCESS DATA                        FA=WTW        45     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 312    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=WTW  
  
 FA=WTW             BX6    X2+X6                                                           FA=WTW        46     A     
 FA=WTW             IX1    X4-X3                                                           FA=WTW        47     A     
 FA=WTW             SX2    B6                                                              FA=WTW        48     A     
 FA=WTW             SA6    A2          FILE SPILLED FLAG .ON.                              FA=WTW        49     A     
 FA=WTW             SB6    B6+X1       (B6) = FWA EXCESS DATA                              FA=WTW        50     A     
 FA=WTW             ZR     X1,WTW3     IF ZERO LENGTH MOVE                                 FA=WTW        51     A     
 FA=WTW             MOVE   X1,X2,X3                                                        FA=WTW        52     A     
 FA=WTW    WTW3     SA3    B2+I.LIMIT  (X3) = -LIMIT-                                      FA=WTW        53          I
          -FEAT126C 
 FA=WTW    WTW3     SA2    B2          (X2) = FILE CONTROL WORD                            FEAT126C      28     A     
 FA=WTW                                                                                    FEAT126CA      7     A     
 FA=WTW   *         NOTE,  ***  COLOSSAL KLUGE  ***.                                       FEAT126CA      8     A     
 FA=WTW   *                                                                                FEAT126CA      9     A     
 FA=WTW   *         A5 AND X5 SAVED FOR 7RM *FETCH* MACRO. THIS CODE IS TO                 FEAT126CA     10     A     
 FA=WTW   *         BE REMOVED AT THE EARLIEST OPPORTUNITY TO BE SUBSTITUTED               FEAT126CA     11     A     
 FA=WTW   *         BY A MORE *CHIC* METHOD.                                               FEAT126CA     12     A     
 FA=WTW                                                                                    FEAT126CA     13     A     
 FA=WTW             BX6    X5                                                              FEAT126CA     14     A     
 FA=WTW             SA6    FA=WTWA     SAVE (X5)                                           FEAT126CA     15     A     
 FA=WTW             SX6    A5                                                              FEAT126CA     16     A     
 FA=WTW             SA6    FA=WTWB     SAVE (A5)                                           FEAT126CA     17     A     
 FA=WTW                                                                                    FEAT126CA     18     A     
 FA=WTW             FETCH  X2,RT,X4,X1,X3,X6                                               FEAT126C      29     A     
 FA=WTW                                                                                    FEAT126CA     19     A     
 FA=WTW             SA3    FA=WTWB                                                         FEAT126CA     20     A     
 FA=WTW             SA5    X3          RESTORE (A5)                                        FEAT126CA     21     A     
 FA=WTW             SA3    FA=WTWA                                                         FEAT126CA     22     A     
 FA=WTW             BX5    X3          RESTORE (X5)                                        FEAT126CA     23     A     
 FA=WTW                                                                                    FEAT126CA     24     A     
 FA=WTW   *         END OF KLUGE.                                                          FEAT126CA     25     A     
 FA=WTW                                                                                    FEAT126CA     26     A     
 FA=WTW             SA3    B2+I.LIMIT  (X3) = -LIMIT-                                      FEAT126C      30     A     
 FA=WTW             SA1    B2+B1       (X1) = -FIRST-                                      FA=WTW        54     A     
 FA=WTW             SA2    B2          (X2) = FILE CONTROL WORD                            FA=WTW        55          I
          -FEAT126C 
 FA=WTW             IX3    X3-X1       (X3) = HOLDING BUFFER LENGTH                        FA=WTW        56     A     
 FA=WTW             BX6    X1                                                              FA=WTW        57     A     
 FA=WTW             SA6    A1+B1       RESET -IN- = -FIRST-                                FA=WTW        58     A     
 FA=WTW             SB7    X4-#ST#                                                         FEAT126C      31     A     
 FA=WTW             ZR     B7,WTW3A    IF S TYPE RECORD                                    FEAT126C      32     A     
 FA=WTW             PUTW   X2,X1,X3    WRITE HOLDING BUFFER TO FILE                        FA=WTW        59     A     
 FA=WTW             SB7    B3          (B7) = LENGTH OF UNTRANSFERRED DATA                 FA=WTW        60     A     
 FA=WTW             JP     WTW2        CONTINUE FILLING HOLDING BUFFER                     FA=WTW        61     A     
 FA=WTW                                                                                    FA=WTW        62     A     
 FA=WTW    WTW3A    PUTWP  X2,X1,X3                                                        FEAT126C      33     A     
 FA=WTW             SB7    B3          (B7) = LENGTH OF UNTRANSFERRED DATA                 FEAT126C      34     A     
 FA=WTW             JP     WTW2        CONTINUE FILLING HOLDING BUFFER                     FEAT126C      35     A     
 FA=WTW                                                                                    FEAT126C      36     A     
 FA=WTW   *         MOVE DATA TO HOLDING BUFFER AND EXIT.                                  FA=WTW        63     A     
 FA=WTW                                                                                    FA=WTW        64     A     
 FA=WTW    WTW4     SB2    A2          TEMP SAVE PSEUDO-FET ADDRESS                        FA=WTW        65     A     
 FA=WTW             SX1    B7          WSA LENGTH                                          FA=WTW        66     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 313    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FA=WTW  
  
 FA=WTW             SX2    B6          WSA ADDRESS                                         FA=WTW        67     A     
 FA=WTW             SA6    A3          UPDATE -IN-                                         FA=WTW        68     A     
 FA=WTW             MOVE   X1,X2,X3                                                        FA=WTW        69     A     
 FA=WTW             SA2    B2          RESTORE (A2), (X2) FOR EXIT                         FA=WTW        70     A     
 FA=WTW             JP     FA=WTW      EXIT                                                FA=WTW        71     A     
 FA=WTW                                                                                    FA=WTW        72     A     
 FA=WTW                                                                                    FA=WTW        73     A     
 FA=WTW             IF     -DEF,QUAL$,2                                                    FA=WTW        74     A     
 FA=WTW             QUAL   *                                                               FA=WTW        75     A     
 FA=WTW    FA=WTW   EQU    /FA=WTW/FA=WTW                                                  FA=WTW        76     A     
 FA=WTW             ENDX                                                                   FA=WTW        77     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FA=WTW  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FA=WTW                      77        75
          FEAT126C                     9         9
          FEAT126CA                   23        23
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FDBGCOM 
  
 FDBGCOM  *COMDECK  FDBGCOM                                                                FDBGCOM        1     A     
 FDBGCOM                                                                                   FDBGCOM        2     A     
 FDBGCOM                                                                                   FDBGCOM        3     A     
 FDBGCOM                                                                                   FDBGCOM        4     A     
 FDBGCOM                                                                                   FDBGCOM        5     A     
 FDBGCOM  C         ***   FORTRAN DEBUG COMMON DECLARATIONS.                               FDBGCOM        6     A     
 FDBGCOM                                                                                   FDBGCOM        7     A     
 FDBGCOM                                                                                   FDBGCOM        8     A     
 FDBGCOM        IMPLICIT INTEGER (A - Z)                                                   FDBGCOM        9     A     
 FDBGCOM                                                                                   FDBGCOM       10     A     
 FDBGCOM  C                                                                                FDBGCOM       11     A     
 FDBGCOM  C     THE FOLLOWING SYMBOLS ARE SET UP BY FTNX DEBUG ROUTINES TO BE USED         FDBGCOM       12     A     
 FDBGCOM  C     BY THE STATEMENT PROCESSORS DURING PHASE 2.                                FDBGCOM       13     A     
 FDBGCOM  C                                                                                FDBGCOM       14     A     
 FDBGCOM        COMMON /DBGBLK1/                                                           FDBGCOM       15     A     
 FDBGCOM       ,ALLARR, ALLCALL, ALLFUNC, GO TOS FL, NOGOFLG, TRACEL,                      FDBGCOM       16     A     
 FDBGCOM       ,ALLROU, SPIDER                                                             FDBGCOM       17     A     
 FDBGCOM        COMMON /DBGBLK2/                                                           FDBGCOM       18     A     
 FDBGCOM  C                                                                                FDBGCOM       19     A     
 FDBGCOM  C     THE FOLLOWING SYMBOLS ARE USED AS LIST POINTERS IN BOTH FTNX AND           FDBGCOM       20     A     
 FDBGCOM  C     COMPASS DEBUG MODIFICATIONS.                                               FDBGCOM       21     A     
 FDBGCOM  C                                                                                FDBGCOM       22     A     
 FDBGCOM       ,SDRL, EDRL, SDVL, EDVL, SAREA, AREAEND, DFOPL, SSYMTAB, ESYMTAB,           FDBGCOM       23     A     
 FDBGCOM       ,SAASI, REFMAP, ELIST, LELIST, ELAST, DFNESTW, FIDIT, EFIDIT,               FDBGCOM       24     A     
 FDBGCOM       ,DFCON1, DFCONL, NAASI, SDBGIND, CONSTOR, DFSCON1, DOLAST,                  FDBGCOM       25     A     
 FDBGCOM  C                                                                                FDBGCOM       26     A     
 FDBGCOM  C     THE FOLLOWING SYMBOLS ARE USED AS FLAGS FOR BOTH FTNX AND COMPASS          FDBGCOM       27     A     
 FDBGCOM  C     DEBUG MODIFICATIONS.                                                       FDBGCOM       28     A     
 FDBGCOM  C                                                                                FDBGCOM       29     A     
 FDBGCOM       ,DFNOGO, DFPACK, POW, DFOPFLG, DFON, NUM ERR, P ADD,                        FDBGCOM       30     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 314    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FDBGCOM 
  
 FDBGCOM       ,  FEFLAG, OPENFL, DBGPROG, LDEBUG, RECORD, DISPOW, SUCCESS,                FDBGCOM       31     A     
 FDBGCOM       ,  LTFLAG, LFLAG, NOPROG,                                                   FDBGCOM       32     A     
 FDBGCOM  C                                                                                FDBGCOM       33     A     
 FDBGCOM  C     THE FOLLOWING SYMBOLS ARE USED TO PASS INFORMATION BETWEEN FTNX            FDBGCOM       34     A     
 FDBGCOM  C     AND COMPASS DEBUG ROUTINES.                                                FDBGCOM       35     A     
 FDBGCOM  C                                                                                FDBGCOM       36     A     
 FDBGCOM       ,CUR UP DT(2), DUKE1, CLABEL, DFTYPE, DFNEST, LNGIND, NO ACT,               FDBGCOM       37     A     
 FDBGCOM       ,    AREA FLG, D LNG DRL, D LNG DVL, CFPACK,                                FDBGCOM       38     A     
 FDBGCOM       ,    UP DT TBL(20), COUNTUP, SCNUPDT,                                       FDBGCOM       39     A     
 FDBGCOM       ,    INDEX NO, PHSFLAG                                                      FDBGCOM       40     A     
 FDBGCOM  C                                                                                FDBGCOM       41     A     
 FDBGCOM  C     *DEBUG* IS DEFINED AS AN ARRAY BASED AT THE BEGINNING OF BLANK             FDBGCOM       42     A     
 FDBGCOM  C     COMMON.  IT ENABLES FTNX DEBUG ROUTINES TO REFERENCE ANY PROGRAM           FDBGCOM       43     A     
 FDBGCOM  C     LOCATIONS WITHIN THE PROGRAM FIELD LENGTH.                                 FDBGCOM       44     A     
 FDBGCOM  C                                                                                FDBGCOM       45     A     
 FDBGCOM        COMMON // DEBUG(1)                                                         FDBGCOM       46     A     
 FDBGCOM  C                                                                                FDBGCOM       47     A     
 FDBGCOM  C     THE FOLLOWING SYMBOLS ARE USED BY FTNX DEBUG ROUTINES                      FDBGCOM       48     A     
 FDBGCOM  C                                                                                FDBGCOM       49     A     
 FDBGCOM        COMMON /DBGBLK3/                                                           FDBGCOM       50     A     
 FDBGCOM       ,NEXT, TO FM, ITEM, BD ADD, MINZERO, MULT, OH, AASI, SYMTAB,                FDBGCOM       51     A     
 FDBGCOM       ,FM LIST, N FIELD, ASHIFT, DFOPL1, DFOPL2, TEMP, SASI, NXT STR,             FDBGCOM       52     A     
 FDBGCOM       ,    POINT, TEMP1, ELIST1, SAV UP DT (2),                                   FDBGCOM       53     A     
 FDBGCOM       ,TRCADD, ERR NUM, DLINE, DTYPE, ERR MSG(5,5), NDRL, DRL,                    FDBGCOM       54     A     
 FDBGCOM       ,OPREC, M, SPIDIS, DUNIT, OPDRL, STOSWAP, TRACEON, MISFLAG,                 FDBGCOM       55     A     
 FDBGCOM       ,CUR OP BD, CUR ROUT, COW, FM BOUND, TO BOUND, BLNG,                        FDBGCOM       56     A     
 FDBGCOM       ,    DVL, REL OP, NOCONST, LEVEL, NO OF WDS, NXT ADD, ALNG,                 FDBGCOM       57     A     
 FDBGCOM       ,NXT ADD1, LSHIFT, NXT STR1, LEVSHFT, TAASI, TRACED, NO LIN,                FDBGCOM       58     A     
 FDBGCOM       ,    AASIADD, RTAB(9), NXT ITEM, TO LIST, DBGPIC(9), PREDBG(2),             FDBGCOM       59     A     
 FDBGCOM       ,STAR1, STAR2, SAMLINE, FSTLINE, LSTLINE, STAR, COMMA, RPAREN,              FDBGCOM       60     A     
 FDBGCOM       ,    LPAREN, SLASH, BOUND WD, OP WORD, TLNG, BASE ADD,                      FDBGCOM       61     A     
 FDBGCOM       ,    FT ADD, BDS ADD, TOT LNG, UP NO, UP DIS, SYMTAB B, SAVE OH,            FDBGCOM       62     A     
 FDBGCOM       ,    OVRFLOW, DLFLG, DFSAVE, DFSAVE1,                                       FDBGCOM       63     A     
 FDBGCOM       ,     RELFLAG, ROU NAME, TO SHIFT, VALUE, INDEF, RANGE                      FDBGCOM       64     A     
 FDBGCOM        COMMON /OUTPUT/ DBGOUT                                                     FDBGCOM       65     A     
 FDBGCOM        LOGICAL LTFLAG, LFLAG                                                      FDBGCOM       66     A     
 FDBGCOM        LOGICAL BITON,BITOFF                                                       FDBGCOM       67     A     
 FDBGCOM        ADDRESS(X) = X.AND.777777B                                                 FDBGCOM       68     A     
 FDBGCOM        EFORM(X) = SHIFT(X,12).AND.77B                                             FDBGCOM       69     A     
 FDBGCOM        DRLELT(X) = X.AND..NOT.777777B                                             FDBGCOM       70     A     
 FDBGCOM        LENGTH(X) = ADDRESS(SHIFT(X, -24))                                         FDBGCOM       71     A     
 FDBGCOM        TLENGTH(X) = ADDRESS(SHIFT(X, 18))                                         FDBGCOM       72     A     
 FDBGCOM        PLUS(X)=21B                                                                FDBGCOM       73     A     
 FDBGCOM        MINUS(X)=20B                                                               FDBGCOM       74     A     
 FDBGCOM        INC FCNT(X) = SHIFT(MASK(1), 1 + DTOFLD(X))                                FDBGCOM       75     A     
 FDBGCOM  C                                                                                FDBGCOM       76     A     
 FDBGCOM  C     THE FOLLOWIING ASF"S REFERENCE BITS IN THE SYMBOL TABLE,                   FDBGCOM       77     A     
 FDBGCOM        COMBIT(X)           =          14                                          FDBGCOM       78     A     
 FDBGCOM        EQUBIT(X)           =          12                                          FDBGCOM       79     A     
 FDBGCOM        DIMBIT(X)           =          13                                          FDBGCOM       80     A     
 FDBGCOM        FUNCBIT(X)          =          15                                          FDBGCOM       81     A     
 FDBGCOM        DTO FLD(X)          =          19                                          FDBGCOM       82     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 315    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FDBGCOM 
  
 FDBGCOM        LASTBIT(X)          =          27                                          FDBGCOM       83     A     
 FDBGCOM        NOTBIT(X)           =          31                                          FDBGCOM       84     A     
 FDBGCOM        IFBIT(X)            =          32                                          FDBGCOM       85     A     
 FDBGCOM        SFBIT(X)            =          33                                          FDBGCOM       86     A     
 FDBGCOM        ACBIT(X)            =          34                                          FDBGCOM       87     A     
 FDBGCOM        VARBIT(X)           =          43                                          FDBGCOM       88     A     
 FDBGCOM        EXTBIT(X)           =          54                                          FDBGCOM       89     A     
 FDBGCOM        ASFBIT(X)           =          55                                          FDBGCOM       90     A     
 FDBGCOM  C                                                                                FDBGCOM       91     A     
 FDBGCOM  C                                                                                FDBGCOM       92     A     
 FDBGCOM  C                              AND  BITS IN THE OPTIONS LIST.                    FDBGCOM       93     A     
 FDBGCOM  C                                                                                FDBGCOM       94     A     
 FDBGCOM        LST S BIT(X)        =          26                                          FDBGCOM       95     A     
 FDBGCOM        DBGTYPE(X) = 17B                                                           FDBGCOM       96     A     
 FDBGCOM        CONTYPE(X) = 5                                                             FDBGCOM       97     A     
 FDBGCOM        TYPE(X) = SHIFT(X,4) .AND. TYPE FLD(1)                                     FDBGCOM       98     A     
 FDBGCOM        TYPE FLD(X) = 17B                                                          FDBGCOM       99     A     
 FDBGCOM        NOT DBG(X) = 77777777417777777777B                                         FDBGCOM      100     A     
 FDBGCOM        FCNT FLD(X) = X .AND. FCNT BTS(1)                                          FDBGCOM      101     A     
 FDBGCOM        FCNT BTS(X) = 1776000000B                                                  FDBGCOM      102     A     
 FDBGCOM        PLACE(X) = SHIFT(MASK(1),X+1)                                              FDBGCOM      103     A     
 FDBGCOM        BITON(I,J) = SHIFT(I,59-J) .LT. 0                                          FDBGCOM      104     A     
 FDBGCOM        BITOFF(I,J) = SHIFT(I,59-J) .GE. 0                                         FDBGCOM      105     A     
 FDBGCOM                                                                                   FDBGCOM      106     A     
 FDBGCOM                                                                                   FDBGCOM      107     A     
 FDBGCOM  C         ***   END OF FDBGCOM.                                                  FDBGCOM      108     A     
 FDBGCOM                                                                                   FDBGCOM      109     A     
 FDBGCOM                                                                                   FDBGCOM      110     A     
 FDBGCOM                                                                                   FDBGCOM      111     A     
 FDBGCOM                                                                                   FDBGCOM      112     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FDBGCOM 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FDBGCOM                    112       112
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMACDEF 
  
 FMACDEF  *COMDECK  FMACDEF                                                                FMACDEF        1     A     
 FMACDEF   FMACDEF  CTEXT  FMACDEF - MACRO FORMATION MACROS                                FMACDEF        2     A     
 FMACDEF  **        FMACDEF - MACRO DEFINITIONS TO CALL THE COMPS MACOUT ROUTINES.         FMACDEF        3     A     
 FMACDEF  *         THE FOLLOWING MACROS ARE USED TO OUTPUT MACRO CALLS TO THE             FMACDEF        4     A     
 FMACDEF  *         COMPS FILE.                                                            FMACDEF        5     A     
 FMACDEF  *         FOR FURTHER INFORMATION ONE SHOULD CONSULT THE SUBROUTINES             FMACDEF        6     A     
 FMACDEF  *         "SVARG" , "FMAC" AND F1AMAC" .                                         FMACDEF        7     A     
 FMACDEF  *                                                                                FMACDEF        8     A     
 FMACDEF                                                                                   FMACDEF        9     A     
 FMACDEF   INTARG   MACRO                    INITIALIZE NUMBER OF ARGS                     FMACDEF       10     A     
 FMACDEF            SB7    B0                                                              FMACDEF       11     A     
 FMACDEF            ENDM                                                                   FMACDEF       12     A     
 FMACDEF                                                                                   FMACDEF       13     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 316    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMACDEF 
  
 FMACDEF   SVARG    MACRO  TYPE,ARGNUM       SAVE A MACRO ARGUMENT ( IN X6 )               FMACDEF       14     A     
 FMACDEF  *                                  USES X6,X7,B6,B7 AND A6                       FMACDEF       15     A     
 FMACDEF            SB6    "F_TYPE"                                                        FMACDEF       16     A     
 FMACDEF            PX6    B6,X6                                                           FMACDEF       17     A     
 FMACDEF            SB6    ARGNUM                                                          FMACDEF       18     A     
 FMACDEF            RJ     =XSVARG                                                         FMACDEF       19     A     
 FMACDEF            ENDM                                                                   FMACDEF       20     A     
 FMACDEF                                                                                   FMACDEF       21     A     
 FMACDEF   FNAME    MICRO  1,,/B0/           TABLE OF POSSIBLE TYPE CODES                  FMACDEF       22     A     
 FMACDEF   FOCT     MICRO  1,,/B5/           OCTAL CONVERSION                              FMACDEF       23     A     
 FMACDEF   FINT     MICRO  1,,/B5+B5/        INTEGER CONVERSION - 1 DIGIT ONLY             FMACDEF       24     A     
 FMACDEF   FCHAR    MICRO  1,,/3/            CHARACTER STRING                              FMACDEF       25     A     
 FMACDEF   FNAMEL   MICRO  1,,/4/      ACTUAL NAME, I.E., OVERIDE IAF FLAG WHICH           FMACDEF       26     A     
 FMACDEF  *                            WOULD FORCE FORMATION OF ?SYMBOL                    FMACDEF       27     A     
 FMACDEF                                                                                   FMACDEF       28     A     
 FMACDEF   NARGS=   MACRO  SUM               SAVE TOTAL NUMBER OF ARGS FOR FMAC            FMACDEF       29     A     
 FMACDEF            SX7    -SUM                                                            FMACDEF       30     A     
 FMACDEF            SA7    NARGS                                                           FMACDEF       31     A     
 FMACDEF            ENDM                                                                   FMACDEF       32     A     
 FMACDEF                                                                                   FMACDEF       33     A     
 FMACDEF   FMAC     MACRO  MACNAME                                                         FMACDEF       34     A     
 FMACDEF            IFC    NE,//MACNAME/,1                                                 FMACDEF       35     A     
 FMACDEF            SA1    =10H  MACNAME                                                   FMACDEF       36     A     
 FMACDEF            RJ     =XFMAC                                                          FMACDEF       37     A     
 FMACDEF            ENDM                                                                   FMACDEF       38     A     
 FMACDEF                                                                                   FMACDEF       39     A     
 FMACDEF   F1AMAC   MACRO  MACNAME           FORM AND OUTPUT A 1 ARG MACRO CALL            FMACDEF       40     A     
 FMACDEF  *                                  ARGUMENT IS ASSUMED TO BE A NAME              FMACDEF       41     A     
 FMACDEF  *                                  FROM SYMTAB                                   FMACDEF       42     A     
 FMACDEF            SA1    =10H  MACNAME                                                   FMACDEF       43     A     
 FMACDEF            RJ     =XF1AMAC                                                        FMACDEF       44     A     
 FMACDEF            ENDM                                                                   FMACDEF       45     A     
 FMACDEF            SPACE  3                                                               FMACDEF       46     A     
 FMACDEF  *         LOCATIONS USED BY "SVARG" TO SAVE THE MACRO CALLS                      FMACDEF       47     A     
 FMACDEF  *         AND "FMAC" TO FORMAT THEM                                              FMACDEF       48     A     
 FMACDEF                                                                                   FMACDEF       49     A     
 FMACDEF            USE    /MACBUF/                                                        FMACDEF       50     A     
 FMACDEF   NARGS                             NUMBER OF ARGS                                FMACDEF       51     A     
 FMACDEF   MBUF     BSSZ   1                 MACRO OUTPUT BUFFER                           FMACDEF       52     A     
 FMACDEF                                                                                   FMACDEF       53     A     
 FMACDEF   ABUF     BSSZ   10                ARGUMENT BUFFER                               FMACDEF       54     A     
 FMACDEF            USE    *                                                               FMACDEF       55     A     
 FMACDEF            ENDX                                                                   FMACDEF       56     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FMACDEF 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FMACDEF                     56        56
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSCALE  
  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 317    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSCALE  
  
 FSCALE   *COMDECK FSCALE                                                                  FSCALE         1     A     
 FSCALE             TITLE  FSCALE - FLOATING DP CONVERSION                                 FSCALE         2     A     
 FSCALE   **        FSCALE  -  CONVERT INTEGER CONSTANT WITH OR WITHOUT                    FSCALE         3     A     
 FSCALE   *                    FLOATING CONSTANT.                                          FSCALE         4     A     
 FSCALE   *                    EXPONENT TO SINGLE OR DOUBLE PRECISION                      FSCALE         5     A     
 FSCALE   *                                                                                FSCALE         6     A     
 FSCALE   *         RICK JAMES.   (AUTHOR).                                                FSCALE         7     A     
 FSCALE   *                                                                                FSCALE         8     A     
 FSCALE   *         ENTRY  (X0) = HIGH ORDER PART OF INTEGER CONSTANT                      FSCALE         9     A     
 FSCALE   *                       IN BITS 58-00.                                           FSCALE        10     A     
 FSCALE   *                (X1) = LOW ORDER PART OF INTEGER CONSTANT                       FSCALE        11     A     
 FSCALE   *                       IN BITS 54-00.                                           FSCALE        12     A     
 FSCALE   *                (X5) = 1RX WHERE X = + OR - (SIGN OF RESULT).                   FSCALE        13     A     
 FSCALE   *                (B1) = 1.                                                       FSCALE        14     A     
 FSCALE   *                (B3) = POWER OF 10.                                             FSCALE        15     A     
 FSCALE   *                (B4) = 0, SINGLE PRECISION.                                     FSCALE        16     A     
 FSCALE   *                (B4) = 1, DOUBLE PRECISION.                                     FSCALE        17     A     
 FSCALE   *                                                                                FSCALE        18     A     
 FSCALE   *         EXIT   (X1) = HIGH ORDER BITS DP CONSTANT.                             FSCALE        19     A     
 FSCALE   *                (X2) = LOW ORDER BITS DP CONSTANT.                              FSCALE        20     A     
 FSCALE   *                (B1) = 1.                                                       FSCALE        21     A     
 FSCALE   *                (B4) = 0, CONVERSION OK.                                        FSCALE        22     A     
 FSCALE   *                (B4) = -1, ERROR OVERFLOW.                                      FSCALE        23     A     
 FSCALE   *                                                                                FSCALE        24     A     
 FSCALE   *         ACTION 1.  CONVERT INTEGER TO TRIPLE PRECISION                         FSCALE        25     A     
 FSCALE   *                    FLOATING POINT.                                             FSCALE        26     A     
 FSCALE   *                2.  SCALE BY BIG POWER OF 5 OR 10 (TRIPLE                       FSCALE        27     A     
 FSCALE   *                    MULTIPLY, X432 * X017).                                     FSCALE        28     A     
 FSCALE   *                3.  MULTIPLY BY 1E20 AS NEEDED.                                 FSCALE        29     A     
 FSCALE   *                4.  FINISH CONVERSION BY MULTIPLYING BY N                       FSCALE        30     A     
 FSCALE   *                    WHERE 1E20 .GE. N .LE. 1.                                   FSCALE        31     A     
 FSCALE   *                5.  ROUND RESULT.                                               FSCALE        32     A     
 FSCALE   *                6.  SET SIGN.                                                   FSCALE        33     A     
 FSCALE   *                7.  ADJUST BY POWER OF 2 AND CHECK.                             FSCALE        34     A     
 FSCALE   *                                                                                FSCALE        35     A     
 FSCALE   *         USES   A. -,-,-,3,4,-,-,-                                              FSCALE        36     A     
 FSCALE   *                B. -,-,2,3,4,5,-,7                                              FSCALE        37     A     
 FSCALE   *                X. 0,1,2,3,4,5,6,7                                              FSCALE        38     A     
 FSCALE                                                                                    FSCALE        39     A     
 FSCALE    FSCALE   SUBR               ENTRY/EXIT                                          FSCALE        40     A     
 FSCALE             MX7    -18                                                             FSCALE        41     A     
 FSCALE             BX4    -X7*X1      BOT                                                 FSCALE        42     A     
 FSCALE             SB2    18                                                              FSCALE        43     A     
 FSCALE             PX4    B0,X4                                                           FSCALE        44     A     
 FSCALE             SB7    B4                                                              FSCALE        45     A     
 FSCALE             SB4    B0          CLEAR ERROR FLAG                                    FSCALE        46     A     
 FSCALE             AX1    18          LOW MID                                             FSCALE        47     A     
 FSCALE             ZR     X0,CIF      IF NO HIGH ORDER BITS                               FSCALE        48     A     
 FSCALE             MX7    -11                                                             FSCALE        49     A     
 FSCALE             BX2    -X7*X0      HI MID                                              FSCALE        50     A     
 FSCALE             NX4    B0,X4                                                           FSCALE        51     A     
 FSCALE             SB5    66                                                              FSCALE        52     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 318    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSCALE  
  
 FSCALE             LX2    37                                                              FSCALE        53     A     
 FSCALE             AX0    11          TOP                                                 FSCALE        54     A     
 FSCALE             BX1    X1+X2       MID                                                 FSCALE        55     A     
 FSCALE             PX0    X0,B5                                                           FSCALE        56     A     
 FSCALE             PX1    B2                                                              FSCALE        57     A     
 FSCALE             NX0    B0,X0       TOP                                                 FSCALE        58     A     
 FSCALE             NX1    B0,X1                                                           FSCALE        59     A     
 FSCALE             DX2    X0+X1                                                           FSCALE        60     A     
 FSCALE             FX0    X0+X1       UPPER                                               FSCALE        61     A     
 FSCALE             DX7    X2+X4       LOWER                                               FSCALE        62     A     
 FSCALE             FX1    X2+X4       MIDDLE                                              FSCALE        63     A     
 FSCALE             EQ     CIF1                                                            FSCALE        64     A     
 FSCALE                                                                                    FSCALE        65     A     
 FSCALE    CIF      PX1    B2,X1                                                           FSCALE        66     A     
 FSCALE             NO                                                                     FSCALE        67     A     
 FSCALE             NX4    B0,X4                                                           FSCALE        68     A     
 FSCALE             NX1    B0,X1                                                           FSCALE        69     A     
 FSCALE             FX0    X1+X4       UPPER                                               FSCALE        70     A     
 FSCALE             DX1    X1+X4       MIDDLE                                              FSCALE        71     A     
 FSCALE             NO                                                                     FSCALE        72     A     
 FSCALE             DX7    X1+X1       LOWER (PACKED ZERO)                                 FSCALE        73     A     
 FSCALE                                                                                    FSCALE        74     A     
 FSCALE    CIF1     SB2    B7-B1                                                           FSCALE        75     A     
 FSCALE             ZR     B2,CIF2     IF DOUBLE PRECISION                                 FSCALE        76     A     
 FSCALE             MX7    0           TO INDICATE ONLY SINGLE NEEDED                      FSCALE        77     A     
 FSCALE                                                                                    FSCALE        78     A     
 FSCALE    CIF2     SX4    B3                                                              FSCALE        79     A     
 FSCALE             SX3    B3+320                                                          FSCALE        80     A     
 FSCALE             AX4    8                                                               FSCALE        81     A     
 FSCALE             NZ     X4,CIF16    IF NOT WITHIN 1E-256 TO 1E+256                      FSCALE        82     A     
 FSCALE             AX3    6           EXP/64+4                                            FSCALE        83     A     
 FSCALE             SB7    B0                                                              FSCALE        84     A     
 FSCALE             SA4    CIFB+X3                                                         FSCALE        85     A     
 FSCALE             ZR     X4,CIF5     IF EXP IS 0 TO 64                                   FSCALE        86     A     
 FSCALE             BX3    -X3                                                             FSCALE        87     A     
 FSCALE             SB3    B3+320                                                          FSCALE        88     A     
 FSCALE             LX3    6                                                               FSCALE        89     A     
 FSCALE             SB3    B3+X3                                                           FSCALE        90     A     
 FSCALE                                                                                    FSCALE        91     A     
 FSCALE   *         TRIPLE OR DOUBLE MULTIPLY.                                             FSCALE        92     A     
 FSCALE                                                                                    FSCALE        93     A     
 FSCALE    CIF3     SB5    10                                                              FSCALE        94     A     
 FSCALE             SA3    A4+10       M                                                   FSCALE        95     A     
 FSCALE             ZR     X7,CIF4     IF ONLY SINGLE PRECISION                            FSCALE        96     A     
 FSCALE             SA2    A3+B5       L                                                   FSCALE        97     A     
 FSCALE             FX7    X4*X7       L=U*L                                               FSCALE        98     A     
 FSCALE             FX2    X2*X0       L=L*U                                               FSCALE        99     A     
 FSCALE             FX7    X7+X2       L                                                   FSCALE       100     A     
 FSCALE             DX2    X3*X0       L=M*U                                               FSCALE       101     A     
 FSCALE             DX6    X4*X1       L=U*M                                               FSCALE       102     A     
 FSCALE             FX7    X2+X7       L                                                   FSCALE       103     A     
 FSCALE             FX2    X3*X1       L=M*M                                               FSCALE       104     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 319    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSCALE  
  
 FSCALE             FX7    X7+X6       L                                                   FSCALE       105     A     
 FSCALE             FX7    X2+X7       LOWER                                               FSCALE       106     A     
 FSCALE                                                                                    FSCALE       107     A     
 FSCALE    CIF4     FX3    X3*X0       M=M*U                                               FSCALE       108     A     
 FSCALE             FX2    X4*X1       M=U*M                                               FSCALE       109     A     
 FSCALE             DX6    X4*X0       M=U*U                                               FSCALE       110     A     
 FSCALE             FX0    X4*X0       UPPER                                               FSCALE       111     A     
 FSCALE             FX4    X3+X2       M                                                   FSCALE       112     A     
 FSCALE             FX1    X6+X4       MIDDLE                                              FSCALE       113     A     
 FSCALE             ZR     X7,CIF5     IF ONLY SINGLE PRECISION                            FSCALE       114     A     
 FSCALE             DX3    X3+X2       L                                                   FSCALE       115     A     
 FSCALE             DX6    X6+X4       L                                                   FSCALE       116     A     
 FSCALE             FX7    X7+X3       L                                                   FSCALE       117     A     
 FSCALE             FX7    X7+X6       LOWER                                               FSCALE       118     A     
 FSCALE                                                                                    FSCALE       119     A     
 FSCALE   *         MULTIPLY BY 1E20 AS NEEDED.                                            FSCALE       120     A     
 FSCALE                                                                                    FSCALE       121     A     
 FSCALE    CIF5     SA4    CIFA+20                                                         FSCALE       122     A     
 FSCALE             SB2    20                                                              FSCALE       123     A     
 FSCALE             LT     B3,B2,CIF8  IF NO NEED TO MULTIPLY BY 1E20                      FSCALE       124     A     
 FSCALE                                                                                    FSCALE       125     A     
 FSCALE   *         1 * 3 OR 1 * 2 MULTIPLY.                                               FSCALE       126     A     
 FSCALE                                                                                    FSCALE       127     A     
 FSCALE    CIF6     FX3    X4*X1       M=U*M                                               FSCALE       128     A     
 FSCALE             DX2    X4*X0       M=U*U                                               FSCALE       129     A     
 FSCALE             ZR     X7,CIF7     IF ONLY SINGLE NEEDED                               FSCALE       130     A     
 FSCALE             FX7    X4*X7       L=U*L                                               FSCALE       131     A     
 FSCALE             DX6    X3+X2       L                                                   FSCALE       132     A     
 FSCALE             DX1    X4*X1       L=U*M                                               FSCALE       133     A     
 FSCALE             NO                                                                     FSCALE       134     A     
 FSCALE             FX7    X7+X6       L                                                   FSCALE       135     A     
 FSCALE             SB0    0                                                               FSCALE       136     A     
 FSCALE             FX7    X7+X1       LOWER                                               FSCALE       137     A     
 FSCALE                                                                                    FSCALE       138     A     
 FSCALE    CIF7     FX1    X3+X2       MIDDLE                                              FSCALE       139     A     
 FSCALE             FX0    X4*X0       UPPER                                               FSCALE       140     A     
 FSCALE             SB3    B3-B2                                                           FSCALE       141     A     
 FSCALE             NO                                                                     FSCALE       142     A     
 FSCALE             GE     B3,B2,CIF6  IF NEED TO MULTIPLY BY 1E20 AGAIN                   FSCALE       143     A     
 FSCALE                                                                                    FSCALE       144     A     
 FSCALE   *         MULTIPLY BY LESS THAN 1E20 IF NECESSARY.                               FSCALE       145     A     
 FSCALE                                                                                    FSCALE       146     A     
 FSCALE    CIF8     SA4    CIFA+B3                                                         FSCALE       147     A     
 FSCALE             GT     B3,CIF6     IF NECESSARY MULTIPLY BY .LT. 1E20                  FSCALE       148     A     
 FSCALE             LX5    -2                                                              FSCALE       149     A     
 FSCALE             AX5    60                                                              FSCALE       150     A     
 FSCALE                                                                                    FSCALE       151     A     
 FSCALE   *         DOUBLE COMBINE.                                                        FSCALE       152     A     
 FSCALE                                                                                    FSCALE       153     A     
 FSCALE             ZR     X7,CIF10    IF ONLY SINGLE NEEDED                               FSCALE       154     A     
 FSCALE             DX4    X1+X7                                                           FSCALE       155     A     
 FSCALE             FX1    X1+X7                                                           FSCALE       156     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 320    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSCALE  
  
 FSCALE             NO                                                                     FSCALE       157     A     
 FSCALE             DX3    X0+X1                                                           FSCALE       158     A     
 FSCALE             FX0    X0+X1                                                           FSCALE       159     A     
 FSCALE             RX1    X3+X4                                                           FSCALE       160     A     
 FSCALE             NO                                                                     FSCALE       161     A     
 FSCALE             FX3    X0+X1                                                           FSCALE       162     A     
 FSCALE             NO                                                                     FSCALE       163     A     
 FSCALE             BX7    X5-X3       UPPER SIGN FOR T.DBL                                FSCALE       164     A     
 FSCALE             DX0    X0+X1                                                           FSCALE       165     A     
 FSCALE             BX1    X1-X1                                                           FSCALE       166     A     
 FSCALE             UX3    B0,X0                                                           FSCALE       167     A     
 FSCALE             ZR     X3,CIF9     IF LOW ORDER DP MANTISSA .EQ. 0                     FSCALE       168     A     
 FSCALE             BX1    X5-X0       LOWER SIGN FOR T.DBL                                FSCALE       169     A     
 FSCALE                                                                                    FSCALE       170     A     
 FSCALE    CIF9     ZR     B7,CIF18    IF NO UNDER/OVERFLOW CHECK NECESSARY                FSCALE       171     A     
 FSCALE             EQ     CIF11                                                           FSCALE       172     A     
 FSCALE                                                                                    FSCALE       173     A     
 FSCALE   *         SINGLE COMBINE.                                                        FSCALE       174     A     
 FSCALE                                                                                    FSCALE       175     A     
 FSCALE    CIF10    DX4    X0+X1                                                           FSCALE       176     A     
 FSCALE             FX0    X0+X1                                                           FSCALE       177     A     
 FSCALE             RX3    X0+X4                                                           FSCALE       178     A     
 FSCALE             BX7    X5-X3       SIGN FOR T.REL                                      FSCALE       179     A     
 FSCALE             ZR     B7,CIF18    IF NO UNDER/OVERFLOW CHECK NECESSARY                FSCALE       180     A     
 FSCALE                                                                                    FSCALE       181     A     
 FSCALE                                                                                    FSCALE       182     A     
 FSCALE   *         CHECK FOR UNDER FLOW.                                                  FSCALE       183     A     
 FSCALE                                                                                    FSCALE       184     A     
 FSCALE    CIF11    PL     B7,CIF13                                                        FSCALE       185     A     
 FSCALE             SB5    -1777B                                                          FSCALE       186     A     
 FSCALE             UX1    B2,X1                                                           FSCALE       187     A     
 FSCALE             SB2    B2+B7                                                           FSCALE       188     A     
 FSCALE             NO                                                                     FSCALE       189     A     
 FSCALE             PX1    B2,X1                                                           FSCALE       190     A     
 FSCALE             GE     B2,B5,CIF12 IF NOT UNDERFLOW                                    FSCALE       191     A     
 FSCALE             MX1    0           CLEAR LOW ORDER REGISTER                            FSCALE       192     A     
 FSCALE                                                                                    FSCALE       193     A     
 FSCALE    CIF12    UX7    B2,X7                                                           FSCALE       194     A     
 FSCALE             SB2    B2+B7                                                           FSCALE       195     A     
 FSCALE             NO                                                                     FSCALE       196     A     
 FSCALE             PX7    B2,X7                                                           FSCALE       197     A     
 FSCALE             GE     B2,B5,CIF18 IF NO UNDERFLOW                                     FSCALE       198     A     
 FSCALE             SX7    0                                                               FSCALE       199     A     
 FSCALE             EQ     CIF18                                                           FSCALE       200     A     
 FSCALE                                                                                    FSCALE       201     A     
 FSCALE   *         CHECK FOR OVERFLOW.                                                    FSCALE       202     A     
 FSCALE                                                                                    FSCALE       203     A     
 FSCALE    CIF13    UX7    B2,X7                                                           FSCALE       204     A     
 FSCALE             SB5    1777B                                                           FSCALE       205     A     
 FSCALE             SB2    B2+B7                                                           FSCALE       206     A     
 FSCALE             GT     B2,B5,CIF15 IF OVERFLOW                                         FSCALE       207          I
          -FCCA577
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 321    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSCALE  
  
 FSCALE             GE     B2,B5,CIF15 IF OVERFLOW                                         FCCA577        5     A     
 FSCALE             PX7    B2,X7                                                           FSCALE       208     A     
 FSCALE             UX1    B2,X1                                                           FSCALE       209     A     
 FSCALE             SB2    B2+B7                                                           FSCALE       210     A     
 FSCALE             PX1    B2,X1                                                           FSCALE       211     A     
 FSCALE             EQ     CIF18                                                           FSCALE       212     A     
 FSCALE                                                                                    FSCALE       213     A     
 FSCALE    CIF14    SB2    B3-324                                                          FSCALE       214     A     
 FSCALE             SA4    CIFB+9      MULTIPLY BY 5**256                                  FSCALE       215     A     
 FSCALE             SB7    +256                                                            FSCALE       216     A     
 FSCALE             NO                                                                     FSCALE       217     A     
 FSCALE             SB3    B3-B7                                                           FSCALE       218     A     
 FSCALE             MI     B2,CIF3                                                         FSCALE       219     A     
 FSCALE                                                                                    FSCALE       220     A     
 FSCALE    CIF15    SB4    -1          ERROR RETURN ON OVERFLOW                            FSCALE       221     A     
 FSCALE             EQ     EXIT.                                                           FSCALE       222     A     
 FSCALE                                                                                    FSCALE       223     A     
 FSCALE    CIF16    PL     B3,CIF14                                                        FSCALE       224     A     
 FSCALE             SB2    B3+325                                                          FSCALE       225     A     
 FSCALE             MI     B2,CIF17                                                        FSCALE       226     A     
 FSCALE             SA4    CIFB                                                            FSCALE       227     A     
 FSCALE             SB7    -325                                                            FSCALE       228     A     
 FSCALE             NO                                                                     FSCALE       229     A     
 FSCALE             SB3    B3-B7                                                           FSCALE       230     A     
 FSCALE             EQ     CIF3                                                            FSCALE       231     A     
 FSCALE                                                                                    FSCALE       232     A     
 FSCALE    CIF17    SX7    0                                                               FSCALE       233     A     
 FSCALE             SX1    0                                                               FSCALE       234     A     
 FSCALE                                                                                    FSCALE       235     A     
 FSCALE    CIF18    BX2    X1                                                              FSCALE       236     A     
 FSCALE             BX1    X7                                                              FSCALE       237     A     
 FSCALE             EQ     EXIT.                                                           FSCALE       238     A     
 FSCALE                                                                                    FSCALE       239     A     
 FSCALE   *         WORKING CONSTANTS.                                                     FSCALE       240     A     
 FSCALE                                                                                    FSCALE       241     A     
 FSCALE    CIFA     BSS    0           1.0EN  WHERE N = 0 TO 20 INCLUSIVE                  FSCALE       242     A     
 FSCALE    CIFA1    SET    0                                                               FSCALE       243     A     
 FSCALE             DUP    21,3                                                            FSCALE       244     A     
 FSCALE    CIFA2    DECMIC CIFA1                                                           FSCALE       245     A     
 FSCALE             DATA   1.0E"CIFA2"                                                     FSCALE       246     A     
 FSCALE    CIFA1    SET    CIFA1+1                                                         FSCALE       247     A     
 FSCALE                                                                                    FSCALE       248     A     
 FSCALE    CIFB     BSS    0                                                               FSCALE       249     A     
 FSCALE             CON    03355134732416677076B   5**-325          UPPER                  FSCALE       250     A     
 FSCALE             CON    01756003050311261572B  10**-256          UPPER                  FSCALE       251     A     
 FSCALE             CON    05224437760335652043B  10**-192          UPPER                  FSCALE       252     A     
 FSCALE             CON    10466735010637062274B  10**-128          UPPER                  FSCALE       253     A     
 FSCALE             CON    13735207775211722471B  10** -64          UPPER                  FSCALE       254     A     
 FSCALE             CON    0                                                               FSCALE       255     A     
 FSCALE             CON    22456047403722377717B  10**  64          UPPER                  FSCALE       256     A     
 FSCALE             CON    25724473510762300351B  10** 128          UPPER                  FSCALE       257     A     
 FSCALE             CON    31167007036743234447B  10** 192          UPPER                  FSCALE       258     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 322    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FSCALE  
  
 FSCALE             CON    30435247735376716771B   5** 256          UPPER                  FSCALE       259     A     
 FSCALE                                                                                    FSCALE       260     A     
 FSCALE             CON    02554430410147521675B   5**-325         MIDDLE                  FSCALE       261     A     
 FSCALE             CON    01150623477244210525B  10**-256         MIDDLE                  FSCALE       262     A     
 FSCALE             CON    04426300317330603243B  10**-192         MIDDLE                  FSCALE       263     A     
 FSCALE             CON    07667112025437131766B  10**-128         MIDDLE                  FSCALE       264     A     
 FSCALE             CON    13137232247710714327B  10** -64         MIDDLE                  FSCALE       265     A     
 FSCALE             CON    0                                                               FSCALE       266     A     
 FSCALE             CON    21655155247457665561B  10**  64         MIDDLE                  FSCALE       267     A     
 FSCALE             CON    25124315770633631554B  10** 128         MIDDLE                  FSCALE       268     A     
 FSCALE             CON    30362526520556761123B  10** 192         MIDDLE                  FSCALE       269     A     
 FSCALE             CON    27636750673556710033B   5** 256         MIDDLE                  FSCALE       270     A     
 FSCALE                                                                                    FSCALE       271     A     
 FSCALE             CON    01751523413613350414B   5**-325          LOWER                  FSCALE       272     A     
 FSCALE             CON    00357757552302120270B  10**-256          LOWER                  FSCALE       273     A     
 FSCALE             CON    03622142373563615574B  10**-192          LOWER                  FSCALE       274     A     
 FSCALE             CON    07066405673367560600B  10**-128          LOWER                  FSCALE       275     A     
 FSCALE             CON    12332173154211024710B  10** -64          LOWER                  FSCALE       276     A     
 FSCALE             CON    0                                                               FSCALE       277     A     
 FSCALE             CON    21056166544576650371B  10**  64          LOWER                  FSCALE       278     A     
 FSCALE             CON    24321553040115601066B  10** 128          LOWER                  FSCALE       279     A     
 FSCALE             CON    27567507542405607432B  10** 192          LOWER                  FSCALE       280     A     
 FSCALE             CON    27034617735255702442B   5** 256          LOWER                  FSCALE       281     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FSCALE  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FSCALE                     281       280
          FCCA577                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FWACOM  
  
 FWACOM   *COMDECK  FWACOM                                                                 FWACOM         1     A     
 FWACOM             VFD    42/6LCLOSE2,18/=XB=CLOS2                                        FWACOM         2     A     
 FWACOM             FWA    MIO,MIO                                                         FWACOM         3     A     
 FWACOM             FWA    FBV,FBV                                                         FWACOM         4     A     
 FWACOM             FWA    GPO,GPO                                                         FWACOM         5     A     
 FWACOM             FWA    GRA,GRA                                                         FWACOM         6     A     
 FWACOM             FWA    PROSEQ,PROSQ                                                    FWACOM         7     A     
 FWACOM             FWA    POST,POST                                                       FWACOM         8     A     
 FWACOM             FWA    SQZ,SQZ                                                         FWACOM         9     A     
 FWACOM             FWA    MCG,MCG                                                         FWACOM        10     A     
 FWACOM             FWA    BDT,BDT                                                         FWACOM        11     A     
 FWACOM   *IF       DEF,TESTFTN                                                            FWACOM        12          I
          -FCCA589
 FWACOM   *IF DEF,TEST                                                                     FCCA589       11     A     
 FWACOM             VFD    42/7LDMPRLST,18/=XDMPRLST-3                                     FWACOM        13     A     
 FWACOM             VFD    42/7LDMPSIT ,18/=XDMPSIT-3                                      FWACOM        14     A     
 FWACOM             VFD    42/7LDMPTREE,18/=XDMPTREE-3                                     FWACOM        15     A     
 FWACOM             VFD    42/7LPRNTRLI,18/=XPRNTRLI-3                                     FWACOM        16     A     
 FWACOM             VFD    42/7LPRNTMCG,18/=XPRNTMCG-3                                     FWACOM        17     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 323    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FWACOM  
  
 FWACOM   *ENDIF                                                                           FWACOM        18     A     
 FWACOM             FWA    PRE,PRE                                                         FWACOM        19     A     
 FWACOM             FWA    CFA,CFA                                                         FWACOM        20     A     
 FWACOM             FWA    UDT,UDT                                                         FWACOM        21     A     
 FWACOM             FWA    READRL,RRL                                                      FWACOM        22     A     
 FWACOM             FWA    MACROX,MACRX                                                    FWACOM        23     A     
 FWACOM             USE    //                                                              CP139FC        7     A     
 FWACOM    BLNKCOM  BSS    0                                                               CP139FC        8     A     
 FWACOM             USE    *                                                               CP139FC        9     A     
 FWACOM             VFD    42/7LBLNKCOM,18/BLNKCOM                                         CP139FC       10     A     
 FWACOM             DATA   0           TABLE TERMINATOR                                    FWACOM        24     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FWACOM  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FWACOM                      24        23
          CP139FC                      4         4
          FCCA589                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IOBUFL  
  
 IOBUFL   *COMDECK  IOBUFL                                                                 IOBUFL         1     A     
 IOBUFL                                                                                    IOBUFL         2     A     
 IOBUFL   **        2 PASS BUFFER LENGTHS                                                  IOBUFL         3     A     
 IOBUFL                                                                                    IOBUFL         4     A     
 IOBUFL   **        FILE CIO BUFFER LENGTHS.                                               IOBUFL         5     A     
 IOBUFL   *                                                                                IOBUFL         6     A     
 IOBUFL    #RM      IFNE   CP#RM,7                                                         IOBUFL         7     A     
 IOBUFL                                                                                    IOBUFL         8     A     
 IOBUFL    BUFL     MICRO  1,, 1002B   NOMINAL CIO BUFFER LENGTH                           IOBUFL         9     A     
 IOBUFL                                                                                    IOBUFL        10     A     
 IOBUFL    LC.CMPS  =      "BUFL"                                                          IOBUFL        11     A     
 IOBUFL    LC.LGO   =      "BUFL"*2                                                        IOBUFL        12     A     
 IOBUFL    LC.OPT   =      "BUFL"*2                                                        IOBUFL        13     A     
 IOBUFL    LC.RLST  =      LC.LGO      (-RLST- BUFFER SPACE IS REUSED FOR -LGO-)           IOBUFL        14     A     
 IOBUFL    LC.RMAP  =      "BUFL"                                                          IOBUFL        15     A     
 IOBUFL                                                                                    IOBUFL        16     A     
 IOBUFL    #RM      ELSE                                                                   IOBUFL        17     A     
 IOBUFL                                                                                    IOBUFL        18     A     
 IOBUFL    BUFL     MICRO  1,, 0       (7RM I/O BUFFERS RESIDE IN LCM.)                    IOBUFL        19     A     
 IOBUFL    OBUFL    =      0                                                               IOBUFL        20     A     
 IOBUFL    EBUFL    =      0                                                               FCCA488A       5     A     
 IOBUFL    IBUF     =      0                                                               IOBUFL        21     A     
 IOBUFL    OBUF     =      0                                                               IOBUFL        22     A     
 IOBUFL                                                                                    IOBUFL        23     A     
 IOBUFL    #RM      ENDIF                                                                  IOBUFL        24     A     
 IOBUFL                                                                                    IOBUFL        25     A     
 IOBUFL                                                                                    IOBUFL        26     A     
 IOBUFL                                                                                    IOBUFL        27     A     
 IOBUFL   **        FILE HOLDING BUFFER LENGTHS.                                           IOBUFL        28     A     
 IOBUFL   *         (APPLIES ONLY WHEN RECORD MANAGER I/O IS SELECTED.)                    IOBUFL        29     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 324    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IOBUFL  
  
 IOBUFL   *                                                                                IOBUFL        30     A     
 IOBUFL    #RM      IFGE   CP#RM,6                                                         IOBUFL        31     A     
 IOBUFL                                                                                    IOBUFL        32     A     
 IOBUFL    HBUFL    MICRO  1,, 400B    HOLDING BUFFER LENGTH                               IOBUFL        33     A     
 IOBUFL                                                                                    IOBUFL        34     A     
 IOBUFL    LH.CMPS  =      0                                                               IOBUFL        35     A     
 IOBUFL    LH.IN    =      0                                                               IOBUFL        36     A     
 IOBUFL    LH.LGO   =      "HBUFL"                                                         IOBUFL        37     A     
 IOBUFL    LH.OPT   =      0                                                               IOBUFL        38     A     
 IOBUFL    LH.OUT   =      0                                                               IOBUFL        39     A     
 IOBUFL    LH.ERRS  =      0                                                               FCCA488A       6     A     
 IOBUFL    LH.RLST  =      LH.LGO      (-RLST- BUFFER SPACE IS REUSED FOR -LGO-)           IOBUFL        40     A     
 IOBUFL    LH.RMAP  =      "HBUFL"                                                         IOBUFL        41     A     
 IOBUFL                                                                                    IOBUFL        42     A     
 IOBUFL    #RM      ENDIF                                                                  IOBUFL        43     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - IOBUFL  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          IOBUFL                      43        43
          FCCA488A                     2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LDBGCOM 
  
 LDBGCOM  *COMDECK LDBGCOM                                                                 LDBGCOM        1     A     
 LDBGCOM                                                                                   LDBGCOM        2     A     
 LDBGCOM  C/    LIST,NONE                                                                  LDBGCOM        3     A     
 LDBGCOM  *CALL FDBGCOM                                                                    LDBGCOM        4     A     
 LDBGCOM  C/    LIST,ALL                                                                   LDBGCOM        5     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - LDBGCOM 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          LDBGCOM                      5         5
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPRDEFS 
  
 OPRDEFS  *COMDECK  OPRDEFS                                                                OPRDEFS        1     A     
 OPRDEFS            CTEXT  OPRDEFS - *IL* INSTRUCTION DEFINITIONS                          OPRDEFS        2     A     
 OPRDEFS  **        OPRDEFS - DEFINE THE PROPERTIES OF THE *IL* INSTRUCTIONS.              OPRDEFS        3     A     
 OPRDEFS                                                                                   OPRDEFS        4     A     
 OPRDEFS            NOREF  .OC                                                             OPRDEFS        5     A     
 OPRDEFS   .OC      SET    0           OPCODE OF THE FIRST RLIST INSTRUCTION               OPRDEFS        6     A     
 OPRDEFS                                                                                   OPRDEFS        7     A     
 OPRDEFS  **        GETARG - GET ARGUMENT STARTING IN COLUMN N FROM STRING SS              OPRDEFS        8     A     
 OPRDEFS  *         M IS MAXIMUM STRING LENGTH                                             OPRDEFS        9     A     
 OPRDEFS  *         NOTE: S IS THE NULL MICRO IF THE ARG HAS LEADING BLANKS                OPRDEFS       10     A     
 OPRDEFS                                                                                   OPRDEFS       11     A     
 OPRDEFS            MACRO  GETARG,S,N,M,SS                                                 OPRDEFS       12     A     
 OPRDEFS   S        MICRO  N-15,M,$SS$                                                     OPRDEFS       13     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 325    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPRDEFS 
  
 OPRDEFS   S        MICRO  1,, "S"                                                         OPRDEFS       14     A     
 OPRDEFS   GETARG   ENDM                                                                   OPRDEFS       15     A     
 OPRDEFS                                                                                   OPRDEFS       16     A     
 OPRDEFS  **        V= - SCAN FIRST LIST AND SET RESULT TO VALUE IN SECOND LIST            OPRDEFS       17     A     
 OPRDEFS                                                                                   OPRDEFS       18     A     
 OPRDEFS            MACRO  V=,V,S,L1,L2                                                    OPRDEFS       19     A     
 OPRDEFS   V        SET    -1                                                              OPRDEFS       20     A     
 OPRDEFS            ECHO   3,P1=(L1),P2=(L2)                                               OPRDEFS       21     A     
 OPRDEFS            IFC    EQ,/S/P1/,2                                                     OPRDEFS       22     A     
 OPRDEFS   V        SET    P2                                                              OPRDEFS       23     A     
 OPRDEFS            STOPDUP                                                                OPRDEFS       24     A     
 OPRDEFS            ERRMI  V           ILLEGAL MACRO PARAM - S                             OPRDEFS       25     A     
 OPRDEFS   V=       ENDM                                                                   OPRDEFS       26     A     
 OPRDEFS                                                                                   OPRDEFS       27     A     
 OPRDEFS  **        FUNIT - DEFINE FUNCTIONAL UNIT CODES FOR *OPR* MACRO                   OPRDEFS       28     A     
 OPRDEFS                                                                                   OPRDEFS       29     A     
 OPRDEFS            MACRO  FUNIT,N,F66,F76                                                 OPRDEFS       30     A     
 OPRDEFS   M        IFEQ   .CPU,76,2                                                       OPRDEFS       31     A     
 OPRDEFS   N        EQU    F76 F66           DEFAULT TO 6600 UNIT                          OPRDEFS       32     A     
 OPRDEFS   M        SKIP   1                                                               OPRDEFS       33     A     
 OPRDEFS   N        EQU    F66                                                             OPRDEFS       34     A     
 OPRDEFS   FUNIT    ENDM                                                                   OPRDEFS       35     A     
 OPRDEFS            SPACE  2                                                               OPRDEFS       36     A     
 OPRDEFS  **        FUNCTIONAL UNIT CODES FOR 6600/7600                                    OPRDEFS       37     A     
 OPRDEFS  *                                                                                OPRDEFS       38     A     
 OPRDEFS  * UNIT           66,76 UNIT NUMBER                                               OPRDEFS       39     A     
 OPRDEFS                                                                                   OPRDEFS       40     A     
 OPRDEFS            QUAL   FUNIT                                                           OPRDEFS       41     A     
 OPRDEFS  *PSEUDO   FUNIT  0                                                               OPRDEFS       42     A     
 OPRDEFS   BRANCH   FUNIT  1                                                               OPRDEFS       43     A     
 OPRDEFS   BOOL     FUNIT  2                                                               OPRDEFS       44     A     
 OPRDEFS   SHIFT    FUNIT  3                                                               OPRDEFS       45     A     
 OPRDEFS   IADD     FUNIT  4                                                               OPRDEFS       46     A     
 OPRDEFS   FADD     FUNIT  5                                                               OPRDEFS       47     A     
 OPRDEFS   MULT     FUNIT  6                 MULT2 = 7 FOR A 6600                          OPRDEFS       48     A     
 OPRDEFS   DIVIDE   FUNIT  8                                                               OPRDEFS       49     A     
 OPRDEFS   INC      FUNIT  9                 INC2 = 10 ON A 6600                           OPRDEFS       50     A     
 OPRDEFS   NORM     FUNIT  SHIFT,7                                                         OPRDEFS       51     A     
 OPRDEFS   BJUMP    FUNIT  INC,BRANCH                                                      OPRDEFS       52     A     
 OPRDEFS   XJUMP    FUNIT  IADD,BRANCH                                                     OPRDEFS       53     A     
 OPRDEFS   LCM      FUNIT  10                LCM PSEUDO FUNCT UNIT FOR 7600                OPRDEFS       54     A     
 OPRDEFS   POPC     FUNIT  DIVIDE,11                                                       OPRDEFS       55     A     
 OPRDEFS   PACK     FUNIT  SHIFT,BOOL                                                      OPRDEFS       56     A     
 OPRDEFS            QUAL   *                                                               OPRDEFS       57     A     
 OPRDEFS            SPACE  2                                                               OPRDEFS       58     A     
 OPRDEFS  **        FORMAT OF THE *OPR* DEFINITION IS -                                    OPRDEFS       59     A     
 OPRDEFS  * NAM     OPR ( TYPE  COMM  USI  T6/T7  UNIT1 UNIT2  LEN K=J  SPEC   B )         OPRDEFS       60     A     
 OPRDEFS  *                                                                                OPRDEFS       61     A     
 OPRDEFS  *         NAME - MEMONIC NAME OF *IL* INSTRUCTION                                OPRDEFS       62     A     
 OPRDEFS  *         TYPE - RLIST TYPE ( I - IV )                                           OPRDEFS       63     A     
 OPRDEFS  *         COMM - "COMM" IF OPERANDS ARE COMMUTATIVE, ELSE "-"                    OPRDEFS       64     A     
 OPRDEFS  *         USI  - "USI" IF INSTRUCTION IS UNSAFE TO MOVE BECAUSE IT               OPRDEFS       65     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 326    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPRDEFS 
  
 OPRDEFS  *                MAY CAUSE AN INTERRUPT ( FLOATING POINT OPERATIONS ).           OPRDEFS       66     A     
 OPRDEFS  *         T6/T7 - 6600/7600 EXECUTION TIME OR "-" FOR SPECIAL INST               OPRDEFS       67     A     
 OPRDEFS  *                FOR B-JUMPS THE STACK TIME IS USED.                             OPRDEFS       68     A     
 OPRDEFS  *                FOR X-JUMPS THE FALL THROUGH TIME IS USED.                      OPRDEFS       69     A     
 OPRDEFS  *                TIMES FOR LAB, AND UNCONDITIONAL JUMPS IS SET AT 31             OPRDEFS       70     A     
 OPRDEFS  *                TO ALLOW THEM TO APPEAR IN THE MIDDLE OF A SEQUENCE.            OPRDEFS       71     A     
 OPRDEFS  *         UNIT1 - FUNCTIONAL UNIT WHICH EXECUTES THE INSTRUCTION                 OPRDEFS       72     A     
 OPRDEFS  *         UNIT2 - SECOND FUNCTIONAL UNIT, IF AN ALTERNATE UNIT IS                OPRDEFS       73     A     
 OPRDEFS  *               AVAILABLE AND DIFFERENT FROM THE FIRST.                          OPRDEFS       74     A     
 OPRDEFS  *               "FU1" IN THE CASE OF DUPLEXED UNITS ON THE 6600                  OPRDEFS       75     A     
 OPRDEFS  *                ( INCREMENT AND MULTIPLY ).                                     OPRDEFS       76     A     
 OPRDEFS  *         LEN  - INSTRUCTION LENGTH IN BITS ( 15,30,60,- )                       OPRDEFS       77     A     
 OPRDEFS  *         K=J - MISCELLANEOUS INSTRUCTION PROPERTIES                             OPRDEFS       78     A     
 OPRDEFS  *         SPEC - ANY SPECIAL PROPERTIES OF THE INSTRUCTION                       OPRDEFS       79     A     
 OPRDEFS  *         B   - BOUNDARY MARKER ( BEGINS OR TERMINATES A BASIC BLOCK )           OPRDEFS       80     A     
 OPRDEFS  *                                                                                OPRDEFS       81     A     
 OPRDEFS  * NAM     OPR ( TYPE  COMM  USI  T6/T7  UNIT1 UNIT2  LEN K=J  SPEC   B )         OPRDEFS       82     A     
 OPRDEFS                                                                                   OPRDEFS       83     A     
 OPRDEFS   EOQ      OPR (  IV     -    -    1/1    -     -      -              A )         OPRDEFS       84     A     
 OPRDEFS   BOS      OPR (  IV     -    -     -     -     -      -                )         OPRDEFS       85     A     
 OPRDEFS   EOS      OPR (  IV     -    -     -     -     -      -              A )         OPRDEFS       86     A     
 OPRDEFS   DAR      OPR (  I      -    -     -     -     -      -                )         OPRDEFS       87     A     
 OPRDEFS   RS       OPR (  II     -    -     -     -     -      -       REGST    )         OPRDEFS       88     A     
 OPRDEFS   DEF      OPR (  II     -    -     -     -     -      -              D )         OPRDEFS       89     A     
 OPRDEFS   LAB      OPR (  IV     -    -   31/31   -     -      -              B )         OPRDEFS       90     A     
 OPRDEFS   ENT      OPR (  IV     -    -     -     -     -      -              B )         OPRDEFS       91     A     
 OPRDEFS                                                                                   OPRDEFS       92     A     
 OPRDEFS   XMT      OPR (  I      -    -    3/2  BOOL   SHIFT  15  K=J           )         OPRDEFS       93     A     
 OPRDEFS   AND      OPR (  I    COMM   -    3/2  BOOL    -     15                )         OPRDEFS       94     A     
 OPRDEFS   OR       OPR (  I    COMM   -    3/2  BOOL    -     15                )         OPRDEFS       95     A     
 OPRDEFS   XOR      OPR (  I    COMM   -    3/2  BOOL    -     15                )         OPRDEFS       96     A     
 OPRDEFS   XMTC     OPR (  I      -    -    3/2  BOOL    -     15  K=J           )         OPRDEFS       97     A     
 OPRDEFS   STR      OPR (  I      -    -    3/2  BOOL    -     15                )         OPRDEFS       98     A     
 OPRDEFS   IMP      OPR (  I      -    -    3/2  BOOL    -     15                )         OPRDEFS       99     A     
 OPRDEFS   EQV      OPR (  I    COMM   -    3/2  BOOL    -     15                )         OPRDEFS      100     A     
 OPRDEFS   KLS      OPR (  III    -    -    3/2  SHIFT   -     15  K=J           )         OPRDEFS      101     A     
 OPRDEFS   KRS      OPR (  III    -    -    3/2  SHIFT   -     15  K=J           )         OPRDEFS      102     A     
 OPRDEFS   ILS      OPR (  I      -    -    3/2  SHIFT   -     15                )         OPRDEFS      103     A     
 OPRDEFS   IRS      OPR (  I      -    -    3/2  SHIFT   -     15                )         OPRDEFS      104     A     
 OPRDEFS   NR       OPR (  I      -   USI   4/3  NORM    -     15  2R            )         OPRDEFS      105     A     
 OPRDEFS   RNZ      OPR (  I      -   USI   4/3  NORM    -     15  2R            )         OPRDEFS      106     A     
 OPRDEFS   UP       OPR (  I      -    -    3/2  PACK    -     15  2R            )         OPRDEFS      107     A     
 OPRDEFS   PK       OPR (  I      -    -    3/2  PACK    -     15                )         OPRDEFS      108     A     
 OPRDEFS   FA       OPR (  I    COMM  USI   4/4  FADD    -     15                )         OPRDEFS      109     A     
 OPRDEFS   FS       OPR (  I      -   USI   4/4  FADD    -     15                )         OPRDEFS      110     A     
 OPRDEFS   DFA      OPR (  I    COMM  USI   4/4  FADD    -     15                )         OPRDEFS      111     A     
 OPRDEFS   DFS      OPR (  I      -   USI   4/4  FADD    -     15                )         OPRDEFS      112     A     
 OPRDEFS   RFA      OPR (  I    COMM  USI   4/4  FADD    -     15                )         OPRDEFS      113     A     
 OPRDEFS   RFS      OPR (  I      -   USI   4/4  FADD    -     15                )         OPRDEFS      114     A     
 OPRDEFS   IA       OPR (  I    COMM   -    3/2  IADD    -     15                )         OPRDEFS      115     A     
 OPRDEFS   IS       OPR (  I      -    -    3/2  IADD    -     15                )         OPRDEFS      116     A     
 OPRDEFS   FM       OPR (  I    COMM  USI  10/5  MULT   FU1    15                )         OPRDEFS      117     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 327    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPRDEFS 
  
 OPRDEFS   RFM      OPR (  I    COMM  USI  10/5  MULT   FU1    15                )         OPRDEFS      118     A     
 OPRDEFS   DFM      OPR (  I    COMM  USI  10/5  MULT   FU1    15                )         OPRDEFS      119     A     
 OPRDEFS   FMA      OPR (  II     -    -    3/2  SHIFT   -     15  K=J  ZEROP    )         OPRDEFS      120     A     
 OPRDEFS   FD       OPR (  I      -   USI  29/20 DIVIDE  -     15                )         OPRDEFS      121     A     
 OPRDEFS   RFD      OPR (  I      -   USI  29/20 DIVIDE  -     15                )         OPRDEFS      122     A     
 OPRDEFS   NOP      OPR (  III    -    -     -     -     -      -       REGST    )         OPRDEFS      123     A     
 OPRDEFS   CX       OPR (  I      -    -    8/2  POPC    -     15  K=J           )         OPRDEFS      124     A     
 OPRDEFS                                                                                   OPRDEFS      125     A     
 OPRDEFS   LD       OPR (  III    -    -    8/8  INC    FU1    30       LOAD     )         OPRDEFS      126     A     
 OPRDEFS   ST       OPR (  III    -    -   10/2  INC    FU1    30       STORE    )         OPRDEFS      127     A     
 OPRDEFS   STT      OPR (  III    -    -    3/2  INC    FU1    30                )         OPRDEFS      128     A     
 OPRDEFS   PLD      OPR (  I      -    -    8/8  INC    FU1    30       LOAD     )         OPRDEFS      129     A     
 OPRDEFS   PST      OPR (  I      -    -   10/2  INC    FU1    30       STORE    )         OPRDEFS      130     A     
 OPRDEFS   S        OPR (  II     -    -    3/2  INC    FU1    30       ZEROP    )         OPRDEFS      131     A     
 OPRDEFS   SLD      OPR (  I    COMM   -    8/8  INC    FU1    15       LOAD     )         OPRDEFS      132     A     
 OPRDEFS   SST      OPR (  I    COMM   -   10/2  INC    FU1    15       STORE    )         OPRDEFS      133     A     
 OPRDEFS   SA       OPR (  I    COMM   -    3/2  INC    FU1    15                )         OPRDEFS      134     A     
 OPRDEFS   SDL      OPR (  I      -    -    8/8  INC    FU1    15       LOAD     )         OPRDEFS      135     A     
 OPRDEFS   SDS      OPR (  I      -    -   10/2  INC    FU1    15       STORE    )         OPRDEFS      136     A     
 OPRDEFS   SS       OPR (  I      -    -    3/2  INC    FU1    15                )         OPRDEFS      137     A     
 OPRDEFS   DRL      OPR (  I      -    -    0/17 LCM     -     15  K=J  LOAD2    )         OPRDEFS      138     A     
 OPRDEFS   DWL      OPR (  I      -    -    0/3  LCM     -     15  K=J  STORE2   )         OPRDEFS      139     A     
 OPRDEFS                                                                                   OPRDEFS      140     A     
 OPRDEFS  *IF       DEF,PLI,1                                                              OPRDEFS      141     A     
 OPRDEFS   RJXJ     OPR (  III    -    -   11/2  XJUMP   -     30       ECJUMP F )         OPRDEFS      142     A     
 OPRDEFS   JPX      OPR (  III    -    -   11/2  XJUMP   -     30       JUMP   C )         OPRDEFS      143     A     
 OPRDEFS   JPBB     OPR (  III    -    -    8/3  BJUMP   -     30       JUMP   C )         OPRDEFS      144     A     
 OPRDEFS                                                                                   OPRDEFS      145     A     
 OPRDEFS   JIN      OPR (  III    -    -   14/13 INC    FU1    30       UJUMP  A )         OPRDEFS      146     A     
 OPRDEFS   RJ3      OPR (  IV     -    -   31/31 BRANCH  -     30       UJUMP  A )         OPRDEFS      147     A     
 OPRDEFS   RJ6      OPR (  IV     -    -   31/31 BRANCH  -     30       UJUMP  A )         OPRDEFS      148     A     
 OPRDEFS   UJP      OPR (  IV     -    -   14/13 BJUMP  FU1    30       UJUMP  A )         OPRDEFS      149     A     
 OPRDEFS                                                                                   OPRDEFS      150     A     
 OPRDEFS   ILD      OPR (  III    -    -    8/8  INC    FU1    30       LOAD     )         OPRDEFS      151     A     
 OPRDEFS   TLD      OPR (  III    -    -    8/8  INC    FU1    30       LOAD     )         OPRDEFS      152     A     
 OPRDEFS   TST      OPR (  III    -    -   10/2  INC    FU1    30       STORE    )         OPRDEFS      153     A     
 OPRDEFS   IAZ      OPR (  I    COMM   -    3/2  IADD    -     15                )         OPRDEFS      154     A     
 OPRDEFS   ISZ      OPR (  I      -    -    3/2  IADD    -     15                )         OPRDEFS      155     A     
 OPRDEFS   IM       OPR (  I    COMM   -   10/5  MULT   FU1    15                )         OPRDEFS      156     A     
 OPRDEFS   CLR      OPR (  II     -    -    3/2  SHIFT  BOOL   15  K=J  ZEROP    )         OPRDEFS      157     A     
 OPRDEFS   SXT      OPR (  I      -    -    3/2  BOOL   SHIFT  15  K=J           )         OPRDEFS      158     A     
 OPRDEFS                                                                                   OPRDEFS      159     A     
 OPRDEFS  *         DEFINE MICROS FOR THE CONDITIONAL X AND B JUMPS                        OPRDEFS      160     A     
 OPRDEFS                                                                                   OPRDEFS      161     A     
 OPRDEFS   XJUMPS   MICRO  1,,/ZR,NZ,PL,MI,OR,IR,DF,ID/                                    OPRDEFS      162     A     
 OPRDEFS   BJUMPS   MICRO  1,,/EQ,NE,GE,LT/                                                OPRDEFS      163     A     
 OPRDEFS                                                                                   OPRDEFS      164     A     
 OPRDEFS            PURGMAC GETARG,FUNIT,V=,OPR                                            OPRDEFS      165     A     
 OPRDEFS            ENDX                                                                   OPRDEFS      166     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 328    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - OPRDEFS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          OPRDEFS                    166       166
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS  *COMDECK, OPTIONS                                                                OPTIONS        1     A     
 OPTIONS   OPTIONS  TITLE  O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS           OPTIONS        2     A     
 OPTIONS   OPTIONS  SPACE  8                                                               OPTIONS        3     A     
 OPTIONS  ****                                                                             OPTIONS        4     A     
 OPTIONS  ***       O P T I O N S - FORTRAN EXTENDED INSTALLATION PARAMETERS.              OPTIONS        5     A     
 OPTIONS  *                                                                                OPTIONS        6     A     
 OPTIONS  *         REVISED AUGUST 1975 FOR THE CYBER 170 SERIES MACHINES.                 S3143FC        5     A     
 OPTIONS  *                                                                                OPTIONS        7     A     
 OPTIONS  *         THE PARAMETERS DEFINED IN THIS DECK DETERMINE THE SPECIFIC             OPTIONS        8     A     
 OPTIONS  *         CONFIGURATION OF THE FORTRAN EXTENDED COMPILER.  WHEN INSTAL-          OPTIONS        9     A     
 OPTIONS  *         LING THE COMPILER, PARAMETERS SHOULD BE REVISED AS NECESSARY           OPTIONS       10     A     
 OPTIONS  *         TO DESCRIBE THE INSTALLATION'S EXACT HARDWARE CONFIGURATION            OPTIONS       11     A     
 OPTIONS  *         AND SPECIFIC FUNCTIONAL REQUIREMENTS.                                  OPTIONS       12     A     
 OPTIONS  *                                                                                OPTIONS       13     A     
 OPTIONS  *         ADDITIONAL INSTALLATION OPTION PARAMETERS WILL BE FOUND IN             OPTIONS       14     A     
 OPTIONS  *         THE PROGRAM DECK  < FTN > .                                            OPTIONS       15     A     
 OPTIONS   OPTIONS  SPACE  4,19                                                            OPTIONS       16     A     
 OPTIONS  *         **************************************************************         OPTIONS       17     A     
 OPTIONS  *         *                                                            *         OPTIONS       18     A     
 OPTIONS  *         *                                                            *         OPTIONS       19     A     
 OPTIONS  *         *   I N S T A L L A T I O N   W A R N I N G   N O T I C E    *         OPTIONS       20     A     
 OPTIONS  *         *                                                            *         OPTIONS       21     A     
 OPTIONS  *         *                                                            *         OPTIONS       22     A     
 OPTIONS  *         *      AN ASTERISKED BOX SIMILAR TO THIS ENCLOSES EACH       *         OPTIONS       23     A     
 OPTIONS  *         *      PARAMETER THAT IS INTENDED TO BE CHANGED WHEN         *         OPTIONS       24     A     
 OPTIONS  *         *      INSTALLING THE FORTRAN EXTENDED COMPILER.             *         OPTIONS       25     A     
 OPTIONS  *         *                                                            *         OPTIONS       26     A     
 OPTIONS  *         *      NO OTHER PARAMETER IN THE *OPTIONS* DECK SHOULD       *         OPTIONS       27     A     
 OPTIONS  *         *      BE CHANGED.                                           *         OPTIONS       28     A     
 OPTIONS  *         *                                                            *         OPTIONS       29     A     
 OPTIONS  *         *      CONTROL DATA CORPORATION ACCEPTS NO RESPONSIBILITY    *         OPTIONS       30     A     
 OPTIONS  *         *      FOR SATISFACTORY PERFORMANCE OF THE FORTRAN           *         OPTIONS       31     A     
 OPTIONS  *         *      EXTENDED COMPILER IF THIS NOTICE IS DISREGARDED.      *         OPTIONS       32     A     
 OPTIONS  *         *                                                            *         OPTIONS       33     A     
 OPTIONS  *         *                                                            *         OPTIONS       34     A     
 OPTIONS  *         **************************************************************         OPTIONS       35     A     
 OPTIONS   MDV=     SPACE  3                                                               OPTIONS       36     A     
 OPTIONS  **        MDV= - SET VALUE OF MACHINE DEPENDENT SYMBOL.                          OPTIONS       37          I
          -F2950F4
 OPTIONS  *                                                                                OPTIONS       38          I
          -F2950F4
 OPTIONS  * VAL     MDV=   64V,66V,76V,175V                                                OPTIONS       39          I
          -F7540FT
 OPTIONS  * VAL     MDV=   64V,66V,76V,175V,176V                                           F7540FT        8          I
          -F2950F4
 OPTIONS                                                                                   OPTIONS       40          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 329    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
          -F2950F4
 OPTIONS            MACRO  MDV=,SYM,V64,V66,V76,V175                                       OPTIONS       41          I
          -F7540FT
 OPTIONS            MACRO  MDV=,SYM,V64,V66,V76,V175,V176                                  F7540FT        9          I
          -F2950F4
 OPTIONS            IFLT   .CPU,74D,2                                                      OPTIONS       42          I
          -F2950F4
 OPTIONS   SYM      =      V64                                                             OPTIONS       43          I
          -F2950F4
 OPTIONS            SKIP   7                                                               OPTIONS       44          I
          -F7540FT
 OPTIONS            SKIP   11                                                              F7540FT       10          I
          -F2950F4
 OPTIONS            IFEQ   .CPU,74D,2                                                      OPTIONS       45          I
          -F2950F4
 OPTIONS   SYM      =      V66                                                             OPTIONS       46          I
          -F2950F4
 OPTIONS            SKIP   4                                                               OPTIONS       47          I
          -F7540FT
 OPTIONS            IFEQ   .CPU,76D,2                                                      OPTIONS       48          I
          -F7540FT
 OPTIONS            SKIP   8                                                               F7540FT       11          I
          -F2950F4
 OPTIONS            IFEQ   .CPU,76D,6                                                      F7540FT       12          I
          -F2950F4
 OPTIONS   MDL1     MICRO  1,1, "MODEL"                                                    F7540FT       13          I
          -F2950F4
 OPTIONS            IFC    EQ, "MDL1" 1 ,2                                                 F7540FT       14          I
          -F2950F4
 OPTIONS   SYM      =      V176                                                            F7540FT       15          I
          -F2950F4
 OPTIONS            SKIP   3                                                               F7540FT       16          I
          -F2950F4
 OPTIONS   SYM      =      V76                                                             OPTIONS       49          I
          -F2950F4
 OPTIONS            SKIP   1                                                               OPTIONS       50          I
          -F2950F4
 OPTIONS   SYM      =      V175 V76                                                        OPTIONS       51          I
          -F2950F4
 OPTIONS   MDV=     ENDM                                                                   OPTIONS       52          I
          -F2950F4
 OPTIONS   OPTIONS  SPACE  3,37                                                            OPTIONS       53     A     
 OPTIONS  ***                                                                              OPTIONS       54     A     
 OPTIONS  *                                                                                OPTIONS       55     A     
 OPTIONS  *         CROSS-MODEL COMPILER - DEFINITION AND INSTALLATION PROCEDURE           OPTIONS       56     A     
 OPTIONS  *                                                                                OPTIONS       57     A     
 OPTIONS  *                THE FORTRAN EXTENDED COMPILER MAY BE INSTALLED IN A             OPTIONS       58     A     
 OPTIONS  *                CONFIGURATION THAT PERMITS FORTRAN SOURCE PROGRAMS              OPTIONS       59     A     
 OPTIONS  *                TO BE COMPILED ON  A CYBER 76 (OR 7600) USING THE               OPTIONS       60     A     
 OPTIONS  *                SCOPE 2 OPERATING SYSTEM FOR LATER LOADING AND                  OPTIONS       61     A     
 OPTIONS  *                EXECUTION ON A LOWER CYBER (OR 6000 SERIES) MACHINE.            OPTIONS       62     A     
 OPTIONS  *                                                                                OPTIONS       63     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 330    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS  *                TO BUILD AND INSTALL THE FORTRAN EXTENDED COMPILER              OPTIONS       64     A     
 OPTIONS  *                IN THIS CROSS-MODEL CONFIGURATION, USE THE NORMAL               OPTIONS       65     A     
 OPTIONS  *                7600 INSTALLATION PROCEDURE NOTING THE FOLLOWING                OPTIONS       66     A     
 OPTIONS  *                REQUIREMENTS.                                                   OPTIONS       67     A     
 OPTIONS  *                   1.  INSURE THAT THE TEXT CONTAINING THE                      OPTIONS       68     A     
 OPTIONS  *                       INSTALLATION PARAMETERS CONTAINS CYBER 76                OPTIONS       69     A     
 OPTIONS  *                       VALUES.                                                  OPTIONS       70     A     
 OPTIONS  *                   2.  SELECT THE DESIRED VALUE FOR THE "MODEL" MICRO           OPTIONS       71          I
          -F2950F4
 OPTIONS  *                   2.  SELECT THE DESIRED VALUE FOR THE DEFMOD MACRO            F2950F4       24     A     
 OPTIONS  *                       DEFINED IN THE BOX ENTITLED -                            OPTIONS       72     A     
 OPTIONS  *                       "TARGET (I.E. OBJECT-TIME) CYBER 70/ SERIES              OPTIONS       73     A     
 OPTIONS  *                       MODEL."                                                  OPTIONS       74     A     
 OPTIONS  *                                                                                OPTIONS       75     A     
 OPTIONS  *         CAUTIONS -                                                             OPTIONS       76     A     
 OPTIONS  *                1.  THE CROSS-MODEL COMPILER MUST BE INSTALLED USING            OPTIONS       77     A     
 OPTIONS  *                    THE "FTNTEXT"  BUILT WITH THE ABOVE PROCEDURE.              OPTIONS       78     A     
 OPTIONS  *                2.  AN "OPTIONS" COMDECK CONFIGURED FOR CROSS-MODEL             OPTIONS       79     A     
 OPTIONS  *                    COMPILATION CAN NOT BE USED WHEN BUILDING "FTNMAC".         OPTIONS       80     A     
 OPTIONS  *                    THE STANDARD "OPTIONS" COMDECK MUST BE USED.                OPTIONS       81     A     
 OPTIONS  *                                                                                OPTIONS       82     A     
 OPTIONS  ***                                                                              OPTIONS       83     A     
 OPTIONS   OPTIONS  SPACE  3,9                                                             OPTIONS       84     A     
 OPTIONS  ***       PROCESSOR NAME, VERSION AND MODIFICATION LEVEL.                        OPTIONS       85     A     
 OPTIONS  *                                                                                OPTIONS       86     A     
 OPTIONS   LPNAME   MICRO  1,7,/FTN    /     LANGUAGE PROCESSOR NAME                       OPTIONS       87     A     
 OPTIONS   VER      MICRO  1,3,/4.3/                                                       OPTIONS       88          I
          -PSRLEVEL 
 OPTIONS  VER       MICRO  1,3,/4.8/                                                       PSRLEVEL       1     A     
 OPTIONS  PSR       MICRO  1,,$871$                                                        PSRLEVEL       2     A     
 OPTIONS            IF     MIC,PSR,2                                                       OPTIONS       89     A     
 OPTIONS   MODLVL   MICRO  1,9,$"PSR"         $                                            OPTIONS       90     A     
 OPTIONS            SKIP   1                                                               OPTIONS       91     A     
 OPTIONS   MODLVL   MICRO  1,9,$"MODLEVEL"         $                                       OPTIONS       92     A     
 OPTIONS   VALMDL   SPACE  2                                                               S3143FC        6     A     
 OPTIONS  **        VALMDL - VALIDATE MODEL MICRO                                          S3143FC        7          I
          -F2950F4
 OPTIONS                                                                                   S3143FC        8          I
          -F2950F4
 OPTIONS            MACRO  VALMDL,MDL,MODEL,ONE7X                                          S3143FC        9          I
          -F2950F4
 OPTIONS   CMDL     MICRO  1,,-"MODEL"-                                                    S3143FC       10          I
          -F2950F4
 OPTIONS            ECHO   ,X=(72,73,74,76,172,173,174,175)                                S3143FC       11          I
          -F7540FT
 OPTIONS            ECHO   ,X=(72,73,74,76,172,173,174,175,176)                            F7540FT       17          I
          -FCC1847X 
 OPTIONS            ECHO   ,X=(71,72,73,74,76,171,172,173,174,175,176)                     FCC1847X       5          I
          -F2950F4
 OPTIONS            IFC    EQ,/X/"CMDL"/,3                                                 S3143FC       12          I
          -F2950F4
 OPTIONS   MDL      MICRO  1,,/"CMDL"/                                                     S3143FC       13          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 331    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
          -F2950F4
 OPTIONS            STOPDUP                                                                S3143FC       14          I
          -F2950F4
 OPTIONS            SKIP   3                                                               S3143FC       15          I
          -F2950F4
 OPTIONS            ENDD                                                                   S3143FC       16          I
          -F2950F4
 OPTIONS            LIST   A                                                               S3143FC       17          I
          -F2950F4
 OPTIONS            ERR    ILLEGAL VALUE OF MODEL MICRO = "MODEL"                          S3143FC       18          I
          -F2950F4
 OPTIONS            IFC    EQ,/"MDL"/174/,1                                                S3143FC       19          I
          -F2950F4
 OPTIONS   MDL      MICRO 1,,/173/     FOR *MCG*  ( SCHEDULING PURPOSES )                  S3143FC       20          I
          -F2950F4
 OPTIONS   .1       MICRO  1,1,/"MDL"/                                                     S3143FC       21          I
          -F2950F4
 OPTIONS            IFC    EQ,/".1"/1/,3                                                   S3143FC       22          I
          -F2950F4
 OPTIONS   ONE7X    =      1                                                               S3143FC       23          I
          -F2950F4
 OPTIONS   MDL      MICRO  2,,/"MDL"/                                                      S3143FC       24          I
          -F2950F4
 OPTIONS            ELSE   1                                                               S3143FC       25          I
          -F2950F4
 OPTIONS   ONE7X    =      0                                                               S3143FC       26          I
          -F2950F4
 OPTIONS            ENDM                                                                   S3143FC       27          I
          -F2950F4
 OPTIONS  **        VALMDL - VALIDATE MACRO FOR THE HP.F MICRO                             F2950F4       25     A     
 OPTIONS                                                                                   F2950F4       26     A     
 OPTIONS             MACRO  VALMDL,MDL                                                     F2950F4       27          I
          -FCC2563
 OPTIONS             QUAL   IPARAM                                                         F2950F4       28          I
          -FCC2563
 OPTIONS             IPARAMS                                                               F2950F4       29          I
          -FCC2563
 OPTIONS             DEFINHF                                                               F2950F4       30          I
          -FCCA592  -FCC2563
 OPTIONS   PMDL      MICRO  1,,-76-                                                        FCCA592        6          I
          -FCC2563
 OPTIONS   CMDL      MICRO  2,,-"HF.P"-                                                    F2950F4       31          I
          -FCC2563
 OPTIONS   P8        MICRO  1,1,-"CMDL"-                                                   FCCA592        7          I
          -FCC2563
 OPTIONS             ECHO   ,X=(S,74,76,175,176)                                           F2950F4       32          I
          -FCCA592  -FCC2563
 OPTIONS             ECHO   ,X=(S,74,76,175,176,865,875)                                   FCCA592        8          I
          -FCC2563
 OPTIONS             IFC    EQ,/X/"CMDL"/,3                                                F2950F4       33          I
          -FCC2563
 OPTIONS   MDL       MICRO  1,,/"CMDL"/                                                    F2950F4       34          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 332    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
          -FCC2563
 OPTIONS             STOPDUP                                                               F2950F4       35          I
          -FCC2563
 OPTIONS             SKIP   4                                                              F2950F4       36          I
          -FCC2563
 OPTIONS             ENDD                                                                  F2950F4       37          I
          -FCC2563
 OPTIONS             LIST   A                                                              F2950F4       38          I
          -FCC2563
 OPTIONS             ERR    ILLEGAL VALUE OF HF.P MICRO = "CMDL"                           F2950F4       39          I
          -FCC2563
 OPTIONS             SKIP   8                                                              F2950F4       40          I
          -FCCA592
 OPTIONS             SKIP   11                                                             FCCA592        9          I
          -FCC2563
 OPTIONS             IFC    EQ,$"CMDL"$S$,2                                                F2950F4       41          I
          -FCC2563
 OPTIONS   MDL       MICRO  1,,-73-                                                        F2950F4       42          I
          -FCC2563
 OPTIONS             SKIP   5                                                              F2950F4       43          I
          -FCCA592
 OPTIONS             SKIP   8                                                              FCCA592       10          I
          -FCC2563
 OPTIONS   #CNT      MICCNT MDL                                                            F2950F4       44          I
          -FCC2563
 OPTIONS             IFEQ   #CNT,2,2                                                       F2950F4       45          I
          -FCC2563
 OPTIONS   MDL       MICRO  1,,/"MDL"/                                                     F2950F4       46          I
          -FCC2563
 OPTIONS   #MH       ELSE   1                                                              F2950F4       47          I
          -FCCA592
 OPTIONS   #MH       ELSE   4                                                              FCCA592       11          I
          -FCC2563
 OPTIONS             IFC    NE,-"P8"-8-,2                                                  FCCA592       12          I
          -FCC2563
 OPTIONS   MDL       MICRO  2,,/"MDL"/                                                     F2950F4       48          I
          -FCC2563
 OPTIONS             SKIP   1                                                              FCCA592       13          I
          -FCC2563
 OPTIONS   MDL       MICRO  1,,-"PMDL"-                                                    FCCA592       14          I
          -FCC2563
 OPTIONS             QUAL   *                                                              F2950F4       49          I
          -FCC2563
 OPTIONS             ENDM                                                                  F2950F4       50          I
          -FCC2563
 OPTIONS            MACRO  VALMDL,MDL                                                      FCC2563        6     A     
 OPTIONS            QUAL   IPARAM                                                          FCC2563        7     A     
 OPTIONS   MDLNUM   MICRO  2,,-"HF.P"-                                                     FCC2563        8     A     
 OPTIONS            IFC    NE,-"MDLNUM"-S-                                                 FCC2563        9     A     
 OPTIONS            ELSE                                                                   FCC2563       10     A     
 OPTIONS   MDL      MICRO  1,,-73-                                                         FCC2563       11     A     
 OPTIONS            ENDIF                                                                  FCC2563       12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 333    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS            IFC    NE,-"MDLNUM"-74-                                                FCC2563       13     A     
 OPTIONS            IFC    NE,-"MDLNUM"-76-                                                FCC2563       14     A     
 OPTIONS            ELSE                                                                   FCC2563       15     A     
 OPTIONS   MDL      MICRO  1,,-"MDLNUM"-                                                   FCC2563       16     A     
 OPTIONS            ENDIF                                                                  FCC2563       17     A     
 OPTIONS            IFC    NE,-"MDLNUM"-175-                                               FCC2563       18     A     
 OPTIONS            IFC    NE,-"MDLNUM"-176-                                               FCC2563       19     A     
 OPTIONS            ELSE                                                                   FCC2563       20     A     
 OPTIONS   MDL      MICRO  2,,-"MDLNUM"-                                                   FCC2563       21     A     
 OPTIONS            ENDIF                                                                  FCC2563       22     A     
 OPTIONS            IFC    NE,-"MDLNUM"-740-                                               FCC2563       23     A     
 OPTIONS            IFC    NE,-"MDLNUM"-750-                                               FCC2563       24     A     
 OPTIONS            IFC    NE,-"MDLNUM"-760-                                               FCC2563       25     A     
 OPTIONS            ELSE                                                                   FCC2563       26     A     
 OPTIONS   MDL      MICRO  1,,-75-                                                         FCC2563       27     A     
 OPTIONS            ENDIF                                                                  FCC2563       28     A     
 OPTIONS            IFC    NE,-"MDLNUM"-865-                                               FCC2563       29     A     
 OPTIONS            IFC    NE,-"MDLNUM"-875-                                               FCC2563       30     A     
 OPTIONS            IFC    NE,-"MDLNUM"-990-                                               FCCA596       10     A     
 OPTIONS            IFC    NE,-"MDLNUM"-994-                                               FCC2567        6     A     
 OPTIONS            IFC    NE,-"MDLNUM"-995-                                               FCC2567        7     A     
 OPTIONS            ELSE                                                                   FCC2563       31     A     
 OPTIONS   MDL      MICRO  1,,-76-                                                         FCC2563       32     A     
 OPTIONS            ENDIF                                                                  FCC2563       33     A     
 OPTIONS            IF     -MIC,MDL,2                                                      FCC2563       34     A     
 OPTIONS            LIST   A                                                               FCC2563       35     A     
 OPTIONS            ERR    ILLEGAL VALUE OF HF.P MICRO = "MDLNUM"                          FCC2563       36     A     
 OPTIONS            QUAL   *                                                               FCC2563       37     A     
 OPTIONS            ENDM                                                                   FCC2563       38     A     
 OPTIONS   OPTIONS  SPACE  3,40                                                            OPTIONS       93     A     
 OPTIONS  ***       CALL OPERATING SYSTEM INSTALLATION PARAMETERS.                         OPTIONS       94     A     
 OPTIONS  *                                                                                OPTIONS       95     A     
 OPTIONS  *         CAUTION - THE TEXT CONTAINING THE INSTALLATION PARAMETERS              OPTIONS       96     A     
 OPTIONS  *                SHOULD CONTAIN PARAMETER VALUES WHICH ARE CONSISTANT            OPTIONS       97     A     
 OPTIONS  *                WITH THE CYBER MODEL THAT THIS COMPILER WILL BE                 OPTIONS       98     A     
 OPTIONS  *                INSTALLED AND EXECUTED ON.                                      OPTIONS       99     A     
 OPTIONS  *                                                                                OPTIONS      100     A     
 OPTIONS            QUAL   IPARAM                                                          OPTIONS      101     A     
 OPTIONS            IPARAMS                                                                OPTIONS      102     A     
 OPTIONS             DEFINHF                                                               F2950F4       51     A     
 OPTIONS             IF    -MIC,HF.E      IF EXIT SEQUENTIAL NOT DEFINED.                  F2950F4       52     A     
 OPTIONS   CT7X      EQU   1              NORMAL EXIT SEQUENTAL NOT DEFINED                F2950F4       53     A     
 OPTIONS             ELSE  1                                                               F2950F4       54     A     
 OPTIONS   CT7X      EQU   0              NORMAL EXIT SEQUENTIAL DEFINED                   F2950F4       55     A     
 OPTIONS            IF     -DEF,IP.PD,1                                                    FEAT155E       7          I
          -FCCA593
 OPTIONS   IP.PD    EQU    6           TEMPORARY UNTIL OPERATING SYSTEM CONFORMS           FEAT155E       8          I
          -FCCA593
 OPTIONS            IF     -DEF,IP.PS,1                                                    FEAT155E       9          I
          -FCCA593
 OPTIONS   IP.PS    EQU    60          TEMPORARY UNTIL OPERATING SYSTEM CONFORMS           FEAT155E      10          I
          -FCCA593
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 334    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS            QUAL   *                                                               OPTIONS      103     A     
 OPTIONS  *                                                                                OPTIONS      104     A     
 OPTIONS  *         THE FOLLOWING SYMBOLS ARE SET USING VALUES OBTAINED FROM THE           OPTIONS      105     A     
 OPTIONS  *         PRECEDING CALL TO IPARAMS.                                             OPTIONS      106     A     
 OPTIONS  *                                                                                OPTIONS      107     A     
 OPTIONS  *         CT.CPU IS THE COMPILE-TIME MACHINE.  IT HAS A VALUE EQUAL TO           OPTIONS      108     A     
 OPTIONS  *                THE FIRST TWO CHARACTERS OF THE CYBER "MODEL", I.E.             OPTIONS      109          I
          -F2950F4
 OPTIONS  *                72, 73, 74, OR 76.  IT IS REFERENCED WHENEVER THE               OPTIONS      110          I
          -F2950F4
 OPTIONS  *                THE LAST TWO CHARACTERS OF THE CYBER "HF.P" MICRO, I.E.         F2950F4       56     A     
 OPTIONS  *                74, 75, 76. IT IS REFERENCED WHENEVER THE                       F2950F4       57     A     
 OPTIONS  *                MACHINE THAT IS COMPILING THE FORTRAN PROGRAM MUST              OPTIONS      111     A     
 OPTIONS  *                BE KNOWN.                                                       OPTIONS      112          I
          -F2950F4
 OPTIONS  *                BE KNOWN. FOR MACHINES WITH SERIAL CPU S "HF.P"                 F2950F4       58     A     
 OPTIONS  *                RETURNS AN *S*. 73D IS SUBSTITUTED FOR THE *S* VALUE.           F2950F4       59     A     
 OPTIONS  *         .OS    IS THE COMPILE-TIME OPERATING SYSTEM.  IT IS SET TO 1           OPTIONS      113     A     
 OPTIONS  *                FOR SCOPE 2 OPERATING SYSTEMS AND SET TO 0 OTHERWISE.           OPTIONS      114          I
          -FEAT126A 
 OPTIONS  *                FOR NOS 1 OPERATING SYSTEMS, 2 FOR SCOPE 2 OPERATING            FEAT126A       6     A     
 OPTIONS  *                SYSTEMS AND 3 FOR SCOPE 3  OPERATING SYSTEMS.                   FEAT126A       7     A     
 OPTIONS  *                IT IS USED FOR CONDITIONAL ASSEMBLY OF CODE THAT IS             OPTIONS      115     A     
 OPTIONS  *                OPERATING SYSTEM DEPENDENT.  IT SHOULD NOT BE USED TO           OPTIONS      116     A     
 OPTIONS  *                DETERMINE MACHINE DIFFERENCES.                                  OPTIONS      117     A     
 OPTIONS                                                                                   OPTIONS      118     A     
 OPTIONS   IP.MFL   =      /IPARAM/IP.MFL    MAXIMUM JOB FIELD LENGTH                      OPTIONS      119     A     
 OPTIONS   IP.PD    =      /IPARAM/IP.PD     DEFAULT PRINT DENSITY                         FEAT155E      11          I
          -FCC1361X 
 OPTIONS                                                                                   FCC1361X       6          I
          -FCCA593
 OPTIONS   TPD      SET    0                                                               FCC1361X       7          I
          -FCCA593
 OPTIONS            ECHO   2,A=(3,4,6,8),B=(6,8,6,8)                                       FCC1361X       8          I
          -FCCA593
 OPTIONS            IFEQ   A,/IPARAM/IP.PD,1                                               FCC1361X       9          I
          -FCCA593
 OPTIONS   TPD      SET    B                                                               FCC1361X      10          I
          -FCCA593
 OPTIONS            ERRZR  TPD         IP.PD MUST BE 3, 4, 6, OR 8                         FCC1361X      11          I
          -FCCA593
 OPTIONS   IP.PD    =      TPD         DEFAULT PRINT DENSITY                               FCC1361X      12          I
          -FCCA593
 OPTIONS   IP.PS    =      /IPARAM/IP.PS     DEFAULT PAGE SIZE                             FEAT155E      12          I
          -FCCA593
 OPTIONS                                                                                   OPTIONS      120     A     
 OPTIONS   MDL      MICRO  1,2,/"MODEL"/                                                   OPTIONS      121          I
          -S3143FC
 OPTIONS   MDL      VALMDL MODEL,CT.7X                                                     S3143FC       28          I
          -F2950F4
 OPTIONS   MDL      VALMDL                                                                 F2950F4       60     A     
 OPTIONS   CT.CPU   EQU    "MDL"       COMPILE-TIME CPU                                    OPTIONS      122     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 335    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS                                                                                   OPTIONS      123     A     
 OPTIONS   .OT      SET    0                                                               OPTIONS      124          I
          -FEAT126A 
 OPTIONS   .OT      SET    1           SET FOR NOS                                         FEAT126A       8     A     
 OPTIONS   #OS      IFC    EQ,/"OS.NAME"/SCOPE /                                           OPTIONS      125     A     
 OPTIONS            IFC    LT,/"OS.VER"/3/,2                                               OPTIONS      126          I
          -FEAT126A 
 OPTIONS            IFC    GE,/"OS.VER"/2/,1                                               OPTIONS      127          I
          -FEAT126A 
 OPTIONS   .OT      SET    1                                                               OPTIONS      128          I
          -FEAT126A 
 OPTIONS   .VER     MICRO  1,1,/"OS.VER"/                                                  FEAT126A       9     A     
 OPTIONS   .OT      SET    ".VER"      SET FOR SCOPE "OS.VER"                              FEAT126A      10     A     
 OPTIONS   #OS      ENDIF                                                                  OPTIONS      129     A     
 OPTIONS   .OS      EQU    .OT         COMPILE-TIME OPERATING SYSTEM                       OPTIONS      130     A     
 OPTIONS   CT.7X    EQU    /IPARAM/CT7X  .NZ. IFNORMAL EXIT SEQUENTIAL NOT DEFINED         F2950F4       61     A     
 OPTIONS  *                                                                                OPTIONS      131     A     
 OPTIONS  ***                                                                              OPTIONS      132     A     
 OPTIONS   OPTIONS  SPACE  3,24                                                            OPTIONS      133     A     
 OPTIONS  ***       CENTRAL PROCESSOR CONFIGURATION DECLARATIONS.                          OPTIONS      134     A     
 OPTIONS                                                                                   OPTIONS      135     A     
 OPTIONS                                                                                   OPTIONS      136     A     
 OPTIONS  *         **************************************************************         OPTIONS      137     A     
 OPTIONS  *         *                                                            *         OPTIONS      138     A     
 OPTIONS  *         *      TARGET (I.E. OBJECT-TIME) CYBER 70/ SERIES MODEL.     *         OPTIONS      139          I
          -S3143FC
 OPTIONS  *         *      TARGET ( OBJECT TIME ) CYBER 70/170 SERIES MODEL.     *         S3143FC       29     A     
 OPTIONS  *         *                                                            *         OPTIONS      140     A     
 OPTIONS  *         *      ACCEPTABLE VALUES       OLDER MACHINE CROSS-REF       *         OPTIONS      141     A     
 OPTIONS  *         *            ----                       ----                 *         OPTIONS      142     A     
 OPTIONS  *         *                                                            *         OPTIONS      143     A     
 OPTIONS  *         *            71                         6400                 *         FCC1847X       6     A     
 OPTIONS  *         *            72                         6200                 *         OPTIONS      144     A     
 OPTIONS  *         *            73                         6400                 *         OPTIONS      145     A     
 OPTIONS  *         *            73-2                       6500                 *         OPTIONS      146     A     
 OPTIONS  *         *            74                         6600                 *         OPTIONS      147     A     
 OPTIONS  *         *            74-2                       6700                 *         OPTIONS      148     A     
 OPTIONS  *         *            76                         7600                 *         OPTIONS      149     A     
 OPTIONS  *         *            171                        6400                 *         FCC1847X       7     A     
 OPTIONS  *         *            172                        6400                           FCC1264        7     A     
 OPTIONS  *         *            173                        6400                           FCC1264        8     A     
 OPTIONS  *         *            174                        6400                           FCC1264        9     A     
 OPTIONS  *         *            175                        CYBER 175 CPU                  FCC1264       10     A     
 OPTIONS  *         *            176                        7600                           FCC1264       11     A     
 OPTIONS  *         *                                                            *         OPTIONS      150     A     
 OPTIONS  *         *      IN A STANDARD INSTALLATION PROCEDURE THIS BOX MAY BE  *         OPTIONS      151     A     
 OPTIONS  *         *      IGNORED.  TO BUILD A CROSS-MODEL COMPILER, SELECT A   *         OPTIONS      152     A     
 OPTIONS  *         *      VALUE FROM THE LIST ABOVE, REMOVE THE ASTERISK, AND   *         OPTIONS      153     A     
 OPTIONS  *         *      INSERT THE PROPER VALUE ON THE FOLLOWING  LINE.       *         OPTIONS      154     A     
 OPTIONS  *MODEL    MICRO  1,,$74$                                               *         OPTIONS      155          I
          -F2950F4
 OPTIONS  *         DEFMOD 74                                                              F2950F4       62     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 336    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS  *         *                                                            *         OPTIONS      156     A     
 OPTIONS  *         **************************************************************         OPTIONS      157     A     
 OPTIONS   OPTIONS  SPACE  3,11                                                            OPTIONS      158     A     
 OPTIONS  *         **************************************************************         OPTIONS      159     A     
 OPTIONS  *         *                                                            *         OPTIONS      160     A     
 OPTIONS  *         *      INTER-WORD TIME PARAMETER (MODEL 6600 ONLY).          *         OPTIONS      161     A     
 OPTIONS  *         *                                                            *         OPTIONS      162     A     
 OPTIONS  *         *      WHEN THE TARGET, I.E., OBJECT-TIME, CPU IS A 6600     *         OPTIONS      163     A     
 OPTIONS  *         *      WITHOUT THE RNI ( READ NEXT INSTRUCTION ) AT P+2      *         OPTIONS      164     A     
 OPTIONS  *         *      EQUATE THE FOLLOWING PARAMETER TO FOUR (4).  FOR ALL  *         OPTIONS      165     A     
 OPTIONS  *         *      OTHER MACHINES, INCLUDING THE CYBER 74, EQUATE THE    *         OPTIONS      166     A     
 OPTIONS  *         *      PARAMETER TO ZERO.                                    *         OPTIONS      167     A     
 OPTIONS   .IWT     EQU    0                                                               OPTIONS      168     A     
 OPTIONS  *         *                                                            *         OPTIONS      169     A     
 OPTIONS  *         **************************************************************         OPTIONS      170     A     
 OPTIONS   OPTIONS  SPACE  3,11                                                            OPTIONS      171          I
          -F2950F4
 OPTIONS  *         **************************************************************         OPTIONS      172          I
          -F2950F4
 OPTIONS  *         *                                                            *         OPTIONS      173          I
          -F2950F4
 OPTIONS  *         *      HARDWARE NORMALIZE FEATURE.                           *         OPTIONS      174          I
          -F2950F4
 OPTIONS  *         *                                                            *         OPTIONS      175          I
          -F2950F4
 OPTIONS  *         *      WHEN THE TARGET, I.E., OBJECT-TIME, CPU IS A 7600     *         OPTIONS      176          I
          -F2950F4
 OPTIONS  *         *      THAT LACKS FCO 33261, EQUATE THE FOLLOWING PARAMETER  *         OPTIONS      177          I
          -F2950F4
 OPTIONS  *         *      TO ZERO.  (FCO 33261 RESOLVES AN INCOMPATABILITY      *         OPTIONS      178          I
          -F2950F4
 OPTIONS  *         *      BETWEEN 6000 AND 7000 NORMALIZE HARDWARE.)            *         OPTIONS      179          I
          -F2950F4
 OPTIONS  * .NRFCO  EQU    1           7000 HARDWARE NORMALIZE FCO INSTALLED               OPTIONS      180          I
          -F2950F4
 OPTIONS  *         *                                                            *         OPTIONS      181          I
          -F2950F4
 OPTIONS  *         **************************************************************         OPTIONS      182          I
          -F2950F4
 OPTIONS   OPTIONS  SPACE  3,17                                                            OPTIONS      183     A     
 OPTIONS  *         **************************************************************         OPTIONS      184     A     
 OPTIONS  *         *                                                            *         OPTIONS      185     A     
 OPTIONS  *         *      SELECT INPUT/OUTPUT SYSTEM USED DURING COMPILATION.   *         OPTIONS      186     A     
 OPTIONS  *         *      VALUE CHOSEN MUST AGREE WITH OPERATING SYSTEM         *         OPTIONS      187     A     
 OPTIONS  *         *      CAPABILITIES AND COMPILER INSTALLATION PROCEDURES.    *         OPTIONS      188     A     
 OPTIONS  *         *      VALUES ARE --                                         *         OPTIONS      189     A     
 OPTIONS  *         *                                                            *         OPTIONS      190     A     
 OPTIONS  *         *                  0 = USE CIO. (DEFAULT FOR LOWER CYBER)    *         OPTIONS      191     A     
 OPTIONS  *         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       *         OPTIONS      192     A     
 OPTIONS  *         *                                                            *         OPTIONS      193     A     
 OPTIONS  *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    *         OPTIONS      194     A     
 OPTIONS  *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    *         OPTIONS      195     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 337    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS  *         *      THE FOLLOWING LINE.                                   *         OPTIONS      196     A     
 OPTIONS  *CP#RM    =      0                                                     *         OPTIONS      197     A     
 OPTIONS  *         *                                                            *         OPTIONS      198     A     
 OPTIONS  *         **************************************************************         OPTIONS      199     A     
 OPTIONS            SPACE  4,8                                                             OPTIONS      200     A     
 OPTIONS  *         **************************************************************         OPTIONS      201     A     
 OPTIONS  *         *                                                            *         OPTIONS      202     A     
 OPTIONS  *         *      SELECT USE OF *ECS* DURING COMPILATION FOR OPT=2 .    *         OPTIONS      203     A     
 OPTIONS  *         *      CHOSEN VALUE MUST AGREE WITH HARDWARE AVAILABILITY.   *         OPTIONS      204     A     
 OPTIONS  *         *      VALUES ARE -                                          *         OPTIONS      205     A     
 OPTIONS  *         *                                                            *         OPTIONS      206     A     
 OPTIONS  *         *                  1 = ECS AVAILABLE                         *         OPTIONS      207     A     
 OPTIONS  *         *                  0 = NO ECS AVAILABLE                      *         OPTIONS      208     A     
 OPTIONS  *         *                                                            *         OPTIONS      209     A     
 OPTIONS  *         *                  LOWER CYBER DEFAULT =                     *         OPTIONS      210     A     
 OPTIONS  *         *                        0  FOR KRONOS OPERATING SYSTEM      *         OPTIONS      211     A     
 OPTIONS  *         *                        /IPARAM/IP.MECS  FOR SCOPE          *         OPTIONS      212     A     
 OPTIONS  *         *                  CYBER 76 DEFAULT IS 1                     *         OPTIONS      213     A     
 OPTIONS  *         *                                                            *         OPTIONS      214     A     
 OPTIONS  *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    *         OPTIONS      215     A     
 OPTIONS  *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    *         OPTIONS      216     A     
 OPTIONS  *         *      THE FOLLOWING LINE.                                   *         OPTIONS      217     A     
 OPTIONS  *CT.ECS   EQU    0                                                     *         OPTIONS      218     A     
 OPTIONS  *         *                                                            *         OPTIONS      219     A     
 OPTIONS  *         **************************************************************         OPTIONS      220     A     
 OPTIONS   OPTIONS  SPACE  3,12                                                            FEAT121A       9     A     
 OPTIONS  *         **************************************************************         FEAT121A      10     A     
 OPTIONS  *         *                                                            *         FEAT121A      11     A     
 OPTIONS  *         *      .CDCLIB - SPECIFY THAT THE FORTRAN OBJECT LIBRARY IS  *         FEAT121A      12     A     
 OPTIONS  *         *      THE CURRENT VERSION OF *CDC* *FCL*.  IF .CDCLIB IS    *         FEAT121A      13     A     
 OPTIONS  *         *      NOT ZERO, THEN WHEN OPT=2 AND *UO* ARE SELECTED, THE  *         FEAT121A      14     A     
 OPTIONS  *         *      COMPILER MAY ASSIGN B-REGISTERS IN LOOPS THAT CONTAIN *         FEAT121A      15     A     
 OPTIONS  *         *      REFERENCES TO THE BASIC FORTRAN LIBRARY FUNCTIONS     *         FEAT121A      16     A     
 OPTIONS  *         *      SUCH AS SIN, SQRT, EXP, ETC.                                    FEAT121A      17     A     
 OPTIONS  *         *                                                            *         FEAT121A      18     A     
 OPTIONS   .CDCLIB  EQU    1           MATH LIBRARY IS CURRENT *CDC* LIBRARY               FEAT121A      19     A     
 OPTIONS  *         *                                                            *         FEAT121A      20     A     
 OPTIONS  *         **************************************************************         FEAT121A      21     A     
 OPTIONS            SPACE  4,8                                                             OPTIONS      221     A     
 OPTIONS  *         **************************************************************         OPTIONS      222     A     
 OPTIONS  *         *                                                            *         OPTIONS      223     A     
 OPTIONS  *         *      SELECT OVERLAY STRUCTURE.  VALUES ARE -               *         OPTIONS      224     A     
 OPTIONS  *         *                                                            *         OPTIONS      225     A     
 OPTIONS  *         *                  0 = FAX AND REFMAP ARE LOADED AS PART     *         OPTIONS      226     A     
 OPTIONS  *         *                      OF THE (2,2) OVERLAY, PASS2.          *         OPTIONS      227     A     
 OPTIONS  *         *                  1 = FAX AND REFMAP ARE LOADED AS A        *         OPTIONS      228     A     
 OPTIONS  *         *                        SEPARATE OVERLAY. (DEFAULT)         *         OPTIONS      229     A     
 OPTIONS  *         *                                                            *         OPTIONS      230     A     
 OPTIONS  *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    *         OPTIONS      231     A     
 OPTIONS  *         *      EQUATE THE FOLLOWING PARAMETER TO 0.                  *         OPTIONS      232     A     
 OPTIONS  *         *                                                            *         OPTIONS      233     A     
 OPTIONS   .OVL     =      1           FAX AND REFMAP ON SEPARATE OVERLAY                  OPTIONS      234     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 338    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS  *         *                                                            *         OPTIONS      235     A     
 OPTIONS  *         **************************************************************         OPTIONS      236     A     
 OPTIONS   OPTIONS  SPACE  4,10                                                            F66FCC        19     A     
 OPTIONS  *         **************************************************************         F66FCC        20     A     
 OPTIONS  *         *                                                            *         F66FCC        21     A     
 OPTIONS  *         *      SELECT USES OF INTERACTIVE DEBUG.                     *         F66FCC        22     A     
 OPTIONS  *         *      NOT SUPPORTED ON SCOPE 2.                                       F66FCC        23     A     
 OPTIONS  *         *      PERMISSIBLE VALUES ARE --                             *         F66FCC        24     A     
 OPTIONS  *         *                  1 = ASSEMBLE CODE FOR INTERACTIVE DEBUG   *         F66FCC        25     A     
 OPTIONS  *         *                  (DEFAULT FOR LOWER CYBER)                 *         F66FCC        26     A     
 OPTIONS  *         *                  0 = DO NOT ASSEMBLE INTER. DEBUG CODE     *         F66FCC        27     A     
 OPTIONS  *         *                  (DEFAULT FOR CYBER 76)                    *         F66FCC        28     A     
 OPTIONS  *         *                                                            *         F66FCC        29     A     
 OPTIONS  *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    *         F66FCC        30     A     
 OPTIONS  *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE       *         F66FCC        31     A     
 OPTIONS  *         *      ON THE FOLLOWING LINE.                                *         F66FCC        32     A     
 OPTIONS  *.FID     =      1                                                     *         F66FCC        33     A     
 OPTIONS  *         *                                                            *         F66FCC        34     A     
 OPTIONS  *         **************************************************************         F66FCC        35     A     
 OPTIONS   OPTIONS  SPACE  3,19                                                            OPTIONS      237     A     
 OPTIONS  *         **************************************************************         OPTIONS      238     A     
 OPTIONS  *         *                                                            *         OPTIONS      239     A     
 OPTIONS  *         *      SELECT INPUT/OUTPUT SYSTEM USED DURING EXECUTION.     *         OPTIONS      240     A     
 OPTIONS  *         *      VALUE CHOSEN MUST AGREE WITH THE CAPABILITIES OF THE  *         OPTIONS      241     A     
 OPTIONS  *         *      OPERATING SYSTEM THAT THE OBJECT PROGRAM WILL BE      *         OPTIONS      242     A     
 OPTIONS  *         *      LOADED ON.   IT MAY NOT BE "1" ON A CYBER 74-2 OR     *         OPTIONS      243          I
          -S3143FC
 OPTIONS  *         *      SMALLER MACHINE.                                      *         OPTIONS      244          I
          -S3143FC
 OPTIONS  *         *      LOADED ON. IT MAY ONLY BE 7 ON A CYBER 76 THAT IS RUN *         S3143FC       30     A     
 OPTIONS  *         *      WITH A SCOPE 2.X OPERATING SYSTEM.                    *         S3143FC       31     A     
 OPTIONS  *         *      VALUES ARE --                                         *         OPTIONS      245     A     
 OPTIONS  *         *                                                            *         OPTIONS      246     A     
 OPTIONS  *         *                  6 = USE 6RM. (DEFAULT FOR LOWER CYBER)    *         OPTIONS      247     A     
 OPTIONS  *         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       *         OPTIONS      248     A     
 OPTIONS  *         *                                                            *         OPTIONS      249     A     
 OPTIONS  *         *      THE DEFAULT FOR A CROSS-MODEL COMPILER IS "6".        *         OPTIONS      250     A     
 OPTIONS  *         *      TO SELECT A  VALUE DIFFERENT THAN THE ABOVE DEFAULT   *         OPTIONS      251     A     
 OPTIONS  *         *      VALUES, REMOVE THE ASTERISK AND INSERT THE DESIRED    *         OPTIONS      252     A     
 OPTIONS  *         *      VALUE ON THE FOLLOWING LINE.                          *         OPTIONS      253     A     
 OPTIONS  *OT#RM    =      6                                                               OPTIONS      254     A     
 OPTIONS  *         *                                                            *         OPTIONS      255     A     
 OPTIONS  *         **************************************************************         OPTIONS      256     A     
 OPTIONS   OPTIONS  SPACE  3,8                                                             OPTIONS      257     A     
 OPTIONS  *         **************************************************************         OPTIONS      258          I
          -FCCA589
 OPTIONS  *         *                                                            *         OPTIONS      259          I
          -FCCA589
 OPTIONS  *         *      FILE CONTAINING COMPASS RANDOM PL WITH /COMPCOM/.     *         OPTIONS      260          I
          -FCCA589
 OPTIONS  *         *                                                            *         OPTIONS      261          I
          -FCCA589
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 339    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS   PLCMPS   MICRO  1,, COMPCOM                                                     OPTIONS      262          I
          -FCCA589
 OPTIONS  *         *                                                            *         OPTIONS      263          I
          -FCCA589
 OPTIONS  *         **************************************************************         OPTIONS      264          I
          -FCCA589
 OPTIONS            SPACE  4,9                                                             FEAT126AB      5          I
          -FCCA589
 OPTIONS  *         **************************************************************         FEAT126AB      6     A     
 OPTIONS  *         *                                                            *         FEAT126AB      7     A     
 OPTIONS  *         *      SELECT WIDTH OF PAGE IN CHARACTERS WHEN COMPILER      *         FEAT126AB      8     A     
 OPTIONS  *         *      LISTINGS ARE PRINTED AS A TERMINAL FILE.              *         FEAT126AB      9     A     
 OPTIONS  *         *                                                            *         FEAT126AB     10     A     
 OPTIONS   PW.TTY   =      72                                                              FEAT126AB     11     A     
 OPTIONS  *         *                                                            *         FEAT126AB     12     A     
 OPTIONS  *         **************************************************************         FEAT126AB     13     A     
 OPTIONS   OPTIONS  SPACE  3,15                                                            OPTIONS      265     A     
 OPTIONS  *         **************************************************************         OPTIONS      266     A     
 OPTIONS  *         *                                                            *         OPTIONS      267     A     
 OPTIONS  *         *      CALL FORMAT FOR LOADING COMPILER OVERLAYS.  VALUES -- *         OPTIONS      268     A     
 OPTIONS  *         *           2 = ISSUE TWO-WORD LOADER CALLS.                 *         OPTIONS      269     A     
 OPTIONS  *         *                  (UPPER CYBER, I.E. CYBER 76, DEFAULT)     *         OPTIONS      270     A     
 OPTIONS  *         *           3 = ISSUE THREE-WORD LOADER CALLS.               *         OPTIONS      271     A     
 OPTIONS  *         *                  (LOWER CYBER DEFAULT)                     *         OPTIONS      272     A     
 OPTIONS  *         *                                                            *         OPTIONS      273     A     
 OPTIONS  *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    *         OPTIONS      274     A     
 OPTIONS  *         *      REMOVE THE ASTERISK AND INSERT THE DESIRED VALUE ON   *         OPTIONS      275     A     
 OPTIONS  *         *      THE FOLLOWING LINE.                                   *         OPTIONS      276     A     
 OPTIONS  *LDRCALL  =      3                                                     *         OPTIONS      277     A     
 OPTIONS  *         *                                                            *         OPTIONS      278     A     
 OPTIONS  *         **************************************************************         OPTIONS      279     A     
 OPTIONS   OPTIONS  SPACE  4,12                                                            CP139FC       11     A     
 OPTIONS  *         **************************************************************         CP139FC       12     A     
 OPTIONS  *         *                                                            *         CP139FC       13     A     
 OPTIONS  *         *      SELECT TYPE OF LOADER TABLE FOR COMPILER OVERLAYS.    *         CP139FC       14     A     
 OPTIONS  *         *      TABLE TYPE MUST AGREE WITH THAT OF THE OPERATING      *         CP139FC       15     A     
 OPTIONS  *         *      SYSTEM OVERLAY LOADER, AND OF THE COMPASS ASSEMBLER.  *         CP139FC       16     A     
 OPTIONS  *         *      PERMISSIBLE VALUES ARE --                             *         CP139FC       17     A     
 OPTIONS  *         *            50 =  ASCM (5000) TABLE.                        *         CP139FC       18     A     
 OPTIONS  *         *            54 = EACPM (5400) TABLE.   (DEFAULT)            *         CP139FC       19     A     
 OPTIONS  *         *                                                            *         CP139FC       20     A     
 OPTIONS  *LDRTABL  SET    54                                                    *         CP139FC       21     A     
 OPTIONS  *         *                                                            *         CP139FC       22     A     
 OPTIONS  *         **************************************************************         CP139FC       23     A     
 OPTIONS   OPTIONS  SPACE  3,8                                                             OPTIONS      280     A     
 OPTIONS  *         **************************************************************         OPTIONS      281     A     
 OPTIONS  *         *                                                            *         OPTIONS      282     A     
 OPTIONS  *         *      CHARACTER APPENDED TO FILE NAMES FOR UNIQUENESS.      *         OPTIONS      283     A     
 OPTIONS  *         *                                                            *         OPTIONS      284     A     
 OPTIONS   C        MICRO  1,,/#/                                                          OPTIONS      285     A     
 OPTIONS  *         *                                                            *         OPTIONS      286     A     
 OPTIONS  *         **************************************************************         OPTIONS      287     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 340    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS            SPACE  4,8                                                             FEAT121L       4     A     
 OPTIONS  *         **************************************************************         FEAT121L       5     A     
 OPTIONS  *                                                                      *         FEAT126B       3     A     
 OPTIONS  *         *      SELECT USE OF C/-LIST OPTIONS TO CONDITIONALLY TURN   *         FEAT121L       6     A     
 OPTIONS  *         *      ON AND OFF SOURCE LISTING AT COMPILE TIME. TO DESELECT*         FEAT121L       7     A     
 OPTIONS  *         *      THIS OPTION, DELETE THE SYMBOL DEFINITION.            *         FEAT121L       8          I
          -FEAT126B 
 OPTIONS  *         THIS OPTION, SET THE SYMBOL ON THE FOLLOWING LINE EQUAL TO 0.          FEAT126B       4     A     
 OPTIONS  *         *                                                            *         FEAT121L       9     A     
 OPTIONS   #NL      =      1                                                               FEAT121L      10     A     
 OPTIONS  *         *                                                            *         FEAT121L      11     A     
 OPTIONS  *         **************************************************************         FEAT121L      12     A     
 OPTIONS   OPTIONS  SPACE  3,16                                                            OPTIONS      288     A     
 OPTIONS  *         **************************************************************         OPTIONS      289     A     
 OPTIONS  *         *                                                            *         OPTIONS      290     A     
 OPTIONS  *         *      DEFINE OBJECT-TIME FILE TABLE SIZES.                  *         OPTIONS      291     A     
 OPTIONS  *         *                                                            *         OPTIONS      292     A     
 OPTIONS  *         *                  6RM VALUES                                *         OPTIONS      293          I
          -F162FTNA 
 OPTIONS  *         *                  CRM VALUES.                              *          F162FTNA      39     A     
 OPTIONS   L.FIT6   =      19D         FIT LENGTH                                          OPTIONS      294          I
          -FCC1559X 
 OPTIONS   L.FIT6   =      19D+9D      FIT LENGTH (+9 FOR CRM2 CHANGEOVER)                 FCC1559X       9          I
          -F162FTNA 
 OPTIONS   L.FCLX   =      6           LENGTH OF FIT EXTENSION FOR FCL WSA                 F162FTNA      40     A     
 OPTIONS   L.FIT6   =      43B+L.FCLX  FIT LENGTH, +6 FOR FCL                              F162FTNA      41     A     
 OPTIONS   L.FET6   =      13D         FET LENGTH                                          OPTIONS      295          I
          -F162FTNA 
 OPTIONS   L.IOBUF6 =      2001B       DEFAULT CIO BUFFER LENGTH                           OPTIONS      296          I
          -FCC0902
 OPTIONS   L.IOBUF6 =      2003B       DEFAULT CIO BUFFER LENGTH                           FCC0902        6     A     
 OPTIONS   L.TIN    =      101B        DEFAULT BUFFER FOR *INPUT* ON TERMINAL JOB          OPTIONS      297     A     
 OPTIONS   L.TOUT   =      401B        DEFAULT BUFFER FOR *OUTPUT* OF TERMINAL JOB         OPTIONS      298     A     
 OPTIONS  *         *                                                            *         OPTIONS      299     A     
 OPTIONS  *         *                  7RM VALUES                                *         OPTIONS      300     A     
 OPTIONS   L.FIT7   =      16D         FIT LENGTH                                          OPTIONS      301     A     
 OPTIONS   L.FET7   =      0           FET LENGTH                                          OPTIONS      302          I
          -F162FTNA 
 OPTIONS   L.IOBUF7 =      0           DEFAULT CIO BUFFER LENGTH                           OPTIONS      303     A     
 OPTIONS  *         *                                                            *         OPTIONS      304     A     
 OPTIONS  *         **************************************************************         OPTIONS      305     A     
 OPTIONS   OPTIONS  SPACE  4,8                                                             OPTIONS      306     A     
 OPTIONS  *         **************************************************************         OPTIONS      307     A     
 OPTIONS  *         *                                                            *         OPTIONS      308     A     
 OPTIONS  *         *      F I X E D   L E N G T H   T A B L E S.                *         OPTIONS      309     A     
 OPTIONS  *         *                                                            *         OPTIONS      310     A     
 OPTIONS  *         **************************************************************         OPTIONS      311     A     
 OPTIONS  *         *                                                            *         OPTIONS      312     A     
 OPTIONS  *         *      LENGTH OF INTERMEDIATE STORAGE AREA FOR ALL CON-      *         OPTIONS      313     A     
 OPTIONS  *         *      STANTS IN ANY ONE SOURCE STATEMENT.  EACH CONSTANT    *         OPTIONS      314     A     
 OPTIONS  *         *      BEGINS ON A NEW WORD BOUNDARY, AND IS PACKED AS TEN   *         OPTIONS      315     A     
 OPTIONS  *         *      DISPLAY-CODED CHARACTERS PER WORD.                    *         OPTIONS      316     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 341    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS  *         *                                                            *         OPTIONS      317     A     
 OPTIONS   CONSTORS EQU    300D                                                            OPTIONS      318     A     
 OPTIONS  *         *                                                            *         OPTIONS      319     A     
 OPTIONS  *         **************************************************************         OPTIONS      320     A     
 OPTIONS  *         *                                                            *         OPTIONS      321     A     
 OPTIONS  *         *      LENGTH OF SAVED OPERATOR STACK.                       *         OPTIONS      322     A     
 OPTIONS  *         *                                                            *         OPTIONS      323     A     
 OPTIONS   MXOSE    EQU    160D                                                            OPTIONS      324     A     
 OPTIONS  *         *                                                            *         OPTIONS      325     A     
 OPTIONS  *         **************************************************************         OPTIONS      326     A     
 OPTIONS  *         *                                                            *         OPTIONS      327     A     
 OPTIONS  *         *      LENGTH OF SAVED FUNCTION RESULT TABLE.                *         OPTIONS      328     A     
 OPTIONS  *         *                                                            *         OPTIONS      329     A     
 OPTIONS   MXFRSTB  EQU    90D                                                             OPTIONS      330     A     
 OPTIONS  *         *                                                            *         OPTIONS      331     A     
 OPTIONS  *         **************************************************************         OPTIONS      332     A     
 OPTIONS  *         *                                                            *         OPTIONS      333     A     
 OPTIONS  *         *      LENGTH OF *ARLIST* BUFFER.                            *         OPTIONS      334     A     
 OPTIONS  *         *                                                            *         OPTIONS      335     A     
 OPTIONS   ARLSZ    EQU    3200B                                                           OPTIONS      336     A     
 OPTIONS  *         *                                                            *         OPTIONS      337     A     
 OPTIONS  *         **************************************************************         OPTIONS      338     A     
 OPTIONS  *         *                                                            *         OPTIONS      339     A     
 OPTIONS  *         *      MAXIMUM LENGTH OF GLOBAL DEBUG CONSTANT TABLE.        *         OPTIONS      340     A     
 OPTIONS  *         *                                                            *         OPTIONS      341     A     
 OPTIONS   S.GCON   =      200D                                                            OPTIONS      342     A     
 OPTIONS  *         *                                                            *         OPTIONS      343     A     
 OPTIONS  *         **************************************************************         OPTIONS      344     A     
 OPTIONS   OPTIONS  SPACE  3,13                                                            OPTIONS      345     A     
 OPTIONS  *         **************************************************************         OPTIONS      346     A     
 OPTIONS  *         *                                                            *         OPTIONS      347     A     
 OPTIONS  *         *      SELECT DIVISION BY RECIPROCAL MULTIPLICATION.         *         OPTIONS      348     A     
 OPTIONS  *         *                                                            *         OPTIONS      349     A     
 OPTIONS  *         *      WHEN THE FOLLOWING PARAMETER IS ZERO, <ARITH> WILL    *         OPTIONS      350     A     
 OPTIONS  *         *      ATTEMPT TO REPLACE X/C BY X*(1/C), WHERE [X] IS AN    *         OPTIONS      351     A     
 OPTIONS  *         *      EXPRESSION AND [C] IS A CONSTANT (REDUCTION IN        *         OPTIONS      352     A     
 OPTIONS  *         *      STRENGTH).  SET NON-ZERO TO DEFEAT THE FEATURE.       *         OPTIONS      353     A     
 OPTIONS  *         *                                                            *         OPTIONS      354     A     
 OPTIONS   NOINVERT EQU    0                                                               OPTIONS      355     A     
 OPTIONS  *         *                                                            *         OPTIONS      356     A     
 OPTIONS  *         **************************************************************         OPTIONS      357     A     
 OPTIONS   OPTIONS  SPACE  4,8                                                             OPTIONS      358          I
          -FEAT155E 
 OPTIONS  *         **************************************************************         OPTIONS      359          I
          -FEAT155E 
 OPTIONS  *         *                                                            *         OPTIONS      360          I
          -FEAT155E 
 OPTIONS  *         *      MAXIMUM NUMBER OF LINES PER PAGE ON SOURCE LISTING.   *         OPTIONS      361          I
          -FEAT155E 
 OPTIONS  *         *                                                            *         OPTIONS      362          I
          -FEAT155E 
 OPTIONS   L.PAGE   =      60D                                                             OPTIONS      363          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 342    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
          -FEAT155E -FEAT1070C
 OPTIONS            SPACE  3                                                               FEAT1070C     34     A     
 OPTIONS  ***       POST MORTEM DUMP INSTALLATION PARAMETERS                               FEAT1070C     35     A     
 OPTIONS            SPACE  1                                                               FEAT1070C     36     A     
 OPTIONS  **        MAN.FL - POST PROCESSOR FIELD LENGTH                                   FEAT1070C     37     A     
 OPTIONS  *                USED BY FORSYS=,PMDMP=                                          FEAT1070C     38     A     
 OPTIONS  MAN.FL    EQU    32000B      WAS 26000B, INCREASE FOR STATIC COMPILE    000130   FEAT1070C     39     A     
 OPTIONS                                           OF POST PROCESSOR.             000140   FEAT1070C     40     A     
 OPTIONS            SPACE  1                                                               FEAT1070C     41     A     
 OPTIONS  **        MAN.LINP - NUMBER OF LINES / PAGE                                      FEAT1070C     42     A     
 OPTIONS  *                USED BY FTN,PMDMP=                                              FEAT1070C     43     A     
 OPTIONS  MAN.LINP  EQU    84D                                                             FEAT1070C     44     A     
 OPTIONS            SPACE  2                                                               FEAT1070C     45     A     
 OPTIONS  **        MAN.XJP - POST MORTEM DUMP COMMUNICATION WORD                          FEAT1070C     46     A     
 OPTIONS  *                USED BY FORSYS=,PMDMP=                                          FEAT1070C     47     A     
 OPTIONS  MAN.XJP   EQU    51B                                                             FEAT1070C     48     A     
 OPTIONS            SPACE  2                                                               FEAT1070C     49     A     
 OPTIONS  **        IDENTIFIERS FOR COMPILER TABLES ON ZZZZZSY                             FEAT1070C     50     A     
 OPTIONS  *                USED BY FTN,PMDMP= (DMPVAR)                                     FEAT1070C     51     A     
 OPTIONS            SPACE  1                                                               FEAT1070C     52     A     
 OPTIONS  ZZ.SYM    EQU    1           SYMBOL TABLE                                        FEAT1070C     53     A     
 OPTIONS  ZZ.COM    EQU    2           COMMON BLOCK TABLE                                  FEAT1070C     54     A     
 OPTIONS  ZZ.DIM    EQU    3           DIMENSION TABLE                                     FEAT1070C     55     A     
 OPTIONS            SPACE  3                                                               FEAT1070C     56     A     
 OPTIONS  L.PAGE    EQU    MAN.LINP                                                        FEAT1070C     57     A     
 OPTIONS  *         *                                                            *         OPTIONS      364          I
          -FEAT155E 
 OPTIONS  *         **************************************************************         OPTIONS      365          I
          -FEAT155E 
 OPTIONS   OPTIONS  SPACE  3,8                                                             OPTIONS      366     A     
 OPTIONS  *         **************************************************************         OPTIONS      367     A     
 OPTIONS  *         *                                                            *         OPTIONS      368     A     
 OPTIONS  *         *      ERROR LISTING LINE LIMIT.                             *         OPTIONS      369     A     
 OPTIONS  *         *                                                            *         OPTIONS      370     A     
 OPTIONS   ERRMAX   EQU    100D                                                            OPTIONS      371     A     
 OPTIONS  *         *                                                            *         OPTIONS      372     A     
 OPTIONS  *         **************************************************************         OPTIONS      373     A     
 OPTIONS   OPTIONS  SPACE  3,37                                                            OPTIONS      374     A     
 OPTIONS  ***                                                                              OPTIONS      375     A     
 OPTIONS  *         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT COMPILE-TIME.  IF             OPTIONS      376     A     
 OPTIONS  *         THEY HAVE NOT BEEN DEFINED ABOVE BY THE INSTALLER, THEY ARE            OPTIONS      377     A     
 OPTIONS  *         GIVEN DEFAULT VALUES WHICH ARE CONSISTENT WITH THE VALUE OF            OPTIONS      378     A     
 OPTIONS  *         THE *MODEL* MICRO OBTAINED FROM A CALL TO *IPARAMS* AT THE             OPTIONS      379          I
          -F2950F4
 OPTIONS  *         BEGINNING OF *OPTIONS*.                                                OPTIONS      380          I
          -F2950F4
 OPTIONS  *         THE *HF.P* MICRO OBTAINED FROM A CALL TO *IPARAMS* AND                 F2950F4       63     A     
 OPTIONS  *         *DEFINHF* AT THE BEGINNING OF *OPTIONS*.                               F2950F4       64     A     
 OPTIONS  *                                                                                OPTIONS      381     A     
 OPTIONS  *         CP#RM  IS THE COMPILE-TIME I/O FLAG.  IT IS DESCRIBED IN THE           OPTIONS      382     A     
 OPTIONS  *                *OPTIONS* COMDECK.                                              OPTIONS      383     A     
 OPTIONS  *                                                                                CP139FC       24     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 343    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS  *         CT.ECS INDICATES WHETHER OR NOT ECS MIGHT BE AVAILABLE FOR             CP139FC       25     A     
 OPTIONS  *                OPT=2 USE DURING COMPILATIONS.                                  CP139FC       26     A     
 OPTIONS  *                                                                                CP139FC       27     A     
 OPTIONS  *         LDRCALL DEFINES THE FORMAT OF LOADER CALLS.  IT IS DESCRIBED           OPTIONS      384     A     
 OPTIONS  *                IN THE *OPTIONS* COMDECK.                                       OPTIONS      385     A     
 OPTIONS  *                                                                                CP139FC       28     A     
 OPTIONS  *         LDRTABL  INDICATES THE TYPE OF LOADER TABLE THAT PREFIXES              CP139FC       29     A     
 OPTIONS  *                EACH COMPILER ABSOLUTE OVERLAY.                                 CP139FC       30     A     
 OPTIONS                                                                                   CP139FC       31     A     
 OPTIONS                                                                                   OPTIONS      386     A     
 OPTIONS   #MD      IFEQ   CT.CPU,76   COMPILE-TIME CPU                                    OPTIONS      387     A     
 OPTIONS   #MD      IFEQ   .OS,2                                                           F7540FT       18     A     
 OPTIONS                                                                                   OPTIONS      388     A     
 OPTIONS  *         CYBER 76 DEFAULT VALUES.                                               OPTIONS      389     A     
 OPTIONS                                                                                   OPTIONS      390     A     
 OPTIONS   #RM      IF     -DEF,CP#RM                                                      OPTIONS      391     A     
 OPTIONS   CP#RM    EQU    7           USE 7RM AT COMPILE-TIME                             OPTIONS      392     A     
 OPTIONS   #RM      ENDIF                                                                  OPTIONS      393     A     
 OPTIONS                                                                                   OPTIONS      394     A     
 OPTIONS   #LD      IF     -DEF,LDRCALL                                                    OPTIONS      395     A     
 OPTIONS   LDRCALL  EQU    2           SELECT TWO-WORD LOADER CALLS                        OPTIONS      396     A     
 OPTIONS   #LD      ENDIF                                                                  OPTIONS      397     A     
 OPTIONS                                                                                   OPTIONS      398     A     
 OPTIONS   #ECS     IF     -DEF,CT.ECS                                                     OPTIONS      399     A     
 OPTIONS   CT.ECS   EQU    1           USE LCM AT COMPILE TIME                             OPTIONS      400     A     
 OPTIONS   #ECS     ENDIF                                                                  OPTIONS      401     A     
 OPTIONS                                                                                   OPTIONS      402     A     
 OPTIONS   #FID     IF     -DEF,.FID                                                       F66FCC        36     A     
 OPTIONS   .FID     EQU    0           DO NOT ASSEMBLE INTERACTIVE DEBUG CODE              F66FCC        37     A     
 OPTIONS   #FID     ENDIF                                                                  F66FCC        38     A     
 OPTIONS                                                                                   F66FCC        39     A     
 OPTIONS   #MD      ELSE                                                                   OPTIONS      403     A     
 OPTIONS                                                                                   OPTIONS      404     A     
 OPTIONS  *         LOWER CYBER DEFAULT VALUES.                                            OPTIONS      405          I
          -S3143FC
 OPTIONS  *         LOWER CYBER AND CYBER 170 SERIES DEFAULT VALUES.                       S3143FC       32     A     
 OPTIONS                                                                                   OPTIONS      406     A     
 OPTIONS   #RM      IF     -DEF,CP#RM                                                      OPTIONS      407     A     
 OPTIONS   CP#RM    EQU    0           USE CIO AT COMPILE-TIME                             OPTIONS      408     A     
 OPTIONS   #RM      ENDIF                                                                  OPTIONS      409     A     
 OPTIONS                                                                                   OPTIONS      410     A     
 OPTIONS   #LD      IF     -DEF,LDRCALL                                                    OPTIONS      411     A     
 OPTIONS   LDRCALL  EQU    3           SELECT THREE-WORD LOADER CALLS                      OPTIONS      412     A     
 OPTIONS   #LD      ENDIF                                                                  OPTIONS      413     A     
 OPTIONS                                                                                   OPTIONS      414     A     
 OPTIONS   #ECS     IF     -DEF,CT.ECS,4                                                   OPTIONS      415     A     
 OPTIONS   #ECS     IF     DEF,/IPARAM/IP.MECS,2                                           OPTIONS      416     A     
 OPTIONS   CT.ECS   EQU    /IPARAM/IP.MECS                                                 OPTIONS      417     A     
 OPTIONS   #ECS     SKIP   1                                                               OPTIONS      418     A     
 OPTIONS   CT.ECS   EQU    0                                                               OPTIONS      419     A     
 OPTIONS   #ECS     ENDIF                                                                  OPTIONS      420     A     
 OPTIONS                                                                                   OPTIONS      421     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 344    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS   #FID     IF     -DEF,.FID                                                       F66FCC        40     A     
 OPTIONS   .FID     EQU    1           ASSEMBLE INTERACTIVE DEBUG CODE                     F66FCC        41     A     
 OPTIONS   #FID     ENDIF                                                                  F66FCC        42     A     
 OPTIONS                                                                                   F66FCC        43     A     
 OPTIONS   #MD      ENDIF                                                                  OPTIONS      422     A     
 OPTIONS                                                                                   OPTIONS      423          I
          -CP139FC
 OPTIONS   OPTIONS  SPACE  4,14                                                            CP139FC       32     A     
 OPTIONS  *         DEFINE COMPILER OVERLAY LOADER TABLE LENGTHS.                          CP139FC       33     A     
 OPTIONS                                                                                   CP139FC       34     A     
 OPTIONS            IF     -DEF,LDRTABL,1                                                  CP139FC       35     A     
 OPTIONS   LDRTABL  SET    54                                                              CP139FC       36     A     
 OPTIONS                                                                                   CP139FC       37     A     
 OPTIONS            IFEQ   LDRTABL,50,3                                                    CP139FC       38     A     
 OPTIONS   LDR.00   =      1                                                               CP139FC       39     A     
 OPTIONS   LDR.NN   =      1                                                               CP139FC       40     A     
 OPTIONS            SKIP   5                                                               CP139FC       41     A     
 OPTIONS            IFEQ   LDRTABL,54,3                                                    CP139FC       42     A     
 OPTIONS   LDR.00   =      11B                                                             CP139FC       43     A     
 OPTIONS   LDR.NN   =      5                                                               CP139FC       44     A     
 OPTIONS            SKIP   1                                                               CP139FC       45     A     
 OPTIONS            ERR    *LDRTABL* VALUE NOT 50 OR 54  "SEQUENCE"                        CP139FC       46     A     
 OPTIONS   OPTIONS  SPACE  4,3                                                             CP139FC       47     A     
 OPTIONS  *         SELECT SYSTEM- OR TEST-MODE COMPILER CONFIGURATION.                    OPTIONS      424          I
          -FCCA451
 OPTIONS                                                                                   OPTIONS      425          I
          -FCCA451
 OPTIONS  *IF -DEF,TESTFTN,1                                                               OPTIONS      426          I
          -FCCA451
 OPTIONS   TEST     =      0           ASSEMBLE COMPILER IN NORMAL (SYSTEM) MODE           OPTIONS      427          I
          -FCCA451
 OPTIONS  *IF DEF,TESTFTN,1                                                                OPTIONS      428          I
          -FCCA451
 OPTIONS   TEST     =      1           ASSEMBLE COMPILER IN TEST MODE                      OPTIONS      429          I
          -FCCA451
 OPTIONS                                                                                   OPTIONS      430          I
          -FCCA451
 OPTIONS  *                                                                                OPTIONS      431          I
          -FCCA451
 OPTIONS  ***                                                                              OPTIONS      432     A     
 OPTIONS   OPTIONS  SPACE  3,56                                                            OPTIONS      433     A     
 OPTIONS  ***                                                                              OPTIONS      434     A     
 OPTIONS  *         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT OBJECT-TIME.  IF              OPTIONS      435     A     
 OPTIONS  *         THEY HAVE NOT BEEN DEFINED BY THE  INSTALLER THEY ARE GIVEN            OPTIONS      436     A     
 OPTIONS  *         DEFAULT VALUES CONSISTENT WITH THE OBJECT-TIME *MODEL* IF              OPTIONS      437     A     
 OPTIONS  *         DEFINED ABOVE BY THE INSTALLER, OR IF THE OBJECT-TIME                  OPTIONS      438     A     
 OPTIONS  *         MODEL IS NOT DEFINED THEY ARE GIVEN VALUES CONSISTANT WITH             OPTIONS      439     A     
 OPTIONS  *         THE COMPILE-TIME MACHINE OBTAINED FROM *IPARAMS*.                      OPTIONS      440     A     
 OPTIONS  *                                                                                OPTIONS      441     A     
 OPTIONS  *         .CPU   IS THE OBJECT-TIME CPU.  IT HAS A VALUE EQUAL TO THE            OPTIONS      442     A     
 OPTIONS  *                FIRST TWO CHARACTERS OF THE *MODEL* MICRO, I.E. 72,             OPTIONS      443          I
          -F2950F4
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 345    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS  *                73, 74, OR 76.  IT IS TO BE USED FOR OBJECT-TIME                OPTIONS      444          I
          -F2950F4
 OPTIONS  *                HARDWARE DIFFERENCES ONLY.                                      OPTIONS      445          I
          -F2950F4
 OPTIONS  *                LAST TWO CHARACTERS OF THE *HF.P* MICRO, I.E. 73, 74,           F2950F4       65     A     
 OPTIONS  *                75, 76. IT IS TO BE USED FOR OBJECT-TIME HARDWARE               F2950F4       66     A     
 OPTIONS  *                DIFFERENCES ONLY. IF THE *HF.P* MICRO RETURNS AN *S*            F2950F4       67     A     
 OPTIONS  *                THEN THE MACHINE HAS A SERIAL CPU AND *.CPU* IS                 F2950F4       68     A     
 OPTIONS  *                SET EQUAL TO 73D.                                               F2950F4       69     A     
 OPTIONS  *         .DAL   IS A FLAG USED TO DETERMINE IF DIRECT ACCESS LCM IS             OPTIONS      446     A     
 OPTIONS  *                AVAILABLE.  IT IS SET TO 1 TO ALLOW DIRECT ACCESS OF            OPTIONS      447     A     
 OPTIONS  *                LCM FOR FORTRAN *LEVEL 2* VARIABLES.  IF SET TO 0,              OPTIONS      448     A     
 OPTIONS  *                FORTRAN *LEVEL 2* VARIABLES WILL BE CENTRAL MEMORY              OPTIONS      449     A     
 OPTIONS  *                RESIDENT,  AND ACCESSED WITH SCM/CM OBJECT CODE.                OPTIONS      450     A     
 OPTIONS  *         OT#RM  IS THE OBJECT-TIME I/O FLAG.  IT IS DESCRIBED IN THE            OPTIONS      451     A     
 OPTIONS  *                *OPTIONS* COMDECK.                                              OPTIONS      452     A     
 OPTIONS                                                                                   OPTIONS      453     A     
 OPTIONS   MDL      MICRO  1,1,/"MODEL"/                                                   OPTIONS      454          I
          -S3143FC
 OPTIONS            IFC    EQ,/"MDL"/1/,2                                                  OPTIONS      455          I
          -S3143FC
 OPTIONS   MDL      MICRO  2,2,/"MODEL"/                                                   OPTIONS      456          I
          -S3143FC
 OPTIONS            SKIP   1                                                               OPTIONS      457          I
          -S3143FC
 OPTIONS   MDL      MICRO  1,2,/"MODEL"/                                                   OPTIONS      458          I
          -S3143FC
 OPTIONS   MDL      VALMDL MODEL,OT.7X                                                     S3143FC       33          I
          -F2950F4
 OPTIONS   MDL      VALMDL                                                                 F2950F4       70     A     
 OPTIONS                                                                                   S3143FC       34     A     
 OPTIONS   .CPU     EQU    "MDL"       OBJECT TIME CPU                                     OPTIONS      459     A     
 OPTIONS                                                                                   F2950F4       71     A     
 OPTIONS            QUAL   IPARAM                                                          F2950F4       72     A     
 OPTIONS            IPARAMS                                                                F2950F4       73     A     
 OPTIONS            DEFINHF                                                                F2950F4       74     A     
 OPTIONS                                                                                   F2950F4       75     A     
 OPTIONS            IF     -MIC,HF.S,2   IF SEQUENTIAL STACK NOT DEFINED                   F2950F4       76     A     
 OPTIONS   LSTACK   EQU    -1                                                              F2950F4       77     A     
 OPTIONS            SKIP   5                                                               F2950F4       78     A     
 OPTIONS   STACK    MICRO  2,,/"HF.S"/                                                     F2950F4       79     A     
 OPTIONS            IFC    EQ,/"STACK"/0/,2                                                F2950F4       80     A     
 OPTIONS   LSTACK   EQU    -1                                                              F2950F4       81     A     
 OPTIONS            SKIP   1                                                               F2950F4       82     A     
 OPTIONS   LSTACK   EQU    "STACK"                                                         F2950F4       83     A     
 OPTIONS                                                                                   F2950F4       84     A     
 OPTIONS            IF     -MIC,HF.L    IF LCM NOT DEFINED                                 F2950F4       85     A     
 OPTIONS   DAL      EQU    0           LCM ACCESS NOT ALLOWED                              F2950F4       86     A     
 OPTIONS            ELSE   1                                                               F2950F4       87          I
          -FCCA553
 OPTIONS   LCM      MICRO  1,,/ECS/                                                        FCCA553        7     A     
 OPTIONS            ELSE                                                                   FCCA553        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 346    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS   LCM      MICRO  1,,/LCM/                                                        FCCA553        9     A     
 OPTIONS   DAL      EQU    1           LCM ACCESS ALLOWED                                  F2950F4       88     A     
 OPTIONS            ENDIF                                                                  FCCA553       10     A     
 OPTIONS                                                                                   F2950F4       89     A     
 OPTIONS            IF     -MIC,HF.E     IF NORMAL EXIT SEQUENTIAL NOT DEFINED             F2950F4       90     A     
 OPTIONS   OT7X     EQU    1              NORMAL EXIT SEQUENTIAL NOT DEFINED               F2950F4       91     A     
 OPTIONS            ELSE   1                                                               F2950F4       92     A     
 OPTIONS   OT7X     EQU    0              NORMAL EXIT SEQUENTIAL DEFINED                   F2950F4       93     A     
 OPTIONS            QUAL   *                                                               F2950F4       94     A     
 OPTIONS                                                                                   F2950F4       95     A     
 OPTIONS   L.STACK  EQU    /IPARAM/LSTACK+1    MAX INSTACK LOOP LENGTH + 1                 F2950F4       96     A     
 OPTIONS   .DAL     EQU    /IPARAM/DAL        .NZ. IF LCM DIRECT ACCESS ALLOWED            F2950F4       97     A     
 OPTIONS   OT.7X    EQU    /IPARAM/OT7X  .NZ. IFNORMAL EXIT SEQUENTIAL NOT DEFINED         F2950F4       98     A     
 OPTIONS   L.STACK  MDV=   0,8,11,11   MAX INSTACK LOOP LENGTH + 1                         OPTIONS      460          I
          -F7540FT
 OPTIONS   .DAL     MDV=   0,0,1,0     "0 IF LCM DIRECT ACCESS ALLOWED                     OPTIONS      461          I
          -F7540FT
 OPTIONS   L.STACK  MDV=   0,8,11,11,11      MAX INSTACK LOOP LENGTH + 1                   F7540FT       19          I
          -F2950F4
 OPTIONS   .DAL     MDV=   0,0,1,0,1   .NZ. IF LCM DIRECT ACCESS ALLOWED                   F7540FT       20          I
          -F2950F4
 OPTIONS            IF     -DEF,.NRFCO,1                                                   OPTIONS      462          I
          -F2950F4
 OPTIONS   .NRFCO   MDV=   1,1,0,1     HARDWARE NORMALIZE FCO INSTALLED                    OPTIONS      463          I
          -F7540FT
 OPTIONS   .NRFCO   MDV=   1,1,0,1,1   HARDWARE NORMALIZE FCO INSTALLED                    F7540FT       21          I
          -F2950F4
 OPTIONS   .NRFCO   EQU   1             HARDWARE NORMALIZE FCO INSTALLED                   F2950F4       99     A     
 OPTIONS                                                                                   F2950F4      100     A     
 OPTIONS                                                                                   F7540FT       22     A     
 OPTIONS  *         CYBER 76/176 DEFAULT VALUES.                                           F7540FT       23     A     
 OPTIONS                                                                                   OPTIONS      464     A     
 OPTIONS   #MD      IFEQ   .CPU,76                                                         OPTIONS      465     A     
 OPTIONS                                                                                   OPTIONS      466          I
          -F7540FT
 OPTIONS  *         CYBER 76 DEFAULT VALUES.                                               OPTIONS      467          I
          -F7540FT
 OPTIONS                                                                                   OPTIONS      468     A     
 OPTIONS   #RM      IF     -DEF,OT#RM                                                      OPTIONS      469     A     
 OPTIONS   #OS      IFEQ   .OS,2                                                           F7540FT       24     A     
 OPTIONS   OT#RM    EQU    7           USE 7RM FOR OBJECT TIME I/O                         OPTIONS      470     A     
 OPTIONS   #OS      ELSE                                                                   F7540FT       25     A     
 OPTIONS   OT#RM    =      6           USE *CRM* FOR OBJECT-TIME I/O                       F7540FT       26     A     
 OPTIONS   #OS      ENDIF                                                                  F7540FT       27     A     
 OPTIONS   #RM      ENDIF                                                                  OPTIONS      471     A     
 OPTIONS                                                                                   OPTIONS      472     A     
 OPTIONS   SCM      MICRO  1,,/SCM/                                                        OPTIONS      473     A     
 OPTIONS   LCM      MICRO  1,,/LCM/                                                        OPTIONS      474          I
          -FCCA553
 OPTIONS                                                                                   OPTIONS      475     A     
 OPTIONS   #MD      ELSE                                                                   OPTIONS      476     A     
 OPTIONS                                                                                   OPTIONS      477     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 347    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OPTIONS 
  
 OPTIONS  *         LOWER CYBER DEFAULT VALUES.                                            OPTIONS      478     A     
 OPTIONS                                                                                   OPTIONS      479     A     
 OPTIONS   #RM      IF     -DEF,OT#RM                                                      OPTIONS      480     A     
 OPTIONS   OT#RM    EQU    6           USE 6RM FOR OBJECT TIME I/O                         OPTIONS      481     A     
 OPTIONS   #RM      ENDIF                                                                  OPTIONS      482     A     
 OPTIONS                                                                                   OPTIONS      483     A     
 OPTIONS   SCM      MICRO  1,,/CM/                                                         OPTIONS      484     A     
 OPTIONS   LCM      MICRO  1,,/ECS/                                                        OPTIONS      485          I
          -FCCA553
 OPTIONS                                                                                   OPTIONS      486     A     
 OPTIONS   #MD      ENDIF                                                                  OPTIONS      487     A     
 OPTIONS  *                                                                                OPTIONS      488          I
          -F162FTNA 
 OPTIONS  ***                                                                              OPTIONS      489     A     
 OPTIONS  ****                                                                             OPTIONS      490     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - OPTIONS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          OPTIONS                    490       398
          FEAT121A                    13        13
          FEAT121L                     9         8
          FEAT126A                     5         5
          FEAT126B                     2         2
          FEAT126AB                    9         8
          S3143FC                     30         7
          FCC0902                      1         1
          FEAT155E                     6         0
          CP139FC                     37        37
          FCC1264                      5         5
          F7540FT                     20         7
          FCC1361X                     7         0
          FCC1559X                     1         0
          F162FTNA                     3         3
          FCC1847X                     3         2
          F66FCC                      25        25
          FEAT1070C                   24        24
          F2950F4                     77        52
          FCCA553                      4         4
          FCCA592                      9         0
          FCC2563                     33        33
          FCCA596                      1         1
          FCC2567                      2         2
          PSRLEVEL                     2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PARSEM  
  
 PARSEM   *COMDECK  PARSEM                                                                 PARSEM         1     A     
 PARSEM             TITLE              MACROS TO SCAN THE E-LIST                           PARSEM         2     A     
 PARSEM    PARSEM   CTEXT  PARSEM - ELIST MANIPULATION MACROS                              PARSEM         3     A     
 PARSEM   ***                                                                              PARSEM         4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 348    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PARSEM  
  
 PARSEM   *         THE MACROS USE THE FOLLOWING REGISTERS:                                PARSEM         5     A     
 PARSEM   *                X1,B2 LOWER 48 BITS AND E-LIST CODE                             PARSEM         6     A     
 PARSEM   *                B3 IS USED TO HOLD E-LIST CODE FOR TESTS                        PARSEM         7     A     
 PARSEM   *                A4,X4 = E-LIST ADDRESS AND CURRENT ELEMENT                      PARSEM         8     A     
 PARSEM   *                A5,X5 = SELIST,(SELIST)                                         PARSEM         9     A     
 PARSEM   *                                                                                PARSEM        10     A     
 PARSEM    GETE     MACRO                    GET CURRENT E-LIST ELEMENT                    PARSEM        11     A     
 PARSEM             SA5    SELIST                                                          PARSEM        12     A     
 PARSEM             SA4    X5                                                              PARSEM        13     A     
 PARSEM             UX1    B2,X4                                                           PARSEM        14     A     
 PARSEM             ENDM                                                                   PARSEM        15     A     
 PARSEM                                                                                    PARSEM        16     A     
 PARSEM    UPDATE   MACRO  R                 UPDATE E-LIST POINTER IN CORE                 PARSEM        17     A     
 PARSEM    Z        SET    R 4                                                             PARSEM        18     A     
 PARSEM             SX6    A.Z-B5                                                          PARSEM        19     A     
 PARSEM             SA6    A5                                                              PARSEM        20     A     
 PARSEM             ENDM                                                                   PARSEM        21     A     
 PARSEM                                                                                    PARSEM        22     A     
 PARSEM    ADVIN    MACRO                    GETE AND UPDATE                               PARSEM        23     A     
 PARSEM             GETE                                                                   PARSEM        24     A     
 PARSEM             UPDATE                                                                 PARSEM        25     A     
 PARSEM             ENDM                                                                   PARSEM        26     A     
 PARSEM                                                                                    PARSEM        27     A     
 PARSEM    NEXTE    MACRO  R                 GETE NEXT E-LIST ITEM                         PARSEM        28     A     
 PARSEM    Z        SET    R 4                                                             PARSEM        29     A     
 PARSEM             SA.Z   A.Z-B5                                                          PARSEM        30     A     
 PARSEM             UX1    B2,X.Z                                                          PARSEM        31     A     
 PARSEM             ENDM                                                                   PARSEM        32     A     
 PARSEM                                                                                    PARSEM        33     A     
 PARSEM    BACKE    MACRO                    BACK OFF E-LIST POINTER                       PARSEM        34     A     
 PARSEM             SA5    SELIST                                                          PARSEM        35     A     
 PARSEM             SX6    X5+B5                                                           PARSEM        36     A     
 PARSEM             SA6    A5                                                              PARSEM        37     A     
 PARSEM             ENDM                                                                   PARSEM        38     A     
 PARSEM                                                                                    PARSEM        39     A     
 PARSEM    CON      MICRO  1,,/B0/           E LIST CODE FOR A CON                         PARSEM        40     A     
 PARSEM    NAME     MICRO  1,,/B5/           E-LIST CODE FOR A NAME ( = 1 )                PARSEM        41     A     
 PARSEM                                                                                    PARSEM        42     A     
 PARSEM    IF.EQ    MACRO  ECODE,LABEL       IF( B2 .EQ. ECODE ) GO TO LABEL               PARSEM        43     A     
 PARSEM             IF     DEF,ECODE                                                       PARSEM        44     A     
 PARSEM             SB3    ECODE                                                           PARSEM        45     A     
 PARSEM             EQ     B2,B3,LABEL                                                     PARSEM        46     A     
 PARSEM             ELSE                                                                   PARSEM        47     A     
 PARSEM             EQ     B2,"ECODE",LABEL                                                PARSEM        48     A     
 PARSEM             ENDIF                                                                  PARSEM        49     A     
 PARSEM             ENDM                                                                   PARSEM        50     A     
 PARSEM                                                                                    PARSEM        51     A     
 PARSEM    IF.NE    MACRO  ECODE,LABEL       IF( B2 .NE. ECODE ) GO TO LABEL               PARSEM        52     A     
 PARSEM             IF     DEF,ECODE                                                       PARSEM        53     A     
 PARSEM             SB3    ECODE                                                           PARSEM        54     A     
 PARSEM             NE     B2,B3,LABEL                                                     PARSEM        55     A     
 PARSEM             ELSE                                                                   PARSEM        56     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 349    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PARSEM  
  
 PARSEM             NE     B2,"ECODE",LABEL                                                PARSEM        57     A     
 PARSEM             ENDIF                                                                  PARSEM        58     A     
 PARSEM             ENDM                                                                   PARSEM        59     A     
 PARSEM                                                                                    PARSEM        60     A     
 PARSEM    IF.GE    MACRO  ECODE,LABEL       IF(B2 .GE. ECODE) GO TO LABEL                 PARSEM        61     A     
 PARSEM             IF     DEF,ECODE                                                       PARSEM        62     A     
 PARSEM             SB3    ECODE                                                           PARSEM        63     A     
 PARSEM             GE     B2,B3,LABEL                                                     PARSEM        64     A     
 PARSEM             ELSE                                                                   PARSEM        65     A     
 PARSEM             GE     B2,"ECODE",LABEL                                                PARSEM        66     A     
 PARSEM             ENDIF                                                                  PARSEM        67     A     
 PARSEM             ENDM                                                                   PARSEM        68     A     
 PARSEM                                                                                    PARSEM        69     A     
 PARSEM    IF.LE    MACRO  ECODE,LABEL       IF(B2 .LE. ECODE) GO TO LABEL                 PARSEM        70     A     
 PARSEM             IF     DEF,ECODE                                                       PARSEM        71     A     
 PARSEM             SB3    ECODE                                                           PARSEM        72     A     
 PARSEM             LE     B2,B3,LABEL                                                     PARSEM        73     A     
 PARSEM             ELSE                                                                   PARSEM        74     A     
 PARSEM             LE     B2,"ECODE",LABEL                                                PARSEM        75     A     
 PARSEM             ENDIF                                                                  PARSEM        76     A     
 PARSEM             ENDM                                                                   PARSEM        77     A     
 PARSEM                                                                                    PARSEM        78     A     
 PARSEM    IF.GT    MACRO  ECODE,LABEL       IF(B2 .GT. ECODE) GO TO LABEL                 PARSEM        79     A     
 PARSEM             IF     DEF,ECODE                                                       PARSEM        80     A     
 PARSEM             SB3    ECODE                                                           PARSEM        81     A     
 PARSEM             GT     B2,B3,LABEL                                                     PARSEM        82     A     
 PARSEM             ELSE                                                                   PARSEM        83     A     
 PARSEM             GT     B2,"ECODE",LABEL                                                PARSEM        84     A     
 PARSEM             ENDIF                                                                  PARSEM        85     A     
 PARSEM             ENDM                                                                   PARSEM        86     A     
 PARSEM                                                                                    PARSEM        87     A     
 PARSEM    IF.LT    MACRO  ECODE,LABEL       IF(B2 .LT. ECODE) GO TO LABEL                 PARSEM        88     A     
 PARSEM             IF     DEF,ECODE                                                       PARSEM        89     A     
 PARSEM             SB3    ECODE                                                           PARSEM        90     A     
 PARSEM             LT     B2,B3,LABEL                                                     PARSEM        91     A     
 PARSEM             ELSE                                                                   PARSEM        92     A     
 PARSEM             LT     B2,"ECODE",LABEL                                                PARSEM        93     A     
 PARSEM             ENDIF                                                                  PARSEM        94     A     
 PARSEM             ENDM                                                                   PARSEM        95     A     
 PARSEM                                                                                    PARSEM        96     A     
 PARSEM             ENDX                                                                   PARSEM        97     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PARSEM  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PARSEM                      97        97
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SSTCALL 
  
 SSTCALL  *COMDECK  SSTCALL                                                                SSTCALL        1     A     
 SSTCALL                                                                                   SSTCALL        2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 350    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SSTCALL 
  
 SSTCALL            SST                                                                    SSTCALL        3     A     
 SSTCALL            LIST   F                                                               SSTCALL        4     A     
 SSTCALL                                                                                   SSTCALL        5     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - SSTCALL 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          SSTCALL                      5         5
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STLOAD  
  
 STLOAD   *COMDECK,STLOAD                                                                  STLOAD         7     A     
 STLOAD             STLTAB STLCRM.,1                                                       STLOAD         8     A     
 STLOAD             STLTAB STLRP2.                                                         STLOAD         9     A     
 STLOAD             STLTAB STLICO.                                                         STLOAD        10     A     
 STLOAD             STLTAB STLOCO.                                                         STLOAD        11     A     
 STLOAD             STLTAB STLIBI.                                                         STLOAD        12     A     
 STLOAD             STLTAB STLOBI.                                                         STLOAD        13     A     
 STLOAD             STLTAB STLIBU.                                                         STLOAD        14     A     
 STLOAD             STLTAB STLOBU.                                                         STLOAD        15     A     
 STLOAD             STLTAB STLBAK.                                                         STLOAD        16     A     
 STLOAD             STLTAB STLENF.                                                         STLOAD        17     A     
 STLOAD             STLTAB STLREW.                                                         STLOAD        18     A     
 STLOAD             STLTAB STLCMM.                                                         FCCA535        9     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - STLOAD  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          STLOAD                      12        12
          FCCA535                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TEXTCOM 
  
 TEXTCOM  *COMDECK TEXTCOM                                                                 TEXTCOM        1     A     
 TEXTCOM   MXX+X    SPACE  4,28                                                            TEXTCOM        2     A     
 TEXTCOM  **        MXX+X  - SELECT GREATER (MAXIMUM FUNCTION) OF TWO INTEGERS.            TEXTCOM        3     A     
 TEXTCOM  *                                                                                TEXTCOM        4     A     
 TEXTCOM  *         THIS OPDEF COMPARES TWO INTEGERS IN *XJ* AND *XK*, AND PLACES          TEXTCOM        5     A     
 TEXTCOM  *         THE ALGEBRAICALLY GREATER VALUE IN *XI*.                               TEXTCOM        6     A     
 TEXTCOM  *                                                                                TEXTCOM        7     A     
 TEXTCOM  *         MXI    XJ+XK                                                           TEXTCOM        8     A     
 TEXTCOM  *                                                                                TEXTCOM        9     A     
 TEXTCOM  *         ENTRY  *XI* = RESULT X-REG, CANNOT BE *XJ* OR *XK*                     TEXTCOM       10     A     
 TEXTCOM  *                *XJ*,*XK* = X-REGS CONTAINING INTEGERS TO BE COMPARED           TEXTCOM       11     A     
 TEXTCOM  *                                                                                TEXTCOM       12     A     
 TEXTCOM  *         EXIT   (X.LARGER) = 0                                                  TEXTCOM       13     A     
 TEXTCOM  *                (X.SMALLER) = UNCHANGED                                         TEXTCOM       14     A     
 TEXTCOM  *         IF ON ENTRY (XJ)=(XK),                                                 TEXTCOM       15     A     
 TEXTCOM  *            THEN ON EXIT (XJ)=0 AND (XK)=UNCHANGED                              TEXTCOM       16     A     
 TEXTCOM  *                (XI) = MAX(XJ,XK)                                               TEXTCOM       17     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 351    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TEXTCOM 
  
 TEXTCOM  *                                                                                TEXTCOM       18     A     
 TEXTCOM  *         USES   XI, XJ, XK                                                      TEXTCOM       19     A     
 TEXTCOM                                                                                   TEXTCOM       20     A     
 TEXTCOM            PURGDEF   MXX+X                                                        TEXTCOM       21     A     
 TEXTCOM                                                                                   TEXTCOM       22     A     
 TEXTCOM   MXX+X    OPDEF  I,J,K                                                           TEXTCOM       23     A     
 TEXTCOM    IX.I X.J-X.K                                                                   TEXTCOM       24     A     
 TEXTCOM    AX.I -1                                                                        TEXTCOM       25     A     
 TEXTCOM    BX.J -X.I*X.J                                                                  TEXTCOM       26     A     
 TEXTCOM    BX.K X.I*X.K                                                                   TEXTCOM       27     A     
 TEXTCOM    IX.I X.J+X.K                                                                   TEXTCOM       28     A     
 TEXTCOM   MXX+X    ENDM                                                                   TEXTCOM       29     A     
 TEXTCOM   MXX-X    SPACE  4,28                                                            TEXTCOM       30     A     
 TEXTCOM  **        MXX-X  - SELECT LESSER (MINIMUM FUNCTION) OF TWO INTEGERS.             TEXTCOM       31     A     
 TEXTCOM  *                                                                                TEXTCOM       32     A     
 TEXTCOM  *         THIS OPDEF COMPARES TWO INTEGERS IN *XJ* AND *XK*, AND PLACES          TEXTCOM       33     A     
 TEXTCOM  *         THE ALGEBRAICALLY LESSER VALUE IN *XI*.                                TEXTCOM       34     A     
 TEXTCOM  *                                                                                TEXTCOM       35     A     
 TEXTCOM  *         MXI    XJ-XK                                                           TEXTCOM       36     A     
 TEXTCOM  *                                                                                TEXTCOM       37     A     
 TEXTCOM  *         ENTRY  *XI* = RESULT X-REG, CANNOT BE *XJ* OR *XK*                     TEXTCOM       38     A     
 TEXTCOM  *                *XJ*,*XK* = X-REGS CONTAINING INTEGERS TO BE COMPARED           TEXTCOM       39     A     
 TEXTCOM  *                                                                                TEXTCOM       40     A     
 TEXTCOM  *         EXIT   (X.LARGER) = 0                                                  TEXTCOM       41     A     
 TEXTCOM  *                (X.SMALLER) = UNCHANGED                                         TEXTCOM       42     A     
 TEXTCOM  *                IF ON ENTRY (XJ)=(XK)                                           TEXTCOM       43     A     
 TEXTCOM  *            THEN ON EXIT (XJ)=0 AND (XK)=UNCHANGED                              TEXTCOM       44     A     
 TEXTCOM  *                XI = MIN(XJ,XK)                                                 TEXTCOM       45     A     
 TEXTCOM  *                                                                                TEXTCOM       46     A     
 TEXTCOM  *         USES   XI, XJ, XK                                                      TEXTCOM       47     A     
 TEXTCOM                                                                                   TEXTCOM       48     A     
 TEXTCOM            PURGDEF   MXX-X                                                        TEXTCOM       49     A     
 TEXTCOM                                                                                   TEXTCOM       50     A     
 TEXTCOM   MXX-X    OPDEF  I,J,K                                                           TEXTCOM       51     A     
 TEXTCOM    IX.I X.J-X.K                                                                   TEXTCOM       52     A     
 TEXTCOM    AX.I  -1                                                                       TEXTCOM       53     A     
 TEXTCOM    BX.J X.I*X.J                                                                   TEXTCOM       54     A     
 TEXTCOM    BX.K -X.I*X.K                                                                  TEXTCOM       55     A     
 TEXTCOM    IX.I X.J+X.K                                                                   TEXTCOM       56     A     
 TEXTCOM   MXX-X    ENDM                                                                   TEXTCOM       57     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - TEXTCOM 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          TEXTCOM                     57        57
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *TEXTS* 
  
 *TEXTS*  *DECK *TEXTS*                                                                    *TEXTS*        1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 352    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *TEXTS* 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          *TEXTS*                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *DECK TSTEXT                                                                     TSTEXT         1     A     
 TSTEXT             IDENT  TSTEXT                                                          TSTEXT         2     A     
 TSTEXT             STEXT                                                                  TSTEXT         3     A     
 TSTEXT             LIST   F,X                                                             TSTEXT         4     A     
 TSTEXT             SST                                                                    TSTEXT         5     A     
 TSTEXT    RUN3     SPACE  4,8                                                             TSTEXT         6     A     
 TSTEXT   ***       TSTEXT - SYSTEM TEXT FOR C.D.C. FAST FORTRAN COMPILER.                 TSTEXT         7     A     
 TSTEXT   *                                                                                TSTEXT         8     A     
 TSTEXT   *                                                                                TSTEXT         9     A     
 TSTEXT   *         AUTHORS EMERITUS:                                                      TSTEXT        10     A     
 TSTEXT   *                RICHARD H. FRANK   (CHIEF DESIGNER) 1971                        TSTEXT        11     A     
 TSTEXT   *                PAUL H. MC QUESTEN (CHIEF ASSISTANT) 1971                       TSTEXT        12     A     
 TSTEXT                                                                                    TSTEXT        13     A     
 TSTEXT             TITLE  T S T E X T - FORTRAN (TS) ASSEMBLY TEXT                        TSTEXT        14     A     
 TSTEXT   *CALL OPTIONS                                                                    TSTEXT        15     A     
 TSTEXT   *         SELECT SYSTEM - OR TEST-MODE COMPILER CONFIGURATION.                   FCCA451        7     A     
 TSTEXT                                                                                    FCCA451        8     A     
 TSTEXT   *IF -DEF,TESTFTN,1                                                               FCCA451        9          I
          -FCCA589
 TSTEXT   *IF -DEF,TEST,1                                                                  FCCA589       12     A     
 TSTEXT    TEST     =      0           ASSEMBLE COMPILER IN NORMAL (SYSTEM) MODE           FCCA451       10     A     
 TSTEXT   *IF  DEF,TESTFTN,1                                                               FCCA451       11          I
          -FCCA589
 TSTEXT   *IF DEF,TEST,1                                                                   FCCA589       13     A     
 TSTEXT    TEST     =      1           ASSEMBLE COMPILER IN TEST MODE                      FCCA451       12     A     
 TSTEXT                                                                                    FCCA451       13     A     
 TSTEXT   *                                                                                FCCA451       14     A     
 TSTEXT             TITLE  I/O MACRO CODING CONVENTIONS.                                   TSTEXT        16     A     
 TSTEXT   *CALL FA=DEFS                                                                    TSTEXT        17     A     
 TSTEXT    SYS=SYM  SPACE  4,8                                                             TSTEXT        18     A     
 TSTEXT    SYSTEM   TITLE  SYS=SYM  -  OP SYSTEM INTERFACE SYMBOLS                         TSTEXT        19     A     
 TSTEXT   **        SYSTEM = SCOPE 3.4                                                     TSTEXT        20     A     
 TSTEXT   *                  (BUT WITH CIO INSTEAD OF 6RM INTERFACE)                       TSTEXT        21     A     
 TSTEXT                                                                                    TSTEXT        22     A     
 TSTEXT                                                                                    TSTEXT        23     A     
 TSTEXT    RUN      MICRO  1,,/"LPNAME"/                                                   TSTEXT        24     A     
 TSTEXT    VERSION  MICRO  1,,/"VER"/                                                      TSTEXT        25     A     
 TSTEXT    L.SBUF   EQU    1001B       STANDARD LENGTH BUFFER (SCOPE)                      TSTEXT        26     A     
 TSTEXT    EXT      MICRO  1,, .       SUFFIX FOR STANDARD EXTERNALS                       TSTEXT        27     A     
 TSTEXT    FILE     MICRO  1,, "C"     SUFFIX FOR FILE NAMES                               TSTEXT        28     A     
 TSTEXT                                                                                    TSTEXT        29     A     
 TSTEXT                                                                                    TSTEXT        30     A     
 TSTEXT   *         NUMBER LINES PER PRINTER PAGE                                          TSTEXT        31          I
          -FEAT155E 
 TSTEXT                                                                                    TSTEXT        32          I
          -FEAT155E 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 353    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT    PLL      EQU    L.PAGE                                                          TSTEXT        33          I
          -FEAT155E 
 TSTEXT    EJECT    EQU    PLL-4       NUMBER OF PRINTABLE LINES ON A PAGE.                TSTEXT        34          I
          -FEAT155E 
 TSTEXT                                                                                    TSTEXT        35     A     
 TSTEXT    CHAR     EQU    6           NUMBER OF BITS PER CHARACTER                        TSTEXT        36     A     
 TSTEXT    P.       EQU    59          SIGN BIT POSITION (NOT SUBJECT TO CHANGE)           TSTEXT        37     A     
 TSTEXT    BLOWUP   MICRO  1,, *+4S15  OUT OF BOUNDS JUMP ADDRESS                          TSTEXT        38     A     
 TSTEXT    CIO      SPACE  4,8                                                             TSTEXT        39     A     
 TSTEXT   **        *CIO* REQUESTS                                                         TSTEXT        40     A     
 TSTEXT                                                                                    TSTEXT        41     A     
 TSTEXT    IO.READ  EQU    10B         BUFFERED READ                                       TSTEXT        42     A     
 TSTEXT    IO.RITE  EQU    14B         BUFFERED WRITE                                      TSTEXT        43     A     
 TSTEXT    IO.EOR   EQU    24B         WRITE END-OF-RECORD                                 TSTEXT        44     A     
 TSTEXT    IO.EOF   EQU    34B         WRITE END-OF-FILE                                   TSTEXT        45     A     
 TSTEXT    IO.REW   EQU    50B         REWIND FILE                                         TSTEXT        46     A     
 TSTEXT    IO.RETN  =      170B        RETURN FILE TO SYSTEM                               TSTEXT        47     A     
 TSTEXT    IO.EVICT EQU    114B        EVICT MASS STORAGE FILE                             TSTEXT        48     A     
 TSTEXT                                                                                    TSTEXT        49     A     
 TSTEXT    POPMAC   OPSYN  PURGMAC                                                         TSTEXT        50     A     
 TSTEXT    POPDEF   OPSYN  PURGDEF                                                         TSTEXT        51     A     
 TSTEXT                                                                                    TSTEXT        52     A     
 TSTEXT             PURGDEF  =A,Q                                                          TSTEXT        53     A     
 TSTEXT             PURGDEF  =A,A                                                          TSTEXT        54     A     
 TSTEXT             PURGDEF  =A,AQ                                                         TSTEXT        55     A     
 TSTEXT             PURGDEF  =A,BQ                                                         TSTEXT        56     A     
 TSTEXT             PURGDEF  =A,XQ                                                         TSTEXT        57     A     
 TSTEXT             PURGDEF  =B,Q                                                          TSTEXT        58     A     
 TSTEXT             PURGDEF  =B,AQ                                                         TSTEXT        59     A     
 TSTEXT             PURGDEF  =B,B                                                          TSTEXT        60     A     
 TSTEXT             PURGDEF  =B,BQ                                                         TSTEXT        61     A     
 TSTEXT             PURGDEF  =B,XQ                                                         TSTEXT        62     A     
 TSTEXT             PURGDEF  =X,Q                                                          TSTEXT        63     A     
 TSTEXT             PURGDEF  =X,AQ                                                         TSTEXT        64     A     
 TSTEXT             PURGDEF  =X,BQ                                                         TSTEXT        65     A     
 TSTEXT             PURGDEF  =X,X                                                          TSTEXT        66     A     
 TSTEXT             PURGDEF  =X,XQ                                                         TSTEXT        67     A     
 TSTEXT   *CALL COMAREG                                                                    TSTEXT        68     A     
 TSTEXT                                                                                    TSTEXT        69     A     
 TSTEXT                                                                                    TSTEXT        70     A     
 TSTEXT   **        MOVE - MOVE BLOCK OF CORE.                                             TSTEXT        71     A     
 TSTEXT   *                                                                                TSTEXT        72     A     
 TSTEXT   *         MOVE   COUNT,FROM,TO                                                   TSTEXT        73     A     
 TSTEXT                                                                                    TSTEXT        74     A     
 TSTEXT                                                                                    TSTEXT        75     A     
 TSTEXT             PURGMAC   MOVE                                                         FCCA511        5     A     
 TSTEXT    MOVE     MACRO  C,F,T                                                           TSTEXT        76     A     
 TSTEXT             =X1    C                                                               TSTEXT        77     A     
 TSTEXT             =X2    F                                                               TSTEXT        78     A     
 TSTEXT             =X3    T                                                               TSTEXT        79     A     
 TSTEXT             RJ     =XMVE=                                                          TSTEXT        80     A     
 TSTEXT    MOVE     ENDM                                                                   TSTEXT        81     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 354    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT             SPACE  4,8                                                             TSTEXT        82     A     
 TSTEXT                                                                                    TSTEXT        83     A     
 TSTEXT    #OS      ENDIF                                                                  TSTEXT        84     A     
 TSTEXT                                                                                    TSTEXT        85     A     
 TSTEXT    NEGSHIF  SPACE  4,8                                                             TSTEXT        86     A     
 TSTEXT             SPACE  4,8                                                             TSTEXT        87     A     
 TSTEXT    .1       ECHO   ,OP=(LE,LT,EQ,NE,GT,GE)                                         TSTEXT        88     A     
 TSTEXT                                                                                    TSTEXT        89     A     
 TSTEXT             POPMAC OP_1                                                            TSTEXT        90     A     
 TSTEXT    OP_1     MACRO  B,Q                                                             TSTEXT        91     A     
 TSTEXT             OP     B,B1,Q                                                          TSTEXT        92     A     
 TSTEXT             ENDM                                                                   TSTEXT        93     A     
 TSTEXT                                                                                    TSTEXT        94     A     
 TSTEXT    .1       ENDD                                                                   TSTEXT        95     A     
 TSTEXT                                                                                    TSTEXT        96     A     
 TSTEXT    ADDREF   SPACE  4,12                                                            TSTEXT        97     A     
 TSTEXT   **        ADDREF - ADD REFERENCE TO TABLE.                                       TSTEXT        98     A     
 TSTEXT   *                                                                                TSTEXT        99     A     
 TSTEXT   *                                                                                TSTEXT       100     A     
 TSTEXT   *         ADDREF TAG,TYPE,RETURN                                                 TSTEXT       101     A     
 TSTEXT   *         (TAG) = X-REGISTER CONTAINING THE TAG (X6)                             TSTEXT       102     A     
 TSTEXT   *                18/TAG,42/IGNORED                                               TSTEXT       103     A     
 TSTEXT   *                                                                                TSTEXT       104     A     
 TSTEXT   *         (TYPE) = TYPE OF REFERENCE (X1).                                       TSTEXT       105     A     
 TSTEXT   *                1R FORMAT CHARACTERS.  CALL SHOULD USE ONE OF THE               TSTEXT       106     A     
 TSTEXT   *                CR.XXX SYMBOLS.                                                 TSTEXT       107     A     
 TSTEXT   *                                                                                TSTEXT       108     A     
 TSTEXT   *         (RETURN) = RETURN ADDRESS (B7).                                        TSTEXT       109     A     
 TSTEXT   *                *+1 IF OMITTED.                                                 TSTEXT       110     A     
 TSTEXT                                                                                    TSTEXT       111     A     
 TSTEXT                                                                                    TSTEXT       112     A     
 TSTEXT    ADDREF   MACRO  TAG,TYPE,RETURN                                                 TSTEXT       113     A     
 TSTEXT             IFC    NE, TAG X6 ,1                                                   TSTEXT       114     A     
 TSTEXT             BX6    TAG                                                             TSTEXT       115     A     
 TSTEXT             =X1    TYPE                                                            TSTEXT       116     A     
 TSTEXT             IFC    NE, B7 RETURN ,1                                                TSTEXT       117     A     
 TSTEXT             SB7    RETURN  *+2-*P/60D                                              TSTEXT       118     A     
 TSTEXT             EQ     =XERT                                                           TSTEXT       119     A     
 TSTEXT    ADDREF   ENDM                                                                   TSTEXT       120     A     
 TSTEXT    ADSYM    SPACE  4,8                                                             TSTEXT       121     A     
 TSTEXT   **        ADSXX- ADD ENTRY TO A HASHED TABLE.                                    TSTEXT       122     A     
 TSTEXT   *                                                                                TSTEXT       123     A     
 TSTEXT   *         ADSYM  TS.SYM      TO ADD A *SYMBOL*                                   TSTEXT       124     A     
 TSTEXT   *         ADSTN  TS.STN      TO ADD A *STATEMENT NUMBER*                         TSTEXT       125     A     
 TSTEXT   *                                                                                TSTEXT       126     A     
 TSTEXT   *         ENTRY  (X6) = 48/[SYMBOL TO ENTER], 12/0                               TSTEXT       127     A     
 TSTEXT   *                (X7) = 18/0, 42/[SECOND WORD OF ENTRY]                          TSTEXT       128     A     
 TSTEXT   *                (TABLNAM) = TS.SYM  OR TS.STAT                                  TSTEXT       129     A     
 TSTEXT   *         CALLS  ESY IF *SYMBOL* CALL.                                           TSTEXT       130     A     
 TSTEXT   *                ESN IF *STATEMENT NUMBER* CALL.                                 TSTEXT       131     A     
 TSTEXT                                                                                    TSTEXT       132     A     
 TSTEXT                                                                                    TSTEXT       133     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 355    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT    ADSYM    MACRO  TABL                                                            TSTEXT       134     A     
 TSTEXT             =A1    TABL                                                            TSTEXT       135     A     
 TSTEXT             RJ     =XESY                                                           TSTEXT       136     A     
 TSTEXT    ADSYM    ENDM                                                                   TSTEXT       137     A     
 TSTEXT                                                                                    TSTEXT       138     A     
 TSTEXT                                                                                    TSTEXT       139     A     
 TSTEXT    ADSTN    MACRO  TABL                                                            TSTEXT       140     A     
 TSTEXT             =A1    TABL                                                            TSTEXT       141     A     
 TSTEXT             RJ     =XESN                                                           TSTEXT       142     A     
 TSTEXT    ADSTN    ENDM                                                                   TSTEXT       143     A     
 TSTEXT    ADDWD    SPACE  4,8                                                             TSTEXT       144     A     
 TSTEXT   **        ADDWD- ADD WORD TO MANAGED TABLE                                       TSTEXT       145     A     
 TSTEXT   *                                                                                TSTEXT       146     A     
 TSTEXT   *         ADDWD  TNAM                                                            TSTEXT       147     A     
 TSTEXT                                                                                    TSTEXT       148     A     
 TSTEXT                                                                                    TSTEXT       149     A     
 TSTEXT    ADDWD    MACRO  TNAM                                                            TSTEXT       150     A     
 TSTEXT             =A1    TNAM                                                            TSTEXT       151     A     
 TSTEXT             RJ     =XADW                                                           TSTEXT       152     A     
 TSTEXT    ADDWD    ENDM                                                                   TSTEXT       153     A     
 TSTEXT    ALLOC    SPACE  4,8                                                             TSTEXT       154     A     
 TSTEXT   **        ALLOC - ALLOCATE ROOM FOR TABLE.                                       TSTEXT       155     A     
 TSTEXT   *                                                                                TSTEXT       156     A     
 TSTEXT   *                                                                                TSTEXT       157     A     
 TSTEXT   *         ALLOC  TNAM,ROOM         SCM TABLE                                     TSTEXT       158     A     
 TSTEXT   *         ALLOX  TNAM,ROOM         LCM TABLE                                     TSTEXT       159     A     
 TSTEXT   *                                                                                TSTEXT       160     A     
 TSTEXT   *         *TNAM* _ ORIGIN WORD OF TABLE TO BE ALLOCATED.                         TSTEXT       161     A     
 TSTEXT   *         *ROOM* = NUMBER OF WORDS TO EXPAND (OR SHRINK, IF NEGATIVE).           TSTEXT       162     A     
 TSTEXT                                                                                    TSTEXT       163     A     
 TSTEXT                                                                                    TSTEXT       164     A     
 TSTEXT    ALLOC    MACRO  T,R                                                             TSTEXT       165     A     
 TSTEXT             =A1    T                                                               TSTEXT       166     A     
 TSTEXT             =X0    R                                                               TSTEXT       167     A     
 TSTEXT             RJ     =XALC                                                           TSTEXT       168     A     
 TSTEXT    ALLOC    ENDM                                                                   TSTEXT       169     A     
 TSTEXT                                                                                    TSTEXT       170     A     
 TSTEXT    ALLOX    MACRO  T,R                                                             TSTEXT       171     A     
 TSTEXT             =A1    T                                                               TSTEXT       172     A     
 TSTEXT             =X0    R                                                               TSTEXT       173     A     
 TSTEXT             RJ     =XALE                                                           TSTEXT       174     A     
 TSTEXT    ALLOX    ENDM                                                                   TSTEXT       175     A     
 TSTEXT    ANSI     SPACE  4,8                                                             TSTEXT       176     A     
 TSTEXT   **        ANSI - MACRO TO PROCESS *ANSI* DIAGNOSTICS.                            TSTEXT       177     A     
 TSTEXT   *                                                                                TSTEXT       178     A     
 TSTEXT   *         ANSI   ARG                                                             TSTEXT       179     A     
 TSTEXT   *                                                                                TSTEXT       180     A     
 TSTEXT   *         *ARG*  = ADDRESS OF ERROR.                                             TSTEXT       181     A     
 TSTEXT                                                                                    TSTEXT       182     A     
 TSTEXT                                                                                    TSTEXT       183     A     
 TSTEXT    ANSI     MACRO  ARG                                                             TSTEXT       184     A     
 TSTEXT             =B7    ARG                                                             TSTEXT       185     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 356    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT             RJ     =XANSI=                                                         TSTEXT       186     A     
 TSTEXT    ANSI     ENDM                                                                   TSTEXT       187     A     
 TSTEXT    BITMIC   SPACE  4,30                                                            TSTEXT       188     A     
 TSTEXT   **        BITMIC - MACRO TO GENERATE BIT MASKS FOR CHARACTER STRINGS             TSTEXT       189     A     
 TSTEXT   *                                                                                TSTEXT       190     A     
 TSTEXT   * MIKE    BITMIC (BITS),OFF                                                      TSTEXT       191     A     
 TSTEXT   * MIKE    LETMIC (LETS),OFF             (ALTERNATE FORM)                         TSTEXT       192     A     
 TSTEXT   *                                                                                TSTEXT       193     A     
 TSTEXT   *         *MIKE* = THE NAME OF THE MICRO TO BE GENERATED.                        TSTEXT       194     A     
 TSTEXT   *         *BITS* = (BIT1,BIT2,...,BITN)                                          TSTEXT       195     A     
 TSTEXT   *                WHERE EACH *BITN* IS A VALUE OF A BIT THAT IS TO BE SET         TSTEXT       196     A     
 TSTEXT   *         *LETS* = A CHARACTER STRING, (ABCD...N) IMPLIES THAT                   TSTEXT       197     A     
 TSTEXT   *                THE BIT VALUES ARE (1RA,1RB,1RC,...,1RN).                       TSTEXT       198     A     
 TSTEXT   *                THIS ALTERNATE FORM IS MERELY A CONVENIENCE ITEM.               TSTEXT       199     A     
 TSTEXT   *         *OFF*  = OFFSET, IF OTHER THAN 59.                                     TSTEXT       200     A     
 TSTEXT   *                                                                                TSTEXT       201     A     
 TSTEXT   *         GENERATES A MICRO WHICH IS A 20 OCTAL DIGIT INTEGER (WITH              TSTEXT       202     A     
 TSTEXT   *                THE *B* SUFFIX PRESENT) WHICH REPRESENTS THE SUM OF             TSTEXT       203     A     
 TSTEXT   *                    ---     2**(OFF-BIT(N))     ---                             TSTEXT       204     A     
 TSTEXT   *                TAKEN OVER ALL *N* PARAMETERS.                                  TSTEXT       205     A     
 TSTEXT   *                *OFF* IS = 59 UNLESS EXPLICITLY MENTIONED.                      TSTEXT       206     A     
 TSTEXT   *                                                                                TSTEXT       207     A     
 TSTEXT   *         USES   (AS SCRATCH SYMBOLS)  A B C D E F G                             TSTEXT       208     A     
 TSTEXT                                                                                    TSTEXT       209     A     
 TSTEXT                                                                                    TSTEXT       210     A     
 TSTEXT             MACRO  BITMIC,LOC,BITS,OFF                                             TSTEXT       211     A     
 TSTEXT    C        OCTMIC ,10D                                                            TSTEXT       212     A     
 TSTEXT    D        OCTMIC ,10D                                                            TSTEXT       213     A     
 TSTEXT    F        SET    OFF 59D                                                         TSTEXT       214     A     
 TSTEXT             IRP    BITS                                                            TSTEXT       215     A     
 TSTEXT   ..2       IFLE   F-BITS,29                                                       TSTEXT       216     A     
 TSTEXT    E        DECMIC F-BITS,2                                                        TSTEXT       217     A     
 TSTEXT    C        OCTMIC 1S"E"+"C"B,10D                                                  TSTEXT       218     A     
 TSTEXT   ..2       ELSE                                                                   TSTEXT       219     A     
 TSTEXT    E        DECMIC F-30-BITS,2                                                     TSTEXT       220     A     
 TSTEXT    D        OCTMIC 1S"E"+"D"B,10D                                                  TSTEXT       221     A     
 TSTEXT   ..2       ENDIF                                                                  TSTEXT       222     A     
 TSTEXT             IRP                                                                    TSTEXT       223     A     
 TSTEXT    LOC      MICRO  1,, "D""C"B                                                     TSTEXT       224     A     
 TSTEXT    BITMIC   ENDM                                                                   TSTEXT       225     A     
 TSTEXT                                                                                    TSTEXT       226     A     
 TSTEXT                                                                                    TSTEXT       227     A     
 TSTEXT             MACRO  LETMIC,LOC,BITS,OFF                                             TSTEXT       228     A     
 TSTEXT    A        SET    0                                                               TSTEXT       229     A     
 TSTEXT    B        MICRO  1,,^_BITS_^                                                     TSTEXT       230     A     
 TSTEXT    C        OCTMIC ,10D                                                            TSTEXT       231     A     
 TSTEXT    D        OCTMIC ,10D                                                            TSTEXT       232     A     
 TSTEXT    F        SET    OFF 59D                                                         TSTEXT       233     A     
 TSTEXT    G        MICCNT B                                                               TSTEXT       234     A     
 TSTEXT   .1        DUP    G                                                               TSTEXT       235     A     
 TSTEXT    A        SET    A+1                                                             TSTEXT       236     A     
 TSTEXT    B        MICRO  A,1,^_BITS_^                                                    TSTEXT       237     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 357    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   ..2       IFLE   F-1R"B",29                                                      TSTEXT       238     A     
 TSTEXT    E        DECMIC F-1R"B",2                                                       TSTEXT       239     A     
 TSTEXT    C        OCTMIC 1S"E"+"C"B,10D                                                  TSTEXT       240     A     
 TSTEXT   ..2       ELSE                                                                   TSTEXT       241     A     
 TSTEXT    E        DECMIC F-30-1R"B",2                                                    TSTEXT       242     A     
 TSTEXT    D        OCTMIC 1S"E"+"D"B,10D                                                  TSTEXT       243     A     
 TSTEXT   ..2       ENDIF                                                                  TSTEXT       244     A     
 TSTEXT   .1        ENDD                                                                   TSTEXT       245     A     
 TSTEXT    LOC      MICRO  1,, "D""C"B                                                     TSTEXT       246     A     
 TSTEXT    LETMIC   ENDM                                                                   TSTEXT       247     A     
 TSTEXT    BSSX     SPACE  4,8                                                             TSTEXT       248     A     
 TSTEXT   **        BXQ -  CONVIENCE MACRO TO ZERO AN *X* REGISTER                         TSTEXT       249     A     
 TSTEXT   *                (ON THE 6400, BXI XI-XI IS FASTER THAN MXI 00)                  TSTEXT       250     A     
 TSTEXT                                                                                    TSTEXT       251     A     
 TSTEXT                                                                                    TSTEXT       252     A     
 TSTEXT    BXQ      OPDEF  I,Q                                                             TSTEXT       253     A     
 TSTEXT             IFNE   Q,0,1                                                           TSTEXT       254     A     
 TSTEXT             ERR    BXQ  -  Q NOT ZERO                                              TSTEXT       255     A     
 TSTEXT             IFMI   Q,2                                                             TSTEXT       256     A     
 TSTEXT             BX.I   -X.I-X.I                                                        TSTEXT       257     A     
 TSTEXT             SKIP   1                                                               TSTEXT       258     A     
 TSTEXT             BX.I   X.I-X.I                                                         TSTEXT       259     A     
 TSTEXT    BXQ      ENDM                                                                   TSTEXT       260     A     
 TSTEXT    CLAS=    SPACE  4,8                                                             TSTEXT       261     A     
 TSTEXT   **        CLAS= -MACRO TO LOAD "CLASS" BITS INTO A REGISTER.                     TSTEXT       262     A     
 TSTEXT                                                                                    TSTEXT       263     A     
 TSTEXT                                                                                    TSTEXT       264     A     
 TSTEXT    CLAS=    MACRO  REG,BITS                                                        TSTEXT       265     A     
 TSTEXT    A        SET    0                                                               TSTEXT       266     A     
 TSTEXT             IRP    BITS                                                            TSTEXT       267     A     
 TSTEXT    A        SET    A+M.BITS                                                        TSTEXT       268     A     
 TSTEXT             IRP                                                                    TSTEXT       269     A     
 TSTEXT             R=     REG,A                                                           TSTEXT       270     A     
 TSTEXT    CLAS=    ENDM                                                                   TSTEXT       271     A     
 TSTEXT    CLEAR    SPACE  4,8                                                             TSTEXT       272     A     
 TSTEXT   **        CLEAR - MACRO FOR SEQUENCES OF PRESETS.                                TSTEXT       273     A     
 TSTEXT                                                                                    TSTEXT       274     A     
 TSTEXT                                                                                    TSTEXT       275     A     
 TSTEXT    CLEAR    MACRO  CELL                                                            TSTEXT       276     A     
 TSTEXT    A        SET    6+7-A                                                           TSTEXT       277     A     
 TSTEXT   .1        IF     DEF,CELL                                                        TSTEXT       278     A     
 TSTEXT    .2       IFEQ   C,CELL-1                                                        TSTEXT       279     A     
 TSTEXT    B        SET    6+7-A                                                           TSTEXT       280     A     
 TSTEXT             SA.A   A.B+B1                                                          TSTEXT       281     A     
 TSTEXT    .2       ELSE                                                                   TSTEXT       282     A     
 TSTEXT             SA.A   CELL                                                            TSTEXT       283     A     
 TSTEXT    .2       ENDIF                                                                  TSTEXT       284     A     
 TSTEXT    C        SET    CELL                                                            TSTEXT       285     A     
 TSTEXT   .1        ELSE                                                                   TSTEXT       286     A     
 TSTEXT    C        SET    0                                                               TSTEXT       287     A     
 TSTEXT             SA.A   CELL                                                            TSTEXT       288     A     
 TSTEXT   .1        ENDIF                                                                  TSTEXT       289     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 358    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT    CLEAR    ENDM                                                                   TSTEXT       290     A     
 TSTEXT    CLONG    SPACE  4,8                                                             TSTEXT       291     A     
 TSTEXT   **        CLONG - MACRO TO COMPILE 30-BIT INSTRUCTIONS                           TSTEXT       292     A     
 TSTEXT   *                                                                                TSTEXT       293     A     
 TSTEXT   *         CLONG  XR,INST                                                         TSTEXT       294     A     
 TSTEXT                                                                                    TSTEXT       295     A     
 TSTEXT                                                                                    TSTEXT       296     A     
 TSTEXT    CLONG    MACRO  XR,INST                                                         TSTEXT       297     A     
 TSTEXT             =X7    INST                                                            TSTEXT       298     A     
 TSTEXT             L_XR   P.LTAG+L.LI12                                                   TSTEXT       299     A     
 TSTEXT             BX7    X7+XR                                                           TSTEXT       300     A     
 TSTEXT             LX7    -L.LI12                                                         TSTEXT       301     A     
 TSTEXT             WCODE  X7                                                              TSTEXT       302     A     
 TSTEXT    CLONG    ENDM                                                                   TSTEXT       303     A     
 TSTEXT    COMP     SPACE  4,8                                                             TSTEXT       304     A     
 TSTEXT   **        COMP - COMPILE 15 BIT INSTRUCTION                                      TSTEXT       305     A     
 TSTEXT   *                                                                                TSTEXT       306     A     
 TSTEXT   *         COMP   REG,INST                                                        TSTEXT       307     A     
 TSTEXT   *                                                                                TSTEXT       308     A     
 TSTEXT   *         *REG*  = B OR X REGISTER TO BE MERGED WITH *INST*                      TSTEXT       309     A     
 TSTEXT   *         *INST* = TYPE OF INSTRUCTION TO COMPILE                                TSTEXT       310     A     
 TSTEXT   *                  (MAY BE 12, 15, OR 18 BITS LONG)                              TSTEXT       311     A     
 TSTEXT                                                                                    TSTEXT       312     A     
 TSTEXT                                                                                    TSTEXT       313     A     
 TSTEXT    COMP     MACRO  BR,CON                                                          TSTEXT       314     A     
 TSTEXT    A        MICRO  1,5,B_CON_B                                                     TSTEXT       315     A     
 TSTEXT    L."A"    MAC=REF "A"B                                                           TSTEXT       316     A     
 TSTEXT             SX7    BR+CON                                                          TSTEXT       317     A     
 TSTEXT   .1        IFLT   CON,7777B                                                       TSTEXT       318     A     
 TSTEXT             LX7    48                                                              TSTEXT       319     A     
 TSTEXT   .1        ELSE                                                                   TSTEXT       320     A     
 TSTEXT    .2       IFLT   CON,77777B                                                      TSTEXT       321     A     
 TSTEXT             LX7    45                                                              TSTEXT       322     A     
 TSTEXT    .2       ELSE                                                                   TSTEXT       323     A     
 TSTEXT             LX7    42                                                              TSTEXT       324     A     
 TSTEXT    .2       ENDIF                                                                  TSTEXT       325     A     
 TSTEXT   .1        ENDIF                                                                  TSTEXT       326     A     
 TSTEXT             WCODE  X7                                                              TSTEXT       327     A     
 TSTEXT    COMP     ENDM                                                                   TSTEXT       328     A     
 TSTEXT    DEFINE   SPACE  4,8                                                             TSTEXT       329     A     
 TSTEXT   **        DEFINE - MACRO USED FOR BIT POSITIONS AND LENGTH                       TSTEXT       330     A     
 TSTEXT   *         OF FIELDS USED IN COMPILER TABLES AND ENTRYS                           TSTEXT       331     A     
 TSTEXT   *                                                                                TSTEXT       332     A     
 TSTEXT   * SYM     DEFINE LOW,LEN                                                         TSTEXT       333     A     
 TSTEXT   *                                                                                TSTEXT       334     A     
 TSTEXT   *         *SYM*  = NAME OF FIELD                                                 TSTEXT       335     A     
 TSTEXT   *         *LOW*  = BIT NUMBER OF LOW-ORDER POSITION OF FIELD                     TSTEXT       336     A     
 TSTEXT   *         *LEN*  = LENGTH OF FIELD (IN BITS), OR EMPTY FOR A SINGLE BIT          TSTEXT       337     A     
 TSTEXT                                                                                    TSTEXT       338     A     
 TSTEXT                                                                                    TSTEXT       339     A     
 TSTEXT             MACRO  DEFINE,SYM,LOW,LEN                                              TSTEXT       340     A     
 TSTEXT    P.SYM    EQU    LOW         LOW-ORDER BIT POSITION OF FIELD                     TSTEXT       341     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 359    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   .1        IFC    EQ,//LEN/                                                       TSTEXT       342     A     
 TSTEXT    .2       IFLT   LOW,20                                                          TSTEXT       343     A     
 TSTEXT    A        DECMIC LOW                                                             TSTEXT       344     A     
 TSTEXT    M.SYM    EQU    1S_"A"           = 2**"A"  (LOW)                                TSTEXT       345     A     
 TSTEXT    .2       ENDIF                                                                  TSTEXT       346     A     
 TSTEXT   .1        ELSE                                                                   TSTEXT       347     A     
 TSTEXT    L.SYM    EQU    LEN         LENGTH OF FIELD                                     TSTEXT       348     A     
 TSTEXT   .1        ENDIF                                                                  TSTEXT       349     A     
 TSTEXT    DEFINE   ENDM                                                                   TSTEXT       350     A     
 TSTEXT    EQUX     SPACE  4,8                                                             TSTEXT       351     A     
 TSTEXT    IFBIT    SPACE  4,30                                                            TSTEXT       352     A     
 TSTEXT   **        IFBIT- MACRO TO TEST A BIT WHICH HAS A P.XXX DEFINITION.               TSTEXT       353     A     
 TSTEXT   *                                                                                TSTEXT       354     A     
 TSTEXT   *         IFBIT  XN,WHICH/OFFSET,WHERE                                           TSTEXT       355     A     
 TSTEXT   *                                                                                TSTEXT       356     A     
 TSTEXT   *         JUMPS TO "WHERE" IF BIT 2**"WHICH" IS ON (=1), UNLESS "WHICH"          TSTEXT       357     A     
 TSTEXT   *         IS PRECEEDED BY A MINUS WILL JUMP IF OFF (=0).                         TSTEXT       358     A     
 TSTEXT   *         BIT TO BE TESTED IS IN "XN" AND HAS BEEN SHIFTED (CIRCULARLY)          TSTEXT       359     A     
 TSTEXT   *         UNTIL BIT 2**(P."OFFSET") IS IN THE SIGN BIT POSITION.  THE            TSTEXT       360     A     
 TSTEXT   *         "OFFSET" PARAMETER IS, OF COURSE, OMITTED IF "XN" IS IN                TSTEXT       361     A     
 TSTEXT   *         NOMINAL POSITION.                                                      TSTEXT       362     A     
 TSTEXT   *                                                                                TSTEXT       363     A     
 TSTEXT   *         EXAMPLES:                                                              TSTEXT       364     A     
 TSTEXT   *                                                                                TSTEXT       365     A     
 TSTEXT   *         1.     IFBIT  X5,REAL,HEXX             EXIT IF TYPE REAL               TSTEXT       366     A     
 TSTEXT   *                                                                                TSTEXT       367     A     
 TSTEXT   *         2.     IFBIT  X3,-LONG,ATS             IF SINGLE-WORD ELEMENT          TSTEXT       368     A     
 TSTEXT   *                                                                                TSTEXT       369     A     
 TSTEXT   *         3.     IFBIT  X6,-COMM,GLK             IF NOT IN COMMON                TSTEXT       370     A     
 TSTEXT   *                IFBIT  X6,INT/COMM,GLL          IF TYPE INTEGER                 TSTEXT       371     A     
 TSTEXT   *                LX6    P.INT+1                  RESTORE X6                      TSTEXT       372     A     
 TSTEXT                                                                                    TSTEXT       373     A     
 TSTEXT                                                                                    TSTEXT       374     A     
 TSTEXT    IFBIT    MACRO  XN,WHICH,WHERE                                                  TSTEXT       375     A     
 TSTEXT             SBIT   XN,WHICH                                                        TSTEXT       376     A     
 TSTEXT   .1        IFC    NE,,WHERE,,                                                     TSTEXT       377     A     
 TSTEXT    E        MICRO  2*B,2, *MIPL                                                    TSTEXT       378     A     
 TSTEXT             "E"    XN,WHERE                                                        TSTEXT       379     A     
 TSTEXT   .1        ENDIF                                                                  TSTEXT       380     A     
 TSTEXT    IFBIT    ENDM                                                                   TSTEXT       381     A     
 TSTEXT    JPQ      SPACE  4,8                                                             TSTEXT       382     A     
 TSTEXT   **        JPQ -  REDEFINE *JP* AS A *FAST JUMP* (04)                             TSTEXT       383     A     
 TSTEXT                                                                                    TSTEXT       384     A     
 TSTEXT                                                                                    TSTEXT       385     A     
 TSTEXT    JPQ      CPSYN  EQQ                                                             TSTEXT       386     A     
 TSTEXT    MOVE     SPACE  4,8                                                             TSTEXT       387     A     
 TSTEXT   **        MVE -  MOVE BLOCK OF CORE                                              TSTEXT       388     A     
 TSTEXT   *                                                                                TSTEXT       389     A     
 TSTEXT   *         MVE    COUNT,FROM,TO                                                   TSTEXT       390     A     
 TSTEXT                                                                                    TSTEXT       391     A     
 TSTEXT                                                                                    TSTEXT       392     A     
 TSTEXT    MVE      MACRO  C,F,T                                                           TSTEXT       393     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 360    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT             =X1    C                                                               TSTEXT       394     A     
 TSTEXT             =X2    F                                                               TSTEXT       395     A     
 TSTEXT             =X3    T                                                               TSTEXT       396     A     
 TSTEXT             RJ     =XMVE                                                           TSTEXT       397     A     
 TSTEXT    MVE      ENDM                                                                   TSTEXT       398     A     
 TSTEXT    MXX+-X   SPACE  4,8                                                             TSTEXT       399          I
          -FEAT155D 
 TSTEXT   **        MXX+-X  -  INTEGER MAX/MIN MACROS.                                     TSTEXT       400          I
          -FEAT155D 
 TSTEXT   *                                                                                TSTEXT       401          I
          -FEAT155D 
 TSTEXT   *         MX.I   X.J+X.K     X.I = MAX (X.J, X.K)                                TSTEXT       402          I
          -FEAT155D 
 TSTEXT   *         MX.I   X.J-X.K     X.I = MIN (X.J, X.K)                                TSTEXT       403          I
          -FEAT155D 
 TSTEXT   *                                                                                TSTEXT       404          I
          -FEAT155D 
 TSTEXT   *         DESTROYS  X.I, X.J, X.K                                                TSTEXT       405          I
          -FEAT155D 
 TSTEXT                                                                                    TSTEXT       406          I
          -FEAT155D 
 TSTEXT                                                                                    TSTEXT       407          I
          -FEAT155D 
 TSTEXT    MXX+X    OPDEF  I,J,K       INTEGER MAXIMUM.                                    TSTEXT       408          I
          -FEAT155D 
 TSTEXT             IX.I   X.J-X.K                                                         TSTEXT       409          I
          -FEAT155D 
 TSTEXT             AX.I   -1                                                              TSTEXT       410          I
          -FEAT155D 
 TSTEXT             BX.J   -X.I*X.J    = X.J  IF X.J .GT. X.K                              TSTEXT       411          I
          -FEAT155D 
 TSTEXT             BX.K   X.I*X.K     = X.K  IF X.K .GT. X.J                              TSTEXT       412          I
          -FEAT155D 
 TSTEXT             IX.I   X.J+X.K                                                         TSTEXT       413          I
          -FEAT155D 
 TSTEXT    MXX+X    ENDM                                                                   TSTEXT       414          I
          -FEAT155D 
 TSTEXT                                                                                    TSTEXT       415          I
          -FEAT155D 
 TSTEXT                                                                                    TSTEXT       416          I
          -FEAT155D 
 TSTEXT    MXX-X    OPDEF  I,J,K       INTEGER MINIMUM.                                    TSTEXT       417          I
          -FEAT155D 
 TSTEXT             IX.I   X.J-X.K                                                         TSTEXT       418          I
          -FEAT155D 
 TSTEXT             AX.I   -1                                                              TSTEXT       419          I
          -FEAT155D 
 TSTEXT             BX.J   X.I*X.J     = X.J  IF X.J .LT. X.K                              TSTEXT       420          I
          -FEAT155D 
 TSTEXT             BX.K   -X.I*X.K    = X.K  IF X.K .LT. X.J                              TSTEXT       421          I
          -FEAT155D 
 TSTEXT             IX.I   X.J+X.K                                                         TSTEXT       422          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 361    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
          -FEAT155D 
 TSTEXT    MXX-X    ENDM                                                                   TSTEXT       423          I
          -FEAT155D 
 TSTEXT    PIA      SPACE  4,8                                                             TSTEXT       424     A     
 TSTEXT   **        PIA -  MACRO TO CONVERT INSTRUCTION ADDRESS FOR LISTING.               TSTEXT       425     A     
 TSTEXT   *                                                                                TSTEXT       426     A     
 TSTEXT   *         PIA    FROM,TO                                                         TSTEXT       427     A     
 TSTEXT   *                                                                                TSTEXT       428     A     
 TSTEXT   *         FROM   = ADDRESS OF VALUE TO BE CONVERTED.                             TSTEXT       429     A     
 TSTEXT   *                  <SA1 FROM>                                                    TSTEXT       430     A     
 TSTEXT   *         TO     = ADDRESS OF CELL TO RECEIVE RESULT                             TSTEXT       431     A     
 TSTEXT   *                  <SA6 TO>                                                      TSTEXT       432     A     
 TSTEXT   *         ENTRY  X1 = VALUE, @ 2**17-1                                           TSTEXT       433     A     
 TSTEXT   *         EXIT   X6 = DPC CONVERSION, SUITABLE FOR LISTING, LEADING              TSTEXT       434     A     
 TSTEXT   *                     ZEROES SUPPRESSED,                                         TSTEXT       435     A     
 TSTEXT   *                     FORMAT  " 123456 - "                                       TSTEXT       436     A     
 TSTEXT   *         CALLS PIA (Q.V.)                                                       TSTEXT       437     A     
 TSTEXT                                                                                    TSTEXT       438     A     
 TSTEXT                                                                                    TSTEXT       439     A     
 TSTEXT    PIA      MACRO  F,T                                                             TSTEXT       440     A     
 TSTEXT             IFC    NE,**F*,1                                                       TSTEXT       441     A     
 TSTEXT             SA1    F                                                               TSTEXT       442     A     
 TSTEXT             RJ     =XCOD                                                           TSTEXT       443     A     
 TSTEXT             IFC    NE,**T*,1                                                       TSTEXT       444     A     
 TSTEXT             SA6    T                                                               TSTEXT       445     A     
 TSTEXT    PIA      ENDM                                                                   TSTEXT       446     A     
 TSTEXT    PLINE    SPACE  4,8                                                             TSTEXT       447     A     
 TSTEXT   **        PLINE- PRINT CODED LINE ON OUTPUT FILE.                                TSTEXT       448     A     
 TSTEXT   *                                                                                TSTEXT       449     A     
 TSTEXT   *         PLINE  ADDR,N                                                          TSTEXT       450          I
          -FEAT126A 
 TSTEXT   *         PLINE  ADDR,L,N                                                        FEAT126A      11     A     
 TSTEXT   *                                                                                TSTEXT       451     A     
 TSTEXT   *         *ADDR* = FWA OF LINE IN *C* FORMAT.                                    TSTEXT       452     A     
 TSTEXT   *         *L*    = NUMBER OF WORDS TO BE PRINTED                                 FEAT126A      12     A     
 TSTEXT   *         *N*    = NUMBER OF BLANK LINES BEFORE LINE.                            TSTEXT       453     A     
 TSTEXT   *                                                                                TSTEXT       454     A     
 TSTEXT   *         CALLS  WBL, WOF.                                                       TSTEXT       455     A     
 TSTEXT                                                                                    TSTEXT       456     A     
 TSTEXT                                                                                    TSTEXT       457     A     
 TSTEXT    PLINE    MACRO  ADDR,N                                                          TSTEXT       458          I
          -FEAT126A 
 TSTEXT    PLINE    MACRO  ADDR,L,N                                                        FEAT126A      13     A     
 TSTEXT             =X1    ADDR                                                            TSTEXT       459     A     
 TSTEXT             IFC    NE,=L==,2                                                       FEAT126A      14     A     
 TSTEXT             =X2    L                                                               FEAT126A      15     A     
 TSTEXT             SKIP   1                                                               FEAT126A      16     A     
 TSTEXT             SX2    B0                                                              FEAT126A      17     A     
 TSTEXT             IFC    NE,=N==,3                                                       TSTEXT       460     A     
 TSTEXT             =X6    N                                                               TSTEXT       461     A     
 TSTEXT             RJ     =XWBL                                                           TSTEXT       462     A     
 TSTEXT             SKIP   1                                                               TSTEXT       463     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 362    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT             RJ     =XWOF                                                           TSTEXT       464     A     
 TSTEXT    PLINE    ENDM                                                                   TSTEXT       465     A     
 TSTEXT    RMT=     SPACE  4,8                                                             TSTEXT       466     A     
 TSTEXT   **        RMT= - MACRO TO FORCE MICRO EVALUATION FOR REMOTES.                    TSTEXT       467     A     
 TSTEXT   *                                                                                TSTEXT       468     A     
 TSTEXT   * BLOCK   RMT=   (S)                                                             TSTEXT       469     A     
 TSTEXT   *                                                                                TSTEXT       470     A     
 TSTEXT   *         *BLOCK* IS THE RMT BLOCK LABEL, IF ANY.                                TSTEXT       471     A     
 TSTEXT   *         (S) IS THE STATEMENT TO BE ENTERED INTO THAT RMT BLOCK.                TSTEXT       472     A     
 TSTEXT                                                                                    TSTEXT       473     A     
 TSTEXT                                                                                    TSTEXT       474     A     
 TSTEXT             MACRO  RMT=,BLK,S                                                      TSTEXT       475     A     
 TSTEXT    BLK      RMT                                                                    TSTEXT       476     A     
 TSTEXT    S                                                                               TSTEXT       477     A     
 TSTEXT    BLK      RMT                                                                    TSTEXT       478     A     
 TSTEXT    RMT=     ENDM                                                                   TSTEXT       479     A     
 TSTEXT    RPVDEF   SPACE  4,8                                                             TSTEXT       480     A     
 TSTEXT   **        RPVDEF - DEFINE FWA OF ROUTINE FOR REPRIEVE UTILITY.                   TSTEXT       481     A     
 TSTEXT   *                                                                                TSTEXT       482     A     
 TSTEXT   *         DEFINES THE FIRST WORD ADDRESS OF A ROUTINE AND DECLARES               TSTEXT       483     A     
 TSTEXT   *         IT AS AN ENTRY POINT, FOR FORMING THE NAME/ADDRESS TABLES              TSTEXT       484     A     
 TSTEXT   *         USED BY THE UTILITY ROUTINE *RPV* (LOCATED IN *TABLES*).               TSTEXT       485     A     
 TSTEXT   *         FOR PROPER OPERATION, THIS MACRO MUST BE CALLED AT THE                 TSTEXT       486     A     
 TSTEXT   *         BEGINNING OF EACH ROUTINE, BEFORE ANY OTHER INSTRUCTION OR             TSTEXT       487     A     
 TSTEXT   *         PSEUDO-OP THAT WOULD CAUSE *COMPASS-S* LOCATION COUNTER TO BE          TSTEXT       488     A     
 TSTEXT   *         ADVANCED.                                                              TSTEXT       489     A     
 TSTEXT   *                                                                                TSTEXT       490     A     
 TSTEXT   *                                                                                TSTEXT       491     A     
 TSTEXT   *  *TAG*  RPVDEF                                                                 TSTEXT       492     A     
 TSTEXT   *                                                                                TSTEXT       493     A     
 TSTEXT   *         ENTRY  *TAG* = SYMBOLIC NAME OF ROUTINE FWA.                           TSTEXT       494     A     
 TSTEXT                                                                                    TSTEXT       495     A     
 TSTEXT                                                                                    TSTEXT       496     A     
 TSTEXT             PURGMAC   RPVDEF                                                       TSTEXT       497     A     
 TSTEXT                                                                                    TSTEXT       498     A     
 TSTEXT    RPRV     IFEQ   TEST                                                            TSTEXT       499     A     
 TSTEXT                                                                                    TSTEXT       500     A     
 TSTEXT    RPVDEF   OPSYN  NIL                                                             TSTEXT       501     A     
 TSTEXT                                                                                    TSTEXT       502     A     
 TSTEXT    RPRV     ELSE                                                                   TSTEXT       503     A     
 TSTEXT                                                                                    TSTEXT       504     A     
 TSTEXT             MACRO  RPVDEF,T                                                        TSTEXT       505     A     
 TSTEXT             ENTRY  T                                                               TSTEXT       506     A     
 TSTEXT    T        BSS    0                                                               TSTEXT       507     A     
 TSTEXT    RPVDEF   ENDM                                                                   TSTEXT       508     A     
 TSTEXT                                                                                    TSTEXT       509     A     
 TSTEXT    RPRV     ENDIF                                                                  TSTEXT       510     A     
 TSTEXT    SBIT     SPACE  4,30                                                            TSTEXT       511     A     
 TSTEXT   **        SBIT - MACRO TO SHIFT A BIT INTO SIGN POSITION.                        TSTEXT       512     A     
 TSTEXT   *                                                                                TSTEXT       513     A     
 TSTEXT   *         SBIT   XN,WHICH/OFFSET                                                 TSTEXT       514     A     
 TSTEXT   *                                                                                TSTEXT       515     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 363    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *         SHIFTS *XN* LEFT CIRCULAR UNTIL BIT 2**P.WHICH IS IN SIGN BIT          TSTEXT       516     A     
 TSTEXT   *                POSITION.  *WHICH* MAY BE PRECEDED BY A MINUS SIGN.             TSTEXT       517     A     
 TSTEXT   *                IF THE REGISTER HAS ALREADY BEEN SHIFTED, THEN                  TSTEXT       518     A     
 TSTEXT   *                BIT 2**P.OFFSET IS THE BIT NOW AT 2**59.                        TSTEXT       519     A     
 TSTEXT   *                                                                                TSTEXT       520     A     
 TSTEXT   *         TO RESTORE A REGISTER AFTER USING SBIT, DO A                           TSTEXT       521     A     
 TSTEXT   *         --     LXN    P.WHICH+1     --                                         TSTEXT       522     A     
 TSTEXT   *                                                                                TSTEXT       523     A     
 TSTEXT   *         OF COURSE, THE MACRO MAY BE USED TO POSITION TO ANY POSITION,          TSTEXT       524     A     
 TSTEXT   *                (NOT JUST 2**59).  TO POSITION TO BIT *P.OTHER*,                TSTEXT       525     A     
 TSTEXT   *         --     SBIT   XN,WHICH/OFFSET+A    --,                                 TSTEXT       526     A     
 TSTEXT   *                            WHERE  *A* =  MOD (P.OTHER+1, 60).                  TSTEXT       527     A     
 TSTEXT   *                IN THIS CASE, HOWEVER, THE CODER MUST INSURE THAT THE           TSTEXT       528     A     
 TSTEXT   *                FINAL SHIFT COUNT IS IN THE RANGE COMPASS WILL ASSEMBLE         TSTEXT       529     A     
 TSTEXT   *                PROPERLY (I.E...  -60 .LE. COUNT .LE. 60).                      TSTEXT       530     A     
 TSTEXT   *                                                                                TSTEXT       531     A     
 TSTEXT   *         IF THE FINAL SHIFT COUNT IS ZERO (AND PREVIOUSLY DEFINED),             TSTEXT       532     A     
 TSTEXT   *                NO INSTRUCTION WILL BE GENERATED.                               TSTEXT       533     A     
 TSTEXT   *                                                                                TSTEXT       534     A     
 TSTEXT   *         NOTE THAT *IFBIT* MAKES ASSUMPTIONS ABOUT SOME OF THE SCRATCH          TSTEXT       535     A     
 TSTEXT   *                SYMBOLS USED BY *SBIT* -- USE CAUTION.                          TSTEXT       536     A     
 TSTEXT                                                                                    TSTEXT       537     A     
 TSTEXT                                                                                    TSTEXT       538     A     
 TSTEXT    SBIT     MACRO  XN,WHICH                                                        TSTEXT       539     A     
 TSTEXT    A        MICRO  1,1, WHICH                                                      TSTEXT       540     A     
 TSTEXT    B        SET    1                                                               TSTEXT       541     A     
 TSTEXT             IFC    EQ, - "A" ,1                                                    TSTEXT       542     A     
 TSTEXT    B        SET    2                                                               TSTEXT       543     A     
 TSTEXT    C        MICRO  B,,/WHICH/                                                      TSTEXT       544     A     
 TSTEXT    D        MICCNT C                                                               TSTEXT       545     A     
 TSTEXT    E        MICRO  B+D+1,, WHICH                                                   TSTEXT       546     A     
 TSTEXT    .2       IF     DEF,P."E"-P."C"                                                 TSTEXT       547     A     
 TSTEXT             IFEQ   P."E"-P."C",,1                                                  TSTEXT       548     A     
 TSTEXT    .2       ELSE                                                                   TSTEXT       549     A     
 TSTEXT             L_XN   P."E"-P."C"                                                     TSTEXT       550     A     
 TSTEXT    .2       ENDIF                                                                  TSTEXT       551     A     
 TSTEXT    SBIT     ENDM                                                                   TSTEXT       552     A     
 TSTEXT    SCAN     SPACE  4,8                                                             TSTEXT       553     A     
 TSTEXT   **        SCAN - MACRO TO CALL SCAN ROUTINES                                     TSTEXT       554     A     
 TSTEXT   *                                                                                TSTEXT       555     A     
 TSTEXT   *         SCAN   TABLE,TYPE                                                      TSTEXT       556     A     
 TSTEXT   *                                                                                TSTEXT       557     A     
 TSTEXT   *         TABLE  = NAME OF TABLE TO BE SCANNED (TS.NAM, TBI, ETC.)               TSTEXT       558     A     
 TSTEXT   *         TYPE   = TYPE OF SCAN TO PERFORM (NAME OF SCAN ROUTINE).               TSTEXT       559     A     
 TSTEXT   *                                                                                TSTEXT       560     A     
 TSTEXT   * EXAMPLES---                                                                    TSTEXT       561     A     
 TSTEXT   *    1.-- SCAN   I,SCT                                                           TSTEXT       562     A     
 TSTEXT   *         SA1    TBI                                                             TSTEXT       563     A     
 TSTEXT   *         RJ     SCT                                                             TSTEXT       564     A     
 TSTEXT   *                                                                                TSTEXT       565     A     
 TSTEXT   *    2.-- SCAN   TS.NAM,BTR                                                      TSTEXT       566     A     
 TSTEXT   *         SA1    TS.NAM                                                          TSTEXT       567     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 364    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *         RJ     BTR                                                             TSTEXT       568     A     
 TSTEXT                                                                                    TSTEXT       569     A     
 TSTEXT                                                                                    TSTEXT       570     A     
 TSTEXT    SCAN     MACRO  TABLE,TYPE                                                      TSTEXT       571     A     
 TSTEXT             =A1    TABLE                                                           TSTEXT       572     A     
 TSTEXT             RJ     TYPE                                                            TSTEXT       573     A     
 TSTEXT    SCAN     ENDM                                                                   TSTEXT       574     A     
 TSTEXT                                                                                    TSTEXT       575     A     
 TSTEXT   **        SECT - MACRO TO FORM SECTION TITLES AND SET LISTING FLAGS.             TSTEXT       576     A     
 TSTEXT   *                                                                                TSTEXT       577     A     
 TSTEXT   * NAM     SECT   (HEAD)                                                          TSTEXT       578     A     
 TSTEXT   *                                                                                TSTEXT       579     A     
 TSTEXT   *         *NAM*  NAME OF SECTION                                                 TSTEXT       580     A     
 TSTEXT   *         *HEAD* TITLE FOR THIS SECTION                                          TSTEXT       581     A     
 TSTEXT                                                                                    TSTEXT       582     A     
 TSTEXT                                                                                    TSTEXT       583     A     
 TSTEXT             MACRO  SECT,NAM,HEAD                                                   TSTEXT       584     A     
 TSTEXT             TITLE  /NAM  HEAD                                                      TSTEXT       585     A     
 TSTEXT             LIST   F,X                                                             TSTEXT       586     A     
 TSTEXT    SECT     ENDM                                                                   TSTEXT       587     A     
 TSTEXT    SHRINK   SPACE  4,10                                                            TSTEXT       588     A     
 TSTEXT   **        SHRINK - COLLAPSE TABLE TO GIVEN LENGTH.                               TSTEXT       589     A     
 TSTEXT   *                                                                                TSTEXT       590     A     
 TSTEXT   *         SHRINK TNAM,SIZE                                                       TSTEXT       591     A     
 TSTEXT   *                                                                                TSTEXT       592     A     
 TSTEXT   *         TNAM   _ LENGTH WORD FOR TABLE TO BE COLLAPSED.                        TSTEXT       593     A     
 TSTEXT   *         SIZE   = NEW SIZE.  (DISASTER IF SIZE .GT. CURRENT LENGTH.)            TSTEXT       594     A     
 TSTEXT                                                                                    TSTEXT       595     A     
 TSTEXT                                                                                    TSTEXT       596     A     
 TSTEXT    SHRINK   MACRO  TNAM,SIZE                                                       TSTEXT       597     A     
 TSTEXT             =X6    SIZE                                                            TSTEXT       598     A     
 TSTEXT             =A6    TNAM                                                            TSTEXT       599     A     
 TSTEXT    SHRINK   ENDM                                                                   TSTEXT       600     A     
 TSTEXT    SYMASK   SPACE  4,12                                                            TSTEXT       601     A     
 TSTEXT   **        SYMASK - MACRO TO GENERATE MASKS OF SYMBOLIC FIELDS.                   TSTEXT       602     A     
 TSTEXT   *                                                                                TSTEXT       603     A     
 TSTEXT   * LOC     SYMASK (FIELD1,FIELD2,...,FIELDN)                                      TSTEXT       604     A     
 TSTEXT   *                                                                                TSTEXT       605     A     
 TSTEXT   *         *LOC*  = NAME OF THE LITERAL TO BE GENERATED.                          TSTEXT       606     A     
 TSTEXT   *                IF LOCATION FIELD IS BLANK, LITERAL WILL NOT BE CREATED         TSTEXT       607     A     
 TSTEXT   *                AND MICRO NAMED "E" CONTAINS THE 20-OCTAL DIGIT VALUE.          TSTEXT       608     A     
 TSTEXT   *         FIELD(I) ARE SYMBOLIC NAMES OF FIELDS TO BE SET.                       TSTEXT       609     A     
 TSTEXT   *                GENERATES A LITERAL WITH 1-BITS IN SPECIFIED FIELDS,            TSTEXT       610     A     
 TSTEXT   *                AND 0-BITS ELSEWHERE.  THE DESIGNATED FIELDS MUST HAVE          TSTEXT       611     A     
 TSTEXT   *                P.FIELD DEFINITIONS (SEE *DEFINE* MACRO).                       TSTEXT       612     A     
 TSTEXT                                                                                    TSTEXT       613     A     
 TSTEXT                                                                                    TSTEXT       614     A     
 TSTEXT             MACRO  SYMASK,LOC,FLD                                                  TSTEXT       615     A     
 TSTEXT    C        MICRO  1,60, 0000000000_0000000000_0000000000_0000000000_00000         TSTEXT       616     A     
 TSTEXT   ,00000_0000000000                                                                TSTEXT       617     A     
 TSTEXT   *                                                                                TSTEXT       618     A     
 TSTEXT             IRP    FLD                                                             TSTEXT       619     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 365    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *                            NUMBER OF BITS IN THIS FIELD                        TSTEXT       620     A     
 TSTEXT    A        SET    1                                                               TSTEXT       621     A     
 TSTEXT             IF     DEF,L.FLD,1                                                     TSTEXT       622     A     
 TSTEXT    A        SET    L.FLD                                                           TSTEXT       623     A     
 TSTEXT    A        MICRO  1,A, 1111111111_1111111111_1111111111_1111111111_111111         TSTEXT       624     A     
 TSTEXT   ,1111_1111111111                                                                 TSTEXT       625     A     
 TSTEXT   *                            EXTRACT TRAILING BITS                               TSTEXT       626     A     
 TSTEXT    .1       IFEQ   P.FLD                                                           TSTEXT       627     A     
 TSTEXT    B        MICRO                                                                  TSTEXT       628     A     
 TSTEXT    .1       ELSE                                                                   TSTEXT       629     A     
 TSTEXT    B        MICRO  61-P.FLD,, "C"                                                  TSTEXT       630     A     
 TSTEXT    .1       ENDIF                                                                  TSTEXT       631     A     
 TSTEXT   *                            EXTRACT LEADING BITS                                TSTEXT       632     A     
 TSTEXT    .1       IFEQ   60-P.FLD-A                                                      TSTEXT       633     A     
 TSTEXT    D        MICRO                                                                  TSTEXT       634     A     
 TSTEXT    .1       ELSE                                                                   TSTEXT       635     A     
 TSTEXT    D        MICRO  1,60-P.FLD-A, "C"                                               TSTEXT       636     A     
 TSTEXT    .1       ENDIF                                                                  TSTEXT       637     A     
 TSTEXT   *                            MERGE NEW PIECES                                    TSTEXT       638     A     
 TSTEXT    C        MICRO  1,60, "D""A""B"                                                 TSTEXT       639     A     
 TSTEXT             IRP                                                                    TSTEXT       640     A     
 TSTEXT   *                            CONVERT BINARY TO OCTAL                             TSTEXT       641     A     
 TSTEXT    E        MICRO                                                                  TSTEXT       642     A     
 TSTEXT    E        SET    0                                                               TSTEXT       643     A     
 TSTEXT    .1       DUP    60D/3                                                           TSTEXT       644     A     
 TSTEXT    E        SET    E+1                                                             TSTEXT       645     A     
 TSTEXT    F        MICRO  3*E-2,1, "C"                                                    TSTEXT       646     A     
 TSTEXT    G        MICRO  3*E-1,1, "C"                                                    TSTEXT       647     A     
 TSTEXT    H        MICRO  3*E-0,1, "C"                                                    TSTEXT       648     A     
 TSTEXT    F        OCTMIC "F"*4+"G"*2+"H",1                                               TSTEXT       649     A     
 TSTEXT    E        MICRO  1,, "E""F"                                                      TSTEXT       650     A     
 TSTEXT    .1       ENDD                                                                   TSTEXT       651     A     
 TSTEXT   *                                                                                TSTEXT       652     A     
 TSTEXT             IFC    NE,  LOC ,1                                                     TSTEXT       653     A     
 TSTEXT    LOC      LIT    "E"B                                                            TSTEXT       654     A     
 TSTEXT    SYMASK   ENDM                                                                   TSTEXT       655     A     
 TSTEXT    TSF      SPACE  4,12                                                            TSTEXT       656     A     
 TSTEXT   **        TSF -  GENERAL MACRO FOR SETTING CALLING SEQUENCE TO *TSF*             TSTEXT       657     A     
 TSTEXT   *                TO TAG A *SPECIAL* FUNCTION. (SEE CLASS2 WRITE-UP FOR           TSTEXT       658     A     
 TSTEXT   *                TABLE TS.SYM)                                                   TSTEXT       659     A     
 TSTEXT                                                                                    TSTEXT       660     A     
 TSTEXT                                                                                    TSTEXT       661     A     
 TSTEXT    TSF      MACRO  SYMPNT,TYPE                                                     TSTEXT       662     A     
 TSTEXT             =B4    SYMPNT                                                          TSTEXT       663     A     
 TSTEXT             =X6    TYPE                                                            TSTEXT       664     A     
 TSTEXT             RJ     =XTSF                                                           TSTEXT       665     A     
 TSTEXT    TSF      ENDM                                                                   TSTEXT       666     A     
 TSTEXT    TAGASF   SPACE  4,8                                                             TSTEXT       667     A     
 TSTEXT   **        TAGASF - MACRO TO BE USED WHENEVER TRANSLATING AN *ASF*                TSTEXT       668     A     
 TSTEXT   *                USES *TSF* MACRO.                                               TSTEXT       669     A     
 TSTEXT                                                                                    TSTEXT       670     A     
 TSTEXT                                                                                    TSTEXT       671     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 366    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT    TAGASF   MACRO  SYMPNT                                                          TSTEXT       672     A     
 TSTEXT             TSF    SYMPNT,M.NVAR+M.FUN+M.ASF                                       TSTEXT       673     A     
 TSTEXT    TAGASF   ENDM                                                                   TSTEXT       674     A     
 TSTEXT    TAGEXT   SPACE  4,8                                                             TSTEXT       675     A     
 TSTEXT   **        TAGEXT - MACRO TO BE USED WHENEVER TRANSLATING AN *EXTERNAL*           TSTEXT       676     A     
 TSTEXT   *                USES *TSF* MACRO.                                               TSTEXT       677     A     
 TSTEXT                                                                                    TSTEXT       678     A     
 TSTEXT                                                                                    TSTEXT       679     A     
 TSTEXT    TAGEXT   MACRO  SYMPNT                                                          TSTEXT       680     A     
 TSTEXT             TSF    SYMPNT,M.NVAR+M.EXT                                             TSTEXT       681     A     
 TSTEXT    TAGEXT   ENDM                                                                   TSTEXT       682     A     
 TSTEXT    TAGINL   SPACE  4,8                                                             TSTEXT       683     A     
 TSTEXT   **        TAGINL - MACRO TO BE USED WHENEVER TRANSLATING AN *INLINE*             TSTEXT       684     A     
 TSTEXT   *                USES *TSF* MACRO.                                               TSTEXT       685     A     
 TSTEXT                                                                                    TSTEXT       686     A     
 TSTEXT                                                                                    TSTEXT       687     A     
 TSTEXT    TAGINL   MACRO  SYMPNT                                                          TSTEXT       688     A     
 TSTEXT             TSF    SYMPNT,M.NVAR+M.INLINE+M.FUN                                    TSTEXT       689     A     
 TSTEXT    TAGINL   ENDM                                                                   TSTEXT       690     A     
 TSTEXT    TAGFUN   SPACE  4,8                                                             TSTEXT       691     A     
 TSTEXT   **        TAGFUN - MACRO TO BE USED WHENEVER TRANSLATING AN *FUNCTION*           TSTEXT       692     A     
 TSTEXT   *                USES *TSF* MACRO.                                               TSTEXT       693     A     
 TSTEXT                                                                                    TSTEXT       694     A     
 TSTEXT                                                                                    TSTEXT       695     A     
 TSTEXT    TAGFUN   MACRO  SYMPNT                                                          TSTEXT       696     A     
 TSTEXT             TSF    SYMPNT,M.NVAR+M.FUN+M.EXT                                       TSTEXT       697     A     
 TSTEXT    TAGFUN   ENDM                                                                   TSTEXT       698     A     
 TSTEXT    TAGSUB   SPACE  4,8                                                             TSTEXT       699     A     
 TSTEXT   **        TAGSUB - MACRO TO BE USED WHENEVER TRANSLATING AN *SUBROUTINE*         TSTEXT       700     A     
 TSTEXT   *                USES *TSF* MACRO.                                               TSTEXT       701     A     
 TSTEXT                                                                                    TSTEXT       702     A     
 TSTEXT                                                                                    TSTEXT       703     A     
 TSTEXT    TAGSUB   MACRO  SYMPNT                                                          TSTEXT       704     A     
 TSTEXT             TSF    SYMPNT,M.NVAR+M.SUB+M.EXT                                       TSTEXT       705     A     
 TSTEXT    TAGSUB   ENDM                                                                   TSTEXT       706     A     
 TSTEXT    TAGSEX   SPACE  4,8                                                             TSTEXT       707     A     
 TSTEXT   **        TAGSEX - MACRO TO BE USED WHENEVER TRANSLATING AN                      TSTEXT       708     A     
 TSTEXT   *                *SYSTEM EXTERNAL*.  USES *TSF* MACRO.                           TSTEXT       709     A     
 TSTEXT                                                                                    TSTEXT       710     A     
 TSTEXT                                                                                    TSTEXT       711     A     
 TSTEXT    TAGSEX   MACRO  SYMPNT                                                          TSTEXT       712     A     
 TSTEXT             TSF    SYMPNT,M.SYSEXT                                                 TSTEXT       713     A     
 TSTEXT    TAGSEX   ENDM                                                                   TSTEXT       714     A     
 TSTEXT    WARN     SPACE  4,8                                                             TSTEXT       715     A     
 TSTEXT   **        WARN - MACRO TO PRINT WARNING MESSAGES                                 TSTEXT       716     A     
 TSTEXT   *                                                                                TSTEXT       717     A     
 TSTEXT   *         WARN   ERR                                                             TSTEXT       718     A     
 TSTEXT   *         FATAL  ERR         (ONLY IF *FATAL* ERROR)                             TSTEXT       719     A     
 TSTEXT   *         ANSI   ERR         (ONLY IF *ANSI * ERROR)                             TSTEXT       720     A     
 TSTEXT   *                                                                                TSTEXT       721     A     
 TSTEXT   *         *ERR*  = THE NAME OF THE ERROR TO BE PRINTED.                          TSTEXT       722     A     
 TSTEXT   *                                                                                TSTEXT       723     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 367    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *         WILL PRINT THE SPECIFIED ERROR AND RETURN, WITHOUT CLOBBERING          TSTEXT       724     A     
 TSTEXT   *                MANY REGISTERS, PROVIDED THE EXIT ADDRESS FOR THAT              TSTEXT       725     A     
 TSTEXT   *                ERROR IS *PWE1*.  CALLS *PWE*.                                  TSTEXT       726     A     
 TSTEXT   *         SEE *PWE* FOR DETAILS.                                                 TSTEXT       727     A     
 TSTEXT                                                                                    TSTEXT       728     A     
 TSTEXT    WARN     MACRO  ADDR                                                            TSTEXT       729     A     
 TSTEXT             =B7    ADDR                                                            TSTEXT       730     A     
 TSTEXT             RJ     =XPWE                                                           TSTEXT       731     A     
 TSTEXT    WARN     ENDM                                                                   TSTEXT       732     A     
 TSTEXT                                                                                    TSTEXT       733     A     
 TSTEXT    FATAL    OPSYN  WARN                                                            TSTEXT       734     A     
 TSTEXT    NOTE     OPSYN  WARN                                                            TSTEXT       735     A     
 TSTEXT    MESSAGE  SPACE  4,8                                                             TSTEXT       736     A     
 TSTEXT   **        MESAGE - DISPLAY MESSAGE                                               TSTEXT       737     A     
 TSTEXT   *                                                                                TSTEXT       738     A     
 TSTEXT   *         MESAGE ADDR,OPTIONS,RCL                                                TSTEXT       739     A     
 TSTEXT   *                                                                                TSTEXT       740     A     
 TSTEXT   *         ENTRY  *ADDR* = ADDRESS OF MESSAGE IN *C* FORMAT.                      TSTEXT       741     A     
 TSTEXT   *         *OPTION* = AS DEFINED BY OPERATING SYSTEM.                             TSTEXT       742     A     
 TSTEXT                                                                                    TSTEXT       743     A     
 TSTEXT                                                                                    TSTEXT       744     A     
 TSTEXT    MESAGE   OPSYN  MESSAGE                                                         TSTEXT       745     A     
 TSTEXT             EJECT                                                                  TSTEXT       746     A     
 TSTEXT             SYSCOM B1                                                              TSTEXT       747     A     
 TSTEXT                                                                                    TSTEXT       748     A     
 TSTEXT                                                                                    TSTEXT       749     A     
 TSTEXT   ****      ASSEMBLY CONSTANTS.                                                    TSTEXT       750     A     
 TSTEXT                                                                                    TSTEXT       751     A     
 TSTEXT                                                                                    TSTEXT       752     A     
 TSTEXT             COL    30          COLUMN FOR COMMENT FIELD.                           TSTEXT       753     A     
 TSTEXT    .CMLOD   EQU    0           NO COMPILE TO CORE                                  TSTEXT       754     A     
 TSTEXT    FLSLOP   =      4           AMOUNT OF SLOP FOR MANAGER =                        FEAT155D       7     A     
 TSTEXT   *                            (1/2**N)*(WIDTH OF TABLE AREA)                      FEAT155D       8     A     
 TSTEXT    INC.LTN  =      1000B       FIELD LENGTH INCREMENT WHEN FL .LT. NOM.FL          FEAT155D       9     A     
 TSTEXT    INC.GTN  =      2000B       FIELD LENGTH INCREMENT WHEN FL .GT. NOM.FL          FEAT155D      10     A     
 TSTEXT                                                                                    TSTEXT       755     A     
 TSTEXT    N.OPSTK  EQU    240B        NUM WORDS RESERVED FOR OPERAND STACK                TSTEXT       756     A     
 TSTEXT    N.ELSTK  EQU    540B        NUM WORDS RESERVED FOR ELEMENT STACK                TSTEXT       757          I
          -FCC0813
 TSTEXT    N.ELSTK  EQU    240B        NUM WORDS RESERVED FOR ELEMENT STACK                FCC0813        5     A     
 TSTEXT                                                                                    TSTEXT       758     A     
 TSTEXT    MAX.BLK  =      500D        MAXIMUM NUMBER OF COMMON BLOCKS                     TSTEXT       759     A     
 TSTEXT                                                                                    TSTEXT       760     A     
 TSTEXT    MAX.SARG =      63D         MAXIMUM NUMBER OF ARGUMENTS TO SUBPROGRAM           TSTEXT       761     A     
 TSTEXT                                                                                    TSTEXT       762     A     
 TSTEXT    MAX.PARG EQU    50D         MAXIMUM NUMBER OF ARGUMENTS TO MAIN PROGRAM         TSTEXT       763          I
          -FCC2246
 TSTEXT    MAX.PARG EQU    49D         MAXIMUM NUMBER OF ARGUMENTS TO MAIN PROGRAM         FCC2246        6     A     
 TSTEXT                                                                                    TSTEXT       764     A     
 TSTEXT    ANS.DIM  EQU    3           ANSI VALUE OF ...                                   TSTEXT       765     A     
 TSTEXT    MAX.DIM  EQU    3           MAXIMUM NUMBER DIMENSIONS PERMITTED                 TSTEXT       766     A     
 TSTEXT                                                                                    TSTEXT       767     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 368    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT    ANS.CONT EQU    20D         ANSI VALUE OF ...                                   TSTEXT       768          I
          -FCC0844
 TSTEXT    ANS.CONT EQU    19D         MAX. NO. OF CONTIN. CARDS PERMITTED BY ANSI         FCC0844        5     A     
 TSTEXT    MAX.CONT EQU    8D          MAXIMUM NUMBR OF CONTINUATION CARDS                 TSTEXT       769          I
          -FCC0813
 TSTEXT                                MAX NUMBER OF CONTINUATION CARDS                    FCC0813        6          I
          -FEAT155D 
 TSTEXT                                  PERMITTED, INCLUDING THE INITIAL CARD.            TSTEXT       770          I
          -FEAT155D 
 TSTEXT   *CALL TEXTCOM                                                                    FEAT155D      11     A     
 TSTEXT                                                                                    TSTEXT       771     A     
 TSTEXT    MAX.BUFL EQU    360000B                                                         TSTEXT       772     A     
 TSTEXT    MAX.RECL EQU    1S17-1                                                          TSTEXT       773     A     
 TSTEXT                                                                                    TSTEXT       774     A     
 TSTEXT    MIN.LF   EQU    100B        MINIMUM NUMBER OF WORDS TO BE KEPT RESERVED         TSTEXT       775     A     
 TSTEXT                                FOR THE *LONG FILE*, PAST (IGE) OR (A7).            TSTEXT       776     A     
 TSTEXT                                                                                    TSTEXT       777     A     
 TSTEXT                                                                                    TSTEXT       778     A     
 TSTEXT             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     A     
 TSTEXT             EJECT                                                                  TSTEXT       780     A     
 TSTEXT   **        TRUBL - COMPILER MAL-FUNCTION FLAG.                                    TSTEXT       781     A     
 TSTEXT   *                                                                                TSTEXT       782     A     
 TSTEXT   *         TRUBL  ERR                                                             TSTEXT       783     A     
 TSTEXT   *                                                                                TSTEXT       784     A     
 TSTEXT   *         *ERR* = NAME OF THE *Z-ERROR* TO PUT OUT.                              TSTEXT       785     A     
 TSTEXT   *                                                                                TSTEXT       786     A     
 TSTEXT   *         IN *TEST* MODE, WILL DUMP REGISTERS AND PRINT THE ERROR LINE.          TSTEXT       787     A     
 TSTEXT   *         WHEN *TEST* = 0, WILL BE ONLY A JUMP OUT OF BOUNDS.                    TSTEXT       788     A     
 TSTEXT                                                                                    TSTEXT       789     A     
 TSTEXT                                                                                    TSTEXT       790     A     
 TSTEXT    TEST     IFEQ   TEST        BLOW UP IF NOT IN TEST MODE                         TSTEXT       791     A     
 TSTEXT                                                                                    TSTEXT       792     A     
 TSTEXT    TRUBL    MACRO  NAM                                                             TSTEXT       793     A     
 TSTEXT             EQ     "BLOWUP"   NAM                                                  TSTEXT       794     A     
 TSTEXT    TRUBL    ENDM                                                                   TSTEXT       795     A     
 TSTEXT                                                                                    TSTEXT       796     A     
 TSTEXT    TEST     ELSE               DUMP REGISTERS IN TEST MODE                         TSTEXT       797     A     
 TSTEXT                                                                                    TSTEXT       798     A     
 TSTEXT    TRUBL    MACRO  NAM                                                             TSTEXT       799     A     
 TSTEXT   **                           SAVE REGISTERS                                      TSTEXT       800     A     
 TSTEXT             RJ     =XSVR=                                                          TSTEXT       801     A     
 TSTEXT   **                           DISPLAY ALL REGISTERS                               TSTEXT       802     A     
 TSTEXT             RJ     =XDAR=                                                          TSTEXT       803     A     
 TSTEXT             EQ     NAM   "BLOWUP"                                                  TSTEXT       804     A     
 TSTEXT    TRUBL    ENDM                                                                   TSTEXT       805     A     
 TSTEXT                                                                                    TSTEXT       806     A     
 TSTEXT    TEST     ENDIF                                                                  TSTEXT       807     A     
 TSTEXT    SNAP     TITLE  SNAP1  -  SNAP MACROS                                           TSTEXT       808     A     
 TSTEXT    SNAP     IFEQ   TEST                                                            TSTEXT       809     A     
 TSTEXT                                                                                    TSTEXT       810     A     
 TSTEXT                                                                                    TSTEXT       811     A     
 TSTEXT   **        SNAP MACROS  - IF NO SNAP REQUESTED                                    TSTEXT       812     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 369    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT                                                                                    TSTEXT       813     A     
 TSTEXT                                                                                    TSTEXT       814     A     
 TSTEXT    BREAK    OPSYN  NIL                                                             FEAT155F       3     A     
 TSTEXT    CORE     OPSYN  NIL                                                             TSTEXT       815     A     
 TSTEXT    DUMPT    OPSYN  NIL                                                             TSTEXT       816     A     
 TSTEXT    REG      OPSYN  NIL                                                             TSTEXT       817     A     
 TSTEXT    SNAP     OPSYN  NIL                                                             TSTEXT       818     A     
 TSTEXT    STRING   OPSYN  NIL                                                             TSTEXT       819     A     
 TSTEXT                                                                                    TSTEXT       820     A     
 TSTEXT    SNAP     ELSE                                                                   TSTEXT       821     A     
 TSTEXT                                                                                    TSTEXT       822     A     
 TSTEXT   **        SNAP MACROS - IF SNAP TURNED ON                                        TSTEXT       823     A     
 TSTEXT                                                                                    TSTEXT       824          I
          -FEAT155F 
 TSTEXT   *CALL DBG=MAC                                                                    FEAT155F       4     A     
 TSTEXT    CORE     SPACE  4,8                                                             FEAT155F       5     A     
 TSTEXT   **        CORE - MACRO TO SNAPSHOT CORE.                                         TSTEXT       825     A     
 TSTEXT   *                                                                                TSTEXT       826     A     
 TSTEXT   *                                                                                TSTEXT       827     A     
 TSTEXT   * LABEL   CORE   FWA,LENGTH                                                      TSTEXT       828     A     
 TSTEXT   *                                                                                TSTEXT       829     A     
 TSTEXT   *         USES   NONE (OR IT WOULDNT BE ANY GOOD).                               TSTEXT       830     A     
 TSTEXT   *         CALLS  SNP=                                                            TSTEXT       831     A     
 TSTEXT                                                                                    TSTEXT       832     A     
 TSTEXT                                                                                    TSTEXT       833     A     
 TSTEXT             MACRO  CORE,NAM,FWA,LNG                                                TSTEXT       834     A     
 TSTEXT    NAM      SNAP   FWA,,LNG,1,100,1,1                                              TSTEXT       835          I
          -FEAT155F 
 TSTEXT    NAM      SNAP   FWA,,LNG,NR                                                     FEAT155F       6     A     
 TSTEXT    CORE     ENDM                                                                   TSTEXT       836     A     
 TSTEXT    DUMPT    SPACE  4,8                                                             TSTEXT       837     A     
 TSTEXT   **        DUMPT- MACRO TO DUMP COMPILER TABLES.                                  TSTEXT       838     A     
 TSTEXT   *                                                                                TSTEXT       839     A     
 TSTEXT   *         CALLS THE *SNAP* PACKAGE TO DUMP SPECIFIED TABLES.                     TSTEXT       840     A     
 TSTEXT   *                                                                                TSTEXT       841     A     
 TSTEXT   * NAME    DUMPT  (P1,P2,...,PN)                                                  TSTEXT       842     A     
 TSTEXT   *                                                                                TSTEXT       843     A     
 TSTEXT   *         EACH PARAMETER IS THE ADDRESS OF A TABLE, OR AN INCLUSIVE              TSTEXT       844     A     
 TSTEXT   *                RANGE OF TABLES TO BE DUMPED.  A RANGE OF TABLES IS             TSTEXT       845     A     
 TSTEXT   *                INDICATED BY THE ADDRESS OF THE FIRST TABLE PARAMETER           TSTEXT       846     A     
 TSTEXT   *                WORD, FOLLOWED BY A DASH (*-*), FOLLOWED BY THE LAST            TSTEXT       847     A     
 TSTEXT   *                TABLE TO BE DUMPED.                                             TSTEXT       848     A     
 TSTEXT   *         IF FWA GREATER THAN LWA, ONLY FWA WILL BE DUMPED.                      TSTEXT       849     A     
 TSTEXT   *                                                                                TSTEXT       850     A     
 TSTEXT   *  EXAMPLE --                                                                    TSTEXT       851     A     
 TSTEXT   *         DUMPT  (TT.PEM,TS.NAM-TA.NAM,TP.ARR)                                   TSTEXT       852     A     
 TSTEXT   *                                                                                TSTEXT       853     A     
 TSTEXT   *         USES   NONE (OR IT WOULDNT BE ANY GOOD).                               TSTEXT       854     A     
 TSTEXT   *         CALLS  DMT=                                                            TSTEXT       855     A     
 TSTEXT                                                                                    TSTEXT       856     A     
 TSTEXT                                                                                    TSTEXT       857     A     
 TSTEXT             MACRO  DUMPT,NAME,TAB,LL,UL,INC                                        TSTEXT       858          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 370    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
          -FEAT155F 
 TSTEXT             LOCAL  RETURN                                                          TSTEXT       859          I
          -FEAT155F 
 TSTEXT             MACRO  DUMPT,NAME,TAB,LL,UL,INC,NUSE                                   FEAT155F       7     A     
 TSTEXT             LOCAL  RTN                                                             FEAT155F       8     A     
 TSTEXT             LOCAL  APL                                                             FEAT155F       9     A     
 TSTEXT   *                                                                                FEAT155F      10     A     
 TSTEXT    +        RJ     =XDMT=                                                          TSTEXT       860     A     
 TSTEXT    -        EQ     RETURN                                                          TSTEXT       861          I
          -FEAT155F 
 TSTEXT    -        VFD    30/APL                                                          FEAT155F      11     A     
 TSTEXT   *                                                                                FEAT155F      12     A     
 TSTEXT    #NUSE    IFC    EQ,/NUSE//                                                      FEAT155F      13     A     
 TSTEXT             USE    DEBUG                                                           FEAT155F      14     A     
 TSTEXT   *                                                                                FEAT155F      15     A     
 TSTEXT    #NUSE    ELSE                                                                   FEAT155F      16     A     
 TSTEXT             EQ     RTN                                                             FEAT155F      17     A     
 TSTEXT    #NUSE    ENDIF                                                                  FEAT155F      18     A     
 TSTEXT   *                                                                                FEAT155F      19     A     
 TSTEXT    APL      BSS    0                                                               FEAT155F      20     A     
 TSTEXT             FRK=   (NAME),LL,UL,INC                                                TSTEXT       862     A     
 TSTEXT             IRP    TAB                                                             TSTEXT       863     A     
 TSTEXT    A        MICRO  1,,-TAB-                                                        TSTEXT       864     A     
 TSTEXT    B        MICCNT A                                                               TSTEXT       865     A     
 TSTEXT    C        MICRO  B+1,1, TAB                                                      TSTEXT       866     A     
 TSTEXT    D        MICRO  1,, "A"                                                         TSTEXT       867     A     
 TSTEXT   .1        IFC    EQ,/-/"C"/                                                      TSTEXT       868     A     
 TSTEXT    D        MICRO  B+2,, TAB                                                       TSTEXT       869     A     
 TSTEXT    .2       IFLT   "D","A"                                                         TSTEXT       870     A     
 TSTEXT    8        ERR    DUMPT - "A" .GT. "D", ONLY "A" WILL BE DUMPED.                  TSTEXT       871     A     
 TSTEXT    D        MICRO  1,, "A"                                                         TSTEXT       872     A     
 TSTEXT   .2        ENDIF                                                                  TSTEXT       873     A     
 TSTEXT   .1        ENDIF                                                                  TSTEXT       874     A     
 TSTEXT             VFD    24/0,18/"D",18/"A"                                              TSTEXT       875          I
          -FEAT155F 
 TSTEXT             VFD    18/0,21/"D",21/"A"                                              FEAT155F      21     A     
 TSTEXT             IRP                                                                    TSTEXT       876     A     
 TSTEXT             VFD    60/0                                                            TSTEXT       877     A     
 TSTEXT    RETURN   BSS    0                                                               TSTEXT       878          I
          -FEAT155F 
 TSTEXT   *                                                                                FEAT155F      22     A     
 TSTEXT    #NUSE    IFC    EQ,/NUSE//                                                      FEAT155F      23     A     
 TSTEXT             USE    *                                                               FEAT155F      24     A     
 TSTEXT   *                                                                                FEAT155F      25     A     
 TSTEXT    #NUSE    ELSE                                                                   FEAT155F      26     A     
 TSTEXT    RTN      BSS    0                                                               FEAT155F      27     A     
 TSTEXT    #NUSE    ENDIF                                                                  FEAT155F      28     A     
 TSTEXT   *                                                                                FEAT155F      29     A     
 TSTEXT    DUMPT    ENDM                                                                   TSTEXT       879     A     
 TSTEXT    FRK=     SPACE  4,8                                                             TSTEXT       880          I
          -FEAT155F 
 TSTEXT   **        FRK= - SNAP FREQUENCY PARAMETERS MACRO.                                TSTEXT       881          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 371    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
          -FEAT155F 
 TSTEXT                                                                                    TSTEXT       882          I
          -FEAT155F 
 TSTEXT                                                                                    TSTEXT       883          I
          -FEAT155F 
 TSTEXT    FRK=     MACRO  NAME,LL,UL,INC                                                  TSTEXT       884          I
          -FEAT155F 
 TSTEXT             CON    LL  1                                                           TSTEXT       885          I
          -FEAT155F 
 TSTEXT             CON    UL  100                                                         TSTEXT       886          I
          -FEAT155F 
 TSTEXT             CON    INC 1                                                           TSTEXT       887          I
          -FEAT155F 
 TSTEXT    .1       IFC    EQ, NAME                                                        TSTEXT       888          I
          -FEAT155F 
 TSTEXT             CON    0                                                               TSTEXT       889          I
          -FEAT155F 
 TSTEXT    .1       ELSE   1                                                               TSTEXT       890          I
          -FEAT155F 
 TSTEXT             CON    10H_NAME                                                        TSTEXT       891          I
          -FEAT155F 
 TSTEXT             CON    0                                                               TSTEXT       892          I
          -FEAT155F 
 TSTEXT    FRK=     ENDM                                                                   TSTEXT       893          I
          -FEAT155F 
 TSTEXT    REG      SPACE  4,8                                                             TSTEXT       894          I
          -FEAT155F 
 TSTEXT   **        REG -  REGISTER SNAPSHOT WITH TITLE                                    TSTEXT       895          I
          -FEAT155F 
 TSTEXT   *                                                                                TSTEXT       896          I
          -FEAT155F 
 TSTEXT   *                                                                                TSTEXT       897          I
          -FEAT155F 
 TSTEXT   * NAME    REG    LL,UL,INC                                                       TSTEXT       898          I
          -FEAT155F 
 TSTEXT   *                                                                                TSTEXT       899          I
          -FEAT155F 
 TSTEXT   *         USES   NONE (OR IT WOULDNT BE ANY GOOD).                               TSTEXT       900          I
          -FEAT155F 
 TSTEXT   *         CALLS  REG=                                                            TSTEXT       901          I
          -FEAT155F 
 TSTEXT                                                                                    TSTEXT       902          I
          -FEAT155F 
 TSTEXT                                                                                    TSTEXT       903          I
          -FEAT155F 
 TSTEXT             MACRO  REG,NAME,LL,UL,INC                                              TSTEXT       904          I
          -FEAT155F 
 TSTEXT             RJ     =XREG=                                                          TSTEXT       905          I
          -FEAT155F 
 TSTEXT             FRK=   (NAME),LL,UL,INC                                                TSTEXT       906          I
          -FEAT155F 
 TSTEXT    REG      ENDM                                                                   TSTEXT       907          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 372    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
          -FEAT155F 
 TSTEXT             SPACE  4                                                               TSTEXT       908          I
          -FEAT155F 
 TSTEXT   **        SNAP - SNAP SHOT OF THE REGISTERS AND THE CONTENTS OF CORE             TSTEXT       909          I
          -FEAT155F 
 TSTEXT   *                                                                                TSTEXT       910          I
          -FEAT155F 
 TSTEXT   *                                                                                TSTEXT       911          I
          -FEAT155F 
 TSTEXT   * NAME    SNAP   FWA,LWA,LNG,LL,UL,INC,NOREG                                     TSTEXT       912          I
          -FEAT155F 
 TSTEXT   *                                                                                TSTEXT       913          I
          -FEAT155F 
 TSTEXT   *         NAME  - DISPLAY CODE MESSAGE TO BE PRINTED WITH EACH SNAP              TSTEXT       914          I
          -FEAT155F 
 TSTEXT   *         FWA   - FWA TO BE DUMPED                                               TSTEXT       915          I
          -FEAT155F 
 TSTEXT   *         LWA   - LWA TO BE DUMPED                                               TSTEXT       916          I
          -FEAT155F 
 TSTEXT   *         LNG   - LENGTH TO BE DUMPED                                            TSTEXT       917          I
          -FEAT155F 
 TSTEXT   *         LL    - LOWER LIMIT FOR PERIODIC SNAPPING                              TSTEXT       918          I
          -FEAT155F 
 TSTEXT   *         UP    - UPPER LIMIT                                                    TSTEXT       919          I
          -FEAT155F 
 TSTEXT   *         INC   - LOOP INCREMENT                                                 TSTEXT       920          I
          -FEAT155F 
 TSTEXT   *         NOREG - NO REGISTERS DUMP FLAG                                         TSTEXT       921          I
          -FEAT155F 
 TSTEXT   *                                                                                TSTEXT       922          I
          -FEAT155F 
 TSTEXT   *         USES   NONE (OR IT WOULDNT BE ANY GOOD).                               TSTEXT       923          I
          -FEAT155F 
 TSTEXT   *         CALLS  SNP=                                                            TSTEXT       924          I
          -FEAT155F 
 TSTEXT                                                                                    TSTEXT       925          I
          -FEAT155F 
 TSTEXT                                                                                    TSTEXT       926          I
          -FEAT155F 
 TSTEXT             MACRO  SNAP,NAME,FWA,LWA,LNG,LL,UL,INC,NOREG                           TSTEXT       927          I
          -FEAT155F 
 TSTEXT    +        RJ     =XSNP=                                                          TSTEXT       928          I
          -FEAT155F 
 TSTEXT             VFD    60/FWA                                                          TSTEXT       929          I
          -FEAT155F 
 TSTEXT             VFD    60/LWA                                                          TSTEXT       930          I
          -FEAT155F 
 TSTEXT             VFD    10/NOREG                                                        TSTEXT       931          I
          -FEAT155F 
 TSTEXT             VFD    10/0                                                            TSTEXT       932          I
          -FEAT155F 
 TSTEXT             VFD    40/LNG                                                          TSTEXT       933          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 373    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
          -FEAT155F 
 TSTEXT             FRK=   (NAME),LL,UL,INC                                                TSTEXT       934          I
          -FEAT155F 
 TSTEXT    SNAP     ENDM                                                                   TSTEXT       935          I
          -FEAT155F 
 TSTEXT    STRING   SPACE  4,8                                                             TSTEXT       936          I
          -FEAT155F 
 TSTEXT   **        STRING - SNAPSHOT OF THE STRING BUFFER.                                TSTEXT       937          I
          -FEAT155F 
 TSTEXT   *                                                                                TSTEXT       938          I
          -FEAT155F 
 TSTEXT   * LABEL   STRING LL,UL,INC                                                       TSTEXT       939          I
          -FEAT155F 
 TSTEXT   *                                                                                TSTEXT       940          I
          -FEAT155F 
 TSTEXT   *         USES   NONE (OR IT WOULDNT BE ANY GOOD).                               TSTEXT       941          I
          -FEAT155F 
 TSTEXT   *         CALLS  SBD=                                                            TSTEXT       942          I
          -FEAT155F 
 TSTEXT                                                                                    TSTEXT       943          I
          -FEAT155F 
 TSTEXT                                                                                    TSTEXT       944          I
          -FEAT155F 
 TSTEXT             MACRO  STRING,NAME,LL,UL,INC                                           TSTEXT       945          I
          -FEAT155F 
 TSTEXT             RJ     =XSBD                                                           TSTEXT       946          I
          -FEAT155F 
 TSTEXT             FRK=   (NAME),LL,UL,INC                                                TSTEXT       947          I
          -FEAT155F 
 TSTEXT    STRING   ENDM                                                                   TSTEXT       948          I
          -FEAT155F 
 TSTEXT    STRING   SPACE  4,8                                                             FEAT155F      30     A     
 TSTEXT   **        STRING - FORMATTED SNAPSHOT OF STRING BUFFER.                          FEAT155F      31     A     
 TSTEXT   *                                                                                FEAT155F      32     A     
 TSTEXT   *                                                                                FEAT155F      33     A     
 TSTEXT   * NAME    STRING LL,UL,INC                                                       FEAT155F      34     A     
 TSTEXT   *                                                                                FEAT155F      35     A     
 TSTEXT   *         ENTRY  NAME =  DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH           FEAT155F      36     A     
 TSTEXT   *                          EACH SNAP. (NR CHARS.LE.8)                            FEAT155F      37     A     
 TSTEXT   *                LL   =  LOWER LIMIT (DEFAULT=1)                                 FEAT155F      38     A     
 TSTEXT   *                UL   =  UPPER LIMIT (DEFAULT=100)                               FEAT155F      39     A     
 TSTEXT   *                INC  =  INCREMENT   (DEFAULT=1)                                 FEAT155F      40     A     
 TSTEXT   *                          SEE *FRK=* MACRO.                                     FEAT155F      41     A     
 TSTEXT   *                NUSE =  USE BLOCK FLAG. IF *NUSE* IS NULL, THE PARA-            FEAT155F      42     A     
 TSTEXT   *                          METER LIST EXISTS IN *USE DEBUG*, ELSE IS             FEAT155F      43     A     
 TSTEXT   *                          ASSEMBLED AFTER *RJ*                                  FEAT155F      44     A     
 TSTEXT   *                                                                                FEAT155F      45     A     
 TSTEXT   *         EXIT   NONE                                                            FEAT155F      46     A     
 TSTEXT   *                                                                                FEAT155F      47     A     
 TSTEXT   *         USES   NONE                                                            FEAT155F      48     A     
 TSTEXT   *                                                                                FEAT155F      49     A     
 TSTEXT   *         CALLS  FRK=,SBD                                                        FEAT155F      50     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 374    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT                                                                                    FEAT155F      51     A     
 TSTEXT                                                                                    FEAT155F      52     A     
 TSTEXT             PURGMAC STRING                                                         FEAT155F      53     A     
 TSTEXT                                                                                    FEAT155F      54     A     
 TSTEXT             MACRO  STRING,NAME,LL,UL,INC,NUSE                                      FEAT155F      55     A     
 TSTEXT             LOCAL  RTN                                                             FEAT155F      56     A     
 TSTEXT             LOCAL  APL                                                             FEAT155F      57     A     
 TSTEXT   *                                                                                FEAT155F      58     A     
 TSTEXT    +        RJ     =XSBD                                                           FEAT155F      59     A     
 TSTEXT    -        VFD    30/APL                                                          FEAT155F      60     A     
 TSTEXT   *                                                                                FEAT155F      61     A     
 TSTEXT    #NUSE    IFC    EQ,/NUSE//                                                      FEAT155F      62     A     
 TSTEXT             USE    DEBUG                                                           FEAT155F      63     A     
 TSTEXT   *                                                                                FEAT155F      64     A     
 TSTEXT    #NUSE    ELSE                                                                   FEAT155F      65     A     
 TSTEXT             EQ     RTN                                                             FEAT155F      66     A     
 TSTEXT    #NUSE    ENDIF                                                                  FEAT155F      67     A     
 TSTEXT   *                                                                                FEAT155F      68     A     
 TSTEXT    APL      BSS    0                                                               FEAT155F      69     A     
 TSTEXT             FRK=   (NAME),LL,UL,INC                                                FEAT155F      70     A     
 TSTEXT   *                                                                                FEAT155F      71     A     
 TSTEXT    #NUSE    IFC    EQ,/NUSE//                                                      FEAT155F      72     A     
 TSTEXT             USE    *                                                               FEAT155F      73     A     
 TSTEXT   *                                                                                FEAT155F      74     A     
 TSTEXT    #NUSE    ELSE                                                                   FEAT155F      75     A     
 TSTEXT    RTN      BSS    0                                                               FEAT155F      76     A     
 TSTEXT    #NUSE    ENDIF                                                                  FEAT155F      77     A     
 TSTEXT   *                                                                                FEAT155F      78     A     
 TSTEXT    STRING   ENDM                                                                   FEAT155F      79     A     
 TSTEXT                                                                                    TSTEXT       949     A     
 TSTEXT    SNAP     ENDIF                                                                  TSTEXT       950     A     
 TSTEXT    TABLES   SECT   (T A B L E   DEFINITIONS.),1                                    TSTEXT       951     A     
 TSTEXT                                                                                    TSTEXT       952     A     
 TSTEXT                                                                                    TSTEXT       953     A     
 TSTEXT    FUDGE    EQU    1           AMOUNT OF SLOP SPACE BETWEEN TABLES                 TSTEXT       954     A     
 TSTEXT    THRESH   EQU    1S9         THRESHOLD TO BEGIN DUMPING TABLES                   TSTEXT       955          I
          -FEAT155D 
 TSTEXT   ****                                                                             TSTEXT       956     A     
 TSTEXT   *         LONGFILE - CONTAINS GENERATED PSEUDO - OBJECT CODE.                    TSTEXT       957     A     
 TSTEXT   *         AS INSTRUCTIONS ARE COMPILED THEY ARE ENTERED INTO THE *LONG           TSTEXT       958     A     
 TSTEXT   *         FILE* ONE INSTRUCTION PER WORD.  THE *K* PORTION OF A 30 - BIT         TSTEXT       959     A     
 TSTEXT   *         INSTRUCTION WILL CONTAIN A *SHORT CONSTANT* OR A TAG.  WHEN            TSTEXT       960     A     
 TSTEXT   *         THE END OF A SOURCE PROGRAM - UNIT IS ENCOUNTERED, THE LONG            TSTEXT       961     A     
 TSTEXT   *         FILE (AND CONTENTS OF APPROPRIATE TABLES) ARE USED TO GENERATE         TSTEXT       962     A     
 TSTEXT   *         ACTUAL LOADER TEXT.  THUS, WE MAY CONSIDER THE LONG FILE TO BE         TSTEXT       963     A     
 TSTEXT   *         A COMPILER SCRATCH TAPE, AND *END* STATEMENT PROCESSING TO BE          TSTEXT       964     A     
 TSTEXT   *         A *PASS 2*.                                                            TSTEXT       965     A     
 TSTEXT   *                                                                                TSTEXT       966     A     
 TSTEXT   *         THE LONG FILE RESIDES ENTIRELY IN CORE.  DURING STATEMENT              TSTEXT       967     A     
 TSTEXT   *         PROCESSING, *A7* ALWAYS POINTS TO THE LAST COMPILED                    TSTEXT       968     A     
 TSTEXT   *         INSTRUCTION.  WHEN A STATEMENT PROCESSOR DECIDES THAT AN INST-         TSTEXT       969     A     
 TSTEXT   *         RUCTION MUST BE COMPILED, IT IS NECESSARY MERELY TO ASSEMBLE           TSTEXT       970     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 375    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *         THE (PSEUDO) INSTRUCTION INTO *X7* AND ADVANCE *A7*.                   TSTEXT       971     A     
 TSTEXT   *         THE DIFFERENT ENTRY FORMATS ARE DESCRIBED BELOW :                      TSTEXT       972     A     
 TSTEXT                                                                                    TSTEXT       973     A     
 TSTEXT                                                                                    TSTEXT       974     A     
 TSTEXT   * T.INT   TABLE  5           INTERMEDIATE FILE                                   TSTEXT       975     A     
 TSTEXT   *TT.LF    TABLE  =,T.INT                                                         TSTEXT       976     A     
 TSTEXT                                                                                    TSTEXT       977     A     
 TSTEXT                                                                                    TSTEXT       978     A     
 TSTEXT                                                                                    TSTEXT       979     A     
 TSTEXT                                                                                    TSTEXT       980     A     
 TSTEXT   *  1.     15 BIT INSTRUCTIONS                                                    TSTEXT       981     A     
 TSTEXT   *         +--------------+---------------------------------------------+         TSTEXT       982     A     
 TSTEXT   *         +              +/////////////////////////////////////////////+         TSTEXT       983     A     
 TSTEXT   *         +   I N S T    +/////////////////////////////////////////////+         TSTEXT       984     A     
 TSTEXT   *         +              +/////////////////////////////////////////////+         TSTEXT       985     A     
 TSTEXT   *         +--------------+---------------------------------------------+         TSTEXT       986     A     
 TSTEXT   *                15                         45                                   TSTEXT       987     A     
 TSTEXT   *         THE *BXI  XJ* (10B) INSTRUCTION IS COMPILED AS 10IJ0 AND               TSTEXT       988     A     
 TSTEXT   *         CHANGED LATER TO 10IJJ.                                                TSTEXT       989     A     
 TSTEXT                                                                                    TSTEXT       990     A     
 TSTEXT    LI15     DEFINE 45,15       15 - BIT INSTRUCTION.                               TSTEXT       991     A     
 TSTEXT                                                                                    TSTEXT       992     A     
 TSTEXT    LGH      DEFINE 54,6                                                            TSTEXT       993     A     
 TSTEXT    LI       DEFINE 51,3                                                            TSTEXT       994     A     
 TSTEXT    LJ       DEFINE 48,3                                                            TSTEXT       995     A     
 TSTEXT    LK       DEFINE 45,3                                                            TSTEXT       996     A     
 TSTEXT                                                                                    TSTEXT       997     A     
 TSTEXT                                                                                    TSTEXT       998     A     
 TSTEXT   *  2.     30 - BIT INSTRUCTIONS                                                  TSTEXT       999     A     
 TSTEXT   *         +-----------+-----------------+-----------------------+----+-+         TSTEXT      1000     A     
 TSTEXT   *         +           +                 +                       +////+C+         TSTEXT      1001     A     
 TSTEXT   *         + G,H,I,J   +                 +                       +////+O+         TSTEXT      1002     A     
 TSTEXT   *         + OP-CODE   +     T  A  G     +      B  I  A  S       +////+M+         TSTEXT      1003     A     
 TSTEXT   *         +           +                  +                      +////+P+         TSTEXT      1004     A     
 TSTEXT   *         +-----------+-----------------+-----------------------+----+-+         TSTEXT      1005     A     
 TSTEXT   *                    12       18                   24                 1          TSTEXT      1006     A     
 TSTEXT                                                                                    TSTEXT      1007     A     
 TSTEXT                                                                                    TSTEXT      1008     A     
 TSTEXT    LI12     DEFINE 48,12       *GHIJ* OP-CODE PORTION                              TSTEXT      1009     A     
 TSTEXT    LTAG     DEFINE 30,18       *K* - ADDRESS PORTION                               TSTEXT      1010     A     
 TSTEXT                                WILL BE A TAG OR SHORT CONSTANT                     TSTEXT      1011     A     
 TSTEXT    LBIAS    DEFINE 12,18                                                           TSTEXT      1012     A     
 TSTEXT    LNEG     DEFINE 0           COMPLEMENT TAG                                      TSTEXT      1013     A     
 TSTEXT                                IF = 1 COMPLEMENT THE ADDRESS OF THE TAG            TSTEXT      1014     A     
 TSTEXT                                                                                    TSTEXT      1015     A     
 TSTEXT                                                                                    TSTEXT      1016     A     
 TSTEXT   *  3.     PSEUDO - INSTRUCTIONS (GH=00)                                          TSTEXT      1017     A     
 TSTEXT   *         +-----------+-----------------+-----------+-----------------+          TSTEXT      1018     A     
 TSTEXT   *         +           +                 +           +                 +          TSTEXT      1019     A     
 TSTEXT   *         +   I.XX    +    T A G        +  LINE NO. +    L O C N      +          TSTEXT      1020     A     
 TSTEXT   *         +           +                 +           +                 +          TSTEXT      1021     A     
 TSTEXT   *         +-----------+-----------------+-----------+-----------------+          TSTEXT      1022     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 376    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *              12            18             12            18                     TSTEXT      1023     A     
 TSTEXT    I.BSS    EQU    0000B       *LOCN BSS  TAG*                                     TSTEXT      1024     A     
 TSTEXT    TRC      DEFINE 18,12                                                           TSTEXT      1025     A     
 TSTEXT    LOCN     DEFINE 0,18        LOCATION FIELD.  THIS IS THE ONLY WAY TO            TSTEXT      1026     A     
 TSTEXT                                DEFINE A TAG WITHIN THE COMPILED CODE.  IF          TSTEXT      1027     A     
 TSTEXT                                LOCN IS < C.CON IT IS A *FORCE UPPER* ONLY,         TSTEXT      1028     A     
 TSTEXT                                AND WILL NOT CAUSE A TAG TO BE CREATED.             TSTEXT      1029     A     
 TSTEXT                                                                                    TSTEXT      1030     A     
 TSTEXT   *         TAG    NUMBER OF WORDS TO BE RESERVED.  USUALLY ZERO.                  TSTEXT      1031     A     
 TSTEXT                                                                                    TSTEXT      1032     A     
 TSTEXT                                                                                    TSTEXT      1033     A     
 TSTEXT   **        I.CALL             +RJ   TAG                                           TSTEXT      1034     A     
 TSTEXT   *                            -VFD 12/LINE NO.,18/TRACEBACK WORD                  TSTEXT      1035     A     
 TSTEXT                                                                                    TSTEXT      1036     A     
 TSTEXT    I.CALL   EQU    0001B       RJ WITH TRACE                                       TSTEXT      1037     A     
 TSTEXT                                                                                    TSTEXT      1038     A     
 TSTEXT                                                                                    TSTEXT      1039     A     
 TSTEXT   **        I.RJ               RJ   TAG                                            TSTEXT      1040     A     
 TSTEXT   *                            BSS  0                                              TSTEXT      1041     A     
 TSTEXT                                                                                    TSTEXT      1042     A     
 TSTEXT    I.RJ     EQU    0002B       RETURN JUMP                                         TSTEXT      1043     A     
 TSTEXT                                                                                    TSTEXT      1044     A     
 TSTEXT                                                                                    TSTEXT      1045     A     
 TSTEXT   **        I.JP               JP   TAG + (B)                                      TSTEXT      1046     A     
 TSTEXT   *                            BSS  0                                              TSTEXT      1047     A     
 TSTEXT                                                                                    TSTEXT      1048     A     
 TSTEXT    I.JP     EQU    3           INDEXED JUMP                                        TSTEXT      1049     A     
 TSTEXT                                                                                    TSTEXT      1050     A     
 TSTEXT                                                                                    TSTEXT      1051     A     
 TSTEXT   **        I.EQ               EQ   B0,B0,TAG                                      TSTEXT      1052     A     
 TSTEXT   *                            BSS  0                                              TSTEXT      1053     A     
 TSTEXT                                                                                    TSTEXT      1054     A     
 TSTEXT    I.EQ     EQU    4           UNCONDITIONAL JUMP                                  TSTEXT      1055     A     
 TSTEXT   ****                                                                             TSTEXT      1056     A     
 TSTEXT    MISC     EJECT                                                                  TSTEXT      1057     A     
 TSTEXT   ****      MISCELLEANOUS FIELDS                                                   TSTEXT      1058     A     
 TSTEXT                                                                                    TSTEXT      1059     A     
 TSTEXT                                                                                    TSTEXT      1060     A     
 TSTEXT    LCON     DEFINE 18,5        LENGTH OF *HOLLERITH* CONSTANT.                     TSTEXT      1061          I
          -FCC0844
 TSTEXT    CLCON    DEFINE 24,18       CHARACTER LENGTH OF *HOLLERITH* CONSTANT            TSTEXT      1062          I
          -FCC0844
 TSTEXT    LCON     DEFINE 18,9        LENGTH OF *HOLLERITH* CONSTANT                      FCC0844        6     A     
 TSTEXT    CLCON    DEFINE 27,15       CHARACTER LENGTH OF *HOLLERITH* CONSTANT            FCC0844        7     A     
 TSTEXT    SHC      DEFINE 42,18       SHORT CONSTANT                                      TSTEXT      1063     A     
 TSTEXT                                                                                    TSTEXT      1064     A     
 TSTEXT   ****                                                                             TSTEXT      1065     A     
 TSTEXT    TS.ARG   EJECT                                                                  TSTEXT      1066     A     
 TSTEXT   ****      TT.USE - USE COUNT OF ALL ELEMENT IN A EXPRESSION                      TSTEXT      1067     A     
 TSTEXT                                                                                    TSTEXT      1068     A     
 TSTEXT   *         ENTRY FORMAT INTO USE TABLE.                                           TSTEXT      1069     A     
 TSTEXT   *                                                                                TSTEXT      1070     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 377    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *         +--------------+---+-----------------+-----+-------------+---+         TSTEXT      1071     A     
 TSTEXT   *         +              +   +                 +     +             +   +         TSTEXT      1072     A     
 TSTEXT   *         +  USE COUNT   +MOD+   T   A   G     + MIS +   B  I  A  S+PAR+         TSTEXT      1073     A     
 TSTEXT   *         +              +   +                 +     +             +   +         TSTEXT      1074     A     
 TSTEXT   *         +--------------+---+-----------------+-----+-------------+---+         TSTEXT      1075     A     
 TSTEXT                                                                                    TSTEXT      1076     A     
 TSTEXT   * TT.USE  TABLE  3                                                               TSTEXT      1077     A     
 TSTEXT   ****                                                                             TSTEXT      1078     A     
 TSTEXT    TT.ARG   SPACE  4,8                                                             TSTEXT      1079     A     
 TSTEXT   ****      TT.ARG - ARGUMENT TAG TABLE.                                           TSTEXT      1080          I
          -FEAT126C 
 TSTEXT   ****      TT.SCR - ARGUMENT TAG SCRATCH TABLE.                                   FEAT126C      37     A     
 TSTEXT                                                                                    TSTEXT      1081     A     
 TSTEXT                                                                                    TSTEXT      1082     A     
 TSTEXT   * TT.SCR  TABLE  3           SCRATCH TABLE.                                      TSTEXT      1083     A     
 TSTEXT                                                                                    TSTEXT      1084     A     
 TSTEXT    TAG      DEFINE 42,18       ARGUMENT TAG                                        TSTEXT      1085     A     
 TSTEXT   ****                                                                             TSTEXT      1086     A     
 TSTEXT    TS.CON   SPACE  4,8                                                             TSTEXT      1087     A     
 TSTEXT   ****      TS.CON - CONSTANT VALUE TABLE                                          TSTEXT      1088     A     
 TSTEXT                                                                                    TSTEXT      1089     A     
 TSTEXT   *         59                                                          0          TSTEXT      1090     A     
 TSTEXT   *         +-----------------------------------------------------------+          TSTEXT      1091     A     
 TSTEXT   *         +                                                           +          TSTEXT      1092     A     
 TSTEXT   *         +            A C T U A L             C O N S T A N T        +          TSTEXT      1093     A     
 TSTEXT   *         +                                                           +          TSTEXT      1094     A     
 TSTEXT   *         +-----------------------------------------------------------+          TSTEXT      1095     A     
 TSTEXT   *         +                     --  60  --                            +          TSTEXT      1096     A     
 TSTEXT                                                                                    TSTEXT      1097     A     
 TSTEXT                                                                                    TSTEXT      1098     A     
 TSTEXT   * TS.CON  TABLE  3           CONSTANT VALUES                                     TSTEXT      1099     A     
 TSTEXT   ****                                                                             TSTEXT      1100     A     
 TSTEXT    TS.SYM   EJECT                                                                  TSTEXT      1101     A     
 TSTEXT   **        TS.SYM - SYMBOL TABLE.                                                 TSTEXT      1102     A     
 TSTEXT   *                                                                                TSTEXT      1103     A     
 TSTEXT   *         (1ST WORD OF TABLE ENTRY - SYMBOL WORD)                                TSTEXT      1104     A     
 TSTEXT   *                                                                                TSTEXT      1105     A     
 TSTEXT   *         59                                       18                 0          TSTEXT      1106     A     
 TSTEXT   *         +-----------------------------------------+-----------------+          TSTEXT      1107     A     
 TSTEXT   *         +                                         +                 +          TSTEXT      1108     A     
 TSTEXT   *         +      S  Y  M  B  O  L                   +  HASH POINTER   +          TSTEXT      1109     A     
 TSTEXT   *         +                                         +                 +          TSTEXT      1110     A     
 TSTEXT   *         +-----------------------------------------+-----------------+          TSTEXT      1111     A     
 TSTEXT   *         +                  42                     +     18          +          TSTEXT      1112     A     
 TSTEXT   *                                                                                TSTEXT      1113     A     
 TSTEXT   *                                                                                TSTEXT      1114     A     
 TSTEXT   *                                                                                TSTEXT      1115     A     
 TSTEXT   *         (2ND WORD OF TABLE ENTRY - TAG WORD)                                   TSTEXT      1116     A     
 TSTEXT   *                                                                                TSTEXT      1117     A     
 TSTEXT   *         59               42   37           24    18             3   0          TSTEXT      1118     A     
 TSTEXT   *         +-----------------+--+-+------------+-----+-------------+---+          TSTEXT      1119     A     
 TSTEXT   *         +                 +//+ +            + F P +             +   +          TSTEXT      1120     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 378    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *         +     T  A  G     +//+N+ TP.DIM PT. +     +  C L A S S  +MOD+          TSTEXT      1121     A     
 TSTEXT   *         +                 +//+ +            + NO. +             +   +          TSTEXT      1122     A     
 TSTEXT   *         +-----------------+--+-+------------+-----+-------------+---+          TSTEXT      1123     A     
 TSTEXT   *         +       18        +3 +2+     13     +  6  +      15     + 3 +          TSTEXT      1124     A     
 TSTEXT    PSYM     SPACE  4,8                                                             TSTEXT      1125     A     
 TSTEXT   ****                                                                             TSTEXT      1126     A     
 TSTEXT    PSYM     EQU    7           LOG(2) OF SYM TAB HASH BASE                         TSTEXT      1127     A     
 TSTEXT   ****                         (= NUMBER OF BITS TO HASH.)                         TSTEXT      1128     A     
 TSTEXT    A        DECMIC 1+PSYM                                                          TSTEXT      1129          I
          -FCC0813
 TSTEXT    A        DECMIC PSYM                                                            FCC0813        7     A     
 TSTEXT    LSYM     EQU    1S"A"                                                           TSTEXT      1130     A     
 TSTEXT                                                                                    TSTEXT      1131     A     
 TSTEXT   * TS.SYM  TABLE  5,LSYM      SYMBOLS                                             TSTEXT      1132     A     
 TSTEXT                                                                                    TSTEXT      1133     A     
 TSTEXT   ****                                                                             TSTEXT      1134     A     
 TSTEXT    SYM      DEFINE 18,42       VARIABLE NAME                                       TSTEXT      1135     A     
 TSTEXT    TNAM     DEFINE 0,18        HASH CHAIN LINK                                     TSTEXT      1136     A     
 TSTEXT   ****                                                                             TSTEXT      1137     A     
 TSTEXT                                                                                    TSTEXT      1138     A     
 TSTEXT    VERR.    MICRO  1,, 5R-ERR- ERROR SYMBOL                                        TSTEXT      1139     A     
 TSTEXT    TAG      SPACE  4,8                                                             TSTEXT      1140     A     
 TSTEXT   **** 1.   GENERAL FIELD DEFINITION FOR *TAG* ENTRY.                              TSTEXT      1141     A     
 TSTEXT                                                                                    TSTEXT      1142     A     
 TSTEXT                                                                                    TSTEXT      1143     A     
 TSTEXT    TGB      DEFINE 55,5        TAG TYPE                                            TSTEXT      1144     A     
 TSTEXT    PWF      DEFINE 42,13       TAG ORDINAL                                         TSTEXT      1145     A     
 TSTEXT    TAG      DEFINE P.PWF,L.PWF+L.TGB                                               TSTEXT      1146     A     
 TSTEXT    FPS      DEFINE 39,1        ON IF FP USED AS SUBSCRIPT                          TSTEXT      1147     A     
 TSTEXT    LEVN     DEFINE 37,2        LEVEL NUMBER IF LEV CLASS BIT ON                    TSTEXT      1148     A     
 TSTEXT    PNT      DEFINE 24,13       GENERAL POINTER FIELD --                            TSTEXT      1149     A     
 TSTEXT                                FOR ARRAYS IT IS THE TP.DIM ORDINAL.                TSTEXT      1150     A     
 TSTEXT                                IF NLST OR ENT, = ADDRESS.                          TSTEXT      1151     A     
 TSTEXT                                                                                    TSTEXT      1152     A     
 TSTEXT                                                                                    TSTEXT      1153     A     
 TSTEXT    FPNO     DEFINE 18,6        FORMAL PARAMETER NUMBER.  ZERO IF NOT.              TSTEXT      1154     A     
 TSTEXT                                VALUE IS 1 TO 63.  DEFINED ONLY WHEN --             TSTEXT      1155     A     
 TSTEXT                                A.  *VAR* BIT IS SET (PROGRAMMER VARIABLE).         TSTEXT      1156     A     
 TSTEXT                                B.  *NVAR* SET, AND NONE OF (*BEF*, *ASF*,          TSTEXT      1157     A     
 TSTEXT                                    NOR *INLINE*) IS SET -- I. E.,                  TSTEXT      1158     A     
 TSTEXT                                    FOR A PROGRAMMER *SUBROUTINE* OR                TSTEXT      1159     A     
 TSTEXT                                    *FUNCTION*.                                     TSTEXT      1160     A     
 TSTEXT                                                                                    TSTEXT      1161     A     
 TSTEXT    UARGC    DEFINE 24,6        ARGUMENT COUNT = NUMBER OF ARGUMENTS TO             TSTEXT      1162     A     
 TSTEXT                                A USER SUBROUTINE OR FUNCTION.                      TSTEXT      1163     A     
 TSTEXT   *                NOTE -- BE VERY CAREFUL ABOUT THE DIFFERENCE BETWEEN            TSTEXT      1164     A     
 TSTEXT   *                            THIS FIELD AND *ARGC*.                              TSTEXT      1165     A     
 TSTEXT   ****                                                                             TSTEXT      1166     A     
 TSTEXT                                                                                    TSTEXT      1167     A     
 TSTEXT    CLASS    DEFINE 3,15        *CLASS* OF SYMBOL                                   TSTEXT      1168     A     
 TSTEXT                                                                                    TSTEXT      1169     A     
 TSTEXT   ****                                                                             TSTEXT      1170     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 379    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *         NOTE - THESE DEFINES REPLACE THOSE FORMERLY GENERATED BY THE           TSTEXT      1171     A     
 TSTEXT   *         CLASS MACRO, WITH P.CLASS AS BASE.                                     TSTEXT      1172     A     
 TSTEXT                                                                                    TSTEXT      1173     A     
 TSTEXT    DEF      DEFINE P.CLASS+0                                                       TSTEXT      1174     A     
 TSTEXT    FP       DEFINE P.CLASS+1                                                       TSTEXT      1175     A     
 TSTEXT    ENT      DEFINE P.CLASS+2                                                       TSTEXT      1176     A     
 TSTEXT    EXT      DEFINE P.CLASS+3                                                       TSTEXT      1177     A     
 TSTEXT    LEV      DEFINE P.CLASS+4   IS A LEVEL VARIABLE                                 TSTEXT      1178     A     
 TSTEXT    ARY      DEFINE P.CLASS+5                                                       TSTEXT      1179     A     
 TSTEXT    NLST     DEFINE P.CLASS+6                                                       TSTEXT      1180     A     
 TSTEXT    EQUIV    DEFINE P.CLASS+7                                                       TSTEXT      1181     A     
 TSTEXT    COMM     DEFINE P.CLASS+8                                                       TSTEXT      1182     A     
 TSTEXT    VAR      DEFINE P.CLASS+9                                                       TSTEXT      1183     A     
 TSTEXT    NVAR     DEFINE P.CLASS+10                                                      TSTEXT      1184     A     
 TSTEXT    RP       DEFINE P.CLASS+11                                                      TSTEXT      1185     A     
 TSTEXT    TYP      DEFINE P.CLASS+12                                                      FCC1237        6     A     
 TSTEXT    EST      DEFINE P.CLASS+13  APPEARS IN EXTERNAL STATEMENT                       FCC1716X       6     A     
 TSTEXT                                                                                    TSTEXT      1186     A     
 TSTEXT    CLASS2   DEFINE P.ENT,P.RP+1-P.ENT                                              TSTEXT      1187     A     
 TSTEXT                                                                                    TSTEXT      1188     A     
 TSTEXT   ****                                                                             TSTEXT      1189     A     
 TSTEXT   *         NOTE - THESE DEFINES REPLACE THOSE FORMERLY GENERATED BY THE           TSTEXT      1190     A     
 TSTEXT   *         CLASS MACRO, WITH P.ENT AS BASE.                                       TSTEXT      1191     A     
 TSTEXT                                                                                    TSTEXT      1192     A     
 TSTEXT    ENT=     DEFINE P.ENT+0                                                         TSTEXT      1193     A     
 TSTEXT    EXT=     DEFINE P.ENT+1                                                         TSTEXT      1194     A     
 TSTEXT    FUN      DEFINE P.ENT+2                                                         TSTEXT      1195     A     
 TSTEXT    BEF      DEFINE P.ENT+3                                                         TSTEXT      1196     A     
 TSTEXT    SUB      DEFINE P.ENT+4                                                         TSTEXT      1197     A     
 TSTEXT    ASF      DEFINE P.ENT+5                                                         TSTEXT      1198     A     
 TSTEXT    INLINE   DEFINE P.ENT+6                                                         TSTEXT      1199     A     
 TSTEXT   ****      SYMBOL TABLE ENTRY FORMAT FOR EITHER *BEF* OR *INTRINSIC*              TSTEXT      1200     A     
 TSTEXT   *                                                                                TSTEXT      1201     A     
 TSTEXT   *         +-----------------+ +-+-+-+--------+--+-----+-------------+--+         TSTEXT      1202          I
          -FCC0966
 TSTEXT   *         +                 +/+A+B+A+ SHIFT  +A + NUM +             +M +         TSTEXT      1203          I
          -FCC0966
 TSTEXT   *         +   T    A    G   +/+B+E+N+ COUNT  +R + OF  +  C L A S S  +O +         TSTEXT      1204          I
          -FCC0966
 TSTEXT   *         +                 +/+N+F+S+  OR    +G + ARGS+             +D +         TSTEXT      1205          I
          -FCC0966
 TSTEXT   *         +                 +/+L+F+I+ ADDRESS+M +     +             +E +         TSTEXT      1206          I
          -FCC0966
 TSTEXT   *         +-----------------+-+-+-+-+--------+--+-----+-------------+--+         TSTEXT      1207          I
          -FCC0966
 TSTEXT   *         +-----------------+---+-+-+--------+--+-----+-------------+--+         FCC0966        5     A     
 TSTEXT   *         +                 +///+B+A+ SHIFT  +A + NUM +             +M +         FCC0966        6     A     
 TSTEXT   *         +   T    A    G   +///+E+N+ COUNT  +R + OF  +  C L A S S  +O +         FCC0966        7     A     
 TSTEXT   *         +                 +///+F+S+  OR    +G + ARGS+             +D +         FCC0966        8     A     
 TSTEXT   *         +                 +///+F+I+ ADDRESS+M +     +             +E +         FCC0966        9     A     
 TSTEXT   *         +-----------------+---+-+-+--------+--+-----+-------------+--+         FCC0966       10     A     
 TSTEXT   *                18            7        9      3   6         15      3           TSTEXT      1208     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 380    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT                                                                                    TSTEXT      1209     A     
 TSTEXT                                                                                    TSTEXT      1210     A     
 TSTEXT    ARGMF    DEFINE 24,3                                                            TSTEXT      1211     A     
 TSTEXT    JPADF    DEFINE 27,9                                                            TSTEXT      1212     A     
 TSTEXT    ANSIF    DEFINE 36,1                                                            TSTEXT      1213     A     
 TSTEXT    BEFF     DEFINE 37,1                                                            TSTEXT      1214     A     
 TSTEXT    ABNF     DEFINE 38,1                                                            TSTEXT      1215          I
          -FCC0966
 TSTEXT                                                                                    TSTEXT      1216     A     
 TSTEXT    ARGC     DEFINE 18,6        ARGUMENT COUNT = NUMBER OF ARGUMENTS TO             TSTEXT      1217     A     
 TSTEXT                                AN *NVAR*.  DEFINED ONLY FOR A *BEF*, *ASF*         TSTEXT      1218     A     
 TSTEXT                                OR *INLINE*.                                        TSTEXT      1219     A     
 TSTEXT   *                NOTE -- BE VERY CAREFUL ABOUT THE DIFFERENCE BETWEEN            TSTEXT      1220     A     
 TSTEXT   *                            THIS FIELD AND *UARGC*.                             TSTEXT      1221     A     
 TSTEXT                                                                                    TSTEXT      1222     A     
 TSTEXT    PARM     DEFINE P.ARGC,L.ARGC                                                   TSTEXT      1223          I
          -FCC1201
 TSTEXT    ASFP     DEFINE 24,18       ASF SKELETON POINTER - DEFINED ONLY FOR ASF         FCC1201        4     A     
 TSTEXT   ****                                                                             TSTEXT      1224     A     
 TSTEXT    MODE     SPACE  4,8                                                             TSTEXT      1225     A     
 TSTEXT   **** 4.   MODE - THE FOLLOWING SYMBOLS DEFINE THE MODE A SYMBOL MAY HAVE         TSTEXT      1226     A     
 TSTEXT   *                ON ENTRY TO THE SYBMOL TABLE.                                   TSTEXT      1227          I
          -FEAT155G 
 TSTEXT   *                ON ENTRY TO THE SYMBOL TABLE.                                   TSTEXT      1228     A     
 TSTEXT                                                                                    TSTEXT      1229     A     
 TSTEXT                                                                                    TSTEXT      1230     A     
 TSTEXT    MODE     DEFINE 0,P.CLASS   *MODE* OF ELEMENT.                                  TSTEXT      1231     A     
 TSTEXT                                                                                    TSTEXT      1232     A     
 TSTEXT    M.MODE   EQU    7           UPPER LIMIT VALUE OF MODE,                          TSTEXT      1233     A     
 TSTEXT                                                                                    TSTEXT      1234     A     
 TSTEXT    M.UNIV   EQU    0           CHAMELEON.                                          TSTEXT      1235     A     
 TSTEXT    M.LOG    EQU    1           LOGICAL                                             TSTEXT      1236     A     
 TSTEXT    M.INT    EQU    2           INTEGER                                             TSTEXT      1237     A     
 TSTEXT    M.REAL   EQU    3           REAL                                                TSTEXT      1238     A     
 TSTEXT                                                                                    TSTEXT      1239     A     
 TSTEXT    LONG     DEFINE 2           IS A DOUBLE-WORD ELEMENT,                           TSTEXT      1240     A     
 TSTEXT    M.DBL    EQU    4           DOUBLE PRECISION,                                   TSTEXT      1241     A     
 TSTEXT    M.CPLX   EQU    5           COMPLEX,                                            TSTEXT      1242     A     
 TSTEXT                                                                                    TSTEXT      1243     A     
 TSTEXT    L.TYPE   EQU    M.CPLX      NUMBER OF DIFFERENT (HONEST) TYPES.                 TSTEXT      1244     A     
 TSTEXT                                                                                    TSTEXT      1245     A     
 TSTEXT    M.CHAR   EQU    6           CHAR STRING WITH LIST-DIRECTED I/O                  TSTEXT      1246     A     
 TSTEXT    M.NAML   EQU    6           NAMELIST (FAKE)                                     TSTEXT      1247     A     
 TSTEXT    M.SUBRT  EQU    7           SUBROUTINE (FAKE)                                   TSTEXT      1248     A     
 TSTEXT                                                                                    TSTEXT      1249     A     
 TSTEXT    M.SYSEXT EQU    M.NVAR+M.EXT      FOR STANDARD SYSTEM ROUTINES.                 TSTEXT      1250     A     
 TSTEXT    M.BEFF   EQU    M.NVAR+M.EXT+M.FUN+M.BEF+M.DEF                                  TSTEXT      1251     A     
 TSTEXT    M.INLF   EQU    M.NVAR+M.INLINE+M.FUN+M.DEF                                     TSTEXT      1252     A     
 TSTEXT    TA.NAM   SPACE  4,15                                                            TSTEXT      1253     A     
 TSTEXT   ****      TA.NAM - VARIABLE ADDRESS TABLE                                        TSTEXT      1254     A     
 TSTEXT                                                                                    TSTEXT      1255     A     
 TSTEXT   *         +-----------------+-----+-----------+-----------------------+          TSTEXT      1256     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 381    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *         +                 +/////+           + OVER   +    BLOCK     +          TSTEXT      1257     A     
 TSTEXT   *         +   TAG  ORDINAL  +/////+ BLOCK NO. +        +   RELATIVE   +          TSTEXT      1258     A     
 TSTEXT   *         +                 +/////+           + FLOW   +   ADDRESS    +          TSTEXT      1259     A     
 TSTEXT   *         +-----------------+-----+-----------+-----------------------+          TSTEXT      1260     A     
 TSTEXT   *         PARALLEL TO TT.NAM.                                                    TSTEXT      1261     A     
 TSTEXT   *         THIS TABLE IS ALLOCATED TWICE, FIRST WHEN DECLARATIVES ARE             TSTEXT      1262     A     
 TSTEXT   *                CLOSED, AND AGAIN AT *END* TIME.                                TSTEXT      1263     A     
 TSTEXT                                                                                    TSTEXT      1264     A     
 TSTEXT   * TA.NAM  TABLE  3           ADDRESS OF VARIABLES                                TSTEXT      1265     A     
 TSTEXT                                                                                    TSTEXT      1266     A     
 TSTEXT    TAG      DEFINE 42,18       TAG (ORDINAL ONLY)                                  TSTEXT      1267     A     
 TSTEXT    BLOCK    DEFINE 24,12       TS.BLK ORDINAL                                      TSTEXT      1268     A     
 TSTEXT    RELADD   DEFINE  0,24       BLOCK-RELATIVE ADDRESS                              TSTEXT      1269     A     
 TSTEXT   ****                                                                             TSTEXT      1270     A     
 TSTEXT    TS.STN   SPACE  4,60                                                            TSTEXT      1271     A     
 TSTEXT   ****      TS.STN - STATEMENT NUMBER TABLE.                                       TSTEXT      1272     A     
 TSTEXT   *         (1ST WORD OF TABLE - SYMBOL WORD)                                      TSTEXT      1273     A     
 TSTEXT   *         59                                       18                 0          TSTEXT      1274     A     
 TSTEXT   *         +-----------------------------------------+-----------------+          TSTEXT      1275     A     
 TSTEXT   *         +                                         +                 +          TSTEXT      1276     A     
 TSTEXT   *         +   S T A T E M E N T      L A B E L      +  HASH POINTER   +          TSTEXT      1277     A     
 TSTEXT   *         +                                         +                 +          TSTEXT      1278     A     
 TSTEXT   *         +-----------------------------------------+-----------------+          TSTEXT      1279     A     
 TSTEXT   *         +                   42                    +      18         +          TSTEXT      1280     A     
 TSTEXT                                                                                    TSTEXT      1281     A     
 TSTEXT    PSTN     EQU    5           LOG(2) OF NUM OF STAT TAB ENTRIES                   TSTEXT      1282     A     
 TSTEXT    A        DECMIC 1+PSTN                                                          TSTEXT      1283          I
          -FCC0813
 TSTEXT    A        DECMIC PSTN                                                            FCC0813        8     A     
 TSTEXT    LSTN     EQU    1S"A"                                                           TSTEXT      1284     A     
 TSTEXT                                                                                    TSTEXT      1285     A     
 TSTEXT   * TS.STN  TABLE  4,LSTN      STATEMENT NUMBER TABLE                              TSTEXT      1286     A     
 TSTEXT    SERR.    MICRO  1,, 5R(ERR) ERROR LABEL FOR STATEMENT ERROR                     TSTEXT      1287     A     
 TSTEXT    STN      DEFINE 18,30       STATEMENT NUMBER (R-JUST, ZERO FILL)                TSTEXT      1288     A     
 TSTEXT                                                                                    TSTEXT      1289     A     
 TSTEXT   *         (2ND WORD OF TABLE ENTRY - TAG WORD)                                   TSTEXT      1290     A     
 TSTEXT   *         +-----------------+-----------------+------------+----------+          TSTEXT      1291     A     
 TSTEXT   *         +                 +                 +            +          +          TSTEXT      1292     A     
 TSTEXT   *         +     T  A  G          ADDRESS        LINK POINT.+  CLASS   +          TSTEXT      1293     A     
 TSTEXT   *         +                 +                 +            +          +          TSTEXT      1294     A     
 TSTEXT   *         +-----------------+-----------------+------------+----------+          TSTEXT      1295     A     
 TSTEXT   *                                                                                TSTEXT      1296     A     
 TSTEXT                                                                                    TSTEXT      1297     A     
 TSTEXT    TAG      DEFINE 42,18                                                           TSTEXT      1298     A     
 TSTEXT    SNAD     DEFINE 24,18                                                           TSTEXT      1299     A     
 TSTEXT    SLINK    DEFINE 11,13                                                           TSTEXT      1300     A     
 TSTEXT    SNCLS    DEFINE 0,11                                                            TSTEXT      1301     A     
 TSTEXT                                                                                    TSTEXT      1302     A     
 TSTEXT   *         SNCLS FIELD DEFINITION                                                 TSTEXT      1303     A     
 TSTEXT                                                                                    TSTEXT      1304     A     
 TSTEXT    SNREF    DEFINE 0           IF STATEMENT NUMBER REFERENCED                      TSTEXT      1305     A     
 TSTEXT    SNDEF    DEFINE 1           IF     -      -     DEFINED.                        TSTEXT      1306     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 382    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT    SNINA    DEFINE 2           IF     -      -     IS INACTIVE                     TSTEXT      1307     A     
 TSTEXT    SNE      DEFINE 3           IF     -      -     IS ENTRY TO *DO*                TSTEXT      1308     A     
 TSTEXT    SNX      DEFINE 4           IF     -      -     IS EXIT FROM *DO*               TSTEXT      1309     A     
 TSTEXT    SNNS     DEFINE 5                               IF NESTED *DO*                  TSTEXT      1310     A     
 TSTEXT    SNEX     DEFINE 6                               IF EXTERNAL CALL IN DO          TSTEXT      1311     A     
 TSTEXT    SNLAB    DEFINE 7           IF     -      -    IS CONTROL                       TSTEXT      1312     A     
 TSTEXT    SNFMT    DEFINE 8           IF     -      -     IS A FORMAT NUMBER              TSTEXT      1313     A     
 TSTEXT    SNDOT    DEFINE 9           IF     -      -     DO-TERMINATOR                   TSTEXT      1314     A     
 TSTEXT    SNOPE    DEFINE 10          DO LOOP IS OPEN - (EXTENDED RANGE.)                 TSTEXT      1315     A     
 TSTEXT                                (CAN ONLY BE SET ON TAGS HAVING *SNDOT* BIT         TSTEXT      1316     A     
 TSTEXT                                 SET.)                                              TSTEXT      1317     A     
 TSTEXT   ****                                                                             TSTEXT      1318     A     
 TSTEXT    #FID     IFNE   .FID,0                                                          F66FCC        44     A     
 TSTEXT    T.LNT    SPACE  4,12                                                            F66FCC        45     A     
 TSTEXT   ****      T.LNT - LINE NUMBER TABLE                                              F66FCC        46     A     
 TSTEXT                                                                                    F66FCC        47     A     
 TSTEXT   *                          42    36                18                 0          F66FCC        48     A     
 TSTEXT   *         +-----------------+-----+-----------------+-----------------+          F66FCC        49     A     
 TSTEXT   *         +                 +/////+                 +                 +          F66FCC        50     A     
 TSTEXT   *         +STATEMENT NUMBER +/////+   LINE NUMBER   +  LINE ADDRESS   +          F66FCC        51     A     
 TSTEXT   *         +                 +/////+                 +                 +          F66FCC        52     A     
 TSTEXT   *         +-----------------+-----+-----------------+-----------------+          F66FCC        53     A     
 TSTEXT   *                 18                      18                18                   F66FCC        54     A     
 TSTEXT                                                                                    F66FCC        55     A     
 TSTEXT   * T.LNT   TABLE  4           IMAGE OF 57 LOADER TABLE                            F66FCC        56     A     
 TSTEXT                                                                                    F66FCC        57     A     
 TSTEXT                                                                                    F66FCC        58     A     
 TSTEXT    SN       DEFINE 42,18       STATEMENT NUMBER (LABEL)                            F66FCC        59     A     
 TSTEXT    LN       DEFINE 18,18       LINE NUMBER                                         F66FCC        60     A     
 TSTEXT    OCORG    DEFINE 0,18        ADDRESS OF LINE                                     F66FCC        61     A     
 TSTEXT   ****                                                                             F66FCC        62     A     
 TSTEXT    #FID     ENDIF                                                                  F66FCC        63     A     
 TSTEXT    TT.COMM  SPACE  4,20                                                            TSTEXT      1319     A     
 TSTEXT   ****      TT.COMM - COMMON TAG TABLE.                                            TSTEXT      1320     A     
 TSTEXT                                                                                    TSTEXT      1321     A     
 TSTEXT   *         59              42                24    18                 0           TSTEXT      1322     A     
 TSTEXT   *         +-----------------+-----+-----------+-----------------------+          TSTEXT      1323     A     
 TSTEXT   *         +                 +/////+           + OVER   +    BLOCK     +          TSTEXT      1324     A     
 TSTEXT   *         +   TAG  ORDINAL  +/////+ BLOCK NO. +        +   RELATIVE   +          TSTEXT      1325     A     
 TSTEXT   *         +                 +/////+           + FLOW   +   ADDRESS    +          TSTEXT      1326     A     
 TSTEXT   *         +-----------------+-----+-----------+-----------------------+          TSTEXT      1327     A     
 TSTEXT   *         +      18        +       18        +  6  +      18         +           TSTEXT      1328     A     
 TSTEXT                                                                                    TSTEXT      1329     A     
 TSTEXT   * TT.COMM TABLE  =,TT.USE    COMMON TAGS (PHASE 1 ONLY)                          TSTEXT      1330     A     
 TSTEXT                                                                                    TSTEXT      1331     A     
 TSTEXT    TAG      DEFINE 42,18       V- OR W- TAG                                        TSTEXT      1332     A     
 TSTEXT    BLOCK    DEFINE 24,12       TS.BLK ORDINAL                                      TSTEXT      1333     A     
 TSTEXT    RELADD   DEFINE  0,24       BLOCK-RELATIVE ADDRESS                              TSTEXT      1334     A     
 TSTEXT   ****                                                                             TSTEXT      1335     A     
 TSTEXT    TP.DIM   EJECT                                                                  TSTEXT      1336     A     
 TSTEXT   ****      TP.DIM - DIMENSION PARAMETER TABLE                                     TSTEXT      1337     A     
 TSTEXT                                                                                    TSTEXT      1338     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 383    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *         5    5    4 4                      2                                   TSTEXT      1339     A     
 TSTEXT   *         9    4    9 7                      4                       0           TSTEXT      1340     A     
 TSTEXT   *         +----+----+-+----------------------+-----------------------+           TSTEXT      1341     A     
 TSTEXT   *         + NR +WORD+V+T                     +T                      +           TSTEXT      1342     A     
 TSTEXT   *         +    +COUN+D+D    D I M  2         +D    D I M  1          +           TSTEXT      1343     A     
 TSTEXT   *         +DIMS+THIS+I+I          (4,6,...)  +I          (3,5,...)   +           TSTEXT      1344     A     
 TSTEXT   *         +    +NTRY+M+M                     +M                      +           TSTEXT      1345     A     
 TSTEXT   *         +----+----+-+----------------------+-----------------------+           TSTEXT      1346     A     
 TSTEXT   *         + 6  + 5  +1+        24            +           24          +           TSTEXT      1347     A     
 TSTEXT                                                                                    TSTEXT      1348     A     
 TSTEXT                                                                                    TSTEXT      1349     A     
 TSTEXT   * TP.DIM  TABLE  1,2         DIMENSION PARAMETERS                                TSTEXT      1350     A     
 TSTEXT                                                                                    TSTEXT      1351     A     
 TSTEXT                                                                                    TSTEXT      1352     A     
 TSTEXT   *         THIS TABLE HOLDS THE DIMENSIONING INFORMATION FOR EVERY ARRAY          TSTEXT      1353     A     
 TSTEXT   *                DECLARATION.  THE *PNT* FIELD OF TT.NAM (FOR AN ARRAY)          TSTEXT      1354     A     
 TSTEXT   *                CONTAINS THE ORDINAL OF THE CORRESPONDING TP.DIM ENTRY.         TSTEXT      1355     A     
 TSTEXT   *                NOTE SPECIFICALLY THAT MORE THAN ONE ARRAY MAY POINT TO         TSTEXT      1356     A     
 TSTEXT   *                THE SAME DIM TABLE ENTRY (HOPEFULLY, NOT UNLESS THE             TSTEXT      1357     A     
 TSTEXT   *                ARRAYS HAVE IDENTICAL DIMENSIONS).                              TSTEXT      1358     A     
 TSTEXT                                                                                    TSTEXT      1359     A     
 TSTEXT    NDIM     DEFINE 54,6        NUMBER OF DIMENSIONS OF THIS ARRAY.                 TSTEXT      1360     A     
 TSTEXT    VDIM     DEFINE 29          *ON* IF THIS ARRAY IS VARIABLY DIMENSIONED.         TSTEXT      1361     A     
 TSTEXT                                                                                    TSTEXT      1362     A     
 TSTEXT   *         THE NDIM, WDIM, AND VDIM FIELDS ARE PRESENT ONLY IN THE FIRST          TSTEXT      1363     A     
 TSTEXT   *                WORD OF AN ENTRY.                                               TSTEXT      1364     A     
 TSTEXT                                                                                    TSTEXT      1365     A     
 TSTEXT                                                                                    TSTEXT      1366     A     
 TSTEXT    P.DIM    EQU    30          POSITION OF UPPER FIELDS.                           TSTEXT      1367     A     
 TSTEXT    L.DIM    EQU    24          LENGTH OF EACH DIM DESCRIPTOR.                      TSTEXT      1368     A     
 TSTEXT    TDIM     DEFINE L.DIM-1     TAG FLAG BIT FOR EACH DIM DESCRIPTOR.               TSTEXT      1369     A     
 TSTEXT                                  (RELATIVE POSITION WITHIN EACH FIELD.)            TSTEXT      1370     A     
 TSTEXT                                SET IF THIS DESCRIPTOR IS A TAG ORDINAL             TSTEXT      1371     A     
 TSTEXT                                INSTEAD OF A NUMBER                                 TSTEXT      1372     A     
 TSTEXT    SDIM     DEFINE P.TDIM-1    INDICATE VARIABLE DIMENSION ALREADY DEFINED         TSTEXT      1373     A     
 TSTEXT                                IN LOCAL *V-TAG* CELL.                              TSTEXT      1374     A     
 TSTEXT    CDIM     DEFINE P.SDIM-1    INDICATE THIS DIMENSIONALITY WITHIN A               TSTEXT      1375     A     
 TSTEXT                                VARIABLE DIMENSIONED ARRAY IS A CONSTANT.           TSTEXT      1376     A     
 TSTEXT                                                                                    TSTEXT      1377     A     
 TSTEXT   *         OBVIOUSLY, IF ANY OF THE *TDIM* BITS IN AN ENTRY ARE SET, THE          TSTEXT      1378     A     
 TSTEXT   *                *VDIM* BIT WILL BE SET ALSO.                                    TSTEXT      1379     A     
 TSTEXT                                                                                    TSTEXT      1380     A     
 TSTEXT   *         THE LOWER 48 BITS ARE DIVIDED INTO TWO 24 BIT FIELDS WHICH             TSTEXT      1381     A     
 TSTEXT   *                CONTAIN THE DIMENSIONALITY DESCRIPTORS.                         TSTEXT      1382     A     
 TSTEXT   *         COUNTING DIMENSIONS IN THE SOURCE STATEMENT FROM LEFT TO RIGHT         TSTEXT      1383     A     
 TSTEXT   *                DIMENSION NUMBER ONE IS IN THE LOWER DIM FIELD OF THE           TSTEXT      1384     A     
 TSTEXT   *                FIRST WORD.  THE UPPER BYTE IS DIM 2.                           TSTEXT      1385     A     
 TSTEXT   *         SUCCEEDING WORDS CONSIST OF MORE DIM FIELDS, THE LOWER ONE             TSTEXT      1386     A     
 TSTEXT   *                ALWAYS CONTAINING AN ODD DIMENSIONALITY, AND THE UPPER          TSTEXT      1387     A     
 TSTEXT   *                WITH THE (NEXT) EVEN ONE.  THIS CONTINUES FOR AS MANY           TSTEXT      1388     A     
 TSTEXT   *                WORDS AS ARE NECESSARY TO REPRESENT THE ARRAY.                  TSTEXT      1389     A     
 TSTEXT   *         UNUSED FIELDS (WHEN AN ARRAY HAS AN ODD NUMBER OF DIMENSIONS)          TSTEXT      1390     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 384    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *                ARE ZERO.  A LOWER DESCRIPTOR CAN NEVER BE ZERO.                TSTEXT      1391     A     
 TSTEXT                                                                                    TSTEXT      1392     A     
 TSTEXT    DIMOS    DEFINE 0,L.DIM     INITIAL ARRAY OFFSET.  USED BY SUBSCRIPT            TSTEXT      1393     A     
 TSTEXT                                PROCESSORS.                                         TSTEXT      1394     A     
 TSTEXT   *         DIMOS  =  SIGMA [1@J@N, PI (0@K@J-1, DIM(K)) ]                         TSTEXT      1395     A     
 TSTEXT                                                                                    TSTEXT      1396     A     
 TSTEXT    DIMLG    DEFINE P.DIM,L.DIM       ARRAY SIZE.  TOTAL NUMBER OF ELEMENTS         TSTEXT      1397     A     
 TSTEXT                                NOT NUMBER OF WORDS (UNLESS ELEMENT LENGTH          TSTEXT      1398     A     
 TSTEXT                                = 1 WORD).                                          TSTEXT      1399     A     
 TSTEXT                                                                                    TSTEXT      1400     A     
 TSTEXT   *         THESE TWO FIELDS ARE IN ONE WORD AS THE LAST WORD OF THE               TSTEXT      1401     A     
 TSTEXT   *                ENTRY.  THEY ARE NOT KNOWN FOR A VARIABLY DIMENSIONED           TSTEXT      1402     A     
 TSTEXT   *                ARRAY, AND THEREFORE THIS WORD IS NOT PRESENT IF *VDIM*         TSTEXT      1403     A     
 TSTEXT   *                IS SET.                                                         TSTEXT      1404     A     
 TSTEXT   ****                                                                             TSTEXT      1405     A     
 TSTEXT    TP.DO    SPACE  4,20                                                            TSTEXT      1406     A     
 TSTEXT   ****      TP.DO - DO PARAMETER TABLE.                                            TSTEXT      1407     A     
 TSTEXT   *                                                                                TSTEXT      1408     A     
 TSTEXT   *         (6 WORD TABLE ENTRY FORMAT)                                            TSTEXT      1409     A     
 TSTEXT   *         1ST FOUR ENTRYS USE THE TAG ENTRY FORMAT FOR *TS.SYM*                  TSTEXT      1410     A     
 TSTEXT   *         1.  INITIAL VARIABLE.    (M1)                                          TSTEXT      1411     A     
 TSTEXT   *         2.  LIMIT   VARIABLE.    (M2)                                          TSTEXT      1412     A     
 TSTEXT   *         3.  INCREMENT VARIABLE.  (M3)                                          TSTEXT      1413     A     
 TSTEXT   *         4.  CONTROL VARIABLE.    (CI)                                          TSTEXT      1414     A     
 TSTEXT   *         5.  RETURN ADDRESS TAG.                                                TSTEXT      1415     A     
 TSTEXT   *         6.  DO STATEMENT NUMBER.                                               TSTEXT      1416     A     
 TSTEXT                                                                                    TSTEXT      1417     A     
 TSTEXT                                                                                    TSTEXT      1418     A     
 TSTEXT   * TP.DO   TABLE  2           DO PARAMETER TABLE                                  TSTEXT      1419     A     
 TSTEXT                                                                                    TSTEXT      1420     A     
 TSTEXT    OR.DOSI  EQU    0           ORDINAL OF INITIAL (STARTING) VALUE TAG.            TSTEXT      1421     A     
 TSTEXT    OR.DOLI  EQU    1              -    -  LIMIT VALUE TAG.                         TSTEXT      1422     A     
 TSTEXT    OR.DOII  EQU    2              -    -  INCREMENT VALUE TAG.                     TSTEXT      1423     A     
 TSTEXT    OR.DOCI  EQU    3              -    -  CONTROL VALUE TAG.                       TSTEXT      1424     A     
 TSTEXT    OR.DORT  EQU    4              -    -  RETURN ADDRESS TAG.                      TSTEXT      1425     A     
 TSTEXT    OR.DOSN  EQU    5           ORDINAL OF DO STATEMENT TAG.                        TSTEXT      1426     A     
 TSTEXT    DOTAG    DEFINE 18,18       IF *DO* IS AN I/O TYPE OR.DOSN CONTAINS             TSTEXT      1427     A     
 TSTEXT                                GENERATED TAG FOR DO IN LOW ORDER OF WORD           TSTEXT      1428     A     
 TSTEXT                                IF NOT AN I/O DO TAG FOR STATEMENT IS               TSTEXT      1429     A     
 TSTEXT                                SHIFTED UP BY P.DOTAG.                              TSTEXT      1430     A     
 TSTEXT                                                                                    TSTEXT      1431     A     
 TSTEXT    OR.DFLAG EQU    5           ORDINAL IN TURPLE FOR *DO* BEGIN OF FLAG            TSTEXT      1432     A     
 TSTEXT   *                            TO INDICATE TO PASS *2* PROCESSING OF *DO*          TSTEXT      1433     A     
 TSTEXT   *                            WHERE *DO* BEGIN *TURPLE* IS LOCATED IN             TSTEXT      1434     A     
 TSTEXT   *                            PARSED FILE.                                        TSTEXT      1435     A     
 TSTEXT                                                                                    TSTEXT      1436     A     
 TSTEXT    DFLAG    DEFINE 42,18       FIELD FOR *DO* BEGIN *TURPLE* RELATIVE              TSTEXT      1437     A     
 TSTEXT   *                            ADDRESS FOR PASS *2* AND PASS *3*                   TSTEXT      1438     A     
 TSTEXT   *                            PROCESSING.                                         TSTEXT      1439     A     
 TSTEXT                                                                                    TSTEXT      1440     A     
 TSTEXT    L.DOE    EQU    6           LENGTH OF EACH *DO* ENTRY.                          TSTEXT      1441     A     
 TSTEXT   ****                                                                             TSTEXT      1442     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 385    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT    TT.EQU   SPACE  4,60                                                            TSTEXT      1443     A     
 TSTEXT   ****      TT.EQU - EQUIVALENCE TAG TABLE.                                        TSTEXT      1444     A     
 TSTEXT   *         USED TO ACCUMULATE EQUIVALENCE INFORMATION DURING DECLARATIVE          TSTEXT      1445     A     
 TSTEXT   *                PROCESSING.  THROWN AWAY AFTER IT IS PROCESSED INTO             TSTEXT      1446     A     
 TSTEXT   *                TP.EQU AT *XUT* TIME.                                           TSTEXT      1447     A     
 TSTEXT                                                                                    TSTEXT      1448     A     
 TSTEXT                                                                                    TSTEXT      1449     A     
 TSTEXT   * TS.EQU  TABLE  1           TRANSLATED EQUIVALENCE STATEMENTS                   TSTEXT      1450     A     
 TSTEXT                                                                                    TSTEXT      1451     A     
 TSTEXT    EQLINK   DEFINE 48,12       LINK TO ROOT                                        TSTEXT      1452     A     
 TSTEXT    EQHI     DEFINE 24,24       SPACE ABOVE ROOT NEEDED                             TSTEXT      1453     A     
 TSTEXT    EQLO     DEFINE  0,24       SPACE BELOW ROOT NEEDED                             TSTEXT      1454     A     
 TSTEXT   ****                                                                             TSTEXT      1455     A     
 TSTEXT    TP.EQU   SPACE  4,8                                                             TSTEXT      1456     A     
 TSTEXT   ****      TP.EQU - EQUIVALENCE PARAMETER TABLE.                                  TSTEXT      1457     A     
 TSTEXT   *         CONTAINS EQUIVALENCE PAIRS AND OFFSETS.                                TSTEXT      1458     A     
 TSTEXT                                                                                    TSTEXT      1459     A     
 TSTEXT                                                                                    TSTEXT      1460     A     
 TSTEXT   * TP.EQU  TABLE  =,TS.EQU    EQUIVALENCE PARAMETER TABLE                         TSTEXT      1461     A     
 TSTEXT                                                                                    TSTEXT      1462     A     
 TSTEXT    EQU2     DEFINE P.TAG,L.TAG  SECONDARY NAME TAG                                 TSTEXT      1463     A     
 TSTEXT    EQU1     DEFINE 24,L.TAG    PRIMARY NAME TAG                                    TSTEXT      1464     A     
 TSTEXT    EQUB     DEFINE 0,24        BIAS:  ADDR[PRIMARY]+BIAS = ADDR[SECONDARY]         TSTEXT      1465     A     
 TSTEXT   ****                                                                             TSTEXT      1466     A     
 TSTEXT    TP.FMT   SPACE  4,60                                                            TSTEXT      1467     A     
 TSTEXT   ****      TP.FMT - FORMATS AND NAMELIST GROUPS                                   TSTEXT      1468     A     
 TSTEXT                                                                                    TSTEXT      1469     A     
 TSTEXT                                                                                    TSTEXT      1470     A     
 TSTEXT   * TP.FMT  TABLE  3                                                               TSTEXT      1471     A     
 TSTEXT   ****                                                                             TSTEXT      1472     A     
 TSTEXT    TT.ASF   SPACE  4,8                                                             TSTEXT      1473     A     
 TSTEXT   ****      TT.ASF - *ASF* SKELETON TABLE.                                         TSTEXT      1474     A     
 TSTEXT   *         CAN BE TRASHED AT *END* STATEMENT TIME.                                TSTEXT      1475     A     
 TSTEXT                                                                                    TSTEXT      1476     A     
 TSTEXT                                                                                    TSTEXT      1477     A     
 TSTEXT   * TT.ASF  TABLE  2                                                               TSTEXT      1478     A     
 TSTEXT   ****                                                                             TSTEXT      1479     A     
 TSTEXT    TT.PAR   SPACE  4,12                                                            TSTEXT      1480     A     
 TSTEXT   ****      TT.PAR - PARSED FILE.                                                  TSTEXT      1481     A     
 TSTEXT                                                                                    TSTEXT      1482     A     
 TSTEXT                                                                                    TSTEXT      1483     A     
 TSTEXT   * TT.PAR  TABLE  3                                                               TSTEXT      1484     A     
 TSTEXT                                                                                    TSTEXT      1485     A     
 TSTEXT                                                                                    TSTEXT      1486     A     
 TSTEXT   **        PARSED FILE ENTRY ORDINAL DEFINITIONS.                                 TSTEXT      1487     A     
 TSTEXT   *                ORDINALS ARE GIVEN RELATIVE TO EACH TURPLE.                     TSTEXT      1488     A     
 TSTEXT                                                                                    TSTEXT      1489     A     
 TSTEXT    L.TURP   EQU    3           LENGTH OF EACH TURPLE.                              TSTEXT      1490     A     
 TSTEXT                                                                                    TSTEXT      1491     A     
 TSTEXT    OR.OPR   EQU    0           ORDINAL OF  OPERATOR.                               TSTEXT      1492     A     
 TSTEXT    OR.1OP   EQU    1           ORDINAL OF  FIRST OPERAND.                          TSTEXT      1493     A     
 TSTEXT    OR.2OP   EQU    2           ORDINAL OF  SECOND OPERAND.                         TSTEXT      1494     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 386    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   ****                                                                             TSTEXT      1495     A     
 TSTEXT    T.VDIM   SPACE  4,15                                                            TSTEXT      1496     A     
 TSTEXT   **        T.VDIM - VARIABLE DIMENSION PRE-SET TURPLES.                           TSTEXT      1497     A     
 TSTEXT   *                                                                                TSTEXT      1498     A     
 TSTEXT   *         TURPLES FOR PRE-COMPUTING VARIABLE DIMENSION SUBSCRIPT                 TSTEXT      1499     A     
 TSTEXT   *         TERMS ARE ACCUMULATED IN THIS TABLE.  WHEN THE *END* STATEMENT         TSTEXT      1500     A     
 TSTEXT   *         IS ENCOUNTERED, THESE TURPLES ARE COMPILED INTO THE OBJECT             TSTEXT      1501     A     
 TSTEXT   *         PROGRAM.                                                               TSTEXT      1502     A     
 TSTEXT                                                                                    TSTEXT      1503     A     
 TSTEXT                                                                                    TSTEXT      1504     A     
 TSTEXT   * T.VDIM  TABLE  1           VARIABLE DIMENSION TURPLES.                         TSTEXT      1505     A     
 TSTEXT    TP.NLST  SPACE  4,8                                                             TSTEXT      1506     A     
 TSTEXT   ****      TP.NLST - TABLE OF "NAMELIST" GROUPS.                                  TSTEXT      1507     A     
 TSTEXT   *         NAMELIST GROUP DEFINITIONS ARE STORED IN HERE.                         TSTEXT      1508     A     
 TSTEXT   *         THE *ARR* FIELD OF THE TT.NAM ENTRY OF A NAMELIST-GROUP NAME           TSTEXT      1509     A     
 TSTEXT   *                POINTS INTO THIS TABLE.                                         TSTEXT      1510     A     
 TSTEXT                                                                                    TSTEXT      1511     A     
 TSTEXT                                                                                    TSTEXT      1512     A     
 TSTEXT   * TP.NLST TABLE  1                                                               TSTEXT      1513     A     
 TSTEXT   ****                                                                             TSTEXT      1514     A     
 TSTEXT    TP.APL   SPACE  4,8                                                             TSTEXT      1515     A     
 TSTEXT   ****      TP.APL - TABLE OF ACTUAL PARAMETER LISTS.                              TSTEXT      1516     A     
 TSTEXT   *         ORDINALS OF *AL-TAGS* POINT INTO THIS TABLE.                           TSTEXT      1517     A     
 TSTEXT                                                                                    TSTEXT      1518     A     
 TSTEXT                                                                                    TSTEXT      1519     A     
 TSTEXT   * TP.APL  TABLE  3           ACTUAL PARAMETER LISTS                              TSTEXT      1520     A     
 TSTEXT                                                                                    TSTEXT      1521     A     
 TSTEXT   *         TAG AND BIAS FIELDS MUST HAVE SAME POSITION RELATIVE TO EACH           TSTEXT      1522     A     
 TSTEXT   *                OTHER AS THEY DO IN THE LONG FILE.  MUST ALSO BE SAME           TSTEXT      1523     A     
 TSTEXT   *                LENGTH.                                                         TSTEXT      1524     A     
 TSTEXT                                                                                    TSTEXT      1525     A     
 TSTEXT    ATAG     DEFINE 42,L.TAG    TAG (VAR, CON, OR TEM)                              TSTEXT      1526     A     
 TSTEXT    ABIAS    DEFINE 24,L.LBIAS                                                      TSTEXT      1527     A     
 TSTEXT             IFNE   P.LTAG-P.LBIAS,P.ATAG-P.ABIAS,1                                 TSTEXT      1528     A     
 TSTEXT             ERR    AP-LIST AND LONG FILE TAG/BIAS FIELDS OUT OF SYNCH.             TSTEXT      1529     A     
 TSTEXT                                                                                    TSTEXT      1530     A     
 TSTEXT    ASIZ     DEFINE 0,13        FOR AN I/O ITEM, THIS IS NBREL,                     TSTEXT      1531     A     
 TSTEXT                                VALUE DEPENDS ON (ATYP) --                          TSTEXT      1532     A     
 TSTEXT    ATYP     DEFINE 13,3                                                            TSTEXT      1533     A     
 TSTEXT    AP=SIZ   EQU    1           1 _ ASIZ IS ELEMENT LENGTH                          TSTEXT      1534     A     
 TSTEXT    AP=CON   EQU    2           2 _ ASIZ IS CON-TAG ORDINAL                         TSTEXT      1535     A     
 TSTEXT    AP=TEM   EQU    3           3 _ ASIZ IS TEM-TAG ORDINAL.                        TSTEXT      1536     A     
 TSTEXT    AP=PRO   EQU    4           4 _ ASIZ IS PRO-TAG ORDINAL                         TSTEXT      1537     A     
 TSTEXT    AP=UIOC  EQU    5           5 _ ASIZ IS OUTPUT CONTROL                          TSTEXT      1538     A     
 TSTEXT                                                                                    TSTEXT      1539     A     
 TSTEXT    AVAR     DEFINE 16          SET *VAR* BIT IN THE I/O LIST                       TSTEXT      1540     A     
 TSTEXT    AFIT     DEFINE 17          SET *FIT* BIT IN THE I/O LIST                       TSTEXT      1541     A     
 TSTEXT    AFMT     DEFINE 18          SET *FMT* BIT IN THE I/O LIST.                      TSTEXT      1542          I
          -FCC0589
 TSTEXT    ASTL     DEFINE 19          SET *STL* BIT IN THE I/O LIST                       TSTEXT      1543          I
          -FCC0589
 TSTEXT    ALCM     DEFINE 20          SET *LCM* BIT IN THE I/O LIST                       TSTEXT      1544     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 387    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT                                                                                    TSTEXT      1545     A     
 TSTEXT    APIO     DEFINE 0,21        IF ENTIRE FIELD IS ZERO, THIS IS NOT AN             TSTEXT      1546     A     
 TSTEXT                                I/O ITEM, BUT MERELY A NORMAL AP-LIST               TSTEXT      1547     A     
 TSTEXT                                ENTRY, SAVING *KAP* MUCH GRIEF.                     TSTEXT      1548     A     
 TSTEXT                                A LEVEL 3 ITEM GETS TREATED AS AN I/O ITEM,         TSTEXT      1549     A     
 TSTEXT                                AGAIN SAVING *KAP* SOME GRIEF.                      TSTEXT      1550     A     
 TSTEXT                                                                                    TSTEXT      1551     A     
 TSTEXT   **        AN OBJECT-LIBRARY (I/O) AP-LIST ENTRY HAS THE FOLLOWING FORMAT         TSTEXT      1552     A     
 TSTEXT   *                IN THE BINARY --                                                TSTEXT      1553     A     
 TSTEXT                                                                                    TSTEXT      1554     A     
 TSTEXT    IOLCM    DEFINE 59          ITEM IS LCM/ECS RESIDENT                            TSTEXT      1555     A     
 TSTEXT    IOFIT    DEFINE 59          ITEM IS A VARIABLE FIT INDICATOR.                   TSTEXT      1556     A     
 TSTEXT    IOFP     DEFINE 58          ITEM IS A FORMAL PARAMETER.                         TSTEXT      1557     A     
 TSTEXT    IOIND    DEFINE 57          ITEM IS INDIRECTLY REFERENCED.                      TSTEXT      1558     A     
 TSTEXT                                (FOR AN ACTUAL LIST-VARIABLE, THE ITEM              TSTEXT      1559     A     
 TSTEXT                                LENGTH IS INDIRECTED.)                              TSTEXT      1560     A     
 TSTEXT    IOFMTP   DEFINE 56          ITEM IS A FORMAT STMT. POINTER                      TSTEXT      1561          I
          -FCC0589
 TSTEXT    IOSTL    DEFINE 55          ITEM IS A STATEMENT LABEL                           TSTEXT      1562          I
          -FCC0589
 TSTEXT    IOTYP    DEFINE 48,L.MODE TYPE OF ITEM                                          TSTEXT      1563     A     
 TSTEXT    IOSIZ    DEFINE 30,18       ADDRESS OF WORD CONTAINING NUMBER OF                TSTEXT      1564     A     
 TSTEXT                                ELEMENTS IN THIS I/O LIST ITEM, WHEN                TSTEXT      1565     A     
 TSTEXT                                *IOIND* IS SET.                                     TSTEXT      1566     A     
 TSTEXT    IOLEN    DEFINE 24,24       LENGTH OF I/O ITEM WHEN *IOIND* IS NOT SET.         TSTEXT      1567     A     
 TSTEXT    IOADDR   DEFINE 0,L.ABIAS   ADDRESS OF THE ITEM.                                TSTEXT      1568     A     
 TSTEXT    IOARG    DEFINE 0,6         F.P. ORDINAL, WHEN *IOFP* IS SET.                   TSTEXT      1569     A     
 TSTEXT   ****                                                                             TSTEXT      1570     A     
 TSTEXT    TP.ILI   SPACE  4,8                                                             TSTEXT      1571     A     
 TSTEXT   ****      TP.ILI - TABLE OF INPUT LIST ITEMS                                     TSTEXT      1572     A     
 TSTEXT   *         INPUT VARIABLES AND ARRAY NAMES ARE STORED IN THIS TABLE IN            TSTEXT      1573     A     
 TSTEXT   *         THE FORM OF PASS 2 TAGS.  ARRAY SUBSCRIPTS ARE CHECKED FOR             TSTEXT      1574     A     
 TSTEXT   *         MATCHES WITH THE ITEMS IN THE TABLE.  I/O RESTART CALLS WILL           TSTEXT      1575     A     
 TSTEXT   *         BE FORCED WHEN A MATCH IS FOUND.                                       TSTEXT      1576     A     
 TSTEXT                                                                                    TSTEXT      1577     A     
 TSTEXT                                                                                    TSTEXT      1578     A     
 TSTEXT   *TP.ILI   TABLE  3           INPUT LIST ITEMS                                    TSTEXT      1579     A     
 TSTEXT   ****                                                                             TSTEXT      1580     A     
 TSTEXT    TA.PRO   SPACE  4,8                                                             TSTEXT      1581     A     
 TSTEXT   ****      TA.PRO - TABLE OF PROGRAM ADDRESSES.                                   TSTEXT      1582     A     
 TSTEXT   *         EVENTUALLY CONTAINS THE ADDRESS OF ALL PROGRAM TAGS.                   TSTEXT      1583     A     
 TSTEXT   *         ORDINALS OF *L-TAGS* POINT INTO THIS TABLE.                            TSTEXT      1584     A     
 TSTEXT                                                                                    TSTEXT      1585     A     
 TSTEXT                                                                                    TSTEXT      1586     A     
 TSTEXT   * TA.PRO  TABLE  3,4                                                             TSTEXT      1587     A     
 TSTEXT   ****                                                                             TSTEXT      1588     A     
 TSTEXT    TS.DAT   SPACE  4,15                                                            TSTEXT      1589     A     
 TSTEXT   ****      TS.DAT - DATA STATEMENT TABLE.                                         TSTEXT      1590     A     
 TSTEXT                                                                                    TSTEXT      1591     A     
 TSTEXT                                                                                    TSTEXT      1592     A     
 TSTEXT   * TS.DAT  TABLE  1                                                               TSTEXT      1593     A     
 TSTEXT                                                                                    TSTEXT      1594     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 388    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *         THE ENTRIES IN THIS TABLE ARE DIRECTIVES TO THE END PROCESSOR          TSTEXT      1595     A     
 TSTEXT   *                TO OUTPUT THE NECESSARY LOADER TEXT.                            TSTEXT      1596     A     
 TSTEXT   *         THE TYPE OF AN ENTRY IS GIVEN BY THE EXPONENT FIELD --                 TSTEXT      1597     A     
 TSTEXT                                                                                    TSTEXT      1598     A     
 TSTEXT   *  .S            OUTPUT A SHORT (@ 2**48-1 IN MAGNITUDE) CONSTANT.               TSTEXT      1599     A     
 TSTEXT   *                                                                                TSTEXT      1600     A     
 TSTEXT   *  .W            OUTPUT A FULL WORD OF DATA (TWO WORD ENTRY).                    TSTEXT      1601     A     
 TSTEXT   *                            DATUM IN THE NEXT TABLE WORD.                       TSTEXT      1602     A     
 TSTEXT   *                                                                                TSTEXT      1603     A     
 TSTEXT   *  .O            RESET THE ORIGIN COUNTER TO --                                  TSTEXT      1604     A     
 TSTEXT                                                                                    TSTEXT      1605     A     
 TSTEXT    DTAG     DEFINE 48-L.TAG,L.TAG    VARIABLE ADDRESS                              TSTEXT      1606     A     
 TSTEXT    DBIAS    DEFINE P.DTAG-L.LBIAS,L.LBIAS     OFFSET                               TSTEXT      1607     A     
 TSTEXT                                                                                    TSTEXT      1608     A     
 TSTEXT   *  .R            OUTPUT A REPLICATION TABLE (TWO WORD ENTRY) --                  TSTEXT      1609     A     
 TSTEXT   *         WORD 1,  (DTAG) = BLOCK LENGTH                                         TSTEXT      1610     A     
 TSTEXT   *                  (17-00) = REPLICATION COUNT +1                                TSTEXT      1611     A     
 TSTEXT   *         WORD 2,  (DTAG)  =  ADDRESS INCREMENT                                  TSTEXT      1612     A     
 TSTEXT   *                  (17-00) =  DESTINATION ADDRESS                                TSTEXT      1613     A     
 TSTEXT                                                                                    TSTEXT      1614     A     
 TSTEXT                                                                                    TSTEXT      1615     A     
 TSTEXT   *         DIL - DATA INITIALIZATION LIST POINTERS.                               TSTEXT      1616     A     
 TSTEXT   *          FORMAT:  24/0,18/FWA OF DVL,18/FWA OF DIL                             TSTEXT      1617     A     
 TSTEXT   *         BUILT BY A BACKWARDS SCAN OF THE DATA STATEMENT.                       TSTEXT      1618     A     
 TSTEXT                                                                                    TSTEXT      1619     A     
 TSTEXT   * TL.DAT  TABLE  =,TT.USE    AUX DATA TABLE, LOCAL TO EACH DATA STMNT.           TSTEXT      1620     A     
 TSTEXT                                                                                    TSTEXT      1621     A     
 TSTEXT    DLVAR    DEFINE 18,18       FWA OF DVL (VARIABLE LIST)                          TSTEXT      1622     A     
 TSTEXT    DLITM    DEFINE  0,18       FWA OF DIL (  ITEM   LIST)                          TSTEXT      1623     A     
 TSTEXT                                                                                    TSTEXT      1624     A     
 TSTEXT                                                                                    TSTEXT      1625     A     
 TSTEXT   * TI.DAT  TABLE  =,TT.SCR    AUX DATA TABLE, LOCAL TO EACH DATA STMNT.           TSTEXT      1626     A     
 TSTEXT                                CONTAINS CONSTANTS FOUND IN THE STATEMENT           TSTEXT      1627     A     
 TSTEXT                                AND REP FACTORS, PLUS OTHER GOODIES.                TSTEXT      1628     A     
 TSTEXT                                                                                    TSTEXT      1629     A     
 TSTEXT    DIWC     DEFINE  0,18       WORD COUNT                                          TSTEXT      1630     A     
 TSTEXT    DINDX    DEFINE 18,18       INDEX FIELD                                         TSTEXT      1631     A     
 TSTEXT    DIRL     DEFINE 36,18       REP LIST ITEM COUNT                                 TSTEXT      1632     A     
 TSTEXT    DICIF    DEFINE 54,3        CONSTANT ITEM FACTOR                                TSTEXT      1633     A     
 TSTEXT   *                            NOTE.  THE ABOVE FIELD USED TO BE 5 BITS            TSTEXT      1634     A     
 TSTEXT   *                            LONG, BUT WAS TRUNCATED TO 3 ON THE                 TSTEXT      1635     A     
 TSTEXT   *                            ADDITION OF THE *DNEGH* FIELD.                      TSTEXT      1636     A     
 TSTEXT                                = 1 OR 2 IF ALL ITEMS ARE THE SAME LENGTH,          TSTEXT      1637     A     
 TSTEXT                                AND LENGTH = 1 OR 2, ELSE ZERO.                     TSTEXT      1638     A     
 TSTEXT    DNEGH    DEFINE 57          SET IF A MINUS SIGN PRECEEDED A HOLL                TSTEXT      1639     A     
 TSTEXT    DIHOL    DEFINE 58          IF THIS IS A HOLLERITH CONSTANT                     TSTEXT      1640     A     
 TSTEXT    DIREP    DEFINE 59          IF THIS IS A REP COUNT                              TSTEXT      1641     A     
 TSTEXT                                                                                    TSTEXT      1642     A     
 TSTEXT    P.SDPF   EQU    58                SINGLE/DOUBLE PRECISION FLAG                  TSTEXT      1643     A     
 TSTEXT    P.CTYP   EQU    36          CONSTANT TYPE FIELD POSITION                        FCC1563X       7     A     
 TSTEXT    P.SYMORD EQU    18                SYMTAB ORD IN BITS 18-35                      TSTEXT      1644     A     
 TSTEXT   ****                                                                             TSTEXT      1645     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 389    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT    T.FILE   SPACE  4,30                                                            TSTEXT      1646     A     
 TSTEXT   ****      T.FILE - DESCRIPTIONS OF PROGRAMMER FILES.                             TSTEXT      1647     A     
 TSTEXT   *                                                                                TSTEXT      1648     A     
 TSTEXT   *         NOTE   ALTHOUGH LOGICALLY A DISTINCT TABLE, THIS INFORMATION           TSTEXT      1649     A     
 TSTEXT   *                PHYSICALLY RESIDES IN THE FIRST PART OF TS.DAT.                 TSTEXT      1650     A     
 TSTEXT   *                                                                                TSTEXT      1651     A     
 TSTEXT   *         WORD 1 --                                                              TSTEXT      1652     A     
 TSTEXT   *                42/ 0L FILENAME                                                 TSTEXT      1653     A     
 TSTEXT   *                18/ -GARBAGE-                                                   TSTEXT      1654     A     
 TSTEXT   *         WORD 2 --                                                              TSTEXT      1655     A     
 TSTEXT   *                 1/ EQUIV FLAG,  5/ -GARBAGE-                                   TSTEXT      1656          I
          -FEAT126C 
 TSTEXT   *                 1/ EQUIVALENCED FLAG                                           FEAT126C      38     A     
 TSTEXT   *                 5/ -GARBAGE-                                                   FEAT126C      39     A     
 TSTEXT   *                18/ TAG OF BUFFER ADDRESS                                       TSTEXT      1657     A     
 TSTEXT   *                18/ FIT ADDRESS                                                 TSTEXT      1658     A     
 TSTEXT   *                18/ BUFFER LENGTH                                               TSTEXT      1659     A     
 TSTEXT   *         WORD 3 --                                                              FEAT126C      40     A     
 TSTEXT   *                 1/ 0 = VALID ENTRY                                             FEAT126C      41     A     
 TSTEXT   *                    1 = NO ENTRY                                                FEAT126C      42     A     
 TSTEXT   *                 5/ -GARBAGE-                                                   FEAT126C      43     A     
 TSTEXT   *                18/ RECORD LENGTH TAG                                           FEAT126C      44     A     
 TSTEXT   *                18/ -GARBAGE-                                                   FEAT126C      45     A     
 TSTEXT   *                18/ RECORD LENGTH                                               FEAT126C      46     A     
 TSTEXT   *                                                                                TSTEXT      1660     A     
 TSTEXT   *         THE END OF THE TABLE IS MARKED BY AN ALL-ZERO WORD.                    TSTEXT      1661     A     
 TSTEXT   *         THUS, ITS LENGTH IS =  2*(NARGS)+1                                     TSTEXT      1662     A     
 TSTEXT                                                                                    TSTEXT      1663     A     
 TSTEXT                                                                                    TSTEXT      1664     A     
 TSTEXT   * T.FILE  TABLE  =,TS.DAT                                                        TSTEXT      1665     A     
 TSTEXT                                                                                    TSTEXT      1666     A     
 TSTEXT                                                                                    TSTEXT      1667     A     
 TSTEXT    FNAM     DEFINE 18,7*CHAR   FILE NAME                                           TSTEXT      1668     A     
 TSTEXT                                                                                    TSTEXT      1669     A     
 TSTEXT    FEQU     DEFINE 59          EQUIVALENCED FILE FLAG                              TSTEXT      1670     A     
 TSTEXT    FBUF     DEFINE 36,18       BUFFER TAG                                          TSTEXT      1671     A     
 TSTEXT    FFIT     DEFINE 18,18       FIT ADDRESS                                         TSTEXT      1672     A     
 TSTEXT    FLEN     DEFINE  0,18       BUFFER LENGTH                                       TSTEXT      1673     A     
 TSTEXT    L.BTRB   EQU    4           WIDTH OF RELOCATION BYTE                            F162FTNA      42     A     
 TSTEXT    L.LIST   EQU    3           LENGTH OF *Q8NTRY* *LIST* AP-LIST                   F162FTNA      43     A     
 TSTEXT    L.FIT1   EQU    10          RELATIVE POSITION OF 2ND HALF FIT TO FIT RA         F162FTNA      44     A     
 TSTEXT    L.REPI   EQU    3           LENGTH OF REPL TABLE                                F162FTNA      45     A     
 TSTEXT    BTBFS    DEFINE 0,18        FIT *BFS* (CIRC BUFFER SIZE) FIELD                  F162FTNA      46     A     
 TSTEXT    BTWSA    DEFINE 0,18        FIT *WSA* FIELD                                     F162FTNA      47     A     
 TSTEXT    BTMRL    DEFINE 36,24       FIT *MRL* FIELD                                     F162FTNA      48     A     
 TSTEXT    BTRA     DEFINE 0,18        REPL SOURCE AND DESTINATION FIELDS                  F162FTNA      49     A     
 TSTEXT    BTRI     DEFINE 27,18       REPL DESTINATION INCREMENT                          F162FTNA      50     A     
 TSTEXT    BTRC     DEFINE 42,18       REPL REPLICATION COUNT                              F162FTNA      51     A     
 TSTEXT    BTCN     DEFINE 48,12       CODE NUMBER                                         F162FTNA      52     A     
 TSTEXT    BTWC     DEFINE 36,12       WORD COUNT                                          F162FTNA      53     A     
 TSTEXT    BTRL     DEFINE 18,9        RELOCATION BASE                                     F162FTNA      54     A     
 TSTEXT    BTYP     DEFINE 17          BLOCK TYPE (PIDL DESCRIPTORS)                       F162FTNA      55     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 390    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT    FREC     DEFINE 36,18       WSA TAG                                             F162FTNA      56     A     
 TSTEXT    FRCL     DEFINE 0,18        MRL                                                 F162FTNA      57     A     
 TSTEXT    BTXRL    DEFINE 0,9         XLINK RELOCATION BASE                               FCCA408       13     A     
 TSTEXT    BTXSZ    DEFINE 18,6        XLINK ADDRESS FIELD LENGTH                          FCCA408       14     A     
 TSTEXT    BTXPS    DEFINE 24,6        XLINK ADDRESS FIELD POSITION                        FCCA408       15     A     
 TSTEXT    BTXRA    DEFINE 30,24       XLINK RELATIVE ADDRESS                              FCCA408       16     A     
 TSTEXT    L.STLF   EQU    30          LENGTH OF WEAK EXT. TABLE FIELD                     FCCA408       17     A     
 TSTEXT   ****                                                                             TSTEXT      1674     A     
 TSTEXT    TT.REF   SPACE  4,30                                                            TSTEXT      1675     A     
 TSTEXT   ****      TT.REF - CROSS REFERENCE TABLE.                                        TSTEXT      1676     A     
 TSTEXT                                                                                    TSTEXT      1677     A     
 TSTEXT                                                                                    TSTEXT      1678     A     
 TSTEXT   * TT.REF  TABLE  4                                                               TSTEXT      1679     A     
 TSTEXT                                                                                    TSTEXT      1680     A     
 TSTEXT    TAG      DEFINE 42,18       TAG                                                 TSTEXT      1681     A     
 TSTEXT    CRLIN    DEFINE 6,22        PAGE / LINE NUMBER OF REFERENCE                     TSTEXT      1682          I
          -FEAT155E 
 TSTEXT    CRLIN    DEFINE 6,22        LINE NUMBER OF REFERENCE                            FEAT155E      13     A     
 TSTEXT    CRUSE    DEFINE  0,6        USAGE LETTER                                        TSTEXT      1683     A     
 TSTEXT   *                                                                                TSTEXT      1684     A     
 TSTEXT   *         POSSIBLE ENTRY CONDITIONS TO TT.REF                                    TSTEXT      1685     A     
 TSTEXT   *                                                                                TSTEXT      1686     A     
 TSTEXT                                                                                    TSTEXT      1687     A     
 TSTEXT   *         STATEMENT NUMBERS                                                      TSTEXT      1688     A     
 TSTEXT                                                                                    TSTEXT      1689     A     
 TSTEXT    CR.FMT   EQU    1RF                                                             TSTEXT      1690     A     
 TSTEXT    CR.LAB   EQU    1RL                                                             TSTEXT      1691     A     
 TSTEXT    CR.AGN   EQU    1RA                                                             TSTEXT      1692     A     
 TSTEXT    CR.GOTO  EQU    1R                                                              TSTEXT      1693     A     
 TSTEXT    CR.DO    EQU    1RD                                                             TSTEXT      1694     A     
 TSTEXT    CR.IFN   EQU    1RC         CONDITIONAL USAGE.                                  TSTEXT      1695     A     
 TSTEXT                                                                                    TSTEXT      1696     A     
 TSTEXT   *         VARIABLES/FUNCTIONS                                                    TSTEXT      1697     A     
 TSTEXT                                                                                    TSTEXT      1698     A     
 TSTEXT    CR.REF   EQU    1R                                                              TSTEXT      1699     A     
 TSTEXT    CR.STR   EQU    1R=         STORE                                               TSTEXT      1700     A     
 TSTEXT    CR.PAR   EQU    1RA                                                             TSTEXT      1701     A     
 TSTEXT    CR.CALL  EQU    1RA         CALL ARGUMENT.                                      TSTEXT      1702     A     
 TSTEXT    CR.DEC   EQU    1RD         DECLARATIVE STATEMENT                               TSTEXT      1703     A     
 TSTEXT    CR.DAT   EQU    1RI         DATA INITIALIZED                                    TSTEXT      1704     A     
 TSTEXT    CR.VGOTO EQU    1RG         VARIABLE USED IN GOTO.                              TSTEXT      1705     A     
 TSTEXT    CR.INF   EQU    1RA         INSIDE FUNCTION.                                    TSTEXT      1706     A     
 TSTEXT    CR.INP   EQU    1RR         INPUT  STATEMENT                                    TSTEXT      1707     A     
 TSTEXT    CR.NTR   EQU    1RE         ENTRY POINT                                         TSTEXT      1708     A     
 TSTEXT    CR.ARY   EQU    1RS         SUBSCRIPT                                           TSTEXT      1709     A     
 TSTEXT    CR.OUT   EQU    1RW         OUTPUT STATEMENT                                    TSTEXT      1710     A     
 TSTEXT    CR.SUB   EQU    1RX                                                             TSTEXT      1711     A     
 TSTEXT    CR.DOI   EQU    1RC         DO LOOP CONTROL                                     TSTEXT      1712     A     
 TSTEXT    CR.IF    EQU    1RF                                                             TSTEXT      1713     A     
 TSTEXT   ****                                                                             TSTEXT      1714     A     
 TSTEXT    TS.BLK   SPACE  4,8                                                             TSTEXT      1715     A     
 TSTEXT   ****      TS.BLK - COMMON BLOCK NAME TABLE.                                      TSTEXT      1716     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 391    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *         CONTAINS COMMON BLOCK NAMES AND LENGTHS.                               TSTEXT      1717     A     
 TSTEXT   *         ZEROTH ENTRY IS NOT USED:  IT IS A PSUEDO-BLOCK FOR PROGRAM-           TSTEXT      1718     A     
 TSTEXT   *                RELATIVE ADDRESS GAMES.                                         TSTEXT      1719     A     
 TSTEXT   *         BLANK COMMON IS ALWAYS ENTERED IN TABLE, AND HAS ORDINAL = 1.          TSTEXT      1720          I
          -FEAT155G 
 TSTEXT                                                                                    TSTEXT      1721     A     
 TSTEXT                                                                                    TSTEXT      1722     A     
 TSTEXT   * TS.BLK  TABLE  1,2*2                                                           TSTEXT      1723     A     
 TSTEXT                                                                                    TSTEXT      1724     A     
 TSTEXT    SYM      DEFINE 18,42       BLOCK NAME                                          TSTEXT      1725     A     
 TSTEXT    CTAG     DEFINE 42,18       ECS/LCM POINTER TAG                                 TSTEXT      1726     A     
 TSTEXT    LVLFLD   DEFINE 38,4        LEVEL DOPE                                          TSTEXT      1727     A     
 TSTEXT    CNFL     DEFINE 41          LEVEL CONFLICT BIT                                  TSTEXT      1728     A     
 TSTEXT    DFLT     DEFINE 40          LEVEL DEFAULT BIT                                   TSTEXT      1729     A     
 TSTEXT    BLVL     DEFINE 38,2        BLOCK LEVEL                                         TSTEXT      1730     A     
 TSTEXT    BLEN     DEFINE 0,24        BLOCK LENGTH                                        TSTEXT      1731     A     
 TSTEXT                                                                                    TSTEXT      1732     A     
 TSTEXT   **        THERE IS 1 POINTER WORD FOR EACH ECS/LCM COMMON BLOCK.                 TSTEXT      1733     A     
 TSTEXT   *         IT IS REFERENCED VIA THE PROGRAM TAG STORED IN *CTAG*.                 TSTEXT      1734     A     
 TSTEXT   *         THE CNFL BIT IS ON IF NAMES IN THE COMMON BLOCK ARE ASSIGNED           TSTEXT      1735     A     
 TSTEXT   *                TO CONFLICTING LEVELS.                                          TSTEXT      1736     A     
 TSTEXT   *         THE DFLT BIT IS ON IF ONE OR MORE NAMES ARE DEFAULTED TO THE           TSTEXT      1737     A     
 TSTEXT   *                LEVEL ESTABLISHED FOR THE BLOCK.                                TSTEXT      1738     A     
 TSTEXT                                                                                    TSTEXT      1739     A     
 TSTEXT    BLANKCOM EQU    2           ORDINAL OF ENTRY FOR BLANK COMMON                   TSTEXT      1740          I
          -FCC0583
 TSTEXT   ****                                                                             TSTEXT      1741     A     
 TSTEXT    TS.ENT   SPACE  4,8                                                             TSTEXT      1742     A     
 TSTEXT   ****      TS.ENT - ENTRY POINT TABLE.                                            TSTEXT      1743     A     
 TSTEXT                                                                                    TSTEXT      1744     A     
 TSTEXT                                                                                    TSTEXT      1745     A     
 TSTEXT   * TS.ENT  TABLE  1                                                               TSTEXT      1746     A     
 TSTEXT   * TN.NTR  TABLE  =,TP.DO     ENTRY POINT NAMES                                   TSTEXT      1747          I
          -FEAT126C 
 TSTEXT                                                                                    TSTEXT      1748     A     
 TSTEXT    SYM      DEFINE 18,42       NAME                                                TSTEXT      1749     A     
 TSTEXT    EORD     DEFINE 0,18        ORDINAL INTO TT.NAM                                 TSTEXT      1750     A     
 TSTEXT   ****                                                                             TSTEXT      1751     A     
 TSTEXT    TT.FILL  SPACE  4,15                                                            TSTEXT      1752     A     
 TSTEXT   ****      TT.FILL - TABLE TO ACCUMULATE *FILL* BYTES FOR BINARY OUTPUT.          TSTEXT      1753     A     
 TSTEXT                                                                                    TSTEXT      1754     A     
 TSTEXT                                                                                    TSTEXT      1755     A     
 TSTEXT   * TT.FILL TABLE  =,TT.COMM                                                       TSTEXT      1756     A     
 TSTEXT   ****                                                                             TSTEXT      1757     A     
 TSTEXT    TT.LINK  SPACE  4,15                                                            TSTEXT      1758     A     
 TSTEXT   ****      TT.LINK - TABLE TO ACCUMULATE *LINK* BYTES FOR BINARY OUTPUT.          TSTEXT      1759     A     
 TSTEXT                                                                                    TSTEXT      1760     A     
 TSTEXT                                                                                    TSTEXT      1761     A     
 TSTEXT   * TT.LINK TABLE  =,TS.EQU                                                        TSTEXT      1762     A     
 TSTEXT   ****                                                                             TSTEXT      1763     A     
 TSTEXT    TN.EXT   SPACE  4,8                                                             TSTEXT      1764     A     
 TSTEXT   ****      TT.XFIL - TABLE TO ACCUMULATE *XFILL* WORDS FOR BINARY OUTPUT          TSTEXT      1765     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 392    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT                                                                                    TSTEXT      1766     A     
 TSTEXT                                                                                    TSTEXT      1767     A     
 TSTEXT   * TT.XFIL TABLE  =,TT.SCR                                                        TSTEXT      1768     A     
 TSTEXT   ****                                                                             TSTEXT      1769     A     
 TSTEXT             SPACE  4,8                                                             TSTEXT      1770     A     
 TSTEXT   ****      TN.EXT - TEMPORARY TABLE OF EXTERNAL NAMES.                            TSTEXT      1771     A     
 TSTEXT   *         USED ONLY BY VARIABLE MAP ROUTINES.                                    TSTEXT      1772     A     
 TSTEXT                                                                                    TSTEXT      1773     A     
 TSTEXT                                                                                    TSTEXT      1774     A     
 TSTEXT   * TN.EXT  TABLE  =,TP.EQU                                                        TSTEXT      1775     A     
 TSTEXT   ****                                                                             TSTEXT      1776     A     
 TSTEXT    TN.BLK   SPACE  4,8                                                             TSTEXT      1777     A     
 TSTEXT   ****      TN.BLK - TEMPORARY TABLE OF BLOCK NAMES.                               TSTEXT      1778     A     
 TSTEXT   *         USED ONLY BY VARIABLE MAP ROUTINES.                                    TSTEXT      1779     A     
 TSTEXT   *         CONTAINS NAMES ONLY, ONE WORD PER NAME.  // ADDED.                     TSTEXT      1780     A     
 TSTEXT   *         ORDERED BY BLOCK NUMBER.                                               TSTEXT      1781     A     
 TSTEXT                                                                                    TSTEXT      1782     A     
 TSTEXT                                                                                    TSTEXT      1783     A     
 TSTEXT   * TN.BLK  TABLE  =,TT.LF     BLOCK NAMES.                                        TSTEXT      1784     A     
 TSTEXT   ****                                                                             TSTEXT      1785     A     
 TSTEXT    T.END    SPACE  4,8                                                             TSTEXT      1786     A     
 TSTEXT   ****      T.END - MUST BE THE LAST TABLE.                                        TSTEXT      1787     A     
 TSTEXT                                                                                    TSTEXT      1788     A     
 TSTEXT                                                                                    TSTEXT      1789     A     
 TSTEXT   * T.END   TABLE  0           DUMMY FOR MANAGER                                   TSTEXT      1790     A     
 TSTEXT   ****                                                                             TSTEXT      1791     A     
 TSTEXT             EJECT                                                                  TSTEXT      1792     A     
 TSTEXT    DEF      SECT   (SYMBOL DEFINITIONS.),1                                         TSTEXT      1793     A     
 TSTEXT    CBSS     SPACE  4,8                                                             TSTEXT      1794     A     
 TSTEXT   **        CBSS - MACRO TO COMPILE A *BSS* OPERATION                              TSTEXT      1795     A     
 TSTEXT   *                                                                                TSTEXT      1796     A     
 TSTEXT   *         CBSS   LOC,SIZE,REG                                                    TSTEXT      1797     A     
 TSTEXT   *                                                                                TSTEXT      1798     A     
 TSTEXT   *         *LOC*  = LOCATION TAG TO BE DEFINED (= 1 FOR FORCE UPPER ONLY)         TSTEXT      1799     A     
 TSTEXT   *         *SIZE* = AMOUNT OF SPACE TO RESERVE (= 0 FOR DEFINITION ONLY)          TSTEXT      1800     A     
 TSTEXT   *         *REG*  = REGISTER TO COMPILE FROM (*X7* ASSUMED IF OMITTED)            TSTEXT      1801     A     
 TSTEXT   *                  IF OMITTED, INSTRUCTION WILL BE FORMED IN THE                 TSTEXT      1802     A     
 TSTEXT   *                  SPECIFIED REGISTER, BUT WILL NOT BE STORED TO CORE.           TSTEXT      1803     A     
 TSTEXT                                                                                    TSTEXT      1804     A     
 TSTEXT                                                                                    TSTEXT      1805     A     
 TSTEXT    CBSS     MACRO  LOC,SIZE,REG                                                    TSTEXT      1806     A     
 TSTEXT    A        MICRO  1,, X7                                                          TSTEXT      1807     A     
 TSTEXT             IFC    NE,*REG**,1                                                     TSTEXT      1808     A     
 TSTEXT    A        MICRO  1,, REG                                                         TSTEXT      1809     A     
 TSTEXT             R=     "A",LOC                                                         TSTEXT      1810     A     
 TSTEXT             IFC    EQ,*REG**,1                                                     TSTEXT      1811     A     
 TSTEXT             WCODE  X7                                                              TSTEXT      1812     A     
 TSTEXT    CBSS     ENDM                                                                   TSTEXT      1813     A     
 TSTEXT                                                                                    TSTEXT      1814     A     
 TSTEXT                                                                                    TSTEXT      1815     A     
 TSTEXT   **        CRJ -  COMPILE CALL TO *CRJ* TO COMPILE *RJ* TO EXTERNAL               TSTEXT      1816     A     
 TSTEXT   * EXAMPLES---                                                                    TSTEXT      1817     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 393    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *                                                                                TSTEXT      1818     A     
 TSTEXT   *    1.-- CRJ                                                                    TSTEXT      1819     A     
 TSTEXT   *         SX1    B1          ALLOW TRACE INFORMATION TO BE COMPILED              TSTEXT      1820     A     
 TSTEXT   *         RJ     CRJ                                                             TSTEXT      1821     A     
 TSTEXT   *                                                                                TSTEXT      1822     A     
 TSTEXT   *    2.-- CRJ    ALLOW                                                           TSTEXT      1823     A     
 TSTEXT   *         SX1    B1          ALLOW TRACE INFORMATION TO BE COMPILED              TSTEXT      1824     A     
 TSTEXT   *         RJ     CRJ                                                             TSTEXT      1825     A     
 TSTEXT   *                                                                                TSTEXT      1826     A     
 TSTEXT   *    3.-- CRJ    NONE                                                            TSTEXT      1827     A     
 TSTEXT   *         SX1    B0          DO NOT COMPILE TRACE INFORMATION                    TSTEXT      1828     A     
 TSTEXT   *         RJ     CRJ                                                             TSTEXT      1829     A     
 TSTEXT   *                                                                                TSTEXT      1830     A     
 TSTEXT   *    4.-- CRJ    MUST                                                            TSTEXT      1831     A     
 TSTEXT   *         SX1    -B1         MUST COMPILE TRACE INFORMATION                      TSTEXT      1832     A     
 TSTEXT   *         RJ     CRJ                                                             TSTEXT      1833     A     
 TSTEXT                                                                                    TSTEXT      1834     A     
 TSTEXT                                                                                    TSTEXT      1835     A     
 TSTEXT    CRJ      MACRO  TYPE                                                            TSTEXT      1836     A     
 TSTEXT    A        MICRO  1,1, TYPE                                                       TSTEXT      1837     A     
 TSTEXT   .1        IFC    EQ,**"A"*                                                       TSTEXT      1838     A     
 TSTEXT             =X1    1                                                               TSTEXT      1839     A     
 TSTEXT   .1        ENDIF                                                                  TSTEXT      1840     A     
 TSTEXT    .2       IFC    EQ,*A*"A"*                                                      TSTEXT      1841     A     
 TSTEXT             =X1    1                                                               TSTEXT      1842     A     
 TSTEXT    .2       ENDIF                                                                  TSTEXT      1843     A     
 TSTEXT    .3       IFC    EQ,*N*"A"*                                                      TSTEXT      1844     A     
 TSTEXT             BX1    0                                                               TSTEXT      1845     A     
 TSTEXT    .3       ENDIF                                                                  TSTEXT      1846     A     
 TSTEXT    .4       IFC    EQ,*M*"A"*                                                      TSTEXT      1847     A     
 TSTEXT             =X1    -1                                                              TSTEXT      1848     A     
 TSTEXT    .4       ENDIF                                                                  TSTEXT      1849     A     
 TSTEXT             RJ     CRJ                                                             TSTEXT      1850     A     
 TSTEXT    CRJ      ENDM                                                                   TSTEXT      1851     A     
 TSTEXT    DRITE    SPACE  4,8                                                             TSTEXT      1852     A     
 TSTEXT   **        DRITE - MACRO TO BE USED FOR CHECKING DELAYED STORE ACTIVITY           TSTEXT      1853     A     
 TSTEXT   *                ARGUMENT *CONTROL* MAY BE --                                    TSTEXT      1854     A     
 TSTEXT   *                  A.  *DEACTIVATE = DEACTIVATES ANY DELAYED STORE IN            TSTEXT      1855     A     
 TSTEXT   *                                    PROGRESS.                                   TSTEXT      1856     A     
 TSTEXT   *                  B.  *X1-X7*     = DEACTIVATE DELAYED STORE ONLY IF            TSTEXT      1857     A     
 TSTEXT   *                                    (X1-X7) = (DRITE).                          TSTEXT      1858     A     
 TSTEXT                                                                                    TSTEXT      1859     A     
 TSTEXT                                                                                    TSTEXT      1860     A     
 TSTEXT    DRITE    MACRO  CONTROL                                                         TSTEXT      1861     A     
 TSTEXT   .1        IFC    EQ,*CONTROL*DEACTIVATE*                                         TSTEXT      1862     A     
 TSTEXT             BX0    0                                                               TSTEXT      1863     A     
 TSTEXT   .1        ELSE                                                                   TSTEXT      1864     A     
 TSTEXT    .2       IFC    NE,*CONTROL*X0*                                                 TSTEXT      1865     A     
 TSTEXT             BX0    CONTROL                                                         TSTEXT      1866     A     
 TSTEXT    .2       ENDIF                                                                  TSTEXT      1867     A     
 TSTEXT   .1        ENDIF                                                                  TSTEXT      1868     A     
 TSTEXT             RJ     =XCDS                                                           TSTEXT      1869     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 394    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT    DRITE    ENDM                                                                   TSTEXT      1870     A     
 TSTEXT    WCODE    SPACE  4,8                                                             TSTEXT      1871     A     
 TSTEXT   **        WCODE - WRITE INTERMEDIATE CODE FILE.                                  TSTEXT      1872     A     
 TSTEXT   *                                                                                TSTEXT      1873     A     
 TSTEXT   *         WCODE   REG,RETURN                                                     TSTEXT      1874     A     
 TSTEXT   *                                                                                TSTEXT      1875     A     
 TSTEXT   *         REG =   ANY *X* REGISTER, (X7)                                         TSTEXT      1876     A     
 TSTEXT   *         RETURN = RETURN ADDRESS.  *+1 ASSUMED IF OMITTED.                      TSTEXT      1877     A     
 TSTEXT   *                            (B2) IS NATURAL REGISTER.                           TSTEXT      1878     A     
 TSTEXT   *                                                                                TSTEXT      1879     A     
 TSTEXT   *         USED FOR WRITING *ALL* INTERMEDIATE CODE TO INTERMEDIATE FILE          TSTEXT      1880     A     
 TSTEXT   *                                                                                TSTEXT      1881     A     
 TSTEXT   *         CALLS  WIN                                                             TSTEXT      1882     A     
 TSTEXT                                                                                    TSTEXT      1883     A     
 TSTEXT                                                                                    TSTEXT      1884     A     
 TSTEXT    WCODE    MACRO  R,RETURN                                                        TSTEXT      1885     A     
 TSTEXT             IFC    NE,/X7/R/,1                                                     TSTEXT      1886     A     
 TSTEXT             BX7    R                                                               TSTEXT      1887     A     
 TSTEXT    +        =B2    RETURN   *+1                                                    TSTEXT      1888     A     
 TSTEXT             JP     =XWIN                                                           TSTEXT      1889     A     
 TSTEXT    WCODE    ENDM                                                                   TSTEXT      1890     A     
 TSTEXT    ERRTYP   SPACE  4,8                                                             TSTEXT      1891     A     
 TSTEXT             EJECT                                                                  TSTEXT      1892     A     
 TSTEXT                                                                                    TSTEXT      1893     A     
 TSTEXT    C.SCR    EQU    10BS12      SCRATCH TAG FOR STATUS OF OPERANDS IN               TSTEXT      1894     A     
 TSTEXT                                TT.SCR DURING PASS *2* PROCESSING.                  TSTEXT      1895     A     
 TSTEXT    C.BASE   EQU    20BS12                                                          TSTEXT      1896     A     
 TSTEXT    C.DIF    EQU    2BS12                                                           TSTEXT      1897     A     
 TSTEXT                                                                                    TSTEXT      1898     A     
 TSTEXT    C.VAR    EQU    20BS12      TAG FOR ALL SYMBOLS IN TS/TT.NAM                    TSTEXT      1899     A     
 TSTEXT    C.SYM    EQU    C.VAR                                                           TSTEXT      1900     A     
 TSTEXT    VTERR.   EQU    C.VAR       ERROR TAG                                           TSTEXT      1901          I
          -FCC1222
 TSTEXT                                                                                    TSTEXT      1902     A     
 TSTEXT    C.STN    EQU    24BS12      TAG FOR ALL STATEMENT NUMBERS.                      TSTEXT      1903     A     
 TSTEXT    C.STAT   EQU    C.STN       ** TEMP **                                          TSTEXT      1904     A     
 TSTEXT    STERR.   EQU    C.STAT      ERROR TAG                                           TSTEXT      1905          I
          -FCC1222
 TSTEXT                                                                                    TSTEXT      1906     A     
 TSTEXT   ****      C.PRO - *PROGRAM* TAGS FOR GENERATED LABELS.                           TSTEXT      1907     A     
 TSTEXT   *                                                                                TSTEXT      1908     A     
 TSTEXT   *         THIS TYPE OF TAG IS GENERATED IN THE FOLLOWING SITUATIONS --           TSTEXT      1909     A     
 TSTEXT   *                LOCAL *DO* LOOP LABELS.                                         TSTEXT      1910     A     
 TSTEXT   *                ACTUAL PARAMETER LIST LABELS.                                   TSTEXT      1911     A     
 TSTEXT   *                TARGET FOR IMPLIED *IF* JUMP.                                   TSTEXT      1912     A     
 TSTEXT   *                LABEL FOR I/O BUFFER OF EACH OBJECT-PROGRAM FILE.               TSTEXT      1913     A     
 TSTEXT   *                LABEL FOR WORKING STORAGE AREA OF OBJECT-PROGRAM FILE.          TSTEXT      1914     A     
 TSTEXT   *         WHEN A NEW *PROGRAM* TAG IS NEEDED, INCREMENT THE (*TG.PRO*)           TSTEXT      1915     A     
 TSTEXT   *                AND THE NEW VALUE IS THE TAG TO USE.  THAT IS, THE              TSTEXT      1916     A     
 TSTEXT   *                CONTENTS OF *TG.PRO* ALWAYS CONTAINS THE LAST TAG USED,         TSTEXT      1917     A     
 TSTEXT   *                *NOT* THE NEXT TO BE USED.                                      TSTEXT      1918     A     
 TSTEXT   *         THE FIRST FEW OF THESE TAGS HAVE PRE-DEFINED MEANINGS.  THEY           TSTEXT      1919     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 395    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *                ARE LISTED HERE.                                                TSTEXT      1920     A     
 TSTEXT                                                                                    TSTEXT      1921     A     
 TSTEXT                                                                                    TSTEXT      1922     A     
 TSTEXT    C.PRO    EQU    26BS12      PROGRAM-LOCAL TAGS                                  TSTEXT      1923     A     
 TSTEXT    C.APL    EQU    C.PRO       ACTUAL PARAMETER LIST TAGS ARE THE SAME             TSTEXT      1924     A     
 TSTEXT                                                                                    TSTEXT      1925     A     
 TSTEXT                                                                                    TSTEXT      1926     A     
 TSTEXT    CT.TRAC  EQU    C.PRO       *TRACE.* = THE TRACEBACK WORD.                      TSTEXT      1927     A     
 TSTEXT    CT.TPA0  EQU    CT.TRAC+1   *TEMPA0.* = (A0) SAVED HEREIN.                      TSTEXT      1928     A     
 TSTEXT    CT.SVA0  EQU    CT.TPA0+1   *SAVEA0.* = (A1) SAVED IN THIS ONE.                 TSTEXT      1929     A     
 TSTEXT    CT.TPA1  EQU    CT.SVA0                                                         F66FCC        64     A     
 TSTEXT    CT.FILE  EQU    CT.SVA0+1   *FILE.* = THE *Q8NTRY* FILE VECTOR.                 TSTEXT      1930     A     
 TSTEXT    CT.INIT  EQU    CT.FILE+1   SUBPROGRAM INITIALIZATION CODE.                     TSTEXT      1931     A     
 TSTEXT    CT.BEGIN EQU    CT.INIT+1   FIRST INSTRUCTION IN A SUBPROGRAM.                  TSTEXT      1932     A     
 TSTEXT    CT.RETN  EQU    CT.BEGIN+1  SUBPROGRAM *RETURN* CODE.                           TSTEXT      1933     A     
 TSTEXT    CT.RJS   EQU    CT.RETN+1   DUMMY RJT FOR RJSUB-ING                             TSTEXT      1934     A     
 TSTEXT    CT.LAST  EQU    CT.RJS                                                          TSTEXT      1935     A     
 TSTEXT   ****                         FILE BUFFER TAGS ARE NEXT.                          TSTEXT      1936     A     
 TSTEXT    C.VDIM   EQU    30BS12      VARIABLE DIMENSION TAGS                             TSTEXT      1937     A     
 TSTEXT    C.TEM    EQU    32BS12      TEMPORARY TAG                                       TSTEXT      1938     A     
 TSTEXT    C.CON    EQU    34BS12      TAG FOR ALL CONSTANTS IN TS/TT.CON.                 TSTEXT      1939     A     
 TSTEXT    C.END    EQU    C.CON                                                           TSTEXT      1940     A     
 TSTEXT             EJECT                                                                  TSTEXT      1941     A     
 TSTEXT                                                                                    TSTEXT      1942     A     
 TSTEXT   *         NOTE  THESE EQUATES ARE USED AS ORDINALS INTO THE CHARMAP              TSTEXT      1943     A     
 TSTEXT   *         TABLE.  IF THE STRUCTURE OF THAT TABLE CHANGES, THESE EQUATES          TSTEXT      1944     A     
 TSTEXT   *         MUST BE MODIFIED                                                       TSTEXT      1945     A     
 TSTEXT                                                                                    TSTEXT      1946     A     
 TSTEXT    O.DEF    EQU    0                                                               TSTEXT      1947     A     
 TSTEXT    O.EOS    EQU    0                                                               TSTEXT      1948     A     
 TSTEXT    O.HOLL   EQU    1                                                               TSTEXT      1949     A     
 TSTEXT    O.CONS   EQU    2                                                               TSTEXT      1950     A     
 TSTEXT    O.VAR    EQU    3                                                               TSTEXT      1951     A     
 TSTEXT    O.PL     EQU    4                                                               TSTEXT      1952     A     
 TSTEXT    O.SEP    EQU    O.PL                                                            TSTEXT      1953     A     
 TSTEXT    O.MIN    EQU    5                                                               TSTEXT      1954     A     
 TSTEXT    O.STAR   EQU    6                                                               TSTEXT      1955     A     
 TSTEXT    O.MULT   EQU    O.STAR                                                          TSTEXT      1956     A     
 TSTEXT    O.SLASH  EQU    7                                                               TSTEXT      1957     A     
 TSTEXT    O.DIV    EQU    O.SLASH                                                         TSTEXT      1958     A     
 TSTEXT    O.LP     EQU    8                                                               TSTEXT      1959     A     
 TSTEXT    O.(      EQU    O.LP                                                            TSTEXT      1960     A     
 TSTEXT    O.RP     EQU    9                                                               TSTEXT      1961     A     
 TSTEXT    O.)      EQU    O.RP                                                            TSTEXT      1962     A     
 TSTEXT    O.=      EQU    10                                                              TSTEXT      1963     A     
 TSTEXT    O.COMMA  EQU    11                                                              TSTEXT      1964     A     
 TSTEXT    O.SDEF   EQU    O.COMMA                                                         TSTEXT      1965     A     
 TSTEXT    O.LT     EQU    12                                                              TSTEXT      1966     A     
 TSTEXT    O.LE     EQU    13                                                              TSTEXT      1967     A     
 TSTEXT    O.EQ     EQU    14                                                              TSTEXT      1968     A     
 TSTEXT    O.NE     EQU    15                                                              TSTEXT      1969     A     
 TSTEXT    O.GE     EQU    16                                                              TSTEXT      1970     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 396    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT    O.GT     EQU    17                                                              TSTEXT      1971     A     
 TSTEXT    O.NOT    EQU    18                                                              TSTEXT      1972     A     
 TSTEXT    O.AND    EQU    19                                                              TSTEXT      1973     A     
 TSTEXT    O.XOR    EQU    20                                                              TSTEXT      1974     A     
 TSTEXT    O.OR     EQU    21                                                              TSTEXT      1975     A     
 TSTEXT    O.EXP    EQU    22                                                              TSTEXT      1976     A     
 TSTEXT    O.UMIN   EQU    23                                                              TSTEXT      1977     A     
 TSTEXT    O.TRUE   EQU    24                                                              TSTEXT      1978     A     
 TSTEXT    O.FALSE  EQU    25                                                              TSTEXT      1979     A     
 TSTEXT    O.SLP    EQU    26                                                              TSTEXT      1980     A     
 TSTEXT    O.FLP    EQU    O.SLP                                                           TSTEXT      1981     A     
 TSTEXT    O.ILP    EQU    O.SLP                                                           TSTEXT      1982     A     
 TSTEXT    O.ALP    EQU    O.SLP                                                           TSTEXT      1983     A     
 TSTEXT    O.S(     EQU    O.SLP                                                           TSTEXT      1984     A     
 TSTEXT    O.ANDN   EQU    27                                                              TSTEXT      1985     A     
 TSTEXT    O.XORN   EQU    28                                                              TSTEXT      1986     A     
 TSTEXT    O.ORN    EQU    29                                                              TSTEXT      1987     A     
 TSTEXT    O.$      EQU    30                                                              TSTEXT      1988     A     
 TSTEXT    O.PERIOD EQU    31                                                              TSTEXT      1989     A     
 TSTEXT    O.ASFA   EQU    32                                                              TSTEXT      1990     A     
 TSTEXT    O.IF     EQU    33                                                              TSTEXT      1991     A     
 TSTEXT    O.SPACE  EQU    34                                                              TSTEXT      1992     A     
 TSTEXT    O.DOB    EQU    35                                                              TSTEXT      1993     A     
 TSTEXT    O.DOC    EQU    36                                                              TSTEXT      1994     A     
 TSTEXT    O.DOC1   EQU    37                                                              TSTEXT      1995     A     
 TSTEXT    O.DOC2   EQU    38                                                              TSTEXT      1996     A     
 TSTEXT    O.ARY    EQU    39                                                              TSTEXT      1997     A     
 TSTEXT    O.BSS    EQU    40                                                              TSTEXT      1998     A     
 TSTEXT    O.ARG1   EQU    41                                                              TSTEXT      1999     A     
 TSTEXT    O.ARG2   EQU    42                                                              TSTEXT      2000     A     
 TSTEXT    O.RJ     EQU    43                                                              TSTEXT      2001     A     
 TSTEXT    O.MXP    EQU    44                                                              TSTEXT      2002     A     
 TSTEXT    O.NTR    EQU    45                                                              TSTEXT      2003     A     
 TSTEXT    O.RANF   EQU    46                                                              TSTEXT      2004     A     
 TSTEXT    O.SHF    EQU    47                                                              TSTEXT      2005     A     
 TSTEXT    O.NOOP   EQU    48                                                              TSTEXT      2006     A     
 TSTEXT    O.ASSN   EQU    49                                                              TSTEXT      2007     A     
 TSTEXT    O.GOTO   EQU    50                                                              TSTEXT      2008     A     
 TSTEXT    O.GOTC   EQU    51                                                              TSTEXT      2009     A     
 TSTEXT    O.GOAS   EQU    52                                                              TSTEXT      2010     A     
 TSTEXT    O.MODC   EQU    53                                                              TSTEXT      2011     A     
 TSTEXT    O.PLUG   EQU    54                                                              TSTEXT      2012     A     
 TSTEXT    IO.DOC   EQU    55                                                              TSTEXT      2013     A     
 TSTEXT    IO.DOB   EQU    56                                                              TSTEXT      2014     A     
 TSTEXT    IO.NIL   EQU    57                                                              TSTEXT      2015          I
          -FEAT155G 
 TSTEXT    O.OTR    EQU    57                                                              FEAT155G      24     A     
 TSTEXT    IO.WEOR  EQU    58                                                              TSTEXT      2016          I
          -FEAT126C 
 TSTEXT    IO.BRK   EQU    59                                                              TSTEXT      2017          I
          -FEAT126C 
 TSTEXT    O.XMIT   EQU    58                                                              FCC2194        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 397    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT    LG.SYM   EQU    60                                                              TSTEXT      2018     A     
 TSTEXT             EJECT                                                                  TSTEXT      2019     A     
 TSTEXT   **        SB -   MICROS DEFINING POSITIONS OF CELLS IN THE STRING BUFFER         TSTEXT      2020     A     
 TSTEXT                                                                                    TSTEXT      2021     A     
 TSTEXT                                                                                    TSTEXT      2022     A     
 TSTEXT    SB.HEAD  EQU    6           NUMBER OF HEADER CELLS ON *SB*                      TSTEXT      2023     A     
 TSTEXT    SB.LN    MICRO  1,, A0+1                                                        TSTEXT      2024     A     
 TSTEXT    SB.STN   MICRO  1,, A0+2                                                        TSTEXT      2025     A     
 TSTEXT    SB.KEY   MICRO  1,, A0+3                                                        TSTEXT      2026     A     
 TSTEXT    SB.FWA   MICRO  1,, A0+SB.HEAD                                                  TSTEXT      2027     A     
 TSTEXT    SB.BOS   MICRO  1,, CST.BOS                                                     TSTEXT      2028     A     
 TSTEXT                                                                                    TSTEXT      2029     A     
 TSTEXT    A        SET    SB.HEAD+66*MAX.CONT+1                                           TSTEXT      2030          I
          -FCC0813
 TSTEXT    A        MAX    A,L.SBUF                                                        TSTEXT      2031          I
          -FCC0813
 TSTEXT    L.SB     EQU    A                                                               TSTEXT      2032          I
          -FCC0813
 TSTEXT    L.CDPC   EQU    7*CHAR      LENGTH OF CHARACTER *DPC* FOR OPERATOR.             TSTEXT      2033     A     
 TSTEXT    L.COPR   EQU    18          LENGTH OF OPERATOR TYPE BITW.                       TSTEXT      2034          I
          -FCC1222
 TSTEXT   **        ALL GLOBAL MICROS.                                                     TSTEXT      2035     A     
 TSTEXT                                                                                    TSTEXT      2036     A     
 TSTEXT                                                                                    TSTEXT      2037     A     
 TSTEXT    CCRMOD   BITMIC (M.REAL,M.INT,M.UNIV)                                           TSTEXT      2038     A     
 TSTEXT    CCROPS   BITMIC (O.PL,O.MIN,O.STAR,O.SLASH,O.UMIN)                              TSTEXT      2039     A     
 TSTEXT    C$*      LETMIC C$*         BIT MASK FOR CONTINUATION CARDS.                    TSTEXT      2040     A     
 TSTEXT    LETHLR   LETMIC HLR         BIT MASK FOR LETTERS *H L R*                        TSTEXT      2041     A     
 TSTEXT    NUM09    LETMIC 0123456789  BIT MASK FOR NUMBERS *0 - 9*                        TSTEXT      2042     A     
 TSTEXT                                                                                    TSTEXT      2043     A     
 TSTEXT    INT      LETMIC IJKLMN                                                          TSTEXT      2044     A     
 TSTEXT    REAL     LETMIC ABCDEFGHOPQRSTUVWXYZ                                            TSTEXT      2045     A     
 TSTEXT                                                                                    TSTEXT      2046     A     
 TSTEXT    FMTSEP   BITMIC (1R/,1R(,1R),1R*,(1R,),1R",1R#,1R')                             TSTEXT      2047     A     
 TSTEXT    FMTSEP2  BITMIC ((1R,),1R))                                                     TSTEXT      2048     A     
 TSTEXT    FMTSEP3  BITMIC (1R+,1R-)                                                       TSTEXT      2049     A     
 TSTEXT    IOSEP    BITMIC (O.EOS,O.COMMA)                                                 TSTEXT      2050     A     
 TSTEXT    SPOP     BITMIC (O.SLP,O.LP)                                                    TSTEXT      2051     A     
 TSTEXT    SUBOPS   BITMIC (O.PL,O.MIN,O.STAR)                                             TSTEXT      2052     A     
 TSTEXT    SUBOPS1  BITMIC (O.PL,O.MIN)                                                    TSTEXT      2053     A     
 TSTEXT    SUBOPS2  BITMIC (O.PL,O.MIN,O.STAR,O.ARY)                                       FCC0575        4     A     
 TSTEXT                                                                                    TSTEXT      2054     A     
 TSTEXT    ATYP     DECMIC P.ATYP                                                          TSTEXT      2055     A     
 TSTEXT    AP=SIZ   DECMIC AP=SIZ                                                          TSTEXT      2056     A     
 TSTEXT    AP=CON   DECMIC AP=CON                                                          TSTEXT      2057     A     
 TSTEXT    AP=TEM   DECMIC AP=TEM                                                          TSTEXT      2058     A     
 TSTEXT    AP=UIOC  DECMIC AP=UIOC                                                         TSTEXT      2059     A     
 TSTEXT                                                                                    TSTEXT      2060     A     
 TSTEXT    ANS.CONT DECMIC ANS.CONT                                                        TSTEXT      2061     A     
 TSTEXT    MAX.BLK  DECMIC MAX.BLK                                                         TSTEXT      2062     A     
 TSTEXT    MAX.DIM  DECMIC MAX.DIM                                                         TSTEXT      2063     A     
 TSTEXT    MAX.SARG DECMIC MAX.SARG                                                        TSTEXT      2064     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 398    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT    MAX.PARG DECMIC MAX.PARG                                                        TSTEXT      2065     A     
 TSTEXT                                                                                    TSTEXT      2066     A     
 TSTEXT    O.BOS    EQU    0           BEGINNING OF STATEMENT MARKER                       TSTEXT      2067     A     
 TSTEXT    O.BOS    MICRO  1,, B0                                                          TSTEXT      2068     A     
 TSTEXT             IFEQ   O.HOLL,1,1                                                      TSTEXT      2069     A     
 TSTEXT    O.HOLL   MICRO  1,, B1                                                          TSTEXT      2070     A     
 TSTEXT                                                                                    TSTEXT      2071     A     
 TSTEXT    M.CON    BITMIC (O.LP,O.MIN,O.PL,O.CONS,O.HOLL,O.PERIOD,O.TRUE,O.FALSE)         TSTEXT      2072     A     
 TSTEXT    M.SEP    BITMIC (O.COMMA,O.SLASH,O.RP)                                          TSTEXT      2073     A     
 TSTEXT    M.SEP1   BITMIC (O.COMMA,O.SLASH,O.LP)                                          TSTEXT      2074     A     
 TSTEXT                                                                                    TSTEXT      2075     A     
 TSTEXT    LEGT     BITMIC (O.LE,O.GT)                                                     TSTEXT      2076     A     
 TSTEXT    PREUNAR  BITMIC (O.=,O.COMMA,O.LP,O.LT,O.LE,O.NE,O.EQ,O.GE,O.GT,O.AND,O         TSTEXT      2077     A     
 TSTEXT   ,.NOT,O.OR,O.XOR,O.SLP)                                                          TSTEXT      2078     A     
 TSTEXT    NOT.AXO  BITMIC (O.AND,O.XOR,O.OR)                                              TSTEXT      2079          I
          -FCC0616
 TSTEXT    REGFILE  EJECT  4,20                                                            TSTEXT      2080     A     
 TSTEXT   **        DEFINITION OF REGISTERS TO USE FOR CLASS OF REGISTER                   TSTEXT      2081     A     
 TSTEXT                                                                                    TSTEXT      2082     A     
 TSTEXT                                                                                    TSTEXT      2083     A     
 TSTEXT    RUSE     DEFINE 0,9         USE COUNT                                           TSTEXT      2084     A     
 TSTEXT    RLOCK    EQU    1S8         LOCK REGISTER BIT                                   TSTEXT      2085     A     
 TSTEXT    A        DECMIC L.RUSE                                                          TSTEXT      2086     A     
 TSTEXT    MAX.USEC EQU    1S"A"-1     MAXIMUM USE COUNT                                   TSTEXT      2087     A     
 TSTEXT                                                                                    TSTEXT      2088     A     
 TSTEXT    RGTYP    DEFINE 0,18        TYPE OF REGISTER (ORDINAL INTO RGFILE)              TSTEXT      2089     A     
 TSTEXT    RGNUM    DEFINE 18,18       NUMBER OF REGISTERS IN REGISTER SCAN WORD           TSTEXT      2090     A     
 TSTEXT    RGMSK    DEFINE 36,18       MASK TO USE FOR REGISTER SCAN WORD.                 TSTEXT      2091     A     
 TSTEXT    RGINS    DEFINE 54,6        6 BIT OP-CODE TO LOAD REGISTER                      TSTEXT      2092     A     
 TSTEXT    P.RLOCK  EQU    16                                                              TSTEXT      2093     A     
 TSTEXT    RHUSE    EQU    1S15        HIGHEST VALUE FOR USE COUNT ON A REGISTER           TSTEXT      2094     A     
 TSTEXT             SPACE  4                                                               TSTEXT      2095     A     
 TSTEXT   *                                                                                TSTEXT      2096     A     
 TSTEXT   *         NOTE -- THESE EQUATES ARE USED TO INDEX INTO THE REGISTER              TSTEXT      2097     A     
 TSTEXT   *         FILE.  IF THE ACTUAL CELLS ARE TO BE ADDRESSED, CHECK THE NEW          TSTEXT      2098     A     
 TSTEXT   *         NAMES IN THE REGISTER FILE.                                            TSTEXT      2099     A     
 TSTEXT   *                                                                                TSTEXT      2100     A     
 TSTEXT    RGFILE   EQU    0           STARTING OFFSET FOR REGISTER FILE                   TSTEXT      2101     A     
 TSTEXT    R.B0     EQU    0                                                               TSTEXT      2102     A     
 TSTEXT    R.B1     EQU    1                                                               TSTEXT      2103     A     
 TSTEXT    R.B2     EQU    2                                                               TSTEXT      2104     A     
 TSTEXT    R.B3     EQU    3                                                               TSTEXT      2105     A     
 TSTEXT    R.B4     EQU    4                                                               TSTEXT      2106     A     
 TSTEXT    R.B5     EQU    5                                                               TSTEXT      2107     A     
 TSTEXT    R.B6     EQU    6                                                               TSTEXT      2108     A     
 TSTEXT    R.B7     EQU    7                                                               TSTEXT      2109     A     
 TSTEXT    REG.B    EQU    R.B0        *B* REGISTERS                                       TSTEXT      2110     A     
 TSTEXT                                                                                    TSTEXT      2111     A     
 TSTEXT    R.A0     EQU    8                                                               TSTEXT      2112     A     
 TSTEXT    R.A1     EQU    9                                                               TSTEXT      2113     A     
 TSTEXT    R.A2     EQU    10                                                              TSTEXT      2114     A     
 TSTEXT    R.A3     EQU    11                                                              TSTEXT      2115     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 399    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT    R.A4     EQU    12                                                              TSTEXT      2116     A     
 TSTEXT    R.A5     EQU    13                                                              TSTEXT      2117     A     
 TSTEXT    R.A6     EQU    14                                                              TSTEXT      2118     A     
 TSTEXT    R.A7     EQU    15                                                              TSTEXT      2119     A     
 TSTEXT    REG.A    EQU    R.A0        *A* REGISTERS                                       TSTEXT      2120     A     
 TSTEXT                                                                                    TSTEXT      2121     A     
 TSTEXT    R.X0     EQU    16                                                              TSTEXT      2122     A     
 TSTEXT    R.X1     EQU    17                                                              TSTEXT      2123     A     
 TSTEXT    R.X2     EQU    18                                                              TSTEXT      2124     A     
 TSTEXT    R.X3     EQU    19                                                              TSTEXT      2125     A     
 TSTEXT    R.X4     EQU    20                                                              TSTEXT      2126     A     
 TSTEXT    R.X5     EQU    21                                                              TSTEXT      2127     A     
 TSTEXT    R.X6     EQU    22                                                              TSTEXT      2128     A     
 TSTEXT    R.X7     EQU    23                                                              TSTEXT      2129     A     
 TSTEXT    REG.X    EQU    R.X0        *X* REGISTERS                                       TSTEXT      2130     A     
 TSTEXT                                                                                    TSTEXT      2131     A     
 TSTEXT    L.RGFILE EQU    23                                                              TSTEXT      2132     A     
 TSTEXT    PBLK     DEFINE 8           BLOCKDATA                                           TSTEXT      2133     A     
 TSTEXT    PFNC     DEFINE 9           FUNCTION                                            TSTEXT      2134     A     
 TSTEXT    PSUB     DEFINE 10          SUBROUTINE                                          TSTEXT      2135     A     
 TSTEXT    PPRO     DEFINE 11          PROGRAM                                             TSTEXT      2136     A     
 TSTEXT    PFVI     DEFINE 12          FORTRAN VI ( IF SET, ELSE FORTRAN IV)               TSTEXT      2137          I
          -FEAT155G 
 TSTEXT             SPACE  4                                                               TSTEXT      2138     A     
 TSTEXT   *         CONTROLS ACTIONS OF TABLE MANAGER                                      TSTEXT      2139     A     
 TSTEXT                                                                                    TSTEXT      2140     A     
 TSTEXT    PASS=AFS EQU    0           0 = MORE ROOM NEEDED FOR CONTINUATION CARDS         TSTEXT      2141     A     
 TSTEXT    PASS=PAR EQU    1           1 =  PARSE.                                         TSTEXT      2142     A     
 TSTEXT    PASS=ARI EQU    2           2 =  ARITH, OR ANY-TIME (A7) _ LONG FILE.           TSTEXT      2143     A     
 TSTEXT    PASS=PIG EQU    3           3 =  DURING *PIG* PROCESSING.                       TSTEXT      2144     A     
 TSTEXT    PASS=END EQU    4           4 =  *END* PROCESSING.                              TSTEXT      2145     A     
 TSTEXT    PASS=MAP EQU    5           5 =  DURING REF-MAP PROCESSING.                     TSTEXT      2146     A     
 TSTEXT                                                                                    TSTEXT      2147     A     
 TSTEXT    L.MAPSYM EQU    8           BIT LENGTH OF MAP CHARACTER SYMBOLS.                TSTEXT      2148          I
          -FCC1222
 TSTEXT                                                                                    TSTEXT      2149          I
          -FCC1222
 TSTEXT    SATAG    DEFINE 42,18       TAG FOR ARRAY PROCESSING.                           TSTEXT      2150     A     
 TSTEXT             EJECT                                                                  TSTEXT      2151     A     
 TSTEXT   ****      DEFINITIONS OF CELL/VARIABLE S USED BY TS COMPILER                     TSTEXT      2152     A     
 TSTEXT                                                                                    TSTEXT      2153     A     
 TSTEXT                                                                                    TSTEXT      2154     A     
 TSTEXT    L.PSTACK EQU    3           LENGTH OF LOCAL PAREN STACK                         TSTEXT      2155     A     
 TSTEXT                                SUB-FIELD SET IN ARGMODE.                           TSTEXT      2156     A     
 TSTEXT    AMAD     DEFINE 0,18        AGMODE JUMP ADDRESS FOR PROCESSING PARENS           TSTEXT      2157     A     
 TSTEXT                                OR COMMAS WHILE PARSING STATEMENT.                  TSTEXT      2158     A     
 TSTEXT    AMC      DEFINE 18,18       ADDRESS FOR PROCESSING COMMA OPERATOR ABOUT         TSTEXT      2159     A     
 TSTEXT                                TO BE POPPED DURING PARSING.                        TSTEXT      2160     A     
 TSTEXT                                VALUE CONTAINED IN THIS FIELD IS ALWAYS             TSTEXT      2161     A     
 TSTEXT                                REPRESENTED AS A C=XXX, WHICH DEFINES THE           TSTEXT      2162     A     
 TSTEXT                                ROUTINE TO JP TO WHEN IN THE APPROPRIATE            TSTEXT      2163     A     
 TSTEXT                                ARGMODE.                                            TSTEXT      2164     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 400    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT    AMATR    DEFINE 36,12       ATTRIBUTES FOR THIS ARGMODE                         TSTEXT      2165     A     
 TSTEXT    AMFUN    DEFINE P.AMATR     ALLOW FUNCTION REFERENCE WITHOUT *(*                TSTEXT      2166     A     
 TSTEXT    AMEOS    DEFINE P.AMATR+1   EOS UNARY CHECK                                     TSTEXT      2167     A     
 TSTEXT    AMRP     DEFINE P.AMATR+2   SPECIAL CHECK ON ILLEGAL RPAREN                     TSTEXT      2168     A     
 TSTEXT    AMADDR   DEFINE P.AMATR+3   ADDRESS REQUESTED (VERSUS VALUE)                    TSTEXT      2169     A     
 TSTEXT    AMWHOL   DEFINE P.AMATR+4   ALLOW MULTI-WORD HOLLERITH CONSTANTS                TSTEXT      2170     A     
 TSTEXT    AMEQ     DEFINE P.AMATR+5   ALLOW *=*                                           TSTEXT      2171     A     
 TSTEXT                                                                                    TSTEXT      2172     A     
 TSTEXT    AMR      DEFINE 48,12       VALUE FOR REFERENCES TO SYMBOL FOR ZERO             TSTEXT      2173     A     
 TSTEXT                                LEVEL SYMBOLS FOUND WHILE PARSING STATEMENT         TSTEXT      2174     A     
 TSTEXT                                                                                    TSTEXT      2175     A     
 TSTEXT                                DEFINED SUBFIELDS IN ARGCOMA                        TSTEXT      2176     A     
 TSTEXT    ACC      DEFINE 0,18        DEFINED ARGUMENT COUNT FOR FUNCTION,                TSTEXT      2177     A     
 TSTEXT                                SUBROUTINE.                                         TSTEXT      2178     A     
 TSTEXT    ACM      DEFINE 18,18       DEFINED ARGUMENT MODE FOR ARGUMENTS TO              TSTEXT      2179     A     
 TSTEXT                                FUNCTION, SUBROUTINE, ARRAY..                       TSTEXT      2180     A     
 TSTEXT                                                                                    TSTEXT      2181     A     
 TSTEXT                                                                                    TSTEXT      2182     A     
 TSTEXT   ****      PASS 2 - DEFINITION OF AN OPERAND WITHIN A *TURPLE*                    TSTEXT      2183     A     
 TSTEXT                                                                                    TSTEXT      2184     A     
 TSTEXT    2TAG     DEFINE P.TAG,L.TAG       TAG                                           TSTEXT      2185     A     
 TSTEXT    2BIAS    DEFINE 24,18                                                           TSTEXT      2186     A     
 TSTEXT    2CLAS    DEFINE 9,6                                                             TSTEXT      2187     A     
 TSTEXT                                                                                    TSTEXT      2188     A     
 TSTEXT    2FPNO    DEFINE 18,6                                                            TSTEXT      2189     A     
 TSTEXT    2STAT    DEFINE 15,3                                                            TSTEXT      2190     A     
 TSTEXT    USTAT    DEFINE 0+P.2STAT   STATUS OF UPPER HALF OF TAG                         TSTEXT      2191     A     
 TSTEXT    LSTAT    DEFINE 1+P.2STAT   STATUS OF LOWER HALF OF TAG                         TSTEXT      2192     A     
 TSTEXT    TYPE     DEFINE 2+P.2STAT    TYPE OF TAG (FOR REGISTER FILE USE)                TSTEXT      2193     A     
 TSTEXT                                                                                    TSTEXT      2194     A     
 TSTEXT    2MODE    DEFINE P.MODE,L.MODE                                                   TSTEXT      2195     A     
 TSTEXT                                                                                    FCC1134        5     A     
 TSTEXT   *         *ARE* BIT IS FOR COMMUNICATION BETWEEN PAR AND IO.                     FCC1134        6     A     
 TSTEXT                                                                                    FCC1134        7     A     
 TSTEXT    LCF      DEFINE 6           LOCF ARGUMENT                                       FCC1134        8     A     
 TSTEXT    ARE      DEFINE 7           ENTIRE ARRAY REFERENCED                             FCC1134        9     A     
 TSTEXT                                                                                    TSTEXT      2196     A     
 TSTEXT    PTAGU    DEFINE P.2TAG,L.2TAG         UPPER  18 BIT TAG                         TSTEXT      2197     A     
 TSTEXT    PTAGM    DEFINE P.2TAG-L.2TAG,L.2TAG  MIDDLE 18 BIT TAG                         TSTEXT      2198     A     
 TSTEXT    PTAGL    DEFINE 0,L.2TAG              LOWER  18 BIT TAG                         TSTEXT      2199     A     
 TSTEXT                                                                                    TSTEXT      2200     A     
 TSTEXT   **        VARIOUS BIT DEFINITIONS FOR *2CLAS* FIELD SET DURING PARSING           TSTEXT      2201     A     
 TSTEXT   *         OF A STATEMENT FOR PASS *2* PROCESSING OF A TAG.                       TSTEXT      2202     A     
 TSTEXT                                                                                    TSTEXT      2203     A     
 TSTEXT    INTR     DEFINE 0+P.2CLAS   INTERMEDIATE.                                       TSTEXT      2204     A     
 TSTEXT    ADDR     DEFINE 1+P.2CLAS   SET = ADDRESS, OFF = VALUE.                         TSTEXT      2205     A     
 TSTEXT    SHORT    DEFINE 2+P.2CLAS   SHORT CONSTANT.                                     TSTEXT      2206     A     
 TSTEXT    MSHORT   DEFINE P.2BIAS,6   SHORT CONSTANT THAT IS WILL BE GENERATED BY         TSTEXT      2207     A     
 TSTEXT                                *MASK* INSTRUCTION.                                 TSTEXT      2208     A     
 TSTEXT                                REPRESENTED BY A *TAG* OF *0* AND A SHIFT           TSTEXT      2209     A     
 TSTEXT                                COUNT IN *MSHORT* FIELD.                            TSTEXT      2210     A     
 TSTEXT    SMULT    DEFINE 3+P.2CLAS   SUBSCRIPT MULTIPLIER DURING PASS *1*                TSTEXT      2211     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 401    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT    2PRO     DEFINE 3+P.2CLAS   TAG IS PROGRAM TAG                                  TSTEXT      2212     A     
 TSTEXT    2EQUIV   DEFINE 4+P.2CLAS                                                       TSTEXT      2213     A     
 TSTEXT    2ARY     DEFINE 5+P.2CLAS                                                       TSTEXT      2214     A     
 TSTEXT                                                                                    TSTEXT      2215     A     
 TSTEXT                                                                                    TSTEXT      2216     A     
 TSTEXT   **        LAYOUT OF *TURPLE* TAG AS DEFINED BY ABOVE DEFINITIONS.                TSTEXT      2217     A     
 TSTEXT   *                                                                                TSTEXT      2218     A     
 TSTEXT   **T PASS2 18/2TAG,18/2BIAS,6/2FPNO,3/2STAT,6/2CLAS,6/0,3/M                       TSTEXT      2219     A     
 TSTEXT   *                                                                                TSTEXT      2220     A     
 TSTEXT   *         M = 2MODE                                                              TSTEXT      2221     A     
 TSTEXT   ****                                                                             TSTEXT      2222     A     
 TSTEXT             EJECT                                                                  TSTEXT      2223     A     
 TSTEXT   ****      FIELD DEFINITIONS FOR OPERATOR CELL.                                   TSTEXT      2224     A     
 TSTEXT                                                                                    TSTEXT      2225     A     
 TSTEXT                                                                                    TSTEXT      2226     A     
 TSTEXT    SBPR     DEFINE 0,18        *SB*  PRIORITY.                                     TSTEXT      2227     A     
 TSTEXT    STPR     DEFINE 18,9        STACK PRIORITY.                                     TSTEXT      2228     A     
 TSTEXT    MODC     DEFINE P.STPR,L.STPR     MODE CONVERSION BITS (SET WHEN POP)           TSTEXT      2229     A     
 TSTEXT    DMOD     DEFINE 27,4        DOMINANT MODE POINTER.                              TSTEXT      2230     A     
 TSTEXT    ATTR     DEFINE 31,11       ATTRIBUTE OF OPERATOR.                              TSTEXT      2231     A     
 TSTEXT                                                                                    TSTEXT      2232     A     
 TSTEXT   *         ATTRIBUTE SUB-FIELD BIT DEFINITIONS.                                   TSTEXT      2233     A     
 TSTEXT                                                                                    TSTEXT      2234     A     
 TSTEXT    AS       DEFINE P.ATTR      ASSOCIATIVE PROPERTY OPERATOR.                      TSTEXT      2235     A     
 TSTEXT    COM      DEFINE P.AS+1      COMMUTATIVE PROPERTY OPERATOR.                      TSTEXT      2236     A     
 TSTEXT    DIS      DEFINE P.COM+1     DISTRIBUTIVE PROPERTY OPERATOR.                     TSTEXT      2237     A     
 TSTEXT    MODLS    DEFINE P.DIS+1     MODELESS OPERATOR.                                  TSTEXT      2238     A     
 TSTEXT    UNAR     DEFINE P.MODLS+1   UNARY OPERATOR.                                     TSTEXT      2239     A     
 TSTEXT    NSQEZ    DEFINE P.UNAR+1    IF OPERATOR IS NOT SQUEEZABLE.                      TSTEXT      2240     A     
 TSTEXT    NONSTD   DEFINE P.NSQEZ+1   IF OPERATOR NOT A STANDARD - PROCESSED EXT.         TSTEXT      2241     A     
 TSTEXT    OPADDR   DEFINE P.NONSTD+1  DEFINE OPERATOR RESULTS IN A ADDRESS                TSTEXT      2242     A     
 TSTEXT    OPVAL    DEFINE P.OPADDR    =0 IF VALUE REQUESTED                               TSTEXT      2243     A     
 TSTEXT                                                                                    TSTEXT      2244     A     
 TSTEXT    JPAD     DEFINE 42,18       ADDRESS OF OPERATOR PROCESSOR.                      TSTEXT      2245     A     
 TSTEXT   ****                                                                             TSTEXT      2246     A     
 TSTEXT    SETOP    EJECT  4,20                                                            TSTEXT      2247     A     
 TSTEXT   ****      LGR -  LETTER GROUP TABLE FOR STATEMENT RECOGNIZERS.                   TSTEXT      2248     A     
 TSTEXT   *                                                                                TSTEXT      2249     A     
 TSTEXT   *                THE *LGR* TABLE SERVES THREE FUNCTIONS --                       TSTEXT      2250     A     
 TSTEXT   *         (1) =  DESCRIBES THE KEYWORD OF THE STATEMENT (IF ANY),                TSTEXT      2251     A     
 TSTEXT   *         (2) =  INDICATES ANY SPECIAL ATTRIBUTES, AND                           TSTEXT      2252     A     
 TSTEXT   *         (3) =  DEFINES WHERE A STATEMENT MAY OCCUR.                            TSTEXT      2253     A     
 TSTEXT   *                                                                                TSTEXT      2254     A     
 TSTEXT   *                SYNTACTICALLY RECOGNIZED STATEMENTS ARE NOT PART OF THE         TSTEXT      2255     A     
 TSTEXT   *         *LGR* TABLE PROPER, BUT RATHER FAKE ENTRIES DESCRIBING THEIR           TSTEXT      2256     A     
 TSTEXT   *         PROPERTIES ARE APPENDED TO THE END OF THE TABLE (PAST THE              TSTEXT      2257     A     
 TSTEXT   *         LENGTH INDICATED BY *LG.LGR*).                                         TSTEXT      2258     A     
 TSTEXT                                                                                    TSTEXT      2259     A     
 TSTEXT                                                                                    TSTEXT      2260     A     
 TSTEXT    SKEY     DEFINE 36,4*CHAR   FIRST FOUR CHARACTERS OF KEYWORD.                   TSTEXT      2261     A     
 TSTEXT                                0L FORMAT.  IS = -1 FOR SYNTACTICALLY               TSTEXT      2262     A     
 TSTEXT                                RECOGNIZED STATEMENTS.                              TSTEXT      2263     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 402    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT                                                                                    TSTEXT      2264     A     
 TSTEXT    SCPM     DEFINE 31,5        ORDINAL OF STAGE VECTOR, DESCRIBED BELOW.           TSTEXT      2265     A     
 TSTEXT                                                                                    TSTEXT      2266     A     
 TSTEXT    SATTR    DEFINE 25,6        SPECIAL ATTRIBUTES, DESCRIBED BELOW.                TSTEXT      2267     A     
 TSTEXT                                                                                    TSTEXT      2268     A     
 TSTEXT    SLEN     DEFINE 18,7        NUMBER OF BITS, MINUS ONE, IN THE ENTIRE            TSTEXT      2269     A     
 TSTEXT                                KEYWORD.                                            TSTEXT      2270     A     
 TSTEXT                                                                                    TSTEXT      2271     A     
 TSTEXT    SJMP     DEFINE 0,18        ADDRESS OF THE STATEMENT PROCESSOR.                 TSTEXT      2272     A     
 TSTEXT                                                                                    TSTEXT      2273     A     
 TSTEXT                                                                                    TSTEXT      2274     A     
 TSTEXT   **        SPECIAL ATTRIBUTES AND THEIR MEANINGS ARE --                           TSTEXT      2275     A     
 TSTEXT                                                                                    TSTEXT      2276     A     
 TSTEXT    SBKD     DEFINE 0+P.SATTR   LEGAL IN BLOCKDATA SUBPROGRAMS.                     TSTEXT      2277     A     
 TSTEXT                                                                                    TSTEXT      2278     A     
 TSTEXT    SCDS     DEFINE 1+P.SATTR   MUST DEACTIVATE ANY DELAYED STORE BEFORE            TSTEXT      2279     A     
 TSTEXT                                PROCESSING STATEMENT.                               TSTEXT      2280     A     
 TSTEXT                                                                                    TSTEXT      2281     A     
 TSTEXT    SGEN     DEFINE 2+P.SATTR   ADDRESS APPEARS ON LISTING (I.E.--                  TSTEXT      2282     A     
 TSTEXT                                GENERATES OBJECT CODE).                             TSTEXT      2283     A     
 TSTEXT                                                                                    TSTEXT      2284     A     
 TSTEXT    SLBL     DEFINE 3+P.SATTR   STATEMENT LABEL IS ALLOWED AND PROCESSED            TSTEXT      2285     A     
 TSTEXT                                NORMALLY (BY *GSN*).                                TSTEXT      2286     A     
 TSTEXT                                                                                    TSTEXT      2287     A     
 TSTEXT    SNIF     DEFINE 4+P.SATTR   ILLEGAL AS OBJECT OF ONE-BRANCH *IF*.               TSTEXT      2288     A     
 TSTEXT                                                                                    TSTEXT      2289     A     
 TSTEXT    SDON     DEFINE 5+P.SATTR   ILLEGAL AS TERMINATOR OF A *DO*                     TSTEXT      2290     A     
 TSTEXT   ****                                                                             TSTEXT      2291     A     
 TSTEXT                                                                                    TSTEXT      2292     A     
 TSTEXT    LG.STN   EQU    5           NUMBER OF DIGITS TO ASSEMBLE FOR STMT. NO.          TSTEXT      2293     A     
 TSTEXT             EJECT                                                                  TSTEXT      2294     A     
 TSTEXT    HEREIF   MACRO  KEY                                                             TSTEXT      2295     A     
 TSTEXT    A        MICRO  5,3,/KEY/                                                       TSTEXT      2296     A     
 TSTEXT    D        MICRO  8,,/KEY/                                                        TSTEXT      2297     A     
 TSTEXT    B        MICRO  1,6,/KEY/                                                       TSTEXT      2298     A     
 TSTEXT             VFD    42/0L"D",18/0L"A"                                               TSTEXT      2299     A     
 TSTEXT    "B"_=    BSS    0                                                               TSTEXT      2300     A     
 TSTEXT             ENTRY  "B"_=                                                           TSTEXT      2301     A     
 TSTEXT    HEREIF   ENDM                                                                   TSTEXT      2302     A     
 TSTEXT                                                                                    TSTEXT      2303     A     
 TSTEXT                                                                                    TSTEXT      2304     A     
 TSTEXT   **        SATTR - MACRO TO DESCRIBE STATEMENT ATTRIBUTES.                        TSTEXT      2305     A     
 TSTEXT   *                CALLED BY NON-KEYWORD STATEMENTS, AND BY *HEREIF* (TO           TSTEXT      2306     A     
 TSTEXT   *         FORCE MICRO EVALUATION).  ALL *SATTR* SOURCE-LEVEL CALLS MUST          TSTEXT      2307     A     
 TSTEXT   *         APPEAR AFTER *LG.LEN* IS DEFINED.                                      TSTEXT      2308     A     
 TSTEXT   *                                                                                TSTEXT      2309     A     
 TSTEXT   * LOC     SATTR  KEY,ADDR,STAGE,(ATTR),LEN                                       TSTEXT      2310     A     
 TSTEXT   *                                                                                TSTEXT      2311     A     
 TSTEXT   *         (KEY)  = FIRST FOUR CHARACTERS OF KEYWORD OR -1                        TSTEXT      2312     A     
 TSTEXT   *         (LOC)  = NAME TO BE GIVEN TO /JUMPTO./ ORDINAL.                        TSTEXT      2313     A     
 TSTEXT   *         (ADDR) = ADDRESS OF STATEMENT PROCESSOR.                               TSTEXT      2314     A     
 TSTEXT   *         (STAGE)= NAME OF STAGE VECTOR (ROW)                                    TSTEXT      2315     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 403    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSTEXT  
  
 TSTEXT   *         (ATTR) = NAME(S) OF ATTRIBUTE BIT(S)                                   TSTEXT      2316     A     
 TSTEXT   *         (LEN)  = LENGTH (IN CHARACTERS) OF KEYWORD                             TSTEXT      2317     A     
 TSTEXT                                                                                    TSTEXT      2318     A     
 TSTEXT                                                                                    TSTEXT      2319     A     
 TSTEXT             MACRO  SATTR,LOC,KEY,ADDR,STAGE,ATTR,LEN                               TSTEXT      2320     A     
 TSTEXT    LOC      VFD    L.SKEY/KEY,L.SCPM/CPM=STAGE                                     TSTEXT      2321     A     
 TSTEXT   .1        IFC    NE,//ATTR/        NECESSARY UNTIL COMPASS FIXED.                TSTEXT      2322     A     
 TSTEXT             IRP    ATTR                                                            TSTEXT      2323     A     
 TSTEXT             POS    P.S_ATTR+1                                                      TSTEXT      2324     A     
 TSTEXT             VFD    1/1         (ATTR)                                              TSTEXT      2325     A     
 TSTEXT             IRP                                                                    TSTEXT      2326     A     
 TSTEXT   .1        ENDIF                                                                  TSTEXT      2327     A     
 TSTEXT             POS    P.SATTR                                                         TSTEXT      2328     A     
 TSTEXT   .1        IFC    NE,//LEN/                                                       TSTEXT      2329     A     
 TSTEXT             VFD    L.SLEN/LEN*CHAR-1,L.SJMP/=X_ADDR                                TSTEXT      2330     A     
 TSTEXT   .1        ELSE                                                                   TSTEXT      2331     A     
 TSTEXT             VFD    L.SLEN/,L.SJMP/=X_ADDR                                          TSTEXT      2332     A     
 TSTEXT   .1        ENDIF                                                                  TSTEXT      2333     A     
 TSTEXT    SATTR    ENDM                                                                   TSTEXT      2334     A     
 TSTEXT             EJECT                                                                  TSTEXT      2335     A     
 TSTEXT    LG.VAR   EQU    7           NUMBER OF CHARACTERS TO ASSEMBLE FOR                TSTEXT      2336     A     
 TSTEXT                                TABBING PROCESS.                                    TSTEXT      2337     A     
 TSTEXT    S=NLST   EQU    -3          FLAG VALUE FOR *NAMELIST* I/O STATEMENT             TSTEXT      2338     A     
 TSTEXT    S=END    EQU    -1          =-1   USED BY *SPR* TO INDICATE WHO CALLED          TSTEXT      2339     A     
 TSTEXT    S=RET    EQU    S=END       =-1                                                 TSTEXT      2340     A     
 TSTEXT    S=PAU    EQU    S=END+1     = 0                                                 TSTEXT      2341     A     
 TSTEXT    S=STOP   EQU    S=PAU+1     =+1                                                 TSTEXT      2342     A     
 TSTEXT                                                                                    TSTEXT      2343     A     
 TSTEXT    MODE     DEFINE 0,3               FUNCTION MODE.                                TSTEXT      2344     A     
 TSTEXT    FARGC    DEFINE 3,L.ARGC    ARGUMENT COUNT.                                     TSTEXT      2345     A     
 TSTEXT    FARGM    DEFINE 9,3               ARGUMENT MODE.                                TSTEXT      2346     A     
 TSTEXT    FJPAD    DEFINE 12,9              JUMP ADDRESS/SHIT COUNT FIELD.                TSTEXT      2347     A     
 TSTEXT    FANSI    DEFINE 21,1              IF ANSI = 1. NON ANSI = 0.                    TSTEXT      2348     A     
 TSTEXT    FBEF     DEFINE 22,1              INDICATE *BEF* VS INTRINSIC.                  TSTEXT      2349     A     
 TSTEXT    FABN     DEFINE 23,1              ABNORMAL FUNCTION.                            TSTEXT      2350          I
          -FCC0966
 TSTEXT    FDPC     DEFINE 24,36             *DPC* FOR FUNCTION.                           TSTEXT      2351     A     
 TSTEXT   ****                                                                             TSTEXT      2352     A     
 TSTEXT                                                                                    TSTEXT      2353     A     
 TSTEXT   **        REGISTER FIELDS IN PARSED FILE                                         TSTEXT      2354     A     
 TSTEXT                                                                                    TSTEXT      2355     A     
 TSTEXT    UREG     DEFINE 0,6         LOAD REGISTER UPPER PART.                           TSTEXT      2356     A     
 TSTEXT    LREG     DEFINE 6,6         LOAD REGISTER LOWER PART.                           TSTEXT      2357     A     
 TSTEXT                                                                                    TSTEXT      2358     A     
 TSTEXT                                                                                    TSTEXT      2359     A     
 TSTEXT             END                                                                    TSTEXT      2360     A     
 TSTEXT   *WEOR,0                                                                          TSTEXT      2361          I
          -FCCA589
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 404    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - TSTEXT  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          TSTEXT                    2361      2210
          FCC0575                      1         1
          FEAT126A                     7         7
          FEAT126C                    10        10
          FCC0813                      4         3
          FCC0844                      3         3
          FEAT155D                     5         5
          FEAT155E                     1         1
          FEAT155G                     1         1
          FEAT155F                    77        77
          FCC0966                      6         6
          FCC1134                      5         5
          FCC1201                      1         1
          FCC1237                      1         1
          FCC1563X                     1         1
          FCC1716X                     1         1
          F162FTNA                    16        16
          F66FCC                      21        21
          FCCA408                      5         5
          FCCA451                      8         6
          FCCA511                      1         1
          FCC2194                      1         1
          FCC2246                      1         1
          FCCA589                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN WEOR1*  
  
 WEOR1*   *DECK WEOR1*                                                                     FCCA589       14     A     
 WEOR1*   *WEOR 0                                                                          FCCA589       15     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - WEOR1*  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FCCA589                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
 FTNMAC   *DECK     FTNMAC                                                                 FTNMAC         1     A     
 FTNMAC             IDENT  FTNMAC                                                          FTNMAC         2     A     
 FTNMAC    FTNMAC   TITLE  FTNMAC - FTN OBJECT CODE MACRO DEFINITIONS                      FTNMAC         3     A     
 FTNMAC             STEXT                                                                  FTNMAC         4     A     
 FTNMAC             LIST   F                                                               FTNMAC         5     A     
 FTNMAC             SPACE  4                                                               FTNMAC         6     A     
 FTNMAC   ***       FTNMAC - FORTRAN EXTENDED OBJECT CODE MACRO DEFINITION TEXT.           FTNMAC         7     A     
 FTNMAC   *                                                                                FTNMAC         8     A     
 FTNMAC   *         THIS FILE CONTAINS THE MACRO DEFINITIONS AND DECLARATIVE               FTNMAC         9     A     
 FTNMAC   *         STATEMENTS NECESSARY FOR THE "COMPASS" ASSEMBLER TO ASSEMBLE           FTNMAC        10     A     
 FTNMAC   *         THE COMPS FILE.                                                        FTNMAC        11     A     
 FTNMAC   *                                                                                FTNMAC        12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 405    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
 FTNMAC                                                                                    FTNMAC        13     A     
 FTNMAC   *CALL     OPTIONS                                                                FTNMAC        14     A     
 FTNMAC             TITLE                                                                  FTNMAC        15     A     
 FTNMAC   ***                                                                              F162FTNA      58     A     
 FTNMAC   *         MACROS OUTPUT BY THE HEADER CARD PROCESSOR.                            F162FTNA      59     A     
 FTNMAC   *                                                                                F162FTNA      60     A     
 FTNMAC    USEBLK   SPACE  4,8                                                             F162FTNA      61     A     
 FTNMAC   **        USEBLK - ESTABLISH ORDER OF PROGRAM BLOCKS.                            F162FTNA      62     A     
 FTNMAC                                                                                    FTNMAC        16     A     
 FTNMAC   *         ESTABLISH BLOCK ORDERING                                               FTNMAC        17          I
          -F162FTNA 
 FTNMAC                                                                                    F162FTNA      63     A     
 FTNMAC             PURGMAC   USEBLK                                                       F162FTNA      64     A     
 FTNMAC                                                                                    FTNMAC        18     A     
 FTNMAC    USEBLK   MACRO                                                                  FTNMAC        19     A     
 FTNMAC             USE    START.            1                                             FTNMAC        20     A     
 FTNMAC             USE    VARDIM.           2                                             FTNMAC        21     A     
 FTNMAC             USE    ENTRY.            3                                             FTNMAC        22     A     
 FTNMAC             USE    CODE.             4                                             FTNMAC        23     A     
 FTNMAC             USE    DATA.             5                                             FTNMAC        24     A     
 FTNMAC             USE    DATA..            6                                             FTNMAC        25     A     
 FTNMAC             USE    HOL.              7                                             FTNMAC        26     A     
 FTNMAC   *                                  DEFINE .CPU FOR MACROS IN FTNMAC.             F162FTNA      65     A     
 FTNMAC    .CPU     EQU    "MDL"                                                           F162FTNA      66     A     
 FTNMAC    USEBLK   ENDM                                                                   F162FTNA      67     A     
 FTNMAC    STLTAB   SPACE  4,7                                                             FCCA408       18     A     
 FTNMAC   **        STLTAB - GENERATE STATIC MODE WEAK EXTERNAL TABLE.                     FCCA408       19     A     
 FTNMAC   *                                                                                FCCA408       20     A     
 FTNMAC   *         STLTAB NAME                                                            FCCA408       21     A     
 FTNMAC   *                                                                                FCCA408       22     A     
 FTNMAC   *         ARGS   *NAME*  = NAME OF *FCL* STATIC LOAD BLOCK. NOTE                 FCCA408       23     A     
 FTNMAC   *                          THAT THIS TABLE IS GENERATED WITH ALL                 FCCA408       24     A     
 FTNMAC   *                          POSSIBLE NAMES.                                       FCCA408       25     A     
 FTNMAC                                                                                    FCCA408       26     A     
 FTNMAC                                                                                    FCCA408       27     A     
 FTNMAC             PURGMAC STLTAB                                                         FCCA408       28     A     
 FTNMAC                                                                                    FCCA408       29     A     
 FTNMAC    STLTAB   MACRO  NAME                                                            FCCA408       30     A     
 FTNMAC             VFD    30/=Y_NAME                                                      FCCA408       31     A     
 FTNMAC    STLTAB   ENDM                                                                   FCCA408       32     A     
 FTNMAC    LIBLNK   SPACE  4,7                                                             F162FTNA      68     A     
 FTNMAC   **        LIBLNK - RUN-TIME OBJECT LIBRARY COMMUNICATION LINK.                   F162FTNA      69     A     
 FTNMAC   *                                                                                FTNMAC        27     A     
 FTNMAC    .CPU     EQU    "MDL"             DEFINE .CPU FOR MACROS IN FTNMAC              FTNMAC        28          I
          -F162FTNA 
 FTNMAC             ENDM                                                                   FTNMAC        29          I
          -F162FTNA 
 FTNMAC             SPACE  3                                                               FTNMAC        30          I
          -F162FTNA 
 FTNMAC   ***                                                                              FTNMAC        31          I
          -F162FTNA 
 FTNMAC   *         MACROS OUTPUT BY THE HEADER CARD PROCESSOR                             FTNMAC        32          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 406    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
          -F162FTNA 
 FTNMAC   *                                                                                FTNMAC        33     A     
 FTNMAC   *         LIBLNK    NRFILES,PRNTLIM,STATIC                                       F162FTNA      70          I
          -FCCA408
 FTNMAC   *         LIBLNK NRFILES,PRNTLIM,STATIC,WKEXT                                    FCCA408       33     A     
 FTNMAC   *                                                                                F162FTNA      71     A     
 FTNMAC   *         ARGS   *NRFILES* = NUMBER OF FILES DECLARED BY MAIN PROGRAM.           F162FTNA      72     A     
 FTNMAC   *                *PRNTLIM* = RUN-TIME OUTPUT FILE PRINT LIMIT.                   F162FTNA      73     A     
 FTNMAC   *                *STATIC*  = 1 IF STATIC LOAD OPTION SELECTED.                   F162FTNA      74     A     
 FTNMAC   *                            MAY BE OMITTED FOR DYNAMIC LOAD.                    F162FTNA      75     A     
 FTNMAC   *                *WKEXT*   = 1 IF WEAK EXTERNAL TABLE MUST BE GENERATED.         FCCA408       34     A     
 FTNMAC   *                              WILL ONLY BE SET TO 1 FOR MAIN PROGRAMS           FCCA408       35     A     
 FTNMAC   *                              WITHOUT FILES AND STATIC = 1.                     FCCA408       36     A     
 FTNMAC                                                                                    FTNMAC        34     A     
 FTNMAC   *         TRACE - TRACE BACK DATA MACRO                                          FTNMAC        35          I
          -F162FTNA 
 FTNMAC                                                                                    FTNMAC        36     A     
 FTNMAC             PURGMAC   LIBLNK                                                       F162FTNA      76     A     
 FTNMAC                                                                                    F162FTNA      77     A     
 FTNMAC    LIBLNK   MACRO  N,PL,S                                                          F162FTNA      78          I
          -FCCA408
 FTNMAC    LIBLNK   MACRO  N,PL,S,W                                                        FCCA408       37     A     
 FTNMAC             LOCAL  ST                                                              F162FTNA      79     A     
 FTNMAC    ST       SET    S  0                                                            F162FTNA      80     A     
 FTNMAC   +         VFD    12/N+2000B,30/0,18/FILES.                                       F162FTNA      81     A     
 FTNMAC             VFD    1/ST,59/PL                                                      F162FTNA      82     A     
 FTNMAC             DATA   0                                                               F162FTNA      83          I
          -FCCA408
 FTNMAC    .1       IFEQ   W,1                                                             FCCA408       38     A     
 FTNMAC             VFD    12/2001B,48/WXTTAB.                                             FCCA408       39     A     
 FTNMAC             CON    0                                                               FCCA408       40     A     
 FTNMAC    WXTTAB.  BSS    0                                                               FCCA408       41     A     
 FTNMAC   *CALL STLOAD                                                                     FCCA408       42     A     
 FTNMAC             IFNE   *P,0,1                                                          FCCA408       43     A     
 FTNMAC             VFD    30/0                                                            FCCA408       44     A     
 FTNMAC    .1       ENDIF                                                                  FCCA408       45     A     
 FTNMAC    +        CON    0                                                               FCCA408       46     A     
 FTNMAC    LIBLNK   ENDM                                                                   F162FTNA      84     A     
 FTNMAC    TRACE    SPACE  4,10                                                            F162FTNA      85     A     
 FTNMAC   **        TRACE - TRACE BACK DATA MACRO.                                         F162FTNA      86     A     
 FTNMAC                                                                                    F162FTNA      87     A     
 FTNMAC                                                                                    F162FTNA      88     A     
 FTNMAC             PURGMAC   TRACE                                                        F162FTNA      89     A     
 FTNMAC                                                                                    F162FTNA      90     A     
 FTNMAC    TRACE    MACRO  NAME,ADDR,NARGS                                                 FTNMAC        37     A     
 FTNMAC    TRACE.   VFD    42/0H_NAME,18/ADDR                                              FTNMAC        38     A     
 FTNMAC    ARGS.    EQU    NARGS 0           DEFINE ARGS. FOR ENTR. MACRO                  FTNMAC        39          I
          -F162FTNA 
 FTNMAC   *                                  DEFINE ARGS. FOR ENTR. MACRO.                 F162FTNA      91     A     
 FTNMAC    ARGS.    EQU    NARGS 0                                                         F162FTNA      92     A     
 FTNMAC   *         CONDITIONALLY DEFINE *TEMPA0.* FOR *PENTRY* MACRO TESTS.               FTNMAC        40     A     
 FTNMAC             IFC    NE,/NARGS//,1                                                   FTNMAC        41     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 407    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
 FTNMAC    TEMPA0.  BSS    1                                                               FTNMAC        42     A     
 FTNMAC             ENDM                                                                   FTNMAC        43          I
          -F162FTNA 
 FTNMAC             SPACE  3                                                               FTNMAC        44          I
          -F162FTNA 
 FTNMAC   *         PENTRY - PROGRAM ENTRY NAME MACRO                                      FTNMAC        45          I
          -F162FTNA 
 FTNMAC    TRACE    ENDM                                                                   F162FTNA      93     A     
 FTNMAC    PENTRY   SPACE  4,4                                                             F162FTNA      94     A     
 FTNMAC   **        PENTRY - PROGRAM ENTRY NAME MACRO.                                     F162FTNA      95     A     
 FTNMAC                                                                                    F162FTNA      96     A     
 FTNMAC                                                                                    F162FTNA      97     A     
 FTNMAC             PURGMAC   PENTRY                                                       F162FTNA      98     A     
 FTNMAC                                                                                    FTNMAC        46     A     
 FTNMAC    PENTRY   MACRO  NAME,LNAME,VAL                                                  FTNMAC        47          I
          -FEAT155A 
 FTNMAC    PENTRY   MACRO  NAME,LNAME,VAL,ER                                               FEAT155A       6     A     
 FTNMAC             IFNE   ER,0,2                                                          FEAT155A       7     A     
 FTNMAC   +         SB0    B2-Z.+TRACE.                                                    FEAT155A       8     A     
 FTNMAC             SB0    B2+TRACE.                                                       FEAT155A       9     A     
 FTNMAC    EXIT.    BSS    0                                                               FTNMAC        48     A     
 FTNMAC             IFEQ   VAL,2,2                                                         FTNMAC        49     A     
 FTNMAC             SA5    VALUE.+1                                                        FTNMAC        50     A     
 FTNMAC             BX7    X5                                                              FTNMAC        51     A     
 FTNMAC             IFNE   VAL,0,2                                                         FTNMAC        52     A     
 FTNMAC             SA4    VALUE.                                                          FTNMAC        53     A     
 FTNMAC             BX6    X4                                                              FTNMAC        54     A     
 FTNMAC             IF     DEF,TEMPA0.,2                                                   FTNMAC        55     A     
 FTNMAC             SA3    TEMPA0.                                                         FTNMAC        56     A     
 FTNMAC             SA0    X3+0                                                            FTNMAC        57     A     
 FTNMAC             ENTRY  NAME                                                            FTNMAC        58     A     
 FTNMAC    NAME     BSS    0                                                               FTNMAC        59     A     
 FTNMAC                                                                                    FTNMAC        60          I
          -F162FTNA 
 FTNMAC             IFC    NE,//LNAME/,1                                                   FTNMAC        61     A     
 FTNMAC    LNAME    EQ     *+400000B                                                       FTNMAC        62          I
          -F162FTNA 
 FTNMAC                                                                                    FTNMAC        63          I
          -F162FTNA 
 FTNMAC    LNAME    EQ     *+4S15                                                          F162FTNA      99     A     
 FTNMAC             IF     DEF,TEMPA0.,3                                                   FTNMAC        64     A     
 FTNMAC   +         SX6    A0                                                              FTNMAC        65     A     
 FTNMAC             SA0    A1                                                              FTNMAC        66     A     
 FTNMAC             SA6    TEMPA0.                                                         FTNMAC        67     A     
 FTNMAC             ENDM                                                                   FTNMAC        68          I
          -F162FTNA 
 FTNMAC             SPACE  3                                                               FTNMAC        69          I
          -F162FTNA 
 FTNMAC   *         FLINK - FILE NAME LINK MACRO                                           FTNMAC        70          I
          -F162FTNA 
 FTNMAC    PENTRY   ENDM                                                                   F162FTNA     100     A     
 FTNMAC    FLINK    SPACE  4,9                                                             F162FTNA     101     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 408    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
 FTNMAC   **        FLINK - FILE NAME LINK MACRO.                                          F162FTNA     102     A     
 FTNMAC                                                                                    F162FTNA     103     A     
 FTNMAC                                                                                    F162FTNA     104     A     
 FTNMAC             PURGMAC   FLINK                                                        F162FTNA     105     A     
 FTNMAC                                                                                    FTNMAC        71     A     
 FTNMAC    FLINK    MACRO  NAME                                                            FTNMAC        72     A     
 FTNMAC    X        MICRO  1,,"C"NAME"C"                                                   FTNMAC        73     A     
 FTNMAC             VFD    42/0L"X",18/NAME                                                FTNMAC        74     A     
 FTNMAC             ENDM                                                                   FTNMAC        75          I
          -F162FTNA 
 FTNMAC    FLINK    ENDM                                                                   F162FTNA     106     A     
 FTNMAC    FEQU     SPACE  4,4                                                             F162FTNA     107     A     
 FTNMAC   **        FEQU - FILE NAME EQUIVALENCE MACRO.                                    F162FTNA     108     A     
 FTNMAC   *                                                                                F162FTNA     109     A     
 FTNMAC   *         ALSO USED BY THE ENTRY STMT PROCESSOR TO DEFINE ENTRY POINTS           F162FTNA     110     A     
 FTNMAC   *         THAT OCCUR BEFORE THE FIRST EXECUTABLE STATEMENT.                      F162FTNA     111     A     
 FTNMAC                                                                                    FTNMAC        76     A     
 FTNMAC   *         FEQU - FILE NAME EQUIVALENCE MACRO                                     FTNMAC        77          I
          -F162FTNA 
 FTNMAC   *         ALSO USED BY THE ENTRY STMT PROCESSOR TO DEFINE ENTRY POINTS           FTNMAC        78          I
          -F162FTNA 
 FTNMAC   *         THAT OCCUR BEFORE THE FIRST EXECUTABLE STATEMENT                       FTNMAC        79          I
          -F162FTNA 
 FTNMAC                                                                                    F162FTNA     112     A     
 FTNMAC             PURGMAC   FEQU                                                         F162FTNA     113     A     
 FTNMAC                                                                                    FTNMAC        80     A     
 FTNMAC    FEQU     MACRO  LFN1,LFN2,NOENT                                                 FTNMAC        81     A     
 FTNMAC             IFC    EQ,/NOENT//,1                                                   FTNMAC        82     A     
 FTNMAC             ENTRY  LFN1                                                            FTNMAC        83     A     
 FTNMAC    LFN1     EQU    LFN2                                                            FTNMAC        84     A     
 FTNMAC             ENDM                                                                   FTNMAC        85          I
          -F162FTNA 
 FTNMAC    FEQU     ENDM                                                                   F162FTNA     114     A     
 FTNMAC    FILXRM   SPACE  4,8                                                             F162FTNA     115     A     
 FTNMAC   **        FILCRM/FIL7RM - FORM FILE FIT AND BUFFERS.                             F162FTNA     116     A     
 FTNMAC   *                                                                                F162FTNA     117     A     
 FTNMAC   *                                                                                F162FTNA     118     A     
 FTNMAC   *         FILCRM    NAME,BFS,MRL,STATIC,NOEPT                                    F162FTNA     119     A     
 FTNMAC   *         FIL7RM    NAME,BFS,MRL,,NOEPT                                          F162FTNA     120     A     
 FTNMAC   *                                                                                F162FTNA     121     A     
 FTNMAC   *         ARGS   *NAME*   = LOGICAL FILE NAME, WITH SPECIAL CHAR SUFFIX.         F162FTNA     122     A     
 FTNMAC   *                *BFS*    = CIO BUFFER LENGTH (BFS).                             F162FTNA     123     A     
 FTNMAC   *                *MRL*    = MAXIMUM RECORD LENGTH IN CHARACTERS (MRL).           F162FTNA     124     A     
 FTNMAC   *                *STATIC* = NON-BLANK IF STATIC LOAD OPTION SELECTED.            F162FTNA     125     A     
 FTNMAC   *                *NOEPT*  = NON-BLANK IF *SYSEDIT* OPTION SELECTED.              F162FTNA     126     A     
 FTNMAC   *                           IF BLANK, *NAME* IS DECLARED TO BE AN                F162FTNA     127     A     
 FTNMAC   *                           ENTRY POINT.                                         F162FTNA     128     A     
 FTNMAC                                                                                    F162FTNA     129     A     
 FTNMAC                                                                                    F162FTNA     130     A     
 FTNMAC   **                           DEFINE CRM FIT AND BUFFERS.                         F162FTNA     131     A     
 FTNMAC                                                                                    F162FTNA     132     A     
 FTNMAC             PURGMAC   FILCRM                                                       F162FTNA     133     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 409    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
 FTNMAC                                                                                    F162FTNA     134     A     
 FTNMAC    FILCRM   MACRO  NAME,BFS,MRL,STATIC,NOEPT                                       F162FTNA     135     A     
 FTNMAC             LOCAL  FWB,WSA,MRLW                                                    F162FTNA     136     A     
 FTNMAC   *                            DECLARE ENTRY POINT IF *NOEPT* IS BLANK.            F162FTNA     137     A     
 FTNMAC             IFC    EQ,$NOEPT$$,1                                                   F162FTNA     138     A     
 FTNMAC             ENTRY  NAME                                                            F162FTNA     139     A     
 FTNMAC   *                                                                                F162FTNA     140     A     
 FTNMAC   *                            DEFINE CRM FIT SKELETON.                            F162FTNA     141     A     
 FTNMAC   *                                                                                F162FTNA     142     A     
 FTNMAC    LFN      MICRO  1,,"C"_NAME_"C"                                                 F162FTNA     143     A     
 FTNMAC   *                                  WORD 0 - LOGICAL FILE NAME (LFN),             F162FTNA     144     A     
 FTNMAC   *                                           CIO COMPLETE BIT (CMPLT).            F162FTNA     145     A     
 FTNMAC    NAME     VFD    42/0L"LFN",18/1                                                 F162FTNA     146     A     
 FTNMAC   *                                  WORD 1 - FWA CIO BUFFER (FWB).                F162FTNA     147     A     
 FTNMAC             IFNE   BFS,0,1                                                         F162FTNA     148          I
          -FCCA408
 FTNMAC             VFD    42/0,18/FWB                                                     F162FTNA     149          I
          -FCCA408
 FTNMAC             IFEQ   BFS,0,1                                                         FCCA408       47     A     
 FTNMAC    FWB      SET    0                                                               FCCA408       48     A     
 FTNMAC             VFD    36/0,6/L.FIT6-L.FCLX-5,18/FWB                                   FCCA408       49     A     
 FTNMAC             BSSZ   12B-*+NAME                                                      F162FTNA     150     A     
 FTNMAC   *                                  WORD 12B - LABEL TYPE (LT)=ANY.               F162FTNA     151     A     
 FTNMAC             VFD    36/0,2/3,22/0                                                   F162FTNA     152     A     
 FTNMAC   *                                  WORD 13B - OPEN (OF)=N, CLOSE (CF)=N.         F162FTNA     153     A     
 FTNMAC             VFD    25/0,2/2,3/2,30/0                                               F162FTNA     154     A     
 FTNMAC   *                                  WORD 14B - MAXIMUM RECORD LEN (MRL).          F162FTNA     155     A     
 FTNMAC             VFD    24/MRL,36/0                                                     F162FTNA     156     A     
 FTNMAC   *                                  WORD 15B - DAYFILE CONTROL (DFC)=3.           F162FTNA     157     A     
 FTNMAC             VFD    2/0,2/3,56/0                                                    F162FTNA     158     A     
 FTNMAC             DATA   0                                                               F162FTNA     159     A     
 FTNMAC   *                                  ASSEMBLE WORKING STORAGE AREA.                F162FTNA     160     A     
 FTNMAC   *                                  WORD 17B - ERROR OPT (EO)=6, (WSA).           F162FTNA     161     A     
 FTNMAC   *                                  WORD 21B - CIRCULAR BUFF SIZE (BFS).          F162FTNA     162     A     
 FTNMAC   *                                  WORD 43B - (MRL), (WSA).                      F162FTNA     163     A     
 FTNMAC             IFNE   MRL,0,6                                                         F162FTNA     164          I
          -FCCA561
 FTNMAC             IFNE   MRL,0,11                                                        FCCA561        8     A     
 FTNMAC             VFD    27/0,3/6,12/0,18/WSA                                            F162FTNA     165     A     
 FTNMAC             BSSZ   1                                                               F162FTNA     166     A     
 FTNMAC             VFD    42/0,18/BFS                                                     F162FTNA     167     A     
 FTNMAC             DATA   0                                                               FCCA561        9     A     
 FTNMAC             DATA   0                                                               FCCA561       10     A     
 FTNMAC             DATA   0                                                               FCCA561       11     A     
 FTNMAC             DATA   0                                                               FCCA561       12     A     
 FTNMAC             VFD    20/0,4/1,36/0         FORTRAN GENERATED FIT FLAG                FCCA561       13     A     
 FTNMAC             BSSZ   43B-*+NAME                                                      F162FTNA     168     A     
 FTNMAC             VFD    24/MRL,18/0,18/WSA                                              F162FTNA     169     A     
 FTNMAC             SKIP   3                                                               F162FTNA     170          I
          -FCCA561
 FTNMAC             SKIP   8                                                               FCCA561       14     A     
 FTNMAC   *                                  ASSEMBLE NO WORKING STORAGE AREA.             F162FTNA     171     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 410    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
 FTNMAC   *                                  WORD 17B - ERROR OPTION (EO)=6.               F162FTNA     172     A     
 FTNMAC   *                                  WORD 21B - CIRCULAR BUFF SIZE (BFS).          F162FTNA     173     A     
 FTNMAC   *                                  WORD 43B - 0.                                 F162FTNA     174     A     
 FTNMAC             VFD    27/0,3/6,30/0                                                   F162FTNA     175     A     
 FTNMAC             BSSZ   1                                                               F162FTNA     176     A     
 FTNMAC             VFD    42/0,18/BFS                                                     F162FTNA     177     A     
 FTNMAC             DATA   0                                                               FCCA561       15     A     
 FTNMAC             DATA   0                                                               FCCA561       16     A     
 FTNMAC             DATA   0                                                               FCCA561       17     A     
 FTNMAC             DATA   0                                                               FCCA561       18     A     
 FTNMAC             VFD    20/0,4/1,36/0         FORTRAN GENERATED FIT FLAG                FCCA561       19     A     
 FTNMAC   *                                  COMPLETE FIT.                                 F162FTNA     178     A     
 FTNMAC             BSSZ   51B-*+NAME                                                      F162FTNA     179     A     
 FTNMAC   *                                                                                F162FTNA     180     A     
 FTNMAC   *                            DEFINE CIO BUFFER.                                  F162FTNA     181     A     
 FTNMAC   *                                                                                F162FTNA     182     A     
 FTNMAC             IFNE   BFS,0,1                                                         F162FTNA     183     A     
 FTNMAC    FWB      BSS    BFS                                                             F162FTNA     184     A     
 FTNMAC   *                                                                                F162FTNA     185     A     
 FTNMAC   *                            DEFINE WORKING STORAGE AREA.                        F162FTNA     186     A     
 FTNMAC   *                                                                                F162FTNA     187     A     
 FTNMAC             IFNE   MRL,0,3                                                         F162FTNA     188     A     
 FTNMAC    MRLW     SET    MRL+9D                                                          F162FTNA     189     A     
 FTNMAC    MRLW     SET    MRLW/10D                                                        F162FTNA     190     A     
 FTNMAC    WSA      BSS    MRLW                                                            F162FTNA     191     A     
 FTNMAC    FILCRM   ENDM                                                                   F162FTNA     192     A     
 FTNMAC                                                                                    F162FTNA     193     A     
 FTNMAC                                                                                    F162FTNA     194     A     
 FTNMAC   **                           DEFINE 7RM FIT AND BUFFER.                          F162FTNA     195     A     
 FTNMAC                                                                                    F162FTNA     196     A     
 FTNMAC             PURGMAC   FIL7RM                                                       F162FTNA     197     A     
 FTNMAC                                                                                    F162FTNA     198     A     
 FTNMAC    FIL7RM   MACRO  NAME,BFS,MRL,,NOEPT                                             F162FTNA     199     A     
 FTNMAC             LOCAL  MRLW,UBC,WSA                                                    F162FTNA     200     A     
 FTNMAC   *                            DECLARE ENTRY POINT IF *NOEPT* IS BLANK.            F162FTNA     201     A     
 FTNMAC             IFC    EQ,$NOEPT$$,1                                                   F162FTNA     202     A     
 FTNMAC             ENTRY  NAME                                                            F162FTNA     203     A     
 FTNMAC   *                                                                                F162FTNA     204     A     
 FTNMAC   *                            DEFINE 7RM FIT SKELETON.                            F162FTNA     205     A     
 FTNMAC   *                                                                                F162FTNA     206     A     
 FTNMAC    NAME     BSSZ   2                                                               F162FTNA     207     A     
 FTNMAC   *                                  WORD 2 - OPEN (OF)=N, LABEL (LT)=UL.          F162FTNA     208     A     
 FTNMAC             VFD    24/0,2/2,4/0,2/2,28/0                                           F162FTNA     209          I
          -FCCA561
 FTNMAC             VFD    24/0,2/2,4/1,2/2,28/0                                           FCCA561       20     A     
 FTNMAC             BSSZ   3                                                               F162FTNA     210     A     
 FTNMAC   *                                  WORD 6 - (MRL - UBC,MRLW), (WSA).             F162FTNA     211     A     
 FTNMAC             IFNE   MRL,0,5                                                         F162FTNA     212     A     
 FTNMAC    MRLW     SET    MRL+9D                                                          F162FTNA     213     A     
 FTNMAC    MRLW     SET    MRLW/10D                                                        F162FTNA     214     A     
 FTNMAC    UBC      SET    10*MRLW-MRL                                                     F162FTNA     215     A     
 FTNMAC    UBC      SET    6*UBC                                                           F162FTNA     216     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 411    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
 FTNMAC             VFD    6/UBC,18/MRLW,15/0,21/WSA                                       F162FTNA     217     A     
 FTNMAC             DATA   0                                                               FCCA561       21     A     
 FTNMAC             VFD    14/0,4/1,42/0         FORTRAN GENERATED FIT FLAG                FCCA561       22     A     
 FTNMAC   *                                  COMPLETE FIT.                                 F162FTNA     218     A     
 FTNMAC             BSSZ   20B-*+NAME                                                      F162FTNA     219     A     
 FTNMAC   *                                                                                F162FTNA     220     A     
 FTNMAC   *                            DEFINE WORKING STORAGE AREA (WSA).                  F162FTNA     221     A     
 FTNMAC   *                                                                                F162FTNA     222     A     
 FTNMAC             IFNE   MRL,0,2                                                         F162FTNA     223     A     
 FTNMAC             BSS    BFS                                                             F162FTNA     224     A     
 FTNMAC    WSA      BSS    MRLW                                                            F162FTNA     225     A     
 FTNMAC    FIL7RM   ENDM                                                                   F162FTNA     226     A     
 FTNMAC    FILEF    SPACE  4,8                                                             FTNMAC        86     A     
 FTNMAC   **        FILEF - FORM FILE TABLES.                                              FTNMAC        87     A     
 FTNMAC   *                                                                                F162FTNA     227     A     
 FTNMAC   *         77 FEB 01. -- FORTRAN EXTENDED OBJECT CODE NOW REFERENCES THE          F162FTNA     228     A     
 FTNMAC   *         *FILCRM/FIL7RM* MACRO INSTEAD OF THE *FILEF* MACRO.                    F162FTNA     229     A     
 FTNMAC   *                THE *FILEF* MACRO DEFINITION THAT FOLLOWS WILL BE               F162FTNA     230     A     
 FTNMAC   *         PERMANENTLY REMOVED FROM *FTNMAC* BY 78 JAN 01.  USERS ARE             F162FTNA     231     A     
 FTNMAC   *         ADVISED TO MODIFY EXISTING SYMBOLIC CODE BEFORE THAT DATE,             F162FTNA     232     A     
 FTNMAC   *         BY RECOMPILING OR OTHER SUITABLE METHOD.                               F162FTNA     233     A     
 FTNMAC   *                                                                                FTNMAC        88     A     
 FTNMAC   *         FORMS THE FOLLOWING FILE TABLES --                                     FTNMAC        89     A     
 FTNMAC   *                A.  SKELETON FILE INFORMATION TABLE (FIT).                      FTNMAC        90     A     
 FTNMAC   *                B.  SKELETON FILE ENVIRONMENT TABLE (FET) - 6RM ONLY.           FTNMAC        91     A     
 FTNMAC   *                C.  CIRCULAR I/O BUFFER - 6RM ONLY.                             FTNMAC        92     A     
 FTNMAC   *                D.  IF *FMRL* IS NON-ZERO, ALLOCATES A WORKING STORAGE          FTNMAC        93     A     
 FTNMAC   *                    AREA, OF LENGTH (*FMRL*+9)/10+4 WORDS.                      FTNMAC        94     A     
 FTNMAC   *                                                                                FTNMAC        95     A     
 FTNMAC   *                                                                                FTNMAC        96     A     
 FTNMAC   *         FILEF     BUFL,FMRL,NAME,NOENT                                         FTNMAC        97     A     
 FTNMAC   *                                                                                FTNMAC        98     A     
 FTNMAC   *         ENTRY  *BUFL*  = CIO BUFFER LENGTH (WORDS).                            FTNMAC        99     A     
 FTNMAC   *                *FMRL*  = MAXIMUM RECORD LENGTH (CHARACTERS).                   FTNMAC       100     A     
 FTNMAC   *                          MAY BE ZERO OR OMITTED.                               FTNMAC       101     A     
 FTNMAC   *                *NAME*  = FILE NAME.                                            FTNMAC       102     A     
 FTNMAC   *                *NOENT* = NON-BLANK TO SUPPRESS DECLARATION OF                  FTNMAC       103     A     
 FTNMAC   *                          *NAME* AS AN ENTRY POINT.  MAY BE OMITTED.            FTNMAC       104     A     
 FTNMAC                                                                                    FTNMAC       105     A     
 FTNMAC                                                                                    FTNMAC       106     A     
 FTNMAC             PURGMAC   FILEF                                                        FTNMAC       107     A     
 FTNMAC                                                                                    FTNMAC       108     A     
 FTNMAC    #RM      IFEQ   OT#RM,6                                                         FTNMAC       109     A     
 FTNMAC                                                                                    FTNMAC       110     A     
 FTNMAC    FILEF    MACRO  BUFL,FMRL,NAME,NOENT                                            FTNMAC       111     A     
 FTNMAC             LOCAL  FMRLW,FWSA,FFET,FBUF                                            FTNMAC       112     A     
 FTNMAC             IFC    EQ,$NOENT$$,1                                                   FTNMAC       113     A     
 FTNMAC             ENTRY  NAME                                                            FTNMAC       114     A     
 FTNMAC    FWSA     MICRO  1,, 0                                                           FTNMAC       115     A     
 FTNMAC   *                            SET MAXIMUM RECORD LENGTH (WORDS).                  FTNMAC       116     A     
 FTNMAC             IFNE   FMRL,0,4                                                        FTNMAC       117     A     
 FTNMAC    FMRLW    SET    FMRL+9D                                                         FTNMAC       118     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 412    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
 FTNMAC    FMRLW    SET    FMRLW/10D                                                       FTNMAC       119     A     
 FTNMAC    FWSA     MICRO  1,,$FWSA$                                                       FTNMAC       120     A     
 FTNMAC             SKIP   1                                                               FTNMAC       121     A     
 FTNMAC    FMRLW    SET    0                                                               FTNMAC       122     A     
 FTNMAC   *                            FORM 6RM FIT SKELETON.                              FTNMAC       123     A     
 FTNMAC    NAME     DATA   0                                                               FTNMAC       124     A     
 FTNMAC             CON    FFET                                                            FTNMAC       125     A     
 FTNMAC             VFD    24/0,2/2,4/0,2/3,28/0   OPEN (NO REWIND), LT=ANY                FTNMAC       126     A     
 FTNMAC             VFD    24/0,18/BUFL,18/0                                               FTNMAC       127     A     
 FTNMAC             DATA   0                                                               FTNMAC       128     A     
 FTNMAC             CON    FBUF                                                            FTNMAC       129     A     
 FTNMAC             VFD    24/FMRL,15/0,21/"FWSA"                                          FTNMAC       130     A     
 FTNMAC             BSSZ   19D-*+NAME                                                      FTNMAC       131     A     
 FTNMAC   *                            FORM FET SKELETON.                                  FTNMAC       132     A     
 FTNMAC    FFET     BSSZ   13D                                                             FTNMAC       133     A     
 FTNMAC   *                            FORM CIO BUFFER.                                    FTNMAC       134     A     
 FTNMAC    FBUF     BSSZ   BUFL                                                            FTNMAC       135     A     
 FTNMAC   *                            FORM WSA.                                           FTNMAC       136     A     
 FTNMAC             BSSZ   4*FMRLW/FMRLW                                                   FTNMAC       137     A     
 FTNMAC    FWSA     BSSZ   FMRLW                                                           FTNMAC       138     A     
 FTNMAC    FILEF    ENDM                                                                   FTNMAC       139     A     
 FTNMAC                                                                                    FTNMAC       140     A     
 FTNMAC    #RM      ELSE                                                                   FTNMAC       141     A     
 FTNMAC                                                                                    FTNMAC       142     A     
 FTNMAC    FILEF    MACRO  BUFL,FMRL,NAME,NOENT                                            FTNMAC       143     A     
 FTNMAC             LOCAL  FMRLW,FWSA                                                      FTNMAC       144     A     
 FTNMAC             IFC    EQ,$NOENT$$,1                                                   FTNMAC       145     A     
 FTNMAC             ENTRY  NAME                                                            FTNMAC       146     A     
 FTNMAC    FWSA     MICRO  1,, 0                                                           FTNMAC       147     A     
 FTNMAC   *                            SET MAXIMUM RECORD LENGTH (WORDS).                  FTNMAC       148     A     
 FTNMAC             IFNE   FMRL,0,5                                                        FTNMAC       149     A     
 FTNMAC    FMRLW    SET    FMRL+9D                                                         FTNMAC       150     A     
 FTNMAC    FMRLW    SET    FMRLW/10D                                                       FTNMAC       151     A     
 FTNMAC    FWSA     MICRO  1,,$FWSA$                                                       FTNMAC       152     A     
 FTNMAC    FMRLW1   SET    60*FMRLW-6*FMRL                                                 FTNMAC       153     A     
 FTNMAC             SKIP   2                                                               FTNMAC       154     A     
 FTNMAC    FMRLW1   SET    0                                                               FTNMAC       155     A     
 FTNMAC    FMRLW    SET    0                                                               FTNMAC       156     A     
 FTNMAC   *                            FORM 7RM FIT SKELETON.                              FTNMAC       157     A     
 FTNMAC    NAME     BSSZ   2                                                               FTNMAC       158     A     
 FTNMAC             VFD    24/0,2/2,4/0,2/2,28/0   OPEN (NO REWIND), LT=UL                 FTNMAC       159     A     
 FTNMAC             BSSZ   3                                                               FTNMAC       160     A     
 FTNMAC             VFD    6/FMRLW1,18/FMRLW,15/0,21/"FWSA"                                FTNMAC       161     A     
 FTNMAC             BSSZ   16D-*+NAME                                                      FTNMAC       162     A     
 FTNMAC   *                            FORM WSA.                                           FTNMAC       163     A     
 FTNMAC             BSSZ   4*FMRLW/FMRLW                                                   FTNMAC       164     A     
 FTNMAC    FWSA     BSSZ   FMRLW                                                           FTNMAC       165     A     
 FTNMAC    FILEF    ENDM                                                                   FTNMAC       166     A     
 FTNMAC                                                                                    FTNMAC       167     A     
 FTNMAC    #RM      ENDIF                                                                  FTNMAC       168     A     
 FTNMAC             SPACE  3                                                               FTNMAC       169     A     
 FTNMAC   *         FILE - FORM A FIT, FET, AND BUFFER FOR A FILE                          FTNMAC       170     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 413    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
 FTNMAC   *                                                                                FTNMAC       171     A     
 FTNMAC   *         73 JUN 01. -- FORTRAN EXTENDED OBJECT CODE NOW REFERENCES THE          FTNMAC       172     A     
 FTNMAC   *         *FILEF* MACRO INSTEAD OF THE *FILE* MACRO, TO INCLUDE A                FTNMAC       173     A     
 FTNMAC   *         WORKING STORAGE AREA AND TO PREVENT POSSIBLE INTERFERENCE              FTNMAC       174     A     
 FTNMAC   *         FROM/TO THE RECORD MANAGER *FILE* MACRO.                               FTNMAC       175     A     
 FTNMAC   *                THE FOLLOWING DEFINITION OF *FILE* WILL BE PERMANENTLY          FTNMAC       176     A     
 FTNMAC   *         REMOVED FROM *FTNMAC* BY 74 JUN 01.  USERS ARE ADVISED TO              FTNMAC       177     A     
 FTNMAC   *         MODIFY EXISTING SYMBOLIC CODE BEFORE THAT DATE, BY                     FTNMAC       178     A     
 FTNMAC   *         RECOMPILING OR OTHER SUITABLE METHOD.                                  FTNMAC       179     A     
 FTNMAC                                                                                    FTNMAC       180     A     
 FTNMAC             PURGMAC   FILE                                                         FTNMAC       181     A     
 FTNMAC                                                                                    FTNMAC       182     A     
 FTNMAC    FILE     MACRO  LEN,NAME,NOENT                                                  FTNMAC       183     A     
 FTNMAC             IFC    EQ,/NOENT//,1                                                   FTNMAC       184     A     
 FTNMAC             ENTRY  NAME                                                            FTNMAC       185     A     
 FTNMAC    NAME     BSSZ   1                                                               FTNMAC       186     A     
 FTNMAC             VFD    42/0,18/NAME+18   FET ADDRESS                                   FTNMAC       187     A     
 FTNMAC             VFD    24/0,2/2,4/0,2/3,28/0    LT=ANY , NOREWIND                      FTNMAC       188     A     
 FTNMAC             VFD    24/0,18/LEN+2,18/0    BUFFER SIZE                               FTNMAC       189     A     
 FTNMAC             BSSZ   1                                                               FTNMAC       190     A     
 FTNMAC             VFD    42/0,18/NAME+18+10    BUFFER ADDRESS                            FTNMAC       191     A     
 FTNMAC             BSSZ   12+10+LEN+2 18 FOR FIT   10 FOR FET                             FTNMAC       192     A     
 FTNMAC             ENDM                                                                   FTNMAC       193     A     
 FTNMAC             SPACE  3                                                               FTNMAC       194     A     
 FTNMAC   *         FORPAR - MACRO TO ESTABLISH THE ORDERING OF THE F.P.                   FTNMAC       195     A     
 FTNMAC   *         BLOCKS FOR FORMAL PARAMETER ADDRESS SUBSTITUTION                       FTNMAC       196          I
          -RSM3545C 
 FTNMAC   *         BLOCKS FOR FORMAL PARAMETER ADDRESS SUBSTITUTION.                      RSM3545C       7     A     
 FTNMAC   *         ASSIGNS BASE ADDRESSES FOR EACH F.P. BLOCK AND                         RSM3545C       8     A     
 FTNMAC   *         GENERATES A SPECIAL F.P. SYMBOL EQUATED TO THIS F.P.                   RSM3545C       9     A     
 FTNMAC   *         POSITION IN THE PARAMETER LIST.                                        RSM3545C      10     A     
 FTNMAC                                                                                    FTNMAC       197     A     
 FTNMAC    FORPAR   MACRO  X                                                               FTNMAC       198          I
          -RSM3545C 
 FTNMAC             USE    X                                                               FTNMAC       199          I
          -RSM3545C 
 FTNMAC    X        BSS    0                                                               FTNMAC       200          I
          -RSM3545C 
 FTNMAC    FORPAR   MACRO  FP                                                              RSM3545C      11     A     
 FTNMAC             USE    FP                                                              RSM3545C      12     A     
 FTNMAC    FP       BSS    0                                                               RSM3545C      13     A     
 FTNMAC             IF     -DEF,.NFP,2                                                     RSM3545C      14     A     
 FTNMAC    .DEL     SET    -1                                                              RSM3545C      15     A     
 FTNMAC    .NFP     SET    0                                                               RSM3545C      16     A     
 FTNMAC    .FP      SET    0                                                               RSM3545C      17     A     
 FTNMAC    (FP      EQU    .NFP                                                            RSM3545C      18     A     
 FTNMAC    .NFP     SET    .NFP+1                                                          RSM3545C      19     A     
 FTNMAC             ENDM                                                                   FTNMAC       201     A     
 FTNMAC             EJECT                                                                  FTNMAC       202     A     
 FTNMAC   ***                                                                              FTNMAC       203     A     
 FTNMAC   *         GNAME - MACRO TO DEFINE A NAMELIST GROUP NAME                          FTNMAC       204          I
          -F162FTNA 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 414    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
 FTNMAC   *         GENERAL MACROS.                                                        F162FTNA     234     A     
 FTNMAC   *                                                                                FTNMAC       205     A     
 FTNMAC    GNAME    SPACE  4,8                                                             F162FTNA     235     A     
 FTNMAC   **        GNAME - MACRO TO DEFINE A NAMELIST GROUP NAME.                         F162FTNA     236     A     
 FTNMAC                                                                                    F162FTNA     237     A     
 FTNMAC                                                                                    F162FTNA     238     A     
 FTNMAC             PURGMAC   GNAME                                                        F162FTNA     239     A     
 FTNMAC                                                                                    F162FTNA     240     A     
 FTNMAC    GNAME    MACRO  NAME                                                            FTNMAC       206     A     
 FTNMAC             LOCAL  X                                                               FTNMAC       207     A     
 FTNMAC    X        MICRO  1,,$NAME$         REMOVE POSSIBLE $                             FTNMAC       208          I
          -F162FTNA 
 FTNMAC   *                            REMOVE POSSIBLE $.                                  F162FTNA     241     A     
 FTNMAC    X        MICRO  1,,$NAME$                                                       F162FTNA     242     A     
 FTNMAC    NAME     BSS    0                                                               FTNMAC       209     A     
 FTNMAC             VFD    42/0L"X",18/0                                                   FTNMAC       210     A     
 FTNMAC             ENDM                                                                   FTNMAC       211          I
          -F162FTNA 
 FTNMAC             SPACE  2                                                               FTNMAC       212          I
          -F162FTNA 
 FTNMAC   ***                                                                              FTNMAC       213          I
          -F162FTNA 
 FTNMAC   *         NAME - MACRO TO DEFINE THE PROPERITIES OF A VARIABLE IN A              FTNMAC       214          I
          -F162FTNA 
 FTNMAC   *         NAMELIST GROUP FOR THE EXECUTION TIME NAMELIST PROCESSOR               FTNMAC       215          I
          -F162FTNA 
 FTNMAC   *                                                                                FTNMAC       216          I
          -F162FTNA 
 FTNMAC    GNAME    ENDM                                                                   F162FTNA     243     A     
 FTNMAC    NAME     SPACE  4,8                                                             F162FTNA     244     A     
 FTNMAC   **        NAME - DEFINE PROPERTIES OF A NAMELIST GROUP VARIABLE.                 F162FTNA     245     A     
 FTNMAC                                                                                    F162FTNA     246     A     
 FTNMAC                                                                                    F162FTNA     247     A     
 FTNMAC             PURGMAC   NAME                                                         F162FTNA     248     A     
 FTNMAC                                                                                    F162FTNA     249     A     
 FTNMAC    NAME     MACRO  N,T,BASE,BIAS,FP,NDIM,D1,D2,D3                                  FTNMAC       217     A     
 FTNMAC             LOCAL  Z                                                               FTNMAC       218     A     
 FTNMAC    Z        MICRO  1,,$N$                                                          FTNMAC       219     A     
 FTNMAC             VFD    42/0L"Z",12/NDIM,6/T-T/8*8                                      FTNMAC       220     A     
 FTNMAC    .FP      IFC    NE,/FP//                                                        FTNMAC       221     A     
 FTNMAC             VFD    30/D1,1/T/8,1/1,28/FP                                           FTNMAC       222     A     
 FTNMAC    .FP      ELSE                                                                   FTNMAC       223     A     
 FTNMAC             VFD    30/D1                                                           FTNMAC       224     A     
 FTNMAC    .BASE    IFC    NE,/BASE//                                                      FTNMAC       225     A     
 FTNMAC             VFD    1/T/8,29/BASE+BIAS                                              FTNMAC       226     A     
 FTNMAC    .BASE    ELSE                                                                   FTNMAC       227     A     
 FTNMAC             VFD    1/T/8,29/N                                                      FTNMAC       228     A     
 FTNMAC    .BASE    ENDIF                                                                  FTNMAC       229     A     
 FTNMAC    .FP      ENDIF                                                                  FTNMAC       230     A     
 FTNMAC             IFGT   NDIM,1,1                                                        FTNMAC       231     A     
 FTNMAC             VFD    30/D3,30/D2                                                     FTNMAC       232     A     
 FTNMAC    NAME     ENDM                                                                   F162FTNA     250     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 415    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
 FTNMAC    FMT      SPACE  4,10                                                            F162FTNA     251     A     
 FTNMAC   **        FMT - DEFINE A FORMAT LABEL.                                           F162FTNA     252     A     
 FTNMAC                                                                                    FTNMAC       233     A     
 FTNMAC             ENDM                                                                   FTNMAC       234          I
          -F162FTNA 
 FTNMAC             SPACE  2                                                               FTNMAC       235          I
          -F162FTNA 
 FTNMAC   ***                                                                              FTNMAC       236          I
          -F162FTNA 
 FTNMAC   *         FMT - DEFINE A FORMAT LABEL                                            FTNMAC       237          I
          -F162FTNA 
 FTNMAC   *                                                                                FTNMAC       238          I
          -F162FTNA 
 FTNMAC                                                                                    F162FTNA     253     A     
 FTNMAC             PURGMAC   FMT                                                          F162FTNA     254     A     
 FTNMAC                                                                                    F162FTNA     255     A     
 FTNMAC    FMT      MACRO  LABEL                                                           FTNMAC       239     A     
 FTNMAC             LOCAL  X                                                               FTNMAC       240     A     
 FTNMAC    X        MICRO  2,,/LABEL/                                                      FTNMAC       241     A     
 FTNMAC    LABEL    DATA   6L "X"                                                          FTNMAC       242     A     
 FTNMAC             ENDM                                                                   FTNMAC       243          I
          -F162FTNA 
 FTNMAC             SPACE  2                                                               FTNMAC       244          I
          -FEAT155HB
 FTNMAC   ***                                                                              FTNMAC       245          I
          -FEAT155HB
 FTNMAC   *         LDSET - GENERATE A LDSET LCC DIRECTIVE                                 FTNMAC       246          I
          -FEAT155HB
 FTNMAC   *                                                                                FTNMAC       247          I
          -FEAT155HB
 FTNMAC    LDSET    MACRO  TEXT                                                            FTNMAC       248          I
          -FEAT155HB
 FTNMAC    8        ERR                LDSET NEEDED AT EXECUTION TIME                      FTNMAC       249          I
          -FEAT155HB
 FTNMAC             ENDM                                                                   FTNMAC       250          I
          -FEAT155HB
 FTNMAC             SPACE  2                                                               FTNMAC       251          I
          -F162FTNA 
 FTNMAC             SPACE  3                                                               FTNMAC       252          I
          -F162FTNA 
 FTNMAC   ***                                                                              FTNMAC       253          I
          -F162FTNA 
 FTNMAC   *         EIO - MACRO TO DEFINE I/O APLIST TERMINATOR                            FTNMAC       254          I
          -F162FTNA 
 FTNMAC   *                                                                                FTNMAC       255          I
          -F162FTNA 
 FTNMAC    FMT      ENDM                                                                   F162FTNA     256     A     
 FTNMAC    EIO      SPACE  4,8                                                             F162FTNA     257     A     
 FTNMAC   **        EIO - MACRO TO DEFINE I/O APLIST TERMINATOR.                           F162FTNA     258     A     
 FTNMAC                                                                                    F162FTNA     259     A     
 FTNMAC                                                                                    F162FTNA     260     A     
 FTNMAC             PURGMAC   EIO                                                          F162FTNA     261     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 416    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
 FTNMAC                                                                                    F162FTNA     262     A     
 FTNMAC    EIO      MACRO  P                                                               FTNMAC       256     A     
 FTNMAC             VFD    60/P                                                            FTNMAC       257     A     
 FTNMAC             ENDM                                                                   FTNMAC       258          I
          -F162FTNA 
 FTNMAC             SPACE  3                                                               FTNMAC       259          I
          -F162FTNA 
 FTNMAC   ***                                                                              FTNMAC       260          I
          -F162FTNA 
 FTNMAC   *         IOM - MACRO TO DEFINE I/O APLIST ENTRY                                 FTNMAC       261          I
          -F162FTNA 
 FTNMAC   *                                                                                FTNMAC       262          I
          -F162FTNA 
 FTNMAC    EIO      ENDM                                                                   F162FTNA     263     A     
 FTNMAC    IOM      SPACE  4,8                                                             F162FTNA     264     A     
 FTNMAC   **        IOM - MACRO TO DEFINE I/O APLIST ENTRY.                                F162FTNA     265     A     
 FTNMAC                                                                                    F162FTNA     266     A     
 FTNMAC                                                                                    F162FTNA     267     A     
 FTNMAC             PURGMAC   IOM                                                          F162FTNA     268     A     
 FTNMAC                                                                                    F162FTNA     269     A     
 FTNMAC    IOM      MACRO  BASE1,BIAS,TYPE,COUNT,B59,B57,BASE2                             FTNMAC       263     A     
 FTNMAC    .P       MICRO  1,,                                                             FCC0448        5     A     
 FTNMAC    .1       MICRO  1,1,/BASE1/                                                     FCC0448        6     A     
 FTNMAC             IFC    EQ,/".1"/#/,1                                                   FCC0448        7     A     
 FTNMAC    .P       MICRO  1,,/=S/                                                         FCC0448        8     A     
 FTNMAC             VFD    1/B59                                                           FTNMAC       264     A     
 FTNMAC             IFC    EQ,/BASE1//,2                                                   FTNMAC       265     A     
 FTNMAC             VFD    1/1                                                             FTNMAC       266     A     
 FTNMAC             ELSE   1                                                               FTNMAC       267     A     
 FTNMAC             VFD    1/0                                                             FTNMAC       268     A     
 FTNMAC             VFD    1/B57                                                           FTNMAC       269     A     
 FTNMAC             VFD    9/TYPE                                                          FTNMAC       270     A     
 FTNMAC             IFC    EQ,/B57//,7                                                     FTNMAC       271          I
          -FCC2345
 FTNMAC             IFC    EQ,/BASE2//,3                                                   FTNMAC       272     A     
 FTNMAC             VFD    24/COUNT                                                        FTNMAC       273     A     
 FTNMAC             VFD    24/BASE1+BIAS                                                   FTNMAC       274          I
          -FCC0448
 FTNMAC             VFD    24/".P"BASE1+BIAS                                               FCC0448        9     A     
 FTNMAC             SKIP   5                                                               FTNMAC       275          I
          -FCC2345
 FTNMAC             SKIP   2                                                               FCC2345        9     A     
 FTNMAC             VFD    24/COUNT                                                        FTNMAC       276     A     
 FTNMAC             VFD    18/BASE2,6/BIAS                                                 FTNMAC       277     A     
 FTNMAC             SKIP   2                                                               FTNMAC       278          I
          -FCC2345
 FTNMAC             VFD    18/BASE2+COUNT,6/0                                              FTNMAC       279          I
          -FCC2345
 FTNMAC             VFD    24/BASE1+BIAS                                                   FTNMAC       280          I
          -FCC2345
 FTNMAC             ENDM                                                                   FTNMAC       281          I
          -F162FTNA 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 417    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
 FTNMAC             EJECT                                                                  FTNMAC       282          I
          -F162FTNA 
 FTNMAC   ***                                                                              FTNMAC       283          I
          -F162FTNA 
 FTNMAC   *         ORG - SET FWA ADDRESS FOR DATA PLACEMENT                               FTNMAC       284          I
          -F162FTNA 
 FTNMAC    IOM      ENDM                                                                   F162FTNA     270     A     
 FTNMAC    ORG      SPACE  4,8                                                             F162FTNA     271     A     
 FTNMAC   **        ORG - SET FWA ADDRESS FOR DATA PLACEMENT.                              F162FTNA     272     A     
 FTNMAC   *                                                                                FTNMAC       285     A     
 FTNMAC   *         ARGUMENTS:                                                             FTNMAC       286          I
          -F162FTNA 
 FTNMAC   *                NAME - SYMBOL NAME. IF ABSENT THEN MACRO GENERATES              FTNMAC       287          I
          -F162FTNA 
 FTNMAC   *                AN " ORG.  K. " STATEMENT.                                      FTNMAC       288          I
          -F162FTNA 
 FTNMAC   *                BIAS - SYMBOL BIAS                                              FTNMAC       289          I
          -F162FTNA 
 FTNMAC   *                F - PRESENT IF SECOND OCCURANCE OF A USEAGE DEFINED VAR         FTNMAC       290          I
          -F162FTNA 
 FTNMAC   *                                                                                F162FTNA     273     A     
 FTNMAC   *         ARGS   *NAME* = SYMBOL NAME.  IF ABSENT, MACRO GENERATES               F162FTNA     274     A     
 FTNMAC   *                         AN  *  ORG. K.*  STATEMENT.                            F162FTNA     275     A     
 FTNMAC   *                *BIAS* = SYMBOL BIAS.                                           F162FTNA     276     A     
 FTNMAC   *                *F*    = NON-BLANK IF 2ND OCCURRENCE OF A USAGE DEFINED         F162FTNA     277     A     
 FTNMAC   *                         VARIABLE.                                              F162FTNA     278     A     
 FTNMAC                                                                                    FTNMAC       291     A     
 FTNMAC                                                                                    FTNMAC       292     A     
 FTNMAC    ORG.     OPSYN  ORG                                                             FTNMAC       293     A     
 FTNMAC             PURGMAC   ORG                                                          FTNMAC       294     A     
 FTNMAC                                                                                    FTNMAC       295     A     
 FTNMAC    ORG      MACRO  NAME+BIAS,F                                                     FTNMAC       296     A     
 FTNMAC   NN        IFC    NE,//NAME/                                                      FTNMAC       297     A     
 FTNMAC                                                                                    FTNMAC       298          I
          -F162FTNA 
 FTNMAC   *                                                                                F162FTNA     279     A     
 FTNMAC   D         IF     -DEF,NAME                                                       FTNMAC       299     A     
 FTNMAC             USE    DATA.                                                           FTNMAC       300     A     
 FTNMAC    NAME     BSS    0                                                               FTNMAC       301     A     
 FTNMAC   D         ELSE                                                                   FTNMAC       302     A     
 FTNMAC             IFC    NE,/F//,2                                                       FTNMAC       303     A     
 FTNMAC             USE    DATA.                                                           FTNMAC       304     A     
 FTNMAC    K.       SET    *                 SAVE CURRENT DATA. ADDRESS                    FTNMAC       305          I
          -F162FTNA 
 FTNMAC   *                            SAVE CURRENT DATA. ADDRESS.                         F162FTNA     280     A     
 FTNMAC    K.       SET    *                                                               F162FTNA     281     A     
 FTNMAC             ORG.   NAME+BIAS                                                       FTNMAC       306     A     
 FTNMAC    S.       SET    *                                                               FTNMAC       307     A     
 FTNMAC   D         ENDIF                                                                  FTNMAC       308     A     
 FTNMAC                                                                                    FTNMAC       309          I
          -F162FTNA 
 FTNMAC   *                                                                                F162FTNA     282     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 418    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
 FTNMAC   NN        ELSE                                                                   FTNMAC       310     A     
 FTNMAC             ORG.   K.                RESTORE ADDRESS                               FTNMAC       311          I
          -F162FTNA 
 FTNMAC   *                            RESTORE ADDRESS.                                    F162FTNA     283     A     
 FTNMAC             ORG.   K.                                                              F162FTNA     284     A     
 FTNMAC   NN        ENDIF                                                                  FTNMAC       312     A     
 FTNMAC                                                                                    FTNMAC       313          I
          -F162FTNA 
 FTNMAC             ENDM                                                                   FTNMAC       314          I
          -F162FTNA 
 FTNMAC             SPACE  3                                                               FTNMAC       315          I
          -F162FTNA 
 FTNMAC   ***                                                                              FTNMAC       316          I
          -F162FTNA 
 FTNMAC   *         REPI - INSTANT REPLICATION TABLE MACRO                                 FTNMAC       317          I
          -F162FTNA 
 FTNMAC   *                                                                                FTNMAC       318     A     
 FTNMAC   *         ARGUMENTS:                                                             FTNMAC       319          I
          -F162FTNA 
 FTNMAC   *                DLEN = LENGTH OF CONSTANTS TO BE REPLICATED                     FTNMAC       320          I
          -F162FTNA 
 FTNMAC   *                RC = REPETITION COUNT                                           FTNMAC       321          I
          -F162FTNA 
 FTNMAC   *                INC = INCREMENT OF FIRST WORD ADDRESS                           FTNMAC       322          I
          -F162FTNA 
 FTNMAC   *                DESTIN = DESTINATION ADDRESS                                    FTNMAC       323          I
          -F162FTNA 
 FTNMAC    ORG      ENDM                                                                   F162FTNA     285     A     
 FTNMAC    REPI     SPACE  4,8                                                             F162FTNA     286     A     
 FTNMAC   **        REPI - INSTANT REPLICATION TABLE MACRO.                                F162FTNA     287     A     
 FTNMAC   *                                                                                F162FTNA     288     A     
 FTNMAC   *                                                                                F162FTNA     289     A     
 FTNMAC   *         ARGS   *DLEN*   = LENGTH OF CONSTANTS TO BE REPLICATED.                F162FTNA     290     A     
 FTNMAC   *                *RC*     = REPETITION COUNT.                                    F162FTNA     291     A     
 FTNMAC   *                *INC*    = INCREMENT OF FIRST WORD ADDRESS.                     F162FTNA     292     A     
 FTNMAC   *                *DESTIN* = DESTINATION ADDRESS.                                 F162FTNA     293     A     
 FTNMAC                                                                                    FTNMAC       324     A     
 FTNMAC                                                                                    FTNMAC       325     A     
 FTNMAC    REPI.    OPSYN  REPI                                                            FTNMAC       326     A     
 FTNMAC             PURGMAC   REPI                                                         FTNMAC       327     A     
 FTNMAC                                                                                    FTNMAC       328     A     
 FTNMAC    REPI     MACRO  DLEN,RC,INC,DESTIN                                              FTNMAC       329     A     
 FTNMAC             LOCAL  II                                                              FTNMAC       330     A     
 FTNMAC    II       SET    INC 0             INCASE THIRD ARG IS ABSENT                    FTNMAC       331          I
          -F162FTNA 
 FTNMAC   *                            PROVIDE 3RD ARG IF ABSENT.                          F162FTNA     294     A     
 FTNMAC    II       SET    INC  0                                                          F162FTNA     295     A     
 FTNMAC             IFC    EQ,//DESTIN/                                                    FTNMAC       332     A     
 FTNMAC             REPI.  S/S.,B/DLEN,C/RC,I/II                                           FTNMAC       333     A     
 FTNMAC             ELSE                                                                   FTNMAC       334     A     
 FTNMAC             REPI.  S/S.,B/DLEN,C/RC,I/II,D/S.+DESTIN                               FTNMAC       335     A     
 FTNMAC             ENDIF                                                                  FTNMAC       336     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 419    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
 FTNMAC             ENDM                                                                   FTNMAC       337          I
          -F162FTNA 
 FTNMAC             EJECT                                                                  FTNMAC       338          I
          -F162FTNA 
 FTNMAC   ***                                                                              FTNMAC       339          I
          -F162FTNA 
 FTNMAC   *         HOL - MACRO TO PUT OUT THE LAST WORD OF A HOLLERITH CONSTANT           FTNMAC       340          I
          -F162FTNA 
 FTNMAC   *                                                                                FTNMAC       341          I
          -F162FTNA 
 FTNMAC    REPI     ENDM                                                                   F162FTNA     296     A     
 FTNMAC    HOL      SPACE  4,8                                                             F162FTNA     297     A     
 FTNMAC   **        HOL - MACRO TO PUT OUT THE LAST WORD OF A HOLLERITH CONSTANT.          F162FTNA     298     A     
 FTNMAC                                                                                    F162FTNA     299     A     
 FTNMAC                                                                                    F162FTNA     300     A     
 FTNMAC             PURGMAC   HOL                                                          F162FTNA     301     A     
 FTNMAC                                                                                    F162FTNA     302     A     
 FTNMAC    HOL      OPSYN  DATA                                                            FTNMAC       342     A     
 FTNMAC             SPACE  3                                                               FTNMAC       343          I
          -F162FTNA 
 FTNMAC   ***                                                                              FTNMAC       344          I
          -F162FTNA 
 FTNMAC   *         ENTR. - MACRO TO DEFINE AN ALTERNATE ENTRY POINT IN A FORTRAN          FTNMAC       345          I
          -F162FTNA 
 FTNMAC   *         PROGRAM                                                                FTNMAC       346          I
          -F162FTNA 
 FTNMAC   *                                                                                FTNMAC       347          I
          -F162FTNA 
 FTNMAC    ENTR.    SPACE  4,8                                                             F162FTNA     303     A     
 FTNMAC   **        ENTR. - DEFINE ALTERNATE ENTRY POINT IN FORTRAN PROGRAM UNIT.          F162FTNA     304     A     
 FTNMAC                                                                                    F162FTNA     305     A     
 FTNMAC                                                                                    F162FTNA     306     A     
 FTNMAC             PURGMAC   ENTR.                                                        F162FTNA     307     A     
 FTNMAC                                                                                    F162FTNA     308     A     
 FTNMAC    ENTR.    MACRO  N                                                               FTNMAC       348     A     
 FTNMAC             LOCAL  X,Z                                                             FTNMAC       349     A     
 FTNMAC                                                                                    FTNMAC       350          I
          -F162FTNA 
 FTNMAC   *                                                                                F162FTNA     309     A     
 FTNMAC    ANA      IFEQ   ARGS.,0                                                         FTNMAC       351     A     
 FTNMAC                                                                                    FTNMAC       352          I
          -F162FTNA 
 FTNMAC   *         ENTR. MACRO FOR SUBROUTINE WITHOUT ARGS                                FTNMAC       353          I
          -F162FTNA 
 FTNMAC   *         TRANSFER EQ EXIT JUMP TO MAIN ENTRY POINT                              FTNMAC       354          I
          -F162FTNA 
 FTNMAC                                                                                    FTNMAC       355          I
          -F162FTNA 
 FTNMAC   *                                                                                F162FTNA     310     A     
 FTNMAC   *         *ENTR.* MACRO FOR SUBROUTINE WITHOUT ARGUMENTS.                        F162FTNA     311     A     
 FTNMAC   *         TRANSFER  *EQ EXIT.*  JUMP TO MAIN ENTRY POINT.                        F162FTNA     312     A     
 FTNMAC   *                                                                                F162FTNA     313     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 420    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
 FTNMAC             ENTRY  N                                                               FTNMAC       356     A     
 FTNMAC    N        BSSZ   1                                                               FTNMAC       357     A     
 FTNMAC             SA1    N                                                               FTNMAC       358     A     
 FTNMAC             BX6    X1                                                              FTNMAC       359     A     
 FTNMAC             SA6    ENTRY.                                                          FTNMAC       360     A     
 FTNMAC             RJ     *+1                                                             F2950F4      101     A     
 FTNMAC             BSSZ   1                                                               F2950F4      102     A     
 FTNMAC             BSS    0                                                               FTNMAC       361     A     
 FTNMAC                                                                                    FTNMAC       362          I
          -F162FTNA 
 FTNMAC   *                                                                                F162FTNA     314     A     
 FTNMAC    ANA      ELSE                                                                   FTNMAC       363     A     
 FTNMAC                                                                                    FTNMAC       364          I
          -F162FTNA 
 FTNMAC   *         ENTR. MACRO FOR SUBROUTINE WITH F.P. S                                 FTNMAC       365          I
          -F162FTNA 
 FTNMAC                                                                                    FTNMAC       366          I
          -F162FTNA 
 FTNMAC   *                                                                                F162FTNA     315     A     
 FTNMAC   *         *ENTR.* MACRO FOR SUBROUTINE WITH FORMAL PARAMETERS.                   F162FTNA     316     A     
 FTNMAC   *                                                                                F162FTNA     317     A     
 FTNMAC    N        BSSZ   1                                                               FTNMAC       367     A     
 FTNMAC             ENTRY  N                                                               FTNMAC       368     A     
 FTNMAC             SA2    X                                                               FTNMAC       369     A     
 FTNMAC             BX6    X2                                                              FTNMAC       370     A     
 FTNMAC             SA6    FTNNOP.                                                         FTNMAC       371     A     
 FTNMAC             RJ     *+1                                                             F2950F4      103     A     
 FTNMAC             BSSZ   1                                                               F2950F4      104     A     
 FTNMAC             EQ     ENTRY.+1                                                        FTNMAC       372     A     
 FTNMAC    X        EQ     Z                                                               FTNMAC       373     A     
 FTNMAC    Z        SA1    NOPS.                                                           FTNMAC       374     A     
 FTNMAC             SA2    N                                                               FTNMAC       375     A     
 FTNMAC             BX6    X1                                                              FTNMAC       376     A     
 FTNMAC             LX7    X2                                                              FTNMAC       377     A     
 FTNMAC             SA6    FTNNOP.                                                         FTNMAC       378     A     
 FTNMAC             SA7    ENTRY.                                                          FTNMAC       379     A     
 FTNMAC             RJ     *+1                                                             F2950F4      105     A     
 FTNMAC             BSSZ   1                                                               F2950F4      106     A     
 FTNMAC             BSS    0                                                               FTNMAC       380     A     
 FTNMAC                                                                                    FTNMAC       381          I
          -F162FTNA 
 FTNMAC   *                                                                                F162FTNA     318     A     
 FTNMAC    ANA      ENDIF                                                                  FTNMAC       382     A     
 FTNMAC                                                                                    FTNMAC       383          I
          -F162FTNA 
 FTNMAC             ENDM                                                                   FTNMAC       384          I
          -F162FTNA 
 FTNMAC             EJECT                                                                  FTNMAC       385          I
          -F162FTNA 
 FTNMAC    APL      SPACE  3,10                                                            FTNMAC       386          I
          -F162FTNA 
 FTNMAC   **        APL - FORM APLIST PARAMETER WORD                                       FTNMAC       387          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 421    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
          -F162FTNA 
 FTNMAC   *                                                                                F162FTNA     319     A     
 FTNMAC    ENTR.    ENDM                                                                   F162FTNA     320     A     
 FTNMAC    APL      SPACE  4,8                                                             F162FTNA     321     A     
 FTNMAC   **        APL - FORM APLIST PARAMETER WORD.                                      F162FTNA     322     A     
 FTNMAC                                                                                    F162FTNA     323     A     
 FTNMAC                                                                                    F162FTNA     324     A     
 FTNMAC             PURGMAC   APL                                                          F162FTNA     325     A     
 FTNMAC                                                                                    FTNMAC       388     A     
 FTNMAC    APL      MACRO  X                                                               FTNMAC       389     A     
 FTNMAC             CON    X 0                                                             FTNMAC       390     A     
 FTNMAC             ENDM                                                                   FTNMAC       391          I
          -F162FTNA 
 FTNMAC    EPL      SPACE  3                                                               FTNMAC       392          I
          -F162FTNA 
 FTNMAC   **        EPL - DEFINE EQUIVALENCED APLIST                                       FTNMAC       393          I
          -F162FTNA 
 FTNMAC    APL      ENDM                                                                   F162FTNA     326     A     
 FTNMAC    EPL      SPACE  4,8                                                             F162FTNA     327     A     
 FTNMAC   **        EPL - DEFINE EQUIVALENCED APLIST.                                      F162FTNA     328     A     
 FTNMAC                                                                                    F162FTNA     329     A     
 FTNMAC                                                                                    F162FTNA     330     A     
 FTNMAC             PURGMAC   EPL                                                          F162FTNA     331     A     
 FTNMAC                                                                                    FTNMAC       394     A     
 FTNMAC    EPL      MACRO  N,I,CA                                                          FTNMAC       395     A     
 FTNMAC    [AP_N    EQU    [AP_I+CA                                                        FTNMAC       396     A     
 FTNMAC             ENDM                                                                   FTNMAC       397          I
          -F162FTNA 
 FTNMAC             SPACE  4,8                                                             FTNMAC       398          I
          -F162FTNA 
 FTNMAC    EPL      ENDM                                                                   F162FTNA     332     A     
 FTNMAC    LAP      SPACE  4,8                                                             F162FTNA     333     A     
 FTNMAC   **        LAP - DEFINE LCM APLIST ITEM.                                          FTNMAC       399     A     
 FTNMAC                                                                                    F162FTNA     334     A     
 FTNMAC                                                                                    F162FTNA     335     A     
 FTNMAC             PURGMAC   LAP                                                          F162FTNA     336     A     
 FTNMAC                                                                                    FTNMAC       400     A     
 FTNMAC    LAP      MACRO  SYM,BIAS                                                        FTNMAC       401     A     
 FTNMAC             VFD    1/1,59/SYM+BIAS                                                 FTNMAC       402     A     
 FTNMAC             ENDM                                                                   FTNMAC       403          I
          -F162FTNA 
 FTNMAC             SPACE  3                                                               FTNMAC       404          I
          -F162FTNA 
 FTNMAC    LAP      ENDM                                                                   F162FTNA     337     A     
 FTNMAC             EJECT                                                                  F162FTNA     338     A     
 FTNMAC   ***                                                                              FTNMAC       405     A     
 FTNMAC   *         MACROS ISSUED BY "POST"                                                FTNMAC       406          I
          -F162FTNA 
 FTNMAC   *         MACROS ISSUED BY *POST*.                                               F162FTNA     339     A     
 FTNMAC   *                                                                                FTNMAC       407     A     
 FTNMAC                                                                                    FTNMAC       408          I
          -F162FTNA 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 422    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
 FTNMAC   *         "SUB" AND "DELAY" MACROS FOR FORMAL PARAMETER ADDRESS                  FTNMAC       409          I
          -F162FTNA 
 FTNMAC   *         SUBSTITUTION AT EXECUTION TIME                                         FTNMAC       410          I
          -F162FTNA 
 FTNMAC    RJT      SPACE  3                                                               FTNMAC       411          I
          -F162FTNA 
 FTNMAC   **        RJT - DEFINE RETURN JUMP WITH TRACEBACK MACRO                          FTNMAC       412          I
          -F162FTNA 
 FTNMAC    RJT      SPACE  4,8                                                             F162FTNA     340     A     
 FTNMAC   **        RJT - DEFINE RETURN JUMP WITH TRACEBACK MACRO.                         F162FTNA     341     A     
 FTNMAC                                                                                    F162FTNA     342     A     
 FTNMAC                                                                                    F162FTNA     343     A     
 FTNMAC             PURGMAC   RJT                                                          F162FTNA     344     A     
 FTNMAC                                                                                    FTNMAC       413     A     
 FTNMAC    RJT      MACRO  SYM,LINE,FP                                                     FTNMAC       414     A     
 FTNMAC    +        RJ     SYM                                                             FTNMAC       415     A     
 FTNMAC             IFC    NE,//FP/,1                                                      FTNMAC       416     A     
 FTNMAC             SUB    SYM                                                             FTNMAC       417     A     
 FTNMAC             IFLT   LINE,7777B,2                                                    FTNMAC       418     A     
 FTNMAC   -         VFD    12/LINE,18/TRACE.                                               FTNMAC       419     A     
 FTNMAC             ELSE   3                                                               FTNMAC       420     A     
 FTNMAC             VFD    12/-0,18/TRACE.                                                 FTNMAC       421          I
          -FCC1085
 FTNMAC   -         VFD    12/-0,18/TRACE.                                                 FCC1085        6     A     
 FTNMAC             SB0    0                                                               FTNMAC       422     A     
 FTNMAC             SB0    LINE                                                            FTNMAC       423     A     
 FTNMAC             ENDM                                                                   FTNMAC       424          I
          -F162FTNA 
 FTNMAC    ED       SPACE  3                                                               FTNMAC       425          I
          -F162FTNA 
 FTNMAC    RJT      ENDM                                                                   F162FTNA     345     A     
 FTNMAC    ED       SPACE  4,8                                                             F162FTNA     346     A     
 FTNMAC   **        ED - OUTPUT EQ JUMP FOR *DEBUG* MODE FOR TRACED LABEL.                 FTNMAC       426     A     
 FTNMAC                                                                                    F162FTNA     347     A     
 FTNMAC                                                                                    F162FTNA     348     A     
 FTNMAC             PURGMAC   ED                                                           F162FTNA     349     A     
 FTNMAC                                                                                    FTNMAC       427     A     
 FTNMAC    ED       MACRO  SYM,CA                                                          FTNMAC       428     A     
 FTNMAC   +         EQ     SYM                                                             FTNMAC       429     A     
 FTNMAC   -         VFD    30/LABEL.+CA                                                    FTNMAC       430     A     
 FTNMAC             ENDM                                                                   FTNMAC       431          I
          -F162FTNA 
 FTNMAC             SPACE  3                                                               FTNMAC       432          I
          -F162FTNA 
 FTNMAC    ED       ENDM                                                                   F162FTNA     350     A     
 FTNMAC    SUB      SPACE  4,8                                                             F162FTNA     351     A     
 FTNMAC   **        SUB - RUN-TIME FORMAL PARAMETER SUBSTITUTION MACRO.                    F162FTNA     352     A     
 FTNMAC                                                                                    F162FTNA     353     A     
 FTNMAC                                                                                    F162FTNA     354     A     
 FTNMAC             PURGMAC   SUB                                                          F162FTNA     355     A     
 FTNMAC                                                                                    F162FTNA     356     A     
 FTNMAC    SUB      MACRO  FP,CON                                                          FTNMAC       433          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 423    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
          -RSM3545C 
 FTNMAC    .POS     SET    59-$                                                            FTNMAC       434          I
          -RSM3545C 
 FTNMAC    .ORG     SET    *-$/59                                                          FTNMAC       435          I
          -RSM3545C 
 FTNMAC             USE    FP                                                              FTNMAC       436          I
          -RSM3545C 
 FTNMAC             VFD    3/2,9/.POS,30/CON,18/.ORG                                       FTNMAC       437          I
          -RSM3545C 
 FTNMAC    SUB      MACRO  FP,CA                                                           RSM3545C      20     A     
 FTNMAC    .POS     SET    $+2001B-$/59*61                                                 RSM3545C      21     A     
 FTNMAC    .ORG     SET    *L-$/59                                                         RSM3545C      22     A     
 FTNMAC             USE    FP                                                              RSM3545C      23     A     
 FTNMAC             IFEQ   *L,FP,1                                                         RSM3545C      24     A     
 FTNMAC    .DEL     SET    1                                                               RSM3545C      25     A     
 FTNMAC             IFEQ   .ORG,.FP,1                                                      RSM3545C      26     A     
 FTNMAC    .DEL     SET    1                                                               RSM3545C      27     A     
 FTNMAC             VFD    12/.DEL*.POS,6/(FP,6/0,18/CA,18/.ORG                            RSM3545C      28     A     
 FTNMAC    .DEL     SET    -1                                                              RSM3545C      29     A     
 FTNMAC    .FP      SET    .ORG                                                            RSM3545C      30     A     
 FTNMAC             USE    *                                                               FTNMAC       438     A     
 FTNMAC             ENDM                                                                   FTNMAC       439     A     
 FTNMAC             SPACE  3                                                               FTNMAC       440          I
          -RSM3545C 
 FTNMAC    DELAY    MACRO  FP                                                              FTNMAC       441          I
          -RSM3545C 
 FTNMAC             USE    FP                                                              FTNMAC       442          I
          -RSM3545C 
 FTNMAC             VFD    3/2,9/30,30/0,18/ST.                                            FTNMAC       443          I
          -RSM3545C 
 FTNMAC             USE    *                                                               FTNMAC       444          I
          -RSM3545C 
 FTNMAC             ENDM                                                                   FTNMAC       445          I
          -RSM3545C 
 FTNMAC             SPACE  3                                                               FTNMAC       446     A     
 FTNMAC   **        ADDSUB - SUBSTITUTE ADDRESS"S OF FORMAL PARAMETERS IN CODE             FTNMAC       447          I
          -RSM3545C 
 FTNMAC   *         AT EXECUTION TIME                                                      FTNMAC       448          I
          -RSM3545C 
 FTNMAC                                                                                    FTNMAC       449          I
          -RSM3545C 
 FTNMAC    ADDSUB   MACRO  FP                                                              FTNMAC       450          I
          -RSM3545C 
 FTNMAC             SB4    1                                                               FTNMAC       451          I
          -RSM3545C 
 FTNMAC             SA3    FP-1                                                            FTNMAC       452          I
          -RSM3545C 
 FTNMAC             MX0    42                                                              FTNMAC       453          I
          -RSM3545C 
 FTNMAC             SB6    60                                                              FTNMAC       454          I
          -RSM3545C 
 FTNMAC             NO                                                                     FTNMAC       455          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 424    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
          -RSM3545C 
 FTNMAC    B)       SA3    B4+A3                                                           FTNMAC       456          I
          -RSM3545C 
 FTNMAC             SB7    X1                                                              FTNMAC       457          I
          -RSM3545C 
 FTNMAC             SA1    A1+B4                                                           FTNMAC       458          I
          -RSM3545C 
 FTNMAC             SA2    X3                                                              FTNMAC       459          I
          -RSM3545C 
 FTNMAC    A)       UX4    X3,B2                                                           FTNMAC       460          I
          -RSM3545C 
 FTNMAC             SB3    A2                                                              FTNMAC       461          I
          -RSM3545C 
 FTNMAC             LX4    42                                                              FTNMAC       462          I
          -RSM3545C 
 FTNMAC             SB5    B6-B2                                                           FTNMAC       463          I
          -RSM3545C 
 FTNMAC             SA3    A3+B4                                                           FTNMAC       464          I
          -RSM3545C 
 FTNMAC             LX2    B2,X2                                                           FTNMAC       465          I
          -RSM3545C 
 FTNMAC             SX5    X4+B7                                                           FTNMAC       466          I
          -RSM3545C 
 FTNMAC             BX4    X0*X2                                                           FTNMAC       467          I
          -RSM3545C 
 FTNMAC             SA2    X3                                                              FTNMAC       468          I
          -RSM3545C 
 FTNMAC             BX6    -X0*X5                                                          FTNMAC       469          I
          -RSM3545C 
 FTNMAC             IX4    X6+X4                                                           FTNMAC       470          I
          -RSM3545C 
 FTNMAC             LX6    B5,X4                                                           FTNMAC       471          I
          -RSM3545C 
 FTNMAC             SA6    B3                                                              FTNMAC       472          I
          -RSM3545C 
 FTNMAC             NZ     X3,A)                                                           FTNMAC       473          I
          -RSM3545C 
 FTNMAC             NO                                                                     FTNMAC       474          I
          -RSM3545C 
 FTNMAC             NZ     X1,B)                                                           FTNMAC       475          I
          -RSM3545C 
 FTNMAC                                                                                    FTNMAC       476          I
          -F7540FTA -RSM3545C 
 FTNMAC    #MD      IFEQ   .CPU,76                                                         FTNMAC       477          I
          -F7540FTA -RSM3545C 
 FTNMAC             RJ     *+1                                                             FTNMAC       478          I
          -RSM3545C 
 FTNMAC             VFD    60/0                                                            FTNMAC       479          I
          -RSM3545C 
 FTNMAC    #MD      ENDIF                                                                  FTNMAC       480          I
          -F7540FTA -RSM3545C 
 FTNMAC                                                                                    FTNMAC       481          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 425    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMAC  
  
          -F7540FTA -RSM3545C 
 FTNMAC    #MD      IFEQ   .CPU,74                                                         FTNMAC       482          I
          -F7540FTA -RSM3545C 
 FTNMAC             JP     *+1                                                             FTNMAC       483          I
          -F7540FTA -RSM3545C 
 FTNMAC    #MD      ENDIF                                                                  FTNMAC       484          I
          -F7540FTA -RSM3545C 
 FTNMAC                                                                                    FTNMAC       485          I
          -F7540FTA -RSM3545C 
 FTNMAC             ENDM                                                                   FTNMAC       486          I
          -RSM3545C 
 FTNMAC                                                                                    FTNMAC       487          I
          -RSM3545C 
 FTNMAC             END                                                                    FTNMAC       488     A     
 FTNMAC   *WEOR,0                                                                          FTNMAC       489          I
          -FCCA589
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FTNMAC  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FTNMAC                     489       305
          FCC0448                      5         5
          FEAT155A                     4         4
          FCC1085                      1         1
          RSM3545C                    24        24
          F162FTNA                   299       291
          FCCA408                     32        32
          F2950F4                      6         6
          FCC2345                      1         1
          FCCA561                     15        15
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN WEOR2*  
  
 WEOR2*   *DECK WEOR2*                                                                     FCCA589       16     A     
 WEOR2*   *WEOR 0                                                                          FCCA589       17     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - WEOR2*  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FCCA589                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT  *DECK     FTNTEXT                                                                FTNTEXT        1     A     
 FTNTEXT            IDENT  FTNTEXT                                                         FTNTEXT        2     A     
 FTNTEXT            STEXT                                                                  FTNTEXT        3     A     
 FTNTEXT   FTNTEXT  TITLE  F T N T E X T  -  FORTRAN EXTENDED ASSEMBLY TEXT                FTNTEXT        4     A     
 FTNTEXT            LIST   F                                                               FTNTEXT        5          I
          -FEAT155F 
 FTNTEXT            LIST   F,X                                                             FEAT155F      80     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 426    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT   FTNTEXT  SPACE  4,8                                                             FTNTEXT        6     A     
 FTNTEXT  ***       FTNTEXT - FORTRAN EXTENDED ASSEMBLY/INSTALLATION TEXT.                 FTNTEXT        7     A     
 FTNTEXT  *                                                                                FTNTEXT        8     A     
 FTNTEXT  *                *FTNTEXT* IS THE GLOBAL TEXT FOR ASSEMBLY/INSTALLATION          FTNTEXT        9     A     
 FTNTEXT  *         OF THE FORTRAN EXTENDED COMPILER.  IT CONTAINS DEFINITIONS             FTNTEXT       10     A     
 FTNTEXT  *         OF MACROS, MICROS, SYMBOLS AND OPDEFS, ORGANIZED AS FOLLOWS...         FTNTEXT       11     A     
 FTNTEXT  *                                                                                FTNTEXT       12     A     
 FTNTEXT  *         COMPILER INSTALLATION OPTIONS.                                         FTNTEXT       13     A     
 FTNTEXT  *         GENERAL MACROS ( USED BY ALL PARTS OF THE COMPILER ).                  FTNTEXT       14     A     
 FTNTEXT  *         I/O MACROS.                                                            FTNTEXT       15     A     
 FTNTEXT  *         SYMBOL TABLE / REFMAP MACROS ( PASS 1 ).                               FTNTEXT       16     A     
 FTNTEXT  *         MACROS FOR DEBUGGING.                                                  FTNTEXT       17     A     
 FTNTEXT  *         PASS 1 TABLE MANAGER MACROS.                                           FTNTEXT       18     A     
 FTNTEXT  *         SYMBOL TABLE BIT AND FIELD DEFINTIONS.                                 FTNTEXT       19     A     
 FTNTEXT  *         MISCELLANEOUS PASS 1 MACROS.                                           FTNTEXT       20     A     
 FTNTEXT  *         PASS 2 FIELD DEFINITIONS AND TABLE FORMATS.                            FTNTEXT       21     A     
 FTNTEXT   PLI      SPACE  3                                                               FTNTEXT       22     A     
 FTNTEXT  **        DEFINE SYMBOL TO CONTROL CONDITIONAL ASSEMBLY OF CODE FOR              FTNTEXT       23     A     
 FTNTEXT  *         *PL/I* IN PASS 2.  *DEFINE PLI  TO ACTIVATE ASSEMBLY .                 FTNTEXT       24     A     
 FTNTEXT                                                                                   FTNTEXT       25     A     
 FTNTEXT  *IF DEF,PLI,1                                                                    FTNTEXT       26     A     
 FTNTEXT   .PLI     EQU    1           ASSEMBLE CODE FOR PL/I                              FTNTEXT       27     A     
 FTNTEXT  *IF -DEF,PLI,1                                                                   FTNTEXT       28     A     
 FTNTEXT   .PLI     EQU    0           DO NOT ASSEMBLE CODE FOR PL/I                       FTNTEXT       29     A     
 FTNTEXT  *CALL OPTIONS                                                                    FTNTEXT       30     A     
 FTNTEXT  *         SELECT SYSTEM - OR TEST-MODE COMPILER CONFIGURATION.                   FCCA451       15     A     
 FTNTEXT                                                                                   FCCA451       16     A     
 FTNTEXT  *IF -DEF,TESTFTN,1                                                               FCCA451       17          I
          -FCCA589
 FTNTEXT  *IF -DEF,TEST,1                                                                  FCCA589       18     A     
 FTNTEXT   TEST     =      0           ASSEMBLE COMPILER IN NORMAL (SYSTEM) MODE           FCCA451       18     A     
 FTNTEXT  *IF  DEF,TESTFTN,1                                                               FCCA451       19          I
          -FCCA589
 FTNTEXT  *IF DEF,TEST,1                                                                   FCCA589       19     A     
 FTNTEXT   TEST     =      1           ASSEMBLE COMPILER IN TEST MODE                      FCCA451       20     A     
 FTNTEXT                                                                                   FCCA451       21     A     
 FTNTEXT  *                                                                                FCCA451       22     A     
 FTNTEXT   STACK    SPACE  3                                                               FTNTEXT       31     A     
 FTNTEXT            TITLE  INTEGER ARITHMETIC MACROS AND OPDEFS                            FTNTEXT       32     A     
 FTNTEXT   CW       SPACE  4,8                                                             FTNTEXT       33     A     
 FTNTEXT  **        CW - CONVERT CHARACTER COUNT TO WORD COUNT.                            FTNTEXT       34     A     
 FTNTEXT  *                                                                                FTNTEXT       35     A     
 FTNTEXT  *         COMPUTES--  WORD COUNT = (CHAR COUNT + 9) / 10                         FTNTEXT       36     A     
 FTNTEXT  *         VALIDITY-- *RESULT* IS EXACT FOR 0 .LE. *OPERAND .LE. 262139D.         FTNTEXT       37          I
          -FCC1448X 
 FTNTEXT  *         FURTHER, *RESULT* IS EXACT FOR 0 .LE. *OPERAND* .LE. 2621421D          FTNTEXT       38          I
          -FCC1448X 
 FTNTEXT  *         IF (*OPERAND*+9) IS AN EXACT MULTIPLE OF TEN.                          FTNTEXT       39          I
          -FCC1448X 
 FTNTEXT  *         VALIDITY- *RESULT* IS GOOD FOR 0.LE.*OPERAND*.LE.262133D               FCC1448X       7     A     
 FTNTEXT  *         RESULT IS WRONG OUTSIDE OF THIS RANGE.                                 FCC1448X       8     A     
 FTNTEXT  *                                                                                FTNTEXT       40     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 427    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT  *         CW        X.RESULT,X.OPERAND                                           FTNTEXT       41     A     
 FTNTEXT  *                                                                                FTNTEXT       42     A     
 FTNTEXT  *         ENTRY  *X.RESULT*  = X-REG TO RECEIVE INTEGER WORD COUNT               FTNTEXT       43     A     
 FTNTEXT  *                *X.OPERAND* = X-REG CONTAINING INTEGER CHARACTER COUNT          FTNTEXT       44     A     
 FTNTEXT  *                                                                                FTNTEXT       45     A     
 FTNTEXT  *         USES   X.OPERAND, X.RESULT                                             FTNTEXT       46     A     
 FTNTEXT                                                                                   FTNTEXT       47     A     
 FTNTEXT            PURGDEF   CW,X,X                                                       FTNTEXT       48     A     
 FTNTEXT                                                                                   FTNTEXT       49     A     
 FTNTEXT   CW,X,X   OPDEF  R,P                                                             FTNTEXT       50     A     
 FTNTEXT    SX.R X.P+9D                                                                    FTNTEXT       51          I
          -FCC1448X 
 FTNTEXT    MX.R -18D                                                                      FCC1448X       9     A     
 FTNTEXT    SX.P X.P+9D                                                                    FCC1448X      10     A     
 FTNTEXT    BX.R -X.R*X.P                                                                  FCC1448X      11     A     
 FTNTEXT  *                            52429 = (2**19) / 10 + 1                            FTNTEXT       52     A     
 FTNTEXT    SX.P 52429D                                                                    FTNTEXT       53     A     
 FTNTEXT    IX.R X.R*X.P                                                                   FTNTEXT       54     A     
 FTNTEXT    AX.R 19D                                                                       FTNTEXT       55     A     
 FTNTEXT    ENDM                                                                           FTNTEXT       56     A     
 FTNTEXT   IXI      SPACE  4,8                                                             FTNTEXT       57     A     
 FTNTEXT            PURGDEF  IXX*X                                                         FTNTEXT       58     A     
 FTNTEXT   IXX*X    CPSYN  DXX*X                                                           FTNTEXT       59     A     
 FTNTEXT   LXQ      SPACE  4,8                                                             FTNTEXT       60     A     
 FTNTEXT  **        LXQ - REDEFINE THE LEFT SHIFT INSTRUCTION.                             FTNTEXT       61     A     
 FTNTEXT  *                                                                                FTNTEXT       62     A     
 FTNTEXT  *         THIS OPDEF REDEFINES THE LEFT SHIFT INSTRUCTION TO SUPPRESS            FTNTEXT       63     A     
 FTNTEXT  *         CODE GENERATION WHEN THE SHIFT COUNT IS 0, +60D OR -60D.               FTNTEXT       64     A     
 FTNTEXT  *         THE INSTRUCTION IS OTHERWISE UNCHANGED.                                FTNTEXT       65     A     
 FTNTEXT  *                                                                                FTNTEXT       66     A     
 FTNTEXT  *         LXI       JK                                                           FTNTEXT       67     A     
 FTNTEXT  *                                                                                FTNTEXT       68     A     
 FTNTEXT  *         ENTRY  *XI* = X-REG TO BE SHIFTED                                      FTNTEXT       69     A     
 FTNTEXT  *                *JK* = SHIFT COUNT EXPRESSION                                   FTNTEXT       70     A     
 FTNTEXT  *                                                                                FTNTEXT       71     A     
 FTNTEXT  *         USES   XI                                                              FTNTEXT       72     A     
 FTNTEXT                                                                                   FTNTEXT       73     A     
 FTNTEXT   ^XQ      CPSYN     LXQ                                                          FTNTEXT       74     A     
 FTNTEXT            PURGDEF   LXQ                                                          FTNTEXT       75     A     
 FTNTEXT                                                                                   FTNTEXT       76     A     
 FTNTEXT   LXQ      OPDEF     I,JK                                                         FTNTEXT       77     A     
 FTNTEXT    IFNE JK,0,2                                                                    FTNTEXT       78     A     
 FTNTEXT    IFNE JK_&60D,0,1                                                               FTNTEXT       79     A     
 FTNTEXT    ^X.I JK                                                                        FTNTEXT       80     A     
 FTNTEXT    ENDM                                                                           FTNTEXT       81     A     
 FTNTEXT   MXX/X    SPACE  4,8                                                             FTNTEXT       82          I
          -FEAT155D 
 FTNTEXT  **        MXX/X - SELECT LESSER (MINIMUM FUNCTION) OF TWO INTEGERS.              FTNTEXT       83          I
          -FEAT155D 
 FTNTEXT  *                                                                                FTNTEXT       84          I
          -FEAT155D 
 FTNTEXT  *         THIS OPDEF COMPARES TWO INTEGERS IN *XJ* AND *XK*, AND PLACES          FTNTEXT       85          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 428    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
          -FEAT155D 
 FTNTEXT  *         THE ALGEBRAICALLY LESSER VALUE IN *XI*.                                FTNTEXT       86          I
          -FEAT155D 
 FTNTEXT  *                                                                                FTNTEXT       87          I
          -FEAT155D 
 FTNTEXT  *                                                                                FTNTEXT       88          I
          -FEAT155D 
 FTNTEXT  *         MXI       XJ/XK                                                        FTNTEXT       89          I
          -FEAT155D 
 FTNTEXT  *                                                                                FTNTEXT       90          I
          -FEAT155D 
 FTNTEXT  *         ENTRY  *XI* = RESULT X-REG; CANNOT BE *XJ* OR *XK*                     FTNTEXT       91          I
          -FEAT155D 
 FTNTEXT  *                *XJ*,*XK* = X-REGS CONTAINING INTEGERS TO BE COMPARED           FTNTEXT       92          I
          -FEAT155D 
 FTNTEXT  *                                                                                FTNTEXT       93          I
          -FEAT155D 
 FTNTEXT  *         EXIT   (X.LARGER) = 0                                                  FTNTEXT       94          I
          -FEAT155D 
 FTNTEXT  *                (X.SMALLER) = UNCHANGED                                         FTNTEXT       95          I
          -FEAT155D 
 FTNTEXT  *                IF ON ENTRY (XJ)=(XK),                                          FTNTEXT       96          I
          -FEAT155D 
 FTNTEXT  *                  THEN ON EXIT (XJ)=0 AND (XK)=UNCHANGED                        FTNTEXT       97          I
          -FEAT155D 
 FTNTEXT  *                                                                                FTNTEXT       98          I
          -FEAT155D 
 FTNTEXT  *         USES   XI, XJ, XK                                                      FTNTEXT       99          I
          -FEAT155D 
 FTNTEXT                                                                                   FTNTEXT      100          I
          -FEAT155D 
 FTNTEXT                                                                                   FTNTEXT      101          I
          -FEAT155D 
 FTNTEXT            PURGDEF   MXX/X                                                        FTNTEXT      102          I
          -FEAT155D 
 FTNTEXT                                                                                   FTNTEXT      103          I
          -FEAT155D 
 FTNTEXT   MXX/X    OPDEF  I,J,K                                                           FTNTEXT      104          I
          -FEAT155D 
 FTNTEXT    IX.I X.J-X.K                                                                   FTNTEXT      105          I
          -FEAT155D 
 FTNTEXT    AX.I 59D                                                                       FTNTEXT      106          I
          -FEAT155D 
 FTNTEXT    BX.J X.I*X.J                                                                   FTNTEXT      107          I
          -FEAT155D 
 FTNTEXT    BX.K -X.I*X.K                                                                  FTNTEXT      108          I
          -FEAT155D 
 FTNTEXT    IX.I X.J+X.K                                                                   FTNTEXT      109          I
          -FEAT155D 
 FTNTEXT    ENDM                                                                           FTNTEXT      110          I
          -FEAT155D 
 FTNTEXT  *CALL TEXTCOM                                                                    FEAT155D      12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 429    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT   WC       SPACE  4,8                                                             FTNTEXT      111     A     
 FTNTEXT  **        WC - CONVERT WORD COUNT TO CHARACTER COUNT.                            FTNTEXT      112     A     
 FTNTEXT  *                                                                                FTNTEXT      113     A     
 FTNTEXT  *         COMPUTES-- CHAR COUNT = WORD COUNT * 10                                FTNTEXT      114     A     
 FTNTEXT  *                                                                                FTNTEXT      115     A     
 FTNTEXT  *                                                                                FTNTEXT      116     A     
 FTNTEXT  *         WC        X.RESULT,X.OPERAND                                           FTNTEXT      117     A     
 FTNTEXT  *                                                                                FTNTEXT      118     A     
 FTNTEXT  *         ENTRY  *X.RESULT*  = X-REG TO RECEIVE INTEGER CHARACTER COUNT          FTNTEXT      119     A     
 FTNTEXT  *                *X.OPERAND* = X-REG CONTAINING INTEGER WORD COUNT               FTNTEXT      120     A     
 FTNTEXT  *                                                                                FTNTEXT      121     A     
 FTNTEXT  *         USES   X.OPERAND, X.RESULT                                             FTNTEXT      122     A     
 FTNTEXT                                                                                   FTNTEXT      123     A     
 FTNTEXT                                                                                   FTNTEXT      124     A     
 FTNTEXT            PURGDEF   WC,X,X                                                       FTNTEXT      125     A     
 FTNTEXT                                                                                   FTNTEXT      126     A     
 FTNTEXT   WC,X,X   OPDEF  R,O                                                             FTNTEXT      127     A     
 FTNTEXT    IX.R X.O+X.O                                                                   FTNTEXT      128     A     
 FTNTEXT    LX.O 3                                                                         FTNTEXT      129     A     
 FTNTEXT    IX.R X.O+X.R                                                                   FTNTEXT      130     A     
 FTNTEXT    ENDM                                                                           FTNTEXT      131     A     
 FTNTEXT   LXQ      SPACE  3                                                               FTNTEXT      132     A     
 FTNTEXT            TITLE  GENERAL MACROS                                                  FTNTEXT      133     A     
 FTNTEXT   BIT      SPACE  4,8                                                             FTNTEXT      134     A     
 FTNTEXT  **        BIT - SET SYMBOL TO 2**N.                                              FTNTEXT      135     A     
 FTNTEXT  *                                                                                FTNTEXT      136     A     
 FTNTEXT  *                                                                                FTNTEXT      137     A     
 FTNTEXT  *  SYM    BIT       PWR                                                          FTNTEXT      138     A     
 FTNTEXT  *                                                                                FTNTEXT      139     A     
 FTNTEXT  *         ENTRY  [SYM] = SYMBOL TO BE SET                                        FTNTEXT      140     A     
 FTNTEXT  *                [PWR] = DESIRED POWER OF 2                                      FTNTEXT      141     A     
 FTNTEXT  *                                                                                FTNTEXT      142     A     
 FTNTEXT  *         EXIT   [SYM] = 2**[PWR]                                                FTNTEXT      143     A     
 FTNTEXT  *                                                                                FTNTEXT      144     A     
 FTNTEXT  *         USES   NONE                                                            FTNTEXT      145     A     
 FTNTEXT  *                                                                                FTNTEXT      146     A     
 FTNTEXT  *         CALLS  NONE                                                            FTNTEXT      147     A     
 FTNTEXT                                                                                   FTNTEXT      148     A     
 FTNTEXT                                                                                   FTNTEXT      149     A     
 FTNTEXT            PURGMAC   BIT                                                          FTNTEXT      150     A     
 FTNTEXT                                                                                   FTNTEXT      151     A     
 FTNTEXT            MACRO  BIT,SYM,PWR                                                     FTNTEXT      152     A     
 FTNTEXT   P        DECMIC PWR                                                             FTNTEXT      153     A     
 FTNTEXT   SYM      SET    1S"P"                                                           FTNTEXT      154     A     
 FTNTEXT   BIT      ENDM                                                                   FTNTEXT      155     A     
 FTNTEXT   CALL     SPACE  4,8                                                             FTNTEXT      156     A     
 FTNTEXT  **        CALL - CALL A ROUTINE.                                                 FTNTEXT      157     A     
 FTNTEXT  *                                                                                FTNTEXT      158     A     
 FTNTEXT  *         GENERATES--    RJ  =X*ROUTINE*.                                        FTNTEXT      159     A     
 FTNTEXT  *                                                                                FTNTEXT      160     A     
 FTNTEXT  *                                                                                FTNTEXT      161     A     
 FTNTEXT  *         CALL      ROUTINE                                                      FTNTEXT      162     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 430    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT  *                                                                                FTNTEXT      163     A     
 FTNTEXT  *         ENTRY  *ROUTINE* = NAME OF CALLED ROUTINE                              FTNTEXT      164     A     
 FTNTEXT  *                                                                                FTNTEXT      165     A     
 FTNTEXT  *         USES   NONE                                                            FTNTEXT      166     A     
 FTNTEXT                                                                                   FTNTEXT      167     A     
 FTNTEXT                                                                                   FTNTEXT      168     A     
 FTNTEXT            PURGMAC   CALL                                                         FTNTEXT      169     A     
 FTNTEXT                                                                                   FTNTEXT      170     A     
 FTNTEXT   CALL     MACRO  R                                                               FTNTEXT      171     A     
 FTNTEXT    RJ =X_R                                                                        FTNTEXT      172     A     
 FTNTEXT    ENDM                                                                           FTNTEXT      173     A     
 FTNTEXT   ENTRY.   SPACE  4,8                                                             FTNTEXT      174     A     
 FTNTEXT  **        ENTRY. - DEFINE ENTRY POINT AND ITS CONTENTS.                          FTNTEXT      175     A     
 FTNTEXT  *                                                                                FTNTEXT      176     A     
 FTNTEXT  *         REGISTER SNAPS MAY BE OBTAINED AT ENTRY POINTS DEFINED WITH            FTNTEXT      177     A     
 FTNTEXT  *         THIS MACRO BY USING THE -REGSNAP- DEBUGGING MACRO.                     FTNTEXT      178     A     
 FTNTEXT  *                                                                                FTNTEXT      179     A     
 FTNTEXT  *                                                                                FTNTEXT      180     A     
 FTNTEXT  * NAME    ENTRY.    VALUE                                                        FTNTEXT      181     A     
 FTNTEXT  *                                                                                FTNTEXT      182     A     
 FTNTEXT  *                *NAME*  = ENTRY POINT NAME                                      FTNTEXT      183     A     
 FTNTEXT  *                                                                                FTNTEXT      184     A     
 FTNTEXT  *                *VALUE* = * OR ** OR ANY OTHER LEGAL COMPASS EXPRESSION         FTNTEXT      185     A     
 FTNTEXT  *                                                                                FTNTEXT      186     A     
 FTNTEXT  *                          *     (FOR LOCAL SUBROUTINES)    EXPANDS TO--         FTNTEXT      187     A     
 FTNTEXT  *                                 NAME  EQ     *+1S17                            FTNTEXT      188     A     
 FTNTEXT  *                                                                                FTNTEXT      189     A     
 FTNTEXT  *                          **    (FOR GLOBAL SUBROUTINES)   EXPANDS TO--         FTNTEXT      190     A     
 FTNTEXT  *                                       ENTRY  NAME                              FTNTEXT      191     A     
 FTNTEXT  *                                 NAME  EQ     *+1S17                            FTNTEXT      192     A     
 FTNTEXT  *                                                                                FTNTEXT      193     A     
 FTNTEXT  *                          ELSE  (FOR GLOBAL STORAGE LOCN)  EXPANDS TO--         FTNTEXT      194     A     
 FTNTEXT  *                                       ENTRY  NAME                              FTNTEXT      195     A     
 FTNTEXT  *                                 NAME  CON    VALUE                             FTNTEXT      196     A     
 FTNTEXT  *                                                                                FTNTEXT      197     A     
 FTNTEXT  *         CALLS  NONE                                                            FTNTEXT      198     A     
 FTNTEXT  *                                                                                FTNTEXT      199     A     
 FTNTEXT  *         USES   NONE                                                            FTNTEXT      200     A     
 FTNTEXT                                                                                   FTNTEXT      201     A     
 FTNTEXT                                                                                   FTNTEXT      202     A     
 FTNTEXT            PURGMAC   ENTRY.                                                       FTNTEXT      203     A     
 FTNTEXT                                                                                   FTNTEXT      204     A     
 FTNTEXT            MACRO  ENTRY.,NAME,VALUE                                               FTNTEXT      205     A     
 FTNTEXT    IFC NE, VALUE * ,2                                                             FTNTEXT      206          I
          -FEAT126A 
 FTNTEXT    IFC NE,$VALUE$*$,2                                                             FEAT126A      18     A     
 FTNTEXT    ENTRY NAME                                                                     FTNTEXT      207     A     
 FTNTEXT    IFC EQ, VALUE ** ,2                                                            FTNTEXT      208          I
          -FEAT126A 
 FTNTEXT    IFC EQ,$VALUE$**$,2                                                            FEAT126A      19     A     
 FTNTEXT  NAME EQ *+1S17                                                                   FTNTEXT      209     A     
 FTNTEXT    SKIP 1                                                                         FTNTEXT      210     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 431    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT  NAME CON VALUE                                                                   FTNTEXT      211     A     
 FTNTEXT  *                            REGISTER SNAP FACILITY.                             FTNTEXT      212     A     
 FTNTEXT    IF DEF,)NAME,1                                                                 FTNTEXT      213     A     
 FTNTEXT    REGS NAME                                                                      FTNTEXT      214          I
          -FEAT155F 
 FTNTEXT   NAME REGS                                                                       FEAT155F      81     A     
 FTNTEXT  ENTRY. ENDM                                                                      FTNTEXT      215     A     
 FTNTEXT            SPACE  3                                                               FTNTEXT      216     A     
 FTNTEXT  **        EQENT - EQUATE SYMBOL, DECLARE ENTRY POINT.                            FTNTEXT      217     A     
 FTNTEXT  *                                                                                FTNTEXT      218     A     
 FTNTEXT  *SYM      EQENT  LAB                                                             FTNTEXT      219     A     
 FTNTEXT  *                                                                                FTNTEXT      220     A     
 FTNTEXT  *         ENTRY - "SYM" = SYMBOL TO BE MADE AN ENTRY POINT                       FTNTEXT      221     A     
 FTNTEXT  *                "LAB" = VALUE OF ENTRY POINT                                    FTNTEXT      222     A     
 FTNTEXT  *                                                                                FTNTEXT      223     A     
 FTNTEXT  *         GENERATES -                                                            FTNTEXT      224     A     
 FTNTEXT  *         ENTRY  SYM                                                             FTNTEXT      225     A     
 FTNTEXT  *SYM      EQU    LAB                                                             FTNTEXT      226     A     
 FTNTEXT  *                                                                                FTNTEXT      227     A     
 FTNTEXT  *         CALLS  NONE                                                            FTNTEXT      228     A     
 FTNTEXT                                                                                   FTNTEXT      229     A     
 FTNTEXT            PURGMAC EQENT                                                          FTNTEXT      230     A     
 FTNTEXT                                                                                   FTNTEXT      231     A     
 FTNTEXT            MACRO  EQENT,SYM,LAB                                                   FTNTEXT      232     A     
 FTNTEXT            ENTRY  SYM                                                             FTNTEXT      233     A     
 FTNTEXT   SYM      EQU    LAB                                                             FTNTEXT      234     A     
 FTNTEXT   EQENT    ENDM                                                                   FTNTEXT      235     A     
 FTNTEXT   LOVER    SPACE  4,8                                                             FTNTEXT      236     A     
 FTNTEXT  **        LOVER - LOAD FTN OVERLAY.                                              FTNTEXT      237     A     
 FTNTEXT  *                                                                                FTNTEXT      238     A     
 FTNTEXT  *         FORMS 3-WORD LOADER CALL AND EXITS TO LOAD REQUEST ROUTINE.            FTNTEXT      239     A     
 FTNTEXT  *                                                                                FTNTEXT      240     A     
 FTNTEXT  *                                                                                FTNTEXT      241     A     
 FTNTEXT  *         LOVER     OVL*P**S*                                                    FTNTEXT      242     A     
 FTNTEXT  *                                                                                FTNTEXT      243     A     
 FTNTEXT  *         ENTRY  *P* = OVERLAY PRIMARY LEVEL NUMBER                              FTNTEXT      244     A     
 FTNTEXT  *                *S* = OVERLAY SECONDARY LEVEL NUMBER                            FTNTEXT      245     A     
 FTNTEXT  *                                                                                FTNTEXT      246     A     
 FTNTEXT  *         EXIT   TO *LOVER*.                                                     FTNTEXT      247     A     
 FTNTEXT  *                (X4) = LIBRARY NAME, 0L FORMAT                                  FTNTEXT      248     A     
 FTNTEXT  *                (X6) = OVERLAY NAME, 0L FORMAT                                  FTNTEXT      249     A     
 FTNTEXT  *                (X7) = 12/OVERLAY LEVEL (0P0S),                                 FTNTEXT      250     A     
 FTNTEXT  *                        9/LOADER REQUEST FLAGS,                                 FTNTEXT      251     A     
 FTNTEXT  *                        3/0,                                                    FTNTEXT      252     A     
 FTNTEXT  *                       18/LWA SPACE AVAILABLE TO LOADER,                        FTNTEXT      253     A     
 FTNTEXT  *                       18/FWA LOAD                                              FTNTEXT      254     A     
 FTNTEXT  *                                                                                FTNTEXT      255     A     
 FTNTEXT  *         CALLS  NONE                                                            FTNTEXT      256     A     
 FTNTEXT  *                                                                                FTNTEXT      257     A     
 FTNTEXT  *         USES   X - ALL BUT 0                                                   FTNTEXT      258     A     
 FTNTEXT  *                A - 1, 3, 4, 5                                                  FTNTEXT      259     A     
 FTNTEXT  *                B - NONE                                                        FTNTEXT      260     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 432    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT                                                                                   FTNTEXT      261     A     
 FTNTEXT                                                                                   FTNTEXT      262     A     
 FTNTEXT            PURGMAC   LOVER                                                        FTNTEXT      263     A     
 FTNTEXT                                                                                   FTNTEXT      264     A     
 FTNTEXT   LOVER    MACRO  NAME                                                            FTNTEXT      265     A     
 FTNTEXT            LOCAL  P,S                                                             FTNTEXT      266     A     
 FTNTEXT   P        MICRO  4,1,/NAME/                                                      FTNTEXT      267     A     
 FTNTEXT   S        MICRO  5,1,/NAME/                                                      FTNTEXT      268     A     
 FTNTEXT  *                            FWA, LWA+1 OF LOAD.                                 FTNTEXT      269     A     
 FTNTEXT            IFEQ   "S",0,3                                                         FTNTEXT      270     A     
 FTNTEXT  *                            PRIMARY OVERLAY                                     FTNTEXT      271     A     
 FTNTEXT            SA5    CP.NFLS                                                         FTNTEXT      272     A     
 FTNTEXT            SX7    CP.ORG                                                          FTNTEXT      273     A     
 FTNTEXT            SKIP   2                                                               FTNTEXT      274     A     
 FTNTEXT  *                                  SECONDARY OVERLAYS.                           FTNTEXT      275     A     
 FTNTEXT            SA5    =XLWAWORK                                                       FTNTEXT      276     A     
 FTNTEXT            SX7    =XLWA2.0+1                                                      FTNTEXT      277     A     
 FTNTEXT  *                            OVERLAY NAME.                                       FTNTEXT      278     A     
 FTNTEXT            SA1    =X_NAME                                                         FTNTEXT      279     A     
 FTNTEXT  *                            LIBRARY OR FILE NAME.                               FTNTEXT      280     A     
 FTNTEXT            IFEQ   LDRCALL,2,1                                                     FTNTEXT      281     A     
 FTNTEXT            IFNE   TEST,0,1                                                        FTNTEXT      282     A     
 FTNTEXT            SA4    =XOVLA                                                          FTNTEXT      283     A     
 FTNTEXT  *                            OVERLAY LEVEL, LOADER REQUEST FLAGS.                FTNTEXT      284     A     
 FTNTEXT            IFEQ   LDRCALL,2,2                                                     FTNTEXT      285     A     
 FTNTEXT            SX2    0"P"0"S"014B-10B*TEST/TEST                                      FTNTEXT      286     A     
 FTNTEXT            SKIP   1                                                               FTNTEXT      287     A     
 FTNTEXT            SX2    0"P"0"S"000B                                                    FTNTEXT      288     A     
 FTNTEXT  *                            COMBINE LEVEL, FLAGS, FWA, LWA+1.                   FTNTEXT      289     A     
 FTNTEXT            BX6    X1                                                              FTNTEXT      290     A     
 FTNTEXT            LX2    39D                                                             FTNTEXT      291     A     
 FTNTEXT  *                                                                                FTNTEXT      292     A     
 FTNTEXT            IFEQ   LDRCALL,3,2                                                     FTNTEXT      293     A     
 FTNTEXT            SA3    =XOVLB      (X3) = LOADER REQUEST FLAGS                         FTNTEXT      294     A     
 FTNTEXT            BX2    X2+X3                                                           FTNTEXT      295     A     
 FTNTEXT  *                                                                                FTNTEXT      296     A     
 FTNTEXT            BX7    X2+X7                                                           FTNTEXT      297     A     
 FTNTEXT            LX5    18D                                                             FTNTEXT      298     A     
 FTNTEXT            BX7    X7+X5                                                           FTNTEXT      299     A     
 FTNTEXT            EQ     =XLOVER                                                         FTNTEXT      300     A     
 FTNTEXT   LOVER    ENDM                                                                   FTNTEXT      301     A     
 FTNTEXT   MOVE     SPACE  4,8                                                             FTNTEXT      302     A     
 FTNTEXT  **        MOVE - MOVE DATA BLOCK.                                                FTNTEXT      303     A     
 FTNTEXT  *                                                                                FTNTEXT      304     A     
 FTNTEXT  *                                                                                FTNTEXT      305     A     
 FTNTEXT  *         MOVE      COUNT,FROM,TO                                                FTNTEXT      306     A     
 FTNTEXT  *                                                                                FTNTEXT      307     A     
 FTNTEXT  *         ENTRY  *COUNT* = WORD COUNT OF BLOCK TO BE MOVED                       FTNTEXT      308     A     
 FTNTEXT  *                *FROM*  = ADDRESS OF FIRST WORD OF BLOCK                        FTNTEXT      309     A     
 FTNTEXT  *                *TO*    = ADDRESS OF FIRST WORD OF DESTINATION                  FTNTEXT      310     A     
 FTNTEXT  *                                                                                FTNTEXT      311     A     
 FTNTEXT  *         USES   X - 1, 2, 3                                                     FTNTEXT      312     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 433    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT  *                A - NONE                                                        FTNTEXT      313     A     
 FTNTEXT  *                B - 1                                                           FTNTEXT      314     A     
 FTNTEXT  *                                                                                FTNTEXT      315     A     
 FTNTEXT  *         CALLS  MVE= (COMCMVE)                                                  FTNTEXT      316     A     
 FTNTEXT                                                                                   FTNTEXT      317     A     
 FTNTEXT                                                                                   FTNTEXT      318     A     
 FTNTEXT            PURGMAC   MOVE                                                         FCCA511        6     A     
 FTNTEXT   MOVE     MACRO  C,F,T                                                           FTNTEXT      319     A     
 FTNTEXT            R=     X1,C                                                            FTNTEXT      320     A     
 FTNTEXT            R=     X2,F                                                            FTNTEXT      321     A     
 FTNTEXT            R=     X3,T                                                            FTNTEXT      322     A     
 FTNTEXT            IF     -DEF,B1=1,1                                                     FTNTEXT      323     A     
 FTNTEXT            SB1    1                                                               FTNTEXT      324     A     
 FTNTEXT            RJ     =XMVE=                                                          FTNTEXT      325     A     
 FTNTEXT   MOVE     ENDM                                                                   FTNTEXT      326     A     
 FTNTEXT   PLUG     SPACE  4,40                                                            FTNTEXT      327     A     
 FTNTEXT  **        PLUG - MODIFY COMPILER CODE DURING EXECUTION.                          FTNTEXT      328     A     
 FTNTEXT  *                                                                                FTNTEXT      329     A     
 FTNTEXT  *         SELF-MODIFYING (PLUGGING) CODE MAY SEEMINGLY FAIL ON CYBER             FTNTEXT      330     A     
 FTNTEXT  *         74 / 6600 AND LARGER MODELS, DUE TO THE HARDWARE INSTRUCTION           FTNTEXT      331     A     
 FTNTEXT  *         STACK AND 1- OR 2-WORD INSTRUCTION LOOKAHEAD.  BECAUSE OF THIS         FTNTEXT      332     A     
 FTNTEXT  *         PROBLEM, AND THE UNREADABILITY OF PLUGGED CODE, THE TECHNIQUE          FTNTEXT      333     A     
 FTNTEXT  *         IS NOT DESIRABLE FOR WIDE USAGE.  EFFICIENCY CONSIDERATIONS            FTNTEXT      334     A     
 FTNTEXT  *         ARE OCCASIONALLY MORE IMPORTANT, HOWEVER, SO WE FORMALIZE              FTNTEXT      335     A     
 FTNTEXT  *         PLUGGING WITH THE FOLLOWING MACRO.  IT INCLUDES A SAFEGUARD            FTNTEXT      336     A     
 FTNTEXT  *         AGAINST THE STACK/LOOKAHEAD PROBLEM, AND IS PREFERABLE TO              FTNTEXT      337     A     
 FTNTEXT  *         DIRECT CODE FOR READABILITY AND DEBUGGING EASE.                        FTNTEXT      338     A     
 FTNTEXT  *                                                                                FTNTEXT      339     A     
 FTNTEXT  *         TWO FORMS OF *PLUG* ARE AVAILABLE ...                                  FTNTEXT      340     A     
 FTNTEXT  *                                                                                FTNTEXT      341     A     
 FTNTEXT  *                                                                                FTNTEXT      342     A     
 FTNTEXT  *         FORM 1 - PLUGS A CALLER-PROVIDED WORD OF CODE.                         FTNTEXT      343     A     
 FTNTEXT  *                                                                                FTNTEXT      344     A     
 FTNTEXT  *         PLUG      AT=,FROM=,FREG=,SREG=,VOID=                                  FTNTEXT      345     A     
 FTNTEXT  *                                                                                FTNTEXT      346     A     
 FTNTEXT  *                                                                                FTNTEXT      347     A     
 FTNTEXT  *         FORM 2 - FABRICATES AND PLUGS AN -EQ- JUMP.                            FTNTEXT      348     A     
 FTNTEXT  *         RESTRICTION - THE 1-REGISTER METHOD USED FOR FORMING THE -EQ-          FTNTEXT      349     A     
 FTNTEXT  *         JUMP IS NOT VALID IF *TO* IS .GT. 177777B ABSOLUTE.  THIS IS           FTNTEXT      350     A     
 FTNTEXT  *         NOT A PROBLEM IN FTN, SINCE ALL ADDRESSES ARE .LT. 100000B.            FTNTEXT      351     A     
 FTNTEXT  *                                                                                FTNTEXT      352     A     
 FTNTEXT  *         PLUG      AT=,TO=,SREG=,VOID=                                          FTNTEXT      353     A     
 FTNTEXT  *                                                                                FTNTEXT      354     A     
 FTNTEXT  *                                                                                FTNTEXT      355     A     
 FTNTEXT  *         ENTRY  *AT*   = ADDRESS WHERE PLUG TO BE STORED.                       FTNTEXT      356     A     
 FTNTEXT  *                *FREG* = (FORM 1 ONLY) (OPTIONAL)  NUMBER OF A,X REG            FTNTEXT      357     A     
 FTNTEXT  *                         TO USE FOR FETCHING CODE WORD.  MUST BE 1-5.           FTNTEXT      358     A     
 FTNTEXT  *                         USES A1 AND X1 IF OMITTED.  IGNORED IF *FROM*          FTNTEXT      359     A     
 FTNTEXT  *                         SPECIFIES AN X-REGISTER.                               FTNTEXT      360     A     
 FTNTEXT  *                *FROM* = (FORM 1 ONLY)  SOURCE OF CODE WORD TO PLUG.            FTNTEXT      361     A     
 FTNTEXT  *                         MAY BE AN X-REGISTER CONTAINING THE CODE WORD          FTNTEXT      362     A     
 FTNTEXT  *                         ( E.G., FROM=X3 ), OR AN ADDRESS EXPRESSION.           FTNTEXT      363     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 434    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT  *                *SREG* = (OPTIONAL)  NUMBER OF A,X REG TO USE FOR               FTNTEXT      364     A     
 FTNTEXT  *                         STORING PLUG.  MUST BE 6 OR 7.  USES X6 AND A6         FTNTEXT      365     A     
 FTNTEXT  *                         IF OMITTED.                                            FTNTEXT      366     A     
 FTNTEXT  *                *TO*   = (FORM 2 ONLY)  -EQ- JUMP ADDRESS.                      FTNTEXT      367     A     
 FTNTEXT  *                *VOID* = (OPTIONAL)                                             FTNTEXT      368     A     
 FTNTEXT  *                         *NO* = DO NOT GENERATE STACK-VOIDING CODE.             FTNTEXT      369     A     
 FTNTEXT  *                         ELSE OR OMITTED = GENERATE VOIDING CODE IF             FTNTEXT      370          I
          -F7540FTA 
 FTNTEXT  *                            "MODEL" IS CYBER 74 / 6600 OR LARGER.               FTNTEXT      371          I
          -F7540FTA 
 FTNTEXT  *                         ELSE OR OMITTED = GENERATE STACK-VOIDING CODE.         F7540FTA       9     A     
 FTNTEXT  *                                                                                FTNTEXT      372     A     
 FTNTEXT  *         CALLS  NONE                                                            FTNTEXT      373     A     
 FTNTEXT  *                                                                                FTNTEXT      374     A     
 FTNTEXT  *         USES   AS ABOVE                                                        FTNTEXT      375     A     
 FTNTEXT                                                                                   FTNTEXT      376     A     
 FTNTEXT                                                                                   FTNTEXT      377     A     
 FTNTEXT            PURGMAC   PLUG                                                         FTNTEXT      378     A     
 FTNTEXT                                                                                   FTNTEXT      379     A     
 FTNTEXT   PLUG     MACROE AT,TO,FROM,FREG,SREG,VOID                                       FTNTEXT      380     A     
 FTNTEXT            LOCAL  FN,SN                                                           FTNTEXT      381     A     
 FTNTEXT   SN       SET    SREG  6                                                         FTNTEXT      382     A     
 FTNTEXT            IFLT   SN,6,1                                                          FTNTEXT      383     A     
 FTNTEXT            ERR    *PLUG* STORE REG MUST BE 6 OR 7 AT ["SEQUENCE"].                FTNTEXT      384     A     
 FTNTEXT   .F1      IFC    EQ, TO                                                          FTNTEXT      385     A     
 FTNTEXT   .F1A     IF     REG,FROM                                                        FTNTEXT      386     A     
 FTNTEXT  *                            FORM 1A - CODE WORD IN AN X-REGISTER.               FTNTEXT      387     A     
 FTNTEXT   SN       OCTMIC SN,1                                                            FTNTEXT      388     A     
 FTNTEXT   SN       MICRO  1,, X"SN"                                                       FTNTEXT      389     A     
 FTNTEXT            IFC    NE, FROM "SN" ,1                                                FTNTEXT      390     A     
 FTNTEXT            BX.SN  FROM                                                            FTNTEXT      391     A     
 FTNTEXT   .F1A     ELSE                                                                   FTNTEXT      392     A     
 FTNTEXT  *                            FORM 1B - FETCH CODE WORD FROM *FROM*.              FTNTEXT      393     A     
 FTNTEXT   FN       SET    FREG  1                                                         FTNTEXT      394     A     
 FTNTEXT            IFGE   FN,1,2                                                          FTNTEXT      395     A     
 FTNTEXT            IFLE   FN,5,1                                                          FTNTEXT      396     A     
 FTNTEXT            SKIP   1                                                               FTNTEXT      397     A     
 FTNTEXT            ERR    FETCH REG NOT 1-5 "SEQUENCE"                                    FTNTEXT      398     A     
 FTNTEXT            SA.FN  FROM                                                            FTNTEXT      399     A     
 FTNTEXT            BX.SN  X.FN                                                            FTNTEXT      400     A     
 FTNTEXT   .F1A     ENDIF                                                                  FTNTEXT      401     A     
 FTNTEXT   .F1      ELSE                                                                   FTNTEXT      402     A     
 FTNTEXT  *                            FORM 2 - FABRICATE -EQ- JUMP TO *TO*.               FTNTEXT      403     A     
 FTNTEXT            SX.SN  TO                                                              FTNTEXT      404     A     
 FTNTEXT            LX.SN  2+30D                                                           FTNTEXT      405     A     
 FTNTEXT  *                            2000BS48+*JPADR*S32                                 FTNTEXT      406     A     
 FTNTEXT            PX.SN  X.SN,B0                                                         FTNTEXT      407     A     
 FTNTEXT  *                            0400BS48+*JPADR*S30                                 FTNTEXT      408     A     
 FTNTEXT            LX.SN  -2                                                              FTNTEXT      409     A     
 FTNTEXT   .F1      ENDIF                                                                  FTNTEXT      410     A     
 FTNTEXT  *                            STORE THE PLUG.                                     FTNTEXT      411     A     
 FTNTEXT            SA.SN  AT                                                              FTNTEXT      412     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 435    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT  *                            GENERATE STACK-VOIDING CODE.                        FTNTEXT      413     A     
 FTNTEXT            IFC    NE, VOID NO ,4                                                  FTNTEXT      414          I
          -F7540FTA 
 FTNTEXT            IFGE   CT.CPU,74,3  COMPILE TIME CPU                                   FTNTEXT      415          I
          -F7540FTA 
 FTNTEXT            IFC    NE, VOID NO ,3                                                  F7540FTA      10     A     
 FTNTEXT            RJ     *+1                                                             FTNTEXT      416     A     
 FTNTEXT            EQ     *+1S17                                                          FTNTEXT      417     A     
 FTNTEXT            BSS    0                                                               FTNTEXT      418     A     
 FTNTEXT   PLUG     ENDM                                                                   FTNTEXT      419     A     
 FTNTEXT   ROUTINE  SPACE  4,8                                                             FTNTEXT      420     A     
 FTNTEXT  **        ROUTINE - DEFINE LOCAL SUBROUTINE ENTRY POINT.                         FTNTEXT      421     A     
 FTNTEXT  *                                                                                FTNTEXT      422     A     
 FTNTEXT  *                                                                                FTNTEXT      423     A     
 FTNTEXT  * NAME    ROUTINE                                                                FTNTEXT      424     A     
 FTNTEXT  *                                                                                FTNTEXT      425     A     
 FTNTEXT  *         ENTRY  *NAME* = NAME OF SUBROUTINE.                                    FTNTEXT      426     A     
 FTNTEXT                                                                                   FTNTEXT      427     A     
 FTNTEXT                                                                                   FTNTEXT      428     A     
 FTNTEXT            PURGMAC   ROUTINE                                                      FTNTEXT      429     A     
 FTNTEXT                                                                                   FTNTEXT      430     A     
 FTNTEXT            MACRO  ROUTINE,NAME                                                    FTNTEXT      431     A     
 FTNTEXT   NAME     JP     *+1S17                                                          FTNTEXT      432     A     
 FTNTEXT            NOREF  )NAME                                                           FTNTEXT      433     A     
 FTNTEXT            IF     DEF,)NAME,1                                                     FTNTEXT      434     A     
 FTNTEXT            PRINT  NAME,(* ENTERED*)                                               FTNTEXT      435     A     
 FTNTEXT   ROUTINE  ENDM                                                                   FTNTEXT      436     A     
 FTNTEXT   RPVDEF   SPACE  4,8                                                             FTNTEXT      437     A     
 FTNTEXT  **        RPVDEF - DEFINE FWA OF ROUTINE FOR REPRIEVE UTILITY.                   FTNTEXT      438     A     
 FTNTEXT  *                                                                                FTNTEXT      439     A     
 FTNTEXT  *         DEFINES THE FIRST WORD ADDRESS OF A ROUTINE AND DECLARES               FTNTEXT      440     A     
 FTNTEXT  *         IT AS AN ENTRY POINT, FOR FORMING THE NAME/ADDRESS TABLES              FTNTEXT      441     A     
 FTNTEXT  *         USED BY THE UTILITY ROUTINE *RPV* (LOCATED IN *LSTPRO*).               FTNTEXT      442     A     
 FTNTEXT  *         FOR PROPER OPERATION, THIS MACRO MUST BE CALLED AT THE                 FTNTEXT      443     A     
 FTNTEXT  *         BEGINNING OF EACH ROUTINE, BEFORE ANY OTHER INSTRUCTION OR             FTNTEXT      444     A     
 FTNTEXT  *         PSEUDO-OP THAT WOULD CAUSE *COMPASS-S* LOCATION COUNTER TO BE          FTNTEXT      445     A     
 FTNTEXT  *         ADVANCED.                                                              FTNTEXT      446     A     
 FTNTEXT  *                                                                                FTNTEXT      447     A     
 FTNTEXT  *                                                                                FTNTEXT      448     A     
 FTNTEXT  *  *TAG*  RPVDEF                                                                 FTNTEXT      449     A     
 FTNTEXT  *                                                                                FTNTEXT      450     A     
 FTNTEXT  *         ENTRY  *TAG* = SYMBOLIC NAME OF ROUTINE FWA.                           FTNTEXT      451     A     
 FTNTEXT                                                                                   FTNTEXT      452     A     
 FTNTEXT                                                                                   FTNTEXT      453     A     
 FTNTEXT            PURGMAC   RPVDEF                                                       FTNTEXT      454     A     
 FTNTEXT                                                                                   FTNTEXT      455     A     
 FTNTEXT            MACRO  RPVDEF,T                                                        FTNTEXT      456     A     
 FTNTEXT            NOREF  T                                                               FTNTEXT      457     A     
 FTNTEXT            ENTRY  T                                                               FTNTEXT      458     A     
 FTNTEXT   T        BSS    0                                                               FTNTEXT      459     A     
 FTNTEXT   RPVDEF   ENDM                                                                   FTNTEXT      460     A     
 FTNTEXT            SPACE  4,8                                                             FTNTEXT      461     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 436    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT  **        FWA - DEFINE ENTRY FOR *RPV* FWA TABLE.                                FTNTEXT      462     A     
 FTNTEXT  *                                                                                FTNTEXT      463     A     
 FTNTEXT  *         FWA    NAM,EPN                                                         FTNTEXT      464     A     
 FTNTEXT  *                                                                                FTNTEXT      465     A     
 FTNTEXT  *         ENTRY  *NAM* = NAME OF SUBROUTINE                                      FTNTEXT      466     A     
 FTNTEXT  *                *EPN* = FWA NAME                                                FTNTEXT      467     A     
 FTNTEXT                                                                                   FTNTEXT      468     A     
 FTNTEXT            PURGMAC FWA                                                            FTNTEXT      469     A     
 FTNTEXT                                                                                   FTNTEXT      470     A     
 FTNTEXT   FWA      MACRO  NAM,EPN                                                         FTNTEXT      471     A     
 FTNTEXT            VFD    42/7L_NAM                                                       FTNTEXT      472          I
          -FEAT155F 
 FTNTEXT            VFD    42/0L_NAM                                                       FEAT155F      82     A     
 FTNTEXT            VFD    18/=XB=_EPN                                                     FTNTEXT      473     A     
 FTNTEXT            NOREF  B=_EPN                                                          FTNTEXT      474     A     
 FTNTEXT            ENDM                                                                   FTNTEXT      475     A     
 FTNTEXT   SETCORE  SPACE  4,8                                                             FTNTEXT      476     A     
 FTNTEXT  **        SETCORE - SET BLOCK OF MEMORY TO A GIVEN VALUE.                        FTNTEXT      477     A     
 FTNTEXT  *                                                                                FTNTEXT      478     A     
 FTNTEXT  *                                                                                FTNTEXT      479     A     
 FTNTEXT  *         SETCORE   FWA,LEN                                                      FTNTEXT      480     A     
 FTNTEXT  *                                                                                FTNTEXT      481     A     
 FTNTEXT  *         ENTRY  *FWA* = BLOCK ADDRESS                                           FTNTEXT      482     A     
 FTNTEXT  *                *LEN* = BLOCK LENGTH                                            FTNTEXT      483     A     
 FTNTEXT  *                (X6)  = VALUE TO SET                                            FTNTEXT      484     A     
 FTNTEXT  *                                                                                FTNTEXT      485     A     
 FTNTEXT  *         USES   X1, A6                                                          FTNTEXT      486     A     
 FTNTEXT  *                                                                                FTNTEXT      487     A     
 FTNTEXT  *         CALLS  SETCORE                                                         FTNTEXT      488     A     
 FTNTEXT                                                                                   FTNTEXT      489     A     
 FTNTEXT                                                                                   FTNTEXT      490     A     
 FTNTEXT            PURGMAC   SETCORE                                                      FTNTEXT      491     A     
 FTNTEXT                                                                                   FTNTEXT      492     A     
 FTNTEXT   SETCORE  MACRO  F,L                                                             FTNTEXT      493     A     
 FTNTEXT            R=     X1,L                                                            FTNTEXT      494     A     
 FTNTEXT            SA6    F                                                               FTNTEXT      495     A     
 FTNTEXT            RJ     =XSETCORE                                                       FTNTEXT      496     A     
 FTNTEXT   SETCORE  ENDM                                                                   FTNTEXT      497     A     
 FTNTEXT   SETZERO  SPACE  4,8                                                             FTNTEXT      498     A     
 FTNTEXT  **        SETZERO - SET BLOCK OF MEMORY TO ZERO.                                 FTNTEXT      499     A     
 FTNTEXT  *                                                                                FTNTEXT      500     A     
 FTNTEXT  *                                                                                FTNTEXT      501     A     
 FTNTEXT  *         SETZERO   FWA,LEN                                                      FTNTEXT      502     A     
 FTNTEXT  *                                                                                FTNTEXT      503     A     
 FTNTEXT  *         ENTRY  *FWA* = BLOCK ADDRESS                                           FTNTEXT      504     A     
 FTNTEXT  *                *LEN* = BLOCK LENGTH                                            FTNTEXT      505     A     
 FTNTEXT  *                                                                                FTNTEXT      506     A     
 FTNTEXT  *         USES   X1, X6, A6                                                      FTNTEXT      507     A     
 FTNTEXT  *                                                                                FTNTEXT      508     A     
 FTNTEXT                                                                                   FTNTEXT      509     A     
 FTNTEXT                                                                                   FTNTEXT      510     A     
 FTNTEXT            PURGMAC   SETZERO                                                      FTNTEXT      511     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 437    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT                                                                                   FTNTEXT      512     A     
 FTNTEXT   SETZERO  MACRO  F,L                                                             FTNTEXT      513     A     
 FTNTEXT            BX6    X6-X6                                                           FTNTEXT      514     A     
 FTNTEXT            SA6    F                                                               FTNTEXT      515     A     
 FTNTEXT   .1       IF     DEF,L                                                           FTNTEXT      516     A     
 FTNTEXT   .1       IF     ABS,L                                                           FTNTEXT      517     A     
 FTNTEXT   .1       IF     -REG,L                                                          FTNTEXT      518     A     
 FTNTEXT   .1       IFLT   L,60                                                            FTNTEXT      519     A     
 FTNTEXT   .2       IFNE   L,1                                                             FTNTEXT      520     A     
 FTNTEXT            MX1    L-1                                                             FTNTEXT      521     A     
 FTNTEXT            IF     -DEF,B1=1,1                                                     FTNTEXT      522     A     
 FTNTEXT            SB1    1                                                               FTNTEXT      523     A     
 FTNTEXT  +         LX1    1                                                               FTNTEXT      524     A     
 FTNTEXT            SA6    A6+B1                                                           FTNTEXT      525     A     
 FTNTEXT            MI     X1,*                                                            FTNTEXT      526     A     
 FTNTEXT   .1       ELSE                                                                   FTNTEXT      527     A     
 FTNTEXT            R=     X1,L                                                            FTNTEXT      528     A     
 FTNTEXT            RJ     =XSETCORE                                                       FTNTEXT      529     A     
 FTNTEXT   .2       ENDIF                                                                  FTNTEXT      530     A     
 FTNTEXT   .1       ENDIF                                                                  FTNTEXT      531     A     
 FTNTEXT   SETZERO  ENDM                                                                   FTNTEXT      532     A     
 FTNTEXT   XR=      SPACE  4,8                                                             FTNTEXT      533     A     
 FTNTEXT  **        XR= - X-REGISTER VERSION OF R= PSEUDO INSTRUCTION.                     FTNTEXT      534     A     
 FTNTEXT  *                                                                                FTNTEXT      535     A     
 FTNTEXT  *         IF *EXPR* = *LDREG*, GENERATES NOTHING.                                FTNTEXT      536     A     
 FTNTEXT  *         IF *EXPR* = OTHER X-REG, GENERATES BOOLEAN XMIT TO *LDREG*.            FTNTEXT      537     A     
 FTNTEXT  *         IF *EXPR* = ELSE, GENERATES INCREMENT INSTR TO LOAD *LDREG*.           FTNTEXT      538     A     
 FTNTEXT  *                                                                                FTNTEXT      539     A     
 FTNTEXT  *                                                                                FTNTEXT      540     A     
 FTNTEXT  *         XR=       LDREG,EXPR                                                   FTNTEXT      541     A     
 FTNTEXT  *                                                                                FTNTEXT      542     A     
 FTNTEXT  *         ENTRY  *LDREG* = X-REGISTER TO BE LOADED.  MUST BE X1 THRU X5.         FTNTEXT      543     A     
 FTNTEXT  *                *EXPR*  = ADDRESS EXPRESSION FOR VALUE TO BE LOADED.            FTNTEXT      544     A     
 FTNTEXT  *                                                                                FTNTEXT      545     A     
 FTNTEXT  *         USES   *LDREG* AND ITS A-REGISTER.                                     FTNTEXT      546     A     
 FTNTEXT  *                                                                                FTNTEXT      547     A     
 FTNTEXT  *         CALLS  NONE                                                            FTNTEXT      548     A     
 FTNTEXT                                                                                   FTNTEXT      549     A     
 FTNTEXT                                                                                   FTNTEXT      550     A     
 FTNTEXT            PURGMAC   XR=                                                          FTNTEXT      551     A     
 FTNTEXT                                                                                   FTNTEXT      552     A     
 FTNTEXT   XR=      MACRO  R,E                                                             FTNTEXT      553     A     
 FTNTEXT    LOCAL A                                                                        FTNTEXT      554     A     
 FTNTEXT  A MICRO 1,, E                                                                    FTNTEXT      555     A     
 FTNTEXT  A MICCNT A                                                                       FTNTEXT      556     A     
 FTNTEXT    IFEQ A,2,5                                                                     FTNTEXT      557     A     
 FTNTEXT  A MICRO 1,1, E                                                                   FTNTEXT      558     A     
 FTNTEXT    IFC EQ, "A" X ,3                                                               FTNTEXT      559     A     
 FTNTEXT    IFC NE, R E ,1                                                                 FTNTEXT      560     A     
 FTNTEXT    B_R E                                                                          FTNTEXT      561     A     
 FTNTEXT    SKIP 6                                                                         FTNTEXT      562     A     
 FTNTEXT  A MICRO 2,1, R                                                                   FTNTEXT      563     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 438    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT    IFC GE, "A" 1 ,3                                                               FTNTEXT      564     A     
 FTNTEXT    IFC LT, "A" 6 ,2                                                               FTNTEXT      565     A     
 FTNTEXT    SA"A" E                                                                        FTNTEXT      566     A     
 FTNTEXT    SKIP 1                                                                         FTNTEXT      567     A     
 FTNTEXT    ERR (R) NOT X1-X5 "SEQUENCE"                                                   FTNTEXT      568     A     
 FTNTEXT   XR=      ENDM                                                                   FTNTEXT      569     A     
 FTNTEXT   CODING   TITLE  I/O MACRO CODING CONVENTIONS                                    FTNTEXT      570     A     
 FTNTEXT  *CALL     FA=DEFS                                                                FTNTEXT      571     A     
 FTNTEXT            TITLE  I/O DATA TRANSFER MACROS                                        FTNTEXT      572     A     
 FTNTEXT  *CALL COMAREG                                                                    FEAT155F      83     A     
 FTNTEXT   LISTL    SPACE  4,8                                                             FTNTEXT      573     A     
 FTNTEXT  **        LISTL - LIST ONE LINE.                                                 FTNTEXT      574     A     
 FTNTEXT  *                                                                                FTNTEXT      575     A     
 FTNTEXT  *         WRITE ONE CODED LINE FROM *BUF* TO THE OUTPUT FILE.  IF PAGE           FTNTEXT      576     A     
 FTNTEXT  *         IS FULL, EJECT AND WRITE TITLE LINE(S) FIRST.                          FTNTEXT      577     A     
 FTNTEXT  *                                                                                FTNTEXT      578     A     
 FTNTEXT  *                                                                                FTNTEXT      579     A     
 FTNTEXT  *         LISTL     BUF,WORDS                                                    FTNTEXT      580     A     
 FTNTEXT  *                                                                                FTNTEXT      581     A     
 FTNTEXT  *         ENTRY  *BUF*   = FIRST WORD ADDRESS OF LINE BUFFER                     FTNTEXT      582     A     
 FTNTEXT  *                *WORDS* = LINE LENGTH (WORDS)                                   FTNTEXT      583     A     
 FTNTEXT  *                                                                                FTNTEXT      584     A     
 FTNTEXT  *         USES   B6, B7                                                          FTNTEXT      585     A     
 FTNTEXT  *                                                                                FTNTEXT      586     A     
 FTNTEXT  *         CALLS  FA=LOL                                                          FTNTEXT      587     A     
 FTNTEXT                                                                                   FTNTEXT      588     A     
 FTNTEXT                                                                                   FTNTEXT      589     A     
 FTNTEXT            PURGMAC   LISTL                                                        FTNTEXT      590     A     
 FTNTEXT                                                                                   FTNTEXT      591     A     
 FTNTEXT   LISTL    MACRO  S,N                                                             FTNTEXT      592     A     
 FTNTEXT            R=     B6,S                                                            FTNTEXT      593     A     
 FTNTEXT  *                                                                                FTNTEXT      594     A     
 FTNTEXT            IFC    EQ, N  ,1                                                       FTNTEXT      595     A     
 FTNTEXT            ERR    NO LENGTH "SEQUENCE"                                            FTNTEXT      596     A     
 FTNTEXT  *                                                                                FTNTEXT      597     A     
 FTNTEXT            IFGE   CP#RM,6,1                                                       FTNTEXT      598     A     
 FTNTEXT            R=     B7,N                                                            FTNTEXT      599     A     
 FTNTEXT  *                                                                                FTNTEXT      600     A     
 FTNTEXT            RJ     =XFA=LOL                                                        FTNTEXT      601     A     
 FTNTEXT   LISTL    ENDM                                                                   FTNTEXT      602     A     
 FTNTEXT   NUPAGE   SPACE  4,8                                                             FTNTEXT      603     A     
 FTNTEXT  **        NUPAGE - EJECT AND TITLE NEW PAGE.                                     FTNTEXT      604     A     
 FTNTEXT  *                                                                                FTNTEXT      605     A     
 FTNTEXT  *         EJECTS PAGE.  WRITES TITLE AND SUBTITLE LINES ON NEW PAGE.             FTNTEXT      606     A     
 FTNTEXT  *         RESETS LINES-PER-PAGE COUNTER.                                         FTNTEXT      607     A     
 FTNTEXT  *                                                                                FTNTEXT      608     A     
 FTNTEXT  *                                                                                FTNTEXT      609     A     
 FTNTEXT  *         NUPAGE    (NO CALLING PARAMETERS)                                      FTNTEXT      610     A     
 FTNTEXT  *                                                                                FTNTEXT      611     A     
 FTNTEXT  *         ENTRY  NO REQUIREMENTS.                                                FTNTEXT      612     A     
 FTNTEXT  *                                                                                FTNTEXT      613     A     
 FTNTEXT  *         EXIT   PAGE EJECTED, NEW PAGE TITLED.                                  FTNTEXT      614     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 439    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT  *                *N.LINES* RESET TO FULL PAGE LINE COUNT.                        FTNTEXT      615     A     
 FTNTEXT  *                                                                                FTNTEXT      616     A     
 FTNTEXT  *         USES   NONE                                                            FTNTEXT      617     A     
 FTNTEXT  *                                                                                FTNTEXT      618     A     
 FTNTEXT  *         CALLS  FA=NPG                                                          FTNTEXT      619     A     
 FTNTEXT                                                                                   FTNTEXT      620     A     
 FTNTEXT                                                                                   FTNTEXT      621     A     
 FTNTEXT            PURGMAC   NUPAGE                                                       FTNTEXT      622     A     
 FTNTEXT                                                                                   FTNTEXT      623     A     
 FTNTEXT   NUPAGE   MACRO                                                                  FTNTEXT      624     A     
 FTNTEXT            RJ     =XFA=NPG                                                        FTNTEXT      625     A     
 FTNTEXT   NUPAGE   ENDM                                                                   FTNTEXT      626     A     
 FTNTEXT                                                                                   FTNTEXT      627     A     
 FTNTEXT            TITLE  LABEL/NAME PROCESSING REQUEST MACROS                            FTNTEXT      628     A     
 FTNTEXT   ADEXTS   SPACE  4,8                                                             FTNTEXT      629     A     
 FTNTEXT  **        ADEXTS - GET ORDINAL OF EXTERNAL SYMBOL.                               FTNTEXT      630     A     
 FTNTEXT  *                                                                                FTNTEXT      631     A     
 FTNTEXT  *         ARG:   SAME AS "SYMBOL"                                                FTNTEXT      632     A     
 FTNTEXT  *                                                                                FTNTEXT      633     A     
 FTNTEXT   ADEXTS   MACRO  NAME                                                            FTNTEXT      634     A     
 FTNTEXT            SYMBOL NAME                                                            FTNTEXT      635     A     
 FTNTEXT            MX0    1                                                               FTNTEXT      636     A     
 FTNTEXT            LX0    1+P.EXT                                                         FTNTEXT      637     A     
 FTNTEXT            BX7    X0+X2                                                           FTNTEXT      638     A     
 FTNTEXT            SA7    A2                                                              FTNTEXT      639     A     
 FTNTEXT   ADEXTS   ENDM                                                                   FTNTEXT      640     A     
 FTNTEXT   ADDREF   SPACE  4,8                                                             FTNTEXT      641     A     
 FTNTEXT  **        ADDREF - ADD REFERENCE TO REF TABLE FOR VARIABLE ORDINAL.              FTNTEXT      642     A     
 FTNTEXT  *                                                                                FTNTEXT      643     A     
 FTNTEXT  *                ORD - ORDINAL OF THE VARIABLE ( RIGHT JUSTIFIED )               FTNTEXT      644     A     
 FTNTEXT  *                TYPE - REF, DEF OR FREF FOR REFERENCE, DEFINITION               FTNTEXT      645     A     
 FTNTEXT  *                OR FILE REFERENCE                                               FTNTEXT      646     A     
 FTNTEXT  *                                                                                FTNTEXT      647     A     
 FTNTEXT                                                                                   FTNTEXT      648     A     
 FTNTEXT   REF=     MICRO  1,,/MX2    0/                                                   FTNTEXT      649     A     
 FTNTEXT   DEF=     MICRO  1,,/MX2    1/                                                   FTNTEXT      650     A     
 FTNTEXT   FREF=    MICRO  1,,/SX2    1/                                                   FTNTEXT      651     A     
 FTNTEXT                                                                                   FTNTEXT      652     A     
 FTNTEXT   ADDREF   MACRO  ORD,TYPE                                                        FTNTEXT      653     A     
 FTNTEXT            IF     -REG,ORD                                                        FTNTEXT      654     A     
 FTNTEXT            SA1    ORD                                                             FTNTEXT      655     A     
 FTNTEXT            SB1    X1                                                              FTNTEXT      656     A     
 FTNTEXT            ELSE                                                                   FTNTEXT      657     A     
 FTNTEXT            IFC    NE,/ORD/B1/,1                                                   FTNTEXT      658     A     
 FTNTEXT            SB1    ORD                                                             FTNTEXT      659     A     
 FTNTEXT            ENDIF                                                                  FTNTEXT      660     A     
 FTNTEXT  *                                                                                FTNTEXT      661     A     
 FTNTEXT   X        IFC    EQ,//TYPE/                                                      FTNTEXT      662     A     
 FTNTEXT            "REF="             ASSUME A REFERENCE                                  FTNTEXT      663     A     
 FTNTEXT   X        ELSE                                                                   FTNTEXT      664     A     
 FTNTEXT            IFC    NE,/TYPE/REF/,2                                                 FTNTEXT      665     A     
 FTNTEXT            IFC    NE,/TYPE/DEF/,1                                                 FTNTEXT      666     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 440    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT            IFC    EQ,/TYPE/FREF/,2                                                FTNTEXT      667     A     
 FTNTEXT            "TYPE="                                                                FTNTEXT      668     A     
 FTNTEXT   Y        IFEQ   0,1                                                             FTNTEXT      669     A     
 FTNTEXT   Z        IF     -REG,TYPE                                                       FTNTEXT      670     A     
 FTNTEXT            SA2    TYPE                                                            FTNTEXT      671     A     
 FTNTEXT   Z        ELSE                                                                   FTNTEXT      672     A     
 FTNTEXT            IFC    NE,/X2/TYPE/                                                    FTNTEXT      673     A     
 FTNTEXT            BX2    TYPE                                                            FTNTEXT      674     A     
 FTNTEXT            ENDIF                                                                  FTNTEXT      675     A     
 FTNTEXT  *                                                                                FTNTEXT      676     A     
 FTNTEXT            RJ     =XADDREF                                                        FTNTEXT      677     A     
 FTNTEXT   ADDREF   ENDM                                                                   FTNTEXT      678     A     
 FTNTEXT   CFO      SPACE  4,8                                                             FTNTEXT      679     A     
 FTNTEXT   WRM      SPACE  4,8                                                             FTNTEXT      680     A     
 FTNTEXT  **        WRM - WRITE R-MACRO TO *RLIST* FILE.                                   FTNTEXT      681     A     
 FTNTEXT  *                                                                                FTNTEXT      682     A     
 FTNTEXT  *         WRM       FWA                                                          FTNTEXT      683     A     
 FTNTEXT  *                                                                                FTNTEXT      684     A     
 FTNTEXT  *                *FWA* = FWA OF R-MACRO  ( ONLY 1 MACRO, PLEASE ).               FTNTEXT      685     A     
 FTNTEXT  *                                                                                FTNTEXT      686     A     
 FTNTEXT  *         CALLS  WRITEW                                                          FTNTEXT      687     A     
 FTNTEXT  *                                                                                FTNTEXT      688     A     
 FTNTEXT  *         USES   B7                                                              FTNTEXT      689     A     
 FTNTEXT                                                                                   FTNTEXT      690     A     
 FTNTEXT   WRM      MACRO  F                                                               FTNTEXT      691     A     
 FTNTEXT            R=     B7,F                                                            FTNTEXT      692     A     
 FTNTEXT            RJ     =XWRM                                                           FTNTEXT      693     A     
 FTNTEXT   WRM      ENDM                                                                   FTNTEXT      694     A     
 FTNTEXT   CFO      SPACE  3                                                               FTNTEXT      695     A     
 FTNTEXT  **        CFO - CHECK FIRST OCCURRENCE OF NAME IN STATEMENT.                     FTNTEXT      696     A     
 FTNTEXT  *                                                                                FTNTEXT      697     A     
 FTNTEXT  *                                                                                FTNTEXT      698     A     
 FTNTEXT  *         CFO       CONTEXT                                                      FTNTEXT      699     A     
 FTNTEXT  *                                                                                FTNTEXT      700     A     
 FTNTEXT  *         ENTRY  *CONTEXT* = CONTEXT THAT NAME APPEARED IN;  VALUES --           FTNTEXT      701     A     
 FTNTEXT  *                    *VAR* - VARIABLE OR ARRAY                                   FTNTEXT      702     A     
 FTNTEXT  *                    *EXT* - FUNCTION OR SUBROUTINE                              FTNTEXT      703     A     
 FTNTEXT  *                                                                                FTNTEXT      704     A     
 FTNTEXT  *         USES   X0                                                              FTNTEXT      705     A     
 FTNTEXT  *                                                                                FTNTEXT      706     A     
 FTNTEXT  *         CALLS  CFO                                                             FTNTEXT      707     A     
 FTNTEXT                                                                                   FTNTEXT      708     A     
 FTNTEXT                                                                                   FTNTEXT      709     A     
 FTNTEXT            PURGMAC   CFO                                                          FTNTEXT      710     A     
 FTNTEXT                                                                                   FTNTEXT      711     A     
 FTNTEXT   CFO      MACRO  C                                                               FTNTEXT      712     A     
 FTNTEXT            IFC    EQ, C EXT ,2                                                    FTNTEXT      713     A     
 FTNTEXT            R=     X0,1                                                            FTNTEXT      714     A     
 FTNTEXT            SKIP   2                                                               FTNTEXT      715     A     
 FTNTEXT            IFC    EQ, C VAR ,3                                                    FTNTEXT      716     A     
 FTNTEXT            MX0    0                                                               FTNTEXT      717     A     
 FTNTEXT            RJ     =XCFO                                                           FTNTEXT      718     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 441    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT            SKIP   1                                                               FTNTEXT      719     A     
 FTNTEXT            ERR    (C) BAD *CONTEXT* "SEQUENCE"                                    FTNTEXT      720     A     
 FTNTEXT   CFO      ENDM                                                                   FTNTEXT      721     A     
 FTNTEXT   SYMBOL   SPACE  3,18                                                            FTNTEXT      722     A     
 FTNTEXT  **        SYMBOL - SEARCH SYMBOL TABLE FOR A SYMBOL.                             FTNTEXT      723     A     
 FTNTEXT  *                                                                                FTNTEXT      724     A     
 FTNTEXT  *                                                                                FTNTEXT      725     A     
 FTNTEXT  *         SYMBOL    NAME,NOFIND                                                  FTNTEXT      726     A     
 FTNTEXT  *                                                                                FTNTEXT      727     A     
 FTNTEXT  *         ENTRY  *NAME*   = ADDRESS OF CELL CONTAINING THE SYMBOL.               FTNTEXT      728     A     
 FTNTEXT  *                *NOFIND* = EXIT ADDRESS IF SYMBOL NOT FOUND; IF BLANK,          FTNTEXT      729     A     
 FTNTEXT  *                           CONTINUES AT CURRENT CODE SEQUENCE.                  FTNTEXT      730     A     
 FTNTEXT  *                                                                                FTNTEXT      731     A     
 FTNTEXT  *         EXIT   TO *NOFIND*   IF NOT FOUND (FIRST OCCURRENCE)                   FTNTEXT      732     A     
 FTNTEXT  *                TO *NOFIND*+1 IF FOUND (NOT FIRST OCCURRENCE)                   FTNTEXT      733     A     
 FTNTEXT  *                                                                                FTNTEXT      734     A     
 FTNTEXT  *         USES   A1, X1, B7                                                      FTNTEXT      735     A     
 FTNTEXT  *                                                                                FTNTEXT      736     A     
 FTNTEXT  *         CALLS  SYMBOL                                                          FTNTEXT      737     A     
 FTNTEXT                                                                                   FTNTEXT      738     A     
 FTNTEXT                                                                                   FTNTEXT      739     A     
 FTNTEXT            PURGMAC   SYMBOL                                                       FTNTEXT      740     A     
 FTNTEXT                                                                                   FTNTEXT      741     A     
 FTNTEXT   SYMBOL   MACRO  N,F                                                             FTNTEXT      742     A     
 FTNTEXT            IFC    NE, N  ,1                                                       FTNTEXT      743     A     
 FTNTEXT            SA1    N                                                               FTNTEXT      744     A     
 FTNTEXT            SB7    F  *+2-*P/60D                                                   FTNTEXT      745     A     
 FTNTEXT            EQ     =XSYMBOL                                                        FTNTEXT      746     A     
 FTNTEXT   SYMBOL   ENDM                                                                   FTNTEXT      747     A     
 FTNTEXT            TITLE              MACROS FOR DEBUGGING                                FTNTEXT      748     A     
 FTNTEXT   REGSNAP  SPACE  4,8                                                             FTNTEXT      749     A     
 FTNTEXT  **        REGSNAP - SNAP REGISTERS AT ENTRY POINTS.                              FTNTEXT      750     A     
 FTNTEXT  *                                                                                FTNTEXT      751     A     
 FTNTEXT  *         ACTIVATES REGISTER SNAP AT EACH ENTRY POINT DEFINED WITH THE           FTNTEXT      752     A     
 FTNTEXT  *         -ENTRY.- MACRO AND NAMED ON THE -REGSNAP- CALL CARD.                   FTNTEXT      753     A     
 FTNTEXT  *         THE SNAP COUNT IS LIMITED TO 1000D PER ENTRY POINT BY THE              FTNTEXT      754          I
          -FEAT155F 
 FTNTEXT  *         THE SNAP COUNT IS LIMITED TO 100D PER ENTRY POINT BY THE               FEAT155F      84     A     
 FTNTEXT  *         -REGS- DEBUG MACRO.                                                    FTNTEXT      755     A     
 FTNTEXT  *                                                                                FTNTEXT      756     A     
 FTNTEXT  *                                                                                FTNTEXT      757     A     
 FTNTEXT  *         REGSNAP   (NAME1,NAME2,...,NAMEN)                                      FTNTEXT      758     A     
 FTNTEXT  *                                                                                FTNTEXT      759     A     
 FTNTEXT  *         ENTRY  *NAMEK* = NAME OF ENTRY POINT TO BE SNAPPED                     FTNTEXT      760     A     
 FTNTEXT  *                                                                                FTNTEXT      761     A     
 FTNTEXT  *         EXIT   SNAP ACTIVATED                                                  FTNTEXT      762     A     
 FTNTEXT  *                                                                                FTNTEXT      763     A     
 FTNTEXT  *         USES   NONE                                                            FTNTEXT      764     A     
 FTNTEXT  *                                                                                FTNTEXT      765     A     
 FTNTEXT  *         CALLS  DEBUG                                                           FTNTEXT      766          I
          -FEAT155F 
 FTNTEXT  *         CALLS  NONE                                                            FEAT155F      85     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 442    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT                                                                                   FTNTEXT      767     A     
 FTNTEXT                                                                                   FTNTEXT      768     A     
 FTNTEXT            PURGMAC   REGSNAP                                                      FTNTEXT      769     A     
 FTNTEXT                                                                                   FTNTEXT      770     A     
 FTNTEXT   REGSNAP  MACRO  P                                                               FTNTEXT      771     A     
 FTNTEXT            IF     -DEF,DEBUG,2                                                    FTNTEXT      772          I
          -FEAT155F 
 FTNTEXT            IF     -DEF,DEBUG,1                                                    FEAT155F      86     A     
 FTNTEXT   DEBUG    SET    1                                                               FTNTEXT      773     A     
 FTNTEXT            DEBUG                                                                  FTNTEXT      774          I
          -FEAT155F 
 FTNTEXT            IRP    P                                                               FTNTEXT      775     A     
 FTNTEXT   )P       =      1           DEFINE SYMBOL                                       FTNTEXT      776     A     
 FTNTEXT            IRP                                                                    FTNTEXT      777     A     
 FTNTEXT   REGSNAP  ENDM                                                                   FTNTEXT      778     A     
 FTNTEXT            SPACE  4                                                               FTNTEXT      779     A     
 FTNTEXT   BREAK    OPSYN  NIL                                                             FEAT155F      87     A     
 FTNTEXT   ELIST    OPSYN  NIL                                                             FTNTEXT      780     A     
 FTNTEXT   REGS     OPSYN  NIL                                                             FTNTEXT      781     A     
 FTNTEXT   SNAP     OPSYN  NIL                                                             FTNTEXT      782     A     
 FTNTEXT   SNAPT    OPSYN  NIL                                                             FTNTEXT      783     A     
 FTNTEXT   TABDMP   OPSYN  NIL                                                             FTNTEXT      784     A     
 FTNTEXT                                                                                   FTNTEXT      785     A     
 FTNTEXT                                                                                   FTNTEXT      786     A     
 FTNTEXT   .T       IFNE   TEST,0                                                          FTNTEXT      787     A     
 FTNTEXT                                                                                   FTNTEXT      788          I
          -FEAT155F 
 FTNTEXT  ***                                                                              FTNTEXT      789          I
          -FEAT155F 
 FTNTEXT  *         DEBUG - MACRO TO ACTIVATE SNAP MACROS.                                 FTNTEXT      790          I
          -FEAT155F 
 FTNTEXT  *                                                                                FTNTEXT      791          I
          -FEAT155F 
 FTNTEXT   DEBUG    MACRO                                                                  FTNTEXT      792          I
          -FEAT155F 
 FTNTEXT                                                                                   FTNTEXT      793          I
          -FEAT155F 
 FTNTEXT                                                                                   FTNTEXT      794          I
          -FEAT155F 
 FTNTEXT                                                                                   FTNTEXT      795          I
          -FEAT155F 
 FTNTEXT  **        SNAP - SNAPSHOT OF THE REGISTERS AND THE CONTENTS OF CORE.             FTNTEXT      796          I
          -FEAT155F 
 FTNTEXT  *                                                                                FTNTEXT      797          I
          -FEAT155F 
 FTNTEXT  *         ARGUMENTS ARE:                                                         FTNTEXT      798          I
          -FEAT155F 
 FTNTEXT  *                FWA = FWA TO BE DUMPED                                          FTNTEXT      799          I
          -FEAT155F 
 FTNTEXT  *                LWA = LWA TO BE DUMPED                                          FTNTEXT      800          I
          -FEAT155F 
 FTNTEXT  *         OR     LEN = LENGTH TO BE DUMPED                                       FTNTEXT      801          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 443    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
          -FEAT155F 
 FTNTEXT  *                LL = LOWER LOOP LIMIT FOR PERIODIC SNAPPING                     FTNTEXT      802          I
          -FEAT155F 
 FTNTEXT  *                UL = UPPER LOOP LIMIT                                           FTNTEXT      803          I
          -FEAT155F 
 FTNTEXT  *                INC = LOOP INCREMENT                                            FTNTEXT      804          I
          -FEAT155F 
 FTNTEXT  *                BCD = DISPLAY CODE MESSAGE TO BE PRINTED WITH THE SNAP          FTNTEXT      805          I
          -FEAT155F 
 FTNTEXT  *                NOREGS = NO REGISTER DUMP FLAG                                  FTNTEXT      806          I
          -FEAT155F 
 FTNTEXT  *                NOHEAD = NO HEADER FLAG                                         FTNTEXT      807          I
          -FEAT155F 
 FTNTEXT                                                                                   FTNTEXT      808          I
          -FEAT155F 
 FTNTEXT            PURGMAC SNAP,SNAPARG                                                   FTNTEXT      809          I
          -FEAT155F 
 FTNTEXT                                                                                   FTNTEXT      810          I
          -FEAT155F 
 FTNTEXT   SNAP     MACRO  FWA,LWA,LEN,LL,UL,INC,BCD,NOREGS,NOHEAD                         FTNTEXT      811          I
          -FEAT155F 
 FTNTEXT            LOCAL  APL                                                             FTNTEXT      812          I
          -FEAT155F 
 FTNTEXT  +         RJ     =XSNAP=                                                         FTNTEXT      813          I
          -FEAT155F 
 FTNTEXT  -         VFD    30/APL                                                          FTNTEXT      814          I
          -FEAT155F 
 FTNTEXT            USE    DEBUG                                                           FTNTEXT      815          I
          -FEAT155F 
 FTNTEXT   APL      BSS    0                                                               FTNTEXT      816          I
          -FEAT155F 
 FTNTEXT            SNAPARG  FWA,59                                                        FTNTEXT      817          I
          -FEAT155F 
 FTNTEXT            SNAPARG  LWA,59                                                        FTNTEXT      818          I
          -FEAT155F 
 FTNTEXT            VFD    10/NOREGS,10/NOHEAD                                             FTNTEXT      819          I
          -FEAT155F 
 FTNTEXT            SNAPARG  LEN,39                                                        FTNTEXT      820          I
          -FEAT155F 
 FTNTEXT            SNAPARG  LL,59                                                         FTNTEXT      821          I
          -FEAT155F 
 FTNTEXT            SNAPARG  UL,59                                                         FTNTEXT      822          I
          -FEAT155F 
 FTNTEXT            SNAPARG  INC,59                                                        FTNTEXT      823          I
          -FEAT155F 
 FTNTEXT            DIS    1,BCD                                                           FTNTEXT      824          I
          -FEAT155F 
 FTNTEXT            BSSZ   1                                                               FTNTEXT      825          I
          -FEAT155F 
 FTNTEXT            USE    *                                                               FTNTEXT      826          I
          -FEAT155F 
 FTNTEXT   SNAP     ENDM                                                                   FTNTEXT      827          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 444    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
          -FEAT155F 
 FTNTEXT                                                                                   FTNTEXT      828          I
          -FEAT155F 
 FTNTEXT   SNAPARG  MACRO  N,LEN                                                           FTNTEXT      829          I
          -FEAT155F 
 FTNTEXT   .1       MICRO  1,1,/N/                                                         FTNTEXT      830          I
          -FEAT155F 
 FTNTEXT            IFC    EQ,/".1"/-/,3                                                   FTNTEXT      831          I
          -FEAT155F 
 FTNTEXT            VFD    1/1                                                             FTNTEXT      832          I
          -FEAT155F 
 FTNTEXT   .1       MICRO  2,,/N/                                                          FTNTEXT      833          I
          -FEAT155F 
 FTNTEXT            SKIP   2                                                               FTNTEXT      834          I
          -FEAT155F 
 FTNTEXT            VFD    1/0                                                             FTNTEXT      835          I
          -FEAT155F 
 FTNTEXT   .1       MICRO  1,,/N/                                                          FTNTEXT      836          I
          -FEAT155F 
 FTNTEXT            IF     -REG,".1",2                                                     FTNTEXT      837          I
          -FEAT155F 
 FTNTEXT            VFD    LEN/".1"                                                        FTNTEXT      838          I
          -FEAT155F 
 FTNTEXT            SKIP   3                                                               FTNTEXT      839          I
          -FEAT155F 
 FTNTEXT   .Z       MICRO  2,1,/".1"/                                                      FTNTEXT      840          I
          -FEAT155F 
 FTNTEXT   .1       MICRO  1,1,/".1"/                                                      FTNTEXT      841          I
          -FEAT155F 
 FTNTEXT            VFD    LEN/=XSAV.".1"+".Z"                                             FTNTEXT      842          I
          -FEAT155F 
 FTNTEXT   SNAPARG  ENDM                                                                   FTNTEXT      843          I
          -FEAT155F 
 FTNTEXT                                                                                   FTNTEXT      844          I
          -FEAT155F 
 FTNTEXT                                                                                   FTNTEXT      845          I
          -FEAT155F 
 FTNTEXT                                                                                   FTNTEXT      846          I
          -FEAT155F 
 FTNTEXT  **        REG - DUMP REGISTERS.                                                  FTNTEXT      847          I
          -FEAT155F 
 FTNTEXT                                                                                   FTNTEXT      848          I
          -FEAT155F 
 FTNTEXT            PURGMAC   REGS                                                         FTNTEXT      849          I
          -FEAT155F 
 FTNTEXT                                                                                   FTNTEXT      850          I
          -FEAT155F 
 FTNTEXT   REGS     MACRO  NAME                                                            FTNTEXT      851          I
          -FEAT155F 
 FTNTEXT            SNAP   ,,,1,1000,1,NAME                                                FTNTEXT      852          I
          -FEAT155F 
 FTNTEXT   REGS     ENDM                                                                   FTNTEXT      853          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 445    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
          -FEAT155F 
 FTNTEXT                                                                                   FTNTEXT      854          I
          -FEAT155F 
 FTNTEXT                                                                                   FTNTEXT      855          I
          -FEAT155F 
 FTNTEXT                                                                                   FTNTEXT      856          I
          -FEAT155F 
 FTNTEXT  *CALL     DBG=MAC                                                                FEAT155F      88     A     
 FTNTEXT  **        DUMP OF E-LIST ( PASS 1 ).                                             FTNTEXT      857     A     
 FTNTEXT                                                                                   FTNTEXT      858     A     
 FTNTEXT            PURGMAC   ELIST                                                        FTNTEXT      859     A     
 FTNTEXT                                                                                   FTNTEXT      860     A     
 FTNTEXT   ELIST    MACRO  BCD                                                             FTNTEXT      861     A     
 FTNTEXT            RJ     =XSEL                                                           FTNTEXT      862     A     
 FTNTEXT            DATA   10H_BCD                                                         FTNTEXT      863     A     
 FTNTEXT   ELIST    ENDM                                                                   FTNTEXT      864     A     
 FTNTEXT                                                                                   FTNTEXT      865     A     
 FTNTEXT  **        SNAPT - SNAP A TABLE WITH POINTERS O.TBL AND L.TBL.                    FTNTEXT      866     A     
 FTNTEXT                                                                                   FTNTEXT      867     A     
 FTNTEXT            PURGMAC   SNAPT                                                        FTNTEXT      868     A     
 FTNTEXT                                                                                   FTNTEXT      869     A     
 FTNTEXT   SNAPT    MACRO  TBL,BCD                                                         FTNTEXT      870     A     
 FTNTEXT            SNAP   -O.TBL,,-L.TBL,1,100,1,BCD                                      FTNTEXT      871          I
          -FEAT155F 
 FTNTEXT   BCD      SNAP   *O.TBL,,*L.TBL                                                  FEAT155F      89     A     
 FTNTEXT   SNAPT    ENDM                                                                   FTNTEXT      872     A     
 FTNTEXT                                                                                   FTNTEXT      873     A     
 FTNTEXT   DEBUG    ENDM                                                                   FTNTEXT      874          I
          -FEAT155F 
 FTNTEXT                                                                                   FTNTEXT      875          I
          -FEAT155F 
 FTNTEXT   .T       ENDIF                                                                  FTNTEXT      876     A     
 FTNTEXT   PRINT    SPACE  4                                                               FTNTEXT      877     A     
 FTNTEXT  **        PRINT - PRINT THE CONTENTS OF A LIST OF LOCATIONS.                     FTNTEXT      878     A     
 FTNTEXT  *                                                                                FTNTEXT      879     A     
 FTNTEXT  *                                                                                FTNTEXT      880     A     
 FTNTEXT  *         PRINT  LAB,FMT,(LIST)                                                  FTNTEXT      881     A     
 FTNTEXT  *                                                                                FTNTEXT      882     A     
 FTNTEXT  *         LAB - STATEMENT PRINTED IF *LAB* MENTIONED ON A *TRACER* LIST          FTNTEXT      883     A     
 FTNTEXT  *                IF BLANK, THEN UNCONDITIONALLY PRINT.                           FTNTEXT      884     A     
 FTNTEXT  *         FMT - PARENTHESIED FORTRAN FORMAT                                      FTNTEXT      885     A     
 FTNTEXT  *         LIST - PARENTHESIZED LIST OF NAMES AND OR REGISTERS TO BE              FTNTEXT      886     A     
 FTNTEXT  *                PRINTED.                                                        FTNTEXT      887     A     
 FTNTEXT  *                                                                                FTNTEXT      888     A     
 FTNTEXT  *         SAMPLE CALL --                                                         FTNTEXT      889     A     
 FTNTEXT  *         PRINT XXX,(* SIP,IIP =*,2I6),(SIP,IIP)   WILL PRODUCE -                FTNTEXT      890     A     
 FTNTEXT  *         XXX SIP,IIP = NNNNNN NNNNNN                                            FTNTEXT      891     A     
 FTNTEXT  *                                                                                FTNTEXT      892     A     
 FTNTEXT  *         THIS MACRO IS FOR INTERNAL DEBUGGING ONLY ( TEST MODE ).               FTNTEXT      893     A     
 FTNTEXT                                                                                   FTNTEXT      894     A     
 FTNTEXT                                                                                   FTNTEXT      895     A     
 FTNTEXT            PURGMAC   PRINT                                                        FTNTEXT      896     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 446    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT                                                                                   FTNTEXT      897     A     
 FTNTEXT   PRINT    MACRO  LAB,FMT,LIST                                                    FTNTEXT      898     A     
 FTNTEXT            LOCAL  APL,LFMT                                                        FTNTEXT      899     A     
 FTNTEXT   .P       IFC    NE,/LAB//,2                                                     FTNTEXT      900     A     
 FTNTEXT   .P       IF     -DEF,)LAB,1                                                     FTNTEXT      901     A     
 FTNTEXT   .P       IF     DEF,/DEBUG/LAB                                                  FTNTEXT      902     A     
 FTNTEXT            USE    DEBUG                                                           FTNTEXT      903     A     
 FTNTEXT   APL      CON    =XOUTPUT#                                                       FTNTEXT      904     A     
 FTNTEXT            CON    LFMT                                                            FTNTEXT      905     A     
 FTNTEXT            IRP    LIST                                                            FTNTEXT      906     A     
 FTNTEXT            IF     REG,LIST,4                                                      FTNTEXT      907     A     
 FTNTEXT   L        MICRO  1,1,/LIST/                                                      FTNTEXT      908     A     
 FTNTEXT   N        MICRO  2,1,/LIST/                                                      FTNTEXT      909     A     
 FTNTEXT            VFD    12/2,30/1S6,18/=XSAV."L"+"N"                                    FTNTEXT      910          I
          -FEAT155F 
 FTNTEXT            VFD    12/2,30/1S6,18/=XSV="L"+"N"                                     FEAT155F      90     A     
 FTNTEXT            SKIP   1                                                               FTNTEXT      911     A     
 FTNTEXT            VFD    12/2,30/1S6,18/LIST                                             FTNTEXT      912     A     
 FTNTEXT            IRP                                                                    FTNTEXT      913     A     
 FTNTEXT   LFMT     CON    0                                                               FTNTEXT      914     A     
 FTNTEXT            DIS    ,$(* LAB *,FMT)$                                                FTNTEXT      915     A     
 FTNTEXT            USE    *                                                               FTNTEXT      916     A     
 FTNTEXT            RJ     =XSAVE=                                                         FTNTEXT      917     A     
 FTNTEXT            SA1    APL                                                             FTNTEXT      918     A     
 FTNTEXT            RJ     =XOUTCI.                                                        FTNTEXT      919     A     
 FTNTEXT            RJ     =XRESET=                                                        FTNTEXT      920     A     
 FTNTEXT   .P       ENDIF                                                                  FTNTEXT      921     A     
 FTNTEXT   PRINT    ENDM                                                                   FTNTEXT      922     A     
 FTNTEXT   TRACER   SPACE  3,14                                                            FTNTEXT      923     A     
 FTNTEXT  **        TRACER - DEFINE ROUTINES/PHASES TO BE TRACED.                          FTNTEXT      924     A     
 FTNTEXT  *                                                                                FTNTEXT      925     A     
 FTNTEXT  *         TRACER (RTN1,...,RTNI)                                                 FTNTEXT      926     A     
 FTNTEXT                                                                                   FTNTEXT      927     A     
 FTNTEXT   TRACER   MACRO  P                                                               FTNTEXT      928     A     
 FTNTEXT            IF     -DEF,DEBUG,2                                                    FTNTEXT      929          I
          -FEAT155F 
 FTNTEXT            IF     -DEF,DEBUG,1                                                    FEAT155F      91          I
          -FCC1056
 FTNTEXT   DEBUG    SET    1                                                               FTNTEXT      930          I
          -FCC1056
 FTNTEXT            DEBUG                                                                  FTNTEXT      931          I
          -FEAT155F 
 FTNTEXT            QUAL   DEBUG                                                           FTNTEXT      932     A     
 FTNTEXT            IRP    P                                                               FTNTEXT      933     A     
 FTNTEXT   P        EQU    1                                                               FTNTEXT      934     A     
 FTNTEXT            IRP                                                                    FTNTEXT      935     A     
 FTNTEXT            QUAL   *                                                               FTNTEXT      936     A     
 FTNTEXT            ENDM                                                                   FTNTEXT      937     A     
 FTNTEXT   TRACE    SPACE  3                                                               FTNTEXT      938     A     
 FTNTEXT  **        TRACE - CONDITIONALLY SNAP CONTENTS OF SPECIFIED TABLE.                FTNTEXT      939     A     
 FTNTEXT  *         CALL -                                                                 FTNTEXT      940     A     
 FTNTEXT  *         TRACE  LAB,TBL,BLK                                                     FTNTEXT      941     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 447    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT  *                                                                                FTNTEXT      942     A     
 FTNTEXT  *         LAB - SNAP LABEL THAT IS TO BE SPECIFIED ON *TRACER* LIST              FTNTEXT      943     A     
 FTNTEXT  *                TO ACTIVATE THE PRINTOUT.                                       FTNTEXT      944     A     
 FTNTEXT  *         TBL -  IF NOT = RLIST, THEN NAME OF TABLE ( FWA,LEN = O.TBL,           FTNTEXT      945     A     
 FTNTEXT  *                L.TBL ) TO BE PRINTED IN OCTAL FORMAT.                          FTNTEXT      946     A     
 FTNTEXT  *                IF = RLIST , THEN CALL *DMPRLST* TO PRINT THE TABLE.            FTNTEXT      947     A     
 FTNTEXT  *                TABLE PRINTED OUT IS *TXT* IF *BLK* IS NOT SPECIFIED,           FTNTEXT      948     A     
 FTNTEXT  *                ELSE *BLK*.                                                     FTNTEXT      949     A     
 FTNTEXT                                                                                   FTNTEXT      950     A     
 FTNTEXT   TRACE    MACRO  RTN,TBL,BLK                                                     FTNTEXT      951     A     
 FTNTEXT   T        IF     DEF,/DEBUG/RTN                                                  FTNTEXT      952     A     
 FTNTEXT            IRP    TBL                                                             FTNTEXT      953     A     
 FTNTEXT   TB       IFC    NE,/TBL/RLIST/,2                                                FTNTEXT      954     A     
 FTNTEXT            SNAP   -O.TBL,,-L.TBL,1,100,1,TBL-RTN,1                                FTNTEXT      955          I
          -FEAT155F 
 FTNTEXT   TBL-RTN  SNAP   *O.TBL,,*L.TBL,NR                                               FEAT155F      92     A     
 FTNTEXT   TB       ELSE   1                                                               FTNTEXT      956     A     
 FTNTEXT   BLK      SNAPRL RTN                                                             FTNTEXT      957     A     
 FTNTEXT            IRP                                                                    FTNTEXT      958     A     
 FTNTEXT   T        ENDIF                                                                  FTNTEXT      959     A     
 FTNTEXT            ENDM                                                                   FTNTEXT      960     A     
 FTNTEXT   SNAPRL   SPACE  3,14                                                            FTNTEXT      961     A     
 FTNTEXT  **        SNAPRL - INTERPRETIVE DUMP OF AN *RLIST* SEQUENCE.                     FTNTEXT      962     A     
 FTNTEXT                                                                                   FTNTEXT      963     A     
 FTNTEXT            PURGMAC  SNAPRL                                                        FTNTEXT      964     A     
 FTNTEXT            MACRO  SNAPRL,BLK,L,LL,UL,INC                                          FTNTEXT      965     A     
 FTNTEXT            LOCAL  X,Y                                                             FTNTEXT      966     A     
 FTNTEXT            CALL   SAVE=                                                           FTNTEXT      967     A     
 FTNTEXT            SA1    X                                                               FTNTEXT      968     A     
 FTNTEXT            IFC    EQ,//BLK/,2                                                     FTNTEXT      969     A     
 FTNTEXT            SA2    =XO.TXT                                                         FTNTEXT      970     A     
 FTNTEXT            ELSE   1                                                               FTNTEXT      971     A     
 FTNTEXT            SA2    =XO.BLK                                                         FTNTEXT      972     A     
 FTNTEXT            BX6    X2                                                              FTNTEXT      973     A     
 FTNTEXT            SA6    X+1                                                             FTNTEXT      974     A     
 FTNTEXT            CALL   DMPRLST                                                         FTNTEXT      975     A     
 FTNTEXT            CALL   RESET=                                                          FTNTEXT      976     A     
 FTNTEXT            USE    DEBUG                                                           FTNTEXT      977     A     
 FTNTEXT   X        CON    Y                                                               FTNTEXT      978     A     
 FTNTEXT            IFC    EQ,//BLK/,2                                                     FTNTEXT      979     A     
 FTNTEXT            CON    0,=XL.TXT,0                                                     FTNTEXT      980     A     
 FTNTEXT            ELSE   1                                                               FTNTEXT      981     A     
 FTNTEXT            CON    0,=XL.BLK,0                                                     FTNTEXT      982     A     
 FTNTEXT   Y        SNAPCTRS (L BLK),LL,UL,INC                                             FTNTEXT      983     A     
 FTNTEXT            USE    *                                                               FTNTEXT      984     A     
 FTNTEXT   SNAPRL   ENDM                                                                   FTNTEXT      985     A     
 FTNTEXT                                                                                   FTNTEXT      986     A     
 FTNTEXT   SNAPCTRS MACRO  L,LL,UL,INC                                                     FTNTEXT      987     A     
 FTNTEXT            CON    0,10H L                                                         FTNTEXT      988     A     
 FTNTEXT            CON    LL 1                                                            FTNTEXT      989     A     
 FTNTEXT            CON    UL 200                                                          FTNTEXT      990     A     
 FTNTEXT            CON    INC 1                                                           FTNTEXT      991     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 448    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT   SNAPCTRS ENDM                                                                   FTNTEXT      992     A     
 FTNTEXT   DCALL    SPACE  3,24                                                            FTNTEXT      993     A     
 FTNTEXT  **        DCALL - CALL TO DEBUGGING FORTRAN ROUTINE ( PASS 2 ).                  FTNTEXT      994     A     
 FTNTEXT  *                                                                                FTNTEXT      995     A     
 FTNTEXT  *         DCALL ROUTINE,(PARAMLIST)                                              FTNTEXT      996     A     
 FTNTEXT  *                                                                                FTNTEXT      997     A     
 FTNTEXT  *         [X] IS THE CONTENTS OF X.                                              FTNTEXT      998     A     
 FTNTEXT  *         CONSTANTS MUST BE WRITTEN AS =X  ( =3 ).                               FTNTEXT      999     A     
 FTNTEXT                                                                                   FTNTEXT     1000     A     
 FTNTEXT   DCALL    MACRO  RTN,P                                                           FTNTEXT     1001     A     
 FTNTEXT            LOCAL  APL                                                             FTNTEXT     1002     A     
 FTNTEXT            RJ     =XSAVE=                                                         FTNTEXT     1003     A     
 FTNTEXT            USE    DEBUG                                                           FTNTEXT     1004     A     
 FTNTEXT   APL      BSS    0                                                               FTNTEXT     1005     A     
 FTNTEXT            NOREF  .N                                                              FTNTEXT     1006     A     
 FTNTEXT   .N       SET    0                                                               FTNTEXT     1007     A     
 FTNTEXT  *                                                                                FTNTEXT     1008     A     
 FTNTEXT            IRP    P                                                               FTNTEXT     1009     A     
 FTNTEXT   .1       MICRO  1,1,/P/                                                         FTNTEXT     1010     A     
 FTNTEXT            IFC    EQ,/".1"/[/                                                     FTNTEXT     1011     A     
 FTNTEXT   .1       MICRO  2,,]_P_]                                                        FTNTEXT     1012     A     
 FTNTEXT            USE    *                                                               FTNTEXT     1013     A     
 FTNTEXT            SA2    =X".1"                                                          FTNTEXT     1014     A     
 FTNTEXT            SX6    X2+                                                             FTNTEXT     1015     A     
 FTNTEXT            SA6    APL+.N                                                          FTNTEXT     1016     A     
 FTNTEXT            USE    DEBUG                                                           FTNTEXT     1017     A     
 FTNTEXT            BSS    1                                                               FTNTEXT     1018     A     
 FTNTEXT            ELSE   4                                                               FTNTEXT     1019     A     
 FTNTEXT            IFC    EQ,/".1"/=/,2                                                   FTNTEXT     1020     A     
 FTNTEXT            VFD    42/,18/P                                                        FTNTEXT     1021     A     
 FTNTEXT            SKIP   1                                                               FTNTEXT     1022     A     
 FTNTEXT            VFD    42/,18/=X_P                                                     FTNTEXT     1023     A     
 FTNTEXT   .N       SET    .N+1                                                            FTNTEXT     1024     A     
 FTNTEXT            IRP                                                                    FTNTEXT     1025     A     
 FTNTEXT  *                                                                                FTNTEXT     1026     A     
 FTNTEXT            DATA   0                                                               FTNTEXT     1027     A     
 FTNTEXT            USE    *                                                               FTNTEXT     1028     A     
 FTNTEXT  *                                                                                FTNTEXT     1029     A     
 FTNTEXT            SA1    APL                                                             FTNTEXT     1030     A     
 FTNTEXT            RJ     =X_RTN                                                          FTNTEXT     1031     A     
 FTNTEXT            RJ     =XRESET=                                                        FTNTEXT     1032     A     
 FTNTEXT   DCALL    ENDM                                                                   FTNTEXT     1033     A     
 FTNTEXT            TITLE              MACROS TO CALL THE TABLE MANAGER ROUTINES           FTNTEXT     1034     A     
 FTNTEXT  **        PASS 1 TABLE MANAGER MACROS.                                           FTNTEXT     1035     A     
 FTNTEXT                                                                                   FTNTEXT     1036     A     
 FTNTEXT  **        ADDWD - ADD A SINGLE WORD TO THE END OF A MANAGED TABLE.               FTNTEXT     1037     A     
 FTNTEXT  *                                                                                FTNTEXT     1038     A     
 FTNTEXT  *         ARGUMENTS:                                                             FTNTEXT     1039     A     
 FTNTEXT  *                TNAM - TABLE NAME                                               FTNTEXT     1040     A     
 FTNTEXT  *                WORD - WORD TO BE ADDED                                         FTNTEXT     1041     A     
 FTNTEXT  *                MAY BE A REGISTER EXPRESSION OR MEMORY LOCATION                 FTNTEXT     1042     A     
 FTNTEXT  *                                                                                FTNTEXT     1043     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 449    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT   ADDWD    MACRO  TNAM,WORD                                                       FTNTEXT     1044     A     
 FTNTEXT            LOADX  1,WORD                                                          FTNTEXT     1045     A     
 FTNTEXT            IFC    NE,/TNAM//,2                                                    FTNTEXT     1046     A     
 FTNTEXT            IFC    NE,/TNAM/A0/,1                                                  FTNTEXT     1047     A     
 FTNTEXT            SA0    =XZ.TNAM                                                        FTNTEXT     1048     A     
 FTNTEXT            RJ     =XADDWD                                                         FTNTEXT     1049     A     
 FTNTEXT   ADDWD    ENDM                                                                   FTNTEXT     1050     A     
 FTNTEXT   ALLOC    SPACE  4,8                                                             FTNTEXT     1051     A     
 FTNTEXT  **        ALLOC - CALL *ALLOC* TO ALLOCATE +-N EXTRA WORDS.                      FTNTEXT     1052     A     
 FTNTEXT  *                                                                                FTNTEXT     1053     A     
 FTNTEXT  *         ARGUMENTS:                                                             FTNTEXT     1054     A     
 FTNTEXT  *                TNAM - TABLE NAME                                               FTNTEXT     1055     A     
 FTNTEXT  *                NWDS - TABLE INCREMENT OR DECREMENT                             FTNTEXT     1056     A     
 FTNTEXT  *                                                                                FTNTEXT     1057     A     
 FTNTEXT   ALLOC    MACRO  TNAM,NWDS                                                       FTNTEXT     1058     A     
 FTNTEXT            IF     -REG,NWDS,2                                                     FCC2186        5     A     
 FTNTEXT            IF     ABS,NWDS,1                                                      FCC2186        6     A     
 FTNTEXT   P        ERR                ABSOLUTE VALUE NFG                                  FCC2186        7     A     
 FTNTEXT            LOADX  5,NWDS                                                          FTNTEXT     1059     A     
 FTNTEXT            IFC    NE,/TNAM//,2                                                    FTNTEXT     1060     A     
 FTNTEXT            IFC    NE,/TNAM/A0/,1                                                  FTNTEXT     1061     A     
 FTNTEXT            SA0    =XZ.TNAM                                                        FTNTEXT     1062     A     
 FTNTEXT            RJ     =XALLOC                                                         FTNTEXT     1063     A     
 FTNTEXT   ALLOC    ENDM                                                                   FTNTEXT     1064     A     
 FTNTEXT   ALLAE    SPACE  4,8                                                             FTNTEXT     1065     A     
 FTNTEXT  **        ALLAE - ALLOCATE ALMOST ALL OF AVAILABLE CORE FOR TABLE N.             FTNTEXT     1066     A     
 FTNTEXT  *                                                                                FTNTEXT     1067     A     
 FTNTEXT  *         ARGUMENTS:                                                             FTNTEXT     1068     A     
 FTNTEXT  *                TNAM - TABLE NAME                                               FTNTEXT     1069     A     
 FTNTEXT  *                                                                                FTNTEXT     1070     A     
 FTNTEXT   ALLAE    MACRO  TNAM                                                            FTNTEXT     1071     A     
 FTNTEXT            SA0    =XZ.TNAM                                                        FTNTEXT     1072     A     
 FTNTEXT            RJ     =XALLAE                                                         FTNTEXT     1073     A     
 FTNTEXT   ALLAE    ENDM                                                                   FTNTEXT     1074     A     
 FTNTEXT   TABLES   SPACE  4,5                                                             FTNTEXT     1075     A     
 FTNTEXT   TABLES   MACRO  A,B,C,D,E,F,G,H,I,J                                             FTNTEXT     1076     A     
 FTNTEXT            EXT    O.A,L.A                                                         FTNTEXT     1077     A     
 FTNTEXT            IFC    NE,/B//,1                                                       FTNTEXT     1078     A     
 FTNTEXT            TABLES B,C,D,E,F,G,H,I,J                                               FTNTEXT     1079     A     
 FTNTEXT   TABLES   ENDM                                                                   FTNTEXT     1080     A     
 FTNTEXT   LOADX    SPACE  4,8                                                             FTNTEXT     1081     A     
 FTNTEXT   LOADX    MACRO  N,WORD            LOAD XN WITH WORD                             FTNTEXT     1082     A     
 FTNTEXT            LOCAL  L                                                               FTNTEXT     1083     A     
 FTNTEXT  O         IFC    NE,/WORD//                                                      FTNTEXT     1084     A     
 FTNTEXT  *                                                                                FTNTEXT     1085     A     
 FTNTEXT   R        IF     REG,WORD                                                        FTNTEXT     1086     A     
 FTNTEXT  *                                                                                FTNTEXT     1087     A     
 FTNTEXT   L        MICRO  1,1,/WORD/                                                      FTNTEXT     1088     A     
 FTNTEXT   RR       IFC    NE,/"L"/X/                                                      FTNTEXT     1089     A     
 FTNTEXT            SX.N   WORD                                                            FTNTEXT     1090     A     
 FTNTEXT   RR       ELSE                                                                   FTNTEXT     1091     A     
 FTNTEXT   L        MICRO  2,1,/WORD/                                                      FTNTEXT     1092     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 450    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT            IFC    NE,/"L"/N/,1                                                    FTNTEXT     1093     A     
 FTNTEXT            BX.N   WORD                                                            FTNTEXT     1094     A     
 FTNTEXT   RR       ENDIF                                                                  FTNTEXT     1095     A     
 FTNTEXT  *                                                                                FTNTEXT     1096     A     
 FTNTEXT   R        ELSE                                                                   FTNTEXT     1097     A     
 FTNTEXT            SA.N   WORD                                                            FTNTEXT     1098     A     
 FTNTEXT   R        ENDIF                                                                  FTNTEXT     1099     A     
 FTNTEXT  *                                                                                FTNTEXT     1100     A     
 FTNTEXT  O         ENDIF                                                                  FTNTEXT     1101     A     
 FTNTEXT   LOADX    ENDM                                                                   FTNTEXT     1102     A     
 FTNTEXT   DBGERR   SPACE  4,8                                                             FTNTEXT     1103     A     
 FTNTEXT  **        DBGERR - SEND A MESSAGE FROM *DEBUG* OPTION PROCESSOR TO THE           FTNTEXT     1104     A     
 FTNTEXT  *                LIST FILE.                                                      FTNTEXT     1105     A     
 FTNTEXT  *                                                                                FTNTEXT     1106     A     
 FTNTEXT  *         ARGUMENT:                                                              FTNTEXT     1107     A     
 FTNTEXT  *                TEXT = TEXT OF THE MESSAGE                                      FTNTEXT     1108     A     
 FTNTEXT  *                                                                                FTNTEXT     1109     A     
 FTNTEXT   DBGERR   MACRO  TEXT                                                            FTNTEXT     1110     A     
 FTNTEXT            SA5    =C/TEXT/                                                        FTNTEXT     1111     A     
 FTNTEXT            RJ     =XDBGERR                                                        FTNTEXT     1112     A     
 FTNTEXT   DBGERR   ENDM                                                                   FTNTEXT     1113     A     
 FTNTEXT   CALLF    SPACE  4,8                                                             FTNTEXT     1114     A     
 FTNTEXT  **        CALLF - CALL A FORTRAN ROUTINE FROM A COMPASS ROUTINE.                 FTNTEXT     1115     A     
 FTNTEXT  *                                                                                FTNTEXT     1116     A     
 FTNTEXT                                                                                   FTNTEXT     1117     A     
 FTNTEXT   CALLF    MACRO  NAME,RESET                                                      FTNTEXT     1118     A     
 FTNTEXT            SA1    =0                NO ARG LIST                                   FTNTEXT     1119     A     
 FTNTEXT            RJ     =XNAME                                                          FTNTEXT     1120     A     
 FTNTEXT            IFC    NE,//RESET/,1                                                   FTNTEXT     1121     A     
 FTNTEXT            SB5    1                 RESET B5 FOR COMPASS ROUTINES                 FTNTEXT     1122     A     
 FTNTEXT   CALLF    ENDM                                                                   FTNTEXT     1123     A     
 FTNTEXT            TITLE              SYSTEM SYMBOL DEFINITIONS                           FTNTEXT     1124     A     
 FTNTEXT  ***                                                                              FTNTEXT     1125     A     
 FTNTEXT  *         SYSTEM SYMBOL DEFINITIONS FOR THE *FTN* COMPILER.                      FTNTEXT     1126     A     
 FTNTEXT  *                                                                                FTNTEXT     1127     A     
 FTNTEXT  *         THE FOLLOWING SET OF EQU-S DEFINES THE VALUES, BIT                     FTNTEXT     1128     A     
 FTNTEXT  *         POSITIONS AND LENGTHS OF VARIOUS FIELDS IN THE INTERNAL                FTNTEXT     1129     A     
 FTNTEXT  *         TABLES OF THE COMPILER.                                                FTNTEXT     1130     A     
 FTNTEXT  *                                                                                FTNTEXT     1131     A     
 FTNTEXT  *         THE FIRST TABLE OF INTEREST IS THE 2 WORD/ENTRY SYMBOL                 FTNTEXT     1132     A     
 FTNTEXT  *         TABLE. FOR EACH ENTRY THE WORDS ARE CALLED WORD A AND WORD B.          FTNTEXT     1133     A     
 FTNTEXT  *                                                                                FTNTEXT     1134     A     
 FTNTEXT  *         THE ADDRESS FUNCTION TO FETCH WORDS A AND B OF OF THE                  FTNTEXT     1135     A     
 FTNTEXT  *         SYMBOL WITH ORDINAL *N* IS:                                            FTNTEXT     1136     A     
 FTNTEXT  *                                                                                FTNTEXT     1137     A     
 FTNTEXT  *         WORD A = CONT( CONT(SYM1)-2*N )                                        FTNTEXT     1138     A     
 FTNTEXT  *         WORD B = CONT( CONT(SYM1)-2*N-1 )                                      FTNTEXT     1139     A     
 FTNTEXT  *                                                                                FTNTEXT     1140     A     
 FTNTEXT  *         ONE SHOULD NOTE THE FOLLOWING FACTS:                                   FTNTEXT     1141     A     
 FTNTEXT  *                                                                                FTNTEXT     1142     A     
 FTNTEXT  *         ORDINAL 0 IS UNUSED.                                                   FTNTEXT     1143     A     
 FTNTEXT  *         ORDINAL 1 WILL ALWAYS BE THE SUBPROGRAM NAME.                          FTNTEXT     1144     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 451    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT  *         ORDINALS 2 - K+1 WILL BE THE FORMAL PARAMETERS ( OR FILE               FTNTEXT     1145     A     
 FTNTEXT  *         NAMES ) ORDERED AS THEY APPEARED ON THE SUBPROGRAM CARD.               FTNTEXT     1146     A     
 FTNTEXT  *         IF THE SUBPROGRAM IS A SUBROUTINE WITH *RETURNS* PARAMETERS,           FTNTEXT     1147     A     
 FTNTEXT  *         THEN THEY WILL COME NEXT.                                              FTNTEXT     1148     A     
 FTNTEXT  *         AFTER THIS, CERTAIN SPECIAL SYMBOLS SUCH AS *VALUE.*,                  FTNTEXT     1149     A     
 FTNTEXT  *         *TEMPA0.* AND *TRACE.*.                                                FTNTEXT     1150     A     
 FTNTEXT  *                                                                                FTNTEXT     1151     A     
 FTNTEXT  *         THE REST OF THE SYMBOLS IN THE TABLE WILL HAVE NO SPECIAL              FTNTEXT     1152     A     
 FTNTEXT  *         ORDER AND WILL BE PLACED IN THE TABLE AS THEY APPEAR.                  FTNTEXT     1153     A     
 FTNTEXT  *                                                                                FTNTEXT     1154     A     
 FTNTEXT            SPACE  3                                                               FTNTEXT     1155     A     
 FTNTEXT  ***                                                                              FTNTEXT     1156     A     
 FTNTEXT  *         THE FORMAT OF THE SYMBOLS IS X.NAME WHERE :                            FTNTEXT     1157     A     
 FTNTEXT  *         X IS A 1 OR 2 CHARACTER PREFIX AND NAME IS THE NAME                    FTNTEXT     1158     A     
 FTNTEXT  *         ASSOCIATED WITH THE SYMBOL.                                            FTNTEXT     1159     A     
 FTNTEXT  *                                                                                FTNTEXT     1160     A     
 FTNTEXT  *         THE PREFIXES USED ARE:                                                 FTNTEXT     1161     A     
 FTNTEXT  *                                                                                FTNTEXT     1162     A     
 FTNTEXT  *         *P*  FOR THE POSITION OF THE BASE OF A BIT FIELD IN A WORD.            FTNTEXT     1163     A     
 FTNTEXT  *         *L*  FOR THE LENGTH OF THE BIT FIELD.                                  FTNTEXT     1164     A     
 FTNTEXT  *              *L.* SYMBOLS WILL BE DEFINED ONLY IF *L.NAM* .NE. 1.              FTNTEXT     1165     A     
 FTNTEXT  *         *T*  FOR VALUES IN THE TYPE FIELD.                                     FTNTEXT     1166     A     
 FTNTEXT  *         *V*  FOR THE VALUES OF BITS WHERE *P.NAME* IS .LT. 17.                 FTNTEXT     1167     A     
 FTNTEXT            TITLE              SYMBOL TABLE BIT DEFINITIONS                        FTNTEXT     1168     A     
 FTNTEXT  **        SYMBOL TABLE BIT AND FIELD DESCRIPTIONS.                               FTNTEXT     1169     A     
 FTNTEXT                                                                                   FTNTEXT     1170     A     
 FTNTEXT  *         WORD A.                                                                FTNTEXT     1171     A     
 FTNTEXT                                                                                   FTNTEXT     1172     A     
 FTNTEXT   P.NAME   EQU    18                SYMBOL NAME                                   FTNTEXT     1173     A     
 FTNTEXT   L.NAME   EQU    42                7 CHARACTERS FOR THE NAME                     FTNTEXT     1174     A     
 FTNTEXT                                                                                   FTNTEXT     1175     A     
 FTNTEXT   P.FP     EQU    17                FORMAL PARAMETER                              FTNTEXT     1176     A     
 FTNTEXT                                                                                   FTNTEXT     1177     A     
 FTNTEXT   P.DEF    EQU    16                DEFINITION BIT ( SYMBOL STORED INTO )         FTNTEXT     1178     A     
 FTNTEXT   V.DEF    EQU    1S16              VALUE OF THE BIT                              FTNTEXT     1179     A     
 FTNTEXT                                                                                   FTNTEXT     1180     A     
 FTNTEXT   P.FUN    EQU    15                NAME USED AS A FUNCTION                       FTNTEXT     1181     A     
 FTNTEXT   V.FUN    EQU    1S15                                                            FTNTEXT     1182     A     
 FTNTEXT                                                                                   FTNTEXT     1183     A     
 FTNTEXT   P.COM    EQU    14                SYMBOL IS IN COMMON                           FTNTEXT     1184     A     
 FTNTEXT   V.COM    EQU    1S14                                                            FTNTEXT     1185     A     
 FTNTEXT                                                                                   FTNTEXT     1186     A     
 FTNTEXT   P.DIM    EQU    13                SYMBOL IS A DIMENTIONED VARIABLE              FTNTEXT     1187     A     
 FTNTEXT   V.DIM    EQU    1S13                                                            FTNTEXT     1188     A     
 FTNTEXT                                                                                   FTNTEXT     1189     A     
 FTNTEXT   P.EQU    EQU    12                NON BASE MEMBER OF AN EQUIVALENCE             FTNTEXT     1190     A     
 FTNTEXT   V.EQU    EQU    1S12              CLASS                                         FTNTEXT     1191     A     
 FTNTEXT                                                                                   FCC1319        6     A     
 FTNTEXT   P.LC     EQU    15          LABEL CHANGE BIT ( TRANSFER LABELS ONLY )           FCC1319        7     A     
 FTNTEXT   L.LCO    EQU    12          LAB CHANGE TABLE ORDINAL ( IN WORD B )              FCC1319        8     A     
 FTNTEXT                                                                                   FTNTEXT     1192     A     
 FTNTEXT  *         WORD B.                                                                FTNTEXT     1193     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 452    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT                                                                                   FTNTEXT     1194     A     
 FTNTEXT   P.TYP    EQU    56                BASE OF THE TYPE FIELD                        FTNTEXT     1195     A     
 FTNTEXT   L.TYP    EQU    4                 LENGTH OF THE TYPE FIELD                      FTNTEXT     1196     A     
 FTNTEXT                                                                                   FTNTEXT     1197     A     
 FTNTEXT   T.LOG    EQU    0                 TYPE LOGICAL                                  FTNTEXT     1198     A     
 FTNTEXT   T.INT    EQU    1                 TYPE INTEGER                                  FTNTEXT     1199     A     
 FTNTEXT   T.REAL   EQU    2                 TYPE REAL                                     FTNTEXT     1200     A     
 FTNTEXT   T.DBL    EQU    3                 DOUBLE PRECISION                              FTNTEXT     1201     A     
 FTNTEXT   T.CPLX   EQU    4                 TYPE COMPLEX                                  FTNTEXT     1202     A     
 FTNTEXT   T.OCT    EQU    5                 TYPE OCTAL ( IN E LIST CONSTANTS ONLY         FTNTEXT     1203     A     
 FTNTEXT   T.ILL    EQU    5                 TYPES \ TO THIS ARE ILLEGAL IN                FTNTEXT     1204     A     
 FTNTEXT  *                                  EXPRESSIONS                                   FTNTEXT     1205     A     
 FTNTEXT   T.HOL    EQU    6                 TYPE HOL ( IN ELIST CONSTANTS ONLY )          FTNTEXT     1206     A     
 FTNTEXT   T.ECS    EQU    5                 ECS VARIABLE OR ARRAY                         FTNTEXT     1207     A     
 FTNTEXT   T.LAB    EQU    6                 STMT NUMBERS, FORMAT OR GENERATED LAB         FTNTEXT     1208     A     
 FTNTEXT   T.RTN    EQU    7                 RETURN S FORMAL PARAMETER                     FTNTEXT     1209     A     
 FTNTEXT   T.NML    EQU    10B               NAMELIST GROUP NAME                           FTNTEXT     1210     A     
 FTNTEXT   T.ENT    EQU    12B               ENTRY POINT NAME                              FTNTEXT     1211     A     
 FTNTEXT   T.LFN    EQU    13B               LOGICAL FILE NAME                             FTNTEXT     1212     A     
 FTNTEXT   T.CGS    EQU    14B               COMPILER GENERATED SYMBOL                     FTNTEXT     1213     A     
 FTNTEXT   T.DBG    EQU    17B               UNREFERENCED NAME PLACED IN THE               FTNTEXT     1214     A     
 FTNTEXT  *                                  SYMBOL TABLE BY THE DEBUG PROCESSOR           FTNTEXT     1215     A     
 FTNTEXT                                                                                   FTNTEXT     1216     A     
 FTNTEXT   P.ASF    EQU    55                ARITHMETIC STMT FUNCTION                      FTNTEXT     1217     A     
 FTNTEXT   P.EXT    EQU    54                EXTERNAL REFERENCE                            FTNTEXT     1218     A     
 FTNTEXT   P.EST    EQU    53          IN EXTERNAL STATEMENT                               FCC1716X       7     A     
 FTNTEXT                                                                                   FTNTEXT     1219     A     
 FTNTEXT   P.DIMP   EQU    41                ORDINAL TO DIMTAB (1,2,3,...)                 FTNTEXT     1220     A     
 FTNTEXT   L.DIMP   EQU    12                                                              FTNTEXT     1221     A     
 FTNTEXT                                                                                   FTNTEXT     1222     A     
 FTNTEXT   P.SCA    EQU    11          DIMP = SCAP BIT IN WORD B.                          FTNTEXT     1223     A     
 FTNTEXT   V.SCA    EQU    1S11                                                            FTNTEXT     1224     A     
 FTNTEXT                                                                                   FTNTEXT     1225     A     
 FTNTEXT   P.SUB    EQU    10          SET BY PASS 2 IXFN PROCESSOR IF USED AS             FTNTEXT     1226     A     
 FTNTEXT   V.SUB    EQU    1S10        A SUBSCRIPT                                         FTNTEXT     1227     A     
 FTNTEXT                                                                                   FCC1088        6     A     
 FTNTEXT   P.LDO    EQU    9           =1 IF VAR IS LD ONLY ( CON. , HOL. , ETC )          FCC1088        7     A     
 FTNTEXT   V.LDO    EQU    1S9                                                             FCC1088        8     A     
 FTNTEXT                                                                                   FTNTEXT     1228     A     
 FTNTEXT   P.VAR    EQU    40                NAME USED AS A VARIABLE                       FTNTEXT     1229     A     
 FTNTEXT                                                                                   FTNTEXT     1230     A     
 FTNTEXT   P.FMODE  EQU    P.DIMP            FILE MODE ( SET BY LISTIO )                   FTNTEXT     1231     A     
 FTNTEXT   L.FMODE  EQU    5                                                               FTNTEXT     1232     A     
 FTNTEXT                                                                                   RSM3545C      31     A     
 FTNTEXT   P.NFU    EQU    5B                NOT FIRST USE BIT, USED BY *FAX*              RSM3545C      32     A     
 FTNTEXT                                                                                   FTNTEXT     1233     A     
 FTNTEXT   P.LOCF   EQU    4           =1 IF VAR IS ARG TO *LOCF* FUNCTION                 FCC0807        5     A     
 FTNTEXT                                                                                   RSM3545C      33     A     
 FTNTEXT   P.LCM    EQU    1           LCM RESIDENT BIT                                    FTNTEXT     1234     A     
 FTNTEXT   P.FPB    EQU    0           FP BIT IN WORD B                                    FTNTEXT     1235     A     
 FTNTEXT                                                                                   FTNTEXT     1236     A     
 FTNTEXT   P.LVL    EQU    2                                                               FTNTEXT     1237     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 453    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT   L.LVL    EQU    2                                                               FTNTEXT     1238     A     
 FTNTEXT                                                                                   FTNTEXT     1239     A     
 FTNTEXT  *         FIELDS USED FOR ADDRESS DEFINITION.                                    FTNTEXT     1240     A     
 FTNTEXT                                                                                   FTNTEXT     1241     A     
 FTNTEXT   P.RL     EQU    37                RELOCATION TYPE                               FTNTEXT     1242     A     
 FTNTEXT   L.RL     EQU    2                 ABS , PROGRAM , COMMON AND EXTERNAL           FTNTEXT     1243     A     
 FTNTEXT   P.RL     MICRO  1,,/37/                                                         FTNTEXT     1244     A     
 FTNTEXT                                                                                   FTNTEXT     1245     A     
 FTNTEXT   P.RA     EQU    19          RELATIVE ADDRESS / F.P. BLOCK LENGTH                FTNTEXT     1246     A     
 FTNTEXT   L.RA     EQU    18                                                              FTNTEXT     1247     A     
 FTNTEXT                                                                                   FTNTEXT     1248     A     
 FTNTEXT   P.RB     EQU    12                RELOCATION BASE ORDINAL                       FTNTEXT     1249     A     
 FTNTEXT   L.RB     EQU    7                 1 - 61 FOR COMMON BLOCKS                      FTNTEXT     1250     A     
 FTNTEXT   P.RB     MICRO  1,,/12/           0 - 6 FOR LOCAL BLOCKS                        FTNTEXT     1251     A     
 FTNTEXT  *                                  AND 7 - 70 FOR FORMAL PARAMETERS              FTNTEXT     1252     A     
 FTNTEXT   M.NCB    EQU    127               MAXIMUM NUMBER OF COMMON BLOCKS               FTNTEXT     1253     A     
 FTNTEXT                                                                                   FTNTEXT     1254     A     
 FTNTEXT   P.ADF    EQU    P.RB              ADDRESS DEFINITION FIELD                      FTNTEXT     1255     A     
 FTNTEXT   L.ADF    EQU    L.RL+L.RA+L.RB                                                  FTNTEXT     1256     A     
 FTNTEXT                                                                                   FTNTEXT     1257     A     
 FTNTEXT  *         BITS FOR THE DEBUG PROCESSOR ( PASS 1 ONLY ).                          FTNTEXT     1258     A     
 FTNTEXT                                                                                   FTNTEXT     1259     A     
 FTNTEXT   P.SNT    EQU    35                SAVED NATURAL TYPE                            FTNTEXT     1260     A     
 FTNTEXT   L.SNT    EQU    3                                                               FTNTEXT     1261     A     
 FTNTEXT                                                                                   FTNTEXT     1262     A     
 FTNTEXT   P.DIF    EQU    31                BASE OF 4 BIT DEBUG FLAG FIELD                FTNTEXT     1263     A     
 FTNTEXT   L.DIF    EQU    4                                                               FTNTEXT     1264     A     
 FTNTEXT                                                                                   FTNTEXT     1265     A     
 FTNTEXT   P.NOT    EQU    P.DIF                                                           FTNTEXT     1266     A     
 FTNTEXT   P.IF     EQU    P.DIF+1                                                         FTNTEXT     1267     A     
 FTNTEXT   P.SF     EQU    P.DIF+2           STORES OR FUNC                                FTNTEXT     1268     A     
 FTNTEXT   P.AC     EQU    P.DIF+3           ARRAYS OR CALLS                               FTNTEXT     1269     A     
 FTNTEXT                                                                                   FTNTEXT     1270     A     
 FTNTEXT   P.DTO    EQU    19                DEBUG TABLE ORDINAL                           FTNTEXT     1271     A     
 FTNTEXT   L.DTO    EQU    12                                                              FTNTEXT     1272     A     
 FTNTEXT                                                                                   FTNTEXT     1273     A     
 FTNTEXT   P.DBGI   EQU    P.DTO             BASE OF DEBUG FIELD                           FTNTEXT     1274     A     
 FTNTEXT   L.DBGI   EQU    L.DTO+L.DIF       LENGTH                                        FTNTEXT     1275     A     
 FTNTEXT                                                                                   FTNTEXT     1276     A     
 FTNTEXT  *         BITS SET FOR A FUNCTION OR SUBROUTINE.                                 FTNTEXT     1277     A     
 FTNTEXT                                                                                   FTNTEXT     1278     A     
 FTNTEXT   P.FARG   EQU    46                NUMBER OF ARGUMENTS                           FTNTEXT     1279     A     
 FTNTEXT   L.FARG   EQU    6                                                               FTNTEXT     1280     A     
 FTNTEXT                                                                                   FTNTEXT     1281     A     
 FTNTEXT   P.LIB    EQU    45                LIBRARY FUNCTION                              FTNTEXT     1282     A     
 FTNTEXT   P.IOF    EQU    43          I/O FUNCTION                                        FTNTEXT     1283     A     
 FTNTEXT   P.BEF    EQU    42                BEF CALL BY VALUE                             FTNTEXT     1284     A     
 FTNTEXT   P.INF    EQU    41          INTRINSIC FUNCTION                                  FTNTEXT     1285     A     
 FTNTEXT   P.FCALL  EQU    39          = 1 AFTER FIRST CALL                                FCC2305       13     A     
 FTNTEXT                                                                                   FTNTEXT     1286     A     
 FTNTEXT   P.FTYP   EQU    P.BEF       BASE OF FUNCTION TYPE FIELD                         FTNTEXT     1287     A     
 FTNTEXT   L.FTYP   EQU    2                                                               FTNTEXT     1288     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 454    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT                                                                                   FTNTEXT     1289     A     
 FTNTEXT  *         WORD B ( FOR LABELS ).                                                 FTNTEXT     1290     A     
 FTNTEXT                                                                                   FTNTEXT     1291     A     
 FTNTEXT   P.GEN    EQU    55                DO GENERATED LABELS                           FTNTEXT     1292     A     
 FTNTEXT                                                                                   FTNTEXT     1293     A     
 FTNTEXT  *         FOR LABELS NOT GENERATED BY THE COMPILER THE BITS OF WORD B            FTNTEXT     1294     A     
 FTNTEXT  *         HAVE THE FOLLOWING MEANINGS --                                         FTNTEXT     1295     A     
 FTNTEXT                                                                                   FTNTEXT     1296     A     
 FTNTEXT   P.RZ     EQU    54                FOR DO LOOPS                                  FTNTEXT     1297     A     
 FTNTEXT   P.RSN    EQU    53                REFERENCED AS STMT NO - ACTIVE LABEL          FTNTEXT     1298     A     
 FTNTEXT  *                                  BIT MAY BE CLEARED BY OPTIMIZERS              FTNTEXT     1299     A     
 FTNTEXT   P.DSN    EQU    52                LABEL DEFINED AS A STMT NUMBER                FTNTEXT     1300     A     
 FTNTEXT   P.DFN    EQU    51                LABEL DEFINED AS A FORMAT NUMBER              FTNTEXT     1301     A     
 FTNTEXT   P.RFN    EQU    50                LABEL REFERENCED AS A FORMAT NUMBER           FTNTEXT     1302     A     
 FTNTEXT   P.RAS    EQU    49                REFERENCED IN CONTEXT AS A STMT NO            FTNTEXT     1303     A     
 FTNTEXT  *                                  THIS BIT IS USED FOR ERROR CHECKING           FTNTEXT     1304     A     
 FTNTEXT   P.DLT    EQU    48                USED AS A DO LOOP TERMINATOR                  FTNTEXT     1305     A     
 FTNTEXT                                                                                   FTNTEXT     1306     A     
 FTNTEXT   P.SLD    EQU    P.DFN             STMT LABEL DEFINITION FIELD                   FTNTEXT     1307     A     
 FTNTEXT   L.SLD    EQU    2                                                               FTNTEXT     1308     A     
 FTNTEXT                                                                                   FTNTEXT     1309     A     
 FTNTEXT  *         BITS SET FOR A STMT NUMBER THAT ARE USED TO CHECK FOR                  FTNTEXT     1310     A     
 FTNTEXT  *         CONFLICTING USE OF A LABEL BY FORMAT LABEL PROCESSORS.                 FTNTEXT     1311     A     
 FTNTEXT                                                                                   FTNTEXT     1312     A     
 FTNTEXT   )ZZ      BIT    P.DSN-P.DLT                                                     FTNTEXT     1313     A     
 FTNTEXT   )ZZ1     BIT    P.RAS-P.DLT                                                     FTNTEXT     1314     A     
 FTNTEXT   M.FNCHK  EQU    )ZZ+)ZZ1+1        BIT MASK TO CHECK FOR FMT NO USED AS          FTNTEXT     1315     A     
 FTNTEXT   P.FNCHK  EQU    P.DLT             STMT LABEL                                    FTNTEXT     1316     A     
 FTNTEXT                                                                                   FTNTEXT     1317     A     
 FTNTEXT  *         WORD B FIELDS FOR STATEMENT NUMBERS.                                   FTNTEXT     1318     A     
 FTNTEXT                                                                                   FTNTEXT     1319     A     
 FTNTEXT   P.LOR    EQU    12                LOOP ORDINAL IN WHICH LABEL IS                FTNTEXT     1320     A     
 FTNTEXT  *                                  REFERENCED                                    FTNTEXT     1321     A     
 FTNTEXT   L.LOR    EQU    12                                                              FTNTEXT     1322     A     
 FTNTEXT                                                                                   FTNTEXT     1323     A     
 FTNTEXT   P.TRO    EQU    24                LABEL TRACE ORDINAL ( D OPTION )              FTNTEXT     1324     A     
 FTNTEXT   L.TRO    EQU    12                                                              FTNTEXT     1325     A     
 FTNTEXT                                                                                   FTNTEXT     1326     A     
 FTNTEXT   P.DLN    EQU    36                LINE NO LABEL IS DEFINED ON ( DUKE )          FTNTEXT     1327     A     
 FTNTEXT   L.DLN    EQU    12                                                              FTNTEXT     1328     A     
 FTNTEXT                                                                                   FTNTEXT     1329     A     
 FTNTEXT   V.OPT    EQU    127B              BITS INHIBITING LOOP OPTIMIZATION             FTNTEXT     1330     A     
 FTNTEXT                                                                                   FTNTEXT     1331     A     
 FTNTEXT  *         WORD B FIELDS FOR DO-GENERATED LABELS.                                 FTNTEXT     1332     A     
 FTNTEXT                                                                                   FTNTEXT     1333     A     
 FTNTEXT   P.FLG    =      48                                                              FTNTEXT     1334     A     
 FTNTEXT   L.FLG    =      7                                                               FTNTEXT     1335     A     
 FTNTEXT                                                                                   FTNTEXT     1336     A     
 FTNTEXT   P.TTLN   =      24                DO-BEGIN LINE NUMBER                          FTNTEXT     1337     A     
 FTNTEXT   L.TTLN   =      L.DLN                                                           FTNTEXT     1338     A     
 FTNTEXT            SPACE  4                                                               FEAT1070C     58     A     
 FTNTEXT  ***       OUTSYM - MACRO TO DUMP A TABLE TO FILE ZZZZZSY                         FEAT1070C     59     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 455    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT  *                                                                                FEAT1070C     60     A     
 FTNTEXT   OUTSYM   MACRO  TABTYPE,FWA,LENGTH                                              FEAT1070C     61     A     
 FTNTEXT            IFC    NE,*X2*FWA*,1                                                   FEAT1070C     62     A     
 FTNTEXT            SX2    FWA                                                             FEAT1070C     63     A     
 FTNTEXT            IFC    NE,*X3*LENGTH*,1                                                FEAT1070C     64     A     
 FTNTEXT            SX3    LENGTH                                                          FEAT1070C     65     A     
 FTNTEXT            SX6    TABTYPE                                                         FEAT1070C     66     A     
 FTNTEXT            IFEQ   TABTYPE,ZZ.SYM                                                  FEAT1070C     67     A     
 FTNTEXT            SA1    =XCO.ER     ER FLAG                                             FEAT1070C     68     A     
 FTNTEXT            SA5    =XCO.OLVL   OPT LEVEL                                           FEAT1070C     69     A     
 FTNTEXT            LX1    1+2                                                             FEAT1070C     70     A     
 FTNTEXT            BX5    X5+X1       1/ER,2/OPT                                          FEAT1070C     71     A     
 FTNTEXT            ELSE   1                                                               FEAT1070C     72     A     
 FTNTEXT            MX5    0           ONLY PASS OPT INFO FOR SYMBOL TABLES                FEAT1070C     73     A     
 FTNTEXT            RJ     =XPUTTAB                                                        FEAT1070C     74     A     
 FTNTEXT            ENDM                                                                   FEAT1070C     75     A     
 FTNTEXT            TITLE  MACROS AND EQUS FOR PASS 1                                      FTNTEXT     1339     A     
 FTNTEXT  *         LENGTHS OF THE VARIOUS FIELDS IN THE R-MACRO WORDS.                    FTNTEXT     1340     A     
 FTNTEXT                                                                                   FTNTEXT     1341     A     
 FTNTEXT   RM.IHL   EQU    30          IH                                                  FTNTEXT     1342     A     
 FTNTEXT   RM.RIL   EQU    16          RI ( R-NUMBER )                                     FTNTEXT     1343     A     
 FTNTEXT   RM.CAL   EQU    18          CA ( CONSTANTS )                                    FTNTEXT     1344     A     
 FTNTEXT   EREXIT   SPACE  4,8                                                             FTNTEXT     1345     A     
 FTNTEXT            MACRO  EREXIT,LOC,ERNUM  ERROR EXIT MACRO                              FTNTEXT     1346     A     
 FTNTEXT   LOC      BSS    0                                                               FTNTEXT     1347     A     
 FTNTEXT            SB6    ERNUM                                                           FTNTEXT     1348     A     
 FTNTEXT  (LOC      EQU    *                                                               FTNTEXT     1349     A     
 FTNTEXT   EREXIT   ENDM                                                                   FTNTEXT     1350     A     
 FTNTEXT   RMHDR    SPACE  4,8                                                             FTNTEXT     1351     A     
 FTNTEXT  **        RMHDR - FORM AN R-LIST MACRO HEADER WORD.                              FTNTEXT     1352     A     
 FTNTEXT  *                MACNUM = RLIST MACRO ORDINAL                                    FTNTEXT     1353     A     
 FTNTEXT  *                IN = WORD COUNT FOR THE REST OF THE MACRO                       FTNTEXT     1354     A     
 FTNTEXT  *                                                                                FTNTEXT     1355     A     
 FTNTEXT   RMHDR    MACRO  MACNUM,IN                                                       FTNTEXT     1356     A     
 FTNTEXT            VFD    12/1777B-MACNUM,18/IN,30/0                                      FTNTEXT     1357     A     
 FTNTEXT            ENDM                                                                   FTNTEXT     1358     A     
 FTNTEXT   RMEQU    SPACE  4,8                                                             FTNTEXT     1359     A     
 FTNTEXT  **        RMEQU - DEFINE AN R-MACRO MACRO ORDINAL                                FTNTEXT     1360     A     
 FTNTEXT  *                                                                                FTNTEXT     1361     A     
 FTNTEXT  * A       RMEQU  B                                                               FTNTEXT     1362     A     
 FTNTEXT  *                                                                                FTNTEXT     1363     A     
 FTNTEXT  *                A = SYMBOL TO BE DEFINED                                        FTNTEXT     1364     A     
 FTNTEXT  *                B = NUMERIC VALUE OF SYMBOL OR BLANK                            FTNTEXT     1365     A     
 FTNTEXT  *                IF B IS BLANK THEN A = MACNUM                                   FTNTEXT     1366     A     
 FTNTEXT                                                                                   FTNTEXT     1367     A     
 FTNTEXT            MACRO  RMEQU,A,B                                                       FTNTEXT     1368     A     
 FTNTEXT   A = B MACNUM                                                                    FTNTEXT     1369     A     
 FTNTEXT   MACNUM SET A+1                                                                  FTNTEXT     1370     A     
 FTNTEXT   RMEQU    ENDM                                                                   FTNTEXT     1371     A     
 FTNTEXT   OUTUSE   SPACE  4,8                                                             FTNTEXT     1372     A     
 FTNTEXT  **        OUTUSE - OUTPUT A *  USE NAME* STATEMENT FOR A LOCAL RB.               FTNTEXT     1373     A     
 FTNTEXT  *                                                                                FTNTEXT     1374     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 456    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT   OUTUSE   MACRO  NAME                                                            FTNTEXT     1375     A     
 FTNTEXT            LOCAL  N                                                               FTNTEXT     1376     A     
 FTNTEXT   N        MICRO  1,6,/NAME/                                                      FTNTEXT     1377     A     
 FTNTEXT            SX6    =XU"N"                                                          FTNTEXT     1378     A     
 FTNTEXT            RJ     =XOUTUSE                                                        FTNTEXT     1379     A     
 FTNTEXT   OUTUSE   ENDM                                                                   FTNTEXT     1380     A     
 FTNTEXT   POSTER   SPACE  4,40                                                            FTNTEXT     1381     A     
 FTNTEXT  **        POSTER - POST ERROR MESSAGE TO ERROR TABLE.                            FTNTEXT     1382     A     
 FTNTEXT  *                                                                                FTNTEXT     1383     A     
 FTNTEXT  *         *POSTER* MAY BE CALLED DURING PASS 1 ONLY.                             FTNTEXT     1384     A     
 FTNTEXT  *         POSTS ERROR MESSAGE NUMBER, SOURCE LINE NUMBER AND 10-CHARAC           FTNTEXT     1385     A     
 FTNTEXT  *         CALLER TEXT TO THE PASS 1 ERROR TABLE.  AT THE END OF PASS 1,          FTNTEXT     1386     A     
 FTNTEXT  *         *FTNMSG* (2,3 OVERLAY) IS LOADED TO LIST THE CORRESPONDING             FTNTEXT     1387     A     
 FTNTEXT  *         ERROR MESSAGE, INCLUDING LINE NUMBER AND TEXT.                         FTNTEXT     1388     A     
 FTNTEXT  *                                                                                FTNTEXT     1389     A     
 FTNTEXT  *                                                                                FTNTEXT     1390     A     
 FTNTEXT  *         POSTER    NR=,SEV=,FMT=,TXT=,RETURN=                                   FTNTEXT     1391     A     
 FTNTEXT  *                                                                                FTNTEXT     1392     A     
 FTNTEXT  *         ENTRY  *NR*     = ERROR MESSAGE NUMBER (AS IN -FTNMSG-).               FTNTEXT     1393     A     
 FTNTEXT  *                           MAY BE SET TO /**/.  CALLER THEN ACCEPTS             FTNTEXT     1394     A     
 FTNTEXT  *                           RESPONSIBILITY FOR (X3), (X4) AND (B6).              FTNTEXT     1395     A     
 FTNTEXT  *                           *RETURN* AND *SEV* WILL STILL BE ACCEPTED.           FTNTEXT     1396     A     
 FTNTEXT  *                *SEV*    = SEVERITY CODE, AS FOLLOWS --                         FTNTEXT     1397     A     
 FTNTEXT  *                           *ANSI* = NON-ANSI INFORMATIVE MESSAGE, TO BE         FTNTEXT     1398     A     
 FTNTEXT  *                                    LISTED ONLY IF -X- LIST OPTION ON.          FTNTEXT     1399     A     
 FTNTEXT  *                           *FC*   = FATAL-TO-COMPILATION ERROR.                 FTNTEXT     1400     A     
 FTNTEXT  *                           *FE*   = FATAL-TO-EXECUTION ERROR.                   FTNTEXT     1401     A     
 FTNTEXT  *                           *INF*  = INFORMATIVE ERROR MESSAGE.                  FTNTEXT     1402     A     
 FTNTEXT  *                *FMT*    = FORMAT OF TEXT WORD TO BE INSERTED IN THE            FTNTEXT     1403     A     
 FTNTEXT  *                           ERROR MESSAGE LISTING LINE.  VALUES ARE --           FTNTEXT     1404     A     
 FTNTEXT  *                          *DPC*   = 8 DISPLAY-CODED CHARAC, -R- FORMAT          FTNTEXT     1405     A     
 FTNTEXT  *                          *ELIST* = E-LIST ENTRY (12/OP CODE, 48/MISC )         FTNTEXT     1406     A     
 FTNTEXT  *                           IF OMITTED, NO TEXT IS INSERTED.                     FTNTEXT     1407     A     
 FTNTEXT  *                *TXT*    = X-REGISTER CONTAINING TEXT WORD, OR ADDRESS          FTNTEXT     1408     A     
 FTNTEXT  *                           EXPRESSION FOR TEXT WORD LOCATION.                   FTNTEXT     1409     A     
 FTNTEXT  *                           MAY NOT BE BLANK IF *FMT* SPECIFIED.                 FTNTEXT     1410     A     
 FTNTEXT  *                *RETURN* = RETURN ADDRESS EXPRESSION, OR BLANK.                 FTNTEXT     1411     A     
 FTNTEXT  *                           IF BLANK, RETURNS TO PRESENT CODE SEQUENCE.          FTNTEXT     1412     A     
 FTNTEXT  *                           IGNORED IF *SEV=FC*.                                 FTNTEXT     1413     A     
 FTNTEXT  *                                                                                FTNTEXT     1414     A     
 FTNTEXT  *         EXIT   IF *SEV=FC*, CALLER SURRENDERS CONTROL TO ERROR                 FTNTEXT     1415     A     
 FTNTEXT  *                PROCESSING.  REST OF CURRENT STATEMENT WILL BE IGNORED,         FTNTEXT     1416     A     
 FTNTEXT  *                AND COMPILER BEGINS AN ERROR-SCAN-ONLY MODE.  NO OBJECT         FTNTEXT     1417     A     
 FTNTEXT  *                CODE WILL BE GENERATED.                                         FTNTEXT     1418     A     
 FTNTEXT  *                IF *SEV* = ELSE, *RETURN* PARAMETER IS HONORED.                 FTNTEXT     1419     A     
 FTNTEXT  *                                                                                FTNTEXT     1420     A     
 FTNTEXT  *         USES   X - 3, 4                                                        FTNTEXT     1421     A     
 FTNTEXT  *                A - 3, 4                                                        FTNTEXT     1422     A     
 FTNTEXT  *                B - 4, 6, 7                                                     FTNTEXT     1423     A     
 FTNTEXT  *                                                                                FTNTEXT     1424     A     
 FTNTEXT  *         CALLS  ERPRO, XR=                                                      FTNTEXT     1425     A     
 FTNTEXT                                                                                   FTNTEXT     1426     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 457    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT                                                                                   FTNTEXT     1427     A     
 FTNTEXT            PURGMAC   POSTER                                                       FTNTEXT     1428     A     
 FTNTEXT                                                                                   FTNTEXT     1429     A     
 FTNTEXT   POSTER   MACROE NR,SEV,TXT,FMT,RETURN                                           FTNTEXT     1430     A     
 FTNTEXT            IFC    NE, NR ** ,10                                                   FTNTEXT     1431     A     
 FTNTEXT  *                            SET DISPLAY-CODED TEXT FORMAT.                      FTNTEXT     1432     A     
 FTNTEXT            IFC    EQ, FMT DPC ,4                                                  FTNTEXT     1433     A     
 FTNTEXT            XR=    X3,TXT                                                          FTNTEXT     1434     A     
 FTNTEXT            BX4    X4-X4                                                           FTNTEXT     1435     A     
 FTNTEXT            R=     B6,NR                                                           FTNTEXT     1436     A     
 FTNTEXT            SKIP   5                                                               FTNTEXT     1437     A     
 FTNTEXT  *                            SET E-LIST TEXT FORMAT.                             FTNTEXT     1438     A     
 FTNTEXT            IFC    EQ, FMT ELIST ,3                                                FTNTEXT     1439     A     
 FTNTEXT            XR=    X4,TXT                                                          FTNTEXT     1440     A     
 FTNTEXT            R=     B6,NR                                                           FTNTEXT     1441     A     
 FTNTEXT            SKIP   1                                                               FTNTEXT     1442     A     
 FTNTEXT  *                            SET ERROR NUMBER (NO TEXT).                         FTNTEXT     1443     A     
 FTNTEXT            R=     B6,-NR                                                          FTNTEXT     1444     A     
 FTNTEXT  *                            SET RETURN ADDRESS.                                 FTNTEXT     1445     A     
 FTNTEXT            IFC    NE, SEV FC ,5                                                   FTNTEXT     1446     A     
 FTNTEXT            IFC    NE, RETURN B7 ,4                                                FTNTEXT     1447     A     
 FTNTEXT            IFEQ   TEST,0,2                                                        FTNTEXT     1448     A     
 FTNTEXT            SB7    RETURN  *+2-*P/60D                                              FTNTEXT     1449     A     
 FTNTEXT            SKIP   1                                                               FTNTEXT     1450     A     
 FTNTEXT            SB7    RETURN  *+2                                                     FTNTEXT     1451     A     
 FTNTEXT  *                            SET -ERPRO- ENTRY ADDRESS.                          FTNTEXT     1452     A     
 FTNTEXT            ECHO   8,A=(FE,INF,ANSI,FC),B=(ERPRO,ERPROI,ASAER,FATALER)             FTNTEXT     1453     A     
 FTNTEXT            IFC    EQ, SEV A ,7                                                    FTNTEXT     1454     A     
 FTNTEXT            STOPDUP                                                                FTNTEXT     1455     A     
 FTNTEXT            IFEQ   TEST,0,2                                                        FTNTEXT     1456     A     
 FTNTEXT            EQ     =X_B                                                            FTNTEXT     1457     A     
 FTNTEXT            SKIP   2                                                               FTNTEXT     1458     A     
 FTNTEXT            SB4    =X_B                                                            FTNTEXT     1459     A     
 FTNTEXT            RJ     =XTEM                                                           FTNTEXT     1460     A     
 FTNTEXT            SKIP   1                                                               FTNTEXT     1461     A     
 FTNTEXT            ERR    (SEV) BAD SEV# "SEQUENCE"                                       FTNTEXT     1462     A     
 FTNTEXT   POSTER   ENDM                                                                   FTNTEXT     1463     A     
 FTNTEXT                                                                                   FTNTEXT     1464     A     
 FTNTEXT                                                                                   FTNTEXT     1465     A     
 FTNTEXT            PURGMAC   POSTERR                                                      FTNTEXT     1466     A     
 FTNTEXT   POSTERR  OPSYN  POSTER      OBSOLETE MACRO NAME                                 FTNTEXT     1467     A     
 FTNTEXT            SPACE  3                                                               FTNTEXT     1468     A     
 FTNTEXT  **        E-LIST TYPE CODE VALUES.                                               FTNTEXT     1469     A     
 FTNTEXT                                                                                   FTNTEXT     1470     A     
 FTNTEXT   EL.CON   EQU    0                 CONSTANT                                      FTNTEXT     1471     A     
 FTNTEXT   EL.ID    EQU    1                 NAME                                          FTNTEXT     1472     A     
 FTNTEXT   EL.)     EQU    2                 RIGHT PAREN                                   FTNTEXT     1473     A     
 FTNTEXT   EL.COMMA EQU    3                 COMMA                                         FTNTEXT     1474     A     
 FTNTEXT   EL.EOS   EQU    4                 END OF STATEMENT                              FTNTEXT     1475     A     
 FTNTEXT   EL.=     EQU    5                 EQUALS SIGN                                   FTNTEXT     1476     A     
 FTNTEXT   EL.(     EQU    6                 LEFT PAREN                                    FTNTEXT     1477     A     
 FTNTEXT   EL.OR    EQU    7                 .OR.                                          FTNTEXT     1478     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 458    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT   EL.AND   EQU    10B               .AND.                                         FTNTEXT     1479     A     
 FTNTEXT   EL.NOT   EQU    11B               .NOT.                                         FTNTEXT     1480     A     
 FTNTEXT   EL.LE    EQU    12B               .LE.                                          FTNTEXT     1481     A     
 FTNTEXT   EL.LT    EQU    13B               .LT.                                          FTNTEXT     1482     A     
 FTNTEXT   EL.GE    EQU    14B               .GE.                                          FTNTEXT     1483     A     
 FTNTEXT   EL.GT    EQU    15B               .GT.                                          FTNTEXT     1484     A     
 FTNTEXT   EL.NE    EQU    16B               .NE.                                          FTNTEXT     1485     A     
 FTNTEXT   EL.EQ    EQU    17B               .EQ.                                          FTNTEXT     1486     A     
 FTNTEXT   EL.MINUS EQU    20B               -                                             FTNTEXT     1487     A     
 FTNTEXT   EL.PLUS  EQU    21B               +                                             FTNTEXT     1488     A     
 FTNTEXT   EL.STAR  EQU    22B               *                                             FTNTEXT     1489     A     
 FTNTEXT   EL.SLASH EQU    23B               /                                             FTNTEXT     1490     A     
 FTNTEXT   EL.DSTR  EQU    24B               **                                            FTNTEXT     1491     A     
 FTNTEXT   EL.S)    EQU    25B               SPECIAL PAREN FOR DO-S AND REDUNDANT          FTNTEXT     1492     A     
 FTNTEXT  *                                  PARENTHESIS                                   FTNTEXT     1493     A     
 FTNTEXT   DESCRIBE TITLE  FIELD DEFINITION MACROS                                         FTNTEXT     1494     A     
 FTNTEXT  **        DESCRIBE, DEFINE - FIELD DEFINITION MACROS.                            FTNTEXT     1495     A     
 FTNTEXT  *                                                                                FTNTEXT     1496     A     
 FTNTEXT  *         MACROS TO FACILITATE FIELD DESCRIPTION, WHERE FIELDS ARE               FTNTEXT     1497     A     
 FTNTEXT  *         SUB-WORD ENTITIES.  THE 'DESCRIBE' MACRO IS USED TO PROVIDE            FTNTEXT     1498     A     
 FTNTEXT  *         A PREFIX FOR NAMES SUPPLIED IN SUBSEQUENT 'DEFINE' REFERENCES.         FTNTEXT     1499     A     
 FTNTEXT  *         FOR EACH NAME SPECIFIED, THE FOLLOWING SYMBOLS WILL BE                 FTNTEXT     1500     A     
 FTNTEXT  *         DEFINED0                                                               FTNTEXT     1501     A     
 FTNTEXT  *                                                                                FTNTEXT     1502     A     
 FTNTEXT  *                PFX_NAME_P -- THE BIT POSITION OF THE RIGHT MOST BIT            FTNTEXT     1503     A     
 FTNTEXT  *                              WHICH COMPRISES THE NAMED FIELD (WITHIN           FTNTEXT     1504     A     
 FTNTEXT  *                              A WORD BITS ARE NUMBERED ACCORDING TO             FTNTEXT     1505     A     
 FTNTEXT  *                              THE POWER OF TWO WHICH THEY REPRESENT)            FTNTEXT     1506     A     
 FTNTEXT  *                PFX_NAME_L -- THE LENGTH IN BITS OF THE FIELD                   FTNTEXT     1507     A     
 FTNTEXT  *                                                                                FTNTEXT     1508     A     
 FTNTEXT  *         FIELDS ARE NOT PERMITTED TO SPAN WORD BOUNDARIES (A FATAL-TO-          FTNTEXT     1509     A     
 FTNTEXT  *         ASSEMBLY ERROR WILL RESULT) OR TO GO BEYOND THE TOTAL NUMBER           FTNTEXT     1510     A     
 FTNTEXT  *         OF BITS WHICH THE ENTIRE SET OF FIELDS IS SUPPOSED TO OCCUPY.          FTNTEXT     1511     A     
 FTNTEXT  *                                                                                FTNTEXT     1512     A     
 FTNTEXT  *         'DESCRIBE' REFERENCE --                                                FTNTEXT     1513     A     
 FTNTEXT  *                                                                                FTNTEXT     1514     A     
 FTNTEXT  *                DESCRIBE PFX,BITSLONG,TOPBIT                                    FTNTEXT     1515     A     
 FTNTEXT  *                                                                                FTNTEXT     1516     A     
 FTNTEXT  *         WHERE  PFX  IS THE PREFIX MENTIONED ABOVE,                             FTNTEXT     1517     A     
 FTNTEXT  *           BITSLONG  IS THE TOTAL LENGTH IN BITS OF THE STRUCTURE,              FTNTEXT     1518     A     
 FTNTEXT  *                     IF NOT PRESENT A VALUE OF 60 IS ASSUMED,                   FTNTEXT     1519     A     
 FTNTEXT  *             TOPBIT  THE BEGINNING (I.E. LEFTMOST) BIT OF THE STRUCTURE         FTNTEXT     1520     A     
 FTNTEXT  *                     IF ABSENT "BITSLONG-1" IS THE DEFAULT VALUE                FTNTEXT     1521     A     
 FTNTEXT  *                                                                                FTNTEXT     1522     A     
 FTNTEXT  *         'DEFINE' REFERENCE --                                                  FTNTEXT     1523     A     
 FTNTEXT  *         NAME   DEFINE  LENGTH,RESET                                            FTNTEXT     1524     A     
 FTNTEXT  *                                                                                FTNTEXT     1525     A     
 FTNTEXT  *         WHERE NAME IS THE NAME OF THE FIELD MENTIONED ABOVE, IF NOT            FTNTEXT     1526     A     
 FTNTEXT  *                    PRESENT THEN THE REFERENCE WILL ACT AS FILLER.              FTNTEXT     1527     A     
 FTNTEXT  *             LENGTH IS THE BIT LENGTH OF THE FIELD (OR FILLER), A VALUE         FTNTEXT     1528     A     
 FTNTEXT  *                    ONE IS ASSUMED IF THIS PARAMETER IS OMITTED                 FTNTEXT     1529     A     
 FTNTEXT  *              RESET IF PRESENT, WILL CAUSE THE NAMED FIELD TO BE                FTNTEXT     1530     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 459    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT  *                    DEFINED RELATIVE TO BIT POSITION 'RESET' AS THE             FTNTEXT     1531     A     
 FTNTEXT  *                    TOPMOST (LEFTMOST) BIT.                                     FTNTEXT     1532     A     
 FTNTEXT  *                                                                                FTNTEXT     1533     A     
 FTNTEXT  *         UNLESS THE 'RESET' PARAMETER OCCURS, EACH 'DEFINE' IS                  FTNTEXT     1534     A     
 FTNTEXT  *         CONSIDERED TO REFERENCE A FIELD BEGINNING TO THE IMMEDIATE             FTNTEXT     1535     A     
 FTNTEXT  *         RIGHT OF THE PRECEDING FIELD.                                          FTNTEXT     1536     A     
 FTNTEXT  *                                                                                FTNTEXT     1537     A     
 FTNTEXT  *         CONSIDER THE FOLLOWING EXAMPLE                                         FTNTEXT     1538     A     
 FTNTEXT  *                                                                                FTNTEXT     1539     A     
 FTNTEXT  *         TABLE X      .------.-------.------.                                   FTNTEXT     1540     A     
 FTNTEXT  *                      . TYPE   VALUE . SUBV .  (SAY FOR TYPE @ 100)             FTNTEXT     1541     A     
 FTNTEXT  *                      .------.-------.------.                                   FTNTEXT     1542     A     
 FTNTEXT  *                       '      '       '     '                                   FTNTEXT     1543     A     
 FTNTEXT  *                      59     47      17     0                                   FTNTEXT     1544     A     
 FTNTEXT  *                                                                                FTNTEXT     1545     A     
 FTNTEXT  *                 OR   .------.--------------.                                   FTNTEXT     1546     A     
 FTNTEXT  *                      . TYPE . MESSAGE      .  (FOR TYPE > 100)                 FTNTEXT     1547     A     
 FTNTEXT  *                      .------.--------------.                                   FTNTEXT     1548     A     
 FTNTEXT  *                       '      '             '                                   FTNTEXT     1549     A     
 FTNTEXT  *                      59     47             0                                   FTNTEXT     1550     A     
 FTNTEXT  *                                                                                FTNTEXT     1551     A     
 FTNTEXT  *                DESCRIBE X.,60    TABLE X, THE PREFIX TO BE USED IS THE         FTNTEXT     1552     A     
 FTNTEXT  *                                  TWO CHARACTERS 'X.'                           FTNTEXT     1553     A     
 FTNTEXT  *         TYPE   DEFINE  12                                                      FTNTEXT     1554     A     
 FTNTEXT  *         MSG    DEFINE  48                                                      FTNTEXT     1555     A     
 FTNTEXT  *         VALUE  DEFINE  X.MSGP+47                                               FTNTEXT     1556     A     
 FTNTEXT  *         SUBV   DEFINE  18                                                      FTNTEXT     1557     A     
 FTNTEXT  *                                                                                FTNTEXT     1558     A     
 FTNTEXT  *       THE SYMBOLS DEFINED WOULD BE                                             FTNTEXT     1559     A     
 FTNTEXT  *                                                                                FTNTEXT     1560     A     
 FTNTEXT  *                X.TYPEP   EQU  48                                               FTNTEXT     1561     A     
 FTNTEXT  *                X.TYPEL   EQU  12                                               FTNTEXT     1562     A     
 FTNTEXT  *                X.MSGP    EQU   0                                               FTNTEXT     1563     A     
 FTNTEXT  *                X.MSGL    EQU  48                                               FTNTEXT     1564     A     
 FTNTEXT  *                X.VALUEP  EQU  18                                               FTNTEXT     1565     A     
 FTNTEXT  *                X.VALUEL  EQU  30                                               FTNTEXT     1566     A     
 FTNTEXT  *                X.SUBVP   EQU   0                                               FTNTEXT     1567     A     
 FTNTEXT  *                X.SUBVL   EQU  18                                               FTNTEXT     1568     A     
 FTNTEXT                                                                                   FTNTEXT     1569     A     
 FTNTEXT   DESCRIBE MACRO  PREFIX,BITSLONG,TOPBIT                                          FTNTEXT     1570     A     
 FTNTEXT            NOREF  /"QUAL"/.B,/"QUAL"/.L,/"QUAL"/.1                                FTNTEXT     1571     A     
 FTNTEXT   .P       MICRO  1,,/PREFIX/                                                     FTNTEXT     1572     A     
 FTNTEXT   .L       SET    BITSLONG 60                                                     FTNTEXT     1573     A     
 FTNTEXT   .B       SET    TOPBIT .L-1                                                     FTNTEXT     1574     A     
 FTNTEXT   DESCRIBE ENDM                                                                   FTNTEXT     1575     A     
 FTNTEXT                                                                                   FTNTEXT     1576     A     
 FTNTEXT            MACRO  DEFINE,N,LONG,RESET                                             FTNTEXT     1577     A     
 FTNTEXT   .1       SET    LONG 1                                                          FTNTEXT     1578     A     
 FTNTEXT            IFC    NE,//RESET/,2                                                   FTNTEXT     1579     A     
 FTNTEXT   .B       SET    RESET                                                           FTNTEXT     1580     A     
 FTNTEXT   .L       SET    1000                                                            FTNTEXT     1581     A     
 FTNTEXT            IFC    NE,//N/,4                                                       FTNTEXT     1582     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 460    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT   ".P"N_P  EQU    .B-.1+1                                                         FTNTEXT     1583     A     
 FTNTEXT   ".P"N_L  EQU    .1                                                              FTNTEXT     1584     A     
 FTNTEXT            IFEQ   .1,1,1                                                          FTNTEXT     1585     A     
 FTNTEXT            NOREF  ".P"N_L                                                         FTNTEXT     1586     A     
 FTNTEXT   .L       SET    .L-.1                                                           FTNTEXT     1587     A     
 FTNTEXT   .B       SET    .B-.1                                                           FTNTEXT     1588     A     
 FTNTEXT            IFLT   .L,0,1                                                          FTNTEXT     1589     A     
 FTNTEXT             ERR    TOTAL FIELD LENGTHS ARE LONGER THAN SPECIFIED                  FTNTEXT     1590     A     
 FTNTEXT            IFLT   .B,0,3                                                          FTNTEXT     1591     A     
 FTNTEXT            IFNE   .B,-1,1                                                         FTNTEXT     1592     A     
 FTNTEXT             ERR    FIELD SPANS A WORD BOUNDARY                                    FTNTEXT     1593     A     
 FTNTEXT   .B       SET    59                                                              FTNTEXT     1594     A     
 FTNTEXT   DEFINE   ENDM                                                                   FTNTEXT     1595     A     
 FTNTEXT                                                                                   FTNTEXT     1596     A     
 FTNTEXT  **        DEQU - DEFINE EQUIVALENCED FIELDS                                      FTNTEXT     1597     A     
 FTNTEXT                                                                                   FTNTEXT     1598     A     
 FTNTEXT            MACRO  DEQU,N,B,LEN                                                    FTNTEXT     1599     A     
 FTNTEXT   ".P"N_P  EQU    ".P"B_P                                                         FTNTEXT     1600     A     
 FTNTEXT   ".P"N_L  EQU    LEN ".P"B_L                                                     FTNTEXT     1601     A     
 FTNTEXT            IFEQ   ".P"N_L,1,1                                                     FTNTEXT     1602     A     
 FTNTEXT            NOREF  ".P"N_L                                                         FTNTEXT     1603     A     
 FTNTEXT            ENDM                                                                   FTNTEXT     1604     A     
 FTNTEXT   BMFW     SPACE  3,14                                                            FTNTEXT     1605     A     
 FTNTEXT  **        BFMW - CREATE A BIT FIELD MASK WORD.                                   FTNTEXT     1606     A     
 FTNTEXT  *                                                                                FTNTEXT     1607     A     
 FTNTEXT  * LAB     BFMW   PREFIX,(BITLIST),SHFT                                           FTNTEXT     1608     A     
 FTNTEXT  *                                                                                FTNTEXT     1609     A     
 FTNTEXT  *         PREFIX = BIT FIELD PREFIX CHARACTERS WITH NO PERIOD.                   FTNTEXT     1610     A     
 FTNTEXT  *         BITLIST = LIST OF BIT FIELDS TO APPEAR IN MASK                         FTNTEXT     1611     A     
 FTNTEXT  *         SHFT = AMOUNT BY WHICH WORD IN REGISTERS HAS BEEN SHIFTED              FTNTEXT     1612     A     
 FTNTEXT                                                                                   FTNTEXT     1613     A     
 FTNTEXT            MACRO  BFMW,LAB,PR,BIT,SHFT                                            FTNTEXT     1614     A     
 FTNTEXT            IFC    NE,/"QUAL"//,1                                                  FTNTEXT     1615     A     
 FTNTEXT            NOREF  /"QUAL"/.P,/"QUAL"/.Z                                           FTNTEXT     1616     A     
 FTNTEXT  *                                                                                FTNTEXT     1617     A     
 FTNTEXT   LAB      BSS    0                                                               FTNTEXT     1618     A     
 FTNTEXT   .Z       SET    0                                                               FTNTEXT     1619     A     
 FTNTEXT                                                                                   FTNTEXT     1620     A     
 FTNTEXT            IRP    BIT                                                             FTNTEXT     1621     A     
 FTNTEXT   .P       SET    PR.BIT_P+PR.BIT_L+SHFT                                          FTNTEXT     1622     A     
 FTNTEXT            IFGT   .P,60,1                                                         FTNTEXT     1623     A     
 FTNTEXT   .P       SET    .P-60                                                           FTNTEXT     1624     A     
 FTNTEXT            IFNE   .P,PR.BIT_L,3                                                   FTNTEXT     1625     A     
 FTNTEXT            POS    .P                                                              FTNTEXT     1626     A     
 FTNTEXT            VFD    PR.BIT_L/-0                                                     FTNTEXT     1627     A     
 FTNTEXT            ELSE   1                                                               FTNTEXT     1628     A     
 FTNTEXT   .Z       SET    .P                                                              FTNTEXT     1629     A     
 FTNTEXT            IRP                                                                    FTNTEXT     1630     A     
 FTNTEXT  *                                                                                FTNTEXT     1631     A     
 FTNTEXT            IFNE   .Z,0,3                                                          FTNTEXT     1632     A     
 FTNTEXT            POS    .Z                                                              FTNTEXT     1633     A     
 FTNTEXT            VFD    .Z/-0                                                           FTNTEXT     1634     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 461    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT            ELSE   1                                                               FTNTEXT     1635     A     
 FTNTEXT            VFD    *P/0                                                            FTNTEXT     1636     A     
 FTNTEXT  *                                                                                FTNTEXT     1637     A     
 FTNTEXT            ENDM                                                                   FTNTEXT     1638     A     
 FTNTEXT   DESCR    TITLE  PASS 2 DEFINITIONS AND TABLE FORMATS                            FTNTEXT     1639     A     
 FTNTEXT  **        *IL* INSTRUCTION DESCRIPTOR FIELDS ( ALL INSTRUCTION TYPES )           FTNTEXT     1640     A     
 FTNTEXT  *         INSTRUCTION ATTRIBUTES ( PROPERTY BITS ).                              FTNTEXT     1641     A     
 FTNTEXT                                                                                   FTNTEXT     1642     A     
 FTNTEXT            DESCRIBE D.,60                                                         FTNTEXT     1643     A     
 FTNTEXT   TY       DEFINE 2           RLIST TYPE - 1 ( = 0-3 )                            FTNTEXT     1644     A     
 FTNTEXT   FT       DEFINE 5           FUNCTIONAL UNIT TIME IN MINOR CYCLES                FTNTEXT     1645     A     
 FTNTEXT   NR       DEFINE 1           D.RJRSP+12 ( BIT SHIFT FOR *MCG* IN *DRR* )         FTNTEXT     1646     A     
 FTNTEXT            DEFINE 1           =1 TO SIMULATE A EXPONENT                           FTNTEXT     1647     A     
 FTNTEXT   F1       DEFINE 4           FIRST FUNCTION UNIT ORDINAL                         FTNTEXT     1648     A     
 FTNTEXT   F2       DEFINE 4           SECOND FUNCTION UNIT ORDINAL                        FTNTEXT     1649     A     
 FTNTEXT   BM       DEFINE 1           NODE BOUNDARY MARKER ( JUMP, LABEL, ETC )           FTNTEXT     1650     A     
 FTNTEXT   ^D       DEFINE 1           SET IF INSTRUCTION DOESN-T DEF AN RI/ NO RI         FTNTEXT     1651     A     
 FTNTEXT                                                                                   FTNTEXT     1652     A     
 FTNTEXT  **        NOTE - THE BIT FIELD FROM *RJRS* TO *JFT* IS USED BY THE               FTNTEXT     1653     A     
 FTNTEXT  *         SCHEDULER TO ASSIGN RESULT REGISTERS, SO PLEASE DO NOT REORDER         FTNTEXT     1654     A     
 FTNTEXT                                                                                   FTNTEXT     1655     A     
 FTNTEXT   RJRS     DEFINE 1           PRECEDES AN RJ REGISTER STORE                       FTNTEXT     1656     A     
 FTNTEXT   PS       DEFINE 1           INST IS AN IMMEDIATE PREDECESSOR OF A STORE         FTNTEXT     1657     A     
 FTNTEXT   PRS      DEFINE 1           PRECEDES A REGISTER STORE                           FTNTEXT     1658     A     
 FTNTEXT   ECJ      DEFINE 1           ERROR CHECK (FALL THROUGH) JUMP                     FTNTEXT     1659     A     
 FTNTEXT   L2       DEFINE 1           LEVEL 2 LD/ST                                       FTNTEXT     1660     A     
 FTNTEXT   LD       DEFINE 1           LOAD                                                FTNTEXT     1661     A     
 FTNTEXT   ST       DEFINE 1           STORE                                               FTNTEXT     1662     A     
 FTNTEXT   JP       DEFINE 1           JUMP                                                FTNTEXT     1663     A     
 FTNTEXT   XMT      DEFINE 1           XMT/SXT                                             FTNTEXT     1664     A     
 FTNTEXT   KS       DEFINE 1           OPERATION DESTROYS OPERAND ( CON SHIFTS )           FTNTEXT     1665     A     
 FTNTEXT   PI       DEFINE 1           PSEUDO INSTRUCTION ( RS,DAR,DEF,LAB, ETC )          FTNTEXT     1666     A     
 FTNTEXT   MUC      DEFINE 1           MULTI USE COMPUTATION ( *JAM* MODE )                FTNTEXT     1667     A     
 FTNTEXT   JFT      DEFINE 1           JAM FUNCTION TIME, "0 IF USES A FUNCTION UNIT       FTNTEXT     1668     A     
 FTNTEXT                                                                                   FTNTEXT     1669     A     
 FTNTEXT   USI      DEFINE 1           UNSAFE INSTRUCTION ( INTERRUPT POSSIBLE )           FTNTEXT     1670     A     
 FTNTEXT   ZP       DEFINE 1           =1 IF INSTRUCTION HAS NO OPERANDS                   FTNTEXT     1671     A     
 FTNTEXT   CM       DEFINE 1           "0 IF OPERANDS ARE COMMUTATIVE                      FTNTEXT     1672     A     
 FTNTEXT   SZ       DEFINE 2           INSTRUCTION SIZE ( PARCEL COUNT )                   FTNTEXT     1673     A     
 FTNTEXT   SR       DEFINE 1           SET FOR SIZE REDUCIBLE LD/ST-S                      FTNTEXT     1674     A     
 FTNTEXT   FP       DEFINE 1           SET IF IH IS AN F.P.                                FTNTEXT     1675     A     
 FTNTEXT            DEFINE 1                                                               FTNTEXT     1676          I
          -FCC0514
 FTNTEXT   XU       DEFINE 1           USES EXTEND PAST A REDEF ( SIO AND GRA )            FCC0514        5     A     
 FTNTEXT   RF       DEFINE 1           RI USED IN *RF* OF LD/ST/STT/SA                     FTNTEXT     1677     A     
 FTNTEXT   INC      DEFINE 1           INCREMENT INSTRUCTION ( IA/IS/STT/ST )              FTNTEXT     1678     A     
 FTNTEXT   REGW     DEFINE 9           X-REGISTER WIDTH OF THE SEQUENCE AT A INST          FTNTEXT     1679     A     
 FTNTEXT   USES     DEFINE 9           USES COUNT                                          FTNTEXT     1680     A     
 FTNTEXT                                                                                   FTNTEXT     1681     A     
 FTNTEXT  *         COMBINATIONS OF DESCRIPTOR BIT FIELDS                                  FTNTEXT     1682     A     
 FTNTEXT                                                                                   FTNTEXT     1683     A     
 FTNTEXT   LDST     DEQU   ST,2        LD AND ST BITS ( MEMORY REFERENCE )                 FTNTEXT     1684     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 462    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT   STRS     DEQU   PRS,2       STORE / RS PRECEDENCE BITS                          FTNTEXT     1685     A     
 FTNTEXT   AR       DEQU   FP,2        ADDRESS REDUCTION BITS ( *MCG* )                    FTNTEXT     1686     A     
 FTNTEXT   LSJ      DEQU   JP,3        LD / ST / JP BITS                                   FTNTEXT     1687     A     
 FTNTEXT   TYIO     DEQU   RJRS,2      TYPE I OPERAND BIT DETERMINOR                       FTNTEXT     1688     A     
 FTNTEXT  *                            0 - RJ,RK ARE OPERANDS                              FTNTEXT     1689     A     
 FTNTEXT  *                            1 - RK IS AN OPERAND                                FTNTEXT     1690     A     
 FTNTEXT  *                            2 - RI,RJ,RK ARE OPERANDS                           FTNTEXT     1691     A     
 FTNTEXT   EQV      DEQU   FT,1        "0 IF INST IS PRED OF AN EQUIV LINK                 FTNTEXT     1692     A     
 FTNTEXT  *                ASSUMES THAT FUN TIME OF LD/ST-S IS AN EVEN NUMBER.             FTNTEXT     1693     A     
 FTNTEXT   RLIST    EJECT                                                                  FTNTEXT     1694     A     
 FTNTEXT  **        *IL* INSTRUCTION FIELD DEFINITIONS                                     FTNTEXT     1695     A     
 FTNTEXT                                                                                   FTNTEXT     1696     A     
 FTNTEXT            DESCRIBE R1.,60    TYI(OC,RJ,RK,RI) / TYII(OC,IN,SO,RI) , ETC          FTNTEXT     1697     A     
 FTNTEXT                                                                                   FTNTEXT     1698     A     
 FTNTEXT  *         TYPE 1 *IL* - BINARY OPERATIONS - RI = RJ.OP.RK                        FTNTEXT     1699     A     
 FTNTEXT  *                12/PACKED OC,16/RJ,16/RK,16/RI                                  FTNTEXT     1700     A     
 FTNTEXT                                                                                   FTNTEXT     1701     A     
 FTNTEXT   OC       DEFINE 12          PACKED OP CODE                                      FTNTEXT     1702     A     
 FTNTEXT   RJ       DEFINE 16          FIRST OPERAND                                       FTNTEXT     1703     A     
 FTNTEXT   RK       DEFINE 16          SECOND OPERAND                                      FTNTEXT     1704     A     
 FTNTEXT   RI       DEFINE 16          RESULT RNUMBER                                      FTNTEXT     1705     A     
 FTNTEXT                                                                                   FTNTEXT     1706     A     
 FTNTEXT  *         TYPE 2 *IL* - 1 ADDRESS AND PSEUDOS - .OP.RI = IN                      FTNTEXT     1707     A     
 FTNTEXT  *                12/PACKED OC,18/IN,14/SO,16/RI                                  FTNTEXT     1708     A     
 FTNTEXT                                                                                   FTNTEXT     1709     A     
 FTNTEXT   IN       DEFINE 18,R1.RJP+15      A CA FIELD                                    FTNTEXT     1710     A     
 FTNTEXT   SO       DEFINE 14          REGISTER DESIGNATOR                                 FTNTEXT     1711     A     
 FTNTEXT                                                                                   FTNTEXT     1712     A     
 FTNTEXT  *         TYPE 3 *IL* - LOADS,STORES AND JUMPS                                   FTNTEXT     1713     A     
 FTNTEXT  *                12/PACKED OC,18/IN,12/H2,2/0,16/RI                              FTNTEXT     1714     A     
 FTNTEXT  *                R2 WORD = IHINFO FORMAT ( SEE BELOW )                           FTNTEXT     1715     A     
 FTNTEXT            SPACE  2                                                               FTNTEXT     1716     A     
 FTNTEXT  *         TYPE 4 *IL* - SPECIAL INSTRUCTIONS, BOUNDARY MARKERS, ETC.             FTNTEXT     1717     A     
 FTNTEXT  *                12/PACKED OC,18/CA,12/H2,18/IH                                  FTNTEXT     1718     A     
 FTNTEXT                                                                                   FTNTEXT     1719     A     
 FTNTEXT            DESCRIBE R1.,60    TYIV(OC,CA,H2,IH)                                   FTNTEXT     1720     A     
 FTNTEXT   OC       DEFINE 12                                                              FTNTEXT     1721     A     
 FTNTEXT   CA       DEFINE 18                                                              FTNTEXT     1722     A     
 FTNTEXT   H2       DEFINE 12          SYMTAB ORDINAL, MISCELLANEOUS INFO                  FTNTEXT     1723     A     
 FTNTEXT   IH       DEFINE 18          IH FIELD                                            FTNTEXT     1724     A     
 FTNTEXT   IHINFO   SPACE  3                                                               FTNTEXT     1725     A     
 FTNTEXT  **        IH INFO WORD/ R2 WORD FOR MEMORY REFERENCES AND TYPE III INST          FTNTEXT     1726     A     
 FTNTEXT  *         NOTE - LD,ST,BM BITS SET BY *BDT* IN *FIL* DURING INTERFERENCE         FTNTEXT     1727     A     
 FTNTEXT  *                LINKING PHASE ONLY ( BITS ARE SET IN *IH* TABLE ).              FTNTEXT     1728     A     
 FTNTEXT  *         LD BIT SET FOR APLIST LD-S IN *PRE* TO PREVENT SQUEEZING OF            FTNTEXT     1729     A     
 FTNTEXT  *                ST/LD SEQUENCES IN *SQZ*.                                       FTNTEXT     1730     A     
 FTNTEXT                                                                                   FTNTEXT     1731     A     
 FTNTEXT            DESCRIBE IH.,60    IHW(RF,CA,IH)                                       FTNTEXT     1732     A     
 FTNTEXT   LD       DEFINE 1           LD BIT FROM DESCR                                   FTNTEXT     1733     A     
 FTNTEXT   ST       DEFINE 1           ST BIT FROM DESCR                                   FTNTEXT     1734     A     
 FTNTEXT   BM       DEFINE 1           SET FOR BOUNDARY MARKERS                            FTNTEXT     1735     A     
 FTNTEXT                                                                                   FTNTEXT     1736          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 463    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
          -FCC0882
 FTNTEXT            DEFINE 3                                                               FTNTEXT     1737          I
          -FCC0977
 FTNTEXT            DEFINE 2                                                               FCC0977        6          I
          -FCC1918
 FTNTEXT            DEFINE 1                                                               FCC1918        7     A     
 FTNTEXT   SIA      DEFINE 1           STT GEN BY *GRA* OF LCM&FP  ADDRESS                 FCC1918        8     A     
 FTNTEXT  *                              WHERE VALUE OF RF MAY BE NEGATIVE                 FCC1918        9     A     
 FTNTEXT   SRF      DEFINE 1           =1 IF SPECIAL RF NECESSARY ( RF = (RJ,RK) )         FCC0977        7     A     
 FTNTEXT   RF       DEFINE 18          R-NUMBER OF MODIFIER                                FTNTEXT     1738     A     
 FTNTEXT   CA       DEFINE 18          CONSTANT ADDEND                                     FTNTEXT     1739     A     
 FTNTEXT   I        DEFINE 3           TABLE NUMBER ( 0 - SYMTAB, ETC )                    FTNTEXT     1740     A     
 FTNTEXT   H        DEFINE 15          ORDINAL INTO TABLE                                  FTNTEXT     1741     A     
 FTNTEXT   IH       DEQU   H,18                                                            FTNTEXT     1742     A     
 FTNTEXT                                                                                   FTNTEXT     1743     A     
 FTNTEXT   CAIH     DEQU   H,36        COMBINATION OF CA AND IH FIELDS                     FTNTEXT     1744     A     
 FTNTEXT                                                                                   FTNTEXT     1745     A     
 FTNTEXT   IH.LCMA  EQU    1S13        =1 IF LCM=I ADDRESS LOAD ( ^F.P. )                  FCC0882        6     A     
 FTNTEXT   IH.LCM   EQU    1S14        *LCM* ( LEVEL 2 ) BIT VALUE SET IN *IH*             FTNTEXT     1746     A     
 FTNTEXT  *                            FIELD FOR *DRL/DWL*-S .                             FTNTEXT     1747     A     
 FTNTEXT   RF.MV    EQU    1S16        BIT SET IN *RF* FIELD OF PLD,PST,DRL,DWL            FCC0643        7     A     
 FTNTEXT  *                            IF RF IS -VAR  ( A(C-VAR)  ).                       FCC0643        8     A     
 FTNTEXT   IFIELDS  EJECT                                                                  FTNTEXT     1748          I
          -FCC0789
 FTNTEXT   IFIELDS  SPACE  2,6                                                             FCC0789        6     A     
 FTNTEXT  *         I FIELD VALUES FOR THE FORWARD REFERENCE TABLES.                       FTNTEXT     1749     A     
 FTNTEXT                                                                                   FTNTEXT     1750     A     
 FTNTEXT   I.GL     EQU    1S15        #GLNNN                                              FTNTEXT     1751     A     
 FTNTEXT   I.AP     EQU    2S15        [APNNN                                              FTNTEXT     1752     A     
 FTNTEXT   I.IO     EQU    3S15        ]IONNN                                              FTNTEXT     1753     A     
 FTNTEXT   SOREG    SPACE  3                                                               FTNTEXT     1754     A     
 FTNTEXT  **        SO FIELD  - USED FOR SPECIFYING EXPLICIT RESULT REGISTERS              FTNTEXT     1755     A     
 FTNTEXT  *                     IN *RS* AND *DEF* INSTRUCTIONS ONLY.                       FTNTEXT     1756     A     
 FTNTEXT  *                2/INV INFO,2/LOCK TYPE,3/REG TYPE,3/REG NUMBER                  FTNTEXT     1757     A     
 FTNTEXT                                                                                   FTNTEXT     1758     A     
 FTNTEXT            DESCRIBE SO.,10                                                        FTNTEXT     1759          I
          -FCC0641
 FTNTEXT            DESCRIBE SO.,11                                                        FCC0641        6     A     
 FTNTEXT   SFL      DEFINE 1           SCRATCHABLE FULL LOCK ( TEMP/FULL LOCK )            FCC0641        7     A     
 FTNTEXT   INVC     DEFINE 1           INVARIANT IN CURRENT LOOP                           FTNTEXT     1760     A     
 FTNTEXT   INV      DEFINE 1           INVARIANT IN INNER LOOP                             FTNTEXT     1761     A     
 FTNTEXT   LK       DEFINE 2           LOCK TYPE, *RS* INSTRUCTION ONLY                    FTNTEXT     1762     A     
 FTNTEXT  *                            0 - HOLD UNTIL NEXT UNCONDITIONAL JUMP              FTNTEXT     1763     A     
 FTNTEXT  *                            1 - HOLD UNTIL USES[RI] = 0                         FTNTEXT     1764     A     
 FTNTEXT  *                            2 - HOLD UNTIL REDEF OR *EOQ*                       FTNTEXT     1765     A     
 FTNTEXT  *                            3 - RJ RS, IT IS A *DEF* IN DISGUISE.               FTNTEXT     1766     A     
 FTNTEXT  *                            3 - A-REG LOCK ( INITIAL *DEF* OF PREFETCH)         FCC0603        8     A     
 FTNTEXT   RT       DEFINE 3           REGISTER TYPE ( BAX = 0/1/2 )                       FTNTEXT     1767     A     
 FTNTEXT   RN       DEFINE 3           REGISTER NUMBER ( 0 - 7 )                           FTNTEXT     1768     A     
 FTNTEXT   REG      DEQU   RN,6        RT + RN FIELDS                                      FTNTEXT     1769     A     
 FTNTEXT                                                                                   FTNTEXT     1770     A     
 FTNTEXT   .LKP     BIT    SO.LKP                                                          FTNTEXT     1771     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 464    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT   SO.TLOCK EQU    .LKP        TEMP LOCK                                           FTNTEXT     1772     A     
 FTNTEXT  *                              WARNING - TEMP LOCKS CAN BE ELIMINATED            FTNTEXT     1773     A     
 FTNTEXT  *                              IN *SQZ* IF THEY HAVE NO *REAL* USES.             FTNTEXT     1774     A     
 FTNTEXT   SO.LOCK  EQU    2*.LKP      FULL LOCK ( UNTIL REDEF / *EOQ* )                   FTNTEXT     1775     A     
 FTNTEXT   SO.RJLK  EQU    3*.LKP      RJ LOCK ( B-REG DEF FOR UP / NR INSTRUCTIONS        FTNTEXT     1776     A     
 FTNTEXT                                                                                   FTNTEXT     1777     A     
 FTNTEXT   RT.BR    EQU    0           VALUE OF B REGISTER TYPE                            FTNTEXT     1778     A     
 FTNTEXT   RT.XR    EQU    2           VALUE OF X REGISTER TYPE                            FTNTEXT     1779     A     
 FTNTEXT   APL      SPACE  3,10                                                            FTNTEXT     1780     A     
 FTNTEXT  **        AP / IO LIST ENTRY FORMAT FOR APLIST PROCESSING, USE/DEF INFO          FTNTEXT     1781     A     
 FTNTEXT                                                                                   FTNTEXT     1782     A     
 FTNTEXT            DESCRIBE AP.,60                                                        FTNTEXT     1783     A     
 FTNTEXT   ST       DEFINE 1           ST APL ( IH,CA ARE FOR OPT=2 INFO ONLY )            FTNTEXT     1784     A     
 FTNTEXT   USE      DEFINE 1           =1 IF INPUT LIST ITEM MAY NOT BE DEFINED            FCC0789        7     A     
 FTNTEXT   P1       DEFINE 1           +1 REF FOR A DOUBLE/COMPLEX VARIABLE                FTNTEXT     1785     A     
 FTNTEXT            DEFINE 3                                                               FTNTEXT     1786          I
          -FCC0789
 FTNTEXT            DEFINE 2                                                               FCC0789        8     A     
 FTNTEXT   CR       DEFINE 1           CLASS REFERENCE                                     FTNTEXT     1787     A     
 FTNTEXT            DEFINE 18                                                              FTNTEXT     1788     A     
 FTNTEXT   CA       DEFINE 18          BIAS                                                FTNTEXT     1789     A     
 FTNTEXT   IH       DEFINE 18          SYMBOL ORDINAL                                      FTNTEXT     1790     A     
 FTNTEXT                                                                                   FTNTEXT     1791     A     
 FTNTEXT   IO       DEQU   ST,1        =1 IF INPUT ( DEF ) IN *IOL*                        FTNTEXT     1792     A     
 FTNTEXT   CAIH     DEQU   IH,36                                                           FTNTEXT     1793     A     
 FTNTEXT   FI       SPACE  3,14                                                            FTNTEXT     1794     A     
 FTNTEXT  **        FI. - FUNCTION INFORMATION WORD ( R2 ) FOR RJX-S.                      FTNTEXT     1795     A     
 FTNTEXT                                                                                   FTNTEXT     1796     A     
 FTNTEXT            DESCRIBE FI.,60                                                        FTNTEXT     1797     A     
 FTNTEXT   FT       DEFINE 6           FUNCTION TYPE                                       FTNTEXT     1798     A     
 FTNTEXT  *                            0 - IGNORE, 1 - USER, 2 - BEF, 3 - I/O              FTNTEXT     1799     A     
 FTNTEXT   REGP     DEFINE 18          B-REGISTERS PRESERVED ( *BEF"S* ONLY )              FTNTEXT     1800     A     
 FTNTEXT   LEN      DEFINE 18          LIST LENGTH                                         FTNTEXT     1801     A     
 FTNTEXT   INDX     DEFINE 18          INDEX TO FWA OF LIST IN *IOL*                       FTNTEXT     1802     A     
 FTNTEXT   IH-LAB   SPACE  3,14                                                            FTNTEXT     1803     A     
 FTNTEXT  **        IH. - IH WORD OF LOOP GENERATED LABELS                                 FTNTEXT     1804     A     
 FTNTEXT                                                                                   FTNTEXT     1805     A     
 FTNTEXT            DESCRIBE IH.,60                                                        FTNTEXT     1806     A     
 FTNTEXT   STK      DEFINE 1           SET IF LOOP FITS IN INSTRUCTION STACK               FTNTEXT     1807     A     
 FTNTEXT            DEFINE 41                                                              FTNTEXT     1808     A     
 FTNTEXT   ICV      DEFINE 18          INDEX OF LOOP *CV* TO *UDI*                         FTNTEXT     1809     A     
 FTNTEXT   IX       SPACE  3,10                                                            FTNTEXT     1810     A     
 FTNTEXT  **        IX. - DEFINE FIELDS FOR MC,IH WORD OF *IXFN* MACRO                     FTNTEXT     1811     A     
 FTNTEXT                                                                                   FTNTEXT     1812     A     
 FTNTEXT            DESCRIBE IX.,60                                                        FTNTEXT     1813     A     
 FTNTEXT   SUB      DEFINE 6           SUBSCRIPT TERM ORDINAL                              FTNTEXT     1814     A     
 FTNTEXT   MC       DEFINE 18          MULTIPLICATIVE CONSTANT FOR VARIABLE                FTNTEXT     1815     A     
 FTNTEXT   CA       DEFINE 18          BIAS                                                FTNTEXT     1816     A     
 FTNTEXT   IH       DEFINE 18          SYMBOL ORDINAL                                      FTNTEXT     1817     A     
 FTNTEXT                                                                                   FTNTEXT     1818     A     
 FTNTEXT   CAIH     DEQU   IH,36       COMBINED IH,CA FIELD                                FTNTEXT     1819     A     
 FTNTEXT   OPRS     SPACE  5                                                               FTNTEXT     1820     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 465    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT  **        OPR - MACRO TO DEFINE *IL* INSTRUCTION OPCODES ( OC. SYMBOLS )         FTNTEXT     1821     A     
 FTNTEXT                                                                                   FTNTEXT     1822     A     
 FTNTEXT            MACRO  OPR,N                                                           FTNTEXT     1823     A     
 FTNTEXT   OC.N     EQU    .OC                                                             FTNTEXT     1824     A     
 FTNTEXT   .OC      SET    .OC+1                                                           FTNTEXT     1825     A     
 FTNTEXT   OPR      ENDM                                                                   FTNTEXT     1826     A     
 FTNTEXT                                                                                   FTNTEXT     1827     A     
 FTNTEXT            SKIP   1           SO SYMBOLS ARE PUT IN STEXT RECORD                  FTNTEXT     1828     A     
 FTNTEXT  *CALL     OPRDEFS                                                                FTNTEXT     1829     A     
 FTNTEXT                                                                                   FTNTEXT     1830     A     
 FTNTEXT  *         DEFINE SUBINDEX OPCODES FOR THE X AND B JUMPS ( IN *CA* FIELD )        FTNTEXT     1831     A     
 FTNTEXT                                                                                   FTNTEXT     1832     A     
 FTNTEXT            NOREF  .Z                                                              FTNTEXT     1833     A     
 FTNTEXT   .Z       SET    0                                                               FTNTEXT     1834     A     
 FTNTEXT            ECHO   2,T=("XJUMPS")                                                  FTNTEXT     1835     A     
 FTNTEXT   JC.T     EQU    .Z                                                              FTNTEXT     1836     A     
 FTNTEXT   .Z       SET    .Z+1                                                            FTNTEXT     1837     A     
 FTNTEXT                                                                                   FTNTEXT     1838     A     
 FTNTEXT   .Z       SET    0                                                               FTNTEXT     1839     A     
 FTNTEXT            ECHO   2,T=("BJUMPS")                                                  FTNTEXT     1840     A     
 FTNTEXT   JC.T     EQU    .Z                                                              FTNTEXT     1841     A     
 FTNTEXT   .Z       SET    .Z+1                                                            FTNTEXT     1842     A     
 FTNTEXT   BIT      TITLE  PASS 2 TABLE FORMATS                                            FTNTEXT     1843     A     
 FTNTEXT  **        BI. - DEFINE FIRST WORD OF A 2 WORD ENTRY IN *BIT*                     FTNTEXT     1844     A     
 FTNTEXT                                                                                   FTNTEXT     1845     A     
 FTNTEXT            DESCRIBE BI.,60                                                        FTNTEXT     1846     A     
 FTNTEXT   RB       DEFINE 1           REACHABLE BLOCK ( SET FOR PROG BLOCKS ONLY          FTNTEXT     1847     A     
 FTNTEXT   CB       DEFINE 1           CODED ( NOW IN *MCG/SII* FORMAT )                   FTNTEXT     1848     A     
 FTNTEXT   IL       DEFINE 1           INITIAL LABEL                                       FTNTEXT     1849     A     
 FTNTEXT   FJ       DEFINE 1           FINAL *UJP*                                         FTNTEXT     1850     A     
 FTNTEXT   LJP      DEFINE 1           BLOCKS CONSISTS OF A *LAB/UJP* ONLY                 FTNTEXT     1851     A     
 FTNTEXT            DEFINE 2                                                               FTNTEXT     1852          I
          -FCC0392
 FTNTEXT   HN       DEFINE 1           =1 IF HEADER NODE OF A INTERVAL & *SCR*             FCC0392        9     A     
 FTNTEXT            DEFINE 1                                                               FCC0392       10          I
          -FCC0675
 FTNTEXT   FTH      DEFINE 1           =1 IF A *HB* THAT IS FROM A *FTH* LOOP              FCC0675        6     A     
 FTNTEXT   CL       DEFINE 15          CODE LENGTH                                         FTNTEXT     1853          I
          -FCC0448
 FTNTEXT   LCB      DEFINE 15          LAST CODED BLOCK NUMBER OF LOOP, SAVED IN           FCC0448       10          I
          -FCC0675
 FTNTEXT  *                              HEADER NODE ENTRY BY GRA/SUP                      FCC0448       11          I
          -FCC0675
 FTNTEXT   OLN      DEFINE 15          FOR HB ONLY, BN OF HB CONTAINING OUTER LOOP         FCC0675        7          I
          -FCC1319
 FTNTEXT   OLN      DEFINE 15          BN OF HB OF LOOP THAT BLOCK IS IN                   FCC1319        9     A     
 FTNTEXT   PC       DEFINE 2           PARCEL COUNT                                        FTNTEXT     1854     A     
 FTNTEXT   FLN      DEFINE 18          FIRST LINE NUMBER ( PROG BLOCKS ONLY )              FTNTEXT     1855     A     
 FTNTEXT   BVI      DEFINE 18          *BVT* INDEX TO BIT VECTORS                          FTNTEXT     1856     A     
 FTNTEXT                                                                                   FTNTEXT     1857     A     
 FTNTEXT   PII      DEQU   PC,17       INDEX TO *PSI* POST STORE INFO ( "0 )               FTNTEXT     1858     A     
 FTNTEXT   PBN      DEQU   FLN         PROG BLOCK INDEX OF HOLDING BLOCK                   FTNTEXT     1859     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 466    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT  *                            *BIT* INDEX OF HEADER NODE OF LOOP THAT IT          FTNTEXT     1860     A     
 FTNTEXT  *                            IS THE HOLDING BLOCK OF                             FTNTEXT     1861     A     
 FTNTEXT   MLT      SPACE  3,14                                                            FTNTEXT     1862     A     
 FTNTEXT  **        ML. - MOD LIST TABLE ENTRY FORMAT                                      FTNTEXT     1863     A     
 FTNTEXT  *                                                                                FTNTEXT     1864     A     
 FTNTEXT  *         *MLT* IS THE *MOD* LIST INDEX TABLE.  *MOD* CONSISTS OF RLIST          FTNTEXT     1865     A     
 FTNTEXT  *         INSTRUCTIONS ( 4 WORDS/INSTRUCTION ), AND THE FIRST ENTRY IS           FTNTEXT     1866     A     
 FTNTEXT  *         A DUMMY *BOS*.                                                         FTNTEXT     1867     A     
 FTNTEXT  *         OPERANDS OF INSTRUCTIONS IN *MOD* WHICH REFERENCE INSTRUCTIONS         FTNTEXT     1868     A     
 FTNTEXT  *         IN *SEQ* HAVE BIT 15 OF THE R-NUMBER SET ( R+100000B ) .               FTNTEXT     1869     A     
 FTNTEXT  *                                                                                FTNTEXT     1870     A     
 FTNTEXT  *         FOR FURTHER INFORMATION ONE MAY LOOK AT *MPB* IN *GPO*.                FTNTEXT     1871     A     
 FTNTEXT                                                                                   FTNTEXT     1872     A     
 FTNTEXT            DESCRIBE ML.,60    MCW(DEL,II,NI,MTI)                                  FTNTEXT     1873     A     
 FTNTEXT                                                                                   FTNTEXT     1874          I
          -FCC0392
 FTNTEXT   DEL      DEFINE 1           DELETE FLAG                                         FTNTEXT     1875     A     
 FTNTEXT            DEFINE 5                                                               FTNTEXT     1876     A     
 FTNTEXT   II       DEFINE 18          INSERT INDEX ( IN *SEQ* )                           FTNTEXT     1877     A     
 FTNTEXT   NI       DEFINE 18          N. INSTRUCTIONS TO BE INSERTED                      FTNTEXT     1878     A     
 FTNTEXT   MTI      DEFINE 18          *MOD* TABLE INDEX                                   FTNTEXT     1879     A     
 FTNTEXT   TET      SPACE  3,14                                                            FTNTEXT     1880     A     
 FTNTEXT  **        T. - TEMP EQUIVALENCE TABLE FORMAT                                     FTNTEXT     1881     A     
 FTNTEXT                                                                                   FTNTEXT     1882     A     
 FTNTEXT            DESCRIBE T.,60     TETW(FLAGS,ITI,BI,CA)                               FTNTEXT     1883     A     
 FTNTEXT   INV      DEFINE 1           =1 IF *INV* TEMP                                    FTNTEXT     1884     A     
 FTNTEXT   EQV      DEFINE 1           EQV TO ANOTHER *TET*                                FTNTEXT     1885     A     
 FTNTEXT   FA       DEFINE 1           FINAL ASSIGNMENT OF *CA* ( *POST* )                 FTNTEXT     1886     A     
 FTNTEXT            DEFINE 2                                                               FTNTEXT     1887          I
          -FCC2392
 FTNTEXT   CAL      DEFINE 1           CA FIELD LOCKED                                     FCC2392       11     A     
 FTNTEXT            DEFINE 1                                                               FCC2392       12     A     
 FTNTEXT   BIP      DEFINE 1           BASE MEMBER OF *IP* CLASS                           FTNTEXT     1888     A     
 FTNTEXT   ITI      DEFINE 18          INDEX TO INC FORMULA INFO IN *IIT* ( ^INV )         FTNTEXT     1889     A     
 FTNTEXT   BI       DEFINE 18          INDEX IN BLOCK WHERE *LD* GOES                      FTNTEXT     1890     A     
 FTNTEXT   CA       DEFINE 18          BIAS OF TST* ( SET IN SQZ * )                       FTNTEXT     1891     A     
 FTNTEXT                                                                                   FTNTEXT     1892     A     
 FTNTEXT   LU       DEQU   ITI         BLOCK NUMBER OF LAST USE                            FTNTEXT     1893          I
          -FCC0675
 FTNTEXT   HBN      DEQU   ITI         BN OF HB (LOOP) THAT IT. IS ASSOC WITH              FCC0675        8     A     
 FTNTEXT   REG      DEQU   BI          REGISTER THAT IT IS IN ( *MTA* )                    FTNTEXT     1894     A     
 FTNTEXT   IPF      DEQU   ITI,19      *IP* FIELDS                                         FTNTEXT     1895     A     
 FTNTEXT            SPACE  2,8                                                             FCC1319       10     A     
 FTNTEXT  **        LC. - LABEL CHANGE TABLE ( MULTI PREDECESSOR LOOPS )                   FCC1319       11     A     
 FTNTEXT                                                                                   FCC1319       12     A     
 FTNTEXT            DESCRIBE LC.                                                           FCC1319       13     A     
 FTNTEXT            DEFINE 6                                                               FCC1319       14     A     
 FTNTEXT   NEXT     DEFINE 18          LINK TO NEXT ON CHAIN, 0 IF NONE                    FCC1319       15     A     
 FTNTEXT   GLN      DEFINE 18          H FIELD OF GL VALUE OF LABEL                        FCC1319       16     A     
 FTNTEXT   HBN      DEFINE 18          BN OF HB THAT LABEL IS DEFINED IN                   FCC1319       17     A     
 FTNTEXT            SPACE  3,5                                                             F66FCC        65     A     
 FTNTEXT  **        DC.   DEBUG (LOADER) CONTROL WORD.                                     F66FCC        66     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 467    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT  *                                                                                F66FCC        67     A     
 FTNTEXT  *         DC IS A DESCRIPTION OF THE LOADER CONTROL WORD WHICH                   F66FCC        68     A     
 FTNTEXT  *         FTN INTERROGATES TO DETERMINE IF *CID* IS *ON* FOR                     F66FCC        69     A     
 FTNTEXT  *         THIS COMPILATION.                                                      F66FCC        70     A     
 FTNTEXT                                                                                   F66FCC        71     A     
 FTNTEXT            DESCRIBE DC.,60                                                        F66FCC        72     A     
 FTNTEXT   IDCB     DEFINE 24,35                                                           F66FCC        73          I
          -F66FCCA
 FTNTEXT   FILL     DEQU   IDCB,11                                                         F66FCC        74          I
          -F66FCCA
 FTNTEXT   FID      DEQU   IDCB,1                                                          F66FCC        75          I
          -F66FCCA
 FTNTEXT            DEFINE 24                                                              F66FCCA        4     A     
 FTNTEXT   FID      DEFINE 1                                                               F66FCCA        5     A     
 FTNTEXT   STLTAB   SPACE  4,7                                                             FCCA408       50     A     
 FTNTEXT  **        STLTAB - MACRO TO DETERMINE LENGTH OF WEAK EXTERNAL TABLE.             FCCA408       51     A     
 FTNTEXT  *                                                                                FCCA408       52     A     
 FTNTEXT  *         STLTAB NAME                                                            FCCA408       53     A     
 FTNTEXT  *                                                                                FCCA408       54     A     
 FTNTEXT  *         ARGS   *NAME*   = NAME OF *FCL* STATIC LOAD BLOCK.                     FCCA408       55     A     
 FTNTEXT                                                                                   FCCA408       56     A     
 FTNTEXT                                                                                   FCCA408       57     A     
 FTNTEXT            PURGMAC STLTAB                                                         FCCA408       58     A     
 FTNTEXT                                                                                   FCCA408       59     A     
 FTNTEXT   STLTAB   MACRO  NAME                                                            FCCA408       60     A     
 FTNTEXT   S.1      SET    S.1+1                                                           FCCA408       61     A     
 FTNTEXT   STLTAB   ENDM                                                                   FCCA408       62     A     
 FTNTEXT                                                                                   FCCA408       63     A     
 FTNTEXT   S.1      SET    0                                                               FCCA408       64     A     
 FTNTEXT                                                                                   FCCA408       65     A     
 FTNTEXT  *CALL STLOAD                                                                     FCCA408       66     A     
 FTNTEXT                                                                                   FCCA408       67     A     
 FTNTEXT   L.STL    =      S.1-S.1/2*2+S.1/2+1 LENGTH/2 + REMAINDER + EOT                  FCCA408       68     A     
 FTNTEXT   N.STL    =      S.1                                                             FCCA408       69     A     
 FTNTEXT   PASS2TM  EJECT                                                                  FTNTEXT     1896     A     
 FTNTEXT  **        PASS 2 TABLE MANAGER MACRO DEFINITIONS                                 FTNTEXT     1897     A     
 FTNTEXT                                                                                   FTNTEXT     1898     A     
 FTNTEXT   PASS2TM  MACRO                                                                  FTNTEXT     1899     A     
 FTNTEXT                                                                                   FTNTEXT     1900     A     
 FTNTEXT  **        ADDWRD - ADD WORD TO MANAGED TABLE.                                    FTNTEXT     1901     A     
 FTNTEXT  *                                                                                FTNTEXT     1902     A     
 FTNTEXT  *         ADDWRD TABLE,REG                                                       FTNTEXT     1903     A     
 FTNTEXT  *         ENTRY  *TABLE* = TABLE NUMBER.                                         FTNTEXT     1904     A     
 FTNTEXT  *                *REG* = REGISTER NAME OR EXPRESSION FOR WORD TO ADD.            FTNTEXT     1905     A     
 FTNTEXT  *         USES   A0, X1.                                                         FTNTEXT     1906     A     
 FTNTEXT                                                                                   FTNTEXT     1907     A     
 FTNTEXT            PURGMAC ADDWRD                                                         FTNTEXT     1908     A     
 FTNTEXT   ADDWRD   MACRO  A,B                                                             FTNTEXT     1909     A     
 FTNTEXT            R=     X1,B                                                            FTNTEXT     1910     A     
 FTNTEXT            R=     A0,=XZ.A                                                        FTNTEXT     1911     A     
 FTNTEXT            RJ     =XADW=                                                          FTNTEXT     1912     A     
 FTNTEXT   ADDWRD   ENDM                                                                   FTNTEXT     1913     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 468    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
 FTNTEXT                                                                                   FTNTEXT     1914     A     
 FTNTEXT  **        ALLOC - ALLOCATE TABLE SPACE.                                          FTNTEXT     1915     A     
 FTNTEXT  *                                                                                FTNTEXT     1916     A     
 FTNTEXT  *         ALLOC  TABLE,WORDS                                                     FTNTEXT     1917     A     
 FTNTEXT  *         ENTRY  *TABLE* = TABLE NUMBER.                                         FTNTEXT     1918     A     
 FTNTEXT  *                *WORDS* = WORD COUNT OF TABLE.                                  FTNTEXT     1919     A     
 FTNTEXT                                                                                   FTNTEXT     1920     A     
 FTNTEXT            PURGMAC ALLOC                                                          FTNTEXT     1921     A     
 FTNTEXT   ALLOC    MACRO  A,B                                                             FTNTEXT     1922     A     
 FTNTEXT            R=     X1,B                                                            FTNTEXT     1923     A     
 FTNTEXT            R=     A0,=XZ.A                                                        FTNTEXT     1924     A     
 FTNTEXT            RJ     =XATS=                                                          FTNTEXT     1925     A     
 FTNTEXT   ALLOC    ENDM                                                                   FTNTEXT     1926     A     
 FTNTEXT                                                                                   FTNTEXT     1927     A     
 FTNTEXT  **        PROCESS - DEFINE PROCESSOR ADDRESSES FOR LIST OF NAMES                 FTNTEXT     1928     A     
 FTNTEXT  *                                                                                FTNTEXT     1929     A     
 FTNTEXT  *         PROCESS (A,B,C,...,Z)                                                  FTNTEXT     1930     A     
 FTNTEXT                                                                                   FTNTEXT     1931     A     
 FTNTEXT            PURGMAC PROCESS                                                        FTNTEXT     1932     A     
 FTNTEXT   PROCESS  MACRO  P                                                               FTNTEXT     1933     A     
 FTNTEXT            IRP    P                                                               FTNTEXT     1934     A     
 FTNTEXT            NOREF  .P                                                              FTNTEXT     1935     A     
 FTNTEXT   .P       BSS    0                                                               FTNTEXT     1936     A     
 FTNTEXT            IRP                                                                    FTNTEXT     1937     A     
 FTNTEXT   PROCESS  ENDM                                                                   FTNTEXT     1938     A     
 FTNTEXT                                                                                   FTNTEXT     1939     A     
 FTNTEXT            B1=1                                                                   FTNTEXT     1940     A     
 FTNTEXT            NOREF  .B,.D,.L,.P,.Z,.1                                               FTNTEXT     1941     A     
 FTNTEXT   Z.TXT    EQU    1                                                               FTNTEXT     1942     A     
 FTNTEXT   O.SYM    EQU    12B         POINTER TO FWA OF SYMTAB                            FTNTEXT     1943     A     
 FTNTEXT            PURGMAC  ADEXTS,ADDREF,SYMBOL,WRM,CFO,CALLF,POSTER,LOADX               FTNTEXT     1944     A     
 FTNTEXT                                                                                   FTNTEXT     1945     A     
 FTNTEXT   PASS2TM  ENDM                                                                   FTNTEXT     1946     A     
 FTNTEXT                                                                                   FTNTEXT     1947     A     
 FTNTEXT            END                                                                    FTNTEXT     1948     A     
 FTNTEXT  *WEOR,0                                                                          FTNTEXT     1949          I
          -FCCA589
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FTNTEXT 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FTNTEXT                   1949      1814
          FCC0392                      2         1
          FCC0448                      2         0
          FCC0514                      1         1
          FCC0603                      1         1
          FCC0641                      2         2
          FCC0643                      2         2
          FEAT126A                     2         2
          FCC0675                      3         2
          FCC0789                      3         3
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 469    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNTEXT 
  
          FCC0882                      1         1
          FCC0977                      2         1
          FEAT155D                     1         1
          FEAT155F                    13        12
          FCC0807                      1         1
          FCC1088                      3         3
          FCC1319                     12        12
          FCC1448X                     5         5
          F7540FTA                     2         2
          RSM3545C                     3         3
          FCC1716X                     1         1
          F66FCC                      11         8
          F66FCCA                      2         2
          FCC1918                      3         3
          FCCA408                     20        20
          FCCA451                      8         6
          FEAT1070C                   18        18
          FCCA511                      1         1
          FCC2186                      3         3
          FCC2305                      1         1
          FCC2392                      2         2
          FCCA589                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN WEOR3*  
  
 WEOR3*   *DECK WEOR3*                                                                     FCCA589       20     A     
 WEOR3*   *WEOR 0                                                                          FCCA589       21     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - WEOR3*  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FCCA589                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *FTN*   
  
 *FTN*    *DECK     *FTN*,COMPASS                                                          *FTN*          1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *FTN*   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          *FTN*                        1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES   *COMDECK FTNRES                                                                  FTNRES         1     A     
 FTNRES                                                                                    FTNRES         2     A     
 FTNRES    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FCCA489        8     A     
 FTNRES   *                            VALID ONLY FOR NOS,NOS-BE                           FCCA489        9     A     
 FTNRES             LDSET  EPT=FTN                                                         FCCA489       10     A     
 FTNRES             LDSET  EPT=FTN4                                                        FCCA489       11     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 470    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES    #OS      ENDIF                                                                  FCCA489       12     A     
 FTNRES                                                                                    FTNRES         3     A     
 FTNRES             LIST   F,X                                                             FTNRES         4     A     
 FTNRES                                                                                    FTNRES         5     A     
 FTNRES             SPACE  3                                                               FTNRES         6     A     
 FTNRES   ***                                                                              FTNRES         7     A     
 FTNRES   *         CONTROL DATA PROPRIETARY PRODUCT.                                      FTNRES         8     A     
 FTNRES   *         COPYRIGHT CONTROL DATA CORP. 1973                                      FTNRES         9          I
          -FCCCPRT
 FTNRES   *         COPYRIGHT CONTROL DATA CORP. 1973,1974,1975                            FCCCPRT        1          I
          -FCC*76 
 FTNRES   *         COPYRIGHT CONTROL DATA CORP. 1973,1974,1975,1976                       FCC*76         4          I
          -FCC*77X
 FTNRES   *         COPYRIGHT CONTROL DATA CORP. 1973,1974,1975,1976,1977.                 FCC*77X        5          I
          -FCC*78X
 FTNRES   *         COPYRIGHT CONTROL DATA CORP. 1973,1974,1975,1976,1977,1978.            FCC*78X        5          I
          -FCC*79 
 FTNRES   *         COPYRIGHT CONTROL DATA CORP. 1973,1974,1975,1976,1977                  FCC*79         4     A     
 FTNRES   *         COPYRIGHT CONTROL DATA CORP. 1978, 1979                                FCC*79         5          I
          -FCC*80 
 FTNRES   *         COPYRIGHT CONTROL DATA CORP. 1978, 1979, 1980                          FCC*80         4          I
          -FCC*81 
 FTNRES   *         COPYRIGHT CONTROL DATA CORP. 1978,1979,1980,1981                       FCC*81         5          I
          -FCC*82 
 FTNRES   *         COPYRIGHT CONTROL DATA CORP. 1978,1979,1980,1981,1982                  FCC*82         5     A     
 FTNRES             SPACE  3                                                               FTNRES        10     A     
 FTNRES   ***                                                                              FTNRES        11     A     
 FTNRES   *         FTN - 0.0 OVERLAY OF THE FORTRAN EXTENDED COMPILER                     FTNRES        12     A     
 FTNRES   *                                                                                FTNRES        13     A     
 FTNRES   *         FUNCTIONS                                                              FTNRES        14     A     
 FTNRES   *                SYSTEM INTERFACE AND I/O SUBROUTINES                            FTNRES        15     A     
 FTNRES   *                CONTROL CARD CRACKER                                            FTNRES        16     A     
 FTNRES   *                COMPILER INITIALIZATION                                         FTNRES        17     A     
 FTNRES             TITLE  INSTALLATION OPTIONS                                            FTNRES        18     A     
 FTNRES   ***       COMPILER INSTALLATION OPTIONS.                                         FTNRES        19     A     
 FTNRES   *                                                                                FTNRES        20     A     
 FTNRES   *         THE FOLLOWING OPTIONS MAY BE CHANGED TO MEET INSTALLATION              FTNRES        21     A     
 FTNRES   *         NEEDS.  THEY ARE LOCATED HERE (RATHER THAN IN THE -OPTIONS-            FTNRES        22     A     
 FTNRES   *         COMDECK) TO REDUCE THE SIZE OF THE GLOBAL ASSEMBLY TEXT                FTNRES        23     A     
 FTNRES   *         -FTNTEXT- AND MINIMIZE THE FIELD LENGTH NEEDED FOR ASSEMBLY.           FTNRES        24     A     
 FTNRES    CONFIG   SPACE  4,12                                                            FTNRES        25     A     
 FTNRES   ***       COMPILER CONFIGURATION.                                                FTNRES        26     A     
 FTNRES   *                                                                                FTNRES        27     A     
 FTNRES   *                                                                                FTNRES        28     A     
 FTNRES   *         FTN CAN BE ASSEMBLED IN A *SYSTEM* OR A *TEST* CONFIGURATION.          FTNRES        29     A     
 FTNRES   *                                                                                FTNRES        30     A     
 FTNRES   *         THE SYSTEM CONFIGURATION IS STANDARD, AND IS INTENDED FOR              FTNRES        31     A     
 FTNRES   *         CUSTOMER INSTALLATION.                                                 FTNRES        32     A     
 FTNRES   *                                                                                FTNRES        33     A     
 FTNRES   *         THE TEST CONFIGURATION IS INTENDED FOR COMPILER INTERNAL               FTNRES        34     A     
 FTNRES   *         DEBUGGING.  IT IS NOT STRUCTURED FOR SYSTEM INSTALLATION,              FTNRES        35     A     
 FTNRES   *         REQUIRES MORE FIELD LENGTH, AND COMPILES MORE SLOWLY IN THIS           FTNRES        36     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 471    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES   *         MODE.  THUS, IT IS NEITHER SUITED TO NOR INTENDED FOR USE BY           FTNRES        37     A     
 FTNRES   *         CUSTOMERS.  CONTROL DATA CORP. WILL NOT BE RESPONSIBLE FOR             FTNRES        38     A     
 FTNRES   *         DEFICIENCIES IN TEST MODE COMPILER PERFORMANCE.                        FTNRES        39     A     
 FTNRES   *                                                                                FTNRES        40     A     
 FTNRES   *         COMPILER CONFIGURATION IS CONTROLLED BY THE DEFINITION OR              FTNRES        41     A     
 FTNRES   *         UNDEFINITION OF THE *UPDATE* SYMBOL -TESTFTN- AT COMPILER              FTNRES        42     A     
 FTNRES   *         INSTALLATION TIME.  NON-STANDARD PROCEDURES ARE NECESSARY FOR          FTNRES        43     A     
 FTNRES   *         INSTALLATION IN THE TEST CONFIGURATION.                                FTNRES        44     A     
 FTNRES   *                                                                                FTNRES        45     A     
 FTNRES   *         TEST CONFIGURATION FEATURES ARE ...                                    FTNRES        46     A     
 FTNRES   *                                                                                FTNRES        47     A     
 FTNRES   *         A) IT WILL LOAD FROM A LOCAL FILE.                                     FTNRES        48     A     
 FTNRES   *                                                                                FTNRES        49     A     
 FTNRES   *         B) THE REGISTER SNAP ROUTINES WILL BE ASSEMBLED INTO THE               FTNRES        50     A     
 FTNRES   *            1.0 AND 2.0 OVERLAYS.                                               FTNRES        51     A     
 FTNRES   *                                                                                FTNRES        52     A     
 FTNRES   *         C) THE CONTENTS OF THE SYMBOL TABLE WILL BE DUMPED TO THE              FTNRES        53     A     
 FTNRES   *            LOCAL FILE "SYMTAB" AT THE END OF PASS 1 ( BEFORE END               FTNRES        54     A     
 FTNRES   *            PROCESSING ) AND AT THE END OF PASS 2 ( BEFORE REFMAP ).            FTNRES        55     A     
 FTNRES   *            THE UTILITY PROGRAM "RDUMP" MAY BE USED TO PRINT IT OUT.            FTNRES        56     A     
 FTNRES   *                                                                                FTNRES        57     A     
 FTNRES   *         D) CODE FOR THE SPY OPTION WILL BE ASSEMBLED.                          FTNRES        58     A     
 FTNRES   *            SPY=NNNB OR SPY, -- SET BIN WIDTH FOR PPU ROUTINE SPY AND           FTNRES        59     A     
 FTNRES   *            HAVE IT SPY ON THE COMPILER OVERLAY BY OVERLAY.                     FTNRES        60     A     
 FTNRES   *            AT THE END OF COMPILATION "FTN" WILL CALL "PRNSPY" TO               FTNRES        61     A     
 FTNRES   *            PRINT OUT THE HISTOGRAM PREPARED BY <SPY>.                          FTNRES        62     A     
 FTNRES   *                                                                                FTNRES        63     A     
 FTNRES   *         E) OVERLAY EXECUTION MAY BE SELECTIVELY CONTROLLED BY THE              FTNRES        64     A     
 FTNRES   *            SNAP= CONTROL CARD OPTION.  WHEN SNAP=0 THRU =5 IS SELECTED         FTNRES        65     A     
 FTNRES   *            THE OVERLAY WITH THE MATCHING SECONDARY LEVEL NUMBER WILL           FTNRES        66     A     
 FTNRES   *            BE LOADED BUT NOT EXECUTED.  FTN WILL TURN THE PAUSE BIT            FTNRES        67     A     
 FTNRES   *            (IN *RA.SSW*) ON, AND LOOP ON RECALL.  BREAKPOINTS MAY NOW          FTNRES        68     A     
 FTNRES   *            BE PLACED, AND EXECUTION RESUMED BY ENTERING *GO*.                  FTNRES        69     A     
 FTNRES   *                                                                                FTNRES        70     A     
 FTNRES   *         F) THE REPRIEVE UTILITY IN *LSTPRO* WILL FLUSH THE CIO BUFFERS         FTNRES        71     A     
 FTNRES   *            FOR THE *COMPS*, *LGO*, *REFMAP* AND *RLIST* FILES.                 FTNRES        72     A     
 FTNRES   *            REPRIEVE CAN BE INHIBITED BY TURNING SENSE SWITCH 6 ON.             FTNRES        73     A     
 FTNRES   *                                                                                FTNRES        74     A     
 FTNRES   *         G) SETTING OT#RM (IN THE *OPTIONS* COMDECK) TO "7" ON A                FTNRES        75     A     
 FTNRES   *            CYBER 74-2 OR SMALLER WILL PRODUCE CYBER 76 CODE.  THIS             FTNRES        76     A     
 FTNRES   *            CODE CANNOT BE LOADED BY THE SCOPE 2 LOADER BUT IS USEFUL           FTNRES        77     A     
 FTNRES   *           FOR BENCH CHECKING. (THIS FEATURE IS NOT IMPLEMENTED IN TS           FTNRES        78     A     
 FTNRES   *           MODE.)                                                               FTNRES        79     A     
 FTNRES   *                                                                                FTNRES        80     A     
 FTNRES   *         H) A LIMITED CROSS-MODEL CAPABILITY IS AVAILABLE (IN OPT MODE          FTNRES        81     A     
 FTNRES   *            ONLY) IN THE STANDARD CYBER 76 COMPILER THROUGH THE USE OF          FTNRES        82     A     
 FTNRES   *            THE "M" OPTION.  BINARY WHICH IS READABLE BY THE SCOPE 3.4          FTNRES        83     A     
 FTNRES   *            LOADER WILL BE PRODUCED.  THIS CODE WILL STILL BE OPTIMIZED         FTNRES        84     A     
 FTNRES   *            FOR CYBER 76 UNLESS THE OBJECT "MODEL" MICRO IS CHANGED IN          FTNRES        85     A     
 FTNRES   *            THE OPTIONS COMDECK (WHICH IS CALLED BY FTNTEXT) AND THE            FTNRES        86     A     
 FTNRES   *            COMPILER IS REBUILT USING THE NEW FTNTEXT (WHICH ALSO ENDS          FTNRES        87     A     
 FTNRES   *            THE NEED FOR THE "M" OPTION).                                       FTNRES        88     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 472    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES    CTL.CARD  SPACE 4,8                                                             FTNRES        89     A     
 FTNRES   ***       CONTROL CARD OPTIONS.                                                  FTNRES        90     A     
 FTNRES   *                                                                                FTNRES        91     A     
 FTNRES   *                                                                                FTNRES        92     A     
 FTNRES   *            OPTION          MEANING                                             FTNRES        93     A     
 FTNRES   *            ------          -------                                             FTNRES        94     A     
 FTNRES   *                                                                                FTNRES        95     A     
 FTNRES   *              A             ABORT AT END OF COMPILATION IF COMPILATION          FTNRES        96     A     
 FTNRES   *                              (OR INTERMIXED ASSEMBLY) FATAL ERRORS.            FTNRES        97     A     
 FTNRES   *              A=0           DO NOT ABORT                                        FTNRES        98     A     
 FTNRES   *                                                                                FTNRES        99     A     
 FTNRES   *              B             PRODUCE OBJECT CODE ON DEFAULT OBJECT FILE          FTNRES       100     A     
 FTNRES   *              B=0           INHIBIT OBJECT CODE PRODUCTION                      FTNRES       101     A     
 FTNRES   *              B=LFN         PRODUCE OBJECT CODE ON FILE 'LFN'                   FTNRES       102     A     
 FTNRES   *                                                                                FTNRES       103     A     
 FTNRES   *              BL            PRODUCE STANDARD (BURSTABLE) LISTING.               FTNRES       104     A     
 FTNRES   *              BL=0          PRODUCE CONDENSED (NO WASTE) LISTING.               FTNRES       105     A     
 FTNRES   *                                                                                FTNRES       106     A     
 FTNRES   *              C             USE 'COMPASS' ASSEMBLER TO PRODUCE OBJECT           FTNRES       107     A     
 FTNRES   *                            CODE (CPU COMPILATION TIME WILL INCREASE            FTNRES       108     A     
 FTNRES   *                              BY A FACTOR OF APPROXIMATELY 2.6)                 FTNRES       109     A     
 FTNRES   *              C=0           USE FTN INTERNAL ASSEMBLER.                         FTNRES       110     A     
 FTNRES   *                                                                                FTNRES       111     A     
 FTNRES   *              D             SELECT FORTRAN DEBUG MODE OF COMPILATION            FTNRES       112     A     
 FTNRES   *                              (THE DEFAULT INPUT FILE WILL BE READ TO           FTNRES       113     A     
 FTNRES   *                              CHECK FOR AN EXTERNAL PACKET)                     FTNRES       114     A     
 FTNRES   *              D=LFN         SAME AS 'D' BUT READ FROM FILE 'LFN'                FTNRES       115     A     
 FTNRES   *              D=0           DO NOT SELECT DEBUG MODE.                           FTNRES       116     A     
 FTNRES   *                                                                                FTNRES       117     A     
 FTNRES   *             DB             SELECTS INTERACTIVE DEBUG                           F66FCC        76     A     
 FTNRES   *             DB=ID          SAME AS DB                                          F66FCC        77     A     
 FTNRES   *             DB=0           DESELECTS INTERACTIVE DEBUG                         F66FCC        78     A     
 FTNRES   *                                                                                FTNRES       118     A     
 FTNRES   *              E             GENERATE '*DECK' CARDS PRIOR TO THE                 FTNRES       119     A     
 FTNRES   *                              GENERATED COMPASS IMAGES FOR EACH PROGRAM         FTNRES       120     A     
 FTNRES   *                              UNIT ON THE DEFAULT COMPASS IMAGES FILE.          FTNRES       121     A     
 FTNRES   *                              'B=0' IS FORCED AND THE 'O' AND 'C'               FTNRES       122     A     
 FTNRES   *                              OPTIONS MAY NOT BE SELECTED.                      FTNRES       123     A     
 FTNRES   *              E=LFN         SAME AS 'E' EXCEPT PRODUCE COMPASS IMAGES           FTNRES       124     A     
 FTNRES   *                              ON THE FILE 'LFN'                                 FTNRES       125     A     
 FTNRES   *              E=0           DESELECT E OPTION.                                  FTNRES       126     A     
 FTNRES   *                                                                                FTNRES       127     A     
 FTNRES   *              EL=A          ISSUE ANSI, INFORMATIVE, NOTE, WARNING,             FTNRES       128     A     
 FTNRES   *                            AND FATAL DIAGNOSTICS.                              FTNRES       129     A     
 FTNRES   *              EL=N          ISSUE INFORMATIVE, NOTE, WARNING, AND               FTNRES       130     A     
 FTNRES   *                            FATAL DIAGNOSTICS.                                  FTNRES       131     A     
 FTNRES   *              EL=I          SAME AS EL=N.                                       FTNRES       132     A     
 FTNRES   *              EL=W          LIST WARNING AND FATAL DIAGNOSTICS.                 FTNRES       133     A     
 FTNRES   *              EL=F          LIST FATAL DIAGNOSTICS ONLY.                        FTNRES       134     A     
 FTNRES   *                                                                                FTNRES       135     A     
 FTNRES   *              ER            SELECT OBJECT TIME ERROR RECOVERY                   FEAT155J       4     A     
 FTNRES   *              ER=0          NO OBJECT TIME ERROR RECOVERY                       FEAT155J       5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 473    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES   *                                                                                FEAT155J       6     A     
 FTNRES   *              G=LFN         LOAD SYSTEM TEXT OVERLAY FROM SEQUENTIAL            FTNRES       136     A     
 FTNRES   *                            BINARY FILE LFN.                                    FTNRES       137     A     
 FTNRES   *              G=LFN/OVL     SEARCH LFN FOR OVERLAY OVL AND LOAD IT.             FTNRES       138     A     
 FTNRES   *              G=0           NO TEXT IS LOADED.                                  FTNRES       139     A     
 FTNRES   *              G             LOAD TEXT FROM DEFAULT FILE.                        FTNRES       140     A     
 FTNRES   *                                                                                FTNRES       141     A     
 FTNRES   *              GO            LOAD AND EXECUTE BINARY OBJECT FILE                 FTNRES       142     A     
 FTNRES   *                            SPECIFIED BY B OPTION.                              FTNRES       143     A     
 FTNRES   *              GO=0          DO NOT LOAD AND EXECUTE BINARY OBJECT FILE.         FTNRES       144     A     
 FTNRES   *                                                                                FTNRES       145     A     
 FTNRES   *              I             SOURCE INPUT FROM DEFAULT INPUT FILE                FTNRES       146     A     
 FTNRES   *              I=LFN         SOURCE INPUT FROM FILE 'LFN'                        FTNRES       147     A     
 FTNRES   *                                                                                FTNRES       148     A     
 FTNRES   *              L=LFN         WRITE ALL LISTABLE OUTPUT ON FILE LFN.              FTNRES       149     A     
 FTNRES   *              L             LIST ON DEFAULT FILE.                               FTNRES       150     A     
 FTNRES   *              L=0           LIST ONLY FATAL ERRORS ON DEFAULT FILE.             FTNRES       151     A     
 FTNRES   *                                                                                FTNRES       152     A     
 FTNRES   *              LCM           SELECT OBJECT CODE METHOD FOR CALCULATING           FTNRES       153     A     
 FTNRES   *                              ADDRESSES TO REFERENCE LEVEL 2 VARIABLES          FTNRES       154     A     
 FTNRES   *                              THAT RESIDE IN DIRECT-ACCESS LCM.                 FTNRES       155     A     
 FTNRES   *              LCM=D         18-BIT DIRECT CALCULATION.                          FTNRES       156     A     
 FTNRES   *              LCM=I         21-BIT INDIRECT CALCULATION.                        FTNRES       157     A     
 FTNRES   *                              (APPLIES ONLY TO CYBER 75 / 7600 OR               FTNRES       158     A     
 FTNRES   *                              LARGER MODELS WITH DIRECT-ACCESS LCM.             FTNRES       159     A     
 FTNRES   *                              OPTION IS IGNORED ON SMALLER MODELS.)             FTNRES       160     A     
 FTNRES   *                                                                                FEAT1070C     76     A     
 FTNRES   *              LTP           SELECT POST MORTEM DUMP (PMDMP)                     FEAT1070C     77     A     
 FTNRES   *              LTP=0         DISABLE PMDMP                                       FEAT1070C     78     A     
 FTNRES   *              PMD           SELECT POST MORTEM DUMP (PMDMP)                     FEAT1070C     79     A     
 FTNRES   *              PMD=0         DISABLE PMDMP                                       FEAT1070C     80     A     
 FTNRES   *                                                                                FTNRES       161     A     
 FTNRES   *              ML=NNN        MODLEVEL PASSED TO COMPASS.                         FTNRES       162     A     
 FTNRES   *                                                                                FTNRES       163     A     
 FTNRES   *              OL            GENERATED OBJECT CODE IS LISTED.                    FTNRES       164     A     
 FTNRES   *              OL=0          GENERATED OBJECT CODE IS NOT LISTED.                FTNRES       165     A     
 FTNRES   *                                                                                FTNRES       166     A     
 FTNRES   *              OPT=0         MINIMUM OBJECT CODE OPTIMIZATION.                   FTNRES       167     A     
 FTNRES   *              OPT=1         STANDARD OBJECT CODE OPTIMIZATION.                  FTNRES       168     A     
 FTNRES   *              OPT=2         MAXIMUM OBJECT CODE OPTIMIZATION.                   FTNRES       169     A     
 FTNRES   *                                                                                FTNRES       170     A     
 FTNRES   *              P             CONTINUE PAGE NUMBERS FROM PROGRAM UNIT             FTNRES       171     A     
 FTNRES   *                            TO PROGRAM UNIT.                                    FTNRES       172     A     
 FTNRES   *              P=0           PAGE NUMBERING WILL BEGIN AT 1 FOR EACH             FTNRES       173     A     
 FTNRES   *                            NEW PROGRAM UNIT.                                   FTNRES       174     A     
 FTNRES   *                                                                                FTNRES       175     A     
 FTNRES   *              PD            PRODUCE LISTING AT 8 LINES PER INCH.                FEAT155E      14     A     
 FTNRES   *              PD=6          PRODUCE LISTING AT 6 LINES PER INCH.                FEAT155E      15     A     
 FTNRES   *              PD=8          PRODUCE LISTING AT 8 LINES PER INCH.                FEAT155E      16     A     
 FTNRES   *                                                                                FEAT155E      17     A     
 FTNRES   *              PL=NNN        LIMIT LENGTH OF THE EXECUTION-TIME PRINT            FTNRES       176     A     
 FTNRES   *                              FILE TO *NNN* LINES.  DEFAULT VALUE IS            FTNRES       177     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 474    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES   *                              5000 LINES.                                       FTNRES       178     A     
 FTNRES   *                                                                                FTNRES       179     A     
 FTNRES   *              PS=NNN        MAXIMUM LENGTH IN LINES OF EACH PAGE.               FEAT155E      18     A     
 FTNRES   *                                                                                FEAT155E      19     A     
 FTNRES   *              PW=N          WIDTH OF PRINTED PAGE FOR COMPILE TIME              FEAT126AB     14     A     
 FTNRES   *                            OUTPUT, WHERE N IS THE LENGTH IN CHARACTERS         FEAT126AB     15     A     
 FTNRES   *                                                                                FTNRES       180     A     
 FTNRES   *              R=0           SELECT NO FORTRAN CROSS-REFERENCE MAP               FTNRES       181     A     
 FTNRES   *              R=1           SELECT SHORT CROSS-REFERENCE MAP                    FTNRES       182     A     
 FTNRES   *              R=2           SELECT FULL  CROSS-REFERENCE MAP                    FTNRES       183     A     
 FTNRES   *              R=3           SELECT FULL  CROSS-REFERENCE MAP AND A MAP          FTNRES       184     A     
 FTNRES   *                              OF EQUIVALENCE CLASSES AND COMMON BLOCKS          FTNRES       185     A     
 FTNRES   *                                                                                FTNRES       186     A     
 FTNRES   *              ROUND=+-*/    (ANY OR ALL OF THE OPERATORS +-*/ MAY               FTNRES       187     A     
 FTNRES   *                              APPEAR) SELECT ROUND MACHINE INSTRUCTIONS         FTNRES       188     A     
 FTNRES   *                              TO BE USED ON REAL AND COMPLEX OPERANDS           FTNRES       189     A     
 FTNRES   *                              OF THE DESIGNATED OPERATORS.                      FTNRES       190     A     
 FTNRES   *              ROUND         SAME AS ROUND=+-*/                                  FTNRES       191     A     
 FTNRES   *              ROUND=0       NO ROUNDING IS PERFORMED.                           FTNRES       192     A     
 FTNRES   *                                                                                FTNRES       193     A     
 FTNRES   *              S             USE DEFAULT SYSTEMS TEXT NAME FOR INTER-            FTNRES       194     A     
 FTNRES   *                              MIXED COMPASS PROGRAM UNITS                       FTNRES       195     A     
 FTNRES   *              S=0           SELECT NO SYSTEMS TEXT                              FTNRES       196     A     
 FTNRES   *              S=LFN         USE 'LFN' AS SYSTEMS TEXT FOR INTER-MIXED           FTNRES       197     A     
 FTNRES   *                              COMPASS PROGRAM UNITS                             FTNRES       198     A     
 FTNRES   *                                                                                FTNRES       199     A     
 FTNRES   *              SL            LIST SOURCE PROGRAM.                                FTNRES       200     A     
 FTNRES   *              SL=0          DO NOT LIST SOURCE PROGRAM.                         FTNRES       201     A     
 FTNRES   *                                                                                FTNRES       202     A     
 FTNRES   *              SYSEDIT       INHIBIT USAGE OF ENTRY POINTS FOR FILE              FTNRES       203     A     
 FTNRES   *                            ENVIRONMENT TABLE ADDRESS PASSING AND FORCE         FTNRES       204     A     
 FTNRES   *                            A LOW-CORE SEARCH FOR EACH I/O REFERENCE            FTNRES       205     A     
 FTNRES   *                            (EXECUTION TIME WILL INCREASE).                     FTNRES       206     A     
 FTNRES   *              SYSEDIT=0     DESELECT SYSEDIT OPTION.                            FTNRES       207     A     
 FTNRES   *                                                                                FTNRES       208     A     
 FTNRES   *              T             SELECT FULL ERROR CHECKING FOR BASIC                FTNRES       209     A     
 FTNRES   *                              EXTERNAL FUNCTIONS (EXECUTION TIME WILL           FTNRES       210     A     
 FTNRES   *                              INCREASE)                                         FTNRES       211     A     
 FTNRES   *              T=0           TRACE MODE NOT SELECTED                             FTNRES       212     A     
 FTNRES   *                                                                                FTNRES       213     A     
 FTNRES   *              TS            SELECT TIME SHARING MODE.                           FTNRES       214     A     
 FTNRES   *              TS=0          SELECT 2-PASS COMPILER.                             FTNRES       215     A     
 FTNRES   *                                                                                FEAT121A      22     A     
 FTNRES   *                UO          SELECT UNSAFE OPTIMIZATIONS ( OPT=2 ONLY )          FEAT121A      23     A     
 FTNRES   *                                                                                FTNRES       216     A     
 FTNRES   *              X=LFN         NAME OF FILE WITH COMPASS XTEXT.                    FTNRES       217     A     
 FTNRES   *              X             SAME AS X=OPL.                                      FTNRES       218     A     
 FTNRES   *                                                                                FTNRES       219     A     
 FTNRES   *              Z             SUBROUTINE CALLS WITH NO PARAMETERS PASS A          FTNRES       220     A     
 FTNRES   *                            ZERO WORD.                                          FTNRES       221     A     
 FTNRES   *              Z=0           NO ZERO WORD IS PASSED.                             FTNRES       222     A     
 FTNRES   *                                                                                FTNRES       223     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 475    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES                                                                                    FTNRES       224     A     
 FTNRES                                                                                    FTNRES       225     A     
 FTNRES                                                                                    FTNRES       226     A     
 FTNRES   **        DEFAULT CONTROL CARD OPTIONS.                                          FTNRES       227     A     
 FTNRES   *                                                                                FTNRES       228     A     
 FTNRES   *         THE STANDARD DEFAULT OPTIONS ARE LISTED BELOW.  OPTIONS WILL           FTNRES       229     A     
 FTNRES   *         BE SET TO THESE VALUES WHEN THE CONTROL CARD CALL IS JUST,             FTNRES       230     A     
 FTNRES   *                            FTN.                                                FTNRES       231     A     
 FTNRES   *                                                                                FTNRES       232     A     
 FTNRES   *         ANY OPTION MAY BE CHANGED TO MEET INSTALLATION NEEDS BY                FTNRES       233     A     
 FTNRES   *         REVISING THE APPROPRIATE MICRO, WHICH FOLLOWS.                         FTNRES       234     A     
 FTNRES   *                                                                                FTNRES       235     A     
 FTNRES   *                                                                                FTNRES       236     A     
 FTNRES   *         A=0                                                                    FTNRES       237     A     
 FTNRES   *         B=LGO                                                                  FTNRES       238     A     
 FTNRES   *         BL=0                                                                   FTNRES       239     A     
 FTNRES   *         C=0                                                                    FTNRES       240     A     
 FTNRES   *         D=0                                                                    FTNRES       241     A     
 FTNRES   *         DB = (SYSTEM FID COMMUNICATION CELL)                                   F66FCC        79     A     
 FTNRES   *         E=0                                                                    FTNRES       242     A     
 FTNRES   *         EL=I                                                                   FTNRES       243     A     
 FTNRES   *         ER=0                                                                   FEAT155J       7     A     
 FTNRES   *         G=0                                                                    FTNRES       244     A     
 FTNRES   *         GO=0                                                                   FTNRES       245     A     
 FTNRES   *         I=INPUT                                                                FTNRES       246     A     
 FTNRES   *         L=OUTPUT                                                               FTNRES       247     A     
 FTNRES   *         LCM=D                                                                  FTNRES       248     A     
 FTNRES   *         OL=0                                                                   FTNRES       249     A     
 FTNRES   *         OPT=1                                                                  FTNRES       250     A     
 FTNRES   *         P=0                                                                    FTNRES       251     A     
 FTNRES   *         PD=6                                                                   FEAT155E      20          I
          -FCCA593
 FTNRES   *         PD = JOB DEFAULT                                                       FCCA593       10     A     
 FTNRES   *         PL=5000                                                                FTNRES       252     A     
 FTNRES   *         PS=60                                                                  FEAT155E      21          I
          -FCCA593
 FTNRES   *         PS = JOB DEFAULT                                                       FCCA593       11     A     
 FTNRES   *         PW=126                                                                 FEAT126AB     16     A     
 FTNRES   *         Q=0                                                                    FTNRES       253     A     
 FTNRES   *         R=1                                                                    FTNRES       254     A     
 FTNRES   *         ROUND=0                                                                FTNRES       255     A     
 FTNRES   *         S=SYSTEXT                                                              FTNRES       256     A     
 FTNRES   *         SEQ=0                                                                  FTNRES       257     A     
 FTNRES   *         SL                                                                     FTNRES       258     A     
 FTNRES   *         SYSEDIT=0                                                              FTNRES       259     A     
 FTNRES   *         T=0                                                                    FTNRES       260     A     
 FTNRES   *         TS=0                                                                   FTNRES       261     A     
 FTNRES   *         UO=0                                                                   FEAT121A      24     A     
 FTNRES   *         X=OLDPL                                                                FTNRES       262     A     
 FTNRES   *         Z=0                                                                    FTNRES       263     A     
 FTNRES                                                                                    FTNRES       264     A     
 FTNRES                                                                                    FTNRES       265     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 476    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES                                                                                    FTNRES       266     A     
 FTNRES   **        SELECT DEFAULT CONTROL CARD OPTIONS.                                   FTNRES       267     A     
 FTNRES   *                                                                                FTNRES       268     A     
 FTNRES   *         THE CONTROL CARD OPTIONS ARE DIVIDED INTO THREE TYPES, THE             FTNRES       269     A     
 FTNRES   *         FIRST GROUP CONSISTS OF OPTIONS WHICH CAN ONLY BE TOGGLED,             FTNRES       270     A     
 FTNRES   *         I.E., OPTION OR OPTION=0.  THE SECOND TYPE IS OF THE FORM              FTNRES       271     A     
 FTNRES   *         OPTION=LFN, WHERE LFN IS A FILE NAME.  THE THIRD IS OF THE             FTNRES       272     A     
 FTNRES   *         FORM OPTION=ARG WHERE ARG IS AN APPROPRIATE ARGUMENT.                  FTNRES       273     A     
 FTNRES                                                                                    FTNRES       274     A     
 FTNRES                                                                                    FTNRES       275     A     
 FTNRES   **        TOGGLED OPTIONS.                                                       FTNRES       276     A     
 FTNRES   *                                                                                FTNRES       277     A     
 FTNRES   *         TO SELECT A DEFAULT DIFFERENT FROM THE STANDARD SET THE                FTNRES       278     A     
 FTNRES   *         APPROPRIATE MICRO TO EITHER *ON* OR *OFF* IN THE FOLLOWING             FTNRES       279     A     
 FTNRES   *         TABLE.                                                                 FTNRES       280     A     
 FTNRES                                                                                    FTNRES       281     A     
 FTNRES    ON       EQU    1                                                               FTNRES       282     A     
 FTNRES    OFF      EQU    0                                                               FTNRES       283     A     
 FTNRES    CHAR     EQU    6                                                               FTNRES       284     A     
 FTNRES                                                                                    FTNRES       285     A     
 FTNRES   *                   VALUE        OPTION                                          FTNRES       286     A     
 FTNRES    CC.A     MICRO  1,, OFF           A                                             FTNRES       287     A     
 FTNRES    CC.BL    MICRO  1,, OFF           BL                                            FTNRES       288     A     
 FTNRES    CC.C     MICRO  1,, OFF           C                                             FTNRES       289     A     
 FTNRES    CC.ERT   MICRO  1,, ON       ER WITH TS                                         FEAT155J       8     A     
 FTNRES    CC.ER0   MICRO  1,, ON     ER WITH OPT=0                                        FEAT155J       9     A     
 FTNRES    CC.ER1   MICRO  1,, OFF    ER WITH OPT=1                                        FEAT155J      10     A     
 FTNRES    CC.ER2   MICRO  1,, OFF    ER WITH OPT=2                                        FEAT155J      11     A     
 FTNRES    CC.GO    MICRO  1,, OFF           GO                                            FTNRES       290     A     
 FTNRES    CC.PMD   MICRO  1,, OFF                                                         FEAT1070C     81     A     
 FTNRES    CC.OL    MICRO  1,, OFF           OL                                            FTNRES       291     A     
 FTNRES    CC.P     MICRO  1,, OFF           P                                             FTNRES       292     A     
 FTNRES    CC.Q     MICRO  1,, OFF           Q                                             FTNRES       293     A     
 FTNRES    CC.SL    MICRO  1,, ON            SL                                            FTNRES       294     A     
 FTNRES    CC.SEQ   MICRO  1,, OFF          SEQ                                            FTNRES       295     A     
 FTNRES    CC.STA   MICRO  1,, OFF         STATIC                                          F162FTNA     357     A     
 FTNRES    CC.EDT   MICRO  1,, OFF        SYSEDIT                                          FTNRES       296     A     
 FTNRES    CC.T     MICRO  1,, OFF           T                                             FTNRES       297     A     
 FTNRES    CC.TS    MICRO  1,, OFF           TS                                            FTNRES       298     A     
 FTNRES    CC.Z     MICRO  1,, OFF           Z                                             FTNRES       299     A     
 FTNRES                                                                                    FTNRES       300     A     
 FTNRES                                                                                    FTNRES       301     A     
 FTNRES                                                                                    FTNRES       302     A     
 FTNRES   **        FILE OPTIONS.                                                          FTNRES       303     A     
 FTNRES   *                                                                                FTNRES       304     A     
 FTNRES   *         EXCEPT WHERE NOTED THE FOLLOWING MICROS SHOULD BE SET TO               FTNRES       305     A     
 FTNRES   *         EITHER *OFF* OR A FILE NAME OF UP TO 7 CHARACTERS.                     FTNRES       306     A     
 FTNRES                                                                                    FTNRES       307     A     
 FTNRES   *                   VALUE        OPTION        NOTE                              FTNRES       308     A     
 FTNRES    CC.B     MICRO  1,, LGO           B         FILENAME ONLY                       FTNRES       309     A     
 FTNRES    CC.D     MICRO  1,, OFF           D                                             FTNRES       310     A     
 FTNRES    CC.E     MICRO  1,, OFF           E                                             FTNRES       311     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 477    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES    CC.I     MICRO  1,, INPUT         I         FILENAME ONLY                       FTNRES       312     A     
 FTNRES    CC.L     MICRO  1,, OUTPUT        L                                             FTNRES       313     A     
 FTNRES                                                                                    FTNRES       314     A     
 FTNRES   *         THE FOLLOWING FILE OPTION MICROS SHOULD BE SET TO THE FILENAME         FTNRES       315     A     
 FTNRES   *         DESIRED WHEN THE OPTION IS SPECIFIED ON THE CONTROL CARD BUT           FTNRES       316     A     
 FTNRES   *         IS NOT EQUIVALENCED.  FOR EXAMPLE - FTN,I. WOULD BE AS IF              FTNRES       317     A     
 FTNRES   *         FTN,I=COMPILE WERE SPECIFIED IF THE CCA.I MICRO BELOW IS NOT           FTNRES       318     A     
 FTNRES   *         CHANGED.  THE ONLY ACCEPTABLE VALUE OF THESE MICROS IS A               FTNRES       319     A     
 FTNRES   *         FILE NAME OF ONE TO SEVEN CHARACTERS.                                  FTNRES       320     A     
 FTNRES                                                                                    FTNRES       321     A     
 FTNRES   *                   VALUE        OPTION                                          FTNRES       322     A     
 FTNRES    CCA.B    MICRO  1,, LGO           B                                             FTNRES       323     A     
 FTNRES    CCA.D    MICRO  1,, INPUT         D                                             FTNRES       324     A     
 FTNRES    CCA.E    MICRO  1,, COMPS         E                                             FTNRES       325     A     
 FTNRES    CCA.G    MICRO  1,, SYSTEXT       G                                             FTNRES       326     A     
 FTNRES    CCA.I    MICRO  1,, COMPILE       I                                             FTNRES       327     A     
 FTNRES    CCA.L    MICRO  1,, OUTPUT        L                                             FTNRES       328     A     
 FTNRES    CCA.S    MICRO  1,, SYSTEXT       S                                             FTNRES       329     A     
 FTNRES    CCA.X    MICRO  1,, OPL           X                                             FTNRES       330     A     
 FTNRES                                                                                    FTNRES       331     A     
 FTNRES                                                                                    FTNRES       332     A     
 FTNRES                                                                                    FTNRES       333     A     
 FTNRES   **        OPTION=ARGUMENT OPTIONS                                                FTNRES       334     A     
 FTNRES   *                                                                                FTNRES       335     A     
 FTNRES   *         TO SELECT A DEFAULT DIFFERENT THAN THE STANDARD MAKE CHANGES           FTNRES       336     A     
 FTNRES   *         AS NOTED BELOW.                                                        FTNRES       337     A     
 FTNRES                                                                                    FTNRES       338     A     
 FTNRES   *                   VALUE        OPTION           ACCEPTABLE VALUE               FTNRES       339     A     
 FTNRES    CC.AE    MICRO  1,, OFF          EL=A        ON, OFF (ANSI DIAGNOSTICS)         FTNRES       340     A     
 FTNRES    CC.NE    MICRO  1,, ON           EL=N        ON, OFF (NOTE DIAGNOSTICS)         FTNRES       341     A     
 FTNRES    CC.IE    MICRO  1,, ON        EL=I OR W       ON, OFF (INFO/WARN ERROR)         FTNRES       342     A     
 FTNRES    CC.LCM   MICRO  1,, OFF         LCM=D         ON, LCM=D -- OFF, LCM=I           FTNRES       343     A     
 FTNRES    CC.OPT   MICRO  1,, 1           OPT=N            N = 0, 1, OR 2                 FTNRES       344     A     
 FTNRES    CC.PL    MICRO  1,, 5000         PL               NUMBER OF LINES               FTNRES       345     A     
 FTNRES    CC.PW    MICRO  1,, 0             PW=     PAGE WIDTH FOR TS MODE,               FEAT126A      20     A     
 FTNRES   *                                          0 FOR STANDARD WIDTH (136)            FEAT126A      21     A     
 FTNRES    CC.R     MICRO  1,, 1            R=N             N = 0, 1, 2, OR 3              FTNRES       346     A     
 FTNRES    CC.ROUND MICRO  1,, 0           ROUND=           0  FOR NO ROUNDING             FTNRES       347     A     
 FTNRES   *                                                 1B FOR /                       FTNRES       348     A     
 FTNRES   *                                                 2B FOR *                       FTNRES       349     A     
 FTNRES   *                                                 4B FOR -                       FTNRES       350     A     
 FTNRES   *                                                10B FOR +                       FTNRES       351     A     
 FTNRES   *                                          ADD (OCTAL) FOR MORE THAN ONE         FTNRES       352     A     
 FTNRES                                                                                    FTNRES       353     A     
 FTNRES                                                                                    FTNRES       354          I
          -RSM2763X 
 FTNRES   **        2 PASS BUFFER LENGTHS                                                  FCC0813        9          I
          -RSM2763X 
 FTNRES                                                                                    FTNRES       355          I
          -RSM2763X 
 FTNRES   **        FILE CIO BUFFER LENGTHS.                                               FTNRES       356          I
          -RSM2763X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 478    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES   *                                                                                FTNRES       357          I
          -RSM2763X 
 FTNRES    #RM      IFNE   CP#RM,7                                                         FTNRES       358          I
          -RSM2763X 
 FTNRES                                                                                    FTNRES       359          I
          -RSM2763X 
 FTNRES    BUFL     MICRO  1,, 1002B   MINIMUM CIO BUFFER LENGTH                           FTNRES       360          I
          -FCC0813  -RSM2763X 
 FTNRES    BUFL     MICRO  1,, 1002B   NOMINAL CIO BUFFER LENGTH                           FCC0813       10          I
          -RSM2763X 
 FTNRES                                                                                    FTNRES       361          I
          -RSM2763X 
 FTNRES    LC.CMPS  =      "BUFL"                                                          FTNRES       362          I
          -RSM2763X 
 FTNRES    LC.LGO   =      "BUFL"*2                                                        FTNRES       363          I
          -RSM2763X 
 FTNRES    LC.OPT   =      "BUFL"*2                                                        FTNRES       364          I
          -RSM2763X 
 FTNRES    LC.RLST  =      LC.LGO      (-RLST- BUFFER SPACE IS REUSED FOR -LGO-)           FTNRES       365          I
          -RSM2763X 
 FTNRES    LC.RMAP  =      "BUFL"                                                          FTNRES       366          I
          -RSM2763X 
 FTNRES   *CALL     IOBUFL                                                                 RSM2763X       6     A     
 FTNRES                                                                                    FTNRES       367     A     
 FTNRES    CIOBUF   RMT                                                                    FTNRES       368     A     
 FTNRES    LC.IN    =      IBUFL                                                           FTNRES       369     A     
 FTNRES    LC.OUT   =      OBUFL                                                           FTNRES       370     A     
 FTNRES    LC.ERRS  =      OBUFL                                                           FCCA488        5     A     
 FTNRES    CIOBUF   RMT                                                                    FTNRES       371     A     
 FTNRES                                                                                    FTNRES       372     A     
 FTNRES    #RM      ELSE                                                                   FTNRES       373          I
          -RSM2763X 
 FTNRES                                                                                    FTNRES       374          I
          -RSM2763X 
 FTNRES    BUFL     MICRO  1,, 0       (7RM I/O BUFFERS RESIDE IN LCM.)                    FTNRES       375          I
          -RSM2763X 
 FTNRES    OBUFL    =      0                                                               FTNRES       376          I
          -RSM2763X 
 FTNRES    IBUF     =      0                                                               FTNRES       377          I
          -RSM2763X 
 FTNRES    OBUF     =      0                                                               FTNRES       378          I
          -RSM2763X 
 FTNRES                                                                                    FTNRES       379          I
          -RSM2763X 
 FTNRES    #RM      ENDIF                                                                  FTNRES       380          I
          -RSM2763X 
 FTNRES                                                                                    FTNRES       381          I
          -RSM2763X 
 FTNRES                                                                                    FTNRES       382          I
          -RSM2763X 
 FTNRES                                                                                    FTNRES       383          I
          -RSM2763X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 479    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES   **        FILE HOLDING BUFFER LENGTHS.                                           FTNRES       384          I
          -RSM2763X 
 FTNRES   *         (APPLIES ONLY WHEN RECORD MANAGER I/O IS SELECTED.)                    FTNRES       385          I
          -RSM2763X 
 FTNRES   *                                                                                FTNRES       386          I
          -RSM2763X 
 FTNRES    #RM      IFGE   CP#RM,6                                                         FTNRES       387          I
          -RSM2763X 
 FTNRES                                                                                    FTNRES       388          I
          -RSM2763X 
 FTNRES    HBUFL    MICRO  1,, 400B    HOLDING BUFFER LENGTH                               FTNRES       389          I
          -RSM2763X 
 FTNRES                                                                                    FTNRES       390          I
          -RSM2763X 
 FTNRES    LH.CMPS  =      0                                                               FTNRES       391          I
          -RSM2763X 
 FTNRES    LH.IN    =      0                                                               FTNRES       392          I
          -RSM2763X 
 FTNRES    LH.LGO   =      "HBUFL"                                                         FTNRES       393          I
          -RSM2763X 
 FTNRES    LH.OPT   =      0                                                               FTNRES       394          I
          -RSM2763X 
 FTNRES    LH.OUT   =      0                                                               FTNRES       395          I
          -RSM2763X 
 FTNRES    LH.RLST  =      LH.LGO      (-RLST- BUFFER SPACE IS REUSED FOR -LGO-)           FTNRES       396          I
          -RSM2763X 
 FTNRES    LH.RMAP  =      "HBUFL"                                                         FTNRES       397          I
          -RSM2763X 
 FTNRES                                                                                    FTNRES       398          I
          -RSM2763X 
 FTNRES    #RM      ENDIF                                                                  FTNRES       399          I
          -RSM2763X 
 FTNRES   **        TS BUFFER LENGTHS  CIO BUFFERS OR RM HOLDING BUFFERS                   FCC0813       11     A     
 FTNRES                                                                                    FCC0813       12     A     
 FTNRES    MBUFL    MICRO  1,, 201B    MINIMUM BUFFER LENGTH                               FCC0813       13     A     
 FTNRES    LB.LGO   EQENT  "MBUFL"                                                         FCC0813       14     A     
 FTNRES    LB.RMAP  EQENT  "MBUFL"                                                         FCC0813       15     A     
 FTNRES    LB.LF    EQENT  "MBUFL"                                                         FCC0813       16     A     
 FTNRES    MISC.OPT SPACE  4,8                                                             FTNRES       400     A     
 FTNRES   ***       MISCELLANEOUS OPTIONS.                                                 FTNRES       401     A     
 FTNRES   *                                                                                FTNRES       402     A     
 FTNRES                                                                                    FTNRES       403     A     
 FTNRES                                                                                    FTNRES       404     A     
 FTNRES   **        DEFAULT FIELD LENGTH REQUEST INCREMENT.                                FTNRES       405     A     
 FTNRES   *                                                                                FTNRES       406     A     
 FTNRES   *         FTN ADDS THIS VALUE TO THE MINIMUM FL (DETERMINED BY THE               FTNRES       407     A     
 FTNRES   *         COMPILER CONFIGURATION AND OPTIONS) TO ARRIVE AT THE FL                FTNRES       408     A     
 FTNRES   *         REQUESTED WHEN THE JOB FL IS SYSTEM-CONTROLLED.                        FTNRES       409     A     
 FTNRES   *                                                                                FTNRES       410     A     
 FTNRES    IN.FL    =      4000B                                                           FTNRES       411     A     
 FTNRES    IN.LCM   =      30000B      INITIAL LCM REQUEST ( OPT=2 ONLY )                  FTNRES       412     A     
 FTNRES                                                                                    FTNRES       413     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 480    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES                                                                                    FTNRES       414     A     
 FTNRES                                                                                    FTNRES       415     A     
 FTNRES   **        FTN OVERLAY LIBRARY NAMES.                                             FTNRES       416     A     
 FTNRES   *                                                                                FTNRES       417     A     
 FTNRES    FTNMAIN  MICRO  1,, NUCLEUS       (0,0) OVERLAY                                 FTNRES       418     A     
 FTNRES    FTNOVL   MICRO  1,, SYSOVL        OTHER OVERLAYS                                FTNRES       419     A     
 FTNRES                                                                                    FTNRES       420     A     
 FTNRES                                                                                    FTNRES       421     A     
 FTNRES                                                                                    FTNRES       422     A     
 FTNRES   **        COMPILATION TIME DAYFILE MESSAGE.                                      FTNRES       423     A     
 FTNRES   *                                                                                FTNRES       424     A     
 FTNRES   *         0 = DO NOT ISSUE MESSAGE                                               FTNRES       425     A     
 FTNRES   *         1 = ISSUE MESSAGE                                                      FTNRES       426     A     
 FTNRES   *                                                                                FTNRES       427     A     
 FTNRES    CTIMO    =      1                                                               FTNRES       428     A     
 FTNRES    MAXOPT   SPACE  2                                                               FTNRES       429     A     
 FTNRES    MAXOPT   =      2+TEST/TEST MAX OPT LEVEL                                       FTNRES       430     A     
 FTNRES                                                                                    FTNRES       431     A     
 FTNRES                                                                                    FTNRES       432     A     
 FTNRES   ***   *** THERE ARE NO INSTALLATION OPTIONS BEYOND THIS LINE ***   ***           FTNRES       433     A     
 FTNRES    FILES    EJECT                                                                  FTNRES       434     A     
 FTNRES   **        INTERNAL FILE NAMES.                                                   FTNRES       435     A     
 FTNRES   *                                                                                FTNRES       436     A     
 FTNRES    IN       MICRO  1,, "CC.I"                                                      FTNRES       437     A     
 FTNRES                                                                                    FTNRES       438     A     
 FTNRES             IFC    EQ,/"CC.L"/OFF/,2                                               FTNRES       439     A     
 FTNRES    OUT      MICRO  1,, OUTPUT                                                      FTNRES       440     A     
 FTNRES             SKIP   1                                                               FTNRES       441     A     
 FTNRES    OUT      MICRO  1,, "CC.L"                                                      FTNRES       442     A     
 FTNRES                                                                                    FTNRES       443     A     
 FTNRES    LGO      MICRO  1,, "CC.B"                                                      FTNRES       444     A     
 FTNRES    ERRS     MICRO  1,, OUTPUT                                                      FCCA488        6     A     
 FTNRES                                                                                    FTNRES       445          I
          -FCC1128X 
 FTNRES             IFC    EQ,/"CC.E"/OFF/,2                                               FTNRES       446          I
          -FCC1128X 
 FTNRES    CMPS     MICRO  1,, COMPS                                                       FTNRES       447          I
          -FCC1128X 
 FTNRES             SKIP      1                                                            FTNRES       448          I
          -FCC1128X 
 FTNRES    CMPS     MICRO  1,, "CC.E"                                                      FTNRES       449          I
          -FCC1128X 
 FTNRES                                                                                    FTNRES       450     A     
 FTNRES    .T       IFEQ   TEST,0                                                          FTNRES       451     A     
 FTNRES    CMPS     MICRO  1,, ZZZZZFC                                                     FCC1128X       6     A     
 FTNRES    OPT      MICRO  1,, ZZZZZOP                                                     FTNRES       452     A     
 FTNRES    RLST     MICRO  1,, ZZZZZRL                                                     FTNRES       453     A     
 FTNRES    RMAP     MICRO  1,, ZZZZZRM                                                     FTNRES       454     A     
 FTNRES    .T       ELSE                                                                   FTNRES       455     A     
 FTNRES    CMPS     MICRO  1,, COMPS                                                       FCC1128X       7     A     
 FTNRES    OPT      MICRO  1,, FTNOPT                                                      FTNRES       456     A     
 FTNRES    RLST     MICRO  1,, RLIST                                                       FTNRES       457     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 481    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES    RMAP     MICRO  1,, FTNRMAP                                                     FTNRES       458     A     
 FTNRES    .T       ENDIF                                                                  FTNRES       459     A     
 FTNRES                                                                                    FCC1128X       8     A     
 FTNRES             IFC    NE,/"CC.E"/OFF/,1                                               FCC1128X       9     A     
 FTNRES    CMPS     MICRO  1,, "CC.E"                                                      FCC1128X      10     A     
 FTNRES             TITLE  LOCAL BLOCK ORDER AND ORIGINS                                   FTNRES       460     A     
 FTNRES   ***       ESTABLISH LOCAL BLOCK ORDER AND ORIGINS.                               FTNRES       461     A     
 FTNRES   *                                                                                FTNRES       462     A     
 FTNRES                                                                                    FTNRES       463     A     
 FTNRES                                                                                    FTNRES       464     A     
 FTNRES   **        BLKORG - DEFINE BLOCK ORIGIN; ASSIGN BLOCK NUMBER.                     FTNRES       465     A     
 FTNRES   *                                                                                FTNRES       466     A     
 FTNRES   *         THIS MACRO DEFINES THE ORIGIN OF A LOCAL BLOCK, ASSIGNS IT             FTNRES       467     A     
 FTNRES   *         A BLOCK NUMBER, AND GENERATES REMOTE CODE FOR COMPUTING THE            FTNRES       468     A     
 FTNRES   *         BLOCK LENGTH.                                                          FTNRES       469     A     
 FTNRES   *                                                                                FTNRES       470     A     
 FTNRES   *                                                                                FTNRES       471     A     
 FTNRES   *         BLKORG    NAME,LEN                                                     FTNRES       472     A     
 FTNRES   *                                                                                FTNRES       473     A     
 FTNRES   *         ENTRY  *NAME* = BLOCK NAME                                             FTNRES       474     A     
 FTNRES   *                *LEN*  = BLOCK LENGTH, AS FOLLOWS ...                           FTNRES       475     A     
 FTNRES   *                         A.  MUST BE SPECIFIED FOR BLOCKS THAT END              FTNRES       476     A     
 FTNRES   *                             WITH THE ORIGIN COUNTER MISPOSITIONED              FTNRES       477     A     
 FTNRES   *                             (E.G., 6RM INTERNAL BLOCKS).                       FTNRES       478     A     
 FTNRES   *                         B.  SHOULD NOT BE SPECIFIED FOR ANY OTHER              FTNRES       479     A     
 FTNRES   *                             BLOCK, SO THAT LENGTH CAN BE CALCULATED            FTNRES       480     A     
 FTNRES   *                             AUTOMATICALLY TO ACCOMMODATE CODE CHANGES.         FTNRES       481     A     
 FTNRES   *                                                                                FTNRES       482     A     
 FTNRES   *         USES   NONE                                                            FTNRES       483     A     
 FTNRES   *                                                                                FTNRES       484     A     
 FTNRES   *         CALLS  NONE                                                            FTNRES       485     A     
 FTNRES                                                                                    FTNRES       486     A     
 FTNRES             PURGMAC   BLKORG                                                       FTNRES       487     A     
 FTNRES                                                                                    FTNRES       488     A     
 FTNRES                                                                                    FTNRES       489     A     
 FTNRES    BLKORG   MACRO  BLKNAM,LEN                                                      FTNRES       490     A     
 FTNRES   *                            INCREMENT BLOCK NUMBER.                             FTNRES       491     A     
 FTNRES    BLKNR    DECMIC "BLKNR"+1,2                                                     FTNRES       492     A     
 FTNRES   *                            ESTABLISH BLOCK FWA.                                FTNRES       493     A     
 FTNRES             USE    BLKNAM                                                          FTNRES       494     A     
 FTNRES    '?OBK#"BLKNR" BSS    0                                                          FTNRES       495     A     
 FTNRES             USE    *                                                               FTNRES       496     A     
 FTNRES   *                            SAVE MACRO CALL FOR LENGTH COMPUTATION.             FTNRES       497     A     
 FTNRES    BLKLEN   RMT                                                                    FTNRES       498     A     
 FTNRES             BLKLEN (BLKNAM),LEN                                                    FTNRES       499     A     
 FTNRES    BLKLEN   RMT                                                                    FTNRES       500     A     
 FTNRES   *                                                                                FTNRES       501     A     
 FTNRES    BLKORG   ENDM                                                                   FTNRES       502     A     
 FTNRES                                                                                    FTNRES       503     A     
 FTNRES                                                                                    FTNRES       504     A     
 FTNRES                                                                                    FTNRES       505     A     
 FTNRES   **        BLKLEN - MACRO TO SUM LOCAL BLOCK LENGTHS.                             FTNRES       506     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 482    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES   *                                                                                FTNRES       507     A     
 FTNRES   *                                                                                FTNRES       508     A     
 FTNRES   *         BLKLEN    BLKNAM,LENGTH                                                FTNRES       509     A     
 FTNRES   *                                                                                FTNRES       510     A     
 FTNRES   *         ENTRY  *BLKNAM* = NAME OF LOCAL RESIDENT CODE BLOCK.                   FTNRES       511     A     
 FTNRES   *                *LENGTH* = BLOCK LENGTH, IF IT HAD TO BE SPECIFIED IN           FTNRES       512     A     
 FTNRES   *                           ADVANCE (SEE -BLKORG- MACRO).  MAY BE NIL.           FTNRES       513     A     
 FTNRES   *                                                                                FTNRES       514     A     
 FTNRES   *         EXIT   *L.RESFTN* IS SET TO THE TOTAL BLOCK LENGTH.                    FTNRES       515     A     
 FTNRES   *                                                                                FTNRES       516     A     
 FTNRES   *         USES   NONE                                                            FTNRES       517     A     
 FTNRES   *                                                                                FTNRES       518     A     
 FTNRES   *         CALLS  NONE                                                            FTNRES       519     A     
 FTNRES                                                                                    FTNRES       520     A     
 FTNRES             PURGMAC   BLKLEN                                                       FTNRES       521     A     
 FTNRES                                                                                    FTNRES       522     A     
 FTNRES                                                                                    FTNRES       523     A     
 FTNRES    BLKLEN   MACRO  BLKNAM,LEN                                                      FTNRES       524     A     
 FTNRES   *                            INCREMENT BLOCK NUMBER.                             FTNRES       525     A     
 FTNRES    BLKNR    DECMIC "BLKNR"+1,2                                                     FTNRES       526     A     
 FTNRES   *                            COMPUTE BLOCK LENGTH IF NOT SPECIFIED.              FTNRES       527     A     
 FTNRES    .CBL     IFC    EQ, LEN                                                         FTNRES       528     A     
 FTNRES             USE    BLKNAM                                                          FTNRES       529     A     
 FTNRES             BSS    0                                                               FTNRES       530     A     
 FTNRES    L.RESFTN SET    L.RESFTN+*-'?OBK#"BLKNR"                                        FTNRES       531     A     
 FTNRES             USE    *                                                               FTNRES       532     A     
 FTNRES    .CBL     ELSE                                                                   FTNRES       533     A     
 FTNRES   *                            ADD SPECIFIED BLOCK LENGTH TO TOTAL.                FTNRES       534     A     
 FTNRES    L.RESFTN SET    L.RESFTN+LEN                                                    FTNRES       535     A     
 FTNRES    .CBL     ENDIF                                                                  FTNRES       536     A     
 FTNRES    BLKLEN   ENDM                                                                   FTNRES       537     A     
 FTNRES                                                                                    FTNRES       538     A     
 FTNRES                                                                                    FTNRES       539     A     
 FTNRES                                                                                    FTNRES       540     A     
 FTNRES   **        DEFINE THE BLOCKS.                                                     FTNRES       541     A     
 FTNRES   *                                                                                FTNRES       542     A     
 FTNRES   *         TO GAIN PROPER CONTROL, THE -BLKORG- MACRO MUST BE CALLED FOR          FTNRES       543     A     
 FTNRES   *         EACH LOCAL BLOCK IN -FTN-, BEFORE ANY CODE IS GENERATED FOR            FTNRES       544     A     
 FTNRES   *         THAT BLOCK.  THIS ESTABLISHES THE ORIGIN OF EACH BLOCK FOR             FTNRES       545     A     
 FTNRES   *         LATER BLOCK LENGTH CALCULATION AND DETERMINES THE BLOCK                FTNRES       546     A     
 FTNRES   *         SEQUENCE IN THE ASSEMBLED BINARY CODE.                                 FTNRES       547     A     
 FTNRES   *                                                                                FTNRES       548     A     
 FTNRES                                                                                    FTNRES       549     A     
 FTNRES    BLKNR    MICRO              CLEAR BLOCK NUMBER COUNTER                          FTNRES       550     A     
 FTNRES                                                                                    FTNRES       551     A     
 FTNRES                                                                                    FTNRES       552     A     
 FTNRES                                                                                    FTNRES       553     A     
 FTNRES   **        NOMINAL PROGRAM BLOCK.                                                 FTNRES       554     A     
 FTNRES   *                                                                                FTNRES       555     A     
 FTNRES             BLKORG 0                                                               FTNRES       556     A     
 FTNRES                                                                                    FTNRES       557     A     
 FTNRES                                                                                    FTNRES       558     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 483    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES                                                                                    FTNRES       559     A     
 FTNRES   **        FTN RESIDENT CODE BLOCK.                                               FTNRES       560     A     
 FTNRES   *                                                                                FTNRES       561     A     
 FTNRES             BLKORG FTNRES                                                          FTNRES       562     A     
 FTNRES                                                                                    FTNRES       563     A     
 FTNRES                                                                                    FTNRES       564     A     
 FTNRES                                                                                    FTNRES       565     A     
 FTNRES   **        FTN INITIALIZATION CODE BLOCK.                                         FTNRES       566     A     
 FTNRES   *                                                                                FTNRES       567     A     
 FTNRES   *         THE COMPILER INITIALIZATION BLOCK MUST BE THE LAST CODE BLOCK          FTNRES       568     A     
 FTNRES   *         SO THAT IT CAN BE OVERLAID AFTER INITIALIZATION IS FINISHED.           FTNRES       569     A     
 FTNRES   *                                                                                FTNRES       570     A     
 FTNRES             USE    FTNINIT                                                         FTNRES       571     A     
 FTNRES             BSS    0                                                               FTNRES       572     A     
 FTNRES                                                                                    FTNRES       573     A     
 FTNRES                                                                                    FTNRES       574     A     
 FTNRES   **        CONTROL CARD CRACKER ERROR MESSAGE BLOCK.                              FTNRES       575     A     
 FTNRES   *                                                                                FTNRES       576     A     
 FTNRES   *         THIS BLOCK CONTAINS THE ERROR MESSAGES PUT OUT BY THE CONTROL          FTNRES       577     A     
 FTNRES   *         CARD CRACKER.   IT WILL BE OVERLAID WITH THE INITIALIZATION            FTNRES       578     A     
 FTNRES   *         CODE BLOCK.                                                            FTNRES       579     A     
 FTNRES   *                                                                                FTNRES       580     A     
 FTNRES             USE    CCMSG                                                           FTNRES       581     A     
 FTNRES    O.CCMSG  BSS    0                                                               FTNRES       582     A     
 FTNRES             USE    FTNRES                                                          FTNRES       583     A     
 FTNRES             TITLE  /COMPCOM/ INTERFACE                                             FTNRES       584     A     
 FTNRES   ***       PROVIDE DEFINITIONS FOR /COMPCOM/.                                     FTNRES       585     A     
 FTNRES   *                                                                                FTNRES       586     A     
 FTNRES                                                                                    FTNRES       587     A     
 FTNRES                                                                                    FTNRES       588     A     
 FTNRES   **        DEFINE MICROS FOR /COMPCOM/.                                           FTNRES       589     A     
 FTNRES   *                                                                                FTNRES       590     A     
 FTNRES    CP.ABORT MICRO  1,, 1S59*"CC.A"                                                 FTNRES       591          I
          -FCC1336
 FTNRES    CP.ABORT MICRO  1,, "CC.A"                                                      FCC1336        6     A     
 FTNRES    CP.BLF   MICRO  1,, 1S59*"CC.BL"                                                FTNRES       592     A     
 FTNRES    CP.F=    MICRO  1,, -2      VALUE FOR PROCESSOR *F                              FTNRES       593     A     
 FTNRES                                                                                    FTNRES       594     A     
 FTNRES             IFC    EQ,/"CC.P"/OFF/,2                                               FTNRES       595     A     
 FTNRES    CP.PAGE  MICRO  1,, 1S59    DO NOT PROPAGATE PAGE NUMBERS                       FTNRES       596     A     
 FTNRES             SKIP   1                                                               FTNRES       597     A     
 FTNRES    CP.PAGE  MICRO  1,, 0       PROPAGATE PAGE NUMBERS                              FTNRES       598     A     
 FTNRES                                                                                    FTNRES       599     A     
 FTNRES             IFC    EQ,/"CC.L"/OFF/,2                                               FTNRES       600     A     
 FTNRES    CP.LISTF MICRO  1,, 0                                                           FTNRES       601     A     
 FTNRES             SKIP   1                                                               FTNRES       602     A     
 FTNRES    CP.LISTF MICRO  1,, 1                                                           FTNRES       603     A     
 FTNRES                                                                                    FTNRES       604     A     
 FTNRES    LISTRM   MICRO  1,, -       DO NOT LIST I/O SUBROUTINES                         FTNRES       605     A     
 FTNRES                                                                                    FTNRES       606     A     
 FTNRES    #M       IFEQ   CP#RM,0                                                         FTNRES       607     A     
 FTNRES    COMPCOM  SPACE  4                                                               FTNRES       608     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 484    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES   **        DEFINE FET MACRO FOR /COMPCOM/.                                        FTNRES       609     A     
 FTNRES   *                                                                                FTNRES       610     A     
 FTNRES    FET      MACRO                                                                  FTNRES       611     A     
 FTNRES     BSS 13D                                                                        FTNRES       612          I
          -CP139FC
 FTNRES             BSS    8                                                               CP139FC       48     A     
 FTNRES     ENDM                                                                           FTNRES       613     A     
 FTNRES                                                                                    FTNRES       614     A     
 FTNRES    #M       ENDIF                                                                  FTNRES       615     A     
 FTNRES    COMPCOM  SPACE  4                                                               FTNRES       616     A     
 FTNRES             USE    /COMPCOM/                                                       FTNRES       617     A     
 FTNRES                                                                                    FTNRES       618     A     
 FTNRES                                                                                    CP139FC       49     A     
 FTNRES   **        THE FOLLOWING BSS ALIGNS COMPCOM AND RESERVES 3 WORDS FOR              CP139FC       50     A     
 FTNRES   *         FUTURE 54 TABLE ENTRY POINTS.  PLEASE NOTE THAT ANY CHANGES            CP139FC       51     A     
 FTNRES   *         WILL AFFECT INTERMIXED COMPASS SUBPROGRAMS.                            CP139FC       52     A     
 FTNRES   *                                                                                CP139FC       53     A     
 FTNRES    LDR.EP   =      3           RESERVED FOR ENTRY POINTS                           CP139FC       54          I
          -FCCA489
 FTNRES    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FCCA489       13     A     
 FTNRES    LDR.EP   =      2           RESERVED FOR ENTRY POINTS                           FCCA489       14     A     
 FTNRES    #OS      ELSE                                                                   FCCA489       15     A     
 FTNRES    LDR.EP   =      3           RESERVED FOR ENTRY POINTS                           FCCA489       16     A     
 FTNRES    #OS      ENDIF                                                                  FCCA489       17     A     
 FTNRES             BSS    LDR.EP                                                          CP139FC       55     A     
 FTNRES    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FCCA489       18     A     
 FTNRES    EPSLAK   SET    3-LDR.EP    EPSLAK ADDED TO TOTAL RESIDENT CODE SPACE           FCCA489       19     A     
 FTNRES   *                            TO MAINTAIN CORRECT ALIGNMENT.                      FCCA489       20     A     
 FTNRES    #OS      ELSE                                                                   FCCA489       21     A     
 FTNRES    EPSLAK   SET    0                                                               FCCA489       22     A     
 FTNRES    #OS      ENDIF                                                                  FCCA489       23     A     
 FTNRES                                                                                    CP139FC       56     A     
 FTNRES             LIST   -F                                                              FTNRES       619     A     
 FTNRES    "PLCMPS" XTEXT  COMPCOM                                                         FTNRES       620          I
          -FCCA589
 FTNRES   *CALL COMPCOM                                                                    FCCA589       22     A     
 FTNRES             TITLE  /COMPCOM/ INTERFACE                                             FTNRES       621     A     
 FTNRES   ***       LINK FTN TO /COMPCOM/.                                                 FTNRES       622     A     
 FTNRES   *                                                                                FTNRES       623     A     
 FTNRES             LIST   F,X                                                             FTNRES       624     A     
 FTNRES                                                                                    FTNRES       625     A     
 FTNRES                                                                                    FTNRES       626     A     
 FTNRES   **        BEGIN RESIDENT CODE BLOCK.                                             FTNRES       627     A     
 FTNRES   *                                                                                FTNRES       628     A     
 FTNRES             USE    FTNRES                                                          FTNRES       629     A     
 FTNRES                                                                                    FTNRES       630     A     
 FTNRES                                                                                    FTNRES       631     A     
 FTNRES                                                                                    FTNRES       632     A     
 FTNRES   **        BIG (BURSTABLE) LISTING FLAG.    *** TEMP TILL COMPCOM FIX ***         FTNRES       633          I
          -CP139FC
 FTNRES   *                                                                                FTNRES       634          I
          -CP139FC
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 485    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES   *         0 = CONDENSED (NO WASTE) LISTING.                                      FTNRES       635          I
          -CP139FC
 FTNRES   *         1 = STANDARD (BURSTABLE) LISTING.                                      FTNRES       636          I
          -CP139FC
 FTNRES                                                                                    FTNRES       637          I
          -CP139FC
 FTNRES             IF     -DEF,CP.BLF,1                                                   FTNRES       638          I
          -CP139FC
 FTNRES    CP.BLF   CON    "CP.BLF"                                                        FTNRES       639          I
          -CP139FC
 FTNRES                                                                                    FTNRES       640          I
          -CP139FC
 FTNRES                                                                                    FTNRES       641          I
          -CP139FC
 FTNRES                                                                                    FTNRES       642          I
          -CP139FC
 FTNRES   **        EQUATE FTN AND /COMPCOM/ LOCATIONS.                                    FTNRES       643     A     
 FTNRES   *                                                                                FTNRES       644     A     
 FTNRES    CP.ERCT  EQENT  CP.ERRCT                                                        FTNRES       645     A     
 FTNRES    CP.FLIN  EQENT  CP.LINE+2   FTN SOURCE LISTING LINE FWA                         FTNRES       646     A     
 FTNRES    CP.LSTF  EQENT  CP.LISTF                                                        FTNRES       647     A     
 FTNRES    FL       EQENT  CP.AFLS                                                         FTNRES       648     A     
 FTNRES    CP.IFMT  EQENT  CP.IFORM                                                        FCC1328X      39     A     
 FTNRES    AMODE    EQENT  CP.IFORM    SOURCE FILE FORMAT                                  FTNRES       649     A     
 FTNRES    CP.BUF   EQENT  CP.CARD                                                         FTNRES       650     A     
 FTNRES    CO.ABT   EQENT  CP.ABORT                                                        FTNRES       651     A     
 FTNRES    CP.MXFL  EQENT  CP.MAXFL                                                        FTNRES       652     A     
 FTNRES    COMRET   EQENT  CP.CDC      BIT 59 FLAGS COMPASS CALLED                         FCCA519        4     A     
 FTNRES                                                                                    FTNRES       653     A     
 FTNRES             ENTRY  CP.AFLS                                                         FEAT155D      13     A     
 FTNRES             ENTRY  CP.BLF                                                          FTNRES       654     A     
 FTNRES             ENTRY  CP.CARD                                                         FTNRES       655     A     
 FTNRES             ENTRY  CP.CPU                                                          FTNRES       656     A     
 FTNRES             ENTRY  CP.MODL                                                         FTNRES       657     A     
 FTNRES             ENTRY  CP.NFLS                                                         FTNRES       658     A     
 FTNRES             ENTRY  CP.PAGE                                                         FTNRES       659     A     
 FTNRES             ENTRY  CP.PD                                                           FEAT155EA      4     A     
 FTNRES             ENTRY  CP.PS                                                           FEAT155EA      5     A     
 FTNRES             ENTRY  CP.PW                                                           CP139FC       57     A     
 FTNRES                                                                                    FTNRES       660     A     
 FTNRES             IFNE   CP#RM,7,1                                                       FTNRES       661     A     
 FTNRES             ENTRY  SYS=,RCL=,WNB=,MSG=                                             FTNRES       662     A     
 FTNRES                                                                                    FTNRES       663     A     
 FTNRES                                                                                    FTNRES       664     A     
 FTNRES                                                                                    FTNRES       665     A     
 FTNRES   **        DEFINE LOCAL NAMES FOR /COMPCOM/ FETS AND FITS.                        FTNRES       666     A     
 FTNRES   *                                                                                FTNRES       667     A     
 FTNRES    #RM      IFNE   CP#RM,7     FETS DEFINED FOR CIO AND 6RM ONLY                   FTNRES       668     A     
 FTNRES    FE.IN    =      CP.IFET                                                         FTNRES       669     A     
 FTNRES    FE.LGO   =      CP.BFET                                                         FTNRES       670     A     
 FTNRES    FE.OUT   =      CP.OFET                                                         FTNRES       671     A     
 FTNRES    FE.ERRS   =     CP.EFET                                                         FCCA488        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 486    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES    #RM      ENDIF                                                                  FTNRES       672     A     
 FTNRES                                                                                    FTNRES       673     A     
 FTNRES    #RM      IFGE   CP#RM,6     FITS DEFINED FOR 6RM AND 7RM ONLY                   FTNRES       674     A     
 FTNRES    FI.IN    =      CP.IFIT                                                         FTNRES       675     A     
 FTNRES    FI.LGO   =      CP.BFIT                                                         FTNRES       676     A     
 FTNRES    FI.OUT   =      CP.OFIT                                                         FTNRES       677     A     
 FTNRES    FI.ERRS  =      CP.EFIT                                                         FCCA488A       7     A     
 FTNRES    #RM      ENDIF                                                                  FTNRES       678     A     
 FTNRES             TITLE  COMPILER FIELD LENGTH REQUIREMENTS                              FTNRES       679     A     
 FTNRES   ***       COMPILER FIELD LENGTH REQUIREMENTS.                                    FTNRES       680     A     
 FTNRES   *                                                                                FTNRES       681     A     
 FTNRES   *         THE FOLLOWING SYMBOLS AND MICROS SPECIFY THE MINIMUM CM/SCM            FTNRES       682     A     
 FTNRES   *         FIELD LENGTH REQUIREMENTS (WHICH VARY WITH COMPILER CONFIGU-           FTNRES       683     A     
 FTNRES   *         RATION) AND THE NOMINAL DEFAULT AND MAXIMUM FIELD LENGTHS              FTNRES       684     A     
 FTNRES   *         REQUESTED WHEN JOB FL IS SYSTEM-CONTROLLED.                            FTNRES       685     A     
 FTNRES   *                                                                                FTNRES       686     A     
 FTNRES                                                                                    FTNRES       687     A     
 FTNRES                                                                                    FTNRES       688     A     
 FTNRES   *         FL INCREMENT FOR I/O BUFFERS.                                          FTNRES       689     A     
 FTNRES                                                                                    FTNRES       690     A     
 FTNRES    IB.FL    SET    0           INITIALIZE SYMBOL VALUE                             FTNRES       691     A     
 FTNRES                                                                                    FTNRES       692     A     
 FTNRES   *         ADD FOR PASS 1 CIO BUFFERS.                                            FTNRES       693     A     
 FTNRES                                                                                    FTNRES       694     A     
 FTNRES    #RM      IFNE   CP#RM,7                                                         FTNRES       695     A     
 FTNRES    IB.FL    SET    LC.CMPS+LC.LGO+LC.RMAP                                          FTNRES       696     A     
 FTNRES    #RM      ENDIF                                                                  FTNRES       697     A     
 FTNRES                                                                                    FTNRES       698     A     
 FTNRES   *         ADD FOR PASS 1 FILE HOLDING BUFFERS.                                   FTNRES       699     A     
 FTNRES                                                                                    FTNRES       700     A     
 FTNRES    #RM      IFGE   CP#RM,6                                                         FTNRES       701     A     
 FTNRES    IB.FL    SET    IB.FL+LH.LGO+LH.RMAP                                            FTNRES       702     A     
 FTNRES    #RM      ENDIF                                                                  FTNRES       703     A     
 FTNRES                                                                                    FTNRES       704     A     
 FTNRES    IB.FL    SET    IB.FL/100B*100B   TRUNCATE TO NEAREST 100B                      FTNRES       705     A     
 FTNRES                                                                                    FTNRES       706     A     
 FTNRES                                                                                    FTNRES       707     A     
 FTNRES                                                                                    FTNRES       708     A     
 FTNRES   *         FL INCREMENT FOR INTERNAL TEST MODE COMPILER CONFIGURATION.            FTNRES       709     A     
 FTNRES                                                                                    FTNRES       710     A     
 FTNRES    IT.FL    =      2400B*TEST                                                      FTNRES       711          I
          -FEAT155F 
 FTNRES    IT.FL    =      4000B*TEST                                                      FEAT155F      93          I
          -FCC1096
 FTNRES    IT.FL    =      6000B*TEST                                                      FCC1096        6     A     
 FTNRES                                                                                    FTNRES       712     A     
 FTNRES   *         MINIMUM TS MODE FIELD LENGTH.                                          FTNRES       713     A     
 FTNRES                                                                                    FTNRES       714     A     
 FTNRES             ENTRY  MIN.TFL                                                         FCC0813       17     A     
 FTNRES    MIN.TFL  =      33000B+IT.FL+IB.FL                                              FTNRES       715          I
          -FCC0518
 FTNRES    MIN.TFL  =      34000B+IT.FL+IB.FL                                              FCC0518        4          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 487    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
          -FEAT155D 
 FTNRES    MIN.TFL  EQENT  34000B+IT.FL+IB.FL                                              FEAT155D      14     A     
 FTNRES             ERRNG  IP.MFL-MIN.TFL                                                  FTNRES       716     A     
 FTNRES    MIN.TFL  OCTMIC MIN.TFL                                                         FTNRES       717     A     
 FTNRES    MIN.TFL  MICRO  1,3, "MIN.TFL"                                                  FTNRES       718     A     
 FTNRES                                                                                    FTNRES       719     A     
 FTNRES                                                                                    FTNRES       720     A     
 FTNRES                                                                                    FTNRES       721     A     
 FTNRES   *         MINIMUM OPTIMIZING MODE FIELD LENGTH - OPT = 0 OR 1.                   FTNRES       722     A     
 FTNRES                                                                                    FTNRES       723     A     
 FTNRES    MIN.FL   =      42000B+IT.FL+IB.FL                                              FTNRES       724     A     
 FTNRES             ERRNG  IP.MFL-MIN.FL     NON-DEBUG FL .GT. INSTALLATION LIMIT          FTNRES       725     A     
 FTNRES    MIN.FL   OCTMIC MIN.FL                                                          FTNRES       726     A     
 FTNRES    MIN.FL   MICRO  1,3, "MIN.FL"                                                   FTNRES       727     A     
 FTNRES                                                                                    FTNRES       728     A     
 FTNRES                                                                                    FTNRES       729     A     
 FTNRES                                                                                    FTNRES       730     A     
 FTNRES   *         MINIMUM OPTIMIZING MODE FIELD LENGTH - OPT = 2 OR 3.                   FTNRES       731     A     
 FTNRES                                                                                    FTNRES       732     A     
 FTNRES    MIN.OFL  =      MIN.FL+12000B-4000B*.OVL/.OVL                                   FTNRES       733     A     
 FTNRES             ERRNG  IP.MFL-MIN.OFL    FL .GT. INSTALLATION LIMIT                    FTNRES       734     A     
 FTNRES    MIN.OFL  OCTMIC MIN.OFL                                                         FTNRES       735     A     
 FTNRES    MIN.OFL  MICRO  1,3, "MIN.OFL"                                                  FTNRES       736     A     
 FTNRES                                                                                    FTNRES       737     A     
 FTNRES                                                                                    FTNRES       738     A     
 FTNRES                                                                                    FTNRES       739     A     
 FTNRES   *         MINIMUM DEBUG FIELD LENGTH.                                            FTNRES       740     A     
 FTNRES                                                                                    FTNRES       741     A     
 FTNRES    MIN.DFL  =      MIN.FL+13000B                                                   FTNRES       742          I
          -FCC1117X 
 FTNRES    MIN.DFL  =      MIN.FL+15000B                                                   FCC1117X       8     A     
 FTNRES             ERRNG  IP.MFL-MIN.DFL    DEBUG FL .GT. INSTALLATION LIMIT              FTNRES       743     A     
 FTNRES    MIN.DFL  OCTMIC MIN.DFL                                                         FTNRES       744     A     
 FTNRES    MIN.DFL  MICRO  1,3, "MIN.DFL"                                                  FTNRES       745     A     
 FTNRES                                                                                    FTNRES       746     A     
 FTNRES                                                                                    FTNRES       747     A     
 FTNRES                                                                                    FTNRES       748     A     
 FTNRES   *         NOMINAL TS MODE FIELD LENGTH (FOR MEMORY REQUESTS).                    FTNRES       749     A     
 FTNRES                                                                                    FTNRES       750     A     
 FTNRES    NOM.TFL  MIN    MIN.TFL+IN.FL,IP.MFL                                            FTNRES       751     A     
 FTNRES             ENTRY  NOM.TFL                                                         FEAT155D      15     A     
 FTNRES                                                                                    FTNRES       752     A     
 FTNRES                                                                                    FTNRES       753     A     
 FTNRES                                                                                    FTNRES       754     A     
 FTNRES   *         NOMINAL OPT = 0 OR 1 FIELD LENGTH (FOR MEMORY REQUESTS).               FTNRES       755     A     
 FTNRES                                                                                    FTNRES       756     A     
 FTNRES    NOM.FL   MIN    MIN.FL+IN.FL,IP.MFL                                             FTNRES       757     A     
 FTNRES                                                                                    FTNRES       758     A     
 FTNRES                                                                                    FTNRES       759     A     
 FTNRES                                                                                    FTNRES       760     A     
 FTNRES   *         NOMINAL OPT = 2 OR 3 FIELD LENGTH (FOR MEMORY REQUESTS).               FTNRES       761     A     
 FTNRES                                                                                    FTNRES       762     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 488    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES    NOM.OFL  MIN    MIN.OFL+IN.FL,IP.MFL                                            FTNRES       763     A     
 FTNRES                                                                                    FTNRES       764     A     
 FTNRES                                                                                    FTNRES       765     A     
 FTNRES                                                                                    FTNRES       766     A     
 FTNRES   *         NOMINAL DEBUG FIELD LENGTH (FOR MEMORY REQUESTS).                      FTNRES       767     A     
 FTNRES                                                                                    FTNRES       768     A     
 FTNRES    NOM.DFL  MIN    MIN.DFL+IN.FL,IP.MFL                                            FTNRES       769     A     
 FTNRES                                                                                    FTNRES       770     A     
 FTNRES                                                                                    FTNRES       771     A     
 FTNRES                                                                                    FTNRES       772     A     
 FTNRES   *         MEM DOWN FIELD LENGTH FOR *GO* MODE.                                   FCC0864        5     A     
 FTNRES                                                                                    FCC0864        6     A     
 FTNRES    MEM.GOFL EQU    34000B                                                          FCC0864        7     A     
 FTNRES    FETS     TITLE  FILE MANAGEMENT TABLES                                          FTNRES       773     A     
 FTNRES   *         A MACRO TO FORM THE FETS                                               FTNRES       774     A     
 FTNRES                                                                                    FTNRES       775     A     
 FTNRES    CPFET    OPSYN     FET      SAVE /COMPCOM/ FET MACRO DEFINITION                 FTNRES       776     A     
 FTNRES             PURGMAC   FET                                                          FTNRES       777     A     
 FTNRES                                                                                    FTNRES       778     A     
 FTNRES    FET      MACRO  NAME,FIRST,MODE,TABLE                                           FTNRES       779     A     
 FTNRES             LOCAL  REORG                                                           FTNRES       780     A     
 FTNRES    #RM      IFEQ   CP#RM,0                                                         FTNRES       781     A     
 FTNRES   *                                                                                FTNRES       782     A     
 FTNRES   *                            FOR CONVENTIONAL CIO I/O.                           FTNRES       783     A     
 FTNRES   *                                                                                FTNRES       784     A     
 FTNRES    REORG    SET    0                                                               FTNRES       785     A     
 FTNRES   *         CHECK FOR EXISTING /COMPCOM/ FET DEFINITION.                           FTNRES       786     A     
 FTNRES    .CD      IF     DEF,FE.NAME                                                     FTNRES       787     A     
 FTNRES    REORG    SET    1                                                               FTNRES       788     A     
 FTNRES   *         TO REDEFINE /COMPCOM/ FET.                                             FTNRES       789     A     
 FTNRES             ORG    FE.NAME                                                         FTNRES       790     A     
 FTNRES    .CD      ELSE                                                                   FTNRES       791     A     
 FTNRES    FE.NAME  BSS    0                                                               FTNRES       792     A     
 FTNRES    .CD      ENDIF                                                                  FTNRES       793     A     
 FTNRES   *         LINK GLOBAL FILE SYMBOLS TO FETS.                                      FTNRES       794     A     
 FTNRES    F.NAME   =      FE.NAME                                                         FTNRES       795     A     
 FTNRES   *                                                                                FTNRES       796     A     
 FTNRES   *         FORM FET.                                                              FTNRES       797     A     
 FTNRES   *                                                                                FTNRES       798     A     
 FTNRES             VFD    42/0L"NAME",18/MODE+1                                           FTNRES       799     A     
 FTNRES             VFD    36/0,6/3,18/FIRST                                               FTNRES       800     A     
 FTNRES             CON    FIRST                                                           FTNRES       801     A     
 FTNRES             CON    FIRST                                                           FTNRES       802     A     
 FTNRES             CON    FIRST+LC.NAME                                                   FTNRES       803     A     
 FTNRES   *         (I.CBSET)          PASS 1 BUFFER RESET PARAMS.                         FTNRES       804     A     
 FTNRES             VFD    24/0,18/LC.NAME,18/FIRST                                        FTNRES       805     A     
 FTNRES             BSSZ   2                 RANDOM FILE INFO                              FTNRES       806     A     
 FTNRES    .CD      IFEQ   REORG,1                                                         FTNRES       807     A     
 FTNRES   *         RETURN TO NOMINAL BLOCK.                                               FTNRES       808     A     
 FTNRES             USE    *                                                               FTNRES       809     A     
 FTNRES    .CD      ENDIF                                                                  FTNRES       810     A     
 FTNRES    #RM      ENDIF                                                                  FTNRES       811     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 489    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES   *                                                                                FTNRES       812     A     
 FTNRES   *                            FOR RECORD MANAGER I/O.                             FTNRES       813     A     
 FTNRES   *                                                                                FTNRES       814     A     
 FTNRES    #RM      IFGE   CP#RM,6                                                         FTNRES       815     A     
 FTNRES   *                            DEFINE PSEUDO-FET BASE ADDRESS.                     FTNRES       816     A     
 FTNRES    FP.NAME  BSS    0                                                               FTNRES       817     A     
 FTNRES   *         (I.FIT)            FLAGS AND FIT POINTER.                              FTNRES       818     A     
 FTNRES   *                            1/HOLD BUF FLAG, 1/SPILL FLAG, 58/FIT ADDR          FTNRES       819     A     
 FTNRES   *                -HOLDING BUFFER EXISTS- FLAG  ( 1=YES, 0=NO )                   FTNRES       820     A     
 FTNRES             VFD    1/1*LH.NAME/LH.NAME                                             FTNRES       821     A     
 FTNRES   *                -FILE SPILLED- FLAG           ( 1=YES, 0=NO )                   FTNRES       822     A     
 FTNRES             VFD    1/0                                                             FTNRES       823     A     
 FTNRES   *                            -UNCONDIT BUF FLUSH- FLAG  ( 1=YES, 0=NO )          FTNRES       824     A     
 FTNRES             IFC    NE, TABLE  ,2                                                   FTNRES       825     A     
 FTNRES             VFD    1/0                                                             FTNRES       826     A     
 FTNRES             SKIP   1                                                               FTNRES       827     A     
 FTNRES             VFD    1/1                                                             FTNRES       828     A     
 FTNRES   *                RESERVED FOR CDC.                                               FTNRES       829     A     
 FTNRES             VFD    39/0                                                            FTNRES       830     A     
 FTNRES   *                FIT ADDRESS.                                                    FTNRES       831     A     
 FTNRES             VFD    18/FI.NAME                                                      FTNRES       832     A     
 FTNRES   *                            HOLDING BUFFER CONTROL PARAMETERS.                  FTNRES       833     A     
 FTNRES    .HB      IFNE   LH.NAME,0                                                       FTNRES       834     A     
 FTNRES   *         (I.FIRST), (I.IN), (I.OUT), (I.LIMIT)                                  FTNRES       835     A     
 FTNRES             DUP    4,1                                                             FTNRES       836     A     
 FTNRES             VFD    42/0,18/**                                                      FTNRES       837     A     
 FTNRES   *         (I.HBSET)          HOLDING BUFFER RESET VALUES.                        FTNRES       838     A     
 FTNRES             VFD    24/0,18/LH.NAME,18/**                                           FTNRES       839     A     
 FTNRES    .HB      ENDIF                                                                  FTNRES       840     A     
 FTNRES   *                                                                                FTNRES       841     A     
 FTNRES   *         LINK GLOBAL FILE SYMBOLS TO PSEUDO-FETS.                               FTNRES       842     A     
 FTNRES    F.NAME   =      FP.NAME                                                         FTNRES       843     A     
 FTNRES    #RM      ENDIF                                                                  FTNRES       844     A     
 FTNRES   *                                                                                FTNRES       845     A     
 FTNRES   *         DECLARE GLOBAL FILE SYMBOLS AS ENTRY POINTS.                           FTNRES       846     A     
 FTNRES             ENTRY  F.NAME                                                          FTNRES       847     A     
 FTNRES   *                                                                                FTNRES       848     A     
 FTNRES   *         FORM FILE VECTOR TABLE FOR JOB COMMUNICATIONS AREA (RA.ARG).           FTNRES       849     A     
 FTNRES   *                                                                                FTNRES       850     A     
 FTNRES   *         /FVEC-HERE/ APPEARS AT -FVTBL-.                                        FTNRES       851     A     
 FTNRES    FVEC     RMT                                                                    FTNRES       852     A     
 FTNRES             FVEC   NAME                                                            FTNRES       853     A     
 FTNRES    FVEC     RMT                                                                    FTNRES       854     A     
 FTNRES   *                                                                                FTNRES       855     A     
 FTNRES    FET      ENDM                                                                   FTNRES       856     A     
 FTNRES    FETS     SPACE  4                                                               FTNRES       857     A     
 FTNRES                                                                                    FTNRES       858     A     
 FTNRES   ***       CIO CODE VALUES FOR FILE MODES.                                        FTNRES       859     A     
 FTNRES                                                                                    FTNRES       860     A     
 FTNRES    BINARY   EQU    2                                                               FTNRES       861     A     
 FTNRES    CODED    EQU    0                                                               FTNRES       862     A     
 FTNRES    FET/FIT  SPACE  4,8                                                             FTNRES       863     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 490    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES   **        SCRATCH FILE DISPOSITION.                                              FTNRES       864     A     
 FTNRES   *         (APPLIES ONLY WHEN RECORD MANAGER I/O IS SELECTED.)                    FTNRES       865     A     
 FTNRES   *                                                                                FTNRES       866     A     
 FTNRES   *         SELECT -CLOSE FLAG- (CF) PARAMETER FOR EACH SCRATCH FILE FIT.          FTNRES       867     A     
 FTNRES   *         THE PARAMETER MAY BE ALTERED DURING COMPILER INITIALIZATION,           FTNRES       868     A     
 FTNRES   *         TO COMPLY WITH CONTROL CARD OPTION SELECTIONS.                         FTNRES       869     A     
 FTNRES   *                                                                                FTNRES       870     A     
 FTNRES    #RM      IFGE   CP#RM,6                                                         FTNRES       871     A     
 FTNRES    .T       IFEQ   TEST,0                                                          FTNRES       872     A     
 FTNRES   *                SYSTEM MODE COMPILER - UNLOAD SCRATCH FILES.                    FTNRES       873     A     
 FTNRES    SFD      MICRO  1,, U                                                           FTNRES       874     A     
 FTNRES    .T       ELSE                                                                   FTNRES       875     A     
 FTNRES   *                TEST MODE COMPILER - REWIND SCRATCH FILES.                      FTNRES       876     A     
 FTNRES    SFD      MICRO  1,, R                                                           FTNRES       877     A     
 FTNRES    .T       ENDIF                                                                  FTNRES       878     A     
 FTNRES    #RM      ENDIF                                                                  FTNRES       879     A     
 FTNRES    FET/FIT  SPACE  4,8                                                             FTNRES       880     A     
 FTNRES   ***       FET/FIT AREAS.                                                         FTNRES       881     A     
 FTNRES   *                                                                                FTNRES       882     A     
 FTNRES   *                                                                                FTNRES       883     A     
 FTNRES    INPUT    SPACE  3,5                                                             FTNRES       884     A     
 FTNRES   **        INPUT  -  FORTRAN SOURCE INPUT FILE.                                   FTNRES       885     A     
 FTNRES                                                                                    FTNRES       886     A     
 FTNRES             FET    IN,IBUF,CODED                                                   FTNRES       887     A     
 FTNRES    OUTPUT   SPACE  3,5                                                             FTNRES       888     A     
 FTNRES   **        OUTPUT  -  LISTABLE OUTPUT FILE.                                       FTNRES       889     A     
 FTNRES                                                                                    FTNRES       890     A     
 FTNRES             FET    OUT,OBUF,CODED                                                  FTNRES       891     A     
 FTNRES    LGO      SPACE  3,5                                                             FTNRES       892     A     
 FTNRES   **        LGO  -  EXECUTABLE BINARY (LOAD-AND-GO) FILE.                          FTNRES       893     A     
 FTNRES                                                                                    FTNRES       894     A     
 FTNRES             FET    LGO,0,BINARY                                                    FTNRES       895     A     
 FTNRES                                                                                    FTNRES       896     A     
 FTNRES                                                                                    FCCA488        8     A     
 FTNRES   **        ERRORS FILE FOR INTERMIXED COMPASS SET TO OUTPUT.                      FCCA488        9     A     
 FTNRES                                                                                    FCCA488       10     A     
 FTNRES             FET    ERRS,0,CODED                                                    FCCA488       11     A     
 FTNRES    COMPS    SPACE  3,11                                                            FTNRES       897     A     
 FTNRES   **        COMPS - COMPASS IMAGE FILE                                             FTNRES       898     A     
 FTNRES                                                                                    FTNRES       899     A     
 FTNRES             FET    CMPS,0,CODED,TABLE                                              FTNRES       900     A     
 FTNRES    #RM      IFEQ   CP#RM,7                                                         FTNRES       901     A     
 FTNRES    FI.CMPS  FILE   LFN="CMPS",FO=SQ,OF=R,CF="SFD",PD=IO,EO=T,CM=YES,BT=,RT         FTNRES       902     A     
 FTNRES   ,=W,MRL=80D                                                                      FTNRES       903     A     
 FTNRES             BSSZ   FI.CMPS+20D-*                                                   FTNRES       904     A     
 FTNRES    #RM      ENDIF                                                                  FTNRES       905     A     
 FTNRES    RLIST    SPACE  3,11                                                            FTNRES       906     A     
 FTNRES   **        RLIST/LONGFILE - INTERMEDIATE SCRATCH FILE                             FTNRES       907     A     
 FTNRES                                                                                    FTNRES       908     A     
 FTNRES             FET    RLST,0,BINARY,TABLE                                             FTNRES       909     A     
 FTNRES    #RM      IFEQ   CP#RM,7                                                         FTNRES       910     A     
 FTNRES    FI.RLST  FILE   LFN="RLST",FO=SQ,OF=R,CF="SFD",PD=IO,EO=T,CM=NO,BT=,RT=         FTNRES       911     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 491    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES   ,W                                                                               FTNRES       912     A     
 FTNRES             BSSZ   FI.RLST+20D-*                                                   FTNRES       913     A     
 FTNRES    #RM      ENDIF                                                                  FTNRES       914     A     
 FTNRES                                                                                    FTNRES       915     A     
 FTNRES   **        EQUATE LONGFILE NAME (TS MODE) TO RLIST NAME (2 PASS).                 FTNRES       916     A     
 FTNRES                                                                                    FTNRES       917     A     
 FTNRES    F.LF     EQENT  F.RLST                                                          FTNRES       918     A     
 FTNRES    REFMAP   SPACE  3,11                                                            FTNRES       919     A     
 FTNRES   **        REFMAP  -  LONG REFERENCE MAP (R=2 OR 3) SCRATCH FILE.                 FTNRES       920     A     
 FTNRES                                                                                    FTNRES       921     A     
 FTNRES             FET    RMAP,0,BINARY,TABLE                                             FTNRES       922     A     
 FTNRES    #RM      IFEQ   CP#RM,7                                                         FTNRES       923     A     
 FTNRES    FI.RMAP  FILE   LFN="RMAP",FO=SQ,OF=R,CF="SFD",PD=IO,EO=T,CM=NO,BT=,RT=         FTNRES       924     A     
 FTNRES   ,W                                                                               FTNRES       925     A     
 FTNRES             BSSZ   FI.RMAP+20D-*                                                   FTNRES       926     A     
 FTNRES    #RM      ENDIF                                                                  FTNRES       927     A     
 FTNRES    OPT      SPACE  3,11                                                            FTNRES       928     A     
 FTNRES   **        OPT/DEBUG  -  SCRATCH FILE FOR <OPT=2> OR <DEBUG> MODES.               FTNRES       929     A     
 FTNRES                                                                                    FTNRES       930     A     
 FTNRES             FET    OPT,0,BINARY                                                    FTNRES       931     A     
 FTNRES    #RM      IFEQ   CP#RM,7                                                         FTNRES       932     A     
 FTNRES    FI.OPT   FILE   LFN="OPT",FO=WA,OF=R,CF="SFD",PD=IO,EO=T,RT=W,MRL=37777         FTNRES       933     A     
 FTNRES   ,7B                                                                              FTNRES       934     A     
 FTNRES             BSSZ   FI.OPT+20D-*                                                    FTNRES       935     A     
 FTNRES    #RM      ENDIF                                                                  FTNRES       936     A     
 FTNRES                                                                                    FTNRES       937     A     
 FTNRES                                                                                    FTNRES       938     A     
 FTNRES                                                                                    FTNRES       939     A     
 FTNRES   **        EQUATE DEBUG FILE NAME TO OPT FILE NAME.                               FTNRES       940     A     
 FTNRES   *                                                                                FTNRES       941     A     
 FTNRES    F.DEBUG  EQENT  F.OPT                                                           FTNRES       942     A     
 FTNRES    #RM      IFGE   CP#RM,6                                                         FTNRES       943     A     
 FTNRES             ENTRY  FI.OPT                                                          FTNRES       944     A     
 FTNRES    FI.DBG   EQENT  FI.OPT                                                          FTNRES       945     A     
 FTNRES    #RM      ENDIF                                                                  FTNRES       946     A     
 FTNRES                                                                                    FTNRES       947     A     
 FTNRES                                                                                    FTNRES       948     A     
 FTNRES                                                                                    FTNRES       949     A     
 FTNRES   **        DEFINE OUTPUT FILE NAME FOR FORTRAN-CODED I/O STATEMENTS.              FTNRES       950     A     
 FTNRES   *                                                                                FTNRES       951     A     
 FTNRES    OUTPUT"C" EQENT F.OUT                                                           FTNRES       952     A     
 FTNRES             TITLE  CONSTANTS, DATA, FLAGS, TEMP STORAGE                            FTNRES       953     A     
 FTNRES             SPACE  3                                                               FTNRES       954     A     
 FTNRES   **        USAGE OF CELLS IN JOB COMMUNICATIONS AREA.                             FTNRES       955     A     
 FTNRES   *                                                                                FTNRES       956     A     
 FTNRES    SYM1     =      RA.SSW+12B        INVERTED FWA OF SYMBOL TABLE                  FTNRES       957     A     
 FTNRES    LDRP     =      RA.SSW+17B - 21B  3 WORDS FOR LOADER CALL PARAM LIST            FTNRES       958     A     
 FTNRES    LISTOP   SPACE  4,8                                                             FEAT121L      13     A     
 FTNRES   **        LISTING CONTROL FLAGS AFFECTED BY C/-LIST DIRECTIVES.                  FEAT121L      14     A     
 FTNRES                                                                                    FEAT121L      15     A     
 FTNRES   *         MASTER COPY OF LISTING CONTROL FLAGS.                                  FEAT121L      16     A     
 FTNRES                                                                                    FEAT121L      17     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 492    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES    LSTMSTR  BSS    0                                                               FEAT121L      18     A     
 FTNRES             ENTRY  LSTMSTR                                                         FEAT121L      19     A     
 FTNRES                                                                                    FEAT121L      20     A     
 FTNRES             QUAL   MASTER                                                          FEAT121L      21     A     
 FTNRES                                                                                    FEAT121L      22     A     
 FTNRES    ANSI     CON    1S59*"CC.AE"   1S59 IF ANSI DIAGNOSTICS, ELSE 0                 FEAT121L      23     A     
 FTNRES    IEFLG    CON    1S59*"CC.IE"   1S59 IF INFORMATIVE ERRORS, ELSE 0               FEAT121L      24     A     
 FTNRES                                                                                    FEAT126B       5     A     
 FTNRES             IFC    NE,/"CC.R"/0/,2                                                 FEAT126B       6     A     
 FTNRES    LOP=M    CON    1S59        .MI. IF R.NE.0                                      FEAT126B       7     A     
 FTNRES             SKIP   1                                                               FEAT126B       8     A     
 FTNRES    LOP=M    CON    0           .ZR. IF R=0                                         FEAT126B       9     A     
 FTNRES                                                                                    FEAT126B      10     A     
 FTNRES    LOP=O    CON    1S59*"CC.OL"   1S59 FOR OBJECT LIST, ELSE 0                     FEAT121L      25     A     
 FTNRES                                                                                    FEAT121L      26     A     
 FTNRES             IFC    GE,/"CC.R"/2/,2                                                 FEAT121L      27     A     
 FTNRES    LOP=R    CON    1S59           .MI. FOR R=2 OR R=3                              FEAT121L      28     A     
 FTNRES             SKIP   1                                                               FEAT121L      29     A     
 FTNRES    LOP=R    CON    0              .PL. FOR R=0 OR R=1                              FEAT121L      30     A     
 FTNRES                                                                                    FEAT121L      31     A     
 FTNRES    LOP=W    =      IEFLG                                                           FEAT121L      32     A     
 FTNRES    LOP=X    =      ANSI                                                            FEAT121L      33     A     
 FTNRES    OLIST    =      LOP=O                                                           FEAT121L      34     A     
 FTNRES    RSELECT  =      LOP=R                                                           FEAT121L      35     A     
 FTNRES    R=FLAG   CON    "CC.R"         R = N (0, 1, 2, 3)                               FEAT121L      36     A     
 FTNRES                                                                                    FEAT121L      37     A     
 FTNRES             QUAL   *                                                               FEAT121L      38     A     
 FTNRES                                                                                    FEAT121L      39     A     
 FTNRES    L.MSTR   =      *-LSTMSTR                                                       FEAT121L      40     A     
 FTNRES             ENTRY  L.MSTR                                                          FEAT121L      41     A     
 FTNRES    MLOP=O   EQENT  /MASTER/LOP=O                                                   FEAT126B      11     A     
 FTNRES    MLOP=R   EQENT  /MASTER/LOP=R                                                   FEAT155H       7     A     
 FTNRES    MLOP=X   EQENT  /MASTER/LOP=X                                                   FEAT155HA      4     A     
 FTNRES                                                                                    FEAT121L      42          I
          -FEAT155H 
 FTNRES   *         WORKING COPY OF LISTING CONTROL FLAGS.                                 FEAT121L      43          I
          -FEAT155H 
 FTNRES                                                                                    FEAT121L      44          I
          -FEAT155H 
 FTNRES    LSTWRKG  BSS    0                                                               FEAT121L      45          I
          -FEAT155H 
 FTNRES             ENTRY  LSTWRKG                                                         FEAT121L      46          I
          -FEAT155H 
 FTNRES    ANSI     ENTRY.                                                                 FEAT121L      47          I
          -FEAT155H 
 FTNRES    IEFLG    ENTRY.                                                                 FEAT121L      48          I
          -FEAT155H 
 FTNRES    LOP=M    ENTRY.                                                                 FEAT126B      12          I
          -FEAT155H 
 FTNRES    LOP=O    ENTRY.                                                                 FEAT121L      49          I
          -FEAT155H 
 FTNRES    LOP=R    ENTRY.                                                                 FEAT121L      50          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 493    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
          -FEAT155H 
 FTNRES    LOP=W    EQENT  IEFLG                                                           FEAT121L      51          I
          -FEAT155H 
 FTNRES    LOP=X    EQENT  ANSI                                                            FEAT121L      52          I
          -FEAT155H 
 FTNRES    OLIST    EQENT  LOP=O                                                           FEAT121L      53          I
          -FEAT155H 
 FTNRES    RSELECT  EQENT  LOP=R                                                           FEAT121L      54          I
          -FEAT155H 
 FTNRES    R=FLAG   ENTRY.                                                                 FEAT121L      55          I
          -FEAT155H 
 FTNRES             SPACE  4,8                                                             FTNRES       959     A     
 FTNRES   **        MISCELLANEOUS FLAGS.                                                   FTNRES       960     A     
 FTNRES                                                                                    FTNRES       961     A     
 FTNRES    CARDSB   ENTRY. 0           TOTAL CARDS PROCESSED (TS MODE)                     FTNRES       962          I
          -FEAT155G 
 FTNRES    FTIFL    VFD    12/0,18/**,30/0   INITIAL CM/SCM FIELD LENGTH                   FTNRES       963     A     
 FTNRES    F.SB     ENTRY. 0           FWA STRING BUFFER IN TS-MODE                        FTNRES       964          I
          -FCC0813
 FTNRES    F.TABS   ENTRY. 0           FWA TABLE AREA IN TS-MODE                           FTNRES       965     A     
 FTNRES    GL.DRL   ENTRY. 100B        LENGTH OF GLOBAL DRL                                FTNRES       966     A     
 FTNRES    GL.DVL   ENTRY. 100B        LENGTH OF GLOBAL DVL                                FTNRES       967     A     
 FTNRES    GL.IND   ENTRY. 100B        LENGTH OF DEBUG RANDOM FILE INDEX                   FTNRES       968     A     
 FTNRES    GL.SYM   ENTRY. 0           GLOBAL O.SYM (RESET IN LSTPRO)                      FCC0761        9     A     
 FTNRES    INT.FL   ENTRY. 0           COMPILER INITIAL FIELD LENGTH                       FEAT155D      16     A     
 FTNRES    JOT      ENTRY. 0           JOB ORIGIN TYPE (0 - BATCH, 1 - TERMINAL)           FTNRES       969     A     
 FTNRES    LASTREC  ENTRY. 57333333333334000005B    UPDATED DISPOW AND RECORD              FTNRES       970     A     
 FTNRES    LCP.PS   ENTRY. 0           LCP.PS (LOCAL CELL FOR CP.PS) = CP.PS-3             FCCA422       11     A     
 FTNRES    RS.PD    ENTRY. 0           RESTORE PRINT DENSITY                               FCCA593       12     A     
 FTNRES             ENTRY  LDPT                                                            FCC2125       17     A     
 FTNRES    LDRFL    VFD    12/0,18/MEM.GOFL,30/0   FIELD LENGTH FOR LOADING IN GO MD       FCC0864        8     A     
 FTNRES    LGOIO    ENTRY. -1          -1 IF BIN IS ON DISK(NO CMLOD)                      FTNRES       971     A     
 FTNRES   *                             0 IF BIN IS IN SCM                                 FTNRES       972     A     
 FTNRES   *                            +1 IF BIN IS IN LCM                                 FTNRES       973     A     
 FTNRES    L.GCON   ENTRY. 0           LENGTH OF GLOBAL DEBUG CON TABLE                    FTNRES       974     A     
 FTNRES   *                                  0  - INTERSPERSED STATEMENTS                  FTNRES       975     A     
 FTNRES    MACFLAG  ENTRY. 0           OLIST .OR. UFLAG                                    FTNRES       976     A     
 FTNRES   *                                  IF = 0 THEN DONT SEND MACROS TO COMPS         FTNRES       977     A     
 FTNRES    MAX.FL   ENTRY. 7777777776BS30    JOB STEP MAX FL (-1 FOR MEMORY CALL)          FEAT155D      17     A     
 FTNRES    MAX.RL   ENTRY. 0           MAX RECORD LENGTH FOR OPT=2                         FTNRES       978     A     
 FTNRES    O.GCON   ENTRY. 0           FWA OF GLOBAL DEBUG CON TABLE                       FTNRES       979     A     
 FTNRES    PR.MXFL  ENTRY. 0           MAX FL USED BY CURRENT PROGRAM UNIT                 RSM2763X       7     A     
 FTNRES    W.TABS   ENTRY. 0           AMOUNT OF CORE TO BE MANAGED IN TS-MODE             FTNRES       980     A     
 FTNRES    CER.FL   ENTRY. 0           1 IF CONTROL CARD ERROR OR NULL PROGRAM             FCC2104        7     A     
 FTNRES    .MODES   =      0                                                               FTNRES       981          I
          -FCC0380
 FTNRES    .MODES   EQU    1                                                               FCC0380        1     A     
 FTNRES             SPACE  3                                                               FTNRES       982     A     
 FTNRES   **        FLAGS ASSOCIATED WITH THE CONTROL CARD OPTIONS.                        FTNRES       983     A     
 FTNRES                                                                                    FTNRES       984     A     
 FTNRES    PDFLAG   ENTRY. 1S59        SET IF ISSUE PD, ELSE NOT SET                       FCCA422       12     A     
 FTNRES    ANSI     ENTRY. 1S59*"CC.AE"   1S59 IF ANSI DIAGNOSTICS ELSE 0                  FTNRES       985          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 494    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
          -FEAT121L 
 FTNRES    CAFLAG   ENTRY. 1S59*"CC.C"    1S59 IF COMPASS ASSEMBLY ELSE 0                  FTNRES       986     A     
 FTNRES    CBNFLG   ENTRY. 1S59*"CC.T"    1S59 IF TRACE MODE ELSE 0                        FTNRES       987     A     
 FTNRES    CCFLAG   ENTRY.  0                                                              FCC2125       18     A     
 FTNRES    .T       IFNE   TEST,0                                                          FEAT155F      94     A     
 FTNRES    .OS2     IFNE   .OS,2                                                           FEAT155F      95     A     
 FTNRES    CO.BRK   ENTRY. 0           LIST OF OVERLAY NRS (0L FMT) AS SET UP BY           FEAT155F      96     A     
 FTNRES   *                              *BREAK=* CC OPTION.                               FEAT155F      97     A     
 FTNRES   *                              E.G.  BREAK=2122  WOULD BE  4L2122                FEAT155F      98     A     
 FTNRES    .OS2     ENDIF                                                                  FEAT155F      99     A     
 FTNRES    .T       ENDIF                                                                  FEAT155F     100     A     
 FTNRES    CO.EDT   ENTRY. 1S59*"CC.EDT"  1S59 IF SYSEDIT ON ELSE 0                        FTNRES       988     A     
 FTNRES    CO.ER    ENTRY. 0           1S59 IF ER ON ELSE 0                                FEAT155J      12     A     
 FTNRES                                                                                    F66FCC        80     A     
 FTNRES             IFEQ   .FID,ON,1                                                       F66FCC        81     A     
 FTNRES    CO.ID    ENTRY. 0           1S59 IF DB=ID ELSE 0                                F66FCC        82     A     
 FTNRES                                                                                    F66FCC        83     A     
 FTNRES    CO.MODE  ENTRY. 1S59*"CC.SEQ"  1S59 FOR SEQUENCED INPUT IN TS MODE              FTNRES       989     A     
 FTNRES                                                                                    FTNRES       990     A     
 FTNRES             IFC    LE,/"CC.OPT"/2/,2                                               FTNRES       991     A     
 FTNRES    CO.OLVL  ENTRY. "CC.OPT"    OPTIMIZATION LEVEL                                  FTNRES       992     A     
 FTNRES             SKIP   1                                                               FTNRES       993     A     
 FTNRES    CO.OLVL  ENTRY. 2           OPTIMIZATION LEVEL                                  FTNRES       994     A     
 FTNRES                                                                                    FTNRES       995     A     
 FTNRES    CO.PD    ENTRY.             PRINT DENSITY ; CONTROL CHARACTER                   FEAT155E      22          I
          -FEAT155EA
 FTNRES    CO.PS    ENTRY.             PAGE SIZE ; LINES PER PAGE                          FEAT155E      23          I
          -FEAT155EA
 FTNRES    CO.PW    ENTRY. "CC.PW"     .NZ. IF PAGE WIDTH SPECIFIED                        FEAT126A      22          I
          -CP139FC
 FTNRES    CO.REW   ENTRY. 0           .MI. IF REWIND OF INPUT AND LGO SELECTED            FTNRES       996     A     
 FTNRES    CO.RND   ENTRY. "CC.ROUND"S19  ROUNDED ARITHMETIC FLAG                          FTNRES       997     A     
 FTNRES    CO.SNAP  ENTRY. 0           .MI. IF SNAPS DESIRED                               FTNRES       998          I
          -FEAT126C 
 FTNRES    CO.SNAP  ENTRY. 0           .NZ. IF SNAPS DESIRED                               FEAT126C      47     A     
 FTNRES    CO.STA   ENTRY. "CC.STA"    1S59 IF STATIC LOAD                                 F162FTNA     358     A     
 FTNRES    CO.TBK   EQENT  CBNFLG      ALTERNATE NAME FOR TRACE MODE FLAG                  FTNRES       999     A     
 FTNRES    CO.TS    CON    1S59*"CC.TS"      1S59 IF TS MODE ELSE 0                        FCC0971       10     A     
 FTNRES                                                                                    FTNRES      1000     A     
 FTNRES             IFC    EQ,/"CC.D"/OFF/,2                                               FTNRES      1001     A     
 FTNRES    DFLAG    ENTRY. 0           IF DEBUG NOT SELECTED                               FTNRES      1002     A     
 FTNRES             SKIP   1                                                               FTNRES      1003     A     
 FTNRES    DFLAG    ENTRY. 0L"CC.D"    DEBUG FILE NAME IF SELECTED                         FTNRES      1004     A     
 FTNRES                                                                                    FTNRES      1005     A     
 FTNRES    DIRECT   ENTRY. 1S59*"CC.LCM"  1S59 IF LCM=D ELSE 0                             FTNRES      1006     A     
 FTNRES                                                                                    FTNRES      1007     A     
 FTNRES   *         F.LFN  BITS TO SET FOR A FILE NAME (WORD B OF SYMTAB).                 FTNRES      1008     A     
 FTNRES    L1       SET    60-P.TYP-L.TYP                                                  FTNRES      1009     A     
 FTNRES    L2       SET    P.TYP-P.EXT-1                                                   FTNRES      1010     A     
 FTNRES    EXT      SET    0                                                               FTNRES      1011     A     
 FTNRES             IFEQ   "CC.EDT",0,1                                                    FTNRES      1012     A     
 FTNRES    EXT      SET    1                                                               FTNRES      1013     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 495    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES             ENTRY  F.LFN                                                           FTNRES      1014     A     
 FTNRES    F.LFN    VFD    L1/0,L.TYP/T.LFN,L2/0,1/EXT,*P/0                                FTNRES      1015     A     
 FTNRES                                                                                    FTNRES      1016     A     
 FTNRES    GOFLAG   CON    1S59*"CC.GO"   1S59 IF COMPILE AND GO SELECTED ELSE 0           FTNRES      1017     A     
 FTNRES    IEFLG    ENTRY. 1S59*"CC.IE"   1S59 IF INFORMATIVE ERRORS ELSE 0                FTNRES      1018          I
          -FEAT121L 
 FTNRES    LOP=F    ENTRY. 1S59           LIST FATAL ERRORS ALWAYS                         FTNRES      1019     A     
 FTNRES                                                                                    FTNRES      1020          I
          -FEAT126B 
 FTNRES             IFC    NE,/"CC.R"/0/,2                                                 FTNRES      1021          I
          -FEAT126B 
 FTNRES    LOP=M    ENTRY. 1S59           .MI. IF R .NE. 0                                 FTNRES      1022          I
          -FEAT126B 
 FTNRES             SKIP   1                                                               FTNRES      1023          I
          -FEAT126B 
 FTNRES    LOP=M    ENTRY. 0              .ZR. IF R = 0                                    FTNRES      1024          I
          -FEAT126B 
 FTNRES                                                                                    FTNRES      1025          I
          -FEAT126B 
 FTNRES    LOP=N    ENTRY. 1S59*"CC.NE"   1S59 IF NOTE DIAGNOSTICS ELSE 0                  FTNRES      1026     A     
 FTNRES    LOP=O    ENTRY. 1S59*"CC.OL"   1S59 FOR OBJECT LIST ELSE 0                      FTNRES      1027          I
          -FEAT121L 
 FTNRES                                                                                    FTNRES      1028          I
          -FEAT121L 
 FTNRES             IFC    GE,/"CC.R"/2/,2                                                 FTNRES      1029          I
          -FEAT121L 
 FTNRES    LOP=R    ENTRY. 1S59           .MI. FOR R=2 OR R=3                              FTNRES      1030          I
          -FEAT121L 
 FTNRES             SKIP   1                                                               FTNRES      1031          I
          -FEAT121L 
 FTNRES    LOP=R    ENTRY. 0              .PL. FOR R=0 OR R=1                              FTNRES      1032          I
          -FEAT121L 
 FTNRES                                                                                    FTNRES      1033          I
          -FEAT121L 
 FTNRES    LOP=W    EQENT  IEFLG          WARNING DIAGNOSTICS                              FTNRES      1034          I
          -FEAT121L 
 FTNRES    LOP=X    EQENT  ANSI           ALTERNATE NAME FOR ANSI DIAGNOSTIC FLAG          FTNRES      1035          I
          -FEAT121L 
 FTNRES    LOP=1    ENTRY. OFF            USED IN TS MODE FOR ERROR FLAG                   FTNRES      1036     A     
 FTNRES   PMDFLAG   ENTRY. 1S59*"CC.PMD"  1S59 IF PMDMP ENABLED, ELSE 0                    FEAT1070C     82     A     
 FTNRES    OLIST    EQENT  LOP=O          ALTERNATE NAME FOR OBJECT LIST FLAG              FTNRES      1037          I
          -FEAT121L 
 FTNRES    OT.RM    ENTRY. OT#RM-6        OBJECT TIME I/O (0=6RM, 1=7RM)                   FTNRES      1038     A     
 FTNRES    PLIMIT   ENTRY. "CC.PL"        OBJECT TIME PRINT LIMIT                          FTNRES      1039     A     
 FTNRES    QFLAG    ENTRY. 1S59*"CC.Q"    1S59 IF QUICK MODE COMPILATION ELSE 0            FTNRES      1040     A     
 FTNRES    ROPFLAG  EQENT  CO.RND         ALTERNATE NAME FOR ROUNDED ARITHMETIC FL         FTNRES      1041     A     
 FTNRES    RSELECT  EQENT  LOP=R          ALTERNATE NAME FOR R OPTION                      FTNRES      1042          I
          -FEAT121L 
 FTNRES    R=FLAG   ENTRY. "CC.R"         R = N (0, 1, 2, 3)                               FTNRES      1043          I
          -FEAT121L 
 FTNRES    SLIST    ENTRY. 1S59*"CC.SL"   1S59 FOR SOURCE LIST ELSE 0                      FTNRES      1044     A     
 FTNRES    SPPFLAG  ENTRY. 0              SYSTEM PROGRAMMER PACKAGE FLAG                   FTNRES      1045     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 496    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES    TSFLAG   CON    1S59*"CC.TS"   1S59 IF TS MODE ELSE 0                           FTNRES      1046          I
          -FCC0971
 FTNRES    UFLAG    ENTRY. "CC.E"         .NZ. IF E OPT SELECTED ELSE 0                    FTNRES      1047     A     
 FTNRES    UOFLAG   ENTRY. 0           "0 IF *UO* SELECTED                                 FEAT121A      25     A     
 FTNRES    ZFLAG    ENTRY. 1S59*"CC.Z"    1S59 IF ZERO WORD LOAD FOR APLIST ELSE 0         FTNRES      1048     A     
 FTNRES             SPACE  3,6                                                             FTNRES      1049     A     
 FTNRES   **        FLAGS ASSOCIATED WITH LCM USEAGE ( OPT .GE. 2 )                        FTNRES      1050     A     
 FTNRES                                                                                    FTNRES      1051     A     
 FTNRES    LCM.OA   ENTRY. 0           ORIGIN OF ALLOCATABLE LCM                           FTNRES      1052     A     
 FTNRES    LCM.MM   ENTRY. 0           MEMORY MODE ( = 1S59 IF REDUCE MODE )               FTNRES      1053     A     
 FTNRES    LCM.MU   ENTRY. 0           MEMORY USED                                         FTNRES      1054     A     
 FTNRES    LCM.FL   EQENT  CP.AFLL     LCM FIELD LENGTH ( ACTUAL )                         FTNRES      1055     A     
 FTNRES             SPACE  4,8                                                             FTNRES      1056     A     
 FTNRES   **        GLOBAL TEMPORARY STORAGE CELLS.                                        FTNRES      1057     A     
 FTNRES   *                                                                                FTNRES      1058     A     
 FTNRES   *         THESE SCRATCH CELLS ARE AVAILABLE TO ANY USER AT ANY TIME.             FTNRES      1059     A     
 FTNRES   *         THEY ARE INTENDED FOR USE WITH IN-LINE CODE, AND SHOULD NOT            FTNRES      1060     A     
 FTNRES   *         BE EXPECTED TO SURVIVE OVER SUBROUTINE CALLS.                          FTNRES      1061     A     
 FTNRES                                                                                    FTNRES      1062     A     
 FTNRES    GT1      ENTRY.   0                                                             FTNRES      1063          I
          -FEAT155H 
 FTNRES    GT2      ENTRY.   0                                                             FTNRES      1064          I
          -FEAT155H 
 FTNRES    GT3      ENTRY.   0                                                             FTNRES      1065          I
          -FEAT155H 
 FTNRES    GT4      ENTRY.   0                                                             FTNRES      1066          I
          -FEAT155H 
 FTNRES    GT1      EQENT  CP.LINE                                                         FEAT155H       8     A     
 FTNRES    GT2      EQENT  CP.LINE+1                                                       FEAT155H       9     A     
 FTNRES             SPACE  4,8                                                             FTNRES      1067          I
          -FEAT155H 
 FTNRES   **        *COMPILING ...* MESSAGE FOR B-DISPLAY / PROGRAM UNIT NAME.             FTNRES      1068          I
          -FEAT155H 
 FTNRES   *                                                                                FTNRES      1069          I
          -FEAT155H 
 FTNRES    COMPMSG  ENTRY. 10HCOMPILING                                                    FTNRES      1070          I
          -FEAT155H 
 FTNRES    PROGNAM  ENTRY. 0           PROGRAM UNIT NAME, 42/7H_NNN....,18/0               FTNRES      1071          I
          -FEAT155H 
 FTNRES             SPACE  4,8                                                             FTNRES      1072     A     
 FTNRES             ENTRY  L.MAXCD                                                         FTNRES      1073     A     
 FTNRES    L.MAXCD  =      10D         SOURCE INPUT LINE MAX LENGTH (WORDS)                FTNRES      1074     A     
 FTNRES    L.MAXLL  =      L.MAXCD+2   OUTPUT LISTING LINE MAX LENGTH (WORDS)              FTNRES      1075     A     
 FTNRES             ENTRY  L.SVSTM                                                         FTNRES      1076          I
          -FEAT126C 
 FTNRES    L.SVSTM  =      20D*L.MAXLL LENGTH OF SAVED STMT LISTING BUFFER                 FTNRES      1077          I
          -FEAT126C 
 FTNRES             EJECT                                                                  FTNRES      1078     A     
 FTNRES   **        NAMES OF THE OVERLAYS LOADED BY FTN.                                   FTNRES      1079     A     
 FTNRES                                                                                    FTNRES      1080     A     
 FTNRES    OVLA     ENTRY. 0L"FTNOVL"  NAME OF FTN (LIBRARY OR FILE)                       FTNRES      1081     A     
 FTNRES             ENTRY  OVLB                                                            FTNRES      1082     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 497    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES    OVLB     VFD    6/**,6/**,12/2140B,18/**,18/**    LOAD REQUEST WORD             FTNRES      1083     A     
 FTNRES    OVL10    ENTRY. 5LFTN10     TS MODE OVERLAY                                     FTNRES      1084     A     
 FTNRES    OVL20    ENTRY. 5LFTN20     OPTIMIZATION MODE PRIMARY OVERLAY                   FTNRES      1085     A     
 FTNRES    OVL21    ENTRY. 5LFTN21     OPTIMIZATION MODE PASS 1                            FTNRES      1086     A     
 FTNRES    OVL22    ENTRY. 5LFTN22     OPTIMIZATION MODE PASS 2                            FTNRES      1087          I
          -FCC0824
 FTNRES    #OVL     IFEQ   .OVL,0                                                          FCC0824        4     A     
 FTNRES    OVL22    ENTRY. 5LFTN25     FAX,REFMAP AND OPTIMIZATION PASS 2                  FCC0824        5     A     
 FTNRES    #OVL     ELSE                                                                   FCC0824        6     A     
 FTNRES    OVL22    ENTRY. 5LFTN22     OPTIMIZATION MODE PASS 2                            FCC0824        7     A     
 FTNRES    #OVL     ENDIF                                                                  FCC0824        8     A     
 FTNRES    OVL23    ENTRY. 5LFTN23     OPTIMIZATION MODE ERROR MESSAGES                    FTNRES      1088     A     
 FTNRES    OVL24    ENTRY. 5LFTN24     DEBUG MODE PRIMARY OVERLAY                          FTNRES      1089     A     
 FTNRES    OVL25    ENTRY. 5LFTN25     FAX AND REFMAP OVERLAY                              FTNRES      1090     A     
 FTNRES                                                                                    FTNRES      1091     A     
 FTNRES    CMPSLDR  VFD    12/0100B,9/014B,3/0,18/**,18/CP.ORG                             FTNRES      1092     A     
 FTNRES    CMPSOVL  DATA   0L"CP.NAME"       NAME OF *COMPASS* (1,0) OVERLAY               FTNRES      1093     A     
 FTNRES                                                                                    FTNRES      1094     A     
 FTNRES                                                                                    FTNRES      1095     A     
 FTNRES                                                                                    FTNRES      1096     A     
 FTNRES   **        DEFINE MAIN TITLE LINE.                                                FTNRES      1097     A     
 FTNRES   *                                                                                FTNRES      1098     A     
 FTNRES    .T       IFNE   TEST,0                                                          FTNRES      1099     A     
 FTNRES    MODLVL   MICRO  1,, "MODLVL"                                                    FTNRES      1100     A     
 FTNRES    MODLVL   MICRO  1,9,$"MODLVL"*T*      $                                         FTNRES      1101     A     
 FTNRES    .T       ENDIF                                                                  FTNRES      1102     A     
 FTNRES    TARGET   MICRO  1,4,$"MODEL"    $                                               FTNRES      1103     A     
 FTNRES                                                                                    FTNRES      1104     A     
 FTNRES             ENTRY  O.TITL                                                          FTNRES      1105     A     
 FTNRES    O.TITL   BSS    0                                                               FTNRES      1106     A     
 FTNRES                                                                                    FTNRES      1107     A     
 FTNRES             LIST   A                                                               FTNRES      1108     A     
 FTNRES    TL.JECT  ENTRY. 10H1                            PRINTER SPACE CODE              FTNRES      1109     A     
 FTNRES    TL.PTYP  ENTRY. 10H                             PROGRAM UNIT TYPE               FTNRES      1110     A     
 FTNRES    TL.PNAM  ENTRY. 10H                             PROGRAM UNIT NAME               FTNRES      1111     A     
 FTNRES    TL.CPU   DATA   10H  70/"TARGET"                PROCESSING CPUS                 FTNRES      1112     A     
 FTNRES    TL.CCOP  ENTRY. 10H                             CONTROL CARD OPTIONS            FTNRES      1113     A     
 FTNRES             DATA   10H                                                             FTNRES      1114     A     
 FTNRES             DATA   10H                                                             FTNRES      1115     A     
 FTNRES             DATA   10H  FTN "VER"+                 PROCESSOR NAME                  FTNRES      1116          I
          -FEAT126A 
 FTNRES    O.TTLA   ENTRY. (10H  FTN "VER"+)                PROCESSOR NAME                 FEAT126A      23     A     
 FTNRES             DATA   10H"MODLVL"                     PROCESSOR MOD LEVEL             FTNRES      1117     A     
 FTNRES    TL.DATE  ENTRY. 10H MM/DD/YY                    DATE                            FTNRES      1118     A     
 FTNRES    TL.TIME  ENTRY. 10H HH.MM.SS                    TIME OF DAY                     FTNRES      1119     A     
 FTNRES             DATA    4APAGE                                                         FTNRES      1120     A     
 FTNRES    TL.PAGE  ENTRY.  6C NNNNN                       PAGE NUMBER                     FTNRES      1121          I
          -FEAT126A 
 FTNRES    TL.PAGE  ENTRY. 0                               PAGE NUMBER                     FEAT126A      24     A     
 FTNRES             LIST   *                                                               FTNRES      1122     A     
 FTNRES                                                                                    FTNRES      1123     A     
 FTNRES             ENTRY  L.TITL                                                          FTNRES      1124     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 498    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES    L.TITL   =      *-O.TITL                                                        FTNRES      1125     A     
 FTNRES    L.TTLA   EQENT  *-O.TTLA-1  1ST TITLE LENGTH IN PW MODE                         FEAT126A      25     A     
 FTNRES    L.TTLB   EQENT  O.TTLA-TL.PTYP-1  2ND TITLE LENGTH IN PW MODE                   FEAT126A      26     A     
 FTNRES                                                                                    FCC2125       19     A     
 FTNRES   **        SET ENTRY POINT ADDRESS FOR OVERLAY DIRECTIVE PARAMETER                FCC2125       20     A     
 FTNRES   #RM       IFEQ   CP#RM,7                                                         FCC2125       21     A     
 FTNRES             LOC    777B                                                            FCC2125       22     A     
 FTNRES   #RM       ELSE                                                                   FCC2125       23     A     
 FTNRES             LOC    2777B                                                           FCC2125       24     A     
 FTNRES   #RM       ENDIF                                                                  FCC2125       25     A     
 FTNRES    LDPT     BSS    0                                                               FCC2125       26     A     
 FTNRES             LOC    *O                                                              FCC2125       27     A     
 FTNRES                                                                                    FTNRES      1126          I
          -FEAT155H 
 FTNRES   **        DEFINE SUBTITLE LINE.                                                  FTNRES      1127          I
          -FEAT155H 
 FTNRES   *                                                                                FTNRES      1128          I
          -FEAT155H 
 FTNRES    SUBHDR   ENTRY. 10H                                                             FTNRES      1129          I
          -FEAT126A -FEAT155H 
 FTNRES    O.STITL  ENTRY. 10H                                                             FEAT126A      27          I
          -FEAT155H 
 FTNRES             DIS    3,                                                              FTNRES      1130          I
          -FEAT155H 
 FTNRES    HDRSUB   ENTRY. 10H                                                             FTNRES      1131          I
          -FEAT126A -FEAT155H 
 FTNRES             DIS    3,                                                              FTNRES      1132          I
          -FEAT126A -FEAT155H 
 FTNRES             ENTRY  HDRSUBL                                                         FTNRES      1133          I
          -FEAT126A -FEAT155H 
 FTNRES    HDRSUBL  EQU    *-HDRSUB                                                        FTNRES      1134          I
          -FEAT126A -FEAT155H 
 FTNRES    HDRCC    ENTRY. 10H                                                             FTNRES      1135          I
          -FEAT126A -FEAT155H 
 FTNRES             DIS    3,                                                              FTNRES      1136          I
          -FEAT126A -FEAT155H 
 FTNRES             DATA   2L                                                              FTNRES      1137          I
          -FEAT126A -FEAT155H 
 FTNRES             ENTRY  SUBHDRL                                                         FTNRES      1138          I
          -FEAT126A -FEAT155H 
 FTNRES    SUBHDRL  EQU    *-SUBHDR                                                        FTNRES      1139          I
          -FEAT126A -FEAT155H 
 FTNRES    O.STITL  EQENT  SUBHDR      EQUATE 2-PASS NAME TO TS-MODE NAME                  FTNRES      1140          I
          -FEAT126A -FEAT155H 
 FTNRES    STL.MAP  ENTRY. 10H                             START OF MAP HEADER             FEAT126A      28          I
          -FEAT155H 
 FTNRES             DIS    7,                                                              FEAT126A      29          I
          -FEAT155H 
 FTNRES             DATA   2L                                                              FEAT126A      30          I
          -FEAT155H 
 FTNRES    L.STTL   EQENT  *-O.STITL                                                       FEAT126A      31          I
          -FEAT155H 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 499    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES             TITLE  LOAD OVERLAYS                                                   FTNRES      1141     A     
 FTNRES   ***       LOAD OVERLAYS.                                                         FTNRES      1142     A     
 FTNRES   *                                                                                FTNRES      1143     A     
 FTNRES                                                                                    FTNRES      1144     A     
 FTNRES                                                                                    FTNRES      1145     A     
 FTNRES   **        FORM 2-WORD LOADER REQUEST FOR LOADING *COMPASS* ASSEMBLER             FTNRES      1146     A     
 FTNRES   *         (1,0) OVERLAY.                                                         FTNRES      1147     A     
 FTNRES   *                                                                                FTNRES      1148     A     
 FTNRES             ENTRY  LDCOM                                                           FTNRES      1149     A     
 FTNRES    LDCOM    SA5    LCM.FL                                                          FTNRES      1150     A     
 FTNRES             MX7    0                                                               FTNRES      1151     A     
 FTNRES             BX6    X5                                                              FTNRES      1152     A     
 FTNRES             SA6    CP.NFLL     CP.NFLL = CP.AFLL , SO WE KEEP OUR LCM              FTNRES      1153     A     
 FTNRES             SA7    GT1                                                             FTNRES      1154     A     
 FTNRES    #OS      IFEQ   .OS,0                                                           FTNRES      1155          I
          -FEAT126A 
 FTNRES    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A      32     A     
 FTNRES             SYSTEM RPV,RCL,GT1 CANCEL REPRIEVE REQUEST                             FTNRES      1156     A     
 FTNRES    #OS      ELSE                                                                   FTNRES      1157     A     
 FTNRES             REPRIEVE  GT1      CANCEL REPRIEVE REQUEST                             FTNRES      1158     A     
 FTNRES    #OS      ENDIF                                                                  FTNRES      1159     A     
 FTNRES             SA5    CP.NFLS     LWA SPACE AVAILABLE FOR LOADING                     FTNRES      1160     A     
 FTNRES             SA4    CMPSOVL     NAME OF *COMPASS* (1,0) OVERLAY                     FTNRES      1161     A     
 FTNRES             SA1    CMPSLDR     OVERLAY LEVEL, LDR FLAGS, FWA LOAD                  FTNRES      1162     A     
 FTNRES             LX5    18                                                              FTNRES      1163     A     
 FTNRES             BX6    X4                                                              FTNRES      1164     A     
 FTNRES             IX7    X1+X5                                                           FTNRES      1165     A     
 FTNRES                                                                                    FTNRES      1166     A     
 FTNRES                                                                                    FTNRES      1167     A     
 FTNRES                                                                                    FTNRES      1168     A     
 FTNRES   **        REQUEST OVERLAY LOAD.                                                  FTNRES      1169     A     
 FTNRES   *                                                                                FTNRES      1170     A     
 FTNRES   *         ENTRY  (X4) = LIBRARY OR FILE NAME, -L- FORMAT                         FTNRES      1171     A     
 FTNRES   *                (X6) = OVERLAY NAME, -L- FORMAT                                 FTNRES      1172     A     
 FTNRES   *                (X7) = LOADER REQUEST WORD 1, FORMAT --                         FTNRES      1173     A     
 FTNRES   *                       12/OVERLAY LEVEL (0P0S),                                 FTNRES      1174     A     
 FTNRES   *                        9/LOADER REQUEST FLAGS,                                 FTNRES      1175     A     
 FTNRES   *                        3/0,                                                    FTNRES      1176     A     
 FTNRES   *                       18/LWA SPACE AVAILABLE TO LOADER,                        FTNRES      1177     A     
 FTNRES   *                       18/FWA LOAD                                              FTNRES      1178     A     
 FTNRES   *                                                                                FTNRES      1179     A     
 FTNRES             ENTRY  LOVER                                                           FTNRES      1180     A     
 FTNRES    LOVER    SA7    RA.ORG      SAVE LDR REQUEST WORD 1 FOR DEBUGGING               FTNRES      1181          I
          -FEAT155F 
 FTNRES    LOVER    BSS    0                                                               FEAT155F     101     A     
 FTNRES                                                                                    FEAT155F     102     A     
 FTNRES             IFNE   TEST,0,1                                                        FEAT155F     103     A     
 FTNRES             SA6    LOVOVR      SAVE (X6) = OVERLAY NAME (0L FMT)                   FEAT155F     104     A     
 FTNRES                                                                                    FEAT155F     105     A     
 FTNRES             SA7    RA.ORG      SAVE (X7) = LDR REQUEST WORD 1                      FEAT155F     106     A     
 FTNRES             SA6    LOVERM+1    OVERLAY NAME TO ERROR MESSAGE TEXT                  FTNRES      1182     A     
 FTNRES             IFNE   TEST,0,2                                                        FCCT002        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 500    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES             IFLE   CT.CPU,74,1                                                     FCCT002        6     A     
 FTNRES             SA6    IBAX        SAVE OVERLAY NAME FOR INDEX BUFFER SEARCH           FCCT002        7     A     
 FTNRES             SB1    1                                                               FTNRES      1183     A     
 FTNRES             SA7    LDRP+1      OVL LVL, FLAGS, ADDR TO LDR REQUEST WORD 1          FTNRES      1184     A     
 FTNRES                                                                                    FTNRES      1185     A     
 FTNRES   *         PROCESS 2-WORD LOADER CALL.                                            FTNRES      1186     A     
 FTNRES                                                                                    FTNRES      1187     A     
 FTNRES    .LDR     IFEQ   LDRCALL,2                                                       FTNRES      1188     A     
 FTNRES    .T       IFNE   TEST,0                                                          FTNRES      1189     A     
 FTNRES             BX6    X4          SUBSTITUTE FILE NAME FOR OVERLAY NAME               FTNRES      1190     A     
 FTNRES    .T       ENDIF                                                                  FTNRES      1191     A     
 FTNRES             SA6    A7-B1       OVERLAY OR FILE NAME TO LDR REQUEST WORD 0          FTNRES      1192     A     
 FTNRES    .LDR     ENDIF                                                                  FTNRES      1193     A     
 FTNRES                                                                                    FTNRES      1194     A     
 FTNRES   *         PROCESS 3-WORD LOADER CALL.                                            FTNRES      1195     A     
 FTNRES                                                                                    FTNRES      1196     A     
 FTNRES    .LDR     IFEQ   LDRCALL,3                                                       FTNRES      1197     A     
 FTNRES             SA6    A7+B1       OVERLAY NAME TO LDR REQUEST WORD 2                  FTNRES      1198     A     
 FTNRES             BX7    X4                                                              FTNRES      1199     A     
 FTNRES             SA7    A7-B1       LIBRARY OR FILE NAME TO LDR REQUEST WORD 0          FTNRES      1200     A     
 FTNRES    .LDR     ENDIF                                                                  FTNRES      1201     A     
 FTNRES                                                                                    FTNRES      1202     A     
 FTNRES             BX6    X6-X6                                                           FTNRES      1203     A     
 FTNRES             SA6    RA.LDR      CLEAR LOADER COMMUNICATIONS CELL                    FTNRES      1204     A     
 FTNRES                                                                                    FTNRES      1205     A     
 FTNRES    .T       IFNE   TEST,0                                                          FTNRES      1206     A     
 FTNRES    #OS      IFEQ   .OS,0                                                           FTNRES      1207          I
          -FEAT126A 
 FTNRES    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A      33     A     
 FTNRES             CALL   OFFSPY      TURN -SPY- OFF                                      FTNRES      1208     A     
 FTNRES                                                                                    FCCT002        8     A     
 FTNRES   *         SEARCH INDEX BUFFER FOR OVERLAY NAME AND SEE IF *LINK* HAS             FCCT002        9     A     
 FTNRES   *         FILLED IN THE DISK ADDRESS"S OF THE OVERLAYS DURING LOADING.           FCCT002       10     A     
 FTNRES                                                                                    FCCT002       11     A     
 FTNRES             SA1    IBA=+1                                                          FCCT002       12     A     
 FTNRES             SA3    IBAX                                                            FCCT002       13     A     
 FTNRES             SB2    2                                                               FCCT002       14     A     
 FTNRES                                                                                    FCCT002       15     A     
 FTNRES    LOV1     BX2    X3-X1                                                           FCCT002       16     A     
 FTNRES             SA1    A1+B2                                                           FCCT002       17     A     
 FTNRES             NZ     X2,LOV1                                                         FCCT002       18     A     
 FTNRES                                                                                    FCCT002       19     A     
 FTNRES             SA5    A1-B1                                                           FCCT002       20     A     
 FTNRES             ZR     X5,LOV2     IF NOT FOUND IN INDEX BUFFER                        FCCT002       21     A     
 FTNRES                                                                                    FCCT002       22     A     
 FTNRES   *         (X5) = 18/LWA+1,18/FWA OF LOAD,24/DISK ADDRSSS OF OVERLAY              FCCT002       23     A     
 FTNRES   *         SETUP A *FET* AND READ THE OVERLAY IN                                  FCCT002       24     A     
 FTNRES                                                                                    FCCT002       25     A     
 FTNRES             MX0    -24                                                             FCCT002       26     A     
 FTNRES             SA3    OVLA        LFN                                                 FCCT002       27     A     
 FTNRES             SX7    12B         READ REQUEST                                        FCCT002       28     A     
 FTNRES             BX6    -X0*X5                                                          FCCT002       29     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 501    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES             SA6    LFET+6      DISK ADDRESS                                        FCCT002       30     A     
 FTNRES             AX5    24                                                              FCCT002       31     A     
 FTNRES             SA4    LFET-1                                                          FCCT002       32     A     
 FTNRES             BX6    X3+X7                                                           FCCT002       33     A     
 FTNRES             SB6    X5          (B6) = FWA OF LOAD                                  FCCT002       34     A     
 FTNRES             SA6    A4+B1       LFN + CODE                                          FCCT002       35     A     
 FTNRES             SX3    X5                                                              FCCT002       36     A     
 FTNRES             BX7    X3+X4                                                           FCCT002       37     A     
 FTNRES             SA7    A6+B1       FIRST = FWA                                         FCCT002       38     A     
 FTNRES             AX5    18                                                              FCCT002       39     A     
 FTNRES             SX5    X5+100B                                                         FCCT002       40     A     
 FTNRES             SX7    X5+B1                                                           FCCT002       41     A     
 FTNRES             SA7    A7+B1       IN = OUT = LWA+1                                    FCCT002       42     A     
 FTNRES             SA7    A7+B1                                                           FCCT002       43     A     
 FTNRES             MX0    42                                                              FCCT002       44     A     
 FTNRES             SA4    A7+B1                                                           FCCT002       45     A     
 FTNRES             BX4    X0*X4       PRESERVE FNT ADDRESS                                FCCT002       46     A     
 FTNRES             SX7    X7+17B      LIMIT = LWA+2 + 77TBL LEN                           FCCT002       47     A     
 FTNRES             BX6    X4+X7                                                           FCCT002       48     A     
 FTNRES             SA6    A4                                                              FCCT002       49     A     
 FTNRES             MX7    0                                                               FCCT002       50     A     
 FTNRES             SA7    B6          CONT(FWA) = 0 IN CASE WE DONT GET ANYTHING          FCCT002       51     A     
 FTNRES             SYSTEM CIO,R,LFET  ISSUE A READ REQUEST                                FCCT002       52     A     
 FTNRES             SA2    LFET                                                            FCCT002       53     A     
 FTNRES             SA3    B6                                                              FCCT002       54     A     
 FTNRES             LX2    59-4                                                            FCCT002       55     A     
 FTNRES             PL     X2,LOV6     IF NOT EOR/EOF                                      FCCT002       56     A     
 FTNRES             SB7    X3          (B7) = XFER ADDRESS                                 FCCT002       57     A     
 FTNRES             AX3    48                                                              FCCT002       58     A     
 FTNRES             SX4    X3-775000B                                                      FCCT002       59     A     
 FTNRES             ZR     X4,LOV2A    IF A 50 TABLE                                       FCCT002       60     A     
 FTNRES             SX4    X3-775400B                                                      FCCT002       61     A     
 FTNRES             NZ     X4,LOV6     IF NOT A 54 TABLE                                   FCCT002       62     A     
 FTNRES             SA5    A3+4                                                            FCCT002       63     A     
 FTNRES             SB7    X5          (B7) = TRANSFER ADDRESS                             FCCT002       64     A     
 FTNRES             EQ     LOV2A                                                           FCCT002       65     A     
 FTNRES                                                                                    FCCT002       66     A     
 FTNRES             ENTRY  IBA=                                                            FCCT002       67     A     
 FTNRES    IBA=     VFD    42/,18/IBAX-*                                                   FCCT002       68     A     
 FTNRES             DATA   5LFTN10,0                                                       FCCT002       69     A     
 FTNRES             ECHO   1,X=(0,1,2,3,4,5)                                               FCCT002       70     A     
 FTNRES             DATA   5L_FTN2_X,0                                                     FCCT002       71     A     
 FTNRES    IBAX     BSSZ   2           SEARCH TERMINATOR                                   FCCT002       72     A     
 FTNRES                                                                                    FCCT002       73     A     
 FTNRES             VFD    13/1,29/3,18/0                                                  FCCT002       74     A     
 FTNRES    LFET     DATA   3LFTN                                                           FCCT002       75     A     
 FTNRES             BSSZ   7           REST OF THE FET                                     FCCT002       76     A     
 FTNRES                                                                                    FCCT002       77     A     
 FTNRES    LOV2     BSS    0                                                               FCCT002       78     A     
 FTNRES    #OS      ENDIF                                                                  FTNRES      1209     A     
 FTNRES    .T       ENDIF                                                                  FTNRES      1210     A     
 FTNRES                                                                                    FTNRES      1211     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 502    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES             LOADREQ  LDRP,RCL  REQUEST OVERLAY LOAD                                FTNRES      1212     A     
 FTNRES             SA2    LDRP+1      LOADER REPLY WORD                                   FTNRES      1213     A     
 FTNRES             SB7    X2          (B7) = ENTRY POINT ADDRESS IN NEW OVERLAY           FTNRES      1214     A     
 FTNRES             LX2    59-36       LOADER ERROR STATUS BIT TO B59                      FTNRES      1215     A     
 FTNRES             MI     X2,LOV6     IF LOADER COULD NOT LOAD OVERLAY                    FTNRES      1216     A     
 FTNRES                                                                                    FTNRES      1217     A     
 FTNRES                                                                                    FTNRES      1218     A     
 FTNRES    LOV2A    BSS    0                                                               FCCT002       79     A     
 FTNRES                                                                                    FTNRES      1219     A     
 FTNRES    .T       IFNE   TEST,0                                                          FTNRES      1220     A     
 FTNRES    #OS      IFEQ   .OS,0                                                           FTNRES      1221          I
          -FEAT126A 
 FTNRES    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A      34     A     
 FTNRES                                                                                    FTNRES      1222     A     
 FTNRES   **        PAUSE BEFORE TRANSFERRING TO OVERLAY IF *SNAP=(OVL NR)* SET.           FTNRES      1223     A     
 FTNRES   *         USEFUL FOR CONSOLE DEBUGGING.  ASSEMBLED ONLY IN TEST MODE.            FTNRES      1224     A     
 FTNRES   *                                                                                FTNRES      1225     A     
 FTNRES             SA1    RA.ORG      (X1) = SAVED OVERLAY CONTROL FLAGS, ETC.            FTNRES      1226     A     
 FTNRES             SA2    CO.SNAP                                                         FTNRES      1227     A     
 FTNRES             MX6    -3                                                              FTNRES      1228     A     
 FTNRES             LX1    -39-9                                                           FTNRES      1229     A     
 FTNRES             SA3    RA.SSW                                                          FTNRES      1230     A     
 FTNRES             BX7    -X6*X1      (X7) = SECONDARY OVERLAY NUMBER                     FTNRES      1231     A     
 FTNRES             SB2    X7+1R0                                                          FTNRES      1232     A     
 FTNRES             LX2    B2                                                              FTNRES      1233     A     
 FTNRES             PL     X2,LOV4     IF THIS OVERLAY NUMBER NOT CHOSEN                   FTNRES      1234     A     
 FTNRES             SX6    1S12                                                            FTNRES      1235     A     
 FTNRES             BX7    X3+X6                                                           FTNRES      1236     A     
 FTNRES             SA7    A3          PAUSE BIT ON - TO WAIT FOR BREAKPOINT SET           FTNRES      1237     A     
 FTNRES    LOV3     RECALL                                                                 FTNRES      1238     A     
 FTNRES             SA1    RA.SSW                                                          FTNRES      1239     A     
 FTNRES             NO                                                                     FTNRES      1240     A     
 FTNRES             LX1    59-12                                                           FTNRES      1241     A     
 FTNRES             MI     X1,LOV3     IF PAUSE BIT ON, LOOP ON RECALL                     FTNRES      1242     A     
 FTNRES                                                                                    FTNRES      1243     A     
 FTNRES                                                                                    FTNRES      1244     A     
 FTNRES                                                                                    FTNRES      1245     A     
 FTNRES   **        CALL P-MONITOR PPU PROGRAM *SPY*.                                      FTNRES      1246     A     
 FTNRES   *                                                                                FTNRES      1247     A     
 FTNRES    LOV4     SA1    SPYW                                                            FTNRES      1248     A     
 FTNRES             SA2    RA.ORG      (X2) = SAVED OVERLAY CONTROL FLAGS, ETC.            FTNRES      1249     A     
 FTNRES             ZR     X1,LOV5     IF *SPY* OPTION NOT SELECTED                        FTNRES      1250     A     
 FTNRES             AX2    48-0        (X2) = OVERLAY LEVEL                                FTNRES      1251     A     
 FTNRES             BX6    X1                                                              FTNRES      1252     A     
 FTNRES             ZR     X2,LOV5     IF (0,0) OVERLAY                                    FTNRES      1253     A     
 FTNRES             SX7    X2-0200B                                                        FTNRES      1254     A     
 FTNRES             ZR     X7,LOV5     IF (2,0) OVERLAY                                    FTNRES      1255     A     
 FTNRES             SA1    SPYO                                                            FTNRES      1256     A     
 FTNRES             MI     X7,LOV4A    IF (1,X) OVERLAY                                    FTNRES      1257     A     
 FTNRES             SX7    X7+1L2-1L1                                                      FTNRES      1258     A     
 FTNRES             LX7    18                                                              FTNRES      1259     A     
 FTNRES             IX1    X7+X1       7LOVL020S                                           FTNRES      1260     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 503    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES    LOV4A    BX7    X1                                                              FTNRES      1261     A     
 FTNRES             SA6    A1-B1       LIMITS TO SPY PARAM LIST                            FTNRES      1262     A     
 FTNRES             SA7    A6-B1       OVERLAY LEVEL TO LIST (SPYP)                        FTNRES      1263     A     
 FTNRES             SYSTEM SPY,RCL,A6                                                      FTNRES      1264     A     
 FTNRES    LOV5     BSS    0                                                               FTNRES      1265          I
          -FEAT155F 
 FTNRES                                                                                    FEAT155F     107     A     
 FTNRES   *         HERE TO CHECK FOR CALL TO *IDP* VIA *BREAK=PS* CC OPTION.              FEAT155F     108     A     
 FTNRES                                                                                    FEAT155F     109     A     
 FTNRES    LOV5     SA3    LOVOVR      (X3) = NAME OF OVERLAY TO BE LOADED(0L FMT)         FEAT155F     110     A     
 FTNRES             SA4    CMPSOVL     (X4) = NAME OF COMPASS OVERLAY (0L FMT)             FEAT155F     111     A     
 FTNRES             SA1    CO.BRK                                                          FEAT155F     112     A     
 FTNRES             SA2    RA.ORG                                                          FEAT155F     113     A     
 FTNRES             BX6    X3-X4                                                           FEAT155F     114     A     
 FTNRES             AX2    48-0                                                            FEAT155F     115     A     
 FTNRES             SX4    2R00                                                            FEAT155F     116     A     
 FTNRES             ZR     X6,LOV5B    IF LOADING COMPASS, IDP NOT POSSIBLE...             FEAT155F     117     A     
 FTNRES   *                              AVOID *COMPASS(1,0) LOOKS LIKE FTN(1,0)*          FEAT155F     118     A     
 FTNRES             MX3    1                                                               FEAT155F     119     A     
 FTNRES                                                                                    FEAT155F     120     A     
 FTNRES    LOV5A    MX0    -2*CHAR                                                         FEAT155F     121     A     
 FTNRES             LX1    2*CHAR                                                          FEAT155F     122     A     
 FTNRES             BX6    -X0*X1                                                          FEAT155F     123     A     
 FTNRES             LX3    2*CHAR                                                          FEAT155F     124     A     
 FTNRES             ZR     X6,LOV5B    IF END OF OVR LIST OR (BREAK=PS) NOT SELECT         FEAT155F     125     A     
 FTNRES             MI     X3,LOV5B    IF FINISHED CHECKING ENTIRE WORD                    FEAT155F     126     A     
 FTNRES             IX7    X6-X4       (X7) = OVERLAY NRS IN (0P0S) FORM                   FEAT155F     127     A     
 FTNRES             BX6    X7-X2                                                           FEAT155F     128     A     
 FTNRES             NZ     X6,LOV5A    IF NOT CALLING *IDP* FOR THIS OVERLAY               FEAT155F     129     A     
 FTNRES             SB7    B7-1        SET TO *CALL IDP BEFORE NORMAL OVERLAY XEQ*         FEAT155F     130     A     
 FTNRES                                                                                    FEAT155F     131     A     
 FTNRES    LOV5B    BSS    0                                                               FEAT155F     132     A     
 FTNRES                                                                                    FTNRES      1266     A     
 FTNRES    #OS      ENDIF                                                                  FTNRES      1267     A     
 FTNRES    .T       ENDIF                                                                  FTNRES      1268     A     
 FTNRES                                                                                    FTNRES      1269     A     
 FTNRES                                                                                    FTNRES      1270     A     
 FTNRES                                                                                    FTNRES      1271     A     
 FTNRES   **        TRANSFER CONTROL TO NEWLY-LOADED OVERLAY.                              FTNRES      1272     A     
 FTNRES   *                                                                                FTNRES      1273     A     
 FTNRES             JP     B7          TO NEW OVERLAY                                      FTNRES      1274     A     
 FTNRES                                                                                    FTNRES      1275     A     
 FTNRES                                                                                    FTNRES      1276     A     
 FTNRES                                                                                    FTNRES      1277     A     
 FTNRES   **        PROCESS ERROR IN LOADING OVERLAY.                                      FTNRES      1278     A     
 FTNRES   *                                                                                FTNRES      1279     A     
 FTNRES    LOV6     MESSAGE   LOVERM                                                       FTNRES      1280          I
          -F7540FT
 FTNRES    LOV6     MESSAGE  LOVERM,,RCL                                                   F7540FT       28     A     
 FTNRES                                                                                    FTNRES      1281          I
          -FEAT155H 
 FTNRES    .T       IFEQ   TEST,0                                                          FTNRES      1282          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 504    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
          -FEAT155H 
 FTNRES             EQ     END2        ABORT, NO DUMP                                      FTNRES      1283          I
          -FEAT155H 
 FTNRES    .T       ELSE                                                                   FTNRES      1284          I
          -FEAT155H 
 FTNRES             EQ     END3        ABORT, DUMP                                         FTNRES      1285          I
          -FEAT155H 
 FTNRES    .T       ENDIF                                                                  FTNRES      1286          I
          -FEAT155H 
 FTNRES             EQ     END2        ABORT                                               FEAT155H      10     A     
 FTNRES                                                                                    FTNRES      1287     A     
 FTNRES                                                                                    FTNRES      1288     A     
 FTNRES    LOVERM   DIS    ,/CANT LOAD ....    /                                           FTNRES      1289     A     
 FTNRES                                                                                    FTNRES      1290     A     
 FTNRES                                                                                    FTNRES      1291     A     
 FTNRES                                                                                    FTNRES      1292     A     
 FTNRES             IFNE   TEST,0,1                                                        FEAT155F     133     A     
 FTNRES    LOVOVR   BSSZ   1           SAVED NAME OF OVERLAY TO BE LOADED (0L FMT)         FEAT155F     134     A     
 FTNRES    STOP     SPACE  4,8                                                             FEAT155F     135     A     
 FTNRES   **        *COMPASS* ASSEMBLER RETURN POINT.                                      FTNRES      1293     A     
 FTNRES   *                                                                                FTNRES      1294     A     
 FTNRES    STOP     SA1    CP.CARD                                                         FTNRES      1295          I
          -FCCA519
 FTNRES             SB1    1                                                               FTNRES      1296          I
          -FCCA519
 FTNRES             NZ     X1,LDPRI    IF MORE TO COMPILE                                  FTNRES      1297          I
          -FCCA519
 FTNRES             PL     X1,ENDFTN   IF END OF SOURCE INPUT                              FTNRES      1298          I
          -FCCA519
 FTNRES    STOP     MX6    1                                                               FCCA519        5     A     
 FTNRES             SB1    1                                                               FCCA519        6     A     
 FTNRES             SA6    COMRET      INDICATE COMPASS CALLED                             FCCA519        7     A     
 FTNRES                                                                                    FTNRES      1299     A     
 FTNRES                                                                                    FTNRES      1300     A     
 FTNRES                                                                                    FTNRES      1301     A     
 FTNRES   **        LOAD *FTN* PRIMARY OVERLAY.                                            FTNRES      1302     A     
 FTNRES   *                                                                                FTNRES      1303     A     
 FTNRES    LDPRI    SA1    TSFLAG                                                          FTNRES      1304          I
          -FCC0971
 FTNRES    LDPRI    SA1    CO.TS                                                           FCC0971       11     A     
 FTNRES             ZR     X1,LD20                                                         FTNRES      1305     A     
 FTNRES             LOVER  OVL10       TS MODE                                             FTNRES      1306     A     
 FTNRES                                                                                    FTNRES      1307     A     
 FTNRES    LD20     LOVER  OVL20       OPTIMIZATION MODE                                   FTNRES      1308     A     
 FTNRES             TITLE  TERMINATE COMPILATION                                           FTNRES      1309     A     
 FTNRES   ***       TERMINATE COMPILATION.                                                 FTNRES      1310     A     
 FTNRES   *                                                                                FTNRES      1311     A     
 FTNRES                                                                                    FTNRES      1312     A     
 FTNRES                                                                                    FTNRES      1313     A     
 FTNRES             ENTRY  ENDFTN                                                          FTNRES      1314     A     
 FTNRES    ENDFTN   BSS    0                                                               FTNRES      1315     A     
 FTNRES                                                                                    FTNRES      1316     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 505    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES                                                                                    FTNRES      1317     A     
 FTNRES                                                                                    FTNRES      1318     A     
 FTNRES   **        SEND COMPILATION TIME TO DAYFILE.                                      FTNRES      1319     A     
 FTNRES   *                                                                                FTNRES      1320     A     
 FTNRES    .TIM     IFNE   CTIMO,0                                                         FTNRES      1321     A     
 FTNRES             SA2    TIME0       START OF COMPILATION TIME                           FTNRES      1322     A     
 FTNRES             CALL   CPTIM                                                           FTNRES      1323     A     
 FTNRES             SA6    CPTMSG      TIME TO DAYFILE MESSAGE TEXT                        FTNRES      1324     A     
 FTNRES             MESSAGE   CPTMSG,,RECALL                                               FTNRES      1325     A     
 FTNRES    .TIM     ENDIF                                                                  FTNRES      1326     A     
 FTNRES                                                                                    FTNRES      1327          I
          -FCC0864
 FTNRES                                                                                    FTNRES      1328          I
          -FCC0864
 FTNRES                                                                                    FTNRES      1329          I
          -FCC0864  -FEAT155H 
 FTNRES   **        RESET FIELD LENGTH TO INITIAL VALUE.                                   FTNRES      1330          I
          -FCC0864  -FEAT155H 
 FTNRES   *                                                                                FTNRES      1331          I
          -FCC0864  -FEAT155H 
 FTNRES             MEMORY SCM,FTIFL,RCL     RESTORE INITIAL CM/SCM FIELD LENGTH           FTNRES      1332          I
          -FCC0864  -FEAT155H 
 FTNRES                                                                                    FTNRES      1333          I
          -FEAT155H 
 FTNRES                                                                                    FTNRES      1334          I
          -FEAT155H 
 FTNRES                                                                                    FTNRES      1335     A     
 FTNRES   **        PROCESS ABNORMAL TERMINATION CONDITIONS.                               FTNRES      1336     A     
 FTNRES   *                                                                                FTNRES      1337     A     
 FTNRES             SA1    CP.ERRCT                                                        FTNRES      1338     A     
 FTNRES             SA2    CP.ABORT                                                        FTNRES      1339     A     
 FTNRES             MX3    1                                                               CP139FC       58     A     
 FTNRES             LX3    59-29                                                           CP139FC       59     A     
 FTNRES             BX2    X2*X3                                                           CP139FC       60     A     
 FTNRES             SA4    CER.FL                                                          FCC2104        8     A     
 FTNRES             NZ     X4,END1                                                         FCC2104        9     A     
 FTNRES             ZR     X1,END4     IF NO COMPILATION OR ASSEMBLY ERRORS                FTNRES      1340     A     
 FTNRES             MI     X1,END4     IF DEBUG (D) OPTION ON                              FTNRES      1341     A     
 FTNRES             ZR     X2,END4     IF ABORT (A) OPTION OFF                             FTNRES      1342          I
          -FCC2104
 FTNRES    END1     ZR     X2,END4     IF ABORT(A) OPTION OFF                              FCC2104       10     A     
 FTNRES                                                                                    FTNRES      1343     A     
 FTNRES    END2     ABORT  ,NODUMP     TO -EXIT(S)-  (WITHOUT DUMP)                        FTNRES      1344          I
          -FCC1741X 
 FTNRES    END2     ABORT  ,NODUMP,S   TO EXIT(S) WITH NO DUMP                             FCC1741X       5     A     
 FTNRES                                                                                    FTNRES      1345          I
          -FEAT155H 
 FTNRES    END3     ABORT              TO -EXIT-     (WITH DUMP)                           FTNRES      1346          I
          -FEAT155H 
 FTNRES                                                                                    FTNRES      1347     A     
 FTNRES                                                                                    FTNRES      1348     A     
 FTNRES                                                                                    FTNRES      1349     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 506    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES   **        PROCESS AUTO EXECUTE (G-OPTION) REQUEST.                               FTNRES      1350          I
          -FCC0864
 FTNRES   **        PROCESS AUTO EXECUTE (GO-OPTION) REQUEST.                              FCC0864        9     A     
 FTNRES   *                                                                                FTNRES      1351     A     
 FTNRES    END4     SA1    GOFLAG                                                          FTNRES      1352     A     
 FTNRES             ZR     X1,END5     IF G-OPTION OFF                                     FTNRES      1353          I
          -FCC0864
 FTNRES             ZR     X1,END5     IF GO-OPTION OFF                                    FCC0864       10     A     
 FTNRES             BX6    X1                                                              FTNRES      1354     A     
 FTNRES             SA6    RA.PGN      POST FILE/PROGRAM NAME FOR MSG AND LOADER           FTNRES      1355     A     
 FTNRES    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FCC0864       11     A     
 FTNRES             MEMORY SCM,LDRFL,RCL     RFL DOWN BEFORE CALLING LOADER                FCC0864       12     A     
 FTNRES    #OS      ENDIF                                                                  FCC0864       13     A     
 FTNRES             MX7    0                                                               FTNRES      1356     A     
 FTNRES             SA7    GT1         CLEAR REQUEST/REPLY CELL FOR *RPV*                  FTNRES      1357     A     
 FTNRES                                                                                    FTNRES      1358     A     
 FTNRES    #OS      IFEQ   .OS,0                                                           FTNRES      1359          I
          -FEAT126A 
 FTNRES    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A      35     A     
 FTNRES             SYSTEM RPV,RCL,GT1 CANCEL REPRIEVE REQUEST                             FTNRES      1360     A     
 FTNRES    #OS      ELSE                                                                   FTNRES      1361     A     
 FTNRES             REPRIEVE  GT1      CANCEL REPRIEVE REQUEST                             FTNRES      1362     A     
 FTNRES    #OS      ENDIF                                                                  FTNRES      1363     A     
 FTNRES                                                                                    FTNRES      1364     A     
 FTNRES             MESSAGE   RA.PGN,,RCL                                                  FTNRES      1365     A     
 FTNRES             LOADREQ   0                                                            FTNRES      1366     A     
 FTNRES   +         EQ     *           WAIT FOR OP SYS TO PICK UP REQUEST                  FTNRES      1367     A     
 FTNRES                                                                                    FTNRES      1368     A     
 FTNRES                                                                                    FTNRES      1369     A     
 FTNRES                                                                                    FTNRES      1370     A     
 FTNRES   **        TERMINATE COMPILATION NORMALLY.                                        FTNRES      1371     A     
 FTNRES   *                                                                                FTNRES      1372     A     
 FTNRES    END5     ENDRUN                                                                 FTNRES      1373     A     
 FTNRES   +         EQ     *           WAIT FOR OP SYS TO PICK UP REQUEST                  FTNRES      1374          I
          -FEAT155H 
 FTNRES             SPACE  4                                                               FTNRES      1375     A     
 FTNRES    #RM      IFEQ   CP#RM,0                                                         FTNRES      1376     A     
 FTNRES                                                                                    FTNRES      1377     A     
 FTNRES   *         TABLE OF SCRATCH FILES TO BE EVICTED AT END OF COMPILATION             FTNRES      1378     A     
 FTNRES   *         MODIFIED AT THE END OF INITIALIZATION WHEN ALL CONTROL                 FTNRES      1379     A     
 FTNRES   *         CARD OPTIONS ARE KNOWN                                                 FTNRES      1380     A     
 FTNRES                                                                                    FTNRES      1381     A     
 FTNRES             ENTRY  SCRTBL                                                          FTNRES      1382     A     
 FTNRES    SCRTBL   CON    F.RLST                                                          FTNRES      1383     A     
 FTNRES             CON    F.RMAP                                                          FTNRES      1384     A     
 FTNRES             CON    F.OPT                                                           FTNRES      1385     A     
 FTNRES             CON    F.CMPS                                                          FTNRES      1386     A     
 FTNRES             DATA   -1                TABLE TERMINATOR                              FTNRES      1387     A     
 FTNRES                                                                                    FTNRES      1388     A     
 FTNRES    #RM      ENDIF                                                                  FTNRES      1389     A     
 FTNRES             TITLE  RESIDENT SUBROUTINES                                            FTNRES      1390     A     
 FTNRES    OFFSPY   SPACE  4,8                                                             FTNRES      1391     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 507    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES    .T       IFNE   TEST,0                                                          FTNRES      1392     A     
 FTNRES    #OS      IFEQ   .OS,0                                                           FTNRES      1393          I
          -FEAT126A 
 FTNRES    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A      36     A     
 FTNRES                                                                                    FTNRES      1394     A     
 FTNRES   **        OFFSPY - TURN OFF P-MONITOR PPU PROGRAM *SPY*.                         FTNRES      1395     A     
 FTNRES   *                                                                                FTNRES      1396     A     
 FTNRES   *         ENTRY  NO REGISTER REQUIREMENTS.                                       FTNRES      1397     A     
 FTNRES   *                                                                                FTNRES      1398     A     
 FTNRES   *         EXIT   *SPY* IS TURNED OFF.                                            FTNRES      1399     A     
 FTNRES   *                                                                                FTNRES      1400     A     
 FTNRES   *         USES   X - 1, 2, 6                                                     FTNRES      1401     A     
 FTNRES   *                A - 1, 6                                                        FTNRES      1402     A     
 FTNRES   *                B - NONE                                                        FTNRES      1403     A     
 FTNRES   *                                                                                FTNRES      1404     A     
 FTNRES   *         CALLS  RECALL (WNB=)                                                   FTNRES      1405     A     
 FTNRES                                                                                    FTNRES      1406     A     
 FTNRES                                                                                    FTNRES      1407     A     
 FTNRES    OFFSPY   ENTRY. **          ** ENTRY/EXIT **                                    FTNRES      1408     A     
 FTNRES             SA1    SPYP+1                                                          FTNRES      1409     A     
 FTNRES             ZR     X1,OFFSPY   IF *SPY* NOT ON, EXIT                               FTNRES      1410     A     
 FTNRES             MX6    1                                                               FTNRES      1411     A     
 FTNRES             SA6    A1          TELL *SPY* TO STOP                                  FTNRES      1412     A     
 FTNRES             RECALL A1                                                              FTNRES      1413     A     
 FTNRES             BX6    X6-X6                                                           FTNRES      1414     A     
 FTNRES             SA6    SPYP+1                                                          FTNRES      1415     A     
 FTNRES             EQ     OFFSPY      EXIT                                                FTNRES      1416     A     
 FTNRES                                                                                    FTNRES      1417     A     
 FTNRES                                                                                    FTNRES      1418     A     
 FTNRES                                                                                    FTNRES      1419     A     
 FTNRES    SPYW     BSSZ   1                       CONTROL CARD (W-OPT) PARAMS             FTNRES      1420     A     
 FTNRES   *         *SPY* REQUEST PARAMETER LIST                                           FTNRES      1421     A     
 FTNRES    SPYP     BSSZ   1           7LOVL0P0S                                           FTNRES      1422     A     
 FTNRES             BSSZ   1           12/BINW,12/:,12/LO,12/HI,12/0                       FTNRES      1423     A     
 FTNRES    SPYO     DATA   7LOVL0100                                                       FTNRES      1424     A     
 FTNRES                                                                                    FTNRES      1425     A     
 FTNRES    #OS      ENDIF                                                                  FTNRES      1426     A     
 FTNRES    .T       ENDIF                                                                  FTNRES      1427     A     
 FTNRES    REALDEC  SPACE  4,8                                                             FTNRES      1428     A     
 FTNRES    .CT      IFNE   CTIMO,0                                                         FTNRES      1429     A     
 FTNRES                                                                                    FTNRES      1430     A     
 FTNRES   **        REALDEC - BINARY TO DISPLAY CODE CONVERSION.                           FTNRES      1431     A     
 FTNRES   *                                                                                FTNRES      1432     A     
 FTNRES   *                                                                                FTNRES      1433     A     
 FTNRES   *         ENTRY  (X1) = NUMBER TO BE CONVERTED                                   FTNRES      1434     A     
 FTNRES   *                (B4) = 6 * NEGATIVE OF SCALE FACTOR                             FTNRES      1435     A     
 FTNRES   *                                                                                FTNRES      1436     A     
 FTNRES   *         EXIT   (X6) = DPC CONVERSION, RIGHT JUSTIFIED, SPACE FILLED            FTNRES      1437     A     
 FTNRES   *                                                                                FTNRES      1438     A     
 FTNRES   *         USES   X - ALL BUT X0                                                  FTNRES      1439     A     
 FTNRES   *                A - 3, 4, 5                                                     FTNRES      1440     A     
 FTNRES   *                B - 2, 3, 4                                                     FTNRES      1441     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 508    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES   *                                                                                FTNRES      1442     A     
 FTNRES   *         CALLS  NONE                                                            FTNRES      1443     A     
 FTNRES                                                                                    FTNRES      1444     A     
 FTNRES                                                                                    FTNRES      1445     A     
 FTNRES    RLD2     LT     B2,B4,RLD4  IF DECIMAL POINT NOT YET APPENDED                   FTNRES      1446     A     
 FTNRES             LX3    -6                                                              FTNRES      1447     A     
 FTNRES             LX6    X3,B2                                                           FTNRES      1448     A     
 FTNRES                                                                                    FTNRES      1449     A     
 FTNRES    REALDEC  ENTRY. **          ** ENTRY/EXIT **                                    FTNRES      1450     A     
 FTNRES             SB3    6                                                               FTNRES      1451     A     
 FTNRES             SA5    RLDA        (X5) = 0.1P48+1                                     FTNRES      1452     A     
 FTNRES             SB2    B0                                                              FTNRES      1453     A     
 FTNRES             PX1    X1                                                              FTNRES      1454     A     
 FTNRES             SA4    RLDB        (X4) = 10.0                                         FTNRES      1455          I
          -FEAT155H 
 FTNRES             SX4    10                                                              FEAT155H      11     A     
 FTNRES             MX7    1                                                               FTNRES      1456     A     
 FTNRES             NO                                                                     FTNRES      1457          I
          -FEAT155H 
 FTNRES             PX4    X4          (X4) = 10.0                                         FEAT155H      12     A     
 FTNRES             SA3    RLDC        (X3) = 10H                                          FTNRES      1458     A     
 FTNRES    RLD3     DX6    X5*X1       (X6) = FRACTIONAL PART                              FTNRES      1459     A     
 FTNRES             FX1    X5*X1       (X1) = INTEGRAL PART                                FTNRES      1460     A     
 FTNRES             ZR     X7,RLD2     IF REMAINING DIGITS ARE ZERO                        FTNRES      1461     A     
 FTNRES    RLD4     LX3    -6                                                              FTNRES      1462     A     
 FTNRES             SB2    B2+B3                                                           FTNRES      1463     A     
 FTNRES             FX2    X6*X4             DIGIT = 10.0*B                                FTNRES      1464     A     
 FTNRES             NX7    X1                                                              FTNRES      1465     A     
 FTNRES             SX6    X2+1R0-1R       CONVERT DIGIT TO DISPLAY CODE.                  FTNRES      1466     A     
 FTNRES             IX3    X6+X3                                                           FTNRES      1467     A     
 FTNRES             NE     B2,B4,RLD3  IF DECIMAL POINT NOT NEEDED YET                     FTNRES      1468     A     
 FTNRES             SX6    1R.-1R                                                          FTNRES      1469     A     
 FTNRES             LX3    60-6                                                            FTNRES      1470     A     
 FTNRES             SB2    B2+B3                                                           FTNRES      1471     A     
 FTNRES             IX3    X3+X6                                                           FTNRES      1472     A     
 FTNRES             EQ     RLD3                                                            FTNRES      1473     A     
 FTNRES                                                                                    FTNRES      1474     A     
 FTNRES   *         CONVERSION CONSTANTS.                                                  FTNRES      1475     A     
 FTNRES                                                                                    FTNRES      1476     A     
 FTNRES    RLDA     CON    0.1P48+1                                                        FTNRES      1477     A     
 FTNRES    RLDB     CON    10.0P0                                                          FTNRES      1478          I
          -FEAT155H 
 FTNRES    RLDC     CON    1H                                                              FTNRES      1479     A     
 FTNRES             SPACE  4                                                               FTNRES      1480     A     
 FTNRES   **        CPTIME - COMPUTE AND CONVERT ELAPSED CPU TIME.                         FTNRES      1481     A     
 FTNRES   *                                                                                FTNRES      1482     A     
 FTNRES   *         ENTRY  (X2) = CPU START TIME IN MILLISECONDS                           FTNRES      1483     A     
 FTNRES   *                                                                                FTNRES      1484     A     
 FTNRES   *         EXIT   (X6) = DPC ELAPSED TIME                                         FTNRES      1485     A     
 FTNRES   *                                                                                FTNRES      1486     A     
 FTNRES   *         CALLS  TIMER, REALDEC                                                  FTNRES      1487     A     
 FTNRES    CPTIM    ENTRY. **          ** ENTRY/EXIT **                                    FTNRES      1488     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 509    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
 FTNRES             CALL   TIMER       RETURNS (X6) = CURRENT CPTIME                       FTNRES      1489     A     
 FTNRES             SB4    3*CHAR      (B4)= -REALDEC- SCALE FACTOR, 1.0E-3                FTNRES      1490     A     
 FTNRES             IX1    X6-X2       (X1) = ELAPSED TIME (BINARY)                        FTNRES      1491     A     
 FTNRES             CALL   REALDEC     RETURNS (X6)=ELP. TIME(DISPLY CODE)                 FTNRES      1492     A     
 FTNRES             EQ     CPTIM       EXIT.                                               FTNRES      1493     A     
 FTNRES                                                                                    FTNRES      1494     A     
 FTNRES    TIMER    SPACE  4,8                                                             FTNRES      1495     A     
 FTNRES   **        TIMER - OBTAIN ACCUMULATED CPU TIME.                                   FTNRES      1496     A     
 FTNRES   *                                                                                FTNRES      1497     A     
 FTNRES   *         TIME IS CONVERTED INTO AN INTEGRAL NUMBER OF MILLISECONDS.             FTNRES      1498     A     
 FTNRES   *                                                                                FTNRES      1499     A     
 FTNRES   *                                                                                FTNRES      1500     A     
 FTNRES   *         ENTRY  NO REQUIREMENTS                                                 FTNRES      1501     A     
 FTNRES   *                                                                                FTNRES      1502     A     
 FTNRES   *         EXIT   (X6) = CURRENT CPU TIME                                         FTNRES      1503     A     
 FTNRES   *                                                                                FTNRES      1504     A     
 FTNRES   *         USES   X - 0, 3, 4, 5, 6                                               FTNRES      1505     A     
 FTNRES   *                A - 5                                                           FTNRES      1506     A     
 FTNRES   *                B - NONE                                                        FTNRES      1507     A     
 FTNRES   *                                                                                FTNRES      1508     A     
 FTNRES   *         CALLS  TIME                                                            FTNRES      1509     A     
 FTNRES                                                                                    FTNRES      1510     A     
 FTNRES                                                                                    FTNRES      1511     A     
 FTNRES    TIMER    ENTRY. **          ** ENTRY/EXIT **                                    FTNRES      1512     A     
 FTNRES             TIME   GT1                                                             FTNRES      1513     A     
 FTNRES             SA5    GT1                                                             FTNRES      1514     A     
 FTNRES             MX0    60-12                                                           FTNRES      1515     A     
 FTNRES             BX4    -X0*X5      MSEC                                                FTNRES      1516     A     
 FTNRES             AX5    12                                                              FTNRES      1517     A     
 FTNRES             SX3    1000D       SEC * 1000                                          FTNRES      1518     A     
 FTNRES             MX0    36                                                              FTNRES      1519     A     
 FTNRES             BX5    -X0*X5                                                          FTNRES      1520     A     
 FTNRES             IX3    X5*X3                                                           FTNRES      1521     A     
 FTNRES             IX6    X3+X4                                                           FTNRES      1522     A     
 FTNRES             EQ     TIMER                                                           FTNRES      1523     A     
 FTNRES                                                                                    FTNRES      1524     A     
 FTNRES                                                                                    FTNRES      1525     A     
 FTNRES                                                                                    FTNRES      1526     A     
 FTNRES    TIME0    ENTRY. 0           COMPILATION START TIME                              FTNRES      1527     A     
 FTNRES    TIME1    ENTRY. 0                                                               FTNRES      1528     A     
 FTNRES             BSSZ   1                                                               FTNRES      1529          I
          -FEAT155HA
 FTNRES    CPTMSG   DIS    ,*   NNN.NNN CP SECONDS COMPILATION TIME*                       FTNRES      1530     A     
 FTNRES                                                                                    FTNRES      1531     A     
 FTNRES                                                                                    FTNRES      1532     A     
 FTNRES    .CT      ENDIF                                                                  FTNRES      1533     A     
 FTNRES                                                                                    FTNRES      1534     A     
 FTNRES                                                                                    FTNRES      1535     A     
 FTNRES                                                                                    FTNRES      1536     A     
 FTNRES   **        END OF RESIDENT CODE IN (0,0) OVERLAY.                                 FTNRES      1537     A     
 FTNRES             SPACE  4                                                               FTNRES      1538     A     
 FTNRES             USE    FTNINIT                                                         FTNRES      1539     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 510    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FTNRES  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FTNRES                    1539      1385
          FCC0380                      1         1
          FCC0518                      1         0
          FEAT121A                     4         4
          FEAT121L                    43        29
          FCCCPRT                      1         0
          FCC0761                      1         1
          FEAT126A                    17        11
          FEAT126B                     8         7
          FEAT126C                     1         1
          FEAT126AB                    3         3
          FCC0813                      9         7
          FCC0824                      5         5
          FCC0864                      9         9
          FEAT155D                     5         5
          FEAT155E                    10         6
          FEAT155H                     6         6
          FEAT155J                     9         9
          FCC*76                       1         0
          CP139FC                     13        12
          FEAT155EA                    2         2
          FEAT155HA                    1         1
          FEAT155F                    43        42
          FCC1096                      1         1
          FCCT002                     75        75
          FCC0971                      2         2
          FCC1336                      1         1
          FCC*77X                      1         0
          F7540FT                      1         1
          RSM2763X                     2         2
          FCC1117X                     1         1
          FCC1128X                     5         5
          FCC1328X                     1         1
          FCC1741X                     1         1
          FCC*78X                      1         0
          F162FTNA                     2         2
          F66FCC                       8         8
          FCC*79                       2         1
          FEAT1070C                    7         7
          FCCA422                      2         2
          FCC2104                      4         4
          FCCA488                      7         7
          FCCA488A                     1         1
          FCCA489                     16        16
          FCCA519                      4         4
          FCC*80                       1         0
          FCC*81                       1         0
          FCC2125                     11        11
          FCC*82                       1         1
          FCCA589                      1         1
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 511    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNRES  
  
          FCCA593                      3         3
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *DECK FTN                                                                        FTN            1     A     
 FTN                IDENT  FTN                                                             FTN            2     A     
 FTN       FTN      TITLE  F T N  -  INITIALIZE, LOAD OVERLAYS, END COMPILATION            FTN            3     A     
 FTN                LCC    OVERLAY(FTN,0,0)                                                FTN            4          I
          -FCCA589
 FTN      *CALL SSTCALL                                                                    FTN            5     A     
 FTN      *CALL FTNRES                                                                     FTN            6     A     
 FTN       FTN      TITLE  INITIALIZATION MAIN LOOP                                        FTN            7     A     
 FTN      ***       COMPILER INITIALIZATION.                                               FTN            8     A     
 FTN      *                                                                                FTN            9     A     
 FTN                                                                                       FTN           10     A     
 FTN                USE    FTNINIT                                                         FTN           11     A     
 FTN                                                                                       FTN           12     A     
 FTN       O.INIT   BSS    0           BASE ADDRESS OF INITIALIZATION BLOCK                FTN           13     A     
 FTN       FTN      SPACE  4,8                                                             FTN           14     A     
 FTN      ****                                                                             FTN           15     A     
 FTN      **        FTN - INITIALIZATION MAIN LOOP.                                        FTN           16     A     
 FTN      *                                                                                FTN           17     A     
 FTN      *         THE OPERATING SYSTEM RESPONDS TO AN -FTN- CONTROL CARD BY              FTN           18     A     
 FTN      *         LOADING THE (0,0) OVERLAY AND TRANSFERRING CONTROL HERE.               FTN           19     A     
 FTN      *                                                                                FTN           20     A     
 FTN      *         THIS CONTROLLER CALLS A SERIES OF INITIALIZATION SUBROUTINES           FTN           21     A     
 FTN      *         AND TRANSFERS CONTROL TO THE PRIMARY OVERLAY.                          FTN           22     A     
 FTN      *                                                                                FTN           23     A     
 FTN      *         ENTRY  (A0) =  CM/SCM FIELD LENGTH                                     FTN           24     A     
 FTN      *                (X0) = ECS/LCM FIELD LENGTH                                     FTN           25     A     
 FTN      *                                                                                FTN           26     A     
 FTN      *         EXIT   TO PRIMARY OVERLAY LOADER.                                      FTN           27     A     
 FTN      *                (B1) = 1                                                        FTN           28     A     
 FTN      *                                                                                FTN           29     A     
 FTN      *         USES   B1, B5                                                          FTN           30     A     
 FTN      *                                                                                FTN           31     A     
 FTN      *         CALLS  SEE CODE                                                        FTN           32     A     
 FTN                                                                                       FTN           33     A     
 FTN                                                                                       FTN           34     A     
 FTN       #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FCCA489       24     A     
 FTN      *                            VALID ONLY FOR NOS,NOS-BE                           FCCA489       25     A     
 FTN                ENTRY  FTN4                                                            FCCA489       26     A     
 FTN       FTN4     BSS    0           ** ALTERNATE SYSTEM LOADER ENTRY POINT **           FCCA489       27     A     
 FTN       #OS      ENDIF                                                                  FCCA489       28     A     
 FTN                ENTRY  FTN                                                             FTN           35     A     
 FTN                                                                                       FTN           36     A     
 FTN       FTN      BSS    0           ** SYSTEM LOADER ENTRY POINT **                     FTN           37     A     
 FTN                                                                                       FTN           38     A     
 FTN                SB1    1                                                               FTN           39     A     
 FTN                CALL   MIA         MISC INITIALIZATION, PART A                         FTN           40     A     
 FTN                                                                                       FTN           41     A     
 FTN                CALL   ARG         PROCESS CONTROL CARD ARGUMENTS                      FTN           42     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 512    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                                                                                       FTN           43     A     
 FTN                CALL   MIB         MISC INITIALIZATION, PART B                         FTN           44     A     
 FTN                                                                                       FTN           45     A     
 FTN                CALL   CFL         CHECK FIELD LENGTH                                  FTN           46     A     
 FTN                                                                                       FTN           47     A     
 FTN                CALL   IBA         INITIALIZE I/O BUFFER SPACE ALLOCATIONS             FTN           48     A     
 FTN                                                                                       FTN           49     A     
 FTN                EQ     LDPRI       EXIT TO LOAD AND EXECUTE PRIMARY OVERLAY            FTN           50     A     
 FTN      ****                                                                             FTN           51     A     
 FTN       KEYS     TITLE  COMPILER INITIALIZATION SUBROUTINES                             FTN           52     A     
 FTN      **        KEYS - CONTROL CARD PARAMETER KEYWORD DEFINITIONS.                     FTN           53     A     
 FTN      *                                                                                FTN           54     A     
 FTN      *         PARAMETER KEYWORDS ARE DEFINED BY MACRO CALLS, AS FOLLOWS --           FTN           55     A     
 FTN      *                                                                                FTN           56     A     
 FTN      * KEY     PARAM  CELL,ASSUMED                                                    FTN           57     A     
 FTN      *                                                                                FTN           58     A     
 FTN      *         *KEY* IS THE PARAMETER KEY-WORD TO APPEAR ON CONTROL CARD.             FTN           59     A     
 FTN      *                ONE TO SEVEN CHARACTERS.                                        FTN           60     A     
 FTN      *         *CELL* IS THE ADDRESS TO RECEIVE THE PARAMETER VALUE.                  FTN           61     A     
 FTN      *                IF NEGATIVE, IT IS JUMP ADDRESS OF A NON-STANDARD               FTN           62     A     
 FTN      *                PROCESSOR FOR THIS CONTROL CARD OPTION.                         FTN           63     A     
 FTN      *         *ASSUMED* = THE VALUE TO BE ASSUMED FOR THIS ARGUMENT WHEN             FTN           64     A     
 FTN      *                THE KEY APPEARS WITHOUT AN EQUIVALENCED VALUE.                  FTN           65     A     
 FTN      *                IF IT IS OMITTED, THE VALUE WILL BE BINARY ZERO.                FTN           66     A     
 FTN      *                IF IT IS *ON* THE VALUE IS 1S59.  IF IT IS *OFF*                FTN           67     A     
 FTN      *                THE VALUE IS BINARY ZERO.                                       FTN           68     A     
 FTN      * NOTE    IF THE ASSUMED VALUE IS EITHER BINARY ZERO OR 1S59 AND AN              FTN           69     A     
 FTN      *         EQUIVALENCED VALUE OTHER THAN ZERO IS TO BE ALLOWED                    FTN           70     A     
 FTN      *         NON-STANDARD PROCESSING MUST BE EMPLOYED. STANDARD PROCESSING          FTN           71     A     
 FTN      *         ASSUMES THAT IF THIS CELL IS ZERO OR 1S59 IT MAY ONLY BE               FTN           72     A     
 FTN      *         TOGGLED AND WILL PRODUCE AN ERROR FOR ANY OTHER CASE.                  FTN           73     A     
 FTN                                                                                       FTN           74     A     
 FTN                                                                                       FTN           75     A     
 FTN                MACRO  PARAM,KEY,CELL,ASSUMED                                          FTN           76     A     
 FTN                VFD    42/0L_KEY,18/CELL                                               FTN           77     A     
 FTN                IFC    NE,$ASSUMED$ON$,2                                               FTN           78     A     
 FTN                CON    ASSUMED                                                         FTN           79     A     
 FTN                SKIP   1                                                               FTN           80     A     
 FTN                VFD    1/ON,59/0                                                       FTN           81     A     
 FTN       PARAM    ENDM                                                                   FTN           82     A     
 FTN                                                                                       FTN           83     A     
 FTN       KEYS     BSS    0           START OF PARAMETER KEY TABLE                        FTN           84     A     
 FTN      ****                                                                             FTN           85     A     
 FTN       A        PARAM  CP.ABORT,ON                                                     FTN           86          I
          -CP139FC
 FTN       A        PARAM  -ARG=A,ON                                                       CP139FC       61     A     
 FTN       B        PARAM  -ARG=B,0L"CCA.B"                                                FTN           87     A     
 FTN       BL       PARAM  CP.BLF,ON                                                       FTN           88     A     
 FTN       .T       IFNE   TEST,0                                                          FEAT155F     136     A     
 FTN                IFNE   .OS,2,1     IF NOT SCOPE 2                                      FEAT155F     137     A     
 FTN       BREAK    PARAM  CO.BRK,0L10                                                     FEAT155F     138     A     
 FTN       .T       ENDIF                                                                  FEAT155F     139     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 513    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       C        PARAM  CAFLAG,ON                                                       FTN           89     A     
 FTN       CC       PARAM  CCFLAG,ON                                                       FCC2125       28     A     
 FTN       D        PARAM  DFLAG,0L"CCA.D"                                                 FTN           90     A     
 FTN                                                                                       F66FCC        84     A     
 FTN       #MD      IFGE   .MODES,1                                                        FCC2391        8     A     
 FTN                IFEQ   .FID,ON,1                                                       F66FCC        85     A     
 FTN       DB       PARAM  -ARG=DB,0LID                                                    F66FCC        86     A     
 FTN                                                                                       F66FCC        87     A     
 FTN       #MD      ENDIF                                                                  FCC2391        9     A     
 FTN       E        PARAM  -ARG=E,0L"CCA.E"                                                FTN           91     A     
 FTN       EL       PARAM  -ARG=EL                                                         FTN           92     A     
 FTN       ER       PARAM  ERFLAG,ON                                                       FEAT155J      13     A     
 FTN       G        PARAM  -ARG=G,0L"CCA.G"                                                FTN           93     A     
 FTN       GO       PARAM  GOFLAG,ON                                                       FTN           94     A     
 FTN       GT       PARAM  -ARG=GT,0L"CCA.G"                                               FTN           95          I
          -FEAT126C 
 FTN       I        PARAM  -ARG=I,0L"CCA.I"                                                FTN           96     A     
 FTN       L        PARAM  -ARG=L,0L"CCA.L"                                                FTN           97     A     
 FTN       LCM      PARAM  -ARG=LCM,0LD                                                    FTN           98     A     
 FTN       LTP      PARAM  PMDFLAG,ON                                                      FEAT1070C     83     A     
 FTN       PMD      PARAM  PMDFLAG,ON                                                      FEAT1070C     84     A     
 FTN                                                                                       FTN           99     A     
 FTN       .T       IFNE   TEST,0                                                          FTN          100     A     
 FTN       #RM      IFEQ   OT#RM,7                                                         FTN          101     A     
 FTN       M        PARAM  -ARG=M                                                          FTN          102     A     
 FTN       #RM      ENDIF                                                                  FTN          103     A     
 FTN       .T       ENDIF                                                                  FTN          104     A     
 FTN                                                                                       FTN          105     A     
 FTN       ML       PARAM  -ARG=ML                                                         FTN          106     A     
 FTN       OL       PARAM  OLIST,ON                                                        FTN          107          I
          -FEAT121L 
 FTN       OL       PARAM  /MASTER/OLIST,ON                                                FEAT121L      56     A     
 FTN                                                                                       FTN          108     A     
 FTN       #MD      IFLE   .MODES,1                                                        FTN          109     A     
 FTN       OPT      PARAM  -ARG=OPT,0L2                                                    FTN          110     A     
 FTN       #MD      ENDIF                                                                  FTN          111     A     
 FTN                                                                                       FTN          112     A     
 FTN       P        PARAM  -ARG=P                                                          FTN          113     A     
 FTN       PD       PARAM  -ARG=PD,1L8                                                     FEAT155E      24     A     
 FTN       PL       PARAM  PLARG,"CC.PL"                                                   FTN          114          I
          -FCC0818
 FTN       PL       PARAM  -ARG=PL,"CC.PL"                                                 FCC0818        5     A     
 FTN       PS       PARAM  -ARG=PS                                                         FEAT155E      25     A     
 FTN       #MD      IFGE   .MODES,1                                                        FCC2391       10     A     
 FTN       PW       PARAM  PWFLAG,0L72                                                     FEAT126A      37     A     
 FTN       #MD      ENDIF                                                                  FCC2391       11     A     
 FTN       Q        PARAM  QFLAG,ON                                                        FTN          115     A     
 FTN       R        PARAM  -ARG=R,0L2                                                      FTN          116     A     
 FTN       REW      PARAM  CO.REW,ON                                                       FTN          117     A     
 FTN       ROUND    PARAM  -ARG=RND,37BS19                                                 FTN          118     A     
 FTN       S        PARAM  -ARG=S,0L"CCA.S"                                                FTN          119     A     
 FTN                                                                                       FTN          120     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 514    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       #MD      IFGE   .MODES,1                                                        FTN          121     A     
 FTN       SEQ      PARAM  CO.MODE,ON                                                      FTN          122     A     
 FTN       #MD      ENDIF                                                                  FTN          123     A     
 FTN                                                                                       FTN          124     A     
 FTN       SL       PARAM  SLIST,ON                                                        FTN          125     A     
 FTN                                                                                       FTN          126     A     
 FTN       .T       IFNE   TEST,0                                                          FTN          127     A     
 FTN       SNAP     PARAM  -ARG=SNP,1S47                                                   FTN          128          I
          -FEAT126C 
 FTN       SNAP     PARAM  -ARG=SNP,1                                                      FEAT126C      48     A     
 FTN                                                                                       FTN          129     A     
 FTN       #OS      IFEQ   .OS,0                                                           FTN          130          I
          -FEAT126A 
 FTN       #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A      38     A     
 FTN       SPY      PARAM  SPYW,3L20B                                                      FTN          131     A     
 FTN       #OS      ENDIF                                                                  FTN          132     A     
 FTN                                                                                       FTN          133     A     
 FTN       .T       ENDIF                                                                  FTN          134     A     
 FTN                                                                                       FTN          135     A     
 FTN       SPP      PARAM  SPPFLAG,ON                                                      FTN          136     A     
 FTN       STATIC   PARAM  CO.STA,ON                                                       F162FTNA     359     A     
 FTN       SYSEDIT  PARAM  -ARG=EDT                                                        FTN          137     A     
 FTN       T        PARAM  CBNFLG,ON                                                       FTN          138     A     
 FTN                                                                                       FTN          139     A     
 FTN       #MD      IFGE   .MODES,1                                                        FTN          140     A     
 FTN       TS       PARAM  TSFLAG,ON                                                       FTN          141     A     
 FTN       #MD      ENDIF                                                                  FTN          142     A     
 FTN                                                                                       FTN          143     A     
 FTN       UO       PARAM  UOFLAG,ON                                                       FEAT121A      26     A     
 FTN       X        PARAM  CP.XNAME,0L"CCA.X"                                              FTN          144     A     
 FTN       XT       PARAM  -ARG=XT,0L"CCA.X"                                               FTN          145          I
          -FEAT126C 
 FTN       Z        PARAM  ZFLAG,ON                                                        FTN          146     A     
 FTN      ****                                                                             FTN          147     A     
 FTN       L.KEYS   EQU    *-KEYS      LENGTH OF KEYWORD LIST                              FTN          148     A     
 FTN                PURGMAC PARAM                                                          FTN          149     A     
 FTN       ARG      EJECT  4,15        CONTROL STATEMENT ARGUMENT TRANSLATION.             FTN          150     A     
 FTN      **        ARG -  PROCESS ARGUMENTS FROM CONTROL STATEMENT.                       FTN          151     A     
 FTN      *                                                                                FTN          152     A     
 FTN      *         R. H. GOODELL      71/07/01       COMPASS 3.0                          FTN          153     A     
 FTN      *         ADAPTED            74/01/13       FTN 4.3                              FTN          154     A     
 FTN      *                                                                                FTN          155     A     
 FTN      *         ENTRY  FIRST CARD OF CONTROL STATEMENT IS IN RA.CCD ET SEQ.            FTN          156     A     
 FTN      *                B1=1                                                            FTN          157     A     
 FTN      *         EXIT   ARGUMENTS PROCESSED.                                            FTN          158     A     
 FTN      *         USES   ALL.                                                            FTN          159     A     
 FTN      *         CALLS  GAC, GAV.                                                       FTN          160     A     
 FTN                                                                                       FTN          161     A     
 FTN                                                                                       FTN          162     A     
 FTN       ARG      ENTRY. *                                                               FTN          163     A     
 FTN                SA0    60/CHAR                                                         FTN          164     A     
 FTN                SB2    CHAR                                                            FTN          165     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 515    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                MX0    -CHAR                                                           FTN          166     A     
 FTN                SB5    B0                                                              FTN          167     A     
 FTN                                                                                       FTN          168     A     
 FTN       ARG20    SB3    B0          SKIP LEADING BLANKS                                 FTN          169     A     
 FTN                RJ     GAC                                                             FTN          170     A     
 FTN                SB7    X4-1R                                                           FTN          171     A     
 FTN                ZR     B7,ARG20                                                        FTN          172     A     
 FTN                                                                                       FTN          173     A     
 FTN                MX6    0                                                               FTN          174     A     
 FTN       ARG25    SB3    B0          SKIP VERB                                           FTN          175     A     
 FTN                LX6    CHAR                                                            FTN          176     A     
 FTN                BX6    X6+X4                                                           FTN          177     A     
 FTN                RJ     GAC                                                             FTN          178     A     
 FTN                SB7    X4-1R9-1                                                        FTN          179     A     
 FTN                MI     B7,ARG25                                                        FTN          180     A     
 FTN                                                                                       FTN          181     A     
 FTN                SB7    X4-1R.      RETURN IF TERMINATOR                                FTN          182     A     
 FTN                SB6    X4-1R)                                                          FTN          183     A     
 FTN                ZR     B7,ARG                                                          FTN          184     A     
 FTN                ZR     B6,ARG                                                          FTN          185     A     
 FTN                                                                                       FTN          186     A     
 FTN                SA2    EXECUTE                                                         FTN          187     A     
 FTN                IX6    X2-X6                                                           FTN          188     A     
 FTN                ZR     X6,ARG20    IF EXECUTE IS THE VERB                              FTN          189     A     
 FTN                SB3    -B1                                                             FTN          190     A     
 FTN                NE     B6,B1,ARG30 IF NOT $                                            FTN          191     A     
 FTN                SB3    B0                                                              FTN          192     A     
 FTN                                                                                       FTN          193     A     
 FTN      **        PROCESS NEXT KEYWORD.                                                  FTN          194     A     
 FTN                                                                                       FTN          195     A     
 FTN       ARG30    MI     B4,ARG     RETURN IF TERMINATOR                                 FTN          196          I
          -FCC2125
 FTN                RJ     GAV         GET ARGUMENT VALUE                                  FTN          197          I
          -FCC2125
 FTN       ARG30    GE     B4,B0,ARG31 IF NOT A TERMINATOR.                                FCC2125       29     A     
 FTN                SA2    CCFLAG      FETCH CONTINUE CARD FLAG.                           FCC2125       30     A     
 FTN                ZR     X2,ARG      EXIT IF FLAG NOT SET.                               FCC2125       31     A     
 FTN                MX6    0                                                               FCC2125       32     A     
 FTN                SA6    A2          RESET FLAG TO ZERO.                                 FCC2125       33     A     
 FTN                SB5    B0                                                              FCC2125       34     A     
 FTN                SA6    A5+B1       ZERO WORD TO INDICATE END OF CARD IMAGE.            FCC2125       35     A     
 FTN                MX6    1                                                               FCC2125       36     A     
 FTN                SA6    GACC                                                            FCC2125       37     A     
 FTN       ARG31    RJ     GAV                                                             FCC2125       38     A     
 FTN                ZR     X6,ARG30    IGNORE EMPTY ARGUMENT                               FTN          198     A     
 FTN                                                                                       FTN          199     A     
 FTN                SA2    KEYS                                                            FTN          200     A     
 FTN                MX3    7*CHAR                                                          FTN          201     A     
 FTN                SB7    L.KEYS                                                          FTN          202     A     
 FTN                SA6    ERA.A1                                                          FTN          203     A     
 FTN                                                                                       FTN          204     A     
 FTN       ARG32    BX4    X3*X2       SEARCH KEYWORD LIST                                 FTN          205     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 516    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SB7    B7-2                                                            FTN          206     A     
 FTN                BX7    X4-X6                                                           FTN          207     A     
 FTN                ZR     X7,ARG40    IF FOUND                                            FTN          208     A     
 FTN                SA2    A2+2                                                            FTN          209     A     
 FTN                NZ     B7,ARG32    IF MORE KEYS TO CHECK                               FTN          210     A     
 FTN                EQ     E.FM        IF NOT FOUND                                        FTN          211     A     
 FTN                                                                                       FTN          212     A     
 FTN      **        KEYWORD PARAMETER --                                                   FTN          213     A     
 FTN      *                CHECK PRESENCE / ABSENCE OF = VALUE.                            FTN          214     A     
 FTN                                                                                       FTN          215     A     
 FTN       ARG40    SB7    X2                                                              FTN          216     A     
 FTN                SA2    A2+B1        GET DEFAULT VALUE                                  FTN          217     A     
 FTN                BX6    X2                                                              FTN          218     A     
 FTN                SX3    B4-3         CHECK FOR EQUAL SIGN                               FTN          219     A     
 FTN                MI     B7,ARG48    IF SPECIAL ARGUMENT                                 FTN          220     A     
 FTN                SA6    B7          STORE DEFAULT VALUE                                 FTN          221     A     
 FTN                ZR     X3,ARG44    IF FOLLOWED BY =                                    FTN          222     A     
 FTN                EQ     ARG30        LOOP FOR NEXT ARGUMENT                             FTN          223     A     
 FTN                                                                                       FTN          224     A     
 FTN       ARG44    MX1    1                                                               FTN          225     A     
 FTN                BX7    -X1*X2      PRESERVE TOGGLE FLAG                                FTN          226     A     
 FTN                RJ     GAV         GET ARGUMENT VALUE                                  FTN          227     A     
 FTN                ZR     X6,E.ME                                                         FTN          228     A     
 FTN                LX6    CHAR                                                            FTN          229     A     
 FTN                SX1    1R0                                                             FTN          230     A     
 FTN                IX3    X6-X1                                                           FTN          231     A     
 FTN                NZ     X3,ARG46    IF ARGUMENT NOT = 0                                 FTN          232     A     
 FTN                BX6    X3                                                              FTN          233     A     
 FTN                EQ     ARG47                                                           FTN          234     A     
 FTN                                                                                       FTN          235     A     
 FTN       ARG46    ZR     X7,E.NE     IF ARG MUST BE ZERO.                                FTN          236     A     
 FTN                LX6    -CHAR                                                           FTN          237     A     
 FTN       ARG47    SA6    B7          STORE ARGUMENT VALUE                                FTN          238     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FTN          239     A     
 FTN                                                                                       FTN          240     A     
 FTN       ARG48    SB7    -B7         PROCESS SPECIAL ARGUMENT                            FTN          241     A     
 FTN                JP     B7                                                              FTN          242     A     
 FTN                                                                                       FTN          243     A     
 FTN      **        PROCESS SPECIAL ARGUMENTS.                                             FTN          244     A     
 FTN      *                                                                                FTN          245     A     
 FTN      *         ENTRY  (X0) = MASK -6                                                  FTN          246     A     
 FTN      *                (X2) = DEFAULT VALUE FOR KEYWORD                                FTN          247     A     
 FTN      *                (X3) = (CHARACTER TYPE FROM GAC) - 3 (0 IF = SIGN)              FTN          248     A     
 FTN      *                (X4) = KEYWORD LEFT JUSTIFIED ZERO FILLED                       FTN          249     A     
 FTN      *                (X5) = CURRENT WORD OF CARD IMAGE                               FTN          250     A     
 FTN      *                (X6) = (X2)                                                     FTN          251     A     
 FTN      *                (A0) = 10                                                       FTN          252     A     
 FTN      *                (B2) = 6                                                        FTN          253     A     
 FTN      *                (B3) = $ MODE FROM GAC                                          FTN          254     A     
 FTN      *                (B4) = CHARACTER TYPE FROM GAC                                  FTN          255     A     
 FTN      *                (B5) = NUMBER OF CHARACTERS REMAINING IN (X5)                   FTN          256     A     
 FTN      *         EXIT   TO PROCESS NEXT KEYWORD                                         FTN          257     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 517    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *                X0,X5 A0,A5 B2,B3,B5  PRESERVED.                                FTN          258     A     
 FTN                                                                                       CP139FC       62     A     
 FTN      **        PROCESS ABORT OPTION - A OR A=0.                                       CP139FC       63     A     
 FTN                                                                                       CP139FC       64     A     
 FTN       ARG=A    NZ     X3,ARGA1    IF NO =                                             CP139FC       65     A     
 FTN                RJ     GAV         GET ARGUMENT VALUE                                  CP139FC       66     A     
 FTN                ZR     X6,E.ME                                                         CP139FC       67     A     
 FTN                LX6    CHAR                                                            CP139FC       68     A     
 FTN                SX2    1R0                                                             CP139FC       69     A     
 FTN                IX3    X6-X2                                                           CP139FC       70     A     
 FTN                NZ     X3,E.NE     NOT A=0.                                            CP139FC       71     A     
 FTN                MX6    0                                                               CP139FC       72     A     
 FTN       ARGA1    LX6    59-29                                                           CP139FC       73     A     
 FTN                SA1    CP.ABORT                                                        CP139FC       74     A     
 FTN                MX3    59                                                              FCC1336        7     A     
 FTN                LX3    29                                                              FCC1336        8     A     
 FTN                BX1    X3*X1                                                           FCC1336        9     A     
 FTN                BX6    X1+X6       ADD IN ABORT FLAG                                   CP139FC       75     A     
 FTN                SA6    A1                                                              CP139FC       76     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              CP139FC       77     A     
 FTN                                                                                       FTN          259     A     
 FTN      **        PROCESS B OPTION - B, B=0, OR B=LFN.                                   FTN          260     A     
 FTN                                                                                       FTN          261     A     
 FTN       ARG=B    NZ     X3,ARGB1    IF NO =                                             FTN          262     A     
 FTN                RJ     GAV         GET ARGUMENT VALUE                                  FTN          263     A     
 FTN                ZR     X6,E.ME                                                         FTN          264     A     
 FTN                RJ     CHK         CHECK NAME FOR LEGALITY                             FTN          265     A     
 FTN       ARGB1    SA2    FV.LGO                                                          FTN          266          I
          -FCC2125
 FTN       ARGB1    SA2    FVTBL+2     POINT TO FV.LGO.                                    FCC2125       39     A     
 FTN                SA6    BFLAG       .NZ. IF B=LFN                                       FTN          267     A     
 FTN                RJ     CFN         CHANGE FILE NAME                                    FTN          268     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FTN          269     A     
 FTN                                                                                       F66FCC        88     A     
 FTN      **        PROCESS DB OPTION - DB, DB=ID, DB=0.                                   F66FCC        89     A     
 FTN                                                                                       F66FCC        90     A     
 FTN       #FID     IFEQ   .FID,ON                                                         F66FCC        91     A     
 FTN       ARG=DB   NZ     X3,ARGDB1   IF NO =                                             F66FCC        92     A     
 FTN                RJ     GAV         GET VALUE                                           F66FCC        93     A     
 FTN                ZR     X6,E.ME                                                         F66FCC        94     A     
 FTN                RJ     CHK         CHK FOR VALID NAME                                  F66FCC        95     A     
 FTN       ARGDB1   NZ     X6,ARGDB2   IF NOT = 0                                          F66FCC        96     A     
 FTN                SA6    CO.ID                                                           F66FCC        97     A     
 FTN                EQ     ARG30                                                           F66FCC        98     A     
 FTN                                                                                       F66FCC        99     A     
 FTN       ARGDB2   LX6    2*CHAR                                                          F66FCC       100     A     
 FTN                SX2    2RID                                                            F66FCC       101     A     
 FTN                IX3    X6-X2                                                           F66FCC       102     A     
 FTN                NZ     X3,E.DB     IF UNRECOGNIZED VALUE                               F66FCC       103     A     
 FTN                MX6    1                                                               F66FCC       104     A     
 FTN                SA6    CO.ID                                                           F66FCC       105     A     
 FTN                EQ     ARG30                                                           F66FCC       106     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 518    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       #FID     ENDIF                                                                  F66FCC       107     A     
 FTN                                                                                       FTN          270     A     
 FTN      **        PROCESS E OPTION - E, E=LFN, OR E=0.                                   FTN          271     A     
 FTN                                                                                       FTN          272     A     
 FTN       ARG=E    NZ     X3,ARGE1    IF NO =                                             FTN          273     A     
 FTN                RJ     GAV         GET ARGUMENT VALUE                                  FTN          274     A     
 FTN                ZR     X6,E.ME                                                         FTN          275     A     
 FTN                RJ     CHK         CHECK NAME FOR LEGALITY                             FTN          276     A     
 FTN                NZ     X6,ARGE1    IF NOT E=0                                          FTN          277     A     
 FTN                SX6    OFF                                                             FTN          278     A     
 FTN                SA6    UFLAG                                                           FTN          279     A     
 FTN                EQ     ARG30                                                           FTN          280     A     
 FTN                                                                                       FTN          281     A     
 FTN       ARGE1    SA2    FV.CMPS                                                         FTN          282          I
          -FCC2125
 FTN       ARGE1    SA2    FVTBL+4     POINT TO FV.CMPS.                                   FCC2125       40     A     
 FTN                RJ     CFN         CHANGE FILE NAME                                    FTN          283     A     
 FTN                MX6    1                                                               FTN          284     A     
 FTN                SA6    UFLAG                                                           FTN          285     A     
 FTN                EQ     ARG30                                                           FTN          286     A     
 FTN                                                                                       FTN          287     A     
 FTN      **        PROCESS SYSEDIT OPTION - SYSEDIT, OR SYSEDIT=0.                        FTN          288     A     
 FTN                                                                                       FTN          289     A     
 FTN       ARG=EDT  NZ     X3,ARGEDT1  IF NO =                                             FTN          290     A     
 FTN                RJ     GAV         GET ARGUMENT VALUE                                  FTN          291     A     
 FTN                ZR     X6,E.ME                                                         FTN          292     A     
 FTN                LX6    CHAR                                                            FTN          293     A     
 FTN                SX2    1R0                                                             FTN          294     A     
 FTN                IX3    X6-X2                                                           FTN          295     A     
 FTN                NZ     X3,E.NE     NOT SYSEDIT=0                                       FTN          296     A     
 FTN                SX6    OFF                                                             FCC0980        6     A     
 FTN                SA6    CO.EDT                                                          FCC0980        7     A     
 FTN                SA3    F.LFN                                                           FCC0980        8     A     
 FTN                MX6    1                                                               FCC0980        9     A     
 FTN                LX6    1+P.EXT                                                         FCC0980       10     A     
 FTN                BX7    X6+X3       MAKE SURE EXT BIT IS SET                            FCC0980       11     A     
 FTN                SA7    A3                                                              FCC0980       12     A     
 FTN                EQ     ARG30                                                           FCC0980       13     A     
 FTN                                                                                       FCC0980       14     A     
 FTN       ARGEDT1  MX6    1                                                               FTN          297     A     
 FTN                SA6    CO.EDT                                                          FTN          298     A     
 FTN                SA3    F.LFN                                                           FTN          299     A     
 FTN                LX6    1+P.EXT                                                         FTN          300     A     
 FTN                BX7    -X6*X3      REMOVE EXT BIT                                      FTN          301     A     
 FTN                SA7    A3          SAVE FILE BITS FOR SYMTAB WORD B                    FTN          302     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FTN          303     A     
 FTN                                                                                       FTN          304     A     
 FTN      **        PROCESS EL OPTION - EL=A, EL=N, EL=I, EL=W, OR EL=F.                   FTN          305     A     
 FTN                                                                                       FTN          306     A     
 FTN       ARG=EL   NZ     X3,E.EQV    IF EL NOT EQUIVALENCED                              FTN          307     A     
 FTN                RJ     GAC         GET ARGUMENT CHARACTER                              FTN          308     A     
 FTN                SX3    X4-1RA                                                          FTN          309     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 519    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                NZ     B4,E.ME     IF SEPERATOR                                        FTN          310     A     
 FTN                NZ     X3,ARGEL1   IF NOT EL=A                                         FTN          311     A     
 FTN                MX6    1                                                               FTN          312     A     
 FTN                SA6    ANSI                                                            FTN          313          I
          -FEAT121L 
 FTN                SA6    /MASTER/ANSI                                                    FEAT121L      57     A     
 FTN                SA6    LOP=N                                                           FTN          314     A     
 FTN                SA6    IEFLG                                                           FTN          315          I
          -FEAT121L 
 FTN                SA6    /MASTER/IEFLG                                                   FEAT121L      58     A     
 FTN                EQ     ARGEL7                                                          FTN          316     A     
 FTN                                                                                       FTN          317     A     
 FTN       ARGEL1   SX3    X4-1RF                                                          FTN          318     A     
 FTN                NZ     X3,ARGEL2   IF NOT EL=F                                         FTN          319     A     
 FTN                SX6    OFF                                                             FTN          320     A     
 FTN                SA6    LOP=N                                                           FTN          321     A     
 FTN                SA6    IEFLG                                                           FTN          322          I
          -FEAT121L 
 FTN                SA6    /MASTER/IEFLG                                                   FEAT121L      59     A     
 FTN                EQ     ARGEL6                                                          FTN          323     A     
 FTN                                                                                       FTN          324     A     
 FTN       ARGEL2   SX3    X4-1RW                                                          FTN          325     A     
 FTN                NZ     X3,ARGEL3   IF NOT EL=W                                         FTN          326     A     
 FTN                SX6    OFF                                                             FTN          327     A     
 FTN                SA6    LOP=N                                                           FTN          328     A     
 FTN                MX6    1                                                               FTN          329     A     
 FTN                EQ     ARGEL5                                                          FTN          330     A     
 FTN                                                                                       FTN          331     A     
 FTN       ARGEL3   SX3    X4-1RI                                                          FTN          332     A     
 FTN                MX6    1                                                               FTN          333     A     
 FTN                ZR     X3,ARGEL4   IF EL=I                                             FTN          334     A     
 FTN                SX1    X4-1RN                                                          FTN          335     A     
 FTN                NZ     X1,E.EL     IF NOT A VALID ARGUMENT                             FTN          336     A     
 FTN       ARGEL4   SA6    LOP=N                                                           FTN          337     A     
 FTN       ARGEL5   SA6    IEFLG                                                           FTN          338          I
          -FEAT121L 
 FTN       ARGEL5   SA6    /MASTER/IEFLG                                                   FEAT121L      60     A     
 FTN                SX6    OFF                                                             FTN          339     A     
 FTN       ARGEL6   SA6    ANSI                                                            FTN          340          I
          -FEAT121L 
 FTN       ARGEL6   SA6    /MASTER/ANSI                                                    FEAT121L      61     A     
 FTN       ARGEL7   RJ     GAC                                                             FTN          341     A     
 FTN                ZR     B4,E.EL     IF ALPHNUMERIC                                      FTN          342     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FTN          343     A     
 FTN                                                                                       FTN          344     A     
 FTN      **        PROCESS G OPTION - G, G=0, G=LFN, OR G=LFN/OVL.                        FTN          345     A     
 FTN                                                                                       FTN          346     A     
 FTN       ARG=GT   SA6    GTXT        FLAG TO WARN OF FUTURE DECOMMITTAL                  FTN          347          I
          -FEAT126C 
 FTN       ARG=G    BX7    X6          (X7)=DEFAULT LFN                                    FTN          348     A     
 FTN                IX6    X6-X6           OVL = NO NAME                                   FTN          349     A     
 FTN                NZ     X3,ARGG1    IF NO =                                             FTN          350     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 520    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                RJ     GAV         GET FILE NAME                                       FTN          351     A     
 FTN                ZR     X6,E.ME                                                         FTN          352     A     
 FTN                RJ     CHK                                                             FTN          353     A     
 FTN                SB7    B1+B1        (B7)=2 FOR SLASH TEST                              FTN          354     A     
 FTN                BX7    X6                                                              FTN          355     A     
 FTN                MX6    0                                                               FTN          356     A     
 FTN                NE     B7,B4,ARGG1  IF NO /                                            FTN          357     A     
 FTN                RJ     GAV         GET OVERLAY NAME                                    FTN          358     A     
 FTN       ARGG1    ZR     X7,ARG30    IF *G=0*, IGNORE IT                                 FTN          359     A     
 FTN                SX2    B1                                                              FTN          360     A     
 FTN                BX6    X6+X2       SET *G* FLAG                                        FTN          361     A     
 FTN                EQ     ARGS2                                                           FTN          362     A     
 FTN                                                                                       FTN          363     A     
 FTN      **        PROCESS I OPTION - I, OR I=LFN.                                        FTN          364     A     
 FTN                                                                                       FTN          365     A     
 FTN       ARG=I    NZ     X3,ARGI1    IF NO =                                             FTN          366     A     
 FTN                RJ     GAV         GET ARGUMENT VALUE                                  FTN          367     A     
 FTN                ZR     X6,E.ME                                                         FTN          368     A     
 FTN                RJ     CHK         CHECK NAME FOR LEGALITY                             FTN          369     A     
 FTN                ZR     X6,E.IN     IF I=0                                              FTN          370     A     
 FTN       ARGI1    SA2    FV.IN                                                           FTN          371          I
          -FCC2125
 FTN       ARGI1    SA2    FVTBL       POINT TO FV.IN.                                     FCC2125       41     A     
 FTN                RJ     CFN         CHANGE FILE NAME                                    FTN          372     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FTN          373     A     
 FTN                                                                                       FTN          374     A     
 FTN      **        PROCESS L OPTION - L, L=0, OR L=LFN.                                   FTN          375     A     
 FTN                                                                                       FTN          376     A     
 FTN       ARG=L    NZ     X3,ARGL1    IF NO =                                             FTN          377     A     
 FTN                RJ     GAV         GET ARGUMENT VALUE                                  FTN          378     A     
 FTN                ZR     X6,E.ME                                                         FTN          379     A     
 FTN                RJ     CHK         CHECK NAME FOR LEGALITY                             FTN          380     A     
 FTN                NZ     X6,ARGL1    IF NOT L=0                                          FTN          381     A     
 FTN                SA6    CP.LISTF                                                        FTN          382     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FTN          383     A     
 FTN                                                                                       FTN          384     A     
 FTN       ARGL1    SA2    FV.OUT                                                          FTN          385          I
          -FCC2125
 FTN       ARGL1    SA2    FVTBL+1     POINT TO FV.OUT.                                    FCC2125       42     A     
 FTN                RJ     CFN         CHANGE FILE NAME                                    FTN          386     A     
 FTN                SX6    1                                                               FTN          387     A     
 FTN                SA6    CP.LISTF    SET LIST ON                                         FTN          388     A     
 FTN                EQ     ARG30                                                           FTN          389     A     
 FTN                                                                                       FTN          390     A     
 FTN      **        PROCESS LCM OPTION - LCM=I OR LCM=D.                                   FTN          391     A     
 FTN                                                                                       FTN          392     A     
 FTN       ARG=LCM  NZ     X3,ARGLCM1  IF NO =                                             FTN          393     A     
 FTN                RJ     GAV         GET ARGUMENT VALUE                                  FTN          394     A     
 FTN                ZR     X6,E.ME                                                         FTN          395     A     
 FTN       ARGLCM1  LX6    CHAR                                                            FTN          396     A     
 FTN                SX2    1RD                                                             FTN          397     A     
 FTN                IX3    X6-X2                                                           FTN          398     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 521    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                NZ     X3,ARGLCM2  IF NOT D                                            FTN          399     A     
 FTN                SX6    OFF                                                             FTN          400     A     
 FTN                SA6    DIRECT                                                          FTN          401     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FTN          402     A     
 FTN                                                                                       FTN          403     A     
 FTN       ARGLCM2  SX2    1RI                                                             FTN          404     A     
 FTN                IX3    X6-X2                                                           FTN          405     A     
 FTN                NZ     X3,E.LCM    IF NOT I EITHER                                     FTN          406     A     
 FTN                MX6    1                                                               FTN          407     A     
 FTN                SA6    DIRECT                                                          FTN          408     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FTN          409     A     
 FTN                                                                                       FTN          410     A     
 FTN      **        PROCESS M OPTION - M        (CYBER 76 ONLY)                            FTN          411     A     
 FTN                                                                                       FTN          412     A     
 FTN       .T       IFNE   TEST,0                                                          FTN          413     A     
 FTN       #RM      IFEQ   OT#RM,7                                                         FTN          414     A     
 FTN       ARG=M    ZR     X3,E.EN     IF M EQUIVALENCED                                   FTN          415     A     
 FTN                SA6    OT.RM       SET TO ZR FOR 6RM OBJECT TIME I/O                   FTN          416     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FTN          417     A     
 FTN       #RM      ENDIF                                                                  FTN          418     A     
 FTN       .T       ENDIF                                                                  FTN          419     A     
 FTN                                                                                       FTN          420     A     
 FTN      **        PROCESS ML OPTION.                                                     FTN          421     A     
 FTN                                                                                       FTN          422     A     
 FTN       ARG=ML   NZ     X3,E.EQV    IF NO =                                             FTN          423          I
          -FCC0980
 FTN       ARG=ML   NZ     X3,ARG30    IF NO =                                             FCC0980       15     A     
 FTN                SB6    9*CHAR                                                          FTN          424     A     
 FTN                MX6    0                                                               FTN          425     A     
 FTN       ARGML1   RJ     GAC         GET ARGUMENT CHARACTER                              FTN          426     A     
 FTN                NZ     B4,ARGML2   IF SEPARATOR                                        FTN          427     A     
 FTN                LX4    B6                                                              FTN          428     A     
 FTN                SB6    B6-B2                                                           FTN          429     A     
 FTN                BX6    X6+X4                                                           FTN          430     A     
 FTN                PL     B6,ARGML1   IF NOT .GT. 9 CHARACTERS                            FTN          431     A     
 FTN                EQ     E.ML        ** MORE THAN 9 CHARACTERS **                        FTN          432     A     
 FTN                                                                                       FTN          433     A     
 FTN       ARGML2   SA6    CP.MODL                                                         FTN          434     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FTN          435     A     
 FTN                                                                                       FTN          436     A     
 FTN      **        PROCESS OPT OPTION - OPT=0, 1, OR 2.                                   FTN          437     A     
 FTN                                                                                       FTN          438     A     
 FTN       ARG=OPT  NZ     X3,ARGOPT1  IF NO =                                             FTN          439     A     
 FTN                RJ     GAV         GET ARGUMENT VALUE                                  FTN          440     A     
 FTN       ARGOPT1  LX6    CHAR                                                            FTN          441     A     
 FTN                SX3    X6-1R0                                                          FTN          442     A     
 FTN                MI     X3,E.OPT                                                        FTN          443     A     
 FTN                AX6    CHAR                                                            FTN          444     A     
 FTN                NZ     X6,E.OPT    IF MORE THAN 1 CHARACTER                            FTN          445     A     
 FTN                SX1    MAXOPT                                                          FTN          446          I
          -FCC2198
 FTN                MX6    X1/X3       (X6)=MIN(OPTLVL,MAXOPT)                             FTN          447          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 522    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
          -FEAT155D -FCC2198
 FTN                MX6    X1-X3       (X6)=MIN(OPTLVL,MAXOPT)                             FEAT155D      18          I
          -FCC2198
 FTN                SX6    X3-3                                                            FCC2198        4     A     
 FTN                PL     X6,E.OPT    IF OPT GT 2                                         FCC2198        5     A     
 FTN                BX6    X3                                                              FCC2198        6     A     
 FTN                SA6    CO.OLVL                                                         FTN          448     A     
 FTN                MX7    1                                                               FTN          449     A     
 FTN                SA7    OPTFLG      .MI. FOR *OPT ARG APPEARED*                         FTN          450     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FTN          451     A     
 FTN                                                                                       FTN          452     A     
 FTN      **        PROCESS P OPTION - P OR P=0                                            FTN          453     A     
 FTN                                                                                       FTN          454     A     
 FTN       ARG=P    NZ     X3,ARGP1    IF NO =                                             FTN          455     A     
 FTN                RJ     GAV                                                             FTN          456     A     
 FTN                ZR     X6,E.ME                                                         FTN          457     A     
 FTN                SX3    1R0                                                             FTN          458     A     
 FTN                LX6    CHAR                                                            FCC0980       16     A     
 FTN                IX6    X6-X3                                                           FTN          459     A     
 FTN                NZ     X6,E.NE     IF NOT P=0                                          FTN          460     A     
 FTN                MX6    1                                                               FTN          461     A     
 FTN       ARGP1    SA6    CP.PAGE                                                         FTN          462     A     
 FTN                EQ     ARG30                                                           FTN          463     A     
 FTN                                                                                       FCC0818        6     A     
 FTN      **        PROCESS PL OPTION - PL=N                                               FCC0818        7     A     
 FTN                                                                                       FCC0818        8     A     
 FTN       ARG=PL   NZ     X3,ARGPL2   IF NO =                                             FCC0818        9     A     
 FTN                SB6    10*CHAR                                                         FCC0818       10     A     
 FTN                MX6    0                                                               FCC0818       11     A     
 FTN       ARGPL1   RJ     GAC         GET ARGUMENT CHARACTER                              FCC0818       12     A     
 FTN                NZ     B4,ARGPL2   IF SEPARATOR                                        FCC0818       13     A     
 FTN                SB6    B6-B2                                                           FCC0818       14     A     
 FTN                LX4    B6                                                              FCC0818       15     A     
 FTN                BX6    X6+X4                                                           FCC0818       16     A     
 FTN                PL     B6,ARGPL1   IF NOT .GT. 10 CHARACTERS                           FCC0818       17     A     
 FTN                EQ     E.PL1       MORE THAN 10 CHARACTERS                             FCC0818       18     A     
 FTN                                                                                       FCC0818       19     A     
 FTN       ARGPL2   SA6    PLARG                                                           FCC0818       20     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FCC0818       21     A     
 FTN                                                                                       FTN          464     A     
 FTN      **        PROCESS PD OPTION  -  PD,PD=6 OR 8                                     FEAT155E      26     A     
 FTN                                                                                       FEAT155E      27     A     
 FTN       ARG=PD   NZ     X3,ARGPD1   IF NO =                                             FEAT155E      28     A     
 FTN                RJ     GAV         GET ARGUMENT VALUE                                  FEAT155E      29     A     
 FTN                ZR     X6,E.ME     IF NO ARGUMENT                                      FEAT155E      30     A     
 FTN       ARGPD1   LX6    CHAR                                                            FEAT155E      31     A     
 FTN                SX2    X6-1R6                                                          FEAT155E      32     A     
 FTN                SX1    1RS                                                             FEAT155E      33          I
          -FCC1964
 FTN                SX1    2RS                                                             FCC1964        7     A     
 FTN                SX3    6                                                               FEAT155E      34     A     
 FTN                ZR     X2,ARGPD2   IF PD = 6                                           FEAT155E      35     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 523    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SX2    X6-1R8                                                          FEAT155E      36     A     
 FTN                SX1    1RT                                                             FEAT155E      37          I
          -FCC1964
 FTN                SX1    2RT                                                             FCC1964        8     A     
 FTN                SX3    8                                                               FEAT155E      38     A     
 FTN                ZR     X2,ARGPD2   IF PD = 8                                           FEAT155E      39     A     
 FTN                EQ     E.PD                                                            FEAT155E      40     A     
 FTN       ARGPD2   AX6    CHAR                                                            FEAT155E      41     A     
 FTN                NZ     X6,E.PD     IF MORE THAN ONE CHARACTER ARGUMENT                 FEAT155E      42     A     
 FTN                LX1    -CHAR                                                           FEAT155E      43          I
          -FCC1964
 FTN                LX1    CHAR*8                                                          FCC1964        9     A     
 FTN                BX6    X1                                                              FEAT155E      44     A     
 FTN                SA6    CO.PD                                                           FEAT155E      45          I
          -FEAT155EA
 FTN                SA2    CO.PS                                                           FEAT155E      46          I
          -FEAT155EA
 FTN                SA6    CP.PD                                                           FEAT155EA      6     A     
 FTN                SA2    CP.PS                                                           FEAT155EA      7          I
          -FCCA593
 FTN                PL     X2,ARG30    IF PS ALREADY PROCESSED                             FEAT155E      47          I
          -FEAT155EA-FCCA593
 FTN                NZ     X2,ARG30    IF PS ALREADY PROCESSED                             FEAT155EA      8          I
          -FCCA593
 FTN                SX1    IP.PS                                                           FEAT155E      48          I
          -FCCA593
 FTN                SX2    IP.PD                                                           FEAT155E      49          I
          -FCCA593
 FTN                IX1    X1/X2                                                           FEAT155E      50          I
          -FCC1361X -FCCA593
 FTN                IX6    X1*X3                                                           FEAT155E      51          I
          -FCC1361X -FCCA593
 FTN                IX1    X1*X3                                                           FCC1361X      13          I
          -FCCA593
 FTN                IX6    X1/X2                                                           FCC1361X      14          I
          -FCCA593
 FTN                SA6    A2                                                              FEAT155E      52          I
          -FCCA593
 FTN                EQ     ARG30                                                           FEAT155E      53     A     
 FTN                                                                                       FEAT155E      54     A     
 FTN      **        PROCESS PS OPTION  -  PS=N                                             FEAT155E      55     A     
 FTN                                                                                       FEAT155E      56     A     
 FTN       ARG=PS   NZ     X3,E.PS     IF NO =                                             FEAT155E      57     A     
 FTN                RJ     GAV         GET ARGUMENT VALUE                                  FEAT155E      58     A     
 FTN                ZR     X6,E.ME                                                         FEAT155E      59     A     
 FTN                SA6    CO.PS                                                           FEAT155E      60          I
          -FEAT155EA
 FTN                SA6    CP.PS                                                           FEAT155EA      9     A     
 FTN                EQ     ARG30                                                           FEAT155E      61     A     
 FTN                                                                                       FEAT155E      62     A     
 FTN                NZ     X2,ARG30    IF PS ALREADY PROCESSED                             FEAT155EA     10          I
          -FCC1361X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 524    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      **        PROCESS R OPTION - R, OR R=0, 1, 2, OR 3.                              FTN          465     A     
 FTN                                                                                       FTN          466     A     
 FTN       ARG=R    NZ     X3,ARGR1    IF NO =                                             FTN          467     A     
 FTN                RJ     GAV         GET ARGUMENT VALUE                                  FTN          468     A     
 FTN                ZR     X6,E.ME                                                         FTN          469     A     
 FTN       ARGR1    LX6    CHAR                                                            FTN          470     A     
 FTN                SX3    X6-1R0                                                          FTN          471     A     
 FTN                MI     X3,E.REF                                                        FTN          472     A     
 FTN                AX6    CHAR                                                            FTN          473     A     
 FTN                NZ     X6,E.REF    IF MORE THAN 1 CHARACTER                            FTN          474     A     
 FTN                SX1    3           MAXIMUM REF LEVEL                                   FTN          475     A     
 FTN                MX6    X1/X3       (X6) = MIN(REF,MAXREF)                              FTN          476          I
          -FEAT155D 
 FTN                MX6    X1-X3       (X6)=MIN(REF,MAXREF)                                FEAT155D      19     A     
 FTN                SA6    R=FLAG      SAVE REF MAP LEVEL                                  FTN          477          I
          -FEAT121L 
 FTN                SA6    /MASTER/R=FLAG    SAVE REF MAP LEVEL                            FEAT121L      62     A     
 FTN                LX6    58          (X6)=.MI. FOR R=2,3, .PL. FOR R=0,1                 FTN          478     A     
 FTN                SA6    RSELECT                                                         FTN          479          I
          -FEAT121L 
 FTN                SA6    /MASTER/RSELECT                                                 FEAT121L      63     A     
 FTN                MI     X6,ARGR2                                                        FTN          480     A     
 FTN                MX7    0                                                               FTN          481     A     
 FTN                SA7    RSELECT     .ZR. FOR R=0 OR 1                                   FTN          482          I
          -FEAT121L 
 FTN                SA7    /MASTER/RSELECT   .ZR. FOR R=0 OR 1                             FEAT121L      64     A     
 FTN                LX6    1           (X6) = .MI. FOR R=1 (TS MODE)                       FTN          483     A     
 FTN       ARGR2    SA6    LOP=M       TS MODE VARIABLE MAP FLAG                           FTN          484          I
          -FEAT126B 
 FTN       ARGR2    SA6    /MASTER/LOP=M                                                   FEAT126B      13     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FTN          485     A     
 FTN                                                                                       FTN          486     A     
 FTN      **        PROCESS ROUND OPTION - ROUND=*/+- IN ANY COMBINATION OR 0.             FTN          487     A     
 FTN                                                                                       FTN          488     A     
 FTN       ARG=RND  ZR     X3,ARGRND1  IF AN =                                             FTN          489     A     
 FTN                SA6    ROPFLAG                                                         FTN          490     A     
 FTN                EQ     ARG30                                                           FTN          491     A     
 FTN       ARGRND1  RJ     GAC         GET NEXT CHARACTER                                  FTN          492     A     
 FTN                SX3    X4-1R0                                                          FTN          493     A     
 FTN                NZ     X3,ARGRND2  NOT ROUND=0                                         FTN          494          I
          -FCC2168
 FTN                MX6    0                                                               FTN          495     A     
 FTN                SA6    ROPFLAG                                                         FTN          496     A     
 FTN                NZ     X3,ARGRND2  IF NOT *ROUND = 0*                                  FCC2168        5     A     
 FTN                RJ     GAC                                                             FTN          497     A     
 FTN                ZR     B4,E.RND                                                        FTN          498     A     
 FTN                EQ     ARG30                                                           FTN          499     A     
 FTN                                                                                       FTN          500     A     
 FTN       ARGRND2  ZR     B4,E.RND    ALPHANUMERIC ILLEGAL                                FTN          501     A     
 FTN                MI     B4,ARG      EXIT TERMINATOR                                     FTN          502          I
          -FCC2125
 FTN                MI     B4,ARG30                                                        FCC2125       43     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 525    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SX3    X4-1R/-1                                                        FTN          503     A     
 FTN                PL     X3,ARG30    SEPERATOR                                           FTN          504     A     
 FTN                SA2    ROPFLAG                                                         FTN          505     A     
 FTN                BX4    -X4                                                             FTN          506     A     
 FTN                SX3    B1                                                              FTN          507     A     
 FTN                SB6    X4+59       59-1RCHAR                                           FTN          508     A     
 FTN                LX3    B6,X3                                                           FTN          509     A     
 FTN                BX6    X2+X3                                                           FTN          510     A     
 FTN                SA6    A2                                                              FTN          511     A     
 FTN                RJ     GAC                                                             FTN          512     A     
 FTN                EQ     ARGRND2                                                         FTN          513     A     
 FTN                                                                                       FTN          514     A     
 FTN      **        PROCESS S OPTION - S, S=0, S=OVL, OR S=LIB/OVL.                        FTN          515     A     
 FTN                                                                                       FTN          516     A     
 FTN       ARG=S    MX7    0           LIB = NO NAME                                       FTN          517     A     
 FTN                NZ     X3,ARGS1    IF NO =                                             FTN          518     A     
 FTN                RJ     GAV         GET LIB OR OVL                                      FTN          519     A     
 FTN                ZR     X6,E.ME                                                         FTN          520     A     
 FTN                RJ     CHK                                                             FTN          521     A     
 FTN                SB7    B1+B1        FOR SLASH TEST                                     FTN          522     A     
 FTN                NE     B7,B4,ARGS1  IF NO /                                            FTN          523     A     
 FTN                BX7    X6          SET LIBRARY NAME                                    FTN          524     A     
 FTN                RJ     GAV         GET OVERLAY NAME                                    FTN          525     A     
 FTN       ARGS1    NZ     X6,ARGS2  IF NOT S OR S=0                                       FTN          526     A     
 FTN                SA6    CP.LIB      SET *S=0* FLAG                                      FTN          527     A     
 FTN                EQ     ARG30                                                           FTN          528     A     
 FTN                                                                                       FTN          529     A     
 FTN       ARGS2    SA2    CP.STEXT    GET SYSTEM TEXT COUNTER                             FTN          530     A     
 FTN                SB6    X2-7                                                            FTN          531     A     
 FTN                SB7    X2+B1                                                           FTN          532     A     
 FTN                ZR     B6,E.S7     IF HAVE 7 ALREADY                                   FTN          533     A     
 FTN                SA6    A2+B7       STORE OVERLAY NAME                                  FTN          534     A     
 FTN                SA7    CP.LIB+B7   STORE FILE OR LIBRARY NAME                          FTN          535     A     
 FTN                SX6    B7                                                              FTN          536     A     
 FTN                SA6    A2          STORE UPDATED COUNT                                 FTN          537     A     
 FTN                EQ     ARG30                                                           FTN          538     A     
 FTN                                                                                       FTN          539     A     
 FTN      **        PROCESS SNAP OPTION - SNAP=MREDTINPQSAHG OR ANY COMBINATION.           FTN          540     A     
 FTN                                                                                       FTN          541     A     
 FTN       ARG=SNP  NZ     X3,ARGSNP2  IF NO =                                             FTN          542     A     
 FTN                BX6    X3                                                              FTN          543     A     
 FTN                MX7    1                                                               FTN          544     A     
 FTN       ARGSNP1  RJ     GAC                                                             FTN          545     A     
 FTN                NZ     B4,ARGSNP2  IF SEPARATOR                                        FTN          546     A     
 FTN                SB7    X4-60                                                           FTN          547     A     
 FTN                AX3    X7,B7       SET BIT 2**(59-CHARACTER)                           FTN          548     A     
 FTN                BX6    X6+X3                                                           FTN          549     A     
 FTN                EQ     ARGSNP1                                                         FTN          550     A     
 FTN                                                                                       FTN          551     A     
 FTN       ARGSNP2  SA6    CO.SNAP                                                         FTN          552     A     
 FTN                EQ     ARG30                                                           FTN          553     A     
 FTN      **        PROCESS/FLAG XT OPTION (TO WARN OF FUTURE DECOMMITTAL)                 FTN          554          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 526    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
          -FEAT126C 
 FTN                                                                                       FTN          555          I
          -FEAT126C 
 FTN       ARG=XT   SA6    GTXT        SET WARNING FLAG                                    FTN          556          I
          -FEAT126C 
 FTN                NZ     X3,ARGXT1   IF NO =                                             FTN          557          I
          -FEAT126C 
 FTN                RJ     GAV         GET ARGUMENT VALUE                                  FTN          558          I
          -FEAT126C 
 FTN                ZR     X6,E.ME     IF SEPERATOR AFTER =                                FTN          559          I
          -FEAT126C 
 FTN                RJ     CHK         CHECK NAME FOR LEGALITY                             FTN          560          I
          -FEAT126C 
 FTN       ARGXT1   SA6    CP.XNAME                                                        FTN          561          I
          -FEAT126C 
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FTN          562          I
          -FEAT126C 
 FTN                                                                                       FTN          563     A     
 FTN                                                                                       FTN          564     A     
 FTN      **        VARIOUS CELLS NEED BY THE ARGUMENT PROCESSOR.                          FTN          565     A     
 FTN                                                                                       FTN          566     A     
 FTN       ERFLAG   DATA   2RER        ERROR RECOVERY OPTION                               FEAT155J      14     A     
 FTN       PLARG    DATA   0           PLIMIT ARGUMENT                                     FTN          567     A     
 FTN       CNFLCT   DATA   0           .MI. IF CONTROL CARD OPTION CONFLICT                FTN          568     A     
 FTN       CCERR    DATA   0           .NZ. IF ANY CONTROL CARD ERRORS                     FTN          569          I
          -FEAT155H 
 FTN       BLANK9   DATA   9R                                                              FTN          570          I
          -FEAT155H 
 FTN       EXECUTE  DATA   7REXECUTE                                                       FTN          571     A     
 FTN       MASK60   DATA   60606060606060606060B                                           FTN          572     A     
 FTN       MASK40   DATA   40404040404040404040B                                           FTN          573     A     
 FTN       MASK20   DATA   20202020202020202020B                                           FTN          574     A     
 FTN       BLANKS   DATA   10H                                                             FTN          575     A     
 FTN       PRNSPY   DATA   0LPRNTSPY                                                       FTN          576     A     
 FTN       FTEXT    DATA   6LFTNMAC    NAME OF OBJECT TIME TEXT                            FTN          577     A     
 FTN       BFLAG    DATA   0           .NZ. IF B=LFN APPEARED                              FTN          578     A     
 FTN       OPTFLG   DATA   0           .MI. IF OPT ARG APPEARED                            FTN          579     A     
 FTN       PWFLAG   DATA   0           .NZ. IF PW APPEARED                                 FEAT126A      39     A     
 FTN       TSFLAG   DATA   2RTS                                                            FCC0971       12     A     
 FTN       GTXT     DATA   0           .NZ. IF GT OR XT APPEARED                           FTN          580          I
          -FEAT126C 
 FTN       CHK      EJECT                                                                  FTN          581     A     
 FTN      **        CHK -  CHECK FILE NAME FOR LEGALITY.                                   FTN          582     A     
 FTN      *                                                                                FTN          583     A     
 FTN      *         ENTRY  (X6) = NAME TO BE CHECKED (0L FORMAT).                          FTN          584     A     
 FTN      *                                                                                FTN          585     A     
 FTN      *         EXIT   (X6) = NAME, WITH ANY UNDISPLAYABLE CHARACTERS REMOVED          FTN          586     A     
 FTN      *                            IF NAME WAS *0*, REPLY IS BINARY ZERO.              FTN          587     A     
 FTN      *                TO E.LFN IF BAD NAME.                                           FTN          588     A     
 FTN      *                                                                                FTN          589     A     
 FTN      *         RULES  1.  MAXIMUM OF SEVEN CHARACTERS.                                FTN          590     A     
 FTN      *                2.  NO CHARACTER \ 60B.                                         FTN          591     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 527    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *                3.  BEGINS WITH ALPHABETIC, OR IS = 1L0.                        FTN          592          I
          -FCC1004
 FTN      *                3.  BEGINS W. ALPHABETIC (SCOPE ONLY) OR IS 1L0.                FCC1004        4     A     
 FTN      *                4.  CONTAINS NO CHARACTERS \ 1R+.                               FTN          593     A     
 FTN      *         CHARACTERS ILLEGAL BY RULE 2. WILL BE REPLACED BY CHAR-40B.            FTN          594     A     
 FTN      *         USES   X1, X2, X3, X6                                                  FTN          595     A     
 FTN      *                A1, A3                                                          FTN          596     A     
 FTN      *                ALL OTHERS PRESERVED                                            FTN          597     A     
 FTN                                                                                       FTN          598     A     
 FTN                                                                                       FTN          599     A     
 FTN       CHK      ENTRY. *                                                               FTN          600     A     
 FTN                BX2    X6                                                              FTN          601     A     
 FTN                SX1    X2                                                              FTN          602     A     
 FTN                IX6    X6-X6                                                           FTN          603     A     
 FTN                LX2    2*CHAR                                                          FTN          604     A     
 FTN                SX3    X2-2R0 +1R                                                      FTN          605     A     
 FTN                ZR     X3,CHK      IF *0*                                              FTN          606     A     
 FTN                LX2    -2*CHAR     RESTORE (X2)                                        FTN          607     A     
 FTN                                                                                       FCC1004        5     A     
 FTN       #OS      IFNE   .OS,1       IF NOT NOS                                          FCC1004        6          I
          -FCCA573
 FTN                PL     X3,E.LFN    IF FIRST CHAR NOT ALPHABETIC                        FTN          608     A     
 FTN       #OS      ENDIF                                                                  FCC1004        7          I
          -FCCA573
 FTN                                                                                       FCC1004        8     A     
 FTN                NZ     X1,E.LFN    IF MORE THAN 7 CHARS                                FTN          609     A     
 FTN                SA1    MASK60                                                          FTN          610     A     
 FTN                SA3    MASK20                                                          FTN          611     A     
 FTN                BX6    X1*X2                                                           FTN          612     A     
 FTN                IX6    X6+X3       FORCE CARRY FROM ALL NON-DISPLAYABLES.              FTN          613     A     
 FTN                LX3    2                                                               FTN          614     A     
 FTN                BX1    X3*X6       ISOLATE CARRY BITS                                  FTN          615     A     
 FTN                LX1    -1                                                              FTN          616     A     
 FTN                BX6    -X1*X2      CLEAR HI BIT OF NASTIES                             FTN          617     A     
 FTN                NZ     X1,E.LFN                                                        FTN          618     A     
 FTN                EQ     CHK         EXIT..                                              FTN          619     A     
 FTN       CCERR    SPACE  4,20                                                            FTN          620     A     
 FTN      **        CCERR - CONTROL CARD ERROR MESSAGES.                                   FTN          621     A     
 FTN      *                                                                                FTN          622     A     
 FTN      *                                                                                FTN          623     A     
 FTN      *         ERROR  TYPE,(TEXT)                                                     FTN          624     A     
 FTN      *                                                                                FTN          625     A     
 FTN      *                *TYPE*      IF BLANK ONLY *TEXT* WILL BE DISPLAYED,             FTN          626     A     
 FTN      *                            IF *A* THE BAD ARGUMENT WILL BE PRINTED             FTN          627     A     
 FTN      *                            FROM ERA.A1.                                        FTN          628     A     
 FTN      *                *TEXT*      ERROR MESSAGE TEXT -- A PERIOD WILL BE              FTN          629     A     
 FTN      *                            APPENDED BEFORE DISPLAYING.                         FTN          630     A     
 FTN      *                            TEXT IS DISPLAYED 40 CHARACTERS PER LINE.           FEAT126C      49     A     
 FTN      *                            PLEASE SPACE PROPERLY SO THAT WORDS ARE NOT         FEAT126C      50     A     
 FTN      *                            SPLIT ACROSS LINES.                                 FEAT126C      51     A     
 FTN      *                                                                                FTN          631     A     
 FTN      *         USES   X1, X2, X6                                                      FTN          632     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 528    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *                A1, A2, A6                                                      FTN          633     A     
 FTN      *                B6                                                              FTN          634     A     
 FTN      *                                                                                FTN          635     A     
 FTN      *         CALLS  MESSAGE                                                         FTN          636     A     
 FTN                                                                                       FTN          637     A     
 FTN       ERROR    MACRO  TYPE,TEXT                                                       FTN          638     A     
 FTN                LOCAL  A,B,C,D,E                                                       FTN          639          I
          -FEAT155H 
 FTN                                                                                       FTN          640          I
          -FEAT155H 
 FTN                USE    CCMSG                                                           FTN          641          I
          -FEAT155H 
 FTN       A        DATA   0                                                               FTN          642          I
          -FEAT155H 
 FTN       B        DIS    ,$ TEXT.$                                                       FTN          643          I
          -FEAT155H 
 FTN                USE    *                                                               FTN          644          I
          -FEAT155H 
 FTN                                                                                       FTN          645          I
          -FEAT155H 
 FTN                SA1    CCERR                                                           FTN          646          I
          -FEAT155H 
 FTN                NZ     X1,C        IF NOT FIRST TIME                                   FTN          647          I
          -FEAT155H 
 FTN                MESSAGE ERA.A3,,RCL                                                    FTN          648          I
          -FEAT155H 
 FTN                MX6    1                                                               FTN          649          I
          -FEAT155H 
 FTN                SA6    CCERR                                                           FTN          650          I
          -FEAT155H 
 FTN       C        BSS    0                                                               FTN          651          I
          -FEAT155H 
 FTN                                                                                       FTN          652          I
          -FEAT155H 
 FTN       .1       IFC    EQ, TYPE                                                        FTN          653          I
          -FEAT155H 
 FTN                MESSAGE B,,RCL                                                         FTN          654          I
          -FEAT155H 
 FTN       .1       ELSE                                                                   FTN          655          I
          -FEAT155H 
 FTN                SA1    ERA.A1      PICK UP BAD ARGUMENT                                FTN          656          I
          -FEAT155H 
 FTN                SB6    9*CHAR                                                          FTN          657          I
          -FEAT155H 
 FTN       D        LX2    X1,B6       BEGIN TO BLANK FILL                                 FTN          658          I
          -FEAT155H 
 FTN                AX2    9*CHAR                                                          FTN          659          I
          -FEAT155H 
 FTN                NZ     X2,E                                                            FTN          660          I
          -FEAT155H 
 FTN                SB6    B6-CHAR                                                         FTN          661          I
          -FEAT155H 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 529    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                EQ     D                                                               FTN          662          I
          -FEAT155H 
 FTN                                                                                       FTN          663          I
          -FEAT155H 
 FTN       E        SA2    BLANK9                                                          FTN          664          I
          -FEAT155H 
 FTN                AX2    B6                                                              FTN          665          I
          -FEAT155H 
 FTN                BX6    X1+X2                                                           FTN          666          I
          -FEAT155H 
 FTN                LX6    9*CHAR      GET A BLANK IN FRONT                                FTN          667          I
          -FEAT155H 
 FTN                SA6    A           STORE BLANK FILLED ARGUMENT                         FTN          668          I
          -FEAT155H 
 FTN                MESSAGE A,,RCL                                                         FTN          669          I
          -FEAT155H 
 FTN       .1       ENDIF                                                                  FTN          670          I
          -FEAT155H 
 FTN                LOCAL  A,B,B1,C,D,E                                                    FEAT155H      13     A     
 FTN                                                                                       FEAT155H      14     A     
 FTN       A        MICRO  1,,*TEXT*                                                       FEAT155H      15     A     
 FTN       C        MICRO  1,9,*TEXT*                                                      FEAT155H      16     A     
 FTN       D        MICRO  10,,*TEXT.*                                                     FEAT155H      17     A     
 FTN                                                                                       FEAT155H      18     A     
 FTN                USE    CCMSG                                                           FEAT155H      19     A     
 FTN      .1        IFC    EQ,/TYPE//                                                      FEAT155H      20     A     
 FTN       E        VFD    1/0                                                             FEAT155H      21     A     
 FTN      .1        ELSE                                                                   FEAT155H      22     A     
 FTN       E        VFD    1/1                                                             FEAT155H      23     A     
 FTN      .1        ENDIF                                                                  FEAT155H      24     A     
 FTN                                                                                       FEAT155H      25     A     
 FTN                VFD    5/0,54/9R"C"                                                    FEAT155H      26     A     
 FTN                DIS    ,*"D"*                                                          FEAT155H      27     A     
 FTN                USE    *                                                               FEAT155H      28     A     
 FTN                                                                                       FEAT155H      29     A     
 FTN                SB6    E                                                               FEAT155H      30     A     
 FTN                RJ     IEM         ISSUE ERROR MESSAGE                                 FEAT155H      31     A     
 FTN       ERROR    ENDM                                                                   FTN          671     A     
 FTN                                                                                       FTN          672     A     
 FTN      *         ERROR MESSAGE CELLS                                                    FTN          673     A     
 FTN       ERA.A1   DATA   0           BAD FIELD                                           FTN          674     A     
 FTN       ERA.A2   DIS    ,$** COMPILATION ABANDONDED.$                                   FTN          675          I
          -FCC0475
 FTN       ERA.A2   DIS    ,$** NO COMPILATION.$                                           FCC0475        6     A     
 FTN       ERA.A3   DIS    ,$** FTN CONTROL CARD ERRORS.$                                  FTN          676     A     
 FTN                                                                                       FTN          677     A     
 FTN      *         ERROR PROCESSORS                                                       FTN          678     A     
 FTN                                                                                       FTN          679     A     
 FTN                                                                                       FTN          680     A     
 FTN       E.BGO    ERROR  ,(B=0 AND GO IS INCONSISTENT)                                   FTN          681     A     
 FTN                MX6    1                                                               FTN          682     A     
 FTN                SA6    CNFLCT      FLAG UNCORRECTABLE CONFLICT                         FTN          683     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 530    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                EQ     MB18                                                            FTN          684     A     
 FTN                                                                                       FTN          685     A     
 FTN       E.DC     ERROR  ,(DB IMPLIES TS -- TS MODE NOW ON)                              F66FCC       108     A     
 FTN                MX6    1                                                               F66FCC       109     A     
 FTN                SA6    CO.TS                                                           F66FCC       110     A     
 FTN                EQ     MB10A                                                           F66FCC       111     A     
 FTN                                                                                       F66FCC       112     A     
 FTN       E.DOPT   ERROR  ,(D IMPLIES OPT=0 -- OPT IGNORED)                               FTN          686     A     
 FTN                EQ     MB14                                                            FTN          687     A     
 FTN                                                                                       F66FCC       113     A     
 FTN       #FID     IFEQ   .FID,ON                                                         F66FCC       114     A     
 FTN       E.DB     ERROR  ,(DB ARG NOT 0 OR ID)                                           F66FCC       115     A     
 FTN                MX6    1                                                               F66FCC       116     A     
 FTN                SA6    CNFLCT                                                          F66FCC       117     A     
 FTN                EQ     ARG30                                                           F66FCC       118     A     
 FTN       #FID     ENDIF                                                                  F66FCC       119     A     
 FTN                                                                                       FTN          688     A     
 FTN       E.EAND   ERROR  ,(E AND B,C,GO,OL,TS,SEQ OR Q CONFLICT)                         FTN          689     A     
 FTN                MX6    1                                                               FTN          690     A     
 FTN                SA6    CNFLCT      FLAG UNCORRECTABLE CONFLICT                         FTN          691     A     
 FTN                EQ     MB16                                                            FTN          692     A     
 FTN                                                                                       FTN          693     A     
 FTN       E.EF     ERROR  ,(WARNING -- TERMINATOR MISSING)                                FTN          694     A     
 FTN                EQ     ARG                                                             FTN          695          I
          -FCC2125
 FTN                EQ     ARG30                                                           FCC2125       44     A     
 FTN                                                                                       FTN          696     A     
 FTN       E.EL     ERROR  ,(EL ARG NOT A,N,I,W OR F -- IGNORED)                           FTN          697     A     
 FTN                EQ     ERA.SK      SKIP EXCESS CHARACTERS                              FTN          698     A     
 FTN                                                                                       FTN          699     A     
 FTN       E.EN     ERROR  A,(MAY NOT BE EQUIVALENCED)                                     FTN          700     A     
 FTN                MX6    1                                                               FTN          701     A     
 FTN                SA6    CNFLCT      FLAG UNCORRECTABLE ERROR                            FTN          702     A     
 FTN                SB7    B0                                                              FTN          703     A     
 FTN                RJ     GAV         SKIP FILE NAME                                      FTN          704     A     
 FTN                EQ     ARG30                                                           FTN          705     A     
 FTN                                                                                       FTN          706     A     
 FTN       E.EQV    ERROR  A,(MUST BE EQUIVALENCED --        IGNORED)                      FTN          707     A     
 FTN                EQ     ARG30                                                           FTN          708     A     
 FTN                                                                                       FTN          709     A     
 FTN       #FID     IFEQ   .FID,ON                                                         F66FCC       120     A     
 FTN       E.ERDB   ERROR  ,(INTERACTIVE DEBUG IMPILES ER OPTION)                          F66FCC       121     A     
 FTN                MX6    1                                                               F66FCC       122     A     
 FTN                SA6    CNFLCT                                                          F66FCC       123     A     
 FTN                EQ     MB19                                                            F66FCC       124     A     
 FTN       #FID     ENDIF                                                                  F66FCC       125     A     
 FTN                                                                                       F66FCC       126     A     
 FTN      E.FER     SB3    10          TEN CHAR PER WORD                                   FCC2170        7     A     
 FTN                SB2    0           CHAR COUNTER                                        FCC2170        8     A     
 FTN                MX0    -6          CHAR MASK                                           FCC2170        9     A     
 FTN      E.FER1    GE     B2,B3,E.FER2   IF B2 GT 10 EXIT FROM LOOP                       FCC2170       10     A     
 FTN                LX4    6                                                               FCC2170       11     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 531    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SB2    B2+B1       INCREMENT CHAR COUNTER                              FCC2170       12     A     
 FTN                BX3    X0*X4       MASK OFF ONE CHAR                                   FCC2170       13     A     
 FTN                NZ     X3,E.FER1   IF NON-ZERO,LOOP AGAIN                              FCC2170       14     A     
 FTN                SX3    55B                                                             FCC2170       15     A     
 FTN                BX4    X4+X3       REPLACE ZERO WITH BLANK                             FCC2170       16     A     
 FTN                EQ     E.FER1      REPLACE MORE ZERO WITH BLANK                        FCC2170       17     A     
 FTN                                                                                       FCC2170       18     A     
 FTN      E.FER2    BX6    X5                                                              FCC2170       19     A     
 FTN                SA6    ERA.A1      LISTS FILES IN CONFLICT                             FCC2170       20     A     
 FTN                ERROR  A,(IS USED FOR MORE THAN ONE OPTION)                            FCC2170       21     A     
 FTN                MX6    1                                                               FCC2170       22     A     
 FTN                SA6    CNFLCT                                                          FCC2170       23     A     
 FTN                EQ     MB19                                                            FCC2170       24     A     
 FTN                                                                                       FCC2170       25     A     
 FTN       E.FM     ERROR  A,(IS UNRECOGNIZABLE -- IGNORED)                                FTN          710     A     
 FTN                EQ     ARG30                                                           FTN          711     A     
 FTN                                                                                       FTN          712     A     
 FTN       E.F7     SA6    ERA.A1                                                          FTN          713     A     
 FTN                ERROR  A,(IS MORE THAN 7 CHARACTERS --   EXCESS IGNORED)               FTN          714     A     
 FTN                EQ     GAV8                                                            FTN          715     A     
 FTN                                                                                       FTN          716     A     
 FTN       E.IN     ERROR  ,(INPUT FILE MAY NOT BE SUPPRESSED --      IGNORED)             FTN          717     A     
 FTN                EQ     ARG30                                                           FTN          718     A     
 FTN                                                                                       FTN          719     A     
 FTN       E.LCM    ERROR  ,(ONLY LCM=I OR LCM=D IS ALLOWED)                               FTN          720     A     
 FTN                MX6    1                                                               FTN          721     A     
 FTN                SA6    CNFLCT      FLAG UNCORRECTABLE ERROR                            FTN          722     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FTN          723     A     
 FTN                                                                                       FTN          724     A     
 FTN       E.LFN    BX6    X2          (X6)=ILLEGAL NAME                                   FTN          725     A     
 FTN                SA6    ERA.A1                                                          FTN          726     A     
 FTN                ERROR  A,(IS AN ILLEGAL FILE NAME)                                     FTN          727     A     
 FTN                MX6    1                                                               FTN          728     A     
 FTN                SA6    CNFLCT      FLAG UNCORRECTABLE ERROR                            FTN          729     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FTN          730     A     
 FTN                                                                                       FTN          731     A     
 FTN       E.ME     ERROR  ,(= WITH NO FOLLOWING VALUE -- IGNORED)                         FTN          732     A     
 FTN                EQ     ARG30                                                           FTN          733     A     
 FTN                                                                                       FTN          734     A     
 FTN       E.ML     ERROR  ,(ML ARG IS MORE THAN 9 CHARACTERS --      EXCESS IGNOR         FTN          735     A     
 FTN      ,ED)                                                                             FTN          736     A     
 FTN                EQ     ERA.SK      SKIP EXCESS CHARACTERS                              FTN          737     A     
 FTN                                                                                       FTN          738     A     
 FTN       #RM      IFEQ   OT#RM,7                                                         FTN          739     A     
 FTN       E.MTSC   ERROR  ,(M WITH TS OR C OPTIONS IS NOT ALLOWED)                        FTN          740          I
          -F162FTNA 
 FTN       E.MTS    ERROR  ,(M OPTION NOT ALLOWED WITH TS)                                 F162FTNA     360     A     
 FTN                MX6    1                                                               FTN          741     A     
 FTN                SA6    CNFLCT      FLAG UNCORRECTABLE CONFLICT                         FTN          742     A     
 FTN                EQ     MB19                                                            FTN          743          I
          -F162FTNA 
 FTN                EQ     MB19B                                                           F162FTNA     361     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 532    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       #RM      ENDIF                                                                  FTN          744     A     
 FTN                                                                                       FTN          745     A     
 FTN       E.NE     ERROR  A,(MAY ONLY BE EQUIV TO 0 --      IGNORED)                      FTN          746     A     
 FTN                EQ     ARG30                                                           FTN          747     A     
 FTN                                                                                       FTN          748     A     
 FTN       E.OPT    ERROR  ,(OPT LEVEL NOT 0, 1, OR 2 -- IGNORED)                          FTN          749     A     
 FTN                EQ     ARG30                                                           FTN          750     A     
 FTN                                                                                       FTN          751     A     
 FTN       E.PD     ERROR  ,(PD ARGUMENT NOT 6 OR 8  --  IGNORED)                          FEAT155E      63     A     
 FTN                SX6    IP.PD/2+20B 1RS OR 1RT                                          FCCA422       13          I
          -FCCA473
 FTN                LX6    9*CHAR      1LS OR 1LT                                          FCCA422       14          I
          -FCCA473
 FTN                SX6    IP.PD/2                                                         FCCA473        4          I
          -FCCA593
 FTN                LX6    6           2RS OR 2RT WITH A BLANK IS ADDED                    FCCA473        5          I
          -FCCA593
 FTN                SX6    X6+2055B                                                        FCCA473        6          I
          -FCCA593
 FTN                LX6    8*CHAR      2LS OR 2LT                                          FCCA473        7          I
          -FCCA593
 FTN                SA6    CP.PD       SET PD OPTION                                       FCCA422       15          I
          -FCCA593
 FTN                EQ     ARG30                                                           FEAT155E      64     A     
 FTN                                                                                       FEAT155E      65     A     
 FTN       E.PL     ERROR  ,(INVALID NUMERIC FIELD IN PL ARG --       IGNORED)             FTN          752     A     
 FTN                EQ     MIB5C                                                           FTN          753     A     
 FTN                                                                                       FCC0818       22     A     
 FTN       E.PL1    ERROR  ,(PL ARG IS TOO LONG -- EXCESS IGNORED)                         FCC0818       23     A     
 FTN                EQ     ERA.SK      SKIP EXCESS CHARACTERS                              FCC0818       24     A     
 FTN                                                                                       FTN          754     A     
 FTN       E.PS     ERROR  ,(MISSING NUMERIC FIELD IN PS ARGUMENT  --  IGNORED)            FEAT155E      66     A     
 FTN                SX6    IP.PS                                                           FCCA422       16          I
          -FCCA593
 FTN                SA6    CP.PS                                                           FCCA422       17          I
          -FCCA593
 FTN                EQ     ARG30                                                           FEAT155E      67     A     
 FTN                                                                                       FEAT155E      68     A     
 FTN       E.PS1    ERROR  ,(INVALID NUMERIC FIELD IN PS ARGUMENT  --  IGNORED)            FEAT155E      69     A     
 FTN                SX6    IP.PS                                                           FCCA422       18          I
          -FCCA593
 FTN                BX7    -X6                                                             FCCA422       19          I
          -FCCA593
 FTN                SA7    CP.PS       NEGATE CP.PS FOR *COMPASS* USE                      FCCA422       20          I
          -FCCA593
 FTN                SX6    X6-3                                                            FCCA422       21          I
          -FCCA593
 FTN                SA6    LCP.PS      SUBTRACT 3 FOR HEADER FOR LOCAL USE                 FCCA422       22          I
          -FCCA593
 FTN                EQ     MIB3C                                                           FEAT155E      70          I
          -FCCA410  -FCCA593
 FTN                EQ     MIB3D                                                           FCCA410       12          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 533    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
          -FCCA593
 FTN                EQ     MIB3B                                                           FCCA593       13     A     
 FTN                                                                                       FEAT155E      71     A     
 FTN       E.PS2    ERROR  ,(PS .LT. 4 -- IGNORED)                                         FEAT155EA     11     A     
 FTN                SX6    IP.PS                                                           FEAT155EA     12          I
          -FCCA422
 FTN                SA6    CP.PS                                                           FEAT155EA     13          I
          -FCCA422
 FTN                SX6    IP.PS                                                           FCCA422       23          I
          -FCCA593
 FTN                BX7    -X6                                                             FCCA422       24          I
          -FCCA593
 FTN                SA7    CP.PS       NEGATE CP.PS FOR *COMPASS* USE                      FCCA422       25          I
          -FCCA593
 FTN                SX6    X6-3                                                            FCCA422       26          I
          -FCCA593
 FTN                SA6    LCP.PS      SUBTRACT 3 FOR HEADER FOR LOCAL USE                 FCCA422       27          I
          -FCCA593
 FTN                EQ     MIB3C                                                           FEAT155EA     14          I
          -FCCA410  -FCCA593
 FTN                EQ     MIB3D                                                           FCCA410       13          I
          -FCCA593
 FTN                EQ     MIB3B                                                           FCCA593       14     A     
 FTN                                                                                       F162FTNA     362     A     
 FTN       E.PW     ERROR  ,(PW IMPLIES TS -- TS MODE NOW ON)                              FCC0826        4     A     
 FTN                MX6    1                                                               FCC0826        5     A     
 FTN                SA6    TSFLAG                                                          FCC0826        6          I
          -FCC0971
 FTN                SA6    CO.TS                                                           FCC0971       13     A     
 FTN                EQ     MB11                                                            FCC0826        7     A     
 FTN                                                                                       FCC0826        8     A     
 FTN       E.PW1    ERROR  ,(PW NOT .GE. 50 OR .LE. 136 -- IGNORED)                        FCC0826        9     A     
 FTN                MX6    0                                                               FCC0826       10     A     
 FTN                EQ     MIB2                                                            FCC0826       11     A     
 FTN                                                                                       FCC0826       12     A     
 FTN       E.QAND   ERROR  ,(Q AND B,C,GO,OL,TS OR SEQ CONFLICT)                           FTN          755     A     
 FTN                MX6    1                                                               FTN          756     A     
 FTN                SA6    CNFLCT      FLAG UNCORRECTABLE CONFLICT                         FTN          757     A     
 FTN                EQ     MB17                                                            FTN          758     A     
 FTN                                                                                       FTN          759     A     
 FTN       E.REF    ERROR  ,(R ARGUMENT NOT 0, 1, 2 OR 3 -- IGNORED)                       FTN          760     A     
 FTN                EQ     ARG30                                                           FTN          761     A     
 FTN                                                                                       FTN          762     A     
 FTN       E.RND    ERROR  ,(ROUND ARG NOT +-*/ OR 0 -- IGNORED)                           FTN          763     A     
 FTN                EQ     ERA.SK                                                          FTN          764     A     
 FTN                                                                                       F162FTNA     363     A     
 FTN       #RM      IFEQ   OT#RM,7                                                         F162FTNA     364     A     
 FTN       E.STAT   ERROR  ,(STATIC NOT ALLOWED WITH 7RM/SCOPE 2.......IGNORED)            F162FTNA     365     A     
 FTN                EQ     MB19B                                                           F162FTNA     366     A     
 FTN       #RM      ENDIF                                                                  F162FTNA     367     A     
 FTN                                                                                       FTN          765     A     
 FTN       E.SEQPW  ERROR  ,(PW AND SEQ IMPLY TS)                                          FCC0971       14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 534    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                MX6    1                                                               FCC0971       15     A     
 FTN                SA6    CNFLCT                                                          FCC0971       16     A     
 FTN                EQ     MB13                                                            FCC0971       17     A     
 FTN                                                                                       FCC0971       18     A     
 FTN       E.SP     ERROR  ,(INVALID NUMERIC FIELD IN SPY ARGUMENT)                        FTN          766     A     
 FTN                EQ     END3        ABORT                                               FTN          767          I
          -FEAT155H 
 FTN                EQ     END2        ABORT                                               FEAT155H      32     A     
 FTN                                                                                       FTN          768     A     
 FTN       E.SW     ERROR  ,(SPY BINWIDTH MUST BE A POWER OF TWO)                          FTN          769     A     
 FTN                EQ     END3        ABORT                                               FTN          770          I
          -FEAT155H 
 FTN                EQ     END2        ABORT                                               FEAT155H      33     A     
 FTN                                                                                       FTN          771     A     
 FTN       E.S7     ERROR  ,(MORE THAN 7 SYSTEMS TEXTS SPECIFIED)                          FTN          772     A     
 FTN                MX6    1                                                               FTN          773     A     
 FTN                SA6    CNFLCT      FLAG UNCORRECTABLE ERROR                            FTN          774     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FTN          775     A     
 FTN                                                                                       FTN          776     A     
 FTN       E.TSDC   ERROR  ,(TS AND D OR C NOT ALLOWED)                                    FTN          777          I
          -FCCA532
 FTN       E.TSDC   ERROR  ,(TS AND D OR C OR PMD NOT ALLOWED)                             FCCA532        4     A     
 FTN                MX6    1                                                               FTN          778     A     
 FTN                SA6    CNFLCT      FLAG UNCORRECTABLE CONFLICT                         FTN          779     A     
 FTN                EQ     MB12                                                            FTN          780          I
          -FCC0971
 FTN                EQ     MB12A                                                           FCC0971       19     A     
 FTN                                                                                       FTN          781     A     
 FTN       E.TSEQ   ERROR  ,(SEQ IMPLIES TS -- TS MODE NOW ON)                             FTN          782     A     
 FTN                MX6    1                                                               FTN          783     A     
 FTN                SA6    TSFLAG                                                          FTN          784          I
          -FCC0971
 FTN                EQ     MB11                                                            FTN          785          I
          -FCC0971
 FTN                SA6    CO.TS                                                           FCC0971       20     A     
 FTN                EQ     MB12A                                                           FCC0971       21     A     
 FTN                                                                                       FTN          786     A     
 FTN       E.TSOPT  ERROR  ,(TS MODE HAS NO OPT LEVELS -- OPT ARG     IGNORED)             FTN          787          I
          -FCC0971
 FTN                EQ     MB13                                                            FTN          788          I
          -FCC0475  -FCC0971
 FTN                EQ     MB15                                                            FCC0475        7          I
          -FCC0971
 FTN                                                                                       FTN          789          I
          -FCC0971
 FTN       E.TSOPT  ERROR  ,(TS AND OPT ARE CONFLICTING OPTIONS)                           FCC0971       22     A     
 FTN                MX6    1                                                               FCC0971       23     A     
 FTN                SA6    CNFLCT                                                          FCC0971       24     A     
 FTN                EQ     MB13                                                            FCC0971       25     A     
 FTN                                                                                       FCC0971       26     A     
 FTN       E.TSMD   ERROR  ,(NOT CONFIGURED FOR TS=0 -- IGNORED)                           FTN          790     A     
 FTN                MX6    1                                                               FTN          791     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 535    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SA6    TSFLAG                                                          FTN          792     A     
 FTN                EQ     MB11                                                            FTN          793          I
          -FCC2436
 FTN                EQ     MB12                                                            FCC2436        7     A     
 FTN                                                                                       FEAT126A      40          I
          -FCC0826
 FTN       E.PW     ERROR  ,(PW IMPLIES TS -- TS MODE NOW ON)                              FEAT126A      41          I
          -FCC0826
 FTN                MX6    1                                                               FEAT126A      42          I
          -FCC0826
 FTN                SA6    TSFLAG                                                          FEAT126A      43          I
          -FCC0826
 FTN                EQ     MB11                                                            FEAT126A      44          I
          -FCC0826
 FTN                                                                                       FEAT126A      45          I
          -FCC0826
 FTN       E.PW1    ERROR  ,(PW NOT .GE. 50 OR .LE. 136 -- IGNORED)                        FEAT126A      46          I
          -FCC0826
 FTN                MX6    0                                                               FEAT126A      47          I
          -FCC0826
 FTN                EQ     MIB2                                                            FEAT126A      48          I
          -FCC0826
 FTN                                                                                       FTN          794     A     
 FTN       E.UC     MESSAGE ERA.A2,,RCL      COMPILATION ABANDONED                         FTN          795     A     
 FTN                MX6    0                                                               FTN          796     A     
 FTN                SA6    GOFLAG      INHIBIT LOAD AND GO                                 FTN          797     A     
 FTN                SA1    CER.FL                                                          FCC2104       11     A     
 FTN                SX6    1                                                               FCC2104       12     A     
 FTN                SA6    A1                                                              FCC2104       13     A     
 FTN                EQ     ENDFTN                                                          FTN          798     A     
 FTN                                                                                       FEAT126C      52     A     
 FTN       E.UO     ERROR  ,(UO WITHOUT OPT=2 IGNORED)                                     FEAT126C      53     A     
 FTN                MX6    0                                                               FEAT126C      54     A     
 FTN                SA6    UOFLAG                                                          FEAT126C      55     A     
 FTN                EQ     MB15A                                                           FEAT126C      56     A     
 FTN                                                                                       FTN          799          I
          -FEAT126C 
 FTN       E.GTXT   ERROR  ,(NOTE - GT AND XT WILL NOT BE RECOGNIZED AT NEXT RELEA         FTN          800          I
          -FEAT126C 
 FTN      ,SE.  USE G AND X OPTIONS)                                                       FTN          801          I
          -FEAT126C 
 FTN                EQ     MB20                                                            FTN          802          I
          -FEAT126C 
 FTN                                                                                       FTN          803     A     
 FTN                USE    CCMSG                                                           FEAT155H      34     A     
 FTN                BSS    1                                                               FEAT155H      35     A     
 FTN      ERBUF     BSS    8                                                               FEAT155H      36     A     
 FTN                BSS    1                                                               FEAT155H      37     A     
 FTN                USE    *                                                               FEAT155H      38     A     
 FTN                                                                                       FEAT155H      39     A     
 FTN                PURGMAC ERROR                                                          FTN          804     A     
 FTN                                                                                       FTN          805     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 536    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      **        ROUTINE TO SKIP EXCESS CHARACTERS UNTIL SEPERATOR.                     FTN          806     A     
 FTN      *                                                                                FTN          807     A     
 FTN       ERA.SK   RJ     GAC         SKIP EXCESS CHARS UNTIL SEPARATOR                   FTN          808     A     
 FTN                ZR     B4,ERA.SK                                                       FTN          809     A     
 FTN                EQ     ARG30       LOOP FOR NEXT ARGUMENT                              FTN          810     A     
 FTN                                                                                       FEAT155H      40     A     
 FTN       IEM      ENTRY. *           ISSUE ERROR MESSAGE                                 FEAT155H      41     A     
 FTN                SA2    ERA.A3                                                          FEAT155H      42     A     
 FTN                ZR     X2,IEM1     IF NOT FIRST TIME                                   FEAT155H      43     A     
 FTN                SA1    CER.FL                                                          FCC2104       14          I
          -FCC2253
 FTN                SX6    1                                                               FCC2104       15          I
          -FCC2253
 FTN                SA6    A1                                                              FCC2104       16          I
          -FCC2253
 FTN                MESSAGE ERA.A3,,RCL                                                    FEAT155H      44     A     
 FTN                MX6    0                                                               FEAT155H      45     A     
 FTN                SA6    A2                                                              FEAT155H      46     A     
 FTN       IEM1     SA3    B6                                                              FEAT155H      47     A     
 FTN                SA6    ERBUF-1                                                         FEAT155H      48     A     
 FTN                PL     X3,IEM2     IF NOTHING IN ERA.A1                                FEAT155H      49     A     
 FTN                SA1    ERA.A1      PICK UP BAD ARGUMENT                                FEAT155H      50     A     
 FTN                SA2    MASK40                                                          FEAT155H      51     A     
 FTN                SX6    B1                                                              FEAT155H      52     A     
 FTN                IX6    X1-X6                                                           FEAT155H      53     A     
 FTN                BX1    -X6+X1                                                          FEAT155H      54     A     
 FTN                BX6    X2*X1                                                           FEAT155H      55     A     
 FTN                BX1    X6                                                              FEAT155H      56     A     
 FTN                LX1    55                                                              FEAT155H      57     A     
 FTN                SA2    BLANKS                                                          FEAT155H      58     A     
 FTN                IX1    X6-X1                                                           FEAT155H      59     A     
 FTN                IX6    X6+X1                                                           FEAT155H      60     A     
 FTN                SA1    ERA.A1                                                          FEAT155H      61     A     
 FTN                BX2    -X6*X2                                                          FEAT155H      62     A     
 FTN                IX6    X1+X2                                                           FEAT155H      63     A     
 FTN                LX6    54          POSITION BLANK IN FRONT                             FEAT155H      64     A     
 FTN                SA6    A6+B1                                                           FEAT155H      65     A     
 FTN                SA3    B6                                                              FEAT155H      66     A     
 FTN                                                                                       FEAT155H      67     A     
 FTN       IEM2     MX2    -12                                                             FEAT155H      68     A     
 FTN                MX1    CHAR                                                            FEAT155H      69     A     
 FTN       IEM3     BX6    -X1*X3                                                          FEAT155H      70     A     
 FTN                SA3    A3+B1                                                           FEAT155H      71     A     
 FTN                BX7    X1*X3                                                           FEAT155H      72     A     
 FTN                BX6    X6+X7                                                           FEAT155H      73     A     
 FTN                LX6    CHAR                                                            FEAT155H      74     A     
 FTN                SA6    A6+B1                                                           FEAT155H      75     A     
 FTN                BX7    -X2*X3                                                          FEAT155H      76     A     
 FTN                NZ     X3,IEM3     IF MOVE NOT COMPLETE                                FEAT155H      77          I
          -FCC1902
 FTN                NZ     X7,IEM3     IF MOVE NOT COMPLETE                                FCC1902        4     A     
 FTN                BX6    -X1*X3                                                          FEAT155H      78     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 537    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                LX6    CHAR                                                            FEAT155H      79     A     
 FTN                SA6    A6+B1                                                           FEAT155H      80     A     
 FTN                                                                                       FEAT155H      81     A     
 FTN                MESSAGE ERBUF,,RCL                                                     FEAT155H      82     A     
 FTN                EQ     IEM                                                             FEAT155H      83     A     
 FTN       GAC      EJECT  4,15                                                            FTN          811     A     
 FTN      **        GAC - GET ARGUMENT CHARACTER.                                          FTN          812     A     
 FTN      *                                                                                FTN          813     A     
 FTN      *         ENTRY  (X0) = MASK -6.                                                 FTN          814     A     
 FTN      *                (X5) = CURRENT WORD OF CARD IMAGE.                              FTN          815     A     
 FTN      *                (A0) = 10.                                                      FTN          816     A     
 FTN      *                (A5) = ADDRESS OF (X5).                                         FTN          817     A     
 FTN      *                (B3) = $ MODE,  -1 = NORMAL,  0 = QUOTE MODE.                   FTN          818     A     
 FTN      *                (B5) = NUMBER OF CHARACTERS REMAINING IN (X5).                  FTN          819     A     
 FTN      *                                                                                FTN          820     A     
 FTN      *         EXIT   (X4) = CHARACTER.                                               FTN          821     A     
 FTN      *                (B4) = CHARACTER TYPE,  -1 = TERMINATOR,  0 = ALPHANUM          FTN          822     A     
 FTN      *                            +1 = SEPARATOR,  +2 = /, +3 = =.                    FTN          823     A     
 FTN      *                (X5, A5, B3, B5)  UPDATED.                                      FTN          824     A     
 FTN      *                (X0, X6, X7, A0, A4, A7, B2, B6, B7)  PRESERVED.                FTN          825     A     
 FTN      *                                                                                FTN          826     A     
 FTN      *         CALLS  SYS=, MSG=.                                                     FTN          827     A     
 FTN                                                                                       FTN          828     A     
 FTN                                                                                       FTN          829     A     
 FTN       GAC      ENTRY. *           ENTRY/EXIT                                          FTN          830     A     
 FTN       GAC1     ZR     B5,GAC5     IF (X5) IS EMPTY                                    FTN          831     A     
 FTN                LX5    CHAR                                                            FTN          832     A     
 FTN                SB5    B5-B1       EXTRACT NEXT CHARACTER                              FTN          833     A     
 FTN                BX4    -X0*X5                                                          FTN          834     A     
 FTN                SB4    X4-1R$                                                          FTN          835     A     
 FTN                ZR     B4,GAC3     IF $                                                FTN          836     A     
 FTN                ZR     B3,GAC4     IF IN QUOTE MODE                                    FTN          837     A     
 FTN                SB4    B0                                                              FTN          838     A     
 FTN                MI     B3,GAC2     IF NOT LEAVING QUOTE MODE                           FTN          839     A     
 FTN                SB3    -B1                                                             FTN          840     A     
 FTN       GAC2     SX2    X4-1R9-1    CLASSIFY CHARACTER                                  FTN          841     A     
 FTN                SX3    X4-1R.-1                                                        FTN          842     A     
 FTN                MI     X2,GAC      IF ALPHANUMERIC                                     FTN          843     A     
 FTN                SB4    B1                                                              FTN          844     A     
 FTN                LX2    2                                                               FTN          845     A     
 FTN                PL     X3,GAC      IF NON-DISPLAY                                      FTN          846     A     
 FTN                SA3    GACA                                                            FTN          847     A     
 FTN                SB4    X2                                                              FTN          848     A     
 FTN                LX2    X3,B4       GET CHARACTER TYPE CODE                             FTN          849     A     
 FTN                AX2    -4                                                              FTN          850     A     
 FTN                SB4    X2                                                              FTN          851     A     
 FTN                NZ     X2,GAC      IF NOT BLANK                                        FTN          852     A     
 FTN                PL     X2,GAC                                                          FTN          853     A     
 FTN                EQ     GAC1        IGNORE BLANK                                        FTN          854     A     
 FTN                                                                                       FTN          855     A     
 FTN       GAC3     SB3    B3+B1                                                           FTN          856     A     
 FTN                LE     B3,B1,GAC1  IF NOT SECOND $ OF A PAIR IN QUOTE MODE             FTN          857     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 538    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SB3    B0                                                              FTN          858     A     
 FTN       GAC4     SB4    B0          QUOTE MODE, RETURN WITH CHARACTER TYPE = 0          FTN          859     A     
 FTN                EQ     GAC                                                             FTN          860     A     
 FTN                                                                                       FTN          861     A     
 FTN       GAC5     SA1    GACC                                                            FTN          862     A     
 FTN                SB5    A0                                                              FTN          863     A     
 FTN                ZR     X1,GAC7     IF INITIAL ENTRY                                    FTN          864     A     
 FTN                SA5    A5+B1       GET NEXT WORD                                       FTN          865     A     
 FTN                NZ     X5,GAC1     IF NOT END OF CARD                                  FTN          866     A     
 FTN                MI     X5,GAC1                                                         FTN          867     A     
 FTN                SA6    GACB        SAVE (X6)                                           FTN          868     A     
 FTN                CONTRLC GACC,READ                                                      FTN          869     A     
 FTN                SA1    RA.CCD                                                          FTN          870     A     
 FTN                NZ     X1,GAC6                                                         FTN          871     A     
 FTN                PL     X1,E.EF     IF NO MORE CONTROL CARDS                            FTN          872     A     
 FTN       GAC6     MESSAGE RA.CCD,,RCL                                                    FTN          873     A     
 FTN       GAC7     SB4    60-CHAR+1                                                       FTN          874     A     
 FTN                SA2    BLANKS                                                          FTN          875     A     
 FTN                MX6    0           STORE ZERO WORD AFTER CARD IMAGE                    FTN          876     A     
 FTN                SA6    RA.CCD+8                                                        FTN          877     A     
 FTN                BX6    X2                                                              FTN          878     A     
 FTN       GAC8     SA5    A6-B1       BLANK FILL CARD IMAGE                               FTN          879     A     
 FTN                SA6    A5                                                              FTN          880     A     
 FTN                ZR     X5,GAC8                                                         FTN          881     A     
 FTN                MX1    -1                                                              FTN          882     A     
 FTN                IX4    X5+X1                                                           FTN          883     A     
 FTN                SA2    MASK40                                                          FTN          884     A     
 FTN                BX1    -X5*X4                                                          FTN          885     A     
 FTN                BX4    X1*X2                                                           FTN          886     A     
 FTN                LX1    X4,B4                                                           FTN          887     A     
 FTN                IX2    X4-X1                                                           FTN          888     A     
 FTN                BX1    X4+X2                                                           FTN          889     A     
 FTN                BX2    X1*X6                                                           FTN          890     A     
 FTN                IX6    X5+X2                                                           FTN          891     A     
 FTN                SA6    A6                                                              FTN          892     A     
 FTN                SA1    GACB                                                            FTN          893     A     
 FTN                SA6    GACC          INDICATE NOT FIRST TIME                           FTN          894     A     
 FTN                BX6    X1          RESTORE (X6)                                        FTN          895     A     
 FTN                SA5    RA.CCD      SCAN NEW CARD                                       FTN          896     A     
 FTN                EQ     GAC1                                                            FTN          897     A     
 FTN                                                                                       FTN          898     A     
 FTN      *                  +   -   *   /   (    )   $   =   BL   ,    .                  FTN          899     A     
 FTN       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     A     
 FTN       GACB     CON    0           STORAGE FOR SAVING (X6)                             FTN          901     A     
 FTN       GACC     CON    0           STATUS WORD FOR CONTRLC + FIRST TIME FLAG           FTN          902     A     
 FTN       GAV      SPACE  4,20                                                            FTN          903     A     
 FTN      **        GAV - GET ARGUMENT VALUE.                                              FTN          904     A     
 FTN      *                                                                                FTN          905     A     
 FTN      *         ENTRY  (X0) = MASK -CHAR                                               FTN          906     A     
 FTN      *                (X5) = CURRENT WORD OF CARD IMAGE.                              FTN          907     A     
 FTN      *                (A0) = 10.                                                      FTN          908     A     
 FTN      *                (A5) = ADDRESS OF (X5).                                         FTN          909     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 539    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *                (B2) = CHAR                                                     FTN          910     A     
 FTN      *                (B3) = $ MODE.                                                  FTN          911     A     
 FTN      *                (B5) = NUMBER OF CHARACTERS REMAINING IN (X5).                  FTN          912     A     
 FTN      *                                                                                FTN          913     A     
 FTN      *         EXIT   (X6) = VALUE SCANNED, LEFT JUSTIFIED WITH 00 FILL.              FTN          914     A     
 FTN      *                (X4) = CHARACTER FOLLOWING ARGUMENT.                            FTN          915     A     
 FTN      *                (B4) = CHARACTER TYPE.                                          FTN          916     A     
 FTN      *                (X5, A5, B3, B5)  UPDATED.                                      FTN          917     A     
 FTN      *                                                                                FTN          918     A     
 FTN      *         USES   A1,A2,A3,A4,A6  B6  X1,X2,X3                                    FTN          919     A     
 FTN      *                A0,A5,A7  B2,B7  X0,X7  PRESERVED.                              FTN          920     A     
 FTN      *                                                                                FTN          921     A     
 FTN      *         IF VALUE SCANNED IS MORE THAN 7 CHARACTERS, ERROR.                     FTN          922     A     
 FTN                                                                                       FTN          923     A     
 FTN                                                                                       FTN          924     A     
 FTN       GAV      ENTRY. *           ENTRY/EXIT                                          FTN          925     A     
 FTN                MX6    0                                                               FTN          926     A     
 FTN                SB6    7*CHAR      INDICATE EMPTY ACCUMULATOR                          FTN          927     A     
 FTN                                                                                       FTN          928     A     
 FTN       GAV2     RJ     GAC         GET ARGUMENT CHARACTER                              FTN          929     A     
 FTN                NZ     B4,GAV4     IF SEPARATOR                                        FTN          930     A     
 FTN                LX4    B6                                                              FTN          931     A     
 FTN                SB6    B6-B2                                                           FTN          932     A     
 FTN                BX6    X6+X4                                                           FTN          933     A     
 FTN                PL     B6,GAV2     LOOP                                                FTN          934     A     
 FTN                LX6    2*CHAR      LEFT JUSTIFY VALUE                                  FTN          935     A     
 FTN                EQ     E.F7        MORE THAN 7 CHARACTERS (RETURN GAV8)                FTN          936     A     
 FTN                                                                                       FTN          937     A     
 FTN       GAV4     LX6    2*CHAR      LEFT JUSTIFY VALUE                                  FTN          938     A     
 FTN                EQ     GAV                                                             FTN          939     A     
 FTN                                                                                       FTN          940     A     
 FTN       GAV8     RJ     GAC         SKIP EXCESS CHARS UNTIL SEPARATOR                   FTN          941     A     
 FTN                ZR     B4,GAV8                                                         FTN          942     A     
 FTN                SA1    ERA.A1                                                          FTN          943     A     
 FTN                BX6    X1          RESTORE (X6) = FIRST 7 CHARACTERS OF ARG            FTN          944     A     
 FTN                EQ     GAV                                                             FTN          945     A     
 FTN       CFF      EJECT                                                                  FTN          946     A     
 FTN      **        CFF - CHANGE FILE NAME IN FET/FIT.                                     FTN          947     A     
 FTN      *                                                                                FTN          948     A     
 FTN      *         (RECORD MGR OFF) - CHANGES OR CLEARS FILE NAME IN FET.                 FTN          949     A     
 FTN      *         FOR A NAME CHANGE, THE EXISTING FET FILE MODE BIT IS RETAINED          FTN          950     A     
 FTN      *         AND THE CIO COMPLETE BIT IS SET.                                       FTN          951     A     
 FTN      *         FOR A NAME CLEAR, FET WORD 1 IS CLEARED TO ZERO.                       FTN          952     A     
 FTN      *                                                                                FTN          953     A     
 FTN      *         (RECORD MGR ON) - CHANGES OR CLEARS FILE NAME IN FIT.                  FTN          954     A     
 FTN      *                                                                                FTN          955     A     
 FTN      *                                                                                FTN          956     A     
 FTN      *         ENTRY  (X2) = FET/FIT ADDRESS                                          FTN          957     A     
 FTN      *                (X6) = ACTION REQUEST--                                         FTN          958     A     
 FTN      *                       TO CLEAR,  = 0                                           FTN          959     A     
 FTN      *                       TO CHANGE, = NEW NAME, 7 CHARS MAX, LEFT ADJ             FTN          960     A     
 FTN      *                                                                                FTN          961     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 540    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *         EXIT   NAME CHANGED OR CLEARED                                         FTN          962     A     
 FTN      *                                                                                FTN          963     A     
 FTN      *         USES   X - 3, 6, 7                                                     FTN          964     A     
 FTN      *                A - 1, 3, 6                                                     FTN          965     A     
 FTN      *                B - 6                                                           FTN          966     A     
 FTN      *                                                                                FTN          967     A     
 FTN      *         CALLS  (RECORD MGR OFF) - NONE                                         FTN          968     A     
 FTN      *                (RECORD MGR ON)  - STORE                                        FTN          969     A     
 FTN                                                                                       FTN          970     A     
 FTN                                                                                       FTN          971     A     
 FTN       CFF      ENTRY. *           ** ENTRY/EXIT **                                    FTN          972     A     
 FTN                                                                                       FTN          973     A     
 FTN       #RM      IFEQ   CP#RM,0                                                         FTN          974     A     
 FTN                                                                                       FTN          975     A     
 FTN                ZR     X6,CFF2     IF NAME TO BE CLEARED                               FTN          976     A     
 FTN                SA3    X2          (X3) = FET WORD 1                                   FTN          977     A     
 FTN                SX7    2                                                               FTN          978     A     
 FTN                BX3    X7*X3       EXTRACT FILE MODE BIT                               FTN          979     A     
 FTN                SX7    X3+1        TURN CIO COMPLETE BIT ON                            FTN          980     A     
 FTN                IX6    X6+X7       42/NEW FILE NAME,16/0,1/OLD MODE BIT,1/1            FTN          981     A     
 FTN       CFF2     SA6    X2          UPDATE FET WORD 1                                   FTN          982     A     
 FTN                EQ     CFF         EXIT                                                FTN          983     A     
 FTN                                                                                       FTN          984     A     
 FTN       #RM      ELSE                                                                   FTN          985     A     
 FTN                                                                                       FTN          986     A     
 FTN                SA1    A5          SAVE (A5) AND (X5)                                  FTN          987     A     
 FTN                BX3    X5                                                              FTN          988     A     
 FTN                SB6    B5          SAVE (B5)                                           FTN          989     A     
 FTN                STORE  X2,LFN=X6   NEW NAME TO FIT                                     FTN          990     A     
 FTN                SA5    A1          RESTORE (A5) AND (X5)                               FTN          991     A     
 FTN                BX5    X3                                                              FTN          992     A     
 FTN                SB5    B6          RESTORE (B5)                                        FTN          993     A     
 FTN                EQ     CFF         EXIT                                                FTN          994     A     
 FTN                                                                                       FTN          995     A     
 FTN       #RM      ENDIF                                                                  FTN          996     A     
 FTN       CFL      EJECT                                                                  FTN          997     A     
 FTN      **        CFL - CHECK FIELD LENGTH.                                              FTN          998     A     
 FTN      *                                                                                FTN          999     A     
 FTN      *         COMPARES CURRENT FIELD LENGTH VS. MINIMUM FIELD LENGTH.                FTN         1000     A     
 FTN      *         EXITS IF CURRENT FL IS ABOVE MINIMUM.  OTHERWISE, ...                  FTN         1001          I
          -FEAT155D 
 FTN      *                                                                                FTN         1002          I
          -FEAT155D 
 FTN      *         CYBER 74 / 6700 OR SMALLER  (SCOPE 3.4 AND LATER) -                    FTN         1003          I
          -FEAT155D 
 FTN      *           ISSUES MEMORY REQUEST FOR NOMINAL FL.                                FTN         1004          I
          -FEAT155D 
 FTN      *           TESTS THAT NEW FL IS ABOVE THE MINIMUM.                              FTN         1005          I
          -FEAT155D 
 FTN      *           IF REQUEST WAS NOT ACCEPTED REQUEST IS DECREASED BY 2K               FTN         1006          I
          -FEAT155D 
 FTN      *           UNTIL REQUEST IS ACCEPTED OR FL IS LESS THAN MINIMUM.  IF            FTN         1007          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 541    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
          -FEAT155D 
 FTN      *           THE LATER OCCURS A DAYFILE MESSAGE IS ISSUED AND THE JOB             FTN         1008          I
          -FEAT155D 
 FTN      *           IS ABORTED.                                                          FTN         1009          I
          -FEAT155D 
 FTN      *                                                                                FTN         1010          I
          -FEAT155D 
 FTN      *         CYBER 75 / 7600 OR LARGER  (SCOPE 2.0 AND LATER) -                     FTN         1011          I
          -FEAT155D 
 FTN      *           CHECKS MODE OF MEMORY MANAGEMENT.                                    FTN         1012          I
          -FEAT155D 
 FTN      *           IF SYSTEM-CONTROLLED, ISSUES MEMORY REQUESTS AS ABOVE.               FTN         1013          I
          -FEAT155D 
 FTN      *           IF USER-CONTROLLED, ISSUES DAYFILE MESSAGE AND ABORTS JOB.           FTN         1014          I
          -FEAT155D 
 FTN      *                                                                                FTN         1015          I
          -FEAT155D 
 FTN      *         EXITS IF CURRENT FL IS ABOVE MINIMUM. OTHERWISE, REQUESTS              FEAT155D      20     A     
 FTN      *         FIELD LENGTH EQUAL TO THE NOMINAL FIELD LENGTH FOR THIS MODE           FEAT155D      21     A     
 FTN      *         (I.E. TS, OPT=0,1,2 OR DEBUG) OR THE MAXIMUM FOR THIS JOB              FEAT155D      22     A     
 FTN      *         STEP - WHICHEVER IS SMALLER.                                           FEAT155D      23     A     
 FTN      *                                                                                FTN         1016     A     
 FTN      *         ENTRY  (CP.AFLS) = CURRENT FL.                                         FTN         1017     A     
 FTN      *                                                                                FTN         1018     A     
 FTN      *         EXITS  NORMAL--    RETURNS TO CALLER VIA ENTRY POINT.                  FTN         1019     A     
 FTN      *                            (CP.AFLS) = NEW CURRENT FL.                         FTN         1020     A     
 FTN      *                            (CP.NFLS) = NEW CURRENT USABLE FL, ADJUSTED         FTN         1021     A     
 FTN      *                                        FOR DEBUG OPTION.                       FTN         1022     A     
 FTN      *                                                                                FTN         1023     A     
 FTN      *                ERROR--     ABORTS JOB.                                         FTN         1024     A     
 FTN      *                                                                                FTN         1025     A     
 FTN      *         USES   X - 1, 2, 6, 7                                                  FTN         1026     A     
 FTN      *                A - 1, 2, 6, 7                                                  FTN         1027     A     
 FTN      *                B - 2, 3                                                        FTN         1028     A     
 FTN      *                                                                                FTN         1029     A     
 FTN      *         CALLS  FTNEND, MEMORY, MESSAGE                                         FTN         1030     A     
 FTN                                                                                       FTN         1031     A     
 FTN                                                                                       FTN         1032     A     
 FTN       CFL2     SA1    DFLAG       DEBUG OPTION FLAG                                   FTN         1033     A     
 FTN                SX7    X6-10       LEAVE 10-WORD SAFETY ZONE                           FTN         1034     A     
 FTN                ZR     X1,CFL3     IF DEBUG OPTION OFF                                 FTN         1035     A     
 FTN                SX7    X7-S.GCON   RESERVE SPACE FOR DEBUG GLOBAL CON TABLE            FTN         1036     A     
 FTN       CFL3     SA7    CP.NFLS     UPDATE TO CURRENT UNRESERVED FL                     FTN         1037     A     
 FTN                SA6    CP.AFLS     UPDATE TO CURRENT FL                                FTN         1038     A     
 FTN                LX6    30                                                              FEAT155D      24     A     
 FTN                SA6    INT.FL      COMPILER INITIAL FIELD LENGTH                       FEAT155D      25     A     
 FTN                SA7    O.GCON      SET GLOBAL CON TABLE FWA                            FTN         1039     A     
 FTN       #MD      IFEQ   CT.CPU,76                                                       FTN         1040          I
          -F7540FT
 FTN                                                                                       F7540FT       29     A     
 FTN       #LCM     IFNE   CT.ECS,0                                                        F7540FT       30     A     
 FTN                                                                                       FTN         1041     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 542    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *         CHECK LCM FL , REQUEST SOME IF OPT .GE. 2                              FTN         1042     A     
 FTN                                                                                       FTN         1043     A     
 FTN                MEMORY LCM,LCM.MM,R                                                    FTN         1044     A     
 FTN                SA1    LCM.MM                                                          FTN         1045     A     
 FTN                BX6    X1                                                              FTN         1046     A     
 FTN                LX6    59-1        LCM.MM = 1S59 IF REDUCE MODE                        FTN         1047     A     
 FTN                SA6    A1                                                              FTN         1048     A     
 FTN                AX1    30                                                              FTN         1049     A     
 FTN                PL     X6,CFL9     IF FIXED FL MODE                                    FTN         1050     A     
 FTN                SA4    CO.OLVL                                                         FTN         1051     A     
 FTN                SX5    X4-2                                                            FTN         1052     A     
 FTN                MI     X5,CFL9     IF OPTLVL .LT. 2                                    FTN         1053     A     
 FTN                SX7    IN.LCM                                                          FTN         1054     A     
 FTN                IX3    X1-X7                                                           FTN         1055     A     
 FTN                LX7    30                                                              FTN         1056     A     
 FTN                PL     X3,CFL9     IF LCM.FL .GE. IN.LCM                               FTN         1057     A     
 FTN                SA7    GT1                                                             FTN         1058     A     
 FTN                MEMORY LCM,GT1,R,,NOABT                                                FTN         1059     A     
 FTN                SA1    GT1                                                             FTN         1060     A     
 FTN                AX1    30                                                              FTN         1061     A     
 FTN                                                                                       FTN         1062     A     
 FTN       CFL9     BX7    X1                                                              FTN         1063     A     
 FTN                SA7    CP.AFLL     CP.AFLL = LCM.FL                                    FTN         1064     A     
 FTN       #MD      ENDIF                                                                  FTN         1065          I
          -F7540FT
 FTN       #LCM     ENDIF                                                                  F7540FT       31     A     
 FTN                                                                                       FTN         1066     A     
 FTN                                                                                       FTN         1067     A     
 FTN       CFL      ENTRY. *           ** ENTRY/EXIT **                                    FTN         1068     A     
 FTN                                                                                       FTN         1069     A     
 FTN      *         CHECK CURRENT MEMORY SIZE.                                             FTN         1070     A     
 FTN                                                                                       FEAT155D      26     A     
 FTN      *         GET MAXIMUM SCM FIELD LENGTH FOR THIS JOB STEP                         FEAT155D      27     A     
 FTN                                                                                       FEAT155D      28     A     
 FTN                MEMORY SCM,MAX.FL,RCL    GET MAX FL                                    FEAT155D      29     A     
 FTN                                                                                       FTN         1071     A     
 FTN                SA1    CP.AFLS     CURRENT FIELD LENGTH                                FTN         1072     A     
 FTN                SB2    -MIN.FL     (B2) = -MIN FL FOR OPT = 0 OR 1                     FTN         1073     A     
 FTN                SX7    NOM.FL      (X7) = NOMINAL FL FOR OPT = 0 OR 1                  FTN         1074     A     
 FTN                SA2    CO.OLVL     OPT LEVEL                                           FTN         1075     A     
 FTN                SX6    X2-2                                                            FTN         1076     A     
 FTN                MI     X6,CFL1     IF OPT .LT.2                                        FTN         1077     A     
 FTN                SB2    -MIN.OFL    (B2) = -MIN.FL FOR OPT = 2 OR 3                     FTN         1078     A     
 FTN                SX7    NOM.OFL     (X7) = NOMINAL FL FOR OPT = 2 OR 3                  FTN         1079     A     
 FTN       CFL1     SA2    DFLAG       DEBUG OPTION FLAG                                   FTN         1080     A     
 FTN                ZR     X2,CFL1A    IF DEBUG OFF                                        FTN         1081     A     
 FTN                SB2    -MIN.DFL    (B2) = -MIN FL FOR DEBUG                            FTN         1082     A     
 FTN                SX7    NOM.DFL     (X7) = NOMINAL FL OF DEBUG                          FTN         1083     A     
 FTN       CFL1A    SA2    TSFLAG      TS OPTION FLAG                                      FTN         1084          I
          -FCC0971
 FTN       CFL1A    SA2    CO.TS                                                           FCC0971       27     A     
 FTN                ZR     X2,CFL1B    IF TS NOT SELECTED                                  FTN         1085     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 543    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SB2    -MIN.TFL    (B2) = -MIN FL FOR TS MODE                          FTN         1086     A     
 FTN                SX7    NOM.TFL     (X7) = NOMINAL FL FOR TS MODE                       FTN         1087     A     
 FTN       CFL1B    SB3    X1+B2       (B3) = CURRENT FL - MINIMUM FL                      FTN         1088     A     
 FTN                BX6    X1          (X6) = CURRENT FL                                   FTN         1089     A     
 FTN                PL     B3,CFL2     IF ENOUGH MEMORY                                    FTN         1090     A     
 FTN                                                                                       FTN         1091          I
          -FEAT155D 
 FTN       #OS      IFEQ   .OS,1                                                           FTN         1092          I
          -FEAT126A -FEAT155D 
 FTN       #OS      IFEQ   .OS,2       IF SCOPE 2                                          FEAT126A      49          I
          -FEAT155D 
 FTN                                                                                       FTN         1093          I
          -FEAT155D 
 FTN      *         CHECK MODE OF MEMORY MANAGEMENT.                                       FTN         1094          I
          -FEAT155D 
 FTN                                                                                       FTN         1095          I
          -FEAT155D 
 FTN                MX6    0                                                               FTN         1096          I
          -FEAT155D 
 FTN                SA6    GT1         CLEAR STATUS WORD                                   FTN         1097          I
          -FEAT155D 
 FTN                MEMORY SCM,GT1     FETCH MODE OF FL MANAGEMENT                         FTN         1098          I
          -FEAT155D 
 FTN                SA1    A6          (X1) = MEMORY STATUS REPLY                          FTN         1099          I
          -FEAT155D 
 FTN                LX1    59-1        LEFT-JUSTIFY MODE BIT FOR SIGN TEST                 FTN         1100          I
          -FEAT155D 
 FTN                PL     X1,CFL5     IF IN FIXED FL MODE                                 FTN         1101          I
          -FEAT155D 
 FTN                BX6    X7          (X6) = REQUESTED FL                                 FTN         1102          I
          -FEAT155D 
 FTN                                                                                       FTN         1103          I
          -FEAT155D 
 FTN       #OS      ENDIF                                                                  FTN         1104          I
          -FEAT155D 
 FTN                                                                                       FTN         1105          I
          -FEAT155D 
 FTN      *         REQUEST MORE MEMORY.                                                   FTN         1106          I
          -FEAT155D 
 FTN                                                                                       FTN         1107          I
          -FEAT155D 
 FTN       CFL4     LX7    30                                                              FTN         1108          I
          -FEAT155D 
 FTN                SA7    GT1                                                             FTN         1109          I
          -FEAT155D 
 FTN                MEMORY SCM,GT1,RCL,,NOABT      REQUEST MORE MEMORY                     FTN         1110          I
          -FEAT155D 
 FTN                                                                                       FTN         1111          I
          -FEAT155D 
 FTN       #OS      IFEQ   .OS,1       IF SCOPE 2                                          FTN         1112          I
          -FEAT126A -FEAT155D 
 FTN       #OS      IFEQ   .OS,2       IF SCOPE 2                                          FEAT126A      50          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 544    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
          -FEAT155D 
 FTN                                                                                       FTN         1113          I
          -FEAT155D 
 FTN                EQ     CFL2                                                            FTN         1114          I
          -FEAT155D 
 FTN                                                                                       FTN         1115          I
          -FEAT155D 
 FTN       #OS      ELSE                                                                   FTN         1116          I
          -FEAT155D 
 FTN                                                                                       FTN         1117          I
          -FEAT155D 
 FTN      *         FETCH NEW MEMORY SIZE.                                                 FTN         1118          I
          -FEAT155D 
 FTN                                                                                       FTN         1119          I
          -FEAT155D 
 FTN                SX6    0                                                               FTN         1120          I
          -FEAT155D 
 FTN                SA6    GT1                                                             FTN         1121          I
          -FEAT155D 
 FTN                MEMORY SCM,GT1,RCL FETCH NEW FL                                        FTN         1122          I
          -FEAT155D 
 FTN                SA1    GT1                                                             FTN         1123          I
          -FEAT155D 
 FTN                AX1    30                                                              FTN         1124          I
          -FEAT155D 
 FTN                SX6    X1          (X6) = NEW FL                                       FTN         1125          I
          -FEAT155D 
 FTN                SB3    X6+B2       (B3) = NEW FL - MINIMUM FL                          FTN         1126          I
          -FEAT155D 
 FTN                PL     B3,CFL2     IF FL NOW ENOUGH                                    FTN         1127          I
          -FEAT155D 
 FTN                SX7    X6-2000B    DROP REQUEST BY 2K                                  FTN         1128          I
          -FEAT155D 
 FTN                SB3    X7+B2       (B3) = NEW REQUEST - MINIMUM FL                     FTN         1129          I
          -FEAT155D 
 FTN                PL     B3,CFL4     IF FL NOT LESS THAN MINIMUM                         FTN         1130          I
          -FEAT155D 
 FTN                                                                                       FTN         1131          I
          -FEAT155D 
 FTN       #OS      ENDIF                                                                  FTN         1132          I
          -FEAT155D 
 FTN                SA1    MAX.FL                                                          FEAT155D      30     A     
 FTN                AX1    30                                                              FEAT155D      31     A     
 FTN                SB3    X1+B2       MAX.FL-MIN.FL                                       FEAT155D      32     A     
 FTN                MI     B3,CFL5     IF NOT ENOUGH MEMORY                                FEAT155D      33     A     
 FTN                                                                                       FEAT155D      34     A     
 FTN      *         REQUEST MORE MEMORY.                                                   FEAT155D      35     A     
 FTN                                                                                       FEAT155D      36     A     
 FTN                MX6    X1-X7       MIN OF MAX.FL AND NOMINAL FL                        FEAT155D      37     A     
 FTN                LX6    30                                                              FEAT155D      38     A     
 FTN                SA6    GT1                                                             FEAT155D      39     A     
 FTN                MEMORY SCM,GT1,RCL                                                     FEAT155D      40     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 545    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SA1    GT1         GET NEW FL                                          FEAT155D      41     A     
 FTN                AX1    30                                                              FEAT155D      42     A     
 FTN                BX6    X1                                                              FEAT155D      43     A     
 FTN                EQ     CFL2        FL NOW OK                                           FEAT155D      44     A     
 FTN                                                                                       FTN         1133     A     
 FTN      *         NOT ENOUGH MEMORY; SEND ERROR MESSAGE; ABORT JOB.                      FTN         1134     A     
 FTN                                                                                       FTN         1135     A     
 FTN       CFL5     SA1    DFLAG       DEBUG OPTION FLAG                                   FTN         1136     A     
 FTN                SA3    TSFLAG      TIMESHARE OPTION FLAG                               FTN         1137          I
          -FCC0971
 FTN                SA3    CO.TS       TS OPTION FLAG                                      FCC0971       28     A     
 FTN                SA2    MSG.FL+2                                                        FTN         1138     A     
 FTN                ZR     X1,CFL6     IF DEBUG OPTION OFF                                 FTN         1139     A     
 FTN                SX7    3R"MIN.DFL"-3R"MIN.FL"                                          FTN         1140     A     
 FTN                EQ     CFL7A                                                           FTN         1141     A     
 FTN       CFL6     ZR     X3,CFL7     IF NOT TS MODE                                      FTN         1142     A     
 FTN                SX7    3R"MIN.TFL"-3R"MIN.FL"                                          FTN         1143     A     
 FTN                EQ     CFL7A                                                           FTN         1144     A     
 FTN       CFL7     SA4    CO.OLVL     OPT LEVEL                                           FTN         1145     A     
 FTN                SX3    X4-2                                                            FTN         1146     A     
 FTN                MI     X3,CFL8     IF OPT .LT. 2                                       FTN         1147     A     
 FTN                SX7    3R"MIN.OFL"-3R"MIN.FL"                                          FTN         1148     A     
 FTN       CFL7A    LX7    5*CHAR                                                          FTN         1149     A     
 FTN                IX6    X2+X7                                                           FTN         1150     A     
 FTN                SA6    A2          INSERT MIN DEBUG FL IN ERROR MSG TEXT               FTN         1151     A     
 FTN       CFL8     MESSAGE MSG.FL     ISSUE DAYFILE MESSAGE                               FTN         1152          I
          -F7540FT
 FTN       CFL8     MESSAGE  MSG.FL,,RCL                                                   F7540FT       32     A     
 FTN                EQ     END3        ABORT, DUMP                                         FTN         1153          I
          -FEAT155H 
 FTN                EQ     END2        ABORT                                               FEAT155H      84     A     
 FTN                                                                                       FTN         1154     A     
 FTN                                                                                       FTN         1155     A     
 FTN                                                                                       FTN         1156     A     
 FTN                LIST   A                                                               FTN         1157     A     
 FTN       MSG.FL   DIS    2,   FTN NEEDS AT LEAS                                          FTN         1158     A     
 FTN       #OS      IFEQ   .OS,0                                                           FTN         1159          I
          -FEAT126A 
 FTN       #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A      51          I
          -FEAT155H 
 FTN                DIS    ,/T "MIN.FL"00B CM FL.   /                                      FTN         1160          I
          -FEAT155H 
 FTN                DIS    ,/T "MIN.FL"00B "SCM" FL.  /                                    FEAT155H      85     A     
 FTN       #OS      ELSE                                                                   FTN         1161          I
          -FEAT155H 
 FTN                DIS    ,/T "MIN.FL"00B SCM FL.  /                                      FTN         1162          I
          -FEAT155H 
 FTN       #OS      ENDIF                                                                  FTN         1163          I
          -FEAT155H 
 FTN                SA1    /MASTER/RSELECT                                                 FEAT155H      86          I
          -FEAT155HB
 FTN                LIST   *                                                               FTN         1164     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 546    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       CFN      EJECT                                                                  FTN         1165     A     
 FTN      **        CFN - CHANGE FILE NAME.                                                FTN         1166     A     
 FTN      *                                                                                FTN         1167     A     
 FTN      *         CHANGES OR CLEARS ENTRY IN THE FILE VECTOR TABLE.                      FTN         1168     A     
 FTN      *         CALLS -CFF- TO UPDATE THE FET OR FIT.  EXITS WITHOUT ACTION            FTN         1169     A     
 FTN      *         IF THE VECTOR TABLE ENTRY WAS ALREADY EMPTY, BECAUSE A                 FTN         1170     A     
 FTN      *         CONTROL CARD OPTION HAS DESELECTED THE FILE.                           FTN         1171     A     
 FTN      *                                                                                FTN         1172     A     
 FTN      *         ENTRY  (X2) = FILE VECTOR TABLE ENTRY                                  FTN         1173     A     
 FTN      *                (A2) = ADDRESS OF (X2) ENTRY                                    FTN         1174     A     
 FTN      *                (X6) = NEW NAME, MAX 7 CHARACTERS, LEFT ADJUSTED                FTN         1175     A     
 FTN      *                       ACTION REQUEST --                                        FTN         1176     A     
 FTN      *                       .ZR. = CLEAR ENTRY                                       FTN         1177     A     
 FTN      *                       .NZ. = CHANGE NAME; KEEP PREVIOUS FET/FIT ADDR           FTN         1178     A     
 FTN      *                                                                                FTN         1179     A     
 FTN      *         EXIT   VARIES WITH ENTRY CONDITIONS                                    FTN         1180     A     
 FTN      *                                                                                FTN         1181     A     
 FTN      *         USES   X - 3, 5, 6, 7                                                  FTN         1182     A     
 FTN      *                A - 7                                                           FTN         1183     A     
 FTN      *                B - NONE                                                        FTN         1184     A     
 FTN      *                                                                                FTN         1185     A     
 FTN      *         CALLS  CFF                                                             FTN         1186     A     
 FTN                                                                                       FTN         1187     A     
 FTN                                                                                       FTN         1188     A     
 FTN       CFN      ENTRY. *           ** ENTRY/EXIT **                                    FTN         1189     A     
 FTN                ZR     X2,CFN      IF EMPTY TABLE ENTRY, EXIT                          FTN         1190     A     
 FTN                MX7    0                                                               FTN         1191     A     
 FTN                SX3    X2          FET/FIT ADDRESS                                     FTN         1192     A     
 FTN                ZR     X6,CFN2                                                         FTN         1193     A     
 FTN                IX7    X6+X3       42/NEW NAME, 18/FET OR FIT ADDRESS                  FTN         1194     A     
 FTN       CFN2     SA7    A2          UPDATE TABLE                                        FTN         1195     A     
 FTN                CALL   CFF                                                             FTN         1196     A     
 FTN                EQ     CFN         EXIT                                                FTN         1197     A     
 FTN                SPACE  4                                                               FTN         1198     A     
 FTN      *IF -DEF,EXTCOMC,1                                                               FTN         1199          I
          -FCCA589
 FTN      *CALL COMCDXB                                                                    FTN         1200     A     
 FTN      *IF DEF,EXTCOMC,1                                                                FTN         1201          I
          -FCCA589
 FTN       "PLCOMC" XTEXT  COMCDXB                                                         FTN         1202          I
          -FCCA589
 FTN      *CALL FA=SET                                                                     FTN         1203     A     
 FTN       #OS      IFNE   .OS,2                                                           FCCA595        5     A     
 FTN      *CALL     COMCCPM                                                                FCCA593       15     A     
 FTN       #OS      ENDIF                                                                  FCCA595        6     A     
 FTN       IBA      TITLE  COMPILER INITIALIZATION SUBROUTINES                             FTN         1204     A     
 FTN      **        IBA - INITIALIZE BUFFER ALLOCATIONS.                                   FTN         1205     A     
 FTN      *                                                                                FTN         1206     A     
 FTN      *         IF SOURCE LISTING OPTION OFF (L=0), EXPAND INPUT BUFFER AND            FTN         1207     A     
 FTN      *         SHRINK OUTPUT BUFFER (CYBER 74 / 6700 OR SMALLER ONLY).                FTN         1208     A     
 FTN      *                                                                                FTN         1209     A     
 FTN      *         IN TS MODE IF THE FIELD LENGTH ON A CYBER 74 OR SMALLER                FTN         1210          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 547    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
          -FCC0813
 FTN      *         MACHINE IS LESS THAN THE MINIMUM FIELD LENGTH PLUS A MARGIN            FTN         1211          I
          -FCC0813
 FTN      *         WHICH IS EQUAL TO THE TOTAL CIO BUFFER SIZE FOR THE LONGFILE,          FTN         1212          I
          -FCC0813
 FTN      *         LGO AND REFMAP BUFFERS, THE BUFFERS FOR THE LONGFILE AND               FTN         1213          I
          -FCC0813
 FTN      *         REFMAP FILES ARE SHRUNK TO 201B.  THE ONE SPECIAL CASE IS THE          FTN         1214          I
          -FCC0813
 FTN      *         LGO BUFFER WHICH IS NOT SHRUNK AS IT SHARES ITS AREA WITH THE          FTN         1215          I
          -FCC0813
 FTN      *         STRING BUFFER.                                                         FTN         1216          I
          -FCC0813
 FTN      *         BUFFER SIZES WERE INITIALLY SET TO 2 PASS SIZES.                       FCC0813       18     A     
 FTN      *         IF TS WAS SELECTED BUFFER SIZES ARE RESET.                             FCC0813       19     A     
 FTN      *                                                                                FTN         1217     A     
 FTN      *         BUFFER SPACE IS ACTUALLY ALLOCATED IN THE PRIMARY OVERLAYS.            FTN         1218     A     
 FTN      *         ONLY THE FETS ARE SET UP HERE.                                         FTN         1219     A     
 FTN      *                                                                                FTN         1220     A     
 FTN      *         ENTRY  (B1) = 1                                                        FTN         1221     A     
 FTN      *                                                                                FTN         1222     A     
 FTN      *         EXIT   (B1) = 1                                                        FTN         1223     A     
 FTN      *                                                                                FTN         1224     A     
 FTN      *         USES   X - 1, 2, 6, 7                                                  FTN         1225     A     
 FTN      *                A - 1, 2, 6, 7                                                  FTN         1226     A     
 FTN      *                B - 2                                                           FTN         1227     A     
 FTN      *                                                                                FTN         1228     A     
 FTN      *         CALLS  SETFIL                                                          FTN         1229     A     
 FTN                                                                                       FTN         1230     A     
 FTN                                                                                       FTN         1231     A     
 FTN       IBA      ENTRY. *           ** ENTRY/EXIT **                                    FTN         1232     A     
 FTN                                                                                       FTN         1233     A     
 FTN       #RM      IFNE   CP#RM,7                                                         FTN         1234     A     
 FTN                                                                                       FTN         1235     A     
 FTN      *         IF LIST OPTION OFF, SHRINK -OUT- AND EXPAND -IN- BUFFER.               FTN         1236     A     
 FTN                                                                                       FTN         1237     A     
 FTN                SA1    SLIST                                                           FTN         1238     A     
 FTN                NZ     X1,IBA2     IF SOURCE LISTING OPTION ON                         FTN         1239     A     
 FTN                SA1    TSFLAG                                                          FTN         1240          I
          -FEAT126C 
 FTN                SX6    L.XPINB                                                         FTN         1241     A     
 FTN                SB2    O.XPINB                                                         FTN         1242     A     
 FTN                NZ     X1,IBA1     IF *TS* OPTION SELECTED                             FTN         1243          I
          -FEAT126C 
 FTN                SX6    X6+L.SVSTM  ADD DEFERRED LIST BUFFER TO INPUT BUFFER            FTN         1244          I
          -FEAT126C 
 FTN                SB2    B2-L.SVSTM                                                      FTN         1245          I
          -FEAT126C 
 FTN       IBA1     SX7    L.MINBUF                                                        FTN         1246          I
          -FEAT126C 
 FTN                SX7    L.MINBUF                                                        FEAT126C      57     A     
 FTN                LX6    18                                                              FTN         1247     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 548    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                LX7    18                                                              FTN         1248     A     
 FTN                SA6    F.IN+I.CBSET                                                    FTN         1249     A     
 FTN                SA7    F.OUT+I.CBSET                                                   FTN         1250     A     
 FTN                                                                                       FTN         1251     A     
 FTN                SETFIL FILE=F.IN,MODE=INIT,FWA=B2                                      FTN         1252     A     
 FTN                SETFIL FILE=F.OUT,MODE=INIT,FWA=OBUF                                   FTN         1253     A     
 FTN                                                                                       FTN         1254     A     
 FTN      *         IF FIELD LENGTH SMALL, SHRINK REMAINING CIO BUFFERS.                   FTN         1255          I
          -FCC0813
 FTN      *         IF TS WAS SELECTED RESET CIO BUFFER SIZES                              FCC0813       20     A     
 FTN                                                                                       FTN         1256     A     
 FTN       IBA2     SA1    TSFLAG                                                          FTN         1257          I
          -FCC0971
 FTN       IBA2     SA1    CO.TS                                                           FCC0971       29     A     
 FTN                ZR     X1,IBA3     IF *TS* OPTION NOT SELECTED                         FTN         1258     A     
 FTN                SA1    CP.NFLS     (X1) = CURRENT FL                                   FTN         1259          I
          -FCC0813
 FTN                SX6    X1-MIN.TFL-IB.FL                                                FTN         1260          I
          -FCC0813
 FTN                PL     X6,IBA3     IF FL .GT. MIN, SKIP BUFFER SQUEEZE                 FTN         1261          I
          -FCC0813
 FTN                SX6    201B        MINIMAL BUFFER SIZE                                 FTN         1262          I
          -FCC0813
 FTN                LX6    18                                                              FTN         1263          I
          -FCC0813
 FTN                SA6    F.LF+I.CBSET                                                    FTN         1264          I
          -FCC0813
 FTN                SA6    F.RMAP+I.CBSET                                                  FTN         1265          I
          -FCC0813
 FTN                SX6    LB.LGO                                                          FCC0813       21     A     
 FTN                LX6    18                                                              FCC0813       22     A     
 FTN                SA6    F.LGO+I.CBSET                                                   FCC0813       23     A     
 FTN                SX6    LB.RMAP                                                         FCC0813       24     A     
 FTN                LX6    18                                                              FCC0813       25     A     
 FTN                SA6    F.RMAP+I.CBSET                                                  FCC0813       26     A     
 FTN                SX6    LB.LF                                                           FCC0813       27     A     
 FTN                LX6    18                                                              FCC0813       28     A     
 FTN                SA6    F.LF+I.CBSET                                                    FCC0813       29     A     
 FTN       IBA3     BSS    0                                                               FTN         1266     A     
 FTN                                                                                       FTN         1267     A     
 FTN       #RM      ENDIF                                                                  FTN         1268     A     
 FTN                                                                                       FTN         1269     A     
 FTN       #RM      IFGE   CP#RM,6                                                         FTN         1270     A     
 FTN                                                                                       FTN         1271     A     
 FTN      *         IF TS SELECTED RESET RM HOLDING BUFFER SIZES.                          FCC0813       30     A     
 FTN                                                                                       FCC0813       31     A     
 FTN                SA1    TSFLAG                                                          FCC0813       32     A     
 FTN                ZR     X1,IBA3A    IF TS NOT SELECTED                                  FCC0813       33     A     
 FTN                SX6    LB.LGO                                                          FCC0813       34     A     
 FTN                LX6    18                                                              FCC0813       35     A     
 FTN                SA6    F.LGO+I.HBSET                                                   FCC0813       36     A     
 FTN                SX6    LB.RMAP                                                         FCC0813       37     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 549    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                LX6    18                                                              FCC0813       38     A     
 FTN                SA6    F.RMAP+I.HBSET                                                  FCC0813       39     A     
 FTN                SX6    LB.LF                                                           FCC0813       40     A     
 FTN                LX6    18                                                              FCC0813       41     A     
 FTN                SA6    F.LF+I.HBSET                                                    FCC0813       42     A     
 FTN                EQ     IBA         EXIT                                                FCC0813       43     A     
 FTN                                                                                       FCC0813       44     A     
 FTN       IBA3A    BSS    0                                                               FCC0813       45     A     
 FTN      *         IF SHORT REFERENCE MAP SELECTED, TRANSFER -RMAP- HOLDING               FTN         1272          I
          -RSM2763X 
 FTN      *         BUFFER SPACE TO -RLIST-/-LGO- HOLDING BUFFER.                          FTN         1273          I
          -RSM2763X 
 FTN                                                                                       FTN         1274          I
          -RSM2763X 
 FTN                SA1    RSELECT                                                         FTN         1275          I
          -FEAT155HB-RSM2763X 
 FTN                SA1    MLOP=R                                                          FEAT155HB      1          I
          -RSM2763X 
 FTN                MI     X1,IBA4     IF LONG REF MAP OPTION ON (R-OPTION .GE. 2)         FTN         1276          I
          -RSM2763X 
 FTN                SA1    F.RMAP+I.HBSET                                                  FTN         1277          I
          -RSM2763X 
 FTN                SA2    F.RLST+I.HBSET                                                  FTN         1278          I
          -RSM2763X 
 FTN                MX6    0                                                               FTN         1279          I
          -RSM2763X 
 FTN                IX7    X1+X2                                                           FTN         1280          I
          -RSM2763X 
 FTN                SA6    A1                                                              FTN         1281          I
          -RSM2763X 
 FTN                SA7    A2                                                              FTN         1282          I
          -RSM2763X 
 FTN                SA7    F.LGO+I.HBSET                                                   FTN         1283          I
          -RSM2763X 
 FTN       IBA4     BSS    0                                                               FTN         1284          I
          -RSM2763X 
 FTN                                                                                       FTN         1285     A     
 FTN       #RM      ENDIF                                                                  FTN         1286     A     
 FTN                                                                                       FTN         1287     A     
 FTN       #RM      IFEQ   CP#RM,0                                                         FTN         1288     A     
 FTN                SA1    F.RLST+I.CBSET                                                  FTN         1289     A     
 FTN       #RM      ELSE                                                                   FTN         1290     A     
 FTN                SA1    F.RLST+I.HBSET                                                  FTN         1291     A     
 FTN       #RM      ENDIF                                                                  FTN         1292     A     
 FTN                                                                                       FTN         1293     A     
 FTN                AX1    19                                                              FTN         1294     A     
 FTN                SX6    X1-1        MAX.RL = BUFLEN/2 - 1                               FTN         1295     A     
 FTN                SA6    MAX.RL                                                          FTN         1296     A     
 FTN                EQ     IBA         EXIT                                                FTN         1297     A     
 FTN       MIA      EJECT                                                                  FTN         1298     A     
 FTN      **        MIA - MISCELLANEOUS INITIALIZATION, PART A.                            FTN         1299     A     
 FTN      *                                                                                FTN         1300     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 550    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *         ENTRY  (X0) = ECS/LCM FIELD LENGTH                                     FTN         1301     A     
 FTN      *                (A0) = CM /SCM FIELD LENGTH                                     FTN         1302     A     
 FTN      *                (B1) = 1                                                        FTN         1303     A     
 FTN      *                                                                                FTN         1304     A     
 FTN      *         EXIT   (B1) = 1                                                        FTN         1305     A     
 FTN      *                                                                                FTN         1306     A     
 FTN      *         USES   X - 0, 1, 6, 7                                                  FTN         1307     A     
 FTN      *                A - 1, 6, 7                                                     FTN         1308     A     
 FTN      *                B - 2, 3                                                        FTN         1309     A     
 FTN      *                                                                                FTN         1310     A     
 FTN      *         CALLS  TIMER, DATE, CLOCK                                              FTN         1311     A     
 FTN                                                                                       FTN         1312     A     
 FTN                                                                                       FTN         1313     A     
 FTN       MIA      ENTRY. *           ** ENTRY/EXIT **                                    FTN         1314     A     
 FTN                                                                                       FTN         1315     A     
 FTN      **        SAVE FIELD LENGTHS.                                                    FTN         1316     A     
 FTN      *                                                                                FTN         1317     A     
 FTN                SX6    A0          CM/SCM FIELD LENGTH                                 FTN         1318     A     
 FTN                SX7    X0          ECS/LCM FIELD LENGTH                                FTN         1319          I
          -FCC2222
 FTN                BX7    X0                                                              FCC2222        5     A     
 FTN                SA6    CP.AFLS                                                         FTN         1320     A     
 FTN                SA7    CP.AFLL     SAVE FOR *COMPASS*                                  FTN         1321     A     
 FTN                SA6    CP.NFLS                                                         FTN         1322     A     
 FTN                SA7    CP.NFLL     SAVE FOR *COMPASS*                                  FTN         1323     A     
 FTN                NO                                                                     FTN         1324     A     
 FTN                LX6    30                                                              FTN         1325     A     
 FTN                SA6    FTIFL       SAVE FOR EXIT RESTORATION                           FTN         1326     A     
 FTN                                                                                       FTN         1327     A     
 FTN                                                                                       FTN         1328     A     
 FTN                                                                                       FTN         1329     A     
 FTN      **        INSERT DATE AND TIME IN HEADER LINE                                    FTN         1330     A     
 FTN      *                                                                                FTN         1331     A     
 FTN                DATE   TL.DATE                                                         FTN         1332     A     
 FTN                CLOCK  TL.TIME                                                         FTN         1333     A     
 FTN                                                                                       FTN         1334     A     
 FTN                                                                                       FTN         1335     A     
 FTN                                                                                       FTN         1336     A     
 FTN      **        SAVE CPU START TIME.                                                   FTN         1337     A     
 FTN      *                                                                                FTN         1338     A     
 FTN       .CT      IFNE   CTIMO,0                                                         FTN         1339     A     
 FTN                CALL   TIMER                                                           FTN         1340     A     
 FTN                SA6    TIME0       SAVE START TIME                                     FTN         1341     A     
 FTN                SA6    TIME1                                                           FTN         1342     A     
 FTN       .CT      ENDIF                                                                  FTN         1343     A     
 FTN                                                                                       FTN         1344     A     
 FTN                                                                                       FTN         1345     A     
 FTN                                                                                       FTN         1346     A     
 FTN      **        OBTAIN CURRENT SENSE SWITCH VALUES (CYBER 76/ 7600 ONLY.)              FTN         1347     A     
 FTN      *                                                                                FTN         1348     A     
 FTN       #OS      IFEQ   .OS,1                                                           FTN         1349          I
          -FEAT126A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 551    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       #OS      IFEQ   .OS,2       IF SCOPE 2                                          FEAT126A      52     A     
 FTN                SSW                UPDATE RA.SSW                                       FTN         1350     A     
 FTN       #OS      ENDIF                                                                  FTN         1351     A     
 FTN                                                                                       FTN         1352     A     
 FTN                                                                                       FTN         1353     A     
 FTN                                                                                       FTN         1354     A     
 FTN      **        CHANGE NAME OF FTN OVERLAY LIBRARY IF (0,0) OVERLAY LOADED             FTN         1355     A     
 FTN      *         FROM A NON-STANDARD LIBRARY OR FILE (3-WORD CALLS ONLY).               FTN         1356     A     
 FTN      *                                                                                FTN         1357     A     
 FTN       .LDR     IFEQ   LDRCALL,3                                                       FTN         1358     A     
 FTN                SA1    RA.LWP      (X1) = LOADER REPLY WORD                            FTN         1359     A     
 FTN                SA2    RA.PGN      (X2) = ACTUAL LIBRARY NAME                          FTN         1360     A     
 FTN                LX1    59-18       LIBRARY FLAG TO B59                                 FTN         1361     A     
 FTN                MX6    42                                                              FTN         1362     A     
 FTN                MI     X1,MIA1     IF FTN LOADED FROM LIBRARY FILE                     FTN         1363     A     
 FTN                SX7    2040B       CLEAR LIBRARY BIT                                   FTN         1364     A     
 FTN                LX7    36                                                              FTN         1365     A     
 FTN                SA7    OVLB                                                            FTN         1366     A     
 FTN       MIA1     SA3    MIAA        (X3) = STANDARD SYSTEM LIBRARY NAME                 FTN         1367     A     
 FTN                BX6    X6*X2                                                           FTN         1368     A     
 FTN                IX2    X6-X3                                                           FTN         1369     A     
 FTN                ZR     X2,MIA1A    IF USER DID NOT CHANGE NAME                         FTN         1370     A     
 FTN                SA6    OVLA        SAVE FOR ASSEMBLING OVERLAY LOAD CALLS              FTN         1371     A     
 FTN       MIA1A    BSS    0                                                               FTN         1372     A     
 FTN                                                                                       FTN         1373     A     
 FTN       .LDR     ELSE                                                                   FTN         1374     A     
 FTN                                                                                       FTN         1375     A     
 FTN                                                                                       FTN         1376     A     
 FTN      **        LOAD FROM A FILE (TEST MODE, 2-WORD CALLS ONLY).                       FTN         1377     A     
 FTN      *                                                                                FTN         1378     A     
 FTN       .T       IFNE   TEST,0                                                          FTN         1379     A     
 FTN                SA2    RA.PGN      (X2) = NAME OF FILE CONTAINING *FTN*                FTN         1380     A     
 FTN                MX7    42                                                              FTN         1381     A     
 FTN                BX6    X7*X2       REMOVE LOADER PARAMS                                FTN         1382     A     
 FTN                SA6    OVLA        SAVE FOR ASSEMBLING OVERLAY LOAD CALLS              FTN         1383     A     
 FTN       .T       ENDIF                                                                  FTN         1384     A     
 FTN       .LDR     ENDIF                                                                  FTN         1385     A     
 FTN                                                                                       FTN         1386     A     
 FTN                                                                                       F66FCC       127     A     
 FTN       #FID     IFEQ   .FID,ON                                                         F66FCC       128     A     
 FTN       #MD      IFGE   .MODES,1                                                        FCC2391       12     A     
 FTN      **        OBTAIN GLOBAL INTERACTIVE DEBUG VALUE                                  F66FCC       129     A     
 FTN                                                                                       F66FCC       130     A     
 FTN      *         GETLC  CO.ID                                                           F66FCC       131          I
          -F66FCCA
 FTN                GETLC  CO.ID                                                           F66FCCA        6     A     
 FTN                SA1    CO.ID                                                           F66FCC       132     A     
 FTN                LX1    -DC.FIDP                                                        F66FCC       133          I
          -F66FCCA
 FTN                LX1    59-DC.FIDP                                                      F66FCCA        7     A     
 FTN                MX2    1                                                               F66FCC       134     A     
 FTN                AX1    60                                                              F66FCC       135     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 552    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                BX6    X1*X2                                                           F66FCC       136     A     
 FTN                SA6    A1                                                              F66FCC       137     A     
 FTN       #MD      ENDIF                                                                  FCC2391       13     A     
 FTN       #FID     ENDIF                                                                  F66FCC       138     A     
 FTN                                                                                       F66FCC       139     A     
 FTN                                                                                       FTN         1387          I
          -FCC2125
 FTN                                                                                       FTN         1388          I
          -FCC2125
 FTN      **        MOVE FILE VECTOR TABLE TO JOB COMMUNICATIONS AREA, BEGINNING           FTN         1389          I
          -FCC2125
 FTN      *         AT -RA.ARG-.                                                           FTN         1390          I
          -FCC2125
 FTN      *                                                                                FTN         1391          I
          -FCC2125
 FTN                SB2    0           (B2) = LOOP COUNTER                                 FTN         1392          I
          -FCC2125
 FTN                SB3    FVLEN       (B3) = TABLE LENGTH                                 FTN         1393          I
          -FCC2125
 FTN       MIA2     SA1    FVTBL+B2                                                        FTN         1394          I
          -FCC2125
 FTN                SB2    B2+B1                                                           FTN         1395          I
          -FCC2125
 FTN                BX6    X1                                                              FTN         1396          I
          -FCC2125
 FTN                SA6    RA.ARG-1+B2                                                     FTN         1397          I
          -FCC2125
 FTN                LT     B2,B3,MIA2  IF TABLE NOT ALL MOVED                              FTN         1398          I
          -FCC2125
 FTN                                                                                       FTN         1399     A     
 FTN                                                                                       FTN         1400     A     
 FTN      **        OBTAIN  JOB ORIGIN TYPE FROM BITS 24-35 OF RA+66.  IF VALUE IS         FTN         1401     A     
 FTN      *         0, 1, OR 2, JOT IS TYPE BATCH.  IF GREATER, JOT IS TYPE                FTN         1402     A     
 FTN      *         TERMINAL.                                                              FTN         1403     A     
 FTN      *                                                                                FTN         1404     A     
 FTN                SA1    66B                                                             FTN         1405     A     
 FTN                MX0    -12                                                             FTN         1406     A     
 FTN                AX1    24          RIGHT JUSTIFY JOT                                   FTN         1407     A     
 FTN                BX1    -X0*X1      ISOLATE THAT FIELD                                  FTN         1408     A     
 FTN                MX7    0                                                               FTN         1409     A     
 FTN                SX1    X1-3                                                            FTN         1410     A     
 FTN                MI     X1,MIA2A    IF JOT LESS THAN 3 (BATCH)                          FTN         1411     A     
 FTN                SX7    1           JOT FOR TERMINAL JOB                                FTN         1412     A     
 FTN       MIA2A    SA7    JOT         STORE JOB ORIGIN TYPE                               FTN         1413     A     
 FTN                                                                                       FTN         1414     A     
 FTN                                                                                       FTN         1415     A     
 FTN                                                                                       FTN         1416     A     
 FTN      **        CLEAR JOB COMMUNICATIONS AREA ABOVE FILE VECTOR TABLE.                 FTN         1417     A     
 FTN      *                                                                                FTN         1418     A     
 FTN                SB3    RA.LDR      (B3) = END OF SEGMENT TO BE CLEARED                 FTN         1419          I
          -FCC0751
 FTN                SB3    RA.PGN      (B3) = END OF SEGMENT TO BE CLEARED                 FCC0751        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 553    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SX6    0                                                               FTN         1420     A     
 FTN                SB2    FVLEN                                                           FCC2125       45     A     
 FTN                SA6    RA.ARG+B2                                                       FCC2125       46     A     
 FTN       MIA3     SA6    A6+B1       CLEAR WORD                                          FTN         1421     A     
 FTN                SB2    A6                                                              FTN         1422     A     
 FTN                LT     B2,B3,MIA3  IF SEGMENT NOT ALL CLEARED                          FTN         1423     A     
 FTN                SA6    RA.ORG      CLEAR ISOLATED LOCATION                             FTN         1424     A     
 FTN                                                                                       FTN         1425     A     
 FTN                                                                                       FTN         1426     A     
 FTN                                                                                       FTN         1427     A     
 FTN      **        INITIALIZE SOURCE LINE INPUT AREA.                                     FTN         1428     A     
 FTN      *                                                                                FTN         1429     A     
 FTN                SA6    CP.CARD     MARK SOURCE INPUT AREA EMPTY                        FTN         1430     A     
 FTN                EQ     MIA         EXIT                                                FTN         1431     A     
 FTN                                                                                       FTN         1432     A     
 FTN                                                                                       FTN         1433     A     
 FTN                                                                                       FTN         1434     A     
 FTN       MIAA     DATA   0L"FTNMAIN"                                                     FTN         1435     A     
 FTN       MIB      EJECT                                                                  FTN         1436     A     
 FTN      **        MIB - MISCELLANEOUS INITIALIZATION, PART B.                            FTN         1437     A     
 FTN      *                                                                                FTN         1438     A     
 FTN      *         ENTRY  (B1) = 1                                                        FTN         1439     A     
 FTN      *                                                                                FTN         1440     A     
 FTN      *         EXIT   (B1) = 1                                                        FTN         1441     A     
 FTN      *                                                                                FTN         1442     A     
 FTN      *         USES   X - 1, 2, 5, 6, 7                                               FTN         1443     A     
 FTN      *                A - 1, 2, 6, 7                                                  FTN         1444     A     
 FTN      *                B - 2, 3                                                        FTN         1445     A     
 FTN      *                                                                                FTN         1446     A     
 FTN      *         CALLS  MESSAGE, STORE                                                  FTN         1447     A     
 FTN                                                                                       FTN         1448     A     
 FTN                                                                                       FTN         1449     A     
 FTN       MIB      ENTRY. *           ** ENTRY/EXIT **                                    FTN         1450     A     
 FTN      **        MOVE FILE VECTOR TABLE TO JOB COMMUNICATION AREA, BEGINNING            FCC2125       47     A     
 FTN      *         AT -RA.ARG-.                                                           FCC2125       48     A     
 FTN      *                                                                                FCC2125       49     A     
 FTN                SB2    0                                                               FCC2125       50     A     
 FTN                SB3    FVLEN                                                           FCC2125       51     A     
 FTN       MIB0     SA1    FVTBL+B2                                                        FCC2125       52     A     
 FTN                SB2    B2+B1                                                           FCC2125       53     A     
 FTN                BX6    X1                                                              FCC2125       54     A     
 FTN                SA6    RA.ARG-1+B2                                                     FCC2125       55     A     
 FTN                LT     B2,B3,MIB0                                                      FCC2125       56     A     
 FTN                                                                                       FCC2125       57     A     
 FTN                                                                                       FTN         1451     A     
 FTN      **        IF L=0 TURN OFF ALL LIST OPTIONS.                                      FTN         1452     A     
 FTN      *                                                                                FTN         1453     A     
 FTN                SA1    CP.LSTF                                                         FTN         1454     A     
 FTN                NZ     X1,MIB1     IF L NOT 0                                          FTN         1455     A     
 FTN                BX6    X1                                                              FTN         1456     A     
 FTN                SA6    R=FLAG                                                          FTN         1457          I
          -FEAT121L 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 554    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SA6    RSELECT                                                         FTN         1458          I
          -FEAT121L 
 FTN                SA6    /MASTER/R=FLAG                                                  FEAT121L      65     A     
 FTN                SA6    /MASTER/RSELECT                                                 FEAT121L      66     A     
 FTN                SA6    LOP=M                                                           FTN         1459          I
          -FEAT126B 
 FTN                SA6    /MASTER/LOP=M                                                   FEAT126B      14     A     
 FTN                SA6    OLIST                                                           FTN         1460          I
          -FEAT121L 
 FTN                SA6    /MASTER/OLIST                                                   FEAT121L      67     A     
 FTN                SA6    SLIST                                                           FTN         1461     A     
 FTN                SA6    IEFLG                                                           FTN         1462          I
          -FEAT121L 
 FTN                SA6    /MASTER/IEFLG                                                   FEAT121L      68     A     
 FTN                SA6    LOP=N                                                           FTN         1463     A     
 FTN                SA6    ANSI                                                            FTN         1464          I
          -FEAT121L 
 FTN                SA6    /MASTER/ANSI                                                    FEAT121L      69     A     
 FTN                SA6    CP.BLF                                                          FTN         1465     A     
 FTN       MIB1     SA1    CP.BLF                                                          FTN         1466     A     
 FTN                LX6    B1,X1                                                           FTN         1467     A     
 FTN                SA6    A1          SET STANDARD *COMPCOM* FORMAT                       FTN         1468     A     
 FTN                                                                                       FTN         1469     A     
 FTN      *         COPY MASTER LIST CONTROL FLAGS TO WORKING LIST CONTROL FLAGS.          FEAT121L      70          I
          -FEAT155H 
 FTN                                                                                       FEAT121L      71          I
          -FEAT155H 
 FTN                SA1    LSTMSTR                                                         FEAT121L      72          I
          -FEAT155H 
 FTN                SB2    L.MSTR-1                                                        FEAT121L      73          I
          -FEAT155H 
 FTN                BX6    X1                                                              FEAT121L      74          I
          -FEAT155H 
 FTN                SA6    LSTWRKG                                                         FEAT121L      75          I
          -FEAT155H 
 FTN                SA1    A1+B1                                                           FEAT121L      76          I
          -FEAT155H 
 FTN       MIB1A    BX6    X1                                                              FEAT121L      77          I
          -FEAT155H 
 FTN                SA1    A1+B1                                                           FEAT121L      78          I
          -FEAT155H 
 FTN                SA6    A6+B1                                                           FEAT121L      79          I
          -FEAT155H 
 FTN                SB2    B2-B1                                                           FEAT121L      80          I
          -FEAT155H 
 FTN                GT     B2,B0,MIB1A  IF NOT FINISHED COPYING                            FEAT121L      81          I
          -FEAT155H 
 FTN                                                                                       FEAT121L      82          I
          -FEAT155H 
 FTN      **        CHECK FOR CONFLICTS WITH TS OPTION.                                    FTN         1470     A     
 FTN      *                                                                                FTN         1471     A     
 FTN                SA2    TSFLAG                                                          FTN         1472          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 555    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
          -FCC0971
 FTN                SA3    CO.MODE                                                         FTN         1473          I
          -FCC0971
 FTN                SA4    PWFLAG                                                          FEAT126A      53          I
          -FCC0971
 FTN                NZ     X2,MB11     IF TS SELECTED                                      FTN         1474          I
          -FCC0971
 FTN                                                                                       FTN         1475          I
          -FCC0971
 FTN       #MD      IFEQ   .MODES,2                                                        FTN         1476          I
          -FCC0971
 FTN                EQ     E.TSMD      TS=0 NOT ALLOWED IN THIS CONFIG                     FTN         1477          I
          -FCC0971
 FTN       #MD      ENDIF                                                                  FTN         1478          I
          -FCC0971
 FTN                                                                                       FTN         1479          I
          -FCC0971
 FTN                NZ     X4,E.PW     IF PW SELECTED                                      FEAT126A      54          I
          -FCC0971
 FTN                ZR     X3,MB13     IF SEQ NOT SELECTED                                 FTN         1480          I
          -FCC0971
 FTN                EQ     E.TSEQ      SEQ SPECIFIED WITHOUT TS, TURN TS ON                FTN         1481          I
          -FCC0971
 FTN                                                                                       FTN         1482          I
          -FCC0971
 FTN       MB11     SA3    DFLAG                                                           FTN         1483          I
          -FCC0971
 FTN                SA4    CAFLAG                                                          FTN         1484          I
          -FCC0971
 FTN                IX0    X3+X4                                                           FTN         1485          I
          -FCC0971
 FTN                NZ     X0,E.TSDC   IF TS AND D, OR C                                   FTN         1486          I
          -FCC0971
 FTN       MB12     SA4    OPTFLG                                                          FTN         1487          I
          -FCC0971
 FTN                MI     X4,E.TSOPT  IF TS AND OPT                                       FTN         1488          I
          -FCC0971
 FTN                EQ     MB15        SKIP OPT/DEBUG/TRACE CHECK                          FCC0475        8          I
          -FCC0971
 FTN                                                                                       FTN         1489          I
          -FCC0971
 FTN                BX6    X6-X6                                                           FCC0971       30     A     
 FTN                SA1    TSFLAG                                                          FCC0971       31     A     
 FTN                SA2    CO.TS                                                           FCC0971       32     A     
 FTN                SA3    CO.MODE                                                         FCC0971       33     A     
 FTN                SA4    PWFLAG                                                          FCC0971       34     A     
 FTN                IFEQ   .FID,ON,1                                                       F66FCC       140     A     
 FTN                SA5    CO.ID                                                           F66FCC       141     A     
 FTN                NZ     X1,MB10     IF TS=0 NOT ON CONTROL CARD                         FCC0971       35     A     
 FTN                                                                                       FCC0971       36     A     
 FTN       #MD      IFEQ   .MODES,2                                                        FCC0971       37     A     
 FTN                EQ     E.TSMD      TS=0 NOT ALLOWED IN THIS CONFIGURATION              FCC0971       38     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 556    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       #MD      ENDIF                                                                  FCC0971       39     A     
 FTN                                                                                       FCC0971       40     A     
 FTN                SA6    A2          TURN OFF TS                                         FCC0971       41     A     
 FTN                IX0    X3+X4                                                           FCC0971       42     A     
 FTN                NZ     X0,E.SEQPW  TS=0 AND PW OR SEQ CONFLICT                         FCC0971       43     A     
 FTN                EQ     MB13                                                            FCC0971       44     A     
 FTN                                                                                       FCC0971       45     A     
 FTN       MB10     MI     X1,MB12     IF TS ON CONTROL CARD                               FCC0971       46     A     
 FTN                SA6    A1          CLEAR TS CONTROL CARD FLAG                          FCC0971       47     A     
 FTN                MI     X2,MB12B    IF TS DEFAULTED ON                                  FCC0971       48     A     
 FTN                NZ     X4,E.PW     PW WITHOUT TS IMPLIES TS                            FCC0971       49          I
          -F66FCC 
 FTN                IFEQ   .FID,ON,1                                                       F66FCC       142     A     
 FTN                NZ     X5,E.DC     DB WITHOUT TS IMPLIES TS                            F66FCC       143     A     
 FTN       MB10A    NZ     X4,E.PW     PW WITHOUT TS IMPLIES TS                            F66FCC       144     A     
 FTN       MB11     NZ     X3,E.TSEQ   SEQ WITHOUT TS IMPLIES TS                           FCC0971       50     A     
 FTN                EQ     MB13                                                            FCC0971       51     A     
 FTN                                                                                       FCC0971       52     A     
 FTN       MB12     BX7    X1                                                              FCC0971       53          I
          -FCC2436
 FTN                SA7    A2          TURN ON TS                                          FCC0971       54          I
          -FCC2436
 FTN       MB12     SA1    TSFLAG      MAY COME HERE FROM E.TSMD                           FCC2436        8     A     
 FTN                BX7    X1                                                              FCC2436        9     A     
 FTN                SA7    CO.TS       TURN ON TS                                          FCC2436       10     A     
 FTN                SA3    DFLAG                                                           FCC0971       55     A     
 FTN                SA4    CAFLAG                                                          FCC0971       56     A     
 FTN                IX0    X3+X4                                                           FCC0971       57     A     
 FTN                SA3    PMDFLAG                                                         FCCA532        5     A     
 FTN                IX0    X0+X3                                                           FCCA532        6     A     
 FTN                NZ     X0,E.TSDC   TS AND D OR C CONFLICT                              FCC0971       58     A     
 FTN       MB12A    SA4    OPTFLG                                                          FCC0971       59     A     
 FTN                MI     X4,E.TSOPT  TS AND OPT CONFLICT                                 FCC0971       60     A     
 FTN                EQ     MB15                                                            FCC0971       61     A     
 FTN                                                                                       FCC0971       62     A     
 FTN       MB12B    SA4    OPTFLG                                                          FCC0971       63     A     
 FTN                SA3    DFLAG                                                           FCC0971       64     A     
 FTN                IX0    X3+X4                                                           FCC0971       65     A     
 FTN                SA5    CAFLAG                                                          FCC0971       66     A     
 FTN                IX0    X0+X5                                                           FCC0971       67     A     
 FTN                ZR     X0,MB13     IF OPT, D OR C NOT ON CONTROL CARD                  FCC0971       68     A     
 FTN                SA6    A2          TURN OFF TS                                         FCC0971       69     A     
 FTN                                                                                       FCC0971       70     A     
 FTN      **        RECONCILE OPT, DEBUG AND TRACE SELECTIONS.                             FTN         1490     A     
 FTN      *                                                                                FTN         1491     A     
 FTN       MB13     SA2    CO.OLVL                                                         FTN         1492     A     
 FTN                ZR     X2,MB14     IF OPT=0                                            FTN         1493     A     
 FTN                SA3    DFLAG                                                           FTN         1494     A     
 FTN                ZR     X3,MB15     IF DEBUG NOT SELECTED                               FTN         1495     A     
 FTN                BX6    X6-X6                                                           FTN         1496     A     
 FTN                SA6    A2          FORCE OPT=0                                         FTN         1497     A     
 FTN                SA4    OPTFLG                                                          FTN         1498     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 557    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                NZ     X4,E.DOPT   DEBUG SELECTED WITH OPT .NZ.                        FTN         1499     A     
 FTN       MB14     MX6    1                                                               FTN         1500     A     
 FTN                SA6    CBNFLG      FORCE TRACE ON                                      FTN         1501     A     
 FTN                                                                                       FTN         1502     A     
 FTN      **        CHECK FOR UO WITHOUT OPT=2                                             FEAT126C      58     A     
 FTN      *                                                                                FEAT126C      59     A     
 FTN       MB15     SA2    CO.OLVL                                                         FEAT126C      60     A     
 FTN                SA3    UOFLAG                                                          FEAT126C      61     A     
 FTN                SX4    X2-2                                                            FEAT126C      62     A     
 FTN                ZR     X4,MB15A    IF OPT=2                                            FEAT126C      63     A     
 FTN                ZR     X3,MB15A    IF UO=0                                             FEAT126C      64     A     
 FTN                EQ     E.UO        UO WITHOUT OPT=2 IGNORED                            FEAT126C      65     A     
 FTN      **        CHECK FOR E AND B, C, GO, OL, TS, SEQ OR Q SELECTION.                  FTN         1503     A     
 FTN      *                                                                                FTN         1504     A     
 FTN       MB15     SA2    UFLAG                                                           FTN         1505          I
          -FEAT126C 
 FTN       MB15A    SA2    UFLAG                                                           FEAT126C      66     A     
 FTN                ZR     X2,MB16     IF E OPTION NOT SELECTED                            FTN         1506     A     
 FTN                SA3    BFLAG                                                           FTN         1507     A     
 FTN                SA4    CAFLAG                                                          FTN         1508     A     
 FTN                IX0    X3+X4                                                           FTN         1509     A     
 FTN                SA5    GOFLAG                                                          FTN         1510     A     
 FTN                IX0    X0+X5                                                           FTN         1511     A     
 FTN                SA2    OLIST                                                           FTN         1512          I
          -FEAT121L 
 FTN                SA2    /MASTER/OLIST                                                   FEAT121L      83     A     
 FTN                IX0    X0+X2                                                           FTN         1513     A     
 FTN                SA3    TSFLAG                                                          FTN         1514     A     
 FTN                IX0    X0+X3                                                           FTN         1515     A     
 FTN                SA4    QFLAG                                                           FTN         1516     A     
 FTN                IX0    X0+X4                                                           FTN         1517     A     
 FTN                SA5    CO.MODE                                                         FTN         1518     A     
 FTN                IX0    X0+X5                                                           FTN         1519     A     
 FTN                NZ     X0,E.EAND   IF E AND B C GO OL TS SEQ OR Q                      FTN         1520     A     
 FTN                BX6    X6-X6                                                           FCC0971       71     A     
 FTN                SA6    CO.TS       INSURE TS IS OFF                                    FCC0971       72     A     
 FTN                                                                                       FTN         1521     A     
 FTN      **        CHECK FOR  Q AND B, C, GO, OL, TS, OR SEQ SELECTION.                   FTN         1522     A     
 FTN      *                                                                                FTN         1523     A     
 FTN       MB16     SA2    QFLAG                                                           FTN         1524     A     
 FTN                ZR     X2,MB17     IF Q NOT SELECTED                                   FTN         1525     A     
 FTN                SA3    TSFLAG                                                          FTN         1526     A     
 FTN                SA4    CO.MODE                                                         FTN         1527     A     
 FTN                IX0    X3+X4                                                           FTN         1528     A     
 FTN                SA5    OLIST                                                           FTN         1529          I
          -FEAT121L 
 FTN                SA5    /MASTER/OLIST                                                   FEAT121L      84     A     
 FTN                IX0    X0+X5                                                           FTN         1530     A     
 FTN                SA2    CAFLAG                                                          FTN         1531     A     
 FTN                IX0    X0+X2                                                           FTN         1532     A     
 FTN                SA3    GOFLAG                                                          FTN         1533     A     
 FTN                IX0    X0+X3                                                           FTN         1534     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 558    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SA4    BFLAG                                                           FTN         1535     A     
 FTN                IX0    X0+X4                                                           FTN         1536     A     
 FTN                NZ     X0,E.QAND   IF Q AND B C GO OL TS OR SEQ                        FTN         1537     A     
 FTN                BX6    X6-X6                                                           FCC0971       73     A     
 FTN                SA6    CO.TS       INSURE TS IS OFF                                    FCC0971       74     A     
 FTN                                                                                       FTN         1538     A     
 FTN      **        CHECK FOR B=0 AND GO SELECTION.                                        FTN         1539     A     
 FTN      *                                                                                FTN         1540     A     
 FTN       MB17     SA2    GOFLAG                                                          FTN         1541     A     
 FTN                ZR     X2,MB18     IF GO NOT SELECTED                                  FTN         1542     A     
 FTN                SA3    FV.LGO                                                          FTN         1543     A     
 FTN                NZ     X3,MB18     IF B SELECTED                                       FTN         1544     A     
 FTN                EQ     E.BGO       B=0 AND GO IS INCONSISTENT                          FTN         1545     A     
 FTN                                                                                       FTN         1546     A     
 FTN       MB18     BSS    0                                                               FTN         1547          I
          -FEAT155J 
 FTN      **        SET UP ER OPTION.                                                      FEAT155J      15     A     
 FTN      *                                                                                FEAT155J      16     A     
 FTN       MB18     SX0    2RER                                                            FEAT155J      17     A     
 FTN                SA1    ERFLAG                                                          FEAT155J      18     A     
 FTN                IX2    X0-X1                                                           FEAT155J      19     A     
 FTN                ZR     X2,MB18A    IF ER NOT ON CONTROL CARD                           FEAT155J      20          I
          -F66FCC 
 FTN                BX6    X1                                                              FEAT155J      21          I
          -F66FCC 
 FTN                                                                                       F66FCC       145     A     
 FTN                IFEQ   .FID,ON,2                                                       F66FCC       146     A     
 FTN                SA3    CO.ID       INTERACTIVE DEBUG FLAG                              F66FCC       147     A     
 FTN                                                                                       F66FCC       148     A     
 FTN                ZR     X2,MB18AB   IF ER ON CONTROL CARD                               F66FCC       149     A     
 FTN                                                                                       F66FCC       150     A     
 FTN                IFEQ   .FID,ON,2                                                       F66FCC       151     A     
 FTN                ZR     X3,MB18AA   IF DB NOT ON                                        F66FCC       152     A     
 FTN                ZR     X1,E.ERDB   IF ER=0 AND DB=ID                                   F66FCC       153     A     
 FTN                                                                                       F66FCC       154     A     
 FTN       MB18AA   BX6    X1                                                              F66FCC       155     A     
 FTN                EQ     MB18D       SET ER OPTION                                       FEAT155J      22     A     
 FTN       MB18AB   BSS    0                                                               F66FCC       156     A     
 FTN                                                                                       F66FCC       157     A     
 FTN       #FID     IFEQ   .FID,ON                                                         F66FCC       158     A     
 FTN                ZR     X3,MB18A    IF DB OFF                                           F66FCC       159     A     
 FTN                MX6    1                                                               F66FCC       160     A     
 FTN                EQ     MB18D       SET ER OPTION                                       F66FCC       161     A     
 FTN       #FID     ENDIF                                                                  F66FCC       162     A     
 FTN                                                                                       F66FCC       163     A     
 FTN       MB18A    SA2    TSFLAG                                                          FEAT155J      23          I
          -FCC0971
 FTN       MB18A    SA2    CO.TS                                                           FCC0971       75     A     
 FTN                ZR     X2,MB18B    IF NOT TS                                           FEAT155J      24     A     
 FTN                SX6    "CC.ERT"                                                        FEAT155J      25     A     
 FTN                EQ     MB18C       SET ER OPTION                                       FEAT155J      26     A     
 FTN       MB18B    SA2    CO.OLVL                                                         FEAT155J      27     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 559    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SB7    X2+*+2                                                          FEAT155J      28     A     
 FTN                JP     B7                                                              FEAT155J      29     A     
 FTN      +         SX6    "CC.ER0"    OPT=0                                               FEAT155J      30     A     
 FTN                EQ     MB18C       SET ER OPTION                                       FEAT155J      31     A     
 FTN      +         SX6    "CC.ER1"    OPT=1                                               FEAT155J      32     A     
 FTN                EQ     MB18C       SET ER OPTION                                       FEAT155J      33     A     
 FTN      +         SX6    "CC.ER2"    OPT=2                                               FEAT155J      34     A     
 FTN       MB18C    LX6    59                                                              FEAT155J      35     A     
 FTN       MB18D    SA6    CO.ER                                                           FEAT155J      36     A     
 FTN                                                                                       FTN         1548     A     
 FTN      **        M OPTION (CYBER 76 ONLY) CONFLICTS WITH TS AND C OPTIONS.              FTN         1549          I
          -F162FTNA 
 FTN      **        CYBER 76 / SCOPE 2 CONFLICTS  --  STATIC, M + TS.                      F162FTNA     368     A     
 FTN      *                                                                                FTN         1550     A     
 FTN       #RM      IFEQ   OT#RM,7                                                         FTN         1551     A     
 FTN                SA2    OT.RM                                                           FTN         1552     A     
 FTN                NZ     X2,MB19     IF M OPTION NOT SELECTED                            FTN         1553          I
          -F162FTNA 
 FTN                SA3    TSFLAG                                                          FTN         1554          I
          -F162FTNA 
 FTN                SA4    CAFLAG                                                          FTN         1555          I
          -F162FTNA 
 FTN                IX0    X3+X4                                                           FTN         1556          I
          -F162FTNA 
 FTN                NZ     X0,E.MTSC   IF M AND TS OR C                                    FTN         1557          I
          -F162FTNA 
 FTN                ZR     X2,MB19A    IF CRM (M-OPTION) SELECTED                          F162FTNA     369     A     
 FTN                SA3    CO.STA                                                          F162FTNA     370     A     
 FTN                MX6    0                                                               F162FTNA     371     A     
 FTN                SA6    A3          ENSURE *STATIC* OFF                                 F162FTNA     372     A     
 FTN                NZ     X3,E.STAT   IF *STATIC* SELECTED                                F162FTNA     373     A     
 FTN                EQ     MB19B                                                           F162FTNA     374     A     
 FTN                                                                                       F162FTNA     375     A     
 FTN       MB19A    SA3    TSFLAG                                                          F162FTNA     376     A     
 FTN                NZ     X3,E.MTS    IF TS SELECTED                                      F162FTNA     377     A     
 FTN       MB19B    BSS    0                                                               F162FTNA     378     A     
 FTN       #RM      ENDIF                                                                  FTN         1558     A     
 FTN                SX7    0           OUTPUT FILE FLAG                                    FCC2170       26     A     
 FTN                SB5    4           INITIAL COUNTER LIMIT                               FCC2170       27     A     
 FTN                SB3    B1          INITIALIZE COUNTER                                  FCC2170       28     A     
 FTN                SB2    B0          INITIALIZE COUNTER                                  FCC2170       29     A     
 FTN                MX0    42          FILE-NAME                                           FCC2170       30     A     
 FTN       MB19C    SA1    FV.IN+B2    KEY TO BE MATCHED                                   FCC2170       31     A     
 FTN                BX5    X0*X1       MASK OFF FILE-NAME                                  FCC2170       32     A     
 FTN       MB19D    SA2    A1+B3       PICK UP ELEMENT OF ARRAY                            FCC2170       33     A     
 FTN                BX4    X0*X2       MASK OFF FILE-NAME                                  FCC2170       34     A     
 FTN                BX3    X5-X4                                                           FCC2170       35     A     
 FTN                NZ     X3,MB19E    IF FILE-NAME DOES NOT MATCH                         FCC2170       36     A     
 FTN                NZ     X7,E.FER    IF MORE THAN 2 OUTPUT FILES                         FCC2170       37     A     
 FTN                SA4    OUTLIT                                                          FCC2170       38     A     
 FTN                BX3    X5-X4                                                           FCC2170       39     A     
 FTN                NZ     X3,E.FER    IF NOT OUTPUT FILES                                 FCC2170       40     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 560    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SX7    2           SET OUTPUT FILES FLAG                               FCC2170       41     A     
 FTN       MB19E    SB3    B3+B1                                                           FCC2170       42     A     
 FTN                LE     B3,B5,MB19D IF MORE ELEMENT TO CHECK                            FCC2170       43     A     
 FTN                SB2    B2+B1       RESET COUNTERS                                      FCC2170       44     A     
 FTN                SB5    B5-B1                                                           FCC2170       45     A     
 FTN                SB3    B1                                                              FCC2170       46     A     
 FTN                GT     B5,MB19C    IF MORE TO CHECK                                    FCC2170       47     A     
 FTN       MB19     BSS    0                                                               FTN         1559          I
          -F162FTNA 
 FTN                                                                                       FTN         1560     A     
 FTN                SA1    GTXT                                                            FTN         1561          I
          -FEAT126C 
 FTN                NZ     X1,E.GTXT   IF GT OR XT SPECIFIED                               FTN         1562          I
          -FEAT126C 
 FTN       MB20     BSS    0                                                               FTN         1563          I
          -FEAT126C 
 FTN                                                                                       FTN         1564          I
          -FEAT126C 
 FTN      **        IF UNRESOLVED OPTION CONFLICTS TERMINATE COMPILATION.                  FTN         1565     A     
 FTN      *                                                                                FTN         1566     A     
 FTN                SA2    CNFLCT                                                          FTN         1567          I
          -F66FCC 
 FTN       MB19     SA2    CNFLCT                                                          F66FCC       164     A     
 FTN                NZ     X2,E.UC     IF UNRESOLVED CONFLICTS                             FTN         1568     A     
 FTN                                                                                       CP139FC       78     A     
 FTN                GETPAGE GP.PAGE    GET JOB PAGE PARAMETERS                             FCCA593       16     A     
 FTN                                                                                       FCCA593       17     A     
 FTN      **        SET PAGE WIDTH IF PW OPTION SELECTED.                                  FEAT126A      55     A     
 FTN      *                                                                                FEAT126A      56     A     
 FTN                SX6    "CC.PW"                                                         CP139FC       79     A     
 FTN                SA5    PWFLAG      CONTROL CARD PW OPTION                              FEAT126A      57     A     
 FTN                ZR     X5,MIB3                                                         FEAT126A      58          I
          -CP139FC
 FTN                ZR     X5,MIB2     IF PW NOT ON CONTROL CARD                           CP139FC       80     A     
 FTN                SB7    B1                                                              FEAT126A      59     A     
 FTN                RJ     DXB         CONVERT WIDTH TO BINARY                             FEAT126A      60     A     
 FTN                SX1    X6-50                                                           FEAT126A      61     A     
 FTN                MI     X1,E.PW1    IF PW .LT. 50                                       FEAT126A      62     A     
 FTN                SX1    X6-137                                                          FEAT126A      63     A     
 FTN                PL     X1,E.PW1    IF PW .GT. 136                                      FEAT126A      64     A     
 FTN       MIB2     SA6    CO.PW                                                           FEAT126A      65          I
          -CP139FC
 FTN       MIB2     SA6    CP.PW                                                           CP139FC       81     A     
 FTN                                                                                       FTN         1569     A     
 FTN                                                                                       FEAT155E      72     A     
 FTN      **        IF PAGE SIZE (PS-OPTION) OR PRINT DENSITY (PD-OPTION) WAS NOT          FEAT155E      73          I
          -FCCA422
 FTN      *         SPECIFIED, SET PS TO IP.PS.                                            FEAT155E      74          I
          -FCC1361X 
 FTN      *         SPECIFIED, SET PS TO IP.PS AND/OR PD TO IP.PD AS NECESSARY.            FCC1361X      15          I
          -FCCA422
 FTN      **        IF PAGE-SIZE (PS-OPTION) WAS NOT SPECIFICED,                           FCCA422       28     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 561    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *         SET PS TO IP.PS.                                                       FCCA422       29     A     
 FTN      *                                                                                FEAT155E      75     A     
 FTN       MIB3     SA5    CO.PS                                                           FEAT155E      76          I
          -FEAT155EA
 FTN       MIB3     SA5    CP.PS                                                           FEAT155EA     15     A     
 FTN                NZ     X5,MIB3A    IF PS SET                                           FEAT155E      77          I
          -FCCA593
 FTN                SX5    IP.PS                                                           FEAT155E      78          I
          -FCCA593
 FTN       MIB3A    MX0    CHAR                                                            FEAT155E      79          I
          -FCCA593
 FTN                BX0    X0*X5                                                           FEAT155E      80          I
          -FCCA593
 FTN                BX6    X5                                                              FEAT155E      81          I
          -FCCA593
 FTN                ZR     X0,MIB3B    IF CO.PS ALREADY BINARY                             FEAT155E      82          I
          -FEAT155EA-FCCA593
 FTN                ZR     X0,MIB3B    IF CP.PS ALREADY BINARY                             FEAT155EA     16          I
          -FCCA593
 FTN                SB7    B1                                                              FEAT155E      83          I
          -FCCA593
 FTN                RJ     DXB         CONVERT PAGE SIZE TO BINARY                         FEAT155E      84          I
          -FCCA593
 FTN                NZ     X4,E.PS1    IF INVALID NUMERIC                                  FEAT155E      85          I
          -FCCA593
 FTN       MIB3B    SX6    X6-4                                                            FEAT155E      86          I
          -FCC1200  -FCCA593
 FTN       MIB3B    SX6    X6-3                                                            FCC1200        8          I
          -FCCA422  -FCCA593
 FTN                MI     X6,E.PS2    IF PS .LT. 4                                        FEAT155EA     17          I
          -FCCA422  -FCCA593
 FTN                SA6    A5                                                              FEAT155E      87          I
          -FCCA422  -FCCA593
 FTN       MIB3B    BX7    -X6         NEGATE BINARY OF PAGE SIZE                          FCCA422       30          I
          -FCCA593
 FTN                SA7    A5          CP.PS = (-CP.PS)                                    FCCA422       31          I
          -FCCA593
 FTN                SX6    X6-4                                                            FCCA422       32          I
          -FCCA593
 FTN                MI     X6,E.PS2    IF PS .LT. 4                                        FCCA422       33          I
          -FCCA593
 FTN                SX6    X6+1                                                            FCCA422       34          I
          -FCCA593
 FTN                SA6    LCP.PS      LCP.PS = CP.PS - 3,WITH 3 LINES FOR HEADER          FCCA422       35          I
          -FCCA593
 FTN       MIB3C    SA4    CP.PD                                                           FCCA473        8          I
          -FCCA593
 FTN                NZ     X4,MIB3D    IF CP.PD IS SET                                     FCCA473        9          I
          -FCCA593
 FTN                SX6    IP.PD/2                                                         FCCA473       10          I
          -FCCA593
 FTN                LX6    6           2RS OR 2RT AND A BLANK IS ADDED                     FCCA473       11          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 562    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
          -FCCA593
 FTN                SX6    X6+2055B                                                        FCCA473       12          I
          -FCCA593
 FTN                LX6    8*CHAR      2LS OR 2LT                                          FCCA473       13          I
          -FCCA593
 FTN                SA6    CP.PD                                                           FCCA473       14          I
          -FCCA593
 FTN                ZR     X5,MIB3B    IF *PS* NOT ON CC                                   FCCA593       18     A     
 FTN                MX0    CHAR                                                            FCCA593       19     A     
 FTN                BX0    X0*X5                                                           FCCA593       20     A     
 FTN                BX6    X5                                                              FCCA593       21     A     
 FTN                ZR     X0,MIB3A    IF BINARY ALREADY                                   FCCA593       22     A     
 FTN                SB7    B1          DECIMAL                                             FCCA593       23     A     
 FTN                RJ     DXB                                                             FCCA593       24     A     
 FTN                NZ     X4,E.PS1    IF BAD CONVERSION                                   FCCA593       25     A     
 FTN       MIB3A    BX7    -X6         FOR COMPASS                                         FCCA593       26     A     
 FTN                SA7    A5                                                              FCCA593       27     A     
 FTN                SX6    X6-4                                                            FCCA593       28     A     
 FTN                NG     X6,E.PS2    IF .LT. 4 (MIN PAGE SIZE)                           FCCA593       29     A     
 FTN                SX6    X6+1                                                            FCCA593       30     A     
 FTN                SA6    LCP.PS      COMPENSATE FOR HEADER                               FCCA593       31     A     
 FTN                EQ     MIB3C                                                           FCCA593       32     A     
 FTN                                                                                       FCCA593       33     A     
 FTN      *         USE SYSTEM PAGE SIZE                                                   FCCA593       34     A     
 FTN                                                                                       FCCA593       35     A     
 FTN       MIB3B    SA1    GP.PAGE                                                         FCCA593       36     A     
 FTN                MX0    -8                                                              FCCA593       37     A     
 FTN                AX1    12+8        POSITION FOR *PS*                                   FCCA593       38     A     
 FTN                BX6    -X0*X1                                                          FCCA593       39     A     
 FTN                EQ     MIB3A       USE JOB DEFAULT VALUE                               FCCA593       40     A     
 FTN                                                                                       FCCA593       41     A     
 FTN       MIB3C    SA4    CP.PD                                                           FCCA593       42     A     
 FTN                SA1    GP.PAGE                                                         FCCA593       43     A     
 FTN                MX0    -3                                                              FCCA593       44     A     
 FTN                AX1    12+8+8+1    *PD*/2                                              FCCA593       45     A     
 FTN                BX6    -X0*X1                                                          FCCA593       46     A     
 FTN                LX6    6                                                               FCCA593       47     A     
 FTN                SX6    X6+2055B    BASE FOR S AND L DENSITY CONTROL                    FCCA593       48     A     
 FTN                LX6    8*CHAR                                                          FCCA593       49     A     
 FTN                SA6    RS.PD       SAVE RESTORE *PD*                                   FCCA593       50     A     
 FTN                NZ     X4,MIB3D    IF *PD* SET                                         FCCA593       51     A     
 FTN                SA6    CP.PD       FORCE *PD* INITIALLY                                FCCA593       52     A     
 FTN       MIB3C    SA4    CP.PD                                                           FCC1361X      16          I
          -FCCA410
 FTN                NZ     X4,MIB3D    IF PD SET                                           FCC1361X      17          I
          -FCCA410
 FTN                SX6    IP.PD/2+20B 1RS OR 1RT                                          FCC1361X      18          I
          -FCCA410
 FTN                LX6    9*CHAR      1LS OR 1LT                                          FCC1361X      19          I
          -FCCA410
 FTN                SA6    CP.PD       SET PD OPTION                                       FCC1361X      20          I
          -FCCA410
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 563    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                                                                                       FEAT155E      88     A     
 FTN      **        IF DEBUG OPTION IS ON AND THE DEBUG INPUT FILE NAME DIFFERS            FTN         1570     A     
 FTN      *         FROM THE MAIN INPUT FILE NAME, SUBSTITUTE THE DEBUG NAME IN            FTN         1571     A     
 FTN      *         THE MAIN INPUT FET/FIT.  DO NOT CHANGE THE FILE VECTOR TABLE,          FTN         1572     A     
 FTN      *         SO THAT THE DEBUG PROCESSOR CAN LATER RESTORE THE MAIN INPUT           FTN         1573     A     
 FTN      *         NAME TO THE MAIN INPUT FET/FIT.                                        FTN         1574     A     
 FTN      *                                                                                FTN         1575     A     
 FTN       MIB3     SA1    DFLAG                                                           FTN         1576          I
          -FEAT155E 
 FTN       MIB3C    SA1    DFLAG                                                           FEAT155E      89          I
          -FCC1361X 
 FTN       MIB3D    SA1    DFLAG                                                           FCC1361X      21     A     
 FTN                SA2    FV.IN                                                           FTN         1577     A     
 FTN                ZR     X1,MIB4A    IF DEBUG OPTION OFF                                 FTN         1578     A     
 FTN                MX5    7*6                                                             FTN         1579     A     
 FTN                BX6    X5*X1       (X6) = DEBUG INPUT FILE NAME                        FTN         1580     A     
 FTN                MX7    1                                                               FTN         1581     A     
 FTN                BX5    X5*X2       (X5) =  MAIN INPUT FILE NAME                        FTN         1582     A     
 FTN                SA7    CP.ERCT     TURN *COMPASS* DEBUG OPTION ON                      FTN         1583     A     
 FTN                IX1    X6-X5                                                           FTN         1584     A     
 FTN                NZ     X1,MIB4     IF DIFFERENT INPUT FILES                            FTN         1585     A     
 FTN                SX6    B1                                                              FTN         1586     A     
 FTN                SA6    DFLAG       FLAG TO SIGNAL (DEBUG=MAIN) INPUT FILE              FTN         1587     A     
 FTN                EQ     MIB4A                                                           FTN         1588     A     
 FTN                                                                                       FTN         1589     A     
 FTN       MIB4     CALL   CFF         CHANGE NAME IN FET/FIT                              FTN         1590     A     
 FTN                                                                                       FTN         1591     A     
 FTN                                                                                       FTN         1592     A     
 FTN      **        IF COMPASS ASSEMBLY (C-OPTION) SELECTED,                               FTN         1593     A     
 FTN      *         PUT "FTNMAC" IN LIST OF TEXTS.                                         FTN         1594     A     
 FTN       MIB4A    SA1    CAFLAG                                                          FTN         1595     A     
 FTN                ZR     X1,MIB5     IF ASSEMBLY BY FAX                                  FTN         1596     A     
 FTN                SA2    CP.STEXT                                                        FTN         1597     A     
 FTN                SX0    X2-7                                                            FTN         1598     A     
 FTN                PL     X0,E.S7     ONLY SEVEN TEXTS ALLOWED                            FTN         1599     A     
 FTN                SA3    FTEXT       NAME OF OBJECT TIME TEXT                            FTN         1600     A     
 FTN                NZ     X2,MIB4B    IF G OR S TEXTS WERE SPECIFIED                      FTN         1601     A     
 FTN                SA2    CP.LIB      S=0 FLAG                                            FTN         1602     A     
 FTN       MIB4B    SX7    X2+B1                                                           FTN         1603     A     
 FTN                BX6    X3                                                              FTN         1604     A     
 FTN                SA7    CP.STEXT    INCREMENT NUMBER OF TEXTS                           FTN         1605     A     
 FTN                SA6    X7+CP.STEXT                                                     FTN         1606     A     
 FTN                                                                                       FTN         1607     A     
 FTN                                                                                       FTN         1608     A     
 FTN      **        IF AUTOMATIC EXECUTION (G-OPTION) SELECTED, MOVE THE BINARY            FTN         1609     A     
 FTN      *         OUTPUT FILE NAME TO THE G-OPTION FLAG CELL.                            FTN         1610     A     
 FTN      *                                                                                FTN         1611     A     
 FTN       MIB5     SA1    GOFLAG                                                          FTN         1612     A     
 FTN                ZR     X1,MIB5D    IF GO=0                                             FTN         1613     A     
 FTN                SA2    FV.LGO                                                          FTN         1614     A     
 FTN                MX1    7*CHAR                                                          FTN         1615     A     
 FTN                BX6    X1*X2                                                           FTN         1616     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 564    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SA6    A1                                                              FTN         1617     A     
 FTN       MIB5D    BSS    0                                                               FTN         1618     A     
 FTN                                                                                       FTN         1619     A     
 FTN                                                                                       FTN         1620     A     
 FTN                                                                                       FTN         1621     A     
 FTN      **        IF QUICK COMPILATION (Q-OPTION) SELECTED, CLEAR BINARY                 FTN         1622     A     
 FTN      *         OUTPUT FILE NAME.                                                      FTN         1623     A     
 FTN      *                                                                                FTN         1624     A     
 FTN                SA1    QFLAG                                                           FTN         1625     A     
 FTN                SA2    FV.LGO                                                          FTN         1626     A     
 FTN                ZR     X1,MIB5A    IF Q-OPTION OFF                                     FTN         1627     A     
 FTN                BX6    X6-X6                                                           FTN         1628     A     
 FTN                CALL   CFN         CLEAR BINARY OUTPUT FILE NAME                       FTN         1629     A     
 FTN                                                                                       FTN         1630     A     
 FTN      **        IF PL OPTION SELECTED CHANGE VALUE OF PLIMIT.                          FTN         1631     A     
 FTN      *                                                                                FTN         1632     A     
 FTN       MIB5A    SA5    PLARG                                                           FTN         1633     A     
 FTN                ZR     X5,MIB5C    IF PL NOT SELECTED                                  FTN         1634     A     
 FTN                SB7    1                                                               FEAT121A      27     A     
 FTN                RJ     DXB         CONVERT COUNT TO BINARY                             FTN         1635     A     
 FTN                NZ     X4,E.PL     IF ERROR IN NUMBER                                  FTN         1636     A     
 FTN                SA6    PLIMIT                                                          FTN         1637     A     
 FTN       MIB5C    BSS    0                                                               FTN         1638     A     
 FTN                                                                                       FTN         1639     A     
 FTN                                                                                       FTN         1640     A     
 FTN                                                                                       FTN         1641     A     
 FTN      **        IF -SPY- (W-OPTION) IS SELECTED, POST AUTOMATIC CALL TO THE            FTN         1642     A     
 FTN      *         -SPY- REPORT GENERATOR.                                                FTN         1643     A     
 FTN      *         (APPLIES ONLY TO CYBER 74 / 6700 AND SMALLER MODELS.)                  FTN         1644     A     
 FTN      *         RESTRICTION-- THE AUTO CALL USES THE G-OPTION MECHANISM, AND           FTN         1645     A     
 FTN      *         THUS CAUSES A *G* ON THE CONTROL CARD TO BE IGNORED.                   FTN         1646     A     
 FTN      *                                                                                FTN         1647     A     
 FTN       #OS      IFEQ   .OS,0                                                           FTN         1648          I
          -FEAT126A 
 FTN       #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A      66     A     
 FTN       .T       IFNE   TEST,0                                                          FTN         1649     A     
 FTN                                                                                       FTN         1650     A     
 FTN                SA5    SPYW        SPY OPTION PARAMETER                                FTN         1651     A     
 FTN                SB7    B0                                                              FTN         1652     A     
 FTN                ZR     X5,MIB5B    IF SPY OPTION OFF                                   FTN         1653     A     
 FTN                RJ     DXB         CONVERT OCTAL TO BINARY                             FTN         1654     A     
 FTN                NZ     X4,E.SP     IF ERROR IN SPY WIDTH                               FTN         1655     A     
 FTN                CX3    X6                                                              FTN         1656     A     
 FTN                SB7    X3                                                              FTN         1657     A     
 FTN                NE     B7,B1,E.SW  IF NOT A POWER OF 2                                 FTN         1658     A     
 FTN                SX7    300600B     LIMIT *SPY* TO 3000B - 60000B                       FTN         1659     A     
 FTN                LX6    36                                                              FTN         1660     A     
 FTN                BX7    X6+X7                                                           FTN         1661     A     
 FTN                SA2    PRNSPY      NAME OF REPORT GENERATOR                            FTN         1662     A     
 FTN                LX7    12                                                              FTN         1663     A     
 FTN                SA7    SPYW        STORE PARAMETER WORD                                FTN         1664     A     
 FTN                BX6    X2                                                              FTN         1665     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 565    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SA6    GOFLAG      POST CALL (SIMULATED G-OPTION)                      FTN         1666     A     
 FTN       MIB5B    BSS    0                                                               FTN         1667     A     
 FTN                                                                                       FTN         1668     A     
 FTN       .T       ENDIF                                                                  FTN         1669     A     
 FTN       #OS      ENDIF                                                                  FTN         1670     A     
 FTN                                                                                       FTN         1671     A     
 FTN                                                                                       FTN         1672     A     
 FTN                                                                                       FTN         1673     A     
 FTN      **        TURN -OUTPUT MACRO DEFS- FLAG ON IF ANY OF THE FOLLOWING               FTN         1674     A     
 FTN      *         OPTIONS ARE SELECTED --                                                FTN         1675     A     
 FTN      *                C = COMPASS ASSEMBLY OPTION                                     FTN         1676     A     
 FTN      *                E = EDIT/UPDATE OUTPUT OPTION                                   FTN         1677     A     
 FTN      *                O = OBJECT CODE LIST OPTION                                     FTN         1678     A     
 FTN      *                                                                                FTN         1679     A     
 FTN                SA1    CAFLAG      C-OPTION FLAG                                       FTN         1680     A     
 FTN                SA2    UFLAG       E-OPTION FLAG                                       FTN         1681     A     
 FTN                BX7    X1+X2                                                           FTN         1682     A     
 FTN                SA1    OLIST       O-OPTION FLAG                                       FTN         1683          I
          -FEAT121L 
 FTN                SA1    /MASTER/OLIST     OL-OPTION FLAG                                FEAT121L      85     A     
 FTN                BX6    X7+X1                                                           FTN         1684     A     
 FTN                SA6    MACFLAG     TURN -OUTPUT MACRO DEFS- FLAG ON                    FTN         1685     A     
 FTN                                                                                       FTN         1686     A     
 FTN                                                                                       FTN         1687     A     
 FTN                                                                                       FTN         1688     A     
 FTN      **        IF C- OR E-OPTION IS SELECTED, INHIBIT UNLOADING THE                   FTN         1689     A     
 FTN      *         -CMPS- FILE AT END OF COMPILATION.                                     FTN         1690     A     
 FTN      *                                                                                FTN         1691     A     
 FTN                ZR     X7,MIB6     IF C- AND E-OPTIONS BOTH OFF                        FTN         1692     A     
 FTN                                                                                       FTN         1693     A     
 FTN       #RM      IFEQ   CP#RM,0                                                         FTN         1694     A     
 FTN                SX6    -B1                                                             FTN         1695     A     
 FTN                SA6    SCRTBL+3    REMOVE -CMPS- FROM SCRATCH FILE TABLE               FTN         1696     A     
 FTN       #RM      ELSE                                                                   FTN         1697     A     
 FTN                STORE  FI.CMPS,CF=R      SET CLOSE FLAG = REWIND                       FTN         1698     A     
 FTN       #RM      ENDIF                                                                  FTN         1699     A     
 FTN                                                                                       FTN         1700     A     
 FTN                                                                                       FTN         1701     A     
 FTN                                                                                       FTN         1702     A     
 FTN      **        CONVERT CONTROL CARD OPTIONS TO DPC AND MOVE TO TITLE LINE.            FTN         1703     A     
 FTN      *                                                                                FTN         1704     A     
 FTN       MIB6     MX0    -6          (X0) = ONE-CHARACTER EXTRACTION MASK                FTN         1705     A     
 FTN                SA6    CCBUF       (A6) = STRING BUFFER STORE POINTER                  FTN         1706     A     
 FTN                                                                                       FTN         1707     A     
 FTN      *         OPTIMIZATION LEVEL OPTION.                                             FTN         1708     A     
 FTN                                                                                       FTN         1709     A     
 FTN                SA2    TSFLAG                                                          FTN         1710          I
          -FCC0971
 FTN                SA2    CO.TS                                                           FCC0971       76          I
          -FCCA406
 FTN                MI     X2,MIB6A    IF IN TS MODE                                       FTN         1711          I
          -FCCA406
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 566    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SA1    OLIT        *OPT=*                                              FTN         1712          I
          -FCCA406
 FTN                RJ     MIBA        BURST LITERAL TO STRING BUFFER                      FTN         1713          I
          -FCCA406
 FTN                SA2    CO.OLVL     (X2) = OPTIMIZATION LEVEL                           FTN         1714          I
          -FCCA406
 FTN                SX5    X2-2                                                            FEAT121A      28          I
          -FEAT126C -FCCA406
 FTN                SX1    3R0                                                             FTN         1715          I
          -FEAT126C -FCCA406
 FTN                LX2    2*6                                                             FTN         1716          I
          -FEAT126C -FCCA406
 FTN                IX1    X1+X2                                                           FTN         1717          I
          -FEAT126C -FCCA406
 FTN                LX1    7*6                                                             FTN         1718          I
          -FEAT121A -FEAT126C -FCCA406
 FTN                LX1    42                                                              FEAT121A      29          I
          -FEAT126C -FCCA406
 FTN                MX7    0                                                               FEAT121A      30          I
          -FEAT126C -FCCA406
 FTN      +         PL     X5,*+1      IF OPT \ 2                                          FEAT121A      31          I
          -FEAT126C -FCCA406
 FTN                SA7    UOFLAG      UOFLAG = 0                                          FEAT121A      32          I
          -FEAT126C -FCCA406
 FTN                                                                                       FEAT121A      33          I
          -FEAT126C -FCCA406
 FTN                SX1    1R0                                                             FEAT126C      67          I
          -FCCA406
 FTN                IX1    X1+X2                                                           FEAT126C      68          I
          -FCCA406
 FTN                LX1    9*CHAR                                                          FEAT126C      69          I
          -FCCA406
 FTN                SA2    UOFLAG                                                          FEAT121A      34          I
          -FCCA406
 FTN                ZR     X2,MIB6B    IF UO NOT SELECTED                                  FEAT121A      35          I
          -FCCA406
 FTN                LX1    18                                                              FEAT121A      36          I
          -FEAT126C -FCCA406
 FTN                SX2    2RUX-2R X                                                       FEAT121A      37          I
          -FEAT126C -FCCA406
 FTN                IX1    X1+X2       *NU *                                               FEAT121A      38          I
          -FEAT126C -FCCA406
 FTN                LX1    42                                                              FEAT121A      39          I
          -FEAT126C -FCCA406
 FTN                RJ     MIBA        STORE OPT LEVEL TO STRING BUFFER                    FEAT126C      70          I
          -FCCA406
 FTN                SA1    UOLIT       *UO*                                                FEAT126C      71          I
          -FCCA406
 FTN                EQ     MIB6B                                                           FTN         1719          I
          -FCCA406
 FTN                                                                                       FTN         1720          I
          -FCCA406
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 567    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       MIB6A    SA1    TSLIT                                                           FTN         1721          I
          -FCCA406
 FTN       MIB6B    RJ     MIBA        OPT LEVEL OR TS TO STRING BUFFER                    FTN         1722          I
          -FCCA406
 FTN                SA2    CO.TS                                                           FCCA406       10     A     
 FTN                MI     X2,MIB6D    IF IN TS MODE                                       FCCA406       11     A     
 FTN                SA2    DFLAG                                                           FCCA406       12     A     
 FTN                ZR     X2,MIB6A    IF DEBUG OPTION OFF                                 FCCA406       13     A     
 FTN                SA2    CO.STA                                                          FCCA406       14     A     
 FTN                ZR     X2,MIB6B    IF STATIC OPTION OFF                                FCCA406       15     A     
 FTN                EQ     MIB7A                                                           FCCA406       16     A     
 FTN                                                                                       FCCA406       17     A     
 FTN       MIB6A    SA2    UOFLAG                                                          FCCA406       18     A     
 FTN                ZR     X2,MIB6B    IF UO NOT SELECTED                                  FCCA406       19     A     
 FTN                EQ     MIB6C                                                           FCCA406       20     A     
 FTN                                                                                       FCCA406       21     A     
 FTN       MIB6B    SA1    OLIT        *OPT=*                                              FCCA406       22     A     
 FTN                RJ     MIBA        BURST *OPT=* TO STRING BUFFER                       FCCA406       23     A     
 FTN                SA2    CO.OLVL     (X2) = OPTIMIZATION LEVEL                           FCCA406       24     A     
 FTN                SX1    1R0                                                             FCCA406       25     A     
 FTN                IX1    X1+X2                                                           FCCA406       26     A     
 FTN                LX1    9*CHAR                                                          FCCA406       27     A     
 FTN                SA2    UOFLAG                                                          FCCA406       28     A     
 FTN                ZR     X2,MIB6E    IF UO NOT SELECTED                                  FCCA406       29     A     
 FTN                RJ     MIBA        STORE OPT LEVEL TO STRING BUFFER                    FCCA406       30     A     
 FTN       MIB6C    SA1    UOLIT       * UO*                                               FCCA406       31     A     
 FTN                EQ     MIB6E                                                           FCCA406       32     A     
 FTN                                                                                       FCCA406       33     A     
 FTN       MIB6D    SA1    TSLIT       *TS*                                                FCCA406       34     A     
 FTN      *         DISABLE PMDMP IF TS MODE SPECIFIED                                     FEAT1070C     85     A     
 FTN                SX7    0                                                               FEAT1070C     86     A     
 FTN                SA7    PMDFLAG                                                         FEAT1070C     87     A     
 FTN       #FID     IFEQ   .FID,ON                                                         FCCA406       35     A     
 FTN                SA2    CO.ID                                                           FCCA406       36     A     
 FTN                ZR     X2,MIB6E    IF ID OPTION OFF                                    FCCA406       37     A     
 FTN                RJ     MIBA        BURST *TS* TO STRING BUFFER                         FCCA406       38     A     
 FTN                SA1    IDLIT       * ID*                                               FCCA406       39     A     
 FTN       #FID     ENDIF                                                                  FCCA406       40     A     
 FTN       MIB6E    RJ     MIBA                                                            FCCA406       41     A     
 FTN                                                                                       FTN         1723     A     
 FTN      *         ROUND OPTIONS.                                                         FTN         1724     A     
 FTN                                                                                       FTN         1725     A     
 FTN                SA2    ROPFLAG     (X2) = ROUND OPTION FLAGS                           FTN         1726          I
          -FCCA406
 FTN       MIB7A    SA2    ROPFLAG     (X2) = ROUND OPTION FLAGS                           FCCA406       42     A     
 FTN                SA1    RLIT        * ROUND=*                                           FTN         1727     A     
 FTN                ZR     X2,MIB9     IF ROUND OPTION OFF                                 FTN         1728     A     
 FTN                RJ     MIBA                                                            FTN         1729     A     
 FTN                LX2    59-22       + OPTION FLAG TO BIT 59                             FTN         1730     A     
 FTN                SB2    1R+                                                             FTN         1731     A     
 FTN                SB3    1R/                                                             FTN         1732     A     
 FTN       MIB7     PL     X2,MIB8     IF OPTION OFF                                       FTN         1733     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 568    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SX1    B2                                                              FTN         1734     A     
 FTN                LX1    9*6                                                             FTN         1735          I
          -FCCA406
 FTN                LX1    9*CHAR                                                          FCCA406       43     A     
 FTN                RJ     MIBA        OPTION CHARACTER TO STRING BUFFER                   FTN         1736     A     
 FTN       MIB8     SB2    B2+B1                                                           FTN         1737     A     
 FTN                LX2    1           NEXT OPTION FLAG TO BIT 59                          FTN         1738     A     
 FTN                LE     B2,B3,MIB7  IF ALL ROUND OPTIONS NOT PROCESSED                  FTN         1739     A     
 FTN                                                                                       FTN         1740     A     
 FTN      *         TRACE OPTION.                                                          FTN         1741     A     
 FTN                                                                                       FTN         1742     A     
 FTN       MIB9     SA2    CBNFLG                                                          FTN         1743     A     
 FTN                SA1    TLIT                                                            FTN         1744     A     
 FTN                ZR     X2,MIB10    IF TRACE OPTION OFF                                 FTN         1745     A     
 FTN                RJ     MIBA        *TRACE* TO STRING BUFFER                            FTN         1746     A     
 FTN                                                                                       FTN         1747     A     
 FTN      *         DEBUG OPTION.                                                          FTN         1748     A     
 FTN                                                                                       FTN         1749     A     
 FTN       MIB10    SA2    DFLAG                                                           FTN         1750     A     
 FTN                SA1    DLIT                                                            FTN         1751     A     
 FTN                ZR     X2,MIB11    IF DEBUG OPTION OFF                                 FTN         1752          I
          -FCCA406
 FTN                ZR     X2,MIB10A   IF DEBUG OPTION OFF                                 FCCA406       44     A     
 FTN                RJ     MIBA        *DEBUG* TO STRING BUFFER                            FTN         1753     A     
 FTN                                                                                       FTN         1754     A     
 FTN      *         STATIC OPTION                                                          FCCA406       45     A     
 FTN                                                                                       FCCA406       46     A     
 FTN       MIB10A   SA2    CO.STA                                                          FCCA406       47     A     
 FTN                SA1    SLIT        * STATIC*                                           FCCA406       48     A     
 FTN                ZR     X2,MIB11    IF STATIC OPTION OFF                                FCCA406       49          I
          -FEAT1070C
 FTN                ZR     X2,MIB10B   IF STATIC OPTION OFF                                FEAT1070C     88     A     
 FTN                RJ     MIBA        BURST * STATIC* TO STRING BUFFER                    FCCA406       50     A     
 FTN                                                                                       FCCA406       51     A     
 FTN      *         PMDMP OPTION                                                           FEAT1070C     89     A     
 FTN                SPACE                                                                  FEAT1070C     90     A     
 FTN      MIB10B    SA2    PMDFLAG                                                         FEAT1070C     91     A     
 FTN                SA1    PMDLIT                                                          FEAT1070C     92     A     
 FTN                ZR     X2,MIB11    IF PMDMP DISABLED                                   FEAT1070C     93     A     
 FTN                RJ     MIBA        *PMDMP* TO STRING BUFFER                            FEAT1070C     94     A     
 FTN                SPACE  1                                                               FEAT1070C     95     A     
 FTN      *         PACK UP STRING BUFFER AND STORE IN TITLE LINE.                         FTN         1755     A     
 FTN                                                                                       FTN         1756     A     
 FTN       MIB11    SB2    A6          (B2) = ADDR OF LAST CHARACTER BURST                 FTN         1757     A     
 FTN                SB3    CCBUF                                                           FTN         1758     A     
 FTN                SB4    TL.CCOP                                                         FTN         1759     A     
 FTN                SB5    TL.CCOP+3                                                       FTN         1760     A     
 FTN                MX2    1           (X2) = WORD PACKING LOOP COUNTER                    FTN         1761     A     
 FTN                BX6    X6-X6       CLEAR PACKING REGISTER                              FTN         1762     A     
 FTN       MIB12    SB3    B3+B1                                                           FTN         1763     A     
 FTN                LX2    6           INCREMENT WORD PACK COUNTER                         FTN         1764     A     
 FTN                SA1    B3          (X1) = NEXT STRING BUFFER CHARACTER                 FTN         1765     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 569    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                LX6    6           SHIFT PACKING REGISTER TO NEXT CHARACTER            FTN         1766     A     
 FTN                LE     B3,B2,MIB13 IF CHARACTER AVAILABLE TO PACK                      FTN         1767     A     
 FTN                SX1    1R          BLANK FILL                                          FTN         1768     A     
 FTN       MIB13    BX6    X6+X1       PACK CHARACTER                                      FTN         1769     A     
 FTN                PL     X2,MIB12    IF FULL WORD NOT PACKED                             FTN         1770     A     
 FTN                SA6    B4          FULL WORD TO TITLE LINE                             FTN         1771     A     
 FTN                SB4    B4+B1                                                           FTN         1772     A     
 FTN                BX6    X6-X6       CLEAR PACKING REGISTER                              FTN         1773     A     
 FTN                LT     B4,B5,MIB12 IF MORE OPTION WORDS TO FILL IN TITLE LINE          FTN         1774     A     
 FTN                                                                                       FTN         1775     A     
 FTN                                                                                       FTN         1776     A     
 FTN                                                                                       FTN         1777     A     
 FTN      **        DETERMINE PRESENT COMPUTER MODEL AND PLACE IN TITLE LINE.              FTN         1778     A     
 FTN      *                                                                                FTN         1779     A     
 FTN                MX1    1                                                               FTN         1780     A     
 FTN                SB2    1S6                                                             FTN         1781     A     
 FTN                AX1    B2                                                              FTN         1782     A     
 FTN                SX3    6                                                               FTN         1783     A     
 FTN                MI     X1,MIB14    IF MODEL 76 / 7600                                  FTN         1784     A     
 FTN                SX6    0220B                                                           FTN         1785     A     
 FTN                SB2    MIB14                                                           FTN         1786     A     
 FTN                LX6    48                                                              FTN         1787     A     
 FTN      +         SA6    *+1         STORE *JP B2* INSTRUCTION                           FTN         1788          I
          -FCCA596
 FTN                BX4    X6          FORM  +         JP     B2                           FCCA596       11     A     
 FTN                LX4    30                -         JP     B2                           FCCA596       12     A     
 FTN                BX6    X4+X6                                                           FCCA596       13     A     
 FTN      +         SA6    *+1         STORE *JP B2* (BOTH UPPER AND LOWER)                FCCA596       14     A     
 FTN                SX3    3                                                               FTN         1789     A     
 FTN      +         SX3    4           EXECUTE IF MODEL 74/6600, JUMP IF 73/6400           FTN         1790     A     
 FTN       MIB14    SA1    TL.CPU      *  70/7X   *                                        FTN         1791     A     
 FTN                LX3    6*6                                                             FTN         1792     A     
 FTN                IX6    X1+X3                                                           FTN         1793     A     
 FTN                SA6    A1          CURRENT CPU TYPE TO TITLE LINE                      FTN         1794     A     
 FTN                SX4    2R70                                                            FTN         1795     A     
 FTN                LX4    8*CHAR                                                          FTN         1796     A     
 FTN                LX3    2*CHAR                                                          FTN         1797     A     
 FTN                IX6    X3+X4                                                           FTN         1798     A     
 FTN                SA6    CP.CPU                                                          FTN         1799     A     
 FTN                                                                                       FTN         1800     A     
 FTN                                                                                       FTN         1801     A     
 FTN      **        REMOVE PERIOD FROM END OF TIME IN TITLE LINE.                          FEAT126A      67     A     
 FTN      *                                                                                FEAT126A      68     A     
 FTN                SA1    TL.TIME                                                         FEAT126A      69     A     
 FTN                SX2    1R.-1R                                                          FEAT126A      70          I
          -FCC1605X 
 FTN                IX6    X1-X2                                                           FEAT126A      71          I
          -FCC1605X 
 FTN                SX2    1R                                                              FCC1605X       4     A     
 FTN                MX3    54                                                              FCC1605X       5     A     
 FTN                BX1    X3*X1                                                           FCC1605X       6     A     
 FTN                BX6    X1+X2                                                           FCC1605X       7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 570    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                SA6    A1          BLANK FINAL PERIOD IN TIME                          FEAT126A      72     A     
 FTN                                                                                       FEAT126A      73     A     
 FTN                                                                                       FEAT126A      74     A     
 FTN      **        CROSS MODEL COMPILATION OPTION.                                        FTN         1802     A     
 FTN      *                                                                                FTN         1803     A     
 FTN       #RM      IFLE   CP#RM,6                                                         FTN         1804     A     
 FTN       .T       IFEQ   TEST,0                                                          FTN         1805     A     
 FTN      *         DO NOT ALLOW MODEL 76 COMPILATION ON MODEL 74 OR LESS UNLESS           FTN         1806     A     
 FTN      *         IN TEST MODE.                                                          FTN         1807     A     
 FTN                MX6    0                                                               FTN         1808     A     
 FTN                SA6    OT.RM       FORCE OBJECT TIME I/O TO ZERO                       FTN         1809     A     
 FTN       .T       ENDIF                                                                  FTN         1810     A     
 FTN       #RM      ELSE                                                                   FTN         1811     A     
 FTN      *         CHANGE RECORD TYPE ON MODEL 76 FOR EXECUTION ON LOWER CYBER            FTN         1812     A     
 FTN                SA2    OT.RM                                                           FTN         1813     A     
 FTN                NZ     X2,MIB            IF 7RM OBJECT MODE - EXIT                     FTN         1814     A     
 FTN                STORE  FI.LGO,RT=S       CHANGE RECORD TYPE TO S                       FTN         1815     A     
 FTN       #RM      ENDIF                                                                  FTN         1816     A     
 FTN                                                                                       FTN         1817     A     
 FTN                EQ     MIB         EXIT                                                FTN         1818     A     
 FTN                                                                                       FCCA593       53     A     
 FTN       GP.PAGE  BSSZ   2           *GETPAGE* RETURN BLOCK                              FCCA593       54     A     
 FTN                                                                                       FCCA593       55     A     
 FTN                SPACE  4,8                                                             FTN         1819     A     
 FTN      *         MISC INITIALIZATION LITERALS.                                          FTN         1820     A     
 FTN                                                                                       FTN         1821     A     
 FTN       DLIT     DATA   6L DEBUG                                                        FTN         1822     A     
 FTN       OLIT     DATA   4LOPT=                                                          FTN         1823     A     
 FTN       RLIT     DATA   7L ROUND=                                                       FTN         1824     A     
 FTN       TLIT     DATA   6L TRACE                                                        FTN         1825     A     
 FTN       OUTLIT   DATA   6LOUTPUT                                                        FCC2170       48     A     
 FTN      PMDLIT    DATA   8L  PMDMP                                                       FEAT1070C     96     A     
 FTN       TSLIT    DATA   4L TS                                                           FTN         1826          I
          -FEAT126C 
 FTN       TSLIT    DATA   2LTS                                                            FEAT126C      72     A     
 FTN       UOLIT    DATA   3L UO                                                           FEAT126C      73     A     
 FTN       SLIT     DATA   7L STATIC                                                       FCCA406       52     A     
 FTN       IDLIT    DATA   3L ID                                                           FCCA406       53     A     
 FTN       MIBA     SPACE  4,8                                                             FTN         1827     A     
 FTN      **        MIBA - BURST DISPLAY-CODED WORD TO BUFFER, 1 CHAR/WORD.                FTN         1828     A     
 FTN      *                                                                                FTN         1829     A     
 FTN      *         CHARACTERS ARE BURST UNTIL A 6-BIT ZERO BYTE IS FOUND.                 FTN         1830     A     
 FTN      *         THE INPUT WORD MUST CONTAIN AT LEAST ONE ZERO BYTE, TO                 FTN         1831     A     
 FTN      *         TERMINATE THE BURST.                                                   FTN         1832     A     
 FTN      *                                                                                FTN         1833     A     
 FTN      *         ENTRY  (X0) = MASK(54)                                                 FTN         1834     A     
 FTN      *                (X1) = NOT MORE THAN 9 CHARS TO BURST, -L- FORMAT               FTN         1835     A     
 FTN      *                (A6) = ADDR LAST STRING BUFFER ENTRY                            FTN         1836     A     
 FTN      *                (B1) = 1                                                        FTN         1837     A     
 FTN      *                                                                                FTN         1838     A     
 FTN      *         EXIT   CHARACTERS BURST TO BUFFER, -R- FORMAT.                         FTN         1839     A     
 FTN      *                (A6) = ADDR LAST STRING BUFFER ENTRY                            FTN         1840     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 571    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *                (B1) = 1                                                        FTN         1841     A     
 FTN      *                                                                                FTN         1842     A     
 FTN      *         USES   X1, X6, A6                                                      FTN         1843     A     
 FTN      *                                                                                FTN         1844     A     
 FTN      *         CALLS  NONE                                                            FTN         1845     A     
 FTN                                                                                       FTN         1846     A     
 FTN                                                                                       FTN         1847     A     
 FTN       MIBA     ENTRY. *           ** ENTRY/EXIT **                                    FTN         1848     A     
 FTN                BX1    X0*X1       GUARANTEE BURST TERMINATOR                          FTN         1849     A     
 FTN                ZR     X1,MIBA     IF NOTHING TO BURST                                 FTN         1850     A     
 FTN                LX1    6                                                               FTN         1851     A     
 FTN       MIBA2    BX6    -X0*X1      EXTRACT CHARACTER                                   FTN         1852     A     
 FTN                IX1    X1-X6                                                           FTN         1853     A     
 FTN                SA6    A6+B1                                                           FTN         1854     A     
 FTN                LX1    6                                                               FTN         1855     A     
 FTN                NZ     X1,MIBA2    IF MORE TO BURST                                    FTN         1856     A     
 FTN                EQ     MIBA        EXIT                                                FTN         1857     A     
 FTN                TITLE  INITIALIZATION TABLES                                           FTN         1858     A     
 FTN       FVTBL    SPACE  4,8                                                             FTN         1859     A     
 FTN      **        FILE VECTOR TABLE.                                                     FTN         1860     A     
 FTN      *                                                                                FTN         1861     A     
 FTN      *         GENERATE TABLE OF DEFAULT FILE NAMES, FET/FIT POINTERS, AND            FTN         1862     A     
 FTN      *         TABLE ORDINALS.  THE TABLE IS MOVED TO THE JOB COMMUNICATIONS          FTN         1863     A     
 FTN      *         AREA, BEGINNING AT -RA.ARG-, BY THE LOOP AT -MIA2-.                    FTN         1864     A     
 FTN      *                                                                                FTN         1865     A     
 FTN      *         AFTER THE TABLE IS MOVED TO LOW CORE, THE ENTRY FOR A FILE             FTN         1866     A     
 FTN      *         CAN BE REFERENCED BY THE SYMBOL -FV.NAME-, WHERE *NAME* IS             FTN         1867     A     
 FTN      *         THE FILE NAME.                                                         FTN         1868     A     
 FTN      *                                                                                FTN         1869     A     
 FTN      *         THE TABLE IS FORMED BY THE -FVEC- MACRO, USING REMOTE CALLS            FTN         1870     A     
 FTN      *         ISSUED FROM THE -FET- MACRO.                                           FTN         1871     A     
 FTN       FVEC     SPACE  4,8                                                             FTN         1872     A     
 FTN      **        FVEC - MACRO TO FORM FILE VECTOR TABLE ENTRIES.                        FTN         1873     A     
 FTN      *                                                                                FTN         1874     A     
 FTN      *                                                                                FTN         1875     A     
 FTN      *         FVEC      FILE                                                         FTN         1876     A     
 FTN      *                                                                                FTN         1877     A     
 FTN      *         ENTRY  *FILE* = FILE NAME                                              FTN         1878     A     
 FTN      *                                                                                FTN         1879     A     
 FTN      *         EXIT   TABLE ENTRY IS FORMED.                                          FTN         1880     A     
 FTN      *                FV.*FILE* IS DEFINED AND DECLARED AN ENTRY POINT.               FTN         1881     A     
 FTN      *                                                                                FTN         1882     A     
 FTN      *         USES   NONE                                                            FTN         1883     A     
 FTN      *                                                                                FTN         1884     A     
 FTN      *         CALLS  NONE                                                            FTN         1885     A     
 FTN                                                                                       FTN         1886     A     
 FTN                PURGMAC   FVEC                                                         FTN         1887     A     
 FTN                                                                                       FTN         1888     A     
 FTN                                                                                       FTN         1889     A     
 FTN       FVEC     MACRO  FILE                                                            FTN         1890     A     
 FTN                ENTRY  FV.FILE                                                         FTN         1891     A     
 FTN       FV.FILE  =      *L                                                              FTN         1892     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 572    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       #RM      IFEQ   CP#RM,0                                                         FTN         1893     A     
 FTN                VFD    42/0L"FILE",18/FE.FILE                                          FTN         1894     A     
 FTN       #RM      ELSE                                                                   FTN         1895     A     
 FTN                VFD    42/0L"FILE",18/FI.FILE                                          FTN         1896     A     
 FTN       #RM      ENDIF                                                                  FTN         1897     A     
 FTN       FVEC     ENDM                                                                   FTN         1898     A     
 FTN                                                                                       FTN         1899     A     
 FTN                                                                                       FTN         1900     A     
 FTN                                                                                       FTN         1901     A     
 FTN      *         FORM TABLE ENTRIES.                                                    FTN         1902     A     
 FTN                                                                                       FTN         1903     A     
 FTN       FVTBL    BSS    0           DEFINE FILE VECTOR TABLE BASE ADDRESS               FTN         1904     A     
 FTN                LOC    RA.ARG      ULTIMATE TABLE ADDRESS (AFTER MOVE)                 FTN         1905     A     
 FTN                                                                                       FTN         1906     A     
 FTN                LIST   D                                                               FTN         1907     A     
 FTN       FVEC     HERE               -RMT- GENERATED BY -FET- MACRO                      FTN         1908     A     
 FTN                LIST   *                                                               FTN         1909     A     
 FTN                                                                                       FTN         1910     A     
 FTN                LOC    *O                                                              FTN         1911     A     
 FTN                                                                                       FTN         1912     A     
 FTN                                                                                       FTN         1913     A     
 FTN                                                                                       FTN         1914     A     
 FTN                ENTRY  FVLEN                                                           FTN         1915     A     
 FTN       FVLEN    =      *-FVTBL     DEFINE TABLE LENGTH                                 FTN         1916     A     
 FTN       COPYRITE SPACE  4,8                                                             FTN         1917     A     
 FTN      **        COPYRIGHT.                                                             FTN         1918     A     
 FTN      *                                                                                FTN         1919     A     
 FTN                DIS    4,COPYRIGHT CONTROL DATA CORP. 1973                             FTN         1920          I
          -FCC*80 
 FTN                DIS    4,COPYRIGHT CONTROL DATA CORP. 1973-1980                        FCC*80         5          I
          -FCC*81 
 FTN                DIS    4,COPYRIGHT CONTROL DATA CORP. 1973-1981                        FCC*81         6          I
          -FCC*82 
 FTN                DIS    4,COPYRIGHT CONTROL DATA CORP. 1973-1982                        FCC*82         6     A     
 FTN       CCBUF    SPACE  4,8                                                             FTN         1921     A     
 FTN      **        CONTROL CARD OPTION BUFFER                                             FTN         1922     A     
 FTN      *                                                                                FTN         1923     A     
 FTN      *         THE CONTROL CARD OPTIONS WILL BE BURST HERE, ONE CHARACTER             FTN         1924     A     
 FTN      *         PER WORD FOR DISPLAYING IN THE TITLE LINE.                             FTN         1925     A     
 FTN      *         THE BUFFER ORIGIN IS EQUATED TO -FVTBL- TO REUSE THE TABLE             FTN         1926     A     
 FTN      *         IMAGE SPACE AFTER THE TABLE HAS BEEN MOVED TO LOW CORE.                FTN         1927     A     
 FTN                                                                                       FTN         1928     A     
 FTN       CCBUF    =      FVTBL                                                           FTN         1929     A     
 FTN                                                                                       FTN         1930     A     
 FTN       #OS      IFEQ   .OS,1                                                           FTN         1931          I
          -FEAT126A 
 FTN       #OS      IFEQ   .OS,2       IF SCOPE 2                                          FEAT126A      75     A     
 FTN                BSS    L.MAXLL*10D-*+CCBUF   INSURE SPACE TO BURST CC OPTIONS          FTN         1932     A     
 FTN       #OS      ENDIF                                                                  FTN         1933     A     
 FTN       BUFFERS  TITLE  I/O BUFFERS AND BLOCK LENGTH COMPUTATIONS                       FTN         1934     A     
 FTN                TITLE  BUFFERS                                                         FTN         1935     A     
 FTN      *         COMPUTE BLOCK LENGTHS.                                                 FTN         1936     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 573    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN                                                                                       FTN         1937     A     
 FTN       L.RESFTN SET    0           CLEAR BLOCK LENGTH SUMMATION COUNTER                FTN         1938     A     
 FTN       BLKNR    MICRO              CLEAR BLOCK NUMBER COUNTER                          FTN         1939     A     
 FTN                                                                                       FTN         1940     A     
 FTN                LIST   D                                                               FTN         1941     A     
 FTN       BLKLEN   HERE               -RMT- GENERATED BY -BLKORG- MACRO                   FTN         1942     A     
 FTN                LIST   *                                                               FTN         1943     A     
 FTN                                                                                       FTN         1944     A     
 FTN                                                                                       FTN         1945     A     
 FTN                                                                                       FTN         1946     A     
 FTN      **        TOTAL RESIDENT CODE SPACE.                                             FTN         1947     A     
 FTN      *                                                                                FTN         1948     A     
 FTN       L.RESFTN SET    101B+CP.LCOM+L.RESFTN                                           FTN         1949          I
          -CP139FC
 FTN       L.RESFTN SET    RA.ORG+LDR.00+CP.LCOM+LDR.EP+L.RESFTN                           CP139FC       82          I
          -FCCA489
 FTN       L.RESFTN SET    RA.ORG+LDR.00+CP.LCOM+LDR.EP+L.RESFTN+EPSLAK                    FCCA489       29     A     
 FTN                SPACE  4,8                                                             FTN         1950     A     
 FTN       #RM      IFNE   CP#RM,7                                                         FTN         1951     A     
 FTN                                                                                       FTN         1952     A     
 FTN      **        STANDARD INPUT/OUTPUT BUFFER SPACE ALLOCATIONS.                        FTN         1953     A     
 FTN                                                                                       FTN         1954     A     
 FTN       OBUF     EQU    O.INIT            OUTPUT BUFFER FWA                             FTN         1955     A     
 FTN       OBUFL    =      CP.ORG-L.RESFTN-IBUFL                                           FTN         1956     A     
 FTN                                                                                       FTN         1957     A     
 FTN       7        ERRMI  OBUFL-"BUFL"      FTN (0,0) RESIDENT CODE IS TOO LONG.          FTN         1958     A     
 FTN                                                                                       FTN         1959     A     
 FTN       IBUF     EQU    OBUF+OBUFL        INPUT BUFFER FWA                              FTN         1960     A     
 FTN                                                                                       FTN         1961     A     
 FTN      *         FORCE SYSTEM LOADER TO RESERVE ALL REMAINING SPACE BELOW               FTN         1962     A     
 FTN      *         *CP.ORG* FOR THE (0,0) OVERLAY I/O BUFFER AREA.                        FTN         1963     A     
 FTN                                                                                       FTN         1964     A     
 FTN                USE    CCMSG                                                           FTN         1965     A     
 FTN                BSS    0                                                               FTN         1966     A     
 FTN       L.CCMSG  SET    *-O.CCMSG   LENGTH OF CONTROL CARD ERROR MESSAGE BLOCK          FTN         1967     A     
 FTN                USE    *                                                               FTN         1968     A     
 FTN                                                                                       FTN         1969     A     
 FTN                BSS    IBUF+IBUFL-L.CCMSG-*                                            FTN         1970          I
          -FCC2125
 FTN       BUFFERS  SPACE  3                                                               FTN         1971     A     
 FTN      **        SHRINK OUTPUT BUFFER WHEN SOURCE LISTING SUPPRESSED (L=0).             FTN         1972     A     
 FTN                                                                                       FTN         1973     A     
 FTN       L.MINBUF EQU    101B              MINIMUM OUTPUT BUFFER LENGTH                  FTN         1974     A     
 FTN                                                                                       FTN         1975     A     
 FTN       SAVLINE  EQENT  OBUF+L.MINBUF     FWA OF AREA WHERE COMPLETE (20 CARD)          FTN         1976          I
          -FEAT126C 
 FTN      *                                  SOURCE STATEMENTS ARE SAVED FOR               FTN         1977          I
          -FEAT126C 
 FTN      *                                  POSSIBLE DIAGNOSTIC LISTING.                  FTN         1978          I
          -FEAT126C 
 FTN       O.XPINB  EQENT  SAVLINE+L.SVSTM   EXPANDED INPUT BUFFER FWA                     FTN         1979          I
          -FEAT126C 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 574    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       L.XPINB  =      OBUFL+IBUFL-L.MINBUF-L.SVSTM EXPANDED INPUT BUFFER LEN          FTN         1980          I
          -FEAT126C 
 FTN       O.XPINB  EQENT  OBUF+L.MINBUF     EXPANDED INPUT BUFFER FWA                     FEAT126C      74     A     
 FTN       L.XPINB  =      OBUFL+IBUFL-L.MINBUF  EXPANDED INPUT BUFFER LENGTH              FEAT126C      75     A     
 FTN                                                                                       FTN         1981     A     
 FTN                LIST   D                                                               FTN         1982     A     
 FTN       CIOBUF   HERE               -RMT- GENERATED AFTER -LC.RMAP- DEFINITION          FTN         1983     A     
 FTN                LIST   *                                                               FTN         1984     A     
 FTN                                                                                       FTN         1985     A     
 FTN       #RM      ENDIF                                                                  FTN         1986     A     
 FTN       ZZZZFTN  SPACE  3,15                                                            FTN         1987     A     
 FTN       #ZFTN#   IFEQ   .OS,1       IF SCOPE 2                                          FTN         1988          I
          -FEAT126A 
 FTN       #ZFTN#   IFEQ   .OS,2       IF SCOPE 2                                          FEAT126A      76     A     
 FTN       END      MICRO  1,,/END    FTN/                                                 FTN         1989     A     
 FTN                "END"                                                                  FTN         1990     A     
 FTN                IDENT  ZZZZFTN                                                         FTN         1991     A     
 FTN                TITLE  Z Z Z Z F T N  -  DUMMY (0,0) OVERLAY FOR 7600                  FTN         1992     A     
 FTN                LCC    OVERLAY(ZZZZFTN,0,0)                                            FTN         1993     A     
 FTN      *CALL SSTCALL                                                                    FTN         1994     A     
 FTN      ***       -ZZZZFTN- IS A DUMMY ROUTINE THAT EXISTS ONLY TO IMPROVE               FTN         1995     A     
 FTN      *         THE USAGE OF SCM SPACE IN CYBER 76 / 7600 COMPUTERS UNDER              FTN         1996     A     
 FTN      *         THE SCOPE 2 OPERATING SYSTEM.                                          FTN         1997     A     
 FTN      *                                                                                FTN         1998     A     
 FTN      *         WITHOUT -ZZZZFTN-, WE WOULD WASTE THE SCM SPACE OCCUPIED BY            FTN         1999     A     
 FTN      *         THE -FTN- INITIALIZATION CODE (CONTROL CARD CRACKER, FILE              FTN         2000     A     
 FTN      *         OPENS, BUFFER SPACE ALLOCATIONS, ETC.), BECAUSE WE HAVE NO WAY         FTN         2001     A     
 FTN      *         TO DIRECT THE SCOPE 2 LOADER TO OVERLAY THIS CODE WITH THE             FTN         2002     A     
 FTN      *         PRIMARY OVERLAYS.                                                      FTN         2003     A     
 FTN      *                                                                                FTN         2004     A     
 FTN      *         -ZZZZFTN-, HOWEVER, REGAINS THIS SPACE BY MISDIRECTING THE             FTN         2005     A     
 FTN      *         LOADER TO SUIT OUR PURPOSE.  IN REALITY, -ZZZZFTN- IS A DUMMY          FTN         2006     A     
 FTN      *         (0,0) OVERLAY WHOSE LENGTH CORRESPONDS EXACTLY TO THE LENGTH           FTN         2007     A     
 FTN      *         OF ONLY THE RESIDENT PORTION OF THE REAL -FTN- (0,0) OVERLAY.          FTN         2008     A     
 FTN      *         WHEN THE LOADER IS CALLED TO CREATE THE ABSOLUTE BINARY                FTN         2009     A     
 FTN      *         OVERLAYS, THE REAL -FTN- (0,0) OVERLAY IS FIRST GENERATED AND          FTN         2010     A     
 FTN      *         WRITTEN TO THE FILE -FTN-.  NEXT, LOADER GENERATES THE                 FTN         2011     A     
 FTN      *         -ZZZZFTN- (0,0) OVERLAY AND WRITES IT TO -ZZZZFTN-.  THEN THE          FTN         2012     A     
 FTN      *         PRIMARY AND SECONDARY OVERLAYS ARE GENERATED AND WRITTEN TO            FTN         2013     A     
 FTN      *         -FTN-.  THE PRIMARY AND SECONDARY OVERLAYS WILL BE LINKED              FTN         2014     A     
 FTN      *         TO THE SHORT -ZZZZFTN-, BECAUSE THAT WAS THE LAST (0,0)                FTN         2015     A     
 FTN      *         RELOCATABLE BINARY ENCOUNTERED ON THE LOAD FILE.  THUS, THESE          FTN         2016     A     
 FTN      *         OVERLAYS WILL BE RELOCATED TO AND LATER LOADED AT THE END OF           FTN         2017     A     
 FTN      *         THE REAL -FTN- RESIDENT CODE --- THE DESIRED END RESULT.               FTN         2018     A     
 FTN      *                                                                                FTN         2019     A     
 FTN      *         NOTE THAT -ZZZZFTN- DOES NOT APPEAR ON THE FINAL ABSOLUTE              FTN         2020     A     
 FTN      *         BINARY FILE -FTN- BECAUSE ITS LOADER CONTROL (LCC) DIRECTIVE           FTN         2021     A     
 FTN      *         SPECIFIED THAT IT WAS TO BE WRITTEN TO THE FILE -ZZZZFTN-.             FTN         2022     A     
 FTN      *         THE HIGHER OVERLAYS, HOWEVER, ARE WRITTEN TO -FTN- FOR                 FTN         2023     A     
 FTN      *         CONVENTIONAL USE.                                                      FTN         2024     A     
 FTN      *                                                                                FTN         2025     A     
 FTN      *         TO INSURE THAT -ZZZZFTN- REMAINS THE SAME LENGTH AS THE                FTN         2026     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 575    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN      *         RESIDENT PORTION OF -FTN-, THE RESIDENT SOURCE CODE IS KEPT IN         FTN         2027     A     
 FTN      *         AN UPDATE *COMDECK NAMED -FTNRES-.  THIS *COMDECK IS CALLED            FTN         2028     A     
 FTN      *         INTO BOTH -FTN- AND -ZZZZFTN-, SO THAT FUTURE CODE MODIFICA-           FTN         2029     A     
 FTN      *         TIONS WILL AFFECT BOTH IDENTICALLY.                                    FTN         2030     A     
 FTN      *                                                                                FTN         2031     A     
 FTN      *         ALSO, -ZZZZFTN- REMAINS A PART OF THE UPDATE *DECK NAMED               FTN         2032     A     
 FTN      *         -FTN-, SO THAT IT NEED NOT BE SPECIFIED SEPARATELY ON                  FTN         2033     A     
 FTN      *         *COMPILE CARDS WHEN DOING QUICK OR SELECTIVE UPDATES.                  FTN         2034     A     
 FTN       #ZFTN#   ENDIF                                                                  FTN         2035     A     
 FTN                                                                                       FTN         2036     A     
 FTN                LIST   -L,-R       DO NOT LIST FTNRES CALL                             FTN         2037     A     
 FTN       #ZFTN#   IFEQ   .OS,1       IF SCOPE 2                                          FTN         2038          I
          -FEAT126A 
 FTN       #ZFTN#   IFEQ   .OS,2       IF SCOPE 2                                          FEAT126A      77     A     
 FTN      *CALL FTNRES                                                                     FTN         2039     A     
 FTN       #ZFTN#   ENDIF                                                                  FTN         2040     A     
 FTN                LIST   L,F,R                                                           FTN         2041     A     
 FTN                                                                                       FTN         2042     A     
 FTN       #ZFTN#   IFEQ   .OS,1       IF SCOPE 2                                          FTN         2043          I
          -FEAT126A 
 FTN       #ZFTN#   IFEQ   .OS,2       IF SCOPE 2                                          FEAT126A      78     A     
 FTN                ENTRY  FTN                                                             FTN         2044     A     
 FTN       FTN      BSS    0                                                               FTN         2045     A     
 FTN                                                                                       FTN         2046     A     
 FTN                                                                                       FTN         2047     A     
 FTN      **        DUMMY FILE VECTOR TABLE.                                               FTN         2048     A     
 FTN      *         REQUIRED ONLY TO DEFINE -FV.XXX- ENTRY POINTS.                         FTN         2049     A     
 FTN      *                                                                                FTN         2050     A     
 FTN                PURGMAC   FVEC                                                         FTN         2051     A     
 FTN       FVEC     MACRO  FILE                                                            FTN         2052     A     
 FTN                ENTRY  FV.FILE                                                         FTN         2053     A     
 FTN                LOC    VLOC                                                            FTN         2054     A     
 FTN       FV.FILE  BSS    0                                                               FTN         2055     A     
 FTN       VLOC     SET    VLOC+1                                                          FTN         2056     A     
 FTN       FVEC     ENDM                                                                   FTN         2057     A     
 FTN                                                                                       FTN         2058     A     
 FTN      *         FORM TABLE ENTRIES.                                                    FTN         2059     A     
 FTN                                                                                       FTN         2060     A     
 FTN       VLOC     SET    RA.ARG      INITIALIZE VECTOR TABLE ENTRY LOCATION              FTN         2061     A     
 FTN                                                                                       FTN         2062     A     
 FTN                LIST   D                                                               FTN         2063     A     
 FTN       FVEC     HERE                                                                   FTN         2064     A     
 FTN                LIST   *                                                               FTN         2065     A     
 FTN                                                                                       FTN         2066     A     
 FTN                LOC    *O                                                              FTN         2067     A     
 FTN                                                                                       FTN         2068     A     
 FTN                ENTRY  FVLEN                                                           FTN         2069     A     
 FTN       FVLEN    =      VLOC-RA.ARG DEFINE VECTOR TABLE LENGTH                          FTN         2070     A     
 FTN                                                                                       FTN         2071     A     
 FTN      **        SUM AND CHECK THE RESIDENT CODE LENGTH.                                FTN         2072     A     
 FTN      *                                                                                FTN         2073     A     
 FTN       L.RESFTN SET    0           CLEAR BLOCK LENGTH SUMMATION COUNTER                FTN         2074     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 576    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
 FTN       BLKNR    MICRO              CLEAR BLOCK NUMBER COUNTER                          FTN         2075     A     
 FTN                                                                                       FTN         2076     A     
 FTN                LIST   D                                                               FTN         2077     A     
 FTN       BLKLEN   HERE                                                                   FTN         2078     A     
 FTN                LIST   *                                                               FTN         2079     A     
 FTN                                                                                       FTN         2080     A     
 FTN       L.RESFTN SET    101B+CP.LCOM+L.RESFTN                                           FTN         2081          I
          -CP139FC
 FTN       L.RESFTN SET    RA.ORG+LDR.00+CP.LCOM+LDR.EP+L.RESFTN                           CP139FC       83          I
          -FCCA489
 FTN       L.RESFTN SET    RA.ORG+LDR.00+CP.LCOM+LDR.EP+L.RESFTN+EPSLAK                    FCCA489       30     A     
 FTN      *                                          EPSLAK ZERO FOR SCOPE 2               FCCA489       31     A     
 FTN       7        ERRMI  CP.ORG+1-L.RESFTN FTN (0,0) RESIDENT CODE IS TOO LONG           FTN         2082     A     
 FTN                                                                                       FTN         2083     A     
 FTN                                                                                       FTN         2084     A     
 FTN      **        FORCE -ZZZZFTN- TO END AT -CP.ORG-.                                    FTN         2085     A     
 FTN      *                                                                                FTN         2086     A     
 FTN                BSS    CP.ORG-L.RESFTN                                                 FTN         2087     A     
 FTN                                                                                       FTN         2088     A     
 FTN       #ZFTN#   ENDIF                                                                  FTN         2089     A     
 FTN                                                                                       FTN         2090     A     
 FTN                END    FTN                                                             FTN         2091     A     
 FTN      *WEOR,0                                                                          FTN         2092          I
          -FCCA589
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FTN     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FTN                       2092      1804
          FCC0475                      3         1
          FEAT121A                    14         2
          FEAT121L                    30        17
          FEAT126A                    42        24
          FEAT126B                     2         2
          FEAT126C                    28        23
          FCC0751                      1         1
          FCC0826                      9         8
          FCC0813                     28        28
          FCC0818                     20        20
          FCC0980                     11        11
          FCC1004                      5         3
          FEAT155D                    27        26
          FEAT155E                    66        38
          FEAT155H                    74        72
          FEAT155J                    24        21
          CP139FC                     23        21
          FEAT155EA                   12         4
          FEAT155F                     4         4
          FEAT155HB                    1         0
          FCC1200                      1         0
          FCC0971                     65        61
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 577    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTN     
  
          FCC1336                      3         3
          F7540FT                      4         4
          FCC1361X                     9         1
          FCC1605X                     4         4
          F162FTNA                    20        20
          F66FCC                      81        79
          F66FCCA                      2         2
          FCCA406                     44        43
          FCC1902                      1         1
          FCCA410                      2         0
          FEAT1070C                   14        14
          FCCA422                     23         2
          FCC1964                      3         3
          FCC2104                      6         3
          FCCA489                      8         8
          FCC2168                      1         1
          FCC2170                     42        42
          FCC*80                       1         0
          FCCA473                     11         0
          FCC2198                      3         3
          FCC2222                      1         1
          FCCA532                      3         3
          FCC*81                       1         0
          FCC2125                     30        30
          FCC2391                      6         6
          FCC*82                       1         1
          FCC2436                      4         4
          FCCA593                     43        43
          FCCA595                      2         2
          FCCA596                      4         4
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN WEOR4*  
  
 WEOR4*   *DECK WEOR4*                                                                     FCCA589       23     A     
 WEOR4*   *WEOR 0                                                                          FCCA589       24     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - WEOR4*  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FCCA589                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *TSMODE*
  
 *TSMODE* *DECK *TSMODE*                                                                   *TSMODE*       1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *TSMODE*
  
          IDENTIFIER               TOTAL    ACTIVE
  
          *TSMODE*                     1         1
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 578    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *TSMODE*
  
0 
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES   *DECK     TABLES                                                                 TABLES         1     A     
 TABLES             IDENT  TABLES                                                          TABLES         2     A     
 TABLES                                                                                    TABLES         3     A     
 TABLES             SST    A,B,C,D,F,G,L,K,Z,EXIT.                                         TABLES         4     A     
 TABLES             NOREF  A,B,C,D,F,G,L,K,Z,EXIT.                                         TABLES         5     A     
 TABLES                                                                                    TABLES         6     A     
 TABLES    B=TABL   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             TABLES         7     A     
 TABLES                                                                                    TABLES         8     A     
 TABLES             ENTRY  ACONS,ARGMIS,ANDNOT,ATTR,ARRARM,ASFARM                          TABLES         9     A     
 TABLES             ENTRY  ASFLEN,ASSN,ARGCOMA,ARGMODE,APLSTOR,APLSTOD,APLUG               TABLES        10     A     
 TABLES             ENTRY  BUFFWA,BUFLWA,BEFXARM,BIFFUN,BIFARM,BEFFUN,BIFSHF               TABLES        11     A     
 TABLES             ENTRY  BINOUT,BA.PRO,BINIO,BASES,BIFRAN,BA.CON,BA.FMT                  TABLES        12          I
          -FCC0966
 TABLES             ENTRY  BINOUT,BA.PRO,BINIO,BASES,BA.CON,BA.FMT,BLNKCOM                 FCC0966       11     A     
 TABLES             ENTRY  BA.TEM,BA.APL,BA.BUF,BA.VAR,BA.NLST,BUFMOD                      TABLES        13     A     
 TABLES             ENTRY  BLNKCOM                                                         FCC0583        5          I
          -FCC0966
 TABLES             ENTRY  CALLOP,CNFARM,CONOTBL,CLPARM,CONONE,CALLIO,CDORD,CONF           TABLES        14          I
          -FCC0787
 TABLES             ENTRY  CALLOP,CNFARM,CONOTBL,CONONE,CALLIO,CDORD,CONF                  FCC0787        6     A     
 TABLES             ENTRY  CONZER,CSYMBOL,CALLARM,CHARMAP,CCNT,COD,CDD                     TABLES        15          I
          -FCC0709
 TABLES             ENTRY  CONZER,CSYMBOL,CALLARM,CHARMAP,CCNT,COD,CDD,COMSIZ              FCC0709        5     A     
 TABLES             ENTRY  CSNTAG,COMMA,CALL,CARDS                                         TABLES        16          I
          -FEAT126B 
 TABLES             ENTRY  CSNTAG,COMMA,CALL,CARDS,CSLIST,CSSTMT                           FEAT126B      15     A     
 TABLES             ENTRY  COMMENT                                                         FCC1328X      40     A     
 TABLES             ENTRY  DRITE,DOLMR,DEFERL,DTI,DOORD,DECARM,DOIX,DIVP2,DXB              TABLES        17          I
          -FCC1328X 
 TABLES             ENTRY  DRITE,DOLMR,DTI,DOORD,DECARM,DOIX,DIVP2,DXB                     FCC1328X      41     A     
 TABLES             ENTRY  DOSTNO,DO=CC,DO.CSKL,DOARM,DO.BEG                               TABLES        18     A     
 TABLES             ENTRY  ETF,ERRORS,ENTRY.,ERROP,EXTCAL,EXTFUN,EQUAL,EXTFARM             TABLES        19     A     
 TABLES             ENTRY  FAILSFT,FIRSTV,FLOW                                             TABLES        20          I
          -FCC0787
 TABLES             ENTRY  FAILSFT,FIRSTV,FLOW,FEXPR                                       FCC0787        7     A     
 TABLES             ENTRY  GOASS,GOTARM                                                    TABLES        21     A     
 TABLES             ENTRY  HANGER                                                          TABLES        22          I
          -FCC1328X 
 TABLES             ENTRY  HANGER,HDELAY                                                   FCC1328X      42     A     
 TABLES             ENTRY  ICA,IDENT,ICV,IGS,IDENT1,IMULT2,INTMAC,ICONL                    TABLES        23          I
          -FEAT126A 
 TABLES             ENTRY  ICA,ICV,IGS,IDENT1,IMULT2,INTMAC,ICONL,NAME                     FEAT126A      79          I
          -FEAT155E 
 TABLES             ENTRY  ICV,IGS,IDENT1,IMULT2,INTMAC,ICONL,NAME                         FEAT155E      90     A     
 TABLES             ENTRY  IFARM,IOARGM,INAFR,IN.EXP                                       TABLES        24     A     
 TABLES             ENTRY  LASTCOL,LOGT,LG.LOG,LDEAD,LPAR,LPARM,LINEBUF,LCNT               TABLES        25     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 579    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES             ENTRY  L=TABLE,LOCORE,L.TABLE,LOCAL,LINENO,LOSTREF                     TABLES        26          I
          -FCC0813
 TABLES             ENTRY  L=TABLE,LOCAL,LINENO,LOSTREF                                    FCC0813       46          I
          -FEAT155E 
 TABLES             ENTRY  LOCAL,LOSTREF,L=TABLE                                           FEAT155E      91     A     
 TABLES             ENTRY  LASTAD,LASTOP                                                   TABLES        27          I
          -FEAT155G 
 TABLES             ENTRY  LASTAD,LASTOP,LJS                                               FEAT155G      27          I
          -FCC1328X 
 TABLES             ENTRY  LASTAD,LASTOP,LJS,L.CARD                                        FCC1328X      43     A     
 TABLES             ENTRY  MAXCORE,MOD,MSF,MSN,MULT,MULS,MAPCHAR                           TABLES        28          I
          -FCC0813
 TABLES             ENTRY  MOD,MSF,MSN,MULT,MULS,MAPCHAR                                   FCC0813       47     A     
 TABLES             ENTRY  MINUS.M,MULT(S                                                  TABLES        29     A     
 TABLES             ENTRY  NARGS,NOPATH,N.TABLE,NSK,NTRCNT,NREXT,NOREL,NDC=CNT             TABLES        30          I
          -FCC1328X 
 TABLES             ENTRY  NARGS,NOPATH,N.TABLE,NSK,NTRCNT,NREXT,NDC=CNT                   FCC1328X      44     A     
 TABLES             ENTRY  NDC=STR,NOLDS,NOOPP                                             TABLES        31          I
          -FEAT126B 
 TABLES             ENTRY  NDC=STR,NOLDS,NOOPP,NOLIST,N.BLK                                FEAT126B      16     A     
 TABLES             ENTRY  ORG,ORIGINS,OPBSS,ORDOP,OPRETD,OPRETS,OPDUM                     TABLES        32          I
          -FEAT155G 
 TABLES             ENTRY  ORG,ORIGINS,OPBSS,ORDOP,OPRETD,OPRETS,OPDUM,OTROP               FEAT155G      28          I
          -FCC1495AX
 TABLES             ENTRY  ORG,ORIGINS,OPBSS,OPRETD,OPRETS,OPDUM,OTROP                     FCC1495AX      6     A     
 TABLES             ENTRY  O.STITL                                                         FEAT155H      87     A     
 TABLES             ENTRY  PARCEL,PTN=FMT,PR.SLP,PASS,POPTBL,PSTACK,PLUS,PIA               TABLES        33          I
          -FEAT126C 
 TABLES             ENTRY  PARCEL,PTN=FMT,PR.SLP,PASS,POPTBL,PSTACK,PLUS                   FEAT126C      76     A     
 TABLES             ENTRY  PLUS.M,PLUS(S                                                   TABLES        34     A     
 TABLES             ENTRY  RATES,REFIO,RJTDUM,RTNCNT,REFLIN,REFPAG,RANF,REGA,REGX          TABLES        35          I
          -FEAT155E 
 TABLES             ENTRY  RANF,RATES,REFIO,REFLIN,REGA,REGX,RJTDUM,RTNCNT                 FEAT155E      92     A     
 TABLES             ENTRY  RG=BADR,RG=INTR,RG=LOAD,REG=B,REG=T,REGARG,RJSUB                TABLES        36     A     
 TABLES             ENTRY  RG=LODX,RG=STOR,RG=TEMP,RREG,REGARG2,ROUTNAM,REVMIN             TABLES        37     A     
 TABLES             ENTRY  REFNUM,REFVAR,RGC,RGX,RG=SET,REGFILE,REGB                       TABLES        38     A     
 TABLES             ENTRY  RG=SET                                                          TABLES        39     A     
 TABLES             ENTRY  SIZES,SIZCORE,STAGE,SYSERR,STN,SB.STNL,SB.STNR,SDIV             TABLES        40          I
          -FCC0813
 TABLES             ENTRY  SIZES,STAGE,SYSERR,STN,SB.STNL,SB.STNR,SDIV                     FCC0813       48          I
          -FEAT155G 
 TABLES             ENTRY  SFN,SIZES,STAGE,SYSERR,STN,SB.STNL,SB.STNR,SDIV                 FEAT155G      29     A     
 TABLES             ENTRY  SHFC,SHFD,SHFDS,SHFS,SHFSA,SUBOP                                TABLES        41          I
          -F162FTNA 
 TABLES             ENTRY  SHFC,SHFD,SHFDS,SHFS,SHFSA,STATIC,SUBOP                         F162FTNA     379     A     
 TABLES             ENTRY  TG.BASE,TG.CON,TG.END,TP.DIM,TS.BLK,TS.STN,TS.SYM,T.END         TABLES        42          I
          -FCC1495X 
 TABLES             ENTRY  TG.BASE,TG.END,TP.DIM,TS.BLK,TS.STN,TS.SYM,T.END                FCC1495X       4     A     
 TABLES             ENTRY  TA.PRO,TG.PRO,TS.ENT,TT=LF,T=FILE,T.FILE,TA=PRO,TT.LF           TABLES        43     A     
 TABLES             ENTRY  TP.APL,TP=APL,TP=FMT,TP.FMT,TEM.MAX,TS=BLK,TS=ENT               TABLES        44     A     
 TABLES             ENTRY  TS=CON,TS=SYM,TS.CON,TT=REF,TT=SCR,TT.REF,TT.SCR,TP=DO          TABLES        45     A     
 TABLES             ENTRY  TT.USE,TP=NLST,TP.DO,TP.NLST,TS=EQU,TS=STN,TS=DAT               TABLES        46     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 580    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES             ENTRY  TS.DAT,TT=ASF,TT=USE,TT=LINK,TT=FILL,TT.LINK,TT.FILL            TABLES        47     A     
 TABLES             ENTRY  TT.XFIL,TT=XFIL                                                 TABLES        48     A     
 TABLES             ENTRY  TP=DIM,TT=PAR,TT.ASF,TT.PAR,T.VDIM,T=INT,TG.TEM                 TABLES        49          I
          -FCC0813
 TABLES             ENTRY  TP=DIM,TT=PAR,TT.ASF,TT.PAR,T.VDIM,TG.TEM                       FCC0813       49     A     
 TABLES             ENTRY  T=SB,T.SB,T=LGOB,T.LGOB                                         FCC0813       50     A     
 TABLES             ENTRY  TI=DAT,TI.DAT,TL=DAT,TL.DAT,TP=EQU,TP.EQU,TS.EQU                TABLES        50     A     
 TABLES             ENTRY  TT=COMM,TT.COMM,TP=FMT,TP.FMT,T=VDIM,TN=BLK,TS=CONB             TABLES        51     A     
 TABLES             ENTRY  TA=NAM,TG.VDIM,TG.APL,TA.NAM,TN=EXT,TN.EXT,TN.BLK               TABLES        52     A     
 TABLES             ENTRY  THRESH                                                          FEAT155D      45     A     
 TABLES             ENTRY  TP.ILI,TP=ILI                                                   TABLES        53          I
          -FEAT126B 
 TABLES             ENTRY  TP.ILI,TP=ILI,T.DLBUF,T=DLBUF                                   FEAT126B      17     A     
 TABLES             ENTRY  TRLINE,UMINUS,UUC                                               TABLES        54     A     
 TABLES    #FID     IFNE   .FID,0                                                          F66FCC       165     A     
 TABLES             ENTRY  TP.CIDM,TP=CIDM                                                 F66FCC       166     A     
 TABLES    #FID     ENDIF                                                                  F66FCC       167     A     
 TABLES             ENTRY  VALUE.,VARDIM,VTRUE,VD.EQ,VD.MULT,VD.INTR                       TABLES        55     A     
 TABLES             ENTRY  WNZ                                                             TABLES        56          I
          -FEAT155G 
 TABLES             ENTRY  WNZ,WOD                                                         FEAT155G      30     A     
 TABLES             ENTRY  XPOP                                                            TABLES        57          I
          -FCC2194
 TABLES             ENTRY  XMITOP,XPOP                                                     FCC2194        6     A     
 TABLES             ENTRY  TRACE                                                           FCC0744        7     A     
 TABLES             ENTRY  ZLCOMMA,ZLE,ZLEQUAL,ZLPAREN                                     TABLES        58     A     
 TABLES             ENTRY  LDRFLG                                                          FCC1097        4     A     
 TABLES                                                                                    TABLES        59     A     
 TABLES   *         IN LEX                                                                 TABLES        60     A     
 TABLES             EXT    TAB.NX,TAB.STR,TAB.LP,TAB.RP,TAB.DOL,TAB.=,TAB.CO               TABLES        61     A     
 TABLES             EXT    TAB.PD                                                          TABLES        62     A     
 TABLES                                                                                    TABLES        63     A     
 TABLES   *         IN IO                                                                  TABLES        64     A     
 TABLES             EXT    O=IOJ,A=BMOD,A=BLWA,A=STR,A=FMT,C=BFWA,C=IOL,C=CNT              TABLES        65     A     
 TABLES             EXT    C=FMT                                                           TABLES        66     A     
 TABLES                                                                                    TABLES        67     A     
 TABLES   *         IN PAR                                                                 TABLES        68     A     
 TABLES             EXT    PAR.EOS,PAR.HOL,PAR.TNK,PAR.VAR,PAR.PL,PAR.MIN,PAR.STD          TABLES        69     A     
 TABLES             EXT    PAR.LP,PAR.EQL,PAR.CM,PAR.REL,PAR.TRU,PAR.FAL,PAR.DLP           TABLES        70          I
          -FCC0616
 TABLES             EXT    PAR.LP,PAR.EQL,PAR.CM,PAR.TRU,PAR.FAL,PAR.DLP                   FCC0616        4     A     
 TABLES             EXT    POP.MUL,POP.DIV,POP.PN,POP.RP,POP.REQ,POP.NOT,POP.EXP           TABLES        71     A     
 TABLES             EXT    POP.STD,POP.PL,POP.CM,POP.REL,POP.UM,PAR.LOG,POP.LOG            TABLES        72          I
          -FCC0616
 TABLES             EXT    POP.STD,POP.PL,POP.CM,POP.REL,POP.UM,POP.LOG                    FCC0616        5     A     
 TABLES             EXT    PAR.NX,C=CERR,C=BEF,C=BIF,C=CALL,C=DEC,C=DO,C=FUN,C=GOT         TABLES        73     A     
 TABLES             EXT    A=BIF,A=LIST,A=ASF,A=CALL,A=DEC,A=DO,A=FUN,A=IF,A=BEF           TABLES        74     A     
 TABLES             EXT    A=LP,C=LP,POP.OPN                                               TABLES        75          I
          -FCC0616
 TABLES             EXT    A=LP,C=LP                                                       FCC0616        6          I
          -FCC0787
 TABLES                                                                                    TABLES        76     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 581    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES   *         IN GEN                                                                 TABLES        77     A     
 TABLES             EXT    O=SUBL,A=ARRAY,C=ARRAY                                          TABLES        78          I
          -FEAT155G 
 TABLES             EXT    O=SUBL,A=ARRAY,C=ARRAY,O=OTR                                    FEAT155G      31     A     
 TABLES             EXT    O=ADD,O=SUB,O=MULT,O=DIV,O=STR,O=LT,O=GE,O=EQ,O=NE              TABLES        79     A     
 TABLES             EXT    O=NOT,O=ANDO,O=XOR,O=ORO,O=UMIN,O=APLUG,O=ASSGN,O=ORN           TABLES        80     A     
 TABLES             EXT    O=INT,O=XORN,O=ANDN,O=DOB,O=GOA,O=BSS,O=RETS,O=RETD             TABLES        81     A     
 TABLES             EXT    MULT.I,O=DOC1,O=DOC2,O=DOC3,O=DOC4                              TABLES        82     A     
 TABLES             EXT    O=DOC3A,O=SHFC,O=SHFS,O=SHFD,O=SHFSA,O=SHFDS,O=DIVP2            TABLES        83     A     
 TABLES             EXT    STR.I,SUB.I,ADD.I,O=RANF,O=STRC,O=RJSUB                         TABLES        84          I
          -FEAT155G 
 TABLES             EXT    STR.I,SUB.I,ADD.I,O=RANF,O=RJSUB                                FEAT155G      32          I
          -FCC2194
 TABLES             EXT    O=RANF,O=RJSUB,O=XMIT,ADD.I,STR.I,SUB.I                         FCC2194        7     A     
 TABLES             EXT    SA=BKS9,SB=BKS9,SX=BKS9,SX=XKS9                                 TABLES        85     A     
 TABLES             EXT    DUC.,DUC.1ST,DUC.2ND,DUC.BTH,O=EPO,O=NOOP                       TABLES        86     A     
 TABLES                                                                                    TABLES        87     A     
 TABLES   *         IN FUN                                                                 TABLES        88     A     
 TABLES             EXT    O=ARG,O=RJT,O=FUN,O=BEF                                         TABLES        89     A     
 TABLES             EJECT                                                                  TABLES        90     A     
 TABLES    TABLES   SECT   (T A B L E   DEFINITIONS.),1                                    TABLES        91     A     
 TABLES                                                                                    TABLES        92     A     
 TABLES                                                                                    TABLES        93     A     
 TABLES    FUDGE    EQU    1           AMOUNT OF SLOP SPACE BETWEEN TABLES                 TABLES        94     A     
 TABLES    CLASS    SPACE  4,8                                                             TABLES        95     A     
 TABLES   **        SIZES - AUX. MACRO FOR TABLE SIZE REMOTES.                             TABLES        96     A     
 TABLES   *                (FORCES MICRO EVALUATION)                                       TABLES        97     A     
 TABLES                                                                                    TABLES        98     A     
 TABLES                                                                                    TABLES        99     A     
 TABLES    SIZES    MACRO  TT,NAM,RATE,INIT,DEF                                            TABLES       100     A     
 TABLES   *                                                                                TABLES       101     A     
 TABLES    TABLE    RMT                                                                    TABLES       102     A     
 TABLES    TT.NAM DEF    INIT                                                              TABLES       103     A     
 TABLES    TABLE    RMT                                                                    TABLES       104     A     
 TABLES   *                                                                                TABLES       105     A     
 TABLES    SIZES    RMT                                                                    TABLES       106     A     
 TABLES    TT=NAM DEF    N.TABLES+TT.NAM                                                   TABLES       107     A     
 TABLES    SIZES    RMT                                                                    TABLES       108     A     
 TABLES   *                                                                                TABLES       109     A     
 TABLES   .2        IFC    NE, = RATE                                                      TABLES       110     A     
 TABLES    RATES    RMT                                                                    TABLES       111     A     
 TABLES    X        OCTMIC RATE_BS30/L.TABLES,10                                           TABLES       112     A     
 TABLES    A        OCTMIC INIT,6                                                          TABLES       113     A     
 TABLES             VFD    60/0."X"B+"A"B     (NAM)                                        TABLES       114     A     
 TABLES    RATES    RMT                                                                    TABLES       115     A     
 TABLES    .2       ENDIF                                                                  TABLES       116          I
          -FEAT155F 
 TABLES   *                                                                                TABLES       117     A     
 TABLES    .T       IFNE   TEST,0                                                          FEAT155F     140     A     
 TABLES    PTSN     RMT                                                                    FEAT155F     141     A     
 TABLES             DATA   0H_TT.NAM                                                       FEAT155F     142     A     
 TABLES    PTSN     RMT                                                                    FEAT155F     143     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 582    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES    .T       ENDIF                                                                  FEAT155F     144     A     
 TABLES   *                                                                                FEAT155F     145     A     
 TABLES    .2       ENDIF                                                                  FEAT155F     146     A     
 TABLES   *                                                                                FEAT155F     147     A     
 TABLES    SIZES    ENDM                                                                   TABLES       118     A     
 TABLES    TABLE    SPACE  4,8                                                             TABLES       119     A     
 TABLES   **        TABLE - MACRO TO FORM TABLE PARAMETER WORD FOR COMPILER TABLES         TABLES       120     A     
 TABLES   *                                                                                TABLES       121     A     
 TABLES   * TNAM    TABLE  RATE,INIT         (OR),                                         TABLES       122     A     
 TABLES   * TNAM    TABLE  =,SHARE                                                         TABLES       123     A     
 TABLES   *                                                                                TABLES       124     A     
 TABLES   *         TNAM   =  TABLE NAME.                                                  TABLES       125     A     
 TABLES   *         RATE   =  RELATIVE EXPANSION RATE OF TABLE.                            TABLES       126     A     
 TABLES   *                = 5   SUPER TABLE.  PLEASE USE DISCRETION.                      TABLES       127     A     
 TABLES   *                = 4   FAST EXPANDER.                                            TABLES       128     A     
 TABLES   *                = 3   NORMAL RATE.                                              TABLES       129     A     
 TABLES   *                = 2   SLOWER THAN MOST.                                         TABLES       130     A     
 TABLES   *                = 1   VERY INFREQUENTLY EXPANDED.                               TABLES       131     A     
 TABLES   *         INIT   =  INITIAL LENGTH OF TABLE IN EACH PROGRAM-UNIT.                TABLES       132     A     
 TABLES   *         SHARE  =  NAME OF TABLE TO SHARE SPACE WITH.                           TABLES       133     A     
 TABLES                                                                                    TABLES       134     A     
 TABLES                                                                                    TABLES       135     A     
 TABLES             MACRO  TABLE,NAM,RATE,INIT                                             TABLES       136     A     
 TABLES    A        MICRO  1,,.NAM.                                                        TABLES       137     A     
 TABLES    B        MICCNT A                                                               TABLES       138     A     
 TABLES    C        MICRO  B+2,5,*NAM    *                                                 TABLES       139     A     
 TABLES   *                                                                                TABLES       140     A     
 TABLES    .1       IFC    NE, RATE =                                                      TABLES       141     A     
 TABLES    R        DECMIC RATE                                                            TABLES       142     A     
 TABLES    R        OCTMIC "R"*16                                                          TABLES       143     A     
 TABLES    N.TABLES SET    N.TABLES+1                                                      TABLES       144     A     
 TABLES    L.TABLES SET    L.TABLES+"R"B                                                   TABLES       145     A     
 TABLES    L=TABLES SET    L=TABLES+INIT                                                   TABLES       146     A     
 TABLES             SIZES  "A",("C"),"R",INIT,CON                                          TABLES       147     A     
 TABLES   *                                                                                TABLES       148     A     
 TABLES    .1       ELSE                                                                   TABLES       149     A     
 TABLES   *                                                                                TABLES       150     A     
 TABLES             SIZES  "A",("C"),=,INIT,( = )                                          TABLES       151     A     
 TABLES    .1       ENDIF                                                                  TABLES       152     A     
 TABLES    TABLE    ENDM                                                                   TABLES       153     A     
 TABLES                                                                                    TABLES       154     A     
 TABLES                                                                                    TABLES       155     A     
 TABLES    L.TABLES SET    0                                                               TABLES       156     A     
 TABLES    L=TABLES SET    0                                                               TABLES       157     A     
 TABLES    N.TABLES SET    0           INITIALIZE TABLE ORDINAL                            TABLES       158     A     
 TABLES    T.LGO    EJECT  4,15                                                            TABLES       159          I
          -FCC0813
 TABLES             SPACE  4,9                                                             FCC0813       51     A     
 TABLES   ****      T.LGO - COMPILE TO CORE TABLE.                                         TABLES       160     A     
 TABLES   *                HOLDS GENERATED BINARY WHEN COMPILING TO CORE.  MAY             TABLES       161     A     
 TABLES   *         OVERFLOW TO LCM (TX.LGO) OR TO DISK (F.LGO). THIS IS NOTED             TABLES       162     A     
 TABLES   *         IN (LGOIO).                                                            TABLES       163     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 583    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES                                                                                    TABLES       164     A     
 TABLES                                                                                    TABLES       165     A     
 TABLES    .CMLOD   IFNE   .CMLOD,,1                                                       TABLES       166     A     
 TABLES    T.LGO    TABLE  1                                                               TABLES       167     A     
 TABLES   ****                                                                             TABLES       168     A     
 TABLES    LONGFILE EJECT                                                                  TABLES       169          I
          -FCC0813
 TABLES    T.INT    TABLE  5           INTERMEDIATE FILE                                   TABLES       170          I
          -FCC0813
 TABLES    TT.LF    TABLE  =,T.INT     **** TEMP ****                                      TABLES       171          I
          -FCC0813
 TABLES   **        T.SB   - STRING BUFFER                                                 FCC0813       52     A     
 TABLES   *                THIS TABLE MUST BE FIRST BECAUSE A0 POINTS TO THE               FCC0813       53     A     
 TABLES   *                ORIGIN OF THE TABLE.  BEING THE FIRST TABLE THE ORIGIN          FCC0813       54     A     
 TABLES   *                WILL ALWAYS REMAIN CONSTANT.                                    FCC0813       55     A     
 TABLES   *                ITS SPACE IS REUSED FOR THE LGO BUFFER AT END TIME.             FCC0813       56     A     
 TABLES   *                                                                                FCC0813       57     A     
 TABLES    T.SB     TABLE  4,67                                                            FCC0813       58     A     
 TABLES    T.LGOB   TABLE  =,T.SB      LGO BUFFER                                          FCC0813       59     A     
 TABLES             SPACE  4,9                                                             FCC0813       60     A     
 TABLES   **        TT.REF AND TT.LF - REFERENCE MAP FILE AND LONG FILE.                   FCC0813       61     A     
 TABLES   *                THESE TABLES MAY BECOME TO LARGE TO KEEP IN CORE.               FCC0813       62     A     
 TABLES   *                THEY WILL THEN SPILL TO DISK AND THEIR TABLE SIZES WILL         FCC0813       63     A     
 TABLES   *                BE SHRUNK TO ZERO.                                              FCC0813       64     A     
 TABLES   *                                                                                FCC0813       65     A     
 TABLES    TT.REF   TABLE  4           REFERENCE TABLE (REFMAP FILE)                       FCC0813       66     A     
 TABLES    TT.LF    TABLE  5           INTERMEDIATE TABLE (LONG FILE)                      FCC0813       67     A     
 TABLES             SPACE 4                                                                FCC0813       68     A     
 TABLES    TT.USE   TABLE  3                                                               TABLES       172     A     
 TABLES    TT.SCR   TABLE  3           SCRATCH TABLE.                                      TABLES       173     A     
 TABLES    TS.CON   TABLE  3           CONSTANT VALUES                                     TABLES       174     A     
 TABLES    TS.SYM   TABLE  5,LSYM      SYMBOLS                                             TABLES       175     A     
 TABLES    CLASS    SPACE  4,8                                                             TABLES       176          I
          -FCC0813
 TABLES    TA.NAM   TABLE  3,LSYM/2    ADDRESS OF VARIABLES                                TABLES       177     A     
 TABLES    TS.STN   TABLE  4,LSTN      STATEMENT NUMBER TABLE                              TABLES       178     A     
 TABLES    #FID     IFNE   .FID,0                                                          F66FCC       168     A     
 TABLES             ENTRY  T.LNT,T=LNT                                                     F66FCC       169     A     
 TABLES    T.LNT    TABLE  4           LINE NUMBER TABLE                                   F66FCC       170     A     
 TABLES    #FID     ENDIF                                                                  F66FCC       171     A     
 TABLES    TT.COMM  TABLE  =,TT.USE    COMMON TAGS (PHASE 1 ONLY)                          TABLES       179          I
          -FCC0780
 TABLES    TP.DIM   TABLE  1,2         DIMENSION PARAMETERS                                TABLES       180     A     
 TABLES    #FID     IFNE   .FID,0                                                          F66FCC       172     A     
 TABLES    TP.CIDM  TABLE  1           COPY OF TP.DIM FOR CID TABLE CONSTRUCTION           F66FCC       173     A     
 TABLES   *                            IN END                                              F66FCC       174     A     
 TABLES    #FID     ENDIF                                                                  F66FCC       175     A     
 TABLES    TP.DO    TABLE  2           DO PARAMETER TABLE                                  TABLES       181     A     
 TABLES    TS.EQU   TABLE  1           TRANSLATED EQUIVALENCE STATEMENTS                   TABLES       182     A     
 TABLES    TP.EQU   TABLE  =,TS.EQU    EQUIVALENCE PARAMETER TABLE                         TABLES       183     A     
 TABLES    TP.FMT   TABLE  3                                                               TABLES       184     A     
 TABLES    TT.ASF   TABLE  2                                                               TABLES       185     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 584    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES    TT.PAR   TABLE  3                                                               TABLES       186     A     
 TABLES    T.VDIM   TABLE  1           VARIABLE DIMENSION TURPLES.                         TABLES       187     A     
 TABLES    TP.NLST  TABLE  1                                                               TABLES       188     A     
 TABLES    TP.APL   TABLE  3           ACTUAL PARAMETER LISTS                              TABLES       189     A     
 TABLES    TP.ILI   TABLE  3           INPUT LIST ITEMS                                    TABLES       190     A     
 TABLES    TA.PRO   TABLE  3,4                                                             TABLES       191     A     
 TABLES    TS.DAT   TABLE  1                                                               TABLES       192     A     
 TABLES    TL.DAT   TABLE  =,TT.USE    AUX DATA TABLE, LOCAL TO EACH DATA STMNT.           TABLES       193     A     
 TABLES    TI.DAT   TABLE  =,TT.SCR    AUX DATA TABLE, LOCAL TO EACH DATA STMNT.           TABLES       194     A     
 TABLES                                CONTAINS CONSTANTS FOUND IN THE STATEMENT           TABLES       195     A     
 TABLES                                AND REP FACTORS, PLUS OTHER GOODIES.                TABLES       196     A     
 TABLES    T.FILE   TABLE  =,TS.DAT                                                        TABLES       197     A     
 TABLES    TT.REF   TABLE  4                                                               TABLES       198          I
          -FCC0813
 TABLES    TS.BLK   TABLE  1,2*2                                                           TABLES       199          I
          -FCC0583
 TABLES    TS.BLK   TABLE  1,2                                                             FCC0583        6     A     
 TABLES    TS.ENT   TABLE  1                                                               TABLES       200     A     
 TABLES    TN.NTR   TABLE  =,TP.DO     ENTRY POINT NAMES                                   TABLES       201          I
          -FEAT126C 
 TABLES    TT.FILL  TABLE  =,TT.COMM                                                       TABLES       202          I
          -FCC0780
 TABLES    TT.COMM  TABLE  =,TP.DO     COMMON TAGS (DECLARATIVE PROCESSING ONLY)           FCC0780        4     A     
 TABLES    TT.FILL  TABLE  =,TT.USE                                                        FCC0780        5     A     
 TABLES    TT.LINK  TABLE  =,TS.EQU                                                        TABLES       203     A     
 TABLES    TT.XFIL  TABLE  =,TT.SCR                                                        TABLES       204     A     
 TABLES    TN.EXT   TABLE  =,TP.EQU                                                        TABLES       205     A     
 TABLES    TN.BLK   TABLE  =,TT.LF     BLOCK NAMES.                                        TABLES       206          I
          -FCC0813
 TABLES    TN.BLK   TABLE  =,TS.CON    BLOCK NAMES IN MAP                                  FCC0813       69     A     
 TABLES    T.DLBUF  TABLE  2                                                               FEAT126B      18     A     
 TABLES    T.END    TABLE  0           DUMMY FOR MANAGER                                   TABLES       207     A     
 TABLES             POPMAC SIZES                                                           TABLES       208     A     
 TABLES             POPMAC TABLE                                                           TABLES       209     A     
 TABLES                                                                                    TABLES       210     A     
 TABLES   *         USED FOR EXTERNAL REFERENCE INTERFACES                                 TABLES       211     A     
 TABLES                                                                                    TABLES       212     A     
 TABLES    L.TABLE  EQU    L.TABLES                                                        TABLES       213          I
          -FCC0813
 TABLES    L=TABLE  EQU    L=TABLES                                                        TABLES       214     A     
 TABLES    N.TABLE  EQU    N.TABLES                                                        TABLES       215     A     
 TABLES                                                                                    TABLES       216     A     
 TABLES    DEF      SECT   (SYMBOL DEFINITIONS.),1                                         TABLES       217     A     
 TABLES    TABLES   SPACE  4,8                                                             TABLES       218     A     
 TABLES   **        TABLES - ACTUAL TABLE PARAMETER WORDS ARE HERE.                        TABLES       219     A     
 TABLES                                                                                    TABLES       220     A     
 TABLES             LIST   D           *ORIGINS*                                           TABLES       221     A     
 TABLES                                                                                    TABLES       222     A     
 TABLES    ORIGINS  BSS    0           ORIGINS OF TABLES                                   TABLES       223     A     
 TABLES    BASES    BSS    0           BASE ADDRESSES OF TABLES                            TABLES       224     A     
 TABLES                                                                                    TABLES       225     A     
 TABLES    TABLE    HERE               ACTUAL TABLE PARAMETER WORDS                        TABLES       226     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 585    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES                                                                                    TABLES       227          I
          -FEAT126C 
 TABLES    TS.ARG   EQU    TT.USE      **** TEMPORARY ****                                 TABLES       228          I
          -FEAT126C 
 TABLES                                                                                    TABLES       229          I
          -FEAT126C 
 TABLES    SIZES    BSS    0           SIZES OF TABLES                                     TABLES       230     A     
 TABLES                                                                                    TABLES       231     A     
 TABLES    SIZES    HERE                                                                   TABLES       232     A     
 TABLES                                                                                    TABLES       233     A     
 TABLES             LIST   *           *SIZES*                                             TABLES       234     A     
 TABLES    RATES    BSS    0           EXPANSION RATES OF TABLES                           TABLES       235     A     
 TABLES             LIST   G           *RATES*                                             TABLES       236     A     
 TABLES                                                                                    TABLES       237     A     
 TABLES    RATES    HERE                                                                   TABLES       238     A     
 TABLES                                                                                    TABLES       239     A     
 TABLES             LIST   *           *RATES*                                             TABLES       240     A     
 TABLES                                                                                    FEAT155F     148     A     
 TABLES   *         NOTE -- THE *PTSN* TABLE NAME WORD FOR *TT.END* WILL BE ZEROED         FEAT155F     149     A     
 TABLES   *         BY *IDP* FOR USE AS AN END OF TABLE MARK.                              FEAT155F     150     A     
 TABLES                                                                                    FEAT155F     151     A     
 TABLES    PTSN     BSS    0           TABLE NAMES (-H- FMT) IN *TEST* MODE ONLY           FEAT155F     152     A     
 TABLES             ENTRY  PTSN                                                            FEAT155F     153     A     
 TABLES             LIST   G                                                               FEAT155F     154     A     
 TABLES                                                                                    FEAT155F     155     A     
 TABLES    PTSN     HERE                                                                   FEAT155F     156     A     
 TABLES                                                                                    FEAT155F     157     A     
 TABLES             LIST   *           TABLE NAMES                                         FEAT155F     158     A     
 TABLES                                                                                    TABLES       241     A     
 TABLES    SYM=DEFS SPACE  4,20                                                            TABLES       242     A     
 TABLES   **        TG. -  COMPILER INTERNAL TAG DEFINITIONS.                              TABLES       243     A     
 TABLES   *                                                                                TABLES       244     A     
 TABLES   *         VALUES MAY NOT BE CHANGED WITHOUT CORRESPONDING CHANGES TO --          TABLES       245     A     
 TABLES   *                *KTX*  --   KONVERT TAG TO XTERNAL FORMAT.                      TABLES       246     A     
 TABLES   *                *REL*  --   RELOCATE TAG.                                       TABLES       247     A     
 TABLES   *         CODE IN COMPILER ASSUMES THAT NO TAG IS LESS THAN 2S12, NOR            TABLES       248     A     
 TABLES   *                GREATER THAN (40S12-1).                                         TABLES       249     A     
 TABLES   *         THE ORDER OF THESE CELLS IS ASSUMED BY *IST*, AND OTHERS.              TABLES       250     A     
 TABLES                                                                                    TABLES       251     A     
 TABLES                                                                                    TABLES       252     A     
 TABLES                                                                                    TABLES       253     A     
 TABLES    TG.BASE  BSS    0                                                               TABLES       254     A     
 TABLES                                                                                    TABLES       255     A     
 TABLES    TG.VAR   CON    C.VAR,C.VAR+C.DIF                                               TABLES       256     A     
 TABLES    TG.SN    CON    C.STAT                                                          TABLES       257     A     
 TABLES    C.PRO    SPACE  4,20                                                            TABLES       258     A     
 TABLES    TG.PRO   CON    C.PRO                                                           TABLES       259     A     
 TABLES    TG.APL   EQU    TG.PRO      **** TEMP ****                                      TABLES       260     A     
 TABLES                                                                                    TABLES       261     A     
 TABLES    TG.VDIM  CON    C.VDIM                                                          TABLES       262     A     
 TABLES                                                                                    TABLES       263     A     
 TABLES    TG.TEM   CON    C.TEM                                                           TABLES       264     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 586    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES                                                                                    TABLES       265          I
          -FCC1495X 
 TABLES    TG.CON   CON    C.CON                                                           TABLES       266          I
          -FCC1495X 
 TABLES                                                                                    TABLES       267     A     
 TABLES    TG.END   EQU    *-1                                                             TABLES       268     A     
 TABLES    SB       SPACE  4,8                                                             TABLES       269     A     
 TABLES    CHARMAP  EJECT  4,30                                                            TABLES       270     A     
 TABLES   **        CHARMAP - CHARACTER MAPPING FOR OUTPUT OF ORIGINAL SYMBOL.             TABLES       271     A     
 TABLES   *                                                                                TABLES       272     A     
 TABLES   *         MAPPING FOR CHARACTERS/OPERATORS USED THRU-OUT THE COMPILER.           TABLES       273     A     
 TABLES   *                                                                                TABLES       274     A     
 TABLES   *         ANY ONE WISHING TO CHANGE THESE EQUS SHOULD LOOK AT                    TABLES       275     A     
 TABLES   *         GENERAL LEXICAL ROUTINES LIKE --                                       TABLES       276     A     
 TABLES   *         A.  TAB - NORMALIZE STATEMENT.                                         TABLES       277     A     
 TABLES   *         B.  ASN - ASSEMBLE NUMBER.                                             TABLES       278     A     
 TABLES   *         C.  ASV - ASSEMBLE VARIABLE.(NOTE SPECIAL MASK FOR KLUDGED 64          TABLES       279     A     
 TABLES   *                   CHARACTER SET).                                              TABLES       280     A     
 TABLES   *                                                                                TABLES       281     A     
 TABLES   *         ALSO NOTE ROUTINES LIKE --                                             TABLES       282     A     
 TABLES   *                                                                                TABLES       283     A     
 TABLES   *         A.  PAR - PARSE STATEMENT.                                             TABLES       284     A     
 TABLES   *         B.  TRE,TRV,TNK,TSF - TRANSLATE ELEMENT.                               TABLES       285     A     
 TABLES   *         C.  LST, IOL, ETC. -- I/O LISTS.                                       TABLES       286     A     
 TABLES   *                                                                                TABLES       287     A     
 TABLES   *         MOST OF MAPPING CRITERIA IS FOR CONVENIENCE OF JUMP TABLES AND         TABLES       288     A     
 TABLES   *         PROCESSING OF THE GIVEN OPERATOR WITH THESE ROUTINES.                  TABLES       289     A     
 TABLES                                                                                    TABLES       290     A     
 TABLES                                                                                    TABLES       291     A     
 TABLES             MACRO  CHMAP,SYMBOL,DPC,OPERS                                          TABLES       292     A     
 TABLES    .3       IFC    EQ, DPC                                                         TABLES       293     A     
 TABLES             CON    0                                                               TABLES       294     A     
 TABLES    .3       ELSE                                                                   TABLES       295     A     
 TABLES    A        MICRO  1,, DPC                                                         TABLES       296     A     
 TABLES    B        MICCNT A                                                               TABLES       297     A     
 TABLES    B        DECMIC B                                                               TABLES       298     A     
 TABLES             VFD    42/"B"L_DPC,18/DUC.OPERS                                        TABLES       299     A     
 TABLES    .3       ENDIF                                                                  TABLES       300     A     
 TABLES    CHMAP    ENDM                                                                   TABLES       301     A     
 TABLES                                                                                    TABLES       302     A     
 TABLES                                                                                    TABLES       303     A     
 TABLES             MACRO  CH=,SYMBOL                                                      TABLES       304     A     
 TABLES             BSS    0                                                               TABLES       305     A     
 TABLES    CH=      ENDM                                                                   TABLES       306     A     
 TABLES                                                                                    TABLES       307     A     
 TABLES    CHARMAP  EJECT                                                                  TABLES       308     A     
 TABLES   **        CHARMAP - CHARACTER MAPPING FOR PRINTING/ DISPLAYING.                  TABLES       309     A     
 TABLES                                                                                    TABLES       310     A     
 TABLES   *                                                                                TABLES       311     A     
 TABLES   *         *FORTRAN* DEFINED OPERATORS.                                           TABLES       312     A     
 TABLES                                                                                    TABLES       313     A     
 TABLES    CHARMAP  EQU    *-O.DEF                                                         TABLES       314     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 587    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES    O.EOS    CHMAP  -EOS-       END OF STATEMENT                                    TABLES       315     A     
 TABLES    O.HOLL   CHMAP  =HOLL=      ALL HOLLERITH CONSTANTS                             TABLES       316     A     
 TABLES    O.CONS   CHMAP              ALL NUMERIC STRINGS                                 TABLES       317     A     
 TABLES    O.VAR    CHMAP              ALL ALPHANUMERIC STRINGS                            TABLES       318     A     
 TABLES                                                                                    TABLES       319     A     
 TABLES    O.SEP    CH=                DEFINITION OF START OF SEPARATORS                   TABLES       320     A     
 TABLES    O.PL     CHMAP  +,BTH       ORDER OF O.PL TO O.SLASH MAY NOT BE CHANGED         TABLES       321     A     
 TABLES    O.MIN    CHMAP  -,BTH                                                           TABLES       322     A     
 TABLES    O.MULT   CH=                FOR CLARITY IN PARSER                               TABLES       323     A     
 TABLES    O.STAR   CHMAP  *,BTH                                                           TABLES       324     A     
 TABLES    O.DIV    CH=                FOR CLARITY IN PARSER                               TABLES       325     A     
 TABLES    O.SLASH  CHMAP  /,BTH                                                           TABLES       326     A     
 TABLES                                                                                    TABLES       327     A     
 TABLES    O.(      CH=                                                                    TABLES       328     A     
 TABLES    O.LP     CHMAP  ()(                                                             TABLES       329     A     
 TABLES    O.)      CH=                                                                    TABLES       330     A     
 TABLES    O.RP     CHMAP  )                                                               TABLES       331     A     
 TABLES    O.=      CHMAP  =,BTH                                                           TABLES       332     A     
 TABLES    O.SDEF   CH=                START OF SPECIAL OPERATORS                          TABLES       333     A     
 TABLES                                                                                    TABLES       334     A     
 TABLES    O.COMMA  CHMAP  (,),2ND                                                         TABLES       335     A     
 TABLES    O.LT     CHMAP  .LT.,BTH                                                        TABLES       336     A     
 TABLES    O.LE     CHMAP  .LE.,BTH                                                        TABLES       337     A     
 TABLES    O.EQ     CHMAP  .EQ.,BTH                                                        TABLES       338     A     
 TABLES    O.NE     CHMAP  .NE.,BTH                                                        TABLES       339     A     
 TABLES    O.GE     CHMAP  .GE.,BTH                                                        TABLES       340     A     
 TABLES    O.GT     CHMAP  .GT.,BTH                                                        TABLES       341     A     
 TABLES    O.NOT    CHMAP  .NOT.,2ND                                                       TABLES       342     A     
 TABLES    O.AND    CHMAP  .AND.,BTH                                                       TABLES       343     A     
 TABLES    O.XOR    CHMAP  .XOR.,BTH                                                       TABLES       344     A     
 TABLES    O.OR     CHMAP  .OR.,BTH                                                        TABLES       345     A     
 TABLES    O.EXP    CHMAP  **,BTH                                                          TABLES       346     A     
 TABLES    O.UMIN   CHMAP  UNARY-,2ND                                                      TABLES       347     A     
 TABLES    O.TRUE   CHMAP  .TRUE.                                                          TABLES       348     A     
 TABLES    O.FALSE  CHMAP  .FALSE.                                                         TABLES       349     A     
 TABLES                                                                                    TABLES       350     A     
 TABLES    O.FLP    CH=                FUNCTION LEFT PAREN OPERATOR                        TABLES       351     A     
 TABLES    O.ILP    CH=                INLINE   LEFT PAREN OPERATOR                        TABLES       352     A     
 TABLES    O.ALP    CH=                ASF      LEFT PAREN OPERATOR                        TABLES       353     A     
 TABLES    O.S(     CH=                AILIAS FOR O.SLP                                    TABLES       354     A     
 TABLES    O.SLP    CHMAP  NSTD                                                            TABLES       355     A     
 TABLES                                                                                    TABLES       356     A     
 TABLES   *         *PARSER* DEFINED OPERATORS.                                            TABLES       357     A     
 TABLES                                                                                    TABLES       358     A     
 TABLES    O.ANDN   CHMAP  .A..N.,BTH                                                      TABLES       359     A     
 TABLES    O.XORN   CHMAP  .X..N.,BTH                                                      TABLES       360     A     
 TABLES    O.ORN    CHMAP  .O..N.,BTH                                                      TABLES       361     A     
 TABLES    O.$      CHMAP  $                                                               TABLES       362     A     
 TABLES    O.PERIOD CHMAP  .                                                               TABLES       363     A     
 TABLES    O.ASFA   CHMAP  ASF                                                             TABLES       364     A     
 TABLES    O.IF     CHMAP  IF,1ST                                                          TABLES       365     A     
 TABLES    O.SPACE  CHMAP  SPACE                                                           TABLES       366     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 588    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES    O.DOB    CHMAP  DOBEGIN,1ST DO BEGIN OPERATOR                                   TABLES       367     A     
 TABLES    O.DOC    CHMAP  DOCLOSE,BTH DO CONCLUSION OPERATOR                              TABLES       368     A     
 TABLES    O.DOC1   CHMAP  DOCLOSE,1ST   -    -   -      -                                 TABLES       369     A     
 TABLES    O.DOC2   CHMAP  DOCLOSE       -    -   -      -                                 TABLES       370     A     
 TABLES    O.ARY    CHMAP  ARY-LOD,2ND SUBSCRIPTED ARRAY LOAD OPERATOR                     TABLES       371     A     
 TABLES    O.BSS    CHMAP  BSS         BSS OPERATOR                                        TABLES       372     A     
 TABLES    O.ARG1   CHMAP  ONEARG,2ND  SINGLE ARGUMENT                                     TABLES       373     A     
 TABLES    O.ARG2   CHMAP  TWOARG,BTH  DOUBLE ARGUMENT                                     TABLES       374     A     
 TABLES    O.RJ     CHMAP  RJUMP       RETURN JUMP OPERATOR                                TABLES       375     A     
 TABLES    O.MXP    CHMAP  MRKEXT      EXTERNAL MARK OPERATOR                              TABLES       376     A     
 TABLES    O.NTR    CHMAP  SUBR,1ST    SUBPROGRAM ENTRY/EXIT                               TABLES       377          I
          -FCC1558X 
 TABLES    O.NTR    CHMAP  SUBR        SUBPROGRAM ENTRY/EXIT                               FCC1558X      10     A     
 TABLES    O.RANF   CHMAP  RANF,BTH                                                        TABLES       378     A     
 TABLES    O.SHF    CHMAP  SHFP2,1ST   INTEGER SHIFT (INTEGER MULTIPLY **2)                TABLES       379     A     
 TABLES    O.NOOP   CHMAP  NO-OP       NULLIFIED OPERATOR                                  TABLES       380     A     
 TABLES    O.ASSN   CHMAP  ASSIGN      ASSIGN OPERATOR                                     TABLES       381     A     
 TABLES    O.GOTO   CHMAP  GOTOX       GO TO OPERATOR                                      TABLES       382     A     
 TABLES    O.GOTC   CHMAP  GOTOC,1ST                                                       TABLES       383     A     
 TABLES    O.GOAS   CHMAP  ASGNGO,1ST  ASSIGNED GO TO OPERATOR                             TABLES       384     A     
 TABLES    O.MODC   CHMAP  MODECON,2ND MODE CONVERSION OPERATOR                            TABLES       385     A     
 TABLES    O.PLUG   CHMAP  APLUG,BTH   AP-LIST PLUG                                        TABLES       386     A     
 TABLES    IO.DOC   CHMAP  IODOC                                                           TABLES       387     A     
 TABLES    IO.DOB   CHMAP  IODOB                                                           TABLES       388     A     
 TABLES    IO.NIL   CHMAP  NIL                                                             TABLES       389          I
          -FEAT155G 
 TABLES    IO.WEOR  CHMAP  IOWEOR                                                          TABLES       390          I
          -FEAT155G 
 TABLES    IO.BRK   CHMAP  BREAK                                                           TABLES       391          I
          -FEAT155G 
 TABLES    O.OTR    CHMAP  OTR                                                             FEAT155G      33     A     
 TABLES    O.XMIT   CHMAP  XMIT,1ST                                                        FCC2194        8     A     
 TABLES                                                                                    TABLES       392     A     
 TABLES                                                                                    TABLES       393     A     
 TABLES             POPMAC CH=                                                             TABLES       394     A     
 TABLES             POPMAC CHMAP                                                           TABLES       395     A     
 TABLES    MICROS   EJECT                                                                  TABLES       396     A     
 TABLES   ****      REGFILE - REGISTER FILE FOR PASS 2 PROCESSING OF AN                    TABLES       397     A     
 TABLES   *                   INSTRUCTION GROUP.                                           TABLES       398     A     
 TABLES   *                                                                                TABLES       399     A     
 TABLES                                                                                    TABLES       400     A     
 TABLES                                                                                    TABLES       401     A     
 TABLES    DEFREG   SPACE  4,8                                                             TABLES       402     A     
 TABLES   **        DEFREG - DEFINE CELLS FOR REGISTER TYPE AND REGISTERS TO               TABLES       403     A     
 TABLES   *         USE FOR *TYPE* DEFINED.                                                TABLES       404     A     
 TABLES   *                                                                                TABLES       405     A     
 TABLES   *         1ST WORD =                                                             TABLES       406     A     
 TABLES   **T TYPE  6/INST, 18/MASK COUNT, 18/NUMBER, 18/0T0                               TABLES       407     A     
 TABLES   *         2ND WORD = 3RD WORD =                                                  TABLES       408     A     
 TABLES   *   REGS  N/R.XX-RGFILE,.......N/R.N-REGFILE                                     TABLES       409     A     
 TABLES   *         NOTE -                                                                 TABLES       410     A     
 TABLES   *         REGISTERS ARE ASSIGNED FOR RIGHT TO LEFT.                              TABLES       411     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 589    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES                                                                                    TABLES       412     A     
 TABLES                                                                                    TABLES       413     A     
 TABLES             MACRO  DEFREG,TYPE,INST,REGS,TYP                                       TABLES       414     A     
 TABLES    TYPE     EQU    *                                                               TABLES       415     A     
 TABLES    B        SET    0                                                               TABLES       416     A     
 TABLES    A        MICRO                                                                  TABLES       417     A     
 TABLES   .1        IRP    REGS                                                            TABLES       418     A     
 TABLES    B        SET    B+1                                                             TABLES       419     A     
 TABLES   .1        IRP    REGS                                                            TABLES       420     A     
 TABLES    D        SET    60/B                                                            TABLES       421     A     
 TABLES                                                                                    TABLES       422     A     
 TABLES   .2        IRP    REGS                                                            TABLES       423     A     
 TABLES    A        MICRO  1,, "A"D/R.REGS-RGFILE,                                         TABLES       424     A     
 TABLES   .2        IRP    REGS                                                            TABLES       425     A     
 TABLES             VFD    6/INST,18/D,18/B,18/TYP                                         TABLES       426     A     
 TABLES             VFD    "A"                                                             TABLES       427     A     
 TABLES             VFD    "A"                                                             TABLES       428     A     
 TABLES    DEFREG   ENDM                                                                   TABLES       429     A     
 TABLES    RUSE     SPACE  4,8                                                             TABLES       430     A     
 TABLES                                                                                    TABLES       431     A     
 TABLES    RG=TYP   BSS    0           BASE ADDRESS                                        TABLES       432     A     
 TABLES    RG=BADR  DEFREG SB=BKS9,(B1,B2,B3,B4,B5),REG.B-RGFILE                           TABLES       433     A     
 TABLES    RG=INTR  DEFREG SX=XKS9,(X0,X6,X7),REG.X-RGFILE                                 TABLES       434     A     
 TABLES    RG=TEMP  DEFREG SX=XKS9,(X0,X1,X2,X3,X4,X5),REG.X-RGFILE                        TABLES       435     A     
 TABLES    RG=ADR   DEFREG SB=BKS9,(B1,B2,B3,B4,B5),REG.B-RGFILE                           TABLES       436     A     
 TABLES    RG=LOAD  DEFREG SA=BKS9,(X1,X2,X3,X4,X5),REG.A-RGFILE                           TABLES       437     A     
 TABLES    RG=LODX  DEFREG SX=BKS9,(X1,X2,X3,X4,X5),REG.X-RGFILE                           TABLES       438     A     
 TABLES    RG=SET   DEFREG SX=XKS9,(X0,X1,X2,X3,X4,X5),REG.X-RGFILE                        TABLES       439     A     
 TABLES    RG=STOR  DEFREG SX=BKS9,(X7,X6),REG.X-RGFILE                                    TABLES       440     A     
 TABLES    RG=APL   DEFREG SA=BKS9,(A3,A2,A1)                                              TABLES       441     A     
 TABLES             POPMAC DEFREG                                                          TABLES       442     A     
 TABLES   ****                                                                             TABLES       443     A     
 TABLES                                                                                    TABLES       444     A     
 TABLES    REGFILE  BSS    0           STARTING ADDRESS FOR REGISTER FILE                  TABLES       445     A     
 TABLES                                                                                    TABLES       446     A     
 TABLES    REGB     BSS    0           *B* REGISTERS                                       TABLES       447     A     
 TABLES    RB0      CON    0                                                               TABLES       448     A     
 TABLES    RB1      CON    0                                                               TABLES       449     A     
 TABLES    RB2      CON    0                                                               TABLES       450     A     
 TABLES    RB3      CON    0                                                               TABLES       451     A     
 TABLES    RB4      CON    0                                                               TABLES       452     A     
 TABLES    RB5      CON    0                                                               TABLES       453     A     
 TABLES    RB6      CON    0                                                               TABLES       454     A     
 TABLES    RB7      CON    0                                                               TABLES       455     A     
 TABLES                                                                                    TABLES       456     A     
 TABLES    REGA     BSS    0           *A* REGISTERS                                       TABLES       457     A     
 TABLES    RA0      CON    0                                                               TABLES       458     A     
 TABLES    RA1      CON    0                                                               TABLES       459     A     
 TABLES    RA2      CON    0                                                               TABLES       460     A     
 TABLES    RA3      CON    0                                                               TABLES       461     A     
 TABLES    RA4      CON    0                                                               TABLES       462     A     
 TABLES    RA5      CON    0                                                               TABLES       463     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 590    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES    RA6      CON    0                                                               TABLES       464     A     
 TABLES    RA7      CON    0                                                               TABLES       465     A     
 TABLES                                                                                    TABLES       466     A     
 TABLES    REGX     BSS    0           *X* REGISTERS                                       TABLES       467     A     
 TABLES    RX0      CON    0                                                               TABLES       468     A     
 TABLES    RX1      CON    0                                                               TABLES       469     A     
 TABLES    RX2      CON    0                                                               TABLES       470     A     
 TABLES    RX3      CON    0                                                               TABLES       471     A     
 TABLES    RX4      CON    0                                                               TABLES       472     A     
 TABLES    RX5      CON    0                                                               TABLES       473     A     
 TABLES    RX6      CON    0                                                               TABLES       474     A     
 TABLES    RX7      CON    0                                                               TABLES       475     A     
 TABLES    TEMPFILE EJECT  4,8                                                             TABLES       476     A     
 TABLES   **        TEMPFILE - TEMPORARY REGISTER FILE USED IN EXPANSION OF A              TABLES       477     A     
 TABLES   *         SKELETON THAT REQUIRES TEMPORARY REGISTERS.                            TABLES       478     A     
 TABLES                                                                                    TABLES       479     A     
 TABLES                                                                                    TABLES       480     A     
 TABLES    REG=T    BSSZ   20B                                                             TABLES       481     A     
 TABLES    BFILE    SPACE  4,8                                                             TABLES       482     A     
 TABLES   **        BFILE - *B* REGISTER FILE, USED FOR ASSIGNING *B* REGISTERS            TABLES       483     A     
 TABLES   *         DURING THE EXPANSION OF A SKELETON.                                    TABLES       484     A     
 TABLES                                                                                    TABLES       485     A     
 TABLES                                                                                    TABLES       486     A     
 TABLES    REG=B    BSSZ   20B                                                             TABLES       487     A     
 TABLES    TEMPS    EJECT                                                                  TABLES       488     A     
 TABLES   ****      DEFINITIONS OF CELL/VARIABLE S USED BY *TS* COMPILER                   TABLES       489     A     
 TABLES                                                                                    TABLES       490     A     
 TABLES                                                                                    TABLES       491     A     
 TABLES    ARGCOMA  BSSZ   L.PSTACK    USED BY PARSE TO INDICATE MODE                      TABLES       492     A     
 TABLES    ARGMODE  EQU    ARGCOMA+1   OF CURRENT ARGUMENT MODE AND NUMBER                 TABLES       493     A     
 TABLES                                OF ARGUMENTS FOR ARGMODE OPERATOR                   TABLES       494     A     
 TABLES                                                                                    TABLES       495     A     
 TABLES    ARGMIS   EQU    ARGCOMA+2   MISCELLANEOUS CELL USED IN CONJUNCTION WITH         TABLES       496     A     
 TABLES                                ARGMODE AND ARGCOMA.                                TABLES       497     A     
 TABLES                                                                                    TABLES       498     A     
 TABLES    ATTR     DATA   0           ATTRIBUTE BIT CELL FOR PASS 2 TAG. SET              TABLES       499     A     
 TABLES                                DURING TRANSLATION FROM TAB FORM TO TAG             TABLES       500     A     
 TABLES                                FORM IN PARSER.                                     TABLES       501     A     
 TABLES                                                                                    TABLES       502     A     
 TABLES    ASFLEN   BSS    1           REAL LENGTH OF TT.ASF -- IT IS THE LENGTH           TABLES       503     A     
 TABLES                                WHEN THE FIRST EXECUTABLE IS FOUND, AND IS          TABLES       504     A     
 TABLES                                USED TO SHRINK THE TABLE BACK TO ITS ACTUAL         TABLES       505     A     
 TABLES                                SIZE AFTER WE ARE FINISHED PARSING AN ASF           TABLES       506     A     
 TABLES                                REFERENCE.                                          TABLES       507     A     
 TABLES                                                                                    TABLES       508     A     
 TABLES    BA.PRO   BSS    9           BASE ADDRESS OF CODE (AFTER FILE TABLE)             TABLES       509          I
          -FEAT126A 
 TABLES    N.BLK    EQU    8           NO. OF FIXED BLOCKS PER PROGRAM UNIT                FEAT126A      80     A     
 TABLES    BA.PRO   BSS    N.BLK+1                                                         FEAT126A      81          I
          -FCC0709
 TABLES    BA.PRO   BSS    N.BLK+2                                                         FCC0709        6     A     
 TABLES    BA.CON   EQU    BA.PRO+1    BASE ADDRESS OF CONSTANTS                           TABLES       510     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 591    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES    BA.FMT   EQU    BA.PRO+2    BASE ADDRESS OF FORMATS                             TABLES       511     A     
 TABLES    BA.TEM   EQU    BA.PRO+3    BASE ADDRESS OF TEMPORARIES/INDIRECTS               TABLES       512     A     
 TABLES    BA.APL   EQU    BA.PRO+4    BASE ADDRESS OF ACTUAL PARAMETER LISTS              TABLES       513     A     
 TABLES    BA.NLST  EQU    BA.PRO+5    BASE ADDRESS OF NAMELIST GROUP DEFS                 TABLES       514     A     
 TABLES    BA.VAR   EQU    BA.PRO+6    BASE ADDRESS OF VARIABLES                           TABLES       515     A     
 TABLES    BA.BUF   EQU    BA.PRO+7    BASE ADDRESS OF BUFFERS (IF ANY)                    TABLES       516     A     
 TABLES    LOCAL    EQU    BA.PRO+8    LOCAL LENGTH OF PROGRAM-UNIT                        TABLES       517     A     
 TABLES    COMSIZ   EQU    BA.PRO+9    LENGTH OF SCM COMMON                                FCC0709        7     A     
 TABLES                                                                                    TABLES       518     A     
 TABLES    BINIO    CON    0           -1  = TT.LF TABLE IS ON DISK                        TABLES       519     A     
 TABLES                                 0  = TT.LF TABLE IS IN SCM                         TABLES       520     A     
 TABLES                                +1  = TT.LF TABLE IS IN LCM                         TABLES       521     A     
 TABLES                                                                                    TABLES       522     A     
 TABLES    BINOUT   DATA   1S59        ACTUAL BINARY OUTPUT SWITCH                         TABLES       523     A     
 TABLES                                NEGATIVE = BINARY WILL BE PRODUCED FOR THIS         TABLES       524     A     
 TABLES                                PROGRAM-UNIT.                                       TABLES       525     A     
 TABLES                                POSITIVE = INHIBIT OBJECT CODE PRODUCTION           TABLES       526     A     
 TABLES                                      FOR THIS PROGRAM-UNIT.                        TABLES       527     A     
 TABLES                                GETS SET APPROPRIATELY DEPENDING ON (BOA),          TABLES       528          I
          -FCC1524X 
 TABLES                                (CO.DBG), (ERR=F), AND (ERR=D).                     TABLES       529          I
          -FCC1524X 
 TABLES                                                                                    TABLES       530     A     
 TABLES    BIT      DATA   0           USED AS A FLAG TO *CIR(, *BIT* HAS 3                TABLES       531     A     
 TABLES                                DIFFERENT VALUES <0,0,>0.  IF *BIT* <0              TABLES       532     A     
 TABLES                                AND *CIR* FOUND THE TAG FOR THE READ WAS            TABLES       533     A     
 TABLES                                IN AN X REGISTER IT WILL EXIT WITH THE              TABLES       534     A     
 TABLES                                ORIGINAL X REGISTER AND COMPILE NO INSTRUCT         TABLES       535     A     
 TABLES                                ION. IF BIT IS ANY OTHER VALUE *CIR* WILL           TABLES       536     A     
 TABLES                                COMPILE A 10IJ0 INSTRUCTION.                        TABLES       537     A     
 TABLES                                                                                    TABLES       538     A     
 TABLES    CALL     DATA   0           FLAG FOR *TSF* TO INDICATE TYPE OF FUNCTION         TABLES       539     A     
 TABLES                                ALLOWED TO TRANSLATE.                               TABLES       540     A     
 TABLES    CALLER   DATA   0           USED BY *CAI* TO INDICATE WHETHER *CALLER*          TABLES       541     A     
 TABLES                                HAS BEEN CALLED BY *CAI* (SEE WRITE-UP OF           TABLES       542     A     
 TABLES                                *CAI*)                                              TABLES       543     A     
 TABLES                                                                                    TABLES       544     A     
 TABLES    CARDS    DATA   0           NUMBER OF SOURCE CARDS                              TABLES       545     A     
 TABLES                                                                                    TABLES       546     A     
 TABLES    CCNT     DATA   0           NUMBER OF PHYSICAL CARDS IN CURRENT STATMNT         TABLES       547          I
          -FCC1328X 
 TABLES    CCNT     DATA   0           NR OF CONTINUATION CARDS IN CURRENT STMT            FCC1328X      45     A     
 TABLES   *                              .ZR. IF NONE                                      FCC1328X      46     A     
 TABLES                                                                                    FCC1328X      47     A     
 TABLES    COMMENT  DATA   0           .NZ. IF LINE TO PROCESS LISTING REQUEST             FCC1328X      48     A     
 TABLES   *                                 FOR IS A COMMENT LINE, ELSE .ZR.               FCC1328X      49     A     
 TABLES   *                                 THIS FLAG IS ONLY USED BETWEEN *RNS*           FCC1328X      50     A     
 TABLES   *                                 AND *PLR* AND WAS REQUIRED BECAUSE             FCC1328X      51     A     
 TABLES   *                                 OF *HEADER DELAY* LOGIC...KLUGE...             FCC1328X      52     A     
 TABLES   *                                 *PLR* MUST PROCESS COMMENT LINES SO            FCC1328X      53     A     
 TABLES   *                                 THAT THEY WILL GET SAVED IN DEFERRED           FCC1328X      54     A     
 TABLES   *                                 LIST BUFFER DURING *HEADER DELAY*              FCC1328X      55     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 592    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES   *                                 MODE, BUT WE DONT WANT THEM SAVED IF           FCC1328X      56     A     
 TABLES   *                                 L=0 OR SL=0 OR C/-LIST,NONE ACTIVE.            FCC1328X      57     A     
 TABLES                                                                                    FCC1328X      58     A     
 TABLES                                                                                    TABLES       548     A     
 TABLES    CJP      DATA   0           CURRENT JUMP ADDRESS                                TABLES       549          I
          -FEAT155G 
 TABLES                                                                                    TABLES       550     A     
 TABLES    CONF     DATA   0,0         =0, NO CONSTANT FOUND IN CURRENT TURPLE             TABLES       551     A     
 TABLES                                BEING PROCESSED BY *POP*                            TABLES       552     A     
 TABLES    LCONF    EQU    CONF+1      =0, LAST TURPLE DID NOT CONTAIN A CONSTANT          TABLES       553          I
          -FEAT155G 
 TABLES                                AS ONE OF ITS OPERANDS                              TABLES       554          I
          -FEAT155G 
 TABLES                                                                                    TABLES       555     A     
 TABLES    CSLIST   CON    0           =1S59 IF C/-LIST,ALL PENDING                        FEAT126B      19     A     
 TABLES   *                            =  1  IF C/-LIST,NONE PENDING                       FEAT126B      20     A     
 TABLES   *                            = +0  IF C/-LIST DIRECTIVE DID NOT OCCUR            FEAT126B      21     A     
 TABLES                                                                                    FEAT126B      22     A     
 TABLES    CSNTAG   DATA   0           CURRENT STATEMENT NUMBER TAG.  SET BY *GSN*         TABLES       556     A     
 TABLES                                                                                    TABLES       557     A     
 TABLES    CSSTMT   CON    0           =.NZ. IF C/-LINE PENDING, ELSE .ZR.                 FEAT126B      23     A     
 TABLES                                                                                    FEAT126B      24     A     
 TABLES    CSYMBOL  DATA   0           DPC FOR CURRENT SYMBOL BEING TRANSLATED BY          TABLES       558     A     
 TABLES                                PARSER.                                             TABLES       559     A     
 TABLES                                                                                    TABLES       560     A     
 TABLES    DEFERL   CON    0           LENGTH OF DEFERRED STATEMENT CARD IMAGES.           TABLES       561          I
          -FCC1328X 
 TABLES                                ONLY EXISTS IN *L=0* MODE.                          TABLES       562          I
          -FCC1328X 
 TABLES                                SET UP BY *AFS* AS HE MOVES THE IMAGES IN           TABLES       563          I
          -FCC1328X 
 TABLES                                INSTEAD OF PRINTING THEM.  USED BY *LLN*            TABLES       564          I
          -FCC1328X 
 TABLES                                TO PRINT STATEMENTS WHICH CONTAIN ERRORS.           TABLES       565          I
          -FCC1328X 
 TABLES                                                                                    TABLES       566          I
          -FCC1328X 
 TABLES    BLNKCOM  DATA   0           BLOCK NUMBER OF BLANK COMMON                        FCC0583        7     A     
 TABLES                                                                                    FCC0583        8     A     
 TABLES    DOLMR    DATA   0           *DO* LIMIT      - REGISTER                          TABLES       567     A     
 TABLES    DOIN     DATA   0           *DO* INCREMENT  - TAG                               TABLES       568     A     
 TABLES    DOIX     DATA   0           *DO* INDEX      - TAG                               TABLES       569     A     
 TABLES    DOIXR    DATA   0           *DO* INDEX      - REGISTER                          TABLES       570     A     
 TABLES                                                                                    TABLES       571     A     
 TABLES    DOSTNO   DATA   0           CONTAINS LATEST *DO* STATEMENT NUMBER IN            TABLES       572     A     
 TABLES                                DPC RIGHT JUSTIFIED WITH LEADING ZEROES             TABLES       573     A     
 TABLES                                REMOVED.  SET BY *CDI*.                             TABLES       574     A     
 TABLES                                                                                    TABLES       575     A     
 TABLES    CDORD    DATA   0           SET INDICATING INSIDE DO NEST. CONTAINS             TABLES       576     A     
 TABLES                                ORDINAL OF DO STATEMENT NUMBER THAT DEFINED         TABLES       577     A     
 TABLES                                FIRST DO IN NEST.  (ORDINAL IS TO TS.STN)           TABLES       578     A     
 TABLES                                                                                    TABLES       579     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 593    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES    DOORD    DATA   0           SET INDICATING INSIDE DO.  CONTAINS ORDINAL         TABLES       580     A     
 TABLES                                OF CURRENT ACTIVE DO INSIDE DO NEST                 TABLES       581     A     
 TABLES                                                                                    TABLES       582     A     
 TABLES    DRITE    DATA   0,0,0                                                           TABLES       583     A     
 TABLES                                A WRITE INSTRUCTION IS PENDING TO BE                TABLES       584     A     
 TABLES                                PROCESSED.  FOR FORMAT OF WORD AND MORE             TABLES       585     A     
 TABLES                                INFORMATION ON ITS USE SEE *CHW* WRITEUP.           TABLES       586     A     
 TABLES                                                                                    TABLES       587     A     
 TABLES    DTI      DATA   0           DO-TERMINATION INDICATOR                            TABLES       588     A     
 TABLES                                CONTAINS TAG OF THIS STATEMENTS LABEL, IF           TABLES       589     A     
 TABLES                                IT IS A DO-TERMINATOR.                              TABLES       590     A     
 TABLES                                = 0  IF THIS STATEMENT IS NOT A DO-TERMINAL         TABLES       591     A     
 TABLES                                                                                    TABLES       592     A     
 TABLES    ENTRY.   DATA   0           ORDINAL OF SYMBOL TAG OF MAIN ENTRY POINT           TABLES       593     A     
 TABLES                                                                                    TABLES       594     A     
 TABLES    ERRORS   DATA   0           NUMBER OF ERRORS APPEARING IN CURRENT               TABLES       595     A     
 TABLES                                SUBPROGRAM.  CP.ERRS CONTAINS TOTAL ERROR           TABLES       596     A     
 TABLES                                COUNT.                                              TABLES       597     A     
 TABLES                                                                                    TABLES       598     A     
 TABLES    ETF      DATA   0           FUNCTION EXPLICITLY TYPED                           TABLES       599     A     
 TABLES                                                                                    TABLES       600     A     
 TABLES    FAILSFT  CON    0           NON-ZERO IF TABLES OVERLAP CATASTROPHICALLY         TABLES       601     A     
 TABLES                                                                                    TABLES       602     A     
 TABLES    FLOW     BSS    1           = 0  IF CONTROL FLOWS INTO THIS STATEMENT.          TABLES       603     A     
 TABLES                                " 0  IF THIS IS IN-ACCESSIBLE CODE.                 TABLES       604     A     
 TABLES                                SET FROM (NOPATH) OF PREVIOUS STATEMENT.            TABLES       605     A     
 TABLES                                                                                    TABLES       606     A     
 TABLES    FSR      DATA   0           FUNCTION-STATEMENT-REFERENCE COUNT                  TABLES       607     A     
 TABLES    HCA      DATA   0           IF 0 ALLOW HOLLERITH CONS. OVER 10 CHARS            TABLES       608          I
          -FEAT155G 
 TABLES                                                                                    TABLES       609     A     
 TABLES    HANGER   CON    0           HANGING COMPILATION INDICATOR.                      TABLES       610     A     
 TABLES                                = 0  PREVIOUS STATEMENT COMPLETELY                  TABLES       611     A     
 TABLES                                      PROCESSED ALREADY.                            TABLES       612     A     
 TABLES                                " 0  ADDRESS OF ROUTINE WHO WILL BE ENTERED         TABLES       613     A     
 TABLES                                      WHEN THE NEXT CODE-GENERATING STATE-          TABLES       614     A     
 TABLES                                      MENT IS ENCOUNTERED AND IT IS KNOWN           TABLES       615     A     
 TABLES                                      WHAT THE STATEMENT LABEL IS.                  TABLES       616     A     
 TABLES                                                                                    TABLES       617     A     
 TABLES    HDELAY   DATA   0           .NZ. IF IN *HEADER DELAY* MODE.  THAT IS,           FCC1328X      59     A     
 TABLES   *                                 BEFORE A *PROGRAM*, *SUBROUTINE*,              FCC1328X      60     A     
 TABLES   *                                 *FUNCTION*, OR *BLOCKDATA* STMT HAS            FCC1328X      61     A     
 TABLES   *                                 BEEN ENCOUNTERED, TRY TO DELAY LISTING         FCC1328X      62     A     
 TABLES   *                                 OF ANY LINES SO THAT WE CAN TRY AND            FCC1328X      63     A     
 TABLES   *                                 GET THE PROGRAM UNIT NAME INTO THE             FCC1328X      64     A     
 TABLES   *                                 TITLE LINE OF THE LISTING.  THE METHOD         FCC1328X      65     A     
 TABLES   *                                 USED IS TO TRY AND SAVE ALL LINES              FCC1328X      66     A     
 TABLES   *                                 (INCLUDING COMMENT LINES) IN THE               FCC1328X      67     A     
 TABLES   *                                 DEFERRED LIST BUFFER *T.DLBUF* UNTIL           FCC1328X      68     A     
 TABLES   *                                 THE PGM UNIT STMT PROCESSOR HAS FOUND          FCC1328X      69     A     
 TABLES   *                                 THE PGM UNIT NAME AND STUFFED IT INTO          FCC1328X      70     A     
 TABLES   *                                 THE TITLE LINE IMAGE.  *T.DLBUF* IS            FCC1328X      71     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 594    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES   *                                 THEN DUMPED AND *HEADER DELAY* MODE            FCC1328X      72     A     
 TABLES   *                                 IS OVER, (HDELAY) .ZR.                         FCC1328X      73     A     
 TABLES   *                                 NOTE--WE CANT BE IN *HEADER DELAY*             FCC1328X      74     A     
 TABLES   *                                 MODE IF L=0 OR SL=0 OR C/-LIST,NONE            FCC1328X      75     A     
 TABLES   *                                 ACTIVE BECAUSE *T.DLBUF* MIGHT CONTAIN         FCC1328X      76     A     
 TABLES   *                                 TOO MANY LINES...THINK ABOUT IT.               FCC1328X      77     A     
 TABLES                                                                                    FCC1328X      78     A     
 TABLES    NOLDS    DATA   0           NUMBER OF LOADS FOR A GIVEN TURPLE                  TABLES       618     A     
 TABLES                                PROCESSED WHILE EXPANDING A SKELETON IN             TABLES       619     A     
 TABLES                                PASS *2*.                                           TABLES       620     A     
 TABLES    ICA      DATA   0           DISPLAY-CODED RUNNING-ADDRESS                       TABLES       621          I
          -FEAT155E 
 TABLES                                                                                    TABLES       622     A     
 TABLES    ICONL    DATA   0           FIRST CONSTANT TAG ENTERED BY *TAB* IN              TABLES       623     A     
 TABLES                                TRANSLATING A HOLLERITH CONSTANT TO INTER           TABLES       624     A     
 TABLES                                FORMAT.                                             TABLES       625     A     
 TABLES                                                                                    TABLES       626     A     
 TABLES    ICR      DATA   0           UPCOMING CHARACTER-GROUP                            TABLES       627          I
          -FEAT155G 
 TABLES                                                                                    TABLES       628          I
          -FEAT155G 
 TABLES                                                                                    TABLES       629          I
          -FEAT155G 
 TABLES    ICV      DATA   0           IF " 0 PROCESSING A *DO* LOOP.  CONTENTS OF         TABLES       630     A     
 TABLES                                18/INDEX ADDRESS, 18/TAG OF INCREMENT,3/MOD         TABLES       631     A     
 TABLES                                E, 18/TAG OF INDEX,3/MODE.  IF INCREMENT            TABLES       632     A     
 TABLES                                IS A CONSTANT MODE BITS WILL BE = TO 0.             TABLES       633     A     
 TABLES                                ICV IS SET BY *CDI* AND USED THROU-OUT              TABLES       634     A     
 TABLES                                ARITHMETIC ROUTINES.                                TABLES       635     A     
 TABLES                                                                                    TABLES       636     A     
 TABLES                                                                                    TABLES       637     A     
 TABLES    IDENT1   DATA   10H         C    USED TO DISPLAY *COMPILING* MESSAGE            TABLES       638     A     
 TABLES             DATA   10HOMPILING      TO CONSOLE.                                    TABLES       639     A     
 TABLES    IDENT    DATA   0                = 7L[SUBPROGRAM NAME]                          TABLES       640          I
          -FEAT126A 
 TABLES             DATA   0           STOPPER FOR *PVF*                                   TABLES       641          I
          -FEAT126A 
 TABLES    NAME     DATA   0           ROUTINE NAME 10H [NAME]                             FEAT126A      82     A     
 TABLES             DATA   0           END-OF-LINE INDICATOR                               FEAT126A      83     A     
 TABLES                                                                                    TABLES       642     A     
 TABLES    IGS      DATA   0           INSTRUCTION-GROUP START                             TABLES       643     A     
 TABLES    IGX      DATA   0           CURRENT INDEX ASSIGNMENT                            TABLES       644          I
          -FEAT155G 
 TABLES    INAFR    CON    0           INDICATES WHERE PARSER INPUT IS COMING FROM         TABLES       645     A     
 TABLES                                = 0  -- FROM *SB, NORMAL                            TABLES       646     A     
 TABLES                                " 0  -- ASF BEING EXPANDED                          TABLES       647     A     
 TABLES    LASTCOL  DATA   0           NUMBER OF COLUMNS OF CURRENT STATEMENT THAT         TABLES       648     A     
 TABLES                                ARE UNPACKED IN *SB*.                               TABLES       649     A     
 TABLES                                                                                    TABLES       650     A     
 TABLES    LASTOP   DATA   0           SET = TO LAST OPERATOR IN PARSED FILE UPON          TABLES       651     A     
 TABLES                                ENTRY TO POP.                                       TABLES       652     A     
 TABLES    LASTAD   DATA   0           SET = TO LAST ADDRESS OF PARSE FILE UPON            TABLES       653     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 595    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES                                ENTRY TO POP.                                       TABLES       654     A     
 TABLES                                                                                    TABLES       655     A     
 TABLES    LCNT     CON    EJECT+1     LINE COUNT, PRESET TO FORCE EJECT                   TABLES       656          I
          -FEAT155E 
 TABLES    LCNT     BSS    1           LINE COUNT                                          FEAT155E      93     A     
 TABLES                                                                                    TABLES       657     A     
 TABLES    LDEAD    DATA   0           INITIAL LENGTH OF PARSED FILE UPON ENTRY TO         TABLES       658     A     
 TABLES                                *PAR*.  USED WHEN *FLOW* = 0 TO RESET               TABLES       659     A     
 TABLES                                LENGTH OF PARSED FILE UPON EXIT -- THUS             TABLES       660     A     
 TABLES                                ELIMINATING PARSED CODE FOR DEAD REGIONS OF         TABLES       661     A     
 TABLES                                SOURCE CODE.                                        TABLES       662     A     
 TABLES                                                                                    TABLES       663     A     
 TABLES    LINEBUF  BSSZ   14          GENERAL PRINT LINE WORKING AREA                     TABLES       664     A     
 TABLES                                                                                    TABLES       665          I
          -FEAT155E 
 TABLES    LINENO   DATA   0           LINE NUMBER LEFT JUSTIFIED DISPLAY CODE             TABLES       666          I
          -FEAT155E 
 TABLES                                                                                    TABLES       667          I
          -FCC0813
 TABLES    LOCORE   CON    **          FWA MANAGED TABLE AREA                              TABLES       668          I
          -FCC0813
 TABLES                                (MAY BE ADJUSTED BY *ACL*.)                         TABLES       669          I
          -FCC0813
 TABLES                                                                                    TABLES       670     A     
 TABLES    LDRFLG   DATA   0           "0 IF LOADER DIRECTIVE FOUND                        FCC1097        5     A     
 TABLES    LOOK     DATA   0           =0 INDICATES COMPILER NOT TRYING TO                 TABLES       671          I
          -FEAT155G 
 TABLES                                OPTIMIZE A STRING OF STATEMENTS.  ALSO              TABLES       672          I
          -FEAT155G 
 TABLES                                INDICATES TO *LKA* THAT *LKS* ABORTED               TABLES       673          I
          -FEAT155G 
 TABLES                                TRYING TO BUILD A STRING.                           TABLES       674          I
          -FEAT155G 
 TABLES                                =1 WHEN COMPILER IN 1ST PASS OF LOOK AHEAD.         TABLES       675          I
          -FEAT155G 
 TABLES                                THIS IS TRUE WHEN *LKA*,*LKS* IS TRYING TO          TABLES       676          I
          -FEAT155G 
 TABLES                                BUILD UP THE STRING FOR PASS 2 OF LOOK              TABLES       677          I
          -FEAT155G 
 TABLES                                AHEAD.                                              TABLES       678          I
          -FEAT155G 
 TABLES                                =2 WHEN COMPILER IS IN 2ND PASS OF LOOK             TABLES       679          I
          -FEAT155G 
 TABLES                                AHEAD.  AFTER *LKA*,*LKS, HAVE BUILT UP             TABLES       680          I
          -FEAT155G 
 TABLES                                A STRING OF BEHAVED STATEMENTS *AEX* IS             TABLES       681          I
          -FEAT155G 
 TABLES                                CALLED TO PROCESS THE STRING.                       TABLES       682          I
          -FEAT155G 
 TABLES                                (SEE WRITE-UP OF *LKA*,*LKS* AND *AEX*)             TABLES       683          I
          -FEAT155G 
 TABLES                                                                                    TABLES       684          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 596    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
          -FEAT155G 
 TABLES    LOSTREF  DATA   0           1.  BEFORE REF-MAP PROCESSING, IT IS A              TABLES       685     A     
 TABLES                                COUNT OF NUM OF REFS FOUND.                         TABLES       686     A     
 TABLES                                2.  DURING REF-MAP, IT WILL BE SET TO NUM           TABLES       687     A     
 TABLES                                OF REFS LOST DUE TO CORE LIMITATIONS.               TABLES       688     A     
 TABLES                                                                                    TABLES       689     A     
 TABLES    L.CARD   DATA   0           NR OF WORDS IN SOURCE LINE IMAGE AT                 FCC1328X      79     A     
 TABLES   *                              (CP.CARD) ET SEQ  (INCLUDES FULL ZERO             FCC1328X      80     A     
 TABLES   *                              WORD EOL MARK)                                    FCC1328X      81     A     
 TABLES    MAXCORE  DATA   0           MAX STORAGE USED BY CURRENT PROGRAM UNIT            TABLES       690          I
          -FCC0813
 TABLES                                                                                    TABLES       691          I
          -FCC0813
 TABLES    MOD      DATA   0           SUBPROGRAM MODE  (SET BY *1ST CARD* SCANS)          TABLES       692     A     
 TABLES                                                                                    TABLES       693     A     
 TABLES    .TEST    IFNE   TEST,,3                                                         TABLES       694     A     
 TABLES             ENTRY  MOVES                                                           TABLES       695     A     
 TABLES    MOVES    DATA   0           NUMBER OF TIMES TABLES CRASHED.                     TABLES       696     A     
 TABLES             DIS    ,/ TABLE CRASHES./                                              TABLES       697     A     
 TABLES                                                                                    TABLES       698     A     
 TABLES    MSF      CON    0           MULTIPLE STATEMENT FLAG.  SET NON-ZERO IF           TABLES       699     A     
 TABLES                                THIS PROGRAM-UNIT CONTAINED MULTIPLE                TABLES       700     A     
 TABLES                                STATEMENTS-PER-CARD.                                TABLES       701     A     
 TABLES                                                                                    TABLES       702     A     
 TABLES    MSN      DATA   0           MISSING-STATEMENT INDICATOR                         TABLES       703     A     
 TABLES                                                                                    TABLES       704     A     
 TABLES    MULS     DATA   0           IF " 0 ADDRESS OF LAST *$* IN CARD.                 TABLES       705     A     
 TABLES                                MULTIPLE STATEMENT INDICATOR.                       TABLES       706     A     
 TABLES                                                                                    TABLES       707     A     
 TABLES    NARGS    DATA   0           PROGRAM-UNIT ARGUMENT COUNT.                        TABLES       708     A     
 TABLES                                                                                    TABLES       709     A     
 TABLES    NOLIST   CON    1S59        =1S59 IF C/-LIST,ALL ACTIVE                         FEAT126B      25     A     
 TABLES   *                            = +0  IF C/-LIST,NONE ACTIVE                        FEAT126B      26     A     
 TABLES                                                                                    FEAT126B      27     A     
 TABLES    NOPATH   DATA   0           IF " 0 INDICATES STATEMENT MUST HAVE A              TABLES       710     A     
 TABLES                                STATEMENT LABEL FIELD.  IF SET AND NO LABEL         TABLES       711     A     
 TABLES   *                            *GSN* WILL OUTPUT *NO PATH* WARNING MESSAGE         TABLES       712     A     
 TABLES                                                                                    TABLES       713     A     
 TABLES    NOPARM   DATA   0           NUMBER OF PARAMETERS FOR FUNCTION/SUB               TABLES       714          I
          -FEAT155G 
 TABLES                                CURRENTLY BEING PROCESSED.                          TABLES       715          I
          -FEAT155G 
 TABLES                                                                                    TABLES       716          I
          -FEAT155G 
 TABLES    NOREL    DATA   0           NUMBER OF RELATIONALS IN A STATEMENT.               TABLES       717     A     
 TABLES                                                                                    TABLES       718     A     
 TABLES    NREXT    DATA   0           COUNT OF EXTERNALS REFERENCED IN CURRENT            TABLES       719     A     
 TABLES                                PROGRAM-UNIT.  COMPUTED BY *END*.                   TABLES       720     A     
 TABLES                                                                                    TABLES       721     A     
 TABLES    NSK      CON    0           NULL STATEMENT COUNT.  (FOR ANSI)                   TABLES       722     A     
 TABLES                                                                                    TABLES       723     A     
 TABLES    NTRCNT   CON    0           COUNT OF *ENTRY* STATEMENTS WHICH APPEARED          TABLES       724     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 597    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES                                IN THIS SUBPROGRAM.  USED TO DETERMINE WHAT         TABLES       725     A     
 TABLES                                SUBPROGRAM EXIT CODE TO COMPILE.                    TABLES       726     A     
 TABLES                                                                                    TABLES       727     A     
 TABLES    ORDOP    DATA   0           IF POSITIVE, COMMUTATIVE OPERATOR POPPED            TABLES       728          I
          -FCC1495AX
 TABLES                                IN PARSER AND OPERANDS WERE REVERSED TO             TABLES       729          I
          -FCC1495AX
 TABLES                                MAINTAIN NUMERIC ORDER.                             TABLES       730          I
          -FCC1495AX
 TABLES                                                                                    TABLES       731          I
          -FCC1495AX
 TABLES    ORG      DATA   0           OBJECT PROGRAM ORIGIN COUNTER.  UPDATED BY          TABLES       732     A     
 TABLES                                *PIG*.  IT MUST BE KEPT EXACTLY IN STEP             TABLES       733     A     
 TABLES                                WITH WHERE INSTRUCTIONS WILL ACTUALLY BE IN         TABLES       734     A     
 TABLES                                THE OBJECT CODE.                                    TABLES       735     A     
 TABLES                                                                                    TABLES       736     A     
 TABLES    O.STITL  DATA   0           ADDR AND LEN OF SUBTITLE - 30/LEN,30/ADDR           FEAT155H      88     A     
 TABLES                                                                                    FEAT155H      89     A     
 TABLES    PARCEL   DATA   0           PARCEL COUNT FOR INSTRUCTIONS.                      TABLES       737     A     
 TABLES                                = NUMBER MINUS ONE OF EMPTY PARCELS LEFT IN         TABLES       738     A     
 TABLES                                CURRENT WORD.                                       TABLES       739     A     
 TABLES                                3 _ 60 BITS LEFT -- EMPTY WORD                      TABLES       740     A     
 TABLES                                2 _ 45 BITS LEFT                                    TABLES       741     A     
 TABLES                                1 _ 30 BITS LEFT                                    TABLES       742     A     
 TABLES                                0 _ 15 BITS LEFT                                    TABLES       743     A     
 TABLES   *                           -1 _ NO BITS LEFT -- FULL WORD                       TABLES       744     A     
 TABLES                                                                                    TABLES       745     A     
 TABLES    PASS     CON    0           CONTROLS ACTIONS OF TABLE MANAGER.                  TABLES       746     A     
 TABLES                                                                                    TABLES       747     A     
 TABLES                                                                                    TABLES       748     A     
 TABLES    REFIO    CON    0           -1  = TT.REF TABLE IS ON DISK                       TABLES       749     A     
 TABLES                                 0  = TT.REF TABLE IS IN SCM                        TABLES       750     A     
 TABLES                                +1  = TT.REF TABLE IS IN LCM                        TABLES       751          I
          -FCC0644
 TABLES                                                                                    TABLES       752     A     
 TABLES    REFPAG   CON    0           REFERENCE PAGE FOR *AFS* TO SET *REFLIN*.           TABLES       753          I
          -FEAT155E 
 TABLES    REFLIN   DATA   1101DS6     PAGE/LINE SKELETON FOR *ERT*. SET BY *AFS*          TABLES       754          I
          -FEAT155E 
 TABLES                                IMMEDIATELY BEFORE EACH STATEMENT IS LISTED         TABLES       755          I
          -FEAT155E 
 TABLES    REFLIN   CON    0           REFERENCE LINE NUMBER                               FEAT155E      94     A     
 TABLES                                                                                    TABLES       756     A     
 TABLES    REFNUM   DATA   0,0         STATEMENT LABEL REFERENCE.                          TABLES       757     A     
 TABLES                                TYPE OF CROSS REFERENCE SYMBOL PROCESSING.          TABLES       758     A     
 TABLES                                SHOULD BE PRESET FOR ALL PROCESSORS THAT            TABLES       759     A     
 TABLES                                CALL *ISN* TO TRANSLATE A STATEMENT LABEL           TABLES       760     A     
 TABLES                                REFERENCE.                                          TABLES       761     A     
 TABLES    REFVAR   EQU    REFNUM+1    SYMBOL REFERENCE.                                   TABLES       762     A     
 TABLES                                TYPE OF CROSS REFERENCE SYMBOL PROCESSING.          TABLES       763     A     
 TABLES                                SHOULD BE PRESET FOR ALL PROCESSORS THAT            TABLES       764     A     
 TABLES                                CALL *TRE* TO TRANSLATE A STATEMENT LABEL           TABLES       765     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 598    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES                                REFERENCE.                                          TABLES       766     A     
 TABLES                                (*TRE* = *TRV*,*TNK* AND *TSF*)                     TABLES       767     A     
 TABLES                                                                                    TABLES       768     A     
 TABLES    RJTDUM   CON    0           PROGRAM-TAG OF A WORD CONTAING A DUMMY              TABLES       769     A     
 TABLES                                *RJT* INSTRUCTION.  SET BY *PEJ* WHEN A             TABLES       770     A     
 TABLES                                CALL TO A DUMMY ARGUMENT IS ENCOUNTERED.            TABLES       771     A     
 TABLES                                EXAMINED BY *FVD* -- WILL COMPILE A DUMMY           TABLES       772     A     
 TABLES                                *RJT* IF NON-ZERO.                                  TABLES       773     A     
 TABLES                                                                                    TABLES       774     A     
 TABLES    RGC      DATA   6           REGISTER USAGE COUNT (6 = NO. LOAD REG.+1)          TABLES       775     A     
 TABLES    RGX      DATA   5           NUMBER OF LOAD REGISTERS                            TABLES       776     A     
 TABLES                                                                                    TABLES       777     A     
 TABLES    ROUTNAM  DATA   0           SAVE LOCATION FOR NAME (OR TAG) OF ROUTINE          TABLES       778     A     
 TABLES                                TO BE CALLED.  USED MOSTLY BY  I/O STATEMEN         TABLES       779     A     
 TABLES                                PROCESSORS.                                         TABLES       780     A     
 TABLES                                                                                    TABLES       781     A     
 TABLES    RREG     DATA   -0          REQUIRED HARD REGISTER TO ASSIGN TO *LOAD*          TABLES       782     A     
 TABLES   *                            IF POSITIVE = 0TR, REGISTER TO LOAD INTO.           TABLES       783     A     
 TABLES   *                            IF NEGATIVE = -0TR, INDICATING LOAD SATISFI         TABLES       784     A     
 TABLES   *                            IF = -0, NOT ACTIVE.                                TABLES       785     A     
 TABLES                                                                                    TABLES       786     A     
 TABLES    RTNCNT   CON    0           COUNT OF NUMBER OF *RETURN* STATEMENTS IN           TABLES       787     A     
 TABLES                                SUBPROGRAM.  COMPLEMENTED IF *END* IS               TABLES       788     A     
 TABLES                                IMMEDIATELY PRECEDED BY *RETURN*.  USED BY          TABLES       789     A     
 TABLES                                *RTU* TO DETERMINE WHAT CODE NEED BE                TABLES       790     A     
 TABLES                                GENERATED.                                          TABLES       791     A     
 TABLES                                                                                    TABLES       792     A     
 TABLES    SBP      DATA   0           LATEST INDEX DIMENSION                              TABLES       793          I
          -FEAT155G 
 TABLES                                                                                    TABLES       794          I
          -FEAT155G 
 TABLES                                LABEL FIELD OF CURRENT STATEMENT, WITH              TABLES       795     A     
 TABLES                                BLANKS AND LEADING ZEROES REMOVED.  WILL BE         TABLES       796     A     
 TABLES                                = 0 IF THERE WAS NO LABEL.                          TABLES       797     A     
 TABLES    SB.STNL  BSS    2           LEFT JUSTIFIED                                      TABLES       798     A     
 TABLES    SB.STNR  EQU    SB.STNL+1   RIGHT JUSTIFIED                                     TABLES       799     A     
 TABLES                                                                                    TABLES       800     A     
 TABLES    SIZCORE  CON    **          AMOUNT OF STORAGE CURRENTLY BEING MANAGED           TABLES       801          I
          -FCC0813
 TABLES                                                                                    TABLES       802          I
          -FCC0813
 TABLES    STAGE    DATA   0           CURRENT SOURCE PROGRAM STAGE.  VALUES ARE           TABLES       803     A     
 TABLES                                *CPM=XXX*.  SEE DISCUSSION AT II/A.                 TABLES       804          I
          -FCC0780
 TABLES                                *CPM=XXX*.  SEE DISCUSSION IN *MAIN*.               FCC0780        6     A     
 TABLES                                                                                    TABLES       805     A     
 TABLES    STATIC   DATA   0           IDICATES WHICH STATIC I/O ROUTINES NEEDED           F162FTNA     380     A     
 TABLES                                                                                    F162FTNA     381     A     
 TABLES    STN      DATA   0           CURRENT STATEMENT NUMBER OF SOURCE CARD             TABLES       806     A     
 TABLES                                BEING PROCESSED IN 0R FORMAT.                       TABLES       807     A     
 TABLES                                                                                    TABLES       808          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 599    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES                                                                                    TABLES       809          I
          -FEAT155G 
 TABLES    STNO1    DATA   0,0,0       BRANCH STATEMENT NUMBERS FOR *IF* STAT.             TABLES       810          I
          -FEAT155G 
 TABLES    STNO2    EQU    STNO1+1     PROCESSING, IF(EXP) STNO1,STNO2,STNO3.              TABLES       811          I
          -FEAT155G 
 TABLES    STNO3    EQU    STNO1+2     (FORMAT = 42/TAG,18/0)                              TABLES       812          I
          -FEAT155G 
 TABLES                                                                                    TABLES       813     A     
 TABLES    SYSERR   DATA   0           = 1 IF *GWA* DID NOT FIND EXTERNAL TAG IN           TABLES       814     A     
 TABLES                                TT.NA,                                              TABLES       815     A     
 TABLES                                = 2 IF *RAD* DID NOT FIND TAG IN TT.ARG             TABLES       816     A     
 TABLES                                = INSTRUCTION WORD BEING PROCESSED IN *GWA*         TABLES       817     A     
 TABLES                                IF *GWA* FINDS THAT TAG IS NOT H,V OF F.            TABLES       818     A     
 TABLES                                SYSERR IS CHECKED IN *CKS*. IF "0, *CKS*            TABLES       819     A     
 TABLES                                                                                    TABLES       820     A     
 TABLES                                                                                    TABLES       821     A     
 TABLES    TEM.MAX  CON    C.TEM       MAXIMUM TEMPORARY USED FOR EACH PROGRAM             TABLES       822     A     
 TABLES                                UNIT.                                               TABLES       823     A     
 TABLES    THRESH   DATA   0           THRESHHOLD FOR ALLOC BEFORE MEM REQUEST             FEAT155D      46     A     
 TABLES    TRACE    DATA   0           TRACEBACK LINE NO. FOR RJ BEING PROCESSED           FCC0744        8     A     
 TABLES                                                                                    TABLES       824     A     
 TABLES    TRLINE   DATA   0           LINE NO. (OCTAL) FOR TRACEBACK ON RJT.              TABLES       825     A     
 TABLES                                                                                    TABLES       826     A     
 TABLES    TS=CONB  DATA   0           SET TO START OF CONSTANTS FOR NEXT STATEMNT         TABLES       827     A     
 TABLES                                                                                    TABLES       828     A     
 TABLES    NOSUB    DATA   0           NOSUB CONTAINS DIMENSIONALITY OF ARRAY              TABLES       829          I
          -FEAT155G 
 TABLES                                BEING PROCESSED BY *CSR*. USED BY *CSR*,            TABLES       830          I
          -FEAT155G 
 TABLES                                *CSM*.                                              TABLES       831          I
          -FEAT155G 
 TABLES                                                                                    TABLES       832          I
          -FEAT155G 
 TABLES    UUC      DATA   0           USE COUNT INCREMENT                                 TABLES       833     A     
 TABLES                                                                                    TABLES       834     A     
 TABLES    VALUE.   DATA   0           TAG ORDINAL FOR FUNCTION-VALUE CELL                 TABLES       835     A     
 TABLES                                                                                    TABLES       836     A     
 TABLES    VARDIM   CON    0           NON-ZERO IF VARDIM CODE IS NECESSARY                TABLES       837     A     
 TABLES                                                                                    TABLES       838     A     
 TABLES    WNZ      DATA   0           LAST WRITE-INSTRUCTION ADDRESS                      TABLES       839     A     
 TABLES                                                                                    TABLES       840     A     
 TABLES   **        CELLS SET UP BY *TAB* FOR CLASSIFYING A STATEMENT.                     TABLES       841     A     
 TABLES                                                                                    TABLES       842     A     
 TABLES    FIRSTV   DATA   0           DPC FOR 1ST VARIABLE FOUND.                         TABLES       843     A     
 TABLES    ZLEQUAL  DATA   0           IF = 0 NO ZERO LEVEL *=* FOUND.                     TABLES       844     A     
 TABLES    ZLCOMMA  DATA   0           IF = 0 NO ZERO LEVEL *,* FOUND.                     TABLES       845     A     
 TABLES    ZLPAREN  DATA   0           1ST ZERO LEVEL *)* FOUND.                           TABLES       846     A     
 TABLES    ZLE      DATA   0           LOCAL *ZLEQUAL* POINTER USED DURING PARSE.          TABLES       847     A     
 TABLES    PASS2    EJECT  4,20                                                            TABLES       848     A     
 TABLES   **        WORKING COPY OF LISTING CONTROL FLAGS                                  FEAT155H      90     A     
 TABLES                                                                                    FEAT155H      91     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 600    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES    LSTWRKG  BSS    0                                                               FEAT155H      92     A     
 TABLES    ANSI     DATA   0                                                               FEAT155H      93     A     
 TABLES    IEFLG    DATA   0                                                               FEAT155H      94     A     
 TABLES    LOP=M    DATA   0                                                               FEAT155H      95     A     
 TABLES    LOP=O    DATA   0                                                               FEAT155H      96     A     
 TABLES    LOP=R    DATA   0                                                               FEAT155H      97     A     
 TABLES    LOP=W    EQU    IEFLG                                                           FEAT155H      98     A     
 TABLES    LOP=X    EQU    ANSI                                                            FEAT155H      99     A     
 TABLES    OLIST    EQU    LOP=O                                                           FEAT155H     100     A     
 TABLES    RSELECT  EQU    LOP=R                                                           FEAT155H     101     A     
 TABLES    R=FLAG   DATA   0                                                               FEAT155H     102     A     
 TABLES             ENTRY  LSTWRKG,ANSI,IEFLG,LOP=M,LOP=O,LOP=R,LOP=W,LOP=X                FEAT155H     103     A     
 TABLES             ENTRY  OLIST,RSELECT,R=FLAG                                            FEAT155H     104     A     
 TABLES                                                                                    FEAT155H     105     A     
 TABLES   **        MISCELLANEOUS SHORT CONSTANTS USED WHEN PROCESSING A STATEMENT         TABLES       849     A     
 TABLES                                                                                    TABLES       850     A     
 TABLES                                                                                    TABLES       851     A     
 TABLES    CONST    MACRO  NUM,CMOD                                                        TABLES       852     A     
 TABLES             VFD    L.SHC/NUM                                                       TABLES       853     A     
 TABLES             POS    P.SHORT+1                                                       TABLES       854     A     
 TABLES             VFD    1/1                                                             TABLES       855     A     
 TABLES             POS    L.MODE                                                          TABLES       856     A     
 TABLES             VFD    L.MODE/M._CMOD                                                  TABLES       857     A     
 TABLES    CONST    ENDM                                                                   TABLES       858     A     
 TABLES                                                                                    TABLES       859     A     
 TABLES                                                                                    TABLES       860     A     
 TABLES    CONONE   CONST  1,INT                                                           TABLES       861     A     
 TABLES    CONZER   CONST  0,UNIV                                                          TABLES       862     A     
 TABLES    CONZERI  CONST  0,INT                                                           TABLES       863     A     
 TABLES    VTRUE    CONST  -1,LOG                                                          TABLES       864     A     
 TABLES    VFALSE   CONST  0,LOG                                                           TABLES       865     A     
 TABLES             POPMAC CONST                                                           TABLES       866     A     
 TABLES                                                                                    TABLES       867     A     
 TABLES   ****                         END OF TS CELL/VARIABLE S                           TABLES       868     A     
 TABLES    TABLES   EJECT                                                                  TABLES       869     A     
 TABLES    TABTBL   SPACE  4,8                                                             TABLES       870     A     
 TABLES   **        TABTBL - FORM MAPPING/JUMPTO TABLE FOR PROCESSING CHARACTERS.          TABLES       871     A     
 TABLES                                                                                    TABLES       872     A     
 TABLES                                                                                    TABLES       873     A     
 TABLES             MACRO  MAPSY,MAPPING,ADDRESS,CHARS                                     TABLES       874     A     
 TABLES   .1        IFC    NE,*CHARS**                                                     TABLES       875     A     
 TABLES             VFD    42/0L_CHARS,18/MAPPING                                          TABLES       876     A     
 TABLES   .1        ELSE                                                                   TABLES       877     A     
 TABLES             VFD    42/ADDRESS,18/MAPPING                                           TABLES       878     A     
 TABLES   .1        ENDIF                                                                  TABLES       879     A     
 TABLES             ENDM                                                                   TABLES       880     A     
 TABLES    CONO     SPACE  4,8                                                             TABLES       881     A     
 TABLES   **        CONO TABLE.                                                            TABLES       882     A     
 TABLES   *         TABLE IS SET UP WITH EACH OPERATOR/OPERAND HAVING A UNIQUE BIT         TABLES       883     A     
 TABLES   *         COMBINATION.                                                           TABLES       884     A     
 TABLES   *                                                                                TABLES       885     A     
 TABLES   *         THE APPEARANCE OF AN OPERATOR IN THE LIST FOR OPERATOR                 TABLES       886     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 601    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES   *         DEFINED IN LOCATION FIELD MEANS IT IS A LEGAL NEXT FOR THAT            TABLES       887     A     
 TABLES   *         OPERATOR.                                                              TABLES       888     A     
 TABLES   *                                                                                TABLES       889     A     
 TABLES   *         FORMAT OF TABLE IS --                                                  TABLES       890     A     
 TABLES   *                                                                                TABLES       891     A     
 TABLES   *         IF SET TO 0 - ILLEGAL COMBINATION.                                     TABLES       892     A     
 TABLES   *         IF        1 - LEGAL   COMBINATION.                                     TABLES       893     A     
 TABLES   *                                                                                TABLES       894     A     
 TABLES   *         ALSO IN THE LOWER 18 BITS OF THE OPERATOR/OPERAND WORD IS THE          TABLES       895     A     
 TABLES   *         JUMP ADDRESS FOR TRANSLATION OF THE ELEMENT.                           TABLES       896     A     
 TABLES                                                                                    TABLES       897     A     
 TABLES                                                                                    TABLES       898     A     
 TABLES             MACRO  CONO,DUM,OPOK,ADDR                                              TABLES       899     A     
 TABLES    Z        SET    Z+1                                                             TABLES       900     A     
 TABLES    .3       IFNE   Z,O.DUM                                                         TABLES       901     A     
 TABLES    8        ERR    CONO TABLE OUT OF ORDER    (DUM)                                TABLES       902     A     
 TABLES             BSSZ   O.DUM-Z                                                         TABLES       903     A     
 TABLES    .3       ENDIF                                                                  TABLES       904     A     
 TABLES   .1        IRP    OPOK                                                            TABLES       905     A     
 TABLES    A        SET    60-O.OPOK+O.DEF                                                 TABLES       906     A     
 TABLES             POS    A                                                               TABLES       907     A     
 TABLES             VFD    1/1                                                             TABLES       908     A     
 TABLES   .1        IRP                                                                    TABLES       909     A     
 TABLES             POS    18                                                              TABLES       910     A     
 TABLES             VFD    18/PAR._ADDR                                                    TABLES       911     A     
 TABLES    CONO     ENDM                                                                   TABLES       912     A     
 TABLES    POPNX    SPACE  4,20                                                            TABLES       913     A     
 TABLES   **        POPNX- POP-NEXT OPERATION, CHECKING SPECIAL PROCESSING                 TABLES       914     A     
 TABLES   *         BITS SET BY *POPNX*                                                    TABLES       915     A     
 TABLES   *                                                                                TABLES       916     A     
 TABLES   *         IF SET TO 0 - NO SPECIAL PROCESSING                                    TABLES       917     A     
 TABLES   *         IF SET TO 1 - JUMP TO ADDRESS SPECIFIED TO PROCESS.                    TABLES       918     A     
 TABLES                                                                                    TABLES       919     A     
 TABLES                                                                                    TABLES       920     A     
 TABLES             MACRO  POPNX,DUM,OPOK,ADDR                                             TABLES       921     A     
 TABLES    Z        SET    Z+1                                                             TABLES       922     A     
 TABLES             IFNE   Z,O.DUM,1                                                       TABLES       923     A     
 TABLES    8        ERR    POPNX TABLE OUT OF ORDER   (DUM)                                TABLES       924     A     
 TABLES   .1        IRP    OPOK                                                            TABLES       925     A     
 TABLES    A        SET    60-O.OPOK+O.DEF                                                 TABLES       926     A     
 TABLES             POS    A                                                               TABLES       927     A     
 TABLES             VFD    1/1                                                             TABLES       928     A     
 TABLES   .1        IRP                                                                    TABLES       929     A     
 TABLES             POS    18                                                              TABLES       930     A     
 TABLES             VFD    18/POP.ADDR                                                     TABLES       931     A     
 TABLES    POPNX    ENDM                                                                   TABLES       932     A     
 TABLES    TABJP    EJECT  4,8                                                             TABLES       933     A     
 TABLES   **        TAB - JUMP DECISION TABLE.                                             TABLES       934     A     
 TABLES                                                                                    TABLES       935     A     
 TABLES                                                                                    TABLES       936     A     
 TABLES    MAPCHAR  BSS    0                                                               TABLES       937     A     
 TABLES                                                                                    TABLES       938     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 602    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES             LOC    1R+                                                             TABLES       939     A     
 TABLES                                                                                    TABLES       940     A     
 TABLES    O.PL     MAPSY  TAB.NX                                                          TABLES       941     A     
 TABLES    O.MIN    MAPSY  TAB.NX                                                          TABLES       942     A     
 TABLES    O.STAR   MAPSY  TAB.STR                                                         TABLES       943     A     
 TABLES    O.SLASH  MAPSY  TAB.NX                                                          TABLES       944     A     
 TABLES    O.(      MAPSY  TAB.LP                                                          TABLES       945     A     
 TABLES    O.)      MAPSY  TAB.RP                                                          TABLES       946     A     
 TABLES    O.$      MAPSY  TAB.DOL                                                         TABLES       947     A     
 TABLES    O.=      MAPSY  TAB.=                                                           TABLES       948     A     
 TABLES    O.SPACE  MAPSY  TAB.NX                                                          TABLES       949     A     
 TABLES    O.COMMA  MAPSY  TAB.CO                                                          TABLES       950     A     
 TABLES    O.PERIOD MAPSY  TAB.PD                                                          TABLES       951     A     
 TABLES                                                                                    TABLES       952     A     
 TABLES             LOC    *O                                                              TABLES       953     A     
 TABLES                                                                                    TABLES       954     A     
 TABLES    LOGT     BSS    0                                                               TABLES       955     A     
 TABLES                                                                                    TABLES       956     A     
 TABLES    O.FALSE  MAPSY  ,FALSE                                                          TABLES       957     A     
 TABLES    O.FALSE  MAPSY  ,F                                                              TABLES       958     A     
 TABLES    O.TRUE   MAPSY  ,TRUE                                                           TABLES       959     A     
 TABLES    O.TRUE   MAPSY  ,T                                                              TABLES       960     A     
 TABLES    O.LT     MAPSY  ,LT                                                             TABLES       961     A     
 TABLES    O.LE     MAPSY  ,LE                                                             TABLES       962     A     
 TABLES    O.EQ     MAPSY  ,EQ                                                             TABLES       963     A     
 TABLES    O.NE     MAPSY  ,NE                                                             TABLES       964     A     
 TABLES    O.GE     MAPSY  ,GE                                                             TABLES       965     A     
 TABLES    O.GT     MAPSY  ,GT                                                             TABLES       966     A     
 TABLES    O.NOT    MAPSY  ,NOT                                                            TABLES       967     A     
 TABLES    O.NOT    MAPSY  ,N                                                              TABLES       968     A     
 TABLES    O.AND    MAPSY  ,AND                                                            TABLES       969     A     
 TABLES    O.AND    MAPSY  ,A                                                              TABLES       970     A     
 TABLES    O.XOR    MAPSY  ,XOR                                                            TABLES       971     A     
 TABLES    O.XOR    MAPSY  ,X                                                              FCC0498        4     A     
 TABLES    O.OR     MAPSY  ,OR                                                             TABLES       972     A     
 TABLES    O.OR     MAPSY  ,O                                                              TABLES       973     A     
 TABLES   ****                                                                             TABLES       974     A     
 TABLES                                                                                    TABLES       975     A     
 TABLES    LG.LOG   EQU    *-1-LOGT    LENGTH OF TABLE                                     TABLES       976     A     
 TABLES    CONOTBL  EJECT  4,50                                                            TABLES       977     A     
 TABLES   ****      CONO TABLE FOR PARSER.                                                 TABLES       978     A     
 TABLES                                                                                    TABLES       979     A     
 TABLES    ANYOP    MICRO  1,,$EOS,HOLL,CONS,VAR,PL,MIN,MULT,DIV,LP,RP,=,COMMA,LT,         TABLES       980     A     
 TABLES   ,LE,EQ,NE,GE,GT,NOT,AND,XOR,OR,EXP,TRUE,FALSE,SLP,ANDN,ORN,PERIOD,UMIN$          TABLES       981          I
          -FCC0616
 TABLES   ,LE,EQ,NE,GE,GT,NOT,AND,XOR,OR,EXP,TRUE,FALSE,SLP,ANDN,XORN,ORN,PERIOD,U         FCC0616        7     A     
 TABLES   ,MIN$                                                                            FCC0616        8     A     
 TABLES                                                                                    TABLES       982     A     
 TABLES    CONOTBL  BSS    0           BASE ADDRESS OF TABLE.                              TABLES       983     A     
 TABLES                                                                                    TABLES       984     A     
 TABLES    Z        SET    O.DEF-1                                                         TABLES       985     A     
 TABLES    EOS      CONO   ,EOS                                                            TABLES       986     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 603    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES    HOLL     CONO   (PL,MIN,MULT,SLASH,LP,RP,=,COMMA,LT,LE,EQ,NE,GE,GT,AND,         TABLES       987     A     
 TABLES   ,XOR,OR,ASFA,EOS),HOL                                                            TABLES       988     A     
 TABLES    CONS     CONO   (VAR,CONS,PL,MIN,MULT,SLASH,RP,COMMA,LT,LE,EQ,NE,GE,GT,         TABLES       989     A     
 TABLES   ,AND,XOR,OR,EXP,PERIOD,ASFA,EOS),TNK                                             TABLES       990     A     
 TABLES    VAR      CONO   (VAR,PL,MIN,MULT,SLASH,LP,RP,=,COMMA,LT,LE,EQ,NE,GE,GT,         TABLES       991     A     
 TABLES   ,AND,XOR,OR,EXP,ASFA,EOS),VAR                                                    TABLES       992     A     
 TABLES    PL       CONO   (HOLL,CONS,VAR,LP,PERIOD,ASFA),PL                               TABLES       993     A     
 TABLES    MIN      CONO   (HOLL,CONS,VAR,LP,PERIOD,ASFA),MIN                              TABLES       994     A     
 TABLES    MULT     CONO   (HOLL,CONS,VAR,LP,PERIOD,ASFA),STD                              TABLES       995     A     
 TABLES    DIV      CONO   (HOLL,CONS,VAR,LP,PERIOD,ASFA),STD                              TABLES       996     A     
 TABLES    LP       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,ASFA,TRUE,FALSE),LP         TABLES       997     A     
 TABLES    RP       CONO   (PL,MIN,MULT,SLASH,RP,=,COMMA,LT,LE,EQ,NE,GE,GT,AND,XOR         TABLES       998     A     
 TABLES   ,,OR,EXP,ASFA,EOS),STD                                                           TABLES       999     A     
 TABLES    =        CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),EQL             TABLES      1000     A     
 TABLES    COMMA    CONO   (EOS,HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),CM          TABLES      1001     A     
 TABLES    LT       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),REL             TABLES      1002          I
          -FCC0616
 TABLES    LE       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),REL             TABLES      1003          I
          -FCC0616
 TABLES    EQ       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),REL             TABLES      1004          I
          -FCC0616
 TABLES    NE       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),REL             TABLES      1005          I
          -FCC0616
 TABLES    GE       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),REL             TABLES      1006          I
          -FCC0616
 TABLES    GT       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),REL             TABLES      1007          I
          -FCC0616
 TABLES    LT       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD             FCC0616        9     A     
 TABLES    LE       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD             FCC0616       10     A     
 TABLES    EQ       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD             FCC0616       11     A     
 TABLES    NE       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD             FCC0616       12     A     
 TABLES    GE       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD             FCC0616       13     A     
 TABLES    GT       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD             FCC0616       14     A     
 TABLES    NOT      CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,TRUE,FALSE,PERIOD),STD             TABLES      1008     A     
 TABLES    AND      CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,TRUE,FALSE,PERIOD),LOG             TABLES      1009          I
          -FCC0616
 TABLES    XOR      CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,TRUE,FALSE,PERIOD),LOG             TABLES      1010          I
          -FCC0616
 TABLES    OR       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,TRUE,FALSE,PERIOD),LOG             TABLES      1011          I
          -FCC0616
 TABLES    AND      CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD             FCC0616       15     A     
 TABLES    XOR      CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD             FCC0616       16     A     
 TABLES    OR       CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,PERIOD,TRUE,FALSE),STD             FCC0616       17     A     
 TABLES    EXP      CONO   (CONS,VAR,LP,PERIOD),STD                                        TABLES      1012     A     
 TABLES    UMIN     CONO   (HOLL,CONS,VAR,LP,PERIOD),STD                                   TABLES      1013     A     
 TABLES    TRUE     CONO   (RP,COMMA,AND,XOR,OR,EOS),TRU                                   TABLES      1014     A     
 TABLES    FALSE    CONO   (RP,COMMA,AND,XOR,OR,EOS),FAL                                   TABLES      1015     A     
 TABLES    SLP      CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,TRUE,FALSE,PERIOD),DLP             TABLES      1016     A     
 TABLES    ANDN     CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,TRUE,FALSE,PERIOD),STD             TABLES      1017     A     
 TABLES    XORN     CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,TRUE,FALSE,PERIOD),STD             TABLES      1018     A     
 TABLES    ORN      CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,TRUE,FALSE,PERIOD),STD             TABLES      1019     A     
 TABLES    $        CONO   ,EOS                                                            TABLES      1020     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 604    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES    PERIOD   CONO   (CONS),TNK                                                      TABLES      1021     A     
 TABLES                                                                                    TABLES      1022     A     
 TABLES   *         SPECIAL FORMS                                                          TABLES      1023     A     
 TABLES                                                                                    TABLES      1024     A     
 TABLES    O.ACONS  EQU    O.PERIOD+1  DUMMY                                               TABLES      1025     A     
 TABLES    ACONS    BSS    0           LEGAL AFTER CONSTANT                                TABLES      1026     A     
 TABLES    ACONS    CONO   (PL,MIN,MULT,SLASH,RP,COMMA,LT,LE,EQ,NE,GE,GT,AND,XOR,O         TABLES      1027     A     
 TABLES   ,R,EXP,ASFA,EOS),TNK                                                             TABLES      1028     A     
 TABLES    O.FEXPR  EQU    O.ACONS+1   DUMMY                                               FCC0787        8     A     
 TABLES    FEXPR    BSS    0                                                               FCC0787        9     A     
 TABLES    FEXPR    CONO   (HOLL,CONS,VAR,PL,MIN,LP,NOT,TRUE,FALSE,SLP,PERIOD),STD         FCC0787       10     A     
 TABLES   ****                                                                             TABLES      1029     A     
 TABLES    POPNX    EJECT  4,20                                                            TABLES      1030     A     
 TABLES   ****      POP-NEXT DECISION TABLE.                                               TABLES      1031     A     
 TABLES   *                                                                                TABLES      1032     A     
 TABLES   *         TABLE INTERPRETATION IS                                                TABLES      1033     A     
 TABLES   *                   PL   POPNX  (UMIN),UM                                        TABLES      1034     A     
 TABLES   *         IF A *PL* OPERATOR IS ABOUT TO POP A *UMIN* OPERATOR, TRANSFER         TABLES      1035     A     
 TABLES   *         CONTROL TO UM, OTHERWISE CONTINUE AS NORMAL.                           TABLES      1036     A     
 TABLES                                                                                    TABLES      1037     A     
 TABLES                                                                                    TABLES      1038     A     
 TABLES    POPTBL   BSS    0           BASE ADDRESS OF TABLE.                              TABLES      1039     A     
 TABLES                                                                                    TABLES      1040     A     
 TABLES    Z        SET    O.DEF-1                                                         TABLES      1041     A     
 TABLES    EOS      POPNX  ,STD                                                            TABLES      1042     A     
 TABLES    HOLL     POPNX  ,STD                                                            TABLES      1043     A     
 TABLES    CONS     POPNX  ,STD                                                            TABLES      1044     A     
 TABLES    VAR      POPNX  ,STD                                                            TABLES      1045     A     
 TABLES    PL       POPNX  ("ANYOP"),PL                                                    TABLES      1046     A     
 TABLES    MIN      POPNX  ,STD                                                            TABLES      1047     A     
 TABLES    MULT     POPNX  (MULT),MUL                                                      TABLES      1048     A     
 TABLES    DIV      POPNX  ("ANYOP"),DIV                                                   TABLES      1049     A     
 TABLES    LP       POPNX  ("ANYOP"),PN                                                    TABLES      1050     A     
 TABLES    RP       POPNX  ("ANYOP"),RP                                                    TABLES      1051     A     
 TABLES    =        POPNX  ("ANYOP"),REQ                                                   TABLES      1052     A     
 TABLES    COMMA    POPNX  ("ANYOP"),CM                                                    TABLES      1053     A     
 TABLES    LT       POPNX  ("ANYOP"),REL                                                   TABLES      1054     A     
 TABLES    LE       POPNX  ("ANYOP"),REL                                                   TABLES      1055     A     
 TABLES    EQ       POPNX  ("ANYOP"),REL                                                   TABLES      1056     A     
 TABLES    NE       POPNX  ("ANYOP"),REL                                                   TABLES      1057     A     
 TABLES    GE       POPNX  ("ANYOP"),REL                                                   TABLES      1058     A     
 TABLES    GT       POPNX  ("ANYOP"),REL                                                   TABLES      1059     A     
 TABLES    NOT      POPNX  ("ANYOP"),NOT                                                   TABLES      1060     A     
 TABLES    AND      POPNX  ("ANYOP"),LOG                                                   TABLES      1061     A     
 TABLES    XOR      POPNX  ("ANYOP"),LOG                                                   TABLES      1062     A     
 TABLES    OR       POPNX  ("ANYOP"),LOG                                                   TABLES      1063     A     
 TABLES    EXP      POPNX  ("ANYOP"),EXP                                                   TABLES      1064     A     
 TABLES    UMIN     POPNX  ("ANYOP"),UM                                                    TABLES      1065     A     
 TABLES    TRUE     POPNX  ,STD                                                            TABLES      1066     A     
 TABLES    FALSE    POPNX  ,STD                                                            TABLES      1067     A     
 TABLES    SLP      POPNX  ("ANYOP"),PN                                                    TABLES      1068     A     
 TABLES    ANDN     POPNX  ("ANYOP"),OPN                                                   TABLES      1069          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 605    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
          -FCC0616
 TABLES    XORN     POPNX  ("ANYOP"),OPN                                                   TABLES      1070          I
          -FCC0616
 TABLES    ORN      POPNX  ("ANYOP"),OPN                                                   TABLES      1071          I
          -FCC0616
 TABLES    ANDN     POPNX  ("ANYOP"),STD                                                   FCC0616       18     A     
 TABLES    XORN     POPNX  ("ANYOP"),STD                                                   FCC0616       19     A     
 TABLES    ORN      POPNX  ("ANYOP"),STD                                                   FCC0616       20     A     
 TABLES    $        POPNX  ,STD                                                            TABLES      1072     A     
 TABLES    PERIOD   POPNX  ,STD                                                            TABLES      1073     A     
 TABLES             POPMAC POPNX                                                           TABLES      1074     A     
 TABLES    GENERAL  EJECT                                                                  TABLES      1075     A     
 TABLES   **        SETOP - MACRO TO SET UP OPERATOR ENTRY.                                TABLES      1076     A     
 TABLES   *         SETOP SETS UP THE OPERATOR ENTRY IN THE FOLLOWING FORM--               TABLES      1077     A     
 TABLES   *                                                                                TABLES      1078     A     
 TABLES   *         BEFORE ENTRY INTO OPERATOR STACK.                                      TABLES      1079     A     
 TABLES   *         +-----------------+----------+---+--------+-----------------+          TABLES      1080     A     
 TABLES   *         +                 +          + D +        +                 +          TABLES      1081     A     
 TABLES   *         +  JUMP ADDRESS   + ATTRIBUTE+ M + STACK  + STRING BUFFER   +          TABLES      1082     A     
 TABLES   *         +      OR         +  OF OPER.+ O +PRIORITY+     PRIORITY    +          TABLES      1083     A     
 TABLES   *         + ADDR. OF SKEL.  +          + D +        +                 +          TABLES      1084     A     
 TABLES   *         +-----------------+----------+---+--------+-----------------+          TABLES      1085     A     
 TABLES   *                                                                                TABLES      1086     A     
 TABLES   *         ENTRY INTO PARSED FILE.                                                TABLES      1087     A     
 TABLES   *         +-----------------+----------+---+--------+-----------------+          TABLES      1088     A     
 TABLES   *         +                 +          + D +        +                 +          TABLES      1089     A     
 TABLES   *         +  JUMP ADDRESS   + ATTRIBUTE+ M + MODC   +     D  P  C     +          TABLES      1090     A     
 TABLES   *         +      OR         +  OF OPER.+ O +        +  OF OPERATOR    +          TABLES      1091     A     
 TABLES   *         + ADDR. OF SKEL.  +          + D +        +                 +          TABLES      1092     A     
 TABLES   *         +-----------------+----------+---+--------+-----------------+          TABLES      1093     A     
 TABLES                                                                                    TABLES      1094     A     
 TABLES                                                                                    TABLES      1095     A     
 TABLES    SETOP    MACRO  SBPRX,STPRX,JPADDX,CLASSX                                       TABLES      1096     A     
 TABLES             VFD    L.JPAD/JPADDX                                                   TABLES      1097     A     
 TABLES             IRP    CLASSX                                                          TABLES      1098     A     
 TABLES             POS    P.CLASSX+1                                                      TABLES      1099     A     
 TABLES             VFD    1/1                                                             TABLES      1100     A     
 TABLES             IRP                                                                    TABLES      1101     A     
 TABLES             POS    P.ATTR                                                          TABLES      1102     A     
 TABLES             VFD    L.DMOD/0                                                        TABLES      1103     A     
 TABLES    A        MICRO  1,2, STPRX                                                      TABLES      1104     A     
 TABLES    .2       IFC    EQ,/PR/"A"/                                                     TABLES      1105     A     
 TABLES             VFD    L.STPR/STPRX                                                    TABLES      1106     A     
 TABLES    .2       ELSE                                                                   TABLES      1107     A     
 TABLES    .3       IFC    EQ,/0/STPRX/                                                    TABLES      1108     A     
 TABLES             VFD    L.STPR/0                                                        TABLES      1109     A     
 TABLES    .3       ELSE                                                                   TABLES      1110     A     
 TABLES             VFD    L.STPR/SBPRX+STPRX                                              TABLES      1111     A     
 TABLES    .3       ENDIF                                                                  TABLES      1112     A     
 TABLES    .2       ENDIF                                                                  TABLES      1113     A     
 TABLES             VFD    L.SBPR/SBPRX                                                    TABLES      1114     A     
 TABLES             ENDM                                                                   TABLES      1115     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 606    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES    PRIORITY EJECT                                                                  TABLES      1116     A     
 TABLES   **        SETPRI- MACRO TO SET UP PRIORITIES FOR OPERATOR.                       TABLES      1117     A     
 TABLES   *         EACH CALL UPDATE PRIORITY BY 3 UNLESS PRIORITY IS SPECIFIED.           TABLES      1118     A     
 TABLES                                                                                    TABLES      1119     A     
 TABLES                                                                                    TABLES      1120     A     
 TABLES             MACRO  SETPRI,OPNAME,PRIORITY                                          TABLES      1121     A     
 TABLES   .1        IFC    EQ,**PRIORITY*                                                  TABLES      1122     A     
 TABLES    OPNAME   EQU    PR.SET                                                          TABLES      1123     A     
 TABLES    PR.SET   SET    PR.SET+3                                                        TABLES      1124     A     
 TABLES   .1        ELSE                                                                   TABLES      1125     A     
 TABLES    OPNAME   EQU    PRIORITY                                                        TABLES      1126     A     
 TABLES   .1        ENDIF                                                                  TABLES      1127     A     
 TABLES             ENDM                                                                   TABLES      1128     A     
 TABLES    PR.SET   SPACE  4,8                                                             TABLES      1129     A     
 TABLES   ****      PRIORITY STACK LISTED FROM LOWEST TO HIGHEST PRIORITY.                 TABLES      1130     A     
 TABLES                                                                                    TABLES      1131     A     
 TABLES    PR.SET   SET    5           LOWEST PRIORITY.                                    TABLES      1132     A     
 TABLES                                                                                    TABLES      1133     A     
 TABLES    PR.RPAR  SETPRI                                                                 TABLES      1134     A     
 TABLES    PR.LPAR  SETPRI                                                                 TABLES      1135     A     
 TABLES    PR.EQUAL SETPRI                                                                 TABLES      1136     A     
 TABLES    PR.SLP   SETPRI PR.EQUAL    SUBSCRIPT LEFT PAREN.                               TABLES      1137     A     
 TABLES    PR.SPL   SETPRI PR.SLP+1    SUBSCRIPT PLUS.                                     TABLES      1138     A     
 TABLES    PR.SMULT SETPRI PR.SPL+1    SUBSCRIPT MULTIPLY.                                 TABLES      1139     A     
 TABLES    PR.COM   SETPRI                                                                 TABLES      1140     A     
 TABLES    PR.OR    SETPRI                                                                 TABLES      1141     A     
 TABLES    PR.XOR   SETPRI                                                                 TABLES      1142          I
          -FCC0616
 TABLES    PR.XOR   SETPRI PR.OR                                                           FCC0616       21     A     
 TABLES    PR.AND   SETPRI                                                                 TABLES      1143     A     
 TABLES    PR.NOT   SETPRI                                                                 TABLES      1144     A     
 TABLES    PR.LT    SETPRI                                                                 TABLES      1145     A     
 TABLES    PR.LE    SETPRI PR.LT                                                           TABLES      1146     A     
 TABLES    PR.EQ    SETPRI PR.LT                                                           TABLES      1147     A     
 TABLES    PR.NE    SETPRI PR.LT                                                           TABLES      1148     A     
 TABLES    PR.GE    SETPRI PR.LT                                                           TABLES      1149     A     
 TABLES    PR.GT    SETPRI PR.LT                                                           TABLES      1150     A     
 TABLES    PR.PL    SETPRI                                                                 TABLES      1151     A     
 TABLES    PR.MI    SETPRI PR.PL                                                           TABLES      1152     A     
 TABLES    PR.UMIN  SETPRI                                                                 TABLES      1153     A     
 TABLES    PR.MULT  SETPRI                                                                 TABLES      1154     A     
 TABLES    PR.DIV   SETPRI PR.MULT                                                         TABLES      1155     A     
 TABLES    PR.SDIV  SETPRI PR.MULT+2                                                       TABLES      1156     A     
 TABLES    PR.EXP   SETPRI                                                                 TABLES      1157     A     
 TABLES   ****                                                                             TABLES      1158     A     
 TABLES    PSTACK   SPACE  4,30                                                            TABLES      1159     A     
 TABLES   ****      PSTACK - OPERATOR STACK.                                               TABLES      1160     A     
 TABLES   *                  STANDARD FORTRAN OPERATOR TABLE.                              TABLES      1161     A     
 TABLES   *                  ORDER OF TABLE IS DEFINED OFF OF MAPCHAR MACRO.               TABLES      1162     A     
 TABLES   *                  ANY CHANGES TO THIS ORDER MEANS A CHANGE TO MAPCHAR,          TABLES      1163     A     
 TABLES   *                  CONO, AND CHARMAP MACROS AND SECTION.                         TABLES      1164     A     
 TABLES   *                                                                                TABLES      1165     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 607    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES   *         IF ROUND IS SELECTED FOR ANY OF THE OPERATORS + - * /, THE             TABLES      1166     A     
 TABLES   *         CORRESPONDING PSTACK ENTRY IS MODIFIED AT INITIALIZATION               TABLES      1167     A     
 TABLES   *         TIME TO REFLECT THE ROUNDED OPERATION CODE SKELETON ADDRESS.           TABLES      1168     A     
 TABLES   *                                                                                TABLES      1169     A     
 TABLES                                                                                    TABLES      1170     A     
 TABLES                                                                                    TABLES      1171     A     
 TABLES    PSTACK   BSS    0                                                               TABLES      1172     A     
 TABLES    PLUS     SETOP  PR.PL,+1,O=ADD,(AS,COM)                                         TABLES      1173     A     
 TABLES    MINUS    SETOP  PR.MI,+1,O=SUB,(AS)                                             TABLES      1174     A     
 TABLES    MULT     SETOP  PR.MULT,+1,O=MULT,(AS,DIS,COM)                                  TABLES      1175     A     
 TABLES    DIV      SETOP  PR.DIV,+1,O=DIV,(DIS)                                           TABLES      1176     A     
 TABLES    LPAR     SETOP  PR.LPAR,-1,,(NSQEZ)                                             TABLES      1177     A     
 TABLES    RPAR     SETOP  PR.RPAR                                                         TABLES      1178     A     
 TABLES    EQUAL    SETOP  PR.EQUAL,-1,O=STR                                               TABLES      1179     A     
 TABLES    COMMA    SETOP  PR.COM,1,,(NSQEZ,NONSTD,UNAR,MODLS)                             TABLES      1180     A     
 TABLES    LTOP     SETOP  PR.LT,,O=LT                                                     TABLES      1181     A     
 TABLES    LEOP     SETOP  PR.LE,,O=GE                                                     TABLES      1182     A     
 TABLES    EQOP     SETOP  PR.EQ,,O=EQ,(COM)                                               TABLES      1183     A     
 TABLES    NEOP     SETOP  PR.NE,,O=NE,(COM)                                               TABLES      1184     A     
 TABLES    GEOP     SETOP  PR.GE,,O=GE                                                     TABLES      1185     A     
 TABLES    GTOP     SETOP  PR.GT,,O=LT                                                     TABLES      1186     A     
 TABLES    NOTOP    SETOP  PR.NOT,,O=NOT,(MODLS,UNAR)                                      TABLES      1187     A     
 TABLES    ANDOP    SETOP  PR.AND,,O=ANDO,(MODLS,COM)                                      TABLES      1188     A     
 TABLES    XOROP    SETOP  PR.XOR,,O=XOR,(MODLS,COM)                                       TABLES      1189     A     
 TABLES    OROP     SETOP  PR.OR,,O=ORO,(MODLS,COM)                                        TABLES      1190     A     
 TABLES    EXPOP    SETOP  PR.EXP,+1,0,(NONSTD)                                            TABLES      1191     A     
 TABLES    UMINUS   SETOP  PR.UMIN,,O=UMIN,(UNAR)                                          TABLES      1192     A     
 TABLES             BSS    3           SPACE FILLER                                        TABLES      1193     A     
 TABLES    ANDNOT   SETOP  PR.AND,,O=ANDN,(MODLS)                                          TABLES      1194     A     
 TABLES    XORNOT   SETOP  PR.XOR,,O=XORN,(MODLS)                                          TABLES      1195     A     
 TABLES    ORNOT    SETOP  PR.OR,,O=ORN,(MODLS)                                            TABLES      1196     A     
 TABLES    SPECOPS  EJECT                                                                  TABLES      1197     A     
 TABLES   ****      SPECIAL OPERATOR PARSE ENTRIES.                                        TABLES      1198     A     
 TABLES   *                ENTRYS IN THIS TABLE ARE FOR SPECIAL PROCESSORS OR              TABLES      1199     A     
 TABLES   *                OPERATORS THAT ARE CONTEXT DEPENDENT.                           TABLES      1200     A     
 TABLES                                                                                    TABLES      1201     A     
 TABLES                                                                                    TABLES      1202     A     
 TABLES    APLSTOR  SETOP  O.=,0,STR.I,(NSQEZ,MODLS)       *APLIST* STORE.                 TABLES      1203     A     
 TABLES    APLSTOD  SETOP  O.=,0,=XSTR.D,(NSQEZ,MODLS)     *APLIST* STORE (DOUBLE)         TABLES      1204     A     
 TABLES    APLUG    SETOP  O.PLUG,0,O=APLUG,(NSQEZ,MODLS)                                  TABLES      1205     A     
 TABLES    ASSN     SETOP  O.ASSN,0,O=ASSGN,(NSQEZ,MODLS)  *ASSIGN*                        TABLES      1206     A     
 TABLES    PLUS(S   SETOP  O.PL,PR.SPL,O=ADD,(AS,COM)                                      TABLES      1207     A     
 TABLES    MULT(S   SETOP  PR.SMULT,,O=MULT,(AS,DIS,COM)                                   TABLES      1208     A     
 TABLES    SUBOP    SETOP  O.ARY,0,O=SUBL,(NONSTD,MODLS)   *ARRAY LOAD*                    TABLES      1209     A     
 TABLES                                                                                    TABLES      1210     A     
 TABLES    PLUS.M   SETOP  O.MIN,0,SUB.I,(AS)                                              TABLES      1211     A     
 TABLES    MINUS.M  SETOP  O.PL,0,ADD.I,(AS,COM)                                           TABLES      1212     A     
 TABLES                                                                                    TABLES      1213     A     
 TABLES    EQUAL.   SETOP  PR.EQUAL,-1,O=STR                                               TABLES      1214     A     
 TABLES    DO.BEG   SETOP  O.DOB,0,O=DOB,(NSQEZ,MODLS)                                     TABLES      1215     A     
 TABLES                                                                                    TABLES      1216     A     
 TABLES    CALLIO   SETOP  O.RJ,0,O=IOJ,(NONSTD,NSQEZ,MODLS)                               TABLES      1217     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 608    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES    IOOP     SETOP  O.COMMA,0,0,(NONSTD,MODLS)    I/O OPERATOR SKELETON             TABLES      1218     A     
 TABLES                                                                                    TABLES      1219     A     
 TABLES    IN.EXP   SETOP  O.EXP,0,0,(MODLS) OPERATOR FOR INLINE PROCESSING OF EXP         TABLES      1220     A     
 TABLES                                                                                    TABLES      1221     A     
 TABLES    ERROP    SETOP  O.RJ,0,0,(NONSTD,MODLS)             PROGRAM SOURCE ERR          TABLES      1222     A     
 TABLES                                                                                    TABLES      1223     A     
 TABLES    GOASS    SETOP  O.GOAS,0,O=GOA,(MODLS,NSQEZ)    *ASSIGN GO TO*                  TABLES      1224     A     
 TABLES    OPBSS    SETOP  O.BSS,0,O=BSS,(NSQEZ,MODLS)     *BSS* - DEFINED LABEL           TABLES      1225     A     
 TABLES                                                                                    TABLES      1226     A     
 TABLES    OPDUM    SETOP  O.NTR,0,0,(NSQEZ,MODLS)          SKELETON OPERATOR WORD         TABLES      1227     A     
 TABLES                                                                                    TABLES      1228     A     
 TABLES    REVMIN   SETOP  O.MIN,0,O=SUB,(AS)                                              TABLES      1229     A     
 TABLES                                                                                    TABLES      1230     A     
 TABLES    SDIV     SETOP  PR.SDIV,+1,O=MULT,(AS,DIS,COM)                                  TABLES      1231     A     
 TABLES                                                                                    TABLES      1232     A     
 TABLES    XPOP     SETOP  O.MXP,0,O=EPO,(NONSTD,MODLS,NSQEZ)                              TABLES      1233     A     
 TABLES                                                                                    FEAT155G      34     A     
 TABLES    OTROP    SETOP  O.OTR,0,O=OTR,(NONSTD,MODLS,NSQEZ)                              FEAT155G      35     A     
 TABLES                                                                                    TABLES      1234     A     
 TABLES    INTMAC   SETOP  O.COMMA,0,O=INT                                                 TABLES      1235     A     
 TABLES                                                                                    TABLES      1236     A     
 TABLES                                                                                    TABLES      1237     A     
 TABLES    CALLOP   SETOP  O.ARG1,0,O=ARG,(NONSTD,NSQEZ,UNAR,MODLS)                        TABLES      1238     A     
 TABLES    BIFFUN   SETOP  O.ARG2,0,0,(MODLS)                                              TABLES      1239     A     
 TABLES    RANF     SETOP  O.MULT,0,O=RANF,(MODLS,NSQEZ)                                   TABLES      1240          I
          -FCC0966
 TABLES    BIFRAN   SETOP  O.=,0,0,(MODLS,NSQEZ)           INTRINSIC *RANF*                TABLES      1241          I
          -FCC0966
 TABLES    RANF     SETOP  O.RANF,0,O=RANF,(MODLS,NSQEZ)                                   FCC0966       12     A     
 TABLES    BIFSHF   SETOP  O.SHF,0,0,(MODLS)               INTRINSIC *SHIFT*               TABLES      1242     A     
 TABLES                                                                                    TABLES      1243     A     
 TABLES    EXTCAL   SETOP  O.RJ,0,O=RJT,(NONSTD,NSQEZ,MODLS)                               TABLES      1244     A     
 TABLES    EXTFUN   SETOP  O.RJ,0,O=FUN,(NONSTD,NSQEZ,MODLS)                               TABLES      1245     A     
 TABLES    BEFFUN   SETOP  O.RJ,0,O=BEF,(NONSTD,NSQEZ,MODLS)                               TABLES      1246     A     
 TABLES                                                                                    TABLES      1247     A     
 TABLES    RJSUB    SETOP  O.=,0,O=RJSUB,(NSQEZ,MODLS)                                     TABLES      1248     A     
 TABLES                                                                                    TABLES      1249     A     
 TABLES   *         THE FOLLOWING TWO CELLS MUST REMAIN CONTIGUOUS FOR USE BY PAR.         TABLES      1250     A     
 TABLES    REGARG   SETOP  O.ARG1,0,0,(NSQEZ,UNAR,MODLS)  SINGLE ARGUMENT                  TABLES      1251     A     
 TABLES    REGARG2  SETOP  O.ARG2,0,0,(NSQEZ,UNAR,MODLS)       TWO ARGUMENT                TABLES      1252     A     
 TABLES                                                                                    TABLES      1253     A     
 TABLES    OPRETS   SETOP  O.ARG1,0,O=RETS,(NSQEZ,UNAR,MODLS)                              TABLES      1254     A     
 TABLES    OPRETD   SETOP  O.ARG1,0,O=RETD,(NSQEZ,UNAR,MODLS)                              TABLES      1255     A     
 TABLES                                                                                    TABLES      1256     A     
 TABLES    IMULT2   SETOP  O.PL,0,ADD.I,(AS,COM)                                           TABLES      1257     A     
 TABLES                                                                                    TABLES      1258     A     
 TABLES    NOOPP    SETOP  O.NOOP,0,O=NOOP,(NSQEZ,MODLS,NONSTD)   NULL TURPLE              TABLES      1259     A     
 TABLES    XMITOP   SETOP  O.XMIT,0,O=XMIT,(MODLS)                                         FCC2194        9     A     
 TABLES    DO.CSKL  SPACE  4,8                                                             TABLES      1260     A     
 TABLES   **        DO.CSKL - DO CONCLUSION OPERATOR SELECTION TABLE.                      TABLES      1261     A     
 TABLES                                                                                    TABLES      1262     A     
 TABLES                                                                                    TABLES      1263     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 609    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES    DO.CSKL  BSS    0                                                               TABLES      1264     A     
 TABLES             LOC    0                              (LIMIT)    /  (INCREMENT         TABLES      1265     A     
 TABLES    DO=VV    SETOP  O.DOC,0,O=DOC1,(NSQEZ,MODLS)   VARIABLE   /  VARIABLE           TABLES      1266     A     
 TABLES             SETOP  O.DOC1,0,O=DOC1,(NSQEZ,MODLS)                                   TABLES      1267     A     
 TABLES    DO=VC    SETOP  O.DOC1,0,O=DOC2,(NSQEZ,MODLS)  VARIABLE   /  SHORT              TABLES      1268     A     
 TABLES             SETOP  O.DOC1,0,O=DOC2,(NSQEZ,MODLS)                                   TABLES      1269     A     
 TABLES    DO=CV    SETOP  O.DOC,0,O=DOC4,(NSQEZ,MODLS)   SHORT      /  VARIABLE           TABLES      1270     A     
 TABLES             SETOP  O.DOC2,0,O=DOC4,(NSQEZ,MODLS)                                   TABLES      1271     A     
 TABLES    DO=CC    SETOP  O.DOC1,0,O=DOC3,(NSQEZ,MODLS)  SHORT      /  SHORT              TABLES      1272     A     
 TABLES             SETOP  O.DOC2,0,O=DOC3,(NSQEZ,MODLS)                                   TABLES      1273     A     
 TABLES    DO=CC1   SETOP  O.DOC,0,O=DOC3A,(NSQEZ,MODLS)  OPT=1, OF *DO=CC*                TABLES      1274     A     
 TABLES             LOC    *O                                                              TABLES      1275     A     
 TABLES    SHIFTOP  SPACE  4,8                                                             TABLES      1276     A     
 TABLES   **        SHIFT OPERATORS , FOR INTEGER MULTIPLY.                                TABLES      1277     A     
 TABLES                                                                                    TABLES      1278     A     
 TABLES    SHFC     SETOP  O.SHF,0,O=SHFC,(MODLS)   SIMPLE POWER OF *2*                    TABLES      1279     A     
 TABLES    SHFS     SETOP  O.SHF,0,O=SHFS,(MODLS)   SUM OF                                 TABLES      1280     A     
 TABLES    SHFSA    SETOP  O.SHF,0,O=SHFSA,(MODLS)  ABOVE BUT *J* = 0                      TABLES      1281     A     
 TABLES    SHFD     SETOP  O.SHF,0,O=SHFD,(MODLS)   DIFFERENCE OF                          TABLES      1282     A     
 TABLES    SHFDS    SETOP  O.SHF,0,O=SHFDS,(MODLS)  ABOVE BUT *J* = 0                      TABLES      1283     A     
 TABLES                                                                                    TABLES      1284     A     
 TABLES   **        SHIFT OPERATOR FOR INTEGER DIVIDE BY POWER OF *2*                      TABLES      1285     A     
 TABLES                                                                                    TABLES      1286     A     
 TABLES    DIVP2    SETOP  O.SHF,0,O=DIVP2,(MODLS)                                         TABLES      1287     A     
 TABLES   ****                                                                             TABLES      1288     A     
 TABLES    OSTACK   SPACE  4,8                                                             TABLES      1289     A     
 TABLES    VARDIM   SPACE  4,8                                                             TABLES      1290     A     
 TABLES   ****      VARDIM PROCESSOR OPERATORS AND RESULT OPERAND DEFINITIONS.             TABLES      1291     A     
 TABLES                                                                                    TABLES      1292     A     
 TABLES    VD.EQ    SETOP  O.=,0,STR.I                                                     TABLES      1293     A     
 TABLES    VD.MULT  SETOP  O.MULT,0,MULT.I,(AS,DIS,COM)                                    TABLES      1294     A     
 TABLES    VD.INTR  VFD    L.JPAD/0,L.ATTR/0,L.DMOD/0,L.MODC/0,L.SBPR/M.INT+M.INTR         TABLES      1295     A     
 TABLES   ****                                                                             TABLES      1296     A     
 TABLES    SETARM   EJECT  4,8                                                             TABLES      1297     A     
 TABLES   **        SETARM - SET *ARGMODE* CELL FOR USE BY *PARSER*                        TABLES      1298     A     
 TABLES   *                                                                                TABLES      1299     A     
 TABLES   *         REF   = CROSS REFERENCE VALUE                                          TABLES      1300     A     
 TABLES   *         ATTR  = ATTRIBUTE BITS FOR THIS *ARGMODE*                              TABLES      1301     A     
 TABLES   *         COMAD = C=XXX PROCESSOR ADDRESS FOR COMMA.                             TABLES      1302     A     
 TABLES   *         PARAD = A=XXX PROCESSOR ADDRESS FOR PAREN.                             TABLES      1303     A     
 TABLES   *                                                                                TABLES      1304     A     
 TABLES   *         FOR DEFINITION OF VARIOUS FIELDS AND THEIR USE SEE WRITE-UP            TABLES      1305     A     
 TABLES   *         OF CELL *ARGMODE*.                                                     TABLES      1306     A     
 TABLES                                                                                    TABLES      1307     A     
 TABLES                                                                                    TABLES      1308     A     
 TABLES    SETARM   MACRO  REF,ATTR,COMAD,PARAD                                            TABLES      1309     A     
 TABLES             IFEQ   REF,,2                                                          TABLES      1310     A     
 TABLES             VFD    L.AMR/55B                                                       TABLES      1311     A     
 TABLES             SKIP   1                                                               TABLES      1312     A     
 TABLES             VFD    L.AMR/REF                                                       TABLES      1313     A     
 TABLES             IRP    ATTR                                                            TABLES      1314     A     
 TABLES             POS    P.ATTR+1                                                        TABLES      1315     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 610    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES             VFD    1/1                                                             TABLES      1316     A     
 TABLES             IRP                                                                    TABLES      1317     A     
 TABLES             POS    P.AMATR                                                         TABLES      1318     A     
 TABLES             VFD    L.AMC/COMAD                                                     TABLES      1319     A     
 TABLES             VFD    L.AMAD/PARAD                                                    TABLES      1320     A     
 TABLES    SETARM   ENDM                                                                   TABLES      1321     A     
 TABLES                                                                                    TABLES      1322     A     
 TABLES                                                                                    TABLES      1323     A     
 TABLES    ARRARM   SETARM CR.ARY,,C=ARRAY,A=ARRAY                                         TABLES      1324     A     
 TABLES    ASFARM   SETARM CR.PAR,,C=CERR,A=ASF                                            TABLES      1325     A     
 TABLES    BEFXARM  SETARM CR.INF,,C=BEF,A=BEF                                             TABLES      1326     A     
 TABLES    BIFARM   SETARM CR.INF,,C=BIF,A=BIF                                             TABLES      1327     A     
 TABLES    BUFMOD   SETARM ,(AMRP,AMADDR),C=CERR,A=BMOD                                    TABLES      1328     A     
 TABLES    BUFFWA   SETARM ,(AMADDR),C=BFWA,C=CERR                                         TABLES      1329     A     
 TABLES    BUFLWA   SETARM ,(AMADDR),C=CERR,A=BLWA                                         TABLES      1330     A     
 TABLES    CALLARM  SETARM CR.CALL,(AMFUN,AMWHOL),C=CALL,A=CALL                            TABLES      1331     A     
 TABLES    CNFARM   SETARM ,(AMEQ),C=CERR,PAR.NX                                           TABLES      1332     A     
 TABLES    DECARM   SETARM CR.DEC,,C=DEC,A=DEC                                             TABLES      1333     A     
 TABLES    DOARM    SETARM CR.DOI,(AMEQ),C=DO,A=DO                                         TABLES      1334     A     
 TABLES    EXTFARM  SETARM CR.INF,(AMFUN,AMWHOL),C=FUN,A=FUN                               TABLES      1335     A     
 TABLES    GOTARM   SETARM CR.REF,(AMEOS),C=GOT,PAR.NX                                     TABLES      1336          I
          -FCC0787
 TABLES    GOTARM   SETARM CR.VGOTO,(AMEOS),C=GOT,PAR.NX                                   FCC0787       11     A     
 TABLES    IFARM    SETARM CR.IF,,C=CERR,A=IF                                              TABLES      1337     A     
 TABLES    LPARM    SETARM ,,C=LP,PAR.NX     STAND ALONE PAREN                             TABLES      1338          I
          -FCC0787
 TABLES    CLPARM   SETARM ,,C=CERR,A=LP     COMPLEX CONSTANT STARTED                      TABLES      1339          I
          -FCC0787
 TABLES                                                                                    TABLES      1340          I
          -FCC0787
 TABLES    LPARM    SETARM ,,C=CERR,PAR.NX                                                 FCC0787       12     A     
 TABLES    IOARGM   SETARM CR.OUT,(AMEQ,AMEOS,AMWHOL),C=IOL,A=LIST                         TABLES      1341     A     
 TABLES             SETARM CR.INP,(AMEQ,AMEOS,AMWHOL),C=IOL,A=LIST                         TABLES      1342     A     
 TABLES                                                                                    TABLES      1343     A     
 TABLES    NDC=CNT  SETARM ,,C=CNT,C=CERR                                                  TABLES      1344     A     
 TABLES    NDC=STR  SETARM ,(AMRP,AMADDR),C=CERR,A=STR                                     TABLES      1345     A     
 TABLES    PTN=FMT  SETARM ,(AMRP,AMADDR),C=FMT,A=FMT                                      TABLES      1346     A     
 TABLES    #RM      IFEQ   CP#RM,0                                                         TABLES      1347     A     
 TABLES   *CALL     COMCCIO                                                                TABLES      1348     A     
 TABLES             ENTRY  CIO=                                                            TABLES      1349     A     
 TABLES   *CALL     COMCRDC                                                                TABLES      1350     A     
 TABLES             ENTRY  RDC=                                                            TABLES      1351     A     
 TABLES   *CALL     COMCRDW                                                                TABLES      1352     A     
 TABLES             ENTRY  RDW=                                                            TABLES      1353     A     
 TABLES   *CALL     COMCWTC                                                                TABLES      1354     A     
 TABLES             ENTRY  WTC=                                                            TABLES      1355     A     
 TABLES   *CALL     COMCWTW                                                                TABLES      1356     A     
 TABLES             ENTRY  WTW=                                                            TABLES      1357     A     
 TABLES    #RM      ELSE                                                                   TABLES      1358     A     
 TABLES   *CALL     COMCMVE                                                                TABLES      1359     A     
 TABLES             ENTRY  MVE=                                                            TABLES      1360     A     
 TABLES   *CALL     FA=CLO                                                                 TABLES      1361     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 611    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES             ENTRY  FA=CLO                                                          TABLES      1362     A     
 TABLES   *CALL     FA=EOF                                                                 TABLES      1363     A     
 TABLES             ENTRY  FA=EOF                                                          TABLES      1364     A     
 TABLES   *CALL     FA=EOR                                                                 TABLES      1365     A     
 TABLES             ENTRY  FA=EOR                                                          TABLES      1366     A     
 TABLES   *CALL     FA=FLSH                                                                TABLES      1367     A     
 TABLES             ENTRY  FA=FLSH                                                         TABLES      1368     A     
 TABLES   *CALL     FA=OPE                                                                 TABLES      1369     A     
 TABLES             ENTRY  FA=OPE                                                          TABLES      1370     A     
 TABLES   *CALL     FA=RDC                                                                 TABLES      1371     A     
 TABLES             ENTRY  FA=RDC                                                          TABLES      1372     A     
 TABLES   *CALL     FA=RDW                                                                 TABLES      1373     A     
 TABLES             ENTRY  FA=RDW                                                          TABLES      1374     A     
 TABLES   *CALL     FA=RWX                                                                 TABLES      1375     A     
 TABLES             ENTRY  FA=RWX                                                          TABLES      1376     A     
 TABLES   *CALL     FA=WTC                                                                 TABLES      1377     A     
 TABLES             ENTRY  FA=WTC                                                          TABLES      1378     A     
 TABLES   *CALL     FA=WTW                                                                 TABLES      1379     A     
 TABLES             ENTRY  FA=WTW                                                          TABLES      1380     A     
 TABLES    #RM      ENDIF                                                                  TABLES      1381     A     
 TABLES                                                                                    TABLES      1382     A     
 TABLES   **        CDD -  CONVERT DECIMAL INTEGER TO DISPLAY CODE.                        TABLES      1383     A     
 TABLES   *                                                                                TABLES      1384     A     
 TABLES   *         ADAPTED FROM SUBROUTINE *CONDEC* IN *COMPASS*.                         TABLES      1385     A     
 TABLES   *         ENTRY  (X1) = NUMBER TO BE CONVERTED                                   TABLES      1386     A     
 TABLES   *         EXIT   (B2) = NUMBER OF SIGNIFICANT BITS IN REPLY.  TO LEFT-           TABLES      1387     A     
 TABLES   *                            JUSTIFY (X6) -- SB2 B2-10*CHAR,  AX6 B2.            TABLES      1388     A     
 TABLES   *                (X6) = DPC CONVERSION WITH LEADING ZEROES SUPPRESSED,           TABLES      1389     A     
 TABLES   *                       RIGHT JUSTIFIED, SPACE FILLED (0A FORMAT).               TABLES      1390     A     
 TABLES   *         USES   A2,A3,A4  B2,B3                                                 TABLES      1391     A     
 TABLES                                                                                    TABLES      1392     A     
 TABLES                                                                                    TABLES      1393     A     
 TABLES    CDD2     DX4    X1*X2                                                           TABLES      1394     A     
 TABLES             FX1    X1*X2                                                           TABLES      1395     A     
 TABLES             SB3    X1                                                              TABLES      1396     A     
 TABLES             LX6    -CHAR                                                           TABLES      1397     A     
 TABLES             SB2    B2+CHAR                                                         TABLES      1398     A     
 TABLES             FX4    X4*X3                                                           TABLES      1399     A     
 TABLES             SX4    X4-1R +1R0                                                      TABLES      1400     A     
 TABLES             IX6    X4+X6                                                           TABLES      1401     A     
 TABLES             NZ     B3,CDD2     IF REMAINDER NON-ZERO                               TABLES      1402     A     
 TABLES             LX6    -CHAR                                                           TABLES      1403     A     
 TABLES             LX6    X6,B2                                                           TABLES      1404     A     
 TABLES                                                                                    TABLES      1405     A     
 TABLES    CDD      SUBR               ENTRY/EXIT...                                       TABLES      1406     A     
 TABLES             SA2    CDDA                                                            TABLES      1407     A     
 TABLES             SB2    B0                                                              TABLES      1408     A     
 TABLES             SA3    A2+B1                                                           TABLES      1409     A     
 TABLES             SA4    =1H                                                             TABLES      1410     A     
 TABLES             PX1    X1                                                              TABLES      1411     A     
 TABLES             BX6    X4                                                              TABLES      1412     A     
 TABLES             EQ     CDD2        ENTER LOOP..                                        TABLES      1413     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 612    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES                                                                                    TABLES      1414     A     
 TABLES    CDDA     LIT    0.1000000001P48,10.0P0                                          TABLES      1415     A     
 TABLES    COD      SPACE  4,8                                                             TABLES      1416     A     
 TABLES   **        COD -  CONVERT OCTAL DIGITS.                                           TABLES      1417          I
          -FEAT155F 
 TABLES   *         CONVERTS BINARY TO OCTAL WITH LEADING ZERO SUPPRESSION.                TABLES      1418          I
          -FEAT155F 
 TABLES   *         ENTRY  (X1) = NUMBER TO BE CONVERTED.                                  TABLES      1419          I
          -FEAT155F 
 TABLES   *         EXIT   (X6) = DPC CONVERSION.                                          TABLES      1420          I
          -FEAT155F 
 TABLES   *                     FORMAT =  * 123456   *                                     TABLES      1421          I
          -FEAT155F 
 TABLES   *                B7 = 6*(NR OF CHAR IN X6)                                       TABLES      1422          I
          -FEAT155F 
 TABLES   *         USES   X0,X1  A2  B2,B7                                                TABLES      1423          I
          -FEAT155F 
 TABLES                                                                                    TABLES      1424          I
          -FEAT155F 
 TABLES                                                                                    TABLES      1425          I
          -FEAT155F 
 TABLES    PIA      BSS    0           **** TEMP ****                                      TABLES      1426          I
          -FEAT126C -FEAT155F 
 TABLES    COD      SUBR               ENTRY/EXIT...                                       TABLES      1427          I
          -FEAT155F 
 TABLES             MX0    -3                                                              TABLES      1428          I
          -FEAT155F 
 TABLES             SA2    =1H                                                             TABLES      1429          I
          -FEAT155F 
 TABLES             SB7    2*CHAR                                                          TABLES      1430          I
          -FEAT155F 
 TABLES             SB2    1R0-1R      SET FOR DIFFERENCE                                  TABLES      1431          I
          -FEAT155F 
 TABLES    COD2     BX6    -X0*X1      ISOLATE NEXT DIGIT                                  TABLES      1432          I
          -FEAT155F 
 TABLES             SB7    B7+CHAR                                                         TABLES      1433          I
          -FEAT155F 
 TABLES             LX2    -CHAR                                                           TABLES      1434          I
          -FEAT155F 
 TABLES             SX6    X6+B2                                                           TABLES      1435          I
          -FEAT155F 
 TABLES             AX1    3           CHECK FOR ZERO WORD LEFT                            TABLES      1436          I
          -FEAT155F 
 TABLES             IX2    X2+X6       ADD IN NUMBER                                       TABLES      1437          I
          -FEAT155F 
 TABLES             NZ     X1,COD2     IF NOT FINISHED, LOOP..                             TABLES      1438          I
          -FEAT155F 
 TABLES             LX6    X2,B7       ADJUST RESULTS                                      TABLES      1439          I
          -FEAT155F 
 TABLES             SX1    1R -1RB                                                         FEAT126A      84          I
          -FEAT155F 
 TABLES             LX1    2*CHAR                                                          FEAT126A      85          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 613    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
          -FEAT155F 
 TABLES             IX6    X6-X1                                                           FEAT126A      86          I
          -FEAT155F 
 TABLES             EQ     EXIT.                                                           TABLES      1440          I
          -FEAT155F 
 TABLES   **        COD - CONVERT BINARY TO OCTAL DPC.                                     FEAT155F     159     A     
 TABLES   *                                                                                FEAT155F     160     A     
 TABLES   *                                                                                FEAT155F     161     A     
 TABLES   *                CONVERTS A BINARY NUMBER TO OCTAL DPC WITH LEADING              FEAT155F     162     A     
 TABLES   *         ZERO SUPPRESSION.                                                      FEAT155F     163     A     
 TABLES   *                                                                                FEAT155F     164     A     
 TABLES   *         NOTE-- INTENDED FOR CONVERTING A NUMBER WITH .LE. TO 6 BINARY          FEAT155F     165     A     
 TABLES   *         (3 BIT) DIGITS. NO ERROR CONDITION IS FLAGGED IF .GT. 6 DIGITS         FEAT155F     166     A     
 TABLES   *         ARE CONVERTED.                                                         FEAT155F     167     A     
 TABLES   *                                                                                FEAT155F     168     A     
 TABLES   *         ENTRY  (X1) = BINARY NR TO BE CONVERTED                                FEAT155F     169     A     
 TABLES   *                                                                                FEAT155F     170     A     
 TABLES   *         EXIT   (X2) = NR CONVERTED TO OCTAL DPC, RIGHT JUSTIFIED TO            FEAT155F     171     A     
 TABLES   *                         BIT 18, WITH BLANK FILL--  (.=BLANK(55B))              FEAT155F     172     A     
 TABLES   *                         CHAR POS 10 9 8 7 6 5 4 3 2 1                          FEAT155F     173     A     
 TABLES   *                         CONV NR   . 1 2 3 4 5 6 . . .                          FEAT155F     174     A     
 TABLES   *                (X6) = SAME AS ABOVE WITH -B- SUFFIX--                          FEAT155F     175     A     
 TABLES   *                                   . 1 2 3 4 5 6 B . .                          FEAT155F     176     A     
 TABLES   *                (B7) = NR OF DIGITS*6 CONVERTED + 2*6  (NOT INCLUDING           FEAT155F     177     A     
 TABLES   *                         -B- SUFFIX). TO LEFT JUSTIFY NR IN X2 OR X6 --         FEAT155F     178     A     
 TABLES   *                SB7    B7-9*CHAR                                                FEAT155F     179     A     
 TABLES   *                AX2    X2,B7                                                    FEAT155F     180     A     
 TABLES   *                                                                                FEAT155F     181     A     
 TABLES   *         USES   X - 0,1,2,6                                                     FEAT155F     182     A     
 TABLES   *                A - 2                                                           FEAT155F     183     A     
 TABLES   *                B - 7                                                           FEAT155F     184     A     
 TABLES   *                                                                                FEAT155F     185     A     
 TABLES   *         CALLS  NONE                                                            FEAT155F     186     A     
 TABLES                                                                                    FEAT155F     187     A     
 TABLES                                                                                    FEAT155F     188     A     
 TABLES    COD      SUBR   =           ** ENTRY/EXIT **                                    FEAT155F     189     A     
 TABLES             SA2    =10H                                                            FEAT155F     190     A     
 TABLES             SB7    2*CHAR                                                          FEAT155F     191     A     
 TABLES                                                                                    FEAT155F     192     A     
 TABLES    COD2     MX0    -3                                                              FEAT155F     193     A     
 TABLES             SB7    B7+CHAR                                                         FEAT155F     194     A     
 TABLES             BX6    -X0*X1                                                          FEAT155F     195     A     
 TABLES             LX2    -CHAR                                                           FEAT155F     196     A     
 TABLES             SX6    X6+1R0-1R                                                       FEAT155F     197     A     
 TABLES             AX1    3                                                               FEAT155F     198     A     
 TABLES             IX2    X2+X6                                                           FEAT155F     199     A     
 TABLES             NZ     X1,COD2     IF NOT FINISHED ASSEMBLING NR                       FEAT155F     200     A     
 TABLES             LX2    X2,B7       (X2) = NR IN OCTAL DPC, RT JUST TO BIT 18           FEAT155F     201     A     
 TABLES             SX1    1R -1RB                                                         FEAT155F     202     A     
 TABLES             LX1    2*CHAR                                                          FEAT155F     203     A     
 TABLES             IX6    X2-X1       (X6) = SAME AS (X2) W/ -B- SUFFIX                   FEAT155F     204     A     
 TABLES             EQ     EXIT.                                                           FEAT155F     205     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 614    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES    DXB      SPACE  4                                                               TABLES      1441     A     
 TABLES   **        DXB - DISPLAY CODE TO BINARY CONVERSION.                               TABLES      1442     A     
 TABLES   *                                                                                TABLES      1443     A     
 TABLES   *         ENTRY  (X1) = NUMBER TO CONVERT (0L FORMAT).                           TABLES      1444     A     
 TABLES   *                                                                                TABLES      1445     A     
 TABLES   *         EXIT   (X6) = CONVERTED DIGITS.                                        TABLES      1446     A     
 TABLES   *                                                                                TABLES      1447     A     
 TABLES   *         USES   X0,X1,X2,X5,X6  B2.                                             TABLES      1448          I
          -FEAT155G 
 TABLES   *         USES   X0,X1,X2,X5,X6,X7  B2,B3.                                       FEAT155G      36     A     
 TABLES                                                                                    TABLES      1449     A     
 TABLES                                                                                    TABLES      1450     A     
 TABLES    DXB      SUBR               ENTRY/EXIT...                                       TABLES      1451     A     
 TABLES             MX0    -CHAR                                                           TABLES      1452     A     
 TABLES             SB3    -1R0                                                            TABLES      1453     A     
 TABLES             BX6    0           CLEAR ASSEMBLY                                      TABLES      1454     A     
 TABLES             SB2    B1+B1                                                           TABLES      1455     A     
 TABLES                                                                                    TABLES      1456     A     
 TABLES   **        CONVERSION LOOP.                                                       TABLES      1457     A     
 TABLES                                                                                    TABLES      1458     A     
 TABLES    DXB1     LX1    CHAR                                                            TABLES      1459     A     
 TABLES             BX7    -X0*X1                                                          TABLES      1460     A     
 TABLES             ZR     X7,DXBX     IF END OF ASSEMBLY                                  TABLES      1461     A     
 TABLES             LX2    X6,B2       DECIMAL * 10                                        TABLES      1462     A     
 TABLES             SX7    X7+B3                                                           TABLES      1463     A     
 TABLES             IX6    X2+X6                                                           TABLES      1464     A     
 TABLES             BX1    X0*X1       CLEAR CHARACTER                                     TABLES      1465     A     
 TABLES             LX6    1                                                               TABLES      1466     A     
 TABLES             IX6    X6+X7       DECIMAL + NEW DIGIT                                 TABLES      1467     A     
 TABLES             EQ     DXB1                                                            TABLES      1468     A     
 TABLES    .TEST    IFNE   TEST                                                            TABLES      1469          I
          -FEAT155G 
 TABLES    LJS      SPACE  4,8                                                             FEAT155G      37     A     
 TABLES   **        LJS -  LEFT JUSTIFY STATEMENT LABEL.                                   FEAT155G      38     A     
 TABLES   *                                                                                FEAT155G      39     A     
 TABLES   *         ENTRY  (X5) = DPC STATEMENT LABEL (0R FORMAT).                         FEAT155G      40     A     
 TABLES   *         EXIT   (X6) = DPC STATEMENT LABEL (0H FORMAT).                         FEAT155G      41     A     
 TABLES   *         USES   A1,A2,A3,A6  B2,B3,B7  X1,X2,X3,X5,X6                           FEAT155G      42     A     
 TABLES   *         SAVES  A0,A4,A5,A7  B4,B5,B6  X0,X4,X7                                 FEAT155G      43     A     
 TABLES   *         CALLS  SFN.                                                            FEAT155G      44     A     
 TABLES                                                                                    FEAT155G      45     A     
 TABLES                                                                                    FEAT155G      46     A     
 TABLES    LJS      SUBR               ENTRY/EXIT...                                       FEAT155G      47     A     
 TABLES                                                                                    FEAT155G      48     A     
 TABLES    .TEST    IFNE   TEST                                                            FEAT155G      49     A     
 TABLES             NZ     X5,LJS2S                                                        FEAT155G      50     A     
 TABLES    LJS      REG                IF ZERO -- SOMEBODY GOOFED                          FEAT155G      51     A     
 TABLES             EQ     =XE.ZA                                                          FEAT155G      52     A     
 TABLES    LJS2S    BSS    0                                                               FEAT155G      53     A     
 TABLES    .TEST    ENDIF                                                                  FEAT155G      54     A     
 TABLES                                                                                    FEAT155G      55     A     
 TABLES             MX2    CHAR                                                            FEAT155G      56     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 615    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES             SX3    2R.*-1R*                                                        FEAT155G      57     A     
 TABLES    LJS4     BX6    X2*X5                                                           FEAT155G      58     A     
 TABLES             LX5    CHAR                                                            FEAT155G      59     A     
 TABLES             ZR     X6,LJS4     LEFT JUSTIFY LABEL                                  FEAT155G      60     A     
 TABLES             BX1    X5+X3                                                           FEAT155G      61     A     
 TABLES             LX1    -2*CHAR                                                         FEAT155G      62     A     
 TABLES             RJ     SFN         SPACE FILL NAME                                     FEAT155G      63     A     
 TABLES             EQ     EXIT.                                                           FEAT155G      64     A     
 TABLES    RPV      SPACE  4,8                                                             TABLES      1470     A     
 TABLES    .TEST    IFNE   TEST,0                                                          FEAT155G      65     A     
 TABLES   **        RPV - REPRIEVE PROCESSOR.                                              TABLES      1471     A     
 TABLES   *                                                                                TABLES      1472     A     
 TABLES   *         IF COMPILATION IS ABORTED DUE TO COMPILER ERROR, *RPV* GAINS           TABLES      1473     A     
 TABLES   *         CONTROL TO FLUSH THE OUTPUT BUFFER AND POST DAYFILE MESSAGES           TABLES      1474     A     
 TABLES   *         THAT IDENTIFY THE PROGRAM UNIT BEING COMPILED AND WHERE THE            TABLES      1475     A     
 TABLES   *         ERROR OCCURRED.  IF THE COMPILER HAS BEEN ASSEMBLED IN TEST            TABLES      1476     A     
 TABLES   *         MODE, ALL FILES IN AN OUTPUT MODE ARE FLUSHED.  FINALLY, THE           TABLES      1477     A     
 TABLES   *         ORIGINAL ERROR CONDITION IS RESTORED TO PERMIT NORMAL *EXIT*           TABLES      1478     A     
 TABLES   *         CONDITION PROCESSING.                                                  TABLES      1479     A     
 TABLES   *                                                                                TABLES      1480     A     
 TABLES   *         ENTRY  NO REQUIREMENTS.                                                TABLES      1481     A     
 TABLES   *                                                                                TABLES      1482     A     
 TABLES   *         EXIT   MESSAGES POSTED AND BUFFERS FLUSHED.  REINSTATES THE            TABLES      1483     A     
 TABLES   *                ERROR CONDITION AND RETURNS CONTROL TO THE OPERATING            TABLES      1484     A     
 TABLES   *                SYSTEM.                                                         TABLES      1485     A     
 TABLES   *                                                                                TABLES      1486     A     
 TABLES   *         USES   X - ALL                                                         TABLES      1487     A     
 TABLES   *                A - 1, 2, 3, 5, 6, 7                                            TABLES      1488     A     
 TABLES   *                B - 1, 2                                                        TABLES      1489     A     
 TABLES   *                                                                                TABLES      1490     A     
 TABLES   *         CALLS  CDD, SYSTEM (RPV), WRITER                                       TABLES      1491     A     
 TABLES                                                                                    TABLES      1492     A     
 TABLES                                                                                    TABLES      1493     A     
 TABLES    #OS      IFEQ   .OS,0                                                           TABLES      1494          I
          -FEAT126A 
 TABLES    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A      87     A     
 TABLES    XJP      VFD    12/0,18/LWARPV,30/0                                             TABLES      1495     A     
 TABLES    #OS      ELSE                                                                   TABLES      1496     A     
 TABLES    XJP      VFD    12/0,18/LWARPV,6/0,24/77770014B                                 TABLES      1497     A     
 TABLES    #OS      ENDIF                                                                  TABLES      1498     A     
 TABLES                                                                                    TABLES      1499     A     
 TABLES             ENTRY  XJP                                                             TABLES      1500     A     
 TABLES                                                                                    TABLES      1501     A     
 TABLES             BSSZ   16          EXCHANGE PACKAGE AND RA+1                           TABLES      1502     A     
 TABLES                                                                                    TABLES      1503     A     
 TABLES             MESAGE =XIDENT1,,RCL  *COMPILING NNNNNNN*                              TABLES      1504     A     
 TABLES                                                                                    TABLES      1505     A     
 TABLES   *         SAVE CONTENTS OF ENTRY POINTS THAT *RPV* WILL USE.                     TABLES      1506     A     
 TABLES                                                                                    TABLES      1507     A     
 TABLES             SB1    1                                                               F66FCC       176     A     
 TABLES             SA1    CDD                                                             TABLES      1508     A     
 TABLES             SA2    COD                                                             TABLES      1509     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 616    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES             BX6    X1                                                              TABLES      1510     A     
 TABLES             LX7    X2                                                              TABLES      1511     A     
 TABLES             SA6    RPVG                                                            TABLES      1512          I
          -CP139FC
 TABLES             SA6    RPVE                                                            CP139FC       94     A     
 TABLES             SA7    A6+B1                                                           TABLES      1513     A     
 TABLES    #OS      IFEQ   .OS,0                                                           TABLES      1514          I
          -FEAT126A 
 TABLES    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A      88     A     
 TABLES             SA1    =XSYS=                                                          TABLES      1515     A     
 TABLES             SA2    =XWNB=                                                          TABLES      1516     A     
 TABLES             SA3    =XMSG=                                                          TABLES      1517     A     
 TABLES             BX6    X1                                                              TABLES      1518     A     
 TABLES             LX7    X2                                                              TABLES      1519     A     
 TABLES             SA6    A7+B1                                                           TABLES      1520     A     
 TABLES             SA7    A6+B1                                                           TABLES      1521     A     
 TABLES             BX6    X3                                                              TABLES      1522     A     
 TABLES             SA6    A7+B1                                                           TABLES      1523     A     
 TABLES    #RM      IFEQ   CP#RM,0                                                         TABLES      1524     A     
 TABLES             SA1    CIO=                                                            TABLES      1525     A     
 TABLES             BX6    X1                                                              TABLES      1526     A     
 TABLES             SA6    A6+B1                                                           TABLES      1527     A     
 TABLES    #RM      ENDIF                                                                  TABLES      1528     A     
 TABLES    #OS      ENDIF                                                                  TABLES      1529     A     
 TABLES                                                                                    TABLES      1530     A     
 TABLES                                                                                    TABLES      1531     A     
 TABLES             SA5    XJP                                                             TABLES      1532     A     
 TABLES             MX0    -17                                                             TABLES      1533     A     
 TABLES             LX5    24                                                              TABLES      1534     A     
 TABLES             BX4    -X0*X5      EXTRACT P REGISTER                                  TABLES      1535          I
          -CP139FC
 TABLES             SA5    B0                                                              TABLES      1536          I
          -CP139FC
 TABLES             NZ     X4,RPV2     IF P NONZERO                                        TABLES      1537          I
          -CP139FC
 TABLES             LX5    59-47+18                                                        TABLES      1538          I
          -CP139FC
 TABLES             BX4    -X0*X5      EXTRACT P FROM RA+0                                 TABLES      1539          I
          -CP139FC
 TABLES    RPV2     SX2    X4-RA.ORG-1                                                     TABLES      1540          I
          -CP139FC
 TABLES             SA3    RPVD                                                            TABLES      1541          I
          -CP139FC
 TABLES             MI     X2,RPV4     IF ERROR ADDRESS BELOW FWA (0,0) OVERLAY            TABLES      1542          I
          -CP139FC
 TABLES             SX1    =XFWA1.0                                                        TABLES      1543          I
          -CP139FC
 TABLES             IX2    X4-X1                                                           TABLES      1544          I
          -CP139FC
 TABLES             SA3    A3+B1                                                           TABLES      1545          I
          -CP139FC
 TABLES             MI     X2,RPV4     IF IN FTN (0,0)                                     TABLES      1546          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 617    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
          -CP139FC
 TABLES             SA3    =XFWA1.0                                                        TABLES      1547          I
          -CP139FC
 TABLES                                                                                    TABLES      1548          I
          -CP139FC
 TABLES   *         GET RELATIVE ADDRESS OF ERROR.                                         TABLES      1549          I
          -CP139FC
 TABLES                                                                                    TABLES      1550          I
          -CP139FC
 TABLES    RPV3     ZR     X3,RPV4     IF END OF TABLE                                     TABLES      1551          I
          -CP139FC
 TABLES             BX1    -X0*X3                                                          TABLES      1552          I
          -CP139FC
 TABLES             IX2    X4-X1                                                           TABLES      1553          I
          -CP139FC
 TABLES             MI     X2,RPV4     IF THIS IS TOO FAR                                  TABLES      1554          I
          -CP139FC
 TABLES             SA3    A3+1                                                            TABLES      1555          I
          -CP139FC
 TABLES             EQ     RPV3                                                            TABLES      1556          I
          -CP139FC
 TABLES                                                                                    TABLES      1557          I
          -CP139FC
 TABLES   *         STORE ROUTINE NAME AND CONVERT ERROR ADDRESS.                          TABLES      1558          I
          -CP139FC
 TABLES                                                                                    TABLES      1559          I
          -CP139FC
 TABLES    RPV4     SA3    A3-B1       (X1) = NAME OF ROUTINE                              TABLES      1560          I
          -CP139FC
 TABLES             BX6    X0*X3                                                           TABLES      1561          I
          -CP139FC
 TABLES             SA6    RPVB+2      NAME TO MESSAGE TEXT                                TABLES      1562          I
          -CP139FC
 TABLES             BX5    -X0*X3                                                          TABLES      1563          I
          -CP139FC
 TABLES             IX1    X4-X5       RELATIVE ADDRESS                                    TABLES      1564          I
          -CP139FC
 TABLES             RJ     COD         CONVERT OCTAL DIGITS                                TABLES      1565          I
          -CP139FC
 TABLES             LX6    6           *NNNNNN    *                                        TABLES      1566          I
          -FEAT126A 
 TABLES             LX6    2*CHAR                                                          FEAT126A      89          I
          -CP139FC
 TABLES             SX3    2R  &2RIN                                                       TABLES      1567          I
          -CP139FC
 TABLES             LX3    6                                                               TABLES      1568          I
          -CP139FC
 TABLES             BX7    X6-X3       *NNNNNN IN *                                        TABLES      1569          I
          -CP139FC
 TABLES             SA7    A6-B1                                                           TABLES      1570          I
          -CP139FC
 TABLES             BX1    -X0*X5      EXTRACT P REGISTER                                  CP139FC       95     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 618    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES             SA5    B0                                                              CP139FC       96     A     
 TABLES             NZ     X1,RPV2     IF P NONZERO                                        CP139FC       97     A     
 TABLES             LX5    59-47+18                                                        CP139FC       98     A     
 TABLES             BX1    -X0*X5      EXTRACT P FROM RA+0                                 CP139FC       99     A     
 TABLES                                                                                    CP139FC      100     A     
 TABLES    RPV2     SB7    RPV3        (B7) = RETURN ADDR                                  CP139FC      101     A     
 TABLES             EQ     FRA=        FIND RELATIVE ADDRESS                               CP139FC      102     A     
 TABLES                                                                                    CP139FC      103     A     
 TABLES    RPV3     SA6    RPVC+1                                                          CP139FC      104     A     
 TABLES             SA7    A6+B1                                                           CP139FC      105     A     
 TABLES                                                                                    TABLES      1571     A     
 TABLES   *         INDICATE LAST OVERLAY LOADED.                                          TABLES      1572     A     
 TABLES                                                                                    TABLES      1573     A     
 TABLES             SA1    RA.ORG      (X1) = LOADER CALL PARAM LIST WORD 1                TABLES      1574     A     
 TABLES             MX0    -6                                                              TABLES      1575     A     
 TABLES             LX1    6                                                               TABLES      1576     A     
 TABLES             BX6    -X0*X1      PRIMARY LEVEL                                       TABLES      1577     A     
 TABLES             LX1    6                                                               TABLES      1578     A     
 TABLES             BX7    -X0*X1      SECONDARY LEVEL                                     TABLES      1579     A     
 TABLES             LX6    12                                                              TABLES      1580     A     
 TABLES             SB2    X7          (B2) = SECONDARY OVERLAY LEVEL NUMBER               TABLES      1581     A     
 TABLES             BX7    X6+X7                                                           TABLES      1582     A     
 TABLES             SA2    RPVC+2      * - (0,0)  *                                        TABLES      1583          I
          -CP139FC
 TABLES             SA2    RPVD+2      * - (0,0)  *                                        CP139FC      106     A     
 TABLES             LX7    18                                                              TABLES      1584     A     
 TABLES             IX6    X2+X7                                                           TABLES      1585     A     
 TABLES             SA6    A2                                                              TABLES      1586     A     
 TABLES                                                                                    TABLES      1587     A     
 TABLES   *         INDICATE LAST SOURCE STATEMENT PROCESSED.                              TABLES      1588     A     
 TABLES                                                                                    TABLES      1589     A     
 TABLES    RPV5     SA1    =XICA                                                           TABLES      1590          I
          -FEAT126A 
 TABLES             PIA    ORG         GET CODE ADDRESS                                    FEAT126A      90          I
          -FEAT155E 
 TABLES             SA1    REFLIN                                                          FEAT155E      95     A     
 TABLES             AX1    CHAR                                                            FEAT155E      96     A     
 TABLES             RJ     CDD                                                             FEAT155E      97     A     
 TABLES             SA2    RPVA+3                                                          FEAT126A      91          I
          -CP139FC
 TABLES             MX0    -12                                                             TABLES      1591          I
          -CP139FC
 TABLES             BX6    X0*X1                                                           TABLES      1592          I
          -FEAT126A 
 TABLES             SA6    RPVA+3      LINE NR TO MESSAGE TEXT                             TABLES      1593          I
          -FEAT126A 
 TABLES             BX6    X0*X6                                                           FEAT126A      92          I
          -CP139FC
 TABLES             LX6    -2*CHAR                                                         FEAT126A      93          I
          -CP139FC
 TABLES             BX6    X6+X2                                                           FEAT126A      94          I
          -CP139FC
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 619    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES             SA6    A2          ADDRESS TO MESSAGE TEXT                             FEAT126A      95          I
          -CP139FC
 TABLES             SB2    B2-10*CHAR                                                      CP139FC      107     A     
 TABLES             AX6    B2          LEFT JUSTIFY                                        CP139FC      108     A     
 TABLES             MX0    8*CHAR                                                          CP139FC      109     A     
 TABLES             BX6    X0*X6       CREATE 12-BIT ZERO BYTE MSG TERMINATOR              CP139FC      110     A     
 TABLES             SA6    RPVB+3      LINE NUMBER TO MESSAGE TEXT                         CP139FC      111     A     
 TABLES                                                                                    TABLES      1594     A     
 TABLES   *         ISSUE THE DAYFILE MESSAGES.                                            TABLES      1595     A     
 TABLES                                                                                    TABLES      1596     A     
 TABLES             MESSAGE   RPVA,,RCL      * LAST STATEMENT BEGAN AT LINE NNNN*          TABLES      1597          I
          -CP139FC
 TABLES    RPV7     MESSAGE   RPVB,,RCL      * ERROR AT XXXXXX IN YYYYYYY*                 TABLES      1598          I
          -CP139FC
 TABLES             MESSAGE   RPVC,,RCL      * LAST OVERLAY LOADED - (P,S)*                TABLES      1599          I
          -CP139FC
 TABLES             MESSAGE   RPVB,,RCL      * LAST STATEMENT BEGAN AT LINE NNNN*          CP139FC      112     A     
 TABLES    RPV7     MESSAGE   RPVC,,RCL      * ERROR AT XXXXXX IN YYYYYYY*                 CP139FC      113     A     
 TABLES             MESSAGE   RPVD,,RCL      * LAST OVERLAY LOADED - (P,S)*                CP139FC      114     A     
 TABLES                                                                                    TABLES      1600     A     
 TABLES   *         FLUSH FILE I/O BUFFERS (DIRECT CIO I/O ONLY).                          TABLES      1601     A     
 TABLES                                                                                    TABLES      1602     A     
 TABLES    #RM      IFEQ   CP#RM,0                                                         TABLES      1603     A     
 TABLES             SA1    =XF.OUT                                                         TABLES      1604     A     
 TABLES             SX6    B1                                                              TABLES      1605     A     
 TABLES             BX7    X1+X6                                                           TABLES      1606     A     
 TABLES             SA7    A1          INSURE CIO COMPLETE BIT IS ON                       TABLES      1607     A     
 TABLES             WRITER A1,,RCL                                                         TABLES      1608     A     
 TABLES             SX6    3           FLUSH COUNT - 1  (LGO, CMPS, RLST, RMAP)            TABLES      1609     A     
 TABLES    RPV8     SA2    =XFV.LGO+X6 (X2) = NEXT FILE FET ADDRESS                        TABLES      1610     A     
 TABLES             SA6    RPVF        TEMP SAVE VECTOR OFFSET                             TABLES      1611     A     
 TABLES             ZR     X2,RPV9     IF FILE DESELECTED BY CONTROL CARD OPTION           TABLES      1612     A     
 TABLES             SA1    X2          (X1) = FET WORD 1                                   TABLES      1613     A     
 TABLES             MX0    -6                                                              TABLES      1614     A     
 TABLES             SX6    B1                                                              TABLES      1615     A     
 TABLES             BX7    X1+X6                                                           TABLES      1616     A     
 TABLES             SA3    RPVE        (X3) = SHIFT TEST MASK FOR CIO CODE                 TABLES      1617          I
          -CP139FC
 TABLES             SA3    RPVA        (X3) = SHIFT TEST MASK FOR CIO CODE                 CP139FC      115     A     
 TABLES             AX1    2                                                               TABLES      1618     A     
 TABLES             BX0    -X0*X1      EXTRACT CIO CODE                                    TABLES      1619     A     
 TABLES             SB2    X0                                                              TABLES      1620     A     
 TABLES             LX3    B2                                                              TABLES      1621     A     
 TABLES             PL     X3,RPV9     IF LAST CIO OP NOT OPEN OR WRITE                    TABLES      1622     A     
 TABLES             SA7    A1          INSURE CIO COMPLETE BIT IS ON                       TABLES      1623     A     
 TABLES             WRITER A1,,RCL     FLUSH BUFFER                                        TABLES      1624     A     
 TABLES    RPV9     SA1    RPVF                                                            TABLES      1625     A     
 TABLES             SX6    X1-1        (X6) = NEXT FILE OFFSET IN VECTOR TABLE             TABLES      1626     A     
 TABLES             PL     X6,RPV8     IF MORE FILES TO FLUSH                              TABLES      1627     A     
 TABLES    #RM      ENDIF                                                                  TABLES      1628     A     
 TABLES                                                                                    TABLES      1629     A     
 TABLES   *         RESTORE SAVED ENTRY POINT CONTENTS.                                    TABLES      1630     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 620    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES                                                                                    TABLES      1631     A     
 TABLES             SA1    RPVG                                                            TABLES      1632          I
          -CP139FC
 TABLES             SA1    RPVE                                                            CP139FC      116     A     
 TABLES             SA2    A1+B1                                                           TABLES      1633     A     
 TABLES             BX6    X1                                                              TABLES      1634     A     
 TABLES             LX7    X2                                                              TABLES      1635     A     
 TABLES             SA6    CDD                                                             TABLES      1636     A     
 TABLES             SA7    COD                                                             TABLES      1637     A     
 TABLES    #OS      IFEQ   .OS,0                                                           TABLES      1638          I
          -FEAT126A 
 TABLES    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A      96     A     
 TABLES             SA1    A2+2        (WILL RESTORE SYS= LATER)                           TABLES      1639     A     
 TABLES             SA2    A1+B1                                                           TABLES      1640     A     
 TABLES             BX6    X1                                                              TABLES      1641     A     
 TABLES             LX7    X2                                                              TABLES      1642     A     
 TABLES             SA6    =XWNB=                                                          TABLES      1643     A     
 TABLES             SA7    =XMSG=                                                          TABLES      1644     A     
 TABLES    #RM      IFEQ   CP#RM,0                                                         TABLES      1645     A     
 TABLES             SA1    A2+B1                                                           TABLES      1646     A     
 TABLES             BX6    X1                                                              TABLES      1647     A     
 TABLES             SA6    CIO=                                                            TABLES      1648     A     
 TABLES    #RM      ENDIF                                                                  TABLES      1649     A     
 TABLES    #OS      ENDIF                                                                  TABLES      1650     A     
 TABLES                                                                                    TABLES      1651     A     
 TABLES   *         REINSTATE THE ERROR CONDITON.                                          TABLES      1652     A     
 TABLES                                                                                    TABLES      1653     A     
 TABLES    #OS      IFEQ   .OS,0                                                           TABLES      1654          I
          -FEAT126A 
 TABLES    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A      97     A     
 TABLES             SX1    B1                                                              TABLES      1655     A     
 TABLES             LX1    35-0                                                            TABLES      1656     A     
 TABLES             SYSTEM RPV,,X1                                                         TABLES      1657     A     
 TABLES             SA1    RPVG+2      (X1) = SAVED (SYS=)                                 TABLES      1658          I
          -CP139FC
 TABLES             SA1    RPVE+2      (X1) = SAVED (SYS=)                                 CP139FC      117     A     
 TABLES             BX6    X1                                                              TABLES      1659     A     
 TABLES             SA6    =XSYS=      RESTORE PREVIOUS CONTENTS                           TABLES      1660     A     
 TABLES    +        EQ     *           WAIT FOR OP SYS TO PICK UP ERROR                    TABLES      1661     A     
 TABLES    #OS      ELSE                                                                   TABLES      1662     A     
 TABLES             SX6    =XFVLEN-1   (X6) = FILE VECTOR TABLE OFFSET                     TABLES      1663     A     
 TABLES    RPV10    SA2    RA.ARG+X6   (X2) = FIT ADDRESS FROM FILE VECTOR TABLE           TABLES      1664     A     
 TABLES             SA6    =XGT1       TEMP STORE OFFSET                                   TABLES      1665     A     
 TABLES             ZR     X2,RPV11    IF FILE DESELECTED                                  TABLES      1666     A     
 TABLES             RJ     FA=CLO      CLOSE FILE                                          TABLES      1667     A     
 TABLES    RPV11    SA1    =XGT1                                                           TABLES      1668     A     
 TABLES             SX6    X1-1        (X6) = OFFSET FOR NEXT FILE                         TABLES      1669     A     
 TABLES             PL     X6,RPV10    IF MORE FILES TO CLOSE                              TABLES      1670     A     
 TABLES             SA1    =XXJP                                                           FEAT155F     206     A     
 TABLES             RJ     =XDXP=      DUMP EXCHANGE PACKAGE                               FEAT155F     207     A     
 TABLES             ABORT              *** TEMPORARY UNTIL SCOPE 2.0 REPRIEVE              TABLES      1671     A     
 TABLES   *                            *** RESET METHOD IS AVAILABLE.                      TABLES      1672     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 621    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES    #OS      ENDIF                                                                  TABLES      1673     A     
 TABLES                                                                                    TABLES      1674     A     
 TABLES                                                                                    TABLES      1675     A     
 TABLES    RPVA     DIS    ,* LAST STATEMENT BEGAN AT LINE ........*                       TABLES      1676          I
          -FEAT126A 
 TABLES    RPVA     DIS    ,* LAST STATEMENT BEGAN AT ADDRESS*                             FEAT126A      98          I
          -CP139FC
 TABLES             BSSZ   1                                                               FEAT126A      99          I
          -CP139FC
 TABLES    RPVB     DIS    ,* ERROR AT 000000 IN XXXXXXX*                                  TABLES      1677          I
          -CP139FC
 TABLES    RPVC     DIS    ,* LAST OVERLAY LOADED - (0,0)*                                 TABLES      1678          I
          -CP139FC
 TABLES             VFD    42/4LRA+0,18/0                                                  TABLES      1679          I
          -CP139FC
 TABLES    RPVD     VFD    42/3LFTN,18/RA.ORG+1                                            TABLES      1680          I
          -CP139FC
 TABLES                                                                                    TABLES      1681          I
          -CP139FC
 TABLES                                                                                    TABLES      1682          I
          -CP139FC
 TABLES    #OS      IFEQ   .OS,0                                                           TABLES      1683          I
          -FEAT126A 
 TABLES    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A     100     A     
 TABLES    RPVE     BSS    0                                                               TABLES      1684          I
          -CP139FC
 TABLES    RPVA     BSS    0                                                               CP139FC      118     A     
 TABLES             ECHO   2,CIOCODE=(4B,14B,104B,120B,144B,160B)                          TABLES      1685     A     
 TABLES             POS    60-CIOCODE_S-2                                                  TABLES      1686     A     
 TABLES             VFD    1/1                                                             TABLES      1687     A     
 TABLES             POS    0                                                               CP139FC      119     A     
 TABLES             BSS    0                                                               TABLES      1688     A     
 TABLES    RPVF     DATA   0                                                               TABLES      1689          I
          -CP139FC
 TABLES    #OS      ENDIF                                                                  TABLES      1690          I
          -CP139FC
 TABLES                                                                                    TABLES      1691          I
          -CP139FC
 TABLES    RPVG     BSSZ   2           TO SAVE (CDD) AND (COD)                             TABLES      1692          I
          -CP139FC
 TABLES    #OS      IFEQ   .OS,0                                                           TABLES      1693          I
          -FEAT126A 
 TABLES    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A     101          I
          -CP139FC
 TABLES             BSSZ   3           TO SAVE (SYS=), (WNB=) AND (MSG=)                   TABLES      1694          I
          -CP139FC
 TABLES    #RM      IFEQ   CP#RM,0                                                         TABLES      1695          I
          -CP139FC
 TABLES             BSSZ   1           TO SAVE (CIO=)                                      TABLES      1696          I
          -CP139FC
 TABLES    #RM      ENDIF                                                                  TABLES      1697          I
          -CP139FC
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 622    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES    #OS      ENDIF                                                                  TABLES      1698     A     
 TABLES    FRA      SPACE  4,8                                                             CP139FC      120     A     
 TABLES   **        FRA - FIND RELATIVE ADDRESS.                                           CP139FC      121     A     
 TABLES   *                                                                                CP139FC      122     A     
 TABLES   *                GIVEN AN ABSOLUTE ADDRESS, *FRA* FINDS THE ROUTINE              CP139FC      123     A     
 TABLES   *         NAME AND RELATIVE ADDRESS BY SEARCHING THE TABLES INSTALLED            CP139FC      124     A     
 TABLES   *         ORIGINALLY FOR *RPV* PROCESSING.                                       CP139FC      125     A     
 TABLES   *                                                                                CP139FC      126     A     
 TABLES   *                *FRA* DOES NOT USE A RETURN JUMP CALLING SEQUENCE               CP139FC      127     A     
 TABLES   *         BECAUSE IT IS LOCATED IN CODE SPACE CHECKSUMMED BY *RPV*.              CP139FC      128     A     
 TABLES   *                                                                                CP139FC      129     A     
 TABLES   *                                                                                CP139FC      130     A     
 TABLES   *         ENTRY  (X1) = ADDRESS RELATIVE TO RA+0                                 CP139FC      131     A     
 TABLES   *                (B7) = EXIT ADDRESS                                             CP139FC      132     A     
 TABLES   *                                                                                CP139FC      133     A     
 TABLES   *         EXIT   TO (B7), WITH ...                                               CP139FC      134     A     
 TABLES   *                (X6) = RELATIVE ADDRESS, DPC, *NNNNNN IN *                      CP139FC      135     A     
 TABLES   *                (X7) = ROUTINE NAME, DPC, L FORMAT                              CP139FC      136     A     
 TABLES   *                                                                                CP139FC      137     A     
 TABLES   *         USES   X - 0, 1, 2, 3, 6, 7                                            CP139FC      138     A     
 TABLES   *                A - 2                                                           CP139FC      139     A     
 TABLES   *                B - 2, 3                                                        CP139FC      140     A     
 TABLES   *                                                                                CP139FC      141     A     
 TABLES   *         CALLS  COD                                                             CP139FC      142     A     
 TABLES                                                                                    CP139FC      143     A     
 TABLES                                                                                    CP139FC      144     A     
 TABLES             QUAL   FRA                                                             CP139FC      145     A     
 TABLES                                                                                    CP139FC      146     A     
 TABLES    FRA=     SA2    =XFWA1.0                                                        CP139FC      147     A     
 TABLES             SB2    X1          (B2) = ADDRESS RELATIVE TO RA+0                     CP139FC      148     A     
 TABLES                                                                                    CP139FC      149     A     
 TABLES   *         SEARCH ADDRESS TABLE.                                                  CP139FC      150     A     
 TABLES                                                                                    CP139FC      151     A     
 TABLES    FRA2     BX6    X2                                                              CP139FC      152     A     
 TABLES             SA2    A2+1        (X2) = NEXT TABLE ENTRY                             CP139FC      153     A     
 TABLES             SB3    X2                                                              CP139FC      154     A     
 TABLES             ZR     X2,FRA3     IF END OF TABLE                                     CP139FC      155     A     
 TABLES             GE     B2,B3,FRA2  IF ABS ADDR BEYOND CURRENT ENTRY                    CP139FC      156     A     
 TABLES                                                                                    CP139FC      157     A     
 TABLES   *         EXTRACT ROUTINE NAME AND FORMAT RELATIVE ADDRESS.                      CP139FC      158     A     
 TABLES                                                                                    CP139FC      159     A     
 TABLES    FRA3     MX7    42                                                              CP139FC      160     A     
 TABLES             SX3    X6          (X3) = ROUTINE FWA                                  CP139FC      161     A     
 TABLES             BX7    X7*X6       (X7) = ROUTINE NAME, 0L FORMAT                      CP139FC      162     A     
 TABLES             IX1    X1-X3       (X1) = ADDRESS RELATIVE TO ROUTINE ORIGIN           CP139FC      163     A     
 TABLES             SB3    B7+         SAVE (B7) = RETURN ADDRESS                          CP139FC      164     A     
 TABLES             RJ     COD         CONVERT TO OCTAL DISPLAY CODE                       CP139FC      165     A     
 TABLES             SB7    B3                                                              CP139FC      166     A     
 TABLES             LX2    CHAR        (X2) = ADDRESS (-H- FMT)                            CP139FC      167     A     
 TABLES             SX3    2R  &2RIN                                                       CP139FC      168     A     
 TABLES             LX3    6                                                               CP139FC      169     A     
 TABLES             BX6    X2-X3       (X6) = RELATIVE ADDRESS, *NNNNNN IN *               CP139FC      170     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 623    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES             JP     B7          EXIT ...                                            CP139FC      171     A     
 TABLES             SPACE  4                                                               CP139FC      172     A     
 TABLES             QUAL   *                                                               CP139FC      173     A     
 TABLES                                                                                    CP139FC      174     A     
 TABLES    FRA=     =      /FRA/FRA=                                                       CP139FC      175     A     
 TABLES             ENTRY  FRA=                                                            CP139FC      176     A     
 TABLES    RPV      SPACE  4,8                                                             CP139FC      177     A     
 TABLES             BSS    0                                                               CP139FC      178     A     
 TABLES    LWARPV   =      *-1         *** END OF CHECKSUMMED REPRIEVE CODE ***            CP139FC      179     A     
 TABLES                                                                                    TABLES      1699     A     
 TABLES                                                                                    TABLES      1700     A     
 TABLES    LWARPV   BSS    0                                                               TABLES      1701          I
          -CP139FC
 TABLES    RPVB     DIS    ,* LAST STATEMENT BEGAN AT LINE ........*                       CP139FC      180     A     
 TABLES    RPVC     DIS    ,* ERROR AT 000000 IN XXXXXXX*                                  CP139FC      181     A     
 TABLES    RPVD     DIS    ,* LAST OVERLAY LOADED - (0,0)*                                 CP139FC      182     A     
 TABLES                                                                                    CP139FC      183     A     
 TABLES    RPVE     BSSZ   2           TO SAVE (CDD) AND (COD)                             CP139FC      184     A     
 TABLES    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      CP139FC      185     A     
 TABLES             BSSZ   3           TO SAVE (SYS=), (WNB=) AND (MSG=)                   CP139FC      186     A     
 TABLES    #RM      IFEQ   CP#RM,0                                                         CP139FC      187     A     
 TABLES             BSSZ   1           TO SAVE (CIO=)                                      CP139FC      188     A     
 TABLES    RPVF     BSSZ   1           COUNT-1 OF FILES TO FLUSH                           CP139FC      189     A     
 TABLES    #RM      ENDIF                                                                  CP139FC      190     A     
 TABLES    #OS      ENDIF                                                                  CP139FC      191     A     
 TABLES    RPV      SPACE  4,8                                                             CP139FC      192     A     
 TABLES    .TEST    ENDIF                                                                  TABLES      1702     A     
 TABLES    SFN      SPACE  4,12                                                            FEAT155G      66     A     
 TABLES   **        SFN -  SPACE FILL NAME.                                                FEAT155G      67     A     
 TABLES   *         AUTHOR (SOMEONE) AT PURDUE.                                            FEAT155G      68     A     
 TABLES   *         ENTRY  (X1) NAME LEFT JUSTIFIED 0 FILLED. (0L FORMAT)                  FEAT155G      69     A     
 TABLES   *         EXIT   (X6) 10H FORMAT OF (X1)                                         FEAT155G      70     A     
 TABLES   *         USES   A2  X3,X6,X7  B2                                                FEAT155G      71     A     
 TABLES                                                                                    FEAT155G      72     A     
 TABLES                                                                                    FEAT155G      73     A     
 TABLES    SFN      SUBR               ENTRY/EXIT...                                       FEAT155G      74     A     
 TABLES             SX7    B1                                                              FEAT155G      75     A     
 TABLES             SA2    =40404040404040404040B                                          FEAT155G      76     A     
 TABLES             IX7    X1-X7                                                           FEAT155G      77     A     
 TABLES             BX3    -X7+X1                                                          FEAT155G      78     A     
 TABLES             SB2    60-5                                                            FEAT155G      79     A     
 TABLES             BX7    X2*X3                                                           FEAT155G      80     A     
 TABLES             SA2    =1H                                                             FEAT155G      81     A     
 TABLES             LX3    B2,X7                                                           FEAT155G      82     A     
 TABLES             IX3    X7-X3                                                           FEAT155G      83     A     
 TABLES             IX7    X7+X3                                                           FEAT155G      84     A     
 TABLES             BX2    -X7*X2                                                          FEAT155G      85     A     
 TABLES             IX6    X1+X2                                                           FEAT155G      86     A     
 TABLES             LX6    54                                                              FEAT155G      87     A     
 TABLES             EQ     EXIT.                                                           FEAT155G      88     A     
 TABLES    WOD      SPACE  4,12                                                            FEAT155G      89     A     
 TABLES   **        WOD -  CONVERT A WORD TO OCTAL DISPLAY CODE                            FEAT155G      90     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 624    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES   *         AUTHOR CHRIS WILLIS, MINN.                                             FEAT155G      91     A     
 TABLES   *         ENTRY  (X1) = WORD TO CONVERT.                                         FEAT155G      92     A     
 TABLES   *         EXIT   (X6,X7) = CONVERTED WORD.                                       FEAT155G      93     A     
 TABLES   *         USES   A2,A3,A4,A5  X0,X1,X6,X7                                        FEAT155G      94     A     
 TABLES                                                                                    FEAT155G      95     A     
 TABLES             IFNE   TEST,,1                                                         FEAT155G      96     A     
 TABLES             ENTRY  WOD                                                             FEAT155G      97     A     
 TABLES                                                                                    FEAT155G      98     A     
 TABLES    WOD      SUBR               ENTRY/EXIT...                                       FEAT155G      99     A     
 TABLES                                                                                    FEAT155G     100     A     
 TABLES   *         (X1) =             ABCDE FGHIJ KLMNO PQRST                             FEAT155G     101     A     
 TABLES                                                                                    FEAT155G     102     A     
 TABLES             SA2    WODA        7.... 7.... 7.... 7....                             FEAT155G     103     A     
 TABLES             BX7    X2*X1       A.... F.... K.... P....                             FEAT155G     104     A     
 TABLES             LX1    3           BCDEF GHIJK LMNOP QRSTA                             FEAT155G     105     A     
 TABLES             BX6    X2*X1       B.... G.... L.... Q....                             FEAT155G     106     A     
 TABLES             LX1    3           CDEFG HIJKL MNOPQ RSTAB                             FEAT155G     107     A     
 TABLES             LX7    9*3         .K... .P... .A... .F...                             FEAT155G     108     A     
 TABLES             BX0    X2*X1       C.... H.... M.... R....                             FEAT155G     109     A     
 TABLES             LX6    7*3         ...L. ...Q. ...B. ...G.                             FEAT155G     110     A     
 TABLES             LX1    3           DEFGH IJKLM NOPQR STABC                             FEAT155G     111     A     
 TABLES             IX7    X6+X7       .K.L. .P.Q. .A.B. .F.G.                             FEAT155G     112     A     
 TABLES             BX5    X2*X1       D.... I.... N.... S....                             FEAT155G     113     A     
 TABLES             LX1    3           EFGHI JKLMN OPQRS TABCD                             FEAT155G     114     A     
 TABLES             LX0    5*3         H.... M.... R.... C....                             FEAT155G     115     A     
 TABLES             BX6    X2*X1       E.... J.... O.... T....                             FEAT155G     116     A     
 TABLES             IX7    X7+X0       HK.L. MP.Q. RA.B. CF.G.                             FEAT155G     117     A     
 TABLES             LX5    3*3         ..I.. ..N.. ..S.. ..D..                             FEAT155G     118     A     
 TABLES             LX6    3           ....J ....O ....T ....E                             FEAT155G     119     A     
 TABLES             IX7    X7+X6       HK.LJ MP.QO RA.BT CF.GE                             FEAT155G     120     A     
 TABLES             SA4    A2+B1       .7.7. 7.7.7 ..... .....                             FEAT155G     121     A     
 TABLES             SA3    A4+B1       ..... .7.7. 7.7.7 .....                             FEAT155G     122     A     
 TABLES             BX7    X7+X5       HKILJ MPNQO RASBT CFDGE                             FEAT155G     123     A     
 TABLES             BX2    X7*X4       .K.L. M.N.O ..... .....                             FEAT155G     124     A     
 TABLES             SA5    A3+B1       00000 00000 00000 00000                             FEAT155G     125     A     
 TABLES             BX1    X7*X3       ..... .P.Q. R.S.T .....                             FEAT155G     126     A     
 TABLES             LX7    10*3        RASBT CFDGE HKILJ MPNQO                             FEAT155G     127     A     
 TABLES             IX2    X5+X2       .K.L. M.N.O 00000 00000                             FEAT155G     128     A     
 TABLES             BX0    X7*X4       .A.B. C.D.E ..... .....                             FEAT155G     129     A     
 TABLES             IX0    X0+X5       .A.B. C.D.E 00000 00000                             FEAT155G     130     A     
 TABLES             LX1    15*3        ..... ..... .P.Q. R.S.T                             FEAT155G     131     A     
 TABLES             BX3    X7*X3       ..... .F.G. H.I.J .....                             FEAT155G     132     A     
 TABLES             IX7    X1+X2       .K.L. M.N.O .P.Q. R.S.T                             FEAT155G     133     A     
 TABLES             LX3    15*3        ..... ..... .F.G. H.I.J                             FEAT155G     134     A     
 TABLES             IX6    X0+X3       .A.B. C.D.E .F.G. H.I.J                             FEAT155G     135     A     
 TABLES             EQ     EXIT.                                                           FEAT155G     136     A     
 TABLES                                                                                    FEAT155G     137     A     
 TABLES    WODA     CON    70000700007000070000B                                           FEAT155G     138     A     
 TABLES             CON    07070707070000000000B                                           FEAT155G     139     A     
 TABLES             CON    00000070707070700000B                                           FEAT155G     140     A     
 TABLES             CON    10H0000000000                                                   FEAT155G     141     A     
 TABLES             LIST   D                                                               TABLES      1703     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 625    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TABLES  
  
 TABLES             END                                                                    TABLES      1704     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - TABLES  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          TABLES                    1704      1469
          FCC0498                      1         1
          FCC0583                      4         3
          FCC0616                     18        17
          FEAT126A                    23         8
          FCC0709                      3         3
          FEAT126B                    13        13
          FEAT126C                     1         1
          FCC0744                      2         2
          FCC0780                      3         3
          FCC0787                      7         7
          FCC0813                     24        22
          FEAT155D                     2         2
          FEAT155E                     8         8
          FEAT155G                   115       112
          FEAT155H                    19        19
          CP139FC                     99        99
          FCC1097                      2         2
          FEAT155F                    68        68
          FCC0966                      2         2
          FCC1328X                    42        42
          FCC1495X                     1         1
          FCC1495AX                    1         1
          FCC1558X                     1         1
          F162FTNA                     3         3
          F66FCC                      12        12
          FCC2194                      4         4
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS   *DECK ERRORS                                                                     ERRORS         1     A     
 ERRORS             IDENT  ERRORS                                                          ERRORS         2     A     
 ERRORS    ERR      SECT   (E  R  R  O  R    PROCESSING)                                   ERRORS         3          I
          -FCC1410
 ERRORS    ERRORS   SECT   (DIAGNOSTIC PROCESSING.)                                        FCC1410        4     A     
 ERRORS             SST    A,B,C,F,G,L,K,Z,EXIT.                                           ERRORS         4     A     
 ERRORS             NOREF  A,B,C,F,G,L,K,Z,EXIT.                                           ERRORS         5     A     
 ERRORS                                                                                    ERRORS         6     A     
 ERRORS    B=ERROR  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             ERRORS         7     A     
 ERRORS                                                                                    ERRORS         8     A     
 ERRORS             ENTRY  ANSI=,ANSI.SW                                                   ERRORS         9     A     
 ERRORS             ENTRY  CER,CLASS,CON.DPC                                               ERRORS        10          I
          -FCC0597
 ERRORS             ENTRY  CLASS,CON.DPC                                                   FCC0597        6     A     
 ERRORS             ENTRY  DO.DPC                                                          ERRORS        11     A     
 ERRORS             ENTRY  ERR=D,ERR=F,E.DM2A,E.DM5,E.MD                                   ERRORS        12          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 626    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
          -FEAT126A 
 ERRORS             ENTRY  ERR=F,E.DM2A,E.DM5,E.MD                                         FEAT126A     102     A     
 ERRORS             ENTRY  FILL.,FILL.2,FILL.3                                             ERRORS        13     A     
 ERRORS             ENTRY  L.CL                                                            ERRORS        14     A     
 ERRORS             ENTRY  OSE                                                             ERRORS        15     A     
 ERRORS             ENTRY  PWE                                                             ERRORS        16     A     
 ERRORS             ENTRY  SERRORS,STNTD,STNTND                                            ERRORS        17          I
          -FEAT126C 
 ERRORS             ENTRY  STNTD,STNTND                                                    FEAT126C      77     A     
 ERRORS             ENTRY  UEC                                                             ERRORS        18     A     
 ERRORS                                                                                    ERRORS        19     A     
 ERRORS   *         IN FTN                                                                 ERRORS        20     A     
 ERRORS             EXT    SAVLINE,LOP=F,LOP=N,LOP=W,LOP=X,LOP=1                           ERRORS        21     A     
 ERRORS                                                                                    ERRORS        22     A     
 ERRORS   *         IN TABLES                                                              ERRORS        23     A     
 ERRORS             EXT    CHARMAP,DEFERL,ERRORS,BINOUT,TS.SYM                             ERRORS        24          I
          -FEAT126B 
 ERRORS             EXT    BINOUT,CHARMAP,DEFERL,ERRORS,TS.SYM,T.DLBUF                     FEAT126B      28          I
          -FEAT155E 
 ERRORS             EXT    BINOUT,CDD,CHARMAP,DEFERL,ERRORS,TS.SYM,T.DLBUF                 FEAT155E      98          I
          -FCC1328X 
 ERRORS             EXT    BINOUT,CDD,CHARMAP,ERRORS,TS.SYM,T.DLBUF                        FCC1328X      82     A     
 ERRORS                                                                                    ERRORS        25     A     
 ERRORS   *         IN MAIN                                                                ERRORS        26     A     
 ERRORS             EXT    LSL,WOF                                                         ERRORS        27     A     
 ERRORS                                                                                    ERRORS        28     A     
 ERRORS   *         IN LEX                                                                 ERRORS        29     A     
 ERRORS             EXT    S.ERR,TSF                                                       ERRORS        30     A     
 ERRORS                                                                                    ERRORS        31     A     
 ERRORS   *         IN NUM                                                                 ERRORS        32     A     
 ERRORS             EXT    DLAB,DODO,LABL,ISN60                                            ERRORS        33     A     
 ERRORS                                                                                    ERRORS        34     A     
 ERRORS   *         IN REG                                                                 ERRORS        35     A     
 ERRORS             EXT    CRJ                                                             ERRORS        36     A     
 ERRORS                                                                                    ERRORS        37     A     
 ERRORS   *         IN GEN                                                                 ERRORS        38     A     
 ERRORS             EXT    DIMSYM                                                          ERRORS        39     A     
 ERRORS                                                                                    ERRORS        40     A     
 ERRORS   *         IN INIT                                                                ERRORS        41     A     
 ERRORS             EXT    SAVE                                                            ERRORS        42     A     
 ERRORS             EJECT                                                                  ERRORS        43     A     
 ERRORS   **        CLASS - MACRO TO DEFINE AND NAME *CLASS* BITS.                         ERRORS        44     A     
 ERRORS   *                                                                                ERRORS        45     A     
 ERRORS   * SYM     CLASS  NAM                                                             ERRORS        46     A     
 ERRORS                                                                                    ERRORS        47     A     
 ERRORS   *         *SYM*  = NAME OF FIELD                                                 ERRORS        48     A     
 ERRORS   *         *NAM*  = EXTERNAL NAME (FOR ERROR MESSAGES)                            ERRORS        49     A     
 ERRORS                                                                                    ERRORS        50     A     
 ERRORS                                                                                    ERRORS        51     A     
 ERRORS             MACRO  CLASS,SYM,NAM                                                   ERRORS        52     A     
 ERRORS    N.CLASS  SET    N.CLASS+1                                                       ERRORS        53     A     
 ERRORS    CLASS    RMT                                                                    ERRORS        54     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 627    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS             ERRLIT NAM                                                             ERRORS        55     A     
 ERRORS    CLASS    RMT                                                                    ERRORS        56     A     
 ERRORS    CLASS    ENDM                                                                   ERRORS        57     A     
 ERRORS                                                                                    ERRORS        58     A     
 ERRORS    N.CLASS  SET    0                                                               ERRORS        59     A     
 ERRORS    SIZES    SPACE  4,8                                                             ERRORS        60     A     
 ERRORS   **        CLASS BITS --                                                          ERRORS        61     A     
 ERRORS   *                                                                                ERRORS        62     A     
 ERRORS   * RP  -   VAR   COMM  EQUIV  NLST  ARY  LEV  EXT  ENT  FP  DEF                   ERRORS        63     A     
 ERRORS   *   NVAR  -     INL   ASF   SUB   BEF   FUN   EXT   ENT                          ERRORS        64     A     
 ERRORS   *                                                                                ERRORS        65     A     
 ERRORS   *         NOTE   ANY CHANGES TO EITHER OF THE FOLLOWING CLASS BIT                ERRORS        66     A     
 ERRORS   *                DEFINITIONS MAY ALSO REQUIRE CHANGES TO --                      ERRORS        67     A     
 ERRORS   *                1.  WVV = VARIABLE MAP.                                         ERRORS        68     A     
 ERRORS   *                2.  ERRLIT SECTION (SEE *DICT* ET. SEQ.)                        ERRORS        69     A     
 ERRORS   ****      2.     CLASS - CLASS OF *VARIABLES* IS DEFINED AS FOLLOWS --           ERRORS        70     A     
 ERRORS                                                                                    ERRORS        71     A     
 ERRORS                                                                                    ERRORS        72     A     
 ERRORS                                                                                    ERRORS        73     A     
 ERRORS    DEF      CLASS  DEFINED     IS ASSIGNED A VALUE.                                ERRORS        74     A     
 ERRORS    FP       CLASS  DUMMY-ARG   IS A FORMAL PARAMETER,                              ERRORS        75     A     
 ERRORS    ENT      CLASS  ENTRY-PT    IS AN ENTRY POINT,                                  ERRORS        76     A     
 ERRORS    EXT      CLASS  EXTERNAL    IS AN EXTERNAL.                                     ERRORS        77     A     
 ERRORS    ECS      CLASS  ECS/LCM     IS IN ECS/LCM (LEVEL 3)                             ERRORS        78     A     
 ERRORS    ARY      CLASS  ARRAY       IS DIMENSIONED,                                     ERRORS        79     A     
 ERRORS    NLST     CLASS  NAMELIST    IS A NAMELIST GROUP NAME,                           ERRORS        80     A     
 ERRORS    EQUIV    CLASS  EQUIV.      IS A NON-BASE MEMBER OF AN EQUIV CLASS,             ERRORS        81     A     
 ERRORS    COMM     CLASS  COMMON      IS IN COMMON,                                       ERRORS        82     A     
 ERRORS    VAR      CLASS  VARIABLE    IS A VARIABLE.                                      ERRORS        83     A     
 ERRORS    NVAR     CLASS  NOT-VAR     IS NOT A VARIABLE.                                  ERRORS        84     A     
 ERRORS    RP       CLASS  RETURNS     IS A RETURNS PARAMETER.                             ERRORS        85     A     
 ERRORS    EST      CLASS  EXT-STMT    APPEARS IN EXTERNAL STATEMENT                       FCC1716X       8     A     
 ERRORS   ****                                                                             ERRORS        86     A     
 ERRORS             ERRPL  N.CLASS-L.CLASS       NOT ENOUGH ROOM                           ERRORS        87     A     
 ERRORS    L.CL     EQU    N.CLASS     LENGTH OF *VARIABLE* CLASS BITS                     ERRORS        88     A     
 ERRORS    N.CLASS  SET    P.ENT-P.CLASS     STARTING POSITION FOR CLASS2                  ERRORS        89     A     
 ERRORS                                                                                    ERRORS        90     A     
 ERRORS                                                                                    ERRORS        91     A     
 ERRORS   **** 3.   CLASS2 - THE FOLLOWING DEFINE THE CLASS OF A SPECIAL FUNCTION          ERRORS        92     A     
 ERRORS   *                  SPECIAL = ONE OF THE BELOW.                                   ERRORS        93     A     
 ERRORS                                                                                    ERRORS        94     A     
 ERRORS                                                                                    ERRORS        95     A     
 ERRORS                                                                                    ERRORS        96     A     
 ERRORS    ENT=     CLASS  ENTRY PT.   IS AN ENTRY POINT.   (FAKE)                         ERRORS        97     A     
 ERRORS    EXT=     CLASS  EXTERNAL.   IS AN EXTERNAL.      (FAKE)                         ERRORS        98     A     
 ERRORS    FUN      CLASS  FUNCTION    IS A FUNCTION (SET IF INL,ASF,EXT)                  ERRORS        99     A     
 ERRORS    BEF      CLASS  B.E.F.      IS A BASIC EXTERNAL FUNCTION                        ERRORS       100     A     
 ERRORS    SUB      CLASS  SUBROUTINE  IS A SUBROUTINE.                                    ERRORS       101     A     
 ERRORS    ASF      CLASS  STAT-FUNC     IS A STATEMENT FUNCTION,                          ERRORS       102     A     
 ERRORS    INLINE   CLASS  INTRINSIC     IS AN INTRINSIC FUNCTION.                         ERRORS       103     A     
 ERRORS   ****                                                                             ERRORS       104     A     
 ERRORS    INTRIN   SPACE  4,20                                                            ERRORS       105     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 628    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS             POPMAC CLASS                                                           ERRORS       106     A     
 ERRORS   ****      ERRSKEL - ERROR MESSAGE SKELETON TABLE FORMAT.                         ERRORS       107     A     
 ERRORS   *                                                                                ERRORS       108     A     
 ERRORS   *         IN ORDER TO REDUCE CORE REQUIREMENTS AND STILL PRINT FULL-LINE         ERRORS       109     A     
 ERRORS   *         NARRATIVE DIAGNOSTICS BENEATH THE STATEMENT, ERROR MESSAGE             ERRORS       110     A     
 ERRORS   *         TEXT IS KEPT IN A SKELETAL FORM, WHEREIN EACH WORD IS                  ERRORS       111     A     
 ERRORS   *         REPRESENTED BY AN ORDINAL INTO A DICTIONARY.                           ERRORS       112     A     
 ERRORS                                                                                    ERRORS       113     A     
 ERRORS                                                                                    ERRORS       114     A     
 ERRORS    N.ER1ST  EQU    4                                                               ERRORS       115     A     
 ERRORS    N.ERREST EQU    6                                                               ERRORS       116     A     
 ERRORS    L.ERWORD EQU    9           LENGTH OF EACH ORDINAL BYTE                         ERRORS       117     A     
 ERRORS    ERTYPE   DEFINE 19,5        ERROR TYPE INDICATOR                                ERRORS       118     A     
 ERRORS    ERMORE   DEFINE L.ERTYPE    CONTINUATION FLAG, RELATIVE TO LO-BYTE              ERRORS       119     A     
 ERRORS    ERXIT    DEFINE 0,18        EXIT ADDRESS                                        ERRORS       120     A     
 ERRORS   ****                                                                             ERRORS       121     A     
 ERRORS    L=ERWORD EQU    L.ERWORD    REDUCE GARBAGE CONTENT OF REF MAP                   ERRORS       122     A     
 ERRORS    L=ERTYPE EQU    L.ERTYPE                                                        ERRORS       123     A     
 ERRORS    P=ERTYPE EQU    P.ERTYPE+L.ERTYPE                                               ERRORS       124     A     
 ERRORS    L=ERMORE EQU    L.ERTYPE                                                        ERRORS       125     A     
 ERRORS    L=ERXIT  EQU    L.ERXIT                                                         ERRORS       126     A     
 ERRORS             NOREF  L=ERWORD,L=ERTYPE,P=ERTYPE,L=ERMORE,L=ERXIT                     ERRORS       127     A     
 ERRORS    ERFMT    SPACE  4,30                                                            ERRORS       128     A     
 ERRORS   **               THE N-WORD FORMAT IS --                                         ERRORS       129     A     
 ERRORS   *                                                                                ERRORS       130     A     
 ERRORS   **T  FIRST    9/ERWD1,9/ERWD2,9/ERWD3,9/ERWD4,5/ERTYP,1/M,18/ERXIT               ERRORS       131     A     
 ERRORS   **T  REST     9/ERWD1,9/ERWD2,9/ERWD3,9/ERWD4,9/ERWD5,9/ERWD6,5/0,1/M            ERRORS       132     A     
 ERRORS   *                                                                                ERRORS       133     A     
 ERRORS   *         ERWD(I) = DICTIONARY ORDINAL OF THE TEXT WORD.  A ZERO ORDINAL         ERRORS       134     A     
 ERRORS   *                INDICATES THE END OF THE MESSAGE.                               ERRORS       135     A     
 ERRORS   *         ERTYPE = ORDINAL OF THE ERROR-TYPE-SELECTION SWITCH.  DEFINED          ERRORS       136     A     
 ERRORS   *                BY THE *ERRTYP* MACRO, AND LINKED TO BY *ERROR* MACRO.          ERRORS       137     A     
 ERRORS   *                *LLN* WILL LIST THIS ERROR IF THE CELL POINTED TO BY            ERRORS       138     A     
 ERRORS   *                THE INDICATED SWITCH IS NEGATIVE.                               ERRORS       139     A     
 ERRORS   *         M    = IF SET, MORE SKELETON WORDS FOLLOW.                             ERRORS       140     A     
 ERRORS   *                IF CLEAR, THE MESSAGE IS OVER.                                  ERRORS       141     A     
 ERRORS   *         ERXIT = IF POSITIVE, ADDRESS TO RETURN TO AFTER PROCESSING.            ERRORS       142     A     
 ERRORS   *                 IF NEGATIVE, EXIT IS TO *PWE1*, AND (ERXIT)-4S15 IS            ERRORS       143     A     
 ERRORS   *                THE SPECIAL FORMATTING ADDRESS.                                 ERRORS       144     A     
 ERRORS   *                                                                                ERRORS       145     A     
 ERRORS   *         THE LAST CHARACTER OF EACH WORD IN THE DICTIONARY INDICATES            ERRORS       146     A     
 ERRORS   *         HOW MANY CHARACTERS ARE IN THAT WORD.  THIS IS DONE SO *LLN*           ERRORS       147     A     
 ERRORS   *         DOES NOT HAVE TO LOOP ON EACH CHARACTER.  IF THE WORD CONTAINS         ERRORS       148     A     
 ERRORS   *         TEN CHARACTERS, THE LAST CHARACTER IS UNMODIFIED.  IF THE WORD         ERRORS       149     A     
 ERRORS   *         CONTAINS FEWER THAN TEN CHARACTERS, THE LAST CHARACTER IS SET          ERRORS       150     A     
 ERRORS   *         = DT.BIAS + (LENGTH OF WORD).  THE *ERROR* AND *ERRLIT* MACROS         ERRORS       151     A     
 ERRORS   *         CREATE SUCH WORDS, AND PUT THEM IN THE LITERAL POOL.  THUS,            ERRORS       152     A     
 ERRORS   *         THE ASSEMBLER ELIMINATES DUPLICATES AUTOMATICALLY.                     ERRORS       153     A     
 ERRORS   *                                                                                ERRORS       154     A     
 ERRORS   *         IF THE ERROR MESSAGE WORD IS .GT. 10 CHARACTERS THE DICTIONARY         FEAT126A     103     A     
 ERRORS   *         WORD WILL CONTAIN 9 CHARACTERS FOLLOWED BY A COLON AND THE             FEAT126A     104     A     
 ERRORS   *         MESSAGE WORD WILL BE CONTINUED INTO THE NEXT DICTIONARY WORD.          FEAT126A     105     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 629    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS    ERROR    SPACE  4,15                                                            ERRORS       155     A     
 ERRORS   **        ERROR - MACRO TO DEFINE ERROR MESSAGES.                                ERRORS       156     A     
 ERRORS   *                                                                                ERRORS       157     A     
 ERRORS   *         ALL ERROR MESSAGES MUST BE DEFINED BY THIS MACRO.                      ERRORS       158     A     
 ERRORS   *         TRANSLATES THE DIAGNOSTIC TEXT INTO THE FORM DISCUSSED ABOVE,          ERRORS       159     A     
 ERRORS   *         WHILE GENERATING A DICTIONARY OF LITERALS.                             ERRORS       160     A     
 ERRORS   *                                                                                ERRORS       161     A     
 ERRORS   *                                                                                ERRORS       162     A     
 ERRORS   * LOC     ERROR  TYPE,EXIT,(TEXT)                                                ERRORS       163     A     
 ERRORS   *                                                                                ERRORS       164     A     
 ERRORS   *         TYPE   =  ONE OR TWO CHARACTER ERROR-TYPE INDICATOR.                   ERRORS       165     A     
 ERRORS   *                1.  FIRST CHARACTER DESCRIBES THE SEVERITY OF THE               ERRORS       166     A     
 ERRORS   *                    ERROR -- VALID CHARACTERS ARE DEFINED BY *ERRTYP*           ERRORS       167     A     
 ERRORS   *                    MACRO, Q.V.                                                 ERRORS       168     A     
 ERRORS   *                2.  SECOND CHARACTER SELECTS SPECIAL FILL. FORMATTING           ERRORS       169     A     
 ERRORS   *                    BY THE ERROR PROCESSOR.  SEE *LLN* FOR DETAILS.             ERRORS       170     A     
 ERRORS   *                                                                                ERRORS       171     A     
 ERRORS   *         EXIT   =  ADDRESS TO RETURN TO AFTER PRINTING THE DIAGNOSTIC.          ERRORS       172     A     
 ERRORS   *                IF IT IS "*" (STAR, 46B DPC), THEN CONTROL RETURNS TO           ERRORS       173     A     
 ERRORS   *                CALLER, AND ERROR MUST BE REFERENCED BY ANSI, FATAL,            ERRORS       174     A     
 ERRORS   *                NOTE, OR WARN MACRO.                                            ERRORS       175     A     
 ERRORS   *                OTHERWISE, IT IS SIMPLY THE ADDRESS TO RETURN TO AFTER          ERRORS       176     A     
 ERRORS   *                PROCESSING THE ERROR.                                           ERRORS       177     A     
 ERRORS   *                                                                                ERRORS       178     A     
 ERRORS   *         TEXT   =  FROM ONE TO 16 WORDS OF TEXT.  WORDS ARE SEPARATED           ERRORS       179     A     
 ERRORS   *                BY BLANKS.  NO WORD MAY CONTAIN A NEGATION (^ 76B), OR          ERRORS       180     A     
 ERRORS   *                SEMI-COLON (; 77B).  THE TENTH CHARACTER OF A WORD MAY          ERRORS       181     A     
 ERRORS   *                NOT BE A CHARACTER WITH DPC \ 65B.                              ERRORS       182          I
          -FEAT126A 
 ERRORS   *                NOT BE A CHARACTER WITH DPC .GE.65B NOR MAY IT BE A             FEAT126A     106     A     
 ERRORS   *                COLON.                                                          FEAT126A     107     A     
 ERRORS                                                                                    ERRORS       183     A     
 ERRORS                                                                                    ERRORS       184     A     
 ERRORS             MACRO  ERROR,LOC,TYPE,EXIT,MSG                                         ERRORS       185     A     
 ERRORS   *                                                                                ERRORS       186     A     
 ERRORS   *                DETERMINE (A) SEVERITY, AND (B) SPECIAL FORMATTING.             ERRORS       187          I
          -FEAT126C 
 ERRORS   *                DETERMINE (A)  SPECIAL FORMATTING, AND (B) SEVERITY.            FEAT126C      78     A     
 ERRORS   *                                                                                ERRORS       188     A     
 ERRORS    A        MICRO  2,1,/TYPE/                                                      ERRORS       189     A     
 ERRORS    B        MICRO  1,1, TYPE                                                       ERRORS       190     A     
 ERRORS   *                                                                                ERRORS       191     A     
 ERRORS   *                SET UP (LOC) CALLING STYLE, AND (X) EXIT ADDRESS.               ERRORS       192     A     
 ERRORS   *                                                                                ERRORS       193     A     
 ERRORS             ENTRY  LOC                                                             ERRORS       194     A     
 ERRORS   .3        IFC    EQ, EXIT *                                                      ERRORS       195     A     
 ERRORS    LOC      EQU    DT.NEXT                                                         ERRORS       196     A     
 ERRORS    X        MICRO  1,, LLN"A"+4S15                                                 ERRORS       197     A     
 ERRORS   .3        ELSE                                                                   ERRORS       198     A     
 ERRORS    LOC      SB7    DT.NEXT                                                         ERRORS       199     A     
 ERRORS             EQ     LLN"A"                                                          ERRORS       200     A     
 ERRORS    X        MICRO  1,, =X_EXIT                                                     ERRORS       201     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 630    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS   .3        ENDIF                                                                  ERRORS       202     A     
 ERRORS   *                                                                                ERRORS       203     A     
 ERRORS             USE    FORMAT.                                                         ERRORS       204     A     
 ERRORS    T        MICRO  1,,^_MSG_^                                                      ERRORS       205     A     
 ERRORS   *                                                                                ERRORS       206     A     
 ERRORS   *                DUP THRU THE MESSAGE FOR EACH WORD.                             ERRORS       207     A     
 ERRORS   *                                                                                ERRORS       208     A     
 ERRORS    L        SET    0                                                               ERRORS       209     A     
 ERRORS    U        MICRO  1,,                                                             FEAT126A     108     A     
 ERRORS   .1        DUP    16                                                              ERRORS       210     A     
 ERRORS    L        SET    L+1                                                             ERRORS       211     A     
 ERRORS    .2       IFC    NE,^^"T"^                                                       ERRORS       212     A     
 ERRORS             IFC    EQ,/"U"//,2                                                     FEAT126A     109     A     
 ERRORS    S        MICRO  1,, "T"                                                         ERRORS       213     A     
 ERRORS             SKIP   2                                                               FEAT126A     110     A     
 ERRORS    S        MICRO  1,, "U"                                                         FEAT126A     111     A     
 ERRORS    U        MICRO  1,,                                                             FEAT126A     112     A     
 ERRORS             ERRMIC S                                                               ERRORS       214     A     
 ERRORS    T        MICRO  K+2,,^"T"^                                                      ERRORS       215          I
          -FEAT126A 
 ERRORS             IFEQ   L,5,1                                                           ERRORS       216     A     
 ERRORS             VFD    L=ERTYPE/ERR."B",1/1,L=ERXIT/"X"                                ERRORS       217     A     
 ERRORS             IFEQ   L,11,1                                                          ERRORS       218     A     
 ERRORS             VFD    L=ERMORE/0,1/1                                                  ERRORS       219     A     
 ERRORS             VFD    L=ERWORD/1-DICT+=10H"S""A"                                      ERRORS       220     A     
 ERRORS    .2       ELSE   1                                                               ERRORS       221     A     
 ERRORS             STOPDUP                                                                ERRORS       222     A     
 ERRORS   .1        ENDD                                                                   ERRORS       223     A     
 ERRORS   .4        IFC    NE,^^"T"^                                                       ERRORS       224     A     
 ERRORS    4        ERR    LOC  -- TOO MANY WORDS IN TEXT -- TRUNCATED AFTER               ERRORS       225     A     
 ERRORS   ,                            ("T")                                               ERRORS       226     A     
 ERRORS   .4        ENDIF                                                                  ERRORS       227     A     
 ERRORS   *                                                                                ERRORS       228     A     
 ERRORS   *                WRAP UP, AND BIND OFF THE SKELETON.                             ERRORS       229     A     
 ERRORS   *                                                                                ERRORS       230     A     
 ERRORS   .6        IFEQ   *,DT.NEXT                                                       ERRORS       231     A     
 ERRORS             POS    P=ERTYPE                                                        ERRORS       232     A     
 ERRORS             VFD    L=ERTYPE/ERR."B",1/0,L=ERXIT/"X"                                ERRORS       233     A     
 ERRORS   .6        ELSE   1                                                               ERRORS       234     A     
 ERRORS             POS    0                                                               ERRORS       235     A     
 ERRORS    DT.NEXT  SET    *                                                               ERRORS       236     A     
 ERRORS             USE    *                                                               ERRORS       237     A     
 ERRORS    E.TOTAL  SET    E.TOTAL+1                                                       ERRORS       238          I
          -FEAT126C 
 ERRORS             ENDM                                                                   ERRORS       239     A     
 ERRORS                                                                                    ERRORS       240     A     
 ERRORS                                                                                    ERRORS       241     A     
 ERRORS    ERRMIC   MACRO  S                                                               ERRORS       242     A     
 ERRORS    K        MICCNT S                                                               ERRORS       243     A     
 ERRORS             IFGT   K,10,5                                                          FEAT126A     113     A     
 ERRORS    U        MICRO  10,, "S"                                                        FEAT126A     114     A     
 ERRORS    S        MICRO  1,9, "S"                                                        FEAT126A     115     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 631    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS    A        MICRO  1,1,/:/                                                         FEAT126A     116     A     
 ERRORS    K        SET    8                                                               FEAT126A     117     A     
 ERRORS             SKIP   3                                                               FEAT126A     118     A     
 ERRORS             IFLT   K,9,1                                                           ERRORS       244     A     
 ERRORS    S        MICRO  1,9,$"S"        $                                               ERRORS       245     A     
 ERRORS    A        MICRO  K,1,/!&'?<>@\^ /                                                ERRORS       246     A     
 ERRORS    T        MICRO  K+2,,^"T"^                                                      FEAT126A     119     A     
 ERRORS    ERRMIC   ENDM                                                                   ERRORS       247     A     
 ERRORS                                                                                    ERRORS       248     A     
 ERRORS                                                                                    ERRORS       249     A     
 ERRORS    DT.BIAS  EQU    1R!-1       MUST AGREE WITH STRING IN ERRMIC                    ERRORS       250     A     
 ERRORS    ERRLIT   SPACE  4,8                                                             ERRORS       251     A     
 ERRORS   **        ERRLIT - MACRO TO GENERATE A LITERAL OF PROPER FORM FOR ERROR          ERRORS       252     A     
 ERRORS   *                MESSAGE PROCESSOR.                                              ERRORS       253     A     
 ERRORS   *                                                                                ERRORS       254     A     
 ERRORS   *         ERRLIT WORD                                                            ERRORS       255     A     
 ERRORS                                                                                    ERRORS       256     A     
 ERRORS                                                                                    ERRORS       257     A     
 ERRORS             MACRO  ERRLIT,LOC,WORD                                                 ERRORS       258     A     
 ERRORS    S        MICRO  1,,$WORD$                                                       ERRORS       259     A     
 ERRORS             ERRMIC S                                                               ERRORS       260     A     
 ERRORS    LOC      LIT    10H"S""A"                                                       ERRORS       261     A     
 ERRORS    ERRLIT   ENDM                                                                   ERRORS       262     A     
 ERRORS    ERRTYP   SPACE  4,8                                                             ERRORS       263     A     
 ERRORS   **        ERRTYP - MACRO TO SETUP ERROR TYPES AND LISTING FLAGS                  ERRORS       264     A     
 ERRORS   *                                                                                ERRORS       265     A     
 ERRORS   *                                                                                ERRORS       266     A     
 ERRORS   * TYPE    ERRTYP LOP,(WORD)                                                      ERRORS       267     A     
 ERRORS   *                                                                                ERRORS       268     A     
 ERRORS   *         *TYPE* =  TYPE OF THE ERROR AS USED IN *ERROR* MACRO CALLS.            ERRORS       269     A     
 ERRORS   *                  ONLY THE FIRST LETTER WILL BE USED.                           ERRORS       270     A     
 ERRORS   *         *LOP*  =  ADDRESS OF THE LIST OPTION SELECTION WORD.  IF SIGN          ERRORS       271     A     
 ERRORS   *                  BIT OF THIS WORD IS SET, THEN THIS *TYPE* OF ERROR            ERRORS       272     A     
 ERRORS   *                  IS SELECTED AND WILL BE PRINTED.                              ERRORS       273     A     
 ERRORS   *         (WORD) =  BANNER WORD PRINTED WITH ERRORS OF THIS *TYPE*.  ALL         ERRORS       274          I
          -FEAT126A 
 ERRORS   *                  FATAL ERRORS MUST HAVE * AS THE FIRST CHARACTER.              ERRORS       275          I
          -FEAT126A 
 ERRORS   *         (WORD) = BANNER WORD PRINTED WITH ERROR OF THIS *TYPE*.                FEAT126A     120     A     
 ERRORS                                                                                    ERRORS       276     A     
 ERRORS                                                                                    ERRORS       277     A     
 ERRORS             MACRO  ERRTYP,T,L,W                                                    ERRORS       278     A     
 ERRORS    A        MICRO  1,9,$_W         $                                               ERRORS       279     A     
 ERRORS    B        MICRO  1,1, T                                                          ERRORS       280     A     
 ERRORS    ERR."B"  VFD    24/0,18/=10H "A",18/LOP=L                                       ERRORS       281          I
          -FEAT126A 
 ERRORS    C        MICRO  1,1,/"A" /                                                      FEAT126A     121     A     
 ERRORS    ERR."B"  VFD    24/4R"C" * ,18/=10H "A",18/LOP=L                                FEAT126A     122     A     
 ERRORS    ERRTYP   RMT=   (ERR="B" CON 0)                                                 ERRORS       282     A     
 ERRORS    ERRTYP   ENDM                                                                   ERRORS       283     A     
 ERRORS                                                                                    ERRORS       284     A     
 ERRORS                                                                                    ERRORS       285     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 632    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS             USE    FORMAT.                                                         FEAT126A     123     A     
 ERRORS    DT.NEXT  SET    *                                                               FEAT126A     124     A     
 ERRORS             USE    *                                                               FEAT126A     125     A     
 ERRORS             NOREF  DT.NEXT                                                         ERRORS       286     A     
 ERRORS    DICT     SPACE  4,8                                                             ERRORS       287     A     
 ERRORS   **        DICT - THESE MUST BE THE FIRST LITERALS IN THE (1,0) OVERLAY.          ERRORS       288     A     
 ERRORS   *         THESE LITERALS ARE USED BY ERROR PROCESSING ROUTINES.                  ERRORS       289     A     
 ERRORS                                                                                    ERRORS       290     A     
 ERRORS    T        MICRO  1,,                                                             FEAT126A     126     A     
 ERRORS                                                                                    ERRORS       291     A     
 ERRORS    DICT     LIT    1H          BASE ADDRESS OF LITERALS                            ERRORS       292     A     
 ERRORS             NOREF  DICT                                                            ERRORS       293     A     
 ERRORS                                                                                    ERRORS       294     A     
 ERRORS    FILL.    ERRLIT FILL.       THESE ARE FOR MESSAGE FILL-INS                      ERRORS       295     A     
 ERRORS    FILL.2   ERRLIT FILL.2                                                          ERRORS       296     A     
 ERRORS    FILL.3   ERRLIT FILL.3                                                          ERRORS       297     A     
 ERRORS    L.FILL   EQU    FILL.3-FILL.+1 LENGTH OF FILL. REGION FOR LLNS.                 ERRORS       298     A     
 ERRORS    CLASS    ERRLIT DEFINED                                                         ERRORS       299     A     
 ERRORS    CLASS    HERE               (NAMES OF SYMBOL CLASSES)                           ERRORS       300     A     
 ERRORS                                                                                    ERRORS       301     A     
 ERRORS    DO.DPC   ERRLIT DO          USED IN *DO* ERRORS AS FILL.                        ERRORS       302     A     
 ERRORS             ERRLIT INITIAL                                                         ERRORS       303     A     
 ERRORS             ERRLIT LIMIT                                                           ERRORS       304     A     
 ERRORS             ERRLIT INCREMENT                                                       ERRORS       305     A     
 ERRORS                                                                                    ERRORS       306     A     
 ERRORS    CON.DPC  ERRLIT PLUS        USED IN *CONSTANT REDUCTION AS FILL.                ERRORS       307     A     
 ERRORS             ERRLIT MINUS                                                           ERRORS       308     A     
 ERRORS             ERRLIT MULTIPLY                                                        ERRORS       309     A     
 ERRORS             ERRLIT DIVIDE                                                          ERRORS       310     A     
 ERRORS                                                                                    ERRORS       311     A     
 ERRORS             EJECT                                                                  ERRORS       312          I
          -FEAT126A 
 ERRORS   **        ERRTYP - TABLE OF ERROR FLAG WORDS                                     ERRORS       313          I
          -FEAT126A 
 ERRORS                                                                                    ERRORS       314          I
          -FEAT126A 
 ERRORS                                                                                    ERRORS       315          I
          -FEAT126A 
 ERRORS    ERRTYP   BSS    0           TABLE OF ERROR FLAG WORDS                           ERRORS       316          I
          -FEAT126A 
 ERRORS             LOC    0                                                               ERRORS       317          I
          -FEAT126A 
 ERRORS   ****                                                                             ERRORS       318          I
          -FEAT126A 
 ERRORS    ANSI     ERRTYP X,(A N S I)                                                     ERRORS       319          I
          -FEAT126A 
 ERRORS    CONTINUE ERRTYP 1,( )                                                           ERRORS       320          I
          -FEAT126A 
 ERRORS    DISASTER ERRTYP F,(*FATAL*)                                                     ERRORS       321          I
          -FEAT126A 
 ERRORS    FATAL    ERRTYP F,(*FATAL)                                                      ERRORS       322          I
          -FEAT126A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 633    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS    KILL     ERRTYP F,(*COMPILE)                                                    ERRORS       323          I
          -FEAT126A 
 ERRORS    NOTE     ERRTYP N,(  NOTE)                                                      ERRORS       324          I
          -FEAT126A 
 ERRORS    PRINT    ERRTYP F,( ------) ALWAYS PRINTED                                      ERRORS       325          I
          -FEAT126A 
 ERRORS    WARN     ERRTYP W,(WARNING)                                                     ERRORS       326          I
          -FEAT126A 
 ERRORS   ****                                                                             ERRORS       327          I
          -FEAT126A 
 ERRORS    N.ERRT   BSS    0           NUMBER OF ERROR TYPES                               ERRORS       328          I
          -FEAT126A 
 ERRORS             LOC    *O                                                              ERRORS       329          I
          -FEAT126A 
 ERRORS    ERRTYP   HERE               COUNTS OF ERROR OCCURRANCES                         ERRORS       330          I
          -FEAT126A 
 ERRORS    SERRORS  =      ERR=F       **** TEMP ****                                      ERRORS       331          I
          -FEAT126A -FEAT126C 
 ERRORS    E=TOTAL  DATA   0           COUNT OF ALL ERRORS IN STATEMENT                    ERRORS       332          I
          -FEAT126A 
 ERRORS                                                                                    ERRORS       333          I
          -FEAT126A 
 ERRORS             PURGMAC ERRTYP                                                         ERRORS       334          I
          -FEAT126A 
 ERRORS                                                                                    ERRORS       335          I
          -FEAT126A 
 ERRORS             USE    FORMAT.                                                         ERRORS       336          I
          -FEAT126A 
 ERRORS                                                                                    ERRORS       337          I
          -FEAT126A 
 ERRORS    DT.NEXT  SET    *                                                               ERRORS       338          I
          -FEAT126A 
 ERRORS                                                                                    ERRORS       339          I
          -FEAT126A 
 ERRORS             USE    *                                                               ERRORS       340          I
          -FEAT126A 
 ERRORS                                                                                    ERRORS       341          I
          -FEAT126A 
 ERRORS    E.TOTAL  SET    0           INITIALIZE COUNT OF ERRORS                          ERRORS       342          I
          -FEAT126A 
 ERRORS             NOREF  E.TOTAL                                                         ERRORS       343          I
          -FEAT126A 
 ERRORS    ERROR    EJECT                                                                  ERRORS       344     A     
 ERRORS   ****      DIAGNOSTICS SECTION OF COMPILER.                                       ERRORS       345     A     
 ERRORS   *         GENERAL DISCUSSION OF DIAGNOSTICS --                                   ERRORS       346     A     
 ERRORS   *                                                                                ERRORS       347     A     
 ERRORS   *         ALL DIAGNOSTICS FOR SOURCE FORTRAN MUST BE CONTAINED WITHIN            ERRORS       348     A     
 ERRORS   *         THIS SECTION OF THE COMPILER. WHEN A NEW DIAGNOSTIC IS TO BE           ERRORS       349     A     
 ERRORS   *         ADDED THE FOLLOWING GENERAL RULES MUST BE ADHERED TO --                ERRORS       350     A     
 ERRORS   *         1.  ALL DIAGNOSTICS MUST START WITH  E.XXX                             ERRORS       351     A     
 ERRORS   *             WHERE XXX HAS SOME MEANING AS TO THE SECTION WHERE THE             ERRORS       352     A     
 ERRORS   *             ERROR WAS DETECTED.                                                ERRORS       353     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 634    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS   *                                                                                ERRORS       354     A     
 ERRORS   *         2.  ANY DIAGNOSTIC THAT USES A FILL. AND DOES NOT PRESET IT TO         ERRORS       355     A     
 ERRORS   *             INTERNAL FORM MUST HAVE EITHER *S* OR *V* AS THE SECOND            ERRORS       356     A     
 ERRORS   *             CHARACTER SPECIFIED IN THE DIAGNOSTIC DEFINITION.                  ERRORS       357     A     
 ERRORS   *                *S* FORM = FILL. IS ALREADY IN 0L FORM.                         ERRORS       358     A     
 ERRORS   *                *V* FORM = FILL. SHOULD BE FORMED FROM *SB* STARTING            ERRORS       359     A     
 ERRORS   *                           AT B4.                                               ERRORS       360     A     
 ERRORS   *                                                                                ERRORS       361     A     
 ERRORS   *         3.  ALL *ANSI* DIAGNOSTICS SHOULD USE *ANSI* MACRO TO OUTPUT           ERRORS       362     A     
 ERRORS   *             GIVEN ANSI ERROR. (THIS WILL IMPROVE THE SPEED OF                  ERRORS       363     A     
 ERRORS   *             COMPILATION WHEN *ANSI* ERRORS ARE NOT REQUESTED.)                 ERRORS       364     A     
 ERRORS   *                                                                                ERRORS       365     A     
 ERRORS   *         4.  ALL COLON/SEMICOLON BREAKS IN DIAGNOSTICS MUST USE *--*            ERRORS       366     A     
 ERRORS   *             TO REPRESENT BREAK.                                                ERRORS       367     A     
 ERRORS   *                                                                                ERRORS       368     A     
 ERRORS   *         5.  DIAGNOSTICS MAY BE ANY OF THE FOLLOWING TYPES                      ERRORS       369     A     
 ERRORS   *           (ONLY THE FIRST CHARACTER OF TYPE IS USED...)                        ERRORS       370     A     
 ERRORS   *                ANSI -  USAGE DOES NOT CONFORM TO AMERICAN NATIONAL             ERRORS       371     A     
 ERRORS   *                            STANDARD FORTRAN, X3.9-1966.                        ERRORS       372     A     
 ERRORS   *                CONTINUATION -  THIS IS REALLY A CONTINUATION OF A              ERRORS       373     A     
 ERRORS   *                            PREVIOUS ERROR.  IT WILL GET PRINTED OR NOT         ERRORS       374     A     
 ERRORS   *                            ACCORDING TO WHETHER THE LAST ERROR WAS             ERRORS       375     A     
 ERRORS   *                            SELECTED.                                           ERRORS       376     A     
 ERRORS   *                DISASTER -  INHIBITS BINARY OUTPUT EVEN IF *DEBUG* WAS          ERRORS       377          I
          -FEAT126A 
 ERRORS   *                            ON.  MOST ERRORS IN DECLARATIVES ARE                ERRORS       378          I
          -FEAT126A 
 ERRORS   *                            DISASTEROUS.                                        ERRORS       379          I
          -FEAT126A 
 ERRORS   *                FATAL -  FATAL TO EXECUTION.  INHIBITS BINARY OUTPUT            ERRORS       380     A     
 ERRORS   *                            UNLESS *DEBUG* IS SELECTED.                         ERRORS       381     A     
 ERRORS   *                KILL -  FATAL TO COMPILATION.  RESUME WITH NEXT                 ERRORS       382     A     
 ERRORS   *                            PROGRAM-UNIT.                                       ERRORS       383     A     
 ERRORS   *                NOTE -  NO ACTUAL VIOLATION OF FORTRAN, BUT THE SOURCE          ERRORS       384     A     
 ERRORS   *                            STATEMENT(S) DO NOT MAKE MUCH SENSE, OR             ERRORS       385     A     
 ERRORS   *                            SEEM OTHERWISE DUBIOUS.                             ERRORS       386     A     
 ERRORS   *                PRINT - FAKE TYPE. ALWAYS GETS PRINTED, BUT DOES                ERRORS       387     A     
 ERRORS   *                            NOT AFFECT ANY ERROR COUNTS.                        ERRORS       388     A     
 ERRORS   *                WARNING -  A MORE SEVERE ERROR THAN A *NOTE*.  LANGUAGE         ERRORS       389     A     
 ERRORS   *                            HAS BEEN VIOLATED, EVEN, BUT WE COULD               ERRORS       390     A     
 ERRORS   *                            FIGURE OUT WHAT HE (PROBABLY) MEANT.                ERRORS       391     A     
 ERRORS   *                                                                                ERRORS       392     A     
 ERRORS   *                                                                                ERRORS       393     A     
 ERRORS   *                                                                                ERRORS       394     A     
 ERRORS   *         -------  LIMITATIONS ON DIAGNOSTICS -------                            ERRORS       395     A     
 ERRORS   *                                                                                ERRORS       396     A     
 ERRORS   *                                                                                ERRORS       397     A     
 ERRORS   *         1.  NO DIAGNOSTIC MAY EXCEED 16 WORDS, NOR MAY IT BE TOO LONG          ERRORS       398     A     
 ERRORS   *             TO FIT ON ONE PRINT LINE (APPROXIMATELY 114 CHARACTERS MAY         ERRORS       399          I
          -FEAT126A 
 ERRORS   *             BE LISTED).                                                        ERRORS       400          I
          -FEAT126A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 635    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS   *             TO FIT ON ONE TTY LINE (UP TO 72 CHARACTERS MAY BE LISTED)         FEAT126A     127     A     
 ERRORS   *                                                                                ERRORS       401     A     
 ERRORS   *         2.  NO WORD WITHIN A DIAGNOSTIC MAY EXCEED 10 CHARACTERS               ERRORS       402          I
          -FEAT126A 
 ERRORS   *         2.  NO DIAGNOSTIC MAY USE A COLON.                                     FEAT126A     128     A     
 ERRORS   *                                                                                ERRORS       403     A     
 ERRORS   *         3.  NUMBER OF WORDS IN DICTIONARY MUST NOT EXCEED                      ERRORS       404     A     
 ERRORS   *             512 WORDS.                                                         ERRORS       405     A     
 ERRORS   *                                                                                ERRORS       406     A     
 ERRORS   *         4.  NO DIAGNOSTIC MAY USE A SPECIAL CHARACTER > 65B DPC AS THE         ERRORS       407     A     
 ERRORS   *             LAST CHARACTER IN A 10H WORD.                                      ERRORS       408     A     
 ERRORS   *                                                                                ERRORS       409     A     
 ERRORS   *         5.  SPECIAL CARE SHOULD BE USED WHEN A WORD IN THE ERROR               ERRORS       410     A     
 ERRORS             EXT    LBDO                                                            FCC1728X       4     A     
 ERRORS   *             MESSAGE CONTAINS EITHER A *(* OR *)*.                              ERRORS       411     A     
 ERRORS             EJECT                                                                  ERRORS       412     A     
 ERRORS   *** ERRS         LISTED BY SECTION PRODUCING THE DIAGNOSTIC...                   ERRORS       413     A     
 ERRORS                                                                                    ERRORS       414     A     
 ERRORS                                                                                    ERRORS       415     A     
 ERRORS   **        ARGUMENT PROCESSOR.                                                    ERRORS       416     A     
 ERRORS                                                                                    ERRORS       417     A     
 ERRORS                                                                                    ERRORS       418     A     
 ERRORS    E.AC     ERROR  F,*,(ONLY "MAX.SARG" DUMMY ARGUMENTS ARE PERMITTED -- E         ERRORS       419     A     
 ERRORS   ,XCESS IGNORED)                                                                  ERRORS       420     A     
 ERRORS    E.AC3    ERROR  FS,*,(DUMMY ARGUMENT FILL. PREVIOUSLY DEFINED)                  ERRORS       421     A     
 ERRORS    E.AC4    ERROR  FS,*,(DUMMY ARGUMENT FILL. MUST BEGIN WITH LETTER)              ERRORS       422     A     
 ERRORS    E.AC5    ERROR  FS,PSP,(SYNTAX -- EXPECTED RETURNS FOUND FILL.)                 ERRORS       423          I
          -FEAT126A 
 ERRORS    E.AC6    ERROR  FV,PSP,(SYNTAX -- EXPECTED LEFT PAREN OR COMMA FOUND FI         ERRORS       424          I
          -FEAT126A 
 ERRORS   ,LL.)                                                                            ERRORS       425          I
          -FEAT126A 
 ERRORS    E.AC5    ERROR  FS,PSP,(EXPECTED RETURNS FOUND FILL.)                           FEAT126A     129     A     
 ERRORS    E.AC6    ERROR  FV,PSP,(EXPECTED LEFT PAREN OR COMMA FOUND FILL.)               FEAT126A     130     A     
 ERRORS    E.AC8    ERROR  W,*,(ILLEGAL CHARACTER AFTER RIGHT PAREN)                       ERRORS       426     A     
 ERRORS    E.AC9    ERROR  WS,*,(MISSPELLED KEYWORD -- FILL. RETURNS ASSUMED)              ERRORS       427     A     
 ERRORS    E.AP     ERROR  FV,PSN,(SYNTAX IN ARGUMENT LIST -- EXPECTED LEFT PAREN          ERRORS       428          I
          -FEAT126A 
 ERRORS   ,FOUND FILL.)                                                                    ERRORS       429          I
          -FEAT126A 
 ERRORS    E.AP     ERROR  FV,PSN,(EXPECTED LEFT PAREN FOR AN ARGUMENT LIST , FOUN         FEAT126A     131     A     
 ERRORS   ,D FILL.)                                                                        FEAT126A     132     A     
 ERRORS    E.AP1    ERROR  F,PSN,(SYNTAX ERROR IN ARGUMENT LIST)                           FEAT126A     133     A     
 ERRORS    E.FA     ERROR  F,*,(FUNCTION MUST HAVE AT LEAST 1 DUMMY ARGUMENT)              FEAT126A     134     A     
 ERRORS    E.FR     ERROR  F,*,(RETURNS LIST NOT PERMITTED IN FUNCTION STATEMENT)          FEAT126A     135     A     
 ERRORS    E.RA     ERROR  FV,PSN,(EXPECTED E.O.S. OR RETURNS PARAMETER FOUND FILL         FEAT126A     136     A     
 ERRORS   ,.)                                                                              FEAT126A     137     A     
 ERRORS    E.AP1    ERROR  F,PSN,(SYNTAX ERROR IN ARGUMENT LIST)                           ERRORS       430          I
          -FEAT126A 
 ERRORS    E.FA     ERROR  F,*,(FUNCTION MUST HAVE AT LEAST ONE DUMMY ARGUMENT)            ERRORS       431          I
          -FEAT126A 
 ERRORS    E.FR     ERROR  F,*,(RETURNS LIST NOT PERMITTED IN FUNCTION STATEMENT)          ERRORS       432          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 636    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
          -FEAT126A 
 ERRORS    E.RA     ERROR  FV,PSN,(SYNTAX -- EXPECTED E.O.S. OR RETURNS PARAMETER          ERRORS       433          I
          -FEAT126A 
 ERRORS   ,FOUND FILL.)                                                                    ERRORS       434          I
          -FEAT126A 
 ERRORS    E.RA1    ERROR  FV,PSN,(NAME FILL. DID NOT APPEAR IN RETURNS LIST)              ERRORS       435          I
          -FEAT126A 
 ERRORS    E.RA1    ERROR  FV,PSN,(NAME FILL. NOT IN RETURNS LIST)                         FEAT126A     138     A     
 ERRORS    ASF      EJECT                                                                  ERRORS       436     A     
 ERRORS   **        ASF PROCESSOR                                                          ERRORS       437     A     
 ERRORS                                                                                    ERRORS       438     A     
 ERRORS                                                                                    ERRORS       439     A     
 ERRORS    E.AF1    ERROR  F,PSP,(ILLEGAL STATEMENT FUNCTION SYNTAX -- TROUBLE STA         ERRORS       440          I
          -FEAT126A 
 ERRORS   ,RTED AT FILL.)                                                                  ERRORS       441          I
          -FEAT126A 
 ERRORS    E.AF2    ERROR  FS,*,(STATEMENT FUNCTION FILL. -- ARGUMENT SYNTAX)              ERRORS       442          I
          -FEAT126A 
 ERRORS    E.AF3    ERROR  FS,PSP,(STATEMENT FUNCTION FILL. -- MISPLACED EQUAL SIG         ERRORS       443     A     
 ERRORS   ,N)                                                                              ERRORS       444     A     
 ERRORS    E.AF4    ERROR  NS,PSP,(STATEMENT FUNCTION FILL. HAS NULL DEFINITION --         ERRORS       445     A     
 ERRORS   , IGNORED)                                                                       ERRORS       446     A     
 ERRORS    E.AF5    ERROR  FS,PAR.EOS,(STATEMENT FUNCTION FILL. REFERENCE -- CLOSI         ERRORS       447          I
          -FEAT126A 
 ERRORS   ,NG PAREN MISSING)                                                               ERRORS       448          I
          -FEAT126A 
 ERRORS    E.AF5    ERROR  FS,PAR.EOS,(STATEMENT FUNCTION FILL. REFERENCE -- RIGHT         FEAT126A     139     A     
 ERRORS   , PAREN MISSING)                                                                 FEAT126A     140     A     
 ERRORS    E.AF6    ERROR  FS,AFDEX,(RECURSIVE DEFINITION OF STATEMENT FUNCTION FI         ERRORS       449     A     
 ERRORS   ,LL.)                                                                            ERRORS       450     A     
 ERRORS    E.AF7    ERROR  NS,*,(ARGUMENT FILL.2 IS NEVER USED WITHIN STATEMENT FU         ERRORS       451          I
          -FEAT126A 
 ERRORS   ,NCTION FILL.)                                                                   ERRORS       452          I
          -FEAT126A 
 ERRORS    E.AF7    ERROR  NS,*,(ARGUMENT FILL.2 IS NOT USED IN STATEMENT FUNCTION         FEAT126A     141     A     
 ERRORS   , FILL.)                                                                         FEAT126A     142     A     
 ERRORS    E.AF9    ERROR  FS,*,(DUMMY ARGUMENT FILL.2 CAN OCCUR ONLY ONCE IN FILL         ERRORS       453     A     
 ERRORS   ,. DEFINITION)                                                                   ERRORS       454     A     
 ERRORS    E.AF10   ERROR  FS,*,(REFERENCE TO STATEMENT FUNCTION FILL. HAS A NULL          ERRORS       455     A     
 ERRORS   ,PARAMETER)                                                                      ERRORS       456     A     
 ERRORS    E.AF11   ERROR  FS,PSN,(UNMATCHED PARAMETER COUNT TO STATEMENT FUNCTION         ERRORS       457     A     
 ERRORS   , FILL.)                                                                         ERRORS       458     A     
 ERRORS    E.AF12   ERROR  FV,*,(STATEMENT FUNCTION SYNTAX IN DUMMY ARGUMENT LIST          ERRORS       459          I
          -FEAT126A 
 ERRORS   ,-- EXPECTED COMMA FOUND FILL.)                                                  ERRORS       460          I
          -FEAT126A 
 ERRORS    E.AF13   ERROR  F,*,(STATEMENT FUNCTION SYNTAX -- EXPECTED COMMA FOUND          ERRORS       461          I
          -FEAT126A 
 ERRORS   ,E.O.S.)                                                                         ERRORS       462          I
          -FEAT126A 
 ERRORS    E.AF14   ERROR  FV,*,(STATEMENT FUNCTION SYNTAX IN DUMMY PARAMETER LIST         ERRORS       463          I
          -FEAT126A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 637    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS   , -- NULL ARGUMENT)                                                              ERRORS       464          I
          -FEAT126A 
 ERRORS    E.AF15   ERROR  FV,PSP,(DUMMY PARAMETER FILL. OF STATEMENT FUNCTION NOT         ERRORS       465          I
          -FEAT126A 
 ERRORS   , SIMPLE VARIABLE)                                                               ERRORS       466          I
          -FEAT126A 
 ERRORS    E.AF15   ERROR  FV,PSP,(STATEMENT FUNCTION DUMMY PARAMETER FILL. NOT SI         FEAT126A     143     A     
 ERRORS   ,MPLE VARIABLE)                                                                  FEAT126A     144     A     
 ERRORS    E.AF16   ERROR  W,*,(PREVIOUS DEFINITION OF STATEMENT FUNCTION FILL. IS         ERRORS       467          I
          -FCC0521
 ERRORS   , OVERRIDDEN)                                                                    ERRORS       468          I
          -FCC0521
 ERRORS    E.AF16   ERROR  WS,*,(PREVIOUS DEFINITION OF STATEMENT FUNCTION FILL. I         FCC0521        4     A     
 ERRORS   ,S OVERRIDDEN)                                                                   FCC0521        5     A     
 ERRORS   E.AF17    ERROR  FS,PSP,(USAGE CONFLICT -- FILL. CANNOT BE STATEMENT FUN         FCC1247        8     A     
 ERRORS   ,CTION)                                                                          FCC1247        9     A     
 ERRORS                                                                                    ERRORS       469     A     
 ERRORS             SPACE  4,8                                                             FCC1134       10     A     
 ERRORS   **        INTRINSIC FUNCTION PROCESSING.                                         FCC1134       11     A     
 ERRORS                                                                                    FCC1134       12     A     
 ERRORS                                                                                    FCC1134       13     A     
 ERRORS    E.IN1    ERROR  F,*,(LOCF ARGUMENT MUST NOT BE CONSTANT OR EXPRESSION)          FCC1134       14     A     
 ERRORS    ANSI     EJECT                                                                  ERRORS       470     A     
 ERRORS   **        ASSORTED ANSI ERRORS                                                   ERRORS       471     A     
 ERRORS                                                                                    ERRORS       472     A     
 ERRORS                                                                                    ERRORS       473     A     
 ERRORS    E.ADP    ERROR  A,*,(ANSI REQUIRES THE WORD PRECISION)                          ERRORS       474     A     
 ERRORS    E.AES    ERROR  A,*,(CONTROL FLOW INTO END LINE NOT PERMITTED)                  ERRORS       475     A     
 ERRORS    E.ANS    ERROR  A,*,(STATEMENT IS NOT DEFINED IN ANSI)                          ERRORS       476     A     
 ERRORS    E.ANS1   ERROR  A,PSP,(STATEMENT IS NOT DEFINED IN ANSI)                        ERRORS       477     A     
 ERRORS    E.ANS2   ERROR  AS,*,(7 CHARACTER SYMBOL FILL. IS NON- ANSI)                    FCC1259        4     A     
 ERRORS    E.ART    ERROR  A,E.ART1,(RETURN IN MAIN PROGRAM)                               ERRORS       478     A     
 ERRORS    E.ART1   ERROR  N,PSN,(RETURN ACTS AS END)                                      ERRORS       479     A     
 ERRORS    E.ANS3   ERROR  AS,*,(NON-ANSI TYPE COMBINATIONS WITH FILL. OPERATOR)           FCC1638X       6     A     
 ERRORS    E.ANS4   ERROR  AS,*,(NON-ANSI FORM OF BLOCK DATA STATEMENT)                    FCC1998        8     A     
 ERRORS    ASSIGN   SPACE  4,15                                                            ERRORS       480     A     
 ERRORS   **        ASSIGN STATEMENT.                                                      ERRORS       481     A     
 ERRORS                                                                                    ERRORS       482     A     
 ERRORS                                                                                    ERRORS       483     A     
 ERRORS    E.AS2    ERROR  WV,*,(*TO* ASSUMED FOR FILL.)                                   ERRORS       484          I
          -FCC1274
 ERRORS    E.AS2    ERROR  WS,*,(*TO* ASSUMED FOR FILL.)                                   FCC1274        5     A     
 ERRORS    E.AS3    ERROR  WS,*,(VARIABLE FILL. NOT INTEGER)                               ERRORS       485     A     
 ERRORS    E.AS4    ERROR  FV,PSN,(STATEMENT LABEL FILL. MUST BE NUMERIC)                  ERRORS       486     A     
 ERRORS    E.AS5    ERROR  W,*,(COMMA AFTER STATEMENT LABEL IGNORED)                       ERRORS       487     A     
 ERRORS    ARITH    EJECT  4,8                                                             ERRORS       488     A     
 ERRORS   **        ARITH PROCESSOR.                                                       ERRORS       489     A     
 ERRORS                                                                                    ERRORS       490     A     
 ERRORS                                                                                    ERRORS       491     A     
 ERRORS    E.AT     ERROR  F,PSN,(ASSIGNMENT STATEMENT REQUIRES A VARIABLE ON LEFT         ERRORS       492          I
          -FCC1046
 ERRORS   , OF EQUAL SIGN)                                                                 ERRORS       493          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 638    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
          -FCC1046
 ERRORS    E.AT1    ERROR  F,*,(LOGICAL AND NON- LOGICAL OPERANDS MAY NOT BE MIXED         ERRORS       494     A     
 ERRORS   ,)                                                                               ERRORS       495     A     
 ERRORS    E.AT1A   ERROR  F,*,(LOGICAL OPERAND USED WITH NON- LOGICAL OPERATOR)           ERRORS       496     A     
 ERRORS    E.AT2    ERROR  FS,*,(ILLEGAL USE OF OPERATOR / OPERAND -- FILL. FILL.2         ERRORS       497     A     
 ERRORS   ,)                                                                               ERRORS       498     A     
 ERRORS    E.AT3    ERROR  N,*,(HOLLERITH CONSTANT IN EXPRESSION EXCEEDS 10 CHARAC         ERRORS       499     A     
 ERRORS   ,TERS)                                                                           ERRORS       500     A     
 ERRORS    E.AT5    ERROR  F,*,(ILLEGAL FORM INVOLVING THE USE OF A COMMA)                 ERRORS       501     A     
 ERRORS    E.AT6    ERROR  F,*,(ILLEGAL USE OF ASSIGNMENT OPERATOR)                        FCC0498        5     A     
 ERRORS    E.AT7    ERROR  A,*,(MASK EXPRESSION NON- ANSI)                                 FCC0498        6     A     
 ERRORS    E.AT8    ERROR  A,*,(HOLLERITH CONSTANT IN EXPRESSION NON- ANSI)                FCC0498        7     A     
 ERRORS    E.AT9    ERROR  A,*,(MULTIPLE ASSIGNMENT IS NON- ANSI)                          FCC0498        8     A     
 ERRORS    E.AT10   ERROR  FS,*,(FILL. ILLEGAL FIRST ELEMENT OF EXPRESSION)                FCC0787       13     A     
 ERRORS    E.AT11   ERROR  W,*,(ASF MODELESS EXPRESSION ASSIGNED TO LOGICAL FUNCTI         FCC1294        5     A     
 ERRORS   ,ON)                                                                             FCC1294        6     A     
 ERRORS    E.AT12   ERROR  F,*,(ASF EXPRESSION TYPE CONFLICTS WITH FUNCTION TYPE)          FCC1294        7     A     
 ERRORS    E.AT13   ERROR  AS,*,(REDEFINITION OF PARAMETER FILL. USED AS DIMENSION         FCC1901       12     A     
 ERRORS   , INDICATOR IS NON-ANSI)                                                         FCC1901       13     A     
 ERRORS    CALL     SPACE  4,15                                                            ERRORS       502     A     
 ERRORS   **        CALL STATEMENTS.                                                       ERRORS       503     A     
 ERRORS                                                                                    ERRORS       504     A     
 ERRORS                                                                                    ERRORS       505     A     
 ERRORS    E.CL     ERROR  F,PSN,(CALL STATEMENT MISSING ROUTINE NAME)                     ERRORS       506     A     
 ERRORS    E.CL1    ERROR  FV,PSN,(SYNTAX -- EXPECTED LEFT PAREN OR COMMA AFTER RO         ERRORS       507          I
          -FEAT126A 
 ERRORS   ,UTINE NAME FOUND FILL.)                                                         ERRORS       508          I
          -FEAT126A 
 ERRORS    E.CL1    ERROR  FV,PSN,(EXPECTED LEFT PAREN OR COMMA AFTER ROUTINE NAME         FEAT126A     145     A     
 ERRORS   , FOUND FILL.)                                                                   FEAT126A     146     A     
 ERRORS    E.CL2    ERROR  FS,*,(RETURNS PARAMETER FILL. MUST BE NUMERIC LABEL)            ERRORS       509     A     
 ERRORS    E.CL3    ERROR  A,*,(SAME NAME USED AS FUNCTION AND SUBROUTINE)                 FCC2307        6     A     
 ERRORS    COMMON   EJECT  4,8                                                             ERRORS       510     A     
 ERRORS   **        COMMON PROCESSOR.                                                      ERRORS       511     A     
 ERRORS                                                                                    ERRORS       512     A     
 ERRORS                                                                                    ERRORS       513     A     
 ERRORS    E.CM     ERROR  D,PSP,(SYNTAX ERROR IN BLOCK NAME)                              ERRORS       514          I
          -FEAT126A 
 ERRORS    E.CM     ERROR  F,PSP,(SYNTAX ERROR IN BLOCK NAME)                              FEAT126A     147     A     
 ERRORS    E.CMA    ERROR  A,*,(NUMERIC BLOCK NAME NOT PERMITTED)                          ERRORS       515     A     
 ERRORS    E.CM1    ERROR  F,PSP,(PREMATURE E.O.S. -- EXPECTED BLOCK NAME)                 ERRORS       516     A     
 ERRORS    E.CM2    ERROR  D,E.CM2A,(ONLY "MAX.BLK" COMMON BLOCK ARE PERMITTED --          ERRORS       517          I
          -FCC0583
 ERRORS   ,USED // INSTEAD)                                                                ERRORS       518          I
          -FCC0583
 ERRORS    E.CM2A   =B7    BLANKCOM                                                        ERRORS       519          I
          -FCC0583
 ERRORS             EQ     =XCMN4H                                                         ERRORS       520          I
          -FCC0583
 ERRORS    E.CM2    ERROR  F,PSP,(ONLY "MAX.BLK" COMMON BLOCK ARE PERMITTED)               FCC0583        9     A     
 ERRORS    E.CM3    ERROR  DV,PSP,(SYNTAX -- EXPECTED COMMA OR SLASH FOUND FILL.)          ERRORS       521          I
          -FEAT126A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 639    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS    E.CM3    ERROR  FV,PSP,(EXPECTED COMMA OR SLASH FOUND FILL.)                    FEAT126A     148     A     
 ERRORS    E.CM4    ERROR  W,PSP,(COMMON STATEMENT WITHOUT A LIST IS IGNORED)              ERRORS       522          I
          -FEAT126A 
 ERRORS    E.CM4    ERROR  W,PSP,(COMMON STATEMENT WITH NO LIST IS IGNORED)                FEAT126A     149     A     
 ERRORS    E.CM5    ERROR  F,PSP,(ILLEGAL BLOCK NAME IN COMMON STATEMENT)                  ERRORS       523     A     
 ERRORS   */LONG NAMES ALLOWED BY TRV                                                      ERRORS       524          I
          -FCC0498
 ERRORS    E.CM6    ERROR  F,PSP,(PREMATURE E.O.S. -- EXPECTED SYMBOL)                     ERRORS       525     A     
 ERRORS    CONST    EJECT  4,8                                                             ERRORS       526     A     
 ERRORS   **        CONSTANT REDUCTION.                                                    ERRORS       527     A     
 ERRORS                                                                                    ERRORS       528     A     
 ERRORS                                                                                    ERRORS       529     A     
 ERRORS    E.CR1    ERROR  N,*,(CONSTANT TERM OF ZERO -- IGNORED)                          ERRORS       530     A     
 ERRORS    E.CR2    ERROR  N,*,(CONSTANT MULTIPLY BY ZERO -- RESULTS SET TO ZERO)          ERRORS       531     A     
 ERRORS    E.CR3    ERROR  F,*,(CONSTANT DIVIDE BY ZERO -- RESULTS SET TO INFINITE         ERRORS       532     A     
 ERRORS   ,)                                                                               ERRORS       533     A     
 ERRORS    E.CR3A   ERROR  N,*,(INTEGER DIVIDE BY ZERO -- RESULTS SET TO ZERO)             ERRORS       534     A     
 ERRORS    E.CR4    ERROR  N,*,(DIVIDE INTO ZERO -- RESULTS SET TO ZERO)                   ERRORS       535     A     
 ERRORS    E.CR5    ERROR  N,*,(MULTIPLY BY ONE -- IGNORED)                                ERRORS       536          I
          -FEAT126A 
 ERRORS    E.CR6    ERROR  N,*,(DIVIDE BY ONE -- IGNORED)                                  ERRORS       537          I
          -FEAT126A 
 ERRORS    E.CR5    ERROR  N,*,(MULTIPLY BY 1 -- IGNORED)                                  FEAT126A     150     A     
 ERRORS    E.CR6    ERROR  N,*,(DIVIDE BY 1 -- IGNORED)                                    FEAT126A     151     A     
 ERRORS    E.CR7    ERROR  FS,*,(RESULTS OF CONSTANT USED WITH FILL. OPERATOR OUT          ERRORS       538          I
          -FCC1295
 ERRORS   ,OF RANGE)                                                                       ERRORS       539          I
          -FCC1295
 ERRORS    E.CR7    ERROR  FS,*,(RESULTS OF CONSTANT USED WITH FILL. OPERATOR INFI         FCC1295        4     A     
 ERRORS   ,NITE OR INDEFINITE)                                                             FCC1295        5     A     
 ERRORS    E.CR8    ERROR  F,*,(INTEGER GREATER THAN 2**48-1 IN MULTIPLY OR DIVIDE         FCC0539       10     A     
 ERRORS   ,)                                                                               FCC0539       11     A     
 ERRORS    E.CR9    ERROR  F,*,(INTEGER GREATER THAN 2**48-1 IN REAL EXPRESSION)           FCC0539       12     A     
 ERRORS    E.CR10   ERROR  F,*,(INTEGER OPERATION RESULTS IN OVERFLOW)                     FCC0539       13     A     
 ERRORS    CONTINU  SPACE  4,6                                                             ERRORS       540     A     
 ERRORS   **        CONTINUE STATEMENT PROCESSOR.                                          ERRORS       541     A     
 ERRORS                                                                                    ERRORS       542     A     
 ERRORS                                                                                    ERRORS       543     A     
 ERRORS    E.CT     ERROR  N,PSP,(CONTINUE WITH NO STATEMENT LABEL -- IGNORED)             ERRORS       544          I
          -F66FCC 
 ERRORS    E.CT     ERROR  N,PSN,(CONTINUE WITH NO STATEMENT LABEL)                        F66FCC       177     A     
 ERRORS    DATA     EJECT  4,8                                                             ERRORS       545     A     
 ERRORS   **        DATA   STATEMENT PROCESSOR.                                            ERRORS       546     A     
 ERRORS                                                                                    ERRORS       547     A     
 ERRORS                                                                                    ERRORS       548     A     
 ERRORS    E.DAA    ERROR  AS,*,(ARRAY FILL. MUST HAVE IMPLIED LOOP)                       ERRORS       549     A     
 ERRORS    E.DABC   ERROR  FS,*,(FILL. IS IN // COMMON -- DATA IGNORED)                    ERRORS       550          I
          -FEAT126A 
 ERRORS    E.DABC   ERROR  FS,*,(FILL. IS IN BLANK COMMON -- DATA IGNORED)                 FEAT126A     152          I
          -FCC1524X 
 ERRORS    E.DALV   ERROR  FS,*,(FILL. IS NOT IN LABELED COMMON)                           FCC1524X       6     A     
 ERRORS    E.DACV   ERROR  N,DATA2,(EXCESS CONSTANTS IGNORED)                              ERRORS       551     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 640    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS    E.DAVC   ERROR  WS,DATA2,(TOO FEW CONSTANTS -- VARIABLE FILL. AND FOLLO         ERRORS       552          I
          -FCC0537
 ERRORS   ,WING NOT INITALIZD)                                                             ERRORS       553          I
          -FCC0537
 ERRORS    E.DAVC   ERROR  WS,DATA2,(TOO FEW CONSTANTS -- VARIABLES FROM FILL. MAY         FCC0537        8     A     
 ERRORS   , NOT BE INITIALIZED)                                                            FCC0537        9     A     
 ERRORS    E.DAR    ERROR  A,*,(PAREN REPEAT LIST IS NOT PERMITTED)                        ERRORS       554     A     
 ERRORS    E.DAUC   ERROR  FS,DAT.Z,(DATA INTO FILL. IS ILLEGAL)                           ERRORS       555     A     
 ERRORS    E.DCE    ERROR  F,DAT.Z,(ILLEGAL REPEAT CONSTANT)                               ERRORS       556     A     
 ERRORS    E.DHC    ERROR  A,*,(HOLLERITH CONSTANT LONGER THAN ONE ITEM)                   ERRORS       557          I
          -FEAT126A 
 ERRORS    E.DHC    ERROR  A,*,(HOLLERITH CONSTANT LONGER THAN 1 WORD)                     FEAT126A     153     A     
 ERRORS    E.DIL    ERROR  F,DAT.Z,(SYNTAX ERROR IN DATA CONSTANT LIST)                    ERRORS       558     A     
 ERRORS    E.DIL1   ERROR  F,DAT.Z,(ILLEGAL CONSTANT FOLLOWING + OR -)                     ERRORS       559     A     
 ERRORS    E.DIL2   ERROR  F,DAT.Z,(REPEAT FACTOR IN DATA CONSTANT LIST MUST NOT B         ERRORS       560          I
          -FEAT126A 
 ERRORS   ,E NESTED)                                                                       ERRORS       561          I
          -FEAT126A 
 ERRORS    E.DIL2   ERROR  F,DAT.Z,(NESTING OF REPEAT COUNT IN DATA CONSTANT LIST          FEAT126A     154     A     
 ERRORS   ,IS ILLEGAL)                                                                     FEAT126A     155     A     
 ERRORS    E.DIL3   ERROR  F,DAT.Z,(ILLEGAL SEPARATOR FOLLOWING DATA CONSTANT)             ERRORS       562     A     
 ERRORS    E.DMT    ERROR  W,PSP,(NULL DATA STATEMENT IS IGNORED)                          ERRORS       563     A     
 ERRORS    E.DNA    ERROR  A,*,(ALTERNATE FORM OF DATA STATEMENT NOT PERMITTED)            ERRORS       564          I
          -FEAT126A 
 ERRORS    E.DNA2   ERROR  A,PSP.C,(NON- ANSI CONSTRUCTS IN THIS DATA STATEMENT)           ERRORS       565          I
          -FEAT126A 
 ERRORS    E.DNA    ERROR  A,*,(THIS FORM OF DATA STATEMENT NOT PERMITTED)                 FEAT126A     156     A     
 ERRORS    E.DNA2   ERROR  A,PSP.C,(NON- ANSI SYNTAX IN THIS DATA STATEMENT)               FEAT126A     157     A     
 ERRORS    E.DSE    ERROR  F,DAT.Z,(SYNTAX ERROR IN DATA STATEMENT)                        ERRORS       566     A     
 ERRORS    E.DTC    ERROR  WS,*,(FILL. CONSTANT TOO LONG -- TRUNCATED)                     ERRORS       567          I
          -FEAT126A 
 ERRORS    E.DTC    ERROR  WS,*,(FILL. CONSTANT TOO LONG -- TRUNCATED)                     FEAT126A     158     A     
 ERRORS    E.DVL1   ERROR  FS,DAT.Z,(ILLEGAL SEPARATOR AFTER FILL.)                        ERRORS       568     A     
 ERRORS    E.DVL2   ERROR  F,DAT.Z,(SYNTAX ERROR IN IMPLIED DO NEST)                       ERRORS       569          I
          -FEAT126A 
 ERRORS    E.DVL2   ERROR  F,DAT.Z,(SYNTAX ERROR IN IMPLIED DO NESTING)                    FEAT126A     159     A     
 ERRORS    E.DVL21  ERROR  F,E.DVL29,(IMPLIED DO INDEX MUST BE FOLLOWED BY EQUAL)          ERRORS       570     A     
 ERRORS    E.DVL22  ERROR  F,E.DVL29,(IMPLIED DO LOWER LIMIT MUST BE NUMERIC)              ERRORS       571     A     
 ERRORS    E.DVL23  ERROR  F,E.DVL29,(NO COMMA AFTER LOWER LIMIT)                          ERRORS       572     A     
 ERRORS    E.DVL24  ERROR  F,E.DVL29,(IMPLIED DO UPPER LIMIT MUST BE NUMERIC)              ERRORS       573     A     
 ERRORS    E.DVL25  ERROR  F,E.DVL29,(IMPLIED DO INCREMENT MUST BE NUMERIC)                ERRORS       574     A     
 ERRORS    E.DVL26  ERROR  F,E.DVL29,(MISSING RIGHT PAREN AFTER IMPLIED DO)                ERRORS       575     A     
 ERRORS    E.DVL29  ERROR  CS,DAT.Z,(SYNTAX IN IMPLIED DO ON ARRAY FILL.)                  ERRORS       576          I
          -FEAT126A 
 ERRORS    E.DVL29  ERROR  CS,DAT.Z,(SYNTAX ERROR IN IMPLIED DO ON ARRAY FILL.)            FEAT126A     160     A     
 ERRORS    E.DVL3   ERROR  F,DAT.Z,(DATA VARIABLE LIST SYNTAX ERROR)                       ERRORS       577     A     
 ERRORS    E.DVL4   ERROR  F,DAT.Z,(NO MATCH OF LOOP INDEX AND SUBSCRIPT)                  ERRORS       578     A     
 ERRORS    E.DVL5   ERROR  FS,DAT.Z,(ARRAY FILL. HAS A VARIABLE SUBSCRIPT WITH NO          ERRORS       579     A     
 ERRORS   ,IMPLIED LOOP)                                                                   ERRORS       580     A     
 ERRORS    E.DVL6   ERROR  FS,DAT.Z,(FILL. SUBSCRIPT LESS THAN ONE OR EXCEEDS DIME         ERRORS       581          I
          -FEAT126A 
 ERRORS   ,NSION)                                                                          ERRORS       582          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 641    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
          -FEAT126A 
 ERRORS    E.DVL6   ERROR  FS,DAT.Z,(FILL. SUBSCRIPT LESS THAN 1 OR EXCEEDS DIMENS         FEAT126A     161     A     
 ERRORS   ,ION)                                                                            FEAT126A     162     A     
 ERRORS    E.DVL7   ERROR  WS,DAT.Z,(VARIABLE FILL. REFERENCED AS ARRAY)                   ERRORS       583     A     
 ERRORS    E.DVL8   ERROR  F,DAT.Z,(DATA SUBSCRIPT LIST SYNTAX ERROR)                      ERRORS       584     A     
 ERRORS    E.DVL9   ERROR  FS,DAT.Z,(FILL. SUBSCRIPT EXCEEDS 2**17-1)                      ERRORS       585     A     
 ERRORS    E.DVL10  ERROR  AS,*,(DATA VARIABLE FILL. DOES NOT MATCH CONSTANT TYPE)         FCC1563X       8     A     
 ERRORS    DEC      EJECT  4,8                                                             ERRORS       586     A     
 ERRORS   **        CONVERSION OF CONSTANT SECTION.                                        ERRORS       587     A     
 ERRORS                                                                                    ERRORS       588     A     
 ERRORS                                                                                    ERRORS       589     A     
 ERRORS    E.DC     ERROR  F,*,(CONSTANT CAN NOT BE CONVERTED -- CHECK SYNTAX)             ERRORS       590          I
          -FEAT126A 
 ERRORS    E.DC     ERROR  F,*,(CONSTANT CANNOT BE CONVERTED)                              FEAT126A     163     A     
 ERRORS    E.DC1    ERROR  A,*,(OCTAL DATA TYPE NOT DEFINED IN ANSI)                       ERRORS       591     A     
 ERRORS    E.DC2    ERROR  FV,*,(MAGNITUDE OF EXPONENT EXCEEDS 512)                        ERRORS       592          I
          -FEAT126A 
 ERRORS    E.DC2    ERROR  FV,*,(EXPONENT EXCEEDS 512)                                     FEAT126A     164     A     
 ERRORS    E.DC3    ERROR  FV,*,(ILLEGAL FORM OF EXPONENT FILL.)                           ERRORS       593     A     
 ERRORS    E.DC6    ERROR  N,*,(CONSTANT MISSING EXPONENT FIELD -- ZERO ASSUMED)           ERRORS       594     A     
 ERRORS    E.DC8    ERROR  W,*,(OCTAL CONSTANT EXCEEDS 20 DIGITS -- TRUNCATED)             ERRORS       595          I
          -FCC0400
 ERRORS    E.DC8    ERROR  W,*,(CONSTANT TOO LONG , EXCESS DIGITS TRUNCATED)               FCC0400        5     A     
 ERRORS    E.DC9    ERROR  W,*,(NON- OCTAL DIGIT IN OCTAL CONSTANT -- IGNORED)             ERRORS       596     A     
 ERRORS    E.DC10   ERROR  A,*,(COMPLEX CONSTANT MUST BE ( REAL , REAL ))                  ERRORS       597          I
          -FCC0787
 ERRORS    E.DC11   ERROR  F,*,(LOGICAL CONSTANT DECLARED PART OF COMPLEX CONSTANT         ERRORS       598          I
          -FCC0787
 ERRORS   ,)                                                                               ERRORS       599          I
          -FCC0787
 ERRORS    E.DC12   ERROR  A,*,(DOUBLE CONSTANT DECLARED PART OF COMPLEX CONSTANT          ERRORS       600          I
          -FCC0787
 ERRORS   ,-- TRUNCATED)                                                                   ERRORS       601          I
          -FCC0787
 ERRORS    DIM      EJECT  4,8                                                             ERRORS       602     A     
 ERRORS   **        DIMENSION PROCESSOR.                                                   ERRORS       603     A     
 ERRORS                                                                                    ERRORS       604     A     
 ERRORS                                                                                    ERRORS       605     A     
 ERRORS    E.DM     ERROR  D,E.DM0,(SYNTAX IN DIMENSION STATEMENT)                         ERRORS       606          I
          -FEAT126A 
 ERRORS    E.DM     ERROR  F,E.DM0,(SYNTAX ERROR IN DIMENSION STATEMENT)                   FEAT126A     165     A     
 ERRORS    E.DM0    SA1    B4                                                              ERRORS       607     A     
 ERRORS             ZR     X1,=XPSP    IF *EOS*                                            ERRORS       608     A     
 ERRORS             EQ     =XDIR8      ATTEMPT TO LOOK FOR MORE                            ERRORS       609     A     
 ERRORS    E.DM1    ERROR  DS,DIR8,(ARRAY FILL. DIMENSION INDICATOR NOT INTEGER)           ERRORS       610          I
          -FEAT126A 
 ERRORS    E.DM1    ERROR  FS,DIR8,(ARRAY FILL. DIMENSION INDICATOR NOT INTEGER)           FEAT126A     166     A     
 ERRORS    E.DM2A   SB4    B4-B1                                                           ERRORS       611     A     
 ERRORS    E.DM2    ERROR  FS,DIR8,(ARRAY FILL. NULL OR ZERO DIMENSION INDICATOR)          ERRORS       612     A     
 ERRORS    E.DM3    ERROR  DS,DIR8,(VARIABLE DIMENSION ARRAY FILL. MUST BE DUMMY A         ERRORS       613          I
          -FEAT126A 
 ERRORS    E.DM3    ERROR  FS,DIR8,(VARIABLE DIMENSION ARRAY FILL. MUST BE DUMMY A         FEAT126A     167     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 642    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS   ,RGUMENT)                                                                        ERRORS       614     A     
 ERRORS    E.DM4    ERROR  FS,*,(VARIABLE DIMENSION INDICATOR FILL. MUST BE DUMMY          ERRORS       615     A     
 ERRORS   ,ARGUMENT)                                                                       ERRORS       616     A     
 ERRORS    E.DM5    SB4    B4-B1                                                           ERRORS       617     A     
 ERRORS    E.DM5A   ERROR  WS,DIRX,(VARIABLE FILL. HAS NO DIMENSION INDICATOR -- I         ERRORS       618     A     
 ERRORS   ,GNORED)                                                                         ERRORS       619     A     
 ERRORS    E.DM6    ERROR  DS,*,(ARRAY FILL. EXCEEDS "MAX.DIM" DIMENSIONS)                 ERRORS       620          I
          -FEAT126A 
 ERRORS    E.DM6    ERROR  FS,*,(ARRAY FILL. EXCEEDS "MAX.DIM" DIMENSIONS)                 FEAT126A     168     A     
 ERRORS    E.DM7    ERROR  FS,DIR8,(ARRAY FILL. DIMENSION INDICATOR FILL.2 EXCEEDS         ERRORS       621     A     
 ERRORS   , 2**17-1)                                                                       ERRORS       622     A     
 ERRORS    E.DM8    ERROR  FS,DIR8,(ARRAY FILL. SIZE EXCEEDS 2**17-1)                      FCC1410        5     A     
 ERRORS    E.DM9    ERROR  WS,*,(DIMENSION OF FILL. IGNORED. PRIOR DIMENSION RETAI         ERRORS       623          I
          -FEAT126A 
 ERRORS   ,NED.)                                                                           ERRORS       624          I
          -FEAT126A 
 ERRORS    E.DM10   ERROR  D,PSP,(ARRAY FILL. DIMENSION INDICATOR -- TERMINAL RIGH         ERRORS       625          I
          -FEAT126A 
 ERRORS   ,T PAREN MISSING)                                                                ERRORS       626          I
          -FEAT126A 
 ERRORS    E.DM9    ERROR  WS,*,(DIMENSION OF FILL. IGNORED , PRIOR DIMENSION RETA         FEAT126A     169     A     
 ERRORS   ,INED)                                                                           FEAT126A     170     A     
 ERRORS    E.DM10   ERROR  F,PSP,(ARRAY DECLARATION FOR FILL. MISSING RIGHT PAREN)         FEAT126A     171     A     
 ERRORS    E.DM11   ERROR  FS,*,(SYNTAX ERROR ON DIMENSION INDICATOR FOR FILL.)            ERRORS       627     A     
 ERRORS    E.DM12   ERROR  AS,*,(HOLLERITH DIMENSION FOR FILL.)                            ERRORS       628     A     
 ERRORS    E.DM13   ERROR  FS,*,(NEGATIVE DIMENSION FOR FILL. -- SET TO 1)                 ERRORS       629     A     
 ERRORS    E.DM14   ERROR  FS,*,(VARIABLE DIMENSION INDICATOR FILL. IS NOT INTEGER         ERRORS       630     A     
 ERRORS   ,)                                                                               ERRORS       631     A     
 ERRORS    DO       EJECT  4,8                                                             ERRORS       632     A     
 ERRORS   **        DO PROCESSOR.                                                          ERRORS       633     A     
 ERRORS                                                                                    ERRORS       634     A     
 ERRORS                                                                                    ERRORS       635     A     
 ERRORS    E.DO     ERROR  F,*,(SYNTAX OF DO MUST BE I=M1,M2,M3 OR M1,M2)                  ERRORS       636     A     
 ERRORS    E.DO1    ERROR  FS,*,(FILL. INDEX PARAMETER MUST BE INTEGER OR OCTAL)           ERRORS       637     A     
 ERRORS    E.DO2    ERROR  W,*,(LIMIT LESS THAN INITIAL -- ONE TRIP LOOP)                  ERRORS       638          I
          -FEAT126A 
 ERRORS    E.DO2    ERROR  W,*,(LIMIT LESS THAN INITIAL -- 1 TRIP LOOP)                    FEAT126A     172     A     
 ERRORS    E.DO3    ERROR  FS,*,(FILL. INDEX PARAMETER IS TOO LARGE)                       ERRORS       639     A     
 ERRORS    E.DO4    ERROR  F,*,(FILL. INDEX PARAMETER MUST BE SIMPLE VARIABLE)             ERRORS       640     A     
 ERRORS    E.DO5    ERROR  FS,*,(FILL. INDEX PARAMETER MUST BE POSITIVE)                   ERRORS       641     A     
 ERRORS    E.DO8    ERROR  F,*,(THIS STATEMENT REDEFINES A DO CONTROL INDEX)               ERRORS       642     A     
 ERRORS    E.DO9    ERROR  DS,*,(DO LOOP FILL. NOT TERMINATED BEFORE END OF PROGRA         ERRORS       643          I
          -FEAT126A 
 ERRORS    E.DO9    ERROR  FS,*,(DO LOOP FILL. NOT TERMINATED BEFORE END OF PROGRA         FEAT126A     173     A     
 ERRORS   ,M)                                                                              ERRORS       644     A     
 ERRORS    E.DO11   ERROR  D,*,(INDEX OF OUTER DO REDEFINED BY CURRENT DO)                 ERRORS       645          I
          -FEAT126A 
 ERRORS    E.DO11   ERROR  F,*,(INDEX OF OUTER DO REDEFINED BY CURRENT DO)                 FEAT126A     174     A     
 ERRORS    E.DO12   ERROR  D,*,(IMPROPER NESTING OF DO LOOPS)                              ERRORS       646          I
          -FEAT126A 
 ERRORS    E.DO12   ERROR  F,*,(ILLEGAL NESTING OF DO LOOPS)                               FEAT126A     175     A     
 ERRORS    E.DO13   ERROR  N,*,(DO CONCLUSION NOT COMPILED -- DO DEFINITION ERROR)         ERRORS       647     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 643    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS    E.DO16   ERROR  AS,*,(FILL. INDEX PARAMETER MUST BE SIMPLE INTEGER VARI         ERRORS       648          I
          -FEAT126A 
 ERRORS   ,ABLE OR CONSTANT)                                                               ERRORS       649          I
          -FEAT126A 
 ERRORS    E.DO16   ERROR  AS,*,(FILL. INDEX PARAMETER NOT SIMPLE INTEGER VARIABLE         FEAT126A     176     A     
 ERRORS   , OR CONSTANT)                                                                   FEAT126A     177     A     
 ERRORS    E.DO17   ERROR F,*,(DO CONTROL INDEX MUST BE SIMPLE INTEGER VARIABLE)           ERRORS       650          I
          -FEAT126A 
 ERRORS    E.DO17   ERROR  F,*,(DO CONTROL INDEX MUST BE SIMPLE INTEGER VARIABLE)          FEAT126A     178     A     
 ERRORS    E.DO18   ERROR  N,*,(DO COLLAPSES TO NOTHING -- IGNORED)                        ERRORS       651          I
          -FEAT126A 
 ERRORS    E.DO18   ERROR  N,*,(TRIVIAL DO LOOP -- IGNORED)                                FEAT126A     179     A     
 ERRORS    E.DO23   ERROR  W,*,(THIS STATEMENT REDEFINES A DO INDEX PARAMETER)             ERRORS       652     A     
 ERRORS    E.DO24   ERROR  FS,*,(FILL.2 -- ILLEGAL TRANSFER TO INSIDE A CLOSED DO          ERRORS       653     A     
 ERRORS   ,LOOP)                                                                           ERRORS       654     A     
 ERRORS    E.DO25   ERROR  F,*,(TRANSFER PREVIOUSLY FLAGGED IS ILLEGAL)                    ERRORS       655          I
          -FCC1307
 ERRORS    E.DO25   ERROR  F,*,(ILLEGAL TRANSFER INTO RANGE OF DO)                         FCC1307        7     A     
 ERRORS    E.DO25A  ERROR  N,*,(POSSIBLE ILLEGAL TRANSFER FROM OUTSIDE CURRENT DO)         ERRORS       656     A     
 ERRORS    E.DO27   ERROR  F,*,(DO STATEMENT SYNTAX -- EXPECTED CONTROL INDEX -- F         ERRORS       657     A     
 ERRORS   ,OUND E.O.S.)                                                                    ERRORS       658     A     
 ERRORS    E.DO28   ERROR  A,*,(COMMA NOT PERMITTED AFTER DO LABEL)                        ERRORS       659     A     
 ERRORS    E.DO29   ERROR  W,*,(COMMA AFTER DO LABEL IGNORED)                              ERRORS       660     A     
 ERRORS    EQUIV    EJECT  4,8                                                             ERRORS       661     A     
 ERRORS   **        EQUIVALENCE PROCESSOR.                                                 ERRORS       662     A     
 ERRORS                                                                                    ERRORS       663     A     
 ERRORS                                                                                    ERRORS       664     A     
 ERRORS    E.EQ     ERROR  F,PSP,(SYNTAX IN EQUIV. STATEMENT)                              ERRORS       665          I
          -FEAT126A 
 ERRORS    E.EQ1    ERROR  FV,EQS8,(MISSING BEGINNING LEFT PAREN AT FILL.)                 ERRORS       666          I
          -FEAT126A 
 ERRORS    E.EQ     ERROR  F,PSP,(SYNTAX ERROR IN EQUIVALENCE STATEMENT)                   FEAT126A     180     A     
 ERRORS    E.EQ1    ERROR  FV,EQS8,(MISSING LEFT PAREN AT FILL.)                           FEAT126A     181     A     
 ERRORS    E.EQ2    ERROR  FV,EQS8,(SUBSCRIPT FILL. EXCEEDS 2**17-1)                       ERRORS       667     A     
 ERRORS    E.EQ3    ERROR  FV,EQS8,(MISSING COMMA AT FILL.)                                ERRORS       668     A     
 ERRORS    E.EQ4    ERROR  FV,EQS8,(MORE THAN "MAX.DIM" SUBSCRIPT)                         ERRORS       669     A     
 ERRORS    E.EQ5    ERROR  FV,EQS8,(SUBSCRIPT FILL. MUST BE NON- ZERO NUMERIC INTE         ERRORS       670     A     
 ERRORS   ,GER CONSTANT)                                                                   ERRORS       671     A     
 ERRORS    E.EQ6    ERROR  W,*,(TRIVIAL EQUIV. GROUP WITH ONLY ONE MEMBER IS IGNOR         ERRORS       672          I
          -FEAT126A 
 ERRORS   ,ED)                                                                             ERRORS       673          I
          -FEAT126A 
 ERRORS    E.EQ6    ERROR  W,*,(TRIVIAL EQUIVALENCE GROUP WITH ONLY 1 MEMBER IS IG         FEAT126A     182     A     
 ERRORS   ,NORED)                                                                          FEAT126A     183     A     
 ERRORS                                                                                    ERRORS       674     A     
 ERRORS   **        CLOSE OF DECLARATIVES PROCESSING.                                      ERRORS       675     A     
 ERRORS                                                                                    ERRORS       676     A     
 ERRORS    E.EQ11   ERROR  W,*,(REDUNDANT EQUIV. SPEC.)                                    ERRORS       677          I
          -FEAT126A 
 ERRORS    E.EQ12   ERROR  F,*,(CONFLICT IN EQUIV. SPEC.)                                  ERRORS       678          I
          -FEAT126A 
 ERRORS    E.EQ13   ERROR  FS,*,(NO DIMENSION FOUND FOR EQUIV. VARIABLE FILL.)             ERRORS       679          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 644    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
          -FEAT126A 
 ERRORS    E.EQ14   ERROR  FS,*,(EXCESS SUBSCRIPTS ON EQUIV. VARIABLE FILL.)               ERRORS       680          I
          -FEAT126A 
 ERRORS    E.EQ15   ERROR  WS,*,(MISSING SUBSCRIPTS SET TO ONE FOR EQUIV. VARIABLE         ERRORS       681          I
          -FEAT126A 
 ERRORS   , FILL.)                                                                         ERRORS       682          I
          -FEAT126A 
 ERRORS    E.EQ11   ERROR  W,*,(REDUNDANT EQUIVALENCE SPECIFICATION)                       FEAT126A     184          I
          -FCC1332
 ERRORS    E.EQ12   ERROR  F,*,(CONFLICT IN EQUIVALENCE SPECIFICATION)                     FEAT126A     185          I
          -FCC1332
 ERRORS    E.EQ11   ERROR  WS,*,(REDUNDANT EQUIVALENCE SPECIFICATION FOR FILL.)            FCC1332        5     A     
 ERRORS    E.EQ12   ERROR  FS,*,(CONFLICT IN EQUIVALENCE SPECIFICATION FOR FILL.)          FCC1332        6     A     
 ERRORS    E.EQ13   ERROR  FS,*,(NO DIMENSION FOUND FOR EQUIVALENCE VARIABLE FILL.         FEAT126A     186     A     
 ERRORS   ,)                                                                               FEAT126A     187     A     
 ERRORS    E.EQ14   ERROR  FS,*,(EXCESS SUBSCRIPTS ON EQUIVALENCE VARIABLE FILL.)          FEAT126A     188     A     
 ERRORS    E.EQ15   ERROR  WS,*,(MISSING SUBSCRIPTS SET TO 1 FOR EQUIVALENCE VARIA         FEAT126A     189     A     
 ERRORS   ,BLE FILL.)                                                                      FEAT126A     190     A     
 ERRORS    E.EQ16   ERROR  FS,*,(FILL. ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN)           FCC1573X       7     A     
 ERRORS    EXTERNAL EJECT  4,8                                                             ERRORS       683     A     
 ERRORS   **        EXTERNAL PROCESSOR.                                                    ERRORS       684     A     
 ERRORS                                                                                    ERRORS       685     A     
 ERRORS                                                                                    ERRORS       686     A     
 ERRORS    E.EX1    ERROR  NS,*,(FILL. ALREADY EXTERNAL)                                   ERRORS       687          I
          -FEAT126A 
 ERRORS    E.EX2    ERROR  FS,*,(SYNTAX -- EXPECTED COMMA FOUND FILL.)                     ERRORS       688          I
          -FEAT126A 
 ERRORS    E.EX1    ERROR  NS,*,(FILL. PREVIOUSLY DEFINED AS EXTERNAL)                     FEAT126A     191     A     
 ERRORS    E.EX2    ERROR  FS,*,(EXPECTED COMMA FOUND FILL.)                               FEAT126A     192     A     
 ERRORS    E.EX3    ERROR  WV,PSP,(PREMATURE E.O.S. -- EXPECTED VARIABLE AT FILL.)         ERRORS       689     A     
 ERRORS    E.EX4    ERROR  WS,*,(MUST NOT DECLARE ENTRY FILL. AS EXTERNAL -- IGNOR         ERRORS       690          I
          -FEAT126A 
 ERRORS   ,ED)                                                                             ERRORS       691          I
          -FEAT126A 
 ERRORS    E.EX4    ERROR  WS,*,(ENTRY FILL. MUST NOT BE DECLARED EXTERNAL -- IGNO         FEAT126A     193     A     
 ERRORS   ,RED)                                                                            FEAT126A     194     A     
 ERRORS    FORMAT   EJECT  4,8                                                             ERRORS       692     A     
 ERRORS   **        FORMAT PROCESSOR.                                                      ERRORS       693     A     
 ERRORS                                                                                    ERRORS       694     A     
 ERRORS                                                                                    ERRORS       695     A     
 ERRORS    E.FS1    ERROR  W,FMT6A,(FORMAT MUST HAVE STATEMENT LABEL)                      ERRORS       696     A     
 ERRORS    E.FS2    ERROR  F,PSN,(TERMINAL RIGHT PAREN MISSING)                            ERRORS       697     A     
 ERRORS    E.FS3    ERROR  F,*,(ONLY 9 PAREN LEVELS ALLOWED)                               ERRORS       698     A     
 ERRORS    E.FS4    ERROR  FS,*,(REPEAT COUNT IS NOT ALLOWED BEFORE THE FIELD DESC         ERRORS       699     A     
 ERRORS   ,RIPTOR FILL.)                                                                   ERRORS       700     A     
 ERRORS    E.FS5    ERROR  W,*,(T CODE RESETS COLUMN POINTER, OVERLAYING PREVIOUS          ERRORS       701          I
          -FEAT126A 
 ERRORS   ,LINE IMAGE)                                                                     ERRORS       702          I
          -FEAT126A 
 ERRORS    E.FS5    ERROR  W,*,(T CODE RESETS COLUMN POINTER , OVERLAYING CURRENT          FEAT126A     195     A     
 ERRORS   ,LINE)                                                                           FEAT126A     196     A     
 ERRORS    E.FS5A   ERROR  A,*,(T EDIT IS NULL OR ZERO, COLUMN POINTER RESET AT ON         ERRORS       703          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 645    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
          -FEAT126A 
 ERRORS   ,E)                                                                              ERRORS       704          I
          -FEAT126A 
 ERRORS    E.FS6    ERROR  F,*,(SIGNED COUNT ALLOWED ONLY BEFORE P OR NX CODE)             ERRORS       705          I
          -FEAT126A 
 ERRORS    E.FS5A   ERROR  A,*,(T CODE IS NULL OR ZERO , COLUMN POINTER RESET AT 1         FEAT126A     197     A     
 ERRORS   ,)                                                                               FEAT126A     198     A     
 ERRORS    E.FS6    ERROR  F,*,(SIGNED COUNT ALLOWED ONLY BEFORE P OR X CODE)              FEAT126A     199     A     
 ERRORS    E.FS6A   ERROR  A,*,(S CODE IS SPECIFIED)                                       ERRORS       706     A     
 ERRORS    E.FS7    ERROR  AS,*,(SKIP COUNT FOR X CODE IS PRECEDED BY FILL.)               ERRORS       707          I
          -FEAT126AA
 ERRORS    E.FS7    ERROR  AS,*,(SKIP COUNT FOR X CODE IS PRECEEDED BY FILL.)              FEAT126AA      7          I
          -FCC0787
 ERRORS    E.FS7    ERROR  AS,*,(SKIP COUNT FOR X CODE IS PRECEDED BY FILL.)               FCC0787       14     A     
 ERRORS    E.FS7A   ERROR  W,*,(BACKSPACE ATTEMPTED BEYOND FIRST COLUMN -- COLUMN          ERRORS       708          I
          -FEAT126A 
 ERRORS   ,POINTER RESET TO FIRST COLUMN)                                                  ERRORS       709          I
          -FEAT126A 
 ERRORS    E.FS7A   ERROR  W,*,(X CODE RESETS COLUMN POINTER , OVERLAYING CURRENT          FEAT126A     200     A     
 ERRORS   ,LINE)                                                                           FEAT126A     201     A     
 ERRORS    E.FS7B   ERROR  A,*,(X CODE PRECEDED BY NON-DIGIT -- 1X ASSUMED)                ERRORS       710          I
          -FCC0498
 ERRORS    E.FS7B   ERROR  A,*,(X CODE PRECEDED BY NON- DIGIT -- 1X ASSUMED)               FCC0498        9          I
          -FEAT126AA
 ERRORS    E.FS7C   ERROR  A,*,(X CODE PRECEDED BY ZERO -- X CODE IGNORED)                 ERRORS       711          I
          -FEAT126AA
 ERRORS    E.FS7B   ERROR  A,*,(X CODE PRECEEDED BY NON- DIGIT -- 1X ASSUMED)              FEAT126AA      8          I
          -FCC0787
 ERRORS    E.FS7C   ERROR  A,*,(X CODE PRECEEDED BY ZERO -- X CODE IGNORED)                FEAT126AA      9          I
          -FCC0787
 ERRORS    E.FS7B   ERROR  A,*,(X CODE PRECEDED BY NON- DIGIT -- 1 X ASSUMED)              FCC0787       15     A     
 ERRORS    E.FS7C   ERROR  A,*,(X CODE PRECEDED BY ZERO -- X CODE IGNORED)                 FCC0787       16     A     
 ERRORS    E.FS8    ERROR  AS,*,(FILL. IS SPECIFIED AS CONVERSION CODE)                    ERRORS       712     A     
 ERRORS    E.FS8A   ERROR  F,*,(ZERO IS SPECIFIED AS REPEAT COUNT)                         ERRORS       713     A     
 ERRORS    E.FS8B   ERROR  FS,*,(FIELD WIDTH OF THE CONVERSION CODE FILL. IS ZERO          ERRORS       714          I
          -FEAT126A 
 ERRORS   ,OR NOT SPECIFIED)                                                               ERRORS       715          I
          -FEAT126A 
 ERRORS    E.FS8B   ERROR  FS,*,(FIELD WIDTH OF CONVERSION CODE FILL. IS ZERO OR N         FEAT126A     202     A     
 ERRORS   ,OT SPECIFIED)                                                                   FEAT126A     203     A     
 ERRORS    E.FS8C   ERROR  AS,*,(MINIMUM DIGITS IS SPECIFIED FOR THE CONVERSION CO         ERRORS       716     A     
 ERRORS   ,DE FILL.)                                                                       ERRORS       717     A     
 ERRORS    E.FS8D   ERROR  AS,*,(DECIMAL POINT IS NOT SPECIFIED FOR THE CONVERSION         ERRORS       718     A     
 ERRORS   , CODE FILL.)                                                                    ERRORS       719     A     
 ERRORS    E.FS8E   ERROR  AS,*,(EXPONENT LENGTH IS SPECIFIED FOR THE CONVERSION C         ERRORS       720     A     
 ERRORS   ,ODE FILL.)                                                                      ERRORS       721     A     
 ERRORS    E.FS8F   ERROR  WS,*,(FIELD WIDTH OF CONVERSION CODE FILL. IS LESS THAN         ERRORS       722          I
          -FEAT126A 
 ERRORS   , THE MINIMUM REQUIRED)                                                          ERRORS       723          I
          -FEAT126A 
 ERRORS    E.FS8F   ERROR  WS,*,(FILL. CONVERSION CODE FIELD WIDTH IS LESS THAN MI         FEAT126A     204     A     
 ERRORS   ,NIMUM REQUIRED)                                                                 FEAT126A     205     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 646    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS    E.FS9    ERROR  A,*,(EQUAL SIGN = IS SPECIFIED FOR A DIGIT)                     ERRORS       724     A     
 ERRORS    E.FS10   ERROR  F,*,(COUNT FOR H CODE IS ZERO OR MISSING -- SCAN STOPS)         ERRORS       725          I
          -FEAT126A 
 ERRORS    E.FS11   ERROR  F,*,(REOCRD LENGTH EXCEEDS 131,071 COLUMNS)                     ERRORS       726          I
          -FEAT126A 
 ERRORS    E.FS10   ERROR  F,*,(COUNT FOR H CODE ZERO OR MISSING -- SCAN STOPPED)          FEAT126A     206     A     
 ERRORS    E.FS11   ERROR  F,*,(RECORD LENGTH EXCEEDS 2**17-1 COLUMNS)                     FEAT126A     207     A     
 ERRORS    E.FS11A  ERROR  W,*,(RECORD LENGTH EXCEEDS 137 COLUMNS -- MAY EXCEED I/         ERRORS       727     A     
 ERRORS   ,O DEVICE)                                                                       ERRORS       728     A     
 ERRORS    E.FS14   ERROR  FS,*,(UNKNOWN FORMAT CODE FILL. -- SCAN RESUMES AT NEXT         ERRORS       729     A     
 ERRORS   , SEPARATOR)                                                                     ERRORS       730     A     
 ERRORS    E.FS18   ERROR  FS,*,(CHARACTER FILL. FOUND BEYOND TERMINAL RIGHT PAREN         ERRORS       731          I
          -FEAT126A 
 ERRORS   ,)                                                                               ERRORS       732          I
          -FEAT126A 
 ERRORS    E.FS18   ERROR  FS,*,(CHARACTER FILL. FOUND AFTER TERMINAL RIGHT PAREN)         FEAT126A     208     A     
 ERRORS    E.FS18A  ERROR  F,*,(TERMINAL RIGHT PAREN MISSING)                              ERRORS       733     A     
 ERRORS    E.FS23   ERROR  F,*,(FORMAT LABEL PREVIOUSLY REFERENCED AS DO STATEMENT         ERRORS       734     A     
 ERRORS   , LABEL)                                                                         ERRORS       735     A     
 ERRORS    E.FS24   ERROR  F,*,(FORMAT LABEL PREVIOUSLY REFERENCED AS CONTROL STAT         ERRORS       736     A     
 ERRORS   ,EMENT LABEL)                                                                    ERRORS       737     A     
 ERRORS    E.FS26   ERROR  F,*,(DUPLICATE DEFINITION OF CURRENT FORMAT NUMBER)             ERRORS       738          I
          -FEAT126A 
 ERRORS    E.FS26   ERROR  F,*,(MULTIPLE DEFINITION OF CURRENT FORMAT NUMBER)              FEAT126A     209     A     
 ERRORS    GOTO     EJECT  4,8                                                             ERRORS       739     A     
 ERRORS   **        GO TO   STATEMENT.                                                     ERRORS       740     A     
 ERRORS                                                                                    ERRORS       741     A     
 ERRORS                                                                                    ERRORS       742     A     
 ERRORS    E.GO     ERROR  F,PSN,(SYNTAX IN GO TO STATEMENT)                               ERRORS       743          I
          -FEAT126A 
 ERRORS    E.GO     ERROR  F,PSN,(SYNTAX ERROR IN GO TO STATEMENT)                         FEAT126A     210     A     
 ERRORS    E.GO1    ERROR  F,PSN,(OBJECT OF GO TO MISSING)                                 ERRORS       744     A     
 ERRORS    E.GO1A   ERROR  W,*,(OBJECT OF GO TO NOT INTEGER VARIABLE)                      ERRORS       745     A     
 ERRORS    E.GO2    ERROR  N,CUS.RET,(NULL TRANSFER STATEMENT -- TRANSFER IGNORED)         ERRORS       746     A     
 ERRORS    E.GO2A   ERROR  N,CUS.RET,(IF RESULTS IN A NULL TRANSFER -- TEST IGNORE         ERRORS       747          I
          -FEAT126A 
 ERRORS   ,D)                                                                              ERRORS       748          I
          -FEAT126A 
 ERRORS    E.GO2A   ERROR  N,CUS.RET,(IF RESULTS IN A NULL TRANSFER -- STATEMENT I         FEAT126A     211          I
          -FCC1636X 
 ERRORS   ,GNORED)                                                                         FEAT126A     212          I
          -FCC1636X 
 ERRORS    E.GO2A   ERROR  N,*,(IF RESULTS IN A TRANSFER TO THE NEXT LINE)                 FCC1636X       8     A     
 ERRORS    E.GO3    ERROR  FS,PSN,(EXPECTED LEFT PAREN -- FOUND FILL.)                     ERRORS       749     A     
 ERRORS    E.GO4    ERROR  A,*,(REQUIRES COMMA BEFORE VARIABLE NAME IN COMPUTED GO         ERRORS       750          I
          -FEAT126A 
 ERRORS   , TO)                                                                            ERRORS       751          I
          -FEAT126A 
 ERRORS    E.GO5    ERROR  A,*,(REQUIRES COMMA AFTER VARIABLE NAME IN ASSIGNED GO          ERRORS       752          I
          -FEAT126A 
 ERRORS   ,TO)                                                                             ERRORS       753          I
          -FEAT126A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 647    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS    E.GO4    ERROR  A,*,(COMMA BEFORE VARIABLE NAME IN COMPUTED GO TO IS RE         FEAT126A     213     A     
 ERRORS   ,QUIRED)                                                                         FEAT126A     214     A     
 ERRORS    E.GO5    ERROR  A,*,(COMMA AFTER VARIABLE NAME IN ASSIGNED GO TO IS REQ         FEAT126A     215     A     
 ERRORS   ,UIRED)                                                                          FEAT126A     216     A     
 ERRORS    E.GO7    ERROR  W,*,(STATEMENT TRANSFERS TO ITSELF)                             ERRORS       754     A     
 ERRORS    E.GO8    ERROR  N,*,(STATEMENT CAN TRANSFER TO ITSELF)                          ERRORS       755     A     
 ERRORS    E.GO9    ERROR  A,*,(COMPUTED GO TO INDEX MUST BE SIMPLE VARIABLE)              ERRORS       756     A     
 ERRORS    E.GO10   ERROR  F,*,(COMPUTED GO TO INDEX MUST NOT BE LOGICAL)                  ERRORS       757     A     
 ERRORS    E.GO11   ERROR  A,*,(COMPUTED GO TO INDEX MUST BE INTEGER)                      ERRORS       758     A     
 ERRORS    HOLLER   EJECT  4,8                                                             ERRORS       759     A     
 ERRORS   **        CONVERSION OF HOLLERITH CONSTANTS.                                     ERRORS       760     A     
 ERRORS                                                                                    ERRORS       761     A     
 ERRORS                                                                                    ERRORS       762     A     
 ERRORS    E.HC1    ERROR  F,*,(ZERO LENGTH SPECIFIED ON HOLLERITH CONSTANT)               ERRORS       763     A     
 ERRORS    E.HC2    ERROR  F,*,(E.O.S. BEFORE HOLLERITH COUNT EXHAUSTED)                   ERRORS       764          I
          -FEAT126A 
 ERRORS    E.HC2    ERROR  F,*,(E.O.S. BEFORE END OF HOLLERITH COUNT)                      FEAT126A     217     A     
 ERRORS    E.HC3    ERROR  FS,*,(TERMINAL DELIMITER FILL. MISSING)                         ERRORS       765     A     
 ERRORS    E.HC4    ERROR  FS,*,(NO CHARACTERS FOUND IN FILL. DELIMITED HOLLERITH          ERRORS       766     A     
 ERRORS   ,STRING)                                                                         ERRORS       767     A     
 ERRORS    E.HC5    ERROR  A,*,(NON- ANSI HOLLERITH FORM)                                  FCC0498       10     A     
 ERRORS    IF       EJECT  4,8                                                             ERRORS       768     A     
 ERRORS   **        IF PROCESSOR.                                                          ERRORS       769     A     
 ERRORS                                                                                    ERRORS       770     A     
 ERRORS                                                                                    ERRORS       771     A     
 ERRORS    E.IF     ERROR  F,PSN,(ILLEGAL IF STATEMENT -- OBJECT MISSING)                  ERRORS       772     A     
 ERRORS    E.IF1    ERROR  A,*,(ARITHMETIC IF MUST HAVE 3 BRANCH LABELS)                   ERRORS       773          I
          -FCC0481
 ERRORS    E.IF1    ERROR  A,*,(2 BRANCH IF IS NON- ANSI)                                  FCC0481        4     A     
 ERRORS    E.IF2    ERROR  A,*,(OBJECT OF IF IS ILLEGAL DO TERMINATOR)                     ERRORS       774     A     
 ERRORS    E.IF3    ERROR  FV,PSN,(ILLEGAL OBJECT OF IF -- TROUBLE STARTED AT FILL         ERRORS       775     A     
 ERRORS   ,.)                                                                              ERRORS       776     A     
 ERRORS    E.IF4    ERROR  WS,*,(THIS IF RESULTS IN A SIMPLE TRANSFER TO STATEMENT         ERRORS       777          I
          -FEAT126A 
 ERRORS   , INDICATED)                                                                     ERRORS       778          I
          -FEAT126A 
 ERRORS    E.IF4    ERROR  WS,*,(IF RESULTS IN A SIMPLE TRANSFER)                          FEAT126A     218          I
          -FCC1238
 ERRORS    E.IF4    ERROR  W,*,(IF RESULTS IN A SIMPLE TRANSFER)                           FCC1238        4     A     
 ERRORS    E.IF5    ERROR  W,*,(LAST IF RESULTS IN A NULL TRANSFER TO THIS STATEME         ERRORS       779     A     
 ERRORS   ,NT)                                                                             ERRORS       780     A     
 ERRORS    E.IF6    ERROR  F,PSN,(INVALID OBJECT OF LOGICAL IF)                            ERRORS       781          I
          -FEAT126A 
 ERRORS    E.IF6    ERROR  F,PSN,(ILLEGAL OBJECT OF LOGICAL IF)                            FEAT126A     219     A     
 ERRORS    E.IF7    ERROR  F,*,(3 BRANCH IF NOT DEFINED FOR LOGICAL RESULTS)               ERRORS       782     A     
 ERRORS    E.IF8    ERROR  A,*,(COMPLEX EXPRESSION IN AN IF STATEMENT)                     ERRORS       783     A     
 ERRORS    E.AT6    ERROR  F,*,(ILLEGAL USE OF ASSIGNMENT OPERATOR)                        ERRORS       784          I
          -FCC0498
 ERRORS    E.IF9    ERROR  F,IFS11,(ARITHMETIC IF HAS STATEMENT AS OBJECT)                 ERRORS       785     A     
 ERRORS    E.IF10   ERROR  F,PSN,(ONLY ONE LABEL IN IF STATEMENT)                          ERRORS       786          I
          -FEAT126A 
 ERRORS    E.IF10   ERROR  F,PSN,(ONLY 1 LABEL IN IF STATEMENT)                            FEAT126A     220     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 648    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS    E.IF11   ERROR  F,PSN,(LOGICAL IF MUST NOT BE OBJECT OF LOGICAL IF)             ERRORS       787     A     
 ERRORS    E.IF12   ERROR  F,PSN,(TOO MANY LABELS IN LOGICAL IF)                           ERRORS       788     A     
 ERRORS    E.IF13   ERROR  F,PSN,(MISSING LABEL IN ARITHMETIC IF)                          FCC1703X       5     A     
 ERRORS    I/O      EJECT  4,8                                                             ERRORS       789     A     
 ERRORS   **        I/O PROCESSOR.                                                         ERRORS       790     A     
 ERRORS                                                                                    ERRORS       791     A     
 ERRORS                                                                                    ERRORS       792     A     
 ERRORS    E.IO     ERROR  FS,PSN,(UNIT DESIGNATOR FILL. MUST BE SIMPLE INTEGER VA         ERRORS       793          I
          -FEAT126A 
 ERRORS   ,RIABLE OR CONSTANT)                                                             ERRORS       794          I
          -FEAT126A 
 ERRORS    E.IO     ERROR  FS,PSN,(UNIT DESIGNATOR FILL. NOT SIMPLE INTEGER VARIAB         FEAT126A     221     A     
 ERRORS   ,LE OR CONSTANT)                                                                 FEAT126A     222     A     
 ERRORS    E.IO1    ERROR  F,PSN,(MISSING UNIT DESIGNATOR IN I/O STATEMENT)                ERRORS       795     A     
 ERRORS    E.IO2    ERROR  W,*,(EXTRANEOUS COMMA IGNORED)                                  ERRORS       796     A     
 ERRORS    E.IO3    ERROR  F,PSN,(UNIT DESIGNATOR EXCEEDS TWO DIGITS)                      ERRORS       797          I
          -FEAT126A 
 ERRORS    E.IO3    ERROR  F,PSN,(UNIT DESIGNATOR EXCEEDS 2 DIGITS)                        FEAT126A     223     A     
 ERRORS    E.IO6    ERROR  WV,*,(EXTRA CHARACTERS FILL. AFTER FILE NAME IGNORED)           ERRORS       798     A     
 ERRORS    E.IO62   ERROR  WS,*,(EXTRA CHARACTER FILL. AFTER FILE NAME IGNORED)            ERRORS       799     A     
 ERRORS    E.IO7    ERROR  F,PSN,(FORMAT DESIGNATOR MISSING)                               ERRORS       800     A     
 ERRORS    E.IO8    ERROR  FV,*,(MISSING RIGHT PAREN AFTER UNIT IS ASSUMED)                ERRORS       801          I
          -FCC0787
 ERRORS    E.IO8    ERROR  F,*,(MISSING RIGHT PAREN AFTER UNIT IS ASSUMED)                 FCC0787       17     A     
 ERRORS    E.IO9    ERROR  WV,*,(ASSUMED COMMA AFTER UNIT OR FORMAT -- FOUND FILL.         ERRORS       802     A     
 ERRORS   ,)                                                                               ERRORS       803     A     
 ERRORS    E.IO11   ERROR  F,PSN,(PREMATURE E.O.S. IN I/O SUBSCRIPT)                       ERRORS       804     A     
 ERRORS    E.IO12   ERROR  F,PSN,(EXCESS LEFT PAREN IN I/O SUBSCRIPT)                      ERRORS       805     A     
 ERRORS    E.IO13   ERROR  WV,LST,(TERMINAL CHARACTER FILL. CHANGED TO RIGHT PAREN         ERRORS       806          I
          -FEAT126A 
 ERRORS   ,)                                                                               ERRORS       807          I
          -FEAT126A 
 ERRORS    E.IO13   ERROR  WV,LST,(TERMINAL CHARACTER FILL. CONVERTED TO RIGHT PAR         FEAT126A     224     A     
 ERRORS   ,EN)                                                                             FEAT126A     225     A     
 ERRORS    E.IO14   ERROR  K,E.ZA,(IMPLIED DO NOT TERMINATED)                              ERRORS       808          I
          -FCC0990
 ERRORS    E.IO14   ERROR  F,PSN,(IMPLIED DO NOT TERMINATED)                               FCC0990        6     A     
 ERRORS    E.IO15   ERROR  A,*,(ERR= IS NON- ANSI)                                         ERRORS       809          I
          -FEAT126A 
 ERRORS    E.IO16   ERROR  N,*,(ERR= IS IGNORED)                                           ERRORS       810          I
          -FEAT126A 
 ERRORS    E.IO17   ERROR  A,*,(END= IS NON- ANSI)                                         ERRORS       811          I
          -FEAT126A 
 ERRORS    E.IO18   ERROR  W,*,(END= IS IGNORED ON WRITE STATEMENT)                        ERRORS       812          I
          -FEAT126A 
 ERRORS    E.IO19   ERROR  WV,*,(FOUND FILL. AFTER FORMAT -- ASSUMED RIGHT PAREN)          ERRORS       813     A     
 ERRORS    E.IO20   ERROR  F,LST,(MISSING RIGHT PAREN AFTER FORMAT IS ASSUMED)             ERRORS       814     A     
 ERRORS    E.IO21   ERROR  WV,*,(FILL. IS NOT A LEGAL KEYWORD)                             ERRORS       815     A     
 ERRORS    E.IO22   ERROR  W,*,(ERR= SPECIFIED TWICE)                                      ERRORS       816          I
          -FEAT126A 
 ERRORS    E.IO23   ERROR  W,*,(END= SPECIFIED TWICE)                                      ERRORS       817          I
          -FEAT126A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 649    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS    E.IO24   ERROR  N,*,(END= IS IGNORED)                                           ERRORS       818          I
          -FEAT126A 
 ERRORS    E.IO25   ERROR  F,LST,(UNFORMATED I/O NOT ALLOWED IN THIS STATEMENT)            ERRORS       819     A     
 ERRORS    E.IO26   ERROR  A,*,(ANSI REQUIRES AN I/O LIST)                                 ERRORS       820     A     
 ERRORS    E.IO27   ERROR  F,PSN,(THIS STATEMENT REQUIRES AN I/O LIST)                     ERRORS       821     A     
 ERRORS    E.IO28   ERROR  A,*,(LIST DIRECTED I/O IS NON- ANSI)                            ERRORS       822     A     
 ERRORS    E.IO29   ERROR  F,PSN,(ZERO IS AN ILLEGAL UNIT NUMBER)                          ERRORS       823     A     
 ERRORS                                                                                    ERRORS       824     A     
 ERRORS    E.IOB1   ERROR  F,BUFERR,(BUFFER DIRECTION INDICATOR MUST BE IN OR OUT)         ERRORS       825     A     
 ERRORS    E.IOB2   ERROR  F,BUFERR,(BUFFER I/O PARITY INDICATOR MUST BE INTEGER C         ERRORS       826     A     
 ERRORS   ,ONSTANT OR VARIABLE)                                                            ERRORS       827     A     
 ERRORS    E.IOB3   ERROR  F,BUFERR,(SYNTAX -- BEGINNING LEFT PAREN MISSING)               ERRORS       828          I
          -FCC0597
 ERRORS    E.IOB4   ERROR  FV,BUFERR,(SYNTAX -- EXPECTED COMMA AFTER UNIT DESIGNAT         ERRORS       829          I
          -FCC0597
 ERRORS   ,OR -- FOUND FILL.)                                                              ERRORS       830          I
          -FCC0597
 ERRORS    E.IOB5   ERROR  FV,BUFERR,(SYNTAX -- EXPECTED RIGHT PAREN AFTER PARITY          ERRORS       831          I
          -FCC0597
 ERRORS   ,INDICATOR -- FOUND FILL.)                                                       ERRORS       832          I
          -FCC0597
 ERRORS    E.IOB6   ERROR  FV,BUFERR,(SYNTAX -- EXPECTED LEFT PAREN BEFORE FWA --          ERRORS       833          I
          -FCC0597
 ERRORS   ,FOUND FILL.)                                                                    ERRORS       834          I
          -FCC0597
 ERRORS    E.IOB3   ERROR  FV,BUFERR,(EXPECTED LEFT PAREN -- FOUND FILL.)                  FCC0597        7     A     
 ERRORS    E.IOB4   ERROR  FV,BUFERR,(EXPECTED COMMA -- FOUND FILL.)                       FCC0597        8     A     
 ERRORS    E.IOB5   ERROR  FV,BUFERR,(EXPECTED RIGHT PAREN -- FOUND FILL.)                 FCC0597        9     A     
 ERRORS    E.IOB7   ERROR  F,BUFERR,(BUFFER I/O ADDRESS MUST BE VARIABLE)                  ERRORS       835     A     
 ERRORS    E.IOB8   ERROR  F,BUFERR,(BUFFER I/O PARITY INDICATOR VALUE MUST BE 0 O         ERRORS       836          I
          -FCC0593
 ERRORS   ,R 1)                                                                            ERRORS       837          I
          -FCC0593
 ERRORS    E.IOB9   ERROR  F,BUFERR,(BUFFER I/O FWA AND LWA MUST BE IN SAME ARRAY          ERRORS       838          I
          -FCC0593
 ERRORS   ,COMMON OR EQUIV CLASS)                                                          ERRORS       839          I
          -FCC0593
 ERRORS    E.IOB8   ERROR  F,BUFERR,(BUFFER I/O PARITY INDICATOR VALUE MUST BE ZER         FCC0593        6     A     
 ERRORS   ,O OR 1)                                                                         FCC0593        7     A     
 ERRORS    E.IOB9   ERROR  W,BLWA,(FWA AND LWA NOT IN SAME ARRAY , EQUIVALENCE CLA         FCC0593        8     A     
 ERRORS   ,SS , OR COMMON BLOCK)                                                           FCC0593        9     A     
 ERRORS    E.IOB10  ERROR  F,BUFERR,(BUFFER I/O LWA MUST BE GREATER THAN OR EQUAL          ERRORS       840     A     
 ERRORS   ,TO FWA)                                                                         ERRORS       841     A     
 ERRORS                                                                                    ERRORS       842     A     
 ERRORS    E.IOD1   ERROR  F,PSN,(EXCESS LEFT PAREN IN I/O LIST)                           ERRORS       843     A     
 ERRORS    E.IOD2   ERROR  F,PSN,(SYNTAX IN I/O IMPLIED DO)                                ERRORS       844          I
          -FEAT126A 
 ERRORS    E.IOD2   ERROR  F,PSN,(SYNTAX ERROR IN I/O IMPLIED DO)                          FEAT126A     226     A     
 ERRORS    E.IOD3   ERROR  F,PSN,(EXCESS RIGHT PAREN IN I/O LIST)                          ERRORS       845     A     
 ERRORS    E.IOD4   ERROR  FV,CPM,(EXPECTED COMMA -- FOUND FILL.)                          FCC1769X       7     A     
 ERRORS                                                                                    ERRORS       846     A     
 ERRORS    E.IOL1   ERROR  F,*,(EXPRESSION IN INPUT LIST IS ILLEGAL)                       ERRORS       847     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 650    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS    E.IOL2   ERROR  F,*,(CONSTANT IN INPUT LIST IS ILLEGAL)                         ERRORS       848     A     
 ERRORS    E.IOL3   ERROR  N,*,(IMPLIED LOOP IS REDUCED)                                   ERRORS       849     A     
 ERRORS    E.IOL4   ERROR  F,*,(/ NOT ALLOWED IN FORMATTED I/O OR UNFORMATED INPUT         ERRORS       850     A     
 ERRORS   , LIST)                                                                          ERRORS       851     A     
 ERRORS    E.IOL5   ERROR  F,LST5,(FORMATTED I/O OR UNFORMATED INPUT LIST CANNOT E         ERRORS       852          I
          -FEAT155B 
 ERRORS   ,ND WITH  COMMA)                                                                 ERRORS       853          I
          -FEAT126A 
 ERRORS   ,ND WITH COMMA)                                                                  FEAT126A     227          I
          -FEAT155B 
 ERRORS    E.IOL5   ERROR  F,LST5,(ONLY LIST DIRECTED OUTPUT STATEMENTS MAY END WI         FEAT155B       5     A     
 ERRORS   ,TH A COMMA)                                                                     FEAT155B       6     A     
 ERRORS    IOFMT    SPACE  4,8                                                             ERRORS       854     A     
 ERRORS   **        FORMAT REFERENCED IN I/O.                                              ERRORS       855     A     
 ERRORS                                                                                    ERRORS       856     A     
 ERRORS                                                                                    ERRORS       857     A     
 ERRORS    E.IOF    ERROR  AS,*,(FORMAT INDICATOR FILL. MUST BE ARRAY)                     ERRORS       858     A     
 ERRORS    E.IOF1   ERROR  F,*,(FORMAT INDICATOR MUST NOT BE EXPRESSION)                   ERRORS       859     A     
 ERRORS    E.ION    ERROR  W,LST5,(I/O LIST IGNORED WHEN USING NAMELIST)                   ERRORS       860     A     
 ERRORS    E.ION1   ERROR  A,*,(NAMELIST I/O IS NON- ANSI)                                 ERRORS       861     A     
 ERRORS    E.IOP    ERROR  N,*,(REDUNDANT PAREN IN I/O LIST)                               ERRORS       862          I
          -FCC0787
 ERRORS    XXCODE   SPACE  4,8                                                             ERRORS       863     A     
 ERRORS   **        ENCODE / DECODE.                                                       ERRORS       864     A     
 ERRORS                                                                                    ERRORS       865     A     
 ERRORS                                                                                    ERRORS       866     A     
 ERRORS    E.IOS1   ERROR  FV,PSP,(EXPECTED LEFT PAREN BEFORE COUNT -- FOUND FILL.         ERRORS       867     A     
 ERRORS   ,)                                                                               ERRORS       868     A     
 ERRORS    E.IOS2   ERROR  FV,PSP,(EXPECTED COMMA AFTER  COUNT -- FOUND FILL.)             ERRORS       869     A     
 ERRORS    E.IOS3   ERROR  FS,PSP,(FORMAT INDICATOR FILL. IS NAMELIST NAME)                ERRORS       870     A     
 ERRORS    E.IOS4   ERROR  FV,PSP,(EXPECTED COMMA AFTER FORMAT INDICATOR -- FOUND          ERRORS       871     A     
 ERRORS   ,FILL.)                                                                          ERRORS       872     A     
 ERRORS    E.IOS5   ERROR  FV,PSP,(EXPECTED RIGHT PAREN AFTER STRING ADDRESS -- FO         ERRORS       873     A     
 ERRORS   ,UND FILL.)                                                                      ERRORS       874     A     
 ERRORS    E.IOS6   ERROR  F,PSP,(PREMATURE E.O.S. IN ENCODE OR DECODE)                    ERRORS       875     A     
 ERRORS    E.IOS7   ERROR  F,PSP,(STRING ADDRESS MUST BE ARRAY ELEMENT OR SIMPLE V         ERRORS       876     A     
 ERRORS   ,ARIABLE)                                                                        ERRORS       877     A     
 ERRORS    E.IOS9   ERROR  F,PSP,(ILLEGAL CHARACTER COUNT)                                 ERRORS       878     A     
 ERRORS    E.IOS10  ERROR  FV,PSP,(ILLEGAL FORMAT INDICATOR FILL.)                         ERRORS       879     A     
 ERRORS    NAMLST   EJECT  4,8                                                             ERRORS       880     A     
 ERRORS   **        NAMELIST PROCESSING.                                                   ERRORS       881     A     
 ERRORS                                                                                    ERRORS       882     A     
 ERRORS                                                                                    ERRORS       883     A     
 ERRORS    E.LN     ERROR  F,PSP,(SYNTAX ERROR IN NAMELIST)                                ERRORS       884     A     
 ERRORS    E.LN1    ERROR  F,PSP,(MISSING SLASH ON GROUP NAME)                             ERRORS       885     A     
 ERRORS    E.LN2    ERROR  FV,PSP,(EXPECTED NAME -- FOUND FILL.)                           ERRORS       886     A     
 ERRORS    E.LN3    ERROR  FV,PSP,(GROUP NAME FILL. PREVIOUSLY DEFINED)                    ERRORS       887     A     
 ERRORS    E.LN4    ERROR  F,PSP,(VARIABLE DIMENSION NOT PERMITTED IN NAMELIST)            ERRORS       888     A     
 ERRORS    PARENS   EJECT  4,8                                                             ERRORS       889     A     
 ERRORS   **        PARENTHESIS MIS-MATCH.                                                 ERRORS       890     A     
 ERRORS   *         FIRST 2 PROCESSED BY *TAB* WHEN TRANSLATING A STATEMENT                ERRORS       891     A     
 ERRORS   *         NEXT 2 PROCESSED WHEN ENCOUNTERED BY PARSER.                           ERRORS       892     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 651    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS                                                                                    ERRORS       893     A     
 ERRORS                                                                                    ERRORS       894     A     
 ERRORS    E.LP1    ERROR  F,*,(TOO FEW RIGHT PAREN)                                       ERRORS       895     A     
 ERRORS    E.LP2    ERROR  F,*,(TOO FEW LEFT PAREN)                                        ERRORS       896     A     
 ERRORS    E.LP3    ERROR  FV,*,(TOO FEW RIGHT PAREN OR PREVIOUS SYNTAX ERROR -- S         ERRORS       897     A     
 ERRORS   ,CAN STOPPED AT FILL.)                                                           ERRORS       898     A     
 ERRORS    E.LP4    ERROR  FV,*,(TOO FEW LEFT PAREN OR PREVIOUS SYNTAX ERROR -- SC         ERRORS       899     A     
 ERRORS   ,AN STOPPED AT FILL.)                                                            ERRORS       900     A     
 ERRORS    CPMLOOP  SPACE  4,30                                                            ERRORS       901     A     
 ERRORS   **        LEVEL PROCESSING                                                       ERRORS       902     A     
 ERRORS                                                                                    ERRORS       903     A     
 ERRORS                                                                                    ERRORS       904     A     
 ERRORS    E.LV1    ERROR  F,PSP,(INTEGER 1,2 OR 3 MUST FOLLOW LEVEL)                      ERRORS       905          I
          -FEAT126A 
 ERRORS    E.LV1    ERROR  F,PSP,(INTEGER 1 , 2 OR 3 MUST FOLLOW LEVEL)                    FEAT126A     228     A     
 ERRORS    E.LV2    ERROR  F,PSP,(COMMA MUST FOLLOW LEVEL NUMBER)                          ERRORS       906     A     
 ERRORS    E.LV3    ERROR  F,PSP,(MISSING VARIABLE OR ARRAY NAME IN LEVEL LIST)            ERRORS       907     A     
 ERRORS    E.LV4    ERROR  WS,LVL8,(MULTIPLY DEFINED LEVEL FOR NAME FILL. -- IGNOR         ERRORS       908     A     
 ERRORS   ,ED)                                                                             ERRORS       909     A     
 ERRORS    E.LV5    ERROR  F,PSP,(COMMA OR E.O.S. MUST FOLLOW LEVEL LIST NAME)             ERRORS       910     A     
 ERRORS    E.LV6    ERROR  FS,*,(NAME FILL. IS LEVEL AND MUST BE COMMON OR DUMMY A         ERRORS       911     A     
 ERRORS   ,RGUMENT)                                                                        ERRORS       912     A     
 ERRORS    E.LV7    ERROR  FS,*,(LEVEL CONFLICT IN COMMON BLOCK FILL.)                     ERRORS       913     A     
 ERRORS    E.LV8    ERROR  NS,*,(NOT ALL NAMES IN COMMON BLOCK FILL. ARE IN LEVEL          ERRORS       914          I
          -FEAT126A 
 ERRORS   ,STATEMENT)                                                                      ERRORS       915          I
          -FEAT126A 
 ERRORS    E.LV9    ERROR  FS,*,(NAME FILL. IS IN EQUIV. GROUP THAT IS LEVEL AND M         ERRORS       916          I
          -FEAT126A 
 ERRORS   ,UST BE COMMON)                                                                  ERRORS       917          I
          -FEAT126A 
 ERRORS    E.LV8    ERROR  NS,*,(NOT EVERY NAME IN COMMON BLOCK FILL. IS IN A LEVE         FEAT126A     229     A     
 ERRORS   ,L STATEMENT)                                                                    FEAT126A     230     A     
 ERRORS    E.LV9    ERROR  FS,*,(NAME FILL. IS IN LEVEL EQUIVALENCE GROUP AND MUST         FEAT126A     231     A     
 ERRORS   , BE COMMON)                                                                     FEAT126A     232     A     
 ERRORS    E.LV10   ERROR  FS,*,(NAME FILL. IS IN EQUIV. GROUP THAT HAS LEVEL CONF         ERRORS       918     A     
 ERRORS   ,LICT)                                                                           ERRORS       919     A     
 ERRORS    E.LV11   ERROR  FS,*,(LEVEL 3 NAME FILL. MAY NOT OCCUR IN THIS STATEMEN         ERRORS       920     A     
 ERRORS   ,T)                                                                              ERRORS       921     A     
 ERRORS             EJECT                                                                  ERRORS       922     A     
 ERRORS   **        MASTER LOOP.                                                           ERRORS       923     A     
 ERRORS                                                                                    ERRORS       924     A     
 ERRORS                                                                                    ERRORS       925     A     
 ERRORS    E.FM     ERROR  F,CPM,(THIS IS NOT A FORTRAN STATEMENT)                         ERRORS       926     A     
 ERRORS    E.MA     ERROR  F,PSP,(STATEMENT FUNCTION DEFINITION MUST OCCUR BEFORE          ERRORS       927     A     
 ERRORS   ,FIRST EXECUTABLE)                                                               ERRORS       928     A     
 ERRORS    E.MB     ERROR  F,CPM2,(EXECUTABLE STATEMENT ILLEGAL IN BLOCK DATA SUBP         ERRORS       929     A     
 ERRORS   ,ROGRAM)                                                                         ERRORS       930     A     
 ERRORS    E.MCA    ERROR  A,AFSX,(ONLY "ANS.CONT" CONTINUATN CARDS ARE PERMITTED)         ERRORS       931          I
          -FEAT126A 
 ERRORS    E.MC1    ERROR  W,*,(INITIAL LINE IS CONTINUATN)                                ERRORS       932          I
          -FEAT126A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 652    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS    E.MCA    ERROR  A,AFSX,(ONLY "ANS.CONT" CONTINUATION CARDS ARE PERMITTE         FEAT126A     233          I
          -FCC0844
 ERRORS    E.MCA    ERROR  F,AFSX,(ONLY "ANS.CONT" CONTINUATION CARDS ARE PERMITTE         FCC0844        8     A     
 ERRORS   ,D)                                                                              FEAT126A     234     A     
 ERRORS    E.MC1    ERROR  W,*,(INITIAL LINE IS CONTINUATION)                              FEAT126A     235     A     
 ERRORS    E.MLNL   ERROR  F,*,(A C/-LIST DIRECTIVE CANNOT BE FOLLOWED BY A CONTIN         FEAT126B      29     A     
 ERRORS   ,UATION LINE)                                                                    FEAT126B      30     A     
 ERRORS                                                                                    ERRORS       933     A     
 ERRORS    E.MD     SA1    "SB.KEY"                                                        ERRORS       934     A     
 ERRORS             MX0    4*CHAR      PUT 1ST 4 CHARS OF KEY IN MESSAGE                   ERRORS       935     A     
 ERRORS             BX6    X0*X1                                                           ERRORS       936     A     
 ERRORS             SA6    FILL.                                                           ERRORS       937     A     
 ERRORS             ERROR  FS,PSP,(FILL. STATEMENT MUST OCCUR BEFORE FIRST STATEME         ERRORS       938          I
          -FEAT126A 
 ERRORS   ,NT FUNCTION DEFINITION)                                                         ERRORS       939          I
          -FEAT126A 
 ERRORS             ERROR  FS,PSP,(STATEMENT FUNCTION DEFINITION PRECEDED FILL. ST         FEAT126A     236          I
          -FEAT126AA
 ERRORS   ,ATEMENT)                                                                        FEAT126A     237          I
          -FEAT126AA
 ERRORS             ERROR  FS,PSP,(FILL. STATEMENT MISPLACED)                              FEAT126AA     10     A     
 ERRORS    E.MDO    ERROR  D,CPM5,(THIS STATEMENT MAY NOT BE A DO TERMINAL)                ERRORS       940          I
          -FEAT126A 
 ERRORS    E.MDO    ERROR  F,CPM5,(THIS STATEMENT MAY NOT BE A DO TERMINAL)                FEAT126A     238          I
          -FCC0743
 ERRORS    E.MDO    ERROR  F,*,(THIS STATEMENT MAY NOT BE A DO TERMINAL)                   FCC0743        8     A     
 ERRORS    E.ME     ERROR  P,END1B,(END LINE ABSENT)                                       ERRORS       941     A     
 ERRORS    E.MH     ERROR  F,PSP,(HEADER CARD NOT FIRST STATEMENT -- IGNORED)              ERRORS       942     A     
 ERRORS    E.MI     ERROR  F,PSP,(IMPLICIT STATEMENT MUST OCCUR BEFORE ANY DECLARA         ERRORS       943          I
          -FEAT126A 
 ERRORS   ,TIV)                                                                            ERRORS       944          I
          -FEAT126A 
 ERRORS    E.MI     ERROR  F,PSP,(IMPLICIT STATEMENT MUST OCCUR BEFORE DECLARATIVE         FEAT126A     239     A     
 ERRORS   ,S)                                                                              FEAT126A     240     A     
 ERRORS    E.MIJ    ERROR  W,PSP,(MULTIPLE IMPLICIT STATEMENTS NOT PERMITTED -- IG         FCC1258        4     A     
 ERRORS   ,NORED)                                                                          FCC1258        5     A     
 ERRORS    E.MN     ERROR  A,CKS65,(FILL. BLANK STATEMENTS WERE IGNORED)                   ERRORS       945     A     
 ERRORS    E.M$     ERROR  A,CKS67,(MULTIPLE STATEMENT PER CARD NOT PERMITTED)             ERRORS       946     A     
 ERRORS    E.M$2    ERROR  P,END1C,(MULTIPLE STATEMENT IGNORED AFTER END)                  ERRORS       947     A     
 ERRORS    E.M$3    ERROR  W,LCC68,(MULTIPLE STATEMENT IGNORED AFTER LOADER DIRECT         ERRORS       948          I
          -FCC1410
 ERRORS    E.M$3    ERROR  W,RUN.X,(MULTIPLE STATEMENT IGNORED AFTER LOADER DIRECT         FCC1410        6          I
          -FCC1390X 
 ERRORS    E.M$3    ERROR  F,END93,(MULTIPLE STATEMENT IGNORED AFTER LOADER DIRECT         FCC1390X       8     A     
 ERRORS   ,IVE)                                                                            ERRORS       949     A     
 ERRORS    E.MK     ERROR  PS,CPM6,(MISSPELLED KEYWORD -- FILL. FILL.2 ASSUMED)            ERRORS       950     A     
 ERRORS    E.ML     ERROR  W,*,(NULL STATEMENT WITH LABEL -- CONTINUE ASSUMED)             ERRORS       951     A     
 ERRORS                                                                                    ERRORS       952     A     
 ERRORS    E.MO1    ERROR  D,CKS,(PROGRAM LENGTH EXCEEDS 2**17-1)                          ERRORS       953          I
          -FEAT126A 
 ERRORS    E.MO2    ERROR  D,PSP.F,(TABLE OVERFLOW -- INCREASE F.L. AND RERUN)             ERRORS       954          I
          -FEAT126A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 653    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS    E.MO1    ERROR  F,CKS,(PROGRAM LENGTH EXCEEDS 2**17-1)                          FEAT126A     241     A     
 ERRORS    E.MO2    ERROR  F,PSP.F,(TABLE OVERFLOW -- INCREASE FIELD LENGTH AND RE         FEAT126A     242          I
          -FCC0931
 ERRORS   ,RUN)                                                                            FEAT126A     243          I
          -FCC0931
 ERRORS    E.MO2    ERROR  F,*,(TABLE OVERFLOW -- INCREASE FIELD LENGTH AND RERUN)         FCC0931        5     A     
 ERRORS             IFNE   .CMLOD,,1                                                       ERRORS       955     A     
 ERRORS    E.MO3    ERROR  P,*,(NO COMPILE TO CORE -- NOT ENOUGH CORE)                     ERRORS       956     A     
 ERRORS    TEST     IFNE   TEST                                                            ERRORS       957     A     
 ERRORS    E.MO4    ERROR  P,*,(SCRATCH FILE SPILLS TO DISK)                               ERRORS       958     A     
 ERRORS    E.MO5    ERROR  P,*,(REFERENCE FILE SPILLS TO DISK)                             ERRORS       959     A     
 ERRORS    TEST     ENDIF                                                                  ERRORS       960     A     
 ERRORS                                                                                    ERRORS       961     A     
 ERRORS    E.MR1    ERROR  F,PSP,(PREMATURE E.O.S OR MISSING RIGHT PAREN)                  ERRORS       962          I
          -FEAT126C 
 ERRORS    E.MR1    ERROR  F,PSP,(PREMATURE E.O.S. OR MISSING RIGHT PAREN)                 FEAT126C      79     A     
 ERRORS   */DELETE UNNECESSARY CODE                                                        ERRORS       963          I
          -FCC0498
 ERRORS    E.MR2    ERROR  WV,PSP,(PREMATURE E.O.S. OR EXTRA TRAILING SEPARATOR FI         ERRORS       964     A     
 ERRORS   ,LL.)                                                                            ERRORS       965     A     
 ERRORS    E.MR3    ERROR  F,PSP,(PREMATURE E. O. S.)                                      ERRORS       966          I
          -FEAT126C 
 ERRORS    E.MR3    ERROR  F,PSP,(PREMATURE E.O.S.)                                        FEAT126C      80     A     
 ERRORS    E.MRA    ERROR  FS,*,(RETURNS PARAMETER FILL. NOT ALLOWED IN THIS STATE         ERRORS       967     A     
 ERRORS   ,MENT)                                                                           ERRORS       968     A     
 ERRORS    E.MS     ERROR  DS,*,(STATEMENT LABEL FILL. REFERENCED BUT NOT DEFINED)         ERRORS       969          I
          -FEAT126A 
 ERRORS    E.MS     ERROR  FS,*,(STATEMENT LABEL FILL. REFERENCED BUT NOT DEFINED)         FEAT126A     244     A     
 ERRORS    E.MT     ERROR  P,RUN.X,(TRIVIAL PROGRAM UNIT IGNORED)                          ERRORS       970          I
          -FCC1390X 
 ERRORS    E.MT     ERROR  P,END93,(TRIVIAL PROGRAM UNIT IGNORED)                          FCC1390X       9     A     
 ERRORS                                                                                    ERRORS       971     A     
 ERRORS    E.NLN    ERROR  W,*,(FOLLOWING STATEMENT DOES NOT BEGIN WITH SEQUENCE N         ERRORS       972          I
          -FEAT126A 
 ERRORS   ,UMBER -- COMMENT ASSUMED)                                                       ERRORS       973          I
          -FEAT126A 
 ERRORS    E.NLN    ERROR  W,*,(NO SEQUENCE NUMBER FOUND ON FOLLOWING STATEMENT --         FEAT126A     245     A     
 ERRORS   , COMMENT ASSUMED)                                                               FEAT126A     246     A     
 ERRORS                                                                                    ERRORS       974     A     
 ERRORS    E.NP     ERROR  W,CUSX,(NO PATH TO THIS STATEMENT)                              ERRORS       975     A     
 ERRORS    E.NP1    ERROR  W,PSN,(NO PATH TO THE ENTIRE RANGE OF DO)                       ERRORS       976     A     
 ERRORS                                                                                    ERRORS       977     A     
 ERRORS    E.OV     ERROR  W,PSP,(NULL LOADER DIRECTIVE IS IGNORED)                        ERRORS       978     A     
 ERRORS    E.OV1    ERROR  F,PSP,(LOADER DIRECTIVE MUST BEGIN WITH LEFT PAREN)             ERRORS       979     A     
 ERRORS    .CMLOD   IFNE   .CMLOD                                                          ERRORS       980     A     
 ERRORS    E.OV2    ERROR  P,*,(NO COMPILE TO CORE -- LOADER DIRECTIVE)                    ERRORS       981     A     
 ERRORS    E.OV4    ERROR  P,*,(NO COMPILE TO CORE -- INTERMIXED COMPASS)                  ERRORS       982     A     
 ERRORS    .CMLOD   ENDIF                                                                  ERRORS       983     A     
 ERRORS                                                                                    ERRORS       984     A     
 ERRORS    E.OV3    ERROR  N,LCC66,(LOADER DIRECTIVE SHOULD BE CONTAINED ON ONE CA         ERRORS       985          I
          -FEAT126A 
 ERRORS   ,RD)                                                                             ERRORS       986          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 654    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
          -FEAT126A 
 ERRORS    E.OV3    ERROR  N,LCC66,(LOADER DIRECTIVE MUST BE CONTAINED ON 1 CARD)          FEAT126A     247     A     
 ERRORS                                                                                    ERRORS       987     A     
 ERRORS    E.PN1    ERROR  F,PSP,(SYNTAX ERROR IN PROGRAM UNIT NAME)                       ERRORS       988          I
          -FEAT155GA
 ERRORS    E.PN1    ERROR  F,*,(SYNTAX ERROR IN PROGRAM UNIT NAME)                         FEAT155GA     11     A     
 ERRORS    E.PN3    ERROR  N,*,(MISSING PROGRAM STATEMENT -- PROGRAM START. ASSUME         ERRORS       989     A     
 ERRORS   ,D)                                                                              ERRORS       990     A     
 ERRORS                                                                                    ERRORS       991          I
          -FCC1410
 ERRORS    LCC68    EQ     =XRUN.X                                                         ERRORS       992          I
          -FCC1410
 ERRORS    ENTRY    EJECT  4,8                                                             ERRORS       993     A     
 ERRORS   **        ENTRY PROCESSOR.                                                       ERRORS       994     A     
 ERRORS                                                                                    ERRORS       995     A     
 ERRORS                                                                                    ERRORS       996     A     
 ERRORS    E.PT     ERROR  WS,PSN,(NAME FILL. PREVIOUSLY DEFINED -- ENTRY STATEMEN         ERRORS       997     A     
 ERRORS   ,T IGNORED)                                                                      ERRORS       998     A     
 ERRORS    E.PT2    ERROR  W,*,(ENTRY INSIDE DO LOOP IS IGNORED)                           ERRORS       999     A     
 ERRORS    E.PT3    ERROR  W,PSN,(MISSING NAME -- ENTRY STATEMENT IGNORED)                 ERRORS      1000     A     
 ERRORS    E.PT1    ERROR  W,PSP,(ENTRY STATEMENT IGNORED IN MAIN PROGRAM)                 ERRORS      1001     A     
 ERRORS    E.PT4    ERROR  W,PSN,(ILLEGAL NAME -- ENTRY STATEMENT IGNORED)                 ERRORS      1002     A     
 ERRORS   */LONG NAMES IN EXTERNAL STATEMENT                                               ERRORS      1003          I
          -FCC0498
 ERRORS    SUBSPT   EJECT  4,8                                                             ERRORS      1004     A     
 ERRORS   **        SUBSCRIPT PROCESSOR.                                                   ERRORS      1005     A     
 ERRORS                                                                                    ERRORS      1006     A     
 ERRORS                                                                                    ERRORS      1007     A     
 ERRORS    E.SB2    ERROR  NS,*,(MISSING SUBSCRIPTS ON FILL. ARE ASSIGNED VALUE OF         ERRORS      1008     A     
 ERRORS   , ONE)                                                                           ERRORS      1009     A     
 ERRORS    E.SB3    ERROR  AS,*,(FORM OF SUBSCRIPT FILL.2 ON FILL. NOT DEFINED IN          ERRORS      1010     A     
 ERRORS   ,ANSI)                                                                           ERRORS      1011     A     
 ERRORS    E.SB4    ERROR  NS,*,(SUBSCRIPT FILL.2 FOR FILL. NOT INTEGER -- TRUNCAT         ERRORS      1012     A     
 ERRORS   ,ED)                                                                             ERRORS      1013     A     
 ERRORS    E.SB6    ERROR  FS,*,(SUBSCRIPT FILL.2 ON FILL. MUST NOT BE LOGICAL)            ERRORS      1014     A     
 ERRORS    E.SB7    ERROR  AS,*,(A TERM IN SUBSCRIPT FILL.2 ON FILL. IS NOT INTEGE         ERRORS      1015     A     
 ERRORS   ,R)                                                                              ERRORS      1016     A     
 ERRORS    E.SB8    ERROR  FS,*,(TOO MANY SUBSCRIPTS ON FILL.)                             FCC0498       11     A     
 ERRORS    ST.LAB   EJECT  4,8                                                             ERRORS      1017     A     
 ERRORS    E.SB8    ERROR  FS,*,(TOO MANY SUBSCRIPTS ON FILL.)                             ERRORS      1018          I
          -FCC0498
 ERRORS   **        STATEMENT LABEL PROCESSOR.                                             ERRORS      1019     A     
 ERRORS                                                                                    ERRORS      1020     A     
 ERRORS                                                                                    ERRORS      1021     A     
 ERRORS    E.SN     ERROR  FS,*,(MULTIPLY DEFINED STATEMENT LABEL FILL.)                   ERRORS      1022     A     
 ERRORS    E.SN1    ERROR  F,*,(PREVIOUS REFERENCE TO THIS DO LABEL IS ILLEGAL)            ERRORS      1023     A     
 ERRORS    E.SN2    ERROR  FS,*,(DO LOOP FILL.2 PREVIOUSLY DEFINED -- ILLEGAL NEST         ERRORS      1024     A     
 ERRORS   ,ING)                                                                            ERRORS      1025     A     
 ERRORS    E.SN3    ERROR  FS,*,(USAGE CONFLICT -- FILL.2 PREVIOUSLY DEFINED AS DO         ERRORS      1026     A     
 ERRORS   , TERMINAL)                                                                      ERRORS      1027     A     
 ERRORS    E.SN4    ERROR  FS,*,(USAGE CONFLICT -- FILL.2 PREVIOUSLY DEFINED AS FO         ERRORS      1028     A     
 ERRORS   ,RMAT)                                                                           ERRORS      1029     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 655    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS    E.SN5    ERROR  FS,*,(ILLEGAL TRANSFER TO FILL.2 FORMAT)                        ERRORS      1030     A     
 ERRORS    E.SN6    ERROR  FS,*,(ILLEGAL REFERENCE TO STATEMENT LABEL FILL. AS A F         ERRORS      1031     A     
 ERRORS   ,ORMAT)                                                                          ERRORS      1032     A     
 ERRORS    E.SN7    ERROR  FS,*,(PREVIOUS REFERENCE TO DO LABEL FILL.2 IS ILLEGAL)         ERRORS      1033     A     
 ERRORS    E.SN8    ERROR  FS,*,(PREVIOUS REFERENCE TO FORMAT LABEL FILL.2 IS ILLE         ERRORS      1034     A     
 ERRORS   ,GAL)                                                                            ERRORS      1035     A     
 ERRORS    E.SN9    ERROR  FS,*,(ILLEGAL TRANSFER TO DO FILL.2 TERMINATOR)                 ERRORS      1036     A     
 ERRORS    E.SN10   ERROR  FS,*,(ILLEGAL REFERENCE TO FORMAT STATEMENT LABEL FILL.         ERRORS      1037     A     
 ERRORS   ,2)                                                                              ERRORS      1038     A     
 ERRORS    E.SN12   ERROR  FS,*,(PREVIOUS TRANSFER TO FILL. IS FROM OUTSIDE CURREN         ERRORS      1039     A     
 ERRORS   ,T DO)                                                                           ERRORS      1040     A     
 ERRORS    E.SN13   ERROR  FS,*,(USAGE CONFLICT -- FILL. PREVIOUSLY USED AS A FORM         ERRORS      1041     A     
 ERRORS   ,AT LABEL)                                                                       ERRORS      1042     A     
 ERRORS    E.SN14   ERROR  FS,*,(STATEMENT LABEL FILL. EXCEEDS FIVE DIGITS)                ERRORS      1043          I
          -FEAT126A 
 ERRORS    E.SN14   ERROR  FS,*,(STATEMENT LABEL FILL. EXCEEDS 5 DIGITS)                   FEAT126A     248     A     
 ERRORS    E.SN15   ERROR  FS,*,(STATEMENT LABEL FILL. CONTAINS NON- DIGIT)                ERRORS      1044     A     
 ERRORS    E.SN16   ERROR  W,*,(STATEMENT LABEL ON NON- EXECUTABLE IGNORED)                ERRORS      1045          I
          -FCC0794
 ERRORS    E.SN16   ERROR  W,*,(STATEMENT LABEL IGNORED)                                   FCC0794        4     A     
 ERRORS    E.SN17   ERROR  FS,*,(THE TERMINAL STATEMENT OF DO FILL.2 PRECEDES THE          ERRORS      1046          I
          -FEAT126A 
 ERRORS    E.SN17   ERROR  FS,*,(THE TERMINAL STATEMENT OF DO FILL.2 PRECEDED THE          FEAT126A     249          I
          -FEAT126AA
 ERRORS   ,DO DEFINITION)                                                                  ERRORS      1047          I
          -FEAT126AA
 ERRORS    E.SN17   ERROR  FS,*,(THE TERMINAL STATEMENT OF DO FILL.2 PRECEEDED THE         FEAT126AA     11     A     
 ERRORS   , DO DEFINITION)                                                                 FEAT126AA     12     A     
 ERRORS    E.SN18   ERROR  F,PSN,(STATEMENT LABEL EXPECTED BUT NOT FOUND)                  ERRORS      1048     A     
 ERRORS    E.SN19   ERROR  F,*,(STATEMENT LABEL ZERO IS ILLEGAL)                           ERRORS      1049     A     
 ERRORS    E.SN20   ERROR  N,*,(STATEMENT LABEL ZERO IGNORED)                              ERRORS      1050     A     
 ERRORS    STNTBL   SPACE  4,8                                                             ERRORS      1051     A     
 ERRORS   *         STNTBL STATEMENT DECISION TABLE MACRO.                                 ERRORS      1052     A     
 ERRORS   *         FORMS JUMP ADDRESSES.                                                  ERRORS      1053     A     
 ERRORS                                                                                    ERRORS      1054     A     
 ERRORS                                                                                    ERRORS      1055     A     
 ERRORS    STNTBL   MACRO  DOT,FMT,LAB                                                     ERRORS      1056     A     
 ERRORS   .1        ECHO   ,P1=(DOT,FMT,LAB)                                               ERRORS      1057     A     
 ERRORS    A        MICRO  1,1, P1                                                         ERRORS      1058     A     
 ERRORS    .2       IFC    EQ,*OK*P1*                                                      ERRORS      1059     A     
 ERRORS             VFD    16/ISN60                                                        ERRORS      1060     A     
 ERRORS    .2       ELSE                                                                   ERRORS      1061     A     
 ERRORS    .3       IFC    EQ,*E*"A"*                                                      ERRORS      1062     A     
 ERRORS             VFD    1/1,15/P1                                                       ERRORS      1063     A     
 ERRORS    .3       ELSE                                                                   ERRORS      1064     A     
 ERRORS             VFD    16/P1                                                           ERRORS      1065     A     
 ERRORS    .3       ENDIF                                                                  ERRORS      1066     A     
 ERRORS    .2       ENDIF                                                                  ERRORS      1067     A     
 ERRORS   .1        ENDD                                                                   ERRORS      1068     A     
 ERRORS             VFD    *P/0                                                            ERRORS      1069     A     
 ERRORS    STNTBL   ENDM                                                                   ERRORS      1070     A     
 ERRORS    STNTD    SPACE  4,12                                                            ERRORS      1071     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 656    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS   *         STNTD  STATEMENT DECISION TABLE FOR LABEL DEFINED.                     ERRORS      1072     A     
 ERRORS                                                                                    ERRORS      1073     A     
 ERRORS             STNTBL DLAB,E.SN3,E.SN2      DO-TERMINATOR                             ERRORS      1074     A     
 ERRORS             STNTBL E.SN5,OK,E.SN4        FORMAT                                    ERRORS      1075     A     
 ERRORS    STNTD    STNTBL LABL,E.SN6,E.SN17     LABEL                                     ERRORS      1076     A     
 ERRORS    STNTND   SPACE  4,12                                                            ERRORS      1077     A     
 ERRORS   *         STNTND  STATEMENT DECISION TABLE FOR LABEL NOT-DEFINED.                ERRORS      1078     A     
 ERRORS                                                                                    ERRORS      1079     A     
 ERRORS             STNTBL OK,E.SN6,DODO         DO-TERMINATOR                             ERRORS      1080     A     
 ERRORS             STNTBL E.SN8,OK,E.SN7        FORMAT                                    ERRORS      1081     A     
 ERRORS    STNTND   STNTBL OK,E.SN10,OK                                                    ERRORS      1082          I
          -FCC1307
 ERRORS    STNTND   STNTBL OK,E.SN10,DODO                                                  FCC1307        8          I
          -FCC1728X 
 ERRORS    STNTND   STNTBL OK,E.SN10,LBDO                                                  FCC1728X       5     A     
 ERRORS             POPMAC STNTBL                                                          ERRORS      1083     A     
 ERRORS    SUBREF   EJECT  4,8                                                             ERRORS      1084     A     
 ERRORS   **        SUBROUTINE/FUNCTION REFERENCE PROCESSING.                              ERRORS      1085     A     
 ERRORS                                                                                    ERRORS      1086     A     
 ERRORS                                                                                    ERRORS      1087     A     
 ERRORS    E.SU2    ERROR  WS,*,(NUMBER OF ARGUMENTS IN REFERENCE TO FILL. IS NOT          ERRORS      1088     A     
 ERRORS   ,CONSISTENT)                                                                     ERRORS      1089     A     
 ERRORS    E.SU3    ERROR  FS,*,(ARGUMENT MODE MUST AGREE WITH TYPE DEFINED FOR LI         ERRORS      1090     A     
 ERRORS   ,BRARY FUNCTION FILL.)                                                           ERRORS      1091     A     
 ERRORS    E.SU4    ERROR  AS,*,(FILL. IS DEFINED BY C.D.C. TO BE INTRINSIC)               ERRORS      1092          I
          -FEAT126A 
 ERRORS    E.SU4A   ERROR  AS,*,(FILL. IS DEFINED BY C.D.C. TO BE B.E.F.)                  ERRORS      1093          I
          -FEAT126A 
 ERRORS    E.SU4    ERROR  AS,*,(FILL. IS DEFINED TO BE INTRINSIC)                         FEAT126A     250     A     
 ERRORS    E.SU4A   ERROR  AS,*,(FILL. IS DEFINED TO BE A BASIC EXTERNAL FUNCTION)         FEAT126A     251     A     
 ERRORS    E.SU6    ERROR  FS,*,(EXTERNAL ARGUMENT FILL. MUST BE DEFINED AS EXTERN         FCC1716X       9     A     
 ERRORS   ,AL)                                                                             FCC1716X      10     A     
 ERRORS    E.SU8    ERROR  FS,*,(ARGUMENT COUNT ON FILL. EXCEEDS "MAX.SARG")               ERRORS      1094     A     
 ERRORS    E.SU9    ERROR  FS,*,(ARGUMENT COUNT ON FILL.3 MUST BE MORE THAN ONE)           ERRORS      1095     A     
 ERRORS    E.SU10   ERROR  FS,*,(ARGUMENT COUNT DIFFERS FROM DEFINED FOR INTRINSIC         ERRORS      1096          I
          -FEAT126A 
 ERRORS   , FILL.3)                                                                        ERRORS      1097          I
          -FEAT126A 
 ERRORS    E.SU11   ERROR  W,*,(FUNCTION NAME IS NEVER ASSIGNED A VALUE)                   ERRORS      1098          I
          -FEAT126A 
 ERRORS    E.SU10   ERROR  FS,*,(ARGUMENT COUNT NOT EQUAL TO THAT DEFINED FOR INTR         FEAT126A     252     A     
 ERRORS   ,INSIC FILL.3)                                                                   FEAT126A     253     A     
 ERRORS    E.SU11   ERROR  W,*,(FUNCTION NAME IS NOT ASSIGNED A VALUE)                     FEAT126A     254          I
          -FCC1550X 
 ERRORS    E.SU11   ERROR  F,*,(FUNCTION NAME IS NOT ASSIGNED A VALUE)                     FCC1550X      10     A     
 ERRORS    E.SU12   ERROR  FV,*,(FILL. IS NOT A LEGAL TYPE)                                FCC2177        7     A     
 ERRORS             SPACE  4,5                                                             FEAT126C      81     A     
 ERRORS   **        STOP / PAUSE PROCESSING                                                ERRORS      1099     A     
 ERRORS                                                                                    ERRORS      1100     A     
 ERRORS                                                                                    ERRORS      1101     A     
 ERRORS    E.SPR    ERROR  WV,*,(UNKNOWN FORM -- BLANK ASSUMED)                            ERRORS      1102          I
          -FEAT126A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 657    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS    E.SPR    ERROR  W,*,(UNKNOWN FORM -- BLANK ASSUMED)                             FEAT126A     255     A     
 ERRORS    E.SPR1   ERROR  N,*,(HOLLERITH ARGUMENT MUST NOT EXCEED 70 CHARACTERS)          ERRORS      1103     A     
 ERRORS    E.SPR2   ERROR  N,*,(CONSTANT EXCEEDS 5 DIGITS -- TRUNCATED)                    ERRORS      1104     A     
 ERRORS    E.SPR3   ERROR  A,PSN,(PAUSE MAY NOT BE A DO TERMINAL)                          ERRORS      1105     A     
 ERRORS    E.SPR4   ERROR  A,*,(HOLLERITH ARGUMENT IS NON-ANSI)                            ERRORS      1106          I
          -FEAT126A 
 ERRORS    E.SPR4   ERROR  A,*,(HOLLERITH ARGUMENT IS NON- ANSI)                           FEAT126A     256     A     
 ERRORS    E.SPR5   ERROR  A,*,(OCTAL DIGITS REQUIRED)                                     FCC1046        8     A     
 ERRORS    PROFIL   EJECT  4,8                                                             ERRORS      1107     A     
 ERRORS   **        PROGRAM STATEMENT FILE DECLARATION.                                    ERRORS      1108     A     
 ERRORS                                                                                    ERRORS      1109     A     
 ERRORS                                                                                    ERRORS      1110     A     
 ERRORS    E.TC1    ERROR  WS,*,(FILE FILL. PREVIOUSLY DEFINED -- IGNORED)                 ERRORS      1111     A     
 ERRORS   E.TC2     ERROR  FV,PSP,(EXPECTED RIGHT PAREN OR COMMA  -- FOUND FILL.)          ERRORS      1112          I
          -FEAT126C 
 ERRORS    E.TC2    ERROR  FV,PSP,(EXPECTED RIGHT PAREN OR COMMA -- FOUND FILL.)           FEAT126C      82     A     
 ERRORS    E.TC3    ERROR  WS,PPA4,(ILLEGAL BUFFER LENGTH FOR FILE FILL. -- DEFAUL         ERRORS      1113          I
          -FCC1463X 
 ERRORS   ,T USED)                                                                         ERRORS      1114          I
          -FCC1463X 
 ERRORS    E.TC3    ERROR  WS,PPA4,(ILLEGAL BUFFER LENGTH FOR FILE FILL. -- 2003B          FCC1463X       8     A     
 ERRORS   ,USED)                                                                           FCC1463X       9     A     
 ERRORS    E.TC4    ERROR  WS,PPA4,(BUFFER LENGTH FOR FILE FILL. EXCEEDS 360000B -         ERRORS      1115          I
          -FCC1463X 
 ERRORS   ,- DEFAULT USED)                                                                 ERRORS      1116          I
          -FCC1463X 
 ERRORS    E.TC4    ERROR  WS,PPA355,(BUFFER LENGTH FOR FILE FILL. EXCEEDS 360000B         FCC1463X      10     A     
 ERRORS   , -- 360000B USED)                                                               FCC1463X      11     A     
 ERRORS    E.TC5    ERROR  W,*,(ONLY "MAX.PARG" FILES ARE PERMITTED -- EXCESS IGNO         ERRORS      1117     A     
 ERRORS   ,RED)                                                                            ERRORS      1118     A     
 ERRORS    E.TC6    ERROR  WS,PPA4,(FILE FILL.2 NOT DEFINED -- EQUIV. IGNORED)             ERRORS      1119          I
          -FEAT126A 
 ERRORS    E.TC7    ERROR  F,PSP,(EQUAL SIGN MUST BE FOLLOWED BY NAME OR NUMBER OR         ERRORS      1120          I
          -FEAT126A 
 ERRORS   , SLASH)                                                                         ERRORS      1121          I
          -FEAT126A 
 ERRORS    E.TC6    ERROR  WS,PPA4,(FILE FILL.2 NOT DEFINED -- EQUIVALENCE IGNORED         FEAT126A     257     A     
 ERRORS   ,)                                                                               FEAT126A     258     A     
 ERRORS    E.TC7    ERROR  F,PSP,(EQUAL SIGN MUST BE FOLLOWED BY NAME , NUMBER OR          FEAT126A     259     A     
 ERRORS   ,SLASH)                                                                          FEAT126A     260     A     
 ERRORS    E.TC9    ERROR  WS,PPA4,(ILLEGAL RECORD LENGTH FOR FILE FILL. -- DEFAUL         ERRORS      1122     A     
 ERRORS   ,T USED)                                                                         ERRORS      1123     A     
 ERRORS    E.TC10   ERROR  WS,PPA4,(RECORD LENGTH FOR FILE FILL. EXCEEDS 2**17-1 -         ERRORS      1124     A     
 ERRORS   ,- DEFAULT USED)                                                                 ERRORS      1125     A     
 ERRORS    E.TC12   ERROR  FS,*,(FILE NAME FILL.2 EXCEEDS 6 CHARACTERS)                    ERRORS      1126          I
          -FEAT126A 
 ERRORS    E.TC11   ERROR  FV,PSP,(SYNTAX ERROR IN PROGRAM CARD -- SCAN STOPPED AT         ERRORS      1127          I
          -FCC0775
 ERRORS   , FILL.)                                                                         ERRORS      1128          I
          -FCC0775
 ERRORS    E.TC11   ERROR  FV,*,(SYNTAX ERROR IN PROGRAM CARD -- SCAN STOPPED AT F         FCC0775        7     A     
 ERRORS   ,ILL.)                                                                           FCC0775        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 658    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS    TRANS    EJECT  4,8                                                             ERRORS      1129     A     
 ERRORS   **        TRANSLATION OF VARIABLE SECTION.                                       ERRORS      1130     A     
 ERRORS                                                                                    ERRORS      1131     A     
 ERRORS                                                                                    ERRORS      1132     A     
 ERRORS    E.TE1    ERROR  FS,*,(REFERENCE TO VARIABLE FILL. AS A FUNCTION OR ARRA         ERRORS      1133     A     
 ERRORS   ,Y)                                                                              ERRORS      1134     A     
 ERRORS    E.TE2    ERROR  FS,*,(REFERENCE TO FUNCTION FILL. REQUIRES AN ARGUMENT          ERRORS      1135     A     
 ERRORS   ,LIST)                                                                           ERRORS      1136     A     
 ERRORS    E.TE2B   ERROR  FS,*,(REFERENCE TO B.E.F. FILL. REQUIRES AN ARGUMENT LI         FCC0718        5     A     
 ERRORS   ,ST)                                                                             FCC0718        6     A     
 ERRORS    E.TE2A   ERROR  FS,*,(REFERENCE TO INTRINSIC FILL. REQUIRES AN ARGUMENT         ERRORS      1137     A     
 ERRORS   , LIST)                                                                          ERRORS      1138     A     
 ERRORS    E.TE3    ERROR  FS,*,(SUBROUTINE FILL. REFERENCE AS A FUNCTION)                 ERRORS      1139     A     
 ERRORS    E.TE4    ERROR  AS,*,(ARRAY FILL. MISSING SUBSCRIPT -- FIRST ELEMENT AS         ERRORS      1140     A     
 ERRORS   ,SUMED)                                                                          ERRORS      1141     A     
 ERRORS    E.TE5    ERROR  FS,PSN,(SYNTAX ERROR -- EXPECTED SYMBOL BUT FOUND FILL.         ERRORS      1142          I
          -FEAT126A 
 ERRORS   , -- SCAN OF CARD STOPPED)                                                       ERRORS      1143          I
          -FEAT126A 
 ERRORS    E.TE5    ERROR  FS,PSN,(EXPECTED SYMBOL BUT FOUND FILL. -- SCAN OF CARD         FEAT126A     261     A     
 ERRORS   , STOPPED)                                                                       FEAT126A     262     A     
 ERRORS    E.TE7    ERROR  PS,*,(NAME EXCEEDS 7 CHARACTERS -- TRUNCATED TO FILL.)          ERRORS      1144     A     
 ERRORS    E.TE8    ERROR  F,*,(LEFT SIDE OF EQUAL SIGN IS ILLEGAL)                        ERRORS      1145     A     
 ERRORS    TYPE     EJECT  4,8                                                             ERRORS      1146     A     
 ERRORS   **        TYPE PROCESSOR.                                                        ERRORS      1147     A     
 ERRORS                                                                                    ERRORS      1148     A     
 ERRORS                                                                                    ERRORS      1149     A     
 ERRORS    E.TT     ERROR  WS,*,(TYPING OF FILL. IGNORED -- PRIOR TYPING RETAINED)         ERRORS      1150     A     
 ERRORS    E.TY     ERROR  FS,PSP,(SYNTAX -- EXPECTED COMMA FOUND FILL.)                   ERRORS      1151          I
          -FEAT126A 
 ERRORS    E.TY1    ERROR  W,*,(CONFLICT IN RANGE INDICATOR -- FIRST HOLDS)                ERRORS      1152          I
          -FEAT126A 
 ERRORS    E.TY2    ERROR  NS,*,(*SIZE SPEC ON FILL. IS IGNORED)                           ERRORS      1153          I
          -FEAT126A 
 ERRORS    E.TY3    ERROR  A,PSP,(*SIZE WAS USED FILL. TIMES)                              ERRORS      1154          I
          -FEAT126A 
 ERRORS    E.TY     ERROR  FS,PSP,(EXPECTED COMMA FOUND FILL.)                             FEAT126A     263     A     
 ERRORS    E.TY1    ERROR  W,*,(CONFLICT IN RANGE INDICATOR -- FIRST RETAINED)             FEAT126A     264     A     
 ERRORS    E.TY2    ERROR  NS,*,(*SIZE SPECIFIED ON FILL. IS IGNORED)                      FEAT126A     265          I
          -FCC1237
 ERRORS    E.TY3    ERROR  A,PSP,(*SIZE IS USED FILL. TIMES)                               FEAT126A     266          I
          -FCC1237
 ERRORS    E.TYA    ERROR  A,*,(THE WORD TYPE IS NOT PERMITTED)                            ERRORS      1155     A     
 ERRORS    E.TYH    ERROR  F,PSP,(TYPE MUST BE FOLLOWED BY A TYPE INDICATOR)               ERRORS      1156     A     
 ERRORS    E.TYIK   ERROR  FV,IMP.ER,(FILL. IS NOT A LEGAL TYPE)                           ERRORS      1157     A     
 ERRORS    E.TYI1   ERROR  FV,IMP.ER,(EXPECTED LEFT PAREN -- FOUND FILL.)                  ERRORS      1158     A     
 ERRORS    E.TYI2   ERROR  FS,IMP.ER,(RANGE INDICATOR FILL. MUST BE A LETTER)              ERRORS      1159     A     
 ERRORS    E.TYI3   ERROR  WS,*,(RANGE INDICATOR FILL. NOT SINGLE LETTER -- TRUNCA         ERRORS      1160          I
          -FEAT126A 
 ERRORS   ,TED TO FILL.3)                                                                  ERRORS      1161          I
          -FEAT126A 
 ERRORS    E.TYI4   ERROR  FS,*,(RANGE BACKWARD -- FILL.2 NOT LESS THAN FILL. -- T         ERRORS      1162          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 659    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
          -FEAT126A 
 ERRORS   ,RUNCATED)                                                                       ERRORS      1163          I
          -FEAT126A 
 ERRORS    E.TYI3   ERROR  WS,*,(RANGE INDICATOR FILL. NOT 1 LETTER -- TRUNCATED T         FEAT126A     267     A     
 ERRORS   ,O FILL.3)                                                                       FEAT126A     268     A     
 ERRORS    E.TYI4   ERROR  FS,*,(ILLEGAL RANGE -- FILL.2 NOT LESS THAN FILL. -- TR         FEAT126A     269     A     
 ERRORS   ,UNCATED)                                                                        FEAT126A     270     A     
 ERRORS    E.TYI5   ERROR  WS,*,(TRIVIAL RANGE -- FILL.2 SAME AS FILL.)                    ERRORS      1164     A     
 ERRORS    E.TYI6   ERROR  FV,IMP.ER,(EXPECTED RIGHT PAREN -- FOUND FILL.)                 ERRORS      1165     A     
 ERRORS    E.TYI7   ERROR  FV,IMP.ER,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.)          ERRORS      1166     A     
 ERRORS    IOUNIT   SPACE  4,15                                                            ERRORS      1167     A     
 ERRORS   **        I/O UNIT DESIGNATOR.                                                   ERRORS      1168     A     
 ERRORS                                                                                    ERRORS      1169     A     
 ERRORS                                                                                    ERRORS      1170     A     
 ERRORS    E.UE     ERROR  F,PSN,(I/O UNIT DESIGNATOR MUST BE INTEGER)                     ERRORS      1171     A     
 ERRORS    E.UE1    ERROR  F,PSN,(I/O UNIT DESIGNATOR MUST BE SIMPLE VARIABLE)             ERRORS      1172     A     
 ERRORS    E.UE2    ERROR  WS,*,(I/O FILE FILL. NOT DEFINED)                               ERRORS      1173     A     
 ERRORS                                                                                    FCC0585        4     A     
 ERRORS    E.US1    ERROR  FS,PSN,(CHARACTER FILL. NOT DEFINED IN STANDARD FORTRAN         ERRORS      1174     A     
 ERRORS   , -- SCAN OF CARD STOPPED)                                                       ERRORS      1175          I
          -FEAT126A 
 ERRORS   , -- CARD SCAN STOPPED)                                                          FEAT126A     271     A     
 ERRORS                                                                                    ERRORS      1176     A     
 ERRORS    E.VA1    ERROR  FS,*,(USAGE CONFLICT -- FILL. PREVIOUSLY USED AS FILL.2         ERRORS      1177     A     
 ERRORS   ,)                                                                               ERRORS      1178     A     
 ERRORS    E.VA2    ERROR  A,*,(DOES NOT ALLOW SHORT FORMS OF LOGICAL OPERATORS)           ERRORS      1179          I
          -FCC0498
 ERRORS    E.VA2    ERROR  A,*,(DOES NOT ALLOW SHORT FORMS OF LOGICAL OPERATORS OR         FCC0498       12          I
          -FEAT126A 
 ERRORS   , CONSTANTS)                                                                     FCC0498       13          I
          -FEAT126A 
 ERRORS    E.VA2    ERROR  A,*,(SHORT FORMS OF LOGICAL OPERATORS OR CONSTANTS NOT          FEAT126A     272     A     
 ERRORS   ,ALLOWED)                                                                        FEAT126A     273     A     
 ERRORS    E.VA3    ERROR  FS,PSP,(ILLEGAL USE OF ENTRY FILL.)                             FCC0585        5     A     
 ERRORS    E.VD     ERROR  FS,CCT8,(USAGE CONFLICT -- FILL. IS FILL.2 AND CANNOT B         ERRORS      1180          I
          -FCC0835
 ERRORS   ,E FILL.3)                                                                       ERRORS      1181          I
          -FCC0835
 ERRORS    E.VD     ERROR  FS,*,(USAGE CONFLICT -- FILL. IS FILL.2 AND CANNOT BE F         FCC0835        6     A     
 ERRORS   ,ILL.3)                                                                          FCC0835        7     A     
 ERRORS                                                                                    FCC0585        6     A     
 ERRORS    E.XC     ERROR  WV,*,(SYNTAX -- EXPECTED E.O.S. -- FOUND AND IGNORED FI         ERRORS      1182          I
          -FEAT126A 
 ERRORS   ,LL.)                                                                            ERRORS      1183          I
          -FEAT126A 
 ERRORS    E.XC1    ERROR  WV,PSP,(SYNTAX -- EXPECTED E.O.S. -- FOUND AND IGNORED          ERRORS      1184          I
          -FEAT126A 
 ERRORS   ,FILL.)                                                                          ERRORS      1185          I
          -FEAT126A 
 ERRORS    E.XC     ERROR  WV,*,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.)               FEAT126A     274     A     
 ERRORS    E.XC1    ERROR  WV,PSP,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.)             FEAT126A     275     A     
 ERRORS    EXP      EJECT                                                                  ERRORS      1186     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 660    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS   **        EXP PROCESSOR                                                          ERRORS      1187     A     
 ERRORS                                                                                    ERRORS      1188     A     
 ERRORS                                                                                    ERRORS      1189     A     
 ERRORS    E.XP1    ERROR  F,*,(OPERAND TO ** OPERATOR MUST NOT BE LOGICAL)                ERRORS      1190     A     
 ERRORS    E.XP2    ERROR  F,*,(COMPLEX MUST ONLY BE RAISED TO INTEGER POWER)              ERRORS      1191     A     
 ERRORS    E.XP3    ERROR  N,*,(ZERO ** ZERO -- RESULTS INDEFINITE)                        ERRORS      1192     A     
 ERRORS    E.XP4    ERROR  N,*,(INTEGER ** NEGATIVE CONSTANT -- RESULTS ZERO)              ERRORS      1193     A     
 ERRORS    E.XP5    ERROR  W,*,(EVALUATION OF CONSTANTS WILL RESULT IN OUT OF RANG         ERRORS      1194          I
          -FEAT126A 
 ERRORS   ,E OR INDEFINITE RESULTS)                                                        ERRORS      1195          I
          -FEAT126A 
 ERRORS    E.XP5    ERROR  W,*,(RESULT OF CONSTANT EVALUATION WILL BE OUT OF RANGE         FEAT126A     276     A     
 ERRORS   , OR INDEFINITE)                                                                 FEAT126A     277     A     
 ERRORS    SYSTEM   EJECT                                                                  ERRORS      1196     A     
 ERRORS   **        *SYSTEM* ERROR  --  COMPILER MALFUNCTION                               ERRORS      1197     A     
 ERRORS                                                                                    ERRORS      1198     A     
 ERRORS    E.ZA     ERROR  K,RUN.X,( **** COMPILE ERROR **** )                             ERRORS      1199          I
          -FEAT126A 
 ERRORS    E.ZA     ERROR  K,RUN.X,( ** ** COMPILE ERROR ** ** )                           FEAT126A     278          I
          -FCC0990
 ERRORS    E.ZA     ERROR  K,PSP.Z,( ** ** COMPILE ERROR ** ** )                           FCC0990        7     A     
 ERRORS                                                                                    ERRORS      1200     A     
 ERRORS   *** END                                                                          ERRORS      1201     A     
 ERRORS             PURGMAC ERROR      NEEDED NO LONGER                                    ERRORS      1202     A     
 ERRORS    ERRTYP   SPACE  4,20                                                            FEAT126A     279     A     
 ERRORS   **        ERRTYP - TABLE OF ERROR FLAG WORDS.                                    FEAT126A     280     A     
 ERRORS                                                                                    FEAT126A     281     A     
 ERRORS    ERRTYP   BSS    0           TABLE OF ERROR FLAG WORDS                           FEAT126A     282     A     
 ERRORS             LOC    0                                                               FEAT126A     283     A     
 ERRORS   ****                                                                             FEAT126A     284     A     
 ERRORS    ANSI     ERRTYP X,(ANSI)                                                        FEAT126A     285     A     
 ERRORS    CONTINUE ERRTYP 1,( )                                                           FEAT126A     286     A     
 ERRORS    FATAL    ERRTYP F,(FATAL)                                                       FEAT126A     287     A     
 ERRORS    KILL     ERRTYP F,(COMPILE)                                                     FEAT126A     288     A     
 ERRORS    NOTE     ERRTYP N,(NOTE)                                                        FEAT126A     289     A     
 ERRORS    PRINT    ERRTYP F,(-----)                                                       FEAT126A     290     A     
 ERRORS    WARN     ERRTYP W,(WARNING)                                                     FEAT126A     291     A     
 ERRORS   ****                                                                             FEAT126A     292     A     
 ERRORS    N.ERRT   BSS    0           NUMBER OF ERROR TYPES                               FEAT126A     293     A     
 ERRORS             LOC    *O                                                              FEAT126A     294     A     
 ERRORS    ERRTYP   HERE                                                                   FEAT126A     295     A     
 ERRORS    E=TOTAL  DATA   0           COUNT OF ALL ERRORS IN STATEMENT                    FEAT126A     296     A     
 ERRORS             PURGMAC ERRTYP                                                         FEAT126A     297     A     
 ERRORS                                                                                    ERRORS      1203          I
          -FEAT126C 
 ERRORS                                                                                    ERRORS      1204          I
          -FEAT126C 
 ERRORS    A        DECMIC E.TOTAL                                                         ERRORS      1205          I
          -FEAT126C 
 ERRORS             LIST   A           E.TOTAL                                             ERRORS      1206          I
          -FEAT126C 
 ERRORS    E.TOTAL  SET    "A"                                                             ERRORS      1207          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 661    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
          -FEAT126C 
 ERRORS             LIST   *                                                               ERRORS      1208          I
          -FEAT126C 
 ERRORS    ANSI     EJECT                                                                  ERRORS      1209     A     
 ERRORS   **        ANSI - CHECK ANSI-LISTING FLAG.                                        ERRORS      1210     A     
 ERRORS   *         ENTRY  (B7) _ ERROR ADDRESS.                                           ERRORS      1211     A     
 ERRORS   *         USES   SAME AS *PWE*.                                                  ERRORS      1212     A     
 ERRORS   *         CALLS  PWE.                                                            ERRORS      1213     A     
 ERRORS                                                                                    ERRORS      1214     A     
 ERRORS                                                                                    ERRORS      1215     A     
 ERRORS    ANSI8    RJ     PWE         PRINT WARNING ERROR                                 ERRORS      1216     A     
 ERRORS                                                                                    ERRORS      1217     A     
 ERRORS    ANSI=    SUBR   0                                                               ERRORS      1218     A     
 ERRORS    ANSI.SW  EQ     ANSIX       FLIP-FLOP FOR *LA* OPTION                           ERRORS      1219          I
          -FEAT126C 
 ERRORS    ANSI.SW  EQ     ANSIX       FLIP-FLOP FOR *EL=A* OPTION                         FEAT126C      83     A     
 ERRORS    -        EQ     ANSI8       IF ON                                               ERRORS      1220     A     
 ERRORS    LLN      SPACE  4,8         LLN                                                 ERRORS      1221     A     
 ERRORS   **        LLN -  LIST LONG ERRORS.                                               ERRORS      1222     A     
 ERRORS   *                                                                                ERRORS      1223     A     
 ERRORS   *         LLN    IF NORMAL ERROR.                                                ERRORS      1224     A     
 ERRORS   *         LLNS   IF DIAGNOSTIC PRESETS *FILL.N*.                                 ERRORS      1225     A     
 ERRORS   *         LLNV   IF NEEDS FILLER FROM *SB*.                                      ERRORS      1226     A     
 ERRORS   *                                                                                ERRORS      1227     A     
 ERRORS   *         ENTRY  (B7) _ FWA OF MESSAGE TO BE PRINTED.                            ERRORS      1228     A     
 ERRORS   *                IF ENTERED THRU *LLNV*, (B4) _ START OF FILLER.                 ERRORS      1229     A     
 ERRORS   *                UP TO 10 CHARACTERS WILL BE PUT INTO "FILL.".                   ERRORS      1230     A     
 ERRORS   *                IF ENTERED THRU *LLNS*, *FILL.N* WORDS WILL BE                  ERRORS      1231     A     
 ERRORS   *                FORMATTED FOR ERROR.                                            ERRORS      1232     A     
 ERRORS   *         EXIT   FWA OF MESSAGE (B7) POINTS TO EXIT ADDRESS                      ERRORS      1233     A     
 ERRORS   *                A0,A7  B4  PRESERVED.                                           ERRORS      1234     A     
 ERRORS   *         CALLS  WOF                                                             ERRORS      1235     A     
 ERRORS                                                                                    ERRORS      1236     A     
 ERRORS                                                                                    ERRORS      1237     A     
 ERRORS   **        HERE IF DIAGNOSTIC _S TYPE.                                            ERRORS      1238     A     
 ERRORS   *         *FILL.N* WORDS WILL BE CONVERTED TO PROPER FORM FOR ERROR              ERRORS      1239     A     
 ERRORS   *                SKELETON.                                                       ERRORS      1240     A     
 ERRORS                                                                                    ERRORS      1241     A     
 ERRORS    LLNS     MX5    L.SYM                                                           ERRORS      1242     A     
 ERRORS             SB3    L.FILL                                                          ERRORS      1243     A     
 ERRORS             MX0    -CHAR                                                           ERRORS      1244     A     
 ERRORS    LLNS1    SA1    B3+FILL.-1                                                      ERRORS      1245     A     
 ERRORS             BX3    X5*X1                                                           ERRORS      1246     A     
 ERRORS             SX4    B0                                                              ERRORS      1247     A     
 ERRORS             BX2    -X0*X1                                                          ERRORS      1248     A     
 ERRORS             LX6    X1                                                              ERRORS      1249     A     
 ERRORS             NZ     X2,LLNS5    IF WORD ALREADY PACKED.                             ERRORS      1250     A     
 ERRORS             SX2    65B         FIRST CHARACTER FOR FILL.                           ERRORS      1251     A     
 ERRORS             NO                                                                     ERRORS      1252     A     
 ERRORS             IX6    X2+X3                                                           ERRORS      1253     A     
 ERRORS             SX4    DT.BIAS+11                                                      ERRORS      1254     A     
 ERRORS             LX6    60-CHAR                                                         ERRORS      1255     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 662    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS             ZR     X1,LLNS4    IF EMPTY WORD                                       ERRORS      1256     A     
 ERRORS    LLNS3    BX2    -X0*X1                                                          ERRORS      1257     A     
 ERRORS             AX1    CHAR                                                            ERRORS      1258     A     
 ERRORS             NZ     X2,LLNS5    IF END                                              ERRORS      1259     A     
 ERRORS             SX4    X4-1        UPDATE BIAS                                         ERRORS      1260     A     
 ERRORS             EQ     LLNS3       LOOP                                                ERRORS      1261     A     
 ERRORS                                                                                    ERRORS      1262     A     
 ERRORS    LLNS4    SX6    1R                                                              ERRORS      1263     A     
 ERRORS             SX4    DT.BIAS+1                                                       ERRORS      1264     A     
 ERRORS             LX6    -CHAR                                                           ERRORS      1265     A     
 ERRORS   *         EQ     LLNS5                                                           ERRORS      1266     A     
 ERRORS                                                                                    ERRORS      1267     A     
 ERRORS   *         PUT BIASED WORD BACK INTO FILL. REGION                                 ERRORS      1268     A     
 ERRORS                                                                                    ERRORS      1269     A     
 ERRORS    LLNS5    BX6    X4+X6                                                           ERRORS      1270     A     
 ERRORS             SB3    B3-B1                                                           ERRORS      1271     A     
 ERRORS             SA6    A1          RESET FILL.                                         ERRORS      1272     A     
 ERRORS             NZ     B3,LLNS1    IF NOT END OF *FILL.S*                              ERRORS      1273     A     
 ERRORS             EQ     LLN         CONTINUE..                                          ERRORS      1274     A     
 ERRORS                                                                                    ERRORS      1275     A     
 ERRORS                                                                                    ERRORS      1276     A     
 ERRORS   **        HERE IF DIAGNOSTIC _V TYPE.                                            ERRORS      1277     A     
 ERRORS   *         NEXT 10 CHARACTERS FROM *SB*, STARTING AT B4 WILL BE                   ERRORS      1278     A     
 ERRORS   *         ASSEMBLED INTO *FILL.*                                                 ERRORS      1279     A     
 ERRORS   *                                                                                ERRORS      1280     A     
 ERRORS   *         NOTE -                                                                 ERRORS      1281     A     
 ERRORS   *                WORKS ONLY ON A NORMALIZED *SB*.                                ERRORS      1282     A     
 ERRORS                                                                                    ERRORS      1283     A     
 ERRORS    LLNV     SA2    B4-1        DUMMY LOAD                                          ERRORS      1284          I
          -FCC0597
 ERRORS    LLNV     =A2    B4-1                                                            FCC0597       10     A     
 ERRORS             SA3    B4                                                              FCC0597       11     A     
 ERRORS             SB6    9*CHAR                                                          ERRORS      1285     A     
 ERRORS             MX0    -CHAR                                                           ERRORS      1286     A     
 ERRORS             SB2    DT.BIAS+1                                                       ERRORS      1287     A     
 ERRORS             SB3    X3                                                              FCC0597       12     A     
 ERRORS             SX6    65B         FIRST CHARACTER FOR FILL. = _.                      ERRORS      1288     A     
 ERRORS             ZR     X3,LLNV03   IF *SB* IS AT *EOS*                                 FCC0597       13     A     
 ERRORS                                                                                    ERRORS      1289     A     
 ERRORS    LLNV1    SA2    A2+B1                                                           ERRORS      1290     A     
 ERRORS             SB3    X2                                                              ERRORS      1291     A     
 ERRORS             ZR     X2,LLNV20   IF *EOS*                                            ERRORS      1292     A     
 ERRORS             SA1    B3+CHARMAP  LOAD MAPPING.                                       ERRORS      1293          I
          -FCC0597
 ERRORS    LLNV03   SA1    B3+CHARMAP                                                      FCC0597       14     A     
 ERRORS             NZ     X1,LLNV05   IF NOT *SYMBOL*                                     ERRORS      1294     A     
 ERRORS             BX1    X0*X2       USE *SB* CHARACTERS.                                ERRORS      1295     A     
 ERRORS             EQ     LLNV10                                                          ERRORS      1296     A     
 ERRORS                                                                                    ERRORS      1297     A     
 ERRORS    LLNV05   SA3    =4LNSTD                                                         ERRORS      1298     A     
 ERRORS             BX3    X3-X1                                                           ERRORS      1299     A     
 ERRORS             AX3    18                                                              ERRORS      1300     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 663    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS             NZ     X3,LLNV10   IF NOT SPECIAL LEFT PAREN                           ERRORS      1301     A     
 ERRORS             SX1    1R(         USE PAREN FOR ERROR MESSAGE                         ERRORS      1302     A     
 ERRORS             LX1    54                                                              ERRORS      1303     A     
 ERRORS                                                                                    ERRORS      1304     A     
 ERRORS    LLNV10   LX1    CHAR                                                            ERRORS      1305     A     
 ERRORS             BX2    -X0*X1                                                          ERRORS      1306     A     
 ERRORS             ZR     X2,LLNV1    IF END OF PRESENT SYMBOL                            ERRORS      1307     A     
 ERRORS             LX6    CHAR                                                            ERRORS      1308     A     
 ERRORS             BX6    X2+X6                                                           ERRORS      1309     A     
 ERRORS             SB6    B6-CHAR                                                         ERRORS      1310     A     
 ERRORS             SB2    B2+B1                                                           ERRORS      1311     A     
 ERRORS             NZ     B6,LLNV10   CONTINUE                                            ERRORS      1312     A     
 ERRORS             BX0    0           INDICATE FULL WORD                                  ERRORS      1313     A     
 ERRORS                                                                                    ERRORS      1314     A     
 ERRORS    LLNV20   ZR     B6,LLNV30   IF FULL WORD                                        ERRORS      1315     A     
 ERRORS             LX6    B6,X6       ADJUST TO 0L                                        ERRORS      1316     A     
 ERRORS             SX0    B2          BIAS ADD-IN.                                        ERRORS      1317     A     
 ERRORS                                                                                    ERRORS      1318     A     
 ERRORS    LLNV30   IX6    X0+X6                                                           ERRORS      1319     A     
 ERRORS             SA6    FILL.       SET FILLER.                                         ERRORS      1320     A     
 ERRORS                                                                                    ERRORS      1321     A     
 ERRORS                                                                                    ERRORS      1322     A     
 ERRORS   **        HERE TO PROCESS ALL DIAGNOSTICS.                                       ERRORS      1323     A     
 ERRORS                                                                                    ERRORS      1324     A     
 ERRORS    LLN      SA1    B7          ENTRY - LIST LONG LINE ERROR MESSAGES               ERRORS      1325     A     
 ERRORS             SX6    B7                                                              ERRORS      1326     A     
 ERRORS             SA6    LLNA        SAVE ERROR WORD ADDRESS.                            ERRORS      1327     A     
 ERRORS             LX1    -P.ERTYPE                                                       ERRORS      1328     A     
 ERRORS             =A6    A6+1                                                            ERRORS      1329     A     
 ERRORS             MX0    -L.ERTYPE                                                       ERRORS      1330     A     
 ERRORS             BX4    -X0*X1      ISOLATE ERROR TYPE ORDINAL                          ERRORS      1331     A     
 ERRORS             SA3    X4+ERRTYP                                                       ERRORS      1332     A     
 ERRORS             MX0    4*CHAR                                                          FEAT126A     298     A     
 ERRORS             BX7    X0*X3       SHORT FORM BANNER FOR PW MODE                       FEAT126A     299     A     
 ERRORS             SA2    X3          FETCH *LOP* SWITCH                                  ERRORS      1333     A     
 ERRORS             AX3    18                                                              ERRORS      1334     A     
 ERRORS             SA1    X3          FETCH TYPE BANNER WORD                              ERRORS      1335     A     
 ERRORS             BX6    X2                                                              ERRORS      1336     A     
 ERRORS             SA5    A3+N.ERRT                                                       ERRORS      1337     A     
 ERRORS             SA6    LOP=1       RE-SET CONTINUATION ERROR SELECTOR                  ERRORS      1338     A     
 ERRORS             =X6    X5+1                                                            ERRORS      1339     A     
 ERRORS             SA6    A5          COUNT UP THIS TYPE                                  ERRORS      1340     A     
 ERRORS             BX6    X1                                                              ERRORS      1341          I
          -FEAT126A 
 ERRORS             PL     X2,LLN70    IF THIS TYPE NOT SELECTED                           ERRORS      1342          I
          -FEAT126A 
 ERRORS             SA6    ERRLINE                                                         ERRORS      1343          I
          -FEAT126A 
 ERRORS             SA4    =XCO.PW                                                         FEAT126A     300          I
          -CP139FC
 ERRORS             SA4    =XCP.PW                                                         CP139FC      193     A     
 ERRORS             PL     X2,LLN72    IF THIS TYPE NOT SELECTED                           FEAT126A     301     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 664    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS             NZ     X4,LLN20    IF PW MODE                                          FEAT126A     302     A     
 ERRORS             BX6    X1                                                              FEAT126A     303     A     
 ERRORS             SA1    =1H*                                                            ERRORS      1344     A     
 ERRORS             SA6    =XLINEBUF                                                       FEAT126A     304     A     
 ERRORS             BX6    X1                                                              ERRORS      1345     A     
 ERRORS             SA6    A6+B1                                                           ERRORS      1346     A     
 ERRORS             MX6    0                                                               FEAT126A     305     A     
 ERRORS             SA6    A6+B1       POINT TO 1ST WORD FOR ERROR MESSAGE                 FEAT126A     306     A     
 ERRORS             SB3    B0          SET TO NO CHARACTERS USED IN WORD                   FEAT126A     307     A     
 ERRORS             EQ     LLN25       PROCESS ERROR LINE                                  FEAT126A     308     A     
 ERRORS                                                                                    FEAT126A     309     A     
 ERRORS    LLN20    SX3    1R                                                              FEAT126A     310     A     
 ERRORS             BX6    X7+X3                                                           FEAT126A     311     A     
 ERRORS             LX6    -CHAR                                                           FEAT126A     312     A     
 ERRORS             SA6    =XLINEBUF                                                       FEAT126A     313     A     
 ERRORS             SB3    5*CHAR      SET TO 5 CHAR USED IN WORD                          FEAT126A     314     A     
 ERRORS                                                                                    ERRORS      1347     A     
 ERRORS   *         OUTPUT THE ERROR LINE                                                  ERRORS      1348     A     
 ERRORS                                                                                    ERRORS      1349     A     
 ERRORS    LLN25    SA1    B7          RELOAD FIRST POINTER WORD                           ERRORS      1350     A     
 ERRORS             SX7    N.ER1ST                                                         ERRORS      1351     A     
 ERRORS             BX6    0                                                               ERRORS      1352          I
          -FEAT126A 
 ERRORS             SB6    10*CHAR                                                         ERRORS      1353     A     
 ERRORS             LX0    X1                                                              ERRORS      1354     A     
 ERRORS             SB3    B0                                                              ERRORS      1355          I
          -FEAT126A 
 ERRORS             SA6    ERRLINE+2   DUMMY STORE (FIRST TIME THRU)                       ERRORS      1356          I
          -FEAT126A 
 ERRORS                                                                                    ERRORS      1357     A     
 ERRORS    LLN30    MX4    L.ERWORD                                                        ERRORS      1358     A     
 ERRORS             SB2    B0                                                              FEAT126A     315     A     
 ERRORS             BX3    X4*X0       LOAD NEXT POINTER WORD BYTE                         ERRORS      1359     A     
 ERRORS             ZR     X3,LLN65    IF ZERO BYTE POINTER                                ERRORS      1360     A     
 ERRORS             LX3    L.ERWORD                                                        ERRORS      1361     A     
 ERRORS             SA1    X3+DICT-1                                                       ERRORS      1362     A     
 ERRORS             MX3    -CHAR                                                           ERRORS      1363     A     
 ERRORS             BX4    -X3*X1                                                          ERRORS      1364     A     
 ERRORS             SX4    X4-DT.BIAS  GET CHARACTER COUNT                                 ERRORS      1365     A     
 ERRORS             PL     X4,LLN35    IF NOT 10 CHARACTERS                                ERRORS      1366          I
          -FEAT126A 
 ERRORS             SX4    10                                                              ERRORS      1367          I
          -FEAT126A 
 ERRORS             PL     X4,LLN35    IF LESS THAN 10 CHARACTERS                          FEAT126A     316     A     
 ERRORS             SX3    X4+DT.BIAS                                                      FEAT126A     317     A     
 ERRORS             ZR     X3,LLN33    IF GREATER THAN 10 CHARACTERS                       FEAT126A     318     A     
 ERRORS             SX4    10                                                              FEAT126A     319     A     
 ERRORS             EQ     LLN35       EXACTLY 10 CHARACTERS                               FEAT126A     320     A     
 ERRORS                                                                                    FEAT126A     321     A     
 ERRORS    LLN33    SB2    B1          FLAG CONTINUED WORD                                 FEAT126A     322     A     
 ERRORS             SX4    9                                                               FEAT126A     323     A     
 ERRORS    LLN35    BX3    X4                                                              ERRORS      1368     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 665    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS             LX4    2           MULT BY 4                                           ERRORS      1369     A     
 ERRORS             LX3    1           MULT BY 2                                           ERRORS      1370     A     
 ERRORS             IX6    X3+X4       NUMBER OF BITS IN DATA                              ERRORS      1371     A     
 ERRORS             SA5    A6                                                              ERRORS      1372     A     
 ERRORS                                                                                    ERRORS      1373     A     
 ERRORS   *         PROCESS DATA WORD INTO OUTPUT BUFFER                                   ERRORS      1374     A     
 ERRORS                                                                                    ERRORS      1375     A     
 ERRORS             SB5    B6-B3                                                           ERRORS      1376     A     
 ERRORS             SB7    X6                                                              ERRORS      1377     A     
 ERRORS             LT     B5,B7,LLN45       IF SPLIT NECESSARY                            ERRORS      1378     A     
 ERRORS                                                                                    ERRORS      1379     A     
 ERRORS   *         PROCESS DATA WORD ( NO SPLIT NECESSARY )                               ERRORS      1380     A     
 ERRORS                                                                                    ERRORS      1381     A     
 ERRORS    LLN40    MX4    1                                                               ERRORS      1382     A     
 ERRORS             SB7    B7-B1                                                           ERRORS      1383     A     
 ERRORS             AX6    X4,B7       BUILD MASK FOR DATA WORD                            ERRORS      1384     A     
 ERRORS             BX3    X6*X1       GET DATA WORD ONLY                                  ERRORS      1385     A     
 ERRORS             LX5    X5,B3                                                           ERRORS      1386     A     
 ERRORS             SB7    B3+B7                                                           ERRORS      1387     A     
 ERRORS             BX4    -X6*X5      MASK IN PAST PARCEL                                 ERRORS      1388     A     
 ERRORS             SB3    B7+B1                                                           ERRORS      1389     A     
 ERRORS             BX3    X4+X3       ADD PAST AND PRESENT TOGETHER                       ERRORS      1390     A     
 ERRORS             LX6    X3,B5                                                           ERRORS      1391     A     
 ERRORS             EQ     LLN50       CONTINUE..                                          ERRORS      1392          I
          -FEAT126A 
 ERRORS             ZR     B2,LLN50    ADD BLANK IF END OF WORD                            FEAT126A     324     A     
 ERRORS             SA6    A5                                                              FEAT126A     325     A     
 ERRORS             EQ     LLN60       CONTINUE..                                          FEAT126A     326     A     
 ERRORS                                                                                    ERRORS      1393     A     
 ERRORS   *         PROCESS SPLIT WORD                                                     ERRORS      1394     A     
 ERRORS                                                                                    ERRORS      1395     A     
 ERRORS    LLN45    MX4    1                                                               ERRORS      1396     A     
 ERRORS             SB3    B3-B1                                                           ERRORS      1397     A     
 ERRORS             LX1    X1,B5                                                           ERRORS      1398     A     
 ERRORS             SB7    B7-B5                                                           ERRORS      1399     A     
 ERRORS             SB5    B6                                                              ERRORS      1400     A     
 ERRORS             AX3    X4,B3                                                           ERRORS      1401     A     
 ERRORS             BX6    -X3*X1                                                          ERRORS      1402     A     
 ERRORS             SB3    B0                                                              ERRORS      1403     A     
 ERRORS             BX3    X3*X5                                                           ERRORS      1404     A     
 ERRORS             SA5    A5+B1                                                           ERRORS      1405     A     
 ERRORS             BX6    X3+X6                                                           ERRORS      1406     A     
 ERRORS             SA6    A6                                                              ERRORS      1407     A     
 ERRORS             BX5    0           PRESET FOR PROCESSING REMAINDER                     ERRORS      1408     A     
 ERRORS             EQ     LLN40       PROCESS REMAINDER                                   ERRORS      1409     A     
 ERRORS                                                                                    ERRORS      1410     A     
 ERRORS   *         ADD IN SPACE BETWEEN WORDS                                             ERRORS      1411     A     
 ERRORS                                                                                    ERRORS      1412     A     
 ERRORS    LLN50    SX5    1R                                                              ERRORS      1413     A     
 ERRORS             SB5    9*CHAR                                                          ERRORS      1414     A     
 ERRORS             LX5    9*CHAR                                                          ERRORS      1415     A     
 ERRORS             LE     B3,B5,LLN55       IF ENOUGH ROOM FOR SPACE                      ERRORS      1416     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 666    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS             SA6    A5                                                              ERRORS      1417     A     
 ERRORS             BX6    X5                                                              ERRORS      1418     A     
 ERRORS             SB3    CHAR        SET NUMBER OF BITS IN OUTPUT WORD                   ERRORS      1419     A     
 ERRORS             SA6    A6+B1       STORE IN OUTPUT BUFFER                              ERRORS      1420     A     
 ERRORS             EQ     LLN60       CONTINUE..                                          ERRORS      1421     A     
 ERRORS                                                                                    ERRORS      1422     A     
 ERRORS    LLN55    SB5    B6-B3                                                           ERRORS      1423     A     
 ERRORS             LX4    B5,X5       ADJUST 1R                                           ERRORS      1424     A     
 ERRORS             IX6    X6+X4                                                           ERRORS      1425     A     
 ERRORS             SA6    A5                                                              ERRORS      1426     A     
 ERRORS             SB3    B3+CHAR     ADJUST BIT COUNT                                    ERRORS      1427     A     
 ERRORS    LLN60    LX0    9                                                               ERRORS      1428     A     
 ERRORS             SX7    X7-1                                                            ERRORS      1429     A     
 ERRORS             NZ     X7,LLN30    LOOP ON PRESENT POINTER WORD                        ERRORS      1430     A     
 ERRORS                                                                                    ERRORS      1431     A     
 ERRORS   *         CHECK FOR CONTINUATION CARDS                                           ERRORS      1432     A     
 ERRORS                                                                                    ERRORS      1433     A     
 ERRORS             LX0    P.ERMORE                                                        ERRORS      1434     A     
 ERRORS             PL     X0,LLN65    IF NO CONTINUATION CARDS                            ERRORS      1435     A     
 ERRORS                                                                                    ERRORS      1436     A     
 ERRORS                                                                                    ERRORS      1437     A     
 ERRORS             SA3    LLNA+1                                                          ERRORS      1438     A     
 ERRORS             SX4    A7                                                              ERRORS      1439     A     
 ERRORS             =X7    X3+1                                                            ERRORS      1440     A     
 ERRORS             =A1    X3+1        LOAD NEXT POINTER WORD                              ERRORS      1441     A     
 ERRORS             SA7    A3                                                              ERRORS      1442     A     
 ERRORS             SA2    X4                                                              ERRORS      1443     A     
 ERRORS             BX7    X2          RESTORE (A7)                                        ERRORS      1444     A     
 ERRORS             SA7    A2                                                              ERRORS      1445     A     
 ERRORS             SX7    N.ERREST    RESET NUMBER OF BYTES PER WORD                      ERRORS      1446     A     
 ERRORS             BX0    X1                                                              ERRORS      1447     A     
 ERRORS             EQ     LLN30       PROCESS NTH CARD                                    ERRORS      1448     A     
 ERRORS                                                                                    ERRORS      1449     A     
 ERRORS   *         END OF THIS MESSAGE, PRINT IT.                                         ERRORS      1450     A     
 ERRORS                                                                                    ERRORS      1451     A     
 ERRORS    LLN65    BX6    0                                                               ERRORS      1452          I
          -FEAT126B 
 ERRORS             SA3    DEFERL                                                          ERRORS      1453          I
          -FEAT126B 
 ERRORS             SX5    A7          SAVE (A7)                                           ERRORS      1454          I
          -FEAT126B 
 ERRORS             SA6    A6+B1       END OF LINE INDICATOR                               ERRORS      1455          I
          -FEAT126B 
 ERRORS             SA1    E=TOTAL                                                         ERRORS      1456          I
          -FEAT126B 
 ERRORS             =X6    X1+1                                                            ERRORS      1457          I
          -FEAT126B 
 ERRORS             SA6    A1          UPDATE TOTAL ERRORS FOR THIS STATEMENT              ERRORS      1458          I
          -FEAT126B 
 ERRORS             NZ     X1,LLN68    IF LINE ALREADY LISTED                              ERRORS      1459          I
          -FEAT126B 
 ERRORS             ZR     X3,LLN68    IF NO LINE WAITING                                  ERRORS      1460          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 667    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
          -FEAT126B 
 ERRORS             SB6    =XSAVLINE+3                                                     ERRORS      1461          I
          -FEAT126B 
 ERRORS             BX6    0                                                               ERRORS      1462          I
          -FEAT126B 
 ERRORS             SA6    A3          INDICATE NO SAVED LINE                              ERRORS      1463          I
          -FEAT126B 
 ERRORS                                                                                    ERRORS      1464          I
          -FEAT126B 
 ERRORS    LLN66    SA2    =XICA       CURRENT CODE ADDRESS                                ERRORS      1465          I
          -FEAT126B 
 ERRORS             SX1    B6-3                                                            ERRORS      1466          I
          -FEAT126B 
 ERRORS             RJ     LSL         LIST SOURCE LINE                                    ERRORS      1467          I
          -FEAT126B 
 ERRORS             SA1    DEFERL                                                          ERRORS      1468          I
          -FEAT126B 
 ERRORS             SX6    X1+10                                                           ERRORS      1469          I
          -FEAT126B 
 ERRORS             SA6    A1                                                              ERRORS      1470          I
          -FEAT126B 
 ERRORS             SB6    =XSAVLINE+3+X6                                                  ERRORS      1471          I
          -FEAT126B 
 ERRORS             SA1    B6                                                              ERRORS      1472          I
          -FEAT126B 
 ERRORS             NZ     X1,LLN66    IF MORE LINES TO GO                                 ERRORS      1473          I
          -FEAT126B 
 ERRORS             MX6    0                                                               ERRORS      1474          I
          -FEAT126B 
 ERRORS             SA6    A1                                                              ERRORS      1475          I
          -FEAT126B 
 ERRORS    LLN65    SA1    T.DLBUF                                                         FEAT126B      31     A     
 ERRORS             BX6    0                                                               FEAT126B      32     A     
 ERRORS             SA3    DEFERL                                                          FEAT126B      33          I
          -FCC1328X 
 ERRORS             SA6    A6+B1       END OF LINE INDICATOR                               FEAT126B      34     A     
 ERRORS             SA5    A6          SAVE LWA OF DIAGNOSTIC                              FEAT126B      35     A     
 ERRORS             SX5    A7          SAVE (A7)                                           FEAT126B      36     A     
 ERRORS             ZR     X3,LLN68    IF NO LINE WAITING TO BE LISTED                     FEAT126B      37          I
          -FCC1328X 
 ERRORS             SX6    B4                                                              FEAT126B      38     A     
 ERRORS             SA6    SAVE+9      SAVE (B4)                                           FEAT126B      39     A     
 ERRORS             SB4    X1+3        (B4) = FWA OF 1ST SOURCE LINE IMAGE                 FEAT126B      40          I
          -FEAT155E 
 ERRORS             SB4    X1+2        (B4) = FWA OF 1ST SOURCE LINE IMAGE                 FEAT155E      99          I
          -FCC1328X 
 ERRORS                                                                                    FEAT126B      41          I
          -FCC1328X 
 ERRORS   *         LIST THE CONTENTS OF THE DEFERRED LISTING BUFFER, *DLBUF*.             FEAT126B      42          I
          -FCC1328X 
 ERRORS                                                                                    FEAT126B      43          I
          -FCC1328X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 668    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS             SA2    =XCO.MODE                                                       FEAT155E     100          I
          -FCC1328X 
 ERRORS             NZ     X2,LLN66    IF SEQ MODE                                         FEAT155E     101          I
          -FCC1328X 
 ERRORS    LLN66    SA2    =XICA       (X2) = CURRENT CODE ADDR COLS                       FEAT126B      44          I
          -FEAT155E -FCC1328X 
 ERRORS             =A1    X1+1                                                            FEAT155E     102          I
          -FCC1328X 
 ERRORS             RJ     CDD                                                             FEAT155E     103          I
          -FCC1328X 
 ERRORS             LX6    CHAR                                                            FEAT155E     104          I
          -FCC1328X 
 ERRORS             =A6    A1-1                                                            FEAT155E     105          I
          -FCC1328X 
 ERRORS             SX1    B4-3                                                            FEAT126B      45          I
          -FEAT155E -FCC1328X 
 ERRORS    LLN66    SX1    B4-2                                                            FEAT155E     106          I
          -FCC1328X 
 ERRORS             SB4    B4+11                                                           FEAT126B      46          I
          -FCC1309  -FCC1328X 
 ERRORS             SB4    B4+=XL.MAXCD+3                                                  FCC1309        7          I
          -FCC1328X 
 ERRORS             RJ     LSL         LIST SOURCE LINE                                    FEAT126B      47          I
          -FCC1328X 
 ERRORS             =X0    L.MAXCD+3                                                       FCC1309        8          I
          -FCC1328X 
 ERRORS             SA3    DEFERL                                                          FEAT126B      48          I
          -FCC1328X 
 ERRORS             SX6    X3-11                                                           FEAT126B      49          I
          -FCC1309  -FCC1328X 
 ERRORS             IX6    X3-X0       (X0) = L.MAXCD+3                                    FCC1309        9          I
          -FCC1328X 
 ERRORS             SA6    A3                                                              FEAT126B      50          I
          -FCC1328X 
 ERRORS             NZ     X6,LLN66    IF MORE SOURCE LINES TO LIST                        FEAT126B      51          I
          -FCC1328X 
 ERRORS                                                                                    FCC1328X      83     A     
 ERRORS   *         LIST THE STATEMENT THAT WAS FOUND TO BE IN ERROR.                      FCC1328X      84     A     
 ERRORS                                                                                    FCC1328X      85     A     
 ERRORS             RJ     =XLDB       LIST DEFERRED BUFFER                                FCC1328X      86     A     
 ERRORS                                                                                    FEAT126B      52     A     
 ERRORS             SA4    SAVE+9                                                          FEAT126B      53     A     
 ERRORS             SB4    X4          RESTORE (B4)                                        FEAT126B      54     A     
 ERRORS                                                                                    ERRORS      1476     A     
 ERRORS    LLN68    PLINE  ERRLINE     PRINT DIAGNOSTIC MESSAGE                            ERRORS      1477          I
          -FEAT126A 
 ERRORS    LLN68    SB2    =XLINEBUF-1                                                     FEAT126A     327     A     
 ERRORS             SX2    A5-B2                                                           FEAT126A     328     A     
 ERRORS             SA4    =XCO.PW                                                         FEAT126A     329          I
          -CP139FC
 ERRORS             SA4    =XCP.PW                                                         CP139FC      194     A     
 ERRORS             SX1    B2+B1       FWA OF DIAGNOSTIC                                   FEAT126A     330     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 669    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS             ZR     X4,LLN71    IF NOT IN PW MODE                                   FEAT126A     331     A     
 ERRORS             SB3    X2-1                                                            FEAT126A     332     A     
 ERRORS             SB5    X4          PAGE WIDTH IN WORDS                                 FEAT126A     333     A     
 ERRORS             SB3    B3-B5                                                           FEAT126A     334     A     
 ERRORS             LE     B3,LLN71    IF LENGTH LESS THAN PAGE WIDTH                      FEAT126A     335     A     
 ERRORS             SA2    X4+=XLINEBUF-1                                                  FEAT126A     336     A     
 ERRORS             BX3    X2                                                              FEAT126A     337     A     
 ERRORS             SB3    -1R                                                             FEAT126A     338     A     
 ERRORS             MX0    9*CHAR                                                          FEAT126A     339     A     
 ERRORS             SB5    9*CHAR                                                          FEAT126A     340     A     
 ERRORS    LLN69    BX6    -X0*X3                                                          FEAT126A     341     A     
 ERRORS             SX4    X6+B3                                                           FEAT126A     342     A     
 ERRORS             ZR     X4,LLN70    IF BLANK CHARACTER                                  FEAT126A     343     A     
 ERRORS             LX3    B5,X2                                                           FEAT126A     344     A     
 ERRORS             SB5    B5-CHAR                                                         FEAT126A     345     A     
 ERRORS             GE     B5,LLN69    IF STILL MORE CHARACTERS IN WORD                    FEAT126A     346     A     
 ERRORS             SA2    A2-B1                                                           FEAT126A     347     A     
 ERRORS             EQ     LLN69       TRY NEXT WORD BACK                                  FEAT126A     348     A     
 ERRORS                                                                                    FEAT126A     349     A     
 ERRORS    LLN70    SB6    A5-B1       (B6) = LWA - 1                                      FEAT126A     350     A     
 ERRORS             RJ     =XBLL       BREAK LONG LINE                                     FEAT126A     351     A     
 ERRORS    LLN71    PLINE  X1,X2                                                           FEAT126A     352     A     
 ERRORS             SA5    X5                                                              ERRORS      1478     A     
 ERRORS             BX7    X5                                                              ERRORS      1479     A     
 ERRORS             SA7    A5          RESTORE *A7*                                        ERRORS      1480     A     
 ERRORS                                                                                    ERRORS      1481     A     
 ERRORS   *         EXIT.                                                                  ERRORS      1482     A     
 ERRORS                                                                                    ERRORS      1483     A     
 ERRORS    LLN70    SA2    ERR=F                                                           ERRORS      1484          I
          -FEAT126A 
 ERRORS             =A3    A2-ERR=F+ERR=D                                                  ERRORS      1485          I
          -FEAT126A 
 ERRORS    LLN72    SA2    ERR=F                                                           FEAT126A     353     A     
 ERRORS             SA4    BINOUT                                                          ERRORS      1486     A     
 ERRORS             BX7    X3*X2                                                           ERRORS      1487          I
          -FEAT126A 
 ERRORS             BX6    X7*X4                                                           ERRORS      1488          I
          -FEAT126A 
 ERRORS             BX6    X2*X4                                                           FEAT126A     354     A     
 ERRORS             SA1    LLNA                                                            ERRORS      1489     A     
 ERRORS             SA6    A4          BINOUT=BINOUT * ERR=D * ERR=F                       ERRORS      1490          I
          -FEAT126A 
 ERRORS             SA6    A4          BINOUT=BINOUT*ERR=F                                 FEAT126A     355     A     
 ERRORS             MI     X2,LLN90    IF NO FATAL ERROR                                   FCC1608X       8     A     
 ERRORS             SA4    =XWINX      EXIT POINT FOR WIN                                  FCC1608X       9     A     
 ERRORS             BX6    X4                                                              FCC1608X      10     A     
 ERRORS             SA6    =XWIN       BLOCK FURTHER PROCESSING                            FCC1608X      11     A     
 ERRORS    LLN90    BSS                                                                    FCC1608X      12     A     
 ERRORS             SA2    X1                                                              ERRORS      1491     A     
 ERRORS             SB7    X2          SET *EXIT* ADDRESS.                                 ERRORS      1492     A     
 ERRORS             MI     B7,PWE1     IF *RJ* STYLE ERROR                                 ERRORS      1493     A     
 ERRORS             JP     B7          EXIT                                                ERRORS      1494     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 670    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS                                                                                    ERRORS      1495     A     
 ERRORS    LLNA     BSS    1           SAVE ERROR WORD ADDRESS                             ERRORS      1496     A     
 ERRORS             CON    0                                                               ERRORS      1497     A     
 ERRORS    ERRLINE  DIS    1,          OUTPUT ERROR LINE BUFFER.                           ERRORS      1498          I
          -FEAT126A 
 ERRORS             DIS    1,*                                                             ERRORS      1499          I
          -FEAT126A 
 ERRORS             BSS    12                                                              ERRORS      1500          I
          -FEAT126A 
 ERRORS    CER      SPACE  4,8                                                             ERRORS      1501          I
          -FCC0597
 ERRORS   **        CER -  COMPILE CODE FOR ERROR LINE.                                    ERRORS      1502          I
          -FCC0597
 ERRORS   *                                                                                ERRORS      1503          I
          -FCC0597
 ERRORS   *                COMPILES RETURN JUMP TO *S.ERR*.                                ERRORS      1504          I
          -FCC0597
 ERRORS   *         ENTRY  ERROR FOUND.                                                    ERRORS      1505          I
          -FCC0597
 ERRORS   *         EXIT   JUMP AND AP-LIST COMPILED.                                      ERRORS      1506          I
          -FCC0597
 ERRORS   *         USES   ALL BUT A0.                                                     ERRORS      1507          I
          -FCC0597
 ERRORS                                                                                    ERRORS      1508          I
          -FCC0597
 ERRORS                                                                                    ERRORS      1509          I
          -FCC0597
 ERRORS    CER         SUBR    0                                                           ERRORS      1510          I
          -FCC0597
 ERRORS             TAGSEX S.ERR                                                           ERRORS      1511          I
          -FCC0597
 ERRORS             SA3    =XTRLINE                                                        ERRORS      1512          I
          -FCC0597
 ERRORS             CRJ    MUST                                                            ERRORS      1513          I
          -FCC0597
 ERRORS             EQ     CERX        EXIT..                                              ERRORS      1514          I
          -FCC0597
 ERRORS    OSE      SPACE  4,20                                                            ERRORS      1515     A     
 ERRORS   **        OSE -  OUTPUT SUBSCRIPT ERROR.                                         ERRORS      1516     A     
 ERRORS   *                                                                                ERRORS      1517     A     
 ERRORS   *         NOTE   ALL ERRORS USING THIS ROUTINE MUST USE --                       ERRORS      1518     A     
 ERRORS   *                            FILL.  AS ARRAY NAME.                               ERRORS      1519     A     
 ERRORS   *                            FILL.2 AS SUBSCRIPT NUMBER.                         ERRORS      1520     A     
 ERRORS   *                ALL ERRORS MUST HAVE EXIT ADDRESS AS = *                        ERRORS      1521     A     
 ERRORS   *                                                                                ERRORS      1522     A     
 ERRORS   *                THIS ROUTINE IS TO BE CONSIDERED AS PART OF *PWE*               ERRORS      1523     A     
 ERRORS   *                                                                                ERRORS      1524     A     
 ERRORS   *         ENTRY  (B7) = ADDRESS OF ERROR.                                        ERRORS      1525     A     
 ERRORS   *                (X4) = 42/IGNORED , 18/SUBSCRIPT NUMBER                         ERRORS      1526     A     
 ERRORS   *                                                                                ERRORS      1527     A     
 ERRORS   *         EXIT   ERROR OUTPUTTED.                                                ERRORS      1528     A     
 ERRORS   *                                                                                ERRORS      1529     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 671    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS   *         USES   A1,A6,A7  X0,X1,X7  B7                                          ERRORS      1530     A     
 ERRORS                                                                                    ERRORS      1531     A     
 ERRORS                                                                                    ERRORS      1532     A     
 ERRORS    OSE      SUBR   0                                                               ERRORS      1533     A     
 ERRORS             SX7    B7                                                              ERRORS      1534     A     
 ERRORS             SA1    OSEX                                                            ERRORS      1535     A     
 ERRORS             SB7    OSEA        SET EXIT ADDRESS FOR CURRENT ENTRY TO PWE           ERRORS      1536     A     
 ERRORS             BX6    X1                                                              ERRORS      1537     A     
 ERRORS             =A7    B7+1        SAVE ERROR                                          ERRORS      1538     A     
 ERRORS             SA6    PWE         SET RETURN ADDRESS                                  ERRORS      1539     A     
 ERRORS             SX6    X4                                                              ERRORS      1540     A     
 ERRORS             =A6    A7+1        SAVE SUBSCRIPT NUMBER                               ERRORS      1541     A     
 ERRORS             EQ     PWE+1       ENTER REG SAVE ROUTINE                              ERRORS      1542     A     
 ERRORS                                                                                    ERRORS      1543     A     
 ERRORS   *         RETURN AFTER SAVING REGISTERS                                          ERRORS      1544     A     
 ERRORS                                                                                    ERRORS      1545     A     
 ERRORS    OSE1     SA2    DIMSYM                                                          ERRORS      1546     A     
 ERRORS             SA1    OSEB+1      SUBSCRIPT NUMBER                                    ERRORS      1547     A     
 ERRORS             AX2    P.SATAG                                                         ERRORS      1548     A     
 ERRORS             MX7    L.SYM                                                           ERRORS      1549     A     
 ERRORS             SB2    X2-C.SYM-1  ORDINAL OF SYMBOL.                                  ERRORS      1550     A     
 ERRORS             SA3    TS.SYM                                                          ERRORS      1551     A     
 ERRORS             SA4    X3+B2       ARRAY NAME                                          ERRORS      1552     A     
 ERRORS             MX0    -3                                                              ERRORS      1553     A     
 ERRORS             BX6    X7*X4       SYMBOL ONLY                                         ERRORS      1554     A     
 ERRORS             SB7    10*CHAR                                                         ERRORS      1555     A     
 ERRORS             SA6    FILL.                                                           ERRORS      1556     A     
 ERRORS             BX2    0                                                               ERRORS      1557     A     
 ERRORS             SB2    1R0                                                             ERRORS      1558     A     
 ERRORS                                                                                    ERRORS      1559     A     
 ERRORS   **        CONVERT SUBSCRIPT NUMBER TO *DPC*.                                     ERRORS      1560     A     
 ERRORS   *         (X0) = MASK OF 3.                                                      ERRORS      1561     A     
 ERRORS   *         (X1) = SUBSCRIPT NUMBER IN LOWER 18 BITS.                              ERRORS      1562     A     
 ERRORS                                                                                    ERRORS      1563     A     
 ERRORS    OSE5     BX6    -X0*X1      EXTRACT DIGIT                                       ERRORS      1564     A     
 ERRORS             SB7    B7-CHAR                                                         ERRORS      1565     A     
 ERRORS             SX6    X6+B2       CONVERT TO *DPC*                                    ERRORS      1566     A     
 ERRORS             AX1    3           DOWN ONE DIGIT                                      ERRORS      1567     A     
 ERRORS             BX2    X2+X6       ACCUMULATE                                          ERRORS      1568     A     
 ERRORS             NZ     X1,OSE5     IF NOT FINISHED.                                    ERRORS      1569     A     
 ERRORS             LX6    X2,B7       LEFT JUSTIFY                                        ERRORS      1570     A     
 ERRORS             SA1    OSEB                                                            ERRORS      1571     A     
 ERRORS             SA6    FILL.2      NUMBER TO ERROR                                     ERRORS      1572     A     
 ERRORS                                                                                    ERRORS      1573     A     
 ERRORS   **        OUTPUT SELECTED ERROR.                                                 ERRORS      1574     A     
 ERRORS                                                                                    ERRORS      1575     A     
 ERRORS             SB7    X1                                                              ERRORS      1576     A     
 ERRORS             EQ     LLNS        OUTPUT SELECTED ERROR                               ERRORS      1577     A     
 ERRORS                                                                                    ERRORS      1578     A     
 ERRORS    OSEA     CON    OSE1+1S17   EXIT ADDRESS FOR SAVE                               ERRORS      1579     A     
 ERRORS    OSEB     DATA   0,0         ERROR ADDRESS                                       ERRORS      1580     A     
 ERRORS    PWE      SPACE  4,8                                                             ERRORS      1581     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 672    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS   **        PWE -  PRINT *WARNING* ERRORS.(ALSO SAVES DEFINED REGISTERS)           ERRORS      1582     A     
 ERRORS   *         ENTRY  (B7) _ ERROR MESSAGE ADDRESS.                                   ERRORS      1583     A     
 ERRORS   *                     ( IN GENERAL POINTS TO EXIT ADDRESS AFTER SAVE.)           ERRORS      1584     A     
 ERRORS   *         EXIT   REGISTERS RESTORED.                                             ERRORS      1585     A     
 ERRORS   *         DOES NOT SAVE.                                                         ERRORS      1586     A     
 ERRORS   *                            A1, A0, A6, A7, X0, X1, B7                          ERRORS      1587     A     
 ERRORS                                                                                    ERRORS      1588     A     
 ERRORS                                                                                    ERRORS      1589     A     
 ERRORS    PWE      SUBR   0                                                               ERRORS      1590     A     
 ERRORS             SA6    SAVE        SAVE X6                                             ERRORS      1591     A     
 ERRORS             MX0    -18                                                             ERRORS      1592     A     
 ERRORS   .1        ECHO   ,I=(5,4,3,2)                                                    ERRORS      1593     A     
 ERRORS             BX6    X_I                                                             ERRORS      1594     A     
 ERRORS             SX_I   B_I                                                             ERRORS      1595     A     
 ERRORS             SA6    A6+B1                                                           ERRORS      1596     A     
 ERRORS   .1        ENDD                                                                   ERRORS      1597     A     
 ERRORS             BX5    -X0*X5                                                          ERRORS      1598     A     
 ERRORS             SX6    B6                                                              ERRORS      1599     A     
 ERRORS             BX4    -X0*X4                                                          ERRORS      1600     A     
 ERRORS             LX5    18                                                              ERRORS      1601     A     
 ERRORS             BX6    -X0*X6                                                          ERRORS      1602     A     
 ERRORS             LX4    2*18                                                            ERRORS      1603     A     
 ERRORS             IX6    X5+X6                                                           ERRORS      1604     A     
 ERRORS             BX3    -X0*X3                                                          ERRORS      1605     A     
 ERRORS             SX5    A5                                                              ERRORS      1606     A     
 ERRORS             IX6    X4+X6                                                           ERRORS      1607     A     
 ERRORS             BX2    -X0*X2                                                          ERRORS      1608     A     
 ERRORS             LX5    2*18                                                            ERRORS      1609     A     
 ERRORS             SA6    A6+B1       SAVE+5 = B4,B5,B6                                   ERRORS      1610     A     
 ERRORS             SX4    A4                                                              ERRORS      1611     A     
 ERRORS             LX2    18                                                              ERRORS      1612     A     
 ERRORS             BX5    X3+X5                                                           ERRORS      1613     A     
 ERRORS             SX6    A2                                                              ERRORS      1614     A     
 ERRORS             SX3    A3                                                              ERRORS      1615     A     
 ERRORS             LX4    2*18                                                            ERRORS      1616     A     
 ERRORS             LX3    18                                                              ERRORS      1617     A     
 ERRORS             BX6    X4+X6                                                           ERRORS      1618     A     
 ERRORS             BX6    X3+X6                                                           ERRORS      1619     A     
 ERRORS             SA6    A6+B1       SAVE+6 = A4,A3,A2                                   ERRORS      1620     A     
 ERRORS             IX6    X5+X2                                                           ERRORS      1621     A     
 ERRORS             SA6    A6+B1       SAVE+7 = A5,B2,B3                                   ERRORS      1622     A     
 ERRORS             BX6    X7                                                              ERRORS      1623     A     
 ERRORS             SA6    A6+B1       SAVE+8 = X7                                         ERRORS      1624     A     
 ERRORS             SA2    B7                                                              ERRORS      1625     A     
 ERRORS             SB2    X2                                                              ERRORS      1626     A     
 ERRORS             JP     B2-4S15     EXIT.. (TO PROPER ERROR FORMATTER)                  ERRORS      1627     A     
 ERRORS                                                                                    ERRORS      1628     A     
 ERRORS    PWE1     SA4    SAVE+6                                                          ERRORS      1629     A     
 ERRORS             SA1    A4-B1                                                           ERRORS      1630     A     
 ERRORS             SA5    A4+B1                                                           ERRORS      1631     A     
 ERRORS             SA2    X4          RESTORE A2                                          ERRORS      1632     A     
 ERRORS             SB6    X1          RESTORE B6                                          ERRORS      1633     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 673    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
 ERRORS             AX4    18                                                              ERRORS      1634     A     
 ERRORS             SB3    X5          RESTORE B3                                          ERRORS      1635     A     
 ERRORS             AX1    18                                                              ERRORS      1636     A     
 ERRORS             SA3    X4          RESTORE A3                                          ERRORS      1637     A     
 ERRORS             AX5    18                                                              ERRORS      1638     A     
 ERRORS             SB5    X1          RESTORE B5                                          ERRORS      1639     A     
 ERRORS             AX4    18                                                              ERRORS      1640     A     
 ERRORS             SB2    X5          RESTORE B2                                          ERRORS      1641     A     
 ERRORS             AX1    18                                                              ERRORS      1642     A     
 ERRORS             SA4    X4          RESTORE A4                                          ERRORS      1643     A     
 ERRORS             AX5    18                                                              ERRORS      1644     A     
 ERRORS             SB4    X1          RESTORE B4                                          ERRORS      1645     A     
 ERRORS             SA1    A1-B1                                                           ERRORS      1646     A     
 ERRORS             SA5    X5          RESTORE A5                                          ERRORS      1647     A     
 ERRORS             ECHO   2,I=(2,3,4,5)                                                   ERRORS      1648     A     
 ERRORS             BX.I   X1                                                              ERRORS      1649     A     
 ERRORS             SA1    A1-B1                                                           ERRORS      1650     A     
 ERRORS             BX6    X1                                                              ERRORS      1651     A     
 ERRORS             SA1    SAVE+8                                                          ERRORS      1652     A     
 ERRORS             BX7    X1          RESTORE X7                                          ERRORS      1653     A     
 ERRORS             EQ     PWEX        EXIT..                                              ERRORS      1654     A     
 ERRORS                                                                                    ERRORS      1655     A     
 ERRORS    UEC      SPACE  4,8                                                             ERRORS      1656     A     
 ERRORS   **        UEC -  UPDATE ERROR COUNT.                                             ERRORS      1657     A     
 ERRORS   *                                                                                ERRORS      1658     A     
 ERRORS   *         JUST TO KEEP THINGS STRAIGHT, THIS ROUTINE SHOULD BE CALLED            ERRORS      1659     A     
 ERRORS   *         WHENEVER IT BECOMES NECESSARY TO ISOLATE THE ERRORS OCCURING           ERRORS      1660     A     
 ERRORS   *         IN A STATEMENT.                                                        ERRORS      1661     A     
 ERRORS   *                                                                                ERRORS      1662     A     
 ERRORS   *         ENTRY  (ERRORS) = COUNT OF (*FATAL) ERRORS IN PROGRAM-UNIT.            ERRORS      1663     A     
 ERRORS   *                (ERR=F)  = COUNT OF (*FATAL) ERRORS IN STATEMENT.               ERRORS      1664     A     
 ERRORS   *         EXIT   (ERRORS) UPDATED.                                               ERRORS      1665     A     
 ERRORS   *                (ERR=F)  RESET.                                                 ERRORS      1666     A     
 ERRORS   *                                                                                ERRORS      1667     A     
 ERRORS   *         USES   A1,A2,A6,A7  X1,X2,X6,X7                                        ERRORS      1668     A     
 ERRORS                                                                                    ERRORS      1669     A     
 ERRORS                                                                                    ERRORS      1670     A     
 ERRORS    UEC      SUBR               ENTRY/EXIT...                                       ERRORS      1671     A     
 ERRORS             SA1    ERRORS                                                          ERRORS      1672     A     
 ERRORS             SA2    ERR=F                                                           ERRORS      1673     A     
 ERRORS             BX7    -0                                                              ERRORS      1674     A     
 ERRORS             IX6    X1+X2       UPDATE PROGRAM-UNIT ERROR COUNT                     ERRORS      1675     A     
 ERRORS             SA7    A2                                                              ERRORS      1676     A     
 ERRORS             SA6    A1                                                              ERRORS      1677     A     
 ERRORS             SA7    E=TOTAL                                                         ERRORS      1678     A     
 ERRORS             EQ     EXIT.                                                           ERRORS      1679     A     
 ERRORS                                                                                    ERRORS      1680     A     
 ERRORS             LIST   D                                                               ERRORS      1681     A     
 ERRORS             END                                                                    ERRORS      1682     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 674    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - ERRORS  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          ERRORS                    1682      1334
          FCC0481                      1         1
          FCC0498                      9         6
          FCC0521                      2         2
          FCC0400                      1         1
          FCC0537                      2         2
          FCC0539                      4         4
          FCC0583                      1         1
          FCC0585                      3         3
          FCC0593                      4         4
          FCC0597                      9         9
          FEAT126A                   254       234
          FEAT126B                    27        12
          FEAT126C                     7         7
          FEAT126AA                    6         3
          FCC0718                      2         2
          FCC0743                      1         1
          FCC0775                      2         2
          FCC0787                      5         5
          FCC0794                      1         1
          FCC0844                      1         1
          FCC0931                      1         1
          FCC0835                      2         2
          FCC0990                      2         2
          FEAT155B                     2         2
          FEAT155E                     9         0
          CP139FC                      2         2
          FEAT155GA                    1         1
          FCC1046                      1         1
          FCC1134                      5         5
          FCC1238                      1         1
          FCC1247                      2         2
          FCC1259                      1         1
          FCC1274                      1         1
          FCC1295                      2         2
          FCC1258                      2         2
          FCC1294                      3         3
          FCC1307                      2         1
          FCC1309                      3         0
          FCC1332                      2         2
          FCC1410                      3         2
          FCC1328X                     5         5
          FCC1390X                     2         2
          FCC1463X                     4         4
          FCC1550X                     1         1
          FCC1573X                     1         1
          FCC1608X                     5         5
          FCC1636X                     1         1
          FCC1524X                     1         1
          FCC1563X                     1         1
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 675    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERRORS  
  
          FCC1638X                     1         1
          FCC1703X                     1         1
          FCC1716X                     3         3
          FCC1728X                     2         2
          FCC1769X                     1         1
          F66FCC                       1         1
          FCC1901                      2         2
          FCC1998                      1         1
          FCC2177                      1         1
          FCC2307                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BATCH   
  
 BATCH    *DECK     BATCH                                                                  BATCH          1     A     
 BATCH              IDENT  BATCH                                                           BATCH          2     A     
 BATCH     BATCH    SECT   (MAIN BATCH CONTROL.),1                                         BATCH          3     A     
 BATCH                                                                                     BATCH          4     A     
 BATCH              SST    A,C                                                             BATCH          5     A     
 BATCH              NOREF  A,C                                                             BATCH          6     A     
 BATCH                                                                                     BATCH          7     A     
 BATCH     B=BATCH  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             BATCH          8     A     
 BATCH                                                                                     BATCH          9     A     
 BATCH              ENTRY  RUN.X                                                           BATCH         10          I
          -FCC1097
 BATCH              ENTRY  RUN5,RUN.X                                                      FCC1097        6     A     
 BATCH                                                                                     BATCH         11     A     
 BATCH    *         IN FTN                                                                 BATCH         12     A     
 BATCH              EXT    CP.BUF,CP.PAGE,CP.LSTF,FV.LGO,F.LGO,F.OUT,F.RMAP,F.LF           BATCH         13          I
          -FEAT155E 
 BATCH              EXT    F.SB,F.TABS,O.TITL,TIME1,W.TABS                                 BATCH         14          I
          -FEAT126A 
 BATCH              EXT    F.SB,F.TABS,TIME1,W.TABS                                        FEAT126A     356          I
          -FCC0813
 BATCH              EXT    F.TABS,TIME1,W.TABS                                             FCC0813       70          I
          -FEAT155E 
 BATCH              EXT    CO.PD,CO.PS,CP.CARD,CP.LSTF,CP.PAGE,FV.LGO,F.LF,F.LGO           FEAT155E     107          I
          -FEAT155EA
 BATCH              EXT    CP.CARD,CP.LSTF,CP.PAGE,CP.PD,CP.PS,FV.LGO,F.LF,F.LGO           FEAT155EA     18          I
          -FCCA422
 BATCH              EXT     CP.CARD,CP.LSTF,CP.PAGE,CP.PD,LCP.PS,FV.LGO,F.LF               FCCA422       36     A     
 BATCH              EXT     F.LGO,PDFLAG                                                   FCCA422       37     A     
 BATCH              EXT    F.OUT,F.RMAP,F.SB,F.TABS,O.STITL,TIME1,W.TABS                   FEAT155E     108     A     
 BATCH              EXT    RS.PD                                                           FCCA593       56     A     
 BATCH                                                                                     BATCH         15     A     
 BATCH    *         IN TABLES                                                              BATCH         16     A     
 BATCH              EXT    BASES,BINOUT,CARDS,DOORD,DRITE,ETF,ERRORS                       BATCH         17     A     
 BATCH              EXT    FLOW,FAILSFT,HANGER,ICA,IDENT,ICV,IGS,L=TABLE,LOCORE            BATCH         18          I
          -FCC0813
 BATCH              EXT     L.TABLE,LOSTREF,MAXCORE,MOD,MSF,NARGS,NOPATH,NSK               BATCH         19          I
          -FCC0813
 BATCH              EXT    FLOW,FAILSFT,HANGER,ICA,IDENT,ICV,IGS,L=TABLE                   FCC0813       71          I
          -FEAT155E 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 676    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BATCH   
  
 BATCH              EXT    LOSTREF,MOD,MSF,NARGS,NOPATH,NSK                                FCC0813       72          I
          -FEAT155E 
 BATCH              EXT    FLOW,FAILSFT,HANGER,IDENT,ICV,IGS,LCNT,LOSTREF                  FEAT155E     109     A     
 BATCH              EXT    L=TABLE,MAXCORE,MOD,MSF,NARGS,NOPATH,NSK                        FEAT155E     110     A     
 BATCH              EXT    NTRCNT,N.TABLE,PARCEL,RATES,REFIO,TEM.MAX                       BATCH         20     A     
 BATCH              EXT    RJTDUM,RTNCNT,SIZES,SIZCORE,STAGE,SYSERR,TG.BASE,TG.CON         BATCH         21          I
          -FCC0813
 BATCH              EXT    RJTDUM,RTNCNT,SIZES,STAGE,SYSERR,TG.BASE,TG.CON                 FCC0813       73          I
          -FCC1495X 
 BATCH              EXT    RJTDUM,RTNCNT,SIZES,STAGE,SYSERR,TG.BASE                        FCC1495X       5     A     
 BATCH              EXT    TG.END,TP.DIM,TS.BLK,TS.STN,TS.SYM,T.END,WNZ                    BATCH         22     A     
 BATCH                                                                                     BATCH         23     A     
 BATCH    *         IN ERRORS                                                              BATCH         24     A     
 BATCH              EXT    ERR=D,ERR=F                                                     BATCH         25          I
          -FEAT126A 
 BATCH              EXT    ERR=F                                                           FEAT126A     357     A     
 BATCH                                                                                     BATCH         26     A     
 BATCH    *         IN MAP                                                                 BATCH         27          I
          -FEAT155D 
 BATCH              EXT    LPS.LR,SFN                                                      BATCH         28          I
          -FEAT155D -FEAT155G 
 BATCH                                                                                     BATCH         29          I
          -FEAT155D 
 BATCH    *         IN ALLOC                                                               BATCH         30     A     
 BATCH              EXT    PRS                                                             BATCH         31     A     
 BATCH                                                                                     BATCH         32     A     
 BATCH    *         IN MAIN                                                                BATCH         33     A     
 BATCH              EXT    CPM,CPM=1ST,AFSB                                                BATCH         34          I
          -FEAT155G 
 BATCH              EXT    CPM,CPM=1ST                                                     FEAT155G     142     A     
 BATCH                                                                                     BATCH         35     A     
 BATCH    *         IN LEX                                                                 BATCH         36     A     
 BATCH              EXT    NAT.TYP                                                         BATCH         37     A     
 BATCH                                                                                     BATCH         38     A     
 BATCH    *         IN REG                                                                 BATCH         39     A     
 BATCH              EXT    CAR                                                             BATCH         40     A     
 BATCH                                                                                     BATCH         41     A     
 BATCH    *         IN PAR                                                                 BATCH         42     A     
 BATCH              EXT    CURST                                                           BATCH         43     A     
 BATCH                                                                                     BATCH         44     A     
 BATCH    *         IN INIT                                                                BATCH         45     A     
 BATCH              EXT    EQUA,FCA,FTO                                                    BATCH         46          I
          -FCCA594
 BATCH              EXT    EQUA,FCA,FTO,OSTACK,ESTACK                                      FCCA594        8     A     
 BATCH                                                                                     BATCH         47     A     
 BATCH                                                                                     BATCH         48     A     
 BATCH    **        FTN10 - (1,0) OVERLAY ENTRY                                            BATCH         49     A     
 BATCH    *                                                                                BATCH         50     A     
 BATCH    *         BASED UPON WHAT HAS  GONE BEFORE                                       BATCH         51     A     
 BATCH    *                                                                                BATCH         52     A     
 BATCH    *         EXITS TO *FCA* - IF RETURN FROM COMPASS ASSEMBLY                       BATCH         53     A     
 BATCH    *               TO *RUN.X* - IF INITIAL (OR SUBSEQUENT) FORTRAN                  BATCH         54     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 677    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BATCH   
  
 BATCH    *               TO *ENDRUN* - IF NO MORE SOURCE INPUT                            BATCH         55     A     
 BATCH    *               TO *ABORT* - IF SOURCE INPUT NULL                                BATCH         56     A     
 BATCH    *                                                                                BATCH         57     A     
 BATCH    *         ENTRY (B2) = 0 - UPON RETURN FROM COMPASS                              BATCH         58     A     
 BATCH    *                      1 - OTHERWISE                                             BATCH         59     A     
 BATCH                                                                                     BATCH         60     A     
 BATCH                                                                                     BATCH         61     A     
 BATCH    *         IF (BREAK=10) WAS SELECTED, ENTRY TO OVERLAY(1,0) WILL BE TO           FEAT155F     208     A     
 BATCH    *         *FTN10-1* TO CALL THE COMPILE-TIME INTERACTIVE DEBUG PACKAGE.          FEAT155F     209     A     
 BATCH                                                                                     FEAT155F     210     A     
 BATCH     FTN10    BREAK                                                                  FEAT155F     211     A     
 BATCH                                                                                     FEAT155F     212     A     
 BATCH              ENTRY  FTN10                                                           BATCH         62     A     
 BATCH     FTN10    BSS    0           ** LOADER ENTRY POINT **                            BATCH         63     A     
 BATCH              SA1    =XCP.BUF                                                        BATCH         64          I
          -FEAT155E 
 BATCH              SA1    CP.CARD                                                         FEAT155E     111     A     
 BATCH              NZ     X1,FCA      FINISHED WITH COMPASS ASSEMBLY                      BATCH         65          I
          -FCCA519
 BATCH              RJ     FTO         PRIMARY INITIALIZATION (FIRST TIME ONLY)            BATCH         66          I
          -FCCA519
 BATCH              SA2    =XCOMRET                                                        FCCA519        8     A     
 BATCH              PL     X2,FTN10A   IF FIRST TIME THROUGH                               FCCA519        9     A     
 BATCH              NZ     X1,FCA      IF FTN AFTER COMPASS IDENT                          FCCA519       10     A     
 BATCH              EQ     RUN.X       TERMINATE IF COMPASS DETECTED EOR                   FCCA519       11     A     
 BATCH                                                                                     FCCA519       12     A     
 BATCH     FTN10A   RJ     FTO         (1,0) INITIALIZATION                                FCCA519       13     A     
 BATCH                                                                                     BATCH         67     A     
 BATCH              RJ     =XTIMER                                                         BATCH         68     A     
 BATCH              SA6    =XTIME1                                                         BATCH         69     A     
 BATCH              SB4    CP.BUF                                                          BATCH         70          I
          -FEAT155E 
 BATCH              RJ     =XRNC       READ FIRST CARD                                     BATCH         71     A     
 BATCH              ZR     X1,RUN.X    IF NO END-OF-SECTION                                BATCH         72     A     
 BATCH                                                                                     BATCH         73     A     
 BATCH              SA1    =XCER.FL                                                        FCC2104       17     A     
 BATCH              SX6    1                                                               FCC2104       18     A     
 BATCH              SA6    A1                                                              FCC2104       19     A     
 BATCH              MESAGE (=C= EMPTY INPUT FILE.  NO COMPILATION.=),,RCL                  BATCH         74     A     
 BATCH              EQ     =XENDFTN                                                        BATCH         75          I
          -FCC1678X 
 BATCH              EQ     RUN7        CLOSE FILES                                         FCC1678X       4     A     
 BATCH     RUN1     SPACE  4,15                                                            BATCH         76     A     
 BATCH    **        RUN1A - MAIN BATCH CONTROL.                                            BATCH         77     A     
 BATCH    *                                                                                BATCH         78     A     
 BATCH    *         DECIDES WHETHER TO TERMINATE COMPILATION, PASS CONTROL TO              BATCH         79     A     
 BATCH    *         *COMPASS*, OR BEGIN ANOTHER PROGRAM-UNIT.                              BATCH         80     A     
 BATCH    *                                                                                BATCH         81     A     
 BATCH    *         EXITS  TO *EOC* - IF END OF BATCH.                                     BATCH         82     A     
 BATCH    *                TO *BCA* - IF INTERMIXED ASSEMBLY.                              BATCH         83     A     
 BATCH    *                TO *CPM* - IF MORE FORTRAN TO COMPILE.                          BATCH         84     A     
 BATCH    *                                                                                BATCH         85     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 678    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BATCH   
  
 BATCH    *         CALLS  IST, RECALL                                                     BATCH         86     A     
 BATCH                                                                                     BATCH         87     A     
 BATCH                                                                                     BATCH         88     A     
 BATCH     RUN1A    SA2    FV.LGO                                                          BATCH         89     A     
 BATCH              ZR     X2,RUN1B          IF BINARY SUPPRESSED                          BATCH         90     A     
 BATCH                                                                                     BATCH         91     A     
 BATCH     #RM      IFEQ   CP#RM,0                                                         BATCH         92     A     
 BATCH              RECALL F.LGO                                                           BATCH         93     A     
 BATCH     #RM      ENDIF                                                                  BATCH         94     A     
 BATCH                                                                                     BATCH         95     A     
 BATCH              SA1    =XBINIO                                                         BATCH         96     A     
 BATCH              BX6    0                                                               BATCH         97     A     
 BATCH              PL     X1,RUN1B    IF LF NOT SPILLED TO DISK                           BATCH         98     A     
 BATCH              SA6    A1                                                              BATCH         99     A     
 BATCH              REWIND F.LF                                                            FCC1870        5     A     
 BATCH              CLOSE  F.LF,UNLOAD                                                     BATCH        100     A     
 BATCH     RUN1B    SA2    =XREFIO                                                         BATCH        101          I
          -FCC0644
 BATCH     RUN1B    SA1    =XLOP=R                                                         FCC0644        5     A     
 BATCH              PL     X1,RUN1C    IF REF NOT SELECTED                                 FCC0644        6     A     
 BATCH              SA2    REFIO                                                           FCC0644        7     A     
 BATCH              PL     X2,RUN1C    IF REF NOT SPILLED TO DISK                          BATCH        102     A     
 BATCH              MX6    0                                                               FCC0644        8     A     
 BATCH              SA6    A2                                                              BATCH        103     A     
 BATCH              CLOSE  F.RMAP,UNLOAD                                                   BATCH        104     A     
 BATCH     RUN1C    SA5    =1H                                                             BATCH        105          I
          -FCC1829
 BATCH     RUN1C    RJ     IST         INITIALIZE SUBPROGRAM TABLES                        FCC1829        6     A     
 BATCH              SA1    =XT.SB                                                          FCC1829        7     A     
 BATCH              SA2    =XL.CARD    NUMBER OF WORDS IN LINE IMAGE                       FCC1829        8          I
          -FCCA505
 BATCH              SA5    =XCP.CARD                                                       FCC1829        9          I
          -FCCA454
 BATCH     RUN1D    SA5    =XCP.CARD                                                       FCCA454        6          I
          -FCCA505
 BATCH              SA0    X1          SET A0                                              FCC1829       10          I
          -FCCA505
 BATCH              SA0    X1                                                              FCCA505        7     A     
 BATCH     RUN1D    SA2    =XL.CARD     NUMBER OF WORDS IN LINE IMAGE                      FCCA505        8     A     
 BATCH              SA5    =XCP.CARD                                                       FCCA505        9     A     
 BATCH              MX6    0                                                               FCC1829       11     A     
 BATCH              SX7    "SB.FWA"-1                                                      FCC1829       12     A     
 BATCH              SA6    =XCCNT      CLEAR CONTINUATION COUNT                            FCC1829       13     A     
 BATCH              BX2    -X2                                                             FCC1829       14     A     
 BATCH              SA7    =XLASTCOL   PRESTORE IN CASE OF C/-LIST                         FCC1829       15     A     
 BATCH              =B6    X2+1        - NUMBER OF USABLE WORDS LESS TERMINATOR            FCC1829       16     A     
 BATCH              RJ     =XRNS       READ NEXT STATEMENT                                 FCC1829       17     A     
 BATCH              ZR     X5,=XAFS.ME IF END OF SECTION                                   FCC1829       18     A     
 BATCH              RJ     =XPLO       PROCESS C/-LIST OPTIONS                             FCC1829       19     A     
 BATCH              ZR     X5,=XAFS.ME IF END OF SECTION                                   FCC1829       20     A     
 BATCH              SA5    =1H                                                             FCC1829       21     A     
 BATCH              SA2    CP.BUF                                                          BATCH        106          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 679    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BATCH   
  
          -FEAT155E 
 BATCH              SA2    CP.CARD                                                         FEAT155E     112     A     
 BATCH              MX0    6*CHAR                                                          BATCH        107     A     
 BATCH              SA3    A2+B1                                                           BATCH        108     A     
 BATCH              SA4    =6LIDENT                                                        BATCH        109     A     
 BATCH              IX1    X2-X5                                                           BATCH        110     A     
 BATCH              NZ     X1,RUN2     IF COLS. 1-10 NOT BLANK                             BATCH        111          I
          -FCC1829
 BATCH              NZ     X1,CPM      IF COLS 1-10 .NE. BLANKS, ENTER MASTER LOOP         FCC1829       22     A     
 BATCH              BX6    X0*X3                                                           BATCH        112     A     
 BATCH              IX4    X4-X6                                                           BATCH        113     A     
 BATCH              NZ     X4,RUN2     IF COL 11-16 NOT *IDENT *                           BATCH        114          I
          -FCC1829
 BATCH              NZ     X4,CPM      IF COLS 11-16 .NE. IDENT, ENTER MASTER LOOP         FCC1829       23          I
          -FCCA454
 BATCH              ZR     X4,RUN1F    IF COLS. 11-16 .EQ. IDENT, LOAD COMPASS             FCCA454        7     A     
 BATCH              SB3    6                                                               FCCA454        8     A     
 BATCH     RUN1E    SA2    A2+1        CHECK NEXT 10 COLUMNS                               FCCA454        9     A     
 BATCH              IX1    X2-X5                                                           FCCA454       10     A     
 BATCH              NZ     X1,CPM      IF NOT BLANK LINE, ENTER MASTER LOOP                FCCA454       11     A     
 BATCH              SB3    B3-B1                                                           FCCA454       12     A     
 BATCH              GT     B3,RUN1E                                                        FCCA454       13     A     
 BATCH              SA2    A2+1                                                            FCCA454       14     A     
 BATCH              MX0    2*CHAR                                                          FCCA454       15     A     
 BATCH              SA4    =2L                                                             FCCA454       16     A     
 BATCH              BX6    X0*X2                                                           FCCA454       17     A     
 BATCH              IX4    X4-X6       CHECK COLS. 71 AND 72                               FCCA454       18     A     
 BATCH              NZ     X4,CPM      IF NOT BLANK LINE, ENTER MASTER LOOP                FCCA454       19     A     
 BATCH              RJ     =XPLR       PROCESS LISTING REQUEST                             FCCA454       20     A     
 BATCH              RJ     =XRNC       READ NEXT CARD                                      FCCA454       21     A     
 BATCH              EQ     RUN1D                                                           FCCA454       22     A     
 BATCH              RJ     =XLDB       LIST DEFERRED BUFFER (IF ANY)                       FCC1829       24          I
          -FCCA454
 BATCH     RUN1F    RJ     =XLDB       LIST DEFERRED BUFFER(IF ANY)                        FCCA454       23     A     
 BATCH              WRITER =XF.OUT,RCL                                                     BATCH        115     A     
 BATCH              EQ     =XLDCOM     LOAD COMPASS (1,0)                                  BATCH        116     A     
 BATCH     RUN2     RJ     IST         INITIALIZE SUBPROGRAM TABLES                        BATCH        117          I
          -FCC1829
 BATCH              EQ     CPM         ENTER MASTER LOOP..                                 BATCH        118          I
          -FCC1829
 BATCH                                                                                     BATCH        119     A     
 BATCH                                                                                     BATCH        120     A     
 BATCH    **        RUN.X -  EXIT FROM PROGRAM-UNIT COMPILATION.                           BATCH        121     A     
 BATCH    *                                                                                BATCH        122     A     
 BATCH    *         ENTRY  PREVIOUS COMPILATION COMPLETE OR ABANDONED.                     BATCH        123     A     
 BATCH                                                                                     BATCH        124     A     
 BATCH     RUN.X    SX6    EJECT+1                                                         BATCH        125          I
          -FEAT155E 
 BATCH              SA6    =XLCNT      SET EMPTY PAGE                                      BATCH        126          I
          -FEAT155E 
 BATCH     RUN.X    SA4    CO.PS                                                           FEAT155E     113          I
          -FEAT155EA
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 680    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BATCH   
  
 BATCH     RUN.X    SA4    CP.PS                                                           FEAT155EA     19          I
          -FCCA422
 BATCH     RUN.X    SA4    LCP.PS                                                          FCCA422       38     A     
 BATCH              SA1    =1H-                                                            BATCH        127     A     
 BATCH              SA2    =XCP.LSTF                                                       BATCH        128     A     
 BATCH              SA3    =XCP.PAGE                                                       BATCH        129     A     
 BATCH              SA5    =XCP.PAGE                                                       FCCA410       14     A     
 BATCH              SX7    X4+B1                                                           FEAT155E     114     A     
 BATCH              BX6    X1                                                              BATCH        130     A     
 BATCH              SA7    LCNT        SET EMPTY PAGE                                      FEAT155E     115     A     
 BATCH              NZ     X2,RUN3     IF NOT *L=0*                                        BATCH        131     A     
 BATCH              SA6    =XTL.JECT   SET TITLE TO TRIPLE SPACE, NOT EJECT                BATCH        132     A     
 BATCH     RUN3     SA1    =XCP.BLF                                                        BATCH        133     A     
 BATCH              BX2    X2*X3       EXTRACT EVEN/ODD PAGE COUNT IF LISTING ON           BATCH        134     A     
 BATCH              BX1    X1*X2                                                           BATCH        135     A     
 BATCH              IX6    X3+X1                                                           BATCH        136     A     
 BATCH              PL     X3,RUN4     IF PROPAGATING PAGE COUNT                           BATCH        137     A     
 BATCH              MX6    1                                                               BATCH        138     A     
 BATCH              MX6    2                                                               FCCA473       15     A     
 BATCH     RUN3A    BX6    X3*X6                                                           FCCA473       16     A     
 BATCH     RUN4     SA6    A3          UPDATE/RESET PAGE COUNT                             BATCH        139     A     
 BATCH              ZR     X1,RUN5     IF (EVEN PAGE COUNT) OR (SHORT/NO LIST)             BATCH        140     A     
 BATCH              WRITEC =XF.OUT,(=2L1 ),1       MAINTAIN PAGE PARITY                    BATCH        141     A     
 BATCH     RUN5     SA2    CP.BUF                                                          BATCH        142          I
          -FEAT155E 
 BATCH     RUN5     SA2    CP.CARD                                                         FEAT155E     116     A     
 BATCH              NZ     X2,RUN1A    IF NO END-OF-SECTION ON INPUT                       BATCH        143     A     
 BATCH                                                                                     BATCH        144     A     
 BATCH    **        TERMINATE AND CLOSE FILES                                              BATCH        145     A     
 BATCH    *                                                                                BATCH        146     A     
 BATCH              SA2    =XCP.LSTF                                                       FCCA534       13     A     
 BATCH              ZR     X2,RUN5A    IF L = 0, DONOT OUTPUT PD                           FCCA534       14     A     
 BATCH              SA1    =XCP.LSTF                                                       FEAT155EB      3          I
          -FCC1200
 BATCH              ZR     X1,RUN5B    IF L=0                                              FEAT155EB      4          I
          -FCC1200
 BATCH              WRITER =XF.OUT     FLUSH OUTPUT BUFFER                                 BATCH        147          I
          -FEAT155E 
 BATCH              SA2    CO.PD                                                           FEAT155E     117          I
          -FEAT155EA
 BATCH              SA2    CP.PD                                                           FEAT155EA     20          I
          -FCCA473
 BATCH              ZR     X2,RUN5A    IF PD NOT FOUND ON CONTROL CARD                     FEAT155E     118          I
          -FCCA473
 BATCH              MX6    1                                                               FCCA410       15          I
          -FCCA473
 BATCH              BX5    -X6*X5                                                          FCCA410       16          I
          -FCCA473
 BATCH              ZR     X5,RUN5A   IF NO LINE HAS BEEN                                  FCCA410       17          I
          -FCCA422
 BATCH              ZR     X5,RUN5A    IF NO LINE HAS BEEN PRINTED                         FCCA422       39          I
          -FCCA473
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 681    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BATCH   
  
 BATCH    #PD       IFEQ   IP.PD,6                                                         FEAT155E     119          I
          -FCCA473
 BATCH              SX6    1RS                                                             FEAT155E     120          I
          -FCCA473
 BATCH    #PD       ELSE                                                                   FEAT155E     121          I
          -FCCA473
 BATCH              SX6    1RT                                                             FEAT155E     122          I
          -FCCA473
 BATCH    #PD       ENDIF                                                                  FEAT155E     123          I
          -FCCA473
 BATCH              LX6    -CHAR                                                           FEAT155E     124          I
          -FCCA473
 BATCH              SA2    CP.PD                                                           FCCA473       17     A     
 BATCH              SA3    =23550000000000000000B                                          FCCA473       18          I
          -FCCA534
 BATCH              SA3    =24550000000000000000B                                          FCCA534       15          I
          -FCCA593
 BATCH              IX3    X2-X3                                                           FCCA473       19          I
          -FCCA593
 BATCH              ZR     X3,RUN5A   IF PD = 6, DONOT OUTPUT 6                            FCCA473       20          I
          -FCCA534  -FCCA593
 BATCH              MI     X3,RUN5A    IF PD = 6, DONOT OUTPUT PD                          FCCA534       16          I
          -FCCA593
 BATCH              SX6    2RS                                                             FCCA473       21          I
          -FCCA593
 BATCH              LX6    -12         RESET PD BACK TO 6                                  FCCA473       22          I
          -FCCA593
 BATCH              ZR     X2,RUN5A    IF TTY FILE                                         FCCA593       57     A     
 BATCH              SA3    RS.PD                                                           FCCA593       58     A     
 BATCH              BX6    X2-X3                                                           FCCA593       59     A     
 BATCH              ZR     X6,RUN5A    IF USING JOB DEFAULT                                FCCA593       60     A     
 BATCH              BX6    X3                                                              FCCA593       61     A     
 BATCH              SA6    =XGT1                                                           FEAT155E     125     A     
 BATCH              WRITEC F.OUT,GT1,1 RESET DENSITY                                       FEAT155E     126     A     
 BATCH              MX6    1                                                               FCCA422       40          I
          -FCCA473
 BATCH              SA6    PDFLAG      RESET PDFLAG                                        FCCA422       41          I
          -FCCA473
 BATCH     RUN5A    WRITER F.OUT       FLUSH OUTPUT BUFFER                                 FEAT155E     127          I
          -FCC1200
 BATCH              SA2    =XFV.LGO                                                        BATCH        148          I
          -FEAT155EB-FCC1200
 BATCH     RUN5B    SA2    =XFV.LGO                                                        FEAT155EB      5          I
          -FCC1200
 BATCH     RUN5A    BSS    0                                                               FCC1200        9     A     
 BATCH    #RM       IFEQ   CP#RM,0                                                         FCC1200       10     A     
 BATCH              SA1    F.OUT                                                           FCC1200       11     A     
 BATCH              SB2    X1                                                              FCC1200       12     A     
 BATCH              EQ     B1,B2,RUN5B IF FILE NOT ACTED UPON                              FCC1200       13     A     
 BATCH              SB3    34                                                              FCC1200       14     A     
 BATCH              LE     B2,B3,RUN5C IF NOT AN OPEN OR CLOSE                             FCC1200       15     A     
 BATCH     RUN5B    SA1    A1+2        GET IN POINTER                                      FCC1200       16     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 682    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BATCH   
  
 BATCH              SA2    A1+B1       GET OUT POINTER                                     FCC1200       17     A     
 BATCH              SB2    X1                                                              FCC1200       18     A     
 BATCH              SB3    X2                                                              FCC1200       19     A     
 BATCH              EQ     B2,B3,RUN5D IF BUFFER EMPTY                                     FCC1200       20     A     
 BATCH    #RM       ELSE                                                                   FCC1200       21     A     
 BATCH              FETCH  F.OUT,LOP,X5                                                    FCC1200       22     A     
 BATCH              SB3    X5                                                              FCC1200       23     A     
 BATCH              LE     B3,B1,RUN5D IF FILE NOT WRITTEN ON                              FCC1200       24     A     
 BATCH    #RM       ENDIF                                                                  FCC1200       25     A     
 BATCH     RUN5C    WRITER F.OUT                                                           FCC1200       26     A     
 BATCH     RUN5D    SA2    =XFV.LGO                                                        FCC1200       27     A     
 BATCH              ZR     X2,RUN6     IF BINARY OUTPUT SUPPRESSED (B=0)                   BATCH        149     A     
 BATCH              WRITEF F.LGO                                                           BATCH        150     A     
 BATCH              BKSP   F.LGO                                                           BATCH        151     A     
 BATCH                                                                                     BATCH        152     A     
 BATCH    *         EVICT SCRATCH FILES                                                    BATCH        153     A     
 BATCH                                                                                     BATCH        154     A     
 BATCH     .T       IFEQ   TEST,0                                                          BATCH        155     A     
 BATCH              SA1    =XBINIO                                                         BATCH        156     A     
 BATCH              PL     X1,RUN6     IF BINARY OUTPUT FILE NOT USED                      BATCH        157     A     
 BATCH              CLOSE  F.LF,UNLOAD                                                     BATCH        158     A     
 BATCH     .T       ENDIF                                                                  BATCH        159     A     
 BATCH                                                                                     BATCH        160     A     
 BATCH     RUN6     BSS    0                                                               BATCH        161     A     
 BATCH                                                                                     BATCH        162     A     
 BATCH     .T       IFEQ   TEST,0                                                          BATCH        163     A     
 BATCH              SA2    =XREFIO                                                         BATCH        164     A     
 BATCH              PL     X2,RUN7     IF REF FILE NOT USED                                BATCH        165     A     
 BATCH              CLOSE  F.RMAP,UNLOAD                                                   BATCH        166     A     
 BATCH     RUN7     BSS    0                                                               BATCH        167          I
          -FCC1678X 
 BATCH     .T       ENDIF                                                                  BATCH        168     A     
 BATCH                                                                                     BATCH        169     A     
 BATCH    *         CLOSE ALL FILES.                                                       FCC1678X       5     A     
 BATCH                                                                                     FCC1678X       6     A     
 BATCH     RUN7     BSS    0                                                               FCC1678X       7     A     
 BATCH     #RM      IFGE   CP#RM,6                                                         BATCH        170     A     
 BATCH              SX6    =XFVLEN-1   (X6) = FILE VECTOR TABLE OFFSET                     BATCH        171     A     
 BATCH     RUN7A    SA2    RA.ARG+X6   (X2) = FIT ADDRESS FROM FILE VECTOR TABLE           BATCH        172     A     
 BATCH              SA6    =XGT1       TEMP STORE OFFSET                                   BATCH        173     A     
 BATCH              ZR     X2,RUN7B    IF FILE DESELECTED                                  BATCH        174     A     
 BATCH              RJ     FA=CLO                                                          BATCH        175     A     
 BATCH     RUN7B    SA1    =XGT1                                                           BATCH        176     A     
 BATCH              SX6    X1-1        (X6) = OFFSET FOR NEXT FILE                         BATCH        177     A     
 BATCH              PL     X6,RUN7A    IF MORE FILES TO CLOSE                              BATCH        178     A     
 BATCH     #RM      ENDIF                                                                  BATCH        179     A     
 BATCH                                                                                     BATCH        180     A     
 BATCH    **        SEND FL USED TO DAYFILE.                                               FCC0813       74     A     
 BATCH    *                                                                                FCC0813       75     A     
 BATCH              PIA    =XCP.MXFL,=XLPS.MAX                                             FCC0813       76          I
          -FEAT155G 
 BATCH              SX6    0                                                               FCC0813       77          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 683    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BATCH   
  
          -FEAT155G 
 BATCH              SA6    LPS.MAX+3                                                       FCC0813       78          I
          -FEAT155G 
 BATCH              MESSAGE =XLPS.MAX,,RECALL                                              FCC0813       79          I
          -FEAT155G 
 BATCH              PIA    =XCP.MXFL,=XLFS.MAX                                             FEAT155G     143     A     
 BATCH              SX6    0                                                               FEAT155G     144     A     
 BATCH              SA6    =XLFS.MAX+3                                                     FEAT155G     145     A     
 BATCH              MESSAGE  =XLFS.MAX,,RECALL                                             FEAT155G     146     A     
 BATCH                                                                                     FCC0813       80     A     
 BATCH    **        TURN OFF -SPY-                                                         BATCH        181     A     
 BATCH    *                                                                                BATCH        182     A     
 BATCH     .T       IFNE   TEST,0                                                          BATCH        183     A     
 BATCH     #OS      IFEQ   .OS,0       IF SPY AVALIABLE                                    BATCH        184          I
          -FEAT126A 
 BATCH     #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A     358     A     
 BATCH              RJ     =XOFFSPY                                                        BATCH        185     A     
 BATCH     #OS      ENDIF                                                                  BATCH        186     A     
 BATCH     .T       ENDIF                                                                  BATCH        187     A     
 BATCH                                                                                     BATCH        188     A     
 BATCH    **        WAIT FOR FILE ACTION TO COMPLETE.                                      BATCH        189     A     
 BATCH    *                                                                                BATCH        190     A     
 BATCH     #RM      IFEQ   CP#RM,0                                                         BATCH        191     A     
 BATCH              SB2    RA.ARG                                                          BATCH        192     A     
 BATCH              SB3    RA.ARG+=XFVLEN                                                  BATCH        193     A     
 BATCH     RUN8     SA5    B2          (X5)=FILE VECTOR ENTRY                              BATCH        194     A     
 BATCH              SB2    B2+B1                                                           BATCH        195     A     
 BATCH              ZR     X5,RUN9     IF FILE DESELECTED                                  BATCH        196     A     
 BATCH              SX2    X5          (X2)=ADDRESS OF FET                                 BATCH        197     A     
 BATCH              RECALL X2                                                              BATCH        198     A     
 BATCH     RUN9     LT     B2,B3,RUN8  IF MORE FILES TO CHECK                              BATCH        199     A     
 BATCH     #RM      ENDIF                                                                  BATCH        200     A     
 BATCH                                                                                     BATCH        201     A     
 BATCH              EQ     =XENDFTN    TERMINATE *FTN*                                     BATCH        202     A     
 BATCH     IST      SPACE  4,8                                                             BATCH        203     A     
 BATCH    **        IST -  INITIALIZE SUBPROGRAM TABLES.                                   BATCH        204     A     
 BATCH    *                                                                                BATCH        205     A     
 BATCH    *         PERFORMS INITIALIZATION FOR EACH PROGRAM-UNIT OF THE BATCH.            BATCH        206     A     
 BATCH    *                                                                                BATCH        207     A     
 BATCH    *         EXIT   ALL APPROPRIATE CELLS, COUNTERS AND TABLES HAVE BEEN            BATCH        208     A     
 BATCH    *                SET TO THEIR INITIAL VALUES.                                    BATCH        209     A     
 BATCH    *                (A0) _ STRING BUFFER.                                           BATCH        210          I
          -FCC0813
 BATCH                                                                                     BATCH        211     A     
 BATCH                                                                                     BATCH        212     A     
 BATCH     IST      SUBR   0                                                               BATCH        213     A     
 BATCH                                                                                     BATCH        214     A     
 BATCH    **        COLLAPSE TABLES TO INITIAL LENGTHS                                     BATCH        215     A     
 BATCH                                                                                     BATCH        216     A     
 BATCH              SA1    F.SB                                                            BATCH        217          I
          -FCC0813
 BATCH              SA4    F.TABS                                                          BATCH        218     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 684    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BATCH   
  
 BATCH              SA2    W.TABS                                                          BATCH        219     A     
 BATCH              SB2    N.TABLE*FUDGE                                                   BATCH        220     A     
 BATCH              SB2    B2+L=TABLE                                                      BATCH        221     A     
 BATCH              SB2    -B2                                                             BATCH        222     A     
 BATCH              SX5    X2+B2                                                           BATCH        223     A     
 BATCH              LX7    X2                                                              BATCH        224     A     
 BATCH              SB2    N.TABLE-1                                                       BATCH        225     A     
 BATCH              SA7    SIZCORE                                                         BATCH        226          I
          -FCC0813
 BATCH              BX6    X4          (X4) = (LOCORE)                                     BATCH        227          I
          -FCC0813
 BATCH                                                                                     BATCH        228     A     
 BATCH    **        INITIALLY, AMOUNT OF AVAILABLE SPACE IS --                             BATCH        229     A     
 BATCH    *         A = (SIZCORE) - N*FUDGE - L=TABLES                                     BATCH        230     A     
 BATCH                                                                                     BATCH        231     A     
 BATCH              PX2    X5          (X2) = AVAILABLE                                    BATCH        232     A     
 BATCH              SA6    LOCORE                                                          BATCH        233          I
          -FCC0813
 BATCH              IX7    X7+X4       (X7) = LWA TABLES                                   BATCH        234     A     
 BATCH              NX1    X2                                                              BATCH        235     A     
 BATCH              SX6    X4+L.TABLE                                                      BATCH        236          I
          -FCC0813
 BATCH              SA7    T.END                                                           BATCH        237     A     
 BATCH              SA6    MAXCORE                                                         BATCH        238          I
          -FCC0813
 BATCH                                                                                     BATCH        239     A     
 BATCH     IST2     SA3    B2+RATES                                                        BATCH        240     A     
 BATCH              FX2    X3*X1                                                           BATCH        241     A     
 BATCH              SX6    X3                                                              BATCH        242     A     
 BATCH              UX0,B7 X2                                                              BATCH        243     A     
 BATCH              =B2    B2-1                                                            BATCH        244     A     
 BATCH              =X3    X3+FUDGE    = INIT(I) + FUDGE                                   BATCH        245     A     
 BATCH              LX2    X0,B7                                                           BATCH        246     A     
 BATCH              IX5    X2+X3                                                           BATCH        247     A     
 BATCH              IX7    X7-X5                                                           BATCH        248     A     
 BATCH              SA6    B2+SIZES+1        SET INITIAL SIZE                              BATCH        249     A     
 BATCH              SA7    B2+BASES+1        SET INITIAL ORIGIN                            BATCH        250     A     
 BATCH              PL     B2,IST2     LOOP THRU TABLES                                    BATCH        251     A     
 BATCH              BX7    X4                                                              BATCH        252     A     
 BATCH              SA7    A7          RESET ORIGIN OF LOWEST TABLE (LONG FILE)            BATCH        253     A     
 BATCH                                                                                     BATCH        254     A     
 BATCH                                                                                     BATCH        255     A     
 BATCH    **        RESET TAG BASES TO INITIAL VALUES                                      BATCH        256     A     
 BATCH                                                                                     BATCH        257     A     
 BATCH              SX6    C.BASE                                                          BATCH        258     A     
 BATCH              SB2    TG.END                                                          BATCH        259     A     
 BATCH              SB2    -B2                                                             BATCH        260     A     
 BATCH              SB2    B2+TG.BASE                                                      BATCH        261     A     
 BATCH              SX2    C.DIF                                                           BATCH        262     A     
 BATCH     IST4     SA6    B2+TG.END                                                       BATCH        263     A     
 BATCH              SB2    B2+B1                                                           BATCH        264     A     
 BATCH              IX6    X6+X2       INCREMENT TAG VALUE                                 BATCH        265     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 685    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BATCH   
  
 BATCH              LE     B2,B0,IST4  IF MORE TAGS LEFT TO DO                             BATCH        266     A     
 BATCH              SX6    C.CON-1                                                         BATCH        267          I
          -FCC1495X 
 BATCH              SX7    C.TEM                                                           BATCH        268     A     
 BATCH              SA6    TG.CON      *CON* TAGS LAG BEHIND, SEE *NCS*                    BATCH        269          I
          -FCC1495X 
 BATCH              SA7    TEM.MAX                                                         BATCH        270     A     
 BATCH                                                                                     BATCH        271     A     
 BATCH    **        CLEAR OUT BASIC SYMBOL, LABEL AND ADDRESS TABLES.                      BATCH        272     A     
 BATCH                                                                                     BATCH        273     A     
 BATCH              SA2    TS.SYM                                                          BATCH        274     A     
 BATCH              BX1    0                                                               BATCH        275     A     
 BATCH              SX3    X2+LSYM                                                         BATCH        276     A     
 BATCH              RJ     PRS         CLEAR OUT BASE SYMBOL TABLE                         BATCH        277     A     
 BATCH                                                                                     BATCH        278     A     
 BATCH              SA2    TS.STN                                                          BATCH        279     A     
 BATCH              BX1    0                                                               BATCH        280     A     
 BATCH              SX3    X2+LSTN                                                         BATCH        281     A     
 BATCH              RJ     PRS         CLEAR OUT BASE LABEL TABLE                          BATCH        282     A     
 BATCH                                                                                     BATCH        283     A     
 BATCH              SA2    =XTA.NAM                                                        BATCH        284     A     
 BATCH              BX1    0                                                               BATCH        285     A     
 BATCH              SX3    X2+LSYM/2                                                       BATCH        286     A     
 BATCH              RJ     PRS                                                             BATCH        287     A     
 BATCH                                                                                     BATCH        288     A     
 BATCH    **        PRESET DIM TABLE WITH A FAKE ENTRY WHICH SAYS --                       BATCH        289     A     
 BATCH    *                (NUMBER OF DIMS ) = 1                                           BATCH        290     A     
 BATCH    *                (LENGTH OF ARRAY) = 1                                           BATCH        291     A     
 BATCH                                                                                     BATCH        292     A     
 BATCH              SA1    TP.DIM                                                          BATCH        293     A     
 BATCH              =X6    1                                                               BATCH        294     A     
 BATCH              IFNE   P.NDIM+L.NDIM,60,1                                              BATCH        295     A     
 BATCH              ERR    *IST* -- CHANGE TP.DIM INITIALIZATION                           BATCH        296     A     
 BATCH     A        DECMIC L.NDIM                                                          BATCH        297     A     
 BATCH              =X7    1+1S"A"                                                         BATCH        298     A     
 BATCH              LX6    P.DIM                                                           BATCH        299     A     
 BATCH              LX7    -L.NDIM                                                         BATCH        300     A     
 BATCH              SA6    X1+B1       FAKE UP  DIMENSIONALITY OF 1                        BATCH        301     A     
 BATCH              IFNE   P.DIM,P.DIMLG,1                                                 BATCH        302     A     
 BATCH              LX6    -P.DIM+P.DIMLG                                                  BATCH        303     A     
 BATCH              BX7    X6+X7                                                           BATCH        304     A     
 BATCH              SA7    X1          FAKE ENTRY, NR DIMS = 1                             BATCH        305     A     
 BATCH                                                                                     BATCH        306     A     
 BATCH    **        PRE-ENTER COMMON BLOCK TABLE WITH --                                   BATCH        307     A     
 BATCH    *                0.  PROGRAM RELOCATION BLOCK                                    BATCH        308     A     
 BATCH    *                1.  BLANK COMMON                                                BATCH        309          I
          -FCC0583
 BATCH                                                                                     BATCH        310     A     
 BATCH              SA1    TS.BLK                                                          BATCH        311     A     
 BATCH              BX6    0                                                               BATCH        312     A     
 BATCH              SA6    X1          FAKE ENTRY IS PROGRAM REL. BLOCK                    BATCH        313     A     
 BATCH              SA6    A6+B1       PRE-ENTER BLANK COMMON                              BATCH        314          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 686    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BATCH   
  
          -FCC0583
 BATCH              SA6    A6+B1                                                           BATCH        315          I
          -FCC0583
 BATCH              SA6    A6+B1                                                           BATCH        316     A     
 BATCH                                                                                     FCCA594        9     A     
 BATCH    **        CLEAR OSTACK , ESTACK                                                  FCCA594       10     A     
 BATCH    *                                                                                FCCA594       11     A     
 BATCH              MX7    0                                                               FCCA594       12     A     
 BATCH              SX6    B0                                                              FCCA594       13     A     
 BATCH              SA7    OSTACK                                                          FCCA594       14     A     
 BATCH              SA6    ESTACK                                                          FCCA594       15     A     
 BATCH              SB4    N.ELSTK-1                                                       FCCA594       16     A     
 BATCH              ERRNZ  N.OPSTK-N.ELSTK                                                 FCCA594       17     A     
 BATCH                                                                                     FCCA594       18     A     
 BATCH     IST5     SA6    A6+B1                                                           FCCA594       19     A     
 BATCH              SA7    A7+B1                                                           FCCA594       20     A     
 BATCH              SB4    B4-B1                                                           FCCA594       21     A     
 BATCH              NZ     B4,IST5     IF NOT FINISHED CLEARING ESTACK,OSTACK              FCCA594       22     A     
 BATCH                                                                                     BATCH        317     A     
 BATCH                                                                                     BATCH        318     A     
 BATCH    **        CLEAR SUBPROGRAM CELLS.                                                BATCH        319     A     
 BATCH                                                                                     BATCH        320     A     
 BATCH              BX6    0                                                               BATCH        321     A     
 BATCH              SX7    B0                                                              BATCH        322     A     
 BATCH                                                                                     BATCH        323     A     
 BATCH     A        SET    7                                                               BATCH        324     A     
 BATCH     C        SET    0                                                               BATCH        325     A     
 BATCH              SA7    CARDS       SOURCE CARD COUNT                                   BATCH        326          I
          -FEAT126B 
 BATCH              SA6    =XTYPD      LETTERS SELECTED ON IMPLICIT STATEMENT              BATCH        327     A     
 BATCH                                                                                     BATCH        328     A     
 BATCH              CLEAR  CURST       CURRENT START FOR SQUEEZE OF PARSED FILE            BATCH        329     A     
 BATCH              CLEAR  DRITE       DELAYED WRITE FLAG                                  BATCH        330     A     
 BATCH              CLEAR  EQUA        LOCAL EQUIVALENCE-LENGTH                            BATCH        331     A     
 BATCH              CLEAR  ETF         EXPLICT TYPING OF FUNCTION HEADER                   BATCH        332     A     
 BATCH              CLEAR  FAILSFT     CATASTROPHE IN  TABLES                              BATCH        333     A     
 BATCH              CLEAR  FLOW        DEAD CODE FLAG                                      BATCH        334     A     
 BATCH              CLEAR  HANGER      HANGING COMPILATION INDICATOR                       BATCH        335     A     
 BATCH              CLEAR  ICV         PRECEEDING *DO* INDICATOR                           BATCH        336     A     
 BATCH              CLEAR  IGS                                                             BATCH        337     A     
 BATCH              CLEAR  LPS.LR      LOST REFERENCES                                     BATCH        338          I
          -FEAT155D 
 BATCH              CLEAR  LOSTREF     REF COUNT                                           BATCH        339     A     
 BATCH              CLEAR  MOD         SUBPROGRAM MODE                                     BATCH        340     A     
 BATCH              IFNE   TEST,,1                                                         BATCH        341     A     
 BATCH              CLEAR  =XMOVES     NUMBER OF STORAGE MOVES                             BATCH        342     A     
 BATCH              CLEAR  MSF         MULTIPLE STATEMENT FLAG                             BATCH        343     A     
 BATCH              CLEAR  =XNADD      NEW CODE ADDRESS                                    FEAT126C      84     A     
 BATCH              CLEAR  NARGS       NR. OF ARGUMENTS                                    BATCH        344     A     
 BATCH              CLEAR  NOPATH      STATEMENT LABEL REQUIRED FLAG                       BATCH        345     A     
 BATCH              CLEAR  NSK         NULL STATEMENT COUNT                                BATCH        346     A     
 BATCH              CLEAR  NTRCNT      COUNT OF *ENTRY* STATEMENTS                         BATCH        347     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 687    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BATCH   
  
 BATCH              IFNE   .FID,0,1                                                        F66FCC       178     A     
 BATCH              CLEAR  =XO=OTRA    LINE NUMBER OF PREVIOUS OTR                         F66FCC       179     A     
 BATCH              CLEAR  =XPASS                                                          BATCH        348     A     
 BATCH              IFNE   .FID,0,2                                                        F66FCC       180     A     
 BATCH              CLEAR  =XPIGLAB    STATEMENT LABEL CORRESPONDING TO PIGLINE            F66FCC       181     A     
 BATCH              CLEAR  =XPIGLINE   LINE NUMBER FOR LINE NUMBER TABLE                   F66FCC       182     A     
 BATCH              CLEAR  =XREFLIN    REFERENCE LINE NUMBER                               FEAT155E     128          I
          -FCC1097
 BATCH              CLEAR  RJTDUM      DUMMY *RJT* REQUIRED FLAG                           BATCH        349     A     
 BATCH              CLEAR  RTNCNT      COUNT OF *RETURN* STATEMENTS                        BATCH        350     A     
 BATCH              CLEAR  SYSERR      COMPILER GOOF FLAG                                  BATCH        351     A     
 BATCH              CLEAR  WNZ         LAST WRITE INSTRUCTION                              BATCH        352     A     
 BATCH              CLEAR  DOORD       ORDINAL OF DO STATEMENT NUMBER                      BATCH        353     A     
 BATCH              CLEAR  =XTYPF      = 0 , NO IMPLICIT STM PROCESSED                     FCC1258        6     A     
 BATCH    *                            = 1 , ONE IMPLICIT STM PROCESSED                    FCC1258        7     A     
 BATCH              CLEAR  =XBLNKCOM   BLOCK NUMBER OF BLANK COMMON                        FCC0583       10     A     
 BATCH              CLEAR  =XSTATIC    STATIC LOADED I/O ROUTINES                          F162FTNA     382     A     
 BATCH              IFEQ   OT#RM,6,1                                                       FCCA408       70     A     
 BATCH              CLEAR  =XDFTA      STATIC WEAK EXTERNAL TEMP.                          FCCA408       71     A     
 BATCH                                                                                     BATCH        354     A     
 BATCH    **        SET UP MISCELLEANEOUS CELLS.                                           BATCH        355     A     
 BATCH                                                                                     BATCH        356     A     
 BATCH              SX6    B1                                                              FEAT126B      55          I
          -FCC1097
 BATCH              MX7    1                                                               FEAT126B      56     A     
 BATCH              SA6    CARDS       SET TO *1ST LINE IS IN (CP.BUF)*                    FEAT126B      57          I
          -FCC1097
 BATCH              SA7    =XNOLIST    SET TO *LIST,ALL* DEFAULT                           FEAT126B      58     A     
 BATCH              =X7    CPM=1ST                                                         BATCH        357     A     
 BATCH              SA7    STAGE       SIGNAL THAT A *FIRST CARD* IS NEEDED.               BATCH        358     A     
 BATCH              SX7    3                                                               BATCH        359     A     
 BATCH              SA7    PARCEL                                                          BATCH        360     A     
 BATCH              SA2    =1H                                                             BATCH        361     A     
 BATCH              LX7    X2                                                              BATCH        362     A     
 BATCH              SA7    =XHDRSUB    BLANK OUT HDRSUB                                    BATCH        363          I
          -FEAT126A 
 BATCH              SA7    =XSTL.MAP   BLANK OUT MAP HEADER                                FEAT126A     359          I
          -FEAT155H 
 BATCH              SA7    A7+B1                                                           BATCH        364          I
          -FEAT155H 
 BATCH              SA7    A7+B1                                                           BATCH        365          I
          -FEAT155H 
 BATCH              SA7    A7+B1                                                           BATCH        366          I
          -FEAT155H 
 BATCH              SA7    =XSUBHDR+B1                                                     BATCH        367          I
          -FEAT126A -FEAT155H 
 BATCH              SA7    A7+B1                                                           BATCH        368          I
          -FEAT126A -FEAT155H 
 BATCH              SA5    =10H      /7                                                    BATCH        369          I
          -FEAT155H 
 BATCH              LX6    X5                                                              BATCH        370          I
          -FEAT155H 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 688    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BATCH   
  
 BATCH              SA6    =XSUBHDR+3                                                      BATCH        371          I
          -FEAT126A -FEAT155H 
 BATCH              SA6    =XO.STITL+3                                                     FEAT126A     360          I
          -FEAT155H 
 BATCH              SA5    =10H  /73                                                       FEAT126A     361          I
          -FEAT155H 
 BATCH              LX6    X5                                                              FEAT126A     362          I
          -FEAT155H 
 BATCH              SA6    =XO.STITL+10                                                    FEAT126A     363          I
          -FEAT155H 
 BATCH              SX5    B1                                                              FEAT155H     106     A     
 BATCH              SX6    =XHDRBL                                                         FEAT155H     107     A     
 BATCH              LX5    30                                                              FEAT155H     108     A     
 BATCH              BX6    X6+X5                                                           FEAT155H     109     A     
 BATCH              SA6    =XO.STITL                                                       FEAT155H     110     A     
 BATCH              SA3    AFSB                                                            BATCH        372          I
          -FEAT126C 
 BATCH              SA7    =XSUBHDR+1  PROG TYPE                                           BATCH        373          I
          -FEAT126A 
 BATCH              SA7    =XTL.PTYP   BLANK OUT PROGRAM TYPE                              FEAT126A     364     A     
 BATCH              SA2    =XCO.MODE                                                       FEAT155E     129     A     
 BATCH              SA7    A7+B1                                                           BATCH        374     A     
 BATCH              BX6    X3                                                              BATCH        375          I
          -FEAT126C 
 BATCH              SA6    ICA         BLANK OUT LISTING ADDRESS                           BATCH        376          I
          -FEAT126C 
 BATCH              SA7    ICA         BLANK OUT LISTING ADDRESS                           FEAT126C      85          I
          -FEAT155E 
 BATCH                                                                                     BATCH        377          I
          -FEAT155E 
 BATCH              BX6    -0                                                              BATCH        378          I
          -FEAT155E 
 BATCH              NZ     X2,IST60    IF SEQ MODE                                         FEAT155E     130     A     
 BATCH              SA1    =XLDRFLG                                                        FCC1097        7     A     
 BATCH              MX6    0                                                               FCC1097        8     A     
 BATCH              SA6    A1                                                              FCC1097        9     A     
 BATCH              NZ     X1,IST60    IF LAST STMT WAS A LOADER DIRECTIVE                 FCC1097       10     A     
 BATCH              SX6    B1                                                              FCC1097       11     A     
 BATCH              SA6    CARDS       SET TO *1ST LINE IS IN (CP.BUF)*                    FCC1097       12     A     
 BATCH              SA2    =10H        1                                                   FEAT155E     131     A     
 BATCH              BX6    X2                                                              FEAT155E     132     A     
 BATCH              SA6    =XCP.FLIN   NUMBER FIRST LINE OF SOURCE                         FEAT155E     133     A     
 BATCH                                                                                     FEAT155E     134     A     
 BATCH     IST60    BX6    -0                                                              FEAT155E     135     A     
 BATCH              SA2    FV.LGO                                                          BATCH        379     A     
 BATCH              SA6    ERR=D                                                           BATCH        380          I
          -FEAT126A 
 BATCH              SA6    ERR=F                                                           BATCH        381     A     
 BATCH              SA6    ERRORS                                                          BATCH        382     A     
 BATCH              NZ     X2,IST65    IF BINARY NOT SUPPRESSED                            BATCH        383     A     
 BATCH              BX6    0                                                               BATCH        384          I
          -FCC1608X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 689    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BATCH   
  
 BATCH              SA2    =XLOP=O                                                         FCC1608X      13     A     
 BATCH              BX6    X2                                                              FCC1608X      14     A     
 BATCH     IST65    SA6    BINOUT                                                          BATCH        385     A     
 BATCH              SA2    =XWININIT                                                       FCC1608X      15     A     
 BATCH              BX6    X2                                                              FCC1608X      16     A     
 BATCH              SA6    =XWIN       BLOCK OFF WIN IF -B=0- AND NO -OL-                  FCC1608X      17     A     
 BATCH                                                                                     BATCH        386     A     
 BATCH              RJ     CAR         CLEAR ALL REGISTERS                                 BATCH        387     A     
 BATCH                                                                                     BATCH        388     A     
 BATCH    **        RE-SET NATURAL TYPE TABLE TO --                                        BATCH        389     A     
 BATCH    *                IMPLICIT REAL (A-H), INTEGER (I-N), REAL (O-Z)                  BATCH        390     A     
 BATCH                                                                                     BATCH        391     A     
 BATCH              SA1    IST.NTYP                                                        BATCH        392     A     
 BATCH              SA2    A1+B1                                                           BATCH        393     A     
 BATCH              =X6    M.LOG                                                           BATCH        394     A     
 BATCH              BX7    X1                                                              BATCH        395     A     
 BATCH              SA6    NAT.TYP     LOGICAL                                             BATCH        396     A     
 BATCH              LX6    X2                                                              BATCH        397     A     
 BATCH              SA7    A6+B1       INTEGER                                             BATCH        398     A     
 BATCH              SA6    A7+B1       REAL                                                BATCH        399     A     
 BATCH              SX7    X2+B1                                                           BATCH        400     A     
 BATCH              SA7    A6+B1       DOUBLE                                              BATCH        401     A     
 BATCH              SX6    X7+B1                                                           BATCH        402     A     
 BATCH              SA6    A7+B1       COMPLEX                                             BATCH        403     A     
 BATCH                                                                                     FEAT126B      59     A     
 BATCH    *         COPY MASTER LIST CONTROL FLAGS TO WORKING LIST CONTROL FLAGS.          FEAT126B      60     A     
 BATCH                                                                                     FEAT126B      61     A     
 BATCH              MVE    =XL.MSTR,=XLSTMSTR,=XLSTWRKG                                    FEAT126B      62     A     
 BATCH              SA1    =XSLIST                                                         FCC1328X      87     A     
 BATCH              BX6    X1                                                              FCC1328X      88     A     
 BATCH              SA6    =XHDELAY    SET TO *HEADER DELAY* IF IN *LIST* MODE             FCC1328X      89     A     
 BATCH                                                                                     BATCH        404          I
          -FEAT126A 
 BATCH    **        XFER FIRST SEVEN WORDS OF FIRST CARD INTO TITLE.                       BATCH        405          I
          -FEAT126A 
 BATCH                                                                                     BATCH        406          I
          -FEAT126A 
 BATCH              SA1    CP.BUF                                                          BATCH        407          I
          -FEAT126A 
 BATCH              SB3    -5          = 1ST 60 CHARACTERS                                 BATCH        408          I
          -FEAT126A 
 BATCH              MX0    -2*CHAR                                                         BATCH        409          I
          -FEAT126A 
 BATCH     IST7     BX2    -X0*X1                                                          BATCH        410          I
          -FEAT126A 
 BATCH              LX6    X1          MOVE FIRST CARD TO SUB-TITLE                        BATCH        411          I
          -FEAT126A 
 BATCH              SA1    A1+B1                                                           BATCH        412          I
          -FEAT126A 
 BATCH              SB3    B3+B1                                                           BATCH        413          I
          -FEAT126A 
 BATCH              SA6    B3+O.TITL+5                                                     BATCH        414          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 690    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BATCH   
  
          -FEAT126A 
 BATCH              ZR     X2,IST73    IF END-OF-LINE                                      BATCH        415          I
          -FEAT126A 
 BATCH              LE     B3,IST7     IF MORE WORDS TO XFER                               BATCH        416          I
          -FEAT126A 
 BATCH              EQ     IST77       IF FULL LINE XFERED                                 BATCH        417          I
          -FEAT126A 
 BATCH                                                                                     BATCH        418          I
          -FEAT126A 
 BATCH     IST73    BX1    X6                                                              BATCH        419          I
          -FEAT126A 
 BATCH              RJ     SFN         SPACE FILL                                          BATCH        420          I
          -FEAT126A 
 BATCH              LX6    CHAR                                                            BATCH        421          I
          -FEAT126A 
 BATCH              SA6    A6                                                              BATCH        422          I
          -FEAT126A 
 BATCH              SA1    =1H                                                             BATCH        423          I
          -FEAT126A 
 BATCH              BX6    X1                                                              BATCH        424          I
          -FEAT126A 
 BATCH              GT     B3,IST77    IF LINE ALREADY FULL                                BATCH        425          I
          -FEAT126A 
 BATCH     IST75    SA6    A6+B1                                                           BATCH        426          I
          -FEAT126A 
 BATCH              SB3    B3+B1                                                           BATCH        427          I
          -FEAT126A 
 BATCH              LE     B3,IST75    FILL OUT LINE WITH BLANKS                           BATCH        428          I
          -FEAT126A 
 BATCH     IST77    BSS    0                                                               BATCH        429          I
          -FEAT126A 
 BATCH              EQ     ISTX        EXIT..                                              BATCH        430     A     
 BATCH                                                                                     BATCH        431     A     
 BATCH     IST.NTYP CON    "INT"+M.INT                                                     BATCH        432     A     
 BATCH              CON    "REAL"+M.REAL                                                   BATCH        433     A     
 BATCH              LIST   D                                                               BATCH        434     A     
 BATCH              END                                                                    BATCH        435     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - BATCH   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          BATCH                      435       347
          FCC0583                      1         1
          FCC0644                      4         4
          FEAT126A                     9         3
          FEAT126B                     8         6
          FEAT126C                     2         1
          FCC0813                     11         3
          FEAT155E                    29        17
          FEAT155G                     5         5
          FEAT155H                     5         5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 691    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BATCH   
  
          FEAT155EA                    3         0
          FCC1097                      7         7
          FEAT155F                     5         5
          FEAT155EB                    3         0
          FCC1200                     19        19
          FCC1258                      2         2
          FCC1328X                     3         3
          FCC1495X                     1         1
          FCC1608X                     5         5
          FCC1678X                     4         4
          F162FTNA                     1         1
          FCC1829                     19        14
          FCC1870                      1         1
          F66FCC                       5         5
          FCCA408                      2         2
          FCCA410                      4         1
          FCCA422                      6         3
          FCCA454                     18        17
          FCC2104                      3         3
          FCCA505                      3         3
          FCCA519                      6         6
          FCCA473                      8         3
          FCCA534                      4         2
          FCCA593                      6         6
          FCCA594                     15        15
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER   *DECK HEADER                                                                     HEADER         1     A     
 HEADER             IDENT  HEADER                                                          HEADER         2     A     
 HEADER    HEADER   SECT   (HEADER STATEMENT PROCESSING),1                                 HEADER         3     A     
 HEADER                                                                                    HEADER         4     A     
 HEADER             SST                                                                    HEADER         5     A     
 HEADER                                                                                    HEADER         6     A     
 HEADER    B=HEAD   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             HEADER         7     A     
 HEADER                                                                                    HEADER         8     A     
 HEADER             ENTRY  PPA4,PSF,DCM3,PSFA,PPAD,DCM,PPA,PSA                             HEADER         9     A     
 HEADER             ENTRY  PPA355                                                          FCC1463X      12     A     
 HEADER             ENTRY  PIDX,PFDX                                                       FEAT155G     147     A     
 HEADER                                                                                    HEADER        10     A     
 HEADER   *         IN FTN                                                                 HEADER        11     A     
 HEADER             EXT    CO.BLN,CO.EDT,CO.MODE,LOP=O                                     HEADER        12          I
          -FEAT155G 
 HEADER             EXT    CO.BLN,CO.EDT,LOP=O                                             FEAT155G     148     A     
 HEADER             EXT    CO.ER                                                           FEAT155G     149     A     
 HEADER                                                                                    HEADER        13     A     
 HEADER   *         IN TABLES                                                              HEADER        14     A     
 HEADER             EXT    BA.PRO,CSNTAG,CSTRACE,ENTRY.,IDENT,IDENT1,LINEBUF,MOD           HEADER        15          I
          -FEAT155G 
 HEADER             EXT    BA.PRO,CSNTAG,ENTRY.,IDENT,IDENT1,MOD                           FEAT155G     150     A     
 HEADER             EXT    NARGS,ORG,STAGE,STN,TA.PRO,TG.PRO,TS.ENT,TS.SYM,TT=LF           HEADER        16     A     
 HEADER             EXT    TT.LF,F.LF,BINIO                                                FCCA557       14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 692    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             EXT    T=FILE,T.FILE                                                   HEADER        17     A     
 HEADER             EXT    IGS                                                             FEAT155G     151     A     
 HEADER                                                                                    HEADER        18     A     
 HEADER   *         IN ERRORS                                                              HEADER        19     A     
 HEADER             EXT    E.AC,E.AC3,E.AC4,E.AC5,E.AC6,E.AC8,E.AC9,E.ANS                  HEADER        20     A     
 HEADER             EXT    E.AP,E.AP1,E.FA,E.FR,E.MR1,E.PN1,E.PN3,E.TC1,E.TC3              HEADER        21     A     
 HEADER             EXT    E.TC4,E.TC5,E.TC6,E.TC7,E.TC9,E.TC10,E.XC,E.ZA,FILL.            HEADER        22     A     
 HEADER             EXT    FILL.2,E.TC2,E.TC11                                             HEADER        23     A     
 HEADER                                                                                    HEADER        24     A     
 HEADER   *         IN PIG                                                                 HEADER        25     A     
 HEADER             EXT    WIN,PIG                                                         HEADER        26     A     
 HEADER                                                                                    HEADER        27          I
          -FEAT155G 
 HEADER   *         IN LIST                                                                HEADER        28          I
          -FEAT155G 
 HEADER             EXT    KIT,KTX,PVF                                                     HEADER        29          I
          -FEAT155G 
 HEADER                                                                                    HEADER        30     A     
 HEADER   *         IN MAP                                                                 HEADER        31     A     
 HEADER             EXT    SFN                                                             HEADER        32     A     
 HEADER                                                                                    HEADER        33     A     
 HEADER   *         IN END                                                                 HEADER        34     A     
 HEADER             EXT    BT.IDNT,BT.XFR1                                                 HEADER        35     A     
 HEADER                                                                                    HEADER        36     A     
 HEADER   *         IN ALLOC                                                               HEADER        37     A     
 HEADER             EXT    SCTR,SSY                                                        HEADER        38     A     
 HEADER                                                                                    HEADER        39     A     
 HEADER   *         IN MAIN                                                                HEADER        40     A     
 HEADER             EXT    CPM=IMP,PSFX,WOF                                                HEADER        41     A     
 HEADER                                                                                    HEADER        42     A     
 HEADER   *         IN LEX                                                                 HEADER        43     A     
 HEADER             EXT    S.Q8NTR,S.TRACE,TSF,DEC,STY                                     HEADER        44          I
          -FEAT155G 
 HEADER             EXT    S.Q8NTR,TSF,DEC,STY                                             FEAT155G     152          I
          -FCC1559X 
 HEADER             EXT    S.Q1NTR,TSF,DEC,STY                                             FCC1559X      10          I
          -F162FTNA 
 HEADER             EXT    S.Q2NTR,TSF,DEC,STY                                             F162FTNA     383     A     
 HEADER             EXT    S.FTNRP                                                         FEAT155G     153     A     
 HEADER                                                                                    HEADER        45     A     
 HEADER   *         IN IO                                                                  HEADER        46     A     
 HEADER             EXT    FFN                                                             HEADER        47     A     
 HEADER                                                                                    HEADER        48     A     
 HEADER   *         IN REG                                                                 HEADER        49     A     
 HEADER             EXT    CRJ                                                             HEADER        50     A     
 HEADER                                                                                    HEADER        51     A     
 HEADER   *         IN TYPE                                                                HEADER        52     A     
 HEADER             EXT    TYP02                                                           HEADER        53     A     
 HEADER                                                                                    HEADER        54     A     
 HEADER    PSF      SPACE  4,8                                                             HEADER        55     A     
 HEADER   **        PSF -  PROCESS SPECIAL FIRST CARD.                                     HEADER        56     A     
 HEADER   *                WHEN NO HEADER CARD IS PRESENT, *PSF* IS CALLED TO EMIT         HEADER        57     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 693    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER   *         " PROGRAM START. (INPUT, OUTPUT) "                                     HEADER        58     A     
 HEADER   *         EXIT   TO *PSFX*, WHICH IS IN *CPM*.                                   HEADER        59     A     
 HEADER   *                (A0)  RESTORED FROM (F.SB)                                      HEADER        60     A     
 HEADER   *                (X5) RESTORED FROM ("SB.KEY").                                  HEADER        61     A     
 HEADER   *                (B4) PRESERVED.                                                 HEADER        62     A     
 HEADER                                                                                    HEADER        63     A     
 HEADER                                                                                    HEADER        64     A     
 HEADER    PSF      WARN   E.PN3                                                           HEADER        65     A     
 HEADER             SX7    B4                                                              HEADER        66     A     
 HEADER             SA4    PSFA                                                            HEADER        67     A     
 HEADER             BX7    X7+X4                                                           HEADER        68          I
          -FCCA493
 HEADER             MI      X4,PSF1    IF PSF IS CALLED IN THE MIDDLE OF TYPE PROC         FCCA493       10     A     
 HEADER             MX4     0                                                              FCCA493       11     A     
 HEADER    PSF1     BX7    X7+X4                                                           FCCA493       12     A     
 HEADER             SX6    M.PPRO                                                          HEADER        69     A     
 HEADER             SA7    PSFA        SAVE (B4)                                           HEADER        70     A     
 HEADER             SB4    DPN         POINT TO FAKE STRING                                HEADER        71     A     
 HEADER             SA4    =7HPROGRAM                                                      HEADER        72     A     
 HEADER             RJ     DCM         PROCESS COMPILE MODE + DISPLAY                      HEADER        73     A     
 HEADER             RJ     PPA         PROCESS ARGUMENTS                                   HEADER        74     A     
 HEADER             SA1    =XF.SB                                                          HEADER        75          I
          -FCC0813
 HEADER             SA1    =XT.SB                                                          FCC0813       81     A     
 HEADER             BX6    0                                                               HEADER        76     A     
 HEADER             SA0    X1                                                              HEADER        77     A     
 HEADER             SA6    STN                                                             HEADER        78     A     
 HEADER             SA6    CSNTAG                                                          HEADER        79     A     
 HEADER             SA1    PSFA                                                            HEADER        80     A     
 HEADER             SA5    "SB.KEY"                                                        HEADER        81     A     
 HEADER             SB4    X1          RESTORE (B4)                                        HEADER        82     A     
 HEADER             MI     X1,TYP02    IF CALLED FROM *TYPE* PROCESSING                    HEADER        83     A     
 HEADER             EQ     PSFX        EXIT..                                              HEADER        84     A     
 HEADER                                                                                    HEADER        85     A     
 HEADER    PSFA     DATA   0           LOWER 18 BITS IS A SAVE AREA FOR B4.                HEADER        86     A     
 HEADER   *                            SIGN BIT IS SET IF PSF WAS CALLED IN THE            HEADER        87     A     
 HEADER   *                            MIDDLE OF TYPE PROCESSING                           HEADER        88     A     
 HEADER                                                                                    HEADER        89     A     
 HEADER                                                                                    HEADER        90     A     
 HEADER   **        DEFAULT SUBPROGRAM NAME + PARAMETERS                                   HEADER        91     A     
 HEADER   *         SET = *PROGRAM START.(INPUT,OUTPUT)*                                   HEADER        92     A     
 HEADER                                                                                    HEADER        93     A     
 HEADER    DPN      VFD    42/0LSTART.,18/O.VAR                                            HEADER        94     A     
 HEADER             CON    O.(                                                             HEADER        95     A     
 HEADER             VFD    42/0LINPUT,18/O.VAR                                             HEADER        96     A     
 HEADER             CON    O.COMMA                                                         HEADER        97     A     
 HEADER             VFD    42/0LOUTPUT,18/O.VAR                                            HEADER        98     A     
 HEADER             CON    O.)                                                             HEADER        99     A     
 HEADER             DATA   0           END OF STRING INDICATOR                             HEADER       100     A     
 HEADER    DCM      SPACE  4,15                                                            HEADER       101     A     
 HEADER   **        DCM -  DISPLAY *COMPILING* MESSAGE.                                    HEADER       102     A     
 HEADER   *                                                                                HEADER       103     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 694    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER   *         CHECKS LEGALITY OF NAME AND ENTERS IT IN SYMBOL TABLE AND              HEADER       104     A     
 HEADER   *                ENTRY POINT TABLE.                                              HEADER       105     A     
 HEADER   *         DISPLAYS CONSOLE MESSAGE, PRINTS *IDENT* CARD, AND SETS NAME           HEADER       106     A     
 HEADER   *                INTO MAIN TITLE AND 77-TABLE.                                   HEADER       107     A     
 HEADER   *                                                                                HEADER       108     A     
 HEADER   *         ENTRY  (B4) _ SUBPROGRAM NAME (IN *SB*).                               HEADER       109     A     
 HEADER   *                (X4) = DPC PROGRAM TYPE FOR BANNER.                             HEADER       110     A     
 HEADER   *                (X6) = PROGRAM-UNIT COMPILE MODE.                               HEADER       111     A     
 HEADER   *                                                                                HEADER       112     A     
 HEADER   *         EXIT   (B4) _ NEXT ELEMENT OF *SB*.                                    HEADER       113     A     
 HEADER   *                                                                                HEADER       114     A     
 HEADER   *         CALLS  ADDWD, MESAGE, PVF, SFN.                                        HEADER       115     A     
 HEADER                                                                                    HEADER       116     A     
 HEADER                                                                                    HEADER       117     A     
 HEADER    DCM      SUBR   0                                                               HEADER       118     A     
 HEADER             SA2    MOD                                                             HEADER       119     A     
 HEADER             SB3    B0          INDICATE NO NAME ERROR                              HEADER       120          I
          -FEAT155G 
 HEADER             BX6    X6+X2                                                           HEADER       121     A     
 HEADER             SA6    A2          SET COMPILE MODE                                    HEADER       122     A     
 HEADER             BX6    X4                                                              HEADER       123     A     
 HEADER             SA6    =XSUBHDR+1                                                      HEADER       124          I
          -FEAT126A 
 HEADER             SA6    =XTL.PTYP                                                       FEAT126A     365     A     
 HEADER             IFEQ   TEST,0,2    PROG-UNIT TYPE IN 77-TBL                            HEADER       125          I
          -FEAT155EA
 HEADER             SX4    =XBT.IDN8                                                       HEADER       126     A     
 HEADER             SA6    X4+=XBT.IDNT                                                    HEADER       127     A     
 HEADER             SA4    B4                                                              HEADER       128     A     
 HEADER             MX0    LG.VAR*CHAR                                                     HEADER       129     A     
 HEADER             SX2    X4-O.VAR                                                        HEADER       130     A     
 HEADER             NZ     X2,DCM1A    IF PROGRAM NAME NOT VARIABLE                        HEADER       131     A     
 HEADER             BX2    X0*X4       CLEAR TYPE CODE                                     HEADER       132     A     
 HEADER             LX2    CHAR                                                            HEADER       133     A     
 HEADER             SX2    X2-1R0                                                          HEADER       134     A     
 HEADER             PL     X2,DCM1A    IF NOT A LETTER                                     HEADER       135     A     
 HEADER             =A2    B4+1                                                            HEADER       136     A     
 HEADER             SB7    X2-O.VAR                                                        HEADER       137     A     
 HEADER             NZ     B7,DCM1     IF LESS THAN 8 CHAR                                 HEADER       138     A     
 HEADER             RJ     =XTLV       TRUNCATE NAME                                       HEADER       139     A     
 HEADER             EQ     DCM1                                                            HEADER       140     A     
 HEADER    DCM1A    SB3    -B1                                                             HEADER       141          I
          -FEAT155G 
 HEADER                                                                                    FEAT155G     154     A     
 HEADER    DCM1A    FATAL  E.PN1       SYNTAX ERROR IN ROUTINE NAME                        FEAT155G     155     A     
 HEADER             SA4    DCM3        SET *DUMMY* NAME                                    HEADER       142     A     
 HEADER    DCM1     MX0    L.SYM                                                           HEADER       143     A     
 HEADER             BX6    X0*X4                                                           HEADER       144     A     
 HEADER             =B4    B4+1                                                            HEADER       145          I
          -FCC1274
 HEADER             LX4    X6                                                              HEADER       146     A     
 HEADER             SA6    IDENT       SET SUBPROGRAM NAME                                 HEADER       147          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 695    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
          -FEAT126A 
 HEADER             SA6    IDENT       ROUTINE NAME IN 0L FORMAT                           FEAT126A     366     A     
 HEADER             SA6    BT.IDNT+1                                                       HEADER       148     A     
 HEADER             SA6    BT.XFR1                                                         HEADER       149     A     
 HEADER             SCAN   TS.SYM,SSY  FIND WHERE TO PUT *SYMBOL/TAG*                      HEADER       150     A     
 HEADER             =X7    M.ENT+M.DEF+M.NVAR                                              HEADER       151     A     
 HEADER             ADSYM  A1          ADD *SYMBOL/TAG* TO TABLE.                          HEADER       152     A     
 HEADER             SA1    =XREFLIN                                                        FEAT155G     156     A     
 HEADER             LX1    18-CHAR                                                         FEAT155G     157     A     
 HEADER             SX6    X0+B1                                                           HEADER       153     A     
 HEADER             BX6    X6+X1                                                           FEAT155G     158     A     
 HEADER             SA6    ENTRY.                                                          HEADER       154     A     
 HEADER             BX6    X0+X4                                                           HEADER       155     A     
 HEADER             ADDWD  TS.ENT                                                          HEADER       156     A     
 HEADER             SA1    ENTRY.                                                          HEADER       157     A     
 HEADER             =X6    X1+C.VAR                                                        HEADER       158     A     
 HEADER             LX6    P.TAG                                                           HEADER       159     A     
 HEADER             ADDREF X6,CR.NTR                                                       HEADER       160     A     
 HEADER             BX1    X4                                                              HEADER       161     A     
 HEADER             RJ     SFN         SPACE FILL NAME.                                    HEADER       162     A     
 HEADER             SA6    =XSUBHDR+2                                                      HEADER       163          I
          -FEAT126A 
 HEADER             SA1    =XCO.PW                                                         FEAT126A     367          I
          -CP139FC
 HEADER             SA1    =XCP.PW                                                         CP139FC      195     A     
 HEADER             SA6    =XNAME      ROUTINE NAME SPACE FILLED                           FEAT126A     368     A     
 HEADER             ZR     X1,DCM2     IF NOT IN PW MODE                                   FEAT126A     369     A     
 HEADER             SA2    =XTL.PTYP                                                       FEAT126A     370     A     
 HEADER             MX0    8*CHAR                                                          FEAT126A     371     A     
 HEADER             BX1    X0*X2       (X1) = 1ST 8 CHARACTERS OF ROUTINE TYPE             FEAT126A     372     A     
 HEADER             BX3    -X0*X2      (X3) = LAST 2 CHARACTERS OF ROUTINE TYPE            FEAT126A     373     A     
 HEADER             BX4    X0*X6       (X4) = 1ST 8 CHARACTERS OF ROUTINE NAME             FEAT126A     374     A     
 HEADER             BX6    X3+X4                                                           FEAT126A     375     A     
 HEADER             SX3    2R                                                              FEAT126A     376     A     
 HEADER             BX7    X3+X1                                                           FEAT126A     377     A     
 HEADER             LX7    -2*CHAR                                                         FEAT126A     378     A     
 HEADER             SA7    A2                                                              FEAT126A     379     A     
 HEADER             LX6    -2*CHAR                                                         FEAT126A     380     A     
 HEADER    DCM2     SA6    =XTL.PNAM                                                       FEAT126A     381     A     
 HEADER             MESAGE IDENT1,CONSOLE                                                  HEADER       164     A     
 HEADER             =X6    CPM=IMP                                                         HEADER       165     A     
 HEADER             SA6    STAGE                                                           HEADER       166     A     
 HEADER             SA1    =1H                                                             HEADER       167          I
          -FEAT155G 
 HEADER             SA3    =7RIDENT                                                        HEADER       168          I
          -FEAT155G 
 HEADER             BX6    X1                                                              HEADER       169          I
          -FEAT155G 
 HEADER             SA6    PIG=IG                                                          HEADER       170          I
          -FEAT126A -FEAT155G 
 HEADER             SA6    LINEBUF                                                         FEAT126A     382          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 696    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             SA6    A6+B1                                                           HEADER       171          I
          -FEAT155G 
 HEADER             BX6    X3                                                              HEADER       172          I
          -FEAT155G 
 HEADER             SA2    IDENT                                                           HEADER       173          I
          -FEAT155G 
 HEADER             RJ     PVF         PRINT *IDENT* CARD                                  HEADER       174          I
          -FEAT155G 
 HEADER             PL     B3,DCMX     IF NO ERROR IN SUBPROGRAM NAME                      HEADER       175          I
          -FEAT155G 
 HEADER             EQ     E.PN1       ERROR EXIT                                          HEADER       176          I
          -FEAT155G 
 HEADER             SA2    =XLOP=O     OBJECT LIST FLAG                                    FEAT155G     159          I
          -FCC1328X 
 HEADER             SA1    =XHDELAY                                                        FCC1328X      90     A     
 HEADER             ZR     X1,DCM4     IF NO HEADER DELAY                                  FCC1328X      91     A     
 HEADER             SA0    B4          SAVE (B4)                                           FCC1328X      92     A     
 HEADER             RJ     =XLDB       LIST DEFERRED BUFFER                                FCC1328X      93     A     
 HEADER             SB4    A0          RESTORE (B4)                                        FCC1328X      94     A     
 HEADER    DCM4     SA2    =XLOP=O     OBJECT LIST FLAG                                    FCC1328X      95     A     
 HEADER             MI     X2,=XPID    IF OBJECT LIST - PRINT IDENT                        FEAT155G     160     A     
 HEADER   *         ...                                                                    FEAT155G     161     A     
 HEADER    PIDX     EQ     DCMX        EXIT ...                                            FEAT155G     162          I
          -FCC1274
 HEADER    PIDX     SA1    B4                                                              FCC1274        6     A     
 HEADER             ZR     X1,DCMX     IF NAME MISSING                                     FCC1274        7     A     
 HEADER             =B4    B4+1                                                            FCC1274        8     A     
 HEADER             EQ     DCMX                                                            FCC1274        9     A     
 HEADER                                                                                    HEADER       177     A     
 HEADER    DCM3     LIT    7LXXX****   DUMMY NAME WHEN NAME ERROR                          HEADER       178     A     
 HEADER                                                                                    HEADER       179          I
          -FEAT126A 
 HEADER    PIG=IG   EQU    LINEBUF                                                         HEADER       180          I
          -FEAT126A 
 HEADER    PPA      SPACE  4,8                                                             HEADER       181     A     
 HEADER   **        PPA -  PROCESS PROGRAM ARGUMENTS                                       HEADER       182     A     
 HEADER   *         ENTRY  B4 _ PAREN IN FRONT OF (POSSIBLE) ARGUMENTS                     HEADER       183     A     
 HEADER   *         CALLS  PXE, SCTR, DEC, ALC, FFN, SFN, PVF, SSY, ADW, ESY               FEAT126C      86     A     
 HEADER                                                                                    HEADER       184     A     
 HEADER                                                                                    HEADER       185     A     
 HEADER    PPA      SUBR   0                                                               HEADER       186     A     
 HEADER             RJ     PXE         PROCESS TRACEBACK WORD                              HEADER       187     A     
 HEADER             SA1    B4                                                              HEADER       188     A     
 HEADER             =X4                                                                    HEADER       189     A     
 HEADER             ZR     X1,PPA63    IF NO ARGUMENT LIST                                 HEADER       190     A     
 HEADER             SB7    X1-O.(                                                          HEADER       191     A     
 HEADER             NZ     B7,E.AP     IF NO *(* - ERROR                                   HEADER       192     A     
 HEADER             SB4    B4+B1       POINT TO FIRST FILE NAME                            HEADER       193     A     
 HEADER                                                                                    HEADER       194     A     
 HEADER   **        PROCESS PROGRAM ARGUMENTS LOOP                                         HEADER       195     A     
 HEADER                                                                                    HEADER       196     A     
 HEADER    PPA1     SA4    B4                                                              HEADER       197     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 697    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             MX0    7*CHAR                                                          HEADER       198     A     
 HEADER             ZR     X4,E.MR1    IF EOS INSTEAD OF FILE NAME                         HEADER       199     A     
 HEADER             BX6    X4*X0                                                           HEADER       200     A     
 HEADER             SA6    FILL.2                                                          HEADER       201     A     
 HEADER             MX0    6*CHAR                                                          HEADER       202     A     
 HEADER             SA1    B4+B1       FETCH NEXT SEPARATOR                                HEADER       203     A     
 HEADER             BX2    -X0*X6                                                          HEADER       204     A     
 HEADER             ZR     X2,PPA12          IF NO SEVENTH CHARACTER IN FILE NAME          HEADER       205          I
          -FCC0520
 HEADER             ZR     X2,PPA12    IF NO SEVENTH CHARACTER IN FILE NAME                FCC0520        4     A     
 HEADER             FATAL  =XE.TC11    FILE NAME EXCEEDS 6 CHAR                            HEADER       206     A     
 HEADER    PPA12    SX5    X4-O.VAR                                                        HEADER       207     A     
 HEADER             NZ     X5,E.TC11                                                       HEADER       208          I
          -FCC0775
 HEADER             BX4    X6                                                              HEADER       209          I
          -FCC0775
 HEADER             ZR     X5,PPA13                                                        FCC0775        9     A     
 HEADER             FATAL  =XE.TC11    FILE NAME EXCEEDS 6 CHAR.                           FCC0775       10     A     
 HEADER    PPA13    BX4    X6                                                              FCC0775       11     A     
 HEADER             =B4    B4+1                                                            HEADER       210     A     
 HEADER             SX5    X1-O.=                                                          HEADER       211     A     
 HEADER             ZR     X1,E.MR1    IF *EOS* - ERROR                                    HEADER       212     A     
 HEADER             SA6    FILL.                                                           HEADER       213     A     
 HEADER             SA6    PPAF                                                            HEADER       214     A     
 HEADER             SA0    -1          INITIALLY, NO RECORD LENGTH INDICATED               HEADER       215     A     
 HEADER             SCAN   T.FILE,SCTR                                                     HEADER       216     A     
 HEADER             SX7    B7                                                              HEADER       217     A     
 HEADER             SA7    PPAE                                                            HEADER       218     A     
 HEADER             MI     B7,PPA15    IF *NIT*                                            HEADER       219     A     
 HEADER             WARN   E.TC1       ERR..  FILE DOUBLY DEFINED                          HEADER       220     A     
 HEADER    PPA14    =A1    B4+1                                                            FCC0520        5     A     
 HEADER             SB2    X1-O.COMMA                                                      FCC0520        6     A     
 HEADER             ZR     X1,E.MR1    IF *EOS* - ERROR                                    FCC0520        7     A     
 HEADER             =B4    B4+1                                                            FCC0520        8     A     
 HEADER             SB7    X1-O.)                                                          FCC0520        9     A     
 HEADER             ZR     B7,PPA62    IF *)*, CONTINUE FILE PROCESSING                    FCC0520       10     A     
 HEADER             NZ     B2,PPA14    IF NOT COMMA, CONTINUE                              FCC0520       11     A     
 HEADER             =B4    B4+1                                                            FCC0520       12     A     
 HEADER             EQ     PPA1        LOOP FOR MORE FILES                                 FCC0520       13     A     
 HEADER                                                                                    HEADER       221     A     
 HEADER    PPA15    NZ     X5,PPA4     IF NO EQUAL SIGN                                    HEADER       222     A     
 HEADER                                                                                    HEADER       223     A     
 HEADER                                                                                    HEADER       224     A     
 HEADER   **        PROCESS EQUIVALENCED FILE                                              HEADER       225     A     
 HEADER                                                                                    HEADER       226     A     
 HEADER             SA2    B4+B1       FETCH EQUIVALENCE ELEMENT                           HEADER       227     A     
 HEADER             MX0    7*CHAR                                                          HEADER       228     A     
 HEADER             SB4    A2+B1                                                           HEADER       229     A     
 HEADER             BX6    X0*X2                                                           HEADER       230     A     
 HEADER             SB2    X2-O.VAR                                                        HEADER       231     A     
 HEADER             =B7    B2+O.VAR-O.CONS                                                 HEADER       232     A     
 HEADER             ZR     X2,E.MR1    IF *EOS* - ERROR                                    HEADER       233     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 698    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             SX5    X2-O.SLASH                                                      HEADER       234     A     
 HEADER             NZ     X5,PPA17    IF NOT */*                                          HEADER       235     A     
 HEADER             MX5    1           INDICATE NO BUFFER LENGTH GIVEN                     HEADER       236     A     
 HEADER             EQ     PPA2        GO PROCESS RECORD LENGTH                            HEADER       237     A     
 HEADER                                                                                    HEADER       238     A     
 HEADER    PPA17    SA6    FILL.2                                                          HEADER       239     A     
 HEADER             ZR     B7,PPA3     IF NUMBER                                           HEADER       240     A     
 HEADER             NZ     B2,E.TC7    IF NO LETTER                                        HEADER       241     A     
 HEADER             MX0    6*CHAR                                                          HEADER       242     A     
 HEADER             BX5    -X0*X6                                                          HEADER       243     A     
 HEADER             ZR     X5,PPA18                                                        HEADER       244     A     
 HEADER             FATAL  =XE.TC11    FILE NAME EXCEEDS 6 CHAR                            HEADER       245     A     
 HEADER    PPA18    SCAN   T.FILE,SCTR                                                     HEADER       246     A     
 HEADER             SB5    B7                                                              HEADER       247     A     
 HEADER             MI     B7,E.TC6    IF *NIT*, ERR..                                     HEADER       248     A     
 HEADER             SB2    -B7                                                             HEADER       249     A     
 HEADER             MX1    1                                                               HEADER       250     A     
 HEADER             SX0    X2+B2                                                           HEADER       251     A     
 HEADER             BX3    X1+X2       SET EQUIVALENCED BIT                                HEADER       252     A     
 HEADER             IX5    X3-X0       6/ -,  18/ L.TAG,  18/ FIT,  18/ ORDINAL            HEADER       253     A     
 HEADER             SA0    -1                                                              HEADER       254     A     
 HEADER             EQ     PPA55       CONTINUE..                                          HEADER       255     A     
 HEADER                                                                                    HEADER       256     A     
 HEADER   **        PROCESS RECORD LENGTH DECLARATION                                      HEADER       257     A     
 HEADER                                                                                    HEADER       258     A     
 HEADER    PPA2     SA2    B4                                                              HEADER       259     A     
 HEADER             SB2    X2-O.CONS                                                       HEADER       260     A     
 HEADER             NZ     B2,E.TC9    IF NOT NUMBER - ERROR                               HEADER       261     A     
 HEADER             RJ     DEC         CONVERT RECORD LENGTH                               HEADER       262     A     
 HEADER             SB4    B4+B1                                                           HEADER       263     A     
 HEADER             SB7    X1-M.INT                                                        HEADER       264     A     
 HEADER             ZR     X1,PPA25    IF UNIVERSAL TYPE                                   HEADER       265     A     
 HEADER             NZ     B7,E.TC9    IF NOT TYPE INTEGER - ERROR                         HEADER       266     A     
 HEADER    PPA25    SX3    MAX.RECL                                                        HEADER       267     A     
 HEADER             IX3    X3-X6                                                           HEADER       268     A     
 HEADER             MI     X3,E.TC10   IF RECORD LENGTH TOO LARGE - ERROR                  HEADER       269     A     
 HEADER             MI     X6,E.TC9    IF RECORD LENGTH NEGATIVE - ERROR                   HEADER       270     A     
 HEADER             SA0    X6                                                              HEADER       271     A     
 HEADER             MI     X5,PPA4     IF NO BUFFER LENGTH                                 HEADER       272     A     
 HEADER             EQ     PPA5                                                            HEADER       273     A     
 HEADER                                                                                    HEADER       274     A     
 HEADER   **        PROCESS BUFFER LENGTH DECLARATION                                      HEADER       275     A     
 HEADER                                                                                    HEADER       276     A     
 HEADER    PPA3     SB4    B4-B1                                                           HEADER       277     A     
 HEADER             RJ     DEC         CONVERT BUFFER LENGTH                               HEADER       278     A     
 HEADER             SB4    B4+B1                                                           HEADER       279     A     
 HEADER             SB7    X1-M.INT                                                        HEADER       280     A     
 HEADER             ZR     X1,PPA35    IF UNIVERSAL TYPE                                   HEADER       281     A     
 HEADER             NZ     B7,E.TC3    IF NOT TYPE INTEGER                                 HEADER       282     A     
 HEADER    PPA35    SX3    MAX.BUFL                                                        HEADER       283     A     
 HEADER             IX3    X3-X6                                                           HEADER       284     A     
 HEADER             SX5    X6                                                              F162FTNA     384     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 699    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             MI     X3,E.TC4    IF BUFFER LENGTH TOO LARGE - ERROR                  HEADER       285     A     
 HEADER             MI     X6,E.TC3    IF BUFFER LENGTH NEGATIVE - ERROR                   HEADER       286     A     
 HEADER             SX5    X6+2        FUDGE BUFFER SIZE FOR 6RM KLUDGE                    HEADER       287          I
          -FCC1463X 
 HEADER             SX5    X6+3        FUDGE BUFFER SIZE FOR 6RM KLUDGE                    FCC1463X      13          I
          -F162FTNA 
 HEADER             SA2    B4                                                              HEADER       288          I
          -F162FTNA 
 HEADER             ZR     X5,PPA352   IF BUFFER LENGTH ZERO, HONOR IT                     F162FTNA     385     A     
 HEADER             SX5    X5+3        INCR 3 TO PREVENT S-TAPE PROBLEMS                   F162FTNA     386     A     
 HEADER    PPA352   SA2    B4                                                              F162FTNA     387     A     
 HEADER             SB2    X2-O.SLASH                                                      HEADER       289     A     
 HEADER             NZ     B2,PPA5     IF NOT */*                                          HEADER       290     A     
 HEADER             =B4    B4+1                                                            HEADER       291     A     
 HEADER             EQ     PPA2        GO PROCESS RECORD LENGTH                            HEADER       292     A     
 HEADER                                                                                    HEADER       293     A     
 HEADER    PPA4     SA4    PPAF                                                            HEADER       294          I
          -FCC1463X 
 HEADER             SX5    L.IOBUF6    DEFAULT BUFFER LENGTH                               HEADER       295          I
          -FCC1463X 
 HEADER    PPA355   =X5    MAX.BUFL+3  BUFFER LENGTH REQUESTED EXCEEDS 360000              FCC1463X      14     A     
 HEADER   *                            -- 360000 SUBSTITUTED                               FCC1463X      15     A     
 HEADER             EQ     PPA45       CHECK FOR TERMINAL ORIGIN JOB                       FCC1463X      16     A     
 HEADER                                                                                    FCC1463X      17     A     
 HEADER    PPA4     =X5    L.IOBUF6    DEFAULT BUFFER LENGTH (2003B)                       FCC1463X      18     A     
 HEADER    PPA45    =A4    PPAF                                                            FCC1463X      19     A     
 HEADER             SA3    =XJOT                                                           HEADER       296     A     
 HEADER             ZR     X3,PPA5     IF NOT TERMINAL ORIGIN JOB                          HEADER       297     A     
 HEADER             SA3    DPN+2       DPC FOR *INPUT*                                     HEADER       298     A     
 HEADER             MX0    42                                                              HEADER       299     A     
 HEADER             BX3    X0*X3       STRIP OFF LOWER 18 BITS                             HEADER       300     A     
 HEADER             SX5    L.TIN       DEFAULT INPUT BUFF LENGTH FOR TERMINAL JOBS         HEADER       301     A     
 HEADER             BX3    X4-X3                                                           HEADER       302     A     
 HEADER             ZR     X3,PPA5     IF FILE *INPUT*                                     HEADER       303     A     
 HEADER             SA3    DPN+4       DPC FOR *OUTPUT*                                    HEADER       304     A     
 HEADER             BX3    X0*X3       STRIP OFF LOWER 18 BITS                             HEADER       305     A     
 HEADER             SX5    L.TOUT      DEFAULT OUTPUT LENGTH FOR TERMINAL JOBS             HEADER       306     A     
 HEADER             BX3    X4-X3                                                           HEADER       307     A     
 HEADER             ZR     X3,PPA5     IF FILE *OUTPUT*                                    HEADER       308     A     
 HEADER             SX5    L.IOBUF6                                                        HEADER       309     A     
 HEADER                                                                                    HEADER       310     A     
 HEADER   **        DEFINE NEW FILE  (ENTER INTO *LONG FILE*).                             HEADER       311     A     
 HEADER   *                (X4) = 42/0LFILENAM                                             HEADER       312     A     
 HEADER   *                (X5) = BUFFER LENGTH                                            HEADER       313     A     
 HEADER   *                (B6) \ 0 IFF ALREADY DEFINED.                                   HEADER       314     A     
 HEADER                                                                                    HEADER       315     A     
 HEADER    PPA5     SA3    TG.PRO                                                          HEADER       316     A     
 HEADER             SA2    ORG                                                             HEADER       317     A     
 HEADER             SA1    PPAE                                                            HEADER       318     A     
 HEADER             PL     X1,PPA6     IF FILE ALREADY DEFINED                             HEADER       319     A     
 HEADER             SX6    X3+B1       UPDATE PROGRAM TAG                                  HEADER       320     A     
 HEADER             SX7    X2+L.FET6+L.FIT6   6RM FIT/FET VALUE                            HEADER       321          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 700    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
          -F162FTNA 
 HEADER             SX7    X2+L.FIT6   CRM FIT LENGTH INCR                                 F162FTNA     388     A     
 HEADER             SA3    =XOT.RM                                                         HEADER       322     A     
 HEADER             ZR     X3,PPA52    IF 6RM AT OBJECT TIME                               HEADER       323     A     
 HEADER             SX7    X7+L.FET7+L.FIT7-L.FIT6-L.FET6  7RM FIT/FET VALUES              HEADER       324          I
          -F162FTNA 
 HEADER             SX7    X2+L.FIT7   7RM FIT LENGTH INCR                                 F162FTNA     389     A     
 HEADER             SX5    L.IOBUF7    (7RM ONLY) ALLOCATE NO CIO BUFFER                   F162FTNA     390     A     
 HEADER    PPA52    SA6    TG.PRO                                                          HEADER       325     A     
 HEADER             LX6    18                                                              HEADER       326     A     
 HEADER             IX1    X2+X6                                                           HEADER       327     A     
 HEADER             SA7    A2          UPDATE ORIGIN COUNTER                               HEADER       328     A     
 HEADER             LX1    18                                                              HEADER       329     A     
 HEADER             IX5    X5+X1       =  6/ 0,  18/ L.TAG,  18/ (ORG),  18/ BUFLN         HEADER       330     A     
 HEADER                                                                                    HEADER       331     A     
 HEADER    PPA55    ALLOC  T.FILE,2                                                        HEADER       332     A     
 HEADER             LX7    X5                                                              HEADER       333     A     
 HEADER             BX6    X4                                                              HEADER       334     A     
 HEADER             =A7    B7-1                                                            HEADER       335     A     
 HEADER             =A6    A7-1                                                            HEADER       336     A     
 HEADER                                                                                    HEADER       337     A     
 HEADER   *         SET UP ENTRY FOR WORKING STORAGE AREA                                  HEADER       338     A     
 HEADER                                                                                    HEADER       339     A     
 HEADER             SX5    A0                                                              HEADER       340     A     
 HEADER             PL     X5,PPA57    IF RECORD LENGTH SPECIFIED                          HEADER       341     A     
 HEADER             MX5    1           =  1/1,  59/0  (DUMMY ENTRY)                        HEADER       342     A     
 HEADER             EQ     PPA58                                                           HEADER       343     A     
 HEADER                                                                                    HEADER       344     A     
 HEADER    PPA57    SA3    TG.PRO                                                          HEADER       345     A     
 HEADER             SX6    X3+B1       UPDATE PROGRAM TAG                                  HEADER       346     A     
 HEADER             SA6    A3                                                              HEADER       347     A     
 HEADER             LX6    36                                                              HEADER       348     A     
 HEADER             IX5    X5+X6       =  6/0,  18/L.TAG,  18/0,  18/MRL                   HEADER       349     A     
 HEADER                                                                                    HEADER       350     A     
 HEADER    PPA58    ALLOC  T.FILE,1                                                        HEADER       351     A     
 HEADER             LX7    X5                                                              HEADER       352     A     
 HEADER             =A7    B7-1                                                            HEADER       353     A     
 HEADER                                                                                    HEADER       354     A     
 HEADER   **        CHECK FOR MORE FILE DECLARATIONS                                       HEADER       355     A     
 HEADER   *                EXPECT COMMA OR RIGHT PAREN.                                    HEADER       356     A     
 HEADER                                                                                    HEADER       357     A     
 HEADER    PPA6     SA1    B4          FETCH NEXT SEPARATOR                                HEADER       358     A     
 HEADER             SB4    B4+B1       POINT B4 TO (POSSIBLE) NEXT FILE NAME               HEADER       359     A     
 HEADER             SB7    X1-O.COMMA                                                      HEADER       360     A     
 HEADER             ZR     X1,E.MR1    IF *EOS* - ERROR                                    HEADER       361     A     
 HEADER             SB2    X1-O.)                                                          HEADER       362     A     
 HEADER             ZR     B7,PPA1     IF COMMA, LOOP FOR MORE FILES                       HEADER       363     A     
 HEADER             SA2    B4                                                              HEADER       364     A     
 HEADER             NZ     B2,PPA61    IF NO *)* - ERROR                                   HEADER       365     A     
 HEADER             ZR     X2,PPA62    IF *EOS*                                            HEADER       366     A     
 HEADER             WARN   E.XC        WARN THAT WE IGNORED TRAILING CHARACTERS.           HEADER       367     A     
 HEADER             EQ     PPA62                                                           HEADER       368     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 701    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER                                                                                    HEADER       369     A     
 HEADER   PPA61     SB4    B4-1                                                            HEADER       370     A     
 HEADER             EQ     E.TC2                                                           HEADER       371     A     
 HEADER                                                                                    HEADER       372     A     
 HEADER                                                                                    HEADER       373     A     
 HEADER   **        END OF STATEMENT SCANNING.                                             HEADER       374     A     
 HEADER   *                MARK THE END OF THE FILE LIST.                                  HEADER       375     A     
 HEADER   *                CHECK FOR TOO MANY FILES.                                       HEADER       376     A     
 HEADER   *                SET UP (NARGS) AND (BT.IGS).                                    HEADER       377     A     
 HEADER                                                                                    HEADER       378     A     
 HEADER    PPA62    SA4    T=FILE                                                          HEADER       379     A     
 HEADER             SB2    X4-3*MAX.PARG                                                   HEADER       380     A     
 HEADER             MI     B2,PPA63    IF NOT TOO MANY FILES                               HEADER       381          I
          -FCC1464X 
 HEADER             LE     B2,PPA63    IF NOT TOO MANY FILES                               FCC1464X       6     A     
 HEADER             SX4    3*MAX.PARG                                                      HEADER       382     A     
 HEADER             SHRINK A4,X4                                                           HEADER       383     A     
 HEADER             WARN   E.TC5       ** TOO MANY FILES **                                HEADER       384     A     
 HEADER                                                                                    HEADER       385     A     
 HEADER   *         NUMBER OF ARGS IS (X4)/3 -- THE DIVISION IS NOW DONE BY A              HEADER       386     A     
 HEADER   *         SUBTRACTION LOOP                                                       HEADER       387     A     
 HEADER                                                                                    HEADER       388     A     
 HEADER    PPA63    =B2    0           INITIALIZE QUOTIENT                                 HEADER       389     A     
 HEADER             ZR     X4,PPA63B   IF NO FILES                                         HEADER       390     A     
 HEADER             SX3    3                                                               HEADER       391     A     
 HEADER    PPA63A   IX4    X4-X3                                                           HEADER       392     A     
 HEADER             =B2    B2+1        INCREMENT QUOTIENT                                  HEADER       393     A     
 HEADER             NZ     X4,PPA63A   IF DIVISION NOT COMPLETE                            HEADER       394     A     
 HEADER    PPA63B   SX6    B2                                                              HEADER       395     A     
 HEADER             SA6    NARGS                                                           HEADER       396     A     
 HEADER             BX6    0                                                               HEADER       397     A     
 HEADER             ADDWD  T.FILE      MARK END OF LIST                                    HEADER       398     A     
 HEADER             SA5    X1                                                              HEADER       399     A     
 HEADER             ZR     X5,PPA7     IF NO FILES                                         HEADER       400     A     
 HEADER             SA6    TFI         INITIALIZE T.FILE INCREMENT FOR PRINT               FCC2120        8     A     
 HEADER   *                            FILE DESCRIPTION MACRO LOOP.                        FCC2120        9     A     
 HEADER                                                                                    HEADER       401     A     
 HEADER                                                                                    HEADER       402     A     
 HEADER   **        PRINT FILE DESCRIPTION MACROS.                                         HEADER       403     A     
 HEADER                                                                                    HEADER       404     A     
 HEADER    PPA64    SA4    A5+B1       FETCH TAG WORD                                      HEADER       405     A     
 HEADER             MI     X4,PPA66    IF EQUIVALENCED FILE                                HEADER       406          I
          -FEAT155G 
 HEADER             SX3    X4                                                              HEADER       407          I
          -FEAT155G 
 HEADER             RJ     KTX         CONVERT FILE BUFFER LENGTH                          HEADER       408          I
          -FEAT155G 
 HEADER             SA6    PPAA+3                                                          HEADER       409          I
          -FEAT155G 
 HEADER             SA2    A4+B1       FETCH RECORD DESCRIPTOR                             HEADER       410          I
          -FEAT155G 
 HEADER             MI     X2,PPA65    IF NO RECORD LENGTH SPECIFIED                       HEADER       411          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 702    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
          -FEAT155G 
 HEADER             SX3    X2                                                              HEADER       412          I
          -FEAT155G 
 HEADER             RJ     KTX         CONVERT RECORD LENGTH                               HEADER       413          I
          -FEAT155G 
 HEADER             SA6    PPAA+5                                                          HEADER       414          I
          -FEAT155G 
 HEADER             EQ     PPA68                                                           HEADER       415          I
          -FEAT155G 
 HEADER                                                                                    HEADER       416          I
          -FEAT155G 
 HEADER    PPA65    MX6    0                                                               HEADER       417          I
          -FEAT155G 
 HEADER             SA6    PPAA+5                                                          HEADER       418          I
          -FEAT155G 
 HEADER             EQ     PPA68                                                           HEADER       419          I
          -FEAT155G 
 HEADER                                                                                    HEADER       420          I
          -FEAT155G 
 HEADER    PPA66    SA2    T.FILE                                                          HEADER       421          I
          -FEAT155G 
 HEADER             SB7    X4                                                              HEADER       422          I
          -FEAT155G 
 HEADER             SA1    X2+B7       FETCH EQUIVALENCED NAME                             HEADER       423          I
          -FEAT155G 
 HEADER             MX7    0           NO RECORD LENGTH                                    HEADER       424          I
          -FEAT155G 
 HEADER             SA7    PPAA+5                                                          HEADER       425          I
          -FEAT155G 
 HEADER             BX6    X1                                                              HEADER       426          I
          -FEAT155G 
 HEADER             RJ     FFN         MANUFACTURE FILE NAME.                              HEADER       427          I
          -FEAT155G 
 HEADER             SA6    PPAA+3                                                          HEADER       428          I
          -FEAT155G 
 HEADER    PPA68    LX4    -2*18                                                           HEADER       429          I
          -FEAT155G 
 HEADER             SX3    X4                                                              HEADER       430          I
          -FEAT155G 
 HEADER             RJ     KIT         CONVERT BUFFER TAG                                  HEADER       431          I
          -FEAT155G 
 HEADER             LX4    18                                                              HEADER       432          I
          -FEAT155G 
 HEADER             SX1    X4                                                              HEADER       433          I
          -FEAT155G 
 HEADER             SA6    PPAA+1                                                          HEADER       434          I
          -FEAT155G 
 HEADER             PIA    ,PIG=IG     CONVERT FILE ADDRESS                                HEADER       435          I
          -FEAT126A -FEAT155G 
 HEADER             PIA    ,LINEBUF    CONVERT FILE ADDRESS                                FEAT126A     383          I
          -FEAT155G 
 HEADER             MX3    LG.VAR*CHAR                                                     HEADER       436          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 703    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
          -FEAT155G 
 HEADER             BX6    X3*X5                                                           HEADER       437          I
          -FEAT155G 
 HEADER             SB4    X4                                                              HEADER       438          I
          -FEAT155G 
 HEADER             RJ     FFN         MANUFACTURE FILE NAME.                              HEADER       439          I
          -FEAT155G 
 HEADER             BX1    X6                                                              HEADER       440          I
          -FEAT155G 
 HEADER             LX5    X6                                                              HEADER       441          I
          -FEAT155G 
 HEADER             RJ     SFN         SPACE FILL                                          HEADER       442          I
          -FEAT155G 
 HEADER             SA2    PPAA                                                            HEADER       443          I
          -FEAT155G 
 HEADER             SA6    PIG=IG+1    STORE FILE NAME IN OUTPUT LINE                      HEADER       444          I
          -FEAT126A -FEAT155G 
 HEADER             SA6    LINEBUF+1   STORE FILE NAME IN OUTPUT LINE                      FEAT126A     384          I
          -FEAT155G 
 HEADER             BX6    X2                                                              HEADER       445          I
          -FEAT155G 
 HEADER             SA2    A2+B1                                                           HEADER       446          I
          -FEAT155G 
 HEADER             RJ     PVF         PRINT FILE DESCRIPTOR                               HEADER       447          I
          -FEAT155G 
 HEADER             SX4    B4                                                              HEADER       448          I
          -FEAT155G 
 HEADER                                                                                    HEADER       449          I
          -FEAT155G 
 HEADER             BX6    X5                                                              HEADER       450          I
          -FEAT155G 
 HEADER             SA2    =XLOP=O     OBJECT LIST FLAG                                    FEAT155G     163     A     
 HEADER             MI     X2,=XPFD    IF OBJECT LIST - PRINT FILE DESCRIPTORS             FEAT155G     164     A     
 HEADER             LX4    -18                                                             FEAT155G     165     A     
 HEADER             MX3    LG.VAR*CHAR                                                     FEAT155G     166     A     
 HEADER             SX4    X4                                                              FEAT155G     167     A     
 HEADER             BX6    X3*X5                                                           FEAT155G     168     A     
 HEADER             RJ     FFN         ADD SPECIAL CHARACTER TO FILE NAME                  FEAT155G     169     A     
 HEADER   *         ...                                                                    FEAT155G     170     A     
 HEADER    PFDX     BSS    0           ** RETURN FROM PFD                                  FEAT155G     171     A     
 HEADER             BX5    X6                                                              FEAT155G     172     A     
 HEADER             SCAN   TS.SYM,SSY        PREPARE TO ADD SYMBOL                         HEADER       451     A     
 HEADER             PL     B7,E.ZA     IF ALREADY IN TABLE, COMPILER ERROR.                HEADER       452     A     
 HEADER             =X7    M.ENT+M.DEF+M.NVAR                                              HEADER       453     A     
 HEADER             LX4    P.PNT                                                           HEADER       454     A     
 HEADER             BX7    X4+X7                                                           HEADER       455     A     
 HEADER             ADSYM  A1                                                              HEADER       456     A     
 HEADER             SA3    CO.EDT                                                          HEADER       457     A     
 HEADER             IX5    X5+X3       MERGE LINKAGE-SUPPRESSION BIT                       HEADER       458     A     
 HEADER             BX6    X0+X5                                                           HEADER       459     A     
 HEADER             ADDWD  TS.ENT                                                          HEADER       460     A     
 HEADER             SA5    A5+3                                                            HEADER       461          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 704    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
          -FCC2120
 HEADER             SA2    TFI         T.FILE INCREMENT                                    FCC2120       10     A     
 HEADER             SX6    X2+3                                                            FCC2120       11     A     
 HEADER             SA3    T.FILE      X3 = ORIGIN                                         FCC2120       12     A     
 HEADER             SA6    A2          SAVE NEW INCREMENT                                  FCC2120       13     A     
 HEADER             SA5    X3          FWA OF T.FILE                                       FCC2120       14     A     
 HEADER             SB7    X6                                                              FCC2120       15     A     
 HEADER             SA5    A5+B7                                                           FCC2120       16     A     
 HEADER             NZ     X5,PPA64    IF MORE FILES                                       HEADER       462     A     
 HEADER                                                                                    HEADER       463     A     
 HEADER                                                                                    HEADER       464     A     
 HEADER   **        PRINT *FILE VECTOR*.                                                   HEADER       465     A     
 HEADER                                                                                    HEADER       466     A     
 HEADER    PPA7     PIA    ORG,PPAC                                                        HEADER       467     A     
 HEADER             SA3    ORG                                                             HEADER       468     A     
 HEADER             SA2    NARGS                                                           HEADER       469     A     
 HEADER             SX4    CT.FILE                                                         HEADER       470     A     
 HEADER                                                                                    F162FTNA     391     A     
 HEADER             IFEQ   OT#RM,6,1                                                       F162FTNA     392          I
          -FCCA408
 HEADER             SX2    X2+L.LIST   *Q-NTRY* *LIST*                                     F162FTNA     393          I
          -FCCA408
 HEADER    .RM      IFEQ   OT#RM,6                                                         FCCA408       72     A     
 HEADER                                                                                    FCCA408       73     A     
 HEADER             NZ     X2,PPA7.5   IF MAIN PROGRAM WITH FILES                          FCCA408       74     A     
 HEADER             SA1    =XCO.STA                                                        FCCA408       75     A     
 HEADER             ZR     X1,PPA7.5   IF NOT STATIC MODE                                  FCCA408       76     A     
 HEADER             SX2    X2+=XL.STL+1      NO FILES + STLTAB + AP-LIST POINTER           FCCA408       77     A     
 HEADER                                                                                    FCCA408       78     A     
 HEADER    PPA7.5   SX2    X2+L.LIST   Q2NTRY AP-LIST                                      FCCA408       79     A     
 HEADER                                                                                    FCCA408       80     A     
 HEADER    .RM      ENDIF                                                                  FCCA408       81     A     
 HEADER                                                                                    F162FTNA     394     A     
 HEADER             SA5    TA.PRO                                                          HEADER       471     A     
 HEADER             IX1    X3+X2                                                           HEADER       472     A     
 HEADER             SX6    X1+B1                                                           HEADER       473     A     
 HEADER             LX4    P.TAG                                                           HEADER       474     A     
 HEADER             BX7    X4+X3                                                           HEADER       475     A     
 HEADER             SA6    A3          ADVANCE ORIGIN COUNTER                              HEADER       476     A     
 HEADER             SA7    X5+CT.FILE-C.PRO  DEFINE ADDRESS OF *CT.FILE*                   HEADER       477     A     
 HEADER             SA6    BA.PRO                                                          HEADER       478     A     
 HEADER             SA2    LOP=O                                                           HEADER       479     A     
 HEADER             PL     X2,PPA8     IF NO OBJECT LISTING                                HEADER       480     A     
 HEADER             PLINE  PPAC        PRINT * L.3    BSS    0  *                          HEADER       481          I
          -FEAT126A 
 HEADER             PLINE  PPAC,4      PRINT * L.3      Q8NTRY NNNNNNNNN  *                FEAT126A     385          I
          -FCC1559X 
 HEADER             PLINE  PPAC,4      PRINT * L.3     Q1NTRY   NNNNN *                    FCC1559X      11          I
          -F162FTNA 
 HEADER             PLINE  PPAC,4      PRINT * L.S   Q2NTRY   NNNNN *                      F162FTNA     395     A     
 HEADER                                                                                    HEADER       482     A     
 HEADER                                                                                    HEADER       483     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 705    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER   **        COMPILE CALL TO Q8NTRY, AND OTHER BOOKKEEPING.                         HEADER       484          I
          -FCC1559X 
 HEADER   *         COMPILE CALLS TO *Q1NTRY* AND *FTNRP1.* (CHANGE-OVER                   FCC1559X      12          I
          -F162FTNA 
 HEADER   *         FROM *Q8NTRY* AND *FTNRPV.* FOR CRM2).                                 FCC1559X      13          I
          -F162FTNA 
 HEADER   *         COMPILE CALLS TO *Q2NTRY.* AND *FTNRP2.*.                              F162FTNA     396     A     
 HEADER                                                                                    HEADER       485     A     
 HEADER    PPA8     SA1    ENTRY.                                                          HEADER       486          I
          -FEAT155G 
 HEADER             CBSS   X1+C.VAR                                                        HEADER       487          I
          -FEAT155G 
 HEADER    PPA8     SA1    CO.ER       CHECK FOR OTR                                       FEAT155G     173     A     
 HEADER             ZR     X1,PPA9                                                         FEAT155G     174     A     
 HEADER             RJ     PIG                                                             FEAT155G     175     A     
 HEADER             RJ     SOR                                                             FEAT155G     176     A     
 HEADER    #FID     IFNE  .FID,0                                                           F66FCC       183     A     
 HEADER             SA3    =XCO.ID     INTERACTIVE DEBUG FLAG                              F66FCC       184     A     
 HEADER             MI     X3,PPA9     IF FID ON                                           F66FCC       185     A     
 HEADER    #FID     ENDIF                                                                  F66FCC       186     A     
 HEADER             SX1    =XSB=BKS3                                                       FEAT155G     177     A     
 HEADER             SX1    X1+2                                                            FEAT155G     178     A     
 HEADER             SA3    =XREFLIN                                                        FEAT155G     179     A     
 HEADER             LX1    P.LI12                                                          FEAT155G     180     A     
 HEADER             LX3    P.LBIAS-CHAR                                                    FEAT155G     181     A     
 HEADER             BX7    X1+X3                                                           FEAT155G     182     A     
 HEADER             WCODE  X7          SB0  B2+LINENO                                      FEAT155G     183     A     
 HEADER    PPA9     BSS    0                                                               FEAT155G     184     A     
 HEADER             SA1    ENTRY.                                                          FEAT155G     185     A     
 HEADER             CBSS   X1+C.VAR    COMPILE ENTRY POINT                                 FEAT155G     186     A     
 HEADER    A        OCTMIC CT.FILE,6                                                       HEADER       488     A     
 HEADER             SA3    =5110"A"BS30                                                    HEADER       489     A     
 HEADER             WCODE  X3          COMPILE  *SA1 FILE.*                                HEADER       490     A     
 HEADER             TAGSEX S.Q8NTR                                                         HEADER       491          I
          -FEAT155G 
 HEADER             SA2    CO.ER                                                           FEAT155G     187     A     
 HEADER             NZ     X2,PPA10    IF *ER* SET, DO FTNRPV. ONLY                        FEAT155G     188     A     
 HEADER             TAGSEX S.Q8NTR     IF ER=0, DO Q8NTRY ONLY                             FEAT155G     189          I
          -FCC1559X 
 HEADER             CRJ    NONE        COMPILE  *RJ =XQ8NTRY*                              HEADER       492          I
          -FCC1559X 
 HEADER             TAGSEX S.Q1NTR     IF ER = 0 DO Q1NTRY ONLY                            FCC1559X      14          I
          -F162FTNA 
 HEADER             CRJ    NONE        COMPILE *RJ  =XQ1NTRY*                              FCC1559X      15          I
          -F162FTNA 
 HEADER             TAGSEX S.Q2NTR     IF ER = 0 CALL Q2NTRY.                              F162FTNA     397     A     
 HEADER             CRJ    NONE        COMPILE  * RJ  =XQ2NTRY. *                          F162FTNA     398     A     
 HEADER             RJ     PIG         PRINT INSTRUCTION GROUP                             HEADER       493     A     
 HEADER             EQ     PPAX                                                            FEAT155G     190     A     
 HEADER    PPA10    TAGSEX S.FTNRP                                                         FEAT155G     191     A     
 HEADER             CRJ    NONE        COMPILE  * RJ  =XFTNRPV *                           FEAT155G     192          I
          -FCC1559X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 706    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             CRJ    NONE        COMPILE *RJ  =XFTNRP1.*                             FCC1559X      16          I
          -F162FTNA 
 HEADER             CRJ    NONE        COMPILE  * RJ  =XFTNRP2. *                          F162FTNA     399     A     
 HEADER             RJ     PIG         PRINT INSTRUCTION GROUP                             FEAT155G     193     A     
 HEADER             EQ     PPAX        EXIT..                                              HEADER       494     A     
 HEADER    TFI      BSS    1           T.FILE INCREMENT                                    FCC2120       17     A     
 HEADER                                                                                    HEADER       495          I
          -FEAT155G 
 HEADER    PPAA     DATA   7RFILE                                                          HEADER       496          I
          -FEAT155G 
 HEADER             BSS    1           FILE NAME                                           HEADER       497          I
          -FEAT155G 
 HEADER             DATA   1L,                                                             HEADER       498          I
          -FEAT155G 
 HEADER             BSS    1           LENGTH OR EQUIVALENCE                               HEADER       499          I
          -FEAT155G 
 HEADER             DATA   1L,                                                             HEADER       500          I
          -FEAT155G 
 HEADER             BSS    1           RECORD LENGTH                                       HEADER       501          I
          -FEAT155G 
 HEADER             DATA   0                                                               HEADER       502          I
          -FEAT155G 
 HEADER                                                                                    HEADER       503     A     
 HEADER    PPAC     BSS    1           ADDRESS                                             HEADER       504     A     
 HEADER    A        OCTMIC CT.FILE-C.PRO                                                   HEADER       505     A     
 HEADER             DATA   10H L."A"                                                       HEADER       506     A     
 HEADER             DIS    1,Q8NTRY    FILE VECTOR MACRO CALL                              HEADER       507          I
          -FCC1559X 
 HEADER             DIS    1,Q1NTRY    FILE VECTOR MACRO CALL                              FCC1559X      17          I
          -F162FTNA 
 HEADER             DIS    1,Q2NTRY    FILE VECTOR MACRO CALL                              F162FTNA     400     A     
 HEADER    PPAD     DIS    1,          PRINT LIMIT (SET BY *IMO*)                          HEADER       508     A     
 HEADER             DIS    ,/FILE VECTOR/                                                  HEADER       509          I
          -FEAT126A 
 HEADER                                                                                    HEADER       510     A     
 HEADER    PPAE     DATA   0                                                               HEADER       511     A     
 HEADER    PPAF     DATA   0                                                               HEADER       512     A     
 HEADER    PPAG     BSS    1                                                               FEAT155G     194     A     
 HEADER             DATA   10H                                                             FEAT155G     195     A     
 HEADER             DATA   10HSB0    B2-                                                   FEAT155G     196     A     
 HEADER             DIS    1,LEN.                                                          FEAT155G     197     A     
 HEADER             DATA   0                                                               FEAT155G     198     A     
 HEADER    PPAH     DATA   10H                                                             FEAT155G     199     A     
 HEADER             DATA   10H                                                             FEAT155G     200     A     
 HEADER             DATA   10HSB0    B2+                                                   FEAT155G     201     A     
 HEADER             DIS    1,L.0      T                                                    FEAT155G     202     A     
 HEADER             DIS    1,RACE.                                                         FEAT155G     203     A     
 HEADER             DATA   0                                                               FEAT155G     204     A     
 HEADER                                                                                    FEAT155G     205     A     
 HEADER   **        SOR-   SET OBJECT TIME REPRIEVE CODE                                   FEAT155G     206     A     
 HEADER   *         WHEN CONTROL CARD OPTION *ER* IS SET,  SET FIRST INSTRUCTIONS          FEAT155G     207     A     
 HEADER   *         IN LONG FILE TO BE  * SB0  B2-LEN. * (LEN. = LENGTH OF                 FEAT155G     208     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 707    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER   *         ROUTINE) AND * SB0  B2+POINTER * (POINTER = POINTER TO TRACE           FEAT155G     209     A     
 HEADER   *         WORD).  WHEN LENGTH OF ROUTINE IS DETERMINED (IN *END* ) THE           FEAT155G     210     A     
 HEADER   *         TRUE VALUE WILL THEN BE APPENDED TO THE INSTRUCTION BEFORE             FEAT155G     211     A     
 HEADER   *         THE LONG FILE IS PROCESSED (IN *END*).                                 FEAT155G     212     A     
 HEADER   *                                                                                FEAT155G     213     A     
 HEADER   *         USES - X0-X4,X6,A1-A4,A6,B1,B2                                         FEAT155G     214     A     
 HEADER                                                                                    FEAT155G     215     A     
 HEADER                                                                                    FEAT155G     216     A     
 HEADER    SOR      SUBR   0                                                               FEAT155G     217     A     
 HEADER             MX0    1                                                               FEAT155G     218     A     
 HEADER             AX0    16                                                              FEAT155G     219     A     
 HEADER             SA4    =6102BS48                                                       FEAT155G     220     A     
 HEADER             LX0    48                                                              FEAT155G     221     A     
 HEADER             IX3    X0+X4       SET TAG FIELD NONZERO _ 61027777760-0B              FEAT155G     222     A     
 HEADER             WCODE  X3          X4 IS PRESERVED.                                    FEAT155G     223     A     
 HEADER    A        OCTMIC CT.TRAC,6                                                       FEAT155G     224     A     
 HEADER             SA4    =6102"A"BS30                                                    FEAT155G     225     A     
 HEADER             WCODE  X4          TAG FIELD = 0  _ 61020-0B                           FEAT155G     226     A     
 HEADER             SA1    TT=LF       *PIG* WILL NOT PROCESS THE *6102---* INSTR          FEAT155G     227          I
          -FCCA557
 HEADER             BX6    X1                                                              FEAT155G     228          I
          -FCCA557
 HEADER             SA1    ORG                                                             FEAT155G     229          I
          -FCCA557
 HEADER             SA6    IGS                                                             FEAT155G     230          I
          -FCCA557
 HEADER             SX6    X1+B1                                                           FEAT155G     231          I
          -FCCA557
 HEADER             SA2    LOP=O                                                           FEAT155G     232          I
          -FCCA557
 HEADER             SA6    A1          ADVANCE ORIGIN COUNTER.                             FEAT155G     233          I
          -FCCA557
 HEADER             SA1    ORG                                                             FCCA557       15     A     
 HEADER             SX6    X1+B1                                                           FCCA557       16     A     
 HEADER             SA6    A1          ADVANCE ORIGIN COUNTER                              FCCA557       17     A     
 HEADER             SA1    BINIO                                                           FCCA557       18     A     
 HEADER             ZR     X1,SOR2     IF LONG FILE IS IN CORE                             FCCA557       19     A     
 HEADER             SA1    TT.LF                                                           FCCA557       20     A     
 HEADER             SA2    TT=LF                                                           FCCA557       21     A     
 HEADER             WRITEW F.LF,X1,X2  PUT OTR INSTRUCTIONS ON DISK                        FCCA557       22     A     
 HEADER             SHRINK TT=LF                                                           FCCA557       23     A     
 HEADER    SOR2     SA1    TT=LF                                                           FCCA557       24     A     
 HEADER             BX6    X1                                                              FCCA557       25     A     
 HEADER             SA6    IGS         PIG WILL NOT PROCESS THE OTR INSTRUCTIONS           FCCA557       26     A     
 HEADER             SA2    LOP=O                                                           FCCA557       27     A     
 HEADER             PL     X2,SOR1     IF NO OBJECT LISTING                                FEAT155G     234     A     
 HEADER             PIA    ,PPAG                                                           FEAT155G     235     A     
 HEADER             PLINE  PPAG,4      PRINT * SB0  B2-LEN.*                               FEAT155G     236     A     
 HEADER             PLINE  PPAH,5      PRINT * SB0  B2+L.0   TRACE. *                      FEAT155G     237     A     
 HEADER    SOR1     EQ     SOR                                                             FEAT155G     238     A     
 HEADER    PSA      SPACE  4,15                                                            HEADER       513     A     
 HEADER   **        PSA -  PROCESS SUBPROGRAM ARGUMENTS.                                   HEADER       514     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 708    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER   *         ENTRY  (B4) _ *(* AT BEGINNING OF (POSSIBLE) ARGUMENT LIST.            HEADER       515     A     
 HEADER   *         USES   ALL                                                             HEADER       516     A     
 HEADER   *         CALLS  PIG, PXE, SAE, TAB, TRV.                                        HEADER       517          I
          -FEAT126C 
 HEADER   *         CALLS  PIG, PXE, STY, TLV.                                             FEAT126C      87     A     
 HEADER                                                                                    HEADER       518     A     
 HEADER                                                                                    HEADER       519     A     
 HEADER    PSA      SUBR   0                                                               HEADER       520     A     
 HEADER             RJ     PXE         PROCESS TRACEBACK WORD                              HEADER       521     A     
 HEADER             SA1    B4                                                              HEADER       522     A     
 HEADER             SB6    B0          SET ARGUMENT COUNT TO ZERO                          HEADER       523     A     
 HEADER             ZR     X1,PSA11    IF NO ARGUMENTS                                     HEADER       524     A     
 HEADER             SX2    X1-O.(                                                          HEADER       525     A     
 HEADER             NZ     X2,PSA13    IF NO *(*                                           HEADER       526     A     
 HEADER             SA1    B4+B1                                                           HEADER       527     A     
 HEADER             SB4    B4+B1                                                           HEADER       528     A     
 HEADER             ZR     X1,E.MR1    IF EOS INSTEAD OF ARGUMENT                          HEADER       529     A     
 HEADER                                                                                    HEADER       530     A     
 HEADER    PSA1     MX0    LG.VAR*CHAR                                                     HEADER       531     A     
 HEADER             SB7    X1-O.VAR                                                        HEADER       532     A     
 HEADER             BX6    X0*X1                                                           HEADER       533     A     
 HEADER             SA6    FILL.                                                           HEADER       534     A     
 HEADER             ZR     B7,PSA12    IF LETTER                                           HEADER       535     A     
 HEADER             FATAL  E.AC4                                                           HEADER       536     A     
 HEADER             EQ     PSA17                                                           HEADER       537     A     
 HEADER                                                                                    HEADER       538     A     
 HEADER    PSA11    SX6    B6                                                              HEADER       539     A     
 HEADER             SA6    NARGS       STORE NUMBER OF ARGUMENTS                           HEADER       540     A     
 HEADER             SA1    MOD                                                             HEADER       541     A     
 HEADER             LX1    59-P.PFNC                                                       HEADER       542     A     
 HEADER             PL     X1,PSA32    IF NOT A FUNCTION                                   HEADER       543     A     
 HEADER    PSA11A   FATAL  E.FA                                                            HEADER       544     A     
 HEADER             EQ     PSA32                                                           HEADER       545     A     
 HEADER                                                                                    HEADER       546     A     
 HEADER    PSA12    SCAN   TS.SYM,SSY                                                      HEADER       547     A     
 HEADER             MI     B7,PSA14    IF NOT PREVIOUSLY DEFINED                           HEADER       548     A     
 HEADER             FATAL  E.AC3                                                           HEADER       549     A     
 HEADER             EQ     PSA15                                                           HEADER       550     A     
 HEADER                                                                                    HEADER       551     A     
 HEADER    PSA13    SX6    B6                                                              HEADER       552     A     
 HEADER             SA6    NARGS       STORE NUMBER OF ARGUMENTS                           HEADER       553     A     
 HEADER             SA2    MOD                                                             HEADER       554     A     
 HEADER             LX2    59-P.PFNC                                                       HEADER       555     A     
 HEADER             MI     X2,PSA11A   IF A FUNCTION                                       HEADER       556     A     
 HEADER             SX3    X1-O.COMMA                                                      HEADER       557     A     
 HEADER             NZ     X3,E.AC6    IF NO *,* - ERROR                                   HEADER       558     A     
 HEADER             EQ     PSA22                                                           HEADER       559     A     
 HEADER                                                                                    HEADER       560     A     
 HEADER    PSA14    RJ     STY         SET NATURAL TYPE                                    HEADER       561     A     
 HEADER             =X3    B6+1        = ORDINAL OF ARGUMENT                               HEADER       562     A     
 HEADER             =X2    M.FP                                                            HEADER       563     A     
          -FCC1495X +FCC1495AX
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 709    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             SX2    M.FP+M.DEF                                                      FCC1495X       6          I
          -FCC1495AX
 HEADER             =B6    B6+1        COUNT ARGUMENTS                                     HEADER       564     A     
 HEADER             LX3    P.FPNO                                                          HEADER       565     A     
 HEADER             IX1    X2+X1                                                           HEADER       566     A     
 HEADER             BX7    X1+X3                                                           HEADER       567     A     
 HEADER             ADSYM  TS.SYM                                                          HEADER       568     A     
 HEADER                                                                                    HEADER       569     A     
 HEADER    PSA15    ADDREF X6,CR.CALL                                                      HEADER       570     A     
 HEADER                                                                                    HEADER       571     A     
 HEADER    PSA17    =A3    B4+1                                                            HEADER       572     A     
 HEADER             SB7    X3-O.VAR                                                        HEADER       573     A     
 HEADER             NZ     B7,PSA18    IF NOT LONG NAME                                    HEADER       574     A     
 HEADER             RJ     =XTLV       TRUNCATE NAME                                       HEADER       575     A     
 HEADER             =A3    B4+1                                                            HEADER       576     A     
 HEADER    PSA18    ZR     X3,E.MR1    IF NO *)* - ERROR                                   HEADER       577     A     
 HEADER   */ALLOW LONG NAMES AS RETURNS DUMMY PARAMETERS                                   HEADER       578          I
          -FCC0498
 HEADER             SA1    A3+B1                                                           HEADER       579     A     
 HEADER             SX2    X3-O.COMMA                                                      HEADER       580     A     
 HEADER             SB4    A3+B1       B4 = B4+1                                           HEADER       581     A     
 HEADER             ZR     X2,PSA1     IF *,* LOOP ON NEXT ARGUMENT                        HEADER       582     A     
 HEADER             SX2    X3-O.)                                                          HEADER       583     A     
 HEADER             NZ     X2,E.AP1    IF NO *)* - ERROR                                   HEADER       584     A     
 HEADER             SX6    B6                                                              HEADER       585     A     
 HEADER             SA6    NARGS                                                           HEADER       586     A     
 HEADER             SA2    B4                                                              HEADER       587     A     
 HEADER             ZR     X2,PSA3     IF *EOS*                                            HEADER       588     A     
 HEADER             SX1    X2-O.COMMA                                                      HEADER       589     A     
 HEADER             ZR     X1,PSA22                                                        HEADER       590     A     
 HEADER             SA1    X2+=XCHARMAP                                                    HEADER       591     A     
 HEADER             MX0    L.CDPC                                                          HEADER       592     A     
 HEADER             NZ     X1,PSA21A   IF NOT VAR OR CONS                                  HEADER       593     A     
 HEADER             LX1    X2                                                              HEADER       594     A     
 HEADER    PSA21A   BX6    X0*X1                                                           HEADER       595     A     
 HEADER             SA6    FILL.                                                           HEADER       596     A     
 HEADER             EQ     =XE.TY      OUTPUT ERROR                                        HEADER       597     A     
 HEADER    PSA22    SA1    B4+B1                                                           HEADER       598     A     
 HEADER             SB4    B4+B1                                                           HEADER       599     A     
 HEADER             MX0    LG.VAR*CHAR                                                     HEADER       600     A     
 HEADER             SB7    X1-O.VAR                                                        HEADER       601     A     
 HEADER             BX6    X0*X1                                                           HEADER       602     A     
 HEADER             NZ     B7,PSAERR   IF NOT LETTER - ERROR                               HEADER       603     A     
 HEADER             MX2    4*CHAR                                                          HEADER       604     A     
 HEADER             BX2    X2*X1                                                           HEADER       605     A     
 HEADER             SA3    =0LRETU                                                         HEADER       606     A     
 HEADER             IX2    X2-X3                                                           HEADER       607     A     
 HEADER             NZ     X2,PSAERR   IF FIRST 4 LETTERS NOT *RETU*                       HEADER       608     A     
 HEADER             SA3    =0LRETURNS                                                      HEADER       609     A     
 HEADER             IX2    X6-X3                                                           HEADER       610     A     
 HEADER             ZR     X2,PSA23    IF *RETURNS*                                        HEADER       611     A     
 HEADER             WARN   E.AC9                                                           HEADER       612     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 710    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER    PSA23    ANSI   E.ANS                                                           HEADER       613     A     
 HEADER             SA1    B4+B1                                                           HEADER       614     A     
 HEADER             SB4    B4+B1                                                           HEADER       615     A     
 HEADER             SX2    X1-O.(                                                          HEADER       616     A     
 HEADER             NZ     X2,E.AP     IF NO *(* - ERROR                                   HEADER       617     A     
 HEADER             =B6    B6+1        BUMP ARG COUNT FOR -0 WORD                          HEADER       618     A     
 HEADER             =B4    B4+1                                                            HEADER       619     A     
 HEADER    PSA24    SA1    B4                                                              HEADER       620     A     
 HEADER             MX0    LG.VAR*CHAR                                                     HEADER       621     A     
 HEADER             SB7    X1-O.VAR                                                        HEADER       622     A     
 HEADER             BX6    X0*X1                                                           HEADER       623     A     
 HEADER             SA6    FILL.                                                           HEADER       624     A     
 HEADER             ZR     B7,PSA25    IF LETTER                                           HEADER       625     A     
 HEADER             FATAL  E.AC4                                                           HEADER       626     A     
 HEADER             EQ     PSA28                                                           HEADER       627     A     
 HEADER                                                                                    HEADER       628     A     
 HEADER    PSA25    SCAN   TS.SYM,SSY                                                      HEADER       629     A     
 HEADER             MI     B7,PSA26    IF NOT PREVIOUSLY DEFINED                           HEADER       630     A     
 HEADER             FATAL  E.AC3                                                           HEADER       631     A     
 HEADER             EQ     PSA27                                                           HEADER       632     A     
 HEADER                                                                                    HEADER       633     A     
 HEADER    PSA26    =X3    B6+1        = ORDINAL OF ARGUMENT                               HEADER       634     A     
 HEADER             =X2    M.RP+M.NVAR                                                     HEADER       635     A     
 HEADER             =B6    B6+1        COUNT ARGUMENTS                                     HEADER       636     A     
 HEADER             LX3    P.FPNO                                                          HEADER       637     A     
 HEADER             BX7    X2+X3                                                           HEADER       638     A     
 HEADER             ADSYM  TS.SYM                                                          HEADER       639     A     
 HEADER                                                                                    HEADER       640     A     
 HEADER    PSA27    ADDREF X6,CR.CALL                                                      HEADER       641     A     
 HEADER                                                                                    HEADER       642     A     
 HEADER    PSA28    =A3    B4+1                                                            HEADER       643     A     
 HEADER             ZR     X3,E.MR1    IF PREMATURE *EOS*                                  HEADER       644     A     
 HEADER             SB7    X3-O.VAR                                                        HEADER       645     A     
 HEADER             NZ     B7,PSA28B   IF NOT LONG NAME                                    HEADER       646     A     
 HEADER             RJ     =XTLV       TRUNCATE NAME                                       HEADER       647     A     
 HEADER             =A3    B4+1                                                            HEADER       648     A     
 HEADER    PSA28B   =A1    A3+1                                                            HEADER       649     A     
 HEADER   */FIX BAD BRANCH                                                                 HEADER       650          I
          -FCC0498
 HEADER             SX2    X3-O.COMMA                                                      HEADER       651     A     
 HEADER             SB4    A3+B1                                                           HEADER       652     A     
 HEADER             ZR     X2,PSA24    IF *,* LOOP ON NEXT ARGUMENT                        HEADER       653     A     
 HEADER             SX2    X3-O.)                                                          HEADER       654     A     
 HEADER             NZ     X2,E.AP1    IF NO *)* - ERROR                                   HEADER       655     A     
 HEADER             ZR     X1,PSA29    IF *EOS*                                            HEADER       656     A     
 HEADER             WARN   E.AC8                                                           HEADER       657     A     
 HEADER    PSA29    SX6    B6                                                              HEADER       658     A     
 HEADER             SA6    NARGS       STORE NUMBER OF ARGUMENTS                           HEADER       659     A     
 HEADER             SA1    MOD                                                             HEADER       660     A     
 HEADER             LX1    59-P.PFNC                                                       HEADER       661     A     
 HEADER             PL     X1,PSA3     IF NOT A FUNCTION                                   HEADER       662     A     
 HEADER             FATAL  E.FR                                                            HEADER       663     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 711    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER    PSA3     SB2    B6-MAX.SARG                                                     HEADER       664     A     
 HEADER             LE     B2,PSA32    IF COMPILER DEFINED LIMIT NOT EXCEEDED              HEADER       665     A     
 HEADER             FATAL  E.AC                                                            HEADER       666     A     
 HEADER    PSA32    SX1    CT.BEGIN                                                        HEADER       667     A     
 HEADER             CBSS   X1                                                              HEADER       668     A     
 HEADER             SA2    ENTRY.                                                          HEADER       669          I
          -FEAT155G 
 HEADER             RJ     PIG         PRINT INSTRUCTIONS                                  HEADER       670     A     
 HEADER             EQ     PSAX        EXIT..                                              HEADER       671          I
          -FEAT155G 
 HEADER             SA1    CO.ER                                                           FEAT155G     239     A     
 HEADER             ZR     X1,PSA33    IF ER=0                                             FEAT155G     240     A     
 HEADER             RJ     SOR                                                             FEAT155G     241     A     
 HEADER    PSA33    EQ     PSAX                                                            FEAT155G     242     A     
 HEADER                                                                                    HEADER       672     A     
 HEADER   *         IF NOT RETURNS FOLLOWING *ARGUMENT LIST* *,*                           HEADER       673     A     
 HEADER                                                                                    HEADER       674     A     
 HEADER    PSAERR   SA2    X1+=XCHARMAP                                                    HEADER       675     A     
 HEADER             NZ     X2,PSAERR1  IF NOT VAR OR CONS                                  HEADER       676     A     
 HEADER             LX2    X1                                                              HEADER       677     A     
 HEADER    PSAERR1  MX0    L.CDPC                                                          HEADER       678     A     
 HEADER             BX6    X0*X2                                                           HEADER       679     A     
 HEADER             SA6    FILL.                                                           HEADER       680     A     
 HEADER             EQ     E.AC5                                                           HEADER       681     A     
 HEADER    PXE      SPACE  4,8                                                             HEADER       682     A     
 HEADER   **        PXE -  PROCESS TRACEBACK WORD                                          HEADER       683     A     
 HEADER                                                                                    HEADER       684     A     
 HEADER                                                                                    HEADER       685     A     
 HEADER    PXE      SUBR   0                                                               HEADER       686     A     
 HEADER             SHRINK TT=LF,0                                                         HEADER       687     A     
 HEADER                                                                                    HEADER       688     A     
 HEADER   **        INITIALIZE THE *PROGRAM* TAG ADDRESS TABLE.                            HEADER       689     A     
 HEADER                                                                                    HEADER       690     A     
 HEADER             ALLOC  TA.PRO,CT.LAST-C.PRO+1                                          HEADER       691     A     
 HEADER             SX7    CT.LAST                                                         HEADER       692     A     
 HEADER             BX6    0                                                               HEADER       693     A     
 HEADER             SB2    X1                                                              HEADER       694     A     
 HEADER             SA7    TG.PRO                                                          HEADER       695     A     
 HEADER             MX0    -1                                                              HEADER       696     A     
 HEADER    PXE2     SA6    B2                                                              HEADER       697     A     
 HEADER             =B2    B2+1                                                            HEADER       698     A     
 HEADER             IX6    X6-X0                                                           HEADER       699     A     
 HEADER             LT     B2,B7,PXE2  IF MORE PRE-DEFINED TAGS                            HEADER       700     A     
 HEADER                                                                                    HEADER       701     A     
 HEADER   *         NOW TAKE CARE OF LISTING STUFF                                         HEADER       702     A     
 HEADER                                                                                    HEADER       703     A     
 HEADER             SA1    LOP=O                                                           HEADER       704     A     
 HEADER             SX6    3                                                               HEADER       705     A     
 HEADER             SA6    ORG         ADVANCE RUNNING ADDRESS                             HEADER       706     A     
 HEADER             SA6    BA.PRO                                                          HEADER       707     A     
 HEADER             PL     X1,PXEX     IF NO OBJECT LISTING                                HEADER       708     A     
 HEADER                                                                                    HEADER       709     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 712    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HEADER  
  
 HEADER             SA1    =XSUBHDR+2  PROG NAME                                           HEADER       710          I
          -FEAT126A 
 HEADER             SA1    =XTL.PNAM   PROGRAM UNIT NAME                                   FEAT126A     386     A     
 HEADER             BX6    X1                                                              HEADER       711     A     
 HEADER             SA6    PXEB+1                                                          HEADER       712     A     
 HEADER             PLINE  A6-1                                                            HEADER       713          I
          -FEAT126A 
 HEADER             PLINE  A6-1,2      PRINT * NAME     TRACE.*                            FEAT126A     387     A     
 HEADER             EQ     PXEX        EXIT..                                              HEADER       714     A     
 HEADER                                                                                    HEADER       715     A     
 HEADER    PXEB     CON    4A0                                                             HEADER       716     A     
 HEADER             DIS    1,          NAME GOES HERE                                      HEADER       717     A     
 HEADER             DIS    ,/TRACE./                                                       HEADER       718     A     
 HEADER    STR      SPACE  4                                                               HEADER       719     A     
 HEADER             LIST   D                                                               HEADER       720     A     
 HEADER             END                                                                    HEADER       721     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - HEADER  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          HEADER                     721       615
          FCC0520                     10        10
          FEAT126A                    23        18
          FEAT126C                     2         2
          FCC0775                      3         3
          FCC0813                      1         1
          FEAT155G                    96        84
          CP139FC                      1         1
          FCC1274                      4         4
          FCC1328X                     6         6
          FCC1464X                     1         1
          FCC1495X                     1         0
          FCC1559X                     8         0
          FCC1463X                     8         7
          F162FTNA                    18        16
          F66FCC                       4         4
          FCCA408                     10        10
          FCC2120                     10        10
          FCCA493                      3         3
          FCCA557                     14        14
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PIG     
  
 PIG      *DECK     PIG                                                                    PIG            1     A     
 PIG                IDENT  PIG                                                             PIG            2     A     
 PIG       PIG      SECT   (OBJECT CODE INSTRUCTION GROUP.),1                              PIG            3     A     
 PIG                                                                                       PIG            4     A     
 PIG                SST    A,C,D,L,B                                                       PIG            5     A     
 PIG                NOREF  A,C,D,L,B                                                       PIG            6     A     
 PIG                                                                                       PIG            7     A     
 PIG       B=PIG    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             PIG            8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 713    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PIG     
  
 PIG                                                                                       PIG            9     A     
 PIG                ENTRY  PIK=TAG,PIK=I,PIK=J,PIK=XJP,PIK=BL,PIK=PI,PIK=PS,PIKX           PIG           10     A     
 PIG                ENTRY  WIN,PIG.SW,PIG,DPT                                              PIG           11          I
          -FEAT126BA
 PIG                ENTRY  WIN,PIG,DPT                                                     FEAT126BA      4     A     
 PIG                ENTRY  NADD                                                            FEAT126A     388     A     
 PIG                ENTRY  WININIT,WINX                                                    FCC1608X      18     A     
 PIG                                                                                       PIG           12     A     
 PIG      *         IN FTN                                                                 PIG           13     A     
 PIG                EXT    F.LF,FV.LGO,LOP=O                                               PIG           14     A     
 PIG                                                                                       PIG           15     A     
 PIG      *         IN TABLES                                                              PIG           16     A     
 PIG                EXT    BINIO,BINOUT,ICA,IGS,LINEBUF,ORG,PARCEL,TA.PRO,TT=LF            PIG           17          I
          -FEAT155E 
 PIG                EXT    BINIO,BINOUT,IGS,LINEBUF,ORG,PARCEL,TA.PRO,TT=LF                FEAT155E     136     A     
 PIG                EXT    TA=PRO,TS.STN,TT.LF,TS.SYM,TG.PRO                               PIG           18     A     
 PIG                                                                                       PIG           19     A     
 PIG      *         IN LIST                                                                PIG           20     A     
 PIG                EXT    PIK                                                             PIG           21     A     
 PIG                                                                                       PIG           22     A     
 PIG      *         IN INIT                                                                PIG           23     A     
 PIG                EXT    ADWT,DPTA                                                       PIG           24     A     
 PIG                                                                                       PIG           25     A     
 PIG      *         IN ALLOC                                                               FCC1224        7     A     
 PIG                EXT    ALC.00,ALC.REG,ALC.PIG                                          FCC1224        8     A     
 PIG       PIG      SPACE  4,12                                                            PIG           26     A     
 PIG      **        PIG -  PROCESS INSTRUCTION GROUP.                                      PIG           27     A     
 PIG      *                                                                                PIG           28     A     
 PIG      *         THIS REPRESENTS, ROUGHLY, PASS *ONE-AND-A-HALF*.                       PIG           29     A     
 PIG      *                                                                                PIG           30     A     
 PIG      *         ENTRY  (IGS) _ FWA INST GROUP                                          PIG           31     A     
 PIG      *                (IGE) _ LAST COMPILED INSTRUCTION.                              PIG           32     A     
 PIG      *         EXIT   (IGS) = (IGE) + 1                                               PIG           33     A     
 PIG      *                                                                                PIG           34     A     
 PIG      *         *PIG* PROCESSES EACH INSTRUCTION GROUP (FROM (IGS) TO (IGE))           PIG           35     A     
 PIG      *                WHEN IT IS COMPLETE.                                            PIG           36     A     
 PIG      *         IF AN OBJECT LISTING WAS REQUESTED, THE BINARY INSTRUCTIONS            PIG           37     A     
 PIG      *                IN THE GROUP ARE CONVERTED TO SYMBOLIC AND PRINTED.             PIG           38     A     
 PIG      *                                                                                FCC1224        9     A     
 PIG      *         THROUGHOUT *PIG* PROCESSING  --                                        PIG           39     A     
 PIG      *                (B4) = NUMBER OF INSTRUCTIONS LEFT TO PROCESS.                  PIG           40     A     
 PIG      *                (A5) _ CURRENT *LONG FILE* ENTRY.                               PIG           41     A     
 PIG      *                                                                                FCC1224       10     A     
 PIG      *         REGISTER *A5* IS LOCKED THROUGHOUT *PIG* PROCESSING                    FCC1224       11     A     
 PIG      *         TO ENSURE ANY CALLS TO *ALLOC* (I.E. FROM *DPT*) WILL                  FCC1224       12     A     
 PIG      *         NOT CAUSE A TABLE CRASH TO RENDER (A5) ERRONEOUS.                      FCC1224       13     A     
 PIG      *                                                                                FCC1224       14     A     
 PIG      *         USES   ALL EXCEPT *A0*                                                 PIG           42     A     
 PIG      *         CALLS  ADDWD, COD, PIK, WRITEW                                         PIG           43     A     
 PIG                                                                                       PIG           44     A     
 PIG                                                                                       PIG           45     A     
 PIG       PIG90    SA2    FV.LGO                                                          PIG           46          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 714    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PIG     
  
          -FCC1224
 PIG                SA1    BINOUT                                                          PIG           47          I
          -FCC1224
 PIG       #FID     IFNE   .FID,0                                                          F66FCC       187     A     
 PIG                ENTRY  PIGLINE,PIGLAB                                                  F66FCC       188     A     
 PIG       PIGLINE  DATA   0           LINE NUMBER FOR LINE NUMBER TABLE                   F66FCC       189     A     
 PIG       PIGLAB   DATA   0           STATEMENT LABEL CORRESPONDING TO PIGLINE            F66FCC       190     A     
 PIG       #FID     ENDIF                                                                  F66FCC       191     A     
 PIG                                                                                       F66FCC       192     A     
 PIG                                                                                       F66FCC       193     A     
 PIG       PIG90    SA3    ALC.00      UNLOCK (A5)                                         FCC1224       15     A     
 PIG                SA2    FV.LGO                                                          FCC1224       16     A     
 PIG                BX6    X3                                                              FCC1224       17     A     
 PIG                SA1    BINOUT                                                          FCC1224       18     A     
 PIG                SA6    ALC.REG                                                         FCC1224       19     A     
 PIG                ZR     X2,PIG93    IF BINARY SUPPRESSED                                PIG           48     A     
 PIG                PL     X1,PIG93    IF BINARY UNSUCCESSFUL                              PIG           49     A     
 PIG                SA4    IGS                                                             PIG           50     A     
 PIG                SA3    TT=LF                                                           PIG           51     A     
 PIG                SA2    TT.LF                                                           PIG           52     A     
 PIG                BX6    X3                                                              PIG           53     A     
 PIG                IX0    X2+X4                                                           PIG           54     A     
 PIG                IX3    X3-X4                                                           PIG           55     A     
 PIG                SA6    A4                                                              PIG           56     A     
 PIG                SA2    BINIO                                                           PIG           57     A     
 PIG                ZR     X2,PIG95    IF INTERMEDIATE STILL IN CORE                       PIG           58     A     
 PIG                WRITEW F.LF,X0,X3                                                      PIG           59     A     
 PIG       PIG93    SHRINK TT=LF                                                           PIG           60     A     
 PIG                SA6    IGS                                                             PIG           61     A     
 PIG       PIG95    SA2    LOP=O                                                           PIG           62     A     
 PIG                MI     X2,PIGX     IF OBJECT LISTING BEING PRODUCED                    PIG           63     A     
 PIG                PIA    ORG,ICA     SET ADDRESS FOR SOURCE LINE LISTING, IF NO          PIG           64          I
          -FEAT126A 
 PIG                                     OBJECT LISTING REQUESTED.                         PIG           65          I
          -FEAT126A 
 PIG                SA1    NADD                                                            FEAT126A     389          I
          -FEAT155E 
 PIG                ZR     X1,PIGX     IF NO ADDRESS CHANGE                                FEAT126A     390          I
          -FEAT155E 
 PIG                PIA    ,ICA        CONVERT ADDRESS TO DISPLAY CODE                     FEAT126A     391          I
          -FEAT155E 
 PIG                MX6    0                                                               FEAT126A     392     A     
 PIG                SA6    NADD        RESET NEW ADDRESS                                   FEAT126A     393     A     
 PIG                                                                                       PIG           66     A     
 PIG       PIG      SUBR   0           ENTRY/EXIT...                                       PIG           67     A     
 PIG                                                                                       F66FCC       194     A     
 PIG       #FID     IFNE   .FID,0                                                          F66FCC       195     A     
 PIG                SA4    =XCO.ID                                                         F66FCC       196     A     
 PIG                PL     X4,PIG6     IF FID CODE NOT NECESSARY                           F66FCC       197     A     
 PIG                                                                                       F66FCC       198     A     
 PIG                SA4    PIGLINE     LINE NUMBER                                         F66FCC       199     A     
 PIG                ZR     X4,PIG6     IF 5700 TABLE ENTRY NOT REQUIRED                    F66FCC       200     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 715    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PIG     
  
 PIG                SA1    =1000000B                                                       F66FCC       201     A     
 PIG                IX1    X1-X4                                                           F66FCC       202     A     
 PIG                ZR     X1,PIG6     IF LINE ONE                                         F66FCC       203     A     
 PIG                BX6    0                                                               F66FCC       204     A     
 PIG                =A1    A4-PIGLINE+PIGLAB LABEL NUMBER                                  F66FCC       205     A     
 PIG                LX4    P.LN-P.TRC  POSITION LINE NUMBER                                F66FCC       206     A     
 PIG                =A6    A4-PIGLINE+PIGLINE                                              F66FCC       207     A     
 PIG                =A6    A1-PIGLAB+PIGLAB  CLEAR LABEL                                   F66FCC       208     A     
 PIG                ZR     X1,PIG3     IF LABEL (PREVIOUSLY) ZERO                          F66FCC       209     A     
 PIG                                                                                       F66FCC       210     A     
 PIG                RJ     =XDXB       LABEL NUMBER TO BINARY                              F66FCC       211     A     
 PIG       PIG3     BSS                                                                    F66FCC       212     A     
 PIG                LX6    P.SN        POSITION BINARY LABEL NUMBER                        F66FCC       213     A     
 PIG                SA1    ORG                                                             F66FCC       214     A     
 PIG                BX6    X6+X4                                                           F66FCC       215     A     
 PIG                BX6    X6+X1       LINE NUMBER TABLE ENTRY                             F66FCC       216     A     
 PIG                ADDWD  =XT.LNT     ENTER LINE NUMBER INTO TABLE                        F66FCC       217     A     
 PIG       PIG6     BSS                                                                    F66FCC       218     A     
 PIG       #FID     ENDIF                                                                  F66FCC       219     A     
 PIG                                                                                       F66FCC       220     A     
 PIG                SA4    IGS                                                             PIG           68          I
          -FEAT155C 
 PIG                SA2    WINA        FLUSH *WINA* IF .NE. 0                              FEAT155C       6     A     
 PIG                ZR     X2,PIG10    IF *WINA* .EQ. 0                                    FEAT155C       7     A     
 PIG                MX0    45                                                              FEAT155C       8     A     
 PIG                SX6    B0                                                              FEAT155C       9     A     
 PIG                SB2    PIG10                                                           FEAT155C      10     A     
 PIG                SA6    A2          CLEAR *WINA*                                        FEAT155C      11     A     
 PIG                BX7    -X0+X2                                                          FEAT155C      12     A     
 PIG                EQ     WIN5        OUTPUT INSTRUCTION TO TT.LF                         FEAT155C      13     A     
 PIG                                                                                       FEAT155C      14     A     
 PIG       PIG10    SA4    IGS                                                             FEAT155C      15     A     
 PIG                SA3    TT=LF                                                           PIG           69     A     
 PIG                SA2    TT.LF                                                           PIG           70     A     
 PIG                SA1    ALC.PIG     LOCK (A5)                                           FCC1224       20     A     
 PIG                IX0    X2+X4                                                           PIG           71     A     
 PIG                SA5    X0-1        PRESET (A5) = (FWA - 1) OF INST GROUP               PIG           72     A     
 PIG                IX3    X3-X4       LENGTH OF THIS GROUP = (TT=LF) - (IGS)              PIG           73     A     
 PIG                BX7    X1                                                              FCC1224       21     A     
 PIG                SB4    X3          (B4) = NUMBER OF INSTRUCTION WORDS                  PIG           74     A     
 PIG                SA7    ALC.REG                                                         FCC1224       22     A     
 PIG                                                                                       PIG           75     A     
 PIG                                                                                       PIG           76     A     
 PIG      **        INSTRUCTION PROCESSING LOOP.                                           PIG           77     A     
 PIG      *         IF THERE ARE NO MORE LONG FILE ENTRIES TO BE DONE, EXIT.               PIG           78     A     
 PIG      *         FETCH THE ENTRY AND DECIDE IF A FORCE UPPER IS NEEDED BEFORE           PIG           79     A     
 PIG      *                THIS INSTRUCTION.                                               PIG           80     A     
 PIG                                                                                       PIG           81     A     
 PIG       PIKX     BSS    0           ** RETURN FROM PIK **                               PIG           82     A     
 PIG       PIG20    SA5    A5+B1                                                           PIG           83          I
          -FEAT155C 
 PIG                LE     B4,PIG90    IF END OF INSTRUCTION GROUP                         PIG           84          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 716    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PIG     
  
          -FEAT155C 
 PIG                MX0    L.LI12                                                          PIG           85          I
          -FEAT155C 
 PIG                SA2    PARCEL                                                          PIG           86          I
          -FEAT155C 
 PIG                SB4    B4-B1       DECREMENT INST COUNT                                PIG           87          I
          -FEAT155C 
 PIG       PIG20    SA1    WINA                                                            FEAT155C      16     A     
 PIG                SA2    PARCEL                                                          FEAT155C      17     A     
 PIG                NZ     X1,PIG21    IF PROCESSING PACKED INSTRUCTION                    FEAT155C      18     A     
 PIG                =A5    A5+1        GET NEXT TT.LF ENTRY                                FEAT155C      19     A     
 PIG                MX0    45                                                              FEAT155C      20     A     
 PIG                =B4    B4-1        DECREMENT INSTRUCTION COUNT                         FEAT155C      21     A     
 PIG                BX4    -X0*X5                                                          FEAT155C      22     A     
 PIG                MI     B4,PIG90    IF FINISHED INSTRUCTION GROUP                       FEAT155C      23     A     
 PIG                BX1    X0*X5       REMOVE LOW ORDER BITS                               FEAT155C      24     A     
 PIG                BX3    X4+X0                                                           FEAT155C      25     A     
 PIG                NZ     X3,PIG211   IF LONG INSTRUCTION OR PSEUDO                       FEAT155C      26     A     
 PIG                                                                                       FEAT155C      27     A     
 PIG       PIG21    MX0    15                                                              FEAT155C      28     A     
 PIG                NO                                                                     FEAT155C      29     A     
 PIG                BX5    X0*X1       ISOLATE SHORT INSTRUCTION                           FEAT155C      30     A     
 PIG                BX7    -X0*X1      REMOVE FROM PACKAGE                                 FEAT155C      31     A     
 PIG                NO                                                                     FEAT155C      32     A     
 PIG                LX7    15                                                              FEAT155C      33     A     
 PIG                NO                                                                     FEAT155C      34     A     
 PIG                SA7    A1          STORE PACKAGE REMNANT                               FEAT155C      35     A     
 PIG                                                                                       FEAT155C      36     A     
 PIG       PIG211   MX0    L.LI12                                                          FEAT155C      37     A     
 PIG                BX3    X0*X5                                                           PIG           88     A     
 PIG                SA1    =1H                                                             PIG           89     A     
 PIG                LX3    L.LI12                                                          PIG           90     A     
 PIG                BX6    X1                                                              PIG           91     A     
 PIG                SB3    X3          B3 = GHIJ                                           PIG           92     A     
 PIG                AX3    L.LGH       X3 = GH                                             PIG           93     A     
 PIG                                                                                       PIG           94     A     
 PIG       .76      IFEQ   .CPU,76                                                         PIG           95     A     
 PIG                                                                                       PIG           96     A     
 PIG                SX4    B3                                                              PIG           97     A     
 PIG                AX4    3           X4 = GHI                                            PIG           98     A     
 PIG                SB5    X4-014B                                                         PIG           99     A     
 PIG                MI     B5,PIG22    IF GHI LESS THAN *014*                              PIG          100     A     
 PIG                SB5    X4-016B                                                         PIG          101     A     
 PIG                PL     B5,PIG22    IF GHI GREATER THAN *015*                           PIG          102     A     
 PIG                                                                                       PIG          103     A     
 PIG      *         HERE IF R/W LCM                                                        PIG          104     A     
 PIG                                                                                       PIG          105     A     
 PIG                SA4    X4+PIK=LCM-014B   X4 = INST SKELETON                            PIG          106     A     
 PIG                EQ     PIG23                                                           PIG          107     A     
 PIG                                                                                       PIG          108     A     
 PIG       PIG22    BSS    0                                                               PIG          109     A     
 PIG                                                                                       PIG          110     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 717    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PIG     
  
 PIG       .76      ENDIF                                                                  PIG          111     A     
 PIG                                                                                       PIG          112     A     
 PIG                SA4    X3+PIK=PS   X4 = INST SKELETON                                  PIG          113     A     
 PIG       PIG23    SB2    X2-3                                                            PIG          114     A     
 PIG                LX7    X2          X7 = CURRENT PARCEL COUNT                           PIG          115     A     
 PIG                SA1    ORG                                                             PIG          116     A     
 PIG                ZR     B2,PIG28    IF EMPTY WORD                                       PIG          117     A     
 PIG                MI     X2,PIG25    IF FULL WORD                                        PIG          118     A     
 PIG                PL     X4,PIG30    IF SHORT (15-BIT) INST                              PIG          119     A     
 PIG                ZR     X2,PIG25    IF LESS THAN 30 BITS LEFT                           PIG          120     A     
 PIG                GT     B3,B1,PIG30 IF NOT *CALL* OR *BSS*                              PIG          121     A     
 PIG                                                                                       PIG          122     A     
 PIG                                                                                       PIG          123     A     
 PIG      **        FORCE UPPER BEFORE THE INST.                                           PIG          124     A     
 PIG                                                                                       PIG          125     A     
 PIG       PIG25    SX7    3           INDICATE EMPTY WORD                                 PIG          126     A     
 PIG                SA7    A2                                                              PIG          127     A     
 PIG                SX6    X1+B1                                                           PIG          128     A     
 PIG                SA6    A1                                                              PIG          129     A     
 PIG                SA6    NADD        SAVE NEW ADDRESS                                    FEAT126A     394     A     
 PIG                BX1    X6                                                              PIG          130     A     
 PIG                                                                                       PIG          131     A     
 PIG       PIG28    RJ     =XCOD       CONVERT OCTAL ADDRESS TO DISPLAY                    PIG          132          I
          -FEAT126A 
 PIG       PIG28    PIA                CONVERT ADDRESS TO DISPLAY CODE                     FEAT126A     395     A     
 PIG                                                                                       PIG          133     A     
 PIG                                                                                       PIG          134     A     
 PIG      **        NOW ADVANCE ORG/PARCEL COUNTERS.                                       PIG          135     A     
 PIG      *         ENTRY  (X7) = PARCEL COUNT BEFORE INST                                 PIG          136     A     
 PIG      *                (X6) = ADDRESS COLUMNS OF LISTING.                              PIG          137     A     
 PIG      *                            ADDRESS IF AT TOP OF WORD, ELSE BLANKS.             PIG          138     A     
 PIG      *                (X5) = LONG FILE ENTRY                                          PIG          139     A     
 PIG      *                (X4) = SKELETON TABLE ENTRY                                     PIG          140     A     
 PIG      *                (X3) = *GH* PORTION OF INST.                                    PIG          141     A     
 PIG      *                (B3) = *GHIJ* PART OF INST                                      PIG          142     A     
 PIG                                                                                       PIG          143     A     
 PIG       PIG30    SA6    PIG=IG                                                          PIG          144          I
          -FEAT126A 
 PIG       PIG30    SA6    LINEBUF                                                         FEAT126A     396     A     
 PIG                SB6    -1                                                              FEAT155C      38     A     
 PIG                PL     X4,PIG40    IF SHORT INST                                       PIG          145     A     
 PIG                SB6    B6-1                                                            FEAT155C      39     A     
 PIG                NZ     X3,PIG50    IF NO PSEUDO INST                                   PIG          146          I
          -FEAT155C 
 PIG                NZ     X3,PIG40    IF NOT PSEUDO INSTRUCTION                           FEAT155C      40     A     
 PIG                SA4    ORG                                                             PIG          147     A     
 PIG                NZ     B3,PIG35    IF NOT *BSS*                                        PIG          148     A     
 PIG                                                                                       PIG          149     A     
 PIG                                                                                       PIG          150     A     
 PIG      **        FOR *BSS*, MAKE TABLE ENTRY TO DEFINE THE SYMBOL.                      PIG          151     A     
 PIG                                                                                       PIG          152     A     
 PIG                MX0    -L.LTAG                                                         PIG          153     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 718    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PIG     
  
 PIG                SX3    X5                                                              PIG          154     A     
 PIG                LX5    -P.LTAG                                                         PIG          155     A     
 PIG                BX6    -X0*X5      ISOLATE NR OF WORDS TO RESERVE                      PIG          156     A     
 PIG                IX6    X6+X4                                                           PIG          157     A     
 PIG                SA6    A4          ADVANCE ORIGIN COUNTER                              PIG          158     A     
 PIG                SA6    NADD        SAVE NEW ADDRESS                                    FEAT126A     397     A     
 PIG                LX5    P.LTAG      RESTORE X5                                          PIG          159     A     
 PIG                SB2    X3-C.VAR                                                        PIG          160     A     
 PIG                MI     B2,PIG70    IF NO TAG (SIMPLE FORCE UPPER)                      PIG          161     A     
 PIG                SB3    X3-C.PRO                                                        PIG          162     A     
 PIG                SB5    X3-C.STAT                                                       PIG          163     A     
 PIG                PL     B5,PIG32    IF NOT VARIABLE TAG                                 PIG          164     A     
 PIG                SA2    TS.SYM                                                          PIG          165     A     
 PIG                LX4    P.PNT                                                           PIG          166     A     
 PIG                SA3    X2+B2                                                           PIG          167     A     
 PIG                BX6    X4+X3       MERGE ADDRESS INTO POINTER FIELD OF TT.NAM          PIG          168     A     
 PIG                SA6    A3                                                              PIG          169     A     
 PIG                EQ     PIG70                                                           PIG          170     A     
 PIG                                                                                       PIG          171     A     
 PIG       PIG32    PL     B3,PIG33    IF NO STATEMENT TAG                                 PIG          172     A     
 PIG                SA2    TS.STN                                                          PIG          173     A     
 PIG                LX4    P.SNAD                                                          PIG          174     A     
 PIG                SA3    X2+B5                                                           PIG          175     A     
 PIG                BX6    X3+X4       MERGE ADDRESS WITH TT.STAT ENTRY                    PIG          176     A     
 PIG                SA6    A3                                                              PIG          177     A     
 PIG                EQ     PIG70                                                           PIG          178     A     
 PIG                                                                                       PIG          179     A     
 PIG       PIG33    LX3    P.TAG                                                           PIG          180     A     
 PIG                BX6    X3+X4                                                           PIG          181     A     
 PIG                RJ     DPT         DEFINE PROGRAM TAG                                  PIG          182     A     
 PIG                EQ     PIG70                                                           PIG          183     A     
 PIG                                                                                       PIG          184     A     
 PIG                                                                                       PIG          185     A     
 PIG      **        FORCE UPPER AFTER FOR ALL PSEUDOS EXCEPT *BSS*.                        PIG          186     A     
 PIG                                                                                       PIG          187     A     
 PIG       PIG35    SX7    3                                                               PIG          188     A     
 PIG                SX6    X4+B1                                                           PIG          189     A     
 PIG                SA7    PARCEL      INDICATE EMPTY WORD                                 PIG          190     A     
 PIG                SA6    A4          ADVANCE ORIGIN COUNTER                              PIG          191     A     
 PIG                SA6    NADD        SAVE NEW ADDRESS                                    FEAT126A     398     A     
 PIG                EQ     PIG70                                                           PIG          192     A     
 PIG                                                                                       PIG          193     A     
 PIG                                                                                       PIG          194          I
          -FEAT155C 
 PIG      **        SHORT INSTRUCTION -- DECREMENT PARCEL COUNT BY ONE.                    PIG          195          I
          -FEAT155C 
 PIG                                                                                       PIG          196          I
          -FEAT155C 
 PIG       PIG40    SX7    X7-1        ADVANCE PARCEL COUNT                                PIG          197          I
          -FEAT155C 
 PIG                SA7    PARCEL                                                          PIG          198          I
          -FEAT155C 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 719    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PIG     
  
 PIG                IFBIT  X4,-COPY,PIG70                                                  PIG          199          I
          -FEAT155C 
 PIG                                                                                       PIG          200          I
          -FEAT155C 
 PIG                                                                                       PIG          201          I
          -FEAT155C 
 PIG      **        2**COPY IS SET -- THIS INST MUST HAVE THE *J* DESIGNATOR               PIG          202          I
          -FEAT155C 
 PIG      *                COPIED INTO THE *K* PORTION.  THE 10, 14, AND 47                PIG          203          I
          -FEAT155C 
 PIG      *                INSTRUCTIONS HAVE THIS BIT SET.  NOTE THAT THE 14 AND           PIG          204          I
          -FEAT155C 
 PIG      *                47 ARE GENERATED BY OBJECT CODE PROCESSORS WITH *J* AND         PIG          205          I
          -FEAT155C 
 PIG      *                *K* OPPOSITE OF THE WAY THEY SHOULD BE -- THIS IS DONE          PIG          206          I
          -FEAT155C 
 PIG      *                TO MAKE *PIG* PROCESSING A LITTLE MORE EFFICIENT.               PIG          207          I
          -FEAT155C 
 PIG                                                                                       PIG          208          I
          -FEAT155C 
 PIG                MX0    -L.LJ                                                           PIG          209          I
          -FEAT155C 
 PIG                LX0    P.LJ                                                            PIG          210          I
          -FEAT155C 
 PIG                BX1    -X0*X5                                                          PIG          211          I
          -FEAT155C 
 PIG                LX1    P.LK-P.LJ                                                       PIG          212          I
          -FEAT155C 
 PIG                BX6    X5+X1                                                           PIG          213          I
          -FEAT155C 
 PIG                SA6    A5                                                              PIG          214          I
          -FEAT155C 
 PIG                BX5    X5+X1                                                           PIG          215          I
          -FEAT155C 
 PIG                EQ     PIG70                                                           PIG          216          I
          -FEAT155C 
 PIG                                                                                       PIG          217          I
          -FEAT155C 
 PIG                                                                                       PIG          218          I
          -FEAT155C 
 PIG      **        DECREMENT PARCEL COUNT BY 2 FOR LONG INST.                             PIG          219          I
          -FEAT155C 
 PIG                                                                                       PIG          220          I
          -FEAT155C 
 PIG       PIG50    SX7    X7-2                                                            PIG          221          I
          -FEAT155C 
 PIG                SA7    PARCEL                                                          PIG          222          I
          -FEAT155C 
 PIG      *         EQ     PIG70                                                           PIG          223          I
          -FEAT155C 
 PIG                                                                                       PIG          224          I
          -FEAT155C 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 720    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PIG     
  
 PIG       PIG40    SX7    X7+B6                                                           FEAT155C      41     A     
 PIG                SA7    PARCEL      ADVANCE PARCEL COUNT                                FEAT155C      42     A     
 PIG                                                                                       PIG          225     A     
 PIG      **        PRINT THE INSTRUCTION, IF DESIRED.                                     PIG          226     A     
 PIG                                                                                       PIG          227     A     
 PIG       PIG70    BSS    0                                                               PIG          228          I
          -FEAT126BA
 PIG       PIG.SW   EQ     PIG20       FLIP-FLOP FOR OBJECT LISTING                        PIG          229          I
          -FEAT126BA
 PIG       PIG70    SA1    =XLOP=O                                                         FEAT126BA      5     A     
 PIG                ZR     X1,PIG20    IF OBJECT LIST NOT SELECTED  (OL.EQ.0)              FEAT126BA      6     A     
 PIG                EQ     PIK         PRINT INSTRUCTION KONVERSION                        FEAT126BA      7     A     
 PIG       -        EQ     PIK                                                             PIG          230          I
          -FEAT155G 
 PIG                                                                                       FEAT126A     399     A     
 PIG       NADD     DATA   0           NEW CODE ADDRESS IF .NZ.                            FEAT126A     400     A     
 PIG       DPT      SPACE  4,8                                                             PIG          231     A     
 PIG      **        DPT -  DEFINE PROGRAM TAG.                                             PIG          232     A     
 PIG      *                                                                                PIG          233     A     
 PIG      *         ENTRY  (X6) = ENTRY FOR *TA.PRO*.                                      PIG          234     A     
 PIG      *                                                                                PIG          235     A     
 PIG      *         USES   A1,A2,A3,A6  X0  B2,B7                                          PIG          236     A     
 PIG      *         CALLS  ALLOC                                                           PIG          237     A     
 PIG                                                                                       PIG          238     A     
 PIG                                                                                       PIG          239     A     
 PIG       DPT      SUBR               ENTRY/EXIT...                                       PIG          240     A     
 PIG                SA1    TG.PRO                                                          PIG          241     A     
 PIG                SA2    TA=PRO                                                          PIG          242     A     
 PIG                SA6    DPTA        SAVE (X6)                                           PIG          243     A     
 PIG                SX3    X1-C.PRO+1                                                      PIG          244     A     
 PIG                IX0    X3-X2                                                           PIG          245     A     
 PIG                ALLOC  TA.PRO,X0   INSURE ENUF ROOM                                    PIG          246     A     
 PIG                SA2    DPTA                                                            PIG          247     A     
 PIG                BX6    X2                                                              PIG          248     A     
 PIG                LX2    -P.PWF                                                          PIG          249     A     
 PIG                MX0    -L.PWF                                                          PIG          250     A     
 PIG                BX2    -X0*X2      ISOLATE TAG ORDINAL                                 PIG          251     A     
 PIG                IX0    X2+X1                                                           PIG          252     A     
 PIG                SA6    X0                                                              PIG          253     A     
 PIG                EQ     EXIT.                                                           PIG          254     A     
 PIG                                                                                       PIG          255     A     
 PIG       INST     EJECT                                                                  PIG          256     A     
 PIG      **        INST - MACRO TO GENERATE INSTRUCTION SKELETONS.                        PIG          257     A     
 PIG      *         GENERATES TABLE OF INSTRUCTION SKELETONS USED BY *PIG* TO              PIG          258     A     
 PIG      *                CONVERT INSTRUCTIONS TO HUMAN-READABLE FORM FOR THE             PIG          259     A     
 PIG      *                OBJECT CODE LISTING.                                            PIG          260     A     
 PIG      *                                                                                PIG          261     A     
 PIG      *         INST   (KEY),BJMP,FORCE,IJJ                                            PIG          262     A     
 PIG      *                                                                                PIG          263     A     
 PIG      *         *KEY*  = INSTRUCTION DESCRIPTOR.  EACH CHARACTER OF THE *KEY*          PIG          264     A     
 PIG      *                  HAS MEANING AS FOLLOWS --                                     PIG          265     A     
 PIG      *                            I   I-PORTION OF INSTRUCTION                        PIG          266     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 721    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PIG     
  
 PIG      *                            J   J-PORTION OF INSTRUCTION                        PIG          267     A     
 PIG      *                            K   K-PORTION OF INSTRUCTION (3 BITS ONLY)          PIG          268     A     
 PIG      *                            Q   18-BIT *K* ADDRESS FIELD (MUST BE LAST)         PIG          269     A     
 PIG      *                            C   OUTPUT A *B* IF THE NEXT REGISTER IS            PIG          270     A     
 PIG      *                                            NOT A ZERO,                         PIG          271     A     
 PIG      *                                            ELSE, SKIP THE NEXT 2 ITEMS         PIG          272     A     
 PIG      *                            + - * / A B X , AND BLANK ALL STAND FOR             PIG          273     A     
 PIG      *                                            THEMSELVES.                         PIG          274     A     
 PIG      *         *BJMP* = NON-EMPTY IF THIS A *B-REGISTER* JUMP INSTRUCTION.            PIG          275     A     
 PIG      *                            (04 THRU 07 INSTRUCTION.)                           PIG          276     A     
 PIG      *         *FORCE*= THIS INSTRUCTION FORCES THE NEXT INSTRUCTION UPPER.           PIG          277     A     
 PIG      *         *COPY* = COPY *J* INTO *K*.                                            PIG          278     A     
 PIG                                                                                       PIG          279     A     
 PIG       COPY     DEFINE 2*CHAR      SAYS COPY *J* INTO *K*                              PIG          280     A     
 PIG                                                                                       PIG          281     A     
 PIG                                                                                       PIG          282     A     
 PIG       INST     MACRO  KEY,BJMP,FORCE,IJJ                                              PIG          283     A     
 PIG       A        MICRO  3,1,=KEY=                                                       PIG          284     A     
 PIG       B        MICRO  5,,=KEY=                                                        PIG          285     A     
 PIG       B        MICRO  1,,="A""B"=                                                     PIG          286     A     
 PIG       C        MICCNT B                                                               PIG          287     A     
 PIG       D        SET    0                                                               PIG          288     A     
 PIG       L        SET    0                                                               PIG          289     A     
 PIG       A        MICRO  C+3,1,=KEY=                                                     PIG          290     A     
 PIG                IFC    EQ,="A"=Q=,1                                                    PIG          291     A     
 PIG       L        SET    L+4                                                             PIG          292     A     
 PIG                IFC    NE,,BJMP,,,1                                                    PIG          293     A     
 PIG       L        SET    L+2                                                             PIG          294     A     
 PIG                IFC    NE,,FORCE,,,1                                                   PIG          295     A     
 PIG       L        SET    L+1                                                             PIG          296     A     
 PIG                VFD    3/L                                                             PIG          297     A     
 PIG      .1        DUP    C                                                               PIG          298     A     
 PIG       D        SET    D+1                                                             PIG          299     A     
 PIG       A        MICRO  D,1,="B"=                                                       PIG          300     A     
 PIG       A        MICRO  2*1R"A"-1,2,/101112-D-E-F-G-H010203-L-M-N-O-P04-R-S-T-U         PIG          301     A     
 PIG      ,-V-W13-Y-Z-0-1-2-3-4-5-6-7-8-905060708-(-)-$-=1409/                             PIG          302     A     
 PIG                VFD    4/"A"                                                           PIG          303     A     
 PIG      .1        ENDD                                                                   PIG          304     A     
 PIG                IFLE   $,2*6-1+4,1                                                     PIG          305     A     
 PIG       8        ERR    INST - DESCRIPTOR (KEY) IS TOO LONG                             PIG          306     A     
 PIG                POS    P.COPY+1                                                        PIG          307     A     
 PIG       A        MICRO  1,2, KEY                                                        PIG          308     A     
 PIG                VFD    1/IJJ,12/2R"A"                                                  PIG          309     A     
 PIG       INST     ENDM                                                                   PIG          310     A     
 PIG       PIK=PS   SPACE  4,8                                                             PIG          311     A     
 PIG      **        PIK=PS - INSTRUCTION SKELETON TABLES FOR *PIG*                         PIG          312     A     
 PIG                                                                                       PIG          313     A     
 PIG                                                                                       PIG          314     A     
 PIG       PIK=PS   INST   (PS  Q)               00    (FAKE)                              PIG          315     A     
 PIG                INST   (RJ  Q),,1            01                                        PIG          316     A     
 PIG                INST   (JP  CI+Q),,1         02                                        PIG          317     A     
 PIG                INST   (JXI XJ,Q)            03I  (FAKE)                               PIG          318     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 722    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PIG     
  
 PIG       PIK=EQ   INST   (EQ  CI,CJ,Q),1       04                                        PIG          319     A     
 PIG                INST   (NE  CI,CJ,Q),1       05                                        PIG          320     A     
 PIG                INST   (GE  CI,CJ,Q),1       06                                        PIG          321     A     
 PIG                INST   (LT  CI,CJ,Q),1       07                                        PIG          322     A     
 PIG                                                                                       PIG          323     A     
 PIG                INST   (BXI XJ),,,1          10                                        PIG          324     A     
 PIG                INST   (BXI XJ*XK)           11                                        PIG          325     A     
 PIG                INST   (BXI XJ+XK)           12                                        PIG          326     A     
 PIG                INST   (BXI XJ-XK)           13                                        PIG          327     A     
 PIG                INST   (BXI -XJ),,,1         14                                        PIG          328     A     
 PIG                INST   (BXI -XK*XJ)          15                                        PIG          329     A     
 PIG                INST   (BXI -XK+XJ)          16                                        PIG          330     A     
 PIG                INST   (BXI -XJ-XK)          17                                        PIG          331     A     
 PIG                                                                                       PIG          332     A     
 PIG                INST   (LXI JKB)             20                                        PIG          333     A     
 PIG                INST   (AXI JKB)             21                                        PIG          334     A     
 PIG                INST   (LXI CJ,XK)           22                                        PIG          335     A     
 PIG                INST   (AXI CJ,XK)           23                                        PIG          336     A     
 PIG                INST   (NXI CJ,XK)           24                                        PIG          337     A     
 PIG                INST   (ZXI CJ,XK)           25                                        PIG          338     A     
 PIG                INST   (UXI CJ,XK)           26                                        PIG          339     A     
 PIG                INST   (PXI CJ,XK)           27                                        PIG          340     A     
 PIG                                                                                       PIG          341     A     
 PIG                INST   (FXI XJ+XK)           30                                        PIG          342     A     
 PIG                INST   (FXI XJ-XK)           31                                        PIG          343     A     
 PIG                INST   (DXI XJ+XK)           32                                        PIG          344     A     
 PIG                INST   (DXI XJ-XK)           33                                        PIG          345     A     
 PIG                INST   (RXI XJ+XK)           34                                        PIG          346     A     
 PIG                INST   (RXI XJ-XK)           35                                        PIG          347     A     
 PIG                INST   (IXI XJ+XK)           36                                        PIG          348     A     
 PIG                INST   (IXI XJ-XK)           37                                        PIG          349     A     
 PIG                                                                                       PIG          350     A     
 PIG                INST   (FXI XJ*XK)           40                                        PIG          351     A     
 PIG                INST   (RXI XJ*XK)           41                                        PIG          352     A     
 PIG                INST   (DXI XJ*XK)           42                                        PIG          353     A     
 PIG                INST   (MXI JKB)             43                                        PIG          354     A     
 PIG                INST   (FXI XJ/XK)           44                                        PIG          355     A     
 PIG                INST   (RXI XJ/XK)           45                                        PIG          356     A     
 PIG                INST   (NO  IJKB)            46                                        PIG          357     A     
 PIG                INST   (CXI XK),,,1          47                                        PIG          358     A     
 PIG                                                                                       PIG          359     A     
 PIG                INST   (SAI AJ+Q)            50                                        PIG          360     A     
 PIG                INST   (SAI CJ+Q)            51                                        PIG          361     A     
 PIG                INST   (SAI XJ+Q)            52                                        PIG          362     A     
 PIG                INST   (SAI CK+XJ)           53                                        PIG          363     A     
 PIG                INST   (SAI CK+AJ)           54                                        PIG          364     A     
 PIG                INST   (SAI AJ-BK)           55                                        PIG          365     A     
 PIG                INST   (SAI CK+BJ)           56                                        PIG          366     A     
 PIG                INST   (SAI -BK+BJ)          57                                        PIG          367     A     
 PIG                                                                                       PIG          368     A     
 PIG                INST   (SBI AJ+Q)            60                                        PIG          369     A     
 PIG                INST   (SBI CJ+Q)            61                                        PIG          370     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 723    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PIG     
  
 PIG                INST   (SBI XJ+Q)            62                                        PIG          371     A     
 PIG                INST   (SBI CK+XJ)           63                                        PIG          372     A     
 PIG                INST   (SBI CK+AJ)           64                                        PIG          373     A     
 PIG                INST   (SBI AJ-BK)           65                                        PIG          374     A     
 PIG                INST   (SBI CK+BJ)           66                                        PIG          375     A     
 PIG                INST   (SBI -BK+BJ)          67                                        PIG          376     A     
 PIG                                                                                       PIG          377     A     
 PIG                INST   (SXI AJ+Q)            70                                        PIG          378     A     
 PIG                INST   (SXI CJ+Q)            71                                        PIG          379     A     
 PIG                INST   (SXI XJ+Q)            72                                        PIG          380     A     
 PIG                INST   (SXI CK+XJ)           73                                        PIG          381     A     
 PIG                INST   (SXI CK+AJ)           74                                        PIG          382     A     
 PIG                INST   (SXI AJ-BK)           75                                        PIG          383     A     
 PIG                INST   (SXI CK+BJ)           76                                        PIG          384     A     
 PIG                INST   (SXI -BK+BJ)          77                                        PIG          385     A     
 PIG                                                                                       PIG          386     A     
 PIG       .76      IFEQ   .CPU,76                                                         PIG          387     A     
 PIG                                                                                       PIG          388     A     
 PIG                ENTRY  PIK=LCM                                                         PIG          389     A     
 PIG       PIK=LCM  INST   (RXJ XK)              014                                       PIG          390     A     
 PIG                INST   (WXJ XK)              015                                       PIG          391     A     
 PIG                                                                                       PIG          392     A     
 PIG       .76      ENDIF                                                                  PIG          393     A     
 PIG                                                                                       PIG          394     A     
 PIG       PIK=XJP  INST   (ZR  XJ,Q)            030                                       PIG          395     A     
 PIG                INST   (NZ  XJ,Q)            031                                       PIG          396     A     
 PIG                INST   (PL  XJ,Q)            032                                       PIG          397     A     
 PIG                INST   (MI  XJ,Q)            033                                       PIG          398     A     
 PIG                INST   (IR  XJ,Q)            034                                       PIG          399     A     
 PIG                INST   (OR  XJ,Q)            035                                       PIG          400     A     
 PIG                INST   (DF  XJ,Q)            036                                       PIG          401     A     
 PIG                INST   (ID  XJ,Q)            037                                       PIG          402     A     
 PIG                                                                                       PIG          403     A     
 PIG       PIK=PI   BSS    0           PSEUDO-INST SKELETON TABLE                          PIG          404     A     
 PIG                INST   (RJK Q),,FORCE        0001                                      PIG          405     A     
 PIG                INST   (RJ  Q),,FORCE        0002                                      PIG          406     A     
 PIG                INST   (JP  CI+Q),,FORCE     0003                                      PIG          407     A     
 PIG                INST   (EQ  Q),,FORCE        0004                                      PIG          408     A     
 PIG                                                                                       PIG          409     A     
 PIG                                                                                       PIG          410     A     
 PIG       PIG=IG   EQU    LINEBUF     DPC INSTRUCTION PRINTLINE FORMED HERE               PIG          411          I
          -FEAT126A 
 PIG                                                                                       PIG          412          I
          -FEAT126A 
 PIG                                                                                       PIG          413          I
          -FEAT126A 
 PIG       PIK=TAG  BSSZ   3           TEMP HOLDING FOR (DPC) TAG AND OFFSET               PIG          414     A     
 PIG                                                                                       PIG          415     A     
 PIG       PIK=BL   CON    1L +3R      THE WORD BEFORE *PIK=I* MUST BE NEGATIVE            PIG          416     A     
 PIG       PIK=I    DATA   0           *I* REGISTER OF INSTRUCTION                         PIG          417     A     
 PIG       PIK=J    DATA   0           *J* REGISTER OF INSTRUCTION                         PIG          418     A     
 PIG                DATA   0           *K* REGISTER OF INSTRUCTION                         PIG          419     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 724    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PIG     
  
 PIG                DATA   -1          FLAG TO INDICATE 18-BIT *K* PORTION                 PIG          420     A     
 PIG                DATA   1R+         PLUS                                                PIG          421     A     
 PIG                DATA   1R-         MINUS                                               PIG          422     A     
 PIG                DATA   1R*         STAR                                                PIG          423     A     
 PIG                DATA   1R/         SLASH                                               PIG          424     A     
 PIG                DATA   1R,         COMMA                                               PIG          425     A     
 PIG                DATA   1RA                                                             PIG          426     A     
 PIG                DATA   1RB                                                             PIG          427     A     
 PIG                DATA   -0          FLAG TO INDICATE CONDITIONAL *B* REGISTER           PIG          428     A     
 PIG                DATA   1RX                                                             PIG          429     A     
 PIG                DATA   1R          BLANK                                               PIG          430     A     
 PIG                                                                                       PIG          431     A     
 PIG                POPMAC INST                                                            PIG          432     A     
 PIG       WIN      SPACE  4,8                                                             PIG          433     A     
 PIG      **        WIN -  WRITE INTERMEDIATE FILE.                                        PIG          434     A     
 PIG      *                                                                                PIG          435     A     
 PIG      *         ENTRY  (X7) = INSTRUCTION TO TRANSFER                                  PIG          436     A     
 PIG      *                (B2) = EXIT ADDRESS.                                            PIG          437     A     
 PIG      *                                                                                PIG          438     A     
 PIG      *         EXIT   INSTRUCTION TRANSFERRED TO INTERMEDIATE FILE.                   PIG          439     A     
 PIG      *                (X7) = PRESERVED.                                               PIG          440          I
          -FEAT155C 
 PIG      *                (X7) = DESTROYED.                                               FEAT155C      43     A     
 PIG      *                                                                                PIG          441     A     
 PIG      *         USES   A1,A2,A3  B2,B7  X0,X1,X2,X6,X7                                 PIG          442     A     
 PIG      *                (ADWT - ADWT+1)                                                 PIG          443     A     
 PIG      *                PRESERVES  A0,A4,A5  B3,B4,B5,B6  X3,X4,X5                      PIG          444     A     
 PIG      *                ------ C A N  N E V E R  D E S T R O Y ------                   PIG          445     A     
 PIG      *                         A0,A4,A5  X3,X4,X5  B4,B5,B6                           PIG          446     A     
 PIG                                                                                       PIG          447     A     
 PIG                                                                                       PIG          448     A     
 PIG       WIN      BX6    X3          ENTRY...                                            PIG          449          I
          -FEAT155C 
 PIG                SA7    ADWT        SAVE ENTRY        ADWT+0                            PIG          450          I
          -FEAT155C 
 PIG                =A6    A7+1        SAVE (X3)             +1                            PIG          451          I
          -FEAT155C 
 PIG                                                                                       PIG          452          I
          -FEAT155C 
 PIG      *         DO NOT COMPILE TRANSMIT OF REGISTER TO SELF                            PIG          453          I
          -FEAT155C 
 PIG                                                                                       PIG          454          I
          -FEAT155C 
 PIG                MX1    1                                                               PIG          455          I
          -FEAT155C 
 PIG                LX1    58          FORM *10* OPCODE                                    PIG          456          I
          -FEAT155C 
 PIG                MX0    L.LGH                                                           PIG          457          I
          -FEAT155C 
 PIG                BX2    X0*X7                                                           PIG          458          I
          -FEAT155C 
 PIG                IX1    X1-X2                                                           PIG          459          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 725    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PIG     
  
          -FEAT155C 
 PIG                NZ     X1,WIN5     IF NOT *10* OPCODE                                  PIG          460          I
          -FEAT155C 
 PIG                MX0    -L.LI                                                           PIG          461          I
          -FEAT155C 
 PIG                LX0    P.LI                                                            PIG          462          I
          -FEAT155C 
 PIG                MX1    -L.LJ                                                           PIG          463          I
          -FEAT155C 
 PIG                LX1    P.LJ                                                            PIG          464          I
          -FEAT155C 
 PIG                BX0    -X0*X7      *I* REGISTER                                        PIG          465          I
          -FEAT155C 
 PIG                BX1    -X1*X7      *J* REGISTER                                        PIG          466          I
          -FEAT155C 
 PIG                LX0    P.LJ-P.LI                                                       PIG          467          I
          -FEAT155C 
 PIG                IX2    X0-X1                                                           PIG          468          I
          -FEAT155C 
 PIG                NZ     X2,WIN5     IF *I* AND *J* REGISTERS DIFFER                     PIG          469          I
          -FEAT155C 
 PIG                JP     B2          EXIT..                                              PIG          470          I
          -FEAT155C 
 PIG       WIN5     SA1    TT.LF                                                           PIG          471          I
          -FEAT155C 
 PIG                =X0    1                                                               PIG          472          I
          -FEAT155C 
 PIG                ALLOC  A1,X0                                                           PIG          473          I
          -FEAT155C 
 PIG                SA1    ADWT                                                            PIG          474          I
          -FEAT155C 
 PIG                =A3    A1+1        RESTORE (X3)                                        PIG          475          I
          -FEAT155C 
 PIG                BX7    X1                                                              PIG          476          I
          -FEAT155C 
 PIG                =A7    B7-1        ENTER TABLE                                         PIG          477          I
          -FEAT155C 
 PIG                JP     B2          EXIT..                                              PIG          478          I
          -FEAT155C 
 PIG       WINA     BSSZ   1           STORAGE FOR PACKED 15 BIT INSTRUCTIONS              FEAT155C      44     A     
 PIG       WININIT  BSS    1           CONTAINS (WIN) OR (WINX) -- STORED OVER WIN         FCC1608X      19     A     
 PIG                                                                                       FEAT155C      45     A     
 PIG       WIN      MX0    L.LGH                                                           FEAT155C      46          I
          -FCC1608X 
 PIG      *                            *****                                               FCC1608X      20     A     
 PIG       WIN      BSS                *  REPLACED BY WININIT                              FCC1608X      21     A     
 PIG      *                            *****                                               FCC1608X      22     A     
 PIG                MX0    L.LGH                                                           FCC1608X      23     A     
 PIG                BX1    X0*X7       GET GH FIELD                                        FEAT155C      47     A     
 PIG                LX1    L.LGH       INTO LOW ORDER BITS                                 FEAT155C      48     A     
 PIG                                                                                       FEAT155C      49     A     
 PIG       .76      IFEQ   .CPU,76                                                         FEAT155C      50     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 726    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PIG     
  
 PIG                                                                                       FEAT155C      51     A     
 PIG                BX2    X7                                                              FEAT155C      52     A     
 PIG                AX2    51                                                              FEAT155C      53     A     
 PIG                SB3    X2-14B                                                          FEAT155C      54     A     
 PIG                MI     B3,WIN1     IF NOT *014* (READ LSM)                             FEAT155C      55     A     
 PIG                NE     B1,B3,WIN1  IF NOT *015* (WRITE LCM)                            FEAT155C      56     A     
 PIG                SX1    B3+PIK=LCM-PIK=PS                                               FEAT155C      57     A     
 PIG                                                                                       FEAT155C      58     A     
 PIG       WIN1     BSS    0                                                               FEAT155C      59     A     
 PIG                                                                                       FEAT155C      60     A     
 PIG       .76      ENDIF                                                                  FEAT155C      61     A     
 PIG                                                                                       FEAT155C      62     A     
 PIG                SA1    X1+PIK=PS   GET INSTRUCTION SKELETON                            FEAT155C      63     A     
 PIG                SA2    WINA                                                            FEAT155C      64     A     
 PIG                PL     X1,WIN2     IF SHORT INSTRUCTION                                FEAT155C      65     A     
 PIG                                                                                       FEAT155C      66     A     
 PIG      *         IT IS EITHER A LONG INSTRUCTION OR A PSEUDO, OUTPUT                    FEAT155C      67     A     
 PIG      *         ANY PACKED INSTRUCTIONS FIRST AND THEN THIS ONE.                       FEAT155C      68     A     
 PIG                                                                                       FEAT155C      69     A     
 PIG                ZR     X2,WIN5     IF NO PACKED 15 BIT INSTRUCTIONS                    FEAT155C      70     A     
 PIG                =X0    2                                                               FEAT155C      71     A     
 PIG                SA1    TT.LF                                                           FEAT155C      72     A     
 PIG                BX6    X3                                                              FEAT155C      73     A     
 PIG                SA7    ADWT        SAVE LONG INSTRUCTION                               FEAT155C      74     A     
 PIG                =A6    A7+1        SAVE (X3)                                           FEAT155C      75     A     
 PIG                ALLOC  A1,X0       EXPAND TT.LF BY 2 WORDS                             FEAT155C      76     A     
 PIG                SA1    ADWT                                                            FEAT155C      77     A     
 PIG                SX0    77777B                                                          FEAT155C      78     A     
 PIG                =A3    A1+1        RESTORE (X3)                                        FEAT155C      79     A     
 PIG                MX7    0                                                               FEAT155C      80     A     
 PIG                SA2    WINA                                                            FEAT155C      81     A     
 PIG                SA7    A2          CLEAR WINA                                          FEAT155C      82     A     
 PIG                BX6    X1                                                              FEAT155C      83     A     
 PIG                BX7    X2+X0                                                           FEAT155C      84     A     
 PIG                =A6    B7-1        OUTPUT LONG INSTRUCTION                             FEAT155C      85     A     
 PIG                =A7    A6-1        OUTPUT PACKED INSTRUCTION                           FEAT155C      86     A     
 PIG                JP     B2          EXIT..                                              FEAT155C      87     A     
 PIG                                                                                       FEAT155C      88     A     
 PIG      *         15 BIT INSTRUCTION. FIRST WE MUST CHECK IF IT IS A TRANSMIT            FEAT155C      89     A     
 PIG      *         TO ITSELF, THEN IF IT IS A *10*,*14* OR *47* INSTRUCTION               FEAT155C      90     A     
 PIG      *         WE MUST COPY THE *J* PART INTO THE *K* PART, THEN PACK                 FEAT155C      91     A     
 PIG      *         IT. IF PACKING IT COMPLETES THE PACKAGE WE OUTPUT IT TO                FEAT155C      92     A     
 PIG      *         TT.LF AND CLEAR *WINA*.                                                FEAT155C      93     A     
 PIG                                                                                       FEAT155C      94     A     
 PIG       WIN2     IFBIT  X1,-COPY,WIN4     IF NOT *10*,*14* OR *47* INSTRUCTION          FEAT155C      95     A     
 PIG                MX1    1                                                               FEAT155C      96     A     
 PIG                MX0    L.LGH                                                           FEAT155C      97     A     
 PIG                LX1    58          FORM *10* OPCODE                                    FEAT155C      98     A     
 PIG                BX6    X0*X7                                                           FEAT155C      99     A     
 PIG                IX1    X1-X6                                                           FEAT155C     100     A     
 PIG                NZ     X1,WIN3     IF NOT *10* OPCODE                                  FEAT155C     101     A     
 PIG                MX0    -L.LI                                                           FEAT155C     102     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 727    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PIG     
  
 PIG                MX1    -L.LJ                                                           FEAT155C     103     A     
 PIG                LX0    P.LI                                                            FEAT155C     104     A     
 PIG                LX1    P.LJ                                                            FEAT155C     105     A     
 PIG                BX0    -X0*X7      *I* REGISTER                                        FEAT155C     106     A     
 PIG                BX1    -X1*X7      *J* REGISTER                                        FEAT155C     107     A     
 PIG                LX0    P.LJ-P.LI                                                       FEAT155C     108     A     
 PIG                IX6    X0-X1                                                           FEAT155C     109     A     
 PIG                NZ     X6,WIN3     IF NOT TRANSMIT TO SELF                             FEAT155C     110     A     
 PIG                JP     B2          EXIT..                                              FEAT155C     111     A     
 PIG                                                                                       FEAT155C     112     A     
 PIG      *         IT*S A *10*,*14* OR *47* INSTRUCTION, COPY *J* INTO *K* FIELD.         FEAT155C     113     A     
 PIG      *         THIS IS DONE HERE BECAUSE *GEN* IS SIMPLIFIED IF HE                    FEAT155C     114     A     
 PIG      *         DOES NOT HAVE TO COMPLETE THE *K* PORTION OF THESE                     FEAT155C     115     A     
 PIG      *         INSTRUCTIONS.                                                          FEAT155C     116     A     
 PIG                                                                                       FEAT155C     117     A     
 PIG       WIN3     MX0    -L.LJ                                                           FEAT155C     118     A     
 PIG                NO                                                                     FEAT155C     119     A     
 PIG                LX0    P.LJ                                                            FEAT155C     120     A     
 PIG                NO                                                                     FEAT155C     121     A     
 PIG                BX1    -X0*X7                                                          FEAT155C     122     A     
 PIG                NO                                                                     FEAT155C     123     A     
 PIG                LX1    P.LK-P.LJ                                                       FEAT155C     124     A     
 PIG                BX7    X7+X1                                                           FEAT155C     125     A     
 PIG                                                                                       FEAT155C     126     A     
 PIG      *         NOW WE MAY PACK IT AND OUTPUT THE PACKAGE TO TT.LF IF FULL.            FEAT155C     127     A     
 PIG                                                                                       FEAT155C     128     A     
 PIG       WIN4     =B7    X2-1                                                            FEAT155C     129     A     
 PIG                MI     B7,WIN6     IF NO PACKAGE PRESENT                               FEAT155C     130     A     
 PIG                LX7    -15         POSITION INSTRUCTION                                FEAT155C     131     A     
 PIG                ZR     B7,WIN6     IF ONE PACKAGE PRESENT                              FEAT155C     132     A     
 PIG                LX7    -15         RE-POSITION INSTRUCTION                             FEAT155C     133     A     
 PIG                SX0    77777B                                                          FEAT155C     134     A     
 PIG                BX7    X2+X7       INSERT THIRD PACKAGE                                FEAT155C     135     A     
 PIG                MX6    0                                                               FEAT155C     136     A     
 PIG                BX7    X0+X7       INSERT LOW ORDER BITS                               FEAT155C     137     A     
 PIG                SA6    A2          CLEAR WINA                                          FEAT155C     138     A     
 PIG                                                                                       FEAT155C     139     A     
 PIG      *         OUTPUT (X7) TO TT.LF, ALSO CALLED FROM *PIG*                           FEAT155C     140     A     
 PIG      *         INITIALIZATION CODE.                                                   FEAT155C     141     A     
 PIG                                                                                       FEAT155C     142     A     
 PIG       WIN5     SA1    TT.LF                                                           FEAT155C     143     A     
 PIG                BX6    X3                                                              FEAT155C     144     A     
 PIG                =X0    1                                                               FEAT155C     145     A     
 PIG                SA7    ADWT        SAVE INSTRUCTION                                    FEAT155C     146     A     
 PIG                =A6    A7+1        SAVE (X3)                                           FEAT155C     147     A     
 PIG                ALLOC  A1,X0       EXPAND TT.LF BY 1 WORD                              FEAT155C     148     A     
 PIG                SA1    ADWT                                                            FEAT155C     149     A     
 PIG                =A3    A1+1        RESTORE (X3)                                        FEAT155C     150     A     
 PIG                BX7    X1                                                              FEAT155C     151     A     
 PIG                =A7    B7-1        OUTPUT INSTRUCTION TO TT.LF                         FEAT155C     152     A     
 PIG                JP     B2          EXIT..                                              FEAT155C     153     A     
 PIG                                                                                       FEAT155C     154     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 728    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PIG     
  
 PIG       WIN6     BX7    X2+X7       ADD NEW PACKAGE                                     FEAT155C     155     A     
 PIG                =X0    1                                                               FEAT155C     156     A     
 PIG                IX7    X0+X7       INCREMENT PACKAGE COUNT                             FEAT155C     157     A     
 PIG                SA7    A2          STORE IN WINA                                       FEAT155C     158     A     
 PIG                                                                                       FCC1608X      24     A     
 PIG                                   *****                                               FCC1608X      25     A     
 PIG       WINX     BSS                * THIS LOCATION USED TO OVERWRITE WIN               FCC1608X      26     A     
 PIG                                   *****                                               FCC1608X      27     A     
 PIG                JP     B2          EXIT..                                              FEAT155C     159     A     
 PIG                LIST   D                                                               PIG          479     A     
 PIG                END                                                                    PIG          480     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PIG     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PIG                        480       397
          FEAT126A                    13        10
          FEAT126BA                    4         4
          FEAT155C                   154       153
          FEAT155E                     1         1
          FCC1224                     16        16
          FCC1608X                    10        10
          F66FCC                      34        34
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END      *DECK     END                                                                    END            1     A     
 END                IDENT  END                                                             END            2     A     
 END       END      SECT   (BINARY OUTPUT),1                                               END            3     A     
 END                                                                                       END            4     A     
 END                SST    A,B,D,E,F                                                       END            5     A     
 END                NOREF  A,B,D,E,F                                                       END            6     A     
 END                                                                                       END            7     A     
 END       B=END    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             END            8     A     
 END                                                                                       END            9     A     
 END                ENTRY  CKS,CKS65,CKS67,BT.IDNT,BT.XFR1,LPSX,WCLX,WVMX,END              END           10          I
          -FEAT155G 
 END                ENTRY  CKS,CKS65,CKS67,BT.IDNT,BT.XFR1,WCLX,WVMX,END                   FEAT155G     243     A     
 END                ENTRY  DDS.O,DDS.R,DDS.S,DDS.W,BT.IDN9,DLF                             END           11     A     
 END                ENTRY  BT.IDN8                                                         END           12          I
          -FEAT126A 
 END                ENTRY  BT.IDN8,LBSX                                                    FEAT126A     754          I
          -FCC0931
 END                ENTRY  BT.IDN8,LBSX,END96                                              FCC0931        6          I
          -FEAT155G 
 END                ENTRY  BT.IDN8,END96,LFS.MAX                                           FEAT155G     244     A     
 END                ENTRY  OTRSAV                                                          FEAT155G     245     A     
 END                ENTRY  END93                                                           FCC1390X      10     A     
 END                                                                                       END           13     A     
 END      *         IN FTN                                                                 END           14     A     
 END                EXT    CO.TBK,CO.SNAP,CP.ERCT,CP.MXFL,CARDSB,F.LF,F.OUT,F.LGO          END           15          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 729    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
          -FEAT155G 
 END                EXT    CO.TBK,CO.SNAP,CP.ERCT,CP.MXFL,F.LF,F.LGO                       FEAT155G     246     A     
 END                EXT    FV.LGO,LOP=O,LOP=M,LGOIO,PLIMIT                                 END           16     A     
 END                EXT    CO.ER                                                           FEAT155G     247     A     
 END                                                                                       END           17     A     
 END      *         IN TABLES                                                              END           18     A     
 END                EXT    BINIO,BINOUT,BA.CON,BA.FMT,BA.VAR,BA.NLST,BA.BUF,BA.PRO         END           19     A     
 END                EXT    BA.APL,BA.TEM,CARDS,CDD,ENTRY.,ERRORS,FAILSFT,IDENT             END           20          I
          -FEAT155G 
 END                EXT    BA.APL,BA.TEM,CDD,ENTRY.,ERRORS,FAILSFT,IDENT                   FEAT155G     248     A     
 END                EXT    LINEBUF,LOCAL,MSN,MOD,MAXCORE,MSF,NARGS,NREXT,NSK,ORG           END           21          I
          -FCC0813
 END                EXT    LINEBUF,LOCAL,MSN,MOD,MSF,NARGS,NREXT,NSK,ORG                   FCC0813       90     A     
 END                EXT    PASS,PARCEL,TA.PRO                                              END           22          I
          -FEAT126B 
 END                EXT    PASS,PARCEL,TA.PRO,NOLIST                                       FEAT126B      63     A     
 END                EXT    TEM.MAX,TG.VDIM,TP=FMT,TP=APL,TP=NLST,TP.APL,TP.DIM             END           23     A     
 END                EXT    TP=DO,TP.DO,TP.FMT,TP.NLST,TS=EQU,TS=CON,TS=STN,TS.STN          END           24     A     
 END                EXT    TS.SYM,TS.ENT,TS=ENT,TS.CON,TS=DAT,TS.DAT,TS=BLK,TS.BLK         END           25     A     
 END                EXT    TT=ASF,TT=USE,TT=SCR,TS=SYM,TT=LINK,TT=FILL,TT.LINK             END           26     A     
 END                EXT    TT.FILL,TT=LF,TT.SCR,TT.LF,T=FILE,T.FILE,TA=NAM,TA.NAM          END           27     A     
 END                                                                                       END           28     A     
 END      *         IN ERRORS                                                              END           29     A     
 END                EXT    ERR=D,ERR=F,E.DO9,E.MN,E.MO1,E.MS,E.M$,E.ZA,FILL.               END           30          I
          -FEAT126A 
 END                EXT    ERR=F,E.DO9,E.MN,E.MO1,E.MS,E.M$,E.ZA,FILL.                     FEAT126A     755     A     
 END                EXT    E.SU11                                                          END           31     A     
 END                                                                                       END           32     A     
 END      *         IN BATCH                                                               END           33     A     
 END                EXT    RUN.X                                                           END           34     A     
 END                                                                                       END           35     A     
 END      *         IN PIG                                                                 END           36     A     
 END                EXT    PIK=PS,WIN,PIG                                                  END           37     A     
 END                                                                                       END           38          I
          -FEAT155G 
 END      *         IN LIST                                                                END           39          I
          -FEAT155G 
 END                EXT    PVF                                                             END           40          I
          -FEAT155G 
 END                                                                                       END           41          I
          -FEAT155G 
 END      *         IN MAP                                                                 END           42          I
          -FEAT155G 
 END                EXT    LPS.PL,LPS,WCL,WVM,LJS                                          END           43          I
          -FEAT155G 
 END                                                                                       END           44     A     
 END      *         IN ALLOC                                                               END           45     A     
 END                EXT    ADW,ASU,SRT                                                     END           46          I
          -FCC0813
 END                EXT    ADW,SRT                                                         FCC0813       91     A     
 END                                                                                       END           47     A     
 END      *         IN MAIN                                                                END           48     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 730    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                EXT    WBL                                                             END           49     A     
 END                                                                                       END           50     A     
 END      *         IN KEY                                                                 END           51     A     
 END                EXT    RTU,SVALUE.                                                     END           52     A     
 END                                                                                       END           53     A     
 END      *         IN GEN                                                                 END           54     A     
 END                EXT    CAI,FVD                                                         END           55     A     
 END                                                                                       END           56     A     
 END      *         IN INIT                                                                END           57     A     
 END                EXT    EQUA                                                            END           58     A     
 END                                                                                       END           59          I
          -FEAT126C 
 END      *         IN LEX                                                                 END           60          I
          -FEAT126C 
 END                EXT    TRV                                                             END           61          I
          -FEAT126C 
 END                                                                                       END           62          I
          -FEAT126C 
 END       END      SPACE  4,8                                                             END           63     A     
 END      **        PASS *THREE* -- ASSEMBLE THE OBJECT CODE.                              END           64     A     
 END      *                                                                                END           65     A     
 END      *         *END*  MAIN CONTROLLING ROUTINE.  COMPUTES BLOCK LENGTHS AND           END           66     A     
 END      *                ASSIGNS ALL ADDRESSES, RESERVING STORAGE WHERE                  END           67     A     
 END      *                NECESSARY.  ALSO CALLS *PASS TWO* TO WRAPUP THE FINAL           END           68     A     
 END      *                PIECES, AND *MAP* TO PRINT LISTINGS.                            END           69     A     
 END      *                                                                                END           70     A     
 END      *         *CKS*  DIAGNOSE MISSING STATEMENT LABELS, AND UNTERMINATED             END           71     A     
 END      *                *DO* LOOPS.                                                     END           72     A     
 END      *                                                                                END           73     A     
 END      *         *DDS*  DUMP DATA STATEMENTS -- READS THE TRANSLATED *DATA*             END           74     A     
 END      *                STATEMENTS FROM *TS.DAT* AND PRODUCES CORRESPONDING             END           75     A     
 END      *                BINARY TABLES FOR THE LOADER.                                   END           76     A     
 END      *                                                                                END           77     A     
 END      *         *DFT*  INITIALIZES THE BINARY OUTPUT, CHECKING ERROR COUNTS TO         END           78     A     
 END      *                DETERMINE IF BINARY SHOULD BE PRODUCED.  IF NOT, IT             END           79     A     
 END      *                OUTPUTS AN *ERRORS* DIRECTIVE IN THE BINARY, AND EXITS          END           80     A     
 END      *                BACK INTO *END*, BYPASSING THE REST OF THE BINARY               END           81     A     
 END      *                OUTPUT.                                                         END           82     A     
 END      *                                                                                END           83     A     
 END      *         *DLF*  FLUSHES THE LINK AND FILL TABLES ACCUMULATED BY THE             END           84     A     
 END      *                OTHER PROCESSORS.                                               END           85     A     
 END      *                                                                                END           86     A     
 END      *         *DTX*  FLUSHES THE *TEXT* TABLE BEING CONSTRUCTED, AND RESETS          END           87     A     
 END      *                THE ORIGIN COUNTER APPROPRIATELY.                               END           88     A     
 END      *                                                                                END           89     A     
 END      *         *KAP*  TRANSLATES THE AP-LISTS GENERATED IN *TP.APL* INTO              END           90     A     
 END      *                THE BINARY OUTPUT.                                              END           91     A     
 END      *                                                                                END           92     A     
 END      *         *KCF*  DUMPS THE SAVED CONSTANTS (TS.CON) AND FORMATS (TP.FMT)         END           93     A     
 END      *                INTO THE BINARY.                                                END           94     A     
 END      *                                                                                END           95     A     
 END      *         *KNS*  READS THE TRANSLATED *NAMELIST* GROUP DEFINITIONS FROM          END           96     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 731    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END      *                *TP.NLST* AND PRODUCES APPROPRIATE BINARY.                      END           97     A     
 END      *                                                                                END           98     A     
 END      *         *RAD*  READS PSEUDO-OBJECT CODE FROM *T.INT* (OR THE OVERFLOW          END           99     A     
 END      *                FILE), FILLING IN ACTUAL ADDRESSES AND RELOCATION BASES         END          100     A     
 END      *                AND WRITING BINARY.                                             END          101     A     
 END      *                                                                                END          102     A     
 END      *         *REL*  CALLED BY OTHER ROUTINES TO DETERMINE VALUE AND                 END          103     A     
 END      *                RELOCATION OF TAGS.                                             END          104     A     
 END      *                                                                                END          105     A     
 END      *         *RIN*  READS ONE WORD FROM INTERMEDIATE -- EITHER THE TABLE,           END          106     A     
 END      *                *T.INT*, OR THE FILE.                                           END          107     A     
 END      *                                                                                END          108     A     
 END      *         *STX*  STORES ONE WORD INTO THE *TEXT* CURRENTLY BEING BUILT,          END          109     A     
 END      *                UPDATING ORIGIN COUNTER AND RELOCATION BYTES.                   END          110     A     
 END      *                                                                                END          111     A     
 END      *         *WLF*  DOES THE ACTUAL WRITE TO THE BINARY, WHETHER IT BE A            END          112     A     
 END      *                FILE (*LGO*), OR, WHEN COMPILING-TO-CORE, ADDING TO A           END          113     A     
 END      *                TABLE (*T.LGO*).                                                END          114     A     
 END       WLGO     SPACE  4,8                                                             END          115     A     
 END      **        WLGO - MACRO TO OUTPUT BINARY TO LGO.                                  END          116     A     
 END      *                                                                                END          117     A     
 END      *         WLGO   FWA,WC                                                          END          118     A     
 END      *                                                                                END          119     A     
 END      *         ENTRY  FWA = SOURCE ADDRESS OF WORDS TO BE OUTPUT (B6).                END          120     A     
 END      *                WC  = NUMBER OF WORDS TO OUTPUT  (B7).                          END          121     A     
 END      *         CALLS  WLF                                                             END          122     A     
 END                                                                                       END          123     A     
 END                                                                                       END          124     A     
 END       WLGO     MACRO  F,W                                                             END          125     A     
 END                =B6    F                                                               END          126     A     
 END                =B7    W                                                               END          127     A     
 END                RJ     WLF                                                             END          128     A     
 END       WLGO     ENDM                                                                   END          129     A     
 END       END      SPACE  4,15                                                            END          130     A     
 END      **        END -  * E N D *   PROCESSING -- PASS 2 OF COMPILER.                   END          131     A     
 END      *                                                                                END          132     A     
 END      *         1.     ASSIGN ALL ADDRESSES THAT ARE NOT YET KNOWN, RESERVING          END          133     A     
 END      *                STORAGE WHERE NECESSARY.                                        END          134     A     
 END      *         2.     OUTPUT THE RELOCATABLE BINARY OBJECT FILE, MOSTLY               END          135     A     
 END      *                FROM THE *LONG FILE*.                                           END          136     A     
 END      *         3.     SECTION I/C2 IS CALLED TO PRINT THE VARIOUS VARIABLE            END          137          I
          -FEAT126C 
 END      *                MAPS AND OTHER LISTINGS.                                        END          138          I
          -FEAT126C 
 END      *         3.     MAP IS CALLED TO PRINT THE VARIOUS VARIABLE MAPS AND            FEAT126C     105     A     
 END      *                OTHER LISTINGS.                                                 FEAT126C     106     A     
 END      *         4.     WRAP UP, PRINT STATISTICS, AND RETURN TO BATCH CONTROL.         END          139     A     
 END                                                                                       END          140     A     
 END                                                                                       END          141     A     
 END       END      BSS    0                                                               END          142     A     
 END                SA1    MOD                                                             END          143     A     
 END                IFBIT  X1,-PFNC,END10    IF NOT COMPILING A FUNCTION PROGRAM           END          144     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 732    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                SB4    SVALUE.                                                         END          145     A     
 END                RJ     TRV                                                             END          146          I
          -FEAT126C 
 END                RJ     =XTRV                                                           FEAT126C     107     A     
 END                IFBIT  X6,DEF,END10      IF FUNCTION NAME IS DEFINED                   END          147     A     
 END                WARN   E.SU11      FUNCTION NAME UNDEFINED                             END          148          I
          -FCC1550X 
 END                FATAL  E.SU11      FUNCTION NAME UNDEFINED                             FCC1550X      11     A     
 END       END10    SA1    FAILSFT                                                         END          149     A     
 END                NZ     X1,END70    IF TABLES ARE MESSED UP, BYPASS EVERYTHING          END          150     A     
 END                SA3    MOD                                                             END          151     A     
 END                SX6    M.PFNC+M.PSUB                                                   END          152     A     
 END                BX0    X6*X3                                                           END          153     A     
 END                ZR     X0,END15    IF NOT PROCEDURE SUBPROGRAM                         END          154     A     
 END                RJ     RTU                                                             END          155     A     
 END       END15    RJ     CAI         FLUSH PARSED FILE                                   END          156     A     
 END                RJ     FVD         FLUSH VARIABLE DIMENSION CODE                       END          157     A     
 END                RJ     ASU         ACCUMULATE STORAGE USED                             END          158          I
          -FCC0813
 END                SHRINK TT=ASF,0                                                        END          159     A     
 END                SHRINK TT=USE,X6                                                       END          160     A     
 END                SHRINK =XT=SB,X6                                                       FCC0813       92     A     
 END                SHRINK TT=SCR,X6                                                       END          161     A     
 END                SHRINK TS=EQU,X6                                                       END          162     A     
 END                WCODE  0           MARK END OF PROGRAM BY FORCE UPPER                  END          163     A     
 END                RJ     PIG         PROCESS FINAL INSTRUCTION GROUP                     END          164          I
          -FCC0962
 END                SA1    BINIO                                                           END          165          I
          -FCC0962
 END                SA2    ERRORS      FATAL ERROR COUNTER.                                FCC0962        7          I
          -FCC1524X 
 END                NZ     X2,END17    IF FATAL , DONT BOTHER.                             FCC0962        8          I
          -FCC1524X 
 END                =A2    =XERRORS    FATAL ERROR COUNTER                                 FCC1524X       7     A     
 END                =A1    =XMOD                                                           FCC1524X       8     A     
 END                NZ     X2,END17    IF FATAL                                            FCC1524X       9     A     
 END                SBIT   X1,PBLK                                                         FCC1524X      10     A     
 END                MI     X1,END17    IF BLOCKDATA                                        FCC1524X      11     A     
 END                RJ     PIG         PROCESS FINAL INSTRUCTION GROUP.                    FCC0962        9     A     
 END       END17    SA1    BINIO                                                           FCC0962       10     A     
 END                PL     X1,END20    IF INTERMEDIATE IN CORE                             END          166     A     
 END                WRITER F.LF                                                            END          167     A     
 END                REWIND F.LF                                                            END          168     A     
 END                                                                                       END          169     A     
 END                IFNE   CP#RM,7,1                                                       END          170     A     
 END                READ   F.LF                                                            END          171     A     
 END                                                                                       END          172     A     
 END       END20    =X6    PASS=END                                                        END          173     A     
 END                SA6    PASS                                                            END          174     A     
 END                SA1    TT=LF                                                           FCC0813       93     A     
 END                BX6    X1                                                              FCC0813       94     A     
 END                SA6    =XIGS       SET IGS TO END OF LF FOR ALLOC                      FCC0813       95     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 733    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                                                                                       END          175     A     
 END      **        FORM BASE ADDRESSES                                                    END          176     A     
 END                                                                                       END          177     A     
 END                SA1    ORG                                                             END          178     A     
 END                SA2    TS=CON                                                          END          179     A     
 END                SA3    TP=FMT                                                          END          180     A     
 END                BX6    X1                                                              END          181     A     
 END                SA4    TEM.MAX                                                         END          182     A     
 END                SA6    BA.CON      BASE OF CONSTANTS = LWA CODE                        END          183     A     
 END                IX7    X2+X6                                                           END          184     A     
 END                SA1    TG.VDIM                                                         END          185     A     
 END                SX4    X4-C.TEM                                                        END          186     A     
 END                SA7    A6+B1       BA.FMT = (BA.CON) + (NR OF CONSTANTS)               END          187     A     
 END                IX6    X7+X3                                                           END          188     A     
 END                SA5    TP=APL                                                          END          189     A     
 END                SX2    X1-C.VDIM                                                       END          190     A     
 END                IX4    X4+X2       NR OF (TEMP TAGS) = (TEMPS) + (VAR-DIMS)            END          191     A     
 END                SA6    A7+B1       BA.TEM = (BA.FMT) + (LEN OF FORMATS)                END          192     A     
 END                IX7    X4+X6                                                           END          193     A     
 END                SA3    TP=NLST                                                         END          194     A     
 END                SA7    A6+B1       BA.APL = (BA.TEM) + (NR OF TEMP TAGS)               END          195     A     
 END                IX6    X7+X5                                                           END          196     A     
 END                SA6    A7+B1       BA.NLST = (BA.APL) + (LEN OF AP-LISTS)              END          197     A     
 END                IX7    X6+X3                                                           END          198     A     
 END                SA7    A6+B1       BA.VAR = (BA.NLST) + (LEN OF NAME-LISTS)            END          199     A     
 END                                                                                       END          200     A     
 END                                                                                       END          201     A     
 END      **        COMPUTE ADDRESSES OF FORMATS.                                          END          202     A     
 END      *                = (SN.ADR(TT.STAT)) + (BA.FMT)                                  END          203     A     
 END      *         ALSO FORMS LOGICAL SUM OF THE *UNDEFINED* BITS OF ALL                  END          204     A     
 END      *                STATEMENT LABELS.                                               END          205     A     
 END                                                                                       END          206     A     
 END                SA2    TS=STN                                                          END          207     A     
 END                SA1    TS.STN                                                          END          208     A     
 END                SB7    59-P.SNFMT                                                      END          209     A     
 END                SB4    X2          (B4) = LENGTH OF TABLE                              END          210     A     
 END                =B2    2                                                               END          211     A     
 END                SA4    BA.FMT                                                          END          212     A     
 END                SA3    X1-1                                                            END          213     A     
 END                BX7    0                                                               END          214     A     
 END                LX4    P.SNAD                                                          END          215     A     
 END                =X3    M.SNDEF     FAKE LOOP 1ST TIME FOR STACK                        END          216     A     
 END                                                                                       END          217     A     
 END       END24    SB4    B4-B2                                                           END          218     A     
 END                LX0    X3,B7                                                           END          219     A     
 END                ZR     X3,END26    IF EMPTY ENTRY                                      END          220     A     
 END                IX6    X3+X4                                                           END          221     A     
 END                BX7    -X3+X7      ACCUMULATE UNDEF BITS                               END          222     A     
 END                NO                                                                     END          223     A     
 END                PL     X0,END26    IF NOT A *FORMAT* LABEL                             END          224     A     
 END                SA6    A3          RELOCATE ITS ADDRESS                                END          225     A     
 END       END26    SA3    A3+B2                                                           END          226     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 734    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                PL     B4,END24    IF TABLE NOT EXHAUSTED                              END          227     A     
 END                SA7    MSN                                                             END          228     A     
 END                                                                                       END          229     A     
 END                                                                                       END          230     A     
 END      **        RELOCATE LOCAL EQUIVALENCED VARIABLES.                                 END          231     A     
 END                                                                                       END          232     A     
 END                SA1    TA=NAM                                                          END          233     A     
 END                SA2    TS.SYM                                                          END          234     A     
 END                SA3    TA.NAM                                                          END          235     A     
 END       A        DECMIC P.BLOCK+17                                                      END          236     A     
 END                SA4    =1S"A"                                                          END          237     A     
 END                SA5    BA.VAR                                                          END          238     A     
 END                SB7    59-P.BLOCK-17                                                   END          239     A     
 END                SB4    X1-1        (B4) = LENGTH OF ADDRESS TABLE                      END          240     A     
 END                SB5    X2          (B5) = FWA SYMBOL TABLE                             END          241     A     
 END                SB6    X3          (B6) = FWA ADDRESS TABLE                            END          242     A     
 END                IX5    X5-X4                                                           END          243     A     
 END                                                                                       END          244     A     
 END       END27    SA4    B4+B6                                                           END          245     A     
 END                MI     B4,END28    IF TABLE EXHAUSTED                                  END          246     A     
 END                =B4    B4-1                                                            END          247     A     
 END                LX1    X4,B7                                                           END          248     A     
 END                IX6    X5+X4                                                           END          249     A     
 END                PL     X1,END27    IF NOT LOCAL-EQUIV (BLOCK = 1S17)                   END          250     A     
 END                SA6    A4          ADD (BA.VAR) AND CLEAR BLOCK NUMBER                 END          251     A     
 END                EQ     END27       LOOP..                                              END          252     A     
 END                                                                                       END          253     A     
 END                                                                                       END          254     A     
 END      **        ASSIGN STORAGE FOR UNIQUE LOCAL VARIABLES                              END          255     A     
 END                                                                                       END          256     A     
 END       END28    SA2    TS=SYM                                                          END          257     A     
 END                SA1    TA=NAM                                                          END          258     A     
 END                AX2    1                                                               END          259     A     
 END                IX0    X2-X1                                                           END          260     A     
 END                ALLOC  TA.NAM,X0   ALLOCATE TA.NAM ONE WORD PER SYMBOL                 END          261     A     
 END                SA3    TS.SYM                                                          END          262     A     
 END                SA4    TP.DIM                                                          END          263     A     
 END                SB6    X1          B6 = FWA ADDRESS TABLE                              END          264     A     
 END                SB7    X2          B7 = NUMBER OF SYMBOL ENTRIES                       END          265     A     
 END                SB5    X4          B5 = FWA ARRAY PARAMETERS                           END          266     A     
 END                SA5    BA.VAR                                                          END          267     A     
 END                SA2    EQUA                                                            END          268     A     
 END                =B3    2                                                               END          269     A     
 END                SA3    X3-1        INITIALIZE SYMBOL FETCH                             END          270     A     
 END                CLAS=  X0,(NVAR,COMM,EQUIV,NLST,EXT,ENT,FP)                            END          271     A     
 END                IX5    X5+X2       ADD IN LOCAL-EQUIVALENCE-LENGTH                     END          272     A     
 END                                                                                       END          273     A     
 END       END3     SA3    A3+B3                                                           END          274     A     
 END                ZR     B7,END32    IF TABLE EXHAUSTED                                  END          275     A     
 END                SB7    B7-B1                                                           END          276     A     
 END                BX2    X0*X3                                                           END          277     A     
 END                SB6    B6+B1                                                           END          278     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 735    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                LX3    -P.PNT                                                          END          279     A     
 END                ZR     X3,END3     **** KLUDGE, AVOID NULL ENTRIES                     END          280     A     
 END                NZ     X2,END3     IF NOT UNIQUE LOCAL, AVOID..                        END          281     A     
 END                MX1    -L.PNT                                                          END          282     A     
 END                BX2    -X1*X3      ISOLATE TP.DIM ORDINAL                              END          283     A     
 END                SA4    X2+B5                                                           END          284     A     
 END                SBIT   X3,LONG/PNT-1                                                   END          285     A     
 END                BX6    X5                                                              END          286     A     
 END                AX4    P.DIMLG                                                         END          287     A     
 END                SX4    X4                                                              END          288     A     
 END                AX3    -0          -0 IFF LONG, ELSE +0                                END          289     A     
 END                BX2    X3*X4       X4         ,      +0                                END          290     A     
 END                IX7    X5+X4                                                           END          291     A     
 END                SA6    B6-B1                                                           END          292     A     
 END                IX5    X2+X7       ADD LENGTH AGAIN IF DOUBLE-WORD ELEMENT             END          293     A     
 END                EQ     END3        LOOP..                                              END          294     A     
 END                                                                                       END          295     A     
 END                                                                                       END          296     A     
 END      **        ASSIGN MISCELLANEOUS ADDRESSES.                                        END          297     A     
 END      *                NAMELIST -- (P.ARR(TT.NAM)) + (BA.NLST)                         END          298     A     
 END      *                EXTERNAL -- 400000B                                             END          299     A     
 END      *         ALL OTHERS IN *NAM* TABLE ARE ALREADY DONE.                            END          300     A     
 END                                                                                       END          301     A     
 END       END32    SA1    TA=NAM                                                          END          302     A     
 END                SA2    TS.SYM                                                          END          303     A     
 END                BX7    X5                                                              END          304     A     
 END                SA3    TA.NAM                                                          END          305     A     
 END                SB2    X1          B2 = LENGTH OF TABLE                                END          306     A     
 END                SA7    A5+B1       LOCAL LENGTH = (BA.VAR) + (UNIQUE STORAGE)          END          307     A     
 END                CLAS=  X0,(NLST,EXT)                                                   END          308     A     
 END                =X7    1                                                               END          309     A     
 END                SA5    CO.TBK                                                          END          310     A     
 END                SA4    BA.NLST                                                         END          311     A     
 END                SX6    1R"EXT"                                                         END          312     A     
 END                AX5    -1          -0 IFF TRACEBACK ON                                 END          313     A     
 END                SB4    X2          B4 = FWA SYMBOL TABLE                               END          314     A     
 END                =X1    1                                                               END          315     A     
 END                SB3    X3          B3 = FWA ADDRESS TABLE                              END          316     A     
 END                SB6    X3          SAVE (B6) = FWA ADDRESS TABLE                       END          317     A     
 END                LX1    P.EXT-P.PNT                                                     END          318     A     
 END                =B5    2                                                               END          319     A     
 END                SA3    B4-B1       FETCH FIRST TAG WORD                                END          320     A     
 END                BX5    -X5*X6      SUFFIX (OR ZERO) FOR BEF-S                          END          321     A     
 END                EQ     END34       BEGIN..                                             END          322     A     
 END                                                                                       END          323     A     
 END       END33    LX6    P.PNT-P.EXT+17                                                  END          324     A     
 END                SX7    X7+1        COUNT EXTERNALS                                     END          325     A     
 END                SBIT   X3,BEF/PNT-1                                                    END          326     A     
 END                =A6    B3-1                                                            END          327     A     
 END                MX2    -L.JPADF                                                        END          328     A     
 END                PL     X3,END34    IF NOT A BASIC-EXTERNAL-FUNCTION                    END          329     A     
 END                SBIT   X3,JPADF/BEF+1                                                  END          330     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 736    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                BX6    -X2*X3      ISOLATE SHIFT COUNT                                 END          331     A     
 END                =A2    A3-1        FETCH SYMBOL NAME                                   END          332     A     
 END                SB7    X6                                                              END          333     A     
 END                LX3    X5,B7                                                           END          334     A     
 END                BX6    X2+X3       APPEND SUFFIX TO BEF NAME                           END          335     A     
 END                SA6    A2                                                              END          336     A     
 END                                                                                       END          337     A     
 END       END34    SA3    A3+B5       FETCH TAG TABLE ENTRY                               END          338     A     
 END                ZR     B2,END35    IF TABLE EXHAUSTED                                  END          339     A     
 END                SB2    B2-B1                                                           END          340     A     
 END                BX2    X0*X3                                                           END          341     A     
 END                SB3    B3+B1                                                           END          342     A     
 END                ZR     X2,END34    IF NOT FOR US TO DO                                 END          343     A     
 END                LX3    -P.PNT                                                          END          344     A     
 END                BX6    X1*X3       ISOLATE EXTERNAL BIT                                END          345     A     
 END                SX2    X3                                                              END          346     A     
 END                NZ     X6,END33    IF EXTERNAL                                         END          347     A     
 END                                                                                       END          348     A     
 END                IX6    X2+X4       RE-LOCATE NAMELIST GROUP ADDRESS                    END          349     A     
 END                SA6    B3-B1                                                           END          350     A     
 END                EQ     END34       LOOP..                                              END          351     A     
 END                                                                                       END          352     A     
 END       END35    BSS    0                                                               END          353     A     
 END                SA7    NREXT       SAVE COUNT OF EXTERNALS                             END          354     A     
 END                                                                                       END          355     A     
 END                                                                                       END          356     A     
 END      **        PUT ENTRY POINT ADDRESSES INTO ADDRESS TABLE.                          END          357     A     
 END      *                SQUEEZES OUT ANY -FAKE- ENTRY POINTS WHICH MAY BE               END          358     A     
 END      *         PRESENT DUE TO FILE LINKAGE SUPPRESSION (*SYSEDIT* OPTION).            END          359     A     
 END      *                (B4) = FWA SYMBOL TABLE.                                        END          360     A     
 END      *                (B6) = FWA ADDRESS TABLE.                                       END          361     A     
 END                                                                                       END          362     A     
 END                SA1    TS.ENT                                                          END          363     A     
 END                SA5    TS=ENT                                                          END          364     A     
 END                SA4    X1          FETCH FIRST ENTRY POINT                             END          365     A     
 END                =B4    B4+1        FUDGE.....                                          END          366     A     
 END                SB3    X5          (B3) = NUMBER OF E.P.                               END          367     A     
 END                =B7    0                                                               END          368     A     
 END                                                                                       END          369     A     
 END       END36    SA3    X4+B4       FETCH TAG WORD                                      END          370     A     
 END                SX5    X4                                                              END          371     A     
 END                BX6    X4                                                              END          372     A     
 END                AX3    P.PNT                                                           END          373     A     
 END                =A4    A4+1                                                            END          374     A     
 END                =B3    B3-1        COUNT DOWN LENGTH                                   END          375     A     
 END                AX5    1                                                               END          376     A     
 END                SX7    X3                                                              END          377     A     
 END                MI     X6,END37    IF FAKE E.P.                                        END          378     A     
 END                SA6    X1+B7                                                           END          379     A     
 END                =B7    B7+1                                                            END          380     A     
 END       END37    SA7    X5+B6                                                           END          381     A     
 END                GT     B3,END36    IF MORE ENTRY POINTS                                END          382     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 737    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                SHRINK A5,B7                                                           END          383     A     
 END                                                                                       END          384     A     
 END                                                                                       END          385     A     
 END      **        ASSIGN BUFFER ADDRESSES.                                               END          386     A     
 END                                                                                       END          387     A     
 END                SA4    BA.BUF                                                          END          388     A     
 END                SA1    MOD                                                             END          389     A     
 END                BX7    X4                                                              END          390     A     
 END                IFBIT  X1,-PPRO,END45                                                  END          391     A     
 END                SA1    T.FILE                                                          END          392     A     
 END                SA2    NARGS                                                           END          393     A     
 END                SA3    TA.PRO                                                          END          394     A     
 END                SA5    X1-2                                                            END          395     A     
 END                SB4    X2          NUMBER OF FILES                                     END          396     A     
 END                =B2    3                                                               END          397     A     
 END                                                                                       END          398     A     
 END       END4     SA5    A5+B2                                                           END          399     A     
 END                ZR     B4,END45    IF NO MORE FILES                                    END          400     A     
 END                SB4    B4-B1                                                           END          401     A     
 END                MI     X5,END4     IF EQUIVALENCED FILE                                END          402     A     
 END                SA1    =XOT.RM                                                         END          403     A     
 END                NZ     X1,END41    IF 7RM OBJECT CODE                                  END          404          I
          -F162FTNA 
 END                SX2    X5                                                              END          405     A     
 END                AX5    18*2                                                            END          406          I
          -F162FTNA 
 END                BX6    0           PRESET NO CIO BUFFER (FWB=0)                        F162FTNA     401     A     
 END                ZR     X2,END41    IF BUFFER LENGTH (BFS) = 0                          F162FTNA     402     A     
 END                NZ     X1,END41    IF 7RM OBJECT MODE (NO CIO BUFFER)                  F162FTNA     403     A     
 END                BX6    X7          SET BUFFER ORIGIN                                   F162FTNA     404     A     
 END       END41    AX5    P.FBUF                                                          F162FTNA     405     A     
 END                SB7    X5-C.PRO                                                        END          407     A     
 END                SA7    X3+B7       DEFINE BUFFER TAG                                   END          408          I
          -F162FTNA 
 END                SA6    X3+B7       DEFINE BUFFER TAG                                   F162FTNA     406     A     
 END                IX7    X7+X2       ADVANCE ORIGIN                                      END          409     A     
 END       END41    =A4    A5+1        FETCH WSA DESCRIPTOR                                END          410          I
          -F162FTNA 
 END                SA4    A5+B1                                                           F162FTNA     407     A     
 END                MI     X4,END4     IF NO WSA                                           END          411     A     
 END                SX2    X4          MRL                                                 END          412     A     
 END                AX4    18*2                                                            END          413     A     
 END                SB7    X4-C.PRO                                                        END          414     A     
 END                                                                                       F162FTNA     408     A     
 END                IFEQ   OT#RM,7,2                                                       F162FTNA     409     A     
 END                SX0    4                                                               END          415     A     
 END                IX7    X7+X0                                                           END          416     A     
 END                                                                                       F162FTNA     410     A     
 END                SA7    X3+B7       DEFINE WSA TAG                                      END          417     A     
 END                                                                                       END          418     A     
 END      *         SIZE OF WORKING STORAGE AREA IS 4 + CEILING(MRL/10).                   END          419     A     
 END      *         DIVISION BY 10 IS DONE BY SUBTRACTION LOOP.                            END          420     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 738    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                                                                                       END          421     A     
 END                =B3    0           INITIALIZE QUOTIENT                                 END          422     A     
 END                SX4    10                                                              END          423     A     
 END       END42    IX2    X2-X4                                                           END          424     A     
 END                =B3    B3+1        INCREMENT QUOTIENT                                  END          425     A     
 END                ZR     X2,END43    IF ZERO REMAINDER                                   END          426     A     
 END                PL     X2,END42    IF DIVIDEND STILL POSITIVE                          END          427     A     
 END       END43    SX0    B3                                                              END          428     A     
 END                IX7    X7+X0       ADVANCE ORIGIN                                      END          429     A     
 END                                                                                       END          430     A     
 END       #RM      IFEQ   OT#RM,7                                                         END          431     A     
 END                                                                                       END          432     A     
 END                SA1    OT.RM                                                           END          433     A     
 END                ZR     X1,END4     IF 6RM OBJECT CODE                                  END          434     A     
 END                BX2    -X2         NO. OF UNUSED CHARS                                 END          435     A     
 END                BX6    X2                                                              END          436     A     
 END                LX2    2           *4                                                  END          437     A     
 END                SA4    A4          WSA DESCRIPTOR                                      END          438     A     
 END                LX6    1           *2                                                  END          439     A     
 END                IX2    X6+X2       *6, NO. OF UNUSED BITS                              END          440     A     
 END                MX6    24                                                              END          441     A     
 END                LX2    18                                                              END          442     A     
 END                BX4    X6*X4       REMOVE MRL FIELD                                    END          443     A     
 END                IX0    X2+X0       36/0,6/UNUSED BITS,18/NO. WORDS                     END          444     A     
 END                BX6    X4+X0       REVISED WSA DESCRIPTOR                              END          445     A     
 END                SA6    A4                                                              END          446     A     
 END                                                                                       END          447     A     
 END       #RM      ENDIF                                                                  END          448     A     
 END                                                                                       END          449     A     
 END                EQ     END4        LOOP..                                              END          450     A     
 END                                                                                       END          451     A     
 END       END45    SA7    LOCAL       LOCAL LENGTH                                        END          452     A     
 END                                                                                       END          453     A     
 END                RJ     GCL                                                             FCC0709        8     A     
 END                SA6    =XCOMSIZ                                                        FCC0709        9     A     
 END                                                                                       END          454     A     
 END      **        FINISH LISTABLE OUTPUT.                                                END          455     A     
 END      *         1.     DIAGNOSE PROGRAM TOO BIG, MISSING STATEMENT LABELS, AND         END          456     A     
 END      *                            UNTERMINATED DO-S.                                  END          457     A     
 END      *         2.     *COMPASS*-STYLE LISTING OF MISCELLANEOUS BINARY.                END          458     A     
 END      *         3.     *END* CARD.                                                     END          459     A     
 END                                                                                       END          460     A     
 END                SA5    LOCAL                                                           END          461     A     
 END                IX5    X5+X6       ADD IN LOCAL COMMON LENGTHS                         FCC0709       10     A     
 END                AX5    17                                                              END          462     A     
 END                NZ     X5,E.MO1    IF PROGRAM-UNIT TOO BIG                             END          463     A     
 END                EQ     CKS         CHECK MISSING STATEMENT NUMBERS                     END          464     A     
 END      *         ...                                                                    FEAT126C     108     A     
 END       CKSX     BSS    0           ** RETURN FROM CKS.                                 END          465     A     
 END                SA1    LOCAL                                                           FEAT155G     249     A     
 END                SA2    =XCOMSIZ                                                        FEAT155G     250     A     
 END                IX1    X1+X2                                                           FEAT155G     251     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 739    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                BX7    X1                                                              FEAT155G     252     A     
 END                SA7    OTRSAV                                                          FEAT155G     253     A     
 END                SA3    =XCP.LSTF                                                       FCC2069A       8     A     
 END                ZR     X3,END50    IF L=0 WAS USED                                     FCC2069A       9     A     
 END                SA3    =XLOP=M     IF R=0 WAS USED                                     FCC2259       11     A     
 END                PL     X3,END50                                                        FCC2259       12     A     
 END                PIA    ,=XLPS.PL                                                       FEAT155G     254     A     
 END                SA2    ERRORS      FATAL ERROR COUNTER                                 FEAT155G     255          I
          -FCC1524X 
 END                NZ     X2,WCLX     IF FATAL, SKIP *OL* STUFF                           FEAT155G     256          I
          -FCC1524X 
 END                SA1    LOP=O                                                           END          466          I
          -FCC1524X 
 END                SA3    =XMOD                                                           FCC1524X      12          I
          -FCC2069A 
 END       END50    SA3    =XMOD                                                           FCC2069A      10     A     
 END                SA2    ERRORS                                                          FCC1524X      13     A     
 END                SBIT   X3,PBLK                                                         FCC1524X      14     A     
 END                NZ     X2,WCLX     IF ERRORS                                           FCC1524X      15     A     
 END                SA1    LOP=O                                                           FCC1524X      16     A     
 END                MI     X3,WCLX     IF BLOCK DATA                                       FCC1524X      17     A     
 END                MI     X1,WCL      IF OBJECT LISTING SELECTED                          END          467          I
          -FEAT155G 
 END                MI     X1,=XWCL    IF OBJECT LIST SELECTED                             FEAT155G     257     A     
 END      *         ...                                                                    END          468     A     
 END       WCLX     BSS    0           ** RETURN FROM *WCL*.                               END          469     A     
 END                PIA    LOCAL,LPS.PL                                                    END          470          I
          -FCC0709
 END                SA1    LOCAL                                                           FCC0709       11          I
          -FEAT155G 
 END                SA2    =XCOMSIZ                                                        FCC0709       12          I
          -FEAT155G 
 END                IX1    X1+X2                                                           FCC0709       13          I
          -FEAT155G 
 END                PIA    ,LPS.PL                                                         FCC0709       14          I
          -FEAT155G 
 END                SA6    PIG=IG                                                          END          471          I
          -FEAT126A -FEAT155G 
 END                SA6    LINEBUF                                                         FEAT126A     756          I
          -FEAT155G 
 END                SA3    MOD                                                             END          472          I
          -FEAT155G 
 END                SA2    IDENT                                                           END          473          I
          -FEAT155G 
 END                SA1    =7REND                                                          END          474          I
          -FEAT155G 
 END                SBIT   X3,PPRO                                                         END          475          I
          -FEAT155G 
 END                SA4    =1H                                                             END          476          I
          -FEAT155G 
 END                AX3    -0                                                              END          477          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 740    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                BX6    X4                                                              END          478          I
          -FEAT155G 
 END                BX2    X2*X3                                                           END          479          I
          -FEAT155G 
 END                SA6    A6+B1                                                           END          480          I
          -FEAT155G 
 END                BX6    X1                                                              END          481          I
          -FEAT155G 
 END                RJ     PVF         PRINT *END* LINE                                    END          482          I
          -FEAT155G 
 END                SA1    =XLOP=O                                                         FEAT126A     757          I
          -FEAT155G 
 END                MI     X1,=XLBS    IF OL REQUESTED                                     FEAT126A     758          I
          -FEAT155G 
 END      *         ...                                                                    FCC0635        4          I
          -FEAT155G 
 END       LBSX     BSS    0                                                               FEAT126A     759          I
          -FEAT155G 
 END       SNAP=E   IFNE   TEST        DUMP ADDRESS TABLE                                  END          483     A     
 END                SA1    CO.SNAP                                                         END          484     A     
 END                LX1    1RE                                                             END          485     A     
 END                PL     X1,END50S   IF END SNAP NOT SELECTED                            END          486     A     
 END                DUMPT  TA.NAM                                                          END          487     A     
 END       END50S   BSS    0                                                               END          488     A     
 END       SNAP=E   ENDIF                                                                  END          489     A     
 END                                                                                       END          490     A     
 END                                                                                       END          491     A     
 END      **        OUTPUT THE BINARY.                                                     END          492     A     
 END                                                                                       END          493     A     
 END       END70    SA2    FV.LGO                                                          END          494          I
          -FCC0813
 END       END70    ALLOC  =XT.LGOB,=XLB.LGO  GET ROOM FOR LGO BUFFER                      FCC0813       96     A     
 END                SA2    FV.LGO                                                          FCC0813       97     A     
 END                ZR     X2,END80    IF BINARY COMPLETELY SUPPRESSED                     END          495     A     
 END                                                                                       END          496     A     
 END                IFNE   CP#RM,7,1                                                       END          497     A     
 END                RECALL F.LGO                                                           END          498     A     
 END                                                                                       END          499     A     
 END                                                                                       END          500     A     
 END                EQ     DFT         DUMP FIRST TABLES                                   END          501     A     
 END      *         ...                                                                    FEAT126C     109     A     
 END       DFTX     BSS    0           ** NORMAL RETURN FROM DFT                           END          502     A     
 END                BX6    0                                                               END          503     A     
 END                SHRINK TT=LINK,X6                                                      END          504     A     
 END                SHRINK TT=FILL,X6                                                      END          505     A     
 END                SHRINK =XTT=XFIL,X6                                                    END          506     A     
 END                                                                                       END          507     A     
 END                SA1    BA.CON                                                          END          508     A     
 END                RJ     KCF         GET RID OF CONSTANTS AND FORMATS                    END          509     A     
 END                                                                                       END          510     A     
 END                RJ     DDS         DUMP *DATA* STATEMENTS                              END          511     A     
 END                                                                                       END          512     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 741    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                SA2    NREXT                                                           END          513     A     
 END                ALLOC  TT.LINK,X2  ALLOCATE BASIC LINK TABLE                           END          514     A     
 END                ALLOC  TT.FILL,1   ALLOCATE BASIC FILL TABLE                           END          515     A     
 END                ALLOC  =XTT.XFIL,1 ALLOCATE EXTENDED FILL TABLE                        END          516     A     
 END                                                                                       END          517     A     
 END                SA1    BA.PRO                                                          END          518     A     
 END                RJ     RAD         RELOCATE AND OUTPUT THE LONG FILE.                  END          519     A     
 END                                                                                       END          520     A     
 END                SA1    BA.APL                                                          END          521     A     
 END                RJ     KAP         COMPILE *AP-LIST* TEXT                              END          522     A     
 END                SHRINK TP=APL,0    TRASH TABLE                                         FCC0813       98     A     
 END                                                                                       END          523     A     
 END                SA1    BA.NLST                                                         END          524     A     
 END                RJ     KNS         COMPILE *NAMELIST* SPACE                            END          525     A     
 END                                                                                       END          526     A     
 END                RJ     DTX                                                             END          527     A     
 END                                                                                       END          528     A     
 END                                                                                       F66FCC       221     A     
 END       #FID     IFNE   .FID,0                                                          F66FCC       222     A     
 END                RJ     DFD         DUMP 5600/5700 TABLES                               F66FCC       223     A     
 END                SHRINK =XTP=CIDM,0 COLLASPE TP.CDIM                                    F66FCC       224     A     
 END       #FID     ENDIF                                                                  F66FCC       225     A     
 END                RJ     DLF         FLUSH LINK AND FILL TABLES                          END          529     A     
 END                SA3    MOD                                                             END          530     A     
 END                IFBIT  X3,-PPRO,END80                                                  END          531     A     
 END                WLGO   BT.XFER,2                                                       END          532     A     
 END                                                                                       END          533     A     
 END      *                            *DFT* RETURNS TO HERE IF ERRORS.                    END          534     A     
 END                                                                                       END          535     A     
 END       END80    SA1    LGOIO                                                           END          536     A     
 END                PL     X1,END82    IF LGO NOT ON DISK                                  END          537     A     
 END                WRITER F.LGO                                                           END          538     A     
 END       END82    SHRINK TT=LF       TRASH ALL TABLES NO LONGER NEEDED                   END          539     A     
 END                SHRINK TS=CON,X6                                                       END          540     A     
 END                SHRINK TP=FMT,X6                                                       END          541     A     
 END                SHRINK TP=APL,X6                                                       END          542     A     
 END                SHRINK TP=NLST,X6                                                      END          543     A     
 END                SHRINK TS=DAT,X6                                                       END          544     A     
 END                                                                                       END          545     A     
 END                SA1    LOP=M                                                           END          546     A     
 END                MI     X1,WVM      IF VAR MAP SELECTED                                 END          547          I
          -FEAT155G 
 END                MI     X1,=XWVM    IF VAR MAP ON                                       FEAT155G     258     A     
 END      *         ...                                                                    END          548     A     
 END       WVMX     BSS    0           ** RETURN FROM *WVM*.                               END          549     A     
 END                SA1    MAXCORE                                                         END          550          I
          -FCC0813
 END                SA1    =XCP.NFLS                                                       FCC0813       99     A     
 END                SA3    CP.MXFL                                                         END          551     A     
 END                SA2    CARDS                                                           END          552          I
          -FEAT155G 
 END                SA4    CARDSB                                                          END          553          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 742    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
          -FEAT155G 
 END                SX1    X1+1S6-1                                                        END          554     A     
 END                AX1    6                                                               END          555     A     
 END                IX7    X2+X4       ACCUMULATE TOTAL CARDS IN BATCH                     END          556          I
          -FEAT155G 
 END                LX1    6           ROUND UP TO NEAREST 100B                            END          557     A     
 END                BX2    X1                                                              END          558     A     
 END                SA7    A4                                                              END          559          I
          -FEAT155G 
 END                MX6    X2+X3       MAX CORE USED BY ANY SUBPROGRAM                     END          560     A     
 END                SA6    A3                                                              END          561     A     
 END                SA2    =XCP.LSTF                                                       END          562     A     
 END                NZ     X2,LPS      IF NOT SHORT LIST                                   END          563          I
          -FEAT126B 
 END                SA3    =XNOLIST                                                        FEAT126B      64     A     
 END                ZR     X2,LPSX     IF SHORT LIST (L=0)                                 FEAT126B      65          I
          -FEAT155G 
 END                MI     X3,LPS      IF *C/-LIST,ALL* ACTIVE AT END LINE TIME            FEAT126B      66          I
          -FEAT155G 
 END                ZR     X2,LFSX     IF SHORT LIST (L=0)                                 FEAT155G     259     A     
 END                MI     X3,LFS      IF *C/-LIST,ALL* ACTIVE LIST FINAL STATS            FEAT155G     260     A     
 END      *         ...                                                                    END          564     A     
 END       LPSX     BSS    0           ** RETURN FROM LPS                                  END          565          I
          -FEAT155G 
 END       LFSX     BSS    0           ** RETURN FROM LFS                                  FEAT155G     261     A     
 END                                                                                       END          566     A     
 END      **        RETURN TO INITIAL FIELD LENGTH                                         FEAT155D      47     A     
 END                                                                                       FEAT155D      48     A     
 END                SA1    =XINT.FL                                                        FEAT155D      49     A     
 END                SA2    =XCP.AFLS                                                       FEAT155D      50     A     
 END                LX2    30                                                              FEAT155D      51     A     
 END                IX3    X1-X2                                                           FEAT155D      52     A     
 END                ZR     X3,END86    IF FL SAME AS AT START                              FEAT155D      53     A     
 END                MEMORY SCM,=XINT.FL,RCL                                                FEAT155D      54     A     
 END                SA1    =XINT.FL                                                        FEAT155D      55     A     
 END       END86    AX1    30                                                              FEAT155D      56     A     
 END                BX6    X1                                                              FEAT155D      57     A     
 END                SA6    =XCP.AFLS                                                       FEAT155D      58     A     
 END                SX7    X6-10       ALLOW FOR SLOP                                      FEAT155D      59     A     
 END                LX6    30                                                              FEAT155D      60     A     
 END                SA6    A1          CLEAR COMPLETE BIT                                  FEAT155D      61     A     
 END                SA7    =XCP.NFLS                                                       FEAT155D      62     A     
 END                SA7    =XT.END                                                         FCC1328AX      9     A     
 END                SA1    =XF.TABS    FWA TABLES                                          FEAT155D      63     A     
 END                IX7    X7-X1                                                           FEAT155D      64     A     
 END                SA7    =XW.TABS    WIDTH OF TABLE SPACE                                FEAT155D      65     A     
 END                AX7    FLSLOP                                                          FEAT155D      66     A     
 END                SA7    =XTHRESH    GIVE ALLOC SOME ELBOW ROOM                          FEAT155D      67     A     
 END                                                                                       FEAT155D      68     A     
 END      **        SEND ERROR MESSAGE TO DAYFILE + CONSOLE.                               END          567     A     
 END                                                                                       END          568     A     
 END                                                                                       END          569     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 743    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END       END93    SA3    ERRORS      FATAL TO EXECUTION, UNLESS *DEBUG*                  END          570          I
          -FCC0813
 END       END93    SA3    ERRORS      TOTAL NUMBER OF FATAL ERRORS                        FCC0813      100     A     
 END                SA4    ERR=D       ABSOLUTELY FATAL TO EXECUTION                       END          571          I
          -FEAT126A 
 END                SA2    ERR=F       ERRORS IN CURRENT STATEMENT                         END          572     A     
 END                IX3    X2+X3                                                           END          573          I
          -FEAT126A 
 END                IX1    X3+X4                                                           END          574          I
          -FEAT126A 
 END                IX1    X2+X3                                                           FEAT126A     760     A     
 END                SA2    CP.ERCT                                                         END          575     A     
 END                ZR     X1,=XRUN.X  IF NO ERRORS IN THIS ROUTINE, EXIT..                END          576     A     
 END                IX6    X1+X2       UPDATE JOB ERROR COUNT                              END          577     A     
 END                MX0    1                                                               END          578          I
          -FEAT126A 
 END                BX4    -X4*X0                                                          END          579          I
          -FEAT126A 
 END                BX6    -X4*X6      OFF FORCE BIN SWITCH IF ANY *D* ERRORS              END          580          I
          -FEAT126A 
 END                SA6    A2                                                              END          581     A     
 END                SB6    X1          SAVE NUMBER OF ERRORS                               END          582     A     
 END                RJ     CDD                                                             END          583     A     
 END                SA1    =10H  FORTRAN                                                   END          584     A     
 END                SA6    LINEBUF                                                         END          585     A     
 END                SA3    =38LERROR IN  ERRORS IN COMPILATION.                            END          586     A     
 END                SA2    IDENT                                                           END          587     A     
 END                BX7    X1                                                              END          588     A     
 END                LE1    B6,END95    IF ONLY ONE ERROR                                   END          589     A     
 END                =A3    A3+1                                                            END          590     A     
 END       END95    =A7    A6+1        +1 =  FORTRAN                                       END          591     A     
 END                BX6    X3                                                              END          592     A     
 END                LX7    X2                                                              END          593     A     
 END                =A6    A7+1        +2 = ERROR(S) IN                                    END          594     A     
 END                =A7    A6+1        +3 = (IDENT)                                        END          595     A     
 END                MESAGE LINEBUF,,RCL                                                    END          596     A     
 END                PLINE  LINEBUF,1                                                       END          597          I
          -FEAT126A 
 END                PLINE  LINEBUF,4,1                                                     FEAT126A     761     A     
 END                                                                                       END          598     A     
 END                EQ     RUN.X       EXIT..                                              END          599     A     
 END                                                                                       FCC0931        7     A     
 END      **        THIS IS ENTERED WHEN TABLE OVERFLOW WAS ENCOUNTERED DURING             FCC0931        8     A     
 END      *         MAP OR END PROCESSING.                                                 FCC0931        9     A     
 END                                                                                       FCC0931       10     A     
 END       END96    WLGO   BT.ERR,3                                                        FCC0931       11     A     
 END                EQ     END93                                                           FCC0931       12     A     
 END       BT.---   SPACE  4,15                                                            END          600          I
          -FEAT126C 
 END       BT.---   EJECT                                                                  FEAT126C     110     A     
 END      **        BT.--- BINARY OUTPUT TABLE DEFINITIONS.                                END          601     A     
 END                                                                                       END          602     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 744    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                                                                                       END          603     A     
 END       BT=PIDL  EQU    3400B       PROGRAM/BLOCK TABLE                                 END          604     A     
 END       BT=ENTR  EQU    3600B       ENTRY POINT TABLE                                   END          605     A     
 END       BT=TEXT  EQU    4000B       RELOCATABLE TEXT TABLE                              END          606     A     
 END       BT=XFILL EQU    4100B       EXTENDED FILL OR *XFILL* TABLE                      END          607     A     
 END       BT=FILL  EQU    4200B       COMMON *FILL* TABLE                                 END          608     A     
 END       BT=REPL  EQU    4300B       DATA REPLICATION TABLE                              END          609     A     
 END       BT=LINK  EQU    4400B       EXTERNAL *LINK* TABLE                               END          610     A     
 END       BT=XFER  EQU    4600B       TRANSFER ADDRESS TABLE                              END          611     A     
 END       BT=XLINK EQU    4500B       XLINK TABLE                                         FCCA408       82     A     
 END       #FID     IFNE   .FID,0                                                          F66FCC       226     A     
 END       BT=LSTN  EQU    5700B       LOADER STMT AND LINE NUMBER TABLE                   F66FCC       227     A     
 END       BT=LSYM  EQU    5600B       LOADER SYMBOL TABLE                                 F66FCC       228     A     
 END       #FID     ENDIF                                                                  F66FCC       229     A     
 END       BT=LDSET EQU    7000B       *LDSET* OBJECT DIRECTIVE                            END          612     A     
 END       BT=LIB   EQU      10B             *LIB* SUB-DIRECTIVE                           END          613     A     
 END       BT=USE   EQU      16B             *USE* SUB-DIRECTIVE                           F162FTNA     411     A     
 END       BT=IDNT  EQU    7700B       IDENT (PRFX) TABLE                                  END          614     A     
 END                                                                                       END          615     A     
 END       #FID     IFNE   .FID,0                                                          F66FCC       230     A     
 END       BT=MXWC  EQU    7777B       MAXIMUM WORD COUNT PER TABLE OUTPUT TO LGO          F66FCC       231     A     
 END       #FID     ENDIF                                                                  F66FCC       232     A     
 END                                                                                       F66FCC       233     A     
 END      *         THE FOLLOWING DEFINITIONS ARE FOR LOADER SYMBOL TABLES.                F66FCC       234     A     
 END      *                                                                                F66FCC       235     A     
 END      *         HEADER WORD                                                            F66FCC       236     A     
 END                                                                                       F66FCC       237     A     
 END       BTFT     DEFINE 24,12       FORTRAN INDICATOR FIELD                             F66FCC       238     A     
 END       BTFI     DEFINE 23,1        FINAL TABLE FIELD                                   F66FCC       239     A     
 END                                                                                       F66FCC       240     A     
 END      *         WORD ONE                                                               F66FCC       241     A     
 END                                                                                       F66FCC       242     A     
 END       BTNM     DEFINE 18,42       NAME FIELD                                          F66FCC       243     A     
 END       BTBI     DEFINE 9,9         RELOCATION BASE INDICATOR                           F66FCC       244     A     
 END                                                                                       F66FCC       245     A     
 END      *         WORD TWO                                                               F66FCC       246     A     
 END                                                                                       F66FCC       247     A     
 END       BTLM     DEFINE 59,1        LCM BIT                                             F66FCC       248     A     
 END       BTFP     DEFINE 58,1        FP BIT                                              F66FCC       249     A     
 END       BTDC     DEFINE 57,1        CONSTANT UPPER BOUND BIT                            F66FCC       250     A     
 END       BTTP     DEFINE 51,5        TYPE FIELD                                          F66FCC       251     A     
 END       BTDM     DEFINE 46,5        NUMBER OF DIMENSIONS FIELD                          F66FCC       252     A     
 END       BTLC     DEFINE 30,25       LENGTH OF CHARACTERS                                F66FCC       253     A     
 END       BTCP     DEFINE 24,3        BCP = BEGIN CHAR POSITION                           F66FCC       254     A     
 END       BTAD     DEFINE 0,24        RELATIVE ADDRESS FIELD                              F66FCC       255     A     
 END       #FID     ENDIF                                                                  F66FCC       256     A     
 END                                                                                       END          616          I
          -F162FTNA 
 END       BTCN     DEFINE 48,12       CODE NUMBER                                         END          617          I
          -F162FTNA 
 END       BTWC     DEFINE 36,12       WORD COUNT                                          END          618          I
          -F162FTNA 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 745    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END       BTRL     DEFINE 18,9        RELOCATION BASE                                     END          619          I
          -F162FTNA 
 END       BTYP     DEFINE 17          BLOCK TYPE (PIDL DESCRIPTORS)                       END          620          I
          -F162FTNA 
 END       L.BTRB   EQU    4           WIDTH OF A RELOCATION BYTE                          END          621          I
          -F162FTNA 
 END                                                                                       END          622     A     
 END       L.77     EQU    16B                                                             END          623     A     
 END                                                                                       END          624     A     
 END       MODLVL   MICRO  1,5,/"MODLVL"     /                                             END          625     A     
 END       TARGET   MICRO  2,1,/"MODEL"/                                                   END          626          I
          -FCC1264
 END       TARGET   MICRO  "TARGET"*2-3,2,/626466XX76/                                     END          627          I
          -FCC1264
 END                                                                                       FCC1264       12     A     
 END      **        TARGET - TWO CHARACTERS INDICATING THE TYPE OF PROCESSOR FOR           FCC1264       13     A     
 END      *                  WHICH THE PROGRAM IS OPTIMIZED.                               FCC1264       14     A     
 END      *                                                                                FCC1264       15     A     
 END      *         VALID - TWO CHARACTERS INDICATING THE TYPE OF PROCESSOR ON             FCC1264       16     A     
 END      *                 WHICH THE PROGRAM CAN BE EXECUTED.                             FCC1264       17     A     
 END      *                                                                                FCC1264       18     A     
 END      *         TARGET  AND  VALID  ARE CALCULATED FROM  MODEL                         FCC1264       19     A     
 END      *                                                                                FCC1264       20     A     
 END      *         MODEL      -->      TARGET     -->      VALID                          FCC1264       21     A     
 END      *         71                  64                  64                             FCC1847X       8     A     
 END      *         72                  64                  64                             FCC1264       22     A     
 END      *         73                  64                  64                             FCC1264       23     A     
 END      *         74                  66                  6X                             FCC1264       24     A     
 END      *         76                  76                  7X                             FCC1264       25     A     
 END      *         171                 64                  64                             FCC1847X       9     A     
 END      *         172                 64                  64                             FCC1264       26     A     
 END      *         173                 64                  64                             FCC1264       27     A     
 END      *         174                 64                  64                             FCC1264       28     A     
 END      *         175                 C5                  CX                             FCC1264       29     A     
 END      *         176                 76                  7X                             FCC1264       30     A     
 END      *                                                                                FCC1264       31     A     
 END                                                                                       FCC1264       32     A     
 END       A        MICCNT MODEL                                                           FCC1264       33          I
          -F2950F4
 END       TARGET   MICRO  A,1,/"MODEL"/                                                   FCC1264       34          I
          -F2950F4
 END       C        SET    0                                                               FCC1264       35          I
          -F2950F4
 END                IFEQ   A,3,1                                                           FCC1264       36          I
          -F2950F4
 END       C        SET    A*4                                                             FCC1264       37          I
          -F2950F4
 END       Z        MICRO  "TARGET"*2+C-1,1,/XX646466XX76XX6464647576/                     FCC1264       38          I
          -FCC1847X 
 END       Z        MICRO  "TARGET"*2+C-1,1,/64646466XX76646464647576/                     FCC1847X      10          I
          -F2950F4
 END       TARGET   MICRO  "TARGET"*2+C-1,2,/XX646466XX76XX646464C576/                     FCC1264       39          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 746    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
          -FCC1847X 
 END       TARGET   MICRO  "TARGET"*2+C-1,2,/64646466XX7664646464C576/                     FCC1847X      11          I
          -F2950F4
 END       X        MICRO  1,1,/"TARGET"/                                                  END          628          I
          -F2950F4
 END       Y        MICRO  2,1,/"TARGET"/                                                  END          629          I
          -F2950F4
 END       Y        MICRO  "X"*10-59+"Y",1,/012345XXXXXXXXXXXXXX/                          END          630          I
          -FCC1264
 END       Y        MICRO  "Z"*10-59+"Y",1,/012345XXXXXXXXXXXXXX/                          FCC1264       40          I
          -F2950F4
 END       VALID    MICRO  1,,/"X""Y"/                                                     END          631          I
          -F2950F4
 END       .TMP     MICRO  2,1,/"MDL"/                                                     F2950F4      107     A     
 END       TARGET   MICRO  2*".TMP"-5,2,/6466C576/                                         F2950F4      108     A     
 END       VALID    MICRO  2*".TMP"-5,2,/646XCX7X/                                         F2950F4      109     A     
 END                                                                                       END          632     A     
 END       BT.IDNT  BSS    0           PREFIX TABLE LAYOUT                                 END          633     A     
 END                                                                                       END          634     A     
 END                LOC    0                                                               END          635     A     
 END                                                                                       END          636     A     
 END                VFD    L.BTCN/BT=IDNT,L.BTWC/L.77,*P/0                                 END          637     A     
 END                DIS    1,*******         DECK NAME                                     END          638     A     
 END                DIS    2, MM/DD/YY  HH.MM.SS.                                          END          639     A     
 END                DATA   10H"OS.NAME""OS.VER"                                            END          640          I
          -S3143FC
 END                DATA   10H"OS.ID"                                                      S3143FC       35     A     
 END                DATA   10H"LPNAME""VER"                                                END          641     A     
 END                VFD    30/5H"MODLVL",12/2H"TARGET",12/2H"VALID",6/1H                   END          642     A     
 END                DATA   2H I        HARDWARE DEPENDENCIES                               END          643     A     
 END       BT.IDN8  DIS    1,          PROG-UNIT TYPE                                      END          644     A     
 END      *                                           ---  OPTIONS  ---                    END          645     A     
 END       BT.IDN9  DIS    1,          DBUG TRACE                                          END          646     A     
 END       BT.IDNTA DIS    1,                               ROUND SYS                      END          647     A     
 END       BT.IDNTU BSSZ   L.77-*+1                        USER COMMENT                    END          648     A     
 END                                                                                       END          649     A     
 END                LOC    *O                                                              END          650     A     
 END                                                                                       END          651     A     
 END                                                                                       END          652     A     
 END      **        BT.LIB - *LDSET(LIB=FORTRAN)* LOADER OBJECT DIRECTIVE.                 END          653     A     
 END                                                                                       END          654     A     
 END       BT.LIB   VFD    L.BTCN/BT=LDSET,L.BTWC/BT.LIBL-1,*P/0                           END          655     A     
 END                VFD    L.BTCN/BT=LIB__,L.BTWC/BT.LIBL-2,*P/0                           END          656          I
          -F162FTNA 
 END                VFD    L.BTCN/BT=LIB,L.BTWC/BT.LIBL-2,*P/0                             F162FTNA     412     A     
 END                ECHO   1,N=(FORTRAN,SYSIO)                                             END          657          I
          -FEAT155K 
 END                DATA   C N                                                             END          658          I
          -FEAT155K 
 END       .OS      IFEQ   .OS,1       KRO/NOS ONLY                                        FEAT155K       5          I
          -FCCA405
 END                DATA   L TSLIB     QUICK LIBRARY FOR TSFTN                             FEAT155K       6          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 747    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
          -FCCA405
 END       .OS      ENDIF                                                                  FEAT155K       7          I
          -FCCA405
 END                DATA   L FORTRAN   NORMAL FTN COMMON LIBRARY                           FEAT155K       8     A     
 END                IFNE   OT#RM,7,1                                                       FCC1681X       4          I
          -F162FTNA 
 END                DATA   L SYSIO     CYBER RECORD MANAGER                                FEAT155K       9          I
          -F162FTNA 
 END       BT.LIBL  EQU    *-BT.LIB                                                        END          659     A     
 END                                                                                       END          660     A     
 END                                                                                       END          661     A     
 END      **        BT.ERR - THIS LINE IS ALL THE BINARY OUTPUT IF THERE WERE              END          662     A     
 END      *                FATAL ERRORS.                                                   END          663     A     
 END                                                                                       END          664     A     
 END       BT.ERR   LIT    28LERRORS IN COMPILATION.                                       END          665     A     
 END                                                                                       END          666     A     
 END                                                                                       END          667     A     
 END      **        BT.1ST - FIRST *TEXT* OUTPUT FOR EVERY EXECUTABLE PROGRAM-UNIT         END          668     A     
 END      *         CONSISTS OF --                                                         END          669     A     
 END      *                  ORG    0                                                      END          670     A     
 END      *         TRACE.   VFD    42/0LNAME,18/NAME        L +                           END          671     A     
 END      *         TEMPA0.  DATA   1777BS48                                               END          672     A     
 END      *         SAVEA0.  DATA   1777BS48                                               END          673     A     
 END                                                                                       END          674     A     
 END       A        SET    P.BTWC-P.BTRL                                                   END          675     A     
 END       BT.CONS  VFD    L.BTCN/BT=TEXT,L.BTWC/1,A/1,*P/0                                END          676     A     
 END       BT.1ST   VFD    L.BTCN/BT=TEXT,L.BTWC/BT.1STL,A/1,*P/0                          END          677     A     
 END                VFD    L.BTRB/2,*P/0                                                   END          678     A     
 END                VFD    42/7L*******,18/1S17                                            END          679     A     
 END                DATA   1777BS48                                                        END          680     A     
 END                DATA   1777BS48                                                        END          681     A     
 END       BT.1STL  EQU    *-BT.1ST-1                                                      END          682     A     
 END                                                                                       END          683          I
          -F162FTNA 
 END                                                                                       END          684          I
          -F162FTNA 
 END       BT.---   SPACE  4,8                                                             F162FTNA     413     A     
 END      **        BT.FIT - FILE INFORMATION TABLE TEMPLATE.                              END          685     A     
 END                                                                                       END          686     A     
 END      *         FIT TEXT TABLE HEADER WORD                                             END          687          I
          -F162FTNA 
 END       BT.FIT2  VFD    L.BTCN/BT=TEXT,L.BTWC/BT.FIT1+1,*P/**                           END          688          I
          -F162FTNA 
 END      *         POSSIBLE RELOC BYTES WORDS                                             END          689          I
          -F162FTNA 
 END       BT.FIT3  VFD    4/,4/2,4/,4/,4/,4/2,*P/0       6RM NO MRL                       END          690          I
          -F162FTNA 
 END                VFD    4/,4/2,4/,4/,4/,4/2,4/2,*P/0   6RM W/MRL                        END          691          I
          -F162FTNA 
 END                VFD    4/,4/,4/,4/,4/,4/,4/2,*P/0     7RM W/MRL                        END          692          I
          -F162FTNA 
 END                                                                                       END          693          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 748    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
          -F162FTNA 
 END      *         TEXT TABLE                                                             END          694          I
          -F162FTNA 
 END                                                                                       END          695          I
          -F162FTNA 
 END       BT.FIT   VFD    *P/**       FILLED BY FIT TEXT TABLE HEADER WORD                END          696          I
          -F162FTNA 
 END                VFD    *P/**       FILLED BY RELOC BYTES WORD                          END          697          I
          -F162FTNA 
 END                                                                                       END          698          I
          -F162FTNA 
 END      *         6RM/7RM FIT SKELETON                                                   END          699          I
          -F162FTNA 
 END                                                                                       END          700          I
          -F162FTNA 
 END       BT.FIT0  DATA   0                       FILE NAME (BY Q8NTRY)                   END          701          I
          -F162FTNA 
 END                VFD    42/0,18/**              FET ADDR                                END          702          I
          -F162FTNA 
 END                VFD    24/0,2/2,2/0,2/2,2/3,28/0 OF=N,CF=N,LT=ANY                      END          703          I
          -F162FTNA 
 END                VFD    24/0,18/**,18/0         CIO BUFFER LENGTH                       END          704          I
          -F162FTNA 
 END                DATA   0                                                               END          705          I
          -F162FTNA 
 END                VFD    28/0,1/1,13/0,18/**     SDS=YES,CIO BUFFER FWA                  END          706          I
          -F162FTNA 
 END                VFD    24/**,11/0,3/6,22/**    MRL,EO=AD,WSA FWA                       END          707          I
          -F162FTNA 
 END       BT.FIT1  =      *-BT.FIT0                                                       END          708          I
          -F162FTNA 
 END                                                                                       END          709          I
          -F162FTNA 
 END                                                                                       END          710          I
          -F162FTNA 
 END                                                                                       END          711          I
          -F162FTNA 
 END      *         CRM FIT TEMPLATES.                                                     F162FTNA     414     A     
 END                                                                                       F162FTNA     415     A     
 END       .RM      IFEQ   OT#RM,6                                                         F162FTNA     416     A     
 END                                                                                       F162FTNA     417     A     
 END      *         CRM FIT LOADER TEXT TABLES.                                            F162FTNA     418     A     
 END                                                                                       F162FTNA     419     A     
 END       BT.FITC  BSS    0           BEGIN CRM FIT TEXT TABLES                           F162FTNA     420     A     
 END                                                                                       F162FTNA     421     A     
 END      *         CRM FIT SECTION (A).                                                   F162FTNA     422     A     
 END                                                                                       F162FTNA     423     A     
 END       A        SET    P.BTWC-P.BTRL-L.BTRL                                            F162FTNA     424     A     
 END       BT.FCAH  VFD    L.BTCN/BT=TEXT,L.BTWC/BT.FCAL+1,A/0,L.BTRL/1,*P/**              F162FTNA     425     A     
 END                VFD    *P/**       FILLED BY RELOCATION BYTES                          F162FTNA     426     A     
 END                                                                                       F162FTNA     427     A     
 END       BT.FCA   VFD    42/**,17/0,1/1    FILE NAME, CIO COMPLETE BIT                   F162FTNA     428     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 749    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                VFD    42/0,18/**  FWA CIRCULAR BUFFER (FWB)                           F162FTNA     429          I
          -FCCA408
 END                VFD    36/0,6/L.FIT6-L.FCLX-5,18/**                                    FCCA408       83     A     
 END                                   (FIT LENGTH - 5) + FWA CIRCULAR BUFFER              FCCA408       84     A     
 END                VFD    60/0        ZERO WORD FOR REPL (MUST IMM PRECEDE REPL)          F162FTNA     430     A     
 END                                                                                       F162FTNA     431     A     
 END       BT.FCAL  =      *-BT.FCA    LENGTH OF FIT SECTION (A)                           F162FTNA     432     A     
 END                                                                                       F162FTNA     433     A     
 END      *         BT.REPC - CRM FIT REPLICATION TABLE.                                   F162FTNA     434     A     
 END      *         NOTE - REPL TABLE MUST IMMEDIATELY FOLLOW FIT (A) TEXT TABLE.          F162FTNA     435     A     
 END                                                                                       F162FTNA     436     A     
 END       BT.REPC  VFD    L.BTCN/BT=REPL,L.BTWC/2,*P/1                                    F162FTNA     437     A     
 END                VFD    33/0,9/1,18/**          REPL SOURCE                             F162FTNA     438     A     
 END                VFD    18/L.FIT6-BT.FCAL,*P/0  REPL COUNT (DEST ADDR=SOURCE+1)         F162FTNA     439     A     
 END                                                                                       F162FTNA     440     A     
 END      *         CRM FIT SECTION (B).                                                   F162FTNA     441     A     
 END                                                                                       F162FTNA     442     A     
 END       BT.FCBH  VFD    L.BTCN/BT=TEXT,L.BTWC/BT.FCBL+1,A/0,L.BTRL/1,*P/**              F162FTNA     443     A     
 END                VFD    *P/**       FILLED BY RELOC BYTES                               F162FTNA     444     A     
 END                                                                                       F162FTNA     445     A     
 END       BT.FCB   VFD    36/0,2/3,22/0     LT=ANY                                        F162FTNA     446     A     
 END                VFD    25/0,2/2,3/2,30/0 OF=N,LF=N                                     F162FTNA     447     A     
 END                VFD    24/**,36/0        *MRL* (MAX REC LEN)                           F162FTNA     448     A     
 END                VFD    2/0,2/3,56/0      DFC=3                                         F162FTNA     449     A     
 END                VFD    60/0                                                            F162FTNA     450     A     
 END                VFD    27/0,3/6,8/0,22/** EO=AD, FWA WSA                               F162FTNA     451     A     
 END                VFD    60/0                                                            F162FTNA     452     A     
 END                VFD    42/0,18/**        *BFS* (CIO CIRC BUFF SIZE)                    F162FTNA     453     A     
 END                DATA   0,0,0,0                                                         FCCA561       23     A     
 END                VFD    20/0,4/1,36/0       FORTRAN GENERATED FIT FLAG                  FCCA561       24     A     
 END                                                                                       F162FTNA     454     A     
 END       BT.FCBL  =      *-BT.FCB    LENGTH FIT (B)                                      F162FTNA     455     A     
 END                                                                                       F162FTNA     456     A     
 END      *         CRM FIT SECTION (C) -- *FCL* FIT EXTENSION.                            F162FTNA     457     A     
 END                                                                                       F162FTNA     458     A     
 END       BT.FCCH  VFD    L.BTCN/BT=TEXT,L.BTWC/BT.FCCL+1,A/0,L.BTRL/1,*P/**              F162FTNA     459     A     
 END                VFD    4/2,*P/0    POSITIVE RELOC OF LOWER ADDR                        F162FTNA     460     A     
 END                                                                                       F162FTNA     461     A     
 END       BT.FCC   VFD    *P/**       MRL, WSA                                            F162FTNA     462     A     
 END                                                                                       F162FTNA     463     A     
 END       BT.FCCL  =      *-BT.FCC    LENGTH FIT (C)                                      F162FTNA     464     A     
 END       BT.FCCTL =      *-BT.FCCH   LENGTH FIT (C) TEXT TABLE                           F162FTNA     465     A     
 END                                                                                       F162FTNA     466     A     
 END       BT.FITCL =      *-BT.FITC   LENGTH CRM FIT TEXT TABLES                          F162FTNA     467     A     
 END                                                                                       F162FTNA     468     A     
 END       .RM      ENDIF                                                                  F162FTNA     469     A     
 END                                                                                       F162FTNA     470     A     
 END                                                                                       F162FTNA     471     A     
 END      *         7RM FIT TEMPLATES.                                                     F162FTNA     472     A     
 END                                                                                       F162FTNA     473     A     
 END       .RM      IFEQ   OT#RM,7                                                         F162FTNA     474     A     
 END                                                                                       F162FTNA     475     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 750    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END      *         7RM FIT LOADER TEXT TABLES.                                            F162FTNA     476     A     
 END                                                                                       F162FTNA     477     A     
 END       BT.FIT7  BSS    0           BEGIN 7RM FIT TEXT TABLES.                          F162FTNA     478     A     
 END                                                                                       F162FTNA     479     A     
 END      *         7RM FIT SECTION (A).                                                   F162FTNA     480     A     
 END                                                                                       F162FTNA     481     A     
 END       A        SET    P.BTWC-P.BTRL-L.BTRL                                            F162FTNA     482     A     
 END       BT.F7AH  VFD    L.BTCN/BT=TEXT,L.BTWC/BT.F7AL+1,A/0,L.BTRL/1,*P/**              F162FTNA     483     A     
 END                VFD    *P/**       FILLED BY RELOCATION BYTES                          F162FTNA     484     A     
 END                                                                                       F162FTNA     485     A     
 END       BT.F7A   BSSZ   2                                                               F162FTNA     486     A     
 END                VFD    24/0,2/2,4/0,2/2,28/0   (OF)=N,(LT)=UNLABELED                   F162FTNA     487          I
          -FCCA561
 END                VFD    24/0,2/2,4/1,2/0,28/0   (OF)=N,(LT)=UNLABELED                   FCCA561       25     A     
 END                BSSZ   3                                                               F162FTNA     488     A     
 END                VFD    6/**,18/**,15/0,21/**   (MRL - UBC,WORDS), (WSA)                F162FTNA     489     A     
 END                DATA   0                                                               FCCA561       26     A     
 END                VFD    14/0,4/1,42/0       FORTRAN GENERATED FIT FLAG                  FCCA561       27     A     
 END                VFD    60/0        ZERO WORD FOR REPL (MUST IMM PRECEDE REPL)          F162FTNA     490     A     
 END                                                                                       F162FTNA     491     A     
 END       BT.F7AL  =      *-BT.F7A    LENGTH OF 7RM PARTIAL FIT                           F162FTNA     492     A     
 END                                                                                       F162FTNA     493     A     
 END      *         BT.REP7 - 7RM REPLICATION TABLE.                                       F162FTNA     494     A     
 END      *         NOTE - REPL TABLE MUST IMMEDIATELY FOLLOW FIT (A) TEXT TABLE.          F162FTNA     495     A     
 END                                                                                       F162FTNA     496     A     
 END       BT.REP7  VFD    L.BTCN/BT=REPL,L.BTWC/2,*P/1                                    F162FTNA     497     A     
 END                VFD    33/0,9/1,18/**          REPL SOURCE                             F162FTNA     498     A     
 END                VFD    18/L.FIT7-BT.F7AL,*P/0  REPL COUNT (DEST ADDR=SOURCE+1)         F162FTNA     499     A     
 END                                                                                       F162FTNA     500     A     
 END       BT.FIT7L =      *-BT.FIT7   LENGTH 7RM FIT TEXT TABLES                          F162FTNA     501     A     
 END                                                                                       F162FTNA     502     A     
 END       .RM      ENDIF                                                                  F162FTNA     503     A     
 END       BT.---   SPACE  4,5                                                             F162FTNA     504     A     
 END      **        BT.REP - REPLICATION TABLES BUILT HERE.                                END          712     A     
 END      *                NOTE - REP TABLE MUST IMMEDIATELY FOLLOW FIT SKELETON.          END          713          I
          -F162FTNA 
 END                                                                                       END          714     A     
 END       BT.REP   VFD    L.BTCN/BT=REPL,L.BTWC/2,*P/1                                    END          715     A     
 END                VFD    33/0,9/1,18/**         SOURCE OF REPL                           END          716     A     
 END                VFD    18/**,15/0,9/1,18/**   REPL COUNT,DESTINATION OF REPL           END          717     A     
 END       BTRI     DEFINE 27,18       I     DESTINATION INCREMENT                         END          718          I
          -F162FTNA 
 END       BTRC     DEFINE 42,18       C     REPLICATION COUNT                             END          719          I
          -F162FTNA 
 END                                                                                       END          720     A     
 END       BT.FITL  EQU    *-BT.FIT                                                        END          721          I
          -F162FTNA 
 END                                                                                       END          722          I
          -FEAT126A 
 END                                                                                       END          723          I
          -FEAT126A 
 END                                                                                       END          724          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 751    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
          -FEAT126A 
 END       PIG=IG   EQU    LINEBUF                                                         END          725          I
          -FEAT126A 
 END                                                                                       END          726     A     
 END      **        BT.TEXT - PARTIAL *TEXT* TABLE BUILT HERE.                             END          727     A     
 END                                                                                       END          728     A     
 END       BT.TXWC  DATA   0           WORD COUNT                                          END          729     A     
 END       BT.TEXT  DATA   0           PARTIAL TABLE PROPER                                END          730     A     
 END       BT.TXRB  DATA   0           RELOCATION BYTES                                    END          731     A     
 END                BSSZ   15                                                              END          732     A     
 END                                                                                       END          733     A     
 END       #FID     IFNE   .FID,0                                                          F66FCC       257     A     
 END       BT.TXTL  EQU    *-BT.TXRB   LENGTH OF WORKING BUFFER                            F66FCC       258     A     
 END       #FID     ENDIF                                                                  F66FCC       259     A     
 END                                                                                       END          734     A     
 END       BINWORD  DATA   0           PARTIAL BINARY OUTPUT WORD                          END          735     A     
 END       BINREL   DATA   0           PARTIAL RELOCATION                                  END          736     A     
 END                                                                                       END          737     A     
 END       BT.ENTR  VFD    L.BTCN/BT=ENTR,*P/0                                             END          738     A     
 END       BT.XFER  VFD    L.BTCN/BT=XFER,L.BTWC/1,*P/0                                    END          739     A     
 END       BT.XFR1  BSS    1           ROUTINE NAME GOES HERE                              END          740     A     
 END                                                                                       F66FCC       260     A     
 END      *         EQUATES FOR SYMBOL AND LINE NUMBER TABLE (5600,5700)                   F66FCC       261     A     
 END      *         GENERATION.                                                            F66FCC       262     A     
 END                                                                                       F66FCC       263     A     
 END                                                                                       F66FCC       264     A     
 END      *         LOADER STATEMENT AND LINE NUMBER TABLES                                F66FCC       265     A     
 END                                                                                       F66FCC       266     A     
 END       #FID     IFNE   .FID,0                                                          F66FCC       267     A     
 END       BT.STTX  EQU    BT.TXRB     FWA OF BUFFER                                       F66FCC       268     A     
 END       BT.STWC  EQU    BT.TXWC     WORD COUNT                                          F66FCC       269     A     
 END       BT.ST77  EQU    BT.TEXT     WORD COUNT IF T=LNT .GT. 7777B                      F66FCC       270     A     
 END                                                                                       F66FCC       271     A     
 END      *         LOADER SYMBOL TABLE GENERATION                                         F66FCC       272     A     
 END                                                                                       F66FCC       273     A     
 END       BT.SYWC  EQU    BT.TXWC     WORD COUNT                                          F66FCC       274     A     
 END       BT.SYMB  EQU    BT.TEXT     LENGTH OF SYMBOL TABLE (TS=SYM)                     F66FCC       275     A     
 END       BT.SYTX  EQU    BT.TXRB     FWA OF BUFFER                                       F66FCC       276     A     
 END       BT=MXDM  EQU    3           MAX NUMBER OF DIMENSIONS IN ONE VARIABLE            F66FCC       277     A     
 END       #FID     ENDIF                                                                  F66FCC       278     A     
 END       CKS      SPACE  4,8                                                             END          741          I
          -FEAT126C 
 END       CKS      EJECT                                                                  FEAT126C     111     A     
 END      **        CKS -  CHECK UNDEFINED STATEMENT NUMBERS.                              END          742     A     
 END      *         ENTRY  (MSN) = LOGICAL SUM OF THE COMPLEMENT OF ALL TS.STAT            END          743     A     
 END      *                ENTRIES.                                                        END          744     A     
 END                                                                                       END          745     A     
 END                                                                                       END          746     A     
 END       CKS      BSS    0           ENTRY...                                            END          747     A     
 END                SA1    MSN                                                             END          748     A     
 END                IFBIT  X1,-SNDEF,CKS6                                                  END          749     A     
 END                SA3    TS.STN                                                          END          750     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 752    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                SA2    TS=STN                                                          END          751     A     
 END                SB6    P.SYM                                                           END          752     A     
 END                =B3    2                                                               END          753     A     
 END                SA5    X3-1        INITIALIZE FETCH REGISTER                           END          754     A     
 END                SB4    X2                                                              END          755     A     
 END                                                                                       END          756     A     
 END       CKS2     SA5    A5+B3                                                           END          757     A     
 END                ZR     B4,CKS6     IF TABLE EXHAUSTED                                  END          758     A     
 END                SBIT   X5,SNDEF                                                        END          759     A     
 END                SB4    B4-B3       DECREMENT TABLE LENGTH                              END          760     A     
 END                MI     X5,CKS2     IF ENTRY DEFINED                                    END          761     A     
 END                ZR     X5,CKS2     IF EMPTY ENTRY                                      END          762     A     
 END                =A4    A5-1                                                            END          763     A     
 END                AX5    X4,B6                                                           END          764     A     
 END                RJ     LJS         LEFT JUSTIFY STATEMENT LABEL                        END          765          I
          -FEAT155G 
 END                RJ     =XLJS       LEFT JUSTIFY STATEMENT LABEL                        FEAT155G     262     A     
 END                SA6    FILL.                                                           END          766     A     
 END                FATAL  E.MS        ** MISSING STATEMENT NUMBER **                      END          767     A     
 END                EQ     CKS2                                                            END          768     A     
 END                                                                                       END          769     A     
 END      **        CHECK FOR UNTERMINATED *DO*-S                                          END          770     A     
 END                                                                                       END          771     A     
 END       CKS6     SA1    NSK                                                             END          772     A     
 END                ZR     X1,CKS65    IF NO NULL STATEMENTS                               END          773     A     
 END                RJ     CDD                                                             END          774     A     
 END                SA6    FILL.                                                           END          775     A     
 END                EQ     E.MN        FLAG NON-ANSI NULL STATEMENTS                       END          776     A     
 END      *         ...                                                                    END          777     A     
 END       CKS65    BSS    0           RETURN FROM E.MN                                    END          778     A     
 END                SA1    MSF                                                             END          779     A     
 END                NZ     X1,E.M$     IF NO MULTIPLE STATEMENTS OCCURRED                  END          780     A     
 END      *         ...                                                                    END          781     A     
 END       CKS67    BSS    0           RETURN FROM E.M$                                    END          782     A     
 END                SA2    TP=DO                                                           END          783     A     
 END                ZR     X2,CKSX     IF NO HANGING DO-S                                  END          784     A     
 END                SA1    TP.DO                                                           END          785          I
          -FCC0813
 END                SA3    TS.STN                                                          END          786     A     
 END                SB4    X2                                                              END          787     A     
 END                SB3    L.DOE                                                           END          788     A     
 END                SHRINK A2,0                                                            END          789     A     
 END                SA1    TP.DO                                                           FCC0813      101     A     
 END                SB5    X3-C.STAT-1                                                     END          790     A     
 END                SA5    X1-L.DOE+OR.DOSN                                                END          791     A     
 END                                                                                       END          792     A     
 END                SB6    P.SYM                                                           END          793     A     
 END       CKS8     SA5    A5+B3                                                           END          794     A     
 END                ZR     B4,CKSX     IF TABLE EXHAUSTED                                  END          795     A     
 END                SB4    B4-B3       DECREMENT TABLE LENGTH                              END          796     A     
 END                AX5    P.DOTAG                                                         END          797     A     
 END                SA4    X5+B5       FETCH DPC OF STATEMENT NUMBER                       END          798          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 753    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
          -FCC1603X 
 END                SX4    X5+B5                                                           FCC1603X       6     A     
 END                MI     X4,CKS8     IF NOT STATEMENT LABEL                              FCC1603X       7     A     
 END                SA4    X4          FETCH DPC OF STATEMENT NUMBER                       FCC1603X       8     A     
 END                AX5    X4,B6                                                           END          799     A     
 END                RJ     LJS         LEFT JUSTIFY STATEMENT LABEL                        END          800          I
          -FEAT155G 
 END                RJ     =XLJS       LEFT JUSTIFY STATEMENT LABEL                        FEAT155G     263     A     
 END                SA6    FILL.                                                           END          801     A     
 END                FATAL  E.DO9       ** UNTERMINATED DO LOOP **                          END          802     A     
 END                EQ     CKS8                                                            END          803     A     
 END       DDS      SPACE  4,8                                                             END          804     A     
 END      **        DDS -  DUMP *DATA* STATEMENTS.                                         END          805     A     
 END                                                                                       END          806     A     
 END                                                                                       END          807     A     
 END       DDS9     SHRINK TS=DAT,0                                                        END          808     A     
 END                                                                                       END          809     A     
 END       DDS      SUBR               ENTRY/EXIT...                                       END          810     A     
 END                                                                                       END          811     A     
 END       SNAP=D   IFNE   TEST        DUMP DATA TABLE                                     END          812     A     
 END                SA1    CO.SNAP                                                         END          813     A     
 END                LX1    1RD                                                             END          814     A     
 END                PL     X1,DAT.ZS   IF NO *DATA* SNAP SELECTED                          END          815     A     
 END                DUMPT  (TS.DAT)                                                        END          816     A     
 END       DAT.ZS   BSS    0                                                               END          817     A     
 END       SNAP=D   ENDIF                                                                  END          818     A     
 END                                                                                       END          819     A     
 END                SA1    TS=DAT                                                          END          820     A     
 END                SA2    TS.DAT                                                          END          821     A     
 END                BX6    0                                                               END          822     A     
 END                SB4    X1          LENGTH OF DATA TABLE                                END          823     A     
 END                SA5    X2-1        FETCH FIRST ENTRY                                   END          824     A     
 END                SA6    PARCEL                                                          END          825     A     
 END                                                                                       END          826     A     
 END       DDS.     SA5    A5+B1                                                           END          827     A     
 END                LE     B4,DDS9     IF TABLE EXHAUSTED                                  END          828     A     
 END                UX1,B7 X5                                                              END          829     A     
 END                SB4    B4-B1                                                           END          830     A     
 END                JP     B7+DDS=     JUMP TO OPERATOR                                    END          831     A     
 END       DDS=     BSS    0                                                               END          832     A     
 END                                                                                       END          833     A     
 END       DDS.S    EQU    *-DDS=      OUTPUT SHORT DATUM                                  END          834     A     
 END                BX2    0           INDICATE NO RELOCATION                              END          835     A     
 END                RJ     STX                                                             END          836     A     
 END                EQ     DDS.                                                            END          837     A     
 END                                                                                       END          838     A     
 END                BSS    0                                                               END          839     A     
 END       DDS.O    EQU    *-DDS=      SET ORG COUNTER                                     END          840     A     
 END                MX4    -L.PWF+1                                                        END          841     A     
 END                SA2    TA.NAM                                                          END          842     A     
 END                SX6    X1          ISOLATE BIAS                                        END          843     A     
 END                AX1    P.DTAG+1                                                        END          844     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 754    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                BX4    -X4*X1                                                          END          845     A     
 END                IX3    X2+X4                                                           END          846     A     
 END                SA2    X3          FETCH ADDRESS WORD                                  END          847     A     
 END                MX5    -L.BLOCK+1                                                      END          848     A     
 END                SX1    X2          ISOLATE ADDRESS                                     END          849     A     
 END                AX2    P.BLOCK+1                                                       END          850     A     
 END                IX6    X1+X6       (ORIGIN) = ADDRESS + BIAS                           END          851     A     
 END                BX5    -X5*X2      ISOLATE BLOCK ORDINAL                               END          852     A     
 END                ZR     X5,DDS.O4   IF PROGRAM RELOCATABLE                              END          853     A     
 END                =X5    X5+1                                                            END          854     A     
 END       DDS.O4   LX5    P.BTRL                                                          END          855     A     
 END                BX7    X5+X6                                                           END          856     A     
 END                SA7    ORG                                                             END          857     A     
 END                SA7    BT.REP+1    SAVE ORIGIN                                         END          858     A     
 END                RJ     DTX         INITIALIZE TEXT TABLE                               END          859     A     
 END                EQ     DDS.                                                            END          860     A     
 END                                                                                       END          861     A     
 END                BSS    0                                                               END          862     A     
 END       DDS.R    EQU    *-DDS=      OUTPUT REPI TABLE                                   END          863     A     
 END                SB4    B4-B1                                                           END          864     A     
 END                =X2    1                                                               END          865     A     
 END                AX5    P.DTAG                                                          END          866     A     
 END                SX1    X1-1        C                                                   END          867     A     
 END                LX2    P.BTRL                                                          END          868     A     
 END                SX6    X5          B                                                   END          869     A     
 END                LX1    P.BTRC                                                          END          870     A     
 END                SA5    A5+B1                                                           END          871     A     
 END                SA4    BT.REP+1    S                                                   END          872     A     
 END                LX6    P.BTRI                                                          END          873     A     
 END                SX3    X5          D-S                                                 END          874     A     
 END                IX4    X4+X2       ADJUST INTERNAL BLOCK NUMBER TO LOADER              END          875     A     
 END                                         BLOCK ORDINAL                                 END          876     A     
 END                AX5    P.DTAG                                                          END          877     A     
 END                SX0    X5          I                                                   END          878     A     
 END                IX3    X3+X4       = DESTINATION                                       END          879     A     
 END                LX0    P.BTRI                                                          END          880     A     
 END                BX7    X0+X4                                                           END          881     A     
 END                IX1    X3+X1                                                           END          882     A     
 END                SA7    A4                                                              END          883     A     
 END                BX6    X1+X6                                                           END          884     A     
 END                SA6    A4+B1                                                           END          885     A     
 END                RJ     DTX         FLUSH ANY PARTIAL TEXT TABLE                        END          886     A     
 END                WLGO   BT.REP,3                                                        END          887     A     
 END                EQ     DDS.                                                            END          888     A     
 END                                                                                       END          889     A     
 END                BSS    0                                                               END          890     A     
 END       DDS.W    EQU    *-DDS=      OUTPUT DATA WORD(S)                                 END          891     A     
 END                SB7    X1+B1       (B7) = WORD COUNT                                   END          892     A     
 END                SB4    B4-B7       DECREMENT TABLE LENGTH                              END          893     A     
 END                BX0    X1                                                              END          894     A     
 END                                                                                       END          895     A     
 END       DDS.W1   SA5    A5+B1                                                           END          896     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 755    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                BX2    0                                                               END          897     A     
 END                SX0    X0-1                                                            END          898          I
          -FCC0635
 END                =X0    X0-1                                                            FCC0635        5     A     
 END                LX1    X5                                                              END          899     A     
 END                RJ     STX         OUTPUT A WORD                                       END          900     A     
 END                PL     X0,DDS.W1   IF MORE WORDS TO DO                                 END          901     A     
 END                EQ     DDS.                                                            END          902     A     
 END       GCL      SPACE  4,8                                                             FCC0709       15     A     
 END      **        GCL -  GET COMMON LENGTHS                                              FCC0709       16     A     
 END      *                                                                                FCC0709       17     A     
 END      *         THIS ROUTINE DETERMINES SIZE(S) OF SCM RESIDENT COMMON BLOCKS          FCC0709       18     A     
 END      *                                                                                FCC0709       19     A     
 END      *         EXIT   (X6) = TOTAL SIZE OF LOCAL COMMON                               FCC0709       20     A     
 END      *                                                                                FCC0709       21     A     
 END                                                                                       FCC0709       22     A     
 END       GCL      SUBR                                                                   FCC0709       23     A     
 END                SA2    TS=BLK                                                          FCC0709       24     A     
 END                =X6    0                                                               FCC0709       25     A     
 END                SX2    X2-2                                                            FCC0709       26     A     
 END                SA1    TS.BLK                                                          FCC0709       27     A     
 END                ZR     X2,EXIT.    IF NO COMMON BLOCKS                                 FCC0709       28     A     
 END                =B3    2                                                               FCC0709       29     A     
 END                SB7    X2                                                              FCC0709       30     A     
 END                SA4    X1+B3       INITIALIZE                                          FCC0709       31     A     
 END                MX0    -L.BLEN                                                         FCC0709       32     A     
 END                MX7    -L.BLVL                                                         FCC0709       33     A     
 END       GCL1     =A5    A4+1        BLOCK LENGTH - LEVEL WORD                           FCC0709       34     A     
 END                SB3    B3+2                                                            FCC0709       35     A     
 END                BX3    -X0*X5      ISOLATE BLOCK LENGTH                                FCC0709       36     A     
 END                AX5    P.BLVL                                                          FCC0709       37     A     
 END                =A4    A5+1                                                            FCC0709       38     A     
 END                BX5    -X7*X5      ISOLATE BLOCK LEVEL                                 FCC0709       39     A     
 END                SB5    X5-3                                                            FCC0709       40     A     
 END                ZR     B5,GCL3     IF LEVEL 3                                          FCC0709       41     A     
 END                                                                                       FCC0709       42     A     
 END       .76      IFEQ   .CPU,76                                                         FCC0709       43     A     
 END                SB5    X5-2                                                            FCC0709       44     A     
 END                ZR     B5,GCL3     IF LEVEL 2                                          FCC0709       45     A     
 END       .76      ENDIF                                                                  FCC0709       46     A     
 END                                                                                       FCC0709       47     A     
 END                IX6    X6+X3                                                           FCC0709       48     A     
 END       GCL3     LE     B3,B7,GCL1  IF MORE BLOCKS                                      FCC0709       49     A     
 END                EQ     EXIT.                                                           FCC0709       50     A     
 END       DFD      SPACE  4,10                                                            F66FCC       279     A     
 END      **        DFD -  DUMP 5700/5600 TABLES                                           F66FCC       280     A     
 END      *         DUMPS STATEMENT/LINE NUMBER (5700) AND LOADER SYMBOL (5600)            F66FCC       281     A     
 END      *         TABLES TO BINARY.                                                      F66FCC       282     A     
 END      *                                                                                F66FCC       283     A     
 END      *         5700 TABLES                                                            F66FCC       284     A     
 END      *                                                                                F66FCC       285     A     
 END      *         THE INFORMATION FOR 5700 TABLES EXISTS IN T.LNT IN CORRECT             F66FCC       286     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 756    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END      *         FORMAT.  IT ONLY REMAINS TO OUTPUT THE INFORMATION TO LGO.             F66FCC       287     A     
 END      *         5700 TABLES ARE GENERATED BY DETERMINING FIRST IF ALL THE              F66FCC       288     A     
 END      *         INFORMATION IN T.LNT WILL FIT INTO ONE TABLE (LE 7777B WORDS).         F66FCC       289     A     
 END      *         IF SO, ONE 5700 TABLE CONTAINING ALL THE INFORMATION WILL              F66FCC       290     A     
 END      *         BE BUILT.  IF NOT, AS MANY 5700 TABLES OF MAXIMUM SIZE (7777B)         F66FCC       291     A     
 END      *         WILL BE BUILT AS NECESSARY, UNTIL ALL INFORMATION IS                   F66FCC       292     A     
 END      *         PROCESSED.                                                             F66FCC       293     A     
 END      *         FORMATS OF 5700 TABLE ENTRIES ARE...                                   F66FCC       294     A     
 END      *                                                                                F66FCC       295     A     
 END      *         HEADER WORD                                                            F66FCC       296     A     
 END      *                12/5700,12/WORD COUNT,12/2,24/0                                 F66FCC       297     A     
 END      *         EACH ENTRY                                                             F66FCC       298     A     
 END      *                17/STATEMENT LABEL,7/0,18/LINE NO,18/FWA OBJECT CODE            F66FCC       299     A     
 END      *                                                                                F66FCC       300     A     
 END      *         5700 TABLES ARE GENERATED USING...                                     F66FCC       301     A     
 END      *                1. BT.STTX - AN OUTPUT BUFFER                                   F66FCC       302     A     
 END      *                2. T.LNT - AN INPUT BUFFER                                      F66FCC       303     A     
 END      *                3. T=LNT - LENGTH OF INPUT                                      F66FCC       304     A     
 END      *         THE FOLLOWING COUNTERS ARE UTILIZED IN CONTROLLING THE LOOP            F66FCC       305     A     
 END      *         WHICH GENERATES 5700 TABLES...                                         F66FCC       306     A     
 END      *                1. BT.ST77 - THE SIZE OF THE CURRENT 5700 TABLE BEING           F66FCC       307     A     
 END      *                   GENERATED (MAX IS 7777B PER TABLE).                          F66FCC       308     A     
 END      *                2. B4 - WORD COUNT (WC) FOR OUTPUT BUFFER CURRENTLY             F66FCC       309     A     
 END      *                        BEING BUILT (MAX IS BT.TXTL).                           F66FCC       310     A     
 END      *                3. T=LNT - THE AMOUNT OF INPUT LEFT TO PROCESS.  T=LNT          F66FCC       311     A     
 END      *                   MAY INITIALLY BE .GT. 7777B, WHICH WOULD REQUIRE             F66FCC       312     A     
 END      *                   GENERATION OF MORE THAN ONE 5700 TABLE.                      F66FCC       313     A     
 END      *                                                                                F66FCC       314     A     
 END      *         5600 TABLES                                                            F66FCC       315     A     
 END      *                                                                                F66FCC       316     A     
 END      *         5600 TABLES WILL BE NO LARGER THAN THE USER OUTPUT BUFFER IN           F66FCC       317     A     
 END      *         SIZE SINCE THE NUMBER OF PROGRAMMER VARIABLES TO BE PROCESSED          F66FCC       318     A     
 END      *         AND THE NUMBER OF TABLE ENTRIES PER VARIABLE ARE NOT KNOWN             F66FCC       319     A     
 END      *         SOON ENOUGH FOR EFFICIENT PREDICTION.                                  F66FCC       320     A     
 END      *         THERE WILL BE AT LEAST TWO WORDS PER ENTRY AND POSSIBLY 3.             F66FCC       321     A     
 END      *         THE FORMATS FOR WORDS 1,2,3 ARE...                                     F66FCC       322     A     
 END      *                                                                                F66FCC       323     A     
 END      *         HEADER WORD                                                            F66FCC       324     A     
 END      *                12/5600,12/WORD COUNT,12/2,1/F,23/SAVEA1                        F66FCC       325     A     
 END      *                                                                                F66FCC       326     A     
 END      *                F      = 0, NOT FINAL SYMBOL TABLE                              F66FCC       327     A     
 END      *                       = 1, IF FINAL SYMBOL TABLE                               F66FCC       328     A     
 END      *                SAVEA1 = SUBPROGRAM REL. ADDR. OF WORD IN WHICH                 F66FCC       329     A     
 END      *                         SUBPROGRAM INITIALIZATION WILL SAVE REG A1.            F66FCC       330     A     
 END      *                                                                                F66FCC       331     A     
 END      *         WORD 1                                                                 F66FCC       332     A     
 END      *                12/0LNAME,9/RB,9/L                                              F66FCC       333          I
          -FCCA403
 END      *                42/0LNAME,9/RB,9/L                                              FCCA403       10     A     
 END      *                                                                                F66FCC       334     A     
 END      *                RB = RELOCATION BASE DESIGNATOR.  SEE SECTION 8 OF              F66FCC       335     A     
 END      *                     LOADER REFERENCE MANUAL.                                   F66FCC       336     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 757    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END      *                L = NUMBER OF ITEMS IN THIS ENTRY (L .GE. 2).                   F66FCC       337     A     
 END      *                                                                                F66FCC       338     A     
 END      *         WORD 2                                                                 F66FCC       339     A     
 END      *                1/LCM,1/FP,2/0,5/TYPE,5/D,16,LEN,2/0,4/BCP,24/RA                F66FCC       340     A     
 END      *                                                                                F66FCC       341     A     
 END      *                LCM = 1 IF ECS/LCM RESIDENT                                     F66FCC       342     A     
 END      *                FP  = 1 IF FORMAL PARAMETER AND                                 F66FCC       343     A     
 END      *                      RA = FPNO, THE FORMAL PARAMETER NUMBER.                   F66FCC       344     A     
 END      *                TYPE= 1 IF LOGICAL                                              F66FCC       345     A     
 END      *                      2 IF INTEGER                                              F66FCC       346     A     
 END      *                      3 IF REAL                                                 F66FCC       347     A     
 END      *                      4 IF DOUBLE                                               F66FCC       348     A     
 END      *                      5 IF COMPLEX                                              F66FCC       349     A     
 END      *                      6 IF BOOLEAN                                              F66FCC       350     A     
 END      *                      7 IF CHARACTER                                            F66FCC       351     A     
 END      *                D   = NO OF DIMENSIONS                                          F66FCC       352     A     
 END      *                LFN = LENGTH OF CHARACTERS OF A CHARACTER ITEM,                 F66FCC       353     A     
 END      *                      0 FOR OTHER ITEMS                                         F66FCC       354     A     
 END      *                BCP = BEGIN CHAR POSITION FOR CHARACTER ITEM                    F66FCC       355     A     
 END      *                RA  = RELATIVE ADDRESS - SEE ALSO FP.                           F66FCC       356     A     
 END      *                                                                                F66FCC       357     A     
 END      *         WORD 3 (IF D .NE. 0).  DIMENSION DESCRIPTORS                           F66FCC       358     A     
 END      *                1/LCM,1/FP,1/C,1/LB,23/0,9/RB,24/RA                             F66FCC       359     A     
 END      *                                                                                F66FCC       360     A     
 END      *                LCM AND FP ARE AS ABOVE BUT APPLY TO THE SUBSCRIPT IF           F66FCC       361     A     
 END      *                IT IS A VARIABLE.                                               F66FCC       362     A     
 END      *                                                                                F66FCC       363     A     
 END      *                C   = 1 IF BOUND (OF DIMENSION) IS CONSTANT                     F66FCC       364     A     
 END      *                      0 IF VARIABLE DIMENSION                                   F66FCC       365     A     
 END      *                RB  = 0 IF C = 1                                                F66FCC       366     A     
 END      *                    = RELOCATION BASE DESIGNATOR IF C = 0.                      F66FCC       367     A     
 END      *                RA  = UPPER BOUND IF C = 1                                      F66FCC       368     A     
 END      *                    = FORMAL PARAMETER NO IF C = 0.                             F66FCC       369     A     
 END      *                                                                                F66FCC       370     A     
 END      *         IF NON-UNITY LOWER BOUNDS EXISTED, AND THEY DONT HERE YET,             F66FCC       371     A     
 END      *         THERE WOULD BE A FOURTH WORD THAT LOOKS LIKE THE THIRD WORD            F66FCC       372     A     
 END      *         WHICH DESCRIBES THE NON-UNITY LOWER BOUND IN A LIKE MANNER.            F66FCC       373     A     
 END      *                                                                                F66FCC       374     A     
 END      *         USES   ALL                                                             F66FCC       375     A     
 END                                                                                       F66FCC       376     A     
 END                                                                                       F66FCC       377     A     
 END       #FID     IFNE   .FID,0                                                          F66FCC       378     A     
 END                                                                                       F66FCC       379     A     
 END       DFDSV    BSS    3           DIM DESCRIPTORS SAVED HERE TEMPORARILY              F66FCC       380     A     
 END                                                                                       F66FCC       381     A     
 END       DFDX     BX6    0                                                               F66FCC       382     A     
 END                SA6    BT.TXWC     (=BT.SYWC) CLEAR FOR NEXT USE OF DTX                F66FCC       383     A     
 END                                                                                       F66FCC       384     A     
 END       DFD      SUBR   -                                                               F66FCC       385     A     
 END                SA1    =XCO.ID     DEBUG ON FLAG                                       F66FCC       386     A     
 END                ZR     X1,EXIT.    IF DEBUG NOT ON                                     F66FCC       387     A     
 END                                                                                       F66FCC       388     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 758    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END      **        PROCESS LINE NUMBER TABLE.                                             F66FCC       389     A     
 END      *         FIRST SEE HOW MUCH THERE IS TO PROCESS AND DETERMINE THE               F66FCC       390     A     
 END      *         SIZE OF THE FIRST 5700 TABLE TO MAKE.                                  F66FCC       391     A     
 END                                                                                       F66FCC       392     A     
 END       DFD21    SA2    =XT=LNT                                                         F66FCC       393     A     
 END                ZR     X2,DFD40    IF NOTHING IN T.LNT, CHECK 5600 TABLE               F66FCC       394     A     
 END                SX6    BT.TXTL     LENGTH OF WORKING BUFFER                            F66FCC       395     A     
 END                SB2    X2-BT=MXWC                                                      F66FCC       396     A     
 END                SX4    BT=MXWC                                                         F66FCC       397     A     
 END                GE     B2,DFD23    IF T=LNT .GE. BT=MXWC (7777B)                       F66FCC       398     A     
 END                LX4    X2                                                              F66FCC       399     A     
 END                                                                                       F66FCC       400     A     
 END      *         CONSTRUCT A HEADER WORD FOR THE 5700 TABLE.                            F66FCC       401     A     
 END                                                                                       F66FCC       402     A     
 END       DFD23    BX7    X4                                                              F66FCC       403     A     
 END                SA6    BT.STWC     MAX WORKING BUFFER SIZE                             F66FCC       404     A     
 END                LX4    P.BTWC                                                          F66FCC       405     A     
 END                SX3    BT=LSTN                                                         F66FCC       406     A     
 END                =X5    2                                                               F66FCC       407     A     
 END                LX3    P.BTCN                                                          F66FCC       408     A     
 END                BX6    X3+X4       5700 .AND. WORD COUNT                               F66FCC       409     A     
 END                SA7    BT.ST77     SIZE OF NEXT 5700 TABLE                             F66FCC       410     A     
 END                LX5    P.BTWC-L.BTWC                                                   F66FCC       411     A     
 END                BX6    X6+X5                                                           F66FCC       412     A     
 END                SA6    BT.STTX     HEADER = 12/5700,12/WRD CNT,12/2,24/0               F66FCC       413     A     
 END                =B4    1           WC = 1                                              F66FCC       414     A     
 END                                                                                       F66FCC       415     A     
 END      *         NOW PACK UP AN OUTPUT BUFFER.                                          F66FCC       416     A     
 END                                                                                       F66FCC       417     A     
 END       DFD25    SB2    X2-BT.TXTL                                                      F66FCC       418     A     
 END                GT     B2,DFD27    IF T=LNT .GT. SIZE OF WORKING BUFFER                F66FCC       419     A     
 END                =X7    X2+B1                                                           F66FCC       420     A     
 END                SA7    BT.STWC     WORKING BUFFER SIZE IF T=LNT .LT. BT.TXTL           F66FCC       421     A     
 END       DFD27    SA1    BT.STWC                                                         F66FCC       422     A     
 END                =B7    X1                                                              F66FCC       423     A     
 END                SA1    =XT.LNT                                                         F66FCC       424     A     
 END                SA2    =XT=LNT                                                         F66FCC       425     A     
 END                SA3    BT.STTX     FWA OUTPUT BUFFER                                   F66FCC       426     A     
 END                SA4    BT.ST77     SIZE OF THIS 5700 TABLE                             F66FCC       427     A     
 END                SA5    X1-1        INITIALIZE FETCH                                    F66FCC       428     A     
 END       DFD29    SA5    A5+B1       FETCH ELEMENT                                       F66FCC       429     A     
 END                BX6    X5                                                              F66FCC       430     A     
 END                SA6    A3+B4       ELEMENT TO OUTPUT BUFFER                            F66FCC       431     A     
 END                =B4    B4+1        WC = WC + 1                                         F66FCC       432     A     
 END                =X2    X2-1        T=LNT = T=LNT - 1                                   F66FCC       433     A     
 END                =X4    X4-1        LEFT TO GO FOR THIS 5700 TABLE                      F66FCC       434     A     
 END                ZR     X4,DFD31    IF THIS 5700 TABLE IS FULL                          F66FCC       435     A     
 END                =B2    B4-B7                                                           F66FCC       436     A     
 END                LT     B2,DFD29    IF WORKING BUFFER NOT FULL                          F66FCC       437     A     
 END                                                                                       F66FCC       438     A     
 END      *         UPDATE TABLES AND COUNTERS (T.LNT,T=LNT,BT.ST77).                      F66FCC       439     A     
 END                                                                                       F66FCC       440     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 759    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END       DFD31    SX7    A5+B1                                                           F66FCC       441     A     
 END                LX6    X2                                                              F66FCC       442     A     
 END                SA7    A1          UPDATE T.LNT                                        F66FCC       443     A     
 END                SA6    A2          UPDATE T=LNT                                        F66FCC       444     A     
 END                BX7    X4                                                              F66FCC       445     A     
 END                SA7    A4          LEFT TO GO FOR THIS 5700 TABLE                      F66FCC       446     A     
 END                WLGO   BT.STTX,B4  OUTPUT TO LGO                                       F66FCC       447     A     
 END                                                                                       F66FCC       448     A     
 END                =B4    0           WC = 0                                              F66FCC       449     A     
 END                SA1    BT.ST77                                                         F66FCC       450     A     
 END                ZR     X1,DFD21    IF COMPLETED ONE TABLE                              F66FCC       451     A     
 END                SA2    =XT=LNT                                                         F66FCC       452     A     
 END                EQ     DFD25                                                           F66FCC       453     A     
 END                                                                                       F66FCC       454     A     
 END      **        PROCESS LOADER SYMBOL TABLE.                                           F66FCC       455     A     
 END                                                                                       F66FCC       456     A     
 END       DFD40    BSS    0                                                               F66FCC       457     A     
 END                SA1    TS=SYM                                                          F66FCC       458     A     
 END                BX6    X1                                                              F66FCC       459     A     
 END                SA6    BT.SYMB     SAVE TS=SYM.  CANNOT ALTER TS=SYM.                  F66FCC       460     A     
 END                SA3    TS.SYM                                                          F66FCC       461     A     
 END                =X7    1                                                               F66FCC       462     A     
 END                SA5    X3-1        INITIALIZE FOR TABLE FETCH                          F66FCC       463     A     
 END                SA7    BT.SYWC     INITIALIZE WORD COUNT                               F66FCC       464     A     
 END                                                                                       F66FCC       465     A     
 END      *         FIND A PROGRAMMER DEFINED VARIABLE TO PROCESS.                         F66FCC       466     A     
 END                                                                                       F66FCC       467     A     
 END       DFD42    SA3    BT.SYMB     BT.SYMB # TS=SYM                                    F66FCC       468     A     
 END                ZR     X3,DFD88    SYMBOL TABLE PROCESSING COMPLETE                    F66FCC       469     A     
 END                SA5    A5+2        (X5) = 2ND ELEMENT OF TS.SYM ENTRY                  F66FCC       470     A     
 END                =X7    X3-2                                                            F66FCC       471     A     
 END                SA7    BT.SYMB     DECREMENT NO OF WORDS IN TS.SYM                     F66FCC       472     A     
 END                ZR     X5,DFD42    IF A ZERO ENTRY                                     F66FCC       473     A     
 END                LX5    -P.NVAR     SHIFT  VAR  BIT TO SIGN BIT                         F66FCC       474          I
          -FCCA403
 END                PL     X5,DFD42    NOT A PROGRAMMER VARIABLE                           F66FCC       475          I
          -FCCA403
 END                LX5    P.NVAR      RESTORE X5                                          F66FCC       476          I
          -FCCA403
 END                =X2    0           INITIALIZE WORD 2                                   F66FCC       477          I
          -FCCA403
 END                LX5    -P.EST      SHIFT TYP BIT TO SIGN BIT                           FCCA403       11     A     
 END                MI     X5,DFD43    IF TYPE VARIABLE                                    FCCA403       12     A     
 END                LX5    P.EST-P.NVAR SHIFT VAR BIT TO SIGN BIT                          FCCA403       13     A     
 END                PL     X5,DFD42    NOT A PROGRAMMER VARIABLE                           FCCA403       14     A     
 END                LX5    P.NVAR      RESTORE X5                                          FCCA403       15     A     
 END                EQ     DFD43A                                                          FCCA403       16     A     
 END       DFD43    LX5    P.EST       RESTORE X5                                          FCCA403       17     A     
 END       DFD43A   =X2    0           INITIALIZE WORD 2                                   FCCA403       18     A     
 END                                                                                       F66FCC       478     A     
 END      *         BUILD 1ST AND 2ND WORDS OF 5600 TABLE.  THEY WILL BE                   F66FCC       479     A     
 END      *         ACCUMULATED IN REGS X1 AND X2, RESPECTIVELY.                           F66FCC       480     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 760    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                                                                                       F66FCC       481     A     
 END                =B4    2           (B4) = WORD COUNT (WC)                              F66FCC       482     A     
 END                SA4    A5-B1       GET 1ST ELEMENT OF ENTRY IN TS.SYM                  F66FCC       483     A     
 END                LX6    X5          SAVE X5                                             F66FCC       484     A     
 END                MX0    L.SYM                                                           F66FCC       485     A     
 END                BX1    X0*X4       WORD 1 = 42/0LNAME,18/0                             F66FCC       486     A     
 END                                                                                       F66FCC       487     A     
 END      *         SEE IF THIS VARIABLE IS A FORMAL PARAMETER.                            F66FCC       488     A     
 END                                                                                       F66FCC       489     A     
 END                LX5    -P.ENT      FORMAL PARAMETER BIT TO SIGN BIT                    F66FCC       490     A     
 END                PL     X5,DFD44    IF NO FORMAL PARAMETER (FP)                         F66FCC       491     A     
 END                LX5    P.ENT-P.FPNO                                                    F66FCC       492     A     
 END                MX0    -L.FPNO                                                         F66FCC       493     A     
 END                =X2    1                                                               F66FCC       494     A     
 END                BX3    -X0*X5      EXTRACT FORMAL PARAMETER NO (FPNO)                  F66FCC       495     A     
 END                LX2    P.BTFP                                                          F66FCC       496     A     
 END                =X3    X3-1                                                            F66FCC       497     A     
 END                IX2    X2+X3       WORD 2 = 1/0,1/FP,34/0,24/FPNO                      F66FCC       498     A     
 END                                                                                       F66FCC       499     A     
 END      *         CHECK FOR LCM/ECS, THIS VARIABLE.                                      F66FCC       500     A     
 END                                                                                       F66FCC       501     A     
 END       DFD44    BX5    X6                                                              F66FCC       502     A     
 END                LX5    -P.ARY      LEVEL BIT TO SIGN BIT                               F66FCC       503     A     
 END                PL     X5,DFD46    IF NO LEVEL                                         F66FCC       504     A     
 END                LX5    P.ARY-P.LEVN                                                    F66FCC       505     A     
 END                MX0    -L.LEVN                                                         F66FCC       506     A     
 END                BX3    -X0*X5      EXTRACT LEVEL NO                                    F66FCC       507     A     
 END                =B3    X3-3                                                            F66FCC       508     A     
 END       .76      IFEQ   .CPU,76                                                         F66FCC       509     A     
 END                =B3    B3+B1                                                           F66FCC       510     A     
 END       .76      ENDIF                                                                  F66FCC       511     A     
 END                LT     B3,DFD46    IF NOT LEVEL 2 OR 3 (LCM)                           F66FCC       512     A     
 END                =X0    B1                                                              F66FCC       513     A     
 END                LX0    P.BTLM                                                          F66FCC       514     A     
 END                BX2    X2+X0       WORD 2 = 1/LCM,1/..,34/0,24/....                    F66FCC       515     A     
 END                                                                                       F66FCC       516     A     
 END      *         EXTRACT THE MODE, OR TYPE FOR THIS VARIABLE.                           F66FCC       517     A     
 END                                                                                       F66FCC       518     A     
 END       DFD46    LX5    X6                                                              F66FCC       519     A     
 END                MX0    -L.MODE                                                         F66FCC       520     A     
 END                BX3    -X0*X5      EXTRACT MODE                                        F66FCC       521     A     
 END                LX3    P.BTTP                                                          F66FCC       522     A     
 END                BX2    X2+X3       WORD 2 = 1/...,1/..,2/0,5/TYPE,27/0,24/..           F66FCC       523     A     
 END                                                                                       F66FCC       524     A     
 END      *         IF THIS VARIABLE ISNT A FORMAL PARAMETER, GET THE RELATIVE             F66FCC       525     A     
 END      *         ADDRESS OF IT.  ALSO CALCULATE *RB*, THE VALUE OF WHICH                F66FCC       526     A     
 END      *         DEPENDS WHETHER THE VARIABLE IS IN COMMON.                             F66FCC       527     A     
 END                                                                                       F66FCC       528     A     
 END                LX5    -P.ENT      FP BIT TO SIGN BIT                                  F66FCC       529     A     
 END                SX3    B0          RELOCATION BASE DESIGNATOR (RB) = 0                 F66FCC       530     A     
 END                MI     X5,DFD48    IF FP BIT IS SET                                    F66FCC       531     A     
 END                LX5    P.ENT-P.TAG                                                     F66FCC       532     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 761    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                MX0    -L.TAG                                                          F66FCC       533     A     
 END                BX3    -X0*X5      EXTRACT TAG FIELD                                   F66FCC       534     A     
 END                =X7    X3-C.SYM    EXTRACT ORDINAL                                     F66FCC       535     A     
 END                SA3    TA.NAM                                                          F66FCC       536     A     
 END                AX7    1           1/2 TS.SYM INDEX                                    F66FCC       537     A     
 END                =B3    X7          = INDEX INTO TA.NAM                                 F66FCC       538     A     
 END                SA4    X3+B3       RELATIVE ADDR ENTRY FOR THIS VARIABLE               F66FCC       539     A     
 END                MX0    -L.RELADD                                                       F66FCC       540     A     
 END                BX7    -X0*X4      EXTRACT RELATIVE ADDRESS                            F66FCC       541     A     
 END                BX2    X2+X7       WORD 2 = 1/..,1/..,2/0,5/TYPE,27/0,24/RELAD         F66FCC       542     A     
 END                LX5    P.TAG-P.VAR  COMMON BIT TO SIGN BIT                             F66FCC       543     A     
 END                =X3    B1          RB = 1                                              F66FCC       544     A     
 END                PL     X5,DFD48    IF NOT IN COMMON                                    F66FCC       545     A     
 END                MX0    -L.BLOCK                                                        F66FCC       546     A     
 END                LX4    -P.BLOCK                                                        F66FCC       547     A     
 END                BX7    -X0*X4      EXTRACT BLOCK ORDINAL                               F66FCC       548     A     
 END                AX7    1           HALVE IT                                            F66FCC       549     A     
 END                =X3    X7+2        RB = 2+N = ITH COMMON BLOCK IN PIDL                 F66FCC       550     A     
 END       DFD48    LX3    P.BTBI                                                          F66FCC       551     A     
 END                BX1    X1+X3       WORD 1 = 42/....,9/RB,9/..                          F66FCC       552     A     
 END                BX5    X6                                                              F66FCC       553     A     
 END                LX5    -P.NLST     ARRAY BIT TO SIGN BIT                               F66FCC       554     A     
 END                PL     X5,DFD80    IF NOT AN ARRAY                                     F66FCC       555     A     
 END                                                                                       F66FCC       556     A     
 END      *         IF THE VARIABLE IS AN ARRAY, PROCESS ITS DIMENSION                     F66FCC       557     A     
 END      *         INFORMATION.                                                           F66FCC       558     A     
 END                                                                                       F66FCC       559     A     
 END                LX5    P.NLST-P.PNT                                                    F66FCC       560     A     
 END                MX0    -L.PNT                                                          F66FCC       561     A     
 END                BX7    -X0*X5      EXTRACT INDEX TO TP.DIM ENTRY                       F66FCC       562     A     
 END                SA3    =XTP.CIDM                                                       F66FCC       563     A     
 END                =B3    X7                                                              F66FCC       564     A     
 END                SA4    X3+B3       GET TP.DIM ENTRY                                    F66FCC       565     A     
 END                MX0    L.NDIM                                                          F66FCC       566     A     
 END                BX7    X0*X4       EXTRACT NO OF DIMS                                  F66FCC       567     A     
 END                LX7    P.BTDM-P.NDIM                                                   F66FCC       568     A     
 END                BX2    X2+X7       WORD 2 = 1/.,1/.,2/0,5/.,5/DIMS,22/0,24/..          F66FCC       569     A     
 END                LX7    -P.BTDM                                                         F66FCC       570     A     
 END                =B2    X7          SAVE NO. OF DIMS COUNT                              F66FCC       571     A     
 END                                                                                       F66FCC       572     A     
 END      *         NOW DO 3RD WORD FOR DIMENSIONED VARIABLE.                              F66FCC       573     A     
 END                                                                                       F66FCC       574     A     
 END                BX7    X4                                                              F66FCC       575     A     
 END                LX7    59-P.VDIM   SHIFT VDIM BIT TO SIGN BIT                          F66FCC       576     A     
 END                SB7    B2                                                              F66FCC       577     A     
 END                =A4    A4+B1                                                           F66FCC       578     A     
 END       DFD50    MI     X7,DFD54    IF VARIABLY DIMENSIONED                             F66FCC       579     A     
 END                LX4    P.DIM                                                           F66FCC       580     A     
 END                MX0    3-L.DIM                                                         F66FCC       581     A     
 END                BX3    -X0*X4      WORD 3 = 36/0,24/UPPER BOUND                        F66FCC       582     A     
 END                SX7    B1                                                              F66FCC       583     A     
 END                LX7    P.BTDC                                                          F66FCC       584     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 762    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                BX3    X3+X7       WORD 3 = 1/0,1,0,1/CONS,1/0,32/0,24/...             F66FCC       585     A     
 END       DFD52    BX7    X3                                                              F66FCC       586     A     
 END                SA7    DFDSV-2+B4  DIM DESCRIPTORS SAVED HERE TEMPORARILY              F66FCC       587     A     
 END                =B7    B7-1                                                            F66FCC       588     A     
 END                =B4    B4+1                                                            F66FCC       589     A     
 END                ZR     B7,DFD80    IF DONE                                             F66FCC       590     A     
 END                                                                                       F66FCC       591     A     
 END      *         VARIABLY DIMENSIONED.                                                  F66FCC       592     A     
 END                                                                                       F66FCC       593     A     
 END       DFD54    SX7    B4+1        NEXT DIM POSITION                                   F66FCC       594     A     
 END                MX0    -1                                                              F66FCC       595     A     
 END                BX7    -X0*X7                                                          F66FCC       596     A     
 END                SA4    A4                                                              F66FCC       597     A     
 END                NZ     X7,DFD58    IF 0DD DIMENSION POSITION                           F66FCC       598     A     
 END                SA4    A4+B1       GET NEXT ENTRY                                      F66FCC       599     A     
 END                LX4    P.DIM       DIM POSITION IS EVEN SHIFT                          F66FCC       600     A     
 END      *                            INFORMATION TO UPPER 30                             F66FCC       601     A     
 END       DFD58    BX7    X4                                                              F66FCC       602     A     
 END                LX7    L.NDIM      VDIM BIT THIS ENTRY                                 F66FCC       603     A     
 END                PL     X7,DFD50    THIS ONE IS A CONSTANT                              F66FCC       604     A     
 END                LX4    P.DIM       SHIFT INFO TO LOWER 30                              F66FCC       605     A     
 END                BX3    X4                                                              F66FCC       606     A     
 END                MX0    -L.PWF                                                          F66FCC       607     A     
 END                BX6    -X0*X3      EXTRACT INDEX                                       F66FCC       608     A     
 END                =B6    X6          INDEX                                               F66FCC       609     A     
 END                SA3    TS.SYM                                                          F66FCC       610     A     
 END                SA3    X3+B6       GET TS.SYM ENTRY FOR THIS SUBSCRIPT                 F66FCC       611     A     
 END                LX3    -P.ARY      LEVEL BIT TO SIGN BIT                               F66FCC       612     A     
 END                =X7    1           FP BIT                                              F66FCC       613     A     
 END                PL     X3,DFD60    IF NOT ECS/LCM                                      F66FCC       614     A     
 END                LX3    P.ARY-P.LEVN                                                    F66FCC       615     A     
 END                MX0    -L.LEVN                                                         F66FCC       616     A     
 END                BX5    -X0*X3      EXTRACT LEVEL NO                                    F66FCC       617     A     
 END                =B3    X5-3                                                            F66FCC       618     A     
 END       .76      IFEQ   .CPU,76                                                         F66FCC       619     A     
 END                =B3    B3+B1                                                           F66FCC       620     A     
 END       .76      ENDIF                                                                  F66FCC       621     A     
 END                LT     B3,DFD60                                                        F66FCC       622     A     
 END                =X7    3           LCM,FP BITS                                         F66FCC       623     A     
 END       DFD60    LX7    P.BTFP                                                          F66FCC       624     A     
 END                LX3    P.ARY-P.FPNO                                                    F66FCC       625     A     
 END                MX0    -L.FPNO                                                         F66FCC       626     A     
 END                BX5    -X0*X3                                                          F66FCC       627     A     
 END                =X5    X5-1                                                            F66FCC       628     A     
 END                BX3    X7+X5       WORD 3 = 1/LCM,1/FP,34/0,24/FPNO                    F66FCC       629     A     
 END                EQ     DFD52       SAVE CURRENT DIM DESCRIPTOR TEMPORARILY             F66FCC       630     A     
 END                                                                                       F66FCC       631     A     
 END      *         THE 2 OR MORE WORDS ARE BUILT - FINISH OFF WORD 1 AND                  F66FCC       632     A     
 END      *         STUFF IT IN THE OUTPUT BUFFER.                                         F66FCC       633     A     
 END                                                                                       F66FCC       634     A     
 END       DFD80    =X5    B4                                                              F66FCC       635     A     
 END                BX6    X1+X5       WORD 1 = 42/...,9/..,9/NO WORDS THIS ENTRY          F66FCC       636     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 763    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                SA1    BT.SYWC                                                         F66FCC       637     A     
 END                IX7    X1+X5                                                           F66FCC       638     A     
 END                SA7    A1          WC = WC + NO WORDS THIS ENTRY                       F66FCC       639     A     
 END                =B2    X1          = INDEX TO OUTPUT BUFFER                            F66FCC       640     A     
 END                LX7    X2                                                              F66FCC       641     A     
 END                SA6    B2+BT.SYTX  WORD 1 TO OUTPUT BUFFER                             F66FCC       642     A     
 END                SA7    A6+B1       WORD 2 TO OUTPUT BUFFER                             F66FCC       643     A     
 END                =B4    B4-2                                                            F66FCC       644     A     
 END                EQ     B4,B0,DFD86  IF NO MORE WORDS THIS ITERATION                    F66FCC       645     A     
 END                                                                                       F66FCC       646     A     
 END      *         STORE THE DIMENSION WORDS INTO THE OUTPUT BUFFER.                      F66FCC       647     A     
 END                                                                                       F66FCC       648     A     
 END       DFD82    SA1    DFDSV       DIM DESCRIPTORS SAVED HERE TEMPORARILY              F66FCC       649     A     
 END                =B4    B4-1                                                            F66FCC       650     A     
 END       DFD83    BX7    X1                                                              F66FCC       651     A     
 END                SA7    A7+B1       DIM DESCRIPTORS TO OUTPUT BUFFER                    F66FCC       652     A     
 END                =B4    B4-1                                                            F66FCC       653     A     
 END                MI     B4,DFD86    IF DONE                                             F66FCC       654     A     
 END                SA1    A1+B1                                                           F66FCC       655     A     
 END                EQ     DFD83                                                           F66FCC       656     A     
 END                                                                                       F66FCC       657     A     
 END      *         MAKE UP THE HEADER WORD AND OUTPUT THIS BUFFER IF THERE ISNT           F66FCC       658     A     
 END      *         ROOM FOR 5 MORE THE NEXT TIME AROUND.                                  F66FCC       659     A     
 END                                                                                       F66FCC       660     A     
 END       DFD86    SA1    BT.SYWC                                                         F66FCC       661     A     
 END                SX2    BT.TXTL                                                         F66FCC       662     A     
 END                =B7    X1          WORD COUNT INPUT TO *WLGO*                          F66FCC       663          I
          -FCCA403
 END                IX3    X2-X1       =WC - TOTAL ALLOWED                                 F66FCC       664          I
          -FCCA403
 END                IX3    X2-X1       TOTAL ALLOWED - WC                                  FCCA403       19     A     
 END                SX4    X3-BT=MXDM-2 X4=MAX NO OF WDS/ENTRY                             F66FCC       665     A     
 END                PL     X4,DFD42    IF ROOM FOR AT LEAST *BT=MXDM+2* WDS                F66FCC       666     A     
 END                                                                                       F66FCC       667     A     
 END      *         HERE IF 1. RAN OUT OF SYMBOLS TO PROCESS.                              F66FCC       668     A     
 END      *                 2. WORKING OUTPUT BUFFER IS FULL AND MUST BE EMPTIED.          F66FCC       669     A     
 END                                                                                       F66FCC       670          I
          -FCCA403
 END       DFD88    SA1    BT.SYWC                                                         F66FCC       671          I
          -FCCA403
 END                =X4    X1-1                                                            F66FCC       672          I
          -FCCA403
 END                ZR     X4,DFD92    IF OUTPUT BUFFER EMPTY                              F66FCC       673          I
          -FCCA403
 END                                                                                       F66FCC       674          I
          -FCCA403
 END                                                                                       FCCA403       20     A     
 END      *         LOOK AHEAD FOR THE NEXT VALID VARIABLE TO PROCESS                      FCCA403       21     A     
 END                                                                                       FCCA403       22     A     
 END       DFD88    SA3    BT.SYMB     (X3) = LENGTH OF SYMBOL TABLE                       FCCA403       23     A     
 END                ZR     X3,DFD89    SYMBOL TABLE PROCESSING COMPLETE                    FCCA403       24     A     
 END                SA5    A5+2        GET NEXT ELEMENT OF TS.SYM ENTRY                    FCCA403       25     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 764    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                ZR     X5,DFD88A   ZERO ENTRY                                          FCCA403       26     A     
 END                LX5    -P.EST      SHIFT TYP BIT TO SIGN BIT                           FCCA403       27     A     
 END                MI     X5,DFD88B   IF TYPE VARIABLE                                    FCCA403       28     A     
 END                LX5    P.EST-P.NVAR SHIFT VAR BIT TO SIGN BIT                          FCCA403       29     A     
 END                MI     X5,DFD88B   IF PROGRAMMER VARIABLE                              FCCA403       30     A     
 END       DFD88A   =X7    X3-2        DECREMENT NO OF WORDS                               FCCA403       31     A     
 END                SA7    BT.SYMB     UPDATED BT.SYMB                                     FCCA403       32     A     
 END                ZR     X7,DFD89    SYMBOL TABLE PROCESSING COMPLETE                    FCCA403       33     A     
 END                EQ     DFD88                                                           FCCA403       34     A     
 END       DFD88B   SA5    A5-2        RESTORE A5                                          FCCA403       35     A     
 END                                                                                       FCCA403       36     A     
 END      *         MAKE A HEADER WORD FOR THIS BUFFER.                                    F66FCC       675     A     
 END                                                                                       F66FCC       676     A     
 END                SX6    BT=LSYM                                                         F66FCC       677          I
          -FCCA403
 END       DFD89    SX6    BT=LSYM                                                         FCCA403       37     A     
 END                SA1    BT.SYWC                                                         FCCA403       38     A     
 END                =B7    X1          WORD COUNT INPUT TO *WLGO*                          FCCA403       39     A     
 END                =X4    X1-1                                                            FCCA403       40     A     
 END                LX4    P.BTWC                                                          F66FCC       678     A     
 END                LX6    P.BTCN                                                          F66FCC       679     A     
 END                BX0    X4+X6       = 12/5600,12/WC,36/0                                F66FCC       680     A     
 END                =X7    2                                                               F66FCC       681     A     
 END                LX7    P.BTFT                                                          F66FCC       682     A     
 END                BX0    X0+X7       = 12/5600,12/WC,12/2,24/0                           F66FCC       683     A     
 END                SA4    BT.SYMB                                                         F66FCC       684     A     
 END                NZ     X4,DFD90    IF NOT LAST TABLE TO BE OUTPUT                      F66FCC       685     A     
 END                                                                                       F66FCC       686     A     
 END      *         SET THE FINAL BUFFER FLAG ON THIS BUFFER"S HEADER WORD.                F66FCC       687     A     
 END                                                                                       F66FCC       688     A     
 END                =X6    1                                                               F66FCC       689     A     
 END                LX6    P.BTFI                                                          F66FCC       690     A     
 END                BX0    X0+X6       HEADER = 12/5600,12/WC,12/2,1/FINAL,23/0            F66FCC       691     A     
 END                                                                                       F66FCC       692     A     
 END      *         PUT SAVEA1 WORD IN HEADER WORD.                                        F66FCC       693     A     
 END                                                                                       F66FCC       694     A     
 END       DFD90    SA1    =XTA.PRO                                                        F66FCC       695          I
          -FCCA469
 END                SA4    X1+CT.TPA1-C.PRO  EXTRACT SAVEA1 ORO4 C$PR6                     F66FCC       696          I
          -FCCA469
 END                BX6    X0+X4       HEADER WORD= 12/5600,12/WC,12/2,1/.,23/SVA0         F66FCC       697          I
          -FCCA469
 END       DFD90    SA1    =XMOD                                                           FCCA469        7     A     
 END                SBIT   X1,PBLK                                                         FCCA469        8     A     
 END                MX4    0           PRESET SAVEA1 IN CASE SUBPROG IS BLOCKDATA          FCCA469        9     A     
 END                MI     X1,DFD91    IF  BLOCKDATA   SUB-PROGRAM                         FCCA469       10     A     
 END                SA1    =XTA.PRO                                                        FCCA469       11     A     
 END                SA4    X1+CT.TPA1-C.PRO  EXTRACT SAVEA1                                FCCA469       12     A     
 END       DFD91    BX6    X0+X4       HEADER WORD= 12/5600,12/WC,12/2,1/F,23/SVA1         FCCA469       13     A     
 END                SA6    BT.SYTX                                                         F66FCC       698     A     
 END                                                                                       F66FCC       699     A     
 END                WLGO   BT.SYTX,B7                                                      F66FCC       700     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 765    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END       DFD92    SA1    BT.SYMB                                                         F66FCC       701     A     
 END                ZR     X1,DFDX     IF DONE.                                            F66FCC       702     A     
 END                =X7    1                                                               F66FCC       703     A     
 END                SA7    BT.SYWC     WC = 1                                              F66FCC       704     A     
 END                EQ     DFD42                                                           F66FCC       705     A     
 END                                                                                       F66FCC       706     A     
 END       #FID     ENDIF                                                                  F66FCC       707     A     
 END                SPACE  4,10                                                            F66FCC       708     A     
 END       DFT      SPACE  4,30                                                            END          903     A     
 END      **        DFT -  DUMP FIRST TABLES FOR LOADER.                                   END          904     A     
 END      *                                                                                END          905     A     
 END      *                                                                                END          906     A     
 END      *         THIS ROUTINE PUMPS OUT --                                              END          907     A     
 END      *                                                                                END          908     A     
 END      *         1.  IDNT  (77)  TABLE                                                  END          909     A     
 END      *         2.  LDSET (70)  DIRECTIVE      (IF NOT *BLOCKDATA*)                    END          910     A     
 END      *         3.  PIDL  (34)  TABLE                                                  END          911     A     
 END      *         4.  ENTR  (36)  TABLE          (IF NOT *BLOCKDATA*)                    END          912     A     
 END      *         5.  TRACEBACK WORDS            (IF NOT *BLOCKDATA*)                    END          913     A     
 END      *         6.  FIT + FET (S).             (IF     *PROGRAM*  )                    END          914          I
          -F162FTNA 
 END      *         6.  FIT(S)                     (IF     *PROGRAM*  )                    F162FTNA     505     A     
 END      *         7.  FILE VECTOR FOR Q8NTRY.    (IF     *PROGRAM*  )                    END          915     A     
 END      *                                                                                END          916     A     
 END      *         IF THERE WERE ANY FATAL ERRORS, ONLY THE 77-TABLE AND AN               END          917     A     
 END      *                *ERRORS* DIRECTIVE WILL BE DUMPED.                              END          918     A     
 END      *                                                                                END          919     A     
 END      *         EXIT   TO *DFTX* FOR NORMAL CASE, OR...                                END          920     A     
 END      *                TO *END8* TO SUPPRESS BINARY.                                   END          921          I
          -FEAT126C 
 END      *                TO *END80* TO SUPRESS BINARY                                    FEAT126C     112     A     
 END      *                                                                                END          922     A     
 END      *         USES   ALL BUT *A0*.                                                   END          923     A     
 END      *                (TT.SCR) FOR BUILDING SOME SCRATCH TABLES.                      END          924     A     
 END      *         CALLS  DTX, MANAGE, STX, WRITEC, WRITEW.                               END          925          I
          -FEAT126C 
 END      *         CALLS  DTX, ALC, STX, WLF.                                             FEAT126C     113     A     
 END                                                                                       END          926     A     
 END                                                                                       END          927     A     
 END       DFT8     WLGO   BT.ERR,3                                                        END          928     A     
 END                EQ     END80       EXIT..  (BYPASS NORMAL BINARY OUTPUT)               END          929     A     
 END                                                                                       END          930     A     
 END       DFT      BSS    0           ENTRY...                                            END          931     A     
 END                SA1    =XTL.DATE                                                       END          932     A     
 END                SB2    CHAR                                                            END          933     A     
 END                SA2    =XTL.TIME                                                       END          934     A     
 END                SA4    BINOUT                                                          END          935     A     
 END                LX6    X1,B2                                                           END          936     A     
 END                LX7    X2,B2                                                           END          937     A     
 END                SA6    BT.IDNT+2                                                       END          938     A     
 END                =A7    A6+1                                                            END          939     A     
 END                BX2    0                                                               END          940     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 766    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                SA1    =XCP.MODL                                                       END          941     A     
 END                MI     X4,DFT2     IF BINARY IS TO BE PRODUCED                         END          942     A     
 END                SA2    =10H **ERRORS                                                   END          943     A     
 END       DFT2     LX6    X1                                                              END          944     A     
 END                BX7    X2                                                              END          945     A     
 END                SA6    BT.IDNT+BT.IDNTU                                                END          946     A     
 END                =A7    A6+1                                                            END          947     A     
 END                WLGO   BT.IDNT,L.77+1                                                  END          948     A     
 END                SA4    BINOUT                                                          END          949     A     
 END                PL     X4,DFT8     IF SUPPRESSED BINARY                                END          950     A     
 END                SA3    MOD                                                             END          951     A     
 END                IFBIT  X3,PBLK,DFT25                                                   END          952     A     
 END                WLGO   BT.LIB,BT.LIBL                                                  END          953          I
          -F162FTNA 
 END                SB5    BT.LIBL     TABLE LENGTH                                        F162FTNA     506     A     
 END                SB6    BT.LIB      TABLE ORIGIN                                        F162FTNA     507     A     
 END                                                                                       F162FTNA     508     A     
 END       .RM      IFEQ   OT#RM,6                                                         F162FTNA     509     A     
 END                                                                                       F162FTNA     510     A     
 END                SA1    =XCO.STA                                                        F162FTNA     511     A     
 END                PL     X1,DFT23    IF NOT STATIC MODE                                  F162FTNA     512     A     
 END                                                                                       F162FTNA     513     A     
 END      *         EXTEND LDSET TABLE TO INCLUDE NECESSARY USE                            F162FTNA     514     A     
 END      *         TABLE FOR CRM STATIC MODE.                                             F162FTNA     515     A     
 END                                                                                       F162FTNA     516     A     
 END                =X3    =XM.STCRM   STLCRM. ALWAYS LOADED                               F162FTNA     517     A     
 END                SA4    CO.ER                                                           F162FTNA     518          I
          -FCCA535
 END                SA5    MOD                                                             FCCA535       10     A     
 END                LX5    48                                                              FCCA535       11     A     
 END                PL     X5,DFT20 IF NOT MAIN PROGRAM                                    FCCA535       12     A     
 END                MX5    1                                                               FCCA535       13     A     
 END                LX5    12                                                              FCCA535       14     A     
 END                BX3    X3+X5    ADD ONE MORE SELECTION TO LDSET FILE                   FCCA535       15     A     
 END       DFT20    SA4    CO.ER                                                           FCCA535       16     A     
 END                SA2    =XSTATIC                                                        F162FTNA     519     A     
 END                ZR     X4,DFT21    IF NO ERROR RECOVERY                                F162FTNA     520     A     
 END                SX3    X3+=XM.STRP2                                                    F162FTNA     521     A     
 END                                                                                       F162FTNA     522     A     
 END       DFT21    =X6    BT.LIBL+1   LENGTH LDSET,LIB+USE HEADER                         F162FTNA     523     A     
 END                BX5    X3+X2                                                           F162FTNA     524     A     
 END                CX4    X5          NUMBER OF USE ENTRIES                               F162FTNA     525     A     
 END                IX0    X4+X6                                                           F162FTNA     526     A     
 END                SHRINK TT=SCR                                                          F162FTNA     527     A     
 END                ALLOC  TT.SCR,X0   ROOM FOR LDSET,LIB,USE TABLE                        F162FTNA     528     A     
 END                SB5    X2          TABLE LENGTH                                        F162FTNA     529     A     
 END                SB6    X1          TABLE ORIGIN                                        F162FTNA     530     A     
 END                MVE    BT.LIBL,BT.LIB,B6                                               F162FTNA     531     A     
 END                SX7    BT=USE                                                          F162FTNA     532     A     
 END                =X2    X4+1                                                            F162FTNA     533     A     
 END                SA3    B6                                                              F162FTNA     534     A     
 END                BX0    X4                                                              F162FTNA     535     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 767    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                LX2    P.BTWC      LDSET WORD COUNT INCREMENT                          F162FTNA     536     A     
 END                LX0    P.BTWC      USE WORD COUNT                                      F162FTNA     537     A     
 END                LX7    P.BTCN                                                          F162FTNA     538     A     
 END                IX6    X3+X2                                                           F162FTNA     539     A     
 END                BX7    X7+X0                                                           F162FTNA     540     A     
 END                SA2    =XSTLTAB                                                        F162FTNA     541     A     
 END                SA6    A3          RESET LDSET HEADER                                  F162FTNA     542     A     
 END                =A7    B6+BT.LIBL  SET USE HEADER                                      F162FTNA     543     A     
 END                =A2    A2-1        PRELOAD                                             F162FTNA     544     A     
 END                                                                                       F162FTNA     545     A     
 END       DFT22    LX5    -1                                                              F162FTNA     546     A     
 END                =A2    A2+1        NEXT USE NAME                                       F162FTNA     547     A     
 END                ZR     X2,DFT23    IF FINISHED                                         F162FTNA     548     A     
 END                PL     X5,DFT22    IF ROUTINE NOT NEEDED                               F162FTNA     549     A     
 END                BX7    X2                                                              F162FTNA     550     A     
 END                =A7    A7+1        STORE USE NAME                                      F162FTNA     551     A     
 END                EQ     DFT22       LOOP                                                F162FTNA     552     A     
 END                                                                                       F162FTNA     553     A     
 END       .RM      ENDIF                                                                  F162FTNA     554     A     
 END                                                                                       F162FTNA     555     A     
 END       DFT23    WLGO   B6,B5       WRITE OUT LDSET                                     F162FTNA     556     A     
 END                                                                                       END          954     A     
 END                                                                                       END          955     A     
 END      **        PIDL - PROGRAM IDENTIFICATION AND LENGTH TABLE.                        END          956     A     
 END      *                ALSO CONTAINS THE LOCAL COMMON BLOCK TABLE.                     END          957     A     
 END                                                                                       END          958     A     
 END       DFT25    SA2    TS=BLK                                                          END          959     A     
 END                AX0    X2,B1                                                           END          960     A     
 END                SHRINK TT=SCR                                                          END          961     A     
 END                ALLOC  TT.SCR,X0   ROOM TO BUILD THE *PIDL* TABLE                      END          962          I
          -FCC1421
 END                ALLOC  TT.SCR,X0+1 ROOM FOR *PIDL* TABLE PLUS HEADER WORD              FCC1421        7     A     
 END                SA3    IDENT                                                           END          963     A     
 END                =X2    X2-1        (X2) = LENGTH OF *PIDL* TABLE                       FCC1421        8     A     
 END                SA4    LOCAL                                                           END          964     A     
 END                =B7    X2+1        (B7) = LENGTH OF SCRATCH TABLE                      END          965     A     
 END                SA5    TS.BLK                                                          END          966     A     
 END                =X7    BT=PIDL                                                         END          967     A     
 END                =B3    3                                                               END          968          I
          -FCC0583
 END                =B3    2                                                               FCC0583       30     A     
 END                LX7    P.BTCN                                                          END          969     A     
 END                BX6    X3+X4                                                           END          970     A     
 END                SA3    =7L         NAME OF BLANK COMMON                                END          971          I
          -FCC0583
 END                LX2    P.BTWC                                                          END          972     A     
 END                IX7    X7+X2                                                           END          973     A     
 END                SA4    X5+2        INITIALIZE A4                                       END          974     A     
 END                BX4    X3                                                              END          975          I
          -FCC0583
 END                SA7    X1          *PIDL* CONTROL WORD                                 END          976     A     
 END                =A6    X1+1                                                            END          977     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 768    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                EQ     DFT4        BYPASS NAME FETCH FIRST TIME THRU LOOP              END          978          I
          -FCC1421
 END                                                                                       END          979          I
          -FCC1421
 END       DFT3     =A4    A5+1                                                            END          980          I
          -FCC1421
 END       DFT4     =B3    B3+1                                                            END          981          I
          -FCC1421
 END       DFT3     EQ     B3,B7,DFT55 IF NO MORE BLOCKS                                   FCC1421        9     A     
 END                =B3    B3+1                                                            FCC1421       10     A     
 END                =A5    A4+1        BLOCK LENGTH/LEVEL WORD                             END          982     A     
 END                MX0    -L.BLEN                                                         END          983     A     
 END                BX3    -X0*X5      ISOLATE BLOCK LENGTH                                END          984     A     
 END                AX5    P.BLVL      RIGHT-JUSTIFY LEVEL                                 END          985     A     
 END                MX0    -L.BLVL                                                         END          986     A     
 END                BX5    -X0*X5      ISOLATE BLOCK LEVEL                                 END          987     A     
 END                SB5    X5-3                                                            END          988     A     
 END                ZR     B5,DFT43    IF LEVEL 3                                          END          989     A     
 END                                                                                       END          990     A     
 END       .76      IFEQ   .CPU,76                                                         END          991     A     
 END                                                                                       END          992     A     
 END                SB5    X5-2                                                            END          993     A     
 END                ZR     B5,DFT43    IF 7000 LEVEL 2                                     END          994     A     
 END                                                                                       END          995     A     
 END       .76      ENDIF                                                                  END          996     A     
 END                                                                                       END          997     A     
 END                EQ     DFT5                                                            END          998     A     
 END                                                                                       END          999     A     
 END      *         ECS/LCM BLOCKS USE LENGTH = (BLEN)/8 -- ROUNDED UP                     END         1000     A     
 END                                                                                       END         1001     A     
 END       DFT43    MX0    -3                                                              END         1002     A     
 END                BX5    -X0*X3      GRAB REMAINDER                                      END         1003     A     
 END                AX3    3           DIVIDE BY 8                                         END         1004     A     
 END                ZR     X5,DFT45    IF DIVISION EXACT                                   END         1005     A     
 END                =X0    1                                                               END         1006     A     
 END                IX3    X3+X0       LENGTH FOR *PIDL*                                   END         1007     A     
 END       DFT45    MX0    1                                                               END         1008     A     
 END                LX0    P.BTYP+1    POSITION ECS/LCM BIT                                END         1009     A     
 END                BX3    X3+X0                                                           END         1010     A     
 END       DFT5     BX6    X4+X3       42/NAME,  1/TYPE,  17/LENGTH                        END         1011     A     
 END                =A6    A6+1                                                            END         1012     A     
 END                LE     B3,B7,DFT3  IF MORE BLOCKS TO DO                                END         1013          I
          -FCC1421
 END                                                                                       END         1014          I
          -FCC1421
 END                WLGO   X1,B7                                                           END         1015          I
          -FCC1421
 END                =A4    A5+1        NEXT ENTRY (PRESUMABLY)                             FCC1421       11     A     
 END                EQ     DFT3        LOOP                                                FCC1421       12     A     
 END                                                                                       FCC1421       13     A     
 END       DFT55    WLGO   X1,B7       OUTPUT *PIDL* TABLE                                 FCC1421       14     A     
 END                SA3    MOD                                                             END         1016     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 769    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                BX6    0                                                               END         1017     A     
 END                SBIT   X3,PBLK                                                         END         1018     A     
 END                SHRINK TT=SCR,X6   REMOVE THE ALLOCATION                               END         1019     A     
 END                MI     X3,DFTX     IF *BLOCKDATA*, EXIT..                              END         1020     A     
 END                                                                                       END         1021     A     
 END      **        DUMP *ENTR* TABLE.                                                     END         1022     A     
 END                                                                                       END         1023     A     
 END                SA5    TS=ENT                                                          END         1024     A     
 END                LX0    X5,B1                                                           END         1025     A     
 END                SB5    X5          SAVE (B5) = LENGTH OF ENTRY POINT TABLE             END         1026     A     
 END                ALLOC  TT.SCR,X0   ROOM TO BUILD THE *ENTR* TABLE                      END         1027     A     
 END                SA4    BT.ENTR                                                         END         1028     A     
 END                =B7    X2+1        (B7) = LENGTH OF SCRATCH TABLE                      END         1029     A     
 END                LX2    P.BTWC                                                          END         1030     A     
 END                BX6    X4+X2                                                           END         1031     A     
 END                SA3    TS.SYM                                                          END         1032     A     
 END                =X0    1                                                               END         1033     A     
 END                SA5    TS.ENT                                                          END         1034     A     
 END                =B4    X3+1        B4 = FWA TAG TABLE                                  END         1035     A     
 END                LX0    P.BTRL                                                          END         1036     A     
 END                SA6    X1          *ENTR* CONTROL WORD                                 END         1037     A     
 END                SA4    X5          (A4) = FWA ENTRY PTS.                               END         1038     A     
 END                                                                                       END         1039     A     
 END       DFT6     SA3    X4+B4       FETCH TAG WORD                                      END         1040     A     
 END                SX5    X4          ISOLATE ORDINAL                                     END         1041     A     
 END                =B5    B5-1                                                            END         1042     A     
 END                AX3    P.PNT                                                           END         1043     A     
 END                BX7    X4-X5       ISOLATE NAME                                        END         1044     A     
 END                SX6    X3                                                              END         1045     A     
 END                =A7    A6+1                                                            END         1046     A     
 END                BX6    X0+X6       INDICATE PROGRAM-RELATIVE ADDRESS                   END         1047     A     
 END                =A4    A4+1                                                            END         1048     A     
 END                =A6    A7+1                                                            END         1049     A     
 END                NZ     B5,DFT6     IF MORE ENTRY POINTS                                END         1050     A     
 END                                                                                       END         1051     A     
 END                WLGO   X1,B7                                                           END         1052     A     
 END                SHRINK TT=SCR      REMOVE THE ALLOCATION                               END         1053     A     
 END                                                                                       END         1054     A     
 END      **        OUTPUT TRACEBACK WORDS.                                                END         1055     A     
 END                                                                                       END         1056     A     
 END                SA1    IDENT                                                           END         1057          I
          -FEAT126A 
 END                RJ     =XSFN       BLANK FILL ROUTINE NAME FOR TRACEBACK WORD          END         1058          I
          -FEAT126A 
 END                LX6    CHAR                                                            END         1059          I
          -FEAT126A 
 END                SA1    =XNAME      ROUTINE NAME SPACE FILLED                           FEAT126A     762     A     
 END                LX1    CHAR                                                            FEAT126A     763     A     
 END                MX0    7*CHAR                                                          END         1060     A     
 END                BX1    X0*X6       TRUNCATE TO 7 CHARACTERS                            END         1061          I
          -FEAT126A 
 END                BX1    X0*X1       TRUNCATE TO 7 CHARACTERS                            FEAT126A     764     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 770    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                SA4    ENTRY.                                                          END         1062     A     
 END                SX4    X4                                                              FEAT155G     264     A     
 END                SA3    TA.NAM                                                          END         1063     A     
 END                AX7    X4,B1       = HALF ORDINAL                                      END         1064     A     
 END                IX0    X7+X3                                                           END         1065     A     
 END                SA5    X0          FETCH ADDRESS OF MAIN ENTRY POINT                   END         1066     A     
 END                SX3    X5                                                              END         1067     A     
 END                BX6    X1+X3                                                           END         1068     A     
 END                SA6    BT.1ST+2                                                        END         1069     A     
 END                WLGO   BT.1ST,BT.1STL+1                                                END         1070     A     
 END                                                                                       END         1071     A     
 END      **        ADD FITS (+ FETS) IF MAIN PROG.                                        END         1072          I
          -F162FTNA 
 END      *         ADD FITS IF MAIN PROGRAM.                                              F162FTNA     557     A     
 END                                                                                       END         1073     A     
 END                SA1    MOD                                                             END         1074     A     
 END                IFBIT  X1,-PPRO,DFTX                                                   END         1075     A     
 END                                                                                       END         1076     A     
 END                SA2    TA.PRO                                                          END         1077     A     
 END                =A3    X2+CT.FILE-C.PRO                                                END         1078     A     
 END                SX6    X3                                                              END         1079     A     
 END                SA6    ORG                                                             END         1080     A     
 END                RJ     DTX         SET ORIGIN = *FILE.*                                END         1081     A     
 END                                                                                       END         1082     A     
 END      *         OUTPUT *Q2NTRY* *LIST* AP-LIST.                                        F162FTNA     558     A     
 END                                                                                       F162FTNA     559     A     
 END       .RM      IFEQ   OT#RM,6                                                         F162FTNA     560     A     
 END                                                                                       F162FTNA     561     A     
 END                SA1    TA.PRO                                                          F162FTNA     562     A     
 END                SA2    NARGS       NUMBER OF FILES                                     F162FTNA     563     A     
 END                SA3    X1+CT.FILE-C.PRO                                                F162FTNA     564     A     
 END                SB7    X2                                                              F162FTNA     565     A     
 END                SX1    X3+L.LIST   ADDRESS OF FILES VECTOR                             F162FTNA     566     A     
 END                PX1    B7,X1       PACK IN NUMBER OF FILES                             F162FTNA     567          I
          -FCCA408
 END                NZ     X2,DFT60    IF MAIN PROGRAM WITH FILES                          FCCA408       85     A     
 END                SA2    =XCO.STA                                                        FCCA408       86     A     
 END                ZR     X2,DFT60    IF NOT STATIC MODE                                  FCCA408       87     A     
 END                =X1    X1+1        BIAS OF STLTAB AP-LIST POINTER                      FCCA408       88     A     
 END                SX6    X1+B7       FILES VECTOR ADDRESS + NO. OF FILES                 FCCA408       89     A     
 END                =X6    X6+1        + ZERO TERM. = ADDRESS OF STLTAB                    FCCA408       90     A     
 END                PX6    B1,X6       PACK IN AP-LIST WORD IDENTIFIER                     FCCA408       91     A     
 END                SA6    DFTA        STORE IN TEMP                                       FCCA408       92     A     
 END                                                                                       FCCA408       93     A     
 END       DFT60    PX1    B7,X1       PACK IN NUMBER OF FILES                             FCCA408       94     A     
 END                =X2    2           LOWER PROGRAM RELOCATION                            F162FTNA     568     A     
 END                RJ     STX                                                             F162FTNA     569     A     
 END                SA1    PLIMIT      PRINT LIMIT                                         F162FTNA     570     A     
 END                SA2    =XCO.STA    STATIC INDICATOR                                    F162FTNA     571     A     
 END                BX1    X1+X2                                                           F162FTNA     572     A     
 END                =X2    0           NO RELOCATION                                       F162FTNA     573     A     
 END                RJ     STX                                                             F162FTNA     574     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 771    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                =X1    0           ZERO TERMINATOR                                     F162FTNA     575          I
          -FCCA408
 END                SA1    DFTA                                                            FCCA408       95     A     
 END                ZR     X1,DFT65    IF NO STLTAB NEEDED                                 FCCA408       96     A     
 END                =X2    2           LOWER PROGRAM RELOCATION                            FCCA408       97     A     
 END                RJ     STX         OUTPUT STLTAB POINTER                               FCCA408       98     A     
 END                                                                                       FCCA408       99     A     
 END       DFT65    =X1    0           ZERO TERMINATOR                                     FCCA408      100     A     
 END                IX2    X2-X2                                                           F162FTNA     576     A     
 END                RJ     STX                                                             F162FTNA     577     A     
 END                                                                                       F162FTNA     578     A     
 END       .RM      ENDIF                                                                  F162FTNA     579     A     
 END                                                                                       F162FTNA     580     A     
 END       DFT70    SA1    T.FILE                                                          END         1083     A     
 END                SA2    T=FILE                                                          END         1084     A     
 END                =X3    3                                                               END         1085     A     
 END                IX6    X1+X3                                                           END         1086     A     
 END                SA5    X1                                                              END         1087     A     
 END                MX4    L.FNAM                                                          END         1088     A     
 END                IX7    X2-X3                                                           END         1089     A     
 END                ZR     X5,DFT78    IF NO MORE FILES                                    END         1090     A     
 END                SA6    A1                                                              END         1091     A     
 END                SA7    A2                                                              END         1092     A     
 END                BX0    X4*X5       ISOLATE FILE NAME                                   END         1093     A     
 END                =A5    A5+1                                                            END         1094     A     
 END                BX3    X5                                                              END         1095     A     
 END                =X2    2           LOWER PROGRAM RELOCATION                            END         1096     A     
 END                AX3    P.FFIT                                                          END         1097     A     
 END                SX6    X3          FIT ADDRESS OF FILE                                 END         1098     A     
 END                BX1    X6+X0                                                           END         1099     A     
 END                RJ     STX         OUTPUT POINTER WORD                                 END         1100     A     
 END                                                                                       END         1101     A     
 END                MI     X5,DFT70    IF EQUIVALENCED FILE, NO *FIT*                      END         1102          I
          -F162FTNA 
 END                SX2    X5          BUFFER LENGTH                                       END         1103          I
          -F162FTNA 
 END                AX5    18                                                              END         1104          I
          -F162FTNA 
 END                =X1    1                                                               END         1105          I
          -F162FTNA 
 END                SX0    X5          FIT ADDR                                            END         1106          I
          -F162FTNA 
 END                LX1    P.BTRL      =POSITIVE PROGRAM RELOCATION                        END         1107          I
          -F162FTNA 
 END                BX7    X1+X0       SOURCE ADDR FOR REPLS                               END         1108          I
          -F162FTNA 
 END                SA4    BT.FIT2     FIT TEXT TABLE HEADER WORD                          END         1109          I
          -F162FTNA 
 END                SA7    BT.REP+1                                                        END         1110          I
          -F162FTNA 
 END                IX6    X4+X7                                                           END         1111          I
          -F162FTNA 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 772    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                SX7    X0+BT.FIT1  DESTINATION ADDR FOR REPLS                          END         1112          I
          -F162FTNA 
 END                SA6    BT.FIT                                                          END         1113          I
          -F162FTNA 
 END                BX4    X1+X7                                                           END         1114          I
          -F162FTNA 
 END                                                                                       END         1115          I
          -F162FTNA 
 END       #RM      IFEQ   OT#RM,7                                                         END         1116          I
          -F162FTNA 
 END                                                                                       END         1117          I
          -F162FTNA 
 END                SA3    =XOT.RM                                                         END         1118          I
          -F162FTNA 
 END                ZR     X3,DFT74    IF 6RM OBJECT CODE                                  END         1119          I
          -F162FTNA 
 END                SX2    L.FIT7+L.FET7-BT.FIT1                                           END         1120          I
          -F162FTNA 
 END                =A5    A5+1                                                            END         1121          I
          -F162FTNA 
 END                LX2    P.BTRC                                                          END         1122          I
          -F162FTNA 
 END                MX6    0           MRL,WSA ADDR                                        END         1123          I
          -F162FTNA 
 END                BX7    X2+X4       3RD WORD REPL                                       END         1124          I
          -F162FTNA 
 END                MX2    0           RELOC WORD IF NO MRL                                END         1125          I
          -F162FTNA 
 END                MI     X5,DFT76    IF NO MRL SPECIFIED                                 END         1126          I
          -F162FTNA 
 END                SA2    BT.FIT3+2   RELOC WORD W/MRL                                    END         1127          I
          -F162FTNA 
 END                EQ     DFT75                                                           END         1128          I
          -F162FTNA 
 END       DFT74    BSS    0                                                               END         1129          I
          -F162FTNA 
 END                                                                                       END         1130          I
          -F162FTNA 
 END       #RM      ENDIF                                                                  END         1131          I
          -F162FTNA 
 END                                                                                       END         1132          I
          -F162FTNA 
 END                LX2    18                                                              END         1133          I
          -F162FTNA 
 END                SX7    X0+L.FIT6                                                       END         1134          I
          -F162FTNA 
 END                SA3    TA.PRO                                                          END         1135          I
          -F162FTNA 
 END                BX6    X2                                                              END         1136          I
          -F162FTNA 
 END                AX5    18                                                              END         1137          I
          -F162FTNA 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 773    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                SA7    BT.FIT0+1   FET ADDR                                            END         1138          I
          -F162FTNA 
 END                SB7    X5-C.PRO                                                        END         1139          I
          -F162FTNA 
 END                SA6    BT.FIT0+3   BUFFER LENGTH                                       END         1140          I
          -F162FTNA 
 END                SX2    L.FIT6+L.FET6-BT.FIT1                                           END         1141          I
          -F162FTNA 
 END                SA3    X3+B7                                                           END         1142          I
          -F162FTNA 
 END                LX2    P.BTRC                                                          END         1143          I
          -F162FTNA 
 END                BX7    X2+X4       3RD WORD OF REPL                                    END         1144          I
          -F162FTNA 
 END                BX6    X3                                                              END         1145          I
          -F162FTNA 
 END                =A5    A5+1                                                            END         1146          I
          -F162FTNA 
 END                SA6    BT.FIT0+5   BUFFER ADDR                                         END         1147          I
          -F162FTNA 
 END                SA2    BT.FIT3     RELOC WORD IF NO MRL                                END         1148          I
          -F162FTNA 
 END                MX6    0           MRL,WSA ADDR                                        END         1149          I
          -F162FTNA 
 END                MI     X5,DFT76    IF NO MRL SPECIFIED                                 END         1150          I
          -F162FTNA 
 END                =A2    A2+1        RELOC WORD W/MRL                                    END         1151          I
          -F162FTNA 
 END       DFT75    MX0    36                                                              END         1152          I
          -F162FTNA 
 END                BX4    -X0*X5      MRL INFO                                            END         1153          I
          -F162FTNA 
 END                SA3    TA.PRO                                                          END         1154          I
          -F162FTNA 
 END                AX5    2*18                                                            END         1155          I
          -F162FTNA 
 END                LX4    36                                                              END         1156          I
          -F162FTNA 
 END                IX3    X3+X5                                                           END         1157          I
          -F162FTNA 
 END                SA3    X3-C.PRO    FETCH WSA ADDRESS                                   END         1158          I
          -F162FTNA 
 END                BX6    X3+X4                                                           END         1159          I
          -F162FTNA 
 END       DFT76    SA6    BT.FIT0+6   MRL,WSA ADDR                                        END         1160          I
          -F162FTNA 
 END                SA7    BT.REP+2    3RD WORD OF REPL                                    END         1161          I
          -F162FTNA 
 END                BX6    X2                                                              END         1162          I
          -F162FTNA 
 END                SA6    BT.FIT+1    RELOC WORD                                          END         1163          I
          -F162FTNA 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 774    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                WLGO   BT.FIT,BT.FITL    OUTPUT THE FIT/FET DEFINITION                 END         1164          I
          -F162FTNA 
 END                EQ     DFT70                                                           END         1165          I
          -F162FTNA 
 END                SA1    T.FILE                                                          F162FTNA     581     A     
 END                SA5    X1+1-3      (A5,X5) = 2ND WORD OF FILE TABLE ENTRY              F162FTNA     582     A     
 END                MI     X5,DFT70    IF EQUIVALENCED FILE, DON-T ISSUE FIT               F162FTNA     583     A     
 END                SX4    X5          (X4) = CIO BUFFER LENGTH (BFS)                      F162FTNA     584     A     
 END                AX5    P.FFIT                                                          F162FTNA     585     A     
 END                SX0    X5          (X0) = FIT ORIGIN                                   F162FTNA     586     A     
 END                MX7    -18                                                             F162FTNA     587     A     
 END                                                                                       F162FTNA     588     A     
 END       .RM      IFEQ   OT#RM,6                                                         F162FTNA     589     A     
 END                                                                                       F162FTNA     590     A     
 END      *         ENTER FIT-RELATIVE ORIGIN ADDRESSES IN LOADER TEXT SKELETONS.          F162FTNA     591     A     
 END                                                                                       F162FTNA     592     A     
 END                SA1    BT.FCAH                                                         F162FTNA     593     A     
 END                SA2    BT.REPC+1                                                       F162FTNA     594     A     
 END                BX1    X7*X1                                                           F162FTNA     595     A     
 END                IX6    X1+X0                                                           F162FTNA     596     A     
 END                SA6    A1          FIT (A) TEXT TABLE HEADER                           F162FTNA     597     A     
 END                BX2    X7*X2                                                           F162FTNA     598     A     
 END                SX1    X0+BT.FCAL-1      ZERO WORD REPL SOURCE ADDR                    F162FTNA     599     A     
 END                BX6    X2+X1                                                           F162FTNA     600     A     
 END                SA6    A2          REPL SOURCE WORD                                    F162FTNA     601     A     
 END                SA1    BT.FCBH                                                         F162FTNA     602     A     
 END                SA2    BT.FCCH                                                         F162FTNA     603     A     
 END                SX3    X0+L.FIT1   FIT (B) ORIGIN                                      F162FTNA     604     A     
 END                BX1    X7*X1                                                           F162FTNA     605     A     
 END                IX6    X1+X3                                                           F162FTNA     606     A     
 END                BX2    X7*X2                                                           F162FTNA     607     A     
 END                SA6    A1          FIT (B) TEXT TABLE HEADER                           F162FTNA     608     A     
 END                SX3    X0+L.FIT6-L.FCLX  FIT (C) ORIGIN                                F162FTNA     609     A     
 END                BX6    X2+X3                                                           F162FTNA     610     A     
 END                SA6    A2          FIT (C) TEXT TABLE HEADER                           F162FTNA     611     A     
 END                                                                                       F162FTNA     612     A     
 END      *         ENTER LFN AND CIO BUFFER INFO (FWB, BFS) IN SKELETONS.                 F162FTNA     613     A     
 END                                                                                       F162FTNA     614     A     
 END                SA1    A5-B1       LFN                                                 F162FTNA     615     A     
 END                SX2    B1          CIO COMPLETE BIT                                    F162FTNA     616     A     
 END                BX3    X7*X1                                                           F162FTNA     617     A     
 END                IX6    X3+X2                                                           F162FTNA     618     A     
 END                AX5    P.FBUF-P.FFIT                                                   F162FTNA     619     A     
 END                SA6    BT.FCA      LFN, CMPLT TO FIT (A)                               F162FTNA     620     A     
 END                BX7    0           PRESET NO FWB RELOCATION                            F162FTNA     621     A     
 END                MX6    0           PRESET NO FWB                                       F162FTNA     622     A     
 END                SA3    TA.PRO                                                          F162FTNA     623     A     
 END                ZR     X4,DFT72    IF NO CIO BUFFER (BFS=0)                            F162FTNA     624     A     
 END                SB2    X5-C.PRO                                                        F162FTNA     625     A     
 END                SA1    X3+B2       BUFFER ORIGIN (FWB)                                 F162FTNA     626     A     
 END                =X7    2           PGM LOCAL RELOC                                     F162FTNA     627     A     
 END                BX6    X1          SET FWB                                             F162FTNA     628     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 775    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                LX7    60-2*4      SET FWB (2ND WORD) RELOCATION                       F162FTNA     629     A     
 END       DFT72    SA6    BT.FCA+1    FWB OR 0 TO FIT (A)                                 F162FTNA     630     A     
 END                SA7    BT.FCAH+1   RELOCATION BYTES OR 0 TO FIT (A)                    F162FTNA     631     A     
 END                LX7    X4                                                              F162FTNA     632     A     
 END                BX4    0           PRESET NO MRL                                       F162FTNA     633     A     
 END                SA7    BT.FCB+7    BFS TO FIT (B)                                      F162FTNA     634     A     
 END                                                                                       F162FTNA     635     A     
 END      *         ENTER MRL AND WSA.  WRITE FIT (A), REPL, FIT (B) AND FIT (C)           F162FTNA     636     A     
 END      *         TO BINARY OUTPUT FILE.  NOTE THAT FIT (C) IS WRITTEN ONLY IF           F162FTNA     637     A     
 END      *         MRL WAS SPECIFIED (MRL .NE. 0).                                        F162FTNA     638     A     
 END                                                                                       F162FTNA     639     A     
 END                SB7    BT.FITCL-BT.FCCTL       PRESET *OMIT FIT (C)*                   F162FTNA     640     A     
 END                SA5    A5+B1                                                           F162FTNA     641     A     
 END                MX6    2           =6S57, PRESET NO WSA                                F162FTNA     642     A     
 END                BX7    0           PRESET NO WSA RELOCATION                            F162FTNA     643     A     
 END                LX6    30-57       ERR OPT (EO) = AD = 6S30                            F162FTNA     644     A     
 END                MI     X5,DFT74    IF MRL NOT SPECIFIED                                F162FTNA     645     A     
 END                MX0    -L.FRCL                                                         F162FTNA     646     A     
 END                BX4    -X0*X5      EXTRACT MAX RECORD LENGTH (MRL)                     F162FTNA     647     A     
 END                AX5    P.FREC                                                          F162FTNA     648     A     
 END                SB2    X5-C.PRO                                                        F162FTNA     649     A     
 END                SA1    X3+B2       WSA ORIGIN                                          F162FTNA     650     A     
 END                LX4    P.BTMRL                                                         F162FTNA     651     A     
 END                BX7    X4+X1                                                           F162FTNA     652     A     
 END                IX6    X6+X1       EO, WSA                                             F162FTNA     653     A     
 END                SA7    BT.FCC      MRL, WSA TO FIT (C)                                 F162FTNA     654     A     
 END                SB7    BT.FITCL    SET *WRITE FIT (C)*                                 F162FTNA     655     A     
 END                =X7    2           PGM LOCAL RELOC                                     F162FTNA     656     A     
 END                LX7    60-6*4      SET WSA (6TH WORD) RELOCATION                       F162FTNA     657     A     
 END       DFT74    SA6    BT.FCB+5    EO/WSA OR 0 TO FIT (B)                              F162FTNA     658     A     
 END                SA7    BT.FCBH+1   WSA RELOC BYTE OR 0 TO FIT (B) HEADER               F162FTNA     659     A     
 END                BX6    X4                                                              F162FTNA     660     A     
 END                SA6    BT.FCB+2    MRL TO FIT (B)                                      F162FTNA     661     A     
 END                WLGO   BT.FITC,B7  LOADER TABLES (3 OR 4) TO BIN OUTPUT FILE           F162FTNA     662     A     
 END                EQ     DFT70       LOOP FOR NEXT FILE                                  F162FTNA     663     A     
 END                                                                                       F162FTNA     664     A     
 END       .RM      ENDIF                                                                  F162FTNA     665     A     
 END                                                                                       F162FTNA     666     A     
 END       .RM      IFEQ   OT#RM,7                                                         F162FTNA     667     A     
 END                                                                                       F162FTNA     668     A     
 END      *         ENTER FIT-RELATIVE ORIGIN ADDRESSES IN LOADER TEXT SKELETONS.          F162FTNA     669     A     
 END                                                                                       F162FTNA     670     A     
 END                SA1    BT.F7AH                                                         F162FTNA     671     A     
 END                SA2    BT.REP7+1                                                       F162FTNA     672     A     
 END                SX3    X0+BT.F7AL-1      ZERO WORD REPL SOURCE ADDR                    F162FTNA     673     A     
 END                BX1    X7*X1                                                           F162FTNA     674     A     
 END                IX6    X1+X0                                                           F162FTNA     675     A     
 END                SA6    A1                                                              F162FTNA     676     A     
 END                BX2    X7*X2                                                           F162FTNA     677     A     
 END                IX6    X2+X3                                                           F162FTNA     678     A     
 END                SA6    A2                                                              F162FTNA     679     A     
 END                                                                                       F162FTNA     680     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 776    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END      *         ENTER MRL AND WSA.  WRITE FIT (A) AND REPL TO BINARY OUTPUT            F162FTNA     681     A     
 END      *         FILE.                                                                  F162FTNA     682     A     
 END                                                                                       F162FTNA     683     A     
 END                SA5    A5+B1                                                           F162FTNA     684     A     
 END                BX7    0           PRESET NO WSA RELOCATION                            F162FTNA     685     A     
 END                MX6    0           PRESET NO MRL/WSA                                   F162FTNA     686     A     
 END                MI     X5,DFT76    IF MRL NOT SPECIFIED                                F162FTNA     687     A     
 END                MX0    -L.FRCL                                                         F162FTNA     688     A     
 END                SA3    TA.PRO                                                          F162FTNA     689     A     
 END                BX4    -X0*X5      EXTRACT MAX RECORD LENGTH (MRL)                     F162FTNA     690     A     
 END                AX5    P.FREC                                                          F162FTNA     691     A     
 END                SB2    X5-C.PRO                                                        F162FTNA     692     A     
 END                SA3    X3+B2       WSA ORIGIN                                          F162FTNA     693     A     
 END                LX4    P.BTMRL                                                         F162FTNA     694     A     
 END                =X7    2           PGM LOCAL RELOC                                     F162FTNA     695     A     
 END                BX6    X4+X3                                                           F162FTNA     696     A     
 END                LX7    60-7*4      SET WSA (7TH WORD) RELOCATION                       F162FTNA     697     A     
 END       DFT76    SA6    BT.F7A+6    MRL/WSA OR 0 TO FIT                                 F162FTNA     698     A     
 END                SA7    A1+B1       WSA RELOC BYTE OR 0 TO TEXT HEADER                  F162FTNA     699     A     
 END                WLGO   A1,BT.FIT7L FIT AND REPL TO BINARY OUTPUT FILE                  F162FTNA     700     A     
 END                EQ     DFT70       LOOP FOR NEXT FILE                                  F162FTNA     701     A     
 END                                                                                       F162FTNA     702     A     
 END       .RM      ENDIF                                                                  F162FTNA     703     A     
 END                                                                                       F162FTNA     704     A     
 END                                                                                       END         1166     A     
 END                                                                                       END         1167     A     
 END      **        LASTLY, THE Q8NTRY FILE VECTOR, ONE WORD PER FILE --                   END         1168          I
          -F162FTNA 
 END      *                42/ 0L_FILENAM,  18/ BUFFER_ADDRESS,                            END         1169          I
          -F162FTNA 
 END      *         TERMINATED BY A WORD CONTAINING THE COMPLEMENT OF THE OBJECT           END         1170          I
          -F162FTNA 
 END      *         PROGRAM *OUTPUT* FILE PRINT LIMIT.                                     END         1171          I
          -F162FTNA 
 END      *         LASTLY, TERMINATE THE FILE VECTOR TABLE WITH --                        F162FTNA     705     A     
 END      *         (CRM) ONE ZERO WORD, OR                                                F162FTNA     706     A     
 END      *         (7RM) ONE WORD CONTAINING THE COMPLEMENT OF THE RUN-TIME               F162FTNA     707     A     
 END      *               *OUTPUT* FILE PRINT LIMIT.                                       F162FTNA     708     A     
 END                                                                                       END         1172     A     
 END       DFT78    =X6    X1+1                                                            END         1173     A     
 END                SX7    X7+2        MARK LAST WORD REMOVED                              END         1174     A     
 END                SA3    PLIMIT                                                          END         1175          I
          -F162FTNA 
 END                SA6    A1                                                              END         1176     A     
 END                SA7    A2                                                              END         1177     A     
 END                =X2    0                                                               END         1178          I
          -F162FTNA 
 END                BX1    -X3                                                             END         1179          I
          -F162FTNA 
 END                SA3    =XOT.RM                                                         F162FTNA     709     A     
 END                BX2    0                                                               F162FTNA     710     A     
 END                SA1    PLIMIT                                                          F162FTNA     711     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 777    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                BX6    -X3                                                             F162FTNA     712     A     
 END                IX7    X2+X6                                                           F162FTNA     713     A     
 END                BX3    X3+X7       +0 IF (OT.RM)=0, ELSE -0                            F162FTNA     714     A     
 END                BX1    -X1*X3      +0 IF (OT.RM)=0, ELSE -(PLIMIT)                     F162FTNA     715     A     
 END                RJ     STX         OUTPUT FILE LIMIT TERMINATES TABLE                  END         1180     A     
 END                EQ     DFTX        EXIT..                                              END         1181          I
          -FCCA408
 END                                                                                       FCCA408      101     A     
 END       .RM      IFEQ   OT#RM,6                                                         FCCA408      102     A     
 END                                                                                       FCCA408      103     A     
 END      *         GENERATE WEAK EXTERNAL TABLE IF REQUIRED + LINK                        FCCA408      104     A     
 END                                                                                       FCCA408      105     A     
 END                SA1    DFTA                                                            FCCA408      106     A     
 END                ZR     X1,DFTX     IF NO STLTAB NEEDED,  EXIT..                        FCCA408      107     A     
 END                                                                                       FCCA408      108     A     
 END                SHRINK =XTT=SCR                                                        FCCA408      109     A     
 END                SX2    =XN.STL                                                         FCCA408      110     A     
 END                SX1    =XL.STL+2   STLTAB, HEAD OF STLTAB + XLINK                      FCCA408      111     A     
 END                LX4    B1,X2                                                           FCCA408      112     A     
 END                IX2    X2+X4       LENGTH OF ASSOCIATED XLINK                          FCCA408      113     A     
 END                IX0    X1+X2                                                           FCCA408      114     A     
 END                ALLOC  =XTT.SCR,X0                                                     FCCA408      115     A     
 END                SB5    X2          TABLE LENGTH                                        FCCA408      116     A     
 END                SX3    =XL.STL+1                                                       FCCA408      117     A     
 END                SX6    BT=TEXT     CONSTRUCT TEXT TABLE HEADER                         FCCA408      118     A     
 END                LX3    P.BTWC                                                          FCCA408      119     A     
 END                LX6    P.BTCN                                                          FCCA408      120     A     
 END                =X4    1                                                               FCCA408      121     A     
 END                BX6    X6+X3       OR IN WORD COUNT                                    FCCA408      122     A     
 END                LX4    P.BTRL                                                          FCCA408      123     A     
 END                SA2    DFTA                                                            FCCA408      124     A     
 END                BX6    X6+X4       OR IN RELOCATION                                    FCCA408      125     A     
 END                SX2    X2                                                              FCCA408      126     A     
 END                BX6    X6+X2       OR IN FWA STLTAB                                    FCCA408      127     A     
 END                MX7    0                                                               FCCA408      128     A     
 END                SA6    X1          STORE IN TT.SCR                                     FCCA408      129     A     
 END                =A7    A6+1        STORE ZERO RELOCATION WORD                          FCCA408      130     A     
 END                SB4    =XL.STL                                                         FCCA408      131     A     
 END                                                                                       FCCA408      132     A     
 END       DFT77    =A7    A7+1                                                            FCCA408      133     A     
 END                =B4    B4-1                                                            FCCA408      134     A     
 END                NZ     B4,DFT77    IF NOT FINISHED STLTAB BODY                         FCCA408      135     A     
 END                                                                                       FCCA408      136     A     
 END      *         OUTPUT XLINK FOR WEAK EXTERNAL STLTAB.                                 FCCA408      137     A     
 END                                                                                       FCCA408      138     A     
 END                SX3    =XN.STL                                                         FCCA408      139     A     
 END                SX6    BT=XLINK    CONSTRUCT XLINK HEADER                              FCCA408      140     A     
 END                LX4    B1,X3                                                           FCCA408      141     A     
 END                IX3    X4+X3       LENGTH OF XLINK BODY                                FCCA408      142     A     
 END                LX6    P.BTCN                                                          FCCA408      143     A     
 END                =X3    X3-1        XLINK BODY - FINAL TERMINATOR                       FCCA408      144     A     
 END                LX3    P.BTWC                                                          FCCA408      145     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 778    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                BX6    X6+X3                                                           FCCA408      146     A     
 END                SA2    DFTA                                                            FCCA408      147     A     
 END                =A6    A7+1        STORE XLINK HEADER                                  FCCA408      148     A     
 END                =X5    X2-1        (X5) = FWA STLTAB - 1                               FCCA408      149     A     
 END                SA3    =XSTLTAB    (A3/X3) = FWA AND CONTENTS OF STLTAB                FCCA408      150     A     
 END                =X4    1           (X4) = 1                                            FCCA408      151     A     
 END                MX0    1           (X0) = TOGGLE                                       FCCA408      152     A     
 END                                                                                       FCCA408      153     A     
 END       DFT77.3  SX2    0           LOW ORDER BIT POSITION                              FCCA408      154     A     
 END                BX7    X3+X4       NAME + WEAK EXTERNAL BIT                            FCCA408      155     A     
 END                PL     X0,DFT77.6  IF TOGGLE, SET LOW 30 BIT POSITION                  FCCA408      156     A     
 END                SX2    30          HIGH 30 BIT POSITION                                FCCA408      157     A     
 END                =X5    X5+1        BUMP RELOCATION WORD ADDRESS                        FCCA408      158     A     
 END                                                                                       FCCA408      159     A     
 END       DFT77.6  LX0    30          TOGGLE THE TOGGLE                                   FCCA408      160     A     
 END                BX6    X5                                                              FCCA408      161     A     
 END                LX2    P.BTXPS                                                         FCCA408      162     A     
 END                LX6    P.BTXRA                                                         FCCA408      163     A     
 END                =A7    A6+1        STORE FIRST WORD XLINK                              FCCA408      164     A     
 END                BX6    X6+X2       RA + POS                                            FCCA408      165     A     
 END                SX7    L.STLF                                                          FCCA408      166     A     
 END                BX6    X6+X4       RA+POS + RELOC BASE                                 FCCA408      167     A     
 END                LX7    P.BTXSZ                                                         FCCA408      168     A     
 END                BX6    X6+X7       RA+POS+RELOC BASE + ADDR FIELD LENGTH               FCCA408      169     A     
 END                =A6    A7+1        STORE SECOND WORD XLINK                             FCCA408      170     A     
 END                =A3    A3+1        NEXT STLTAB ENTRY                                   FCCA408      171     A     
 END                ZR     X3,DFT77.8  IF FINISHED                                         FCCA408      172     A     
 END                MX6    0                                                               FCCA408      173     A     
 END                SA6    A6+1        TERMINATOR FOR THIS ENTRY                           FCCA408      174     A     
 END                EQ     DFT77.3                                                         FCCA408      175     A     
 END                                                                                       FCCA408      176     A     
 END       DFT77.8  WLGO   X1,B5       WRITE IT ALL OUT                                    FCCA408      177     A     
 END                                                                                       FCCA408      178     A     
 END       .RM      ENDIF                                                                  FCCA408      179     A     
 END                EQ     DFTX                                                            FCCA408      180     A     
 END       .RM      IFEQ   OT#RM,6,2                                                       FCCA408      181     A     
 END                ENTRY  DFTA                                                            FCCA408      182     A     
 END       DFTA     BSSZ   1           TEMP CELL OF FWA STLTAB                             FCCA408      183     A     
 END                                                                                       FCCA408      184     A     
 END       DLF      SPACE  4,15                                                            END         1182     A     
 END      **        DLF -  DUMP *LINK*, *FILL*, AND *XFILL* TABLES.                        END         1183     A     
 END      *                                                                                END         1184     A     
 END      *         DUMPS LINK AND FILL TABLES TO BINARY.                                  END         1185     A     
 END      *                                                                                END         1186     A     
 END      *         TABLE MANAGER MAY CALL THIS ROUTINE TO FREE UP TABLE SPACE.            END         1187     A     
 END      *         WHEN IT DOES SO, THE LGO FILE MUST HAVE BEEN ALREADY FLUSHED           END         1188     A     
 END      *         TO DISK, AND (LGOIO) UPDATED TO REFLECT THIS.  OTHERWISE, WHEN         END         1189     A     
 END      *         WE ATTEMPT TO ADD WORDS TO AN SCM-RESIDENT LGO FILE, A NASTY           END         1190     A     
 END      *         INFINITE LOOP RESULTS.                                                 END         1191     A     
 END      *                                                                                END         1192     A     
 END      *         BASIC IDEA STOLEN FROM *DLAST* IN *COMPASS VER 2.0*.                   END         1193     A     
 END      *         CALLS  DCI, SRT1, WRITEW.                                              END         1194          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 779    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
          -FEAT126C 
 END      *         CALLS  SRT, WLF.                                                       FEAT126C     114     A     
 END                                                                                       END         1195     A     
 END                                                                                       END         1196     A     
 END       DLF8     NZ     B5,DLF85                                                        END         1197     A     
 END                SA6    A6+B1       STORE HANGING HALF-WORD                             END         1198     A     
 END       DLF85    SX4    BT=FILL                                                         END         1199     A     
 END                SX3    A6-B6                                                           END         1200     A     
 END                LX4    P.BTCN                                                          END         1201     A     
 END                =B7    X3+1                                                            END         1202     A     
 END                LX3    P.BTWC                                                          END         1203     A     
 END                BX6    X4+X3       MANUFACTURE CONTROL WORD                            END         1204     A     
 END                SA6    B6                                                              END         1205     A     
 END                WLGO   B6,B7                                                           END         1206     A     
 END                                                                                       END         1207     A     
 END      *         PROCESS *XFILL* TABLE                                                  END         1208     A     
 END                                                                                       END         1209     A     
 END       DLF9     SA2    =XTT=XFIL                                                       END         1210     A     
 END                SA1    =XTT.XFIL                                                       END         1211     A     
 END                SB7    X2                                                              END         1212     A     
 END                SB6    X1          B6 = FWA TABLE                                      END         1213     A     
 END                EQ     B7,B1,DLF   IF EMPTY *XFILL* TABLE, EXIT..                      END         1214     A     
 END                SX4    BT=XFILL                                                        END         1215     A     
 END                SX3    B7-B1                                                           END         1216     A     
 END                LX4    P.BTCN                                                          END         1217     A     
 END                LX3    P.BTWC                                                          END         1218     A     
 END                BX6    X4+X3       MANUFACTURE CONTROL WORD                            END         1219     A     
 END                SA6    B6                                                              END         1220     A     
 END                                                                                       END         1221     A     
 END       SNAP=X   IFNE   TEST        DUMP *XFILL* TABLE                                  END         1222     A     
 END                SA3    CO.SNAP                                                         END         1223     A     
 END                LX3    1RX                                                             END         1224     A     
 END                PL     X3,DLF8S                                                        END         1225     A     
 END                DUMPT  (=XTT.XFIL)                                                     END         1226     A     
 END       DLF8S    BSS    0                                                               END         1227     A     
 END       SNAP=X   ENDIF                                                                  END         1228     A     
 END                                                                                       END         1229     A     
 END                SHRINK A2,1                                                            END         1230          I
          -FCC0813
 END                WLGO   B6,B7                                                           END         1231     A     
 END                SHRINK TT=XFIL,1                                                       FCC0813      102     A     
 END                                                                                       END         1232     A     
 END       DLF      SUBR               ENTRY/EXIT...                                       END         1233     A     
 END                                                                                       END         1234     A     
 END      *         PROCESS *LINK* TABLE.                                                  END         1235     A     
 END                                                                                       END         1236     A     
 END       SNAP=K   IFNE   TEST        DUMP *LINK* TABLE                                   END         1237     A     
 END                SA3    CO.SNAP                                                         END         1238     A     
 END                LX3    1RK                                                             END         1239     A     
 END                PL     X3,DLF0S    IF LINK TABLE SNAP NOT SELECTED                     END         1240     A     
 END                DUMPT  (TT.LINK)                                                       END         1241     A     
 END       DLF0S    BSS    0                                                               END         1242     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 780    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END       SNAP=K   ENDIF                                                                  END         1243     A     
 END                                                                                       END         1244     A     
 END                SA2    TT=LINK                                                         END         1245     A     
 END                SA1    TT.LINK                                                         END         1246     A     
 END                SA3    NREXT                                                           END         1247     A     
 END                IX6    X2-X3                                                           END         1248     A     
 END                ZR     X6,DLF5     IF NO EXTERNALS                                     END         1249     A     
 END                SA6    A2          FAKE LENGTH TO ACTUAL FOR SORT                      END         1250     A     
 END                IX1    X1+X3       ADJUST ORIGIN TO IGNORE GHOST WORDS                 END         1251     A     
 END                RJ     SRT                                                             END         1252     A     
 END                                                                                       END         1253     A     
 END                SA1    TT.LINK                                                         END         1254     A     
 END                SA2    TT=LINK                                                         END         1255     A     
 END                SA3    TS.SYM                                                          END         1256     A     
 END                SA4    NREXT                                                           END         1257     A     
 END                SA0    X3          A0 = FWA NAME TAB                                   END         1258     A     
 END                IX0    X1+X4                                                           END         1259     A     
 END                SB7    X2          B7 = (LEN LINK)                                     END         1260     A     
 END                SA5    X0                                                              END         1261     A     
 END                SB4    X1          (B4) = FWA PHYSICAL TABLE                           END         1262     A     
 END                SB6    30                                                              END         1263     A     
 END                SA6    X1          PRESET STORE ADDR                                   END         1264     A     
 END                MX1    L.SYM                                                           END         1265     A     
 END                MX0    30                                                              END         1266     A     
 END                SB5    -B1                                                             END         1267     A     
 END                SB2    -B1                                                             END         1268     A     
 END                                                                                       END         1269     A     
 END       DLF2     AX2    X5,B6       ISOLATE EXT NO                                      END         1270     A     
 END                SB3    X2                                                              END         1271     A     
 END                SB2    B2+B1                                                           END         1272     A     
 END                BX7    -X0*X5      ISOLATE 30/OUTPUT STUFF                             END         1273     A     
 END                EQ     B3,B5,DLF3    IF SAME AS LAST EXT                               END         1274     A     
 END                SA3    B3+A0       FETCH EXT NAME                                      END         1275     A     
 END                SB5    B3                                                              END         1276     A     
 END                LX6    30                                                              END         1277     A     
 END                ZR     B2,DLF25    IF NO HANGING HALF-WORD                             END         1278     A     
 END                SA6    A6+B1                                                           END         1279     A     
 END       DLF25    BX6    X1*X3       ISOLATE NAME                                        END         1280     A     
 END                SB2    B0                                                              END         1281     A     
 END                SA6    A6+B1       STORE NEW NAME                                      END         1282     A     
 END                BX6    0                                                               END         1283     A     
 END       DLF3     SB7    B7-B1                                                           END         1284     A     
 END                LX4    X6,B6                                                           END         1285     A     
 END                BX6    X7+X4                                                           END         1286     A     
 END                SA5    A5+B1                                                           END         1287     A     
 END                ZR     B2,DLF4     IF LOWER BYTE                                       END         1288     A     
 END                SA6    A6+B1                                                           END         1289     A     
 END                SB2    -B1                                                             END         1290     A     
 END                BX6    0                                                               END         1291     A     
 END       DLF4     NZ     B7,DLF2     IF TABLE NOT EXHAUSTED                              END         1292     A     
 END                LX6    30                                                              END         1293     A     
 END                MI     B2,DLF45    IF NO HANGING HALF-WORD                             END         1294     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 781    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                SA6    A6+B1                                                           END         1295     A     
 END       DLF45    SX7    A6-B4       RESULTANT SIZE OF LINK TABLE                        END         1296     A     
 END                SA1    TT.LINK                                                         END         1297     A     
 END                =B7    X7+1                                                            END         1298     A     
 END                SX4    BT=LINK                                                         END         1299     A     
 END                LX7    P.BTWC                                                          END         1300     A     
 END                SB6    X1                                                              END         1301     A     
 END                LX4    P.BTCN                                                          END         1302     A     
 END                BX6    X4+X7       FORM *LINK* CONTROL WORD                            END         1303     A     
 END                SA6    B6                                                              END         1304     A     
 END                WLGO   B6,B7       WRITE OUT THE LINK TABLE                            END         1305     A     
 END                                                                                       END         1306     A     
 END       DLF5     SA1    NREXT                                                           END         1307     A     
 END                SHRINK TT=LINK,X1                                                      END         1308     A     
 END                                                                                       END         1309     A     
 END      *         PROCESS *FILL* TABLE.                                                  END         1310     A     
 END                                                                                       END         1311     A     
 END                SA2    TT=FILL                                                         END         1312     A     
 END                SA1    TT.FILL                                                         END         1313     A     
 END                SB7    X2                                                              END         1314     A     
 END                BX6    0                                                               END         1315     A     
 END                EQ1    B7,DLF9     IF EMPTY *FILL* TABLE                               END         1316     A     
 END                SA6    X1          ZERO THE DUMMY WORD SO SORT WONT MOVE IT            END         1317     A     
 END                RJ     SRT                                                             END         1318     A     
 END                                                                                       END         1319     A     
 END                SA1    TT.FILL                                                         END         1320     A     
 END                SA2    TT=FILL                                                         END         1321     A     
 END                MX0    -30                                                             END         1322     A     
 END                SB2    30                                                              END         1323     A     
 END                SB6    X1          B6 =  FWA  TABLE                                    END         1324     A     
 END                BX7    0                                                               END         1325     A     
 END                SB4    X2+B6       B4 = LWA+1 TABLE                                    END         1326     A     
 END                SA1    B6+B1       FETCH FIRST ENTRY                                   END         1327     A     
 END                SHRINK A2,1                                                            END         1328     A     
 END                SA6    B6-B1                                                           END         1329     A     
 END                SB3    B6+B1                                                           END         1330     A     
 END                                                                                       END         1331     A     
 END       DLF6     BX6    X6+X3                                                           END         1332     A     
 END                SB5    30                                                              END         1333     A     
 END                SA6    A6+B1                                                           END         1334     A     
 END       DLF7     GE     B3,B4,DLF8     IF TABLE EXHAUSTED                               END         1335     A     
 END                AX2    X1,B2                                                           END         1336     A     
 END                SB3    B3+B1                                                           END         1337     A     
 END                BX4    X7-X2                                                           END         1338     A     
 END                ZR     X4,DLF75    IF SAME BLOCK AS PREVIOUS                           END         1339     A     
 END                SB3    B3-B1       SET TO RE-PROCESS LAST ENTRY                        END         1340     A     
 END                BX1    X2                                                              END         1341     A     
 END                LX7    X2                                                              END         1342     A     
 END                                                                                       END         1343     A     
 END       DLF75    BX3    -X0*X1      ISOLATE FILL BYTE                                   END         1344     A     
 END                SA1    B3                                                              END         1345     A     
 END                ZR     B5,DLF6     IF LOWER                                            END         1346     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 782    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                LX6    X3,B2                                                           END         1347     A     
 END                SB5    B2-B5       INDICATE NEXT IS LOWER                              END         1348     A     
 END                EQ     DLF7                                                            END         1349     A     
 END       DTX      SPACE  4,15                                                            END         1350     A     
 END      **        DTX -  DUMP *TEXT* TABLE.                                              END         1351     A     
 END      *         IF TABLE IS EMPTY, NO WRITE WILL TAKE PLACE, BUT THE TABLE             END         1352     A     
 END      *                WILL BE RESET TO INDICATE *EMPTY* AND (ORG).                    END         1353     A     
 END      *         USES   A1-A4,A6,A7  B2,B3,B5-B7                                        END         1354     A     
 END      *         CALLS  WRITEW.                                                         END         1355          I
          -FEAT126C 
 END      *         CALLS  WLF.                                                            FEAT126C     115     A     
 END                                                                                       END         1356     A     
 END                                                                                       END         1357     A     
 END       DTX7     SA1    ORG                                                             END         1358     A     
 END                =X2    1                                                               END         1359     A     
 END                BX7    0                                                               END         1360     A     
 END                LX2    P.BTRL                                                          END         1361     A     
 END                SA7    BT.TXRB                                                         END         1362     A     
 END                IX6    X1+X2       ADJUST INTERNAL BLOCK ORDINAL TO LOADER             END         1363     A     
 END                                         BLOCK NUMBER.                                 END         1364     A     
 END                SA6    A7-B1                                                           END         1365     A     
 END                SA7    A6-B1                                                           END         1366     A     
 END                                                                                       END         1367     A     
 END       DTX      SUBR               ENTRY/EXIT...                                       END         1368     A     
 END                SA1    BT.TXWC                                                         END         1369     A     
 END                SX7    X1-15                                                           END         1370     A     
 END                SX6    BT=TEXT                                                         END         1371     A     
 END                ZR     X1,DTX7     IF EMPTY TABLE, AVOID..                             END         1372     A     
 END                =A3    A1+1                                                            END         1373     A     
 END                LX7    2                                                               END         1374     A     
 END                SA2    A3+B1       BT.TXRB WORD                                        END         1375     A     
 END                SX1    X1+B1                                                           END         1376     A     
 END                LX6    P.BTCN                                                          END         1377     A     
 END                SB7    X1+B1                                                           END         1378     A     
 END                SB3    X7          SHIFT FOR PARTIAL TABLE RELOC BYTES                 END         1379     A     
 END                LX1    P.BTWC                                                          END         1380     A     
 END                BX3    X6+X3                                                           END         1381     A     
 END                SB6    A3                                                              END         1382     A     
 END                IX6    X3+X1                                                           END         1383     A     
 END                AX7    X2,B3                                                           END         1384     A     
 END                SA6    A3                                                              END         1385     A     
 END                SA7    A2                                                              END         1386     A     
 END                WLGO   B6,B7                                                           END         1387     A     
 END                EQ     DTX7                                                            END         1388     A     
 END       KAP      SPACE  4,8                                                             END         1389     A     
 END      **        KAP -  COMPILE AP-LISTS.                                               END         1390     A     
 END      *         RELOCATES AND RE-FORMATS *TP.APL* INTO BINARY LOADER TEXT.             END         1391     A     
 END      *         ENTRY  (X1) = ORIGIN OF AP-LISTS.                                      END         1392     A     
 END      *         USES   ALL                                                             END         1393     A     
 END      *         CALLS  DTX, REL, STX.                                                  END         1394     A     
 END                                                                                       END         1395     A     
 END                                                                                       END         1396     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 783    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END       KAP      SUBR               ENTRY/EXIT...                                       END         1397     A     
 END                BX7    0                                                               END         1398     A     
 END                BX6    X1                                                              END         1399     A     
 END                SA7    BINWORD                                                         END         1400     A     
 END                SA6    ORG                                                             END         1401     A     
 END                SA7    A7+B1                                                           END         1402     A     
 END                MX6    -L.LBIAS                                                        END         1403     A     
 END                SA6    RELMASK                                                         END         1404     A     
 END                RJ     DTX         RESET TEXT TABLE                                    END         1405     A     
 END                                                                                       END         1406     A     
 END       KAP2     SA4    TP=APL                                                          END         1407     A     
 END                SA2    TP.APL                                                          END         1408     A     
 END                MX3    -1                                                              END         1409     A     
 END                IX7    X4+X3       DECREMENT LENGTH OF TABLE                           END         1410     A     
 END                SX6    X2+B1       INCREMENT ORIGIN OF TABLE                           END         1411     A     
 END                SA1    X2          FETCH TABLE ENTRY                                   END         1412     A     
 END                ZR     X4,EXIT.    IF TABLE EXHAUSTED                                  END         1413     A     
 END                SA7    A4                                                              END         1414     A     
 END                SA6    A2                                                              END         1415     A     
 END                BX2    0                                                               END         1416     A     
 END                ZR     X1,KAP8     NO RELOCATION FOR +-0                               END         1417     A     
 END                MX0    -L.APIO                                                         END         1418     A     
 END                MI     X1,KAP8     NO RELOCATION FOR NEGATIVE ENTRIES (PLUGS).         END         1419     A     
 END                BX5    -X0*X1                                                          END         1420     A     
 END                BX1    X0*X1       REMOVE I/O BITS                                     END         1421     A     
 END                LX1    P.LTAG-P.ATAG     ADJUST TO LONG FILE FORM                      END         1422     A     
 END                ZR     X5,KAP7     IF NORMAL (NOT I/O) ITEM                            END         1423     A     
 END                BX6    0           CLEAR ACCUMULATOR FOR EXTRA GOODIES                 END         1424     A     
 END                =X0    M.AVAR                                                          END         1425     A     
 END                BX3    X0*X5                                                           END         1426     A     
 END                LX3    P.IOIND-P.AVAR    COPY *IOIND* BIT                              END         1427     A     
 END                LX0    P.AFIT-P.AVAR                                                   END         1428     A     
 END                BX2    X0*X5                                                           END         1429     A     
 END                LX2    P.IOFIT-P.AFIT    COPY VARIABLE FIT BIT                         END         1430     A     
 END                LX0    P.AFMT-P.AFIT                                                   END         1431          I
          -FCC0589
 END                BX6    X3+X2                                                           END         1432          I
          -FCC0589
 END                BX3    X0*X5                                                           END         1433          I
          -FCC0589
 END                LX3    P.IOFMTP-P.AFMT   COPY *IOFMT* BIT                              END         1434          I
          -FCC0589
 END                LX0    P.ASTL-P.AFMT                                                   END         1435          I
          -FCC0589
 END                BX6    X6+X3                                                           END         1436          I
          -FCC0589
 END                BX2    X0*X5                                                           END         1437          I
          -FCC0589
 END                LX2    P.IOSTL-P.ASTL                                                  END         1438          I
          -FCC0589
 END                LX0    P.ALCM-P.ASTL                                                   END         1439          I
          -FCC0589
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 784    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                BX6    X3+X2                                                           FCC0589        6     A     
 END                LX0    P.ALCM-P.AFIT                                                   FCC0589        7     A     
 END                BX3    X0*X5                                                           END         1440     A     
 END                LX3    P.IOLCM-P.ALCM                                                  END         1441     A     
 END                MX0    -L.ASIZ                                                         END         1442     A     
 END                BX6    X6+X2       COPY *STL* BIT IF PRESENT                           END         1443          I
          -FCC0589
 END                BX2    -X0*X5      ISOLATE *ASIZ*                                      END         1444     A     
 END                BX6    X6+X3       COPY *LCM* BIT                                      END         1445     A     
 END                AX5    P.ATYP                                                          END         1446     A     
 END                MX4    -L.ATYP                                                         END         1447     A     
 END                BX7    -X4*X5                                                          END         1448     A     
 END                SB7    X7          ISOLATE *ATYP* FIELD                                END         1449     A     
 END                SX5    X2                                                              END         1450     A     
 END                JP     B7+*+1                                                          END         1451     A     
 END                                                                                       END         1452     A     
 END                LOC    0           APTYP     ?ASIZ?                                    END         1453     A     
 END                                                                                       END         1454     A     
 END                EQ     KAP6          0       IGNORE                                    END         1455     A     
 END                                                                                       END         1456     A     
 END                EQ     KAP4          1       SIZE                                      END         1457     A     
 END                                                                                       END         1458     A     
 END                SA3    BA.CON        2       CON-TAG ORDINAL                           END         1459     A     
 END                EQ     KAP3                                                            END         1460     A     
 END                                                                                       END         1461     A     
 END                SA3    BA.TEM        3     VAR-DIM TAG ORDINAL                         END         1462     A     
 END                EQ     KAP10                                                           END         1463     A     
 END                                                                                       END         1464     A     
 END                SA3    TA.PRO        4       PRO-TAG ORDINAL                           END         1465     A     
 END                EQ     KAP9                                                            END         1466     A     
 END                                                                                       END         1467     A     
 END                LX1    X5            5       OUTPUT CONTROL                            END         1468     A     
 END                BX2    0                                                               END         1469     A     
 END                LX1    P.IOTYP                                                         END         1470     A     
 END                EQ     KAP8         NO RELOCATION                                      END         1471     A     
 END                LOC    *O                                                              END         1472     A     
 END                                                                                       END         1473     A     
 END       KAP3     IX5    X3+X5                                                           END         1474     A     
 END                =X4    1                                                               END         1475     A     
 END                LX4    P.IOIND                                                         END         1476     A     
 END                BX6    X6+X4       SET INDIRECT BIT                                    END         1477     A     
 END                SX7    10B                                                             END         1478     A     
 END                LX5    P.IOSIZ-P.IOLEN                                                 END         1479     A     
 END                SA7    BINREL      INDICATE UPPER ADDRESS RELOCATABLE                  END         1480     A     
 END                                                                                       END         1481     A     
 END       KAP4     SA2    TS.SYM                                                          END         1482     A     
 END                BX3    X1                                                              END         1483     A     
 END                LX5    P.IOLEN                                                         END         1484     A     
 END                IX6    X5+X6                                                           END         1485     A     
 END                MX0    -L.PWF                                                          END         1486     A     
 END                AX3    P.LTAG                                                          END         1487     A     
 END                BX4    -X0*X3      TAG ORDINAL                                         END         1488     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 785    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                AX3    L.PWF       TAG TYPE                                            END         1489     A     
 END                SB7    X3-C.VAR/1S13                                                   END         1490     A     
 END                NZ     B7,KAP5     IF NOT VARIABLE TAG                                 END         1491     A     
 END                IX2    X2+X4                                                           END         1492     A     
 END                MX7    -L.FPNO                                                         END         1493     A     
 END                SA3    X2          FETCH TAG WORD                                      END         1494     A     
 END                MX0    -L.MODE                                                         END         1495     A     
 END                BX5    -X0*X3      ISOLATE TYPE                                        END         1496     A     
 END                AX3    P.FPNO                                                          END         1497     A     
 END                LX5    P.IOTYP                                                         END         1498     A     
 END                BX7    -X7*X3                                                          END         1499     A     
 END                BX6    X5+X6                                                           END         1500     A     
 END                ZR     X7,KAP6     IF NOT A FORMAL PARAMETER                           END         1501     A     
 END                AX1    P.LBIAS                                                         END         1502     A     
 END                =X5    1                                                               END         1503     A     
 END                MX0    -L.LBIAS                                                        END         1504     A     
 END                IX7    X7-X5                                                           END         1505     A     
 END                BX3    -X0*X1                                                          END         1506     A     
 END                BX1    X6+X7       *FP* NUMBER                                         END         1507     A     
 END                LX5    P.IOFP      SET *IOFP* BIT                                      END         1508     A     
 END                SA2    BINREL                                                          END         1509     A     
 END                LX3    L.IOARG                                                         END         1510     A     
 END                BX1    X1+X5                                                           END         1511     A     
 END                BX1    X1+X3                                                           END         1512     A     
 END                EQ     KAP8        NO RELOCATION FOR FORMAL PARAMETER                  END         1513     A     
 END                                                                                       END         1514     A     
 END      **        TAG IS TEMP OR CONSTANT --                                             END         1515     A     
 END      *                (BIAS) FIELD CONTAINS THE MODE.                                 END         1516     A     
 END                                                                                       END         1517     A     
 END                SYMASK (LBIAS)                                                         END         1518     A     
 END       KAP5     SA3    ="E"B                                                           END         1519     A     
 END                BX2    X3*X1                                                           END         1520     A     
 END                BX1    -X3*X1      CLEAR OLD BIAS FIELD                                END         1521     A     
 END                AX2    L.MODE                                                          END         1522     A     
 END                BX0    X3*X2       EXTRACT ACTUAL OFFSET                               END         1523     A     
 END                IX1    X1+X0                                                           END         1524     A     
 END                BX5    -X3*X2      EXTRACT MODE                                        END         1525     A     
 END                LX5    P.IOTYP-P.LBIAS+L.MODE                                          END         1526     A     
 END                BX6    X5+X6                                                           END         1527     A     
 END                                                                                       END         1528     A     
 END       KAP6     SA6    BINWORD                                                         END         1529     A     
 END                                                                                       END         1530     A     
 END       KAP7     =B2    1           INDICATE LOWER ADDRESS                              END         1531     A     
 END                BX5    X1                                                              END         1532     A     
 END                RJ     REL         RELOCATE THE ADDRESS                                END         1533     A     
 END                SA1    BINWORD                                                         END         1534     A     
 END                =A2    A1-BINWORD+BINREL                                               END         1535     A     
 END                                                                                       END         1536     A     
 END       KAP8     RJ     STX         STORE INTO TEXT TABLE                               END         1537     A     
 END                EQ     KAP2        LOOP..                                              END         1538     A     
 END                                                                                       END         1539     A     
 END      **        TAG IS PROGRAM --                                                      END         1540     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 786    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END      *                USED FOR *ERR=* ADDRESS FIELD                                   END         1541     A     
 END                                                                                       END         1542     A     
 END       KAP9     IX5    X3+X5                                                           END         1543     A     
 END                =X7    4                                                               END         1544     A     
 END                SA3    X5          FETCH TABLE ENTRY                                   END         1545     A     
 END                SA7    BINREL      INDICATE UPPER ADDRESS RELOCATABLE                  END         1546     A     
 END                SX6    X3                                                              END         1547     A     
 END                LX6    30          MOVE TO UPPER                                       END         1548     A     
 END                PL     X3,KAP6     IF CODE-RELATIVE                                    END         1549     A     
 END                SA5    BA.APL                                                          END         1550     A     
 END                LX5    30                                                              END         1551     A     
 END                IX6    X5+X6                                                           END         1552     A     
 END                EQ     KAP6                                                            END         1553     A     
 END       KAP10    SA2    TEM.MAX                                                         END         1554     A     
 END                SX4    X2-C.TEM                                                        END         1555     A     
 END                IX3    X3+X4                                                           END         1556     A     
 END                EQ     KAP3                                                            END         1557     A     
 END       KCF      SPACE  4,8                                                             END         1558     A     
 END      **        KCF -  COMPILE CONSTANTS AND FORMATS.                                  END         1559     A     
 END      *         ENTRY  (X1) = ORIGIN OF CONSTANTS.                                     END         1560     A     
 END                                                                                       END         1561     A     
 END                                                                                       END         1562     A     
 END       KCF      SUBR               ENTRY/EXIT...                                       END         1563     A     
 END                SA2    TS.CON                                                          END         1564     A     
 END                SA3    TS=CON                                                          END         1565     A     
 END                LX7    X1                                                              END         1566     A     
 END                BX6    0                                                               END         1567     A     
 END                SA7    ORG                                                             END         1568     A     
 END                SHRINK A3,X6       DE-ALLOCATE CONSTANT TABLE                          END         1569     A     
 END                SB4    X3          B4 = LENGTH OF TABLE                                END         1570     A     
 END                SA5    X2                                                              END         1571     A     
 END                RJ     DTX         INITIALIZE TABLE                                    END         1572     A     
 END                ZR     B4,KCF5     IF NO CONSTANTS                                     END         1573     A     
 END                                                                                       END         1574     A     
 END       KCF2     MX2    0                                                               END         1575     A     
 END                BX1    X5                                                              END         1576     A     
 END                RJ     STX                                                             END         1577     A     
 END                SB4    B4-B1                                                           END         1578     A     
 END                SA5    A5+B1                                                           END         1579     A     
 END                NZ     B4,KCF2     IF TABLE NOT EXHAUSTED                              END         1580     A     
 END                                                                                       END         1581     A     
 END      *         DUMP FORMATS.                                                          END         1582     A     
 END                                                                                       END         1583     A     
 END       KCF5     SA2    TP.FMT                                                          END         1584     A     
 END                SA3    TP=FMT                                                          END         1585     A     
 END                BX6    0                                                               END         1586     A     
 END                SB4    X3                                                              END         1587     A     
 END                SA5    X2                                                              END         1588     A     
 END                ZR     B4,EXIT.    IF NO FORMATS                                       END         1589     A     
 END                SHRINK A3,X6       DE-ALLOCATE FORMAT TABLE                            END         1590     A     
 END                                                                                       END         1591     A     
 END       KCF6     MX2    0                                                               END         1592     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 787    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                BX1    X5                                                              END         1593     A     
 END                RJ     STX                                                             END         1594     A     
 END                SB4    B4-B1                                                           END         1595     A     
 END                SA5    A5+B1                                                           END         1596     A     
 END                NZ     B4,KCF6     IF TABLE NOT EXHAUSTED                              END         1597     A     
 END                EQ     EXIT.                                                           END         1598     A     
 END       KNS      SPACE  4,8                                                             END         1599     A     
 END      **        KNS -  COMPILE *NAMELIST* SPACE.                                       END         1600     A     
 END      *         RELOCATES AND RE-FORMATS *TP.NLST* INTO BINARY LOADER TEXT.            END         1601     A     
 END      *         ENTRY  (X1) = ORIGIN FOR NAMELIST GROUP DESCRIPTORS.                   END         1602     A     
 END      *         USES   ALL                                                             END         1603     A     
 END      *         CALLS  DTX, REL, STX.                                                  END         1604     A     
 END                                                                                       END         1605     A     
 END                                                                                       END         1606     A     
 END       KNS9     SHRINK TP=NLST,0                                                       END         1607     A     
 END                                                                                       END         1608     A     
 END       KNS      SUBR               ENTRY/EXIT...                                       END         1609     A     
 END                                                                                       END         1610     A     
 END       SNAP=E   IFNE   TEST        DUMP NAMELIST TABLE                                 END         1611     A     
 END                SA2    CO.SNAP                                                         END         1612     A     
 END                LX2    1RE                                                             END         1613     A     
 END                PL     X2,KNS1S    IF NO *END* SNAP SELECTED                           END         1614     A     
 END                DUMPT  (TP.NLST)                                                       END         1615     A     
 END       KNS1S    BSS    0                                                               END         1616     A     
 END       SNAP=E   ENDIF                                                                  END         1617     A     
 END                BX6    X1                                                              END         1618     A     
 END                SA6    ORG                                                             END         1619     A     
 END                MX6    -L.LBIAS                                                        END         1620     A     
 END                SA6    RELMASK                                                         END         1621     A     
 END                RJ     DTX         INITIALIZE TEXT TABLE                               END         1622     A     
 END                                                                                       END         1623     A     
 END       KNS2     SA2    TP=NLST                                                         END         1624     A     
 END                SA3    TP.NLST                                                         END         1625     A     
 END                MX4    -1                                                              END         1626     A     
 END                IX7    X2+X4       SHRINK TABLE BY ONE WORD                            END         1627     A     
 END                SA1    X3                                                              END         1628     A     
 END                =X6    X3+1                                                            END         1629     A     
 END                ZR     X2,KNS9     IF TABLE EXHAUSTED                                  END         1630     A     
 END                SA7    A2                                                              END         1631     A     
 END                SA6    A3                                                              END         1632     A     
 END                BX2    0                                                               END         1633     A     
 END                RJ     STX         OUTPUT GROUP-NAME WORD                              END         1634     A     
 END                EQ     KNS7                                                            END         1635     A     
 END                                                                                       END         1636     A     
 END      **        OUTPUT ITEM-NAME WORD                                                  END         1637     A     
 END                                                                                       END         1638     A     
 END       KNS4     =X2                                                                    END         1639     A     
 END                RJ     STX         OUTPUT ITEM-NAME WORD                               END         1640     A     
 END                                                                                       END         1641     A     
 END                SA2    TP=NLST                                                         END         1642     A     
 END                SA3    TP.NLST                                                         END         1643     A     
 END                MX4    -1                                                              END         1644     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 788    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                IX7    X2+X4       SHRINK TABLE BY ONE WORD                            END         1645     A     
 END                SA5    X3                                                              END         1646     A     
 END                =X6    X3+1                                                            END         1647     A     
 END                ZR     X2,E.ZA     IF TABLE EXHAUSTED                                  END         1648     A     
 END                MX2    -P.DIM                                                          END         1649     A     
 END                SA7    A2                                                              END         1650     A     
 END                SA6    A3                                                              END         1651     A     
 END                BX6    X2*X5                                                           END         1652     A     
 END                =B2    1           INDICATE LOWER PARCEL                               END         1653     A     
 END                BX5    -X2*X5                                                          END         1654     A     
 END                SB6    X5          SAVE TAG                                            FCC1434X       7     A     
 END                SA6    BINWORD                                                         END         1655     A     
 END                LX5    P.LTAG                                                          END         1656     A     
 END                RJ     REL         COMPUTE ADDRESS RELOCATION                          END         1657     A     
 END                SA1    BINWORD                                                         END         1658     A     
 END                =A2    A1+1                                                            END         1659          I
          -FCC1434X 
 END                                                                                       FCC1434X       8     A     
 END       #MD      IFEQ   .DAL,1                                                          FCC1434X       9     A     
 END                                                                                       FCC1434X      10     A     
 END                SX5    B6          RESTORE TAG                                         FCC1434X      11     A     
 END                BX6    X1          SAVE (BINWORD)                                      FCC1434X      12     A     
 END                LX5    P.2TAG                                                          FCC1434X      13     A     
 END                RJ     =XCLT       CHECK FOR LCM TAG                                   FCC1434X      14     A     
 END                BX1    X6          (BINWORD)                                           FCC1434X      15     A     
 END                NZ     X3,KNS5     IF NOT LCM TAG                                      FCC1434X      16     A     
 END                MX0    1                                                               FCC1434X      17     A     
 END                LX0    1+29                                                            FCC1434X      18     A     
 END                BX1    X0+X1       INSERT LCM BIT                                      FCC1434X      19     A     
 END       KNS5     BSS    0                                                               FCC1434X      20     A     
 END                                                                                       FCC1434X      21     A     
 END       #MD      ENDIF                                                                  FCC1434X      22     A     
 END                                                                                       FCC1434X      23     A     
 END                SA2    BINREL                                                          FCC1434X      24     A     
 END       KNS6     RJ     STX         OUTPUT ADDRESS WORD                                 END         1660     A     
 END                                                                                       END         1661     A     
 END      **        CHECK FOR FURTHER DIM-WORDS.                                           END         1662     A     
 END                                                                                       END         1663     A     
 END       KNS7     SA2    TP=NLST                                                         END         1664     A     
 END                SA3    TP.NLST                                                         END         1665     A     
 END                MX4    -1                                                              END         1666     A     
 END                IX7    X2+X4       SHRINK TABLE BY ONE WORD                            END         1667     A     
 END                SA1    X3                                                              END         1668     A     
 END                =X6    X3+1                                                            END         1669     A     
 END                ZR     X2,E.ZA     IF TABLE EXHAUSTED                                  END         1670     A     
 END                BX2    0                                                               END         1671     A     
 END                MX3    CHAR                                                            END         1672     A     
 END                SA7    A2                                                              END         1673     A     
 END                SA6    A3                                                              END         1674     A     
 END                BX0    X3*X1       ISOLATE UPPER CHARACTER                             END         1675     A     
 END                NZ     X0,KNS4     IF NEW ITEM-NAME WORD                               END         1676     A     
 END                NZ     X1,KNS6     IF NOT END-OF-GROUP WORD                            END         1677     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 789    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                RJ     STX                                                             END         1678     A     
 END                EQ     KNS2        CONTINUE..                                          END         1679     A     
 END       LFS      SPACE  4,8                                                             FEAT155G     265     A     
 END      **        LFS    - LIST FINAL STATISTICS                                         FEAT155G     266     A     
 END      *                                                                                FEAT155G     267     A     
 END      *         ENTRY  (X1) = MAX CORE REQUIRED BY THIS PROGRAM UNIT                   FEAT155G     268     A     
 END      *         EXIT TO LFSX                                                           FEAT155G     269     A     
 END       LFS      BSS    0                                                               FEAT155G     270     A     
 END                PIA                                                                    FEAT155G     271     A     
 END                LX6    -2*CHAR                                                         FEAT155G     272     A     
 END                SA6    LFS.MAX                                                         FEAT155G     273     A     
 END                                                                                       FEAT155G     274     A     
 END       TEST     IFNE   TEST        NUMBER OF TABLE CRASHES IN *TEST* MODE              FEAT155G     275     A     
 END                SA1    =XMOVES                                                         FEAT155G     276     A     
 END                ZR     X1,LFS1     IF NO CRASHES                                       FEAT155G     277     A     
 END                RJ     CDD                                                             FEAT155G     278     A     
 END                SA6    A1                                                              FEAT155G     279     A     
 END                PLINE  A1,3,1                                                          FEAT155G     280     A     
 END       LFS1     PIA    =XPARSLEN                                                       FEAT155G     281     A     
 END                LX6    -2*CHAR                                                         FEAT155G     282     A     
 END                SA6    A1                                                              FEAT155G     283     A     
 END                PLINE A1,4,1       OUTPUT LARGEST PARSED FILE LENGTH                   FEAT155G     284     A     
 END       TEST     ENDIF                                                                  FEAT155G     285     A     
 END                                                                                       FEAT155G     286     A     
 END                SA2    =XTIME1                                                         FEAT155G     287     A     
 END                RJ     =XCPTIM     ELAPSED TIME FOR SUBPROGRAM                         FEAT155G     288     A     
 END                SA6    LFS.TM                                                          FEAT155G     289     A     
 END                RJ     =XTIMER                                                         FEAT155G     290     A     
 END                SA6    =XTIME1     RESET TIME                                          FEAT155G     291     A     
 END                PLINE  LFSE,5,1                                                        FEAT155G     292     A     
 END                EQ     LFSX        EXIT                                                FEAT155G     293     A     
 END                                                                                       FEAT155G     294     A     
 END                                                                                       FEAT155G     295     A     
 END       LFSE     BSS    0                                                               FEAT155G     296     A     
 END       LFS.MAX  DIS    1,(MAXCORE)                                                     FEAT155G     297     A     
 END                DIS    2, "SCM" STORAGE USED                                           FEAT155G     298     A     
 END       LFS.TM   DIS    1,(CPTIM)                                                       FEAT155G     299     A     
 END                DIS    ,/ SECONDS/                                                     FEAT155G     300     A     
 END       RAD      SPACE  4,20                                                            END         1680     A     
 END      **        RAD -  RELOCATE AND DUMP *LONG FILE*.                                  END         1681     A     
 END      *         ENTRY  (X1) = ORIGIN OF PROGRAM TEXT                                   END         1682     A     
 END      *         USES   ALL                                                             END         1683     A     
 END      *         CALLS  DTX, REL, STX.                                                  END         1684          I
          -FEAT126C 
 END      *         CALLS  DTX, RIN, REL, STX.                                             FEAT126C     116     A     
 END                                                                                       END         1685     A     
 END       RADA     BSSZ   1           STORAGE FOR PACKED 15 BIT INSTRUCTIONS              FEAT155C     160     A     
 END       RADB     BSS    1           STORAGE FOR READW INPUT                             FEAT155C     161     A     
 END                                                                                       END         1686     A     
 END       RAD      SUBR               ENTRY/EXIT...                                       END         1687     A     
 END                                                                                       END         1688     A     
 END       SNAP=F   IFNE   TEST        DUMP LONG FILE                                      END         1689     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 790    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                SA4    CO.SNAP                                                         END         1690     A     
 END                LX4    1RF                                                             END         1691     A     
 END                PL     X4,RADS     IF LONG FILE SNAP NOT SELECTED                      END         1692     A     
 END                DUMPT  (TT.LF)                                                         END         1693     A     
 END       RADS     BSS    0                                                               END         1694     A     
 END       SNAP=F   ENDIF                                                                  END         1695     A     
 END                                                                                       END         1696     A     
 END                SA3    MOD                                                             END         1697     A     
 END                SA2    TT.LF                                                           END         1698          I
          -FCC0813
 END                SBIT   X3,PBLK                                                         END         1699     A     
 END                SX7    3                                                               END         1700     A     
 END                BX6    X1                                                              END         1701     A     
 END                SA6    ORG                                                             END         1702     A     
 END                MI     X3,EXIT.    IF *BLOCKDATA*                                      END         1703     A     
 END                SA7    PARCEL                                                          END         1704     A     
 END                RJ     DTX         INITIALIZE TABLE                                    END         1705     A     
 END                MX6    -18                                                             END         1706     A     
 END                SA6    RELMASK                                                         END         1707     A     
 END                                                                                       END         1708     A     
 END       RAD2     RJ     RIN         READ INTERMEDIATE                                   END         1709          I
          -FEAT155C 
 END                ZR     X1,EXIT.    IF TABLE EXHAUSTED                                  END         1710          I
          -FEAT155C 
 END                MX1    L.LI12                                                          END         1711          I
          -FEAT155C 
 END      *         READ NEXT INSTRUCTION FROM TT.LF.                                      FEAT155C     162     A     
 END                                                                                       FEAT155C     163     A     
 END       RAD2     SA2    RADA                                                            FEAT155C     164     A     
 END                NZ     X2,RAD23    IF READING PACKED INSTRUCTION                       FEAT155C     165     A     
 END                SA4    BINIO                                                           FEAT155C     166     A     
 END                SA1    TT=LF                                                           FEAT155C     167     A     
 END                NZ     X4,RAD21    IF TT.LF ON DISK                                    FEAT155C     168     A     
 END                SA2    TT.LF                                                           FEAT155C     169     A     
 END                MX3    -1                                                              FEAT155C     170     A     
 END                IX7    X1+X3       SHRINK LONG FILE BY ONE WORD                        FEAT155C     171     A     
 END                =X6    X2+1                                                            FEAT155C     172     A     
 END                SA5    X2                                                              FEAT155C     173     A     
 END                ZR     X1,EXIT.    IF TABLE EXHAUSTED                                  FEAT155C     174     A     
 END                SA7    A1                                                              FEAT155C     175     A     
 END                SA6    A2                                                              FEAT155C     176     A     
 END                EQ     RAD22                                                           FEAT155C     177     A     
 END                                                                                       FEAT155C     178     A     
 END       RAD21    READW  F.LF,RADB,1                                                     FEAT155C     179     A     
 END                SA5    RADB        FETCH WORD READ                                     FEAT155C     180     A     
 END                ZR     X5,EXIT.    IF TABLE EXHAUSTED                                  FEAT155C     181     A     
 END                                                                                       FEAT155C     182     A     
 END       RAD22    MX3    45          MASK OFF LOW ORDER 12 BITS                          FEAT155C     183     A     
 END                BX2    -X3*X5                                                          FEAT155C     184     A     
 END                BX7    X3+X2                                                           FEAT155C     185     A     
 END                NZ     X7,RAD24    IF NOT PACKED INSTRUCTION                           FEAT155C     186     A     
 END                BX2    X3*X5                                                           FEAT155C     187     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 791    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                                                                                       FEAT155C     188     A     
 END       RAD23    MX3    15                                                              FEAT155C     189     A     
 END                BX5    X3*X2       ISOLATE TOP INSTRUCTION                             FEAT155C     190     A     
 END                BX7    -X3*X2      REMOVE FROM PACKAGE                                 FEAT155C     191     A     
 END                LX7    15          REPOSITION                                          FEAT155C     192     A     
 END                SA7    RADA        STORE PACKAGE REMNANTS                              FEAT155C     193     A     
 END                                                                                       FEAT155C     194     A     
 END       RAD24    MX1    L.LI12                                                          FEAT155C     195     A     
 END                SA2    PARCEL                                                          END         1712     A     
 END                BX3    X1*X5       ISOLATE *GHIJ*                                      END         1713     A     
 END                MX6    -2          X6 = -3                                             END         1714     A     
 END                SB2    X2-2                                                            END         1715     A     
 END                LX3    L.LGH                                                           END         1716     A     
 END                                                                                       END         1717     A     
 END       .76      IFEQ   .CPU,76                                                         END         1718     A     
 END                                                                                       END         1719     A     
 END                BX4    X3                                                              END         1720     A     
 END                LX4    3           X4 = GHI                                            END         1721     A     
 END                SB5    X4-014B                                                         END         1722     A     
 END                MI     B5,RAD25    IF GHI LESS THAN *014*                              END         1723     A     
 END                SB5    X4-016B                                                         END         1724     A     
 END                PL     B5,RAD25    IF GHI GREATER THAN *015*                           END         1725     A     
 END                                                                                       END         1726     A     
 END      *         HERE IF R/W LCM                                                        END         1727     A     
 END                                                                                       END         1728     A     
 END                SA4    X4+=XPIK=LCM-014B X4 = INST SKELETON                            END         1729     A     
 END                EQ     RAD27                                                           END         1730     A     
 END                                                                                       END         1731     A     
 END       RAD25    BSS    0                                                               END         1732     A     
 END                                                                                       END         1733     A     
 END       .76      ENDIF                                                                  END         1734     A     
 END                                                                                       END         1735     A     
 END                SA4    X3+PIK=PS   X4 = INST SKELETON                                  END         1736     A     
 END       RAD27    LX3    L.LI12-L.LGH+1    X3 = (GHIJ)*2                                 END         1737     A     
 END                AX4    60                                                              END         1738     A     
 END                AX0    X3,B1       X0 = (GHIJ)                                         END         1739     A     
 END                IX3    X3+X6                                                           END         1740     A     
 END                BX7    X4*X3       X7 = + LONG, 0 SHORT, - CALL                        END         1741     A     
 END                PX3    X7                                                              END         1742     A     
 END                NX7    X3                                                              END         1743     A     
 END                UX3    X7                                                              END         1744     A     
 END                SX0    X0-100B                                                         END         1745     A     
 END                AX3    47          X3 = +1    ,   0    ,    -1                         END         1746     A     
 END                BX7    -X3            = -1    ,  -0    ,    +1                         END         1747     A     
 END                IX3    X7-X6          = +2    ,  +3    ,    +4                         END         1748     A     
 END                BX0    X4*X0       X0 = + LONG, 0 SHORT, - ALL PSEUDOS                 END         1749     A     
 END                BX4    -X6*X3      X4 = +2    ,  +3    ,    +0                         END         1750     A     
 END                SB3    X4+B2                                                           END         1751     A     
 END                GT     B3,B0,RAD3  IF ENOUGH ROOM FOR INST                             END         1752     A     
 END                                                                                       END         1753     A     
 END      **        BEGIN NEW WORD -- PAD OUT (BINWORD) WITH (PARCEL) NO-OPS               END         1754     A     
 END                                                                                       END         1755     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 792    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                SA3    =460006100046000B                                               END         1756     A     
 END                MX7    L.LI15                                                          END         1757     A     
 END                SX2    -B2         = 2 - (PARCEL)                                      END         1758     A     
 END                SA1    BINWORD                                                         END         1759     A     
 END                LX2    4           = 32 - 16*P                                         END         1760     A     
 END                SB7    X2+B2       = 32-16P+P-2 = 30 - 15(P)                           END         1761     A     
 END                AX7    B7                                                              END         1762     A     
 END                SA2    A1+B1                                                           END         1763     A     
 END                BX3    -X7*X3      GET PROPER NUMBER OF NO-OPS                         END         1764     A     
 END                IX1    X1+X3                                                           END         1765     A     
 END                RJ     STX         STORE THE WORD INTO CURRENT TEXT TABLE              END         1766     A     
 END                SA2    PARCEL                                                          END         1767     A     
 END                                                                                       END         1768     A     
 END       RAD3     SB2    X2                                                              END         1769     A     
 END                ZR     X0,RAD4     IF SHORT INSTRUCTION                                END         1770     A     
 END                PL     X0,RAD5     IF LONG BUT NOT PSEUDO                              END         1771     A     
 END                SB4    X0+100B                                                         END         1772     A     
 END                                                                                       END         1773     A     
 END                JP     B4+*+1                                                          END         1774     A     
 END                                                                                       END         1775     A     
 END                LOC    0                                                               END         1776     A     
 END                                                                                       END         1777     A     
 END                MX1    -L.LTAG     BSS                                                 END         1778     A     
 END                AX5    -P.LTAG                                                         END         1779     A     
 END                EQ     RAD35                                                           END         1780     A     
 END                                                                                       END         1781     A     
 END                SX2    0100B-I.CALL      CALL (RJ WITH TRACE)                          END         1782     A     
 END                EQ     RAD34                                                           END         1783     A     
 END                                                                                       END         1784     A     
 END                SX2    0100B-I.RJ        RETURN JUMP (NO TRACE)                        END         1785     A     
 END                EQ     RAD32                                                           END         1786     A     
 END                                                                                       END         1787     A     
 END                MX1    -L.LI             JP INST                                       END         1788     A     
 END                BX4    -X1*X5                                                          END         1789     A     
 END                EQ     RAD37                                                           END         1790     A     
 END                                                                                       END         1791     A     
 END                SX2    0400B-I.EQ        UNCONDITIONAL *EQ* JUMP                       END         1792     A     
 END      *         EQ     RAD32                                                           END         1793     A     
 END                                                                                       END         1794     A     
 END                LOC    *O                                                              END         1795     A     
 END                                                                                       END         1796     A     
 END       RAD32    LX2    P.LI12                                                          END         1797     A     
 END                IX5    X5+X2       CHANGE PSEUDO TO NORMAL                             END         1798     A     
 END                RJ     REL                                                             END         1799     A     
 END                SA2    BINREL                                                          END         1800     A     
 END                SA1    A2-B1                                                           END         1801          I
          -FCC0741
 END                SA1    BINWORD                                                         FCC0741        5     A     
 END                NE     B4,B1,RAD33       IF NOT *CALL*                                 END         1802     A     
 END                SX2    X2+2        INDICATE LOWER PGM REL                              END         1803     A     
 END                SA4    SAVETR      LINE NUM FOR TRACEBACK                              END         1804     A     
 END                BX1    X1+X4       ADD LINE NUM. BACK IN FOR TRACEBACK                 END         1805     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 793    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END       RAD33    RJ     STX         STORE IN *TEXT* TABLE                               END         1806     A     
 END                EQ     RAD2                                                            END         1807     A     
 END                                                                                       END         1808     A     
 END       RAD34    MX1    L.TRC                                                           END         1809     A     
 END                LX1    P.TRC+L.TRC                                                     END         1810     A     
 END                BX6    X1*X5       SAVE LINE NUM. FOR TRACEBACK                        END         1811     A     
 END                BX5    -X1*X5      REMOVE LINE NUM. FROM BINWORD                       END         1812     A     
 END                SA6    SAVETR      SAVE LINE NUM FOR TRACEBACK                         END         1813     A     
 END                EQ     RAD32                                                           END         1814     A     
 END                                                                                       END         1815     A     
 END      **        BSS                                                                    END         1816     A     
 END                                                                                       END         1817     A     
 END       RAD35    SA3    ORG                                                             END         1818     A     
 END                BX1    -X1*X5      ISOLATE NUMBER OF WORDS TO BE RESERVED              END         1819     A     
 END                IX6    X1+X3                                                           END         1820     A     
 END                SA6    A3          INCREMENT ORIGIN                                    END         1821     A     
 END                EQ     RAD2                                                            END         1822     A     
 END                                                                                       END         1823     A     
 END      **        JP                                                                     END         1824     A     
 END                                                                                       END         1825     A     
 END       RAD37    LX4    L.LI        POSITION THE *B-BOX*                                END         1826     A     
 END                BX5    X1*X5                                                           END         1827     A     
 END                SX2    X4+0200B-I.JP                                                   END         1828     A     
 END                EQ     RAD32                                                           END         1829     A     
 END                                                                                       END         1830     A     
 END      **        MERGE 15-BIT INST INTO (BINWORD)                                       END         1831     A     
 END                                                                                       END         1832     A     
 END       RAD4     SX7    B2-B1                                                           END         1833     A     
 END                SX1    B2                                                              END         1834     A     
 END                SA7    A2                                                              END         1835     A     
 END                SA2    BINWORD                                                         END         1836     A     
 END                LX1    4                                                               END         1837     A     
 END                SB7    X1+15                                                           END         1838     A     
 END                SB3    B7-B2                                                           END         1839     A     
 END                MX0    15                                                              END         1840     A     
 END                BX5    X0*X5       CLEAR REST OF WORD                                  END         1841     A     
 END                LX5    B3                                                              END         1842     A     
 END                BX6    X2+X5                                                           END         1843     A     
 END                SA6    A2                                                              END         1844     A     
 END                EQ     RAD2                                                            END         1845     A     
 END                                                                                       END         1846     A     
 END      **        GET RELOCATION FOR 30-BIT INST.                                        END         1847     A     
 END                                                                                       END         1848     A     
 END       RAD5     SX7    B2-2                                                            END         1849     A     
 END                SA7    A2          ADVANCE PARCEL COUNT                                END         1850     A     
 END                RJ     REL                                                             END         1851          I
          -FEAT155G 
 END                                                                                       FEAT155G     301     A     
 END      ***       CHECK FOR OBJECT TIME REPRIEVE INSTRUCTIONS *6102---*.                 FEAT155G     302     A     
 END      *         MUST PUT COMPLIMENT OF LENGTH OF PROGRAM UNIT IN 1ST *6102---*         FEAT155G     303     A     
 END      *         FOR OTR.                                                               FEAT155G     304     A     
 END      *         (X5) = INSTRUCTION IN LONG FILE FORMAT                                 FEAT155G     305     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 794    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                                                                                       FEAT155G     306     A     
 END                SA1    CO.ER                                                           FEAT155G     307     A     
 END                ZR     X1,RAD6     ER=0                                                FEAT155G     308     A     
 END                MX1    L.LI12                                                          FEAT155G     309     A     
 END                BX3    X1*X5                                                           FEAT155G     310     A     
 END                SA4    =6102BS48                                                       FEAT155G     311     A     
 END                BX3    X4-X3                                                           FEAT155G     312     A     
 END                NZ     X3,RAD6     IF NOT A *6102* INSTR                               FEAT155G     313     A     
 END                MX3    L.TAG                                                           FEAT155G     314     A     
 END                LX3    48                                                              FEAT155G     315     A     
 END                BX2    X5*X3                                                           FEAT155G     316     A     
 END                LX2    L.LI12                                                          FEAT155G     317     A     
 END                PL     X2,RAD6     IF TAG FIELD OF  *6102*  IS POSITIVE                FEAT155G     318     A     
 END                SA3    OTRSAV                                                          FEAT155G     319     A     
 END                MX0    -L.TAG                                                          FEAT155G     320     A     
 END                BX3    -X0-X3                                                          FEAT155G     321     A     
 END                LX3    30                                                              FEAT155G     322     A     
 END                IX5    X4+X3       COMPLEMENT LENGTH OF ROUTINE TO TAG FIELD           FEAT155G     323     A     
 END       RAD6     RJ     REL                                                             FEAT155G     324     A     
 END                EQ     RAD2                                                            END         1852     A     
 END                                                                                       END         1853     A     
 END       SAVETR   BSSZ   1           SAVE TRACEBACK LINE NUM DURING RELOCATION           END         1854     A     
 END       OTRSAV   BSSZ   1                                                               FEAT155G     325     A     
 END       REL      SPACE  4,20                                                            END         1855     A     
 END      **        REL -  RELOCATE 30-BIT INSTRUCTION.                                    END         1856     A     
 END      *                                                                                END         1857     A     
 END      *         ENTRY  (X5) = INSTRUCTION IN LONG FILE FORM.                           END         1858     A     
 END      *                            (PSEUDOS WILL NOT BE CHANGED.)                      END         1859     A     
 END      *                (B2) = PARCEL TO RECEIVE THIS INSTRUCTION.                      END         1860     A     
 END      *                            3 _ UPPER                                           END         1861     A     
 END      *                            2 _ MIDDLE                                          END         1862     A     
 END      *                            1 _ LOWER                                           END         1863     A     
 END      *                            0 _ ** SYSERR **                                    END         1864     A     
 END      *                (ORG) = OBJECT ADDRESS OF THIS INST.                            END         1865     A     
 END      *                (RELMASK) = COMPLEMENT MASK OF BIAS FIELD SIZE.                 END         1866     A     
 END      *                            (-18 FOR INSTRUCTIONS.)                             END         1867     A     
 END      *                            (-24 FOR AP-LISTS.)                                 END         1868     A     
 END      *                                                                                END         1869     A     
 END      *         EXIT   INSTRUCTION AND RELOCATION HAVE BEEN OR-ED INTO BINWORD         END         1870     A     
 END      *                            AND BINREL.                                         END         1871     A     
 END      *                *LINK* AND *FILL* TABLE ENTRIES MADE AS NECESSARY.              END         1872     A     
 END      *                                                                                END         1873     A     
 END      *         USES   A1-A3,A6,A7  B3,B7  X0,X4,X5                                    END         1874     A     
 END      *         CALLS  ADDWD                                                           END         1875          I
          -FEAT126C 
 END      *         CALLS  ADW.                                                            FEAT126C     117     A     
 END                                                                                       END         1876     A     
 END                                                                                       END         1877     A     
 END       REL      SUBR               ENTRY/EXIT...                                       END         1878     A     
 END                MX2    -L.LI12                                                         END         1879     A     
 END                AX5    P.LBIAS                                                         END         1880     A     
 END                MX3    -L.LBIAS                                                        END         1881     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 795    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                BX3    -X3*X5      ISOLATE OFFSET                                      END         1882     A     
 END                AX5    -P.LBIAS+P.LTAG                                                 END         1883     A     
 END                SX6    X5          X6 = TAG                                            END         1884     A     
 END                BX0    X5          KEEP TAG FOR LATER ECS/LCM CHECK                    END         1885     A     
 END                LX2    -P.LTAG+P.LI12                                                  END         1886     A     
 END                BX7    0           INDICATE NO RELOCATION                              END         1887     A     
 END                SX4    B0          INDICATE NO SPECIAL RELOCATION                      END         1888     A     
 END                BX2    -X2*X5      X2 = 30/0, 12/GHIJ, 18/0                            END         1889     A     
 END                MI     X6,REL9     IF NEGATIVE TAG FIELD                               END         1890     A     
 END                MX5    L.PWF                                                           END         1891     A     
 END                LX6    -L.PWF                                                          END         1892     A     
 END                SB7    X6-C.BASE/1S13                                                  END         1893     A     
 END                BX6    X5*X6       ISOLATE ORDINAL                                     END         1894     A     
 END                LX6    L.PWF       RIGHT JUSTIFY                                       END         1895     A     
 END                MI     B7,REL8     IF NO TAG PRESENT                                   END         1896     A     
 END                =X7    2           NOMINAL RELOCATION                                  END         1897     A     
 END                SB3    B2-B1                                                           END         1898     A     
 END                LX7    B3                                                              END         1899     A     
 END                JP     B7+*+1                                                          END         1900     A     
 END                                                                                       END         1901     A     
 END                LOC    0                                                               END         1902     A     
 END                                                                                       END         1903     A     
 END                SA1    TA.NAM      20    VARIABLE                                      END         1904     A     
 END                EQ     REL5                                                            END         1905     A     
 END                                                                                       END         1906     A     
 END                SA1    TA.NAM      22    VARIABLE                                      END         1907     A     
 END                EQ     REL5                                                            END         1908     A     
 END                                                                                       END         1909     A     
 END                SA1    TS.STN      24    STATEMENT                                     END         1910     A     
 END                EQ     REL4A                                                           END         1911     A     
 END                                                                                       END         1912     A     
 END                SA1    TA.PRO      26    PROGRAM                                       END         1913     A     
 END                EQ     REL4                                                            END         1914     A     
 END                                                                                       END         1915     A     
 END                SA1    TEM.MAX     30    VAR-DIM                                       END         1916     A     
 END                EQ     REL3A                                                           END         1917     A     
 END                                                                                       END         1918     A     
 END                SA1    BA.TEM      32    TEM/IND                                       END         1919     A     
 END                EQ     REL3                                                            END         1920     A     
 END                                                                                       END         1921     A     
 END                SA1    BA.CON      34    CONSTANT                                      END         1922     A     
 END                EQ     REL3                                                            END         1923     A     
 END                                                                                       END         1924     A     
 END                LOC    *O                                                              END         1925     A     
 END                                                                                       END         1926     A     
 END                                                                                       END         1927     A     
 END       REL3A    SB7    X1-C.TEM                                                        END         1928     A     
 END                SX6    X6+B7                                                           END         1929     A     
 END                SA1    BA.TEM                                                          END         1930     A     
 END      *         EQ     REL3        CONTINUE..  (ALMOST)                                END         1931     A     
 END                                                                                       END         1932     A     
 END                                                                                       END         1933     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 796    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END       REL3     IX6    X6+X1       CONSTANTS, TEMPS, AP-LISTS                          END         1934     A     
 END                SX6    X6                                                              END         1935     A     
 END                EQ     REL8                                                            END         1936     A     
 END                                                                                       END         1937     A     
 END                                                                                       END         1938     A     
 END       REL4A    SB7    X6          STATEMENT LABELS                                    END         1939     A     
 END                SA1    X1+B7                                                           END         1940     A     
 END                AX1    P.SNAD                                                          END         1941     A     
 END                SX6    X1                                                              END         1942     A     
 END                EQ     REL8                                                            END         1943     A     
 END                                                                                       END         1944     A     
 END       REL4     SB7    X6          STATEMENT LABELS + PROGRAM TAGS                     END         1945     A     
 END                SA1    X1+B7       FETCH TABLE ENTRY                                   END         1946     A     
 END                SX6    X1                                                              END         1947     A     
 END                PL     X1,REL8     IF CODE-RELATIVE                                    END         1948     A     
 END                SA1    BA.APL                                                          END         1949     A     
 END                IX6    X1+X6                                                           END         1950     A     
 END                EQ     REL8                                                            END         1951     A     
 END                                                                                       END         1952     A     
 END                                                                                       END         1953     A     
 END      **        RELOCATE A NAME TAG.                                                   END         1954     A     
 END      *         FIND ADDRESS AND BLOCK NUMBER IN TA.NAM(ORD)                           END         1955     A     
 END      *         NEGATIVE ADDRESS INDICATES AN EXTERNAL, AND NON-ZERO BLOCK NUM         END         1956     A     
 END      *                MEANS COMMON.  FOR THOSE, PREPARE (X4) FOR ADDING TO            END         1957     A     
 END      *                FILL/LINK TABLE.                                                END         1958     A     
 END                                                                                       END         1959     A     
 END       REL5     AX6    1                                                               END         1960     A     
 END                SB7    X6                                                              END         1961     A     
 END                SA1    X1+B7       FETCH ADDRESS TABLE ENTRY                           END         1962     A     
 END                MX4    -L.BLOCK+1                                                      END         1963     A     
 END                SX6    X1          ISOLATE (BLOCK-RELATIVE) VALUE                      END         1964     A     
 END                AX1    P.BLOCK+1                                                       END         1965     A     
 END                BX4    -X4*X1      ISOLATE BLOCK NR                                    END         1966     A     
 END                ZR     X4,REL55    IF THE NOMINAL BLOCK                                END         1967     A     
 END                BX7    0                                                               END         1968     A     
 END                SX4    X4+2                                                            END         1969     A     
 END       REL55    PL     X6,REL8     IF NO EXTERNAL                                      END         1970     A     
 END                SB3    TT.FILL                                                         END         1971     A     
 END                SB3    -B3                                                             END         1972     A     
 END                SX1    B3+TT.LINK                                                      END         1973     A     
 END                SX4    B7+B7                                                           END         1974     A     
 END                LX1    P.BTRL                                                          END         1975     A     
 END                SX6    B0                                                              END         1976     A     
 END                BX4    X1+X4       INDICATE EXT, VICE COMM                             END         1977     A     
 END                SX7    B0                                                              END         1978     A     
 END      *         EQ     REL8                                                            END         1979     A     
 END                                                                                       END         1980     A     
 END                                                                                       END         1981     A     
 END      **        COMPUTE FINAL ADDRESS FIELD  =  [NEG] * ADDR + OFFSET                  END         1982     A     
 END      *         ENTRY  (X3) = OFFSET.                                                  END         1983     A     
 END      *                (X2) = *GHIJ*S18  (= INST SHIFTED LEFT BY 18)                   END         1984     A     
 END      *                (X4) = SPECIAL RELOCATION FLAG  --  42/WHICH, 18/ORD            END         1985     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 797    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END      *                            = 0 _ NO SPECIAL ACTION.                            END         1986     A     
 END      *                            " 0 _ COMMON OR EXTERNAL RELOCATABLE.               END         1987     A     
 END      *                            (ORD = BLOCK NUMBER OR TAG ORDINAL)                 END         1988     A     
 END      *                            (WHICH = WHICH TABLE TO ENTER.)                     END         1989     A     
 END      *                (X6) = PARTIAL ADDRESS                                          END         1990     A     
 END      *                (X7) = RELOCATION ALREADY COMPUTED.                             END         1991     A     
 END                                                                                       END         1992     A     
 END       REL8     LX3    -L.LBIAS    SIGN EXTEND THE BIAS                                END         1993     A     
 END                SA1    BINWORD                                                         END         1994     A     
 END                AX3    -L.LBIAS                                                        END         1995     A     
 END                IX6    X3+X6       (X6) = FINAL ADDRESS                                END         1996     A     
 END                SA3    RELMASK                                                         END         1997     A     
 END                =X5    B2-1                                                            END         1998     A     
 END                BX6    -X3*X6      TRIM BIAS TO FIT IN RESULT FIELD SIZE               END         1999     A     
 END                LX5    4           = 16*( (PARCEL) - 1 )                               END         2000     A     
 END                SX3    B2-B1                                                           END         2001     A     
 END                BX6    X6+X2                                                           END         2002     A     
 END                SA2    A1+B1                                                           END         2003     A     
 END                IX3    X5-X3                                                           END         2004     A     
 END                SB3    X3          = 15*( (PARCEL) - 1 )                               END         2005     A     
 END                LX6    X6,B3       POSITION FINAL INSTRUCTION HALF-WORD                END         2006     A     
 END                BX6    X1+X6       OR INST INTO BINWORD                                END         2007     A     
 END                IX7    X7+X2       MERGE RELOC INTO BINREL                             END         2008     A     
 END                SA6    A1                                                              END         2009     A     
 END                SA7    A2                                                              END         2010     A     
 END                ZR     X4,EXIT.    IF NO SPECIAL RELOCATION                            END         2011     A     
 END                                                                                       END         2012     A     
 END      **        MAKE LINK/FILL TABLE ENTRY --                                          END         2013     A     
 END                                                                                       END         2014     A     
 END                BX6    X5                                                              END         2015     A     
 END                BX5    X0                                                              END         2016     A     
 END                LX5    P.2TAG      TAG FOR *CLT*                                       END         2017     A     
 END                RJ     =XCLT       CHECK FOR LCM/ECS TAG                               END         2018     A     
 END                NZ     X3,REL85    IF NOT LCM OR ECS TAG                               END         2019     A     
 END                                                                                       END         2020     A     
 END      *         MAKE *XFILL* TABLE ENTRY --                                            END         2021     A     
 END                                                                                       END         2022     A     
 END                SX2    X4          ISOLATE BLOCK ORDINAL                               END         2023     A     
 END                SA1    ORG                                                             END         2024     A     
 END                SX7    B3          LOW-ORDER BIT POSITION OF ADDRESS FIELD             END         2025     A     
 END                LX1    6                                                               END         2026     A     
 END                BX6    X1+X7                                                           END         2027     A     
 END                LX6    6                                                               END         2028     A     
 END                                                                                       END         2029     A     
 END      *         WHEN DIRECT MODE (LCM=D) IS IMPLEMENTED, A TEST MUST GO IN             END         2030     A     
 END      *         TO DETECT WHICH MODE IS IN EFFECT.  DIRECT MODE WILL MEAN              END         2031     A     
 END      *         ADDRESS FIELDS TO BE RELOCATED ARE 18 BITS.  FOR NOW ALL               END         2032     A     
 END      *         LCM/ECS REFERENCES ARE TO POINTER WORDS, SO THE SIZE VALUE             END         2033     A     
 END      *         IS 21 BITS.                                                            END         2034     A     
 END                                                                                       END         2035     A     
 END                SX7    21                                                              END         2036     A     
 END                BX6    X6+X7                                                           END         2037     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 798    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                LX6    9                                                               END         2038     A     
 END                BX6    X6+X2                                                           END         2039     A     
 END                LX6    9                                                               END         2040     A     
 END                SX7    B1                                                              END         2041     A     
 END                BX6    X6+X7       = 30/(ORG), 6/0, 6/21, 9/ORD, 9/1                   END         2042     A     
 END                ADDWD  =XTT.XFIL                                                       END         2043     A     
 END                EQ     EXIT.                                                           END         2044     A     
 END                                                                                       END         2045     A     
 END       REL85    BX5    X6          RESTORE X5                                          END         2046     A     
 END                SX2    X4          ISOLATE BLOCK/EXTERNAL ORDINAL                      END         2047     A     
 END                SA1    ORG                                                             END         2048     A     
 END                AX4    P.BTRL                                                          END         2049     A     
 END                LX5    L.BTRL-4                                                        END         2050     A     
 END                SX5    X5+1S11+1   X5 = 1/1, 2/(PARCEL)-1, 9/1                         END         2051     A     
 END                LX5    P.BTRL                                                          END         2052     A     
 END                LX2    30                                                              END         2053     A     
 END                BX6    X5+X1                                                           END         2054     A     
 END                IX6    X2+X6       = 30/ORD, 12/(X5), 18/(ORG)                         END         2055     A     
 END                ADDWD  X4+TT.FILL                                                      END         2056     A     
 END                                                                                       END         2057     A     
 END       SNAP=K   IFNE   TEST        DUMP *LINK* TABLE                                   END         2058     A     
 END                SA3    CO.SNAP                                                         END         2059     A     
 END                LX3    1RK                                                             END         2060     A     
 END                PL     X3,REL8S    IF LINK TABLE SNAP NOT SELECTED                     END         2061     A     
 END                DUMPT  (TT.LINK)                                                       END         2062     A     
 END       REL8S    BSS    0                                                               END         2063     A     
 END       SNAP=K   ENDIF                                                                  END         2064     A     
 END                                                                                       END         2065     A     
 END                EQ     EXIT.                                                           END         2066     A     
 END                                                                                       END         2067     A     
 END                                                                                       END         2068     A     
 END      **        HANDLE NEGATIVE TAG FIELDS HERE.                                       END         2069     A     
 END      *                THIS ANACHRONISM SHOULD NOT BE PERMITTED TO EXIST,              END         2070     A     
 END      *                EXCEPT THAT IT MIGHT BE DIFFICULT FOR OTHER PARTS OF            END         2071     A     
 END      *                THE COMPILER TO LEARN HOW TO PUT ALL NUMBERS INTO THE           END         2072     A     
 END      *                BIAS FIELDS.                                                    END         2073     A     
 END                                                                                       END         2074     A     
 END       REL9     LX6    -L.TAG      SIGN EXTEND                                         END         2075     A     
 END                AX6    -L.TAG                                                          END         2076     A     
 END                EQ     REL8        CONTINUE AS FOR NORMAL BIAS                         END         2077     A     
 END                                                                                       END         2078     A     
 END       RELMASK  BSS    1           COMPLEMENT MASK OF BIAS FIELD SIZE                  END         2079     A     
 END       RIN      SPACE  4,8                                                             END         2080          I
          -FEAT155C 
 END      **        RIN -  READ INTERMEDIATE FILE.                                         END         2081          I
          -FEAT155C 
 END      *                                                                                END         2082          I
          -FEAT155C 
 END      *         READS ONE WORD FROM THE INTERMEDIATE FILE, WHETHER IT IS IN            END         2083          I
          -FEAT155C 
 END      *         CORE OR ON DISK.                                                       END         2084          I
          -FEAT155C 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 799    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END      *                                                                                END         2085          I
          -FEAT155C 
 END      *         EXIT   (X5) = NEXT WORD OF INTERMEDIATE.                               END         2086          I
          -FEAT155C 
 END      *                (X1) = EOF FLAG -- = 0 IF NO MORE INPUT.                        END         2087          I
          -FEAT155C 
 END      *         USES   ALL BUT  A0  B4  X0                                             END         2088          I
          -FEAT155C 
 END                                                                                       END         2089          I
          -FEAT155C 
 END                                                                                       END         2090          I
          -FEAT155C 
 END       RIN5     SX5    B4          SAVE (B4)                                           END         2091          I
          -FEAT155C 
 END                READW  F.LF,RINA,1                                                     END         2092          I
          -FEAT155C 
 END                SB4    X5          RESTORE (B4)                                        END         2093          I
          -FEAT155C 
 END                SA5    RINA        FETCH WORD READ                                     END         2094          I
          -FEAT155C 
 END                PL     X1,RIN6     IF DATA TRANSFERRED                                 END         2095          I
          -FEAT155C 
 END                SX1    B0          INDICATE END OF TABLE                               END         2096          I
          -FEAT155C 
 END                EQ     RIN                                                             END         2097          I
          -FEAT155C 
 END       RIN6     SX1    X1-RINA                                                         END         2098          I
          -FEAT155C 
 END                                                                                       END         2099          I
          -FEAT155C 
 END       RIN      SUBR               ENTRY/EXIT...                                       END         2100          I
          -FEAT155C 
 END                SA4    BINIO                                                           END         2101          I
          -FEAT155C 
 END                SA1    TT=LF                                                           END         2102          I
          -FEAT155C 
 END                NZ     X4,RIN5     IF TABLE ON DISK                                    END         2103          I
          -FEAT155C 
 END                SA2    TT.LF                                                           END         2104          I
          -FEAT155C 
 END                MX3    -1                                                              END         2105          I
          -FEAT155C 
 END                IX7    X1+X3       SHRINK LONG FILE BY ONE WORD                        END         2106          I
          -FEAT155C 
 END                =X6    X2+1                                                            END         2107          I
          -FEAT155C 
 END                SA5    X2                                                              END         2108          I
          -FEAT155C 
 END                ZR     X1,EXIT.    IF TABLE EXHAUSTED                                  END         2109          I
          -FEAT155C 
 END                SA7    A1                                                              END         2110          I
          -FEAT155C 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 800    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                SA6    A2                                                              END         2111          I
          -FEAT155C 
 END                EQ     EXIT.                                                           END         2112          I
          -FEAT155C 
 END                                                                                       END         2113          I
          -FEAT155C 
 END       RINA     BSS    1                                                               END         2114          I
          -FEAT155G 
 END       STX      SPACE  4,15                                                            END         2115     A     
 END      **        STX -  STORE *TEXT* TABLE ENTRY.                                       END         2116     A     
 END      *         ENTRY  (X1) = WORD TO BE OUTPUT                                        END         2117     A     
 END      *                (X2) = RELOCATION BYTE FOR THAT WORD                            END         2118     A     
 END      *         EXIT   TABLE UPDATED AND FLUSHED AS NECESSARY.                         END         2119     A     
 END      *                (ORG) INCREMENTED.                                              END         2120     A     
 END      *                (PARCEL) INDICATES EMPTY.                                       END         2121     A     
 END      *                (BINWORD) = (BINREL) = 0                                        END         2122     A     
 END      *         USES   A1,A2,A3,A4,A6,A7  B3,B4,B5,B6,B7                               END         2123     A     
 END      *         CALLS  DTX.                                                            END         2124     A     
 END                                                                                       END         2125     A     
 END                                                                                       END         2126     A     
 END       STX      SUBR               ENTRY/EXIT...                                       END         2127     A     
 END                SA3    BT.TXWC                                                         END         2128     A     
 END                BX6    X1                                                              END         2129     A     
 END                SA1    BT.TXRB                                                         END         2130     A     
 END                SX7    3                                                               END         2131     A     
 END                SA6    X3+BT.TEXT+2                                                    END         2132     A     
 END                SX6    X3+B1                                                           END         2133     A     
 END                LX1    L.BTRB                                                          END         2134     A     
 END                SA6    A3          UPDATE WORD COUNT                                   END         2135     A     
 END                SA7    PARCEL      INDICATE EMPTY WORD                                 END         2136     A     
 END                BX7    X2+X1                                                           END         2137     A     
 END                SA2    ORG                                                             END         2138     A     
 END                SX3    X6-15                                                           END         2139     A     
 END                BX6    0                                                               END         2140     A     
 END                SA7    A1                                                              END         2141     A     
 END                SA6    BINWORD                                                         END         2142     A     
 END                =X7    1                                                               END         2143     A     
 END                IX7    X2+X7       INCREMENT ORIGIN COUNTER                            END         2144     A     
 END                SA6    A6+B1                                                           END         2145     A     
 END                SA7    A2                                                              END         2146     A     
 END                MI     X3,EXIT.    IF NOT FULL TABLE                                   END         2147     A     
 END                                                                                       END         2148     A     
 END                RJ     DTX         FLUSH TEXT TABLE                                    END         2149     A     
 END                EQ     EXIT.                                                           END         2150     A     
 END       WLF      SPACE  4,20                                                            END         2151     A     
 END      **        WLF -  WRITE *LGO* FILE.                                               END         2152     A     
 END      *                                                                                END         2153     A     
 END      *                ALL BINARY OUTPUT MUST BE DONE THRU THIS ROUTINE.               END         2154     A     
 END      *         PLEASE USE THE MACRO FORM, *WLGO*, TO INSURE CORRECT CALLING           END         2155     A     
 END      *         SEQUENCE.  HANDLES COMPILE-TO-CORE AND OVERFLOW TO ECS.                END         2156     A     
 END      *                                                                                END         2157     A     
 END      *         ENTRY  (B6) = FWA DATA                                                 END         2158     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 801    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END      *                (B7) = WORD COUNT                                               END         2159     A     
 END      *         USES   A1-A4,A6,A7  B2,B3,B5-B7                                        END         2160     A     
 END      *         CALLS  ALLOC, ALLOX, MOVE, WLCM, WRITEW                                END         2161          I
          -FEAT126C 
 END      *         CALLS  FA=WTW.                                                         FEAT126C     118     A     
 END                                                                                       END         2162     A     
 END                                                                                       END         2163     A     
 END       .CMLOD   IFNE   .CMLOD                                                          END         2164     A     
 END       .LCM     IFNE   .LCM                                                            END         2165     A     
 END       WLF6     SHRINK TX=LGO      JUST OVERFLOWED, LCM TO DISK                        END         2166     A     
 END       .LCM     ENDIF                                                                  END         2167     A     
 END                                                                                       END         2168     A     
 END       WLF7     SB7    B5          JUST OVERFLOWED, SCM TO DISK                        END         2169     A     
 END                SHRINK T=LGO                                                           END         2170     A     
 END       .CMLOD   ENDIF                                                                  END         2171     A     
 END                                                                                       END         2172     A     
 END       WLF8     SX6    B4          SAVE (B4)                                           END         2173     A     
 END                SA6    =XGT1                                                           END         2174     A     
 END                WRITEW F.LGO,B6,B7 WRITE IT OUT WHEN ON DISK                           END         2175     A     
 END                SA1    =XGT1                                                           END         2176     A     
 END                SB4    X1          RESTORE (B4)                                        END         2177     A     
 END                                                                                       END         2178     A     
 END       WLF      SUBR               ENTRY/EXIT...                                       END         2179     A     
 END                                                                                       END         2180     A     
 END       .CMLOD   IFEQ   .CMLOD      COMPILE-TO-CORE                                     END         2181     A     
 END                EQ     WLF8                                                            END         2182     A     
 END       .CMLOD   ELSE                                                                   END         2183     A     
 END                SA1    LGOIO                                                           END         2184     A     
 END                MI     X1,WLF8     IF *LGO* ON DISK                                    END         2185     A     
 END                SB5    B7                                                              END         2186     A     
 END                IFNE   .LCM,,1                                                         END         2187     A     
 END                NZ     X1,WLF4     IF *LGO* IN LCM                                     END         2188     A     
 END                ALLOC  T.LGO,B7                                                        END         2189     A     
 END                SA1    LGOIO                                                           END         2190     A     
 END                MI     X1,WLF7     IF JUST OVERFLOWED TO DISK                          END         2191     A     
 END                IFNE   .LCM,,1                                                         END         2192     A     
 END                NZ     X1,WLF4     IF JUST OVERFLOWED TO LCM                           END         2193     A     
 END                MOVE   B6,B7-B5,B5                                                     END         2194     A     
 END                EQ     EXIT.                                                           END         2195     A     
 END                                                                                       END         2196     A     
 END       .LCM     IFNE   .LCM        TRY TO MOVE IT TO LCM                               END         2197     A     
 END       WLF4     ALLOX  TX.LGO,B7   ALLOCATE THE ECS TABLE                              END         2198     A     
 END                SA1    LGOIO                                                           END         2199     A     
 END                MI     X1,WLF6     IF JUST OVERFLOWED TO DISK                          END         2200     A     
 END                WLCM   B6,B5       WRITE IT TO LCM                                     END         2201     A     
 END                EQ     EXIT.                                                           END         2202     A     
 END       .LCM     ENDIF                                                                  END         2203     A     
 END                                                                                       END         2204     A     
 END       .CMLOD   ENDIF                                                                  END         2205     A     
 END                POPMAC WLGO                                                            END         2206     A     
 END       ENTRY    SPACE  4,8                                                             END         2207     A     
 END                LIST   D                                                               END         2208     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 802    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN END     
  
 END                END                                                                    END         2209     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - END     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          END                       2209      1940
          FCC0583                      1         1
          FCC0589                      2         2
          FEAT126A                    11         6
          FCC0709                     43        39
          FEAT126B                     4         2
          FEAT126C                    14        14
          FCC0741                      1         1
          FCC0635                      2         1
          FCC0813                     13        13
          FCC0931                      7         6
          S3143FC                      1         1
          FCC0962                      4         2
          FEAT155C                    36        36
          FEAT155D                    22        22
          FEAT155G                    83        81
          FEAT155K                     5         1
          FCC1264                     29        21
          FCC1421                      8         8
          FCC1328AX                    1         1
          FCC1390X                     1         1
          FCC1434X                    18        18
          FCC1550X                     1         1
          FCC1603X                     3         3
          FCC1681X                     1         0
          FCC1524X                    11        10
          F162FTNA                   315       310
          FCC1847X                     4         2
          F66FCC                     488       472
          FCCA403                     31        31
          FCCA408                    103       103
          FCCA469                      7         7
          FCC2069A                     3         3
          F2950F4                      3         3
          FCCA535                      7         7
          FCC2259                      2         2
          FCCA561                      5         5
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC    *DECK     ALLOC                                                                  ALLOC          1     A     
 ALLOC              IDENT  ALLOC                                                           ALLOC          2     A     
 ALLOC     ALLOC    SECT   (TABLE ALLOCATION AND MANIPULATION.),1                          ALLOC          3     A     
 ALLOC                                                                                     ALLOC          4     A     
 ALLOC              SST    B,D                                                             ALLOC          5     A     
 ALLOC              NOREF  B,D                                                             ALLOC          6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 803    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC                                                                                     ALLOC          7     A     
 ALLOC     B=ALLOC  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             ALLOC          8     A     
 ALLOC                                                                                     ALLOC          9     A     
 ALLOC              ENTRY  ERT,NEXT,ALC.REG,ALC.00,ALC.CAI,SCSA,ALC.ASF,ADW,NCM            ALLOC         10     A     
 ALLOC              ENTRY  ALC,PRS,ESY,SCD,SSY,DSRT,MVE,SRT,ASU,NCS,ESN,SSN                ALLOC         11          I
          -FCC0813
 ALLOC              ENTRY  ALC,PRS,ESY,SCD,SSY,DSRT,MVE,SRT,NCS,ESN,SSN                    FCC0813      103     A     
 ALLOC              ENTRY  ESC,NAP,SCS,ALC.DO,SCT,ACL,SCTR                                 ALLOC         12          I
          -FCC0813
 ALLOC              ENTRY  ESC,NAP,SCS,ALC.DO,SCT,SCTR                                     FCC0813      104     A     
 ALLOC              ENTRY  IDENT                                                           FEAT126A     765          I
          -FCC1224
 ALLOC              ENTRY  IDENT,ALC.PIG                                                   FCC1224       23     A     
 ALLOC                                                                                     ALLOC         13     A     
 ALLOC    *         IN FTN                                                                 ALLOC         14     A     
 ALLOC              EXT    BINIOF,CO.SNAP,F.LF,F.OUT,F.RMAP,F.LGO                          ALLOC         15     A     
 ALLOC              EXT    CO.SNAP,F.LF,F.OUT,F.RMAP,F.LGO                                 ALLOC         16     A     
 ALLOC                                                                                     ALLOC         17     A     
 ALLOC    *         IN TABLES                                                              ALLOC         18     A     
 ALLOC              EXT    BINIO,BASES,CDD,FAILSFT,IDENT,IGS,LOCORE,LOSTREF                ALLOC         19          I
          -FEAT126A 
 ALLOC              EXT    BINIO,BASES,CDD,FAILSFT,IGS,LOCORE,LOSTREF                      FEAT126A     766          I
          -FCC0813
 ALLOC              EXT    BINIO,BASES,CDD,FAILSFT,IGS,LOSTREF                             FCC0813      105     A     
 ALLOC              EXT    MAXCORE,N.TABLE,NREXT,ORIGINS,PASS,REFIO                        ALLOC         20          I
          -FCC0813
 ALLOC              EXT    N.TABLE,NREXT,ORIGINS,PASS,REFIO                                FCC0813      106     A     
 ALLOC              EXT    REFLIN,SIZCORE,SIZES,STAGE,TA=PRO,TG.APL,TA=NAM,TP=DIM          ALLOC         21          I
          -FCC0813
 ALLOC              EXT    REFLIN,SIZES,STAGE,TA=PRO,TG.APL,TA=NAM,TP=DIM                  FCC0813      107     A     
 ALLOC              EXT    TP=DO,TP=FMT,TP=NLST,TP=APL,TP.APL,TS=CON,TS=EQU,TS=DAT         ALLOC         22     A     
 ALLOC              EXT    TS=BLK,TS=ENT,TS.CON,TS.SYM,TT=LINK,TT=FILL,TT.LF,TT=LF         ALLOC         23     A     
 ALLOC              EXT    TT=USE,TT=SCR,TT=PAR,TT=REF,TT.ASF,TT.PAR,TT.REF,T.VDIM         ALLOC         24     A     
 ALLOC              EXT    T=INT,TT=ASF,TP.DO                                              ALLOC         25          I
          -FCC0813
 ALLOC              EXT    TT=ASF,TP.DO                                                    FCC0813      108     A     
 ALLOC                                                                                     ALLOC         26     A     
 ALLOC    *         IN ERRORS                                                              ALLOC         27     A     
 ALLOC              EXT    E.MO2,E.MO4,E.MO5                                               ALLOC         28     A     
 ALLOC                                                                                     ALLOC         29     A     
 ALLOC    *         IN PIG                                                                 ALLOC         30     A     
 ALLOC              EXT    DPT                                                             ALLOC         31     A     
 ALLOC                                                                                     ALLOC         32     A     
 ALLOC    *         IN MAP                                                                 ALLOC         33          I
          -FEAT155D 
 ALLOC              EXT    LPS.LR                                                          ALLOC         34          I
          -FEAT155D 
 ALLOC                                                                                     ALLOC         35          I
          -FEAT155D 
 ALLOC    *         IN END                                                                 ALLOC         36     A     
 ALLOC              EXT    DLF                                                             ALLOC         37     A     
 ALLOC                                                                                     ALLOC         38     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 804    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC    *         IN MAIN                                                                ALLOC         39     A     
 ALLOC              EXT    CPM=BY,WBL                                                      ALLOC         40     A     
 ALLOC                                                                                     ALLOC         41     A     
 ALLOC    *         IN INIT                                                                ALLOC         42     A     
 ALLOC              EXT    ADWT                                                            ALLOC         43     A     
 ALLOC                                                                                     ALLOC         44     A     
 ALLOC     ACL      SPACE  4,8                                                             ALLOC         45          I
          -FCC0813
 ALLOC    **        ACL -  ADJUST LOW CORE LIMIT OF TABLES.                                ALLOC         46          I
          -FCC0813
 ALLOC    *         ENTRY  (X1) = NEW LOW LIMIT.                                           ALLOC         47          I
          -FCC0813
 ALLOC    *         USES   ALL BUT  A0,A5  B4,B5,B6  X5                                    ALLOC         48          I
          -FCC0813
 ALLOC    *         CALLS  ALLOC, MOVE                                                     ALLOC         49          I
          -FEAT126C -FCC0813
 ALLOC    *         CALLS  ALC, MVE.                                                       FEAT126C     119          I
          -FCC0813
 ALLOC                                                                                     ALLOC         50          I
          -FCC0813
 ALLOC                                                                                     ALLOC         51          I
          -FCC0813
 ALLOC     ACL5     SA3    SIZCORE                                                         ALLOC         52          I
          -FCC0813
 ALLOC              IX7    X3+X4       AUGMENT CORE SIZE                                   ALLOC         53          I
          -FCC0813
 ALLOC              IX6    X2-X4       RESET LOW CORE ADDRESS                              ALLOC         54          I
          -FCC0813
 ALLOC              SA7    A3                                                              ALLOC         55          I
          -FCC0813
 ALLOC              SA6    A2                                                              ALLOC         56          I
          -FCC0813
 ALLOC                                                                                     ALLOC         57          I
          -FCC0813
 ALLOC     ACL      SUBR   0                                                               ALLOC         58          I
          -FCC0813
 ALLOC              SA2    LOCORE                                                          ALLOC         59          I
          -FCC0813
 ALLOC              IX4    X2-X1                                                           ALLOC         60          I
          -FCC0813
 ALLOC              BX0    -X4                                                             ALLOC         61          I
          -FCC0813
 ALLOC              PL     X4,ACL5     IF NEW LOW LIMIT IS LOWER                           ALLOC         62          I
          -FCC0813
 ALLOC              ALLOC  BASES,X0    AUGMENT LOWEST TABLE BY REQUIRED AMOUNT             ALLOC         63          I
          -FCC0813
 ALLOC              IX6    X2+X4       REMOVE EXCESS ALLOCATION                            ALLOC         64          I
          -FCC0813
 ALLOC              IX7    X1-X4                                                           ALLOC         65          I
          -FCC0813
 ALLOC              SA6    A2          LENGTH = LENGTH - ADJUSTMENT                        ALLOC         66          I
          -FCC0813
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 805    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              SA7    A1          FWA    = FWA    + ADJUSTMENT                        ALLOC         67          I
          -FCC0813
 ALLOC              BX3    X7          DESTINATION                                         ALLOC         68          I
          -FCC0813
 ALLOC              LX2    X1          SOURCE                                              ALLOC         69          I
          -FCC0813
 ALLOC              SX1    X6          WORD COUNT                                          ALLOC         70          I
          -FCC0813
 ALLOC              RJ     MVE                                                             ALLOC         71          I
          -FCC0813
 ALLOC              SA2    LOCORE                                                          ALLOC         72          I
          -FCC0813
 ALLOC              EQ     ACL5        CONTINUE..                                          ALLOC         73          I
          -FCC0813
 ALLOC     ADW      SPACE  4,20                                                            ALLOC         74     A     
 ALLOC    **        ADW -  ADD ONE WORD TO END OF MANAGED TABLE.                           ALLOC         75     A     
 ALLOC    *                                                                                ALLOC         76     A     
 ALLOC    *         ENTRY  (X6) = DATUM.                                                   ALLOC         77     A     
 ALLOC    *                (A1) _ ORIGIN WORD OF TABLE.                                    ALLOC         78     A     
 ALLOC    *                                                                                ALLOC         79     A     
 ALLOC    *         EXIT   (X1) = ORIGIN OF TABLE.                                         ALLOC         80     A     
 ALLOC    *                (X2) = NEW LENGTH OF TABLE                                      ALLOC         81     A     
 ALLOC    *                (X3) = DATUM.                                                   ALLOC         82     A     
 ALLOC    *                (X6) = DATUM.                                                   ALLOC         83     A     
 ALLOC    *                (A1) _ ORIGIN WORD OF TABLE.                                    ALLOC         84     A     
 ALLOC    *                (A2) _ LENGTH WORD OF TABLE.                                    ALLOC         85     A     
 ALLOC    *                (A6) _ LWA OF TABLE, WHERE *DATUM* WAS JUST STORED.             ALLOC         86     A     
 ALLOC    *                (B7) = LWA + 1 OF TABLE                                         ALLOC         87     A     
 ALLOC    *                                                                                ALLOC         88     A     
 ALLOC    *         THE MACRO CALL *ADDWD* SHOULD ALWAYS BE USED.                          ALLOC         89     A     
 ALLOC    *         USES   A2,A3,A6  X0,X6,X7  B2,B3,B7                                    ALLOC         90     A     
 ALLOC    *         CALLS  ALC                                                             ALLOC         91     A     
 ALLOC                                                                                     ALLOC         92     A     
 ALLOC              IFNE   TEST,,1                                                         ALLOC         93     A     
 ALLOC              ENTRY  ADW2                                                            ALLOC         94     A     
 ALLOC                                                                                     ALLOC         95     A     
 ALLOC     ADW1     SA6    ADWT        SAVE DATUM                                          ALLOC         96     A     
 ALLOC              RJ     ALC                                                             ALLOC         97     A     
 ALLOC     ADW2     SA3    ADWT                                                            ALLOC         98     A     
 ALLOC              BX6    X3                                                              ALLOC         99     A     
 ALLOC              =A6    B7-1                                                            ALLOC        100     A     
 ALLOC                                                                                     ALLOC        101     A     
 ALLOC     ADW      SUBR   0                                                               ALLOC        102     A     
 ALLOC              =X0    1                                                               ALLOC        103     A     
 ALLOC              EQ     ADW1                                                            ALLOC        104     A     
 ALLOC                                                                                     ALLOC        105     A     
 ALLOC     ALC      SPACE  4,40                                                            ALLOC        106     A     
 ALLOC    **        ALC -  TABLE MANAGER AND ALLOCATOR.                                    ALLOC        107     A     
 ALLOC    *                                                                                ALLOC        108     A     
 ALLOC    *         ALLOCATOR WILL MOVE TABLES TO ACQUIRE ROOM.  ALSO MAY DUMP             ALLOC        109     A     
 ALLOC    *         INTERMEDIATE OR CROSS-REFERENCES ONTO SCRATCH FILE.                    ALLOC        110     A     
 ALLOC    *         WILL ABANDON CMLOD IF NECESSARY, FORCING *T.LGO* TO DISK.              ALLOC        111     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 806    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC    *                                                                                ALLOC        112     A     
 ALLOC    *         STOLEN FROM *COMPASS VER 2.0*                                          ALLOC        113     A     
 ALLOC    *                                                                                ALLOC        114     A     
 ALLOC    *         ENTRY  (A1) _ ORIGIN WORD OF TABLE.                                    ALLOC        115     A     
 ALLOC    *                (X0) = CHANGE (+ OR -) TO TABLE SIZE.                           ALLOC        116     A     
 ALLOC    *                                                                                ALLOC        117     A     
 ALLOC    *         EXIT   (X1) = ORIGIN OF TABLE.                                         ALLOC        118     A     
 ALLOC    *                (X2) = NEW LENGTH OF TABLE.                                     ALLOC        119     A     
 ALLOC    *                (A1) _ ORIGIN WORD OF TABLE.                                    ALLOC        120     A     
 ALLOC    *                (A2) _ LENGTH WORD OF TABLE.                                    ALLOC        121     A     
 ALLOC    *                (B7) = LWA + 1 OF TABLE                                         ALLOC        122     A     
 ALLOC    *                                                                                ALLOC        123     A     
 ALLOC    *         THE MACRO CALL *ALLOC* SHOULD ALWAYS BE USED.                          ALLOC        124     A     
 ALLOC    *                                                                                ALLOC        125     A     
 ALLOC    *         NOTE SPECIAL DEAL FOR *ASF* EXPANSION --                               ALLOC        126     A     
 ALLOC    *                WHEN A STATEMENT FUNCTION IS BEING EXPANDED, (B4) IS            ALLOC        127     A     
 ALLOC    *                POINTING TO SOME TABLE, WHICH WE ARE ABOUT TO MOVE.             ALLOC        128     A     
 ALLOC    *                TO AVOID THE EMBARASSMENT WHICH MIGHT OTHERWISE OCCUR,          ALLOC        129     A     
 ALLOC    *                THE MANAGER WILL RE-LOCATE A REGISTER RELATIVE TO A             ALLOC        130     A     
 ALLOC    *                DESIGNATED TABLE.  THIS IS INDICATED BY SETTING                 ALLOC        131     A     
 ALLOC    *                (ALC.REG) =  24/ 0,  18/ REG,  18/ TABLE                        ALLOC        132     A     
 ALLOC    *                    (REG) = ADDRESS OF CELL WHERE DESIRED REGISTER IS           ALLOC        133     A     
 ALLOC    *                            SAVED BY *ALC*.                                     ALLOC        134     A     
 ALLOC    *                    (TAB) = ADDRESS OF TABLE ORIGIN WORD.                       ALLOC        135     A     
 ALLOC    *                THIS CAN ONLY BE DONE FOR A REGISTER WHICH IS SAVED AND         ALLOC        136     A     
 ALLOC    *                RESTORED BY THE MANAGER.                                        ALLOC        137     A     
 ALLOC    *                                                                                ALLOC        138     A     
 ALLOC    *         USES   A1-A3,A6,A7  B7  X0-X3,X6,X7                                    ALLOC        139     A     
 ALLOC    *         KEEPS  A0,A4,A5  B2-B6  X4,X5                                          ALLOC        140     A     
 ALLOC    *         CALLS  ASU, ABORT, DLF, MESAGE, MTD, MVE, WRITEW                       ALLOC        141     A     
 ALLOC                                                                                     ALLOC        142     A     
 ALLOC                                                                                     ALLOC        143     A     
 ALLOC     ALCW     RJ     ASU         ACCUMULATE STORAGE USED                             ALLOC        144          I
          -FCC0813
 ALLOC     ALCW     BSS    0                                                               FCC0813      109     A     
 ALLOC     SNAP=T   IFNE   TEST                                                            FCC0813      110     A     
 ALLOC              SA1    CO.SNAP                                                         FCC0813      111     A     
 ALLOC              LX1    1RT                                                             FCC0813      112     A     
 ALLOC              PL     X1,ALCW1    IF TABLE SNAP NOT SELECTED                          FCC0813      113     A     
 ALLOC              SA1    =10H ALCW                                                       FCC0813      114     A     
 ALLOC              RJ     =XPTA       PRINT TABLE ALLOCATION                              FCC0813      115     A     
 ALLOC     ALCW1    BSS    0                                                               FCC0813      116     A     
 ALLOC     SNAP=T   ENDIF                                                                  FCC0813      117     A     
 ALLOC                                                                                     ALLOC        145     A     
 ALLOC              SA2    ALC.REG                                                         ALLOC        146     A     
 ALLOC              =A1    A2+1        = OLD ORIGIN                                        ALLOC        147     A     
 ALLOC              SA3    X2          = NEW ORIGIN                                        ALLOC        148     A     
 ALLOC              AX2    18                                                              ALLOC        149     A     
 ALLOC              IX6    X3-X1       = DISPLACEMENT                                      ALLOC        150     A     
 ALLOC              SA2    X2          = OLD REGISTER VALUE                                ALLOC        151     A     
 ALLOC              IX6    X2+X6                                                           ALLOC        152     A     
 ALLOC              SA6    A2          STORE NEW REGISTER VALUE                            ALLOC        153     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 807    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC                                                                                     ALLOC        154     A     
 ALLOC              SA1    B2+BASES    RECLAIM TABLE ORIGIN WORD                           ALLOC        155     A     
 ALLOC                                                                                     ALLOC        156     A     
 ALLOC    **        WE PROMISED TO PRESERVE MANY REGISTERS.  IT IS TIME TO RESTORE         ALLOC        157     A     
 ALLOC    *                THEM.                                                           ALLOC        158     A     
 ALLOC                                                                                     ALLOC        159     A     
 ALLOC                                 (ALCD)                                              ALLOC        160     A     
 ALLOC              SA5    ALCD        +0 = (B2)                                           ALLOC        161     A     
 ALLOC              SB2    X5                                                              ALLOC        162     A     
 ALLOC              =A4    A5+1        +1 = (B3)                                           ALLOC        163     A     
 ALLOC              SB3    X4                                                              ALLOC        164     A     
 ALLOC              =A3    A4+1        +2 = (B4)                                           ALLOC        165     A     
 ALLOC              SB4    X3                                                              ALLOC        166     A     
 ALLOC              =A2    A3+1        +3 = (B5)                                           ALLOC        167     A     
 ALLOC              SB5    X2                                                              ALLOC        168     A     
 ALLOC              =A5    A2+1        +4 = (B6)                                           ALLOC        169     A     
 ALLOC              SB6    X5                                                              ALLOC        170     A     
 ALLOC                                                                                     ALLOC        171     A     
 ALLOC              =A4    A5+1        +5 = (A4)                                           ALLOC        172     A     
 ALLOC              =A3    A4+1        +6 = (A5)                                           ALLOC        173     A     
 ALLOC              =A2    A3+1        +7 = (X4)                                           ALLOC        174     A     
 ALLOC              SA4    X4                                                              ALLOC        175     A     
 ALLOC              SA5    X3                                                              ALLOC        176     A     
 ALLOC              =A3    A2+1        +8 = (X5)                                           ALLOC        177     A     
 ALLOC              BX4    X2                                                              ALLOC        178     A     
 ALLOC              LX5    X3                                                              ALLOC        179     A     
 ALLOC                                                                                     ALLOC        180     A     
 ALLOC              SA2    A1+N.TABLE  RECLAIM TABLE LENGTH WORD                           ALLOC        181     A     
 ALLOC     ALCZ     IX6    X1+X2                                                           ALLOC        182     A     
 ALLOC              NO                                                                     ALLOC        183     A     
 ALLOC              NO                                                                     ALLOC        184     A     
 ALLOC              SB7    X6          (B7) = LWA + 1 OF TABLE                             ALLOC        185     A     
 ALLOC                                                                                     ALLOC        186     A     
 ALLOC     ALC      SUBR   0                                                               ALLOC        187     A     
 ALLOC              SA2    A1+N.TABLE  CURRENT SIZE                                        ALLOC        188     A     
 ALLOC              =A3    A1+1        ORIGIN OF NEXT                                      ALLOC        189     A     
 ALLOC              IX2    X0+X2       NEW SIZE                                            ALLOC        190     A     
 ALLOC              =X6    X1+FUDGE                                                        ALLOC        191     A     
 ALLOC              IX7    X3-X6                                                           ALLOC        192     A     
 ALLOC              IX7    X7-X2                                                           ALLOC        193     A     
 ALLOC                                                                                     ALLOC        194     A     
 ALLOC    **               TABLES HAVE CRASHED WHEN --                                     ALLOC        195     A     
 ALLOC    *         ORG(TABLE) + LENGTH(TABLE) + INCREMENT + 1 > ORG(NEXT)                 ALLOC        196     A     
 ALLOC                                                                                     ALLOC        197     A     
 ALLOC              BX6    X2                                                              ALLOC        198     A     
 ALLOC              SA6    A2          UPDATE SIZE                                         ALLOC        199     A     
 ALLOC              PL     X7,ALCZ     IF NO CRASH, EXIT..                                 ALLOC        200     A     
 ALLOC                                                                                     ALLOC        201     A     
 ALLOC                                                                                     ALLOC        202     A     
 ALLOC    **        WE HAVE A CRASH AND MUST RE-ALLOCATE -- PREPARE TO DO SO.              ALLOC        203     A     
 ALLOC    *                SAVE REGISTERS.                                                 ALLOC        204     A     
 ALLOC                                                                                     ALLOC        205     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 808    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              IX6    X2-X0                                                           ALLOC        206     A     
 ALLOC              BX7    X5                                                              ALLOC        207     A     
 ALLOC              SA6    A2          RESTORE ORIGINAL SIZE, TEMPORARILY                  ALLOC        208     A     
 ALLOC              LX6    X4                                                              ALLOC        209     A     
 ALLOC                                 (ALCD)                                              ALLOC        210     A     
 ALLOC              SA7    ALCD+8      +8 = (X5)                                           ALLOC        211     A     
 ALLOC              =A6    A7-1        +7 = (X4)                                           ALLOC        212     A     
 ALLOC              SX7    A5                                                              ALLOC        213     A     
 ALLOC              SX6    A4                                                              ALLOC        214     A     
 ALLOC              =A7    A6-1        +6 = (A5)                                           ALLOC        215     A     
 ALLOC              =A6    A7-1        +5 = (A4)                                           ALLOC        216     A     
 ALLOC              SX7    B6-B0                                                           ALLOC        217     A     
 ALLOC              SX6    B5-B0                                                           ALLOC        218     A     
 ALLOC              =A7    A6-1        +4 = (B6)                                           ALLOC        219     A     
 ALLOC              =A6    A7-1        +3 = (B5)                                           ALLOC        220     A     
 ALLOC              SX7    B4-B0                                                           ALLOC        221     A     
 ALLOC              SX6    B3-B0                                                           ALLOC        222     A     
 ALLOC              =A7    A6-1        +2 = (B4)                                           ALLOC        223     A     
 ALLOC              =A6    A7-1        +1 = (B3)                                           ALLOC        224     A     
 ALLOC              SX7    B2-B0                                                           ALLOC        225     A     
 ALLOC              SB2    BASES                                                           ALLOC        226     A     
 ALLOC              SB2    A1-B2                                                           ALLOC        227     A     
 ALLOC              =A7    A6-1        +0 = (B2)                                           ALLOC        228     A     
 ALLOC                                                                                     ALLOC        229     A     
 ALLOC    **        SAVE THE BASE ADDRESS OF THE TABLE DESIGNATED BY (ALC.REG) FOR         ALLOC        230     A     
 ALLOC    *                THE *RELATIVE-REGISTER* FEATURE.                                ALLOC        231     A     
 ALLOC                                                                                     ALLOC        232     A     
 ALLOC              SA2    ALC.REG                                                         ALLOC        233     A     
 ALLOC              SA1    X2          FETCH OLD BASE                                      ALLOC        234     A     
 ALLOC              BX6    X1                                                              ALLOC        235     A     
 ALLOC              =A6    A2+1                                                            ALLOC        236     A     
 ALLOC                                                                                     ALLOC        237     A     
 ALLOC                                                                                     ALLOC        238     A     
 ALLOC    **        COMPUTE --                                                             ALLOC        239     A     
 ALLOC    *                (L) = SPACE CURRENTLY OCCUPIED BY TABLES.                       ALLOC        240     A     
 ALLOC    *                    = SIGMA (0.LT. I .LT. N,  L(I) )                            ALLOC        241     A     
 ALLOC    *                (A) = ALLOCATABLE SPACE CURRENTLY UNNEEDED.                     ALLOC        242     A     
 ALLOC    *                    = S - N*FUDGE - ( L + D )                                   ALLOC        243     A     
 ALLOC                                                                                     ALLOC        244     A     
 ALLOC     ALC.CK   SA2    SIZCORE     SEE IF ENUF ROOM                                    ALLOC        245          I
          -FCC0813
 ALLOC     ALC.CK   SA2    =XW.TABS    SEE IF ENOUGH ROOM                                  FCC0813      118     A     
 ALLOC              SB7    N.TABLE-1                                                       ALLOC        246     A     
 ALLOC              SX3    X0+B7       ADD IN MINIMUM 1 WORD PER TABLE                     ALLOC        247     A     
 ALLOC     ALC22    SA1    SIZES+B7                                                        ALLOC        248     A     
 ALLOC              SB7    B7-B1                                                           ALLOC        249     A     
 ALLOC              IX3    X3+X1                                                           ALLOC        250     A     
 ALLOC              PL     B7,ALC22    SUM SIZES OF ALL TABLES                             ALLOC        251     A     
 ALLOC              IX1    X2-X3                                                           ALLOC        252     A     
 ALLOC              SB4    X3          (B4) = TOTAL LENGTH                                 ALLOC        253     A     
 ALLOC     .SNAP    IFNE   TEST                                                            ALLOC        254     A     
 ALLOC              RJ     =XPTS       PRINT TABLE SIZES                                   ALLOC        255     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 809    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC     .SNAP    ENDIF                                                                  ALLOC        256     A     
 ALLOC                                                                                     ALLOC        257          I
          -FEAT155D 
 ALLOC                                                                                     ALLOC        258          I
          -FEAT155D 
 ALLOC    **        NOW CHECK FOR TABLE OVERFLOW   ( A .LT. 0 )                            ALLOC        259          I
          -FEAT155D 
 ALLOC    *                OR THRESHOLD ALARM      ( A .LT. THRESH)                        ALLOC        260          I
          -FEAT155D 
 ALLOC                                                                                     ALLOC        261          I
          -FEAT155D 
 ALLOC              MI     X1,ALO      IF NOT ENOUGH ROOM AT ALL                           ALLOC        262          I
          -FEAT155D 
 ALLOC     ALC23    SX3    X1-THRESH                                                       ALLOC        263          I
          -FCC0741  -FEAT155D 
 ALLOC              SA2    PASS                                                            FCC0741        6          I
          -FEAT155D 
 ALLOC              SX2    X2-PASS=END                                                     FCC0741        7          I
          -FEAT155D 
 ALLOC              ZR     X2,ALC.GO   IF END PROCESSING, NO THRESHOLD ALARM               FCC0741        8          I
          -FEAT155D 
 ALLOC              SX3    X1-THRESH                                                       FCC0741        9          I
          -FEAT155D 
 ALLOC              MI     X3,ALO      IF < 1000 WORDS LEFT                                ALLOC        264          I
          -FEAT155D 
 ALLOC              SA2    =XTHRESH                                                        FEAT155D      69     A     
 ALLOC              IX1    X1-X2       SUBTRACT THRESHHOLD AMOUNT                          FEAT155D      70     A     
 ALLOC              MI     X1,ALO      IF NOT ENOUGH ROOM FOR TABLE                        FEAT155D      71     A     
 ALLOC                                                                                     ALLOC        265     A     
 ALLOC                                                                                     ALLOC        266     A     
 ALLOC    **        PACK ALL TABLES DOWN TO BOTTOM OF TABLE SPACE.                         ALLOC        267     A     
 ALLOC    *                F(N) = (LOCORE) + (SIZCORE)                                     ALLOC        268     A     
 ALLOC    *                L(T) = L(T) + D                                                 ALLOC        269     A     
 ALLOC                                                                                     ALLOC        270     A     
 ALLOC    *                (B2) = T                                                        ALLOC        271     A     
 ALLOC    *                (B3) = I                                                        ALLOC        272     A     
 ALLOC    *                (B4) = L + D                                                    ALLOC        273     A     
 ALLOC    *                (B5) = A                                                        ALLOC        274     A     
 ALLOC    *                (B6) = D                                                        ALLOC        275     A     
 ALLOC    *                (X4) = F + S                                                    ALLOC        276     A     
 ALLOC                                                                                     ALLOC        277     A     
 ALLOC     ALC.GO   SB6    X0          (B6) = REQUESTED LENGTH                             ALLOC        278     A     
 ALLOC              SB5    X1          (B5) = SPACE AVAILABLE                              ALLOC        279     A     
 ALLOC              RJ     MTD         MOVE TABLES DOWN TO LOW CORE                        ALLOC        280     A     
 ALLOC              SA3    B2+SIZES    INCREMENT SIZE                                      ALLOC        281     A     
 ALLOC              SX6    X3+B6                                                           ALLOC        282     A     
 ALLOC              SA6    A3                                                              ALLOC        283     A     
 ALLOC              SA1    LOCORE                                                          ALLOC        284          I
          -FCC0813
 ALLOC              SA2    SIZCORE                                                         ALLOC        285          I
          -FCC0813
 ALLOC              SA1    =XF.TABS                                                        FCC0813      119     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 810    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              SA2    =XW.TABS                                                        FCC0813      120     A     
 ALLOC              IX4    X1+X2       X4 = LWA+1 OF CORE                                  ALLOC        286     A     
 ALLOC              SB3    N.TABLE-1                                                       ALLOC        287     A     
 ALLOC              ZR     B4,*+4S15   IF NO LENGTH                                        ALLOC        288     A     
 ALLOC                                                                                     ALLOC        289     A     
 ALLOC                                                                                     ALLOC        290     A     
 ALLOC    **        RE-ALLOCATE AND MOVE TABLE (I) TO ITS NEW POSITION.                    ALLOC        291     A     
 ALLOC    *                --  N .GT. I .GT. 0   --                                        ALLOC        292     A     
 ALLOC    *                F(I) = F(I+1) - L(I) - D1 - D2 - FUDGE                          ALLOC        293     A     
 ALLOC    *                D1 = (1/2)*(A) / (N)                                            ALLOC        294     A     
 ALLOC    *                D2 = (1/2)*(A) * (L(I)/L)                                       ALLOC        295     A     
 ALLOC                                                                                     ALLOC        296     A     
 ALLOC     ALC25    SB3    B3-B1       DECREMENT TABLE POINTER                             ALLOC        297     A     
 ALLOC              SA2    B3+BASES    TABLE ORIGIN                                        ALLOC        298     A     
 ALLOC              SX0    B5          SPACE AVAILABLE                                     ALLOC        299     A     
 ALLOC              SA1    A2+N.TABLE                                                      ALLOC        300     A     
 ALLOC              SX3    N.TABLE-1                                                       ALLOC        301     A     
 ALLOC              AX7    X0,B1                                                           ALLOC        302     A     
 ALLOC              IX6    X0/X3       = A / N                                             ALLOC        303     A     
 ALLOC              SX3    B4          TOTAL LENGTH                                        ALLOC        304     A     
 ALLOC              IX7    X7*X1       = A/2 * L(I)                                        ALLOC        305     A     
 ALLOC              AX6    1                                                               ALLOC        306     A     
 ALLOC              IX7    X7/X3       = A/2 * (L(I)/(L+D))                                ALLOC        307     A     
 ALLOC              IX6    X6+X7                                                           ALLOC        308     A     
 ALLOC              =X6    X6+FUDGE    = AMOUNT OF SLOP ABOVE THIS TABLE                   ALLOC        309     A     
 ALLOC              IX6    X4-X6       = F(I+1) - (K + (A*L(I)/(L+D)/2) + (A/2/N)          ALLOC        310     A     
 ALLOC              UX1    X1                                                              ALLOC        311     A     
 ALLOC              IX7    X6-X1       F(I) = (X6) - L(I)                                  ALLOC        312     A     
 ALLOC              BX3    X7                                                              ALLOC        313     A     
 ALLOC              SA7    A2          SET NEW ORIGIN                                      ALLOC        314     A     
 ALLOC              LX4    X7                                                              ALLOC        315     A     
 ALLOC              ZR     X1,ALC27    IF EMPTY TABLE                                      ALLOC        316     A     
 ALLOC              RJ     MVE                                                             ALLOC        317     A     
 ALLOC     ALC27    NE     B3,B1,ALC25 IF MORE TABLES TO ALLOCATE                          ALLOC        318     A     
 ALLOC                                                                                     ALLOC        319     A     
 ALLOC                                                                                     ALLOC        320     A     
 ALLOC    **        SET THE LOWEST TABLE TO THE BEGINNING OF TABLE SPACE, TO               ALLOC        321     A     
 ALLOC    *                RECLAIM THE SPACE LOST THRU TRUNCATION --                       ALLOC        322     A     
 ALLOC    *                F(0) = F = (LOCORE)                                             ALLOC        323     A     
 ALLOC                                                                                     ALLOC        324     A     
 ALLOC              SA3    LOCORE                                                          ALLOC        325          I
          -FCC0813
 ALLOC              SA3    =XF.TABS                                                        FCC0813      121     A     
 ALLOC              SA2    BASES       FETCH FWA                                           ALLOC        326     A     
 ALLOC              SA1    SIZES       FETCH SIZE                                          ALLOC        327     A     
 ALLOC              LX6    X3                                                              ALLOC        328     A     
 ALLOC              BX4    X3-X2                                                           ALLOC        329     A     
 ALLOC              SA6    A2                                                              ALLOC        330     A     
 ALLOC              ZR     X4,ALCW     IF LOWEST TABLE NOT MOVED                           ALLOC        331     A     
 ALLOC              RJ     MVE                                                             ALLOC        332     A     
 ALLOC              EQ     ALCW        EXIT..                                              ALLOC        333     A     
 ALLOC     ALO      SPACE  4,8                                                             ALLOC        334     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 811    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC    **        CORE OVERFLOW -- IT BECOMES NECESSARY (OR DESIRABLE) TO SPILL          ALLOC        335     A     
 ALLOC    *                SOMETHING TO DISK.                                              ALLOC        336          I
          -FEAT155D 
 ALLOC    *         TO DISK OR ASK FOR MORE CORE.  IF FIELD LENGTH IS GREATER              FEAT155D      72     A     
 ALLOC    *         THAN NOMINAL FIELD LENGTH WE WILL SPILL TO DISK.  IF NOT               FEAT155D      73     A     
 ALLOC    *         OR IF WE ALREADY SPILLED WE GET MORE CORE.                             FEAT155D      74     A     
 ALLOC                                                                                     ALLOC        337     A     
 ALLOC                                                                                     ALLOC        338     A     
 ALLOC     ALO      SX6    B2          SAVE ENTRY CALL VALUES                              ALLOC        339     A     
 ALLOC              BX7    X0                                                              ALLOC        340     A     
 ALLOC              SA6    ALCC                                                            ALLOC        341     A     
 ALLOC              =A7    A6+1                                                            ALLOC        342     A     
 ALLOC              BX6    X1                                                              ALLOC        343     A     
 ALLOC              =A6    A7+1        SAVE (AMOUNT OF CORE REQUIRED)                      ALLOC        344     A     
 ALLOC                                                                                     ALLOC        345     A     
 ALLOC    **        FIRST, TRY TO ABANDON COMPILE-TO-CORE.                                 ALLOC        346          I
          -FEAT155D 
 ALLOC                                                                                     ALLOC        347          I
          -FEAT155D 
 ALLOC     .CMLOD   IFNE   .CMLOD                                                          ALLOC        348          I
          -FEAT155D 
 ALLOC                                                                                     ALLOC        349          I
          -FEAT155D 
 ALLOC              SA3    LGOIO                                                           ALLOC        350          I
          -FEAT155D 
 ALLOC              MI     X3,ALC35    IF LGO ALREADY OUT                                  ALLOC        351          I
          -FEAT155D 
 ALLOC              MX6    -1                                                              ALLOC        352          I
          -FEAT155D 
 ALLOC              SA6    A3                                                              ALLOC        353          I
          -FEAT155D 
 ALLOC              NOTE   E.MO3       ** NOT ENUF ROOM FOR CMLOD **                       ALLOC        354          I
          -FEAT155D 
 ALLOC              SA3    T=LGO                                                           ALLOC        355          I
          -FEAT155D 
 ALLOC              SA1    T.LGO                                                           ALLOC        356          I
          -FEAT155D 
 ALLOC              ZR     X3,ALC35    IF NO ROOM TO BUY                                   ALLOC        357          I
          -FEAT155D 
 ALLOC              SHRINK A3                                                              ALLOC        358          I
          -FEAT155D 
 ALLOC              WRITEW BO,X1,X3                                                        ALLOC        359          I
          -FEAT155D 
 ALLOC              EQ     ALC.GO      TRY AGAIN                                           ALLOC        360          I
          -FEAT155D 
 ALLOC     .CMLOD   ENDIF                                                                  ALLOC        361          I
          -FEAT155D 
 ALLOC                                                                                     ALLOC        362          I
          -FEAT155D 
 ALLOC    **        LGO ALREADY ON DISK.  IF WE ARE IN *END* PROCESSING (ASSEMBLY          ALLOC        363          I
          -FEAT155D 
 ALLOC    *                PHASE), WE WILL TRY TO DUMP THE LINK AND FILL TABLES.           ALLOC        364          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 812    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
          -FEAT155D 
 ALLOC                                                                                     ALLOC        365          I
          -FEAT155D 
 ALLOC                                                                                     ALLOC        366          I
          -FEAT155D 
 ALLOC     ALC35    SA1    PASS                                                            ALLOC        367          I
          -FEAT155D 
 ALLOC    *         IF WE ARE IN END PROCESSING (ASSEMBLY PHASE) TRY DUMPING               FEAT155D      75     A     
 ALLOC    *         THE LINK AND FILL TABLES.                                              FEAT155D      76     A     
 ALLOC                                                                                     FEAT155D      77     A     
 ALLOC              SA1    PASS                                                            FEAT155D      78     A     
 ALLOC              SA2    TT=LINK                                                         ALLOC        368     A     
 ALLOC              =B2    X1-PASS=END                                                     ALLOC        369     A     
 ALLOC              SA3    TT=FILL                                                         ALLOC        370     A     
 ALLOC              NZ     B2,ALC40    IF NOT IN PASS 3                                    ALLOC        371     A     
 ALLOC              SA1    NREXT                                                           ALLOC        372     A     
 ALLOC              IX0    X2+X3                                                           ALLOC        373     A     
 ALLOC              IX7    X0-X1                                                           ALLOC        374     A     
 ALLOC              SA3    =XTT=XFIL                                                       ALLOC        375     A     
 ALLOC              IX7    X7+X3                                                           ALLOC        376     A     
 ALLOC              SB7    X7-2                                                            ALLOC        377     A     
 ALLOC              LE     B7,ALC40    IF NO ROOM TO BUY                                   ALLOC        378     A     
 ALLOC              RJ     DLF         DUMP LINK AND FILL                                  ALLOC        379     A     
 ALLOC              EQ     ALO.OK      TRY AGAIN..                                         ALLOC        380     A     
 ALLOC                                                                                     ALLOC        381     A     
 ALLOC                                                                                     ALLOC        382     A     
 ALLOC    **        NO HELP ON LINK/FILL.  TRY TO OVERFLOW INTERMEDIATE.                   ALLOC        383     A     
 ALLOC    *                IF IN MAP PROCESSING, WE ARE AT THE END OF OUR ROPE.            ALLOC        384     A     
 ALLOC                                                                                     ALLOC        385     A     
 ALLOC     ALC40    =B7    PASS=END-PASS=MAP                                               ALLOC        386     A     
 ALLOC              SA1    BINIO                                                           ALLOC        387          I
          -FEAT155D 
 ALLOC              SX6    PASS=MAP                                                        ALLOC        388          I
          -FEAT155D 
 ALLOC              EQ     B7,B2,ALO.LR      IF REF-MAP PASS                               ALLOC        389          I
          -FEAT155D 
 ALLOC              SA3    =XCP.AFLS   TOTAL FIELD LENGTH                                  FEAT155D      79     A     
 ALLOC              SX6    INC.LTN     FIELD LENGTH INCREMENT WHEN FL .LT. NOMINAL         FEAT155D      80     A     
 ALLOC              EQ     B7,B2,ALC.GM      GET MORE MEMORY IF IN REF MAP PASS            FEAT155D      81     A     
 ALLOC              SA1    =XBINIO                                                         FEAT155D      82     A     
 ALLOC              SX4    =XNOM.TFL                                                       FEAT155D      83     A     
 ALLOC              MI     X1,ALC50    IF BINARY ALREADY ON DISK                           ALLOC        390     A     
 ALLOC              IX2    X4-X3       NOMINAL - ACTUAL FIELD LENGTH                       FEAT155D      84     A     
 ALLOC              PL     X2,ALC.GM   IF FL .LT. NOMINAL GET MORE CORE                    FEAT155D      85     A     
 ALLOC              SA1    IGS                                                             FEAT155D      86     A     
 ALLOC              SA2    ALCC+2      (X2) = -(AMOUNT NEEDED)                             FEAT155D      87     A     
 ALLOC              IX3    X1+X2                                                           FEAT155D      88          I
          -FCCA557
 ALLOC              IX1    X1+X2                                                           FCCA557       28     A     
 ALLOC              MI     X1,ALC50    IF NO ROOM TO BUY                                   FEAT155D      89     A     
 ALLOC              MX6    -1                                                              ALLOC        391     A     
 ALLOC              SA6    A1                                                              ALLOC        392          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 813    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
          -FEAT155D 
 ALLOC              SA6    BINIO       INDICATE TT.LF ON DISK                              FEAT155D      90     A     
 ALLOC              OPEN   F.LF                                                            ALLOC        393          I
          -FCCA580
 ALLOC              OPEN   F.LF,,RCL                                                       FCCA580       10     A     
 ALLOC              SA3    IGS                                                             ALLOC        394     A     
          -FCC0741  +FCC0813
 ALLOC              SA1    TT.LF                                                           ALLOC        395     A     
          -FCC0741  +FCC0813
 ALLOC              SA1    PASS                                                            FCC0741       10          I
          -FCC0813
 ALLOC              =B2    X1-PASS=END                                                     FCC0741       11          I
          -FCC0813
 ALLOC              NZ     B2,ALC41                                                        FCC0741       12          I
          -FCC0813
 ALLOC              SA3    TT=LF                                                           FCC0741       13          I
          -FCC0813
 ALLOC              EQ     ALC42                                                           FCC0741       14          I
          -FCC0813
 ALLOC     ALC41    SA3    IGS                                                             FCC0741       15          I
          -FCC0813
 ALLOC     ALC42    SA1    TT.LF                                                           FCC0741       16          I
          -FCC0813
 ALLOC              ZR     X3,ALC50    IF NO ROOM TO BUY                                   ALLOC        396          I
          -FEAT155D 
 ALLOC              WRITEW F.LF,X1,X3                                                      ALLOC        397     A     
 ALLOC     .TEST    IFNE   TEST,0,1                                                        ALLOC        398     A     
 ALLOC              NOTE   E.MO4       ** INTERMEDIATE GOES TO DISK **                     ALLOC        399     A     
 ALLOC              SA3    PASS                                                            ALLOC        400     A     
 ALLOC              SA1    IGS                                                             ALLOC        401     A     
 ALLOC              =B2    X3-PASS=END                                                     ALLOC        402     A     
 ALLOC              SA3    TT=LF                                                           ALLOC        403     A     
 ALLOC              ZR     B2,ALC45    IF IN *END*                                         ALLOC        404     A     
 ALLOC              SA2    TT.LF                                                           ALLOC        405     A     
 ALLOC              BX6    0                                                               ALLOC        406     A     
 ALLOC              IX7    X2+X1       FWA = FWA + IGS                                     ALLOC        407     A     
 ALLOC              SA6    A1                                                              ALLOC        408     A     
 ALLOC              IX6    X3-X1       LEN = LEN - IGS                                     ALLOC        409     A     
 ALLOC              SA7    A2                                                              ALLOC        410     A     
 ALLOC              SA6    A3                                                              ALLOC        411     A     
 ALLOC              EQ     ALO.OK      TRY AGAIN..                                         ALLOC        412     A     
 ALLOC                                                                                     ALLOC        413     A     
 ALLOC     ALC45    SHRINK A3                                                              ALLOC        414     A     
 ALLOC              WRITER F.LF                                                            ALLOC        415     A     
 ALLOC              REWIND F.LF                                                            ALLOC        416     A     
 ALLOC                                                                                     ALLOC        417     A     
 ALLOC              IFNE   CP#RM,7,1                                                       ALLOC        418     A     
 ALLOC              READ   F.LF                                                            ALLOC        419     A     
 ALLOC                                                                                     ALLOC        420     A     
 ALLOC              EQ     ALO.OK      TRY AGAIN..                                         ALLOC        421     A     
 ALLOC                                                                                     ALLOC        422     A     
 ALLOC                                                                                     ALLOC        423     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 814    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC    **        INTERMEDIATE NO HELP -- TRY TO DUMP REFERENCES.                        ALLOC        424     A     
 ALLOC                                                                                     ALLOC        425     A     
 ALLOC     ALC50    SA1    REFIO                                                           ALLOC        426     A     
 ALLOC              SA2    PASS                                                            ALLOC        427          I
          -FEAT155D 
 ALLOC              BX6    X2                                                              ALLOC        428          I
          -FEAT155D 
 ALLOC              MI     X1,ALC.OV   IF REFS ALREADY OUT                                 ALLOC        429          I
          -FEAT155D 
 ALLOC              SX6    INC.GTN     FIELD LENGTH INCREMENT WHEN FL .GT. NOMINAL         FEAT155D      91     A     
 ALLOC              MI     X1,ALC.GM   IF REFS ALREADY OUT GET MORE CORE                   FEAT155D      92     A     
 ALLOC              SX6    INC.LTN     FIELD LENGTH INCREMENT WHEN FL .LT. NOMINAL         FEAT155D      93     A     
 ALLOC              IX2    X4-X3       NOMINAL - ACTUAL FIELD LENGTH                       FEAT155D      94     A     
 ALLOC              PL     X2,ALC.GM   IF FL .LE. NOMINAL GET MORE CORE                    FEAT155D      95     A     
 ALLOC              SX6    INC.GTN     FIELD LENGTH INCREMENT WHEN FL .GT. NOMINAL         FEAT155D      96     A     
 ALLOC              SA2    TT=REF                                                          FEAT155D      97     A     
 ALLOC              SA1    ALCC+2      (X1) = - (AMOUNT NEEDED)                            FEAT155D      98     A     
 ALLOC              IX2    X2+X1                                                           FEAT155D      99     A     
 ALLOC              MI     X2,ALC.GM   IF NO ROOM TO BUY                                   FEAT155D     100     A     
 ALLOC              MX7    -1                                                              ALLOC        430     A     
 ALLOC              SA7    A1          INDICATE REFS ON DISK                               ALLOC        431          I
          -FEAT155D 
 ALLOC              SA7    REFIO       INDICATE TT.REF ON DISK                             FEAT155D     101     A     
 ALLOC              OPEN   F.RMAP                                                          ALLOC        432          I
          -FCCA580
 ALLOC              OPEN   F.RMAP,,RCL                                                     FCCA580       11     A     
 ALLOC              SA1    PASS                                                            ALLOC        433          I
          -FEAT155D 
 ALLOC              SA3    TT=REF                                                          ALLOC        434     A     
 ALLOC              BX6    X1                                                              ALLOC        435          I
          -FEAT155D 
 ALLOC              ZR     X3,ALC.OV   IF NO ROOM TO BUY                                   ALLOC        436          I
          -FEAT155D 
 ALLOC              SA1    TT.REF                                                          ALLOC        437     A     
 ALLOC              SHRINK A3                                                              ALLOC        438     A     
 ALLOC              WRITEW F.RMAP,X1,X3                                                    ALLOC        439     A     
 ALLOC     .TEST    IFNE   TEST,0,1                                                        ALLOC        440     A     
 ALLOC              NOTE   E.MO5       ** CROSS REFERENCE GOES TO DISK **                  ALLOC        441     A     
 ALLOC    *         EQ     ALO.OK      TRY AGAIN..                                         ALLOC        442     A     
 ALLOC                                                                                     ALLOC        443     A     
 ALLOC    **        SOMETHING WAS SUCCESSFULLY DUMPED --                                   ALLOC        444     A     
 ALLOC    *                RETRIEVE ENTRY VALUES AND TRY AGAIN.                            ALLOC        445     A     
 ALLOC                                                                                     ALLOC        446     A     
 ALLOC     ALO.OK   SB7    ALC.CK                                                          ALLOC        447     A     
 ALLOC              SA1    ALCC+2                                                          ALLOC        448     A     
 ALLOC                                                                                     ALLOC        449     A     
 ALLOC     ALO.OK2  =A3    A1-1        RESTORE ENTRY VALUES                                ALLOC        450     A     
 ALLOC              =A2    A3-1                                                            ALLOC        451     A     
 ALLOC              BX0    X3                                                              ALLOC        452     A     
 ALLOC              SB2    X2                                                              ALLOC        453     A     
 ALLOC              JP     B7          TRY AGAIN..                                         ALLOC        454     A     
 ALLOC                                                                                     ALLOC        455     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 815    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC                                                                                     ALLOC        456     A     
 ALLOC    **        GET MORE MEMORY                                                        FEAT155D     102     A     
 ALLOC    *         ENTRY  (X6) = INCREMENT                                                FEAT155D     103     A     
 ALLOC    *                (X3) = CP.AFLS                                                  FEAT155D     104     A     
 ALLOC                                                                                     FEAT155D     105     A     
 ALLOC     ALC.GM   SA1    =XMAX.FL    MAX FL FOR JOB STEP                                 FEAT155D     106     A     
 ALLOC              IX6    X3+X6       CURRENT FL + INCREMENT                              FEAT155D     107     A     
 ALLOC              IX4    X1-X6       MAXFL - NEWFL                                       FEAT155D     108     A     
 ALLOC              PL     X4,ALC.GM1  IF NEWFL .LE. MAXFL                                 FEAT155D     109     A     
 ALLOC              IX2    X3-X1       CURRENT FL - MAXFL                                  FEAT155D     110     A     
 ALLOC              PL     X2,ALC.OV   IF MAXFL .LE. CURRENT FL, DIE                       FEAT155D     111     A     
 ALLOC              BX6    X1          NEWFL = MAXFL                                       FEAT155D     112     A     
 ALLOC     ALC.GM1  LX6    30                                                              FEAT155D     113     A     
 ALLOC              SA6    =XGT1                                                           FEAT155D     114     A     
 ALLOC              MEMORY SCM,GT1,RCL                                                     FEAT155D     115     A     
 ALLOC              SA1    =XGT1                                                           FEAT155D     116     A     
 ALLOC              AX1    30                                                              FEAT155D     117     A     
 ALLOC              BX6    X1                                                              FEAT155D     118     A     
 ALLOC              SA6    =XCP.AFLS   SET ACTUAL FL                                       FEAT155D     119     A     
 ALLOC              SX6    X6-10                                                           FEAT155D     120     A     
 ALLOC              SA6    =XCP.NFLS   SET NOMINAL FL                                      FEAT155D     121     A     
 ALLOC              SA6    =XT.END                                                         FCC1328AX     10     A     
 ALLOC              SA1    =XF.TABS    BEGINNING OF TABLES                                 FEAT155D     122     A     
 ALLOC              IX6    X6-X1                                                           FEAT155D     123     A     
 ALLOC              SA6    =XW.TABS    AMOUNT OF CORE TO BE MANAGED                        FEAT155D     124     A     
 ALLOC              AX6    FLSLOP                                                          FEAT155D     125     A     
 ALLOC              SA6    =XTHRESH    GIVE ALLOC SOME ELBOW ROOM                          FEAT155D     126     A     
 ALLOC              EQ     ALO.OK      TRY AGAIN                                           FEAT155D     127     A     
 ALLOC                                                                                     FEAT155D     128     A     
 ALLOC                                                                                     FEAT155D     129     A     
 ALLOC    **        IT WAS ALL TO NO AVAIL.  REPORT FAILURE AND ABORT.                     ALLOC        457     A     
 ALLOC    *         ENTRY  (X6) = PASS NUMBER                                              ALLOC        458     A     
 ALLOC                                                                                     ALLOC        459     A     
 ALLOC     ALC.OV   SA1    ALCC+2                                                          ALLOC        460     A     
 ALLOC              SB7    ALC.GO                                                          ALLOC        461     A     
 ALLOC              PL     X1,ALO.OK2  IF THRESHOLD ALARM                                  ALLOC        462     A     
 ALLOC              SA2    FAILSFT                                                         ALLOC        463     A     
 ALLOC              NZ     X2,ALO.DIE  IF ALREADY HAD OVERFLOW                             ALLOC        464     A     
 ALLOC              BX6    0                                                               ALLOC        465     A     
 ALLOC              =X7    X2+1                                                            ALLOC        466     A     
 ALLOC              SHRINK TT=ASF,X6                                                       ALLOC        467     A     
 ALLOC              SA7    A2          SET FAILSOFT FLAG                                   ALLOC        468     A     
 ALLOC              SHRINK TP=DIM,X6                                                       ALLOC        469     A     
 ALLOC     .CMLOD   IFNE   .CMLOD,,1                                                       ALLOC        470     A     
 ALLOC              SHRINK T=LGO,X6                                                        ALLOC        471     A     
 ALLOC              SHRINK T=INT,X6                                                        ALLOC        472          I
          -FCC0813
 ALLOC              SHRINK TT=LF,X6                                                        FCC0813      122     A     
 ALLOC              SHRINK TT=USE,X6                                                       ALLOC        473     A     
 ALLOC              SHRINK TT=SCR,X6                                                       ALLOC        474     A     
 ALLOC              SHRINK TS=CON,X6                                                       ALLOC        475     A     
 ALLOC              SHRINK TA=NAM,X6                                                       ALLOC        476     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 816    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              SHRINK TP=DO,X6                                                        ALLOC        477     A     
 ALLOC              SHRINK TS=EQU,X6                                                       ALLOC        478     A     
 ALLOC              SHRINK TP=FMT,X6                                                       ALLOC        479     A     
 ALLOC              SHRINK TT=PAR,X6                                                       ALLOC        480     A     
 ALLOC              SHRINK TP=NLST,X6                                                      ALLOC        481     A     
 ALLOC              SHRINK TP=APL,X6                                                       ALLOC        482     A     
 ALLOC              SHRINK TA=PRO,X6                                                       ALLOC        483     A     
 ALLOC              SHRINK TS=DAT,X6                                                       ALLOC        484     A     
 ALLOC              SHRINK TT=REF,X6                                                       ALLOC        485     A     
 ALLOC              =X7    CPM=BY                                                          ALLOC        486     A     
 ALLOC              SHRINK TS=BLK,X6                                                       ALLOC        487     A     
 ALLOC              SHRINK TS=ENT,X6                                                       ALLOC        488     A     
 ALLOC              SA7    STAGE       BYPASS REST OF PROGRAM                              ALLOC        489     A     
 ALLOC              RJ     ASU         ACCUMULATE STORAGE USED                             ALLOC        490          I
          -FCC0813
 ALLOC              EQ     E.MO2                                                           ALLOC        491          I
          -FCC0931
 ALLOC              FATAL  E.MO2                                                           FCC0931       13     A     
 ALLOC              SA1    PASS                                                            FCC0931       14     A     
 ALLOC              SX1    X1-PASS=END                                                     FCC0931       15     A     
 ALLOC              MI     X1,=XPSP.F  IF NOT IN END OR MAP PROCESSING                     FCC0931       16     A     
 ALLOC              EQ     =XEND96     FINISH OFF THIS COMPILATION                         FCC0931       17     A     
 ALLOC                                                                                     ALLOC        492     A     
 ALLOC                                                                                     ALLOC        493     A     
 ALLOC    **        NOT EVEN ENUF ROOM TO SKIP TO AN *END* CARD --                         ALLOC        494     A     
 ALLOC    *                DAYFILE MESSAGE AND ABORT JOB                                   ALLOC        495     A     
 ALLOC                                                                                     ALLOC        496     A     
 ALLOC     ALO.DIE  SA1    =XSUBHDR+2  PROG NAME                                           ALLOC        497          I
          -FEAT126A 
 ALLOC     ALO.DIE  SA1    =XTL.PNAM   PROGRAM UNIT NAME                                   FEAT126A     767          I
          -FEAT155D 
 ALLOC              SA2    ALC=OV+3                                                        ALLOC        498          I
          -FEAT155D 
 ALLOC              LX6    3*CHAR                                                          ALLOC        499          I
          -FEAT155D 
 ALLOC              BX7    X1          PUT ROUTINE NAME IN MESSAGE                         ALLOC        500          I
          -FEAT155D 
 ALLOC              IX6    X6+X2                                                           ALLOC        501          I
          -FEAT155D 
 ALLOC              =A7    A2-1                                                            ALLOC        502          I
          -FEAT155D 
 ALLOC              SA6    A2          INSERT PASS NUMBER IN MESSAGE                       ALLOC        503          I
          -FEAT155D 
 ALLOC              PLINE  ALC=OV,2                                                        ALLOC        504          I
          -FEAT126A -FEAT155D 
 ALLOC              PLINE  ALC=OV,4,2                                                      FEAT126A     768          I
          -FEAT155D 
 ALLOC     ALO.DIE  PLINE  ALC=OV,3,2                                                      FEAT155D     130     A     
 ALLOC              MESAGE ALC=OV,,RCL                                                     ALLOC        505     A     
 ALLOC              WRITER F.OUT                                                           ALLOC        506     A     
 ALLOC              WRITER F.LGO                                                           ALLOC        507     A     
 ALLOC              EQ     =XENDFTN                                                        ALLOC        508     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 817    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC                                                                                     ALLOC        509          I
          -FEAT155D 
 ALLOC                                                                                     ALLOC        510          I
          -FEAT155D 
 ALLOC    **        IF WE RAN OUT DURING MAP PROCESSING, DISCARD ENOUGH REFERENCES         ALLOC        511          I
          -FEAT155D 
 ALLOC    *                TO MAKE IT FIT.                                                 ALLOC        512          I
          -FEAT155D 
 ALLOC                                                                                     ALLOC        513          I
          -FEAT155D 
 ALLOC     ALO.LR   SA1    ALCC+2                                                          ALLOC        514          I
          -FEAT155D 
 ALLOC              SB7    ALC.GO                                                          ALLOC        515          I
          -FEAT155D 
 ALLOC              PL     X1,ALO.OK2  IF THRESHOLD ALARM                                  ALLOC        516          I
          -FEAT155D 
 ALLOC                                                                                     ALLOC        517          I
          -FEAT155D 
 ALLOC              =A3    A1-1                                                            ALLOC        518          I
          -FEAT155D 
 ALLOC              IX6    X3+X1       = DEMAND - AVAIL                                    ALLOC        519          I
          -FEAT155D 
 ALLOC              SA2    MAXCORE                                                         ALLOC        520          I
          -FCC0813  -FEAT155D 
 ALLOC              SA6    A3                                                              ALLOC        521          I
          -FEAT155D 
 ALLOC              IX7    X3-X1                                                           ALLOC        522          I
          -FEAT155D 
 ALLOC              BX1    -X1                                                             ALLOC        523          I
          -FEAT155D 
 ALLOC              SA7    A1                                                              ALLOC        524          I
          -FEAT155D 
 ALLOC              RJ     CDD         CONVERT LOST REF COUNT                              ALLOC        525          I
          -FEAT155D 
 ALLOC              SA6    LPS.LR                                                          ALLOC        526          I
          -FEAT155D 
 ALLOC              SA6    ALC=LR                                                          ALLOC        527          I
          -FEAT155D 
 ALLOC              SA3    IDENT                                                           ALLOC        528          I
          -FEAT126A -FEAT155D 
 ALLOC              BX7    X3                                                              ALLOC        529          I
          -FEAT126A -FEAT155D 
 ALLOC              =A7    A6+3                                                            ALLOC        530          I
          -FEAT126A -FEAT155D 
 ALLOC              MESAGE ALC=LR,LOCAL,RCL                                                ALLOC        531          I
          -FEAT155D 
 ALLOC              SB7    ALC.GO                                                          ALLOC        532          I
          -FEAT155D 
 ALLOC              SA1    ALCC+2                                                          ALLOC        533          I
          -FEAT155D 
 ALLOC              EQ     ALO.OK2     CONTINUE..                                          ALLOC        534          I
          -FEAT155D 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 818    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC                                                                                     ALLOC        535     A     
 ALLOC     ALCC     DATA   0,0         TEMPORARY STORAGE FOR OVERFLOW                      ALLOC        536     A     
 ALLOC              CON    0           SAVE CORE REQUIRED                                  ALLOC        537     A     
 ALLOC                                                                                     ALLOC        538     A     
 ALLOC                                 SAVE CELLS DURING TABLE MOVES --                    ALLOC        539     A     
 ALLOC     ALCD     BSS    1           (B2)                                                ALLOC        540     A     
 ALLOC              BSS    1           (B3)                                                ALLOC        541     A     
 ALLOC     ALC=B4   BSS    1           (B4)                                                ALLOC        542     A     
 ALLOC     ALC=B5   BSS    1           (B5)                                                ALLOC        543     A     
 ALLOC              BSS    1           (B6)                                                ALLOC        544     A     
 ALLOC              BSS    1           (A4)                                                ALLOC        545     A     
 ALLOC              BSS    1           (A5)                                                ALLOC        546          I
          -FCC1224
 ALLOC     ALC=A5   BSS    1           (A5)                                                FCC1224       24     A     
 ALLOC              BSS    1           (X4)                                                ALLOC        547     A     
 ALLOC              BSS    1           (X5)                                                ALLOC        548     A     
 ALLOC                                                                                     ALLOC        549     A     
 ALLOC     ALC=00   EQU    ALCD-1      FAKE, USED TO NO-OP RELATIVE REGISTER               ALLOC        550     A     
 ALLOC                                                                                     ALLOC        551     A     
 ALLOC     ALC.REG  VFD    24/0,18/ALC=00,18/BASES                                         ALLOC        552     A     
 ALLOC              BSS    1           SAVE CELL FOR ORIGIN OF RELATIVE TABLE              ALLOC        553     A     
 ALLOC                                                                                     ALLOC        554     A     
 ALLOC     ALC.00   VFD    24/0,18/ALC=00,18/BASES                                         ALLOC        555     A     
 ALLOC     ALC.ASF  VFD    24/0,18/ALC=B4,18/TT.ASF                                        ALLOC        556     A     
 ALLOC     ALC.CAI  VFD    24/0,18/ALC=B4,18/TT.PAR                                        ALLOC        557     A     
 ALLOC     ALC.FVD  VFD    24/0,18/ALC=B4,18/T.VDIM                                        ALLOC        558     A     
 ALLOC     ALC.DO   VFD    24/0,18/ALC=B5,18/TP.DO                                         ALLOC        559     A     
 ALLOC     ALC.PIG  VFD    24/0,18/ALC=A5,18/TT.LF                                         FCC1224       25     A     
 ALLOC                                                                                     ALLOC        560     A     
 ALLOC     ALC=OV   DIS    2, TABLE OVERFLOW IN                                            ALLOC        561     A     
 ALLOC              DIS    1,          ROUTINE NAME                                        ALLOC        562          I
          -FEAT155D 
 ALLOC              CON    8L PASS 0.                                                      ALLOC        563          I
          -FEAT155D 
 ALLOC                                                                                     ALLOC        564          I
          -FEAT155D 
 ALLOC     ALC=LR   DIS    1,                                                              ALLOC        565          I
          -FEAT155D 
 ALLOC              DIS    2, LOST REFERENCES IN                                           ALLOC        566          I
          -FEAT155D 
 ALLOC              CON    8L          ROUTINE NAME                                        ALLOC        567          I
          -FEAT126A 
 ALLOC     IDENT    DATA   0           ROUTINE NAME 0L FORMAT                              FEAT126A     769     A     
 ALLOC              CON    0           ZERO WORD STOPPER FOR PVF                           FEAT126A     770     A     
 ALLOC     ALE      SPACE  4,15                                                            ALLOC        568     A     
 ALLOC     ASU      SPACE  4,8                                                             ALLOC        569          I
          -FCC0813
 ALLOC    **        ASU -  ACCUMULATE STORAGE USED.                                        ALLOC        570          I
          -FCC0813
 ALLOC    *         EXIT   (MAXCORE) = MAXIMUM AMOUNT OF CORE USED, PLUS (LOCORE)          ALLOC        571          I
          -FCC0813
 ALLOC    *                (X6)      =   ..DITTO..                                         ALLOC        572          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 819    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
          -FCC0813
 ALLOC    *         USES   A1,A2,A3  X6  B7                                                ALLOC        573          I
          -FCC0813
 ALLOC                                                                                     ALLOC        574          I
          -FCC0813
 ALLOC                                                                                     ALLOC        575          I
          -FCC0813
 ALLOC     ASU      SUBR   0                                                               ALLOC        576          I
          -FCC0813
 ALLOC     SNAP=T   IFNE   TEST                                                            ALLOC        577          I
          -FCC0813
 ALLOC              SA1    CO.SNAP                                                         ALLOC        578          I
          -FCC0813
 ALLOC              LX1    1RT                                                             ALLOC        579          I
          -FCC0813
 ALLOC              PL     X1,ASUS1    IF TABLE SNAP NOT SELECTED                          ALLOC        580          I
          -FCC0813
 ALLOC              SA1    =10H ASU                                                        ALLOC        581          I
          -FCC0813
 ALLOC              RJ     =XPTA       PRINT TABLE ALLOCATION                              ALLOC        582          I
          -FCC0813
 ALLOC     ASUS1    BSS    0                                                               ALLOC        583          I
          -FCC0813
 ALLOC     SNAP=T   ENDIF                                                                  ALLOC        584          I
          -FCC0813
 ALLOC              SB7    N.TABLE-1                                                       ALLOC        585          I
          -FCC0813
 ALLOC              SA3    LOCORE                                                          ALLOC        586          I
          -FCC0813
 ALLOC              SA2    MAXCORE                                                         ALLOC        587          I
          -FCC0813
 ALLOC              SA1    SIZES                                                           ALLOC        588          I
          -FCC0813
 ALLOC     ASU1     SB7    B7-B1       IGNORE INTER AND REFTAB                             ALLOC        589          I
          -FCC0813
 ALLOC              IX3    X3+X1                                                           ALLOC        590          I
          -FCC0813
 ALLOC              SA1    A1+B1                                                           ALLOC        591          I
          -FCC0813
 ALLOC              NZ     B7,ASU1     LOOP                                                ALLOC        592          I
          -FCC0813
 ALLOC              IX6    X3+X1                                                           ALLOC        593          I
          -FCC0813
 ALLOC              IX2    X6-X2                                                           ALLOC        594          I
          -FCC0813
 ALLOC              MI     X2,ASUX     IF NEW MAX < OLD MAX                                ALLOC        595          I
          -FCC0813
 ALLOC              SA6    A2                                                              ALLOC        596          I
          -FCC0813
 ALLOC              EQ     ASUX        EXIT..                                              ALLOC        597          I
          -FCC0813
 ALLOC     ERT      SPACE  4,8                                                             ALLOC        598     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 820    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC    **        ERT -  ENTER REFERENCE TABLE.                                          ALLOC        599     A     
 ALLOC    *         ENTRY  (X6) = TAG.                                                     ALLOC        600     A     
 ALLOC    *                (X1) = USAGE LETTER CR.XXX AS DEFINED IN TSTEXT.                ALLOC        601     A     
 ALLOC    *                                                                                ALLOC        602     A     
 ALLOC    *         NOTE                                                                   ALLOC        603     A     
 ALLOC    *                ALL CALLS TO *ERT* SHOULD USE MACRO *ADDREF*                    ALLOC        604     A     
 ALLOC    *                                                                                ALLOC        605     A     
 ALLOC    *         USES   A1-A4,A6,A7  B2,B3,B7  X0-X3,X6,X7                              ALLOC        606     A     
 ALLOC    *                PRESERVES  A0,A5  X4,X5  B4,B5,B6                               ALLOC        607     A     
 ALLOC    *                (ADWT+0 - +1)                                                   ALLOC        608     A     
 ALLOC    *                (ALCD+0 - +2)                                                   ALLOC        609     A     
 ALLOC                                                                                     ALLOC        610     A     
 ALLOC                                                                                     ALLOC        611     A     
 ALLOC     ERT1     SHRINK TT=REF,0    TABLE JUST OVERFLOWED                               ALLOC        612     A     
 ALLOC                                                                                     ALLOC        613     A     
 ALLOC     ERT2     SX6    B6                                                              ALLOC        614     A     
 ALLOC              SX7    B5                                                              ALLOC        615     A     
 ALLOC              SA6    ERTD        (ERTD+0) = (B6)                                     ALLOC        616     A     
 ALLOC              =A7    A6+1             +1  = (B5)                                     ALLOC        617     A     
 ALLOC              BX6    X4                                                              ALLOC        618     A     
 ALLOC              =A6    A7+1             +2  = (X4)                                     ALLOC        619     A     
 ALLOC              SX0    B4          SAVE (B4)                                           ALLOC        620     A     
 ALLOC              WRITEW F.RMAP,ADWT,1                                                   ALLOC        621     A     
 ALLOC              SB4    X0          RESTORE (B4)                                        ALLOC        622     A     
 ALLOC              SA2    ERTD                                                            ALLOC        623     A     
 ALLOC              SA1    ADWT+1                                                          ALLOC        624     A     
 ALLOC              =A3    A2+1                                                            ALLOC        625     A     
 ALLOC              =A4    A3+1        RESTORE (X4)                                        ALLOC        626     A     
 ALLOC              SB6    X2          RESTORE (B6)                                        ALLOC        627     A     
 ALLOC              SB5    X3          RESTORE (B5)                                        ALLOC        628     A     
 ALLOC              SB7    X1                                                              ALLOC        629     A     
 ALLOC              JP     B7          EXIT..                                              ALLOC        630     A     
 ALLOC                                                                                     ALLOC        631     A     
 ALLOC     ERT      SA2    REFLIN      THIS INSTRUCTION IS CHANGED BY CONTROL CARD         ALLOC        632     A     
 ALLOC    ,                            PROCESSING IF X-REF IS NOT SELECTED.                ALLOC        633     A     
 ALLOC              MX0    L.TAG                                                           ALLOC        634     A     
 ALLOC              BX6    X0*X6       ISOLATE TAG                                         ALLOC        635     A     
 ALLOC              IX3    X1+X2       PAGE, LINE, USE                                     ALLOC        636     A     
 ALLOC              SA1    LOSTREF                                                         ALLOC        637     A     
 ALLOC              IX6    X3+X6                                                           ALLOC        638     A     
 ALLOC              SA6    ADWT                                                            ALLOC        639     A     
 ALLOC              SX6    X1+B1       ACCUMULATE REF COUNT                                ALLOC        640     A     
 ALLOC              SA2    REFIO                                                           ALLOC        641     A     
 ALLOC              SA6    A1                                                              ALLOC        642     A     
 ALLOC              SX6    B7                                                              ALLOC        643     A     
 ALLOC              SA6    ADWT+1      SAVE EXIT ADDRESS                                   ALLOC        644     A     
 ALLOC              NZ     X2,ERT2     IF ON DISK                                          ALLOC        645     A     
 ALLOC                                                                                     ALLOC        646     A     
 ALLOC              ALLOC  TT.REF,1                                                        ALLOC        647     A     
 ALLOC              SA3    REFIO                                                           ALLOC        648     A     
 ALLOC              NZ     X3,ERT1     IF JUST OVERFLOWED                                  ALLOC        649     A     
 ALLOC              SA3    ADWT+1                                                          ALLOC        650     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 821    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              =A2    A3-1                                                            ALLOC        651     A     
 ALLOC              SB2    X3                                                              ALLOC        652     A     
 ALLOC              BX6    X2                                                              ALLOC        653     A     
 ALLOC              =A6    B7-1        STORE REFERENCE IN TABLE                            ALLOC        654     A     
 ALLOC              JP     B2          EXIT..                                              ALLOC        655     A     
 ALLOC                                                                                     ALLOC        656     A     
 ALLOC     ERTD     EQU    ALCD        SAVES (B6, B5, X4)                                  ALLOC        657     A     
 ALLOC     ESC      SPACE  4,8                                                             ALLOC        658     A     
 ALLOC    **        ESC -  EXPAND SHORT CONSTANT                                           ALLOC        659     A     
 ALLOC    *                                                                                ALLOC        660     A     
 ALLOC    *         ENTRY  (X5) = PROPOSED SHORT CONSTANT                                  ALLOC        661     A     
 ALLOC    *                                                                                ALLOC        662     A     
 ALLOC    *         EXIT   IF (X5) WAS NOT A SHORT CONSTANT                                ALLOC        663     A     
 ALLOC    *                   (X5) = PRESERVED.                                            ALLOC        664     A     
 ALLOC    *                IF (X5) WAS SHORT.                                              ALLOC        665     A     
 ALLOC    *                   (X5) = CONSTANT TAG.                                         ALLOC        666     A     
 ALLOC    *         USES   A1,A2,A3,A6,A7  X0  B2,B7                                       ALLOC        667     A     
 ALLOC    *                (ADWT+1)                                                        ALLOC        668     A     
 ALLOC                                                                                     ALLOC        669     A     
 ALLOC                                                                                     ALLOC        670     A     
 ALLOC     ESC      SUBR   0                                                               ALLOC        671     A     
 ALLOC              BX2    X5                                                              ALLOC        672     A     
 ALLOC              MX0    -L.MODE                                                         ALLOC        673     A     
 ALLOC              IFBIT  X2,-SHORT,ESCX    IF NOT SHORT CONSTANT                         ALLOC        674     A     
 ALLOC              BX7    -X0*X5                                                          ALLOC        675     A     
 ALLOC                                                                                     ALLOC        676     A     
 ALLOC    **        CHECK FOR MASK-TYPE CONSTANT                                           ALLOC        677     A     
 ALLOC                                                                                     ALLOC        678     A     
 ALLOC              MX0    -L.MSHORT                                                       ALLOC        679     A     
 ALLOC              LX0    P.MSHORT                                                        ALLOC        680     A     
 ALLOC              BX2    -X0*X5                                                          ALLOC        681     A     
 ALLOC              ZR     X2,ESC3     IF NOT MASK-TYPE CONSTANT                           ALLOC        682     A     
 ALLOC              AX2    P.MSHORT                                                        ALLOC        683     A     
 ALLOC                                                                                     ALLOC        684     A     
 ALLOC    *         CREATE LONG CONSTANT                                                   ALLOC        685     A     
 ALLOC                                                                                     ALLOC        686     A     
 ALLOC              MX5    1                                                               ALLOC        687     A     
 ALLOC              SB2    X2-1                                                            ALLOC        688     A     
 ALLOC              AX5    B2,X5                                                           ALLOC        689     A     
 ALLOC              EQ     ESC5                                                            ALLOC        690     A     
 ALLOC                                                                                     ALLOC        691     A     
 ALLOC     ESC3     SB7    X7-M.REAL                                                       ALLOC        692     A     
 ALLOC              AX5    P.SHC                                                           ALLOC        693     A     
 ALLOC              NZ     B7,ESC5     IF NOT REAL                                         ALLOC        694     A     
 ALLOC              LX5    P.SHC                                                           ALLOC        695     A     
 ALLOC     ESC5     BX6    X5                                                              ALLOC        696     A     
 ALLOC              SCAN   TS.CON,SCT                                                      ALLOC        697     A     
 ALLOC              MI     B7,ESC10    IF NOT IN TABLE                                     ALLOC        698     A     
 ALLOC              SX0    B7+C.CON                                                        ALLOC        699     A     
 ALLOC              LX0    P.2TAG                                                          ALLOC        700     A     
 ALLOC              IX5    X0+X7       MERGE MODE                                          ALLOC        701     A     
 ALLOC              EQ     ESCX        EXIT..                                              ALLOC        702     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 822    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC                                                                                     ALLOC        703     A     
 ALLOC    **        IF NOT IN CONSTANT TABLE                                               ALLOC        704     A     
 ALLOC                                                                                     ALLOC        705     A     
 ALLOC     ESC10    SA7    ADWT+1      SAVE MODE                                           ALLOC        706     A     
 ALLOC              ADDWD  A1                                                              ALLOC        707     A     
 ALLOC              SX0    X2+C.CON-1                                                      ALLOC        708     A     
 ALLOC              SA2    ADWT+1      MODE                                                ALLOC        709     A     
 ALLOC              LX0    P.2TAG                                                          ALLOC        710     A     
 ALLOC              BX5    X0+X2       MERGE MODE                                          ALLOC        711     A     
 ALLOC              EQ     ESCX        EXIT..                                              ALLOC        712     A     
 ALLOC     ESN      SPACE  4,8                                                             ALLOC        713     A     
 ALLOC    **        ESN -  ENTER *STATEMENT NUMBER*/*TAG* IN TABLE.                        ALLOC        714     A     
 ALLOC    *                                                                                ALLOC        715     A     
 ALLOC    *         ENTRY  (A1) _ TABLE TO BE ENTERED.                                     ALLOC        716     A     
 ALLOC    *         ENTRY  (X6) = SYMBOL.                                                  ALLOC        717     A     
 ALLOC    *                (X7) = TAG ENTRY.   18/0, 42/AS DESIRED.                        ALLOC        718     A     
 ALLOC    *                TAG ENTRY MUST NEVER HAVE ANYTHING SET IN THE HIGH              ALLOC        719     A     
 ALLOC    *                ORDER L.TAG BITS.                                               ALLOC        720     A     
 ALLOC    *                (NEXT) = ORDINAL. (SEE *SHT*)                                   ALLOC        721     A     
 ALLOC    *         EXIT   (X0) = ORDINAL OF *SYMBOL* ENTRY.                               ALLOC        722     A     
 ALLOC    *                (A6) _ TAG JUST ENTERED.                                        ALLOC        723     A     
 ALLOC    *                (X6) = TAG.                                                     ALLOC        724     A     
 ALLOC    *                (A6)-1 _ STATEMENT NUMBER JUST ENTERED.                         ALLOC        725     A     
 ALLOC    *                (B7) = ORDINAL OF SYMBOL ENTRY.                                 ALLOC        726     A     
 ALLOC    *                                                                                ALLOC        727     A     
 ALLOC    *         USES   A1,A2,A3  X0  B2,B7                                             ALLOC        728     A     
 ALLOC    *         CALLS  MANAGE                                                          ALLOC        729     A     
 ALLOC                                                                                     ALLOC        730     A     
 ALLOC                                                                                     ALLOC        731     A     
 ALLOC    **        HERE IF BASE ENTRY CLEAR.                                              ALLOC        732     A     
 ALLOC                                                                                     ALLOC        733     A     
 ALLOC     ESN10    BX0    -X2                                                             ALLOC        734     A     
 ALLOC              SB7    X0                                                              ALLOC        735     A     
 ALLOC              SX3    X0+C.STAT+1 ORDINAL+ TAG BITS.                                  ALLOC        736     A     
 ALLOC              SA6    X1+B7                                                           ALLOC        737     A     
 ALLOC              LX3    P.TAG                                                           ALLOC        738     A     
 ALLOC              IX6    X3+X7                                                           ALLOC        739     A     
 ALLOC              SA6    A6+B1       STORE *TAG*                                         ALLOC        740     A     
 ALLOC                                                                                     ALLOC        741     A     
 ALLOC     ESN      SUBR   0                                                               ALLOC        742     A     
 ALLOC              SA2    NEXT                                                            ALLOC        743     A     
 ALLOC              MI     X2,ESN10    IF *BASE INDEX* NOT OCCUPIED.                       ALLOC        744     A     
 ALLOC                                                                                     ALLOC        745     A     
 ALLOC    **        HERE IF BASE ENTRY OCCUPIED.                                           ALLOC        746     A     
 ALLOC                                                                                     ALLOC        747     A     
 ALLOC     ESN5     SA6    SSYM                                                            ALLOC        748     A     
 ALLOC              BX6    X7                                                              ALLOC        749     A     
 ALLOC              SA6    A6+B1       SAVE SYMBOL + TAG.                                  ALLOC        750     A     
 ALLOC              ALLOC  A1,2                                                            ALLOC        751     A     
 ALLOC                                                                                     ALLOC        752     A     
 ALLOC    **        HERE WITH                                                              ALLOC        753     A     
 ALLOC    *         (X1) = NEW ORIGIN                                                      ALLOC        754     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 823    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC    *         (X2) = LENGTH.                                                         ALLOC        755     A     
 ALLOC    *         (NEXT) = ORDINAL OF SYMBOL ENTRY THAT NEEDS LINK FIELD.                ALLOC        756     A     
 ALLOC                                                                                     ALLOC        757     A     
 ALLOC              SB2    X1                                                              ALLOC        758     A     
 ALLOC              SA1    NEXT                                                            ALLOC        759     A     
 ALLOC              SX0    X2-2        ORDINAL                                             ALLOC        760     A     
 ALLOC              SA2    X1+B2       CHAIN ENTRY TO BE MODIFIED                          ALLOC        761     A     
 ALLOC              SA1    SSYM        SYMBOL                                              ALLOC        762     A     
 ALLOC              IX6    X2+X0       ADD CHAIN LINK TO SYMBOL.                           ALLOC        763     A     
 ALLOC              SA3    A1+B1       TAG                                                 ALLOC        764     A     
 ALLOC              SA6    A2                                                              ALLOC        765     A     
 ALLOC              LX6    X1                                                              ALLOC        766     A     
 ALLOC              SX2    X0+C.STAT+1                                                     ALLOC        767     A     
 ALLOC              SA6    X0+B2       NEW SYMBOL ENTRY                                    ALLOC        768     A     
 ALLOC              LX2    P.TAG                                                           ALLOC        769     A     
 ALLOC              IX6    X2+X3                                                           ALLOC        770     A     
 ALLOC              SA6    A6+B1       NEW TAG    ENTRY                                    ALLOC        771     A     
 ALLOC              SB7    X0          ORDINAL OF SYMBOL ENTRY.                            ALLOC        772     A     
 ALLOC              EQ     ESNX        EXIT..                                              ALLOC        773     A     
 ALLOC     ESY      SPACE  4,8                                                             ALLOC        774     A     
 ALLOC    **        ESY -  ENTER *SYMBOL*/*TAG* IN TABLE.                                  ALLOC        775     A     
 ALLOC    *                                                                                ALLOC        776     A     
 ALLOC    *         ENTRY  (A1) _ TABLE TO BE ENTERED.                                     ALLOC        777     A     
 ALLOC    *         ENTRY  (X6) = SYMBOL.                                                  ALLOC        778     A     
 ALLOC    *                (X7) = TAG ENTRY.   18/0, 42/AS DESIRED.                        ALLOC        779     A     
 ALLOC    *                TAG ENTRY MUST NEVER HAVE ANYTHING SET IN THE HIGH              ALLOC        780     A     
 ALLOC    *                ORDER L.TAG BITS.                                               ALLOC        781     A     
 ALLOC    *                (NEXT) = ORDINAL. (SEE *SHT*)                                   ALLOC        782     A     
 ALLOC    *         EXIT   (X0) = ORDINAL OF *SYMBOL* ENTRY.                               ALLOC        783     A     
 ALLOC    *                (A6) _ TAG JUST ENTERED.                                        ALLOC        784     A     
 ALLOC    *                (X6) = TAG.                                                     ALLOC        785     A     
 ALLOC    *                (A6)-1 _ SYMBOL JUST ENTERED.                                   ALLOC        786     A     
 ALLOC    *         (B7) _ ORDINAL OF *SYMBOL* ENTRY.                                      ALLOC        787     A     
 ALLOC    *         USES   A1,A2,A3  X0  B2,B7                                             ALLOC        788     A     
 ALLOC    *         CALLS  MANAGE.                                                         ALLOC        789     A     
 ALLOC                                                                                     ALLOC        790     A     
 ALLOC                                                                                     ALLOC        791     A     
 ALLOC    **        HERE IF BASE ENTRY CLEAR.                                              ALLOC        792     A     
 ALLOC                                                                                     ALLOC        793     A     
 ALLOC     ESY10    BX0    -X2                                                             ALLOC        794     A     
 ALLOC              SB7    X0                                                              ALLOC        795     A     
 ALLOC              SX3    X0+C.SYM+1  ORDINAL+ TAG BITS.                                  ALLOC        796     A     
 ALLOC              SA6    X1+B7       STORE *SYMBOL*                                      ALLOC        797     A     
 ALLOC              LX3    P.TAG                                                           ALLOC        798     A     
 ALLOC              IX6    X3+X7                                                           ALLOC        799     A     
 ALLOC              SA6    A6+B1       STORE *TAG*                                         ALLOC        800     A     
 ALLOC                                                                                     ALLOC        801     A     
 ALLOC     ESY      SUBR   0                                                               ALLOC        802     A     
 ALLOC              SA2    NEXT                                                            ALLOC        803     A     
 ALLOC              MI     X2,ESY10    IF *BASE INDEX* NOT OCCUPIED.                       ALLOC        804     A     
 ALLOC                                                                                     ALLOC        805     A     
 ALLOC    **        HERE IF BASE ENTRY OCCUPIED.                                           ALLOC        806     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 824    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC                                                                                     ALLOC        807     A     
 ALLOC     ESY5     SA6    SSYM                                                            ALLOC        808     A     
 ALLOC              BX6    X7                                                              ALLOC        809     A     
 ALLOC              SA6    A6+B1       SAVE SYMBOL + TAG.                                  ALLOC        810     A     
 ALLOC              ALLOC  A1,2                                                            ALLOC        811     A     
 ALLOC                                                                                     ALLOC        812     A     
 ALLOC    **        HERE WITH                                                              ALLOC        813     A     
 ALLOC    *         (X1) = NEW ORIGIN.                                                     ALLOC        814     A     
 ALLOC    *         (X2) = LENGTH.                                                         ALLOC        815     A     
 ALLOC    *         (NEXT) = ORDINAL OF SYMBOL ENTRY THAT NEEDS LINK FIELD.                ALLOC        816     A     
 ALLOC                                                                                     ALLOC        817     A     
 ALLOC              SB2    X1                                                              ALLOC        818     A     
 ALLOC              SA1    NEXT                                                            ALLOC        819     A     
 ALLOC              SX0    X2-2        ORDINAL                                             ALLOC        820     A     
 ALLOC              SA2    X1+B2       CHAIN ENTRY TO BE MODIFIED                          ALLOC        821     A     
 ALLOC              SA1    SSYM        SYMBOL                                              ALLOC        822     A     
 ALLOC              IX6    X2+X0       ADD CHAIN LINK TO SYMBOL.                           ALLOC        823     A     
 ALLOC              SA3    A1+B1       TAG                                                 ALLOC        824     A     
 ALLOC              SA6    A2                                                              ALLOC        825     A     
 ALLOC              LX6    X1                                                              ALLOC        826     A     
 ALLOC              SX2    X0+C.SYM+1                                                      ALLOC        827     A     
 ALLOC              SA6    X0+B2       NEW SYMBOL ENTRY                                    ALLOC        828     A     
 ALLOC              LX2    P.TAG                                                           ALLOC        829     A     
 ALLOC              IX6    X2+X3                                                           ALLOC        830     A     
 ALLOC              SA6    A6+B1       NEW TAG    ENTRY                                    ALLOC        831     A     
 ALLOC              SB7    X0          ORDINAL OF SYMBOL ENTRY.                            ALLOC        832     A     
 ALLOC              EQ     ESYX        EXIT..                                              ALLOC        833     A     
 ALLOC                                                                                     ALLOC        834     A     
 ALLOC     SSYM     DATA   0,0         SYMBOL,TAG ENTRYS.                                  ALLOC        835     A     
 ALLOC     FUC      SPACE  4,20                                                            ALLOC        836     A     
 ALLOC     MTD      SPACE  4,8                                                             ALLOC        837     A     
 ALLOC    **        MTD -  MOVE ALL TABLES TO LOW CORE.                                    ALLOC        838     A     
 ALLOC    *         PACKS UP ALL TABLES AT LOWER END OF MANAGED SPACE.                     ALLOC        839     A     
 ALLOC    *         USES   A1,A2,A6,A7  X0,X3,X4  B3,B7                                    ALLOC        840     A     
 ALLOC    *         CALLS  MVE                                                             ALLOC        841     A     
 ALLOC                                                                                     ALLOC        842     A     
 ALLOC                                                                                     ALLOC        843     A     
 ALLOC     MTD      SUBR   0                                                               ALLOC        844     A     
 ALLOC              SB3    N.TABLE-1                                                       ALLOC        845     A     
 ALLOC              SB3    -B3                                                             ALLOC        846     A     
 ALLOC              SA2    LOCORE                                                          ALLOC        847          I
          -FCC0813
 ALLOC              SA2    =XF.TABS                                                        FCC0813      123     A     
 ALLOC              BX4    X2                                                              ALLOC        848     A     
 ALLOC                                                                                     ALLOC        849     A     
 ALLOC     MTD1     SX1    B3+N.TABLE-1                                                    ALLOC        850     A     
 ALLOC              SA2    X1+ORIGINS                                                      ALLOC        851     A     
 ALLOC              SA1    X1+SIZES                                                        ALLOC        852     A     
 ALLOC              LX3    X4                                                              ALLOC        853     A     
 ALLOC              IX4    X4+X1                                                           ALLOC        854     A     
 ALLOC              LX7    X3                                                              ALLOC        855     A     
 ALLOC              SA7    A2                                                              ALLOC        856     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 825    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              SB3    B3+B1                                                           ALLOC        857     A     
 ALLOC              RJ     MVE                                                             ALLOC        858     A     
 ALLOC     MTD2     NZ     B3,MTD1     IF MORE TABLES TO DO                                ALLOC        859     A     
 ALLOC              EQ     MTDX        EXIT..                                              ALLOC        860     A     
 ALLOC     MTU      SPACE  4                                                               ALLOC        861     A     
 ALLOC    **        MTU - MOVE ALL TABLES TO HIGH CORE.                                    ALLOC        862     A     
 ALLOC                                                                                     ALLOC        863     A     
 ALLOC     MTU      SKIP                                                                   ALLOC        864     A     
 ALLOC                                                                                     ALLOC        865     A     
 ALLOC     MTU      PS                 RETURN EXIT                                         ALLOC        866     A     
 ALLOC              SB2    NTABLES                                                         ALLOC        867     A     
 ALLOC              SA1    LOCORE                                                          ALLOC        868          I
          -FCC0813
 ALLOC              SA2    SIZCORE                                                         ALLOC        869          I
          -FCC0813
 ALLOC              SA1    =XF.TABS                                                        FCC0813      124     A     
 ALLOC              SA2    =XW.TABS                                                        FCC0813      125     A     
 ALLOC              IX0    X1+X2       LWA+1 OF TABLE SPACE AVAILABLE                      ALLOC        870     A     
 ALLOC              SB3    B2-B1                                                           ALLOC        871     A     
 ALLOC     MTU1     SB3    B3-B1                                                           ALLOC        872     A     
 ALLOC              SA2    ORIGINS+B3                                                      ALLOC        873     A     
 ALLOC              SA1    SIZES+B3                                                        ALLOC        874     A     
 ALLOC              IX7    X0-X1                                                           ALLOC        875     A     
 ALLOC              LX0    X7                                                              ALLOC        876     A     
 ALLOC              SA7    A2                                                              ALLOC        877     A     
 ALLOC              BX3    X0                                                              ALLOC        878     A     
 ALLOC              RJ     MOVE                                                            ALLOC        879     A     
 ALLOC              NZ     B3,MTU1     LOOP                                                ALLOC        880     A     
 ALLOC              EQ     MTU         EXIT                                                ALLOC        881     A     
 ALLOC     MTU      ENDIF                                                                  ALLOC        882     A     
 ALLOC     MVE      SPACE  4,15                                                            ALLOC        883     A     
 ALLOC    **        MVE - MOVE BLOCK OF DATA.                                              ALLOC        884     A     
 ALLOC    *                                                                                ALLOC        885     A     
 ALLOC    *         G. R. MANSFIELD.  70/09/04.                                            ALLOC        886     A     
 ALLOC    *         ADAPTED FROM SUBROUTINE *MOVE* IN *COMPASS VER 2.0*.                   ALLOC        887     A     
 ALLOC    *         THIS VERSION ADAPTED TO COMPILER FROM ABOVE.                           ALLOC        888     A     
 ALLOC    *                                                                                ALLOC        889     A     
 ALLOC    *         MVE MOVES A BLOCK OF DATA UPWARDS OR DOWNWARDS, TO AVOID OVER-         ALLOC        890     A     
 ALLOC    *                STORES.  WILL NOT MOVE ANYTHING IF WORD COUNT IS ZERO,          ALLOC        891     A     
 ALLOC    *                OR SOURCE = DESTINATION.                                        ALLOC        892     A     
 ALLOC    *                                                                                ALLOC        893     A     
 ALLOC    *         ENTRY  (X1) = WORD COUNT.                                              ALLOC        894     A     
 ALLOC    *                (X2) = SOURCE ADDRESS.                                          ALLOC        895     A     
 ALLOC    *                (X3) = DESTINATION ADDRESS.                                     ALLOC        896     A     
 ALLOC    *                                                                                ALLOC        897     A     
 ALLOC    *         USES   A1,A2,A6,A7  X0,X3  B7                                          ALLOC        898     A     
 ALLOC                                                                                     ALLOC        899     A     
 ALLOC                                                                                     ALLOC        900     A     
 ALLOC    *         BEGIN DOWNWARD MOVE                                                    ALLOC        901     A     
 ALLOC                                                                                     ALLOC        902     A     
 ALLOC     MVE2     SB7    -2          UPWARD MOVE                                         ALLOC        903     A     
 ALLOC              SX2    X2+B7                                                           ALLOC        904     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 826    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              SX3    X3+B7                                                           ALLOC        905     A     
 ALLOC              SB7    B1+B1                                                           ALLOC        906     A     
 ALLOC              ZR     X6,MVE3     IF WORD COUNT EVEN                                  ALLOC        907     A     
 ALLOC              SA1    X2+B7       MOVE INITIAL WORD                                   ALLOC        908     A     
 ALLOC              IX2    X2+X6                                                           ALLOC        909     A     
 ALLOC              BX7    X1                                                              ALLOC        910     A     
 ALLOC              SA7    X3+B7                                                           ALLOC        911     A     
 ALLOC              IX3    X3+X6                                                           ALLOC        912     A     
 ALLOC                                                                                     ALLOC        913     A     
 ALLOC    *         INITIALIZE MOVE LOOP.                                                  ALLOC        914     A     
 ALLOC                                                                                     ALLOC        915     A     
 ALLOC     MVE3     ZR     X0,MVEX     IF MOVE COMPLETE                                    ALLOC        916     A     
 ALLOC              SA2    X2+B7       MOVE FIRST 2 WORDS                                  ALLOC        917     A     
 ALLOC              SA1    A2+B1                                                           ALLOC        918     A     
 ALLOC              BX6    X2                                                              ALLOC        919     A     
 ALLOC              LX7    X1                                                              ALLOC        920     A     
 ALLOC              SA6    X3+B7                                                           ALLOC        921     A     
 ALLOC              SA7    A6+B1                                                           ALLOC        922     A     
 ALLOC              SX3    B1+B1                                                           ALLOC        923     A     
 ALLOC              IX0    X0-X3                                                           ALLOC        924     A     
 ALLOC              ZR     X0,MVEX     IF MOVE COMPLETE                                    ALLOC        925     A     
 ALLOC              SA2    A2+B7       NEXT 2 WORDS                                        ALLOC        926     A     
 ALLOC              SA1    A1+B7                                                           ALLOC        927     A     
 ALLOC                                                                                     ALLOC        928     A     
 ALLOC    *         MOVE LOOP.                                                             ALLOC        929     A     
 ALLOC                                                                                     ALLOC        930     A     
 ALLOC     MVE4     BX6    X2                                                              ALLOC        931     A     
 ALLOC              SA2    A2+B7                                                           ALLOC        932     A     
 ALLOC              LX7    X1                                                              ALLOC        933     A     
 ALLOC              SA1    A1+B7                                                           ALLOC        934     A     
 ALLOC              IX0    X0-X3                                                           ALLOC        935     A     
 ALLOC              NO                                                                     ALLOC        936     A     
 ALLOC              SA6    A6+B7                                                           ALLOC        937     A     
 ALLOC              SA7    A7+B7                                                           ALLOC        938     A     
 ALLOC              NZ     X0,MVE4                                                         ALLOC        939     A     
 ALLOC                                                                                     ALLOC        940     A     
 ALLOC     MVE      SUBR   0                                                               ALLOC        941     A     
 ALLOC              MX0    -1                                                              ALLOC        942     A     
 ALLOC              IX7    X3-X2                                                           ALLOC        943     A     
 ALLOC              BX6    -X0*X1                                                          ALLOC        944     A     
 ALLOC              IX0    X1-X6       REDUCE WORD COUNT TO EVEN NUMBER                    ALLOC        945     A     
 ALLOC              ZR     X7,MVEX     IF NULL MOVE, AVOID..                               ALLOC        946     A     
 ALLOC              MI     X7,MVE2     IF MOVE DOWNWARD  (DESTINATION < SOURCE)            ALLOC        947     A     
 ALLOC                                                                                     ALLOC        948     A     
 ALLOC    *         BEGIN UPWARD MOVE                                                      ALLOC        949     A     
 ALLOC                                                                                     ALLOC        950     A     
 ALLOC              ZR     X6,MVE1     IF WORD COUNT EVEN                                  ALLOC        951     A     
 ALLOC              SB7    X0                                                              ALLOC        952     A     
 ALLOC              SA1    X2+B7       MOVE INITIAL WORD                                   ALLOC        953     A     
 ALLOC              BX6    X1                                                              ALLOC        954     A     
 ALLOC              SA6    X3+B7                                                           ALLOC        955     A     
 ALLOC     MVE1     IX2    X2+X0                                                           ALLOC        956     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 827    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              IX3    X3+X0                                                           ALLOC        957     A     
 ALLOC              SB7    -2                                                              ALLOC        958     A     
 ALLOC              EQ     MVE3                                                            ALLOC        959     A     
 ALLOC                                                                                     ALLOC        960     A     
 ALLOC                                                                                     ALLOC        961     A     
 ALLOC     NAP      SPACE  4,8                                                             ALLOC        962     A     
 ALLOC    **        NAP -  ENTER AP-LIST IN TABLE.                                         ALLOC        963     A     
 ALLOC    *         ENTRY  (B3) = LENGTH OF AP-LIST (INCLUDING THE ZERO WORD, IF           ALLOC        964     A     
 ALLOC    *                            ANY).                                               ALLOC        965     A     
 ALLOC    *                THE AP-LIST TO BE ENTERED IS THE LAST (B3) WORDS OF             ALLOC        966     A     
 ALLOC    *                            TP.APL.                                             ALLOC        967     A     
 ALLOC    *         EXIT   (X6) = AP-TAG OF THE INDICATED LIST.                            ALLOC        968     A     
 ALLOC    *                (TG.APL) IS UPDATED, AND ADDRESS OF TAG DEFINED.                ALLOC        969     A     
 ALLOC    *         USES   A1,A2,A3,A6  B2,B3,B7  X0                                       ALLOC        970     A     
 ALLOC                                                                                     ALLOC        971     A     
 ALLOC                                                                                     ALLOC        972     A     
 ALLOC     NAP      SUBR   0                                                               ALLOC        973     A     
 ALLOC              SA1    TP.APL                                                          ALLOC        974     A     
 ALLOC              SA2    TP=APL                                                          ALLOC        975     A     
 ALLOC              SB7    -B3                                                             ALLOC        976     A     
 ALLOC              IX0    X1+X2       LWA+1 OF LIST                                       ALLOC        977     A     
 ALLOC              SB2    X0+B7       FWA LIST = LWA+1 - LEN                              ALLOC        978     A     
 ALLOC              SB3    X0                                                              ALLOC        979     A     
 ALLOC              SX6    X2+B7       FAKE LENGTH FOR *NCM* PROCESSING.                   ALLOC        980     A     
 ALLOC              SA6    A2          RESET LENGTH FOR *NCM*                              ALLOC        981     A     
 ALLOC              RJ     NCM         SEARCH AP-TABLE FOR DUPLICATE LIST                  ALLOC        982     A     
 ALLOC     NAP.NCM  BSS    0           ADDRESS OF RETURN FROM NCM                          ALLOC        983     A     
 ALLOC              MX2    1                                                               ALLOC        984     A     
 ALLOC              SA3    TG.APL                                                          ALLOC        985     A     
 ALLOC              IX0    X2+X6       ORDINAL + FLAG                                      ALLOC        986     A     
 ALLOC              =X6    X3+1                                                            ALLOC        987     A     
 ALLOC              SA6    A3          UPDATE AP-TAG                                       ALLOC        988     A     
 ALLOC              LX6    P.TAG                                                           ALLOC        989     A     
 ALLOC              BX6    X6+X0                                                           ALLOC        990     A     
 ALLOC              RJ     DPT         DEFINE PROGRAM TAG                                  ALLOC        991     A     
 ALLOC              MX0    L.TAG-1                                                         ALLOC        992     A     
 ALLOC              LX0    -1                                                              ALLOC        993     A     
 ALLOC              BX6    X0*X6       STRIP OFF GARBAGE                                   ALLOC        994     A     
 ALLOC              EQ     NAPX        EXIT...                                             ALLOC        995     A     
 ALLOC     NCM      SPACE  4,30                                                            ALLOC        996     A     
 ALLOC    **        NCM -  ENTER *MULTI-WORD* ELEMENTS INTO REQUESTED TABLE.               ALLOC        997     A     
 ALLOC    *                                                                                ALLOC        998     A     
 ALLOC    *         ENTRY  (A1) _ TABLE TO BE ENTERED.                                     ALLOC        999     A     
 ALLOC    *                (B2) _ FWA CONSTANTS.                                           ALLOC       1000     A     
 ALLOC    *                (B3) _ LWA+1 ELEMENTS TO BE ENTERED.                            ALLOC       1001     A     
 ALLOC    *                (X1) = ((A1))                                                   ALLOC       1002     A     
 ALLOC    *                                                                                ALLOC       1003     A     
 ALLOC    *         NOTE   LIKE MOST SCAN ROUTINES *NCM* REQUIRES A USABLE WORD            ALLOC       1004     A     
 ALLOC    *                PRECEDING CURRENT TABLE ABOUT TO SCAN.                          ALLOC       1005     A     
 ALLOC    *                                                                                ALLOC       1006     A     
 ALLOC    *         NOTE   SPECIAL DEAL WHEN CALLED BY *NAP* --                            ALLOC       1007     A     
 ALLOC    *                            (EFFECTIVE WHEN RETURN ADDRESS = *NAP.NCM*)         ALLOC       1008     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 828    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC    *                IN THIS CASE, THE ELEMENTS ARE ACTUALLY ALREADY IN THE          ALLOC       1009     A     
 ALLOC    *                TABLE, AT THE VERY END.  TABLE LENGTH IS REDUCED BEFORE         ALLOC       1010     A     
 ALLOC    *                *NCM* IS CALLED, TO HIDE THEM FROM OUR SEARCH LOOP.  IF         ALLOC       1011     A     
 ALLOC    *                ENTITY IS NOT DUPLICATED IN THE TABLE, WE MERELY RESET          ALLOC       1012     A     
 ALLOC    *                THE LENGTH AND EXIT.                                            ALLOC       1013     A     
 ALLOC    *                                                                                ALLOC       1014     A     
 ALLOC    *         EXIT   ELEMENTS ENTERED                                                ALLOC       1015     A     
 ALLOC    *                (B7) = ORDINAL IN TABLE OF FWA CONSTANTS.                       ALLOC       1016     A     
 ALLOC    *                (X6) = (B7)                                                     ALLOC       1017     A     
 ALLOC    *                                                                                ALLOC       1018     A     
 ALLOC    *         CALLS  MANAGE, MVE                                                     ALLOC       1019     A     
 ALLOC    *                                                                                ALLOC       1020     A     
 ALLOC    *         USES   CANNOT DESTORY A4,A5,A7  B4,B5,B6                               ALLOC       1021     A     
 ALLOC    *                ADWT (+0 - +2)                                                  ALLOC       1022     A     
 ALLOC                                                                                     ALLOC       1023     A     
 ALLOC                                                                                     ALLOC       1024     A     
 ALLOC     NCM      SUBR   0                                                               ALLOC       1025     A     
 ALLOC              SX6    B3                                                              ALLOC       1026     A     
 ALLOC              SX0    B3-B2                                                           ALLOC       1027     A     
 ALLOC              SA6    ADWT        SAVE  B3                                            ALLOC       1028     A     
 ALLOC              EQ     B2,B3,NCMX  IF NO WORDS TO ADD                                  ALLOC       1029     A     
 ALLOC                                                                                     ALLOC       1030     A     
 ALLOC    **        SCAN TABLE N TIMES TO CHECK IF ENTITY IS ALREADY IN TABLE.             ALLOC       1031     A     
 ALLOC                                                                                     ALLOC       1032     A     
 ALLOC              SA2    B2          1ST ELEMENT TO BE CHECKED.                          ALLOC       1033     A     
 ALLOC              SB7    X0-1        LENGTH OF THIS ENTRY                                ALLOC       1034     A     
 ALLOC              SA3    A1+N.TABLE  LENGTH OF TABLE.                                    ALLOC       1035     A     
 ALLOC     NCM5     BX6    X2                                                              ALLOC       1036     A     
 ALLOC              SB3    X3                                                              ALLOC       1037     A     
 ALLOC              SA6    X1-1        DUMMY FIND                                          ALLOC       1038     A     
 ALLOC              SA3    A6+B3                                                           ALLOC       1039     A     
 ALLOC              LE     B3,B7,NCM50 IF TABLE TOO SMALL TO ALREADY HAVE IT               ALLOC       1040     A     
 ALLOC              SA3    A3-B7                                                           ALLOC       1041     A     
 ALLOC              SB3    B3-B7                                                           ALLOC       1042     A     
 ALLOC                                                                                     ALLOC       1043     A     
 ALLOC    **        CHECK FOR 1ST ELEMENT 60 BIT MATCH.                                    ALLOC       1044     A     
 ALLOC    *         BACKWARD SCAN THRU TABLE.                                              ALLOC       1045     A     
 ALLOC                                                                                     ALLOC       1046     A     
 ALLOC     NCM10    =B3    B3-1                                                            ALLOC       1047     A     
 ALLOC              BX6    X3-X2                                                           ALLOC       1048     A     
 ALLOC              =A3    A3-1                                                            ALLOC       1049     A     
 ALLOC              NZ     X6,NCM10    IF NO MATCH                                         ALLOC       1050     A     
 ALLOC              MI     X6,NCM10    IF NO MATCH (-0 PROBLEM)                            ALLOC       1051     A     
 ALLOC              MI     B3,NCM50    IF DUMMY HIT - DEFINITELY NOT IN TABLE.             ALLOC       1052     A     
 ALLOC              =X6    A3+1                                                            ALLOC       1053     A     
 ALLOC              SA6    ADWT+1                                                          ALLOC       1054     A     
 ALLOC              =A2    A2+1                                                            ALLOC       1055     A     
 ALLOC              SA3    A3+2                                                            ALLOC       1056     A     
 ALLOC                                                                                     ALLOC       1057     A     
 ALLOC    **        SCAN TABLE FOR REMAINING NTH ELEMENTS TO MATCH                         ALLOC       1058     A     
 ALLOC                                                                                     ALLOC       1059     A     
 ALLOC     NCM20    ZR     B7,NCM30    IF ENTIRE LIST MATCHES                              ALLOC       1060     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 829    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              BX6    X2-X3                                                           ALLOC       1061     A     
 ALLOC              =B7    B7-1                                                            ALLOC       1062     A     
 ALLOC              =A2    A2+1                                                            ALLOC       1063     A     
 ALLOC              =A3    A3+1                                                            ALLOC       1064     A     
 ALLOC              MI     X6,NCM22    IF NO MATCH (-0 PROBLEM)                            ALLOC       1065     A     
 ALLOC              ZR     X6,NCM20    IF CONTINUED MATCH                                  ALLOC       1066     A     
 ALLOC                                                                                     ALLOC       1067     A     
 ALLOC    **        HERE IF ONLY PARTIAL MATCH.                                            ALLOC       1068     A     
 ALLOC    *         RESET PARAMETERS AND START OVER.                                       ALLOC       1069     A     
 ALLOC                                                                                     ALLOC       1070     A     
 ALLOC     NCM22    SA3    ADWT+1                                                          ALLOC       1071     A     
 ALLOC              SA2    B2                                                              ALLOC       1072     A     
 ALLOC              SB7    X0-1                                                            ALLOC       1073     A     
 ALLOC              IX3    X3-X1       ORDINAL FOR RE-START.                               ALLOC       1074     A     
 ALLOC              EQ     NCM5        TRY AGAIN ....                                      ALLOC       1075     A     
 ALLOC                                                                                     ALLOC       1076     A     
 ALLOC    **        HERE IF ENTITY IS ALREADY IN TABLE                                     ALLOC       1077     A     
 ALLOC    *         SET-UP EXIT CONDITIONS AND EXIT.                                       ALLOC       1078     A     
 ALLOC                                                                                     ALLOC       1079     A     
 ALLOC     NCM30    SB3    X1                                                              ALLOC       1080     A     
 ALLOC              SX2    A3-B3                                                           ALLOC       1081     A     
 ALLOC              IX6    X2-X0       ORDINAL                                             ALLOC       1082     A     
 ALLOC              SB7    X6                                                              ALLOC       1083     A     
 ALLOC              EQ     NCMX        EXIT..                                              ALLOC       1084     A     
 ALLOC                                                                                     ALLOC       1085     A     
 ALLOC    **        HERE IF ENTITY NOT IN TABLE                                            ALLOC       1086     A     
 ALLOC    *         ALLOCATE ROOM FOR TABLE.                                               ALLOC       1087     A     
 ALLOC    *         CHECK FOR SPECIAL *NAP* DEAL.                                          ALLOC       1088     A     
 ALLOC                                                                                     ALLOC       1089     A     
 ALLOC     NCM50    SA3    NCM                                                             ALLOC       1090     A     
 ALLOC              LX3    30                                                              ALLOC       1091     A     
 ALLOC              SB7    X3-NAP.NCM                                                      ALLOC       1092     A     
 ALLOC              NZ     B7,NCM55    IF NOT CALLED BY *NAP*                              ALLOC       1093     A     
 ALLOC              SA2    A1+N.TABLE                                                      ALLOC       1094     A     
 ALLOC              IX6    X2+X0                                                           ALLOC       1095     A     
 ALLOC              SA6    A2          UPDATE LENGTH.                                      ALLOC       1096     A     
 ALLOC              SB7    X2                                                              ALLOC       1097     A     
 ALLOC              SX6    X2                                                              ALLOC       1098     A     
 ALLOC              EQ     NCMX        EXIT..                                              ALLOC       1099     A     
 ALLOC                                                                                     ALLOC       1100     A     
 ALLOC     NCM55    SX6    B2                                                              ALLOC       1101     A     
 ALLOC              SA6    ADWT+1      SAVE *B2* (FWA)                                     ALLOC       1102     A     
 ALLOC              ALLOC  A1,X0       ALLOCATE ROOM IN TABLE.                             ALLOC       1103     A     
 ALLOC                                                                                     ALLOC       1104     A     
 ALLOC    **        MANAGE RETURNS WITH (X1) = NEW ORIGIN.                                 ALLOC       1105     A     
 ALLOC    *                             (X2) = NEW LENGTH.                                 ALLOC       1106     A     
 ALLOC                                                                                     ALLOC       1107     A     
 ALLOC              BX0    X1                                                              ALLOC       1108     A     
 ALLOC              SA3    ADWT                                                            ALLOC       1109     A     
 ALLOC              =A1    A3+1                                                            ALLOC       1110     A     
 ALLOC              IX7    X2-X3                                                           ALLOC       1111     A     
 ALLOC              SB3    X3          RESTORE B3                                          ALLOC       1112     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 830    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              SB2    X1          RESTORE B2                                          ALLOC       1113     A     
 ALLOC              BX2    X1          SOURCE.= (B2)                                       ALLOC       1114     A     
 ALLOC              SX6    X7+B2       ORDINAL = NEW LENGTH - WORD COUNT                   ALLOC       1115     A     
 ALLOC              SA1    A7                                                              ALLOC       1116     A     
 ALLOC              IX3    X6+X0       DESTINATION = ORDINAL + ORIGIN                      ALLOC       1117     A     
 ALLOC              SA6    A3          SAVE ORDINAL                                        ALLOC       1118     A     
 ALLOC              BX6    X1                                                              ALLOC       1119     A     
 ALLOC              SX1    B3-B2       WORD COUNT                                          ALLOC       1120     A     
 ALLOC              SA6    ADWT+2      SAVE *(A7)*                                         ALLOC       1121     A     
 ALLOC              SX6    A7                                                              ALLOC       1122     A     
 ALLOC              =A6    A6+1        SAVE *A7*                                           ALLOC       1123     A     
 ALLOC                                                                                     ALLOC       1124     A     
 ALLOC    **        MOVE ELEMENTS INTO TABLE.                                              ALLOC       1125     A     
 ALLOC    *                (X1) = WORD COUNT.                                              ALLOC       1126     A     
 ALLOC    *                (X2) = SOURCE ADDRESS                                           ALLOC       1127     A     
 ALLOC    *                (X3) = DESTINATION ADDRESS.                                     ALLOC       1128     A     
 ALLOC                                                                                     ALLOC       1129     A     
 ALLOC              RJ     MVE                                                             ALLOC       1130     A     
 ALLOC              SA1    ADWT+2                                                          ALLOC       1131     A     
 ALLOC              =A2    A1+1                                                            ALLOC       1132     A     
 ALLOC              BX7    X1                                                              ALLOC       1133     A     
 ALLOC              SA7    X2          RESTORE *A7*                                        ALLOC       1134     A     
 ALLOC              SA1    ADWT                                                            ALLOC       1135     A     
 ALLOC              BX6    X1                                                              ALLOC       1136     A     
 ALLOC              SB7    X1                                                              ALLOC       1137     A     
 ALLOC              EQ     NCMX        EXIT..                                              ALLOC       1138     A     
 ALLOC     NCS      SPACE  4,20                                                            ALLOC       1139     A     
 ALLOC    **        NCS -  SCAN / ENTER SINGLE WORD CONSTANT INTO CONSTANT TABLE.          ALLOC       1140     A     
 ALLOC    *                                                                                ALLOC       1141     A     
 ALLOC    *             NCS WILL FIRST CHECK IF CONSTANT CAN BE SET TO SHORT FORM,         ALLOC       1142     A     
 ALLOC    *         BY CHECKING IF IT IS ONE OF BELOW TYPES                                ALLOC       1143     A     
 ALLOC    *                A. UNIVERSAL                                                    ALLOC       1144     A     
 ALLOC    *                B. INTEGER.                                                     ALLOC       1145     A     
 ALLOC    *          OR    C. REAL                                                         ALLOC       1146     A     
 ALLOC    *                                                                                ALLOC       1147     A     
 ALLOC    *         IF NOT, IT THEN SCANS CONSTANT TABLE TO CHECK IF CONSTANT IS           ALLOC       1148     A     
 ALLOC    *         ALREADY IN TABLE. IF SO, IT SETS CURRENT TAG OFF OF RETURNED           ALLOC       1149     A     
 ALLOC    *         ORDINAL, ADDS IN REQUESTED MODE BITS, AND EXITS.                       ALLOC       1150     A     
 ALLOC    *                                                                                ALLOC       1151     A     
 ALLOC    *         ENTRY  (X6) = CONSTANT VALUE TO BE ENTERED.                            ALLOC       1152     A     
 ALLOC    *                (X7) = MODE OF CONSTANT.                                        ALLOC       1153     A     
 ALLOC    *                                                                                ALLOC       1154     A     
 ALLOC    *         EXIT   X6 = 18/K-TAG,24/0,18/MODE.                                     ALLOC       1155     A     
 ALLOC    *                                                                                ALLOC       1156     A     
 ALLOC    *         USES   A1,A2,A3  X0,X6,X7  B2,B3,B7                                    ALLOC       1157     A     
 ALLOC    *                                                                                ALLOC       1158     A     
 ALLOC    *         CALLS  ADDWD, SCT                                                      ALLOC       1159     A     
 ALLOC                                                                                     ALLOC       1160     A     
 ALLOC                                                                                     ALLOC       1161     A     
 ALLOC    **        HERE IF NOT POSSIBLE SHORT, ENTER INTO CONSTANT TABLE.                 ALLOC       1162     A     
 ALLOC                                                                                     ALLOC       1163     A     
 ALLOC     NCS30    SA7    NCS.MOD     SAVE MODE                                           ALLOC       1164     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 831    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              SCAN   TS.CON,SCT  SCAN CON TABLE                                      ALLOC       1165     A     
 ALLOC              MI     B7,NCS40    IF *NIT*                                            ALLOC       1166     A     
 ALLOC              SX0    B7+C.CON                                                        ALLOC       1167     A     
 ALLOC              LX0    P.TAG                                                           ALLOC       1168     A     
 ALLOC              BX6    X0+X7       MERGE MODE                                          ALLOC       1169     A     
 ALLOC              EQ     NCSX        EXIT..                                              ALLOC       1170     A     
 ALLOC                                                                                     ALLOC       1171     A     
 ALLOC    **        ADD NEW CONSTANT TO TABLE                                              ALLOC       1172     A     
 ALLOC                                                                                     ALLOC       1173     A     
 ALLOC     NCS40    ADDWD  A1          ENTER INTO TABLE                                    ALLOC       1174     A     
 ALLOC              SX0    X2+C.CON-1                                                      ALLOC       1175     A     
 ALLOC              SA2    NCS.MOD                                                         ALLOC       1176     A     
 ALLOC              LX0    P.TAG                                                           ALLOC       1177     A     
 ALLOC              IX6    X0+X2       MERGE MODE                                          ALLOC       1178     A     
 ALLOC                                                                                     ALLOC       1179     A     
 ALLOC                                                                                     ALLOC       1180     A     
 ALLOC     NCS      SUBR   0                                                               ALLOC       1181     A     
 ALLOC              SB2    X7-M.INT                                                        ALLOC       1182     A     
 ALLOC              EQ1    B2,NCS20    IF *REAL*                                           ALLOC       1183     A     
 ALLOC              PL     X6,NCS7     IF NOT NEGATIVE CONSTANT                            ALLOC       1184     A     
 ALLOC              ZR     B2,NCS6     IF *INTEGER*                                        ALLOC       1185     A     
 ALLOC              NZ     X7,NCS20    IF NOT *CHAMELEON*                                  ALLOC       1186     A     
 ALLOC     NCS6     =X0    1                                                               ALLOC       1187     A     
 ALLOC              BX2    -X6                                                             ALLOC       1188     A     
 ALLOC              IX3    X0+X2                                                           ALLOC       1189     A     
 ALLOC              BX1    X3*X2                                                           ALLOC       1190     A     
 ALLOC              NZ     X1,NCS7     IF NOT *MASK* TYPE CONSTANT                         ALLOC       1191     A     
 ALLOC              BX0    -X2                                                             ALLOC       1192     A     
 ALLOC              CX6    X0                                                              ALLOC       1193     A     
 ALLOC              LX6    P.MSHORT                                                        ALLOC       1194     A     
 ALLOC              EQ     NCS15       CONTINUE                                            ALLOC       1195     A     
 ALLOC                                                                                     ALLOC       1196     A     
 ALLOC     NCS7     BX2    X6                                                              ALLOC       1197     A     
 ALLOC              AX2    L.SHC-1                                                         ALLOC       1198     A     
 ALLOC              NZ     X2,NCS30    IF UPPER BITS NOT ALL SAME                          ALLOC       1199     A     
 ALLOC                                                                                     ALLOC       1200     A     
 ALLOC    *         AVOID SETTING UP SHORT CONSTANT THAT LOOKS LIKE STATEMENT              ALLOC       1201     A     
 ALLOC    *         NUMBER TAG                                                             ALLOC       1202     A     
 ALLOC                                                                                     ALLOC       1203     A     
 ALLOC              SX2    C.STN                                                           ALLOC       1204     A     
 ALLOC              MX0    L.TGB                                                           ALLOC       1205     A     
 ALLOC              LX0    L.TAG                                                           ALLOC       1206     A     
 ALLOC              BX0    X0*X6                                                           ALLOC       1207     A     
 ALLOC              IX0    X2-X0                                                           ALLOC       1208     A     
 ALLOC              ZR     X0,NCS30    IF CONFUSION WITH STATEMENT NUMBER TAG              ALLOC       1209     A     
 ALLOC              MX0    -L.SHC                                                          ALLOC       1210     A     
 ALLOC              BX6    -X0*X6                                                          ALLOC       1211     A     
 ALLOC              LX6    P.SHC                                                           ALLOC       1212     A     
 ALLOC                                                                                     ALLOC       1213     A     
 ALLOC    **        HERE IF SHORT CONSTANT.                                                ALLOC       1214     A     
 ALLOC                                                                                     ALLOC       1215     A     
 ALLOC     NCS15    =X1    M.SHORT                                                         ALLOC       1216     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 832    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              BX2    X6+X7       MERGE MODE                                          ALLOC       1217     A     
 ALLOC              IX6    X2+X1                                                           ALLOC       1218     A     
 ALLOC              EQ     NCSX        EXIT..                                              ALLOC       1219     A     
 ALLOC                                                                                     ALLOC       1220     A     
 ALLOC    **        CHECK IF MODE = REAL, IF NOT ENTER CONSTANT.                           ALLOC       1221     A     
 ALLOC                                                                                     ALLOC       1222     A     
 ALLOC     NCS20    SB2    X7-M.REAL                                                       ALLOC       1223     A     
 ALLOC              BX2    X6                                                              ALLOC       1224     A     
 ALLOC              NZ     B2,NCS30    IF NOT REAL.                                        ALLOC       1225     A     
 ALLOC              LX2    L.SHC                                                           ALLOC       1226     A     
 ALLOC              AX2    L.SHC                                                           ALLOC       1227     A     
 ALLOC              NZ     X2,NCS30    IF LOWER 42 BITS ARE NOT SAME AS SIGN               ALLOC       1228     A     
 ALLOC                                                                                     ALLOC       1229     A     
 ALLOC    *                            THE SIGN BITS OF X2 + X6 MUST BE EQUAL              ALLOC       1230     A     
 ALLOC                                                                                     ALLOC       1231     A     
 ALLOC              BX2    X2-X6                                                           ALLOC       1232     A     
 ALLOC              NG     X2,NCS30    IF SIGN BIT IS DIFFERENT                            ALLOC       1233     A     
 ALLOC                                                                                     ALLOC       1234     A     
 ALLOC    *         AVOID SETTING UP SHORT CONSTANT THAT LOOKS LIKE STATEMENT              ALLOC       1235     A     
 ALLOC    *         NUMBER TAG                                                             ALLOC       1236     A     
 ALLOC                                                                                     ALLOC       1237     A     
 ALLOC              SX2    C.STN                                                           ALLOC       1238     A     
 ALLOC              MX0    L.TGB                                                           ALLOC       1239     A     
 ALLOC              LX2    P.TAG                                                           ALLOC       1240     A     
 ALLOC              BX0    X0*X6                                                           ALLOC       1241     A     
 ALLOC              IX0    X2-X0                                                           ALLOC       1242     A     
 ALLOC              ZR     X0,NCS30    IF CONFUSION WITH STATEMENT NUMBER TAG              ALLOC       1243     A     
 ALLOC              MX0    L.SHC                                                           ALLOC       1244     A     
 ALLOC              BX6    X0*X6       HIGH L.SHC BITS ONLY                                ALLOC       1245     A     
 ALLOC              EQ     NCS15       PROCESS AS SHORT CONSTANT                           ALLOC       1246     A     
 ALLOC                                                                                     ALLOC       1247     A     
 ALLOC     NCS.MOD  DATA   0           MODE BITS IF ADDWD CALLED.                          ALLOC       1248     A     
 ALLOC     PRS      SPACE  4,8                                                             ALLOC       1249     A     
 ALLOC    **        PRS -  PRESET AREA OF STORAGE.                                         ALLOC       1250     A     
 ALLOC    *         DISASTER IF FWA IS GREATER THAN LWA.                                   ALLOC       1251     A     
 ALLOC    *         STOLEN FROM *COMPASS VER 2.0*                                          ALLOC       1252     A     
 ALLOC    *         ENTRY  (X1) = DATUM                                                    ALLOC       1253     A     
 ALLOC    *                (X2) = FWA.                                                     ALLOC       1254     A     
 ALLOC    *                (X3) = LWA+1.                                                   ALLOC       1255     A     
 ALLOC    *         USES   A6,A7  X0,X2,X3                                                 ALLOC       1256     A     
 ALLOC                                                                                     ALLOC       1257     A     
 ALLOC                                                                                     ALLOC       1258     A     
 ALLOC     PRS      SUBR   0                                                               ALLOC       1259     A     
 ALLOC              BX6    X1                                                              ALLOC       1260     A     
 ALLOC              IX0    X3-X2                                                           ALLOC       1261     A     
 ALLOC              SX3    B1                                                              ALLOC       1262     A     
 ALLOC              SA6    X2                                                              ALLOC       1263     A     
 ALLOC              BX2    X0*X3                                                           ALLOC       1264     A     
 ALLOC              AX0    1                                                               ALLOC       1265     A     
 ALLOC              ZR     X0,PRSX     IF ONLY ONE WORD TO DO                              ALLOC       1266     A     
 ALLOC              BX7    X1                                                              ALLOC       1267     A     
 ALLOC              ZR     X2,PRS2     IF EVEN NR OF WORD TO PRESET                        ALLOC       1268     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 833    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              SA6    A6+B1                                                           ALLOC       1269     A     
 ALLOC     PRS2     IX0    X0-X3                                                           ALLOC       1270     A     
 ALLOC              SA6    A6+B1                                                           ALLOC       1271     A     
 ALLOC              ZR     X0,PRSX     IF ONLY TWO WORDS                                   ALLOC       1272     A     
 ALLOC     PRS4     IX0    X0-X3                                                           ALLOC       1273     A     
 ALLOC              SA7    A6+B1                                                           ALLOC       1274     A     
 ALLOC              SA6    A7+1                                                            ALLOC       1275     A     
 ALLOC              NZ     X0,PRS4     IF NOT FINISHED                                     ALLOC       1276     A     
 ALLOC              EQ     PRSX        EXIT..                                              ALLOC       1277     A     
 ALLOC     SAB      SPACE  4,8                                                             ALLOC       1278          I
          -FEAT126C 
 ALLOC    **        SAB -  SCAN SINGLE TABLE COMPARING ALL BITS.                           ALLOC       1279          I
          -FEAT126C 
 ALLOC    *         ENTRY  (A1) TABLE TO BE SEARCHED                                       ALLOC       1280          I
          -FEAT126C 
 ALLOC    *                (X6) ENTRY LOOKING FOR IN GIVEN TABLE                           ALLOC       1281          I
          -FEAT126C 
 ALLOC    *         EXIT   IF ENTRY *NIT*    - (B7) IS NEGATIVE.                           ALLOC       1282          I
          -FEAT126C 
 ALLOC    *                                    (A1),(X1) PRESERVED.                        ALLOC       1283          I
          -FEAT126C 
 ALLOC    *                                    (X6) UNTOUCHED.                             ALLOC       1284          I
          -FEAT126C 
 ALLOC    *                IF ENTRY *IT*     - (B7) ORDINAL OF MATCHING ENTRY.             ALLOC       1285          I
          -FEAT126C 
 ALLOC    *                A2   _  MATCHING TABLE ENTRY                                    ALLOC       1286          I
          -FEAT126C 
 ALLOC    *                (X2)    CONTENTS _ (A2)                                         ALLOC       1287          I
          -FEAT126C 
 ALLOC    *         USES   A1,A2,A6  X0  B1,B2,B7                                          ALLOC       1288          I
          -FEAT126C 
 ALLOC                                                                                     ALLOC       1289          I
          -FEAT126C 
 ALLOC                                                                                     ALLOC       1290          I
          -FEAT126C 
 ALLOC     SAB      SUBR               ENTRY/EXIT...                                       ALLOC       1291          I
          -FEAT126C 
 ALLOC              SA2    A1+N.TABLE                                                      ALLOC       1292          I
          -FEAT126C 
 ALLOC              =B2    -1                                                              ALLOC       1293          I
          -FEAT126C 
 ALLOC              SA6    X1+B2       STORE CRITERION BELOW TABLE                         ALLOC       1294          I
          -FEAT126C 
 ALLOC              IX0    X1+X2                                                           ALLOC       1295          I
          -FEAT126C 
 ALLOC              NO                                                                     ALLOC       1296          I
          -FEAT126C 
 ALLOC              SA2    X0+B2       FETCH LAST ENTRY                                    ALLOC       1297          I
          -FEAT126C 
 ALLOC              SB2    A6                                                              ALLOC       1298          I
          -FEAT126C 
 ALLOC     SAB1     IX0    X6-X2                                                           ALLOC       1299          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 834    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
          -FEAT126C 
 ALLOC              =A2    A2-1        FETCH NEXT TABLE ENTRY                              ALLOC       1300          I
          -FEAT126C 
 ALLOC              NZ     X0,SAB1     IF NO HIT, LOOP                                     ALLOC       1301          I
          -FEAT126C 
 ALLOC              SB7    A2-B2       RELATIVE POSITION OF ENTRY                          ALLOC       1302          I
          -FEAT126C 
 ALLOC              MI     B7,EXIT.    IF DUMMY HIT                                        ALLOC       1303          I
          -FEAT126C 
 ALLOC              SA2    A2+1        LOAD MATCHING ENTRY                                 ALLOC       1304          I
          -FEAT126C 
 ALLOC              EQ     EXIT.                                                           ALLOC       1305          I
          -FEAT126C 
 ALLOC     SCD      SPACE  4,15                                                            ALLOC       1306     A     
 ALLOC    **        SCTR - SCAN TRIPLE TABLE.                                              ALLOC       1307     A     
 ALLOC    *                                                                                ALLOC       1308     A     
 ALLOC    *                SCANS A TRIPLE-WORD TABLE, COMPARING ONLY ON THE FIRST          ALLOC       1309     A     
 ALLOC    *                WORD OF EACH ENTRY.                                             ALLOC       1310     A     
 ALLOC    *                                                                                ALLOC       1311     A     
 ALLOC    *         ENTRY  (A1) _ TABLE TO BE SEARCHED.                                    ALLOC       1312     A     
 ALLOC    *                (X1) = ((A1))                                                   ALLOC       1313     A     
 ALLOC    *                (X6) = 60-BIT SEARCH ITEM                                       ALLOC       1314     A     
 ALLOC    *                                                                                ALLOC       1315     A     
 ALLOC    *         IF SUCCESS --                                                          ALLOC       1316     A     
 ALLOC    *                (B7) = ORDINAL OF HIT.                                          ALLOC       1317     A     
 ALLOC    *                (A1) _ FIRST WORD OF MATCHING ENTRY.                            ALLOC       1318     A     
 ALLOC    *                (X1) = (FIRST WORD OF MATCHING ENTRY).                          ALLOC       1319     A     
 ALLOC    *                (A2) _ SECOND WORD OF MATCHING ENTRY.                           ALLOC       1320     A     
 ALLOC    *                (X2) = (SECOND WORD OF MATCHING ENTRY).                         ALLOC       1321     A     
 ALLOC    *                (X6) = (SECOND WORD OF MATCHING ENTRY).                         ALLOC       1322     A     
 ALLOC    *                                                                                ALLOC       1323     A     
 ALLOC    *         IF *NIT* --                                                            ALLOC       1324     A     
 ALLOC    *                (B7) = -3.                                                      ALLOC       1325     A     
 ALLOC    *                (A1) PRESERVED.                                                 ALLOC       1326     A     
 ALLOC    *                (X1) PRESERVED.                                                 ALLOC       1327     A     
 ALLOC    *                (X6) PRESERVED.                                                 ALLOC       1328     A     
 ALLOC    *                                                                                ALLOC       1329     A     
 ALLOC    *         USES   A2,A3,A6  X0  B2,B7                                             ALLOC       1330     A     
 ALLOC                                                                                     ALLOC       1331     A     
 ALLOC                                                                                     ALLOC       1332     A     
 ALLOC                                                                                     ALLOC       1333     A     
 ALLOC     SCTR8    LX6    X3          RESTORE CLOBBERED   ((FWA)-2)                       ALLOC       1334     A     
 ALLOC              SA6    A3                                                              ALLOC       1335     A     
 ALLOC              NO                                                                     ALLOC       1336     A     
 ALLOC              BX6    X2          RESTORE (X6)                                        ALLOC       1337     A     
 ALLOC                                                                                     ALLOC       1338     A     
 ALLOC     SCTR     SUBR   0                                                               ALLOC       1339     A     
 ALLOC              SA2    A1+N.TABLE                                                      ALLOC       1340     A     
 ALLOC              =B2    -3                                                              ALLOC       1341     A     
 ALLOC              SA3    X1+B2       ((FWA)-3)                                           ALLOC       1342     A     
 ALLOC              SA6    A3          STORE CRITERION IN SAVED CELL                       ALLOC       1343     A     
 ALLOC              SB7    X1+B2                                                           ALLOC       1344     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 835    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              SA2    X2+B7       FETCH LAST ENTRY                                    ALLOC       1345     A     
 ALLOC                                                                                     ALLOC       1346     A     
 ALLOC     SCTR2    BX0    X6-X2                                                           ALLOC       1347     A     
 ALLOC              SA2    A2+B2                                                           ALLOC       1348     A     
 ALLOC              NZ     X0,SCTR2    IF NO HIT                                           ALLOC       1349     A     
 ALLOC                                                                                     ALLOC       1350     A     
 ALLOC              SB7    A2-B7       RELATIVE POSITION OF HIT                            ALLOC       1351     A     
 ALLOC              LX2    X6                                                              ALLOC       1352     A     
 ALLOC              MI     B7,SCTR8    IF DUMMY HIT                                        ALLOC       1353     A     
 ALLOC              SA1    X1+B7                                                           ALLOC       1354     A     
 ALLOC              =A2    A1+1                                                            ALLOC       1355     A     
 ALLOC              EQ     SCTR8       EXIT..                                              ALLOC       1356     A     
 ALLOC              SPACE  4,8                                                             ALLOC       1357     A     
 ALLOC    **        SCD -  SCAN DOUBLE TABLE.                                              ALLOC       1358     A     
 ALLOC    *                                                                                ALLOC       1359     A     
 ALLOC    *                SCANS A DOUBLE-WORD TABLE, COMPARING ONLY ON THE FIRST          ALLOC       1360     A     
 ALLOC    *         WORD OF EACH ENTRY.                                                    ALLOC       1361     A     
 ALLOC    *                                                                                ALLOC       1362     A     
 ALLOC    *         ENTRY  (A1) _ TABLE TO BE SEARCHED.                                    ALLOC       1363     A     
 ALLOC    *                (X1) = ((A1))                                                   ALLOC       1364     A     
 ALLOC    *                (X6) = VALUE LOOKING FOR (ALL 60 BITS).                         ALLOC       1365     A     
 ALLOC    *                                                                                ALLOC       1366     A     
 ALLOC    *         IF SUCCESS --                                                          ALLOC       1367     A     
 ALLOC    *                (B7) = ORDINAL OF HIT.                                          ALLOC       1368     A     
 ALLOC    *                (A1) _ MATCHING ENTRY, FIRST WORD.                              ALLOC       1369     A     
 ALLOC    *                (X1) = (MATCHING ENTRY, FIRST WORD).                            ALLOC       1370     A     
 ALLOC    *                (A2) _ SECOND WORD OF MATCHING ENTRY.                           ALLOC       1371     A     
 ALLOC    *                (X2) = (SECOND WORD OF MATCHING ENTRY).                         ALLOC       1372     A     
 ALLOC    *                (X6) = (SECOND WORD OF MATCHING ENTRY).                         ALLOC       1373     A     
 ALLOC    *                                                                                ALLOC       1374     A     
 ALLOC    *         IF *NIT* --                                                            ALLOC       1375     A     
 ALLOC    *                (B7) = -2.                                                      ALLOC       1376     A     
 ALLOC    *                (A1) PRESERVED.                                                 ALLOC       1377     A     
 ALLOC    *                (X1) PRESERVED.                                                 ALLOC       1378     A     
 ALLOC    *                (X6) PRESERVED.                                                 ALLOC       1379     A     
 ALLOC    *                                                                                ALLOC       1380     A     
 ALLOC    *         USES   A2,A3,A6  X0  B2,B7                                             ALLOC       1381     A     
 ALLOC    *         NOTE THE SAVE AND RESTORE OF THE WORD BELOW THE SCANNED TABLE,         ALLOC       1382     A     
 ALLOC    *                WHERE THE SEARCH OBJECT IS STORED.  THIS IS BECAUSE WE          ALLOC       1383     A     
 ALLOC    *                ARE NOT GUARANTEED TWO FREE WORDS BELOW A TABLE.                ALLOC       1384     A     
 ALLOC                                                                                     ALLOC       1385     A     
 ALLOC                                                                                     ALLOC       1386     A     
 ALLOC                                                                                     ALLOC       1387     A     
 ALLOC     SCD8     LX6    X3          RESTORE CLOBBERED  ((FWA)-2)                        ALLOC       1388     A     
 ALLOC              SA6    A3                                                              ALLOC       1389     A     
 ALLOC              NO                                                                     ALLOC       1390     A     
 ALLOC              BX6    X2          RESTORE (X6)                                        ALLOC       1391     A     
 ALLOC                                                                                     ALLOC       1392     A     
 ALLOC     SCD      SUBR   0                                                               ALLOC       1393     A     
 ALLOC              SA2    A1+N.TABLE                                                      ALLOC       1394     A     
 ALLOC              =B2    -2                                                              ALLOC       1395     A     
 ALLOC              SA3    X1+B2       ((FWA)-2)                                           ALLOC       1396     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 836    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              SA6    A3          STORE CRITERION IN FIRST WORD                       ALLOC       1397     A     
 ALLOC              SB7    X1+B2                                                           ALLOC       1398     A     
 ALLOC              SA2    X2+B7       FETCH LAST ENTRY OF TABLE                           ALLOC       1399     A     
 ALLOC                                                                                     ALLOC       1400     A     
 ALLOC     SCD2     BX0    X6-X2                                                           ALLOC       1401     A     
 ALLOC              SA2    A2+B2                                                           ALLOC       1402     A     
 ALLOC              NZ     X0,SCD2     IF NO HIT                                           ALLOC       1403     A     
 ALLOC                                                                                     ALLOC       1404     A     
 ALLOC              SB7    A2-B7       RELATIVE POSITION OF HIT                            ALLOC       1405     A     
 ALLOC              LX2    X6                                                              ALLOC       1406     A     
 ALLOC              MI     B7,SCD8     IF DUMMY HIT                                        ALLOC       1407     A     
 ALLOC              SA1    X1+B7                                                           ALLOC       1408     A     
 ALLOC              =A2    A1+1                                                            ALLOC       1409     A     
 ALLOC              EQ     SCD8        EXIT..                                              ALLOC       1410     A     
 ALLOC     SCS      SPACE  4,15                                                            ALLOC       1411     A     
 ALLOC    **        SCS -  SCAN TABLE WITH SUPPLIED MASK.                                  ALLOC       1412     A     
 ALLOC    *                                                                                ALLOC       1413     A     
 ALLOC    *         ENTRY  (A1) TABLE TO BE SEARCHED                                       ALLOC       1414     A     
 ALLOC    *                (X6) ENTRY LOOKING FOR IN GIVEN TABLE                           ALLOC       1415     A     
 ALLOC    *                (SCSA) = MASK TO BE USED.                                       ALLOC       1416     A     
 ALLOC    *         EXIT   IF ENTRY *NIT*    - (B7) IS NEGATIVE.                           ALLOC       1417     A     
 ALLOC    *                                    (A1),(X1) PRESERVED.                        ALLOC       1418     A     
 ALLOC    *                                    (X6) UNTOUCHED.                             ALLOC       1419     A     
 ALLOC    *                IF ENTRY *IT*     - (B7) ORDINAL OF MATCHING ENTRY.             ALLOC       1420     A     
 ALLOC    *                (X2) ALL 60 BITS OF MATCHING ENTRY                              ALLOC       1421     A     
 ALLOC    *                A2 _ TO MATCHING ENTRY                                          ALLOC       1422     A     
 ALLOC    *                (X6)  = (X2) .AND. MASK                                         ALLOC       1423     A     
 ALLOC    *         USES   A2,A3,A6  X0,X1  B2,B7                                          ALLOC       1424     A     
 ALLOC                                                                                     ALLOC       1425     A     
 ALLOC                                                                                     ALLOC       1426     A     
 ALLOC     SCS      SUBR   0                                                               ALLOC       1427     A     
 ALLOC              SA2    A1+N.TABLE                                                      ALLOC       1428     A     
 ALLOC              SA3    SCSA                                                            ALLOC       1429     A     
 ALLOC              SA6    X1-1        STORE CRITERION BELOW TABLE                         ALLOC       1430     A     
 ALLOC              SB7    A6                                                              ALLOC       1431     A     
 ALLOC              SA2    X2+B7       FETCH LAST ENTRY                                    ALLOC       1432     A     
 ALLOC                                                                                     ALLOC       1433     A     
 ALLOC    *         LOOP TILL MATCH FOUND                                                  ALLOC       1434     A     
 ALLOC                                                                                     ALLOC       1435     A     
 ALLOC     SCS1     BX0    X2-X6                                                           ALLOC       1436     A     
 ALLOC              SA2    A2-B1       FETCH NEXT TABLE ENTRY                              ALLOC       1437     A     
 ALLOC              NO                                                                     ALLOC       1438     A     
 ALLOC              BX0    X3*X0       MASK                                                ALLOC       1439     A     
 ALLOC              NZ     X0,SCS1     IF NOT HIT - LOOP                                   ALLOC       1440     A     
 ALLOC                                                                                     ALLOC       1441     A     
 ALLOC              SB7    A2-B7       RELATIVE POSITION OF ENTRY                          ALLOC       1442     A     
 ALLOC              SA2    A2+B1       TABLE ENTRY AT HIT                                  ALLOC       1443     A     
 ALLOC              MI     B7,SCSX     IF DUMMY HIT - EXIT..                               ALLOC       1444     A     
 ALLOC              BX6    X3*X2       MASK OFF                                            ALLOC       1445     A     
 ALLOC              EQ     SCSX        EXIT..                                              ALLOC       1446     A     
 ALLOC                                                                                     ALLOC       1447     A     
 ALLOC     SCSA     DATA   0           MASK TO BE USED.                                    ALLOC       1448     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 837    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC     SCT      SPACE  4,8                                                             ALLOC       1449     A     
 ALLOC    **        SCT -  SCAN TABLE COMPARING ALL BITS.                                  ALLOC       1450     A     
 ALLOC    *                (MAINLY FOR USE WITH PAIRED TABLES)                             ALLOC       1451     A     
 ALLOC    *         ENTRY  (A1) TABLE TO BE SEARCHED                                       ALLOC       1452     A     
 ALLOC    *                (X6) ENTRY LOOKING FOR IN GIVEN TABLE                           ALLOC       1453     A     
 ALLOC    *         EXIT   IF ENTRY *NIT*    - (B7) IS NEGATIVE.                           ALLOC       1454     A     
 ALLOC    *                                    (A1),(X1) PRESERVED.                        ALLOC       1455     A     
 ALLOC    *                                    (X6) UNTOUCHED.                             ALLOC       1456     A     
 ALLOC    *                IF ENTRY *IT*     - (B7) ORDINAL OF MATCHING ENTRY.             ALLOC       1457     A     
 ALLOC    *                (X2=X6) PAIRED  TABLE ENTRY                                     ALLOC       1458     A     
 ALLOC    *                A2   _  PAIRED  TABLE ENTRY                                     ALLOC       1459     A     
 ALLOC    *                A1   _  MASTER  TABLE ENTRY                                     ALLOC       1460     A     
 ALLOC    *                (X1)    MASTER  TABLE ENTRY                                     ALLOC       1461     A     
 ALLOC    *         USES   A1,A2,A6  X0  B1,B2                                             ALLOC       1462     A     
 ALLOC                                                                                     ALLOC       1463     A     
 ALLOC                                                                                     ALLOC       1464     A     
 ALLOC     SCT      SUBR   0                                                               ALLOC       1465     A     
 ALLOC              SA2    A1+N.TABLE                                                      ALLOC       1466     A     
 ALLOC              =B2    -1                                                              ALLOC       1467     A     
 ALLOC              SA6    X1+B2       STORE CRITERION BELOW TABLE                         ALLOC       1468     A     
 ALLOC              IX0    X1+X2                                                           ALLOC       1469     A     
 ALLOC              NO                                                                     ALLOC       1470     A     
 ALLOC              SA2    X0+B2       FETCH LAST ENTRY                                    ALLOC       1471     A     
 ALLOC              SB2    A6                                                              ALLOC       1472     A     
 ALLOC     SCT1     BX0    X6-X2                                                           ALLOC       1473     A     
 ALLOC              SA2    A2-B1       FETCH NEXT TABLE ENTRY                              ALLOC       1474     A     
 ALLOC              NZ     X0,SCT1     IF NO HIT, LOOP                                     ALLOC       1475     A     
 ALLOC              MI     X0,SCT1     IF *0* - *-0* *HIT*                                 ALLOC       1476     A     
 ALLOC              SB7    A2-B2       RELATIVE POSITION OF ENTRY                          ALLOC       1477     A     
 ALLOC              SA2    A1+B1       TAG TABLE PARAMETERS                                ALLOC       1478     A     
 ALLOC              MI     B7,SCTX     IF DUMMY HIT                                        ALLOC       1479     A     
 ALLOC              SB2    B2+B1       FIRST ADDRESS IN NAME TABLE                         ALLOC       1480     A     
 ALLOC              SA2    X2+B7                                                           ALLOC       1481     A     
 ALLOC              BX6    X2          TAG TABLE ENTRY                                     ALLOC       1482     A     
 ALLOC              SA1    B7+B2       NAME TABLE ENTRY                                    ALLOC       1483     A     
 ALLOC              EQ     SCTX        EXIT..                                              ALLOC       1484     A     
 ALLOC     SSN      SPACE  4,12                                                            ALLOC       1485     A     
 ALLOC    **        SSN -  SCAN *STATEMENT NUMBER* TABLE. (HASHED TABLE)                   ALLOC       1486     A     
 ALLOC    *                                                                                ALLOC       1487     A     
 ALLOC    *         ENTRY  A1 _ TABLE TO BE SEARCHED.                                      ALLOC       1488     A     
 ALLOC    *                (X6) = SYMBOL  (0LFORMAT)                                       ALLOC       1489     A     
 ALLOC    *         EXIT   (B7) < 0                                                        ALLOC       1490     A     
 ALLOC    *                (X6) = PRESERVED.                                               ALLOC       1491     A     
 ALLOC    *                (A1)   PRESERVED.                                               ALLOC       1492     A     
 ALLOC    *                (NEXT) _ ORDINAL OF NEXT ENTRY.                                 ALLOC       1493     A     
 ALLOC    *                      IF < 0 - BASE CELL NOT OCCUPIED.                          ALLOC       1494     A     
 ALLOC    *                      IF > 0 - BASE CELL OCCUPIED, MORE SPACE NEEDED.           ALLOC       1495     A     
 ALLOC    *                (B7) > 0                                                        ALLOC       1496     A     
 ALLOC    *                (X1) = MODE BITS.                                               ALLOC       1497     A     
 ALLOC    *                (X2) = (X6) = TAG FOR SYMBOL.                                   ALLOC       1498     A     
 ALLOC    *                (A1) = PRESERVED.                                               ALLOC       1499     A     
 ALLOC    *                (A2) _ SYMBOL ENTRY.                                            ALLOC       1500     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 838    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC    *         NOTE                                                                   ALLOC       1501     A     
 ALLOC    *         CHAIN IS ON *SYMBOL* NOT TAG.                                          ALLOC       1502     A     
 ALLOC    *                                                                                ALLOC       1503     A     
 ALLOC    *         USES   A1,A2,A3  X0  B2,B7                                             ALLOC       1504     A     
 ALLOC                                                                                     ALLOC       1505     A     
 ALLOC                                                                                     ALLOC       1506     A     
 ALLOC     SSN10    SA2    A2+B1       TAG ENTRY.                                          ALLOC       1507     A     
 ALLOC              MX0    -L.MODE                                                         ALLOC       1508     A     
 ALLOC              BX6    X2                                                              ALLOC       1509     A     
 ALLOC              BX1    -X0*X2      MODE BITS.                                          ALLOC       1510     A     
 ALLOC                                                                                     ALLOC       1511     A     
 ALLOC     SSN      SUBR   0                                                               ALLOC       1512     A     
 ALLOC              BX3    X6                                                              ALLOC       1513     A     
 ALLOC              SA2    STNHASH                                                         ALLOC       1514     A     
 ALLOC              AX3    12          ZERO EXPONENT                                       ALLOC       1515     A     
 ALLOC              PX0    X3                                                              ALLOC       1516     A     
 ALLOC              DX3    X2*X0                                                           ALLOC       1517     A     
 ALLOC              SX0    LSTN-2                                                          ALLOC       1518     A     
 ALLOC              AX3    47-PSTN                                                         ALLOC       1519     A     
 ALLOC              BX3    X0*X3       BASE INDEX                                          ALLOC       1520     A     
 ALLOC              =B7    -1                                                              ALLOC       1521     A     
 ALLOC              SB2    X3                                                              ALLOC       1522     A     
 ALLOC              SA2    X1+B2       LOAD PROPOSED POSITION.                             ALLOC       1523     A     
 ALLOC              BX0    X6                                                              ALLOC       1524     A     
 ALLOC              NZ     X2,SSN5     IF BASE CELL OCCUPIED.                              ALLOC       1525     A     
 ALLOC              SX3    B2                                                              ALLOC       1526     A     
 ALLOC              BX6    -X3                                                             ALLOC       1527     A     
 ALLOC              SA6    NEXT        INDICATE BASE INDEX NOT OCCUPIED.                   ALLOC       1528     A     
 ALLOC              LX6    X0          RESTORE *SYMBOL*                                    ALLOC       1529     A     
 ALLOC              EQ     SSNX        EXIT..                                              ALLOC       1530     A     
 ALLOC                                                                                     ALLOC       1531     A     
 ALLOC     SSN5     IX0    X6-X2                                                           ALLOC       1532     A     
 ALLOC              SB7    B2                                                              ALLOC       1533     A     
 ALLOC              AX0    P.SYM                                                           ALLOC       1534     A     
 ALLOC              SB2    X2                                                              ALLOC       1535     A     
 ALLOC              ZR     X0,SSN10    IF MATCH.                                           ALLOC       1536     A     
 ALLOC              SA2    X1+B2                                                           ALLOC       1537     A     
 ALLOC              NZ     B2,SSN5     LOOP UNTIL EMPTY CHAIN.                             ALLOC       1538     A     
 ALLOC              BX0    X6                                                              ALLOC       1539     A     
 ALLOC              SX6    B7                                                              ALLOC       1540     A     
 ALLOC              =B7    -1          INDICATE NOT IN TABLE.                              ALLOC       1541     A     
 ALLOC              SA6    NEXT        INDICATE MOVE REQUIRED.                             ALLOC       1542     A     
 ALLOC              LX6    X0                                                              ALLOC       1543     A     
 ALLOC              EQ     SSNX        EXIT..                                              ALLOC       1544     A     
 ALLOC                                                                                     ALLOC       1545     A     
 ALLOC     STNHASH  DATA   2525001001001001.BP0    TS.STN  HASH.                           ALLOC       1546     A     
 ALLOC     SSY      SPACE  4,12                                                            ALLOC       1547     A     
 ALLOC    **        SSY -  SCAN *SYMBOL* TABLE. (HASHED TABLE)                             ALLOC       1548     A     
 ALLOC    *                                                                                ALLOC       1549     A     
 ALLOC    *         ENTRY  A1 _ TABLE TO BE SEARCHED.                                      ALLOC       1550     A     
 ALLOC    *                (X6) = SYMBOL  (0LFORMAT)                                       ALLOC       1551     A     
 ALLOC    *         EXIT   (B7) < 0                                                        ALLOC       1552     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 839    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC    *                (X6) = PRESERVED.                                               ALLOC       1553     A     
 ALLOC    *                (A1)   PRESERVED.                                               ALLOC       1554     A     
 ALLOC    *                (NEXT) _ ORDINAL OF NEXT ENTRY.                                 ALLOC       1555     A     
 ALLOC    *                      IF < 0 - BASE CELL NOT OCCUPIED.                          ALLOC       1556     A     
 ALLOC    *                      IF > 0 - BASE CELL OCCUPIED, MORE SPACE NEEDED.           ALLOC       1557     A     
 ALLOC    *                (B7) > 0                                                        ALLOC       1558     A     
 ALLOC    *                (X1) = MODE BITS.                                               ALLOC       1559     A     
 ALLOC    *                (X2) = (X6) = TAG FOR SYMBOL.                                   ALLOC       1560     A     
 ALLOC    *                (A1) = PRESERVED.                                               ALLOC       1561     A     
 ALLOC    *                (A2) _ SYMBOL ENTRY.                                            ALLOC       1562     A     
 ALLOC    *         NOTE                                                                   ALLOC       1563     A     
 ALLOC    *         CHAIN IS ON *SYMBOL* NOT TAG.                                          ALLOC       1564     A     
 ALLOC    *                                                                                ALLOC       1565     A     
 ALLOC    *         USES   A1,A2,A3  X0  B2,B7                                             ALLOC       1566     A     
 ALLOC                                                                                     ALLOC       1567     A     
 ALLOC                                                                                     ALLOC       1568     A     
 ALLOC     SSY10    SA2    A2+B1       TAG ENTRY.                                          ALLOC       1569     A     
 ALLOC              MX0    -L.MODE                                                         ALLOC       1570     A     
 ALLOC              BX6    X2                                                              ALLOC       1571     A     
 ALLOC              BX1    -X0*X2      MODE BITS.                                          ALLOC       1572     A     
 ALLOC                                                                                     ALLOC       1573     A     
 ALLOC     SSY      SUBR   0                                                               ALLOC       1574     A     
 ALLOC              BX3    X6                                                              ALLOC       1575          I
          -FCC1259
 ALLOC              MX0    CHAR                                                            FCC1259        5     A     
 ALLOC              LX0    -LG.VAR*CHAR+CHAR                                               FCC1259        6     A     
 ALLOC              BX3    X0*X6                                                           FCC1259        7     A     
 ALLOC              ZR     X3,SSY1     IF NOT SEVEN CHARACTER SYMBOL                       FCC1259        8     A     
 ALLOC              AX3    18                                                              FCC1259        9     A     
 ALLOC              SB2    X3-1R+                                                          FCC1259       10     A     
 ALLOC              PL     B2,SSY1     IF APPENDED SPECIAL CHARACTER                       FCC1259       11     A     
 ALLOC              SA6    =XFILL.                                                         FCC1259       12     A     
 ALLOC              SA2    A1          SAVE *A*                                            FCC1259       13     A     
 ALLOC              ANSI   =XE.ANS2                                                        FCC1259       14     A     
 ALLOC              SA1    A2          RESTORE *A1*                                        FCC1259       15     A     
 ALLOC     SSY1     BX3    X6                                                              FCC1259       16     A     
 ALLOC              SA2    SYMHASH                                                         ALLOC       1576     A     
 ALLOC              AX3    12          ZERO EXPONENT                                       ALLOC       1577     A     
 ALLOC              PX0    X3                                                              ALLOC       1578     A     
 ALLOC              DX3    X2*X0                                                           ALLOC       1579     A     
 ALLOC              SX0    LSYM-2                                                          ALLOC       1580     A     
 ALLOC              AX3    47-PSYM                                                         ALLOC       1581     A     
 ALLOC              BX3    X0*X3       BASE INDEX                                          ALLOC       1582     A     
 ALLOC              =B7    -1                                                              ALLOC       1583     A     
 ALLOC              SB2    X3                                                              ALLOC       1584     A     
 ALLOC              SA2    X1+B2       LOAD PROPOSED POSITION.                             ALLOC       1585     A     
 ALLOC              BX0    X6                                                              ALLOC       1586     A     
 ALLOC              NZ     X2,SSY5     IF BASE CELL OCCUPIED.                              ALLOC       1587     A     
 ALLOC              SX3    B2                                                              ALLOC       1588     A     
 ALLOC              BX6    -X3                                                             ALLOC       1589     A     
 ALLOC              SA6    NEXT        INDICATE BASE INDEX NOT OCCUPIED.                   ALLOC       1590     A     
 ALLOC              LX6    X0          RESTORE *SYMBOL*                                    ALLOC       1591     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 840    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC              EQ     SSYX        EXIT..                                              ALLOC       1592     A     
 ALLOC                                                                                     ALLOC       1593     A     
 ALLOC     SSY5     IX0    X6-X2                                                           ALLOC       1594     A     
 ALLOC              SB7    B2                                                              ALLOC       1595     A     
 ALLOC              AX0    P.SYM                                                           ALLOC       1596     A     
 ALLOC              SB2    X2                                                              ALLOC       1597     A     
 ALLOC              ZR     X0,SSY10    IF MATCH.                                           ALLOC       1598     A     
 ALLOC              SA2    X1+B2                                                           ALLOC       1599     A     
 ALLOC              NZ     B2,SSY5     LOOP UNTIL EMPTY CHAIN.                             ALLOC       1600     A     
 ALLOC              BX0    X6                                                              ALLOC       1601     A     
 ALLOC              SX6    B7                                                              ALLOC       1602     A     
 ALLOC              =B7    -1          INDICATE NOT IN TABLE.                              ALLOC       1603     A     
 ALLOC              SA6    NEXT        INDICATE MOVE REQUIRED.                             ALLOC       1604     A     
 ALLOC              LX6    X0                                                              ALLOC       1605     A     
 ALLOC              EQ     SSYX        EXIT..                                              ALLOC       1606     A     
 ALLOC                                                                                     ALLOC       1607     A     
 ALLOC     NEXT     DATA   0           LOCATION OF NEXT ENTRY IN TABLE.                    ALLOC       1608     A     
 ALLOC                                                                                     ALLOC       1609     A     
 ALLOC     SYMHASH  DATA   2525001001001001.BP0    TS.SYM  HASH.                           ALLOC       1610     A     
 ALLOC     SRT      SPACE  4,12                                                            ALLOC       1611     A     
 ALLOC    **        SRT -  SORT SINGLE ENTRY TABLE.                                        ALLOC       1612     A     
 ALLOC    *         USES *SHELL* ALGORITHM (ACM JOURNAL 1960)                              ALLOC       1613     A     
 ALLOC    *         ENTRY- A1 POINTS TO TABLE TO BE SORTED.                                ALLOC       1614     A     
 ALLOC    *         EXIT-  TABLE IS SORTED                                                 ALLOC       1615     A     
 ALLOC    *         USES   A1,A2  X0  B2,B3,B4,B5,B6,B7                                    ALLOC       1616     A     
 ALLOC                                                                                     ALLOC       1617     A     
 ALLOC                                                                                     ALLOC       1618     A     
 ALLOC     SRT      SUBR   0                                                               ALLOC       1619     A     
 ALLOC              SA2    A1+N.TABLE                                                      ALLOC       1620     A     
 ALLOC              SX3    X2-2                                                            ALLOC       1621     A     
 ALLOC              MI     X3,SRTX     IF LESS THAN 2 ENTRIES - EXIT..                     ALLOC       1622     A     
 ALLOC              SB7    X2          LENGTH OF TABLE TO  (I)                             ALLOC       1623     A     
 ALLOC              SX7    X1-1        STARTING ADDRESS TO (Z)                             ALLOC       1624     A     
 ALLOC              SB6    B7          LENGTH OF TABLE TO  (N)                             ALLOC       1625     A     
 ALLOC     SRT5     SX0    B6                                                              ALLOC       1626     A     
 ALLOC              AX0    1                                                               ALLOC       1627     A     
 ALLOC              SB6    X0          N= N/2                                              ALLOC       1628     A     
 ALLOC              SB3    B1                                                              ALLOC       1629     A     
 ALLOC              ZR     B6,SRTX     IF N=0 DONE - EXIT..                                ALLOC       1630     A     
 ALLOC              SB4    B7-B6       L=I-N                                               ALLOC       1631     A     
 ALLOC              SB2    B3          J=K                                                 ALLOC       1632     A     
 ALLOC     SRT10    SB5    B2+B6       M=J+N                                               ALLOC       1633     A     
 ALLOC              SA1    X7+B2       A(J)                                                ALLOC       1634     A     
 ALLOC              SA2    X7+B5       A(L)                                                ALLOC       1635     A     
 ALLOC              IX6    X2-X1       A(L)-A(J)                                           ALLOC       1636     A     
 ALLOC              PL     X6,SRT15    IF A(L) .GE. A(J)                                   ALLOC       1637     A     
 ALLOC              BX6    X1                                                              ALLOC       1638     A     
 ALLOC              SA6    A2                                                              ALLOC       1639     A     
 ALLOC              LX6    X2                                                              ALLOC       1640     A     
 ALLOC              SA6    A1                                                              ALLOC       1641     A     
 ALLOC              SB2    B2-B6       J=J-N                                               ALLOC       1642     A     
 ALLOC              GT     B2,SRT10    IF J .GT. 0                                         ALLOC       1643     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 841    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC     SRT15    SB3    B3+B1       K=K+1                                               ALLOC       1644     A     
 ALLOC              SB2    B3          J=K                                                 ALLOC       1645     A     
 ALLOC              LE     B3,B4,SRT10 IF K .LE. L                                         ALLOC       1646     A     
 ALLOC              EQ     SRT5        LOOP THROU TABLE.                                   ALLOC       1647     A     
 ALLOC     DSRT     SPACE  4,12                                                            ALLOC       1648     A     
 ALLOC    **        DSRT-  SORT DOUBLE ENTRY TABLE.                                        ALLOC       1649     A     
 ALLOC    *         USES *SHELL* ALGORITHM (ACM JOURNAL 1960)                              ALLOC       1650     A     
 ALLOC    *         ENTRY- A1 POINTS TO TABLE TO BE SORTED.                                ALLOC       1651     A     
 ALLOC    *         EXIT-  TABLE IS SORTED                                                 ALLOC       1652     A     
 ALLOC    *         USES   A0,A1,A2,A3,A4,A7  X0  B2,B3,B4,B5,B6,B7                        ALLOC       1653     A     
 ALLOC                                                                                     ALLOC       1654     A     
 ALLOC                                                                                     ALLOC       1655     A     
 ALLOC     DSRT     SUBR   0                                                               ALLOC       1656     A     
 ALLOC              SA2    A1+N.TABLE                                                      ALLOC       1657     A     
 ALLOC              SX3    X2-2                                                            ALLOC       1658     A     
 ALLOC              MI     X3,DSRTX    IF LESS THAN 2 ENTRIES - EXIT..                     ALLOC       1659     A     
 ALLOC              SB7    X2          LENGTH OF TABLE TO  (I)                             ALLOC       1660     A     
 ALLOC              SA0    X1-2        STARTING ADDRESS TO (Z)                             ALLOC       1661     A     
 ALLOC              SB6    B7          LENGTH OF TABLE TO  (N)                             ALLOC       1662     A     
 ALLOC     DSRT5    SX0    B6                                                              ALLOC       1663     A     
 ALLOC              AX0    2           /4                                                  ALLOC       1664     A     
 ALLOC              =B3    2                                                               ALLOC       1665     A     
 ALLOC              LX0    1           /2                                                  ALLOC       1666     A     
 ALLOC              SB6    X0          N= N/2                                              ALLOC       1667     A     
 ALLOC              ZR     B6,DSRTX    IF N=0 EXIT..                                       ALLOC       1668     A     
 ALLOC              SB4    B7-B6       L=I-N                                               ALLOC       1669     A     
 ALLOC              SB2    B3          J=K                                                 ALLOC       1670     A     
 ALLOC     DSRT10   SB5    B2+B6       M=J+N                                               ALLOC       1671     A     
 ALLOC              SA1    A0+B2       A(J)  (SYMBOL ENTRIES)                              ALLOC       1672     A     
 ALLOC              SA2    A0+B5       A(L)                                                ALLOC       1673     A     
 ALLOC              IX6    X2-X1       A(L)-A(J)                                           ALLOC       1674     A     
 ALLOC              PL     X6,DSRT15   IF A(L) .GE. A(J)                                   ALLOC       1675     A     
 ALLOC              SA3    A1+B1             (TAG ENTRIES)                                 ALLOC       1676     A     
 ALLOC              SA4    A2+B1                                                           ALLOC       1677     A     
 ALLOC              BX6    X1                                                              ALLOC       1678     A     
 ALLOC              LX7    X3                                                              ALLOC       1679     A     
 ALLOC              SA6    A2          (SYMBOL)                                            ALLOC       1680     A     
 ALLOC              SA7    A4          (TAG   )                                            ALLOC       1681     A     
 ALLOC              LX6    X2                                                              ALLOC       1682     A     
 ALLOC              BX7    X4                                                              ALLOC       1683     A     
 ALLOC              SA6    A1          (SYMBOL)                                            ALLOC       1684     A     
 ALLOC              SA7    A3          (TAG   )                                            ALLOC       1685     A     
 ALLOC              SB2    B2-B6       J=J-N                                               ALLOC       1686     A     
 ALLOC              NO                                                                     ALLOC       1687     A     
 ALLOC              GT     B2,DSRT10   IF J .GT. 0                                         ALLOC       1688     A     
 ALLOC     DSRT15   SB3    B3+2        K=K+2                                               ALLOC       1689     A     
 ALLOC              NO                                                                     ALLOC       1690     A     
 ALLOC              SB2    B3          J=K                                                 ALLOC       1691     A     
 ALLOC              LE     B3,B4,DSRT10 IF K .LE. L                                        ALLOC       1692     A     
 ALLOC              EQ     DSRT5       LOOP THRU TABLE.                                    ALLOC       1693     A     
 ALLOC     WLC      SPACE  4,8                                                             ALLOC       1694          I
          -FCC0813
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 842    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
 ALLOC    **        WLC -  WRITE LARGE CORE MEMORY.                                        ALLOC       1695          I
          -FCC0813
 ALLOC    *                                                                                ALLOC       1696          I
          -FCC0813
 ALLOC    *         R. H. GOODELL      71/07/01       COMPASS 3.0                          ALLOC       1697          I
          -FCC0813
 ALLOC    *         ADAPTED            71/08/22       RUN 3.0                              ALLOC       1698          I
          -FCC0813
 ALLOC    *                                                                                ALLOC       1699          I
          -FCC0813
 ALLOC    *                WLC WRITES BLOCKS OF 1000B WORDS AT A TIME FOR MODEL /7         ALLOC       1700          I
          -FCC0813
 ALLOC    *         USE.  MAXIMUM WORD COUNT IS 2**17-1                                    ALLOC       1701          I
          -FCC0813
 ALLOC    *                                                                                ALLOC       1702          I
          -FCC0813
 ALLOC    *         ENTRY  (X0) = FWA LCM DESTINATION                                      ALLOC       1703          I
          -FCC0813
 ALLOC    *                (X1) = FWA SCM SOURCE                                           ALLOC       1704          I
          -FCC0813
 ALLOC    *                (X2) = WORD COUNT                                               ALLOC       1705          I
          -FCC0813
 ALLOC    *                                                                                ALLOC       1706          I
          -FCC0813
 ALLOC    *         EXIT   (X0) = LWA+1 WRITTEN TO LCM                                     ALLOC       1707          I
          -FCC0813
 ALLOC    *                                                                                ALLOC       1708          I
          -FCC0813
 ALLOC    *         USES   B2,B3,B7  X0,X1,X3                                              ALLOC       1709          I
          -FCC0813
 ALLOC    *                RESTORES (A0)                                                   ALLOC       1710          I
          -FCC0813
 ALLOC    *         CALLS  WLE                                                             ALLOC       1711          I
          -FCC0813
 ALLOC                                                                                     ALLOC       1712          I
          -FCC0813
 ALLOC                                                                                     ALLOC       1713     A     
 ALLOC              LIST   D                                                               ALLOC       1714     A     
 ALLOC              END                                                                    ALLOC       1715     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - ALLOC   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          ALLOC                     1715      1503
          FEAT126A                     6         2
          FEAT126C                     1         0
          FCC0741                     11         0
          FCC0813                     23        23
          FCC0931                      5         5
          FEAT155D                    62        61
          FCC1224                      3         3
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 843    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ALLOC   
  
          FCC1259                     12        12
          FCC1328AX                    1         1
          FCCA557                      1         1
          FCCA580                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     *DECK MAIN                                                                       MAIN           1     A     
 MAIN               IDENT  MAIN                                                            MAIN           2     A     
 MAIN      CPM      SECT   (MASTER STATEMENT RECOGNITION.),1                               MAIN           3          I
          -FEAT155G 
 MAIN      MAIN     SECT   (MASTER STATEMENT RECOGNITION.),1                               FEAT155G     326     A     
 MAIN                                                                                      MAIN           4     A     
 MAIN               SST    A,B,D,EXIT.                                                     MAIN           5     A     
 MAIN               NOREF  A,B,D,EXIT.                                                     MAIN           6     A     
 MAIN                                                                                      MAIN           7     A     
 MAIN      B=MAIN   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             MAIN           8     A     
 MAIN                                                                                      MAIN           9     A     
 MAIN               ENTRY  PSP,CPM,CPM2,CPM5,CPM6,CUS.RET,CUSX,PSP.F,PSP.C,CPM=1ST         MAIN          10     A     
 MAIN               ENTRY  CPM=IMP,PSFX,AFSB,HDRBL,CPM=BY,TABX.F,IFS.X                     MAIN          11          I
          -FEAT126C 
 MAIN               ENTRY  CPM=ASF,PCDX,CSK,GSNX,AFSA,AFSB,AFSX,LSL,WOF,WBL                MAIN          12          I
          -FEAT126C 
 MAIN               ENTRY  CPM=IMP,PSFX,HDRBL,CPM=BY,TABX.F,IFS.X,CPM=ASF,PCDX             FEAT126C     120     A     
 MAIN               ENTRY  CSK,GSNX,AFSA,AFSX,LSL,WOF,WBL                                  FEAT126C     121          I
          -FCC1328X 
 MAIN               ENTRY  CSK,GSNX,AFSX,LSL,WOF,WBL                                       FCC1328X      96     A     
 MAIN               ENTRY  ASK,ASL,CSB,CST,CPM=EXU,CPM=END,CPM=NTR,CPM=OK,CPM=DAT          MAIN          13     A     
 MAIN               ENTRY  CPM=DEC,CPM=TYP,CPM=TPE,CPM=FMT,RNC                             MAIN          14     A     
 MAIN               ENTRY   BLL,LSS                                                        FEAT126A     771          I
          -FCC0990
 MAIN               ENTRY  BLL,LSS,PSP.Z                                                   FCC0990        8     A     
 MAIN               ENTRY  RNS,PLO,AFS.ME                                                  FCC1829       25          I
          -FCCA454
 MAIN               ENTRY  RNS,PLO,AFS.ME,PLR                                              FCCA454       24     A     
 MAIN                                                                                      MAIN          15     A     
 MAIN     *         IN FTN                                                                 MAIN          16     A     
 MAIN               EXT    AMODE,CO.SNAP,CP.BUF,CO.MODE,CP.PAGE,F.IN,F.OUT,F.SB            MAIN          17          I
          -FCC0813
 MAIN               EXT    AMODE,CO.SNAP,CP.BUF,CO.MODE,CP.PAGE,F.IN,F.OUT                 FCC0813      126          I
          -FEAT155E 
 MAIN               EXT    LOP=X,L.TITL,O.TITL,TL.PAGE                                     MAIN          18          I
          -FEAT126B 
 MAIN               EXT    LOP=O,LOP=X,L.TITL,O.TITL,TL.PAGE                               FEAT126B      67          I
          -FEAT155E 
 MAIN               EXT    AMODE,CO.SNAP,CO.MODE,CO.PS,CP.CARD,CP.FLIN                     FEAT155E     137          I
          -FEAT155EA
 MAIN               EXT    AMODE,CO.SNAP,CO.MODE,CP.CARD,CP.FLIN,CP.PS                     FEAT155EA     21          I
          -FCCA422
 MAIN               EXT    AMODE,CO.SNAP,CO.MODE,CP.CARD,CP.FLIN,LCP.PS,PDFLAG             FCCA422       42     A     
 MAIN               EXT    CP.PAGE,F.IN,F.OUT,LOP=O,LOP=X,O.TITL,L.TITL,TL.PAGE            FEAT155E     138     A     
 MAIN                                                                                      MAIN          19     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 844    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     *         IN TABLES                                                              MAIN          20     A     
 MAIN               EXT    ASFLEN,CCNT,CSNTAG,CARDS,CDD,DEFERL,DTI,FLOW,FIRSTV             MAIN          21          I
          -FEAT126B 
 MAIN               EXT    ASFLEN,CARDS,CCNT,CDD,CSLIST,CSNTAG,CSSTMT                      FEAT126B      68     A     
 MAIN               EXT    DEFERL,DTI,FIRSTV,FLOW                                          FEAT126B      69          I
          -FEAT155E 
 MAIN               EXT    HANGER,ICA,ICONL,LINEBUF,LINENO,LOCORE,LASTCOL,LCNT,MOD         MAIN          22          I
          -FCC0813
 MAIN               EXT    HANGER,ICA,ICONL,LINEBUF,LINENO,LASTCOL,LCNT,MOD                FCC0813      127          I
          -FEAT155E 
 MAIN               EXT    DEFERL,DTI,DXB,FIRSTV,FLOW                                      FEAT155E     139     A     
 MAIN               EXT    HANGER,ICONL,LASTCOL,LCNT,MOD                                   FEAT155E     140     A     
 MAIN               EXT    MSF,MULS,NSK,NOREL,NOPATH,OPBSS,PASS,REFLIN,REFPAG              MAIN          23          I
          -FEAT126B 
 MAIN               EXT    MSF,MULS,NOLIST,NOPATH,NOREL,NSK,MLOP=O                         FEAT126B      70     A     
 MAIN               EXT    OPBSS,PASS,REFLIN,REFPAG                                        FEAT126B      71          I
          -FEAT155E 
 MAIN               EXT    OPBSS,PASS,REFLIN                                               FEAT155E     141     A     
 MAIN               EXT    REFNUM,REFVAR,SB.STNL,SB.STNR,STAGE,STN,TS=CON,TS.SYM           MAIN          24     A     
 MAIN               EXT    T.DLBUF,T=DLBUF                                                 FEAT126B      72     A     
 MAIN               EXT    TT=ASF,TT.PAR,TP=DO,TS=CONB,TT=PAR,ZLE,ZLCOMMA,ZLEQUAL          MAIN          25     A     
 MAIN               EXT    ZLPAREN                                                         MAIN          26     A     
 MAIN                                                                                      MAIN          27     A     
 MAIN     *         IN ERRORS                                                              MAIN          28     A     
 MAIN               EXT    E.ANS1,E.DO10,E.FM,E.MA,E.MB,E.MCA,E.MC1,E.MD,E.MDO             MAIN          29          I
          -FEAT155E 
 MAIN               EXT    E.ANS1,E.FM,E.MA,E.MB,E.MCA,E.MC1,E.MD,E.MDO                    FEAT155E     142     A     
 MAIN               EXT    E.MH,E.MI,E.MK,E.ML,E.MT,E.MT2,E.NLN,E.NP,E.SN16,FILL.          MAIN          30          I
          -FEAT126B 
 MAIN               EXT    E.TYH,FILL.2,UEC                                                MAIN          31          I
          -FEAT126B 
 MAIN               EXT    E.MH,E.MI,E.MK,E.ML,E.MLNL,E.MT,E.MT2,E.NLN,E.NP,               FEAT126B      73          I
          -FEAT155E 
 MAIN               EXT    E.MH,E.MI,E.MK,E.ML,E.MLNL,E.MT,E.NLN,E.NP                      FEAT155E     143     A     
 MAIN               EXT    E.SN16,E.TYH,FILL.,FILL.2,UEC                                   FEAT126B      74     A     
 MAIN                                                                                      MAIN          32     A     
 MAIN     *         IN HEADER                                                              MAIN          33     A     
 MAIN               EXT    PSF                                                             MAIN          34     A     
 MAIN                                                                                      MAIN          35     A     
 MAIN     *         IN ALLOC                                                               MAIN          36     A     
 MAIN               EXT    ACL,SSY                                                         MAIN          37          I
          -FEAT126B 
 MAIN               EXT    ACL,ALC,SSY                                                     FEAT126B      75          I
          -FEAT155E 
 MAIN               EXT    ALC,SSY                                                         FEAT155E     144     A     
 MAIN                                                                                      MAIN          38     A     
 MAIN     *         IN LEX                                                                 MAIN          39     A     
 MAIN               EXT    TAB,BLANK                                                       MAIN          40     A     
 MAIN                                                                                      MAIN          41     A     
 MAIN     *         IN KEY                                                                 MAIN          42     A     
 MAIN               EXT    CONTIN=,END=,ENTRY=                                             MAIN          43     A     
 MAIN                                                                                      MAIN          44     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 845    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     *         IN IF                                                                  MAIN          45     A     
 MAIN               EXT    INIF                                                            MAIN          46     A     
 MAIN                                                                                      MAIN          47     A     
 MAIN     *         IN DECL                                                                MAIN          48     A     
 MAIN               EXT    PCD                                                             MAIN          49     A     
 MAIN                                                                                      MAIN          50     A     
 MAIN     *         IN TYPE                                                                MAIN          51     A     
 MAIN               EXT    TYPA,TYPC                                                       MAIN          52          I
          -FCC1237
 MAIN               EXT    TYPC                                                            FCC1237        7     A     
 MAIN                                                                                      MAIN          53     A     
 MAIN     *         IN FMT                                                                 MAIN          54     A     
 MAIN               EXT    FORMAT=                                                         MAIN          55     A     
 MAIN                                                                                      MAIN          56     A     
 MAIN     *         IN IO                                                                  MAIN          57     A     
 MAIN               EXT    LGR,LG.LEN,NULL,REP.,DO.,IF.,ASF.,EOS                           MAIN          58     A     
 MAIN                                                                                      MAIN          59     A     
 MAIN     *         IN NUM                                                                 MAIN          60     A     
 MAIN               EXT    GSN,CUA,CUAFLAG                                                 MAIN          61     A     
 MAIN                                                                                      MAIN          62     A     
 MAIN     *         IN PAR                                                                 MAIN          63     A     
 MAIN               EXT    CURST                                                           MAIN          64     A     
 MAIN                                                                                      MAIN          65     A     
 MAIN     *         IN GEN                                                                 MAIN          66     A     
 MAIN               EXT    CAI                                                             MAIN          67     A     
 MAIN                                                                                      MAIN          68     A     
 MAIN     *         IN INIT                                                                MAIN          69     A     
 MAIN               EXT    SCR,CST.BOS                                                     MAIN          70     A     
 MAIN                                                                                      MAIN          71     A     
 MAIN      LGR      SPACE  4,15                                                            MAIN          72     A     
 MAIN     **        CPM= - STAGE VECTORS ARE ROWS IN A TRANSITION TABLE WHICH              MAIN          73     A     
 MAIN     *                DESCRIBES THE ACTION NECESSARY (AS A JUMP ADDRESS) UPON         MAIN          74     A     
 MAIN     *                ENCOUNTERING A STATEMENT WITH (SCPM) = ROW WHEN                 MAIN          75     A     
 MAIN     *                (STAGE) = COLUMN.                                               MAIN          76     A     
 MAIN     *         THE FIRST 6 ENTRIES ARE ORDER-DEPENDENT (ONE FOR EACH VALUE OF         MAIN          77     A     
 MAIN     *                *STAGE*).  FURTHER ENTRIES ARE ADDED FOR STATEMENTS NOT         MAIN          78     A     
 MAIN     *                ACCURATELY DESCRIBED BY ANY PREVIOUS ROW.                       MAIN          79     A     
 MAIN                                                                                      MAIN          80     A     
 MAIN                                                                                      MAIN          81     A     
 MAIN               MACRO  CPM=,NAM,FST,IMP,DEC,ASF,EXU,SKP                                MAIN          82     A     
 MAIN      A        MICRO  1,2, SKP_BY                                                     MAIN          83     A     
 MAIN      CPM=NAM  VFD    12/0,8/CPM."A",8/CPM.EXU,8/CPM.ASF,8/CPM.DEC,8/CPM.IMP,         MAIN          84     A     
 MAIN     ,8/CPM.FST                                                                       MAIN          85     A     
 MAIN      CPM=     ENDM                                                                   MAIN          86     A     
 MAIN                                                                                      MAIN          87     A     
 MAIN      CPM=     BSS    0                                                               MAIN          88     A     
 MAIN               LOC    0                                                               MAIN          89     A     
 MAIN     ****             (1ST IMP DEC ASF EXU)                                           MAIN          90     A     
 MAIN      1ST      CPM=    OK_,EMH,EMH,EMH,EMH                                            MAIN          91     A     
 MAIN      IMP      CPM=    IMP,OK_,EMI,EMI,EMI                                            MAIN          92     A     
 MAIN      DEC      CPM=    IMP,DEC,OK_,EMD,EMD                                            MAIN          93     A     
 MAIN      ASF      CPM=    IMP,DEC,ASF,OK_,EMA                                            MAIN          94     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 846    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN      EXU      CPM=    IMP,DEC,ASF,EXU,OK_                                            MAIN          95     A     
 MAIN      CPM=BY   BSS    0                          DEFINE COLUMN FOR SKIP-STAGE         MAIN          96     A     
 MAIN      END      CPM=    EMT,DEC,ASF,EXU,OK_,OK                                         MAIN          97     A     
 MAIN                                                                                      MAIN          98     A     
 MAIN      DAT      CPM=    IMP,DEC,ASF,OK_,OK_                                            MAIN          99     A     
 MAIN      FMT      CPM=    IMP,FMT,FMT,FMT,FMT                                            MAIN         100     A     
 MAIN      NTR      CPM=    IMP,DEC,OK_,OK_,OK_                                            MAIN         101     A     
 MAIN      TYP      CPM=    OK_,DEC,OK_,EMD,EMD                                            MAIN         102     A     
 MAIN      TPE      CPM=    OK_,OK_,OK_,EMD,EMD                                            MAIN         103     A     
 MAIN      OK       CPM=    OK_,OK_,OK_,OK_,OK_,OK      ALWAYS PROCESS                     MAIN         104     A     
 MAIN     ****                                                                             MAIN         105     A     
 MAIN               LOC    *O                                                              MAIN         106     A     
 MAIN      HEREIF   SPACE  4,15                                                            MAIN         107     A     
 MAIN      PSP      EJECT                                                                  MAIN         108     A     
 MAIN     **        PSP -  RETURN TO MASTER LOOP FROM STATEMENT PROCESSING.                MAIN         109     A     
 MAIN                                                                                      MAIN         110     A     
 MAIN                                                                                      MAIN         111     A     
 MAIN     **        PSP.Z - RETURN FROM COMPILER ERROR.  SET UP TO BYPASS                  FCC0990        9     A     
 MAIN     *                COMPILATION OF REST OF PROGRAM UNIT                             FCC0990       10     A     
 MAIN                                                                                      FCC0990       11     A     
 MAIN      PSP.Z    SX7    CPM=BY                                                          FCC0990       12     A     
 MAIN               SA7    STAGE                                                           FCC0990       13     A     
 MAIN               SA1    PASS                                                            FCC0990       14     A     
 MAIN               SX1    X1-PASS=END                                                     FCC0990       15     A     
 MAIN               MI     X1,PSP.F    IF NOT IN END OR MAP PROCESSING                     FCC0990       16     A     
 MAIN               EQ     =XEND96                                                         FCC0990       17     A     
 MAIN                                                                                      FCC0990       18     A     
 MAIN     **        PSP.A - NON-ANSI STATEMENTS MAY RETURN TO HERE TO HAVE THE             MAIN         112     A     
 MAIN     *                STATEMENT FLAGGED.                                              MAIN         113     A     
 MAIN                                                                                      MAIN         114     A     
 MAIN      PSP.A    SA1    LOP=X                                                           MAIN         115     A     
 MAIN               PL     X1,PSP      IF ANSI SWITCH OFF                                  MAIN         116     A     
 MAIN               EQ     E.ANS1      (RETURN TO *PSP*)..                                 MAIN         117     A     
 MAIN                                                                                      MAIN         118     A     
 MAIN                                                                                      MAIN         119     A     
 MAIN     **        PSP.C - RETURN TO MASTER LOOP FOR ALL PROCESSORS THAT RESET            MAIN         120     A     
 MAIN     *                CONSTANT TABLE LENGTH. IE. *DATA*                               MAIN         121     A     
 MAIN                                                                                      MAIN         122     A     
 MAIN                                                                                      MAIN         123     A     
 MAIN      PSP.C    SA1    ICONL       SPECIAL ENTRY TO RE-SET CON TABLE                   MAIN         124     A     
 MAIN               BX6    X1                                                              MAIN         125          I
          -FCC0813
 MAIN               SA6    TS=CON                                                          MAIN         126          I
          -FCC0813
 MAIN               SHRINK TS=CON,X1                                                       FCC0813      128     A     
 MAIN                                                                                      MAIN         127     A     
 MAIN     **        PSP -  GENERAL RETURN TO MASTER LOOP FOR NON-EXECUTABLE                MAIN         128     A     
 MAIN     *                STATEMENT PROCESSORS.                                           MAIN         129     A     
 MAIN     *                STATEMENT WILL BE FLAGGED IF A LABEL IS PRESENT.                MAIN         130     A     
 MAIN                                                                                      MAIN         131     A     
 MAIN      PSP      SA3    SB.STNL                                                         MAIN         132     A     
 MAIN               ZR     X3,PSP.F    IF EMPTY LABEL FIELD                                MAIN         133     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 847    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               BX6    X3                                                              MAIN         134          I
          -FCC0794
 MAIN               SA6    FILL.       1ST FIVE CHARACTER (INCLUDING BLANKS) ONLY.         MAIN         135          I
          -FCC0794
 MAIN               WARN   E.SN16      STATEMENT LABEL IGNORED (RETURN CPM)                MAIN         136     A     
 MAIN                                                                                      MAIN         137     A     
 MAIN     **        PSP.F - RETURN TO MASTER LOOP FOR *FORMAT* PROCESSOR.                  MAIN         138     A     
 MAIN     *                LABEL FIELD IS NOT CHECKED.                                     MAIN         139     A     
 MAIN                                                                                      MAIN         140     A     
 MAIN      PSP.F    BSS    0                                                               MAIN         141     A     
 MAIN      CPM      SPACE  4,30                                                            MAIN         142     A     
 MAIN     **        CPM -  COMPILER MASTER LOOP.                                           MAIN         143     A     
 MAIN                                                                                      MAIN         144     A     
 MAIN                                                                                      MAIN         145     A     
 MAIN      CPM      SA1    F.SB                                                            MAIN         146          I
          -FCC0813
 MAIN      CPM      SA1    =XT.SB                                                          FCC0813      129     A     
 MAIN               NO                                                                     MAIN         147     A     
 MAIN               SA0    X1          RESTORE (A0)                                        MAIN         148     A     
 MAIN               RJ     RSC         RESET STATEMENT CELLS                               MAIN         149     A     
 MAIN                                                                                      MAIN         150     A     
 MAIN      CPM1     RJ     AFS         ASSEMBLE FORTRAN STATEMENT                          MAIN         151     A     
 MAIN                                                                                      MAIN         152     A     
 MAIN               =A1    "SB.STN"                                                        MAIN         153     A     
 MAIN               MX6    1           ALLOW ZERO STATEMENT LABELS                         MAIN         154     A     
 MAIN               SA6    CUAFLAG                                                         MAIN         155     A     
 MAIN               RJ     CUA         ASSEMBLE LABEL FIELD                                MAIN         156     A     
 MAIN               BX7    0           RESET FLAG                                          MAIN         157     A     
 MAIN               SA7    CUAFLAG                                                         MAIN         158     A     
 MAIN               LX7    X6,B2       LEFT JUSTIFY                                        MAIN         159     A     
 MAIN               SA6    SB.STNR                                                         MAIN         160     A     
 MAIN               =A7    A6-1                                                            MAIN         161     A     
 MAIN                                                                                      MAIN         162     A     
 MAIN     **        NORMALIZE THE STATEMENT -- CALL *TAB*.                                 MAIN         163     A     
 MAIN                                                                                      MAIN         164     A     
 MAIN               =B3    "SB.FWA"    FWA FOR STORE                                       MAIN         165     A     
 MAIN               RJ     TAB         NORMALIZE STATEMENT                                 MAIN         166     A     
 MAIN               SA1    BLANK                                                           MAIN         167          I
          -FCC0813
 MAIN               SA2    BLANK                                                           FCC0813      130     A     
 MAIN               SA1    MULS                                                            FCC0813      131     A     
 MAIN               SB3    A0-B3                                                           MAIN         168     A     
 MAIN               SX6    -B3         (LASTCOL) = ORDINAL OF *EOS*                        MAIN         169     A     
 MAIN               SA6    LASTCOL                                                         MAIN         170     A     
 MAIN               ZR     X1,CPM8     IF THIS IS A NULL STATEMENT                         MAIN         171          I
          -FCC0813
 MAIN               NZ     X1,CPM1A    IF MULTIPLE STATEMENT IN LINE                       FCC0813      132     A     
 MAIN               SX6    X6+2                                                            FCC0813      133     A     
 MAIN               SHRINK T=SB,X6                                                         FCC0813      134     A     
 MAIN      CPM1A    ZR     X2,CPM8     IF THIS IS A NULL STATEMENT                         FCC0813      135     A     
 MAIN                                                                                      MAIN         172     A     
 MAIN     **        CLASSIFY THE STATEMENT -- CALL *CST*.                                  MAIN         173     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 848    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN                                                                                      MAIN         174     A     
 MAIN               =B4    "SB.FWA"    FWA OF STATEMENT                                    MAIN         175     A     
 MAIN               RJ     CST         CLASSIFY STATEMENT.                                 MAIN         176     A     
 MAIN      TABX.F   BSS    0           .. EXIT FROM TAB WHEN *FORMAT*                      MAIN         177     A     
 MAIN               MI     B5,E.FM     IF UNRECOGNIZABLE STATEMENT.                        MAIN         178     A     
 MAIN               BX7    X5                                                              MAIN         179     A     
 MAIN                                                                                      MAIN         180     A     
 MAIN      CPM.MT   BSS    0           ** HERE IF EMPTY STATEMENT WITH LABEL               MAIN         181     A     
 MAIN      AFS.EOS  BSS    0           .. EXIT FROM AFS WHEN END-OF-SECTION                MAIN         182     A     
 MAIN               =A7    "SB.KEY"    SAVE STATEMENT TYPE-KEY                             MAIN         183     A     
 MAIN                                                                                      MAIN         184     A     
 MAIN      SNAP=M   IFNE   TEST        DUMP *SB*                                           MAIN         185     A     
 MAIN               SA1    CO.SNAP                                                         MAIN         186     A     
 MAIN               LX1    1RM                                                             MAIN         187     A     
 MAIN               PL     X1,CPM1S    IF MASTER LOOP SNAP NOT REQUESTED                   MAIN         188     A     
 MAIN               RJ     =XSVR                                                           MAIN         189     A     
 MAIN               PLINE  (=C=  (DUMP OF *SB* -- FROM MASTER LOOP.)=),1                   MAIN         190     A     
 MAIN               RJ     =XSBL       LIST STRING BUFFER                                  MAIN         191     A     
 MAIN               RJ     =XRSR                                                           MAIN         192     A     
 MAIN      CPM1S    BSS    0                                                               MAIN         193     A     
 MAIN      SNAP=M   ENDIF                                                                  MAIN         194     A     
 MAIN                                                                                      MAIN         195     A     
 MAIN                                                                                      MAIN         196     A     
 MAIN     **        NOW FOR MISCELLANEOUS CHECKS ON THE PROPERTIES OF THE                  MAIN         197     A     
 MAIN     *         STATEMENT.  SEE *HEREIF* MACRO FOR DEFINITIONS OF ATTRIBUTES.          MAIN         198     A     
 MAIN                                                                                      MAIN         199     A     
 MAIN                                                                                      MAIN         200     A     
 MAIN     **        DIAGNOSE ILLEGAL STATEMENTS IN *BLOCKDATA* SUBPROGRAMS.                MAIN         201     A     
 MAIN                                                                                      MAIN         202     A     
 MAIN               SA1    MOD                                                             MAIN         203     A     
 MAIN               SX4    M.PBLK                                                          MAIN         204     A     
 MAIN               BX4    X4*X1       FORM MASK (=1 IF BLOCKDATA)                         MAIN         205     A     
 MAIN               SBIT   X4,PBLK/SBKD                                                    MAIN         206     A     
 MAIN               BX4    -X5*X4      ISOLATE *LEGAL IN BKD* BIT (IF IN BKD)              MAIN         207     A     
 MAIN               NZ     X4,E.MB     IF NASTY IN BLOCKDATA, ERR..                        MAIN         208     A     
 MAIN      CPM2     SA5    "SB.KEY"                                                        MAIN         209     A     
 MAIN                                                                                      MAIN         210     A     
 MAIN                                                                                      MAIN         211     A     
 MAIN     **        INSURE THAT THIS STATEMENT IS IN ITS PROPER PLACE.                     MAIN         212     A     
 MAIN                                                                                      MAIN         213     A     
 MAIN      PCDX     BSS    0           .. RETURN FROM *PCD*.                               MAIN         214     A     
 MAIN      PSFX     BSS    0           .. RETURN FROM *PSF*.                               MAIN         215     A     
 MAIN                                                                                      MAIN         216     A     
 MAIN      CPM3     BX3    X5                                                              MAIN         217     A     
 MAIN               MX0    -L.SCPM                                                         MAIN         218     A     
 MAIN               SA4    STAGE                                                           MAIN         219     A     
 MAIN               LX3    -P.SCPM                                                         MAIN         220     A     
 MAIN               BX2    -X0*X3      ISOLATE STATEMENT STAGE NUMBER                      MAIN         221     A     
 MAIN               SA1    X2+CPM=     FETCH STAGE VECTOR                                  MAIN         222     A     
 MAIN               LX4    3           = ACTUAL (STAGE) * 8                                MAIN         223     A     
 MAIN               SB7    X4                                                              MAIN         224     A     
 MAIN               MX0    -8                                                              MAIN         225     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 849    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               AX1    B7                                                              MAIN         226     A     
 MAIN               BX2    -X0*X1      ISOLATE COLUMN                                      MAIN         227     A     
 MAIN               SB2    X2                                                              MAIN         228     A     
 MAIN               JP     B2+CPM.                                                         MAIN         229     A     
 MAIN                                                                                      MAIN         230     A     
 MAIN      CPM.     BSS    0           BASE OF STAGE ACTIONS TABLE.                        MAIN         231     A     
 MAIN               LOC    0                                                               MAIN         232     A     
 MAIN                                                                                      MAIN         233     A     
 MAIN      CPM.IMP  EQ     PSF         SET STAGE = IMP                                     MAIN         234     A     
 MAIN                                                                                      MAIN         235     A     
 MAIN      CPM.DEC  =X6    CPM=DEC     SET STAGE = DEC                                     MAIN         236     A     
 MAIN               SA6    A4                                                              MAIN         237     A     
 MAIN               EQ     CPM3                                                            MAIN         238     A     
 MAIN                                                                                      MAIN         239     A     
 MAIN      CPM.ASF  EQ     PCD         SET STAGE = ASF                                     MAIN         240     A     
 MAIN                                                                                      MAIN         241     A     
 MAIN      CPM.EXU  =X6    CPM=EXU     SET STAGE = EXU                                     MAIN         242     A     
 MAIN               SA1    TT=ASF                                                          MAIN         243     A     
 MAIN               BX7    X1                                                              MAIN         244     A     
 MAIN               SA6    A4                                                              MAIN         245     A     
 MAIN               SA7    ASFLEN      SAVE REAL LENGTH OF TT.ASF                          MAIN         246     A     
 MAIN               EQ     CPM3                                                            MAIN         247     A     
 MAIN                                                                                      MAIN         248     A     
 MAIN      CPM.FMT  EQ     FORMAT=                                                         MAIN         249     A     
 MAIN                                                                                      MAIN         250     A     
 MAIN      CPM.EMA  EQ     E.MA        MISPLACED STMNT FUN (RETURN - PSP)                  MAIN         251     A     
 MAIN      CPM.EMD  EQ     E.MD        MISPLACED DECLARATV (RETURN - PSP)                  MAIN         252     A     
 MAIN      CPM.EMH  EQ     E.MH        MISPLACED HEADER    (RETURN - PSP)                  MAIN         253     A     
 MAIN      CPM.EMI  EQ     E.MI        MISPLACED IMPLICIT  (RETURN - PSP)                  MAIN         254     A     
 MAIN      CPM.EMT  EQ     E.MT        NULL PROGRAM (RETURN EOC)                           MAIN         255          I
          -FCC1328X 
 MAIN                                                                                      FCC1328X      97     A     
 MAIN     *         HERE IF NULL PROGRAM UNIT OCCURRED -- NEED TO LIST                     FCC1328X      98     A     
 MAIN     *         ANY COMMENT LINES THAT MIGHT HAVE BEEN SAVED                           FCC1328X      99     A     
 MAIN     *         IN *BEFORE HEADER* MODE.                                               FCC1328X     100     A     
 MAIN                                                                                      FCC1328X     101     A     
 MAIN      CPM.EMT  SA1    =XHDELAY                                                        FCC1328X     102     A     
 MAIN               ZR     X1,=XE.MT   IF DONT NEED TO LIST ANYTHING                       FCC1328X     103     A     
 MAIN               RJ     LDB         LIST DEFERRED BUFFER                                FCC1328X     104     A     
 MAIN               EQ     =XE.MT      NULL PROGRAM  (RETURN - RUN.X)                      FCC1328X     105     A     
 MAIN                                                                                      MAIN         256     A     
 MAIN      CPM.BY   SA1    =5A--       SKIP BY THIS STATEMENT                              MAIN         257     A     
 MAIN               BX6    X1                                                              MAIN         258     A     
 MAIN               SA6    ICA                                                             MAIN         259          I
          -FEAT155E 
 MAIN               SA6    CP.FLIN                                                         FEAT155E     145     A     
 MAIN               EQ     PSP.F                                                           MAIN         260     A     
 MAIN                                                                                      MAIN         261     A     
 MAIN      CPM.OK   BSS    0           PROPERLY POSITIONED.                                MAIN         262     A     
 MAIN               LOC    *O                                                              MAIN         263     A     
 MAIN                                                                                      MAIN         264     A     
 MAIN                                                                                      MAIN         265     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 850    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     **               IF THIS IS A CODE-GENERATING STATEMENT, INVOKE *CUS* TO         MAIN         266     A     
 MAIN     *         FINISH UP ANY INCOMPLETE STUFF FROM PREVIOUS STATEMENT,                MAIN         267     A     
 MAIN     *         PROCESS THE LABEL, AND RESET (A7).                                     MAIN         268     A     
 MAIN                                                                                      MAIN         269     A     
 MAIN               SA1    =XMOD                                                           FCC1524X      18     A     
 MAIN               SBIT   X1,PBLK                                                         FCC1524X      19     A     
 MAIN               SBIT   X5,SGEN                                                         MAIN         270     A     
 MAIN               MI     X1,CUSX     IF BLOCKDATA                                        FCC1524X      20     A     
 MAIN               MI     X5,CUS      IF A GENERATOR                                      MAIN         271     A     
 MAIN     *         ...                                                                    MAIN         272     A     
 MAIN      CUSX     BSS    0           .. RETURN FROM *CUS*                                MAIN         273     A     
 MAIN               =A5    "SB.KEY"                                                        MAIN         274     A     
 MAIN               SA1    DTI                                                             MAIN         275     A     
 MAIN               SBIT   X5,SDON                                                         MAIN         276     A     
 MAIN               ZR     X1,CPM5     IF NO DO TERMINATION                                MAIN         277     A     
 MAIN               MI     X5,E.MDO    ** ERROR -- ILLEGAL DO-TERMINATOR **                MAIN         278          I
          -FCC0743
 MAIN               PL     X5,CPM5     IF NOT DO TERMINAL                                  FCC0743        9     A     
 MAIN               FATAL  E.MDO       *ILLEGAL DO TERMINAL*                               FCC0743       10     A     
 MAIN      CPM5     BSS    0                                                               MAIN         279     A     
 MAIN                                                                                      MAIN         280     A     
 MAIN                                                                                      MAIN         281     A     
 MAIN     **               LOGICAL (1-BRANCH) IF PROCESSOR RETURNS TO HERE AFTER           MAIN         282     A     
 MAIN     *         DETERMINING STATEMENT TYPE AND LEGALITY.                               MAIN         283     A     
 MAIN                                                                                      MAIN         284     A     
 MAIN      IFS.X    BSS    0           ** ENTRY FROM 1-BRANCH IF                           MAIN         285     A     
 MAIN               RJ     UEC         UPDATE ERROR COUNT                                  MAIN         286     A     
 MAIN               =A1    "SB.BOS"                                                        MAIN         287     A     
 MAIN               =A5    "SB.KEY"                                                        MAIN         288     A     
 MAIN               =B4    X1                                                              MAIN         289     A     
 MAIN               MI     X5,CPM6     IF NOT A KEYWORD STATEMENT                          MAIN         290     A     
 MAIN                                                                                      MAIN         291     A     
 MAIN               RJ     ASK         ADJUST KEYWORD STATEMENT                            MAIN         292     A     
 MAIN               NZ     X3,E.MK     IF KEYWORD DOES NOT MATCH                           MAIN         293     A     
 MAIN                                                                                      MAIN         294     A     
 MAIN     **        JUMP - TO COMPILE THE STATEMENT.                                       MAIN         295     A     
 MAIN                                                                                      MAIN         296     A     
 MAIN      CPM6     SA5    "SB.KEY"                                                        MAIN         297     A     
 MAIN               SB6    X5                                                              MAIN         298     A     
 MAIN               JP     B6          JUMP TO ROUTINE                                     MAIN         299     A     
 MAIN                                                                                      MAIN         300     A     
 MAIN                                                                                      MAIN         301     A     
 MAIN     **        HANDLE NULL (EMPTY -- ALL BLANK) STATEMENTS HERE.                      MAIN         302     A     
 MAIN     *                                                                                MAIN         303     A     
 MAIN     *         ENTRY  (SB.STNR) = LABEL, DPC RIGHT JUSTIFIED, ZERO FILL               MAIN         304     A     
 MAIN     *                          = 0 IF NO LABEL                                       MAIN         305     A     
 MAIN     *                          = -1 IF ERROR IN LABEL                                MAIN         306     A     
 MAIN     *                                                                                MAIN         307     A     
 MAIN     *         EXIT   (NSK) ADVANCED                                                  MAIN         308     A     
 MAIN     *                IF LABEL FIELD IS NON-BLANK, WE WILL TREAT IT AS A              MAIN         309     A     
 MAIN     *                *CONTINUE* STATEMENT, WITH AN APPROPRIATE WARNING.              MAIN         310     A     
 MAIN                                                                                      MAIN         311     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 851    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN      CPM8     SA1    NSK         COUNT NULL STATEMENTS                               MAIN         312     A     
 MAIN               SA2    SB.STNR                                                         MAIN         313     A     
 MAIN               =X7    X1+1                                                            MAIN         314     A     
 MAIN               SA7    A1                                                              MAIN         315     A     
 MAIN               ZR     X2,CPM1     IF NO LABEL                                         MAIN         316     A     
 MAIN               MI     X2,CPM1     IF ILLEGAL LABEL                                    MAIN         317     A     
 MAIN               WARN   E.ML                                                            MAIN         318     A     
 MAIN               SX5    NULL                                                            MAIN         319     A     
 MAIN               SA5    X5+LGR                                                          MAIN         320     A     
 MAIN               BX7    X5                                                              MAIN         321     A     
 MAIN               EQ     CPM.MT      TREAT IT AS A *CONTINUE* STATEMENT                  MAIN         322     A     
 MAIN      AFS      SPACE  4,8                                                             MAIN         323     A     
 MAIN     **        AFS -  ASSEMBLE FORTRAN STATEMENT.                                     MAIN         324     A     
 MAIN     *                                                                                MAIN         325     A     
 MAIN     *         READS A FORTRAN STATEMENT (INCLUDING CONTINUATION CARDS) AND           MAIN         326     A     
 MAIN     *         ASSEMBLES IT INTO THE *STRING BUFFER*.  EACH CHARACTER IS              MAIN         327     A     
 MAIN     *         PACKED WITH AN EXPONENT FIELD EQUAL TO THE NUMBER OF PRECEDING         MAIN         328     A     
 MAIN     *         BLANKS, PLUS ONE.  IDEA AND CODE STOLEN FROM *FTNX*.                   MAIN         329     A     
 MAIN     *         *END-OF-STRING* IS A *-1*, WITH A PACKED BLANK COUNT.                  MAIN         330     A     
 MAIN     *                                                                                MAIN         331     A     
 MAIN     *         THE CARD IMAGE IS ALSO PRINTED, UNLESS A *SHORT LIST* WAS              MAIN         332     A     
 MAIN     *         SELECTED.  IF SO, THE TEXT OF THE STATEMENT (UP TO "MAX.CONT"          MAIN         333     A     
 MAIN     *         CARDS) IS SAVED IN THE DEFERRED LINE IMAGE AREA.                       MAIN         334     A     
 MAIN     *                                                                                MAIN         335     A     
 MAIN     *         ENTRY  (A0) _ FWA STATEMENT TO BE STORED.                              MAIN         336     A     
 MAIN     *                                                                                MAIN         337     A     
 MAIN     *         EXIT   (A0) PRESERVED.                                                 MAIN         338     A     
 MAIN     *                (B4) _ FWA BURST STATEMENT.                                     MAIN         339     A     
 MAIN     *                *SB* = THE BURST CARD(S).                                       MAIN         340     A     
 MAIN     *                (LASTCOL) = INDEX OF LAST CHARACTER.                            MAIN         341     A     
 MAIN     *                                                                                MAIN         342     A     
 MAIN     *         USES   ALL                                                             MAIN         343     A     
 MAIN     *         CALLS  RNC, WOF.                                                       MAIN         344          I
          -FEAT126B 
 MAIN     *                                                                                FEAT126B      76     A     
 MAIN     *         CALLS  ACD,ACL,BUL,CLO,CNT,PLO,PLR,RNC,RNS                             FEAT126B      77     A     
 MAIN                                                                                      MAIN         345     A     
 MAIN                                                                                      MAIN         346     A     
 MAIN     **        PROCESS MULTIPLE STATEMENTS PER CARD                                   MAIN         347     A     
 MAIN                                                                                      MAIN         348     A     
 MAIN      AFS.MS   =X6    1                                                               MAIN         349     A     
 MAIN               SB4    X1          POINT TO THE NEXT STATEMENT                         MAIN         350     A     
 MAIN               SA6    MSF         SET MULTIPLE STATEMENT FLAG.                        MAIN         351     A     
 MAIN                                                                                      MAIN         352     A     
 MAIN                                                                                      MAIN         353     A     
 MAIN     **        ****   MAIN ENTRY POINT. ****                                          MAIN         354     A     
 MAIN                                                                                      MAIN         355     A     
 MAIN      AFS      SUBR   0                                                               MAIN         356     A     
 MAIN               SA2    =5L                                                             MAIN         357     A     
 MAIN               SA1    MULS                                                            MAIN         358     A     
 MAIN               BX6    X2                                                              MAIN         359     A     
 MAIN               =A6    "SB.STN"    CLEAR STATEMENT LABEL                               MAIN         360     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 852    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               NZ     X1,AFS.MS   IF MULTIPLE STATEMENT                               MAIN         361     A     
 MAIN      AFS5     SA4    ICA                                                             MAIN         362          I
          -FEAT126C 
 MAIN               SA2    AFSA                                                            MAIN         363          I
          -FCC1328X 
 MAIN               SX6    "SB.FWA"-1                                                      FEAT126B      78          I
          -FCC1328X 
 MAIN               BX7    0                                                               MAIN         364          I
          -FCC1328X 
 MAIN               SA6    LASTCOL     PRESTORE IN CASE OF C/-LIST                         FEAT126B      79          I
          -FCC1328X 
 MAIN               SA3    AMODE                                                           MAIN         365          I
          -FCC1328X 
 MAIN               LX6    X4                                                              MAIN         366          I
          -FEAT126C -FCC1328X 
 MAIN               SA5    CP.BUF                                                          MAIN         367          I
          -FEAT155E -FCC1328X 
 MAIN               SA5    CP.CARD                                                         FEAT155E     146          I
          -FCC1328X 
 MAIN               SB6    X2          RE-SET (B6) _ LWA+1 CARD IMAGE.                     MAIN         368          I
          -FCC1328X 
 MAIN               SA7    CCNT        CLEAR CARD COUNT                                    MAIN         369          I
          -FCC1328X 
 MAIN               SA7    DEFERL      CLEAR LENGTH OF DEFERRED STATEMENT                  MAIN         370          I
          -FCC1328X 
 MAIN               SA6    CP.BUF-2    SET UP ADDRESS COLUMNS                              MAIN         371          I
          -FEAT126C -FCC1328X 
 MAIN               ZR     X3,AFS10    IF NOT COMPRESSED INPUT                             MAIN         372          I
          -FCC1328X 
 MAIN               SA5    CP.BUF+2                                                        MAIN         373          I
          -FEAT155E -FCC1328X 
 MAIN               SA5    CP.CARD+2                                                       FEAT155E     147          I
          -FCC1328X 
 MAIN               SA2    =XL.CARD    (X2) = NR OF WDS IN LINE IMAGE AT (CP.CARD)         FCC1328X     106     A     
 MAIN               SA3    =XHDELAY                                                        FCC1328X     107     A     
 MAIN               SX7    "SB.FWA"-1                                                      FCC1328X     108     A     
 MAIN               MX6    0                                                               FCC1328X     109     A     
 MAIN               BX2    -X2                                                             FCC1328X     110     A     
 MAIN               SA7    LASTCOL     PRESTORE IN CASE OF C/-LIST                         FCC1328X     111     A     
 MAIN               SA6    CCNT        CLEAR CONTINUATION COUNT                            FCC1328X     112     A     
 MAIN               SA5    =XCP.CARD                                                       FCC1328X     113     A     
 MAIN               SB6    X2+1        (B6) = -NR OF USEABLE WORDS IN SOURCE LINE          FCC1328X     114     A     
 MAIN     *                                     (I.E. DOES NOT INCLUDE EOL MARK)           FCC1328X     115     A     
 MAIN               NZ     X3,AFS10    IF NOT IN *HEADER DELAY* MODE                       FCC1328X     116     A     
 MAIN               SHRINK T=DLBUF,X6                                                      FCC1328X     117     A     
 MAIN                                                                                      MAIN         374     A     
 MAIN                                                                                      MAIN         375     A     
 MAIN     **        READ STATEMENT FROM CARDS (NOT THE *SB*).                              MAIN         376     A     
 MAIN                                                                                      MAIN         377     A     
 MAIN      AFS10    RJ     RNS         READ NEXT STATEMENT                                 MAIN         378     A     
 MAIN               SA1    CO.MODE                                                         MAIN         379          I
          -FEAT126B 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 853    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               ZR     X5,AFS.ME   IF END OF SECTION                                   MAIN         380     A     
 MAIN                                                                                      FEAT126B      80     A     
 MAIN     *         PROCESS C/-LIST OPTIONS.                                               FEAT126B      81     A     
 MAIN                                                                                      FEAT126B      82     A     
 MAIN               RJ     PLO         PROCESS C/-LIST OPTIONS                             FEAT126B      83     A     
 MAIN               ZR     X5,AFS.ME   IF END OF SECTION ENCOUNTERED                       FEAT126B      84     A     
 MAIN               SA1    CO.MODE                                                         FEAT126B      85     A     
 MAIN               ZR     X1,AFS12    IF BATCH FORMAT                                     MAIN         381     A     
 MAIN               SA6    "SB.LN"     STORE LINE NUMBER                                   MAIN         382          I
          -FEAT126B 
 MAIN                                                                                      FEAT126B      86     A     
 MAIN     *         ASSEMBLE SOURCE INPUT IN SEQ FORMAT.                                   FEAT126B      87     A     
 MAIN                                                                                      FEAT126B      88     A     
 MAIN               SA1    AFSD        (X1) = SAVED LINE NR (DPC, 0R FMT)                  FEAT126B      89          I
          -FEAT155E 
 MAIN               SA2    AFSE        (X2) = SAVED LINE NR (DPC, 0L FMT)                  FEAT126B      90          I
          -FEAT155E 
 MAIN               BX6    X1                                                              FEAT126B      91          I
          -FEAT155E 
 MAIN               LX7    X2                                                              FEAT126B      92          I
          -FEAT155E 
 MAIN               SA6    "SB.LN"                                                         FEAT126B      93          I
          -FEAT155E 
 MAIN               SA7    LINENO                                                          FEAT126B      94          I
          -FEAT155E 
 MAIN               SX1    B7-1R+                                                          MAIN         383          I
          -FEAT126B 
 MAIN               BX2    -X0*X5                                                          FEAT126B      95          I
          -FCC1328X 
 MAIN               SX1    X2-1R+                                                          FEAT126B      96          I
          -FCC1328X 
 MAIN               SB4    LG.STN                                                          MAIN         384          I
          -FCC1328X 
 MAIN               NZ     X1,AFS11    IF NOT + (CONTINUATION)                             MAIN         385          I
          -FCC1328X 
 MAIN               SA1    SEQNO       (X1) = SEQUENCE NR OF INITIAL LINE OF STMT          FCC1328X     118     A     
 MAIN     *                                     (0R FORMAT)                                FCC1328X     119     A     
 MAIN               BX2    -X0*X5                                                          FCC1328X     120     A     
 MAIN               LX6    X1                                                              FCC1328X     121     A     
 MAIN               SX7    X2-1R+                                                          FCC1328X     122     A     
 MAIN               SB4    LG.STN                                                          FCC1328X     123     A     
 MAIN               SA6    "SB.LN"                                                         FCC1328X     124     A     
 MAIN               NZ     X7,AFS11    IF NOT + (CONTINUATION)                             FCC1328X     125     A     
 MAIN               LX3    CHAR                                                            FEAT126B      97     A     
 MAIN               PL     X3,AFS10A   IF WORD NOT EXHAUSTED                               FEAT126B      98     A     
 MAIN               SA5    A5+B1                                                           FEAT126B      99     A     
 MAIN               SB6    B6+B1                                                           FEAT126B     100     A     
 MAIN               PL     B6,AFS20    IF NULL STMT -- (CP.BUF) EMPTY NOW                  FEAT126B     101          I
          -FEAT155E 
 MAIN               PL     B6,AFS20    IF NULL STMT -- (CP.CARD) EMPTY NOW                 FEAT155E     148     A     
 MAIN                                                                                      FEAT126B     102     A     
 MAIN      AFS10A   LX5    CHAR                                                            FEAT126B     103     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 854    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               WARN   E.MC1       INITIAL LINE IS CONTINUATION                        MAIN         386     A     
 MAIN      AFS11    LX7    X6,B5                                                           MAIN         387          I
          -FEAT126B 
 MAIN               SA7    LINENO                                                          MAIN         388          I
          -FEAT126B 
 MAIN               RJ     ACD         ASSEMBLE STATEMENT LABEL                            MAIN         389          I
          -FEAT126B 
 MAIN      AFS11    RJ     ACD         ASSEMBLE CODED DIGITS (STMT LABEL)                  FEAT126B     104     A     
 MAIN               LX6    X6,B5       LEFT JUSTIFY                                        MAIN         390          I
          -FCC1328X 
 MAIN               SB2    B2-B1       (B2) = NR OF BLANKS PRECEDING 1ST NON-BLANK         FCC1328X     126     A     
 MAIN     *                                    CHAR OF STMT. 1 HAS BEEN SUBTRACTED         FCC1328X     127     A     
 MAIN     *                                    FROM (B2) BECAUSE 1ST BLANK OF STMT         FCC1328X     128     A     
 MAIN     *                                    SPECIFIES THAT THIS IS AN INITIAL           FCC1328X     129     A     
 MAIN     *                                    LINE IN SEQ MODE, AND IS NOT                FCC1328X     130     A     
 MAIN     *                                    CONSIDERED PART OF THE STMT.                FCC1328X     131     A     
 MAIN               LX6    X6,B5       LEFT JUSTIFY                                        FCC1328BX      5     A     
 MAIN               SA6    "SB.STN"    STORE STATEMENT LABEL                               MAIN         391     A     
 MAIN               SA6    "SB.FWA"-1  INITIALIZE STORE ADDRESS                            MAIN         392     A     
 MAIN               PL     B6,AFS60    IF ALL-BLANK STATEMENT                              MAIN         393          I
          -FEAT126B 
 MAIN               PL     B6,*+1S17   IF ALL-BLANK STATEMENT                              FEAT126B     105          I
          -FCC1328X 
 MAIN               ZR     X6,AFS26    IF STATEMENT LABEL NOT PRESENT                      MAIN         394          I
          -FEAT126B 
 MAIN               ZR     X6,AFS20    IF STATEMENT LABEL NOT PRESENT                      FEAT126B     106     A     
 MAIN               =B2    0           INDICATE NO LEADING BLANKS                          MAIN         395          I
          -FCC1328X 
 MAIN               SB2    -1777B      INDICATE NO LEADING BLANKS                          FCC1328X     132     A     
 MAIN               EQ     AFS26                                                           MAIN         396          I
          -FEAT126B 
 MAIN               EQ     AFS20                                                           FEAT126B     107     A     
 MAIN                                                                                      MAIN         397     A     
 MAIN     **        ASSEMBLE SOURCE INPUT IN BATCH FORMAT.                                 MAIN         398     A     
 MAIN                                                                                      MAIN         399     A     
 MAIN      AFS12    MX3    L.STN                                                           MAIN         400     A     
 MAIN               BX6    X3*X5       ISOLATE STATEMENT NR FIELD                          MAIN         401     A     
 MAIN               LX5    6*CHAR                                                          MAIN         402     A     
 MAIN               BX2    -X0*X5                                                          MAIN         403     A     
 MAIN               SA3    AFSC                                                            MAIN         404     A     
 MAIN               LX5    -6*CHAR     RESTORE (X5)                                        FEAT126B     108     A     
 MAIN               SB7    X2          (B7) = (COLUMN 6)                                   MAIN         405     A     
 MAIN               AX1    X3,B7                                                           MAIN         406     A     
 MAIN               LX1    -1                                                              MAIN         407     A     
 MAIN               MI     X1,AFS15    IF ZERO OR BLANK                                    MAIN         408     A     
 MAIN               WARN   E.MC1       INITIAL LINE IS CONTINUATION                        MAIN         409     A     
 MAIN                                                                                      MAIN         410     A     
 MAIN     **        SAVE POSSIBLE STATEMENT LABEL FOR PROCESSING                           MAIN         411     A     
 MAIN     *                (X6) = COLS 1-5 OF CARD (5L FORMAT).                            MAIN         412     A     
 MAIN                                                                                      MAIN         413     A     
 MAIN      AFS15    SA6    "SB.STN"    STORE STATEMENT LABEL FIELD                         MAIN         414     A     
 MAIN               MX0    -CHAR                                                           MAIN         415     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 855    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               =B2    0           INDICATE NO LEADING BLANKS                          MAIN         416          I
          -FCC0844
 MAIN               SB2    -1777B      INDICATE NO LEADING BLANKS                          FCC0844        9     A     
 MAIN               =A6    "SB.FWA"-1  INITIALIZE STORE ADDRESS                            MAIN         417     A     
 MAIN                                                                                      MAIN         418     A     
 MAIN                                                                                      MAIN         419     A     
 MAIN     **        CONTINUATION CARDS RE-ENTER HERE.                                      MAIN         420          I
          -FEAT126B 
 MAIN     *                (X0) = MX0 -CHAR                                                MAIN         421          I
          -FEAT126B 
 MAIN     *                (X5) = 1ST WORD OF CARD IMAGE, COL. 6 IN BITS (05-00).          MAIN         422          I
          -FEAT126B 
 MAIN     *                (A5) _ FETCH ADDRESS IN CARD BUFFER.                            MAIN         423          I
          -FEAT126B 
 MAIN     *                (A6)+1 _ FWA TO STORE.                                          MAIN         424          I
          -FEAT126B 
 MAIN     *                (B2) = NUMBER OF LEADING BLANKS ALREADY DISCOVERED.             MAIN         425          I
          -FEAT126B 
 MAIN     *                (B6)-1 _ LAST WORD IN CARD IMAGE BUFFER.                        MAIN         426          I
          -FEAT126B 
 MAIN                                                                                      MAIN         427          I
          -FEAT126B 
 MAIN      AFS20    MX3    1                                                               MAIN         428          I
          -FEAT126B 
 MAIN               SB6    A5-B6       = FWA- (LWA+1) = - W.C.                             MAIN         429          I
          -FEAT126B 
 MAIN               SB4    -8                                                              MAIN         430          I
          -FEAT126B 
 MAIN               LX3    -4*CHAR                                                         MAIN         431          I
          -FEAT126B 
 MAIN               GE     B6,B4,AFS25                                                     MAIN         432          I
          -FEAT126B 
 MAIN               SB6    B4          LIMIT BURST TO 7 WORDS                              MAIN         433          I
          -FEAT126B 
 MAIN      AFS25    SB3    72-6-2      NUMBER OF COLUMNS TO PROCESS, MINUS TWO             MAIN         434          I
          -FEAT126B 
 MAIN               LX5    CHAR                                                            MAIN         435          I
          -FEAT126B 
 MAIN               =B6    B6+1                                                            MAIN         436          I
          -FEAT126B 
 MAIN      AFS26    SA2    AMODE                                                           MAIN         437          I
          -FEAT126B 
 MAIN               SB5    -1R                                                             MAIN         438          I
          -FEAT126B 
 MAIN               SA1    =1H                                                             MAIN         439          I
          -FEAT126B 
 MAIN               ZR     X2,AFS50    IF UNCOMPRESSED INPUT                               MAIN         440          I
          -FEAT126B 
 MAIN               LX2    -1                                                              MAIN         441          I
          -FEAT126B 
 MAIN               PL     X2,AFS40    IF *UPDATE* FORMAT                                  MAIN         442          I
          -FEAT126B 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 856    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN                                                                                      MAIN         443          I
          -FEAT126B 
 MAIN                                                                                      MAIN         444          I
          -FEAT126B 
 MAIN     **        UNPACK *MODIFY* FORMAT COMPRESSED CARD.                                MAIN         445          I
          -FEAT126B 
 MAIN                                                                                      MAIN         446          I
          -FEAT126B 
 MAIN                                                                                      MAIN         447          I
          -FEAT126B 
 MAIN      AFS30    BSS    0           ENTRY..                                             MAIN         448          I
          -FEAT126B 
 MAIN               TRUBL                                                                  MAIN         449          I
          -FEAT126B 
 MAIN               EQ     AFS60       CONTINUE..                                          MAIN         450          I
          -FEAT126B 
 MAIN                                                                                      MAIN         451          I
          -FEAT126B 
 MAIN                                                                                      MAIN         452          I
          -FEAT126B 
 MAIN     **        UNPACK *UPDATE* FORMAT COMPRESSED CARD.                                MAIN         453          I
          -FEAT126B 
 MAIN                                                                                      MAIN         454          I
          -FEAT126B 
 MAIN      AFS40    BSS    0           ENTRY..                                             MAIN         455          I
          -FEAT126B 
 MAIN               SB5    1R          LOOP CONSTANT                                       MAIN         456          I
          -FEAT126B 
 MAIN               SB7    4-1                                                             MAIN         457          I
          -FEAT126B 
 MAIN               SB3    10          LOOP CONSTANT                                       MAIN         458          I
          -FEAT126B 
 MAIN               =B6    1           ANY OLD NON-ZERO                                    MAIN         459          I
          -FEAT126B 
 MAIN               EQ     AFS4B                                                           MAIN         460          I
          -FEAT126B 
 MAIN                                                                                      MAIN         461          I
          -FEAT126B 
 MAIN      AFS4A    PX6    B2          PACK BLANK COUNT                                    MAIN         462          I
          -FEAT126B 
 MAIN               =B2    1                                                               MAIN         463          I
          -FEAT126B 
 MAIN               =A6    A6+1                                                            MAIN         464          I
          -FEAT126B 
 MAIN      AFS4B    LX5    CHAR                                                            MAIN         465          I
          -FEAT126B 
 MAIN               =B7    B7-1                                                            MAIN         466          I
          -FEAT126B 
 MAIN               BX6    -X0*X5      EXTRACT NEXT CHARACTER                              MAIN         467          I
          -FEAT126B 
 MAIN               NZ     B7,AFS4C    IF SOURCE WORD NOT EXHAUSTED                        MAIN         468          I
          -FEAT126B 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 857    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               =A5    A5+1                                                            MAIN         469          I
          -FEAT126B 
 MAIN               SB7    B3                                                              MAIN         470          I
          -FEAT126B 
 MAIN      AFS4C    ZR     B6,AFS4E    IF LAST WAS 00, THEN 00XX CODE                      MAIN         471          I
          -FEAT126B 
 MAIN               SB6    X6                                                              MAIN         472          I
          -FEAT126B 
 MAIN               ZR     B6,AFS4B    IF 00 CHARACTER, GO GET XX                          MAIN         473          I
          -FEAT126B 
 MAIN               NE     B6,B5,AFS4A IF NOT 55 GO STORE IT                               MAIN         474          I
          -FEAT126B 
 MAIN               =B2    B2+1                                                            MAIN         475          I
          -FEAT126B 
 MAIN               EQ     AFS4B                                                           MAIN         476          I
          -FEAT126B 
 MAIN                                                                                      MAIN         477          I
          -FEAT126B 
 MAIN      AFS4E    SB6    X6                                                              MAIN         478          I
          -FEAT126B 
 MAIN               SB2    B2+B6                                                           MAIN         479          I
          -FEAT126B 
 MAIN               GT1    B6,AFS4B    IF 0002-0077 CODE, BLANKS COUNTED                   MAIN         480          I
          -FEAT126B 
 MAIN               SB2    B2-B6                                                           MAIN         481          I
          -FEAT126B 
 MAIN               BX6    0                                                               MAIN         482          I
          -FEAT126B 
 MAIN               EQ1    B6,AFS4A    IF 0001 CODE, GO STORE 00 CHARACTER                 MAIN         483          I
          -FEAT126B 
 MAIN     *                          ELSE 0000 CODE, END-OF-LINE                           MAIN         484          I
          -FEAT126B 
 MAIN               SB3    -3                                                              MAIN         485          I
          -FEAT126B 
 MAIN               EQ     AFS60       CONTINUE..                                          MAIN         486          I
          -FEAT126B 
 MAIN                                                                                      MAIN         487          I
          -FEAT126B 
 MAIN                                                                                      MAIN         488          I
          -FEAT126B 
 MAIN     **        BURST CARD IMAGE INTO STRING BUFFER, PACKING BLANK COUNT.              MAIN         489          I
          -FEAT126B 
 MAIN     *                (LOOP STOLEN BODILY FROM *SCANNER* IN FTNX VER 4.0)             MAIN         490          I
          -FEAT126B 
 MAIN                                                                                      MAIN         491          I
          -FEAT126B 
 MAIN      AFS50    BSS    0           ENTRY..                                             MAIN         492          I
          -FEAT126B 
 MAIN      AFS5B    SB2    B2+B1       INCREMENT BLANK COUNT                               MAIN         493          I
          -FEAT126B 
 MAIN               BX6    -X0*X5      EXTRACT NEXT CHAR                                   MAIN         494          I
          -FEAT126B 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 858    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               SB4    X6+B5                                                           MAIN         495          I
          -FEAT126B 
 MAIN               LX3    CHAR                                                            MAIN         496          I
          -FEAT126B 
 MAIN               SB3    B3-B1       DECREMENT COLUMN COUNTER                            MAIN         497          I
          -FEAT126B 
 MAIN               LX5    CHAR                                                            MAIN         498          I
          -FEAT126B 
 MAIN               ZR     B4,AFS5C    IF BLANK                                            MAIN         499          I
          -FEAT126B 
 MAIN               PX6    X6,B2       PACK CHARACTER AND BLANK COUNT                      MAIN         500          I
          -FEAT126B 
 MAIN               SB2    B0                                                              MAIN         501          I
          -FEAT126B 
 MAIN               SA6    A6+1                                                            MAIN         502          I
          -FEAT126B 
 MAIN                                                                                      MAIN         503          I
          -FEAT126B 
 MAIN      AFS5C    PL     X3,AFS5B    IF WORD NOT EXHAUSTED                               MAIN         504          I
          -FEAT126B 
 MAIN               SB4    10                                                              MAIN         505          I
          -FEAT126B 
 MAIN                                                                                      MAIN         506          I
          -FEAT126B 
 MAIN     **        FETCH NEXT WORD AND CHECK FOR END OF THE IMAGE.                        MAIN         507          I
          -FEAT126B 
 MAIN                                                                                      MAIN         508          I
          -FEAT126B 
 MAIN      AFS5D    SB6    B6+B1       DECREMENT WORD COUNT                                MAIN         509          I
          -FEAT126B 
 MAIN               SA5    A5+B1                                                           MAIN         510          I
          -FEAT126B 
 MAIN               PL     B6,AFS5F    IF LAST WORD OF IMAGE                               MAIN         511          I
          -FEAT126B 
 MAIN                                                                                      MAIN         512          I
          -FEAT126B 
 MAIN     **        CHECK FOR A WORD FULL OF BLANKS, AND IF SO, AVOID LOOPING              MAIN         513          I
          -FEAT126B 
 MAIN     *                THRU IT.                                                        MAIN         514          I
          -FEAT126B 
 MAIN                                                                                      MAIN         515          I
          -FEAT126B 
 MAIN      AFS5E    IX2    X1-X5                                                           MAIN         516          I
          -FEAT126B 
 MAIN               LX5    CHAR                                                            MAIN         517          I
          -FEAT126B 
 MAIN               NZ     X2,AFS5B    IF NOT ALL-BLANK WORD                               MAIN         518          I
          -FEAT126B 
 MAIN               SB2    B2+B4                                                           MAIN         519          I
          -FEAT126B 
 MAIN               SB3    B3-B4                                                           MAIN         520          I
          -FEAT126B 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 859    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               EQ     AFS5D       CONTINUE..  WITH NEXT WORD                          MAIN         521          I
          -FEAT126B 
 MAIN                                                                                      MAIN         522          I
          -FEAT126B 
 MAIN                                                                                      MAIN         523          I
          -FEAT126B 
 MAIN     **        FILL THE SHORT WORD ON THE END OF THE IMAGE WITH BLANKS SO             MAIN         524          I
          -FEAT126B 
 MAIN     *                IT CAN BE CHECKED FOR ALL BLANKS.                               MAIN         525          I
          -FEAT126B 
 MAIN     *                (ALSO SETS UP THE CHARACTER-PER-WORD MASK TO KICK OUT           MAIN         526          I
          -FEAT126B 
 MAIN     *                AFTER THE ACTUAL REMAINING NUMBER OF CHARACTERS.)               MAIN         527          I
          -FEAT126B 
 MAIN                                                                                      MAIN         528          I
          -FEAT126B 
 MAIN      AFS5F    GT     B6,AFS60    IF LAST WORD DONE                                   MAIN         529          I
          -FEAT126B 
 MAIN               SA2    CO.MODE                                                         MAIN         530          I
          -FEAT126B 
 MAIN               MI     X2,AFS60    IF TS FORMAT                                        MAIN         531          I
          -FEAT126B 
 MAIN               MX3    1                                                               MAIN         532          I
          -FEAT126B 
 MAIN               NZ     B3,AFS5E    IF NOT AT COL 71                                    MAIN         533          I
          -FEAT126B 
 MAIN               MX2    2*CHAR                                                          MAIN         534          I
          -FEAT126B 
 MAIN               LX5    CHAR                                                            MAIN         535          I
          -FEAT126B 
 MAIN               BX3    -X2+X3      FORCE STOP AT COL 73                                MAIN         536          I
          -FEAT126B 
 MAIN               EQ     AFS5B       CONTINUE..  (TO COUNT DOWN THE LAST TWO)            MAIN         537          I
          -FEAT126B 
 MAIN                                                                                      MAIN         538          I
          -FEAT126B 
 MAIN                                                                                      MAIN         539          I
          -FEAT126B 
 MAIN     **        ALL BURSTERS RE-JOIN HERE.                                             MAIN         540          I
          -FEAT126B 
 MAIN     *         ENTRY  (B3) = NUMBER OF COLUMNS REMAINING BEFORE COL 75.               MAIN         541          I
          -FEAT126B 
 MAIN     *                (B2) = NUMBER OF BLANKS DISCOVERED WHEN SCAN STOPPED.           MAIN         542          I
          -FEAT126B 
 MAIN     *                (A6) _ AS BEFORE.                                               MAIN         543          I
          -FEAT126B 
 MAIN     *         SET UP PAGE/LINE NUMBER FOR REF PROCESSOR, IF THIS IS AN               MAIN         544          I
          -FEAT126B 
 MAIN     *                *INITIAL LINE* AND NOT *L=0*.                                   MAIN         545          I
          -FEAT126B 
 MAIN                                                                                      MAIN         546          I
          -FEAT126B 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 860    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN      AFS60    SB3    B3+3                                                            MAIN         547          I
          -FEAT126B 
 MAIN               MX7    -1                                                              MAIN         548          I
          -FEAT126B 
 MAIN               SB2    B2+B3                                                           MAIN         549          I
          -FEAT126B 
 MAIN               PX6    X7,B2       PACK TRAINING BLANK COUNT WITH A *-1*.              MAIN         550          I
          -FEAT126B 
 MAIN                                  (-1 IS END OF STRING MARK.)                         MAIN         551          I
          -FEAT126B 
 MAIN               SX7    A6+B1                                                           MAIN         552          I
          -FEAT126B 
 MAIN               SA6    A6+B1       MARK END OF STRING                                  MAIN         553          I
          -FEAT126B 
 MAIN               SA7    LASTCOL                                                         MAIN         554          I
          -FEAT126B 
 MAIN      AFS20    RJ     BUL         BURST THE LINE AT (CP.BUF) ET SEQ                   FEAT126B     109          I
          -FEAT155E 
 MAIN      AFS20    RJ     BUL         BURST THE LINE AT (CP.CARD) ET SEQ                  FEAT155E     149     A     
 MAIN               SA2    =XSLIST                                                         MAIN         555          I
          -FEAT126B 
 MAIN               SA5    DEFERL                                                          MAIN         556          I
          -FEAT126B 
 MAIN               ZR     X2,AFS62    IF NO SOURCE LIST                                   MAIN         557          I
          -FEAT126B 
 MAIN               SA2    ICA                                                             MAIN         558          I
          -FEAT126B 
 MAIN               SX1    CP.BUF-3                                                        MAIN         559          I
          -FEAT126B 
 MAIN               RJ     LSL         LIST SOURCE LINE                                    MAIN         560          I
          -FEAT126B 
 MAIN               SA1    CCNT                                                            MAIN         561          I
          -FEAT126B 
 MAIN               SA2    REFPAG                                                          MAIN         562          I
          -FEAT126B 
 MAIN               NZ     X1,AFS66    IF NOT AN INITIAL LINE.                             MAIN         563          I
          -FEAT126B 
 MAIN               SA3    LCNT                                                            MAIN         564          I
          -FEAT126B 
 MAIN               IX7    X2+X3       SET UP REF LINE FOR *ERT*                           MAIN         565          I
          -FEAT126B 
 MAIN               LX7    P.CRLIN                                                         MAIN         566          I
          -FEAT126B 
 MAIN               SA7    REFLIN                                                          MAIN         567          I
          -FEAT126B 
 MAIN               EQ     AFS66       CONTINUE..                                          MAIN         568          I
          -FEAT126B 
 MAIN                                                                                      MAIN         569          I
          -FEAT126B 
 MAIN      AFS62    SA1    CP.BUF                                                          MAIN         570          I
          -FEAT126B 
 MAIN               SB7    =XO.XPINB   FWA EXPANDED INPUT BUFFER                           MAIN         571          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 861    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
          -FEAT126B 
 MAIN               SB7    -B7                                                             MAIN         572          I
          -FEAT126B 
 MAIN               SB7    B7+=XSAVLINE+3+10                                               MAIN         573          I
          -FEAT126B 
 MAIN               SB7    X5+B7                                                           MAIN         574          I
          -FEAT126B 
 MAIN               PL     B7,AFS66    IF ALREADY HOLDING TOO MANY CARDS                   MAIN         575          I
          -FEAT126B 
 MAIN               SX7    X5+10                                                           MAIN         576          I
          -FEAT126B 
 MAIN               SA7    A5          UPDATE POINTER FOR DEFERRED LINES                   MAIN         577          I
          -FEAT126B 
 MAIN               SB7    X5                                                              MAIN         578          I
          -FEAT126B 
 MAIN               SB4    B7+11       LWA OF TRANSFER                                     MAIN         579          I
          -FEAT126B 
 MAIN               MX0    -2*CHAR                                                         MAIN         580          I
          -FEAT126B 
 MAIN                                                                                      MAIN         581          I
          -FEAT126B 
 MAIN      AFS64    LX6    X1                                                              MAIN         582          I
          -FEAT126B 
 MAIN               BX2    -X0*X1                                                          MAIN         583          I
          -FEAT126B 
 MAIN               SA6    B7+=XSAVLINE+3  MOVE CARD IMAGE TO DEFERRED LIST BUFFER         MAIN         584          I
          -FEAT126B 
 MAIN               =A1    A1+1                                                            MAIN         585          I
          -FEAT126B 
 MAIN               =B7    B7+1                                                            MAIN         586          I
          -FEAT126B 
 MAIN               NZ     X2,AFS64    LOOP TIL END-OF-LINE                                MAIN         587          I
          -FEAT126B 
 MAIN               BX6    0                                                               MAIN         588          I
          -FEAT126B 
 MAIN      AFS65    =B7    B7+1                                                            MAIN         589          I
          -FEAT126B 
 MAIN               =A6    A6+1        MARK TENATIVE END-OF-SUPER-CARD                     MAIN         590          I
          -FEAT126B 
 MAIN               LT     B7,B4,AFS65 ALWAYS TRANSMIT ZERO WORDS TO TOTAL 11              MAIN         591          I
          -FEAT126B 
 MAIN               RJ     PLR         PROCESS LISTING REQUEST                             FEAT126B     110     A     
 MAIN                                                                                      MAIN         592     A     
 MAIN      AFS66    SA3    AFSB                                                            MAIN         593          I
          -FEAT126C 
 MAIN               BX6    X3          CLEAR ADDRESS COLUMNS                               MAIN         594          I
          -FEAT126C 
 MAIN               SA6    CP.BUF-2                                                        MAIN         595          I
          -FEAT126C 
 MAIN                                                                                      MAIN         596     A     
 MAIN                                                                                      MAIN         597     A     
 MAIN     **        CHECK FOR CONTINUATION CARDS.                                          MAIN         598     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 862    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN                                                                                      MAIN         599     A     
 MAIN               SB4    CP.BUF                                                          MAIN         600          I
          -FEAT126C 
 MAIN      AFS66    SB4    =XCP.BUF                                                        FEAT126C     122          I
          -FEAT155E 
 MAIN               RJ     RNC         READ NEXT CARD                                      MAIN         601     A     
 MAIN                                                                                      MAIN         602     A     
 MAIN     **        CHECK FOR AN *ANSI* END LINE.  IF FOUND, DO NOT LOOK                   MAIN         603     A     
 MAIN     *         FOR CONTINUATION LINES.                                                MAIN         604     A     
 MAIN                                                                                      MAIN         605     A     
 MAIN               SA5    CCNT                                                            MAIN         606     A     
 MAIN               NZ     X5,AFS67    IF NOT FIRST LINE, NOT A SPECIAL END LINE           MAIN         607     A     
 MAIN               SA4    LASTCOL                                                         MAIN         608     A     
 MAIN               SX5    "SB.FWA"+3                                                      MAIN         609     A     
 MAIN               IX5    X4-X5                                                           MAIN         610     A     
 MAIN               NZ     X5,AFS67                                                        MAIN         611          I
          -FEAT126B 
 MAIN               NZ     X5,AFS67    IF NOT 3 CHARACTERS LING                            FEAT126B     111     A     
 MAIN               SA3    X4-1        *D*                                                 MAIN         612     A     
 MAIN               UX3    X3                                                              MAIN         613     A     
 MAIN               BX5    X3                                                              MAIN         614     A     
 MAIN               =A3    A3-1        *N*                                                 MAIN         615     A     
 MAIN               UX3    X3                                                              MAIN         616     A     
 MAIN               LX3    CHAR                                                            MAIN         617     A     
 MAIN               BX5    X3+X5                                                           MAIN         618     A     
 MAIN               =A3    A3-1        *E*                                                 MAIN         619     A     
 MAIN               UX3    X3                                                              MAIN         620     A     
 MAIN               LX3    2*CHAR                                                          MAIN         621     A     
 MAIN               BX5    X3+X5                                                           MAIN         622     A     
 MAIN               SX5    X5-3REND                                                        MAIN         623     A     
 MAIN               ZR     X5,AFS78    IF NOT *END*                                        MAIN         624          I
          -FEAT126B 
 MAIN               ZR     X5,AFS78    IF AN ANSI END LINE OCCURRED                        FEAT126B     112     A     
 MAIN      AFS67    SA5    X0                                                              MAIN         625          I
          -FEAT155E 
 MAIN      AFS67    SA5    B4                                                              FEAT155E     150     A     
 MAIN               SB6    -B7         (B6) = -NR OF USEABLE WORDS IN SOURCE LINE          FCC1328X     133     A     
 MAIN               SA4    LASTCOL                                                         MAIN         626          I
          -FEAT126B 
 MAIN               NZ     X1,AFS78    IF END-OF-SECTION                                   MAIN         627     A     
 MAIN               RJ     RNS         READ NEXT STATEMENT                                 MAIN         628     A     
 MAIN               SA4    LASTCOL                                                         MAIN         629          I
          -FEAT126B 
 MAIN               ZR     X5,AFS78    IF END OF SECTION                                   MAIN         630     A     
 MAIN                                                                                      FEAT126B     113     A     
 MAIN     *         CHECK FOR C/-LIST OPTION.                                              FEAT126B     114     A     
 MAIN                                                                                      FEAT126B     115     A     
 MAIN               RJ     CLO         CHECK FOR C/-LIST OPTION                            FEAT126B     116     A     
 MAIN               ZR     X5,AFS78    IF END-OF-SECTION OR C/-LIST OCCURRED               FEAT126B     117     A     
 MAIN               SA2    CO.MODE                                                         MAIN         631          I
          -FEAT126B 
 MAIN               ZR     X2,AFS70    IF BATCH FORMAT                                     MAIN         632          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 863    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
          -FEAT126B 
 MAIN                                                                                      MAIN         633          I
          -FEAT126B 
 MAIN     **        CHECK FOR CONTINUATION (SEQ FORMAT)                                    MAIN         634          I
          -FEAT126B 
 MAIN                                                                                      MAIN         635          I
          -FEAT126B 
 MAIN               SX1    B7-1R+                                                          MAIN         636          I
          -FEAT126B 
 MAIN               ZR     X6,AFS78    IF LINE DOES NOT BEGIN WITH NUMBER                  MAIN         637          I
          -FEAT126B 
 MAIN               NZ     X1,AFS78    IF NOT PLUS(+)                                      MAIN         638          I
          -FEAT126B 
 MAIN               LX3    CHAR                                                            MAIN         639          I
          -FEAT126B 
 MAIN               SB3    B3-B1                                                           MAIN         640          I
          -FEAT126B 
 MAIN               BX6    X3          SAVE (X3)                                           MAIN         641          I
          -FEAT126B 
 MAIN               SX7    B3+3                                                            MAIN         642          I
          -FEAT126B 
 MAIN               SA6    AFSD                                                            MAIN         643          I
          -FEAT126B 
 MAIN               PL     X3,AFS71    IF WORD NOT EXHAUSTED                               MAIN         644          I
          -FEAT126B 
 MAIN               SA5    A5+B1       NEXT WORD                                           MAIN         645          I
          -FEAT126B 
 MAIN               SB6    B6+B1       DECREMENT WORD COUNT                                MAIN         646          I
          -FEAT126B 
 MAIN               EQ     AFS71                                                           MAIN         647          I
          -FEAT126B 
 MAIN                                                                                      MAIN         648          I
          -FEAT126B 
 MAIN     **        CHECK FOR CONTINUATION (BATCH FORMAT)                                  MAIN         649          I
          -FEAT126B 
 MAIN                                                                                      MAIN         650          I
          -FEAT126B 
 MAIN      AFS70    SX7    66+1                                                            MAIN         651          I
          -FEAT126B 
 MAIN               LX5    6*CHAR                                                          MAIN         652          I
          -FEAT126B 
 MAIN               SA3    AFSC                                                            MAIN         653          I
          -FEAT126B 
 MAIN               BX2    -X0*X5      ISOLATE COLUMN 6                                    MAIN         654          I
          -FEAT126B 
 MAIN               SB3    X2                                                              MAIN         655          I
          -FEAT126B 
 MAIN               AX1    X3,B3                                                           MAIN         656          I
          -FEAT126B 
 MAIN               LX1    -1                                                              MAIN         657          I
          -FEAT126B 
 MAIN               MI     X1,AFS78    IF ZERO OR BLANK IN COL SIX -- INITIAL LINE         MAIN         658          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 864    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
          -FEAT126B 
 MAIN      AFS71    SA1    CCNT                                                            MAIN         659          I
          -FEAT126B 
 MAIN               SA2    LOCORE                                                          MAIN         660          I
          -FEAT126B 
 MAIN               =X6    X1+1        ADVANCE (CCNT)                                      MAIN         661          I
          -FEAT126B 
 MAIN               IX3    X2-X4                                                           MAIN         662          I
          -FEAT126B 
 MAIN               IX7    X3-X7                                                           MAIN         663          I
          -FEAT126B 
 MAIN               SA6    A1                                                              MAIN         664          I
          -FEAT126B 
 MAIN               NG     X7,AFS.OV   IF NOT ENUF ROOM FOR NEXT LINE                      MAIN         665          I
          -FEAT126B 
 MAIN      AFS76    SA2    X4          FETCH PREVIOUS *EOS* MARK                           MAIN         666          I
          -FEAT126B 
 MAIN               =A3    A2-1                                                            MAIN         667          I
          -FEAT126B 
 MAIN               UX1,B2 X2                                                              MAIN         668          I
          -FEAT126B 
 MAIN               BX6    X3                                                              MAIN         669          I
          -FEAT126B 
 MAIN               SB2    B2-B1                                                           MAIN         670          I
          -FEAT126B 
 MAIN               SA6    A2-B1       RE-SET STORE ADDRESS, -1                            MAIN         671          I
          -FEAT126B 
 MAIN               SA1    CO.MODE                                                         MAIN         672          I
          -FEAT126B 
 MAIN               ZR     X1,AFS20    IF BATCH FORMAT                                     MAIN         673          I
          -FEAT126B 
 MAIN               PL     B6,AFS60    IF ALL-BLANK LINE                                   MAIN         674          I
          -FEAT126B 
 MAIN               LX5    CHAR                                                            MAIN         675          I
          -FEAT126B 
 MAIN               SA3    AFSD        RESTORE (X3)                                        MAIN         676          I
          -FEAT126B 
 MAIN               EQ     AFS26                                                           MAIN         677          I
          -FEAT126B 
 MAIN                                                                                      FEAT126B     118     A     
 MAIN     *         CHECK FOR CONTINUATION LINE.                                           FEAT126B     119     A     
 MAIN                                                                                      FEAT126B     120     A     
 MAIN               RJ     CNT         CHECK FOR CONTINUATION LINE                         FEAT126B     121     A     
 MAIN               ZR     X1,AFS20    IF THIS LINE IS A CONTINUATION LINE                 FEAT126B     122     A     
 MAIN                                                                                      MAIN         678     A     
 MAIN                                                                                      MAIN         679     A     
 MAIN     **        END OF STATEMENT.                                                      MAIN         680     A     
 MAIN     *                (X4) = TEMPORARY (LASTCOL)                                      MAIN         681          I
          -FEAT126B 
 MAIN                                                                                      MAIN         682          I
          -FEAT126B 
 MAIN      AFS78    SX3    A0                                                              MAIN         683          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 865    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
          -FEAT126B 
 MAIN                                                                                      FEAT126B     123     A     
 MAIN      AFS78    SA4    LASTCOL                                                         FEAT126B     124     A     
 MAIN               SX3    A0                                                              FEAT126B     125     A     
 MAIN               IX7    X4-X3       (LASTCOL) = ORDINAL OF LAST WORD OCCUPIED           MAIN         684     A     
 MAIN                                  BY THIS STATEMENT IN *SB*                           MAIN         685     A     
 MAIN               SA7    A4                                                              MAIN         686     A     
 MAIN               SB4    "SB.FWA"                                                        MAIN         687     A     
 MAIN               SA2    CCNT                                                            MAIN         688     A     
 MAIN               SB3    X2-ANS.CONT                                                     MAIN         689     A     
 MAIN               MI     B3,AFSX     IF NOT TOO MANY CONTINUATION CARDS                  MAIN         690          I
          -FCC0844
 MAIN               LE     B3,AFSX     IF NOT TOO MANY CONTINUATION CARDS                  FCC0844       10     A     
 MAIN               EQ     E.MCA       ** TOO MANY CONT CARDS (ANSI) **                    MAIN         691     A     
 MAIN                                                                                      MAIN         692     A     
 MAIN                                                                                      MAIN         693     A     
 MAIN     **        HANDLE OVERFLOW OF STRING BUFFER HERE.                                 MAIN         694          I
          -FEAT126B 
 MAIN                                                                                      MAIN         695          I
          -FEAT126B 
 MAIN      AFS.OV   SX1    X4+2*66     GET ENUF ROOM FOR 2 MORE FULL CARDS                 MAIN         696          I
          -FEAT126B 
 MAIN               =X6    PASS=AFS                                                        MAIN         697          I
          -FEAT126B 
 MAIN               SA6    PASS                                                            MAIN         698          I
          -FEAT126B 
 MAIN               RJ     ACL         ADJUST CORE LIMITS                                  MAIN         699          I
          -FEAT126B 
 MAIN               SA4    LASTCOL                                                         MAIN         700          I
          -FEAT126B 
 MAIN               =X6    PASS=PAR                                                        MAIN         701          I
          -FEAT126B 
 MAIN               MX0    -CHAR                                                           MAIN         702          I
          -FEAT126B 
 MAIN               SA6    PASS                                                            MAIN         703          I
          -FEAT126B 
 MAIN               EQ     AFS76                                                           MAIN         704          I
          -FEAT126B 
 MAIN                                                                                      MAIN         705          I
          -FEAT126B 
 MAIN                                                                                      MAIN         706          I
          -FEAT126B 
 MAIN     **        HERE WHEN END-OF-SECTION ENCOUNTERED INSTEAD OF AN INITIAL             MAIN         707     A     
 MAIN     *                LINE.  FAKE UP AN *END* STATEMENT.                              MAIN         708     A     
 MAIN                                                                                      MAIN         709     A     
 MAIN      AFS.ME   SX5    EOS                                                             MAIN         710     A     
 MAIN               SA5    X5+LGR                                                          MAIN         711     A     
 MAIN               BX7    X5                                                              MAIN         712     A     
 MAIN               MX6    0                                                               MAIN         713     A     
 MAIN               SA6    SB.STNL     CLEAR STMT LABEL FOR FAKE END                       MAIN         714     A     
 MAIN               SA6    "SB.FWA"    INDICATE EMPTY AFTER KEYWORD                        MAIN         715          I
          -FCC0826
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 866    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               SB4    "SB.FWA"                                                        FCC0826       13     A     
 MAIN               SA6    LASTCOL                                                         FCC0826       14     A     
 MAIN               SA6    B4          INDICATE EMPTY AFTER KEYWORD                        FCC0826       15     A     
 MAIN               SX6    A6                                                              MAIN         716     A     
 MAIN               SA6    "SB.BOS"                                                        MAIN         717     A     
 MAIN               EQ     AFS.EOS     EXIT..                                              MAIN         718     A     
 MAIN                                                                                      MAIN         719     A     
 MAIN      AFSA     DATA   0           SAVE CELL FOR (B6).                                 MAIN         720          I
          -FCC1328X 
 MAIN      AFSB     DIS    1,          BLANKS IF SOURCE LISTING,                           MAIN         721          I
          -FEAT126C 
 MAIN     ,                            ***    IF OBJECT LISTING.                           MAIN         722          I
          -FEAT126C 
 MAIN                                                                                      MAIN         723          I
          -FEAT126C 
 MAIN      AFSC     BSS    0           MASK TO CHECK FOR ZERO OR BLANK                     MAIN         724     A     
 MAIN               ECHO   2,CC=(1R ,1R0)                                                  MAIN         725     A     
 MAIN               POS    CC+1                                                            MAIN         726     A     
 MAIN               VFD    1/1                                                             MAIN         727     A     
 MAIN               POS    0                                                               MAIN         728     A     
 MAIN      AFSD     DATA   0           SAVE CELL FOR (X3)                                  MAIN         729          I
          -FEAT126B 
 MAIN     CPM.724                                                                          MAIN         730          I
          -FEAT126B 
 MAIN                                                                                      FEAT126B     126          I
          -FEAT155E 
 MAIN      AFSD     BSS    1           SAVED LINE NR (DPC, 0R FMT)                         FEAT126B     127          I
          -FEAT155E 
 MAIN      AFSE     BSS    1           SAVED LINE NR (DPC, 0L FMT)                         FEAT126B     128          I
          -FEAT155E 
 MAIN      ACD      SPACE  4                                                               MAIN         731     A     
 MAIN     **        ACD - ASSEMBLE CODED DIGITS.                                           MAIN         732     A     
 MAIN     *                                                                                MAIN         733     A     
 MAIN     *         ENTRY  (A5) _ ADDRESS OF STATEMENT.                                    MAIN         734     A     
 MAIN     *                (X0) = MX0  -CHAR                                               MAIN         735     A     
 MAIN     *                (X3) = CHARACTER POSITION.                                      MAIN         736     A     
 MAIN     *                (X5) = STATEMENT WORD.                                          MAIN         737     A     
 MAIN     *                (B3) = COLUMN NUMBER.                                           MAIN         738     A     
 MAIN     *                (B4) = NUMBER OF DIGITS TO ASSEMBLE.                            MAIN         739     A     
 MAIN     *                (B6) = NO. OF WORDS REMAINING.                                  MAIN         740     A     
 MAIN     *                                                                                MAIN         741     A     
 MAIN     *         EXIT   (A5) _ ADDRESS OF STATEMENT.                                    MAIN         742     A     
 MAIN     *                (X3) = CHARACTER POSITION.                                      MAIN         743     A     
 MAIN     *                (X5) = SHIFTED TO CHARACTER WHICH TERMINATED ASSEMBLY.          MAIN         744     A     
 MAIN     *                (X6) = DIGITS IN 0R FORMAT.                                     MAIN         745     A     
 MAIN     *                (B2) = NO. OF LEADING BLANKS.                                   MAIN         746          I
          -FCC1328X 
 MAIN     *                (B2) = NR OF LEADING BLANKS (BIASED BY -1777B)                  FCC1328X     134     A     
 MAIN     *                         (E.G. FOR 1 LEADING BLANK, (B2) = -1776B)              FCC1328X     135     A     
 MAIN     *                (B5) = LEFT JUSTIFY COUNT.                                      MAIN         747     A     
 MAIN     *                (B6) = NUMBER OF WORDS REMAINING.                               MAIN         748     A     
 MAIN     *                (B7) = CHARACTER WHICH TERMINATED ASSEMBLY.                     MAIN         749     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 867    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     *                                                                                MAIN         750     A     
 MAIN     *         USES   A - 2, 4, 5.                                                    MAIN         751     A     
 MAIN     *                X - 1, 2, 3, 4, 5, 6, 7.                                        MAIN         752     A     
 MAIN     *                B - 2, 3, 4, 5, 6, 7.                                           MAIN         753     A     
 MAIN     *                                                                                MAIN         754     A     
 MAIN     *         CALLS  NONE.                                                           MAIN         755     A     
 MAIN                                                                                      MAIN         756     A     
 MAIN                                                                                      MAIN         757     A     
 MAIN      ACD      SUBR               ENTRY/EXIT...                                       MAIN         758     A     
 MAIN               SA1    =1H                                                             MAIN         759     A     
 MAIN               SB5    10*CHAR     LEFT JUSTIFY SHIFT COUNT                            MAIN         760     A     
 MAIN               BX6    X6-X6       CLEAR ASSEMBLY                                      MAIN         761     A     
 MAIN               SB2    B0          INDICATE NO LEADING BLANKS                          MAIN         762          I
          -FCC1328X 
 MAIN               SB2    0-1777B     INDICATE NO LEADING BLANKS                          FCC1328X     136     A     
 MAIN               SA4    ="NUM09"                                                        MAIN         763     A     
 MAIN                                                                                      MAIN         764     A     
 MAIN     **        SKIP OVER LEADING BLANKS.                                              MAIN         765     A     
 MAIN                                                                                      MAIN         766     A     
 MAIN      ACD1     IX2    X5-X1                                                           MAIN         767     A     
 MAIN               NZ     X2,ACD3     IF NOT ALL-BLANK WORD                               MAIN         768     A     
 MAIN      ACD2     SB7    10                                                              MAIN         769     A     
 MAIN               SB6    B6+B1       DECREMENT WORD COUNT                                MAIN         770     A     
 MAIN               SA5    A5+B1       NEXT WORD                                           MAIN         771     A     
 MAIN               SB2    B2+B7       INCREMENT BLANK COUNT                               MAIN         772     A     
 MAIN               SB3    B3-B7       DECREMENT COLUMN COUNT                              MAIN         773     A     
 MAIN               PL     B6,ACDX     IF LAST WORD, EXIT                                  MAIN         774     A     
 MAIN               LX5    CHAR                                                            MAIN         775     A     
 MAIN               EQ     ACD1                                                            MAIN         776     A     
 MAIN                                                                                      MAIN         777     A     
 MAIN      ACD3     BX2    -X0*X5      EXTRACT CHAR                                        MAIN         778     A     
 MAIN               SB7    X2-1R                                                           MAIN         779     A     
 MAIN               NZ     B7,ACD4     IF NOT BLANK                                        MAIN         780     A     
 MAIN               LX3    CHAR                                                            MAIN         781     A     
 MAIN               SB2    B2+B1       INCREMENT BLANK COUNT                               MAIN         782     A     
 MAIN               LX5    CHAR                                                            MAIN         783     A     
 MAIN               SB3    B3-B1                                                           MAIN         784     A     
 MAIN               PL     X3,ACD3     IF WORD NOT EXHAUSTED                               MAIN         785     A     
 MAIN               EQ     ACD2                                                            MAIN         786     A     
 MAIN                                                                                      MAIN         787     A     
 MAIN     **        ASSEMBLE DIGITS.                                                       MAIN         788     A     
 MAIN                                                                                      MAIN         789     A     
 MAIN      ACD4     SB7    X2                                                              MAIN         790     A     
 MAIN               LX1    X4,B7                                                           MAIN         791     A     
 MAIN               PL     X1,ACDX     IF NOT DIGIT                                        MAIN         792     A     
 MAIN               ZR     B4,ACDX     IF NO MORE DIGITS TO ASSEMBLE                       MAIN         793     A     
 MAIN               SB4    B4-B1       DECREMENT NO. OF DIGITS                             MAIN         794     A     
 MAIN               LX6    CHAR                                                            MAIN         795     A     
 MAIN               SB5    B5-CHAR                                                         MAIN         796     A     
 MAIN               LX3    CHAR                                                            MAIN         797     A     
 MAIN               BX6    X6+X2       ADD IN NEW DIGIT                                    MAIN         798     A     
 MAIN               SB3    B3-B1                                                           MAIN         799     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 868    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               PL     X3,ACD5     IF WORD NOT EXHAUSTED                               MAIN         800     A     
 MAIN               SB6    B6+B1       DECREMENT WORD COUNT                                MAIN         801     A     
 MAIN               SA5    A5+B1       NEXT WORD                                           MAIN         802     A     
 MAIN               PL     B6,ACDX     IF LAST WORD                                        MAIN         803     A     
 MAIN      ACD5     LX5    CHAR                                                            MAIN         804     A     
 MAIN               BX2    -X0*X5      EXTRACT CHARACTER                                   MAIN         805     A     
 MAIN               EQ     ACD4                                                            MAIN         806     A     
 MAIN      ALN      SPACE  4                                                               MAIN         807     A     
 MAIN     **        ALN - ASSEMBLE LINE NUMBER.                                            MAIN         808     A     
 MAIN     *                                                                                MAIN         809     A     
 MAIN     *         ENTRY  (A5) _ FWA OF STATEMENT.                                        MAIN         810     A     
 MAIN     *                (X5) = FIRST WORD OF STATEMENT.                                 MAIN         811     A     
 MAIN     *                (B6) _ LWA+1 OF STATEMENT.                                      MAIN         812          I
          -FCC1328X 
 MAIN     *                (B6) = -NR OF USEABLE WORDS IN SOURCE LINE IMAGE                FCC1328X     137     A     
 MAIN     *                         (I.E. DOES NOT INCLUDE FULL WORD EOL MARK)             FCC1328X     138     A     
 MAIN     *                                                                                MAIN         813     A     
 MAIN     *         EXIT   (X0) = MX0  -CHAR                                               MAIN         814     A     
 MAIN     *                (X1) > 0 (BLANK OR PLUS (+) TERMINATED ASSEMBLY.                MAIN         815     A     
 MAIN     *                (X3) = CHARACTER POSITION.                                      MAIN         816     A     
 MAIN     *                (X5) = SHIFTED TO CHARACTER WHICH TERMINATED ASSEMBLY.          MAIN         817     A     
 MAIN     *                (X6) = LINE NUMBER IN 0R FORMAT.                                MAIN         818     A     
 MAIN     *                (B2) = NR OF LEADING BLANKS (BIASED BY -1777B)                  FCC1328X     139     A     
 MAIN     *                         (E.G. FOR 1 LEADING BLANK, (B2) = -1776B)              FCC1328X     140     A     
 MAIN     *                (B3) = NO. OF COLUMNS REMAINING.                                MAIN         819     A     
 MAIN     *                (B6) = NO. OF WORDS REMAINING.                                  MAIN         820          I
          -FCC1328X 
 MAIN     *                (B6) = -NR OF USABLE WORDS REMAINING IN SOURCE LINE,            FCC1328X     141     A     
 MAIN     *                         ADJUSTED FOR ASSEMBLED LINE NR (IF NECESSARY)          FCC1328X     142     A     
 MAIN     *                (B7) = CHARACTER WHICH TERMINATED ASSEMBLY.                     MAIN         821     A     
 MAIN     *                                                                                MAIN         822     A     
 MAIN     *         USES   A - 4.                                                          MAIN         823     A     
 MAIN     *                X - 0, 1, 3, 4, 5, 6.                                           MAIN         824     A     
 MAIN     *                B - 2, 3, 4, 6.                                                 MAIN         825     A     
 MAIN     *                                                                                MAIN         826     A     
 MAIN     *         CALLS  ASD.                                                            MAIN         827          I
          -FEAT126C 
 MAIN     *         CALLS  ACD.                                                            FEAT126C     123     A     
 MAIN                                                                                      MAIN         828     A     
 MAIN      LG.LN    EQU    5           NUMBER OF DIGITS TO ASSEMBLE FOR *LN*               MAIN         829     A     
 MAIN                                                                                      MAIN         830     A     
 MAIN                                                                                      MAIN         831     A     
 MAIN      ALN      SUBR               ENTRY/EXIT...                                       MAIN         832     A     
 MAIN               MX0    -CHAR                                                           MAIN         833     A     
 MAIN               SB6    A5-B6       FWA - (LWA+1) = -WC.                                MAIN         834          I
          -FCC1328X 
 MAIN               SB3    80-2        NUMBER OF COLUMNS TO PROCESS, ADJUSTED FOR          MAIN         835          I
          -FCC1328X 
 MAIN     *                            AFS60                                               MAIN         836          I
          -FCC1328X 
 MAIN               SB3    80-2        (B3) = NR OF COLS TO PROCESS                        FCC1328X     143     A     
 MAIN     *                                     (ADJUSTED FOR *BUL*)                       FCC1328X     144     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 869    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               LX5    CHAR                                                            MAIN         837     A     
 MAIN               MX3    1                                                               MAIN         838     A     
 MAIN               SB4    -8                                                              MAIN         839     A     
 MAIN               GE     B6,B4,ALN1  LIMIT BURST TO 8 WORDS                              MAIN         840     A     
 MAIN               SB6    B4                                                              MAIN         841     A     
 MAIN      ALN1     SB4    LG.LN                                                           MAIN         842     A     
 MAIN               RJ     ACD         ASSEMBLE LINE NUMBER                                MAIN         843     A     
 MAIN               SA4    ALNA                                                            MAIN         844     A     
 MAIN               AX1    X4,B7                                                           MAIN         845     A     
 MAIN               LX1    -1                                                              MAIN         846     A     
 MAIN               LX7    X6,B5                                                           FEAT126B     129          I
          -FEAT155E 
 MAIN               SA6    AFSD                                                            FEAT126B     130          I
          -FEAT155E 
 MAIN               SA7    AFSE                                                            FEAT126B     131          I
          -FEAT155E 
 MAIN               SA4    CCNT                                                            FEAT155E     151          I
          -FCC1328X 
 MAIN               NZ     X4,ALNX     IF NOT FIRST CARD OF STATEMENT                      FEAT155E     152          I
          -FCC1328X 
 MAIN               SA6    "SB.LN"                                                         FEAT155E     153          I
          -FCC1328X 
 MAIN               BX4    X6                                                              FEAT155E     154          I
          -FCC1328X 
 MAIN               LX1    X6,B5                                                           FEAT155E     155          I
          -FCC1328X 
 MAIN               RJ     DXB                                                             FEAT155E     156          I
          -FCC1328X 
 MAIN               SA1    SEQNO                                                           FEAT155E     157          I
          -FCC1328X 
 MAIN               BX7    X1                                                              FEAT155E     158          I
          -FCC1328X 
 MAIN               SA6    A1                                                              FEAT155E     159          I
          -FCC1328X 
 MAIN               LX7    CHAR                                                            FEAT155E     160          I
          -FCC1328X 
 MAIN               SA7    REFLIN                                                          FEAT155E     161          I
          -FCC1328X 
 MAIN               BX6    X4                                                              FEAT155E     162          I
          -FCC1328X 
 MAIN               SA4    ALNA                                                            FEAT155E     163          I
          -FCC1328X 
 MAIN               AX1    X4,B7                                                           FEAT155E     164          I
          -FCC1328X 
 MAIN               LX1    -1                                                              FEAT155E     165          I
          -FCC1328X 
 MAIN               LX7    X6,B5                                                           FCC1328X     145     A     
 MAIN               SA6    SEQNO       SAVE (X6) = SEQUENCE NR (0R FORMAT)                 FCC1328X     146     A     
 MAIN               SA7    A6+B1       SAVE (X7) = SEQUENCE NR (0L FORMAT)                 FCC1328X     147     A     
 MAIN               EQ     ALNX        RETURN                                              MAIN         847     A     
 MAIN                                                                                      MAIN         848     A     
 MAIN      ALNA     BSS    0           MASK TO CHECK FOR BLANK OR PLUS (+)                 MAIN         849     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 870    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               ECHO   2,CC=(1R ,1R+)                                                  MAIN         850     A     
 MAIN               POS    CC+1                                                            MAIN         851     A     
 MAIN               VFD    1/1                                                             MAIN         852     A     
 MAIN               POS    0                                                               MAIN         853     A     
 MAIN                                                                                      FEAT155E     166          I
          -FCC1328X 
 MAIN      SEQNO    BSS    1           SEQUENCE NO. OF NEXT STATEMENT - BINARY             FEAT155E     167          I
          -FCC1328X 
 MAIN                                                                                      FCC1328X     148     A     
 MAIN                                                                                      FCC1328X     149     A     
 MAIN      SEQNO    BSSZ   2           CONTAINS THE SEQUENCE NR OF THE CURRENT             FCC1328X     150     A     
 MAIN     *                              LINE AT (CP.CARD) ET SEQ.                         FCC1328X     151     A     
 MAIN     *                              (SEQNO) = 0R FORMAT, (SEQNO+1) = 0L FMT           FCC1328X     152     A     
 MAIN     *                              IF THIS LINE IS AN INITIAL LINE OF STMT,          FCC1328X     153     A     
 MAIN     *                              THEN (SEQNO) WILL BE XFERRED TO ("SB.LN")         FCC1328X     154     A     
 MAIN     *                              AND (SEQNO+1) WILL BE USED TO SET UP              FCC1328X     155     A     
 MAIN     *                              (REFLIN)                                          FCC1328X     156     A     
 MAIN      ASK      SPACE  4                                                               MAIN         854          I
          -FEAT126B 
 MAIN                                                                                      MAIN         855          I
          -FEAT126B 
 MAIN                                                                                      MAIN         856          I
          -FEAT126B 
 MAIN     **        CODE STOLEN FROM COMPASS TO UNPACK UPDATE AND MODIFY TEXT.             MAIN         857          I
          -FEAT126B 
 MAIN                                                                                      MAIN         858          I
          -FEAT126B 
 MAIN      RNS      SKIP                                                                   MAIN         859          I
          -FEAT126B 
 MAIN     **        UNPACK MODIFY COMPRESSED CARD.                                         MAIN         860          I
          -FEAT126B 
 MAIN                                                                                      MAIN         861          I
          -FEAT126B 
 MAIN               MX3    59                                                              MAIN         862          I
          -FEAT126B 
 MAIN               SB4    -B1                                                             MAIN         863          I
          -FEAT126B 
 MAIN               SB5    1R                                                              MAIN         864          I
          -FEAT126B 
 MAIN               EQ     RNS3C                                                           MAIN         865          I
          -FEAT126B 
 MAIN      RNS3A    LX5    CHAR        EXTRACT NEXT CHARACTER                              MAIN         866          I
          -FEAT126B 
 MAIN               BX3    -X0*X5                                                          MAIN         867          I
          -FEAT126B 
 MAIN               ZR     X3,RNS6     IF 0000 (END OF LINE)                               MAIN         868          I
          -FEAT126B 
 MAIN      RNS3B    SX3    X3+B4                                                           MAIN         869          I
          -FEAT126B 
 MAIN               SA6    A6+B1       STORE CHARACTER                                     MAIN         870          I
          -FEAT126B 
 MAIN               PL     X3,RNS3B    IF FILLING BLANKS, LOOP                             MAIN         871          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 871    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
          -FEAT126B 
 MAIN               NZ     B7,RNS3C    IF SOURCE WORD NOT EXHAUSTED                        MAIN         872          I
          -FEAT126B 
 MAIN               SA5    A5+B1                                                           MAIN         873          I
          -FEAT126B 
 MAIN               SB7    B3                                                              MAIN         874          I
          -FEAT126B 
 MAIN      RNS3C    LX5    CHAR                                                            MAIN         875          I
          -FEAT126B 
 MAIN               SB6    X6                                                              MAIN         876          I
          -FEAT126B 
 MAIN               BX6    -X0*X5      EXTRACT NEXT CHARACTER                              MAIN         877          I
          -FEAT126B 
 MAIN               LX4    X1,B6                                                           MAIN         878          I
          -FEAT126B 
 MAIN               SB7    B7-B1                                                           MAIN         879          I
          -FEAT126B 
 MAIN               BX7    X7+X4                                                           MAIN         880          I
          -FEAT126B 
 MAIN               NZ     X6,RNS3B    IF NOT 00                                           MAIN         881          I
          -FEAT126B 
 MAIN               SB7    B7-B1                                                           MAIN         882          I
          -FEAT126B 
 MAIN               SX6    B5                                                              MAIN         883          I
          -FEAT126B 
 MAIN               PL     B7,RNS3A    IF SOURCE WORD NOT EXHAUSTED                        MAIN         884          I
          -FEAT126B 
 MAIN               SA5    A5+B1                                                           MAIN         885          I
          -FEAT126B 
 MAIN               SB7    B3-B1                                                           MAIN         886          I
          -FEAT126B 
 MAIN               EQ     RNS3A                                                           MAIN         887          I
          -FEAT126B 
 MAIN                                                                                      MAIN         888          I
          -FEAT126B 
 MAIN                                                                                      MAIN         889          I
          -FEAT126B 
 MAIN     **        UNPACK UPDATE COMPRESSED CARD.                                         MAIN         890          I
          -FEAT126B 
 MAIN                                                                                      MAIN         891          I
          -FEAT126B 
 MAIN      RNS4     SB4    B0                                                              MAIN         892          I
          -FEAT126B 
 MAIN               SB5    1R                                                              MAIN         893          I
          -FEAT126B 
 MAIN               SB6    B5                                                              MAIN         894          I
          -FEAT126B 
 MAIN               EQ     RNS4B                                                           MAIN         895          I
          -FEAT126B 
 MAIN                                                                                      MAIN         896          I
          -FEAT126B 
 MAIN      RNS4A    SB4    B4-B1       STORE CHARACTER                                     MAIN         897          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 872    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
          -FEAT126B 
 MAIN               SA6    A6+B1                                                           MAIN         898          I
          -FEAT126B 
 MAIN               PL     B4,RNS4A    LOOP IF FILLING BLANKS                              MAIN         899          I
          -FEAT126B 
 MAIN      RNS4B    LX5    CHAR                                                            MAIN         900          I
          -FEAT126B 
 MAIN               SB7    B7-B1                                                           MAIN         901          I
          -FEAT126B 
 MAIN               BX6    -X0*X5      EXTRACT NEXT CHARACTER                              MAIN         902          I
          -FEAT126B 
 MAIN               LX4    X1,B6                                                           MAIN         903          I
          -FEAT126B 
 MAIN               NZ     B7,RNS4C    IF SOURCE WORD NOT EXHAUSTED                        MAIN         904          I
          -FEAT126B 
 MAIN               SA5    A5+B1                                                           MAIN         905          I
          -FEAT126B 
 MAIN               SB7    B3                                                              MAIN         906          I
          -FEAT126B 
 MAIN      RNS4C    ZR     B6,RNS4D    IF 00XX CODE                                        MAIN         907          I
          -FEAT126B 
 MAIN               SB6    X6                                                              MAIN         908          I
          -FEAT126B 
 MAIN               BX7    X7+X4                                                           MAIN         909          I
          -FEAT126B 
 MAIN               NZ     B6,RNS4A    IF NOT 00 CHARACTER, GO STORE IT                    MAIN         910          I
          -FEAT126B 
 MAIN               EQ     RNS4B       GO GET XX                                           MAIN         911          I
          -FEAT126B 
 MAIN                                                                                      MAIN         912          I
          -FEAT126B 
 MAIN      RNS4D    SB4    X6                                                              MAIN         913          I
          -FEAT126B 
 MAIN               SX6    B5                                                              MAIN         914          I
          -FEAT126B 
 MAIN               SB6    B5                                                              MAIN         915          I
          -FEAT126B 
 MAIN               GT     B4,B1,RNS4A IF 0002-0077 CODE, GO STORE BLANKS                  MAIN         916          I
          -FEAT126B 
 MAIN               SB4    B4-B1                                                           MAIN         917          I
          -FEAT126B 
 MAIN               BX6    0                                                               MAIN         918          I
          -FEAT126B 
 MAIN               ZR     B4,RNS4A    IF 0001 CODE, GO STORE 00 CHARACTER                 MAIN         919          I
          -FEAT126B 
 MAIN               EQ     RNS6        0000 CODE, END OF LINE                              MAIN         920          I
          -FEAT126B 
 MAIN      RNS      ENDIF                                                                  MAIN         921          I
          -FEAT126B 
 MAIN      ASK      SPACE  4,30                                                            MAIN         922     A     
 MAIN     **        ASK -  ADJUST STATEMENT KEYWORD.                                       MAIN         923     A     
 MAIN     *                                                                                MAIN         924     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 873    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     *         REMOVES A KEYWORD FROM THE (NORMALIZED) STRING BUFFER,                 MAIN         925     A     
 MAIN     *                AND ADJUSTS THE REMAINING CHARACTERS.                           MAIN         926     A     
 MAIN     *         ENTRY  (X5) = (JUMPTO. TABLE ENTRY)                                    MAIN         927     A     
 MAIN     *                (B4) _ KEYWORD IN *SB*.                                         MAIN         928     A     
 MAIN     *         EXIT   (B4) _ *SB* ENTRY PAST KEYWORD                                  MAIN         929     A     
 MAIN     *                (B3) = JUMP ADDRESS FOR THE STATEMENT PROCESSOR                 MAIN         930     A     
 MAIN     *                (X3) = 0 IFF KEYWORD WAS CORRECTLY SPELLED.                     MAIN         931     A     
 MAIN     *         USES   A2,A6 X0-X7 B2,B6,B7                                            MAIN         932          I
          -FCC1328X 
 MAIN     *                                                                                FCC1328X     157     A     
 MAIN     *         USES   X - ALL                                                         FCC1328X     158     A     
 MAIN     *                A - 2,4,6                                                       FCC1328X     159     A     
 MAIN     *                B - ALL BUT B5                                                  FCC1328X     160     A     
 MAIN     *                                                                                FCC1328X     161     A     
 MAIN     *         CALLS  NONE                                                            FCC1328X     162     A     
 MAIN                                                                                      MAIN         933     A     
 MAIN                                                                                      MAIN         934     A     
 MAIN     *         HERE WE THROW AWAY INTEGERAL WORDS (MULTIPLES OF 7 CHARS).             MAIN         935     A     
 MAIN                                                                                      MAIN         936     A     
 MAIN      ASK8     SB2    B7-B1       BIT COUNT = BITCOUNT MINUS 7CHARS                   MAIN         937     A     
 MAIN               SB4    B4+B1                                                           MAIN         938     A     
 MAIN               BX6    X7*X2                                                           MAIN         939     A     
 MAIN               IX3    X3-X6       COMPARE KEYWORD (1ST 7 CHAR)                        MAIN         940     A     
 MAIN               NZ     B7,ASK2     IF MORE THAN 7 CHARACTERS IN KEY                    MAIN         941     A     
 MAIN                                                                                      MAIN         942     A     
 MAIN      ASK      SUBR   0                                                               MAIN         943     A     
 MAIN               MX0    4*CHAR                                                          MAIN         944     A     
 MAIN               SB3    X5                                                              MAIN         945     A     
 MAIN               SA4    B3-B1                                                           MAIN         946          I
          -FCC1328X 
 MAIN               SA4    B3-B1       HIJKLMNEFG  WHERE A-N ARE CHARS IN KEYWORD          FCC1328X     163     A     
 MAIN               BX3    X0*X5       ABCD------                                          MAIN         947     A     
 MAIN               LX5    -P.SLEN                                                         MAIN         948     A     
 MAIN               SX1    X4          -------EFG                                          MAIN         949     A     
 MAIN               MX2    -L.SLEN                                                         MAIN         950     A     
 MAIN               IX6    X4-X1       HIJKLMN---                                          MAIN         951     A     
 MAIN               BX7    -X2*X5      ISOLATE BIT COUNT                                   MAIN         952     A     
 MAIN               SB2    X7-4*CHAR                                                       MAIN         953     A     
 MAIN               MI     B2,ASK1     IF 4 CHARACTER KEYWORD (OR LESS)                    MAIN         954     A     
 MAIN               MX0    7*CHAR                                                          MAIN         955     A     
 MAIN               SA2    B4                                                              MAIN         956     A     
 MAIN               BX2    X0*X2                                                           MAIN         957     A     
 MAIN               BX2    X2-X3                                                           MAIN         958     A     
 MAIN               ZR     X2,E.FM     IF NOT ACTUALLY KEYWORD                             MAIN         959     A     
 MAIN      ASK1     SB2    X7                                                              MAIN         960     A     
 MAIN               LX1    3*CHAR      ----EFG---                                          MAIN         961     A     
 MAIN               BX4    X1+X3       ABCDEFG---                                          MAIN         962     A     
 MAIN               SA6    FILL.2      SAVE KEYWORD FOR POSSIBLE ERROR MSG                 MAIN         963     A     
 MAIN               IX3    X4+X6                                                           MAIN         964     A     
 MAIN               MX7    7*CHAR                                                          MAIN         965     A     
 MAIN               BX6    X4                                                              MAIN         966     A     
 MAIN               SA6    A6-B1                                                           MAIN         967     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 874    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN                                                                                      MAIN         968     A     
 MAIN      ASK2     SA2    B4                                                              MAIN         969     A     
 MAIN               SB7    B2-7*CHAR+1                                                     MAIN         970     A     
 MAIN               SX1    X2-O.SEP                                                        MAIN         971     A     
 MAIN               ZR     X2,ASKX     IF *EOS*                                            MAIN         972     A     
 MAIN               PL     X1,ASKX     IF SEPARATOR                                        MAIN         973     A     
 MAIN               PL     B7,ASK8     IF SEVEN OR MORE CHARS                              MAIN         974     A     
 MAIN               MX4    1                                                               MAIN         975     A     
 MAIN               SB6    B4                                                              MAIN         976     A     
 MAIN               AX0    X4,B2       MASK FOR UPPER PART                                 MAIN         977     A     
 MAIN               BX1    X0*X2                                                           MAIN         978     A     
 MAIN               IX3    X3-X1       COMPARE KEYWORD                                     MAIN         979     A     
 MAIN               SB7    B2+18+1                                                         MAIN         980     A     
 MAIN               SB2    B2+B1                                                           MAIN         981     A     
 MAIN               BX7    X7-X0       MASK FOR MIDDLE PART                                MAIN         982     A     
 MAIN               BX1    X7*X2                                                           MAIN         983     A     
 MAIN               LX6    X1,B2                                                           MAIN         984     A     
 MAIN               BX1    X6                                                              MAIN         985     A     
 MAIN               LX6    6                                                               MAIN         986     A     
 MAIN               =X4    O.VAR                                                           MAIN         987     A     
 MAIN               SX6    X6-1R0                                                          MAIN         988     A     
 MAIN               MI     X6,ASK4     IF LETTER                                           MAIN         989     A     
 MAIN               =X4    O.CONS                                                          MAIN         990     A     
 MAIN                                                                                      MAIN         991     A     
 MAIN     *         NOW AN OFFSET CHARACTER MOVE UNTIL WE RUN INTO A SEPARATOR.            MAIN         992     A     
 MAIN                                                                                      MAIN         993     A     
 MAIN      ASK4     SA2    B6+B1                                                           MAIN         994     A     
 MAIN               SX6    X2-O.SEP                                                        MAIN         995     A     
 MAIN               ZR     X2,ASK6     IF *EOS*                                            MAIN         996     A     
 MAIN               PL     X6,ASK6     IF SEPARATOR ENCOUNTERED                            MAIN         997     A     
 MAIN               SX6    X2-O.HOLL                                                       MAIN         998     A     
 MAIN               ZR     X6,ASK6     IF HOLLERITH ENCOUNTERED                            MAIN         999     A     
 MAIN               BX6    X0*X2                                                           MAIN        1000     A     
 MAIN               LX6    B7          MOVE NEXT UPPER TO RESULT MIDDLE                    MAIN        1001     A     
 MAIN               IX6    X6+X1                                                           MAIN        1002     A     
 MAIN               SB6    B6+B1                                                           MAIN        1003     A     
 MAIN               BX6    X6+X4       RESTORE O.VAR (OR O.CONS)                           MAIN        1004     A     
 MAIN               SA6    B6-B1                                                           MAIN        1005     A     
 MAIN               BX6    X7*X2                                                           MAIN        1006     A     
 MAIN               LX1    X6,B2       MOVE CURRENT MIDDLE TO RESULT UPPER                 MAIN        1007     A     
 MAIN               EQ     ASK4                                                            MAIN        1008     A     
 MAIN                                                                                      MAIN        1009     A     
 MAIN     *         HAVE FOUND A STOPPER, IS A MOVE NEEDED QQQ.                            MAIN        1010     A     
 MAIN                                                                                      MAIN        1011     A     
 MAIN      ASK6     BX6    X4+X1                                                           MAIN        1012     A     
 MAIN               SA6    B6          STORE ANY REMAINING PARTIAL WORD                    MAIN        1013     A     
 MAIN               NZ     X1,ASKX     IF THERE WAS ANYTHING IN THE PARTIAL WORD           MAIN        1014     A     
 MAIN                                                                                      MAIN        1015     A     
 MAIN               SB4    B4+B1       *SB* MUST BE ADJUSTED.                              MAIN        1016     A     
 MAIN      ASK7     SA2    B6-B1                                                           MAIN        1017     A     
 MAIN               SB6    B6-B1       COUNT DOWN THE AUXILLARY COUNTER                    MAIN        1018     A     
 MAIN               BX6    X2                                                              MAIN        1019     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 875    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               SA6    A2+B1                                                           MAIN        1020     A     
 MAIN               GE     B6,B4,ASK7        IF NOT YET TO FRONT OF STRING                 MAIN        1021     A     
 MAIN               EQ     ASKX              EXIT..                                        MAIN        1022     A     
 MAIN      ASL      SPACE  4,15                                                            MAIN        1023     A     
 MAIN     **        ASL -  ADJUST STATEMENT LABEL.                                         MAIN        1024     A     
 MAIN     *                                                                                MAIN        1025     A     
 MAIN     *         SPECIAL KLUDGE FOR *DO* AND *ASSIGN* STATEMENTS.  DETERMINES           MAIN        1026     A     
 MAIN     *         LENGTH OF STATEMENT LABEL IN *SB*, AND CALLS *ASK* TO REMOVE           MAIN        1027     A     
 MAIN     *         IT FROM THE STRING.  THUS, THESE POOR STATEMENTS CAN GET AT            MAIN        1028     A     
 MAIN     *         THE NEXT ELEMENT OF THE STATEMENT IN THE USUAL FASHION.                MAIN        1029     A     
 MAIN     *                                                                                MAIN        1030     A     
 MAIN     *         ENTRY  (B4) _ LABEL IN *SB*.                                           MAIN        1031     A     
 MAIN     *                                                                                MAIN        1032     A     
 MAIN     *         EXIT   (B4) MAY BE ADJUSTED.  LOGICALLY, IT POINTS TO THE NEXT         MAIN        1033     A     
 MAIN     *                     *SB* ELEMENT AFTER THE LABEL.                              MAIN        1034     A     
 MAIN     *                (X1) = 0L_LABEL + O.CON.                                        MAIN        1035     A     
 MAIN     *                *SB* ADJUSTED, AS DEFINED BY *ASK*.                             MAIN        1036     A     
 MAIN     *                                                                                MAIN        1037     A     
 MAIN     *         USES   ALL BUT A0.                                                     MAIN        1038     A     
 MAIN     *                (SCR).                                                          MAIN        1039     A     
 MAIN     *         CALLS  ASK.                                                            MAIN        1040     A     
 MAIN                                                                                      MAIN        1041     A     
 MAIN                                                                                      MAIN        1042     A     
 MAIN      ASL      SUBR               ENTRY/EXIT...                                       MAIN        1043     A     
 MAIN               SB5    -O.CONS                                                         MAIN        1044     A     
 MAIN               SA2    =05050505050505BS18                                             MAIN        1045     A     
 MAIN               SA3    =40404040404040BS18                                             MAIN        1046     A     
 MAIN               SB6    B0          INITIALIZE *SB* POINTER                             MAIN        1047     A     
 MAIN               SA1    B4          (X1) = START OF LABEL                               MAIN        1048     A     
 MAIN      ASL1     IX4    X1+X2       SET SIGN BITS OF DIGITS                             MAIN        1049     A     
 MAIN               BX7    -X3+X4      ISOLATE NON-DIGITS                                  MAIN        1050     A     
 MAIN               NZ     X7,ASL2     IF NOT 7-DIGITS                                     MAIN        1051     A     
 MAIN               =B6    B6+B1       UPDATE *SB* POINTER                                 MAIN        1052     A     
 MAIN               SA1    B4+B6       PICK UP NEXT *SB* ENTRY                             MAIN        1053     A     
 MAIN               SX5    X1+B5                                                           MAIN        1054     A     
 MAIN               ZR     X5,ASL1     IF STILL A CONSTANT                                 MAIN        1055     A     
 MAIN               =B2    -1                                                              MAIN        1056     A     
 MAIN               EQ     ASL3                                                            MAIN        1057     A     
 MAIN                                                                                      MAIN        1058     A     
 MAIN      ASL2     LX7    -12                                                             MAIN        1059     A     
 MAIN               NX2,B2 X7          LOCATE FIRST NON-DIGIT                              MAIN        1060     A     
 MAIN               =B2    B2-1                                                            MAIN        1061     A     
 MAIN               MX0    1                                                               MAIN        1062     A     
 MAIN               AX4    X0,B2       MASK LENGTH = DIGIT LENGTH                          MAIN        1063     A     
 MAIN               ZR     B6,ASL4     IF LABEL ONLY 1 WORD LONG                           MAIN        1064     A     
 MAIN      ASL3     MX4    7*CHAR                                                          MAIN        1065     A     
 MAIN               SA1    B4          RESET (X1) = START OF LABEL                         MAIN        1066     A     
 MAIN               SB4    B4+B6       SET B4 TO LAST WORD OF LABEL                        MAIN        1067     A     
 MAIN      ASL4     BX6    X4*X1                                                           MAIN        1068     A     
 MAIN               MI     B2,ASL5     IF LABEL MULTIPLE OF 7 CHARACTERS                   MAIN        1069     A     
 MAIN               SX3    B2                                                              MAIN        1070     A     
 MAIN               MX4    -L.SLEN                                                         MAIN        1071     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 876    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               SX5    1+=0                                                            MAIN        1072     A     
 MAIN               BX3    -X4*X3                                                          MAIN        1073     A     
 MAIN               LX3    P.SLEN                                                          MAIN        1074     A     
 MAIN               SA6    SCR                                                             MAIN        1075     A     
 MAIN               IX5    X5+X3       MANUFACTURE DUMMY *SATTR* WORD FOR *ASK*            MAIN        1076     A     
 MAIN               RJ     ASK         ADJUST OFF THE LABEL                                MAIN        1077     A     
 MAIN               SA1    SCR                                                             MAIN        1078     A     
 MAIN               EQ     EXIT.                                                           MAIN        1079     A     
 MAIN                                                                                      MAIN        1080     A     
 MAIN      ASL5     SA1    B4                                                              MAIN        1081     A     
 MAIN               SX5    X1+B5                                                           MAIN        1082     A     
 MAIN               NZ     X5,ASL6     IF NOT CONSTANT                                     MAIN        1083     A     
 MAIN               SX4    O.VAR-O.CONS                                                    MAIN        1084     A     
 MAIN               IX7    X1+X4                                                           MAIN        1085     A     
 MAIN               SA7    B4                                                              MAIN        1086     A     
 MAIN      ASL6     BX1    X6                                                              MAIN        1087     A     
 MAIN               EQ     EXIT.                                                           MAIN        1088          I
          -FEAT126A 
 MAIN               EQ     EXIT.                                                           FEAT126A     772     A     
 MAIN      BLL      SPACE  4                                                               FEAT126A     773     A     
 MAIN     **        BLL - BREAK LONG LINE                                                  FEAT126A     774     A     
 MAIN     *                                                                                FEAT126A     775     A     
 MAIN     *         WHEN PRINT LINE IS .GT. PAGE WIDTH, BLL PRINTS FIRST PART OF           FEAT126A     776     A     
 MAIN     *         LINE AND LEFT JUSTIFIES REMAINDER.                                     FEAT126A     777     A     
 MAIN     *                                                                                FEAT126A     778     A     
 MAIN     *         ENTRY  (A2) = ADDRESS OF LAST WORD OF 1ST PART                         FEAT126A     779     A     
 MAIN     *                (X2) = LAST WORD OF 1ST PART                                    FEAT126A     780     A     
 MAIN     *                (B2) = FWA OF LINE - 1                                          FEAT126A     781     A     
 MAIN     *                (B5) = NUMBER OF BITS TO PRINT OF LAST WORD OF 1ST PART         FEAT126A     782     A     
 MAIN     *                (B6) = LWA OF LINE - 1                                          FEAT126A     783     A     
 MAIN     *         EXIT   (X1) = FWA OF 2ND PART                                          FEAT126A     784     A     
 MAIN     *                (X2) = LENGTH OF 2ND PART                                       FEAT126A     785     A     
 MAIN     *                (X6) = 0  IF NO LINE PRINTED                                    FEAT126A     786     A     
 MAIN     *                1ST PART PRINTED                                                FEAT126A     787     A     
 MAIN     *         USES   A - 1-4, 6, 7                                                   FEAT126A     788     A     
 MAIN     *                X - 1-4, 6, 7                                                   FEAT126A     789     A     
 MAIN     *                B - 2, 3, 5, 6, 7                                               FEAT126A     790     A     
 MAIN     *         PRESERVES  A0, X0, A5, X5, B4                                          FEAT126A     791     A     
 MAIN     *         CALLS  LSS, PLINE                                                      FEAT126A     792     A     
 MAIN                                                                                      FEAT126A     793     A     
 MAIN      BLL4     SA3    =10H                                                            FEAT126A     794          I
          -FEAT126AA
 MAIN               BX4    X1*X3                                                           FEAT126A     795          I
          -FEAT126AA
 MAIN      BLL4     BX4    X1*X3                                                           FEAT126AA     18     A     
 MAIN               BX6    X4+X2                                                           FEAT126A     796     A     
 MAIN               IX6    X3-X6                                                           FEAT126A     797     A     
 MAIN               NZ     X6,BLL2     IF NOT ALL BLANKS                                   FEAT126A     798     A     
 MAIN               SX1    B2+B1       FWA OF LINE                                         FEAT126A     799     A     
 MAIN               SB6    B6+B1       LWA OF LINE                                         FEAT126A     800     A     
 MAIN               SX2    B6-B2       LENGTH OF LINE                                      FEAT126A     801     A     
 MAIN                                                                                      FEAT126A     802     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 877    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN      BLL      SUBR               ENTRY/EXIT                                          FEAT126A     803     A     
 MAIN               MX1    0                                                               FEAT126A     804     A     
 MAIN               ZR     B5,BLL1     IF BREAK ON WORD BOUNDARY                           FEAT126A     805     A     
 MAIN               MX1    1                                                               FEAT126A     806     A     
 MAIN               SB7    B5-B1                                                           FEAT126A     807     A     
 MAIN               AX1    B7                                                              FEAT126A     808     A     
 MAIN      BLL1     BX7    X1*X2       LEFT SIDE                                           FEAT126A     809     A     
 MAIN               SB3    A2-B6                                                           FEAT126A     810     A     
 MAIN               BX2    -X1*X2      RIGHT SIDE                                          FEAT126A     811     A     
 MAIN               SA3    =10H                                                            FEAT126AA     19     A     
 MAIN               ZR     B3,BLL4     IF 2ND PART ONLY ONE PARTIAL WORD                   FEAT126A     812     A     
 MAIN      BLL2     RJ     LSS         LEFT SHIFT STRING                                   FEAT126A     813     A     
 MAIN               SA6    BLL10       SAVE 1ST WORD OF 2ND LINE                           FEAT126A     814     A     
 MAIN               SA7    A2          SET LEFT SIDE INTO BUFFER                           FEAT126A     815     A     
 MAIN               SA3    A2+B1                                                           FEAT126A     816     A     
 MAIN               BX7    X3                                                              FEAT126A     817     A     
 MAIN               SA7    A6+B1       SAVE 2ND WORD  OF 2ND LINE                          FEAT126A     818     A     
 MAIN               SB6    B6+B1                                                           FEAT126A     819     A     
 MAIN               SB3    A2-B1                                                           FEAT126A     820     A     
 MAIN               SX6    B3                                                              FEAT126A     821     A     
 MAIN               SA6    A7+B1       SAVE 2ND LINE FWA                                   FEAT126A     822     A     
 MAIN               SB3    B3-B1                                                           FEAT126A     823     A     
 MAIN               SX7    B6-B3                                                           FEAT126A     824     A     
 MAIN               SA7    A6+B1       SAVE 2ND LINE LENGTH                                FEAT126A     825     A     
 MAIN               MX6    0                                                               FEAT126A     826     A     
 MAIN               SA6    B6          EOL TERMINATOR FOR 2ND LINE                         FEAT126A     827     A     
 MAIN               SX2    A2-B2                                                           FEAT126A     828     A     
 MAIN               ZR     B5,BLL3     IF ALREADY HAVE 1ST LINE EOL                        FEAT126A     829     A     
 MAIN               SX2    X2+B1                                                           FEAT126A     830     A     
 MAIN               SA6    A3          EOL TERMINATOR FOR 1ST LINE                         FEAT126A     831     A     
 MAIN      BLL3     PLINE  B2+B1,X2                                                        FEAT126A     832     A     
 MAIN               SA2    BLL10+3     LENGTH                                              FEAT126A     833     A     
 MAIN               SA1    A2-B1       FWA                                                 FEAT126A     834     A     
 MAIN               SA3    A1-B1       2ND WORD                                            FEAT126A     835     A     
 MAIN               SA4    =10H   >>>>                                                     FEAT126A     836     A     
 MAIN               BX6    X4                                                              FEAT126A     837     A     
 MAIN               SA6    X1          SET CONTINUE INDICATOR                              FEAT126A     838     A     
 MAIN               SA4    A3-B1       1ST WORD                                            FEAT126A     839     A     
 MAIN               BX6    X4                                                              FEAT126A     840     A     
 MAIN               SA6    A6+B1       RESET 1ST WORD                                      FEAT126A     841     A     
 MAIN               BX7    X3                                                              FEAT126A     842     A     
 MAIN               SA7    A6+B1       RESET 2ND WORD                                      FEAT126A     843     A     
 MAIN               EQ     EXIT.                                                           FEAT126A     844     A     
 MAIN                                                                                      FEAT126A     845     A     
 MAIN      BLL10    BSSZ   4                                                               FEAT126A     846     A     
 MAIN      BUL      SPACE  4,8                                                             FEAT126B     132     A     
 MAIN     **        BUL - BURST A LINE.                                                    FEAT126B     133     A     
 MAIN     *                                                                                FEAT126B     134     A     
 MAIN     *                BURSTS A LINE IN EITHER NORMAL UNCOMPRESSED FORMAT OR           FEAT126B     135     A     
 MAIN     *         UPDATE COMPRESSED FORMAT AND IN EITHER NORMAL BATCH FORMAT OR          FEAT126B     136     A     
 MAIN     *         IN TIME-SHARING SEQ FORMAT FROM (CP.BUF) ET SEQ, ONE CHARACTER         FEAT126B     137          I
          -FEAT155E 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 878    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     *         PER WORD WITH BLANKS SQUEEZED OUT, TO THE STRING BUFFER.               FEAT126B     138          I
          -FEAT155E 
 MAIN     *         IN TIME-SHARING SEQ FORMAT FROM (CP.CARD) ET SEQ, ONE                  FEAT155E     168     A     
 MAIN     *         CHARACTER PER WORD WITH BLANKS SQUEEZED OUT, TO THE STRING             FEAT155E     169     A     
 MAIN     *         BUFFER.                                                                FEAT155E     170     A     
 MAIN     *                                                                                FEAT126B     139     A     
 MAIN     *                                                                                FEAT126B     140     A     
 MAIN     *         ENTRY  (AMODE)   = +0 IF NORMAL UNCOMPRESSED FORMAT                    FEAT126B     141     A     
 MAIN     *                          =  1 IF MODIFY COMPRESSED FORMAT (ERROR)              FEAT126B     142     A     
 MAIN     *                          =  2 IF UPDATE COMPRESSED FORMAT(UNSUPPORTED)         FEAT126B     143     A     
 MAIN     *                (CP.BUF)  =  PACKED SOURCE LINE (I.E. 10 CHARS/WORD)            FEAT126B     144          I
          -FEAT155E 
 MAIN     *                (CP.CARD) =  PACKED SOURCE LINE (I.E. 10 CHARS/WORD)            FEAT155E     171     A     
 MAIN     *                (B2)      =  LEADING BLANK COUNT                                FEAT126B     145          I
          -FCC1328X 
 MAIN     *                (B2)      =  NR OF LEADING BLANKS (BIASED BY -1777B)            FCC1328X     164     A     
 MAIN     *                               (E.G. FOR 1 LEADING BLANK, (B2)=-1776B)          FCC1328X     165     A     
 MAIN     *                (B6)      =  -NR OF USEABLE WORDS IN SOURCE LINE IMAGE          FCC1328X     166     A     
 MAIN     *                               AT (CP.CARD) ET SEQ                              FCC1328X     167     A     
 MAIN     *                               (I.E. DOES NOT INCLUDE FULL WORD EOL MK)         FCC1328X     168     A     
 MAIN     *                (A6)+1    =  FWA TO STORE IN STRING BUFFER                      FEAT126B     146     A     
 MAIN     *                                                                                FEAT126B     147     A     
 MAIN     *                IN BATCH --                                                     FEAT126B     148     A     
 MAIN     *                (A5,X5)   =  ADDR + CONTENTS 1ST WORD OF LINE IMAGE TO          FEAT126B     149     A     
 MAIN     *                               BE BURST FROM (CP.BUF).                          FEAT126B     150          I
          -FEAT155E 
 MAIN     *                (B6)      =  LWA+1 OF LINE IMAGE IN (CP.BUF)                    FEAT126B     151          I
          -FEAT155E 
 MAIN     *                               BE BURST FROM (CP.CARD).                         FEAT155E     172     A     
 MAIN     *                (B6)      =  LWA+1 OF LINE IMAGE IN (CP.CARD)                   FEAT155E     173          I
          -FCC1328X 
 MAIN     *                                                                                FEAT126B     152     A     
 MAIN     *                IN SEQ --                                                       FEAT126B     153     A     
 MAIN     *                (X3)      =  CHARACTER POSITION IN WORD. CHARACTER              FEAT126B     154     A     
 MAIN     *                               POSITIONS IN (X3) ARE NUMBERED --                FEAT126B     155     A     
 MAIN     *                               (01 10 09 08 07 06 05 04 03 02).                 FEAT126B     156     A     
 MAIN     *                               E.G. WHEN THE 4TH CHARACTER IS IN BITS           FEAT126B     157     A     
 MAIN     *                               (05-00) OF (X5), THEN THE SIGN BIT WILL          FEAT126B     158     A     
 MAIN     *                               BE ON IN THE 4TH CHAR POSITION IN (X3).          FEAT126B     159     A     
 MAIN     *                               (X5) = (05 06 07 08 09 10 01 02 03 04)           FEAT126B     160     A     
 MAIN     *                               (X3) = (00 00 00 00 00 00 00 40 00 00B)          FEAT126B     161     A     
 MAIN     *                (A5,X5)   =  ADDR + CONTENTS OF NTH WORD OF LINE IMAGE          FEAT126B     162     A     
 MAIN     *                               IN (CP.BUF), 1ST COL TO BE BURST IN BITS         FEAT126B     163          I
          -FEAT155E 
 MAIN     *                               (05-00)                                          FEAT126B     164          I
          -FEAT155E 
 MAIN     *                               IN (CP.CARD), 1ST COL TO BE BURST                FEAT155E     174     A     
 MAIN     *                               IN BITS (05-00)                                  FEAT155E     175     A     
 MAIN     *                (B6)      =  -WORD COUNT TO BE BURST                            FEAT126B     165          I
          -FCC1328X 
 MAIN     *                (B2)      =  NR OF LEADING BLANKS (BIASED BY -1777B)            FCC1328X     169     A     
 MAIN     *                               (E.G. FOR 1 LEADING BLANK, (B2)=-1776B)          FCC1328X     170     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 879    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     *                (B3)      =  NR OF COLUMNS REMAINING IN LINE IMAGE              FCC1328X     171     A     
 MAIN     *                                                                                FEAT126B     166     A     
 MAIN     *         EXIT   LINE COLUMNS 7-72 (BATCH FMT) BURST TO STRING BUFFER.           FEAT126B     167     A     
 MAIN     *                  BLANKS SQUEEZED OUT. LEADING BLANK COUNT (LBC) IS             FEAT126B     168     A     
 MAIN     *                  PACKED WITH NON-BLANK CHARACTER AS FOLLOWS --                 FEAT126B     169     A     
 MAIN     *                            12/LBC+2001B,42/0,6/CHARACTER                       FEAT126B     170          I
          -FCC1328X 
 MAIN     *                            12/LBC-1777B+2000B,42/0,6/CHARACTER                 FCC1328X     172     A     
 MAIN     *                  STRING BUFFER TERMINATOR FORMAT --                            FEAT126B     171     A     
 MAIN     *                            12/LBC+5776B,48/-1                                  FEAT126B     172          I
          -FCC1328X 
 MAIN     *                            12/-(LBC-1777B+2000B),48/-1                         FCC1328X     173     A     
 MAIN     *                (LASTCOL) =  LWA OF STATEMENT IN STRING BUFFER                  FEAT126B     173     A     
 MAIN     *                                                                                FEAT126B     174     A     
 MAIN     *         USES   ALL BUT A0,X0                                                   FEAT126B     175          I
          -FCC1328X 
 MAIN     *                                                                                FEAT126B     176          I
          -FCC1328X 
 MAIN     *         CALLS  NONE                                                            FEAT126B     177          I
          -FCC1328X 
 MAIN     *         USES   ALL BUT A0                                                      FCC1328X     174     A     
 MAIN     *                                                                                FCC1328X     175     A     
 MAIN     *         CALLS  ALLOC                                                           FCC1328X     176     A     
 MAIN                                                                                      FEAT126B     178     A     
 MAIN                                                                                      FEAT126B     179     A     
 MAIN      BUL      SUBR               ** ENTRY/EXIT **                                    FEAT126B     180     A     
 MAIN               MX0    -CHAR                                                           FEAT126B     181          I
          -FCC0813
 MAIN               ZR     B6,BUL15    IF NULL STMT -- NOTHING TO BURST                    FEAT126B     182          I
          -FCC1328X 
 MAIN                                                                                      FCC1328X     177     A     
 MAIN     *         ALLOCATE SPACE IN STRING BUFFER FOR NEW LINE, IF NECESSARY.            FCC1328X     178     A     
 MAIN                                                                                      FCC1328X     179     A     
 MAIN               MI     B6,BUL3     IF WD CNT ALREADY COMPUTED (SEQ FORMAT)             FEAT126B     183          I
          -FCC0813
 MAIN               SA1    =XT=SB                                                          FCC0813      136     A     
 MAIN               SA2    =XT.SB                                                          FCC0813      137     A     
 MAIN               SB3    X2                                                              FCC0813      138          I
          -FCC1328X 
 MAIN               SX7    A6-B3                                                           FCC0813      139          I
          -FCC1328X 
 MAIN               SB5    X2                                                              FCC1328X     180     A     
 MAIN               SX7    A6-B5                                                           FCC1328X     181     A     
 MAIN               IX2    X1-X7                                                           FCC0813      140     A     
 MAIN               SX6    X2-67                                                           FCC0813      141     A     
 MAIN               PL     X6,BUL1     IF ENOUGH ROOM FOR 1 FULL CARD                      FCC0813      142     A     
 MAIN               SB3    A6          SAVE  A6                                            FCC0813      143          I
          -FCC1328X 
 MAIN               SB5    A6          SAVE  A6                                            FCC1328X     182     A     
 MAIN               BX4    X3          SAVE  X3                                            FCC0813      144     A     
 MAIN               ALLOC  =XT.SB,67                                                       FCC0813      145          I
          -FCC2272
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 880    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               ALLOC  =XT.SB,75                                                       FCC2272       11     A     
 MAIN               MX0    -CHAR                                                           FCC0813      146          I
          -FCC1328X 
 MAIN               SA1    B3                                                              FCC0813      147          I
          -FCC1328X 
 MAIN               SA1    B5                                                              FCC1328X     183     A     
 MAIN               BX6    X1                                                              FCC0813      148     A     
 MAIN               SA6    B3          RESTORE A6                                          FCC0813      149          I
          -FCC1328X 
 MAIN               SA6    B5          RESTORE A6                                          FCC1328X     184     A     
 MAIN               BX3    X4          RESTORE X3                                          FCC0813      150     A     
 MAIN      BUL1     MI     B6,BUL3     IF WD CNT ALREADY COMPUTED (SEQ FORMAT)             FCC0813      151          I
          -FCC1328X 
 MAIN                                                                                      FCC1328X     185     A     
 MAIN     *         INITIALIZE FOR BURST.                                                  FCC1328X     186     A     
 MAIN                                                                                      FCC1328X     187     A     
 MAIN      BUL1     SA2    =XCO.MODE                                                       FCC1328X     188     A     
 MAIN               NZ     X2,BUL3     IF SEQ FORMAT                                       FCC1328X     189     A     
 MAIN               MX3    1                                                               FEAT126B     184     A     
 MAIN               SB6    A5-B6       (B6) = FWA - (LWA+1) = -WD CNT                      FEAT126B     185          I
          -FCC1328X 
 MAIN               SB4    -8                                                              FEAT126B     186          I
          -FCC1328X 
 MAIN               SB4    -7                                                              FCC1328X     190     A     
 MAIN               LX3    -4*CHAR                                                         FEAT126B     187     A     
 MAIN               LX5    6*CHAR      (X5) = COL (07 08 09 10 01 02 03 04 05 06)          FEAT126B     188     A     
 MAIN               GE     B6,B4,BUL2  IF NR OF WDS TO BURST .LE. 7                        FEAT126B     189     A     
 MAIN               SB6    B4          LIMIT BURST TO 7 WORDS                              FEAT126B     190     A     
 MAIN      BUL2     SB3    72-6-2      NR OF COLS TO BURST - 2                             FEAT126B     191     A     
 MAIN               LX5    CHAR                                                            FEAT126B     192     A     
 MAIN               =B6    B6+1                                                            FEAT126B     193          I
          -FCC1328X 
 MAIN                                                                                      FCC1328X     191     A     
 MAIN      BUL3     SA2    AMODE                                                           FEAT126B     194     A     
 MAIN               PL     B6,BUL15    IF NULL LINE, NOTHING TO BURST...                   FCC1328X     192     A     
 MAIN               SB5    -1R                                                             FEAT126B     195     A     
 MAIN               SA1    =1H                                                             FEAT126B     196     A     
 MAIN               MX0    -CHAR                                                           FCC1328X     193     A     
 MAIN               ZR     X2,BUL10    IF UNCOMPRESSED INPUT                               FEAT126B     197     A     
 MAIN               LX2    -1                                                              FEAT126B     198     A     
 MAIN               PL     X2,BUL5     IF *UPDATE* FORMAT                                  FEAT126B     199     A     
 MAIN                                                                                      FEAT126B     200     A     
 MAIN                                                                                      FEAT126B     201     A     
 MAIN     **        UNPACK *MODIFY* FORMAT COMPRESSED CARD.                                FEAT126B     202     A     
 MAIN                                                                                      FEAT126B     203     A     
 MAIN                                                                                      FEAT126B     204     A     
 MAIN      BUL4     BSS    0           ENTRY..                                             FEAT126B     205          I
          -FEAT155E 
 MAIN               TRUBL                                                                  FEAT126B     206     A     
 MAIN               EQ     BUL15       CONTINUE..                                          FEAT126B     207     A     
 MAIN                                                                                      FEAT126B     208     A     
 MAIN      MDFY     SKIP                                                                   FEAT126B     209     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 881    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     **        UNPACK MODIFY COMPRESSED CARD.                                         FEAT126B     210     A     
 MAIN                                                                                      FEAT126B     211     A     
 MAIN               MX3    59                                                              FEAT126B     212     A     
 MAIN               SB4    -B1                                                             FEAT126B     213     A     
 MAIN               SB5    1R                                                              FEAT126B     214     A     
 MAIN               EQ     RNS4C                                                           FEAT126B     215     A     
 MAIN      RNS4A    LX5    CHAR        EXTRACT NEXT CHARACTER                              FEAT126B     216     A     
 MAIN               BX3    -X0*X5                                                          FEAT126B     217     A     
 MAIN               ZR     X3,RNS6     IF 0000 (END OF LINE)                               FEAT126B     218     A     
 MAIN      RNS4B    SX3    X3+B4                                                           FEAT126B     219     A     
 MAIN               SA6    A6+B1       STORE CHARACTER                                     FEAT126B     220     A     
 MAIN               PL     X3,RNS4B    IF FILLING BLANKS, LOOP                             FEAT126B     221     A     
 MAIN               NZ     B7,RNS4C    IF SOURCE WORD NOT EXHAUSTED                        FEAT126B     222     A     
 MAIN               SA5    A5+B1                                                           FEAT126B     223     A     
 MAIN               SB7    B3                                                              FEAT126B     224     A     
 MAIN      RNS4C    LX5    CHAR                                                            FEAT126B     225     A     
 MAIN               SB6    X6                                                              FEAT126B     226     A     
 MAIN               BX6    -X0*X5      EXTRACT NEXT CHARACTER                              FEAT126B     227     A     
 MAIN               LX4    X1,B6                                                           FEAT126B     228     A     
 MAIN               SB7    B7-B1                                                           FEAT126B     229     A     
 MAIN               BX7    X7+X4                                                           FEAT126B     230     A     
 MAIN               NZ     X6,RNS4B    IF NOT 00                                           FEAT126B     231     A     
 MAIN               SB7    B7-B1                                                           FEAT126B     232     A     
 MAIN               SX6    B5                                                              FEAT126B     233     A     
 MAIN               PL     B7,RNS4A    IF SOURCE WORD NOT EXHAUSTED                        FEAT126B     234     A     
 MAIN               SA5    A5+B1                                                           FEAT126B     235     A     
 MAIN               SB7    B3-B1                                                           FEAT126B     236     A     
 MAIN               EQ     RNS4A                                                           FEAT126B     237     A     
 MAIN      MDFY     ENDIF                                                                  FEAT126B     238     A     
 MAIN                                                                                      FEAT126B     239     A     
 MAIN     **        UNPACK *UPDATE* FORMAT COMPRESSED CARD.                                FEAT126B     240     A     
 MAIN                                                                                      FEAT126B     241     A     
 MAIN      BUL5     BSS    0           ENTRY..                                             FEAT126B     242     A     
 MAIN      #UPD     SKIP                                                                   FEAT126B     243     A     
 MAIN                                                                                      FEAT126B     244     A     
 MAIN               SB5    1R          LOOP CONSTANT                                       FEAT126B     245     A     
 MAIN               SB7    4-1                                                             FEAT126B     246     A     
 MAIN               SB3    10          LOOP CONSTANT                                       FEAT126B     247     A     
 MAIN               =B6    1           ANY OLD NON-ZERO                                    FEAT126B     248     A     
 MAIN               EQ     BUL7                                                            FEAT126B     249     A     
 MAIN                                                                                      FEAT126B     250     A     
 MAIN      BUL6     PX6    B2          PACK BLANK COUNT                                    FEAT126B     251     A     
 MAIN               =B2    1                                                               FEAT126B     252     A     
 MAIN               =A6    A6+1                                                            FEAT126B     253     A     
 MAIN      BUL7     LX5    CHAR                                                            FEAT126B     254     A     
 MAIN               =B7    B7-1                                                            FEAT126B     255     A     
 MAIN               BX6    -X0*X5      EXTRACT NEXT CHARACTER                              FEAT126B     256     A     
 MAIN               NZ     B7,BUL8     IF SOURCE WORD NOT EXHAUSTED                        FEAT126B     257     A     
 MAIN               =A5    A5+1                                                            FEAT126B     258     A     
 MAIN               SB7    B3                                                              FEAT126B     259     A     
 MAIN      BUL8     ZR     B6,BUL9     IF LAST WAS 00, THEN 00XX CODE                      FEAT126B     260     A     
 MAIN               SB6    X6                                                              FEAT126B     261     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 882    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               ZR     B6,BUL7     IF 00 CHARACTER, GO GET XX                          FEAT126B     262     A     
 MAIN               NE     B6,B5,BUL6     NOT 55 GO STORE IT                               FEAT126B     263     A     
 MAIN               =B2    B2+1                                                            FEAT126B     264     A     
 MAIN               EQ     BUL7                                                            FEAT126B     265     A     
 MAIN                                                                                      FEAT126B     266     A     
 MAIN      BUL9     SB6    X6                                                              FEAT126B     267     A     
 MAIN               SB2    B2+B6                                                           FEAT126B     268     A     
 MAIN               GT1    B6,BUL7     IF 0002-0077 CODE, BLANKS COUNTED                   FEAT126B     269     A     
 MAIN               SB2    B2-B6                                                           FEAT126B     270     A     
 MAIN               BX6    0                                                               FEAT126B     271     A     
 MAIN               EQ1    B6,BUL6     IF 0001 CODE, GO STORE 00 CHARACTER                 FEAT126B     272     A     
 MAIN     *                          ELSE 0000 CODE, END-OF-LINE                           FEAT126B     273     A     
 MAIN               SB3    -3                                                              FEAT126B     274     A     
 MAIN               EQ     BUL15       CONTINUE..                                          FEAT126B     275     A     
 MAIN      #UPD     ENDIF                                                                  FEAT126B     276     A     
 MAIN               TRUBL                                                                  FEAT126B     277     A     
 MAIN                                                                                      FEAT126B     278     A     
 MAIN                                                                                      FEAT126B     279     A     
 MAIN     **        BURST CARD IMAGE INTO STRING BUFFER, PACKING BLANK COUNT.              FEAT126B     280     A     
 MAIN     *                (LOOP STOLEN BODILY FROM *SCANNER* IN FTNX VER 4.0)             FEAT126B     281     A     
 MAIN                                                                                      FEAT126B     282     A     
 MAIN      BUL10    SB2    B2+B1       INCREMENT BLANK COUNT                               FEAT126B     283     A     
 MAIN               BX6    -X0*X5      EXTRACT NEXT CHAR                                   FEAT126B     284     A     
 MAIN               SB4    X6+B5                                                           FEAT126B     285     A     
 MAIN               LX3    CHAR                                                            FEAT126B     286     A     
 MAIN               SB3    B3-B1       DECREMENT COLUMN COUNTER                            FEAT126B     287     A     
 MAIN               LX5    CHAR                                                            FEAT126B     288     A     
 MAIN               ZR     B4,BUL11    IF BLANK                                            FEAT126B     289     A     
 MAIN               PX6    X6,B2       PACK CHARACTER AND BLANK COUNT                      FEAT126B     290     A     
 MAIN               SB2    B0                                                              FEAT126B     291          I
          -FCC0844
 MAIN               SA6    A6+1                                                            FEAT126B     292          I
          -FCC0844
 MAIN               SB2    -1777B      BLANK COUNT BIAS                                    FCC0844       11     A     
 MAIN               =A6    A6+1                                                            FCC0844       12     A     
 MAIN                                                                                      FEAT126B     293     A     
 MAIN      BUL11    PL     X3,BUL10    IF WORD NOT EXHAUSTED                               FEAT126B     294     A     
 MAIN               SB4    10                                                              FEAT126B     295     A     
 MAIN                                                                                      FEAT126B     296     A     
 MAIN     **        FETCH NEXT WORD AND CHECK FOR END OF THE IMAGE.                        FEAT126B     297     A     
 MAIN                                                                                      FEAT126B     298     A     
 MAIN      BUL12    SB6    B6+B1       DECREMENT WORD COUNT                                FEAT126B     299     A     
 MAIN               SA5    A5+B1                                                           FEAT126B     300     A     
 MAIN               PL     B6,BUL14    IF LAST WORD OF IMAGE                               FEAT126B     301     A     
 MAIN                                                                                      FEAT126B     302     A     
 MAIN     **        CHECK FOR A WORD FULL OF BLANKS, AND IF SO, AVOID LOOPING              FEAT126B     303     A     
 MAIN     *                THRU IT.                                                        FEAT126B     304     A     
 MAIN                                                                                      FEAT126B     305     A     
 MAIN      BUL13    IX2    X1-X5                                                           FEAT126B     306     A     
 MAIN               LX5    CHAR                                                            FEAT126B     307     A     
 MAIN               NZ     X2,BUL10    IF NOT ALL-BLANK WORD                               FEAT126B     308     A     
 MAIN               SB2    B2+B4                                                           FEAT126B     309     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 883    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               SB3    B3-B4                                                           FEAT126B     310     A     
 MAIN               EQ     BUL12       CONTINUE..  WITH NEXT WORD                          FEAT126B     311     A     
 MAIN                                                                                      FEAT126B     312     A     
 MAIN                                                                                      FEAT126B     313     A     
 MAIN     **        FILL THE SHORT WORD ON THE END OF THE IMAGE WITH BLANKS SO             FEAT126B     314          I
          -FCC1328X 
 MAIN     *                IT CAN BE CHECKED FOR ALL BLANKS.                               FEAT126B     315          I
          -FCC1328X 
 MAIN     *                (ALSO SETS UP THE CHARACTER-PER-WORD MASK TO KICK OUT           FEAT126B     316          I
          -FCC1328X 
 MAIN     *                AFTER THE ACTUAL REMAINING NUMBER OF CHARACTERS.)               FEAT126B     317          I
          -FCC1328X 
 MAIN                                                                                      FEAT126B     318          I
          -FCC1328X 
 MAIN      BUL14    GT     B6,BUL15    IF LAST WORD DONE                                   FEAT126B     319          I
          -FCC1328X 
 MAIN               SA2    CO.MODE                                                         FEAT126B     320          I
          -FCC1328X 
 MAIN               MI     X2,BUL15    IF TS FORMAT                                        FEAT126B     321          I
          -FCC1328X 
 MAIN               MX3    1                                                               FEAT126B     322          I
          -FCC1328X 
 MAIN               NZ     B3,BUL13    IF NOT AT COL 71                                    FEAT126B     323          I
          -FCC1328X 
 MAIN     *         HERE BECAUSE (B6) SAY THAT THERE ARE NO MORE SOURCE IMAGE              FCC1328X     194     A     
 MAIN     *           WORDS TO BURST.  CONDITIONS ARE AS FOLLOWS --                        FCC1328X     195     A     
 MAIN     *                                                                                FCC1328X     196     A     
 MAIN     *           IN BATCH --                                                          FCC1328X     197     A     
 MAIN     *             1. IF (X5) ARE .ZR. (I.E. (X5) IS FULL WORD EOL MARK),             FCC1328X     198     A     
 MAIN     *                  THEN BURSTING IS DONE.                                        FCC1328X     199     A     
 MAIN     *             2. IF (X5) ARE .NZ. (I.E. (X5) CONTAIN COLS 71-80),                FCC1328X     200     A     
 MAIN     *                  THEN NEED TO GO BACK AND BURST COLS 71-72.                    FCC1328X     201     A     
 MAIN     *                                                                                FCC1328X     202     A     
 MAIN     *           IN SEQ --                                                            FCC1328X     203     A     
 MAIN     *             BECAUSE SEQ MODE INPUT CAN CONTAIN 80 COLUMNS OF SOURCE            FCC1328X     204     A     
 MAIN     *               IMAGE AND BECAUSE 80 COLUMNS IS EXACTLY 8 WORDS,                 FCC1328X     205     A     
 MAIN     *               BURSTING IS DONE.                                                FCC1328X     206     A     
 MAIN                                                                                      FCC1328X     207     A     
 MAIN      BUL14    SA2    =XCO.MODE                                                       FCC1328X     208     A     
 MAIN               GT     B6,B0,BUL15 IF JUST FINISHED BURSTING COLS 71-72                FCC1328X     209     A     
 MAIN               MI     X2,BUL15    IF SEQ MODE                                         FCC1328X     210     A     
 MAIN               ZR     X5,BUL15    IF NOTHING MORE TO BURST                            FCC1328X     211     A     
 MAIN               MX3    1                                                               FCC1328X     212     A     
 MAIN               MX2    2*CHAR                                                          FEAT126B     324     A     
 MAIN               LX5    CHAR                                                            FEAT126B     325     A     
 MAIN               BX3    -X2+X3      FORCE STOP AT COL 73                                FEAT126B     326     A     
 MAIN               EQ     BUL10       CONTINUE..  (TO COUNT DOWN THE LAST TWO)            FEAT126B     327     A     
 MAIN                                                                                      FEAT126B     328     A     
 MAIN     *         ALL BURSTERS REJOIN HERE.                                              FEAT126B     329     A     
 MAIN                                                                                      FEAT126B     330     A     
 MAIN      BUL15    SB3    B3+3                                                            FEAT126B     331     A     
 MAIN               MX0    -CHAR                                                           FCC0813      152     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 884    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               MX7    -1                                                              FEAT126B     332     A     
 MAIN               SB2    B2+B3                                                           FEAT126B     333     A     
 MAIN               PX6    X7,B2       (X6) = 12/LBC+5776B,48/-1                           FEAT126B     334          I
          -FCC0844
 MAIN               PX6    X7,B2       (X6) = 12/LBC-1777B+5776B,48/-1                     FCC0844       13          I
          -FCC1328X 
 MAIN               PX6    X7,B2       (X6) = 12/-(LBC-1777B+2000B),48/-1                  FCC1328X     213     A     
 MAIN               SX7    A6+B1                                                           FEAT126B     335     A     
 MAIN               SA6    A6+B1       MARK END-OF-STMT                                    FEAT126B     336     A     
 MAIN               SA7    LASTCOL                                                         FEAT126B     337     A     
 MAIN               EQ     EXIT.                                                           FEAT126B     338     A     
 MAIN      CLO      SPACE  4,15                                                            FEAT126B     339     A     
 MAIN      #NL      IFNE   #NL,0                                                           FEAT126B     340     A     
 MAIN     **        CLO - CHECK FOR C/-LIST OPTION.                                        FEAT126B     341     A     
 MAIN     *                                                                                FEAT126B     342     A     
 MAIN     *                IF THIS LINE HAD A *C/    * IN COLUMNS 1-6, THEN --             FEAT126B     343     A     
 MAIN     *         1) AT THIS POINT IN TIME THE STRING BUFFER ALREADY CONTAINS A          FEAT126B     344     A     
 MAIN     *         STATEMENT (FROM FWA OF STRING BUFFER THRU (LASTCOL)). THE              FEAT126B     345     A     
 MAIN     *         *C/    * LINE AT (CP.BUF) ET SEQ WILL BE BURST STARTING AT             FEAT126B     346          I
          -FEAT155E 
 MAIN     *         *C/    * LINE AT (CP.CARD) ET SEQ WILL BE BURST STARTING AT            FEAT155E     176     A     
 MAIN     *         (LASTCOL)+1.  E.G.       A=B                                           FEAT126B     347     A     
 MAIN     *                            C/    LIST,ALL                                      FEAT126B     348     A     
 MAIN     *                       WILL BECOME --                                           FEAT126B     349     A     
 MAIN     *         WORD    1   2   3   4   5   6   7   8   9  10  11  12  13              FEAT126B     350     A     
 MAIN     *                 A   =   B  EOS  L   I   S   T   ,   A   L   L  EOS             FEAT126B     351     A     
 MAIN     *                             .                                   .              FEAT126B     352     A     
 MAIN     *                           (CLOA)                            (LASTCOL)          FEAT126B     353     A     
 MAIN     *                       IN THE STRING BUFFER.                                    FEAT126B     354     A     
 MAIN     *         2) PACK UP TO 10 CHARACTERS FROM THE STRING BUFFER AND                 FEAT126B     355     A     
 MAIN     *         CHECK FOR THE OCCURRENCE OF --                                         FEAT126B     356     A     
 MAIN     *         1) LIST,ALL                                                            FEAT126B     357     A     
 MAIN     *         2) LIST,NONE                                                           FEAT126B     358     A     
 MAIN     *         FOLLOWED BY AN END-OF-LINE MARK.                                       FEAT126B     359     A     
 MAIN     *                                                                                FEAT126B     360     A     
 MAIN     *                                                                                FEAT126B     361     A     
 MAIN     *         ENTRY  (CSSTMT)   = .NZ. IF C/ LINE OCCURRED, ELSE .ZR.                FEAT126B     362     A     
 MAIN     *                (B6)      =  -NR OF USEABLE WORDS IN SOURCE LINE IMAGE          FCC1328X     214     A     
 MAIN     *                               AT (CP.CARD) ET SEQ                              FCC1328X     215     A     
 MAIN     *                               (I.E. DOES NOT INCLUDE FULL WORD EOL MK)         FCC1328X     216     A     
 MAIN     *                                                                                FEAT126B     363     A     
 MAIN     *                IN BATCH --                                                     FEAT126B     364     A     
 MAIN     *                (A5,X5)   =  ADDR + CONTENTS 1ST WORD OF LINE IMAGE TO          FEAT126B     365     A     
 MAIN     *                               BE BURST FROM (CP.BUF).                          FEAT126B     366          I
          -FEAT155E 
 MAIN     *                (B6)      =  LWA+1 OF LINE IMAGE IN (CP.BUF)                    FEAT126B     367          I
          -FEAT155E 
 MAIN     *                               BE BURST FROM (CP.CARD).                         FEAT155E     177     A     
 MAIN     *                (B6)      =  LWA+1 OF LINE IMAGE IN (CP.CARD)                   FEAT155E     178          I
          -FCC1328X 
 MAIN     *                                                                                FEAT126B     368     A     
 MAIN     *                IN SEQ --                                                       FEAT126B     369     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 885    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     *                (X3)      =  CHARACTER POSITION IN WORD. CHARACTER              FEAT126B     370     A     
 MAIN     *                               POSITIONS IN (X3) ARE NUMBERED --                FEAT126B     371     A     
 MAIN     *                               (01 10 09 08 07 06 05 04 03 02).                 FEAT126B     372     A     
 MAIN     *                               E.G. WHEN THE 4TH CHARACTER IS IN BITS           FEAT126B     373     A     
 MAIN     *                               (05-00) OF (X5), THEN THE SIGN BIT WILL          FEAT126B     374     A     
 MAIN     *                               BE ON IN THE 4TH CHAR POSITION IN (X3).          FEAT126B     375     A     
 MAIN     *                               (X5) = (05 06 07 08 09 10 01 02 03 04)           FEAT126B     376     A     
 MAIN     *                               (X3) = (00 00 00 00 00 00 00 40 00 00B)          FEAT126B     377     A     
 MAIN     *                (A5,X5)   =  IF A *C/    * LINE DID NOT OCCUR, THE NTH          FEAT126B     378     A     
 MAIN     *                               WORD IN (CP.BUF) WITH THE NON-DIGIT THAT         FEAT126B     379          I
          -FEAT155E 
 MAIN     *                               TERMINATED ASSEMBLY OF LINE NR IN BITS           FEAT126B     380          I
          -FEAT155E 
 MAIN     *                               (05-00); ELSE 1ST CHARACTER AFTER                FEAT126B     381          I
          -FEAT155E 
 MAIN     *                               WORD IN (CP.CARD) WITH THE NON-DIGIT             FEAT155E     179     A     
 MAIN     *                               THAT TERMINATED ASSEMBLY OF LINE NR IN           FEAT155E     180     A     
 MAIN     *                               BITS (05-00); ELSE 1ST CHARACTER AFTER           FEAT155E     181     A     
 MAIN     *                               *C/    * IN BITS (05-00)                         FEAT126B     382     A     
 MAIN     *                (B6)      =  -WORD COUNT TO BE BURST                            FEAT126B     383          I
          -FCC1328X 
 MAIN     *                (B2)      =  NR OF LEADING BLANKS (BIASED BY -1777B)            FCC1328X     217     A     
 MAIN     *                               (E.G. FOR 1 LEADING BLANK, (B2)=-1776B)          FCC1328X     218     A     
 MAIN     *                (B3)      =  NR OF COLUMNS REMAINING IN LINE IMAGE              FCC1328X     219     A     
 MAIN     *                                                                                FEAT126B     384     A     
 MAIN     *         EXIT   (CSLIST)  =  1S59 IF C/-LIST,ALL OCCURRED                       FEAT126B     385     A     
 MAIN     *                          =   1   IF C/-LIST,NONE OCCURRED                      FEAT126B     386     A     
 MAIN     *                          =  +0   IF C/ LINE DID NOT OCCUR OR IF LEGAL          FEAT126B     387     A     
 MAIN     *                                    C/-LIST DIRECTIVE DID NOT OCCUR             FEAT126B     388     A     
 MAIN     *                (CSSTMT)  =  0    NO *C/    * LINE PENDING                      FEAT126B     389     A     
 MAIN     *                (X0)      =  MX0 -CHAR                                          FEAT126B     390     A     
 MAIN     *                (X3)      =  AS SET BY *RNS* IF C/-LINE WAS A COMMENT           FEAT126B     391     A     
 MAIN     *                (A5,X5)   =  SAME AS ON ENTRY IF NO C/-LINE OCCURRED            FEAT126B     392     A     
 MAIN     *                          =  AS SET BY *RNS* IF C/-LINE WAS A COMMENT           FEAT126B     393     A     
 MAIN     *                (X5)      =  0 IF C/-LIST DIRECTIVE OCCURRED OR IF              FEAT126B     394     A     
 MAIN     *                                 *RNS* ENCOUNTERED AN END-OF-SECTION            FEAT126B     395     A     
 MAIN     *                (B2)      =  AS SET BY *RNS* IF C/-LINE WAS A COMMENT           FCC1328X     220     A     
 MAIN     *                (B3)      =  AS SET BY *RNS* IF C/-LINE WAS A COMMENT           FEAT126B     396     A     
 MAIN     *                (B6)      =  AS SET BY *RNS* IF C/-LINE WAS A COMMENT           FEAT126B     397     A     
 MAIN     *                (B7)      =  AS SET BY *RNS* IF C/-LINE WAS A COMMENT           FEAT126B     398     A     
 MAIN     *                                                                                FEAT126B     399     A     
 MAIN     *         USES   ALL BUT A0                                                      FEAT126B     400     A     
 MAIN     *                                                                                FEAT126B     401     A     
 MAIN     *         CALLS  BUL,RNS                                                         FEAT126B     402     A     
 MAIN                                                                                      FEAT126B     403     A     
 MAIN                                                                                      FEAT126B     404     A     
 MAIN      CLO      SUBR               ** ENTRY/EXIT **                                    FEAT126B     405     A     
 MAIN      CLO1     SA1    CSSTMT                                                          FEAT126B     406     A     
 MAIN               ZR     X1,EXIT.    IF NOT A C/ LINE                                    FEAT126B     407     A     
 MAIN                                                                                      FEAT126B     408     A     
 MAIN     *         INITIALIZE FOR BURSTING C/ LINE.                                       FEAT126B     409     A     
 MAIN                                                                                      FEAT126B     410     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 886    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               SA1    LASTCOL                                                         FEAT126B     411     A     
 MAIN               SA2    X1                                                              FEAT126B     412     A     
 MAIN               BX7    X1                                                              FEAT126B     413     A     
 MAIN               LX6    X2                                                              FEAT126B     414     A     
 MAIN               SA7    CLOA        SAVE (LASTCOL)                                      FEAT126B     415     A     
 MAIN               SA6    A2          PRESTORE (A6)                                       FEAT126B     416     A     
 MAIN               =B2    0                                                               FEAT126B     417          I
          -FCC0844
 MAIN               SB2    -1777B                                                          FCC0844       14     A     
 MAIN               RJ     BUL         BURST THE C/ LINE                                   FEAT126B     418     A     
 MAIN                                                                                      FEAT126B     419     A     
 MAIN     *         INITIALIZE TO PACK UP C/ LINE.                                         FEAT126B     420     A     
 MAIN                                                                                      FEAT126B     421     A     
 MAIN               SA1    CSLIST                                                          FEAT126B     422     A     
 MAIN               SA2    CLOA                                                            FEAT126B     423     A     
 MAIN               SA3    LASTCOL                                                         FEAT126B     424     A     
 MAIN               BX6    X2                                                              FEAT126B     425     A     
 MAIN               SA2    X2+B1                                                           FEAT126B     426     A     
 MAIN               SA6    A3          RESTORE (LASTCOL)                                   FEAT126B     427     A     
 MAIN               SB6    9                                                               FEAT126B     428     A     
 MAIN               BX6    X6-X6       (X6) = PACKING REGISTER                             FEAT126B     429     A     
 MAIN               SX7    1                                                               FEAT126B     430     A     
 MAIN               SA6    CSSTMT      SET TO *NO C/-LINE PENDING*                         FEAT126B     431     A     
 MAIN                                                                                      FEAT126B     432     A     
 MAIN     *         PACK UP TO 10 CHARACTERS FROM STRING BUFFER TO X6.                     FEAT126B     433     A     
 MAIN                                                                                      FEAT126B     434     A     
 MAIN      CLO2     MI     X2,CLO3     IF EOL SENTINEL                                     FEAT126B     435     A     
 MAIN               SX2    X2+                                                             FEAT126B     436     A     
 MAIN               LX6    6                                                               FEAT126B     437     A     
 MAIN               SB6    B6-1                                                            FEAT126B     438     A     
 MAIN               BX6    X6+X2                                                           FEAT126B     439     A     
 MAIN               SA2    A2+1                                                            FEAT126B     440     A     
 MAIN               PL     B6,CLO2     IF STILL ROOM IN PACKING REGISTER                   FEAT126B     441     A     
 MAIN                                                                                      FEAT126B     442     A     
 MAIN     *         CHECK FOR LEGAL LIST DIRECTIVE.                                        FEAT126B     443     A     
 MAIN                                                                                      FEAT126B     444     A     
 MAIN      CLO3     SA3    =R.LIST,ALL.                                                    FEAT126B     445     A     
 MAIN               SA4    =R.LIST,NONE.                                                   FEAT126B     446     A     
 MAIN               BX5    X6-X3                                                           FEAT126B     447     A     
 MAIN               ZR     X5,CLO4     IF *LIST,ALL*                                       FEAT126B     448     A     
 MAIN               BX5    X6-X4                                                           FEAT126B     449     A     
 MAIN               ZR     X5,CLO5     IF *LIST,NONE*                                      FEAT126B     450     A     
 MAIN                                                                                      FEAT126B     451     A     
 MAIN     *         HERE IF COMMENT LINE.                                                  FEAT126B     452     A     
 MAIN                                                                                      FEAT126B     453     A     
 MAIN               SA1    AMODE                                                           FEAT126B     454     A     
 MAIN               SA2    AFSA        (X2) = SAVED (B6) = LWA+1 OF LINE IMAGE             FEAT126B     455          I
          -FCC1328X 
 MAIN               SA2    =XL.CARD                                                        FCC1328X     221     A     
 MAIN               SA5    CP.BUF      RESTORE (A5,X5)                                     FEAT126B     456          I
          -FEAT155E 
 MAIN               SA5    CP.CARD     RESTORE (A5,X5)                                     FEAT155E     182     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 887    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               ZR     X1,CLO3A    IF NOT COMPRESSED INPUT                             FEAT126B     457     A     
 MAIN               SA5    CP.BUF+2                                                        FEAT126B     458          I
          -FEAT155E 
 MAIN               SA5    CP.CARD+2                                                       FEAT155E     183     A     
 MAIN                                                                                      FEAT126B     459     A     
 MAIN      CLO3A    SB6    X2          RESTORE (B6)                                        FEAT126B     460          I
          -FCC1328X 
 MAIN      CLO3A    BX2    -X2                                                             FCC1328X     222     A     
 MAIN               SB6    X2+B1       (B6) = -NR OF USEABLE WORDS IN SOURCE LINE          FCC1328X     223     A     
 MAIN               SA7    A6          SET TO *C/-LINE PENDING(TO BE LISTED ONLY)*         FEAT126B     461     A     
 MAIN               RJ     RNS         PROCESS C/-COMMENT LINE                             FEAT126B     462     A     
 MAIN               EQ     CLO1        CHECK FOR C/-LIST DIRECTIVE                         FEAT126B     463     A     
 MAIN                                                                                      FEAT126B     464     A     
 MAIN     *         HERE IF *LIST,ALL* OCCURRED.                                           FEAT126B     465     A     
 MAIN                                                                                      FEAT126B     466     A     
 MAIN      CLO4     MX7    1                                                               FEAT126B     467     A     
 MAIN               SA7    A1          SET TO *LIST,ALL OCCURRED*                          FEAT126B     468     A     
 MAIN               EQ     EXIT.                                                           FEAT126B     469     A     
 MAIN                                                                                      FEAT126B     470     A     
 MAIN     *         HERE IF *LIST,NONE* OCCURRED.                                          FEAT126B     471     A     
 MAIN                                                                                      FEAT126B     472     A     
 MAIN      CLO5     SA7    A1          SET TO *LIST,NONE OCCURRED*                         FEAT126B     473     A     
 MAIN               EQ     EXIT.                                                           FEAT126B     474     A     
 MAIN                                                                                      FEAT126B     475     A     
 MAIN                                                                                      FEAT126B     476     A     
 MAIN      CLOA     BSS    1           SAVED (LASTCOL)                                     FEAT126B     477     A     
 MAIN      #NL      ELSE                                                                   FEAT126B     478     A     
 MAIN      CLO      SUBR                                                                   FEAT126B     479     A     
 MAIN               EQ     EXIT.                                                           FEAT126B     480     A     
 MAIN      #NL      ENDIF                                                                  FEAT126B     481     A     
 MAIN      CNT      SPACE  4,8                                                             FEAT126B     482     A     
 MAIN     **        CNT - CHECK FOR CONTINUATION.                                          FEAT126B     483     A     
 MAIN     *                                                                                FEAT126B     484     A     
 MAIN     *                                                                                FEAT126B     485     A     
 MAIN     *         ENTRY  (CCNT)    =  NR OF CONTINUATION LINES                           FEAT126B     486     A     
 MAIN     *                (CO.MODE) =  .ZR. IF NORMAL BATCH FORMAT INPUT                  FEAT126B     487     A     
 MAIN     *                          =  .NZ. IF SEQ FORMAT INPUT                           FEAT126B     488     A     
 MAIN     *                (LASTCOL) =  LWA OF STATEMENT IN STRING BUFFER                  FEAT126B     489     A     
 MAIN     *                (X0)      =  MX0 -CHAR                                          FEAT126B     490          I
          -FCC1328X 
 MAIN     *                (B6)      =  -NR OF USEABLE WORDS IN SOURCE LINE IMAGE          FCC1328X     224     A     
 MAIN     *                               AT (CP.CARD) ET SEQ                              FCC1328X     225     A     
 MAIN     *                               (I.E. DOES NOT INCLUDE FULL WORD EOL MK)         FCC1328X     226     A     
 MAIN     *                                                                                FEAT126B     491     A     
 MAIN     *                IN BATCH --                                                     FEAT126B     492     A     
 MAIN     *                (A5,X5)   =  ADDR + CONTENTS 1ST WORD OF LINE IMAGE TO          FEAT126B     493     A     
 MAIN     *                               BE BURST FROM (CP.BUF).                          FEAT126B     494          I
          -FEAT155E 
 MAIN     *                (B6)      =  LWA+1 OF LINE IMAGE IN (CP.BUF)                    FEAT126B     495          I
          -FEAT155E 
 MAIN     *                               BE BURST FROM (CP.CARD).                         FEAT155E     184     A     
 MAIN     *                (B6)      =  LWA+1 OF LINE IMAGE IN (CP.CARD)                   FEAT155E     185          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 888    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
          -FCC1328X 
 MAIN     *                                                                                FEAT126B     496     A     
 MAIN     *                IN SEQ --                                                       FEAT126B     497     A     
 MAIN     *                (X3)      =  CHARACTER POSITION IN WORD. CHARACTER              FEAT126B     498     A     
 MAIN     *                               POSITIONS IN (X3) ARE NUMBERED --                FEAT126B     499     A     
 MAIN     *                               (01 10 09 08 07 06 05 04 03 02).                 FEAT126B     500     A     
 MAIN     *                               E.G. WHEN THE 4TH CHARACTER IS IN BITS           FEAT126B     501     A     
 MAIN     *                               (05-00) OF (X5), THEN THE SIGN BIT WILL          FEAT126B     502     A     
 MAIN     *                               BE ON IN THE 4TH CHAR POSITION IN (X3).          FEAT126B     503     A     
 MAIN     *                               (X5) = (05 06 07 08 09 10 01 02 03 04)           FEAT126B     504     A     
 MAIN     *                               (X3) = (00 00 00 00 00 00 00 40 00 00B)          FEAT126B     505     A     
 MAIN     *                (A5,X5)   =  ADDR + CONTENTS OF NTH WORD OF LINE IMAGE          FEAT126B     506     A     
 MAIN     *                               IN (CP.BUF), COL TO CHECK FOR CONTINUA-          FEAT126B     507          I
          -FEAT155E 
 MAIN     *                               IN (CP.CARD), COL TO CHECK FOR CONTINUA-         FEAT155E     186     A     
 MAIN     *                               TION IN BITS (05-00)                             FEAT126B     508     A     
 MAIN     *                (B6)      =  -NR OF WORDS REMAINING OF LINE IMAGE               FEAT126B     509          I
          -FCC1328X 
 MAIN     *                               IN (CP.BUF)                                      FEAT126B     510          I
          -FEAT155E 
 MAIN     *                               IN (CP.CARD)                                     FEAT155E     187          I
          -FCC1328X 
 MAIN     *                (B2)      =  NR OF LEADING BLANKS (BIASED BY -1777B)            FCC1328X     227     A     
 MAIN     *                               (E.G. FOR 1 LEADING BLANK, (B2)=-1776B)          FCC1328X     228     A     
 MAIN     *                (B3)      =  NR OF COLUMNS REMAINING IN LINE IMAGE              FCC1328X     229     A     
 MAIN     *                (B7)      =  CHAR THAT TERMINATED ASSEMBLY OF LINE NR           FEAT126B     511     A     
 MAIN     *                                                                                FEAT126B     512     A     
 MAIN     *         EXIT   (X0)      =  MX0 -CHAR                                          FEAT126B     513          I
          -FCC1328X 
 MAIN     *                (X1)      =  .ZR. IF THIS LINE IS A CONTINUATION LINE,          FEAT126B     514          I
          -FCC1328X 
 MAIN     *         EXIT   (X1)      =  .ZR. IF THIS LINE IS A CONTINUATION LINE,          FCC1328X     230     A     
 MAIN     *                                    ELSE .NZ.                                   FEAT126B     515     A     
 MAIN     *                (A5,X5)   =  AS ON ENTRY, POSSIBLY ADJUSTED IN SEQ              FEAT126B     516     A     
 MAIN     *                (B6)      =  AS ON ENTRY, POSSIBLY ADJUSTED IN SEQ              FCC1328X     231     A     
 MAIN     *                (A6)+1    =  FWA TO STORE IN STRING BUFFER                      FEAT126B     517     A     
 MAIN     *                                                                                FEAT126B     518     A     
 MAIN     *                IN SEQ MODE, THE FOLLOWING REGISTERS ARE GLOBAL AND             FCC1328X     232     A     
 MAIN     *                  SIGNIFICANT ON EXIT --                                        FCC1328X     233     A     
 MAIN     *                (X3),(A5,X5),(B2),(B3)                                          FCC1328X     234     A     
 MAIN     *                                                                                FCC1328X     235     A     
 MAIN     *         USES   ALL BUT A0                                                      FEAT126B     519     A     
 MAIN     *                                                                                FEAT126B     520     A     
 MAIN     *         CALLS  ACL                                                             FEAT126B     521          I
          -FCC1328X 
 MAIN     *         CALLS  ALLOC                                                           FCC1328X     236     A     
 MAIN                                                                                      FEAT126B     522     A     
 MAIN                                                                                      FEAT126B     523     A     
 MAIN      CNT      SUBR               ** ENTRY/EXIT **                                    FEAT126B     524     A     
 MAIN               SA2    CO.MODE                                                         FEAT126B     525     A     
 MAIN               SA4    LASTCOL                                                         FEAT126B     526     A     
 MAIN               MX0    -CHAR                                                           FCC1328X     237     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 889    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               ZR     X2,CNT2     IF BATCH FORMAT                                     FEAT126B     527     A     
 MAIN                                                                                      FEAT126B     528     A     
 MAIN     *         CHECK FOR CONTINUATION (SEQ FORMAT)                                    FEAT126B     529     A     
 MAIN                                                                                      FEAT126B     530     A     
 MAIN               BX6    -X0*X5                                                          FEAT126B     531     A     
 MAIN               SX1    X6-1R+                                                          FEAT126B     532     A     
 MAIN               NZ     X1,EXIT.    IF NOT PLUS(+)                                      FEAT126B     533     A     
 MAIN               LX3    CHAR                                                            FEAT126B     534     A     
 MAIN               SB3    B3-B1                                                           FEAT126B     535     A     
 MAIN               BX6    X3                                                              FEAT126B     536     A     
 MAIN               SX7    B3+3                                                            FEAT126B     537     A     
 MAIN               SA6    CNTA        SAVE (X3)                                           FEAT126B     538     A     
 MAIN               PL     X3,CNT3     IF WORD NOT EXHAUSTED                               FEAT126B     539     A     
 MAIN               SA5    A5+B1                                                           FEAT126B     540     A     
 MAIN               SB6    B6+B1       DECREMENT WORD COUNT                                FEAT126B     541     A     
 MAIN               EQ     CNT3                                                            FEAT126B     542     A     
 MAIN                                                                                      FEAT126B     543     A     
 MAIN     *         CHECK FOR CONTINUATION (BATCH FORMAT).                                 FEAT126B     544     A     
 MAIN                                                                                      FEAT126B     545     A     
 MAIN      CNT2     SX7    66+1                                                            FEAT126B     546     A     
 MAIN               SA3    AFSC                                                            FEAT126B     547     A     
 MAIN               LX5    6*CHAR                                                          FEAT126B     548     A     
 MAIN               BX2    -X0*X5      ISOLATE COL 6                                       FEAT126B     549     A     
 MAIN               SB3    X2                                                              FEAT126B     550     A     
 MAIN               LX5    -6*CHAR     RESTORE (X5)                                        FEAT126B     551     A     
 MAIN               AX1    X3,B3                                                           FEAT126B     552     A     
 MAIN               LX1    -1                                                              FEAT126B     553     A     
 MAIN               MI     X1,EXIT.    IF ZERO OR BLANK IN COL SIX -- INITIAL LINE         FEAT126B     554     A     
 MAIN                                                                                      FEAT126B     555     A     
 MAIN     *         PREPARE FOR CONTINUATION LINE.                                         FEAT126B     556     A     
 MAIN                                                                                      FEAT126B     557     A     
 MAIN      CNT3     SA1    CCNT                                                            FEAT126B     558     A     
 MAIN               SA2    LOCORE                                                          FEAT126B     559          I
          -FCC0813
 MAIN               SA2    =XT.SB                                                          FCC0813      153     A     
 MAIN               =X6    X1+1        (CCNT) = (CCNT)+1                                   FEAT126B     560     A     
 MAIN               IX3    X2-X4                                                           FEAT126B     561          I
          -FCC0813
 MAIN               IX3    X4-X2                                                           FCC0813      154     A     
 MAIN               SA2    =XT=SB                                                          FCC0813      155     A     
 MAIN               IX3    X2-X3                                                           FCC0813      156     A     
 MAIN               IX7    X3-X7                                                           FEAT126B     562     A     
 MAIN               SA6    A1                                                              FEAT126B     563     A     
 MAIN               MI     X7,CNT.OV   IF NOT ENOUGH ROOM FOR NEXT LINE                    FEAT126B     564          I
          -FCC0813
 MAIN               PL     X7,CNT4     IF ENOUGH ROOM FOR NEXT LINE                        FCC0813      157     A     
 MAIN               ALLOC  T.SB,2*66   GET ENOUGH ROOM FOR 2 MORE FULL LINES               FCC0813      158          I
          -FCC2272
 MAIN               ALLOC  T.SB,2*74   GET ENOUGH ROOM FOR 2 MORE FULL LINES.              FCC2272       12     A     
 MAIN               MX0    -CHAR                                                           FCC0813      159          I
          -FCC1328X 
 MAIN                                                                                      FCC1328X     238     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 890    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN      CNT4     SA2    X4          FETCH PREVIOUS *EOS* MARK                           FEAT126B     565     A     
 MAIN               =A3    A2-1                                                            FEAT126B     566     A     
 MAIN               UX1    B2,X2                                                           FEAT126B     567     A     
 MAIN               BX6    X3                                                              FEAT126B     568     A     
 MAIN               SB2    B2-B1                                                           FEAT126B     569     A     
 MAIN               SA6    A2-B1       PRESTORE (A6)                                       FEAT126B     570     A     
 MAIN               SA1    CO.MODE                                                         FEAT126B     571     A     
 MAIN               ZR     X1,EXIT.    IF BATCH FORMAT                                     FEAT126B     572     A     
 MAIN               LX5    CHAR                                                            FEAT126B     573     A     
 MAIN               =X1    0                                                               FEAT126B     574     A     
 MAIN               SA3    CNTA        RESTORE (X3)                                        FEAT126B     575     A     
 MAIN               EQ     EXIT.                                                           FEAT126B     576     A     
 MAIN                                                                                      FEAT126B     577     A     
 MAIN     *         HERE IF STRING BUFFER OVERFLOW.                                        FEAT126B     578          I
          -FCC0813
 MAIN                                                                                      FEAT126B     579          I
          -FCC0813
 MAIN      CNT.OV   SX1    X4+2*66     GET ENOUGH ROOM FOR 2 MORE FULL LINES               FEAT126B     580          I
          -FCC0813
 MAIN               =X6    PASS=AFS                                                        FEAT126B     581          I
          -FCC0813
 MAIN               SA6    PASS                                                            FEAT126B     582          I
          -FCC0813
 MAIN               RJ     ACL         ADJUST CORE LIMITS                                  FEAT126B     583          I
          -FCC0813
 MAIN               SA4    LASTCOL                                                         FEAT126B     584          I
          -FCC0813
 MAIN               =X6    PASS=PAR                                                        FEAT126B     585          I
          -FCC0813
 MAIN               MX0    -CHAR                                                           FEAT126B     586          I
          -FCC0813
 MAIN               SA6    PASS                                                            FEAT126B     587          I
          -FCC0813
 MAIN               EQ     CNT4                                                            FEAT126B     588          I
          -FCC0813
 MAIN                                                                                      FEAT126B     589          I
          -FCC0813
 MAIN                                                                                      FEAT126B     590     A     
 MAIN      CNTA     BSS    1           SAVED (X3)                                          FEAT126B     591     A     
 MAIN      CSK      SPACE  4,15                                                            MAIN        1089     A     
 MAIN     **        CSK -  CHECK STATEMENT KEYWORD.                                        MAIN        1090     A     
 MAIN     *                CHECKS KEYWORDS FOR "HANGING" STATEMENTS.  IF THE NEXT          MAIN        1091          I
          -FEAT126C 
 MAIN     *         CHECKS SUB-KEYWORDS FOR TYPE AND IMPLICIT.  IF THE NEXT                FEAT126C     124     A     
 MAIN     *         KEYWORD IS ONE OF A SPECIFIED SET, CSK WILL CHECK THE SPELLING         MAIN        1092     A     
 MAIN     *         AND ADJUST THE *SB*, AND THEN EXIT TO THE APPROPRIATE                  MAIN        1093     A     
 MAIN     *         PROCESSOR.  IF ANY CHECK FAILS, EXIT IS TO THE ERROR EXIT              MAIN        1094     A     
 MAIN     *         ADDRESS.                                                               MAIN        1095     A     
 MAIN     *                                                                                MAIN        1096     A     
 MAIN     *         ENTRY  (B4) _ *SB*.                                                    MAIN        1097     A     
 MAIN     *                (B5) = LENGTH OF TABLE TO SEARCH.                               MAIN        1098     A     
 MAIN     *                (B7) = ERROR EXIT ADDRESS.                                      MAIN        1099     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 891    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     *                (A1) _ TABLE OF ALLOWABLE CONTINUATIONS.                        MAIN        1100     A     
 MAIN     *                (X1) = DITTO...                                                 MAIN        1101     A     
 MAIN     *                                                                                MAIN        1102     A     
 MAIN     *         EXIT   TO INDICATED KEYWORD PROCESSOR, IF FOUND, OR                    MAIN        1103     A     
 MAIN     *                TO (B7) IF NOT IN TABLE.                                        MAIN        1104     A     
 MAIN     *                (B4) _ *SB* PAST NEW KEY (IF ANY).                              MAIN        1105     A     
 MAIN     *                                                                                MAIN        1106     A     
 MAIN     *         CALLS  ASK                                                             MAIN        1107     A     
 MAIN                                                                                      MAIN        1108     A     
 MAIN                                                                                      MAIN        1109     A     
 MAIN      CSK      SA3    B4          FETCH (*SB*)                                        MAIN        1110     A     
 MAIN               MX0    4*CHAR                                                          MAIN        1111     A     
 MAIN               BX6    X0*X3       1ST 4 CHARS                                         MAIN        1112     A     
 MAIN               ZR     X3,E.TYH    IF -EOS-                                            MAIN        1113     A     
 MAIN                                                                                      MAIN        1114     A     
 MAIN      CSK2     SA5    X1          FETCH LGR ENTRY                                     MAIN        1115     A     
 MAIN               SA1    A1+B1                                                           MAIN        1116     A     
 MAIN               IX2    X5-X6                                                           MAIN        1117     A     
 MAIN               SB5    B5-B1                                                           MAIN        1118     A     
 MAIN               AX2    -4*CHAR                                                         MAIN        1119     A     
 MAIN               ZR     X2,CSK4     IF HIT                                              MAIN        1120     A     
 MAIN               PL     B5,CSK2     IF MORE ENTRIES IN TABLE                            MAIN        1121     A     
 MAIN               JP     B7          REPORT FAILURE..                                    MAIN        1122     A     
 MAIN                                                                                      MAIN        1123     A     
 MAIN      CSK4     SB5    LGR                                                             MAIN        1124     A     
 MAIN               SB5    A5-B5       (B5) = JUMPTO ORDINAL                               MAIN        1125     A     
 MAIN               RJ     ASK         ADJUST STATEMENT FOR NEW KEY                        MAIN        1126     A     
 MAIN               NZ     X3,E.MK     IF MIS-SPELLED                                      MAIN        1127     A     
 MAIN               JP     B3          EXIT TO PROCESSOR..                                 MAIN        1128     A     
 MAIN      CST      SPACE  4,25                                                            MAIN        1129     A     
 MAIN     **        CST -  CLASSIFY STATEMENT.                                             MAIN        1130     A     
 MAIN     *                                                                                MAIN        1131     A     
 MAIN     *         ENTRY  *STRING BUFFER* IS NORMALIZED. (EXCEPT IF *FORMAT(*)            MAIN        1132     A     
 MAIN     *                (B4) _ START OF *SB*                                            MAIN        1133     A     
 MAIN     *                (FIRSTV) = FIRST VARIABLE IN STATEMENT.                         MAIN        1134     A     
 MAIN     *                (ZLEQUAL)= 0 IF NO ZERO LEVEL *=* IN STATEMENT.                 MAIN        1135     A     
 MAIN     *                (ZLCOMMA)= 0 IF NO ZERO LEVEL *,* IN STATEMENT.                 MAIN        1136     A     
 MAIN     *                                                                                MAIN        1137     A     
 MAIN     *         EXIT   (B5) < 0  UNRECOGNIZABLE STATEMENT.                             MAIN        1138     A     
 MAIN     *                (B5) \ 0                                                        MAIN        1139     A     
 MAIN     *                     = ORDINAL OF STATEMENT IN *JUMP TO* TABLE.                 MAIN        1140     A     
 MAIN     *                (X5) = *JUMP TO* WORD.                                          MAIN        1141     A     
 MAIN     *                ("SB.BOS") = ADDRESS OF BEGINNING OF STATEMENT.                 MAIN        1142     A     
 MAIN     *                                                                                MAIN        1143     A     
 MAIN     *         USES   A1,A2,A3,A4,A5,A6  X0  B2,B4,B5,B7                              MAIN        1144     A     
 MAIN                                                                                      MAIN        1145     A     
 MAIN                                                                                      MAIN        1146     A     
 MAIN     **        EXIT HERE IF STATEMENT IS A NON-KEYWORD TYPE.                          MAIN        1147     A     
 MAIN     *                (B5) = /JUMPTO/ ORDINAL                                         MAIN        1148     A     
 MAIN                                                                                      MAIN        1149     A     
 MAIN      CSTJX    SA5    B5+LGR                                                          MAIN        1150     A     
 MAIN                                                                                      MAIN        1151     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 892    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN      CST      SUBR   0                                                               MAIN        1152     A     
 MAIN               SA4    FIRSTV                                                          FCC0828        4     A     
 MAIN               SA1    B4                                                              FCC0828        5     A     
 MAIN               =B5    -1          SET FLAG FOR ERROR EXIT                             FCC0828        6     A     
 MAIN               BX0    X1-X4                                                           FCC0828        7     A     
 MAIN               AX0    18                                                              FCC0828        8     A     
 MAIN               NZ     X0,CSTX     ERROR, KEYWORD NOT FIRST ITEM                       FCC0828        9     A     
 MAIN               BX6    0                                                               MAIN        1153     A     
 MAIN               SX7    B4                                                              MAIN        1154     A     
 MAIN               SA1    ZLEQUAL                                                         MAIN        1155     A     
 MAIN               SB5    B0          INDICATE NON-FORTRAN STATEMENT.                     MAIN        1156     A     
 MAIN               MX0    2*CHAR                                                          MAIN        1157     A     
 MAIN               SA6    ZLE         CLEAR LOCAL INDICATOR TO PARSER.                    MAIN        1158     A     
 MAIN               SA7    "SB.BOS"    SET LOCAL BEGINNING OF STATEMENT                    MAIN        1159     A     
 MAIN               SA4    FIRSTV                                                          MAIN        1160          I
          -FCC0828
 MAIN               BX2    X0*X4                                                           MAIN        1161     A     
 MAIN               LX2    2*CHAR                                                          MAIN        1162     A     
 MAIN               SX3    X2-2RDO                                                         MAIN        1163     A     
 MAIN               NZ     X3,CST10    IF 1ST 2 CHARACTERS NOT *DO*                        MAIN        1164     A     
 MAIN                                                                                      MAIN        1165     A     
 MAIN     **        CHECK FOR POSSIBLE *DO* STATEMENT.                                     MAIN        1166     A     
 MAIN                                                                                      MAIN        1167     A     
 MAIN               SA2    ZLCOMMA                                                         MAIN        1168     A     
 MAIN               SB2    CHAR                                                            MAIN        1169     A     
 MAIN               ZR     X1,CST20    IF NO ZERO LEVEL *=*.                               MAIN        1170     A     
 MAIN               IX3    X2-X1       (ZLCOMMA)-(ZLEQUAL)                                 MAIN        1171     A     
 MAIN               MI     X3,CST20    NO ZLCOMMA AFTER ZLEQUAL                            MAIN        1172     A     
 MAIN     **        STATEMENT IS A *DO* STATEMENT.                                         MAIN        1173     A     
 MAIN     *         EXIT   (B4) _ *=* SIGN OF *DO*                                         MAIN        1174     A     
 MAIN                                                                                      MAIN        1175     A     
 MAIN               SB5    DO.                                                             MAIN        1176     A     
 MAIN               EQ     CSTJX       EXIT.. (*DO* STATEMENT)                             MAIN        1177     A     
 MAIN                                                                                      MAIN        1178     A     
 MAIN                                                                                      MAIN        1179     A     
 MAIN      CST10    SX3    X2-2RIF                                                         MAIN        1180     A     
 MAIN               NZ     X3,CST20    IF 1ST 2 CHARACTERS NOT *IF*                        MAIN        1181     A     
 MAIN               SA2    B4                                                              MAIN        1182     A     
 MAIN               MX0    3*CHAR                                                          MAIN        1183     A     
 MAIN               LX0    CHAR                                                            MAIN        1184     A     
 MAIN               BX2    -X0*X2                                                          MAIN        1185     A     
 MAIN               NZ     X2,CST20    IF MORE THAN JUST *IF*                              MAIN        1186     A     
 MAIN                                                                                      MAIN        1187     A     
 MAIN     **        CHECK FOR POSSIBLE *IF* STATEMENT.                                     MAIN        1188     A     
 MAIN                                                                                      MAIN        1189     A     
 MAIN               =A4    B4+1                                                            MAIN        1190     A     
 MAIN               SX2    X4-O.(                                                          MAIN        1191     A     
 MAIN               NZ     X2,CST20    IF NOT *IF(*                                        MAIN        1192     A     
 MAIN               SA3    ZLPAREN                                                         MAIN        1193     A     
 MAIN               ZR     X3,CST20    IF NOT SET                                          MAIN        1194     A     
 MAIN               SA2    X3-1        DONT ASK                                            MAIN        1195     A     
 MAIN               SB7    A2-B4                                                           MAIN        1196     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 893    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               PL     B7,CST15    IF NOT PAST ZLPAREN                                 MAIN        1197     A     
 MAIN               NZ     X1,CST20    MUST BE ARRAY OR ASF NAMED IF                       MAIN        1198     A     
 MAIN               EQ     CST17       MUST BE IF                                          MAIN        1199     A     
 MAIN      CST15    SA2    X3                                                              MAIN        1200     A     
 MAIN               SB2    X2-O.SEP                                                        MAIN        1201     A     
 MAIN               PL     B2,CST20    IF NOT NUMBER OR VARIABLE .. NOT *IF*.              MAIN        1202     A     
 MAIN      CST17    SB5    IF.                                                             MAIN        1203     A     
 MAIN               EQ     CSTJX       EXIT.. (*IF* STATEMENT)                             MAIN        1204     A     
 MAIN                                                                                      MAIN        1205     A     
 MAIN     **        HERE IF NOT *DO*, *IF*, MUST BE ASSIGNMENT OR ASF.                     MAIN        1206     A     
 MAIN                                                                                      MAIN        1207     A     
 MAIN      CST20    ZR     X1,CST50    IF NO ZERO LEVEL *=*                                MAIN        1208     A     
 MAIN               =B5    REP.                                                            MAIN        1209     A     
 MAIN               =A1    B4+1                                                            MAIN        1210     A     
 MAIN               SX2    X1-O.VAR                                                        MAIN        1211     A     
 MAIN               NZ     X2,CST22    IF NAME LESS THAN 8 CHARACTERS                      MAIN        1212     A     
 MAIN               RJ     =XTLV       TRUNCATE NAME                                       MAIN        1213     A     
 MAIN               SX7    B4                                                              FCC1274       10     A     
 MAIN               SA7    "SB.BOS"    RESET LOCAL BEGINNING OF STATEMENT                  FCC1274       11     A     
 MAIN               =A1    B4+1                                                            MAIN        1214     A     
 MAIN      CST22    SX2    X1-O.(                                                          MAIN        1215     A     
 MAIN               NZ     X2,CSTJX    IF NOT *VARIABLE(* (*REPLACEMENT*)                  MAIN        1216     A     
 MAIN               SA2    FIRSTV                                                          MAIN        1217     A     
 MAIN               BX6    X2                                                              MAIN        1218     A     
 MAIN               SCAN   TS.SYM,SSY                                                      MAIN        1219     A     
 MAIN               =B5    ASF.                                                            MAIN        1220     A     
 MAIN               MI     B7,CSTJX    IF *NIT* MUST BE *ASF*                              MAIN        1221     A     
 MAIN               IFBIT  X2,-ARY,CSTJX     IF NOT ARRAY, MUST BE *ASF*                   MAIN        1222     A     
 MAIN               =B5    REP.                                                            MAIN        1223     A     
 MAIN               EQ     CSTJX       EXIT..  (REPLACEMENT)                               MAIN        1224     A     
 MAIN                                                                                      MAIN        1225     A     
 MAIN     **        CHECK IF STATEMENT IS DEFINED IN *KEYWORD* TABLE.                      MAIN        1226     A     
 MAIN                                                                                      MAIN        1227     A     
 MAIN      CST50    SA1    FIRSTV                                                          MAIN        1228     A     
 MAIN               MX0    4*CHAR                                                          MAIN        1229     A     
 MAIN               SB5    LG.LEN                                                          MAIN        1230     A     
 MAIN               =X7    -1          INDICATE IN *LGR* TABLE.                            MAIN        1231     A     
 MAIN               BX6    X0*X1       1ST *4* CHARACTERS.                                 MAIN        1232     A     
 MAIN                                                                                      MAIN        1233     A     
 MAIN     **        SCAN *KEYWORD* TABLE.                                                  MAIN        1234     A     
 MAIN                                                                                      MAIN        1235     A     
 MAIN      CST55    SA5    B5+LGR-1                                                        MAIN        1236     A     
 MAIN               SB5    B5-B1                                                           MAIN        1237     A     
 MAIN               IX2    X6-X5                                                           MAIN        1238     A     
 MAIN               AX2    -4*CHAR                                                         MAIN        1239     A     
 MAIN               ZR     X2,CSTX     IF HIT                                              MAIN        1240     A     
 MAIN               PL     B5,CST55    IF NOT FINISHED.                                    MAIN        1241     A     
 MAIN                                                                                      MAIN        1242     A     
 MAIN     **        NOT IN *KEYWORD* TABLE, NON-FORTRAN STATEMENT.                         MAIN        1243     A     
 MAIN                                                                                      MAIN        1244     A     
 MAIN               EQ     CSTX        EXIT..                                              MAIN        1245     A     
 MAIN                                                                                      MAIN        1246     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 894    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN      CUS      SPACE  4,8                                                             MAIN        1247     A     
 MAIN     **        CUS -  CHECK UPCOMING STATEMENT.                                       MAIN        1248     A     
 MAIN     *                                                                                MAIN        1249     A     
 MAIN     *                ROUTINE IS ENTERED FROM THE MASTER LOOP (*CPM*)                 MAIN        1250     A     
 MAIN     *         WHENEVER A STATEMENT WHICH MAY GENERATE CODE IS ENCOUNTERED.           MAIN        1251     A     
 MAIN     *                                                                                MAIN        1252     A     
 MAIN     *         OUTPUT OBJECT TIME REPRIEVE TURPLE, WHEN NECESSARY                     FEAT155G     327     A     
 MAIN                                                                                      FEAT155G     328          I
          -FCC1328X 
 MAIN     *                                                                                FCC1328X     239     A     
 MAIN     *         IF (HANGER) " 0 -- JUMP TO IT TO COMPLETE ANY HANGING PARTS OF         MAIN        1253     A     
 MAIN     *                PREVIOUS STATEMENT.                                             MAIN        1254     A     
 MAIN     *         PROCESS STATEMENT LABEL OF THIS STATEMENT, IF ALLOWED.                 MAIN        1255     A     
 MAIN     *                                                                                MAIN        1256     A     
 MAIN     *                NOTE THAT A "CONTINUE" WITHOUT A LABEL CAN NEVER CAUSE          MAIN        1257     A     
 MAIN     *         ANY CODE TO BE GENERATED, AND IS THEREFORE IGNORED.                    MAIN        1258     A     
 MAIN     *                                                                                MAIN        1259     A     
 MAIN     *         ENTRY  (X5) = ("SB.KEY") SHIFTED TO P.SGEN IN BIT 59.                  MAIN        1260     A     
 MAIN     *                ("SB.STN") =  COLUMNS 1-5 OF STATEMENT.                         MAIN        1261     A     
 MAIN     *                                                                                MAIN        1262     A     
 MAIN     *         EXIT   INTO *CPM*.                                                     MAIN        1263     A     
 MAIN     *                                                                                MAIN        1264     A     
 MAIN     *         USES   ALL BUT  A0.                                                    MAIN        1265     A     
 MAIN     *         CALLS  CSB, CUA, GSN.                                                  MAIN        1266          I
          -FCC1328X 
 MAIN     *                                                                                FCC1328X     240     A     
 MAIN     *         CALLS  ALLOC,CSB,E.NP,GSN,HANGER,SBIT                                  FCC1328X     241     A     
 MAIN                                                                                      MAIN        1267     A     
 MAIN                                                                                      MAIN        1268     A     
 MAIN      CUS      BSS    0           ENTRY...                                            MAIN        1269     A     
 MAIN               SA2    ICA                                                             MAIN        1270          I
          -FEAT126C 
 MAIN               SA1    SB.STNR                                                         MAIN        1271          I
          -FEAT155G 
 MAIN               SA1    =XCO.ER                                                         FEAT155G     329          I
          -F66FCC 
 MAIN               ZR     X1,CUS1     IF NO OTR                                           FEAT155G     330          I
          -F66FCC 
 MAIN               ALLOC  TT.PAR,L.TURP                                                   FEAT155G     331          I
          -F66FCC 
 MAIN               SA1    =XOTROP                                                         FEAT155G     332          I
          -F66FCC 
 MAIN               SA2    REFLIN                                                          FEAT155G     333          I
          -F66FCC 
 MAIN               BX7    X1                                                              FEAT155G     334          I
          -F66FCC 
 MAIN               LX2    P.TRC-CHAR                                                      FEAT155G     335          I
          -F66FCC 
 MAIN               BX6    X2                                                              FEAT155G     336          I
          -F66FCC 
 MAIN               =A6    B7-1                                                            FEAT155G     337          I
          -F66FCC 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 895    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               =A6    A6-1                                                            FEAT155G     338          I
          -F66FCC 
 MAIN               =A7    A6-1                                                            FEAT155G     339          I
          -F66FCC 
 MAIN      CUS1     SA1    SB.STNR                                                         FEAT155G     340          I
          -F66FCC 
 MAIN               SA1    SB.STNR                                                         F66FCC       709     A     
 MAIN               BX7    X2          PUT STATEMENT ADDRESS ON LISTING                    MAIN        1272          I
          -FEAT126C 
 MAIN               SBIT   X5,SLBL/SGEN                                                    MAIN        1273     A     
 MAIN               SA7    CP.BUF-2                                                        MAIN        1274          I
          -FEAT126C 
 MAIN               SA3    SB.STNL                                                         MAIN        1275     A     
 MAIN               BX6    X1                                                              MAIN        1276     A     
 MAIN                                                                                      MAIN        1277     A     
 MAIN     **        GET STATEMENT NUMBER, IF ALLOWED.                                      MAIN        1278     A     
 MAIN                                                                                      MAIN        1279     A     
 MAIN               PL     X5,CUS3     IF LABEL NOT ALLOWED                                MAIN        1280     A     
 MAIN               LX7    X3                                                              MAIN        1281     A     
 MAIN               SA6    STN                                                             MAIN        1282     A     
 MAIN               SA7    FILL.                                                           MAIN        1283     A     
 MAIN               NZ     X6,GSN      IF LABEL IS PRESENT                                 MAIN        1284     A     
 MAIN               SA2    "SB.KEY"                                                        MAIN        1285          I
          -F66FCC 
 MAIN               SB7    CONTIN=                                                         MAIN        1286          I
          -F66FCC 
 MAIN               SB7    -B7                                                             MAIN        1287          I
          -F66FCC 
 MAIN               SB7    X2+B7                                                           MAIN        1288          I
          -F66FCC 
 MAIN               ZR     B7,CUSX     IGNORE NULL *CONTINUE* STATEMENTS                   MAIN        1289          I
          -F66FCC 
 MAIN                                                                                      MAIN        1290     A     
 MAIN                                                                                      MAIN        1291     A     
 MAIN     **        IF COMPILATION OF THE PRECEDING STATEMENT WAS DEPENDENT UPON           MAIN        1292     A     
 MAIN     *         THE NEXT STATEMENT (I.E., THIS ONE), IT HAS BEEN LEFT HANGING.         MAIN        1293     A     
 MAIN     *         IT IS NOW TIME TO FINISH IT UP --                                      MAIN        1294     A     
 MAIN     *                WE JUMP TO WHOMSOEVER HATH PUT HIS ADDRESS IN (HANGER).         MAIN        1295     A     
 MAIN     *                HE DOES HIS THING AND RETURNS TO *CUS.RET*.                     MAIN        1296     A     
 MAIN     *         NOTE THAT ONLY STATEMENTS WHICH MAKE PARSED FILE ENTRIES MAY           MAIN        1297     A     
 MAIN     *                BE *HUNG*.                                                      MAIN        1298     A     
 MAIN                                                                                      MAIN        1299     A     
 MAIN      GSNX     BSS    0           ** RETURN FROM *GSN*                                MAIN        1300     A     
 MAIN      CUS3     SA3    HANGER                                                          MAIN        1301     A     
 MAIN               ZR     X3,CUS.RET  IF NO *HANGING* COMPILATION                         MAIN        1302     A     
 MAIN               =X6                                                                    MAIN        1303     A     
 MAIN               SB7    X3                                                              MAIN        1304     A     
 MAIN               SA6    A3          CLEAR *HANGER* FLAG                                 MAIN        1305     A     
 MAIN               JP     B7          COMPILE ANY HANGING PIECES                          MAIN        1306     A     
 MAIN                                                                                      MAIN        1307     A     
 MAIN                                                                                      MAIN        1308     A     
 MAIN     **        CUS.RET -  RETURN TO *CUS* FROM *HANGER* PROCESSING.                   MAIN        1309     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 896    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     *                PREPARE TO EXIT --                                              MAIN        1310     A     
 MAIN     *         IF THIS IS THE END OF A BASIC BLOCK (SEQUENCE BREAK), THEN WE          MAIN        1311     A     
 MAIN     *                FLUSH THE PARSED FILE BY CALLING *ARITH*.                       MAIN        1312     A     
 MAIN     *         IF THERE WAS A LABEL, COMPILE THE BSS TO DEFINE IT,                    MAIN        1313     A     
 MAIN     *                DEACTIVATE ANY DELAYED STORE, AND CLEAR REGISTER                MAIN        1314     A     
 MAIN     *                ASSOCIATES.                                                     MAIN        1315     A     
 MAIN     *         CHECK (NOPATH) AND ISSUE APPROPRIATE WARNING, AND SET (FLOW)           MAIN        1316     A     
 MAIN     *                TO INDICATE DEAD CODE.                                          MAIN        1317     A     
 MAIN                                                                                      MAIN        1318     A     
 MAIN      CUS.RET  BSS    0           ** RETURN FROM *HANGERS*.                           MAIN        1319     A     
 MAIN               SA2    CSNTAG                                                          MAIN        1320     A     
 MAIN               RJ     CSB         CHECK FOR SEQUENCE BREAK                            MAIN        1321     A     
 MAIN               SA1    =XCO.ER                                                         F66FCC       710     A     
 MAIN               ZR     X1,CUS5     IF OTR REPRIEVE CODE NOT REQUIRED                   F66FCC       711     A     
 MAIN                                                                                      F66FCC       712     A     
 MAIN               ALLOC  TT.PAR,L.TURP                                                   F66FCC       713     A     
 MAIN               SA1    REFLIN                                                          F66FCC       714     A     
 MAIN               SA2    SB.STNL                                                         F66FCC       715     A     
 MAIN               SA3    =XOTROP                                                         F66FCC       716     A     
 MAIN               LX1    P.TRC-CHAR  POSITION (REFLIN) FOR TURPLE                        F66FCC       717     A     
 MAIN               BX7    X2          (SB.STNL)                                           F66FCC       718     A     
 MAIN               LX6    X1                                                              F66FCC       719     A     
 MAIN               =A6    B7-L.TURP+OR.2OP  OPERAND 2 OF TURPLE                           F66FCC       720     A     
 MAIN                                                                                      F66FCC       721     A     
 MAIN      #FID     IFNE   .FID,0                                                          F66FCC       722     A     
 MAIN               =A1    "SB.KEY"                                                        F66FCC       723     A     
 MAIN               SB2    ENTRY=                                                          F66FCC       724     A     
 MAIN               SB2    -B2                                                             F66FCC       725     A     
 MAIN               SB2    X1+B2                                                           F66FCC       726     A     
 MAIN               NZ     B2,CUS4     IF NOT ENTRY STATEMENT                              F66FCC       727     A     
 MAIN                                                                                      F66FCC       728     A     
 MAIN               =X7    1           INDICATE NO LNT ENTRY                               F66FCC       729     A     
 MAIN      CUS4     BSS                                                                    F66FCC       730     A     
 MAIN      #FID     ENDIF                                                                  F66FCC       731     A     
 MAIN                                                                                      F66FCC       732     A     
 MAIN               =A7    A6-OR.2OP+OR.1OP  OPERAND 1                                     F66FCC       733     A     
 MAIN               BX6    X3                                                              F66FCC       734     A     
 MAIN               =A6    A7-OR.1OP+OR.OPR  (OTROP) -- OTR (REPRIEVE) OPERATOR            F66FCC       735     A     
 MAIN                                                                                      F66FCC       736     A     
 MAIN      #FID     IFNE   .FID,0                                                          F66FCC       737     A     
 MAIN               SA3    =XCO.ID                                                         F66FCC       738     A     
 MAIN               PL     X3,CUS5     IF FID CODE NOT REQUIRED                            F66FCC       739     A     
 MAIN                                                                                      F66FCC       740     A     
 MAIN               SA3    =XDOORD                                                         F66FCC       741     A     
 MAIN               ZR     X3,CUS5     IF NOT INSIDE A DO                                  F66FCC       742     A     
 MAIN                                                                                      F66FCC       743     A     
 MAIN               SA1    =XTS.STN                                                        F66FCC       744     A     
 MAIN               SB2    X3          (DOORD)                                             F66FCC       745     A     
 MAIN               SA3    X1+B2       GET TAG FOR DO FROM STATEMENT NUMBER TABLE          F66FCC       746     A     
 MAIN               =X2    M.SNEX                                                          F66FCC       747     A     
 MAIN               BX7    X3+X2       INSERT EXT REF FLAG                                 F66FCC       748     A     
 MAIN               SA7    A3          REPLACE IN STATEMENT NUMBER TABLE                   F66FCC       749     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 897    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN      #FID     ENDIF                                                                  F66FCC       750     A     
 MAIN                                                                                      F66FCC       751     A     
 MAIN      CUS5     BSS                                                                    F66FCC       752     A     
 MAIN               SA2    NOPATH                                                          MAIN        1322     A     
 MAIN               SA4    CSNTAG                                                          MAIN        1323     A     
 MAIN               SA3    FLOW                                                            MAIN        1324     A     
 MAIN               BX6    X2+X3                                                           MAIN        1325     A     
 MAIN               ZR     X4,CUS6     IF NO LABEL PRESENT                                 MAIN        1326     A     
 MAIN               BX6    0           CLEAR (FLOW) IF LABEL                               MAIN        1327     A     
 MAIN      CUS6     SA6    FLOW                                                            MAIN        1328     A     
 MAIN               SA6    A2          RESET (NOPATH)                                      MAIN        1329     A     
 MAIN               ZR     X6,CUSX     IF NO STATEMENT NUMBER REQUIRED                     MAIN        1330     A     
 MAIN               =A3    "SB.KEY"                                                        MAIN        1331     A     
 MAIN               SB7    END=                                                            MAIN        1332     A     
 MAIN               SB7    -B7                                                             MAIN        1333     A     
 MAIN               SB7    X3+B7                                                           MAIN        1334     A     
 MAIN               SB2    ENTRY=                                                          MAIN        1335     A     
 MAIN               SB2    -B2                                                             MAIN        1336     A     
 MAIN               SB2    X3+B2                                                           MAIN        1337     A     
 MAIN               ZR     B7,CUSX     IF *END* STATEMENT                                  MAIN        1338     A     
 MAIN               ZR     B2,CUSX     IF *ENTRY* STATEMENT                                MAIN        1339     A     
 MAIN               EQ     E.NP        ** WARN -- NO PATH **  (RETURN .. PSP)              MAIN        1340     A     
 MAIN      CSB      SPACE  4,8                                                             MAIN        1341     A     
 MAIN     **        CSB -  CHECK SEQUENCE BREAK.                                           MAIN        1342     A     
 MAIN     *                                                                                MAIN        1343     A     
 MAIN     *                DECIDES WHETHER A SEQUENCE BREAK (END OF BASIC BLOCK)           MAIN        1344     A     
 MAIN     *         IS NECESSARY, AND IF SO, CALLS *ARITH* TO FLUSH THE CURRENT            MAIN        1345          I
          -FEAT126C 
 MAIN     *         IS NECESSARY, AND IF SO, CALLS *CAI* TO FLUSH THE CURRENT              FEAT126C     125     A     
 MAIN     *         PARSED FILE.                                                           MAIN        1346     A     
 MAIN     *         IF "SB.KEY" HAS P.SCDS ON, WE WILL BREAK THE SEQUENCE.                 MAIN        1347     A     
 MAIN     *                                                                                MAIN        1348     A     
 MAIN     *         ENTRY  (X2) = LABEL FLAG.                                              MAIN        1349     A     
 MAIN     *                     IF " 0 FORCE BREAK, AND COMPILE *BSS*.                     MAIN        1350     A     
 MAIN     *                     IF = 0 DO NOT BREAK BECAUSE OF LABEL.                      MAIN        1351     A     
 MAIN     *         USES   ALL BUT A0.                                                     MAIN        1352     A     
 MAIN                                                                                      MAIN        1353     A     
 MAIN                                                                                      MAIN        1354     A     
 MAIN      PAR.TH   EQU    50*L.TURP                                                       MAIN        1355     A     
 MAIN                                                                                      MAIN        1356     A     
 MAIN      CSBX     SA1    TT=PAR                                                          MAIN        1357     A     
 MAIN               =X2    PAR.TH                                                          MAIN        1358     A     
 MAIN               SA3    CURST                                                           MAIN        1359     A     
 MAIN               IX6    X1-X2                                                           MAIN        1360     A     
 MAIN               IX0    X3-X6                                                           MAIN        1361     A     
 MAIN               PL     X0,CSB      IF THRESHOLD NOT REACHED                            MAIN        1362     A     
 MAIN               SA6    A3          INDICATE NO SQUEZZING PAST HERE                     MAIN        1363          I
          -FEAT155G 
 MAIN               SA6    A3          INDICATE NO SQUEEZING PAST HERE                     FEAT155G     341     A     
 MAIN                                                                                      MAIN        1364     A     
 MAIN      CSB      SUBR   -           ENTRY/EXIT ...                                      MAIN        1365     A     
 MAIN               =A5    "SB.KEY"                                                        MAIN        1366     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 898    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               BX4    X2                                                              MAIN        1367     A     
 MAIN               SBIT   X5,SCDS                                                         MAIN        1368     A     
 MAIN               ZR     X4,CSB5     IF NEXT IS NOT LABELLED                             MAIN        1369          I
          -FEAT155G 
 MAIN               ZR     X4,CSB5     IF NEXT NOT LABELED                                 FEAT155G     342     A     
 MAIN                                                                                      MAIN        1370     A     
 MAIN     **        EMIT AN *O=BSS* TURPLE FOR THE LABEL.                                  MAIN        1371     A     
 MAIN                                                                                      MAIN        1372     A     
 MAIN               ALLOC  TT.PAR,L.TURP                                                   MAIN        1373     A     
 MAIN               SA1    OPBSS                                                           MAIN        1374     A     
 MAIN               BX6    X4                                                              MAIN        1375     A     
 MAIN               =A6    B7-1                                                            MAIN        1376     A     
 MAIN               LX7    X1                                                              MAIN        1377     A     
 MAIN               =A6    A6-1                                                            MAIN        1378     A     
 MAIN               SA3    TP=DO                                                           MAIN        1379     A     
 MAIN               BX6    X2                                                              MAIN        1380     A     
 MAIN               =A7    A6-1                                                            MAIN        1381     A     
 MAIN               SA6    CURST       INDICATE NO SQUEEZING PAST HERE                     MAIN        1382     A     
 MAIN               ZR     X3,CSB6     IF NOT IN A DO-LOOP                                 MAIN        1383     A     
 MAIN                                                                                      MAIN        1384     A     
 MAIN     **        FLUSH PARSED FILE WHEN THE STATEMENT REQUIRES IT.                      MAIN        1385     A     
 MAIN                                                                                      MAIN        1386     A     
 MAIN      CSB5     PL     X5,CSBX     IF STATEMENT DOES NOT FORCE FLUSH                   MAIN        1387     A     
 MAIN                                                                                      MAIN        1388     A     
 MAIN      CSB6     RJ     CAI         COMPILE ALL (PARSED) INSTRUCTIONS                   MAIN        1389     A     
 MAIN               EQ     CSBX        EXIT..                                              MAIN        1390     A     
 MAIN                                                                                      MAIN        1391     A     
 MAIN      LDB      SPACE  4,8                                                             FCC1328X     242     A     
 MAIN     **        LDB - LIST DEFERRED BUFFER.                                            FCC1328X     243     A     
 MAIN     *                                                                                FCC1328X     244     A     
 MAIN     *                                                                                FCC1328X     245     A     
 MAIN     *         EXAMPLE OF DEFERRED LIST BUFFER FORMAT --                              FCC1328X     246     A     
 MAIN     *                                                                                FCC1328X     247     A     
 MAIN     *           FOR THE SOURCE STATEMENT BEGINNING AT LINE 10 --                     FCC1328X     248     A     
 MAIN     *             COL 1     7                                                        FCC1328X     249     A     
 MAIN     *                       DIMENSIONS(1),                                           FCC1328X     250     A     
 MAIN     *                      , OF(2),                                                  FCC1328X     251     A     
 MAIN     *                      , THE(3),MIND(4)                                          FCC1328X     252     A     
 MAIN     *                                                                                FCC1328X     253     A     
 MAIN     *           *T.DLBUF* WOULD BE --                                                FCC1328X     254     A     
 MAIN     *                                                                                FCC1328X     255     A     
 MAIN     *            WORD  0  1         2         3         4         5                  FCC1328X     256     A     
 MAIN     *                  6  .......10.................DIMENSIONS(1),0000000000         FCC1328X     257     A     
 MAIN     *                                                                                FCC1328X     258     A     
 MAIN     *            WORD  6  7         8         9        10        11                  FCC1328X     259     A     
 MAIN     *                  6  .......11................,.OF(2),.......0000000000         FCC1328X     260     A     
 MAIN     *                                                                                FCC1328X     261     A     
 MAIN     *            WORD 12 13        14        15        16        17                  FCC1328X     262     A     
 MAIN     *                  7  .......12................,.THE(3),MIND(4).........         FCC1328X     263     A     
 MAIN     *                                                                                FCC1328X     264     A     
 MAIN     *            WORD    18                                                          FCC1328X     265     A     
 MAIN     *                     0000000000                                                 FCC1328X     266     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 899    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     *                                                                                FCC1328X     267     A     
 MAIN     *           WHERE .=BLANK(55B),0=EOL BITS(00B)                                   FCC1328X     268     A     
 MAIN     *                                                                                FCC1328X     269     A     
 MAIN     *         ENTRY  NONE                                                            FCC1328X     270     A     
 MAIN     *                                                                                FCC1328X     271     A     
 MAIN     *         EXIT   (HDELAY)  = .ZR.                                                FCC1328X     272     A     
 MAIN     *                                                                                FCC1328X     273     A     
 MAIN     *         USES   ALL BUT A0,A5,X5  (INCLUDES ALL CALLS)                          FCC1328X     274     A     
 MAIN     *                                                                                FCC1328X     275     A     
 MAIN     *         CALLS  LSL,SHRINK                                                      FCC1328X     276     A     
 MAIN                                                                                      FCC1328X     277     A     
 MAIN                                                                                      FCC1328X     278     A     
 MAIN      LDB      SUBR   =           ** ENTRY/EXIT **                                    FCC1328X     279     A     
 MAIN               SA1    =XT.DLBUF                                                       FCC1328X     280     A     
 MAIN               SA2    =XT=DLBUF                                                       FCC1328X     281     A     
 MAIN               SB4    X1+                                                             FCC1328X     282     A     
 MAIN               SX6    X2+                                                             FCC1328X     283     A     
 MAIN                                                                                      FCC1328X     284     A     
 MAIN      LDB2     ZR     X6,LDB3     IF FINISHED DUMPING *T.DLBUF*                       FCC1328X     285     A     
 MAIN                                                                                      FCC1328X     286     A     
 MAIN      .T       IFNE   TEST,0                                                          FCC1328X     287     A     
 MAIN               MI     X6,*+4S15   IF SOMETHING TERRIBLE HAS HAPPENED...               FCC1328X     288     A     
 MAIN      .T       ENDIF                                                                  FCC1328X     289     A     
 MAIN                                                                                      FCC1328X     290     A     
 MAIN               SX1    B4+1                                                            FCC1328X     291     A     
 MAIN               RJ     LSL         LIST SOURCE LINE                                    FCC1328X     292     A     
 MAIN               SA1    B4          (X1) = NR OF WRDS IN SAVED LINE JUST LISTED         FCC1328X     293     A     
 MAIN               SA2    =XT=DLBUF   (X2) = LEN OF REMAINING SAVED LINES                 FCC1328X     294     A     
 MAIN               IX6    X2-X1       (X6) = TOT LEN - LEN OF LAST LINE LISTED            FCC1328X     295     A     
 MAIN               SB4    B4+X1       (B4) = ADDR OF LEN WD FOR NEXT LINE TO LIST         FCC1328X     296     A     
 MAIN               SA6    A2                                                              FCC1328X     297     A     
 MAIN               EQ     LDB2                                                            FCC1328X     298     A     
 MAIN                                                                                      FCC1328X     299     A     
 MAIN      LDB3     BX6    X6-X6                                                           FCC1328X     300     A     
 MAIN               SA6    =XHDELAY    SET TO *NOT HEADER DELAY*                           FCC1328X     301     A     
 MAIN               SHRINK T=DLBUF,X6                                                      FCC1328X     302     A     
 MAIN               EQ     EXIT.                                                           FCC1328X     303     A     
 MAIN      LSL      SPACE  4,8                                                             MAIN        1392     A     
 MAIN     **        LSL -  LIST SOURCE LINE.                                               MAIN        1393     A     
 MAIN     *                                                                                MAIN        1394     A     
 MAIN     *         IF INPUT IS UNCOMPRESSED, WILL PRINT FROM WHEREVER THE CARD            MAIN        1395     A     
 MAIN     *         CURRENTLY RESIDES.                                                     MAIN        1396     A     
 MAIN     *                                                                                MAIN        1397     A     
 MAIN     *         ENTRY  (X1)+3 _ FWA AREA TO FIND CARD.                                 MAIN        1398          I
          -FEAT155E 
 MAIN     *         ENTRY  (X1)+2  =  FWA AREA TO FIND CARD.                               FEAT155E     188     A     
 MAIN     *                (X2) = CONTENT OF ADDRESS COLUMNS.                              MAIN        1399          I
          -FEAT155E 
 MAIN     *                (AMODE) = INPUT FORMAT.                                         MAIN        1400     A     
 MAIN     *                LINE IMAGE IS IN (AMODE) FORMAT.                                MAIN        1401     A     
 MAIN     *                                                                                MAIN        1402     A     
 MAIN     *         EXIT   (B6) = LWA + 1 THAT WAS LISTED.                                 MAIN        1403     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 900    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     *                                                                                MAIN        1404     A     
 MAIN     *         USES   ALL BUT  A0,A5  B4  X0,X5.                                      MAIN        1405     A     
 MAIN                                                                                      MAIN        1406     A     
 MAIN                                                                                      MAIN        1407     A     
 MAIN      LSL50    LX6    X2                                                              MAIN        1408          I
          -FEAT126A 
 MAIN               =A7    X1+1        SET ADDRESS COLUMNS                                 MAIN        1409          I
          -FEAT126A 
 MAIN      LSL50    SA3    =XCO.PW                                                         FEAT126A     847          I
          -FEAT155E 
 MAIN      #TST     IFEQ   TEST,0                                                          FEAT155E     189          I
          -FCC1328X 
 MAIN      LSL50    SA3    =XCP.PW                                                         FEAT155E     190     A     
 MAIN      #TST     ELSE                                                                   FEAT155E     191          I
          -FCC1328X 
 MAIN      LSL50    SA5    CO.MODE                                                         FEAT155E     192          I
          -FEAT155EA-FCC1328X 
 MAIN      LSL50    SA4    CO.MODE                                                         FEAT155EA     22          I
          -FCC1328X 
 MAIN               SA3    CO.SNAP                                                         FEAT155E     193          I
          -FCC1328X 
 MAIN               NZ     X5,LSL50A   IF IN SEQ MODE                                      FEAT155E     194          I
          -FEAT155EA-FCC1328X 
 MAIN               NZ     X4,LSL50A   IF IN SEQ MODE                                      FEAT155EA     23          I
          -FCC1328X 
 MAIN               ZR     X3,LSL50A   IF SNAP = 0                                         FEAT155E     195          I
          -FCC1328X 
 MAIN               BX5    X1                                                              FEAT155E     196          I
          -FEAT155EA-FCC1328X 
 MAIN               BX4    X1                                                              FEAT155EA     24          I
          -FEAT155HB-FCC1328X 
 MAIN               BX7    X1                                                              FEAT155HB      2          I
          -FCC1328X 
 MAIN               =A1    X1+1                                                            FEAT155E     197          I
          -FCC1328X 
 MAIN               RJ     CDD                                                             FEAT155E     198          I
          -FCC1328X 
 MAIN               =A6    A1-1                                                            FEAT155E     199          I
          -FCC1328X 
 MAIN               BX1    X5                                                              FEAT155E     200          I
          -FEAT155EA-FCC1328X 
 MAIN               BX1    X4                                                              FEAT155EA     25          I
          -FEAT155HB-FCC1328X 
 MAIN               BX1    X7                                                              FEAT155HB      3          I
          -FCC1328X 
 MAIN      LSL50A   SA3    =XCP.PW                                                         FEAT155E     201          I
          -FCC1328X 
 MAIN      #TST     ENDIF                                                                  FEAT155E     202          I
          -FCC1328X 
 MAIN               SA4    =10H                                                            FEAT126A     848     A     
 MAIN               ZR     X3,LSL55    IF NOT PW MODE                                      FEAT126A     849     A     
 MAIN               SA2    X1                                                              FEAT155E     203     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 901    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               SX1    X1+2                                                            FEAT126A     850          I
          -FEAT155E 
 MAIN               =X1    X1+1                                                            FEAT155E     204     A     
 MAIN               SA7    X1                                                              FEAT126A     851          I
          -FEAT155E 
 MAIN               BX6    X2                                                              FEAT155E     205     A     
 MAIN               SA6    X1                                                              FEAT155E     206     A     
 MAIN               SB2    X1          (B2) = FWA OF LINE                                  FEAT126A     852     A     
 MAIN               SB3    B0                                                              FEAT126A     853     A     
 MAIN               SB6    B2+B1                                                           FEAT126A     854     A     
 MAIN      LSL51    SA2    B2+B3       (X2) = NEXT WORD OF LINE                            FEAT126A     855     A     
 MAIN               SB3    B3+B1                                                           FEAT126A     856     A     
 MAIN               IX4    X2-X4                                                           FEAT126A     857          I
          -FEAT126AA
 MAIN               ZR     X4,LSL51    IF BLANK WORD                                       FEAT126A     858          I
          -FEAT126AA
 MAIN               IX6    X2-X4                                                           FEAT126AA     20     A     
 MAIN               ZR     X6,LSL51    IF BLANK WORD                                       FEAT126AA     21     A     
 MAIN               ZR     X2,LSL52    IF EOL                                              FEAT126A     859     A     
 MAIN               SB6    A2+B1                                                           FEAT126A     860     A     
 MAIN               EQ     LSL51                                                           FEAT126A     861     A     
 MAIN                                                                                      FEAT126A     862     A     
 MAIN      LSL52    SB7    B6-B2       LENGTH - 1                                          FEAT126A     863     A     
 MAIN               MX6    0                                                               FEAT126A     864     A     
 MAIN               SA6    X1+B7                                                           FEAT126A     865     A     
 MAIN               SX2    B7+B1                                                           FEAT126A     866     A     
 MAIN      LSL53    SB5    X3+B1       PAGE WIDTH IN WORDS + 1                             FEAT126A     867     A     
 MAIN               SB3    B7-B5                                                           FEAT126A     868     A     
 MAIN               LT     B3,LSL54    IF LINE LENGTH .LE. PAGE WIDTH                      FEAT126A     869     A     
 MAIN               SA2    B2+X3                                                           FEAT126A     870     A     
 MAIN               AX3    30          REMAINDER OF PAGE WIDTH MOD 10 IN BITS              FEAT126A     871     A     
 MAIN               SB5    X3                                                              FEAT126A     872     A     
 MAIN               SB2    B2-B1                                                           FEAT126A     873     A     
 MAIN               SB6    B6-B1                                                           FEAT126A     874     A     
 MAIN               RJ     BLL         BREAK LONG LINE                                     FEAT126A     875     A     
 MAIN               SA3    =XCO.PW                                                         FEAT126A     876          I
          -CP139FC
 MAIN               SA3    =XCP.PW                                                         CP139FC      196     A     
 MAIN               SB2    X1          FWA OF LINE                                         FEAT126A     877     A     
 MAIN               SB7    X2-1        LENGTH - 1 OF LINE                                  FEAT126A     878     A     
 MAIN               SB6    X1+B7       LWA OF LINE                                         FEAT126A     879     A     
 MAIN               NZ     X6,LSL53    IF STILL POSSIBLE LONG LINE                         FEAT126A     880     A     
 MAIN                                                                                      FEAT126A     881     A     
 MAIN      LSL54    PLINE  X1,X2                                                           FEAT126A     882     A     
 MAIN               EQ     LSLX        EXIT                                                FEAT126A     883     A     
 MAIN                                                                                      FEAT126A     884     A     
 MAIN      LSL55    LX6    X4                                                              FEAT126A     885     A     
 MAIN               SA7    X1+B1       SET ADDRESS COLUMN                                  FEAT126A     886          I
          -FEAT155E 
 MAIN               =A6    X1                                                              MAIN        1410          I
          -FEAT155E 
 MAIN               =A6    A7+1                                                            MAIN        1411          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 902    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
          -FEAT155E 
 MAIN               =A6    X1+1                                                            FEAT155E     207     A     
 MAIN      LSL60    PLINE  X1                                                              MAIN        1412          I
          -FEAT155E 
 MAIN               PLINE  X1                                                              FEAT155E     208     A     
 MAIN                                                                                      MAIN        1413     A     
 MAIN      LSL      SUBR               ENTRY/EXIT...                                       MAIN        1414     A     
 MAIN               BX7    X2                                                              MAIN        1415          I
          -FEAT155E 
 MAIN               SA3    AMODE                                                           MAIN        1416     A     
 MAIN               SA2    =1H                                                             MAIN        1417          I
          -FEAT126A 
 MAIN               ZR     X3,LSL50    IF UNCOMPRESSED INPUT                               MAIN        1418     A     
 MAIN                                                                                      MAIN        1419     A     
 MAIN      #UPD     SKIP                                                                   FEAT126B     592     A     
 MAIN               SA4    X1          FETCH FIRST WORD OF CRUNCHED IMAGE                  MAIN        1420     A     
 MAIN               LX3    -1                                                              MAIN        1421     A     
 MAIN               SB7    10                                                              MAIN        1422     A     
 MAIN               BX6    X2                                                              MAIN        1423     A     
 MAIN               SA7    LINEBUF                                                         MAIN        1424     A     
 MAIN               MX7    -CHAR                                                           MAIN        1425     A     
 MAIN               =A6    A7+1                                                            MAIN        1426     A     
 MAIN               PL     X3,LSL40    IF *UPDATE* FORMAT                                  MAIN        1427     A     
 MAIN               TRUBL                                                                  MAIN        1428     A     
 MAIN                                                                                      MAIN        1429     A     
 MAIN      LSL40    SB2    B0                                                              MAIN        1430     A     
 MAIN               SB5    10*CHAR     INITIALIZE OUTPUT CHARACTER COUNT                   MAIN        1431     A     
 MAIN               =B3    1                                                               MAIN        1432     A     
 MAIN               EQ     LSL4C                                                           MAIN        1433     A     
 MAIN                                                                                      MAIN        1434     A     
 MAIN      LSL4A    BX6    X6+X7                                                           MAIN        1435     A     
 MAIN               SB5    B5-CHAR                                                         MAIN        1436     A     
 MAIN               =B2    B2-1                                                            MAIN        1437     A     
 MAIN               LX7    CHAR                                                            MAIN        1438     A     
 MAIN               GT     B5,LSL4B    IF OUTPUT WORD NOT FULL                             MAIN        1439     A     
 MAIN               =A6    A6+1                                                            MAIN        1440     A     
 MAIN               SB5    10*CHAR                                                         MAIN        1441     A     
 MAIN      LSL4B    PL     B2,LSL4A    LOOP IF FILLING BLANKS                              MAIN        1442     A     
 MAIN                                                                                      MAIN        1443     A     
 MAIN      LSL4C    LX4    CHAR                                                            MAIN        1444     A     
 MAIN               =B7    B7-1                                                            MAIN        1445     A     
 MAIN               BX7    -X0*X4      EXTRACT NEXT CHARACTER                              MAIN        1446     A     
 MAIN               NZ     B7,LSL4D    IF SOURCE WORD NOT EXHAUSTED                        MAIN        1447     A     
 MAIN               =A4    A4+1                                                            MAIN        1448     A     
 MAIN               SB7    10                                                              MAIN        1449     A     
 MAIN      LSL4D    ZR     B3,LSL4E    IF 00XX CODE                                        MAIN        1450     A     
 MAIN               SB3    X7                                                              MAIN        1451     A     
 MAIN               NZ     B3,LSL4A    IF NOT 00 CHARACTER, GO STORE IT                    MAIN        1452     A     
 MAIN               EQ     LSL4C       GO GET XX                                           MAIN        1453     A     
 MAIN                                                                                      MAIN        1454     A     
 MAIN      LSL4E    SB2    X7                                                              MAIN        1455     A     
 MAIN               SX7    1R                                                              MAIN        1456     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 903    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               SB3    X7                                                              MAIN        1457     A     
 MAIN               GT1    B2,LSL4A    IF 0002-0077 CODE, GO STORE BLANKS                  MAIN        1458     A     
 MAIN               =B2    B2-1                                                            MAIN        1459     A     
 MAIN               BX7    0                                                               MAIN        1460     A     
 MAIN               ZR     B2,LSL4A    IF 0001 CODE, GO STORE 00 CHARACTER                 MAIN        1461     A     
 MAIN               LX6    B5                ELSE,    0000 CODE -- END OF LINE             MAIN        1462     A     
 MAIN               =A6    A6+1                                                            MAIN        1463     A     
 MAIN               =A7    A6+1        INSURE END-OF-LINE                                  MAIN        1464     A     
 MAIN               SX1    LINEBUF-1                                                       MAIN        1465          I
          -FEAT126B 
 MAIN               SX1    LINEBUF-1                                                       FEAT126B     593     A     
 MAIN               EQ     LSL60                                                           FEAT126B     594     A     
 MAIN      #UPD     ENDIF                                                                  FEAT126B     595     A     
 MAIN               TRUBL                                                                  FEAT126B     596     A     
 MAIN      LSS      SPACE  4                                                               FEAT126A     887     A     
 MAIN     **         LSS - LEFT SHIFT STRING                                               FEAT126A     888     A     
 MAIN     *                                                                                FEAT126A     889     A     
 MAIN     *                SHIFTS A STRING OF GIVEN LENGTH UP TO 10 CHARACTERS             FEAT126A     890     A     
 MAIN     *                LEFT END AROUND.                                                FEAT126A     891     A     
 MAIN     *                                                                                FEAT126A     892     A     
 MAIN     *         ENTRY  (X1) = MASK OF SHIFT COUNT                                      FEAT126A     893     A     
 MAIN     *                (X2) = FIRST WORD OF STRING                                     FEAT126A     894     A     
 MAIN     *                (X3) = WORD OF BLANKS                                           FEAT126AA     22     A     
 MAIN     *                (A2) = FWA OF STRING                                            FEAT126A     895     A     
 MAIN     *                (B5) = SHIFT COUNT                                              FEAT126A     896     A     
 MAIN     *                (B6) = LWA OF STRING - 1                                        FEAT126A     897     A     
 MAIN     *         EXIT   (X6) = NEW FIRST WORD OF STRING                                 FEAT126A     898     A     
 MAIN     *                STRING SHIFTED.                                                 FEAT126A     899     A     
 MAIN     *                                                                                FEAT126A     900     A     
 MAIN     *         USES   B3, B7                                                          FEAT126A     901     A     
 MAIN     *                X1, X2, X3, X4, X6                                              FEAT126A     902     A     
 MAIN     *                A4, A6                                                          FEAT126A     903     A     
 MAIN     *         PRESERVES          A0, A2, A5, A7, X5, X7, B2, B4, B5, B6              FEAT126A     904     A     
 MAIN     *                                                                                FEAT126A     905     A     
 MAIN      LSS20    BX6    X2                                                              FEAT126A     906     A     
 MAIN                                                                                      FEAT126A     907     A     
 MAIN      LSS      SUBR               ENTRY/EXIT                                          FEAT126A     908     A     
 MAIN               ZR     B5,LSS20    IF NO SHIFT NEEDED                                  FEAT126A     909     A     
 MAIN               SB7    A2                                                              FEAT126A     910     A     
 MAIN               SB3    B6                                                              FEAT126A     911     A     
 MAIN               BX3    X1*X2                                                           FEAT126A     912          I
          -FEAT126AA
 MAIN               BX3    X1*X3                                                           FEAT126AA     23     A     
 MAIN      LSS10    SA4    B3                                                              FEAT126A     913     A     
 MAIN               BX2    X1*X4                                                           FEAT126A     914     A     
 MAIN               BX4    -X1*X4                                                          FEAT126A     915     A     
 MAIN               BX6    X3+X4                                                           FEAT126A     916     A     
 MAIN               LX6    B5                                                              FEAT126A     917     A     
 MAIN               SA6    A4                                                              FEAT126A     918     A     
 MAIN               SB3    B3-B1                                                           FEAT126A     919     A     
 MAIN               BX3    X2                                                              FEAT126A     920     A     
 MAIN               GE     B3,B7,LSS10 IF SHIFT NOT FINISHED                               FEAT126A     921     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 904    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               EQ     EXIT.                                                           FEAT126A     922     A     
 MAIN                                                                                      FEAT126A     923     A     
 MAIN               EQ     LSL60                                                           MAIN        1466          I
          -FEAT126AA
 MAIN      PLO      SPACE  4,8                                                             FEAT126B     597     A     
 MAIN      #NL      IFNE   #NL,0                                                           FEAT126B     598     A     
 MAIN     **        PLO - PROCESS C/-LIST OPTIONS.                                         FEAT126B     599     A     
 MAIN     *                                                                                FEAT126B     600     A     
 MAIN     *                THIS ROUTINE ACTS AS THE EXECUTIVE FOR C/-LIST                  FEAT126B     601     A     
 MAIN     *         DIRECTIVE PROCESSING. IT ASSURES THAT C/-LIST DIRECTIVES ARE           FEAT126B     602     A     
 MAIN     *         RELATIVELY INVISIBLE TO THE REST OF *AFS* BY CYCLING OFF ALL           FEAT126B     603     A     
 MAIN     *         PENDING C/-LIST DIRECTIVES AND SETTING THE APPROPRIATE LISTING         FEAT126B     604     A     
 MAIN     *         CONTROL FLAGS. UPON EXIT FROM *PLO*, YOU ARE ASSURRED THAT THE         FEAT126B     605     A     
 MAIN     *         NEXT LINE PENDING IS NOT A C/-LIST DIRECTIVE.                          FEAT126B     606     A     
 MAIN     *                                                                                FEAT126B     607     A     
 MAIN     *                                                                                FEAT126B     608     A     
 MAIN     *         ENTRY  (CSLIST)  =  1S59 IF C/-LIST,ALL OCCURRED                       FEAT126B     609     A     
 MAIN     *                          =    1  IF C/-LIST,NONE OCCURRED                      FEAT126B     610     A     
 MAIN     *                          =   +0  IF C/-LIST DIRECTIVE DID NOT OCCUR            FEAT126B     611     A     
 MAIN     *                (CSSTMT)  =  .NZ. IF *RNS* DETECTED C/-LINE AS POSSIBLY         FEAT126B     612     A     
 MAIN     *                                    1ST LINE OF PROG UNIT, ELSE .ZR.            FEAT126B     613     A     
 MAIN     *                (HDELAY)  =  .NZ. IF IN *HEADER DELAY* MODE                     FCC1328X     304     A     
 MAIN     *                                  (I.E. SAVING ALL LINES IN AN ATTEMPT          FCC1328X     305     A     
 MAIN     *                                  TO GET PROGRAM UNIT NAME FOR TITLE            FCC1328X     306     A     
 MAIN     *                                  LINE), ELSE .ZR.                              FCC1328X     307     A     
 MAIN     *                (NOLIST)  =  1S59 IF C/-LIST,ALL ACTIVE                         FEAT126B     614     A     
 MAIN     *                          =   +0  IF C/-LIST,NONE ACTIVE                        FEAT126B     615     A     
 MAIN     *                (B6)      =  -NR OF USEABLE WORDS IN SOURCE LINE IMAGE          FCC1328X     308     A     
 MAIN     *                               AT (CP.CARD) ET SEQ                              FCC1328X     309     A     
 MAIN     *                               (I.E. DOES NOT INCLUDE FULL WORD EOL MK)         FCC1328X     310     A     
 MAIN     *                                                                                FEAT126B     616     A     
 MAIN     *                IN BATCH --                                                     FEAT126B     617     A     
 MAIN     *                (A5,X5)   =  ADDR + CONTENTS 1ST WORD OF LINE IMAGE TO          FEAT126B     618     A     
 MAIN     *                               BE BURST FROM (CP.BUF).                          FEAT126B     619          I
          -FEAT155E 
 MAIN     *                (B6)      =  LWA+1 OF LINE IMAGE IN (CP.BUF)                    FEAT126B     620          I
          -FEAT155E 
 MAIN     *                               BE BURST FROM (CP.CARD).                         FEAT155E     209     A     
 MAIN     *                (B6)      =  LWA+1 OF LINE IMAGE IN (CP.CARD)                   FEAT155E     210          I
          -FCC1328X 
 MAIN     *                                                                                FEAT126B     621     A     
 MAIN     *                IN SEQ --                                                       FEAT126B     622     A     
 MAIN     *                (X3)      =  CHARACTER POSITION IN WORD.  ACTER                 FEAT126B     623     A     
 MAIN     *                               POSITIONS IN (X3) ARE NUMBERED --                FEAT126B     624     A     
 MAIN     *                               (01 10 09 08 07 06 05 04 03 02).                 FEAT126B     625     A     
 MAIN     *                               E.G. WHEN THE 4TH CHARACTER IS IN BITS           FEAT126B     626     A     
 MAIN     *                               (05-00) OF (X5), THEN THE SIGN BIT WILL          FEAT126B     627     A     
 MAIN     *                               BE ON IN THE 4TH CHAR POSITION IN (X3).          FEAT126B     628     A     
 MAIN     *                               (X5) = (05 06 07 08 09 10 01 02 03 04)           FEAT126B     629     A     
 MAIN     *                               (X3) = (00 00 00 00 00 00 00 40 00 00B)          FEAT126B     630     A     
 MAIN     *                (A5,X5)   =  IF A *C/    * LINE DID NOT OCCUR, THE NTH          FEAT126B     631     A     
 MAIN     *                               WORD IN (CP.BUF) WITH THE NON-DIGIT THAT         FEAT126B     632          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 905    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
          -FEAT155E 
 MAIN     *                               TERMINATED ASSEMBLY OF LINE NR IN BITS           FEAT126B     633          I
          -FEAT155E 
 MAIN     *                               (05-00); ELSE 1ST CHARACTER AFTER                FEAT126B     634          I
          -FEAT155E 
 MAIN     *                               WORD IN (CP.CARD) WITH THE NON-DIGIT             FEAT155E     211     A     
 MAIN     *                               THAT TERMINATED ASSEMBLY OF LINE NR IN           FEAT155E     212     A     
 MAIN     *                               BITS (05-00); ELSE 1ST CHARACTER AFTER           FEAT155E     213     A     
 MAIN     *                               *C/    * IN BITS (05-00)                         FEAT126B     635     A     
 MAIN     *                (B3)      =  NR OF COLUMNS REMAINING OF LINE IMAGE              FEAT126B     636          I
          -FCC1328X 
 MAIN     *                               IN (CP.BUF)                                      FEAT126B     637          I
          -FEAT155E 
 MAIN     *                               IN (CP.CARD)                                     FEAT155E     214          I
          -FCC1328X 
 MAIN     *                (B2)      =  NR OF LEADING BLANKS (BIASED BY -1777B)            FCC1328X     311     A     
 MAIN     *                               (E.G. FOR 1 LEADING BLANK, (B2)=-1776B)          FCC1328X     312     A     
 MAIN     *                (B6)      =  -NR OF WORDS REMAINING OF LINE IMAGE               FEAT126B     638          I
          -FCC1328X 
 MAIN     *                               IN (CP.BUF)                                      FEAT126B     639          I
          -FEAT155E 
 MAIN     *                               IN (CP.CARD)                                     FEAT155E     215          I
          -FCC1328X 
 MAIN     *                (B3)      =  NR OF COLUMNS REMAINING IN LINE IMAGE              FCC1328X     313     A     
 MAIN     *                                                                                FEAT126B     640     A     
 MAIN     *         EXIT   (X0)      =  MX0 -CHAR                                          FEAT126B     641     A     
 MAIN     *                (X5)      =  .ZR. IF END OF SECTION WAS ENCOUNTERED             FEAT126B     642          I
          -FCC1328X 
 MAIN     *                                                                                FCC1328X     314     A     
 MAIN     *                IF NO PENDING C/-LIST DIRECTIVE, THE FOLLOWING                  FCC1328X     315     A     
 MAIN     *                  REGISTERS ARE AS ON ENTRY; ELSE THEY ARE AS SET BY            FCC1328X     316     A     
 MAIN     *                  *RNS* -- (X3),(A5,X5),(B2),(B3),(B6)                          FCC1328X     317     A     
 MAIN     *                                                                                FEAT126B     643     A     
 MAIN     *         USES   ALL                                                             FEAT126B     644     A     
 MAIN     *                                                                                FEAT126B     645     A     
 MAIN     *         CALLS  CLO,CNT,FATAL,PLR,RNC,RNS                                       FEAT126B     646          I
          -FCC1328X 
 MAIN     *         CALLS  CLO,CNT,FATAL,LDB,RNC,RNS                                       FCC1328X     318     A     
 MAIN                                                                                      FEAT126B     647     A     
 MAIN                                                                                      FEAT126B     648     A     
 MAIN      PLO      SUBR               ** ENTRY/EXIT **                                    FEAT126B     649     A     
 MAIN      PLO2     SA1    CSLIST                                                          FEAT126B     650     A     
 MAIN               SA2    NOLIST                                                          FEAT126B     651     A     
 MAIN               SA4    CSSTMT                                                          FEAT126B     652     A     
 MAIN               MX6    0                                                               FEAT126B     653     A     
 MAIN               BX7    X1+X4                                                           FEAT126B     654     A     
 MAIN               MX0    -CHAR                                                           FEAT126B     655     A     
 MAIN               SA6    =XDEFERL    SET TO *NO LINES IN DEFERRED LISTING BUFF*          FEAT126B     656          I
          -FCC1328X 
 MAIN               ZR     X7,EXIT.    IF C/-LIST DIRECTIVE DID NOT OCCUR                  FEAT126B     657     A     
 MAIN               SA6    A1          CLEAR (CSLIST)                                      FEAT126B     658          I
          -FCC1328X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 906    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               NZ     X4,PLO7     IF POSSIBLY 1ST LINE OF PROG UNT IS C/-LIST         FEAT126B     659     A     
 MAIN               AX1    59          (X1) = +0 IF C/-LIST,NONE IS NEW MODE               FEAT126B     660     A     
 MAIN     *                                 = -0 IF C/-LIST,ALL IS NEW MODE                FEAT126B     661     A     
 MAIN               AX2    59          (X2) = +0 IF C/-LIST,NONE IS CURRENT MODE           FEAT126B     662     A     
 MAIN     *                                 = -0 IF C/-LIST,ALL IS CURRENT MODE            FEAT126B     663     A     
 MAIN               BX7    X1-X2       (X7) = +0 IF NEW MODE.EQ.CURRENT MODE               FEAT126B     664     A     
 MAIN     *                                 = -0 IF NEW MODE.NE.CURRENT MODE               FEAT126B     665     A     
 MAIN                                                                                      FEAT126BC      5     A     
 MAIN      .T       IFNE   TEST,0                                                          FEAT126BC      6     A     
 MAIN               SA4    =XCO.SNAP                                                       FEAT126BC      7     A     
 MAIN               LX4    1RU                                                             FEAT126BC      8     A     
 MAIN               MI     X4,PLO5     IF (SNAP=U), IGNORE C/-LIST LINES                   FEAT126BC      9     A     
 MAIN      .T       ENDIF                                                                  FEAT126BC     10     A     
 MAIN                                                                                      FEAT126BC     11     A     
 MAIN               MI     X7,PLO3     IF NEW MODE .NE. CURRENT MODE                       FEAT126B     666     A     
 MAIN                                                                                      FEAT126B     667     A     
 MAIN     *         HERE IF NEW MODE .EQ. CURRENT MODE.                                    FEAT126B     668     A     
 MAIN                                                                                      FEAT126B     669     A     
 MAIN               RJ     PLR         PROCESS LISTING REQUEST (C/-LINE)                   FEAT126B     670     A     
 MAIN               EQ     PLO6                                                            FEAT126B     671     A     
 MAIN                                                                                      FEAT126B     672     A     
 MAIN      PLO3     MI     X1,PLO5     IF NEW MODE IS *LIST,ALL*                           FEAT126B     673     A     
 MAIN                                                                                      FEAT126B     674     A     
 MAIN     *         HERE IF C/-LIST,NONE OCCURRED.                                         FEAT126B     675     A     
 MAIN                                                                                      FEAT126B     676     A     
 MAIN               SA3    CARDS                                                           FEAT126B     677     A     
 MAIN               SX3    X3-1                                                            FEAT126B     678     A     
 MAIN               NZ     X3,PLO4     IF THIS IS NOT LINE 1 OF PROG UNIT                  FEAT126B     679     A     
 MAIN               SA6    NOLIST      SET TO *LIST,NONE* STATUS                           FEAT126B     680     A     
 MAIN                                                                                      FEAT126B     681     A     
 MAIN      PLO4     RJ     PLR         PROCESS LISTING REQUEST (C/-LIST,NONE LINE)         FEAT126B     682          I
          -FCC1328X 
 MAIN      PLO4     RJ     LDB         LIST DEFERRED BUFFER(ONLY IF BEFORE HEADER)         FCC1328X     319     A     
 MAIN               RJ     PLR         PROCESS LISTING REQUEST (C/-LIST,NONE LINE)         FCC1328X     320     A     
 MAIN               MX6    0                                                               FEAT126B     683     A     
 MAIN               SA6    NOLIST      SET TO *LIST,NONE* STATUS                           FEAT126B     684     A     
 MAIN               SA6    LOP=O       SET TO *DO NOT LIST OBJECT CODE*                    FEAT126B     685     A     
 MAIN               EQ     PLO6                                                            FEAT126B     686     A     
 MAIN                                                                                      FEAT126B     687     A     
 MAIN     *         HERE IF C/-LIST,ALL OCCURRED.                                          FEAT126B     688     A     
 MAIN                                                                                      FEAT126B     689     A     
 MAIN      PLO5     SA1    MLOP=O                                                          FEAT126B     690     A     
 MAIN               MX6    1                                                               FEAT126B     691     A     
 MAIN               SA6    A2          SET TO *LIST,ALL* STATUS                            FEAT126B     692     A     
 MAIN               BX6    X1*X6                                                           FEAT126B     693     A     
 MAIN               SA6    LOP=O       SET TO *LIST OBJECT CODE* IF *OL* ON                FEAT126B     694     A     
 MAIN               RJ     PLR         PROCESS LISTING REQUEST (C/-LIST,ALL LINE)          FEAT126B     695     A     
 MAIN                                                                                      FEAT126B     696     A     
 MAIN     *         REQUEST NEXT LINE AND CHECK FOR C/-LIST OPTION.                        FEAT126B     697     A     
 MAIN                                                                                      FEAT126B     698     A     
 MAIN      PLO6     SB4    CP.BUF                                                          FEAT126B     699          I
          -FEAT155E 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 907    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               RJ     RNC         READ NEXT CARD                                      FEAT126B     700          I
          -FEAT155E 
 MAIN      PLO6     RJ     RNC         READ NEXT CARD                                      FEAT155E     216          I
          -FCC1328X 
 MAIN      PLO6     BX6    X6-X6                                                           FCC1328X     321     A     
 MAIN               NO                                                                     FCC1328X     322     A     
 MAIN               SA6    =XCSLIST    CLEAR TO *NO C/-LIST LINE PENDING*                  FCC1328X     323     A     
 MAIN               RJ     RNC         READ NEXT CARD                                      FCC1328X     324     A     
 MAIN               BX5    0                                                               FEAT126B     701     A     
 MAIN               SB6    -B7         (B6) = -NR OF USEABLE WORDS IN SOURCE LINE          FCC1328X     325     A     
 MAIN               NZ     X1,PLO8     IF END OF SECTION ENCOUNTERED                       FEAT126B     702     A     
 MAIN               SA5    X0                                                              FEAT126B     703          I
          -FEAT155E 
 MAIN               SA5    B4                                                              FEAT155E     217     A     
 MAIN               RJ     RNS         READ NEXT STATEMENT                                 FEAT126B     704     A     
 MAIN               ZR     X5,PLO8     IF END OF SECTION ENCOUNTERED                       FEAT126B     705     A     
 MAIN                                                                                      FEAT126B     706     A     
 MAIN      PLO7     RJ     CLO         CHECK FOR C/-LIST OPTION                            FEAT126B     707     A     
 MAIN               ZR     X5,PLO8     IF (1) A C/-LINE FOLLOWED BY EITHER ANOTHER         FEAT126B     708     A     
 MAIN     *                              C/-LINE OR AN END OF SECTION, OR                  FEAT126B     709     A     
 MAIN     *                              (2) POSSIBLY 1ST LINE OF PROG UNIT IS             FEAT126B     710     A     
 MAIN     *                              C/-LIST DIRECTIVE                                 FEAT126B     711     A     
 MAIN               RJ     CNT         CHECK FOR CONTINUATION                              FEAT126B     712     A     
 MAIN               NZ     X1,PLO8     IF THIS IS NOT A CONTINUATION LINE                  FEAT126B     713     A     
 MAIN               RJ     PLR         PROCESS LISTING REQUEST (CONT LINE IN ERR)          FEAT126B     714     A     
 MAIN               EQ     PLO6                                                            FEAT126B     715     A     
 MAIN                                                                                      FEAT126B     716     A     
 MAIN      PLO8     SA1    CCNT                                                            FEAT126B     717     A     
 MAIN               ZR     X1,PLO2     IF DO NOT NEED TO ISSUE CONT ERR MSG                FEAT126B     718          I
          -FCC1328X 
 MAIN               ZR     X1,PLO9     IF DO NOT NEED TO ISSUE CONTINUATN ERR MSG          FCC1328X     326     A     
 MAIN                                                                                      FEAT126B     719     A     
 MAIN     *         HERE IF READY TO ISSUE ERROR MESSAGE.                                  FEAT126B     720     A     
 MAIN                                                                                      FEAT126B     721     A     
 MAIN               MX6    0                                                               FEAT126B     722     A     
 MAIN               SA6    A1          CLEAR CONTINUATION COUNT                            FEAT126B     723     A     
 MAIN               FATAL  E.MLNL      ERR MSG NR - *C/-LIST CANT BE FLWED BY CNT*         FEAT126B     724     A     
 MAIN               EQ     PLO2                                                            FEAT126B     725          I
          -FCC1328X 
 MAIN                                                                                      FCC1328X     327     A     
 MAIN     *         INITIALIZE FOR NEXT CYCLE THROUGH *PLO* WITH INITIAL LINE              FCC1328X     328     A     
 MAIN     *         OF STATEMENT FOLLOWING THE *C/-LIST* STATEMENT WE JUST                 FCC1328X     329     A     
 MAIN     *         PROCESSED.                                                             FCC1328X     330     A     
 MAIN     *           E.G. FOR                                                             FCC1328X     331     A     
 MAIN     *              C/    LIST,ALL               << JUST PROCESSED THIS, AND          FCC1328X     332     A     
 MAIN     *              C                            <<                                   FCC1328X     333     A     
 MAIN     *              C                            << CYCLED OFF THESE, AND             FCC1328X     334     A     
 MAIN     *                   ,BAD CONTINUATION LINE  << ISSUED ERR MSG FOR THIS.          FCC1328X     335     A     
 MAIN     *                    NEW STATEMENT          << READY TO PROCESS WHATEVER         FCC1328X     336     A     
 MAIN     *                                              IS HERE                           FCC1328X     337     A     
 MAIN                                                                                      FCC1328X     338     A     
 MAIN      PLO9     SA1    =XHDELAY                                                        FCC1328X     339     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 908    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               NZ     X1,PLO2     IF IN *HEADER DELAY* MODE                           FCC1328X     340     A     
 MAIN               SHRINK T=DLBUF,0                                                       FCC1328X     341     A     
 MAIN               EQ     PLO2                                                            FCC1328X     342     A     
 MAIN                                                                                      FCC1328X     343     A     
 MAIN      #NL      ELSE                                                                   FEAT126B     726     A     
 MAIN      PLO      SUBR                                                                   FEAT126B     727     A     
 MAIN               EQ     EXIT.                                                           FEAT126B     728     A     
 MAIN      #NL      ENDIF                                                                  FEAT126B     729     A     
 MAIN      PLR      SPACE  4,8                                                             FEAT126B     730          I
          -FCC1328X 
 MAIN     **        PLR - PROCESS LISTING REQUEST                                          FEAT126B     731          I
          -FCC1328X 
 MAIN     *                                                                                FEAT126B     732          I
          -FCC1328X 
 MAIN     *                PROCESSES A REQUEST TO LIST A SOURCE LINE. OPERATES             FEAT126B     733          I
          -FCC1328X 
 MAIN     *         IN ONE OF TWO MODES, AS FOLLOWS --                                     FEAT126B     734          I
          -FCC1328X 
 MAIN     *         (1) IF THE SOURCE LISTING OPTION IS OFF (L=0,SL=0) OR A                FEAT126B     735          I
          -FCC1328X 
 MAIN     *         C/-LIST,NONE IS ACTIVE, SAVES EACH FULL STATEMENT (INITIAL             FEAT126B     736          I
          -FCC1328X 
 MAIN     *         LINE PLUS CONTINUATION LINES) IN A BUFFER FOR POSSIBLE ERROR           FEAT126B     737          I
          -FCC1328X 
 MAIN     *         LISTING. IN THIS MODE, COMMENT LINES ARE DISCARDED.                    FEAT126B     738          I
          -FCC1328X 
 MAIN     *         (2) IF THE SOURCE LISTING OPTION IS ON (L.NE.0,SL.NE.0) AND            FEAT126B     739          I
          -FCC1328X 
 MAIN     *         A C/-LIST,NONE NOT ACTIVE, THEN LISTS EACH LINE IMMEDIATELY.           FEAT126B     740          I
          -FCC1328X 
 MAIN     *                                                                                FEAT126B     741          I
          -FCC1328X 
 MAIN     *                                                                                FEAT126B     742          I
          -FCC1328X 
 MAIN     *         ENTRY  (CCNT)    =  NR OF CONTINUATION LINES                           FEAT126B     743          I
          -FCC1328X 
 MAIN     *                (CP.BUF)  =  LINE IMAGE TO BE LISTED OR SAVED                   FEAT126B     744          I
          -FEAT155E -FCC1328X 
 MAIN     *                (CP.CARD) =  LINE IMAGE TO BE LISTED OR SAVED                   FEAT155E     218          I
          -FCC1328X 
 MAIN     *                (NOLIST)  =  1S59 IF C/-LIST,ALL ACTIVE                         FEAT126B     745          I
          -FCC1328X 
 MAIN     *                          =   +0  IF C/-LIST,NONE ACTIVE                        FEAT126B     746          I
          -FCC1328X 
 MAIN     *                (SLIST)   =  1S59 IF (L.NE.0,SL.NE.0) ON CONTROL CARD           FEAT126B     747          I
          -FCC1328X 
 MAIN     *                          =   +0  IF (L=0,SL=0) ON CONTROL CARD                 FEAT126B     748          I
          -FCC1328X 
 MAIN     *                                                                                FEAT126B     749          I
          -FCC1328X 
 MAIN     *         EXIT   (DLBUF)   =  IF IN NOLIST MODE, SAVED LINE FOR POSSIBLE         FEAT126B     750          I
          -FCC1328X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 909    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     *                               ERROR LISTING                                    FEAT126B     751          I
          -FCC1328X 
 MAIN     *                                                                                FEAT126B     752          I
          -FCC1328X 
 MAIN     *         USES   ALL BUT A0                                                      FEAT126B     753          I
          -FCC1328X 
 MAIN     *                                                                                FEAT126B     754          I
          -FCC1328X 
 MAIN     *         CALLS  ALLOC,LSL                                                       FEAT126B     755          I
          -FCC1328X 
 MAIN                                                                                      FEAT126B     756          I
          -FCC1328X 
 MAIN                                                                                      FEAT126B     757          I
          -FCC1328X 
 MAIN      PLR      SUBR               ** ENTRY/EXIT **                                    FEAT126B     758          I
          -FCC1328X 
 MAIN                                                                                      FEAT126B     759          I
          -FCC1328X 
 MAIN     *         SET UP REF LINE FOR *ERT*                                              FEAT155E     219          I
          -FCC1328X 
 MAIN                                                                                      FEAT155E     220          I
          -FCC1328X 
 MAIN               SA2    CCNT                                                            FEAT155E     221          I
          -FCC1328X 
 MAIN               SA3    CO.MODE                                                         FEAT155E     222          I
          -FCC1328X 
 MAIN               BX3    X3+X2                                                           FEAT155E     223          I
          -FCC1328X 
 MAIN               NZ     X3,PLR1     IF SEQ MODE OR NOT AN INITIAL LINE                  FEAT155E     224          I
          -FCC1328X 
 MAIN               SA2    CARDS                                                           FEAT155E     225          I
          -FCC1328X 
 MAIN               BX6    X2                                                              FEAT155E     226          I
          -FCC1328X 
 MAIN               LX6    CHAR                                                            FEAT155E     227          I
          -FCC1328X 
 MAIN               SA6    REFLIN      SET UP WORD NOR REFERENCES                          FEAT155E     228          I
          -FCC1328X 
 MAIN                                                                                      FEAT155E     229          I
          -FCC1328X 
 MAIN     *         LIST THE LINE AT (CP.BUF) IF IN *LIST* MODE.                           FEAT126B     760          I
          -FEAT155E -FCC1328X 
 MAIN     *         LIST THE LINE AT (CP.CARD) IF IN *LIST* MODE.                          FEAT155E     230          I
          -FCC1328X 
 MAIN                                                                                      FEAT126B     761          I
          -FCC1328X 
 MAIN               SA2    =XSLIST                                                         FEAT126B     762          I
          -FEAT155E -FCC1328X 
 MAIN      PLR1     SA2    =XSLIST                                                         FEAT155E     231          I
          -FCC1328X 
 MAIN               SA3    NOLIST                                                          FEAT126B     763          I
          -FCC1328X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 910    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               SA5    DEFERL                                                          FEAT126B     764          I
          -FCC1328X 
 MAIN               BX6    X2*X3                                                           FEAT126B     765          I
          -FCC1328X 
 MAIN               ZR     X6,PLR2     IF (L=0) OR C/-LIST,NONE ACTIVE                     FEAT126B     766          I
          -FCC1328X 
 MAIN               SA2    ICA                                                             FEAT126B     767          I
          -FEAT155E -FCC1328X 
 MAIN               SX1    CP.BUF-3                                                        FEAT126B     768          I
          -FEAT155E -FCC1328X 
 MAIN               SX1    CP.FLIN                                                         FEAT155E     232          I
          -FCC1328X 
 MAIN               RJ     LSL         LIST SOURCE LINE                                    FEAT126B     769          I
          -FCC1328X 
 MAIN               SA2    =10H                                                            FEAT126B     770          I
          -FEAT155E -FCC1328X 
 MAIN               BX7    X2                                                              FEAT126B     771          I
          -FEAT155E -FCC1328X 
 MAIN               SA7    ICA         BLANK OUT CODE ADDRESS                              FEAT126B     772          I
          -FEAT155E -FCC1328X 
 MAIN                                                                                      FEAT126B     773          I
          -FEAT155E -FCC1328X 
 MAIN     *         SET UP REF LINE FOR *ERT*.                                             FEAT126B     774          I
          -FEAT155E -FCC1328X 
 MAIN                                                                                      FEAT126B     775          I
          -FEAT155E -FCC1328X 
 MAIN               SA1    CCNT                                                            FEAT126B     776          I
          -FEAT155E -FCC1328X 
 MAIN               SA2    REFPAG                                                          FEAT126B     777          I
          -FEAT155E -FCC1328X 
 MAIN               NZ     X1,EXIT.    IF NOT AN INITIAL LINE                              FEAT126B     778          I
          -FEAT155E -FCC1328X 
 MAIN               SA3    LCNT                                                            FEAT126B     779          I
          -FEAT155E -FCC1328X 
 MAIN               IX7    X2+X3                                                           FEAT126B     780          I
          -FEAT155E -FCC1328X 
 MAIN               LX7    P.CRLIN                                                         FEAT126B     781          I
          -FEAT155E -FCC1328X 
 MAIN               SA7    REFLIN                                                          FEAT126B     782          I
          -FEAT155E -FCC1328X 
 MAIN               EQ     EXIT.                                                           FEAT126B     783          I
          -FCC1328X 
 MAIN                                                                                      FEAT126B     784          I
          -FCC1328X 
 MAIN     *         HERE IF (L=0) OR C/-LIST,NONE ACTIVE.                                  FEAT126B     785          I
          -FCC1328X 
 MAIN                                                                                      FEAT126B     786          I
          -FCC1328X 
 MAIN      PLR2     SA2    T=DLBUF                                                         FEAT126B     787          I
          -FCC1328X 
 MAIN               ZR     X5,PLR3     IF THIS IS INITIAL LINE TO BE SAVED                 FEAT126B     788          I
          -FCC1309  -FCC1328X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 911    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN                                                                                      FEAT126B     789          I
          -FCC1309  -FCC1328X 
 MAIN     *         HERE IF SAVING NON-INITIAL LINE OF STMT -- NEED MORE SPACE.            FEAT126B     790          I
          -FCC1309  -FCC1328X 
 MAIN                                                                                      FEAT126B     791          I
          -FCC1309  -FCC1328X 
 MAIN               ALLOC  T.DLBUF,11                                                      FEAT126B     792          I
          -FCC1309  -FCC1328X 
 MAIN               EQ     PLR4                                                            FEAT126B     793          I
          -FCC1309  -FCC1328X 
 MAIN               =X0    =XL.MAXCD+3                                                     FCC1309       10          I
          -FCC1328X 
 MAIN               NZ     X5,PLR35    IF THIS IS A CONTINUATION LINE                      FCC1309       11          I
          -FCC1328X 
 MAIN                                                                                      FEAT126B     794          I
          -FCC1328X 
 MAIN     *         HERE IF SAVING INITIAL LINE OF STMT -- MIGHT BE CONTINUATION.          FEAT126B     795          I
          -FCC1328X 
 MAIN                                                                                      FEAT126B     796          I
          -FCC1328X 
 MAIN      PLR3     SX0    X2-11-3                                                         FEAT126B     797          I
          -FEAT155E -FCC1328X 
 MAIN               ZR     X0,PLR4     IF *DLBUF* IS 14 WORDS LONG                         FEAT126B     798          I
          -FEAT155E -FCC1328X 
 MAIN      PLR3     SX0    X2-11-2                                                         FEAT155E     233          I
          -FCC1309  -FCC1328X 
 MAIN      PLR3     IX0    X2-X0                                                           FCC1309       12          I
          -FCC1328X 
 MAIN               ZR     X0,PLR4     IF *DLBUF* IS 13 WORDS LONG                         FEAT155E     234          I
          -FCC1328X 
 MAIN               BX0    -X0                                                             FEAT126B     799          I
          -FCC1328X 
 MAIN               ALLOC  T.DLBUF,X0  ALLOC/DEALLOC SPACE FOR *DLBUF*                     FEAT126B     800          I
          -FCC1309  -FCC1328X 
 MAIN      PLR35    ALLOC  T.DLBUF,X0  ALLOC/DEALLOC SPACE FOR *DLBUF*                     FCC1309       13          I
          -FCC1328X 
 MAIN                                                                                      FEAT126B     801          I
          -FCC1328X 
 MAIN     *         MOVE LINE FROM (CP.BUF) TO THE DEFERRED LISTING BUFFER.                FEAT126B     802          I
          -FEAT155E -FCC1328X 
 MAIN     *         MOVE LINE FROM (CP.FLIN) TO DEFERRED LISTING BUFFER.                   FEAT155E     235          I
          -FCC1328X 
 MAIN                                                                                      FEAT126B     803          I
          -FCC1328X 
 MAIN      PLR4     SA1    T.DLBUF                                                         FEAT126B     804          I
          -FCC1328X 
 MAIN               SA2    CP.BUF                                                          FEAT126B     805          I
          -FEAT155E -FCC1328X 
 MAIN               SA2    CP.FLIN                                                         FEAT155E     236          I
          -FCC1328X 
 MAIN               SB6    X5                                                              FEAT155E     237          I
          -FCC1328X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 912    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               SX6    X5+11                                                           FEAT126B     806          I
          -FCC1309  -FCC1328X 
 MAIN               SX6    X5+L.MAXCD+3                                                    FCC1309       14          I
          -FCC1328X 
 MAIN               MX0    -2*CHAR                                                         FEAT126B     807          I
          -FCC1328X 
 MAIN               SA6    A5                                                              FEAT126B     808          I
          -FCC1328X 
 MAIN               SB6    X5+3                                                            FEAT126B     809          I
          -FEAT155E -FCC1328X 
 MAIN               SB6    X1+B6       (B6) = FWA TO STORE IN *DLBUF*                      FEAT126B     810          I
          -FCC1328X 
 MAIN                                                                                      FEAT126B     811          I
          -FCC1328X 
 MAIN      PLR5     LX6    X2                                                              FEAT126B     812          I
          -FCC1328X 
 MAIN               BX7    -X0*X2                                                          FEAT126B     813          I
          -FCC1328X 
 MAIN               SA6    B6                                                              FEAT126B     814          I
          -FCC1328X 
 MAIN               SA2    A2+B1                                                           FEAT126B     815          I
          -FCC1328X 
 MAIN               SB6    B6+1                                                            FEAT126B     816          I
          -FCC1328X 
 MAIN               NZ     X7,PLR5     IF STILL SAVING LINE                                FEAT126B     817          I
          -FCC1328X 
 MAIN               EQ     EXIT.                                                           FEAT126B     818          I
          -FCC1328X 
 MAIN      PLR      SPACE  4,8                                                             FCC1328X     344     A     
 MAIN     **        PLR - PROCESS LISTING REQUEST.                                         FCC1328X     345     A     
 MAIN     *                                                                                FCC1328X     346     A     
 MAIN     *                                                                                FCC1328X     347     A     
 MAIN     *         PERFORMS THE FOLLOWING TASKS --                                        FCC1328X     348     A     
 MAIN     *           1. IF THE SOURCE LISTING OPTION IS ON (L.NE.0,SL.NE.0)               FCC1328X     349     A     
 MAIN     *              AND A C/-LIST,NONE NOT ACTIVE --                                  FCC1328X     350     A     
 MAIN     *             A. IF NOT IN *HEADER DELAY* MODE, THEN LISTS EACH LINE             FCC1328X     351     A     
 MAIN     *                IMMEDIATELY.  ELSE,                                             FCC1328X     352     A     
 MAIN     *             B. IF IN *HEADER DELAY* MODE, THEN EVERY LINE IS                   FCC1328X     353     A     
 MAIN     *                SAVED/ACCUMULATED IN THE DEFERRED LIST BUFFER   (UP TO          FCC1328X     354     A     
 MAIN     *                A MAX OF *L.MAXDL* WORDS WORTH) IN AN ATTEMPT TO GET            FCC1328X     355     A     
 MAIN     *                THE PROGRAM UNIT NAME FOR THE TITLE LINE.                       FCC1328X     356     A     
 MAIN     *                  E.G. --                                                       FCC1328X     357     A     
 MAIN     *                      C     COMMENT         ..                                  FCC1328X     358     A     
 MAIN     *                      C     COMMENT          .                                  FCC1328X     359     A     
 MAIN     *                            .                .. SAVED UNTIL WE GET              FCC1328X     360     A     
 MAIN     *                            .                .  *PETRETR* FROM                  FCC1328X     361     A     
 MAIN     *                            PROGRAM PETRETR ..  *PROGRAM* STMT PROCESSR         FCC1328X     362     A     
 MAIN     *                                                                                FCC1328X     363     A     
 MAIN     *           2. IF THE SOURCE LISTING OPTION IS OFF (L=0,SL=0)                    FCC1328X     364     A     
 MAIN     *              OR A C/-LIST,NONE ACTIVE, THEN ACCUMULATES AN ENTIRE              FCC1328X     365     A     
 MAIN     *              STMT (INITIAL LINE PLUS CONTINUATION LINES) IN THE                FCC1328X     366     A     
 MAIN     *              DEFERRED LIST BUFFER *T.DLBUF* FOR POSSIBLE LISTING BY            FCC1328X     367     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 913    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     *              THE ERROR PROCESSOR *ERRORS/LLN* IF THE STMT IS FOUND             FCC1328X     368     A     
 MAIN     *              TO BE IN ERROR.  IN THIS MODE, COMMENT LINES ARE                  FCC1328X     369     A     
 MAIN     *              DISCARDED.                                                        FCC1328X     370     A     
 MAIN     *                                                                                FCC1328X     371     A     
 MAIN     *         ENTRY  (CCNT)    = NR OF CONTINUATION LINES                            FCC1328X     372     A     
 MAIN     *                (COMMENT) = .NZ. IF LINE TO PROCESS IS A COMMENT LINE.          FCC1328X     373     A     
 MAIN     *                                 (ONLY USED AS A FLAG BETWEEN *RNS*             FCC1328X     374     A     
 MAIN     *                                 AND *PLR*...KLUGE), ELSE .ZR.                  FCC1328X     375     A     
 MAIN     *                (CO.MODE) = .NZ. IF *SEQ* MODE INPUT                            FCC1328X     376     A     
 MAIN     *                          = .ZR. IF NORMAL FTN INPUT                            FCC1328X     377     A     
 MAIN     *                (CP.CARD) = LINE IMAGE TO BE LISTED OR SAVED.  THE 2            FCC1328X     378     A     
 MAIN     *                            WORDS PRECEDING *CP.CARD*, BEGINNING AT             FCC1328X     379     A     
 MAIN     *                            *CP.FLIN*, ARE USED FOR SPACING AND LINE            FCC1328X     380     A     
 MAIN     *                            NUMBER SET UP.                                      FCC1328X     381     A     
 MAIN     *                (CSLIST)  = .NZ. IF LINE TO PROCESS IS A C/-LIST                FCC1328X     382     A     
 MAIN     *                                 DIRECTIVE, ELSE .ZR.                           FCC1328X     383     A     
 MAIN     *                (HDELAY)  = .NZ. IF IN *HEADER DELAY* MODE                      FCC1328X     384     A     
 MAIN     *                                 (I.E. SAVING ALL LINES IN AN ATTEMPT           FCC1328X     385     A     
 MAIN     *                                 TO GET PROGRAM UNIT NAME FOR TITLE             FCC1328X     386     A     
 MAIN     *                                 LINE), ELSE .ZR.                               FCC1328X     387     A     
 MAIN     *                (L.CARD)  = NR OF WORDS IN SOURCE LINE TO PROCESS               FCC1328X     388     A     
 MAIN     *                            (INCLUDES FULL ZERO WORD EOL MARK)                  FCC1328X     389     A     
 MAIN     *                (NOLIST)  = 1S59 IF C/-LIST,ALL ACTIVE                          FCC1328X     390     A     
 MAIN     *                          =  +0  IF C/-LIST,NONE ACTIVE                         FCC1328X     391     A     
 MAIN     *                (SLIST)   = 1S59 IF (L.NE.0,SL.NE.0) ON CONTROL CARD            FCC1328X     392     A     
 MAIN     *                          =  +0  IF (L=0,SL=0) ON CONTROL CARD                  FCC1328X     393     A     
 MAIN     *                                                                                FCC1328X     394     A     
 MAIN     *         EXIT   (COMMENT) = .ZR.                                                FCC1328X     395     A     
 MAIN     *                                                                                FCC1328X     396     A     
 MAIN     *         USES   ALL BUT A0                                                      FCC1328X     397     A     
 MAIN     *                                                                                FCC1328X     398     A     
 MAIN     *         CALLS  ALLOC,CDD,DXB,LDB,LSL                                           FCC1328X     399     A     
 MAIN                                                                                      FCC1328X     400     A     
 MAIN                                                                                      FCC1328X     401     A     
 MAIN      PLR      SUBR               ** ENTRY/EXIT **                                    FCC1328X     402     A     
 MAIN                                                                                      FCC1328X     403     A     
 MAIN     *         SET UP REFERENCE LINE NR OF INITIAL LINE OF STATEMENT                  FCC1328X     404     A     
 MAIN     *           FOR REF MAP GENERATION (ERT).                                        FCC1328X     405     A     
 MAIN                                                                                      FCC1328X     406     A     
 MAIN               SA4    =10H                                                            FCC1328X     407     A     
 MAIN               SA3    =XSLIST                                                         FCC1328X     408     A     
 MAIN               SA2    =XNOLIST                                                        FCC1328X     409     A     
 MAIN               SA1    =XCOMMENT                                                       FCC1328X     410     A     
 MAIN               LX6    X4                                                              FCC1328X     411     A     
 MAIN               BX5    X2*X3       (X5) = .ZR. IF (L=0) OR C/-LIST,NONE ACTIVE         FCC1328X     412     A     
 MAIN               SA2    =XCCNT                                                          FCC1328X     413     A     
 MAIN               SA3    CO.MODE                                                         FCC1328X     414     A     
 MAIN               BX2    X1+X2                                                           FCC1328X     415     A     
 MAIN               SA1    =XCARDS     (X1) = LINE NR OF THIS LINE  (BINARY)               FCC1328X     416     A     
 MAIN               ZR     X3,PLR2     IF NOT SEQ MODE                                     FCC1328X     417     A     
 MAIN                                                                                      FCC1328X     418     A     
 MAIN               SA1    SEQNO+1     (X1) = SEQUENCE NR OF THIS LINE  (0L FMT)           FCC1328X     419     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 914    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               NZ     X2,PLR5     IF COMMENT OR CONTINUATION LINE                     FCC1328X     420     A     
 MAIN               RJ     =XDXB       CONVERT DECIMAL DPC TO BINARY                       FCC1328X     421     A     
 MAIN               LX6    CHAR                                                            FCC1328X     422     A     
 MAIN               SA6    =XREFLIN                                                        FCC1328X     423     A     
 MAIN               BX6    X4          RESTORE (X6) = 10H                                  FCC1328X     424     A     
 MAIN               EQ     PLR5                                                            FCC1328X     425     A     
 MAIN                                                                                      FCC1328X     426     A     
 MAIN      PLR2     BX7    X1                                                              FCC1328X     427     A     
 MAIN               NZ     X2,PLR3     IF COMMENT OR CONTINUATION LINE                     FCC1328X     428     A     
 MAIN               LX7    CHAR                                                            FCC1328X     429     A     
 MAIN               SA7    =XREFLIN                                                        FCC1328X     430     A     
 MAIN                                                                                      FCC1328X     431     A     
 MAIN     *         SET UP LINE NUMBER FOR LISTING PURPOSES IN NON-SEQ MODE --             FCC1328X     432     A     
 MAIN     *                                                                                FCC1328X     433     A     
 MAIN     *           IF IN LIST MODE (L.NE.0 .AND. C/-LIST,ALL ACTIVE) AND --             FCC1328X     434     A     
 MAIN     *             1. IF THIS LINE NR IS A MULTIPLE OF 5, OR                          FCC1328X     435     A     
 MAIN     *             2. IF THIS LINE IS A C/-LIST LINE, OR                              FCC1328X     436     A     
 MAIN     *             3. IF (CO.SNAP) .NZ. IN *TEST* MODE                                FCC1328X     437     A     
 MAIN     *                                                                                FCC1328X     438     A     
 MAIN     *           IF IN DEFERRED LIST MODE (L=0 .OR. C/-LIST,NONE ACTIVE) AND          FCC1328X     439     A     
 MAIN     *             1. IF THIS IS INITIAL LINE OF STATEMENT, OR                        FCC1328X     440     A     
 MAIN     *             2. IF NOT INITIAL LINE OF STMT .AND. LINE NR IS MULTIPLE           FCC1328X     441     A     
 MAIN     *                  OF 5                                                          FCC1328X     442     A     
 MAIN                                                                                      FCC1328X     443     A     
 MAIN               ZR     X5,PLR4     IF (L=0) OR C/-LIST,NONE ACTIVE                     FCC1328X     444     A     
 MAIN                                                                                      FCC1328X     445     A     
 MAIN      PLR3     SA2    =XCSLIST                                                        FCC1328X     446     A     
 MAIN               NZ     X2,PLR4     IF LISTING C/-LIST LINE                             FCC1328X     447     A     
 MAIN                                                                                      FCC1328X     448     A     
 MAIN      .T       IFNE   TEST,0                                                          FCC1328X     449     A     
 MAIN               SA3    =XCO.SNAP                                                       FCC1328X     450     A     
 MAIN               NZ     X3,PLR4     IF ANY SNAP IS ON, FORCE OUT LINE NR                FCC1328X     451     A     
 MAIN      .T       ENDIF                                                                  FCC1328X     452     A     
 MAIN                                                                                      FCC1328X     453     A     
 MAIN               SX2    146315B     (X2) = MAGIC NR FOR SENSING MULTIPLES OF 5          FCC1328X     454     A     
 MAIN               SX3    5                                                               FCC1328X     455     A     
 MAIN               IX4    X1*X2                                                           FCC1328X     456     A     
 MAIN               AX4    18                                                              FCC1328X     457     A     
 MAIN               IX2    X4*X3                                                           FCC1328X     458     A     
 MAIN               IX3    X1-X2                                                           FCC1328X     459     A     
 MAIN               NZ     X3,PLR5     IF LINE NR IS NOT MULTIPLE OF 5                     FCC1328X     460     A     
 MAIN                                                                                      FCC1328X     461     A     
 MAIN      PLR4     RJ     =XCDD       CONVERT BINARY TO DECIMAL DPC                       FCC1328X     462     A     
 MAIN                                                                                      FCC1328X     463     A     
 MAIN      PLR5     SA1    =XHDELAY                                                        FCC1328X     464     A     
 MAIN               SA2    =XT=DLBUF                                                       FCC1328X     465     A     
 MAIN               SA3    =XCOMMENT                                                       FCC1328X     466     A     
 MAIN               SA4    =XL.CARD                                                        FCC1328X     467     A     
 MAIN               LX6    CHAR                                                            FCC1328X     468     A     
 MAIN               BX7    X7-X7                                                           FCC1328X     469     A     
 MAIN               SA6    =XCP.FLIN                                                       FCC1328X     470     A     
 MAIN               SA7    A3+         CLEAR TO *NOT COMMENT LINE*                         FCC1328X     471     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 915    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN                                                                                      FCC1328X     472     A     
 MAIN     *         LIST THE LINE AT (CP.CARD) IF IN *LIST* MODE                           FCC1328X     473     A     
 MAIN     *           AND NO HEADER DELAY.                                                 FCC1328X     474     A     
 MAIN                                                                                      FCC1328X     475     A     
 MAIN               ZR     X5,PLR7     IF (L=0) OR C/-LIST,NONE ACTIVE                     FCC1328X     476     A     
 MAIN               ZR     X1,PLR6     IF NO HEADER DELAY                                  FCC1328X     477     A     
 MAIN               SX6    X2-L.MAXDL                                                      FCC1328X     478     A     
 MAIN               MI     X6,PLR8     IF WE WANT TO KEEP SAVING *BEFORE HEADER*           FCC1328X     479     A     
 MAIN               RJ     LDB         LIST DEFERRED BUFFER                                FCC1328X     480     A     
 MAIN                                                                                      FCC1328X     481     A     
 MAIN      PLR6     SX1    =XCP.FLIN   (X1) = FWA OF PRINT LINE AREA                       FCC1328X     482     A     
 MAIN               RJ     LSL         LIST SOURCE LINE                                    FCC1328X     483     A     
 MAIN               EQ     EXIT.                                                           FCC1328X     484     A     
 MAIN                                                                                      FCC1328X     485     A     
 MAIN     *         HERE TO SAVE SOURCE LINE IN A *READY TO LIST* FORMAT                   FCC1328X     486     A     
 MAIN     *         IN THE DEFERRED LIST BUFFER *T.DLBUF* BECAUSE --                       FCC1328X     487     A     
 MAIN     *           1. IN *NOLIST* MODE, (L=0) OR C/-LIST,NONE ACTIVE, OR                FCC1328X     488     A     
 MAIN     *           2. IN *DELAYED HEADER* MODE.                                         FCC1328X     489     A     
 MAIN     *                                                                                FCC1328X     490     A     
 MAIN     *         *T.DLBUF* FORMAT FOR EACH SAVED LINE --                                FCC1328X     491     A     
 MAIN     *           WORD  0        NR OF WORDS IN THIS ENTRY (INCLUDES ITSELF)           FCC1328X     492     A     
 MAIN     *           WORDS 1 THRU N-1 (WHERE N IS THE CONTENTS OF WORD 0)                 FCC1328X     493     A     
 MAIN     *                          CONTAIN THE SAVED SOURCE LINE IN A                    FCC1328X     494     A     
 MAIN     *                          LISTABLE FORMAT.                                      FCC1328X     495     A     
 MAIN     *                                                                                FCC1328X     496     A     
 MAIN     *         SEE ROUTINE *LDB* FOR AN EXAMPLE.                                      FCC1328X     497     A     
 MAIN                                                                                      FCC1328X     498     A     
 MAIN      PLR7     NZ     X3,EXIT.    IF THIS IS A COMMENT LINE                           FCC1328X     499     A     
 MAIN                                                                                      FCC1328X     500     A     
 MAIN      PLR8     SA1    =XT.DLBUF                                                       FCC1328X     501     A     
 MAIN               SA2    =XT=DLBUF                                                       FCC1328X     502          I
          -FCC1328AX
 MAIN               IX5    X1+X2       (X5) = FWA TO STORE LINE                            FCC1328X     503          I
          -FCC1328AX
 MAIN               SB6    1+2+X4      (B6) = NR OF WORDS IN LINE TO SAVE                  FCC1328X     504          I
          -FCC1328AX
 MAIN               ALLOC  A1,B6       ALLOC SPACE FOR LINE TO SAVE                        FCC1328X     505          I
          -FCC1328AX
 MAIN               SA5    =XT=DLBUF                                                       FCC1328AX     11     A     
 MAIN               SB6    1+2+X4      (B6) = NR OF WORDS IN LINE TO SAVE                  FCC1328AX     12     A     
 MAIN               ALLOC  A1,B6                                                           FCC1328AX     13     A     
 MAIN               IX5    X1+X5       (X5) = FWA TO STORE LINE                            FCC1328AX     14     A     
 MAIN               SX6    B6                                                              FCC1328X     506     A     
 MAIN               SA6    X5                                                              FCC1328X     507     A     
 MAIN               SX2    CP.FLIN     (X2) = FROM                                         FCC1328X     508     A     
 MAIN               SX3    X5+B1       (X3) = TO                                           FCC1328X     509     A     
 MAIN               SX1    B6-B1       (X1) = COUNT                                        FCC1328X     510     A     
 MAIN               MVE    X1,X2,X3                                                        FCC1328X     511     A     
 MAIN               EQ     EXIT.                                                           FCC1328X     512     A     
 MAIN                                                                                      FCC1328X     513     A     
 MAIN                                                                                      FCC1328X     514     A     
 MAIN      L.MAXDL  =      404B        MAX NR OF WORDS TO TRY AND SAVE IN                  FCC1328X     515     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 916    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     *                              DEFERRED LIST BUFFER *T.DLBUF* DURING             FCC1328X     516     A     
 MAIN     *                              *BEFORE HEADER* MODE.                             FCC1328X     517     A     
 MAIN      RNC      SPACE  4,12                                                            MAIN        1467          I
          -FCC1328X 
 MAIN     **        RNC -  READ NEXT CARD.                                                 MAIN        1468          I
          -FCC1328X 
 MAIN     *                                                                                MAIN        1469          I
          -FCC1328X 
 MAIN     *         ENTRY  (X2) = FET ADDRESS.                                             MAIN        1470          I
          -FEAT126B -FCC1328X 
 MAIN     *                (B4) _ FWA OF CARD BUFFER.                                      MAIN        1471          I
          -FEAT126B -FCC1328X 
 MAIN     *         ENTRY  (B4) = FWA OF LINE IMAGE AREA                                   FEAT126B     819          I
          -FEAT155E -FCC1328X 
 MAIN     *                                                                                MAIN        1472          I
          -FEAT155E -FCC1328X 
 MAIN     *         EXIT   (X0) = FWA OF CARD IMAGE.                                       MAIN        1473          I
          -FEAT155E -FCC1328X 
 MAIN     *                (X1) = (EOFINP)                                                 MAIN        1474          I
          -FEAT155E -FCC1328X 
 MAIN     *                (B4) PRESERVED.                                                 MAIN        1475          I
          -FEAT155E -FCC1328X 
 MAIN     *         ENTRY  (CP.CARD)  =  FIRST WORD OF CARD IMAGE                          FEAT155E     238          I
          -FCC1328X 
 MAIN     *                                                                                FEAT155E     239          I
          -FCC1328X 
 MAIN     *         EXIT   (X1)        =  (EOFINP)                                         FEAT155E     240          I
          -FCC1328X 
 MAIN     *                (B6)-1 _ LAST WORD STORED IN CARD BUFFER.                       MAIN        1476          I
          -FCC1328X 
 MAIN     *                (AFSA) = (B6)                                                   MAIN        1477          I
          -FCC1328X 
 MAIN     *                                                                                MAIN        1478          I
          -FCC1328X 
 MAIN     *         USES   ALL BUT A0, B4.                                                 MAIN        1479          I
          -FCC1328X 
 MAIN                                                                                      MAIN        1480          I
          -FCC1328X 
 MAIN                                                                                      MAIN        1481          I
          -FCC1328X 
 MAIN     **        AMODE = 0, READ NORMAL SOURCE CARD.                                    MAIN        1482          I
          -FCC1328X 
 MAIN                                                                                      MAIN        1483          I
          -FCC1328X 
 MAIN      RNC1     SX0    B4                                                              MAIN        1484          I
          -FEAT155E -FCC1328X 
 MAIN               READC  F.IN,B4,16                                                      MAIN        1485          I
          -FEAT155E -FCC1328X 
 MAIN               SB4    X0          RESTORE (B4)                                        MAIN        1486          I
          -FEAT155E -FCC1328X 
 MAIN                                                                                      MAIN        1487          I
          -FEAT126A -FCC1328X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 917    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               =A5    B6-1        FETCH LAST WORD OF IMAGE                            MAIN        1488          I
          -FEAT126A -FCC1328X 
 MAIN               BX6    0                                                               MAIN        1489          I
          -FEAT126A -FCC1328X 
 MAIN               SB7    B6-B4       LENGTH OF LINE                                      FEAT126A     924          I
          -FEAT155E -FCC1328X 
 MAIN      RNC1     READC  F.IN,CP.CARD,16                                                 FEAT155E     241          I
          -FCC1328X 
 MAIN               SB4    CP.CARD                                                         FEAT155E     242          I
          -FCC1328X 
 MAIN               SB7    B6-B4                                                           FEAT155E     243          I
          -FCC1328X 
 MAIN               MX6    0                                                               FEAT126A     925          I
          -FEAT155E -FCC1328X 
 MAIN               BX7    X1                                                              FEAT155E     244          I
          -FCC1328X 
 MAIN               SA2    =10H                                                            FEAT155E     245          I
          -FCC1328X 
 MAIN               SA1    CO.MODE                                                         FEAT155E     246          I
          -FCC1328X 
 MAIN               BX6    X2                                                              FEAT155E     247          I
          -FCC1328X 
 MAIN               NZ     X1,RNC1.5   IF IN SEQ MODE                                      FEAT155E     248          I
          -FCC1328X 
 MAIN               SA1    CARDS                                                           FEAT155E     249          I
          -FCC1328X 
 MAIN               SX4    146315B                                                         FEAT155E     250          I
          -FCC1328X 
 MAIN               SX3    5                                                               FEAT155E     251          I
          -FCC1328X 
 MAIN               IX2    X4*X1                                                           FEAT155E     252          I
          -FCC1328X 
 MAIN               AX2    18                                                              FEAT155E     253          I
          -FCC1328X 
 MAIN               IX4    X2*X3                                                           FEAT155E     254          I
          -FCC1328X 
 MAIN               IX2    X1-X4                                                           FEAT155E     255          I
          -FCC1328X 
 MAIN               NZ     X2,RNC1.5   IF NOT A MULTIPLE OF 5                              FEAT155E     256          I
          -FCC1328X 
 MAIN      RNC1.3   RJ     CDD                                                             FEAT155E     257          I
          -FCC1328X 
 MAIN      RNC1.5   LX6    CHAR                                                            FEAT155E     258          I
          -FCC1328X 
 MAIN               =A6    CP.FLIN                                                         FEAT155E     259          I
          -FCC1328X 
 MAIN               MX6    0                                                               FEAT155E     260          I
          -FCC1328X 
 MAIN               BX1    X7          RESTORE EOFINP                                      FEAT155E     261          I
          -FCC1328X 
 MAIN               SB5    B7-10                                                           FEAT126A     926          I
          -FCC1328X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 918    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               LE     B5,RNC1A    IF LINE .LE. 9 WORDS                                FEAT126A     927          I
          -FCC1328X 
 MAIN               SB6    B4+11                                                           FEAT126A     928          I
          -FEAT155E -FCC1328X 
 MAIN               SB6    CP.CARD+11                                                      FEAT155E     262          I
          -FCC1328X 
 MAIN               SA6    B6-B1       TRUNCATE LINE TO 90 CHARACTERS                      FEAT126A     929          I
          -FCC1328X 
 MAIN               EQ     RNC1B       FOR FULL WORD END-OF-LINE MARK                      FEAT126A     930          I
          -FCC1328X 
 MAIN                                                                                      FEAT126A     931          I
          -FCC1328X 
 MAIN      RNC1A    =A5    B6-1        FETCH LAST WORD OF IMAGE                            FEAT126A     932          I
          -FCC1328X 
 MAIN               MX7    -1                                                              MAIN        1490          I
          -FCC1328X 
 MAIN               NZ     X5,RNC2     IF NOT FULL WORD END-OF-LINE MARK                   MAIN        1491          I
          -FCC1328X 
 MAIN               =A4    A5-1                                                            MAIN        1492          I
          -FEAT126A -FCC1328X 
 MAIN      RNC1B    =A4    A5-1                                                            FEAT126A     933          I
          -FCC1328X 
 MAIN               MX3    -CHAR                                                           MAIN        1493          I
          -FCC1328X 
 MAIN               =B6    B6-1                                                            MAIN        1494          I
          -FCC1328X 
 MAIN               BX5    -X3*X4                                                          MAIN        1495          I
          -FCC1328X 
 MAIN               NZ     X5,RNCX     IF NOT 11-CHAR END-OF-LINE                          MAIN        1496          I
          -FCC1328X 
 MAIN               =X7    1R                                                              MAIN        1497          I
          -FCC1328X 
 MAIN               IX6    X7+X4       CHANGE TO 10-CHAR E-O-L                             MAIN        1498          I
          -FCC1328X 
 MAIN               SA6    A4                                                              MAIN        1499          I
          -FCC1328X 
 MAIN               EQ     RNCX        EXIT..                                              MAIN        1500          I
          -FCC1328X 
 MAIN                                                                                      MAIN        1501          I
          -FCC1328X 
 MAIN      RNC2     IX4    X5+X7       LOCATE TRAILING BIT                                 MAIN        1502          I
          -FCC1328X 
 MAIN               SA3    =40404040404040404040B                                          MAIN        1503          I
          -FCC1328X 
 MAIN               SA6    B6          MARK END OF IMAGE                                   MAIN        1504          I
          -FCC1328X 
 MAIN               BX7    -X5*X4                                                          MAIN        1505          I
          -FCC1328X 
 MAIN               =B7    60-CHAR+1                                                       MAIN        1506          I
          -FCC1328X 
 MAIN               BX4    X3*X7       40B WHERE TRAILING 00B WERE                         MAIN        1507          I
          -FCC1328X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 919    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               LX6    X4,B7                                                           MAIN        1508          I
          -FCC1328X 
 MAIN               IX7    X4-X6                                                           MAIN        1509          I
          -FCC1328X 
 MAIN               BX4    X4+X7       77B WHERE TRAILING 00B WERE                         MAIN        1510          I
          -FCC1328X 
 MAIN               SA3    =1H                                                             MAIN        1511          I
          -FCC1328X 
 MAIN               BX6    X4*X3                                                           MAIN        1512          I
          -FCC1328X 
 MAIN               IX7    X5+X6       APPEND TRAILING BLANKS                              MAIN        1513          I
          -FCC1328X 
 MAIN               SA7    A5                                                              MAIN        1514          I
          -FCC1328X 
 MAIN                                                                                      MAIN        1515          I
          -FCC1328X 
 MAIN      RNCX     BX6    X1                                                              MAIN        1516          I
          -FCC1328X 
 MAIN               SX7    B6                                                              MAIN        1517          I
          -FCC1328X 
 MAIN               ZR     X1,RNCY     IF NOT END-OF-SECTION                               MAIN        1518          I
          -FCC1328X 
 MAIN               BX6    0                                                               MAIN        1519          I
          -FCC1328X 
 MAIN               SA6    B4          MARK E-O-S                                          MAIN        1520          I
          -FCC1328X 
 MAIN               SA6    X0          MARK E-O-S                                          MAIN        1521          I
          -FEAT155E -FCC1328X 
 MAIN      RNCY     SA7    AFSA        SAVE END-OF-CARD ADDRESS                            MAIN        1522          I
          -FCC1328X 
 MAIN                                                                                      MAIN        1523          I
          -FCC1328X 
 MAIN      RNC      EQ     *+1S17      ENTRY/EXIT...                                       MAIN        1524          I
          -FCC1328X 
 MAIN               SA3    CARDS                                                           MAIN        1525          I
          -FCC1328X 
 MAIN               SA1    AMODE                                                           MAIN        1526          I
          -FCC1328X 
 MAIN               SX6    X3+B1       ADVANCE SOURCE STATEMENT COUNT                      MAIN        1527          I
          -FCC1328X 
 MAIN               SA6    A3                                                              MAIN        1528          I
          -FCC1328X 
 MAIN               ZR     X1,RNC1     IF NOT COMPRESSED                                   MAIN        1529          I
          -FCC1328X 
 MAIN      #MU      SKIP                                                                   FEAT126B     820          I
          -FCC1328X 
 MAIN               LX1    59                                                              MAIN        1530          I
          -FCC1328X 
 MAIN               MI     X1,RNC4     IF MODIFY                                           MAIN        1531          I
          -FCC1328X 
 MAIN                                                                                      MAIN        1532          I
          -FCC1328X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 920    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN                                                                                      MAIN        1533          I
          -FCC1328X 
 MAIN     **        AMODE = +2, READ UPDATE COMPRESSED TEXT.                               MAIN        1534          I
          -FCC1328X 
 MAIN                                                                                      MAIN        1535          I
          -FCC1328X 
 MAIN               SX0    B4          SAVE (B4)                                           MAIN        1536          I
          -FEAT155E -FCC1328X 
 MAIN               READW  F.IN,B4,2   READ SEQUENCE FIELD AND WORD COUNT                  MAIN        1537          I
          -FEAT155E -FCC1328X 
 MAIN               SB4    X0          RESTORE (B4)                                        MAIN        1538          I
          -FEAT155E -FCC1328X 
 MAIN               SA3    B4+B1                                                           MAIN        1539          I
          -FEAT155E -FCC1328X 
 MAIN               READW  F.IN,CP.CARD,2                                                  FEAT155E     263          I
          -FCC1328X 
 MAIN               SA3    CP.CARD+1                                                       FEAT155E     264          I
          -FCC1328X 
 MAIN               BX6    0                                                               MAIN        1540          I
          -FCC1328X 
 MAIN               SX0    B4+2                                                            MAIN        1541          I
          -FEAT155E -FCC1328X 
 MAIN               SX0    A3+B1                                                           FEAT155E     265          I
          -FCC1328X 
 MAIN               NZ     X1,RNCX     IF EOR                                              MAIN        1542          I
          -FCC1328X 
 MAIN               SB7    X3                                                              MAIN        1543          I
          -FCC1328X 
 MAIN               SA6    X0+B7                                                           MAIN        1544          I
          -FCC1328X 
 MAIN               SX0    B4          SAVE (B4)                                           MAIN        1545          I
          -FEAT155E -FCC1328X 
 MAIN               READW  F.IN,X0,B7                                                      MAIN        1546          I
          -FEAT155E -FCC1328X 
 MAIN               SB4    X0          RESTORE (B4)                                        MAIN        1547          I
          -FEAT155E -FCC1328X 
 MAIN               READW  F.IN,CP.CARD,B7                                                 FEAT155E     266          I
          -FCC1328X 
 MAIN               SB4    CP.CARD                                                         FEAT155E     267          I
          -FCC1328X 
 MAIN               EQ     RNCX        EXIT..                                              MAIN        1548          I
          -FCC1328X 
 MAIN                                                                                      MAIN        1549          I
          -FCC1328X 
 MAIN                                                                                      MAIN        1550          I
          -FCC1328X 
 MAIN     **        AMODE = +1, READ MODIFY COMPRESSED TEXT.                               MAIN        1551          I
          -FCC1328X 
 MAIN                                                                                      MAIN        1552          I
          -FCC1328X 
 MAIN               SX0    B4          SAVE (B4)                                           MAIN        1553          I
          -FEAT155E -FCC1328X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 921    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN      RNC4     READW  F.IN,B4+B1,1 READ SEQUENCE FIELD                                MAIN        1554          I
          -FEAT155E -FCC1328X 
 MAIN               SB4    X0          RESTORE (B4)                                        MAIN        1555          I
          -FEAT155E -FCC1328X 
 MAIN               SX0    B4+2                                                            MAIN        1556          I
          -FEAT155E -FCC1328X 
 MAIN      RNCY     READW  F.IN,CP.CARD+1,1                                                FEAT155E     268          I
          -FCC1328X 
 MAIN               SX0    CP.CARD+2                                                       FEAT155E     269          I
          -FCC1328X 
 MAIN               NZ     X1,RNCX     IF EOR                                              MAIN        1557          I
          -FCC1328X 
 MAIN               SX0    B4          SAVE (B4)                                           MAIN        1558          I
          -FEAT155E -FCC1328X 
 MAIN               READC  F.IN,X0,8   READ CARD IMAGE                                     MAIN        1559          I
          -FEAT155E -FCC1328X 
 MAIN               SB4    X0          RESTORE (B4)                                        MAIN        1560          I
          -FEAT155E -FCC1328X 
 MAIN               READW  F.IN,CP.CARD,8                                                  FEAT155E     270          I
          -FCC1328X 
 MAIN               SB4    CP.CARD                                                         FEAT155E     271          I
          -FCC1328X 
 MAIN               EQ     RNCX        EXIT..                                              MAIN        1561          I
          -FCC1328X 
 MAIN      #MU      ENDIF                                                                  FEAT126B     821          I
          -FCC1328X 
 MAIN               TRUBL                                                                  FEAT126B     822          I
          -FCC1328X 
 MAIN     *CALL COMFRNC                                                                    FCC1328X     518     A     
 MAIN               ENTRY  RNC                                                             FCC1328X     519     A     
 MAIN      RNS      SPACE  4,45                                                            MAIN        1562     A     
 MAIN     **        RNS -  READ NEXT STATEMENT.                                            MAIN        1563     A     
 MAIN     *                                                                                MAIN        1564     A     
 MAIN     *                                                                                MAIN        1565     A     
 MAIN     *         READS CARD IMAGES UNTIL AN INITIAL LINE IS FOUND.  MERELY              MAIN        1566     A     
 MAIN     *         CALLS *RNC* AND LISTS THE LINE, REPEATEDLY, UNTIL A                    MAIN        1567     A     
 MAIN     *         NON-COMMENT IS ENCOUNTERED.  ONLY PURPOSE FOR EXISTANCE IS TO          MAIN        1568     A     
 MAIN     *         MAKE COMMENTS COMPLETELY TRANSPARENT TO *AFS*, SO THAT HE IS           MAIN        1569     A     
 MAIN     *         NOT FULL OF LISTING LOGIC FOR THEM.                                    MAIN        1570     A     
 MAIN     *                                                                                MAIN        1571     A     
 MAIN     *         NOTE   ACCORDING TO *ANSI*, THIS ROUTINE SHOULD NOT EXIST.             MAIN        1572     A     
 MAIN     *                STANDARD FORTRAN DOES NOT PERMIT COMMENT LINES EMBEDDED         MAIN        1573     A     
 MAIN     *                IN A CONTINUATION STRING.  HISTORICALLY, HOWEVER,               MAIN        1574     A     
 MAIN     *                C.D.C. COMPILERS HAVE IGNORED SUCH COMMENTS, AND WHO            MAIN        1575     A     
 MAIN     *                ARE WE TO TINKER WITH PRECEDENT. ..QQ..                         MAIN        1576     A     
 MAIN     *                                                                                MAIN        1577     A     
 MAIN     *         ENTRY  (B4) = FWA OF CARD BUFFER.                                      MAIN        1578          I
          -FEAT126B 
 MAIN     *                (X5) = FIRST WORD OF IMAGE.                                     MAIN        1579          I
          -FEAT126B 
 MAIN     *                (A5) _ FIRST WORD OF IMAGE.                                     MAIN        1580          I
          -FEAT126B 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 922    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     *                PREVIOUS CARD IMAGE IS ALREADY IN CARD BUFFER.                  MAIN        1581          I
          -FEAT126B 
 MAIN     *                                                                                MAIN        1582          I
          -FEAT126B 
 MAIN     *         EXIT   (B4) PRESERVED.                                                 MAIN        1583          I
          -FEAT126B 
 MAIN     *                (B6) MAY BE RESET BY *RNC* CALL.                                MAIN        1584          I
          -FEAT126B 
 MAIN     *                (X0) = MX0 -CHAR.                                               MAIN        1585          I
          -FEAT126B 
 MAIN     *                (X5) = FIRST WORD OF IMAGE.                                     MAIN        1586          I
          -FEAT126B 
 MAIN     *                (A5) _ FIRST WORD OF IMAGE.                                     MAIN        1587          I
          -FEAT126B 
 MAIN     *                CARD BUFFER DOES NOT CONTAIN A COMMENT LINE.                    MAIN        1588          I
          -FEAT126B 
 MAIN     *         ENTRY  (CSSTMT)  =  .NZ. IF A C/-LINE WAS DISCOVERED TO BE             FEAT126B     823     A     
 MAIN     *                                    ONLY A COMMENT, ELSE .ZR.                   FEAT126B     824     A     
 MAIN     *                (A5,X5)   =  ADDR + CONTENTS OF 1ST WORD OF LINE IMAGE          FEAT126B     825     A     
 MAIN     *                (B6)      =  LWA+1 OF LINE IMAGE IN (CP.BUF)                    FEAT126B     826          I
          -FEAT155E 
 MAIN     *                (B6)      =  LWA+1 OF LINE IMAGE IN (CP.CARD)                   FEAT155E     272          I
          -FCC1328X 
 MAIN     *                (B6)      =  -NR OF USEABLE WORDS IN SOURCE LINE IMAGE          FCC1328X     520     A     
 MAIN     *                               AT (CP.CARD) ET SEQ                              FCC1328X     521     A     
 MAIN     *                               (I.E. DOES NOT INCLUDE FULL WORD EOL MK)         FCC1328X     522     A     
 MAIN     *                                                                                FEAT126B     827     A     
 MAIN     *         EXIT   (CSSTMT)  =  .NZ. IF A *C/    * LINE OCCURRED,ELSE .ZR.         FEAT126B     828     A     
 MAIN     *                (X0)      =  MX0 -CHAR                                          FEAT126B     829     A     
 MAIN     *                (B6)      =  -NR OF USEABLE WORDS IN SOURCE LINE IMAGE          FCC1328X     523     A     
 MAIN     *                               AT (CP.CARD) ET SEQ                              FCC1328X     524     A     
 MAIN     *                               (I.E. DOES NOT INCLUDE FULL WORD EOL MK)         FCC1328X     525     A     
 MAIN     *                                                                                FEAT126B     830     A     
 MAIN     *                IN BATCH --                                                     FEAT126B     831     A     
 MAIN     *                (A5,X5)   =  ADDR + CONTENTS 1ST WORD OF LINE IMAGE TO          FEAT126B     832     A     
 MAIN     *                               BE BURST FROM (CP.BUF).                          FEAT126B     833          I
          -FEAT155E 
 MAIN     *                (B6)      =  LWA+1 OF LINE IMAGE IN (CP.BUF)                    FEAT126B     834          I
          -FEAT155E 
 MAIN     *                               BE BURST FROM (CP.CARD).                         FEAT155E     273     A     
 MAIN     *                (B6)      =  LWA+1 OF LINE IMAGE IN (CP.CARD)                   FEAT155E     274          I
          -FCC1328X 
 MAIN     *                                                                                FEAT126B     835     A     
 MAIN     *                IN SEQ --                                                       FEAT126B     836     A     
 MAIN     *                (X3)      =  CHARACTER POSITION IN WORD. CHARACTER              FEAT126B     837     A     
 MAIN     *                               POSITIONS IN (X3) ARE NUMBERED --                FEAT126B     838     A     
 MAIN     *                               (01 10 09 08 07 06 05 04 03 02).                 FEAT126B     839     A     
 MAIN     *                               E.G. WHEN THE 4TH CHARACTER IS IN BITS           FEAT126B     840     A     
 MAIN     *                               (05-00) OF (X5), THEN THE SIGN BIT WILL          FEAT126B     841     A     
 MAIN     *                               BE ON IN THE 4TH CHAR POSITION IN (X3).          FEAT126B     842     A     
 MAIN     *                               (X5) = (05 06 07 08 09 10 01 02 03 04)           FEAT126B     843     A     
 MAIN     *                               (X3) = (00 00 00 00 00 00 00 40 00 00B)          FEAT126B     844     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 923    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN     *                (A5,X5)   =  IF A *C/    * LINE DID NOT OCCUR, THE NTH          FEAT126B     845     A     
 MAIN     *                               WORD IN (CP.BUF) WITH THE NON-DIGIT THAT         FEAT126B     846          I
          -FEAT155E 
 MAIN     *                               TERMINATED ASSEMBLY OF LINE NR IN BITS           FEAT126B     847          I
          -FEAT155E 
 MAIN     *                               (05-00); ELSE 1ST CHARACTER AFTER                FEAT126B     848          I
          -FEAT155E 
 MAIN     *                               WORD IN (CP.CARD) WITH THE NON-DIGIT             FEAT155E     275     A     
 MAIN     *                               THAT TERMINATED ASSEMBLY OF LINE NR IN           FEAT155E     276     A     
 MAIN     *                               BITS (05-00); ELSE 1ST CHARACTER AFTER           FEAT155E     277     A     
 MAIN     *                               *C/    * IN BITS (05-00)                         FEAT126B     849     A     
 MAIN     *                (B3)      =  NR OF COLUMNS REMAINING OF LINE IMAGE              FEAT126B     850          I
          -FCC1328X 
 MAIN     *                               IN (CP.BUF)                                      FEAT126B     851          I
          -FEAT155E 
 MAIN     *                               IN (CP.CARD)                                     FEAT155E     278          I
          -FCC1328X 
 MAIN     *                (B2)      =  NR OF LEADING BLANKS (BIASED BY -1777B)            FCC1328X     526     A     
 MAIN     *                               (E.G. FOR 1 LEADING BLANK, (B2)=-1776B)          FCC1328X     527     A     
 MAIN     *                (B6)      =  -NR OF WORDS REMAINING OF LINE IMAGE               FEAT126B     852          I
          -FCC1328X 
 MAIN     *                               IN (CP.BUF)                                      FEAT126B     853          I
          -FEAT155E 
 MAIN     *                               IN (CP.CARD)                                     FEAT155E     279          I
          -FCC1328X 
 MAIN     *                (B3)      =  NR OF COLUMNS REMAINING IN LINE IMAGE              FCC1328X     528     A     
 MAIN     *                (B7)      =  CHAR THAT TERMINATED ASSEMBLY OF LINE NR           FEAT126B     854     A     
 MAIN     *                                                                                MAIN        1589          I
          -FEAT126B 
 MAIN     *         USES   ALL BUT  A0, B4.                                                MAIN        1590          I
          -FEAT126B 
 MAIN     *         CALLS  LSL, RNC.                                                       MAIN        1591          I
          -FEAT126B 
 MAIN     *                                                                                FEAT126B     855     A     
 MAIN     *         USES   ALL BUT A0                                                      FEAT126B     856     A     
 MAIN     *                                                                                FEAT126B     857     A     
 MAIN     *         CALLS  ALN,LSL,RNC,WARN                                                FEAT126B     858     A     
 MAIN                                                                                      MAIN        1592     A     
 MAIN                                                                                      MAIN        1593     A     
 MAIN      RNS      SUBR               ENTRY/EXIT...                                       MAIN        1594     A     
 MAIN      RNS0     SA1    CO.MODE                                                         MAIN        1595          I
          -FEAT155E 
 MAIN      RNS0     SA1    CO.MODE                                                         FEAT155E     280     A     
 MAIN               ZR     X1,RNS2     IF BATCH FORMAT                                     MAIN        1596     A     
 MAIN                                                                                      MAIN        1597     A     
 MAIN     **        ASSEMBLE SOURCE INPUT IN T/S FORMAT.                                   MAIN        1598     A     
 MAIN                                                                                      MAIN        1599     A     
 MAIN               RJ     ALN         ASSEMBLE LINE NUMBER                                MAIN        1600     A     
 MAIN               NZ     X6,RNS1     IF *LN* PRESENT                                     MAIN        1601     A     
 MAIN               WARN   E.NLN                                                           MAIN        1602          I
          -FCC2189
 MAIN               SA1    A5          PICK UP POSSIBLE IDENT                              FCC2189        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 924    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               MX4    36B         SET UP MASK FOR POSSIBLE IDENT                      FCC2189        9     A     
 MAIN               BX7    X4*X1       MASK OFF POSSIBLE IDENT                             FCC2189       10     A     
 MAIN               SA2    =5LIDENT                                                        FCC2189       11     A     
 MAIN               IX7    X7-X2       CHECK IF IT IS IDENT                                FCC2189       12     A     
 MAIN               NZ     X7,RNS0A    IF NOT IDENT                                        FCC2189       13     A     
 MAIN               RJ     LDB         LIST DELATE BUFFER(IF ANY)                          FCC2189       14     A     
 MAIN               WRITER =XF.OUT,RCL                                                     FCC2189       15     A     
 MAIN               EQ     =XLDCOM     LOAD COMPASS (1,0)                                  FCC2189       16     A     
 MAIN      RNS0A    WARN   E.NLN                                                           FCC2189       17     A     
 MAIN               EQ     RNS3                                                            MAIN        1603     A     
 MAIN                                                                                      MAIN        1604     A     
 MAIN      RNS1     PL     X1,RNS3     IF NEXT CHARACTER NOT PLUS(+) OR BLANK              MAIN        1605          I
          -FEAT126B 
 MAIN               EQ     EXIT.                                                           MAIN        1606          I
          -FEAT126B 
 MAIN      RNS1     MI     X1,EXIT.    IF NEXT CHARACTER IS PLUS(+) OR BLANK               FEAT126B     859     A     
 MAIN                                                                                      FEAT126B     860     A     
 MAIN     *         HERE IF COMMENT IN SEQ FORMAT -- PACK 1ST 6 CHARACTERS OF              FEAT126B     861     A     
 MAIN     *           STATEMENT TO (X6) SO THAT WE CAN CHECK FOR *C/    *.                 FEAT126B     862     A     
 MAIN                                                                                      FEAT126B     863     A     
 MAIN      #NL      IFNE   #NL,0                                                           FEAT126B     864     A     
 MAIN               SB4    6                                                               FEAT126B     865     A     
 MAIN               MX6    0                                                               FEAT126B     866     A     
 MAIN                                                                                      FEAT126B     867     A     
 MAIN      RNS1A    BX1    -X0*X5                                                          FEAT126B     868     A     
 MAIN               LX6    CHAR                                                            FEAT126B     869     A     
 MAIN               SB3    B3-1        COLUMN COUNT - 1                                    FEAT126B     870     A     
 MAIN               BX6    X6+X1                                                           FEAT126B     871     A     
 MAIN               LX3    CHAR                                                            FEAT126B     872     A     
 MAIN               SB4    B4-1                                                            FEAT126B     873     A     
 MAIN               PL     X3,RNS1B    IF WORD NOT EXHAUSTED                               FEAT126B     874     A     
 MAIN               SA5    A5+B1                                                           FEAT126B     875     A     
 MAIN               SB6    B6-B1       WORD COUNT - 1                                      FEAT126B     876     A     
 MAIN                                                                                      FEAT126B     877     A     
 MAIN      RNS1B    LX5    CHAR                                                            FEAT126B     878     A     
 MAIN               GT     B4,B0,RNS1A IF STILL PACKING 1ST 6 CHARS OF STMT                FEAT126B     879     A     
 MAIN               PL     B6,EXIT.    IF (CP.BUF) IS EMPTY NOW --NULL STMT                FEAT126B     880          I
          -FEAT155E 
 MAIN               PL     B6,EXIT.    IF (CP.CARD) IS EMPTY NOW --NULL STMT               FEAT155E     281     A     
 MAIN               LX6    10*CHAR-6*CHAR    LEFT JUSTIFY 1ST 6 CHARS OF STMT              FEAT126B     881     A     
 MAIN               BX4    X5          (X4) = SAVED (X5)                                   FEAT126B     882     A     
 MAIN               LX5    X6          DUMMY UP (X5)                                       FEAT126B     883     A     
 MAIN      #NL      ENDIF                                                                  FEAT126B     884     A     
 MAIN               EQ     RNS2A                                                           FEAT126B     885     A     
 MAIN                                                                                      FEAT126B     886     A     
 MAIN     *         CHECK FOR COMMENT LINE IN BATCH FORMAT.                                FEAT126B     887     A     
 MAIN                                                                                      MAIN        1607     A     
 MAIN      RNS2     MX0    -CHAR                                                           MAIN        1608          I
          -FEAT155E 
 MAIN      RNS2     SA2    CARDS                                                           FEAT155E     282          I
          -FCC1328X 
 MAIN               BX6    X2                                                              FEAT155E     283          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 925    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
          -FCC1328X 
 MAIN               SA6    CP.FLIN+1                                                       FEAT155E     284          I
          -FCC1328X 
 MAIN               MX0    -CHAR                                                           FEAT155E     285          I
          -FCC1328X 
 MAIN      RNS2     MX0    -CHAR                                                           FCC1328X     529     A     
 MAIN               SA2    ="C$*"                                                          MAIN        1609     A     
 MAIN               LX5    CHAR                                                            MAIN        1610     A     
 MAIN               BX1    -X0*X5                                                          MAIN        1611     A     
 MAIN               LX5    -CHAR       RESTORE (X5)                                        MAIN        1612     A     
 MAIN               SB7    X1                                                              MAIN        1613     A     
 MAIN               LX1    B7,X2                                                           MAIN        1614     A     
 MAIN               PL     X1,EXIT.    IF NOT COMMENT LINE                                 MAIN        1615     A     
 MAIN                                                                                      MAIN        1616     A     
 MAIN     *         CHECK FOR C/-LINE.                                                     FEAT126B     888     A     
 MAIN                                                                                      FEAT126B     889     A     
 MAIN      RNS2A    BSS    0                                                               FEAT126B     890     A     
 MAIN      #NL      IFNE   #NL,0                                                           FEAT126B     891     A     
 MAIN               SA1    CSSTMT                                                          FEAT126B     892     A     
 MAIN               SA2    =6LC/                                                           FEAT126B     893     A     
 MAIN               MX6    0                                                               FEAT126B     894     A     
 MAIN               SA6    A1                                                              FEAT126B     895     A     
 MAIN               NZ     X1,RNS3     IF JUST LISTING C/-COMMENT LINE                     FEAT126B     896     A     
 MAIN               SX6    B1                                                              FEAT126B     897     A     
 MAIN               MX7    6*CHAR                                                          FEAT126B     898     A     
 MAIN               BX1    X5-X2                                                           FEAT126B     899     A     
 MAIN               BX1    X1*X7                                                           FEAT126B     900     A     
 MAIN               NZ     X1,RNS3     IF NOT A *C/    * LINE                              FEAT126B     901     A     
 MAIN               SA2    CO.MODE                                                         FEAT126B     902     A     
 MAIN               SA6    A1          SET TO *C/-LINE OCCURRED*                           FEAT126B     903     A     
 MAIN               ZR     X2,EXIT.    IF NORMAL BATCH INPUT                               FEAT126B     904     A     
 MAIN               BX5    X4          RESTORE (X5)                                        FEAT126B     905     A     
 MAIN               EQ     EXIT.                                                           FEAT126B     906     A     
 MAIN      #NL      ENDIF                                                                  FEAT126B     907     A     
 MAIN                                                                                      FEAT126B     908     A     
 MAIN     **        PASS OVER COMMENT CARDS.                                               MAIN        1617     A     
 MAIN                                                                                      MAIN        1618     A     
 MAIN      RNS3     SA1    =XSLIST                                                         MAIN        1619          I
          -FCC1328X 
 MAIN               SA2    AFSB                                                            MAIN        1620          I
          -FEAT126C -FCC1328X 
 MAIN               ZR     X1,RNS4     IF NO SOURCE LIST                                   MAIN        1621          I
          -FEAT126B -FCC1328X 
 MAIN               SA3    NOLIST                                                          FEAT126B     909          I
          -FCC1328X 
 MAIN               NO                                                                     FEAT126B     910          I
          -FCC1328X 
 MAIN               BX6    X1*X3                                                           FEAT126B     911          I
          -FCC1328X 
 MAIN               ZR     X6,RNS4     IF (L=0) OR C/-LIST,NONE ACTIVE                     FEAT126B     912          I
          -FCC1328X 
 MAIN               SX1    CP.BUF-3                                                        MAIN        1622          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 926    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
          -FEAT155E -FCC1328X 
 MAIN               SX1    CP.FLIN                                                         FEAT155E     286          I
          -FCC1328X 
 MAIN               SA2    =10H                                                            FEAT126C     126          I
          -FCC1328X 
 MAIN               RJ     LSL         LIST SOURCE LINE                                    MAIN        1623          I
          -FEAT126C -FCC1328X 
 MAIN               SA3    ICA                                                             MAIN        1624          I
          -FEAT126C -FCC1328X 
 MAIN               BX6    X3          RESTORE ADDRESS COLUMNS                             MAIN        1625          I
          -FEAT126C -FCC1328X 
 MAIN               SA6    CP.BUF-2                                                        MAIN        1626          I
          -FEAT126C -FCC1328X 
 MAIN               RJ     LSL         LIST COMMENT LINE                                   FEAT126C     127          I
          -FCC1328X 
 MAIN      RNS4     SB4    CP.BUF                                                          MAIN        1627          I
          -FEAT155E -FCC1328X 
 MAIN               RJ     RNC         READ NEXT CARD                                      MAIN        1628          I
          -FEAT155E -FCC1328X 
 MAIN               SA5    X0                                                              MAIN        1629          I
          -FEAT155E -FCC1328X 
 MAIN      RNS4     RJ     RNC         READ NEXT CARD                                      FEAT155E     287          I
          -FCC1328X 
 MAIN      RNS3     SX6    B1                                                              FCC1328X     530     A     
 MAIN               NO                                                                     FCC1328X     531     A     
 MAIN               SA6    =XCOMMENT   SET TO *THIS IS A COMMENT LINE*                     FCC1328X     532     A     
 MAIN               RJ     PLR         PROCESS LISTING REQUEST                             FCC1328X     533     A     
 MAIN               RJ     RNC         READ NEXT CARD                                      FCC1328X     534     A     
 MAIN               SA5    B4                                                              FEAT155E     288     A     
 MAIN               SB6    -B7         (B6) = -NR OF USEABLE SOURCE LINE WORDS             FCC1328X     535     A     
 MAIN               ZR     X1,RNS0     IF NOT END OF SECTION                               MAIN        1630     A     
 MAIN               EQ     EXIT.                                                           MAIN        1631     A     
 MAIN      RSC      SPACE  4,8                                                             MAIN        1632     A     
 MAIN     **        RSC -  RESET INTRA-STATEMENT CELLS.                                    MAIN        1633     A     
 MAIN     *         ENTRY  N/A                                                             MAIN        1634     A     
 MAIN     *         EXIT   TEM.MAX RESET TO MAXIMUM TEMPORARY TAG.                         MAIN        1635     A     
 MAIN     *                RESET OF CELLS.                                                 MAIN        1636     A     
 MAIN                                                                                      MAIN        1637     A     
 MAIN                                                                                      MAIN        1638     A     
 MAIN      RSC      SUBR   0                                                               MAIN        1639     A     
 MAIN               RJ     UEC         UPDATE ERROR COUNT                                  MAIN        1640     A     
 MAIN                                                                                      MAIN        1641     A     
 MAIN               BX6    0                                                               MAIN        1642     A     
 MAIN               =X7    CR.REF                                                          MAIN        1643     A     
 MAIN               SA6    TYPC        CLEAR IMPLICIT STATEMENT FLAG                       MAIN        1644     A     
 MAIN               SA6    TYPA+1      CLEAR IBM-STAR SPEC COUNT                           MAIN        1645          I
          -FCC1237
 MAIN               SA6    NOREL       ZERO NUMBER OF RELATIONALS.                         MAIN        1646          I
          -FCC1328X 
 MAIN               SA6    DTI           -   DO-TERMINATION INDICATOR                      MAIN        1647     A     
 MAIN               SA6    STN           -   CURRENT STATEMENT LABEL                       MAIN        1648     A     
 MAIN               SA7    REFNUM        -   CURRENT VALUE FOR REFS TO STAT. NO.           MAIN        1649     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 927    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               SA6    CSNTAG        -   CURRENT STATEMENT LABEL TAG                   MAIN        1650     A     
 MAIN               SA6    INIF          -   LOGICAL IF INDICATOR                          MAIN        1651     A     
 MAIN               SA6    =XIFINIF    CLEAR IF AS OBJECT OF IF                            MAIN        1652          I
          -FCC0616
 MAIN               SA7    REFVAR                                                          MAIN        1653     A     
 MAIN               SA2    TS=CON                                                          MAIN        1654     A     
 MAIN               SA1    =XALC.00    POINTER TO NO REGISTERS TO RESTORE                  FCC0590        7     A     
 MAIN               BX6    X2                                                              MAIN        1655          I
          -FCC0813
 MAIN               LX7    X1                                                              FCC0590        8     A     
 MAIN               SA6    TS=CONB     SET TO START OF CONSTANTS FOR THIS STAT.            MAIN        1656          I
          -FCC0813
 MAIN               SHRINK TS=CONB,X2  RESET TO START OF CONSTANTS FOR THIS STAT.          FCC0813      160     A     
 MAIN               SA7    =XALC.REG   RESET SO NO REGISTERS WILL BE RELOCATED             FCC0590        9     A     
 MAIN               EQ     RSCX        EXIT..                                              MAIN        1657     A     
 MAIN      WBL      SPACE  4,8                                                             MAIN        1658     A     
 MAIN     **        WBL -  WRITE BLANK LINES.                                              MAIN        1659     A     
 MAIN     *                                                                                MAIN        1660     A     
 MAIN     *         ENTRY  (X6) = NUMBER OF BLANK LINES.                                   MAIN        1661     A     
 MAIN     *                            MUST BE 4 OR LESS.                                  MAIN        1662          I
          -FEAT126C 
 MAIN     *                (X1) = ADDRESS OF LINE TO BE PRINTED AFTER THE BLANKS.          MAIN        1663     A     
 MAIN     *                            (= ZERO IF NONE.)                                   MAIN        1664     A     
 MAIN     *         USES   A1-A4,A6,A7  B2,B3,B5-B7                                        MAIN        1665          I
          -FEAT126A 
 MAIN     *         CALLS  WOF.                                                            MAIN        1666          I
          -FEAT126A 
 MAIN     *                (X2) = NUMBER OF WORDS IN LINE (ZERO IF UNKNOWN).               FEAT126A     934     A     
 MAIN     *         USES   A1, A3, A6, A7                                                  FEAT126A     935     A     
 MAIN     *                X0, X3, X4, X6, X7                                              FEAT126A     936     A     
 MAIN     *                B7                                                              FEAT126A     937     A     
 MAIN     *         CALLS  WOF,WRITEC                                                      FEAT126A     938     A     
 MAIN                                                                                      MAIN        1667     A     
 MAIN                                                                                      MAIN        1668     A     
 MAIN      WBL6     SX6    EJECT+1                                                         MAIN        1669          I
          -FEAT155E 
 MAIN      WBL6     SA1    CO.PS                                                           FEAT155E     289          I
          -FEAT155EA
 MAIN      WBL6     SA1    CP.PS                                                           FEAT155EA     26          I
          -FCCA422
 MAIN      WBL6     SA1    LCP.PS                                                          FCCA422       43     A     
 MAIN               =X6    X1+1                                                            FEAT155E     290     A     
 MAIN               SA6    LCNT        FORCE EJECT                                         MAIN        1670     A     
 MAIN                                                                                      MAIN        1671     A     
 MAIN      WBL8     SA1    WOFA                                                            MAIN        1672     A     
 MAIN               ZR     X1,WBLX     IF NO LINE TO PRINT                                 MAIN        1673     A     
 MAIN               SX2    X1          RESTORE LENGTH                                      FEAT126A     939     A     
 MAIN               AX1    30          RESTORE ADDRESS                                     FEAT126A     940     A     
 MAIN               RJ     WOF                                                             MAIN        1674     A     
 MAIN                                                                                      MAIN        1675     A     
 MAIN      WBL      SUBR   0                                                               MAIN        1676     A     
 MAIN               SA3    LCNT                                                            MAIN        1677     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 928    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               BX7    X1                                                              MAIN        1678          I
          -FEAT126A 
 MAIN               LX1    30                                                              FEAT126A     941     A     
 MAIN               SB7    X6                                                              MAIN        1679     A     
 MAIN               BX7    X1+X2                                                           FEAT126A     942     A     
 MAIN               IX4    X3+X6                                                           MAIN        1680     A     
 MAIN               SX2    X4-EJECT                                                        MAIN        1681          I
          -FEAT155E 
 MAIN               SA1    CO.PS                                                           FEAT155E     291          I
          -FEAT155EA
 MAIN               SA1    CP.PS                                                           FEAT155EA     27          I
          -FCCA422
 MAIN               SA1    LCP.PS                                                          FCCA422       44     A     
 MAIN               IX2    X4-X1                                                           FEAT155E     292     A     
 MAIN               SX6    X3+B7                                                           MAIN        1682     A     
 MAIN               SA7    WOFA                                                            MAIN        1683     A     
 MAIN               SA6    A3          UPDATE LINE COUNT                                   MAIN        1684     A     
 MAIN               PL     X2,WBL6     IF PAST BOTTOM OF PAGE                              MAIN        1685     A     
 MAIN               SX0    B4          SAVE (B4)                                           MAIN        1686     A     
 MAIN      WBL2     WRITEC F.OUT,HDRBL,1                                                   MAIN        1687     A     
 MAIN               SB7    B7-B1                                                           MAIN        1688     A     
 MAIN               GT     B7,B0,WBL2                                                      MAIN        1689     A     
 MAIN               SB4    X0          RESTORE (B4)                                        MAIN        1690     A     
 MAIN               EQ     WBL8                                                            MAIN        1691     A     
 MAIN      WOF      SPACE  4,12                                                            MAIN        1692     A     
 MAIN     **        WOF -  WRITE OUTPUT FILE                                               MAIN        1693     A     
 MAIN     *                                                                                MAIN        1694     A     
 MAIN     *         ENTRY  (X1) _ FWA LINE (-C- FORMAT).                                   MAIN        1695     A     
 MAIN     *         EXIT   (X2) = OUA                                                      MAIN        1696          I
          -FEAT126A 
 MAIN     *                (B6) _ LWA+1 OF WORDS TRANSFERRED.                              MAIN        1697          I
          -FEAT126A 
 MAIN     *         (X2) = LINE LENGTH IN WORDS (ZERO IF UNKNOWN).                         FEAT126A     943     A     
 MAIN     *         USES   A1-A4,A6,A7  B3-B7                                              MAIN        1698     A     
 MAIN     *         CALLS  CDD, WRITEC, WRITEW                                             MAIN        1699     A     
 MAIN                                                                                      MAIN        1700     A     
 MAIN                                                                                      MAIN        1701     A     
 MAIN      WOF5     SX0    B4          SAVE (B4)                                           MAIN        1702          I
          -FEAT126A 
 MAIN               WRITEC F.OUT,X1                                                        MAIN        1703          I
          -FEAT126A 
 MAIN      WOF7     SX0    B4          SAVE (B4)                                           FEAT126A     944     A     
 MAIN               ZR     X2,WOF9     IF LINE LENGTH NOT GIVEN                            FEAT126A     945     A     
 MAIN               SA3    =XCO.PW                                                         FEAT126A     946          I
          -CP139FC
 MAIN               SA3    =XCP.PW                                                         CP139FC      197     A     
 MAIN               ZR     X3,WOF9     IF NOT IN PW MODE                                   FEAT126A     947     A     
 MAIN               SB6    X2-1                                                            FEAT126A     948     A     
 MAIN               SA4    X1+B6       LAST WORD OF LINE                                   FEAT126A     949     A     
 MAIN               NZ     X4,WOF8                                                         FEAT126A     950     A     
 MAIN               SA4    A4-B1                                                           FEAT126A     951     A     
 MAIN      WOF8     SX7    B1          (X4) = LAST WORD - BLANK FILLED                     FEAT126A     952     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 929    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               SA3    =9R                          .                                  FEAT126A     953     A     
 MAIN               BX3    X4-X3                                                           FEAT126A     954     A     
 MAIN               IX7    X3-X7                        .                                  FEAT126A     955     A     
 MAIN               BX6    -X7+X3                       .                                  FEAT126A     956     A     
 MAIN               SB2    55                           .                                  FEAT126A     957     A     
 MAIN               SA3    =40404040404040404040B       .                                  FEAT126A     958     A     
 MAIN               BX7    X3*X6                        .                                  FEAT126A     959     A     
 MAIN               LX3    B2,X7                        .                                  FEAT126A     960     A     
 MAIN               IX3    X7-X3                        .                                  FEAT126A     961     A     
 MAIN               BX7    X7+X3                                                           FEAT126A     962     A     
 MAIN               BX6    X4*X7       (X6) = LAST WORD - ZERO FILLED                      FEAT126A     963     A     
 MAIN               SA6    A4                                                              FEAT126A     964     A     
 MAIN      WOF9     WRITEC F.OUT,X1,X2                                                     FEAT126A     965     A     
 MAIN               SB4    X0          RESTORE (B4)                                        MAIN        1704     A     
 MAIN                                                                                      MAIN        1705     A     
 MAIN      WOF      SUBR   0                                                               MAIN        1706     A     
 MAIN               SA3    LCNT                                                            MAIN        1707     A     
 MAIN               SX7    X3-EJECT                                                        MAIN        1708          I
          -FEAT155E 
 MAIN               SA4    CO.PS                                                           FEAT155E     293          I
          -FEAT155EA
 MAIN               SA4    CP.PS                                                           FEAT155EA     28          I
          -FCCA422
 MAIN               SA4     LCP.PS                                                         FCCA422       45     A     
 MAIN               IX7    X3-X4                                                           FEAT155E     294     A     
 MAIN               SX6    X3+B1                                                           MAIN        1709     A     
 MAIN               SA6    A3          UPDATE LINE COUNT                                   MAIN        1710     A     
 MAIN               MI     X7,WOF5     IF PAGE NOT FULL                                    MAIN        1711          I
          -FEAT126A 
 MAIN               MI     X7,WOF7     IF PAGE NOT FULL                                    FEAT126A     966     A     
 MAIN               SA4    =XCP.LSTF                                                       FEAT126A     967     A     
 MAIN               LX1    30                                                              FEAT126A     968     A     
 MAIN               IX6    X1+X2                                                           FEAT126A     969     A     
 MAIN               SA2    =XCO.PW                                                         FEAT126A     970          I
          -CP139FC
 MAIN               SA2    =XCP.PW                                                         CP139FC      198     A     
 MAIN               LX4    59                                                              FEAT126A     971     A     
 MAIN               SX0    B4                                                              FCC0826       16     A     
 MAIN               SA6    WOFA        SAVE FWA AND LENGTH OF LINE                         FEAT126A     972     A     
 MAIN               AX4    60                                                              FEAT126A     973     A     
 MAIN               MX6    0                                                               FEAT126A     974          I
          -FCC1200
 MAIN               SX6    B1                                                              FCC1200       28     A     
 MAIN               BX3    -X4*X2                                                          FEAT126A     975     A     
 MAIN               SX4    3           LENGTH OF TITLE                                     FEAT126A     976     A     
 MAIN               SA6    A3          RESET LINE COUNT                                    FEAT126A     977     A     
 MAIN               NZ     X3,WOF5     IF L=0 AND IN PW MODE                               FEAT126A     978     A     
 MAIN               SA4    CP.PAGE                                                         MAIN        1712     A     
 MAIN               BX6    X1                                                              MAIN        1713          I
          -FEAT126A 
 MAIN               PL     X4,WOF1     IF PAGE PROPAGATION                                 MAIN        1714     A     
 MAIN               MX0    1                                                               MAIN        1715     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 930    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               BX4    X4-X0       CLEAR NON-PROPAGATION FLAG                          MAIN        1716     A     
 MAIN               SX7    X4+B1       ADVANCE PAGE NUMBER                                 MAIN        1717     A     
 MAIN               LX1    X7                                                              MAIN        1718     A     
 MAIN               LX4    1                                                               FCCA473       23     A     
 MAIN               ZR     X4,WOF0     IF CP.PAGE IS NOT SET                               FCCA473       24     A     
 MAIN               MX0    2                                                               FCCA473       25     A     
 MAIN      WOF0     LX4    59                                                              FCCA473       26     A     
 MAIN               BX7    X7+X0       RESTORE FLAG                                        MAIN        1719     A     
 MAIN               EQ     WOF2                                                            MAIN        1720     A     
 MAIN      WOF1     SX7    X4+B1       ADVANCE PAGE NUMBER                                 MAIN        1721     A     
 MAIN               LX1    X7                                                              MAIN        1722     A     
 MAIN      WOF2     SA6    WOFA                                                            MAIN        1723          I
          -FEAT126A 
 MAIN               BX6    0                                                               MAIN        1724          I
          -FEAT126A 
 MAIN               SA7    A4                                                              MAIN        1725          I
          -FEAT126A 
 MAIN               SA6    A3          RESET LINE COUNT                                    MAIN        1726          I
          -FEAT126A 
 MAIN      WOF2     SA7    A4                                                              FEAT126A     979     A     
 MAIN               SX2    1000D                                                           MAIN        1727          I
          -FEAT126A 
 MAIN               SX3    1000D                                                           FEAT126A     980          I
          -FEAT155E 
 MAIN               PL     X7,WOF3     IF PAGE PROPAGATION                                 MAIN        1728     A     
 MAIN               BX7    X7-X0       CLEAR NON-PROPAGATION FLAG                          MAIN        1729     A     
 MAIN      WOF3     IX3    X2*X7                                                           MAIN        1730          I
          -FEAT126A 
 MAIN      WOF3     IX3    X3*X7                                                           FEAT126A     981          I
          -FEAT155E 
 MAIN               SX4    101D                                                            MAIN        1731          I
          -FEAT155E 
 MAIN               IX6    X3+X4       SET UP REF PAGE FOR *AFS*                           MAIN        1732          I
          -FEAT155E 
 MAIN               SA6    REFPAG                                                          MAIN        1733          I
          -FEAT155E 
 MAIN               RJ     CDD         CONVERT DECIMAL DIGITS (PAGE NUMBER)                MAIN        1734          I
          -FEAT155E 
 MAIN      WOF3     RJ     CDD         CONVERT PAGE NUMBER                                 FEAT155E     295     A     
 MAIN               LX6    4*CHAR                                                          MAIN        1735          I
          -FEAT126A 
 MAIN               MX2    -4*CHAR                                                         MAIN        1736          I
          -FEAT126A 
 MAIN               BX6    X2*X6                                                           MAIN        1737          I
          -FEAT126A 
 MAIN               SA6    TL.PAGE                                                         MAIN        1738          I
          -FEAT126A 
 MAIN               SX0    B4          SAVE (B4)                                           MAIN        1739     A     
 MAIN               MX4    5*CHAR                                                          FEAT126A     982          I
          -FCC1328X 
 MAIN               MX4    -6*CHAR                                                         FCC1328X     536     A     
 MAIN               SA2    =XCO.PW                                                         FEAT126A     983          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 931    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
          -CP139FC
 MAIN               SA2    =XCP.PW                                                         CP139FC      199     A     
 MAIN               BX6    -X4*X6                                                          FEAT126A     984     A     
 MAIN               SB3    X6-1A1      FOR TEST OF THE FIRST PAGE                          FCCA410       18     A     
 MAIN               NZ     X2,WOF4     IF PW MODE                                          FEAT126A     985     A     
 MAIN               LX6    5*CHAR                                                          FEAT126A     986          I
          -FCC1328X 
 MAIN               LX6    10*CHAR-6*CHAR                                                  FCC1328X     537     A     
 MAIN               =A6    TL.PAGE                                                         FEAT126A     987     A     
 MAIN               WRITEC F.OUT,O.TITL,L.TITL                                             MAIN        1740          I
          -FCCA410
 MAIN               NZ     B3,WOF3A    IF NOT FIRST PAGE                                   FCCA410       19     A     
 MAIN               SA2    =XCP.PD                                                         FCCA410       20          I
          -FCCA473
 MAIN               ZR     X2,WOF3A    IF PD NOT SET                                       FCCA410       21          I
          -FCCA473
 MAIN               SA4     PDFLAG                                                         FCCA422       46          I
          -FCCA473
 MAIN               PL      X4,WOF3A   IF PDFLAG OFF                                       FCCA422       47          I
          -FCCA473
 MAIN               SA4    =XCP.LSTF                                                       FCCA473       27     A     
 MAIN               ZR     X4,WOF3A    IF L = 0                                            FCCA473       28     A     
 MAIN               SA4    =XCP.PAGE                                                       FCCA473       29     A     
 MAIN               LX4    1                                                               FCCA473       30     A     
 MAIN               MI     X4,WOF3A    IF PD IS ALREADY WRITTEN OUT TO OUTPUT              FCCA473       31     A     
 MAIN               LX4    59                                                              FCCA473       32     A     
 MAIN               SX2    B1                                                              FCCA473       33     A     
 MAIN               LX2    58                                                              FCCA473       34     A     
 MAIN               BX6    X4+X2                                                           FCCA473       35     A     
 MAIN               SA6    =XCP.PAGE   SET WRITE TO FILE BIT                               FCCA473       36     A     
 MAIN               SA4    =XCP.PD                                                         FCCA473       37     A     
 MAIN               SA2    =23550000000000000000B                                          FCCA473       38          I
          -FCCA534
 MAIN               SA2    =24550000000000000000B                                          FCCA534       17     A     
 MAIN               IX2    X2-X4                                                           FCCA473       39     A     
 MAIN               ZR     X2,WOF3A    IF PD = 6 DONOT PUT OUT PD                          FCCA473       40          I
          -FCCA534
 MAIN               MI     X2,WOF3A    IF PD=6, DONOT OUTPUT PD                            FCCA534       18     A     
 MAIN               WRITEC F.OUT,CP.PD,1                                                   FCCA410       22     A     
 MAIN               MX6    0                                                               FCCA422       48     A     
 MAIN               SA6    PDFLAG      TURN PDFLAG OFF                                     FCCA422       49     A     
 MAIN      WOF3A    WRITEC F.OUT,O.TITL,L.TITL                                             FCCA410       23     A     
 MAIN               WRITEC F.OUT,=XSUBHDR                                                  MAIN        1741          I
          -FEAT126A 
 MAIN               WRITEC F.OUT,=XHDRBL,1                                                 MAIN        1742          I
          -FEAT126A 
 MAIN               WRITEC F.OUT,=XO.STITL,=XL.STTL                                        FEAT126A     988          I
          -FEAT155H 
 MAIN               SA2    =XO.STITL                                                       FEAT155H     111     A     
 MAIN               SB2    X2                                                              FEAT155H     112     A     
 MAIN               AX2    30                                                              FEAT155H     113     A     
 MAIN               SB3    X2                                                              FEAT155H     114     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 932    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN               WRITEC F.OUT,B2,B3                                                     FEAT155H     115     A     
 MAIN               EQ     WOF6                                                            FEAT155H     116     A     
 MAIN               EQ     WOF6                                                            FEAT126A     989          I
          -FCC1328X 
 MAIN                                                                                      FEAT126A     990     A     
 MAIN      WOF4     SA1    =XTL.PAGE-1                                                     FEAT126A     991          I
          -FCC1328X 
 MAIN      WOF4     SA1    =XTL.PAGE-1 (X1) = PAGE......   (.=BLANK(55B))                  FCC1328X     538     A     
 MAIN               BX1    X4*X1                                                           FEAT126A     992     A     
 MAIN               BX6    X6+X1                                                           FEAT126A     993     A     
 MAIN               SA6    A1                                                              FEAT126A     994     A     
 MAIN               WRITEC F.OUT,=XO.TTLA,=XL.TTLA                                         FEAT126A     995     A     
 MAIN               SX4    =XL.TTLB                                                        FEAT126A     996     A     
 MAIN      WOF5     WRITEC F.OUT,=XTL.PTYP,X4                                              FEAT126A     997     A     
 MAIN      WOF6     WRITEC F.OUT,HDRBL,1                                                   FEAT126A     998     A     
 MAIN               SB4    X0          RESTORE (B4)                                        MAIN        1743     A     
 MAIN               SA1    WOFA                                                            MAIN        1744     A     
 MAIN               EQ     WOF5                                                            MAIN        1745          I
          -FEAT126A 
 MAIN               SX2    X1          RESTORE LENGTH                                      FEAT126A     999     A     
 MAIN               AX1    30          RESTORE FWA                                         FEAT126A    1000     A     
 MAIN               EQ     WOF7                                                            FEAT126A    1001     A     
 MAIN                                                                                      MAIN        1746     A     
 MAIN      #RM      IFNE   CP#RM,0                                                         MAIN        1747          I
          -FEAT126B 
 MAIN     *                                                                                MAIN        1748          I
          -FEAT126B 
 MAIN     *         DEFERRED LISTING BUFFER IN 7RM MODE.                                   MAIN        1749          I
          -FEAT126B 
 MAIN     *         RESIDES HERE BECAUSE THERE IS NO OUTPUT BUFFER FOR IT TO               MAIN        1750          I
          -FEAT126B 
 MAIN     *         RESIDE IN IN RM MODE.                                                  MAIN        1751          I
          -FEAT126B 
 MAIN     *                                                                                MAIN        1752          I
          -FEAT126B 
 MAIN               ENTRY  SAVLINE                                                         MAIN        1753          I
          -FEAT126B 
 MAIN      SAVLINE  BSSZ   20D*12D     MAX NO. LINES * MAX O/P LINE LENGTH                 MAIN        1754          I
          -FEAT126B 
 MAIN      O.XPINB  BSS    0                                                               MAIN        1755          I
          -FEAT126B 
 MAIN                                                                                      MAIN        1756          I
          -FEAT126B 
 MAIN      #RM      ENDIF                                                                  MAIN        1757          I
          -FEAT126B 
 MAIN                                                                                      MAIN        1758          I
          -FEAT126B 
 MAIN      WOFA     BSS    1           SAVE CELL FOR ENTRY PARAMETER                       MAIN        1759     A     
 MAIN                                                                                      MAIN        1760     A     
 MAIN      HDRBL    LIT    2L  ,2L  ,2L                                                    MAIN        1761          I
          -FEAT126C 
 MAIN      HDRBL    LIT    2L                                                              FEAT126C     128     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 933    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAIN    
  
 MAIN                                                                                      MAIN        1762     A     
 MAIN               LIST   D                                                               MAIN        1763     A     
 MAIN               END                                                                    MAIN        1764     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - MAIN    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          MAIN                      1764      1183
          FCC0590                      3         3
          FEAT126A                   231       199
          FEAT126B                   846       625
          FEAT126C                     9         5
          FEAT126AA                    6         6
          FEAT126BC                    7         7
          FCC0743                      2         2
          FCC0826                      4         4
          FCC0813                     35        23
          FCC0828                      6         6
          FCC0844                      6         5
          FCC0990                     11        11
          FEAT155E                   159        51
          FEAT155G                    17         4
          FEAT155H                     6         6
          CP139FC                      4         4
          FEAT155EA                    8         0
          FEAT155HB                    2         0
          FCC1200                      1         1
          FCC1237                      1         1
          FCC1274                      2         2
          FCC1309                      5         0
          FCC1328X                   443       439
          FCC1328AX                    4         4
          FCC1328BX                    1         1
          FCC1524X                     3         3
          FCC1829                      1         0
          F66FCC                      44        44
          FCCA410                      6         4
          FCCA422                      8         6
          FCCA454                      1         1
          FCC2189                     10        10
          FCCA473                     18        16
          FCCA534                      2         2
          FCC2272                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *DECK     LEX                                                                    LEX            1     A     
 LEX                IDENT  LEX                                                             LEX            2     A     
 LEX       LEX      SECT   (LEXICAL SCANNERS),1                                            LEX            3     A     
 LEX                                                                                       LEX            4     A     
 LEX                SST    A,B,C,D,Z,EXIT.                                                 LEX            5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 934    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                NOREF  A,B,C,D,Z,EXIT.                                                 LEX            6     A     
 LEX                                                                                       LEX            7     A     
 LEX       B=LEX    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             LEX            8     A     
 LEX                                                                                       LEX            9     A     
 LEX                ENTRY  TAB.NX,TAB.STR,TAB.LP,TAB.RP,TAB.DOL,TAB.=,TAB.CO               LEX           10     A     
 LEX                ENTRY  S.END,S.PAUSE,S.ERR,S=BIN,S=INP,S=OUT,S=COD,S=CONT,SLT          LEX           11     A     
 LEX                ENTRY  S=STR,S.BUFIO,S.IOCAL,S.ENDFI,S.REWIN,S.BKSP                    LEX           12     A     
 LEX                ENTRY  TAB.PD,NAT.TYP,S.Q8NTR,TAB,S.ACGOR,TRV,THC,TSC                  LEX           13          I
          -FCC1559X 
 LEX                ENTRY  TAB.PD,NAT.TYP,S.Q1NTR,TAB,S.ACGOR,TRV,THC,TSC                  FCC1559X      18          I
          -F162FTNA 
 LEX                ENTRY  TAB.PD,NAT.TYP,S.Q2NTR,TAB,S.ACGOR,TRV,THC,TSC                  F162FTNA     716     A     
 LEX                ENTRY  S.NLST,S.RANDM,TSF,DEC,STY,S=FREE                               LEX           14     A     
 LEX                ENTRY  TLV                                                             LEX           15          I
          -FCC1046
 LEX                ENTRY  BLANK                                                           LEX           16          I
          -FCC1046
 LEX                ENTRY  BLANK,OCT,TLV                                                   FCC1046        9     A     
 LEX                ENTRY  S.FTNRP                                                         FEAT155G     343     A     
 LEX                                                                                       LEX           17     A     
 LEX      *         IN FTN                                                                 LEX           18     A     
 LEX                EXT    LOP=R                                                           LEX           19     A     
 LEX                                                                                       LEX           20     A     
 LEX      *         IN TABLES                                                              LEX           21     A     
 LEX                EXT    CALL,DOORD,FIRSTV,ICONL,LG.LOG,LOGT,MULS,MAPCHAR,REFVAR         LEX           22     A     
 LEX                EXT    TS=CON,TS.CON,TS.SYM,TS.STN,ZLPAREN,ZLEQUAL,ZLCOMMA             LEX           23     A     
 LEX                                                                                       LEX           24     A     
 LEX      *         IN ERRORS                                                              LEX           25     A     
 LEX                EXT    CLASS,E.DC,E.DC1,E.DC2,E.DC3,E.DC6,E.DC8,E.DC9,E.HC1            LEX           26     A     
 LEX                EXT    E.HC2,E.HC3,E.HC4,E.LP1,E.LP2,E.SU4,E.SU4A,E.TE5,E.US1          LEX           27     A     
 LEX                EXT    E.VA1,E.VA2,E.ZA,FILL.,FILL.2,L.CL                              LEX           28     A     
 LEX                                                                                       LEX           29     A     
 LEX      *         IN ALLOC                                                               LEX           30     A     
 LEX                EXT    ERT,NEXT,ESY,NCM,SSY                                            LEX           31     A     
 LEX                                                                                       LEX           32     A     
 LEX      *         IN MAIN                                                                LEX           33     A     
 LEX                EXT    TABX.F                                                          LEX           34     A     
 LEX                                                                                       LEX           35     A     
 LEX      *         IN IO                                                                  LEX           36     A     
 LEX                EXT    LGR,FORMAT                                                      LEX           37     A     
 LEX                                                                                       LEX           38     A     
 LEX      *         IN GEN                                                                 LEX           39     A     
 LEX                EXT    L.FIV,E.FIV                                                     LEX           40     A     
 LEX                                                                                       LEX           41     A     
 LEX      *         IN INIT                                                                LEX           42     A     
 LEX                EXT    DECA,HOLLSKL,TRVA                                               LEX           43     A     
 LEX                                                                                       LEX           44     A     
 LEX       ASN      SPACE  4,8                                                             LEX           45     A     
 LEX      **        ASN -  ASSEMBLE NUMBER.                                                LEX           46     A     
 LEX      *         ENTRY  B4 _ STARTING ADDRESS FOR ASSEMBLY.                             LEX           47     A     
 LEX      *         EXIT   IF NO NUMBER PRESENT B7 = 0                                     LEX           48     A     
 LEX      *                                    (X6)= 0L0                                   LEX           49     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 935    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                IF NUMBER PRESENT    B7 " 0                                     LEX           50     A     
 LEX      *                                    (X6)= 0L[NUMBER]                            LEX           51     A     
 LEX      *                (X1) = NEXT CHARACTER.                                          LEX           52     A     
 LEX      *                (B4) _ NEXT CHARACTER.                                          LEX           53     A     
 LEX      *         USES   A1  X2,X6  B2,B4,B5,B7                                          LEX           54     A     
 LEX                                                                                       LEX           55     A     
 LEX                                                                                       LEX           56     A     
 LEX                                                                                       LEX           57     A     
 LEX       ASN      SUBR   0                                                               LEX           58     A     
 LEX                SA1    B4                                                              LEX           59     A     
 LEX                SB7    10*CHAR                                                         LEX           60     A     
 LEX                SB2    LG.VAR                                                          LEX           61     A     
 LEX                SA2    ="NUM09"                                                        LEX           62     A     
 LEX                UX1    X1                                                              LEX           63     A     
 LEX                SX6    B0                                                              LEX           64     A     
 LEX                                                                                       LEX           65     A     
 LEX       ASN1     SB5    X1                                                              LEX           66     A     
 LEX                LX0    X2,B5                                                           LEX           67     A     
 LEX                PL     X0,ASN4     IF NOT DIGIT.                                       LEX           68     A     
 LEX                LX6    CHAR                                                            LEX           69     A     
 LEX                SB7    B7-CHAR                                                         LEX           70     A     
 LEX                BX6    X1+X6       ADD IN NEW DIGIT.                                   LEX           71     A     
 LEX                SB2    B2-B1       UPDATE NUMBER OF DIGITS.                            LEX           72     A     
 LEX                SA1    B4+B1       NEXT                                                LEX           73     A     
 LEX                SB4    B4+B1       UPDATE POINTER                                      LEX           74     A     
 LEX                UX1    X1                                                              LEX           75     A     
 LEX                NZ     B2,ASN1     IF NOT *7* DIGITS - LOOP                            LEX           76     A     
 LEX                SA1    B4          NEXT CHARACTER.                                     LEX           77     A     
 LEX                                                                                       LEX           78     A     
 LEX      **        HERE WITH                                                              LEX           79     A     
 LEX      *         (B7) = SHIFT COUNT                                                     LEX           80     A     
 LEX      *         (X1) = NEXT CHARACTER.                                                 LEX           81     A     
 LEX      *         (B4) _ NEXT CHARACTER.                                                 LEX           82     A     
 LEX      *         (X6) = ASSEMBLED DIGITS (0R FORMAT)                                    LEX           83     A     
 LEX                                                                                       LEX           84     A     
 LEX       ASN4     LX6    X6,B7       POSITION RESULTS IN 0L FORMAT.                      LEX           85     A     
 LEX                NZ     X6,ASNX     IF NO ZERO RESULT                                   LEX           86     A     
 LEX                SX6    1R0                                                             LEX           87     A     
 LEX                SB7    B0          INDICATE NO NUMBER.                                 LEX           88     A     
 LEX                LX6    9*CHAR                                                          LEX           89     A     
 LEX                EQ     ASNX        EXIT..                                              LEX           90     A     
 LEX       ASV      SPACE  4,12                                                            LEX           91     A     
 LEX      **        ASV -  ASSEMBLE NEXT *7* ALPHANUMERIC CHARACTERS.                      LEX           92     A     
 LEX      *         ENTRY  (B4) _ STARTING ADDRESS FOR ASSEMBLY.                           LEX           93     A     
 LEX      *                (X1) = FIRST CHARACTER.                                         LEX           94     A     
 LEX      *         EXIT   (X6) = ASSEMBLED CHARACTERS IN 0L FORMAT.                       LEX           95     A     
 LEX      *                (X1) = NEXT CHARACTER.                                          LEX           96     A     
 LEX      *                (B4) _ NEXT CHARACTER.                                          LEX           97     A     
 LEX      *                                                                                LEX           98     A     
 LEX      *         USES   A1,A4  X0,X3,X7  B2,B4,B5,B7                                    LEX           99     A     
 LEX                                                                                       LEX          100     A     
 LEX                                                                                       LEX          101     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 936    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX       ASV20    SB7    B7-LG.VAR                                                       LEX          102     A     
 LEX                SB3    X7          RESTORE *B3*                                        LEX          103     A     
 LEX                SB4    B4-B7       UPDATE *STRING* POINTER.                            LEX          104     A     
 LEX                                                                                       LEX          105     A     
 LEX       ASV      SUBR               ENTRY/EXIT...                                       LEX          106     A     
 LEX                SA4    B4+B1       NEXT CHARACTER.                                     LEX          107     A     
 LEX                SB7    LG.VAR                                                          LEX          108     A     
 LEX                MX3    -1R.                                                            LEX          109     A     
 LEX                SB5    60-CHAR                                                         LEX          110     A     
 LEX                SX7    B3          SAVE *B3*                                           LEX          111     A     
 LEX                BX6    0           CLEAR ASSEMBLE REGISTER.                            LEX          112     A     
 LEX                SB3    7777B+1R+   1ST NON-ALPHANUMERIC CHARACTER.                     LEX          113     A     
 LEX                SX1    X1                                                              LEX          114     A     
 LEX       ASV1     ZR     B7,ASV20    IF 7 CHARACTERS ASSEMBLED.                          LEX          115     A     
 LEX                LX1    X1,B5                                                           LEX          116     A     
 LEX                SB7    B7-B1                                                           LEX          117     A     
 LEX                SB5    B5-CHAR                                                         LEX          118     A     
 LEX                BX6    X6+X1                                                           LEX          119     A     
 LEX                SB2    X4+7777B                                                        LEX          120     A     
 LEX                AX0    B2,X3                                                           LEX          121     A     
 LEX                SX1    X4                                                              LEX          122     A     
 LEX                ZR     X0,ASVE     IF POSSIBLE *ILLEGAL CHARACTER*                     LEX          123     A     
 LEX                SA4    A4+B1                                                           LEX          124     A     
 LEX                LT     B2,B3,ASV1  LOOP IN NOT END.                                    LEX          125     A     
 LEX                                                                                       LEX          126     A     
 LEX                SB7    B7-LG.VAR                                                       LEX          127     A     
 LEX                SB4    B4-B7       UPDATE *STRING* POINTER.                            LEX          128     A     
 LEX                SB3    X7          RESTORE *B3*                                        LEX          129     A     
 LEX                EQ     EXIT.                                                           LEX          130     A     
 LEX                                                                                       LEX          131     A     
 LEX       **       HERE IF POSSIBLE ILLEGAL CHARACTER.                                    LEX          132     A     
 LEX                                                                                       LEX          133     A     
 LEX       ASVE     MI     X4,ASV20    IF *EOS*                                            LEX          134     A     
 LEX                SB2    X1-1R"                                                          LEX          135     A     
 LEX                ZR     B2,ASV20    IF *"*                                              LEX          136     A     
 LEX                SB2    X1-1R#                                                          LEX          137     A     
 LEX                ZR     B2,ASV20     IF *#*                                             LEX          138     A     
 LEX                BX6    X1                                                              LEX          139     A     
 LEX                SB3    X7          RESTORE RIGHTFULL (B3)                              LEX          140     A     
 LEX                LX6    9*CHAR                                                          LEX          141     A     
 LEX                SB2    B7-LG.VAR   REMEMBER (B7)                                       LEX          142     A     
 LEX                SA6    FILL.                                                           LEX          143     A     
 LEX                EQ     E.US1                                                           LEX          144     A     
 LEX       DEC      SPACE  4,15                                                            LEX          145     A     
 LEX      **        DEC -  CONVERT SOURCE CONSTANT TO INTERNAL BINARY                      LEX          146     A     
 LEX      *         ENTRY  B4 POINTS TO START OF CONSTANT.                                 LEX          147     A     
 LEX      *         EXIT   B4 POINTS TO END OF CONSTANT.                                   LEX          148     A     
 LEX      *                X1 = MODE OF CONSTANT                                           LEX          149     A     
 LEX      *                X2 = 0 (OR LOWER PART OF DOUBLE WORD)                           LEX          150     A     
 LEX      *                X6 = TRANSLATED CONSTANT                                        LEX          151     A     
 LEX      *         USES   A1,A2,A3,A4,A5  X0  B2,B7                                       LEX          152     A     
 LEX      *                (X4,X5 ARE NOT DESTROYED)                                       LEX          153     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 937    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         NOTE                                                                   LEX          154     A     
 LEX      *         NO-ONE SHOULD ATTEMPT TO CHANGE THE ALGORITHM OR FOR THAT              LEX          155     A     
 LEX      *         MATTER ANY CODE WITHIN THIS ROUTINE WITHOUT FIRST CHECKING             LEX          156     A     
 LEX      *         ROUTINES --- KODER,KRAKER,RUN2.3,FTN,COMPASS AND                       LEX          157     A     
 LEX      *         ANY OTHER COMPILER/ASSEMBLER THAT TRANSLATES CONSTANTS INTO            LEX          158     A     
 LEX      *         BINARY FORM.                                                           LEX          159     A     
 LEX      *         CALLS  OCT                                                             LEX          160     A     
 LEX                                                                                       LEX          161     A     
 LEX                                                                                       LEX          162     A     
 LEX      **        RESTORE REGISTERS AND EXIT.                                            LEX          163     A     
 LEX      *                (X7) = LOWER HALF OF WORD (IF DOUBLE)                           LEX          164     A     
 LEX      *                (X6) = UPPER HALF                                               LEX          165     A     
 LEX      *                (X1) = MODE                                                     LEX          166     A     
 LEX                                                                                       LEX          167     A     
 LEX       DECX     SA1    DECA        HERE IF EVERYTHING OK                               LEX          168     A     
 LEX                SA2    A1+B1                                                           LEX          169     A     
 LEX                SA0    X1          RESTORE *A0*                                        LEX          170     A     
 LEX                SB3    X2          RESTORE *B3*                                        LEX          171     A     
 LEX                SA4    A2+B1       RESTORE *X4*                                        LEX          172     A     
 LEX                SA5    A4+B1       RESTORE *X5*                                        LEX          173     A     
 LEX                SA1    A5+B1                                                           LEX          174     A     
 LEX                BX2    X7          LOWER PART OF RESULTS                               LEX          175     A     
 LEX                SA3    A1+B1                                                           LEX          176     A     
 LEX                LX7    X1          RESTORE *X7*                                        LEX          177     A     
 LEX                SX1    B6          MODE                                                LEX          178     A     
 LEX                SB6    X3          RESTORE *B6*                                        LEX          179     A     
 LEX                SA3    A3+B1                                                           FCC0400        6     A     
 LEX                SB5    X3          RESTORE *B5*                                        FCC0400        7     A     
 LEX                SB4    B4-B1       RESET TO LAST PART OF CONSTANT.                     LEX          180     A     
 LEX                                                                                       LEX          181     A     
 LEX       DEC      SUBR   -           ENTRY/EXIT                                          LEX          182     A     
 LEX                SA1    B4                                                              LEX          183     A     
 LEX                =A2    B4+1                                                            LEX          184     A     
 LEX                =B7    X1-O.PERIOD                                                     LEX          185     A     
 LEX                NZ     B7,DEC3     IF 1ST NOT *.*                                      LEX          186     A     
 LEX                =B2    X2-O.CONS                                                       LEX          187     A     
 LEX                ZR     B2,DEC7     IF NUMBER DOES NOT FOLLOW PERIOD.                   LEX          188          I
          -FEAT126C 
 LEX                ZR     B2,DEC7     IF NUMBER FOLLOWS PERIOD.                           FEAT126C     129     A     
 LEX                =B4    B4+1        ADVANCE TO NEXT.                                    LEX          189     A     
 LEX                EQ     DECEX1      ERROR IN CONSTANT.                                  LEX          190     A     
 LEX                                                                                       LEX          191     A     
 LEX      **        HERE IF 1ST NOT NUMBER.                                                LEX          192     A     
 LEX      *                CHECK IF OCTAL CONSTANT FORM.                                   LEX          193     A     
 LEX                                                                                       LEX          194     A     
 LEX                                                                                       LEX          195     A     
 LEX       DEC3     =A3    B4-1                                                            LEX          196     A     
 LEX                RJ     OCT         ATTEMPT OCTAL CONVERSION                            LEX          197     A     
 LEX                NZ     B2,DEC7     IF NO EXPLICIT *B* SUFFIX                           LEX          198     A     
 LEX                                                                                       LEX          199     A     
 LEX                ANSI   E.DC1       ** OCTAL TYPE NOT DEFINED BY ANSI **                LEX          200     A     
 LEX                SB4    A3          POINT PAST OCTAL CONSTANT                           LEX          201     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 938    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                =X1    M.UNIV                                                          LEX          202     A     
 LEX                EQ     DEC         EXIT.. (WITHOUT RELOAD OF REGISTERS.)               LEX          203     A     
 LEX                                                                                       LEX          204     A     
 LEX       **       HERE IF CONSTANT INTEGER OR DECIMAL.                                   LEX          205     A     
 LEX                                                                                       LEX          206     A     
 LEX       DEC7     SX6    A0                                                              LEX          207     A     
 LEX                SA6    DECA        SAVE *A0*                                           LEX          208     A     
 LEX                SX6    B3                                                              LEX          209     A     
 LEX                SA6    A6+B1       SAVE *B3*                                           LEX          210     A     
 LEX                BX6    X4                                                              LEX          211     A     
 LEX                SA6    A6+B1       SAVE *X4*                                           LEX          212     A     
 LEX                BX6    X5                                                              LEX          213     A     
 LEX                SA6    A6+B1       SAVE *X5*                                           LEX          214     A     
 LEX                BX6    X7                                                              LEX          215     A     
 LEX                SA6    A6+B1       SAVE *X7*                                           LEX          216     A     
 LEX                SX6    B6                                                              LEX          217     A     
 LEX                SA6    A6+B1       SAVE *B6*                                           LEX          218     A     
 LEX                SX6    B5                                                              FCC0400        8     A     
 LEX                SA6    A6+B1       SAVE *B5*                                           FCC0400        9     A     
 LEX                SB5    B0          CLEAR B5                                            FCC0400       10     A     
 LEX                                                                                       LEX          219     A     
 LEX      *         PROCESS DECIMAL CONSTANT                                               LEX          220     A     
 LEX                                                                                       LEX          221     A     
 LEX       DEC10    BX2    0           CLEAR                                               LEX          222     A     
 LEX                MX0    CHAR                                                            LEX          223     A     
 LEX                =B6    M.INT                                                           LEX          224     A     
 LEX                SX3    0                                                               LEX          225     A     
 LEX                MX7    -CHAR                                                           LEX          226     A     
 LEX                =B3    1           CLEAR OVERFLOW COUNT (TO 1)                         LEX          227     A     
 LEX                                                                                       LEX          228     A     
 LEX      **        GET NEXT ELEMENT TO PROCESS FOR NUMBER.                                LEX          229     A     
 LEX                                                                                       LEX          230     A     
 LEX       DEC11    SA4    B4          LOAD NEXT WORD.                                     LEX          231     A     
 LEX                NO                                                                     LEX          232     A     
 LEX                =B7    X4-O.VAR                                                        LEX          233     A     
 LEX                SB2    X4-O.PERIOD                                                     LEX          234     A     
 LEX                ZR     X4,DEC40    IF *EOS*                                            LEX          235     A     
 LEX                LE     B7,B0,DEC16 IF ALPHANUMERIC                                     LEX          236     A     
 LEX                NZ     B2,DEC40    IF NO DECIMAL POINT                                 LEX          237     A     
 LEX                MI     B6,DECEX1   IF PREVIOUS DECIMAL POINT - ERROR                   LEX          238     A     
 LEX                =B6    -1       INDICATE IN FRACTIONAL PART.                           LEX          239     A     
 LEX                =B4    B4+1                                                            LEX          240     A     
 LEX                EQ     DEC11       LOOP                                                LEX          241     A     
 LEX                                                                                       LEX          242     A     
 LEX      **        BUILD INTEGER NUMBER IN *X3*                                           LEX          243     A     
 LEX                                                                                       LEX          244     A     
 LEX       DEC13    IX6    X6+X5       2*LOW PART + DIGIT                                  LEX          245     A     
 LEX                PL     B6,DEC14    IF NOT IN FRACTIONAL FIELD                          LEX          246     A     
 LEX                =B6    B6-1                                                            LEX          247     A     
 LEX       DEC14    LX5    X3,B1       2*HIGH PART                                         LEX          248     A     
 LEX                =B3    B3+1        INCREMENT OVERFLOW COUNT.                           LEX          249     A     
 LEX                NZ     X1,DEC16    IF OVERFLOW OF 108 BITS                             LEX          250     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 939    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                LX2    3           8*LOW PART                                          LEX          251     A     
 LEX                =B3    1           RESET OVERFLOW COUNT                                LEX          252     A     
 LEX                IX6    X6+X2       10*LOW PART + DIGIT                                 LEX          253     A     
 LEX                LX3    3           8*HIGH PART                                         LEX          254     A     
 LEX                BX2    -X0*X6      CLEAR CARRY FROM LOW PART                           LEX          255     A     
 LEX                IX5    X3+X5       10*HIGH PART                                        LEX          256     A     
 LEX                AX6    54          POSITION CARRY                                      LEX          257     A     
 LEX                IX3    X5+X6       10*HIGH PART + CARRY                                LEX          258     A     
 LEX       DEC16    LX4    CHAR        NEXT CHARACTER                                      LEX          259     A     
 LEX                BX5    -X7*X4                                                          LEX          260     A     
 LEX                SB7    X5+0        SAVE CURRENT ELEMENT.                               LEX          261          I
          -FCC0400
 LEX                SB2    X5+         SAVE CURRENT ELEMENT                                FCC0400       11     A     
 LEX                SX6    X5-1R0                                                          LEX          262     A     
 LEX                LX5    X2,B1       2*LOW PART                                          LEX          263     A     
 LEX                BX1    X0*X3       PICK OFF ANY CARRY PAST 108 BITS                    LEX          264     A     
 LEX                PL     X6,DEC13    IF DIGIT                                            LEX          265     A     
 LEX                NZ     B7,DEC20    IF NOT END OF WORD.                                 LEX          266          I
          -FCC0400
 LEX                NZ     B2,DEC19    IF NOT END OF WORD                                  FCC0400       12     A     
 LEX                =B4    B4+1                                                            LEX          267     A     
 LEX                EQ     DEC11       LOOP                                                LEX          268     A     
 LEX                                                                                       LEX          269     A     
 LEX       DEC19    ZR     X1,DEC20    IF NO OVERFLOW                                      FCC0400       13     A     
 LEX                SB5    1           SET FLAG TO INDICATE ERROR PROCESSED                FCC0400       14     A     
 LEX                WARN   E.DC8                                                           FCC0400       15     A     
 LEX                                                                                       FCC0400       16     A     
 LEX       DEC20    SX5    B7-1RE                                                          LEX          270          I
          -FCC0400
 LEX       DEC20    SX5    B2-1RE                                                          FCC0400       17     A     
 LEX                ZR     X5,DEC21    IF *E*                                              LEX          271     A     
 LEX                =X6    X5+1                                                            LEX          272     A     
 LEX                NZ     X6,DEC40    IF NOT *D*                                          LEX          273          I
          -FCC0400
 LEX                NZ     X6,DEC41    IF NOT *D*                                          FCC0400       18     A     
 LEX                =X5    1                                                               LEX          274     A     
 LEX       DEC21    MI     B6,DEC22    IF PREVIOUS DECIMAL POINT                           LEX          275     A     
 LEX                =B6    -1                                                              LEX          276     A     
 LEX       DEC22    SB3    B6+B3       OVERFLOW-FRACTIONAL DIGIT COUNT.                    LEX          277     A     
 LEX                SA1    B4                                                              LEX          278     A     
 LEX                SB6    X5          SET FLAG (D=1,E=0)                                  LEX          279     A     
 LEX                MX0    CHAR                                                            FCC0400       19     A     
 LEX                LX1    CHAR                                                            LEX          280     A     
 LEX                BX6    X0*X1                                                           LEX          281     A     
 LEX                MX5    0                                                               LEX          282     A     
 LEX                ZR     X6,DEC30    IF NO EMBEDDED EXPONENT                             LEX          283     A     
 LEX                =B4    B4+1                                                            LEX          284     A     
 LEX                BX6    0                                                               LEX          285     A     
 LEX                SB2    E.DC3                                                           LEX          286     A     
 LEX                EQ     DEC26       PROCESS EXPONENT.                                   LEX          287     A     
 LEX                                                                                       LEX          288     A     
 LEX      **        HERE IF EMBEDDED EXPONENT                                              LEX          289     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 940    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         FORM   CONSTANT EXXX  OR CONSTANT EXXX                                 LEX          290          I
          -FEAT126C 
 LEX      *         FORM   CONSTANT EXXX OR CONSTANT DXXX                                  FEAT126C     130     A     
 LEX                                                                                       LEX          291     A     
 LEX       DEC24    SA1    B4                                                              LEX          292     A     
 LEX                SB7    X1-O.CONS                                                       LEX          293     A     
 LEX                SB2    E.DC3                                                           LEX          294     A     
 LEX                BX6    0           CLEAR ASSEMBLY REGISTER.                            LEX          295     A     
 LEX                ZR     X1,DECEX    IF *EOS* - ERROR                                    LEX          296     A     
 LEX                NZ     B7,DECEX    IF SEPARATOR - ERROR                                LEX          297     A     
 LEX                =B4    B4+1                                                            LEX          298     A     
 LEX                                                                                       LEX          299     A     
 LEX      **        BUILD INTEGER EXPONENT IN *X6*                                         LEX          300     A     
 LEX                                                                                       LEX          301     A     
 LEX       DEC26    LX1    CHAR        NEXT DIGIT                                          LEX          302     A     
 LEX                BX4    -X7*X1                                                          LEX          303     A     
 LEX                SB7    X4-1R9-1                                                        LEX          304     A     
 LEX                ZR     X4,DEC50    IF END OF EXPONENT                                  LEX          305     A     
 LEX                SX4    B7+1R9-1R0+1                                                    LEX          306     A     
 LEX                PL     B7,DECEX    IF NON-NUMERIC (DELIMITER)                          LEX          307     A     
 LEX                MI     X4,DECEX    IF NON-NUMERIC (ALPHA)                              LEX          308     A     
 LEX                LX0    X6,B1       2*EXPONENT                                          LEX          309     A     
 LEX                BX4    X4-X5       SIGN DIGIT                                          LEX          310     A     
 LEX                LX6    3           8*EXPONENT                                          LEX          311     A     
 LEX                IX0    X4+X0       2*EXPONENT+DIGIT                                    LEX          312     A     
 LEX                IX6    X6+X0       10*EXPONENT+ (OR -) DIGIT                           LEX          313     A     
 LEX                EQ     DEC26       LOOP                                                LEX          314     A     
 LEX                                                                                       LEX          315     A     
 LEX      **        HERE IF NO EMBEDDED EXPONENT                                           LEX          316     A     
 LEX      *         CHECK IF OF THE FORM                                                   LEX          317     A     
 LEX      *                CONSTANT E+XXX   CONSTANT D+XXX                                 LEX          318     A     
 LEX      *         OR     CONSTANT E-XXX   CONSTANT D-XXX                                 LEX          319     A     
 LEX      *                                                                                LEX          320     A     
 LEX      *         (X5) = SIGN OF EXPONENT                                                LEX          321     A     
 LEX                                                                                       LEX          322     A     
 LEX       DEC30    SA1    B4+B1       NEXT WORD                                           LEX          323     A     
 LEX                SB4    B4+2                                                            LEX          324     A     
 LEX                =B7    X1-O.PL                                                         LEX          325     A     
 LEX                ZR     B7,DEC24    IF *+*                                              LEX          326     A     
 LEX                =B7    B7-1                                                            LEX          327     A     
 LEX                MX5    60          SET SIGN NEGATIVE                                   LEX          328     A     
 LEX                ZR     B7,DEC24    IF *-*                                              LEX          329     A     
 LEX                =B4    B4-1                                                            LEX          330     A     
 LEX                BX5    0           SET SIGN POSITIVE                                   LEX          331     A     
 LEX                                                                                       LEX          332     A     
 LEX      **        HERE IF NO EXPONENT SPECIFIED                                          LEX          333     A     
 LEX      *         SET NULL EXPONENT AND SEND *NOTE* ERROR TO OUTPUT.                     LEX          334     A     
 LEX                                                                                       LEX          335     A     
 LEX                NOTE   E.DC6                                                           LEX          336     A     
 LEX                EQ     DEC52       CONTINUE.                                           LEX          337     A     
 LEX                                                                                       LEX          338     A     
 LEX       DEC40    SB3    B6+B3       OVERFLOW-FRACTIONAL DIGIT COUNT                     LEX          339          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 941    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
          -FCC0400
 LEX       DEC40    ZR     X1,DEC41    IF NO OVERFLOW                                      FCC0400       20     A     
 LEX                SB5    1           SET FLAG TO INDICATE ERROR PROCESSED                FCC0400       21     A     
 LEX                WARN   E.DC8                                                           FCC0400       22     A     
 LEX                                                                                       FCC0400       23     A     
 LEX       DEC41    SB3    B6+B3       OVERFLOW-FRACTIONAL DIGIT COUNT                     FCC0400       24     A     
 LEX                MI     B6,DEC45    IF DECIMAL POINT IN NUMBER                          LEX          340     A     
 LEX                LX3    54          CONSTRUCT INTEGER                                   LEX          341     A     
 LEX                IX6    X2+X3                                                           LEX          342     A     
 LEX                LX3    6                                                               LEX          343     A     
 LEX                AX3    5                                                               LEX          344     A     
 LEX                ZR     X3,DECX     IF NO OVERFLOW OF 59 BITS                           LEX          345     A     
 LEX                EQ     DECEX1      ERROR                                               LEX          346     A     
 LEX                                                                                       LEX          347     A     
 LEX       DEC45    SB6    B0          SET FLAG (E=0)                                      LEX          348     A     
 LEX                EQ     DEC52                                                           LEX          349     A     
 LEX                                                                                       LEX          350     A     
 LEX       DEC50    SB3    X6+B3       ADD EXPONENT TO SCALING                             LEX          351     A     
 LEX                AX6    9                                                               LEX          352     A     
 LEX                SB2    E.DC2                                                           LEX          353     A     
 LEX                NZ     X6,DECEX    IF EXPONENT .GT. 512 - ERROR                        LEX          354     A     
 LEX       DEC52    MX0    18                                                              LEX          355          I
          -FCC0400
 LEX                BX4    X0*X3       REPACK                                              LEX          356          I
          -FCC0400
 LEX                IX3    X3-X4       108 + BITS                                          LEX          357          I
          -FCC0400
 LEX                MX0    12          IN NORMAL FORM                                      LEX          358          I
          -FCC0400
 LEX                BX5    X0*X2       IN X1,X2,X3                                         LEX          359          I
          -FCC0400
 LEX                PX7    X2          IN TRIPLE PRECISION                                 LEX          360          I
          -FCC0400
 LEX                SB7    48                                                              LEX          361          I
          -FCC0400
 LEX                LX3    6                                                               LEX          362          I
          -FCC0400
 LEX                SB2    B7+B7                                                           LEX          363          I
          -FCC0400
 LEX                LX5    12                                                              LEX          364          I
          -FCC0400
 LEX                IX3    X3+X5                                                           LEX          365          I
          -FCC0400
 LEX                AX4    42                                                              LEX          366          I
          -FCC0400
 LEX                PX1,B2 X4                                                              LEX          367          I
          -FCC0400
 LEX                SB2    5                                                               LEX          368          I
          -FCC0400
 LEX                PX2,B7 X3                                                              LEX          369          I
          -FCC0400
 LEX                NX1    X1                                                              LEX          370          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 942    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
          -FCC0400
 LEX                NZ     X1,DEC54    IF CUMULANT GE 2**96                                LEX          371          I
          -FCC0400
 LEX                NX1    X2          SHIFT NUMBER IN X1,X2,X7                            LEX          372          I
          -FCC0400
 LEX                BX2    X7                                                              LEX          373          I
          -FCC0400
 LEX                SX7    B0                                                              LEX          374          I
          -FCC0400
 LEX       DEC54    NX2    X2                                                              LEX          375          I
          -FCC0400
 LEX                DX4    X1+X2                                                           LEX          376          I
          -FCC0400
 LEX                NX3    X7                                                              LEX          377          I
          -FCC0400
 LEX                FX1    X1+X2                                                           LEX          378          I
          -FCC0400
 LEX                SA0    BINC.PL     ADDRESS OF POSITIVE POWERS.                         LEX          379          I
          -FCC0400
 LEX                ZR     X1,DEC77    IF 0 RESULT                                         LEX          380          I
          -FCC0400
 LEX                SX6    B3          SCALIMI TO X6                                       LEX          381          I
          -FCC0400
 LEX                FX2    X3+X4                                                           LEX          382          I
          -FCC0400
 LEX                MX0    56                                                              LEX          383          I
          -FCC0400
 LEX                =B7    -1                                                              LEX          384          I
          -FCC0400
 LEX                DX3    X3+X4       COMPLETE NORMAL FORM                                LEX          385          I
          -FCC0400
 LEX                PL     X6,DEC56    IF POSITIVE SCALING                                 LEX          386          I
          -FCC0400
 LEX                BX4    -X0                                                             LEX          387          I
          -FCC0400
 LEX                SA0    BINC.NG     ADDRESS OF NEGATIVE POWERS.                         LEX          388          I
          -FCC0400
 LEX                IX7    X4-X6                                                           LEX          389          I
          -FCC0400
 LEX                BX6    X7-X4                                                           LEX          390          I
          -FCC0400
 LEX                UX1    B3,X1       BIAS VALUE FOR NEGATIVE SCALING                     LEX          391          I
          -FCC0400
 LEX                SB3    B3+400B                                                         LEX          392          I
          -FCC0400
 LEX                PX1,B3 X1                                                              LEX          393          I
          -FCC0400
 LEX                SB3    B3-48                                                           LEX          394          I
          -FCC0400
 LEX                PX2,B3 X2                                                              LEX          395          I
          -FCC0400
 LEX                SB3    B3-48                                                           LEX          396          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 943    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
          -FCC0400
 LEX                PX3,B3 X3                                                              LEX          397          I
          -FCC0400
 LEX       DEC56    BX7    -X0*X6      POWER BETWEEN 0 AND 15                              LEX          398          I
          -FCC0400
 LEX                AX6    4           POWERS GE 16 (IN MAGNITUDE)                         LEX          399          I
          -FCC0400
 LEX                SA4    X7+BINC-1                                                       LEX          400          I
          -FCC0400
 LEX                SB3    X6                                                              LEX          401          I
          -FCC0400
 LEX                ZR     X7,DEC60    IF NO FACTOR 10 - 10**15                            LEX          402          I
          -FCC0400
 LEX                FX6    X4*X2       LOW (OR MIDDLE)                                     LEX          403          I
          -FCC0400
 LEX                DX0    X4*X1       ORDER PARTS                                         LEX          404          I
          -FCC0400
 LEX                ZR     B6,DEC66    IF SINGLE PRECISION                                 LEX          405          I
          -FCC0400
 LEX                FX5    X4*X3       LOW ORDER                                           LEX          406          I
          -FCC0400
 LEX                DX3    X4*X2       PARTS                                               LEX          407          I
          -FCC0400
 LEX                FX2    X0+X6                                                           LEX          408          I
          -FCC0400
 LEX                EQ     DEC72                                                           LEX          409          I
          -FCC0400
 LEX                                                                                       LEX          410          I
          -FCC0400
 LEX       DEC60    ZR     B6,DEC67    IF SINGLE PRECISION                                 LEX          411          I
          -FCC0400
 LEX                EQ     DEC73                                                           LEX          412          I
          -FCC0400
 LEX                                                                                       LEX          413          I
          -FCC0400
 LEX       DEC65    DX0    X1*X4       AU*BU L                                             LEX          414          I
          -FCC0400
 LEX                FX7    X1*X4                                                           LEX          415          I
          -FCC0400
 LEX                FX3    X1*X5       AU*BL L                                             LEX          416          I
          -FCC0400
 LEX                OR     X7,DECEX1                                                       LEX          417          I
          -FCC0400
 LEX                FX6    X0+X3       SUM AU*BUL+AU*BL L                                  LEX          418          I
          -FCC0400
 LEX                FX0    X2*X4       AL*BU L                                             LEX          419          I
          -FCC0400
 LEX       DEC66    FX1    X1*X4       AU*BU U                                             LEX          420          I
          -FCC0400
 LEX                FX2    X6+X0       X-PRODS + AU*BUL L                                  LEX          421          I
          -FCC0400
 LEX                ZR     B3,DEC69    IF SCALIMI COMPLETE                                 LEX          422          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 944    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
          -FCC0400
 LEX       DEC67    SX6    B3                                                              LEX          423          I
          -FCC0400
 LEX                SX0    B1                                                              LEX          424          I
          -FCC0400
 LEX                BX7    X0*X6       BIT FOR NEXT POWER OF 10                            LEX          425          I
          -FCC0400
 LEX                SB7    B7+B1                                                           LEX          426          I
          -FCC0400
 LEX                AX6    1           POSITION NEXT BIT                                   LEX          427          I
          -FCC0400
 LEX                SA4    A0+B7       NEXT POWER - UPPER PART (BU)                        LEX          428          I
          -FCC0400
 LEX                EQ     B7,B2,E.DC  IF SCALIMI GE 512 IN MAGNITUDE - ERROR              LEX          429          I
          -FCC0400  -FEAT126C 
 LEX                EQ     B7,B2,DECEX1  IF SCALIMI GE 512 IN MAGNITUDE - ERROR            FEAT126C     131          I
          -FCC0400
 LEX                SB3    X6                                                              LEX          430          I
          -FCC0400
 LEX                SA5    A4+B2       - LOWER PART (BL)                                   LEX          431          I
          -FCC0400
 LEX                NZ     X7,DEC65    IF THIS POWER IS FACTOR                             LEX          432          I
          -FCC0400
 LEX       DEC69    NZ     B3,DEC67    IF MORE FACTORS IN PRODUCT                          LEX          433          I
          -FCC0400
 LEX                RX1    X1+X2       FINAL ROUNDED RESULT                                LEX          434          I
          -FCC0400
 LEX                IR     X1,DEC77    IF RESULT IN RANGE                                  LEX          435          I
          -FCC0400
 LEX                EQ     DECEX1      ERROR                                               LEX          436          I
          -FCC0400
 LEX                                                                                       LEX          437          I
          -FCC0400
 LEX       DEC70    DX0    X2*X4       1 AM*BU D L                                         LEX          438          I
          -FCC0400
 LEX                FX7    X1*X4                                                           LEX          439          I
          -FCC0400
 LEX                FX6    X3*X4       2 AL*BU S L                                         LEX          440          I
          -FCC0400
 LEX                OR     X7,DECEX1                                                       LEX          441          I
          -FCC0400
 LEX                FX3    X0+X6       3 SUM 1+2 S L                                       LEX          442          I
          -FCC0400
 LEX                FX0    X2*X5       4 AM*BM S L                                         LEX          443          I
          -FCC0400
 LEX                FX2    X2*X4       5 AM*BU S M                                         LEX          444          I
          -FCC0400
 LEX                FX3    X3+X0       6 SUM 3+4 S L                                       LEX          445          I
          -FCC0400
 LEX                FX0    X1*X5       7 AU*BM S M                                         LEX          446          I
          -FCC0400
 LEX                DX6    X1*X5       8 AU*BM D L                                         LEX          447          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 945    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
          -FCC0400
 LEX                SA5    A5+B2       9 LOAD BL                                           LEX          448          I
          -FCC0400
 LEX                FX3    X3+X6       10 SUM 6+8 S L                                      LEX          449          I
          -FCC0400
 LEX                FX7    X1*X5       11 AU*BL (9) S L                                    LEX          450          I
          -FCC0400
 LEX                DX6    X1*X4       12 AU*BU D M                                        LEX          451          I
          -FCC0400
 LEX                DX5    X2+X0       13 SUM 5+7 D L                                      LEX          452          I
          -FCC0400
 LEX                FX0    X2+X0       14 SUM 5+7                                          LEX          453          I
          -FCC0400
 LEX                FX3    X3+X7       15 SUM 10+11 S L                                    LEX          454          I
          -FCC0400
 LEX                FX2    X6+X0       16 SUM 12+14 S M                                    LEX          455          I
          -FCC0400
 LEX       DEC72    FX1    X1*X4       17 AU*BU S U                                        LEX          456          I
          -FCC0400
 LEX                FX3    X5+X3       18 SUM 13+15 S L                                    LEX          457          I
          -FCC0400
 LEX                DX4    X6+X0       19 SUM 12+14 D L                                    LEX          458          I
          -FCC0400
 LEX                FX3    X3+X4       20 SUM 18+19 S L                                    LEX          459          I
          -FCC0400
 LEX       DEC73    ZR     B3,DEC76    IF SCALIMI COMPLETE                                 LEX          460          I
          -FCC0400
 LEX                SX6    B3                                                              LEX          461          I
          -FCC0400
 LEX                =X0    1                                                               LEX          462          I
          -FCC0400
 LEX       DEC74    BX7    X0*X6       BIT FOR NEXT POWER OF 10                            LEX          463          I
          -FCC0400
 LEX                =B7    B7+1                                                            LEX          464          I
          -FCC0400
 LEX                AX6    1           POSITION NEXT BIT                                   LEX          465          I
          -FCC0400
 LEX                SA4    A0+B7       NEXT POWER - UPPER PART (BU)                        LEX          466          I
          -FCC0400
 LEX                EQ     B7,B2,E.DC  IF SCALIMI GE 512 IN MAGNITUDE - ERROR              LEX          467          I
          -FCC0400  -FEAT126C 
 LEX                EQ     B7,B2,DECEX1  IF SCALIMI GE 512 IN MAGNITUDE - ERROR            FEAT126C     132          I
          -FCC0400
 LEX                SB3    X6                                                              LEX          468          I
          -FCC0400
 LEX                SA5    A4+B2       -MIDDLE PART (BM)                                   LEX          469          I
          -FCC0400
 LEX                NZ     X7,DEC70    IF THIS POWER IS FACTOR                             LEX          470          I
          -FCC0400
 LEX                NZ     B3,DEC74    IF MORE FACTORS IN PRODUCT                          LEX          471          I
          -FCC0400
 LEX       DEC76    DX4    X1+X2       RESCALE                                             LEX          472          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 946    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
          -FCC0400
 LEX                FX1    X1+X2       RESULT                                              LEX          473          I
          -FCC0400
 LEX                RX3    X4+X3       ROUNDED                                             LEX          474          I
          -FCC0400
 LEX                OR     X1,DECEX1                                                       LEX          475          I
          -FCC0400
 LEX                DX2    X1+X3       IN DOUBLE                                           LEX          476          I
          -FCC0400
 LEX                FX1    X1+X3       PRECISION                                           LEX          477          I
          -FCC0400
 LEX                OR     X1,DECEX1   IF RESULT IS OUT OF RANGE - ERROR                   LEX          478          I
          -FCC0400
 LEX       DEC77    SB6    B6+M.REAL   SET MODE                                            LEX          479          I
          -FCC0400
 LEX                SB7    BINC.NG     ADDRESS OF NEGATIVE POWERS.                         LEX          480          I
          -FCC0400
 LEX                SB2    A0                                                              LEX          481          I
          -FCC0400
 LEX                NE     B7,B2,DEC80 IF POSITIVE SCALING                                 LEX          482          I
          -FCC0400
 LEX                UX1    B7,X1       REMOVE BIAS FROM RESULT                             LEX          483          I
          -FCC0400
 LEX                SB7    B7-400B                                                         LEX          484          I
          -FCC0400
 LEX                SX3    B7+1777B                                                        LEX          485          I
          -FCC0400
 LEX                PX1,B7 X1                                                              LEX          486          I
          -FCC0400
 LEX                PL     X3,DEC79    IF NO UNDERFLOW                                     LEX          487          I
          -FCC0400
 LEX                SX1    B0                                                              LEX          488          I
          -FCC0400
 LEX       DEC79    SB7    B7-48                                                           LEX          489          I
          -FCC0400
 LEX                SX3    B7+1777B                                                        LEX          490          I
          -FCC0400
 LEX                PX2,B7 X2                                                              LEX          491          I
          -FCC0400
 LEX                PL     X3,DEC80    IF NO UNDERFLOW                                     LEX          492          I
          -FCC0400
 LEX                SX2    B0                                                              LEX          493          I
          -FCC0400
 LEX       DEC80    BX6    X1                                                              LEX          494          I
          -FCC0400
 LEX                BX7    X2                                                              LEX          495          I
          -FCC0400
 LEX                EQ     DECX        EXIT..                                              LEX          496          I
          -FCC0400
 LEX                                                                                       LEX          497          I
          -FCC0400
 LEX       DECEX1   SB2    E.DC                                                            LEX          498          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 947    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
          -FCC0400
 LEX       DECEX    FATAL  B2                                                              LEX          499          I
          -FCC0400
 LEX                EQ     =XPSN         EXIT TO NEXT STATEMENT                            LEX          500          I
          -FCC0400
 LEX                                                                                       LEX          501          I
          -FCC0400
 LEX       DECB     VFD    54/1LB,6/O.VAR                                                  LEX          502          I
          -FCC0400
 LEX       BINC     SPACE  4,8                                                             LEX          503          I
          -FCC0400
 LEX      **        BINC - POWERS OF 10(2(0)) THROUGH 10(2(8))                             LEX          504          I
          -FCC0400
 LEX                                                                                       LEX          505          I
          -FCC0400
 LEX                                                                                       LEX          506          I
          -FCC0400
 LEX       BINC     DATA   1.0E+1                                                          LEX          507          I
          -FCC0400
 LEX                DATA   1.0E+2                                                          LEX          508          I
          -FCC0400
 LEX                DATA   1.0E+3                                                          LEX          509          I
          -FCC0400
 LEX                DATA   1.0E+4                                                          LEX          510          I
          -FCC0400
 LEX                DATA   1.0E+5                                                          LEX          511          I
          -FCC0400
 LEX                DATA   1.0E+6                                                          LEX          512          I
          -FCC0400
 LEX                DATA   1.0E+7                                                          LEX          513          I
          -FCC0400
 LEX                DATA   1.0E+8                                                          LEX          514          I
          -FCC0400
 LEX                DATA   1.0E+9                                                          LEX          515          I
          -FCC0400
 LEX                DATA   1.0E+10                                                         LEX          516          I
          -FCC0400
 LEX                DATA   1.0E+11                                                         LEX          517          I
          -FCC0400
 LEX                DATA   1.0E+12                                                         LEX          518          I
          -FCC0400
 LEX                DATA   1.0E+13                                                         LEX          519          I
          -FCC0400
 LEX                DATA   1.0E+14                                                         LEX          520          I
          -FCC0400
 LEX                DATA   1.0E+15                                                         LEX          521          I
          -FCC0400
 LEX                                                                                       LEX          522          I
          -FCC0400
 LEX      **        POSITIVE POWERS OF 10                                                  LEX          523          I
          -FCC0400
 LEX                                                                                       LEX          524          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 948    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
          -FCC0400
 LEX       BINC.PL  CON    20064341571157602000B   +16     (UPPER)                         LEX          525          I
          -FCC0400
 LEX                CON    20734734265552025560B   +32                                     LEX          526          I
          -FCC0400
 LEX                CON    22456047403722377717B   +64                                     LEX          527          I
          -FCC0400
 LEX                CON    25724473510762300351B   +128                                    LEX          528          I
          -FCC0400
 LEX                CON    34435247735376716771B   +256                                    LEX          529          I
          -FCC0400
 LEX                                                                                       LEX          530          I
          -FCC0400
 LEX                CON    17250000000000000000B   +16     (MIDDLE)                        LEX          531          I
          -FCC0400
 LEX                CON    20135531676010000000B   +32                                     LEX          532          I
          -FCC0400
 LEX                CON    21655155247457665561B   +64                                     LEX          533          I
          -FCC0400
 LEX                CON    25124315770633631554B   +128                                    LEX          534          I
          -FCC0400
 LEX                CON    33636750673556710033B   +256                                    LEX          535          I
          -FCC0400
 LEX                                                                                       LEX          536          I
          -FCC0400
 LEX                CON    16450000000000000000B   +16    (LOWER)                          LEX          537          I
          -FCC0400
 LEX                CON    17320000000000000000B   +32                                     LEX          538          I
          -FCC0400
 LEX                CON    21056166544576650370B   +64                                     LEX          539          I
          -FCC0400
 LEX                CON    24321553040115601064B   +128                                    LEX          540          I
          -FCC0400
 LEX                CON    33034617735255702436B   +256                                    LEX          541          I
          -FCC0400
 LEX                                                                                       LEX          542          I
          -FCC0400
 LEX      **        NEGATIVE POWERS OF 10                                                  LEX          543          I
          -FCC0400
 LEX                                                                                       LEX          544          I
          -FCC0400
 LEX       BINC.NG  CON    16327151262457542115B   -16     (UPPER)                         LEX          545          I
          -FCC0400
 LEX                CON    15456373043653242471B   -32                                     LEX          546          I
          -FCC0400
 LEX                CON    13735207775211722471B   -64                                     LEX          547          I
          -FCC0400
 LEX                CON    10466735010637062274B   -128                                    LEX          548          I
          -FCC0400
 LEX                CON    01756003050311261572B   -256                                    LEX          549          I
          -FCC0400
 LEX                                                                                       LEX          550          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 949    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
          -FCC0400
 LEX                CON    15527025551413537150B   -16     (MIDDLE)                        LEX          551          I
          -FCC0400
 LEX                CON    14654513514767414355B   -32                                     LEX          552          I
          -FCC0400
 LEX                CON    13137232247710714327B   -64                                     LEX          553          I
          -FCC0400
 LEX                CON    07667112025437131766B   -128                                    LEX          554          I
          -FCC0400
 LEX                CON    01150623477244210525B   -256                                    LEX          555          I
          -FCC0400
 LEX                                                                                       LEX          556          I
          -FCC0400
 LEX                CON    14723630465154737561B   -16     (LOWER)                         LEX          557          I
          -FCC0400
 LEX                CON    14055130051274405533B   -32                                     LEX          558          I
          -FCC0400
 LEX                CON    12332173154211025037B   -64                                     LEX          559          I
          -FCC0400
 LEX                CON    07066405673367561154B   -128                                    LEX          560          I
          -FCC0400
 LEX                CON    00357757552302121100B   -256                                    LEX          561          I
          -FCC0400
 LEX                                                                                       FCC0400       25     A     
 LEX      *         FLOATING CONVERSION BY FSCALE.                                         FCC0400       26     A     
 LEX      *         MODIFY DOUBLE WORD INTEGER INPUT FOR                                   FCC0400       27     A     
 LEX      *         FSCALE WHICH REQUIRES...                                               FCC0400       28     A     
 LEX      *         LOW ORDER INTEGER INTEGER PART, X1, BITS 54-00.                        FCC0400       29     A     
 LEX      *         HIGH ORDER INTEGER PART, X2, BITS 58-00.                               FCC0400       30     A     
 LEX                                                                                       FCC0400       31     A     
 LEX       DEC52    SB5    B5+B6                                                           FCC0400       32     A     
 LEX                NO                                                                     FCC0400       33     A     
 LEX                NZ     B5,DEC53    IF DOUBLE PRECISION OR ERROR FLAG SET               FCC0400       34     A     
 LEX                SB2    48                                                              FCC0400       35     A     
 LEX                NO                                                                     FCC0400       36     A     
 LEX                AX1    B2,X2                                                           FCC0400       37     A     
 LEX                ZR     X1,DEC53    IF NO SINGLE PRECISION OVERFLOW                     FCC0400       38     A     
 LEX                WARN   E.DC8                                                           FCC0400       39     A     
 LEX                                                                                       FCC0400       40     A     
 LEX       DEC53    MX5    1                                                               FCC0400       41     A     
 LEX                LX3    -1          POSITION HIGH PART                                  FCC0400       42     A     
 LEX                BX4    X5*X3       GET CARRY BIT                                       FCC0400       43     A     
 LEX                BX0    -X5*X3      SET HIGH PART FOR FSCALE                            FCC0400       44     A     
 LEX                LX4    -5          POSITION CARRY BIT                                  FCC0400       45     A     
 LEX                BX1    X4+X2       SET LOW PART FOR FSCALE                             FCC0400       46     A     
 LEX                SA0    B4                                                              FCC0400       47     A     
 LEX                SB4    B6                                                              FCC0400       48     A     
 LEX                SB6    B6+M.REAL   SET MODE                                            FCC0400       49     A     
 LEX       -        RJ     FSCALE                                                          FCC0400       50     A     
 LEX                BX6    X1                                                              FCC0400       51     A     
 LEX                BX7    X2                                                              FCC0400       52     A     
 LEX                SB2    B4                                                              FCC0400       53     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 950    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SB4    A0                                                              FCC0400       54     A     
 LEX                ZR     B2,DECX     IF CONVERSION SUCCESSFUL                            FCC0400       55     A     
 LEX                                                                                       FCC0400       56     A     
 LEX       DECEX1   SB2    E.DC        CONVERSION ERROR                                    FCC0400       57     A     
 LEX       DECEX    FATAL  B2                                                              FCC0400       58     A     
 LEX                EQ     =XPSN       EXIT TO NEXT STATEMENT                              FCC0400       59     A     
 LEX      *CALL FSCALE                                                                     FCC0400       60     A     
 LEX                SPACE  4,6                                                             FCC0400       61     A     
 LEX                                                                                       LEX          562          I
          -FCC1410
 LEX                TITLE                                                                  FCC1410        7     A     
 LEX       OCT      SPACE  4,12                                                            LEX          563     A     
 LEX      **        OCT -  CONVERT OCTAL CONSTANT TO BINARY.                               LEX          564     A     
 LEX      *                                                                                LEX          565     A     
 LEX      *         ENTRY  (A3+1) _ FWA SUSPECTED OCTAL CONSTANT.                          LEX          566     A     
 LEX      *                                                                                LEX          567     A     
 LEX      *         EXIT   (X6) = OCTAL CONVERSION OF CONSTANT (=0 IF ERROR)               LEX          568     A     
 LEX      *                (A3) _ NEXT CHARACTER PAST CONSTANT                             LEX          569     A     
 LEX      *                (B4) PRESERVED                                                  LEX          570     A     
 LEX      *                (B2) = ZERO IF *B* SUFFIX APPEARED                              LEX          571     A     
 LEX      *                                                                                LEX          572     A     
 LEX      *         USES   A3  X0,X1,X2,X6  B2,B7                                          LEX          573     A     
 LEX                                                                                       LEX          574     A     
 LEX                IFNE   TEST,,1                                                         LEX          575          I
          -FCC1046
 LEX                ENTRY  OCT                                                             LEX          576          I
          -FCC1046
 LEX                                                                                       LEX          577          I
          -FCC1046
 LEX       OCT90    AX3    8*CHAR                                                          LEX          578     A     
 LEX                SB2    X3-2RB +1R                                                      LEX          579     A     
 LEX                =A3    A3-1                                                            LEX          580     A     
 LEX                NZ     B2,OCTX     IF NOT TERMINATED BY A *B*                          LEX          581     A     
 LEX                                                                                       LEX          582     A     
 LEX                SB7    B7-20                                                           LEX          583          I
          -FCC0400
 LEX                =A3    A3+1                                                            LEX          584     A     
 LEX                LE     B7,OCT94    IF NOT MORE THAN 20 DIGITS                          LEX          585          I
          -FCC0400
 LEX                BX6    0                                                               LEX          586          I
          -FCC0400
 LEX                PL     B7,OCT94    IF NOT MORE THAN 20 DIGITS                          FCC0400       62     A     
 LEX                WARN   E.DC8       ** OCTAL CONSTANT MORE THAN 20 DIGITS **            LEX          587     A     
 LEX                                                                                       LEX          588     A     
 LEX       OCT94    PL     X2,OCT96    IF NO EIGHT/NINE                                    LEX          589     A     
 LEX                BX6    0                                                               LEX          590     A     
 LEX                WARN   E.DC9       ** NON-OCTAL DIGIT IN OCTAL CONSTANT **             LEX          591     A     
 LEX                                                                                       LEX          592     A     
 LEX       OCT96    BSS    0           EXIT..                                              LEX          593     A     
 LEX                                                                                       LEX          594     A     
 LEX       OCT      SUBR   0                                                               LEX          595     A     
 LEX                BX6    0                                                               LEX          596     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 951    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SX2    B0          INDICATE NO EIGHT/NINE                              LEX          597     A     
 LEX                SB7    B0          INITIALIZE DIGIT COUNT                              LEX          598          I
          -FCC0400
 LEX                SB7    20          INITIALIZE DIGIT COUNT                              FCC0400       63     A     
 LEX                MX0    -CHAR                                                           LEX          599     A     
 LEX                                                                                       LEX          600     A     
 LEX       OCT20    =A3    A3+1        FETCH NEXT WORD                                     LEX          601     A     
 LEX                =B2    X3-O.CONS                                                       LEX          602     A     
 LEX                NZ     B2,OCT90    IF NON-NUMERIC                                      LEX          603     A     
 LEX                                                                                       LEX          604     A     
 LEX       OCT40    LX3    CHAR                                                            LEX          605     A     
 LEX                BX1    -X0*X3                                                          LEX          606     A     
 LEX                SB2    X1-1R8                                                          LEX          607     A     
 LEX                ZR     X1,OCT20    IF WORD PROCESSED                                   LEX          608     A     
 LEX                SX1    X1-1R0                                                          LEX          609     A     
 LEX                PL     B2,OCT80    IF NON-OCTAL DIGIT                                  LEX          610     A     
 LEX                LX6    3                                                               LEX          611          I
          -FCC0400
 LEX                =B7    B7+1        COUNT DIGITS                                        LEX          612          I
          -FCC0400
 LEX                BX6    X1+X6                                                           LEX          613          I
          -FCC0400
 LEX                SB7    B7-B1                                                           FCC0400       64     A     
 LEX                MI     X1,OCT80    IF NOT DIGIT                                        FCC1046       10     A     
 LEX                MI     B7,OCT40    IF EXCESS DIGITS                                    FCC0400       65     A     
 LEX                LX6    3                                                               FCC0400       66     A     
 LEX                BX6    X1+X6       ADD DIGIT                                           FCC0400       67     A     
 LEX                EQ     OCT40       LOOP..                                              LEX          614     A     
 LEX                                                                                       LEX          615     A     
 LEX       OCT80    MX2    -1          REMEMBER NON-OCTAL DIGIT                            LEX          616     A     
 LEX                EQ     OCT40                                                           LEX          617     A     
 LEX       STY      SPACE  4,8                                                             LEX          618     A     
 LEX      **        STY  - SET NATURAL (IMPLICIT) TYPE                                     LEX          619     A     
 LEX      *         ENTRY- NAME IN X6 (LEFT JUST, ZERO FILL)                               LEX          620     A     
 LEX      *         EXIT   (X1) = MODE.                                                    LEX          621     A     
 LEX      *                (X2) = LOG (BASE 2) OF TYPE.                                    LEX          622     A     
 LEX      *                (X6) = PRESERVED.                                               LEX          623     A     
 LEX      *                (B7) = 1ST CHARACTER OF NAME.                                   LEX          624     A     
 LEX      *         DESTROYS  A1.                                                          LEX          625     A     
 LEX                                                                                       LEX          626     A     
 LEX                                                                                       LEX          627     A     
 LEX       STY1     AX1    X1,B7       RE-POSITION                                         LEX          628     A     
 LEX                SX2    X2+B1                                                           LEX          629     A     
 LEX                LX6    -6          RESTORE X6                                          LEX          630     A     
 LEX                SX1    X1          ISOLATE MODE                                        LEX          631     A     
 LEX                                                                                       LEX          632     A     
 LEX       STY      SUBR   0                                                               LEX          633     A     
 LEX                LX6    CHAR                                                            LEX          634     A     
 LEX                =X2    L.TYPE-1                                                        LEX          635     A     
 LEX                MX1    -CHAR                                                           LEX          636     A     
 LEX                BX1    -X1*X6      ISOLATE FIRST CHARACTER                             LEX          637     A     
 LEX                SB7    X1                                                              LEX          638     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 952    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX       STY2     SA1    X2+NAT.TYP                                                      LEX          639     A     
 LEX                SX2    X2-1                                                            LEX          640     A     
 LEX                LX1    X1,B7                                                           LEX          641     A     
 LEX                MI     X1,STY1     IF HIT                                              LEX          642     A     
 LEX                PL     X2,STY2     IF NO TABLE EXHAUSTION                              LEX          643     A     
 LEX                TRUBL  E.ZA                                                            LEX          644     A     
 LEX       NAT.TYPE SPACE  4,8                                                             LEX          645     A     
 LEX      **        NAT.TYPE - TABLE OF NATURAL (IMPLICIT) TYPES                           LEX          646     A     
 LEX                                                                                       LEX          647     A     
 LEX                                                                                       LEX          648     A     
 LEX       NAT.TYP  BSS    0                                                               LEX          649     A     
 LEX                                                                                       LEX          650     A     
 LEX       NAT.LOG  VFD    27/000000000B,15/0,18/M.LOG                                     LEX          651     A     
 LEX       NAT.INT  VFD    27/000770000B,15/0,18/M.INT                                     LEX          652     A     
 LEX       NAT.REAL VFD    27/377007777B,15/0,18/M.REAL                                    LEX          653     A     
 LEX       NAT.DBL  VFD    27/000000000B,15/0,18/M.DBL                                     LEX          654     A     
 LEX       NAT.CPLX VFD    27/000000000B,15/0,18/M.CPLX                                    LEX          655     A     
 LEX       TAB      EJECT  4,40                                                            LEX          656     A     
 LEX      **        TAB - NORMALIZE STATEMENT.                                             LEX          657     A     
 LEX      *                                                                                LEX          658     A     
 LEX      *         CONVERT *SB* INTO TABBED FORM.                                         LEX          659     A     
 LEX      *         TABBED FORM, SIMILAR TO OLD RUN 2.3, MEANING                           LEX          660     A     
 LEX      *                                                                                LEX          661     A     
 LEX      *         A. FOR A CHARACTER STRING STARTING WITH A DIGIT                        LEX          662     A     
 LEX      *                42/0LDIGITS,18/O.CONS                                           LEX          663     A     
 LEX      *                (LEADING ZEROS SUPPRESSED)                                      LEX          664     A     
 LEX      *                                                                                LEX          665     A     
 LEX      *         B. FOR A CHARACTER STRING STARTING WITH AN LETTER.                     LEX          666     A     
 LEX      *                42/0LALPHANUMERIC,18/O.VAR                                      LEX          667     A     
 LEX      *                                                                                LEX          668     A     
 LEX      *         C. FOR A CHARACTER STRING STARTING WITH A QUOTE MARK.                  LEX          669     A     
 LEX      *         18/CONSTANT TAG,18/CHAR LENGTH,6/WORD LENGTH,18/O.HOLL                 LEX          670     A     
 LEX      *                                                                                LEX          671     A     
 LEX      *         D. FOR A CHARACTER STRING STARTING WITH A DIGIT AND SUFFIX             LEX          672     A     
 LEX      *            BY EITHER --     H   L   OR   R.                                    LEX          673     A     
 LEX      *         18/CONSTANT TAG,18/0,6/WORD LENGTH,18/O.HOLL                           LEX          674     A     
 LEX      *                                                                                LEX          675     A     
 LEX      *         E. FOR A CHARACTER STRING DEFINED BY FORTRAN, TABBED FORM              LEX          676     A     
 LEX      *            IS THE STRING OR CHARACTER CONVERTED TO INTERNAL                    LEX          677     A     
 LEX      *            MAPPED FORM                                                         LEX          678     A     
 LEX      *                42/0,18/O.XX                                                    LEX          679     A     
 LEX      *            IE. *   =  42/0,18/O.STAR                                           LEX          680     A     
 LEX      *                .OR.=  42/0,18/O.OR                                             LEX          681     A     
 LEX      *                                                                                LEX          682     A     
 LEX      *         TAB IS CALLED FROM THE COMPILERS MASTER LOOP AFTER A CARD HAS          LEX          683     A     
 LEX      *         BEEN PROCESSED BY *AFS* OR *MULS* IS SET INDICATING A MULTIPLE         LEX          684     A     
 LEX      *         STATEMENT CARD.  THUS TAB WILL TRANSLATE KEYWORDS TO RUN               LEX          685     A     
 LEX      *         TABBED FORM.  THE EXCEPTION IS THE AMBIGUIOUS FORTRAN KEYWORD          LEX          686     A     
 LEX      *         ,AND TO RUN, A RESERVED SEQUENCE --                                    LEX          687     A     
 LEX      *                                                                                LEX          688     A     
 LEX      *         COLUMN =             1 1 1 1 1 1                                       LEX          689     A     
 LEX      *                    6   7 8 9 0 1 2 3 4 5                                       LEX          690     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 953    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *                        F O R M A T (                                           LEX          691     A     
 LEX      *         IF THIS SEQUENCE IS FOUND *TAB* EXITS TO THE   F O R M A T             LEX          692     A     
 LEX      *         PROCESSOR LEAVING THE *SB* UNTABBED.                                   LEX          693     A     
 LEX      *                                                                                LEX          694     A     
 LEX      *         TABS PROCESS LENDS ITSELF TO CONFUSION ONLY IN 2 ILL-DEFINED           LEX          695     A     
 LEX      *         STATEMENTS.  THE PROBLEM IS THAT *ANSI* UNLIKE THE REST OF THE         LEX          696     A     
 LEX      *         WORLD DIDNOT CONSIDER THE POOR SYNTAX FOR THE FOLLOWING                LEX          697     A     
 LEX      *         STATEMENTS                                                             LEX          698     A     
 LEX      *                                                                                LEX          699     A     
 LEX      *         IE.    DO SN VA=1,10     THE PROBLEM IS THAT BETWEEN THE               LEX          700     A     
 LEX      *                                  STATMENT NUMBER FIELD (SN) AND THE            LEX          701     A     
 LEX      *                                  VARIABLE FIELD (VA) THERE IS NO               LEX          702     A     
 LEX      *                                  DELIMITER. THIS NOT ONLY CAUSES               LEX          703     A     
 LEX      *                                  COMPILERS TO SPECIAL CASE *DO* SYNTAX         LEX          704     A     
 LEX      *                                  BUT HAS CAUSED MANY A PROGRAMMER TO           LEX          705     A     
 LEX      *                                  MIS-PLACE A VARIABLE THINGING IT IS A         LEX          706     A     
 LEX      *                                  *DO* DEFINITION STATEMENT.                    LEX          707     A     
 LEX      *         IE.   DO 1 I=1.0         IS A VARIABLE, NOT A *DO* DEFINITION.         LEX          708     A     
 LEX      *                                                                                LEX          709     A     
 LEX      *         (WHY DIDNT *ANSI* TAKE THE 3600 FORM OF *DO*.                          LEX          710     A     
 LEX      *                DO 1, I= 1,10  ELIMINATES THE PROBLEM.)                         LEX          711     A     
 LEX      *                                                                                LEX          712     A     
 LEX      *                ASSIGN SN TO VA   HOPEFULLY I DO NOT NEED TO EXPLAIN            LEX          713     A     
 LEX      *                                  THIS COMPLETELY DUMB STATEMENTS               LEX          714     A     
 LEX      *                                  POOR - POOR SYNTAX.                           LEX          715     A     
 LEX      *                                                                                LEX          716     A     
 LEX      *         TAB, DEFINED AS PART OF THE MASTER LOOP. ALSO SETS                     LEX          717     A     
 LEX      *         UP CELLS FOR CLASSIFYING A STATEMENT. TAB WILL SET                     LEX          718     A     
 LEX      *                                                                                LEX          719     A     
 LEX      *                FIRSTV      EQUAL TO THE 1ST VARIABLE FOUND.                    LEX          720     A     
 LEX      *                                                                                LEX          721     A     
 LEX      *                ZLEQUAL     ADDRESS OF THE 1ST ZERO LEVEL = SIGN FOUND          LEX          722          I
          -FEAT126C 
 LEX      *                ZLEQUAL     ADDRESS OF THE LAST ZERO LEVEL = FOUND              FEAT126C     133     A     
 LEX      *                                                                                LEX          723     A     
 LEX      *                ZLCOMMA     ADDRESS OF THE 1ST ZERO LEVEL , SIGN FOUND          LEX          724          I
          -FEAT126C 
 LEX      *                ZLCOMMA     ADDRESS OF THE LAST ZERO LEVEL , FOUND              FEAT126C     134     A     
 LEX      *                                                                                LEX          725     A     
 LEX      *                ZLPAREN     ADDRESS IN *SB* WHERE THE CLOSING *)* FOR           LEX          726     A     
 LEX      *                            ZERO LEVEL WAS FOUND.                               LEX          727     A     
 LEX      *                                                                                LEX          728     A     
 LEX      *                                                                                LEX          729     A     
 LEX      *         ENTRY  B3 _ FWA TO STORE NORMALIZED STATEMENT INTO.                    LEX          730     A     
 LEX      *                B4 _ FWA OF FIRST ELEMENT TO BE PROCESSED.                      LEX          731     A     
 LEX      *                                                                                LEX          732     A     
 LEX      *         EXIT   B3 _ END OF TABBED FILE.                                        LEX          733     A     
 LEX      *                B4 _ LAST ENTITY PROCESSED BY TAB.                              LEX          734     A     
 LEX      *                                                                                LEX          735     A     
 LEX      *                                                                                LEX          736     A     
 LEX      *         --------------- L O C K  -  R E G I S T E R S --------------           LEX          737     A     
 LEX      *         (B3) _ NEXT PLACE TO STORE.                                            LEX          738     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 954    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         (B4) _ NEXT ELEMENT TO BE PROCESSED.                                   LEX          739     A     
 LEX      *         (B6) = PARENTHESIS LEVEL.                                              LEX          740     A     
 LEX      *         NO ROUTINE CALLED BY *TAB* MAY DESTROY ANY OF THE ABOVE REGS.          LEX          741     A     
 LEX      *         ------------------------------------------------------------           LEX          742     A     
 LEX      *                                                                                LEX          743     A     
 LEX      *         USES   ALL REGISTERS.                                                  LEX          744     A     
 LEX      *                                                                                LEX          745     A     
 LEX      *         CALLS  ASN - TO TRANSLATE ANY NUMBER.                                  LEX          746     A     
 LEX      *                ASV - TRANSLATE VARIABLE.                                       LEX          747     A     
 LEX      *                MANAGE - ENTER HOLLERITH CONSTANT.                              LEX          748     A     
 LEX                                                                                       LEX          749     A     
 LEX                                                                                       LEX          750     A     
 LEX       TABE2    SB5    E.HC2       PREMATURE *EOS* IN TRANSLATING HOLL CON.            LEX          751     A     
 LEX       TABEX    WARN   B5          OUTPUT ERROR.                                       LEX          752     A     
 LEX                BX6    0                                                               LEX          753     A     
 LEX                SA6    B3          MAKE SURE STATEMENT IS TERMINATED.                  LEX          754     A     
 LEX                EQ     TABX        EXIT..                                              LEX          755     A     
 LEX                                                                                       LEX          756     A     
 LEX                                                                                       LEX          757     A     
 LEX       TAB      SUBR   0           ** ENTRY/EXIT **                                    LEX          758     A     
 LEX                BX6    0                                                               LEX          759     A     
 LEX                SA6    FIRSTV      CLEAR FIRST VARIABLE CELL.                          LEX          760     A     
 LEX                SA6    A6+B1         -   ZERO LEVEL *=* INDICATOR.                     LEX          761     A     
 LEX                SA6    A6+B1         -   ZERO LEVEL *,* INDICATOR.                     LEX          762     A     
 LEX                SA6    A6+B1         -   ZERO LEVEL *)* INDICATOR.                     LEX          763     A     
 LEX                SA6    MULS        CLEAR MULTIPLE STATEMENT INDICATOR.                 LEX          764     A     
 LEX                SA6    BLANK       INDICATE BLANK LINE (NO SYMBOLS ENCOUNTERED         LEX          765     A     
 LEX      *                                  SO FAR)                                       LEX          766     A     
 LEX                SA1    TS=CON                                                          LEX          767     A     
 LEX                BX6    X1                                                              LEX          768     A     
 LEX                SB6    B0            -   PARENTHESIS COUNT.                            LEX          769     A     
 LEX                SA6    ICONL       SET INITIAL *CONSTANT* TABLE LENGTH.                LEX          770     A     
 LEX                EQ     TAB1        START                                               LEX          771     A     
 LEX                                                                                       LEX          772     A     
 LEX      **        HERE IF CHARACTER IS *(*                                               LEX          773     A     
 LEX                                                                                       LEX          774     A     
 LEX       TAB.LP   SB6    B6+1                                                            LEX          775     A     
 LEX                                                                                       LEX          776     A     
 LEX      **        HERE TO STORE CHARACTER INTO *SB*                                      LEX          777     A     
 LEX                                                                                       LEX          778     A     
 LEX       TAB.NX   BX6    X1                                                              LEX          779     A     
 LEX                SB4    B4+B1                                                           LEX          780     A     
 LEX                SA6    B3          CHARACTER TO *SB*                                   LEX          781     A     
 LEX                SB3    B3+B1       UPDATE POINTER.                                     LEX          782     A     
 LEX                                                                                       LEX          783     A     
 LEX      **        *T A B*  -  M A S T E R   L O O P.                                     LEX          784     A     
 LEX                                                                                       LEX          785     A     
 LEX       TAB1     SA1    B4          LOAD NEXT ELEMENT.                                  LEX          786     A     
 LEX                MX0    -1R.                                                            LEX          787     A     
 LEX                MI     X1,TAB.EOS  IF *EOS*                                            LEX          788     A     
 LEX                SX7    X1-1R$                                                          LEX          789     A     
 LEX                ZR     X7,TAB.DOL  IF *$*                                              LEX          790     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 955    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SA7    BLANK       INDICATE NOT A BLANK CARD                           LEX          791     A     
 LEX                SX2    X1-1R+                                                          LEX          792     A     
 LEX                MI     X2,TAB.VA   IF NOT SEPARATOR (LETTER/NUMBER)                    LEX          793     A     
 LEX                SB2    X1+7777B                                                        LEX          794     A     
 LEX                SA3    X1+MAPCHAR-1R+                                                  LEX          795     A     
 LEX                AX4    B2,X0                                                           LEX          796     A     
 LEX                NO                                                                     LEX          797     A     
 LEX                NZ     X4,TAB5     IF CHARACTER OK.                                    LEX          798     A     
 LEX                SB2    X1-1R"                                                          LEX          799     A     
 LEX                ZR     B2,TAB.QT   IF *"*                                              LEX          800     A     
 LEX                SB2    X1-1R#                                                          LEX          801     A     
 LEX                ZR     B2,TAB.QT   IF *#*                                              LEX          802     A     
 LEX                LX1    9*CHAR                                                          LEX          803     A     
 LEX                BX6    X1                                                              LEX          804          I
          -FCC1096
 LEX                MX0    CHAR                                                            FCC1096        7     A     
 LEX                BX6    X1*X0                                                           FCC1096        8     A     
 LEX                SA6    FILL.                                                           LEX          805          I
          -FCC1476X 
 LEX       TAB4     SA6    FILL.                                                           FCC1476X       6     A     
 LEX                EQ     E.US1       ILLEGAL CHARACTER                                   LEX          806     A     
 LEX                                                                                       LEX          807     A     
 LEX      **        MAP SEPARATOR CHARACTER/ JUMP TO APPROPIATE PROCESSOR.                 LEX          808     A     
 LEX                                                                                       LEX          809     A     
 LEX       TAB5     SX1    X3          MAPPING FOR CHARACTER.                              LEX          810     A     
 LEX                AX3    18                                                              LEX          811     A     
 LEX                SB2    X3                                                              LEX          812     A     
 LEX                NO                                                                     LEX          813     A     
 LEX                JP     B2          JUMP TO PROCESS SEPARATOR.                          LEX          814     A     
 LEX                SPACE  4,8                                                             LEX          815     A     
 LEX                                                                                       LEX          816     A     
 LEX      **        HERE IF CHARACTER IS *.                                                LEX          817     A     
 LEX                                                                                       LEX          818     A     
 LEX       TAB.STR  SX2    X6-O.STAR                                                       LEX          819     A     
 LEX                NZ     X2,TAB.NX   IF NOT STAR                                         LEX          820     A     
 LEX                SX6    O.EXP                                                           LEX          821     A     
 LEX                SA6    B3-B1       INDICATE **                                         LEX          822     A     
 LEX                SB4    B4+B1                                                           LEX          823     A     
 LEX                EQ     TAB1        CONTINUE                                            LEX          824     A     
 LEX                                                                                       LEX          825     A     
 LEX      **        HERE IF CHARACTER IS *)*.                                              LEX          826     A     
 LEX                                                                                       LEX          827     A     
 LEX       TAB.RP   SB6    B6-B1                                                           LEX          828     A     
 LEX                NZ     B6,TAB.NX   IF NOT ZERO LEVEL.                                  LEX          829     A     
 LEX                SA3    ZLPAREN                                                         LEX          830     A     
 LEX                NZ     X3,TAB.NX   IF 1ST ZERO LEVEL FOUND.                            LEX          831     A     
 LEX                SX6    B3+B1                                                           LEX          832     A     
 LEX                SA6    A3          SET ADDRESS.                                        LEX          833     A     
 LEX                EQ     TAB.NX      CONTINUE.                                           LEX          834     A     
 LEX                                                                                       LEX          835     A     
 LEX      **        HERE IF CHARACTER IS *$*.                                              LEX          836     A     
 LEX                                                                                       LEX          837     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 956    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX       TAB.DOL  SX6    B4+B1                                                           LEX          838     A     
 LEX                NO                                                                     LEX          839     A     
 LEX                SA6    MULS        RESET MULTIPLY STATEMENT INDICATOR.                 LEX          840     A     
 LEX                EQ     TAB.EOS     EXIT..                                              LEX          841     A     
 LEX                                                                                       LEX          842     A     
 LEX                                                                                       LEX          843     A     
 LEX      **        HERE IF CHARACTER IS *=*.                                              LEX          844     A     
 LEX                                                                                       LEX          845     A     
 LEX       TAB.=    NZ     B6,TAB.NX   IF NOT IN ZERO LEVEL                                LEX          846     A     
 LEX                SA2    ZLEQUAL                                                         LEX          847     A     
 LEX                SX6    B3                                                              LEX          848     A     
 LEX                LX2    P.SYM                                                           LEX          849     A     
 LEX                SA6    A2          RESET *ZLEQUAL*                                     LEX          850     A     
 LEX                IX1    X2+X1       POINTER TO LAST *=* FOUND.                          LEX          851     A     
 LEX                EQ     TAB.NX      CONTINUE.                                           LEX          852     A     
 LEX                                                                                       LEX          853     A     
 LEX      **        HERE IF CHARACTER IS *,*.                                              LEX          854     A     
 LEX                                                                                       LEX          855     A     
 LEX       TAB.CO   NZ     B6,TAB.NX   IF NOT IN ZERO LEVEL                                LEX          856     A     
 LEX                SX6    B3                                                              LEX          857     A     
 LEX                SA6    ZLCOMMA     SET ZERO LEVEL *,*                                  LEX          858     A     
 LEX                EQ     TAB.NX      CONTINUE.                                           LEX          859     A     
 LEX                                                                                       LEX          860     A     
 LEX      **        HERE IF CHARACTER IS *"*.                                              LEX          861     A     
 LEX                                                                                       LEX          862     A     
 LEX       TAB.QT   MX0    -CHAR                                                           LEX          863     A     
 LEX                BX6    -X0*X1                                                          LEX          864     A     
 LEX                LX6    9*CHAR                                                          LEX          865     A     
 LEX                MX7    0                                                               LEX          866     A     
 LEX                SA6    FILL.       DELIMITER.                                          LEX          867     A     
 LEX                SA7    INR         INDICATE CHAR STRING                                LEX          868     A     
 LEX                ANSI   =XE.HC5                                                         FCC0498       14     A     
 LEX                SA6    HOLLSKL                                                         LEX          869     A     
 LEX                SB5    10                                                              LEX          870     A     
 LEX                BX6    0                                                               LEX          871     A     
 LEX                MX5    0           FLAG TO INDICATE CALLER NOT *FMT*                   LEX          872     A     
 LEX                RJ     TSC         TRANSLATE STRING DELIMITED CONSTANT.                LEX          873     A     
 LEX                ZR     X1,TAB.EOS  IF ERROR IN TRANSLATION.                            LEX          874     A     
 LEX                                                                                       LEX          875     A     
 LEX      **        NOTE - TSC RETURNS B7 WITH VALUE 6*(9-NO. OF CHARS IN WORD).           LEX          876     A     
 LEX      *                                                                                LEX          877     A     
 LEX                SX1    B7-54                                                           LEX          878     A     
 LEX                ZR     X1,TAB.QT5  IF COMPLETE WORD                                    LEX          879     A     
 LEX                SB7    B7-53                                                           LEX          880     A     
 LEX                MX1    1                                                               LEX          881     A     
 LEX                EQ     TAB82       IF PARTIAL WORD, BLANK PAD                          LEX          882     A     
 LEX                                                                                       LEX          883     A     
 LEX      **        NOTE - ALL HOLLERITH (STRING) CONSTANTS WITH PARTIALLY FILLED          LEX          884     A     
 LEX      *                BUILD WORDS REJOIN HERE.                                        LEX          885     A     
 LEX                                                                                       LEX          886     A     
 LEX       TAB.QT3  =A6    A6+1        STORE PARTIAL WORD                                  LEX          887     A     
 LEX                BX6    0                                                               LEX          888     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 957    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                                                                                       LEX          889     A     
 LEX      **        NOTE - ALL HOLLERITH (STRING) CONSTANTS ENDING WITH COMPLETE           LEX          890     A     
 LEX      *                BUILD WORDS REJOIN HERE.                                        LEX          891     A     
 LEX                                                                                       LEX          892     A     
 LEX       TAB.QT5  =B7    A6+1        LWA+1 OF CONSTANT                                   LEX          893     A     
 LEX                =A6    A6+1        STORE  ZERO WORD APPENDED                           LEX          894     A     
 LEX                SB5    99                                                              FCC0714        5     A     
 LEX                SX6    B5-B2       CHAR LENGTH OF STRING                               FCC0714        6     A     
 LEX                SB2    HOLLSKL+1   FWA                                                 LEX          895     A     
 LEX                SX5    B7-B2       WORD LENGTH                                         FCC0714        7     A     
 LEX                SA1    TS.CON                                                          LEX          896     A     
 LEX                SA2    INR                                                             LEX          897     A     
 LEX                SX5    B7-B2       WORD LENGTH                                         LEX          898          I
          -FCC0714
 LEX                BX6    X5                                                              LEX          899          I
          -FCC0714
 LEX                NZ     X2,TAB.QT6  IF NOT CHAR STRING                                  LEX          900     A     
 LEX                SB7    X6                                                              LEX          901          I
          -FCC0714
 LEX                =B5    B5+1                                                            LEX          902          I
          -FCC0714
 LEX                LX6    3           8*                                                  LEX          903          I
          -FCC0714
 LEX                SB7    B7+B7       2*                                                  LEX          904          I
          -FCC0714
 LEX                SB7    X6+B7       10*                                                 LEX          905          I
          -FCC0714
 LEX                SX6    B7-B5       CHAR LENGTH                                         LEX          906          I
          -FCC0714
 LEX                LX6    P.CLCON-P.LCON                                                  LEX          907     A     
 LEX                BX5    X6+X5                                                           LEX          908     A     
 LEX       TAB.QT6  SB5    B3          SAVE *B3*                                           LEX          909     A     
 LEX                SB3    A6+1        LWA+1  (ACTUAL LENGTH)                              LEX          910          I
          -FCC0714
 LEX                =B3    A6+1        LWA+1 (ACTUAL LENGTH)                               FCC0714        8     A     
 LEX                RJ     NCM         SCAN/ENTRY INTO TS.CON TABLE.                       LEX          911     A     
 LEX                SB3    B5          RESET *B3*                                          LEX          912     A     
 LEX                SX0    B7+C.CON                                                        LEX          913     A     
 LEX                =X1    O.HOLL                                                          LEX          914     A     
 LEX                LX0    P.TAG                                                           LEX          915     A     
 LEX                IX6    X0+X1       TAG + O.HOLL                                        LEX          916     A     
 LEX                LX5    P.LCON                                                          LEX          917     A     
 LEX                BX1    X6+X5       TAG + LENGTH + O.HOLL                               LEX          918     A     
 LEX                EQ     TAB.NX      CONTINUE.                                           LEX          919     A     
 LEX                                                                                       LEX          920     A     
 LEX      **        HERE IF *EOS*                                                          LEX          921     A     
 LEX                                                                                       LEX          922     A     
 LEX       TAB.EOS  BX6    0                                                               LEX          923     A     
 LEX                SA6    B3          MARK *EOS*                                          LEX          924     A     
 LEX                ZR     B6,TABX     IF PROPER PARENTHESIS COUNT.                        LEX          925     A     
 LEX                SB5    E.LP1       ERROR = TOO FEW *(*                                 LEX          926          I
          -FCC0683
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 958    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                PL     B6,TABEX    IF TOO FEW *(*                                      LEX          927          I
          -FCC0683
 LEX                SB5    E.LP2       ERROR = TOO FEW *)*                                 LEX          928          I
          -FCC0683
 LEX                SB5    E.LP1       ERROR = TOO FEW *)*                                 FCC0683        7     A     
 LEX                PL     B6,TABEX    IF TOO FEW *)*                                      FCC0683        8     A     
 LEX                SB5    E.LP2       ERROR = TOO FEW *(*                                 FCC0683        9     A     
 LEX                EQ     TABEX       ERR EXIT..                                          LEX          929     A     
 LEX                                                                                       LEX          930     A     
 LEX                                                                                       LEX          931     A     
 LEX      **        HERE IF CHARACTER IS *ALPHANUMERIC*                                    LEX          932     A     
 LEX                                                                                       LEX          933     A     
 LEX       TAB.VA   SX2    X2+1R+-1R0                                                      LEX          934     A     
 LEX                PL     X2,TAB.NU   IF NO LETTERS                                       LEX          935     A     
 LEX                SB2    X1                                                              FCC1476X       7     A     
 LEX                NZ     B2,TAB.VA1  IF CHARACTER *A-Z*                                  FCC1476X       8     A     
 LEX                SX6    2R:         COLON IS ILLEGAL                                    FCC1476X       9     A     
 LEX                LX6    8*CHAR                                                          FCC1476X      10     A     
 LEX                EQ     TAB4        REPORT ERROR                                        FCC1476X      11     A     
 LEX                                                                                       FCC1476X      12     A     
 LEX                                                                                       LEX          936     A     
 LEX      **        HERE IF CHARACTER IS *A-Z*.                                            LEX          937     A     
 LEX                                                                                       LEX          938     A     
 LEX       TAB.VA1  SA5    FIRSTV                                                          LEX          939     A     
 LEX                RJ     ASV         ASSEMBLE NEXT *7* ALPHANUMERIC CHARACTERS.          LEX          940     A     
 LEX                =X3    O.VAR                                                           LEX          941     A     
 LEX                NZ     X5,TAB.VA20 IF NOT FIRST VARIABLE                               LEX          942     A     
 LEX                SA2    =0LFORMAT                                                       LEX          943     A     
 LEX                IX0    X2-X6                                                           LEX          944     A     
 LEX                SA6    A5          SAVE FIRST VARIABLE.                                LEX          945     A     
 LEX                NZ     X0,TAB.VA20 IF NOT *FORMAT*                                     LEX          946     A     
 LEX                SX2    X1-1R(                                                          LEX          947     A     
 LEX                NZ     X2,TAB.VA20 IF NOT *FORMAT(*                                    LEX          948     A     
 LEX                SA4    =XSB.STNR                                                       LEX          949     A     
 LEX                ZR     X4,TAB.VA20 IF NO ASSOCIATED STMT NUMBER                        LEX          950     A     
 LEX                SB5    FORMAT                                                          LEX          951     A     
 LEX                SA5    B5+LGR                                                          LEX          952     A     
 LEX                EQ     TABX.F      EXIT.. *FORMAT(*                                    LEX          953     A     
 LEX                                                                                       LEX          954     A     
 LEX                                                                                       LEX          955     A     
 LEX       TAB.VA20 IX6    X6+X3                                                           LEX          956     A     
 LEX                SA6    B3                                                              LEX          957     A     
 LEX                SB3    B3+B1                                                           LEX          958     A     
 LEX                SX2    X1-1R+                                                          LEX          959     A     
 LEX                PL     X2,TAB1     CONTINUE IF NEXT NOT *A - 9*.                       LEX          960     A     
 LEX                PL     X1,TAB.VA1  IF NOT *EOS*                                        LEX          961     A     
 LEX                EQ     TAB.EOS                                                         LEX          962     A     
 LEX                                                                                       LEX          963     A     
 LEX      **        HERE IF CHARACTER IS *.*.                                              LEX          964     A     
 LEX                                                                                       LEX          965     A     
 LEX       TAB.PD   SA2    B4+B1                                                           LEX          966     A     
 LEX                MI     X2,TAB.NX   IF *EOS*                                            LEX          967     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 959    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SB2    X2-1R+                                                          LEX          968     A     
 LEX                PL     B2,TAB.NX   IF SEPARATOR.                                       LEX          969     A     
 LEX                BX6    X1                                                              LEX          970     A     
 LEX                SB4    B4+B1                                                           LEX          971     A     
 LEX                SA6    B3          TO *SB*                                             LEX          972     A     
 LEX                SB2    X2-1R0                                                          LEX          973     A     
 LEX                SA1    B4          NEXT                                                LEX          974     A     
 LEX                SB3    B3+B1                                                           LEX          975     A     
 LEX                UX1    X1                                                              LEX          976     A     
 LEX                PL     B2,TAB.NU5  IF DIGIT, ASSEMBLE NUMBER.                          LEX          977     A     
 LEX                                                                                       LEX          978     A     
 LEX      **        CHECK IF PROCESSING PERIOD DELIMITED OPERATOR.                         LEX          979     A     
 LEX                                                                                       LEX          980     A     
 LEX       TAB.LG   RJ     ASV         ASSEMBLE VARIABLE                                   LEX          981     A     
 LEX                SX2    X1-1R.                                                          LEX          982     A     
 LEX                =X3    O.VAR                                                           LEX          983     A     
 LEX                NZ     X2,TAB.VA20 IF NOT *.*                                          LEX          984     A     
 LEX                                                                                       LEX          985     A     
 LEX      **        CHECK IF OPERATOR IS DEFINED BY FORTRAN.                               LEX          986     A     
 LEX                                                                                       LEX          987     A     
 LEX                SB7    LG.LOG                                                          LEX          988     A     
 LEX                SB4    B4+1                                                            LEX          989     A     
 LEX       TAB.LG5  SA1    B7+LOGT                                                         LEX          990     A     
 LEX                BX2    X6-X1                                                           LEX          991     A     
 LEX                AX2    18                                                              LEX          992     A     
 LEX                ZR     X2,TAB.LG10 IF HIT                                              LEX          993     A     
 LEX                SB7    B7-1                                                            LEX          994     A     
 LEX                PL     B7,TAB.LG5  LOOP THRU TABLE                                     LEX          995     A     
 LEX                SB4    B4-1                                                            LEX          996          I
          -FCC0637
 LEX                =B4    B4-2                                                            FCC0637        4     A     
 LEX                IX1    X6+X3       BUILD CONSTANT TOKEN                                LEX          997          I
          -FCC0498
 LEX                IX1    X6+X3       BUILD VARIABLE TOKEN                                FCC0498       15     A     
 LEX                EQ     TAB.NX                                                          LEX          998     A     
 LEX                                                                                       LEX          999     A     
 LEX      **        HERE IF IN TABLE.                                                      LEX         1000     A     
 LEX                                                                                       LEX         1001     A     
 LEX       TAB.LG10 SX6    X1                                                              LEX         1002     A     
 LEX                SB2    B2-CHAR                                                         LEX         1003          I
          -FCC0498
 LEX                MX0    CHAR+L.SBPR                                                     FCC0498       16     A     
 LEX                LX0    L.SBPR                                                          FCC0498       17     A     
 LEX                BX1    -X0*X1                                                          FCC0498       18     A     
 LEX                SA6    B3-B1       SET TO APPROPIATE INDICATOR                         LEX         1004     A     
 LEX                NZ     B2,TAB1     IF NOT ONE CHAR. FORM                               LEX         1005          I
          -FCC0498
 LEX                NZ     X1,TAB1     IF NOT ONE CHARACTER FORM                           FCC0498       19     A     
 LEX                                                                                       FCC0498       20     A     
 LEX                ANSI   E.VA2       SPECIAL LOGICAL OPERATOR NON ANSI.                  LEX         1006     A     
 LEX                EQ     TAB1        CONTINUE.                                           LEX         1007     A     
 LEX                                                                                       LEX         1008     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 960    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      **        HERE IF CHARACTER IS *0-9*.                                            LEX         1009     A     
 LEX      *         CHECK FOR POSSIBLE *HOLLERITH* CONSTANT FORM.                          LEX         1010     A     
 LEX                                                                                       LEX         1011     A     
 LEX       TAB.NU   SB2    X1-1R0                                                          LEX         1012     A     
 LEX                NZ     B2,TAB.NU5  IF NO LEADING *0*.                                  LEX         1013     A     
 LEX                SA1    B4+B1                                                           LEX         1014     A     
 LEX                SA5    ="NUM09"                                                        LEX         1015     A     
 LEX                SB4    B4+B1                                                           LEX         1016     A     
 LEX       TAB.NU1  SB2    X1-1R0                                                          LEX         1017     A     
 LEX                NZ     B2,TAB.NU2  IF NOT *0*.                                         LEX         1018     A     
 LEX                SA1    A1+B1       NEXT                                                LEX         1019     A     
 LEX                SB4    B4+B1       B4=A1                                               LEX         1020     A     
 LEX                EQ     TAB.NU1     CONTINUE DELETING *0*S.                             LEX         1021     A     
 LEX                                                                                       LEX         1022     A     
 LEX       TAB.NU2  SB2    X1                                                              LEX         1023     A     
 LEX                LX0    B2,X5                                                           LEX         1024     A     
 LEX                MI     X0,TAB.NU5  IF NUMBER                                           LEX         1025     A     
 LEX                SB4    B4-B1       RESET TO LAST *0*.                                  LEX         1026     A     
 LEX       TAB.NU5  SA5    ="LETHLR"                                                       LEX         1027     A     
 LEX                RJ     ASN         ASSEMBLE NUMBER.                                    LEX         1028     A     
 LEX                SX4    O.CONS                                                          LEX         1029     A     
 LEX                SB2    X1                                                              LEX         1030     A     
 LEX                BX6    X4+X6                                                           LEX         1031     A     
 LEX                LX3    B2,X5                                                           LEX         1032     A     
 LEX                SA6    B3          NUMBER TO *SB*                                      LEX         1033     A     
 LEX                SB3    B3+B1                                                           LEX         1034     A     
 LEX                MI     X3,TAB.NU7  IF *H* *L* OR *R*                                   LEX         1035     A     
 LEX                SA5    ="NUM09"                                                        LEX         1036     A     
 LEX                LX3    B2,X5                                                           LEX         1037     A     
 LEX                PL     X3,TAB1     IF NEXT NOT NUMBER.                                 LEX         1038     A     
 LEX                EQ     TAB.NU5     CONTINUE ASSEMBLYING NUMBER.                        LEX         1039     A     
 LEX                                                                                       LEX         1040     A     
 LEX      **        PROCESS *HOLLERITH* CONSTANT INTO TS.CON TABLE.                        LEX         1041     A     
 LEX      *         PROCESS *H*, *L*, OR *R*  DATA                                         LEX         1042     A     
 LEX                                                                                       LEX         1043     A     
 LEX       TAB.NU7  UX6,B7 X1                                                              LEX         1044     A     
 LEX                SA6    INR         STORE *H*,*L* OR *R* INDICATOR.                     LEX         1045     A     
 LEX                MX0    -CHAR                                                           LEX         1046          I
          -FCC0498
 LEX                SX6    X6-1RH                                                          FCC0498       21     A     
 LEX                ZR     X6,TAB.NU8  IF *H*                                              FCC0498       22     A     
 LEX                ANSI   =XE.HC5                                                         FCC0498       23     A     
 LEX       TAB.NU8  MX0    -CHAR                                                           FCC0498       24     A     
 LEX                SX2    B0                                                              LEX         1047     A     
 LEX                SA4    B3-B1       NUMBER IN *DPC*                                     LEX         1048     A     
 LEX                BX5    0                                                               LEX         1049     A     
 LEX                =B4    B4+1        1ST CHARACTER.                                      LEX         1050     A     
 LEX                                                                                       LEX         1051     A     
 LEX      **        CONVERT CHARACTER COUNT TO *INTERNAL BINARY*                           LEX         1052     A     
 LEX                                                                                       LEX         1053     A     
 LEX       TAB76    LX4    CHAR                                                            LEX         1054     A     
 LEX                BX3    -X0*X4      NEXT DIGIT                                          LEX         1055     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 961    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SX6    X3-1R0                                                          LEX         1056     A     
 LEX                LX5    B1,X2       LAST *2                                             LEX         1057     A     
 LEX                ZR     X3,TAB77    IF END OF CONSTANT.                                 LEX         1058     A     
 LEX                IX6    X5+X6                                                           LEX         1059     A     
 LEX                LX2    3           LAST *8                                             LEX         1060     A     
 LEX                IX2    X6+X2                                                           LEX         1061     A     
 LEX                EQ     TAB76       LOOP                                                LEX         1062     A     
 LEX                                                                                       LEX         1063     A     
 LEX       TAB77    BX6    0                                                               LEX         1064     A     
 LEX                SX0    X2          CHARACTER COUNT.                                    LEX         1065     A     
 LEX                SB5    10                                                              LEX         1066     A     
 LEX                SA6    HOLLSKL     DUMMY STORE FOR *THC*                               LEX         1067     A     
 LEX                RJ     THC         TRANSLATE HOLLERITH CONSTANT.                       LEX         1068     A     
 LEX                ZR     X1,TAB.EOS  IF ERROR IN TRANSLATION.                            LEX         1069     A     
 LEX                SA3    INR         *H* *L* OR *R*                                      LEX         1070     A     
 LEX                =B3    B3-1                                                            LEX         1071     A     
 LEX                SB2    X3-1RL                                                          LEX         1072     A     
 LEX                ZR     B2,TAB101   IF *L*                                              LEX         1073     A     
 LEX                SB2    X3-1RH                                                          LEX         1074     A     
 LEX                NZ     B2,TAB100   IF NOT *H*                                          LEX         1075     A     
 LEX                MI     B7,TAB82    IF PARTIAL WORD.                                    LEX         1076     A     
 LEX                EQ     TAB.QT5     CONTINUE                                            LEX         1077     A     
 LEX                                                                                       LEX         1078     A     
 LEX      **        BLANK PAD INCOMPLETE *H* OR *" "* WORD.                                LEX         1079     A     
 LEX                                                                                       LEX         1080     A     
 LEX       TAB82    SA3    =1H                                                             LEX         1081     A     
 LEX                LX0    B7,X1                                                           LEX         1082     A     
 LEX                BX2    -X0*X3                                                          LEX         1083     A     
 LEX                BX6    X2+X6                                                           LEX         1084     A     
 LEX                EQ     TAB.QT3     CONTINUE                                            LEX         1085     A     
 LEX                                                                                       LEX         1086     A     
 LEX       TAB100   BX6    X2          *R*                                                 LEX         1087     A     
 LEX       TAB101   ZR     X6,TAB.QT5  IF COMPLETE WORD                                    LEX         1088          I
          -FCC0635
 LEX                EQ     TAB.QT3     ENTER CONSTANT.                                     LEX         1089          I
          -FCC0635
 LEX       TAB101   NZ     X6,TAB.QT3  ENTER PARTIAL WORD                                  FCC0635        6     A     
 LEX                SB7    HOLLSKL                                                         FCC0635        7     A     
 LEX                SB7    A6-B7                                                           FCC0635        8     A     
 LEX                ZR     B7,TAB.QT3  IF SPECIAL FORM (NL: OR NR:)                        FCC0635        9     A     
 LEX                EQ     TAB.QT5                                                         FCC0635       10     A     
 LEX                                                                                       LEX         1090     A     
 LEX       INR      DATA   0                                                               LEX         1091     A     
 LEX       THC      SPACE  4,12                                                            LEX         1092     A     
 LEX      **        THC -  TRANSLATE HOLLERITH CONSTANT.                                   LEX         1093     A     
 LEX      *                                                                                LEX         1094     A     
 LEX      *                ROUTINE USED BY                                                 LEX         1095     A     
 LEX      *                            A. TAB - NORMALIZE STATEMENT.                       LEX         1096     A     
 LEX      *                                     FOR PROCESSING EITHER -- H, L OR R         LEX         1097     A     
 LEX      *                            B. FMT - FORMAT TRANSLATION.                        LEX         1098     A     
 LEX      *                                     FOR PROCESSING -- H ONLY.                  LEX         1099     A     
 LEX      *                                                                                LEX         1100     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 962    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX       BLANK    DATA   0           SET TO ZERO IF A BLANK CARD IS ENCOUNTERED          LEX         1101     A     
 LEX      *         ENTRY  (B4) _ 1ST CHARACTER.                                           LEX         1102     A     
 LEX      *                (B5) = 10-(NUMBER OF CHARACTERS IN CURRENT WORD)                LEX         1103     A     
 LEX      *                (X0) = CHARACTER COUNT.                                         LEX         1104     A     
 LEX      *                 A6 _ FWA -1 OF WHERE TO STORE DATA.                            LEX         1105     A     
 LEX      *                (X6) = BUILDING WORD.                                           LEX         1106     A     
 LEX      *                (FILL.) = HOLLERITH CHARACTER CODE CURRENTLY PROCESSING         LEX         1107     A     
 LEX      *                                                                                LEX         1108     A     
 LEX      *         EXIT   (X1)  0 IF ERROR ENCOUNTERED IN TRANSLATION.                    LEX         1109     A     
 LEX      *                (X2) = LAST ENTRY IN 0R FORMAT.                                 LEX         1110     A     
 LEX      *                (X6) = LAST ENTRY IN 0L FORMAT.                                 LEX         1111     A     
 LEX      *                (B4) _ LAST WORD IN HOLL CONSTANT                               LEX         1112     A     
 LEX      *                (B5) = 10 - NUMBER OF CHARS IN (X2)                             LEX         1113     A     
 LEX      *                (B7) = B5*CHAR-59                                               LEX         1114     A     
 LEX      *                                                                                LEX         1115     A     
 LEX      *         USES   A1,A6  X0,X1,X2,X3,X7  B2,B4,B5,B7                              LEX         1116     A     
 LEX                                                                                       LEX         1117     A     
 LEX                                                                                       LEX         1118     A     
 LEX       THCZEX   SA3    A6                                                              LEX         1119     A     
 LEX                LX2    X6                                                              LEX         1120     A     
 LEX                FATAL  E.HC1       IF ZERO CHAR COUNT                                  LEX         1121     A     
 LEX                EQ     THCE                                                            LEX         1122     A     
 LEX                                                                                       LEX         1123     A     
 LEX       THCEX    =B4    A1-1                                                            LEX         1124     A     
 LEX                SA3    A6                                                              LEX         1125     A     
 LEX                LX2    X6                                                              LEX         1126     A     
 LEX                FATAL  E.HC2       PREMATURE *EOS*                                     LEX         1127     A     
 LEX                                                                                       LEX         1128     A     
 LEX       THCE     BX6    X3                                                              LEX         1129     A     
 LEX                MX1    0                                                               LEX         1130     A     
 LEX                SA6    A3                                                              LEX         1131     A     
 LEX                                                                                       LEX         1132     A     
 LEX       THC      SUBR   0                                                               LEX         1133     A     
 LEX                ZR     X0,THCZEX   IF COUNT IS ZERO.                                   LEX         1134     A     
 LEX                SA1    B4                                                              LEX         1135     A     
 LEX                UX3    B7,X1       FIRST CHARACTER.                                    LEX         1136     A     
 LEX                SB4    -1777B                                                          FCC0844       15     A     
 LEX                SX2    1R          FOR BLANK PADDING.                                  LEX         1137     A     
 LEX                                                                                       LEX         1138     A     
 LEX       THC5     ZR     X0,THC25    IF COUNT EXHAUSTED.                                 LEX         1139     A     
 LEX                =B7    B7-1        BLANK COUNT-1                                       LEX         1140     A     
 LEX                =B5    B5-1                                                            LEX         1141     A     
 LEX                LX6    CHAR                                                            LEX         1142     A     
 LEX                SX0    X0-1                                                            LEX         1143     A     
 LEX                ZR     B7,THC10    IF NO IMBEDDED BLANKS.                              LEX         1144          I
          -FCC0844
 LEX                EQ     B7,B4,THC10 IF NO IMBEDDED BLANKS                               FCC0844       16     A     
 LEX                BX6    X6+X2       ADD IN BLANK                                        LEX         1145     A     
 LEX                NZ     B5,THC5     IF NO END OF WORK                                   LEX         1146     A     
 LEX                =A6    A6+1                                                            LEX         1147     A     
 LEX                BX6    0                                                               LEX         1148     A     
 LEX                SB5    10                                                              LEX         1149     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 963    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                EQ     THC5        CONTINUE.                                           LEX         1150     A     
 LEX                                                                                       LEX         1151     A     
 LEX       THC10    MI     X1,THCEX    IF PREMATURE *EOS*                                  LEX         1152     A     
 LEX                =A1    A1+1                                                            LEX         1153     A     
 LEX                BX6    X6+X3       HERE IF NO IMBEDDED BLANKS.                         LEX         1154     A     
 LEX                UX3    B7,X1                                                           LEX         1155     A     
 LEX                NZ     B5,THC5     IF NO END OF WORK                                   LEX         1156     A     
 LEX                =A6    A6+1        ADD WORD TO TABLE.                                  LEX         1157     A     
 LEX                BX6    0           CLEAR ASSEMBLY REGISTER                             LEX         1158     A     
 LEX                SB5    10                                                              LEX         1159     A     
 LEX                EQ     THC5                                                            LEX         1160     A     
 LEX                                                                                       LEX         1161     A     
 LEX      **        HERE IF COUNT EXHAUSTED                                                LEX         1162     A     
 LEX                                                                                       LEX         1163     A     
 LEX       THC25    SX1    B5+B5       *2                                                  LEX         1164     A     
 LEX                LX2    X6                                                              LEX         1165     A     
 LEX                IX0    X1+X1       *4                                                  LEX         1166     A     
 LEX                =B4    A1-1        LAST WORD IN CONSTANT                               LEX         1167     A     
 LEX                IX0    X1+X0       *6                                                  LEX         1168     A     
 LEX                SB7    X0                                                              LEX         1169     A     
 LEX                MX1    1                                                               LEX         1170     A     
 LEX                LX6    B7,X2       0L FORMAT.                                          LEX         1171     A     
 LEX                SB7    B7-59                                                           LEX         1172     A     
 LEX                EQ     THCX        EXIT..                                              LEX         1173     A     
 LEX                                                                                       LEX         1174     A     
 LEX                                                                                       LEX         1175     A     
 LEX                                                                                       LEX         1176     A     
 LEX                                                                                       LEX         1177     A     
 LEX      **        TLV - TRUNCATE LONG VARIABLE                                           LEX         1178     A     
 LEX      *         WHEN A VARIABLE NAME (TYPE O.VAR) OCCUPIES MORE THAN ONE               LEX         1179     A     
 LEX      *         TOKEN, B4 IS RESET TO POINT TO THE LAST TOKEN IN THE                   LEX         1180     A     
 LEX      *         STRING AND THE VALUE OF THIS TOKEN IS CHANGED TO THE SAME              LEX         1181     A     
 LEX      *         AS THE FIRST TOKEN. THIS EVIDENTLY FOOLS PAR INTO THINKING             LEX         1182     A     
 LEX      *         THE NAME DOES NOT EXCEED 7 CHARACTERS.                                 LEX         1183     A     
 LEX      *                                                                                LEX         1184     A     
 LEX      *         CALLED BY - PAR,CST,TRV,ETC,ETC                                        LEX         1185     A     
 LEX      *                                                                                LEX         1186     A     
 LEX      *         ENTRY  (B4)_FIRST TOKEN IN VARIABLE -                                  LEX         1187     A     
 LEX      *         IT IS KNOWN THAT THE NEXT TOKEN IS OF TYPE O.VAR                       LEX         1188     A     
 LEX      *                                                                                LEX         1189     A     
 LEX      *         EXIT   (B4)_LAST TOKEN IN VARIABLE                                     LEX         1190     A     
 LEX      *                CONTENTS OF LAST TOKEN = CONTENTS OF FIRST TOKEN                LEX         1191     A     
 LEX      *                                                                                LEX         1192     A     
 LEX      *         USES   A2,A7   X0,X2,X7   B4,B7                                        LEX         1193     A     
 LEX      *                                                                                LEX         1194     A     
 LEX      *         CALLS  NONE                                                            LEX         1195     A     
 LEX      *                                                                                LEX         1196     A     
 LEX                                                                                       LEX         1197     A     
 LEX       TLV      SUBR 0                                                                 LEX         1198     A     
 LEX                SA2    B4                                                              LEX         1199     A     
 LEX                BX7    X2          SAVE FIRST TOKEN OF NAME                            LEX         1200     A     
 LEX                MX0    L.SYM                                                           LEX         1201     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 964    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX       TLV5     =B4    B4+1                                                            LEX         1202     A     
 LEX                =A2    B4+1                                                            LEX         1203     A     
 LEX                SB7    X2-O.VAR                                                        LEX         1204     A     
 LEX                ZR     B7,TLV5           IF MORE CHARACTERS IN NAME                    LEX         1205     A     
 LEX                SA7    B4          SET LAST TOKEN=FIRST TOKEN                          LEX         1206     A     
 LEX                BX7    X0*X7                                                           LEX         1207     A     
 LEX                SA7    FILL.                                                           LEX         1208     A     
 LEX                WARN   =XE.TE7     NAME TRUNCATED TO FIRST 7                           LEX         1209     A     
 LEX                EQ     TLV                                                             LEX         1210     A     
 LEX       TSC      SPACE  4,12                                                            LEX         1211     A     
 LEX      **        TSC -  TRANSLATE STRING DELIMITED CONSTANT OF THE FORM --              LEX         1212     A     
 LEX      *                * --- * , " ---" OR # --- # TO INTERNAL PACKED FORM.            LEX         1213     A     
 LEX      *                                                                                LEX         1214     A     
 LEX      *                ROUTINE USED BY                                                 LEX         1215     A     
 LEX      *                            A. TAB - NORMALIZE STATEMENT. (ALL FORMS)           LEX         1216     A     
 LEX      *                            B. FMT - FORMAT TRANSLATION. (ALL FORMS)            LEX         1217     A     
 LEX      *                                                                                LEX         1218     A     
 LEX      *         ENTRY  (B4) _ FIRST DELIMITER                                          LEX         1219     A     
 LEX      *                (B5) = 10-(NUMBER OF CHARACTERS IN CURRENT WORD)                LEX         1220     A     
 LEX      *                (X5) = 0 IF NOT CALLED BY *FMT*                                 LEX         1221     A     
 LEX      *                 A6 _ FWA -1 OF WHERE TO STORE DATA.                            LEX         1222     A     
 LEX      *                (X6) = BUILDING WORD.                                           LEX         1223     A     
 LEX      *                (FILL.) = DELIMITER CHARACTER.                                  LEX         1224     A     
 LEX      *                                                                                LEX         1225     A     
 LEX      *         EXIT   (X1)  0 IF ERROR ENCOUNTERED IN TRANSLATION.                    LEX         1226     A     
 LEX      *                (X2) = LAST ENTRY IN 0R FORMAT.                                 LEX         1227     A     
 LEX      *                (X6) = LAST ENTRY IN 0L FORMAT.                                 LEX         1228     A     
 LEX      *                (B2) = 99 - LENGTH OF STRING                                    LEX         1229     A     
 LEX      *                (B4) _ ENDING *DELIMITER* OR 99TH CHAR (FOR *FMT*)              LEX         1230     A     
 LEX      *                (B5) = 9-NUMBER OF CHARS IN (X6)                                LEX         1231     A     
 LEX      *                (B7) = B5*CHAR                                                  LEX         1232     A     
 LEX      *         USES   A1,A3,A7  X0-X3,X5,X7  B2,B4,B5,B7                              LEX         1233     A     
 LEX                                                                                       LEX         1234     A     
 LEX                                                                                       LEX         1235     A     
 LEX       TSCZEX   SA3    A6                                                              LEX         1236     A     
 LEX                LX2    X6                                                              LEX         1237     A     
 LEX                FATAL  E.HC4       ZERO LENGTH HOLL STRING                             LEX         1238     A     
 LEX                EQ     TSCE                                                            LEX         1239     A     
 LEX                                                                                       LEX         1240     A     
 LEX       TSCEX    =B4    A1-1                                                            LEX         1241     A     
 LEX                LX2    X6                                                              LEX         1242     A     
 LEX                SA3    A6                                                              LEX         1243     A     
 LEX                FATAL  E.HC3       PREMATURE *EOS*                                     LEX         1244     A     
 LEX                                                                                       LEX         1245     A     
 LEX       TSCE     BX6    X3                                                              LEX         1246     A     
 LEX                SA6    A3                                                              LEX         1247     A     
 LEX                MX1    0           INDICATE ERROR                                      LEX         1248     A     
 LEX                                                                                       LEX         1249     A     
 LEX       TSC      SUBR   0                                                               LEX         1250     A     
 LEX                SA1    B4                                                              LEX         1251     A     
 LEX                UX7    B0,X1       DELIMITER.                                          LEX         1252     A     
 LEX                =A1    A1+1                                                            LEX         1253     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 965    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                UX3    B7,X1       FIRST CHARACTER.                                    LEX         1254     A     
 LEX                SX2    1R          FOR BLANK PADDING.                                  LEX         1255     A     
 LEX                SB2    99          MAX CHAR COUNT (FOR *FMT*)                          LEX         1256     A     
 LEX                SB4    -1777B                                                          FCC0844       17     A     
 LEX                                                                                       LEX         1257     A     
 LEX       TSC5     =B5    B5-1                                                            LEX         1258     A     
 LEX                LX6    CHAR                                                            LEX         1259     A     
 LEX                ZR     B2,TSC15    IF 99 CHAR PROCESSED                                LEX         1260     A     
 LEX       TSC5A    =B2    B2-1                                                            LEX         1261     A     
 LEX                =B7    B7-1        BLANK COUNT - 1                                     LEX         1262     A     
 LEX                MI     X1,TSCEX    IF PREMATURE *EOS*                                  LEX         1263     A     
 LEX                IX0    X3-X7                                                           LEX         1264     A     
 LEX                ZR     B7,TSC10    IF NO IMBEDDED BLANKS.                              LEX         1265          I
          -FCC0844
 LEX                EQ     B7,B4,TSC10 IF NO IMBEDDED BLANKS                               FCC0844       18     A     
 LEX                BX6    X6+X2       ADD IN BLANK                                        LEX         1266     A     
 LEX                NZ     B5,TSC5     IF NO END OF WORK                                   LEX         1267     A     
 LEX                =A6    A6+1                                                            LEX         1268     A     
 LEX                BX6    0                                                               LEX         1269     A     
 LEX                SB5    10                                                              LEX         1270     A     
 LEX                EQ     TSC5        CONTINUE.                                           LEX         1271     A     
 LEX                                                                                       LEX         1272     A     
 LEX       TSC10    ZR     X0,TSC50    IF DELIMITER FOUND.                                 LEX         1273     A     
 LEX                =A1    A1+1                                                            LEX         1274     A     
 LEX                BX6    X6+X3       HERE IF NO IMBEDDED BLANKS.                         LEX         1275     A     
 LEX                UX3    B7,X1                                                           LEX         1276     A     
 LEX                NZ     B5,TSC5     IF NO END OF WORK                                   LEX         1277     A     
 LEX                =A6    A6+1        ADD WORD TO TABLE.                                  LEX         1278     A     
 LEX                SB5    10                                                              LEX         1279     A     
 LEX                BX6    0           CLEAR ASSEMBLY REGISTER.                            LEX         1280     A     
 LEX                EQ     TSC5                                                            LEX         1281     A     
 LEX                                                                                       LEX         1282     A     
 LEX       TSC15    ZR     X5,TSC5A    IF NOT CALLED BY *FMT*                              LEX         1283     A     
 LEX                PX7    B7,X3                                                           LEX         1284     A     
 LEX                MX0    1                                                               LEX         1285     A     
 LEX                SA7    A1                                                              LEX         1286     A     
 LEX                BX5    X0+X5       FLAG TO INDICATE MAX OF 99 REACHED                  LEX         1287     A     
 LEX                =A1    A1-1        SET TO POINT TO 99TH CHAR                           LEX         1288     A     
 LEX                LX2    X6                                                              LEX         1289          I
          -FCC1015
 LEX                NZ     X6,TSC25    IF NOT EMPTY WORD                                   FCC1015        7     A     
 LEX                BX6    X3          99 CHARS AND FULL WORD, PICK UP NEXT CHAR           FCC1015        8     A     
 LEX                EQ     TSC25                                                           LEX         1290          I
          -FCC0844
 LEX                                                                                       LEX         1291     A     
 LEX      **        SET-UP EXIT CONDITIONS FOR EXTERNAL PROCESSOR.                         LEX         1292     A     
 LEX      *         (X6) = LAST WORD                                                       LEX         1293     A     
 LEX      *         (A1) _ *DELIM*                                                         LEX         1294     A     
 LEX      *         (B5) = LAST CHAR COUNT                                                 LEX         1295     A     
 LEX                                                                                       LEX         1296     A     
 LEX       TSC25    SX1    B5+B5       *2                                                  LEX         1297     A     
 LEX                SB7    99                                                              LEX         1298     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 966    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                IX0    X1+X1                                                           LEX         1299     A     
 LEX                =B2    B2+1        LENGTH CORRECTED BECAUSE OF *DELIM*                 LEX         1300     A     
 LEX                SB4    A1          SET TO POINT TO DELIMITER                           LEX         1301     A     
 LEX                EQ     B7,B2,TSCZEX      IF STRING LENGTH IS ZERO                      LEX         1302     A     
 LEX                                                                                       LEX         1303     A     
 LEX                IX0    X1+X0       *6                                                  LEX         1304     A     
 LEX                LX2    X6                                                              LEX         1305     A     
 LEX                SB7    X0                                                              LEX         1306     A     
 LEX                MX1    -1                                                              LEX         1307     A     
 LEX                LX6    B7,X2       0L FORMAT.                                          LEX         1308     A     
 LEX                EQ     TSCX        EXIT..                                              LEX         1309     A     
 LEX                                                                                       LEX         1310     A     
 LEX      **        HERE IF FOUND DELIMITER CHECK IF ENDING DELIMITER                      LEX         1311     A     
 LEX                                                                                       LEX         1312     A     
 LEX       TSC50    =A3    A1+1                                                            LEX         1313     A     
 LEX                SX0    X7-1R"                                                          LEX         1314     A     
 LEX                UX3,B7 X3                                                              FCC0844       19     A     
 LEX                NZ     X0,TSC25    IF NOT PROCESSING QUOTE DELIMITED STRING            LEX         1315     A     
 LEX                UX3,B7 X3                                                              LEX         1316          I
          -FCC0844
 LEX                SB7    B7-B4                                                           FCC0844       20     A     
 LEX                IX0    X3-X7                                                           LEX         1317     A     
 LEX                NZ     X0,TSC25    IF NOT DOUBLE QUOTE AS CHAR                         LEX         1318     A     
 LEX                GT1    B7,TSC25    IF BLANKS BETWEEN THE QUOTE MARKS                   LEX         1319     A     
 LEX                =A1    A1+1        BY-PASS SECOND QUOTE MARK.                          LEX         1320     A     
 LEX                MX0    -1                                                              LEX         1321     A     
 LEX                EQ     TSC10       CONTINUE                                            LEX         1322     A     
 LEX                                                                                       LEX         1323     A     
 LEX       TRV      SPACE  4,15                                                            LEX         1324     A     
 LEX      **        TRV -  TRANSLATE VARIABLE.                                             LEX         1325     A     
 LEX      *                                                                                LEX         1326     A     
 LEX      *         ENTRY  B4 _ TO VARIABLE TO BE TRANSLATED.                              LEX         1327     A     
 LEX      *                                                                                LEX         1328     A     
 LEX      *         EXIT   (X1) = MODE BITS OF TAG.                                        LEX         1329     A     
 LEX      *                (X2) = PASS *2* TAG FOR SYMBOL TRANSLATED.                      LEX         1330     A     
 LEX      *                (X6) = TAG FROM SYMBOL TABLE.                                   LEX         1331     A     
 LEX      *                (B7) = ORDINAL OF TAG.                                          LEX         1332     A     
 LEX      *                (X0)  = 0 IF NO ERROR DETECTED, -1 OTHERWISE                    LEX         1333     A     
 LEX      *         NOTE   *TRV* VALIDATES THE *ENTRY* BEFORE EXIT TO MAKE SURE            LEX         1334     A     
 LEX      *                NO USAGE CONFLICT EXIST.                                        LEX         1335     A     
 LEX      *         USES   A1,A2,A3,A6  X0  B2,B7                                          LEX         1336     A     
 LEX      *                (TRVA, TRVA+1)                                                  LEX         1337     A     
 LEX                                                                                       LEX         1338     A     
 LEX                                                                                       LEX         1339     A     
 LEX      *         HERE IF ERROR                                                          LEX         1340     A     
 LEX                                                                                       LEX         1341     A     
 LEX       TRVEX    BX6    X3                                                              LEX         1342     A     
 LEX                SA6    FILL.2      CLASS CONFLICT (IF ANY)                             LEX         1343     A     
 LEX                FATAL  B7          OUTPUT ERROR.                                       LEX         1344     A     
 LEX                SX6    VTERR.                                                          LEX         1345          I
          -FCC1222
 LEX                SX6    C.VAR                                                           FCC1222        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 967    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SB7    B2          RESTORE ORDINAL OF TAG                              LEX         1346     A     
 LEX                SX6    X6+B7                                                           LEX         1347     A     
 LEX                LX6    P.TAG                                                           LEX         1348     A     
 LEX                =X1    M.UNIV                                                          LEX         1349     A     
 LEX                BX2    X6                                                              LEX         1350     A     
 LEX                MX0    -1          INDICATE ERROR                                      LEX         1351     A     
 LEX                                                                                       LEX         1352     A     
 LEX       TRV      SUBR   0                                                               LEX         1353     A     
 LEX                SA1    B4                                                              LEX         1354     A     
 LEX                MX0    L.SYM                                                           LEX         1355     A     
 LEX                BX6    X0*X1       SYMBOL ONLY                                         LEX         1356     A     
 LEX                SB2    X1-O.VAR                                                        LEX         1357     A     
 LEX                SA6    FILL.                                                           LEX         1358     A     
 LEX                ZR     B2,TRV4     IF *VARIABLE*.                                      LEX         1359     A     
 LEX                MX0    L.CDPC                                                          LEX         1360     A     
 LEX                SA2    X1+=XCHARMAP                                                    LEX         1361     A     
 LEX                NZ     X2,TRV1     IF NOT CONSTANT                                     LEX         1362     A     
 LEX                BX2    X1                                                              LEX         1363     A     
 LEX       TRV1     BX6    X0*X2                                                           LEX         1364     A     
 LEX                SA6    FILL.       SET FILL. WITH BAD CHARACTER                        LEX         1365     A     
 LEX                EQ     E.TE5       SYNTAX ERROR                                        LEX         1366     A     
 LEX                                                                                       LEX         1367     A     
 LEX                                                                                       LEX         1368     A     
 LEX       TRV4     =A2    B4+1                                                            LEX         1369     A     
 LEX                SB7    X2-O.VAR                                                        LEX         1370     A     
 LEX                NZ     B7,TRV5     IF NAME LESS THAN 8 CHAR                            LEX         1371     A     
 LEX                RJ     TLV                                                             LEX         1372     A     
 LEX       TRV5     SCAN   TS.SYM,SSY                                                      LEX         1373     A     
 LEX                MI     B7,TRV7     IF *NIT*                                            LEX         1374          I
          -FCC0499
 LEX                =X2    M.VAR                                                           LEX         1375          I
          -FCC0499
 LEX                BX6    X2+X6                                                           LEX         1376          I
          -FCC0499
 LEX                SA6    A2                                                              LEX         1377          I
          -FCC0499
 LEX                EQ     TRV10       CONTINUE                                            LEX         1378          I
          -FCC0499
 LEX                PL     B7,TRV10    IF FOUND IN TABLE                                   FCC0499        5     A     
 LEX                                                                                       LEX         1379     A     
 LEX       TRV7     RJ     STY         SET MODE                                            LEX         1380          I
          -FCC0499
 LEX                RJ     STY         SET MODE                                            FCC0499        6     A     
 LEX                SX7    X1+M.VAR                                                        LEX         1381     A     
 LEX                ADSYM  TS.SYM      ADD SYMBOL + TAG TO TABLE.                          LEX         1382     A     
 LEX                EQ     TRV12                                                           LEX         1383     A     
 LEX                                                                                       LEX         1384     A     
 LEX       TRV10    BX0    X6                                                              LEX         1385     A     
 LEX                IFBIT  X0,-NVAR,TRV12    IF NOT *NOT VARIABLE*                         LEX         1386     A     
 LEX                CLAS=  X2,(ENT=,EXT=,FUN,BEF,SUB,ASF)                                  LEX         1387          I
          -FCC0499
 LEX                CLAS=  X2,(EXT=,FUN,BEF,SUB,ASF)                                       FCC0499        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 968    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                BX0    X2*X6                                                           LEX         1388     A     
 LEX                NZ     X0,TRV10B   IF CLASS2 CONFLICT                                  LEX         1389     A     
 LEX                CLAS=  X2,(RP)                                                         LEX         1390     A     
 LEX                BX0    X2*X6                                                           LEX         1391     A     
 LEX                NZ     X0,TRV10A   IF RETURNS PARAMETER                                LEX         1392     A     
 LEX                SA3    CLASS+P.NVAR-P.DEF                                              LEX         1393          I
          -FCC0499
 LEX                CLAS=  X2,(ENT=)                                                       FCC0499        8     A     
 LEX                BX0    X2*X6                                                           FCC0499        9     A     
 LEX                ZR     X0,TRV10D   IF NOT ENTRY                                        FCC0499       10     A     
 LEX                SA2    =XENTRY.                                                        FCC0499       11     A     
 LEX                SB2    X2                                                              FCC0499       12     A     
 LEX                SB2    B2-B7                                                           FCC0499       13     A     
 LEX                NE1    B2,TRV10B   IF NOT FUNCTION NAME                                FCC0499       14     A     
 LEX                SA1    TRV                                                             FCC0499       15     A     
 LEX                AX1    30                                                              FCC0499       16     A     
 LEX                SX1    X1          WHERE THIS CALL ORIGINATED                          FCC0499       17     A     
 LEX                SX2    =XNAM20                                                         FCC0499       18     A     
 LEX                IX2    X2-X1                                                           FCC0499       19     A     
 LEX                ZR     X2,TRV12    NAMELIST LIST ITEM OK                               FCC0499       20     A     
 LEX                SX2    =XPTN3                                                          FCC0499       21     A     
 LEX                IX2    X2-X1                                                           FCC0499       22     A     
 LEX                ZR     X2,TRV12    VARIABLE FORMAT OK                                  FCC0499       23     A     
 LEX                EQ     TRV10B                                                          FCC0499       24     A     
 LEX       TRV10D   SA3    CLASS+P.NVAR-P.DEF                                              FCC0499       25     A     
 LEX                EQ     TRV10C                                                          LEX         1394     A     
 LEX                                                                                       LEX         1395     A     
 LEX       TRV10A   SA3    CLASS+P.RP-P.DEF                                                LEX         1396     A     
 LEX                EQ     TRV10C                                                          LEX         1397     A     
 LEX                                                                                       LEX         1398     A     
 LEX       TRV10B   NX2,B2 X0                                                              LEX         1399     A     
 LEX                SB2    -B2                                                             LEX         1400     A     
 LEX                SX2    B2+CLASS-P.CLASS2+47                                            LEX         1401     A     
 LEX                SA3    X2+L.CL                                                         LEX         1402     A     
 LEX       TRV10C   =B2    B7+1        ORDINAL OF TAG                                      LEX         1403     A     
 LEX                SB7    E.VA1       USAGE CONFLICT ERROR                                LEX         1404     A     
 LEX                EQ     TRVEX       OUTPUT CONFLICT MESSAGE.                            LEX         1405     A     
 LEX                                                                                       LEX         1406     A     
 LEX      **        (X6) = TAG                                                             LEX         1407     A     
 LEX      *         (B7) = SYMBOL ORDINAL OF ENTRY.                                        LEX         1408     A     
 LEX                                                                                       LEX         1409     A     
 LEX       TRV12    SA1    LOP=R                                                           LEX         1410     A     
 LEX                =B7    B7+1        ORDINAL OF TAG.                                     LEX         1411     A     
 LEX                PL     X1,TRV20    IF NO CROSS-REFERENCE SELECTED.                     LEX         1412     A     
 LEX                LX2    X6                                                              LEX         1413     A     
 LEX                SA6    TRVA        SAVE TAG.                                           LEX         1414     A     
 LEX                SX6    B7                                                              LEX         1415     A     
 LEX                =A6    A6+1        SAVE ORDINAL                                        LEX         1416     A     
 LEX                SA1    REFVAR      TYPE OF REFERENCE                                   LEX         1417     A     
 LEX                LX6    X2                                                              LEX         1418     A     
 LEX                ADDREF X6,X1                                                           LEX         1419     A     
 LEX                SA1    TRVA                                                            LEX         1420     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 969    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                =A2    A1+1                                                            LEX         1421     A     
 LEX                BX6    X1          TAG.                                                LEX         1422     A     
 LEX                SB7    X2          ORDINAL.                                            LEX         1423     A     
 LEX                                                                                       LEX         1424     A     
 LEX      **        SET-UP EXIT CONDITIONS.                                                LEX         1425     A     
 LEX                                                                                       LEX         1426     A     
 LEX       TRV20    BX1    X6                                                              LEX         1427     A     
 LEX                MX0    -L.FPNO                                                         LEX         1428     A     
 LEX                AX1    P.FPNO                                                          LEX         1429     A     
 LEX                MX3    L.TAG+L.MODE                                                    LEX         1430     A     
 LEX                BX2    -X0*X1      EXTRACT SYMBOL TABLE *PARM* FIELD                   LEX         1431     A     
 LEX                LX3    L.MODE                                                          LEX         1432     A     
 LEX                LX2    P.2FPNO                                                         LEX         1433     A     
 LEX                MX0    -L.MODE                                                         LEX         1434     A     
 LEX                BX1    X3*X6       TAG + MODE                                          LEX         1435     A     
 LEX                IX2    X1+X2       TAG + PARM + MODE                                   LEX         1436     A     
 LEX                BX1    -X0*X6      MODE BITS ONLY                                      LEX         1437     A     
 LEX                =X0    0           INDICATE NO ERROR FOUND                             LEX         1438     A     
 LEX                SA6    TRVA                                                            FCC0498       25     A     
 LEX                EQ     TRVX        EXIT..                                              LEX         1439     A     
 LEX                                                                                       LEX         1440     A     
 LEX       EXTS.    EJECT                                                                  LEX         1441     A     
 LEX      **        THE FOLLOWING IS A LIST OF                                             LEX         1442     A     
 LEX      *                   EXTERNAL ROUTINES THAT ARE USED BY GENERATED OBJECT          LEX         1443     A     
 LEX      *                   CODE TO PROCESS *FORTRAN* STATEMENTS.  INORDER TO            LEX         1444     A     
 LEX      *                   ELIMINATE *RESERVED WORDS* THESE ROUTINES MUST               LEX         1445     A     
 LEX      *                   ALWAYS BE CALLED BY *NAME*_EXT.                              LEX         1446     A     
 LEX                                                                                       LEX         1447     A     
 LEX                                                                                       LEX         1448     A     
 LEX       =XLIB    MACRO  NAME                                                            LEX         1449          I
          -F66FCC 
 LEX                VFD    42/0L_NAME"EXT",18/O.VAR                                        LEX         1450          I
          -F66FCC 
 LEX       =XLIB    MACRO  NAME,SUFFIX                                                     F66FCC       753     A     
 LEX                VFD    42/0L_NAME"EXT"SUFFIX,18/O.VAR                                  F66FCC       754     A     
 LEX       =XLIB    ENDM                                                                   LEX         1451     A     
 LEX       S.IOCALL SPACE  4,8                                                             LEX         1452     A     
 LEX      **        S.IOCALL - LIST OF ROUTINES USED BY OBJECT TIME INPUT/OUTPUT.          LEX         1453     A     
 LEX      *                MUST ALWAYS BE KEPT IN ORDER, AS THE PROPER NAME IS             LEX         1454     A     
 LEX      *                SELECTED BY INDEXING INTO THIS TABLE.                           LEX         1455     A     
 LEX                                                                                       LEX         1456     A     
 LEX                                                                                       LEX         1457     A     
 LEX       S.IOCAL  BSS    0           BASE OF *I/O* ROUTINE NAMES                         LEX         1458     A     
 LEX                                                                                       LEX         1459     A     
 LEX                LOC    0                                                               LEX         1460     A     
 LEX       S=COD    BSS    0                 *CODED* MODE                                  LEX         1461     A     
 LEX       S=INIT   BSS    0                 *INITIAL* CALL                                LEX         1462     A     
 LEX       S=INP    =XLIB  INPCI             *INPUT* DIRECTION                             LEX         1463     A     
 LEX       S=CONT   =XLIB  INPCR                                                           LEX         1464     A     
 LEX       S=OUT    =XLIB  OUTCI             *OUTPUT* DIRECTION                            LEX         1465     A     
 LEX                =XLIB  OUTCR                                                           LEX         1466     A     
 LEX       S=FREE   =XLIB  INPFI             *LIST-DIRECTED* (FREE FIELD)                  LEX         1467     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 970    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                =XLIB  INPFR                                                           LEX         1468     A     
 LEX                =XLIB  OUTFI                                                           LEX         1469     A     
 LEX                =XLIB  OUTFR                                                           LEX         1470     A     
 LEX       S=BIN    =XLIB  INPBI             *BINARY* MODE                                 LEX         1471     A     
 LEX                =XLIB  INPBR                                                           LEX         1472     A     
 LEX                =XLIB  OUTBI                                                           LEX         1473     A     
 LEX                =XLIB  OUTBR                                                           LEX         1474     A     
 LEX       S=STR    =XLIB  DECODI            *STRING* MODE                                 LEX         1475     A     
 LEX                =XLIB  DECODR                                                          LEX         1476     A     
 LEX                =XLIB  ENCODI                                                          LEX         1477     A     
 LEX                =XLIB  ENCODR                                                          LEX         1478     A     
 LEX                LOC    *O                                                              LEX         1479     A     
 LEX                                                                                       LEX         1480     A     
 LEX       S.NLST   =XLIB  NAMIN                                                           LEX         1481     A     
 LEX                =XLIB  NAMOUT                                                          LEX         1482     A     
 LEX       S.ERR    =XLIB  FTNERR                                                          LEX         1483     A     
 LEX      * .Q8NTRY CON    Q8NTRY      PROGRAM INITIALIZATION                              LEX         1484     A     
 LEX       S.Q8NTR  =XLIB  Q8NTRY      PROGRAM INITIALIZATION                              LEX         1485          I
          -FCC1559X 
 LEX       S.Q1NTR  =XLIB  Q1NTRY      PROGRAM INITIALIZATION (CRM2 CHANGE-OVER)           FCC1559X      19          I
          -F162FTNA 
 LEX       S.Q2NTR  =XLIB  Q2NTRY      PROGRAM INITIALIZATION                              F162FTNA     717     A     
 LEX       S.VARDIM =XLIB  VARDIM      VARIABLE DIMENSION INITIALIZER                      LEX         1486     A     
 LEX       S.ACGOR  =XLIB  GOTOER                                                          LEX         1487     A     
 LEX       S.BKSP   =XLIB  BACKSP                                                          LEX         1488     A     
 LEX       S.ENDFI  =XLIB  ENDFIL                                                          LEX         1489     A     
 LEX       S.EOF    =XLIB  EOF         IMPLICIT E-O-F TEST                                 LEX         1490     A     
 LEX       S.RANDM  =XLIB  RANDOM                                                          LEX         1491     A     
 LEX       S.REWIN  =XLIB  REWIND                                                          LEX         1492     A     
 LEX                =XLIB  BUFOUT                                                          LEX         1493     A     
 LEX       S.BUFIO  =XLIB  BUFIN                                                           LEX         1494     A     
 LEX                                                                                       LEX         1495     A     
 LEX       S.END    =XLIB  END         ORDER OF END - STOP CAN NOT BE CHANGED SEE          LEX         1496     A     
 LEX       S.PAUSE  =XLIB  PAUSE       ROUTINE *SPR*.                                      LEX         1497     A     
 LEX       S.STOPE  =XLIB  STOP                                                            LEX         1498     A     
 LEX       S.FTNRP  =XLIB  FTNRPV      OBJECT TIME REPRIEVE                                FEAT155G     344          I
          -FCC1559X 
 LEX       S.FTNRP  =XLIB  FTNRP1      OBJECT TIME REPRIEVE (CRM2 CHANGE-OVER)             FCC1559X      20          I
          -F162FTNA 
 LEX       S.FTNRP  =XLIB  FTNRP2      OBJECT TIME REPRIEVE                                F162FTNA     718     A     
 LEX       #FID     IFNE   .FID,0                                                          F66FCC       755     A     
 LEX                ENTRY  S.FID                                                           F66FCC       756     A     
 LEX       S.FID    =XLIB  DBUG,LN                                                         F66FCC       757     A     
 LEX       #FID     ENDIF                                                                  F66FCC       758     A     
 LEX       INLINE   EJECT  4,8                                                             LEX         1499     A     
 LEX      **        TSF -  TAG SPECIAL FUNCTION.                                           LEX         1500     A     
 LEX      *                                                                                LEX         1501     A     
 LEX      **        COMMENT ABOUT THE TAGGING OF A SPECIAL FUNCTION BY *TSF*               LEX         1502     A     
 LEX      *                                                                                LEX         1503     A     
 LEX      *         *TSF*  RETURNS A TAG FOR ALL FUNCTIONS/SUBROUTINE USAGE.               LEX         1504     A     
 LEX      *         IT NEVER SETS THE DEFINE BIT IN THE TAG RETURNED, BECAUSE              LEX         1505     A     
 LEX      *         THE PROCESSOR CALLING *TSF* DOES NOT YET KNOW WHETHER THE              LEX         1506     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 971    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         TAG IS BEING USED WITH ARGUMENTS OR NOT.  THE PROBLEM IS THAT          LEX         1507     A     
 LEX      *         THE ARGUMENT COUNT FIELD, (L.PARM) IS ONLY 6 BITS IN LENGTH            LEX         1508     A     
 LEX      *         ALLOWING ONLY 63 ARGUMENTS TO BE ASSOCIATED WITH ANY ONE               LEX         1509     A     
 LEX      *         FUNCTION/SUBROUTINE REFERENCE.  THUS WHEN A REFERENCE TO A             LEX         1510     A     
 LEX      *         FUNCTION TAG IS USED IN ORDER TO CHECK ARGUMENT COUNT WE MUST          LEX         1511     A     
 LEX      *         KNOW WHETHER THIS IS THE FIRST REFERENCE OR NOT.  IF WE SET            LEX         1512     A     
 LEX      *         THE DEFINE BIT, LIKE ANSI DICTATES, THEN WE HAVE NO IDEA               LEX         1513     A     
 LEX      *         IF THE CURRENT REFERENCE IS THE 1ST OR NOT.                            LEX         1514     A     
 LEX      *         (A SUBROUTINE CAN BE REFERENCED WITH A NULL ARGUMENT LIST.)            LEX         1515     A     
 LEX      *                                                                                LEX         1516     A     
 LEX      *         THUS THE ONLY PROCESSOR THAT SETS THE DEFINE BIT FOR A TAG             LEX         1517     A     
 LEX      *         THAT CONTAINS THE *NVAR* BIT SET IS *TAL* - TERMINATE ARGUMENT         LEX         1518     A     
 LEX      *         LIST, AND ALSO BY THE CALL PROCESSOR, WHEN REFERENCE TO A              LEX         1519     A     
 LEX      *         SUBROUTINE WILL A NULL ARGUMENT LIST.                                  LEX         1520          I
          -FEAT126C 
 LEX      *         SUBROUTINE WITH A NULL ARGUMENT LIST.                                  FEAT126C     135     A     
 LEX      *                                                                                LEX         1521     A     
 LEX      *         THE EXCEPTION TO THE ABOVE IS THE DEFINED *CDC/ANSI*                   LEX         1522     A     
 LEX      *         INTRINSICS AND BEFS.  SINCE BOTH OF THESE CLASSES HAVE DEFINED         LEX         1523     A     
 LEX      *         ARGUMENT LISTS THE DEFINE BIT IS SET BY *TSF* WHEN TAGGING             LEX         1524     A     
 LEX      *         A FUNCTION BELONGING TO THIS CLASS....                                 LEX         1525     A     
 LEX      *                                                                                LEX         1526     A     
 LEX      *         (FURTHER COMMENT...OBVIOUSLY IT WOULD BEHOOVE US TO EXPAND THE         LEX         1527     A     
 LEX      *         L.PARM FIELD, AND WE COULD FOR ALL TAGS GENERATED BY *TSF* BUT         LEX         1528     A     
 LEX      *         THE PROBLEM IS NOT SPECIAL TAGS BUT THE FORMAL PARAMETER               LEX         1529     A     
 LEX      *         ARGUMENT POSITION FIELDS LOCATED WITHIN A SYMBOL DEFINITION.           LEX         1530     A     
 LEX      *         IN THE SYMBOL TAG WE DO NOT HAVE ENOUGH BITS TO EXPAND THE             LEX         1531     A     
 LEX      *         PARAMETER FIELD.  ACTUALLY THERE SHOULD BE NO LIMIT ON THE             LEX         1532     A     
 LEX      *         ARGUMENT LIST TO A FUNCTION OR SUBROUTINE BUT WE ONLY HAVE A           LEX         1533     A     
 LEX      *         60 BIT WORD..)                                                         LEX         1534     A     
 LEX      *                                                                                LEX         1535     A     
 LEX      *         ENTRY  B4 _ TO VARIABLE TO BE TRANSLATED.                              LEX         1536     A     
 LEX      *         (X6) = CLASSIFICATION FOR FUNCTION.                                    LEX         1537     A     
 LEX      *                                                                                LEX         1538     A     
 LEX      *         EXIT   (X1) = MODE BITS ONLY OF TAG.                                   LEX         1539     A     
 LEX      *                (X6) = TAG ENTRY. (FROM *TS.SYM*)                               LEX         1540     A     
 LEX      *                (B7) = ORDINAL OF TAG.                                          LEX         1541     A     
 LEX      *                                                                                LEX         1542     A     
 LEX      *         PRESERVES A4,A5  X4,X5  B4,B5,B6                                       LEX         1543     A     
 LEX      *                                                                                LEX         1544     A     
 LEX      *         CALLS  ADF, BTT, SCT, STY                                              LEX         1545     A     
 LEX                                                                                       LEX         1546     A     
 LEX                                                                                       LEX         1547     A     
 LEX       TSF      SUBR               ENTRY/EXIT...                                       LEX         1548     A     
 LEX                SA1    B4          LOAD ELEMENT.                                       LEX         1549     A     
 LEX                MX0    L.SYM                                                           LEX         1550     A     
 LEX                SA6    CALL                                                            LEX         1551     A     
 LEX                =X6    0                                                               LEX         1552     A     
 LEX                SB7    X1-O.VAR                                                        LEX         1553     A     
 LEX                SA6    NEXT        INDICATE SYMBOL FOUND.                              LEX         1554     A     
 LEX                BX6    X0*X1       SYMBOL ONLY                                         LEX         1555     A     
 LEX                SA6    FILL.       SAVE NAME (IN CASE OF ERROR)                        LEX         1556     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 972    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                ZR     B7,TSF2     IF SYMBOL                                           LEX         1557     A     
 LEX                SB7    X1+0                                                            LEX         1558     A     
 LEX                                                                                       LEX         1559     A     
 LEX      **        SCAN SYMBOL TABLE TO SEE IF SPECIAL FUNCTION HAS ALREADY               LEX         1560     A     
 LEX      *         BEEN ENCOUNTERED.                                                      LEX         1561     A     
 LEX                                                                                       LEX         1562     A     
 LEX       TSF2     SCAN   TS.SYM,SSY                                                      LEX         1563     A     
 LEX                =X1                MODE BITS (IF SYSEXT)                               LEX         1564     A     
 LEX                MI     B7,TSF30    IF *NIT*                                            LEX         1565     A     
 LEX                SA3    CALL                                                            LEX         1566     A     
 LEX                =B7    B7+1        POINT TO TAG                                        LEX         1567     A     
 LEX                BX6    X3+X6       DEFINE ACCORDING TO CALL                            LEX         1568     A     
 LEX                EQ     TSF60       CONTINUE                                            LEX         1569     A     
 LEX                                                                                       LEX         1570     A     
 LEX      **        SCAN DEFINED LIBRARY TABLE.                                            LEX         1571     A     
 LEX                                                                                       LEX         1572     A     
 LEX       TSF30    SA3    CALL                                                            LEX         1573     A     
 LEX                NZ     X3,TSF40    IF TYPE OF FUNCTION DEFINED.                        LEX         1574     A     
 LEX                BX1    X6                                                              LEX         1575     A     
 LEX                RJ     SLT         SCAN LIBRARY TABLE.                                 LEX         1576     A     
 LEX                =X1                CLEAR CLASS BITS, ALREADY ADDED.                    LEX         1577     A     
 LEX                PL     B7,TSF50    IF INLINE OR BEF.                                   LEX         1578     A     
 LEX                =X3    M.FUN+M.EXT+M.NVAR                                              LEX         1579     A     
 LEX                                                                                       LEX         1580     A     
 LEX      *         PROCESS NATURAL TYPE                                                   LEX         1581     A     
 LEX      *         (X3) = CLASS BITS                                                      LEX         1582     A     
 LEX      *         (X6) = 0L_NAME OF FUNCTION.                                            LEX         1583     A     
 LEX                                                                                       LEX         1584     A     
 LEX       TSF40    SB2    X3-M.SYSEXT                                                     LEX         1585     A     
 LEX                ZR     B2,TSF50    IF SYSTEM EXTERNAL.                                 LEX         1586     A     
 LEX                RJ     STY         SET MODE                                            LEX         1587     A     
 LEX                                                                                       LEX         1588     A     
 LEX      **        ADD EXTERNAL TO SYMBOL TABLE.                                          LEX         1589     A     
 LEX                                                                                       LEX         1590     A     
 LEX       TSF50    BX7    X1+X3       CLASS + MODE BITS.                                  LEX         1591     A     
 LEX                ADSYM  TS.SYM                                                          LEX         1592     A     
 LEX                SB7    B7+B1       TAG ENTRY ORDINAL                                   LEX         1593     A     
 LEX                                                                                       LEX         1594     A     
 LEX      *         TRANSFER FUNCTION/SUBROUTINE TAG FOR COMPILE                           LEX         1595     A     
 LEX      **        (X6) = TAG                                                             LEX         1596     A     
 LEX      *         (B7) = ORDINAL OF TAG                                                  LEX         1597     A     
 LEX                                                                                       LEX         1598     A     
 LEX       TSF60    SA2    LOP=R                                                           LEX         1599     A     
 LEX                MX0    -L.MODE                                                         LEX         1600     A     
 LEX                PL     X2,TSF62    IF NO CROSS REFERENCE SELECTED                      LEX         1601     A     
 LEX                LX2    X6                                                              LEX         1602     A     
 LEX                SA6    TRVA        SAVE TAG.                                           LEX         1603     A     
 LEX                SX6    B7                                                              LEX         1604     A     
 LEX                =A6    A6+1        SAVE ORDINAL OF TAG.                                LEX         1605     A     
 LEX                SA1    REFVAR      TYPE OF REFERENCE                                   LEX         1606     A     
 LEX                LX6    X2                                                              LEX         1607     A     
 LEX                ADDREF X6,X1                                                           LEX         1608     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 973    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX                SA1    TRVA                                                            LEX         1609     A     
 LEX                =A2    A1+1                                                            LEX         1610     A     
 LEX                BX6    X1          TAG.                                                LEX         1611     A     
 LEX                MX0    -L.MODE                                                         LEX         1612     A     
 LEX                SB7    X2                                                              LEX         1613     A     
 LEX       TSF62    SA3    DOORD                                                           LEX         1614     A     
 LEX                =X7    M.EXT                                                           LEX         1615     A     
 LEX                BX1    -X0*X6      MODE ONLY                                           LEX         1616     A     
 LEX                ZR     X3,EXIT.    IF NOT INSIDE *DO*                                  LEX         1617     A     
 LEX                BX2    X7*X6                                                           LEX         1618     A     
 LEX                ZR     X2,EXIT.    IF NOT REFERENCE TO *EXTERNAL*                      LEX         1619     A     
 LEX                SA1    TS.STN                                                          LEX         1620     A     
 LEX                SB2    X3                                                              LEX         1621     A     
 LEX                SA3    B2+X1       LOAD *DO* STATMENT TAG FROM *TS.STN*                LEX         1622     A     
 LEX                =X2    M.SNEX                                                          LEX         1623     A     
 LEX                BX7    X2+X3       INDICATE *DO* HAS AN EXTERNAL REFERENCE             LEX         1624     A     
 LEX                SA7    A3          RESET IN STATEMENT NUMBER TABLE                     LEX         1625     A     
 LEX       TSF65    BX1    -X0*X6      MODE BITS ONLY OF TAG                               LEX         1626     A     
 LEX                EQ     EXIT.                                                           LEX         1627     A     
 LEX       SLT      SPACE  4,20                                                            LEX         1628     A     
 LEX      **        SLT -  SCAN DEFINED LIBRARY TABLE.                                     LEX         1629     A     
 LEX      *                                                                                LEX         1630          I
          -FEAT126C 
 LEX      *                                                                                LEX         1631          I
          -FEAT126C 
 LEX      *         CALLED BY *TSF* TO SCAN THE DEFINED *CDC/ANSI* LIBRARY TABLE.          LEX         1632          I
          -FEAT126C 
 LEX      *         (ALSO CALLED VIA *CUT* WHEN TAG IS IN SYMBOL TABLE BUT HAS NO          LEX         1633          I
          -FEAT126C 
 LEX      *          CLASSIFICATION ON IT.)                                                LEX         1634          I
          -FEAT126C 
 LEX      *                                                                                LEX         1635          I
          -FEAT126C 
 LEX      *         WHEN SYMBOL IS IN TABLE BUT CLASSIFICATION BITS ARE NOT YET            LEX         1636          I
          -FEAT126C 
 LEX      *         SET.                                                                   LEX         1637          I
          -FEAT126C 
 LEX      *                                                                                LEX         1638     A     
 LEX      *         ENTRY  (X1) = SYMBOL TO CHECK.                                         LEX         1639     A     
 LEX      *                                                                                LEX         1640     A     
 LEX      *         EXIT   (B7) < 0 = ENTITY NOT FOUND.                                    LEX         1641     A     
 LEX      *                   (X3) = N/A                                                   LEX         1642     A     
 LEX      *                                                                                LEX         1643     A     
 LEX      *                (B7) = PAR.FUN = *BEF*                                          LEX         1644     A     
 LEX      *            OR  (B7) = PAR.FUN = *INLINE*                                       LEX         1645     A     
 LEX      *                (X3) = TAG FOR FUNCTION MINUS ACTUAL TAG.                       LEX         1646     A     
 LEX      *                                                                                LEX         1647     A     
 LEX      *                (X6) = PRESERVED.                                               LEX         1648     A     
 LEX      *         USES   CANNOT DESTROY A2,A4,A5,A7  X4,X5,X6  B4,B5,B6                  LEX         1649     A     
 LEX                                                                                       LEX         1650     A     
 LEX                                                                                       LEX         1651     A     
 LEX      **        HERE IF FUNCTION IS EITHER A  *BEF*  OR  *INTRINSIC*.                  LEX         1652     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 974    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
 LEX      *         (X1) = *FIV* TABLE ENTRY.                                              LEX         1653     A     
 LEX      *         (X6) = ENTRY NAME.                                                     LEX         1654     A     
 LEX                                                                                       LEX         1655     A     
 LEX       SLT10    LX7    X1                                                              LEX         1656     A     
 LEX                MX0    -L.MODE                                                         LEX         1657     A     
 LEX                BX2    -X0*X1      FUNCTION MODE.                                      LEX         1658     A     
 LEX                AX1    L.MODE                                                          LEX         1659     A     
 LEX                MX0    -L.FARGC-L.FARGM-L.FJPAD                                        LEX         1660     A     
 LEX                BX3    -X0*X1                                                          LEX         1661     A     
 LEX                LX3    P.ARGC                                                          LEX         1662     A     
 LEX                BX3    X3+X2                                                           LEX         1663     A     
 LEX                IFBIT  X7,FBEF,SLT20     IF *BEF*                                      LEX         1664     A     
 LEX                =X0    M.INLF      INDICATE *INTRINSIC*                                LEX         1665     A     
 LEX                =B7    1                                                               LEX         1666     A     
 LEX                BX3    X3+X0                                                           LEX         1667     A     
 LEX                IFBIT  X7,FANSI/FBEF,SLTX     IF DEFINED BY ANSI                       LEX         1668     A     
 LEX                ANSI   E.SU4       CDC DEFINED INTRINSIC                               LEX         1669     A     
 LEX                =B7    1                                                               LEX         1670     A     
 LEX                EQ     SLTX        EXIT..                                              LEX         1671     A     
 LEX                                                                                       LEX         1672     A     
 LEX                                                                                       LEX         1673     A     
 LEX      **        HERE WHEN FUNCTION IS *BEF*                                            LEX         1674     A     
 LEX      *         SET UP SHIFT COUNT IF IN CALL BY VALUE.                                LEX         1675     A     
 LEX                                                                                       LEX         1676     A     
 LEX       SLT20    IFBIT  X7,FANSI/FBEF,SLT22                                             LEX         1677     A     
 LEX                NOTE   E.SU4A      NOTE - CDC DEFINES FUNCTION AS BEF.                 LEX         1678     A     
 LEX       SLT22    =X0    M.BEFF      INDICATE *BEF*                                      LEX         1679     A     
 LEX                SB7    0           INDICATE *BEF*                                      LEX         1680     A     
 LEX                BX3    X3+X0       ARGUMENT COUNT + CLASS + MODE                       LEX         1681     A     
 LEX                                                                                       LEX         1682     A     
 LEX      **        SCAN TABLE OF DEFINED *ANSI*/*CDC* SUPPLIED INTRINSICS,                LEX         1683     A     
 LEX      *         *BEFS* .                                                               LEX         1684     A     
 LEX                                                                                       LEX         1685     A     
 LEX       SLT      SUBR   0                                                               LEX         1686     A     
 LEX                BX2    X1                                                              LEX         1687     A     
 LEX                SB7    L.FIV                                                           LEX         1688     A     
 LEX                SA1    E.FIV                                                           LEX         1689     A     
 LEX                MX0    L.SYM-CHAR                                                      LEX         1690     A     
 LEX       SLT32    BX3    X0*X1       NAME ONLY.                                          LEX         1691     A     
 LEX                IX3    X3-X2                                                           LEX         1692     A     
 LEX                ZR     X3,SLT10    IF HIT                                              LEX         1693     A     
 LEX                =B7    B7-1                                                            LEX         1694     A     
 LEX                =A1    A1-1                                                            LEX         1695     A     
 LEX                NZ     B7,SLT32    IF NOT END OF TABLE.                                LEX         1696     A     
 LEX                =X3    M.NVAR+M.FUN+M.EXT                                              LEX         1697     A     
 LEX                =B7    -1          INDICATE NO SUCCESS.                                LEX         1698     A     
 LEX                EQ     SLTX        EXIT.. (NOT BEF, OR INLINE)                         LEX         1699     A     
 LEX       VCS      SPACE  4,8                                                             LEX         1700          I
          -FEAT126C 
 LEX      **        VCS -  VERIFY CHARACTER STRING.                                        LEX         1701          I
          -FEAT126C 
 LEX      *                                                                                LEX         1702          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 975    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
          -FEAT126C 
 LEX      *         *VCS* CHECKS EACH CHARACTER, C(I), OF A WORD, FLAGGING IT              LEX         1703          I
          -FEAT126C 
 LEX      *         IF IT LIES OUTSIDE THE RANGE  0 < C(I) @ M(I).                         LEX         1704          I
          -FEAT126C 
 LEX      *         EXCEPTION - TRAILING 0 CHARACTERS (6 BITS OF 0) ARE NEVER              LEX         1705          I
          -FEAT126C 
 LEX      *         FLAGGED.                                                               LEX         1706          I
          -FEAT126C 
 LEX      *                                                                                LEX         1707          I
          -FEAT126C 
 LEX      *         ALGORITHM DUE TO R. F. SMILEY.                                         LEX         1708          I
          -FEAT126C 
 LEX      *                                                                                LEX         1709          I
          -FEAT126C 
 LEX      *         ENTRY  (X1) = WORD TO BE CHECKED.                                      LEX         1710          I
          -FEAT126C 
 LEX      *                (X2) = MASK. IN EACH CHARACTER POSITION, M(I), THE              LEX         1711          I
          -FEAT126C 
 LEX      *                       MAXIMUM VALUE ALLOWED.                                   LEX         1712          I
          -FEAT126C 
 LEX      *                                                                                LEX         1713          I
          -FEAT126C 
 LEX      *         EXIT   (X1) = PRESERVED.                                               LEX         1714          I
          -FEAT126C 
 LEX      *                (X2) = PRESERVED.                                               LEX         1715          I
          -FEAT126C 
 LEX      *                (X3) = 4040 4040 4040 4040 4040B (CHARACTER FLAG WORD)          LEX         1716          I
          -FEAT126C 
 LEX      *                (X6) = FLAG WORD -- TOP BIT OF CHARACTER IS ON IF               LEX         1717          I
          -FEAT126C 
 LEX      *                       CHARACTER LIES OUTSIDE THE RANGE (BUT TRAILING           LEX         1718          I
          -FEAT126C 
 LEX      *                       0 CHARACTERS ARE NEVER FLAGGED).  IN PARTICULAR          LEX         1719          I
          -FEAT126C 
 LEX      *                       THE FLAG WORD IS ZERO IF ALL CHARACTERS LIE IN           LEX         1720          I
          -FEAT126C 
 LEX      *                       THE SPECIFIED RANGES, OR ARE TRAILING 0S.                LEX         1721          I
          -FEAT126C 
 LEX      *                                                                                LEX         1722          I
          -FEAT126C 
 LEX      *         USES   A3  X0,X3,X6,X7                                                 LEX         1723          I
          -FEAT126C 
 LEX                                                                                       LEX         1724          I
          -FEAT126C 
 LEX                                                                                       LEX         1725          I
          -FEAT126C 
 LEX       VCS      SUBR               ENTRY/EXIT...                                       LEX         1726          I
          -FEAT126C 
 LEX                SA3    =40404040404040404040B                                          LEX         1727          I
          -FEAT126C 
 LEX                BX0    -X3*X1                                                          LEX         1728          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 976    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
          -FEAT126C 
 LEX                BX7    X3+X2                                                           LEX         1729          I
          -FEAT126C 
 LEX                IX6    X0-X7       FLAG = CARRY IN                                     LEX         1730          I
          -FEAT126C 
 LEX                BX7    -X2+X1                                                          LEX         1731          I
          -FEAT126C 
 LEX                BX6    X6*X7                                                           LEX         1732          I
          -FEAT126C 
 LEX                BX7    -X2*X1                                                          LEX         1733          I
          -FEAT126C 
 LEX                BX6    X6+X7       FLAG = ILLEGAL CHAR ( = CARRY OUT, = OFLW)          LEX         1734          I
          -FEAT126C 
 LEX                                                                                       LEX         1735          I
          -FEAT126C 
 LEX                IX7    X0-X3       FLAG = CARRY IN                                     LEX         1736          I
          -FEAT126C 
 LEX                BX0    X7+X1       FLAG = ^ (000000)   ( = CARRY OUT, = OFLW)          LEX         1737          I
          -FEAT126C 
 LEX                                                                                       LEX         1738          I
          -FEAT126C 
 LEX                MX7    60-1                                                            LEX         1739          I
          -FEAT126C 
 LEX                IX7    X1+X7                                                           LEX         1740          I
          -FEAT126C 
 LEX                BX0    X0+X7       FLAG = ^ (EMBEDDED 0S)                              LEX         1741          I
          -FEAT126C 
 LEX                                                                                       LEX         1742          I
          -FEAT126C 
 LEX                BX7    -X0+X6      FLAG = ( EMBEDDED 0S) ! (ILLEGAL CHAR)              LEX         1743          I
          -FEAT126C 
 LEX                                                                                       LEX         1744          I
          -FEAT126C 
 LEX                BX6    X3*X7       NON-FLAG = 0                                        LEX         1745          I
          -FEAT126C 
 LEX                EQ     EXIT.                                                           LEX         1746          I
          -FEAT126C 
 LEX                LIST   D                                                               LEX         1747     A     
 LEX                END                                                                    LEX         1748     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - LEX     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          LEX                       1748      1424
          FCC0498                     12        12
          FCC0499                     21        21
          FCC0400                     62        62
          FCC0637                      1         1
          FCC0714                      4         4
          FEAT126C                     7         5
          FCC0683                      3         3
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 977    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LEX     
  
          FCC0635                      5         5
          FCC0844                      6         6
          FEAT155G                     2         1
          FCC1015                      2         2
          FCC1046                      2         2
          FCC1096                      2         2
          FCC1222                      1         1
          FCC1410                      1         1
          FCC1476X                     7         7
          FCC1559X                     3         0
          F162FTNA                     3         3
          F66FCC                       6         6
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY      *DECK     KEY                                                                    KEY            1     A     
 KEY                IDENT  KEY                                                             KEY            2     A     
 KEY       KEY      SECT   (KEYWORD STATEMENT PROCESSORS),1                                KEY            3     A     
 KEY                                                                                       KEY            4     A     
 KEY                SST    A,B,C,D,EXIT.                                                   KEY            5     A     
 KEY                NOREF  A,B,C,D,EXIT.                                                   KEY            6     A     
 KEY                                                                                       KEY            7     A     
 KEY       B=KEY    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             KEY            8     A     
 KEY                                                                                       KEY            9     A     
 KEY                ENTRY  END1B,END1C,LCC66,GOTA,RTU,EMT,CRL,SVALUE.                      KEY           10     A     
 KEY                ENTRY  NAM20                                                           FCC0499       26     A     
 KEY                                                                                       KEY           11     A     
 KEY      *         IN FTN                                                                 KEY           12     A     
 KEY                EXT    F.LGO                                                           KEY           13          I
          -FEAT126B 
 KEY                EXT    F.LGO,LOP=M,LOP=R                                               FEAT126B     913     A     
 KEY                                                                                       KEY           14     A     
 KEY      *         IN TABLES                                                              KEY           15     A     
 KEY                EXT    ASSN,ARGCOMA,ARGMODE,CCNT,CHARMAP,CALLOP,CALLARM,CSNTAG         KEY           16     A     
 KEY                EXT    DOORD,DTI,ENTRY.,ERROP,EXTCAL,ETF,FLOW,GOASS,GOTARM             KEY           17     A     
 KEY                EXT    HANGER,LDEAD,MOD,MULS,NARGS,NOPATH,NTRCNT,OPRETD,OPRETS         KEY           18     A     
 KEY                EXT    OPDUM,REFNUM,REFVAR,RTNCNT,SB.STNL,STN,TT.PAR,TS.SYM            KEY           19     A     
 KEY                EXT    TP.NLST,TP.DIM,TP=DO,TS.ENT,TG.PRO,TS.STN,TT=PAR,T.VDIM         KEY           20     A     
 KEY                EXT    TT=SCR,TT.SCR,TP=NLST,VALUE.                                    KEY           21          I
          -FEAT126B 
 KEY                EXT    TT=SCR,TT.SCR,TP=NLST,VALUE.,NOLIST,SLIST                       FEAT126B     914     A     
 KEY                                                                                       KEY           22     A     
 KEY      *         IN ERRORS                                                              KEY           23     A     
 KEY                EXT    E.AC5,E.AC8,E.AC9,E.AES,E.ANS,E.AP,E.AP1,E.ART,E.AS2            KEY           24     A     
 KEY                EXT    E.AS3,E.AS4,E.AS5,E.CL,E.CL1,E.CL2,E.CT,E.FM,E.GO,E.GO1         KEY           25     A     
 KEY                EXT    E.GO2,E.GO2A,E.GO3,E.GO4,E.GO5,E.GO6,E.GO7,E.GO8,E.LN1          KEY           26     A     
 KEY                EXT    E.LN2,E.LN3,E.LN4,E.ME,E.MR1,E.MR2,E.M$2,E.M$3,E.OV             KEY           27     A     
 KEY                EXT    E.OV1,E.OV3,E.PT,E.PT1,E.PT2,E.PT3,E.RA,E.RA1,E.SN16            KEY           28     A     
 KEY                EXT    E.APR,E.APR1,E.SPR,E.SPR1,E.SPR3,E.SU2,E.XC,FILL.               KEY           29     A     
 KEY                EXT    E.SU1,E.LN                                                      KEY           30     A     
 KEY                EXT   E.CL3                                                            FCC2307        7     A     
 KEY                                                                                       KEY           31     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 978    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY      *         IN BATCH                                                               KEY           32     A     
 KEY                EXT    RUN.X                                                           KEY           33          I
          -FCC1097
 KEY                EXT    RUN5                                                            FCC1097       13     A     
 KEY                                                                                       KEY           34     A     
 KEY      *         IN HEADER                                                              KEY           35     A     
 KEY                EXT    DCM,PPA,PSA                                                     KEY           36     A     
 KEY                                                                                       KEY           37     A     
 KEY      *         IN PIG                                                                 KEY           38     A     
 KEY                EXT    WIN                                                             KEY           39     A     
 KEY                                                                                       KEY           40     A     
 KEY      *         IN END                                                                 KEY           41     A     
 KEY                EXT    END                                                             KEY           42     A     
 KEY                                                                                       KEY           43     A     
 KEY      *         IN ALLOC                                                               KEY           44     A     
 KEY                EXT    ADW,ESY,SSY,NCS,CPM                                             KEY           45     A     
 KEY                                                                                       KEY           46     A     
 KEY      *         IN MAIN                                                                KEY           47     A     
 KEY                EXT    CUS.RET,PSP,PSP.F,ASL,ASK                                       KEY           48     A     
 KEY                                                                                       KEY           49     A     
 KEY      *         IN LEX                                                                 KEY           50     A     
 KEY                EXT    S.ACGOR,OCT,STY,TRV,TSF,S.END,S.PAUSE                           KEY           51     A     
 KEY                                                                                       KEY           52     A     
 KEY      *         IN IF                                                                  KEY           53     A     
 KEY                EXT    INIF,IFSN,IFREL1                                                KEY           54     A     
 KEY                                                                                       KEY           55     A     
 KEY      *         IN IO                                                                  KEY           56     A     
 KEY                EXT    LGR,TO                                                          KEY           57     A     
 KEY                                                                                       KEY           58     A     
 KEY      *         IN NUM                                                                 KEY           59     A     
 KEY                EXT    PSN,STN0R,ISN                                                   KEY           60     A     
 KEY                                                                                       KEY           61     A     
 KEY      *         IN REG                                                                 KEY           62     A     
 KEY                EXT    CIA,CRJ,CDS                                                     KEY           63     A     
 KEY                                                                                       KEY           64     A     
 KEY      *         IN PAR                                                                 KEY           65     A     
 KEY                EXT    CURST,PAR,FAL                                                   KEY           66     A     
 KEY                                                                                       KEY           67     A     
 KEY      *         IN GEN                                                                 KEY           68     A     
 KEY                EXT    O=NTR0,O=NTRP,O=QUITS,O=BSS,O=NTR,O=RETN,O=NTRX,O=NTRM          KEY           69     A     
 KEY                EXT    O=NTRN,O=NTRY,O=GOTON,O=QUITP,SA=BKS3,ZERO,CAI                  KEY           70     A     
 KEY                EXT    MXP,VEL,O=RTNA                                                  KEY           71     A     
 KEY                                                                                       KEY           72     A     
 KEY      *         IN INIT                                                                KEY           73     A     
 KEY                EXT    AGNK,CALLTAG,SCR,CST.BOS                                        KEY           74     A     
 KEY                                                                                       KEY           75     A     
 KEY      *         IN DECL                                                                KEY           76     A     
 KEY                EXT    CCT                                                             KEY           77     A     
 KEY                                                                                       KEY           78     A     
 KEY       AGN      SPACE  4                                                               KEY           79     A     
 KEY      **        AGN -  PROCESS "ASSIGN" STATEMENT.                                     KEY           80     A     
 KEY                                                                                       KEY           81     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 979    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                                                                                       KEY           82     A     
 KEY                HEREIF ASSIGN                                                          KEY           83     A     
 KEY                SA4    B4                                                              KEY           84     A     
 KEY                SB7    X4-O.CONS                                                       KEY           85     A     
 KEY                NZ     B7,E.AS4    IF NO LABEL                                         KEY           86     A     
 KEY                                                                                       KEY           87     A     
 KEY                RJ     ASL         ADJUST STATEMENT LABEL                              KEY           88     A     
 KEY                =X6    CR.STR                                                          KEY           89     A     
 KEY                =X7    CR.AGN                                                          KEY           90     A     
 KEY                SA6    REFVAR                                                          KEY           91     A     
 KEY                =B2    M.SNLAB                                                         KEY           92     A     
 KEY                BX6    X1                                                              KEY           93     A     
 KEY                SA7    REFNUM                                                          KEY           94     A     
 KEY                SA6    =XISASG     SET ASSIGN FLAG IN ISN                              FCC0639        5          I
          -FCC1058
 KEY                SA1    TP=DO                                                           FCC1058        5     A     
 KEY                NZ     X1,AGN1     IF INSIDE DO LOOP                                   FCC1058        6     A     
 KEY                =X7    0                                                               FCC1058        7     A     
 KEY                SA7    =XISASG     INDICATE NOT INSIDE DO LOOP                         FCC1058        8     A     
 KEY                EQ     AGN11                                                           FCC1058        9     A     
 KEY       AGN1     SA6    =XISASG     SET ASSIGN FLAG IN ISN                              FCC1058       10     A     
 KEY                RJ     ISN         IDENTIFY STATEMENT NUMBER                           KEY           95          I
          -FCC1058
 KEY       AGN11    RJ     ISN         IDENTIFY STATEMENT NUMBER                           FCC1058       11     A     
 KEY                                                                                       KEY           96     A     
 KEY                SA1    B4                                                              KEY           97     A     
 KEY                =A6    AGNK        SAVE LABEL TAG                                      KEY           98     A     
 KEY                SB7    X1-O.COMMA                                                      KEY           99     A     
 KEY                NZ     B7,AGN2     IF NO COMMA                                         KEY          100     A     
 KEY                =B4    B4+1                                                            KEY          101     A     
 KEY                WARN   E.AS5                                                           KEY          102     A     
 KEY                                                                                       KEY          103     A     
 KEY       AGN2     SX5    LGR                                                             KEY          104     A     
 KEY                SA5    X5+TO                                                           KEY          105     A     
 KEY                RJ     ASK         ADJUST STATEMENT KEYWORD *TO*                       KEY          106          I
          -FCC1274
 KEY                ZR     X3,AGN4                                                         KEY          107          I
          -FCC1274
 KEY                =B4    B4-1        ADJUST B4 FOR ERROR MESSAGE                         KEY          108          I
          -FCC1274
 KEY                WARN   E.AS2       ** TO ASSUMED WHEN CRUD APPEARS **                  KEY          109          I
          -FCC1274
 KEY                =B4    B4+1        RESET B4                                            KEY          110          I
          -FCC1274
 KEY                                                                                       KEY          111          I
          -FCC1274
 KEY       AGN4     RJ     TRV         TRANSLATE THE VARIABLE                              KEY          112          I
          -FCC1274
 KEY                SA1    B4                                                              FCC1274       12     A     
 KEY                MX0    2*CHAR                                                          FCC1274       13     A     
 KEY                BX6    X0*X1                                                           FCC1274       14     A     
 KEY                BX3    X0*X5                                                           FCC1274       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 980    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                IX3    X3-X6                                                           FCC1274       16     A     
 KEY                ZR     X3,AGN4     IF *TO*                                             FCC1274       17     A     
 KEY                SA6    FILL.                                                           FCC1274       18     A     
 KEY                WARN   E.AS2                                                           FCC1274       19     A     
 KEY                                                                                       FCC1274       20     A     
 KEY       AGN4     RJ     ASK         ADJUST STATEMENT KEYWORD *TO*                       FCC1274       21     A     
 KEY                RJ     TRV         TRANSLATE THE VARIABLE                              FCC1274       22     A     
 KEY                MI     X0,PSN      IF ERROR                                            FCC1410        8     A     
 KEY                SA4    TS.SYM                                                          KEY          113     A     
 KEY                SX3    M.DEF                                                           KEY          114     A     
 KEY                BX6    X3+X2                                                           KEY          115          I
          -FCCA434
 KEY                BX6    X3+X6                                                           FCCA434        6     A     
 KEY                SA6    X4+B7       SET DEFINED BIT IN SYMBOL TABLE                     KEY          116     A     
 KEY                ZR     B7,PSN      IF NOT VARIABLE                                     KEY          117          I
          -FCC1410
 KEY                =A3    B4+1                                                            KEY          118     A     
 KEY                BX5    X2          PASS *2* TAG                                        KEY          119     A     
 KEY                SB7    X1-M.INT                                                        KEY          120     A     
 KEY                SB3    ASSN                                                            KEY          121     A     
 KEY                SB3    -B3                                                             KEY          122     A     
 KEY                =B4    B4+1        BUMP B4 FOR POSSIBLE ERROR MESSAGE                  KEY          123     A     
 KEY                ZR     B7,AGN5     IF INTEGER VARIABLE                                 KEY          124     A     
 KEY                WARN   E.AS3                                                           KEY          125     A     
 KEY                                                                                       KEY          126     A     
 KEY       AGN5     ZR     X3,AGN7     IF NEXT ELEMENT *EOS*                               KEY          127     A     
 KEY                WARN   E.XC        ** IGNORED ENDING CRUD **                           KEY          128     A     
 KEY                                                                                       KEY          129     A     
 KEY       AGN7     SA1    TT.PAR                                                          KEY          130     A     
 KEY                SA4    AGNK        (1OP) = STATEMENT LABEL                             KEY          131     A     
 KEY      *         =X5    X5          (2OP) = VARIABLE                                    KEY          132     A     
 KEY                AX4    P.TAG                                                           KEY          133     A     
 KEY                RJ     EMT                                                             KEY          134     A     
 KEY                EQ     PSN         EXIT..                                              KEY          135     A     
 KEY                                                                                       KEY          136     A     
 KEY                HEREIF TO                                                              KEY          137     A     
 KEY                EQ     E.FM                                                            KEY          138     A     
 KEY       BKD      SPACE  4,8                                                             KEY          139     A     
 KEY      **        BKD -  PROCESS "BLOCKDATA" STATEMENT.                                  KEY          140     A     
 KEY      *         EXIT   TO MASTER LOOP.                                                 KEY          141     A     
 KEY      *         CALLS  1.  DCM = ASSEMBLE THE PROGRAM NAME.                            KEY          142     A     
 KEY                                                                                       KEY          143     A     
 KEY                                                                                       KEY          144     A     
 KEY                HEREIF BLOCKDATA                                                       KEY          145     A     
 KEY                                                                                       KEY          146     A     
 KEY                SA1    B4                                                              KEY          147     A     
 KEY                SA2    BKDA                                                            KEY          148     A     
 KEY                =X7    0                                                               FCC1524X      21     A     
 KEY                NZ     X1,BKD1     IF NAME SPECIFIED                                   KEY          149          I
          -FCC1998
 KEY                MX7    0                                                               KEY          150          I
          -FCC1524X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 981    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                BX6    X2                                                              KEY          151          I
          -FCC1998
 KEY                ZR     X1,BKD1     IF NAME NOT SPECIFIED                               FCC1998        9     A     
 KEY                ANSI   =XE.ANS4    NON-ANSI FORM OF BLOCK DATA                         FCC1998       10     A     
 KEY                EQ     BKD2                                                            FCC1998       11     A     
 KEY       BKD1     BX6    X2                                                              FCC1998       12     A     
 KEY                SA6    B4          DEFAULT NAME TO *SB*                                KEY          152     A     
 KEY                SA7    B4+B1                                                           KEY          153     A     
 KEY       BKD1     =X6    M.PBLK                                                          KEY          154          I
          -FCC1998
 KEY       BKD2     =X6    M.PBLK      PROGRAM-UNIT COMPILE MODE                           FCC1998       13     A     
 KEY                SA7    =XBA.PRO                                                        FCC1524X      22     A     
 KEY                SA4    =9HBLOCKDATA                                                    KEY          155          I
          -FCC1328X 
 KEY                SA4    =9ABLOCKDATA                                                    FCC1328X     539     A     
 KEY                RJ     DCM         DISPLAY COMPILING MESSAGE                           KEY          156     A     
 KEY                EQ     PSP         CONTINUE                                            KEY          157     A     
 KEY                                                                                       KEY          158     A     
 KEY       BKDA     CON    7LBLKDAT.+O.VAR                                                 KEY          159     A     
 KEY       CLL      SPACE  4,20                                                            KEY          160     A     
 KEY      **        CLL -  PROCESS "CALL" STATEMENT.                                       KEY          161     A     
 KEY                                                                                       KEY          162     A     
 KEY                                                                                       KEY          163     A     
 KEY                HEREIF CALL                                                            KEY          164     A     
 KEY                                                                                       KEY          165     A     
 KEY                SA1    B4                                                              KEY          166     A     
 KEY                SB7    X1-O.VAR                                                        KEY          167     A     
 KEY                NZ     B7,E.CL     IF NO NAME SUPLIED.                                 KEY          168     A     
 KEY                RJ     MXP                                                             KEY          169     A     
 KEY                SX7    CR.SUB                                                          KEY          170     A     
 KEY                SA7    REFVAR      INITIALIZE REFERENCE TYPE                           KEY          171     A     
 KEY                TAGSUB B4                                                              KEY          172     A     
 KEY                BX1    X6                                                              KEY          173     A     
 KEY                CLAS=  X3,(ENT,VAR,ASF,INLINE)                                         KEY          174          I
          -FCC1467X 
 KEY                CLAS=  X3,(ENT,VAR,ASF,INLINE,BEF)                                     FCC1467X       5     A     
 KEY                SX2    P.EXT                                                           KEY          175     A     
 KEY                RJ     CCT         CHECK FOR CONFLICTING TYPE                          KEY          176     A     
 KEY                ZR     X6,PSN      IF CONFLICTING TYPE                                 KEY          177     A     
 KEY                BX0    X6                                                              FCC2307        8     A     
 KEY                IFBIT  X0,-FUN,CCL14                                                   FCC2307        9     A     
 KEY                ANSI   E.CL3        SAME NAME USED AS A FUNCTION AND SUB               FCC2307       10     A     
 KEY       CCL14    BSS    0                                                               FCC2307       11     A     
 KEY                MX0    -L.FPNO                                                         KEY          178     A     
 KEY                AX1    P.FPNO                                                          KEY          179     A     
 KEY                MX3    L.TAG+L.MODE                                                    KEY          180     A     
 KEY                BX4    -X0*X1      EXTRACT SYMBOL TABLE *PARM* FIELD                   KEY          181     A     
 KEY                LX3    L.MODE                                                          KEY          182     A     
 KEY                LX4    P.2FPNO     F.P. NUMBER TO PASS *2* FIELD                       KEY          183     A     
 KEY                BX1    X3*X6       TAG + MODE                                          KEY          184     A     
 KEY                LX2    X6                                                              KEY          185     A     
 KEY                IX6    X1+X4       TAG + PARM + MODE, PASS *2* TAG                     KEY          186     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 982    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                =A1    B4+1                                                            KEY          187     A     
 KEY                BX5    X2          REMEMBER PASS *1* TAG                               KEY          188     A     
 KEY                SA6    CALLTAG     SAVE PASS *2* TAG FOR PARSER                        KEY          189     A     
 KEY                SBIT   X2,DEF                                                          KEY          190     A     
 KEY                SB2    X1-O.VAR                                                        KEY          191     A     
 KEY                NZ     B2,CLL15    IF NOT LONG NAME                                    KEY          192     A     
 KEY                SB2    B7          SAVE B7                                             KEY          193     A     
 KEY                RJ     =XTLV       TRUNCATE NAME                                       KEY          194     A     
 KEY                SB7    B2          RESTORE B7                                          KEY          195     A     
 KEY                =A1    B4+1                                                            KEY          196     A     
 KEY       CLL15    SB2    X1-O.LP                                                         KEY          197     A     
 KEY                ZR     X1,CLL40    IF NO PARAMETERS                                    KEY          198     A     
 KEY                MI     X2,CLL20    IF NOT FIRST USE                                    KEY          199     A     
 KEY                SA2    TS.SYM                                                          KEY          200     A     
 KEY                BX7    X5                                                              KEY          201     A     
 KEY                SA7    X2+B7       STORE BITS INTO SYMBOL TABLE                        KEY          202     A     
 KEY                                                                                       KEY          203     A     
 KEY       CLL20    NZ     B2,CLL50    IF NOT PAREN                                        KEY          204     A     
 KEY                =B4    B4+1        POINT TO *(*                                        KEY          205     A     
 KEY                =X6    O.SLP                                                           KEY          206     A     
 KEY                SA6    A1          SET DUMMY *(* FOR PARSER                            KEY          207     A     
 KEY                SA1    CALLARM                                                         KEY          208     A     
 KEY                SA2    TT=SCR                                                          KEY          209     A     
 KEY                LX2    36                                                              KEY          210     A     
 KEY                BX6    X1                                                              KEY          211     A     
 KEY                BX7    X2                                                              KEY          212     A     
 KEY      */ALLOW LONG NAMES IN ENTRY STATEMENT,ADD CHECK FOR LEGAL NAME                   KEY          213          I
          -FCC0498
 KEY                SA7    ARGCOMA                                                         KEY          214     A     
 KEY                SA6    ARGMODE                                                         KEY          215     A     
 KEY                RJ     PAR         REDUCE TO SIMPLEST EXPRESSION                       KEY          216     A     
 KEY                                                                                       KEY          217     A     
 KEY       CLL25    ALLOC  TT.PAR,L.TURP                                                   KEY          218     A     
 KEY                SA1    =XTRLINE    EMIT(O=RJT, SUBR, LINENO.)                          KEY          219     A     
 KEY                SA2    =XCALLTAG                                                       KEY          220     A     
 KEY                BX7    X2                                                              KEY          221     A     
 KEY                BX6    X1                                                              KEY          222     A     
 KEY                SA1    =XEXTCAL                                                        KEY          223     A     
 KEY                =A6    B7-L.TURP+OR.2OP                                                KEY          224     A     
 KEY                BX6    X1                                                              KEY          225     A     
 KEY                =A7    A6-OR.2OP+OR.1OP                                                KEY          226     A     
 KEY                =A6    A7-OR.1OP+OR.OPR                                                KEY          227     A     
 KEY                                                                                       KEY          228     A     
 KEY                                                                                       KEY          229     A     
 KEY      **        HERE WHEN ALL ARGUMENTS HAVE BEEN PROCESSED.                           KEY          230     A     
 KEY      *         PROCESS EXTERNAL JUMP AND EXIT TO MASTER LOOP.                         KEY          231     A     
 KEY                                                                                       KEY          232     A     
 KEY                EQ     PSN         EXIT..                                              KEY          233     A     
 KEY                                                                                       KEY          234     A     
 KEY                                                                                       KEY          235     A     
 KEY      **        HERE IF NULL LIST.                                                     KEY          236     A     
 KEY      *         PROCESS EXTERNAL JUMP AND EXIT TO MASTER LOOP.                         KEY          237     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 983    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                                                                                       KEY          238     A     
 KEY       CLL40    MI     X2,CLL41    IF NOT 1ST USE.                                     KEY          239     A     
 KEY                SA2    TS.SYM                                                          KEY          240     A     
 KEY                =X0    M.DEF                                                           KEY          241     A     
 KEY                BX6    X5+X0                                                           KEY          242     A     
 KEY                SA6    X2+B7       RESET INDICATING DEFINED, ARGUMENTS = 0.            KEY          243     A     
 KEY                =X7                                                                    KEY          244     A     
 KEY                EQ     CLL25       CONTINUE..                                          KEY          245     A     
 KEY                                                                                       KEY          246     A     
 KEY      **        HERE IF ALREADY USED, CHECK ARGUMENT COUNT AGREEMENT.                  KEY          247     A     
 KEY                                                                                       KEY          248     A     
 KEY       CLL41    AX5    P.UARGC                                                         KEY          249     A     
 KEY                MX0    -L.UARGC                                                        KEY          250     A     
 KEY                BX7    -X0*X5                                                          KEY          251     A     
 KEY                ZR     X7,CLL25    IF ARGUMENT COUNT AGREES                            KEY          252     A     
 KEY                WARN   E.SU2       ARGUMENT COUNT NOT CONSISTENT.                      KEY          253     A     
 KEY                EQ     CLL25                                                           KEY          254     A     
 KEY                                                                                       KEY          255     A     
 KEY       CLL50    SB2    X1-O.COMMA                                                      KEY          256     A     
 KEY                =B4    B4+1                                                            KEY          257     A     
 KEY                NZ     B2,E.CL1    IF NO *,* - ERROR                                   KEY          258     A     
 KEY                SA2    TT=SCR                                                          KEY          259     A     
 KEY                LX2    36                                                              KEY          260     A     
 KEY                BX7    X2                                                              KEY          261     A     
 KEY                SA7    ARGCOMA                                                         KEY          262     A     
 KEY                RJ     CRL         PROCESS CALL STATEMENT RETURNS  LIST                KEY          263     A     
 KEY                LX6    X2                                                              FEAT155EA     29     A     
 KEY                SA6    SCR+1       FOR FAL                                             FEAT155EA     30     A     
 KEY                SA4    CALLTAG     ROUTINE TAG NEEDED BY VEL                           KEY          264     A     
 KEY                RJ     VEL         VALIDATE ARGUMENT LIST                              KEY          265     A     
 KEY                RJ     FAL         FLUSH ARGUMENT LOAD TURPLES                         KEY          266     A     
 KEY                EQ     CLL25                                                           KEY          267     A     
 KEY                                                                                       KEY          268     A     
 KEY       CERN     SPACE  4,8                                                             KEY          269     A     
 KEY      **        CRL -  PROCESS CALL STATEMENT RETURNS LIST                             KEY          270     A     
 KEY      *                                                                                KEY          271     A     
 KEY      *         ENTRY  (B4) _ COMMA PRECEDING (HOPEFULLY) *RETURNS*                    KEY          272     A     
 KEY      *                (X2) = (ARGCOMA)                                                KEY          273     A     
 KEY      *                                                                                KEY          274     A     
 KEY      *         EXIT   *TURPLES* FOR RETURNS LIST PARAMETERS ADDED TO TT.SCR           KEY          275     A     
 KEY      *                (X2) = (ARGCOMA) UPDATED                                        KEY          276     A     
 KEY      *                                                                                KEY          277     A     
 KEY      *         USES   A1,A3,A6,A7  X0,X4  B2,B3,B7                                    KEY          278     A     
 KEY      *         NOTE - X5 IS PRESERVED                                                 KEY          279     A     
 KEY      *                                                                                KEY          280     A     
 KEY      *         CALLS  ISN                                                             KEY          281     A     
 KEY                                                                                       KEY          282     A     
 KEY                                                                                       KEY          283     A     
 KEY       CRL      SUBR               ENTRY/EXIT...                                       KEY          284     A     
 KEY                BX6    X5                                                              KEY          285     A     
 KEY                SA6    SAVEX5      X5 MAY CONTAIN OPERAND NEEDED LATER                 KEY          286     A     
 KEY                SA1    B4+B1                                                           KEY          287     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 984    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                SB4    B4+B1                                                           KEY          288     A     
 KEY                MX0    LG.VAR*CHAR                                                     KEY          289     A     
 KEY                SB7    X1-O.VAR                                                        KEY          290     A     
 KEY                BX6    X0*X1                                                           KEY          291     A     
 KEY                NZ     B7,CRLERR   IF NOT LETTER - ERROR                               KEY          292     A     
 KEY                MX4    4*CHAR                                                          KEY          293     A     
 KEY                BX4    X4*X1                                                           KEY          294     A     
 KEY                SA3    =0LRETU                                                         KEY          295     A     
 KEY                IX4    X4-X3                                                           KEY          296     A     
 KEY                NZ     X4,CRLERR   IF FIRST 4 LETTERS NOT *RETU*                       KEY          297     A     
 KEY                SA3    =0LRETURNS                                                      KEY          298     A     
 KEY                IX4    X6-X3                                                           KEY          299     A     
 KEY                ZR     X4,CRL10    IF *RETURNS*                                        KEY          300     A     
 KEY                WARN   E.AC9                                                           KEY          301     A     
 KEY       CRL10    ANSI   E.ANS                                                           KEY          302     A     
 KEY                SA1    B4+B1                                                           KEY          303     A     
 KEY                SB4    B4+B1                                                           KEY          304     A     
 KEY                SX4    X1-O.(                                                          KEY          305     A     
 KEY                NZ     X4,E.AP     IF NO *(* - ERROR                                   KEY          306     A     
 KEY                MX5    0           BOTH ARGS DUMMY FOR -0 WORD TURPLE                  KEY          307     A     
 KEY                SB3    CALLOP                                                          KEY          308     A     
 KEY                SB3    -B3                                                             KEY          309     A     
 KEY                SA1    TT.SCR                                                          KEY          310     A     
 KEY                RJ     EMT         O=ARG TREATS THIS ONE SPECIAL                       KEY          311     A     
 KEY                SX6    X2+B1       UPDATE ARGCOMA VALUE                                KEY          312     A     
 KEY                SA6    ARGCOMA                                                         KEY          313     A     
 KEY                =B4    B4+1                                                            KEY          314     A     
 KEY       CRL20    SA1    B4                                                              KEY          315     A     
 KEY                MX0    LG.STN*CHAR                                                     KEY          316     A     
 KEY                SB7    X1-O.CONS                                                       KEY          317     A     
 KEY                BX6    X0*X1                                                           KEY          318     A     
 KEY                SA6    FILL.                                                           KEY          319     A     
 KEY                ZR     B7,CRL30    IF DIGIT                                            KEY          320     A     
 KEY                MX0    L.CDPC                                                          FCC1096        9     A     
 KEY                SA2    X1+CHARMAP                                                      FCC1096       10     A     
 KEY                NZ     X2,CRL21    IF NOT VARIABLE                                     FCC1096       11     A     
 KEY                LX2    X1                                                              FCC1096       12     A     
 KEY       CRL21    BX6    X2*X0                                                           FCC1096       13     A     
 KEY                SA6    FILL.                                                           FCC1096       14     A     
 KEY                FATAL  E.CL2       RETURNS ARG MUST BE NUMERIC                         KEY          321     A     
 KEY                EQ     CRL40                                                           KEY          322     A     
 KEY                                                                                       KEY          323     A     
 KEY       CRL30    SA1    CR.CALL                                                         KEY          324     A     
 KEY                BX7    X1                                                              KEY          325     A     
 KEY                SA7    REFNUM                                                          KEY          326     A     
 KEY                =B2    M.SNLAB+M.SNREF                                                 KEY          327     A     
 KEY                RJ     ISN         IDENTIFY STATEMENT NUMBER                           KEY          328     A     
 KEY                BX5    X6          STATEMENT NUMBER TAG                                KEY          329     A     
 KEY                MX4    0           1ST OPERAND = DUMMY                                 KEY          330     A     
 KEY                SB3    CALLOP                                                          KEY          331     A     
 KEY                SB3    -B3                                                             KEY          332     A     
 KEY                SA1    TT.SCR                                                          KEY          333     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 985    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                RJ     EMT                                                             KEY          334     A     
 KEY       CRL40    SA2    ARGCOMA                                                         KEY          335     A     
 KEY                SX6    X2+B1       UPDATE ARGCOMA                                      KEY          336     A     
 KEY                SA6    ARGCOMA                                                         KEY          337     A     
 KEY                =A3    B4+1                                                            KEY          338     A     
 KEY                ZR     X3,E.MR1    IF PREMATURE *EOS*                                  KEY          339     A     
 KEY                SA1    A3+B1                                                           KEY          340     A     
 KEY                SX4    X3-O.COMMA                                                      KEY          341     A     
 KEY                SB4    A3+B1                                                           KEY          342     A     
 KEY                ZR     X4,CRL20    IF *,* LOOP ON NEXT ARGUMENT                        KEY          343     A     
 KEY                SX4    X3-O.)                                                          KEY          344     A     
 KEY                NZ     X4,E.AP1    IF NO *)* - ERROR                                   KEY          345     A     
 KEY                ZR     X1,CRL50    IF *EOS*                                            KEY          346     A     
 KEY                WARN   E.AC8                                                           KEY          347     A     
 KEY       CRL50    SA5    SAVEX5                                                          KEY          348     A     
 KEY                SA2    ARGCOMA                                                         KEY          349     A     
 KEY                SB2    X2-MAX.SARG                                                     KEY          350     A     
 KEY                LE     B2,EXIT.    IF DOESNT EXCEED COMPILER LIMIT                     KEY          351     A     
 KEY                SA4    CALLTAG                                                         KEY          352     A     
 KEY                AX4    P.2TAG                                                          KEY          353     A     
 KEY                SA1    TS.SYM                                                          KEY          354     A     
 KEY                SB2    X4-C.SYM                                                        KEY          355     A     
 KEY                SA4    X1+B2                                                           KEY          356     A     
 KEY                =A1    A4-1                                                            KEY          357     A     
 KEY                MX0    L.SYM                                                           KEY          358     A     
 KEY                BX6    X0*X1                                                           KEY          359     A     
 KEY                SA6    =XFILL.3                                                        KEY          360     A     
 KEY                FATAL  =XE.SU8                                                         KEY          361     A     
 KEY                EQ     EXIT.                                                           KEY          362     A     
 KEY                                                                                       KEY          363     A     
 KEY      *         IF NOT RETURNS FOLLOWING *ARGUMENT LIST* *,*                           KEY          364     A     
 KEY                                                                                       KEY          365     A     
 KEY       CRLERR   SA2    X1+=XCHARMAP                                                    KEY          366     A     
 KEY                NZ     X2,CRLERR1  IF NOT VAR OR CONS                                  KEY          367     A     
 KEY                LX2    X1                                                              KEY          368     A     
 KEY       CRLERR1  MX0    L.CDPC                                                          KEY          369     A     
 KEY                BX6    X0*X2                                                           KEY          370     A     
 KEY                SA6    FILL.                                                           KEY          371     A     
 KEY                EQ     E.AC5                                                           KEY          372     A     
 KEY                                                                                       KEY          373     A     
 KEY       SAVEX5   DATA   0                                                               KEY          374     A     
 KEY                SPACE  4,8                                                             KEY          375     A     
 KEY       CTU      SPACE  4                                                               KEY          376     A     
 KEY      **        CON -  PROCESS "CONTINUE" STATEMENT.                                   KEY          377     A     
 KEY      *         EXIT   TO MASTER LOOP.                                                 KEY          378     A     
 KEY                                                                                       KEY          379     A     
 KEY                                                                                       KEY          380     A     
 KEY                HEREIF CONTINUE                                                        KEY          381     A     
 KEY                                                                                       KEY          382     A     
 KEY                RJ     MXP         MARK EXTERNAL PROCESS                               KEY          383     A     
 KEY                =A2    B4                                                              KEY          384     A     
 KEY                SA4    STN                                                             KEY          385     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 986    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                ZR     X2,CON      IF E.O.S.                                           KEY          386     A     
 KEY                WARN    =XE.XC     GARBAGE IGNORED AT E.O.S.                           KEY          387     A     
 KEY       CON      ZR     X4,E.CT     IF NO STATEMENT NUMBER                              KEY          388          I
          -FCC1636X 
 KEY       CON      SA2    INIF                                                            FCC1636X       9     A     
 KEY                ZR     X2,CON15    IF *CONTINUE* NOT OBJECT OF *IF*                    FCC1636X      10     A     
 KEY                NOTE   E.GO2A      IF RESULTS IN A TRANSFER TO NEXT LINE               FCC1636X      11     A     
 KEY                EQ     PSN                                                             FCC1636X      12     A     
 KEY                                                                                       FCC1636X      13     A     
 KEY       CON15    ZR     X4,E.CT     IF NO STATEMENT NUMBER                              FCC1636X      14     A     
 KEY                EQ     PSN         CONTINUE                                            KEY          389     A     
 KEY       END1     SPACE  4,8                                                             KEY          390     A     
 KEY      **        END1 - START OF END STMNT                                              KEY          391     A     
 KEY      *         EXIT   TO *END* PROCESSING  (PASS 2).                                  KEY          392     A     
 KEY                                                                                       KEY          393     A     
 KEY                                                                                       KEY          394     A     
 KEY                HEREIF END                                                             KEY          395     A     
 KEY                                                                                       KEY          396     A     
 KEY                SA2    SB.STNL                                                         KEY          397          I
          -FEAT126B 
 KEY                SA1    NOLIST                                                          FEAT126B     915     A     
 KEY                SA3    LOP=M                                                           FEAT126B     916     A     
 KEY                SA4    LOP=R                                                           FEAT126B     917     A     
 KEY                MI     X1,END1     IF IN *LIST,ALL* MODE AT END LINE TIME              FEAT126B     918     A     
 KEY                                                                                       FEAT126B     919     A     
 KEY      *         HERE IF IN *LIST,NONE* MODE AT END LINE TIME.                          FEAT126B     920     A     
 KEY                                                                                       FEAT126B     921     A     
 KEY                MX6    0                                                               FEAT126B     922     A     
 KEY                SA6    A3+         SET TO *NO REF MAP*                                 FEAT126B     923     A     
 KEY                SA6    A4+         SET TO *NO REF MAP*                                 FEAT126B     924     A     
 KEY                                                                                       FEAT126B     925     A     
 KEY      *         CHECK FOR LABELLED END.                                                FEAT126B     926     A     
 KEY                                                                                       FEAT126B     927     A     
 KEY       END1     SA2    SB.STNL                                                         FEAT126B     928     A     
 KEY                ZR     X2,END1A    IF NO STATEMENT LABEL                               KEY          398     A     
 KEY                BX6    X2                                                              KEY          399     A     
 KEY                SA6    FILL.                                                           KEY          400     A     
 KEY                WARN   E.SN16      ** STATEMENT LABEL IGNORED **                       KEY          401     A     
 KEY                                                                                       KEY          402     A     
 KEY       END1A    SA5    "SB.KEY"                                                        KEY          403     A     
 KEY                MI     X5,E.ME     IF GENERATED END LINE  (RETURN -1B)                 KEY          404     A     
 KEY                                                                                       KEY          405     A     
 KEY       END1B    SA2    MULS                                                            KEY          406     A     
 KEY                BX6    0                                                               KEY          407     A     
 KEY                SA6    A2                                                              KEY          408     A     
 KEY                NZ     X2,E.M$2    IF MULT STATMT ON LINE (RETURN -1C)                 KEY          409     A     
 KEY                                                                                       KEY          410     A     
 KEY       END1C    SA1    B4                                                              KEY          411     A     
 KEY                ZR     X1,END1E    IF END OF STATEMENT                                 KEY          412     A     
 KEY                WARN   E.XC        ** TRAILING GARBAGE IGNORED **                      KEY          413     A     
 KEY                                                                                       KEY          414     A     
 KEY       END1E    SA5    MOD                                                             KEY          415     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 987    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                SA1    FLOW                                                            KEY          416     A     
 KEY                IFBIT  X5,PBLK,END1X         IF *BLOCKDATA*                            KEY          417          I
          -FEAT155G 
 KEY                NZ     X1,END1X    IF NO FLOW INTO *ENE STATEMENT                      KEY          418          I
          -FEAT155G 
 KEY                IFBIT  X5,PBLK,END IF *BLOCK DATA*                                     FEAT155G     345     A     
 KEY                NZ     X1,END      IF NO FLOW INTO *END* STATEMENT                     FEAT155G     346     A     
 KEY                SA1    NOPATH                                                          FCC1638X       7     A     
 KEY                NZ     X1,END      IF LAST STATEMENT WAS A TRANSFER OF CONTROL         FCC1638X       8     A     
 KEY                ANSI   E.AES       NON ANSI USAGE.                                     KEY          419     A     
 KEY                IFBIT  X5,PPRO/PBLK,END1D              IF MAIN PROGRAM                 KEY          420     A     
 KEY                EQ     END1X                                                           KEY          421          I
          -FEAT155G 
 KEY                EQ     END                                                             FEAT155G     347     A     
 KEY                                                                                       KEY          422     A     
 KEY       END1D    RJ     SER         COMPILE END INSTRUCTIONS                            KEY          423     A     
 KEY                EQ     END         RETURN                                              KEY          424     A     
 KEY                                                                                       KEY          425          I
          -FEAT155G 
 KEY       END1X    EQU    END                                                             KEY          426          I
          -FEAT155G 
 KEY       FCT      SPACE  4,8                                                             KEY          427     A     
 KEY      **        FCT -  PROCESS "FUNCTION" STATEMENT.                                   KEY          428     A     
 KEY      *         EXIT   TO MASTER LOOP.                                                 KEY          429     A     
 KEY      *         CALLS  1.  DCM = ASSEMBLE THE PROGRAM NAME.                            KEY          430     A     
 KEY      *                2.  PSA = PROCESS ANY FORMAL PARAMETER LIST.                    KEY          431     A     
 KEY      *                3.  TRV = ENTER *VALUE.* INTO SYMBOL TABLE.                     KEY          432     A     
 KEY                                                                                       KEY          433     A     
 KEY                                                                                       KEY          434     A     
 KEY                HEREIF FUNCTION                                                        KEY          435     A     
 KEY                                                                                       KEY          436     A     
 KEY                SA2    B4                                                              KEY          437     A     
 KEY                SA1    ETF                                                             KEY          438     A     
 KEY                BX6    X2                                                              KEY          439     A     
 KEY                NZ     X1,FCT2     IF FUNCTION EXPLICITLY TYPED                        KEY          440     A     
 KEY                SB7    X2-3                                                            KEY          441     A     
 KEY                NZ     B7,FCT2     IF NOT VARIABLE,BYPASS STY                          KEY          442     A     
 KEY                MX0    -CHAR                                                           KEY          443     A     
 KEY                LX2    CHAR                                                            KEY          444     A     
 KEY                BX2    -X0*X2                                                          KEY          445     A     
 KEY                SB7    X2-1R0                                                          KEY          446     A     
 KEY                PL     B7,FCT2     IF FIRST CHARACTER NOT LETTER                       KEY          447     A     
 KEY                RJ     STY                                                             KEY          448     A     
 KEY       FCT2     SX6    X1+M.PFNC   SUBPROGRAM MODE                                     KEY          449     A     
 KEY                SA4    =8HFUNCTION                                                     KEY          450          I
          -FCC1328X 
 KEY                SA4    =8AFUNCTION                                                     FCC1328X     540     A     
 KEY                RJ     DCM         DISPLAY COMPILING MESSAGE                           KEY          451     A     
 KEY                RJ     PSA         PROCESS SUBPROGRAM ARGUMENTS                        KEY          452     A     
 KEY                SB4    SVALUE.                                                         KEY          453     A     
 KEY                RJ     TRV         ENTER THE FUNCTION-VALUE CELL                       KEY          454     A     
 KEY                SA3    MOD                                                             KEY          455     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 988    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                MX0    -L.MODE                                                         KEY          456     A     
 KEY                BX6    X0*X6                                                           KEY          457     A     
 KEY                SA2    TS.SYM                                                          KEY          458     A     
 KEY                BX3    -X0*X3                                                          KEY          459     A     
 KEY                IX6    X6+X3       INSURE MODE IS SAME AS MAIN ENTRY                   KEY          460     A     
 KEY                SA6    X2+B7       RESET TAG IN SYMBOL TABLE.                          KEY          461     A     
 KEY                SX7    B7                                                              KEY          462     A     
 KEY                SA7    VALUE.                                                          KEY          463     A     
 KEY                EQ     PSP                                                             KEY          464     A     
 KEY                                                                                       KEY          465     A     
 KEY       SVALUE.  VFD    42/0LVALUE.,18/O.VAR                                            KEY          466     A     
 KEY       LCC      SPACE  4,8                                                             KEY          467     A     
 KEY      **        LCC -  HANDLE EMBEDDED LOADER CONTROL CARDS.                           KEY          468     A     
 KEY      *                                                                                KEY          469     A     
 KEY      *         DIRECTIVES CURRENTLY KNOWN ARE --                                      KEY          470     A     
 KEY      *                "OVERLAY"                                                       KEY          471     A     
 KEY      *                "LDSET"                                                         KEY          472     A     
 KEY      *                                                                                KEY          473     A     
 KEY      *         EXIT   TO RUN.X, SO THAT A FOLLOWING *IDENT* MAY BE DETECTED.          KEY          474     A     
 KEY                                                                                       KEY          475     A     
 KEY                                                                                       KEY          476     A     
 KEY                HEREIF LDSET                                                           KEY          477     A     
 KEY                                                                                       KEY          478     A     
 KEY                SA3    =5RLDSET                                                        KEY          479     A     
 KEY                SB2    5*CHAR                                                          KEY          480     A     
 KEY                EQ     LCC                                                             KEY          481     A     
 KEY                                                                                       KEY          482     A     
 KEY                                                                                       KEY          483     A     
 KEY                HEREIF OVERLAY                                                         KEY          484     A     
 KEY                SA3    =7ROVERLAY                                                      KEY          485     A     
 KEY                SB2    3*CHAR                                                          KEY          486     A     
 KEY                                                                                       KEY          487     A     
 KEY       LCC      SA2    B4                                                              KEY          488     A     
 KEY                BX7    X3                                                              FCC1097       14     A     
 KEY                SA7    =XLDRFLG                                                        FCC1097       15     A     
 KEY                =A1    =XFV.LGO                                                        FCC1373        6     A     
 KEY                ZR     X1,RUN5     IF BINARY OUTPUT SUPPRESSED (B=0)                   FCC1373        7     A     
 KEY                MX0    -CHAR                                                           KEY          489     A     
 KEY                SB7    X2-O.(                                                          KEY          490     A     
 KEY                ZR     X2,E.OV     ** WARN -- NULL LCC IS IGNORED **                   KEY          491     A     
 KEY                SA6    SCR                                                             KEY          492     A     
 KEY                NZ     B7,E.OV1    ** FATAL - LCC MISSING BEGINNING LPAREN **          KEY          493     A     
 KEY                BX6    X3                                                              KEY          494     A     
 KEY                                                                                       KEY          495     A     
 KEY       LCC2     SA1    X2+CHARMAP                                                      KEY          496     A     
 KEY                NZ     X1,LCC3     IF NOT *SYMBOL*                                     KEY          497     A     
 KEY                BX1    X0*X2       USE *SB* CHARACTERS                                 KEY          498     A     
 KEY                                                                                       KEY          499     A     
 KEY       LCC3     LX1    CHAR                                                            KEY          500     A     
 KEY                SB0    0                                                               KEY          501     A     
 KEY                BX3    -X0*X1                                                          KEY          502     A     
 KEY       LCC35    LX6    CHAR                                                            KEY          503     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 989    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                SB2    B2-CHAR                                                         KEY          504     A     
 KEY                LX1    CHAR                                                            KEY          505     A     
 KEY                IX6    X6+X3                                                           KEY          506     A     
 KEY                BX3    -X0*X1      ISOLATE NEXT CHARACTER                              KEY          507     A     
 KEY                NZ     B2,LCC4     IF WORD NOT FULL                                    KEY          508     A     
 KEY                =A6    A6+1                                                            KEY          509     A     
 KEY                SB2    10*CHAR                                                         KEY          510     A     
 KEY                BX6    0                                                               KEY          511     A     
 KEY       LCC4     NZ     X3,LCC35    IF MORE CHARACTERS                                  KEY          512     A     
 KEY                =A2    A2+1                                                            KEY          513     A     
 KEY                NZ     X2,LCC2     IF NOT *EOS*                                        KEY          514     A     
 KEY                LX6    X6,B2       LEFT JUSTIFY                                        KEY          515     A     
 KEY                BX7    0                                                               KEY          516     A     
 KEY                =A6    A6+1                                                            KEY          517     A     
 KEY                =A7    A6+1        INSURE END-OF-LINE                                  KEY          518     A     
 KEY                                                                                       KEY          519     A     
 KEY       .CMLOD   IFNE   .CMLOD      FORCE LGO TO DISK                                   KEY          520     A     
 KEY                SA3    LGOIO                                                           KEY          521     A     
 KEY                MI     X3,LCC6     IF BINARY ON DISK                                   KEY          522     A     
 KEY                MX6    -1                                                              KEY          523     A     
 KEY                SA6    A3          INDICATE LGO ON DISK                                KEY          524     A     
 KEY                NOTE   E.OV2       ** LCC STOPS CMLOD **                               KEY          525     A     
 KEY                SA1    T.LGO                                                           KEY          526     A     
 KEY                SA4    T=LGO                                                           KEY          527     A     
 KEY                WRITEW BO,X1,X4                                                        KEY          528     A     
 KEY       .CMLOD   ENDIF                                                                  KEY          529     A     
 KEY                                                                                       KEY          530     A     
 KEY                                                                                       KEY          531     A     
 KEY                IFEQ   CP#RM,7,2                                                       KEY          532     A     
 KEY       LCC6     BSS    0                                                               KEY          533     A     
 KEY                SKIP   1                                                               KEY          534     A     
 KEY       LCC6     RECALL F.LGO                                                           KEY          535     A     
 KEY                                                                                       KEY          536     A     
 KEY                SB7    SCR+1                                                           KEY          537     A     
 KEY                SX1    A7-B7                                                           KEY          538     A     
 KEY                SX0    B4          SAVE (B4)                                           KEY          539     A     
 KEY                WRITEC F.LGO,SCR+1,X1                                                  KEY          540     A     
 KEY                WRITER F.LGO,RCL                                                       KEY          541     A     
 KEY                SB4    X0          RESTORE (B4)                                        KEY          542     A     
 KEY                SA2    SB.STNL                                                         KEY          543     A     
 KEY                ZR     X2,LCC64    IF NO STATEMENT LABEL                               KEY          544     A     
 KEY                BX6    X2                                                              KEY          545     A     
 KEY                SA6    FILL.                                                           KEY          546     A     
 KEY                WARN   E.SN16      ** STATEMENT LABEL IGNORED **                       KEY          547     A     
 KEY                                                                                       KEY          548     A     
 KEY       LCC64    SA1    CCNT                                                            KEY          549     A     
 KEY                SB7    X1-1                                                            KEY          550     A     
 KEY                ZR     B7,E.OV3    IF CONTINUED     (RETURN  LCC66)                    KEY          551     A     
 KEY                                                                                       KEY          552     A     
 KEY       LCC66    SA1    MULS                                                            KEY          553          I
          -FCCA442
 KEY       LCC66    SA2    =XT.DLBUF                                                       FCCA442        6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 990    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                SX1    X2+1        FWA CARD TO PRINT (SEE FORMAT OF T.DLBUF)           FCCA442        7     A     
 KEY                SA3    X2                                                              FCCA442        8     A     
 KEY                SX2    X3-2        LEN OF CARD TO PRINT IN WORDS                       FCCA442        9     A     
 KEY                SA4    =XCP.LSTF                                                       FCC2159        6     A     
 KEY                ZR     X4,NOTPRT   IF L = 0                                            FCC2159        7     A     
 KEY                PLINE  X1,X2       PRINT CARD                                          FCCA442       10     A     
 KEY                SA1    MULS                                                            FCCA442       11          I
          -FCC2159
 KEY       NOTPRT   SA1    MULS                                                            FCC2159        8     A     
 KEY                ZR     X1,LCC68    IF NO $ STATEMENT SEPARATOR                         KEY          554          I
          -FCC1410
 KEY                ZR     X1,RUN5     IF NO $ STATEMENT SEPARATOR                         FCC1410        9     A     
 KEY                BX6    0                                                               KEY          555     A     
 KEY                SA6    A1                                                              KEY          556     A     
 KEY                EQ     E.M$3       ** MULTIPLE STATEMENT IGNORED AFTER LCC **          KEY          557     A     
 KEY                                                                                       KEY          558          I
          -FCC1410
 KEY       LCC68    EQU    RUN.X       EXIT..                                              KEY          559          I
          -FCC1097  -FCC1410
 KEY       LCC68    EQU    RUN5        EXIT..                                              FCC1097       16          I
          -FCC1410
 KEY       NAM      SPACE  4,8                                                             KEY          560     A     
 KEY      **        NAM -  PROCESS "NAMELIST" SPECIFICATION.                               KEY          561     A     
 KEY      *                                                                                KEY          562     A     
 KEY      *         TRANSLATES NAMELIST DECLARATIONS INTO TP.NLST, IN A FORM               KEY          563     A     
 KEY      *                CONVENIENT FOR RELOCATION PROCESSING.                           KEY          564     A     
 KEY      *                                                                                KEY          565     A     
 KEY      *         EXIT   TO MASTER LOOP.                                                 KEY          566     A     
 KEY      *                                                                                KEY          567     A     
 KEY      *         NAMELIST [ /<GROUP-NAME>/ <ITEM> [,<ITEM>] ]                           KEY          568     A     
 KEY      *                                                                                KEY          569     A     
 KEY      *         [...]  INDICATES MAY BE REPEATED.                                      KEY          570     A     
 KEY      *         <GROUP-NAME> #  THE NAME OF THIS NAME-LIST GROUP.  IT MAY NOT          KEY          571     A     
 KEY      *                DUPLICATE AN ENTRY ALREADY IN SYMBOL TABLE.                     KEY          572     A     
 KEY      *         <ITEM> #  <SIMPLE-VARIABLE> OR <ARRAY>.                                KEY          573     A     
 KEY                                                                                       KEY          574     A     
 KEY                                                                                       KEY          575     A     
 KEY                HEREIF NAMELIST                                                        KEY          576     A     
 KEY                                                                                       KEY          577     A     
 KEY                WARN   E.ANS       NON-ANSI USE - WARNING                              KEY          578     A     
 KEY                SB4    B4+1        POINT TO GROUP-NAME                                 KEY          579     A     
 KEY                                                                                       KEY          580     A     
 KEY      **        NAM1 - BEGIN PROCESSING GROUP-NAME.                                    KEY          581     A     
 KEY      *         ENTRY  B4 _ TO GROUP-NAME                                              KEY          582     A     
 KEY      *         GROUP-NAME WILL BE ENTERED INTO TS.NAM, AND INTO TT.NAM WITH           KEY          583     A     
 KEY      *                *NLST* BIT ON AND *ARR* FIELD POINTING TO ORDINAL OF            KEY          584     A     
 KEY      *                THE FIRST TP.FMT ENTRY TO BE MADE FOR THIS GROUP.               KEY          585     A     
 KEY                                                                                       KEY          586     A     
 KEY                                                                                       KEY          587     A     
 KEY       NAM1     SA1    B4-B1       -1  EXPECT SLASH                                    KEY          588     A     
 KEY                SA2    B4          +0  REQUIRE GROUP-NAME                              KEY          589     A     
 KEY                SA3    B4+B1       +1  EXPECT SLASH                                    KEY          590     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 991    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                SX4    X1-O.SLASH                                                      KEY          591     A     
 KEY                NZ     X4,E.LN     IF STNTAX ERROR                                     KEY          592     A     
 KEY                ZR     X2,E.MR2    IF *EOS* - ERROR                                    KEY          593     A     
 KEY                MX0    L.SYM                                                           KEY          594     A     
 KEY                BX6    X0*X2                                                           KEY          595     A     
 KEY                =B7    X2-O.VAR                                                        KEY          596     A     
 KEY                NZ     B7,E.LN2    IF NO LETTER, ERR..                                 KEY          597     A     
 KEY                SB7    X3-O.VAR                                                        KEY          598     A     
 KEY                NZ     B7,NAM15    IF NOT LONG NAME                                    KEY          599     A     
 KEY                RJ     =XTLV       TRUNCATE NAME                                       KEY          600     A     
 KEY                =A3    B4+1                                                            KEY          601     A     
 KEY       NAM15    SX4    X3-O.SLASH                                                      KEY          602     A     
 KEY                NZ     X4,E.LN1    IF NO */* AFTER NAME                                KEY          603     A     
 KEY                SCAN   TS.SYM,SSY                                                      KEY          604     A     
 KEY                PL     B7,E.LN3    IF ALREADY DEFINED, ERR..                           KEY          605     A     
 KEY                SA3    TP=NLST                                                         KEY          606     A     
 KEY                =X4    M.NLST+M.DEF+M.NAML+M.VAR                                       KEY          607     A     
 KEY                LX3    P.PNT                                                           KEY          608     A     
 KEY                BX7    X3+X4                                                           KEY          609     A     
 KEY                SB4    B4+2        B4 NOW POINTS TO FIRST VARIABLE IN LIST             KEY          610     A     
 KEY                ADSYM  A1                                                              KEY          611     A     
 KEY                =A3    A6-1        RE-LOAD GROUP NAME                                  KEY          612     A     
 KEY                SX7    X3                                                              KEY          613     A     
 KEY                BX6    X3-X7                                                           KEY          614     A     
 KEY                ADDWD  TP.NLST     PUT GROUP-NAME IN THE NAMELIST                      KEY          615     A     
 KEY                                                                                       KEY          616     A     
 KEY      **        NAM2 - PROCESS EACH ITEM IN THE GROUP.                                 KEY          617     A     
 KEY      *         ENTRY  B4 _ VARIABLE NAME TAG                                          KEY          618     A     
 KEY                                                                                       KEY          619     A     
 KEY                                                                                       KEY          620     A     
 KEY       NAM2     SA1    B4                                                              KEY          621     A     
 KEY                ZR     X1,=XE.MR3  IF *EOS* - FATAL ERROR                              KEY          622     A     
 KEY                SX2    X1                                                              KEY          623     A     
 KEY                BX5    X1-X2       ISOLATE AND SAVE NAME                               KEY          624     A     
 KEY                RJ     TRV         TRANSLATE VARIABLE                                  KEY          625     A     
 KEY       NAM20    SA2    TS.SYM                                                          FCC0499       27     A     
 KEY                SA4    ENTRY.                                                          FCC0499       28     A     
 KEY                SB2    X4                                                              FCC0499       29     A     
 KEY                SB2    B2-B7                                                           FCC0499       30     A     
 KEY                NZ     B2,NAM20A   IF NOT FUNCTION NAME                                FCC0499       31     A     
 KEY                SA4    VALUE.                                                          FCC0499       32     A     
 KEY                SB7    X4          RESET WITH VALUE. ORDINAL                           FCC0499       33     A     
 KEY                IX4    X4+X2                                                           FCC0499       34     A     
 KEY                SA4    X4                                                              FCC0499       35     A     
 KEY                BX6    X4          RESET WITH VALUE. SYMTAB ENTRY                      FCC0499       36     A     
 KEY                MX0    L.SYM                                                           FCC0499       37     A     
 KEY                SA5    SVALUE.                                                         FCC0499       38     A     
 KEY                BX5    X0*X5       USE VALUE.                                          FCC0499       39     A     
 KEY       NAM20A   SX0    M.DEF                                                           FCC0499       40     A     
 KEY                BX6    X0+X6                                                           FCC0499       41     A     
 KEY                SA6    X2+B7       SET DEFINED BIT ON                                  FCC0499       42     A     
 KEY                MX0    -L.FPNO                                                         KEY          626          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 992    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
          -FCC1434X 
 KEY                BX7    X6                                                              FCC1434X      25     A     
 KEY                IFBIT  X7,-LEV,NAM20B    IF NOT LEVEL                                  FCC1434X      26     A     
 KEY                LX7    P.LEV+1-P.LEVN    RIGHT JUSTIFY LEVEL NUMBER                    FCC1434X      27     A     
 KEY                MX0    -L.LEVN                                                         FCC1434X      28     A     
 KEY                BX3    -X0*X7      (X3) = LEVEL NUMBER                                 FCC1434X      29     A     
 KEY                SX3    X3-3                                                            FCC1434X      30     A     
 KEY                NZ     X3,NAM20B   IF NOT LEVEL 3                                      FCC1434X      31     A     
 KEY                FATAL  =XE.LV11                                                        FCC1434X      32     A     
 KEY                EQ     NAM3                                                            FCC1434X      33     A     
 KEY                                                                                       FCC1434X      34     A     
 KEY       NAM20B   MX0    -L.FPNO                                                         FCC1434X      35     A     
 KEY                LX6    -P.FPNO                                                         KEY          627     A     
 KEY                SA2    TP.DIM                                                          KEY          628     A     
 KEY                BX7    -X0*X6      FORMAL PARAMETER NO., IF ANY                        KEY          629     A     
 KEY                LX6    -P.PNT+P.FPNO                                                   KEY          630     A     
 KEY                SA7    NAMFP                                                           KEY          631     A     
 KEY                MX0    -L.PNT                                                          KEY          632     A     
 KEY                BX3    -X0*X6      ISOLATE TP.DIM ORDINAL                              KEY          633     A     
 KEY                SB6    X3                                                              KEY          634     A     
 KEY                MX0    L.NDIM                                                          KEY          635     A     
 KEY                SA3    X2+B6       FETCH 1ST DIM WORD                                  KEY          636     A     
 KEY                SBIT   X6,ARY/PNT-1                                                    KEY          637     A     
 KEY                BX2    X0*X3       ISOLATE NUMBER OF DIMS                              KEY          638     A     
 KEY                IX1    X1+X5                                                           KEY          639     A     
 KEY                IFBIT  X3,VDIM,E.LN4                                                   KEY          640     A     
 KEY                LX2    -P.NDIM                                                         KEY          641     A     
 KEY                AX6    -0                                                              KEY          642     A     
 KEY                SB5    B7          SAVE (B5) = TAG ORDINAL                             KEY          643     A     
 KEY                =B6    B6+1                                                            KEY          644     A     
 KEY                AX0    X2,B1                                                           KEY          645     A     
 KEY                BX2    X6*X2                                                           KEY          646     A     
 KEY                SA4    TP=NLST                                                         KEY          647     A     
 KEY                LX2    6           **** QQ SHIFT COUNT                                 KEY          648     A     
 KEY                BX5    X1+X2                                                           KEY          649     A     
 KEY                ALLOC  TP.NLST,X0+2                                                    KEY          650     A     
 KEY                SA2    TP.DIM                                                          KEY          651     A     
 KEY                IX3    X1+X4                                                           KEY          652     A     
 KEY                BX6    X5                                                              KEY          653     A     
 KEY                SX5    X5                                                              KEY          654     A     
 KEY                SA4    X2+B6       FETCH 2ND DIM WORD                                  KEY          655     A     
 KEY                MX7    0                                                               KEY          656     A     
 KEY                SA6    X3          STORE NAME/NDIM/TYPE WORD                           KEY          657     A     
 KEY                SA1    NAMFP                                                           KEY          658     A     
 KEY                AX5    6           ISOLATE NUMBER OF DIMS                              KEY          659     A     
 KEY                SA7    A1          CLEAR FOR NEXT ITEM                                 KEY          660     A     
 KEY                NZ     X1,NAM21    IF FORMAL PARAMETER                                 KEY          661     A     
 KEY                SX7    B5+C.VAR                                                        KEY          662     A     
 KEY                EQ     NAM22                                                           KEY          663     A     
 KEY                                                                                       KEY          664     A     
 KEY       NAM21    MX7    1                                                               KEY          665     A     
 KEY                =X1    X1-1        F.P.ORD                                             KEY          666     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 993    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                LX7    28+1        INDICATE FP                                         KEY          667     A     
 KEY                BX7    X7+X1       31/0,1/1,28/F.P.ORD                                 KEY          668     A     
 KEY                                                                                       KEY          669     A     
 KEY       NAM22    ZR     X5,NAM23    IF SIMPLE VAR.                                      KEY          670     A     
 KEY                IX7    X7+X4                                                           KEY          671     A     
 KEY       NAM23    =A7    A6+1        STORE ADDRESS (+ 1ST DIM) WORD                      KEY          672     A     
 KEY                AX5    1           = NDIMS / 2  =  NUMBER OF DIM WORDS TO COPY         KEY          673     A     
 KEY                =B2    X5                                                              KEY          674     A     
 KEY                                                                                       KEY          675     A     
 KEY       NAM25    =A4    A4+1                                                            KEY          676     A     
 KEY                BX7    X4                                                              KEY          677     A     
 KEY                =B2    B2-1                                                            KEY          678     A     
 KEY                =A7    A7+1                                                            KEY          679     A     
 KEY                PL     B2,NAM25    IF REST OF DIMS NOT YET XFERED                      KEY          680     A     
 KEY                                                                                       KEY          681     A     
 KEY                                                                                       KEY          682     A     
 KEY      **        NAM3 - NOW CHECK FOR SEPARATOR, AND QUIT OR GO BACK FOR MORE.          KEY          683     A     
 KEY      *         IF SEPARATOR IS NOT A COMMA, WE ENTER A ZERO WORD TO INDICATE          KEY          684     A     
 KEY      *                END-OF-GROUP, AND CHECK FOR *EOS*                               KEY          685     A     
 KEY      *                IF *EOS* WE ARE THRU.                                           KEY          686     A     
 KEY      *         IF SEPARATOR IS A COMMA, WE RETURN TO *NAM2*.                          KEY          687     A     
 KEY                                                                                       KEY          688     A     
 KEY                                                                                       KEY          689     A     
 KEY       NAM3     SA4    B4+B1       FETCH NEXT SEPARATOR                                KEY          690     A     
 KEY                SB4    A4+B1       POINT TO NEXT ITEM                                  KEY          691     A     
 KEY                SX2    X4-O.COMMA                                                      KEY          692     A     
 KEY                ZR     X2,NAM2     IF COMMA                                            KEY          693     A     
 KEY                BX6    0                                                               KEY          694     A     
 KEY                ADDWD  TP.NLST     ADD END-OF-GROUP MARK                               KEY          695     A     
 KEY                NZ     X4,NAM1     CONTINUE WITH NEXT GROUP                            KEY          696     A     
 KEY                EQ     PSP                                                             KEY          697     A     
 KEY                                                                                       KEY          698     A     
 KEY       NAMFP    DATA   0           FORMAL PARAMETER NO., IF ANY                        KEY          699     A     
 KEY       NTR      SPACE  4,8                                                             KEY          700     A     
 KEY      **        NTR -  PROCESS "ENTRY" STATEMENT.                                      KEY          701     A     
 KEY      *         EXIT   TO MASTER LOOP.                                                 KEY          702     A     
 KEY                                                                                       KEY          703     A     
 KEY                                                                                       KEY          704     A     
 KEY                HEREIF ENTRY                                                           KEY          705     A     
 KEY                                                                                       KEY          706     A     
 KEY                ANSI   E.ANS       NON ANSI STATEMENT.                                 KEY          707     A     
 KEY                DRITE  DEACTIVATE                                                      KEY          708     A     
 KEY                SA2    MOD                                                             KEY          709     A     
 KEY                IFBIT  X2,PPRO,E.PT1                                                   KEY          710     A     
 KEY                BX6    0                                                               KEY          711     A     
 KEY                SA6    NOPATH      RESET STATEMENT-NO.-REQD .FLAG                      KEY          712     A     
 KEY                SA1    =XSTAGE                                                         FCC0780        7     A     
 KEY                SA2    =XCPM=ASF                                                       FCC0780        8          I
          -FEAT155GA
 KEY                SX2    =XCPM=ASF                                                       FEAT155GA     12     A     
 KEY                IX1    X1-X2                                                           FCC0780        9     A     
 KEY                MI     X1,NTR14    IF IN DECLARATIVE PROCESSING                        FCC0780       10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 994    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                SA2    TP=DO                                                           KEY          713     A     
 KEY                ZR     X2,NTR14    IF NOT INSIDE A *DO*                                KEY          714     A     
 KEY                WARN   E.PT2                                                           KEY          715     A     
 KEY       NTR14    SA2    B4                                                              KEY          716     A     
 KEY                SA1    B4+B1                                                           KEY          717     A     
 KEY                ZR     X2,E.PT3    IF *EOS*                                            KEY          718     A     
 KEY                SB7    X2-O.VAR                                                        KEY          719     A     
 KEY                NZ     B7,=XE.PT4  IF NOT VARIABLE                                     KEY          720     A     
 KEY                MX0    L.SYM                                                           KEY          721     A     
 KEY                BX6    X0*X2                                                           KEY          722     A     
 KEY                SA6    FILL.                                                           KEY          723     A     
 KEY                ZR     X1,NTR2     IF NOT EXTRA GARBAGE                                KEY          724     A     
 KEY                =B4    B4+1                                                            FEAT155GA     13     A     
 KEY                WARN   E.XC        NONSENSE IGNORED AFTER NAME                         KEY          725     A     
 KEY       NTR2     SCAN   TS.SYM,SSY  FIND WHERE TO PUT *SYMBOL/TAG*                      KEY          726     A     
 KEY                PL     B7,E.PT     IF ALREADY DEFINED, ERR..                           KEY          727     A     
 KEY                =X7    M.ENT+M.DEF+M.NVAR                                              KEY          728     A     
 KEY                BX4    X6                                                              KEY          729     A     
 KEY                ADSYM  A1          ADD *SYMBOL/TAG* TO TABLE.                          KEY          730     A     
 KEY                BX6    X0+X4                                                           KEY          731     A     
 KEY                SX5    X0+C.VAR+1                                                      KEY          732     A     
 KEY                ADDWD  TS.ENT                                                          KEY          733     A     
 KEY                BX2    X5                                                              KEY          734     A     
 KEY                LX2    P.TAG                                                           KEY          735     A     
 KEY                ADDREF X2,CR.NTR                                                       KEY          736     A     
 KEY                SA2    FLOW                                                            KEY          737     A     
 KEY                SA1    TG.PRO                                                          KEY          738     A     
 KEY                BX7    0                                                               KEY          739     A     
 KEY                =X6    X1+1                                                            KEY          740     A     
 KEY                SA7    A2          INDICATE *FLOW* INTO NEXT STATEMENT                 KEY          741     A     
 KEY                SA6    A1                                                              KEY          742     A     
 KEY                SA6    INIF        FORCE LABEL AFTER STATEMENT                         KEY          743     A     
 KEY                NZ     X2,NTR5     IF NO FLOW INTO THIS STATEMENT                      KEY          744     A     
 KEY                CLONG  X6,I.EQ                                                         KEY          745     A     
 KEY                                                                                       KEY          746     A     
 KEY      **        NEXT ADD AN ENTRY POINT TURPLE TO PARSED FILE.                         KEY          747     A     
 KEY      *         FIRST, ISSUE TURPLE TO MOVE RETURN ADDRESS TO EXIT WORD.               KEY          748     A     
 KEY      *                (1OP) = ENTRY POINT TAG FOR THIS ENTRY POINT                    KEY          749     A     
 KEY      *                (2OP) (UPPER) = TAG OF MAIN ENTRY POINT                         KEY          750     A     
 KEY      *         ENTRY  (X5) = TAG FOR THIS ENTRY POINT                                 KEY          751     A     
 KEY       NTR5     SA1    ENTRY.      MAIN ENTRY POINT                                    KEY          752     A     
 KEY                BX4    X5          TAG FOR THIS ENTRY POINT                            KEY          753     A     
 KEY                =X7    1                                                               KEY          754     A     
 KEY                SX5    X1+C.VAR                                                        KEY          755     A     
 KEY                SB3    O=NTR0                                                          KEY          756     A     
 KEY                SA7    NTRCNT      INDICATE *ENTRY* STATEMENT OCCURRED                 KEY          757     A     
 KEY                LX5    P.2TAG                                                          KEY          758     A     
 KEY                SA1    TT.PAR                                                          KEY          759     A     
 KEY                RJ     EMT         EMIT O=NTR0 TURPLE                                  KEY          760     A     
 KEY      **        FOR A MACHINE WITH AN INSTRUCTION STACK, IT IS NOW                     KEY          761     A     
 KEY      *         NECESSARY TO VOID THE STACK BECAUSE THE RETURN ADDRESS                 KEY          762     A     
 KEY      *         JUST STORED INTO MAY ALREADY BE IN THE STACK.                          KEY          763     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 995    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY      *                (1OP) = LABEL TO USE FOR VOID-STACK-WORD                        KEY          764     A     
 KEY      *                (2OP) = DUMMY                                                   KEY          765     A     
 KEY       #MD      IFGE   .CPU,74                                                         KEY          766          I
          -F7540FTA 
 KEY                                                                                       F7540FTA      11     A     
 KEY                SA1    TG.PRO      LAST CREATED LABEL                                  KEY          767     A     
 KEY                SB3    =XO=VOID                                                        KEY          768     A     
 KEY                =X6    X1+1                                                            KEY          769     A     
 KEY                MX5    0           DUMMY SECOND ARGUMENT                               KEY          770     A     
 KEY                SA6    A1                                                              KEY          771     A     
 KEY                BX4    X6          LABEL TO BE CREATED                                 KEY          772     A     
 KEY                SA1    TT.PAR                                                          KEY          773     A     
 KEY                RJ     EMT         EMIT TURPLE TO VOID STACK                           KEY          774     A     
 KEY       #MD      ENDIF                                                                  KEY          775          I
          -F7540FTA 
 KEY                                                                                       F7540FTA      12     A     
 KEY      **        LASTLY, ISSUE TURPLE TO JUMP TO INITIALIZATION CODE, IF                KEY          776     A     
 KEY      *         PARAMETERS ARE PRESENT.                                                KEY          777     A     
 KEY      *                (1OP) = DUMMY                                                   KEY          778     A     
 KEY      *                (2OP) = TAG OF NEXT STATEMENT                                   KEY          779     A     
 KEY                SA1    NARGS                                                           KEY          780     A     
 KEY                ZR     X1,PSN      IF NO ARGS                                          KEY          781     A     
 KEY                SA5    INIF        TAG OF NEXT STATEMENT                               KEY          782     A     
 KEY                MX4    0                                                               KEY          783     A     
 KEY                SB3    O=NTRP      ENTRY WITH PARAMETERS                               KEY          784     A     
 KEY                SA1    TT.PAR                                                          KEY          785     A     
 KEY                RJ     EMT                                                             KEY          786     A     
 KEY                EQ     PSN         EXIT..                                              KEY          787     A     
 KEY       PATCH    SPACE  4,8                                                             KEY          788     A     
 KEY      **        PAT -  PROCESS "PATCH" STATEMENT                                       KEY          789     A     
 KEY      *                (ONLY IN *TEST* MODE)                                           KEY          790     A     
 KEY      *                                                                                KEY          791     A     
 KEY      *         STATEMENT CONSISTS OF THE WORD *PATCH*, FOLLOWED BY AN                 KEY          792     A     
 KEY      *                ADDRESS, THEN ANY SEPARATOR, AND THEN THE CONTENTS OF           KEY          793     A     
 KEY      *                THE NEW WORD.  BLANKS ARE IGNORED.  THE *B* SUFFIX IS           KEY          794     A     
 KEY      *                NOT ALLOWED.                                                    KEY          795     A     
 KEY      *                                                                                KEY          796     A     
 KEY      *         C A U T I O N   --  ACTIVATE AND USE THIS STATEMENT AT YOUR            KEY          797     A     
 KEY      *                            OWN RISK.  CONTROL DATA CORP. NOT RESPON-           KEY          798     A     
 KEY      *                            SIBLE FOR ANY RESULTS OF THE USE OF A               KEY          799     A     
 KEY      *                            *PATCH* STATEMENT.                                  KEY          800     A     
 KEY      *                                                                                KEY          801     A     
 KEY      *         ERROR CHECKING IS THE ABSOLUTE POSSIBLE MINIMUM.  IT IS NOT            KEY          802     A     
 KEY      *                LOGICALLY POSSIBLE TO USE IN MANY CASES.                        KEY          803     A     
 KEY      *         COMPILER DE-BUGGING CONVIENIENCE ITEM  O N L Y.                        KEY          804     A     
 KEY                                                                                       KEY          805     A     
 KEY                                                                                       KEY          806     A     
 KEY       TEST     IFNE   TEST                                                            KEY          807     A     
 KEY                                                                                       KEY          808     A     
 KEY                HEREIF PATCH                                                           KEY          809     A     
 KEY                                                                                       KEY          810     A     
 KEY                =A3    B4-1                                                            KEY          811     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 996    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                RJ     OCT         ASSEMBLE ADDRESS WHERE PATCH IS TO GO               KEY          812     A     
 KEY                SA6    PATA                                                            KEY          813     A     
 KEY                =A3    A3+1        SKIP OVER SEPARATOR                                 KEY          814     A     
 KEY                RJ     OCT         ASSEMBLE CONTENTS OF WORD                           KEY          815     A     
 KEY                SA1    PATA                                                            KEY          816     A     
 KEY                SA6    X1          STORE NEW WORD                                      KEY          817     A     
 KEY                EQ     PSP.F                                                           KEY          818     A     
 KEY                                                                                       KEY          819     A     
 KEY       PATA     DATA   0           SAVE CELL FOR ADDRESS FIELD.                        KEY          820     A     
 KEY                                                                                       KEY          821     A     
 KEY       TEST     ENDIF                                                                  KEY          822     A     
 KEY       PAU      SPACE  4,8                                                             KEY          823     A     
 KEY      **        PAU -  PROCESS "PAUSE" STATEMENT.                                      KEY          824     A     
 KEY      *         EXIT   TO *SPR* WITH (B3) = *PAUSE* INDICATION.                        KEY          825     A     
 KEY                                                                                       KEY          826     A     
 KEY                                                                                       KEY          827     A     
 KEY                HEREIF PAUSE                                                           KEY          828     A     
 KEY                                                                                       KEY          829     A     
 KEY                =B6    S=PAU       INDICATE *PAUSE*                                    KEY          830     A     
 KEY                RJ     SPR         COMPILE PAUSING INSTRUCTIONS                        KEY          831     A     
 KEY                CRJ    NONE        COMPILE  *RJ =XPAUSE.*                              KEY          832     A     
 KEY                SA1    DTI                                                             KEY          833     A     
 KEY                NZ     X1,E.SPR3   ANSI - PAUSE N.F.G AS DO-TERM                       KEY          834     A     
 KEY                EQ     PSN         EXIT..                                              KEY          835     A     
 KEY       PPG      SPACE  4,8                                                             KEY          836     A     
 KEY      **        PPG -  PROCESS "PROGRAM" STATEMENT.                                    KEY          837     A     
 KEY      *         EXIT   TO MASTER LOOP.                                                 KEY          838     A     
 KEY      *         CALLS  1.  WARN (NON-ANSI STATEMENT).                                  KEY          839     A     
 KEY      *                2.  DCM = ASSEMBLE THE PROGRAM NAME.                            KEY          840     A     
 KEY      *                3.  PPA = PROCESS ANY FILE DECLARATION LIST.                    KEY          841     A     
 KEY                                                                                       KEY          842     A     
 KEY                                                                                       KEY          843     A     
 KEY                HEREIF PROGRAM                                                         KEY          844     A     
 KEY                                                                                       KEY          845     A     
 KEY                ANSI   E.ANS       NON ANSI STATEMENT.                                 KEY          846          I
          -FCCA465
 KEY                SX6    M.PPRO      SET SUBPROGRAM MODE                                 KEY          847     A     
 KEY                SA4    =7HPROGRAM                                                      KEY          848          I
          -FCC1328X 
 KEY                SA4    =7APROGRAM                                                      FCC1328X     541     A     
 KEY                RJ     DCM         DISPLAY COMPILING MESSAGE                           KEY          849     A     
 KEY                ANSI   E.ANS       NON ANSI STATEMENT                                  FCCA465        5     A     
 KEY                RJ     PPA         PROCESS PROGRAM MESSAGE                             KEY          850     A     
 KEY                EQ     PSP         RETURN TO MASTER LOOP                               KEY          851     A     
 KEY                SPACE  4           RTN                                                 KEY          852     A     
 KEY      **        RTN -  PROCESS "RETURN" STATEMENT.                                     KEY          853     A     
 KEY      *         EXIT   MASTER LOOP                                                     KEY          854     A     
 KEY      *         CALLS  CLT - TO CLEAR REGISTER ASSOCIATES.                             KEY          855     A     
 KEY      *                RTU - IF NOT IN A MAIN PROGRAM.                                 KEY          856     A     
 KEY      *                SER - IF MAIN PROGRAM, ACT LIKE *END*.                          KEY          857     A     
 KEY                                                                                       KEY          858     A     
 KEY                                                                                       KEY          859     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 997    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                                                                                       KEY          860     A     
 KEY                HEREIF RETURN                                                          KEY          861     A     
 KEY                                                                                       KEY          862     A     
 KEY                SA2    DOORD                                                           KEY          863     A     
 KEY                SA3    MOD                                                             KEY          864     A     
 KEY                ZR     X2,RTN1     IF NOT INSIDE A *DO*                                KEY          865     A     
 KEY                SA1    TS.STN                                                          KEY          866     A     
 KEY                SB2    X2                                                              KEY          867     A     
 KEY                =X0    M.SNEX                                                          KEY          868     A     
 KEY                SA4    X1+B2                                                           KEY          869     A     
 KEY                BX7    X4+X0                                                           KEY          870     A     
 KEY                SA7    A4          INDICATE *DO* HAS AN EXTERNAL REFERENCE             KEY          871     A     
 KEY       RTN1     =X6    1                                                               KEY          872     A     
 KEY                SBIT   X3,PPRO                                                         KEY          873     A     
 KEY                SA6    NOPATH                                                          KEY          874     A     
 KEY                                                                                       KEY          875     A     
 KEY      **        VALIDATE SYNTAX -- NOTHING MAY FOLLOW THE KEYWORD.                     KEY          876     A     
 KEY                                                                                       KEY          877     A     
 KEY                SA1    B4                                                              KEY          878     A     
 KEY                NZ     X1,RTN9     IF NOT *EOS*                                        KEY          879     A     
 KEY       RTN2     PL     X3,RTN4     IF NOT MAIN PROGRAM                                 KEY          880     A     
 KEY                                                                                       KEY          881     A     
 KEY      **        WHEN IN MAIN PROGRAM, ACT LIKE *END*.                                  KEY          882     A     
 KEY                                                                                       KEY          883     A     
 KEY       RTN3     RJ     SER         SET *END* RETURN CODE                               KEY          884     A     
 KEY                EQ     E.ART       ** RETURN IN MAIN IS NON-ANSI ** (EXIT PSN)         KEY          885     A     
 KEY                                                                                       KEY          886     A     
 KEY      **        IN SUBPROGRAM, JUMP TO *CT.RETN*.                                      KEY          887     A     
 KEY                                                                                       KEY          888     A     
 KEY       RTN4     SA1    INIF                                                            KEY          889     A     
 KEY                NZ     X1,RTN8     IF OBJECT OF 1-BRANCH *IF*                          KEY          890     A     
 KEY                                                                                       KEY          891     A     
 KEY      **        SET (HANGER) AND RETURN TO MASTER LOOP TEMPORARILY, TO FIND            KEY          892     A     
 KEY      *                OUT WHAT NEXT STATEMENT IS.                                     KEY          893     A     
 KEY                                                                                       KEY          894     A     
 KEY                SX6    RTN5                                                            KEY          895     A     
 KEY                SA6    HANGER                                                          KEY          896     A     
 KEY                EQ     PSN         GET NEXT STATEMENT                                  KEY          897     A     
 KEY      *         ...                                                                    KEY          898     A     
 KEY       RTN5     =A1    "SB.KEY"    BACK HERE WITH NEXT STATEMENT                       KEY          899     A     
 KEY                SA2    RTNCNT                                                          KEY          900     A     
 KEY                SB7    X1-END=                                                         KEY          901     A     
 KEY                ZR     B7,RTN6     IF NEXT IS *END*                                    KEY          902     A     
 KEY                                                                                       KEY          903     A     
 KEY      **        IF THE NEXT STATEMENT IS NOT THE *END* LINE, COMPILE JUMP TO           KEY          904     A     
 KEY      *                THE RETURN CODE, AND UPDATE COUNT OF *RETURN*                   KEY          905     A     
 KEY      *                STATEMENTS.                                                     KEY          906     A     
 KEY                                                                                       KEY          907     A     
 KEY                =X6    X2+1        COUNT *RETURN* STATEMENTS                           KEY          908     A     
 KEY                SB3    O=QUITS                                                         KEY          909     A     
 KEY                SA6    A2                                                              KEY          910     A     
 KEY                SA1    TT.PAR                                                          KEY          911     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 998    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                SX4    CT.RETN                                                         KEY          912     A     
 KEY                BX5    X4                                                              KEY          913     A     
 KEY                RJ     EMT         EMIT  (O=QUITS,  CT.RETN)                           KEY          914     A     
 KEY                EQ     CUS.RET     EXIT..                                              KEY          915     A     
 KEY                                                                                       KEY          916     A     
 KEY      **        IF *RETURN* IMMEDIATELY PRECEDES *END* LINE, NO JUMP IS                KEY          917     A     
 KEY      *                NECESSARY.  WE ALSO INDICATE THIS FACT (BY COMPLEMENT-          KEY          918     A     
 KEY      *                ING (RTNCNT), AS THIS MAY MEAN THE *BSS* FOR *CT.RETN*          KEY          919     A     
 KEY      *                IS NOT NEEDED.                                                  KEY          920     A     
 KEY                                                                                       KEY          921     A     
 KEY       RTN6     BX6    -X2                                                             KEY          922     A     
 KEY                SA6    A2                                                              KEY          923     A     
 KEY                EQ     CUS.RET     EXIT..                                              KEY          924     A     
 KEY                                                                                       KEY          925     A     
 KEY      **        WHEN *RETURN* IS OBJECT OF A 1-BRANCH *IF*, CHANGE THE JUMP.           KEY          926     A     
 KEY      *                DECREMENT (*TG.PRO*), AS THE FORMER TAG WILL NOT BE             KEY          927     A     
 KEY      *                USED IN THE ALTERED CODE.  CLEAR (INIF) TO KEEP THAT            KEY          928     A     
 KEY      *                TAG FROM BEING GENERATED.                                       KEY          929     A     
 KEY      *         ENTRY  (A1) _ INIF.                                                    KEY          930     A     
 KEY      *                (IFREL1) = MACRO ADDRESS FOR OPPOSITE *IF* JUMP.                KEY          931     A     
 KEY                                                                                       KEY          932     A     
 KEY       RTN8     SA2    TG.PRO                                                          KEY          933     A     
 KEY                SA3    TT.PAR                                                          KEY          934     A     
 KEY                SX6    X2-1        RESET (TG.PRO)                                      KEY          935     A     
 KEY                SA4    TT=PAR                                                          KEY          936     A     
 KEY                SA5    IFREL1      IF MACRO ADDRESS FOR ONE BRANCH                     KEY          937     A     
 KEY                BX7    0                                                               KEY          938     A     
 KEY                SA6    A2                                                              KEY          939     A     
 KEY                IX0    X3+X4       = LWA TT.PAR                                        KEY          940     A     
 KEY                SX6    CT.RETN                                                         KEY          941     A     
 KEY                LX5    P.JPAD                                                          KEY          942     A     
 KEY                BX3    X6                                                              KEY          943     A     
 KEY                SA4    RTNCNT                                                          KEY          944     A     
 KEY                LX3    P.PTAGM                                                         KEY          945     A     
 KEY                SA2    X0-L.TURP+OR.OPR                                                KEY          946     A     
 KEY                MX1    L.JPAD                                                          KEY          947     A     
 KEY                IX6    X3+X6       BROADCAST TAG                                       KEY          948     A     
 KEY                SA7    A1                                                              KEY          949     A     
 KEY                =A6    X0-L.TURP+OR.2OP  RESET JUMP TARGET                             KEY          950     A     
 KEY                BX3    -X1*X2      CLEAR OLD MACRO ADDRESS                             KEY          951     A     
 KEY                SA7    NOPATH      CLEAR NO PATH FLAG                                  KEY          952     A     
 KEY                =X6    X4+1        INCREMENT COUNT OF *RETURN* STATEMENTS.             KEY          953     A     
 KEY                IX7    X3+X5       ADD ANEW                                            KEY          954     A     
 KEY                SA6    A4                                                              KEY          955     A     
 KEY                SA7    A2          RESET MACRO ADDRESS                                 KEY          956     A     
 KEY                EQ     PSN         EXIT..                                              KEY          957     A     
 KEY                                                                                       KEY          958     A     
 KEY       RTN9     PL     X3,RTN91    IF NOT MAIN PROGRAM                                 KEY          959     A     
 KEY                WARN   E.XC                                                            KEY          960     A     
 KEY                EQ     RTN3                                                            KEY          961     A     
 KEY                                                                                       KEY          962     A     
 KEY       RTN91    SB7    X1-O.VAR                                                        KEY          963     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE 999    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                ZR     B7,RTN93    IF LETTER                                           KEY          964     A     
 KEY                EQ     E.RA                                                            KEY          965     A     
 KEY                                                                                       KEY          966     A     
 KEY       RTN93    MX0    L.SYM                                                           KEY          967     A     
 KEY                BX6    X0*X1                                                           KEY          968     A     
 KEY                SCAN   TS.SYM,SSY                                                      KEY          969     A     
 KEY                MI     B7,E.RA1    IF NOT ALREADY DEFINED, ERR..                       KEY          970     A     
 KEY                IFBIT  X2,-RP,E.RA1 IF NOT RETURNS PARAMETER, ERR..                    KEY          971     A     
 KEY                ANSI   E.ANS       ALTERNATE RETURN STATEMENT IS NON-ANSI              KEY          972     A     
 KEY                MX4    -L.2FPNO                                                        KEY          973     A     
 KEY                AX6    P.2FPNO                                                         KEY          974     A     
 KEY                BX4    -X4*X6      EXTRACT PARAMETER ORDINAL                           KEY          975     A     
 KEY                SX4    X4-1                                                            KEY          976     A     
 KEY                SA1    TT.PAR                                                          KEY          977     A     
 KEY                SB3    O=RTNA                                                          KEY          978     A     
 KEY                MX5    0                                                               KEY          979     A     
 KEY                RJ     EMT         EMIT  (O=RTNA)                                      KEY          980     A     
 KEY                SA1    B4+B1                                                           KEY          981     A     
 KEY                SB4    B4+B1                                                           KEY          982     A     
 KEY                ZR     X1,RTN96    IF *EOS*                                            KEY          983     A     
 KEY                WARN   E.XC                                                            KEY          984     A     
 KEY       RTN96    SA1    INIF                                                            KEY          985     A     
 KEY                ZR     X1,RTN98    IF NOT OBJECT OF 1-BRANCH *IF*                      KEY          986     A     
 KEY                BX7    0                                                               KEY          987     A     
 KEY                SA7    NOPATH      CLEAR NOPATH FLAG                                   KEY          988     A     
 KEY       RTN98    EQ     PSN                                                             KEY          989     A     
 KEY       RTU      SPACE  4,8                                                             KEY          990     A     
 KEY      **        RTU - COMPILE RETURN INSTRUCTIONS.                                     KEY          991     A     
 KEY      *                                                                                KEY          992     A     
 KEY      *         CALLED IN A SUBROUTINE OR FUNCTION WHEN A *RETURN* OR *END*            KEY          993     A     
 KEY      *         STATEMENT IS ENCOUNTERED TO COMPILE INSTRUCTIONS TO EXIT.              KEY          994     A     
 KEY      *                                                                                KEY          995     A     
 KEY      *         1.  *RETURN.* BSS 0                                                    KEY          996     A     
 KEY      *         2.  IF *FUNCTION* -- LOAD *VALUE.* INTO (X6/X7).                       KEY          997     A     
 KEY      *         3.  RESTORE (A0).                                                      KEY          998     A     
 KEY      *         4.  FALL TO ENTRY/EXIT WORD.                                           KEY          999     A     
 KEY      *                                                                                KEY         1000     A     
 KEY      *         USES   ALL                                                             KEY         1001     A     
 KEY      *         CALLS  ALLOC                                                           KEY         1002     A     
 KEY                                                                                       KEY         1003     A     
 KEY                                                                                       KEY         1004     A     
 KEY       RTU      SUBR               ENTRY/EXIT...                                       KEY         1005     A     
 KEY                SA2    RTNCNT                                                          KEY         1006     A     
 KEY                SA1    TT.PAR                                                          KEY         1007     A     
 KEY                ZR     X2,RTU2     IF NO MULTIPLE *RETURN*                             KEY         1008     A     
 KEY                                                                                       KEY         1009     A     
 KEY      **        IF ANY *RETURN* STATMENTS COMPILED JUMPS TO THE EXIT CODE, WE          KEY         1010     A     
 KEY      *                HAD BETTER DEFINE A LABEL (*CT.RETN*) THERE.                    KEY         1011     A     
 KEY                                                                                       KEY         1012     A     
 KEY                SB3    O=BSS                                                           KEY         1013     A     
 KEY                SX4    CT.RETN                                                         KEY         1014     A     
 KEY                BX5    X4                                                              KEY         1015     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1000    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                RJ     EMT         EMIT  (O=BSS, CT.RETN)                              KEY         1016     A     
 KEY                                                                                       KEY         1017     A     
 KEY      **        IF THIS IS A *FUNCTION*, COMPILE CODE TO LOAD THE RESULT               KEY         1018     A     
 KEY      *                REGISTER(S).                                                    KEY         1019     A     
 KEY      *         ENTRY  (A1,X1) _ TT.PAR.                                               KEY         1020     A     
 KEY                                                                                       KEY         1021     A     
 KEY       RTU2     SA5    MOD                                                             KEY         1022     A     
 KEY                MX0    -L.MODE                                                         KEY         1023     A     
 KEY                BX4    -X0*X5      ISOLATE MODE                                        KEY         1024     A     
 KEY                SA2    VALUE.                                                          KEY         1025     A     
 KEY                SBIT   X5,PFNC                                                         KEY         1026     A     
 KEY                SB3    OPRETD                                                          KEY         1027     A     
 KEY                SB3    -B3                                                             KEY         1028     A     
 KEY                PL     X5,RTU4     IF NOT A *FUNCTION*                                 KEY         1029     A     
 KEY                SBIT   X5,LONG/PFNC                                                    KEY         1030     A     
 KEY                SX6    X2+C.VAR                                                        KEY         1031     A     
 KEY                MI     X5,RTU3     IF DOUBLE-WORD RESULT                               KEY         1032     A     
 KEY                SB3    OPRETS                                                          KEY         1033     A     
 KEY                SB3    -B3                                                             KEY         1034     A     
 KEY       RTU3     LX6    P.2TAG                                                          KEY         1035     A     
 KEY                BX5    X6+X4                                                           KEY         1036     A     
 KEY                =X4    0           1ST = DUMMY                                         KEY         1037     A     
 KEY                RJ     EMT         EMIT  (O=RETURN-VALUE, (VALUE.))                    KEY         1038     A     
 KEY                                                                                       KEY         1039     A     
 KEY      **        IF THIS SUBPROGRAM HAD ARGUMENTS, (A0) WAS SAVED AND CLOBBERED         KEY         1040     A     
 KEY      *                WHEN IT WAS ENTERED.  RESTORATION CODE IS NEEDED.               KEY         1041     A     
 KEY      *                ALSO, WE NOW DO THE ACTUAL ENTRY POINT DEFINITION NOW.          KEY         1042     A     
 KEY      *         ENTRY  (A1,X1) _ TT.PAR.                                               KEY         1043     A     
 KEY                                                                                       KEY         1044     A     
 KEY       RTU4     SA3    NARGS                                                           KEY         1045     A     
 KEY                SA2    ENTRY.                                                          KEY         1046     A     
 KEY                SX4    X2+C.VAR                                                        KEY         1047     A     
 KEY                SB3    O=NTR                                                           KEY         1048     A     
 KEY                ZR     X3,RTU5     IF NO ARGUMENTS                                     KEY         1049     A     
 KEY                SB3    O=RETN                                                          KEY         1050     A     
 KEY       RTU5     BX5    0                                                               KEY         1051     A     
 KEY                SB6    X3                                                              KEY         1052     A     
 KEY                RJ     EMT         (O=ENTRY, (ENTRY.))                                 KEY         1053     A     
 KEY                                                                                       FEAT155G     348     A     
 KEY      *         OUTPUT O=OTR TURPLE, IF NECESSARY                                      FEAT155G     349     A     
 KEY                                                                                       FEAT155G     350     A     
 KEY                SA2    =XCO.ER                                                         FEAT155G     351     A     
 KEY                ZR     X2,RTU55    IF NO OTR                                           FEAT155G     352     A     
 KEY                SB3    =XOTROP                                                         FEAT155G     353     A     
 KEY                SB3    -B3                                                             FEAT155G     354     A     
 KEY                SA4    ENTRY.                                                          FEAT155G     355          I
          -F66FCC 
 KEY                AX4    18          LINE NO ONLY                                        FEAT155G     356          I
          -F66FCC 
 KEY                LX4    P.TRC                                                           FEAT155G     357          I
          -F66FCC 
 KEY                BX5    X4                                                              FEAT155G     358          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1001    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
          -F66FCC 
 KEY                SA5    ENTRY.                                                          F66FCC       759     A     
 KEY                =X4    1           NO LABEL, NO LNT ENTRY                              F66FCC       760     A     
 KEY                AX5    18          LINE NUMBER ONLY                                    F66FCC       761     A     
 KEY                LX5    P.TRC       POSITION FOR TURPLE                                 F66FCC       762     A     
 KEY                RJ     EMT                                                             FEAT155G     359     A     
 KEY                                                                                       FEAT155G     360     A     
 KEY       RTU55    BSS    0                                                               FEAT155G     361     A     
 KEY                                                                                       KEY         1054     A     
 KEY                SB3    O=NTRX                                                          KEY         1055     A     
 KEY                ZR     B6,RTU8     IF NO ARGUMENTS                                     KEY         1056     A     
 KEY                                                                                       KEY         1057     A     
 KEY      **        WHEN THERE WERE ARGUMENTS, AFOREMENTIONED SAVE (A0) CODE IS            KEY         1058     A     
 KEY      *                TO BE COMPILED.  WHAT BRAND DEPENDS ON OCCURRANCE OF            KEY         1059     A     
 KEY      *                *ENTRY* STATEMENTS.                                             KEY         1060     A     
 KEY      *         ENTRY  (NTRCNT) = NUMBER OF *ENTRY* STATEMENTS IN THIS                 KEY         1061     A     
 KEY      *                SUBPROGRAM.                                                     KEY         1062     A     
 KEY      *                (A1,X1) _ TT.PAR.                                               KEY         1063     A     
 KEY                                                                                       KEY         1064     A     
 KEY                SA2    NTRCNT                                                          KEY         1065     A     
 KEY                SB3    O=NTRN                                                          KEY         1066     A     
 KEY                ZR     X2,RTU6     IF NO *ENTRY* STATMENTS                             KEY         1067     A     
 KEY                SB3    O=NTRM                                                          KEY         1068     A     
 KEY       RTU6     BX4    0                                                               KEY         1069     A     
 KEY                BX5    0                                                               KEY         1070     A     
 KEY                RJ     EMT         EMIT  (SAVE (A0) CODE)                              KEY         1071     A     
 KEY                                                                                       F66FCC       763     A     
 KEY       #FID     IFNE   .FID,0                                                          F66FCC       764     A     
 KEY                SA2    =XCO.ID                                                         F66FCC       765     A     
 KEY                PL     X2,RTU7     IF FID CODE NOT NECESSARY                           F66FCC       766     A     
 KEY                                                                                       F66FCC       767     A     
 KEY                SB3    =XO=NTRN1   SAVE-A1 SKELETON                                    F66FCC       768     A     
 KEY                RJ     EMT         EMIT SAVE-A1 TURPLE                                 F66FCC       769     A     
 KEY       RTU7     BSS                                                                    F66FCC       770     A     
 KEY       #FID     ENDIF                                                                  F66FCC       771     A     
 KEY                                                                                       KEY         1072     A     
 KEY      **        THAT IS ALL FOR THE PARSED FILE.  NOW THE VARIABLE DIMENSION           KEY         1073     A     
 KEY      *                INITIALIZATION CODE WILL BE COMPILED (BY *FVD*).  THE           KEY         1074     A     
 KEY      *                ONLY THING AFTER THAT IS TO JUMP TO THE BEGINNING OF            KEY         1075     A     
 KEY      *                THE ROUTINE (*CT.BEGIN*).  THE JUMP TYPE, HOWEVER,              KEY         1076     A     
 KEY      *                DEPENDS ON MULTIPLE ENTRY POINTS.  WE WILL ADD THE              KEY         1077     A     
 KEY      *                PROPER JUMP MACRO TO THE VAR-DIM TABLE.                         KEY         1078     A     
 KEY                                                                                       KEY         1079     A     
 KEY                SA2    NTRCNT                                                          KEY         1080     A     
 KEY                SB3    O=NTRX                                                          KEY         1081     A     
 KEY                ZR     X2,RTU8     IF NO *ENTRY* STATEMENTS                            KEY         1082     A     
 KEY                SB3    O=NTRY                                                          KEY         1083     A     
 KEY                                                                                       KEY         1084     A     
 KEY      **        IF THIS ROUTINE HAD NO ARGUMENTS, WE DECIDED EARILER TO COME           KEY         1085     A     
 KEY      *                DIRECTLY DOWN HERE.                                             KEY         1086     A     
 KEY      *         ENTRY  (B3) = ADDRESS OF JUMP MACRO.                                   KEY         1087     A     
 KEY                                                                                       KEY         1088     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1002    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY       RTU8     SA1    T.VDIM                                                          KEY         1089     A     
 KEY                BX4    0                                                               KEY         1090     A     
 KEY                =X5    0                                                               KEY         1091     A     
 KEY                RJ     EMT         EMIT  (JUMP TO *CT.BEGIN*)                          KEY         1092     A     
 KEY                EQ     EXIT.                                                           KEY         1093     A     
 KEY       GOT      SPACE  4,20                                                            KEY         1094     A     
 KEY      **        GOT -  PROCESS "GO TO" STATEMENTS.                                     KEY         1095     A     
 KEY      *                                                                                KEY         1096     A     
 KEY      *         *GOT* PROCESSES ALL FORMS OF *GO TO* STATEMENTS --                     KEY         1097     A     
 KEY      *                1. GO TO SN                                                     KEY         1098     A     
 KEY      *                2. GO TO I (SN1,SN2,.....SNN)     (NON-ASA)                     KEY         1099     A     
 KEY      *                   GO TO I,(SN1,SN2,.....SNN)                                   KEY         1100     A     
 KEY      *                3. GO TO   (SN1,SN2,.....SNN),I                                 KEY         1101     A     
 KEY      *                   GO TO   (SN1,SN2,.....SNN) I   (NON-ASA)                     KEY         1102     A     
 KEY      *                                                                                KEY         1103     A     
 KEY      *         ENTRY  B4 _ ELEMENT FOLLOWING *GO TO*                                  KEY         1104     A     
 KEY      *         EXIT   MASTER LOOP                                                     KEY         1105     A     
 KEY                                                                                       KEY         1106     A     
 KEY                                                                                       KEY         1107     A     
 KEY                HEREIF GOTO                                                            KEY         1108     A     
 KEY                                                                                       KEY         1109     A     
 KEY                SA1    B4          POINTING TO 1ST ELEMENT AFTER *GOTO*                KEY         1110     A     
 KEY                =X6    CR.GOTO                                                         KEY         1111     A     
 KEY                ZR     X1,E.GO1    IF MISSING OBJECT OF GO TO - ERROR                  KEY         1112     A     
 KEY                SX2    X1-O.(                                                          KEY         1113     A     
 KEY                SA6    REFNUM      INDICATE FOR CROSS REFERENCE MAP.                   KEY         1114     A     
 KEY                =X6    CR.VGOTO                                                        KEY         1115     A     
 KEY                =A3    B4+1                                                            KEY         1116     A     
 KEY                SA6    REFVAR                                                          KEY         1117     A     
 KEY                ZR     X2,GOT20    IF COMPUTED GO TO                                   KEY         1118     A     
 KEY                SB2    X1-O.VAR                                                        KEY         1119     A     
 KEY                NZ     B2,GOT5     IF NOT VARIABLE.                                    KEY         1120     A     
 KEY                EQ     GOT10                                                           KEY         1121     A     
 KEY      */CHANGE BAD COMMENT                                                             KEY         1122          I
          -FCC0498
 KEY       GOTON    EJECT  4,8                                                             KEY         1123     A     
 KEY      **        HERE IF SIMPLE TRANSFER TO STATEMENT NUMBER.                           KEY         1124     A     
 KEY                                                                                       KEY         1125     A     
 KEY       GOT5     BX6    X1                                                              KEY         1126     A     
 KEY                NZ     X3,E.GO     IF NO *EOS* - ERROR                                 KEY         1127     A     
 KEY                =B2    M.SNLAB+M.SNREF                                                 KEY         1128     A     
 KEY                RJ     ISN         GO IDENTIFY STATEMENT NUMBER                        KEY         1129     A     
 KEY                NG     X6,CPM      IF ERROR IN STATEMENT NUMBER                        KEY         1130     A     
 KEY                SA1    STN0R                                                           KEY         1131     A     
 KEY                SA2    STN                                                             KEY         1132     A     
 KEY                IX0    X1-X2                                                           KEY         1133     A     
 KEY                NZ     X0,GOT6     IF NOT TRANSFER TO ITSELF                           KEY         1134     A     
 KEY                WARN   E.GO7       WARNING                                             KEY         1135     A     
 KEY       GOT6     BX5    X6          SAVE TAG.                                           KEY         1136     A     
 KEY                SA1    INIF                                                            KEY         1137     A     
 KEY                =X6    1                                                               KEY         1138     A     
 KEY                SA6    NOPATH      INICATE POSSIBLE NO-PATH.                           KEY         1139     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1003    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                AX5    P.TAG                                                           KEY         1140     A     
 KEY                SX6    0                                                               KEY         1141     A     
 KEY                ZR     X1,GOT7     IF NO OBJECT OF AN *IF*                             KEY         1142     A     
 KEY                                                                                       KEY         1143     A     
 KEY      **        GO TO SN FOUND TO BE OJBECT OF A ONE BRANCH *IF* STATMENT.             KEY         1144     A     
 KEY      *                                                                                KEY         1145     A     
 KEY      *         IN THIS CASE WE RESET THE GENERATED TAG CELL, SINCE THE TAG            KEY         1146     A     
 KEY      *         WILL NOT BE USED IN THE NEW JUMP MACRO.  NEXT WE REPLACE THE           KEY         1147     A     
 KEY      *         IF JUMP MACRO PUT INTO THE PARSED FILE BY THE *IF* PROCESSOR           KEY         1148     A     
 KEY      *         AND RESET IT TO A --                                                   KEY         1149     A     
 KEY      *                IF(L) 1,N  - WHERE *1* IS THE LABEL DEFINED BY THE              KEY         1150     A     
 KEY      *                             GO TO SN.                                          KEY         1151     A     
 KEY      *         NEXT WE CHECK IF THE *IF* WAS FOUND ON A *DO* TERMINATOR LINE          KEY         1152     A     
 KEY      *         IF SO WE EXIT TO PSN AND FINISH PROCESSING THE *DO*                    KEY         1153     A     
 KEY      *                                                                                KEY         1154     A     
 KEY      *         (X5) = STATEMENT NUMBER TAG SHIFTED BY P.TAG                           KEY         1155     A     
 KEY                                                                                       KEY         1156     A     
 KEY                SA6    NOPATH      CLEAR                                               KEY         1157     A     
 KEY                SA2    TG.PRO                                                          KEY         1158     A     
 KEY                SA6    A1          CLEAR *INIF*                                        KEY         1159     A     
 KEY                SA3    =XFLOW                                                          KEY         1160     A     
 KEY                NZ     X3,PSN      IF NO PATH                                          KEY         1161     A     
 KEY                SX6    X1-1                                                            KEY         1162     A     
 KEY                LX3    X5                                                              KEY         1163     A     
 KEY                SA4    TT.PAR                                                          KEY         1164     A     
 KEY                SA1    IFREL1                                                          KEY         1165     A     
 KEY                =X0    O.IF                                                            KEY         1166     A     
 KEY                LX1    P.JPAD                                                          KEY         1167     A     
 KEY                BX7    X1+X0                                                           KEY         1168     A     
 KEY                SA1    TT=PAR                                                          KEY         1169     A     
 KEY                SA6    A2          RESET GENERATED TAG CELL. (TG.PRO)                  KEY         1170     A     
 KEY                IX0    X1+X4       LWA+1 OF PARSED FILE.                               KEY         1171     A     
 KEY                IFNE   P.PTAGL,,1                                                      KEY         1172     A     
 KEY                AX3    P.PTAGL                                                         KEY         1173     A     
 KEY                SA7    X0-L.TURP   RESET MACRO TO *IFL1N*                              KEY         1174     A     
 KEY                BX6    X3          STATEMENT TAG FOR JUMP                              KEY         1175     A     
 KEY                SA1    DTI                                                             KEY         1176     A     
 KEY                SA6    X0-L.TURP+OR.2OP                                                KEY         1177     A     
 KEY                NZ     X1,PSN      IF IN *DO* TERMINATION -- EXIT..                    KEY         1178     A     
 KEY                SX6    1                                                               KEY         1179     A     
 KEY       GOT7     SA6    IFSN        INDICATE INIF OR NOT.                               KEY         1180     A     
 KEY                BX6    X5                                                              KEY         1181     A     
 KEY                SA6    GOTA        SAVE TAG.                                           KEY         1182     A     
 KEY                =X6    GOT7A       RETURN ADDRESS                                      KEY         1183     A     
 KEY                SA6    HANGER                                                          KEY         1184     A     
 KEY                EQ     PSN         GET NEXT EXECUTABLE..                               KEY         1185     A     
 KEY                                                                                       KEY         1186     A     
 KEY      **        RETURN WITH NEXT EXECUTABLE IN *SB* AND NEXT ACTIVE LABEL              KEY         1187     A     
 KEY      *         IN *CSNTAG* IF ONE EXISTS.                                             KEY         1188     A     
 KEY      *                                                                                KEY         1189     A     
 KEY      *         EVALUATE IF THE GO TO SN IS A TRANSFER TO THE NEXT EXEC.               KEY         1190     A     
 KEY      *         IF SO IGNORE AND NOTE IT TO THE PROGRAMMER.  IF GO TO IS PART          KEY         1191     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1004    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY      *         OF AN IF AND THE ABOVE IS NOT TRUE WE EXIT TO PSN.  IF NOT             KEY         1192     A     
 KEY      *         OBJECT OF AN IF WE ADD O=GOTO MACRO TO PARSED FILE AND EXIT AS         KEY         1193     A     
 KEY      *         ABOVE.                                                                 KEY         1194     A     
 KEY                                                                                       KEY         1195     A     
 KEY       GOT7A    SA2    GOTA        RESTORE TAG.                                        KEY         1196     A     
 KEY                SA3    CSNTAG                                                          KEY         1197     A     
 KEY                BX0    X2-X3                                                           KEY         1198     A     
 KEY                SA1    IFSN                                                            KEY         1199     A     
 KEY                NZ     X0,GOT7B    IF NOT SIMPLE JUMP TO NEXT STATEMENT.               KEY         1200     A     
 KEY                ZR     X1,E.GO2    IF NOT PROCESSING OBJECT OF AN IF.                  KEY         1201     A     
 KEY                                                                                       KEY         1202          I
          -FCC1636X 
 KEY      **        RESET LENGTH OF PARSED FILE TO WHAT IT WAS BEFORE *IF*                 KEY         1203          I
          -FCC1636X 
 KEY      *         PROCESSOR CALLED PARSER.                                               KEY         1204          I
          -FCC1636X 
 KEY      *         NOTE - LDEAD WILL = TT=PAR IF A FUNCTION WAS ENCOUNTERED IN            KEY         1205          I
          -FCC1636X 
 KEY      *         *IF* EXPRESSION, THUS NOT ALL CASES WILL ALL *IF* EXPRESSION           KEY         1206          I
          -FCC1636X 
 KEY      *         CODE BECOME DEAD.                                                      KEY         1207          I
          -FCC1636X 
 KEY                                                                                       KEY         1208          I
          -FCC1636X 
 KEY                SA1    LDEAD                                                           KEY         1209          I
          -FCC1636X 
 KEY                BX6    X1                                                              KEY         1210          I
          -FCC1636X 
 KEY                SHRINK TT=PAR,X6   ELIMINATE ANY PROCESSING OF *IF*                    KEY         1211          I
          -FCC1636X 
 KEY                EQ     E.GO2A      OBJECT OF IF IGNORED.( RETURN TO CUS.RET)           KEY         1212          I
          -FCC1636X 
 KEY                NOTE   E.GO2A      IF RESULTS IN A TRANSFER TO NEXT LINE               FCC1636X      15     A     
 KEY                EQ     CUS.RET                                                         FCC1636X      16     A     
 KEY                                                                                       KEY         1213     A     
 KEY      **        HERE IF JUMP MUST BE COMPILED.                                         KEY         1214     A     
 KEY      *         ADD *GOTON* SKELETON TO PARSED FILE.                                   KEY         1215     A     
 KEY      *         (NOT-TRUE IF PART OF AN *IF*)                                          KEY         1216     A     
 KEY                                                                                       KEY         1217     A     
 KEY       GOT7B    NZ     X1,CUS.RET  IF PART OF 1-BRANCH IF                              KEY         1218     A     
 KEY                RJ     MXP                                                             KEY         1219     A     
 KEY                ALLOC  TT.PAR,L.TURP                                                   KEY         1220     A     
 KEY                SA4    GOTA                                                            KEY         1221     A     
 KEY                SX5    O=GOTON                                                         KEY         1222     A     
 KEY                LX7    X4                                                              KEY         1223     A     
 KEY                BX6    0                                                               KEY         1224     A     
 KEY                =X1    O.GOTO                                                          KEY         1225     A     
 KEY                =A7    B7-L.TURP+OR.2OP                                                KEY         1226     A     
 KEY                LX5    P.JPAD                                                          KEY         1227     A     
 KEY                =A6    A7-OR.2OP+OR.1OP                                                KEY         1228     A     
 KEY                BX7    X5+X1       ADD IN OPERATOR                                     KEY         1229     A     
 KEY                SX6    X2-1                                                            KEY         1230     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1005    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                =A7    A6-OR.1OP+OR.OPR                                                KEY         1231     A     
 KEY                SA6    CURST             RESET SQEEZE START PASTED *GOTO*              KEY         1232     A     
 KEY                EQ     CUS.RET           RETURN TO FINISH PROCESSING HANGER            KEY         1233     A     
 KEY       GOTOVR   EJECT  4,8                                                             KEY         1234     A     
 KEY      **        PROCESS ASSIGNED *GO TO*     GO TO VAR,(N,,,,,,,)                      KEY         1235     A     
 KEY      *         WHERE VAR MUST BE A SIMPLE INTEGER VARIABLE.                           KEY         1236     A     
 KEY                                                                                       KEY         1237     A     
 KEY       GOT10    RJ     TRV         TRANSLATE VARIABLE.                                 KEY         1238     A     
 KEY                SB7    X1-M.INT                                                        KEY         1239     A     
 KEY                ZR     B7,GOT10A   IF INTEGER VARIABLE                                 KEY         1240     A     
 KEY                WARN   =XE.GO1A    OBJECT OF GOTO NOT INTEGER                          KEY         1241     A     
 KEY       GOT10A   BX5    X2          PASS *2* TAG                                        KEY         1242     A     
 KEY                =B4    B4+1                                                            KEY         1243     A     
 KEY                SA2    B4                                                              KEY         1244     A     
 KEY                SB7    X2-O.COMMA                                                      KEY         1245     A     
 KEY                ZR     B7,GOT10B   IF *,*                                              KEY         1246     A     
 KEY                ANSI   E.GO5       NON-ANSI FORM                                       KEY         1247     A     
 KEY                EQ     GOT10C                                                          KEY         1248     A     
 KEY       GOT10B   =B4    B4+1                                                            KEY         1249     A     
 KEY                SA2    B4                                                              KEY         1250     A     
 KEY       GOT10C   SB7    X2-O.(                                                          KEY         1251     A     
 KEY                ZR     B7,GOT10E   IF *(*                                              KEY         1252     A     
 KEY                SA3    X2+=XCHARMAP                                                    KEY         1253     A     
 KEY                MX0    L.CDPC                                                          KEY         1254     A     
 KEY                ZR     X3,GOT10D   IF *O.VAR* OR *O.CON*                               KEY         1255     A     
 KEY                LX2    X3                                                              KEY         1256     A     
 KEY       GOT10D   BX6    X0*X2                                                           KEY         1257     A     
 KEY                SA6    FILL.                                                           KEY         1258     A     
 KEY                EQ     E.GO3                                                           KEY         1259     A     
 KEY       GOT10E   =B4    B4+1                                                            KEY         1260     A     
 KEY       GOT11    SA1    B4                                                              KEY         1261     A     
 KEY                ZR     X1,PSN      MISSING RIGHT PAREN ALREADY DIAGNOSED               KEY         1262     A     
 KEY                BX6    X1                                                              KEY         1263     A     
 KEY                =B2    M.SNLAB+M.SNREF                                                 KEY         1264     A     
 KEY                RJ     ISN         IDENTIFY STATEMENT NUMBER                           KEY         1265     A     
 KEY                SA2    STN0R                                                           KEY         1266     A     
 KEY                SA3    STN                                                             KEY         1267     A     
 KEY                =A4    B4+1                                                            KEY         1268     A     
 KEY                IX2    X3-X2                                                           KEY         1269     A     
 KEY                SB4    B4+2                                                            KEY         1270     A     
 KEY                SX3    X4-O.COMMA                                                      KEY         1271     A     
 KEY                NZ     X2,GOT12    IF NOT REFERENCE TO CURRENT LABEL                   KEY         1272     A     
 KEY                WARN   E.GO8       STATEMENT CAN TRANSFER TO ITSELF - WARNING          KEY         1273     A     
 KEY       GOT12    ZR     X3,GOT11    IF *,*                                              KEY         1274     A     
 KEY                SB2    X3+O.COMMA-O.)                                                  KEY         1275     A     
 KEY                NZ     B2,E.GO     IF NOT *)* - ERROR...                               KEY         1276     A     
 KEY                =A1    B4                                                              KEY         1277     A     
 KEY                ZR     X1,GOT13    IF NOTHING AFTER *)*                                KEY         1278     A     
 KEY                WARN   E.AC8       ILLEGAL CHAR AFTER RIGHT PAREN                      KEY         1279     A     
 KEY                                                                                       KEY         1280     A     
 KEY      **        EMIT ASSIGNED GOTO TURPLE --                                           KEY         1281     A     
 KEY      *                (OPR) = O=GOA                                                   KEY         1282     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1006    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY      *                (OR.1OP) = (X5) = VARIABLE TAG FOR GO TO.                       KEY         1283     A     
 KEY      *                (OR.2OP) = (X5) =   -      -    -   -  -  (DUMMY)               KEY         1284     A     
 KEY                                                                                       KEY         1285     A     
 KEY       GOT13    BX6    X5                                                              KEY         1286     A     
 KEY                SA6    GOTA                                                            KEY         1287     A     
 KEY                RJ     MXP                                                             KEY         1288     A     
 KEY                SA5    GOTA                                                            KEY         1289     A     
 KEY                ALLOC  TT.PAR,L.TURP                                                   KEY         1290     A     
 KEY                SA3    GOASS                                                           KEY         1291     A     
 KEY                BX7    X5                                                              KEY         1292     A     
 KEY                LX6    X5                                                              KEY         1293     A     
 KEY                =A7    B7-L.TURP+OR.2OP                                                KEY         1294     A     
 KEY                =A6    A7-OR.2OP+OR.1OP                                                KEY         1295     A     
 KEY                BX7    X3                                                              KEY         1296     A     
 KEY                =A7    A6-OR.1OP+OR.OPR                                                KEY         1297     A     
 KEY                EQ     GOT80       CONTINUE                                            KEY         1298     A     
 KEY       GOTO()   EJECT  4,8                                                             KEY         1299     A     
 KEY      *         PROCESS COMPUTED *GO TO*                                               KEY         1300     A     
 KEY                                                                                       KEY         1301     A     
 KEY       GOT20    =B6    1           PROCESS COMPUTED GO TO                              KEY         1302     A     
 KEY                                                                                       KEY         1303     A     
 KEY      *         LOOP TO END OF PARAMETER LIST OF STATEMENT NUMBERS.                    KEY         1304     A     
 KEY                                                                                       KEY         1305     A     
 KEY       GOT21    SA1    B4+2                                                            KEY         1306     A     
 KEY                =X2    X1-O.COMMA                                                      KEY         1307     A     
 KEY                SB4    B4+2                                                            KEY         1308     A     
 KEY                =B6    B6+1                                                            KEY         1309     A     
 KEY                ZR     X2,GOT21    IF *,*                                              KEY         1310     A     
 KEY                =X1    X1-O.)                                                          KEY         1311     A     
 KEY                NZ     X1,E.GO     IF NOT *)* - ERROR...                               KEY         1312     A     
 KEY                SB4    B4+2                                                            KEY         1313     A     
 KEY                =A1    B4-1                                                            KEY         1314     A     
 KEY                =X1    X1-O.COMMA                                                      KEY         1315     A     
 KEY                ZR     X1,GOT23    IF *,*                                              KEY         1316     A     
 KEY                ANSI   E.GO4       NON ANSI FORM.                                      KEY         1317     A     
 KEY                =B4    B4-1                                                            KEY         1318     A     
 KEY       GOT23    SA1    GOTARM                                                          KEY         1319     A     
 KEY                BX7    0                                                               KEY         1320     A     
 KEY                LX6    X1                                                              KEY         1321     A     
 KEY                SA7    ARGCOMA                                                         KEY         1322     A     
 KEY                SA6    ARGMODE                                                         KEY         1323     A     
 KEY                SX6    B6                                                              KEY         1324     A     
 KEY                SA6    GOTA        SAVE NUMBER OF BRANCHES                             KEY         1325     A     
 KEY                RJ     MXP                                                             KEY         1326     A     
 KEY                RJ     PAR         PARSE THE INDEX EXPRESSION                          KEY         1327     A     
 KEY                                                                                       KEY         1328     A     
 KEY                RJ     CAI         COMPILE INSTRUCTIONS                                KEY         1329     A     
 KEY                                                                                       KEY         1330     A     
 KEY      **        CODE HAS NOW BEEN COMPILED TO SET (B7) TO THE CORRECT INDEX            KEY         1331     A     
 KEY      *                VALUE.  NEXT COMES THE INDEXED JUMP AND THE *ACGOER*            KEY         1332     A     
 KEY      *                CALL.                                                           KEY         1333     A     
 KEY                                                                                       KEY         1334     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1007    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                SA1    TG.PRO                                                          KEY         1335     A     
 KEY                =X2    I.JP                                                            KEY         1336     A     
 KEY                =X6    X1+1        UPDATE PROGRAM TAG                                  KEY         1337     A     
 KEY                LX2    P.LI12                                                          KEY         1338     A     
 KEY                =X7    -6                                                              KEY         1339     A     
 KEY                SA6    A1                                                              KEY         1340     A     
 KEY                BX4    X6                                                              KEY         1341     A     
 KEY                LX6    P.LTAG                                                          KEY         1342     A     
 KEY                BX3    -X7+X2                                                          KEY         1343     A     
 KEY                WCODE  X3+X6       COMPILE   JP   B6+TAG                               KEY         1344     A     
 KEY                CBSS   X4          COMPILE TAG BSS 0                                   KEY         1345     A     
 KEY                                                                                       KEY         1346     A     
 KEY                TAGSEX S.ACGOR                                                         KEY         1347     A     
 KEY                SA3    =XTRLINE    SET UP LINE NO. FOR TRACEBACK                       KEY         1348     A     
 KEY                CRJ    MUST        COMPILE     RJT =XGOTOER.                           KEY         1349     A     
 KEY                                                                                       KEY         1350     A     
 KEY                SA1    "SB.BOS"                                                        KEY         1351     A     
 KEY                SB4    X1+2                                                            KEY         1352     A     
 KEY                                                                                       KEY         1353     A     
 KEY      *         BUILD JUMP CODE FOR COMPUTED *GO TO*                                   KEY         1354     A     
 KEY                                                                                       KEY         1355     A     
 KEY       GOT32    SA1    B4                                                              KEY         1356     A     
 KEY                =A2    B4-1                                                            KEY         1357     A     
 KEY                BX6    X1                                                              KEY         1358     A     
 KEY                SB7    X2-O.RP                                                         KEY         1359     A     
 KEY                ZR     B7,GOT80    IF END OF STATEMENT LABEL LIST                      KEY         1360     A     
 KEY                =B2    M.SNLAB+M.SNREF                                                 KEY         1361     A     
 KEY                RJ     ISN         IDENTIFY STATEMENT NUMBER                           KEY         1362     A     
 KEY                MX7    L.TAG                                                           KEY         1363     A     
 KEY                BX6    X7*X6       ISOLATE TAG                                         KEY         1364     A     
 KEY                SA1    STN0R                                                           KEY         1365     A     
 KEY                SA2    STN                                                             KEY         1366     A     
 KEY                =X7    I.EQ                                                            KEY         1367     A     
 KEY                BX7    X7+X6                                                           KEY         1368     A     
 KEY                LX7    -L.LI12                                                         KEY         1369     A     
 KEY                WCODE  X7          * EQ  N.TAG*                                        KEY         1370     A     
 KEY                IX3    X2-X1                                                           KEY         1371     A     
 KEY                NZ     X3,GOT42    IF NOT REFERENCE TO CURRENT LABEL                   KEY         1372     A     
 KEY                WARN   E.GO8       STATEMENT CAN TRANSFER TO ITSELF - WARNING          KEY         1373     A     
 KEY       GOT42    SB4    B4+2                                                            KEY         1374     A     
 KEY                EQ     GOT32       LOOP                                                KEY         1375     A     
 KEY                                                                                       KEY         1376     A     
 KEY      *         HERE IF *GO TO* WAS PROCESSED                                          KEY         1377     A     
 KEY                                                                                       KEY         1378     A     
 KEY       GOT80    RJ     CIA         CLEAR ALL REGISTER ASSOCIATES                       KEY         1379     A     
 KEY                =X6    1                                                               KEY         1380     A     
 KEY                SA6    NOPATH      SET POSSIBLE NO-PATH INDICATOR                      KEY         1381     A     
 KEY                EQ     PSN         EXIT..                                              KEY         1382     A     
 KEY       GOTA     DATA   0           OLD STATEMENT NUMBER.                               KEY         1383     A     
 KEY       STP      SPACE  4                                                               KEY         1384     A     
 KEY      **        STP -  PROCESS "STOP" STATEMENT.                                       KEY         1385     A     
 KEY      *         EXIT   *SPR* WITH (B3) = *STOP* INDICATOR.                             KEY         1386     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1008    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                                                                                       KEY         1387     A     
 KEY                                                                                       KEY         1388     A     
 KEY                HEREIF STOP                                                            KEY         1389     A     
 KEY                                                                                       KEY         1390     A     
 KEY                =B6    S=STOP      INDICATE *STOP*                                     KEY         1391     A     
 KEY                RJ     SPR         COMPILE TERMINATING INSTRUCTIONS                    KEY         1392     A     
 KEY                =X7    I.EQ                                                            KEY         1393     A     
 KEY                BX7    X6+X7                                                           KEY         1394     A     
 KEY                LX7    -L.LI12                                                         KEY         1395     A     
 KEY                WCODE  X7          COMPILE  *EQ =X_ROUTINE.*                           KEY         1396     A     
 KEY                SA1    INIF                                                            KEY         1397     A     
 KEY                NZ     X1,PSN      IF OBJECT OF 1-BRANCH IF                            KEY         1398     A     
 KEY                =X6    1                                                               KEY         1399     A     
 KEY                SA6    NOPATH      INDICATE NO-PATH.                                   KEY         1400     A     
 KEY                EQ     PSN         EXIT..                                              KEY         1401     A     
 KEY       SUB      SPACE  4,8                                                             KEY         1402     A     
 KEY      **        SUB -  PROCESS "SUBROUTINE" STATEMENT.                                 KEY         1403     A     
 KEY      *         EXIT   TO MASTER LOOP.                                                 KEY         1404     A     
 KEY      *         CALLS  1.  DCM = ASSEMBLE THE PROGRAM NAME.                            KEY         1405     A     
 KEY      *                2.  PSA = PROCESS ANY FORMAL PARAMETER LIST.                    KEY         1406     A     
 KEY                                                                                       KEY         1407     A     
 KEY                                                                                       KEY         1408     A     
 KEY                HEREIF SUBROUTINE                                                      KEY         1409     A     
 KEY                                                                                       KEY         1410     A     
 KEY                SX6    M.PSUB      SET SUBPROGRAM MODE                                 KEY         1411     A     
 KEY                SA4    =10HSUBROUTINE                                                  KEY         1412     A     
 KEY                RJ     DCM         DISPLAY COMPILING MESSAGE                           KEY         1413     A     
 KEY                RJ     PSA         PROCESS SUBPROGRAM ARGUMENTS                        KEY         1414     A     
 KEY                EQ     PSP         EXIT                                                KEY         1415     A     
 KEY       SER      SPACE  4,8                                                             KEY         1416     A     
 KEY      **        SER -  COMPILE *END* INSTRUCTIONS.                                     KEY         1417     A     
 KEY      *                                                                                KEY         1418     A     
 KEY      *         CALLED BY *END* AND *RETURN* STATEMENTS, IF IN MAIN PROGRAM.           KEY         1419     A     
 KEY      *                                                                                KEY         1420     A     
 KEY      *         COMPILES LOAD OF (X1) = TRACE., FOLLOWED BY *EQ* JUMP TO               KEY         1421     A     
 KEY      *         =XEND.                                                                 KEY         1422     A     
 KEY      *                                                                                KEY         1423     A     
 KEY      *         CALLS  DRITE, TAGSEX, WCODE.                                           KEY         1424     A     
 KEY                                                                                       KEY         1425     A     
 KEY                                                                                       KEY         1426     A     
 KEY       SER      SUBR               ENTRY/EXIT...                                       KEY         1427     A     
 KEY                TAGSEX S.END                                                           KEY         1428     A     
 KEY                AX6    P.TAG                                                           KEY         1429     A     
 KEY                SA1    TT.PAR                                                          KEY         1430     A     
 KEY                BX5    X6                                                              KEY         1431     A     
 KEY                LX4    X6                                                              KEY         1432     A     
 KEY                SB3    O=QUITP                                                         KEY         1433     A     
 KEY                RJ     EMT         EMIT  (O=END, =XEND.)                               KEY         1434     A     
 KEY                EQ     EXIT.                                                           KEY         1435     A     
 KEY       EMT      SPACE  4,8                                                             KEY         1436     A     
 KEY      **        EMT -  EMIT *TURPLE* TO DESIGNATED TABLE.                              KEY         1437     A     
 KEY      *                                                                                KEY         1438     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1009    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY      *         ENTRY  (A1,X1) = TABLE *TURPLE* IS TO BE ADDED TO.                     KEY         1439     A     
 KEY      *                (B3) .GE. 0 = MACRO ADDRESS.                                    KEY         1440     A     
 KEY      *                     .LT. 0 = COMPLEMENT OF ADDRESS OF *SETOP* WORD.            KEY         1441     A     
 KEY      *                (X4) = (1OP).                                                   KEY         1442     A     
 KEY      *                (X5) = (2OP).                                                   KEY         1443     A     
 KEY      *         EXIT   (A1,X1) PRESERVED.                                              KEY         1444     A     
 KEY      *         USES   A2,A3,A6,A7  B2,B7  X0,X2,X3,X6,X7                              KEY         1445     A     
 KEY      *         CALLS  ALLOC                                                           KEY         1446     A     
 KEY                                                                                       KEY         1447     A     
 KEY                                                                                       KEY         1448     A     
 KEY       EMT      SUBR               ENTRY/EXIT...                                       KEY         1449     A     
 KEY                ALLOC  A1,L.TURP                                                       KEY         1450     A     
 KEY                SA3    OPDUM                                                           KEY         1451     A     
 KEY                SX2    B3                                                              KEY         1452     A     
 KEY                BX6    X5                                                              KEY         1453     A     
 KEY                LX7    X4                                                              KEY         1454     A     
 KEY                =A6    B7-1        (2OP)                                               KEY         1455     A     
 KEY                LX2    P.JPAD                                                          KEY         1456     A     
 KEY                =A7    A6-1        (1OP)                                               KEY         1457     A     
 KEY                PL     B3,EMT2     IF (B3) IS MACRO ADDRESS                            KEY         1458     A     
 KEY                SA3    -B3                                                             KEY         1459     A     
 KEY                BX2    0                                                               KEY         1460     A     
 KEY       EMT2     BX6    X3+X2                                                           KEY         1461     A     
 KEY                =A6    A7-1        (OPR)                                               KEY         1462     A     
 KEY                EQ     EXIT.                                                           KEY         1463     A     
 KEY       SPR      SPACE  4,30                                                            KEY         1464     A     
 KEY      **        SPR -  COMPILE TERMINATING/PAUSING INSTRUCTIONS.                       KEY         1465     A     
 KEY      *                                                                                KEY         1466     A     
 KEY      *         CALLED BY *STOP* AND *PAUSE*.                                          KEY         1467     A     
 KEY      *                                                                                KEY         1468     A     
 KEY      *         ENTRY  (B6)  0 IF PAUSE                                                KEY         1469     A     
 KEY      *                     +1 IF STOP                                                 KEY         1470     A     
 KEY      *                (B4) _ NEXT *SB* ENTRY AFTER KEYWORD                            KEY         1471     A     
 KEY      *         EXIT   INSTRUCTIONS COMPILED TO LOAD PROPER ARGUMENT.                  KEY         1472     A     
 KEY      *                (X6) = TAG OF ROUTINE TO JUMP TO.                               KEY         1473     A     
 KEY      *                                                                                KEY         1474     A     
 KEY      *         THE FIRST ELEMENT AFTER THE KEYWORD MAY BE --                          KEY         1475     A     
 KEY      *                (A)  EMPTY                                                      KEY         1476     A     
 KEY      *                (B)  AN INTEGER CONSTANT OF AT MOST 5 DIGITS.  (NON-ASA         KEY         1477          I
          -FCC1046
 KEY      *                     IF NOT OCTAL, BUT WE FEEL ANSI WILL EVENTUALLY             KEY         1478          I
          -FCC1046
 KEY      *                     CHANGE THAT TO DECIMAL, SO NO CHECK IS MADE.)              KEY         1479          I
          -FCC1046
 KEY      *                (B)  A STRING OF AT MOST 5 OCTAL DIGITS.                        FCC1046       11     A     
 KEY      *                (C)  CHARACTER STRING SURROUNDED BY QUOTES (").                 KEY         1480     A     
 KEY                                                                                       KEY         1481     A     
 KEY      **        PREPARE JUMP TAG FOR APPROPRIATE ROUTINE.                              KEY         1482     A     
 KEY                                                                                       KEY         1483     A     
 KEY                                                                                       KEY         1484     A     
 KEY       SPR60    TAGSEX B6+S.PAUSE                                                      KEY         1485     A     
 KEY                MX0    L.TAG                                                           KEY         1486     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1010    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                BX6    X0*X6       ISOLATE TAG                                         KEY         1487     A     
 KEY                                                                                       KEY         1488     A     
 KEY       SPR      SUBR   0                                                               KEY         1489     A     
 KEY                SA1    B4                                                              KEY         1490          I
          -F66FCC 
 KEY                                                                                       F66FCC       772     A     
 KEY       #FID     IFEQ   .FID,0                                                          F66FCC       773     A     
 KEY                SA1    B4                                                              F66FCC       774     A     
 KEY       #FID     ELSE                                                                   F66FCC       775     A     
 KEY                SX6    B4                                                              F66FCC       776     A     
 KEY                SX7    B6                                                              F66FCC       777     A     
 KEY                SA6    SPRA                                                            F66FCC       778     A     
 KEY                =A7    A6+1                                                            F66FCC       779     A     
 KEY                RJ     =XCAI       DUMP PARSE FILE TO LONG FILE                        F66FCC       780     A     
 KEY                SA1    SPRA                                                            F66FCC       781     A     
 KEY                SB4    X1          RESTORE B4 *** ALLOC DOES NOT MOVE *SB* ***         F66FCC       782     A     
 KEY                =A2    A1+1                                                            F66FCC       783     A     
 KEY                SA1    X1          (B4)                                                F66FCC       784     A     
 KEY                SB6    X2                                                              F66FCC       785     A     
 KEY       #FID     ENDIF                                                                  F66FCC       786     A     
 KEY                                                                                       F66FCC       787     A     
 KEY                ZR     X1,SPR17    IF ARGUMENT NOT PRESENT                             KEY         1491     A     
 KEY                =A2    B4+1                                                            KEY         1492     A     
 KEY                =B2    X1-O.HOLL                                                       KEY         1493     A     
 KEY                =B3    X1-O.CONS                                                       KEY         1494     A     
 KEY                ZR     X2,SPR13    IF *EOS*                                            KEY         1495     A     
 KEY                WARN   E.XC        ** EXTRA TRAIL GUNK IGNORED **                      KEY         1496     A     
 KEY       SPR13    ZR     B2,SPR20    IF HOLLERITH CONSTANT.                              KEY         1497     A     
 KEY                NZ     B3,SPR15    IF NO DIGITS                                        KEY         1498     A     
 KEY                                                                                       KEY         1499     A     
 KEY      **        HERE IF SIMPLE ARGUMENT.                                               KEY         1500     A     
 KEY                                                                                       KEY         1501     A     
 KEY                SA1    B4                                                              KEY         1502     A     
 KEY                MX0    7*CHAR                                                          KEY         1503     A     
 KEY                BX1    X0*X1       STRIP OFF TYPE                                      KEY         1504     A     
 KEY                MX0    5*CHAR                                                          KEY         1505     A     
 KEY                BX6    -X0*X1                                                          KEY         1506     A     
 KEY                ZR     X6,SPR14                                                        KEY         1507     A     
 KEY                WARN   =XE.SPR2                                                        KEY         1508     A     
 KEY       SPR14    =X7    M.UNIV                                                          KEY         1509     A     
 KEY                BX6    X0*X1                                                           KEY         1510          I
          -FCC1046
 KEY                BX5    X0*X1                                                           FCC1046       12     A     
 KEY                SA3    B4-1                                                            FCC1046       13     A     
 KEY                RJ     =XOCT                                                           FCC1046       14     A     
 KEY                ZR     X2,SPR14A   IF ALL OCTAL DIGITS                                 FCC1046       15     A     
 KEY                ANSI   =XE.SPR5    NON OCTAL DIGITS                                    FCC1046       16     A     
 KEY       SPR14A   LX6    X5                                                              FCC1046       17     A     
 KEY                RJ     NCS         SCAN/ENTER INTO CONSTANT TABLE.                     KEY         1511     A     
 KEY                EQ     SPR50       CONTINUE.                                           KEY         1512     A     
 KEY                                                                                       KEY         1513     A     
 KEY      **        ILLEGAL ARGUMENT -- FLAG AND TREAT AS NIL.                             KEY         1514     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1011    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
 KEY                                                                                       KEY         1515     A     
 KEY       SPR15    WARN   E.SPR                                                           KEY         1516     A     
 KEY                                                                                       KEY         1517     A     
 KEY      **        NO ARGUMENT CASE -- COMPILE CLEAR OF X1.                               KEY         1518     A     
 KEY                                                                                       KEY         1519     A     
 KEY       SPR17    DRITE  DEACTIVATE                                                      KEY         1520          I
          -FCC1808X 
 KEY                SX7    ZERO+111B   COMPILE *BX1  X1-X1*                                KEY         1521          I
          -FCC1808X 
 KEY                LX7    P.LI15                                                          KEY         1522          I
          -FCC1808X 
 KEY                WCODE  X7,SPR60                                                        KEY         1523          I
          -FCC1808X 
 KEY       SPR17    =X5    M.SHORT                                                         FCC1808X       4     A     
 KEY                RJ     =XESC       PUT ZERO  IN CONSTANTS TABLE                        FCC1808X       5     A     
 KEY                BX6    X5          CONSTANT TAG                                        FCC1808X       6     A     
 KEY                EQ     SPR50                                                           FCC1808X       7     A     
 KEY                                                                                       KEY         1524     A     
 KEY                                                                                       KEY         1525     A     
 KEY      **        HERE IF HOLLERITH CONSTANT FORM                                        KEY         1526     A     
 KEY                                                                                       KEY         1527     A     
 KEY       SPR20    ANSI   =XE.SPR4                                                        KEY         1528     A     
 KEY                SA1    B4                                                              KEY         1529     A     
 KEY                BX6    X1                                                              KEY         1530     A     
 KEY                AX1    P.LCON                                                          KEY         1531     A     
 KEY                MX0    -L.LCON                                                         KEY         1532     A     
 KEY                BX1    -X0*X1                                                          KEY         1533     A     
 KEY                SB2    X1-7                                                            KEY         1534     A     
 KEY                MI     B2,SPR50    IF .LE. 7 WORD CONSTANT                             KEY         1535     A     
 KEY                NOTE   E.SPR1                                                          KEY         1536     A     
 KEY                                                                                       KEY         1537     A     
 KEY      **        COMPILE LOAD OF ARGUMENT                                               KEY         1538     A     
 KEY      *                (X6) = TAG FOR ARGUMENT                                         KEY         1539     A     
 KEY                                                                                       KEY         1540     A     
 KEY       SPR50    MX0    L.TAG                                                           KEY         1541     A     
 KEY                SX1    SA=BKS3+10B                                                     KEY         1542     A     
 KEY                BX6    X0*X6                                                           KEY         1543     A     
 KEY                BX7    X1+X6                                                           KEY         1544     A     
 KEY                LX7    P.LI12                                                          KEY         1545     A     
 KEY                WCODE  X7,SPR60    COMPILE INSTRUCTION AND EXIT..                      KEY         1546     A     
 KEY                                                                                       F66FCC       788     A     
 KEY                                                                                       F66FCC       789     A     
 KEY       #FID     IFNE   .FID,0,1                                                        F66FCC       790     A     
 KEY       SPRA     BSS    2           SAVE B4 AND B6                                      F66FCC       791     A     
 KEY                LIST D                                                                 KEY         1547     A     
 KEY                END                                                                    KEY         1548     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - KEY     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          KEY                       1548      1490
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1012    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN KEY     
  
          FCC0499                     17        17
          FEAT126B                    16        16
          FCC0639                      1         0
          FCC0780                      4         3
          FEAT155G                    17        13
          FEAT155EA                    2         2
          FCC1097                      4         3
          FEAT155GA                    2         2
          FCC1046                      7         7
          FCC1058                      7         7
          FCC1096                      6         6
          FCC1274                     11        11
          FCC1373                      2         2
          FCC1410                      2         2
          FCC1328X                     3         3
          FCC1434X                    11        11
          FCC1467X                     1         1
          F7540FTA                     2         2
          FCC1636X                     8         8
          FCC1524X                     2         2
          FCC1638X                     2         2
          FCC1808X                     4         4
          F66FCC                      33        33
          FCC1998                      5         5
          FCCA434                      1         1
          FCCA442                      6         5
          FCCA465                      1         1
          FCC2159                      3         3
          FCC2307                      5         5
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IF      
  
 IF       *DECK     IF                                                                     IF             1     A     
 IF                 IDENT  IF                                                              IF             2     A     
 IF        IF       SECT   (*IF* STATEMENT PROCESSORS),1                                   IF             3     A     
 IF                                                                                        IF             4     A     
 IF                 SST    B,D,EXIT.                                                       IF             5     A     
 IF                 NOREF  B,D,EXIT.                                                       IF             6     A     
 IF                                                                                        IF             7     A     
 IF        B=IF     RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             IF             8     A     
 IF                                                                                        IF             9     A     
 IF                 ENTRY  INIF,IFSN,IFREL1,IFRESLT,IFMOD,IFS                              IF            10          I
          -FCC0616
 IF                 ENTRY  IFINIF                                                          IF            11          I
          -FCC0616
 IF                 ENTRY IFS11                                                            IF            12          I
          -FCC0616
 IF                 ENTRY  INIF,IFSN,IFREL1,IFRESLT,IFMOD,IFS,IFS11                        FCC0616       22     A     
 IF                                                                                        IF            13     A     
 IF       *         IN TABLES                                                              IF            14     A     
 IF                 EXT    ARGCOMA,ARGMODE,CSNTAG,DTI,FIRSTV,HANGER,IFARM,NOPATH           IF            15     A     
 IF                 EXT    REFVAR,TT.PAR,TG.PRO                                            IF            16     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1013    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IF      
  
 IF                                                                                        IF            17     A     
 IF       *         IN ERRORS                                                              IF            18     A     
 IF                 EXT    E.IF,E.IF2,E.IF3,E.IF4,E.IF5,E.IF6,E.IF7                        IF            19     A     
 IF                 EXT    FILL.                                                           IF            20     A     
 IF                 EXT    E.IF8                                                           IF            21     A     
 IF                                                                                        IF            22     A     
 IF       *         IN MAIN                                                                IF            23     A     
 IF                 EXT    CUS.RET,IFS.X,CSB,CST                                           IF            24     A     
 IF                                                                                        IF            25     A     
 IF       *         IN NUM                                                                 IF            26     A     
 IF                 EXT    PSN,ISN                                                         IF            27     A     
 IF                                                                                        IF            28     A     
 IF       *         IN PAR                                                                 IF            29     A     
 IF                 EXT    PAR                                                             IF            30     A     
 IF                                                                                        IF            31     A     
 IF       *         IN GEN                                                                 IF            32     A     
 IF                 EXT    IFEN2,IFE1N,IFI111,IFLN2,IFL1N,IFL12,IFBASE                     IF            33     A     
 IF                 EXT    NSTDIF,STDIF,MXP                                                IF            34     A     
 IF                                                                                        IF            35     A     
 IF        IFS      SPACE  4,8                                                             IF            36     A     
 IF       **        IFS -  PROCESS *IF* STATEMENT.                                         IF            37     A     
 IF       *         ENTRY  B4 - *(* FOLLOWING *IF*                                         IF            38     A     
 IF                                                                                        IF            39     A     
 IF                                                                                        IF            40     A     
 IF        IFS      RJ     MXP         MARK EXTERNAL PROCESS                               IF            41     A     
 IF                 =B2    0           NORMAL MODE                                         IF            42     A     
 IF                 =B4    B4+1        SET PAST *IF* IN *SB*.                              IF            43     A     
 IF                 =X6    O.SLP                                                           IF            44     A     
 IF                 =X7    1                                                               IF            45          I
          -FCC0616
 IF                 SA6    B4          DUMMY TO SET UP PARSED MODE.                        IF            46     A     
 IF                 SA7    INIF        SET NUMBER OF RELATIONALS/IN-IF.                    IF            47          I
          -FCC0616
 IF                 SA2    IFARM                                                           IF            48     A     
 IF                 =X7    0                                                               IF            49     A     
 IF                 BX6    X2                                                              IF            50     A     
 IF                 SA7    ARGCOMA                                                         IF            51     A     
 IF                 SA6    ARGMODE                                                         IF            52     A     
 IF                 SA7    IFREL1      CLEAR ONE RELATIONAL *IF* CELL                      IF            53     A     
 IF                                                                                        IF            54     A     
 IF                 RJ     PAR         PARSE IT...                                         IF            55     A     
 IF                                                                                        IF            56     A     
 IF       **        RETURN FROM PARSER WITH *B4* _ CLOSING *)* OF *IF*                     IF            57     A     
 IF       *         (IFMOD) = RESULTANT MODE OF *IF* EXPRESSION                            IF            58     A     
 IF       *         (IFRESLT) = RESULT EXPRESSION TAG, EITHER AN INTERMEDIATE OR           IF            59     A     
 IF       *                     SIMPLE VARIABLE                                            IF            60     A     
 IF                                                                                        IF            61     A     
 IF                 SA1    B4+1                                                            IF            62     A     
 IF                 MX0    L.SYM                                                           IF            63     A     
 IF                 =B4    B4+1        POINT TO 1ST OF OBJECT                              IF            64     A     
 IF                 ZR     X1,E.IF     IF MISSING OBJECT OF *IF*                           IF            65     A     
 IF                 =B2    X1-O.CONS                                                       IF            66     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1014    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IF      
  
 IF                 BX6    X0*X1                                                           IF            67     A     
 IF                 SA6    FILL.       RESET FILL.                                         IF            68     A     
 IF                 SA2    IFMOD                                                           IF            69     A     
 IF                 SA6    FIRSTV      RESET FIRST VARIABLE FOR *CST*                      IF            70     A     
 IF                 ZR     B2,IFS40    IF OBJECT OF *IF* IS A STATEMENT NUMBER             IF            71     A     
 IF                 SB7    X2-M.LOG                                                        IF            72     A     
 IF                 ZR     B7,IFS10    IF *LOGICAL* (ONE BRANCH) *IF*                      IF            73     A     
 IF                                                                                        IF            74     A     
 IF       **        IF EXPRESSION NOT LOGICAL, YET SINGLE BRANCH SPECIFIED                 IF            75     A     
 IF       *         OUTPUT *ANSI* ERROR AND HANDLE LIKE *3600* - ONE BRANCH *IF*           IF            76     A     
 IF                                                                                        IF            77     A     
 IF                 EQ     =XE.IF9     ARITHMETIC IF CANNOT HAVE STMT AS OBJECT            IF            78     A     
 IF        IFS10    SA2    IFINIF                                                          IF            79          I
          -FCC0616
 IF        IFS10    SA2    INIF                                                            FCC0616       23     A     
 IF                 NZ     X2,=XE.IF11       IF LOGICAL IF IS OBJECT OF IF                 IF            80     A     
 IF        IFS11    RJ     CST                                                             IF            81     A     
 IF                 MI     B5,=XE.FM   IF UNRECOGNIZABLE STATEMENT                         IF            82     A     
 IF                 BX6    X5                                                              IF            83     A     
 IF                 SA6    "SB.KEY"                                                        IF            84     A     
 IF                 BX0    X5                                                              IF            85     A     
 IF                 SX4    IFLN2                                                           IF            86     A     
 IF                 SX5    IFL1N       OPPOSITE LOGIC IF ONE BRANCH                        IF            87     A     
 IF                 IFBIT  X0,-SNIF,IFS12                                                  IF            88     A     
 IF                 EQ     E.IF6       OBJECT NOT ALLOWED. (RETURN TO PSN)                 IF            89     A     
 IF                                                                                        IF            90     A     
 IF       **        HERE IF LOGICAL *IF* AND OBJECT IS LEGAL. *IF(L)N,2                    IF            91     A     
 IF       *         (LOGICAL = 1 BRANCH IF...)                                             IF            92     A     
 IF       *         WHERE 2 IS EITHER A PROGRAMMER DEFINED LABEL OR ONE GENERATED          IF            93     A     
 IF       *         BY THE COMPILER TO JUMP TO.                                            IF            94     A     
 IF       *                IE.  IF(EXP) 1,2     EQUIVALENT   IF(EXP)C=D                    IF            95     A     
 IF       *                   1  C=D                      2  X=Y                           IF            96     A     
 IF       *                   2  X=Y                                                       IF            97     A     
 IF                                                                                        IF            98     A     
 IF        IFS12    SA1    DTI                                                             IF            99     A     
 IF                 ZR     X1,IFS15    IF NOT *DO* TERMINATOR.                             IF           100     A     
 IF                 IFBIT  X0,-SDON/SNIF,IFS15                                             IF           101     A     
 IF                 ANSI   E.IF2       OBJECT OF IF IS ILLEGAL DO TERMINATOR               IF           102     A     
 IF                 =X4    IFEN2                                                           IF           103          I
          -FCC0743
 IF                 SX5    IFE1N       OPPOSITE LOGIC IF ONE BRANCH                        IF           104          I
          -FCC0743
 IF                 SX4    IFLN2                                                           FCC0743       11     A     
 IF                 SX5    IFL1N       OPPOSITE LOGIC IF ONE BRANCH                        FCC0743       12     A     
 IF        IFS15    SA1    =XFLOW                                                          IF           105     A     
 IF                 NZ     X1,IFS.X    IF NO PATH                                          IF           106     A     
 IF                 ALLOC  TT.PAR,L.TURP                                                   IF           107     A     
 IF                                                                                        IF           108     A     
 IF       **        (X4) = ADDRESS OF SKELETON FOR *IF* CODE.                              IF           109     A     
 IF       *         (B7) = LWA+1                                                           IF           110     A     
 IF                                                                                        IF           111     A     
 IF                 SA2    IFREL1                                                          IF           112     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1015    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IF      
  
 IF                 ZR     X2,IFS17    IF NOT SPECIAL ONE BRANCH *IF*                      IF           113     A     
 IF                 SX5    X2          OPPOSITE LOGIC                                      IF           114     A     
 IF                 AX2    18                                                              IF           115     A     
 IF                 SX4    X2                                                              IF           116     A     
 IF        IFS17    BX7    X5                                                              IF           117     A     
 IF                 LX4    P.JPAD                                                          IF           118     A     
 IF                 SA1    TG.PRO                                                          IF           119     A     
 IF                 SA7    A2          OPPOSITE LOGIC MACRO ADDRESS                        IF           120     A     
 IF                 SA5    IFRESLT                                                         IF           121     A     
 IF                 =X7    X1+1                                                            IF           122     A     
 IF                 BX6    X5                                                              IF           123     A     
 IF                 BX0    X7                                                              IF           124     A     
 IF                 SA7    A1          RESET GENERATED ST-NO CELL.                         IF           125     A     
 IF                 LX0    P.PTAGM                                                         IF           126     A     
 IF                 SA7    INIF        INDICATE DELAYED STORE *BSS* NEEDED                 IF           127     A     
 IF                 SA7    IFINIF                                                          IF           128          I
          -FCC0616
 IF                 IX7    X0+X7       BROADCAST TAG                                       IF           129     A     
 IF                 =A7    B7-1        OR.2OP = JUMP ADDRESS                               IF           130     A     
 IF                 SX3    O.IF                                                            IF           131     A     
 IF                 =A6    A7-1        RESULTS OF *IF* EXPRESSION = OR.1OP                 IF           132     A     
 IF                 IX7    X3+X4                                                           IF           133     A     
 IF                 BX2    0           INDICATE NO LOCATION TAG.                           IF           134     A     
 IF                 =A7    A6-1        (OR.OPR) = OPERATOR (CONTAINS DUMMY 1ST.)           IF           135     A     
 IF                 RJ     CSB         CHECK FOR SEQUENCE BREAK DUE TO OBJECT              IF           136     A     
 IF                 EQ     IFS.X       RETURN TO MASTER LOOP.                              IF           137     A     
 IF                                                                                        IF           138     A     
 IF       **        HERE IF OBJECT OF *IF* MUST BE A STATEMENT NUMBER.                     IF           139     A     
 IF       *         ENTRY  (B4) _ 1ST STATEMENT NUMBER.                                    IF           140     A     
 IF       *                SAVE STATEMENT NUMBERS IN IFSN AND RETURN TO MASTER             IF           141     A     
 IF       *                LOOP TO GET NEXT EXECUTABLE STATEMENT.                          IF           142     A     
 IF       *                                                                                IF           143     A     
 IF       *                RETURN TO IFS50 AND SET-UP SKELETON MACRO FOR PROPER            IF           144     A     
 IF       *                JUMP FOR *IF*.                                                  IF           145     A     
 IF                                                                                        IF           146     A     
 IF                                                                                        IF           147     A     
 IF        IFS40    SA1    IFINIF                                                          IF           148          I
          -FCC0616
 IF        IFS40    SA1    INIF                                                            FCC0616       24     A     
 IF                 BX6    X1                                                              IF           149     A     
 IF                 SA6    IFNEST                                                          IF           150     A     
 IF                 =X6    CR.IFN                                                          IF           151     A     
 IF                 SB6    0                                                               IF           152     A     
 IF                 SA6    REFVAR      INDICATE OBJECT OF IF REFERENCE.                    IF           153     A     
 IF                 SA1    B4          PRELOAD 1ST STATEMENT NUMBER.                       IF           154     A     
 IF                 =B5    3           MAXIMUM NUMBER OF STATEMENT LABELS POSSIBLE         IF           155     A     
 IF                                                                                        IF           156     A     
 IF       **        IDENTIFY STATEMENT LABELS.                                             IF           157     A     
 IF                                                                                        IF           158     A     
 IF        IFS42    =B4    B4+1                                                            IF           159     A     
 IF                 =B2    M.SNLAB+M.SNREF                                                 IF           160     A     
 IF                 BX6    X1                                                              IF           161     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1016    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IF      
  
 IF                 RJ     ISN         IDENTIFY STATEMENT NUMBER.                          IF           162     A     
 IF                 AX6    P.TAG       WANT TAG ONLY                                       IF           163     A     
 IF                 SA1    B4                                                              IF           164     A     
 IF                 SA6    B6+IFSN     SAVE TAG.                                           IF           165     A     
 IF                 =B2    X1-O.COMMA                                                      IF           166     A     
 IF                 =B6    B6+1                                                            IF           167     A     
 IF                 ZR     X1,IFS45    IF *EOS*                                            IF           168     A     
 IF                 NZ     B2,E.IF3    IF MISSING COMMA SEPARATOR                          IF           169     A     
 IF                 =B4    B4+1                                                            IF           170     A     
 IF                 SA1    B4          NEXT STATEMENT NUMBER.                              IF           171     A     
 IF                 ZR     X1,=XE.IF13 IF *EOS*                                            FCC1703X       6     A     
 IF                 NE     B6,B5,IFS42 LOOP ON NEXT NUMBER.                                IF           172     A     
 IF                                                                                        IF           173     A     
 IF                 =B4    B4-1                                                            FCC1238        5     A     
 IF                 SA1    B4          TEST FOR CLEAN STATEMENT ENDING                     FCC1238        6     A     
 IF                 NZ     X1,E.IF3    IF NOT *EOS*                                        FCC1238        7     A     
 IF       **        GO OFF TO HANGER PROCESSING.                                           IF           174     A     
 IF                                                                                        IF           175     A     
 IF        IFS45    =X6    0                                                               IF           176     A     
 IF                 SX7    IFS50       RETURN ADDRESS FOR HANGER                           IF           177          I
          -FCC0481
 IF                 SB7    B6-3                                                            IF           178     A     
 IF                 =A6    A6+1        INDICATE END OF TABLE                               IF           179     A     
 IF                 MI     B7,IFS46    IF LESS THAN 3 LABELS                               IF           180     A     
 IF                 SA1    IFMOD                                                           IF           181     A     
 IF                 SB7    X1-M.LOG                                                        IF           182     A     
 IF                 NZ     B7,IFS47    IF NOT LOGICAL IF                                   IF           183     A     
 IF                 EQ     =XE.IF12    3 LABELS ON LOGICAL IF                              IF           184     A     
 IF                                                                                        IF           185     A     
 IF        IFS46    SA1    A6-2                                                            IF           186          I
          -FCC0481
 IF        IFS46    ANSI   =XE.IF1                                                         FCC0481        5          I
          -FCC0575
 IF        IFS46    SX4    A6          SAVE *A6*                                           FCC0575        5     A     
 IF                 ANSI   =XE.IF1                                                         FCC0575        6     A     
 IF                 SA6    X4          RESTORE *A6*                                        FCC0575        7     A     
 IF                 SA1    A6-2                                                            FCC0481        6     A     
 IF                 EQ     B6,B1,=XE.IF10    IF ONLY ONE LABEL                             IF           187     A     
 IF                 BX6    X1                                                              IF           188     A     
 IF                 LX1    X7                                                              IF           189          I
          -FCC0481
 IF                 =X7    0                                                               IF           190     A     
 IF                 SA6    A6          SET 3RD = 1ST                                       IF           191     A     
 IF                 =A7    A6+1                                                            IF           192     A     
 IF                 LX7    X1                                                              IF           193          I
          -FCC0481
 IF        IFS47    =X6    0                                                               IF           194          I
          -FCC0481
 IF        IFS47    SX7    IFS50       RETURN ADDRESS FOR HANGER                           FCC0481        7          I
          -FCC0743
 IF                                                                                        FCC0743       13     A     
 IF        IFS47    SA1    DTI                                                             FCC0743       14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1017    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IF      
  
 IF                 SX7    IFS50       (X7) = RETURN ADDR FOR *HANGER*                     FCC0743       15     A     
 IF                 =X6    0                                                               FCC0481        8     A     
 IF                 SA7    HANGER      SET RETURN ADDRESS                                  IF           195          I
          -FCC2175
 IF                 SA1    =XFLOW                                                          FCC2175        9     A     
 IF                 ZR     X1,IFS48    IF NOT DEAD CODE                                    FCC2175       10     A     
 IF                 SX7    0           ELSE NO HANGING PROCESS                             FCC2175       11     A     
 IF        IFS48    SA7    HANGER      SET RETURN ADDRESS                                  FCC2175       12     A     
 IF                 SA1    DTI                                                             FCC2175       13     A     
 IF                 SA6    INIF        INDICATE TO *PSN* NO TAG NECESSARY                  IF           196     A     
 IF                 ZR     X1,PSN      IF NOT DO TERMINAL                                  FCC0743       16     A     
 IF                 FATAL  =XE.MDO     *ILLEGAL DO TERMINAL*                               FCC0743       17     A     
 IF                 EQ     PSN         RETURN FOR NEXT EXECUTABLE STMT                     FCC0743       18          I
          -FCC1238
 IF                 EQ     PSN         RETURN FOR NEXT EXECUTABLE STATEMENT.               IF           197     A     
 IF                                                                                        IF           198     A     
 IF       **        HERE WITH NEXT EXECUTABLE STATEMENT.                                   IF           199     A     
 IF                                                                                        IF           200     A     
 IF        IFS50    =X7    0                                                               IF           201     A     
 IF                 SA1    IFSN+2      PRELOAD *3RD* STATMENT NUMBER                       IF           202     A     
 IF                 SA7    HANGER                                                          IF           203     A     
 IF                 LX6    X1          SAME *3RD* NUMBER                                   IF           204     A     
 IF                 SA4    CSNTAG      NEXT EXECUTABLE STATEMENT TAG.                      IF           205     A     
 IF                 SB4    3+1                                                             IF           206     A     
 IF                                                                                        IF           207     A     
 IF        IFS52    =B4    B4-1                                                            IF           208     A     
 IF                 IX0    X1-X4       COMPARE *IF* NUMBER TO UPCOMING NUMBER              IF           209     A     
 IF                 =A1    A1-1        LOAD NEXT NUMBER                                    IF           210     A     
 IF                 ZR     X0,IFS60    IF MATCH                                            IF           211          I
          -FCC2175
 IF                 NZ     B4,IFS52    IF NOT END OF TABLE                                 IF           212          I
          -FCC2175
 IF                 NZ     X0,IFS53    IF NOT MATCH                                        FCC2175       14     A     
 IF                 SA1    =XFLOW                                                          FCC2175       15     A     
 IF                 ZR     X1,IFS60    IF NOT DEAD CODE                                    FCC2175       16     A     
 IF                 SA1    =XLDEAD     ELSE RESET PARSE-FILE                               FCC2175       17     A     
 IF                 SX6    6B          LENGTH                                              FCC2175       18     A     
 IF                 IX6    X1-X6                                                           FCC2175       19     A     
 IF                 SA6    =XTT=PAR                                                        FCC2175       20     A     
 IF        IFS53    NZ     B4,IFS52    IF NOT END OF TABLE                                 FCC2175       21     A     
 IF                                                                                        IF           213     A     
 IF       **        SET-UP JUMP FOR COMPILING CODE FOR IF-JUMP.                            IF           214     A     
 IF                                                                                        IF           215     A     
 IF        IFS60    SA1    IFSN        1ST                                                 IF           216     A     
 IF                 SX5    B4          SET UPCOMING STATEMENT NUMBER FLAG                  IF           217     A     
 IF                 =A2    A1+1        2ND                                                 IF           218     A     
 IF                 BX7    0                                                               IF           219     A     
 IF                 IX3    X1-X6       1ST-3RD                                             IF           220     A     
 IF                 NZ     X3,IFS61    IF 1ST"3RD                                          IF           221     A     
 IF                 SX7    X7+3                                                            IF           222     A     
 IF        IFS61    BX0    X2-X6       2ND-3RD                                             IF           223     A     
 IF                 NZ     X0,IFS62    IF 2ND"3RD                                          IF           224     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1018    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IF      
  
 IF                 SX7    X7+2                                                            IF           225     A     
 IF        IFS62    IX0    X1-X2       1ST-2ND                                             IF           226     A     
 IF                 NZ     X0,IFS63    IF 1ST"2ND                                          IF           227     A     
 IF                 =X7    X7+1                                                            IF           228     A     
 IF                                                                                        IF           229     A     
 IF       **        HERE WITH                                                              IF           230     A     
 IF       *         (X7) = 0 = 1ST"2ND"3RD       (X5)  1 = 1ST = N                         IF           231     A     
 IF       *                1 = 1ST=2ND                 2 = 2ND = N                         IF           232     A     
 IF       *                2 = 2ND=3RD                 3 = 3RD = N                         IF           233     A     
 IF       *                3 = 3RD=1ST                 0 = N NOT REFERENCED.               IF           234     A     
 IF       *                6 = 1ST=2ND=3RD                                                 IF           235     A     
 IF                                                                                        IF           236     A     
 IF        IFS63    SB3    X7-6                                                            IF           237          I
          -FCCA463
 IF        IFS63    SA1    IFNEST                                                          FCCA463        6     A     
 IF                 NZ     X1,IFS64    IF APPENDED TO LOGICAL IF                           FCCA463        7     A     
 IF                 SX6    1                                                               FCCA463        8     A     
 IF                 SA6    NOPATH                                                          FCCA463        9     A     
 IF        IFS64    SB3    X7-6                                                            FCCA463       10     A     
 IF                 NZ     B3,IFS70    IF NO POSSIBLE NULL-TRANSFER.                       IF           238     A     
 IF                 ZR     X5,IFS65    IF NOT NULL TRANSFER.                               IF           239     A     
 IF                 WARN   E.IF5       DO NOTHING STATEMENT.                               IF           240     A     
 IF                 EQ     CUS.RET     FINISH PROCESSING HANGER.                           IF           241     A     
 IF                                                                                        IF           242     A     
 IF        IFS65    WARN   E.IF4                                                           IF           243          I
          -FCC0903
 IF        IFS65    SX3    IFI111                                                          FCC0903        6     A     
 IF                 SA1    IFNEST                                                          FCC0903        7     A     
 IF                 NZ     X1,IFS90    IF APPENDED TO LOGICAL IF                           FCC0903        8     A     
 IF                 WARN   E.IF4                                                           FCC0903        9     A     
 IF                 =X6    1                                                               IF           244          I
          -FCCA463
 IF                 SX3    IFI111                                                          IF           245          I
          -FCC0903
 IF                 SA6    NOPATH      INDICATE NO PATH TO NEXT STATEMENT                  IF           246          I
          -FCCA463
 IF                 EQ     IFS90       CONTINUE.                                           IF           247     A     
 IF                                                                                        IF           248     A     
 IF        IFS70    SA1    IFMOD                                                           IF           249     A     
 IF                 SB6    STDIF                                                           IF           250     A     
 IF                 SB7    X1-M.LOG                                                        IF           251     A     
 IF                 =B3    0                                                               IF           252     A     
 IF                 NZ     B7,IFS71    IF NOT LOGICAL *IF*                                 IF           253     A     
 IF                 SB7    X5-3                                                            IF           254     A     
 IF                 SA1    IFREL1                                                          IF           255     A     
 IF                 MI     B7,IFS72    IF NOT DUMMY *3RD* NUMBER                           IF           256     A     
 IF                 =X5    1                                                               IF           257     A     
 IF        IFS72    SA3    X5+LGIF     LOAD *LOGICAL* *IF* SKELETON ADDRESS                IF           258     A     
 IF                 ZR     X1,IFS90    IF MORE THAN ONE RELATIONAL IN *IF*                 IF           259     A     
 IF                 AX3    18          GET SHIFT COUNT                                     IF           260     A     
 IF                 SB7    X3                                                              IF           261     A     
 IF                 AX3    B7,X1                                                           IF           262     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1019    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IF      
  
 IF                 EQ     IFS90       CONTINUE                                            IF           263     A     
 IF                                                                                        IF           264     A     
 IF       **        TABLE OF LOGICAL 2 BRANCH IF MACRO ADDRESSES                           IF           265     A     
 IF                                                                                        IF           266     A     
 IF        LGIF     VFD    24/0,18/36,18/IFL12                                             IF           267     A     
 IF                 VFD    24/0,18/18,18/IFLN2                                             IF           268     A     
 IF                 VFD    24/0,18/00,18/IFL1N                                             IF           269     A     
 IF                                                                                        IF           270     A     
 IF        IFS71    ZR     X5,IFS80    IF NO REFERENCE TO UPDCOMING STATMENT NUM           IF           271     A     
 IF                 SB6    X5+STDIF+3                                                      IF           272     A     
 IF                 ZR     X7,IFS80    IF ONLY ONE REFERENCE AND NOT 2 ALIKE.              IF           273     A     
 IF                 SB6    NSTDIF-4                                                        IF           274     A     
 IF                 =X7    X7+1                                                            IF           275     A     
 IF                 =B3    1                                                               IF           276     A     
 IF                 SB2    X5-3                                                            IF           277     A     
 IF                 LX7    1           *2                                                  IF           278     A     
 IF                 PL     B2,IFS80    IF *N* IS *3RD* NUMBER IN *IF*                      IF           279     A     
 IF                 =B3    0                                                               IF           280     A     
 IF                                                                                        IF           281     A     
 IF       **        HERE WITH                                                              IF           282     A     
 IF       *         (B3) = OFFSET FOR STATEMENT NUMBER CONFIGURATION.                      IF           283     A     
 IF       *         (B6) = BASE TABLE TO USE.                                              IF           284     A     
 IF       *         (X7) = SPECIAL OFFSET WHEN *N* IS ONE OF STATEMENT NUMBERS.            IF           285     A     
 IF                                                                                        IF           286     A     
 IF        IFS80    SA2    IFMOD                                                           IF           287     A     
 IF                 SB3    X7+B3       TABLE ADDRESS.                                      IF           288     A     
 IF                 MX0    8                                                               IF           289     A     
 IF                 SX6    X2-M.CPLX                                                       IF           290     A     
 IF                 LX2    3           *8                                                  IF           291     A     
 IF                 SA1    B3+B6       LOAD JUMP TABLE WORD.                               IF           292     A     
 IF                 SB2    X2                                                              IF           293     A     
 IF                 LX3    X1,B2                                                           IF           294     A     
 IF                 BX2    X0*X3       EXTRACT RELATIVE SKELETON ADDRESS                   IF           295     A     
 IF                 ZR     X6,IFS82    IF EXPRESSION IS COMPLEX MODE                       IF           296     A     
 IF                 PL     X2,IFS85    IF NO ERROR                                         IF           297     A     
 IF                 FATAL  E.IF7       BRANCH IF NOT ALLOWED WITH LOGICAL RESULT           IF           298     A     
 IF                 EQ     CUS.RET     RETURN TO FINISH PROCESSING HANGER                  IF           299     A     
 IF                                                                                        IF           300     A     
 IF        IFS82    LX6    X2                                                              IF           301     A     
 IF                 SA6    IFSA                                                            IF           302     A     
 IF                 ANSI   E.IF8       ONLY REAL PART WILL BE USED                         IF           303     A     
 IF                 SA2    IFSA                                                            IF           304     A     
 IF        IFS85    LX2    8                                                               IF           305     A     
 IF                 SA1    =XFLOW                                                          IF           306     A     
 IF                 SX3    X2+IFBASE                                                       IF           307     A     
 IF                 NZ     X1,CUS.RET  IF NO PATH                                          IF           308     A     
 IF                                                                                        IF           309     A     
 IF       **        SET-UP PARSED FILE ENTRY.                                              IF           310     A     
 IF       *         (X3) = *IF*S SKELETON ADDRESS.                                         IF           311     A     
 IF       *         (IFSN) = TAGS FOR JUMPS.                                               IF           312     A     
 IF       *                                                                                IF           313     A     
 IF       *         GENERAL FORM OF A 3-BRANCH *IF* MACRO                                  IF           314     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1020    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IF      
  
 IF       *                                                                                IF           315     A     
 IF       *         OR.OPR = MACRO SKELETON ADDRESS                                        IF           316     A     
 IF       *         OR.1OP = TEST OPERAND FOR JUMPS (EITHER INTERMEDIATE OR                IF           317     A     
 IF       *                  SIMPLE OPERAND.)                                              IF           318     A     
 IF       *         OR.2OP = L.PTAGU/3RD JUMP,L.PTAGM/2ND JUMP,L.PTAGL/1ST JUMP            IF           319     A     
 IF                                                                                        IF           320     A     
 IF        IFS90    SX6    X3                                                              IF           321     A     
 IF                 SA1    TT.PAR                                                          IF           322     A     
 IF                 SA6    IFSA        SAVE *SKELETON* ADDRESS                             IF           323     A     
 IF                 ALLOC  A1,L.TURP                                                       IF           324     A     
 IF                 =X0    M.INTR                                                          IF           325          I
          -FCC2175
 IF                 SA1    =XFLOW                                                          FCC2175       22     A     
 IF                 ZR     X1,IFS92    IF NOT DEAD CODE                                    FCC2175       23     A     
 IF                 SA1    =XTT=PAR    ELSE RESET PARSE-FILE                               FCC2175       24     A     
 IF                 SX6    6B          LENGTH                                              FCC2175       25     A     
 IF                 IX6    X1-X6                                                           FCC2175       26     A     
 IF                 SA6    =XTT=PAR                                                        FCC2175       27     A     
 IF        IFS92    =X0    M.INTR                                                          FCC2175       28     A     
 IF                 SA4    IFSA                                                            IF           326     A     
 IF                 SA5    IFRESLT                                                         IF           327     A     
 IF                 SA2    IFSN+2      3RD NUMBER                                          IF           328     A     
 IF                 LX4    P.JPAD      MACRO ADDRESS                                       IF           329     A     
 IF                 =X7    O.IF                                                            IF           330     A     
 IF                 SB2    B7-L.TURP                                                       IF           331     A     
 IF                 BX7    X4+X7       ADD IN OPERATOR                                     IF           332     A     
 IF                 LX2    P.PTAGU                                                         IF           333     A     
 IF                 SA7    B2          OPERATOR                                            IF           334     A     
 IF                 =A3    A2-1        2ND NUMBER                                          IF           335     A     
 IF                 BX6    X5                                                              IF           336     A     
 IF                 LX3    P.PTAGM                                                         IF           337     A     
 IF                 =A1    A3-1        1ST NUMBER                                          IF           338     A     
 IF                 IX7    X3+X2       3RD + 2ND                                           IF           339     A     
 IF                 =A6    A7+1        IF EXPRESSION RESULTS                               IF           340     A     
 IF                 IX7    X7+X1       3RD + 2ND + 1ST                                     IF           341     A     
 IF                 =A7    A6+1                                                            IF           342     A     
 IF                 SA2    IFNEST                                                          IF           343     A     
 IF                 ZR     X2,CUS.RET  IF THIS ARITH IF NOT OBJ OF LOG IF                  IF           344     A     
 IF                 RJ     CSB         EMIT BSS TURPLE                                     IF           345     A     
 IF                 BX6    0                                                               IF           346     A     
 IF                 SA6    IFNEST      SO ONLY ONE BSS TURPLE EMITTED                      IF           347     A     
 IF                 EQ     CUS.RET     RETURN TO FINISH PROCESSING HANGER                  IF           348     A     
 IF                                                                                        IF           349     A     
 IF        INIF     DATA   0           " 0 WHEN PROCESSING A *IF*                          IF           350          I
          -FCC0616
 IF        IFINIF   DATA   0           "0 IF CURRENT STMT IS LOGICAL IF                    IF           351          I
          -FCC0616
 IF        INIF     DATA   0           "0 WHEN PROCESSING A LOGICAL IF                     FCC0616       25     A     
 IF        IFNEST   DATA   0           "0 IF NESTED IF                                     IF           352     A     
 IF        IFMOD    DATA   0           RESULTANT MODE OF IF EXPRESSION                     IF           353     A     
 IF        IFRESLT  DATA   0           RESULTANT OPERAND FROM IF EXPRESSION                IF           354     A     
 IF        IFREL1   DATA   0           =0, MORE THAN ONE RELATIONAL IN *IF*                IF           355     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1021    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IF      
  
 IF        IFSN     DATA   0,0,0,0     IF STATEMENT NUMBER TAGS.                           IF           356     A     
 IF        IFSA     DATA   0           ENTRY CONDITION ON *B4*                             IF           357     A     
 IF                 LIST   D                                                               IF           358     A     
 IF                 END                                                                    IF           359     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - IF      
  
          IDENTIFIER               TOTAL    ACTIVE
  
          IF                         359       333
          FCC0481                      4         2
          FCC0575                      3         3
          FCC0616                      4         4
          FCC0743                      8         7
          FCC0903                      4         4
          FCC1238                      3         3
          FCC1703X                     1         1
          FCCA463                      5         5
          FCC2175                     20        20
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA   *DECK TSDATA                                                                     TSDATA         1     A     
 TSDATA             IDENT  TSDATA                                                          TSDATA         2     A     
 TSDATA    DATA     SECT   (PROCESS *D A T A* STATEMENT.),1                                TSDATA         3          I
          -FCC0583
 TSDATA    TSDATA   SECT   (PROCESS *D A T A* STATEMENTS),1                                FCC0583       31     A     
 TSDATA                                                                                    TSDATA         4     A     
 TSDATA             SST    A,B,D,E,F,Z,EXIT.                                               TSDATA         5     A     
 TSDATA             NOREF  A,B,D,E,F,Z,EXIT.                                               TSDATA         6     A     
 TSDATA                                                                                    TSDATA         7     A     
 TSDATA    B=TSDAT  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             TSDATA         8     A     
 TSDATA                                                                                    TSDATA         9     A     
 TSDATA             ENTRY  DATA2,DAT.Z                                                     TSDATA        10          I
          -FCC0787
 TSDATA             ENTRY  CFC,DATA2,DAT.Z                                                 FCC0787       18     A     
 TSDATA                                                                                    TSDATA        11     A     
 TSDATA   *         IN TABLES                                                              TSDATA        12     A     
 TSDATA             EXT    LASTCOL,REFVAR,TS.SYM,TI=DAT,TI.DAT,TL=DAT,TL.DAT               TSDATA        13     A     
 TSDATA             EXT    TA.NAM,TP.DIM,TS.CON,TS=DAT,TS.DAT                              TSDATA        14     A     
 TSDATA                                                                                    TSDATA        15     A     
 TSDATA   *         IN ERRORS                                                              TSDATA        16     A     
 TSDATA             EXT    E.DAA,E.DABC,E.DAVC,E.DAR,E.DAUC,E.DACV                         TSDATA        17     A     
 TSDATA             EXT    E.DCE,E.DIL,E.DIL1,E.DIL2,E.DIL3,E.DMT,E.DNA,E.DNA2             TSDATA        18     A     
 TSDATA             EXT    E.DHC,E.DSE,E.DTC,E.DVL1,E.DVL2,E.DVL21,E.DVL22,E.DVL23         TSDATA        19     A     
 TSDATA             EXT    E.DVL24,E.DVL25,E.DVL26,E.DVL3,E.DVL4,E.DVL5,E.DVL6             TSDATA        20     A     
 TSDATA             EXT    E.DVL7,E.DVL8,E.DVL9,FILL.                                      TSDATA        21     A     
 TSDATA                                                                                    TSDATA        22     A     
 TSDATA   *         IN END                                                                 TSDATA        23     A     
 TSDATA             EXT    DDS.O,DDS.S,DDS.R,DDS.W                                         TSDATA        24     A     
 TSDATA                                                                                    TSDATA        25     A     
 TSDATA   *         IN ALLOC                                                               TSDATA        26     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1022    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             EXT    ADW                                                             TSDATA        27     A     
 TSDATA                                                                                    TSDATA        28     A     
 TSDATA   *         IN MAIN                                                                TSDATA        29     A     
 TSDATA             EXT    PSP.C                                                           TSDATA        30     A     
 TSDATA                                                                                    TSDATA        31     A     
 TSDATA   *         IN LEX                                                                 TSDATA        32     A     
 TSDATA             EXT    DEC,TRV                                                         TSDATA        33     A     
 TSDATA                                                                                    TSDATA        34     A     
 TSDATA   *         IN INIT                                                                TSDATA        35     A     
 TSDATA             EXT    ADWT,BIAS,CLOSREP,CON1,CON2,DA,DATEMP,DATEMPL,DIM,DLEN          TSDATA        36     A     
 TSDATA             EXT    DIM.MUL,DVT,INDX,INC,I.DIT,LI,LL,LPINF,MP,NONANSI               TSDATA        37     A     
 TSDATA             EXT    N.DIMS,N.ITEM,N.SUBS,N.VSUB,ORD,ORGI,PL,RL,SDPF,SELIST          TSDATA        38     A     
 TSDATA             EXT    SIGN,SST1,SSTL,SUBN,REPFLAG,TEMP,TMP,UL                         TSDATA        39          I
          -FCC0787
 TSDATA             EXT    SCR2,SIGN,SST1,SSTL,SUBN,REPFLAG,TMP,UL                         FCC0787       19     A     
 TSDATA                                                                                    TSDATA        40     A     
 TSDATA    DAT      SPACE  4,8                                                             TSDATA        41     A     
 TSDATA   **        AUTHOR - S.I. JASIK - CDC/SUNNYVALE - JUNE/70                          TSDATA        42     A     
 TSDATA                                                                                    TSDATA        43     A     
 TSDATA                                                                                    TSDATA        44     A     
 TSDATA    DAT      SPACE  4,8                                                             TSDATA        45     A     
 TSDATA   ***       DATA INITIALIZATION STATEMENTS.                                        TSDATA        46     A     
 TSDATA   *                                                                                TSDATA        47     A     
 TSDATA   *         SYNTAX:                                                                TSDATA        48     A     
 TSDATA   *                DATA <DIL>,...,<DIL>                                            TSDATA        49     A     
 TSDATA   *                 WHERE DIL IS A DATA INITIALIZATION LIST                        TSDATA        50     A     
 TSDATA   *                <DIL> := <DVL> / <DIL> / OR ( <DVL> = <DIL> )                   TSDATA        51     A     
 TSDATA   *                 WHERE <DVL> IS A DATA VARIABLE LIST                            TSDATA        52     A     
 TSDATA   *                 AND   <DIL> IS A DATA ITEM LIST ( CONSTANTS )                  TSDATA        53     A     
 TSDATA   *                 THE SECOND SYNTAX WHICH IS NOT ANSI STANDARD IS                TSDATA        54     A     
 TSDATA   *                 REFERED TO AS THE ALTERNATE SYNTAX .                           TSDATA        55     A     
 TSDATA   *                                                                                TSDATA        56     A     
 TSDATA   *         THE SYNTAX OF THE DATA ITEM LIST ( CONSTANTS ) IS                      TSDATA        57     A     
 TSDATA   *                                                                                TSDATA        58     A     
 TSDATA   *                <DIL> := <DIG>,...,<DIG>                                        TSDATA        59     A     
 TSDATA   *                <DIG> := <CONL> OR <RF>*(<CONL>) OR <RF>(<CONL>)                TSDATA        60     A     
 TSDATA   *                OR (<CONL>) OR <RF>*<CON>                                       TSDATA        61     A     
 TSDATA   *                <CONL> := <CON>,,,<CON>                                         TSDATA        62     A     
 TSDATA   *                <CON> := <CONSTANT> OR (<REAL CON>,<REAL CON>)                  TSDATA        63     A     
 TSDATA   *                NOTES:                                                          TSDATA        64     A     
 TSDATA   *                 (1.,2.) IS A COMPLEX CONSTANT                                  TSDATA        65     A     
 TSDATA   *                 2*(1.,2.) # 1.,2.,1.,2.                                        TSDATA        66     A     
 TSDATA   *                 2*((1.,2.)) IS 2 COMPLEX CONSTANTS                             TSDATA        67     A     
 TSDATA   *                                                                                TSDATA        68     A     
 TSDATA   *         THE SYNTAX OF A DATA VARIABLE LIST IS                                  TSDATA        69     A     
 TSDATA   *                <DVL> := <DVG>,...,<DVG>                                        TSDATA        70     A     
 TSDATA   *                <DVG> := <VARNAME> OR <ARRAY>(<CON SUBSC>)                      TSDATA        71     A     
 TSDATA   *                OR <ARRAY> OR <DOLIST>                                          TSDATA        72     A     
 TSDATA   *                WHERE:                                                          TSDATA        73     A     
 TSDATA   *                 <VARNAME> IS THE NAME OF A SIMPLE VARIABLE                     TSDATA        74     A     
 TSDATA   *                 <ARRAY> IS THE NAME OF AN ARRAY                                TSDATA        75     A     
 TSDATA   *                 <CON SUBSC> IS A CONSTANT SUBSCRIPT EXPRESSION                 TSDATA        76     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1023    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA   *                 OF THE FORM C1,C2,C3                                           TSDATA        77     A     
 TSDATA   *                 <DOLIST> IS A NEST OF DO LOOPS HAVING THE                      TSDATA        78     A     
 TSDATA   *                 SAME SYNTAX AS THOSE APPEARING IN AN I/O LIST, EXCEPT          TSDATA        79     A     
 TSDATA   *                 THAT SUBSCRIPTS ARE LIMITED TO THE FORM C1*IVAR+C2             TSDATA        80     A     
 TSDATA   *                 AND ONLY 1 NAME MAY APPEAR IN THE GROUP.                       TSDATA        81     A     
 TSDATA   *                                                                                TSDATA        82     A     
 TSDATA    ANSI     SPACE  4,20                                                            TSDATA        83     A     
 TSDATA   ***              NON-ANSI EXTENSION TO THE DATA STATEMENT --                     TSDATA        84     A     
 TSDATA   *                                                                                TSDATA        85     A     
 TSDATA   *         DO LOOPS AND SUBSCRIPTS OF THE FORM C1*I+C2                            TSDATA        86     A     
 TSDATA   *                                                                                TSDATA        87     A     
 TSDATA   *         A, WHERE "A" IS AN ARRAY IS EQUIVALENT TO (A(I),I=1,PI DIMS)           TSDATA        88     A     
 TSDATA   *                                                                                TSDATA        89     A     
 TSDATA   *         HOLLERITH CONSTANTS MAY BE LONGER THAN ITEM LENGTH ( 1 OR 2            TSDATA        90     A     
 TSDATA   *         WORDS ).                                                               TSDATA        91     A     
 TSDATA   *                                                                                TSDATA        92     A     
 TSDATA   *         ( VARLIST = DATALIST )  SYNTAX                                         TSDATA        93     A     
 TSDATA   *                                                                                TSDATA        94     A     
 TSDATA   *         RF*(C1,...,CN) FOR REPETITION OF A LIST OF ITEMS                       TSDATA        95     A     
 TSDATA   *                                                                                TSDATA        96     A     
 TSDATA   *         VARIABLES IN LABELED COMMON MAY BE INITIALIZED OUTSIDE A               TSDATA        97     A     
 TSDATA   *         BLOCK DATA SUBPROGRAM.                                                 TSDATA        98     A     
 TSDATA   *                                                                                TSDATA        99     A     
 TSDATA   *         THE RANGE OF AN ARRAY MAY BE EXTENDED BY EQUIVALENCING                 TSDATA       100     A     
 TSDATA   *         TO THE LENGTH OF THE EQUIVALENCE CLASS - THE ARRAY BIAS .              TSDATA       101     A     
 TSDATA    MACROS   EJECT  LOCAL MACROS                                                    TSDATA       102     A     
 TSDATA   **        MACROES LOCAL TO THE *DATA* PROCESSOR.                                 TSDATA       103     A     
 TSDATA                                                                                    TSDATA       104     A     
 TSDATA                                                                                    TSDATA       105     A     
 TSDATA    SCANTO   MACRO  DELIM                                                           TSDATA       106     A     
 TSDATA    X        BITMIC (DELIM)                                                         TSDATA       107     A     
 TSDATA             SA5    ="X"                                                            TSDATA       108     A     
 TSDATA             RJ     STD                                                             TSDATA       109     A     
 TSDATA    SCANTO   ENDM                                                                   TSDATA       110     A     
 TSDATA    PARSEM   SPACE  4,8                                                             TSDATA       111     A     
 TSDATA   **        PARSEM - ELIST MANIPULATION MACROS.                                    TSDATA       112     A     
 TSDATA   *         REGISTER USAGE --                                                      TSDATA       113     A     
 TSDATA   *                X1,B2 LOWER 48 BITS AND E-LIST CODE                             TSDATA       114     A     
 TSDATA   *                B3 IS USED TO HOLD E-LIST CODE FOR TESTS                        TSDATA       115     A     
 TSDATA   *                A4,X4 = E-LIST ADDRESS AND CURRENT ELEMENT                      TSDATA       116     A     
 TSDATA   *                A5,X5 = SELIST,(SELIST)                                         TSDATA       117     A     
 TSDATA                                                                                    TSDATA       118     A     
 TSDATA                                                                                    TSDATA       119     A     
 TSDATA    NEXTE    MACRO  R                 GETE NEXT E-LIST ITEM                         TSDATA       120     A     
 TSDATA    Z        SET    R 4                                                             TSDATA       121     A     
 TSDATA             SA.Z   A.Z+B1                                                          TSDATA       122     A     
 TSDATA             SB2    X.Z                                                             TSDATA       123     A     
 TSDATA    NEXTE    ENDM                                                                   TSDATA       124     A     
 TSDATA                                                                                    TSDATA       125     A     
 TSDATA                                                                                    TSDATA       126     A     
 TSDATA    IF.EQ    MACRO  ECODE,LABEL       IF( B2 .EQ. ECODE ) GO TO LABEL               TSDATA       127     A     
 TSDATA    .1       IF     -MIC,ECODE                                                      TSDATA       128     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1024    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             R=     B3,ECODE                                                        TSDATA       129     A     
 TSDATA             EQ     B2,B3,LABEL                                                     TSDATA       130     A     
 TSDATA    .1       ELSE                                                                   TSDATA       131     A     
 TSDATA             EQ     B2,"ECODE",LABEL                                                TSDATA       132     A     
 TSDATA    .1       ENDIF                                                                  TSDATA       133     A     
 TSDATA    IF.EQ    ENDM                                                                   TSDATA       134     A     
 TSDATA                                                                                    TSDATA       135     A     
 TSDATA                                                                                    TSDATA       136     A     
 TSDATA    IF.NE    MACRO  ECODE,LABEL       IF( B2 .NE. ECODE ) GO TO LABEL               TSDATA       137     A     
 TSDATA    .1       IF     -MIC,ECODE                                                      TSDATA       138     A     
 TSDATA             R=     B3,ECODE                                                        TSDATA       139     A     
 TSDATA             NE     B2,B3,LABEL                                                     TSDATA       140     A     
 TSDATA    .1       ELSE                                                                   TSDATA       141     A     
 TSDATA             NE     B2,"ECODE",LABEL                                                TSDATA       142     A     
 TSDATA    .1       ENDIF                                                                  TSDATA       143     A     
 TSDATA    IF.NE    ENDM                                                                   TSDATA       144     A     
 TSDATA    DAT.FMT  EJECT  4,20        STORAGE AND FLAGS                                   TSDATA       145     A     
 TSDATA                                                                                    TSDATA       146     A     
 TSDATA    DIT.CMPX BSS    0           REP-TABLE SKELETON FOR COMPLEX CONSTANT             TSDATA       147     A     
 TSDATA             POS    P.DINDX+L.DINDX                                                 TSDATA       148     A     
 TSDATA             VFD    L.DINDX/2+1                                                     TSDATA       149     A     
 TSDATA             VFD    L.DIWC/2                                                        TSDATA       150     A     
 TSDATA    DIT.HOL  BSS    0           REP-TABLE SKELETON FOR HOLLERITH CONSTANT           TSDATA       151     A     
 TSDATA             POS    P.DIHOL+1                                                       TSDATA       152     A     
 TSDATA             VFD    1/1                                                             TSDATA       153     A     
 TSDATA             POS    P.DINDX+L.DINDX                                                 TSDATA       154     A     
 TSDATA             VFD    L.DINDX/2                                                       TSDATA       155     A     
 TSDATA             VFD    L.DIWC/**                                                       TSDATA       156     A     
 TSDATA    DAT.Z    SPACE  4,20                                                            TSDATA       157     A     
 TSDATA   **        DATA.E - FE ERROR EXIT.                                                TSDATA       158     A     
 TSDATA   *                                                                                TSDATA       159     A     
 TSDATA   *         ENTRY  B6 = ERROR NUMBER                                               TSDATA       160     A     
 TSDATA   *                X4 = ELIST ITEM                                                 TSDATA       161     A     
 TSDATA   *                                                                                TSDATA       162     A     
 TSDATA                                                                                    TSDATA       163     A     
 TSDATA    DATA.E   WARN   B6                                                              TSDATA       164     A     
 TSDATA                                                                                    TSDATA       165     A     
 TSDATA    DAT.Z    SA1    NONANSI     ** MOST ERRORS RETURN TO HERE **                    TSDATA       166     A     
 TSDATA             SHRINK TI=DAT,0                                                        TSDATA       167     A     
 TSDATA             ZR     X1,PSP.C    IF NO NON-ANSI USAGES                               TSDATA       168     A     
 TSDATA             EQ     E.DNA2                                                          TSDATA       169     A     
 TSDATA    DATA     EJECT              MAIN LOOP                                           TSDATA       170     A     
 TSDATA             HEREIF DATA                                                            TSDATA       171     A     
 TSDATA                                                                                    TSDATA       172     A     
 TSDATA             =X6    CR.DAT                                                          TSDATA       173     A     
 TSDATA             SA6    REFVAR      SET UP REFERENCE TYPE                               TSDATA       174     A     
 TSDATA             RJ     RAS               REMOVE ALTERNATE SYNTAX  (V=C)                TSDATA       175     A     
 TSDATA   *                                  AND INITIALIZE                                TSDATA       176     A     
 TSDATA                                                                                    TSDATA       177     A     
 TSDATA    DATA1    =X7    1                                                               TSDATA       178     A     
 TSDATA             BX6    0                                                               TSDATA       179     A     
 TSDATA             SA1    TL.DAT                                                          TSDATA       180     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1025    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             SA7    DIM.MUL                                                         TSDATA       181     A     
 TSDATA             SHRINK TI=DAT,X6                                                       TSDATA       182     A     
 TSDATA             SB5    DATEMPL                                                         TSDATA       183     A     
 TSDATA             SB5    -B5                                                             TSDATA       184     A     
 TSDATA             SX7    B5+DATEMP                                                       TSDATA       185     A     
 TSDATA             SA6    DATEMP                                                          TSDATA       186     A     
 TSDATA                                                                                    TSDATA       187     A     
 TSDATA    DATA15   SA6    A6+B1                                                           TSDATA       188     A     
 TSDATA             SX7    X7+B1                                                           TSDATA       189     A     
 TSDATA             MI     X7,DATA15                                                       TSDATA       190     A     
 TSDATA                                                                                    TSDATA       191     A     
 TSDATA   **        CONVERT THE ITEM LIST TO INTERNAL FORM.                                TSDATA       192     A     
 TSDATA                                                                                    TSDATA       193     A     
 TSDATA             SA2    TL=DAT                                                          TSDATA       194     A     
 TSDATA             IX3    X1+X2             TOP OF STACK + 1                              TSDATA       195     A     
 TSDATA             SA5    X3-1              VAR AND CON LIST POINTERS                     TSDATA       196     A     
 TSDATA             SA4    X5                INITIALIZE FOR CON LIST PROCESSING            TSDATA       197     A     
 TSDATA             AX5    P.DLVAR                                                         TSDATA       198     A     
 TSDATA             SX6    X5                                                              TSDATA       199     A     
 TSDATA             SA6    TMP               SAVE VAR LIST POINTER                         TSDATA       200     A     
 TSDATA             SA5    SELIST                                                          TSDATA       201     A     
 TSDATA             RJ     BIT               BUILD DATA ITEM ( CON ) TABLE                 TSDATA       202     A     
 TSDATA                                                                                    TSDATA       203     A     
 TSDATA   **        PROCESS THE VARIABLE LIST AND MATCH IT UP WITH THE ITEM LIST.          TSDATA       204     A     
 TSDATA                                                                                    TSDATA       205     A     
 TSDATA             SA3    TMP                                                             TSDATA       206     A     
 TSDATA             SA5    SELIST                                                          TSDATA       207     A     
 TSDATA             SA4    X3          INITIALIZE POINTERS                                 TSDATA       208     A     
 TSDATA             BX6    0                                                               TSDATA       209     A     
 TSDATA             SA6    I.DIT                                                           TSDATA       210     A     
 TSDATA             RJ     BVT               PROCESS VARIABLE LIST                         TSDATA       211     A     
 TSDATA                                                                                    TSDATA       212     A     
 TSDATA   **        ISSUE INFORMATIVE DIAGNOSTICS IF LISTS NOT THE SAME LENGTH.            TSDATA       213     A     
 TSDATA                                                                                    TSDATA       214     A     
 TSDATA             SA1    N.ITEM                                                          TSDATA       215     A     
 TSDATA             MI     X1,E.DAVC   IF MORE VARIABLES THAN CONSTANTS                    TSDATA       216     A     
 TSDATA             NZ     X1,E.DACV   IF MORE CONSTANTS THAN VARIABLES                    TSDATA       217     A     
 TSDATA                                                                                    TSDATA       218     A     
 TSDATA    DATA2    SA1    TL=DAT                                                          TSDATA       219     A     
 TSDATA             SX6    X1-1              N.DIL = N.DIL-1                               TSDATA       220     A     
 TSDATA             SA6    A1                                                              TSDATA       221     A     
 TSDATA             NZ     X6,DATA1          IF MORE DIL"S TO GO                           TSDATA       222     A     
 TSDATA             EQ     DAT.Z                                                           TSDATA       223     A     
 TSDATA    RAS      EJECT              RAS - REMOVE ALTERNATE SYNTAX                       TSDATA       224     A     
 TSDATA   **        RAS -  REMOVE ALTERNATE SYNTAX.                                        TSDATA       225     A     
 TSDATA   *                SCAN DATA STMT BACKWARD AND FORM TABLE OF FWA OF DIL            TSDATA       226     A     
 TSDATA   *                AND DVL"S. CHANGE DATA INITIALIZATION LISTS OF THE              TSDATA       227     A     
 TSDATA   *                FORM "( DVL = DIL )" TO "DVL / DIL /" .                         TSDATA       228     A     
 TSDATA   *                INITIALIZE TABLE POINTERS, ETC FOR FURTHER PROCESSING.          TSDATA       229     A     
 TSDATA   *                                                                                TSDATA       230     A     
 TSDATA   *         NOTE:  THIS SUBROUTINE IS A MISTAKE. I ORIGINALLY THOUGHT              TSDATA       231     A     
 TSDATA   *         THAT ONE COULD FIND THE BEGINNING OF THE CON AND VAR LISTS BY          TSDATA       232     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1026    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA   *         A SIMPLE BACKWARDS SCAN OF THE STMT. TO SEE THAT THIS IS NOT           TSDATA       233     A     
 TSDATA   *         TRUE CONSIDER:  DATA (A=1),B/2/ .                                      TSDATA       234     A     
 TSDATA   *         HENCE THE PRESENT VERSION DISALLOWS INTERMIXING SYNTAXS.               TSDATA       235     A     
 TSDATA                                                                                    TSDATA       236     A     
 TSDATA                                                                                    TSDATA       237     A     
 TSDATA    RAS      SUBR               ENTRY/EXIT...                                       TSDATA       238     A     
 TSDATA             SHRINK TL=DAT,0                                                        TSDATA       239     A     
 TSDATA             SA6    NONANSI           CLEAR NON ANSI USEAGE FLAG                    TSDATA       240     A     
 TSDATA             SA3    LASTCOL                                                         TSDATA       241     A     
 TSDATA             SX6    B4+B1                                                           TSDATA       242     A     
 TSDATA             SA6    SELIST                                                          TSDATA       243     A     
 TSDATA             =X7    O.BOS                                                           TSDATA       244     A     
 TSDATA             SA7    B4-B1             (SELIST-1) = BEGIN OF STMT OPERATOR           TSDATA       245     A     
 TSDATA             SB2    X3                                                              TSDATA       246     A     
 TSDATA             SA4    B2+A0       A4,X4 = NEXT ITEM POINTER AND CONTENTS.             TSDATA       247     A     
 TSDATA                                                                                    TSDATA       248     A     
 TSDATA    RAS1     SA4    A4-B1                                                           TSDATA       249     A     
 TSDATA             SB2    X4                NEXTE                                         TSDATA       250     A     
 TSDATA             IF.NE  O.SLASH,RAS3      IF NOT A /                                    TSDATA       251     A     
 TSDATA                                                                                    TSDATA       252     A     
 TSDATA   *         STANDARD SYNTAX                                                        TSDATA       253     A     
 TSDATA                                                                                    TSDATA       254     A     
 TSDATA             SCANTO O.SLASH           FIND BEGINNING OF CON LIST                    TSDATA       255     A     
 TSDATA             SX7    A4                                                              TSDATA       256     A     
 TSDATA             SCANTO (O.BOS,O.SLASH)     SCAN PAST BEGINNING OF VAR LIST             TSDATA       257     A     
 TSDATA             SB6    B2          REMEMBER WHAT STOPPED SCAN                          TSDATA       258     A     
 TSDATA             SX1    A4                                                              TSDATA       259     A     
 TSDATA             LX1    P.DLVAR                                                         TSDATA       260     A     
 TSDATA             BX6    X7+X1             ADD FWA OF DVL TO DIL STACK                   TSDATA       261     A     
 TSDATA             ADDWD  TL.DAT                                                          TSDATA       262     A     
 TSDATA             SA4    A4+B1             BACKE  1                                      TSDATA       263     A     
 TSDATA             SB2    X4                                                              TSDATA       264     A     
 TSDATA             EQ     B6,"O.BOS",RAS1   IF BOS STOPPED SCAN                           TSDATA       265     A     
 TSDATA             IF.EQ  O.COMMA,RAS1      LOOP IF A ,                                   TSDATA       266     A     
 TSDATA             EQ     E.DSE             SYNTAX ERROR                                  TSDATA       267     A     
 TSDATA                                                                                    TSDATA       268     A     
 TSDATA    RAS3     IF.NE  O.),RAS4          IF NO )                                       TSDATA       269     A     
 TSDATA                                                                                    TSDATA       270     A     
 TSDATA   *         ALTERNATE SYNTAX - CONVERT TO STANDARD SYNTAX                          TSDATA       271     A     
 TSDATA                                                                                    TSDATA       272     A     
 TSDATA             ANSI   E.DNA                                                           TSDATA       273     A     
 TSDATA                                                                                    TSDATA       274     A     
 TSDATA             =X6    O.SLASH                                                         TSDATA       275     A     
 TSDATA             SA6    A4                REPLACE ) WITH /                              TSDATA       276     A     
 TSDATA             SCANTO (O.=,O.SLASH)                                                   TSDATA       277     A     
 TSDATA             IF.EQ  O.SLASH,E.DSE     IF SLASH STOPPED SCAN                         TSDATA       278     A     
 TSDATA             =X6    O.SLASH                                                         TSDATA       279     A     
 TSDATA             SX7    A4                                                              TSDATA       280     A     
 TSDATA             SA6    A4                REPLACE = WITH /                              TSDATA       281     A     
 TSDATA             SCANTO O.LP              FIND BEGINNING OF VAR LIST                    TSDATA       282     A     
 TSDATA             SX1    A4                                                              TSDATA       283     A     
 TSDATA             LX1    P.DLVAR                                                         TSDATA       284     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1027    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             BX6    X7+X1             SAVE POINTER TO START OF VAR LIST             TSDATA       285     A     
 TSDATA             ADDWD  TL.DAT                                                          TSDATA       286     A     
 TSDATA             SA4    A4-B1                                                           TSDATA       287     A     
 TSDATA             SB2    X4                NEXTE                                         TSDATA       288     A     
 TSDATA             IF.EQ  O.COMMA,RAS1      LOOP IF A COMMA                               TSDATA       289     A     
 TSDATA             IF.EQ  O.BOS,EXIT.                                                     TSDATA       290     A     
 TSDATA                                                                                    TSDATA       291     A     
 TSDATA    RAS4     IF.NE  O.BOS,E.DSE       ERROR IF NOT BOS                              TSDATA       292     A     
 TSDATA             SA2    TL=DAT                                                          TSDATA       293     A     
 TSDATA             NZ     X2,EXIT.    IF NOT AN EMPTY DATA STATEMENT                      TSDATA       294     A     
 TSDATA             EQ     E.DMT                                                           TSDATA       295     A     
 TSDATA    STD      SPACE  4,8                                                             TSDATA       296     A     
 TSDATA   **        STD - SCAN TO DELIMITER, PERFORM A PARENTHESIS CHECK.                  TSDATA       297     A     
 TSDATA   *                                                                                TSDATA       298     A     
 TSDATA   *         ENTRY  (X5) = DELIMITER BIT MASK                                       TSDATA       299     A     
 TSDATA   *                (A4) _ FWA+1 OF LIST.                                           TSDATA       300     A     
 TSDATA   *                                                                                TSDATA       301     A     
 TSDATA   *         EXIT   (A4) _ TO DELIMITER                                             TSDATA       302     A     
 TSDATA   *                (B2) = ELIST OPCODE OF DELIMITER                                TSDATA       303     A     
 TSDATA                                                                                    TSDATA       304     A     
 TSDATA                                                                                    TSDATA       305     A     
 TSDATA    STD      SUBR               ENTRY/EXIT...                                       TSDATA       306     A     
 TSDATA    Z        BITMIC (O.HOLL,O.CONS,O.VAR,O.PERIOD,O.PL,O.MIN)                       TSDATA       307     A     
 TSDATA             SA1    ="Z"                                                            TSDATA       308     A     
 TSDATA             SB3    O.(                                                             TSDATA       309     A     
 TSDATA             SB4    O.)                                                             TSDATA       310     A     
 TSDATA             SB5    B0                B5 = PAREN COUNT                              TSDATA       311     A     
 TSDATA                                                                                    TSDATA       312     A     
 TSDATA    STD1     SA4    A4-B1                                                           TSDATA       313     A     
 TSDATA             SB2    X4                                                              TSDATA       314     A     
 TSDATA             LX3    X1,B2                                                           TSDATA       315     A     
 TSDATA             MI     X3,STD1     SKIP CONS AND VARS                                  TSDATA       316     A     
 TSDATA             NE     B2,B4,STD2        IF NOT A )                                    TSDATA       317     A     
 TSDATA             SB5    B5+B1             PC = PC+1                                     TSDATA       318     A     
 TSDATA             EQ     STD1                                                            TSDATA       319     A     
 TSDATA                                                                                    TSDATA       320     A     
 TSDATA    STD2     LX3    B2,X5             POSITION DELIMITER MASK                       TSDATA       321     A     
 TSDATA             NE     B2,B3,STD3        IF NOT A (                                    TSDATA       322     A     
 TSDATA             SB5    B5-B1             PC = PC-1                                     TSDATA       323     A     
 TSDATA             PL     B5,STD1           LOOP IF PC \ 0                                TSDATA       324     A     
 TSDATA             MI     X3,EXIT.    IF *(* IS A DELIMITER                               TSDATA       325     A     
 TSDATA             EQ     E.DSE             SYNTAX ERROR ( NEGATIVE PAREN COUNT )         TSDATA       326     A     
 TSDATA                                                                                    TSDATA       327     A     
 TSDATA    STD3     PL     X3,STD4           IF NOT THE DELIM WE WANT                      TSDATA       328     A     
 TSDATA             ZR     B5,EXIT.    IF PAREN COUNT IS ZERO                              TSDATA       329     A     
 TSDATA             EQ     E.DSE             SYNTAX ERROR                                  TSDATA       330     A     
 TSDATA                                                                                    TSDATA       331     A     
 TSDATA    STD4     IF.NE  O.BOS,STD1        LOOP IF NOT BOS                               TSDATA       332     A     
 TSDATA             EQ     E.DSE             SYNTAX ERROR                                  TSDATA       333     A     
 TSDATA    BIT      EJECT              BIT - BUILD DATA ITEM TABLE                         TSDATA       334     A     
 TSDATA   **        BIT - BUILD DATA ITEM TABLE.                                           TSDATA       335     A     
 TSDATA   *                SCAN THE ITEM LIST AND CONVERT IT INTO INTERNAL FORMAT          TSDATA       336     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1028    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA   *                                                                                TSDATA       337     A     
 TSDATA   *                CONSTANTS ARE REPRESENTATED AS                                  TSDATA       338     A     
 TSDATA   *                 1/0,1/HOL FLAG,22/0,18/INDEX,18/WORD COUNT                     TSDATA       339          I
          -FCC1563X 
 TSDATA   *                                                                                FCC1563X       9     A     
 TSDATA   *         1/0,1/HOL FLAG,16/0,6/CTYP,18/INDEX,18/WORD COUNT                      FCC1563X      10     A     
 TSDATA   *                                                                                FCC1563X      11     A     
 TSDATA   *                 FOLLOWED BY WC WORDS OF DATA FOR NON HOLLERITH CONSTAN         TSDATA       340     A     
 TSDATA   *                 FOR HOL CONSTANTS THE NEXT WORD CONTAINS THE ELIST             TSDATA       341          I
          -FCC1563X 
 TSDATA   *                 FOR HOL CONSTANTS, THE NEXT WORD CONTAINS THE ELIST.           FCC1563X      12     A     
 TSDATA   *                 CTYP = CONSTANT TYPE FOR NON-HOLLERITH CONSTANTS.              FCC1563X      13     A     
 TSDATA   *                                                                                TSDATA       342     A     
 TSDATA   *                REPETITION COUNTS ARE REPRESENTED AS                            TSDATA       343     A     
 TSDATA   *                 1/1,5/CIF,18/RL,18/INDEX TO NEXT GROUP,18/REP COUNT            TSDATA       344     A     
 TSDATA   *                 CIF = 1 OR 2 IF ALL ITEMS ARE THE SAME LENGTH, AND             TSDATA       345     A     
 TSDATA   *                 LENGTH IS 1 OR 2 WORDS , ELSE 0                                TSDATA       346     A     
 TSDATA   *                 RL = NUMBER OF ITEMS IN THE REP LIST                           TSDATA       347     A     
 TSDATA   *                                                                                TSDATA       348     A     
 TSDATA                                                                                    TSDATA       349     A     
 TSDATA    BIT      SUBR               ENTRY/EXIT...                                       TSDATA       350     A     
 TSDATA                                                                                    TSDATA       351     A     
 TSDATA    BIT.L    NEXTE                    NEXT ELIST ITEM                               TSDATA       352     A     
 TSDATA             SA3    ="M.CON"                                                        TSDATA       353     A     
 TSDATA             LX7    B2,X3                                                           TSDATA       354     A     
 TSDATA             =B5    O.CONS                                                          TSDATA       355     A     
 TSDATA             PL     X7,E.DIL    IF NOT  CON HOLL + - . OR (                         TSDATA       356     A     
 TSDATA             IF.EQ  O.HOLL,BIT1                                                     TSDATA       357     A     
 TSDATA             EQ     B2,B5,BIT2  IF NUMBER                                           TSDATA       358     A     
 TSDATA             =B7    B2-O.TRUE                                                       TSDATA       359     A     
 TSDATA             SB3    O.(                                                             TSDATA       360     A     
 TSDATA             ZR     B7,BIT8     IF *.TRUE.*                                         TSDATA       361     A     
 TSDATA             IFNE   O.TRUE+1,O.FALSE,1                                              TSDATA       362     A     
 TSDATA             =B7    B2+O.TRUE+1-O.FALSE                                             TSDATA       363     A     
 TSDATA             EQ1    B7,BIT8     IF *.FALSE.*                                        TSDATA       364     A     
 TSDATA             EQ     B2,B3,BIT6        IF A (                                        TSDATA       365     A     
 TSDATA             SX2    B2-O.MIN                                                        TSDATA       366     A     
 TSDATA                                                                                    TSDATA       367     A     
 TSDATA   **        HERE WITH + OR - SIGN, OR PERIOD.                                      TSDATA       368     A     
 TSDATA                                                                                    TSDATA       369     A     
 TSDATA             BX7    0                                                               TSDATA       370     A     
 TSDATA             IF.EQ  O.PERIOD,BIT1     IF FLOATING PT. CONSTANT                      TSDATA       371     A     
 TSDATA             AX3    X2,B1            -0 IF + , +0 IF - SIGN                         TSDATA       372     A     
 TSDATA             BX7    -X3                                                             TSDATA       373     A     
 TSDATA             NEXTE                                                                  TSDATA       374     A     
 TSDATA             IF.EQ  O.PERIOD,BIT1     IF FLOATING PT. CONSTANT                      TSDATA       375     A     
 TSDATA             EQ     B2,B5,BIT1  IF NUMBER                                           TSDATA       376     A     
 TSDATA             IF.NE  O.HOLL,E.DIL1     IF NOT HOLL                                   TSDATA       377     A     
 TSDATA                                                                                    TSDATA       378     A     
 TSDATA    BIT1     RJ     ADC         ADD CONSTANT TO TABLE                               TSDATA       379     A     
 TSDATA             EQ     BIT9                                                            TSDATA       380     A     
 TSDATA                                                                                    TSDATA       381     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1029    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA   *         CONSTANT                                                               TSDATA       382     A     
 TSDATA                                                                                    TSDATA       383     A     
 TSDATA    BIT2     SB4    A4                LOOK AHEAD                                    TSDATA       384     A     
 TSDATA             SX5    A4                                                              TSDATA       385     A     
 TSDATA             RJ     DEC         DUMMY KLUDGE TO SKIP OVER CONSTANT                  TSDATA       386     A     
 TSDATA             SA4    X5                                                              TSDATA       387     A     
 TSDATA             SA2    B4+B1                                                           TSDATA       388     A     
 TSDATA             SA5    SELIST      RESTORE (A5)                                        TSDATA       389     A     
 TSDATA             SA3    ="M.SEP"                                                        TSDATA       390     A     
 TSDATA             SB2    X2                                                              TSDATA       391     A     
 TSDATA             BX7    0                                                               TSDATA       392     A     
 TSDATA             LX6    B2,X3                                                           TSDATA       393     A     
 TSDATA             MI     X6,BIT1           IF NEXT IS , ) OR /                           TSDATA       394     A     
 TSDATA             SA3    REPFLAG                                                         TSDATA       395     A     
 TSDATA             NZ     X3,E.DIL2         IF WE ARE WITHIN A REP LOOP                   TSDATA       396     A     
 TSDATA                                                                                    TSDATA       397     A     
 TSDATA             SX7    B1                SET TO CLOSE ON )                             TSDATA       398     A     
 TSDATA             IF.NE  O.STAR,BIT3       IF NOT CON*                                   TSDATA       399     A     
 TSDATA                                                                                    TSDATA       400     A     
 TSDATA             NEXTE  2                 LOOK PAST *                                   TSDATA       401     A     
 TSDATA             IF.EQ  O.(,BIT4          IF A (                                        TSDATA       402     A     
 TSDATA             SX7    -B1               SET FOR SINGLE ELEMENT REP                    TSDATA       403     A     
 TSDATA             EQ     BIT5                                                            TSDATA       404     A     
 TSDATA                                                                                    TSDATA       405     A     
 TSDATA    BIT3     IF.NE  O.(,E.DIL         SYNTAX ERROR IF NOT A (                       TSDATA       406     A     
 TSDATA    BIT4     ANSI   E.DAR                                                           TSDATA       407     A     
 TSDATA                                                                                    TSDATA       408     A     
 TSDATA    BIT5     SX6    A2-B1       BACKOFF AND SAVE ELIST POINTER                      TSDATA       409     A     
 TSDATA             SA6    A5                                                              TSDATA       410     A     
 TSDATA             SA7    CLOSREP                                                         TSDATA       411     A     
 TSDATA             RJ     CSC               CHECK CONSTANT AND CONVERT                    TSDATA       412     A     
 TSDATA                                                                                    TSDATA       413     A     
 TSDATA             MX0    1                                                               TSDATA       414     A     
 TSDATA             BX6    X0+X6             CONSTRUCT ENTRY FOR ADIT                      TSDATA       415     A     
 TSDATA             SB5    B0                                                              TSDATA       416     A     
 TSDATA             RJ     ADIT                                                            TSDATA       417     A     
 TSDATA                                                                                    TSDATA       418     A     
 TSDATA             SA1    N.ITEM                                                          TSDATA       419     A     
 TSDATA             SX6    X2-1                                                            TSDATA       420          I
          -FCC1746X 
 TSDATA             LX1    P.DINDX                                                         TSDATA       421     A     
 TSDATA             BX6    X1+X6                                                           TSDATA       422          I
          -FCC1746X 
 TSDATA             BX6    X1+X2                                                           FCC1746X       5     A     
 TSDATA             SA6    REPFLAG           SAVE ITEM COUNT AND POINTER                   TSDATA       423     A     
 TSDATA             MX7    0                                                               TSDATA       424     A     
 TSDATA             SA7    A1                CLEAR ITEM FLAG                               TSDATA       425     A     
 TSDATA             SA5    SELIST      RESTORE (A5)                                        TSDATA       426     A     
 TSDATA             SA4    X5          RESTORE (A4)                                        TSDATA       427     A     
 TSDATA             EQ     BIT.L             AND LOOP TO PROCESS REP LIST                  TSDATA       428     A     
 TSDATA                                                                                    TSDATA       429     A     
 TSDATA   *         ( - START OF A REPEATED DATA LIST OR A COMPLEX CONSTANT                TSDATA       430     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1030    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA                                                                                    TSDATA       431     A     
 TSDATA    BIT6     SA1    PL                PARENTHESIS LEVEL                             TSDATA       432     A     
 TSDATA             SA2    CLOSREP                                                         TSDATA       433     A     
 TSDATA             SX7    X1+B1             PL = PL+1                                     TSDATA       434     A     
 TSDATA             SA7    A1                                                              TSDATA       435     A     
 TSDATA             IX3    X2-X7                                                           TSDATA       436     A     
 TSDATA             ZR     X3,BIT.L          IF ( IS A REP BRACKET                         TSDATA       437     A     
 TSDATA                                                                                    TSDATA       438     A     
 TSDATA   *         CHECK FOR A COMPLEX CONSTANT                                           TSDATA       439     A     
 TSDATA                                                                                    TSDATA       440     A     
 TSDATA             RJ     CFC               CHECK FOR COMPLEX CONSTANT                    TSDATA       441     A     
 TSDATA             ZR     X0,BIT7           IF IT IS                                      TSDATA       442     A     
 TSDATA             SA1    PL                                                              TSDATA       443     A     
 TSDATA             AX2    B1,X1                                                           TSDATA       444     A     
 TSDATA             ZR     X2,BIT.L          IF A MEANINGLESS PAREN                        TSDATA       445     A     
 TSDATA             EQ     E.DIL2            ERROR - 2 NESTED PAREN GROUPS                 TSDATA       446     A     
 TSDATA                                                                                    TSDATA       447     A     
 TSDATA    BIT7     SA3    DIT.CMPX          DIT HEADER WORD                               TSDATA       448     A     
 TSDATA             SA4    PL                                                              TSDATA       449     A     
 TSDATA             BX6    X3                                                              TSDATA       450     A     
 TSDATA             SX7    X4-1              DECREMENT PAREN COUNT                         TSDATA       451     A     
 TSDATA             SA7    A4                                                              TSDATA       452     A     
 TSDATA             SB5    B1+B1                                                           TSDATA       453     A     
 TSDATA             RJ     ADIT              ADD CONSTANT TO DIT                           TSDATA       454     A     
 TSDATA             SA1    N.ITEM                                                          TSDATA       455     A     
 TSDATA             SX6    X1+B1             N.ITEM = N.ITEM+1                             TSDATA       456     A     
 TSDATA             SA6    A1                                                              TSDATA       457     A     
 TSDATA             SA5    SELIST                                                          TSDATA       458     A     
 TSDATA             SA4    X5                                                              TSDATA       459     A     
 TSDATA             SB2    X4                                                              TSDATA       460     A     
 TSDATA             EQ     BIT.S       PROCESS SEPARATOR                                   TSDATA       461     A     
 TSDATA                                                                                    TSDATA       462     A     
 TSDATA                                                                                    TSDATA       463     A     
 TSDATA   **        HANDLE LOGICAL CONSTANTS HERE.                                         TSDATA       464     A     
 TSDATA   *                (B7) = 0 IF .TRUE.                                              TSDATA       465     A     
 TSDATA   *                     = 1 IF .FALSE.                                             TSDATA       466     A     
 TSDATA                                                                                    TSDATA       467     A     
 TSDATA    BIT8     =X0    1+1         INDEX = WORD COUNT + 1                              TSDATA       468     A     
 TSDATA             =X1    B7-1                                                            TSDATA       469     A     
 TSDATA             =X2    1           WORD COUNT = 1                                      TSDATA       470     A     
 TSDATA             =X7    A4+1                                                            TSDATA       471     A     
 TSDATA             LX0    P.DINDX                                                         TSDATA       472     A     
 TSDATA             SA7    SELIST                                                          TSDATA       473     A     
 TSDATA             =B5    2-1         ADD (X6, X1)                                        TSDATA       474     A     
 TSDATA             BX6    X0+X2                                                           TSDATA       475     A     
 TSDATA             RJ     ADIT        ADD LOGICAL CONSTANT TO DATA ITEM TABLE             TSDATA       476     A     
 TSDATA             SA5    SELIST                                                          TSDATA       477     A     
 TSDATA             SA4    X5          RESTORE SOME REGISTERS                              TSDATA       478     A     
 TSDATA             SB2    X4                                                              TSDATA       479     A     
 TSDATA                                                                                    TSDATA       480     A     
 TSDATA    BIT9     SA3    N.ITEM                                                          TSDATA       481     A     
 TSDATA             =X6    X3+1        (N.ITEM) = (N.ITEM) + 1                             TSDATA       482     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1031    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             SA6    A3                                                              TSDATA       483     A     
 TSDATA   *         EQ     BIT.S             PROCESS SEPERATOR                             TSDATA       484     A     
 TSDATA                                                                                    TSDATA       485     A     
 TSDATA   *         PROCESS SEPERATOR AFTER CONSTANT                                       TSDATA       486     A     
 TSDATA                                                                                    TSDATA       487     A     
 TSDATA                                                                                    TSDATA       488     A     
 TSDATA    BIT.S    SA1    CLOSREP                                                         TSDATA       489     A     
 TSDATA             PL     X1,BIT.S1         IF NO SINGLE ELEMENT REP OUTSTANDING          TSDATA       490     A     
 TSDATA             RJ     CRL                                                             TSDATA       491     A     
 TSDATA                                                                                    TSDATA       492     A     
 TSDATA    BIT.S1   IF.EQ  O.COMMA,BIT.L     LOOP IF A ,                                   TSDATA       493     A     
 TSDATA             IF.EQ  O.SLASH,EXIT.                                                   TSDATA       494     A     
 TSDATA             IF.NE  O.),E.DIL3        IF NOT A RPAREN, ERR..                        TSDATA       495     A     
 TSDATA             MX7    0                                                               TSDATA       496     A     
 TSDATA             SA7    PL                CLEAR PAREN LEVEL                             TSDATA       497     A     
 TSDATA             SA1    CLOSREP                                                         FCC0522        4     A     
 TSDATA             ZR     X1,BIT.S2         IF NO REP LIST TO CLOSE                       TSDATA       498     A     
 TSDATA             RJ     CRL               CLOSE IT                                      TSDATA       499     A     
 TSDATA                                                                                    TSDATA       500     A     
 TSDATA    BIT.S2   NEXTE                    NEXT ELEMENT                                  TSDATA       501     A     
 TSDATA             EQ     BIT.S                                                           TSDATA       502     A     
 TSDATA    CRL      EJECT                                                                  TSDATA       503     A     
 TSDATA   **        CRL - CLOSE OUT REP LIST.                                              TSDATA       504     A     
 TSDATA   *                                                                                TSDATA       505     A     
 TSDATA   *         ENTRY  A1,X1 = CLOSREP                                                 TSDATA       506     A     
 TSDATA                                                                                    TSDATA       507     A     
 TSDATA                                                                                    TSDATA       508     A     
 TSDATA    CRL2     SX0    B4                                                              TSDATA       509     A     
 TSDATA             LX0    54                POSITION ITEM LENGTH                          TSDATA       510     A     
 TSDATA             BX6    X0+X6                                                           TSDATA       511     A     
 TSDATA             SA6    A6                STORE UPDATED REP WORD IN DIT                 TSDATA       512     A     
 TSDATA                                                                                    TSDATA       513     A     
 TSDATA    CRL      SUBR               ENTRY/EXIT...                                       TSDATA       514     A     
 TSDATA             SA2    REPFLAG                                                         TSDATA       515     A     
 TSDATA             MX7    0                                                               TSDATA       516     A     
 TSDATA             SA7    A1                CLEAR FLAGS                                   TSDATA       517     A     
 TSDATA             SA7    A2                                                              TSDATA       518     A     
 TSDATA                                                                                    TSDATA       519     A     
 TSDATA             SA3    TI.DAT                                                          TSDATA       520     A     
 TSDATA             IX6    X3+X2                                                           TSDATA       521     A     
 TSDATA             SA1    X6                WORD 1 OF REP ENTRY IN DIT                    TSDATA       522          I
          -FCC1746X 
 TSDATA             =A1    X6-1        WORD 1 OF REP ENTRY IN *DIT*                        FCC1746X       6     A     
 TSDATA             SA3    N.ITEM            NUMBER OF ITEMS IN REP LIST                   TSDATA       523     A     
 TSDATA             AX2    P.DINDX                                                         TSDATA       524     A     
 TSDATA             SB6    X3                B6 = NUMBER OF ITEMS IN LIST                  TSDATA       525     A     
 TSDATA             PX7    X3                                                              TSDATA       526          I
          -FCC0522
 TSDATA             SX0    X1                REMOVE REP FLAG BIT                           TSDATA       527          I
          -FCC0522
 TSDATA             PX6    X0                                                              TSDATA       528          I
          -FCC0522
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1032    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             DX6    X6*X7             RF * N.ITEMS                                  TSDATA       529          I
          -FCC0522
 TSDATA             UX6    X6                                                              TSDATA       530          I
          -FCC0522
 TSDATA             SX0    X1                REMOVE REP FLAG BIT                           FCC0522        5     A     
 TSDATA             IX6    X0*X3             RF * N.ITEMS                                  FCC0522        6     A     
 TSDATA             IX7    X6+X2                                                           TSDATA       531     A     
 TSDATA             SA7    A3                                                              TSDATA       532     A     
 TSDATA             LX3    P.DIRL                                                          TSDATA       533     A     
 TSDATA             BX6    X3+X1             ADD NUMBER OF ITEMS TO WORD 1                 TSDATA       534     A     
 TSDATA             SA2    TI.DAT                                                          TSDATA       535     A     
 TSDATA             SA3    TI=DAT            L.DIT                                         TSDATA       536     A     
 TSDATA             IX2    X2+X3                                                           TSDATA       537     A     
 TSDATA             SX0    A1                                                              TSDATA       538     A     
 TSDATA             IX7    X2-X0                                                           TSDATA       539     A     
 TSDATA             LX7    P.DINDX           INDEX TO NEXT FEOUP                           TSDATA       540     A     
 TSDATA             BX6    X7+X6                                                           TSDATA       541     A     
 TSDATA             SA6    A1                UPDATE WORD 1                                 TSDATA       542     A     
 TSDATA                                                                                    TSDATA       543     A     
 TSDATA   **        SEARCH FOR AND MARK REP LISTS WHERE ALL ITEMS ARE THE SAME             TSDATA       544     A     
 TSDATA   *         LENGTH AND LENGTH = 1 OR 2 .                                           TSDATA       545     A     
 TSDATA                                                                                    TSDATA       546     A     
 TSDATA             SA2    A1+B1                                                           TSDATA       547     A     
 TSDATA             SB4    X2                NUMBER OF WORDS IN FIRST ITEM                 TSDATA       548     A     
 TSDATA             SB3    B4-B1                                                           TSDATA       549     A     
 TSDATA             GT1    B3,EXIT.    IF WC .GT. 2                                        TSDATA       550     A     
 TSDATA                                                                                    TSDATA       551     A     
 TSDATA    CRL1     AX2    P.DINDX                                                         TSDATA       552     A     
 TSDATA             SB6    B6-B1                                                           TSDATA       553     A     
 TSDATA             ZR     B6,CRL2           IF END OF REP LIST                            TSDATA       554     A     
 TSDATA             SB2    X2                                                              TSDATA       555          I
          -FCC0522
 TSDATA             SA2    A2+B2             FIRST WORD OF NEXT ITEM                       TSDATA       556          I
          -FCC0522
 TSDATA             SB3    X2                                                              FCC0522        7     A     
 TSDATA             SA2    A2+B3                                                           FCC0522        8     A     
 TSDATA             SB3    X2                                                              TSDATA       557     A     
 TSDATA             EQ     B3,B4,CRL1        LOOP IF ITEMS HAVE THE SAME LENGTH            TSDATA       558     A     
 TSDATA             EQ     EXIT.                                                           TSDATA       559     A     
 TSDATA    CFC      SPACE  4,60                                                            TSDATA       560     A     
 TSDATA   **        CFC -  CHECK FOR COMPLEX DATA ITEM.                                    TSDATA       561     A     
 TSDATA   *                                                                                TSDATA       562     A     
 TSDATA   *         ENTRY  (A4) _ POINTS TO (                                              TSDATA       563     A     
 TSDATA   *                                                                                TSDATA       564     A     
 TSDATA   *         EXIT   X0 = 0 IF A COMPLEX CON IS DETECTED AND                         TSDATA       565     A     
 TSDATA   *                X1,X2 = REAL AND IMAGINARY PARTS OF CONVERTED CONSTANT          TSDATA       566     A     
 TSDATA   *                SELIST POINTER UPDATED TO POINT PAST )                          TSDATA       567     A     
 TSDATA   *                X0 " 0 IF NOT AND A4,X4 UNTOUCHED                               TSDATA       568     A     
 TSDATA                                                                                    FCC0787       20     A     
 TSDATA   *         USES   A1-A7,X0-X7,B2-B4,B7                                            FCC0787       21     A     
 TSDATA                                                                                    TSDATA       569     A     
 TSDATA                                                                                    TSDATA       570     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1033    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA    CFCN     MX0    1           INDICATE FAILURE                                    TSDATA       571     A     
 TSDATA             SA4    X5          RESTORE A4                                          TSDATA       572     A     
 TSDATA                                                                                    TSDATA       573     A     
 TSDATA    CFC      SUBR               ENTRY/EXIT...                                       TSDATA       574     A     
 TSDATA             SA3    A4+B1                                                           TSDATA       575     A     
 TSDATA             SB2    X3                                                              TSDATA       576     A     
 TSDATA             MX7    0                 SET FOR + SIGN                                TSDATA       577     A     
 TSDATA             SX5    A4          SAVE A4 IF NOT A COMPLEX CONSTANT                   TSDATA       578     A     
 TSDATA             IF.EQ  O.PERIOD,CFC25                                                  TSDATA       579     A     
 TSDATA             SB4    B2-O.PL                                                         TSDATA       580     A     
 TSDATA             ZR     B4,CFC1     IF PLUS                                             TSDATA       581     A     
 TSDATA             NE     B4,B1,CFC2  IF NOT MINUS                                        TSDATA       582     A     
 TSDATA             MX7    60                                                              TSDATA       583     A     
 TSDATA    CFC1     NEXTE  3                                                               TSDATA       584     A     
 TSDATA    CFC2     IF.EQ  O.PERIOD,CFC25                                                  TSDATA       585     A     
 TSDATA             IF.NE  O.CONS,CFCN                                                     TSDATA       586     A     
 TSDATA    CFC25    SB4    A3                                                              TSDATA       587     A     
 TSDATA             SA7    TEMP        SAVE SIGN                                           TSDATA       588          I
          -FCC0787
 TSDATA             SA7    SCR2        SAVE SIGN                                           FCC0787       22     A     
 TSDATA             RJ     DEC         CONVERT CONSTANT                                    TSDATA       589     A     
 TSDATA             SX2    X1-M.REAL                                                       TSDATA       590     A     
 TSDATA             NZ     X2,CFCN     IF NOT A REAL CONSTANT                              TSDATA       591     A     
 TSDATA             SA3    B4+B1       ADVANCE (A3)                                        TSDATA       592     A     
 TSDATA             SB2    X3                                                              TSDATA       593     A     
 TSDATA             IF.NE  O.COMMA,CFCN                                                    TSDATA       594     A     
 TSDATA             SA2    TEMP                                                            TSDATA       595          I
          -FCC0787
 TSDATA             SA2    SCR2                                                            FCC0787       23     A     
 TSDATA             =A3    A3+1                                                            TSDATA       596     A     
 TSDATA             BX6    X6-X2                                                           TSDATA       597     A     
 TSDATA             SB2    X3                                                              TSDATA       598     A     
 TSDATA             MX7    0                                                               TSDATA       599     A     
 TSDATA             SA6    A2          SAVE REAL PART                                      TSDATA       600     A     
 TSDATA             IF.EQ  O.PERIOD,CFC45                                                  TSDATA       601     A     
 TSDATA             IF.EQ  O.PL,CFC3   IF PLUS SIGN                                        TSDATA       602     A     
 TSDATA             IF.NE  O.MIN,CFC4        IF NOT -                                      TSDATA       603     A     
 TSDATA             BX7    -0                                                              TSDATA       604     A     
 TSDATA    CFC3     NEXTE  3                                                               TSDATA       605     A     
 TSDATA    CFC4     IF.EQ  O.PERIOD,CFC45                                                  TSDATA       606     A     
 TSDATA             IF.NE  O.CONS,CFCN                                                     TSDATA       607     A     
 TSDATA    CFC45    SB4    A3                                                              TSDATA       608     A     
 TSDATA             SA7    TEMP+1                                                          TSDATA       609          I
          -FCC0787
 TSDATA             SA7    SCR2+1                                                          FCC0787       24     A     
 TSDATA             RJ     DEC               CONVERT IMAGINARY PART                        TSDATA       610     A     
 TSDATA             SX2    X1-M.REAL                                                       TSDATA       611     A     
 TSDATA             NZ     X2,CFCN     IF NOT A REAL CONSTANT                              TSDATA       612     A     
 TSDATA             SA3    B4+B1             ADVANCE (A3)                                  TSDATA       613     A     
 TSDATA             SB2    X3                                                              TSDATA       614     A     
 TSDATA             IF.NE  O.RP,CFCN                                                       TSDATA       615     A     
 TSDATA             SA2    TEMP+1      RETRIEVE SIGN OF IMAGINARY PART                     TSDATA       616          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1034    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
          -FCC0787
 TSDATA             SA2    SCR2+1      RETRIEVE SIGN OF IMAGINARY PART                     FCC0787       25     A     
 TSDATA             =A1    A2-1        RETRIEVE REAL PART                                  TSDATA       617     A     
 TSDATA             BX2    X6-X2                                                           TSDATA       618     A     
 TSDATA             =X6    A3+1                                                            TSDATA       619     A     
 TSDATA             =A4    A3+1                                                            TSDATA       620     A     
 TSDATA             MX0    0           INDICATE SUCCESS                                    TSDATA       621     A     
 TSDATA             SA6    SELIST                                                          TSDATA       622     A     
 TSDATA             EQ     EXIT.                                                           TSDATA       623     A     
 TSDATA    CSC      SPACE  4,25                                                            TSDATA       624     A     
 TSDATA   **        CSC -  CHECK SUBSCRIPT CONSTANT.                                       TSDATA       625     A     
 TSDATA   *                CHECKS CONSTANT FOR PROPER TYPE (INTEGER OR OCTAL )             TSDATA       626     A     
 TSDATA   *                AND MAGNITUDE ( 0 < CON < 2**17 )                               TSDATA       627     A     
 TSDATA   *                                                                                TSDATA       628     A     
 TSDATA   *         ENTRY  X4 = ELIST FOR CONSTANT                                         TSDATA       629     A     
 TSDATA   *                                                                                TSDATA       630     A     
 TSDATA   *         EXIT   X6 = CONVERTED CONSTANT                                         TSDATA       631     A     
 TSDATA                                                                                    TSDATA       632     A     
 TSDATA                                                                                    TSDATA       633     A     
 TSDATA    CSC      SUBR               ENTRY/EXIT...                                       TSDATA       634     A     
 TSDATA             SB4    A4                                                              TSDATA       635     A     
 TSDATA             RJ     DEC         CONVERT CONSTANT                                    TSDATA       636     A     
 TSDATA             BX3    X6                                                              TSDATA       637     A     
 TSDATA             ZR     X6,E.DCE    IF = ZERO                                           TSDATA       638     A     
 TSDATA             AX3    17                                                              TSDATA       639     A     
 TSDATA             SB2    X1-M.INT                                                        TSDATA       640     A     
 TSDATA             NZ     X3,E.DCE    IF .GT. 2**17-1                                     TSDATA       641          I
          -FCCA476
 TSDATA             NZ     X3,E.DVL9   IF .GT. 2**17 1                                     FCCA476        6     A     
 TSDATA             ZR     X1,EXIT.    IF UNIVERSAL TYPE                                   TSDATA       642     A     
 TSDATA             NZ     B2,E.DCE    IF NOT TYPE INTEGER, ERR..                          TSDATA       643     A     
 TSDATA             EQ     EXIT.                                                           TSDATA       644     A     
 TSDATA    ADC      SPACE  4,8                                                             TSDATA       645     A     
 TSDATA   **        ADC -  ADD CONSTANT TO =DIT=.                                          TSDATA       646     A     
 TSDATA   *                                                                                TSDATA       647     A     
 TSDATA   *         ENTRY  X1,X4,A4,A5 SET UP TO CONSTANT BY MACRO "NEXTE"                 TSDATA       648     A     
 TSDATA   *                X7 = -0 IF CON PRECEEDED BY - SIGN , ELSE 0                     TSDATA       649     A     
 TSDATA   *                                                                                TSDATA       650     A     
 TSDATA   *         EXIT   X1,X4,A4,A5 RESTORED BY A CALL TO MACRO "GETE"                  TSDATA       651     A     
 TSDATA                                                                                    TSDATA       652     A     
 TSDATA                                                                                    TSDATA       653     A     
 TSDATA    ADC2     BX5    X7          SAVE CONSTANT SIGN                                  TSDATA       654     A     
 TSDATA             SB4    A4                                                              TSDATA       655     A     
 TSDATA             RJ     DEC         CONVERT TO BINARY                                   TSDATA       656     A     
 TSDATA             BX0    X1                                                              FCC1563X      14     A     
 TSDATA             SX7    B4+B1                                                           TSDATA       657     A     
 TSDATA             AX1    P.LONG                                                          TSDATA       658     A     
 TSDATA             =X4    1                                                               TSDATA       659     A     
 TSDATA             BX3    X4*X1       ISOLATE *LONG* BIT.                                 TSDATA       660     A     
 TSDATA             SA7    SELIST                                                          TSDATA       661     A     
 TSDATA             BX7    X2                                                              TSDATA       662     A     
 TSDATA             SX2    X3+B1       WC = 1 OR 2                                         TSDATA       663     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1035    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             IX0    X2+X4       INDEX = WC + 1                                      TSDATA       664          I
          -FCC1563X 
 TSDATA             IX4    X2+X4       INDEX = WC + 1                                      FCC1563X      15     A     
 TSDATA             SB5    X3+B1                                                           TSDATA       665     A     
 TSDATA             BX1    X6-X5       (X1) = SIGN * (UPPER HALF)                          TSDATA       666     A     
 TSDATA             LX0    P.DINDX                                                         TSDATA       667          I
          -FCC1563X 
 TSDATA             IX6    X0+X2                                                           TSDATA       668          I
          -FCC1563X 
 TSDATA             LX4    P.DINDX                                                         FCC1563X      16     A     
 TSDATA             LX0    P.CTYP                                                          FCC1563X      17     A     
 TSDATA             IX6    X4+X2       INDEX + WORD COUNT                                  FCC1563X      18     A     
 TSDATA             BX2    X7-X5       (X2) = SIGN * (LOWER HALF)                          TSDATA       669     A     
 TSDATA             BX6    X0+X6       CONSTANT TYPE + INDEX + WORD COUNT                  FCC1563X      19     A     
 TSDATA                                                                                    TSDATA       670     A     
 TSDATA    ADC4     RJ     ADIT        ADD  X6, X1 AND X2 TO DIT                           TSDATA       671     A     
 TSDATA             SA5    SELIST                                                          TSDATA       672     A     
 TSDATA             SA4    X5                                                              TSDATA       673     A     
 TSDATA             SB2    X4                                                              TSDATA       674     A     
 TSDATA                                                                                    TSDATA       675     A     
 TSDATA    ADC      SUBR               ENTRY/EXIT...                                       TSDATA       676     A     
 TSDATA             SB3    X4-O.HOLL                                                       TSDATA       677     A     
 TSDATA             NZ     B3,ADC2     IF NOT HOLLERITH CONSTANT                           TSDATA       678     A     
 TSDATA                                                                                    TSDATA       679     A     
 TSDATA             MX0    59                                                              TSDATA       680     A     
 TSDATA             =X6    A4+1                                                            TSDATA       681     A     
 TSDATA             SA6    SELIST      SAVE STRING BUFFER ADDRESS                          TSDATA       682     A     
 TSDATA             BX1    X4          PROCESS WHEN HOLLERITH                              TSDATA       683     A     
 TSDATA             AX4    P.LCON                                                          TSDATA       684     A     
 TSDATA             SA3    DIT.HOL     DIT HEADER WORD                                     TSDATA       685     A     
 TSDATA             BX7    -X0*X7      X7 = 1 IFF PRECEEDED BY A MINUS SIGN                TSDATA       686     A     
 TSDATA             MX0    -L.LCON                                                         TSDATA       687     A     
 TSDATA             BX4    -X0*X4                                                          TSDATA       688     A     
 TSDATA             LX7    P.DNEGH                                                         TSDATA       689     A     
 TSDATA             SX2    X4          X2 = WC                                             TSDATA       690     A     
 TSDATA             BX6    X3+X2                                                           TSDATA       691     A     
 TSDATA             =B5    1                                                               TSDATA       692     A     
 TSDATA             BX6    X6+X7       SET DNEGH FIELD                                     TSDATA       693     A     
 TSDATA             EQ     ADC4                                                            TSDATA       694     A     
 TSDATA    ADIT     SPACE  4,8                                                             TSDATA       695     A     
 TSDATA   **        ADIT - ADD WORDS TO DIT TABLE.                                         TSDATA       696     A     
 TSDATA   *                                                                                TSDATA       697     A     
 TSDATA   *         ENTRY  X6,X1,X2 = WORDS TO BE ADDED                                    TSDATA       698     A     
 TSDATA   *                B5 = NUMBER OF WORDS - 1 TO BE ADDED                            TSDATA       699     A     
 TSDATA   *                X6 IS ALWAYS ADDED                                              TSDATA       700     A     
 TSDATA   *         EXIT   (X2) = NEW LENGTH OF ITEM TABLE (TI.DAT).                       TSDATA       701     A     
 TSDATA                                                                                    TSDATA       702     A     
 TSDATA                                                                                    TSDATA       703     A     
 TSDATA    ADIT     SUBR               ENTRY/EXIT...                                       TSDATA       704     A     
 TSDATA             SA6    ADWT                                                            TSDATA       705     A     
 TSDATA             BX5    X1                                                              TSDATA       706     A     
 TSDATA             LX4    X2                                                              TSDATA       707     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1036    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             ALLOC  TI.DAT,B5+1                                                     TSDATA       708     A     
 TSDATA             SA3    ADWT                                                            TSDATA       709     A     
 TSDATA             SB2    B5+B1                                                           TSDATA       710     A     
 TSDATA             IX1    X1+X2                                                           TSDATA       711     A     
 TSDATA             BX6    X3                                                              TSDATA       712     A     
 TSDATA             SB2    -B2                                                             TSDATA       713     A     
 TSDATA             SA6    X1+B2             STORE FIRST WORD                              TSDATA       714     A     
 TSDATA             BX7    X5                                                              TSDATA       715     A     
 TSDATA             ZR     B5,EXIT.    IF ONLY 1 WORD                                      TSDATA       716     A     
 TSDATA             SA7    A6+B1                                                           TSDATA       717     A     
 TSDATA             EQ1    B5,EXIT.    IF TWO IS ALL                                       TSDATA       718     A     
 TSDATA             BX6    X4                                                              TSDATA       719     A     
 TSDATA             SA6    A7+B1                                                           TSDATA       720     A     
 TSDATA             EQ     EXIT.                                                           TSDATA       721     A     
 TSDATA    BVT      EJECT  BVT - PROCESS DATA VARIABLE LIST                                TSDATA       722     A     
 TSDATA   **        BVT - PROCESS DATA VARIABLE LIST.                                      TSDATA       723     A     
 TSDATA   *                                                                                TSDATA       724     A     
 TSDATA   *         ENTRY  (A4) _ FWA DATA VARIABLE LIST.                                  TSDATA       725     A     
 TSDATA   *                (X4) = ((A4))                                                   TSDATA       726     A     
 TSDATA   *                                                                                TSDATA       727     A     
 TSDATA   *                SCANS DATA VARIABLE LIST AND BUILDS A "DVT" ENTRY FOR           TSDATA       728     A     
 TSDATA   *                ITEM, FORMAT                                                    TSDATA       729     A     
 TSDATA   *                 1/0,1/SDPF,1/ORGF,1/DDD,20/0,18/SYMORD,18/EQUIV BIAS           TSDATA       730          I
          -FCC1563X 
 TSDATA   *                 24/0,18/LENGTH,18/ITEM COUNT                                   TSDATA       731          I
          -FCC1563X 
 TSDATA   *                                                                                FCC1563X      20     A     
 TSDATA   *         1/0,1/SDPF,1/ORGF,1/DDD,14/0,6/CTYP,18/SYMORD,18/EQUIV BIAS            FCC1563X      21     A     
 TSDATA   *         24/0,18/LENGTH,18/ITEM COUNT                                           FCC1563X      22     A     
 TSDATA   *                                                                                TSDATA       732     A     
 TSDATA   *                WHERE:                                                          TSDATA       733     A     
 TSDATA   *                 SDPF = 0 IF SINGLE PRECISION , ELSE 1                          TSDATA       734     A     
 TSDATA   *                 DDD = 1 IF PREVIOUS APPEARENCES IN A DATA STMT                 TSDATA       735     A     
 TSDATA   *                 LENGTH = AMOUNT OF STORAGE ASSIGNED TO THE VAR                 TSDATA       736     A     
 TSDATA   *                 ITEM COUNT = NUMBER OF ITEMS                                   TSDATA       737     A     
 TSDATA   *                                                                                TSDATA       738     A     
 TSDATA   *                IN THE CASE THAT EXPLICIT DO LOOPS APPEAR, THEY ARE             TSDATA       739     A     
 TSDATA   *                REDUCED TO THE FORM:                                            TSDATA       740     A     
 TSDATA   *                (((A(M1*I1,M2*I2,M3*I3),I = 1,T1),J = 1,T2),K = 1,T3)           TSDATA       741     A     
 TSDATA   *                WHERE I1 I2 I3 IS SOME PERMUTATION OF I,J AND K .               TSDATA       742     A     
 TSDATA   *                THE ADDITIONAL BIAS IS STORED IN THE BIAS FIELD                 TSDATA       743     A     
 TSDATA   *                AND SUBSCRIPT WORDS OF THE FORM:                                TSDATA       744     A     
 TSDATA   *                 6/ P,  18/ M(P),  18/ T(I),  18/ DIM(P)                        TSDATA       745     A     
 TSDATA   *                ARE APPENDED, WHERE:                                            TSDATA       746     A     
 TSDATA   *                 P = ORDER OF APPEARENCE IN SUBSCRIPT EXPR                      TSDATA       747     A     
 TSDATA   *                 M(P) = MULTIPLIER                                              TSDATA       748     A     
 TSDATA   *                 T(I) = UPPER LIMIT = TRIP COUNT FOR LOOP                       TSDATA       749     A     
 TSDATA   *                 DIM(P) = P"TH DIMENSION OF THE ARRAY                           TSDATA       750     A     
 TSDATA   *                                                                                TSDATA       751     A     
 TSDATA   *         USES   ALL BUT A0                                                      TSDATA       752     A     
 TSDATA   *         CALLS  MDL, PDV, PSS                                                   TSDATA       753     A     
 TSDATA                                                                                    TSDATA       754     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1037    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA                                                                                    TSDATA       755     A     
 TSDATA    BVT      SUBR               ENTRY/EXIT...                                       TSDATA       756     A     
 TSDATA             SB2    X4-O.SLASH                                                      TSDATA       757     A     
 TSDATA           NZ       B2,BVT1     IF AN INITIAL LIST                                  TSDATA       758     A     
 TSDATA             =A4    A4+1        SKIP OVER ANY COMMA                                 TSDATA       759     A     
 TSDATA                                                                                    TSDATA       760     A     
 TSDATA    BVT1     NEXTE                    NEXT ELEMENT                                  TSDATA       761     A     
 TSDATA             MX6    0                                                               TSDATA       762     A     
 TSDATA             SA6    BIAS                                                            TSDATA       763     A     
 TSDATA             SA6    N.VSUB                                                          TSDATA       764     A     
 TSDATA             IF.NE  O.VAR,BVT3        IF NOT A NAME                                 TSDATA       765     A     
 TSDATA             RJ     PDV               PROCESS NAME                                  TSDATA       766     A     
 TSDATA             SA3    ="M.SEP1"                                                       TSDATA       767     A     
 TSDATA             LX7    B2,X3                                                           TSDATA       768     A     
 TSDATA             PL     X7,E.DVL1         IF ILLEGAL ITEM FOLLOWING NAME                TSDATA       769     A     
 TSDATA             IF.EQ  O.(,BVT1A         IF NAME(                                      TSDATA       770     A     
 TSDATA             SA3    N.DIMS                                                          TSDATA       771     A     
 TSDATA             ZR     X3,BVT2           IF A SIMPLE VARIABLE                          TSDATA       772     A     
 TSDATA             ANSI   E.DAA                                                           TSDATA       773     A     
 TSDATA             EQ     BVT2                                                            TSDATA       774     A     
 TSDATA                                                                                    TSDATA       775     A     
 TSDATA   **        PROCESS A(C1,C2,C3)                                                    TSDATA       776     A     
 TSDATA                                                                                    TSDATA       777     A     
 TSDATA    BVT1A    RJ     PSS               PROCESS SUBSCRIPT LIST                        TSDATA       778     A     
 TSDATA             NZ     B7,E.DVL5         IF VARIABLE SUBS APPEARED                     TSDATA       779     A     
 TSDATA                                                                                    TSDATA       780     A     
 TSDATA   **        COMPUTE BIAS OF A(C1,C2,C3)                                            TSDATA       781     A     
 TSDATA                                                                                    TSDATA       782     A     
 TSDATA             SA2    N.SUBS                                                          TSDATA       783     A     
 TSDATA             SA1    CON2                                                            TSDATA       784     A     
 TSDATA             SB5    X2                                                              TSDATA       785     A     
 TSDATA             SB3    -B1               B3 = -1                                       TSDATA       786     A     
 TSDATA             SX6    X1+B3             C1-1                                          TSDATA       787     A     
 TSDATA             EQ     B5,B1,BVT1B       IF ONLY 1 SUBSCRIPT                           TSDATA       788     A     
 TSDATA             SA1    A1+B1             C2                                            TSDATA       789     A     
 TSDATA             SA2    DIM.MUL+1         DIM1                                          TSDATA       790     A     
 TSDATA             SB5    B5-B1                                                           TSDATA       791     A     
 TSDATA             SX1    X1+B3             C2-1                                          TSDATA       792     A     
 TSDATA             IX3    X2*X1             DIM1*(C2-1)                                   TSDATA       793     A     
 TSDATA             IX6    X3+X6                                                           TSDATA       794     A     
 TSDATA             EQ     B5,B1,BVT1B       IF 2 SUBS                                     TSDATA       795     A     
 TSDATA             SA1    A1+B1             C3                                            TSDATA       796     A     
 TSDATA             SA2    A2+B1             DIM1*DIM2                                     TSDATA       797     A     
 TSDATA             SX1    X1+B3                                                           TSDATA       798     A     
 TSDATA             IX3    X2*X1             DIM1*DIM2*(C3-1)                              TSDATA       799     A     
 TSDATA             IX6    X3+X6                                                           TSDATA       800     A     
 TSDATA    BVT1B    SA3    SDPF                                                            TSDATA       801     A     
 TSDATA             SB3    X3                                                              TSDATA       802     A     
 TSDATA             LX6    B3,X6             *2 IF 2 WORDS /ENTRY                          TSDATA       803     A     
 TSDATA             SA6    BIAS                                                            TSDATA       804     A     
 TSDATA                                                                                    TSDATA       805     A     
 TSDATA    BVT1C    SA2    DVT+1             ADJUST SECOND WORD OF DVT ENTRY               TSDATA       806     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1038    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             AX2    18                WORD LENGTH OF ARRAY                          TSDATA       807     A     
 TSDATA             IX2    X2-X6             REDUCE BY BIAS                                TSDATA       808     A     
 TSDATA             MI     X2,E.DVL9         IF LOCF(A(C1,C2,C3)) IS OUT OF RANGE          TSDATA       809          I
          -FCCA476
 TSDATA             MI     X2,E.DVL6   IF LOCF(A(C1,C2,C3))IS OUT OF RANGE                 FCCA476        7     A     
 TSDATA             ZR     X2,E.DVL6   IF OUT OF RANGE                                     FCCA476        8     A     
 TSDATA             LX2    18                (FOR PROPER HANDLING OF HOLLERITH CON         TSDATA       810     A     
 TSDATA             SX0    B1                SET ITEM COUNT = 1                            TSDATA       811     A     
 TSDATA             BX6    X0+X2                                                           TSDATA       812     A     
 TSDATA             SA6    A2                                                              TSDATA       813     A     
 TSDATA             SA5    SELIST                                                          TSDATA       814     A     
 TSDATA             SA4    X5          FETCH SEPARATOR                                     TSDATA       815     A     
 TSDATA             SB2    X4                                                              TSDATA       816     A     
 TSDATA             IF.EQ  O.COMMA,BVT2      IF A ,                                        TSDATA       817     A     
 TSDATA             IF.NE  O.SLASH,E.DVL1    IF NO SLASH                                   TSDATA       818     A     
 TSDATA                                                                                    TSDATA       819     A     
 TSDATA    BVT2     SX5    B0                                                              TSDATA       820     A     
 TSDATA             RJ     MDL               MATCH UP LISTS                                TSDATA       821     A     
 TSDATA             SA5    SELIST                                                          TSDATA       822     A     
 TSDATA             SA4    X5          RESTORE SEPARATOR                                   TSDATA       823     A     
 TSDATA             SB2    X4                                                              TSDATA       824     A     
 TSDATA             IF.NE  O.SLASH,BVT1      LOOP IF NOT END OF VAR LIST                   TSDATA       825     A     
 TSDATA             EQ     EXIT.                                                           TSDATA       826     A     
 TSDATA                                                                                    TSDATA       827     A     
 TSDATA   **        PROCESS EXPLICIT DO LOOPS                                              TSDATA       828     A     
 TSDATA                                                                                    TSDATA       829     A     
 TSDATA    BVT3     IF.NE  O.(,E.DVL3        IF NO LPAREN                                  TSDATA       830     A     
 TSDATA             SX7    B0                                                              TSDATA       831     A     
 TSDATA    BVT4     NEXTE                    NEXT ELIST ELEMENT                            TSDATA       832     A     
 TSDATA             SX7    X7+B1             INCREMENT PAREN COUNT                         TSDATA       833     A     
 TSDATA             EQ     B2,B3,BVT4        LOOP IF A (                                   TSDATA       834     A     
 TSDATA             IF.NE  O.VAR,E.DVL3      IF NEXT IS NOT A NAME                         TSDATA       835     A     
 TSDATA             SA7    PL                SAVE PAREN LEVEL                              TSDATA       836     A     
 TSDATA             SA7    NONANSI           SET NON ASNI USEAGE FLAG                      TSDATA       837     A     
 TSDATA             RJ     PDV               PROCESS ARRAY NAME                            TSDATA       838     A     
 TSDATA             IF.NE  O.(,E.DVL2        ERROR IF NOT NAME(                            TSDATA       839     A     
 TSDATA             RJ     PSS               PROCESS SUBSCRIPT LIST                        TSDATA       840     A     
 TSDATA             SA1    PL                                                              TSDATA       841     A     
 TSDATA             SB6    X1                                                              TSDATA       842     A     
 TSDATA             GT     B7,B6,E.DVL2      ERR IF MORE VARIABLE SUBS THEN LOOPS          TSDATA       843     A     
 TSDATA                                                                                    TSDATA       844     A     
 TSDATA   **        SYNTAX CHECK DO INDICES AND CONVERT LOOP TO CANONICAL FORM             TSDATA       845     A     
 TSDATA                                                                                    TSDATA       846     A     
 TSDATA             SB5    B0                LOOP INDEX                                    TSDATA       847     A     
 TSDATA             MX6    0                                                               TSDATA       848     A     
 TSDATA             SA6    N.VSUB            CLEAR LOOP COUNTER                            TSDATA       849     A     
 TSDATA                                                                                    TSDATA       850     A     
 TSDATA    BVT5     SA5    SELIST                                                          TSDATA       851     A     
 TSDATA             SA4    X5                                                              TSDATA       852     A     
 TSDATA             SB2    X4                                                              TSDATA       853     A     
 TSDATA             IF.NE  O.COMMA,E.DVL2    IF NO ,                                       TSDATA       854     A     
 TSDATA             NEXTE                                                                  TSDATA       855     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1039    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             IF.NE  O.VAR,E.DVL2      IF NO INDEX VARIABLE                          TSDATA       856     A     
 TSDATA                                                                                    TSDATA       857     A     
 TSDATA   **        SEARCH SUBSCRIPT TABLE FOR MATCH OF INDEX VARIABLE                     TSDATA       858     A     
 TSDATA                                                                                    TSDATA       859     A     
 TSDATA             SA2    N.SUBS                                                          TSDATA       860     A     
 TSDATA             SB2    B0                INDEX                                         TSDATA       861     A     
 TSDATA             SB3    X2                LIMIT                                         TSDATA       862     A     
 TSDATA    BVT6     SA3    INDX+B2           SUBSCRIPT VARIABLE                            TSDATA       863     A     
 TSDATA             SB2    B2+B1             P = P+1                                       TSDATA       864     A     
 TSDATA             IX5    X4-X3                                                           TSDATA       865     A     
 TSDATA             ZR     X5,BVT7           IF A MATCH                                    TSDATA       866     A     
 TSDATA             LT     B2,B3,BVT6        IF MORE SUBS TO GO                            TSDATA       867     A     
 TSDATA             EQ     E.DVL4            IF LOOP INDEX DOESN"T MATCH SUBSC VAR         TSDATA       868     A     
 TSDATA                                                                                    TSDATA       869     A     
 TSDATA    BVT7     SX6    B5+B1                                                           TSDATA       870     A     
 TSDATA             SA6    A3                INDX(P) = I                                   TSDATA       871     A     
 TSDATA             SX7    B2-B1                                                           TSDATA       872     A     
 TSDATA             SA7    SUBN              SUBN = P                                      TSDATA       873     A     
 TSDATA                                                                                    TSDATA       874     A     
 TSDATA   **        SYNTAX CHECK AND CONVERT THE LOOP PARAMETERS.                          TSDATA       875     A     
 TSDATA                                                                                    TSDATA       876     A     
 TSDATA             NEXTE                                                                  TSDATA       877     A     
 TSDATA             IF.NE  O.=,E.DVL21  IF NO = SIGN                                       TSDATA       878     A     
 TSDATA                                                                                    TSDATA       879     A     
 TSDATA             NEXTE                                                                  TSDATA       880     A     
 TSDATA             IF.NE  O.CONS,E.DVL22  IF LOWER LIMIT NOT CONSTANT                     TSDATA       881     A     
 TSDATA             RJ     CSC         CONVERT LOWER LIMIT                                 TSDATA       882     A     
 TSDATA             =A4    B4+1                                                            TSDATA       883     A     
 TSDATA             SA6    LL                                                              TSDATA       884     A     
 TSDATA                                                                                    TSDATA       885     A     
 TSDATA             SB2    X4                                                              TSDATA       886     A     
 TSDATA             IF.NE  O.COMMA,E.DVL23   IF NO COMMA                                   TSDATA       887     A     
 TSDATA                                                                                    TSDATA       888     A     
 TSDATA             NEXTE                                                                  TSDATA       889     A     
 TSDATA             IF.NE  O.CONS,E.DVL24    IF UPPER LIMIT NOT CONSTANT                   TSDATA       890     A     
 TSDATA             RJ     CSC         CONVERT UPPER LIMIT                                 TSDATA       891     A     
 TSDATA             =A4    B4+1                                                            TSDATA       892     A     
 TSDATA             SA6    UL                                                              TSDATA       893     A     
 TSDATA                                                                                    TSDATA       894     A     
 TSDATA             =X7    1                                                               TSDATA       895     A     
 TSDATA             SB2    X4                                                              TSDATA       896     A     
 TSDATA             SA7    INC                                                             TSDATA       897     A     
 TSDATA             IF.NE  O.COMMA,BVT8      IF INCREMENT OMITTED                          TSDATA       898     A     
 TSDATA                                                                                    TSDATA       899     A     
 TSDATA             NEXTE                                                                  TSDATA       900     A     
 TSDATA             IF.NE  O.CONS,E.DVL25    IF INCREMENT NOT CONSTANT                     TSDATA       901     A     
 TSDATA             RJ     CSC         CONVERT INCREMENT                                   TSDATA       902     A     
 TSDATA             =A4    B4+1                                                            TSDATA       903     A     
 TSDATA             SA6    INC                                                             TSDATA       904     A     
 TSDATA             SB2    X4                                                              TSDATA       905     A     
 TSDATA                                                                                    TSDATA       906     A     
 TSDATA    BVT8     IF.NE  O.RP,E.DVL26      IF NO TERMINAL *)*                            TSDATA       907     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1040    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             =X7    A4+1                                                            TSDATA       908     A     
 TSDATA             SA7    SELIST      SAVE STRING BUFFER POINTER                          TSDATA       909     A     
 TSDATA                                                                                    TSDATA       910     A     
 TSDATA   **        TEST FOR LOWER LIMIT OF SUBSCRIPT OUTSIDE OF DIM RANGE                 TSDATA       911     A     
 TSDATA                                                                                    TSDATA       912     A     
 TSDATA             SA5    SUBN                                                            TSDATA       913     A     
 TSDATA             SB2    X5                B2 = J                                        TSDATA       914     A     
 TSDATA             SA1    CON1+B2           CON1(J)                                       TSDATA       915     A     
 TSDATA             SA2    LL                                                              TSDATA       916     A     
 TSDATA             SA3    CON2+B2           CON2(J)                                       TSDATA       917     A     
 TSDATA             IX0    X1*X2                                                           TSDATA       918     A     
 TSDATA             IX7    X0+X3             X7 = V = C1*LL+C2                             TSDATA       919     A     
 TSDATA             SX6    X7-1                                                            TSDATA       920     A     
 TSDATA             MI     X6,E.DVL6         IF SUBSC VALUE < 1                            TSDATA       921     A     
 TSDATA                                                                                    TSDATA       922     A     
 TSDATA   **        TEST FOR DEGENERATE LOOP ( A 1 TRIP LOOP )                             TSDATA       923     A     
 TSDATA                                                                                    TSDATA       924     A     
 TSDATA             SA5    N.VSUB                                                          TSDATA       925     A     
 TSDATA             SA1    UL                                                              TSDATA       926     A     
 TSDATA             SB5    X5                B5 = LOOP NUMBER                              TSDATA       927     A     
 TSDATA             SX2    X2                LL                                            TSDATA       928     A     
 TSDATA             IX0    X2-X1             LL-UL                                         TSDATA       929     A     
 TSDATA             PL     X0,BVT10          IF DEGENERATE ( LL \ UL )                     TSDATA       930     A     
 TSDATA                                                                                    TSDATA       931     A     
 TSDATA             SA3    INC                                                             TSDATA       932     A     
 TSDATA             IX0    X3-X0             UL-LL+INC                                     TSDATA       933     A     
 TSDATA             IX6    X0/X3             TRIP COUNT = X0/INC                           TSDATA       934     A     
 TSDATA             SB6    X6                                                              TSDATA       935     A     
 TSDATA             NE     B6,B1,BVT11       IF NOT DEGENREATE                             TSDATA       936     A     
 TSDATA                                                                                    TSDATA       937     A     
 TSDATA   **        1 TRIP LOOP - CHANGE TO CONSTANT SUBSCRIPT                             TSDATA       938     A     
 TSDATA                                                                                    TSDATA       939     A     
 TSDATA    BVT10    MX6    0                                                               TSDATA       940     A     
 TSDATA             SA6    INDX+B2           INDX(J) = 0                                   TSDATA       941     A     
 TSDATA             SA7    CON2+B2           CON2(J) = V                                   TSDATA       942     A     
 TSDATA             EQ     BVT12                                                           TSDATA       943     A     
 TSDATA                                                                                    TSDATA       944     A     
 TSDATA   **        NORMAL CASE - ADJUST C1 AND C2  SO LOOP TAKES THE FORM                 TSDATA       945     A     
 TSDATA   *                ( A( ,C1*I+C2, ) , I = 1,TC )                                   TSDATA       946     A     
 TSDATA                                                                                    TSDATA       947     A     
 TSDATA    BVT11    SA1    INC                                                             TSDATA       948     A     
 TSDATA             SA2    CON1+B2                                                         TSDATA       949     A     
 TSDATA             SA3    CON2+B2                                                         TSDATA       950     A     
 TSDATA             SA4    LL                                                              TSDATA       951     A     
 TSDATA             IX5    X4-X1                                                           TSDATA       952     A     
 TSDATA             IX6    X1*X2                                                           TSDATA       953     A     
 TSDATA             SA6    A2                C1 = C1*INC                                   TSDATA       954     A     
 TSDATA             IX4    X2*X5                                                           TSDATA       955     A     
 TSDATA             IX7    X3+X4                                                           TSDATA       956     A     
 TSDATA             SA7    A3                C2 = C2+C1*(LL-INC)                           TSDATA       957     A     
 TSDATA                                                                                    TSDATA       958     A     
 TSDATA   **        COMBINE AND STORE P, C1(P) , TC AND DIM(P) IN LPINF(I)                 TSDATA       959     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1041    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA                                                                                    TSDATA       960     A     
 TSDATA             LX6    36                C1                                            TSDATA       961     A     
 TSDATA             SA4    DIM+B2                                                          TSDATA       962     A     
 TSDATA             BX6    X4+X6                                                           TSDATA       963     A     
 TSDATA             SX0    B2                P                                             TSDATA       964     A     
 TSDATA             LX0    54                                                              TSDATA       965     A     
 TSDATA             BX6    X0+X6                                                           TSDATA       966     A     
 TSDATA             SX7    B6                TC                                            TSDATA       967     A     
 TSDATA             LX7    18                                                              TSDATA       968     A     
 TSDATA             BX6    X7+X6                                                           TSDATA       969     A     
 TSDATA             SA6    LPINF+B5          SAVE SUBSCRIPT INFO                           TSDATA       970     A     
 TSDATA             SX7    B5+B1                                                           TSDATA       971     A     
 TSDATA             SB5    B5+B1                                                           TSDATA       972     A     
 TSDATA             SA7    N.VSUB            ADVANCE INDEX AND SAVE                        TSDATA       973     A     
 TSDATA                                                                                    TSDATA       974     A     
 TSDATA   **        ADJUST BIAS TO ELIMINATE CONSTANT ADDEND ( C2(J) )                     TSDATA       975     A     
 TSDATA                                                                                    TSDATA       976     A     
 TSDATA             SA1    BIAS                                                            TSDATA       977     A     
 TSDATA             SA2    DIM.MUL+B2        DIM.MUL(J)                                    TSDATA       978     A     
 TSDATA             SA3    CON2+B2                                                         TSDATA       979     A     
 TSDATA             SA5    SDPF                                                            TSDATA       980     A     
 TSDATA             SB4    X5                                                              TSDATA       981     A     
 TSDATA             IX4    X2*X3                                                           TSDATA       982     A     
 TSDATA             LX5    B4,X4             *2**SDPF                                      TSDATA       983     A     
 TSDATA             IX6    X5+X1             BIAS = BIAS+DIM.MUL(J)*C2(J)*2**SDPF          TSDATA       984     A     
 TSDATA             SA6    A1                                                              TSDATA       985     A     
 TSDATA                                                                                    TSDATA       986     A     
 TSDATA    BVT12    SA5    PL                                                              TSDATA       987     A     
 TSDATA             SX6    X5-1                                                            TSDATA       988     A     
 TSDATA             SA6    A5                PL = PL-1                                     TSDATA       989     A     
 TSDATA             NZ     X6,BVT5           LOOP IF MORE TO GO                            TSDATA       990     A     
 TSDATA                                                                                    TSDATA       991     A     
 TSDATA   **        ADD TO THE BIAS THE CONTRIBUTION DUE TO CONSTANT SUBSCRIPTS            TSDATA       992     A     
 TSDATA   *         I.E. - A( ,C2, )                                                       TSDATA       993     A     
 TSDATA                                                                                    TSDATA       994     A     
 TSDATA             SA2    N.SUBS                                                          TSDATA       995     A     
 TSDATA             SA3    SDPF                                                            TSDATA       996     A     
 TSDATA             SA5    BIAS                                                            TSDATA       997     A     
 TSDATA             SB5    B0                INDEX                                         TSDATA       998     A     
 TSDATA             SB2    X2                LIMIT                                         TSDATA       999     A     
 TSDATA             SB4    X3                SDPF                                          TSDATA      1000     A     
 TSDATA             SB3    -B1               -1                                            TSDATA      1001     A     
 TSDATA             BX6    X5                                                              TSDATA      1002     A     
 TSDATA                                                                                    TSDATA      1003     A     
 TSDATA    BVT13    SA1    INDX+B5                                                         TSDATA      1004     A     
 TSDATA             NZ     X1,BVT14          IF A DO INDEXED SUBSCRIPT                     TSDATA      1005     A     
 TSDATA             SA2    CON2+B5                                                         TSDATA      1006     A     
 TSDATA             SA3    DIM.MUL+B5                                                      TSDATA      1007     A     
 TSDATA             SX2    X2+B3                                                           TSDATA      1008     A     
 TSDATA             IX4    X3*X2                                                           TSDATA      1009     A     
 TSDATA             LX5    B4,X4                                                           TSDATA      1010     A     
 TSDATA             IX6    X5+X6             BIAS = BIAS+DM(I)*(C2(I)-1)*2**SDPF           TSDATA      1011     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1042    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA    BVT14    SB5    B5+B1                                                           TSDATA      1012     A     
 TSDATA             LT     B5,B2,BVT13       IF MORE TO GO                                 TSDATA      1013     A     
 TSDATA             SA6    A5                UPDATE BIAS                                   TSDATA      1014     A     
 TSDATA                                                                                    TSDATA      1015     A     
 TSDATA   **        COLLAPSE INNERMOST LOOPS IF THE SUBSCRIPTS ARE IN STANDARD             TSDATA      1016     A     
 TSDATA   *         ORDER ( IJK )                                                          TSDATA      1017     A     
 TSDATA                                                                                    TSDATA      1018     A     
 TSDATA             SA2    N.VSUB            NUMBER OF LOOPS                               TSDATA      1019     A     
 TSDATA             ZR     X2,BVT1C          IF ALL LOOPS ARE DEGENERATE                   TSDATA      1020     A     
 TSDATA             SB5    B0                INDEX                                         TSDATA      1021     A     
 TSDATA             SB2    X2                LIMIT                                         TSDATA      1022     A     
 TSDATA             EQ     B2,B1,BVT18       IF ONLY 1 LOOP                                TSDATA      1023     A     
 TSDATA                                                                                    TSDATA      1024     A     
 TSDATA    BVT15    SA1    LPINF+B5          LOOP INFORMATION WORD                         TSDATA      1025     A     
 TSDATA             SX4    X1                DIM(P)                                        TSDATA      1026     A     
 TSDATA             AX1    18                                                              TSDATA      1027     A     
 TSDATA             SX3    X1                TC                                            TSDATA      1028     A     
 TSDATA             AX1    18                                                              TSDATA      1029     A     
 TSDATA             SB3    X1                M                                             TSDATA      1030     A     
 TSDATA             AX1    18                                                              TSDATA      1031     A     
 TSDATA             SB4    X1                P                                             TSDATA      1032     A     
 TSDATA             NE     B4,B5,BVT18       IF NOT IJK ORDER                              TSDATA      1033     A     
 TSDATA             NE     B3,B1,BVT17       IF M " 1                                      TSDATA      1034     A     
 TSDATA             IX5    X3-X4                                                           TSDATA      1035     A     
 TSDATA             SB5    B5+B1                                                           TSDATA      1036     A     
 TSDATA             MI     X5,BVT17          IF TC < DIM                                   TSDATA      1037     A     
 TSDATA             LT     B5,B2,BVT15                                                     TSDATA      1038     A     
 TSDATA                                                                                    TSDATA      1039     A     
 TSDATA   **        SUCCESS - REDUCE TO A SINGLE LOOP                                      TSDATA      1040     A     
 TSDATA                                                                                    TSDATA      1041     A     
 TSDATA    BVT16    SA1    LPINF-1+B2        LAST LOOP INFO WORD                           TSDATA      1042     A     
 TSDATA             SA2    DIM.MUL-1+B2                                                    TSDATA      1043     A     
 TSDATA             AX1    18                                                              TSDATA      1044     A     
 TSDATA             SX1    X1                TC FOR LAST LOOP                              TSDATA      1045     A     
 TSDATA             IX3    X1*X2                                                           TSDATA      1046     A     
 TSDATA             SA4    DVT+1                                                           TSDATA      1047     A     
 TSDATA             SX4    X4                PI DIMS                                       TSDATA      1048     A     
 TSDATA             SX7    B1                                                              TSDATA      1049     A     
 TSDATA             SA7    N.VSUB            NUMBER OF LOOPS                               TSDATA      1050     A     
 TSDATA             LX3    18                                                              TSDATA      1051     A     
 TSDATA             BX6    X3+X4                                                           TSDATA      1052     A     
 TSDATA             LX7    36                M = 1                                         TSDATA      1053     A     
 TSDATA             IX7    X7+X6                                                           TSDATA      1054     A     
 TSDATA             SA7    LPINF             UPDATE LOOP INFO WORD                         TSDATA      1055     A     
 TSDATA             EQ     BVT18                                                           TSDATA      1056     A     
 TSDATA                                                                                    TSDATA      1057     A     
 TSDATA   **        PARTIAL SUCCESS - COLLAPSE INNERMOST LOOPS                             TSDATA      1058     A     
 TSDATA                                                                                    TSDATA      1059     A     
 TSDATA    BVT17    LE     B5,B1,BVT18       IF WE CAN"T COLLAPSE AT LEAST 2 LOOPS         TSDATA      1060     A     
 TSDATA             EQ     B5,B2,BVT16       IF COMPLETE REDUCTION                         TSDATA      1061     A     
 TSDATA                                                                                    TSDATA      1062     A     
 TSDATA             SA1    LPINF             MERGE FIRST AND SECOND LOOPS                  TSDATA      1063     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1043    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             SA2    A1+B1                                                           TSDATA      1064     A     
 TSDATA             AX1    18                                                              TSDATA      1065     A     
 TSDATA             SX1    X1                                                              TSDATA      1066     A     
 TSDATA             AX2    18                                                              TSDATA      1067     A     
 TSDATA             SX2    X2                                                              TSDATA      1068     A     
 TSDATA             IX3    X1*X2             TC1*TC2                                       TSDATA      1069     A     
 TSDATA             SX7    B1                                                              TSDATA      1070     A     
 TSDATA             LX7    36                M = 1                                         TSDATA      1071     A     
 TSDATA             SA4    DIM.MUL+2         DIM1*DIM2                                     TSDATA      1072     A     
 TSDATA             LX3    18                                                              TSDATA      1073     A     
 TSDATA             BX6    X3+X4                                                           TSDATA      1074     A     
 TSDATA             IX7    X7+X6                                                           TSDATA      1075     A     
 TSDATA             SA7    A1                UPDATE FIRST LOOP INFO WORD                   TSDATA      1076     A     
 TSDATA             SX6    B2-B1                                                           TSDATA      1077     A     
 TSDATA             SA6    N.VSUB            UPDATE N.VSUB                                 TSDATA      1078     A     
 TSDATA             SA5    A2+B1                                                           TSDATA      1079     A     
 TSDATA             BX7    X5                MOVE LAST LOOP INFO WORD DOWN                 TSDATA      1080     A     
 TSDATA             SA7    A2                                                              TSDATA      1081     A     
 TSDATA                                                                                    TSDATA      1082     A     
 TSDATA   **        COMPUTE A(M1*T1,M2*T2,M3,T3) AND SEE IF IT IS WITHIN                   TSDATA      1083     A     
 TSDATA   *         THE ARRAY BOUNDS                                                       TSDATA      1084     A     
 TSDATA                                                                                    TSDATA      1085     A     
 TSDATA    BVT18    SA5    N.VSUB            NUMBER OF LOOPS                               TSDATA      1086     A     
 TSDATA             SB5    B0                INDEX                                         TSDATA      1087     A     
 TSDATA             SB2    X5                LIMIT                                         TSDATA      1088     A     
 TSDATA             SA4    SDPF                                                            TSDATA      1089     A     
 TSDATA             SB3    -B1               B3 = -1                                       TSDATA      1090     A     
 TSDATA             SB4    X4                B4 = SDPF                                     TSDATA      1091     A     
 TSDATA             SA3    BIAS                                                            TSDATA      1092     A     
 TSDATA             AX6    B4,X3                                                           TSDATA      1093     A     
 TSDATA                                                                                    TSDATA      1094     A     
 TSDATA    BVT19    SA4    LPINF+B5                                                        TSDATA      1095     A     
 TSDATA             AX4    18                                                              TSDATA      1096     A     
 TSDATA             SX1    X4                T(I)                                          TSDATA      1097     A     
 TSDATA             AX4    18                                                              TSDATA      1098     A     
 TSDATA             SX2    X4                M(I)                                          TSDATA      1099     A     
 TSDATA             AX4    18                P                                             TSDATA      1100     A     
 TSDATA             SA3    DIM.MUL+X4        DM(P)                                         TSDATA      1101     A     
 TSDATA             IX0    X1*X2                                                           TSDATA      1102     A     
 TSDATA             SX1    X0+B3             M*T-1                                         TSDATA      1103     A     
 TSDATA             IX2    X3*X1             DM*( M*T-1 )                                  TSDATA      1104     A     
 TSDATA             IX6    X2+X6                                                           TSDATA      1105     A     
 TSDATA             SB5    B5+B1                                                           TSDATA      1106     A     
 TSDATA             LT     B5,B2,BVT19       IF MORE TO GO                                 TSDATA      1107     A     
 TSDATA             LX6    B4,X6             *2**SDPF                                      TSDATA      1108     A     
 TSDATA             SA2    DVT+1                                                           TSDATA      1109     A     
 TSDATA             AX2    18                ARRAY LENGTH                                  TSDATA      1110     A     
 TSDATA             IX3    X6-X2             BIAS - LEN                                    TSDATA      1111     A     
 TSDATA             MI     X3,BVT20          IF IN RANGE                                   TSDATA      1112          I
          -FCCA476
 TSDATA             PL     X3,E.DVL6   IF OUT OF RANGE                                     FCCA476        9     A     
 TSDATA             ZR     X3,E.DVL6   IF OUT OF RANGE                                     FCCA476       10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1044    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA                                                                                    TSDATA      1113     A     
 TSDATA    BVT20    RJ     MDL               MATCH UP LISTS                                TSDATA      1114     A     
 TSDATA             SA5    SELIST                                                          TSDATA      1115     A     
 TSDATA             SA4    X5          FETCH NEXT SEPARATOR                                TSDATA      1116     A     
 TSDATA             SB2    X4                                                              TSDATA      1117     A     
 TSDATA             IF.EQ  O.COMMA,BVT1      LOOP FOR NEXT IF A ,                          TSDATA      1118     A     
 TSDATA             IF.EQ  O.SLASH,EXIT.                                                   TSDATA      1119     A     
 TSDATA             EQ     E.DVL1                                                          TSDATA      1120     A     
 TSDATA    PSS      EJECT  4,40                                                            TSDATA      1121     A     
 TSDATA   **        PSS -  PROCESS SUBSCRIPTS.                                             TSDATA      1122     A     
 TSDATA   *                                                                                TSDATA      1123     A     
 TSDATA   *         PROCESSES SUBSCRIPTS ON DATA VARIABLES.  THE PERMISSIBLE FORMS         TSDATA      1124     A     
 TSDATA   *         ARE -- (CON = CONSTANT, IVAR = INTEGER VARIABLE) --                    TSDATA      1125     A     
 TSDATA   *                          CON2                                                  TSDATA      1126     A     
 TSDATA   *                         +CON2    (NON-ANSI)                                    TSDATA      1127     A     
 TSDATA   *                         -CON2    (NON-ANSI)                                    TSDATA      1128     A     
 TSDATA   *                     IVAR         (NON-ANSI)                                    TSDATA      1129     A     
 TSDATA   *                CON1*IVAR         (NON-ANSI)                                    TSDATA      1130     A     
 TSDATA   *                CON1*IVAR+CON2    (NON-ANSI)                                    TSDATA      1131     A     
 TSDATA   *                CON1*IVAR-CON2    (NON-ANSI)                                    TSDATA      1132     A     
 TSDATA   *                     IVAR+CON2    (NON-ANSI)                                    TSDATA      1133     A     
 TSDATA   *                     IVAR-CON2    (NON-ANSI)                                    TSDATA      1134     A     
 TSDATA   *         THE NUMBER OF SUBSCRIPTS MAY NOT EXCEED THE NUMBER OF                  TSDATA      1135     A     
 TSDATA   *         DIMENSIONS OF THAT ARRAY (N.DIMS).                                     TSDATA      1136     A     
 TSDATA   *                                                                                TSDATA      1137     A     
 TSDATA   *         ENTRY  (A4) _ *(* IN FRONT OF SUBSCRIPTS.                              TSDATA      1138     A     
 TSDATA   *                (N.DIMS) = NUMBER OF DIMENSIONS OF THIS ARRAY.                  TSDATA      1139     A     
 TSDATA   *                (DIM.MUL) = DIMENSION MULTIPLIERS AS SET BY *PDV*               TSDATA      1140     A     
 TSDATA   *                                                                                TSDATA      1141     A     
 TSDATA   *         EXIT   (B7) = NUMBER OF VARIABLE SUBSCRIPTS ENCOUNTERED.               TSDATA      1142     A     
 TSDATA   *                (A4-1) _ *)* TERMINATING THE SUBSCRIPT.                         TSDATA      1143     A     
 TSDATA   *                (X4) = ((A4))                                                   TSDATA      1144     A     
 TSDATA   *                (B2) = (X4) LOWER 18                                            TSDATA      1145     A     
 TSDATA   *                (N.SUBS) = NUMBER OF SUBSCRIPTS.                                TSDATA      1146     A     
 TSDATA   *                (N.VSUB) = (B7)                                                 TSDATA      1147     A     
 TSDATA   *                (CON1) = THE MULTIPLIERS (= 1 IF ABSENT)                        TSDATA      1148     A     
 TSDATA   *                (INDX) = THE INTEGER VARIABLES (= 0 IF CONSTANT SUB)            TSDATA      1149     A     
 TSDATA   *                (CON2) = THE ADDENDS (= 0 IF ABSENT)                            TSDATA      1150     A     
 TSDATA   *                                                                                TSDATA      1151     A     
 TSDATA   *         USES   ALL BUT A0                                                      TSDATA      1152     A     
 TSDATA   *         CALLS  CSC                                                             TSDATA      1153     A     
 TSDATA                                                                                    TSDATA      1154     A     
 TSDATA                                                                                    TSDATA      1155     A     
 TSDATA    PSS      SUBR               ENTRY/EXIT...                                       TSDATA      1156     A     
 TSDATA             SA1    N.DIMS                                                          TSDATA      1157     A     
 TSDATA             ZR     X1,E.DVL7         IF NAME IS NOT DIMENSIONED                    TSDATA      1158     A     
 TSDATA                                                                                    TSDATA      1159     A     
 TSDATA             SB5    X1          (B5) = N.DIMS                                       TSDATA      1160     A     
 TSDATA             SB6    B0          (B6) = VARIABLE SUBSCRIPT FLAG                      TSDATA      1161     A     
 TSDATA             BX7    0                                                               TSDATA      1162     A     
 TSDATA             SB4    B0          (B4) = NUMBER OF SUBSCRIPTS                         TSDATA      1163     A     
 TSDATA             SB7    SSTL                                                            TSDATA      1164     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1045    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             SB7    -B7                                                             TSDATA      1165     A     
 TSDATA             SB7    B7+SST1                                                         TSDATA      1166     A     
 TSDATA             SA7    SST1                                                            TSDATA      1167     A     
 TSDATA                                                                                    TSDATA      1168     A     
 TSDATA    PSS20    SA7    A7+B1             CLEAR OUT CONTROL CELLS                       TSDATA      1169     A     
 TSDATA             =B7    B7+1                                                            TSDATA      1170     A     
 TSDATA             MI     B7,PSS20                                                        TSDATA      1171     A     
 TSDATA                                                                                    TSDATA      1172     A     
 TSDATA   **        SYNTAX CHECK AND SAVE SUBSCRIPT LIST                                   TSDATA      1173     A     
 TSDATA                                                                                    TSDATA      1174     A     
 TSDATA    PSS30    NEXTE                    NEXT ITEM                                     TSDATA      1175     A     
 TSDATA             IF.NE  O.CONS,PSS32      IF NOT A CONSTANT                             TSDATA      1176     A     
 TSDATA             RJ     CSC         CHECK/CONVERT SMALL CONSTANT                        TSDATA      1177     A     
 TSDATA             SA1    N.SUBS                                                          TSDATA      1178     A     
 TSDATA             =A4    B4+1        FETCH NEXT ELEMENT                                  TSDATA      1179     A     
 TSDATA             SB4    X1                                                              TSDATA      1180     A     
 TSDATA             SB2    X4                                                              TSDATA      1181     A     
 TSDATA             SA6    B4+CON2                                                         TSDATA      1182     A     
 TSDATA                                                                                    TSDATA      1183     A     
 TSDATA             IF.NE  O.STAR,PSS36      IF NO *                                       TSDATA      1184     A     
 TSDATA             NEXTE                                                                  TSDATA      1185     A     
 TSDATA             BX7    0                                                               TSDATA      1186     A     
 TSDATA             SA7    A6          CLEAR ADDEND                                        TSDATA      1187     A     
 TSDATA             SA6    B4+CON1     SAVE AS MULTIPLIER                                  TSDATA      1188     A     
 TSDATA                                                                                    TSDATA      1189     A     
 TSDATA    PSS32    IF.NE  O.VAR,E.DVL8      IF NO VARIABLE                                TSDATA      1190     A     
 TSDATA             SB6    B6+B1             INCREMENT NUMBER OF VARS                      TSDATA      1191     A     
 TSDATA             BX7    X4                                                              TSDATA      1192     A     
 TSDATA             NEXTE                                                                  TSDATA      1193     A     
 TSDATA             SA7    B4+INDX                                                         TSDATA      1194     A     
 TSDATA                                                                                    TSDATA      1195     A     
 TSDATA   **        PROCESS SIGN OF CONSTANT (OPTIONAL IF ADDEND)                          TSDATA      1196     A     
 TSDATA                                                                                    TSDATA      1197     A     
 TSDATA             IF.EQ  O.PL,PSS34      IF A +                                          TSDATA      1198     A     
 TSDATA             IF.NE  O.MIN,PSS36     IF NOT A -                                      TSDATA      1199     A     
 TSDATA    PSS34    SX7    X4-O.PL                                                         TSDATA      1200     A     
 TSDATA             NEXTE                                                                  TSDATA      1201     A     
 TSDATA             SA7    B4+SIGN                                                         TSDATA      1202     A     
 TSDATA                                                                                    TSDATA      1203     A     
 TSDATA   **        PROCESS ADDEND                                                         TSDATA      1204     A     
 TSDATA                                                                                    TSDATA      1205     A     
 TSDATA             IF.NE  O.CONS,E.DVL8     IF NOT A CONSTANT                             TSDATA      1206     A     
 TSDATA             RJ     CSC         CHECK/CONVERT SMALL CONSTANT                        TSDATA      1207     A     
 TSDATA             SA1    N.SUBS                                                          TSDATA      1208     A     
 TSDATA             SA4    B4                                                              TSDATA      1209          I
          -FCCA474
 TSDATA             SA4    B4+B1       ADVANCE SB PTR                                      FCCA474       11     A     
 TSDATA             SB2    X4          SET UP FOR SYNTAX CHECK                             FCCA474       12     A     
 TSDATA             SB4    X1                                                              TSDATA      1210     A     
 TSDATA             SA6    B4+CON2                                                         TSDATA      1211     A     
 TSDATA                                                                                    TSDATA      1212     A     
 TSDATA    PSS36    =X7    B4+1        INCREMENT NUMBER OF SUBS                            TSDATA      1213     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1046    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             =B4    B4+1                                                            TSDATA      1214     A     
 TSDATA             SA7    N.SUBS                                                          TSDATA      1215     A     
 TSDATA             EQ     B5,B4,PSS40       IF IT MUST BE A )                             TSDATA      1216     A     
 TSDATA             IF.EQ  O.COMMA,PSS30     IF COMMA, LOOP FOR NEXT SUBSCRIPT             TSDATA      1217     A     
 TSDATA                                                                                    TSDATA      1218     A     
 TSDATA    PSS40    IF.NE  O.),E.DVL8        IF NO RPAREN, ERR..                           TSDATA      1219     A     
 TSDATA             =X7    A4+1                                                            TSDATA      1220     A     
 TSDATA             SX6    B6                                                              TSDATA      1221     A     
 TSDATA             SA7    SELIST            SAVE ELIST POINTER                            TSDATA      1222     A     
 TSDATA             SA6    N.VSUB            SAVE NUMBER OF VARIABLE SUBS                  TSDATA      1223     A     
 TSDATA                                                                                    TSDATA      1224     A     
 TSDATA   **        PROCESS C1"S - CONSTANT MULTIPLIERS                                    TSDATA      1225     A     
 TSDATA   *                SET TO 1 IF UN-SPECIFIED                                        TSDATA      1226     A     
 TSDATA                                                                                    TSDATA      1227     A     
 TSDATA             SA2    N.SUBS                                                          TSDATA      1228     A     
 TSDATA             SB3    B0                                                              TSDATA      1229     A     
 TSDATA             SB6    X2                                                              TSDATA      1230     A     
 TSDATA    PSS60    SA4    B3+CON1     CON1 (I)                                            TSDATA      1231     A     
 TSDATA             SX6    B1                                                              TSDATA      1232     A     
 TSDATA             ZR     X4,PSS65    IF NOT PRESENT                                      TSDATA      1233     A     
 TSDATA             BX6    X4                                                              TSDATA      1234     A     
 TSDATA    PSS65    SA6    A4                                                              TSDATA      1235     A     
 TSDATA             =B3    B3+1                                                            TSDATA      1236     A     
 TSDATA             LT     B3,B6,PSS60 IF MORE SUBSCRIPTS                                  TSDATA      1237     A     
 TSDATA                                                                                    TSDATA      1238     A     
 TSDATA   **        PROCESS C2"S - CONSTANT ADDENDS                                        TSDATA      1239     A     
 TSDATA   *                COMPLEMENT IF PREFIXED BY MINUS                                 TSDATA      1240     A     
 TSDATA                                                                                    TSDATA      1241     A     
 TSDATA             SB3    B0                                                              TSDATA      1242     A     
 TSDATA    PSS80    SA4    B3+CON2     CON2 (I)                                            TSDATA      1243     A     
 TSDATA             BX6    0                                                               TSDATA      1244     A     
 TSDATA             ZR     X4,PSS84    IF NO ADDEND                                        TSDATA      1245     A     
 TSDATA             BX6    X4                                                              TSDATA      1246     A     
 TSDATA    PSS84    ZR     X6,PSS86    IF ADDEND NOT PRESENT                               TSDATA      1247     A     
 TSDATA             SA3    B3+SIGN     SIGN (I)                                            TSDATA      1248     A     
 TSDATA             ZR     X3,PSS85    IF THE SIGN IS +                                    FCCA474       13     A     
 TSDATA             MX4    1           SET REG TO COMPLEMENT NUMBER                        FCCA474       14     A     
 TSDATA             AX4    73B                                                             FCCA474       15     A     
 TSDATA             EQ     PSS87                                                           FCCA474       16     A     
 TSDATA             AX4    B1,X3       MAP SIGN ONTO +0 OR -0                              TSDATA      1249          I
          -FCCA474
 TSDATA             BX6    X4-X6                                                           TSDATA      1250          I
          -FCCA474
 TSDATA    PSS85    AX4    B1,X3       MAP SIGN ONTO +0 OR -0                              FCCA474       17     A     
 TSDATA    PSS87    BX6    X4-X6                                                           FCCA474       18     A     
 TSDATA             SA6    A4                                                              TSDATA      1251     A     
 TSDATA    PSS86    =B3    B3+1                                                            TSDATA      1252     A     
 TSDATA             LT     B3,B6,PSS80 IF MORE SUBSCRIPTS                                  TSDATA      1253     A     
 TSDATA                                                                                    TSDATA      1254     A     
 TSDATA   **        ELIMINATE MULTIPLE APPEARENCES OF AN INDEX VARIABLE                    TSDATA      1255     A     
 TSDATA                                                                                    TSDATA      1256     A     
 TSDATA             SA5    N.VSUB                                                          TSDATA      1257     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1047    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             SB7    X5          (B7) = (N.VSUB)                                     TSDATA      1258     A     
 TSDATA             LE1    B7,EXIT.    IF LESS THAN 2 VARIABLE SUBS                        TSDATA      1259     A     
 TSDATA             MX0    60-3                                                            TSDATA      1260     A     
 TSDATA             SX5    213231B           A(IIJ) , A(JII) , A(IJI)                      TSDATA      1261     A     
 TSDATA                                                                                    TSDATA      1262     A     
 TSDATA    PSS90    BX3    -X0*X5            J       ( SMALLER )                           TSDATA      1263     A     
 TSDATA             AX5    3                                                               TSDATA      1264     A     
 TSDATA             BX4    -X0*X5            I       ( I > J )                             TSDATA      1265     A     
 TSDATA             AX5    3                                                               TSDATA      1266     A     
 TSDATA             SA1    INDX-1+X3                                                       TSDATA      1267     A     
 TSDATA             SA2    INDX-1+X4                                                       TSDATA      1268     A     
 TSDATA             IX6    X1-X2                                                           TSDATA      1269     A     
 TSDATA             SB4    X4                                                              TSDATA      1270     A     
 TSDATA             NZ     X6,PSS94          IF NO MATCH                                   TSDATA      1271     A     
 TSDATA                                                                                    TSDATA      1272     A     
 TSDATA             SA6    A2                INDX(I) = 0                                   TSDATA      1273     A     
 TSDATA             NE     B4,B6,PSS92       IF( I = N.SUB ) N.SUB = N.SUB-1               TSDATA      1274     A     
 TSDATA             =B6    B6-1                                                            TSDATA      1275     A     
 TSDATA    PSS92    =B7    B7-1        DECREMENT (N.VSUB)                                  TSDATA      1276     A     
 TSDATA             SB3    X3                                                              TSDATA      1277     A     
 TSDATA             SA1    B3+CON1-1                                                       TSDATA      1278     A     
 TSDATA             SA2    B4+CON1-1                                                       TSDATA      1279     A     
 TSDATA             SA3    B4+DIM.MUL-1                                                    TSDATA      1280     A     
 TSDATA             IX4    X2*X3                                                           TSDATA      1281     A     
 TSDATA             IX6    X1+X4             C1(J) = C1(J)+DIM.MUL(I)*C1(I)                TSDATA      1282     A     
 TSDATA             SA6    A1                                                              TSDATA      1283     A     
 TSDATA                                                                                    TSDATA      1284     A     
 TSDATA             SA2    B4+CON2-1                                                       TSDATA      1285     A     
 TSDATA             SA1    B3+CON2-1                                                       TSDATA      1286     A     
 TSDATA             SX2    X2-1                                                            TSDATA      1287     A     
 TSDATA             IX4    X3*X2                                                           TSDATA      1288     A     
 TSDATA             IX6    X4+X1             C2(J) = C2(J)+DIM.MUL(I)*(C2(I)-1)            TSDATA      1289     A     
 TSDATA             SA6    A1                                                              TSDATA      1290     A     
 TSDATA             SX7    B1                                                              TSDATA      1291     A     
 TSDATA             SA7    A2                C2(I) = 1                                     TSDATA      1292     A     
 TSDATA                                                                                    TSDATA      1293     A     
 TSDATA    PSS94    EQ     B7,B1,PSS96       IF ONLY 1 VARIABLE SUB LEFT                   TSDATA      1294     A     
 TSDATA             NZ     X5,PSS90          IF MORE COMBINATIONS TO TEST                  TSDATA      1295     A     
 TSDATA                                                                                    TSDATA      1296     A     
 TSDATA    PSS96    SX6    B6                                                              TSDATA      1297     A     
 TSDATA             SX7    B7                                                              TSDATA      1298     A     
 TSDATA             SA6    N.SUBS            UPDATE N.SUB AND N.VSUB                       TSDATA      1299     A     
 TSDATA             SA7    A5                                                              TSDATA      1300     A     
 TSDATA             EQ     EXIT.                                                           TSDATA      1301     A     
 TSDATA    MDL      EJECT  MDL - MATCH DATA LISTS                                          TSDATA      1302     A     
 TSDATA   **        MDL - MATCH DATA LISTS.                                                TSDATA      1303     A     
 TSDATA   *                MATCHS A VARIABLE TO DATA ITEM LIST                             TSDATA      1304     A     
 TSDATA   *                                                                                TSDATA      1305     A     
 TSDATA   *         ENTRY  (X5) = NUMBER OF EXPLICIT LOOPS.                                TSDATA      1306     A     
 TSDATA   *                     "DVT" AND SUBSCRIPT INFO BLOCK SET UP BY "BVT".            TSDATA      1307     A     
 TSDATA                                                                                    TSDATA      1308     A     
 TSDATA                                                                                    TSDATA      1309     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1048    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA    MDLY     =B7    DDS.S       OUTPUT A *DATA 0* TO PROPERLY MAINTAIN THE          TSDATA      1310     A     
 TSDATA             BX5    0                 ORIGIN COUNTER                                TSDATA      1311     A     
 TSDATA             PX6    X5,B7                                                           TSDATA      1312     A     
 TSDATA             ADDWD  TS.DAT                                                          TSDATA      1313     A     
 TSDATA                                                                                    TSDATA      1314     A     
 TSDATA    MDL      SUBR               ENTRY/EXIT...                                       TSDATA      1315     A     
 TSDATA             SA4    N.ITEM            NUMBER OF ITEMS LEFT IN DATA LIST             TSDATA      1316     A     
 TSDATA             SX6    X4-1                                                            TSDATA      1317     A     
 TSDATA             PL     X6,MDL1           IF > 0                                        TSDATA      1318     A     
 TSDATA             SA6    A4                                                              TSDATA      1319     A     
 TSDATA             EQ     EXIT.                                                           TSDATA      1320     A     
 TSDATA                                                                                    TSDATA      1321     A     
 TSDATA    MDL1     SA2    DVT+1                                                           TSDATA      1322     A     
 TSDATA             SA1    SDPF              X1 = SDPF                                     TSDATA      1323     A     
 TSDATA             MX7    0                                                               TSDATA      1324     A     
 TSDATA             SB2    X2                NUMBER OF VARS TO BE INITIALIZED              TSDATA      1325     A     
 TSDATA             SA7    ORGI              ORGI = 0                                      TSDATA      1326     A     
 TSDATA             NZ     X5,MDL4           IF EXPLICIT LOOPS                             TSDATA      1327     A     
 TSDATA             GT     B2,B1,MDL2        IF NOT A SINGLE ITEM                          TSDATA      1328     A     
 TSDATA                                                                                    TSDATA      1329     A     
 TSDATA   **        PROCESS A SINGLE ELEMENT                                               TSDATA      1330     A     
 TSDATA                                                                                    TSDATA      1331     A     
 TSDATA             SA3    BIAS                                                            TSDATA      1332     A     
 TSDATA             SA6    A4                UPDATE N.ITEM                                 TSDATA      1333     A     
 TSDATA             RJ     ODV               OUTPUT ORG FOR FWA                            TSDATA      1334     A     
 TSDATA             RJ     GNI               GET NEXT DATA ITEM                            TSDATA      1335     A     
 TSDATA             SA1    DVT+1                                                           TSDATA      1336     A     
 TSDATA             AX1    18                                                              TSDATA      1337     A     
 TSDATA             SB5    X1                WORD LIMIT                                    TSDATA      1338     A     
 TSDATA             RJ     ODI               OUTPUT IT                                     TSDATA      1339     A     
 TSDATA             EQ     EXIT.                                                           TSDATA      1340     A     
 TSDATA                                                                                    TSDATA      1341     A     
 TSDATA   **        PROCESS REFERENCE TO WHOLE ARRAY - A # (A(I),I = 1,PI DIMS)            TSDATA      1342     A     
 TSDATA                                                                                    TSDATA      1343     A     
 TSDATA    MDL2     SX6    X1+B1             ADDRESS DIFFERENCE                            TSDATA      1344     A     
 TSDATA             SX7    X2                TRIP COUNT                                    TSDATA      1345     A     
 TSDATA             SA5    BIAS                                                            TSDATA      1346     A     
 TSDATA    MDL3     RJ     OIC               OUTPUT INITIALIZATION CODE                    TSDATA      1347     A     
 TSDATA             EQ     EXIT.                                                           TSDATA      1348     A     
 TSDATA                                                                                    TSDATA      1349     A     
 TSDATA   **        PROCESS EXPLICIT DO INDEXING                                           TSDATA      1350     A     
 TSDATA                                                                                    TSDATA      1351     A     
 TSDATA    MDL4     SB4    X5                B4 = NUMBER OF LOOPS                          TSDATA      1352     A     
 TSDATA             GT     B4,B1,MDL5        IF MORE THAN 1 LOOP                           TSDATA      1353     A     
 TSDATA             SB5    X1                SDPF                                          TSDATA      1354     A     
 TSDATA             SA2    LPINF             LOOP INFO WORD                                TSDATA      1355     A     
 TSDATA             AX2    18                                                              TSDATA      1356     A     
 TSDATA             SX7    X2                TRIP COUNT                                    TSDATA      1357     A     
 TSDATA             AX2    18                                                              TSDATA      1358     A     
 TSDATA             SX3    X2                M                                             TSDATA      1359     A     
 TSDATA             AX2    18                P                                             TSDATA      1360     A     
 TSDATA             SA4    DIM.MUL+X2                                                      TSDATA      1361     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1049    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             SA5    BIAS                                                            TSDATA      1362     A     
 TSDATA             LX4    B5,X4                                                           TSDATA      1363     A     
 TSDATA             IX6    X3*X4             ADDRESS DIFF = DM(P)*M(P)*2**SDPF             TSDATA      1364     A     
 TSDATA             SX4    X4                                                              TSDATA      1365     A     
 TSDATA             IX0    X6-X4             DM(P)*( M(P)-1 )*2**SDPF                      TSDATA      1366     A     
 TSDATA             IX5    X0+X5                                                           TSDATA      1367     A     
 TSDATA             EQ     MDL3                                                            TSDATA      1368     A     
 TSDATA                                                                                    TSDATA      1369     A     
 TSDATA    MDL5     BSS    0                                                               TSDATA      1370     A     
 TSDATA                                                                                    TSDATA      1371     A     
 TSDATA   **        IRREDUCEABLE NEST OF LOOPS                                             TSDATA      1372     A     
 TSDATA                                                                                    TSDATA      1373     A     
 TSDATA    MDL10    SA2    LPINF                                                           TSDATA      1374     A     
 TSDATA             SA1    SDPF                                                            TSDATA      1375     A     
 TSDATA             SB5    X1                                                              TSDATA      1376     A     
 TSDATA             AX2    36                                                              TSDATA      1377     A     
 TSDATA             SX3    X2                M(P)                                          TSDATA      1378     A     
 TSDATA             AX2    18                P                                             TSDATA      1379     A     
 TSDATA             SA4    DIM.MUL+X2                                                      TSDATA      1380     A     
 TSDATA             LX4    B5,X4             DM(P)*2**SDPF                                 TSDATA      1381     A     
 TSDATA             IX7    X3*X4                                                           TSDATA      1382     A     
 TSDATA             SA7    DA                SAVE ADDRESS DIFFERENCE                       TSDATA      1383     A     
 TSDATA             UX4    X4                                                              TSDATA      1384     A     
 TSDATA             SA5    BIAS                                                            TSDATA      1385     A     
 TSDATA             IX0    X7-X4                                                           TSDATA      1386     A     
 TSDATA             IX7    X0+X5             BIAS = BIAS+DA-DM(P)*2**SDPF                  TSDATA      1387     A     
 TSDATA             SA7    A5                                                              TSDATA      1388     A     
 TSDATA             SX6    B1                                                              TSDATA      1389     A     
 TSDATA             SA6    LI+1              LI(2) = 1                                     TSDATA      1390     A     
 TSDATA             SA6    A6+B1             LI(3) = 1                                     TSDATA      1391     A     
 TSDATA                                                                                    TSDATA      1392     A     
 TSDATA   **        CALCULATE BIAS                                                         TSDATA      1393     A     
 TSDATA                                                                                    TSDATA      1394     A     
 TSDATA    MDL11    SA4    N.VSUB                                                          TSDATA      1395     A     
 TSDATA             SA5    BIAS                                                            TSDATA      1396     A     
 TSDATA             SA3    SDPF                                                            TSDATA      1397     A     
 TSDATA             SB5    B1                INDEX                                         TSDATA      1398     A     
 TSDATA             SB2    X4                LIMIT                                         TSDATA      1399     A     
 TSDATA             SB3    X3                SDPF                                          TSDATA      1400     A     
 TSDATA             MX7    0                                                               TSDATA      1401     A     
 TSDATA             SA7    ORGI              ORGI = 0                                      TSDATA      1402     A     
 TSDATA                                                                                    TSDATA      1403     A     
 TSDATA    MDL12    SA1    LPINF+B5          LPINF(J)                                      TSDATA      1404     A     
 TSDATA             AX1    36                                                              TSDATA      1405     A     
 TSDATA             SX2    X1                M(P)                                          TSDATA      1406     A     
 TSDATA             AX1    18                P                                             TSDATA      1407     A     
 TSDATA             SA3    LI+B5             LI(J)                                         TSDATA      1408     A     
 TSDATA             SA1    DIM.MUL+X1        DM(P)                                         TSDATA      1409     A     
 TSDATA             IX4    X2*X3                                                           TSDATA      1410     A     
 TSDATA             SX6    X4-1                                                            TSDATA      1411     A     
 TSDATA             IX0    X1*X6             DM(P)*(M(P)*LI(J)-1)                          TSDATA      1412     A     
 TSDATA             LX7    B3,X0                                                           TSDATA      1413     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1050    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             IX5    X5+X7                                                           TSDATA      1414     A     
 TSDATA             SB5    B5+B1                                                           TSDATA      1415     A     
 TSDATA             LT     B5,B2,MDL12                                                     TSDATA      1416     A     
 TSDATA                                                                                    TSDATA      1417     A     
 TSDATA             SA1    DA                                                              TSDATA      1418     A     
 TSDATA             SA2    LPINF                                                           TSDATA      1419     A     
 TSDATA             BX6    X1                ADDRESS DIFFERENCE                            TSDATA      1420     A     
 TSDATA             AX2    18                                                              TSDATA      1421     A     
 TSDATA             SX7    X2                TC(1)                                         TSDATA      1422     A     
 TSDATA             RJ     OIC               MATCH UP LISTS                                TSDATA      1423     A     
 TSDATA                                                                                    TSDATA      1424     A     
 TSDATA   **        INCREMENT INDICES                                                      TSDATA      1425     A     
 TSDATA                                                                                    TSDATA      1426     A     
 TSDATA             SA4    N.VSUB                                                          TSDATA      1427     A     
 TSDATA             SB5    B1                                                              TSDATA      1428     A     
 TSDATA             SB2    X4                                                              TSDATA      1429     A     
 TSDATA                                                                                    TSDATA      1430     A     
 TSDATA    MDL13    SA1    LI+B5             LI(J)                                         TSDATA      1431     A     
 TSDATA             SA2    LPINF+B5                                                        TSDATA      1432     A     
 TSDATA             SX6    X1+B1             LI(J) = LI(J)+1                               TSDATA      1433     A     
 TSDATA             AX2    18                                                              TSDATA      1434     A     
 TSDATA             SX3    X2                TC(J)                                         TSDATA      1435     A     
 TSDATA             SA6    A1                                                              TSDATA      1436     A     
 TSDATA             IX0    X1-X3             I - L                                         TSDATA      1437     A     
 TSDATA             MI     X0,MDL14          IF LI(J) @ TC(J)                              TSDATA      1438     A     
 TSDATA             SX6    B1                LI(J) = 1                                     TSDATA      1439     A     
 TSDATA             SA6    A6                                                              TSDATA      1440     A     
 TSDATA             SB5    B5+B1                                                           TSDATA      1441     A     
 TSDATA             LT     B5,B2,MDL13       LOOP IF J @ N.VSUB                            TSDATA      1442     A     
 TSDATA             EQ     EXIT.                                                           TSDATA      1443     A     
 TSDATA                                                                                    TSDATA      1444     A     
 TSDATA    MDL14    SA1    N.ITEM                                                          TSDATA      1445     A     
 TSDATA             SX2    X1-1                                                            TSDATA      1446     A     
 TSDATA             PL     X2,MDL11          IF MORE ITEMS TO GO                           TSDATA      1447     A     
 TSDATA             EQ     EXIT.                                                           TSDATA      1448     A     
 TSDATA    OIC      EJECT  OIC - OUTPUT INITIALIZATION CODE                                TSDATA      1449     A     
 TSDATA   **        OIC - OUTPUT INITIALIZATION CODE FOR A SEQUENCE OF ELEMENTS.           TSDATA      1450     A     
 TSDATA   *         OF AN ARRAY WITH A CONSTANT ADDRESS DIFFERENCE BETWEEN THEM.           TSDATA      1451     A     
 TSDATA   *         THAT IS, THIS SUBROUTINE OUTPUTS THE INITIALIZATION CODE FOR           TSDATA      1452     A     
 TSDATA   *         THE STATEMENT                                                          TSDATA      1453     A     
 TSDATA   *                ( A(M*I),I = 1,T) / DATA ITEM LIST /                            TSDATA      1454     A     
 TSDATA   *         THE ADDRESS DIFFERENCE BETWEEN THE ELEMENTS IS:                        TSDATA      1455     A     
 TSDATA   *         A(M*(I+1))-A(M*I) = DM(J)*M*2**SDPF                                    TSDATA      1456     A     
 TSDATA   *                                                                                TSDATA      1457     A     
 TSDATA   *         ENTRY  (X5) = ANY ADDITIONAL BIAS                                      TSDATA      1458     A     
 TSDATA   *                (X6) = DA - THE ADDRESS DIFFERENCE                              TSDATA      1459     A     
 TSDATA   *                (X7) = T - TRIP COUNT                                           TSDATA      1460     A     
 TSDATA                                                                                    TSDATA      1461     A     
 TSDATA                                                                                    TSDATA      1462     A     
 TSDATA    OIC      SUBR               ENTRY/EXIT...                                       TSDATA      1463     A     
 TSDATA             SA6    DA                SAVE PARAMETERS                               TSDATA      1464     A     
 TSDATA             SA7    OICT                                                            TSDATA      1465     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1051    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             BX6    X5                                                              TSDATA      1466     A     
 TSDATA             SA6    OICB                                                            TSDATA      1467     A     
 TSDATA                                                                                    TSDATA      1468     A     
 TSDATA    OIC1     SA3    REPFLAG                                                         TSDATA      1469     A     
 TSDATA             SA5    I.DIT                                                           TSDATA      1470     A     
 TSDATA             SA2    TI.DAT                                                          TSDATA      1471     A     
 TSDATA             IX1    X2+X5       NEXT ITEM TABLE ADDRESS                             TSDATA      1472     A     
 TSDATA             ZR     X3,OIC2           IF NOT IN THE MIDDLE OF A REP                 TSDATA      1473     A     
 TSDATA                                                                                    TSDATA      1474     A     
 TSDATA   **        IN THE MIDDLE OF A REP , ADJUST REP COUNT DECREMENT ( DEC )            TSDATA      1475     A     
 TSDATA                                                                                    TSDATA      1476     A     
 TSDATA             BX2    X3                                                              TSDATA      1477     A     
 TSDATA             AX2    36                                                              TSDATA      1478     A     
 TSDATA             SB4    X2                RL                                            TSDATA      1479     A     
 TSDATA             MX7    0                 DEC = 0                                       TSDATA      1480     A     
 TSDATA             EQ     B4,B1,OIC3        IF RL = 1                                     TSDATA      1481     A     
 TSDATA             SA4    I.DIT+2     ORDINAL OF START OF DATA IN REP LIST                TSDATA      1482     A     
 TSDATA             IX5    X4-X5                                                           TSDATA      1483     A     
 TSDATA             =X0    -1                                                              TSDATA      1484     A     
 TSDATA             AX5    59                                                              TSDATA      1485     A     
 TSDATA             BX7    X5*X0             DEC = 0 IF AT THE START                       TSDATA      1486     A     
 TSDATA             EQ     OIC3                                                            TSDATA      1487     A     
 TSDATA                                                                                    TSDATA      1488     A     
 TSDATA    OIC2     SA3    X1                DIT WORD                                      TSDATA      1489     A     
 TSDATA             PL     X3,OIC12          IF NOT THE START OF A REP                     TSDATA      1490     A     
 TSDATA             BX7    0                 DEC = 0                                       TSDATA      1491     A     
 TSDATA                                                                                    TSDATA      1492     A     
 TSDATA   **        REP LIST ENCOUNTERED - SEE IF WE CAN OUTPUT "REPI" MACROS              TSDATA      1493     A     
 TSDATA   *         A3,X3 - REP LIST INFO WORD - DO NOT DESTROY UNTIL UPDATED              TSDATA      1494     A     
 TSDATA                                                                                    TSDATA      1495     A     
 TSDATA    OIC3     LX4    B1,X3                                                           TSDATA      1496     A     
 TSDATA             AX4    54+1              POSITION CONSTANT ITEM LENGTH FLAG            TSDATA      1497     A     
 TSDATA             ZR     X4,OIC12          IF ALL ITEMS ARE NOT THE SAME LENGTH          TSDATA      1498     A     
 TSDATA                                                                                    TSDATA      1499     A     
 TSDATA   **        N = MIN(RF+DEC,T/RL) = NUMBER OF TIMES WE CAN REP THE DATA             TSDATA      1500     A     
 TSDATA                                                                                    TSDATA      1501     A     
 TSDATA             SA5    OICT                                                            TSDATA      1502     A     
 TSDATA             SB4    X4                B4 = CIL FLAG                                 TSDATA      1503     A     
 TSDATA             SX0    X3                X0 = RF                                       TSDATA      1504     A     
 TSDATA             BX2    X3                                                              TSDATA      1505     A     
 TSDATA             AX2    36                                                              TSDATA      1506     A     
 TSDATA             SX6    X2                RL                                            TSDATA      1507     A     
 TSDATA             SB2    X2                B2 = RL                                       TSDATA      1508     A     
 TSDATA             SA6    RL                                                              TSDATA      1509     A     
 TSDATA             IX0    X0+X7             RF+DEC                                        TSDATA      1510     A     
 TSDATA             IX5    X5/X6             T/RL                                          TSDATA      1511     A     
 TSDATA             MX6    X5-X0             MIN OF THE 2                                  TSDATA      1512     A     
 TSDATA             SB6    X6                                                              TSDATA      1513     A     
 TSDATA             LE     B6,B1,OIC12       IF WE CAN"T REP IT AT LEAST 2 TIMES           TSDATA      1514     A     
 TSDATA             SA5    SDPF                                                            TSDATA      1515     A     
 TSDATA             SB3    X5+B1             WORDS/ELEMENT                                 TSDATA      1516     A     
 TSDATA             GT     B4,B3,OIC12       IF DATA ITEMS LONGER THAN VAR ELEMENT         TSDATA      1517     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1052    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA                                                                                    TSDATA      1518     A     
 TSDATA             SA6    OICN              SAVE REP COUNT                                TSDATA      1519     A     
 TSDATA             SX5    X6-1              DECREMENT REP LIST COUNT BY N-1 FOR           TSDATA      1520     A     
 TSDATA             IX6    X3-X5             GNI SINCE WE WILL CALL IT ONLY ONCE           TSDATA      1521     A     
 TSDATA             SA6    A3                TO OUTPUT THE DATA ITEMS N TIMES              TSDATA      1522     A     
 TSDATA                                                                                    TSDATA      1523     A     
 TSDATA             SA1    DA                                                              TSDATA      1524     A     
 TSDATA             SX2    B2                RL                                            TSDATA      1525     A     
 TSDATA             SB6    B4-B1             CIL FLAG - 1                                  TSDATA      1526     A     
 TSDATA             LX7    B6,X2             RL*CIF                                        TSDATA      1527     A     
 TSDATA             IX5    X7-X1                                                           TSDATA      1528     A     
 TSDATA             IX6    X1*X2                                                           TSDATA      1529     A     
 TSDATA             SA6    MP                MP = DA*RL                                    TSDATA      1530     A     
 TSDATA             NE     B3,B4,OIC7        IF 1 WORD ITEMS AND 2 WD/ELE VARS             TSDATA      1531     A     
 TSDATA             EQ     B2,B1,OIC5        IF RL = 1                                     TSDATA      1532     A     
 TSDATA             SB7    X1                DA                                            TSDATA      1533     A     
 TSDATA             NE     B7,B4,OIC7        IF DA " CIL                                   TSDATA      1534     A     
 TSDATA                                                                                    TSDATA      1535     A     
 TSDATA   **        RL = 1 OR DA = CIL - OUTPUT THE DATA AND A SINGLE REPI                 TSDATA      1536     A     
 TSDATA                                                                                    TSDATA      1537     A     
 TSDATA    OIC5     SA7    DLEN              SAVE LENGTH OF DATA LIST ( *CIL )             TSDATA      1538     A     
 TSDATA             SA3    OICB                                                            TSDATA      1539     A     
 TSDATA             RJ     ODV               OUTPUT ORG TO SET DATA PLACEMENT ADDR         TSDATA      1540     A     
 TSDATA             SA1    RL                                                              TSDATA      1541     A     
 TSDATA             BX6    -X1                                                             TSDATA      1542     A     
 TSDATA                                                                                    TSDATA      1543     A     
 TSDATA    OIC6     SA6    LI                                                              TSDATA      1544     A     
 TSDATA             RJ     GNI               GET NEXT ITEM                                 TSDATA      1545     A     
 TSDATA             SA1    SDPF                                                            TSDATA      1546     A     
 TSDATA             SB5    X1+B1             WORD LIMIT                                    TSDATA      1547     A     
 TSDATA             RJ     ODI               OUTPUT DATA ITEM                              TSDATA      1548     A     
 TSDATA             SA1    LI                                                              TSDATA      1549     A     
 TSDATA             SX6    X1+B1             DECREMENT INDEX                               TSDATA      1550     A     
 TSDATA             NZ     X6,OIC6                                                         TSDATA      1551     A     
 TSDATA                                                                                    TSDATA      1552     A     
 TSDATA             SA1    OICN              REP COUNT                                     TSDATA      1553     A     
 TSDATA             SA2    MP                FWA INCR                                      TSDATA      1554     A     
 TSDATA             SA4    DLEN              NUMBER OF DATA WORDS                          TSDATA      1555     A     
 TSDATA             LX3    X2                DESTIN OFFSET                                 TSDATA      1556     A     
 TSDATA             BX6    X4                                                              TSDATA      1557     A     
 TSDATA             RJ     ORP               OUTPUT REPI MACRO CALL                        TSDATA      1558     A     
 TSDATA             EQ     OIC9                                                            TSDATA      1559     A     
 TSDATA                                                                                    TSDATA      1560     A     
 TSDATA   **        RL > 1 AND DA " CIL - PUT OUT A REP FOR EACH DATA ITEM                 TSDATA      1561     A     
 TSDATA                                                                                    TSDATA      1562     A     
 TSDATA    OIC7     SA3    OICB                                                            TSDATA      1563     A     
 TSDATA             SX7    -B2                                                             TSDATA      1564     A     
 TSDATA             BX6    X3                                                              TSDATA      1565     A     
 TSDATA             SA7    TMP                                                             TSDATA      1566     A     
 TSDATA             SA6    A7+B1             AND COPY OF BIAS                              TSDATA      1567     A     
 TSDATA                                                                                    TSDATA      1568     A     
 TSDATA    OIC8     RJ     ODV               OUTPUT ORG TO SET DATA PLACEMENT ADDR         TSDATA      1569     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1053    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             RJ     GNI               GET DATA LIST POINTER                         TSDATA      1570     A     
 TSDATA             SA1    SDPF                                                            TSDATA      1571     A     
 TSDATA             SB5    X1+B1             SET WORD LIMIT                                TSDATA      1572     A     
 TSDATA             RJ     ODI               OUTPUT DATA STMT                              TSDATA      1573     A     
 TSDATA             SA1    OICN              REP COUNT + 1                                 TSDATA      1574     A     
 TSDATA             SA2    MP                I                                             TSDATA      1575     A     
 TSDATA             BX3    X2                D                                             TSDATA      1576     A     
 TSDATA             SX6    B5                B                                             TSDATA      1577     A     
 TSDATA             RJ     ORP               OUTPUT REPI MACRO                             TSDATA      1578     A     
 TSDATA             SA1    TMP               LOOP INDEX                                    TSDATA      1579     A     
 TSDATA             SA2    DA                                                              TSDATA      1580     A     
 TSDATA             SA3    A1+B1             BIAS                                          TSDATA      1581     A     
 TSDATA             IX6    X2+X3             B = B+DA ( ADVANCE BIAS )                     TSDATA      1582     A     
 TSDATA             SA6    A3                                                              TSDATA      1583     A     
 TSDATA             BX3    X6                                                              TSDATA      1584     A     
 TSDATA             SX7    X1+B1             DECREMENT LOOP INDEX                          TSDATA      1585     A     
 TSDATA             SA7    A1                                                              TSDATA      1586     A     
 TSDATA             MI     X7,OIC8                                                         TSDATA      1587     A     
 TSDATA                                                                                    TSDATA      1588     A     
 TSDATA   **        END OF REP OUTPUT - UPDATE COUNTERS ( N.ITEM,T AND B )                 TSDATA      1589     A     
 TSDATA                                                                                    TSDATA      1590     A     
 TSDATA    OIC9     SA1    OICN                                                            TSDATA      1591     A     
 TSDATA             SA2    RL                                                              TSDATA      1592     A     
 TSDATA             SA3    OICB                                                            TSDATA      1593     A     
 TSDATA             SA4    N.ITEM                                                          TSDATA      1594     A     
 TSDATA             IX0    X1*X2             N*RL = NUMBER OF ELEMENTS PROCESSED           TSDATA      1595     A     
 TSDATA             SA2    DA                                                              TSDATA      1596     A     
 TSDATA             SA5    OICT                                                            TSDATA      1597     A     
 TSDATA             BX7    0                                                               TSDATA      1598     A     
 TSDATA             SA7    ORGI              ORGI = 0                                      TSDATA      1599     A     
 TSDATA             IX1    X0*X2                                                           TSDATA      1600     A     
 TSDATA             IX7    X3+X1             B = B+DA*(N*RL)                               TSDATA      1601     A     
 TSDATA             SA7    A3                                                              TSDATA      1602     A     
 TSDATA             UX0    X0                                                              TSDATA      1603     A     
 TSDATA             IX6    X4-X0             DECREMENT NUMBER OF ITEMS LEFT                TSDATA      1604     A     
 TSDATA             SA6    A4                                                              TSDATA      1605     A     
 TSDATA             IX7    X5-X0             AND NUMBER OF VARS LEFT                       TSDATA      1606     A     
 TSDATA             SA7    A5                                                              TSDATA      1607     A     
 TSDATA             ZR     X6,OIC10          IF DATA LIST IS EXHAUSTED                     TSDATA      1608     A     
 TSDATA             NZ     X7,OIC1           IF MORE VARIABLES TO GO                       TSDATA      1609     A     
 TSDATA                                                                                    TSDATA      1610     A     
 TSDATA    OIC10    IX6    X6-X7             N.ITEM = N.ITEM-T                             TSDATA      1611     A     
 TSDATA             SA6    A6                FORCE AN INFORMATIVE ERROR IF T " 0           TSDATA      1612     A     
 TSDATA             EQ     EXIT.                                                           TSDATA      1613     A     
 TSDATA                                                                                    TSDATA      1614     A     
 TSDATA   **        NOT AT THE START OF A REP OR CANNOT REP WITH THIS ITEM LIST            TSDATA      1615     A     
 TSDATA   *         OUTPUT ITEMS UNTIL WE HIT THE START OF THE NEXT REP OR                 TSDATA      1616     A     
 TSDATA   *         T = 0 OR N.ITEM = 0                                                    TSDATA      1617     A     
 TSDATA                                                                                    TSDATA      1618     A     
 TSDATA    OIC12    SA2    DVT+1                                                           TSDATA      1619     A     
 TSDATA             AX2    18                                                              TSDATA      1620     A     
 TSDATA             SX7    X2                SAVE WORD LIMIT                               TSDATA      1621     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1054    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             SA7    TMP                                                             TSDATA      1622     A     
 TSDATA                                                                                    TSDATA      1623     A     
 TSDATA    OIC14    SA1    DA                                                              TSDATA      1624     A     
 TSDATA             SA2    ORGI                                                            TSDATA      1625     A     
 TSDATA             IX0    X1-X2                                                           TSDATA      1626     A     
 TSDATA             ZR     X0,OIC15          IF WE DON"T NEED AN ORG                       TSDATA      1627     A     
 TSDATA             SA3    OICB                                                            TSDATA      1628     A     
 TSDATA             RJ     ODV               SET DATA PLACEMENT ADDRESS                    TSDATA      1629     A     
 TSDATA    OIC15    RJ     GNI               GET NEXT DATA ITEM                            TSDATA      1630     A     
 TSDATA             SA1    TMP                                                             TSDATA      1631     A     
 TSDATA             SA2    OICB                                                            TSDATA      1632     A     
 TSDATA             SA4    DA                                                              TSDATA      1633     A     
 TSDATA             IX3    X1-X2                                                           TSDATA      1634     A     
 TSDATA             SB5    X3                WORD LIMIT FOR THIS ELEMENT                   TSDATA      1635     A     
 TSDATA             IX7    X4+X2             B = B+DA ( ADVANCE BIAS  )                    TSDATA      1636     A     
 TSDATA             SA7    A2                                                              TSDATA      1637     A     
 TSDATA             RJ     ODI               OUTPUT A DATA ITEM                            TSDATA      1638     A     
 TSDATA             SX6    B6                                                              TSDATA      1639     A     
 TSDATA             SA6    ORGI              SAVE ORG COUNTER INCREMENT                    TSDATA      1640     A     
 TSDATA                                                                                    TSDATA      1641     A     
 TSDATA             MX0    59                                                              TSDATA      1642     A     
 TSDATA             SA4    N.ITEM                                                          TSDATA      1643     A     
 TSDATA             SA5    OICT                                                            TSDATA      1644     A     
 TSDATA             IX6    X4+X0             DECREMENT NUMBER OF ITEMS LEFT                TSDATA      1645     A     
 TSDATA             SA6    A4                                                              TSDATA      1646     A     
 TSDATA             IX7    X5+X0             AND NUMBER OF VARIABLES LEFT                  TSDATA      1647     A     
 TSDATA             SA7    A5                                                              TSDATA      1648     A     
 TSDATA             ZR     X6,OIC10          IF NO MORE DATA ITEMS LEFT                    TSDATA      1649     A     
 TSDATA             ZR     X7,EXIT.    IF FINISHED WITH THE VARS                           TSDATA      1650     A     
 TSDATA                                                                                    TSDATA      1651     A     
 TSDATA             SA2    TI.DAT                                                          TSDATA      1652     A     
 TSDATA             SA1    I.DIT                                                           TSDATA      1653     A     
 TSDATA             IX1    X1+X2                                                           TSDATA      1654     A     
 TSDATA             SA3    X1                NEXT DIT WORD                                 TSDATA      1655     A     
 TSDATA             BX7    0                                                               TSDATA      1656     A     
 TSDATA             PL     X3,OIC14          IF NOT THE START OF A REP                     TSDATA      1657     A     
 TSDATA             EQ     OIC3                                                            TSDATA      1658     A     
 TSDATA                                                                                    TSDATA      1659     A     
 TSDATA    OICB     BSS    1           LOCAL COPY OF BIAS                                  TSDATA      1660     A     
 TSDATA    OICN     BSS    1           NUMBER OF TIMES WE CAN TRAVERSE A REP LIST.         TSDATA      1661     A     
 TSDATA    OICT     BSS    1           TRIP COUNT                                          TSDATA      1662     A     
 TSDATA    ODV      EJECT   OUTPUT ROUTINES                                                TSDATA      1663     A     
 TSDATA   **        ODV - OUTPUT DATA VARIABLE ADDRESS.                                    TSDATA      1664     A     
 TSDATA   *         OUTPUTS AN "ORG" MACRO CALL TO SET THE FWA FOR DATA PLACEMENT          TSDATA      1665     A     
 TSDATA   *                                                                                TSDATA      1666     A     
 TSDATA   *         ENTRY  X3 = ANY ADDITIONAL BIAS DUE TO SUBSCRIPT CALCULATIONS,         TSDATA      1667     A     
 TSDATA                                                                                    TSDATA      1668     A     
 TSDATA                                                                                    TSDATA      1669     A     
 TSDATA    ODV      SUBR               ENTRY/EXIT...                                       TSDATA      1670     A     
 TSDATA             SA1    DVT                                                             TSDATA      1671     A     
 TSDATA             SX2    X1                SAVE BIAS DUE TO EQUIVALENCING                TSDATA      1672     A     
 TSDATA             AX1    18                                                              TSDATA      1673     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1055    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             SX6    X1                                                              TSDATA      1674     A     
 TSDATA             LX6    P.DTAG                                                          TSDATA      1675     A     
 TSDATA             =B7    DDS.O       *ORG* OPERATOR                                      TSDATA      1676     A     
 TSDATA             IX3    X3+X2                                                           TSDATA      1677     A     
 TSDATA             BX1    X6+X3                                                           TSDATA      1678     A     
 TSDATA             PX6    X1,B7                                                           TSDATA      1679     A     
 TSDATA             ADDWD  TS.DAT                                                          TSDATA      1680     A     
 TSDATA             EQ     EXIT.                                                           TSDATA      1681     A     
 TSDATA    ORP      SPACE  4,8                                                             TSDATA      1682     A     
 TSDATA   **        ORP - OUTPUT "REPI" MACRO CALL.                                        TSDATA      1683     A     
 TSDATA   *                                                                                TSDATA      1684     A     
 TSDATA   *         ENTRY  X6 = DATA BLOCK LENGTH ( NUMBER OF WORDS TO BE REPPED )         TSDATA      1685     A     
 TSDATA   *                X1 = REP COUNT + 1                                              TSDATA      1686     A     
 TSDATA   *                X2 = FWA INCREMENT BETWEEN REPS                                 TSDATA      1687     A     
 TSDATA   *                X3 = DESTINATION ADDRESS OFFSET                                 TSDATA      1688     A     
 TSDATA                                                                                    TSDATA      1689     A     
 TSDATA                                                                                    TSDATA      1690     A     
 TSDATA    ORP      SUBR               ENTRY/EXIT...                                       TSDATA      1691     A     
 TSDATA             LX6    P.DTAG                                                          TSDATA      1692     A     
 TSDATA             BX0    X6+X1                                                           TSDATA      1693     A     
 TSDATA             LX2    P.DTAG                                                          TSDATA      1694     A     
 TSDATA             =B7    DDS.R       *REPI* OPERATOR                                     TSDATA      1695     A     
 TSDATA             PX6    X0,B7                                                           TSDATA      1696     A     
 TSDATA             BX4    X2+X3                                                           TSDATA      1697     A     
 TSDATA             ADDWD  TS.DAT                                                          TSDATA      1698     A     
 TSDATA             BX6    X4                                                              TSDATA      1699     A     
 TSDATA             ADDWD  A1                                                              TSDATA      1700     A     
 TSDATA             EQ     EXIT.                                                           TSDATA      1701     A     
 TSDATA    ODI      EJECT                                                                  TSDATA      1702     A     
 TSDATA   **        ODI - OUTPUT DATA ITEM.                                                TSDATA      1703     A     
 TSDATA   *                                                                                TSDATA      1704     A     
 TSDATA   *         ENTRY  B5 = MAX NUMBER OF DATA WORDS THAT MAY BE ISSUED                TSDATA      1705     A     
 TSDATA   *                A5,X5 = FWA OF DIT ENTRY                                        TSDATA      1706     A     
 TSDATA   *                                                                                TSDATA      1707     A     
 TSDATA   *         EXIT   (B6) = NUMBER OF DATA WORDS THAT WE ISSUED.                     TSDATA      1708     A     
 TSDATA   *                     ( ORG COUNTER INCREMENT )                                  TSDATA      1709     A     
 TSDATA                                                                                    TSDATA      1710     A     
 TSDATA                                                                                    TSDATA      1711     A     
 TSDATA    ODI.S    =B7    DDS.S       INDICATE SMALL CONSTANT (LESS 2**48-1)              TSDATA      1712     A     
 TSDATA             PX6    X5,B7                                                           TSDATA      1713     A     
 TSDATA             ADDWD  A1                                                              TSDATA      1714     A     
 TSDATA    ODI.T    SA2    SDPF                                                            FCC2229       16     A     
 TSDATA             ZR     X2,ODI.E    IF NOT COMPLEX VAR                                  FCC2229       17     A     
 TSDATA             =B7    DDS.S       INITIALIZE SECOND WORD OF COMPLEX VAR               FCC2229       18     A     
 TSDATA             SA1    TS.DAT                                                          FCC2229       19     A     
 TSDATA             SX5    0                                                               FCC2229       20     A     
 TSDATA             PX6    X5,B7                                                           FCC2229       21     A     
 TSDATA             ADDWD  A1          OUTPUT SECOND WORD OF COMPLEX VAR                   FCC2229       22     A     
 TSDATA   ODI.E     SX7    0                                                               FCC2229       23     A     
 TSDATA             SA7    SDPF                                                            FCC2229       24     A     
 TSDATA                                                                                    TSDATA      1715     A     
 TSDATA    ODI      SUBR               ENTRY/EXIT...                                       TSDATA      1716     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1056    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             SA1    TS.DAT                                                          TSDATA      1717          I
          -FCC1563X 
 TSDATA             LX0    X5,B1                                                           TSDATA      1718     A     
 TSDATA             SB6    X5          (B6) = NUM WORDS IN DATA ITEM                       TSDATA      1719     A     
 TSDATA             MI     X0,ODI1     IF HOLLERITH                                        TSDATA      1720     A     
 TSDATA             SA5    A5+B1                                                           TSDATA      1721          I
          -FCC1563X 
 TSDATA             SA1    DVT         CHECK CONSTANT TYPE                                 FCC1563X      23     A     
 TSDATA             MX0    L.TYPE                                                          FCC1563X      24     A     
 TSDATA             BX6    X1-X5                                                           FCC1563X      25     A     
 TSDATA             LX0    P.CTYP+L.TYPE     POSITION MASK                                 FCC1563X      26     A     
 TSDATA             BX6    X0*X6                                                           FCC1563X      27     A     
 TSDATA             ZR     X6,ODI0     IF NO TYPE CONFLICT                                 FCC1563X      28     A     
 TSDATA                                                                                    FCC1563X      29     A     
 TSDATA             ANSI   =XE.DVL10                                                       FCC1563X      30     A     
 TSDATA                                                                                    FCC1563X      31     A     
 TSDATA    ODI0     SA5    A5+B1                                                           FCC1563X      32     A     
 TSDATA             SA1    TS.DAT                                                          FCC1563X      33     A     
 TSDATA             MX3    -47                                                             TSDATA      1722     A     
 TSDATA             NE     B6,B1,ODI.D  IF DOUBLE-WORD ITEM                                TSDATA      1723     A     
 TSDATA             BX2    X3*X5                                                           TSDATA      1724     A     
 TSDATA             AX2    47                                                              TSDATA      1725     A     
 TSDATA             ZR     X2,ODI.S    IF SMALL CONSTANT                                   TSDATA      1726     A     
 TSDATA                                                                                    TSDATA      1727     A     
 TSDATA    ODI.D    SA4    A5+B1       FETCH (POSSIBLE) SECOND WORD                        TSDATA      1728     A     
 TSDATA             ALLOC  A1,B6+1                                                         TSDATA      1729     A     
 TSDATA             IX3    X1+X2                                                           TSDATA      1730     A     
 TSDATA             SX0    B6-B1       WC - 1                                              TSDATA      1731     A     
 TSDATA             =B7    DDS.W                                                           TSDATA      1732     A     
 TSDATA             SB2    -B6                                                             TSDATA      1733     A     
 TSDATA             BX7    X5                                                              TSDATA      1734     A     
 TSDATA             PX6    X0,B7                                                           TSDATA      1735     A     
 TSDATA             SA7    X3+B2       (1ST WORD) _ (LWA(TABLE)+1-WC)                      TSDATA      1736     A     
 TSDATA             SA6    A7-B1                                                           TSDATA      1737     A     
 TSDATA             EQ1    B6,EXIT.    IF SINGLE-WORD ITEM                                 TSDATA      1738          I
          -FCC2229
 TSDATA             EQ1    B6,ODI.T                                                        FCC2229       25     A     
 TSDATA             BX7    X4                                                              TSDATA      1739     A     
 TSDATA             SA7    A7+B1       (2ND WORD) _ (LWA(TABLE))                           TSDATA      1740     A     
 TSDATA             GT1    B5,EXIT.    IF DOUBLE-WORD VARIABLE                             TSDATA      1741     A     
 TSDATA             WARN   E.DTC                                                           TSDATA      1742     A     
 TSDATA             EQ     EXIT.                                                           TSDATA      1743     A     
 TSDATA                                                                                    TSDATA      1744     A     
 TSDATA   *         OUTPUT HOLLERITH CONSTANT                                              TSDATA      1745     A     
 TSDATA                                                                                    TSDATA      1746     A     
 TSDATA    ODI1     SA2    SDPF                                                            TSDATA      1747     A     
 TSDATA             SB3    X2+B1                                                           TSDATA      1748     A     
 TSDATA             LE     B6,B3,ODI2  IF HOL CON .LT. ELEMENT LENGTH                      TSDATA      1749     A     
 TSDATA             ANSI   E.DHC                                                           TSDATA      1750     A     
 TSDATA    ODI2     LE     B6,B5,ODI3  IF CON LEN .LE. WORD LIMIT                          TSDATA      1751     A     
 TSDATA             SB6    B5                                                              TSDATA      1752     A     
 TSDATA             WARN   E.DTC                                                           TSDATA      1753     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1057    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA    ODI3     SA4    TS=DAT      CURRENT TABLE LENGTH                                TSDATA      1754     A     
 TSDATA             AX5    P.DNEGH                                                         TSDATA      1755     A     
 TSDATA             =X3    B1                                                              TSDATA      1756     A     
 TSDATA             BX5    X3*X5                                                           TSDATA      1757     A     
 TSDATA             SB3    X5          1 IFF PRECEEDED BY MINUS SIGN                       TSDATA      1758     A     
 TSDATA             SA5    A5+B1                                                           TSDATA      1759     A     
 TSDATA             ALLOC  TS.DAT,B6+1                                                     TSDATA      1760     A     
 TSDATA             SA3    TS.CON                                                          TSDATA      1761     A     
 TSDATA             AX5    P.TAG                                                           TSDATA      1762     A     
 TSDATA             =B7    DDS.W                                                           TSDATA      1763     A     
 TSDATA             SB2    X5-C.CON                                                        TSDATA      1764     A     
 TSDATA             SX2    X3+B2       SOURCE = (TS.CON) + CON-TAG                         TSDATA      1765     A     
 TSDATA             IX4    X1+X4       START OF EMPTY REGION OF TS.DAT                     TSDATA      1766     A     
 TSDATA             SX0    B6-B1       WC (FOR DDS.) = (B6)-1                              TSDATA      1767     A     
 TSDATA             SX1    B6          WC (FOR MOVE) = (B6)                                TSDATA      1768     A     
 TSDATA             PX6    X0,B7                                                           TSDATA      1769     A     
 TSDATA             SX3    X4+B1       DEST = START + 1                                    TSDATA      1770     A     
 TSDATA             SA6    X4          ENTER CONTROL WORD                                  TSDATA      1771     A     
 TSDATA             NZ     B3,ODI4     IF NEG HOLL                                         TSDATA      1772     A     
 TSDATA             MVE    X1,X2,X3                                                        TSDATA      1773     A     
 TSDATA             EQ     EXIT.                                                           TSDATA      1774     A     
 TSDATA                                                                                    TSDATA      1775     A     
 TSDATA    ODI4     SA2    X2          MOVE *X1* WORDS FROM LOC(X2) TO LOC(X3)             TSDATA      1776     A     
 TSDATA   *                            AND ALTER THEIR SIGNS                               TSDATA      1777     A     
 TSDATA             =B3    X1-1                                                            TSDATA      1778     A     
 TSDATA             BX6    -X2                                                             TSDATA      1779     A     
 TSDATA             SA6    X3          MOVE FIRST WORD                                     TSDATA      1780     A     
 TSDATA    ODI5     ZR     B3,EXIT.    IF MOVE DONE                                        TSDATA      1781     A     
 TSDATA             =A3    A2+1        GET NEXT WORD                                       TSDATA      1782     A     
 TSDATA             BX7    -X3                                                             TSDATA      1783     A     
 TSDATA             EQ1    B3,ODI6     IF LAST WORD                                        TSDATA      1784     A     
 TSDATA             =A2    A3+1                                                            TSDATA      1785     A     
 TSDATA             SB3    B3-2                                                            TSDATA      1786     A     
 TSDATA             BX6    -X2                                                             TSDATA      1787     A     
 TSDATA             =A7    A6+1                                                            TSDATA      1788     A     
 TSDATA             =A6    A7+1                                                            TSDATA      1789     A     
 TSDATA             EQ     ODI5        GET NEXT TWO WORDS                                  TSDATA      1790     A     
 TSDATA                                                                                    TSDATA      1791     A     
 TSDATA    ODI6     =A7    A6+1                                                            TSDATA      1792     A     
 TSDATA             EQ     EXIT.       EXIT..                                              TSDATA      1793     A     
 TSDATA    GNI      SPACE  4,8                                                             TSDATA      1794     A     
 TSDATA   **        GNI -  GET ADDRESS OF NEXT DATA ITEM.                                  TSDATA      1795     A     
 TSDATA   *                                                                                TSDATA      1796     A     
 TSDATA   *         EXIT   A5,X5 = ADDRESS AND CONTENTS OF FIRST WORD OF NEXT              TSDATA      1797     A     
 TSDATA   *                DATA ITEM FROM "DIT"                                            TSDATA      1798     A     
 TSDATA                                                                                    TSDATA      1799     A     
 TSDATA                                                                                    TSDATA      1800     A     
 TSDATA    GNI      SUBR               ENTRY/EXIT...                                       TSDATA      1801     A     
 TSDATA             SA1    I.DIT                                                           TSDATA      1802     A     
 TSDATA             SA2    TI.DAT                                                          TSDATA      1803     A     
 TSDATA             IX6    X1+X2                                                           TSDATA      1804     A     
 TSDATA             SA5    X6          NEXT WORD                                           TSDATA      1805     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1058    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             SA2    A1+B1             REP COUNT REMAINDER                           TSDATA      1806     A     
 TSDATA             PL     X5,GNI1           IF NOT THE START OF A REP LIST                TSDATA      1807     A     
 TSDATA                                                                                    TSDATA      1808     A     
 TSDATA   **        INITIALIZE REP LIST PROCESSING                                         TSDATA      1809     A     
 TSDATA                                                                                    TSDATA      1810     A     
 TSDATA             BX6    X5                                                              TSDATA      1811     A     
 TSDATA             SX7    X1+B1                                                           TSDATA      1812     A     
 TSDATA             SA6    REPFLAG                                                         TSDATA      1813     A     
 TSDATA             SA7    A2+B1       SAVE ORDINAL OF REP LIST START                      TSDATA      1814     A     
 TSDATA             AX6    36                                                              TSDATA      1815     A     
 TSDATA             BX7    -X6                                                             TSDATA      1816     A     
 TSDATA             SA7    A2                SET REMAINDER = -N.ITEMS IN REP LIST          TSDATA      1817     A     
 TSDATA             BX2    X7                                                              TSDATA      1818     A     
 TSDATA             SA5    A5+B1             GET FIRST DATA WORD                           TSDATA      1819     A     
 TSDATA             SX1    X1+B1             ADVANCE INDEX PAST REP WORD                   TSDATA      1820     A     
 TSDATA                                                                                    TSDATA      1821     A     
 TSDATA   **        ADVANCE I.DIT TO POINT TO NEXT ITEM AND SEE IF WE ARE IN A             TSDATA      1822     A     
 TSDATA   *         REP LIST.                                                              TSDATA      1823     A     
 TSDATA                                                                                    TSDATA      1824     A     
 TSDATA    GNI1     BX0    X5                                                              TSDATA      1825     A     
 TSDATA             AX0    18                                                              TSDATA      1826     A     
 TSDATA             IX7    X0+X1             UPDATE INDEX                                  TSDATA      1827     A     
 TSDATA             SA7    A1                                                              TSDATA      1828     A     
 TSDATA             ZR     X2,EXIT.    IF NO REPETITION                                    TSDATA      1829     A     
 TSDATA             SX7    X2+B1                                                           TSDATA      1830     A     
 TSDATA             SA7    A2                UPDATE REMAINDER                              TSDATA      1831     A     
 TSDATA             NZ     X7,EXIT.    IF MORE TO GO                                       TSDATA      1832     A     
 TSDATA                                                                                    TSDATA      1833     A     
 TSDATA   **        DECREMENT REP COUNT AND START BACK AT START OF REP LIST IF RC          TSDATA      1834     A     
 TSDATA                                                                                    TSDATA      1835     A     
 TSDATA             SA3    REPFLAG                                                         TSDATA      1836     A     
 TSDATA             SX0    B1                                                              TSDATA      1837     A     
 TSDATA             IX7    X3-X0             DECREMENT REP COUNT                           TSDATA      1838     A     
 TSDATA             SA7    A3                                                              TSDATA      1839     A     
 TSDATA             SB7    X7                                                              TSDATA      1840     A     
 TSDATA             ZR     B7,GNI2           IF FINISHED                                   TSDATA      1841     A     
 TSDATA             AX3    36                                                              TSDATA      1842     A     
 TSDATA             BX7    -X3               RESET REMAINDER                               TSDATA      1843     A     
 TSDATA             SA7    A2                                                              TSDATA      1844     A     
 TSDATA             SA4    A2+B1             ADDRESS OF FIRST DATA ITEM IN REP LIS         TSDATA      1845     A     
 TSDATA             BX7    X4                                                              TSDATA      1846     A     
 TSDATA             SA7    A1                RESET I.DIT FOR NEXT ENTRY                    TSDATA      1847     A     
 TSDATA             EQ     EXIT.                                                           TSDATA      1848     A     
 TSDATA                                                                                    TSDATA      1849     A     
 TSDATA    GNI2     BX7    0                                                               TSDATA      1850     A     
 TSDATA             SA7    A7                REPFLAG = 0                                   TSDATA      1851     A     
 TSDATA             EQ     EXIT.                                                           TSDATA      1852     A     
 TSDATA    PDV      SPACE  4,8         PROCESS DATA VARIABLE.                              TSDATA      1853     A     
 TSDATA   **        PDV -  PROCESS DATA VARIABLE.                                          TSDATA      1854     A     
 TSDATA   *         PROCESS"S VARIABLE NAME MENTIONED IN A DATA STMT                       TSDATA      1855     A     
 TSDATA   *                                                                                TSDATA      1856     A     
 TSDATA   *         ENTRY  (A4) _ *SB* ENTRY.                                              TSDATA      1857     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1059    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA   *                                                                                TSDATA      1858     A     
 TSDATA   *         EXIT   SEMANTICS CHECK FOR LEGAL NAME PERFORMED                        TSDATA      1859     A     
 TSDATA   *                REGISTERS RESTORED BY A CALL TO MACRO "GETE"                    TSDATA      1860     A     
 TSDATA                                                                                    TSDATA      1861     A     
 TSDATA                                                                                    TSDATA      1862     A     
 TSDATA    PDV9     SA5    SELIST      RESTORE (A4)                                        TSDATA      1863     A     
 TSDATA             SA4    X5                                                              TSDATA      1864     A     
 TSDATA             SB2    X4                                                              TSDATA      1865     A     
 TSDATA                                                                                    TSDATA      1866     A     
 TSDATA    PDV      SUBR               ENTRY/EXIT...                                       TSDATA      1867     A     
 TSDATA             =X7    A4+1                                                            TSDATA      1868     A     
 TSDATA             SA7    SELIST      SAVE STRING BUFFER ADDRESS                          TSDATA      1869     A     
 TSDATA             BX7    X4                                                              TSDATA      1870     A     
 TSDATA             SB4    A4                                                              TSDATA      1871     A     
 TSDATA             SA7    FILL.                                                           TSDATA      1872     A     
 TSDATA             RJ     TRV         TRANSLATE VARIABLE                                  TSDATA      1873     A     
 TSDATA             =X7    B4+1                                                            TSDATA      1874     A     
 TSDATA             SA7    SELIST      IN CASE TRUNCATION HAS OCCURRED                     TSDATA      1875     A     
 TSDATA   */PRE-TRUNCATE FOR COMMON                                                        TSDATA      1876          I
          -FCC0498
 TSDATA             CLAS=  X3,(FP,EXT,ENT,NLST,NVAR)                                       TSDATA      1877     A     
 TSDATA             LX4    X6                                                              TSDATA      1878     A     
 TSDATA             BX3    X3*X6                                                           TSDATA      1879     A     
 TSDATA             NZ     X3,E.DAUC   IF USEAGE CONFLICT                                  TSDATA      1880     A     
 TSDATA             SB2    B0                B2 " 0 IF VARIABLE IS IN COMMON               TSDATA      1881     A     
 TSDATA             SX7    B7                                                              TSDATA      1882     A     
 TSDATA             SA7    ORD               SAVE SYMTAB ORDINAL                           TSDATA      1883     A     
 TSDATA             LX7    P.SYMORD          X7 = WORD 1 OF DVT ENTRY                      TSDATA      1884     A     
 TSDATA             =X0    1                                                               TSDATA      1885     A     
 TSDATA             AX6    P.LONG                                                          TSDATA      1886     A     
 TSDATA             SB5    B7          (B5) = SYMTAB ORDINAL                               TSDATA      1887     A     
 TSDATA             BX6    X0*X6       0 IF SINGLE, 1 IF 2 WORDS/ELEM                      TSDATA      1888     A     
 TSDATA             LX1    P.CTYP      POSITION CONSTANT TYPE                              FCC1563X      34     A     
 TSDATA             SA6    SDPF                                                            TSDATA      1889     A     
 TSDATA             SB7    X6                B7 = SDPF                                     TSDATA      1890     A     
 TSDATA             BX7    X7+X1                                                           FCC1563X      35     A     
 TSDATA             LX6    P.SDPF                                                          TSDATA      1891     A     
 TSDATA             BX7    X6+X7                                                           TSDATA      1892     A     
 TSDATA                                                                                    TSDATA      1893     A     
 TSDATA   **        CHECK FOR VARIABLE IN BLANK COMMON.                                    TSDATA      1894     A     
 TSDATA                                                                                    TSDATA      1895     A     
 TSDATA             BX0    X4                                                              TSDATA      1896     A     
 TSDATA             IFBIT  X0,-COMM,PDV3      IF NOT IN COMMON                             TSDATA      1897          I
          -FCC1524X 
 TSDATA             IFBIT  X0,-COMM,PDV2   IF NOT IN COMMON                                FCC1524X      23     A     
 TSDATA             SA3    TA.NAM                                                          TSDATA      1898     A     
 TSDATA             SX0    B5                                                              TSDATA      1899     A     
 TSDATA             AX0    1           HALF-ORDINAL                                        TSDATA      1900     A     
 TSDATA             IX3    X0+X3                                                           TSDATA      1901     A     
 TSDATA             SA3    X3                                                              TSDATA      1902     A     
 TSDATA             AX3    P.BLOCK                                                         TSDATA      1903     A     
 TSDATA             SX0    X3-BLANKCOM                                                     TSDATA      1904          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1060    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
          -FCC0583
 TSDATA             SA2    =XBLNKCOM                                                       FCC0583       32     A     
 TSDATA             SX0    X3                                                              FCC0583       33     A     
 TSDATA             IX0    X0-X2                                                           FCC0583       34     A     
 TSDATA             NZ     X0,PDV3     IF NOT // COMMON                                    TSDATA      1905     A     
 TSDATA             SB6    B7          SAVE (B7)                                           TSDATA      1906          I
          -FCC1524X 
 TSDATA             FATAL  E.DABC                                                          TSDATA      1907          I
          -FCC1524X 
 TSDATA             SB7    B6          RESTORE (B7)                                        TSDATA      1908          I
          -FCC1524X 
 TSDATA             FATAL  E.DALV                                                          FCC1524X      24     A     
 TSDATA             EQ     PDV3                                                            FCC1524X      25     A     
 TSDATA                                                                                    FCC1524X      26     A     
 TSDATA    PDV2     SA2    =XMOD                                                           FCC1524X      27     A     
 TSDATA             SBIT   X2,PBLK                                                         FCC1524X      28     A     
 TSDATA             PL     X2,PDV3     IF NOT BLOCKDATA                                    FCC1524X      29     A     
 TSDATA             FATAL  =XE.DALV                                                        FCC1524X      30     A     
 TSDATA    PDV3     BX3    X4                                                              TSDATA      1909     A     
 TSDATA             MX0    -L.PNT                                                          TSDATA      1910     A     
 TSDATA             AX3    P.PNT                                                           TSDATA      1911     A     
 TSDATA             BX1    -X0*X3                                                          TSDATA      1912     A     
 TSDATA             SB6    X1          (B6) = INDEX TO DIM TABLE                           TSDATA      1913     A     
 TSDATA             SA7    DVT         SAVE WORD 1 OF DVT ENTRY                            TSDATA      1914     A     
 TSDATA                                                                                    TSDATA      1915     A     
 TSDATA   **        SET DEFINED AND VAR BITS IN SYMTAB ENTRY                               TSDATA      1916     A     
 TSDATA                                                                                    TSDATA      1917     A     
 TSDATA             SA2    TS.SYM                                                          TSDATA      1918     A     
 TSDATA             CLAS=  X0,(DEF,VAR)                                                    TSDATA      1919     A     
 TSDATA             BX6    X0+X4       SET DEFINED BIT                                     TSDATA      1920     A     
 TSDATA             SA6    X2+B5                                                           TSDATA      1921     A     
 TSDATA             BX6    0                                                               TSDATA      1922     A     
 TSDATA             =B4    1           B4 = ITEM COUNT                                     TSDATA      1923     A     
 TSDATA             SA6    N.DIMS                                                          TSDATA      1924     A     
 TSDATA             SA3    TP.DIM                                                          TSDATA      1925     A     
 TSDATA             SB6    X3+B6             ADDRESS OF DIM PARAMETERS                     TSDATA      1926     A     
 TSDATA                                                                                    TSDATA      1927     A     
 TSDATA   **        SAVE DIMENSION INFO                                                    TSDATA      1928     A     
 TSDATA                                                                                    TSDATA      1929     A     
 TSDATA             BX0    X4                                                              TSDATA      1930     A     
 TSDATA             IFBIT  X0,-ARY,PDV7      IF NO DIMENSIONS                              TSDATA      1931     A     
 TSDATA             SA3    B6                WORD 1 OF DIM ENTRY                           TSDATA      1932     A     
 TSDATA             MX0    L.NDIM                                                          TSDATA      1933     A     
 TSDATA             BX6    X0*X3                                                           TSDATA      1934     A     
 TSDATA             AX3    P.DIMLG                                                         TSDATA      1935     A     
 TSDATA             SB4    X3          (B4) = ITEM LENGTH OF ARRAY                         TSDATA      1936     A     
 TSDATA             SA3    B6+B1                                                           TSDATA      1937     A     
 TSDATA             LX6    L.NDIM                                                          TSDATA      1938     A     
 TSDATA             SA6    N.DIMS                                                          TSDATA      1939     A     
 TSDATA             AX3    P.DIM                                                           TSDATA      1940     A     
 TSDATA             SX0    X6-3                                                            TSDATA      1941     A     
 TSDATA             MX1    -L.DIM                                                          TSDATA      1942     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1061    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSDATA  
  
 TSDATA             BX6    -X1*X3      ISOLATE DIM1                                        TSDATA      1943     A     
 TSDATA             SA3    A3+B1                                                           TSDATA      1944     A     
 TSDATA             SA6    DIM.MUL+1                                                       TSDATA      1945     A     
 TSDATA             SA6    DIM                                                             TSDATA      1946     A     
 TSDATA             BX7    -X1*X3      DIM2                                                TSDATA      1947     A     
 TSDATA             AX3    P.DIM                                                           TSDATA      1948     A     
 TSDATA             SA7    A6+B1                                                           TSDATA      1949     A     
 TSDATA             BX1    -X1*X3      DIM3                                                TSDATA      1950     A     
 TSDATA             MI     X0,PDV7           IF < 3 DIMS                                   TSDATA      1951     A     
 TSDATA             IX6    X6*X7             DIM1*DIM2                                     TSDATA      1952     A     
 TSDATA             BX7    X1                                                              TSDATA      1953     A     
 TSDATA             SA6    DIM.MUL+2                                                       TSDATA      1954     A     
 TSDATA             SA7    A7+B1             STORE DIM3                                    TSDATA      1955     A     
 TSDATA                                                                                    TSDATA      1956     A     
 TSDATA    PDV7     SA1    DVT                                                             TSDATA      1957     A     
 TSDATA             BX0    X1                                                              TSDATA      1958     A     
 TSDATA             AX0    P.SDPF                                                          TSDATA      1959     A     
 TSDATA             SB7    X0                                                              TSDATA      1960     A     
 TSDATA             SX6    B4          NUMBER OF ELEMENTS                                  TSDATA      1961     A     
 TSDATA             LX5    X6,B7       NUMBER OF WORDS                                     TSDATA      1962     A     
 TSDATA             LX5    18                                                              TSDATA      1963     A     
 TSDATA             BX6    X5+X6                                                           TSDATA      1964     A     
 TSDATA             SA6    A1+B1             SAVE SECOND WORD OF DVT                       TSDATA      1965     A     
 TSDATA    PDV8     EQ     PDV9        EXIT..                                              TSDATA      1966     A     
 TSDATA                                                                                    TSDATA      1967     A     
 TSDATA                                                                                    TSDATA      1968     A     
 TSDATA                                                                                    TSDATA      1969     A     
 TSDATA             LIST   D                                                               TSDATA      1970     A     
 TSDATA             END                                                                    TSDATA      1971     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - TSDATA  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          TSDATA                    1971      1932
          FCC0522                      5         5
          FCC0583                      4         4
          FCC0787                      8         8
          FCC1524X                     8         8
          FCC1563X                    27        27
          FCC1746X                     2         2
          FCCA474                      8         8
          FCCA476                      5         5
          FCC2229                     10        10
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     *DECK     DECL                                                                   DECL           1     A     
 DECL               IDENT  DECL                                                            DECL           2     A     
 DECL      DECL     SECT   (DECLARATIVE PHASE STATEMENTS.),1                               DECL           3     A     
 DECL                                                                                      DECL           4     A     
 DECL               SST    A,B,D                                                           DECL           5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1062    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               NOREF  A,B,D                                                           DECL           6     A     
 DECL                                                                                      DECL           7     A     
 DECL      B=DECL   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             DECL           8     A     
 DECL                                                                                      DECL           9     A     
 DECL               ENTRY  CMN4H,CCT,CCT8,DIR8,EQU3,EQS8,PCD,DIRX,DIR,LVL8                 DECL          10          I
          -FCC0583
 DECL               ENTRY  CCT,CCT8,DIR8,EQU3,EQS8,PCD,DIRX,DIR,LVL8                       FCC0583       35          I
          -FCC0835
 DECL               ENTRY  CCT,DIR8,EQU3,EQS8,PCD,DIRX,DIR,LVL8                            FCC0835        8     A     
 DECL                                                                                      DECL          11     A     
 DECL     *         IN FTN                                                                 DECL          12     A     
 DECL               EXT    CO.SNAP,F.SB                                                    DECL          13          I
          -FCC0813
 DECL               EXT    CO.SNAP                                                         FCC0813      161     A     
 DECL                                                                                      DECL          14     A     
 DECL     *         IN TABLES                                                              DECL          15     A     
 DECL               EXT    ARGCOMA,ARGMODE,DECARM,REFVAR,STAGE,TA=NAM,TA.NAM               DECL          16     A     
 DECL               EXT    TP.DIM,TP.EQU,TP=EQU,TS.BLK,TS=BLK,TS.EQU,TS=EQU,TS.SYM         DECL          17     A     
 DECL               EXT    TS=SYM,TT=COMM,TT.COMM,TT=PAR,TS=CON,TS=CONB,VARDIM             DECL          18     A     
 DECL                                                                                      DECL          19     A     
 DECL     *         IN ERRORS                                                              DECL          20     A     
 DECL               EXT    CLASS,E.ANS,E.CM,E.CMA,E.CM1,E.CM2,E.CM3,E.CM4,E.CM5            DECL          21     A     
 DECL               EXT    E.CM6,E.DM,E.DM1,E.DM2,E.DM2A,E.DM3,E.DM4,E.DM5,E.DM5A          DECL          22     A     
 DECL               EXT    E.DM6,E.DM7,E.DM9,E.DM10,E.DM11,E.DM12,E.DM13,E.DM14            DECL          23     A     
 DECL               EXT    E.EQ                                                            DECL          24     A     
 DECL               EXT    E.EQ1,E.EQ2,E.EQ3,E.EQ4,E.EQ5,E.EQ6,E.EQ11,E.EQ12,E.EX1         DECL          25     A     
 DECL               EXT    E.EX2,E.EX3,E.EX4,E.MR2,E.TE5,E.TY,E.VD,E.XC1,E.ZA              DECL          26     A     
 DECL               EXT    E.EQ13,E.EQ14,E.EQ15                                            DECL          27          I
          -FCC1573X 
 DECL               EXT    E.EQ13,E.EQ14,E.EQ15,E.EQ16                                     FCC1573X       8     A     
 DECL               EXT    L.CL,FILL.,FILL.2,FILL.3                                        DECL          28     A     
 DECL                                                                                      DECL          29     A     
 DECL     *         IN HEADER                                                              DECL          30     A     
 DECL               EXT    PSFA                                                            DECL          31     A     
 DECL                                                                                      DECL          32     A     
 DECL     *         IN ALLOC                                                               DECL          33     A     
 DECL               EXT    ERT,ADW,ASU,ESY,NCM,SSY,SCD                                     DECL          34          I
          -FCC0813
 DECL               EXT    ERT,ADW,ESY,NCM,SSY,SCD                                         FCC0813      162     A     
 DECL                                                                                      DECL          35     A     
 DECL     *         IN MAIN                                                                DECL          36     A     
 DECL               EXT    CPM=ASF,PCDX,PSP,WBL                                            DECL          37     A     
 DECL                                                                                      DECL          38     A     
 DECL     *         IN LEX                                                                 DECL          39     A     
 DECL               EXT    DEC,STY,TRV                                                     DECL          40     A     
 DECL                                                                                      DECL          41     A     
 DECL     *         IN TYPE                                                                DECL          42     A     
 DECL               EXT    TYPA                                                            DECL          43     A     
 DECL                                                                                      DECL          44     A     
 DECL     *         IN PAR                                                                 DECL          45     A     
 DECL               EXT    PAR                                                             DECL          46     A     
 DECL                                                                                      DECL          47     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1063    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     *         IN CONRED                                                              DECL          48     A     
 DECL               EXT    LCT                                                             DECL          49     A     
 DECL                                                                                      DECL          50     A     
 DECL     *         IN GEN                                                                 DECL          51     A     
 DECL               EXT    DIMI                                                            DECL          52     A     
 DECL                                                                                      DECL          53     A     
 DECL     *         IN INIT                                                                DECL          54     A     
 DECL               EXT    EQUA                                                            DECL          55     A     
 DECL                                                                                      DECL          56     A     
 DECL      ABN      SPACE  4,8                                                             DECL          57          I
          -FCC0966
 DECL     **        ABN -  PROCESS  "ABNORMAL"  STATEMENT.                                 DECL          58          I
          -FCC0966
 DECL     *                                                                                DECL          59          I
          -FCC0966
 DECL     *         ANSI COMMENT ...... (SEE ALSO DISCUSSION AT BEGINNING OF BUILT         DECL          60          I
          -FCC0966
 DECL     *                            IN FUNCTION SECTION.)                               DECL          61          I
          -FCC0966
 DECL     *                                                                                DECL          62          I
          -FCC0966
 DECL     *                ANSI STATES VERY CLEARLY THAT A FUNCTION CAN NOT HAVE           DECL          63          I
          -FCC0966
 DECL     *         THE PROPERITY OF BEING ABNORMAL.  BUT LIKE MOST FORTRANS               DECL          64          I
          -FCC0966
 DECL     *         CDC HAS WITHIN ITS SUPPLIED FORTRAN FUNCTIONS, (INLINE, BEFS)          DECL          65          I
          -FCC0966
 DECL     *         FUNCTIONS THAT ARE ABNORMAL, IE. RANF.                                 DECL          66          I
          -FCC0966
 DECL     *                UNIVAC HAS INTRODUCED, (TO MY KNOWLEDGE THEY WERE THE           DECL          67          I
          -FCC0966
 DECL     *         FIRST) A STATEMENT CALLED  -- *ABNORMAL*, WHICH CAN BE USED BY         DECL          68          I
          -FCC0966
 DECL     *         THE PROGRAMMER TO DEFINE FUNCTIONS THAT ARE TO BE CONSIDERED           DECL          69          I
          -FCC0966
 DECL     *         BY THE COMPILER TO HAVE SIDE EFFECTS OR ABNORMAL, THUS A               DECL          70          I
          -FCC0966
 DECL     *         COMPILER CAN SQUEEZE OUT FUNCTION USAGE WHEN THE FUNCTION              DECL          71          I
          -FCC0966
 DECL     *         REFERENCED HAS NOT BEEN DEFINED TO BE ABNORMAL BY EITHER THE           DECL          72          I
          -FCC0966
 DECL     *         PROGRAMMER VIA AN *ABNORMAL* STATEMENT OR ONE OF THE DEFINED           DECL          73          I
          -FCC0966
 DECL     *         SUPPLIED FUNCTIONS.                                                    DECL          74          I
          -FCC0966
 DECL     *                                                                                DECL          75          I
          -FCC0966
 DECL     *         ABNORMAL SHOULD BE DEFINED IN *CDC* FORTRAN, IT ELIMINATES A           DECL          76          I
          -FCC0966
 DECL     *         LOT OF HEADACHES TO OPTIMIZERS, AND GIVES TO PROGRAMMERS               DECL          77          I
          -FCC0966
 DECL     *         A DEFINITION LONG NEEDED.....                                          DECL          78          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1064    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
          -FCC0966
 DECL     *                                                                                DECL          79          I
          -FCC0966
 DECL     *                FOR THE MOMENT WE MUST BE CONTENT TO PROCESS AN                 DECL          80          I
          -FCC0966
 DECL     *         *ABNORMAL* STATEMENT AS IF IT WERE *EXTERNAL*.                         DECL          81          I
          -FCC0966
 DECL                                                                                      DECL          82          I
          -FCC0966
 DECL                                                                                      DECL          83          I
          -FCC0966
 DECL               HEREIF ABNORMAL                                                        DECL          84          I
          -FCC0966
 DECL                                                                                      DECL          85          I
          -FCC0966
 DECL               ANSI   E.ANS       ** STATEMENT IS NOT DEFINED IN ANSI **              DECL          86          I
          -FCC0966
 DECL               SA1    ABNA                                                            DECL          87          I
          -FCC0966
 DECL               BX6    X1                                                              DECL          88          I
          -FCC0966
 DECL               SA6    EXTA        INDICATE PROCESSING *ABNORMAL*                      DECL          89          I
          -FCC0966
 DECL               EQ     EXT1        CONTINUE..                                          DECL          90          I
          -FCC0966
 DECL                                                                                      DECL          91          I
          -FCC0966
 DECL      A        DECMIC P.ABNF                                                          DECL          92          I
          -FCC0966
 DECL      ABNA     CON    1S"A"+M.EXT+M.NVAR                                              DECL          93          I
          -FCC0966
 DECL      CCT      SPACE  4,8                                                             DECL          94     A     
 DECL     **        APT -  ASSIGN POINTER TAGS                                             DECL          95     A     
 DECL     *                                                                                DECL          96     A     
 DECL     *         ENTRY- END OF DECLARATIVES HAS BEEN ENCOUNTERED                        DECL          97     A     
 DECL     *                                                                                DECL          98     A     
 DECL     *         EXIT-  POINTER WORD TAGS GENERATED AND STORED IN BLOCK TABLE           DECL          99     A     
 DECL     *                ENTRIES FOR ECS/LCM COMMON BLOCKS.  POINTER WORDS               DECL         100     A     
 DECL     *                CONSTRUCTED AND STORED IN TP.APL.                               DECL         101     A     
 DECL                                                                                      DECL         102     A     
 DECL                                                                                      DECL         103     A     
 DECL      APT      SUBR   0                                                               DECL         104     A     
 DECL               SA1    TS.BLK                                                          DECL         105     A     
 DECL               SA2    TS=BLK                                                          DECL         106     A     
 DECL               AX2    1                                                               DECL         107     A     
 DECL               SB2    X2-1        B2 = NO. ENTRIES TO PROCESS                         DECL         108     A     
 DECL               =B3    2                                                               DECL         109     A     
 DECL               SA1    X1+1                                                            DECL         110     A     
 DECL               MX0    -L.BLVL                                                         DECL         111     A     
 DECL                                                                                      DECL         112     A     
 DECL      APT2     SA1    A1+B3       FETCH BLOCK TABLE ENTRY                             DECL         113     A     
 DECL               ZR     B2,APTX     IF NO MORE ENTRIES, EXIT..                          DECL         114     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1065    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SB2    B2-B1                                                           DECL         115     A     
 DECL               LX1    -P.BLVL     RIGHT-JUSTIFY BLOCK LEVEL                           DECL         116     A     
 DECL               BX2    -X0*X1      X2 = BLOCK LEVEL                                    DECL         117     A     
 DECL               SX3    X2-3                                                            DECL         118     A     
 DECL               ZR     X3,APT4     IF LEVEL 3                                          DECL         119     A     
 DECL                                                                                      DECL         120     A     
 DECL      .76      IFEQ   .CPU,76                                                         DECL         121     A     
 DECL                                                                                      DECL         122     A     
 DECL               SX3    X2-2                                                            DECL         123     A     
 DECL               ZR     X3,APT4     IF LEVEL 2                                          DECL         124     A     
 DECL                                                                                      DECL         125     A     
 DECL      .76      ENDIF                                                                  DECL         126     A     
 DECL                                                                                      DECL         127     A     
 DECL               EQ     APT2        LOOP                                                DECL         128     A     
 DECL                                                                                      DECL         129     A     
 DECL     **        GENERATE AND SET POINTER TAG                                           DECL         130     A     
 DECL                                                                                      DECL         131     A     
 DECL      APT4     SA3    =XTG.PRO                                                        DECL         132     A     
 DECL               =X6    X3+1        UPDATE PROGRAM TAG                                  DECL         133     A     
 DECL               SA6    A3                                                              DECL         134     A     
 DECL               LX1    P.BLVL      RESTORE X1                                          DECL         135     A     
 DECL               LX6    P.CTAG                                                          DECL         136     A     
 DECL               BX7    X1+X6       SET TAG INTO BLOCK TABLE ENTRY                      DECL         137     A     
 DECL               SA7    A1                                                              DECL         138     A     
 DECL                                                                                      DECL         139     A     
 DECL     **        CONSTRUCT POINTER WORD -- GET TAG OF FIRST NAME IN BLOCK AND           DECL         140     A     
 DECL     *         PLACE INTO AP-LIST WORD FORMAT WITH BIT *ALCM* ON.                     DECL         141     A     
 DECL     *         TT.COMM HAS BEEN KEPT SO WE CAN FIND FIRST NAMES.                      DECL         142     A     
 DECL                                                                                      DECL         143     A     
 DECL               SA4    TS.BLK      X4 = FWA BLOCK TABLE                                DECL         144     A     
 DECL               SB4    X4+B1                                                           DECL         145     A     
 DECL               SX4    A1-B4       X4 = BLOCK NUMBER                                   DECL         146     A     
 DECL               LX4    P.BLOCK     ALIGN BLOCK NUMBER                                  DECL         147     A     
 DECL               MX7    L.BLOCK                                                         DECL         148     A     
 DECL               LX7    L.BLOCK+P.BLOCK   ALIGN BLOCK NUMBER MASK                       DECL         149     A     
 DECL               SA2    TT.COMM     X2 = FWA COMMON TAG TABLE                           DECL         150     A     
 DECL               SA3    TT=COMM                                                         DECL         151     A     
 DECL               SB4    X3          B4 = LENGTH OF COMMON TAG TABLE                     DECL         152     A     
 DECL               SA2    X2-1                                                            DECL         153     A     
 DECL               =B5    0                                                               DECL         154     A     
 DECL                                                                                      DECL         155     A     
 DECL      APT6     =A2    A2+1        FETCH TT.COMM ENTRY                                 DECL         156     A     
 DECL               EQ     B5,B4,E.ZA  IF DID NOT FIND ANY NAME FOR BLOCK                  DECL         157     A     
 DECL               =B5    B5+1                                                            DECL         158     A     
 DECL               BX5    X7*X2       X5 = BLOCK NUMBER                                   DECL         159     A     
 DECL               IX5    X5-X4                                                           DECL         160     A     
 DECL               NZ     X5,APT6     IF NOT CORRECT BLOCK, LOOP                          DECL         161     A     
 DECL                                                                                      DECL         162     A     
 DECL     *         FIRST NAME IN BLOCK FOUND                                              DECL         163     A     
 DECL                                                                                      DECL         164     A     
 DECL               MX7    L.TAG                                                           DECL         165     A     
 DECL               BX2    X7*X2       X2 = TAG ORDINAL OF FIRST NAME IN BLOCK             DECL         166     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1066    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SX7    C.VAR                                                           DECL         167     A     
 DECL               LX7    P.TAG                                                           DECL         168     A     
 DECL               IX2    X2+X7       X2 = TAG OF FIRST NAME IN BLOCK                     DECL         169     A     
 DECL               MX7    1                                                               DECL         170     A     
 DECL               LX7    P.ALCM+1                                                        DECL         171     A     
 DECL               BX5    X6          POINTER TAG                                         DECL         172     A     
 DECL               BX6    X2+X7       TURN ON *ALCM* BIT                                  DECL         173     A     
 DECL                                                                                      DECL         174     A     
 DECL     *         SAVE SOME REGISTERS                                                    DECL         175     A     
 DECL                                                                                      DECL         176     A     
 DECL               SX7    A1                                                              DECL         177     A     
 DECL               SA7    APTA1       SAVE A1                                             DECL         178     A     
 DECL               SX7    B2                                                              DECL         179     A     
 DECL               SA7    APTB2       SAVE B2                                             DECL         180     A     
 DECL               ADDWD  =XTP.APL                                                        DECL         181     A     
 DECL               SX2    A6                                                              DECL         182     A     
 DECL               IX2    X2-X1       X2 = ORDINAL OF TP.APL ENTRY JUST ADDED             DECL         183     A     
 DECL               BX5    X5+X2       TAG + ORDINAL                                       DECL         184     A     
 DECL               MX7    1                                                               DECL         185     A     
 DECL               BX6    X7+X5       ENTRY FOR *TA.PRO*                                  DECL         186     A     
 DECL               RJ     =XDPT       DEFINE PROGRAM TAG                                  DECL         187     A     
 DECL               SA1    APTB2                                                           DECL         188     A     
 DECL               SB2    X1          RESTORE B2                                          DECL         189     A     
 DECL               SA1    APTA1                                                           DECL         190     A     
 DECL               SA1    X1          RESTORE A1                                          DECL         191     A     
 DECL               =B3    2           RESTORE B3                                          DECL         192     A     
 DECL               MX0    -L.BLVL     RESTORE X0                                          DECL         193     A     
 DECL               EQ     APT2        LOOP                                                DECL         194     A     
 DECL                                                                                      DECL         195     A     
 DECL      APTA1    BSS    1                                                               DECL         196     A     
 DECL      APTB2    BSS    1                                                               DECL         197     A     
 DECL                                                                                      DECL         198     A     
 DECL     **        CCT -  CHECK CONFLICTING TYPES.                                        DECL         199     A     
 DECL     *                                                                                DECL         200     A     
 DECL     *         POST AN ERROR IF ELEMENT IS GIVEN CONFLICTING TYPE.                    DECL         201     A     
 DECL     *                                                                                DECL         202     A     
 DECL     *         ENTRY  (X6) = SYMBOL TABLE ENTRY TO BE CHECKED.                        DECL         203     A     
 DECL     *                (X2) = BIT POSITION OF NEW CLASS (P.XXX DEFINITION)             DECL         204     A     
 DECL     *                       (CAN ONLY BE ONE BIT AND NEVER BE EITHER --              DECL         205     A     
 DECL     *                            A.  NOT-VAR                                         DECL         206     A     
 DECL     *                       OR   B.  VAR                                             DECL         207     A     
 DECL     *                (X3) = MASK OF FORBIDDEN CLASSES.                               DECL         208     A     
 DECL     *                                                                                DECL         209     A     
 DECL     *                FILL.= SET TO ELEMENT CURRENTLY BEING CHECKED.                  DECL         210     A     
 DECL     *                                                                                DECL         211     A     
 DECL     *         EXIT   IF NO ERROR X3 = ADDRESS OF TT.NAM ENTRY                        DECL         212     A     
 DECL     *                            X2 = ORDINAL OF TT.NAM ENTRY                        DECL         213     A     
 DECL     *                              ONLY A3 DESTROYED                                 DECL         214     A     
 DECL     *                IF CONFLICT:  X6 = 0                                            DECL         215     A     
 DECL     *                              ONLY B4 PRESERVED                                 DECL         216     A     
 DECL                                                                                      DECL         217     A     
 DECL                                                                                      DECL         218     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1067    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL      CCT2     MX2    -L.PWF                                                          DECL         219     A     
 DECL               LX6    -P.PWF                                                          DECL         220     A     
 DECL               SA3    TS.SYM                                                          DECL         221     A     
 DECL               BX2    -X2*X6      ISOLATE TAG ORDINAL                                 DECL         222     A     
 DECL               IX3    X3+X2                                                           DECL         223     A     
 DECL               LX6    P.PWF       RESTORE X6                                          DECL         224     A     
 DECL                                                                                      DECL         225     A     
 DECL      CCT      SUBR   0                                                               DECL         226     A     
 DECL               BX3    X3*X6                                                           DECL         227     A     
 DECL               ZR     X3,CCT2     IF NO CONFLICT                                      DECL         228     A     
 DECL               BX0    X3                                                              DECL         229     A     
 DECL               CLAS=  X1,(VAR,RP)                                                     DECL         230          I
          -FCC0835
 DECL               CLAS=  X1,(VAR,FP,RP)                                                  FCC0835        9     A     
 DECL               SB2    CLASS-P.CLASS2+47                                               DECL         231     A     
 DECL               BX1    X1*X6                                                           DECL         232     A     
 DECL               SB2    B2+L.CL                                                         DECL         233     A     
 DECL               ZR     X1,CCT10    IF CURRENT ENTRY NOT VAR OR RP                      DECL         234          I
          -FCC0835
 DECL               ZR     X1,CCT10    IF CURRENT ENTRY NOT VAR, FP OR RP                  FCC0835       10     A     
 DECL               SB2    CLASS-P.CLASS+47                                                DECL         235     A     
 DECL      CCT10    NX3    B7,X3                                                           DECL         236     A     
 DECL               SB7    -B7                                                             DECL         237     A     
 DECL               SA1    B7+B2       *DPC* FOR CURRENT ENTRY                             DECL         238     A     
 DECL               BX6    X1                                                              DECL         239     A     
 DECL               SB2    B2-47                                                           DECL         240     A     
 DECL               SA6    FILL.2                                                          DECL         241     A     
 DECL               SA3    X2+B2       *DPC* FOR CAN NOT BE                                DECL         242     A     
 DECL               BX6    X3                                                              DECL         243     A     
 DECL               SA6    FILL.3                                                          DECL         244     A     
 DECL               EQ     E.VD        OUTPUT ERROR.                                       DECL         245          I
          -FCC0835
 DECL     *         ...                                                                    DECL         246          I
          -FCC0835
 DECL      CCT8     BX6    0           INDICATE ERROR                                      DECL         247          I
          -FCC0835
 DECL               FATAL  E.VD                                                            FCC0835       11     A     
 DECL               BX6    0           INDICATE ERROR                                      FCC0835       12     A     
 DECL               EQ     CCTX        EXIT..                                              DECL         248     A     
 DECL      CMN      SPACE  4                                                               DECL         249     A     
 DECL     **        CLU  - CHECK "LEVEL" USAGE                                             DECL         250     A     
 DECL     *         CHECKS THAT EACH LEVEL 2 OR LEVEL 3 NAME IS ASSIGNED TO                DECL         251     A     
 DECL     *         COMMON OR IS A FORMAL PARAMETER.  CHECKS CONSISTENCY AND               DECL         252     A     
 DECL     *         COMPLETENESS OF LEVEL INFO FOR EACH COMMON BLOCK.                      DECL         253     A     
 DECL                                                                                      DECL         254     A     
 DECL                                                                                      DECL         255     A     
 DECL      CLU      SUBR   0                                                               DECL         256     A     
 DECL               SA1    TA.NAM                                                          DECL         257     A     
 DECL               SA2    TS=SYM                                                          DECL         258     A     
 DECL               AX2    1                                                               DECL         259     A     
 DECL               SB5    X1          (B5) = FWA(TA.NAM)                                  DECL         260     A     
 DECL               SA3    TS.SYM                                                          DECL         261     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1068    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SB6    X2          (B6) = NO. OF TS.SYM WORDS TO EXAMINE               DECL         262     A     
 DECL               =B3    2                                                               DECL         263     A     
 DECL               SA3    X3-1        (A3) = FWA(TS.SYM) - 1                              DECL         264     A     
 DECL                                                                                      DECL         265     A     
 DECL      CLU1     SA3    A3+B3       FETCH TAG  WORD                                     DECL         266     A     
 DECL               SX0    M.LEV                                                           DECL         267     A     
 DECL               ZR     B6,CLU3     IF DONE, GO TO NEXT PHASE                           DECL         268     A     
 DECL               SB6    B6-B1                                                           DECL         269     A     
 DECL               BX2    X0*X3                                                           DECL         270     A     
 DECL               ZR     X3,CLU1     IF NULL ENTRY                                       DECL         271     A     
 DECL               ZR     X2,CLU1     IF NOT LEVEL NAME                                   DECL         272     A     
 DECL                                                                                      DECL         273     A     
 DECL     *         HERE IF ENTRY WITH LEVEL ON.  NOW CHECK IF LEVEL 2 OR 3.               DECL         274     A     
 DECL                                                                                      DECL         275     A     
 DECL               MX5    -L.LEVN                                                         DECL         276     A     
 DECL               BX4    X3                                                              DECL         277     A     
 DECL               AX4    P.LEVN      RIGHT-JUSTIFY LEVEL NUMBER                          DECL         278     A     
 DECL               BX4    -X5*X4      ISOLATE LEVEL NUMBER                                DECL         279     A     
 DECL               SX4    X4-2                                                            DECL         280     A     
 DECL               MI     X4,CLU1     IF LEVEL 1, FORGET IT                               DECL         281     A     
 DECL                                                                                      DECL         282     A     
 DECL     *         HERE IF LEVEL 2 OR 3.  CHECK IF *FP* OR *COMM* BIT SET.                DECL         283     A     
 DECL                                                                                      DECL         284     A     
 DECL               SX5    M.FP+M.COMM                                                     DECL         285     A     
 DECL               BX4    X5*X3                                                           DECL         286     A     
 DECL               NZ     X4,CLU1     IF EITHER BIT SET, O.K.                             DECL         287     A     
 DECL                                                                                      DECL         288     A     
 DECL     *         NAME MAY BE IN COMMON EVEN IF *COMM* BIT OFF.  FULL CHECK              DECL         289     A     
 DECL     *         IS  MADE ON BLOCK NO. IN TA.NAM ENTRY.                                 DECL         290     A     
 DECL                                                                                      DECL         291     A     
 DECL               MX5    L.PWF                                                           DECL         292     A     
 DECL               LX3    L.TGB                                                           DECL         293     A     
 DECL               BX4    X5*X3       ISOLATE ORDINAL                                     DECL         294     A     
 DECL               LX4    L.PWF-1     RIGHT-JUSTIFY AND  HALVE                            DECL         295     A     
 DECL               SB2    X4                                                              DECL         296     A     
 DECL               SA1    B5+B2       FETCH ADDRESS TABLE ENTRY                           DECL         297     A     
 DECL               MX5    -L.BLOCK                                                        DECL         298     A     
 DECL               AX1    P.BLOCK                                                         DECL         299     A     
 DECL               BX4    -X5*X1      ISOLATE BLOCK NUMBER                                DECL         300     A     
 DECL               NZ     X4,CLU1     IF IN COMMON                                        DECL         301     A     
 DECL                                                                                      DECL         302     A     
 DECL     *         HERE IF ILLEGAL                                                        DECL         303     A     
 DECL                                                                                      DECL         304     A     
 DECL               SA4    A3-B1       FETCH SYMBOL                                        DECL         305     A     
 DECL               MX5    7*CHAR                                                          DECL         306     A     
 DECL               BX6    X5*X4                                                           DECL         307     A     
 DECL               SA6    FILL.                                                           DECL         308     A     
 DECL               FATAL  =XE.LV6                                                         DECL         309     A     
 DECL               EQ     CLU1        CONTINUE CHECKING                                   DECL         310     A     
 DECL                                                                                      DECL         311     A     
 DECL     *         SCAN TS.BLK TABLE, CHECKING FOR CONFLICT AND/OR DEFAULT                DECL         312     A     
 DECL                                                                                      DECL         313     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1069    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL      CLU3     SA3    TS.BLK                                                          DECL         314     A     
 DECL               SA2    TS=BLK                                                          DECL         315     A     
 DECL               SA3    X3+B1                                                           DECL         316     A     
 DECL               AX2    1                                                               DECL         317     A     
 DECL               =B3    2                                                               DECL         318     A     
 DECL               SB6    X2-1        (B6) = NO. OF TS.BLK WORDS TO EXAMINE               DECL         319     A     
 DECL               SB5    B6-B1       FOR BLANK COMMON TEST                               DECL         320          I
          -FCC1767X 
 DECL               SA4    =XBLNKCOM                                                       FCC1767X       6     A     
 DECL               SB5    X4          BLANK COMMON BLOCK NUMBER                           FCC1767X       7     A     
 DECL                                                                                      DECL         321     A     
 DECL      CLU4     SA3    A3+B3       FETCH TS.BLK ENTRY                                  DECL         322     A     
 DECL               ZR     B6,CLUX     IF DONE, EXIT..                                     DECL         323     A     
 DECL               SB6    B6-B1                                                           DECL         324     A     
 DECL               SBIT   X3,CNFL                                                         DECL         325     A     
 DECL               PL     X3,CLU6     IF NO CONFLICT                                      DECL         326     A     
 DECL                                                                                      DECL         327     A     
 DECL     *         LEVEL CONFLICT FOR THIS BLOCK                                          DECL         328     A     
 DECL                                                                                      DECL         329     A     
 DECL               NE     B6,B5,CLU5  IF NOT BLANK COMMON                                 DECL         330     A     
 DECL               SA4    BCOM                                                            DECL         331     A     
 DECL               BX6    X4                                                              DECL         332     A     
 DECL               EQ     CLU55                                                           DECL         333     A     
 DECL                                                                                      DECL         334     A     
 DECL      CLU5     SA4    A3-B1       FETCH NAME                                          DECL         335     A     
 DECL               MX0    7*CHAR                                                          DECL         336     A     
 DECL               BX6    X0*X4                                                           DECL         337     A     
 DECL      CLU55    SA6    FILL.                                                           DECL         338     A     
 DECL               FATAL  =XE.LV7                                                         DECL         339     A     
 DECL      CLU6     SBIT   X3,DFLT/CNFL                                                    DECL         340     A     
 DECL               PL     X3,CLU4     IF NO NAMES DEFAULTED                               DECL         341     A     
 DECL                                                                                      DECL         342     A     
 DECL     *         NOT ALL NAMES IN BLOCK DECLARED LEVEL                                  DECL         343     A     
 DECL                                                                                      DECL         344     A     
 DECL               NE     B6,B5,CLU7  IF NOT BLANK COMMON                                 DECL         345     A     
 DECL               SA4    BCOM                                                            DECL         346     A     
 DECL               BX6    X4                                                              DECL         347     A     
 DECL               EQ     CLU75                                                           DECL         348     A     
 DECL                                                                                      DECL         349     A     
 DECL      CLU7     SA4    A3-B1                                                           DECL         350     A     
 DECL               MX0    7*CHAR                                                          DECL         351     A     
 DECL               BX6    X0*X4                                                           DECL         352     A     
 DECL      CLU75    SA6    FILL.                                                           DECL         353     A     
 DECL               NOTE   =XE.LV8                                                         DECL         354     A     
 DECL               EQ     CLU4                                                            DECL         355     A     
 DECL                                                                                      DECL         356     A     
 DECL      BCOM     DATA   0L//                                                            DECL         357     A     
 DECL               SPACE 4,8                                                              DECL         358     A     
 DECL     **        CMN -  PROCESS "COMMON" STATEMENT.                                     DECL         359     A     
 DECL     *         CONSTRUCTS TS.COMM ENTRIES:  VFD 18/TAG,6/BLK.NR,18/,18/RELADD         DECL         360     A     
 DECL     *         (N.B.  *RELADD* IS LEFT ZERO FOR *MCA* TO FILL IN LATER)               DECL         361     A     
 DECL     *         EXIT   PROPER ENTRIES HAVE BEEN MADE IN                                DECL         362     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1070    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     *                TS.NAM, TT.NAM, TT.COMM, TS.BLK                                 DECL         363     A     
 DECL     *         CALLS  ADDWD, DIR, SCM, TRV.                                           DECL         364     A     
 DECL     *         USES   *TYPA* TEMP HOLDING OF CURN BLK NUMBER.                         DECL         365     A     
 DECL     *         EXIT   TO MASTER LOOP.                                                 DECL         366     A     
 DECL                                                                                      DECL         367     A     
 DECL               HEREIF COMMON                                                          DECL         368     A     
 DECL                                                                                      DECL         369     A     
 DECL               =X6    CR.DEC                                                          DECL         370     A     
 DECL               SA6    REFVAR      SET REFERENCE TYPE                                  DECL         371     A     
 DECL                                                                                      DECL         372     A     
 DECL               =B7    BLANKCOM                                                        DECL         373          I
          -FCC0583
 DECL               SA1    =XBLNKCOM                                                       FCC0583       36     A     
 DECL               SB7    X1          BLANK COMMON BLOCK NUMBER                           FCC0583       37     A     
 DECL               SA1    B4                                                              DECL         374     A     
 DECL               SB2    X1-O.SLASH                                                      DECL         375     A     
 DECL               ZR     X1,E.CM4    IF *EOS*, ERR..                                     DECL         376     A     
 DECL               NZ     B2,CMN4H    IF NO SLASH                                         DECL         377     A     
 DECL               SB4    B4+B1                                                           DECL         378     A     
 DECL               EQ     CMN3                                                            DECL         379     A     
 DECL                                                                                      DECL         380     A     
 DECL     *         PROCESS VARIABLE LIST.                                                 DECL         381     A     
 DECL                                                                                      DECL         382     A     
 DECL                                                                                      DECL         383     A     
 DECL      CMN1     SA2    B4          FETCH NEXT ELEMENT                                  DECL         384     A     
 DECL               SA1    B4+B1                                                           DECL         385     A     
 DECL               BX6    X2                                                              DECL         386     A     
 DECL               ZR     X2,E.CM6    IF PREMATURE *EOS*                                  DECL         387     A     
 DECL               SB7    X1-O.VAR                                                        DECL         388     A     
 DECL               NZ     B7,CMN15    IF NOT LONG NAME                                    DECL         389     A     
 DECL               RJ     =XTLV       TRUNCATE NAME                                       DECL         390     A     
 DECL               =A1    B4+1                                                            DECL         391     A     
 DECL      CMN15    SX1    X1-O.(                                                          DECL         392     A     
 DECL     */KLUDGES FOR LONG UNIT NUMBER VARIABLE                                          DECL         393          I
          -FCC0498
 DECL               SA6    FILL.       SAVE NAME FOR POSSIBLE ERROR MESSAGE                DECL         394     A     
 DECL               NZ     X1,CMN2     IF NO LPAREN                                        DECL         395     A     
 DECL               RJ     DIR                                                             DECL         396     A     
 DECL               SA5    TYPA        RETRIEVE BLOCK INDICATOR                            DECL         397     A     
 DECL               ZR     X6,CMN2B    IF ERROR IN DIMS                                    DECL         398     A     
 DECL               EQ     CMN2A                                                           DECL         399     A     
 DECL                                                                                      DECL         400     A     
 DECL      CMN2     RJ     TRV         TRANSLATE VARIABLE                                  DECL         401     A     
 DECL               NZ     X0,CMN2B    IF ERROR DETECTED                                   DECL         402     A     
 DECL      CMN2A    SX2    P.COMM                                                          DECL         403     A     
 DECL               CLAS=  X3,(FP,EXT,ENT,ASF,NLST,COMM)                                   DECL         404     A     
 DECL               RJ     CCT         CHECK CONFLICTING CLASSES                           DECL         405     A     
 DECL               ZR     X6,CMN2B    IF USAGE CONFLICT                                   DECL         406     A     
 DECL                                                                                      DECL         407     A     
 DECL               SX4    M.COMM+M.DEF+M.VAR                                              DECL         408     A     
 DECL               LX2    P.TAG                                                           DECL         409     A     
 DECL               BX6    X4+X6                                                           DECL         410     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1071    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SA6    X3          STORE MODIFIED ENTRY BACK INTO TT.NAM               DECL         411     A     
 DECL               BX6    X2+X5       MERGE WITH BLOCK NUMBER                             DECL         412     A     
 DECL               ADDWD  TT.COMM     ADVANCE TABLE O                                     DECL         413     A     
 DECL      CMN2B    SA1    B4+B1                                                           DECL         414     A     
 DECL               SB4    A1+B1       B4 = B4+2                                           DECL         415     A     
 DECL               SX2    X1-O.COMMA                                                      DECL         416     A     
 DECL               ZR     X2,CMN1     IF COMMA                                            DECL         417     A     
 DECL               ZR     X1,PSP      IF END OF STATEMENT                                 DECL         418     A     
 DECL               SB2    X1-O.SLASH                                                      DECL         419     A     
 DECL               NZ     B2,E.CM3    IF NO SLASH, ERR..                                  DECL         420     A     
 DECL      CMN3     SA1    B4                                                              DECL         421     A     
 DECL               ZR     X1,E.CM1    IF PREMATURE EOS                                    DECL         422     A     
 DECL               SB4    B4+B1                                                           DECL         423     A     
 DECL               SX6    X1-O.SLASH                                                      DECL         424     A     
 DECL               NZ     X6,CMN5     IF NO SLASH                                         DECL         425     A     
 DECL               =B7    BLANKCOM                                                        DECL         426          I
          -FCC0583
 DECL               SA3    =XBLNKCOM                                                       FCC0583       38     A     
 DECL               SB7    X3          BLANK COMMON BLOCK NUMBER                           FCC0583       39     A     
 DECL               EQ     CMN4H                                                           DECL         427     A     
 DECL                                                                                      DECL         428     A     
 DECL     *         PROCESS /BLOCK/                                                        DECL         429     A     
 DECL                                                                                      DECL         430     A     
 DECL      CMN4     SCAN   TS.BLK,SCD                                                      DECL         431          I
          -FCC1259
 DECL      CMN4     MX0    CHAR                                                            FCC1259       17     A     
 DECL               LX0    -LG.VAR*CHAR+CHAR                                               FCC1259       18     A     
 DECL               BX2    X6*X0                                                           FCC1259       19     A     
 DECL               ZR     X2,CMN4F    IF BLOCK NAME NOT SEVEN CHARACTERS                  FCC1259       20     A     
 DECL               AX2    18                                                              FCC1259       21     A     
 DECL               SB2    X2-1R+                                                          FCC1259       22     A     
 DECL               PL     B2,CMN4F    IF NOT BLANK COMMON                                 FCC1259       23     A     
 DECL               SA6    FILL.                                                           FCC1259       24     A     
 DECL               SA2    A1          SAVE *A*                                            FCC1259       25     A     
 DECL               ANSI   =XE.ANS2                                                        FCC1259       26     A     
 DECL               SA1    A2          RESTORE *A1*                                        FCC1259       27     A     
 DECL      CMN4F    SCAN   TS.BLK,SCD                                                      FCC1259       28     A     
 DECL               PL     B7,CMN4H    IF ALREADY IN TABLE                                 DECL         432     A     
 DECL               SA2    TS=BLK                                                          DECL         433          I
          -FCC0583
 DECL      CMN4G    SA2    TS=BLK                                                          FCC0583       40     A     
 DECL               BX5    X6                                                              DECL         434     A     
 DECL               SX3    X2-MAX.BLK*2+1                                                  DECL         435     A     
 DECL               PL     X3,E.CM2    IF TOO MANY BLOCKS                                  DECL         436     A     
 DECL               ALLOC  A1,2                                                            DECL         437     A     
 DECL               SB7    X2-2        ORDINAL                                             DECL         438     A     
 DECL               BX7    X5                                                              DECL         439     A     
 DECL               MX6    0                                                               DECL         440     A     
 DECL               SA7    X1+B7                                                           DECL         441     A     
 DECL               SA6    A7+B1                                                           DECL         442     A     
 DECL      CMN4H    SX6    B7                                                              DECL         443          I
          -FCC0583
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1072    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SA5    =7L                                                             FCC0583       41     A     
 DECL               IX5    X5-X7                                                           FCC0583       42     A     
 DECL               NZ     X5,CMN4I    IF NOT BLANK COMMON                                 FCC0583       43     A     
 DECL               SX6    B7                                                              FCC0583       44     A     
 DECL               SA6    =XBLNKCOM   BLANK COMMON BLOCK NUMBER INDICATOR                 FCC0583       45     A     
 DECL               EQ     CMN4I                                                           FCC0583       46     A     
 DECL      CMN4H    NZ     B7,CMN4I    IF BLANK COMMON ALREADY PRESENT                     FCC0583       47     A     
 DECL               SA1    TS.BLK                                                          FCC0583       48     A     
 DECL               SA2    =7L                                                             FCC0583       49     A     
 DECL               BX6    X2                                                              FCC0583       50     A     
 DECL               EQ     CMN4G                                                           FCC0583       51     A     
 DECL      CMN4I    SX6    B7                                                              FCC0583       52     A     
 DECL               LX6    P.BLOCK                                                         DECL         444     A     
 DECL               BX5    X6                                                              DECL         445     A     
 DECL               SA6    TYPA        SAVE BLOCK INDICATOR                                DECL         446     A     
 DECL               EQ     CMN1                                                            DECL         447     A     
 DECL                                                                                      DECL         448     A     
 DECL      CMN5     SA3    B4                                                              DECL         449     A     
 DECL               SB7    X1-O.CONS                                                       DECL         450     A     
 DECL               ZR     B7,CMN5B    IF BLOCK NAME IS NUMBER                             DECL         451     A     
 DECL               SB7    X1-O.VAR                                                        DECL         452     A     
 DECL               NZ     B7,E.CM5    ILLEGAL BLOCK NAME                                  DECL         453     A     
 DECL               SB7    X3-O.VAR                                                        DECL         454     A     
 DECL               NZ     B7,CMN5C    IF NOT LONG NAME                                    DECL         455     A     
 DECL               =B4    B4-1                                                            DECL         456     A     
 DECL               RJ     =XTLV       TRUNCATE NAME                                       DECL         457     A     
 DECL               =B4    B4+1                                                            DECL         458     A     
 DECL               =A3    B4                                                              DECL         459     A     
 DECL               EQ     CMN5C                                                           DECL         460     A     
 DECL               SPACE  2                                                               DECL         461     A     
 DECL      CMN5B    ANSI   E.CMA       BLOCK NUMBER NON ANSI                               DECL         462          I
          -FCC0842
 DECL      CMN5B    BX2    X1          SAVE (X1)                                           FCC0842        4     A     
 DECL               ANSI   E.CMA       BLOCK NUMBER NON-ANSI                               FCC0842        5     A     
 DECL               LX1    X2          RESTORE (X1)                                        FCC0842        6     A     
 DECL      CMN5C    SX2    X1                                                              DECL         463     A     
 DECL               BX6    X1-X2                                                           DECL         464     A     
 DECL               SB7    X3-O.SLASH                                                      DECL         465     A     
 DECL               NZ     B7,E.CM     IF NO SLASH                                         DECL         466     A     
 DECL             =B4      B4+1                                                            DECL         467          I
          -FCC0583
 DECL               =B4    B4+1                                                            FCC0583       53     A     
 DECL               EQ     CMN4                                                            DECL         468     A     
 DECL               SPACE  2                                                               DECL         469     A     
 DECL      DIM      SPACE  4,8                                                             DECL         470     A     
 DECL     **        DIM -  PROCESS "DIMENSION" DECLARATION.                                DECL         471     A     
 DECL     *         EXIT   TO MASTER LOOP.                                                 DECL         472     A     
 DECL     *         CALLS  DIR      (FOR EVERY ARRAY IN STATEMENT.)                        DECL         473     A     
 DECL                                                                                      DECL         474     A     
 DECL                                                                                      DECL         475     A     
 DECL               HEREIF DIMENSION                                                       DECL         476     A     
 DECL                                                                                      DECL         477     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1073    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               =X6    CR.DEC                                                          DECL         478     A     
 DECL               SA6    REFVAR      SET REFERENCE TYPE                                  DECL         479     A     
 DECL                                                                                      DECL         480     A     
 DECL      DIM1     RJ     DIR         PROCESS DIMENSIONED VARIABLE                        DECL         481     A     
 DECL               SA1    B4+B1                                                           DECL         482     A     
 DECL               SB4    A1+B1       (B4) = (B4) + 2                                     DECL         483     A     
 DECL               SX2    X1-O.COMMA                                                      DECL         484     A     
 DECL               ZR     X2,DIM1     IF *,*                                              DECL         485     A     
 DECL               ZR     X1,PSP      IF *EOS*, RETURN TO MASTER LOOP                     DECL         486     A     
 DECL               SA2    X1+=XCHARMAP                                                    DECL         487     A     
 DECL               MX0    L.CDPC                                                          DECL         488     A     
 DECL               NZ     X2,DIM2     IF NOT VAR OR CONS                                  DECL         489     A     
 DECL               LX2    X1                                                              DECL         490     A     
 DECL      DIM2     BX6    X0*X2                                                           DECL         491     A     
 DECL               SA6    FILL.                                                           DECL         492     A     
 DECL               EQ     E.TY                                                            DECL         493     A     
 DECL      DIR      SPACE  4,15                                                            DECL         494     A     
 DECL     **        DIR -  PROCESS DIMENSIONED VARIABLE.                                   DECL         495     A     
 DECL     *         ENTRY  (B4) _ VARIABLE NAME IN *SB*.  LPAREN EXPECTED AS NEXT          DECL         496     A     
 DECL     *                            CHARACTER.                                          DECL         497     A     
 DECL     *         EXIT   (B4) _ TERMINAL *)*, OR *EOS*-1.                                DECL         498     A     
 DECL     *                (X6) = SYMBOL TAG ENTRY.                                        DECL         499     A     
 DECL     *                            (= ZERO IF ERROR.)                                  DECL         500     A     
 DECL     *                DIMENSIONING INFORMATION ENTERED INTO TP.DIM AND                DECL         501     A     
 DECL     *                            POINTER ENTERED INTO *P.PNT*.                       DECL         502     A     
 DECL     *         CALLS  DIS, TRV.                                                       DECL         503     A     
 DECL     *         USES   ALL REGISTERS.                                                  DECL         504     A     
 DECL     *                *APLIST* FOR TEMP HOLDING OF DIM DESCRIPTORS.                   DECL         505     A     
 DECL                                                                                      DECL         506     A     
 DECL                                                                                      DECL         507     A     
 DECL     **        HERE WHEN A SYNTAX ERROR IS FOUND -- SEARCHES FOR NEXT *)* IN          DECL         508     A     
 DECL     *                ATTEMPT TO RECOVER SO THAT REST OF STATEMENT MAY BE             DECL         509     A     
 DECL     *                PROCESSED.                                                      DECL         510     A     
 DECL                                                                                      DECL         511     A     
 DECL      DIR7     SB4      B4+B1                                                         DECL         512     A     
 DECL      DIR8     SA1      B4                                                            DECL         513     A     
 DECL               ZR     X1,E.DM10   IF *EOS* -- ERROR                                   DECL         514     A     
 DECL               SX1    X1-O.)                                                          DECL         515     A     
 DECL               NZ     X1,DIR7     ADVANCE TO NEXT RIGHT PAREN                         DECL         516     A     
 DECL               BX5    0           INDICATE ERROR                                      DECL         517     A     
 DECL                                                                                      DECL         518     A     
 DECL     *         EXIT - SHRINK CONSTANT TABLE BACK TO WHAT IT WAS BEFORE THIS           DECL         519     A     
 DECL     *         STATEMENT.                                                             DECL         520     A     
 DECL                                                                                      DECL         521     A     
 DECL      DIRX     SA2    TS=CONB                                                         DECL         522     A     
 DECL               SHRINK TS=CON,X2                                                       DECL         523     A     
 DECL               BX6    X5                                                              DECL         524     A     
 DECL                                                                                      DECL         525     A     
 DECL      DIR      SUBR   Z           ENTRY/EXIT...                                       DECL         526     A     
 DECL               SA4    B4                                                              DECL         527     A     
 DECL               ZR     X4,E.EX3    IF *EOS*                                            DECL         528     A     
 DECL               BX6    X4                                                              DECL         529     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1074    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               RJ     TRV         TRANSLATE VARIABLE                                  DECL         530     A     
 DECL               NZ     X0,DIR8     IF ERROR DETECTED                                   DECL         531     A     
 DECL               =X3    M.ARY                                                           DECL         532     A     
 DECL               BX2    X3*X6                                                           DECL         533     A     
 DECL               ZR     X2,DIR2     IF NOT ALREADY AN ARRAY                             DECL         534     A     
 DECL               WARN   E.DM9       PREVIOUS DIMENSION HOLDS                            DECL         535     A     
 DECL      DIR2     CLAS=  X3,(NVAR,ENT,EXT)                                               DECL         536     A     
 DECL               SX2    P.ARY                                                           DECL         537     A     
 DECL               RJ     CCT         CHECK CONFLICTING CLASSES                           DECL         538     A     
 DECL               ZR     X6,DIR8     IF ERROR DETECTED.                                  DECL         539     A     
 DECL               SA5    X3          TAG                                                 DECL         540     A     
 DECL               LX7    X2                                                              DECL         541     A     
 DECL               SX3    M.ARY+M.VAR                                                     DECL         542     A     
 DECL               BX5    X6+X3       SET ARRAY BIT                                       DECL         543     A     
 DECL               LX6    X5                                                              DECL         544     A     
 DECL               SA7    DIRT        SAVE TAG ORDINAL                                    DECL         545     A     
 DECL               SA6    A5                                                              DECL         546     A     
 DECL                                                                                      DECL         547     A     
 DECL     **        PROCESS DIMENSION ARGUMENTS                                            DECL         548     A     
 DECL                                                                                      DECL         549     A     
 DECL               SA1    B4+B1       FETCH SEPARATOR                                     DECL         550     A     
 DECL               ZR     X1,E.DM5A   IF *EOS*                                            DECL         551     A     
 DECL               SX2    X1-O.COMMA                                                      DECL         552     A     
 DECL               SX6    X1-O.(+O.COMMA                                                  DECL         553     A     
 DECL               SB3    X1-O.(                                                          DECL         554     A     
 DECL               ZR     X2,E.DM5A   IF COMMA                                            DECL         555     A     
 DECL               NZ     B3,E.DM     IF NOT LEFT PAREN                                   DECL         556     A     
 DECL               SB3    DIMI        SAVE POSITION FOR 1ST DIMENSION                     DECL         557     A     
 DECL               SB5    DIMI+MAX.DIM                                                    DECL         558     A     
 DECL               SA6    A1          FAKE UP A COMMA FOR *DIS*                           DECL         559     A     
 DECL               BX5    0                                                               DECL         560     A     
 DECL               EQ     DIS                                                             DECL         561     A     
 DECL                                                                                      DECL         562     A     
 DECL                                                                                      DECL         563     A     
 DECL     **        HERE IS RETURN FROM *DIS*.                                             DECL         564     A     
 DECL                                                                                      DECL         565     A     
 DECL      DIR3     SB6    DIMI                                                            DECL         566     A     
 DECL               BX6    0                                                               DECL         567     A     
 DECL               SX0    B3-B6                                                           DECL         568     A     
 DECL               EQ     B3,B6,E.DM5       IF NO DIMENSIONS                              DECL         569     A     
 DECL               LX0    P.NDIM                                                          DECL         570     A     
 DECL               SA6    B3          CLEAR EXTRA CELL IN CASE ODD NR OF DIMS             DECL         571     A     
 DECL               SA3    DIRT                                                            DECL         572     A     
 DECL               SA1    TS.SYM                                                          DECL         573     A     
 DECL               IX2    X1+X3                                                           DECL         574     A     
 DECL               BX6    X5                                                              DECL         575     A     
 DECL               SA5    X2          RE-FETCH TAG TABLE ENTRY                            DECL         576     A     
 DECL               ZR     X6,DIR4     IF NO VARIABLE DIMENSIONS                           DECL         577     A     
 DECL                                                                                      DECL         578     A     
 DECL                                                                                      DECL         579     A     
 DECL     **        HANDLE VARIABLE DIMENSIONS HERE.                                       DECL         580     A     
 DECL                                                                                      DECL         581     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1075    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               =X3    1                                                               DECL         582     A     
 DECL               BX2    X5                                                              DECL         583     A     
 DECL               LX3    P.VDIM                                                          DECL         584     A     
 DECL               =X6    1                                                               DECL         585     A     
 DECL               SA6    VARDIM      INDICATE VARIABLE DIMENSIONS APPEARED               DECL         586     A     
 DECL               IFBIT  X2,FP,DIR31 IF FORMAL PARAMETER                                 DECL         587     A     
 DECL               SA3    DIRT                                                            DECL         588     A     
 DECL               SA1    TS.SYM                                                          DECL         589     A     
 DECL               IX2    X1+X3                                                           DECL         590     A     
 DECL               =A2    X2-1        ARRAY NAME                                          DECL         591     A     
 DECL               MX0    L.SYM                                                           DECL         592     A     
 DECL               BX6    X0*X2                                                           DECL         593     A     
 DECL               SA6    FILL.                                                           DECL         594     A     
 DECL               EQ     E.DM3                                                           DECL         595     A     
 DECL                                                                                      DECL         596     A     
 DECL      DIR31    BX0    X3+X0                                                           DECL         597     A     
 DECL               =X7    1           OFFSET OF 1 FOR VAR DIM ARRAY                       DECL         598     A     
 DECL               EQ     DIR6        CONTINUE.. TO ENTER TABLE                           DECL         599     A     
 DECL                                                                                      DECL         600     A     
 DECL                                                                                      DECL         601     A     
 DECL     **        CONSTANT DIMENSIONS -- COMPUTE DIMOS AND LENGTH.                       DECL         602     A     
 DECL     *                                                                                DECL         603     A     
 DECL     *         DIMOS  =  SIGMA [1@J@N, PI (0@K@J-1, DIM(K)) ]                         DECL         604     A     
 DECL                                                                                      DECL         605     A     
 DECL      DIR4     SA1    B6                                                              DECL         606     A     
 DECL               =X3    1                                                               DECL         607     A     
 DECL               SB5    B6+B1                                                           DECL         608     A     
 DECL               =X4    1                                                               DECL         609     A     
 DECL                                                                                      DECL         610     A     
 DECL      DIR42    IX3    X3*X1       X3 = PI (DIM(K), 0@K@J-1)                           DECL         611     A     
 DECL               GE     B5,B3,DIR46       [ 1 @ J \ N ]                                 DECL         612     A     
 DECL               SA1    B5                                                              DECL         613     A     
 DECL               SB5    B5+B1                                                           DECL         614     A     
 DECL               IX4    X4+X3       X4 = SIGMA( (X3) , J)                               DECL         615     A     
 DECL               EQ     DIR42                                                           DECL         616     A     
 DECL                                                                                      DECL         617     A     
 DECL      DIR46    LX3    P.DIMLG                                                         DECL         618          I
          -FCC1410
 DECL      DIR46    SX1    1S17-1                                                          FCC1410       10     A     
 DECL               IX1    X1-X3                                                           FCC1410       11     A     
 DECL               MI     X1,=XE.DM8  IF LENGTH > 2**17-1                                 FCC1410       12     A     
 DECL               LX3    P.DIMLG                                                         FCC1410       13     A     
 DECL               BX7    X4+X3                                                           DECL         619     A     
 DECL                                                                                      DECL         620     A     
 DECL                                                                                      DECL         621     A     
 DECL     **        PACK DIM INFO INTO FINAL FORM.                                         DECL         622     A     
 DECL     *                (X0) = NDIM + VDIM FLAGS.                                       DECL         623     A     
 DECL     *                (X7) = (LEN/OFFSET WORD)                                        DECL         624     A     
 DECL     *                (B6) = FWA DESCRIPTORS.                                         DECL         625     A     
 DECL     *                (B3) = LWA+1 DESCRIPTORS.                                       DECL         626     A     
 DECL                                                                                      DECL         627     A     
 DECL      DIR6     MX1    -L.PNT                                                          DECL         628     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1076    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               BX6    X5                                                              DECL         629     A     
 DECL               LX6    -P.PNT                                                          DECL         630     A     
 DECL               BX1    -X1*X6                                                          DECL         631     A     
 DECL               NZ     X1,DIRX     IF PRIOR DIMENSION ENTERED                          DECL         632     A     
 DECL                                                                                      DECL         633     A     
 DECL               SA2    B6                                                              DECL         634     A     
 DECL               BX6    X7+X0                                                           DECL         635     A     
 DECL               IX1    X1-X1                                                           DECL         636     A     
 DECL               SA6    B6          STORE HEADER WORD                                   DECL         637     A     
 DECL                                                                                      DECL         638     A     
 DECL      DIR65    LX2    P.DIM                                                           DECL         639     A     
 DECL               SB5    A2+B1                                                           DECL         640     A     
 DECL               BX6    X1+X2                                                           DECL         641     A     
 DECL               SA1    A2+B1                                                           DECL         642     A     
 DECL               SA2    B5+B1                                                           DECL         643     A     
 DECL               SA6    A6+B1                                                           DECL         644     A     
 DECL               LT     B5,B3,DIR65                                                     DECL         645     A     
 DECL                                                                                      DECL         646     A     
 DECL      DIR67    SB3    A6+B1       LWA+1 OF THIS ENTRY                                 DECL         647     A     
 DECL               SB2    B6          FWA   OF THIS ENTRY                                 DECL         648     A     
 DECL               SCAN   TP.DIM,NCM                                                      DECL         649     A     
 DECL               SA1    TS.SYM      IN CASE TABLES MOVED                                DECL         650     A     
 DECL               SA2    DIRT                                                            DECL         651     A     
 DECL               IX3    X1+X2                                                           DECL         652     A     
 DECL               LX6    P.PNT                                                           DECL         653     A     
 DECL               BX6    X5+X6                                                           DECL         654     A     
 DECL               SA6    X3          INSERT DIM TABLE POINTER                            DECL         655     A     
 DECL               LX5    X6                                                              DECL         656     A     
 DECL               EQ     DIRX        EXIT..                                              DECL         657     A     
 DECL                                                                                      DECL         658     A     
 DECL      DIRT     BSS    1           TEMP HOLDING OF TAG ORDINAL                         DECL         659     A     
 DECL      DIS      SPACE  4,15                                                            DECL         660     A     
 DECL     **        DIS -  ASSEMBLE DIMENSION SUBSCRIPT.                                   DECL         661     A     
 DECL     *         CO-ROUTINE WITH *DIR*.  ASSEMBLES DIMENSIONALITY DESCRIPTORS           DECL         662     A     
 DECL     *                INTO A SAVE BUFFER.                                             DECL         663     A     
 DECL     *         ENTRY  (B4)+1 _ SUBSCRIPT ENTRY.                                       DECL         664     A     
 DECL     *                (B3) _ FWA OF SAVE AREA.                                        DECL         665     A     
 DECL     *                (B5) _ LWA SAVE BUFFER.                                         DECL         666     A     
 DECL     *                (X5) = 0.                                                       DECL         667     A     
 DECL     *         EXIT   TO *DIR3* --                                                    DECL         668     A     
 DECL     *                (B3) _ LWA+1 OF STORED DESCRIPTORS.                             DECL         669     A     
 DECL     *                (B4) _ RPAREN OR *EOS* THAT CAUSED *DIS* TO QUIT.               DECL         670     A     
 DECL     *                (X5) = 0 -- NO VAR-DIMS.                                        DECL         671     A     
 DECL     *                     = M.CDIM -- IF VARDIMS HAPPENED.                           DECL         672     A     
 DECL     *         MOST ERRORS EXIT TO *DIR8*.                                            DECL         673     A     
 DECL     *         USES   ALL EXCEPT A0,A5  B5,B6                                         DECL         674     A     
 DECL     *         CALLS  DEC, TRV, WARN.                                                 DECL         675     A     
 DECL                                                                                      DECL         676     A     
 DECL                                                                                      DECL         677     A     
 DECL     **        HERE WHEN DESCRIPTOR IS VARIABLE NAME.                                 DECL         678     A     
 DECL                                                                                      DECL         679     A     
 DECL      DIS6     RJ     TRV         TRANSLATE VARIABLE                                  DECL         680     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1077    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               MX0    1                                                               DECL         681     A     
 DECL               LX0    P.FPS+1                                                         DECL         682     A     
 DECL               SX4    M.VAR                                                           FCC1222        6     A     
 DECL               SA2    TS.SYM                                                          DECL         683     A     
 DECL               BX6    X6+X0       SET FLAG FOR DEFERRED TYPE CHECK                    DECL         684     A     
 DECL               BX6    X6+X4       VARIABLE DIMENSION MUST BE VARIABLE                 FCC1222        7     A     
 DECL               SA6    X2+B7                                                           DECL         685     A     
 DECL               SBIT   X6,FP                                                           DECL         686     A     
 DECL               =X4    1                                                               DECL         687     A     
 DECL               SX2    B7                                                              DECL         688     A     
 DECL               LX4    P.TDIM                                                          DECL         689     A     
 DECL               PL     X6,DIS5     IF NOT A DUMMY-ARG, ERR..                           DECL         690     A     
 DECL               MX5    1           INDICATE VARIABLE DIMS OCCURRED                     DECL         691     A     
 DECL               LX5    P.CDIM+1                                                        DECL         692     A     
 DECL               IX6    X4+X2       SET VAR-DIM BIT AND CLEAR TAG TYPE                  DECL         693     A     
 DECL               MX3    0           SKIP TYPE CHECK                                     DECL         694     A     
 DECL                                                                                      DECL         695     A     
 DECL                                                                                      DECL         696     A     
 DECL     **        ADD DESCRIPTOR TO SAVE BUFFER --                                       DECL         697     A     
 DECL     *                (X1) = TYPE.                                                    DECL         698     A     
 DECL     *                (X6) = DESCRIPTOR -- 36/0, 1/VAR, 23/(TAG OR NUMBER)            DECL         699     A     
 DECL                                                                                      DECL         700     A     
 DECL      DIS8     SA6    B3          SAVE DESCRIPTOR WORD                                DECL         701     A     
 DECL               LT     B3,B5,DIS9  IF NO OVERFLOW OF SAVE AREA                         DECL         702     A     
 DECL               SB3    B3-B1                                                           DECL         703     A     
 DECL               FATAL  E.DM6                                                           DECL         704     A     
 DECL      DIS9     =X6    0                                                               DECL         705     A     
 DECL               SB3    B3+B1                                                           DECL         706     A     
 DECL               NZ     X3,E.DM1    IF NOT TYPE INTEGER, ERR..                          DECL         707     A     
 DECL                                                                                      DECL         708     A     
 DECL                                                                                      DECL         709     A     
 DECL     **        INITIAL ENTRY IS HERE.                                                 DECL         710     A     
 DECL     *                (B4)+1 _ COMMA OR RPAREN.                                       DECL         711     A     
 DECL                                                                                      DECL         712     A     
 DECL      DIS      SA1    B4+B1       FETCH NEXT SEPARATOR                                DECL         713     A     
 DECL               SB4    B4+B1                                                           DECL         714     A     
 DECL               SX2    X1-O.)                                                          DECL         715     A     
 DECL               ZR     X1,E.MR2    IF *EOS*, ERR..                                     DECL         716     A     
 DECL               SB2    X1-O.COMMA                                                      DECL         717     A     
 DECL               ZR     X2,DIR3     IF RPAREN, EXIT..                                   DECL         718     A     
 DECL               ZR     B2,DIS2     IF COMMA                                            DECL         719     A     
 DECL               SA2    X1+=XCHARMAP                                                    DECL         720     A     
 DECL               NZ     X2,DIS1     IF NOT VAR OR CONS                                  DECL         721     A     
 DECL               LX2    X1                                                              DECL         722     A     
 DECL      DIS1     MX0    L.CDPC                                                          DECL         723     A     
 DECL               BX6    X0*X2                                                           DECL         724     A     
 DECL               SA6    FILL.                                                           DECL         725     A     
 DECL               FATAL  E.EX2                                                           DECL         726     A     
 DECL               EQ     DIR8        EXIT.. TO ATTEMPT RECOVERY                          DECL         727     A     
 DECL                                                                                      DECL         728     A     
 DECL      DIS2     SA2    B4+B1                                                           DECL         729     A     
 DECL               SX6    X2                                                              DECL         730     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1078    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               ZR     X2,E.DM     IF *EOS* - ERROR                                    DECL         731     A     
 DECL               SB2    X2-O.VAR                                                        DECL         732     A     
 DECL               BX6    X2-X6                                                           DECL         733     A     
 DECL               SB4    B4+B1                                                           DECL         734     A     
 DECL               SA6    FILL.2      SAVE VAR NAM FOR POSSIBLE ERROR MESSAGE             DECL         735     A     
 DECL               SB7    X2-O.CONS                                                       DECL         736     A     
 DECL               ZR     B2,DIS6     IF ALPHA                                            DECL         737     A     
 DECL               =X0    B7+O.CONS-O.HOLL                                                DECL         738     A     
 DECL               SB2    X2-O.)                                                          DECL         739     A     
 DECL               ZR     X0,DIS2A    IF HOLLERITH CONSTANT                               DECL         740     A     
 DECL               ZR     B2,E.DM2A   IF *)*                                              DECL         741     A     
 DECL               EQ     DIS3        PROCESS WHATEVER...                                 DECL         742     A     
 DECL                                                                                      DECL         743     A     
 DECL     **        DIMENSION CONSTANT IS HOLLERITH, OUTPUT ANSI ERROR AND                 DECL         744     A     
 DECL     *         CONTINUE TO PROCESS AS A LEGAL DIMENSIONALITY.                         DECL         745     A     
 DECL                                                                                      DECL         746     A     
 DECL      DIS2A    ANSI   E.DM12                                                          DECL         747     A     
 DECL                                                                                      DECL         748     A     
 DECL     **        HERE WHEN DESCRIPTOR IS A NUMBER.                                      DECL         749     A     
 DECL                                                                                      DECL         750     A     
 DECL      DIS3     BSS    0                                                               DECL         751     A     
 DECL               RJ     EAX         EVALUATE ABSOLUTE EXPRESSION                        DECL         752     A     
 DECL               ZR     B7,DIS8     IF ERROR IN CONSTANT                                DECL         753     A     
 DECL               SX3    X1-M.INT                                                        DECL         754     A     
 DECL               BX2    X6                                                              DECL         755     A     
 DECL               NZ     X1,DIS4     IF NOT UNIVERSAL TYPE                               DECL         756     A     
 DECL               MX3    0                                                               DECL         757     A     
 DECL      DIS4     AX2    17                                                              DECL         758     A     
 DECL               ZR     X6,E.DM2    IF NO CONSTANT - ERROR                              DECL         759     A     
 DECL               BX6    X5+X6       MERGE *PREVIOUS VAR-DIM* BIT                        DECL         760     A     
 DECL               ZR     X2,DIS8     IF NUMBER IS @ 2**17-1                              DECL         761     A     
 DECL               NZ     X3,E.DM1    IF NOT TYPE INTEGER                                 DECL         762     A     
 DECL               EQ     E.DM7                                                           DECL         763     A     
 DECL                                                                                      DECL         764     A     
 DECL     **        ERROR IN DIM INDICATOR.                                                DECL         765     A     
 DECL     *                OUTPUT ERROR MESSAGE AND THEN PRETEND IT WAS AN                 DECL         766     A     
 DECL     *         O.K. DIMENSION OF ONE.                                                 DECL         767     A     
 DECL                                                                                      DECL         768     A     
 DECL      DIS5     WARN   E.DM4                                                           DECL         769          I
          -FCC1222
 DECL      DIS5     FATAL  E.DM4                                                           FCC1222        8     A     
 DECL               MX3    0                                                               DECL         770     A     
 DECL               =X6    1                                                               DECL         771     A     
 DECL               EQ     DIS8        CONTINUE..                                          DECL         772     A     
 DECL                                                                                      DECL         773     A     
 DECL      A        DECMIC P.TDIM                                                          DECL         774     A     
 DECL      A        DECMIC 1S"A"-C.VAR                                                     DECL         775     A     
 DECL      DISA     LIT    "A"                                                             DECL         776     A     
 DECL      EQS      SPACE  4,8                                                             DECL         777     A     
 DECL               SPACE  4,20                                                            FCC1946        8     A     
 DECL     *                                                                                FCC1946        9     A     
 DECL     *        UNPACK AND PACK MACROS PARIALLY SIMULATE THE PACK AND UNPACK            FCC1946       10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1079    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     *        OPERATION CODES. EXCEPTIONS:  NO SIGN EXTENSION WHEN                    FCC1946       11     A     
 DECL     *        USING THE UNPACK MACRO. THE ENTIRE  EXPONENT FIELD IS USED              FCC1946       12     A     
 DECL     *        TO STORE VALUES.                                                        FCC1946       13     A     
 DECL     *                                                                                FCC1946       14     A     
 DECL     *        UNPK    XN,BN,WXR,MR                                                    FCC1946       15     A     
 DECL     *        PACK    XN,BN,WXR,MR                                                    FCC1946       16     A     
 DECL     *                                                                                FCC1946       17     A     
 DECL     *        XN - THE DESTINATION REGISTER AND MUST CONTAIN THE PACKED               FCC1946       18     A     
 DECL     *             FIELD OR THE COEFICIENT FIELD                                      FCC1946       19     A     
 DECL     *        BN - THE EXPONENT FIELD , SELECTING B0 RESULTS IN THE                   FCC1946       20     A     
 DECL     *             ELIMINATION OF ALL INSTUCTIONS ASSOCIATED WITH THE                 FCC1946       21     A     
 DECL     *             BN AND WXR REGISTERS.                                              FCC1946       22     A     
 DECL     *       WXR - SCRATCH REGISTER , IF BO IS SELECTED FOR THE B REGISTER            FCC1946       23     A     
 DECL     *             THIS REGISTER CAN BE SET TO VALUE SELECTED FOR                     FCC1946       24     A     
 DECL     *             MR REGISTER.                                                       FCC1946       25     A     
 DECL     *        MR - MASK REGISTER                                                      FCC1946       26     A     
 DECL     *                                                                                FCC1946       27     A     
 DECL     *                                                                                FCC1946       28     A     
 DECL      UNPK     MACRO  XN,BN,WXR,MR                                                    FCC1946       29     A     
 DECL               M_MR   12                                                              FCC1946       30     A     
 DECL               IFNE   BN,B0,1                                                         FCC1946       31     A     
 DECL               B_WXR  MR*XN                                                           FCC1946       32     A     
 DECL               B_XN   -MR*XN                                                          FCC1946       33     A     
 DECL               IFNE   BN,B0,2                                                         FCC1946       34     A     
 DECL               L_WXR  12                                                              FCC1946       35     A     
 DECL               S_BN   WXR                                                             FCC1946       36     A     
 DECL               ENDM                                                                   FCC1946       37     A     
 DECL      PACK     MACRO  XN,BN,WXR,MR                                                    FCC1946       38     A     
 DECL               IFNE   BN,B0,4                                                         FCC1946       39     A     
 DECL               M_MR   48                                                              FCC1946       40     A     
 DECL               S_WXR  BN                                                              FCC1946       41     A     
 DECL               B_WXR  -MR*WXR                                                         FCC1946       42     A     
 DECL               L_WXR  48                                                              FCC1946       43     A     
 DECL               M_MR   12                                                              FCC1946       44     A     
 DECL               B_XN   -MR*XN                                                          FCC1946       45     A     
 DECL               IFNE   BN,B0,1                                                         FCC1946       46     A     
 DECL               B_XN   WXR+XN                                                          FCC1946       47     A     
 DECL               ENDM                                                                   FCC1946       48     A     
 DECL     *                                                                                FCC1946       49     A     
 DECL     *                                                                                FCC1946       50     A     
 DECL     **        EQS -  PROCESS "EQUIVALENCE" DECLARATION.                              DECL         778     A     
 DECL     *                                                                                DECL         779     A     
 DECL     *         PERFORMS SYNTAX CHECKING OF THE STATEMENT, AND TRANSLATES THE          DECL         780     A     
 DECL     *                EQUIVALENCES INTO TS.EQU TO AWAIT THE CLOSE OF                  DECL         781     A     
 DECL     *                DECLARATIVES.                                                   DECL         782     A     
 DECL     *                                                                                DECL         783     A     
 DECL     *         EXIT   TO MASTER LOOP.                                                 DECL         784     A     
 DECL                                                                                      DECL         785     A     
 DECL                                                                                      DECL         786     A     
 DECL               HEREIF EQUIVALENCE                                                     DECL         787     A     
 DECL                                                                                      DECL         788     A     
 DECL               =X6    CR.DEC                                                          DECL         789     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1080    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SA6    REFVAR      SET REFERENCE TYPE                                  DECL         790     A     
 DECL               SB4    B4-B1                                                           DECL         791     A     
 DECL                                                                                      DECL         792     A     
 DECL     **        BEGIN NEW EQUIVALENCE GROUP.                                           DECL         793     A     
 DECL     *                (B4) _ LPAREN IN FRONT OF GROUP.                                DECL         794     A     
 DECL                                                                                      DECL         795     A     
 DECL      EQS2     SA1    B4+B1                                                           DECL         796     A     
 DECL               SB4    B4+B1       ADVANCE B4 TO 1ST SYMBOL                            DECL         797     A     
 DECL               ZR     X1,=XE.MR3  IF *EOS* - ERROR                                    FCC1274       23     A     
 DECL               SB7    X1-O.(                                                          DECL         798     A     
 DECL               =B6    1                                                               DECL         799     A     
 DECL               NZ     B7,E.EQ1    IF NO *(* - ERROR                                   DECL         800     A     
 DECL                                                                                      DECL         801     A     
 DECL                                                                                      DECL         802     A     
 DECL     **        NOW PROCESS A NAME.                                                    DECL         803     A     
 DECL     *                (B4) _ SYMBOL                                                   DECL         804     A     
 DECL                                                                                      DECL         805     A     
 DECL      EQS3     SA1    B4+B1                                                           DECL         806     A     
 DECL               SB4    B4+B1                                                           DECL         807     A     
 DECL               BX6    X1                                                              DECL         808     A     
 DECL               SA6    FILL.       SAVE NAME FOR (POSSIBLE) ERROR MESSAGE              DECL         809     A     
 DECL               RJ     TRV         TRANSLATE VARIABLE                                  DECL         810     A     
 DECL               CLAS=  X3,(FP,ENT,ASF,EXT,NLST)                                        DECL         811     A     
 DECL               SX2    P.EQUIV                                                         DECL         812     A     
 DECL               RJ     CCT         CHECK FOR CONFLICTING CLASS                         DECL         813     A     
 DECL               ZR     X6,EQS8     IF CONFLICT                                         DECL         814     A     
 DECL               PX6    X2,B6       MERGE GROUP-FLAG W/ TAG ORDINAL                     DECL         815          I
          -FCC1946
 DECL               BX6    X2                                                              FCC1946       51     A     
 DECL               PACK   X6,B6,X2,X3   MERGE GROUP-FLAG W/ TAG ORDINAL                   FCC1946       52     A     
 DECL               ADDWD  TS.EQU      1ST WORD TO TABLE                                   DECL         816     A     
 DECL               SA4    B4+B1                                                           DECL         817     A     
 DECL               SB4    B4+B1       ADVANCE B4                                          DECL         818     A     
 DECL               SB6    B6+B1       INDICATE NO ROOT                                    DECL         819     A     
 DECL               =B3    0           CLEAR SUBSCRIPT COUNT                               DECL         820     A     
 DECL               =B7    X4-O.LP                                                         DECL         821     A     
 DECL               ZR     B7,EQS5     IF NO LPAREN                                        DECL         822          I
          -FCC0498
 DECL               BX2    0                                                               DECL         823          I
          -FCC0498
 DECL               ZR     B7,EQS5     IF *(*                                              FCC0498       26     A     
 DECL               SA2    =XTRVA      *ST* ENTRY                                          FCC0498       27     A     
 DECL               IFBIT  X2,-ARY,EQS4 IF NOT ARRAY                                       FCC0498       28     A     
 DECL               ANSI   =XE.TE4                                                         FCC0498       29     A     
 DECL      EQS4     BX2    0                                                               FCC0498       30     A     
 DECL               PX6    X2                                                              DECL         824          I
          -FCC1946
 DECL               BX6    X2                                                              FCC1946       53     A     
 DECL               PACK   X6,B0,X3,X3                                                     FCC1946       54     A     
 DECL               ADDWD  TS.EQU      FAKE SUBSCRIPT OF ZERO                              DECL         825     A     
 DECL               EQ     EQS6                                                            DECL         826     A     
 DECL                                                                                      DECL         827     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1081    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL                                                                                      DECL         828     A     
 DECL     **        PROCESS SUBSCRIPT.  (IF ANY)                                           DECL         829     A     
 DECL                                                                                      DECL         830     A     
 DECL      EQS5     SA1    B4+B1                                                           DECL         831     A     
 DECL               SB4    B4+B1       ADVANCE B4                                          DECL         832     A     
 DECL               SB7    X1-O.CONS                                                       DECL         833     A     
 DECL               NZ     B7,E.EQ5    IF NO NUMBER                                        DECL         834     A     
 DECL               RJ     DEC         CONVERT DECIMAL NUMBER                              DECL         835     A     
 DECL               ZR     X6,E.EQ5    IF ZERO SUBSCRIPT - ERROR                           DECL         836     A     
 DECL               ZR     X1,EQS5B    IF MODELESS, OK..                                   DECL         837     A     
 DECL               SB7    X1-M.INT                                                        DECL         838     A     
 DECL               NZ     B7,E.EQ5    IF NOT INTEGER MODE - ERROR                         DECL         839     A     
 DECL      EQS5B    BX4    X6                                                              DECL         840     A     
 DECL               AX4    17                                                              DECL         841     A     
 DECL               NZ     X4,E.EQ2    IF SUBSCRIPT TOO BIG -- ERR                         DECL         842     A     
 DECL               =B3    B3+1        COUNT UP SUBSCRIPTS                                 DECL         843     A     
 DECL               PX6    X6                                                              DECL         844          I
          -FCC1946
 DECL               PACK   X6,B0,X3,X3                                                     FCC1946       55     A     
 DECL               ADDWD  TS.EQU      ADD SUBSC TO TABLE                                  DECL         845     A     
 DECL               SA1    B4+B1                                                           DECL         846     A     
 DECL               SB4    B4+B1       ADVANCE B4                                          DECL         847     A     
 DECL               SX3    B3-MAX.DIM-1                                                    DECL         848     A     
 DECL               SX2    X1-O.COMMA                                                      DECL         849     A     
 DECL               SB7    X1-O.)                                                          DECL         850     A     
 DECL               PL     X3,E.EQ4    IF TOO MANY SUBSCRIPTS                              DECL         851     A     
 DECL               ZR     X2,EQS5     IF COMMA, MORE SUBSCRIPTS                           DECL         852     A     
 DECL               NZ     B7,E.EQ3    IF NO RPAREN, ERROR                                 DECL         853     A     
 DECL                                                                                      DECL         854     A     
 DECL               SA4    B4+B1                                                           DECL         855     A     
 DECL               SB4    B4+B1                                                           DECL         856     A     
 DECL                                                                                      DECL         857     A     
 DECL                                                                                      DECL         858     A     
 DECL     **        END OF EQUIVALENCE ITEM.                                               DECL         859     A     
 DECL     *                (X4) = NEXT *SB* ENTRY.                                         DECL         860     A     
 DECL     *                (B4) _ COMMA, AFTER THE SYMBOL, OR                              DECL         861     A     
 DECL     *                       RPAREN, TERMINATING THE GROUP.                           DECL         862     A     
 DECL                                                                                      DECL         863     A     
 DECL      EQS6     SB7    X4-O.COMMA                                                      DECL         864     A     
 DECL               SX3    X4-O.)                                                          DECL         865     A     
 DECL               ZR     B7,EQS3     IF COMMA, GET MORE NAMES                            DECL         866     A     
 DECL               NZ     X3,E.EQ     IF NO *)* - ERROR                                   DECL         867     A     
 DECL                                                                                      DECL         868     A     
 DECL                                                                                      DECL         869     A     
 DECL     **        CLOSE OUT AN EQUIVALENCE GROUP.                                        DECL         870     A     
 DECL     *                CHECK FOR TRIVAL GROUP.                                         DECL         871     A     
 DECL     *                SYNTAX CHECK FOR COMMA OR *EOS*.                                DECL         872     A     
 DECL                                                                                      DECL         873     A     
 DECL               =B7    2                                                               DECL         874     A     
 DECL               =A4    B4+1                                                            DECL         875     A     
 DECL               GT     B6,B7,EQS7D IF MORE THAN ONE MEMBER IN GROUP                    DECL         876     A     
 DECL               WARN   E.EQ6       TRIVIAL GROUP - WARNING                             DECL         877     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1082    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL      EQS7D    SB4    B4+B1       ADVANCE B4                                          DECL         878     A     
 DECL               SB7    X4-O.COMMA                                                      DECL         879     A     
 DECL               ZR     B7,EQS2     IF COMMA                                            DECL         880     A     
 DECL               NZ     X4,E.XC1    IF NO *EOS* -- ERROR                                DECL         881     A     
 DECL               EQ     PSP         EXIT..                                              DECL         882     A     
 DECL                                                                                      DECL         883     A     
 DECL                                                                                      DECL         884     A     
 DECL     **        RETURN TO HERE WHEN AN ERROR IS FOUND.                                 DECL         885     A     
 DECL     *                SEARCH FOR AN LPAREN IN ATTEMPT TO RECOVER FROM THE             DECL         886     A     
 DECL     *                ERROR, AND RESUME SYNTAX CHECKING.                              DECL         887     A     
 DECL                                                                                      DECL         888     A     
 DECL      EQS8     SA1    B4+B1                                                           DECL         889     A     
 DECL               SB4    B4+B1                                                           DECL         890     A     
 DECL               ZR     X1,PSP      IF *EOS*                                            DECL         891     A     
 DECL               LX1    CHAR                                                            DECL         892     A     
 DECL               SX1    X1-O.(                                                          DECL         893     A     
 DECL               NZ     X1,EQS8     IF NO LPAREN                                        DECL         894     A     
 DECL               SB4    B4-B1                                                           DECL         895     A     
 DECL               EQ     EQS2        TRY FOR MORE                                        DECL         896     A     
 DECL                                                                                      DECL         897     A     
 DECL      EQSA     CON    1.0P0-2                                                         DECL         898     A     
 DECL      EQU      SPACE  4,8                                                             DECL         899     A     
 DECL     **        EQU -  PROCESS EQUIVALENCES.                                           DECL         900     A     
 DECL     *                                                                                DECL         901     A     
 DECL     *         ENTRY  (TS.EQU) CONTAINS TRANSLATED EQUIVALENCE STATEMENTS.            DECL         902     A     
 DECL     *                END OF DECLARATIVES HAS BEEN ENCOUNTERED.                       DECL         903     A     
 DECL     *                ADDRESS TABLE HAS BEEN CREATED, AND COMMON VARIABLES            DECL         904     A     
 DECL     *                            DEFINED.                                            DECL         905     A     
 DECL     *         EXIT   EQUIVALENCE ADDRESSES ASSIGNED.                                 DECL         906     A     
 DECL     *                (EQUA) = LOCAL EQUIVALENCE LENGTH                               DECL         907     A     
 DECL                                                                                      DECL         908     A     
 DECL                                                                                      DECL         909     A     
 DECL      EQU      SUBR   0                                                               DECL         910     A     
 DECL               SA2    TS=EQU                                                          DECL         911     A     
 DECL               ZR     X2,EQUX     IF NO EQUIV STATEMENTS                              DECL         912     A     
 DECL                                                                                      DECL         913     A     
 DECL      SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                                   DECL         914     A     
 DECL               SA1    CO.SNAP                                                         DECL         915     A     
 DECL               LX1    1RD                                                             DECL         916     A     
 DECL               PL     X1,EQUS0    IF DECLARATIVE SNAP NOT SELECTED                    DECL         917     A     
 DECL               PLINE  (=C=  (TRANSLATED EQUIV STATEMENTS.)=),2                        DECL         918          I
          -FEAT126A 
 DECL               PLINE  (=C=  (TRANSLATED EQUIV STATEMENTS.)=),4,2                      FEAT126A    1002     A     
 DECL      EQU.0    DUMPT  (TS.EQU)                                                        DECL         919     A     
 DECL      EQUS0    BSS    0                                                               DECL         920     A     
 DECL      SNAP=D   ENDIF                                                                  DECL         921     A     
 DECL                                                                                      DECL         922     A     
 DECL                                                                                      DECL         923     A     
 DECL     **        PHASE (0) OF EQUIVALENCE DIGESTION.                                    DECL         924     A     
 DECL     *         A.     COPY (TA.NAM) ENTRY.                                            DECL         925     A     
 DECL     *         B.     SAVE ARRAY LENGTH (FROM TP.DIM).                                DECL         926     A     
 DECL     *         C.     REDUCE SUBSCRIPTS TO A SINGLE OFFSET (IN WORDS).                DECL         927     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1083    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     *         D.     COLLAPSE TABLE TO 2-WORD ENTRIES.                               DECL         928     A     
 DECL                                                                                      DECL         929     A     
 DECL               MX6    -1                                                              DECL         930     A     
 DECL               ADDWD  TS.EQU      MARK END OF TABLE                                   DECL         931     A     
 DECL               SA5    TP.DIM                                                          DECL         932     A     
 DECL               SA4    TA.NAM                                                          DECL         933     A     
 DECL               SA3    TS.SYM                                                          DECL         934     A     
 DECL               MX0    -L.DIMLG                                                        DECL         935     A     
 DECL               SB4    X1          (B4) = FWA EQUIV SOURCE TABLE                       DECL         936     A     
 DECL               SB3    X5          (B3) = FWA DIMENSION PARAMETERS                     DECL         937     A     
 DECL               SB6    X4          (B6) = FWA ADDRESS/BLOCK TABLE                      DECL         938     A     
 DECL               SA5    X1          (A5) _ CURRENT FETCH (FROM TS.EQU)                  DECL         939     A     
 DECL               SB2    X3          (B2) = FWA SYMBOL/TAG TABLE                         DECL         940     A     
 DECL               =A7    A5-1        DUMMY STORE                                         DECL         941     A     
 DECL               EQ     EQU22       BEGIN LOOP..                                        DECL         942     A     
 DECL                                                                                      DECL         943     A     
 DECL      EQU20    UX2    X6                                                              DECL         944     A     
 DECL               BX7    X7+X2                                                           DECL         945     A     
 DECL               =A7    A0+1                                                            DECL         946     A     
 DECL                                                                                      DECL         947     A     
 DECL      EQU22    MI     X5,EQU28    IF TABLE EXHAUSTED                                  DECL         948     A     
 DECL               MX1    2                                                               FCC1946       56     A     
 DECL               BX5    -X1*X5                                                          FCC1946       57     A     
 DECL               SA1    X5+B2       FETCH TAG ENTRY                                     DECL         949     A     
 DECL               SX6    M.ARY       SET EQUDIM TO NON ZERO IF VARIABLE HAS BEEN         DECL         950     A     
 DECL               BX6    X6*X1       DIMENSIONED                                         DECL         951     A     
 DECL               SA6    EQUDIM                                                          DECL         952     A     
 DECL               =A2    A1-1        PUT CURRENT VARIABLE NAME IN FILL.                  DECL         953     A     
 DECL               BX6    X2                                                              DECL         954     A     
 DECL               SA6    FILL.       STORE VARIABLE NAME                                 DECL         955     A     
 DECL               LX1    -P.PNT                                                          DECL         956     A     
 DECL               MX3    -L.PNT                                                          DECL         957     A     
 DECL               BX2    -X3*X1      ISOLATE TP.DIM ORDINAL                              DECL         958     A     
 DECL               SA2    X2+B3       FETCH DIM LENGTH WORD                               DECL         959     A     
 DECL               SBIT   X1,LONG/PNT-1                                                   DECL         960     A     
 DECL               BX7    X0*X2       ISOLATE ARRAY SIZE                                  DECL         961     A     
 DECL               AX1    -1                                                              DECL         962     A     
 DECL               BX6    X1*X7                                                           DECL         963     A     
 DECL               IX7    X7+X6       DOUBLE SIZE IF *LONG*                               DECL         964     A     
 DECL               SA3    A2+B1                                                           DECL         965     A     
 DECL               AX2    P.NDIM      = NUMBER OF DIMENSIONS                              DECL         966     A     
 DECL               UX6,B7 X5                                                              DECL         967          I
          -FCC1946
 DECL               BX6    X5                                                              FCC1946       58     A     
 DECL               UNPK   X6,B7,X5,X0                                                     FCC1946       59     A     
 DECL               AX7    P.DIMLG-P.EQHI                                                  DECL         968     A     
 DECL               PX7    X7,B7       MERGE ROOT-FLAG W/ LENGTH (IN EQHI FIELD)           DECL         969          I
          -FCC1946
 DECL               PACK   X7,B7,X5,X0  MERGE ROOT-FLAG W/ LENGTH (IN EGHI FIELD)          FCC1946       60     A     
 DECL               MX0    -L.DIMLG                                                        FCC1946       61     A     
 DECL                                                                                      DECL         970     A     
 DECL                                                                                      DECL         971     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1084    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     **        COMPUTE EFFECTIVE SUBSCRIPT --                                         DECL         972     A     
 DECL     *         ENTRY  (X6) = TAG ORDINAL                                              DECL         973     A     
 DECL     *                (X2) = NUMBER OF DIMS                 (I)                       DECL         974     A     
 DECL     *                (X1) = 0 IF SINGLE,  -0 IF LONG.                                DECL         975     A     
 DECL     *                A3, (X3) = FIRST DIM WORD               (S(I))                  DECL         976     A     
 DECL     *         METHOD --                                                              DECL         977     A     
 DECL     *         I=1                LOOP INDEX                                          DECL         978     A     
 DECL     *         PI=1               PARTIAL PRODUCT                                     DECL         979     A     
 DECL     *         SIGMA=0            ACCUMULATOR                                         DECL         980     A     
 DECL     * ALPHA   R1 = (S(I))-1                                                          DECL         981     A     
 DECL     *         SIGMA = SIGMA+R1*PI      ADD CONTRIBUTION FOR THIS SUB                 DECL         982     A     
 DECL     *         PI = PI*D(I)                                                           DECL         983     A     
 DECL     *         I=I+1                                                                  DECL         984     A     
 DECL     *         IF I@N, _ALPHA     IF MORE SUBS TO DO                                  DECL         985     A     
 DECL     *         BIAS = SIGMA*2**((P.LONG))                                             DECL         986     A     
 DECL                                                                                      DECL         987     A     
 DECL               SB5    X2          B5 # N     (NUMBER OF DIMS)                         DECL         988     A     
 DECL               AX6    1                                                               DECL         989     A     
 DECL               SA2    X6+B6       FETCH (TA.NAM)                                      DECL         990     A     
 DECL               BX6    X2                                                              DECL         991     A     
 DECL               =A6    A7+1        1ST WORD OF XFORMED TABLE (TA.NAM)                  DECL         992     A     
 DECL               SA0    A6                                                              DECL         993     A     
 DECL               SA2    =1.P0       X2 # PI   = 1                                       DECL         994     A     
 DECL               BX1    X1*X2                                                           DECL         995     A     
 DECL               AX3    P.DIM                                                           DECL         996     A     
 DECL               BX6    0           SIGMA = 0                                           DECL         997     A     
 DECL               FX2    X1+X2                                                           DECL         998     A     
 DECL                                                                                      DECL         999     A     
 DECL      EQU25    =A5    A5+1                                                            DECL        1000     A     
 DECL               UX1,B7 X5                                                              DECL        1001          I
          -FCC1946
 DECL               MX4    12           UX1  B7,X5                                         FCC1946       62     A     
 DECL               BX1    X4*X5                                                           FCC1946       63     A     
 DECL               LX1    12                                                              FCC1946       64     A     
 DECL               SB7    X1                                                              FCC1946       65     A     
 DECL               BX1    -X4*X5                                                          FCC1946       66     A     
 DECL               PX5    X5,B7                                                           FCC1946       67     A     
 DECL               NZ     B7,EQU29    IF NO MORE SUBSCRIPTS                               DECL        1002     A     
 DECL               BX4    X6                                                              DECL        1003     A     
 DECL               BX6    X1                                                              DECL        1004     A     
 DECL               SA6    EQUDIM+1                                                        DECL        1005     A     
 DECL               BX6    X4                                                              DECL        1006     A     
 DECL               ZR     X1,EQU26    IF NOT SUBSCRIPTED                                  DECL        1007     A     
 DECL               =X1    1           SUBTRACT BIAS OF ONE                                DECL        1008     A     
 DECL               IX5    X5-X1                                                           DECL        1009     A     
 DECL               SA1    EQUDIM                                                          DECL        1010     A     
 DECL               NZ     X1,EQU26    IF DIMENSIONED                                      DECL        1011     A     
 DECL               SX5    A0          SAVE A0                                             DECL        1012     A     
 DECL               FATAL  E.EQ13      SUBSCRIPT ON NON DIMENSIONED VARIABLE               DECL        1013     A     
 DECL               SA0    X5                                                              DECL        1014     A     
 DECL               BX6    X6-X6                                                           DECL        1015     A     
 DECL               EQ     EQU27       SKIP REST OF SUBSCRIPTS                             DECL        1016     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1085    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL                                                                                      DECL        1017     A     
 DECL      EQU26    BSS    0                                                               DECL        1018     A     
 DECL               DX1    X5*X2       R1 = (S(I)-1)*PI                                    DECL        1019     A     
 DECL               BX4    -X0*X3      ISOLATE DIM   = D(I)                                DECL        1020     A     
 DECL               =B5    B5-1        I = I-1                                             DECL        1021     A     
 DECL               PX4                                                                    DECL        1022     A     
 DECL               FX6    X6+X1       SIGMA = SIGMA+R1                                    DECL        1023     A     
 DECL               DX2    X2*X4       PI = PI*D(I)                                        DECL        1024     A     
 DECL               AX3    P.DIM                                                           DECL        1025     A     
 DECL               MI     B5,EQU27    IF NO MORE DIMS                                     DECL        1026     A     
 DECL               NZ     X3,EQU25                                                        DECL        1027     A     
 DECL               =A3    A3+1        FETCH NEXT DIM PAIR                                 DECL        1028     A     
 DECL               EQ     EQU25                                                           DECL        1029     A     
 DECL                                                                                      DECL        1030     A     
 DECL      EQU27    =A5    A5+1        PASS OVER EXCESS SUBS                               DECL        1031     A     
 DECL               UX1,B7 X5                                                              DECL        1032          I
          -FCC1946
 DECL               BX1    X5                                                              FCC1946       68     A     
 DECL               UNPK   X1,B7,X2,X4                                                     FCC1946       69     A     
 DECL               ZR     B7,EQU27    IF LAST SUB NOT YET FOUND                           DECL        1033     A     
 DECL      EQU.XS   REG                                                                    DECL        1034     A     
 DECL               SX2    A0          SAVE A0                                             DECL        1035     A     
 DECL               WARN   E.EQ14      EXCESS SUBSCRIPTS IGNORED                           DECL        1036     A     
 DECL               SA0    X2                                                              DECL        1037     A     
 DECL               MX0    -L.DIMLG    RESTORE X0 FROM WARN MACRO                          DECL        1038     A     
 DECL               EQ     EQU20                                                           DECL        1039     A     
 DECL                                                                                      DECL        1040     A     
 DECL      EQU29    ZR     B5,EQU20    IF NO MORE DIMENSIONS                               DECL        1041     A     
 DECL               SA1    EQUDIM+1                                                        DECL        1042     A     
 DECL               ZR     X1,EQU20    IF NO SUBSCRIPT ON EQUIVALENCE                      DECL        1043     A     
 DECL               SX2    A0          SAVE A0                                             DECL        1044     A     
 DECL               WARN   E.EQ15      MISSING SUBSCRIPTS SET TO ONE                       DECL        1045     A     
 DECL               SA0    X2                                                              DECL        1046     A     
 DECL               MX0    -L.DIMLG    RESTORE X0 FROM WARN MACRO                          DECL        1047     A     
 DECL               EQ     EQU20                                                           DECL        1048     A     
 DECL                                                                                      DECL        1049     A     
 DECL      EQUDIM   BSS    2                                                               DECL        1050     A     
 DECL                                                                                      DECL        1051     A     
 DECL                                                                                      DECL        1052     A     
 DECL     **        PHASE 2 -- PASS 1 OF GALLER / FISHER EQUIVALENCE ALGORITHM.            DECL        1053     A     
 DECL     *         A.     MARK NEW END-OF-TABLE, AND RE-SET LENGTH.                       DECL        1054     A     
 DECL     *         B.     BEGIN.                                                          DECL        1055     A     
 DECL                                                                                      DECL        1056     A     
 DECL      EQU28    MX7    -1                                                              DECL        1057     A     
 DECL               =A7    A7+1        MARK END OF TABLE                                   DECL        1058     A     
 DECL               SB7    A7-B4                                                           DECL        1059     A     
 DECL               SHRINK TS=EQU,B7+1 RESULTANT LENGTH OF TABLE                           DECL        1060     A     
 DECL               SA0    B4          (A0) = FWA EQUIVALENCE STATEMENTS                   DECL        1061     A     
 DECL               =B2    2                                                               DECL        1062     A     
 DECL               =B5                (B5) = LENGTH OF G/F INFO IN TABLE                  DECL        1063     A     
 DECL               =B4                (B4) = POINTER TO EQUIV SOURCE INFO                 DECL        1064     A     
 DECL                                                                                      DECL        1065     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1086    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL      SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                                   DECL        1066     A     
 DECL               SA1    CO.SNAP                                                         DECL        1067     A     
 DECL               LX1    1RD                                                             DECL        1068     A     
 DECL               PL     X1,EQUS3    IF DECLARATIVE SNAP NOT SELECTED                    DECL        1069     A     
 DECL      EQU.3    DUMPT  (TS.EQU)                                                        DECL        1070     A     
 DECL      EQUS3    BSS    0                                                               DECL        1071     A     
 DECL      SNAP=D   ENDIF                                                                  DECL        1072     A     
 DECL                                                                                      DECL        1073     A     
 DECL                                                                                      DECL        1074     A     
 DECL     **        HERE WE BEGIN TO ADD AN ITEM INTO THE G/F TABLE, WHICH IS              DECL        1075     A     
 DECL     *                GROWING INTO THE SAME SPACE NOW OCCUPIED BY THE EQUIV           DECL        1076     A     
 DECL     *                STATEMENT TABLE.                                                DECL        1077     A     
 DECL                                                                                      DECL        1078     A     
 DECL      EQU3     =A5    B4+A0                                                           DECL        1079     A     
 DECL               SA4    TS.SYM                                                          FCC1332        7     A     
 DECL               SB3    X4          FWA OF SYMBOL TABLE                                 FCC1332        8     A     
 DECL               LX5    -P.TAG                                                          FCC1332        9     A     
 DECL               MX0    L.SYM                                                           FCC1946       70     A     
 DECL               SB3    X5+B3                                                           FCC1332       10     A     
 DECL               SA4    B3-B1                                                           FCC1332       11     A     
 DECL               BX6    X4                                                              FCC1332       12          I
          -FCC1946
 DECL               BX6    X0*X4                                                           FCC1946       71     A     
 DECL               SA6    FILL.       PLACE IN FILL.                                      FCC1332       13     A     
 DECL               LX5    P.TAG                                                           FCC1332       14     A     
 DECL               MX0    -L.EQUB                                                         DECL        1080     A     
 DECL               MI     X5,EQU5     IF END OF EQUIV. INPUT                              DECL        1081     A     
 DECL               =A4    A5+1                                                            DECL        1082     A     
 DECL               SB3    -B2                                                             DECL        1083     A     
 DECL               UX4,B6             (B6) = ROOT FLAG OF CURRENT                         DECL        1084          I
          -FCC1946
 DECL               UNPK   X4,B6,X3,X2   (B6) = ROOT FLAG OF CURRENT                       FCC1946       72     A     
 DECL               SB4    B4+B2                                                           DECL        1085     A     
 DECL                                                                                      DECL        1086     A     
 DECL      EQU32    SB3    B3+B2                                                           DECL        1087     A     
 DECL               SA3    B3+A0                                                           DECL        1088     A     
 DECL               GE     B3,B5,EQU38 IF END OF G/F TABLE                                 DECL        1089     A     
 DECL               BX2    X3-X5                                                           DECL        1090     A     
 DECL               AX2    P.TAG                                                           DECL        1091     A     
 DECL               NZ     X2,EQU32    IF NO MATCH IN G/F                                  DECL        1092     A     
 DECL               BX4    -X0*X4      ISOLATE SUBSCRIPT                                   DECL        1093     A     
 DECL                                                                                      DECL        1094     A     
 DECL     **        CURRENT TAG IS FOUND TO BE ALREADY IN THE G/F TABLE.                   DECL        1095     A     
 DECL     *                CHAIN BACK UNTIL ITS ROOT IS FOUND, ADJUSTING SUBCRIPT          DECL        1096     A     
 DECL     *                AS WE GO.                                                       DECL        1097     A     
 DECL                                                                                      DECL        1098     A     
 DECL      EQU36    =A2    A3+1                                                            DECL        1099     A     
 DECL               UX2,B7             EXTRACT ROOT FLAG                                   DECL        1100          I
          -FCC1946
 DECL               UNPK   X2,B7,X5,X6   EXTRACT ROOT FLAG                                 FCC1946       73     A     
 DECL               EQ     B7,B3,EQU4  IF THIS IS A ROOT                                   DECL        1101     A     
 DECL               LX3    -L.RELADD                                                       DECL        1102     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1087    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SB3    B7                                                              DECL        1103     A     
 DECL               AX3    -L.RELADD   EXTEND SIGN                                         DECL        1104     A     
 DECL               IX4    X3+X4                                                           DECL        1105     A     
 DECL               SA3    B7+A0                                                           DECL        1106     A     
 DECL               EQ     EQU36                                                           DECL        1107     A     
 DECL                                                                                      DECL        1108     A     
 DECL     **        CURRENT TAG NOT YET IN G/F TABLE.  CREATE AN ENTRY FOR IT.             DECL        1109     A     
 DECL                                                                                      DECL        1110     A     
 DECL      EQU38    BX3    X0*X4       LENGTH                                              DECL        1111     A     
 DECL               SB5    B5+B2       INCREMENT LENGTH OF G/F TABLE.                      DECL        1112     A     
 DECL               LX6    X5                                                              DECL        1113     A     
 DECL               PX7    X3,B3       HI = LEN,  LO = 0,  LINK = SELF.                    DECL        1114          I
          -FCC1946
 DECL               BX7    X3                                                              FCC1946       74     A     
 DECL               PACK   X7,B3,X2,X5   HI = LEN, LO = 0, LINK = SELF.                    FCC1946       75     A     
 DECL               SA6    B3+A0                                                           DECL        1115     A     
 DECL               =A7    A6+1                                                            DECL        1116     A     
 DECL               BX4    -X0*X4      ISOLATE SUBSCRIPT                                   DECL        1117     A     
 DECL                                                                                      DECL        1118     A     
 DECL     **        CURRENT TAG IS NOW IN THE G/F TABLE, AND WE KNOW ITS DISTANCE          DECL        1119     A     
 DECL     *                FROM ITS ROOT.   IF IT IS THE FIRST MEMBER OF A GROUP,          DECL        1120     A     
 DECL     *                REMEMBER IT AND RETURN TO PROCESS THE NEXT ONE.                 DECL        1121     A     
 DECL     *                (B3) = G/F TABLE ORDINAL (T).                                   DECL        1122     A     
 DECL     *                (B6) = ROOT FLAG.                                               DECL        1123     A     
 DECL     *                (X4) = SUBSCRIPT.                                               DECL        1124     A     
 DECL                                                                                      DECL        1125     A     
 DECL      EQU4     NE     B6,B1,EQU42 IF NOT A NEW GROUP                                  DECL        1126     A     
 DECL               PX6    X4,B3                                                           DECL        1127          I
          -FCC1946
 DECL               BX6    X4                                                              FCC1946       76     A     
 DECL               PACK   X6,B3,X4,X5                                                     FCC1946       77     A     
 DECL               SA6    EQUA                                                            DECL        1128     A     
 DECL               EQ     EQU3                                                            DECL        1129     A     
 DECL                                                                                      DECL        1130     A     
 DECL     **        WHEN IT DOES NOT BEGIN A GROUP, LINK IT INTO THE G/F TABLE.            DECL        1131     A     
 DECL     *                (B3) # T    G/F TABLE ORDINAL                                   DECL        1132     A     
 DECL     *                (X4) # D    SUBSCRIPT                                           DECL        1133     A     
 DECL                                                                                      DECL        1134     A     
 DECL      EQU42    SA2    EQUA                                                            DECL        1135     A     
 DECL               UX3,B6 X2          B6 = T0                                             DECL        1136          I
          -FCC1946
 DECL               BX3    X2                                                              FCC1946       78     A     
 DECL               UNPK   X3,B6,X5,X2   B6 = TO                                           FCC1946       79     A     
 DECL               SX3    X3                                                              FCC1946       80     A     
 DECL     ,                            X3 = D0                                             DECL        1137     A     
 DECL               IX5    X3-X4       X5 = DIST = D0 - Y                                  DECL        1138     A     
 DECL               GT     B3,B6,EQU44 IF CURRENT OCCURS LATER THAN THIS ROOT              DECL        1139     A     
 DECL               EQ     B3,B6,EQU81 IF CURRENT ALREADY LINKED TO THIS ROOT              DECL        1140     A     
 DECL                                                                                      DECL        1141     A     
 DECL     **        IF CURRENT OCCURS BEFORE ITS ROOT, SWITCH THEM SO TABLE                DECL        1142     A     
 DECL     *                ALWAYS LINKS UPWARD.                                            DECL        1143     A     
 DECL                                                                                      DECL        1144     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1088    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SB7    B3          W = T                                               DECL        1145     A     
 DECL               SB3    B6          T = T0                                              DECL        1146     A     
 DECL               BX5    -X5         DIST = -DIST                                        DECL        1147     A     
 DECL               SB6    B7          T0 = W                                              DECL        1148     A     
 DECL               PX6    X4,B7       D0 = Y                                              DECL        1149          I
          -FCC1946
 DECL               BX6    X4                                                              FCC1946       81     A     
 DECL               PACK   X6,B7,X3,X4   DO = Y                                            FCC1946       82     A     
 DECL               SA6    A2                                                              DECL        1150     A     
 DECL                                                                                      DECL        1151     A     
 DECL     **        BEFORE ADDING TO THE TREE, CHECK FOR CONSISTENCY.                      DECL        1152     A     
 DECL     *         NOTE   R(T) = ( BLOCK(T), RELADD(T) )                                  DECL        1153     A     
 DECL                                                                                      DECL        1154     A     
 DECL      EQU44    SA3    B3+A0                                                           DECL        1155     A     
 DECL               MX4    L.TAG                                                           DECL        1156     A     
 DECL               BX1    -X4*X3      R(T)                                                DECL        1157     A     
 DECL               SA2    B6+A0       B6 = (T0)                                           DECL        1158     A     
 DECL               ZR     X1,EQU48    IF ELEMENT DOES NOT HAVE AN ADDRESS                 DECL        1159          I
          -FCC1573X 
 DECL               BX6    -X4*X2      X6= R(T0)                                           FCC1573X       9     A     
 DECL               NZ     X1,EQU46    IF ELEMENT HAS AN ADDRESS                           FCC1573X      10     A     
 DECL               NZ     X6,EQU86    IF ITS ROOT HAD AN ADDRESS                          FCC1573X      11     A     
 DECL               EQ     EQU48                                                           FCC1573X      12     A     
 DECL                                                                                      DECL        1160     A     
 DECL     **        CURRENT ELEMENT HAS AN ADDRESS -- CHECK ITS ROOT.                      DECL        1161     A     
 DECL                                                                                      DECL        1162     A     
 DECL               BX6    -X4*X2      X6 = R(T0)                                          DECL        1163          I
          -FCC1573X 
 DECL               NZ     X6,EQU84    IF ITS ROOT HAD AN ADDRESS                          DECL        1164          I
          -FCC1573X 
 DECL      EQU46    NZ     X6,EQU84    IF ITS ROOT HAD AN ADDRESS                          FCC1573X      13     A     
 DECL                                                                                      DECL        1165     A     
 DECL     **        ROOT HAS NO ADDRESS.                                                   DECL        1166     A     
 DECL     *                SET R(T0) = R(T) - DIST                                         DECL        1167     A     
 DECL                                                                                      DECL        1168     A     
 DECL               MX0    -L.RELADD                                                       DECL        1169     A     
 DECL               BX6    X0*X1       X6 = BLOCK (T)                                      DECL        1170     A     
 DECL               LX1    -L.RELADD                                                       DECL        1171     A     
 DECL               AX1    -L.RELADD   EXTEND SIGN                                         DECL        1172     A     
 DECL               IX7    X1-X5       = R(T) - DIST                                       DECL        1173     A     
 DECL               BX1    -X0*X7      CLEAR SIGN EXTENSION                                DECL        1174          I
          -FCC1573X 
 DECL               MI     X7,EQU87    IF RA(T) - DIST <0                                  FCC1573X      14     A     
 DECL               SA1    A2+1        T0                                                  FCCA475        7     A     
 DECL               LX1    -L.RELADD                                                       FCCA475        8     A     
 DECL               AX1    -L.RELADD                                                       FCCA475        9     A     
 DECL               IX1    X7-X1       X1 = D-LOTO                                         FCCA475       10     A     
 DECL               MI     X1,EQU88    IF RA(T0) < 0                                       FCCA475       11     A     
 DECL                                                                                      FCC1573X      15     A     
 DECL      EQU47    BX1    -X0*X7      CLEAR SIGN EXTENSION                                FCC1573X      16     A     
 DECL               IX7    X2+X6                                                           DECL        1175     A     
 DECL               BX6    X7+X1                                                           DECL        1176     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1089    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SA6    A2          RESET R(T0) = R(T) + DIST                           DECL        1177     A     
 DECL                                                                                      DECL        1178     A     
 DECL                                                                                      DECL        1179     A     
 DECL     **        ADD ELEMENT TO PROPER TREE.                                            DECL        1180     A     
 DECL     *         SET    R(T) = DIST                                                     DECL        1181     A     
 DECL     *                S(T) = T0                                                       DECL        1182     A     
 DECL     *                HI(T0) = MAX (HI(T0), HI(T)+DIST)                               DECL        1183     A     
 DECL     *                LO(T0) = MAX (LO(T0), LO(T)-DIST)                               DECL        1184     A     
 DECL                                                                                      DECL        1185     A     
 DECL     *         ENTRY  (B3) = T                                                        DECL        1186     A     
 DECL     *                (B6) = T0                                                       DECL        1187     A     
 DECL     *                (X3) = CURRENT (T)                                              DECL        1188     A     
 DECL     *                (X4) = MX4 L.TAG                                                DECL        1189     A     
 DECL     *                (X5) = DIST                                                     DECL        1190     A     
 DECL     *                (A2) _ T0                                                       DECL        1191     A     
 DECL     *                (A3) _ T                                                        DECL        1192     A     
 DECL                                                                                      DECL        1193     A     
 DECL      EQU48    BX1    X4*X3       ISOLATE TAG                                         DECL        1194     A     
 DECL               =A3    A3+1        = T  (S, HI, LO)                                    DECL        1195     A     
 DECL               MX4    -L.EQLO                                                         DECL        1196     A     
 DECL               =A2    A2+1        = T0 (S, HI, LO)                                    DECL        1197     A     
 DECL               BX0    -X4*X5                                                          DECL        1198     A     
 DECL               SB7    60-L.EQLO                                                       DECL        1199     A     
 DECL               IX6    X0+X1       R(T) = DIST                                         DECL        1200          I
          -FCC1946
 DECL               PX7    X3,B6       LINK(T) = T0                                        DECL        1201          I
          -FCC1946
 DECL               BX7    X3                                                              FCC1946       83     A     
 DECL               PACK   X7,B6,X4,X6   LINK(T) = TO                                      FCC1946       84     A     
 DECL               IX6    X0+X1         R(T) = DIST                                       FCC1946       85     A     
 DECL               =A6    A3-1        RESET T (TAG, BLOCK, R)                             DECL        1202     A     
 DECL                                                                                      DECL        1203     A     
 DECL               LX3    -L.EQLO     POSITION SIGN BITS OF (EQLO) FIELDS                 DECL        1204     A     
 DECL               LX2    -L.EQLO                                                         DECL        1205     A     
 DECL               SA7    A3          RESET T (LINK, HI, LO)                              DECL        1206     A     
 DECL               AX0    X3,B7                                                           DECL        1207     A     
 DECL               IX1    X0-X5       = LO(T) - DIST                                      DECL        1208     A     
 DECL               AX7    X2,B7                                                           DECL        1209     A     
 DECL               MX6    X7+X1       X6 = MAX ( LO(T0), LO(T)-DIST )                     DECL        1210     A     
 DECL                                                                                      DECL        1211     A     
 DECL               LX3    -L.EQHI     POSITION SIGN BITS OF (EQHI) FIELDS                 DECL        1212     A     
 DECL               IFNE   TEST,,1     (X6) SHOULD NEVER BE NEGATIVE                       DECL        1213     A     
 DECL               MI     X6,EQU99S                                                       DECL        1214     A     
 DECL               LX2    -L.EQHI                                                         DECL        1215     A     
 DECL               AX3    B7                                                              DECL        1216     A     
 DECL               IX0    X3+X5       = HI(T) + DIST                                      DECL        1217     A     
 DECL               AX7    X2,B7                                                           DECL        1218     A     
 DECL               PX1    X6,B6       RESTORE LINK                                        DECL        1219          I
          -FCC1946
 DECL               BX1    X6                                                              FCC1946       86     A     
 DECL               PACK   X1,B6,X3,X5                                                     FCC1946       87     A     
 DECL               MX3    X7+X0       X3 = MAX ( HI(T0), HI(T)+DIST )                     DECL        1220     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1090    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               IFNE   TEST,,1     (X3) SHOULD NEVER BE NEGATIVE                       DECL        1221     A     
 DECL               MI     X3,EQU99S                                                       DECL        1222     A     
 DECL               LX3    P.EQHI                                                          DECL        1223     A     
 DECL                                                                                      DECL        1224     A     
 DECL               BX7    X1+X3                                                           DECL        1225     A     
 DECL               SA7    A2          RESET  (T) (S, HI, LO)                              DECL        1226     A     
 DECL               EQ     EQU3                                                            DECL        1227     A     
 DECL                                                                                      DECL        1228     A     
 DECL      EQU5     BSS    0                                                               DECL        1229     A     
 DECL               SX6    B5                                                              DECL        1230          I
          -FCC0813
 DECL               SA6    TS=EQU                                                          DECL        1231          I
          -FCC0813
 DECL               SHRINK TS=EQU,B5                                                       FCC0813      163     A     
 DECL                                                                                      DECL        1232     A     
 DECL      SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                                   DECL        1233     A     
 DECL               SA1    CO.SNAP                                                         DECL        1234     A     
 DECL               LX1    1RD                                                             DECL        1235     A     
 DECL               PL     X1,EQUS5    IF DECLARATIVE SNAP NOT SELECTED                    DECL        1236     A     
 DECL      EQU.5    DUMPT  (TS.EQU)                                                        DECL        1237     A     
 DECL      EQUS5    BSS    0                                                               DECL        1238     A     
 DECL      SNAP=D   ENDIF                                                                  DECL        1239     A     
 DECL                                                                                      DECL        1240     A     
 DECL                                                                                      DECL        1241     A     
 DECL     **        PHASE 3 -- GALLER / FISHER ADDRESS ASSIGNMENT.                         DECL        1242     A     
 DECL     *                WE NOW DO G/F ADDRESS ASSIGNMENT, RELATIVE TO                   DECL        1243     A     
 DECL     *         A (MYTHICAL) BLOCK.  THE *END* PROCESSOR WILL RELOCATE OUR             DECL        1244     A     
 DECL     *         ADDRESSES TO THE ACTUAL LOCAL-VARIABLE BLOCK.  VARIABLES IN            DECL        1245     A     
 DECL     *         COMMON, OF COURSE, ARE COMPLETELY ASSIGNED HERE.  COMMON BLOCK         DECL        1246     A     
 DECL     *         LENGTHS MAY HAVE TO BE EXTENDED.                                       DECL        1247     A     
 DECL     *         VARIABLES WHICH ARE IN COMMON NOW, BECAUSE OF EQUIVALENCING,           DECL        1248     A     
 DECL     *         MUST BE SO MARKED IN THE SYMBOL TABLE.                                 DECL        1249     A     
 DECL                                                                                      DECL        1250     A     
 DECL     *         ENTRY  (B5) = LENGTH OF (TS=EQU)                                       DECL        1251     A     
 DECL     *                (B2) = 2                                                        DECL        1252     A     
 DECL     *                (A0) = FWA (TS.EQU)                                             DECL        1253     A     
 DECL                                                                                      DECL        1254     A     
 DECL               SA1    TA.NAM                                                          DECL        1255     A     
 DECL               SA2    TS.SYM                                                          DECL        1256     A     
 DECL               BX5    0           X5 = LOCAL EQUIV-BLOCK LENGTH                       DECL        1257     A     
 DECL               =B4    0                                                               DECL        1258     A     
 DECL               MX0    L.TAG                                                           DECL        1259     A     
 DECL               SB6    X1          B6 = FWA (TA.NAM)                                   DECL        1260     A     
 DECL               =B7    X2          B7 = FWA (TS.SYM)                                   DECL        1261     A     
 DECL               EQ     EQU54       BEGIN..                                             DECL        1262     A     
 DECL                                                                                      DECL        1263     A     
 DECL                                                                                      DECL        1264     A     
 DECL     *         LOOP FOLDS TO HERE --                                                  DECL        1265     A     
 DECL     *         ENTRY  (X6) = NEW (TA.NAM) ENTRY                                       DECL        1266     A     
 DECL     *                (X2) = TAG ORDINAL, BITS (59-42).                               DECL        1267     A     
 DECL                                                                                      DECL        1268     A     
 DECL      EQU52    AX2    P.TAG+1     = 1/2 * (TAG ORDINAL)                               DECL        1269     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1091    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SB4    B4+B2       I=I+2                                               DECL        1270     A     
 DECL               SB5    B5-B2                                                           DECL        1271     A     
 DECL               SA6    X2+B6       SET NEW ADDRESS                                     DECL        1272     A     
 DECL                                                                                      DECL        1273     A     
 DECL      EQU54    ZR     B5,EQU68    IF END OF TABLE                                     DECL        1274     A     
 DECL               SA2    B4+A0                                                           DECL        1275     A     
 DECL               =A4    A2+1                                                            DECL        1276     A     
 DECL               UX3,B3 X4          B3 = LINK(I)                                        DECL        1277          I
          -FCC1946
 DECL               BX3    X4                                                              FCC1946       88     A     
 DECL               UNPK   X3,B3,X7,X1   B3 = LINK(I)                                      FCC1946       89     A     
 DECL               BX1    -X0*X2      = R(I)                                              DECL        1278     A     
 DECL               NE     B3,B4,EQU60  IF NO ROOT                                         DECL        1279     A     
 DECL               BX7    0                                                               DECL        1280     A     
 DECL               SA7    A4          ERASE LINK WORD                                     DECL        1281     A     
 DECL               ZR     X1,EQU58    IF LOCAL (NOT IN COMMON) CLASS                      DECL        1282     A     
 DECL                                                                                      DECL        1283     A     
 DECL     **        ROOT OF A NON-LOCAL (COMMON) CLASS.                                    DECL        1284     A     
 DECL     *         SET    TA.NAM(ADDRESS) = R(I)                                          DECL        1285     A     
 DECL     *                TS.BLK(BLOCK LENGTH) = MAX ( (BLOCK LENGTH), R(I)+HI(I)         DECL        1286     A     
 DECL     *                TS.SYM(CLASS) = + M.DEF + M.COMM                                DECL        1287     A     
 DECL                                                                                      DECL        1288     A     
 DECL     *                            IF ( (REL(I)-LO(I)) .LT. 0) THEN N.F.G.             DECL        1289     A     
 DECL               SA1    TS.BLK                                                          DECL        1290     A     
 DECL               LX4    -P.EQHI                                                         DECL        1291     A     
 DECL               BX3    X2                                                              DECL        1292     A     
 DECL               =B3    X1+1                                                            DECL        1293     A     
 DECL               LX3    -P.BLOCK                                                        DECL        1294     A     
 DECL               SA3    X3+B3       FETCH (TS.BLK) ENTRY                                DECL        1295     A     
 DECL               BX6    X2          ADDR = R(I)                                         DECL        1296     A     
 DECL               MX7    -L.RELADD                                                       DECL        1297     A     
 DECL               IX1    X2+X4                                                           DECL        1298     A     
 DECL               BX4    -X7*X1      ISOLATE R(I) + HI(I)                                DECL        1299     A     
 DECL               BX1    X3                                                              DECL        1300     A     
 DECL               BX3    -X7*X3      ISOLATE BLOCK LENGTH                                DECL        1301     A     
 DECL               MX7    -L.LVLFLD                                                       DECL        1302     A     
 DECL               LX7    P.LVLFLD                                                        DECL        1303     A     
 DECL               BX1    -X7*X1      ISOLATE LEVEL DOPE                                  DECL        1304     A     
 DECL               MX7    -L.BLEN                                                         DECL        1305     A     
 DECL               BX3    -X7*X3      ISOLATE BLOCK LENGTH                                DECL        1306     A     
 DECL               MX7    X3+X4       = MAX ( (BLK LEN), (R+HI) )                         DECL        1307     A     
 DECL               BX7    X7+X1       PUT LEVEL DOPE BACK                                 DECL        1308     A     
 DECL               SA7    A3                                                              DECL        1309     A     
 DECL               SX7    M.DEF+M.COMM+M.EQUIV                                            DECL        1310          I
          -FCC1247
 DECL               SX7    M.DEF+M.COMM+M.EQUIV+M.VAR                                      FCC1247       10     A     
 DECL               EQ     EQU66       CONTINUE.. TO SET (TS.SYM)                          DECL        1311     A     
 DECL                                                                                      DECL        1312     A     
 DECL     **        ROOT OF A LOCAL (NON-COMMON) CLASS.                                    DECL        1313     A     
 DECL     *         INCREMENT LOCAL-EQUIVALENCE-SIZE --                                    DECL        1314     A     
 DECL     *                (X5) = (X5) + HI(I) + LO(I)                                     DECL        1315     A     
 DECL     *         SET ADDRESS --                                                         DECL        1316     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1092    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     *                BLOCK = 1S17                                                    DECL        1317     A     
 DECL     *                RELADD = LO(I) + (X5)                                           DECL        1318     A     
 DECL                                                                                      DECL        1319     A     
 DECL      A        DECMIC P.BLOCK+17                                                      DECL        1320     A     
 DECL      EQU58    MX7    -L.EQLO                                                         DECL        1321     A     
 DECL               BX2    X0*X2       ISOLATE TAG ORDINAL                                 DECL        1322     A     
 DECL               SA1    =1S"A"      FAKE BLOCK NUMBER OF 1S17                           DECL        1323     A     
 DECL               BX6    -X7*X4      ISOLATE LO(I)                                       DECL        1324     A     
 DECL               AX4    P.EQHI                                                          DECL        1325     A     
 DECL               BX3    -X7*X4      ISOLATE HI(I)                                       DECL        1326     A     
 DECL               IX5    X6+X5                                                           DECL        1327     A     
 DECL               BX1    X5+X1       = 18/ 0,    18/ 1S17,  24/ ((X5)+LO(I))             DECL        1328     A     
 DECL               IX5    X5+X3                                                           DECL        1329     A     
 DECL               BX6    X2+X1       = 18/ TAG,  18/ 1S17,  24/ ((X5)+LO(I))             DECL        1330     A     
 DECL               SA6    A2                                                              DECL        1331     A     
 DECL               SX7    M.DEF+M.EQUIV                                                   DECL        1332          I
          -FCC1247
 DECL               SX7    M.DEF+M.EQUIV+M.VAR                                             FCC1247       11     A     
 DECL               EQ     EQU66                                                           DECL        1333     A     
 DECL                                                                                      DECL        1334     A     
 DECL     **        NON-ROOT MEMBERS --                                                    DECL        1335     A     
 DECL     *         SET    TA.NAM(ADDRESS) = R(I) = R(ROOT) + R(I)                         DECL        1336     A     
 DECL     *                TS.SYM(CLASS) = + M.DEF + M.EQUIV                               DECL        1337     A     
 DECL                                                                                      DECL        1338     A     
 DECL      EQU60    BSS    0                                                               DECL        1339     A     
 DECL               BX3    X2                                                              DECL        1340     A     
 DECL               SA4    B3+A0                                                           DECL        1341     A     
 DECL               BX6    X2                                                              DECL        1342          I
          -FCC1790X 
 DECL               BX6    X4                                                              FCC1790X       5     A     
 DECL               LX3    -L.RELADD                                                       DECL        1343     A     
 DECL               BX1    -X0*X4      ISOLATE (R(ROOT))                                   DECL        1344     A     
 DECL               AX3    -L.RELADD                                                       DECL        1345     A     
 DECL               BX7    X0*X2                                                           DECL        1346     A     
 DECL               SBIT   X6,BLOCK/COMM-17  FAKE BLOCK NUMBER TO P.COMM                   DECL        1347     A     
 DECL               IX1    X3+X1       = R(ROOT) + R(I)                                    DECL        1348     A     
 DECL               SX4    M.COMM                                                          DECL        1349     A     
 DECL               BX3    X4*X6                                                           DECL        1350          I
          -FCC1790X 
 DECL               BX3    -X6*X4                                                          FCC1790X       6     A     
 DECL               IX6    X7+X1                                                           DECL        1351     A     
 DECL               SX7    X3+M.DEF+M.EQUIV                                                DECL        1352          I
          -FCC1247
 DECL               SX7    X3+M.DEF+M.EQUIV+M.VAR                                          FCC1247       12     A     
 DECL               SA6    A2          RESET R(I)                                          DECL        1353     A     
 DECL                                                                                      DECL        1354     A     
 DECL      EQU66    BSS    0           SET (M.COMM + M.DEF)                                DECL        1355     A     
 DECL                                  (X7) = CLASS BITS                                   DECL        1356     A     
 DECL               LX2    -P.TAG                                                          DECL        1357     A     
 DECL               SA1    X2+B7       FETCH TAG TABLE ENTRY                               DECL        1358     A     
 DECL               LX2    P.TAG       RESTORE (X2)                                        DECL        1359     A     
 DECL               BX7    X1+X7                                                           DECL        1360     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1093    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SA7    A1                                                              DECL        1361     A     
 DECL               EQ     EQU52       LOOP..                                              DECL        1362     A     
 DECL                                                                                      DECL        1363     A     
 DECL      EQU68    BSS    0           FINIS                                               DECL        1364     A     
 DECL               BX6    X5                                                              DECL        1365     A     
 DECL               SA6    EQUA        SAVE (LOCAL-EQUIVALENCE-LENGTH) FOR *END*           DECL        1366     A     
 DECL      SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                                   DECL        1367     A     
 DECL               SA1    CO.SNAP                                                         DECL        1368     A     
 DECL               LX1    1RD                                                             DECL        1369     A     
 DECL               PL     X1,EQUS7    IF DECLARATIVE SNAP NOT SELECTED                    DECL        1370     A     
 DECL      EQU.7    DUMPT  (TS.EQU)                                                        DECL        1371     A     
 DECL      EQUS7    BSS    0                                                               DECL        1372     A     
 DECL      SNAP=D   ENDIF                                                                  DECL        1373     A     
 DECL                                                                                      DECL        1374     A     
 DECL                                                                                      DECL        1375     A     
 DECL     **        WHILE WE STILL HAVE THE EQUIVALENCE CLASSES REPRESENTED AS A           DECL        1376     A     
 DECL     *         FOREST, WE SORT OUT THE  INTERACTION OF EQUIVALENCE AND LEVEL.         DECL        1377     A     
 DECL                                                                                      DECL        1378     A     
 DECL               RJ     ELV         SPREAD LEVEL SPECS THROUGH EQUIV. CLASSES           DECL        1379     A     
 DECL                                                                                      DECL        1380     A     
 DECL                                                                                      DECL        1381     A     
 DECL      SNAP=B   IFNE   TEST                                                            DECL        1382     A     
 DECL               SA3    CO.SNAP                                                         DECL        1383     A     
 DECL               LX3    1RB                                                             DECL        1384     A     
 DECL               PL     X3,EQU7S    IF BLOCK TABLE SNAP NOT SELECTED                    DECL        1385     A     
 DECL               DUMPT  (TS.BLK)                                                        DECL        1386     A     
 DECL      EQU7S    BSS    0                                                               DECL        1387     A     
 DECL      SNAP=B   ENDIF                                                                  DECL        1388     A     
 DECL                                                                                      DECL        1389     A     
 DECL     **        PHASE 4 - TELL THE REST OF THE COMPILER ABOUT EQUIVALENCING.           DECL        1390     A     
 DECL     *                REFORMAT (TP.EQU) INTO SOMETHING INTELLIGIBLE.                  DECL        1391     A     
 DECL     *                SEE TABLE DESCRIPTION OF (TP.EQU) FOR DETAILS.                  DECL        1392     A     
 DECL     *         MAINLY, WE HAVE TO THROW AWAY ALL THE ROOT CELLS, AND COLLAPSE         DECL        1393     A     
 DECL     *         THE TABLE TO ONE-WORD ENTRIES.                                         DECL        1394     A     
 DECL                                                                                      DECL        1395     A     
 DECL     *         ENTRY  (A0) = FWA (TS.EQU)                                             DECL        1396     A     
 DECL     *                (B2) = 2                                                        DECL        1397     A     
 DECL                                                                                      DECL        1398     A     
 DECL               SA1    TP=EQU                                                          DECL        1399     A     
 DECL               MX0    -L.BLOCK                                                        DECL        1400     A     
 DECL               SB5    X1                                                              DECL        1401     A     
 DECL               SB4    B5-B2                                                           DECL        1402     A     
 DECL               =B6    0           (B6) WILL BE NEW LENGTH                             DECL        1403     A     
 DECL               LX0    P.BLOCK                                                         DECL        1404     A     
 DECL               SA2    EQUB                                                            DECL        1405     A     
 DECL               SB5    A0+B5       (B5) = CURRENT LWA+1 OF TABLE                       DECL        1406     A     
 DECL                                                                                      DECL        1407     A     
 DECL      EQU7     SA4    B4+A0       FETCH LAST TABLE ENTRY                              DECL        1408     A     
 DECL               ZR     B4,EQU78    IF TABLE EXHAUSTED                                  DECL        1409     A     
 DECL               =A3    A4+1                                                            DECL        1410     A     
 DECL               SB4    B4-B2                                                           DECL        1411     A     
 DECL               UX7,B7 X3                                                              DECL        1412          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1094    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
          -FCC1946
 DECL               BX7    X3                                                              FCC1946       90     A     
 DECL               UNPK   X7,B7,X5,X6                                                     FCC1946       91     A     
 DECL               ZR     X3,EQU7     IF ROOT, SKIP IT                                    DECL        1413     A     
 DECL                                                                                      DECL        1414     A     
 DECL      EQU74    SA1    A0+B7       FETCH ROOT                                          DECL        1415     A     
 DECL               =A3    A1+1                                                            DECL        1416     A     
 DECL               UX7,B7 X3                                                              DECL        1417          I
          -FCC1946
 DECL               BX7     X3                                                             FCC1946       92     A     
 DECL               UNPK   X7,B7,X5,X6                                                     FCC1946       93     A     
 DECL               BX5    X0*X4       TRASH BLOCK NUMBER                                  DECL        1418     A     
 DECL               NZ     X3,EQU74    IF NOT YET A REAL ROOT                              DECL        1419     A     
 DECL                                                                                      DECL        1420     A     
 DECL               IX5    X5+X7                                                           DECL        1421     A     
 DECL               =B6    B6+1        COUNT NEW LENGTH                                    DECL        1422     A     
 DECL               LX1    -P.TAG                                                          DECL        1423     A     
 DECL               BX4    -X0*X1      ISOLATE ROOT TAG-ORDINAL                            DECL        1424     A     
 DECL               IX6    X5+X4                                                           DECL        1425     A     
 DECL               SA6    B5-B6                                                           DECL        1426     A     
 DECL               EQ     EQU7        LOOP..                                              DECL        1427     A     
 DECL                                                                                      DECL        1428     A     
 DECL      EQU78    SX6    B6                                                              DECL        1429     A     
 DECL               SX7    B5-B6       NEW ORIGIN = OLD (LWA+1) - (NEW LENGTH)             DECL        1430     A     
 DECL               SA6    TP=EQU                                                          DECL        1431          I
          -FCC0813
 DECL               SHRINK TP=EQU,X6                                                       FCC0813      164     A     
 DECL               SA7    TP.EQU                                                          DECL        1432     A     
 DECL                                                                                      DECL        1433     A     
 DECL      SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                                   DECL        1434     A     
 DECL               SA1    CO.SNAP                                                         DECL        1435     A     
 DECL               LX1    1RD                                                             DECL        1436     A     
 DECL               PL     X1,EQUS8    IF DECLARATIVE SNAP NOT SELECTED                    DECL        1437     A     
 DECL               PLINE  (=C=  (FINAL EQUIV TABLE.)=),2                                  DECL        1438          I
          -FEAT126A 
 DECL               PLINE  (=C=  (FINAL EQUIV TABLE.)=),3,2                                FEAT126A    1003     A     
 DECL      EQU.8    DUMPT  (TS.EQU)                                                        DECL        1439     A     
 DECL      EQUS8    BSS    0                                                               DECL        1440     A     
 DECL      SNAP=D   ENDIF                                                                  DECL        1441     A     
 DECL                                                                                      DECL        1442     A     
 DECL               EQ     EQUX        EXIT..                                              DECL        1443     A     
 DECL                                                                                      DECL        1444     A     
 DECL                                                                                      DECL        1445     A     
 DECL     **        CHECK / PROCESS REDUNDANCY / CONTRADICTION ERRORS.                     DECL        1446     A     
 DECL                                                                                      DECL        1447     A     
 DECL      EQU81    NZ     X5,EQU82    IF CONTRADICTION                                    DECL        1448     A     
 DECL               WARN   E.EQ11      REDUNDANT SPECIFICATIONS                            DECL        1449     A     
 DECL               EQ     EQU3                                                            DECL        1450     A     
 DECL                                                                                      DECL        1451     A     
 DECL      EQU82    FATAL  E.EQ12      CONFLICTING SPECS.                                  DECL        1452     A     
 DECL               EQ     EQU3                                                            DECL        1453     A     
 DECL                                                                                      DECL        1454     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1095    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL      EQU84    IX1    X6-X2                                                           DECL        1455          I
          -FCC1332
 DECL      EQU84    IX1    X1-X6                                                           FCC1332       15     A     
 DECL               IX1    X1-X5                                                           FCC1332       16     A     
 DECL               NZ     X1,EQU85    IF CONTRADICTION                                    DECL        1456     A     
 DECL               WARN   E.EQ11      REDUNDANT SPECIFICATION                             DECL        1457     A     
 DECL               EQ     EQU48                                                           DECL        1458     A     
 DECL                                                                                      DECL        1459     A     
 DECL      EQU85    FATAL  E.EQ12      CONFLICTING SPECS.                                  DECL        1460     A     
 DECL               EQ     EQU48                                                           DECL        1461     A     
 DECL                                                                                      DECL        1462     A     
 DECL      EQU86    BSS    0                                                               DECL        1463          I
          -FCC1573X 
 DECL      EQU.86   REG                                                                    DECL        1464          I
          -FCC1573X 
 DECL               EQ     EQU3                                                            DECL        1465          I
          -FCC1573X 
 DECL     **        CHECK/ PROCESS ILLLGAL COMMON BLOCK EXTENSION ERROR                    FCC1573X      17     A     
 DECL                                                                                      FCC1573X      18     A     
 DECL     *         TEST ILLEGAL EXTENSION BY MEMBER                                       FCC1573X      19     A     
 DECL                                                                                      FCC1573X      20     A     
 DECL      EQU86    LX6    -L.RELADD                                                       FCC1573X      21     A     
 DECL               AX6    -L.RELADD   SIGN EXTEND RA(T0)                                  FCC1573X      22     A     
 DECL               IX7    X6+X5       RA(T0) + DIST                                       FCC1573X      23     A     
 DECL               PL     X7,EQU48    IF RA(T0) + DIST > 0                                FCC1573X      24     A     
 DECL               BX5    -X6         DIST= -RA(T0)                                       FCC1573X      25     A     
 DECL               FATAL  E.EQ16      ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN            FCC1573X      26     A     
 DECL               EQ     EQU48                                                           FCC1573X      27     A     
 DECL                                                                                      FCC1573X      28     A     
 DECL     *         ILLEGAL EXTENSION BY ROOT                                              FCC1573X      29     A     
 DECL                                                                                      FCC1573X      30     A     
 DECL      EQU87    BX5    X1          DIST = RA(T)                                        FCC1573X      31     A     
 DECL                                                                                      FCC1573X      32     A     
 DECL     *         PLACE IN FILL. NAME OF ROOT                                            FCC1573X      33     A     
 DECL                                                                                      FCC1573X      34     A     
 DECL               SA1    TS.SYM                                                          FCC1573X      35     A     
 DECL               SB7    X1                                                              FCC1573X      36     A     
 DECL               LX2    -P.TAG                                                          FCC1573X      37     A     
 DECL               SB7    X2+B7                                                           FCC1573X      38     A     
 DECL               SA1    B7-B1                                                           FCC1573X      39     A     
 DECL               BX7    X1                                                              FCC1573X      40     A     
 DECL               SA7    FILL.       PLACE IN FILL. FOR ROOT                             FCC1573X      41     A     
 DECL               FATAL  E.EQ16      ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN            FCC1573X      42          I
          -FCCA475
 DECL      EQU88    FATAL  E.EQ16      ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN            FCCA475       12     A     
 DECL               LX2    P.TAG                                                           FCC1573X      43     A     
 DECL               BX7    0           RA(T0)= RA(T) - DIST = 0                            FCC1573X      44     A     
 DECL               MX0    -L.RELADD                                                       FCC1573X      45     A     
 DECL               EQ     EQU47                                                           FCC1573X      46     A     
 DECL                                                                                      DECL        1466     A     
 DECL      TEST     IFNE   TEST                                                            DECL        1467     A     
 DECL      EQU99S   RJ     =XSVR                                                           DECL        1468     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1096    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               PLINE  (=C= NEGATIVE OFFSET IN EQUIVALENCE.=),2                        DECL        1469          I
          -FEAT126A 
 DECL               PLINE  (=C= NEGATIVE OFFSET IN EQUIVALENCE.=),4,2                      FEAT126A    1004     A     
 DECL               RJ     =XDAR                                                           DECL        1470     A     
 DECL               EQ     E.ZA                                                            DECL        1471     A     
 DECL      TEST     ENDIF                                                                  DECL        1472     A     
 DECL                                                                                      DECL        1473     A     
 DECL      EQUB     VFD    L.EQU2/C.SYM,L.EQU1/C.SYM,*P/0                                  DECL        1474     A     
 DECL      EAX      SPACE  4,20                                                            DECL        1475     A     
 DECL     **        ELV -  COORDINATE EQUIVALENCE AND LEVEL INFORMATION                    DECL        1476     A     
 DECL     *                IF ANY MEMBER OF AN EQUIVALENCE GROUP APPEARED IN A             DECL        1477     A     
 DECL     *         LEVEL STATEMENT, ALL OTHER GROUP MEMBERS INHERIT THE LEVEL             DECL        1478     A     
 DECL     *         NUMBER.  IF, ADDITIONALLY, ONE  OF THE MEMBERS APPEARED IN  A          DECL        1479     A     
 DECL     *         COMMON STATEMENT, THE COMMON BLOCK INHERITS THE LEVEL NUMBER.          DECL        1480     A     
 DECL     *                                                                                DECL        1481     A     
 DECL     *         ENTRY  (TS.EQU) CONTAINS EQUIVALENCE GROUPS (END OF PHASE 3)           DECL        1482     A     
 DECL     *                (A0) = FWA (TS.EQU)                                             DECL        1483     A     
 DECL     *                (B2) = 2                                                        DECL        1484     A     
 DECL     *                (B7) = FWA (TS.SYM)                                             DECL        1485     A     
 DECL     *         EXIT   (TS.SYM) CONTAINS SAME LEVEL INFO FOR ALL MEMBERS OF AN         DECL        1486     A     
 DECL     *                            EQUIV. GROUP                                        DECL        1487     A     
 DECL     *                (TS.BLK)  CONTAINS LEVEL INFO IN THE ENTRY FOR THE              DECL        1488     A     
 DECL     *                            BLOCK, IF ANY, CONTAINING THE EQUIV. GROUP          DECL        1489     A     
 DECL                                                                                      DECL        1490     A     
 DECL                                                                                      DECL        1491     A     
 DECL      ELV      SUBR   0                                                               DECL        1492     A     
 DECL                                                                                      DECL        1493     A     
 DECL     **        PHASE A -- CHECK LEVEL SPECIFICATIONS WITHIN EACH  EQUIVALENCE         DECL        1494     A     
 DECL     *                CLASS, MAKE SURE THE ROOT OF THE CLASS IS GIVEN LEVEL           DECL        1495     A     
 DECL     *                SPECIFICATION BELONGING TO NONROOT(S).                          DECL        1496     A     
 DECL                                                                                      DECL        1497     A     
 DECL      SNAP=B   IFNE   TEST                                                            DECL        1498     A     
 DECL               SA3    CO.SNAP                                                         DECL        1499     A     
 DECL               LX3    1RB                                                             DECL        1500     A     
 DECL               PL     X3,ELV1S    IF BLOCK TABLE SNAP NOT SELECTED                    DECL        1501     A     
 DECL               DUMPT  (TS.BLK)                                                        DECL        1502     A     
 DECL      ELV1S    BSS    0                                                               DECL        1503     A     
 DECL      SNAP=B   ENDIF                                                                  DECL        1504     A     
 DECL                                                                                      DECL        1505     A     
 DECL               SA2    TS=EQU                                                          DECL        1506     A     
 DECL               SB5    X2          (B5) = LENGTH OF (TS.EQU)                           DECL        1507     A     
 DECL               =B4    0                                                               DECL        1508     A     
 DECL                                                                                      DECL        1509     A     
 DECL      ELV1     ZR     B5,ELV5     IF END OF  TABLE,  GO ON TO PHASE B                 DECL        1510     A     
 DECL               SA1    A0+B4                                                           DECL        1511     A     
 DECL               =A4    A1+1                                                            DECL        1512     A     
 DECL               ZR     X4,ELV4     IF ROOT, SKIP IT                                    DECL        1513     A     
 DECL               LX1    -P.TAG                                                          DECL        1514     A     
 DECL               SA3    X1+B7       FETCH TAG WORD                                      DECL        1515     A     
 DECL               SBIT   X3,LEV                                                          DECL        1516     A     
 DECL               PL     X3,ELV4     IF NO  LEVEL                                        DECL        1517     A     
 DECL               UX5,B3 X4          (B3) = LINK                                         DECL        1518          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1097    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
          -FCC1946
 DECL               BX5    X4                                                              FCC1946       94     A     
 DECL               UNPK   X5,B3,X2,X0   (B3) = LINK                                       FCC1946       95     A     
 DECL               SA2    A0+B3       ROOT                                                DECL        1519     A     
 DECL               LX2    -P.TAG                                                          DECL        1520     A     
 DECL               SA2    X2+B7       FETCH TAG WORD FOR  ROOT                            DECL        1521     A     
 DECL               SBIT   X2,LEV                                                          DECL        1522     A     
 DECL               MX0    -L.LEVN                                                         DECL        1523     A     
 DECL               LX3    P.LEV+1-P.LEVN    RIGHT-JUSTIFY LEVEL NUMBER                    DECL        1524     A     
 DECL               BX3    -X0*X3      ISOLATE LEVEL FOR NONROOT                           DECL        1525     A     
 DECL               PL     X2,ELV3     IF NO LEVEL FOR ROOT                                DECL        1526     A     
 DECL               LX2    P.LEV+1-P.LEVN                                                  DECL        1527     A     
 DECL               BX2    -X0*X2      ISOLATE LEVEL FOR ROOT                              DECL        1528     A     
 DECL               IX0    X2-X3                                                           DECL        1529     A     
 DECL               ZR     X0,ELV4     IF LEVEL SAME FOR ROOT AND NONROOT                  DECL        1530     A     
 DECL                                                                                      DECL        1531     A     
 DECL     *         CONFLICT EXISTS REGARDING LEVEL INFO FOR THIS EQUIV. GROUP             DECL        1532     A     
 DECL                                                                                      DECL        1533     A     
 DECL               LX1    -P.BLOCK+P.TAG                                                  DECL        1534     A     
 DECL               SB3    X1          (B3) = BLOCK NUMBER                                 DECL        1535     A     
 DECL               PL     B3,ELV2     IF COMMON BLOCK                                     DECL        1536     A     
 DECL                                                                                      DECL        1537     A     
 DECL     *         EQUIV. GROUP IS NOT IN COMMON -- OUTPUT DIAGNOSTIC                     DECL        1538     A     
 DECL                                                                                      DECL        1539     A     
 DECL               =A5    A3-1        FETCH SYMBOL FOR NONROOT                            DECL        1540     A     
 DECL               MX0    L.SYM                                                           DECL        1541     A     
 DECL               BX6    X0*X5                                                           DECL        1542     A     
 DECL               SA6    FILL.                                                           DECL        1543     A     
 DECL               SX2    B7          SAVE B7                                             DECL        1544     A     
 DECL               FATAL  =XE.LV10                                                        DECL        1545     A     
 DECL               SB7    X2          RESTORE B7                                          DECL        1546     A     
 DECL               EQ     ELV4                                                            DECL        1547     A     
 DECL                                                                                      DECL        1548     A     
 DECL     *         EQUIV. GROUP IS IN COMMON -- SET CONFLICT BIT IN TS.BLK ENTRY          DECL        1549     A     
 DECL                                                                                      DECL        1550     A     
 DECL      ELV2     MX0    1                                                               DECL        1551     A     
 DECL               SA1    TS.BLK                                                          DECL        1552     A     
 DECL               LX0    P.CNFL+1                                                        DECL        1553     A     
 DECL               SB6    X1+B1       (B6) = FWA BLOCK TABLE                              DECL        1554     A     
 DECL               SA2    B6+B3       FETCH TS.BLK ENTRY                                  DECL        1555     A     
 DECL               BX6    X0+X2       SET CNFL BIT                                        DECL        1556     A     
 DECL               SA6    A2                                                              DECL        1557     A     
 DECL               EQ     ELV4                                                            DECL        1558     A     
 DECL                                                                                      DECL        1559     A     
 DECL     *         NO LEVEL INFO FOR ROOT -- SET LEVEL INFO TO AGREE WITH NONROOT         DECL        1560     A     
 DECL                                                                                      DECL        1561     A     
 DECL      ELV3     LX2    P.LEV+1     RESTORE X2 (ROOT TAG-WORD)                          DECL        1562     A     
 DECL               SX0    M.LEV                                                           DECL        1563     A     
 DECL               LX3    P.LEVN      LEVEL VALUE INTO POSITION                           DECL        1564     A     
 DECL               BX2    X2+X0       SET LEV BIT                                         DECL        1565     A     
 DECL               BX6    X2+X3       SET LEVEL NUMBER                                    DECL        1566     A     
 DECL               SA6    A2          STORE TAG WORD                                      DECL        1567     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1098    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL                                                                                      DECL        1568     A     
 DECL     *         IF THIS EQUIV. CLASS IN COMMON, SET DEFAULT BIT IN TS.BLK WORD         DECL        1569     A     
 DECL                                                                                      DECL        1570     A     
 DECL               LX1    -P.BLOCK+P.TAG                                                  DECL        1571     A     
 DECL               SB3    X1          (B3) = BLOCK NUMBER                                 DECL        1572     A     
 DECL               MI     B3,ELV4     IF NOT COMMON                                       DECL        1573     A     
 DECL               SA1    TS.BLK                                                          DECL        1574     A     
 DECL               MX0    1                                                               DECL        1575     A     
 DECL               LX0    P.DFLT+1                                                        DECL        1576     A     
 DECL               SB6    X1+B1       (B6) = FWA BLOCK TABLE                              DECL        1577     A     
 DECL               SA2    B6+B3       FETCH TS.BLK ENTRY                                  DECL        1578     A     
 DECL               BX6    X0+X2       SET DEFAULT BIT                                     DECL        1579     A     
 DECL               SA6    A2                                                              DECL        1580     A     
 DECL                                                                                      DECL        1581     A     
 DECL      ELV4     SB4    B4+B2                                                           DECL        1582     A     
 DECL               SB5    B5-B2                                                           DECL        1583     A     
 DECL               EQ     ELV1                                                            DECL        1584     A     
 DECL                                                                                      DECL        1585     A     
 DECL                                                                                      DECL        1586     A     
 DECL     **        PHASE B -- CHECK LEVEL SPECIFICATIONS WITHIN EACH EQUIVALENCE          DECL        1587     A     
 DECL     *                CLASS, MAKE SURE ALL NONROOTS OF EACH CLASS HAVE THE            DECL        1588     A     
 DECL     *                LEVEL SPECIFICATION BELONGING TO ROOT.                          DECL        1589     A     
 DECL                                                                                      DECL        1590     A     
 DECL                                                                                      DECL        1591     A     
 DECL      ELV5     SA2    TS=EQU                                                          DECL        1592     A     
 DECL               SB5    X2          (B5) = LENGTH OF (TS.EQU)                           DECL        1593     A     
 DECL               =B4    0                                                               DECL        1594     A     
 DECL                                                                                      DECL        1595     A     
 DECL      SNAP=B   IFNE   TEST                                                            DECL        1596     A     
 DECL               SA3    CO.SNAP                                                         DECL        1597     A     
 DECL               LX3    1RB                                                             DECL        1598     A     
 DECL               PL     X3,ELV5S    IF BLOCK TABLE SNAP NOT SELECTED                    DECL        1599     A     
 DECL               DUMPT  (TS.BLK)                                                        DECL        1600     A     
 DECL      ELV5S    BSS    0                                                               DECL        1601     A     
 DECL      SNAP=B   ENDIF                                                                  DECL        1602     A     
 DECL                                                                                      DECL        1603     A     
 DECL      ELV55    ZR     B5,ELVX     IF END OF TABLE, EXIT..                             DECL        1604     A     
 DECL                                                                                      DECL        1605     A     
 DECL               SA1    A0+B4                                                           DECL        1606     A     
 DECL               =A4    A1+1                                                            DECL        1607     A     
 DECL               LX1    -P.TAG                                                          DECL        1608     A     
 DECL               SA3    X1+B7       FETCH TAG WORD                                      DECL        1609     A     
 DECL               SBIT   X3,LEV                                                          DECL        1610     A     
 DECL               ZR     X4,ELV6     IF ROOT                                             DECL        1611     A     
 DECL               MI     X3,ELV9     IF LEVEL, SKIP IT                                   DECL        1612     A     
 DECL               EQ     ELV8                                                            DECL        1613     A     
 DECL                                                                                      DECL        1614     A     
 DECL     *         ROOT OF CLASS                                                          DECL        1615     A     
 DECL                                                                                      DECL        1616     A     
 DECL      ELV6     PL     X3,ELV9     IF NO LEVEL FOR ROOT, SKIP IT                       DECL        1617     A     
 DECL               LX1    -P.BLOCK+P.TAG                                                  DECL        1618     A     
 DECL               SB3    X1          (B3) = BLOCK NUMBER                                 DECL        1619     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1099    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               PL     B3,ELV7     IF COMMON BLOCK                                     DECL        1620     A     
 DECL                                                                                      DECL        1621     A     
 DECL     *         CHECK LEVEL NUMBER TO SEE IF LEGAL OUTSIDE OF COMMON                   DECL        1622     A     
 DECL                                                                                      DECL        1623     A     
 DECL               LX3    P.LEV+1-P.LEVN    RIGHT-JUSTIFY LEVEL NUMBER                    DECL        1624     A     
 DECL               MX0    -L.LEVN                                                         DECL        1625     A     
 DECL               BX3    -X0*X3      ISOLATE LEVEL NUMBER                                DECL        1626     A     
 DECL               SX3    X3-1                                                            DECL        1627     A     
 DECL               ZR     X3,ELV9     IF LEVEL 1,O.K.                                     DECL        1628     A     
 DECL               =A5    A3-1        FETCH SYMBOL FOR NONROOT                            DECL        1629     A     
 DECL               MX0    L.SYM                                                           DECL        1630     A     
 DECL               BX6    X0*X5                                                           DECL        1631     A     
 DECL               SA6    FILL.                                                           DECL        1632     A     
 DECL               SX2    B7          SAVE B7                                             DECL        1633     A     
 DECL               FATAL  =XE.LV9     EQUIV. GROUP NOT COMMON BUT LEVEL ABOVE 1           DECL        1634     A     
 DECL               SB7    X2          RESTORE B7                                          DECL        1635     A     
 DECL               EQ     ELV9                                                            DECL        1636     A     
 DECL                                                                                      DECL        1637     A     
 DECL     *         CHECK LEVEL OF EQUIV. GROUP AGAINST LEVEL, IF ANY, ALREADY             DECL        1638     A     
 DECL     *         ASSIGNED TO COMMON BLOCK CONTAINING THE GROUP                          DECL        1639     A     
 DECL                                                                                      DECL        1640     A     
 DECL      ELV7     SA1    TS.BLK                                                          DECL        1641     A     
 DECL               MX0    -L.BLVL                                                         DECL        1642     A     
 DECL               SB6    X1+B1       (B6) = FWA BLOCK TABLE                              DECL        1643     A     
 DECL               SA2    B6+B3       FETCH TS.BLK ENTRY                                  DECL        1644     A     
 DECL               LX2    -P.BLVL                                                         DECL        1645     A     
 DECL               BX1    -X0*X2      ISOLATE BLOCK LEVEL NUMBER                          DECL        1646     A     
 DECL               LX3    P.LEV+1-P.LEVN    RIGHT-JUSTIFY LEVEL NUMBER OF TAG             DECL        1647     A     
 DECL               MX0    -L.LEVN                                                         DECL        1648     A     
 DECL               BX3    -X0*X3      ISOLATE LEVEL OF ROOT                               DECL        1649     A     
 DECL               NZ     X1,ELV75    IF BLOCK HAS LEVEL                                  DECL        1650     A     
 DECL                                                                                      DECL        1651     A     
 DECL     *         BLOCK HAS NO LEVEL -- SET BLOCK LEVEL SAME AS ROOT AND SET             DECL        1652     A     
 DECL     *         DEFAULT BIT                                                            DECL        1653     A     
 DECL                                                                                      DECL        1654     A     
 DECL               BX2    X2+X3       SET BLOCK LEVEL                                     DECL        1655     A     
 DECL               MX0    1                                                               DECL        1656     A     
 DECL               LX0    P.DFLT+1                                                        DECL        1657     A     
 DECL               LX2    P.BLVL      RESTORE X2                                          DECL        1658     A     
 DECL               BX6    X0+X2       SET DEFAULT BIT                                     DECL        1659     A     
 DECL               SA6    A2                                                              DECL        1660     A     
 DECL               EQ     ELV9                                                            DECL        1661     A     
 DECL                                                                                      DECL        1662     A     
 DECL     *         BLOCK HAS LEVEL -- COMPARE WITH ROOT LEVEL                             DECL        1663     A     
 DECL                                                                                      DECL        1664     A     
 DECL      ELV75    IX0    X1-X3                                                           DECL        1665     A     
 DECL               ZR     X0,ELV9     IF SAME LEVELS                                      DECL        1666     A     
 DECL               MX0    1                                                               DECL        1667     A     
 DECL               LX0    P.CNFL+1                                                        DECL        1668     A     
 DECL               LX2    P.BLVL      RESTORE X2                                          DECL        1669     A     
 DECL               BX6    X0+X2       SET CONFLICT BIT                                    DECL        1670     A     
 DECL               SA6    A2                                                              DECL        1671     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1100    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               EQ     ELV9                                                            DECL        1672     A     
 DECL                                                                                      DECL        1673     A     
 DECL     *         NONROOT -- AS IT HAS NO LEVEL, IT INHERITS ANY BELONGING               DECL        1674     A     
 DECL     *                TO THE ROOT                                                     DECL        1675     A     
 DECL                                                                                      DECL        1676     A     
 DECL      ELV8     UX5,B3 X4          (B3) = LINK                                         DECL        1677          I
          -FCC1946
 DECL      ELV8     BX5    X4                                                              FCC1946       96     A     
 DECL               UNPK   X5,B3,X2,X0   (B3) = LINK                                       FCC1946       97     A     
 DECL               SA2    A0+B3       ROOT                                                DECL        1678     A     
 DECL               LX2    -P.TAG                                                          DECL        1679     A     
 DECL               SA2    X2+B7       FETCH TAG WORD FOR ROOT                             DECL        1680     A     
 DECL               SBIT   X2,LEV                                                          DECL        1681     A     
 DECL               PL     X2,ELV9     IF NO LEVEL FOR ROOT                                DECL        1682     A     
 DECL               MX0    -L.LEVN                                                         DECL        1683     A     
 DECL               LX2    P.LEV+1-P.LEVN    RIGHT-JUSTIFY LEVEL NUMBER                    DECL        1684     A     
 DECL               BX2    -X0*X2      ISOLATE LEVEL NUMBER                                DECL        1685     A     
 DECL               LX3    P.LEV+1     RESTORE X3 (NONROOT TAG WORD)                       DECL        1686     A     
 DECL               SX0    M.LEV                                                           DECL        1687     A     
 DECL               LX2    P.LEVN      LEVEL VALUE INTO POSITION                           DECL        1688     A     
 DECL               BX3    X3+X0       SET LEV BIT                                         DECL        1689     A     
 DECL               BX6    X2+X3       SET LEVEL NUMBER                                    DECL        1690     A     
 DECL               SA6    A3          STORE TAG WORD                                      DECL        1691     A     
 DECL                                                                                      DECL        1692     A     
 DECL     *         IF EQUIV. GROUP IS IN COMMON, SET DEFAULT BIT FOR BLOCK                DECL        1693     A     
 DECL                                                                                      DECL        1694     A     
 DECL               LX1    -P.BLOCK+P.TAG                                                  DECL        1695     A     
 DECL               SB3    X1          (B3) = BLOCK NUMBER                                 DECL        1696     A     
 DECL               MI     B3,ELV9     IF NOT COMMON                                       DECL        1697     A     
 DECL               SA1    TS.BLK                                                          DECL        1698     A     
 DECL               MX0    1                                                               DECL        1699     A     
 DECL               LX0    P.DFLT+1                                                        DECL        1700     A     
 DECL               SB6    X1+B1       (B6) = FWA BLOCK TABLE                              DECL        1701     A     
 DECL               SA2    B6+B3       FETCH TS.BLK ENTRY                                  DECL        1702     A     
 DECL               BX6    X0+X2       SET DEFAULT BIT                                     DECL        1703     A     
 DECL               SA6    A2                                                              DECL        1704     A     
 DECL                                                                                      DECL        1705     A     
 DECL      ELV9     SB4    B4+B2                                                           DECL        1706     A     
 DECL               SB5    B5-B2                                                           DECL        1707     A     
 DECL               EQ     ELV55                                                           DECL        1708     A     
 DECL               SPACE 4,8                                                              DECL        1709     A     
 DECL     **        EAX -  EVALUATE ABSOLUTE EXPRESSION                                    DECL        1710     A     
 DECL     *                                                                                DECL        1711     A     
 DECL     *         ENTRY  (B4)_ FWA OF CONSTANT                                           DECL        1712     A     
 DECL     *                                                                                DECL        1713     A     
 DECL     *         EXIT   (B4) _ END OF CONSTANT                                          DECL        1714     A     
 DECL     *         IF B7 > 0,CONSTANT DEFINED                                             DECL        1715     A     
 DECL     *                (X1) = MODE                                                     DECL        1716     A     
 DECL     *                (X6) = VALUE OF DIMENSION (BINARY)                              DECL        1717     A     
 DECL     *         IF B7 = 0, ERROR IN TRANSLATION OF CONSTANT.                           DECL        1718     A     
 DECL     *                (X6) = NOT DEFINED.                                             DECL        1719     A     
 DECL     *                                                                                DECL        1720     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1101    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL     *         USES   A1-A5  X0  B2,B7                                                DECL        1721     A     
 DECL     *                PRESERVES  X4,X5  B3,B5,B6                                      DECL        1722     A     
 DECL                                                                                      DECL        1723     A     
 DECL                                                                                      DECL        1724     A     
 DECL      EAX20    SA4    EAXA        RELOAD REGISTERS BEFORE EXIT                        DECL        1725     A     
 DECL               =A5    A4+1                                                            DECL        1726     A     
 DECL               =A3    A5+1                                                            DECL        1727     A     
 DECL               =A2    A3+1                                                            DECL        1728     A     
 DECL               SB3    X3                                                              DECL        1729     A     
 DECL               =A3    A2+1                                                            DECL        1730     A     
 DECL               SB5    X2                                                              DECL        1731     A     
 DECL               SB6    X3                                                              DECL        1732     A     
 DECL                                                                                      DECL        1733     A     
 DECL                                                                                      DECL        1734     A     
 DECL      EAX      SUBR   0           ENTRY/EXIT...                                       DECL        1735     A     
 DECL               BX6    X4                                                              DECL        1736     A     
 DECL               LX7    X5                                                              DECL        1737     A     
 DECL               SA6    EAXA        EAXA+0 = (X4)                                       DECL        1738     A     
 DECL               =A7    A6+1            +1 = (X5)                                       DECL        1739     A     
 DECL               SX6    B3                                                              DECL        1740     A     
 DECL               SX7    B5                                                              DECL        1741     A     
 DECL               =A6    A7+1            +2 = (B3)                                       DECL        1742     A     
 DECL               =A7    A6+1            +3 = (B5)                                       DECL        1743     A     
 DECL               SA1    TT=PAR                                                          DECL        1744     A     
 DECL               SX6    B6                                                              DECL        1745     A     
 DECL               LX7    X1                                                              DECL        1746     A     
 DECL               =A6    A7+1            +4 = (B6)                                       DECL        1747     A     
 DECL               SA2    FILL.                                                           DECL        1748     A     
 DECL               =A7    A6+1            +5 = (TT=PAR)                                   DECL        1749     A     
 DECL               BX6    X2                                                              DECL        1750     A     
 DECL               SA3    DECARM                                                          DECL        1751     A     
 DECL               =A6    A7+1            +6 = (FILL.= ARRAY NAME.)                       DECL        1752     A     
 DECL               =X7    0                                                               DECL        1753     A     
 DECL               BX6    X3                                                              DECL        1754     A     
 DECL               SA7    ARGCOMA                                                         DECL        1755     A     
 DECL               =X7    O.SLP                                                           DECL        1756     A     
 DECL               SA6    ARGMODE                                                         DECL        1757     A     
 DECL               =A7    B4-1        PUT SPECIAL BEGINNING PAREN TO SET ARGMODE          DECL        1758     A     
 DECL               SA2    FILL.                                                           DECL        1759     A     
 DECL               =B4    B4-1        MOVE *SB* POINTER TO BEGINNING LEFT PAREN           DECL        1760     A     
 DECL               RJ     PAR         PARSE/REDUCE STATEMENT                              DECL        1761     A     
 DECL               SA1    EAXA+6                                                          DECL        1762     A     
 DECL               SA3    EAXA+5                                                          DECL        1763     A     
 DECL               BX6    X1                                                              DECL        1764     A     
 DECL               SA2    TT=PAR                                                          DECL        1765     A     
 DECL               SA6    FILL.       RESTORE FILL.                                       DECL        1766     A     
 DECL               IX0    X2-X3                                                           DECL        1767     A     
 DECL               ZR     X0,EAX10    IF NO ERROR, EXPRESSION REDUCED                     DECL        1768     A     
 DECL               BX6    X3                                                              DECL        1769          I
          -FCC0813
 DECL               SA6    TT=PAR      RESET PARSE FILE LENGTH                             DECL        1770          I
          -FCC0813
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1102    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SHRINK TT=PAR,X3   RESET PARSE FILE LENGTH                             FCC0813      165     A     
 DECL               FATAL  E.DM11                                                          DECL        1771     A     
 DECL               =B7    0           INDICATE ERROR IN DIMENSION CONSTANT                DECL        1772     A     
 DECL               EQ     EAX20                                                           DECL        1773     A     
 DECL                                                                                      DECL        1774     A     
 DECL     **        CONSTANT FOR DIMENSION PROCESSED, SET UP EXIT CONDITIONS.              DECL        1775     A     
 DECL                                                                                      DECL        1776     A     
 DECL      EAX10    =A1    B6-1                                                            DECL        1777     A     
 DECL               =B4    B4-1        MODE TO LAST PART OF CONSTANT                       DECL        1778     A     
 DECL               RJ     LCT         LOAD BINARY OF CONSTANT INTO X6                     DECL        1779     A     
 DECL               PL     X6,EAX15    IF POSITIVE NUMBER                                  DECL        1780     A     
 DECL               =B7    X0-M.INT                                                        DECL        1781     A     
 DECL               NZ     B7,EAX15    IF NOT INTEGER                                      DECL        1782     A     
 DECL               BX3    X0          SAVE MODE                                           DECL        1783     A     
 DECL               FATAL  E.DM13      NEGATIVE DIMENSION NOT ALLOWED                      DECL        1784     A     
 DECL               =X6    1           DUMMY OF *1* FOR DIMENSION                          DECL        1785     A     
 DECL               BX0    X3          RESTORE MODE                                        DECL        1786     A     
 DECL      EAX15    BX1    X0          MODE                                                DECL        1787     A     
 DECL               =B7    1           INDICATE NO ERROR IN SYNTAX                         DECL        1788     A     
 DECL               EQ     EAX20                                                           DECL        1789     A     
 DECL                                                                                      DECL        1790     A     
 DECL      EAXA     BSS    7                                                               DECL        1791     A     
 DECL      EXT      SPACE  4,8                                                             DECL        1792     A     
 DECL     **        EXT -  PROCESS "EXTERNAL" DECLARATION.                                 DECL        1793     A     
 DECL     *         EXIT   TO MASTER LOOP.                                                 DECL        1794     A     
 DECL                                                                                      DECL        1795     A     
 DECL                                                                                      DECL        1796     A     
 DECL               HEREIF EXTERNAL                                                        DECL        1797     A     
 DECL                                                                                      DECL        1798     A     
 DECL               CLAS=  X6,(EXT,NVAR)                                                   DECL        1799          I
          -FCC1716X 
 DECL               CLAS=  X6,(EST,NVAR,EXT)                                               FCC1716X      11     A     
 DECL               SA6    EXTA        INDICATE *EXTERNAL* STATEMENT                       DECL        1800     A     
 DECL                                                                                      DECL        1801          I
          -FCC1222
 DECL     **        *ABNORMAL* STATEMENT PROCESSING JOINS HERE --                          DECL        1802          I
          -FCC1222
 DECL     *                (EXTA) = BITS TO BE SET INTO SYMBOL TABLE ENTRIES.              DECL        1803          I
          -FCC1222
 DECL                                                                                      DECL        1804          I
          -FCC1222
 DECL      EXT1     SA1    B4                                                              DECL        1805     A     
 DECL               ZR     X1,E.EX3    IF NO NEXT ITEM - ERROR                             DECL        1806     A     
 DECL               MX0    -L.MAPSYM                                                       DECL        1807          I
          -FCC1222
 DECL               MX0    L.CDPC                                                          FCC1222        9     A     
 DECL               SB2    X1-O.VAR                                                        DECL        1808     A     
 DECL               BX6    X0*X1       ELEMENT ONLY.                                       DECL        1809     A     
 DECL               SB4    B4+B1                                                           DECL        1810     A     
 DECL               SA6    FILL.       IN CASE OF ERROR.                                   DECL        1811     A     
 DECL               ZR     B2,EXT5     IF VARIABLE.                                        DECL        1812     A     
 DECL               SA2    X1+=XCHARMAP                                                    DECL        1813     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1103    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               NZ     X2,EXT2     IF NOT VAR OR CONS                                  DECL        1814     A     
 DECL               LX2    X1                                                              DECL        1815     A     
 DECL      EXT2     MX0    L.CDPC                                                          DECL        1816     A     
 DECL               BX6    X0*X2                                                           DECL        1817     A     
 DECL               SA6    FILL.                                                           DECL        1818     A     
 DECL               EQ     E.TE5       SYNTAX ERROR                                        DECL        1819     A     
 DECL                                                                                      DECL        1820     A     
 DECL      EXT5     SA1    B4                                                              DECL        1821     A     
 DECL               SB7    X1-O.VAR                                                        DECL        1822     A     
 DECL               NZ     B7,EXT6     IF NOT LONG NAME                                    DECL        1823     A     
 DECL               =B4    B4-1                                                            DECL        1824     A     
 DECL               RJ     =XTLV       TRUNCATE NAME                                       DECL        1825     A     
 DECL               =B4    B4+1                                                            DECL        1826     A     
 DECL      EXT6     SCAN   TS.SYM,SSY                                                      DECL        1827     A     
 DECL     */ALLOW LONG COMMON BLOCK NAMES AND REORGANIZE MESSY CODE                        DECL        1828          I
          -FCC0498
 DECL               MI     B7,EXT10    IF *NIT*                                            DECL        1829     A     
 DECL               BX1    X2                                                              DECL        1830     A     
 DECL               IFBIT  X1,-EXT,EXT7                                                    DECL        1831     A     
 DECL               WARN   E.EX1                                                           DECL        1832     A     
 DECL               EQ     EXT15       CONTINUE.                                           DECL        1833     A     
 DECL                                                                                      DECL        1834     A     
 DECL      EXT7     IFBIT  X1,-ENT/EXT,EXT9                                                DECL        1835     A     
 DECL               WARN   E.EX4                                                           DECL        1836     A     
 DECL               EQ     EXT15       CONTINUE                                            DECL        1837     A     
 DECL                                                                                      DECL        1838     A     
 DECL      EXT9     =X3    M.VAR                                                           DECL        1839     A     
 DECL               SX2    M.EXT       NEW CLASS                                           DECL        1840          I
          -FCC1046
 DECL               SX2    P.EXT                                                           FCC1046       18     A     
 DECL               BX5    X6          SAVE (X6)  = TAG                                    DECL        1841     A     
 DECL               RJ     CCT         CHECK FOR CONFLICTING TYPE                          DECL        1842     A     
 DECL               BX1    X6                                                              DECL        1843     A     
 DECL               LX6    X5          RESTORE (X6) = TAG                                  DECL        1844     A     
 DECL               ZR     X1,EXT15    IF CONFLICT                                         DECL        1845     A     
 DECL               SA3    EXTA                                                            DECL        1846     A     
 DECL               BX6    X3+X6                                                           DECL        1847     A     
 DECL               SA6    A2          REPLACE ENTRY                                       DECL        1848     A     
 DECL               EQ     EXT15       CONTINUE.                                           DECL        1849     A     
 DECL                                                                                      DECL        1850     A     
 DECL      EXT10    RJ     STY         NATURAL TYPE                                        DECL        1851     A     
 DECL               SA2    EXTA                                                            DECL        1852     A     
 DECL               BX7    X2+X1                                                           DECL        1853     A     
 DECL               ADSYM  TS.SYM                                                          DECL        1854     A     
 DECL                                                                                      DECL        1855     A     
 DECL      EXT15    ADDREF X6,CR.SUB                                                       DECL        1856     A     
 DECL               SA1    B4                                                              DECL        1857     A     
 DECL               SB4    B4+B1                                                           DECL        1858     A     
 DECL               SX2    X1-O.COMMA                                                      DECL        1859     A     
 DECL               ZR     X2,EXT1     IF NO *EOS*                                         DECL        1860     A     
 DECL                                                                                      DECL        1861     A     
 DECL               ZR     X1,PSP      IF COMPLETE.                                        DECL        1862     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1104    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SA2    X1+=XCHARMAP                                                    DECL        1863     A     
 DECL               NZ     X2,EXT16    IF NOT VAR OR CONS                                  DECL        1864     A     
 DECL               LX2    X1                                                              DECL        1865     A     
 DECL      EXT16    MX0    L.CDPC                                                          DECL        1866     A     
 DECL               BX6    X0*X2                                                           DECL        1867     A     
 DECL               SA6    FILL.                                                           DECL        1868     A     
 DECL               FATAL  E.EX2                                                           DECL        1869     A     
 DECL               SB4    B4-B1                                                           DECL        1870     A     
 DECL                                                                                      DECL        1871     A     
 DECL     **        HERE IF SYNTAX ERROR ENCOUNTERED                                       DECL        1872     A     
 DECL     *         ADVANCE TILL NEXT SEPARATOR FOUND AND CONTINUE.                        DECL        1873     A     
 DECL                                                                                      DECL        1874     A     
 DECL      EXT20    SA1    B4                                                              DECL        1875     A     
 DECL               SX2    X1-O.COMMA                                                      DECL        1876     A     
 DECL               ZR     X2,EXT1     IF COMMA AFTER ERROR                                DECL        1877     A     
 DECL               SB4    B4+B1                                                           DECL        1878     A     
 DECL               NZ     X1,EXT20    CONTINUE.                                           DECL        1879     A     
 DECL               JP     PSP         NEXT                                                DECL        1880     A     
 DECL                                                                                      DECL        1881     A     
 DECL      EXTA     EQU    TYPA        HOLDS BITS TO MERGE INTO TAG-TABLE                  DECL        1882     A     
 DECL               TITLE  FSC                                                             DECL        1883     A     
 DECL               SPACE  4,8                                                             DECL        1884     A     
 DECL     **        FSC - FORMAL PARAMETER AS SUBSCRIPT CHECKS                             DECL        1885     A     
 DECL     *         CHECK ALL F.P.S IN SYMBOL TABLE FOR THOSE USED AS SUBSCRIPTS           DECL        1886     A     
 DECL     *         IN ARRAYS.  THESE SHOULD BE OF TYPE INTEGER.                           DECL        1887     A     
 DECL                                                                                      DECL        1888     A     
 DECL      FSC      SUBR   0                                                               DECL        1889     A     
 DECL               SA4    VARDIM                                                          DECL        1890     A     
 DECL               SA2    TS.SYM                                                          DECL        1891     A     
 DECL               ZR     X4,FSC      NO FP USED AS SUBSCRIPT, EXIT                       DECL        1892     A     
 DECL               SA3    TS=SYM                                                          DECL        1893     A     
 DECL               MX7    -L.MODE                                                         DECL        1894     A     
 DECL               SB6    X3-1                                                            DECL        1895     A     
 DECL               MX5    1                                                               DECL        1896     A     
 DECL      FSC1     MI     B6,FSCX     IF LIST IS EXHAUSTED, EXIT                          DECL        1897     A     
 DECL               SA3    X2+B6                                                           DECL        1898     A     
 DECL               SB6    B6-2                                                            DECL        1899     A     
 DECL               BX4    -X7*X3      EXTRACT MODE                                        DECL        1900     A     
 DECL               IFBIT  X3,-FP,FSC1 IF NOT FP                                           DECL        1901     A     
 DECL               IFBIT  X3,-VAR/FP,FSC1 IF NOT USED AS VARIABLE                         DECL        1902          I
          -FCC1222
 DECL               IFBIT  X3,-FPS/VAR,FSC1 IF NOT USED AS SUBSCRIPT                       DECL        1903          I
          -FCC1222
 DECL               IFBIT  X3,-FPS/FP,FSC1  IF NOT USED AS SUBSCRIPT                       FCC1222       10     A     
 DECL               BX6    -X5*X3                                                          DECL        1904          I
          -FCC1901
 DECL               BX6    X3                                                              FCC1901       14     A     
 DECL               MX1    7*CHAR                                                          DECL        1905     A     
 DECL               LX6    P.FPS+1                                                         DECL        1906     A     
 DECL               SX0    X4-M.INT                                                        DECL        1907     A     
 DECL               SA6    A3                                                              DECL        1908     A     
 DECL               ZR     X0,FSC1     IF TYPE INTEGER, OK                                 DECL        1909     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1105    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               =A4    A3-1                                                            DECL        1910     A     
 DECL               BX6    X1*X4                                                           DECL        1911     A     
 DECL               SA6    FILL.                                                           DECL        1912     A     
 DECL               FATAL  E.DM14                                                          DECL        1913     A     
 DECL               EQ     FSC1                                                            DECL        1914     A     
 DECL      MCA      SPACE  4,8                                                             DECL        1915     A     
 DECL     **        LVL -  PROCESS "LEVEL" STATEMENT                                       DECL        1916     A     
 DECL     *         EXIT   TO MASTER LOOP                                                  DECL        1917     A     
 DECL     *         CALLS  CCT,TRV                                                         DECL        1918     A     
 DECL                                                                                      DECL        1919     A     
 DECL                                                                                      DECL        1920     A     
 DECL               HEREIF LEVEL                                                           DECL        1921     A     
 DECL                                                                                      DECL        1922     A     
 DECL               ANSI   E.ANS                                                           DECL        1923     A     
 DECL               SA1    B4          FETCH LEVEL NUMBER                                  DECL        1924     A     
 DECL               SB2    X1-O.CONS                                                       DECL        1925     A     
 DECL               ZR     X1,=XE.LV1  IF PREMATURE E.O.S.                                 DECL        1926     A     
 DECL               NZ     B2,=XE.LV1  IF NOT NUMBER                                       DECL        1927     A     
 DECL               MX0    L.SYM                                                           DECL        1928     A     
 DECL               BX5    X0*X1                                                           DECL        1929     A     
 DECL               LX5    CHAR                                                            DECL        1930     A     
 DECL               SX6    1R1                                                             DECL        1931     A     
 DECL               SX7    1                                                               DECL        1932     A     
 DECL               IX4    X5-X6                                                           DECL        1933     A     
 DECL               ZR     X4,LVL2     IF LEVEL 1                                          DECL        1934     A     
 DECL               SX6    1R2                                                             DECL        1935     A     
 DECL               SX7    2                                                               DECL        1936     A     
 DECL               IX4    X5-X6                                                           DECL        1937     A     
 DECL               ZR     X4,LVL2     IF LEVEL 2                                          DECL        1938     A     
 DECL               SX6    1R3                                                             DECL        1939     A     
 DECL               SX7    3                                                               DECL        1940     A     
 DECL               IX4    X5-X6                                                           DECL        1941     A     
 DECL               NZ     X4,=XE.LV1  IF NOT LEVEL 1,2 OR 3                               DECL        1942     A     
 DECL      LVL2     SA7    LVLA        SAVE LEVEL NUMBER                                   DECL        1943     A     
 DECL                                                                                      DECL        1944     A     
 DECL     *         PROCESS COMMA FOLLOWING LEVEL NUMBER                                   DECL        1945     A     
 DECL                                                                                      DECL        1946     A     
 DECL               =A1    B4+1                                                            DECL        1947     A     
 DECL               =B4    A1+1        B4 = B4 + 2                                         DECL        1948     A     
 DECL               SB2    X1-O.COMMA                                                      DECL        1949     A     
 DECL               ZR     X1,=XE.LV2  IF PREMATURE E.O.S.                                 DECL        1950     A     
 DECL               NZ     B2,=XE.LV2  IF NOT COMMA                                        DECL        1951     A     
 DECL                                                                                      DECL        1952     A     
 DECL     *         PROCESS VARIABLE/ARRAY LIST                                            DECL        1953     A     
 DECL                                                                                      DECL        1954     A     
 DECL      LVL4     SA1    B4          FETCH NAME                                          DECL        1955     A     
 DECL               SB2    X1-O.VAR                                                        DECL        1956     A     
 DECL               ZR     X1,=XE.LV3  IF PREMATURE E.O.S.                                 DECL        1957     A     
 DECL               NZ     B2,=XE.LV3  IF NOT NAME                                         DECL        1958     A     
 DECL               MX0    L.SYM                                                           DECL        1959     A     
 DECL               BX6    X0*X1                                                           DECL        1960     A     
 DECL               SA6    FILL.       SAVE NAME FOR POSSIBLE ERROR MESSAGE                DECL        1961     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1106    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               RJ     TRV         TRANSLATE VARIABLE                                  DECL        1962     A     
 DECL               =X3    M.LEV                                                           DECL        1963     A     
 DECL               BX2    X3*X6                                                           DECL        1964     A     
 DECL               ZR     X2,LVL6     IF NOT ALREADY LEVEL                                DECL        1965     A     
 DECL               EQ     =XE.LV4     MULTIPLE LEVEL DEFINITION IGNORED                   DECL        1966     A     
 DECL      LVL6     CLAS=  X3,(RP,EXT,ENT,ASF,NLST)                                        DECL        1967     A     
 DECL               SX2    P.LEV                                                           DECL        1968     A     
 DECL               RJ     CCT         CHECK CONFLICTING CLASSES                           DECL        1969     A     
 DECL               ZR     X6,LVL8     IF ERROR DETECTED                                   DECL        1970     A     
 DECL               SX4    M.LEV+M.VAR                                                     DECL        1971     A     
 DECL               BX6    X6+X4                                                           DECL        1972     A     
 DECL               SA4    LVLA        RETRIEVE LEVEL NUMBER                               DECL        1973     A     
 DECL               LX4    P.LEVN                                                          DECL        1974     A     
 DECL               BX6    X6+X4       SET LEVEL NUMBER INTO TAG-WORD                      DECL        1975     A     
 DECL               SA6    X3          UPDATE TAG                                          DECL        1976     A     
 DECL      LVL8     =A1    B4+1                                                            DECL        1977     A     
 DECL               =B4    A1+1        B4 = B4 + 2                                         DECL        1978     A     
 DECL               SB2    X1-O.COMMA                                                      DECL        1979     A     
 DECL               ZR     X1,PSP      IF END OF STATEMENT                                 DECL        1980     A     
 DECL               ZR     B2,LVL4     IF COMMA,CONTINUE PROCESSING LIST                   DECL        1981     A     
 DECL               EQ     =XE.LV5     BAD SYNTAX                                          DECL        1982     A     
 DECL                                                                                      DECL        1983     A     
 DECL      LVLA     BSS    1                                                               DECL        1984     A     
 DECL               SPACE  4,8                                                             DECL        1985     A     
 DECL     **        MCA -  MAKE RELATIVE COMMON ASSIGNMENTS                                DECL        1986     A     
 DECL     *         ENTRY- END OF DECLARATIVES HAS BEEN ENCOUNTERED                        DECL        1987     A     
 DECL     *                (X1) = FWA (TA.NAM) -- ADDRESS TABLE.                           DECL        1988     A     
 DECL     *         EXIT-  VARIABLES IN COMMON HAVE BEEN ASSIGNED BLOCK RELATIVE           DECL        1989     A     
 DECL     *         ADDRESSES (IN TT.COMM), AND THE LENGTH OF ALL COMMON BLOCKS            DECL        1990     A     
 DECL     *         HAS BEEN COMPUTED AND ENTERED IN TS.BLK.                               DECL        1991     A     
 DECL                                                                                      DECL        1992     A     
 DECL                                                                                      DECL        1993     A     
 DECL                                                                                      DECL        1994     A     
 DECL      MCA      SUBR   0                                                               DECL        1995     A     
 DECL               SA4    TT=COMM                                                         DECL        1996     A     
 DECL               SA2    TS.SYM                                                          DECL        1997     A     
 DECL               MX0    -L.DIMLG                                                        DECL        1998     A     
 DECL               SB7    X1          B7 = FWA ADDRESS TABLE                              DECL        1999     A     
 DECL               SA1    TT.COMM                                                         DECL        2000     A     
 DECL               ZR     X4,MCAX     IF NOTHING IN COMMON, EXIT..                        DECL        2001     A     
 DECL               BX6    0                                                               DECL        2002     A     
 DECL               IX4    X1+X4                                                           DECL        2003     A     
 DECL               SA3    TS.BLK                                                          DECL        2004     A     
 DECL               SA5    TP.DIM                                                          DECL        2005     A     
 DECL               SB5    P.DIMLG                                                         DECL        2006     A     
 DECL               SA6    X4          MARK END OF TABLE                                   DECL        2007     A     
 DECL               SB6    X2          B6 = FWA TAG TABLE                                  DECL        2008     A     
 DECL               SB3    X3+B1       B3 = FWA BLOCK TABLE                                DECL        2009     A     
 DECL               SA1    X1          PRE-FETCH 1ST ENTRY                                 DECL        2010     A     
 DECL               SB2    X5          B2 = FWA DIMENSION TABLE                            DECL        2011     A     
 DECL               BX5    X1                                                              DECL        2012     A     
 DECL               SB4    60-P.PNT                                                        DECL        2013     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1107    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               LX1    -P.BLOCK                                                        DECL        2014     A     
 DECL               EQ     MCA5A       TEST FOR ZERO BLOCK ORDINAL                         DECL        2015     A     
 DECL                                                                                      DECL        2016     A     
 DECL                                                                                      DECL        2017     A     
 DECL      MCA1     SA3    X1+B3       FETCH TS.BLK ENTRY                                  DECL        2018     A     
 DECL               LX1    P.BLOCK-P.PWF-1                                                 DECL        2019     A     
 DECL               IX4    X1+X1       X4 = TAG ORDINAL                                    DECL        2020     A     
 DECL               SA2    X4+B6       FETCH TAG TABLE ENTRY                               DECL        2021     A     
 DECL               MX7    -L.BLEN                                                         DECL        2022     A     
 DECL               BX6    -X7*X3      ISOLATE BLOCK LENGTH                                DECL        2023     A     
 DECL               BX6    X6+X5       MERGE ADDRESS + TAG                                 DECL        2024     A     
 DECL               LX4    X2,B4                                                           DECL        2025     A     
 DECL               MX5    -L.PNT                                                          DECL        2026     A     
 DECL               BX4    -X5*X4      ISOLATE TP.DIM ORDINAL                              DECL        2027     A     
 DECL               SA5    X4+B2       FETCH ARRAY PARAMETERS                              DECL        2028     A     
 DECL               SA6    X1+B7       STORE BLOCK-RELATIVE ADDRESS                        DECL        2029     A     
 DECL                                                                                      DECL        2030     A     
 DECL     **        COORDINATE COMMON AND LEVEL INFORMATION.                               DECL        2031     A     
 DECL     *                THE TS.BLK ENTRY AND THE TAG TABLE ENTRY ARE EXAMINED           DECL        2032     A     
 DECL     *         FOR LEVEL INFORMATION.  IF THESE LEVEL INDICATORS ARE NOT SET          DECL        2033     A     
 DECL     *         OR ARE EQUAL, THERE IS NOTHING TO DO.  IF ONLY ONE OF THEM IS          DECL        2034     A     
 DECL     *         SET, WE SET THE OTHER EQUAL TO IT.  IF THEY ARE NOT EQUAL, THE         DECL        2035     A     
 DECL     *         *CNFL* BIT IS TURNED ON IN THE TS.BLK ENTRY FOR LATER                  DECL        2036     A     
 DECL     *         DIAGNOSTIC PROCESSING.                                                 DECL        2037     A     
 DECL                                                                                      DECL        2038     A     
 DECL               MX7    -L.BLVL                                                         DECL        2039     A     
 DECL               LX3    -P.BLVL     RIGHT-JUSTIFY BLOCK LEVEL                           DECL        2040     A     
 DECL               BX7    -X7*X3      X7 = BLOCK LEVEL                                    DECL        2041     A     
 DECL               LX3    P.BLVL      RESTORE X3                                          DECL        2042     A     
 DECL               SBIT   X2,LEV                                                          DECL        2043     A     
 DECL               PL     X2,MCA3     IF NO LEVEL INDICATOR                               DECL        2044     A     
 DECL               LX2    P.LEV+1-P.LEVN    RIGHT JUSTIFY LEVEL NUMBER                    DECL        2045     A     
 DECL               MX6    -L.LEVN                                                         DECL        2046     A     
 DECL               BX6    -X6*X2      X6 = LEVEL NUMBER                                   DECL        2047     A     
 DECL               LX2    P.LEVN      RESTORE X2                                          DECL        2048     A     
 DECL               IX4    X7-X6                                                           DECL        2049     A     
 DECL               ZR     X4,MCA5     IF LEVELS AGREE                                     DECL        2050     A     
 DECL               ZR     X7,MCA2     IF NO  BLOCK LEVEL                                  DECL        2051     A     
 DECL                                                                                      DECL        2052     A     
 DECL     *         LEVEL CONFLICT                                                         DECL        2053     A     
 DECL                                                                                      DECL        2054     A     
 DECL               MX4    1                                                               DECL        2055     A     
 DECL               LX4    P.CNFL+1                                                        DECL        2056     A     
 DECL               BX3    X4+X3       SET CONFLICT BIT                                    DECL        2057     A     
 DECL               EQ     MCA5                                                            DECL        2058     A     
 DECL                                                                                      DECL        2059     A     
 DECL      MCA2     LX6    P.BLVL                                                          DECL        2060     A     
 DECL               BX3    X6+X3       SET BLOCK LEVEL                                     DECL        2061     A     
 DECL               EQ     MCA5                                                            DECL        2062     A     
 DECL                                                                                      DECL        2063     A     
 DECL      MCA3     ZR     X7,MCA4     IF NO LEVEL                                         DECL        2064     A     
 DECL               SX4    M.LEV                                                           DECL        2065     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1108    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               LX2    P.LEV+1     RESTORE X2                                          DECL        2066     A     
 DECL               BX2    X2+X4       SET LEV BIT                                         DECL        2067     A     
 DECL               LX7    P.LEVN                                                          DECL        2068     A     
 DECL               BX6    X2+X7       SET LEVEL NUMBER                                    DECL        2069     A     
 DECL               SA6    A2          UPDATE TAG WORD                                     DECL        2070     A     
 DECL                                                                                      DECL        2071     A     
 DECL     *         TURN ON DEFAULT BIT TO INDICATE AN INFORMATIVE DIAGNOSTIC              DECL        2072     A     
 DECL     *         IS REQUIRED FOR THIS BLOCK.                                            DECL        2073     A     
 DECL                                                                                      DECL        2074     A     
 DECL               MX4    1                                                               DECL        2075     A     
 DECL               LX4    P.DFLT+1                                                        DECL        2076     A     
 DECL               BX3    X4+X3       SET DEFAULT BIT                                     DECL        2077     A     
 DECL               EQ     MCA5                                                            DECL        2078     A     
 DECL                                                                                      DECL        2079     A     
 DECL      MCA4     LX2    P.LEV+1     RESTORE X2                                          DECL        2080     A     
 DECL      MCA5     IFBIT  X2,LONG                                                         DECL        2081     A     
 DECL               SA1    A1+B1                                                           DECL        2082     A     
 DECL               AX4    X5,B5                                                           DECL        2083     A     
 DECL               BX5    -X0*X4      ISOLATE ARRAY LENGTH                                DECL        2084     A     
 DECL               AX2    -0                                                              DECL        2085     A     
 DECL               IX3    X3+X5                                                           DECL        2086     A     
 DECL               BX2    X2*X5                                                           DECL        2087     A     
 DECL               LX5    X1                                                              DECL        2088     A     
 DECL               IX6    X2+X3       ADD LENGTH AGAIN IF *LONG*                          DECL        2089     A     
 DECL               LX1    -P.BLOCK                                                        DECL        2090     A     
 DECL               SA6    A3                                                              DECL        2091     A     
 DECL      MCA5A    ZR     X1,MCA5B    IF TABLE EXHAUSTED                                  DECL        2092     A     
 DECL               SX3    X1                                                              DECL        2093     A     
 DECL               NZ     X3,MCA1     IF BLOCK ORDINAL NON-ZERO                           DECL        2094     A     
 DECL               =A1    A1+1                                                            DECL        2095     A     
 DECL               LX1    -P.BLOCK                                                        DECL        2096     A     
 DECL               BX5    X1                                                              DECL        2097     A     
 DECL               EQ     MCA5A                                                           DECL        2098     A     
 DECL                                                                                      DECL        2099     A     
 DECL      MCA5B    BSS    0                                                               DECL        2100     A     
 DECL                                                                                      DECL        2101     A     
 DECL     **        LEVEL INFORMATION IS NOW COMPLETE IN THE BLOCK TABLE, AND ANY          DECL        2102     A     
 DECL     *         CONFLICTS HAVE BEEN RECORDED.  ANOTHER PASS THROUGH (TT.COMM)          DECL        2103     A     
 DECL     *         IS REQUIRED, HOWEVER, TO MAKE SURE ALL NAMES IN EACH BLOCK             DECL        2104     A     
 DECL     *         HAVE THE LEVEL NUMBER AND TO RECORD ANY DEFAULTS NOT HANDLED           DECL        2105     A     
 DECL     *         IN THE FIRST PASS THROUGH (TT.COMM).                                   DECL        2106     A     
 DECL                                                                                      DECL        2107     A     
 DECL      SNAP=B   IFNE   TEST                                                            DECL        2108     A     
 DECL               SA3    CO.SNAP                                                         DECL        2109     A     
 DECL               LX3    1RB                                                             DECL        2110     A     
 DECL               PL     X3,MCA6S    IF BLOCK TABLE SNAP NOT SELECTED                    DECL        2111     A     
 DECL               DUMPT  (TS.BLK)                                                        DECL        2112     A     
 DECL      MCA6S    BSS    0                                                               DECL        2113     A     
 DECL      SNAP=B   ENDIF                                                                  DECL        2114     A     
 DECL                                                                                      DECL        2115     A     
 DECL               SA1    TT.COMM                                                         DECL        2116     A     
 DECL               SA1    X1                                                              DECL        2117     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1109    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               LX1    -P.BLOCK                                                        DECL        2118     A     
 DECL                                                                                      DECL        2119     A     
 DECL      MCA6     SA3    X1+B3       FETCH TS.BLK ENTRY                                  DECL        2120     A     
 DECL               LX1    P.BLOCK-P.PWF-1                                                 DECL        2121     A     
 DECL               IX4    X1+X1       X4 = TAG ORDINAL                                    DECL        2122     A     
 DECL               SA2    X4+B6       FETCH TAG TABLE ENTRY                               DECL        2123     A     
 DECL               MX7    -L.BLVL                                                         DECL        2124     A     
 DECL               LX3    -P.BLVL     RIGHT-JUSTIFY BLOCK LEVEL                           DECL        2125     A     
 DECL               BX7    -X7*X3      X7 = BLOCK LEVEL                                    DECL        2126     A     
 DECL               LX3    P.BLVL      RESTORE X3                                          DECL        2127     A     
 DECL               SBIT   X2,LEV                                                          DECL        2128     A     
 DECL               MI     X2,MCA7     IF LEVEL INDICATOR                                  DECL        2129     A     
 DECL               ZR     X7,MCA7     IF NO BLOCK LEVEL                                   DECL        2130     A     
 DECL               SX4    M.LEV                                                           DECL        2131     A     
 DECL               LX2    P.LEV+1     RESTORE X2                                          DECL        2132     A     
 DECL               BX2    X2+X4       SET LEV BIT                                         DECL        2133     A     
 DECL               LX7    P.LEVN                                                          DECL        2134     A     
 DECL               BX6    X2+X7       SET LEVEL NUMBER                                    DECL        2135     A     
 DECL               SA6    A2          UPDATE TAG WORD                                     DECL        2136     A     
 DECL               MX4    1                                                               DECL        2137     A     
 DECL               LX4    P.DFLT+1                                                        DECL        2138     A     
 DECL               BX6    X4+X3       SET DEFAULT BIT                                     DECL        2139     A     
 DECL               SA6    A3          UPDATE BLOCK TABLE ENTRY                            DECL        2140     A     
 DECL               EQ     MCA75                                                           DECL        2141     A     
 DECL                                                                                      DECL        2142     A     
 DECL      MCA7     LX2    P.LEV+1     RESTORE X2                                          DECL        2143     A     
 DECL      MCA75    SA1    A1+B1                                                           DECL        2144     A     
 DECL               LX1    -P.BLOCK                                                        DECL        2145     A     
 DECL               NZ     X1,MCA6     IF TABLE NOT EXHAUSTED                              DECL        2146     A     
 DECL                                                                                      DECL        2147     A     
 DECL      SNAP=B   IFNE   TEST                                                            DECL        2148     A     
 DECL               SA3    CO.SNAP                                                         DECL        2149     A     
 DECL               LX3    1RB                                                             DECL        2150     A     
 DECL               PL     X3,MCA7S    IF BLOCK TABLE SNAP NOT SELECTED                    DECL        2151     A     
 DECL               DUMPT  (TS.BLK)                                                        DECL        2152     A     
 DECL      MCA7S    BSS    0                                                               DECL        2153     A     
 DECL      SNAP=B   ENDIF                                                                  DECL        2154     A     
 DECL                                                                                      DECL        2155     A     
 DECL               EQ     MCAX        EXIT..                                              DECL        2156     A     
 DECL      PCD      SPACE  4                                                               DECL        2157     A     
 DECL     **        PCD  - PROCESS DECLARATIVES                                            DECL        2158     A     
 DECL     *         ENTRY  FIRST EXECUTABLE STATEMENT HAS BEEN ENCOUNTERED                 DECL        2159     A     
 DECL     *         EXIT   (STAGE) ADVANCED TO *CPM=ASF*.                                  DECL        2160     A     
 DECL     *                (X5) RESTORED FROM ("SB.KEY").                                  DECL        2161     A     
 DECL     *                (B4) PRESERVED.                                                 DECL        2162     A     
 DECL     *                (A0) RESTORED TO (F.SB)                                         DECL        2163     A     
 DECL                                                                                      DECL        2164     A     
 DECL                                                                                      DECL        2165     A     
 DECL      PCD      BSS    0           ENTRY...                                            DECL        2166     A     
 DECL               =X6    CPM=ASF                                                         DECL        2167     A     
 DECL               SX7    B4                                                              DECL        2168     A     
 DECL               SA6    STAGE                                                           DECL        2169     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1110    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECL    
  
 DECL               SA7    PSFA        SAVE (B4)                                           DECL        2170     A     
 DECL                                                                                      DECL        2171     A     
 DECL                                                                                      DECL        2172     A     
 DECL     **        ALLOCATE AND PRESET BASIC ADDRESS TABLE.                               DECL        2173     A     
 DECL                                                                                      DECL        2174     A     
 DECL      #FID     IFNE   .FID,0                                                          F66FCC       792     A     
 DECL               SA2    =XTP=DIM    X2 = LENGTH OF TP.DIM                               F66FCC       793     A     
 DECL               ALLOC  =XTP.CIDM,X2                                                    F66FCC       794     A     
 DECL               SA2    =XTP.DIM    X2 = ORIGIN OF TP.DIM                               F66FCC       795     A     
 DECL               SA1    TP=DIM      X1 = LENGTH OF TP.DIM                               F66FCC       796     A     
 DECL               SA3    =XTP.CIDM   X3 = ORIGIN OF TP.CIDM                              F66FCC       797     A     
 DECL               MVE    X1,X2,X3    COUNT,FROM,TO                                       F66FCC       798     A     
 DECL      #FID     ENDIF                                                                  F66FCC       799     A     
 DECL               SA2    TS=SYM                                                          DECL        2175     A     
 DECL               AX0    X2,B1       ADDRESS TABLE LENGTH = 1/2 SYM TAB LEN              DECL        2176     A     
 DECL               SHRINK TA=NAM                                                          DECL        2177     A     
 DECL               ALLOC  TA.NAM,X0   ALLOCATE BASIC ADDRESS TABLE                        DECL        2178     A     
 DECL               =X3    2                                                               DECL        2179     A     
 DECL               SA6    B7          INITIALIZE STORE                                    DECL        2180     A     
 DECL               IX4    X2+X2                                                           DECL        2181     A     
 DECL               LX3    P.TAG                                                           DECL        2182     A     
 DECL               SX6    X4-1        LAST TAG = 2 * TABLE LEN - 1                        DECL        2183     A     
 DECL               NO                                                                     DECL        2184     A     
 DECL               LX6    P.TAG                                                           DECL        2185     A     
 DECL      PCD2     =A6    A6-1                                                            DECL        2186     A     
 DECL               IX6    X6-X3       DECREMENT TAG                                       DECL        2187     A     
 DECL               PL     X6,PCD2                                                         DECL        2188     A     
 DECL                                                                                      DECL        2189     A     
 DECL               RJ     MCA         ASSIGN RELATIVE COMMON ADDRESSES                    DECL        2190     A     
 DECL                                                                                      DECL        2191     A     
 DECL               RJ     EQU         PROCESS EQUIVALENCES                                DECL        2192     A     
 DECL                                                                                      DECL        2193     A     
 DECL               RJ     FSC         FORMAL PARAMETER AS SUBSCRIPT CHECKS                DECL        2194     A     
 DECL               RJ     CLU         CHECK LEVEL NAME REQUIREMENTS                       DECL        2195     A     
 DECL                                                                                      DECL        2196     A     
 DECL               RJ     APT         ASSIGN ECS/LCM POINTER TAGS                         DECL        2197     A     
 DECL                                                                                      DECL        2198     A     
 DECL               RJ     ASU         ACCUMULATE STORAGE USED                             DECL        2199          I
          -FCC0813
 DECL               SHRINK TT=COMM,0   TRASH TEMPORARY COMMON TABLE                        DECL        2200     A     
 DECL               SA2    F.SB                                                            DECL        2201          I
          -FCC0813
 DECL               SA2    =XT.SB                                                          FCC0813      166     A     
 DECL               SA1    PSFA                                                            DECL        2202     A     
 DECL               SA0    X2          RESTORE (A0)                                        DECL        2203     A     
 DECL               SA5    "SB.KEY"    RESTORE (X5)                                        DECL        2204     A     
 DECL               SB4    X1          RESTORE (B4)                                        DECL        2205     A     
 DECL               EQ     PCDX        EXIT..                                              DECL        2206     A     
 DECL               LIST   D                                                               DECL        2207     A     
 DECL               END                                                                    DECL        2208     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1111    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DECL    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DECL                      2208      2094
          FCC0498                      5         5
          FCC0583                     19        18
          FEAT126A                     3         3
          FCC0813                      6         6
          FCC0842                      3         3
          FCC0835                      5         5
          FCC1046                      1         1
          FCC1222                      5         5
          FCC1247                      3         3
          FCC1259                     12        12
          FCC1274                      1         1
          FCC1332                     10         9
          FCC1410                      4         4
          FCC1573X                    39        38
          FCC1716X                     1         1
          FCC1767X                     2         2
          FCC1790X                     2         2
          F66FCC                       8         8
          FCC1946                     90        90
          FCC1901                      1         1
          FCCA475                      6         6
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE     *DECK     TYPE                                                                   TYPE           1     A     
 TYPE               IDENT  TYPE                                                            TYPE           2     A     
 TYPE      TYPE     SECT   (EXPLICIT / IMPLICIT T Y P E DECLARATIONS.),1                   TYPE           3     A     
 TYPE                                                                                      TYPE           4     A     
 TYPE               SST    B,D                                                             TYPE           5     A     
 TYPE               NOREF  B,D                                                             TYPE           6     A     
 TYPE                                                                                      TYPE           7     A     
 TYPE      B=TYPE   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             TYPE           8     A     
 TYPE                                                                                      TYPE           9     A     
 TYPE               ENTRY  IMP.ER,TYPA,TYPC,TYP02                                          TYPE          10     A     
 TYPE               ENTRY  TYPD                                                            TYPE          11     A     
 TYPE               ENTRY  TYPF                                                            FCC1258        8     A     
 TYPE                                                                                      TYPE          12     A     
 TYPE     *         IN TABLES                                                              TYPE          13     A     
 TYPE               EXT    CDD,ENTRY.,ETF,IDENT,MOD,NARGS,REFVAR,STAGE,TS=SYM              TYPE          14          I
          -FCC1237
 TYPE               EXT    ENTRY.,ETF,IDENT,MOD,NARGS,REFVAR,STAGE,TS=SYM                  FCC1237        8     A     
 TYPE               EXT    TS.SYM,VALUE.                                                   TYPE          15     A     
 TYPE                                                                                      TYPE          16     A     
 TYPE     *         IN ERRORS                                                              TYPE          17     A     
 TYPE               EXT    E.ADP,E.ANS,E.FM,E.TE5,E.TT,E.TY,E.TY2,E.TY3,E.TYA              TYPE          18          I
          -FCC1237
 TYPE               EXT    E.ADP,E.ANS,E.FM,E.TE5,E.TT,E.TY,E.TYA                          FCC1237        9     A     
 TYPE               EXT    E.TYH,E.TYIK,E.TYI1,E.TYI2,E.TYI3,E.TYI4,E.TYI5,E.TYI6          TYPE          19     A     
 TYPE               EXT    E.TYI7,E.ZA,FILL.,FILL.3                                        TYPE          20          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1112    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
          -FCC2177
 TYPE               EXT    E.TYI7,E.ZA,FILL.,FILL.3,E.SU12                                 FCC2177        8     A     
 TYPE                                                                                      TYPE          21     A     
 TYPE     *         IN HEADER                                                              TYPE          22     A     
 TYPE               EXT    PSF,PSFA                                                        TYPE          23     A     
 TYPE                                                                                      TYPE          24     A     
 TYPE     *         IN ALLOC                                                               TYPE          25     A     
 TYPE               EXT    ERT,ESY,SSY                                                     TYPE          26     A     
 TYPE                                                                                      TYPE          27     A     
 TYPE     *         IN MAIN                                                                TYPE          28     A     
 TYPE               EXT    CPM=1ST,CSK,PSP,ASK                                             TYPE          29     A     
 TYPE                                                                                      TYPE          30     A     
 TYPE     *         IN LEX                                                                 TYPE          31     A     
 TYPE               EXT    NAT.TYP,STY                                                     TYPE          32     A     
 TYPE                                                                                      TYPE          33     A     
 TYPE     *         IN KEY                                                                 TYPE          34     A     
 TYPE               EXT    FUNCTI=                                                         TYPE          35     A     
 TYPE                                                                                      TYPE          36     A     
 TYPE     *         IN DECL                                                                TYPE          37     A     
 TYPE               EXT    DIR                                                             TYPE          38     A     
 TYPE                                                                                      TYPE          39     A     
 TYPE     *         IN IO                                                                  TYPE          40     A     
 TYPE               EXT    LGR,PRECISI,FUNCTIO,TYPES                                       TYPE          41     A     
 TYPE                                                                                      TYPE          42     A     
 TYPE      TYPE-KEY SPACE  4,8                                                             TYPE          43     A     
 TYPE     **        TYPE KEY WORDS.                                                        TYPE          44     A     
 TYPE     *                                                                                TYPE          45     A     
 TYPE     *         HERE WHEN KEYWORD IS --                                                TYPE          46     A     
 TYPE     *                                                                                TYPE          47     A     
 TYPE     *                L O G I C A L                                                   TYPE          48     A     
 TYPE     *                I N T E G E R                                                   TYPE          49     A     
 TYPE     *                R E A L                                                         TYPE          50     A     
 TYPE     *                D O U B L E                                                     TYPE          51     A     
 TYPE     *                D O U B L E   P R E C I S I O N                                 TYPE          52     A     
 TYPE     *                C O M P L E X                                                   TYPE          53     A     
 TYPE     *                                                                                TYPE          54     A     
 TYPE     *         EXIT   TO *TYP* WITH                                                   TYPE          55     A     
 TYPE     *                (X4) = APPROPRIATE TYPE INDICATION.                             TYPE          56     A     
 TYPE                                                                                      TYPE          57     A     
 TYPE                                                                                      TYPE          58     A     
 TYPE               HEREIF LOGICAL                                                         TYPE          59     A     
 TYPE               =X4    M.LOG                                                           TYPE          60     A     
 TYPE               EQ     TYP                                                             TYPE          61     A     
 TYPE                                                                                      TYPE          62     A     
 TYPE               HEREIF INTEGER                                                         TYPE          63     A     
 TYPE               =X4    M.INT                                                           TYPE          64     A     
 TYPE               EQ     TYP                                                             TYPE          65     A     
 TYPE                                                                                      TYPE          66     A     
 TYPE               HEREIF REAL                                                            TYPE          67     A     
 TYPE               =X4    M.REAL                                                          TYPE          68     A     
 TYPE               EQ     TYP                                                             TYPE          69     A     
 TYPE                                                                                      TYPE          70     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1113    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE               HEREIF DOUBLE                                                          TYPE          71     A     
 TYPE               SA1    B4                                                              TYPE          72     A     
 TYPE               SA2    DOUA                                                            TYPE          73     A     
 TYPE               BX6    X1-X2                                                           TYPE          74     A     
 TYPE               NZ     X6,DOU2     IF NOT *PRECISI*                                    TYPE          75     A     
 TYPE     */LONG NAMES IN TYPE DECLARATIONS                                                TYPE          76          I
          -FCC0787
 TYPE               SA3    B4+B1                                                           TYPE          77     A     
 TYPE               SB7    -2RON                                                           TYPE          78     A     
 TYPE               AX3    8*CHAR                                                          TYPE          79     A     
 TYPE               SB2    X3+B7                                                           TYPE          80     A     
 TYPE               NZ     B2,DOU2     IF NOT *PRECISION*                                  TYPE          81     A     
 TYPE               SX5    PRECISI                                                         TYPE          82     A     
 TYPE               SA5    X5+LGR                                                          TYPE          83     A     
 TYPE               RJ     ASK         REMOVE KEYWORD AND ADJUST *SB*                      TYPE          84     A     
 TYPE               ZR     X3,DOU4                                                         TYPE          85     A     
 TYPE               TRUBL  E.ZA                                                            TYPE          86     A     
 TYPE                                                                                      TYPE          87     A     
 TYPE      DOU2     ANSI   E.ADP       ANSI REQUIRES *PRECISION*                           TYPE          88     A     
 TYPE      DOU4     =X4    M.DBL                                                           TYPE          89     A     
 TYPE                                                                                      TYPE          90     A     
 TYPE      CO.DTS   IF     DEF,CO.DTS        -- CHECK D.P. ELIMINATION OPTION --           TYPE          91     A     
 TYPE               SA3    CO.DTS                                                          TYPE          92     A     
 TYPE               PL     X3,TYP      IF D.P. ELIMINATION NOT SELECTED                    TYPE          93     A     
 TYPE               =X4    M.REAL                                                          TYPE          94     A     
 TYPE      CO.DTS   ENDIF                                                                  TYPE          95     A     
 TYPE                                                                                      TYPE          96     A     
 TYPE               EQ     TYP         EXIT..                                              TYPE          97     A     
 TYPE                                                                                      TYPE          98     A     
 TYPE      DOUA     CON    7LPRECISI+O.VAR                                                 TYPE          99     A     
 TYPE               HEREIF PRECISION                                                       TYPE         100     A     
 TYPE               EQ     E.FM                                                            TYPE         101     A     
 TYPE                                                                                      TYPE         102     A     
 TYPE               HEREIF COMPLEX                                                         TYPE         103     A     
 TYPE               =X4    M.CPLX                                                          TYPE         104     A     
 TYPE               EQ     TYP                                                             TYPE         105     A     
 TYPE      TYPE     SPACE  4,8                                                             TYPE         106     A     
 TYPE     **        TYPE - PROCESS  " T Y P E "  KEYWORD.                                  TYPE         107     A     
 TYPE                                                                                      TYPE         108     A     
 TYPE                                                                                      TYPE         109     A     
 TYPE               HEREIF TYPE                                                            TYPE         110     A     
 TYPE                                                                                      TYPE         111     A     
 TYPE               ANSI   E.TYA       *TYPE* IS NON-ANSI                                  TYPE         112     A     
 TYPE                                                                                      TYPE         113     A     
 TYPE               SB7    E.TYH                                                           TYPE         114     A     
 TYPE               SA1    TYPES                                                           TYPE         115     A     
 TYPE               SB5    L.TYPE                                                          TYPE         116     A     
 TYPE               EQ     CSK         CHECK SUB-KEYWORD                                   TYPE         117     A     
 TYPE                                                                                      TYPE         118     A     
 TYPE                                                                                      TYPE         119     A     
 TYPE      IMP      SPACE  4,20                                                            TYPE         120     A     
 TYPE     **        IMP -  PROCESS  " I M P L I C I T "  TYPE DECLARATION.                 TYPE         121     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1114    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE     *                                                                                TYPE         122     A     
 TYPE     *         ENTRY  FROM MASTER LOOP, OR                                            TYPE         123     A     
 TYPE     *                FROM *TYPE* KEYWORD.                                            TYPE         124     A     
 TYPE     *                CAN ALSO BE RE-ENTERED  (AT *IMP.KEY*) IF SUBSEQUENT            TYPE         125     A     
 TYPE     *                     <TYPE-WORDS> ARE FOUND.                                    TYPE         126     A     
 TYPE     *                (B4) _ A <TYPE-WORD> IN *SB*.                                   TYPE         127     A     
 TYPE     *                                                                                TYPE         128     A     
 TYPE     *         EXIT   THRU *CSK* TO LOOK-UP THE <TYPE> KEYWORD.                       TYPE         129     A     
 TYPE     *                (B4) UNCHANGED.                                                 TYPE         130     A     
 TYPE     *                (TYPC) " 0 TO SIGNAL AN *IMPLICIT* STATEMENT.                   TYPE         131     A     
 TYPE     *                THE <TYPE-WORD> PROCESSOR WILL GO TO *TYP* WHO WILL             TYPE         132     A     
 TYPE     *                     RETURN TO *IMP.(* WHEN HE SEES (TYPC) SET.                 TYPE         133     A     
 TYPE                                                                                      TYPE         134     A     
 TYPE                                                                                      TYPE         135     A     
 TYPE               HEREIF IMPLICIT                                                        TYPE         136     A     
 TYPE                                                                                      TYPE         137     A     
 TYPE               ANSI   E.ANS                                                           TYPE         138     A     
 TYPE               MX6    -1                                                              TYPE         139     A     
 TYPE               SA6    TYPC        SIGNAL *IMPLICIT* PROCESSING                        TYPE         140     A     
 TYPE               SA3    TYPF        FLAG ALLOWS ONE IMPLICIT STM PER PGM UNIT           FCC1258        9     A     
 TYPE               NZ     X3,=XE.MIJ  IF ONE IMPLICIT STM PROCESSED - WARNING             FCC1258       10     A     
 TYPE               =X7    1           SET TO DISALLOW MULTIPLE IMPLICIT STM-S             FCC1258       11     A     
 TYPE               SA7    A3                                                              FCC1258       12     A     
 TYPE                                                                                      TYPE         141     A     
 TYPE      IMP.KEY  SB7    E.TYIK                                                          TYPE         142     A     
 TYPE               SA1    TYPES                                                           TYPE         143     A     
 TYPE               SB5    L.TYPE-1                                                        TYPE         144     A     
 TYPE               EQ     CSK         CHECK NEXT KEYWORD                                  TYPE         145     A     
 TYPE                                                                                      TYPE         146     A     
 TYPE                                                                                      TYPE         147     A     
 TYPE     **        IMP.( - ENTERED FROM *TYP* WHEN IMPLICIT FLAG IS SET.                  TYPE         148     A     
 TYPE     *                (X4) = NEW TYPE                                                 TYPE         149     A     
 TYPE                                                                                      TYPE         150     A     
 TYPE      IMP.(    SA5    B4                                                              TYPE         151     A     
 TYPE               SA3    A5+B1                                                           TYPE         152     A     
 TYPE               SB7    X5-O.(                                                          TYPE         153     A     
 TYPE               NZ     B7,E.TYI1   MISSING BEGINNING LPAREN                            TYPE         154     A     
 TYPE               MX7    0           CLEAR LETTER MASK FOR THIS TYPE                     TYPE         155     A     
 TYPE               SB6    X4          SAVE TYPE                                           TYPE         156     A     
 TYPE                                                                                      TYPE         157     A     
 TYPE                                                                                      TYPE         158     A     
 TYPE     **        IMP.COMA - ADD LETTER(S) TO THE RANGE MASK WE ARE BUILDING.            TYPE         159     A     
 TYPE     *                (X7) = RANGE MASK -- LETTER BITS ACCUMULATED SO FAR.            TYPE         160     A     
 TYPE                                                                                      TYPE         161     A     
 TYPE      IMP.COMA SX6    X3                                                              TYPE         162     A     
 TYPE               BX6    X3-X6                                                           TYPE         163     A     
 TYPE               SB2    X3-O.VAR                                                        TYPE         164     A     
 TYPE               MX0    LG.VAR*CHAR-CHAR                                                TYPE         165     A     
 TYPE               SA6    FILL.       SAVE FOR POSSIBLE ERROR MESSAGE                     TYPE         166     A     
 TYPE               SA6    A6+B1        SAVE FOR POSSIBLE ERROR MESSAGE                    TYPE         167     A     
 TYPE               LX0    -CHAR                                                           TYPE         168     A     
 TYPE               NZ     B2,E.TYI2   LETTER IS REQUIRED                                  TYPE         169     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1115    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE               BX1    X0*X6                                                           TYPE         170     A     
 TYPE               SA2    A3+B1                                                           TYPE         171     A     
 TYPE               ZR     X1,IMP3     IF SINGLE CHARACTER ONLY                            TYPE         172     A     
 TYPE               MX0    CHAR                                                            TYPE         173     A     
 TYPE               SA1    FILL.                                                           TYPE         174     A     
 TYPE               BX6    X1*X0                                                           TYPE         175     A     
 TYPE               SA6    FILL.3                                                          TYPE         176     A     
 TYPE               WARN   E.TYI3                                                          TYPE         177     A     
 TYPE      IMP3     AX3    -CHAR                                                           TYPE         178     A     
 TYPE               SB7    X2-O.MIN                                                        TYPE         179     A     
 TYPE               BX5    0                                                               TYPE         180     A     
 TYPE               NZ     B7,IMP5     IF NOT A RANGE                                      TYPE         181     A     
 TYPE               SA5    A2+B1                                                           TYPE         182     A     
 TYPE               SX6    X5                                                              TYPE         183     A     
 TYPE               BX6    X5-X6                                                           TYPE         184     A     
 TYPE               SB2    X5-O.VAR                                                        TYPE         185     A     
 TYPE               BX1    X0*X5                                                           TYPE         186     A     
 TYPE               SA6    FILL.       SAVE FOR POSSIBLE ERROR MESSAGE                     TYPE         187     A     
 TYPE               NZ     B2,E.TYI2   LETTER IS REQUIRED                                  TYPE         188     A     
 TYPE               AX5    -CHAR                                                           TYPE         189     A     
 TYPE               ZR     X1,IMP35    IF SINGLE CHARACTER                                 TYPE         190     A     
 TYPE               WARN   E.TYI3                                                          TYPE         191     A     
 TYPE      IMP35    IX5    X5-X3                                                           TYPE         192     A     
 TYPE               SA2    A5+B1                                                           TYPE         193     A     
 TYPE               NZ     X5,IMP4                                                         TYPE         194     A     
 TYPE               WARN   E.TYI5      LAST = FIRST, WARN                                  TYPE         195     A     
 TYPE      IMP4     PL     X5,IMP5                                                         TYPE         196     A     
 TYPE               BX5    0           TRUNCATE RANGE TO 1ST LETTER ONLY                   TYPE         197     A     
 TYPE               FATAL  E.TYI4      LAST .GT. FIRST                                     TYPE         198     A     
 TYPE      IMP5     MX0    1                                                               TYPE         199     A     
 TYPE               SB7    X5                                                              TYPE         200     A     
 TYPE               SB3    X3-60                                                           TYPE         201     A     
 TYPE               AX0    B7          MASK AS WIDE AS RANGE                               TYPE         202     A     
 TYPE               SB2    X2-O.COMMA                                                      TYPE         203     A     
 TYPE               AX0    B3          POSITION MASK WHERE RANGE STARTS                    TYPE         204     A     
 TYPE               BX7    X0+X7       ACCUMULATE MASK FOR THIS TYPE                       TYPE         205     A     
 TYPE               SB7    X2-O.)                                                          TYPE         206     A     
 TYPE               SA3    A2+B1       (EXPECT COMMA OR EOS)                               TYPE         207     A     
 TYPE               ZR     B2,IMP.COMA IF A COMMA                                          TYPE         208     A     
 TYPE                                                                                      TYPE         209     A     
 TYPE                                                                                      TYPE         210     A     
 TYPE     **        CURRENT <TYPE> RANGE HAS BEEN ASSIMILATED.                             TYPE         211     A     
 TYPE     *         ENTRY  (B6) = <TYPE>.                                                  TYPE         212     A     
 TYPE     *                (X7) = ITS NEW LETTER BITS..                                    TYPE         213     A     
 TYPE     *         EXIT   TO *IMP.EOS* IF STATEMENT IS ENDED, OR                          TYPE         214     A     
 TYPE     *                TO *IMP.KEY* TO BEGIN PROCESSING THE NEXT <TYPE-WORD>.          TYPE         215     A     
 TYPE     *         NOW WE PROCEED TO ALTER NATURAL TYPE TABLE AS REQUESTED.               TYPE         216     A     
 TYPE                                                                                      TYPE         217     A     
 TYPE               SB2    L.TYPE-1                                                        TYPE         218     A     
 TYPE               SA1    TYPD                                                            TYPE         219     A     
 TYPE               BX6    X1+X7       SET SELECTED LETTERS                                TYPE         220     A     
 TYPE               BX5    X7*X1                                                           TYPE         221     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1116    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE               SA6    A1                                                              TYPE         222     A     
 TYPE               ZR     X5,IMP6     IF LETTERS NOT PREVIOUSLY MENTIONED                 TYPE         223     A     
 TYPE               SB3    B7          SAVE B7                                             TYPE         224     A     
 TYPE               WARN   =XE.TY1                                                         TYPE         225     A     
 TYPE               SB7    B3          RESTORE B7                                          TYPE         226     A     
 TYPE               BX7    X7-X5       REMOVE BAD LETTERS                                  TYPE         227     A     
 TYPE      IMP6     SA1    B2+NAT.TYP                                                      TYPE         228     A     
 TYPE               SB2    B2-B1                                                           TYPE         229     A     
 TYPE               BX6    -X7*X1      CLEAR SELECTED LETTERS FOR ALL TYPES                TYPE         230     A     
 TYPE               SA6    A1                                                              TYPE         231     A     
 TYPE               PL     B2,IMP6     LOOP THRU ALL TYPES                                 TYPE         232     A     
 TYPE               SA1    B6+NAT.TYP-1                                                    TYPE         233     A     
 TYPE               BX7    X1+X7       SET SELECTED LETTERS FOR SPECIFIED TYPES            TYPE         234     A     
 TYPE               SA7    A1                                                              TYPE         235     A     
 TYPE                                                                                      TYPE         236     A     
 TYPE               SB4    A2                                                              TYPE         237     A     
 TYPE               NZ     B7,E.TYI6   IF MISSIN G ENDING )                                TYPE         238     A     
 TYPE               SB3    X3-O.COMMA                                                      TYPE         239     A     
 TYPE               SB4    A3+B1                                                           TYPE         240     A     
 TYPE               ZR     X3,IMP.EOS  IF *EOS*                                            TYPE         241     A     
 TYPE               ZR     B3,IMP.KEY  IF MORE TYPES TO SET                                TYPE         242     A     
 TYPE               SB4    A3                                                              TYPE         243     A     
 TYPE               EQ     E.TYI7                                                          TYPE         244     A     
 TYPE                                                                                      TYPE         245     A     
 TYPE                                                                                      TYPE         246     A     
 TYPE     **        IMP.EOS - HERE WHEN STATEMENT FULLY DIGESTED.                          TYPE         247     A     
 TYPE     *                NATURAL TYPE TABLE HAS BEEN SET UP (PROPERLY), BUT WE           TYPE         248     A     
 TYPE     *                HAVE STILL TO INSURE THAT ANY FUNCTION NAME AND FORMAL          TYPE         249     A     
 TYPE     *                PARAMETERS ARE INCLUDED IN THE SCOPE OF THE IMPLICIT            TYPE         250     A     
 TYPE     *                STATEMENT.                                                      TYPE         251     A     
 TYPE     *         EXIT   TO *TYP10* TO CHECK/FLAG USEAGES OF THE NON-ANSI IBM            TYPE         252     A     
 TYPE     *                     <*SIZE> CONSTRUCT.                                         TYPE         253     A     
 TYPE                                                                                      TYPE         254     A     
 TYPE      IMP.EOS  SA3    MOD                                                             TYPE         255     A     
 TYPE               SA2    ETF                                                             TYPE         256     A     
 TYPE               MX0    -L.MODE                                                         TYPE         257     A     
 TYPE               SA5    TS.SYM                                                          TYPE         258     A     
 TYPE               IFBIT  X3,-PFNC,IMP7                                                   TYPE         259     A     
 TYPE               NZ     X2,IMP7     IF FUNCTION EXPLICITLY TYPED                        TYPE         260     A     
 TYPE               SA1    IDENT                                                           TYPE         261     A     
 TYPE               BX6    X1                                                              TYPE         262     A     
 TYPE               LX3    P.PFNC+1    RESTORE X3                                          TYPE         263     A     
 TYPE               RJ     STY         GET (NEW) IMPLICIT TYPE                             TYPE         264     A     
 TYPE               SA2    ENTRY.                                                          TYPE         265     A     
 TYPE               SX2    X2                                                              FEAT155G     362     A     
 TYPE               SA4    VALUE.                                                          TYPE         266     A     
 TYPE               BX7    -X0*X3      ISOLATE FORMER TYPE                                 TYPE         267     A     
 TYPE               IX2    X2+X5                                                           TYPE         268     A     
 TYPE               BX1    X1-X7                                                           TYPE         269     A     
 TYPE               SA2    X2                                                              TYPE         270     A     
 TYPE               IX4    X4+X5                                                           TYPE         271     A     
 TYPE               BX6    X3-X1                                                           TYPE         272     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1117    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE               SA6    A3          RESET PROGRAM-UNIT MODE                             TYPE         273     A     
 TYPE               SA4    X4                                                              TYPE         274     A     
 TYPE               BX7    X2-X1                                                           TYPE         275     A     
 TYPE               SA7    A2          RESET (ENTRY.-TAG)                                  TYPE         276     A     
 TYPE               BX6    X4-X1                                                           TYPE         277     A     
 TYPE               SA6    A4          RESET (VALUE.-TAG)                                  TYPE         278     A     
 TYPE                                                                                      TYPE         279     A     
 TYPE      IMP7     SA4    NARGS                                                           TYPE         280     A     
 TYPE               SA2    TS=SYM                                                          TYPE         281     A     
 TYPE               ZR     X4,TYP10    IF NO ARGUMENTS                                     TYPE         282          I
          -FCC1237
 TYPE               ZR     X4,PSP      IF NO ARGUMENTS                                     FCC1237       10     A     
 TYPE               =B2    2                                                               TYPE         283     A     
 TYPE               SA3    X5+B1                                                           TYPE         284     A     
 TYPE               SB6    X2          (B6) = LENGTH OF SYMBOL TABLE                       TYPE         285     A     
 TYPE      IMP74    SBIT   X3,FP                                                           TYPE         286     A     
 TYPE               SB6    B6-B2                                                           TYPE         287     A     
 TYPE               PL     X3,IMP76    IF NO FORMAL PARAMETER                              TYPE         288     A     
 TYPE               SA1    A3-B1                                                           TYPE         289     A     
 TYPE               LX3    P.FP+1      RESTORE (X3)                                        TYPE         290     A     
 TYPE               SX2    X1                                                              TYPE         291     A     
 TYPE               BX6    X1-X2       CLEAR OUT LINK                                      TYPE         292     A     
 TYPE               RJ     STY         GET (NEW) IMPLICIT TYPE                             TYPE         293     A     
 TYPE               BX2    X0*X3       CLEAR FORMER TYPE                                   TYPE         294     A     
 TYPE               IX6    X1+X2                                                           TYPE         295     A     
 TYPE               SA6    A3                                                              TYPE         296     A     
 TYPE      IMP76    SA3    A3+B2                                                           TYPE         297     A     
 TYPE               GT     B6,IMP74                                                        TYPE         298     A     
 TYPE               EQ     TYP10       EXIT..                                              TYPE         299          I
          -FCC1237
 TYPE               EQ     PSP         EXIT                                                FCC1237       11     A     
 TYPE                                                                                      TYPE         300     A     
 TYPE                                                                                      TYPE         301     A     
 TYPE     **        IMP.ER - RETURN HERE FROM ERRORS TO ATTEMPT RECOVERY.                  TYPE         302     A     
 TYPE     *                LOOK FOR  ")," TO RESUME PROCESSING.                            TYPE         303     A     
 TYPE     *         ENTRY  (B4) _ CURRENT *SB* POSITION.                                   TYPE         304     A     
 TYPE     *         EXIT   TO *IMP.KEY* IF A ")," IS FOUND, OR                             TYPE         305     A     
 TYPE     *                TO *IMP.EOS* IF RECOVERY IS NOT SUCCESSFUL.                     TYPE         306     A     
 TYPE                                                                                      TYPE         307     A     
 TYPE      IMP.ER   SA1    B4+B1                                                           TYPE         308     A     
 TYPE               SB4    B4+B1                                                           TYPE         309     A     
 TYPE               SB2    X1-O.)                                                          TYPE         310     A     
 TYPE               ZR     X1,IMP.EOS  IF *EOS*                                            TYPE         311     A     
 TYPE               NZ     B2,IMP.ER   IF NO RPAREN                                        TYPE         312     A     
 TYPE               SA1    B4+B1                                                           TYPE         313     A     
 TYPE               SB4    B4+B1                                                           TYPE         314     A     
 TYPE               SB2    X1-O.COMMA                                                      TYPE         315     A     
 TYPE               ZR     X1,IMP.EOS  IF *EOS*                                            TYPE         316     A     
 TYPE               NZ     B2,IMP.ER   IF NO COMMA                                         TYPE         317     A     
 TYPE               SB4    B4+B1       FOUND  COMMA FOLLOWED BY COMMA                      TYPE         318     A     
 TYPE               EQ     IMP.KEY     TRY ANOTHER KEYWORD                                 TYPE         319     A     
 TYPE      TYP      SPACE  4,15                                                            TYPE         320     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1118    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE     **        TYP -  PROCESS TYPE-LIST.                                              TYPE         321     A     
 TYPE     *         ENTERED FROM THE VARIOUS *TYPE* PROCESSORS, TO DIGEST THE              TYPE         322     A     
 TYPE     *                VARIABLE-LIST OF THE STATEMENT.                                 TYPE         323     A     
 TYPE     *         ENTRY  (X4) = TYPE TO BE SET.                                          TYPE         324     A     
 TYPE     *                (B4) " FWA OF THE VARIABLE LIST.                                TYPE         325     A     
 TYPE     *         IF A *FIRST CARD* IS EXPECTED, TYP WILL CHECK FOR A *FUNCTION*         TYPE         326     A     
 TYPE     *                STATEMENT, AND EXIT TO THERE, OR TO *PSF*.                      TYPE         327     A     
 TYPE     *         USES   ALL                                                             TYPE         328     A     
 TYPE     *         CALLS  ADF, ASL, BTT, DIR, PWE, STY, TAB                               TYPE         329     A     
 TYPE                                                                                      TYPE         330     A     
 TYPE                                                                                      TYPE         331     A     
 TYPE      TYP      SA1    STAGE                                                           TYPE         332     A     
 TYPE               SA3    TYPC                                                            TYPE         333     A     
 TYPE     *         THE CONDITIONAL =X1-CPM=1ST WAS HERE.                                  TYPE         334     A     
 TYPE     *         IF CPM=1ST IS EVER " 0, REPLACE                                        TYPE         335     A     
 TYPE               NZ     X1,TYP0     IF NOT IN *1ST CARD* PROCESSING.                    TYPE         336     A     
 TYPE               SA1    B4                                                              TYPE         337     A     
 TYPE               SA2    B4+B1                                                           TYPE         338     A     
 TYPE               AX2    9*CHAR                                                          TYPE         339     A     
 TYPE               LX2    2*CHAR                                                          TYPE         340     A     
 TYPE               SA3    TYPB                                                            TYPE         341     A     
 TYPE               BX2    X1+X2                                                           TYPE         342     A     
 TYPE               IX1    X3-X2                                                           TYPE         343     A     
 TYPE               NZ     X1,TYP01    IF NOT *FUNCTION*                                   TYPE         344     A     
 TYPE               BX6    X4                                                              TYPE         345     A     
 TYPE               SA6    ETF         INDICATE FUNCTION EXPLICITLY TYPED                  TYPE         346     A     
 TYPE               SX5    FUNCTIO                                                         TYPE         347     A     
 TYPE               SA5    X5+LGR                                                          TYPE         348     A     
 TYPE               RJ     ASK         ADJUST STATEMENT KEYWORD                            TYPE         349     A     
 TYPE               ZR     X3,FUNCTI=                                                      TYPE         350     A     
 TYPE               TRUBL  E.ZA                                                            TYPE         351     A     
 TYPE                                                                                      TYPE         352     A     
 TYPE                                                                                      TYPE         353     A     
 TYPE      TYP01    BX6    X4                                                              TYPE         354     A     
 TYPE               MX7    1                                                               TYPE         355     A     
 TYPE               SA6    TYPA        SAVE TYPE                                           TYPE         356     A     
 TYPE               SA7    PSFA        INDICATE THAT RETURN FROM *PSF* SHOULD BE           TYPE         357     A     
 TYPE     *                            TO  TYP02                                           TYPE         358     A     
 TYPE               EQ     PSF         PROCESS DUMMY HEADER CARD                           TYPE         359     A     
 TYPE                                                                                      TYPE         360     A     
 TYPE      TYP02    SA4    TYPA        RETURN FROM PSF                                     TYPE         361     A     
 TYPE               SA3    TYPC        RESTORE X3 + X4                                     TYPE         362     A     
 TYPE      TYP0     BX6    X4                                                              TYPE         363     A     
 TYPE               SA6    TYPA        SAVE TYPE                                           TYPE         364     A     
 TYPE               SA2    B4                                                              TYPE         365     A     
 TYPE               =X7    CR.DEC                                                          TYPE         366     A     
 TYPE               SB7    X2-O.STAR                                                       TYPE         367          I
          -FCC1237
 TYPE               SA7    REFVAR                                                          TYPE         368     A     
 TYPE               NZ     B7,TYP05    IF NO IBM STAR                                      TYPE         369          I
          -FCC1237
 TYPE               SA1    TYPA+1                                                          TYPE         370          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1119    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
          -FCC1237
 TYPE               SB4    B4+2        ADVANCE OVER THE STAR                               TYPE         371          I
          -FCC1237
 TYPE               SX6    X1+B1       COUNT UP STAR USEAGE                                TYPE         372          I
          -FCC1237
 TYPE               SA6    A1          FLAG NON-ANSI USE                                   TYPE         373          I
          -FCC1237
 TYPE      TYP05    NZ     X3,IMP.(    IF PROCESSING *IMPLICIT*                            TYPE         374          I
          -FCC1237
 TYPE               NZ     X3,IMP.(    IF PROCESSING *IMPLICIT*                            FCC1237       12     A     
 TYPE      TYP1     SA2    B4                                                              TYPE         375     A     
 TYPE               MX0    LG.VAR*CHAR                                                     TYPE         376     A     
 TYPE               SB7    X2-O.VAR                                                        TYPE         377     A     
 TYPE               BX6    X0*X2                                                           TYPE         378     A     
 TYPE               SA6    FILL.                                                           TYPE         379     A     
 TYPE               LX6    CHAR                                                            TYPE         380     A     
 TYPE               SB6    X6-1R0                                                          TYPE         381     A     
 TYPE               PL     B6,TYP12    IF FIRST CHARACTER NOT LETTER                       TYPE         382     A     
 TYPE               LX6    -CHAR       RESTORE                                             TYPE         383     A     
 TYPE               NZ     B7,TYP12    IF NOT SYMBOL                                       TYPE         384     A     
 TYPE               RJ     STY         SET NATURAL TYPE                                    TYPE         385          I
          -FCC1237
 TYPE               BX5    X1                                                              TYPE         386          I
          -FCC1237
 TYPE               SCAN   TS.SYM,SSY                                                      TYPE         387     A     
 TYPE               MI     B7,TYP5     IF NO ENTRY                                         TYPE         388          I
          -FCC2177
 TYPE               MI     B7,TYP5     IF NO ENTRY                                         FCC2177        9     A     
 TYPE               NZ     X1,TYP2     IF NO CONFLICT BETWEEN FUNCT MODE & VAR MODE        FCC2177       10     A     
 TYPE               FATAL  E.SU12                                                          FCC2177       11     A     
 TYPE      TYP2     MX0    -L.MODE                                                         FCC2177       12     A     
 TYPE               IX2    X6-X1                                                           TYPE         389          I
          -FCC1237
 TYPE               BX3    X5-X1                                                           TYPE         390          I
          -FCC1237
 TYPE               IX6    X2+X4                                                           TYPE         391          I
          -FCC1237
 TYPE               NZ     X3,TYP4     IF PREVIOUS TYPING                                  TYPE         392          I
          -FCC1237
 TYPE               SA6    A2          RESET INTO TT.NAM                                   TYPE         393          I
          -FCC1237
 TYPE               MX0    -L.MODE                                                         FCC1237       13     A     
 TYPE               BX5    X2                                                              FCC1237       14     A     
 TYPE               IFBIT  X5,TYP,TYP4  IF PREVIOUS TYPING                                 FCC1237       15     A     
 TYPE               BX6    X0*X2       CLEAR IMPLICIT MODE                                 FCC1237       16     A     
 TYPE               SX0    M.TYP                                                           FCC1237       17     A     
 TYPE               IX6    X4+X6       ADD IN NEW MODE                                     FCC1237       18     A     
 TYPE               BX6    X0+X6       SET TYPE DECLARATION BIT                            FCC1237       19     A     
 TYPE               SA6    A2          RESET INTO TS.SYM                                   FCC1237       20     A     
 TYPE               EQ     TYP7                                                            TYPE         394     A     
 TYPE                                                                                      TYPE         395     A     
 TYPE      TYP4     WARN   E.TT        CURRENT TYPING IGNORED                              TYPE         396     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1120    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
 TYPE               EQ     TYP7                                                            TYPE         397     A     
 TYPE                                                                                      TYPE         398     A     
 TYPE      TYP5     BX7    X4          SET TYPE                                            TYPE         399          I
          -FCC1237
 TYPE      TYP5     SX0    M.TYP                                                           FCC1237       21     A     
 TYPE               BX7    X0+X4       SET TYPE AND TYPE DECLARATION BIT                   FCC1237       22     A     
 TYPE               ADSYM  A1                                                              TYPE         400     A     
 TYPE                                                                                      TYPE         401     A     
 TYPE      TYP7     SA1    B4+B1                                                           TYPE         402     A     
 TYPE               SB7    X1-O.VAR                                                        TYPE         403     A     
 TYPE               NZ     B7,TYP75    IF NOT LONG NAME                                    TYPE         404     A     
 TYPE               RJ     =XTLV       TRUNCATE NAME                                       TYPE         405     A     
 TYPE               =A1    B4+1                                                            TYPE         406     A     
 TYPE      TYP75    SX2    X1-O.(                                                          TYPE         407     A     
 TYPE     */FIX BAD CODE AND ALLOW LONG NAME IN CALL STATEMENT                             TYPE         408          I
          -FCC0498
 TYPE               ZR     X2,TYP8     IF DIMENSIONED                                      TYPE         409     A     
 TYPE               ADDREF X6,CR.DEC,TYP9                                                  TYPE         410     A     
 TYPE                                                                                      TYPE         411     A     
 TYPE      TYP8     RJ     DIR         PROCESS DIMENSIONED VARIABLE                        TYPE         412     A     
 TYPE                                                                                      TYPE         413     A     
 TYPE      TYP9     =A1    B4+1        FETCH SEPARATOR                                     TYPE         414     A     
 TYPE               SA4    TYPA        RESTORE (X4) = TYPE CODE                            TYPE         415     A     
 TYPE               =B4    A1+1        POINT TO NEXT ITEM                                  TYPE         416     A     
 TYPE               SX2    X1-O.COMMA                                                      TYPE         417     A     
 TYPE               ZR     X1,TYP10    IF *EOS*                                            TYPE         418          I
          -FCC1237
 TYPE               SX3    X1-O.STAR                                                       TYPE         419          I
          -FCC1237
 TYPE               ZR     X1,PSP                                                          FCC1237       23     A     
 TYPE               ZR     X2,TYP1     IF COMMA                                            TYPE         420     A     
 TYPE               ZR     X3,TYP9B    IF  STAR                                            TYPE         421          I
          -FCC1237
 TYPE               SA2    X1+=XCHARMAP                                                    TYPE         422     A     
 TYPE               MX0    L.CDPC                                                          TYPE         423     A     
 TYPE               NZ     X2,TYP9A    IF NOT VARIABLE OR CONSTANT                         TYPE         424     A     
 TYPE               LX2    X1                                                              TYPE         425     A     
 TYPE      TYP9A    BX6    X0*X2                                                           TYPE         426     A     
 TYPE               SA6    FILL.                                                           TYPE         427     A     
 TYPE               EQ     E.TY        ISSUE NON-COMMA ERROR MESSAGE                       TYPE         428     A     
 TYPE      TYP9B    SA1    TYPA+1                                                          TYPE         429     A     
 TYPE               SX6    X1+B1       INCREMENT IBM-STAR COUNT FOR ANSI MSG               TYPE         430          I
          -FCC1237
 TYPE               SA6    A1                                                              TYPE         431          I
          -FCC1237
 TYPE               WARN   E.TY2       WARN OF IBM-STAR                                    TYPE         432          I
          -FCC1237
 TYPE               SB4    B4+B1       ADVANCE OVER THE STAR                               TYPE         433          I
          -FCC1237
 TYPE               EQ     TYP7        CHECK FOR DIM. INFO AGAIN                           TYPE         434          I
          -FCC1237
 TYPE                                                                                      TYPE         435          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1121    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TYPE    
  
          -FCC1237
 TYPE      TYP10    SA1    TYPA+1                                                          TYPE         436          I
          -FCC1237
 TYPE               ZR     X1,PSP      IF NO IBM USEAGES                                   TYPE         437          I
          -FCC1237
 TYPE               RJ     CDD         CONVERT DECIMAL (COUNT)                             TYPE         438          I
          -FCC1237
 TYPE               SA6    FILL.                                                           TYPE         439          I
          -FCC1237
 TYPE               EQ     E.TY3       WARN OF NON-ANSI IBM-S                              TYPE         440          I
          -FCC1237
 TYPE                                                                                      TYPE         441     A     
 TYPE      TYP12    SA1    X2+=XCHARMAP                                                    TYPE         442     A     
 TYPE               ZR     X1,E.TE5    IF FILL. ALREADY SET                                TYPE         443     A     
 TYPE               MX0    L.CDPC                                                          TYPE         444     A     
 TYPE               BX6    X0*X1                                                           TYPE         445     A     
 TYPE               SA6    FILL.                                                           TYPE         446     A     
 TYPE               EQ     E.TE5       SYNTAX ERROR                                        TYPE         447     A     
 TYPE      TYP13    SA1    B4          ATTEMPT TO RESUME SCAN                              TYPE         448     A     
 TYPE               SB7    X1-O.COMMA                                                      TYPE         449     A     
 TYPE               ZR     B7,TYP14    IF A COMMA                                          TYPE         450     A     
 TYPE               SB4    B4+B1                                                           TYPE         451     A     
 TYPE               NZ     X1,TYP13    IF NO *EOS*                                         TYPE         452     A     
 TYPE               EQ     PSP         EXIT..                                              TYPE         453     A     
 TYPE      TYP14    =B4    B4-1                                                            TYPE         454     A     
 TYPE               EQ     TYP9        RESUME SCAN                                         TYPE         455     A     
 TYPE                                                                                      TYPE         456     A     
 TYPE      TYPA     BSS    2           TEMP CELLS FOR TYPE, NON-ANSI COUNT                 TYPE         457          I
          -FCC1237
 TYPE      TYPA     BSS    1           TEMP CELL FOR TYPE                                  FCC1237       24     A     
 TYPE      TYPB     CON    8LFUNCTION+O.VAR                                                TYPE         458     A     
 TYPE      TYPC     DATA   0           NON-ZERO WHEN *IMPLICIT* STMMT IN PROGRESS          TYPE         459     A     
 TYPE      TYPD     DATA   0           LETTERS SELECTED ON IMPLICIT STATEMENT              TYPE         460     A     
 TYPE      TYPF     DATA   0           = 0 , NO IMPLICIT STMMT PROCESSED                   FCC1258       13     A     
 TYPE     *                            = 1 , 1 IMPLICIT STMMT PROCESSED                    FCC1258       14     A     
 TYPE               LIST   D                                                               TYPE         461     A     
 TYPE               END                                                                    TYPE         462     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - TYPE    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          TYPE                       462       424
          FEAT155G                     1         1
          FCC1237                     17        17
          FCC1258                      7         7
          FCC2177                      5         5
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT      *DECK     FMT                                                                    FMT            1     A     
 FMT                IDENT  FMT                                                             FMT            2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1122    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT       FMT      SECT   (FORMAT STATEMENT PROCESSOR),1                                  FMT            3     A     
 FMT                                                                                       FMT            4     A     
 FMT                SST    B,D                                                             FMT            5     A     
 FMT                NOREF  B,D                                                             FMT            6     A     
 FMT                                                                                       FMT            7     A     
 FMT       B=FMT    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             FMT            8     A     
 FMT                                                                                       FMT            9     A     
 FMT                ENTRY  FMT6A                                                           FMT           10     A     
 FMT                                                                                       FMT           11     A     
 FMT      *         IN TABLES                                                              FMT           12     A     
 FMT                EXT    CDD,LASTCOL,LINENO,TP.FMT,TP=FMT,TS.STN                         FMT           13          I
          -FEAT155E 
 FMT                EXT    CDD,LASTCOL,TP.FMT,TP=FMT,TS.STN                                FEAT155E     296     A     
 FMT                                                                                       FMT           14     A     
 FMT      *         IN ERRORS                                                              FMT           15     A     
 FMT                EXT    E.FS1,E.FS2,E.FS3,E.FS4,E.FS5,E.FS6,E.FS5A,E.FS6A               FMT           16     A     
 FMT                EXT    E.FS7,E.FS7A,E.FS7B,E.FS7C                                      FMT           17     A     
 FMT                EXT    E.FS8,E.FS8B,E.FS8C,E.FS8D,E.FS8E,E.FS8F,E.FS8A                 FMT           18     A     
 FMT                EXT    E.FS9,E.FS10,E.FS11,E.FS11A                                     FMT           19     A     
 FMT                EXT    E.FS14,E.FS18,E.FS23,E.FS24,E.FS26,E.FS18A                      FMT           20     A     
 FMT                EXT    E.FM,FILL.                                                      FMT           21     A     
 FMT                                                                                       FMT           22     A     
 FMT      *         IN ALLOC                                                               FMT           23     A     
 FMT                EXT    ERT,ESN,MVE,SSN                                                 FMT           24     A     
 FMT                                                                                       FMT           25     A     
 FMT      *         IN MAIN                                                                FMT           26     A     
 FMT                EXT    PSP.F                                                           FMT           27     A     
 FMT                                                                                       FMT           28     A     
 FMT      *         IN LEX                                                                 FMT           29     A     
 FMT                EXT    THC,TSC                                                         FMT           30     A     
 FMT                                                                                       FMT           31     A     
 FMT      *         IN NUM                                                                 FMT           32     A     
 FMT                EXT    CUA                                                             FMT           33     A     
 FMT                                                                                       FMT           34     A     
 FMT      *         IN INIT                                                                FMT           35     A     
 FMT                EXT    FORSKEL,TRVA                                                    FMT           36     A     
 FMT       ASD      SPACE  4,12                                                            FMT           37     A     
 FMT      **        ASD -  ASSEMBLE DIGITS FOR *FORMAT* PROCESSOR.                         FMT           38     A     
 FMT      *         ENTRY  (B5) = 10- CURRENT CHAR COUNT.                                  FMT           39     A     
 FMT      *                                                                                FMT           40     A     
 FMT      *                IF (X0) = 0                                                     FMT           41     A     
 FMT      *                   (X4) = CHARACTER BEFORE 1ST DIGIT.                           FMT           42     A     
 FMT      *                IF (X0) < 0                                                     FMT           43     A     
 FMT      *                   (X4) = 1ST DIGIT.                                            FMT           44     A     
 FMT      *                                                                                FMT           45     A     
 FMT      *                (X7) = CURRENT BUILD WORD.                                      FMT           46     A     
 FMT      *                                                                                FMT           47     A     
 FMT      *         EXIT   (A4) _ NEXT CHARACTER AFTER DIGIT.                              FMT           48     A     
 FMT      *                (X2) = ASSEMBLED BINARY NUMBER.                                 FMT           49     A     
 FMT      *                (X7) = UPDATED BUILD WORD.                                      FMT           50     A     
 FMT      *                                                                                FMT           51     A     
 FMT      *         USES   A1,A4-A6  X0-X5  B2,B5,B7                                       FMT           52     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1123    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                                                                                       FMT           53     A     
 FMT                                                                                       FMT           54     A     
 FMT       ASD      SUBR   0                                                               FMT           55     A     
 FMT                SA5    ="NUM09"                                                        FMT           56     A     
 FMT                BX2    0           INITIALIZE BINARY NUMBER                            FMT           57     A     
 FMT                MI     X0,ASD1     IF 1ST DIGIT ALREADY IN REGISTER.                   FMT           58     A     
 FMT                SA4    A4+B1                                                           FMT           59     A     
 FMT                UX4    X4                                                              FMT           60     A     
 FMT                                                                                       FMT           61     A     
 FMT      **        CHECK FOR *=*                                                          FMT           62     A     
 FMT                                                                                       FMT           63     A     
 FMT       ASD1     SB7    X4-1R=                                                          FMT           64     A     
 FMT                NZ     B7,ASD5     IF NOT *=*                                          FMT           65     A     
 FMT                ANSI   E.FS9       *=* IS NON-ANSI                                     FMT           66     A     
 FMT                BX5    0           FLAG THAT DIGIT IS *=*                              FMT           67     A     
 FMT                MX2    60                                                              FMT           68     A     
 FMT                                                                                       FMT           69     A     
 FMT      **        PACK CHARACTER IN BUILD WORD.                                          FMT           70     A     
 FMT                                                                                       FMT           71     A     
 FMT       ASD5     SB2    X4                                                              FMT           72     A     
 FMT                LX7    CHAR                                                            FMT           73     A     
 FMT                SB5    B5-B1                                                           FMT           74     A     
 FMT                LX3    B2,X5                                                           FMT           75     A     
 FMT                BX7    X7+X4                                                           FMT           76     A     
 FMT                LX1    B1,X2                                                           FMT           77     A     
 FMT                SX0    X4-1R0                                                          FMT           78     A     
 FMT                NZ     B5,ASD10    IF NOT FULL WORD                                    FMT           79     A     
 FMT                SB5    10                                                              FMT           80     A     
 FMT                =A7    A7+1        STORE FORMAT WORD                                   FMT           81     A     
 FMT                BX7    0                                                               FMT           82     A     
 FMT                                                                                       FMT           83     A     
 FMT      **        CONVERT TO BINARY                                                      FMT           84     A     
 FMT                                                                                       FMT           85     A     
 FMT       ASD10    PL     X3,ASD11    IF NOT DIGIT                                        FMT           86     A     
 FMT                LX2    3                                                               FMT           87     A     
 FMT                IX2    X2+X1                                                           FMT           88     A     
 FMT                SA4    A4+B1                                                           FMT           89     A     
 FMT                IX2    X2+X0                                                           FMT           90     A     
 FMT                UX4    X4                                                              FMT           91     A     
 FMT                EQ     ASD5        LOOP                                                FMT           92     A     
 FMT                                                                                       FMT           93     A     
 FMT       ASD11    NZ     X5,ASDX     IF DIGIT IS NOT *=*                                 FMT           94     A     
 FMT                SA4    A4+B1       ASSEMBLY CHAR AFTER *=*                             FMT           95     A     
 FMT                =X5    1           FORCE EXIT AFTER NEXT CHAR                          FMT           96     A     
 FMT                UX4    X4                                                              FMT           97     A     
 FMT                EQ     ASD5                                                            FMT           98     A     
 FMT       OFE      SPACE  4,12                                                            FMT           99     A     
 FMT      **        FMT -  PROCESS "FORMAT" STATEMENT.                                     FMT          100     A     
 FMT      *                                                                                FMT          101     A     
 FMT      *         *FMT* SCANS FORMAT FOR SYNTACTICAL CORRECTNESS CHECKING FOR            FMT          102     A     
 FMT      *         ILLEGAL COMBINATIONS AN MISCELLANEOUS PROGRAMMER ERRORS.               FMT          103     A     
 FMT      *         *FMT*S GOAL IS TO CONTINUE TO VERIFY THE FORMAT IN ALL CASES           FMT          104     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1124    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT      *         EVEN WHEN AN ERROR IS ENCOUNTERED                                      FMT          105     A     
 FMT      *                                                                                FMT          106     A     
 FMT      *         ENTRY  B4 _ START OF *SB*                                              FMT          107     A     
 FMT      *                *SB* IS UNTABBED.                                               FMT          108     A     
 FMT      *         EXIT   TO *PSP.F*                                                      FMT          109     A     
 FMT      *                                                                                FMT          110     A     
 FMT      *         CALLS  ANSI,CUA,ERT,ESN,MVE,PWE,SSN,THC,TSC                            FMT          111     A     
 FMT      *                                                                                FMT          112     A     
 FMT      *         USES   ALL REGISTERS.                                                  FMT          113     A     
 FMT                                                                                       FMT          114     A     
 FMT                                                                                       FMT          115     A     
 FMT                HEREIF FORMAT                                                          FMT          116     A     
 FMT                                                                                       FMT          117     A     
 FMT                SA2    B4                                                              FMT          118     A     
 FMT                SA1    "SB.STN"                                                        FMT          119          I
          -FCC0827
 FMT                SA1    =XSB.STNR   STATEMENT LABEL IN 0R FORM                          FCC0827        4     A     
 FMT                UX2    X2                                                              FMT          120     A     
 FMT                SB6    X2-1R(                                                          FMT          121     A     
 FMT                NZ     B6,E.FM     IF HERE FROM *KEYWORD*                              FMT          122     A     
 FMT                RJ     CUA                                                             FMT          123          I
          -FCC0827
 FMT                BX5    0                                                               FMT          124     A     
 FMT                ZR     X6,E.FS1    IF NO STATEMENT NUMBER. (RETURN TO FMT6)            FMT          125          I
          -FCC0827
 FMT                BX1    X6                                                              FMT          126          I
          -FCC0827
 FMT                SB2    B0                                                              FMT          127          I
          -FCC0827
 FMT                BX5    0                                                               FMT          128          I
          -FCC0827
 FMT                SB2    B0                                                              FCC0827        5     A     
 FMT                ZR     X1,E.FS1    IF NO STMT NUMBER.  (RETURN TO FMT6A)               FCC0827        6     A     
 FMT                MI     X1,FMT6A    IF BAD LABEL                                        FCC0827        7     A     
 FMT                BX6    X1                                                              FCC0827        8     A     
 FMT                SB5    B0                                                              FMT          129          I
          -FEAT155EA
 FMT                LX1    5*CHAR                                                          FMT          130     A     
 FMT                MX0    -CHAR                                                           FMT          131     A     
 FMT                SA3    =5L                                                             FMT          132     A     
 FMT                                                                                       FMT          133     A     
 FMT      **        PACK STATEMENT NUMBER AND LINE NUMBER FOR I/O ROUTINES.                FMT          134     A     
 FMT                                                                                       FMT          135     A     
 FMT       FMT1     LX1    CHAR                                                            FMT          136     A     
 FMT                BX2    -X0*X1                                                          FMT          137     A     
 FMT                ZR     X2,FMT1     IF NO DIGIT YET.                                    FMT          138     A     
 FMT       FMT1A    ZR     X2,FMT1B    IF END OF STATEMENT NUMBER.                         FMT          139     A     
 FMT                LX5    CHAR                                                            FMT          140     A     
 FMT                SB2    B2+CHAR                                                         FMT          141     A     
 FMT                LX1    CHAR                                                            FMT          142     A     
 FMT                BX5    X2+X5                                                           FMT          143     A     
 FMT                BX2    -X0*X1                                                          FMT          144     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1125    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                EQ     FMT1A       CONTINUE                                            FMT          145     A     
 FMT                                                                                       FMT          146     A     
 FMT      **        (X5) = 0L "STATEMENT NUMBER" OR "LINE NUMBER"                          FMT          147          I
          -FEAT155EA
 FMT      **        (X5) = 0L "STATEMENT NUMBER"                                           FEAT155EA     31     A     
 FMT                                                                                       FMT          148     A     
 FMT       FMT1B    SB3    10*CHAR-1                                                       FMT          149     A     
 FMT                SB2    B2-B1                                                           FMT          150     A     
 FMT                MX0    1                                                               FMT          151     A     
 FMT                SB6    B3-B2                                                           FMT          152     A     
 FMT                AX0    B2,X0                                                           FMT          153     A     
 FMT                BX1    -X0*X3                                                          FMT          154     A     
 FMT                LX5    B6,X5                                                           FMT          155     A     
 FMT                BX5    X1+X5       ADD IN TRAILING BLANKS.                             FMT          156     A     
 FMT                NZ     B5,FMT1C     IF FINISHED                                        FMT          157          I
          -FEAT155E 
 FMT                SA1    LINENO       LINE NUMBER                                        FMT          158          I
          -FEAT155E 
 FMT                LX7    X5          SAVE FORMAT NUMBER                                  FMT          159          I
          -FEAT155E 
 FMT                SB2    B0                                                              FMT          160          I
          -FEAT155E 
 FMT                BX5    0                                                               FMT          161          I
          -FEAT155E 
 FMT                SB5    B5+B1                                                           FMT          162          I
          -FEAT155E 
 FMT                MX0    -CHAR                                                           FMT          163          I
          -FEAT155E 
 FMT                NZ     X1,FMT1        LOOP FOR LINE NUMBER                             FMT          164          I
          -FEAT155E 
 FMT                                                                                       FMT          165          I
          -FEAT155EA
 FMT      **        (X5) = 0L "LINE NUMBER"                                                FMT          166          I
          -FEAT155EA
 FMT      *         (X7) = 0L "STATEMENT NUMBER"                                           FMT          167          I
          -FEAT155EA
 FMT                                                                                       FMT          168          I
          -FEAT155EA
 FMT       FMT1C    LX5    30                                                              FMT          169          I
          -FEAT155EA
 FMT                BX5    X5+X7                                                           FMT          170          I
          -FEAT155EA
 FMT                LX6    P.STN                                                           FMT          171          I
          -FEAT155EA
 FMT                LX6    P.STN                                                           FEAT155EA     32     A     
 FMT                SCAN   TS.STN,SSN                                                      FMT          172     A     
 FMT                PL     B7,FMT2     IF *IT*                                             FMT          173     A     
 FMT                =X7    M.SNFMT+M.SNDEF                                                 FMT          174     A     
 FMT                ADSTN  A1          ADD TO TABLE.                                       FMT          175     A     
 FMT                EQ     FMT6        CONTINUE.                                           FMT          176     A     
 FMT                                                                                       FMT          177     A     
 FMT       FMT2     IFBIT  X6,SNFMT,FMT4     IF FORMAT                                     FMT          178     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1126    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                SB2    E.FS23                                                          FMT          179     A     
 FMT                IFBIT  X6,SNDOT/SNFMT,FMT3                                             FMT          180     A     
 FMT                SB2    E.FS24                                                          FMT          181     A     
 FMT       FMT3     =X1    M.SNDEF                                                         FMT          182     A     
 FMT                BX6    X1+X2                                                           FMT          183     A     
 FMT                SA6    A2                                                              FMT          184     A     
 FMT                FATAL  B2          OUTPUT ERROR.                                       FMT          185     A     
 FMT                EQ     FMT6A                                                           FMT          186     A     
 FMT                                                                                       FMT          187     A     
 FMT      **        SET *FORMAT* DEFINITION INTO TS.STN                                    FMT          188     A     
 FMT                                                                                       FMT          189     A     
 FMT       FMT4     SB2    E.FS26                                                          FMT          190     A     
 FMT                IFBIT  X6,SNDEF/SNFMT,FMT3                                             FMT          191     A     
 FMT                =X1    M.SNDEF                                                         FMT          192     A     
 FMT                BX6    X1+X2                                                           FMT          193     A     
 FMT                SA6    A2          RESET INDICATING *FORMAT* + *DEFINED*               FMT          194     A     
 FMT                                                                                       FMT          195     A     
 FMT      **        HERE WITH REGISTERS = TO                                               FMT          196     A     
 FMT      **        (B7) _ SYMBOL ENTRY FOR STATEMENT NUMBER.                              FMT          197     A     
 FMT      **        (X5) = FORMAT NUMBER FOR ENTRY INTO FORMAT SKELETON TABLE.             FMT          198     A     
 FMT                                                                                       FMT          199     A     
 FMT       FMT6     SA3    TP=FMT                                                          FMT          200     A     
 FMT                SA4    TS.STN                                                          FMT          201     A     
 FMT                SB7    B7+B1       TS.STN ORDINAL                                      FMT          202     A     
 FMT                LX3    P.SNAD      TP.FMT ORDINAL                                      FMT          203     A     
 FMT                SA4    X4+B7       TAG.                                                FMT          204     A     
 FMT                IX6    X4+X3       ADD-IN POINTER ORDINAL.                             FMT          205     A     
 FMT                SA6    TRVA        SAVE TAG FOR REF-MAP (IF REQUESTED)                 FMT          206     A     
 FMT                ZR     X7,FMT6A    IF ERROR.                                           FMT          207          I
          -FCC1215
 FMT                SA6    A4          RESET TS.STN TO CONTAIN TP.FMT POINTER.             FMT          208     A     
 FMT       FMT6A    SA2    LASTCOL                                                         FMT          209     A     
 FMT                SB2    X2-1                                                            FMT          210     A     
 FMT                BX7    X5                                                              FMT          211     A     
 FMT                SA1    A0+B2                                                           FMT          212     A     
 FMT                SX6    X1-1R)                                                          FMT          213     A     
 FMT                SA7    FORSKEL     0L [STATEMENT NUMBER]                               FMT          214     A     
 FMT                NZ     X6,E.FS2    IF *)* - ERROR                                      FMT          215     A     
 FMT                SB6    -1776B                                                          FCC0844       21     A     
 FMT                MX0    -1                                                              FMT          216     A     
 FMT                PX6    B1,X0                                                           FMT          217          I
          -FCC0844
 FMT                PX6    B6,X0                                                           FCC0844       22     A     
 FMT                SA6    A1+B1       MARK *EOS*                                          FMT          218     A     
 FMT                                                                                       FMT          219     A     
 FMT      **        VALIDATE *FORMAT* FOR SYNTACTICAL CORRECTNESS.                         FMT          220     A     
 FMT                                                                                       FMT          221     A     
 FMT                SB6    B0                                                              FMT          222     A     
 FMT                BX6    0                                                               FMT          223     A     
 FMT                SB5    9           CHAR/WORD CTR (NORMALLY 10 AT START)                FMT          224     A     
 FMT                SA4    B4          FETCH 1ST *(* OF FORMAT                             FMT          225     A     
 FMT                SA6    FMTRL       INITILIZE CHAR/RECORD CTR                           FMT          226     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1127    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                SA6    FMTRLC      CLEAR RECORD LENGTH CHECK.                          FMT          227     A     
 FMT                SB3    B0          INITIALIZE PAREN LEVEL CTR                          FMT          228     A     
 FMT                UX7    X4                                                              FMT          229     A     
 FMT                EQ     FMT.NX      PROCESS 1ST CHAR AFTER LEFT PAREN                   FMT          230     A     
 FMT                                                                                       FMT          231     A     
 FMT      **        MASTER LOOP FOR CHECKING SYNTAX OF FORMAT.                             FMT          232     A     
 FMT      *         REGISTERS CONTAIN                                                      FMT          233     A     
 FMT      *         (A4) = CURRENT *SB* WORD PROCESSING.                                   FMT          234     A     
 FMT      *         (A7) = SKELETON STORE ADDRESS-1.                                       FMT          235     A     
 FMT      *         (X2) = REPEAT COUNT.                                                   FMT          236     A     
 FMT      *         (X7) = CURRENT BUILD WORD.                                             FMT          237     A     
 FMT      *         (B3) = PARENTHESIS LEVEL.                                              FMT          238     A     
 FMT                                                                                       FMT          239     A     
 FMT      **        ERROR ROUTINES CALLED SAVE ALL REGISTERS EXCEPT                        FMT          240     A     
 FMT      *         A1,A6  X0,X1  B7                                                       FMT          241     A     
 FMT                                                                                       FMT          242     A     
 FMT      **        HERE ON *(*                                                            FMT          243     A     
 FMT      *         UPDATE *(* COUNT, SAVE LEVEL STACK WORD, CHECK MAX PAREN LEVEL         FMT          244     A     
 FMT                                                                                       FMT          245     A     
 FMT       FMTBASE  BSS    0                                                               FMT          246     A     
 FMT       FMT.LP   NZ     X2,FMT.LP1  IF NOT NULL, ZERO, OR *=* AS REPEAT COUNT           FMT          247     A     
 FMT                BX5    X2                                                              FMT          248     A     
 FMT                =X2    1                                                               FMT          249     A     
 FMT                MI     X5,FMT.LP1  IF NULL OR *=*                                      FMT          250     A     
 FMT                =X2    0                                                               FMT          251     A     
 FMT                FATAL  E.FS8A      ZERO REPEAT COUNT                                   FMT          252     A     
 FMT       FMT.LP1  SA3    FMTRL                                                           FMT          253     A     
 FMT                =B3    B3+1                                                            FMT          254     A     
 FMT                LX3    18                                                              FMT          255     A     
 FMT                BX6    X3+X2       24/0,18/FMTRL,18/REPEAT COUNT                       FMT          256     A     
 FMT                SX1    B3-LVMAX-1                                                      FMT          257     A     
 FMT                SA6    B3+LVSTAK-1 NTH LEVEL STACK WORD                                FMT          258     A     
 FMT                MI     X1,FMT.NX   IF PAREN LEVEL .LE. MAX -- OK                       FMT          259     A     
 FMT                FATAL  E.FS3       EXCEEDED MAX PAREN LEVELS                           FMT          260     A     
 FMT                =B3    B3-1        IN CASE MORE LEFT PARENS                            FMT          261     A     
 FMT                EQ     FMT.NX                                                          FMT          262     A     
 FMT                                                                                       FMT          263     A     
 FMT      **        HERE ON *)*                                                            FMT          264     A     
 FMT                                                                                       FMT          265     A     
 FMT       FMT.RP   ZR     B3,FMT.RP1  IF ZERO-LEVEL PAREN                                 FMT          266     A     
 FMT                SA3    B3+LVSTAK-1                                                     FMT          267     A     
 FMT                SB3    B3-B1                                                           FMT          268     A     
 FMT                MI     X3,FMT.NX   IF A SLASH OR TAB WITHIN PAREN LEVEL                FMT          269     A     
 FMT                SX2    X3                                                              FMT          270     A     
 FMT                SA1    FMTRL                                                           FMT          271     A     
 FMT                AX3    18                                                              FMT          272     A     
 FMT                IX0    X1-X3                                                           FMT          273     A     
 FMT                IX1    X2*X0       REPEAT COUNT * GROUP LENGTH                         FMT          274     A     
 FMT                IX6    X1+X3       INCREMENT RECORD LENGTH                             FMT          275     A     
 FMT                SA6    A1                                                              FMT          276     A     
 FMT                EQ     FMT.NX                                                          FMT          277     A     
 FMT                                                                                       FMT          278     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1128    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT       FMT.RP1  SA4    A4+B1       CHECK FOR LEGAL TERMINAL *)*                        FMT          279     A     
 FMT                MI     X4,FMT.EOS1 IF *EOS*                                            FMT          280     A     
 FMT                SX6    X4                                                              FCC1385       10     A     
 FMT                LX6    9*CHAR                                                          FCC1385       11     A     
 FMT                SA6    FILL.       BAD CHAR TO FILL.                                   FCC1385       12     A     
 FMT                FATAL  E.FS18      CHAR FOLLOWS TERMINAL *)*                           FMT          281     A     
 FMT                EQ     FMT.EOS1    FINISH UP                                           FMT          282     A     
 FMT                                                                                       FMT          283     A     
 FMT                                                                                       FMT          284     A     
 FMT      **        HERE ON *A,D,E,F,G,I,L,O,R,V,Z*                                        FMT          285     A     
 FMT                                                                                       FMT          286     A     
 FMT       FMT.O    BSS    0                                                               FMT          287     A     
 FMT       FMT.R    BSS    0                                                               FMT          288     A     
 FMT       FMT.V    BSS    0                                                               FMT          289     A     
 FMT       FMT.Z    BSS    0                                                               FMT          290     A     
 FMT                ANSI   E.FS8       O,R,V,Z ARE NON-ANSI                                FMT          291     A     
 FMT       FMT.A    BSS    0                                                               FMT          292     A     
 FMT       FMT.D    BSS    0                                                               FMT          293     A     
 FMT       FMT.E    BSS    0                                                               FMT          294     A     
 FMT       FMT.F    BSS    0                                                               FMT          295     A     
 FMT       FMT.G    BSS    0                                                               FMT          296     A     
 FMT       FMT.I    BSS    0                                                               FMT          297     A     
 FMT       FMT.L    SB4    X4                                                              FMT          298     A     
 FMT                NZ     X2,FMT.L1   IF NOT 0,NULL,OR *=* AS REPEAT COUNT                FMT          299     A     
 FMT                BX5    X2                                                              FMT          300     A     
 FMT                =X2    1                                                               FMT          301     A     
 FMT                MI     X5,FMT.L1   IF NULL OR *=* AS REPEAT COUNT                      FMT          302     A     
 FMT                =X2    0                                                               FMT          303     A     
 FMT                FATAL  E.FS8A      ZERO REPEAT COUNT                                   FMT          304     A     
 FMT                                                                                       FMT          305     A     
 FMT      **        PROCESS FIELD WIDTH W                                                  FMT          306     A     
 FMT                                                                                       FMT          307     A     
 FMT       FMT.L1   BX6    X2                                                              FMT          308     A     
 FMT                MX0    0                                                               FMT          309     A     
 FMT                SA6    FMTRC       SAVE REPEAT COUNT                                   FMT          310     A     
 FMT                RJ     ASD         ASSEMBLY DIGITS                                     FMT          311     A     
 FMT                NZ     X2,FMT.L3   IF NOT 0,NULL,OR *=* AS FIELD WIDTH                 FMT          312     A     
 FMT                MI     X2,FMT.L3   IF W IS *=*                                         FMT          313     A     
 FMT                SX1    B4-1RV                                                          FCC0589        8     A     
 FMT                ZR     X1,FMT.JP   IF V, MAY BE SUBSTITUTED BY P OR X                  FCC0589        9     A     
 FMT                FATAL  E.FS8B      W IS ZERO OR NULL                                   FMT          314     A     
 FMT                                                                                       FMT          315     A     
 FMT      **        PROCESS MINIMAL DIGITS Z                                               FMT          316     A     
 FMT                                                                                       FMT          317     A     
 FMT       FMT.L3   SA5    DEFG                                                            FMT          318     A     
 FMT                BX6    X2                                                              FMT          319     A     
 FMT                LX5    B4,X5                                                           FMT          320     A     
 FMT                BX1    X2                                                              FMT          321     A     
 FMT                SA6    FMTFW                                                           FMT          322     A     
 FMT                MI     X5,FMT.L5   IF D,E,F,OR G                                       FMT          323     A     
 FMT                SA5    IOV                                                             FMT          324     A     
 FMT                BX2    0                                                               FMT          325     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1129    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                LX5    B4,X5                                                           FMT          326     A     
 FMT                PL     X5,FMT.URL  IF NOT I,O,V                                        FMT          327     A     
 FMT                SB2    X4-1R.                                                          FMT          328     A     
 FMT                NZ     B2,FMT.URL  IF MINIMUM DIGITS NOT SPECIFIED                     FMT          329     A     
 FMT                ANSI   E.FS8C      MINIMUM DIGITS IS NON-ANSI                          FMT          330     A     
 FMT                MX0    0                                                               FMT          331     A     
 FMT                RJ     ASD         ASSEMBLY DIGITS                                     FMT          332     A     
 FMT                SB2    B4-1RV                                                          FMT          333     A     
 FMT                SA1    FMTFW                                                           FMT          334     A     
 FMT                NZ     B2,FMT.URL  IF NOT V                                            FMT          335     A     
 FMT                SX6    X2+3        W .GE. D+E+3                                        FMT          336     A     
 FMT                EQ     FMT.L9                                                          FMT          337     A     
 FMT                                                                                       FMT          338     A     
 FMT      **        PROCESS DECIMAL WIDTH D                                                FMT          339     A     
 FMT                                                                                       FMT          340     A     
 FMT       FMT.L5   SB2    X4-1R.                                                          FMT          341     A     
 FMT                ZR     B2,FMT.L7                                                       FMT          342     A     
 FMT                ANSI   E.FS8D      DECIMAL POINT EXPECTED FOR D,E,F,G                  FMT          343     A     
 FMT                =X2    2                                                               FMT          344     A     
 FMT                BX1    X6          FIELD WIDTH                                         FMT          345     A     
 FMT                EQ     FMT.URL                                                         FMT          346     A     
 FMT                                                                                       FMT          347     A     
 FMT       FMT.L7   MX0    0                                                               FMT          348     A     
 FMT                RJ     ASD         ASSEMBLY DIGITS                                     FMT          349     A     
 FMT                SX2    X2+2        W .GE. D+2                                          FMT          350     A     
 FMT                SA1    FMTFW                                                           FMT          351     A     
 FMT                SB2    B4-1RE                                                          FMT          352     A     
 FMT                NZ     B2,FMT.URL  IF NOT E CONVERSION DESCRIPTOR                      FMT          353     A     
 FMT                SX2    X2+3        W .GE. D+5                                          FMT          354     A     
 FMT                SX6    X2-2        W .GE. D+E+3                                        FMT          355     A     
 FMT                                                                                       FMT          356     A     
 FMT      **        PROCESS EXPONENT LENGTH E                                              FMT          357     A     
 FMT                                                                                       FMT          358     A     
 FMT       FMT.L9   SA5    DE                                                              FMT          359     A     
 FMT                SB2    X4                                                              FMT          360     A     
 FMT                LX5    B2,X5                                                           FMT          361     A     
 FMT                PL     X5,FMT.URL  IF EXPONENT LENGTH IS NOT SPECIFIED                 FMT          362     A     
 FMT                MX0    0                                                               FMT          363     A     
 FMT                RJ     ASD         ASSEMBLY DIGITS                                     FMT          364     A     
 FMT                ANSI   E.FS8E      EXPONENT LENGTH IS NON-ANSI                         FMT          365     A     
 FMT                SA1    FMTFW                                                           FMT          366     A     
 FMT                IX2    X6+X2                                                           FMT          367     A     
 FMT                                                                                       FMT          368     A     
 FMT      **        UPDATE RECORD LENGTH.                                                  FMT          369     A     
 FMT      *         CHECK W AGAINST SOME MINIMUM AND UPDATE RECORD LENGTH                  FMT          370     A     
 FMT      *                                                                                FMT          371     A     
 FMT      *         ENTRY  (X1) = FIELD WIDTH.           (W)                               FMT          372     A     
 FMT      *                (X2) = MINIMUM FIELD WIDTH                                      FMT          373     A     
 FMT                                                                                       FMT          374     A     
 FMT       FMT.URL  SA3    FMTRC                                                           FMT          375     A     
 FMT                IX0    X1-X2       FIELD WIDTH - MINIMUM                               FMT          376     A     
 FMT                MX2    60                                                              FMT          377     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1130    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                MI     X1,FMT.RL   IF FIELD WIDTH IS *=*                               FMT          378     A     
 FMT                IX6    X1*X3                                                           FMT          379     A     
 FMT                SA3    FMTRL                                                           FMT          380     A     
 FMT                PL     X0,FMT.URL5 IF FIELD WIDTH .GE. MINIMUM                         FMT          381     A     
 FMT                WARN   E.FS8F                                                          FMT          382     A     
 FMT       FMT.URL5 IX6    X6+X3                                                           FMT          383     A     
 FMT                SA6    A3          STORE NEW RECORD LENGTH                             FMT          384     A     
 FMT                EQ     FMT.RL      CHECK CURRENT LINE LENGTH                           FMT          385     A     
 FMT                                                                                       FMT          386     A     
 FMT      **        HERE ON *H*                                                            FMT          387     A     
 FMT                                                                                       FMT          388     A     
 FMT       FMT.H    SA3    FMTRL                                                           FMT          389     A     
 FMT                NZ     X2,FMT.H5   IF COUNT SPECIFIED.                                 FMT          390     A     
 FMT                FATAL  E.FS10      ZERO OR *=* COUNT SPECIFIED                         FMT          391     A     
 FMT                EQ     FMT.ENX     ADVANCE TO NEXT SEPARATOR.                          FMT          392     A     
 FMT                                                                                       FMT          393     A     
 FMT       FMT.H5   IX6    X3+X2                                                           FMT          394     A     
 FMT                SA1    A7                                                              FMT          395     A     
 FMT                SA6    A3          UPDATE RECORD LENGTH.                               FMT          396     A     
 FMT                BX6    X1                                                              FMT          397     A     
 FMT                SA6    A7          FWA-1                                               FMT          398     A     
 FMT                SX0    X2          COUNT                                               FMT          399     A     
 FMT                LX6    X7                                                              FMT          400     A     
 FMT                =B4    A4+1                                                            FMT          401     A     
 FMT                RJ     THC         TRANSLATE HOLLERITH                                 FMT          402     A     
 FMT                SA3    A6                                                              FMT          403     A     
 FMT                BX7    X3                                                              FMT          404     A     
 FMT                SA7    A6          RESET *A7*                                          FMT          405     A     
 FMT                LX7    X2                                                              FMT          406     A     
 FMT                SA4    B4                                                              FMT          407     A     
 FMT                ZR     X1,FMT.ENX  IF ERROR OCCURRED                                   FMT          408     A     
 FMT                EQ     FMT.SL5                                                         FMT          409     A     
 FMT                                                                                       FMT          410     A     
 FMT      **        HERE ON *T*                                                            FMT          411     A     
 FMT                                                                                       FMT          412     A     
 FMT       FMT.T    BX0    0                                                               FMT          413     A     
 FMT                RJ     ASD         ASSEMBLY DIGITS                                     FMT          414     A     
 FMT                MX0    1                                                               FMT          415     A     
 FMT                SA1    LVSTAK                                                          FMT          416     A     
 FMT                SB6    B0                                                              FMT          417     A     
 FMT       FMT.T3   BX6    X0+X1       SET SLASH-TAB FLAG IN LEVEL STACK                   FMT          418     A     
 FMT                =B6    B6+1                                                            FMT          419     A     
 FMT                SA6    A1                                                              FMT          420     A     
 FMT                =A1    A1+1                                                            FMT          421     A     
 FMT                LT     B6,B3,FMT.T3   IF MORE PRECEDING LEVELS                         FMT          422     A     
 FMT                SA3    FMTRL                                                           FMT          423     A     
 FMT                LX5    X2                                                              FMT          424     A     
 FMT                MX2    60                                                              FMT          425     A     
 FMT                ZR     X5,FMT.T5   IF *T* EDIT IS ZERO OR *=*                          FMT          426     A     
 FMT                SX6    X5-1        TAB EDIT CONVERTED TO RECORD LENGTH                 FMT          427     A     
 FMT                IX0    X6-X3                                                           FMT          428     A     
 FMT                SA6    A3                                                              FMT          429     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1131    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                PL     X0,FMT.RL   *T* EDIT .GE. CURRENT COLUMN                        FMT          430     A     
 FMT                WARN   E.FS5       *T* CODE OVERLAYS PREVIOUS LINE IMAGE               FMT          431     A     
 FMT                EQ     FMT.RL                                                          FMT          432     A     
 FMT                                                                                       FMT          433     A     
 FMT       FMT.T5   BX6    0                                                               FMT          434     A     
 FMT                SA6    A3                                                              FMT          435     A     
 FMT                MI     X5,FMT.JP   IF *T* EDIT IS *=*                                  FMT          436     A     
 FMT                ANSI   E.FS5A      *T* EDIT IS ZERO, RESET TO ONE                      FMT          437     A     
 FMT                EQ     FMT.JP                                                          FMT          438     A     
 FMT                                                                                       FMT          439     A     
 FMT      **        HERE ON *+* OR *-*                                                     FMT          440     A     
 FMT                                                                                       FMT          441     A     
 FMT       FMT.PL   BSS    0                                                               FMT          442     A     
 FMT       FMT.MIN  SB4    X4          SAVE CHAR, *+* OR *-*                               FMT          443     A     
 FMT                =A1    A4+1                                                            FMT          444     A     
 FMT                MX0    0                                                               FMT          445     A     
 FMT                UX3    X1                                                              FMT          446     A     
 FMT                SB7    X3-1RS                                                          FMT          447     A     
 FMT                ZR     B7,FMT.NX   IF + OR - S                                         FMT          448     A     
 FMT                RJ     ASD         ASSEMBLE DIGITS                                     FMT          449     A     
 FMT                SB7    X4-1RP                                                          FMT          450     A     
 FMT                ZR     B7,FMT.NX   IF NEXT IS *P*                                      FMT          451     A     
 FMT                SB6    X4-1RX                                                          FMT          452     A     
 FMT                ZR     B6,FMT.X0   IF NEXT IS *X*                                      FMT          453     A     
 FMT                FATAL  E.FS6       SIGN CAN ONLY PRECEDE *P* OR *NX*                   FMT          454     A     
 FMT                =A4    A4-1                                                            FMT          455     A     
 FMT                EQ     FMT.ENX     ADVANCE TO NEXT SEPARATOR                           FMT          456     A     
 FMT                                                                                       FMT          457     A     
 FMT       FMT.S    ANSI   E.FS6A      S CODE IS NON-ANSI                                  FMT          458     A     
 FMT                EQ     FMT.NX                                                          FMT          459     A     
 FMT                                                                                       FMT          460     A     
 FMT      **        PROCESS *+NX* OR *-NX*                                                 FMT          461     A     
 FMT                                                                                       FMT          462     A     
 FMT       FMT.X0   ANSI   E.FS7       + OR - NX IS NON-ANSI                               FMT          463     A     
 FMT                SX4    B4-1R-                                                          FMT          464     A     
 FMT                NZ     X4,FMT.X    IF SKIP COUNT IS FORWARD                            FMT          465     A     
 FMT                BX2    -X2                                                             FMT          466     A     
 FMT                                                                                       FMT          467     A     
 FMT      **        HERE ON *X*                                                            FMT          468     A     
 FMT                                                                                       FMT          469     A     
 FMT       FMT.X    SA3    FMTRL                                                           FMT          470     A     
 FMT                NZ     X2,FMT.X2   IF SKIP COUNT IS NOT NULL, ZERO, OR *=*             FMT          471     A     
 FMT                =A1    A4-1                                                            FMT          472     A     
 FMT                SB7    E.FS7C      SKIP COUNT IS ZERO                                  FMT          473     A     
 FMT                SB2    X1-1R0                                                          FMT          474     A     
 FMT                ZR     B2,FMT.X1   IF SKIP COUNT IS ZERO                               FMT          475     A     
 FMT                SB6    X1-1R=                                                          FMT          476     A     
 FMT                ZR     B6,FMT.SL5  IF SKIP COUNT IS *=*                                FMT          477     A     
 FMT                SB7    E.FS7B      NULL SKIP COUNT                                     FMT          478     A     
 FMT                =X2    1                                                               FMT          479     A     
 FMT                NZ     X4,FMT.X1   IF SKIP COUNT IS FORWARD                            FMT          480     A     
 FMT                =X2    -1                                                              FMT          481     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1132    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT       FMT.X1   ANSI   B7                                                              FMT          482     A     
 FMT       FMT.X2   IX6    X2+X3                                                           FMT          483     A     
 FMT                PL     X6,FMT.X3   IF RECORD LENGTH UPDATE IS OK                       FMT          484     A     
 FMT                BX6    0           RESET RECORD LENGTH                                 FMT          485     A     
 FMT                WARN   E.FS7A      BACKSPACE BEYOND 1ST COLUMN,RESET AT 1ST            FMT          486     A     
 FMT       FMT.X3   SA6    A3          UPDATE RECORD LENGTH                                FMT          487     A     
 FMT                EQ     FMT.SL5                                                         FMT          488     A     
 FMT                                                                                       FMT          489     A     
 FMT      **        HERE ON DIGIT.                                                         FMT          490     A     
 FMT                                                                                       FMT          491     A     
 FMT       FMT.=    BSS    0                                                               FMT          492     A     
 FMT       FMT.0    BSS    0                                                               FMT          493     A     
 FMT       FMT.1    BSS    0                                                               FMT          494     A     
 FMT       FMT.2    BSS    0                                                               FMT          495     A     
 FMT       FMT.3    BSS    0                                                               FMT          496     A     
 FMT       FMT.4    BSS    0                                                               FMT          497     A     
 FMT       FMT.5    BSS    0                                                               FMT          498     A     
 FMT       FMT.6    BSS    0                                                               FMT          499     A     
 FMT       FMT.7    BSS    0                                                               FMT          500     A     
 FMT       FMT.8    BSS    0                                                               FMT          501     A     
 FMT       FMT.9    BX0    X7                                                              FMT          502     A     
 FMT                AX7    CHAR                                                            FMT          503     A     
 FMT                NZ     X0,FMT.9A   IF DIGIT DID NOT CAUSE FLUSH OF BUILD WORD.         FMT          504     A     
 FMT                SA1    A7-B1                                                           FMT          505     A     
 FMT                SA3    A7                                                              FMT          506     A     
 FMT                MX0    CHAR                                                            FMT          507     A     
 FMT                BX7    X1                                                              FMT          508     A     
 FMT                SB5    B0                                                              FMT          509     A     
 FMT                SA7    A1          RESET *A7* TO LAST                                  FMT          510     A     
 FMT                AX3    CHAR                                                            FMT          511     A     
 FMT                BX7    -X0*X3      RESET BUILD WORD.                                   FMT          512     A     
 FMT       FMT.9A   MX0    1           INDICATE CHARACTER ALREADY IN (X4)                  FMT          513     A     
 FMT                SB5    B5+B1                                                           FMT          514     A     
 FMT                RJ     ASD         ASSEMBLE DIGITS.                                    FMT          515     A     
 FMT                SA3    FMTSPEC                                                         FMT          516     A     
 FMT                SB2    X4                                                              FMT          517     A     
 FMT                LX0    B2,X3                                                           FMT          518     A     
 FMT                MI     X0,FMT.JP   IF NEXT CHAR ALLOWED AFTER REPEAT COUNT             FMT          519     A     
 FMT                SX6    X4                                                              FMT          520     A     
 FMT                LX6    9*CHAR                                                          FMT          521     A     
 FMT                SA6    FILL.       CHARACTER FOR ERROR PROCESSOR                       FMT          522     A     
 FMT                FATAL  E.FS4       ILLEGAL CHAR FOLLOWING REPEAT COUNT                 FMT          523     A     
 FMT                EQ     FMT.JP                                                          FMT          524     A     
 FMT                                                                                       FMT          525     A     
 FMT      **        HERE ON * OR "                                                         FMT          526     A     
 FMT      *         CONVERT *---* OR "---" TO NNH---                                       FMT          527     A     
 FMT                                                                                       FMT          528     A     
 FMT       FMT.QT   BSS    0                                                               FMT          529     A     
 FMT       FMT.STR  SX5    X4          SET FLAG THAT CALLER IS *FMT*                       FMT          530     A     
 FMT                SB4    A4          FWA OF STRING                                       FMT          531     A     
 FMT                                                                                       FMT          532     A     
 FMT      *         REPLACE *DELIM* WITH *,*, ENSURE SPACE FOR NN                          FMT          533     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1133    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                                                                                       FMT          534     A     
 FMT       FMT.S1   NZ     X7,FMT.S2   IF *DELIM* DID NOT FORCE NEW WORD                   FMT          535     A     
 FMT                SA3    A7                                                              FMT          536     A     
 FMT                MX0    60-CHAR     REPLACE *DELIM* WITH *,*                            FMT          537     A     
 FMT                BX1    X0*X3                                                           FMT          538     A     
 FMT                SX4    1R,                                                             FMT          539     A     
 FMT                BX7    X1+X4                                                           FMT          540     A     
 FMT                SA7    A7                                                              FMT          541     A     
 FMT                BX7    0                                                               FMT          542     A     
 FMT                EQ     FMT.S4                                                          FMT          543     A     
 FMT                                                                                       FMT          544     A     
 FMT       FMT.S2   AX7    CHAR        REMOVE *DELIM*                                      FMT          545     A     
 FMT                NE     B5,B1,FMT.S3 IF THERE IS SPACE FOR NN                           FMT          546     A     
 FMT                LX7    2*CHAR      INSERT *, * AND FORCE NEW WORD                      FMT          547     A     
 FMT                SX4    2R,                                                             FMT          548     A     
 FMT                BX7    X7+X4                                                           FMT          549     A     
 FMT                =A7    A7+1                                                            FMT          550     A     
 FMT                BX7    0                                                               FMT          551     A     
 FMT                SB5    10                                                              FMT          552     A     
 FMT                EQ     FMT.S4                                                          FMT          553     A     
 FMT                                                                                       FMT          554     A     
 FMT       FMT.S3   LX7    CHAR        INSERT *,*                                          FMT          555     A     
 FMT                SX4    1R,                                                             FMT          556     A     
 FMT                BX7    X7+X4                                                           FMT          557     A     
 FMT                                                                                       FMT          558     A     
 FMT      *         ALLOCATE NN, SAVE POINTER TO NN                                        FMT          559     A     
 FMT                                                                                       FMT          560     A     
 FMT       FMT.S4   LX7    2*CHAR      SPACE MADE FOR NN                                   FMT          561     A     
 FMT                SB5    B5-2                                                            FMT          562     A     
 FMT                SX0    B5+B5       2*SHIFT COUNT FOR NN                                FMT          563     A     
 FMT                IX4    X0+X0       4*                                                  FMT          564     A     
 FMT                SX3    A7                                                              FMT          565     A     
 FMT                IX6    X4+X0       6*                                                  FMT          566     A     
 FMT                LX3    18                                                              FMT          567     A     
 FMT                BX6    X3+X6       24/0, 18/*A7*, 18/SHIFT COUNT                       FMT          568     A     
 FMT                SA6    FMTSTR                                                          FMT          569     A     
 FMT                NZ     B5,FMT.S5   IF ROOM LEFT IN WORD                                FMT          570     A     
 FMT                SB5    10                                                              FMT          571     A     
 FMT                =A7    A7+1                                                            FMT          572     A     
 FMT                BX7    0                                                               FMT          573     A     
 FMT                                                                                       FMT          574     A     
 FMT      *         INSERT H IN OUTPUT WORD AND TRANSFER X7,A7 TO X6,A6                    FMT          575     A     
 FMT                                                                                       FMT          576     A     
 FMT       FMT.S5   SA3    A7                                                              FMT          577     A     
 FMT                SX1    1RH                                                             FMT          578     A     
 FMT                BX6    X3                                                              FMT          579     A     
 FMT                LX7    CHAR                                                            FMT          580     A     
 FMT                SA6    A7          SET *A6* TO *A7*                                    FMT          581     A     
 FMT                BX6    X7+X1       SET *X6* TO *X7* + *H*                              FMT          582     A     
 FMT                =B5    B5-1                                                            FMT          583     A     
 FMT                NZ     B5,FMT.S6   IF ROOM LEFT IN WORD                                FMT          584     A     
 FMT                SB5    10                                                              FMT          585     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1134    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                =A6    A6+1                                                            FMT          586     A     
 FMT                BX6    0                                                               FMT          587     A     
 FMT                                                                                       FMT          588     A     
 FMT       FMT.S6   RJ     TSC         TRANSLATE STRING DELIMITED CONSTANT                 FMT          589     A     
 FMT                SA3    A6                                                              FMT          590     A     
 FMT                SX0    99                                                              FMT          591     A     
 FMT                BX7    X3                                                              FMT          592     A     
 FMT                SA4    B4          SET POINTER IN CASE OF ERROR                        FMT          593     A     
 FMT                SA7    A6          *A7* SET TO *A6*                                    FMT          594     A     
 FMT                SB6    B3                                                              FMT          595     A     
 FMT                LX7    X2          *X7* SET TO *X2*                                    FMT          596     A     
 FMT                ZR     X1,FMT.ENX  IF ERROR OCCURRED                                   FMT          597     A     
 FMT                SX1    2R99                                                            FMT          598     A     
 FMT                MI     X5,FMT.S7   IF MAX COUNT OF 99 REACHED                          FMT          599     A     
 FMT                SX3    B2-99                                                           FMT          600     A     
 FMT                BX1    -X3                                                             FMT          601     A     
 FMT                LX0    X1          LENGTH OF CONSTANT                                  FMT          602     A     
 FMT                RJ     CDD         CONVERT DECIMAL TO DISPLAY                          FMT          603     A     
 FMT                MX3    60-12                                                           FMT          604     A     
 FMT                SB3    B6                                                              FMT          605     A     
 FMT                BX1    -X3*X6      ONLY 2 DIGITS ALLOWED                               FMT          606     A     
 FMT                                                                                       FMT          607     A     
 FMT      *         INSERT NN INTO ALOCATED SPACE                                          FMT          608     A     
 FMT                                                                                       FMT          609     A     
 FMT       FMT.S7   SA3    FMTRL       UPDATE RECORD LENGTH                                FMT          610     A     
 FMT                SA2    FMTSTR      FETCH POINTERS TO NN                                FMT          611     A     
 FMT                IX6    X3+X0                                                           FMT          612     A     
 FMT                SB2    X2          SHIFT COUNT                                         FMT          613     A     
 FMT                SA6    A3                                                              FMT          614     A     
 FMT                AX2    18          (POINTER TO NN) - 1                                 FMT          615     A     
 FMT                SX4    A7                                                              FMT          616     A     
 FMT                IX3    X4-X2                                                           FMT          617     A     
 FMT                NZ     X3,FMT.S8   IF OUTPUT WORD HAS BEEN UPDATED                     FMT          618     A     
 FMT                SB7    B2-B7                                                           FMT          619     A     
 FMT                LX1    B7,X1                                                           FMT          620     A     
 FMT                BX7    X7+X1                                                           FMT          621     A     
 FMT                EQ     FMT.S9                                                          FMT          622     A     
 FMT                                                                                       FMT          623     A     
 FMT       FMT.S8   LX1    B2,X1                                                           FMT          624     A     
 FMT                =A3    X2+1                                                            FMT          625     A     
 FMT                BX6    X3+X1       INSERT NN                                           FMT          626     A     
 FMT                SA6    A3                                                              FMT          627     A     
 FMT                                                                                       FMT          628     A     
 FMT      *         LOOP IF MORE CHAR TO PROCESS, ELSE EXIT                                FMT          629     A     
 FMT                                                                                       FMT          630     A     
 FMT       FMT.S9   SA4    B4                                                              FMT          631     A     
 FMT                PL     X5,FMT.S11  IF ENTIRE STRING IS PROCESSED                       FMT          632     A     
 FMT                                                                                       FMT          633     A     
 FMT      *         EXIT IF *DELIM* FOLLOWS 99TH CHAR                                      FMT          634     A     
 FMT                                                                                       FMT          635     A     
 FMT                =A4    B4+1        MOVE POINTER IN CASE END OF STRING                  FMT          636     A     
 FMT                SX5    X5                                                              FMT          637     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1135    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                UX4    B7,X4                                                           FMT          638     A     
 FMT                IX0    X4-X5                                                           FMT          639     A     
 FMT                NZ     X0,FMT.S10  IF NEXT CHAR NOT *DELIM*                            FMT          640     A     
 FMT                SB7    B7+1777B                                                        FCC0844       23     A     
 FMT                GT1    B7,FMT.S10  IF BLANKS BEFORE *DELIM*                            FMT          641     A     
 FMT                SX3    X4-1R"                                                          FMT          642     A     
 FMT                NZ     X3,FMT.S11  IF *DELIM* NOT *"*                                  FMT          643     A     
 FMT                =A2    A4+1                                                            FMT          644     A     
 FMT                IX3    X2-X4                                                           FMT          645     A     
 FMT                NZ     X3,FMT.S11  IF NEXT CHARS NOT *""*                              FMT          646     A     
 FMT                UX2    B7,X2                                                           FMT          647     A     
 FMT                SB7    B7+1777B                                                        FCC0844       24     A     
 FMT                GT1    B7,FMT.S11  IF BLANKS BETWEEN *"*                               FMT          648     A     
 FMT       FMT.S10  SX6    X5                                                              FMT          649     A     
 FMT                SA6    B4          FAKE A *DELIM*                                      FMT          650     A     
 FMT                NZ     B5,FMT.S1   CONVERT REST OF STRING INTO NNH                     FMT          651     A     
 FMT                SB5    10                                                              FMT          652     A     
 FMT                =A7    A7+1                                                            FMT          653     A     
 FMT                BX7    0                                                               FMT          654     A     
 FMT                EQ     FMT.S1      LOOP TO PROCESS REMAINING CHARACTERS                FMT          655     A     
 FMT                                                                                       FMT          656     A     
 FMT       FMT.S11  LX7    60-CHAR                                                         FMT          657     A     
 FMT                =B5    B5+1                                                            FMT          658     A     
 FMT                EQ     FMT.SL5                                                         FMT          659     A     
 FMT                                                                                       FMT          660     A     
 FMT      **        HERE ON */*                                                            FMT          661     A     
 FMT                                                                                       FMT          662     A     
 FMT       FMT.SL   BX6    0                                                               FMT          663     A     
 FMT                MX0    1                                                               FMT          664     A     
 FMT                SA6    FMTRL       RESTART RECORD LENGTH                               FMT          665     A     
 FMT                SA3    LVSTAK                                                          FMT          666     A     
 FMT                SB6    B0                                                              FMT          667     A     
 FMT       FMT.SL3  BX6    X0+X3       SET SLASH-TAB FLAG IN LEVEL STACK                   FMT          668     A     
 FMT                =B6    B6+1                                                            FMT          669     A     
 FMT                SA6    A3                                                              FMT          670     A     
 FMT                =A3    A3+1                                                            FMT          671     A     
 FMT                LT     B6,B3,FMT.SL3  IF MORE PRECEDING LEVELS                         FMT          672     A     
 FMT                                                                                       FMT          673     A     
 FMT      **        HERE IF *,* CAN BE ELIMINATED IF NEXT CHARACTER.                       FMT          674     A     
 FMT                                                                                       FMT          675     A     
 FMT       FMT.SL5  =A5    A4+1        NEXT CHARACTER                                      FMT          676     A     
 FMT                SB7    X5-1R,                                                          FMT          677     A     
 FMT                NZ     B7,FMT.NX   IF NOT FOLLOWED BY *,*                              FMT          678     A     
 FMT                SA4    A4+B1       BY-PASS *,*                                         FMT          679     A     
 FMT                                                                                       FMT          680     A     
 FMT      **        LOAD NEXT CHARACTER.                                                   FMT          681     A     
 FMT      *         CLEARS CURRENT REPEAT COUNT.                                           FMT          682     A     
 FMT                                                                                       FMT          683     A     
 FMT       FMT.CM   BSS    0                                                               FMT          684     A     
 FMT       FMT.P    BSS    0                                                               FMT          685     A     
 FMT       FMT.NX   MX2    60                                                              FMT          686     A     
 FMT       FMT.NX1  SA4    A4+B1                                                           FMT          687     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1136    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT                LX7    CHAR                                                            FMT          688     A     
 FMT                MI     X4,FMT.EOS                                                      FMT          689     A     
 FMT                UX4    X4                                                              FMT          690     A     
 FMT                BX7    X7+X4       PACK CHARACTER                                      FMT          691     A     
 FMT                SB5    B5-B1       DECREMENT CHAR/WORD CTR                             FMT          692     A     
 FMT                NZ     B5,FMT.RL   IF WORD NOT FULL CONTINUE PROCESSING                FMT          693     A     
 FMT                SB5    10                                                              FMT          694     A     
 FMT                =A7    A7+1        STORE FORMAT WORD                                   FMT          695     A     
 FMT                BX7    0                                                               FMT          696     A     
 FMT                                                                                       FMT          697     A     
 FMT      **        CHECK RECORD LENGTH AND OUTPUT DIAGNOSTIC IF LENGTH IS GREATER         FMT          698     A     
 FMT      *         THAN -- 137 OR 131,071                                                 FMT          699     A     
 FMT      *                                                                                FMT          700     A     
 FMT      *         (X4) = NEXT CHARACTER.                                                 FMT          701     A     
 FMT                                                                                       FMT          702     A     
 FMT       FMT.RL   SA1    FMTRL                                                           FMT          703     A     
 FMT                SB6    X1-137-1                                                        FMT          704     A     
 FMT                SA3    FMTRLC                                                          FMT          705     A     
 FMT                MI     B6,FMT.JP   IF COUNT IS .LE. 137                                FMT          706     A     
 FMT                SB7    E.FS11A                                                         FMT          707     A     
 FMT                AX1    17                                                              FMT          708     A     
 FMT                ZR     X1,FMT.RL5  IF COUNT .LE. 131,071                               FMT          709     A     
 FMT                SB7    E.FS11                                                          FMT          710     A     
 FMT                                                                                       FMT          711     A     
 FMT       FMT.RL5  SB6    X3+B7                                                           FMT          712     A     
 FMT                ZR     B6,FMT.JP   IF ERROR ALREADY DETECTED.                          FMT          713     A     
 FMT                SX6    -B7                                                             FMT          714     A     
 FMT                SA6    A3          UPDATE R.L. ERROR.                                  FMT          715     A     
 FMT                WARN   B7          OUTPUT RECORD LENGTH DIAGNOSTIC                     FMT          716     A     
 FMT                                                                                       FMT          717     A     
 FMT      **        JUMP TO NEXT PROCESSOR UNIT                                            FMT          718     A     
 FMT      *         (X4) = UNPACKED CHARACTER PROCESSING.                                  FMT          719     A     
 FMT                                                                                       FMT          720     A     
 FMT       FMT.JP   SX1    3                                                               FMT          721     A     
 FMT                SX6    X4                                                              FMT          722     A     
 FMT                BX0    X1*X4       2 BITS ONLY FOR SHIFT COUNT                         FMT          723     A     
 FMT                LX6    9*CHAR                                                          FMT          724     A     
 FMT                BX1    X4                                                              FMT          725     A     
 FMT                LX0    3           *8--SHIFT COUNT WITHIN JUMP WORD                    FMT          726     A     
 FMT                AX1    2           INDEX TO JUMP WORD                                  FMT          727     A     
 FMT                SA6    FILL.       CHARACTER IN CASE OF ERROR                          FMT          728     A     
 FMT                SA1    X1+FMTJT    JUMP WORD                                           FMT          729     A     
 FMT                SB7    X0                                                              FMT          730     A     
 FMT                AX1    X1,B7                                                           FMT          731     A     
 FMT                SX0    377B                                                            FMT          732     A     
 FMT                BX1    X1*X0                                                           FMT          733     A     
 FMT                SB7    X1                                                              FMT          734     A     
 FMT                JP     B7+FMTBASE  PROCESS NEXT.                                       FMT          735     A     
 FMT                                                                                       FMT          736     A     
 FMT      **        HERE ON ALL UNKNOWN CHARACTER CODES.                                   FMT          737     A     
 FMT                                                                                       FMT          738     A     
 FMT       FMT.BE   BSS    0                                                               FMT          739     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1137    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT       FMT.CE   BSS    0                                                               FMT          740     A     
 FMT       FMT.JE   BSS    0                                                               FMT          741     A     
 FMT       FMT.KE   BSS    0                                                               FMT          742     A     
 FMT       FMT.ME   BSS    0                                                               FMT          743     A     
 FMT       FMT.NE   BSS    0                                                               FMT          744     A     
 FMT       FMT.QE   BSS    0                                                               FMT          745     A     
 FMT       FMT.SE   BSS    0                                                               FMT          746     A     
 FMT       FMT.UE   BSS    0                                                               FMT          747     A     
 FMT       FMT.WE   BSS    0                                                               FMT          748     A     
 FMT       FMT.YE   BSS    0                                                               FMT          749     A     
 FMT       FMT.PDE  BSS    0                                                               FMT          750     A     
 FMT       FMT.$E   BSS    0                                                               FMT          751     A     
 FMT       FMT.BKE  BSS    0                                                               FMT          752     A     
 FMT       FMT.00   BSS    0                                                               FMT          753     A     
 FMT       FMT.EE   FATAL  E.FS14                                                          FMT          754     A     
 FMT                EQ     FMT.ENX     TO NEXT CHARACTER.                                  FMT          755     A     
 FMT                                                                                       FMT          756     A     
 FMT      **        HERE ON *EOS*                                                          FMT          757     A     
 FMT      *         *FMT.EOS1* WHEN TERMINAL *)* FOUND, AND                                FMT          758     A     
 FMT      *         *FMT.EOS* WHEN TERMINAL *)* NOT FOUND                                  FMT          759     A     
 FMT      *                                                                                FMT          760     A     
 FMT      *         (B5) = 10- CURRENT BUILD WORD CHARACTERS.                              FMT          761     A     
 FMT                                                                                       FMT          762     A     
 FMT       FMT.EOS  FATAL  E.FS18A     MISSING TERMINAL *)*                                FMT          763     A     
 FMT                                                                                       FMT          764     A     
 FMT       FMT.EOS1 ZR     X7,FMT130   IF NULL WORD                                        FMT          765     A     
 FMT                SB2    B5+B5       *2                                                  FMT          766     A     
 FMT                SB3    B2+B2       *4                                                  FMT          767     A     
 FMT                SB2    B3+B2       *6                                                  FMT          768     A     
 FMT                SA1    =10H                                                            FMT          769     A     
 FMT                MX0    6                                                               FMT          770     A     
 FMT                SB3    B2-6                                                            FMT          771     A     
 FMT                AX0    X0,B3                                                           FMT          772     A     
 FMT                BX3    X0*X1                                                           FMT          773     A     
 FMT                BX0    X3+X7                                                           FMT          774     A     
 FMT                LX7    B2,X0       TO 0H FORM                                          FMT          775     A     
 FMT                =A7    A7+1                                                            FMT          776     A     
 FMT                                                                                       FMT          777     A     
 FMT      **        ADD FORMAT TO TABLE AND EXIT.                                          FMT          778     A     
 FMT                                                                                       FMT          779     A     
 FMT       FMT130   SB6    FORSKEL-1                                                       FMT          780     A     
 FMT                SB6    A7-B6       = LENGTH OF THIS FORMAT                             FMT          781     A     
 FMT                ALLOC  TP.FMT,B6                                                       FMT          782     A     
 FMT                SX1    B6          = W.C.                                              FMT          783     A     
 FMT                SX2    FORSKEL     = SOURCE                                            FMT          784     A     
 FMT                SX3    B7-B6       = DESTINATION = (LWA+1 OF TABLE) - (W.C.)           FMT          785     A     
 FMT                RJ     MVE                                                             FMT          786     A     
 FMT                SA1    TRVA        REFERENCE TAG.                                      FMT          787     A     
 FMT                ADDREF X1,CR.LAB,PSP.F                                                 FMT          788     A     
 FMT                                                                                       FMT          789     A     
 FMT      **        HERE AFTER UNKNOWN CODE ERROR PROCESSED                                FMT          790     A     
 FMT      *         SCAN FORWARD TILL SEPARATOR FOUND AND EXIT TO                          FMT          791     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1138    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT      *         NEXT CHARACTER LOOP.                                                   FMT          792     A     
 FMT                                                                                       FMT          793     A     
 FMT                                                                                       FMT          794     A     
 FMT       FMT.ENX  SA5    ="FMTSEP"                                                       FMT          795     A     
 FMT       FMT.ENX1 =A4    A4+1                                                            FMT          796     A     
 FMT                MI     X4,FMT.EOS  IF *EOS*                                            FMT          797     A     
 FMT                SB2    X4                                                              FMT          798     A     
 FMT                LX0    B2,X5                                                           FMT          799     A     
 FMT                PL     X0,FMT.ENX1 IF NOT SEPARATOR                                    FMT          800     A     
 FMT                =A4    A4-1                                                            FMT          801     A     
 FMT                EQ     FMT.NX      CONTINUE                                            FMT          802     A     
 FMT                                                                                       FMT          803     A     
 FMT       JTFMT    EJECT                                                                  FMT          804     A     
 FMT       FMTLNG   =      FMT.00-FMTBASE    SHOULD BE MAX OF 377B FOR JUMP TABLE          FMT          805     A     
 FMT      **        JTFMT - FORMAT *CONO* TABLE.                                           FMT          806     A     
 FMT                                                                                       FMT          807     A     
 FMT                                                                                       FMT          808     A     
 FMT       JTFMT    MACRO  JUMPS                                                           FMT          809     A     
 FMT                VFD    28/0                                                            FMT          810     A     
 FMT                IRP    JUMPS                                                           FMT          811     A     
 FMT                VFD    8/FMT.JUMPS-FMTBASE                                             FMT          812     A     
 FMT                IRP                                                                    FMT          813     A     
 FMT       JTFMT    ENDM                                                                   FMT          814     A     
 FMT                                                                                       FMT          815     A     
 FMT                                                                                       FMT          816     A     
 FMT      **        JUMP TABLE PARAMETERS.                                                 FMT          817     A     
 FMT                                                                                       FMT          818     A     
 FMT                                                                                       FMT          819     A     
 FMT       FMTJT    BSS    0                                                               FMT          820     A     
 FMT                                                                                       FMT          821     A     
 FMT                JTFMT  (CE,BE,A,00)                                                    FMT          822     A     
 FMT                JTFMT  (G,F,E,D)                                                       FMT          823     A     
 FMT                JTFMT  (KE,JE,I,H)                                                     FMT          824     A     
 FMT                JTFMT  (O,NE,ME,L)                                                     FMT          825     A     
 FMT                JTFMT  (SE,R,QE,P)                                                     FMT          826     A     
 FMT                JTFMT  (WE,V,UE,T)                                                     FMT          827     A     
 FMT                JTFMT  (0,Z,YE,X)                                                      FMT          828     A     
 FMT                JTFMT  (4,3,2,1)                                                       FMT          829     A     
 FMT                JTFMT  (8,7,6,5)                                                       FMT          830     A     
 FMT                JTFMT  (STR,MIN,PL,9)                                                  FMT          831     A     
 FMT                JTFMT  ($E,RP,LP,SL)                                                   FMT          832     A     
 FMT                JTFMT  (PDE,CM,BKE,=)                                                  FMT          833     A     
 FMT                JTFMT  (EE,EE,EE,EE)                                                   FMT          834     A     
 FMT                JTFMT  (EE,EE,EE,QT)                                                   FMT          835     A     
 FMT                JTFMT  (EE,EE,EE,EE)                                                   FMT          836     A     
 FMT                JTFMT  (EE,EE,EE,EE)                                                   FMT          837     A     
 FMT       FMTRC    SPACE  4,8                                                             FMT          838     A     
 FMT                                                                                       FMT          839     A     
 FMT       LVMAX    =      9           MAXIMUM LEVEL OF PARENS                             FMT          840     A     
 FMT       FMTRC    BSS    1           CURRENT REPEAT COUNT                                FMT          841     A     
 FMT       LVSTAK   BSS    LVMAX       PAREN LEVEL STACK -- 1/SLASH-TAB, 23/0,             FMT          842     A     
 FMT      ,                            18/FMTRL, 18/REPEAT COUNT                           FMT          843     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1139    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FMT     
  
 FMT       FMTFW    DATA   0           (W) WIDTH LENGTH.                                   FMT          844     A     
 FMT       FMTRL    DATA   0           CURRENT RECORD LENGTH.                              FMT          845     A     
 FMT       FMTRLC   DATA   0           FLAG TO INDICATE WHETHER ERROR SHOULD BE            FMT          846     A     
 FMT      ,                            ISSUED FOR COLUMN COUNT EXCEEDED                    FMT          847     A     
 FMT       FMTSTR   DATA   0           POINTERS FOR RETRIEVING NN FOR HOLL STRINGS         FMT          848     A     
 FMT                                                                                       FMT          849     A     
 FMT       FMTSPEC  BSS    0                                                               FMT          850     A     
 FMT                ECHO   2,X=(A,D,E,F,G,H,I,L,O,P,R,V,X,Z)                               FMT          851     A     
 FMT                POS    60-1R_X                                                         FMT          852     A     
 FMT                VFD    1/1                                                             FMT          853     A     
 FMT                POS    60-1R(                                                          FMT          854     A     
 FMT                VFD    1/1                                                             FMT          855     A     
 FMT                VFD    *P/0                                                            FMT          856     A     
 FMT       DEFG     BSS    0                                                               FMT          857     A     
 FMT                ECHO   2,X=(D,E,F,G)                                                   FMT          858     A     
 FMT                POS    60-1R_X                                                         FMT          859     A     
 FMT                VFD    1/1                                                             FMT          860     A     
 FMT                VFD    *P/0                                                            FMT          861     A     
 FMT       IOV      BSS    0                                                               FMT          862     A     
 FMT                ECHO   2,X=(I,O,V)                                                     FMT          863     A     
 FMT                POS    60-1R_X                                                         FMT          864     A     
 FMT                VFD    1/1                                                             FMT          865     A     
 FMT                VFD    *P/0                                                            FMT          866     A     
 FMT       DE       BSS    0                                                               FMT          867     A     
 FMT                ECHO   2,X=(D,E)                                                       FMT          868     A     
 FMT                POS    60-1R_X                                                         FMT          869     A     
 FMT                VFD    1/1                                                             FMT          870     A     
 FMT                VFD    *P/0                                                            FMT          871     A     
 FMT                                                                                       FMT          872     A     
 FMT                LIST   D                                                               FMT          873     A     
 FMT                END                                                                    FMT          874     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FMT     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FMT                        874       848
          FCC0589                      2         2
          FCC0827                      5         5
          FCC0844                      4         4
          FEAT155E                     1         1
          FEAT155EA                    2         2
          FCC1385                      3         3
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *DECK     IO                                                                     IO             1     A     
 IO                 IDENT  IO                                                              IO             2     A     
 IO        IO       SECT   (INPUT / OUTPUT STATEMENTS.),1                                  IO             3     A     
 IO                                                                                        IO             4     A     
 IO                 SST                                                                    IO             5     A     
 IO                                                                                        IO             6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1140    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO        B=IO     RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             IO             7     A     
 IO                                                                                        IO             8     A     
 IO                 ENTRY  BUFERR,LST,FFN,LGR,LG.LEN                                       IO             9     A     
 IO                 ENTRY  O=IOJ,IOLEN,A=BMOD,A=BLWA,A=STR,A=FMT,C=BFWA,C=IOL              IO            10     A     
 IO                 ENTRY  C=CNT,C=FMT,NULL,REP.,DO.,IF.,ASF.,FORMAT,TO,PRECISI            IO            11     A     
 IO                 ENTRY  FUNCTIO,EOS,LST5,TYPES                                          IO            12          I
          -FCC0499
 IO                 ENTRY  FUNCTIO,EOS,LST5,TYPES,PTN3                                     FCC0499       43     A     
 IO                 ENTRY  R.W,IODIR,CML                                                   IO            13          I
          -FCC0593
 IO                 ENTRY  LST.GO                                                          IO            14          I
          -FCC0593
 IO                 ENTRY  BLWA,CML,IODIR,LST.GO,R.W                                       FCC0593       10          I
          -FCC0787
 IO                 ENTRY  BLWA,CML,IODIR,R.W                                              FCC0787       26     A     
 IO                                                                                        IO            15     A     
 IO       *         IN FTN                                                                 IO            16     A     
 IO                 EXT    CO.EDT,CO.SNAP                                                  IO            17     A     
 IO                                                                                        IO            18     A     
 IO       *         IN TABLES                                                              IO            19     A     
 IO                 EXT    APLSTOR,APLUG,ARGCOMA,ARGMODE,BUFMOD,BUFFWA,BUFLWA              IO            20     A     
 IO                 EXT    CALLIO,ICONL,IOARGM,MOD,NDC=CNT,NDC=STR,PTN=FMT,REFVAR          IO            21     A     
 IO                 EXT    REFNUM,TG.APL,TG.PRO,TG.TEM,TP.APL,TP.DIM,TP=DO,TS.CON          IO            22     A     
 IO                 EXT    TS.SYM,TT.PAR,TP.ILI,TP=ILI                                     IO            23     A     
 IO                                                                                        IO            24     A     
 IO       *         IN ERRORS                                                              IO            25     A     
 IO                 EXT    E.ANS,E.IO,E.IOB1,E.IOB3,E.IOB4,E.IOB5,E.IOB6,E.IOB7            IO            26          I
          -FCC0597
 IO                 EXT    E.ANS,E.IO,E.IOB1,E.IOB3,E.IOB4,E.IOB5,E.IOB7                   FCC0597       15     A     
 IO                 EXT    E.IOD1,E.IOD3,E.IOF1,E.IO6U,E.IOL2,E.ION,E.IOS1,E.IOS2          IO            27     A     
 IO                 EXT    E.IOS3,E.IOS4,E.IOS5,E.IOS7,E.IO1,E.IO10,E.IO11                 IO            28     A     
 IO                 EXT    E.IO12,E.IO13,E.IO14,E.IO18,E.IO15,E.IO16,E.IO17,E.IO19         IO            29          I
          -FEAT126A 
 IO                 EXT    E.IO20,E.IO21,E.IO22,E.IO23,E.IO3,E.IO6,E.IO7,E.IO8             IO            30          I
          -FEAT126A 
 IO                 EXT    E.IO12,E.IO13,E.IO14,E.IO19                                     FEAT126A    1005     A     
 IO                 EXT    E.IO20,E.IO21,E.IO3,E.IO6,E.IO7,E.IO8                           FEAT126A    1006     A     
 IO                 EXT    E.IO9,E.UE,E.UE1,E.UE2,E.ION1,E.IOD2,CER,FILL.                  IO            31          I
          -FCC0597
 IO                 EXT    E.IO9,E.UE,E.UE1,E.UE2,E.ION1,E.IOD2,FILL.                      FCC0597       16     A     
 IO                 EXT    E.IOL1,E.IOL4,E.IOL5,E.IO24,E.IO25,E.IO26,E.IO27,E.IO28         IO            32          I
          -FEAT126A 
 IO                 EXT    E.IOL1,E.IOL4,E.IOL5,E.IO25,E.IO26,E.IO27,E.IO28                FEAT126A    1007     A     
 IO                 EXT    E.IOS6,E.IO29,E.IO62,E.IOS9,E.IOS10                             IO            33     A     
 IO                 EXT    E.IOD4                                                          FCC1769X       8     A     
 IO                                                                                        IO            34     A     
 IO       *         IN ALLOC                                                               IO            35     A     
 IO                 EXT    ERT,ADW,ESC,NAP,NCS,SSY,NCM                                     IO            36     A     
 IO                                                                                        IO            37     A     
 IO       *         IN MAIN                                                                IO            38     A     
 IO                 EXT    WBL,CPM=EXU,CPM=1ST,CPM=END,CPM=ASF,CPM=NTR,CPM=OK              IO            39     A     
 IO                 EXT    CPM=DAT,CPM=DEC,CPM=TYP,CPM=TPE,CPM=IMP,CPM=FMT                 IO            40     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1141    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                                                                                        IO            41     A     
 IO       *         IN LEX                                                                 IO            42     A     
 IO                 EXT    S=BIN,S=INP,S=OUT,S=COD,S=CONT,S=STR,S.BUFIO,S=FREE             IO            43     A     
 IO                 EXT    S.IOCAL,S.ENDFI,S.REWIN,S.BKSP,S.NLST,TSF,TRV                   IO            44     A     
 IO                                                                                        IO            45     A     
 IO       *         IN KEY                                                                 IO            46     A     
 IO                 EXT    EMT                                                             IO            47     A     
 IO                                                                                        IO            48     A     
 IO       *         IN TSDATA                                                              FCC0787       27     A     
 IO                 EXT    CFC                                                             FCC0787       28     A     
 IO                                                                                        FCC0787       29     A     
 IO       *         IN NUM                                                                 IO            49     A     
 IO                 EXT    PSN,ISN                                                         IO            50     A     
 IO                                                                                        IO            51     A     
 IO       *         IN REG                                                                 IO            52     A     
 IO                 EXT    CIA,CRJ                                                         IO            53     A     
 IO                                                                                        IO            54     A     
 IO       *         IN PAR                                                                 IO            55     A     
 IO                 EXT    CURST,C=ERR,PAREXIT,POP.ST1,SOPR,ADT,PAR,POPX,CNF               IO            56     A     
 IO                                                                                        IO            57     A     
 IO       *         IN GEN                                                                 IO            58     A     
 IO                 EXT    CVT,MXP,PSO                                                     IO            59     A     
 IO                 EXT    O=BSS,SA=BKS3,EIS.PNX,CAI                                       IO            60     A     
 IO                                                                                        IO            61     A     
 IO       *         IN ASF                                                                 IO            62     A     
 IO                 EXT    AFD                                                             IO            63     A     
 IO                                                                                        IO            64     A     
 IO       *         IN DO                                                                  IO            65     A     
 IO                 EXT    CDI,PDT,SDO                                                     IO            66     A     
 IO                                                                                        IO            67     A     
 IO       *         IN INIT                                                                IO            68     A     
 IO                 EXT    SCR                                                             IO            69     A     
 IO                                                                                        IO            70     A     
 IO                                                                                        IO            71     A     
 IO                                                                                        IO            72     A     
 IO       **        THIS SECTION IS COMPRISED OF THREE MAIN DIVISIONS --                   IO            73     A     
 IO       *         1.  "HEREIF"S FOR ALL I/O STATEMENTS.                                  IO            74     A     
 IO       *         2.  ROUTINES CALLED BY THE ABOVE.                                      IO            75     A     
 IO       *                IN GENERAL, THESE CALL THE PARSER TO CREATE ENTRIES             IO            76     A     
 IO       *                POINTING TO --                                                  IO            77     A     
 IO       *         3.  "O=XXX" OPERATORS INVOKED BY *ARITH* TO GENERATE THE               IO            78     A     
 IO       *                ACTUAL CODE.                                                    IO            79     A     
 IO                                                                                        IO            80     A     
 IO        IO=      SPACE  4,8                                                             IO            81     A     
 IO       **        IO= -  I/O LIBRARY CALLING SEQUENCE DEFINITIONS.                       IO            82     A     
 IO       *         ORDINAL IN THE AP-LIST OF DEFINED OBJECTS --                           IO            83     A     
 IO                                                                                        IO            84     A     
 IO                                                                                        IO            85     A     
 IO        IO=FIT   EQU    0           FIT/FET ADDRESS                                     IO            86     A     
 IO                                                                                        IO            87     A     
 IO        IO=BMOD  EQU    1           BUFFER I/O MODE ADDRESS                             IO            88     A     
 IO        IO=BFWA  EQU    2           BUFFER I/O FIRST WORD ADDRESS                       IO            89     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1142    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO        IO=BLWA  EQU    3           BUFFER I/O LAST WORD ADDRESS                        IO            90     A     
 IO        IO=BLEN  EQU    4                                                               IO            91     A     
 IO                                                                                        IO            92     A     
 IO        IO=NGRP  EQU    1           NAMELIST I/O GROUP ADDRESS                          IO            93     A     
 IO                                                                                        IO            94     A     
 IO        IO=FMT   EQU    1           FORMAT ADDRESS                                      IO            95     A     
 IO                                                                                        IO            96     A     
 IO        IO=CNT   EQU    0           XX-CODE RECORD SIZE                                 IO            97     A     
 IO        IO=STR   EQU    2           XX-CODE STRING ADDRESS                              IO            98     A     
 IO        IO=WEOR  EQU    10B         */* IN UNFORMATTED OUTPUT LIST                      IO            99          I
          -FEAT126C 
 IO        IO=CM    EQU    13B         *,* TERMINATED UNFORMATTED OUTPUT LIST              IO           100          I
          -FEAT155B 
 IO        IO=CM    EQU    7           *,* TERMINATOR FOR LINE CONTROL.                    FEAT155B       7     A     
 IO                                                                                        IO           101     A     
 IO        IOAPT    CON    0           TAG OF AP-LIST UNDER CONSTRUCTION                   IO           102     A     
 IO                                                                                        IO           103     A     
 IO        IOARGO   CON    0           ADDRESS OF OPERATOR                                 IO           104     A     
 IO                                                                                        IO           105     A     
 IO        IODIR    CON    0           I/O DIRECTION (S=INP OR S=OUT)                      IO           106     A     
 IO        IOARGT   CON    0           (ARGMODE) FOR THIS DIRECTION                        IO           107     A     
 IO        IOREF    CON    0           I/O REFERENCE LETTER                                IO           108     A     
 IO        IOLEN    CON    0           CURRENT LENGTH OF I/O AP-LIST                       IO           109     A     
 IO                                    -1 UNTIL INITIAL ITEMS COMPILED.                    IO           110     A     
 IO                                                                                        IO           111     A     
 IO        IO1ST    CON    0           FIRST  FIXED-POSITION I/O ITEM                      IO           112     A     
 IO        IO2ND    CON    0           SECOND FIXED-POSITION I/O ITEM                      IO           113     A     
 IO        IO3RD    CON    0           THIRD  FIXED-POSITION I/O ITEM                      IO           114     A     
 IO        IO4TH    CON    0           FOURTH FIXED-POSITION I/O ITEM                      IO           115     A     
 IO                                                                                        IO           116     A     
 IO                                                                                        IO           117     A     
 IO        IONAM    EQU    ICONL       ORDINAL OF ROUTINE NAME TO CALL (IN S.LIB)          IO           118     A     
 IO                                    COMPLEMENTED UNTIL INITIAL CALL COMPILED.           IO           119     A     
 IO        IODOLEN  BSS    1           LENGTH OF DO-TABLE BEFORE THIS STATEMENT            IO           120     A     
 IO                                    USED TO RESET DO-TABLE IN CASE OF MESSED            IO           121     A     
 IO                                    UP IMPLIED DO-S.                                    IO           122     A     
 IO        RTEND    CON    0           STATEMENT NUMBER FOR *END=*                         IO           123          I
          -FEAT126C 
 IO        RTERR    CON    0           STATEMENT NUMBER FOR *ERR=*                         IO           124          I
          -FEAT126C 
 IO        IOENDT   CON    0           GENERATED TAG FOR DEFAULT END=                      IO           125     A     
 IO                                                                                        IO           126     A     
 IO        IOFIT    EQU    IO1ST       FILE INFORMATION TABLE ADDRESS                      IO           127     A     
 IO        IOCNT    EQU    IO1ST       XX-CODE RECORD COUNT                                IO           128     A     
 IO                                                                                        IO           129     A     
 IO        IOBMOD   EQU    IO2ND       BUFFER I/O MODE DESIGNATOR                          IO           130     A     
 IO        IOFMT    EQU    IO2ND       FORMAT DESIGNATOR                                   IO           131     A     
 IO        IONGRP   EQU    IO2ND       NAMELIST GROUP ADDRESS                              IO           132     A     
 IO                                                                                        IO           133     A     
 IO        IOBFWA   EQU    IO3RD       BUFFER I/O FIRST WORD ADDRESS                       IO           134     A     
 IO        IOSTR    EQU    IO3RD       XX-CODE STRING ADDRESS                              IO           135     A     
 IO                                                                                        IO           136     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1143    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO        IOBLWA   EQU    IO4TH       BUFFER I/O LAST WORD ADDRESS                        IO           137     A     
 IO        R.W      CON    0           FLAG USED TO SET IOIND BIT FOR WRITE/PUNCH          IO           138     A     
 IO       *                            FLAG ALSO FOR PROCESSING CHAR STRINGS IN            IO           139     A     
 IO       *                            LIST-DIRECTED I/O                                   IO           140     A     
 IO        IOSTAT   BSS    1           HOLDING CELL FOR STATIC LOAD INDICATOR              F162FTNA     719     A     
 IO                 SPACE  4,8                                                             F162FTNA     720     A     
 IO       **        STLI  -  STATIC LOAD INDICATORS.                                       F162FTNA     721     A     
 IO       *                                                                                F162FTNA     722     A     
 IO       *           MACRO TO GENERATE TABLE FOR *LDSET  USE* DIRECTIVES                  F162FTNA     723     A     
 IO       *         FOR CRM *STATIC* MODE.                                                 F162FTNA     724     A     
 IO       *                                                                                F162FTNA     725     A     
 IO       *      LOC    STLI   NAME                                                        F162FTNA     726          I
          -FCCA408
 IO       *                STLTAB      NAME                                                FCCA408      185     A     
 IO       *                                                                                F162FTNA     727     A     
 IO       *         LOC, IF PRESENT, CAUSES A NEW TABLE TO BE INITIATED                    F162FTNA     728          I
          -FCCA408
 IO       *         WITH THE SYMBOL LOC BEING ASSIGNED THE LOCATION                        F162FTNA     729          I
          -FCCA408
 IO       *         COUNTER VALUE OF THE FIRST ENTRY.                                      F162FTNA     730          I
          -FCCA408
 IO       *                                                                                F162FTNA     731          I
          -FCCA408
 IO       *         NAME IS THE STATIC *USE* PACKAGE NAME WITH THE FORM                    F162FTNA     732     A     
 IO       *         STLXXX, WHERE XXX IS THE PACKAGE IDENTIFICATION                        F162FTNA     733     A     
 IO       *         MNEMONIC. STLI REMOVES THE *L* FROM *STL*, AND PREFIXES                F162FTNA     734     A     
 IO       *         THE RESULTANT SYMBOL WITH *M.* . THIS SYMBOL IS THEN                   F162FTNA     735     A     
 IO       *         ASSIGNED THE NEXT BIT MASK IN SEQUENCE AND DECLARED AN                 F162FTNA     736     A     
 IO       *         ENTRY POINT. THE TABLE ENTRY IS MADE FOR THE ORIGINAL SYMBOL           F162FTNA     737     A     
 IO       *         LEFT JUSTIFIED, BLANK FILLED, WITH A POSTFIXED PERIOD.                 F162FTNA     738          I
          -FCCA408
 IO       *                LEFT JUSTIFIED AND ZERO FILLED.                                 FCCA408      186     A     
 IO                                                                                        F162FTNA     739     A     
 IO                                                                                        F162FTNA     740     A     
 IO                 MACRO  STLI,TNAM,PNAM                                                  F162FTNA     741          I
          -FCCA408
 IO                 IF     -DEF,TNAM,1                                                     F162FTNA     742          I
          -FCCA408
 IO        MSK      SET    1                                                               F162FTNA     743          I
          -FCCA408
 IO                 IFC    NE,$TNAM$$,2                                                    F162FTNA     744          I
          -FCCA408
 IO                 ENTRY TNAM                                                             F162FTNA     745          I
          -FCCA408
 IO        TNAM     BSS    0                                                               F162FTNA     746          I
          -FCCA408
 IO        A        MICRO  1,,L_PNAM                                                       F162FTNA     747          I
          -FCCA408
 IO        B        MICCNT A                                                               F162FTNA     748          I
          -FCCA408
 IO        C        MICRO  B+2,,$PNAM$                                                     F162FTNA     749          I
          -FCCA408
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1144    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 ENTRY  M."A"_"C"                                                       F162FTNA     750          I
          -FCCA408
 IO        M."A"_"C"   EQU    MSK                                                          F162FTNA     751          I
          -FCCA408
 IO        MSK      SET    MSK+MSK                                                         F162FTNA     752          I
          -FCCA408
 IO                 DATA   L PNAM.                                                         F162FTNA     753          I
          -FCCA408
 IO        STLI     ENDM                                                                   F162FTNA     754          I
          -FCCA408
 IO        STLTAB   MACRO  PNAM                                                            FCCA408      187     A     
 IO                 IF     -DEF,MSK,2                                                      FCCA408      188     A     
 IO        S.1      SET    0                                                               FCCA408      189     A     
 IO        MSK      SET    1                                                               FCCA408      190     A     
 IO        A        MICRO  1,,L_PNAM                                                       FCCA408      191     A     
 IO        B        MICCNT A                                                               FCCA408      192     A     
 IO        C        MICRO  B+2,,.PNAM                                                      FCCA408      193     A     
 IO                 ENTRY  M."A"_"C"                                                       FCCA408      194     A     
 IO        M."A"_"C"  EQU  MSK                                                             FCCA408      195     A     
 IO        MSK      SET    MSK+MSK                                                         FCCA408      196     A     
 IO        S.1      SET    S.1+1                                                           FCCA408      197     A     
 IO                 DATA   L PNAM                                                          FCCA408      198     A     
 IO        STLTAB   ENDM                                                                   FCCA408      199     A     
 IO                 SPACE 4,8                                                              F162FTNA     755     A     
 IO       *         STATIC LOAD TABLE.                                                     F162FTNA     756     A     
 IO                                                                                        F162FTNA     757     A     
 IO        STLTAB   STLI   STLCRM                                                          F162FTNA     758          I
          -FCCA408
 IO                 STLI   STLRP2                                                          F162FTNA     759          I
          -FCCA408
 IO                 STLI   STLICO                                                          F162FTNA     760          I
          -FCCA408
 IO                 STLI   STLOCO                                                          F162FTNA     761          I
          -FCCA408
 IO                 STLI   STLIBI                                                          F162FTNA     762          I
          -FCCA408
 IO                 STLI   STLOBI                                                          F162FTNA     763          I
          -FCCA408
 IO                 STLI   STLIBU                                                          F162FTNA     764          I
          -FCCA408
 IO                 STLI   STLOBU                                                          F162FTNA     765          I
          -FCCA408
 IO                 STLI   STLBAK                                                          F162FTNA     766          I
          -FCCA408
 IO                 STLI   STLENF                                                          F162FTNA     767          I
          -FCCA408
 IO                 STLI   STLREW                                                          F162FTNA     768          I
          -FCCA408
 IO                 ENTRY  STLTAB,L.STL,N.STL                                              FCCA408      200     A     
 IO        STLTAB   BSS    0                                                               FCCA408      201     A     
 IO                                                                                        FCCA408      202     A     
 IO       *CALL STLOAD                                                                     FCCA408      203     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1145    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                                                                                        FCCA408      204     A     
 IO        L.STL    =      S.1-S.1/2*2+S.1/2+1 LENGTH/2+REMAINDER+EOT                      FCCA408      205     A     
 IO        N.STL    =      S.1                                                             FCCA408      206     A     
 IO                 CON    0           TERMINATE TABLE                                     F162FTNA     769     A     
 IO                                                                                        F162FTNA     770     A     
 IO                 PURGMAC STLI                                                           F162FTNA     771     A     
 IO        BCK      SPACE  4,8                                                             IO           141     A     
 IO       **        BCK -  PROCESS "BACKSPACE" STATEMENT.                                  IO           142     A     
 IO       *         EXIT   TO *REW* WITH                                                   IO           143     A     
 IO       *                (B6) _ BACKSPACE ROUTINE NAME.                                  IO           144     A     
 IO                                                                                        IO           145     A     
 IO                                                                                        IO           146     A     
 IO                 HEREIF BACKSPACE                                                       IO           147     A     
 IO                                                                                        IO           148     A     
 IO                 SB6    S.BKSP                                                          IO           149     A     
 IO                 SX4    M.STBAK                                                         F162FTNA     772     A     
 IO                 EQ     REW2                                                            IO           150     A     
 IO        BUF      SPACE  4,8                                                             IO           151     A     
 IO       **        BUF -  PROCESS "BUFFER IN/OUT" STATEMENT.                              IO           152     A     
 IO       *                                                                                IO           153     A     
 IO       *         BUFFER <DIR> (<FILE>,<MODE>) (FWA,LWA)                                 IO           154     A     
 IO       *         <DIR>  #  *IN* OR *OUT*                                                IO           155     A     
 IO       *         <FILE> #  AS DEFINED BY *RTC*                                          IO           156     A     
 IO       *         <MODE> #  <INTEGER-CONSTANT> OR <SIMPLE-INTEGER-VARIABLE>              IO           157     A     
 IO       *                                                                                IO           158     A     
 IO       *         CALLS  CRJ, RTC, SUP, CAI, O=IOL, NAP, TRV, ANSI, ADDWD,               IO           159     A     
 IO       *                CLOAD, TAGSEX, WARN.                                            IO           160     A     
 IO                                                                                        IO           161     A     
 IO                                                                                        IO           162     A     
 IO                 HEREIF BUFFER                                                          IO           163     A     
 IO                                                                                        IO           164     A     
 IO                 ANSI   E.ANS       NON ANSI STATEMENT.                                 IO           165     A     
 IO                 SA5    B4                                                              IO           166     A     
 IO                 SA2    BUFA                                                            IO           167     A     
 IO                 =A3    A2+1                                                            IO           168     A     
 IO                 =B6    0                                                               IO           169     A     
 IO                 SX7    CR.INP                                                          IO           170     A     
 IO                 BX2    X5-X2                                                           IO           171     A     
 IO                 =A1    A5+1        *(*                                                 IO           172     A     
 IO                 =B7    X1-O.LP                                                         IO           173     A     
 IO                 BX3    X5-X3                                                           IO           174     A     
 IO                 SX4    M.STIBU                                                         F162FTNA     773     A     
 IO                 ZR     X2,BUF1     IF *IN*                                             IO           175     A     
 IO                 =B6    1                                                               IO           176     A     
 IO                 SX7    CR.OUT                                                          IO           177     A     
 IO                 SX4    M.STOBU                                                         F162FTNA     774     A     
 IO                 NZ     X3,E.IOB1   IF NOT *OUT*, ERR..                                 IO           178     A     
 IO        BUF1     NZ     B7,E.IOB3   IF NO *(*,    ERR..                                 IO           179          I
          -FCC1046
 IO                 SA2    BUFMOD                                                          IO           180          I
          -FCC1046
 IO        BUF1     ZR     B7,BUF2     IF SYNTAX OK                                        FCC1046       19     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1146    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 =B4    B4+1        RESET FOR DIAGNOSTIC                                FCC1046       20     A     
 IO                 EQ     E.IOB3      IF NO *(*                                           FCC1046       21     A     
 IO        BUF2     SA2    BUFMOD                                                          FCC1046       22     A     
 IO                 SB7    S.BUFIO                                                         IO           181     A     
 IO                 SA1    =XSTATIC                                                        F162FTNA     775     A     
 IO                 SB7    B6-B7                                                           IO           182     A     
 IO                 BX6    X1+X4                                                           F162FTNA     776     A     
 IO                 SA6    A1          UPDATE STATIC LOAD INFORMATIOM                      F162FTNA     777     A     
 IO                 SX6    B7+S.IOCAL                                                      IO           183     A     
 IO                 SA7    IOREF                                                           IO           184     A     
 IO                 LX7    P.AMR                                                           IO           185     A     
 IO                 BX7    X2+X7                                                           IO           186     A     
 IO                 SA7    ARGMODE                                                         IO           187     A     
 IO                 SA6    IONAM       SAVE ROUTINE NAME                                   IO           188     A     
 IO                                                                                        IO           189     A     
 IO       **        STORE FILE TAG.                                                        IO           190     A     
 IO                                                                                        IO           191     A     
 IO                 SA1    B4+2                                                            IO           192     A     
 IO                 BX6    X1                                                              IO           193     A     
 IO                 =B4    A1-1                                                            IO           194     A     
 IO                 RJ     RTC         ASSEMBLE FILE DESIGNATOR                            IO           195     A     
 IO                 =B4    B4+1                                                            IO           196     A     
 IO                 RJ     PFD         PROCESS FILE DESIGNATOR INTO AP-LIST.               IO           197     A     
 IO                                                                                        IO           198     A     
 IO       **        STORE MODE DESIGNATOR.                                                 IO           199     A     
 IO                                                                                        IO           200     A     
 IO                 =A2    B4                                                              IO           201     A     
 IO                 SB7    X2-O.COMMA                                                      IO           202     A     
 IO                 NZ     B7,E.IOB4                                                       IO           203     A     
 IO                 =X7    O.SLP                                                           IO           204     A     
 IO                 SA7    B4                                                              IO           205     A     
 IO                 RJ     PAR         PARSE THE MODE DESIGNATOR                           IO           206     A     
 IO                                                                                        IO           207     A     
 IO       **        STORE FWA INDICATOR.                                                   IO           208     A     
 IO                                                                                        IO           209     A     
 IO                 SA1    B4                                                              IO           210     A     
 IO                 =A2    B4+1                                                            IO           211     A     
 IO                 =B4    A2+1        POINT TO *(* BEFORE FWA                             IO           212          I
          -FCC0597
 IO                 =B4    A2+1        POINT TO FWA                                        FCC0597       17     A     
 IO                 =X6                                                                    IO           213     A     
 IO                 SX1    X1-O.RP                                                         IO           214     A     
 IO                 SX2    X2-O.LP                                                         IO           215     A     
 IO                 NZ     X1,E.IOB5   IF NO ) AFTER MODE DESIGNATOR                       IO           216     A     
 IO                 NZ     X2,E.IOB6   IF NO ( BEFORE FWA                                  IO           217          I
          -FCC0597
 IO                 NZ     X2,E.IOB3   IF NO *(* BEFORE FWA                                FCC0597       18          I
          -FCC1046
 IO                 ZR     X2,BUF3     IF SYNTAX OK                                        FCC1046       23     A     
 IO                 =B4    B4-1        RESET FOR DIAGNOSTIC                                FCC1046       24     A     
 IO                 EQ     E.IOB3      IF NO *(* BEFORE FWA                                FCC1046       25     A     
 IO                                                                                        IO           218     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1147    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       **        TRANSLATE FWA AND LWA TO TAGS                                          IO           219     A     
 IO                                                                                        IO           220     A     
 IO                 SA6    ARGCOMA                                                         IO           221          I
          -FCC1046
 IO        BUF3     SA6    ARGCOMA                                                         FCC1046       26     A     
 IO                                                                                        IO           222     A     
 IO                 SA2    BUFFWA                                                          IO           223     A     
 IO                 SA3    IOREF                                                           IO           224     A     
 IO                 LX3    P.AMR                                                           IO           225     A     
 IO                 BX7    X2+X3                                                           IO           226     A     
 IO                 SA7    ARGMODE                                                         IO           227     A     
 IO                 RJ     PAR         PARSE FIRST WORD ADDRESS                            IO           228     A     
 IO                 =A2    B4+1                                                            FCC0597       19     A     
 IO                 =B4    B4+1                                                            FCC0597       20     A     
 IO                 SB7    X2-O.COMMA                                                      FCC0597       21     A     
 IO                 NZ     B7,E.IOB4   IF NO *,* AFTER FWA                                 FCC0597       22     A     
 IO                                                                                        IO           229     A     
 IO                 SA2    BUFLWA                                                          IO           230     A     
 IO                 =X7    O.SLP                                                           IO           231     A     
 IO                 BX6    X2                                                              IO           232     A     
 IO                 =B4    B4+1                                                            IO           233          I
          -FCC0597
 IO                 SA7    B4                                                              IO           234     A     
 IO                 SA6    ARGMODE                                                         IO           235     A     
 IO                 RJ     PAR         PARSE LAST WORD ADDRESS                             IO           236     A     
 IO                 =A2    B4                                                              FCC0597       23     A     
 IO                 BX6    X6-X6                                                           FCC0597       24     A     
 IO                 SB7    X2-O.RP                                                         FCC0597       25     A     
 IO                 NZ     B7,E.IOB5   IF NO *)* AFTER LWA                                 FCC0597       26     A     
 IO                                                                                        IO           237     A     
 IO       **        CALL *IOJ* TO EMIT AN I/O CALL TURPLE AND CREATE THE APLIST.           IO           238     A     
 IO                                                                                        IO           239     A     
 IO                 =X6                                                                    IO           240          I
          -FCC0597
 IO                 RJ     IOJ         COMPILE THE CALL                                    IO           241     A     
 IO                                                                                        IO           242     A     
 IO                 SA1    TG.APL                                                          IO           243     A     
 IO                 SX6    X1-1                                                            IO           244     A     
 IO                 SA6    A1                                                              IO           245     A     
 IO                                                                                        IO           246     A     
 IO                 RJ     CAI         COMPILE ALL INSTRUCTIONS                            IO           247     A     
 IO                 EQ     PSN         EXIT..                                              IO           248     A     
 IO                                                                                        IO           249     A     
 IO       **        HERE IF FATAL ERROR IN BUFFER STATEMENT.                               IO           250     A     
 IO       *                ADD *O=ERR* OPERATOR TO PARSED FILE.                            IO           251     A     
 IO                                                                                        IO           252     A     
 IO        BUFERR   RJ     CAI         FLUSH PARSED FILE                                   IO           253     A     
 IO                 SA1    =XDFLAG                                                         IO           254          I
          -FCC0597
 IO                 ZR     X1,PSN      IF DEBUG OPTION NOT SELECTED                        IO           255          I
          -FCC0597
 IO                 RJ     CER         CALL ERROR ROUTINE                                  IO           256          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1148    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          -FCC0597
 IO                 EQ     PSN         EXIT..                                              IO           257     A     
 IO                                                                                        IO           258     A     
 IO        BUFA     CON    0LIN+O.VAR                                                      IO           259     A     
 IO                 CON    0LOUT+O.VAR                                                     IO           260     A     
 IO        DCD      SPACE  4,8         DCD                                                 IO           261     A     
 IO       **        DCD -  PROCESS "DECODE" STATEMENT.                                     IO           262     A     
 IO       *         EXIT   TO *NDC* WITH                                                   IO           263     A     
 IO       *                (B6) = INPUT DIRECTION INDICATION.                              IO           264     A     
 IO                                                                                        IO           265     A     
 IO                                                                                        IO           266     A     
 IO                 HEREIF DECODE                                                          IO           267     A     
 IO                                                                                        IO           268     A     
 IO                 =B6    S=INP                                                           IO           269     A     
 IO                 SX7    CR.INP                                                          IO           270     A     
 IO                 SX4    M.STICO                                                         F162FTNA     778     A     
 IO                 EQ     NDC         PROCESS ARGUMENTS AND LIST                          IO           271     A     
 IO        EFI      SPACE  4,8                                                             IO           272     A     
 IO       **        EFI -  PROCESS "ENDFILE" STATEMENT.                                    IO           273     A     
 IO       *         EXIT   TO *REW* WITH                                                   IO           274     A     
 IO       *                (B6) _ ENDFILE ROUTINE NAME.                                    IO           275     A     
 IO                                                                                        IO           276     A     
 IO                                                                                        IO           277     A     
 IO                 HEREIF ENDFILE                                                         IO           278     A     
 IO                                                                                        IO           279     A     
 IO                 SA1    B4                                                              IO           280     A     
 IO                 SB6    S.ENDFI                                                         IO           281     A     
 IO                 BX3    X1                                                              IO           282     A     
 IO                 =X2    O.VAR-O.CONS                                                    IO           283     A     
 IO                 LX1    CHAR                                                            IO           284     A     
 IO                 SB2    X1-1R0-O.VAR*1S6                                                IO           285     A     
 IO                 SX4    M.STENF                                                         F162FTNA     779     A     
 IO                 MI     B2,REW2     IF 1ST = ALPHA                                      IO           286     A     
 IO                 IX6    X3-X2                                                           IO           287     A     
 IO                 SA6    A1          RESET TO INDICATE CONSTANT                          IO           288     A     
 IO                 EQ     REW2        CONTINUE                                            IO           289     A     
 IO        NCD      SPACE  4,8                                                             IO           290     A     
 IO       **        NCD -  PROCESS "ENCODE" STATEMENT.                                     IO           291     A     
 IO       *         EXIT   TO *NDC* WITH                                                   IO           292     A     
 IO       *                (B6) = OUTPUT DIRECTION INDICATION.                             IO           293     A     
 IO                                                                                        IO           294     A     
 IO                                                                                        IO           295     A     
 IO                 HEREIF ENCODE                                                          IO           296     A     
 IO                                                                                        IO           297     A     
 IO                 =B6    S=OUT                                                           IO           298     A     
 IO                 SX7    CR.OUT                                                          IO           299     A     
 IO                 SX4    M.STOCO                                                         F162FTNA     780     A     
 IO                 EQ     NDC                                                             IO           300     A     
 IO        PNC      SPACE  4,8                                                             IO           301     A     
 IO       **        PNC -  PROCESS "PUNCH" STATEMENT.                                      IO           302     A     
 IO       *         ENTERED BY  *PRINT FMT,*  AND  *READ FMT,*  STATEMENTS.                IO           303     A     
 IO       *         ENTRY  (X5) = FILE NAME.                                               IO           304     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1149    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *                (X6) = I/O INDICATION TO BE STORED IN *R.W*                     IO           305     A     
 IO       *                (B4) _ FORMAT DESIGNATOR.                                       IO           306     A     
 IO       *                (B6) = I/O DIRECTION (S=INP OR S=OUT).                          IO           307     A     
 IO       *         EXIT   TO *LST* WITH                                                   IO           308     A     
 IO       *                (B6) = DIRECTION + CODED MODE (S=COD) INDICATION.               IO           309     A     
 IO       *         CALLS  ANSI, FFT, PFD, PTN.                                            IO           310     A     
 IO                                                                                        IO           311     A     
 IO                                                                                        IO           312     A     
 IO                 HEREIF PUNCH                                                           IO           313     A     
 IO                                                                                        IO           314     A     
 IO                 ANSI   E.ANS       *PUNCH* STATEMENT IS NON-ANSI                       IO           315     A     
 IO                 MX6    2                                                               IO           316     A     
 IO                 SA5    =0LPUNCH                                                        IO           317     A     
 IO                 LX6    1           INDICATES I/O IS PUNCH                              IO           318     A     
 IO                                                                                        IO           319     A     
 IO       *         ENTERED HERE BY *PRINT* STATEMENT PROCESSOR                            IO           320     A     
 IO                                                                                        IO           321     A     
 IO        PNC1     SX7    CR.OUT                                                          IO           322     A     
 IO                 SA7    IOREF       SET XREF CELL TO *W*                                IO           323     A     
 IO                 SX4    M.STOCO                                                         F162FTNA     781     A     
 IO                 =B6    S=OUT                                                           IO           324     A     
 IO                 SA1    B4                                                              IO           325     A     
 IO                 SB2    X1-O.(                                                          IO           326     A     
 IO                 ZR     B2,WOT.R    IF *PUNCH(* OR *PRINT(*                             IO           327     A     
 IO                                                                                        IO           328     A     
 IO       *         ENTERED HERE BY *READ FMT, * PROCESSOR                                 IO           329     A     
 IO                                                                                        IO           330     A     
 IO        PNC1A    SA1    B4                                                              IO           331          I
          -F162FTNA 
 IO        PNC1A    SA1    =XSTATIC                                                        F162FTNA     782     A     
 IO                 BX7    X1+X4                                                           F162FTNA     783     A     
 IO                 SA7    A1          UPDATE STATIC LOAD INFORMATION                      F162FTNA     784     A     
 IO                 SA1    B4                                                              F162FTNA     785     A     
 IO                 SB2    X1-O.STAR                                                       IO           332     A     
 IO                 SA6    R.W         FLAG FOR TYPE OF I/O                                IO           333     A     
 IO                 NZ     B2,PNC2     IF (HOPEFULLY) FORMATTED *PUNCH* OR *PRINT*         IO           334     A     
 IO                 ANSI   E.IO28      LIST-DIRECTED I/O IS NON-ANSI                       IO           335     A     
 IO                 =B4    B4-1        GIVE FFT A CELL TO WORK WITH                        IO           336     A     
 IO                 RJ     FFT         FIND FILE TAG                                       IO           337     A     
 IO                 RJ     PFD         PROCESS FILE DESIGNATOR INTO AP-LIST                IO           338     A     
 IO                 =B6    B6+S=FREE                                                       IO           339     A     
 IO                 =A1    B4+1                                                            IO           340     A     
 IO                 =X6    1                                                               IO           341     A     
 IO                 =B4    B4+1                                                            IO           342     A     
 IO                 SA6    R.W         SET LIST-DIRECTED FLAG                              IO           343     A     
 IO                 =A3    B4+1                                                            FEAT155B       8     A     
 IO                 SX2    X1-O.COMMA                                                      IO           344     A     
 IO                 ZR     X1,E.IO27   IF NO I/O LIST                                      IO           345          I
          -FEAT126C 
 IO                 ZR     X1,LST            IF NO I/O LIST                                FEAT126C     136          I
          -FCC1068
 IO                 ZR     X1,E.IO27   EOS ENCOUNTERED--NO I/O LIST                        FCC1068        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1150    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 ZR     X2,LST      IF COMMA                                            IO           346          I
          -FEAT155B 
 IO                 WARN   E.IO9                                                           IO           347          I
          -FEAT155B 
 IO                 NZ     X2,PNC1B    IF NOT A COMMA                                      FEAT155B       9     A     
 IO                 ZR     X3,E.IO27   IF *,* TERMINATOR WITH NO IOLIST.                   FEAT155B      10     A     
 IO                 EQ     LST                                                             FEAT155B      11     A     
 IO        PNC1B    WARN   E.IO9                                                           FEAT155B      12     A     
 IO                 =B4    B4-1        NO COMMA, SO PRETEND THERE IS ONE.                  FCC1068        5     A     
 IO                 EQ     LST         PROCESS I/O LIST                                    IO           348     A     
 IO                                                                                        IO           349     A     
 IO        PNC2     =B4    B4-1        GIVE FFT A CELL TO WORK WITH                        IO           350     A     
 IO                 RJ     FFT         FIND FILE TAG                                       IO           351     A     
 IO                 RJ     PFD         PROCESS FILE DESIGNATOR INTO AP-LIST.               IO           352     A     
 IO                 =B6    B6+S=COD                                                        IO           353     A     
 IO                 BX7    0                                                               FCC0794        5     A     
 IO                 SA7    ASSUNIT     SET RETURN CONDITION                                FCC0794        6     A     
 IO                 RJ     PTN         PROCESS FORMAT NUMBER                               IO           354     A     
 IO                 SA1    B4                                                              IO           355     A     
 IO                 SX2    X1-O.COMMA                                                      IO           356     A     
 IO                 ZR     X1,LST      IF *EOS*                                            IO           357     A     
 IO                 ZR     X2,LST      IF COMMA                                            IO           358     A     
 IO                 WARN   E.IO9                                                           IO           359     A     
 IO                 EQ     LST         PROCESS I/O LIST                                    IO           360     A     
 IO        PNT      SPACE  4,8                                                             IO           361     A     
 IO       **        PNT -  PROCESS "PRINT" STATEMENT.                                      IO           362     A     
 IO       *         EXIT   TO *PNC* WITH --                                                IO           363     A     
 IO       *                (X5) = *OUTPUT* FILE.                                           IO           364     A     
 IO                                                                                        IO           365     A     
 IO                                                                                        IO           366     A     
 IO                 HEREIF PRINT                                                           IO           367     A     
 IO                                                                                        IO           368     A     
 IO                 ANSI   E.ANS       *PRINT* STATEMENT IS NON-ANSI                       IO           369     A     
 IO                 MX6    1                                                               IO           370     A     
 IO                 SA5    =0LOUTPUT                                                       IO           371     A     
 IO                 EQ     PNC1        PROCESS REMAINDER OF STATEMENT                      IO           372     A     
 IO        REW      SPACE  4,8                                                             IO           373     A     
 IO       **        REW -  PROCESS "REWIND" STATEMENT.                                     IO           374     A     
 IO       *                                                                                IO           375     A     
 IO       *         ALSO CONTAINS PROCESSING FOR *ENDFILE* AND *BACKSPACE*                 IO           376     A     
 IO       *         ENTRY TO *REW2* --                                                     IO           377     A     
 IO       *                (B6) _ THE NAME OF THE FILE MANIPULATION ROUTINE NEEDED         IO           378     A     
 IO       *                            TO PROCESS THE REQUESTED ACTION.                    IO           379     A     
 IO       *                (X4) = M.STXXX INDICATOR FOR STATIC LOAD                        F162FTNA     786     A     
 IO       *         *REW2* THEN ASSEMBLES THE FILE DESIGNATOR FROM THE STATEMENT,          IO           380     A     
 IO       *                CHECKS FOR SUPERFLUOUS TRAILING CHARS., AND COMPILES            IO           381     A     
 IO       *                A LOAD OF (X1) = FIT ADDRESS, AND AN RJT TO THE ROUTINE         IO           382     A     
 IO       *         CALLS  CLOAD, CRJ, TAGSEX, ADDWD, NAP, RTC, WARN.                      IO           383     A     
 IO                                                                                        IO           384     A     
 IO                                                                                        IO           385     A     
 IO                 HEREIF REWIND                                                          IO           386     A     
 IO                                                                                        IO           387     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1151    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SB6    S.REWIN                                                         IO           388     A     
 IO                 SX4    M.STREW                                                         F162FTNA     787     A     
 IO                                                                                        IO           389     A     
 IO       *         JOINED HERE BY *ENDFILE* AND *BACKSPACE* PROCESSORS                    IO           390     A     
 IO                                                                                        IO           391     A     
 IO        REW2     SX7    CR.REF                                                          IO           392     A     
 IO                 SA7    IOREF       SET XREF CELL TO * *                                IO           393     A     
 IO                 SA2    =XSTATIC                                                        F162FTNA     788     A     
 IO                 BX6    X2+X4                                                           F162FTNA     789     A     
 IO                 SA6    A2          UPDATE STATIC LOAD INFORMATION                      F162FTNA     790     A     
 IO                 SA2    B4                                                              IO           394     A     
 IO                 SA1    B4+B1                                                           IO           395     A     
 IO                 ZR     X2,E.IO1    IF NO UNIT                                          IO           396     A     
 IO                 ZR     X1,REW3     IF *EOS*                                            IO           397     A     
 IO                 =B4    B4+1                                                            IO           398     A     
 IO                 WARN   E.IO6       EXTRA CHARACTERS - WARNING                          IO           399     A     
 IO                 =B4    B4-1                                                            IO           400     A     
 IO        REW3     BX6    X2                                                              IO           401     A     
 IO                 RJ     RTC         ASSEMBLE/TRANSLATE FILE NAME                        IO           402     A     
 IO                 RJ     PFD         PROCESS FILE DESIGNATOR INTO AP-LIST                IO           403     A     
 IO                 SB3    S.IOCAL                                                         IO           404     A     
 IO                 SX7    B6-B3                                                           IO           405     A     
 IO                 BX6    0                                                               IO           406     A     
 IO                 BX7    -X7         INDICATE NO CALLS YET                               IO           407     A     
 IO                 SA7    IONAM                                                           IO           408     A     
 IO                 RJ     IOJ                                                             IO           409     A     
 IO                 SA1    TG.APL                                                          IO           410     A     
 IO                 SX6    X1-1                                                            IO           411     A     
 IO                 SA6    A1                                                              IO           412     A     
 IO                 EQ     PSN         EXIT..                                              IO           413     A     
 IO        RIT      SPACE  4,8                                                             IO           414     A     
 IO       **        RIT -  PROCESS "READ" STATEMENT.                                       IO           415     A     
 IO       *                                                                                IO           416     A     
 IO       *         EXIT   (B6) = *INPUT* DIRECTION INDICATION.                            IO           417     A     
 IO       *                TO *PNC* WITH (X5) = *INPUT* FILE,                              IO           418     A     
 IO       *                          AND (B4) _ FORMAT DESIGNATOR.                         IO           419     A     
 IO       *                OR *WOT* WITH (B4) _ *(*.                                       IO           420     A     
 IO                                                                                        IO           421     A     
 IO                                                                                        IO           422     A     
 IO                 HEREIF READ                                                            IO           423     A     
 IO                                                                                        IO           424     A     
 IO                 SX7    CR.INP                                                          IO           425     A     
 IO                 SA7    IOREF       SET XREF CELL TO *R*                                IO           426     A     
 IO                 SX4    M.STICO                                                         F162FTNA     791     A     
 IO                 SA1    B4                                                              IO           427     A     
 IO                 SA5    =0LINPUT                                                        IO           428     A     
 IO                 =B6    S=INP                                                           IO           429     A     
 IO                 SX2    X1-O.(                                                          IO           430     A     
 IO                 MX6    0                                                               IO           431     A     
 IO                 ZR     X2,WOT.R    IF *READ(*                                          IO           432     A     
 IO                 ANSI   E.ANS       ANSI REQUIRES *(* AFTER *READ*                      IO           433     A     
 IO                 MX6    0                                                               IO           434     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1152    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 EQ     PNC1A                                                           IO           435     A     
 IO        WOT      SPACE  4,8         WOT                                                 IO           436     A     
 IO       **        WOT -  PROCESS "WRITE" STATEMENT.                                      IO           437     A     
 IO       *                                                                                IO           438     A     
 IO       *         ENTERED BY *READ(* STATEMENT.                                          IO           439     A     
 IO       *         ENTRY  (B6) = I/O DIRECTION (IN OR OUT)                                IO           440     A     
 IO       *                (B4) _ *(*                                                      IO           441     A     
 IO       *         EXIT   *LST* WITH ---                                                  IO           442     A     
 IO       *                (B6) = DIRECTION AND BINARY/BCD INDICATION.                     IO           443     A     
 IO       *         CALLS  PFD, PTN, RTC.                                                  IO           444     A     
 IO                                                                                        IO           445     A     
 IO                                                                                        IO           446     A     
 IO                 HEREIF WRITE                                                           IO           447     A     
 IO                                                                                        IO           448     A     
 IO                 SX7    CR.OUT                                                          IO           449     A     
 IO                 SA7    IOREF       SET XREF CELL TO *W*                                IO           450     A     
 IO                 SX4    M.STOCO                                                         F162FTNA     792     A     
 IO                 SA1    B4                                                              IO           451     A     
 IO                 =B6    S=OUT                                                           IO           452     A     
 IO                 SA5    =0LOUTPUT                                                       IO           453     A     
 IO                 SX6    B1                                                              IO           454     A     
 IO                 SX2    X1-O.(                                                          IO           455     A     
 IO                 ZR     X2,WOT.R    IF *WRITE(*                                         IO           456     A     
 IO                 ANSI   E.ANS       ANSI REQUIRES *(* AFTER *WRITE*                     IO           457     A     
 IO                 =X6    1                                                               IO           458     A     
 IO                 EQ     PNC1A                                                           IO           459     A     
 IO                                                                                        IO           460     A     
 IO       **        ENTERED HERE BY *READ (* PROCESSOR.                                    IO           461     A     
 IO                                                                                        IO           462     A     
 IO        WOT.R    SA1    B4+B1                                                           IO           463     A     
 IO                 SA6    R.W         FLAG FOR TYPE OF I/O                                IO           464     A     
 IO                 LX6    X4                                                              F162FTNA     793     A     
 IO                 SA6    IOSTAT                                                          F162FTNA     794     A     
 IO                 BX6    X1                                                              IO           465     A     
 IO                 RJ     RTC         ASSEMBLE UNIT DESIGNATOR                            IO           466     A     
 IO                 RJ     PFD         PROCESS FILE DESIGNATOR INTO AP-LIST.               IO           467     A     
 IO                 SA4    IOSTAT                                                          F162FTNA     795     A     
 IO                 =B6    B6+S=BIN                                                        IO           468     A     
 IO                 =A1    B4+1                                                            IO           469     A     
 IO                 =B4    B4+1        POINT TO RPAREN OR COMMA                            IO           470     A     
 IO                 SB7    X1-O.)                                                          IO           471     A     
 IO                 NZ     B7,WOT1     IF NOT *)*                                          IO           472     A     
 IO                 SA2    R.W                                                             IO           473     A     
 IO                 MI     X2,E.IO25   IF NOT *READ* OR *WRITE*                            IO           474     A     
 IO                 LX4    2           CONVERT TO BINARY I/O INDICATOR                     F162FTNA     796     A     
 IO                 SA1    =XSTATIC                                                        F162FTNA     797     A     
 IO                 BX6    X1+X4                                                           F162FTNA     798     A     
 IO                 SA6    A1          UPDATE STATIC LOAD INFORMATION                      F162FTNA     799     A     
 IO                 MX7    0           UNFORMATED IO...KEYWORD(U)                          FEAT155B      13     A     
 IO                 SA7    A2                                                              FEAT155B      14     A     
 IO                 SA3    IODIR                                                           IO           475     A     
 IO                 ZR     X3,LST      IF *READ*                                           IO           476     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1153    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 =A1    B4+1                                                            IO           477     A     
 IO                 NZ     X1,LST      IF NOT *EOS*                                        IO           478     A     
 IO                 ANSI   E.IO26      ANSI REQUIRES AN I/O LIST                           IO           479     A     
 IO                 EQ     LST                                                             IO           480     A     
 IO                                                                                        IO           481     A     
 IO        WOT1     SB2    X1-O.COMMA                                                      IO           482          I
          -F162FTNA 
 IO        WOT1     SA2    =XSTATIC                                                        F162FTNA     800     A     
 IO                 BX6    X2+X4                                                           F162FTNA     801     A     
 IO                 SA6    A2          UPDATE STATIC LOAD INFORMATION                      F162FTNA     802     A     
 IO                 SB2    X1-O.COMMA                                                      F162FTNA     803     A     
 IO                 NZ     X1,WOT2     IF NOT PREMATURE *EOS*                              IO           483     A     
 IO                 FATAL  E.IO8                                                           IO           484     A     
 IO        WOT2     ZR     B2,WOT3     IF COMMA                                            IO           485     A     
 IO                 WARN   E.IO9       ** ASSUMED COMMA AFTER UNIT **                      IO           486     A     
 IO        WOT3     =A1    B4+1                                                            IO           487     A     
 IO                 ZR     X1,E.IO13   IF PREMATURE EOS (RETURN LST)                       IO           488     A     
 IO                 =A2    A1+1                                                            IO           489          I
          -FEAT126C 
 IO                 SB7    X2-O.=                                                          IO           490          I
          -FEAT126C 
 IO                 ZR     B7,WOT7     IF *END=* OR *ERR=*                                 IO           491          I
          -FEAT126C 
 IO                 =B4    B4+1                                                            IO           492     A     
 IO                 SB7    S=BIN                                                           IO           493     A     
 IO                 SB6    B6-B7                                                           IO           494     A     
 IO                 SB6    B6+S=COD                                                        IO           495     A     
 IO                 SB2    X1-O.STAR                                                       IO           496     A     
 IO                 NZ     B2,WOT3A    IF NOT STAR                                         IO           497     A     
 IO                 ANSI   E.IO28      LIST-DIRECTED I/O IS NON-ANSI                       IO           498     A     
 IO                 =B6    B6+S=FREE                                                       IO           499     A     
 IO                 =A1    B4+1                                                            IO           500          I
          -FEAT126C 
 IO                 =B4    B4+1                                                            IO           501     A     
 IO                 SB2    X1-O.)                                                          IO           502          I
          -FEAT126C 
 IO                 =X6    1                                                               IO           503     A     
 IO                 =A2    A1+1                                                            IO           504          I
          -FEAT126C 
 IO                 SA6    R.W         SET LIST-DIRECTED FLAG                              IO           505     A     
 IO                 NZ     B2,WOT3B    IF NOT *)*                                          IO           506          I
          -FEAT126C 
 IO                 ZR     X2,E.IO27   IF *EOS* INDICATING NO LIST                         IO           507          I
          -FEAT126C 
 IO                 EQ     LST                                                             IO           508          I
          -FEAT126C 
 IO                 EQ     WOT3B                                                           FEAT126C     137     A     
 IO                                                                                        IO           509     A     
 IO        WOT3A    RJ     PTN         PROCESS FORMAT DESIGNATOR                           IO           510          I
          -FCC0794
 IO        WOT3A    =X7    1                                                               FCC0794        7     A     
 IO                 SA7    ASSUNIT     SET RETURN CONDITION                                FCC0794        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1154    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 RJ     PTN         PROCESS FORMAT DESIGNATOR                           FCC0794        9     A     
 IO                 SA1    B4                                                              IO           511          I
          -FEAT126C 
 IO                 SB7    X1-O.)                                                          IO           512          I
          -FEAT126C 
 IO                 ZR     B7,LST      IF RPAREN                                           IO           513          I
          -FEAT126C 
 IO        WOT3B    =B2    X1-O.COMMA                                                      IO           514          I
          -FEAT126C 
 IO                 NZ     B2,E.IO20   IF NOT COMMA                                        IO           515          I
          -FEAT126C 
 IO        WOT4     =A1    B4+1                                                            IO           516          I
          -FEAT126C 
 IO                 ZR     X1,E.IO13                                                       IO           517          I
          -FEAT126C 
 IO                 =A2    A1+1                                                            IO           518          I
          -FEAT126C 
 IO                 SB7    X2-O.=                                                          IO           519          I
          -FEAT126C 
 IO                 NZ     B7,E.IO20   IF NOT *=*                                          IO           520          I
          -FEAT126C 
 IO        WOT7     RJ     RTE         ASSEMBLE EXCEPTION TRANSFER                         IO           521          I
          -FEAT126C 
 IO                 SA1    RTERR                                                           IO           522          I
          -FEAT126C 
 IO                 ZR     X1,WOT8     IF NO *ERR=*                                        IO           523          I
          -FEAT126C 
 IO                 BX6    0           CLEAR FIELD SINCE IT IS CURRENTLY                   IO           524          I
          -FEAT126C 
 IO                 SA6    A1           NOT LEGAL                                          IO           525          I
          -FEAT126C 
 IO                 NOTE   E.IO16                                                          IO           526          I
          -FEAT126C 
 IO                 ANSI   E.IO15                                                          IO           527          I
          -FEAT126C 
 IO        WOT8     SA4    RTEND                                                           IO           528          I
          -FEAT126C 
 IO                 ZR     X4,WOT10    IF *END=*                                           IO           529          I
          -FEAT126C 
 IO                 ANSI   E.IO17                                                          IO           530          I
          -FEAT126C 
 IO                 SA1    IODIR                                                           IO           531          I
          -FEAT126C 
 IO                 ZR     X1,WOT9     IF INPUT OPERATION                                  IO           532          I
          -FEAT126C 
 IO                 BX6    0           CLEAR FIELD SINCE IT IS ILLEGAL ON                  IO           533          I
          -FEAT126C 
 IO                 SA6    RTEND        OUTPUT OPERATIONS                                  IO           534          I
          -FEAT126C 
 IO                 WARN   E.IO18                                                          IO           535          I
          -FEAT126C 
 IO                 EQ     WOT10                                                           IO           536          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1155    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          -FEAT126C 
 IO                                                                                        IO           537          I
          -FEAT126C 
 IO        WOT9     BX6    0           CLEAR FIELD SINCE IT IS CURRENTLY                   IO           538          I
          -FEAT126C 
 IO                 SA6    RTEND        NOT LEGAL                                          IO           539          I
          -FEAT126C 
 IO                 NOTE   E.IO24                                                          IO           540          I
          -FEAT126C 
 IO        WOT10    =A1    B4                                                              IO           541          I
          -FEAT126C 
 IO                 SB7    X1-O.)                                                          IO           542          I
          -FEAT126C 
 IO                 ZR     B7,WOT12    IF *)*                                              IO           543          I
          -FEAT126C 
 IO                 =B4    B4-1        RESCAN THIS TOKEN                                   IO           544          I
          -FEAT126C 
 IO                 WARN   E.IO19                                                          IO           545          I
          -FEAT126C 
 IO                 EQ     LST         EXIT..                                              IO           546          I
          -FEAT126C 
 IO                                                                                        IO           547          I
          -FEAT126C 
 IO        WOT12    =A1    B4+1                                                            IO           548          I
          -FEAT126C 
 IO                 NZ     X1,LST      IF NOT *EOS*                                        IO           549          I
          -FEAT126C 
 IO                 SA2    IOFMT                                                           IO           550          I
          -FEAT126C 
 IO                 ZR     X2,E.IO27   IF LIST-DIRECTED I/O                                IO           551          I
          -FEAT126C 
 IO                 EQ     LST                                                             IO           552          I
          -FEAT126C 
 IO                                                                                        IO           553          I
          -FEAT126C 
 IO        WOT3B    SA1    B4                                                              FEAT126C     138     A     
 IO                 SB7    X1-O.)                                                          FEAT126C     139     A     
 IO                 NZ     B7,E.IO20         IF NOT *)*                                    FEAT126C     140     A     
 IO                 EQ     LST                                                             FEAT126C     141     A     
 IO        DOB      SPACE  4,8                                                             IO           554     A     
 IO       **        DOB -  I/O LIST DO-BEGIN PROCESSING.                                   IO           555     A     
 IO       *                                                                                IO           556     A     
 IO       *         ENTRY  (B4) _ IO.DOB MARK                                              IO           557     A     
 IO       *         EXIT   TO *LST.GO*.                                                    IO           558     A     
 IO       *                (B4) PRESERVED.                                                 IO           559     A     
 IO       *         USES   ALL BUT A0.                                                     IO           560     A     
 IO       *         CALLS  CDI.                                                            IO           561     A     
 IO                                                                                        IO           562     A     
 IO                                                                                        IO           563     A     
 IO        DOB      BX6    -0                                                              IO           564     A     
 IO                 RJ     IOJ         INTERRUPT LIST                                      IO           565     A     
 IO                 RJ     MXP         MARK EXTERNAL PROCESSOR                             IO           566     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1156    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA2    B4                                                              IO           567     A     
 IO                 SA1    TG.PRO                                                          IO           568     A     
 IO                 AX2    18          ISOLATE LINK TO DO-INDEX                            IO           569     A     
 IO                 =A3    X2+1        FETCH IO.DOC MARK                                   IO           570          I
          -FCC0787
 IO                 SX2    X2          ADDRESS OF INDEX                                    FCC0787       30     A     
 IO                 =X7    O.=                                                             IO           571     A     
 IO                 =X6    X1+1        UPDATE PROGRAM TAG                                  IO           572     A     
 IO                 SX0    B4                                                              IO           573     A     
 IO                 SA7    A3                                                              IO           574          I
          -FCC0787
 IO                 =A7    X2+1                                                            FCC0787       31     A     
 IO                 SA6    A1                                                              IO           575     A     
 IO                 LX0    -18                                                             IO           576     A     
 IO                 BX3    X6+X0                                                           IO           577     A     
 IO                 SB4    A3          POINT TO EQUAL SIGN                                 IO           578          I
          -FCC0787
 IO                 =B4    X2+1        POINT TO*=*                                         FCC0787       32     A     
 IO                 LX3    2*18                                                            IO           579     A     
 IO                 IX7    X3+X2       =  24/ L.TAG,  18/ FWA-DO,  18/ INDEX-ADDR          IO           580     A     
 IO                 SA7    DOBA        SAVE IO.DOC POINTERS                                IO           581     A     
 IO                                                                                        IO           582     A     
 IO       **        PARSE *DO* INITIAL CODE.                                               IO           583     A     
 IO       *         (X6) = L-TAG FOR LOOP.                                                 IO           584     A     
 IO                                                                                        IO           585     A     
 IO                 RJ     CDI         PARSE IT.                                           IO           586     A     
 IO                                                                                        IO           587     A     
 IO                 =X0    IO.DOC                                                          IO           588     A     
 IO                 SA1    IOARGT                                                          IO           589     A     
 IO                 SA3    DOBA                                                            IO           590     A     
 IO                 BX4    X6+X0       SAVE *DO-ERROR* FLAG                                IO           591     A     
 IO                 LX6    X1                                                              IO           592     A     
 IO                 SB3    B4          _ )                                                 IO           593     A     
 IO                 SB2    X3          ADDRESS OF DO-INDEX                                 IO           594     A     
 IO                 AX3    18                                                              IO           595     A     
 IO                 SB4    X3          RESTORE (B4) _ FRONT OF DO-LIST                     IO           596     A     
 IO                 SA6    ARGMODE     RESET AFTER *DO* HAS ALTERED.                       IO           597     A     
 IO                 SX2    B4-B3                                                           IO           598     A     
 IO                 BX6    O.EOS                                                           IO           599     A     
 IO                 =A6    B2-1        FORCE *EOS* AT END OF LIST                          IO           600     A     
 IO                 IX0    X3-X2                                                           IO           601     A     
 IO                 LX0    18                                                              IO           602     A     
 IO                 IX7    X0+X4                                                           IO           603     A     
 IO                 SA7    B2          STORE DO-CLOSE MARK (OVER THE INDEX)                IO           604     A     
 IO       ,                            24/ L.TAG,  18/ _),  18/ IO.DOC                     IO           605     A     
 IO                 EQ     LST.GO      EXIT..                                              IO           606     A     
 IO                                                                                        IO           607     A     
 IO        DOBA     BSS    1           TEMP                                                IO           608     A     
 IO        DOC      SPACE  4,8                                                             IO           609     A     
 IO       **        DOC -  I/O LIST DO-CONCLUSION PROCESSING.                              IO           610     A     
 IO       *                                                                                IO           611     A     
 IO       *                MAKES DO-TERMINATION ENTRY IN PARSED FILE.                      IO           612     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1157    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *         1.  AN *IOJ* TURPLE.                                                   IO           613     A     
 IO       *                                                                                IO           614     A     
 IO       *         ENTRY  (B4) _ IO.DOC MARK.                                             IO           615     A     
 IO       *         EXIT   TO *LST.GO*.                                                    IO           616     A     
 IO       *                (B4) _ NEXT ITEM PAST THE DO.                                   IO           617     A     
 IO       *         USES   ALL.                                                            IO           618     A     
 IO       *         CALLS  IOJ, MXP, PDT                                                   IO           619     A     
 IO                                                                                        IO           620     A     
 IO                                                                                        IO           621     A     
 IO        DOC      BSS    0           ENTRY/EXIT...                                       IO           622     A     
 IO                 BX6    -0                                                              IO           623     A     
 IO                 RJ     IOJ         INTERRUPT LIST                                      IO           624     A     
 IO                 SA3    B4          24/ L.TAG,  18/ _NEXT,  18/ IO.DOC                  IO           625     A     
 IO                 AX3    18                                                              IO           626     A     
 IO                 =B4    X3+1        SKIP THE COMMA                                      IO           627     A     
 IO                 AX3    18                                                              IO           628          I
          -FCC1337
 IO        DOC2     SA2    B4                                                              FCC1337        5     A     
 IO                 SB2    X2-O.)                                                          FCC1337        6     A     
 IO                 NZ     B2,DOC4     IF NO REDUNDANT PAREN                               FCC1337        7     A     
 IO                 =B4    B4+1        SKIP REDUNDANT PAREN                                FCC1337        8     A     
 IO                 EQ     DOC2                                                            FCC1337        9     A     
 IO                                                                                        FCC1337       10     A     
 IO        DOC4     AX3    18                                                              FCC1337       11     A     
 IO                 SX2    X3          ISOLATE L.TAG OF THIS DO                            IO           629     A     
 IO                 MI     X3,DOC6     IF ERROR IN DO-DEFINITION                           IO           630     A     
 IO                 RJ     PDT         PROCESS DO TERMINATION (PASS 1)                     IO           631     A     
 IO                                                                                        IO           632     A     
 IO        DOC6     RJ     MXP         MARK EXTERNAL PROCESSOR                             IO           633     A     
 IO                 =A1    B4+1                                                            FEAT155B      15     A     
 IO                 NZ     X1,LST.GO   IF NOT EOS                                          FEAT155B      16     A     
 IO                 =A2    B4                                                              FEAT155B      17     A     
 IO                 SX2    X2-O.COMMA                                                      FEAT155B      18     A     
 IO                 NZ     X2,LST.GO   IF EOS, CHECK PRECEEDING ELEMENT                    FEAT155B      19     A     
 IO                 =B4    B4+1                                                            FEAT155B      20     A     
 IO                 EQ     LST.GO      EXIT..                                              FEAT155B      21     A     
 IO                 EQ     LST.GO      EXIT..                                              IO           634          I
          -FCC1068
 IO        FFN      SPACE  4,8                                                             IO           635     A     
 IO       **        FFN -  FIND FILE NAME.                                                 IO           636     A     
 IO       *                                                                                IO           637     A     
 IO       *                MANUFACTURES OBJECT PROGRAM FILE NAMES FROM THE SOURCE          IO           638     A     
 IO       *         PROGRAM FILE-NAME.                                                     IO           639     A     
 IO       *         ENTRY  (X6) = SOURCE-PROGRAM FILE NAME (0L FORMAT, 6 CHAR MAX)         IO           640     A     
 IO       *         EXIT   (X6) = OBJECT-PROGRAM FILE NAME (0L FORMAT).                    IO           641     A     
 IO       *         USES   A2  X1,X3  B7                                                   IO           642     A     
 IO                                                                                        IO           643     A     
 IO                                                                                        IO           644     A     
 IO        FFN      SUBR               ENTRY/EXIT...                                       IO           645     A     
 IO                 =X1    1                                                               IO           646     A     
 IO                 SA2    =40404040404040404040B                                          IO           647     A     
 IO                 IX1    X6-X1       LOCATE LOWEST BIT                                   IO           648     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1158    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 BX3    -X1+X6                                                          IO           649     A     
 IO                 SB7    60-CHAR+1                                                       IO           650     A     
 IO                 BX1    X2*X3       40 WHERE CHARACTERS WERE                            IO           651     A     
 IO                 SA2    FFNA                                                            IO           652     A     
 IO                 LX3    X1,B7                                                           IO           653     A     
 IO                 IX3    X1-X3                                                           IO           654     A     
 IO                 IX1    X1+X3       77 WHERE CHARACTERS WERE                            IO           655     A     
 IO                 BX2    -X1*X2                                                          IO           656     A     
 IO                 IX6    X6+X2       MERGE TRAILING "FILE" CHARACTERS                    IO           657     A     
 IO                 AX1    CHAR        EXTEND MASK 1 CHAR MORE THAN NR OF ORIGINAL         IO           658     A     
 IO                 BX6    X1*X6       DROP SUPERFLOUS "FILE"                              IO           659     A     
 IO                 EQ     EXIT.                                                           IO           660     A     
 IO                                                                                        IO           661     A     
 IO        FFNA     LIT    7L"FILE""FILE""FILE""FILE""FILE""FILE""FILE"                    IO           662     A     
 IO        FFT      SPACE  4,8                                                             IO           663     A     
 IO       **        FFT -  FIND FILE TAG.                                                  IO           664     A     
 IO       *                                                                                IO           665     A     
 IO       *         ENTRY  (X5) = FILENAME                                                 IO           666     A     
 IO       *                (B4) _ A CELL WHICH MAY BE CLOBBERED (USUALLY IN THE            IO           667     A     
 IO       *                            *SB*).                                              IO           668     A     
 IO       *         EXIT   (X5) = FILE TAG.                                                IO           669     A     
 IO       *                     WILL BE ZERO IF NO SUCH FILE.                              IO           670     A     
 IO       *         USES   A1,A2,A3,A5  X0,X6  B2,B7                                       IO           671          I
          -FCC0524
 IO       *         CALLS  FFN, NCS, TAGSEX, WARN.                                         IO           672          I
          -FCC0524
 IO       *         USES   A1,A2,A3,A6,A7  X0  B2,B7                                       FCC0524       18     A     
 IO       *         CALLS  FFN, NCS, TAGSEX, WARN, ADDREF, SCAN, ADSYM                     FCC0524       19     A     
 IO                                                                                        IO           673     A     
 IO                                                                                        IO           674     A     
 IO       *         PROCESS WHEN IN MAIN PROGRAM                                           IO           675     A     
 IO                                                                                        IO           676     A     
 IO        FFT5     SCAN   TS.SYM,SSY                                                      IO           677     A     
 IO                 MI     B7,FFT3     IF *NIT*, ERROR                                     IO           678     A     
 IO                 =X5    B7+C.VAR+1                                                      IO           679     A     
 IO        FFT9     LX5    P.ATAG                                                          IO           680     A     
 IO                                                                                        IO           681     A     
 IO       *         SET AVAR BIT FOR *WRITE* STATEMENT SO AS TO GET IOIND BIT SET          IO           682     A     
 IO                                                                                        IO           683     A     
 IO                 SA1    R.W                                                             IO           684     A     
 IO                 SX2    X1          1 IF *WRITE* OR *PUNCH*, 0 OTHERWISE                IO           685     A     
 IO                 LX2    P.AVAR                                                          IO           686     A     
 IO                 BX5    X5+X2                                                           IO           687     A     
 IO        FFT11    SA1    IOREF                                                           IO           688          I
          -FCC0524
 IO                 SA1    REFLAG                                                          FCC0524       20     A     
 IO                 NZ     X1,FFT      IF REFMAP ENTRY ALREADY, EXIT..                     FCC0524       21     A     
 IO                 SA1    IOREF                                                           FCC0524       22     A     
 IO                 ADDREF X5,X1                                                           IO           689     A     
 IO                                                                                        IO           690     A     
 IO        FFT      SUBR               ENTRY/EXIT...                                       IO           691     A     
 IO                 BX6    X5                                                              IO           692     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1159    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 RJ     FFN         CREATE APPROPRIATE NAME                             IO           693     A     
 IO                 SA2    MOD                                                             IO           694     A     
 IO                 SA6    FILL.       SAVE FILE NAME FOR POSSIBLE ERROR MSG               IO           695     A     
 IO                 =X7    0                                                               FCC0524       23     A     
 IO                 SA7    REFLAG      INITIALIZE REFMAP FLAG                              FCC0524       24     A     
 IO                 IFBIT  X2,PPRO,FFT5                                                    IO           696     A     
 IO                                                                                        IO           697     A     
 IO       *         PROCESS WHEN IN SUBROUTINE/FUNCTION                                    IO           698     A     
 IO                                                                                        IO           699     A     
 IO        FFT2     SA1    CO.EDT                                                          IO           700     A     
 IO                 MI     X1,FFT4     IF FILE LINKAGE SUPPRESSED                          IO           701     A     
 IO                 SA1    IOREF                                                           FCC0524       25     A     
 IO                 BX7    X1                                                              FCC0524       26     A     
 IO                 SA7    REFVAR                                                          FCC0524       27     A     
 IO                 SA6    B4                                                              IO           702     A     
 IO                 TAGSEX B4                                                              IO           703     A     
 IO                 =X7    1                                                               FCC0524       28     A     
 IO                 SA7    REFLAG      INDICATE REFMAP ENTRY                               FCC0524       29     A     
 IO                 BX5    X6                                                              IO           704     A     
 IO                 AX5    P.TAG                                                           IO           705     A     
 IO                 EQ     FFT9        EXIT..                                              IO           706     A     
 IO                                                                                        IO           707     A     
 IO        FFT3     WARN   E.UE2                                                           IO           708     A     
 IO                 EQ     FFT2                                                            IO           709     A     
 IO                                                                                        IO           710     A     
 IO                                                                                        IO           711     A     
 IO       **        PROCESS FILE TAG WHEN LINKAGE SUPPRESSED.                              IO           712     A     
 IO       *                (MAKE IT INDIRECT.)                                             IO           713     A     
 IO                                                                                        IO           714     A     
 IO        FFT4     BX6    X5                                                              IO           715          I
          -FCC0524
 IO        FFT4     SCAN   TS.SYM,SSY                                                      FCC0524       30     A     
 IO                 PL     B7,FFT45    IF ALREADY IN TABLE                                 FCC0524       31     A     
 IO                 =X7    M.NVAR                                                          FCC0524       32     A     
 IO                 ADSYM  A1          ADD TO SYMBOL TABLE                                 FCC0524       33     A     
 IO        FFT45    SA1    IOREF                                                           FCC0524       34     A     
 IO                 BX6    X5                                                              FCC0524       35     A     
 IO                 SA6    SAVNAM      SAVE FILE NAME                                      FCC0524       36     A     
 IO                 =X5    B7+C.VAR+1                                                      FCC0524       37     A     
 IO                 LX5    P.ATAG                                                          FCC0524       38     A     
 IO                 ADDREF X5,X1                                                           FCC0524       39     A     
 IO                 =X7    1                                                               FCC0524       40     A     
 IO                 SA7    REFLAG      INDICATE REFMAP ENTRY                               FCC0524       41     A     
 IO                 SA5    SAVNAM      RETRIEVE FILE NAME                                  FCC0524       42     A     
 IO                 BX6    X5                                                              FCC0524       43     A     
 IO                 MX7    0                                                               IO           716     A     
 IO                 RJ     NCS         ENTER FILE NAME IN CONSTANT TABLE                   IO           717     A     
 IO                 =X2    1                                                               IO           718     A     
 IO                 LX2    P.AFIT                                                          IO           719     A     
 IO                 BX5    X6+X2       SET VARIABLE FIT BIT                                IO           720     A     
 IO                 LX5    -P.ATAG                                                         IO           721     A     
 IO                 EQ     FFT9        EXIT..                                              IO           722     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1160    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO        ILI      SPACE  4,8                                                             IO           723          I
          -FCC0524
 IO                                                                                        FCC0524       44     A     
 IO        SAVNAM   BSS    1                                                               FCC0524       45     A     
 IO        REFLAG   DATA   0                                                               FCC0524       46     A     
 IO                 SPACE  4,8                                                             FCC0524       47     A     
 IO       **        ILI -  INITIAL LIST ITEMS.                                             IO           724     A     
 IO       *                                                                                IO           725     A     
 IO       *                ADDS HEADER LIST ITEMS TO I/O AP-LIST.                          IO           726     A     
 IO       *         IF ANY ITEM IS ZERO, IT AND SUBSEQUENT ITEMS ARE NOT ADDED.            IO           727     A     
 IO       *         EXCEPT FOR *ERR=,END=* ADDRESSES, IF DEFINED                           IO           728     A     
 IO       *                A.  (IO1ST)                                                     IO           729     A     
 IO       *                B.  (IO2ND)                                                     IO           730     A     
 IO       *                C.  (IO3RD)                                                     IO           731     A     
 IO       *         EXIT   (X1) = NUMBER OF ITEMS ADDED.                                   IO           732     A     
 IO       *         USES   A1,A2,A3,A6  X0  B2,B3,B7                                       IO           733     A     
 IO                                                                                        IO           734     A     
 IO                                                                                        IO           735     A     
 IO        ILI      SUBR               ENTRY/EXIT...                                       IO           736     A     
 IO                 SA2    IO1ST                                                           IO           737     A     
 IO                 BX6    X2                                                              IO           738     A     
 IO                 ADDWD  TP.APL      FIT DESIGNATOR TO AP-LIST                           IO           739     A     
 IO                                                                                        IO           740     A     
 IO                 SA2    IO2ND                                                           IO           741     A     
 IO                 SX1    B1                                                              IO           742     A     
 IO                 BX6    X2                                                              IO           743     A     
 IO                 ZR     X2,ILI.1    IF NO FORMAT (FIT ONLY)                             IO           744     A     
 IO                 ADDWD  TP.APL      FORMAT OR RECORD LENGTH TO AP-LIST                  IO           745     A     
 IO                                                                                        IO           746     A     
 IO                 SA2    IO3RD                                                           IO           747     A     
 IO                 =X1    2                                                               IO           748     A     
 IO                 BX6    X2                                                              IO           749     A     
 IO                 ZR     X2,ILI.1    IF NO COUNT (NOT EN/DE CODE)                        IO           750     A     
 IO                 ADDWD  TP.APL      COUNT DESIGNATOR TO AP-LIST                         IO           751     A     
 IO                 SA2    IO4TH                                                           IO           752     A     
 IO                 SX1    3                                                               IO           753     A     
 IO                 BX6    X2                                                              IO           754     A     
 IO                 ZR     X2,EXIT.    IF NOT BUFFER I/O                                   IO           755     A     
 IO                 ADDWD  TP.APL                                                          IO           756     A     
 IO                 SX1    4                                                               IO           757     A     
 IO                 EQ     EXIT.                                                           IO           758     A     
 IO        ILI.1    SA2    IODIR                                                           IO           759     A     
 IO                 NZ     X2,EXIT.    IF WRITE, DON/T PUT OUT END/ERR WORD                IO           760     A     
 IO                 SA2    RTERR                                                           IO           761          I
          -FEAT126C 
 IO                 =A3    A2-RTERR+RTEND                                                  IO           762          I
          -FEAT126C 
 IO                 MX0    L.ATAG                                                          IO           763          I
          -FEAT126C 
 IO                 AX2    P.TAG                                                           IO           764          I
          -FEAT126C 
 IO                 BX3    X0*X3       TAG OF *END=*                                       IO           765          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1161    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          -FEAT126C 
 IO                 MX0    -L.ASIZ                                                         IO           766          I
          -FEAT126C 
 IO                 BX2    -X0*X2      REDUCED TAG OF *ERR=*                               IO           767          I
          -FEAT126C 
 IO                 IX3    X2+X3                                                           IO           768          I
          -FEAT126C 
 IO                 SA3    IOENDT                                                          FEAT126C     142     A     
 IO                 =X6    X1+1                                                            IO           769     A     
 IO                 =X0    1                                                               IO           770          I
          -FCC0589
 IO                 SA6    A2          SAVE COUNT IN ERR ADDRESS                           IO           771          I
          -FEAT126C 
 IO                 LX3    P.ATAG                                                          FEAT126C     143     A     
 IO                 SA6    SAVNAM            SAVE COUNT IN TEMPORARY                       FEAT126C     144     A     
 IO                 LX0    P.ASTL                                                          IO           772          I
          -FCC0589
 IO                 BX6    X3+X0                                                           IO           773          I
          -FCC0589
 IO                 BX6    X3                                                              FCC0589       10     A     
 IO                 ADDWD  TP.APL      ADDRESS WORD TO APLIST                              IO           774     A     
 IO                 SA1    RTERR       RESTORE COUNT                                       IO           775          I
          -FEAT126C 
 IO                 SA1    SAVNAM            RESTORE COUNT                                 FEAT126C     145     A     
 IO                 EQ     EXIT.                                                           IO           776     A     
 IO        IOD      SPACE  4,45                                                            IO           777     A     
 IO       **        IOD -  MARK OCCURANCES OF IMPLIED DO-LOOPS IN I/O LIST.                IO           778     A     
 IO       *                                                                                IO           779     A     
 IO       *                BEING A SIMPLE SCHEME FOR DISCOVERING AND MARKING THE           IO           780     A     
 IO       *         EXTENT OF (ANY) IMPLIED-DOS IN AN I/O LIST.  A PSEUDO-STACK            IO           781     A     
 IO       *         OF PARENTHESES IS KEPT IN THE STRING ITSELF, BY STORING OVER           IO           782     A     
 IO       *         TOP OF EVERY LEFT PAREN THE ADDRESS OF THE PRECEDING ONE.              IO           783     A     
 IO       *         THIS STACK IS POPPED UP FOR EVERY RIGHT PAREN ENCOUNTERED BY           IO           784     A     
 IO       *         RESETTING THE STACK POINTER (B5) TO THE ADDRESS CONTAINED IN           IO           785     A     
 IO       *         THE LAST LPAREN, AND RESTORING THE LPAREN TO ITS ORIGINAL              IO           786     A     
 IO       *         VALUE (O.LP).  THUS, WHEN AN EQUAL SIGN IS ENCOUNTERED, THE            IO           787     A     
 IO       *         TOP OF THE STACK IS ITS OPENING DO-PAREN.  THAT CELL IS                IO           788     A     
 IO       *         MODIFIED SUCH THAT WHEN THE CLOSING RPAREN IS POPPED, THE              IO           789     A     
 IO       *         SUPPOSED RESTORATION WILL ACTUALLY TURN IT INTO A DO-BEGIN             IO           790     A     
 IO       *         MARK.  REDUNDANT (NON-DO-IMPLYING) PARENS ARE THEREFORE                IO           791     A     
 IO       *         EFFECTIVELY IGNORED.                                                   IO           792     A     
 IO       *                AS TRUE DO-IMPLIED PARENS ARE DISCOVERED, WE INSERT             IO           793     A     
 IO       *         *O.EOS* MARKS IN FRONT OF THEM SO THAT THE PARSER WILL LATER           IO           794     A     
 IO       *         STOP THERE AND ALLOW *LST* TO LOOK AT THE DO-BEGIN MARK.               IO           795     A     
 IO       *         THIS IS INHIBITED IF THE LPAREN IS NOT PRECEDED BY A COMMA,            IO           796     A     
 IO       *         SINCE WHATEVER ELSE IS THERE WILL BE HANDLED BY *LST*, AND NOT         IO           797     A     
 IO       *         THE PARSER.                                                            IO           798     A     
 IO       *                OF COURSE, ANY LEFT PAREN PRECEDED BY A VARIABLE IS A           IO           799     A     
 IO       *         SUBSCRIPT PAREN, AND IS SKIPPED OVER.                                  IO           800     A     
 IO       *                                                                                IO           801     A     
 IO       *         ENTRY  (B4) _ FWA I/O LIST.                                            IO           802     A     
 IO       *         EXIT   INTO *LST*.                                                     IO           803     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1162    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *                (B4) PRESERVED.                                                 IO           804     A     
 IO       *         USES   ALL BUT A0, B4.                                                 IO           805     A     
 IO       *         CALLS  SKS.                                                            IO           806     A     
 IO       *                                                                                IO           807     A     
 IO       *         REGISTER ASSIGNMENTS --                                                IO           808     A     
 IO       *                (A4) _ FETCH ADDRESS.                                           IO           809     A     
 IO       *                (B5) _ LAST LPAREN LINK.                                        IO           810     A     
 IO       *                (B6) = PAREN LEVEL.                                             IO           811     A     
 IO                                                                                        IO           812     A     
 IO                                                                                        IO           813     A     
 IO        IOD8     NZ     B6,E.IOD1   IF IMBALENCED PARENS.                               IO           814     A     
 IO                 BX6    O.EOS                                                           IO           815     A     
 IO                 SA6    A4          RESET THE EOS FOR PAR                               IO           816     A     
 IO                 =A6    A4+1        ADD AN EXTRA *EOS* FOR *LST*                        IO           817     A     
 IO                                                                                        IO           818     A     
 IO        SNAP     IFNE   TEST        DUMP *SB*                                           IO           819     A     
 IO                 SA1    CO.SNAP                                                         IO           820     A     
 IO                 LX1    1RI                                                             IO           821          I
          -FEAT126C 
 IO                 LX1    1RN         DO SNAP FLAG                                        FEAT126C     146     A     
 IO                 PL     X1,IODX     IF I/O SNAP NOT REQUESTED                           IO           822     A     
 IO                 RJ     =XSVR                                                           IO           823     A     
 IO                 PLINE  (=C=  (DUMP OF *SB* -- FROM I/O DO-MARKER.)=),1                 IO           824          I
          -FEAT126A 
 IO                 PLINE  (=C= (DUMP OF *SB* -- FROM I/O DO-MARKER.)=),4,1                FEAT126A    1008     A     
 IO                 RJ     =XSBL       LIST STRING BUFFER                                  IO           825     A     
 IO                 RJ     =XRSR                                                           IO           826     A     
 IO        SNAP     ENDIF                                                                  IO           827     A     
 IO                                                                                        IO           828     A     
 IO                 EQ     IODX        EXIT..                                              IO           829     A     
 IO                                                                                        IO           830     A     
 IO        IOD      BSS    0           ENTRY...                                            IO           831     A     
 IO                 SX6    O.SLP                                                           IO           832     A     
 IO                 =A6    B4-1        RESET LAST CHARACTER OF UNIT/FORMAT                 IO           833     A     
 IO                                    DESIGNATOR TO  PROTECT UNARY MINUS IN I/O           IO           834     A     
 IO                                    LIST                                                IO           835     A     
 IO                 SA4    B4          INITIALIZE FETCH                                    IO           836     A     
 IO                 =B6    0           PAREN LEVEL                                         IO           837     A     
 IO                 MX4    0                                                               IO           838     A     
 IO                 =B5    B4-1        FAKE UP A LINK TO LAST LPAREN                       IO           839     A     
 IO                                                                                        IO           840     A     
 IO        IOD2     BX3    X4                                                              IO           841     A     
 IO                 =A4    A4+1                                                            IO           842     A     
 IO                 =B7    X4-O.LP                                                         IO           843     A     
 IO                 SB2    X4-O.SLASH                                                      IO           844          I
          -FEAT126C 
 IO                 ZR     X4,IOD8     IF *EOS*                                            IO           845     A     
 IO                 ZR     B2,IOD3     IF */*                                              IO           846          I
          -FEAT126C 
 IO                 =B2    B7+O.(-O.)                                                      IO           847     A     
 IO                 ZR     B7,IOD6     IF *(*                                              IO           848     A     
 IO                 ZR     B2,IOD4     IF *)*                                              IO           849     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1163    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 NE     B2,B1,IOD2  IF NO *=*, LOOP..                                   IO           850     A     
 IO                                                                                        IO           851     A     
 IO       **        FOUND A *=*  --  MARK CLOSE OF IMPLIED DO.                             IO           852     A     
 IO                                                                                        IO           853     A     
 IO                 =X7    A4-1        POINTS TO DO-INDEX                                  IO           854     A     
 IO                 =X2    IO.DOB-O.LP                                                     IO           855     A     
 IO                 LX7    18                                                              IO           856     A     
 IO                 BX0    X7+X2                                                           IO           857     A     
 IO                 SA3    B5                                                              IO           858     A     
 IO                 LX0    18                                                              IO           859     A     
 IO                 IX7    X0+X3                                                           IO           860     A     
 IO                 =A3    B5-1                                                            IO           861     A     
 IO                 SA7    B5          MARK DO-BEGIN (OVER THE LPAREN)                     IO           862     A     
 IO       ,                            24/ LINK-TO-INDEX,  18/ IO.DOB,  18/ PREV           IO           863     A     
 IO                 SA2    A4-2                                                            IO           864     A     
 IO                 =B3    X3-O.COMMA                                                      IO           865          I
          -FCC0787
 IO                 SB7    X2-O.COMMA                                                      IO           866     A     
 IO                 NZ     B7,E.IOD2   IF IMPLIED DO NOT PRECEEDED BY *,*                  IO           867     A     
 IO                 NZ     B3,IOD2     IF NOT PRECEDED BY A COMMA                          IO           868          I
          -FCC0787
 IO                 BX6    O.EOS                                                           IO           869          I
          -FCC0787
 IO                 =A6    B5-1        *EOS* IN FRONT OF THIS DO-PAREN                     IO           870          I
          -FCC0787
 IO                 EQ     IOD2                                                            IO           871     A     
 IO        IOD3     =A1    A4-1                                                            IO           872          I
          -FEAT126C 
 IO                 =A2    A4+1                                                            IO           873          I
          -FEAT126C 
 IO                 SX1    X1-O.COMMA                                                      IO           874          I
          -FEAT126C 
 IO                 SA3    ="IOSEP"                                                        IO           875          I
          -FEAT126C 
 IO                 NZ     X1,IOD2     IF */* NOT PRECEEDED BY *,*                         IO           876          I
          -FEAT126C 
 IO                 SB7    X2                                                              IO           877          I
          -FEAT126C 
 IO                 LX7    X3,B7                                                           IO           878          I
          -FEAT126C 
 IO                 PL     X7,IOD2     IF */* NOT FOLLOWED BY LEGAL SEPARATOR              IO           879          I
          -FEAT126C 
 IO                 SX6    IO.WEOR                                                         IO           880          I
          -FEAT126C 
 IO                 BX7    0                                                               IO           881          I
          -FEAT126C 
 IO                 SA6    A4          INDICATE CONTROL CHARACTER FOR UNFORMATTED          IO           882          I
          -FEAT126C 
 IO                 =A7    A6-1        *EOS* IN FRONT OF CONTROL CHARACTER                 IO           883          I
          -FEAT126C 
 IO                 EQ     IOD2                                                            IO           884          I
          -FEAT126C 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1164    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                                                                                        IO           885     A     
 IO                                                                                        IO           886     A     
 IO       **        FOUND A *)*  --  POP UP PAREN STACK.                                   IO           887     A     
 IO                                                                                        IO           888     A     
 IO        IOD4     SA2    B5                                                              IO           889     A     
 IO                 =X6    1                                                               IO           890     A     
 IO                 =B6    B6-1                                                            IO           891     A     
 IO                 SB5    X2          LINK BACK ONE MORE PAREN LEVEL                      IO           892     A     
 IO                 AX2    18                                                              IO           893     A     
 IO                 BX7    X2                                                              IO           894          I
          -FCC0787
 IO                 LX6    18                                                              IO           895     A     
 IO                 MI     B6,E.IOD3   IF TOO MANY RPARENS (RETURN PSP)                    IO           896     A     
 IO                 SX7    A4                                                              FCC0787       33     A     
 IO                 LX7    36                                                              FCC0787       34     A     
 IO                 BX7    X2+X7       6/0,18/_),18/LINK TO INDEX,18/IO.DOB OR O.(         FCC0787       35     A     
 IO                 IX6    X4+X6       CONSTRUCT SPECIAL RP                                IO           897     A     
 IO                 SA7    A2          RESTORE LPAREN (OR DOB MARK)                        IO           898     A     
 IO                 SA6    A4          SPECIAL RP                                          IO           899     A     
 IO                 EQ     IOD2                                                            IO           900          I
          -FCC1769X 
 IO                 EQ     IOD5                                                            FCC1769X       9     A     
 IO                                                                                        IO           901     A     
 IO                                                                                        IO           902     A     
 IO       **        FOUND A *(*  --  PUSH DOWN PAREN STACK.                                IO           903     A     
 IO       *                HOWEVER, IF THIS IS A SUBSCRIPT PAREN (PRECEDING                IO           904     A     
 IO       *                ELEMENT IS *O.VAR*), SKIP OVER THE SUBSCRIPT AND ANY            IO           905     A     
 IO       *                PAIRED PARENS WITHIN IT, AND DO NOT MESS UP THE STACK.          IO           906     A     
 IO                                                                                        IO           907     A     
 IO        IOD6     =B2    X3-O.VAR                                                        IO           908     A     
 IO                 NZ     B2,IOD7     IF A FREE-STANDING PAREN                            IO           909     A     
 IO                 RJ     SKS         SKIP OVER THE SUBSCRIPT                             IO           910     A     
 IO                 EQ     IOD2                                                            IO           911          I
          -FCC1769X 
 IO        IOD5     SA2    A4+B1       A2 POINTS TO NEXT ELEMENT TO PROCESS                FCC1769X      10     A     
 IO                 SB2    X2-O.VAR                                                        FCC1769X      11     A     
 IO                 ZR     B2,IOD50    IF *)* FOLLOWED BY *O.VAR*                          FCC1769X      12     A     
 IO                 SB2    X2-O.CONS                                                       FCC1769X      13     A     
 IO                 ZR     B2,IOD50    IF *)* FOLLOWED BY *O.CONS*                         FCC1769X      14     A     
 IO                 SB2    X2-O.LP                                                         FCC1769X      15     A     
 IO                 ZR     B2,IOD50    IF *)* FOLLOWED BY *(*                              FCC1769X      16     A     
 IO                 EQ     IOD2                                                            FCC1769X      17     A     
 IO                                                                                        FCC1769X      18     A     
 IO        IOD50    SB4    A2                                                              FCC1769X      19     A     
 IO                 EQ     E.IOD4      EXPECTED COMMA - RETURNS TO MAIN(CPM)               FCC1769X      20     A     
 IO                                                                                        IO           912     A     
 IO        IOD7     =B6    B6+1        INCREMENT LEVEL COUNTER                             IO           913     A     
 IO                 LX4    18                                                              IO           914     A     
 IO                 SX0    B5                                                              IO           915     A     
 IO                 SB5    A4          LINK NOW TO THIS PAREN                              IO           916     A     
 IO                 IX7    X0+X4                                                           IO           917     A     
 IO                 SA7    A4          THIS PAREN LINKS BACK TO LAST ONE                   IO           918     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1165    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       ,                            42/ O.(,  18/ PREV                                  IO           919     A     
 IO                 EQ     IOD2                                                            IO           920     A     
 IO        IOJ      SPACE  4,8                                                             IO           921     A     
 IO       **        IOJ -  COMPILE JUMP TO I/O ROUTINE.                                    IO           922     A     
 IO       *                                                                                IO           923     A     
 IO       *         ENTRY  (X6) = TERMINATION CODE --                                      IO           924     A     
 IO       *                       -0 = INTERRUPTION OF LIST.  NOTHING COMPILED IF          IO           925     A     
 IO       *                            LIST IS EMPTY.                                      IO           926     A     
 IO       *                       +0 = TERMINAL CALL.  MUST BE COMPILED.                   IO           927     A     
 IO       *                (IOLEN)  = LENGTH OF CURRENT LIST.                              IO           928     A     
 IO       *                (ROUTNAM)= ADDRESS OF ROUTINE NAME.  IF THE INITIAL             IO           929     A     
 IO       *                            CALL HAS NOT YET BEEN COMPILED, IT IS               IO           930     A     
 IO       *                            COMPLEMENTED.                                       IO           931     A     
 IO       *         EXIT   (IOLEN) = ZERO, INDICATING EMPTY LIST.                          IO           932     A     
 IO       *                A *O=IOJ* TRIPLE HAS BEEN ADDED TO THE PARSED FILE.             IO           933     A     
 IO       *                     1OP --  APTAG / TRACEBACK                                  IO           934     A     
 IO       *                     2OP --  SUBROUTINE TAG                                     IO           935     A     
 IO       *         (CURST) RESET TO (TT=PAR),   TO PREVENT THINGS FROM GETTING            IO           936     A     
 IO       *                MOVED AROUND TO THE WRONG PLACE.                                IO           937     A     
 IO       *                                                                                IO           938     A     
 IO       *         USES   ALL BUT  A0  B4                                                 IO           939     A     
 IO       *         CALLS  ADDWD, CLOAD, CRJ, TAGSEX.                                      IO           940     A     
 IO                                                                                        IO           941     A     
 IO                                                                                        IO           942     A     
 IO        IOJ      SUBR               ENTRY/EXIT...                                       IO           943     A     
 IO                 SA5    IOLEN                                                           IO           944     A     
 IO                 BX4    X6          SAVE (X6)                                           IO           945     A     
 IO                 PL     X6,IOJ1     IF HARD END, MUST COMPILE                           IO           946     A     
 IO                 ZR     X5,EXIT.    IF EMPTY LIST, IGNORE..                             IO           947     A     
 IO        IOJ1     PL     X5,IOJ2     IF NOT VERY FIRST ITEM                              IO           948     A     
 IO                 RJ     ILI                                                             IO           949     A     
 IO                 BX5    X1                                                              IO           950     A     
 IO                 LX6    X4          RESTORE (X6)                                        IO           951     A     
 IO                                                                                        IO           952     A     
 IO        IOJ2     ADDWD  TP.APL      APPEND TERMINATOR TO AP-LIST BEING MADE.            IO           953     A     
 IO                 SA1    IOAPT                                                           IO           954     A     
 IO                 SA2    TG.APL                                                          IO           955     A     
 IO                 =B3    X5+1                                                            IO           956     A     
 IO                 SX6    X1-1                                                            IO           957     A     
 IO                 =X5    1           INDICATE NO TRACE-BACK                              IO           958     A     
 IO                 =X7    X2+1                                                            IO           959     A     
 IO                 SA6    A2          RESET (TG.APL) MOMENTARILY, TO FORCE *NAP*          IO           960     A     
 IO       ,                            TO GENERATE THE TAG WE WANT.                        IO           961     A     
 IO                 SA7    A1                                                              IO           962     A     
 IO                 RJ     NAP         FIND / ENTER AP-LIST                                IO           963     A     
 IO                 SA3    IONAM                                                           IO           964     A     
 IO                 BX4    X6          SAVE AP-LIST TAG                                    IO           965     A     
 IO                                                                                        IO           966     A     
 IO                 PL     X3,IOJ4     IF NOT INITIAL CALL                                 IO           967     A     
 IO                 BX3    -X3                                                             IO           968     A     
 IO                 =X6    X3+S=CONT   RESET ROUTINE NAME TO CONTINUATION TYPE             IO           969     A     
 IO                 BX5    0           FORCE TRACEBACK                                     IO           970     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1166    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA6    A3                                                              IO           971     A     
 IO                                                                                        IO           972     A     
 IO        IOJ4     SB5    B4          SAVE (B4)                                           IO           973     A     
 IO                 BX5    X5+X4       SAVE (APTAG, TRACE)                                 IO           974     A     
 IO                 TAGSEX X3+S.IOCAL                                                      IO           975     A     
 IO                 BX4    X6          SAVE ROUTINE TAG                                    IO           976     A     
 IO                 RJ     MXP                                                             IO           977     A     
 IO                                                                                        IO           978     A     
 IO                 ALLOC  TT.PAR,L.TURP                                                   IO           979     A     
 IO                 BX6    X4          (2OP) = SUBROUTINE TAG                              IO           980     A     
 IO                 LX7    X5          (1OP) = APTAG + TRACEFLAG                           IO           981     A     
 IO                 SA1    CALLIO                                                          IO           982     A     
 IO                 =A6    B7-L.TURP+OR.2OP                                                IO           983     A     
 IO                 =A7    A6-OR.2OP+OR.1OP                                                IO           984     A     
 IO                 LX6    X2                                                              IO           985     A     
 IO                 BX7    X1                                                              IO           986     A     
 IO                 SA6    CURST                                                           IO           987     A     
 IO                 =A7    A7-OR.1OP+OR.OPR                                                IO           988     A     
 IO                 SB4    B5          RESTORE (B5)                                        IO           989     A     
 IO                 BX7    0                                                               IO           990     A     
 IO                 SA1    IOAPT                                                           IO           991     A     
 IO                 BX6    X1          RESTORE (TG.APL), RESERVING NEXT ORDINAL            IO           992     A     
 IO                 SA7    A5          RESET LIST LENGTH TO EMPTY                          IO           993     A     
 IO                 SA6    TG.APL                                                          IO           994     A     
 IO                 SA7    TP=ILI      CLEAR LIST ITEM TABLE LENGTH                        IO           995          I
          -FCC0813
 IO                 SHRINK TP=ILI,X7                                                       FCC0813      167     A     
 IO                 EQ     EXIT.                                                           IO           996     A     
 IO        LST      SPACE  4,30                                                            IO           997     A     
 IO       **        LST -  PROCESS INPUT/OUTPUT LIST                                       IO           998     A     
 IO       *                                                                                IO           999     A     
 IO       *         CALLED BY ALL I/O STATEMENT PROCESSORS WHICH HAVE AN I/O LIST.         IO          1000     A     
 IO       *                                                                                IO          1001     A     
 IO       *         FORMAT/NAMELIST DESIGNATOR HAS ALREADY BEEN STORED IN *APLIST*         IO          1002     A     
 IO       *                                                                                IO          1003     A     
 IO       *         EACH ITEM TO BE TRANSMITTED IS THEN EXAMINED, AND LOOPS                IO          1004     A     
 IO       *                COLLAPSED (WHERE POSSIBLE), AND INTERMEDIATE CALLS              IO          1005     A     
 IO       *                COMPILED AS NECESSARY.  *HBL* AND *HCL* ARE USED TO             IO          1006     A     
 IO       *                COMPILE IMPLIED-DO INSTRUCTIONS.                                IO          1007     A     
 IO       *         PROCESSING IS SLIGHTLY DIFFERENT FOR *NAMELIST*, IN THAT THERE         IO          1008     A     
 IO       *                IS ACTUALLY NO LIST TO DO, SO WE COMPILE AN *RJ* AND            IO          1009     A     
 IO       *                QUIT.                                                           IO          1010     A     
 IO       *         SEE THE WRITE-UPS OF THE OBJECT LIBRARY ROUTINES FOR THE GORY          IO          1011     A     
 IO       *                DETAILS.                                                        IO          1012     A     
 IO       *                                                                                IO          1013     A     
 IO       *         ENTRY  *PFD* HAS INITIALIZED I/O PROCESSING.                           IO          1014     A     
 IO       *                (B4) _ SEPARATOR IN FRONT OF I/O LIST.                          IO          1015     A     
 IO       *                (B6) INDICATES I/O METHOD (SEE S.IOCALL).                       IO          1016     A     
 IO       *                                                                                IO          1017     A     
 IO       *         EXIT   TO MASTER LOOP.                                                 IO          1018     A     
 IO       *                                                                                IO          1019     A     
 IO       *         USES   ALL REGISTERS                                                   IO          1020     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1167    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *                *ROUTNAM* TO SAVE ROUTINE TAG                                   IO          1021     A     
 IO       *         CALLS  ADDWD, CAI, CLOAD, CRJ, IOD, IOJ, NAP, PAR, TAGSEX.             IO          1022     A     
 IO                                                                                        IO          1023     A     
 IO                                                                                        IO          1024     A     
 IO        LST      BSS    0           ENTRY...                                            IO          1025     A     
 IO                 SA2    B4                                                              FCC0848        4     A     
 IO                 ZR     X2,LST1     IF NO I/O LIST                                      FCC0848        5     A     
 IO                 =A1    B4+1                                                            IO          1026     A     
 IO                 =A2    A1+1                                                            FEAT155B      22     A     
 IO                 =A3    R.W                                                             FEAT155B      23     A     
 IO                 SX1    X1-O.COMMA                                                      IO          1027     A     
 IO                 NZ     X1,LST1     IF NOT EXTRANEOUS COMMA                             IO          1028     A     
 IO                 WARN   =XE.IO2                                                         IO          1029          I
          -FEAT155B 
 IO                 ZR     X3,LST12    NOT LIST DIRECTED IO                                FEAT155B      24     A     
 IO                 ZR     X2,E.IO27   IF LIST DIRECTED WITH *,* AND NO IOLIST.            FEAT155B      25     A     
 IO        LST12    WARN   =XE.IO2                                                         FEAT155B      26     A     
 IO                 =B4    B4+1                                                            IO          1030     A     
 IO                 EQ     LST         CONTINUE COMMA CHECK                                IO          1031     A     
 IO        LST1     SA1    IODIR                                                           IO          1032     A     
 IO                 NZ     X1,LST.S    OUTPUT DIRECTION                                    IO          1033     A     
 IO                 SA2    RTEND       IF INPUT, DEFAULT END= IF NONE GIVEN                IO          1034          I
          -FEAT126C 
 IO                 NZ     X2,LST.S                                                        IO          1035          I
          -FEAT126C 
 IO                 SA3    TG.APL                                                          IO          1036     A     
 IO                 BX6    X3                                                              IO          1037     A     
 IO                 SA6    IOENDT      USE THE APLIST TAG AND                              IO          1038     A     
 IO                 =X7    X6+1         GET A NEW APLIST TAG                               IO          1039     A     
 IO                 SA7    IOAPT                                                           IO          1040     A     
 IO                 LX6    P.ATAG                                                          IO          1041          I
          -FEAT126C 
 IO                 SA7    A3                                                              IO          1042     A     
 IO                 SA6    A2          STORE TAG FOR DEFAULT END=                          IO          1043          I
          -FEAT126C 
 IO                                                                                        IO          1044     A     
 IO        LST.S    BSS    0           **** ENTRY FOR ENCODE/DECODE ****                   IO          1045     A     
 IO                 SA1    IOARGT                                                          IO          1046     A     
 IO                 =A2    A1-IOARGT+IOREF                                                 IO          1047     A     
 IO                 BX6    X1          SET DIRECTION INTO ARG MODE                         IO          1048     A     
 IO                 LX7    X2                                                              IO          1049     A     
 IO                 SA3    B4                                                              IO          1050     A     
 IO                 SA6    ARGMODE                                                         IO          1051     A     
 IO                 SX6    B6                                                              IO          1052     A     
 IO                 SA7    REFVAR                                                          IO          1053     A     
 IO                 BX6    -X6         INDICATE NO I/O CALLS YET                           IO          1054     A     
 IO                 SA6    IONAM                                                           IO          1055     A     
 IO                 MI     B6,LST.N    IF NAMELIST OPERATION                               IO          1056     A     
 IO                 ZR     X3,LST.X    IF EMPTY LIST                                       IO          1057     A     
 IO                 EQ     IOD         MARK DO-LOOPS.                                      IO          1058     A     
 IO        IODX     BSS    0           ** RETURN FROM *IOD*                                IO          1059     A     
 IO                                                                                        FCC0787       36     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1168    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SX6    O.COMMA                                                         FCC0787       37     A     
 IO                 SA6    B4          SET OFF I/O LIST                                    FCC0787       38     A     
 IO        LST.GO    SPACE 2,25        (IN COL 12 TO HIDE FROM *DOCK*)                     IO          1060     A     
 IO       **                                                                               IO          1061     A     
 IO       *         LST.GO - PROCESS NEXT ELEMENT OF THE I/O LIST.                         IO          1062     A     
 IO       *                                                                                IO          1063     A     
 IO       *         ENTRY  (B4) _ CURRENT ELEMENT, MINUS ONE.                              IO          1064     A     
 IO       *                                                                                IO          1065     A     
 IO       *         FIRST, EXAMINE ELEMENT AND DETERMINE WHAT TO DO --                     IO          1066     A     
 IO       *                <EOS>  _ END-OF-STRING.  CONCLUDE I/O LIST AT "LST.X".          IO          1067     A     
 IO       *                IO.DOB _ DO-BEGIN.  GO TO "DOB" TO COMPILE DO INITIAL           IO          1068     A     
 IO       *                         TURPLES.  RETURN TO HERE FOR NEXT ELEMENT.             IO          1069     A     
 IO       *                IO.DOC _ DO-CLOSE.  GO TO "DOC" TO COMPILE IMPLIED-DO           IO          1070     A     
 IO       *                         CONCLUSION TURPLE.  RETURN TO HERE FOR ELEMENT         IO          1071     A     
 IO       *                         PAST THE DO.                                           IO          1072     A     
 IO       *                IO.NIL _ NOTHING.  SOMETHING HAS BEEN ERASED FROM THE           IO          1073     A     
 IO       *                         I/O LIST.  IGNORE IT.                                  IO          1074     A     
 IO       *                IO.BRK _ BREAK.  AN INTERMEDIATE INTERRUPTION OF THE            IO          1075     A     
 IO       *                         LIST IS NEEDED FOR SOME REASON.  CALL "IOJ"            IO          1076     A     
 IO       *                         FOR A SOFT TERMINATION (-0).                           IO          1077     A     
 IO       *                <ELSE> _ A SIMPLE (OR ERRONEOUS) LIST IS AT HAND.               IO          1078     A     
 IO       *                         PARSE IT.                                              IO          1079     A     
 IO                                                                                        IO          1080     A     
 IO                                                                                        IO          1081     A     
 IO        LST.GO   =A2    B4+1        FETCH ELEMENT                                       IO          1082     A     
 IO                 =B4    B4+1                                                            IO          1083     A     
 IO                 SB7    X2-IO.DOC                                                       IO          1084     A     
 IO                 ZR     X2,LST.X    IF END OF LIST                                      IO          1085     A     
 IO                 MI     B7,LST4     IF SIMPLE LIST                                      IO          1086     A     
 IO                 JP     B7+*+1                                                          IO          1087     A     
 IO                                                                                        IO          1088     A     
 IO                 LOC    IO.DOC                                                          IO          1089     A     
 IO                 EQ     DOC         DO-CONCLUSION                                       IO          1090     A     
 IO                 EQ     DOB         DO-BEGIN                                            IO          1091     A     
 IO                 EQ     LST.GO      NIL -- IGNORE                                       IO          1092     A     
 IO                 EQ     WEOR        WEOR -- WRITE EOR.                                  IO          1093          I
          -FEAT126C 
 IO                 BSS    0           BREAK -- FORCED                                     IO          1094          I
          -FEAT126C 
 IO                 LOC    *O                                                              IO          1095     A     
 IO                                                                                        IO          1096     A     
 IO                 BX6    -0                                                              IO          1097          I
          -FEAT126C 
 IO                 RJ     IOJ         LIST INTERRUPTION                                   IO          1098          I
          -FEAT126C 
 IO                 RJ     MXP         MARK EXTERNAL PROCESSING                            IO          1099          I
          -FEAT126C 
 IO                 EQ     LST.GO                                                          IO          1100          I
          -FEAT126C 
 IO                                                                                        IO          1101          I
          -FEAT126C 
 IO       **                                                                               IO          1102     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1169    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *         HANDLE SIMPLE, BREAK-FREE LIST.                                        IO          1103     A     
 IO       *         *PAR* DOES THE DIRTY WORK, CALLING ON THE COMMA CHECKER                IO          1104     A     
 IO       *         *C=IOL* AT STRATEGIC POINTS.  HE WILL RETURN TO US UPON                IO          1105     A     
 IO       *         FINDING AN *EOS*, WHICH MAY HAVE BEEN INVENTED BY SOME I/O             IO          1106     A     
 IO       *         LIST PROCESSING.  RETURN TO *LST.GO* TO CHECK.                         IO          1107     A     
 IO                                                                                        IO          1108     A     
 IO        LST4     SB7    X2-O.(                                                          IO          1109     A     
 IO                 NZ     B7,LST4A    IF NOT REDUNDANT LP                                 IO          1110          I
          -FEAT126C 
 IO                 EQ     LST.GO      CONTINUE PROCESSING I/O LIST                        IO          1111          I
          -FEAT126C 
 IO        LST4A    RJ     PAR         PARSE THE SUB-LIST                                  IO          1112          I
          -FEAT126C 
 IO                 ZR     B7,LST.GO   IF REDUNDANT *(*                                    FEAT126C     147          I
          -FCC0787
 IO                 RJ     PAR                                                             FEAT126C     148          I
          -FCC0787
 IO                 NZ     B7,LST4B    IF NOT *(*                                          FCC0787       39     A     
 IO                                                                                        FCC0787       40     A     
 IO       *         REMOVE ANY EXTRANEOUS *(*.  IF ELEMENT AFTER *)* IS NOT AN             FCC0787       41     A     
 IO       *         OPERATOR, THE PARENS MAY BE EXTRANEOUS.                                FCC0787       42     A     
 IO                                                                                        FCC0787       43     A     
 IO                 AX2    36                                                              FCC0787       44     A     
 IO                 =A3    X2+1        *SB* AFTER *)*                                      FCC0787       45     A     
 IO                 SX6    B4                                                              FCC0787       46     A     
 IO                 SA4    B4          POINT TO *(*                                        FCC0787       47     A     
 IO                 ZR     X3,LST4A    IF *EOS*                                            FCC0787       48     A     
 IO                 SB3    X3-O.COMMA                                                      FCC0787       49     A     
 IO                 SB2    X3-O.)                                                          FCC0787       50     A     
 IO                 ZR     B3,LST4A    IF *,*                                              FCC0787       51     A     
 IO                 NZ     B2,LST4B    IF NOT *)*                                          FCC0787       52     A     
 IO        LST4A    SA6    SCR         SAVE B4                                             FCC0787       53     A     
 IO                 RJ     CFC         CHECK FOR CPLX CONST                                FCC0787       54     A     
 IO                 SA2    SCR                                                             FCC0787       55     A     
 IO                 SB4    X2          RESTORE B4 AT *(*                                   FCC0787       56     A     
 IO                 NZ     X0,LST.GO   IF NOT CPLX CONST, REMOVE *(*                       FCC0787       57     A     
 IO        LST4B    RJ     PAR         IF NOT REDUNDANT PAREN                              FCC0787       58     A     
 IO                 =B4    B4+1                                                            IO          1113     A     
 IO                 EQ     LST.GO                                                          IO          1114     A     
 IO                                                                                        IO          1115     A     
 IO                                                                                        IO          1116     A     
 IO       **                                                                               IO          1117     A     
 IO       *         HERE TO WRAP-UP WHEN END OF LIST IS REALLY ENCOUNTERED --              IO          1118     A     
 IO       *         THE OUTCOME OF ALL THIS ACTIVITY HAS BEEN TO CREATE SOME               IO          1119     A     
 IO       *         AP-LISTS, AND A PARSED FILE.  SINCE WE CANNOT OPTIMIZE                 IO          1120     A     
 IO       *         ANYTHING ACROSS EXTERNAL CALLS, WE CALL *ARITH* NOW TO                 IO          1121     A     
 IO       *         GENERATE CODE FROM THE PARSED FILE.                                    IO          1122     A     
 IO       *                THEN, JUST IN CASE, INSURE THAT ALL IMPLIED DO-S WERE           IO          1123     A     
 IO       *         TERMINATED, AND THAT THE DO-TABLE IS THE SAME AS IT WAS WHEN           IO          1124     A     
 IO       *         THIS STATEMENT STARTED.                                                IO          1125     A     
 IO                                                                                        IO          1126     A     
 IO        LST.X    =A1    A2-2                                                            IO          1127     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1170    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA3    IOFMT                                                           IO          1128          I
          -FEAT155B 
 IO                 SA3    R.W                                                             FEAT155B      27     A     
 IO                 SX1    X1-O.COMMA                                                      IO          1129     A     
 IO                 SA4    IODIR                                                           IO          1130     A     
 IO                 NZ     X1,LST5     IF *EOS* NOT PRECEEDED BY *,*                       IO          1131     A     
 IO                 NZ     X3,E.IOL5   IF FORMATTED I/O                                    IO          1132          I
          -FEAT155B 
 IO                 ZR     X3,E.IOL5   IF NOT LIST DIRECTED IO.                            FEAT155B      28     A     
 IO                 ZR     X4,E.IOL5   IF INPUT DIRECTION                                  IO          1133     A     
 IO                 =X6    IO=CM+"AP=UIOC"S"ATYP"                                          IO          1134     A     
 IO                 ADDWD  TP.APL                                                          IO          1135     A     
 IO                 SA4    IOLEN       *,* TERMINATED IO, SO ADJUST AP-LIST LENG.          FEAT155B      29     A     
 IO                 =X6    X4+1                                                            FEAT155B      30     A     
 IO                 SA6    A4                                                              FEAT155B      31     A     
 IO                                                                                        IO          1136     A     
 IO        LST5     BX6    0                                                               IO          1137     A     
 IO                 RJ     IOJ         COMPILE TERMINAL CALL                               IO          1138     A     
 IO                                                                                        IO          1139     A     
 IO                 SA1    TG.APL                                                          IO          1140     A     
 IO                 SX6    X1-1        WE USED ONE TAG TOO MANY -- FIX IT                  IO          1141     A     
 IO                 SA6    A1                                                              IO          1142     A     
 IO                                                                                        IO          1143     A     
 IO                 SA4    IOENDT                                                          IO          1144     A     
 IO                 ZR     X4,LST7     IF NO GENERATED TAG FOR *END*                       IO          1145     A     
 IO                 SA1    TT.PAR                                                          IO          1146     A     
 IO                 SB3    O=BSS                                                           IO          1147     A     
 IO                 RJ     EMT         EMIT  (O=BSS, GENERATED TAG)                        IO          1148     A     
 IO        LST7     BSS    0                                                               IO          1149     A     
 IO                                                                                        IO          1150     A     
 IO                 RJ     CAI         COMPILE ARITHMETIC INSTRUCTIONS.                    IO          1151     A     
 IO                                                                                        IO          1152     A     
 IO                 SA3    IODOLEN                                                         IO          1153     A     
 IO                 SA2    TP=DO                                                           IO          1154     A     
 IO                 BX0    X2-X3       CHECK FOR UNPROCESSED DO-S                          IO          1155     A     
 IO                 LX6    X3                                                              IO          1156     A     
 IO                 ZR     X0,PSN      IF ALL DO-S BALANCED, EXIT..                        IO          1157     A     
 IO                 SA6    A2          RESET DO-TABLE TO SAME LENGTH AS IT WAS             IO          1158          I
          -FCC0813
 IO                 SHRINK TP=DO,X6    RESET DO TABLE                                      FCC0813      168     A     
 IO                 EQ     E.IO14                                                          IO          1159     A     
 IO                                                                                        IO          1160     A     
 IO                                                                                        IO          1161     A     
 IO       **                                                                               IO          1162     A     
 IO       *         HERE WE PROCESS *NAMELIST* CALLS --                                    IO          1163     A     
 IO       *                THERE IS NO LIST INVOLVED, AND A GROUP NAME MAY NOT BE          IO          1164     A     
 IO       *         SUBSCRIPTED, SO OUR TASK IS SIMPLE ENOUGH TO AVOID INVOKING            IO          1165     A     
 IO       *         THE PARSER.  WE EMIT CODE DIRECTLY TO LOAD THE AP-LIST ADDRESS         IO          1166     A     
 IO       *         AND RJT TO THE NAMELIST GUY.  ISSUE INFORMATIVE DIAGNOSTIC IF          IO          1167     A     
 IO       *         THERE IS A LIST PRESENT (MISTAKENLY).                                  IO          1168     A     
 IO                                                                                        IO          1169     A     
 IO        LST.N    ANSI   E.ION1                                                          IO          1170     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1171    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA1    IODIR                                                           IO          1171     A     
 IO                 SA5    B4                                                              IO          1172     A     
 IO                 AX2    X1,B1       DIRECTION / 2                                       IO          1173     A     
 IO                 SB3    S.IOCAL                                                         IO          1174     A     
 IO                 SB3    -B3                                                             IO          1175     A     
 IO                 SX6    B3+S.NLST                                                       IO          1176     A     
 IO                 IX6    X6+X2                                                           IO          1177     A     
 IO                 BX6    -X6         INDICATE NO I.O CALLS YET                           IO          1178     A     
 IO                 SA6    IONAM                                                           IO          1179     A     
 IO                 ZR     X5,LST5     IF *EOS* -- EXIT O.K.                               IO          1180     A     
 IO                 SB3    X5-O.)                                                          IO          1181     A     
 IO                 NZ     B3,LST.N1   IF NOT *RP*                                         IO          1182     A     
 IO                 SA5    B4+1                                                            IO          1183     A     
 IO                 ZR     X5,LST5     IF *EOS* -- EXIT OK                                 IO          1184     A     
 IO        LST.N1   EQ     E.ION                                                           IO          1185     A     
 IO        NDC      SPACE  4,12                                                            IO          1186     A     
 IO       **        NDC -  ENCODE / DECODE ARGUMENTS.                                      IO          1187     A     
 IO       *                                                                                IO          1188     A     
 IO       *         XXCODE (COUNT, FORMAT, STRING-ADDRESS) IOLIST                          IO          1189     A     
 IO       *                '                             '                                 IO          1190     A     
 IO       *         B4 _   ENTRY                         EXIT                              IO          1191     A     
 IO       *                                                                                IO          1192     A     
 IO       *         ENTRY  (B4) _ LPAREN IN STRING-BUFFER.                                 IO          1193     A     
 IO       *                (B6) = DIRECTION.                                               IO          1194     A     
 IO       *                                                                                IO          1195     A     
 IO       *         EXIT   TO *LST* WITH --                                                IO          1196     A     
 IO       *                (B4) _ RPAREN IN *SB*.                                          IO          1197     A     
 IO       *                (B6) = DIRECTION + *STRING* MODE.                               IO          1198     A     
 IO       *                                                                                IO          1199     A     
 IO       *         CALLS  PAR, PFD, PTN.                                                  IO          1200     A     
 IO                                                                                        IO          1201     A     
 IO                                                                                        IO          1202     A     
 IO        NDC      ANSI   E.ANS       NON-ANSI STATEMENT                                  IO          1203     A     
 IO                 SA7    IOREF                                                           IO          1204     A     
 IO                 SA1    =XSTATIC                                                        F162FTNA     804     A     
 IO                 BX6    X1+X4                                                           F162FTNA     805     A     
 IO                 SA6    A2          UPDATE STATIC LOAD INFORMATION                      F162FTNA     806          I
          -FCC2031
 IO                 SA6    A1          UPDATE STATIC LOAD INFORMATION                      FCC2031        7     A     
 IO                 RJ     PFD                                                             IO          1205     A     
 IO                                                                                        IO          1206     A     
 IO       **        ASSEMBLE RECORD LENGTH.                                                IO          1207     A     
 IO                                                                                        IO          1208     A     
 IO                 =A4    B4-1                                                            IO          1209     A     
 IO                 =B2    X4-O.LP                                                         IO          1210     A     
 IO                 ZR     X4,E.IOS6   IF PREMATURE EOS                                    IO          1211     A     
 IO                 ZR     B2,NDCE1    IF LEFT PAREN                                       IO          1212     A     
 IO                 =B4    B4-1                                                            IO          1213     A     
 IO                 EQ     E.IOS1      ERROR - END OF SCAN                                 IO          1214     A     
 IO        NDCE1    SA2    IOREF                                                           IO          1215     A     
 IO                 SA1    NDC=CNT                                                         IO          1216     A     
 IO                 LX2    P.AMR                                                           IO          1217     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1172    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 BX6    X1+X2                                                           IO          1218     A     
 IO                 SA6    ARGMODE                                                         IO          1219     A     
 IO                 SA4    B4                                                              IO          1220     A     
 IO                 SB2    X4-O.CONS                                                       IO          1221     A     
 IO                 =A3    A4+1                                                            IO          1222     A     
 IO                 EQ1    B2,NDCE2    IF VARIABLE                                         IO          1223     A     
 IO                 SX3    X3-O.PERIOD                                                     IO          1224     A     
 IO                 NZ     B2,E.IOS9   IF NOT CONS                                         IO          1225     A     
 IO                 ZR     X3,E.IOS9   IF FLOATING POINT                                   IO          1226     A     
 IO        NDCE2    RJ     PAR         PARSE RECORD COUNT                                  IO          1227     A     
 IO                 =A4    B4+1                                                            IO          1228     A     
 IO                 =B4    A4+1        POINT TO FORMAT                                     IO          1229     A     
 IO                 =B2    X4-O.COMMA                                                      IO          1230     A     
 IO                 ZR     X4,E.IOS6   IF PREMATURE EOS                                    IO          1231     A     
 IO                 NZ     B2,E.IOS2   IF NO COMMA                                         IO          1232     A     
 IO                                                                                        IO          1233     A     
 IO       **        PROCESS THE FORMAT DESIGNATOR.                                         IO          1234     A     
 IO       *                CALLS *PTN* TO DO THE DIRTY WORK.                               IO          1235     A     
 IO                                                                                        IO          1236     A     
 IO                 =B6    0                                                               IO          1237     A     
 IO                 SA4    B4                                                              IO          1238     A     
 IO                 SB2    X4-O.CONS                                                       IO          1239     A     
 IO                 EQ1    B2,NDCE3    IF VARIABLE                                         IO          1240     A     
 IO                 NZ     B2,E.IOS10  IF NOT CONSTANT                                     IO          1241     A     
 IO        NDCE3    RJ     PTN                                                             IO          1242          I
          -FCC0794
 IO        NDCE3    BX7    0                                                               FCC0794       10     A     
 IO                 SA7    ASSUNIT     SET RETURN CONDITION                                FCC0794       11     A     
 IO                 RJ     PTN         PROCESS FORMAT DESIGNATOR                           FCC0794       12     A     
 IO                 SA4    B4                                                              IO          1243     A     
 IO                 NZ     B6,E.IOS3   IF NAMELIST NAME                                    IO          1244     A     
 IO                 =B2    X4-O.COMMA                                                      IO          1245     A     
 IO                 ZR     X4,E.IOS6   IF PREMATURE EOS                                    IO          1246     A     
 IO                 NZ     B2,E.IOS4   IF NO COMMA                                         IO          1247     A     
 IO                                                                                        IO          1248     A     
 IO       **        DIGEST STRING ADDRESS.                                                 IO          1249     A     
 IO                                                                                        IO          1250     A     
 IO                 =X6    O.SLP                                                           IO          1251     A     
 IO                 SA2    IOREF                                                           IO          1252     A     
 IO                 SA1    NDC=STR                                                         IO          1253     A     
 IO                 LX2    P.AMR                                                           IO          1254     A     
 IO                 BX7    X1+X2                                                           IO          1255     A     
 IO                 SA7    ARGMODE                                                         IO          1256     A     
 IO                 SA6    B4                                                              IO          1257     A     
 IO                 =A4    B4+1                                                            IO          1258     A     
 IO                 =B2    X4-O.VAR                                                        IO          1259     A     
 IO                 NZ     B2,E.IOS7   IF NOT VARIABLE                                     IO          1260     A     
 IO                 RJ     PAR         PARSE STRING ADDRESS                                IO          1261     A     
 IO                 SA4    B4                                                              IO          1262     A     
 IO                 =B2    X4-O.RP                                                         IO          1263     A     
 IO                 NZ     B2,E.IOS5   IF NO RIGHT PAREN                                   IO          1264     A     
 IO                 SA3    IODIR                                                           IO          1265          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1173    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          -FCC2115
 IO                 =A4    B4+1                                                            FCC2115        4     A     
 IO                 =B2    X4-O.VAR                                                        FCC2115        5     A     
 IO                 ZR     B2,NDCE5    CHECK FOR VARIABLE                                  FCC2115        6     A     
 IO                 =B2    X4-O.LP                                                         FCC2115        7     A     
 IO                 ZR     B2,NDCE5    CHECK FOR LEFT PAREN                                FCC2115        8     A     
 IO                 =A4    A4+1                                                            FCC2115        9     A     
 IO                 =B2    X4-O.LP                                                         FCC2115       10     A     
 IO                 NZ     B2,NDCE5    IF NOT LEFT PAREN                                   FCC2115       11     A     
 IO                 =A4    A4-1                                                            FCC2115       12     A     
 IO                 MX0    L.CDPC                                                          FCC2115       13     A     
 IO                 SA1    X4+CHARMAP                                                      FCC2115       14     A     
 IO                 BX6    X0*X1                                                           FCC2115       15     A     
 IO                 SA6    FILL.       SET FILLER                                          FCC2115       16     A     
 IO                 FATAL  =XE.AT10                                                        FCC2115       17     A     
 IO                 =B4    B4+1                                                            FCC2115       18     A     
 IO        NDCE5    SA3    IODIR                                                           FCC2115       19     A     
 IO                 =B6    X3+S=STR                                                        IO          1266     A     
 IO                 EQ     LST.S       EXIT..  (TO PROCESS I/O LIST)                       IO          1267     A     
 IO        PFD      SPACE  4,30                                                            IO          1268     A     
 IO       **        PFD -  PROCESS FILE DESIGNATOR.                                        IO          1269     A     
 IO       *                                                                                IO          1270     A     
 IO       *                INITIALIZES I/O STATEMENT AP-LIST GENERATION.                   IO          1271     A     
 IO       *         INITIALIZES SOME PARSER CONTROL CELLS.                                 IO          1272     A     
 IO       *                                                                                IO          1273     A     
 IO       *         ENTRY  (X5) = FILE DESIGNATOR.                                         IO          1274     A     
 IO       *                (B6) = DIRECTION INDICATOR.                                     IO          1275     A     
 IO       *                                                                                IO          1276     A     
 IO       *         EXIT   FILE DESIGNATOR IS IN (IOFIT).                                  IO          1277     A     
 IO       *                (B4) ADVANCED BY ONE.                                           IO          1278     A     
 IO       *                (B6) PRESERVED.                                                 IO          1279     A     
 IO       *                FLAGS SET TO *NOT-NECESSARY* STATE --                           IO          1280     A     
 IO       *                            (IO2ND)                                             IO          1281     A     
 IO       *                            (IO3RD)                                             IO          1282     A     
 IO       *                            (IO4TH)                                             IO          1283     A     
 IO       *                            (RTEND)                                             IO          1284     A     
 IO       *                            (RTERR)                                             IO          1285     A     
 IO                                    (IOENDT)                                            IO          1286     A     
 IO       *                (IOLEN) = -1 TO INDICATE FIRST LIST ITEM.                       IO          1287     A     
 IO       *                (IODIR)   =  (B6)     FOR TESTING DIRECTION.                    IO          1288     A     
 IO       *                (IOAPT)   = AP-TAG FOR FIRST I/O AP-LIST.                       IO          1289     A     
 IO       *                (IOARGT)  =  A=DIR    FOR SETTING (ARGMODE) LATER.              IO          1290     A     
 IO       *                (IOREF)   =  CR.DIR   FOR X-REF.                                IO          1291     A     
 IO       *                (ARGMODE) =  **       NOT SET.                                  IO          1292     A     
 IO       *                (ARGCOMA) =  0        FOR ALL PARSING.                          IO          1293     A     
 IO       *                (IODOLEN) =  (TP=DO)  FOR LATER RESETTING.                      IO          1294     A     
 IO       *                (TG.APL)  = ADVANCED.                                           IO          1295     A     
 IO       *                                                                                IO          1296     A     
 IO       *         USES   ALL NOT EXPLICITLY MENTIONED ABOVE.                             IO          1297     A     
 IO                                                                                        IO          1298     A     
 IO                                                                                        IO          1299     A     
 IO        PFD      SUBR               ENTRY/EXIT...                                       IO          1300     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1174    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA1    IOARGM                                                          IO          1301     A     
 IO                 SA3    TP=DO                                                           IO          1302     A     
 IO                 SX7    B6                                                              IO          1303     A     
 IO                 NZ     B6,PFD2     IF OUTPUT DIRECTION                                 IO          1304     A     
 IO                 =A1    A1+1                                                            IO          1305     A     
 IO        PFD2     SA7    IODIR                                                           IO          1306     A     
 IO                 BX6    X1                                                              IO          1307     A     
 IO                 =B4    B4+1        ADVANCE (B4)                                        IO          1308     A     
 IO                 BX7    X5                                                              IO          1309     A     
 IO                 AX1    P.AMR                                                           IO          1310     A     
 IO                 =A7    A7-IODIR+IOFIT                                                  IO          1311     A     
 IO                 =A6    A7-IOFIT+IOARGT                                                 IO          1312     A     
 IO                 BX7    X1                                                              IO          1313     A     
 IO                 =A7    A6-IOARGT+IOREF                                                 IO          1314     A     
 IO                 MX7    -1                                                              IO          1315     A     
 IO                 =A7    A7-IOREF+IOLEN                                                  IO          1316     A     
 IO                 =X7                                                                    IO          1317     A     
 IO                 LX6    X3                                                              IO          1318     A     
 IO                 =A7    A7-IOLEN+IO2ND                                                  IO          1319     A     
 IO                 =A7    A7-IO2ND+IO3RD                                                  IO          1320     A     
 IO                 =A7    A7-IO3RD+IO4TH                                                  IO          1321     A     
 IO                 SA7    ARGCOMA                                                         IO          1322     A     
 IO                 SA6    IODOLEN                                                         IO          1323     A     
 IO                 SA1    TG.APL                                                          IO          1324     A     
 IO                 SA7    RTEND                                                           IO          1325          I
          -FEAT126C 
 IO                 =X6    X1+1        ADVANCE AP-TAG                                      IO          1326     A     
 IO                 =A7    A7-RTEND+RTERR                                                  IO          1327          I
          -FEAT126C 
 IO                 SA6    IOAPT                                                           IO          1328     A     
 IO                 =A7    A7-RTERR+IOENDT                                                 IO          1329          I
          -FEAT126C 
 IO                 SA7    IOENDT                                                          FEAT126C     149     A     
 IO                 SA6    A1                                                              IO          1330     A     
 IO                 EQ     EXIT.                                                           IO          1331     A     
 IO        PTN      SPACE  4,8                                                             IO          1332     A     
 IO       **        PTN -  PROCESS FORMAT/NAMELIST DESIGNATOR                              IO          1333     A     
 IO       *                                                                                IO          1334     A     
 IO       *         ENTRY  (B4) _ FORMAT DESIGNATOR.                                       IO          1335     A     
 IO       *         EXIT   (B4) _ NEXT CHAR AFTER FORMAT.                                  IO          1336     A     
 IO       *                (B6) RESET FOR *NAMELIST*, IF APPROPRIATE.                      IO          1337     A     
 IO       *                (IOFMT) = FORMAT DESIGNATOR AP-LIST ENTRY.                      IO          1338     A     
 IO       *         CALLS  ISN, PAR, SKS, TRV.                                             IO          1339     A     
 IO                                                                                        IO          1340     A     
 IO                                                                                        IO          1341     A     
 IO       **        HERE WHEN NAMELIST.                                                    IO          1342     A     
 IO                                                                                        IO          1343     A     
 IO        PTN8     SB6    B6+S=NLST   INDICATE NAMELIST OPERATION                         IO          1344     A     
 IO                 =X2    0                                                               IO          1345          I
          -FCC0589
 IO                                                                                        IO          1346     A     
 IO       **        HERE WITH --                                                           IO          1347     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1175    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *                (X6) = TAG FOR FORMAT DESIGNATOR.                               IO          1348     A     
 IO                                                                                        IO          1349     A     
 IO        PTN9     MX0    L.ATAG                                                          IO          1350     A     
 IO                 BX6    X0*X6                                                           IO          1351     A     
 IO                 SB4    B4+B1       POINT PAST FORMAT                                   IO          1352     A     
 IO                 BX6    X6+X2                                                           IO          1353          I
          -FCC0589
 IO                 SA6    IOFMT                                                           IO          1354     A     
 IO                                                                                        IO          1355     A     
 IO                                                                                        IO          1356     A     
 IO        PTN      SUBR               ENTRY/EXIT...                                       IO          1357     A     
 IO                 SA1    B4                                                              IO          1358     A     
 IO                 SA3    IOREF                                                           IO          1359     A     
 IO                 MX7    0                                                               IO          1360     A     
 IO                 BX6    X3                                                              IO          1361     A     
 IO                 SA7    R.W         INDICATE FORMATTED, NOT LIST-DIRECTED I/O.          IO          1362     A     
 IO                 =B2    M.SNFMT+M.SNREF                                                 IO          1363     A     
 IO                 SA6    REFNUM                                                          IO          1364     A     
 IO                 ZR     X1,E.IO7    IF *EOS* -- ERROR                                   IO          1365     A     
 IO       *         =X6    CR.FMT                                                          IO          1366     A     
 IO       *         =A6    A6-REFNUM+REFVAR                                                IO          1367     A     
 IO                 SX2    X1                                                              IO          1368     A     
 IO                 BX6    X1-X2                                                           IO          1369     A     
 IO                 SB7    X1-O.CONS                                                       IO          1370     A     
 IO                 NZ     B7,PTN2     IF NO NUMBER                                        IO          1371     A     
 IO                 RJ     ISN         IDENTIFY STATEMENT NUMBER                           IO          1372     A     
 IO                 =X2    1                                                               IO          1373          I
          -FCC0589
 IO                 LX2    P.AFMT                                                          IO          1374          I
          -FCC0589
 IO                 EQ     PTN9                                                            IO          1375     A     
 IO                                                                                        IO          1376     A     
 IO                                                                                        IO          1377     A     
 IO       **        HERE IF NON-NUMERIC.  WILL BE VARIABLE FORMAT OR NAMELIST.             IO          1378     A     
 IO                                                                                        IO          1379     A     
 IO        PTN2     BSS    0                                                               IO          1380     A     
 IO                 SB7    X1-O.VAR                                                        IO          1381     A     
 IO                 NZ     B7,E.IO7    IF NOT VARIABLE EITHER                              IO          1382     A     
 IO                 RJ     TRV         TRANSLATE VARIABLE                                  IO          1383     A     
 IO                 BX1    X6                                                              IO          1384          I
          -FCC0499
 IO        PTN3     BX1    X6                                                              FCC0499       44     A     
 IO                 IFBIT  X1,NLST,PTN8          IF *NAMELIST*                             IO          1385     A     
 IO                                                                                        IO          1386     A     
 IO                                                                                        IO          1387     A     
 IO       **        HERE WE WRESTLE WITH VARIABLE FORMATS.                                 IO          1388     A     
 IO       *                (IT IS NOT CLEAR WHO IS WINNING.)                               IO          1389     A     
 IO                                                                                        IO          1390     A     
 IO                 SX6    B6                                                              IO          1391     A     
 IO                 SA2    IOREF                                                           IO          1392     A     
 IO                 SA1    PTN=FMT                                                         IO          1393     A     
 IO                 LX2    P.AMR                                                           IO          1394     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1176    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 BX7    X1+X2                                                           IO          1395     A     
 IO                 SA7    ARGMODE                                                         IO          1396     A     
 IO                 SX7    O.SLP                                                           IO          1397     A     
 IO                 SA6    IONAM       SAVE (B6)                                           IO          1398     A     
 IO                 =A7    B4-1                                                            IO          1399     A     
 IO                 =B4    B4-1                                                            IO          1400     A     
 IO                 RJ     PAR         PARSE THE FORMAT DESIGNATOR                         IO          1401     A     
 IO                 SA2    IONAM                                                           IO          1402     A     
 IO                 =A1    B4+1                                                            IO          1403          I
          -FCCA540
 IO                 SB6    X2          RESTORE (B6)                                        IO          1404          I
          -FCCA540
 IO                 SB7    X1-O.COMMA                                                      IO          1405          I
          -FCCA540
 IO                 NZ     B7,EXIT.    IF NO COMMA, NOT *PRINT FMT,* STATEMENT             IO          1406          I
          -FCCA540
 IO                 SA1    B4                                                              IO          1407          I
          -FCCA540
 IO                 SB6    X2          RESTORE (B6)                                        FCCA540       13     A     
 IO                 SA1    B4                                                              FCCA540       14     A     
 IO                 ZR     X1,EXIT.     IF EOS                                             FCCA540       15     A     
 IO                 =A2    A1+1                                                            FCCA540       16     A     
 IO                 SB7    X2-O.COMMA                                                      FCCA540       17     A     
 IO                 NZ     B7,EXIT.    IF NO COMMA, NOT PRINT FMT, STATEMENT               FCCA540       18     A     
 IO                 SB7    X1-O.)                                                          IO          1408     A     
 IO                 ZR     B7,EXIT.    IF FORM *PRINT(U,FMT),*                             IO          1409          I
          -FCC0794
 IO                 =B4    B4+1                                                            IO          1410          I
          -FCC0794
 IO                 NZ     B7,PTN10    IF NOT FORM *PRINT(U,FMT)*                          FCC0794       13     A     
 IO                 SA1    ASSUNIT                                                         FCC0794       14     A     
 IO                 ZR     X1,PTN10    IF NOT FORM *PRINT(U,FMT)*                          FCC0794       15     A     
 IO                 EQ     EXIT.                                                           FCC0794       16     A     
 IO        PTN10    =B4    B4+1                                                            FCC0794       17     A     
 IO                 EQ     EXIT.                                                           IO          1411     A     
 IO                                                                                        FCC0794       18     A     
 IO        ASSUNIT  DATA   0           INDICATOR IF UNIT DESIGNATOR EXPLICIT               FCC0794       19     A     
 IO        RTC      SPACE  4,15                                                            IO          1412     A     
 IO       **        RTC -  ASSEMBLE AND CHECK TAPE NAME                                    IO          1413     A     
 IO       *         CALLED BY ALL I/O STATEMENTS WHICH CONTAIN AN EXPLICIT *TAPE           IO          1414     A     
 IO       *                NUMBER* DESIGNATOR.                                             IO          1415     A     
 IO       *         ENTRY  X6 = I/O DESIGNATOR, WHICH MAY BE EITHER A VARIABLE             IO          1416     A     
 IO       *                     NAME OR AN INTEGER CONSTANT FROM 1 TO 99 (ANY              IO          1417     A     
 IO       *                     LEADING ZERO WILL BE DISCARDED).                           IO          1418     A     
 IO       *                     IF THE DESIGNATOR IS AN INTEGER CONSTANT, THE FILE         IO          1419     A     
 IO       *                     NAME WILL BE *TAPE_<INTG-CONST>*.                          IO          1420     A     
 IO       *                 B4 _ A CELL (USUALLY IN *SB*) WHICH MAY BE CLOBBERED.          IO          1421     A     
 IO       *         EXIT   (X5) = 1/VAR, 11/0, 18/FITADR-TAG, 30/0                         IO          1422     A     
 IO       *         USES   A1,A2,A3,A5,A6  X0  B2,B7                                       IO          1423     A     
 IO       *         CALLS  FFT, TRV                                                        IO          1424     A     
 IO                                                                                        IO          1425     A     
 IO                                                                                        IO          1426     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1177    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO        RTC9     BX5    X6          CHECK THAT SECOND CHARACTER IS A DIGIT              IO          1427          I
          -FCC0970
 IO                 MX0    9*CHAR                                                          IO          1428          I
          -FCC0970
 IO                 LX5    2*CHAR                                                          IO          1429          I
          -FCC0970
 IO                 BX5    -X0*X5      ISOLATE SECOND CHARACTER                            IO          1430          I
          -FCC0970
 IO                 SB7    X5-1RZ-1                                                        IO          1431          I
          -FCC0970
 IO                 ZR     X5,RTC8     IF ONLY ONE CHARACTER                               IO          1432          I
          -FCC0970
 IO                 PL     B7,RTC8     IF NOT A LETTER                                     IO          1433          I
          -FCC0970
 IO                 LX5    8*CHAR                                                          IO          1434          I
          -FCC0970
 IO                 BX0    X6-X5       REMOVE LETTER                                       IO          1435          I
          -FCC0970
 IO                 BX6    X5                                                              IO          1436          I
          -FCC0970
 IO                 LX6    CHAR                                                            IO          1437          I
          -FCC0970
 IO                 SA6    FILL.                                                           IO          1438          I
          -FCC0970
 IO                 WARN   E.IO62      LETTER IGNORED                                      IO          1439          I
          -FCC0970
 IO                 BX6    X0          RESTORE X6                                          IO          1440          I
          -FCC0970
 IO                                                                                        IO          1441     A     
 IO        RTC8     SA5    =0LTAPE                                                         IO          1442     A     
 IO                 LX6    -4*CHAR                                                         IO          1443     A     
 IO                 BX5    X6+X5       ADD IN VARIABLE                                     IO          1444     A     
 IO                 RJ     FFT         FIND FILE TAG                                       IO          1445     A     
 IO                                                                                        IO          1446     A     
 IO        RTC      SUBR               ENTRY/EXIT...                                       IO          1447     A     
 IO                 ZR     X6,E.IO1    IF NO UNIT SPECIFIED - ERROR                        IO          1448     A     
 IO                 SX5    X6                                                              IO          1449     A     
 IO                 SB7    X6-O.VAR                                                        IO          1450     A     
 IO                 ZR     B7,RTC2     IF VARIABLE NAME                                    IO          1451     A     
 IO                 SB7    X6-O.CONS                                                       IO          1452     A     
 IO                 ZR     B7,RTC1     IF NUMBER                                           IO          1453     A     
 IO                 SA2    X6+=XCHARMAP                                                    IO          1454     A     
 IO                 MX0    L.CDPC                                                          IO          1455     A     
 IO                 BX6    X0*X2                                                           IO          1456     A     
 IO                 SA6    FILL.                                                           IO          1457     A     
 IO                 EQ     E.IO        IF NOT NUMBER OR VARIABLE                           IO          1458     A     
 IO        RTC1     BX6    X6-X5       DROP MAP SYMBOL                                     IO          1459     A     
 IO                 MX5    2*CHAR                                                          IO          1460     A     
 IO                 BX5    -X5*X6                                                          IO          1461     A     
 IO                 NZ     X5,E.IO3    IF MORE THAN TWO DIGIT NUMBER - ERROR               IO          1462     A     
 IO                 BX5    X6                                                              IO          1463     A     
 IO                 LX5    CHAR                                                            IO          1464     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1178    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SB7    X5-1R0                                                          IO          1465     A     
 IO                 NZ     B7,RTC9     IF NO LEADING ZERO                                  IO          1466          I
          -FCC0970
 IO                 NZ     B7,RTC8     IF NO LEADING ZERO                                  FCC0970        4     A     
 IO                 SA6    FILL.                                                           IO          1467     A     
 IO                 LX6    CHAR                                                            IO          1468     A     
 IO                 SX5    X5                                                              IO          1469     A     
 IO                 BX6    X6-X5       SUPPRESS LEADING ZERO                               IO          1470     A     
 IO                 BX5    X6                                                              IO          1471          I
          -FCC0970
 IO                 LX5    CHAR                                                            IO          1472          I
          -FCC0970
 IO                 SB7    X5-1RZ-1                                                        IO          1473          I
          -FCC0970
 IO                 SB2    1R0-1RZ-1                                                       IO          1474          I
          -FCC0970
 IO                 EQ     B7,B2,E.IO29      UNIT NUMBER ZERO                              IO          1475          I
          -FCC0970
 IO                 ZR     X5,E.IO29   IF UNIT ZERO                                        IO          1476          I
          -FCC0970
 IO                 NG     B7,E.IO     IF UNIT NUMBER 0A THRU 0Z                           IO          1477          I
          -FCC0970
 IO                 NZ     X6,RTC8     IF NOT UNIT ZERO                                    FCC0970        5     A     
 IO                 LX5    9*CHAR                                                          FCC0970        6     A     
 IO                 BX6    X5                                                              FCC0970        7     A     
 IO                 EQ     RTC8                                                            IO          1478     A     
 IO                                                                                        IO          1479     A     
 IO        RTC2     =B4    B4+1                                                            IO          1480     A     
 IO                 SA6    B4                                                              IO          1481     A     
 IO                 RJ     TRV         TRANSLATE NAME                                      IO          1482     A     
 IO                 =B4    B4-1                                                            IO          1483     A     
 IO       */KLUDGE FOR BUFFER                                                              IO          1484          I
          -FCC0499
 IO                 =X5    1                                                               IO          1485     A     
 IO                 =X2    "AP=SIZ"S"ATYP"                                                 IO          1486     A     
 IO                 LX5    P.AFIT                                                          IO          1487     A     
 IO                 SA3    R.W                                                             FCC2330        8     A     
 IO                 MX0    1                                                               FCC2330        9     A     
 IO                 BX0    X0-X3                                                           FCC2330       10     A     
 IO                 ZR     X0,RTC3     IF PRINT                                            FCC2330       11     A     
 IO                 =X3    1                                                               FCC1449        6     A     
 IO                 LX3    P.AVAR      SET AVAR BIT                                        FCC1449        7     A     
 IO                 BX5    X5+X3                                                           FCC1449        8     A     
 IO                 AX6    P.TAG                                                           IO          1488          I
          -FCC2330
 IO        RTC3     AX6    P.TAG                                                           FCC2330       12     A     
 IO                 SX3    X1-M.INT                                                        IO          1489     A     
 IO                 IX5    X5+X2                                                           IO          1490     A     
 IO                 LX6    P.ATAG                                                          IO          1491     A     
 IO                 BX5    X5+X6       INDICATE VARIABLE *FIT*                             IO          1492     A     
 IO                 CLAS=  X2,(NVAR,NLST,EXT,ENT)                                          IO          1493     A     
 IO                 BX6    X2*X6                                                           IO          1494     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1179    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 ZR     X3,RTC4     IF TYPE INTEGER                                     IO          1495     A     
 IO                 NZ     X1,E.UE     IF NOT UNIVERSAL TYPE                               IO          1496     A     
 IO        RTC4     NZ     X6,E.UE1    IF NOT SIMPLE LOCAL VARIABLE                        IO          1497     A     
 IO                 EQ     EXIT.                                                           IO          1498     A     
 IO        RTE      SPACE  4,8                                                             IO          1499          I
          -FEAT126C 
 IO       **        RTE -  ASSEMBLE EXCEPTION TRANSFERS IN READ STATEMENT.                 IO          1500          I
          -FEAT126C 
 IO       *                                                                                IO          1501          I
          -FEAT126C 
 IO       *         CHECKS FOR AND HANDLES THE SEQUENCES --                                IO          1502          I
          -FEAT126C 
 IO       *                                     (RTEND)  (RTERR)                           IO          1503          I
          -FEAT126C 
 IO       *                ,END=11       )         11       -                              IO          1504          I
          -FEAT126C 
 IO       *                ,END=22,ERR=33)         22       33                             IO          1505          I
          -FEAT126C 
 IO       *                ,ERR=44       )         -        44                             IO          1506          I
          -FEAT126C 
 IO       *                ,ERR=55,END=66)         66       55                             IO          1507          I
          -FEAT126C 
 IO       *         (B4) _ '             '                                                 IO          1508          I
          -FEAT126C 
 IO       *                ENTRY         EXIT                                              IO          1509          I
          -FEAT126C 
 IO       *                                                                                IO          1510          I
          -FEAT126C 
 IO       *         ENTRY  (B4) _ COMMA OR RPAREN IN FRONT OF POSSIBLE EXCEPTION           IO          1511          I
          -FEAT126C 
 IO       *                    TRANSFER INDICATORS.                                        IO          1512          I
          -FEAT126C 
 IO       *                EQUAL SIGN ALREADY FOUND.                                       IO          1513          I
          -FEAT126C 
 IO       *         EXIT   (B4) _ TERMINATING RIGHT PAREN.                                 IO          1514          I
          -FEAT126C 
 IO       *                (RTEND) = *END* STATEMENT NUMBER, IF PRESENT.                   IO          1515          I
          -FEAT126C 
 IO       *                (RTERR) = *ERR* STATEMENT NUMBER, IF PRESENT.                   IO          1516          I
          -FEAT126C 
 IO       *                                                                                IO          1517          I
          -FEAT126C 
 IO       *         THE INDICATORS MAY BE BOTH OR EITHER PRESENT OR ABSENT, AND            IO          1518          I
          -FEAT126C 
 IO       *         IN EITHER ORDER.                                                       IO          1519          I
          -FEAT126C 
 IO       *         USES   ALL BUT  A0,A5  B4,B6                                           IO          1520          I
          -FEAT126C 
 IO                                                                                        IO          1521          I
          -FEAT126C 
 IO                                                                                        IO          1522          I
          -FEAT126C 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1180    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO        RTE      SUBR               ENTRY/EXIT...                                       IO          1523          I
          -FEAT126C 
 IO        RTE1     SA4    B4                                                              IO          1524          I
          -FEAT126C 
 IO                 SA2    RTEA        *END*                                               IO          1525          I
          -FEAT126C 
 IO                 SB7    X4-O.)                                                          IO          1526          I
          -FEAT126C 
 IO                 ZR     B7,EXIT.    IF RPAREN,EXIT                                      IO          1527          I
          -FEAT126C 
 IO                 SB7    X4-O.COMMA                                                      IO          1528          I
          -FEAT126C 
 IO                 NZ     B7,EXIT.    IF NOT COMMA, EXIT (ERROR GEN AT WOT10)             IO          1529          I
          -FEAT126C 
 IO                 =A4    B4+1        GET KEYWORD                                         IO          1530          I
          -FEAT126C 
 IO                 =B4    B4+1                                                            IO          1531          I
          -FEAT126C 
 IO                 =A3    A2+1        *ERR*                                               IO          1532          I
          -FEAT126C 
 IO                 =A1    B4+1        CHECK AHEAD FOR *=*                                 IO          1533          I
          -FEAT126C 
 IO                 IX6    X4-X2                                                           IO          1534          I
          -FEAT126C 
 IO                 SB7    X1-O.=                                                          IO          1535          I
          -FEAT126C 
 IO                 NZ     B7,EXIT.    BAD SYNTAX, TRY TO RECOVER LATER                    IO          1536          I
          -FEAT126C 
 IO                 ZR     X6,RTE3     IF *END=*                                           IO          1537          I
          -FEAT126C 
 IO                 IX3    X4-X3                                                           IO          1538          I
          -FEAT126C 
 IO                 ZR     X3,RTE2     IF *ERR=*                                           IO          1539          I
          -FEAT126C 
 IO                 WARN   E.IO21                                                          IO          1540          I
          -FEAT126C 
 IO                 EQ     EXIT.                                                           IO          1541          I
          -FEAT126C 
 IO        RTE2     =A4    A1+1        *ERR=*                                              IO          1542          I
          -FEAT126C 
 IO                 =B4    A4+1                                                            IO          1543          I
          -FEAT126C 
 IO                 BX6    X4                                                              IO          1544          I
          -FEAT126C 
 IO                 =B2    M.SNREF+M.SNLAB                                                 IO          1545          I
          -FEAT126C 
 IO                 RJ     ISN         IDENTIFY STATEMENT NUMBER                           IO          1546          I
          -FEAT126C 
 IO                 SA4    RTERR                                                           IO          1547          I
          -FEAT126C 
 IO                 =A6    A4                                                              IO          1548          I
          -FEAT126C 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1181    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 ZR     X4,RTE1     LOOK FOR NEXT                                       IO          1549          I
          -FEAT126C 
 IO                 WARN   E.IO22                                                          IO          1550          I
          -FEAT126C 
 IO                 EQ     RTE1                                                            IO          1551          I
          -FEAT126C 
 IO        RTE3     =A4    A1+1        *END=*                                              IO          1552          I
          -FEAT126C 
 IO                 =B4    A4+1                                                            IO          1553          I
          -FEAT126C 
 IO                 BX6    X4                                                              IO          1554          I
          -FEAT126C 
 IO                 =B2    M.SNREF+M.SNLAB                                                 IO          1555          I
          -FEAT126C 
 IO                 RJ     ISN         IDENTIFY STATEMENT NUMBER                           IO          1556          I
          -FEAT126C 
 IO                 SA4    RTEND                                                           IO          1557          I
          -FEAT126C 
 IO                 =A6    A4                                                              IO          1558          I
          -FEAT126C 
 IO                 ZR     X4,RTE1     LOOK FOR NEXT                                       IO          1559          I
          -FEAT126C 
 IO                 WARN   E.IO23                                                          IO          1560          I
          -FEAT126C 
 IO                 EQ     RTE1                                                            IO          1561          I
          -FEAT126C 
 IO                                                                                        IO          1562          I
          -FEAT126C 
 IO        RTEA     CON    0LEND+O.VAR                                                     IO          1563          I
          -FEAT126C 
 IO                 CON    0LERR+O.VAR                                                     IO          1564          I
          -FEAT126C 
 IO        SKS      SPACE  4,8                                                             IO          1565     A     
 IO       **        SKS -  SKIP OVER SUBSCRIPT.                                            IO          1566     A     
 IO       *         ENTRY  (A4) _ *(*.                                                     IO          1567     A     
 IO       *         EXIT   (A4) _ *)*.                                                     IO          1568     A     
 IO       *         USES   B2,B3,B7                                                        IO          1569     A     
 IO                                                                                        IO          1570     A     
 IO                                                                                        IO          1571     A     
 IO        SKS2     SB3    B3+1                                                            IO          1572     A     
 IO                                                                                        IO          1573     A     
 IO        SKS4     SA4    A4+B1                                                           IO          1574     A     
 IO                 SB7    X4-O.LP                                                         IO          1575     A     
 IO                 ZR     X4,E.IO11   IF *EOS*, ERR..                                     IO          1576     A     
 IO                 ZR     B7,SKS2     IF LPAREN                                           IO          1577     A     
 IO                 IFNE   O.RP-O.LP,1,1                                                   IO          1578     A     
 IO                 ERR    (SKS) --  O.LP + 1  .NE.  O.RP                                  IO          1579     A     
 IO                 NE     B7,B1,SKS4  IF NO RPAREN, LOOP..                                IO          1580     A     
 IO                 SB3    B3-B1       DECREMENT PAREN LEVEL COUNT                         IO          1581     A     
 IO                 GT     B3,SKS4     IF A LOWER LEVEL                                    IO          1582     A     
 IO                 MI     B3,E.IO12   ERR.. IF TOO MANY LEFT PARENS.                      IO          1583     A     
 IO                                                                                        IO          1584     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1182    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO        SKS      SUBR               ENTRY/EXIT...                                       IO          1585     A     
 IO                 SB3    B1                                                              IO          1586     A     
 IO                 EQ     SKS4                                                            IO          1587     A     
 IO        WEOR     SPACE  4                                                               IO          1588          I
          -FEAT126C 
 IO       **        WEOR - PROCESS */* CONTROL CHARACTER IN I/O LIST.                      IO          1589          I
          -FEAT126C 
 IO       *                                                                                IO          1590          I
          -FEAT126C 
 IO       *                MAKES AP-LIST ENTRY FOR */* IF UNFORMATTED OUTPUT.              IO          1591          I
          -FEAT126C 
 IO       *                                                                                IO          1592          I
          -FEAT126C 
 IO       *         ENTRY  (B4) _ IO.WEOR MARK.                                            IO          1593          I
          -FEAT126C 
 IO       *                                                                                IO          1594          I
          -FEAT126C 
 IO       *         EXIT   TO *LST.GO*.                                                    IO          1595          I
          -FEAT126C 
 IO       *                (B4) _ CHARACTER FOLLOWING IO.WEOR.                             IO          1596          I
          -FEAT126C 
 IO       *                                                                                IO          1597          I
          -FEAT126C 
 IO       *         USES   A1,A2,A3,A6.                                                    IO          1598          I
          -FEAT126C 
 IO       *                                                                                IO          1599          I
          -FEAT126C 
 IO       *         CALLS  ADDWD,ILI.                                                      IO          1600          I
          -FEAT126C 
 IO                                                                                        IO          1601          I
          -FEAT126C 
 IO                                                                                        IO          1602          I
          -FEAT126C 
 IO        WEOR     BSS    0                                                               IO          1603          I
          -FEAT126C 
 IO                 SA1    IOLEN                                                           IO          1604          I
          -FEAT126C 
 IO                 PL     X1,WEO1     IF NOT INITIAL LIST ITEM                            IO          1605          I
          -FEAT126C 
 IO                 RJ     ILI          ADD INITIAL LIST ITEMS                             IO          1606          I
          -FEAT126C 
 IO        WEO1     =X6    X1+1         COUNT ITEM                                         IO          1607          I
          -FEAT126C 
 IO                 =B4    B4+1                                                            IO          1608          I
          -FEAT126C 
 IO                 SA2    IOFMT                                                           IO          1609          I
          -FEAT126C 
 IO                 SA3    IODIR                                                           IO          1610          I
          -FEAT126C 
 IO                 SA6    IOLEN                                                           IO          1611          I
          -FEAT126C 
 IO                 NZ     X2,WEO5     IF FORMATTED I/O                                    IO          1612          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1183    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          -FEAT126C 
 IO                 ZR     X3,WEO5     IF INPUT DIRECTION                                  IO          1613          I
          -FEAT126C 
 IO                 =X6    IO=WEOR+"AP=UIOC"S"ATYP"                                        IO          1614          I
          -FEAT126C 
 IO                 ADDWD  TP.APL                                                          IO          1615          I
          -FEAT126C 
 IO                 EQ     LST.GO                                                          IO          1616          I
          -FEAT126C 
 IO                                                                                        IO          1617          I
          -FEAT126C 
 IO        WEO5     FATAL  E.IOL4                                                          IO          1618          I
          -FEAT126C 
 IO                 EQ     LST.GO                                                          IO          1619          I
          -FEAT126C 
 IO        C=IO     EJECT  4,8                                                             IO          1620     A     
 IO       **        AAE -  ANALYZE AP-LIST ENTRY.                                          IO          1621     A     
 IO       *                                                                                IO          1622     A     
 IO       *         ENTRY  (X3, X4, X5) AS IN *POP*.                                       IO          1623     A     
 IO       *                                                                                IO          1624     A     
 IO       *         EXIT   (X6) = (ATAG) AND (ABIAS) FIELDS FOR AP-LIST.                   IO          1625     A     
 IO       *                (X5) = AS NECESSARY                                             IO          1626     A     
 IO       *                (X4) = OPERAND FROM PARSED FILE.                                IO          1627     A     
 IO       *                (X1) = MODE OF OPERAND.                                         IO          1628     A     
 IO       *                (B7) = FLAG FOR TYPE OF OPERAND, AS BELOW...                    IO          1629     A     
 IO       *                                                                                IO          1630     A     
 IO       *         IF OPERAND IS AN *ADDRESS* VALUE --                                    IO          1631     A     
 IO       *                (B7) = -1.                                                      IO          1632     A     
 IO       *                (X5) = (IOAPT) + (IOLEN)                                        IO          1633     A     
 IO       *                       TAG OF CURRENT AP-LIST ENTRY.                            IO          1634     A     
 IO       *                (X6) = *PLUG* MARK.                                             IO          1635     A     
 IO       *                CALLER SHOULD EMIT A STORE INTO THE AP-LIST.                    IO          1636     A     
 IO       *                                                                                IO          1637     A     
 IO       *         IF OPERAND IS AN *INTERMEDIATE* --                                     IO          1638     A     
 IO       *                (B7) = 0.                                                       IO          1639     A     
 IO       *                (X5) = TEMP TAG + MODE                                          IO          1640     A     
 IO       *                (X6) = TEMP TAG.                                                IO          1641     A     
 IO       *                (TG.TEM) ADVANCED BY 1.                                         IO          1642     A     
 IO       *                CALLER SHOULD EMIT A STORE INTO THE TEMP.                       IO          1643     A     
 IO       *                                                                                IO          1644     A     
 IO       *         IF OPERAND IS A NORMAL TAG --                                          IO          1645     A     
 IO       *                (B7) = TAG.                                                     IO          1646     A     
 IO       *                (X5) = 0                                                        IO          1647     A     
 IO                                                                                        IO          1648     A     
 IO                                                                                        IO          1649     A     
 IO       **        CONSTRUCT AP-LIST ENTRY FOR A NORMAL TAG.                              IO          1650     A     
 IO                                                                                        IO          1651     A     
 IO        AAE4     MX0    L.2TAG+L.2BIAS                                                  IO          1652          I
          -FCC1134
 IO                 SBIT   X5,2TAG/INTR+1                                                  IO          1653          I
          -FCC1134
 IO        AAE4     IFBIT  X5,ARE/INTR,AAE5  IF ENTIRE ARRAY REF.                          FCC1134       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1184    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 BX6    X5                                                              FCC1134       16     A     
 IO                 IFBIT  X6,ADDR/ARE,AAE1  IF ADDRESS SET                                FCC1134       17     A     
 IO                                                                                        FCC1134       18     A     
 IO        AAE5     SBIT   X5,2TAG/ARE+1                                                   FCC1134       19     A     
 IO                 MX0    L.2TAG+L.2BIAS                                                  FCC1134       20     A     
 IO                 SB7    X5                                                              IO          1654     A     
 IO                 BX6    X0*X4       ISOLATE TAG / BIAS                                  IO          1655     A     
 IO                 BX5    0           INDICATE NO (OR.2OP)                                IO          1656     A     
 IO                                                                                        IO          1657     A     
 IO        AAE      SUBR               ENTRY/EXIT...                                       IO          1658     A     
 IO                 RJ     ESC         EXPAND (POSSIBLE) SHORT CONSTANT                    IO          1659     A     
 IO                 MX2    -L.MODE                                                         IO          1660     A     
 IO                 BX4    X5                                                              IO          1661     A     
 IO                 SBIT   X5,INTR                                                         IO          1662     A     
 IO                 BX1    -X2*X4                                                          IO          1663     A     
 IO                 PL     X5,AAE4     IF NOT INTERMEDIATE RESULT                          IO          1664     A     
 IO                 SBIT   X5,ARY/INTR                                                     IO          1665     A     
 IO                 MI     X5,AAE2     IF ADDRESS VALUE (PLUG)                             IO          1666     A     
 IO                                                                                        IO          1667     A     
 IO                                                                                        IO          1668     A     
 IO       **        CONSTRUCT APLIST FOR EXPRESSION RESULT --                              IO          1669     A     
 IO       *         EMIT   (O=STORE, OPERAND, TEMP-TAG)                                    IO          1670     A     
 IO       *                (ATAG)  = TEMP TAG.                                             IO          1671     A     
 IO                                                                                        IO          1672     A     
 IO                 BX6    X1                                                              IO          1673          I
          -FCC1134
 IO        AAE1     BX6    X1                                                              FCC1134       21     A     
 IO                 SA2    TG.TEM                                                          IO          1674     A     
 IO                 =B7    0                                                               IO          1675     A     
 IO                 AX6    P.LONG                                                          IO          1676     A     
 IO                 =X3    X2+1                                                            IO          1677     A     
 IO                 IX7    X3+X6       ADVANCE (TG.TEM) TWICE IF DOUBLE-WORD ITEM          IO          1678     A     
 IO                 LX2    P.ATAG                                                          IO          1679     A     
 IO                 SA7    A2                                                              IO          1680     A     
 IO                 BX6    X2                                                              IO          1681     A     
 IO                 SBIT   X2,2TAG/ATAG                                                    IO          1682     A     
 IO                 IX5    X2+X1                                                           IO          1683     A     
 IO                 EQ     EXIT.                                                           IO          1684     A     
 IO                                                                                        IO          1685     A     
 IO                                                                                        IO          1686     A     
 IO       **        CONSTRUCT AP-LIST ENTRY FOR A *PLUG* (OBJECT-TIME ADDRESS).            IO          1687     A     
 IO       *         EMIT   (O=STORE, OPERAND, APTAG+BIAS)                                  IO          1688     A     
 IO       *                APTAG = (IOAPT)                                                 IO          1689     A     
 IO       *                BIAS  = (IOLEN)                                                 IO          1690     A     
 IO                                                                                        IO          1691     A     
 IO        AAE2     SA2    IOAPT                                                           IO          1692          I
          -FCC1134
 IO        AAE2     IFBIT  X5,LCF/ARY,AAE1  IF LOCF EXPRESSION                             FCC1134       22     A     
 IO                                                                                        FCC1134       23     A     
 IO                 SA2    IOAPT                                                           FCC1134       24     A     
 IO                 BX6    X4                                                              IO          1693     A     
 IO                 =B7    -1          INDICATE PLUG                                       IO          1694     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1185    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 AX6    P.2TAG                                                          IO          1695     A     
 IO                 =X0    M.2PRO                                                          IO          1696     A     
 IO                 LX2    P.2TAG                                                          IO          1697     A     
 IO                 SB2    X6                                                              IO          1698     A     
 IO                 SA3    TT.PAR                                                          IO          1699     A     
 IO                 MX7    L.ATAG+L.ABIAS                                                  IO          1700     A     
 IO                 SB2    X3+B2                                                           IO          1701     A     
 IO                 BX5    X2+X0                                                           IO          1702     A     
 IO                 =A3    B2+OR.1OP   ARRAY-TAG                                           IO          1703     A     
 IO                 BX6    X7*X3                                                           IO          1704     A     
 IO                 EQ     EXIT.                                                           IO          1705     A     
 IO        A=BMOD   SPACE  4,8                                                             IO          1706     A     
 IO       **        A=BMOD - CHECK BUFFER IN/OUT MODE DESIGNATOR.                          IO          1707     A     
 IO                                                                                        IO          1708     A     
 IO                                                                                        IO          1709     A     
 IO        A=BMOD   BSS    0           ENTRY...                                            IO          1710     A     
 IO                 MX0    -L.MODE                                                         IO          1711     A     
 IO                 BX1    -X0*X5                                                          IO          1712     A     
 IO                 SX0    X1-M.INT                                                        IO          1713     A     
 IO                 NZ     X0,=XE.IOB2 IF NOT INTEGER                                      IO          1714     A     
 IO                 LX0    X5                                                              IO          1715     A     
 IO                 IFBIT  X0,INTR,=XE.IOB2  IF INTERMEDIATE                               IO          1716     A     
 IO                 IFBIT  X0,-SHORT/INTR,A=BMOD1  IF NOT SHORT CONSTANT                   IO          1717     A     
 IO                 BX0    X5                                                              IO          1718     A     
 IO                 AX0    P.SHC                                                           IO          1719     A     
 IO                 ZR     X0,A=BMOD1  IF CONSTANT *0*                                     IO          1720     A     
 IO                 =X0    X0-1                                                            IO          1721     A     
 IO                 ZR     X0,A=BMOD1  IF CONSTANT *1*                                     IO          1722     A     
 IO                 EQ     =XE.IOB8                                                        IO          1723     A     
 IO        A=BMOD1  RJ     AAE         ANALYZE AP-LIST ENTRY                               IO          1724     A     
 IO                 =X1    M.AVAR+"AP=SIZ"S"ATYP"                                          FCC0589       11     A     
 IO                 BX6    X6+X1                                                           FCC0589       12     A     
 IO                 SA6    IOBMOD                                                          IO          1725          I
          -FCC1169
 IO        .76      IFEQ   .CPU,76                                                         FCC1169        6     A     
 IO                 LE     B7,A=BMOD2  IF NOT NORMAL TAG.                                  FCC1169        7     A     
 IO       *         CHECK FOR 7000 LEVEL                                                   FCC1169        8     A     
 IO       *                                                                                FCC1169        9     A     
 IO                 =B2    A=BMOD2     SET RETURN ADDRESS.                                 FCC1169       10     A     
 IO                 EQ     VARCHK      GO CHECK FOR VAR SYM                                FCC1169       11     A     
 IO        .76      ENDIF                                                                  FCC1169       12     A     
 IO        A=BMOD2  SA6    IOBMOD                                                          FCC1169       13     A     
 IO                 =X3    IO=BMOD                                                         IO          1726     A     
 IO       *         EQ     A=IOT       CHECK PLUGGING                                      IO          1727     A     
 IO        A=IOT    SPACE  4,8                                                             IO          1728     A     
 IO       **        A=IOT - CHECK FOR PLUG OF TEMPORARY IN I/O.                            IO          1729     A     
 IO       *                                                                                IO          1730     A     
 IO       *         ENTRY  (X3) = I/O APLIST BIAS.                                         IO          1731     A     
 IO       *         EXIT   TO *PAREXIT* TO EXIT PARSER.                                    IO          1732     A     
 IO                                                                                        IO          1733     A     
 IO                                                                                        IO          1734     A     
 IO        C=IOT    BSS    0                                                               IO          1735     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1186    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO        A=IOT    GT     B7,PAREXIT  IF NO PLUG, NO TURPLE                               IO          1736     A     
 IO                 LX3    P.2BIAS                                                         IO          1737     A     
 IO                 IX5    X3+X5                                                           IO          1738     A     
 IO                 SA3    APLUG                                                           IO          1739     A     
 IO                 BX6    X3                                                              IO          1740     A     
 IO                 SA6    SOPR                                                            IO          1741     A     
 IO                 RJ     PSO         PROCESS  SUBSCRIPT OPERATION IF IN ONE              IO          1742     A     
 IO                 ZR     X3,PAREXIT  IF REDUCED - EXIT                                   IO          1743     A     
 IO                 RJ     ADT         ADD OPERATOR                                        IO          1744     A     
 IO                 SA3    APLSTOR                                                         IO          1745     A     
 IO                 =A4    B6-1        1ST OPERAND = RESULTS OF *PLUG*                     IO          1746     A     
 IO                 BX6    X3                                                              IO          1747     A     
 IO                 SA6    SOPR                                                            IO          1748     A     
 IO                 RJ     ADT                                                             IO          1749     A     
 IO                 EQ     PAREXIT     EXIT..                                              IO          1750     A     
 IO        A=BLWA   SPACE  4,8                                                             IO          1751     A     
 IO       **        A=BLWA - CHECK BUFFER IN/OUT LAST WORD ADDRESS.                        IO          1752     A     
 IO       *                                                                                IO          1753     A     
 IO       *         EXIT   (IOBLWA) = BUFFER I/O LAST WORD ADDRESS.                        IO          1754     A     
 IO       *                                                                                IO          1755     A     
 IO       *         ERROR  IF EXPRESSION     (E.IOB7)                                      IO          1756     A     
 IO                                                                                        IO          1757     A     
 IO                                                                                        IO          1758     A     
 IO        A=BLWA   BSS    0           ENTRY...                                            IO          1759     A     
 IO                 BX0    X5                                                              IO          1760     A     
 IO                 IFBIT  X0,-INTR,A=BLWA1 IF NOT INTERMEDIATE                            IO          1761     A     
 IO                 LX0    X5                                                              IO          1762     A     
 IO                 AX0    P.TAG                                                           IO          1763     A     
 IO                 SA2    TT.PAR                                                          IO          1764     A     
 IO                 SB7    X0                                                              IO          1765     A     
 IO                 SA1    X2+B7                                                           IO          1766     A     
 IO                 SB7    =XO=SUBL                                                        IO          1767     A     
 IO                 AX1    P.TAG                                                           IO          1768     A     
 IO                 SB7    -B7                                                             IO          1769     A     
 IO                 SX0    X1+B7                                                           IO          1770     A     
 IO                 ZR     X0,A=BLWA2  IF ARRAY LOAD TURPLE                                IO          1771     A     
 IO                 EQ     E.IOB7      ELSE ERROR                                          IO          1772     A     
 IO        A=BLWA1  IFBIT  X0,SHORT/INTR,E.IOB7  IF SHORT CONSTANT                         IO          1773     A     
 IO                 LX0    X5                                                              IO          1774     A     
 IO                 AX0    P.TGB                                                           IO          1775     A     
 IO                 SX0    X0-C.CON/1S13                                                   IO          1776     A     
 IO                 ZR     X0,E.IOB7   IF CONSTANT                                         IO          1777     A     
 IO        A=BLWA2  RJ     AAE         ANALYZE AP-LIST ENTRY                               IO          1778     A     
 IO                 SA6    IOBLWA                                                          IO          1779          I
          -FCC0589
 IO                 MI     B7,A=BLWA4  IF ADDRESS PLUG                                     FCC0589       13          I
          -FCCA543
 IO                 MI     B7,A=BLWA5  IF ADDRESS PLUG                                     FCCA543       11     A     
 IO                 =X1    M.AVAR+"AP=SIZ"S"ATYP"                                          FCC0589       14          I
          -FCC1275
 IO                 SB3    X1-M.DBL                                                        FCC1275        5     A     
 IO                 MI     B3,A=BLWA3  IF NOT DBL OR CMPLX                                 FCC1275        6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1187    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 =X2    1                                                               FCC1275        7     A     
 IO                 LX2    P.ABIAS     IF CMPLX OR DBL, BIAS = BIAS + 1                    FCC1275        8     A     
 IO                 IX6    X6+X2                                                           FCC1275        9     A     
 IO        A=BLWA3  =X1    M.AVAR+"AP=SIZ"S"ATYP"                                          FCC1275       10     A     
 IO                 BX6    X6+X1                                                           FCC0589       15     A     
 IO       .76       IFEQ   .CPU,76                                                         FCC1169       14     A     
 IO                 LE     B7,A=BLWA4  IF NOT NORMAL TAG.                                  FCC1169       15     A     
 IO       *         CHECK FOR 7000 LEVEL                                                   FCC1169       16     A     
 IO       *                                                                                FCC1169       17     A     
 IO                 =B2    A=BLWA4     SET RETURN ADDRESS.                                 FCC1169       18     A     
 IO                 EQ     VARCHK      GO CHECK FOR VAR SYM                                FCC1169       19     A     
 IO        .76      ENDIF                                                                  FCC1169       20     A     
 IO        A=BLWA4  SA6    IOBLWA                                                          FCC0589       16     A     
 IO                 MX0    L.TAG                                                           IO          1780     A     
 IO                 BX2    X6                                                              IO          1781     A     
 IO                 AX2    P.TAG       LWA TAG                                             IO          1782     A     
 IO                 BX6    -X0*X6                                                          IO          1783     A     
 IO                 AX6    P.2BIAS     LWA BIAS                                            IO          1784     A     
 IO                 SX6    X6          PROVIDE SIGN EXTENSION                              IO          1785     A     
 IO                 SA6    LWABIAS     SAVE FOR FUTURE USE                                 IO          1786     A     
 IO                 SA1    IOBFWA                                                          IO          1787     A     
 IO                 BX7    -X0*X1                                                          IO          1788     A     
 IO                 AX7    P.2BIAS     FWA BIAS                                            IO          1789     A     
 IO                 SX7    X7          PROVIDE SIGN EXTENSION                              IO          1790     A     
 IO                 =A7    A6-LWABIAS+FWABIAS                                              IO          1791     A     
 IO                 AX1    P.TAG       FWA TAG                                             IO          1792     A     
 IO                 IX0    X2-X1                                                           IO          1793     A     
 IO                 NZ     X0,A=BLWA10 IF NOT SAME VARIABLE OR ARRAY                       IO          1794     A     
 IO                 MI     X6,A=BLWA30 IF NON-CONSTANT SUBSCRIPT - OK BY DEFAULT           IO          1795     A     
 IO                 MI     X7,A=BLWA30 IF NON-CONSTANT SUBSCRIPT - OK BY DEFAULT           IO          1796     A     
 IO                 IX0    X6-X7                                                           IO          1797     A     
 IO                 MI     X0,=XE.IOB10  IF FWA GREATER THAN LWA                           IO          1798     A     
 IO                 EQ     A=BLWA30                                                        IO          1799     A     
 IO        A=BLWA5  SB3    X1-M.DBL                                                        FCCA543       12     A     
 IO                 MI     B3,A=BLWA4  IF NOT DBL OR COMPLEX                               FCCA543       13     A     
 IO                 SA3    A3          FETCH VARIABLE FROM TURPLE .. SEE AEE               FCCA543       14     A     
 IO                 =X2    1                                                               FCCA543       15     A     
 IO                 LX2   P.2BIAS                                                          FCCA543       16     A     
 IO                 IX6    X3+X2       BIAS = BIAS + 1                                     FCCA543       17     A     
 IO                 SA6    A3          REPLACE VAR IN PARSE FILE                           FCCA543       18     A     
 IO                 EQ     A=BLWA4                                                         FCCA543       19     A     
 IO                                                                                        IO          1800     A     
 IO       *         TEST FOR FWA AND LWA IN SAME COMMON BLOCK                              IO          1801     A     
 IO       *         (X1) = FWA TAG                                                         IO          1802     A     
 IO       *         (X2) = LWA TAG                                                         IO          1803     A     
 IO                                                                                        IO          1804     A     
 IO        A=BLWA10 SB2    X1-C.VAR                                                        IO          1805     A     
 IO                 SB3    X2-C.VAR                                                        IO          1806     A     
 IO                 SA2    TS.SYM                                                          IO          1807     A     
 IO                 SA1    B2+X2       FWA *ST* ENTRY                                      IO          1808     A     
 IO                 SA2    B3+X2       LWA *ST* ENTRY                                      IO          1809     A     
 IO                 LX0    X1                                                              IO          1810     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1188    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 IFBIT  X0,COMM,A=BLWA11  IF FWA IN COMMON                              IO          1811     A     
 IO                 BX0    X2                                                              IO          1812     A     
 IO                 IFBIT  X0,COMM,=XE.IOB9  IF LWA IN COMMON                              IO          1813     A     
 IO                 EQ     A=BLWA20    IF NEITHER IN COMMON                                IO          1814     A     
 IO        A=BLWA11 LX0    X2                                                              IO          1815     A     
 IO                 IFBIT  X0,-COMM,=XE.IOB9  IF LWA NOT IN COMMON                         IO          1816     A     
 IO                 SA2    =XTA.NAM                                                        IO          1817     A     
 IO                                                                                        IO          1818     A     
 IO       *         NAME TABLE ORDINAL = (SYMTABORD+1)/2-1                                 IO          1819     A     
 IO                                                                                        IO          1820     A     
 IO                 =X0    B2+1                                                            IO          1821     A     
 IO                 =X1    B3+1                                                            IO          1822     A     
 IO                 AX0    1                                                               IO          1823     A     
 IO                 AX1    1                                                               IO          1824     A     
 IO                 =X0    X0-1                                                            IO          1825     A     
 IO                 =X1    X1-1                                                            IO          1826     A     
 IO                 IX1    X1+X2                                                           IO          1827     A     
 IO                 SA1    X1          LWA TA.NAM ENTRY                                    IO          1828     A     
 IO                 SX7    X1          LWA COMMON BIAS                                     IO          1829     A     
 IO                 AX1    P.BLOCK                                                         IO          1830     A     
 IO                 SB3    X1          LWA BLOCK NO.                                       IO          1831     A     
 IO                 IX0    X0+X2                                                           IO          1832     A     
 IO                 SA1    X0          FWA TA.NAM ENTRY                                    IO          1833     A     
 IO                 SX6    X1          FWA COMMON BIAS                                     IO          1834     A     
 IO                 AX1    P.BLOCK                                                         IO          1835     A     
 IO                 SB2    X1          FWA BLOCK NO.                                       IO          1836     A     
 IO                 SB2    B2-B3                                                           IO          1837     A     
 IO                 NZ     B2,=XE.IOB9 IF NOT IN THE SAME COMMON BLOCK                     IO          1838     A     
 IO                 SA1    FWABIAS                                                         IO          1839     A     
 IO                 MI     X1,A=BLWA30 IF NON-CONSTANT SUBSCRIPT - OK BY DEFAULT           IO          1840     A     
 IO                 =A2    A1-FWABIAS+LWABIAS                                              IO          1841     A     
 IO                 MI     X2,A=BLWA30 IF NON-CONSTANT SUBSCRIPT - OK BY DEFAULT           IO          1842     A     
 IO                 IX6    X1+X6       FWA TOTAL BIAS                                      IO          1843     A     
 IO                 IX7    X2+X7       LWA TOTAL BIAS                                      IO          1844     A     
 IO                 IX6    X7-X6                                                           IO          1845     A     
 IO                 MI     X6,=XE.IOB10  IF FWA .GE. LWA                                   IO          1846     A     
 IO                 EQ     A=BLWA30    EXIT OK                                             IO          1847     A     
 IO                                                                                        IO          1848     A     
 IO       *         TEST FOR FWA AND LWA IN SAME EQUIVALENCE CLASS                         IO          1849          I
          -FCC0593
 IO       *         TEST FOR FWA AND LWA BOTH FORMAL PARAMETERS                            FCC0593       11     A     
 IO       *         (B2) = FWA *ST* ORDINAL                                                IO          1850     A     
 IO       *         (B3) = LWA *ST* ORDINAL                                                IO          1851     A     
 IO       *         (X1) = FWA *ST* ENTRY                                                  IO          1852     A     
 IO       *         (X2) = LWA *ST* ENTRY                                                  IO          1853     A     
 IO                                                                                        IO          1854     A     
 IO        A=BLWA20 LX0    X1                                                              IO          1855          I
          -FCC0593
 IO        A=BLWA20 LX0    X1                                                              FCC0593       12     A     
 IO                 IFBIT  X0,FP,A=BLWA21  IF FWA FORMAL PARAMETER                         FCC0593       13     A     
 IO                 BX0    X2                                                              FCC0593       14     A     
 IO                 IFBIT  X0,FP,=XE.IOB9  IF LWA FORMAL PARAMETER                         FCC0593       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1189    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 EQ     A=BLWA25    IF NEITHER FORMAL PARAMETER                         FCC0593       16     A     
 IO        A=BLWA21 BX0    X2                                                              FCC0593       17     A     
 IO                 IFBIT  X0,-FP,=XE.IOB9  IF LWA NOT FORMAL PARAMETER                    FCC0593       18     A     
 IO                 EQ     A=BLWA30    OK IF BOTH FORMAL PARAMETER                         FCC0593       19     A     
 IO                                                                                        FCC0593       20     A     
 IO       *         TEST FOR FWA AND LWA IN SAME EQUIVALENCE CLASS                         FCC0593       21     A     
 IO                                                                                        FCC0593       22     A     
 IO        A=BLWA25 LX0    X1                                                              FCC0593       23     A     
 IO                 IFBIT  X0,-EQUIV,=XE.IOB9  IF NOT EQUIVALENCED                         IO          1856     A     
 IO                 BX0    X2                                                              IO          1857     A     
 IO                 IFBIT  X0,-EQUIV,=XE.IOB9  IF NOT EQUIVALENCED                         IO          1858     A     
 IO                 SA2    =XTA.NAM                                                        IO          1859     A     
 IO                                                                                        IO          1860     A     
 IO       *         NAME TABLE ORDINAL = (SYMTABORD+1)/2-1                                 IO          1861     A     
 IO                                                                                        IO          1862     A     
 IO                 =X0    B2+1                                                            IO          1863     A     
 IO                 =X1    B3+1                                                            IO          1864     A     
 IO                 AX0    1                                                               IO          1865     A     
 IO                 AX1    1                                                               IO          1866     A     
 IO                 =X0    X0-1                                                            IO          1867     A     
 IO                 =X1    X1-1                                                            IO          1868     A     
 IO                 IX1    X1+X2                                                           IO          1869     A     
 IO                 SA1    X1          LWA TA.NAM ENTRY                                    IO          1870     A     
 IO                 SX7    X1          LWA EQUIVALENCE BIAS                                IO          1871     A     
 IO                 IX0    X0+X2                                                           IO          1872     A     
 IO                 SA1    X0          FWA TA.NAM ENTRY                                    IO          1873     A     
 IO                 SX6    X1          FWA EQUIVALENCE BIAS                                IO          1874     A     
 IO                 SA1    FWABIAS                                                         IO          1875     A     
 IO                 MI     X1,A=BLWA30 IF NON-CONSTANT SUBSCRIPT - OK BY DEFAULT           IO          1876     A     
 IO                 =A2    A1-FWABIAS+LWABIAS                                              IO          1877     A     
 IO                 MI     X2,A=BLWA30 IF NON-CONSTANT SUBSCRIPT - OK BY DEFAULT           IO          1878     A     
 IO                 IX6    X1+X6       FWA TOTAL BIAS                                      IO          1879     A     
 IO                 IX7    X2+X7       LWA TOTAL BIAS                                      IO          1880     A     
 IO                 IX7    X7-X6                                                           IO          1881     A     
 IO                 MI     X7,=XE.IOB10  IF FWA .GE. LWA                                   IO          1882     A     
 IO        BLWA     BSS    0                                                               FCC0593       24     A     
 IO        A=BLWA30 =X3    IO=BLWA                                                         IO          1883     A     
 IO                 EQ     A=IOT       CONTINUE..                                          IO          1884     A     
 IO                                                                                        IO          1885     A     
 IO        FWABIAS  BSS    2                                                               IO          1886     A     
 IO        LWABIAS  EQU    FWABIAS+1                                                       IO          1887     A     
 IO        C=BFWA   SPACE  4,8                                                             IO          1888     A     
 IO       **        C=BFWA - CHECK BUFFER IN/OUT FIRST WORD ADDRESS.                       IO          1889     A     
 IO       *                                                                                IO          1890     A     
 IO       *         EXIT   (IOBFWA) = BUFFER I/O FIRST WORD ADDRESS.                       IO          1891     A     
 IO       *                                                                                IO          1892     A     
 IO       *         ERROR  IF EXPRESSION     (E.IOB7)                                      IO          1893     A     
 IO                                                                                        IO          1894     A     
 IO                                                                                        IO          1895     A     
 IO        C=BFWA   BSS    0           ENTRY...                                            IO          1896     A     
 IO                 BX0    X5                                                              IO          1897     A     
 IO                 IFBIT  X0,-INTR,C=BFWA1 IF NOT INTERMEDIATE                            IO          1898     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1190    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 LX0    X5                                                              IO          1899     A     
 IO                 AX0    P.TAG                                                           IO          1900     A     
 IO                 SA2    TT.PAR                                                          IO          1901     A     
 IO                 SB7    X0                                                              IO          1902     A     
 IO                 SA1    X2+B7                                                           IO          1903     A     
 IO                 SB7    =XO=SUBL                                                        IO          1904     A     
 IO                 AX1    P.TAG                                                           IO          1905     A     
 IO                 SB7    -B7                                                             IO          1906     A     
 IO                 SX0    X1+B7                                                           IO          1907     A     
 IO                 ZR     X0,C=BFWA2  IF ARRAY LOAD TURPLE                                IO          1908     A     
 IO                 EQ     E.IOB7      ELSE ERROR                                          IO          1909     A     
 IO        C=BFWA1  IFBIT  X0,SHORT/INTR,E.IOB7  IF SHORT CONSTANT                         IO          1910     A     
 IO                 LX0    X5                                                              IO          1911     A     
 IO                 AX0    P.TGB                                                           IO          1912     A     
 IO                 SX0    X0-C.CON/1S13                                                   IO          1913     A     
 IO                 ZR     X0,E.IOB7   IF CONSTANT                                         IO          1914     A     
 IO        C=BFWA2  RJ     AAE         ANALYZE AP-LIST ENTRY                               IO          1915     A     
 IO                 SA6    IOBFWA                                                          IO          1916          I
          -FCC0589
 IO                 =X3    IO=BFWA                                                         IO          1917     A     
 IO                 MI     B7,C=BFWA3  IF ADDRESS PLUG                                     FCC0589       17     A     
 IO                 =X1    M.AVAR+"AP=SIZ"S"ATYP"                                          FCC0589       18     A     
 IO                 BX6    X6+X1                                                           FCC0589       19     A     
 IO        .76      IFEQ   .CPU,76                                                         FCC1169       21     A     
 IO                 LE     B7,C=BFWA3  IF NOT NORMAL TAG.                                  FCC1169       22     A     
 IO       *         CHECK FOR 7000 LEVEL                                                   FCC1169       23     A     
 IO       *                                                                                FCC1169       24     A     
 IO                 =B2    C=BFWA3     SET RETURN ADDRESS                                  FCC1169       25     A     
 IO                 EQ     VARCHK      GO CHECK FOR VAR SYM                                FCC1169       26     A     
 IO        .76      ENDIF                                                                  FCC1169       27     A     
 IO        C=BFWA3  SA6    IOBFWA                                                          FCC0589       20     A     
 IO                 EQ     C=IOT       CONTINUE..                                          IO          1918     A     
 IO        C=CNT    SPACE  4,8                                                             IO          1919     A     
 IO       **        C=CNT - CHECK XXCODE *COUNT* INDICATOR.                                IO          1920     A     
 IO       *                                                                                IO          1921     A     
 IO       *         EXIT   (IOCNT) SET UP.                                                 IO          1922     A     
 IO                                                                                        IO          1923     A     
 IO                                                                                        IO          1924     A     
 IO        C=CNT    BSS    0           ENTRY...                                            IO          1925     A     
 IO                 MX0    -L.MODE                                                         IO          1926     A     
 IO                 BX1    -X0*X5                                                          IO          1927     A     
 IO                 =X1    X1-M.INT                                                        IO          1928     A     
 IO                 BX0    X5                                                              IO          1929     A     
 IO                 NZ     X1,E.IOS9         IF NOT INTEGER                                IO          1930     A     
 IO                 IFBIT  X0,INTR,E.IOS9    IF EXPRESSION                                 IO          1931     A     
 IO                 RJ     AAE         ANALYZE AP-LIST ENTRY                               IO          1932     A     
 IO                 =X1    M.AVAR+"AP=SIZ"S"ATYP"                                          IO          1933     A     
 IO                 BX6    X6+X1                                                           IO          1934     A     
 IO                 SA6    IOCNT                                                           IO          1935          I
          -FCC1169
 IO        .76      IFEQ   .CPU,76                                                         FCC1169       28     A     
 IO                 LE     B7,CNTA     IF NOT NORMAL TAG                                   FCC1169       29     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1191    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *         CHECK FOR 7000 LEVEL                                                   FCC1169       30     A     
 IO       *                                                                                FCC1169       31     A     
 IO                 =B2    CNTA        SET RETURN ADDRESS.                                 FCC1169       32     A     
 IO                 EQ     VARCHK      GO CHECK FOR VAR SYM                                FCC1169       33     A     
 IO        .76      ENDIF                                                                  FCC1169       34     A     
 IO        CNTA     SA6    IOCNT                                                           FCC1169       35     A     
 IO                 =X3    IO=CNT                                                          IO          1936     A     
 IO                 EQ     C=IOT       CONTINUE..                                          IO          1937     A     
 IO        C=FMT    SPACE  4,8                                                             IO          1938     A     
 IO       **        C=FMT - CHECK FORMAT VALIDITY.                                         IO          1939     A     
 IO       *                                                                                IO          1940     A     
 IO       *         EXIT   (IOFMT) SET UP.                                                 IO          1941     A     
 IO       *                                                                                IO          1942     A     
 IO       *         ERROR  IF EXPRESSION.                                                  IO          1943     A     
 IO                                                                                        IO          1944     A     
 IO                                                                                        IO          1945     A     
 IO        A=FMT    BSS    0           ENTRY...                                            IO          1946     A     
 IO        C=FMT    BSS    0           ENTRY...                                            IO          1947     A     
 IO                 BX0    X5                                                              IO          1948     A     
 IO                 IFBIT  X0,2ARY,FMTA  IF FORMAT INDICATOR IS ARRAY                      IO          1949     A     
 IO                 ANSI   =XE.IOF                                                         IO          1950     A     
 IO        FMTA     RJ     AAE         ANALYZE AP-LIST ENTRY                               IO          1951     A     
 IO                 =X2    1                                                               IO          1952          I
          -FCC0589
 IO                 =X1    M.AVAR+"AP=SIZ"S"ATYP"                                          IO          1953     A     
 IO                 LX2    P.AFMT                                                          IO          1954          I
          -FCC0589
 IO                 BX6    X6+X1       SET VARIABLE FORMAT BIT (FAKE AS FIT)               IO          1955     A     
 IO                 BX6    X6+X2                                                           IO          1956          I
          -FCC0589
 IO                 SA6    IOFMT                                                           IO          1957          I
          -FCC1028
 IO        .76      IFEQ   .CPU,76                                                         FCC1028        4     A     
 IO                 LE     B7,FMT1A    IF NOT NORMAL TAG                                   FCC1169       36     A     
 IO                                                                                        FCC1028        5     A     
 IO       *         CHECK FOR 7000 LEVEL                                                   FCC1028        6     A     
 IO       *                                                                                FCC1028        7     A     
 IO                 =B2    FMT1A       SET RETURN ADDRESS                                  FCC1028        8     A     
 IO                 SA2    TS.SYM                                                          FCC1028        9          I
          -FCC1169
 IO                 SB7    B7-C.VAR                                                        FCC1028       10          I
          -FCC1169
 IO                 SA2    X2+B7       LOAD SYMBOL TABLE ENTRY                             FCC1028       11          I
          -FCC1169
 IO                 EQ     IOL47A      GO CHECK LEVEL OF SYMBOL                            FCC1028       12          I
          -FCC1169
 IO                 EQ     VARCHK      GO CHECK FOR VAR SYM                                FCC1169       37     A     
 IO        .76      ENDIF                                                                  FCC1028       13     A     
 IO        FMT1A    SA6    IOFMT                                                           FCC1028       14          I
          -FCC0995
 IO        FMT1A    PL     B7,FMT1B    IF NO PLUG                                          FCC0995        5     A     
 IO                 MX0    L.ATAG+L.ABIAS                                                  FCC0995        6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1192    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 BX6    -X0*X6                                                          FCC0995        7     A     
 IO        FMT1B    SA6    IOFMT                                                           FCC0995        8     A     
 IO                                                                                        FCC1028       15     A     
 IO                 ZR     B7,FMT1     IF EXPRESSION, ERROR                                IO          1958     A     
 IO                 =X3    IO=FMT                                                          IO          1959     A     
 IO                 EQ     C=IOT       CONTINUE..                                          IO          1960     A     
 IO                                                                                        IO          1961     A     
 IO        FMT1     FATAL  E.IOF1                                                          IO          1962     A     
 IO                 EQ     C=ERR                                                           IO          1963     A     
 IO        C=IOL    SPACE  4,12                                                            IO          1964     A     
 IO       **        C=IOL - MAKE I/O AP-LIST ENTRIES.                                      IO          1965     A     
 IO       *                                                                                IO          1966     A     
 IO       *         EXIT   TO *POPX* --                                                    IO          1967     A     
 IO       *                ITEM ENTERED IN AP-LIST.                                        IO          1968     A     
 IO       *                (IOLEN) INCREMENTED.                                            IO          1969     A     
 IO       *                                                                                IO          1970     A     
 IO       *         ERROR  IF EXPRESSION IN INPUT LIST.                                    IO          1971     A     
 IO       *                                                                                IO          1972     A     
 IO       *         CALLS  AAE, ADDWD, NCS, ILI.                                           IO          1973     A     
 IO                                                                                        IO          1974     A     
 IO                                                                                        IO          1975     A     
 IO        C=IOL    BSS    0           ENTRY...                                            IO          1976     A     
 IO                 SA1    IOLEN                                                           IO          1977     A     
 IO                 PL     X1,IOL1     IF NOT INITIAL LIST ITEM                            IO          1978     A     
 IO                 RJ     ILI         ADD INITIAL LIST ITEMS                              IO          1979     A     
 IO        IOL1     =X6    X1+1        COUNT ITEMS IN (PARTIAL) LIST                       IO          1980     A     
 IO                 SA6    IOLEN                                                           IO          1981     A     
 IO                 RJ     AAE         ANALYZE AP-LIST ENTRY                               IO          1982     A     
 IO                 NZ     B7,IOL4     IF NOT AN INTERMEDIATE                              IO          1983     A     
 IO                                                                                        IO          1984     A     
 IO       **        CONSTRUCT AP-LIST ENTRY WHEN AN INTERMEDIATE.                          IO          1985     A     
 IO       *                (ATAG)  = TAG                                                   IO          1986     A     
 IO       *                (ABIAS) = TYPE                                                  IO          1987     A     
 IO       *                (ATYP)  = AP=SIZ                                                IO          1988     A     
 IO       *                (ASIZ)   = 1                                                    IO          1989     A     
 IO                                                                                        IO          1990     A     
 IO                 SA2    IODIR                                                           IO          1991     A     
 IO                 NZ     X2,IOL3     IF OUTPUT DIRECTION                                 IO          1992     A     
 IO                 SA1    IOLEN                                                           IO          1993     A     
 IO                 =X6    X1-1                                                            IO          1994     A     
 IO                 SA6    A1          BAD ITEM NOT ADDED TO AP-LIST                       IO          1995     A     
 IO                 FATAL  E.IOL1                                                          IO          1996     A     
 IO                 EQ     C=ERR                                                           IO          1997     A     
 IO                                                                                        IO          1998     A     
 IO        IOL3     =X3    1+"AP=SIZ"S"ATYP"  PRESET ITEM LENGTH = 1                       IO          1999     A     
 IO                 LX1    P.ABIAS                                                         IO          2000          I
          -FCC1709X 
 IO                 NZ     X1,IOL3.5   IF NOT MODELESS                                     FCC1709X       5     A     
 IO                 =X1    M.INT       DEFAULT MODE FOR PRINTING                           FCC1709X       6     A     
 IO                                                                                        FCC1709X       7     A     
 IO        IOL3.5   LX1    P.ABIAS                                                         FCC1709X       8     A     
 IO                 BX2    X6+X1                                                           IO          2001     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1193    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 IX6    X2+X3                                                           IO          2002     A     
 IO        IOL2     ADDWD  TP.APL      ADD ITEM TO APLIST                                  IO          2003     A     
 IO                 BX0    X5                                                              IO          2004     A     
 IO                 IFBIT  X0,LONG,IOL25     IF DOUBLE LENGTH                              IO          2005     A     
 IO                 SA3    APLSTOR     OUTPUT *AP-LIST* STORE TURPLE.                      IO          2006     A     
 IO                 EQ     POP.ST1     EXIT.. (TO POP TURPLE -- MODELESS)                  IO          2007     A     
 IO        IOL25    SA3    =XAPLSTOD                                                       IO          2008     A     
 IO                 EQ     POP.ST1     EXIT..(TO POP TURPLE--MODELESS)                     IO          2009     A     
 IO                                                                                        IO          2010     A     
 IO       **        HANDLE STORING OF *PLUG*  (OBJECT-TIME ADDRESS).                       IO          2011     A     
 IO                                                                                        IO          2012     A     
 IO        IOL4     PL     B7,IOL45    IF NO PLUG                                          IO          2013     A     
 IO                 SA2    IOLEN                                                           IO          2014     A     
 IO                 =X3    1+"AP=SIZ"S"ATYP"  ITEM LENGTH = 1                              IO          2015     A     
 IO                 SX2    X2-1                                                            IO          2016     A     
 IO                 LX1    P.ABIAS                                                         IO          2017     A     
 IO                 IX6    X1+X3       MERGE MODE AND SIZE                                 IO          2018     A     
 IO                 LX2    P.2BIAS                                                         IO          2019     A     
 IO                 BX5    X5+X2                                                           IO          2020     A     
 IO                 ADDWD  TP.APL      ADD ITEM TO AP-LIST                                 IO          2021          I
          -FCC1169
 IO        .76      IFEQ   .CPU,76                                                         FCC1169       38     A     
 IO                 LX2    X4          PRESERVE X4                                         FCC1169       39     A     
 IO                 AX2    P.ATAG      EXTRACT INDEX TO VARIABLE TURPLE                    FCC1169       40     A     
 IO                 SA3    TT.PAR                                                          FCC1169       41     A     
 IO                 SB2    X2+B1                                                           FCC1169       42     A     
 IO                 SA3    X3+B2       EXTRACT OPERAND CONTAINING VARIABLE                 FCC1169       43     A     
 IO                 AX3    P.ATAG      SAVE TAG ONLY                                       FCC1169       44     A     
 IO                 SB7    X3                                                              FCC1169       45     A     
 IO                 =B2    IOL43       SET RETURN                                          FCC1169       46     A     
 IO                 EQ     VARCHK      GO CHECK LEVEL OF VARIALBE                          FCC1169       47     A     
 IO        .76      ENDIF                                                                  FCC1169       48     A     
 IO        IOL43    ADDWD  TP.APL      ADD ITEM TO APLIST                                  FCC1169       49     A     
 IO                 =X1    M.ADDR      SET ADDRESS BIT                                     IO          2022     A     
 IO                 SA3    APLUG                                                           IO          2023     A     
 IO                 BX4    X1+X4                                                           IO          2024     A     
 IO                 BX6    X3                                                              IO          2025     A     
 IO                 SA6    SOPR                                                            IO          2026     A     
 IO                 RJ     ADT         ADD *AP-LIST PLUG* TURPLE                           IO          2027     A     
 IO                 SA3    APLSTOR                                                         IO          2028     A     
 IO                 =A4    B6-1        1ST OPERAND = RESULTS OF *PLUG*                     IO          2029     A     
 IO                 EQ     POP.ST1     EXIT.. (TO POP TURPLE -- MODELESS)                  IO          2030     A     
 IO                                                                                        IO          2031     A     
 IO       **        CONSTRUCT AP-LIST ENTRY FOR A VARIABLE.                                IO          2032     A     
 IO                                                                                        IO          2033     A     
 IO        IOL45    SA2    TS.SYM                                                          IO          2034     A     
 IO                 SB2    B7-C.CON                                                        IO          2035     A     
 IO                 SB7    B7-C.VAR                                                        IO          2036     A     
 IO                 MI     B2,IOL47    IF ITEM IS NOT A CONSTANT                           IO          2037     A     
 IO                 MX0    -L.2BIAS                                                        IO          2038     A     
 IO                 SA2    IODIR                                                           IO          2039     A     
 IO                 LX0    P.2BIAS                                                         IO          2040     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1194    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA4    R.W                                                             IO          2041     A     
 IO                 BX3    -X0*X6      ISOLATE (2BIAS) -- CONTAINS CONSTANT LENGTH         IO          2042     A     
 IO                 BX6    X0*X6       CLEAR OUT (2BIAS)                                   IO          2043     A     
 IO                 PL     X4,IOL46    IF NOT CHAR STRING IN LIST-DIRECTED I/O             IO          2044     A     
 IO                 =X7    1                                                               IO          2045     A     
 IO                 SX1    M.CHAR      HOLL STRING TYPE                                    IO          2046     A     
 IO                 SA7    A4          RESET LIST-DIRECTED FLAG                            IO          2047     A     
 IO        IOL46    LX1    P.ABIAS                                                         IO          2048          I
          -FCC1551X 
 IO        IOL46    SX4    M.UNIV      UNIVERSAL MODE (USED FOR OCTAL)                     FCC1551X       4     A     
 IO                 BX7    X1-X4                                                           FCC1551X       5     A     
 IO                 NZ     X7,IOL46.2  IF MODE NOT UNIVERSAL                               FCC1551X       6     A     
 IO                 SX1    M.INT       CHANGE MODE FROM OCTAL TO INTEGER                   FCC1551X       7     A     
 IO        IOL46.2  LX1    P.ABIAS                                                         FCC1551X       8     A     
 IO                 AX3    P.2BIAS+L.MSHORT                                                IO          2049     A     
 IO                 BX6    X6+X1       INSERT TYPE                                         IO          2050     A     
 IO                 NZ     X2,IOL5     IF *OUTPUT* DIRECTION                               IO          2051     A     
 IO                 SA1    IOLEN                                                           IO          2052     A     
 IO                 =X6    X1-1                                                            IO          2053     A     
 IO                 SA6    A1          BAD ITEM NOT ADDED TO AP-LIST                       IO          2054     A     
 IO                 FATAL  E.IOL2      ** CONSTANT ILLEGAL IN INPUT **                     IO          2055     A     
 IO                 EQ     C=ERR                                                           IO          2056     A     
 IO                                                                                        IO          2057     A     
 IO        IOL47    SA2    X2+B7       LOAD SYMBOL TABLE ENTRY                             IO          2058     A     
 IO                 SA1    IODIR                                                           FCC0499       45     A     
 IO                 =B2    0           SET RETURN ADDRESS = 0 FOR LEVEL CHECK              FCC1028       16     A     
 IO                 NZ     X1,IOL47A   IF NOT INPUT                                        FCC0499       46     A     
 IO                                                                                        FCC0499       47     A     
 IO                 SX1    M.DEF                                                           FCC0499       48     A     
 IO                 BX7    X2+X1                                                           FCC0499       49     A     
 IO                 SA7    A2          SET DEFINED BIT FOR INPUT VARIABLES                 FCC0499       50     A     
 IO       *         CHECK IF LIST VARIABLE IS A DO CONTROL INDEX                           FCC1571X       6     A     
 IO                 SA3    =XTP.DO                                                         FCC1571X       7     A     
 IO                 SA5    TP=DO                                                           FCC1571X       8     A     
 IO                 IX0    X3+X5                                                           FCC1571X       9     A     
 IO                 SB7    X0          LWA+1 OF TABLE                                      FCC1571X      10     A     
 IO                 SB3    X3+OR.DOCI                                                      FCC1571X      11     A     
 IO        IOL470   GT     B3,B7,IOL47A  IF END OF TABLE                                   FCC1571X      12     A     
 IO                 SA3    B3          CONTROL INDEX                                       FCC1571X      13     A     
 IO                 BX0    X7-X3                                                           FCC1571X      14     A     
 IO                 SB3    B3+L.DOE                                                        FCC1571X      15     A     
 IO                 AX0    P.TAG                                                           FCC1571X      16     A     
 IO                 NZ     X0,IOL470   IF CONTROL INDEX NOT REDEFINED                      FCC1571X      17     A     
 IO                 FATAL  =XE.DO8     CONTROL INDEX REDEFINED - FATAL                     FCC1571X      18     A     
 IO                                                                                        FCC0499       51     A     
 IO        IOL47A   BSS    0                                                               FCC0499       52     A     
 IO                                                                                        IO          2059     A     
 IO        .76      IFEQ   .CPU,76                                                         IO          2060     A     
 IO                                                                                        IO          2061     A     
 IO       **        TURN ON *ALCM* BIT FOR 7000 LEVEL 2 VARIABLES                          IO          2062     A     
 IO       *         B2 = RETURN ADDRESS                                                    FCC1028       17     A     
 IO                                                                                        IO          2063     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1195    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SBIT   X2,LEV                                                          IO          2064     A     
 IO                 PL     X2,IOL48    IF NOT LEVEL VARIABLE                               IO          2065     A     
 IO                 LX2    P.LEV+1     RESTORE X2                                          IO          2066     A     
 IO                 MX0    -L.LEVN                                                         IO          2067     A     
 IO                 LX0    P.LEVN                                                          IO          2068     A     
 IO                 BX0    -X0*X2                                                          IO          2069     A     
 IO                 AX0    P.LEVN      (X0) = LEVEL NUMBER                                 IO          2070     A     
 IO                 SX0    X0-2                                                            IO          2071     A     
 IO                 NZ     X0,IOL49    IF NOT LEVEL 2                                      IO          2072     A     
 IO                 =X0    1                                                               IO          2073     A     
 IO                 LX0    P.ALCM      TURN ON *ALCM* BIT                                  IO          2074     A     
 IO                 BX6    X6+X0                                                           IO          2075     A     
 IO                 EQ     IOL49                                                           IO          2076     A     
 IO                                                                                        IO          2077     A     
 IO        IOL48    LX2    P.LEV+1     RESTORE X2                                          IO          2078     A     
 IO                                                                                        IO          2079     A     
 IO        IOL49    BSS    0                                                               IO          2080          I
          -FCC1028
 IO        IOL49    NZ     B2,FMT1A    IF RETURN TO FORMAT DESIGNATOR PROCESSING           FCC1028       18          I
          -FCC1169
 IO        IOL49    ZR     B2,IOL49A   IF NO RETURN.                                       FCC1169       50     A     
 IO                 JP     B2          RETURN TO *A=* AND *C=* PROCESSORS IN *IO*.         FCC1169       51     A     
 IO                                                                                        IO          2081     A     
 IO        .76      ENDIF                                                                  IO          2082     A     
 IO                                                                                        IO          2083     A     
 IO                 SBIT   X2,ARY                                                          IO          2084          I
          -FCC1169
 IO        IOL49A   SBIT   X2,ARY                                                          FCC1169       52     A     
 IO                 =X3    1+"AP=SIZ"S"ATYP"  PRESET SIMPLE ITEM LENGTH = 1                IO          2085     A     
 IO                 SBIT   X4,ADDR                                                         IO          2086          I
          -FCC1134
 IO                 SBIT   X4,ARE                                                          FCC1134       25     A     
 IO                 PL     X2,IOL6     IF NOT ARRAY                                        IO          2087     A     
 IO                 SBIT   X2,PNT/ARY+1                                                    IO          2088     A     
 IO                 PL     X4,IOL6     IF SNGLE ELEMENT                                    IO          2089     A     
 IO                 SA3    TP.DIM                                                          IO          2090     A     
 IO                 MX0    -L.PNT                                                          IO          2091     A     
 IO                 BX5    -X0*X2      ISOLATE TP.DIM ORD                                  IO          2092     A     
 IO                 SB3    X5                                                              IO          2093     A     
 IO                 MX0    -L.DIMLG                                                        IO          2094     A     
 IO                 SA1    X3+B3       FETCH DIMENSION PARAMETERS                          IO          2095     A     
 IO                 SBIT   X1,DIMLG+1                                                      IO          2096     A     
 IO                 BX3    -X0*X1      ARRAY LENGTH                                        IO          2097     A     
 IO                 SBIT   X1,VDIM/DIMLG-1                                                 IO          2098     A     
 IO                 PL     X1,IOL5     IF NOT VARAIBLY DIMENSIONED                         IO          2099     A     
 IO                                                                                        IO          2100     A     
 IO       **        THIS ITEM IS VARIABLY DIMENSIONED.  CALL *CVT* TO GENERATE             IO          2101     A     
 IO       *                TURPLES WHICH WILL CAUSE THE LENGTH TO BE COMPUTED IN           IO          2102     A     
 IO       *                THE SUBPROGRAM PREAMBLE CODE.                                   IO          2103     A     
 IO                                                                                        IO          2104     A     
 IO                 SBIT   X1,NDIM/VDIM+1                                                  IO          2105     A     
 IO                 MX0    -L.NDIM                                                         IO          2106     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1196    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 BX2    -X0*X1      ISOLATE NUMBER OF DIMENSIONS                        IO          2107     A     
 IO                 =X0    1                                                               IO          2108     A     
 IO                 LX2    18                                                              IO          2109     A     
 IO                 BX4    X2+X0       12/0,18/NO. OF DIMS,18/CURRENT SUBSCR               IO          2110     A     
 IO                 SA6    IOLSCR                                                          IO          2111     A     
 IO                                                                                        IO          2112          I
          -FCC1736X 
 IO                 SX6    B1                                                              FCC1736X       7     A     
 IO                 SA6    =XDIMUL     SET TO ONE IN CASE FIRST DIM IS CONSTANT            FCC1736X       8     A     
 IO        IOL50    SB2    X4                                                              IO          2113     A     
 IO                 SB3    X5          TP.DIM ORD                                          IO          2114     A     
 IO                 RJ     CVT         GENERATE VAR-DIM TAG                                IO          2115     A     
 IO                 BX7    -X6                                                             IO          2116     A     
 IO                 =X1    X4+1                                                            IO          2117     A     
 IO                 SA7    =XDIMUL                                                         IO          2118     A     
 IO                 AX4    18                                                              IO          2119     A     
 IO                 IX0    X4-X1                                                           IO          2120     A     
 IO                 MI     X0,IOL51    IF ALL SUBSCR PROCESSED                             IO          2121     A     
 IO                 LX4    18                                                              IO          2122     A     
 IO                 BX4    X4+X1                                                           IO          2123     A     
 IO                 EQ     IOL50                                                           IO          2124     A     
 IO                                                                                        IO          2125     A     
 IO        IOL51    SA4    IOLSCR                                                          IO          2126     A     
 IO                 =X3    X6-C.VDIM+"AP=TEM"S"ATYP"                                       IO          2127     A     
 IO                 BX6    X4          RESTORE (X6)                                        IO          2128     A     
 IO                 EQ     IOL6        CONTINUE..                                          IO          2129     A     
 IO                                                                                        IO          2130     A     
 IO        IOL5     BX7    X3                                                              IO          2131     A     
 IO                 AX7    L.ASIZ                                                          IO          2132     A     
 IO                 NZ     X7,IOL55    IF TOO LONG TO PUT IN DIRECTLY                      IO          2133     A     
 IO                 =X3    X3+"AP=SIZ"S"ATYP"    SET I/O LENGTH INIDCATOR                  IO          2134     A     
 IO                 EQ     IOL6                                                            IO          2135     A     
 IO                                                                                        IO          2136     A     
 IO        IOL55    LX7    X3                                                              IO          2137     A     
 IO                 BX4    X6                                                              IO          2138     A     
 IO                 SA7    SCR                                                             IO          2139     A     
 IO                 SB2    A7                                                              IO          2140          I
          -FCC1320
 IO                 SB3    A7                                                              IO          2141          I
          -FCC1320
 IO                 SB2    A7          = FWA                                               FCC1320       11     A     
 IO                 SB3    A7+B1       = LWA + 1                                           FCC1320       12     A     
 IO                 SCAN   TS.CON,NCM  ENTER ARRAY LENGTH INTO CON TABLE                   IO          2142     A     
 IO                 SX3    B7+"AP=CON"S"ATYP"                                              IO          2143     A     
 IO                 BX6    X4          RESTORE (X6)                                        IO          2144     A     
 IO                                                                                        IO          2145     A     
 IO                                                                                        IO          2146     A     
 IO       **        ENTER THE ITEM IN AP-LIST TABLE.                                       IO          2147     A     
 IO       *                (X6) = TAG.       (APTAG, APBIAS)                               IO          2148     A     
 IO       *                (X3) = SIZE.      (APSIZ, APTYP)                                IO          2149     A     
 IO                                                                                        IO          2150     A     
 IO        IOL6     BX6    X6+X3                                                           IO          2151     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1197    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 ADDWD  TP.APL                                                          IO          2152     A     
 IO                 EQ     POPX        EXIT.. (NO TURPLE)                                  IO          2153     A     
 IO        IOLSCR   BSS    1           TEMPORARY FOR AP-LIST ITEM                          IO          2154     A     
 IO        A=STR    SPACE  4,8                                                             IO          2155     A     
 IO       **        A=STR - CHECK XXCODE *STRING* ADDRESS.                                 IO          2156     A     
 IO       *                                                                                IO          2157     A     
 IO       *         EXIT   (IOSTR) = STRING ADDRESS DESCRIPTOR.                            IO          2158     A     
 IO       *                                                                                IO          2159     A     
 IO       *         ERROR  IF EXPRESSION      (E.IOS7)                                     IO          2160     A     
 IO       *         O.K.   IF PLUG                                                         IO          2161     A     
 IO       *         ERROR  IF NOT A VARIABLE  (E.IOS8)                                     IO          2162     A     
 IO                                                                                        IO          2163     A     
 IO                                                                                        IO          2164     A     
 IO        A=STR    BSS    0           ENTRY...                                            IO          2165     A     
 IO                 RJ     AAE         ANALYZE AP-LIST ENTRY                               IO          2166     A     
 IO                 =X1    M.AVAR+"AP=SIZ"S"ATYP"                                          IO          2167     A     
 IO                 BX6    X6+X1                                                           IO          2168     A     
 IO                 SA6    IOSTR                                                           IO          2169          I
          -FCC1169
 IO        .76      IFEQ   .CPU,76                                                         FCC1169       53     A     
 IO                 LE     B7,STRA     IF NOT NORMAL TAG                                   FCC1169       54     A     
 IO       *         CHECK FOR 7000 LEVEL                                                   FCC1169       55     A     
 IO       *                                                                                FCC1169       56     A     
 IO                 =B2    STRA        SET RETURN ADDRESS.                                 FCC1169       57     A     
 IO                 EQ     VARCHK      GO CHECK FOR VAR SYM                                FCC1169       58     A     
 IO        .76      ENDIF                                                                  FCC1169       59     A     
 IO        STRA     SA6    IOSTR                                                           FCC1169       60          I
          -FCC0995
 IO        STRA     PL     B7,STRB     IF NO PLUG                                          FCC0995        9          I
          -FCC2031
 IO        STRA     BX7    X6                                                              FCC2031        8     A     
 IO                 PL     B7,STRB     IF NO PLUG                                          FCC2031        9     A     
 IO                 MX0    L.ATAG+L.ABIAS                                                  FCC0995       10     A     
 IO                 BX6    -X0*X6                                                          FCC0995       11          I
          -FCC2031
 IO        STRB     SA6    IOSTR                                                           FCC0995       12          I
          -FCC2031
 IO                 BX7    -X0*X6                                                          FCC2031       10     A     
 IO        STRB     SA7    IOSTR                                                           FCC2031       11     A     
 IO                 ZR     B7,E.IOS7   IF EXPRESSION, ERROR                                IO          2170     A     
 IO                 =X3    IO=STR                                                          IO          2171          I
          -FCC1550X 
 IO                 SA3    IODIR                                                           FCC1550X      12     A     
 IO                 ZR     X3,STRC     IF NOT OUTPUT DIRECTION                             FCC1550X      13     A     
 IO                 LX6    L.TAG       SET DEF BIT                                         FCC1550X      14     A     
 IO                 MX3    -L.PWF                                                          FCC1550X      15     A     
 IO                 BX6    -X3*X6                                                          FCC1550X      16     A     
 IO                 SA3    TS.SYM                                                          FCC1550X      17     A     
 IO                 SB2    X6                                                              FCC1550X      18     A     
 IO                 SA3    B2+X3                                                           FCC1550X      19     A     
 IO                 SX6    M.DEF                                                           FCC1550X      20     A     
 IO                 BX6    X3+X6                                                           FCC1550X      21     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1198    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA6    A3                                                              FCC1550X      22     A     
 IO                                                                                        FCC1550X      23     A     
 IO       STRC      =X3    IO=STR                                                          FCC1550X      24     A     
 IO                 MI     B7,C=IOT    IF PLUG                                             IO          2172     A     
 IO                 SB2    C.VAR+2*C.DIF                                                   IO          2173     A     
 IO                 GT     B7,B2,E.IOS7      IF NOT VARIABLE TAG                           IO          2174     A     
 IO                 EQ     PAREXIT     EXIT PARSER.                                        IO          2175     A     
 IO        O=IO     EJECT  4,8                                                             IO          2176          I
          -FEAT126C 
 IO       **        O=IO - PROCESSING I/O OPERATORS.                                       IO          2177          I
          -FEAT126C 
 IO       *                                                                                IO          2178          I
          -FEAT126C 
 IO       *         ENTRY  (B4) _ FWA CURRENT TURPLE.                                      IO          2179          I
          -FEAT126C 
 IO       *                                                                                IO          2180          I
          -FEAT126C 
 IO       *         EXIT   TO *EIS.PNX* --                                                 IO          2181          I
          -FEAT126C 
 IO       *                (B4) _ NEXT TURPLE.                                             IO          2182          I
          -FEAT126C 
 IO       *                                                                                IO          2183          I
          -FEAT126C 
 IO       *         USES   ALL BUT  A0  B5,B6                                              IO          2184          I
          -FEAT126C 
 IO        O=IOJ    SPACE  4,8                                                             IO          2185     A     
 IO        .76      IFEQ   .CPU,76                                                         FCC1169       61     A     
 IO       **        VARCHK   -   CHECK FOR VARIABLE SYMBOL                                 FCC1169       62     A     
 IO       *         ENTRY    -   FROM APPROPRIATE *A=* OR *C=* ROUTINE IN *IO*             FCC1169       63     A     
 IO       *                  (B2) = RETURN ADDRESS (TO APPROP. *A=* OR *C"* ROUT)          FCC1169       64     A     
 IO       *                  (B7) = TAG TYPE(AS FROM *AAE*)                                FCC1169       65     A     
 IO       *                                                                                FCC1169       66     A     
 IO       *         EXIT     -   IF     VARIABLE SYMBOL TAG - TO *IOL47A (IN *IO*)         FCC1169       67     A     
 IO       *                      IF NOT VARIABLE SYMBOL TAG - TO CALLING ROUTINE           FCC1169       68     A     
 IO                                                                                        FCC1169       69     A     
 IO                                                                                        FCC1169       70     A     
 IO                                                                                        FCC1169       71     A     
 IO        VARCHK   BSS    0           ENTRY...                                            FCC1169       72     A     
 IO                 SB3    C.VAR+2*C.DIF                                                   FCC1169       73     A     
 IO                 GT     B7,B3,VARCHK1   IF NOT VARIABLE TAG                             FCC1169       74     A     
 IO                 SA2    TS.SYM                                                          FCC1169       75     A     
 IO                 SB3    B7-C.VAR                                                        FCC1169       76     A     
 IO                 SA2    X2+B3       LOAD SYMBOL TABLE ENTRY                             FCC1169       77     A     
 IO                 EQ     IOL47A                                                          FCC1169       78     A     
 IO        VARCHK1  JP     B2          RETURN TO CALLER(IN *IO*)                           FCC1169       79     A     
 IO        .76      ENDIF                                                                  FCC1169       80     A     
 IO                                                                                        FCC1169       81     A     
 IO                                                                                        FCC1169       82     A     
 IO       **        O=IOJ - COMPILE JUMP TO I/O ROUTINE.                                   IO          2186     A     
 IO       *                                                                                IO          2187     A     
 IO       *         ENTRY  (1OP) = APTAG / TRACEBACK                                       IO          2188     A     
 IO       *                (2OP) = SUBROUTINE TAG                                          IO          2189     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1199    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO       *         EXIT   JUMP COMPILED.                                                  IO          2190     A     
 IO       *         CALLS  ADDWD, CLOAD, CRJ, ILI, NAP, TAGSEX.                            IO          2191     A     
 IO                                                                                        IO          2192     A     
 IO                                                                                        IO          2193     A     
 IO        O=IOJ    BSS    0           ENTRY...                                            IO          2194     A     
 IO                 RJ     CIA                                                             IO          2195     A     
 IO                 =A4    B4+OR.1OP                                                       IO          2196     A     
 IO                 SX6    SA=BKS3+1S3                                                     IO          2197     A     
 IO                 SX5    X4          REMEMBER TRACEBACK FLAG                             IO          2198     A     
 IO                 IX2    X4-X5                                                           IO          2199     A     
 IO                 BX7    X6+X2                                                           IO          2200     A     
 IO                 LX7    P.LI12                                                          IO          2201     A     
 IO                 WCODE  X7          * SA1 AP-LIST*                                      IO          2202     A     
 IO                 =A4    B4+OR.2OP                                                       IO          2203     A     
 IO                 BX6    X4                                                              IO          2204     A     
 IO                 SX1    X5-1        SET TRACEBACK FLAG FOR *CRJ*                        IO          2205     A     
 IO                 SA3    =XTRLINE    LINE NO. FOR TRACEBACK                              IO          2206     A     
 IO                 RJ     CRJ         * RJ =XROUT*                                        IO          2207     A     
 IO                 EQ     IOX         EXIT..                                              IO          2208     A     
 IO        CML      SPACE 4,8                                                              IO          2209     A     
 IO       **        CML - CHECK FOR MATCH IN LIST (TP.ILI)                                 IO          2210     A     
 IO       *                                                                                IO          2211     A     
 IO       *         I/O RESTART CALLS WILL BE ISSUED WHEN CERTAIN CONDITIONS ARE           IO          2212     A     
 IO       *         SATISFIED FOR ITEMS IN INPUT LISTS.                                    IO          2213     A     
 IO       *                                                                                IO          2214     A     
 IO       *         ENTRY  (X6) = PASS 2 TAG OF ITEM TO BE CHECKED                         IO          2215     A     
 IO       *                                                                                IO          2216     A     
 IO       *         KEEPS  X5,X6  B2,B4,B5,B6                                              IO          2217     A     
 IO       *         CALLS  IOJ                                                             IO          2218     A     
 IO                                                                                        IO          2219     A     
 IO                                                                                        IO          2220     A     
 IO        CML      SUBR   0                                                               IO          2221     A     
 IO                 SA2    TP=ILI      LENGTH OF LIST ITEM TABLE                           IO          2222     A     
 IO                 BX4    X6                                                              IO          2223     A     
 IO                 MX0    L.TAG                                                           IO          2224     A     
 IO                 SX1    X2-2        ALLOW FOR NAME OF ARRAY                             IO          2225     A     
 IO                 MI     X1,CMLX     IF TABLE EMPTY, EXIT                                IO          2226     A     
 IO                 LX0    -P.2EQUIV-1                                                     IO          2227     A     
 IO                 IFBIT  X4,2EQUIV,CML2 IF ITEM EQUIVED                                  IO          2228     A     
 IO                 SA3    TP.ILI      (X3) = FWA OF TABLE                                 IO          2229     A     
 IO                 BX4    X0*X4                                                           IO          2230     A     
 IO                 SA1    X3                                                              IO          2231     A     
 IO        CML1     IFBIT  X1,2EQUIV,CML2 IF ITEM IN TABLE EQUIVED                         IO          2232     A     
 IO                 BX1    X0*X1                                                           IO          2233     A     
 IO                 SX2    X2-1        DECREMENT LENGTH OF ITEMS                           IO          2234     A     
 IO                 IX7    X1-X4                                                           IO          2235     A     
 IO                 =A1    A1+1                                                            IO          2236     A     
 IO                 ZR     X7,CML2     IF TAGS MATCH                                       IO          2237     A     
 IO                 ZR     X2,CMLX     IF TABLE EXHAUSTED, EXIT                            IO          2238     A     
 IO                 EQ     CML1        CONTINUE TABLE SEARCH                               IO          2239     A     
 IO                                                                                        IO          2240     A     
 IO        CML2     SA6    CMLT1       X6 SAVED                                            IO          2241     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1200    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 SA4    TP=ILI                                                          IO          2242     A     
 IO                 BX6    X5                                                              IO          2243     A     
 IO                 IX0    X3+X4                                                           IO          2244     A     
 IO                 SA2    X0-1                                                            IO          2245     A     
 IO                 SX1    B2                                                              IO          2246     A     
 IO                 LX7    X2                                                              IO          2247     A     
 IO                 =A6    A6+1        X5 SAVED                                            IO          2248     A     
 IO                 SA7    CMLT2       ARRAY NAME IS RETAINED                              IO          2249     A     
 IO                 SX4    B5                                                              IO          2250     A     
 IO                 LX1    18                                                              IO          2251     A     
 IO                 BX0    X1+X4                                                           IO          2252     A     
 IO                 SX2    B6                                                              IO          2253     A     
 IO                 LX0    18                                                              IO          2254     A     
 IO                 BX7    X0+X2       B2,B5,B6 SAVED                                      IO          2255     A     
 IO                 =A7    A6+1                                                            IO          2256     A     
 IO                 BX6    -0                                                              IO          2257     A     
 IO                 RJ     IOJ         I/O APLIST INTERRUPT ISSUED                         IO          2258     A     
 IO                 SA4    CMLT2                                                           IO          2259     A     
 IO                 LX6    X4                                                              IO          2260     A     
 IO                 ADDWD  TP.ILI      ARRAY NAME IS RETAINED IN TABLE                     IO          2261     A     
 IO                 SA1    CMLT1                                                           IO          2262     A     
 IO                 =A4    A1+1                                                            IO          2263     A     
 IO                 BX6    X1          X6 RESTORED                                         IO          2264     A     
 IO                 =A2    A4+1                                                            IO          2265     A     
 IO                 BX5    X4          X5 RESTORED                                         IO          2266     A     
 IO                 SB6    X2          B6 RESTORED                                         IO          2267     A     
 IO                 AX2    18                                                              IO          2268     A     
 IO                 SB5    X2          B5                                                  IO          2269     A     
 IO                 AX2    18                                                              IO          2270     A     
 IO                 SB2    X2          B2                                                  IO          2271     A     
 IO                 EQ     CMLX        EXIT                                                IO          2272     A     
 IO                                                                                        IO          2273     A     
 IO        CMLT1    BSS    1           TEMPORARY FOR X6                                    IO          2274     A     
 IO                 BSS    1                         X5                                    IO          2275     A     
 IO                 BSS    1                         B2,B5,B6                              IO          2276     A     
 IO        CMLT2    BSS    1           TEMP FOR ARRAY NAME                                 IO          2277     A     
 IO        IOX      SPACE  4,8                                                             IO          2278     A     
 IO       **        IOX -  COMMON EXIT POINT FOR ALL I/O OPERATORS.                        IO          2279     A     
 IO                                                                                        IO          2280     A     
 IO                                                                                        IO          2281     A     
 IO        IOX      =B4    B4+L.TURP                                                       IO          2282     A     
 IO                 EQ     EIS.PNX     EXIT..                                              IO          2283     A     
 IO                                                                                        IO          2284     A     
 IO                 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     A     
 IO                 NOREF  EXIT.                                                           IO          2286     A     
 IO        JUMPTO   SECT   (LETTER GROUP / JUMPTO  TABLES.),1                              IO          2287     A     
 IO        JUMPTO.  SPACE  4,8                                                             IO          2288     A     
 IO       **        LGR    LETTER GROUP JUMPTO TABLE FOR KEYWORD STATEMENTS.               IO          2289     A     
 IO                                                                                        IO          2290     A     
 IO                                                                                        IO          2291     A     
 IO        LGR      BSS    0           BASE OF KEYWORD JUMPTO TABLE                        IO          2292     A     
 IO                                                                                        IO          2293     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1201    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                 LOC    0                                                               IO          2294     A     
 IO                 LIST   G           JUMPTO.                                             IO          2295     A     
 IO        ASSIGN   SATTR  0LASSI,ASSIGN=,EXU,(GEN,LBL),6                                  IO          2296     A     
 IO        TO       SATTR  0LTO,TO=,OK,(NIF),2                                             IO          2297     A     
 IO        BLOCKDA  SATTR  0LBLOC,BLOCKD=,1ST,(NIF),9                                      IO          2298     A     
 IO        CALL     SATTR  0LCALL,CALL=,EXU,(CDS,GEN,LBL),4                                IO          2299     A     
 IO        CONTINU  SATTR  0LCONT,CONTIN=,EXU,(GEN,LBL),8                                  IO          2300     A     
 IO        END      SATTR  0LEND,END=,END,(BKD,CDS,GEN,NIF),3                              IO          2301     A     
 IO        FUNCTIO  SATTR  0LFUNC,FUNCTI=,1ST,(NIF),8                                      IO          2302     A     
 IO        LDSET    SATTR  0LLDSE,LDSET=,1ST,(NIF),5                                       IO          2303     A     
 IO        OVERLAY  SATTR  0LOVER,OVERLA=,1ST,(NIF),7                                      IO          2304     A     
 IO        NAMELIS  SATTR  0LNAME,NAMELI=,ASF,(NIF),8                                      IO          2305          I
          -FCC0499
 IO        NAMELIS  SATTR  0LNAME,NAMELI=,OK,(NIF),8                                       FCC0499       53     A     
 IO        ENTRY    SATTR  0LENTR,ENTRY=,NTR,(CDS,GEN,NIF),5                               IO          2306     A     
 IO        .TEST    IFNE   TEST,0,1                                                        IO          2307     A     
 IO        PATCH    SATTR  0LPATC,PATCH=,OK,(BKD,NIF),5                                    IO          2308     A     
 IO        PAUSE    SATTR  0LPAUS,PAUSE=,EXU,(CDS,GEN,LBL),5                               IO          2309     A     
 IO        PROGRAM  SATTR  0LPROG,PROGRA=,1ST,(NIF),7                                      IO          2310     A     
 IO        RETURN   SATTR  0LRETU,RETURN=,EXU,(DON,GEN,LBL),6                              IO          2311     A     
 IO        GOTO     SATTR  0LGOTO,GOTO=,EXU,(DON,GEN,LBL),4                                IO          2312     A     
 IO        STOP     SATTR  0LSTOP,STOP=,EXU,(CDS,DON,GEN,LBL),4                            IO          2313     A     
 IO        SUBROUT  SATTR  0LSUBR,SUBROU=,1ST,(NIF),10                                     IO          2314     A     
 IO        DATA     SATTR  0LDATA,DATA=,DAT,(BKD,NIF),4                                    IO          2315     A     
 IO        ABNORMA  SATTR  0LABNO,ABNORM=,DEC,(NIF),8                                      IO          2316          I
          -FCC0966
 IO        COMMON   SATTR  0LCOMM,COMMON=,DEC,(BKD,NIF),6                                  IO          2317     A     
 IO        DIMENSI  SATTR  0LDIME,DIMENS=,DEC,(BKD,NIF),9                                  IO          2318     A     
 IO        EQUIVAL  SATTR  0LEQUI,EQUIVA=,DEC,(BKD,NIF),11                                 IO          2319     A     
 IO        EXTERNA  SATTR  0LEXTE,EXTERN=,DEC,(NIF),8                                      IO          2320     A     
 IO        LEVEL    SATTR  0LLEVE,LEVEL=,DEC,(BKD,NIF),5                                   IO          2321     A     
 IO        LOGICAL  SATTR  0LLOGI,LOGICA=,TYP,(BKD,NIF),7                                  IO          2322     A     
 IO        INTEGER  SATTR  0LINTE,INTEGE=,TYP,(BKD,NIF),7                                  IO          2323     A     
 IO        REAL     SATTR  0LREAL,REAL=,TYP,(BKD,NIF),4                                    IO          2324     A     
 IO        DOUBLE   SATTR  0LDOUB,DOUBLE=,TYP,(BKD,NIF),6                                  IO          2325     A     
 IO        PRECISI  SATTR  0LPREC,PRECIS=,OK,(NIF),9                                       IO          2326     A     
 IO        COMPLEX  SATTR  0LCOMP,COMPLE=,TYP,(BKD,NIF),7                                  IO          2327     A     
 IO        TYPE     SATTR  0LTYPE,TYPE=,TPE,(BKD,NIF),4                                    IO          2328     A     
 IO        IMPLICI  SATTR  0LIMPL,IMPLIC=,IMP,(BKD,NIF),8                                  IO          2329     A     
 IO        FORMAT   SATTR  0LFORM,FORMAT=,FMT,(LBL,NIF),6                                  IO          2330     A     
 IO        BACKSPA  SATTR  0LBACK,BACKSP=,EXU,(CDS,GEN,LBL),9                              IO          2331     A     
 IO        BUFFER   SATTR  0LBUFF,BUFFER=,EXU,(CDS,GEN,LBL),6                              IO          2332     A     
 IO        DECODE   SATTR  0LDECO,DECODE=,EXU,(CDS,GEN,LBL),6                              IO          2333     A     
 IO        ENDFILE  SATTR  0LENDF,ENDFIL=,EXU,(CDS,GEN,LBL),7                              IO          2334     A     
 IO        ENCODE   SATTR  0LENCO,ENCODE=,EXU,(CDS,GEN,LBL),6                              IO          2335     A     
 IO        PUNCH    SATTR  0LPUNC,PUNCH=,EXU,(CDS,GEN,LBL),5                               IO          2336     A     
 IO        PRINT    SATTR  0LPRIN,PRINT=,EXU,(CDS,GEN,LBL),5                               IO          2337     A     
 IO        REWIND   SATTR  0LREWI,REWIND=,EXU,(CDS,GEN,LBL),6                              IO          2338     A     
 IO        READ     SATTR  0LREAD,READ=,EXU,(CDS,GEN,LBL),4                                IO          2339     A     
 IO        WRITE    SATTR  0LWRIT,WRITE=,EXU,(CDS,GEN,LBL),5                               IO          2340     A     
 IO        LG.LEN   BSS    0           LENGTH OF KEYWORD TABLE                             IO          2341     A     
 IO                                                                                        IO          2342     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1202    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
 IO                                                                                        IO          2343     A     
 IO       **        FOLLOWING /JUMPTO./ WORDS ARE FAKE ENTRIES FOR SYNTACTICLLY            IO          2344     A     
 IO       *                RECOGNIZED STATEMENTS.                                          IO          2345     A     
 IO       *         THESE WORDS MUST EXIST, BUT THEY MAY NOT BE INCLUDED IN THE            IO          2346     A     
 IO       *         LENGTH SPECIFIED BY *LG.LEN*.                                          IO          2347     A     
 IO                                                                                        IO          2348     A     
 IO                                                                                        IO          2349     A     
 IO        ASF.     SATTR  -1,AFD,ASF,(NIF)                                                IO          2350     A     
 IO        DO.      SATTR  2LDO,SDO,EXU,(DON,GEN,LBL,NIF),2                                IO          2351     A     
 IO        IF.      SATTR  -1,IFS,EXU,(GEN,LBL)                                            IO          2352     A     
 IO        REP.     SATTR  -1,CNF,EXU,(GEN,LBL)                                            IO          2353     A     
 IO        EOS      SATTR  -1,END=,END,(BKD,CDS,GEN)                                       IO          2354     A     
 IO        NULL     SATTR  -1,PSN,EXU,(GEN,LBL)                                            IO          2355     A     
 IO                                                                                        IO          2356     A     
 IO                 LOC    *O                                                              IO          2357     A     
 IO        TYPES    CON    LGR+LOGICAL                                                     IO          2358     A     
 IO                 CON    LGR+INTEGER                                                     IO          2359     A     
 IO                 CON    LGR+REAL                                                        IO          2360     A     
 IO                 CON    LGR+DOUBLE                                                      IO          2361     A     
 IO                 CON    LGR+COMPLEX                                                     IO          2362     A     
 IO                 LIST   D                                                               IO          2363     A     
 IO                 END                                                                    IO          2364     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - IO      
  
          IDENTIFIER               TOTAL    ACTIVE
  
          IO                        2364      2043
          FCC0499                     11        11
          FCC0524                     30        30
          FCC0589                     11         9
          FCC0593                     15        14
          FCC0597                     12        11
          FEAT126A                     4         4
          FEAT126C                    14        11
          FCC0787                     33        33
          FCC0794                     15        15
          FCC0813                      2         2
          FCC0848                      2         2
          FCC0970                      4         4
          FCC1028                     15         9
          FEAT155B                    25        25
          FCC1046                      8         8
          FCC1068                      2         2
          FCC1169                     77        76
          FCC0995                      8         5
          FCC1134                     11        11
          FCC1275                      6         6
          FCC1320                      2         2
          FCC1337                      7         7
          FCC1449                      3         3
          FCC1551X                     5         5
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1203    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IO      
  
          FCC1550X                    13        13
          FCC1571X                    13        13
          FCC1709X                     4         4
          FCC1736X                     2         2
          FCC1769X                    13        13
          F162FTNA                    88        56
          FCCA408                     22        22
          FCC2031                      5         5
          FCC2115                     16        16
          FCCA543                      9         9
          FCCA540                      6         6
          FCC2330                      5         5
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM      *DECK     NUM                                                                    NUM            1     A     
 NUM                IDENT  NUM                                                             NUM            2     A     
 NUM       NUM      SECT   (STATEMENT NUMBER TRANSLATORS),1                                NUM            3     A     
 NUM                                                                                       NUM            4     A     
 NUM                SST    B,D,EXIT.                                                       NUM            5     A     
 NUM                NOREF  B,D,EXIT.                                                       NUM            6     A     
 NUM                                                                                       NUM            7     A     
 NUM       B=NUM    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             NUM            8     A     
 NUM                                                                                       NUM            9     A     
 NUM                ENTRY  PSN,GSN,STN0R,CUA,ISN,CLK,DLAB,DODO,ISN60,LABL                  NUM           10     A     
 NUM                ENTRY  CUAFLAG                                                         NUM           11          I
          -FCC0639
 NUM                ENTRY  CUAFLAG,ISASG                                                   FCC0639        6     A     
 NUM                ENTRY  LBDO                                                            FCC1728X       6     A     
 NUM                                                                                       NUM           12     A     
 NUM      *         IN FTN                                                                 NUM           13     A     
 NUM                EXT    CO.SNAP,LOP=R                                                   NUM           14     A     
 NUM                                                                                       NUM           15     A     
 NUM      *         IN TABLES                                                              NUM           16     A     
 NUM                EXT    CDORD,CSNTAG,DOORD,DTI,NOPATH,REFNUM,STN,TS.STN                 NUM           17     A     
 NUM                EXT    TP.DO,TP=DO,TT=SCR,TT.SCR                                       FCC1307        9     A     
 NUM                                                                                       NUM           18     A     
 NUM      *         IN ERRORS                                                              NUM           19     A     
 NUM                EXT    E.DO14,E.DO24,E.DO25,E.DO25A,E.DO26,E.SN,E.SN1,E.SN9            NUM           20          I
          -FCC1307
 NUM                EXT    E.SN12,E.SN13,E.SN14,E.SN15,FILL.,FILL.2,STNTD,STNTND           NUM           21          I
          -FCC1307
 NUM                EXT    E.SN19,E.SN20                                                   NUM           22          I
          -FCC1307
 NUM                EXT    E.SN18                                                          NUM           23          I
          -FCC1307
 NUM                EXT    E.DO12,E.DO24,E.DO25,E.DO25A,E.SN,E.SN9,E.SN12,E.SN13           FCC1307       10     A     
 NUM                EXT    E.SN14,E.SN15,E.SN18,E.SN19,E.SN20                              FCC1307       11     A     
 NUM                EXT    FILL.,FILL.2,STNTD,STNTND                                       FCC1307       12     A     
 NUM                                                                                       NUM           24     A     
 NUM      *         IN PIG                                                                 NUM           25     A     
 NUM                EXT    PIG                                                             NUM           26     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1204    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM                                                                                       NUM           27     A     
 NUM      *         IN MAP                                                                 NUM           28     A     
 NUM                EXT    SFN                                                             NUM           29     A     
 NUM                                                                                       NUM           30     A     
 NUM      *         IN ALLOC                                                               NUM           31     A     
 NUM                EXT    ERT,ESN,SSN                                                     NUM           32     A     
 NUM                                                                                       NUM           33     A     
 NUM      *         IN MAIN                                                                NUM           34     A     
 NUM                EXT    CPM,GSNX,CSB,WBL,WOF                                            NUM           35     A     
 NUM                                                                                       NUM           36     A     
 NUM      *         IN IF                                                                  NUM           37     A     
 NUM                EXT    INIF                                                            NUM           38     A     
 NUM                                                                                       NUM           39     A     
 NUM      *         IN DO                                                                  NUM           40     A     
 NUM                EXT    PDT                                                             NUM           41     A     
 NUM                                                                                       NUM           42     A     
 NUM      *         IN INIT                                                                NUM           43     A     
 NUM                EXT    TRVA                                                            NUM           44     A     
 NUM                                                                                       NUM           45     A     
 NUM       NUM      SPACE  4,8                                                             NUM           46     A     
 NUM      **        *NUM* IS A SECTION TO HANDLE MOST OF THE PROCESSING FOR                NUM           47     A     
 NUM      *                STATEMENT NUMBER REFERENCES AND DEFINITIONS.  IT                NUM           48     A     
 NUM      *                INTERFACES STRONGLY WITH *DO*, THE MASTER LOOP, AND             NUM           49     A     
 NUM      *                ALL KEYWORD STATEMENTS WHICH REFERENCE STATEMENT                NUM           50     A     
 NUM      *                NUMBERS.                                                        NUM           51     A     
 NUM       CUA      SPACE  4,8                                                             NUM           52     A     
 NUM      **        CUA -  ASSEMBLE (UPCOMING) STATEMENT NUMBER                            NUM           53     A     
 NUM      *         ENTRY  X1 = DPC STATEMENT NUMBER TO BE ASSEMBLED                       NUM           54     A     
 NUM      *                     (0L FORMAT, MUST HAVE AT LEAST 12 ZERO BITS TERM-          NUM           55     A     
 NUM      *                     INATING FIELD)                                             NUM           56     A     
 NUM      *         EXIT   (B2) = SHIFT COUNT NECESSARY TO LEFT-JUSTIFY (X6).              NUM           57     A     
 NUM      *                IF VALID LABEL --                                               NUM           58     A     
 NUM      *                  (X6) = DPC STATEMENT LABEL IN 0R FORM                         NUM           59     A     
 NUM      *                IF ERROR --                                                     NUM           60     A     
 NUM      *                  (X6) = -1                                                     NUM           61     A     
 NUM      *                                                                                NUM           62     A     
 NUM      *         POSTS ERRORS FOR ILL-FORMED STATEMENT LABELS.                          NUM           63     A     
 NUM      *         AND EXIT WITH STATEMENT NUMBER = TO *ERR.*                             NUM           64     A     
 NUM      *         USES   A1,A2  B2,B7  X0,X6,X7                                          NUM           65     A     
 NUM                                                                                       NUM           66     A     
 NUM                                                                                       NUM           67     A     
 NUM       CUAFLAG  BSS    1           NEGATIVE IF ZERO STATEMENT LABELS ALLOWED           NUM           68     A     
 NUM       CUA4     MI     B7,CUAE3    IF NON-NUMERIC                                      NUM           69     A     
 NUM                SB7    B7-10D                                                          NUM           70     A     
 NUM                PL     B7,CUAE3    IF NON-NUMERIC                                      NUM           71     A     
 NUM                                                                                       NUM           72     A     
 NUM       CUA6     BX2    -X0*X1      ISOLATE NEXT CHARACTER                              NUM           73     A     
 NUM                LX1    CHAR                                                            NUM           74     A     
 NUM                SB7    X2-1R                                                           NUM           75     A     
 NUM                ZR     B7,CUA6     IF BLANK, IGNORE                                    NUM           76     A     
 NUM                LX6    CHAR                                                            NUM           77     A     
 NUM                IX6    X6+X2       MERGE CHARACTER INTO ASSEMBLY                       NUM           78     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1205    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM                SB7    X2-1R0                                                          NUM           79     A     
 NUM                SB2    B2-CHAR                                                         NUM           80     A     
 NUM                NZ     X2,CUA4     IF NOT ZERO CHARACTER                               NUM           81     A     
 NUM                BX2    X6                                                              NUM           82     A     
 NUM                LX6    -CHAR                                                           NUM           83     A     
 NUM                AX2    6*CHAR                                                          NUM           84     A     
 NUM                NZ     X2,CUAE2    IF OVER FIVE NUMERIC CHARACTERS                     NUM           85     A     
 NUM                                                                                       NUM           86     A     
 NUM       CUA      SUBR   0                                                               NUM           87     A     
 NUM                BX6    X1                                                              NUM           88     A     
 NUM                MX0    -CHAR                                                           NUM           89     A     
 NUM                SB2    10*CHAR                                                         NUM           90     A     
 NUM                SA6    FILL.                                                           NUM           91     A     
 NUM                LX1    CHAR                                                            NUM           92     A     
 NUM                SX7    B0          IMPLIES NO LEADING ZERO FOUND                       NUM           93     A     
 NUM       CUA2     BX6    -X0*X1      ISOLATE LEADING CHARACTER                           NUM           94     A     
 NUM                LX1    CHAR                                                            NUM           95     A     
 NUM                SB7    X6-1R                                                           NUM           96     A     
 NUM                ZR     B7,CUA2     IF BLANK, IGNORE                                    NUM           97     A     
 NUM                SB7    X6-1R0                                                          NUM           98     A     
 NUM                ZR     B7,CUA3     IF LEADING ZERO                                     NUM           99     A     
 NUM                NZ     X6,CUA4     IF SIGNIFICANT CHARACTER                            NUM          100     A     
 NUM                ZR     X7,CUAX     IF NOT STATEMENT NUMBER ZERO                        NUM          101     A     
 NUM                SA1    CUAFLAG                                                         NUM          102     A     
 NUM                NG     X1,CUAE1    IF STATEMENT LABEL ZERO ALLOWED                     NUM          103     A     
 NUM                FATAL  E.SN19      STATEMENT LABEL ZERO IS ILLEGAL                     NUM          104     A     
 NUM                MX6    -1                                                              NUM          105     A     
 NUM                EQ     CUAX        EXIT..                                              NUM          106     A     
 NUM                                                                                       NUM          107     A     
 NUM       CUA3     SX7    B1          LEADING ZERO DETECTED                               NUM          108     A     
 NUM                EQ     CUA2                                                            NUM          109     A     
 NUM                                                                                       NUM          110     A     
 NUM      *         ERROR PROCESSING                                                       NUM          111     A     
 NUM                                                                                       NUM          112     A     
 NUM       CUAE1    NOTE   E.SN20      STATEMENT LABEL ZERO IGNORED                        NUM          113     A     
 NUM                MX6    0                                                               NUM          114     A     
 NUM                EQ     CUAX        EXIT..                                              NUM          115     A     
 NUM                                                                                       NUM          116     A     
 NUM       CUAE2    SB7    E.SN14                                                          NUM          117     A     
 NUM                JP     CUAE        CONTINUE.                                           NUM          118     A     
 NUM                                                                                       NUM          119     A     
 NUM       CUAE3    SB7    E.SN15                                                          NUM          120     A     
 NUM                                                                                       NUM          121     A     
 NUM       CUAE     FATAL  B7          OUTPUT ERROR MESSAGE                                NUM          122     A     
 NUM                MX6    -1                                                              NUM          123     A     
 NUM                EQ     CUAX        EXIT..                                              NUM          124     A     
 NUM       GSN      EJECT  4,15                                                            NUM          125     A     
 NUM      **        GSN -  GET STATEMENT NUMBER.                                           NUM          126     A     
 NUM      *                                                                                NUM          127     A     
 NUM      *         ENTRY  FROM *CUS*.  AN EXECUTABLE STATEMENT HAS BEEN                   NUM          128     A     
 NUM      *                     ENCOUNTERED WITH A NON-BLANK LABEL.                        NUM          129     A     
 NUM      *                (X6) = STATEMENT LABEL FIELD.                                   NUM          130     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1206    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM      *                (FILL.) = STATEMENT LABEL, LEFT-JUSTIFIED                       NUM          131     A     
 NUM      *                                                                                NUM          132     A     
 NUM      *         EXIT   INTO *CUS*.                                                     NUM          133     A     
 NUM      *                (STN) =  STATEMENT LABEL FIELD OF SOURCE CARD IN 0R             NUM          134     A     
 NUM      *                     FORMAT.                                                    NUM          135     A     
 NUM      *                (CSNTAG) = TAG OF THE STATEMENT LABEL.  42/ 0,  18/TAG          NUM          136     A     
 NUM      *                (DTI) = COPY OF (CSNTAG) IF THIS IS A DO-TERMINAL.              NUM          137     A     
 NUM      *                                                                                NUM          138     A     
 NUM      *         GENERAL FLOW                                                           NUM          139     A     
 NUM      *                                                                                NUM          140     A     
 NUM      *         IF THE STATEMENT LABEL ON THE SOURCE CARD  IS NOT                      NUM          141     A     
 NUM      *         IN TS.STN WE UPDATE (TG.SN) AND ADD TAG TO TS.STN SETTING THE          NUM          142     A     
 NUM      *         DEFINED BIT.  IF IT IS IN TS.STN WE CHECK IF THE DEFINED BIT           NUM          143     A     
 NUM      *         IS ON, IF SO, WE PUMP OUT A *FATAL* ERROR OF A DUPLICATE               NUM          144     A     
 NUM      *         STATEMENT NUMBER AND CONTINUE, IGNORING THE STATEMENT LABEL.           NUM          145     A     
 NUM      *                                                                                NUM          146     A     
 NUM      *         CALLS  ADDREF, ADSTN, RLK, SSN.                                        NUM          147     A     
 NUM                                                                                       NUM          148     A     
 NUM                                                                                       NUM          149     A     
 NUM       GSN      BSS    0           ENTRY/EXIT...                                       NUM          150     A     
 NUM                MI     X6,GSNX     IF ERROR - EXIT..                                   NUM          151     A     
 NUM                LX6    P.STN                                                           NUM          152     A     
 NUM                SCAN   TS.STN,SSN                                                      NUM          153     A     
 NUM                =X7    M.SNDEF                                                         NUM          154     A     
 NUM                MI     B7,GSN5     IF *NIT*                                            NUM          155     A     
 NUM                IFBIT  X2,-SNDEF,GSN10     IF *NOT-DEFINED*                            NUM          156     A     
 NUM                                                                                       NUM          157     A     
 NUM      **        HERE IF *STATEMENT NUMBER* IS IN TABLE AND *DEFINED*                   NUM          158     A     
 NUM      *         ERROR - DUPLICATE STATEMENT NUMBER DEFINITION.                         NUM          159     A     
 NUM                                                                                       NUM          160     A     
 NUM                FATAL  E.SN                                                            NUM          161     A     
 NUM                SA1    ="SERR."                                                        NUM          162     A     
 NUM                BX7    X1                                                              NUM          163     A     
 NUM                SA7    STN                                                             NUM          164     A     
 NUM                EQ     GSN60       CONTINUE..  (TO ENTER REF-TAB)                      NUM          165     A     
 NUM                                                                                       NUM          166     A     
 NUM      **        HERE IF *STATEMENT NUMBER* IS NOT IN TABLE.                            NUM          167     A     
 NUM                                                                                       NUM          168     A     
 NUM       GSN5     =X0    M.SNLAB                                                         NUM          169     A     
 NUM                BX7    X0+X7                                                           NUM          170     A     
 NUM                ADSTN  A1          ADD TO TABLE.                                       NUM          171     A     
 NUM                SA3    DOORD                                                           NUM          172     A     
 NUM                =B7    B7+1        TAG ORDINAL                                         NUM          173     A     
 NUM                ZR     X3,GSN45    IF NOT IN *DO*                                      NUM          174     A     
 NUM                SA1    TS.STN                                                          NUM          175     A     
 NUM                RJ     SDL         SET DEFINITION LINK                                 NUM          176     A     
 NUM                EQ     GSN45       CONTINUE.                                           NUM          177     A     
 NUM                                                                                       NUM          178     A     
 NUM      **        HERE IF *STATEMENT NUMBER* IS IN TABLE.                                NUM          179     A     
 NUM      *                AND IS NOT-DEFINED.                                             NUM          180     A     
 NUM                                                                                       NUM          181     A     
 NUM       GSN10    SA3    DOORD                                                           NUM          182     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1207    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM                IFBIT  X2,SNLAB/SNDEF,GSN11                                            NUM          183     A     
 NUM                SB2    B7                                                              NUM          184     A     
 NUM                FATAL  E.SN13      PREVIOUS USE AS A FORMAT NUMBER.                    NUM          185     A     
 NUM                SB7    B2                                                              NUM          186     A     
 NUM                SA1    TS.STN                                                          NUM          187     A     
 NUM                BX3    0                                                               NUM          188     A     
 NUM       GSN11    BX6    X6+X7                                                           NUM          189     A     
 NUM                IFBIT  X2,-SNDOT/SNLAB,GSN20                                           NUM          190     A     
 NUM                BX7    X6                                                              NUM          191     A     
 NUM                =X3    0                                                               NUM          192     A     
 NUM                AX7    P.TAG                                                           NUM          193     A     
 NUM                SA7    DTI         INDICATE *DO* TERMINATION                           NUM          194     A     
 NUM                                                                                       NUM          195     A     
 NUM       GSN20    =B7    B7+1        ORDINAL OF *TAG* ENTRY.                             NUM          196     A     
 NUM                SA6    A2          RESET TAG INDICATING DEFINED.                       NUM          197     A     
 NUM                ZR     X3,GSN45    IF NOT IN *DO*.                                     NUM          198     A     
 NUM                SA1    A1                                                              NUM          199     A     
 NUM                RJ     SDL         SET DEFINITION LINK                                 NUM          200     A     
 NUM       GSN45    AX6    P.TAG                                                           NUM          201     A     
 NUM                SA6    CSNTAG      SET CURRENT STATEMENT TAG.                          NUM          202     A     
 NUM                LX6    P.TAG                                                           NUM          203     A     
 NUM       GSN60    ADDREF X6,CR.LAB,GSNX    ADD TO CROSS REF TABLE                        NUM          204     A     
 NUM       ISN      EJECT                                                                  NUM          205     A     
 NUM      **        ISN -  IDENTIFY STATEMENT NUMBER                                       NUM          206     A     
 NUM      *                                                                                NUM          207     A     
 NUM      *         ENTRY  (X6) = STATEMENT NUMBER (0L FORMAT)                             NUM          208     A     
 NUM      *                                                                                NUM          209     A     
 NUM      *                (B2) = USAGE DEFINITION FOR STATEMENT NUMBER.                   NUM          210     A     
 NUM      *                EITHER --                                                       NUM          211     A     
 NUM      *                M.SNLAB = CONTROL LABEL, IE. GO TO 1                            NUM          212     A     
 NUM      *                M.SNFMT = FORMAT LABEL.  IE. PRINT 1                            NUM          213     A     
 NUM      *                M.SNDOT = DO DEFINITION. IE. DO    1                            NUM          214     A     
 NUM      *                                                                                NUM          215     A     
 NUM      *                (REFNUM)= TYPE OF REFERENCE FOR *CROSS REFERENCE*               NUM          216     A     
 NUM      *                          PROCESSOR.                                            NUM          217     A     
 NUM      *                                                                                NUM          218     A     
 NUM      *         EXIT   (X6) = TAG FOR STATEMENT NUMBER.                                NUM          219     A     
 NUM      *                (B7) = ORDINAL OF TAG ENTRY IN TS.STN                           NUM          220     A     
 NUM      *                                                                                NUM          221     A     
 NUM      *         NOTE   (X6) = -1 IF SYNTAX ERROR IN STATEMENT NUMBER                   NUM          222     A     
 NUM      *                                                                                NUM          223     A     
 NUM      *         USES   A1,A2,A3  X0  B2,B7                                             NUM          224          I
          -FCC1307
 NUM      *         USES   A1,A2,A3,A6,A7  X0,X1,X3,X6,X7  B2,B7                           FCC1307       13     A     
 NUM      *                FILL.2 = CURRENT STATEMENT NUMBER IN 0L FORM.                   NUM          225     A     
 NUM      *                                                                                NUM          226     A     
 NUM      *         CALLS  ADSTN, CUA, RLK                                                 NUM          227     A     
 NUM                                                                                       NUM          228     A     
 NUM       ISASG    BSSZ   1           ASSIGN STATEMENT FLAG (.NE. 0 ON ASSIGN)            FCC0639        7     A     
 NUM                                                                                       NUM          229     A     
 NUM      **        PROCESS ERROR  (X1) = - ERROR ADDRESS.                                 NUM          230     A     
 NUM                                                                                       NUM          231     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1208    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM       ISNEX1   MX2    45          USAGE CONFLICT ERROR EXIT                           NUM          232     A     
 NUM                BX1    -X2*X1                                                          NUM          233     A     
 NUM                SB2    X1                                                              NUM          234     A     
 NUM                                                                                       NUM          235     A     
 NUM      **        OUTPUT ERROR  (B2) _ ERROR                                             NUM          236     A     
 NUM                                                                                       NUM          237     A     
 NUM       ISNEX    SX2    B7          SAVE ORDINAL                                        NUM          238     A     
 NUM                FATAL  B2          OUTPUT ERROR                                        NUM          239     A     
 NUM                SB7    X2          RESTORE ORDINAL. ( X6 PRESERVED ACROSS ERR)         NUM          240     A     
 NUM                MX6    59          (X6) = -1 IMPLIES ERROR IN DO                       NUM          241     A     
 NUM                EQ     ISNX        EXIT..                                              NUM          242     A     
 NUM                                                                                       NUM          243     A     
 NUM      **        SET TAG IN TABLE ADDING DEFINED BITS FOR USAGE                         NUM          244     A     
 NUM      *         (X2) = USAGE.                                                          NUM          245     A     
 NUM      *         (X6) = TAG FOR STATEMENT NUMBER.                                       NUM          246     A     
 NUM      *         (B7) = TAG ORDINAL.                                                    NUM          247     A     
 NUM                                                                                       NUM          248     A     
 NUM       ISN60    SA1    TS.STN                                                          NUM          249     A     
 NUM                BX6    X6+X2                                                           NUM          250     A     
 NUM                SA6    X1+B7       REPLACE TAG REFLECTING USE.                         NUM          251     A     
 NUM                SA3    DOORD                                                           NUM          252     A     
 NUM                                                                                       NUM          253     A     
 NUM      **        SET LINK IF INSIDE DO AND ADD NUMBER TO CROSS REF TABLE                NUM          254     A     
 NUM      *         (X1) = (TS.STN)                                                        NUM          255     A     
 NUM      *         (X2) = USAGE.                                                          NUM          256     A     
 NUM      *         (X3) = (DOORD)                                                         NUM          257     A     
 NUM      *         (X6) = UPDATED TAG.                                                    NUM          258     A     
 NUM                                                                                       NUM          259     A     
 NUM       ISN70    =X0    M.SNFMT                                                         NUM          260     A     
 NUM                BX7    X0*X2                                                           NUM          261     A     
 NUM                NZ     X7,ISN72    IF PROCESSING FORMAT                                NUM          262     A     
 NUM                =X0    M.SNDOT                                                         NUM          263     A     
 NUM                ZR     X3,ISN72    IF NOT IN A *DO*                                    NUM          264     A     
 NUM                BX7    X0*X2                                                           NUM          265     A     
 NUM                SA2    ISASG                                                           FCC0639        8     A     
 NUM                NZ     X7,ISN72    IF DEFINES NESTING                                  NUM          266     A     
 NUM                SA7    A2                                                              FCC0639        9     A     
 NUM                NZ     X2,ISN72    IF PROCESSING ASSIGN STATEMENT                      FCC0639       10     A     
 NUM                RJ     SRL         SET REFERENCE LINK                                  NUM          267     A     
 NUM                                                                                       NUM          268     A     
 NUM      **        ADD NUMBER TO CROSS REFERENCE TABLE -- IF SELECTED.                    NUM          269     A     
 NUM                                                                                       NUM          270     A     
 NUM       ISN72    SA2    LOP=R                                                           NUM          271     A     
 NUM                PL     X2,ISNX     IF NO CROSS REFERENCE.                              NUM          272     A     
 NUM                SA1    REFNUM                                                          NUM          273     A     
 NUM                BX3    X6                                                              NUM          274     A     
 NUM                SA6    TRVA        SAVE TAG                                            NUM          275     A     
 NUM                SX6    B7                                                              NUM          276     A     
 NUM                =A6    A6+1        SAVE ORDINAL                                        NUM          277     A     
 NUM                ADDREF X3,X1                                                           NUM          278     A     
 NUM                SA1    TRVA                                                            NUM          279     A     
 NUM                =A2    A1+1                                                            NUM          280     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1209    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM                BX6    X1          RESTORE TAG                                         NUM          281     A     
 NUM                SB7    X2          RESTORE ORDINAL                                     NUM          282     A     
 NUM                                                                                       NUM          283     A     
 NUM                                                                                       NUM          284     A     
 NUM       ISN      SUBR   0                                                               NUM          285     A     
 NUM                                                                                       NUM          286     A     
 NUM      *         FORM STATEMENT NUMBER                                                  NUM          287     A     
 NUM                                                                                       NUM          288     A     
 NUM                SX0    X6-2        PICK OUT TOKEN TYPE                                 NUM          289          I
          -FCC1307
 NUM                SX0    X6-O.CONS                                                       FCC1307       14     A     
 NUM                ZR     X0,ISN2     IF DIGIT STRING                                     NUM          290     A     
 NUM                SX0    X6                                                              NUM          291     A     
 NUM                NZ     X0,E.SN18   IF TYPED OTHER THAN DIGIT STRING                    NUM          292     A     
 NUM       ISN2     MX0    L.SYM                                                           NUM          293     A     
 NUM                BX6    X0*X6                                                           NUM          294     A     
 NUM                SA3    DOORD                                                           NUM          295     A     
 NUM                SX2    B2          USAGE                                               NUM          296     A     
 NUM                SA6    FILL.2      IN CASE OF ANY ERROR.                               NUM          297     A     
 NUM                BX0    0                                                               NUM          298     A     
 NUM                ZR     X3,ISN3     IF NOT INSIDE DO                                    NUM          299     A     
 NUM                =X0    M.SNREF                                                         NUM          300     A     
 NUM       ISN3     BX7    -X0*X2      SELECTIVELY BRING DOWN REF BIT                      NUM          301     A     
 NUM                LX1    X6                                                              NUM          302     A     
 NUM                SA7    STNUSE      SET USAGE DEFINITION.                               NUM          303     A     
 NUM                RJ     CUA                                                             NUM          304     A     
 NUM                SA6    STN0R       SAVE 0R NUMBER.                                     NUM          305     A     
 NUM                MI     X6,ISNX     IF ERROR - EXIT..                                   NUM          306     A     
 NUM                SA1    TS.STN                                                          NUM          307     A     
 NUM                LX6    P.STN                                                           NUM          308     A     
 NUM                SCAN   A1,SSN                                                          NUM          309     A     
 NUM                MI     B7,ISN40    IF *STATEMENT NUMBER* NOT IN TABLE.                 NUM          310     A     
 NUM                                                                                       NUM          311     A     
 NUM      **        STATEMENT NUMBER ALREADY IN TABLE                                      NUM          312     A     
 NUM      *         CHECK VALIDITY OF CURRENT USE                                          NUM          313     A     
 NUM                                                                                       NUM          314     A     
 NUM                BX0    X6                                                              NUM          315     A     
 NUM                SB3    STNTD                                                           NUM          316     A     
 NUM                IFBIT  X0,SNDEF,ISN10                                                  NUM          317     A     
 NUM                SB3    STNTND                                                          NUM          318     A     
 NUM       ISN10    =X0    M.SNLAB+M.SNFMT+M.SNDOT                                         NUM          319     A     
 NUM                BX2    X0*X6       BRING DOWN SELECTIVE BITS (TABLE)                   NUM          320     A     
 NUM                NX3,B2 X2                                                              NUM          321     A     
 NUM                SA1    STNUSE                                                          NUM          322     A     
 NUM                SB2    B2-47+P.SNLAB                                                   NUM          323     A     
 NUM                BX2    X0*X1       BRING DOWN SELECTIVE BITS (REFERENCE)               NUM          324     A     
 NUM                SA1    B2+B3                                                           NUM          325     A     
 NUM                NX3,B2 X2                                                              NUM          326     A     
 NUM                =B7    B7+1        ORDINAL OF TAG ENTRY                                NUM          327     A     
 NUM                SX0    B2-47+P.SNLAB                                                   NUM          328     A     
 NUM                BX0    -X0                                                             NUM          329     A     
 NUM                LX0    4           *16                                                 NUM          330     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1210    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM                SB2    X0                                                              NUM          331     A     
 NUM                LX1    B2,X1                                                           NUM          332     A     
 NUM                SA2    STNUSE      USE                                                 NUM          333     A     
 NUM                AX1    60-16       BACK TO LOW ORDER.                                  NUM          334     A     
 NUM                SB2    X1                                                              NUM          335     A     
 NUM                MI     X1,ISNEX1   IF ERROR.                                           NUM          336     A     
 NUM                                                                                       NUM          337     A     
 NUM                JP     B2          JUMP TO CHECK REFERENCE                             NUM          338     A     
 NUM                                                                                       FCC1728X       7     A     
 NUM       LBDO     BX0    X6                                                              FCC1728X       8     A     
 NUM                IFBIT  X0,-SNREF,LBDO1 IF STATEMENT NUMBER NOT DEFINED                 FCC1728X       9     A     
 NUM                =X7    M.SNE       IS ENTRY TO *DO*                                    FCC1728X      10     A     
 NUM                BX6    X7+X6                                                           FCC1728X      11     A     
 NUM       LBDO1    BX6    X2+X6                                                           FCC1728X      12     A     
 NUM                SA1    TS.STN      STATEMENT NUMBER TABLE                              FCC1728X      13     A     
 NUM                SA6    X1+B7                                                           FCC1728X      14     A     
 NUM                EQ     ISN72                                                           FCC1728X      15     A     
 NUM                SPACE  4,12                                                            NUM          339     A     
 NUM      **        STATEMENT NUMBER PREVIOUSLY REFERENCED BUT NOT DEFINED.                NUM          340     A     
 NUM      *         A.  CHECK IF DO NUMBER REFERENCED INSIDE CURRENT DO NEST -  IF         NUM          341          I
          -FCC1307
 NUM      *             SO ERROR - ILLEGAL TRANSFER                                        NUM          342          I
          -FCC1307
 NUM      *         B.  CHECK IF DO NUMBER WAS REFERENCED PREVIOUSLY FROM OUTSIDE          NUM          343          I
          -FCC1307
 NUM      *             DO - IF SO - ILLEGAL TRANSFER                                      NUM          344          I
          -FCC1307
 NUM      *         C.  IF NONE OF ABOVE - NEW DEFINITION OK.                              NUM          345          I
          -FCC1307
 NUM      *         A.  CHECK IF DO LABEL ALREADY DEFINED AS A DO TERMINAL.  IF            FCC1307       15     A     
 NUM      *             NOT -  GO TO B.  IF SO - CHECK FOR LEGAL NESTING.                  FCC1307       16     A     
 NUM      *         B.  CHECK IF DO LABEL REFERENCED OUTSIDE DO NEST.  IF SO -             FCC1307       17     A     
 NUM      *             SET ENTRY FLAG.                                                    FCC1307       18     A     
 NUM      *         C.  IF NOT - OK.                                                       FCC1307       19     A     
 NUM                                                                                       NUM          346     A     
 NUM       DODO     BX0    X6                                                              NUM          347     A     
 NUM                SB2    E.SN1                                                           NUM          348          I
          -FCC1307
 NUM                IFBIT  X0,-SNREF/SNX,ISN72                                             NUM          349          I
          -FCC1307
 NUM                EQ     ISNEX       ERROR EXIT..                                        NUM          350          I
          -FCC1307
 NUM                IFBIT  X0,-SNDOT,DODO1 IF NOT ALREADY DO TERMINAL                      FCC1307       20     A     
 NUM                SA3    DOORD                                                           FCC1307       21     A     
 NUM                BX1    X6                                                              FCC1307       22     A     
 NUM                LX1    -P.TAG                                                          FCC1307       23     A     
 NUM                SX1    X1-C.STN                                                        FCC1307       24     A     
 NUM                IX1    X1-X3                                                           FCC1307       25     A     
 NUM                ZR     X1,DODO1    IF LEGAL NESTING                                    FCC1307       26     A     
 NUM                SA1    TS.STN                                                          FCC1307       27     A     
 NUM                SX0    M.SNDOT                                                         FCC1307       28     A     
 NUM                BX6    -X0*X6      CLEAR DO TERMINAL BIT                               FCC1307       29     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1211    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM                SA6    X1+B7                                                           FCC1307       30     A     
 NUM                RJ     RDE         REMOVE DO ENTRY                                     FCC1307       31     A     
 NUM                SB2    E.DO12                                                          FCC1307       32     A     
 NUM                EQ     ISNEX                                                           FCC1307       33     A     
 NUM                                                                                       FCC1307       34     A     
 NUM       DODO1    IFBIT  X0,-SNREF/SNDOT,ISN72  IF NOT REFERENCED                        FCC1307       35     A     
 NUM                NZ     X3,DODO2    IF NESTING                                          FCC1307       36     A     
 NUM                BX6    X6+X2                                                           FCC1307       37     A     
 NUM       DODO2    =X7    M.SNE                                                           FCC1307       38     A     
 NUM                BX6    X6+X7                                                           FCC1307       39     A     
 NUM                SA1    TS.STN                                                          FCC1307       40     A     
 NUM                SA6    X1+B7                                                           FCC1307       41     A     
 NUM                EQ     ISN72                                                           FCC1307       42     A     
 NUM                SPACE  4,12                                                            NUM          351     A     
 NUM      **        STATMENT NUMBER PREVIOUSLY DEFINED                                     NUM          352          I
          -FCC1307
 NUM      **        STATEMENT NUMBER PREVIOUSLY DEFINED                                    FCC1307       43     A     
 NUM      *         A.  IF DO LOOP REFERENCING HAS AN EXTENDED RANGE - GO TO B.            NUM          353     A     
 NUM      *             IF NOT FATAL ERROR -- TRANSFER TO CLOSED LOOP.                     NUM          354     A     
 NUM      *         B.  IF DO LOOP NOT NESTED ON SAME NUMBER - TRANSFER OK.  IF SO         NUM          355     A     
 NUM      *             FATAL ERROR ILLEGAL TRANSFER.                                      NUM          356     A     
 NUM                                                                                       NUM          357     A     
 NUM       DLAB     BX0    X6                                                              NUM          358     A     
 NUM                SB2    E.SN9                                                           NUM          359     A     
 NUM                IFBIT  X0,-SNOPE,ISNEX   IF LOOP IS OPEN. (HAS EXTENDED RANGE)         NUM          360     A     
 NUM                EQ     ISN60                                                           NUM          361     A     
 NUM                                                                                       NUM          362     A     
 NUM      **        C.  IF NUMBER REFERENCING IS ACTIVE - TRANSFER OK.  IF NOT             NUM          363     A     
 NUM      *             FATAL ERROR -- TRANSFER TO INSIDE A CLOSED D LOOP.                 NUM          364     A     
 NUM                                                                                       NUM          365     A     
 NUM       LABL     SA3    DOORD                                                           NUM          366     A     
 NUM                NZ     X3,ISN60    IF IN *DO*                                          NUM          367     A     
 NUM                BX0    X6                                                              NUM          368     A     
 NUM                IFBIT  X0,-SNINA,ISN60   IF NOT REFERENCE TO INACTIVE LABEL            NUM          369     A     
 NUM                SB2    E.DO24                                                          NUM          370     A     
 NUM                EQ     ISNEX       ERROR EXIT..                                        NUM          371     A     
 NUM                SPACE  4,12                                                            NUM          372     A     
 NUM      **        STATEMENT NUMBERS FIRST USE                                            NUM          373     A     
 NUM      *         A.  ADD IN USAGE BITS                                                  NUM          374     A     
 NUM      *         B.  ADD NUMBER TO STATEMENT NUMBER TABLE                               NUM          375     A     
 NUM      *         C.  CONTINUE, CHECKING CROSS REFERENCE, AND LINK                       NUM          376     A     
 NUM                                                                                       NUM          377     A     
 NUM       ISN40    SA2    STNUSE                                                          NUM          378     A     
 NUM                SX7    X2          TYPE OF REFERENCE.                                  NUM          379     A     
 NUM                ADSTN  A1          ADD STATEMENT NUMBER / TAG TO TABLE.                NUM          380     A     
 NUM                SA3    DOORD                                                           NUM          381     A     
 NUM                =B7    B7+1        TAG ORDINAL                                         NUM          382     A     
 NUM                SA2    STNUSE      RELOAD USAGE                                        NUM          383     A     
 NUM                SA1    TS.STN      RELOAD TS.STN                                       NUM          384     A     
 NUM                EQ     ISN70       CONTINUE                                            NUM          385     A     
 NUM                EJECT                                                                  NUM          386     A     
 NUM       STNUSE   DATA   0           TYPE OF REFERENCE ON ENTRY TO *ISN*                 NUM          387     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1212    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM       STN0R    DATA   0           STATEMENT NUMBER IN 0R FORMAT.                      NUM          388     A     
 NUM       PSN      EJECT  4,20                                                            NUM          389     A     
 NUM      **        PSN -  PROCESS STATEMENT LABEL.                                        NUM          390     A     
 NUM      *                                                                                NUM          391     A     
 NUM      *         ENTRY  (STN) = STATEMENT LABEL ON CURRENT CARD PROCESSING.             NUM          392     A     
 NUM      *                (DTI) = TAG OF STATEMENT LABEL IF THIS IS A DO-TERMINAL         NUM          393     A     
 NUM      *                (INIF) = L.TAG TO BE COMPILED IN FRONT OF NEXT STATEMEN         NUM          394     A     
 NUM      *                            FOR JUMP AROUND ANY ONE-BRANCH *IF*.                NUM          395     A     
 NUM      *                                                                                NUM          396     A     
 NUM      *         EXIT   IF STATEMENT LABEL PRESENT --                                   NUM          397     A     
 NUM      *                1. IF *DO* NUMBER PROCESS *DO* CONCLUSION CODE                  NUM          398     A     
 NUM      *                2. CLEAR ALL REGISTER ASSOCIATE.                                NUM          399     A     
 NUM      *                3. IF PART OF FORWARD *IF* CODE RESET REGISTER                  NUM          400     A     
 NUM      *                   ASSOCIATES TO WHAT THERE WHERE BEFORE IF JUMP WAS            NUM          401     A     
 NUM      *                   PROCESSED.                                                   NUM          402     A     
 NUM      *                4. CALL *PIG* TO PRINT INSTRUCTION GROUP COMPILED FOR           NUM          403     A     
 NUM      *                   THIS STATEMENT.                                              NUM          404     A     
 NUM      *                                                                                NUM          405     A     
 NUM      *                EXIT TO COMPILERS MASTER LOOP.                                  NUM          406     A     
 NUM      *                                                                                NUM          407     A     
 NUM      *         USES   ALL REGISTERS.                                                  NUM          408     A     
 NUM      *                                                                                NUM          409     A     
 NUM      *         CALLS  CSB, PDT, PIG                                                   NUM          410     A     
 NUM                                                                                       NUM          411     A     
 NUM                                                                                       NUM          412     A     
 NUM       PSN      SA2    INIF                                                            NUM          413     A     
 NUM                ZR     X2,PSN2     IF NO ACTIVE *IF*                                   NUM          414     A     
 NUM                BX6    0                                                               NUM          415     A     
 NUM                SA6    NOPATH                                                          NUM          416     A     
 NUM       PSN2     RJ     CSB         CHECK FOR SEQUENCE BREAK                            NUM          417     A     
 NUM                                                                                       NUM          418     A     
 NUM      **        COMPILE DO-TERMINATION CODE, IF NECESSARY.                             NUM          419     A     
 NUM                                                                                       NUM          420     A     
 NUM                SA2    DTI                                                             NUM          421     A     
 NUM                ZR     X2,PSN8     IF NO DO-TERMINATION                                NUM          422     A     
 NUM                LX2    P.DOTAG                                                         NUM          423     A     
 NUM                RJ     PDT         PROCESS *DO* TERMINATION                            NUM          424     A     
 NUM                                                                                       NUM          425     A     
 NUM      **        PROCESS INSTRUCTION GROUP.                                             NUM          426     A     
 NUM                                                                                       NUM          427     A     
 NUM       PSN8     RJ     PIG         PROCESS INSTRUCTION GROUP                           NUM          428     A     
 NUM                EQ     CPM         EXIT..  (TO MASTER LOOP)                            NUM          429     A     
 NUM       CLK      SPACE  4,8                                                             NUM          430     A     
 NUM      **        CLK -  CLEAR LINKS FOR STATEMENT NUMBERS INSIDE CURRENT *DO*           NUM          431     A     
 NUM      *         NEST BEING CLOSED.                                                     NUM          432     A     
 NUM      *                                                                                NUM          433     A     
 NUM      *         ENTRY  (DOORD) = STARTING ORDINAL FOR DO NEST                          NUM          434     A     
 NUM      *                (CDORD) = STARTING ORDINAL FOR CURRENT DO                       NUM          435     A     
 NUM      *                                                                                NUM          436     A     
 NUM      *         EXIT   LINKS CLEARED                                                   NUM          437     A     
 NUM      *                                                                                NUM          438     A     
 NUM      *         USES   A1,A2,A3,A4,A6,A7  X0  B2,B3,B6,B7                              NUM          439     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1213    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM                                                                                       NUM          440     A     
 NUM                                                                                       NUM          441     A     
 NUM       CLK      SUBR               ENTRY/EXIT..                                        NUM          442     A     
 NUM       TEST     IFNE   TEST                                                            NUM          443     A     
 NUM                RJ     PRLKH       PRINT LINK DUMP HEADER                              NUM          444     A     
 NUM       TEST     ENDIF  TEST                                                            NUM          445     A     
 NUM                SA2    DOORD                                                           NUM          446     A     
 NUM                SA1    TS.STN                                                          NUM          447     A     
 NUM                SB6    X2                                                              NUM          448     A     
 NUM                MX0    -L.SLINK                                                        NUM          449     A     
 NUM                SA4    CDORD                                                           NUM          450     A     
 NUM                SA3    X1+B6       1ST LINKED NUMBER                                   NUM          451     A     
 NUM                =X6    M.SNX                                                           NUM          452     A     
 NUM                SB3    X4          ENDING LINK                                         NUM          453     A     
 NUM                LX0    P.SLINK                                                         NUM          454     A     
 NUM                BX4    -X0*X3                                                          NUM          455     A     
 NUM                =X2    M.SNE                                                           NUM          456     A     
 NUM                =B7    -1                                                              NUM          457     A     
 NUM                SB2    X1                                                              NUM          458     A     
 NUM                =X7    0                                                               NUM          459     A     
 NUM                                                                                       NUM          460     A     
 NUM      **        SCAN LINKS TO SEE WHAT TYPE OF *DO* I HAVE                             NUM          461     A     
 NUM      *         (B2) = (TS.STN)                                                        NUM          462     A     
 NUM      *         (B3) = (CDORD) BEGINNING OF NEST                                       NUM          463     A     
 NUM      *         (B6) = (DOORD) DO BEING DEFINED                                        NUM          464     A     
 NUM      *         (X2) = M.SNE                                                           NUM          465     A     
 NUM      *         (X6) = M.SNX                                                           NUM          466     A     
 NUM                                                                                       NUM          467     A     
 NUM       CLK5     LX4    -P.SLINK                                                        NUM          468     A     
 NUM                EQ     B7,B3,CLK30 IF END OF CURRENT *DO* LINK                         NUM          469     A     
 NUM                SB7    X4                                                              NUM          470     A     
 NUM       TEST     IFNE   TEST                                                            NUM          471     A     
 NUM                RJ     PRLINK                                                          NUM          472     A     
 NUM       TEST     ENDIF  TEST                                                            NUM          473     A     
 NUM                BX1    X6*X3                                                           NUM          474     A     
 NUM                ZR     X1,CLK7     IF DOES NOT DEFINE A POSSIBLE EXIT                  NUM          475     A     
 NUM                BX1    X2*X3                                                           NUM          476     A     
 NUM                NZ     X1,CLK6     IF ALSO DEFINED IN LOOP - EXIT NOT SET              NUM          477     A     
 NUM                                                                                       NUM          478     A     
 NUM      **        NUMBER WAS REFERENCED INSIDE DO BUT NOT DEFINED                        NUM          479     A     
 NUM      *         SETS DO HAS AN EXTENDED RANGE                                          NUM          480     A     
 NUM                                                                                       NUM          481     A     
 NUM                BX7    X7+X6       DEFINE DO HAS EXIT                                  NUM          482     A     
 NUM                                                                                       NUM          483     A     
 NUM      **        SET *SNREF* FOR NUMBERS THAT WERE REFERENCED INSIDE CURRENT DO         NUM          484     A     
 NUM                                                                                       NUM          485     A     
 NUM       CLK6     =X1    M.SNREF                                                         NUM          486     A     
 NUM                BX6    X1+X3                                                           NUM          487     A     
 NUM                SA6    A3          SET REFERENCE BIT                                   NUM          488     A     
 NUM                =X6    M.SNX                                                           NUM          489     A     
 NUM                EQ     CLK10       CONTINUE                                            NUM          490     A     
 NUM                                                                                       NUM          491     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1214    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM      **        NUMBER WAS NOT REFERENCED INSIDE DO - CHECK IF IT WAS DEFINED          NUM          492     A     
 NUM                                                                                       NUM          493     A     
 NUM       CLK7     BX1    X2*X3                                                           NUM          494     A     
 NUM                ZR     X1,CLK10    IF DOES NOT DEFINE AN ENTRY                         NUM          495     A     
 NUM                BX7    X7+X2       DEFINE DO HAS AN ENTRY                              NUM          496     A     
 NUM                                                                                       NUM          497     A     
 NUM      **        GET NEXT LINK                                                          NUM          498     A     
 NUM                                                                                       NUM          499     A     
 NUM       CLK10    SA3    X4+B2                                                           NUM          500     A     
 NUM                BX4    -X0*X3                                                          NUM          501     A     
 NUM                EQ     CLK5        CONTINUE                                            NUM          502     A     
 NUM                                                                                       NUM          503     A     
 NUM      **        INFORMATION SCAN COMPLETE                                              NUM          504     A     
 NUM                                                                                       NUM          505     A     
 NUM       CLK30    =X0    M.SNX                                                           NUM          506     A     
 NUM                BX6    X7*X0                                                           NUM          507     A     
 NUM                SA2    B2+B6                                                           NUM          508     A     
 NUM                =X3    M.SNINA     SET STATEMENT NUMBERS DEFINED IN LOOP INACT         NUM          509     A     
 NUM                ZR     X6,CLK40    IF NO EXIT DEFINED - DO CONSIDERED CLOSED           NUM          510     A     
 NUM                =X0    M.SNOPE     DEFINE DO LOOP IS OPEN                              NUM          511     A     
 NUM                BX6    X0+X2                                                           NUM          512     A     
 NUM                =X3    0           BIT ADD IN                                          NUM          513     A     
 NUM                SA6    A2          DO HAS EXTENDED RANGE                               NUM          514     A     
 NUM                EQ     CLK50                                                           NUM          515     A     
 NUM                                                                                       NUM          516     A     
 NUM      **        DO IS CLOSED - CHECK IF THERE WAS AN ILLEGAL FORWARD REFERENCE         NUM          517     A     
 NUM      *         TO A NUMBER DEFINED INSIDE THIS DO                                     NUM          518     A     
 NUM      *         (X2) = CURRENT DO BEING DEFINED TAG.                                   NUM          519     A     
 NUM                                                                                       NUM          520     A     
 NUM       CLK40    IFBIT  X2,-SNE,CLK50     IF NO FORWARD REFERENCE INSIDE DO             NUM          521     A     
 NUM                FATAL  E.DO25            ILLEGAL ENTRY                                 NUM          522     A     
 NUM                                                                                       NUM          523     A     
 NUM      **        CLEAR LINKS FOR CURRENT *DO*                                           NUM          524     A     
 NUM      *         (X3) = BITS TO ADD TO STATMENTS LINKED                                 NUM          525          I
          -FCC1307
 NUM      *         (X3) = BITS TO ADD TO STATEMENTS LINKED                                FCC1307       44     A     
 NUM      *         (B2) = (TS.STN)                                                        NUM          526     A     
 NUM      *         (B3) = (CDORD) BEGINNING OF NEST                                       NUM          527     A     
 NUM      *         (B6) = (DOORD) DO BEING DEFINED                                        NUM          528     A     
 NUM                                                                                       NUM          529     A     
 NUM       CLK50    SX2    X3          BIT ADD IN                                          NUM          530     A     
 NUM       TEST     IFNE   TEST                                                            NUM          531     A     
 NUM                RJ     PRLKH                                                           NUM          532     A     
 NUM       TEST     ENDIF  TEST                                                            NUM          533     A     
 NUM                MX0    -L.SLINK                                                        NUM          534     A     
 NUM                SA3    B2+B6                                                           NUM          535     A     
 NUM                SA1    MASKNE                                                          NUM          536     A     
 NUM                LX0    P.SLINK                                                         NUM          537     A     
 NUM                =B7    -1                                                              NUM          538     A     
 NUM                LX7    X1                                                              NUM          539     A     
 NUM                EQ     B3,B6,CLK51 IF NO OUTER DO                                      NUM          540     A     
 NUM                SX4    M.SNX                                                           NUM          541     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1215    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM                BX7    X7+X4       LEAVE SNX BIT ON IF THIS DO IS NESTED               NUM          542     A     
 NUM       CLK51    BX4    -X0*X3                                                          NUM          543     A     
 NUM                                                                                       NUM          544     A     
 NUM      **        CLEAR LINK LOOP AND SET APPROPRIATE BITS IN CLASS FOR NUMBERS          NUM          545     A     
 NUM      *         REFERENCED / DEFINED WITHIN CURRENT LOOP                               NUM          546     A     
 NUM      *         A.  IF NUMBER HAD *SNX* SET - CHANGE TO *SNREF*                        NUM          547     A     
 NUM      *         B.  IF DO IS CLOSED LOOP - SET *SNINA* BIT TO INDICATE NUMBER          NUM          548     A     
 NUM      *             IS INACTIVE.                                                       NUM          549     A     
 NUM                                                                                       NUM          550     A     
 NUM       CLK52    LX4    -P.SLINK                                                        NUM          551     A     
 NUM                EQ     B7,B3,CLK55 IF END OF CURRENT *DO* LINK                         NUM          552     A     
 NUM                BX6    X3*X7       CLEAR LINKS + SPECIAL BITS                          NUM          553     A     
 NUM                SB7    X4                                                              NUM          554     A     
 NUM                IFBIT  X3,SNREF,CLK53                                                  NUM          555     A     
 NUM                BX6    X6+X2       ADD IN BITS                                         NUM          556     A     
 NUM       CLK53    SA6    A3                                                              NUM          557     A     
 NUM       TEST     IFNE   TEST                                                            NUM          558     A     
 NUM                RJ     PRLINK                                                          NUM          559     A     
 NUM       TEST     ENDIF  TEST                                                            NUM          560     A     
 NUM                SA3    X4+B2                                                           NUM          561     A     
 NUM                BX4    -X0*X3                                                          NUM          562     A     
 NUM                EQ     CLK52       CONTINUE                                            NUM          563     A     
 NUM                                                                                       NUM          564     A     
 NUM      **        RESET CURRENT DO LINK, SETTING IT LINKED TO BEGINNING OF DO            NUM          565     A     
 NUM      *         NEST                                                                   NUM          566     A     
 NUM                                                                                       NUM          567     A     
 NUM       CLK55    SA1    B2+B6       CURRENT DO BEING CLOSED                             NUM          568     A     
 NUM                SX3    B3                                                              NUM          569     A     
 NUM                LX3    P.SLINK                                                         NUM          570     A     
 NUM                BX6    X3+X1                                                           NUM          571     A     
 NUM                =X0    M.SNX                                                           NUM          572     A     
 NUM                SA6    A1          RELINK INNER DO NUMBER TO OUTER                     NUM          573     A     
 NUM                IFBIT  X1,-SNOPE,EXIT.                                                 NUM          574     A     
 NUM                BX7    X6+X0       SET EXIT ON DO NUMBER IF EXTENDED RANGE             NUM          575     A     
 NUM                SA7    A1                                                              NUM          576     A     
 NUM                EQ     EXIT.                                                           NUM          577     A     
 NUM                                                                                       NUM          578     A     
 NUM                                                                                       NUM          579     A     
 NUM       MASKNE   VFD    L.TAG/-0,L.SNAD/-0,L.SLINK/0,L.SNCLS/-M.SNE-M.SNX               NUM          580     A     
 NUM       SRL      SPACE  4,8                                                             NUM          581     A     
 NUM      **        SRL -  SET REFERENCE LINK                                              NUM          582     A     
 NUM      *                                                                                NUM          583     A     
 NUM      *         ENTRY  (X1) = (TS.STN)                                                 NUM          584     A     
 NUM      *                (X3) = (DOORD)                                                  NUM          585     A     
 NUM      *                (X6) = CURRENT TAG PROCESSING.                                  NUM          586     A     
 NUM      *                (B7) = ORDINAL OF CURRENT *TAG* ENTRY.                          NUM          587     A     
 NUM      *                                                                                NUM          588     A     
 NUM      *         EXIT   (X6) = TAG UPDATED WITH LINK.                                   NUM          589     A     
 NUM      *                (B7) = UNTOUCHED.                                               NUM          590     A     
 NUM      *                                                                                NUM          591     A     
 NUM      *         USES   A1,A2,A3  X0,X1,X2,X3,X6,X7  B2,B7                              NUM          592     A     
 NUM                                                                                       NUM          593     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1216    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM                                                                                       NUM          594     A     
 NUM       SRL      SUBR               ENTRY/EXIT..                                        NUM          595     A     
 NUM                                                                                       NUM          596     A     
 NUM      **        CHECK IF CURRENT NUMBER HAS BEEN LINKED TO CURRENT *DO* NEST           NUM          597     A     
 NUM                                                                                       NUM          598     A     
 NUM                SB2    X3                                                              NUM          599     A     
 NUM                MX0    -L.SLINK                                                        NUM          600     A     
 NUM                BX3    X6          CURRENT TAG.                                        NUM          601     A     
 NUM                LX0    P.SLINK                                                         NUM          602     A     
 NUM                BX2    -X0*X3      CURRENT LINK FIELD FOR NUMBER                       NUM          603     A     
 NUM                ZR     X2,SRL10    IF NOT LINKED - 1ST USE INSIDE *DO*                 NUM          604     A     
 NUM                                                                                       NUM          605     A     
 NUM      **        IF STATMENT NUMBER LINKED TO CURRENT *DO* NEST                         NUM          606          I
          -FCC1307
 NUM      **        IF STATEMENT NUMBER LINKED TO CURRENT *DO* NEST                        FCC1307       45     A     
 NUM      *         SET FIELD INDICATING NUMBER IS REFERENCED INSIDE A *DO*                NUM          607     A     
 NUM                                                                                       NUM          608     A     
 NUM                =X0    M.SNX                                                           NUM          609     A     
 NUM                NE     B2,B7,SRL5  IF REFERENCE IS NOT TO CURRENT DO                   NUM          610     A     
 NUM                =X0    M.SNREF                                                         NUM          611     A     
 NUM       SRL5     BX6    X3+X0                                                           NUM          612     A     
 NUM                SA6    X1+B7       SET *M.SNX* BIT                                     NUM          613     A     
 NUM                SA2    X1+B2                                                           NUM          614     A     
 NUM                =X0    M.SNX                                                           NUM          615     A     
 NUM                BX7    X2+X0                                                           NUM          616     A     
 NUM                SA7    A2          INDICATE *DO* HAS AN EXIT                           NUM          617     A     
 NUM                EQ     EXIT.                                                           NUM          618     A     
 NUM                                                                                       NUM          619     A     
 NUM      **        HERE IF 1ST REFERENCE TO STATEMENT NUMBER INSIDE                       NUM          620     A     
 NUM      *         THIS *DO* NEST.                                                        NUM          621     A     
 NUM                                                                                       NUM          622     A     
 NUM       SRL10    BX0    X3                                                              NUM          623     A     
 NUM                IFBIT  X0,-SNDEF,SRL20     IF NUMBER NOT PREVIOUSLY DEFINED            NUM          624     A     
 NUM                IFBIT  X0,-SNINA/SNDEF,SRL15                                           NUM          625     A     
 NUM                SB3    B7                                                              NUM          626     A     
 NUM                LX2    X6                                                              NUM          627     A     
 NUM                FATAL  E.DO24      ILLEGAL TRANSFER TO INSIDE A CLOSED DO              NUM          628     A     
 NUM                LX6    X2                                                              NUM          629     A     
 NUM                SB7    B3                                                              NUM          630     A     
 NUM                EQ     EXIT.                                                           NUM          631     A     
 NUM                                                                                       NUM          632     A     
 NUM       SRL15    IFBIT  X0,SNE/SNINA,SRL20                                              NUM          633     A     
 NUM                SA2    X1+B2                                                           NUM          634     A     
 NUM                =X0    M.SNX                                                           NUM          635     A     
 NUM                BX6    X2+X0                                                           NUM          636     A     
 NUM                SA6    A2          INDICATE *DO* HAS AN EXIT                           NUM          637     A     
 NUM                                                                                       NUM          638     A     
 NUM      **        LINK NUMBER TO CURRENT *DO*                                            NUM          639     A     
 NUM      *         (X3) = TAG FOR CURRENT NUMBER                                          NUM          640     A     
 NUM                                                                                       NUM          641     A     
 NUM       SRL20    SA2    X1+B2       CURRENT LINK FROM *DO* NUMBER                       NUM          642     A     
 NUM                =X7    M.SNX                                                           NUM          643     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1217    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM                MX0    -L.SLINK                                                        NUM          644     A     
 NUM                BX3    X7+X3       SET M.SNX                                           NUM          645     A     
 NUM                SX7    B7          CURRENT TAG ORDINAL                                 NUM          646     A     
 NUM                LX0    P.SLINK                                                         NUM          647     A     
 NUM                BX6    -X0*X2      CURRENT LINK FIELD                                  NUM          648     A     
 NUM                BX6    X6+X3       LINK NUMBER TO LAST LINK                            NUM          649     A     
 NUM                SA6    X1+B7                                                           NUM          650     A     
 NUM                BX3    X0*X2                                                           NUM          651     A     
 NUM                BX0    X6                                                              NUM          652     A     
 NUM                LX7    P.SLINK                                                         NUM          653     A     
 NUM                BX6    X7+X3       RESET *DO* LINK TO NUMBER                           NUM          654     A     
 NUM                SA6    A2                                                              NUM          655     A     
 NUM                BX6    X0                                                              NUM          656     A     
 NUM                EQ     EXIT.                                                           NUM          657     A     
 NUM       SDL      SPACE  4,8                                                             NUM          658     A     
 NUM      **        SDL -  SET DEFINITION LINK.                                            NUM          659     A     
 NUM      *                                                                                NUM          660     A     
 NUM      *         ENTRY  (X1) = (TS.STN)                                                 NUM          661     A     
 NUM      *                (X3) = (DOORD)                                                  NUM          662     A     
 NUM      *                (X6) = CURRENT TAG PROCESSING.                                  NUM          663     A     
 NUM      *                (B7) = ORDINAL OF CURRENT *TAG* ENTRY.                          NUM          664     A     
 NUM      *                                                                                NUM          665     A     
 NUM      *         EXIT   (X6) = TAG UPDATED WITH LINK.                                   NUM          666     A     
 NUM      *                (B7) = UNTOUCHED.                                               NUM          667     A     
 NUM      *                                                                                NUM          668     A     
 NUM      *         USES   A1,A2,A3  X0,X1,X2,X3,X6,X7  B2,B7                              NUM          669     A     
 NUM                                                                                       NUM          670     A     
 NUM                                                                                       NUM          671     A     
 NUM       SDL40    =X0    M.SNE                                                           NUM          672     A     
 NUM                BX6    X3+X0       SET *M.SNE* BIT                                     NUM          673     A     
 NUM                SA6    X1+B7                                                           NUM          674     A     
 NUM                                                                                       NUM          675     A     
 NUM       SDL      SUBR               ENTRY/EXIT..                                        NUM          676     A     
 NUM                                                                                       NUM          677     A     
 NUM      **        CHECK IF CURRENT NUMBER HAS BEEN LINKED TO CURRENT *DO* NEST           NUM          678     A     
 NUM                                                                                       NUM          679     A     
 NUM                SB2    X3          DO STATEMENT TAG ORDINAL                            NUM          680     A     
 NUM                MX0    -L.SLINK                                                        NUM          681     A     
 NUM                BX3    X6          CURRENT TAG.                                        NUM          682     A     
 NUM                LX0    P.SLINK                                                         NUM          683     A     
 NUM                BX2    -X0*X3      CURRENT LINK FIELD FOR NUMBER                       NUM          684     A     
 NUM                ZR     X2,SDL20    IF NOT LINKED - 1ST USE INSIDE *DO*                 NUM          685     A     
 NUM                                                                                       NUM          686     A     
 NUM      **        IF STATEMENT NUMBER LINKED TO CURRENT *DO* NEST                        NUM          687     A     
 NUM      *                                                                                NUM          688     A     
 NUM      *         CHECKS                                                                 NUM          689     A     
 NUM      *         A.  IF CURRENT NUMBER HAS *SNX* SET, SCAN LINK TO SEE IF               NUM          690     A     
 NUM      *             NUMBER WAS FIRST REFERENCED INSIDE CURRENT *DO*.  IF NOT           NUM          691     A     
 NUM      *             PREVIOUS FORWARD REFERENCE IS AN ILLEGAL TRANSFER FROM             NUM          692     A     
 NUM      *             OUTER DO TO INNER.                                                 NUM          693     A     
 NUM      *                                                                                NUM          694     A     
 NUM      *         IF NOT (A)                                                             NUM          695     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1218    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM      *         B.  SET FIELD INDICATING NUMBER IS DEFINED INSIDE *DO* NEST.           NUM          696     A     
 NUM                                                                                       NUM          697     A     
 NUM                BX2    X3                                                              NUM          698     A     
 NUM                =X0    M.SNX                                                           NUM          699     A     
 NUM                BX7    X0*X3                                                           NUM          700     A     
 NUM                AX2    P.2TAG                                                          NUM          701     A     
 NUM                ZR     X7,SDL40    IF NO PREVIOUS REFERENCE INSIDE A DO                NUM          702     A     
 NUM                SA1    TS.STN                                                          NUM          703     A     
 NUM                SB3    X2-C.STAT                                                       NUM          704     A     
 NUM                MX0    -L.SLINK                                                        NUM          705     A     
 NUM                SA2    X1+B2       LOAD CURRENT DO TAG TO GET LAST LINK                NUM          706     A     
 NUM                LX0    P.SLINK                                                         NUM          707     A     
 NUM                SB2    X1                                                              NUM          708     A     
 NUM                SB3    -B3                                                             NUM          709     A     
 NUM                BX4    -X0*X2      LINK                                                NUM          710     A     
 NUM                                                                                       NUM          711     A     
 NUM      **        SCAN LINK TILL DO FOUND OR STATEMENT NUMBER                            NUM          712     A     
 NUM      *         A.  IF DO FOUND FIRST - CURRENT DEFINITION WAS PREVIOUSLY              NUM          713     A     
 NUM      *             REFERENCED FROM OUTSIDE CURRENT DO AND IS AN ILLEGAL               NUM          714     A     
 NUM      *             TRANSFER FROM OUTER DO TO INNER.                                   NUM          715     A     
 NUM      *         B.  IF NUMBER FOUND FIRST - CURRENT DEFINITION WAS REFERENCED          NUM          716     A     
 NUM      *             FROM INSIDE CURRENT DO, SET *SNE* BIT AND EXIT..                   NUM          717     A     
 NUM                                                                                       NUM          718     A     
 NUM       SDL5     LX4    -P.SLINK                                                        NUM          719     A     
 NUM                SX7    X4+B3                                                           NUM          720     A     
 NUM                SA2    X4+B2                                                           NUM          721     A     
 NUM                ZR     X7,SDL40    IF NUMBER 1ST REFERENCED INSIDE CURRENT DO          NUM          722     A     
 NUM                BX4    -X0*X2      ORDINAL FIELD OF NEXT LINK                          NUM          723     A     
 NUM                IFBIT  X2,-SNDOT,SDL5                                                  NUM          724     A     
 NUM                                                                                       NUM          725     A     
 NUM      **        ILLEGAL TRANSFER FROM INSIDE DO NEST FROM OUTER DO TO INNER            NUM          726     A     
 NUM                                                                                       NUM          727     A     
 NUM                =X0    M.SNE                                                           NUM          728     A     
 NUM                BX6    X3+X0       SET *M.SNE* BIT                                     NUM          729     A     
 NUM                SA6    B2+B7                                                           NUM          730     A     
 NUM                SB3    B7                                                              NUM          731     A     
 NUM                FATAL  E.SN12      PREVIOUS TRANSFER ILLEGAL                           NUM          732     A     
 NUM                SB7    B3                                                              NUM          733     A     
 NUM                RJ     RDE         REMOVE DO ENTRY                                     FCC1307       46     A     
 NUM                SA1    TS.STN                                                          FCC1307       47     A     
 NUM                SA1    X1+B7                                                           FCC1307       48     A     
 NUM                LX6    X1          RESTORE LABEL TAG                                   FCC1307       49     A     
 NUM                EQ     EXIT.                                                           NUM          734     A     
 NUM                                                                                       NUM          735     A     
 NUM      **        HERE IF 1ST REFERENCE TO STATEMENT NUMBER INSIDE                       NUM          736     A     
 NUM      *         THIS *DO* NEST.                                                        NUM          737     A     
 NUM      *         CHECKS                                                                 NUM          738     A     
 NUM      *         A.  FORWARD REFERENCE TO NUMBER FROM OUTSIDE CURRENT DO                NUM          739     A     
 NUM      *             NEST.  IF SO, SET *SNE* IN *DO* NUMBER INDICATING *DO* HAS         NUM          740     A     
 NUM      *             BEEN ENTERED FROM OUTSIDE DO.  WHEN WE COME TO CONCLUSION          NUM          741     A     
 NUM      *             *SNE* BIT IS CHECKED IF DO WAS DEFINED AS A CLOSED LOOP.           NUM          742     A     
 NUM      *             IF CLOSED THEN WE FATAL THE LOOP AND TELL THE PROGRAMMER           NUM          743     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1219    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM      *             THAT CURRENT DO WAS ILLEGALLY ENTERED BY A FORWARD                 NUM          744     A     
 NUM      *             TRANSFER OF THIS TYPE.                                             NUM          745     A     
 NUM      *                                                                                NUM          746     A     
 NUM      *         IF NOT (A)                                                             NUM          747     A     
 NUM      *         B.  SET *SNE* IN NUMBER, INDICATING IT DEFINES AN ENTRY INTO           NUM          748     A     
 NUM      *             CURRENT NEST.                                                      NUM          749     A     
 NUM                                                                                       NUM          750     A     
 NUM       SDL20    BX0    X3                                                              NUM          751     A     
 NUM                IFBIT  X0,-SNREF,SDL25                                                 NUM          752     A     
 NUM                IFBIT  X0,SNX/SNREF,SDL25  IF REFERENCE IS FROM NESTED DO              NUM          753     A     
 NUM                SA2    X1+B2                                                           NUM          754     A     
 NUM                =X0    M.SNE                                                           NUM          755     A     
 NUM                BX6    X2+X0                                                           NUM          756     A     
 NUM                SB3    B7          SAVE ORDINAL                                        NUM          757     A     
 NUM                SA6    A2          INDICATE *DO* HAS BEEN ENTERED                      NUM          758     A     
 NUM                NOTE   E.DO25A     POSSIBLE ILLEGAL TRANSFER                           NUM          759     A     
 NUM                SA1    TS.STN                                                          NUM          760     A     
 NUM                SB7    B3                                                              NUM          761     A     
 NUM                                                                                       NUM          762     A     
 NUM      **        LINK NUMBER TO CURRENT *DO* SETTING *SNE* BIT                          NUM          763     A     
 NUM      *         (X1) = (TS.STN)                                                        NUM          764     A     
 NUM      *         (X3) = TAG FOR CURRENT NUMBER                                          NUM          765     A     
 NUM                                                                                       NUM          766     A     
 NUM       SDL25    SA2    X1+B2       CURRENT LINK FROM *DO* NUMBER                       NUM          767     A     
 NUM                =X7    M.SNE                                                           NUM          768     A     
 NUM                MX0    -L.SLINK                                                        NUM          769     A     
 NUM                BX3    X7+X3                                                           NUM          770     A     
 NUM                SX7    B7          CURRENT TAG ORDINAL                                 NUM          771     A     
 NUM                LX0    P.SLINK                                                         NUM          772     A     
 NUM                BX6    -X0*X2      CURRENT LINK FIELD                                  NUM          773     A     
 NUM                BX6    X6+X3       LINK NUMBER TO LAST LINK                            NUM          774     A     
 NUM                SA6    X1+B7                                                           NUM          775     A     
 NUM                BX3    X0*X2                                                           NUM          776     A     
 NUM                BX0    X6                                                              NUM          777     A     
 NUM                LX7    P.SLINK                                                         NUM          778     A     
 NUM                BX6    X7+X3       RESET *DO* LINK TO NUMBER                           NUM          779     A     
 NUM                SA6    A2                                                              NUM          780     A     
 NUM                BX6    X0                                                              NUM          781     A     
 NUM                EQ     EXIT.                                                           NUM          782     A     
 NUM       RDE      SPACE  4,8                                                             FCC1307       50     A     
 NUM      **        RDE  - REMOVE DO ENTRY                                                 FCC1307       51     A     
 NUM      *                                                                                FCC1307       52     A     
 NUM      *                CALLED WHEN AN ERROR IS DETECTED IN DO PROCESSING               FCC1307       53     A     
 NUM      *                WHICH RENDERS THE DO TERMINAL UNCOMPILABLE.                     FCC1307       54     A     
 NUM      *                                                                                FCC1307       55     A     
 NUM      *         ENTRY  (X6) = DO TERMINATOR TAG                                        FCC1307       56     A     
 NUM      *                                                                                FCC1307       57     A     
 NUM      *         EXIT   ALL DO ENTRIES ON TP.DO PERTAINING TO THAT TERMINATOR           FCC1307       58     A     
 NUM      *                ARE REMOVED.                                                    FCC1307       59     A     
 NUM      *                                                                                FCC1307       60     A     
 NUM      *         USES   A1,A2,A3,A6  X0,X1,X2,X3,X6  B2,B3                              FCC1307       61     A     
 NUM      *                                                                                FCC1307       62     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1220    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM      *         CALLS  ALC, MVE                                                        FCC1307       63     A     
 NUM                                                                                       FCC1307       64     A     
 NUM                                                                                       FCC1307       65     A     
 NUM       RDE3     SHRINK TP=DO                                                           FCC1307       66     A     
 NUM                SA2    TT=SCR                                                          FCC1307       67     A     
 NUM                ALLOC  TP.DO,X2                                                        FCC1307       68     A     
 NUM                LX3    X1          NEW ORIGIN                                          FCC1307       69     A     
 NUM                BX1    X2          NEW LENGTH                                          FCC1307       70     A     
 NUM                SA2    TT.SCR      NEW DO LIST                                         FCC1307       71     A     
 NUM                RJ     =XMVE                                                           FCC1307       72     A     
 NUM                SHRINK TT=SCR                                                          FCC1307       73     A     
 NUM                SB7    B2          RESTORE (B7)                                        FCC1307       74     A     
 NUM                                                                                       FCC1307       75     A     
 NUM                                                                                       FCC1307       76     A     
 NUM       RDE      SUBR                                                                   FCC1307       77     A     
 NUM                SA2    TP=DO                                                           FCC2318        6     A     
 NUM                ZR     X2,RDE                                                          FCC2318        7     A     
 NUM                SB2    B7          PRESERVE (B7)                                       FCC1307       78     A     
 NUM                AX6    P.TAG                                                           FCC1307       79     A     
 NUM                SB3    X6                                                              FCC1307       80     A     
 NUM                SB3    -B3         PRESERVE TAG OF DO TERMINAL                         FCC1307       81     A     
 NUM                SHRINK TT=SCR                                                          FCC1307       82     A     
 NUM                                                                                       FCC1307       83     A     
 NUM       RDE1     SA2    TP.DO                                                           FCC1307       84     A     
 NUM                SA1    X2+OR.DOSN                                                      FCC1307       85     A     
 NUM                AX1    P.DOTAG                                                         FCC1307       86     A     
 NUM                SX1    X1+B3                                                           FCC1307       87     A     
 NUM                ZR     X1,RDE2     IF DO ENTRY MATCH                                   FCC1307       88     A     
 NUM                                                                                       FCC1307       89     A     
 NUM      *         IF NOT A DO ENTRY TO DISCARD, SAVE ON TT.SCR                           FCC1307       90     A     
 NUM                                                                                       FCC1307       91     A     
 NUM                ALLOC  TT.SCR,L.DOE                                                    FCC1307       92     A     
 NUM                SX1    L.DOE                                                           FCC1307       93     A     
 NUM                SA2    TP.DO                                                           FCC1307       94     A     
 NUM                SX3    B7-L.DOE                                                        FCC1307       95     A     
 NUM                RJ     =XMVE                                                           FCC1307       96     A     
 NUM                                                                                       FCC1307       97     A     
 NUM      *         RESET TP.DO FOR LOOP                                                   FCC1307       98     A     
 NUM                                                                                       FCC1307       99     A     
 NUM       RDE2     SA1    TP.DO                                                           FCC1307      100     A     
 NUM                SA2    TP=DO                                                           FCC1307      101     A     
 NUM                SX6    X1+L.DOE                                                        FCC1307      102     A     
 NUM                SX0    X2-L.DOE                                                        FCC1307      103     A     
 NUM                ZR     X0,RDE3     IF LOOP DONE                                        FCC1307      104     A     
 NUM                SA6    A1                                                              FCC1307      105     A     
 NUM                SHRINK TP=DO,X0                                                        FCC1307      106     A     
 NUM                EQ     RDE1        CONTINUE..                                          FCC1307      107     A     
 NUM                EJECT                                                                  NUM          783     A     
 NUM       TEST     IFNE   TEST                                                            NUM          784     A     
 NUM       PRLINK   SPACE  4,8                                                             NUM          785     A     
 NUM      **        PRLINK - PRINT LINKED STATEMENT NUMBER IF SNAP *N* ON.                 NUM          786     A     
 NUM      *                                                                                NUM          787     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1221    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM      *         ENTRY  (A3) = STATEMENT NUMBER TAG WORD                                NUM          788     A     
 NUM      *         EXIT   LINKED NUMBER PRINTED.                                          NUM          789     A     
 NUM      *                                                                                NUM          790     A     
 NUM      *         NOTE - DESTROYS *A1* ONLY.                                             NUM          791     A     
 NUM                                                                                       NUM          792     A     
 NUM                                                                                       NUM          793     A     
 NUM       PRLINK   SUBR   0                                                               NUM          794     A     
 NUM                SA1    CO.SNAP                                                         NUM          795     A     
 NUM                LX1    1RN                                                             NUM          796     A     
 NUM                PL     X1,PRLINKX                                                      NUM          797     A     
 NUM                RJ     =XSVR=      SAVE REGISTERS                                      NUM          798     A     
 NUM                SA2    =XSVA+3                                                         NUM          799     A     
 NUM                SA5    X2-1        LOAD STATEMENT NUMBER DPC                           NUM          800     A     
 NUM                MX0    L.SYM                                                           NUM          801     A     
 NUM                BX1    X0*X5                                                           NUM          802     A     
 NUM                MX0    CHAR                                                            NUM          803     A     
 NUM       PRLNK1   BX3    X0*X1                                                           NUM          804     A     
 NUM                NZ     X3,PRLNK5   IF LEFT JUSTIFIED                                   NUM          805     A     
 NUM                LX1    CHAR                                                            NUM          806     A     
 NUM                EQ     PRLNK1                                                          NUM          807     A     
 NUM                                                                                       NUM          808     A     
 NUM       PRLNK5   RJ     SFN         SPACE FILL NAME                                     NUM          809     A     
 NUM                SA6    PRLNKL      SAVE NAME                                           NUM          810     A     
 NUM                SA5    A5+1        LOAD TAG                                            NUM          811     A     
 NUM                SA1    =1H                                                             NUM          812     A     
 NUM                IFBIT  X5,-SNDEF,PRLNK7                                                NUM          813     A     
 NUM                SA1    =10H DEFINED                                                    NUM          814     A     
 NUM       PRLNK7   BX6    X1                                                              NUM          815     A     
 NUM                =A6    A6+1                                                            NUM          816     A     
 NUM                SA1    =1H                                                             NUM          817     A     
 NUM                IFBIT  X5,-SNREF/SNDEF,PRLNK8                                          NUM          818     A     
 NUM                SA1    =10H REFER                                                      NUM          819     A     
 NUM       PRLNK8   BX6    X1                                                              NUM          820     A     
 NUM                =A6    A6+1                                                            NUM          821     A     
 NUM                SA1    =1H                                                             NUM          822     A     
 NUM                IFBIT  X5,-SNX/SNREF,PRLNK9                                            NUM          823     A     
 NUM                SA1    =10H EXIT SET                                                   NUM          824     A     
 NUM       PRLNK9   BX6    X1                                                              NUM          825     A     
 NUM                =A6    A6+1                                                            NUM          826     A     
 NUM                SA1    =1H                                                             NUM          827     A     
 NUM                IFBIT  X5,-SNE/SNX,PRLNK10                                             NUM          828     A     
 NUM                SA1    =10H ENTER SET                                                  NUM          829     A     
 NUM       PRLNK10  BX6    X1                                                              NUM          830     A     
 NUM                =A6    A6+1                                                            NUM          831     A     
 NUM                SA1    =1H                                                             NUM          832     A     
 NUM                IFBIT  X5,-SNDOT/SNE,PRLNK11                                           NUM          833     A     
 NUM                SA1    =10H DO NUMBER                                                  NUM          834     A     
 NUM       PRLNK11  BX6    X1                                                              NUM          835     A     
 NUM                =A6    A6+1                                                            NUM          836     A     
 NUM                BX6    0                                                               NUM          837     A     
 NUM                =A6    A6+1        END OF LINE                                         NUM          838     A     
 NUM                PLINE  PRLNKL      LINK INFORMATION                                    NUM          839     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1222    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NUM     
  
 NUM                RJ     =XRSR=      RESTORE REGISTERS                                   NUM          840     A     
 NUM                EQ     PRLINKX                                                         NUM          841     A     
 NUM       PRLKH    SPACE  4,8                                                             NUM          842     A     
 NUM      **        PRINT LINE HEADER                                                      NUM          843     A     
 NUM      *                                                                                NUM          844     A     
 NUM      *         DESTROYS A1 ONLY                                                       NUM          845     A     
 NUM                                                                                       NUM          846     A     
 NUM                                                                                       NUM          847     A     
 NUM       PRLKH    SUBR   0                                                               NUM          848     A     
 NUM                SA1    CO.SNAP                                                         NUM          849     A     
 NUM                LX1    1RN                                                             NUM          850     A     
 NUM                PL     X1,PRLKHX                                                       NUM          851     A     
 NUM                RJ     =XSVR=      SAVE REGISTERS                                      NUM          852     A     
 NUM                PLINE  PRLNKH,2    HEADER                                              NUM          853          I
          -FEAT126A 
 NUM                PLINE  PRLNKH,4,2  HEADER                                              FEAT126A    1009     A     
 NUM                RJ     =XRSR=      RESTORE REGISTERS                                   NUM          854     A     
 NUM                EQ     PRLKHX      EXIT..                                              NUM          855     A     
 NUM                                                                                       NUM          856     A     
 NUM       PRLNKH   DIS    ,/        DUMP OF LINKS FOR CURRENT DO/                         NUM          857     A     
 NUM       PRLNKL   BSSZ   12                                                              NUM          858     A     
 NUM       TEST     ENDIF  TEST                                                            NUM          859     A     
 NUM                LIST   D                                                               NUM          860     A     
 NUM                END                                                                    NUM          861     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - NUM     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          NUM                        861       842
          FEAT126A                     1         1
          FCC0639                      5         5
          FCC1307                     99        99
          FCC1728X                    10        10
          FCC2318                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *DECK     PAR                                                                    PAR            1     A     
 PAR                IDENT  PAR                                                             PAR            2     A     
 PAR       PAR      SECT   (P A R S E),1                                                   PAR            3     A     
 PAR                                                                                       PAR            4     A     
 PAR                SST    A,B,C,D,E,F,Z                                                   PAR            5     A     
 PAR                NOREF  A,B,C,D,E,F,Z                                                   PAR            6     A     
 PAR                                                                                       PAR            7     A     
 PAR       B=PAR    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             PAR            8     A     
 PAR                                                                                       PAR            9     A     
 PAR                ENTRY  PAR.EOS,PAR.HOL,PAR.TNK,PAR.VAR,PAR.PL,PAR.MIN,PAR.STD          PAR           10     A     
 PAR                ENTRY  PAR.LP,PAR.EQL,PAR.CM,PAR.REL,PAR.TRU,PAR.FAL,PAR.DLP           PAR           11          I
          -FCC0616
 PAR                ENTRY  PAR.LP,PAR.EQL,PAR.CM,PAR.TRU,PAR.FAL,PAR.DLP                   FCC0616       26     A     
 PAR                ENTRY  POP.MUL,POP.DIV,POP.PN,POP.RP,POP.REQ,POP.NOT,POP.EXP           PAR           12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1223    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                ENTRY  POP.STD,POP.PL,POP.CM,POP.REL,POP.UM,PAR.LOG,POP.LOG            PAR           13          I
          -FCC0616
 PAR                ENTRY  POP.STD,POP.PL,POP.CM,POP.REL,POP.UM,POP.LOG                    FCC0616       27     A     
 PAR                ENTRY  PAREXIT,POP.ST1,SOPR,SMOD,IXLASTV,PAR,ADT,POPX                  PAR           14     A     
 PAR                ENTRY  PAR.NX,C=CERR,C=BEF,C=BIF,C=CALL,C=DEC,C=ERR,DO.ERR             PAR           15     A     
 PAR                ENTRY  C=DO,C=FUN,C=GOT,C=LP,A=ASF,A=BEF,A=BIF,A=CALL,A=DEC            PAR           16          I
          -FCC0787
 PAR                ENTRY  A=LP,A=LIST,A=DO,A=FUN,A=IF,CURST,CT2,SDM,CNF,FAL               PAR           17          I
          -FCC0787
 PAR                ENTRY  C=DO,C=FUN,C=GOT,A=ASF,A=BEF,A=BIF,A=CALL,A=DEC                 FCC0787       59     A     
 PAR                ENTRY  A=LIST,A=DO,A=FUN,A=IF,CURST,CT2,SDM,CNF,FAL                    FCC0787       60     A     
 PAR                ENTRY  POP.OPN                                                         PAR           18          I
          -FCC0616
 PAR                                                                                       PAR           19     A     
 PAR      *         IN FTN                                                                 PAR           20     A     
 PAR                EXT    CO.SNAP,CO.TBK,LOP=R                                            PAR           21     A     
 PAR                                                                                       PAR           22     A     
 PAR      *         IN TABLES                                                              PAR           23     A     
 PAR                EXT    ACONS,ARGMIS,ANDNOT,ARGCOMA,ARGMODE,ATTR,ARRARM,ASFARM          PAR           24     A     
 PAR                EXT    ASFLEN,BEFXARM,BIFFUN,BIFARM,BINOUT,BEFFUN,COD,CALLOP           PAR           25     A     
 PAR                EXT    CNFARM,CONOTBL,CSYMBOL,COMMA,CHARMAP,CONONE,CLPARM              PAR           26     A     
 PAR                EXT    CCONONE,DOORD,DOIX,ENTRY.,EXTFUN,EXTFARM,ERROP,EQUAL            PAR           27     A     
 PAR                EXT    FLOW,INAFR,IN.EXP,INTMAC,LASTAD,LASTOP,LDEAD,LPARM,LPAR         PAR           28     A     
 PAR                EXT    MOD,ORDOP,POPTBL,PSTACK,PR.SLP,REGARG,REGARG2                   PAR           29          I
          -FCC1495AX
 PAR                EXT    MOD,POPTBL,PSTACK,PR.SLP,REGARG,REGARG2                         FCC1495AX      7     A     
 PAR                EXT    REFVAR,ROUTNAM,REVMIN,SDIV,TT=PAR,TT.PAR,TS.CON,TS.SYM          PAR           30     A     
 PAR                EXT    TS.STN,TP.DO,TP=DO,TG.PRO,TT=ASF,TT.SCR,TT=SCR,UMINUS           PAR           31     A     
 PAR                EXT    VALUE.,VTRUE,ZLE,ZLEQUAL                                        PAR           32     A     
 PAR                                                                                       PAR           33     A     
 PAR      *         IN ERRORS                                                              PAR           34     A     
 PAR                EXT    DO.DPC,E.AT,E.AT1,E.AT1A,E.AT2,E.AT3,E.AT5,E.DC10               PAR           35          I
          -FCC0787
 PAR                EXT    DO.DPC,E.AT,E.AT1,E.AT1A,E.AT2,E.AT3,E.AT5                      FCC0787       61          I
          -FCC1046
 PAR                EXT    DO.DPC,E.AT1,E.AT1A,E.AT2,E.AT3,E.AT5                           FCC1046       27     A     
 PAR                EXT    E.DO,E.DO1,E.DO2,E.DO3,E.DO4,E.DO5,E.DO8,E.DO11,E.DO16          PAR           36     A     
 PAR                EXT    E.DO17,E.DO23,E.GO9,E.GO10,E.GO11,E.IOP,E.LP3,E.LP4             PAR           37          I
          -FCC0787
 PAR                EXT    E.DO17,E.DO23,E.GO9,E.GO10,E.GO11,E.LP3,E.LP4                   FCC0787       62     A     
 PAR                EXT    E.MRA,E.TE1,E.TE2,E.TE2A,E.TE3,E.TE4,E.TE7,E.TE8,E.XP1          PAR           38     A     
 PAR                EXT    E.XP2,E.XP3,E.XP4,FILL.                                         PAR           39     A     
 PAR                EXT    E.AT11,E.AT12                                                   FCC1294        8     A     
 PAR                EXT    E.ANS3                                                          FCC1638X       9     A     
 PAR                EXT    E.CL3                                                           FCC2307       12     A     
 PAR                                                                                       PAR           40     A     
 PAR      *         IN ALLOC                                                               PAR           41     A     
 PAR                EXT    ALC.REG,ALC.00,ERT,ESY,ESC,NCM,NCS,SSY                          PAR           42     A     
 PAR                                                                                       PAR           43     A     
 PAR      *         IN MAIN                                                                PAR           44     A     
 PAR                EXT    WOF                                                             PAR           45     A     
 PAR                                                                                       PAR           46     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1224    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         IN LEX                                                                 PAR           47     A     
 PAR                EXT    DEC,STY,SLT,TSF                                                 PAR           48     A     
 PAR                                                                                       PAR           49     A     
 PAR      *         IN KEY                                                                 PAR           50     A     
 PAR                EXT    GOTA,EMT,CRL                                                    PAR           51     A     
 PAR                                                                                       PAR           52     A     
 PAR      *         IN IF                                                                  PAR           53     A     
 PAR                EXT    INIF,IFRESLT,IFMOD                                              PAR           54          I
          -FCC0616
 PAR                EXT    IFRESLT,IFMOD                                                   FCC0616       28     A     
 PAR                                                                                       PAR           55     A     
 PAR      *         IN TSDATA                                                              FCC0787       63     A     
 PAR                EXT    CFC                                                             FCC0787       64     A     
 PAR                                                                                       FCC0787       65     A     
 PAR      *         IN IO                                                                  PAR           56     A     
 PAR                EXT    R.W,IODIR,CML                                                   PAR           57     A     
 PAR                                                                                       PAR           58     A     
 PAR      *         IN NUM                                                                 PAR           59     A     
 PAR                EXT    PSN                                                             PAR           60     A     
 PAR                                                                                       PAR           61     A     
 PAR      *         IN CONRED                                                              PAR           62     A     
 PAR                EXT    TER1,TER2,CCC,CCR,CMC,CMO,LCT                                   PAR           63     A     
 PAR                                                                                       PAR           64     A     
 PAR      *         IN GEN                                                                 PAR           65     A     
 PAR                EXT    A=ARRAY,ESF,MXP,PSO,SSO,VAM,VEL,VIL,AMODTBL                     PAR           66          I
          -FCC0519
 PAR                EXT    A=ARRAY,ESF,MXP,PSO,SSO,VAM,VEL,VIL                             FCC0519        4     A     
 PAR                EXT    INLBASE,I..2,I..3,I..4,I..5                                     PAR           67     A     
 PAR                EXT    I..6,I..7,I..8,I..9,I..10,I..11,MODTBL,O=GOC,R..2,R..3          PAR           68          I
          -FCC0878
 PAR                EXT    R..4,R..5,R..6,R..7,R..8,R..9,R..10,R..11                       PAR           69          I
          -FCC0878
 PAR                EXT    I..6,I..7,I..8,I..9,I..10,MODTBL,O=GOC                          FCC0878        4     A     
 PAR                EXT    R..2,R..3,R..4,R..5,R..6,R..7,R..8,R..9,R..10                   FCC0878        5     A     
 PAR                EXT    MODECON,O=RAGDD,O=RAGDS,O=RAGSD,O=RAGSS                         PAR           70     A     
 PAR                                                                                       PAR           71     A     
 PAR      *         IN ASF                                                                 PAR           72     A     
 PAR                EXT    AFR                                                             PAR           73     A     
 PAR                                                                                       PAR           74     A     
 PAR      *         IN INIT                                                                PAR           75     A     
 PAR                EXT    CALLTAG,OSTACK,ESTACK,SCR,SCR2,TRVA,CST.BOS                     PAR           76     A     
 PAR                                                                                       PAR           77     A     
 PAR                                                                                       PAR           78     A     
 PAR                                                                                       PAR           79     A     
 PAR      **        GENERAL COMMENT TO THOSE WHO GET THIS FAR --                           PAR           80     A     
 PAR      *                                                                                PAR           81     A     
 PAR      *         I THINK THAT I SHALL NEVER SEE                                         PAR           82     A     
 PAR      *         A SUBROUTINE THAT WORKS FOR ME                                         PAR           83     A     
 PAR      *         A MACRO OR ZERO TEST                                                   PAR           84     A     
 PAR      *         THAT ISNT JUST A RODENTS NEST                                          PAR           85     A     
 PAR      *         A STRING THAT DOESNT ALWAYS STRAY                                      PAR           86     A     
 PAR      *         AND MIX UP BITS IN WILD ARRAY                                          PAR           87     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1225    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         A PROCESS WITH RE-ENTRANT FLAIR                                        PAR           88     A     
 PAR      *         THAT ISNT JUST A LOOPING SNARE                                         PAR           89     A     
 PAR      *         ROUTINES WHOSE TIMINGS ARE NOT SLAIN                                   PAR           90     A     
 PAR      *         WHEN INTERRUPTS BEGIN TO RAIN                                          PAR           91     A     
 PAR      *         ONLY GOD CAN MAKE A TREE                                               PAR           92     A     
 PAR      *         BUT, BUGS ARE MADE BY GUYS LIKE ME.                                    PAR           93     A     
 PAR      *                                                                                PAR           94     A     
 PAR      *         TRADITIONAL.                                                           PAR           95     A     
 PAR       MISS     SPACE  4,8                                                             PAR           96     A     
 PAR                MACRO  PARSNAP,NAME                                                    PAR           97     A     
 PAR       NAME     REG                                                                    PAR           98     A     
 PAR       OPSTACK  CORE   OSTACK,8                                                        PAR           99     A     
 PAR       ELSTACK  CORE   ESTACK,8                                                        PAR          100     A     
 PAR       ARGCMOM  CORE   ARGCOMA,3                                                       PAR          101     A     
 PAR                ENDM                                                                   PAR          102     A     
 PAR                SPACE  4,8                                                             PAR          103     A     
 PAR      **        MISCELLANEOUS CELLS USED BY PARSER                                     PAR          104     A     
 PAR                                                                                       PAR          105     A     
 PAR       SMOD     DATA   0           SUB-EXPRESSION DOMINANT MODE.                       PAR          106     A     
 PAR       SMOD1    BSS    1           MODE CONVERSION OFFSET TO MODECON                   PAR          107     A     
 PAR       SOPR     DATA   0            -     -       OPERATOR.                            PAR          108     A     
 PAR       CURST    DATA   0            -     -       START.                               PAR          109     A     
 PAR       SOPR1    DATA   0                                                               PAR          110     A     
 PAR       SOPR2    DATA   0                                                               PAR          111     A     
 PAR       POPDPC   BSS    2           DPC FOR OPERATOR CAUSING AN OPERATOR TO BE          PAR          112     A     
 PAR                                   POPPED.                                             PAR          113     A     
 PAR       POPPER   EQU    POPDPC+1    OPERATOR (SETOP) WORD FOR *POPDPC*                  PAR          114     A     
 PAR       CMLFLG   BSS    1           I/O RESTART CALLS INDICATOR                         PAR          115     A     
 PAR       CNF      EJECT  4,20                                                            PAR          116     A     
 PAR      **        CNF -  COMPILE NORMAL FORMULA                                          PAR          117     A     
 PAR                                                                                       PAR          118     A     
 PAR                                                                                       PAR          119     A     
 PAR       CNF      SA1    ZLEQUAL                                                         PAR          120     A     
 PAR                BX7    0                                                               PAR          121          I
          -FCC0498
 PAR                SB4    X1          START AT NEXT TO LAST *=*                           PAR          122          I
          -FCC0787
 PAR                =B4    X1+1        START AT RIGHT SIDE OF LAST *=*                     FCC0787       66     A     
 PAR                BX6    X1                                                              PAR          123     A     
 PAR                SA6    ZLE         SET                                                 PAR          124     A     
 PAR                SA1    X1                                                              FCC0498       31     A     
 PAR                AX1    P.SYM                                                           FCC0498       32     A     
 PAR                ZR     X1,CNF1     IF NO MULTIPLE ASSIGNMENT                           FCC0498       33     A     
 PAR                ANSI   =XE.AT9                                                         FCC0498       34     A     
 PAR                                                                                       PAR          125     A     
 PAR      **        PARSE STATEMENT.                                                       PAR          126     A     
 PAR                                                                                       PAR          127     A     
 PAR                SA3    CNFARM                                                          PAR          128          I
          -FCC0498
 PAR       CNF1     SA3    CNFARM                                                          FCC0498       35     A     
 PAR                =X7    0                                                               PAR          129     A     
 PAR                LX6    X3                                                              PAR          130     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1226    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA7    ARGCOMA                                                         PAR          131     A     
 PAR                SA6    ARGMODE                                                         PAR          132     A     
 PAR                RJ     MXP         MARK EXTERNAL PROCESS START                         PAR          133     A     
 PAR                RJ     PAR         PARSE STATEMENT.                                    PAR          134     A     
 PAR                                                                                       PAR          135     A     
 PAR                EQ     PSN         CONTINUE WITH PARSED BLOCK INTACT.                  PAR          136     A     
 PAR                                                                                       PAR          137     A     
 PAR       PARSE    EJECT                                                                  PAR          138     A     
 PAR      **        PAR -  ARITHMETIC STATEMENT PARSING ROUTINE.                           PAR          139     A     
 PAR      *                                                                                PAR          140     A     
 PAR      *         A GENERAL PURPOSE *ONE-PASS* ARITHMETIC PARSING ROUTINE USING          PAR          141     A     
 PAR      *         PSEUDO REVERSE POLISH ALGORITHM. (N-TURPLE)                            PAR          142     A     
 PAR      *                                                                                PAR          143     A     
 PAR      *         THIS ROUTINE WILL TRANSLATE ANY ARITHMETIC, LOGICAL,                   PAR          144     A     
 PAR      *         RELATIONAL, OR MASKING EXPRESSION INTO PSEUDO- POLISH                  PAR          145     A     
 PAR      *         NOTATION.                                                              PAR          146     A     
 PAR      *                                                                                PAR          147     A     
 PAR      *         ENTRY                                                                  PAR          148     A     
 PAR      *                B4 _ POINTS TO WHERE PAR IS TO START PROCESSING.                PAR          149     A     
 PAR      *                                                                                PAR          150     A     
 PAR      *                (ARGMODE) = PRESET TO INDICATE CURRENT MODE OF                  PAR          151     A     
 PAR      *                            EXPRESSION *PARSE* WILL HANDLE.                     PAR          152     A     
 PAR      *                                                                                PAR          153     A     
 PAR      *                (ARGCOMA) = PRESET TO CURRENT ARGUMENT COUNT.                   PAR          154     A     
 PAR      *                                                                                PAR          155     A     
 PAR      *                (CURST) = ORDINAL, RELATIVE TO TT.PAR, POINTING TO              PAR          156     A     
 PAR      *                          BREAK FOR SQUEEZING PROCESS.                          PAR          157     A     
 PAR      *                                                                                PAR          158     A     
 PAR      *         EXIT   (B4) _ LAST ELEMENT PROCESSED.                                  PAR          159     A     
 PAR      *                                                                                PAR          160     A     
 PAR      *                                                                                PAR          161     A     
 PAR      *         --------------- L O C K  -  R E G I S T E R S --------------           PAR          162     A     
 PAR      *                       B4 _ POINTS TO CURRENT *SB* ENTRY                        PAR          163     A     
 PAR      *                       B5 _ CURRENT OP-STACK ENTRY                              PAR          164     A     
 PAR      *                       B6 _ CURRENT ELEMENT ENTRY                               PAR          165     A     
 PAR      *         NO ROUTINE CALLED BY *PAR* MAY DESTROY ANY OF THE ABOVE REGS.          PAR          166     A     
 PAR      *         ------------------------------------------------------------           PAR          167     A     
 PAR      *                                                                                PAR          168     A     
 PAR      *         USES   ALL REGISTERS.                                                  PAR          169     A     
 PAR                                                                                       PAR          170     A     
 PAR                                                                                       PAR          171     A     
 PAR                                                                                       PAR          172     A     
 PAR       PAR      SUBR   0                                                               PAR          173     A     
 PAR                SA1    TT=PAR                                                          PAR          174     A     
 PAR                SA2    ARGMODE                                                         PAR          175     A     
 PAR                SB6    ESTACK      SET UP *B6* _ ELEMENT STACK.                        PAR          176     A     
 PAR                BX6    X1                                                              PAR          177     A     
 PAR                MX7    0                                                               PAR          178     A     
 PAR                SX0    X2-A=LIST                                                       PAR          179     A     
 PAR                SA7    CMLFLG      INITIALIZE                                          PAR          180     A     
 PAR                NZ     X0,PAR1     IF NOT I/O LIST ITEM                                PAR          181     A     
 PAR                SA1    IODIR                                                           PAR          182     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1227    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                NZ     X1,PAR1     IF NOT INPUT                                        PAR          183     A     
 PAR                =X7    1                                                               PAR          184     A     
 PAR                SA7    A7          FLAG FOR I/O LIST ITEMS IN INPUT                    PAR          185     A     
 PAR       PAR1     SB5    OSTACK      SET UPT *B5* _ OPERATOR STACK                       PAR          186     A     
 PAR                AX2    P.AMR                                                           PAR          187     A     
 PAR                BX7    0                                                               PAR          188     A     
 PAR                SA6    LDEAD       SET = LENGTH + 1 OF TT.PAR ON ENTRY                 PAR          189     A     
 PAR                SA7    INAFR       INDICATE NO STATEMENT FUNCTION EXPANSION            PAR          190     A     
 PAR                SX6    X2                                                              PAR          191     A     
 PAR                SX7    O.EOS                                                           PAR          192     A     
 PAR                SA6    REFVAR      RESET CURRENT REFERNCE VALUE.                       PAR          193     A     
 PAR                SA7    OSTACK      EOS TO OPERATOR STACK.                              PAR          194     A     
 PAR                SA5    B4                                                              FCC0787       67     A     
 PAR                SB3    X5                                                              FCC0787       68     A     
 PAR                SA3    =XFEXPR                                                         FCC0787       69     A     
 PAR                LX4    B3,X3                                                           FCC0787       70     A     
 PAR                MI     X4,PAR.NX   IF FIRST ELEMENT LEGAL                              FCC0787       71     A     
 PAR                MX0    L.CDPC                                                          FCC0787       72     A     
 PAR                SA1    X5+CHARMAP                                                      FCC0787       73     A     
 PAR                BX6    X0*X1                                                           FCC0787       74     A     
 PAR                SA6    FILL.                                                           FCC0787       75     A     
 PAR                FATAL  =XE.AT10                                                        FCC0787       76     A     
 PAR                ZR     X5,PAR.EOS  IF *EOS* FIRST ELEMENT                              FCC0787       77     A     
 PAR                EQ     PAREX11                                                         FCC0787       78     A     
 PAR       PAR.NX   EJECT  4,20                                                            PAR          195     A     
 PAR      **        PARSE MASTER LOOP.                                                     PAR          196     A     
 PAR      *         PAR.NX LOADS THE NEXT ELEMENT AND FOLLOWING ELEMENT AND                PAR          197     A     
 PAR      *         CHECKS IF AN ILLEGAL OPERATOR/OPERAND COMBINATION IS ABOUT             PAR          198     A     
 PAR      *         TO BE PROCESSED.                                                       PAR          199     A     
 PAR      *                                                                                PAR          200     A     
 PAR      *         IF LEGAL COMBINATION.                                                  PAR          201     A     
 PAR      *                JUMP TO PROCESS ELEMENT.                                        PAR          202     A     
 PAR      *                                                                                PAR          203     A     
 PAR      *         IF ILLEGAL COMBINATION.                                                PAR          204     A     
 PAR      *                JUMP TO PAR.EX TO OUTPUT COMBINATION THAT IS IN ERROR           PAR          205     A     
 PAR      *                AND EXIT PAR.                                                   PAR          206     A     
 PAR      *                                                                                PAR          207     A     
 PAR      *         UPON EXIT FROM PAR.NX REGISTERS ARE SET TO --                          PAR          208     A     
 PAR      *                                                                                PAR          209     A     
 PAR      *         (X1) = CURRENT *SB* ENTRY.                                             PAR          210     A     
 PAR      *         (X3) = LAST OPERATOR STACK ENTRY.                                      PAR          211     A     
 PAR      *         (X5) = NEXT    *SB* ENTRY.                                             PAR          212     A     
 PAR                                                                                       PAR          213     A     
 PAR       PAR.NX   SA1    B4          NEXT ENTRY                                          PAR          214     A     
 PAR                SA5    B4+B1                                                           PAR          215     A     
 PAR                ZR     X1,PAR.EOS  IF END OF STATEMENT. (*EOS*)                        PAR          216     A     
 PAR                SB3    X5                                                              PAR          217     A     
 PAR                SA3    X1+CONOTBL-O.DEF                                                PAR          218     A     
 PAR                SB2    B3-O.PERIOD                                                     PAR          219     A     
 PAR                LX4    B3,X3                                                           PAR          220     A     
 PAR                SA2    X1+PSTACK-O.PL                                                  PAR          221     A     
 PAR                SB7    X3          JUMP ADDRESS                                        PAR          222     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1228    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA3    B5                                                              PAR          223     A     
 PAR                                                                                       PAR          224     A     
 PAR       SNAP=Z   IFNE   TEST        DUMP PARSE TABLES                                   PAR          225     A     
 PAR                SA3    CO.SNAP                                                         PAR          226     A     
 PAR                LX3    1RZ                                                             PAR          227     A     
 PAR                PL     X3,PAR.NXS  IF PARSE SNAP NOT SELECTED                          PAR          228     A     
 PAR                SA3    B5                                                              PAR          229     A     
 PAR       MASTER   PARSNAP                                                                PAR          230     A     
 PAR       PAR.NXS  SA3    B5                                                              PAR          231     A     
 PAR       SNAP=Z   ENDIF                                                                  PAR          232     A     
 PAR                                                                                       PAR          233     A     
 PAR                GT     B2,PAREX20  IF GREATER THAN NORMAL OPERATOR/OPERAND             PAR          234          I
          -FCC0787
 PAR                PL     X4,PAREX    IF ILLEGAL OPERATOR COMBINATION.                    PAR          235          I
          -FCC0787
 PAR                LE     B2,PAR.NX1  IF NORMAL OPERATOR/OPERAND                          FCC0787       79     A     
 PAR      *         TEST FOR I/O DO BEGIN                                                  FCC0787       80     A     
 PAR                                                                                       FCC0787       81     A     
 PAR                                                                                       FCC0787       82     A     
 PAR                SB2    B3-IO.DOB   IO.DOB ALLOWED TO FOLLOW COMMA                      FCC0787       83     A     
 PAR                SB3    X1-O.COMMA                                                      FCC0787       84     A     
 PAR                NZ     B2,PAREX                                                        FCC0787       85     A     
 PAR                NZ     B3,PAREX                                                        FCC0787       86     A     
 PAR                JP     B7                                                              FCC0787       87     A     
 PAR                                                                                       FCC0787       88     A     
 PAR       PAR.NX1  PL     X4,PAREX    IF ILLEGAL OPERATOR COMBINATION                     FCC0787       89     A     
 PAR                                                                                       PAR          236     A     
 PAR                JP     B7          JUMP TO PROCESS CURRENT ELEMENT.                    PAR          237     A     
 PAR       PAR.TNK  EJECT  4,20                                                            PAR          238     A     
 PAR      **        TNK -  TRANSLATE CONSTANT                                              PAR          239     A     
 PAR      *                                                                                PAR          240     A     
 PAR      *         ENTRY  B4 _ TO CONSTANT TO BE TRANSLATED.                              PAR          241     A     
 PAR      *                                                                                PAR          242     A     
 PAR      *         EXIT   (X6) = TAG FOR CONSTANT.                                        PAR          243     A     
 PAR      *                (B7) = ORDINAL OF TAG.                                          PAR          244     A     
 PAR      *                                                                                PAR          245     A     
 PAR      *         USES   CANNOT DESTROY - B4,B5,B6                                       PAR          246     A     
 PAR      *                                                                                PAR          247     A     
 PAR      *         CALLS  DEC, NCM, NCS                                                   PAR          248     A     
 PAR                                                                                       PAR          249     A     
 PAR                                                                                       PAR          250     A     
 PAR      **        TRANSLATE CONSTANT TO INTERNAL BINARY USING *DEC*                      PAR          251     A     
 PAR      *         RETURN WITH                                                            PAR          252     A     
 PAR      *                (X1) = MODE OF CONSTANT.                                        PAR          253     A     
 PAR      *                (X6) = UPPER HALF OF CONSTANT.                                  PAR          254     A     
 PAR      *                (X2) = LOWER HALF OF CONSTANT. (IF *DBL*)                       PAR          255     A     
 PAR                                                                                       PAR          256     A     
 PAR       PAR.TNK  RJ     DEC         TRANSLATE TO INTERNAL BINARY                        PAR          257     A     
 PAR                =B2    X1-M.DBL                                                        PAR          258     A     
 PAR                BX7    X1          MODE                                                PAR          259     A     
 PAR                NZ     B2,TNK.ENT  IF NOT *DOUBLE*                                     PAR          260     A     
 PAR                                                                                       PAR          261     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1229    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      **        HERE IF CONSTANT = DOUBLE                                              PAR          262     A     
 PAR      *         (X2) = LOWER HALF OF CONSTANT                                          PAR          263     A     
 PAR      *         (X6) = REAL PART.                                                      PAR          264     A     
 PAR      *         (X7) = MODE.                                                           PAR          265     A     
 PAR                                                                                       PAR          266     A     
 PAR       TNK.DBL  SA6    SCR         1ST WORD OF CONSTANT                                PAR          267     A     
 PAR                BX6    X2                                                              PAR          268     A     
 PAR                =A6    A6+1        2ND WORD                                            PAR          269     A     
 PAR                =A7    A6+1        MODE                                                PAR          270     A     
 PAR                SB2    SCR         FWA                                                 PAR          271     A     
 PAR                SA1    TS.CON                                                          PAR          272     A     
 PAR                SB3    B2+2        LWA+1                                               PAR          273     A     
 PAR                RJ     NCM         SCAN/ENTER INTO CONSTANT TABLE.                     PAR          274     A     
 PAR                SA3    SCR+2       MODE                                                PAR          275     A     
 PAR                SX6    B7+C.CON    FORM TAG                                            PAR          276     A     
 PAR                LX6    P.TAG                                                           PAR          277     A     
 PAR                BX6    X6+X3       ADD IN MODE BITS.                                   PAR          278     A     
 PAR                EQ     TNK40       CONTINUE                                            PAR          279     A     
 PAR                                                                                       PAR          280     A     
 PAR      **        ENTRY SINGLE WORD CONSTANT.                                            PAR          281     A     
 PAR      *         (X6) = CONSTANT. (IN BINARY)                                           PAR          282     A     
 PAR      *         (X7) = MODE.                                                           PAR          283     A     
 PAR                                                                                       PAR          284     A     
 PAR       TNK.ENT  RJ     NCS         SCAN/ENTRY CONSTANT                                 PAR          285     A     
 PAR       TNK40    =A2    B4+1                                                            PAR          286     A     
 PAR                SA1    ACONS                                                           PAR          287     A     
 PAR                =B4    B4+1                                                            PAR          288     A     
 PAR                SB3    X2                                                              PAR          289     A     
 PAR                SA6    B6                                                              PAR          290     A     
 PAR                LX4    B3,X1                                                           PAR          291     A     
 PAR                =B6    B6+1                                                            PAR          292     A     
 PAR                MI     X4,PAR.NX   IF NEXT OK TO FOLLOW CONSTANT                       PAR          293     A     
 PAR                =A1    B4-1        SET TOKEN FOR ERROR MESSAGE                         PAR          294     A     
 PAR                SA5    B4          SET TOKEN FOR ERROR MESSAGE                         PAR          295     A     
 PAR                SB4    B4-1        RESET TOKEN POINTER                                 FCC2196        5     A     
 PAR                EQ     PAREX                                                           PAR          296     A     
 PAR                EJECT                                                                  PAR          297     A     
 PAR      **        HERE IF *ELEMENT* IS A *HOLLERITH CONSTANT*                            PAR          298     A     
 PAR                                                                                       PAR          299     A     
 PAR       PAR.HOL  BX0    X1                                                              PAR          300     A     
 PAR                AX0    P.LCON                                                          PAR          301     A     
 PAR                MX2    -6                                                              PAR          302          I
          -FCC0844
 PAR                MX2    -L.LCON                                                         FCC0844       25     A     
 PAR                BX7    -X2*X0                                                          PAR          303     A     
 PAR                SB7    X7                                                              PAR          304     A     
 PAR                EQ     B7,B1,PAR.HOL5 IF LENGTH=1,OK ANYWHERE                          PAR          305     A     
 PAR                SA3    ARGMODE                                                         PAR          306     A     
 PAR                BX4    X1                                                              PAR          307     A     
 PAR                IFBIT  X3,AMWHOL,PAR.HOL3                                              PAR          308     A     
 PAR       PAR.HOL2 NOTE   E.AT3       HOLLERITH MORE THAN ONE WORD - TRUNCATED            PAR          309     A     
 PAR                BX1    X4                                                              PAR          310     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1230    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =X7    0                                                               PAR          311     A     
 PAR                EQ     PAR.HOL5                                                        PAR          312     A     
 PAR                                                                                       PAR          313     A     
 PAR       PAR.HOL3 =A2    B4+1                                                            PAR          314     A     
 PAR                SB7    X2-O.COMMA                                                      PAR          315     A     
 PAR                ZR     X2,PAR.HOL4 IF NEXT *EOS*                                       PAR          316     A     
 PAR                SB2    X2-O.RP                                                         PAR          317     A     
 PAR                ZR     B7,PAR.HOL4 IF NEXT *,*                                         PAR          318     A     
 PAR                NZ     B2,PAR.HOL2 IF NEXT NOT *)* - NOT ARGUMENT                      PAR          319     A     
 PAR       PAR.HOL4 BSS    0                                                               PAR          320     A     
 PAR                                                                                       PAR          321     A     
 PAR       PAR.HOL5 MX0    L.2TAG                                                          PAR          322     A     
 PAR                SA3    ARGMODE                                                         PAR          323     A     
 PAR                BX6    X0*X1       TAG                                                 PAR          324     A     
 PAR                SB7    X3-A=LIST                                                       PAR          325     A     
 PAR                NZ     B7,PAR.HOL7 IF NOT IN LIST PROCESSING                           PAR          326     A     
 PAR                SX3    M.INT       DEFAULT TYPE FOR HOLL CONSTANTS IN APLIST           PAR          327     A     
 PAR                SA2    R.W                                                             PAR          328     A     
 PAR                BX6    X6+X3       TAG + LENGTH                                        PAR          329     A     
 PAR                ZR     X2,PAR.HOL6 IF NOT LIST-DIRECTED I/O                            PAR          330     A     
 PAR                AX1    P.CLCON                                                         PAR          331     A     
 PAR                SX3    X1                                                              PAR          332          I
          -FCC0844
 PAR                MX0    -L.CLCON                                                        FCC0844       26     A     
 PAR                BX3    -X0*X1                                                          FCC0844       27     A     
 PAR                ZR     X3,PAR.HOL6 IF NOT A CHAR STRING                                PAR          333     A     
 PAR                MX7    1                                                               PAR          334     A     
 PAR                SA7    R.W         SET FLAG FOR CHAR STRING                            PAR          335     A     
 PAR                SX7    X3                                                              PAR          336     A     
 PAR       PAR.HOL6 LX7    P.2BIAS+L.MSHORT                                                PAR          337     A     
 PAR                BX6    X6+X7       TAG + LENGTH + MODE                                 PAR          338     A     
 PAR       PAR.HOL7 =B4    B4+1                                                            PAR          339          I
          -FCC0498
 PAR       PAR.HOL7 SA3    ARGMODE                                                         FCC0498       36     A     
 PAR                SB7    X3-A=CALL                                                       FCC0498       37     A     
 PAR                ZR     B7,PAR.HOL8 IF HOLLERITH IN CALL ARGUMENT LIST                  FCC0498       38     A     
 PAR                ANSI   =XE.AT8                                                         FCC0498       39     A     
 PAR       PAR.HOL8 =B4    B4+1                                                            FCC0498       40     A     
 PAR                SA6    B6                                                              PAR          340     A     
 PAR                SB6    B6+B1                                                           PAR          341     A     
 PAR                EQ     PAR.NX      CONTINUE                                            PAR          342     A     
 PAR       TRE      EJECT  4,20                                                            PAR          343     A     
 PAR      **        TRE -  TRANSLATE ELEMENT.                                              PAR          344     A     
 PAR      *                                                                                PAR          345     A     
 PAR      *         TRE FIRST SCANS THE SYMBOL TABLE TO CHECK IF ELEMENT HAS               PAR          346     A     
 PAR      *         ALREADY BEEN TAGGED.  IF IT HAS IT DOES SOME SIMPLE SYNTAX             PAR          347     A     
 PAR      *         CHECKING AND EXITS.  IF NOT IT THEN CHECKS THE SYNTAX USAGE            PAR          348     A     
 PAR      *         AND DEPENDING ON ITS USE WILL EITHER ---                               PAR          349     A     
 PAR      *                                                                                PAR          350     A     
 PAR      *         A. CALL TSF TO TRANSLATE SPECIAL FUNCTION.                             PAR          351     A     
 PAR      *         B. ENTER TAG INTO SYMBOL TABLE AS A VARIABLE.                          PAR          352     A     
 PAR      *                                                                                PAR          353     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1231    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         IN ALL CASES TRE WILL SET UP THE EXIT CONDITIONS NEEDED FOR            PAR          354     A     
 PAR      *         PARSE TO MAKE SENSE OUT OF THIS MESS.                                  PAR          355     A     
 PAR      *                                                                                PAR          356     A     
 PAR      *         ENTRY  (B4) _ ELEMENT TO TRANSLATE.                                    PAR          357     A     
 PAR      *                      (MUST CONTAIN O.VAR BITS IN LOW ORDER.)                   PAR          358     A     
 PAR      *                                                                                PAR          359     A     
 PAR      *         EXIT   (X6) = SYMBOL TABLE ENTRY.                                      PAR          360     A     
 PAR      *                (B2) =                                                          PAR          361     A     
 PAR      *                            IF VARIABLE   PAR.NX                                PAR          362     A     
 PAR      *                            IF ARRAY      PAR.SUB                               PAR          363     A     
 PAR      *                            IF FUNCTION   PAR.FUN  (IF ALREADY IN TABLE         PAR          364     A     
 PAR      *                                          PAR.FUN  (IF 1ST REFERENCE)           PAR          365     A     
 PAR      *                                                                                PAR          366     A     
 PAR      *         USES   CANNOT DESTROY  A4,A5,A7  B4,B5,B6                              PAR          367     A     
 PAR      *                                                                                PAR          368     A     
 PAR      *         CALLS  SCAN, TRV, TSF.                                                 PAR          369     A     
 PAR                                                                                       PAR          370     A     
 PAR                                                                                       PAR          371     A     
 PAR       PAR.VAR  SA1    B4                                                              PAR          372     A     
 PAR                MX0    L.SYM                                                           PAR          373     A     
 PAR                BX6    X0*X1       SYMBOL ONLY                                         PAR          374     A     
 PAR                BX7    0                                                               PAR          375     A     
 PAR                SA6    FILL.       IN CASE OF ERROR.                                   PAR          376     A     
 PAR                SA7    ATTR        CLEAR ATTRIBUTE CELL                                PAR          377     A     
 PAR                SA6    CSYMBOL     SAVE CURRENT SYMBOL                                 PAR          378     A     
 PAR                =A2    B4+1                                                            PAR          379     A     
 PAR                SB7    X2-O.VAR                                                        PAR          380     A     
 PAR                NZ     B7,PAR.VAR2 IF LESS THAN 8 CHARACTERS IN NAME                   PAR          381     A     
 PAR                RJ     =XTLV       TRUNCATE NAME -- SORT OF                            PAR          382     A     
 PAR       PAR.VAR2 SCAN   TS.SYM,SSY                                                      PAR          383     A     
 PAR                SA3    REFVAR                                                          PAR          384     A     
 PAR                =X7    M.VAR                                                           PAR          385     A     
 PAR                SB2    X3-CR.STR                                                       PAR          386     A     
 PAR                NZ     B2,TRE6     IF NOT PROCESSING A *SET*                           PAR          387     A     
 PAR                =X7    M.VAR+M.DEF                                                     PAR          388     A     
 PAR       TRE6     MI     B7,TRE80    IF *NIT*                                            PAR          389     A     
 PAR                                                                                       PAR          390     A     
 PAR      **        HERE IF ELEMENT ALREADY IN SYMBOL TABLE.                               PAR          391     A     
 PAR      *                                                                                PAR          392     A     
 PAR      *         GO THRU SEQUENCE OF CHECKS FOR PROPER USE.                             PAR          393     A     
 PAR      *         1. CHECK IF CLASS = ARRAY.                                             PAR          394     A     
 PAR      *                YES - CHECK IF FOLLOWED BY *(*                                  PAR          395     A     
 PAR      *                   IF NOT OUTPUT ANSI MESSAGE NOTING REFERENCE TO               PAR          396     A     
 PAR      *                   AN ARRAY WITHOUT SUBSCRIPT.                                  PAR          397     A     
 PAR      *                                                                                PAR          398     A     
 PAR      *                NOT - GO TO 2.                                                  PAR          399     A     
 PAR      *         2. CHECK IF IT IS A VARIABLE.                                          PAR          400     A     
 PAR      *                YES - CHECK IF FOLLOWED BY *(*                                  PAR          401     A     
 PAR      *                   IF SO OUTPUT ILLEGAL USE OF VARIABLE.                        PAR          402     A     
 PAR      *                NO  - GO TO 3.                                                  PAR          403     A     
 PAR      *                                                                                PAR          404     A     
 PAR      *         3. CHECK IF IT IS A FUNCTION.                                          PAR          405     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1232    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR          406     A     
 PAR                =A1    B4+1                                                            PAR          407     A     
 PAR                BX3    X6                                                              PAR          408     A     
 PAR                SX0    X1-O.(                                                          PAR          409     A     
 PAR                IFBIT  X3,-RP,TRE7 IF NOT RETURNS-ARG                                  PAR          410     A     
 PAR                FATAL  E.MRA       RETURNS-ARG NOT ALLOWED                             PAR          411     A     
 PAR                =B2    PAR.NX                                                          PAR          412     A     
 PAR                EQ     TREX        EXIT..                                              PAR          413     A     
 PAR       TRE7     IFBIT  X3,-VAR/RP,TRE30  IF NOT VARIABLE                               PAR          414     A     
 PAR                IFBIT  X3,-ARY/VAR,TRE22 IF NOT ARRAY                                  PAR          415     A     
 PAR                BX6    X6+X7                                                           PAR          416     A     
 PAR                SX7    M.2ARY                                                          PAR          417     A     
 PAR                SB2    PAR.SUB                                                         PAR          418     A     
 PAR                SA6    A2          RESET TAG WITH APPROPIATE CLASS BITS.               PAR          419     A     
 PAR                SA7    ATTR                                                            PAR          420     A     
 PAR                RJ     CIL         CHECK IF ILLEGAL LEVEL                              PAR          421     A     
 PAR                ZR     X0,TREX     IF ARRAY FOLLOWED BY *(*                            PAR          422     A     
 PAR                SA3    ARGMODE                                                         PAR          423     A     
 PAR                SB7    E.TE4                                                           PAR          424     A     
 PAR                SB3    X3-A=LIST                                                       PAR          425     A     
 PAR                ZR     B3,TRE8     IF IN I/O LIST PROCESSING                           PAR          426     A     
 PAR                SB3    X3-A=CALL                                                       PAR          427     A     
 PAR                ZR     B3,TRE10    IF IN CALL PROCESSING                               PAR          428     A     
 PAR                SB3    X3-A=FUN                                                        PAR          429     A     
 PAR                ZR     B3,TRE10    IF IN EXTERNAL FUNCTION PROCESSING                  PAR          430     A     
 PAR                SB2    =XA=FMT                                                         PAR          431     A     
 PAR                SB3    X3                                                              PAR          432     A     
 PAR                SB3    B3-B2                                                           PAR          433     A     
 PAR                ZR     B3,TRE8     IF FORMAT INDICATOR                                 PAR          434     A     
 PAR                ANSI   B7                                                              PAR          435     A     
 PAR                EQ     TRE10                                                           PAR          436     A     
 PAR                                                                                       PAR          437     A     
 PAR       TRE8     =X7    X7+M.ADDR   INDICATE NOT SINGLE ELEMENT                         PAR          438          I
          -FCC1134
 PAR       TRE8     =X7    X7+M.ADDR+M.ARE   INDICATE NOT SINGLE ELEMENT                   FCC1134       26     A     
 PAR                SA7    A7                                                              PAR          439     A     
 PAR                                                                                       PAR          440     A     
 PAR       TRE10    SB2    PAR.NX                                                          PAR          441     A     
 PAR                EQ     TREX        EXIT..                                              PAR          442     A     
 PAR                                                                                       PAR          443     A     
 PAR                                                                                       PAR          444     A     
 PAR      *         HERE IF POSSIBLE VARIABLE.                                             PAR          445     A     
 PAR                                                                                       PAR          446     A     
 PAR       TRE22    BX6    X6+X7       ADD IN CLASS BITS                                   PAR          447     A     
 PAR                SB2    PAR.NX      INDICATE VARIABLE.                                  PAR          448     A     
 PAR                SA6    A2          RESET TAG WITH APPROPIATE CLASS BITS.               PAR          449     A     
 PAR                RJ     CIL         CHECK IF ILLEGAL LEVEL                              PAR          450     A     
 PAR                NZ     X0,TREX     IF NOT FOLLOWED BY *(*                              PAR          451     A     
 PAR                FATAL  E.TE1       ILLEGAL *(* FOLLOWING VARIABLE NAME.                PAR          452     A     
 PAR                                                                                       PAR          453     A     
 PAR      *         SKIP OVER BAD PARENTHESIZED EXPRESSION                                 PAR          454     A     
 PAR                                                                                       PAR          455     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1233    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =B4    B4+1                                                            PAR          456     A     
 PAR       TRE22A   =B3    1           INITIALIZE *LP* COUNTER                             PAR          457     A     
 PAR                =B2    0           INITIALIZE *RP* COUNTER                             PAR          458     A     
 PAR       TRE23    =B4    B4+1                                                            PAR          459     A     
 PAR                SA1    B4                                                              PAR          460     A     
 PAR                ZR     X1,PSN      IF *EOS* - EXIT...                                  PAR          461     A     
 PAR                SB7    X1-O.(                                                          PAR          462     A     
 PAR                ZR     B7,TRE24    IF *(*                                              PAR          463     A     
 PAR                SB7    X1-O.)                                                          PAR          464     A     
 PAR                ZR     B7,TRE25    IF *)*                                              PAR          465     A     
 PAR                EQ     TRE23                                                           PAR          466     A     
 PAR       TRE24    =B3    B3+1                                                            PAR          467     A     
 PAR                EQ     TRE23                                                           PAR          468     A     
 PAR       TRE25    =B2    B2+1                                                            PAR          469     A     
 PAR                NE     B2,B3,TRE23                                                     PAR          470     A     
 PAR                SB2    PAR.NX                                                          PAR          471     A     
 PAR                EQ     TREX        EXIT..                                              PAR          472     A     
 PAR                                                                                       PAR          473     A     
 PAR      *         HERE IF POSSIBLE FUNCTION/SUBROUTINE.                                  PAR          474     A     
 PAR                                                                                       PAR          475     A     
 PAR       TRE30    SB2    PAR.FUN     INDICATE EXTERNAL.                                  PAR          476     A     
 PAR                IFBIT  X3,-NVAR/VAR,TRE70                                              PAR          477     A     
 PAR                IFBIT  X3,-FUN/NVAR,TRE40 IF NOT A FUNCTION.                           PAR          478     A     
 PAR                ZR     X0,TREX     IF FOLLOWED BY *(* - OK.                            PAR          479     A     
 PAR                                                                                       PAR          480     A     
 PAR      **        REFERENCE TO AN FUNCTION/SUBROUTINE WITHOUT A LEFT PAREN               PAR          481     A     
 PAR      *         VALIDATE LEGAL FOR CURRENT MODE OF EXPRESSION                          PAR          482     A     
 PAR      *         (X3) = TAG SHIFTED BY P.FUN                                            PAR          483     A     
 PAR                                                                                       PAR          484     A     
 PAR       TRE32    SA2    ARGMODE                                                         PAR          485     A     
 PAR                =B2    PAR.NX            RETURN ADDRESS                                PAR          486     A     
 PAR                =B3    E.TE2A                                                          PAR          487     A     
 PAR                IFBIT  X3,INLINE/FUN,TRE33 IF REFERENCE TO INTRINSIC                   PAR          488     A     
 PAR                =B3    =XE.TE2B                                                        FCC0718        7     A     
 PAR                IFBIT  X3,BEF/INLINE,TRE33  IF REFERENCE TO BEF                        FCC0718        8     A     
 PAR                =B3    E.TE2                                                           PAR          489     A     
 PAR                IFBIT  X2,AMFUN,TREX     IF FUNCTION WITHOUT LIST ALLOWED              PAR          490     A     
 PAR       TRE33    FATAL  B3                                                              PAR          491     A     
 PAR                EQ     TREX                                                            PAR          492     A     
 PAR                                                                                       PAR          493     A     
 PAR      *         HERE IF POSSIBLE SUBROUTINE.                                           PAR          494     A     
 PAR                                                                                       PAR          495     A     
 PAR       TRE40    IFBIT  X3,-SUB/FUN,TRE60 IF NOT SUBROUTINE.                            PAR          496     A     
 PAR                SA3    ARGMODE                                                         PAR          497     A     
 PAR                =B2    PAR.NX                                                          PAR          498     A     
 PAR                IFBIT  X3,AMFUN,TRE41  IF STAND ALONE REFERENCE MANDATORY              PAR          499     A     
 PAR                SB2    PAR.FUN                                                         FCC1011        5     A     
 PAR                ZR     X0,TREX     IF FOLLOWED BY *(* - OK                             PAR          500     A     
 PAR                EQ     TRE42                                                           PAR          501     A     
 PAR       TRE41    NZ     X0,TREX     MUST BE STAND ALONE                                 PAR          502          I
          -FCC1716X 
 PAR       TRE41    NZ     X0,TRE41.5  MUST BE STAND ALONE                                 FCC1716X      12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1234    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                FATAL  E.TE3                                                           PAR          503     A     
 PAR                EQ     TRE22A                                                          PAR          504     A     
 PAR                                                                                       FCC1716X      13     A     
 PAR       TRE41.5  BX3    X6          SYMBOL TABLE ENTRY                                  FCC1716X      14     A     
 PAR                IFBIT  X3,EST,TREX  APPEARS IN EXTERNAL STMT                           FCC1716X      15     A     
 PAR                FATAL  =XE.SU6     EXT IN CALL SHOULD BE IN EXTERNAL STMT              FCC1716X      16     A     
 PAR                EQ     TRE42.5                                                         FCC1716X      17     A     
 PAR       TRE42    FATAL  E.TE3       SUBROUTINE WITH NO *(* FOLLOWING.                   PAR          505     A     
 PAR                =B2    PAR.NX                                                          PAR          506          I
          -FCC1716X 
 PAR       TRE42.5  =B2    PAR.NX                                                          FCC1716X      18     A     
 PAR                EQ     TREX        EXIT..                                              PAR          507     A     
 PAR                                                                                       PAR          508     A     
 PAR      *         HERE IF DEFINED AS NOT-VAR BUT NOT A SUBROUTINE/FUNCTION.              PAR          509     A     
 PAR                                                                                       PAR          510     A     
 PAR       TRE60    SA1    ENTRY.                                                          PAR          511          I
          -FCC0585
 PAR                SBIT   X3,TAG/SUB+1                                                    PAR          512          I
          -FCC0585
 PAR       TRE60    IFBIT  X3,-ENT/SUB,TRE70  IF NOT ENTRY POINT                           FCC0585        7     A     
 PAR                SA1    ENTRY.                                                          FCC0585        8     A     
 PAR                SBIT   X3,TAG/ENT+1                                                    FCC0585        9     A     
 PAR                SB3    X1+C.VAR                                                        PAR          513     A     
 PAR                SB7    X3                                                              PAR          514     A     
 PAR                NE     B3,B7,TRE70 IF NOT MAIN ENTRY POINT                             PAR          515          I
          -FCC0585
 PAR                NE     B3,B7,=XE.VA3  IF NOT MAIN ENTRY POINT                          FCC0585       10     A     
 PAR                SA1    MOD                                                             PAR          516     A     
 PAR                IFBIT  X1,-PFNC,TRE70    IF NOT INSIDE A FUNCTION SUBPROGRAM           PAR          517          I
          -FCC0585
 PAR                IFBIT  X1,-PFNC,=XE.VA3  IF NOT IN FUNCTION SUBPROGRAM                 FCC0585       11     A     
 PAR                SA3    VALUE.                                                          PAR          518     A     
 PAR                SA1    TS.SYM                                                          PAR          519     A     
 PAR                IX3    X1+X3                                                           PAR          520     A     
 PAR                SA2    X3          SWITCH REFERENCE TO *VALUE.*                        PAR          521     A     
 PAR                BX6    X2                                                              PAR          522     A     
 PAR                EQ     TRE22       PROCESS AS VARIABLE                                 PAR          523     A     
 PAR       TRE70    SPACE  4,30                                                            PAR          524     A     
 PAR      **         CHECK UNCLASSIFIED TAG FOR POSSIBLE VARIABLE                          PAR          525     A     
 PAR      *          OR FUNCTION CLASSIFICATION..                                          PAR          526     A     
 PAR      *                                                                                PAR          527     A     
 PAR      *         ANSI COMMENT......                                                     PAR          528     A     
 PAR      *         ANSI ALLOWS A PROGRAMMER TO DEFINE AN INTRINSIC FUNCTION IN A          PAR          529     A     
 PAR      *         TYPE STATEMENT.  THUS A SYMBOL BY THE NAME OF A KNOWN                  PAR          530     A     
 PAR      *         INTRINSIC FUNCTION WILL BE SET INTO OUR SYMBOL TABLE BUT WILL          PAR          531     A     
 PAR      *         NOT HAVE A CLASSIFICATION ON ITS USE.  WE ALSO HAVE TO WATCH           PAR          532     A     
 PAR      *         OUT FOR A SYMBOL THAT IS IN THE SYMBOL TABLE THAT HAS ONLY THE         PAR          533     A     
 PAR      *         *EXTERNAL* CLASSIFICATION BITS ON.  IN *EXTERNAL* CASE IT IS           PAR          534     A     
 PAR      *         SORT OF SIMPLE, CONTEXT TELLS USE WHAT TO DO.                          PAR          535     A     
 PAR      *                IN THE CASE OF A SYMBOL THAT HAS MERELY BEEN TYPED, WE          PAR          536     A     
 PAR      *         MUST CHECK IF IT IS A *BEF* OR *INLINE* AND THEN CHECK IF THE          PAR          537     A     
 PAR      *         MODE OF TYPING IS THE SAME AS THE EXPLICIT TYPING GIVEN THE            PAR          538     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1235    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         FUNCTION BY ANSI.                                                      PAR          539     A     
 PAR      *                IF IT IS THEN SYMBOL IS THE DEFINED *BEF* OR                    PAR          540     A     
 PAR      *         *INTRINSIC*, IF NOT ITS DEFAULT IS SET TO A VARIABLE OR                PAR          541     A     
 PAR      *         EXTERNAL FUNCTION DEPENDING ON THE CONTEXT.                            PAR          542     A     
 PAR      *                                                                                PAR          543     A     
 PAR      *                                                                                PAR          544     A     
 PAR      *         ENTRY  (X0) = 0, IF FOLLOWED BY *(*                                    PAR          545     A     
 PAR      *                (X6) = TAG CURRENTLY PROCESSING                                 PAR          546     A     
 PAR      *                (A2) = ADDRESS OF TAG IN SYMBOL TABLE.                          PAR          547     A     
 PAR      *                (X7) = CLASS BITS (ONLY IF FOUND TO BE A VARIABLE)              PAR          548     A     
 PAR      *                                                                                PAR          549     A     
 PAR      *         EXIT   (X6) = UPDATED TAG                                              PAR          550     A     
 PAR      *                       ALSO UPDATED IN TABLE OFF OF *A2*                        PAR          551     A     
 PAR      *                                                                                PAR          552     A     
 PAR      *                (B2) = PAR.XX PROCESSING ADDRESS FOR PARSER.                    PAR          553     A     
 PAR      *                       TO.                                                      PAR          554     A     
 PAR      *         CALLS  SLT                                                             PAR          555     A     
 PAR                                                                                       PAR          556     A     
 PAR                                                                                       PAR          557     A     
 PAR       TRE70    LX2    X7                                                              PAR          558     A     
 PAR                =B2    PAR.NX                                                          PAR          559     A     
 PAR                BX1    X6                                                              PAR          560     A     
 PAR                NZ     X0,TRE76    IF NOT FOLLOWED BY *(* - SET VARIABLE BIT           PAR          561     A     
 PAR                                                                                       PAR          562     A     
 PAR      **        HERE IF ENTITY FOLLOWED BY *(*, BUT DOES NOT HAVE CLASS                PAR          563     A     
 PAR      *         IF FORMAL PARAMETER OR EXTERNAL SET CLASS AS EXTERNAL FUNCTION         PAR          564     A     
 PAR                                                                                       PAR          565     A     
 PAR                =X0    M.FP+M.EXT                                                      PAR          566     A     
 PAR                =X2    M.NVAR+M.FUN+M.EXT                                              PAR          567     A     
 PAR                BX1    X0*X6                                                           PAR          568     A     
 PAR                =B2    PAR.FUN                                                         PAR          569     A     
 PAR                NZ     X1,TRE78    MUST BE EXTERNAL FUNCTION.                          PAR          570     A     
 PAR                                                                                       PAR          571     A     
 PAR      **        NOT FORMAL PARAMETER CHECK IF ENTITY APPEARED IN TYPE                  PAR          572     A     
 PAR      *         STATEMENT AND TYPE AND NAME SAME AS A *BEF* OR *INTRINSIC*             PAR          573     A     
 PAR                                                                                       PAR          574     A     
 PAR                MX0    L.SYM                                                           PAR          575     A     
 PAR                =A3    A2-1        LOAD SYMBOL FROM *SYMBOL* TABLE                     PAR          576     A     
 PAR                BX1    X0*X3       SYMBOL ONLY                                         PAR          577     A     
 PAR                RJ     SLT         SCAN LIBRARY TABLE.                                 PAR          578     A     
 PAR                =B2    PAR.FUN                                                         PAR          579     A     
 PAR                =X2    M.NVAR+M.EXT+M.FUN                                              PAR          580     A     
 PAR                MI     B7,TRE78    IF NOT IN TABLE - EXTERNAL FUNCTION                 PAR          581     A     
 PAR                MX0    -L.MODE                                                         PAR          582     A     
 PAR                BX1    X6-X3                                                           PAR          583     A     
 PAR                BX0    -X0*X1                                                          PAR          584     A     
 PAR                NZ     X0,TRE78    IF NOT SAME MODE                                    PAR          585     A     
 PAR                MX0    -L.CLASS-L.MODE                                                 PAR          586     A     
 PAR                BX1    X0*X6       ELIMINATE ALL OLD CLASS+MODE BITS.                  PAR          587     A     
 PAR                BX6    X3+X1       CHANGE CLASS BITS TO TABLE ENTRY.                   PAR          588     A     
 PAR                SA6    A2                                                              PAR          589     A     
 PAR                EQ     TREX        EXIT..                                              PAR          590     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1236    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR          591     A     
 PAR      **        ELEMENT NOT FOLLOWED BY LEFT PAREN                                     PAR          592     A     
 PAR      *         A.  IF EXTERNAL BIT SET, CONTINUE, NOT SETTING ANY OTHER BITS          PAR          593     A     
 PAR      *         B.  IF NOT (A), SET VARIABLE BITS DEFINED IN (X2)                      PAR          594     A     
 PAR                                                                                       PAR          595     A     
 PAR       TRE76    IFBIT  X1,EXT,TREX IF EXTERNAL SET, DO NOTHING TO CLASS                PAR          596     A     
 PAR                                                                                       PAR          597     A     
 PAR      **        (X2) = CLASS BITS FOR TAG                                              PAR          598     A     
 PAR      *         (B2) = ADDRESS FOR PROCESSING TAG                                      PAR          599     A     
 PAR                                                                                       PAR          600     A     
 PAR       TRE78    BX6    X2+X6                                                           PAR          601     A     
 PAR                SA6    A2                                                              PAR          602     A     
 PAR                EQ     TREX        CLASSIFIED.                                         PAR          603     A     
 PAR                                                                                       PAR          604     A     
 PAR      **        HERE IF ELEMENT NOT IN SYMBOL TABLE.                                   PAR          605     A     
 PAR      *         CHECK IF FOLLOWED BY *(*                                               PAR          606     A     
 PAR      *         IF YES, MUST BE A FUNCTION REFERENCE -- CALL *TSF*                     PAR          607     A     
 PAR      *                                                                                PAR          608     A     
 PAR      *         IF NO,  MUST BE A SIMPLE VARIABLE -- ADD TO TABLE AND EXIT.            PAR          609     A     
 PAR                                                                                       PAR          610     A     
 PAR       TRE80    =A1    B4+1                                                            PAR          611     A     
 PAR                SX2    X1-O.(                                                          PAR          612     A     
 PAR                ZR     X2,TRE90    IF ELEMENT FOLLOWED BY *(*                          PAR          613     A     
 PAR                RJ     STY         SET MODE                                            PAR          614     A     
 PAR                IX7    X7+X1       ADD IN CLASS FIELD.                                 PAR          615     A     
 PAR                ADSYM  TS.SYM      ADD SYMBOL, TAG TO TABLE.                           PAR          616     A     
 PAR                =B2    PAR.NX                                                          PAR          617     A     
 PAR                EQ     TREX        EXIT..                                              PAR          618     A     
 PAR                                                                                       PAR          619     A     
 PAR      **        HERE IF NOT IN TABLE AND FOLLOWED BY *(*                               PAR          620     A     
 PAR      *         EXIT   (NEXT) = 0, SYMBOL ALREADY USED, ARGUMENT COUNT SET.            PAR          621     A     
 PAR                                                                                       PAR          622     A     
 PAR       TRE90    BX6    0                                                               PAR          623     A     
 PAR                RJ     TSF         TRANSLATE FUNCTION REFERENCE                        PAR          624     A     
 PAR                SB2    PAR.FUN     INDICATE EXTERNAL.                                  PAR          625     A     
 PAR                EQ     PAR.VARX                                                        PAR          626     A     
 PAR                                                                                       PAR          627     A     
 PAR      **        EXIT ROUTINE, BUT CHECK IF CROSS REFERENCE HAS BEEN REQUESTED          PAR          628     A     
 PAR      *         FIRST....                                                              PAR          629     A     
 PAR      *         (X6) = TAG                                                             PAR          630     A     
 PAR      *         (B2) = SPECIAL FLAG.                                                   PAR          631     A     
 PAR                                                                                       PAR          632     A     
 PAR       TREX     SA1    LOP=R                                                           PAR          633     A     
 PAR                PL     X1,PAR.VARX IF NO CROSS-REFERENCE SELECTED.                     PAR          634     A     
 PAR                LX2    X6                                                              PAR          635     A     
 PAR                SA6    TRVA        SAVE TAG.                                           PAR          636     A     
 PAR                SX6    B2                                                              PAR          637     A     
 PAR                =A6    A6+1        SAVE FLAG.                                          PAR          638     A     
 PAR                SA1    REFVAR      TYPE OF REFERENCE                                   PAR          639     A     
 PAR                LX6    X2                                                              PAR          640     A     
 PAR                ADDREF X6,X1                                                           PAR          641     A     
 PAR                SA1    TRVA                                                            PAR          642     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1237    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =A2    A1+1                                                            PAR          643     A     
 PAR                BX6    X1          TAG.                                                PAR          644     A     
 PAR                SB2    X2          FLAG.                                               PAR          645     A     
 PAR       VARX     EJECT  4,8                                                             PAR          646     A     
 PAR      **        VARX - TRANSLATION OF SYMBOL COMPLETE.                                 PAR          647     A     
 PAR      *                                                                                PAR          648     A     
 PAR      *         (B2) = PROCESSOR ADDRESS                                               PAR          649     A     
 PAR      *         (ATTR)= ATTRIBUTE BITS TO BE SET FOR PASS *2*                          PAR          650     A     
 PAR                                                                                       PAR          651     A     
 PAR       PAR.VARX LX5    X6          PASS *1* TAG.                                       PAR          652     A     
 PAR                BX1    X6                                                              PAR          653     A     
 PAR                =B4    B4+1                                                            PAR          654     A     
 PAR                MX0    -L.FPNO                                                         PAR          655     A     
 PAR                AX1    P.FPNO                                                          PAR          656     A     
 PAR                =X7    M.EQUIV                                                         PAR          657     A     
 PAR                MX3    L.TAG+L.MODE                                                    PAR          658     A     
 PAR                BX2    -X0*X1                                                          PAR          659     A     
 PAR                LX3    L.MODE                                                          PAR          660     A     
 PAR                BX7    X7*X6                                                           PAR          661     A     
 PAR                SA4    ATTR                                                            PAR          662     A     
 PAR                =B6    B6+1        UPDATE ELEMENT STACK POINTER.                       PAR          663     A     
 PAR                LX2    P.2FPNO                                                         PAR          664     A     
 PAR                BX1    X3*X6       TAG + MODE  (SAME FOR PASS *1* AND *2*)             PAR          665     A     
 PAR                IX6    X1+X2       TAG + PARM + MODE. (PASS *2* TAG.)                  PAR          666     A     
 PAR                LX7    P.2EQUIV-P.EQUIV                                                PAR          667     A     
 PAR                BX6    X6+X4       ADD IN ATTRIBUTE BITS                               PAR          668     A     
 PAR                BX6    X6+X7                                                           PAR          669     A     
 PAR                =A6    B6-1        TO ELEMENT STACK.                                   PAR          670     A     
 PAR                SA2    CMLFLG                                                          PAR          671     A     
 PAR                ZR     X2,PAR.VAR7 IF NOT INPUT I/O LIST ITEMS                         PAR          672     A     
 PAR                MI     X2,PAR.VAR6 IF ARRAY SUBSCRIPT                                  PAR          673     A     
 PAR                SX4    B2          SAVE B2                                             PAR          674     A     
 PAR                ADDWD  =XTP.ILI    ADD INPUT LIST ITEM TO TABLE                        PAR          675     A     
 PAR                SB2    X4                                                              PAR          676     A     
 PAR                EQ     PAR.VAR7                                                        PAR          677     A     
 PAR       PAR.VAR6 RJ     CML         CHECK FOR MATCH IN LIST TABLE                       PAR          678     A     
 PAR                                                                                       PAR          679     A     
 PAR      **        (X6) = PASS *2* TAG, (X5) = PASS *1* TAG.                              PAR          680     A     
 PAR                                                                                       PAR          681     A     
 PAR       PAR.VAR7 JP     B2          JUMP TO PROCESS TRANSLATED SYMBOL.                  PAR          682     A     
 PAR       PAR.SUB  EJECT  4                                                               PAR          683     A     
 PAR                                                                                       PAR          684     A     
 PAR      **        HERE IF ELEMENT IS A *ARRAY(*                                          PAR          685     A     
 PAR                                                                                       PAR          686     A     
 PAR       PAR.SUB  SA2    ARGMODE                                                         PAR          687     A     
 PAR                RJ     SSO         SET-UP SUBSCRIPT OPERATOR.                          PAR          688     A     
 PAR                                                                                       PAR          689     A     
 PAR      **        RETURN FROM *SSO* WITH (X7) = DIMENSIONALITY.                          PAR          690     A     
 PAR                                                                                       PAR          691     A     
 PAR                SA1    CMLFLG                                                          PAR          692     A     
 PAR                ZR     X1,PAR.SUB1 IF NOT I/O LIST ITEM OR FLAG ALREADY SET            PAR          693     A     
 PAR                MI     X1,PAR.SUB1 IF FLAG ALREADY SET FOR A *(*                       PAR          694     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1238    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =X6    -B5         FLAG SET TO ADDR OF *(*                             PAR          695     A     
 PAR                SA6    A1                                                              PAR          696     A     
 PAR       PAR.SUB1 SA3    ARRARM                                                          PAR          697     A     
 PAR                =X4    0                                                               PAR          698     A     
 PAR                BX6    X3                                                              PAR          699     A     
 PAR                LX7    P.ACM                                                           PAR          700     A     
 PAR                =B3    O.SLP                                                           PAR          701     A     
 PAR                EQ     PAR.SPS     ENTER PAREN STACK                                   PAR          702     A     
 PAR                                                                                       PAR          703     A     
 PAR      **        HERE IF *TRUE* OR *FALSE*                                              PAR          704     A     
 PAR                                                                                       PAR          705     A     
 PAR       PAR.TRU  BSS    0                                                               PAR          706     A     
 PAR       PAR.FAL  SB7    X1-O.TRUE                                                       PAR          707     A     
 PAR                SA1    B7+VTRUE                                                        PAR          708     A     
 PAR                =B4    B4+1                                                            PAR          709     A     
 PAR                BX6    X1                                                              PAR          710     A     
 PAR                =B6    B6+1                                                            PAR          711     A     
 PAR                SA6    B6-1                                                            PAR          712     A     
 PAR                EQ     PAR.NX      CONTINUE.                                           PAR          713     A     
 PAR       PAR.FUN  EJECT  4,8                                                             PAR          714     A     
 PAR      **        HERE IF ELEMENT IS A *FUNCTION* OF SOME KIND ....                      PAR          715     A     
 PAR                                                                                       PAR          716     A     
 PAR       PAR.FUN  BX7    X5                                                              PAR          717     A     
 PAR                IFBIT  X5,-SUB,JOE                                                     FCC2307       13     A     
 PAR                ANSI   E.CL3       SAME NAME USED AS A FUNCTION AND SUB                FCC2307       14     A     
 PAR       JOE      BX5    X7                                                              FCC2307       15     A     
 PAR                IFBIT  X5,EXT,PAR.XF     IF EXTERNAL                                   PAR          718     A     
 PAR                IFBIT  X5,-ASF/EXT,PAR.BF                                              PAR          719     A     
 PAR                                                                                       PAR          720     A     
 PAR      **        HERE IF REFERENCE TO AN ASF FUNCTION.                                  PAR          721     A     
 PAR                                                                                       PAR          722     A     
 PAR                RJ     AFR         PROCESS *ASF* REFERENCE.                            PAR          723     A     
 PAR                                                                                       PAR          724     A     
 PAR      **        (B4) RESET TO SKELETON                                                 PAR          725     A     
 PAR      *         (B6) RESET ABOVE ASF ESTACK ENTRY                                      PAR          726     A     
 PAR      *         (INAFR)   RESET                                                        PAR          727     A     
 PAR      *         (ALC.REG) RESET                                                        PAR          728     A     
 PAR                                                                                       PAR          729     A     
 PAR                SA3    ASFARM                                                          PAR          730     A     
 PAR                SX5    B3                                                              PAR          731     A     
 PAR                MX0    -L.MODE                                                         PAR          732     A     
 PAR                SA4    B6          THE ASF ENTRY IS NEEDED FOR MODE                    PAR          733     A     
 PAR                BX4    -X0*X4      NEW *ARGMIS*                                        PAR          734     A     
 PAR                BX6    X3          NEW *ARGMODE*                                       PAR          735     A     
 PAR                =B3    O.SLP                                                           PAR          736     A     
 PAR                LX7    X5                                                              PAR          737     A     
 PAR                EQ     PAR.SPS     SET PAREN STACK                                     PAR          738     A     
 PAR                                                                                       PAR          739     A     
 PAR      **        HERE IF INTRINSIC FUNCTION REFERENCE                                   PAR          740     A     
 PAR                                                                                       PAR          741     A     
 PAR       PAR.BF   SA5    CSYMBOL     DPC FOR INTRINSIC                                   PAR          742     A     
 PAR                MX2    -L.ARGMF                                                        PAR          743     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1239    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                AX6    P.2TAG                                                          PAR          744     A     
 PAR                SA3    BIFARM                                                          PAR          745     A     
 PAR                AX7    P.ARGMF                                                         PAR          746     A     
 PAR                =B3    O.ILP                                                           PAR          747     A     
 PAR                IX4    X6+X5       (X4) = ARGMIS = 42/ SYMBOL, 18/ TAG                 PAR          748     A     
 PAR                LX6    X3          (X6) = ARGMODE                                      PAR          749          I
          -FCC0718
 PAR                BX7    -X2*X7      ARGCOMA, ARGUMENT MODE                              PAR          750     A     
 PAR                SA2    =4LLOCF                                                         FCC0718        9     A     
 PAR                IX5    X5-X2                                                           FCC0718       10     A     
 PAR                NZ     X5,PAR.BF1  IF NOT *LOCF*                                       FCC0718       11     A     
 PAR                MX6    1                                                               FCC0718       12     A     
 PAR                LX6    P.AMFUN+1                                                       FCC0718       13     A     
 PAR                IX3    X6+X3       SPECIAL CASE FOR *LOCF*                             FCC0718       14     A     
 PAR       PAR.BF1  LX6    X3          (X6) = ARGMODE                                      FCC0718       15     A     
 PAR                LX7    P.ACM       SET DEFINED ARGUMENT MODE                           PAR          751     A     
 PAR                EQ     PAR.SPS     ENTER PAREN STACK                                   PAR          752     A     
 PAR                                                                                       PAR          753     A     
 PAR      **        HERE IF REFERENCE TO AN EXTERNAL FUNCTION.                             PAR          754     A     
 PAR                                                                                       PAR          755     A     
 PAR       PAR.XF   SA3    EXTFARM                                                         PAR          756     A     
 PAR                BX4    X7                                                              PAR          757     A     
 PAR                IFBIT  X5,-BEF/EXT,PAR.XF5                                             PAR          758     A     
 PAR                SA1    CSYMBOL     DPC FOR *BEF*                                       PAR          759     A     
 PAR                AX6    P.2TAG                                                          PAR          760     A     
 PAR                SA3    BEFXARM     IF BASIC EXTERNAL FUNCTION                          PAR          761     A     
 PAR                IX4    X1+X6       42/ DPC FOR BEF, 18/ TAG FOR BEF                    PAR          762     A     
 PAR                AX7    P.ARGMF     SET ARGUMENT MODE TYPE                              PAR          763     A     
 PAR                                                                                       PAR          764     A     
 PAR       PAR.XF5  MX0    -L.MODE                                                         PAR          765     A     
 PAR                SA2    TT=SCR                                                          PAR          766     A     
 PAR                BX7    -X0*X7      MODE OF ARGUMENTS FOR FUNCTION                      PAR          767     A     
 PAR                LX2    36                                                              PAR          768     A     
 PAR                BX6    X3                                                              PAR          769     A     
 PAR                LX7    P.ACM                                                           PAR          770     A     
 PAR                =B3    O.SLP                                                           PAR          771     A     
 PAR                IX7    X2+X7       18/FWA OF FUNCTION,18/ACM,18/0                      PAR          772     A     
 PAR                SA3    DOORD                                                           PAR          773     A     
 PAR                ZR     X3,PAR.SPS  IF NOT INSIDE *DO*                                  PAR          774     A     
 PAR                SB7    X3                                                              PAR          775     A     
 PAR                SA2    TS.STN                                                          PAR          776     A     
 PAR                BX5    X7                                                              PAR          777     A     
 PAR                SA1    X2+B7       LOAD STATEMENT TAG FOR *DO*                         PAR          778     A     
 PAR                =X0    M.SNEX                                                          PAR          779     A     
 PAR                BX7    X0+X1       INDICATE EXTERNAL IN *DO*                           PAR          780     A     
 PAR                SA7    A1                                                              PAR          781     A     
 PAR                BX7    X5                                                              PAR          782     A     
 PAR                EQ     PAR.SPS                                                         PAR          783     A     
 PAR       PAR.SPS  SPACE  4,25                                                            PAR          784     A     
 PAR      **        SPS -  SET PARENTHESIS STACK.                                          PAR          785     A     
 PAR      *                                                                                PAR          786     A     
 PAR      *                                                                                PAR          787     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1240    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         ENTRY  (X4) = NEW VALUE FOR ARGMIS.                                    PAR          788     A     
 PAR      *                (X6) = NEW VALUE FOR ARGMODE.                                   PAR          789     A     
 PAR      *                (X7) = NEW VALUE FOR ARGCOMA.                                   PAR          790     A     
 PAR      *                (B3) = OPERATOR *DPC* TO BE ENTERED.                            PAR          791     A     
 PAR      *                (B4) _ LEFT PAREN IN *SB*                                       PAR          792     A     
 PAR      *                                                                                PAR          793     A     
 PAR      *         EXIT   WITH *ADDOP* ENTRY CONDITIONS SET.                              PAR          794     A     
 PAR      *                                                                                PAR          795     A     
 PAR      *                (X1) = DPC FOR CURRENT OP.                                      PAR          796     A     
 PAR      *                (X2) = OPERATOR STACK ENTRY.                                    PAR          797     A     
 PAR      *                (B4) _ NEXT *SB* ENTRY.                                         PAR          798     A     
 PAR      *                (B5) = UPDATED BY *3*.                                          PAR          799          I
          -FCC0787
 PAR      *                (B5) = UPDATED BY *4*                                           FCC0787       90     A     
 PAR      *         RESET -                                                                PAR          800     A     
 PAR      *                (ARGMODE,ARGCOMA,ARGMIS)                                        PAR          801     A     
 PAR      *                (REFVAR)                                                        PAR          802     A     
 PAR      *                                                                                PAR          803     A     
 PAR      *         OPERATOR STACK UPON EXIT. (B5 UPDATED BY L.PSTACK)                     PAR          804     A     
 PAR      *                N   = OLD *ARGMODE*                                             PAR          805     A     
 PAR      *                N+1 = OLD *ARGCOMA*                                             PAR          806     A     
 PAR      *                N+2 = OLD *ARGMIS*                                              PAR          807     A     
 PAR      *                N+3 = LEFT PAREN OPERATOR.                                      PAR          808     A     
 PAR                                                                                       PAR          809     A     
 PAR                                                                                       PAR          810     A     
 PAR       PAR.SPS  BX0    X6                                                              PAR          811     A     
 PAR                SA2    ARGMODE                                                         PAR          812     A     
 PAR                SA6    A2          RESET NEW *ARGMODE*                                 PAR          813     A     
 PAR                BX6    X2                                                              PAR          814     A     
 PAR                =A6    B5+1        SAVE OLD VALUE FOR ARGMODE TO *OSTACK*              PAR          815     A     
 PAR                SA5    ARGCOMA                                                         PAR          816     A     
 PAR                SB5    B5+L.PSTACK                                                     PAR          817     A     
 PAR                BX6    X5                                                              PAR          818     A     
 PAR                SA3    ARGMIS                                                          PAR          819     A     
 PAR                SA7    A5          RESET NEW *ARGCOMA*                                 PAR          820     A     
 PAR                =A6    A6+1        SAVE OLD VALUE FOR ARGCOMA TO *OSTACK*              PAR          821     A     
 PAR                LX7    X3                                                              PAR          822     A     
 PAR                BX6    X4                                                              PAR          823     A     
 PAR                SX1    B3          DPC FOR *(*                                         PAR          824     A     
 PAR                =A7    A6+1        SAVE OLD VALUE FOR ARGMIS TO *OSTACK*               PAR          825     A     
 PAR                SA2    LPAR                                                            PAR          826     A     
 PAR                AX0    P.AMR                                                           PAR          827     A     
 PAR                =B4    B4+1        UPDATE TO NEXT ELEMENT                              PAR          828     A     
 PAR                BX7    X0                                                              PAR          829     A     
 PAR                SA6    A3          RESET NEW *ARGMIS*                                  PAR          830     A     
 PAR                SA7    REFVAR      SET REFERENCE CELL TO NEW VALUE                     PAR          831     A     
 PAR                EQ     PAR.ADOP    ADD PAREN TO STACK                                  PAR          832          I
          -FCC0787
 PAR                MX0    -L.SBPR                                                         FCC0787       91     A     
 PAR                SB5    B5+B1                                                           FCC0787       92     A     
 PAR                BX3    X0*X2                                                           FCC0787       93     A     
 PAR                IX6    X3+X1                                                           FCC0787       94     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1241    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA6    B5                                                              FCC0787       95     A     
 PAR                =A5    B4                                                              FCC0787       96     A     
 PAR                SB3    X5                                                              FCC0787       97     A     
 PAR                SA3    X1+CONOTBL-O.DEF                                                FCC0787       98     A     
 PAR                LX4    B3,X3                                                           FCC0787       99     A     
 PAR                PL     X4,PAREX                                                        FCC0787      100     A     
 PAR                EQ     PAR.NX                                                          FCC0787      101     A     
 PAR       PAR.CM   EJECT  4,8                                                             PAR          833     A     
 PAR      **        PROCESS COMMA OPERATOR.                                                PAR          834     A     
 PAR                                                                                       PAR          835     A     
 PAR       PAR.CM   SA4    ARGMODE                                                         PAR          836     A     
 PAR                SB2    X4-A=BIF                                                        PAR          837     A     
 PAR                ZR     X5,PAR.CM8  IF *,* FOLLOWED BY *EOS*                            PAR          838     A     
 PAR                ZR     B2,PAR.STD  IF INSIDE AN *INTRINSIC*                            PAR          839     A     
 PAR                                                                                       PAR          840     A     
 PAR      **        POP HOLDING STACK FOR ARGUMENT.                                        PAR          841     A     
 PAR                                                                                       PAR          842     A     
 PAR       PAR.CM5  AX3    L.SBPR                                                          PAR          843     A     
 PAR                MX4    -L.STPR                                                         PAR          844     A     
 PAR                BX3    -X4*X3                                                          PAR          845     A     
 PAR                SB7    PR.SLP+1                                                        PAR          846     A     
 PAR                SB7    -B7                                                             PAR          847     A     
 PAR                SB7    X3+B7                                                           PAR          848     A     
 PAR                MI     B7,PAR.CM7  IF NOT ARITHMETIC OPERATOR                          PAR          849     A     
 PAR                =X6    O.COMMA                                                         PAR          850     A     
 PAR                SA3    B5          OPERATOR POPPING.                                   PAR          851     A     
 PAR                =B5    B5-1                                                            PAR          852     A     
 PAR                LX1    X6                                                              PAR          853     A     
 PAR                SA6    POPDPC      INDICATE *,* CAUSING POP                            PAR          854     A     
 PAR                RJ     POP         POP OPERATOR.                                       PAR          855     A     
 PAR                SA3    B5                                                              PAR          856     A     
 PAR                EQ     PAR.CM5     LOOP                                                PAR          857     A     
 PAR                                                                                       PAR          858     A     
 PAR      **        SET COMMA INTO OPERATOR STACK AND POP ARGUMENT                         PAR          859     A     
 PAR                                                                                       PAR          860     A     
 PAR       PAR.CM7  SA1    B4                                                              PAR          861     A     
 PAR                SA2    COMMA       RELOAD COMMA OPERATOR                               PAR          862     A     
 PAR                MX0    -L.SBPR                                                         PAR          863     A     
 PAR                BX3    X0*X2                                                           PAR          864     A     
 PAR                IX6    X3+X1                                                           PAR          865     A     
 PAR                =A6    B5+1        *,* OPERATOR TO OP-STACK.                           PAR          866     A     
 PAR                                                                                       PAR          867     A     
 PAR      **        POP COMMA OPERATOR ADD IMPLIED COMMA TO OPERATOR STACK                 PAR          868     A     
 PAR      *         IF NEXT IS *EOS*.                                                      PAR          869     A     
 PAR                                                                                       PAR          870     A     
 PAR                BX3    X6                                                              PAR          871     A     
 PAR                SA1    B5                                                              PAR          872     A     
 PAR                RJ     POP         POP COMMA OPERATOR.                                 PAR          873     A     
 PAR                SA3    ARGMODE                                                         FCC0787      102     A     
 PAR                SB7    X3-A=LIST                                                       FCC0787      103     A     
 PAR                ZR     B7,PAREXIT  IF IN I/O LIST                                      FCC0787      104     A     
 PAR                =B4    B4+1        NEXT                                                PAR          874     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1242    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                EQ     PAR.NX      CONTINUE TO NEXT.                                   PAR          875     A     
 PAR                                                                                       PAR          876     A     
 PAR      **        COMMA FOLLOWED BY *EOS*. ONLY ALLOWED IN I/O LIST.                     PAR          877     A     
 PAR                                                                                       PAR          878     A     
 PAR       PAR.CM8  SB2    X4-A=LIST                                                       PAR          879     A     
 PAR                NZ     B2,PAREX    IF NOT I/O LIST PROCESSING                          PAR          880     A     
 PAR                =B4    B4+1                                                            PAR          881     A     
 PAR                EQ     PAR.NX      CONTINUE TO NEXT                                    PAR          882     A     
 PAR       PAR.LP   EJECT  4,8                                                             PAR          883     A     
 PAR      **        FOUND UNQUALIFIED PARENTHESIS IN *SB*                                  PAR          884     A     
 PAR      *         DEPENDING ON PREVIOUS ARGMODE VALUE THE FOLLOWING IS DONE              PAR          885          I
          -FCC0787
 PAR      *                                                                                PAR          886          I
          -FCC0787
 PAR      *         IF ARGMODE IS A=LIST --                                                PAR          887          I
          -FCC0787
 PAR      *           ALL CELLS RELATING TO A PAREN OPSTACK ARE RELOADED AND A NEW         PAR          888          I
          -FCC0787
 PAR      *           PAREN IS ADDED TO THE STACK.                                         PAR          889          I
          -FCC0787
 PAR      *                NOTE COMMENT BELOW.                                             PAR          890          I
          -FCC0787
 PAR      *                                                                                PAR          891          I
          -FCC0787
 PAR      *         IF ARGMODE IS OTHER THAN ABOVE --                                      PAR          892          I
          -FCC0787
 PAR      *           ARGMODE IS SET TO INDICATE THAT WE ARE IN AN UNQUALIFIED             PAR          893          I
          -FCC0787
 PAR      *           PARENTHESIS LEVEL, ALLOWING *TNK* TO NOTE THAT A COMPLEX             PAR          894          I
          -FCC0787
 PAR      *           CONSTANT IS LEGAL.                                                   PAR          895          I
          -FCC0787
 PAR      *                                                                                PAR          896          I
          -FCC0787
 PAR      *         ENTRY  PAR.NX EXIT CONDITIONS.                                         PAR          897          I
          -FCC0787
 PAR      *                                                                                PAR          898          I
          -FCC0787
 PAR      *         EXIT   TO PAR.SPS TO PUT PAREN INTO OSTACK.                            PAR          899          I
          -FCC0787
 PAR                                                                                       PAR          900          I
          -FCC0787
 PAR                                                                                       PAR          901          I
          -FCC0787
 PAR       PAR.LP   =B3    O.LP                                                            PAR          902          I
          -FCC0787
 PAR                SA2    ARGMODE                                                         PAR          903          I
          -FCC0787
 PAR                SA1    LPARM                                                           PAR          904          I
          -FCC0787
 PAR                =B7    X2-A=LIST                                                       PAR          905          I
          -FCC0787
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1243    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =X7                CLEAR *ARGCOMA*                                     PAR          906          I
          -FCC0787
 PAR                LX6    X1                                                              PAR          907          I
          -FCC0787
 PAR                NZ     B7,PAR.LP5  IF NOT IN I/O LIST.                                 PAR          908          I
          -FCC0787
 PAR                                                                                       PAR          909          I
          -FCC0787
 PAR      **        ANSI COMMENT......                                                     PAR          910          I
          -FCC0787
 PAR      *                                                                                PAR          911          I
          -FCC0787
 PAR      *         FOR SOME STRANGE REASON ANSI HAS DECIDED THAT PARENS WITHIN            PAR          912          I
          -FCC0787
 PAR      *         I-O LIST SHOULD NOT CHANGE THE MODE OF THE EXPRESSION NOR              PAR          913          I
          -FCC0787
 PAR      *         THE PROCESSING FOR A COMMA FOUND WITHIN THE PAREN LEVEL                PAR          914          I
          -FCC0787
 PAR      *                A DEFINITE SCREW-UP. CONSIDER A COMPILERS PROBLEM OF            PAR          915          I
          -FCC0787
 PAR      *         RECOGNIZING A COMPLEX CONSTANT IN AN I/O LIST.                         PAR          916          I
          -FCC0787
 PAR                                                                                       PAR          917          I
          -FCC0787
 PAR                BX6    X2                                                              PAR          918          I
          -FCC0787
 PAR                NOTE   E.IOP       REDUNDANT PARENS IN I/O LIST.                       PAR          919          I
          -FCC0787
 PAR                                                                                       PAR          920          I
          -FCC0787
 PAR       PAR.LP5  MX4    0                                                               PAR          921          I
          -FCC0787
 PAR                EQ     PAR.SPS     SET-UP PAREN STACK.                                 PAR          922          I
          -FCC0787
 PAR      *         IF IT IS NOT PART OF A COMPLEX CONSTANT, THEN IT ENCLOSES              FCC0787      105     A     
 PAR      *         SOME EXPRESSION.                                                       FCC0787      106     A     
 PAR      *                                                                                FCC0787      107     A     
 PAR      *         ENTRY  PAR.NX EXIT CONDITIONS                                          FCC0787      108     A     
 PAR      *                                                                                FCC0787      109     A     
 PAR       PAR.LP   SA4    B4                                                              FCC0787      110     A     
 PAR                RJ     CFC         CHECK FOR COMPLEX CONSTANT                          FCC0787      111     A     
 PAR                SB4    A4                                                              FCC0787      112     A     
 PAR                ZR     X0,PAR.LP5  IF CPLX CONST                                       FCC0787      113     A     
 PAR                =X7                                                                    FCC0787      114     A     
 PAR                SA1    LPARM                                                           FCC0787      115     A     
 PAR                SB3    O.LP                                                            FCC0787      116     A     
 PAR                BX6    X1                                                              FCC0787      117     A     
 PAR                MX4    0                                                               FCC0787      118     A     
 PAR                EQ     PAR.SPS                                                         FCC0787      119     A     
 PAR                                                                                       FCC0787      120     A     
 PAR       PAR.LP5  BX6    X1          REAL PART, IMAGINARY IN X2                          FCC0787      121     A     
 PAR                =X7    M.CPLX                                                          FCC0787      122     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1244    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =B4    B4-1                                                            FCC0787      123     A     
 PAR                EQ     TNK.DBL                                                         FCC0787      124     A     
 PAR       PAR.DLP  SPACE  4,8                                                             PAR          923     A     
 PAR      **        DUMMY LEFT PAREN AT BEGINNING OF *SB* FOUND,                           PAR          924     A     
 PAR      *                                                                                PAR          925     A     
 PAR      *         PROCESS BY SETTING PAREN STACK TO PROPER MODE FOR OPERATING            PAR          926     A     
 PAR      *         WITHIN CURRENT STATEMENT, THEN ADD SPECIAL PAREN TO OPERATOR           PAR          927     A     
 PAR      *         STACK.                                                                 PAR          928     A     
 PAR                                                                                       PAR          929     A     
 PAR       PAR.DLP  SA3    ARGMODE                                                         PAR          930     A     
 PAR                SA2    ARGCOMA                                                         PAR          931     A     
 PAR                SB3    X1          OPERATOR                                            PAR          932     A     
 PAR                BX6    X3                                                              PAR          933     A     
 PAR                LX7    X2                                                              PAR          934     A     
 PAR                EQ     PAR.SPS     SET PAREN STACK                                     PAR          935     A     
 PAR       MISOPS   EJECT  4,20                                                            PAR          936     A     
 PAR      **        PROCESS MISCELLANEOUS OPERATORS CHECKING SYNTAX USAGE AND              PAR          937     A     
 PAR      *         MISCELLANEOUS ERRORS.                                                  PAR          938     A     
 PAR                                                                                       PAR          939     A     
 PAR                                                                                       PAR          940     A     
 PAR      **        PROCESS *=*S, CHECKING FOR LAST/ NOT LAST *=*S.                        PAR          941     A     
 PAR                                                                                       PAR          942     A     
 PAR       PAR.EQL  SA4    ARGMODE                                                         PAR          943     A     
 PAR                MX0    1                                                               PAR          944     A     
 PAR                LX0    P.AMEQ+1                                                        PAR          945     A     
 PAR                BX0    X0*X4                                                           PAR          946     A     
 PAR                NZ     X0,PAR.EQL2 IF *=* ALLOWED                                      PAR          947     A     
 PAR                FATAL  =XE.AT6     *ILLEGAL USE OF ASSIGNMENT OPERATOR*                PAR          948     A     
 PAR                =B4    B4+1        BYPASS BAD *=*                                      FCC1062        4     A     
 PAR                EQ     PAR.NX                                                          FCC1062        5     A     
 PAR       PAR.EQL2 SA4    ZLE                                                             PAR          949     A     
 PAR                ZR     X4,PAR.STD  IF IN ZERO LEVEL.                                   PAR          950     A     
 PAR                =B4    B4+1        IGNORE ( SEE *EOS* PROCESS.)                        PAR          951     A     
 PAR                EQ     PAR.NX      CONTINUE. (IGNORING *=*)                            PAR          952     A     
 PAR       COMPARE  EJECT  4,8                                                             PAR          953     A     
 PAR       PAR.PL   SPACE  4                                                               PAR          954     A     
 PAR      **        CHECK IF PLUS IS UNARY                                                 PAR          955     A     
 PAR                                                                                       PAR          956     A     
 PAR                                                                                       PAR          957     A     
 PAR       PAR.PL   =A4    B4-1        LOAD LAST OPERATOR                                  PAR          958     A     
 PAR                SA5    ="PREUNAR"                                                      PAR          959     A     
 PAR                SB7    X4                                                              PAR          960     A     
 PAR                LX0    B7,X5                                                           PAR          961     A     
 PAR                PL     X0,PAR.STD  IF NOT UNARY PLUS                                   PAR          962     A     
 PAR                SA4    ARGMODE                                                         PAR          963     A     
 PAR                SB7    X4-A=DO                                                         PAR          964     A     
 PAR                NZ     B7,PAR.PL1  NOT PROCESSING DO                                   PAR          965     A     
 PAR                SA1    =XARGCOMA  DO INDEX NUMBER                                      PAR          966     A     
 PAR                SB3    X1                                                              PAR          967     A     
 PAR                SA4    B3+=XDO.DPC   DPC FOR CURRENT INDEX                             PAR          968     A     
 PAR                BX6    X4                                                              PAR          969     A     
 PAR                SA1    FILL.                                                           PAR          970     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1245    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                IX4    X6-X1                                                           PAR          971     A     
 PAR                ZR     X4,PAR.PL1  IF MESSAGE JUST GIVEN                               PAR          972     A     
 PAR                SA6    A1                                                              PAR          973     A     
 PAR                ANSI   E.DO16      DO INDEX MUST BE SIMPLE INTEGER                     PAR          974     A     
 PAR       PAR.PL1  =B4    B4+1                                                            PAR          975     A     
 PAR                EQ     PAR.NX      IGNORE UNARY PLUS                                   PAR          976     A     
 PAR       PAR.MI   SPACE  4                                                               PAR          977     A     
 PAR      **        CHECK IF MINUS IS UNARY                                                PAR          978     A     
 PAR                                                                                       PAR          979     A     
 PAR                                                                                       PAR          980     A     
 PAR       PAR.MIN  =A4    B4-1        LOAD LAST OPERATOR                                  PAR          981     A     
 PAR                SA5    ="PREUNAR"                                                      PAR          982     A     
 PAR                SB7    X4                                                              PAR          983     A     
 PAR                LX0    B7,X5                                                           PAR          984     A     
 PAR                PL     X0,PAR.STD  IF NOT UNARY MINUS                                  PAR          985     A     
 PAR                SA2    UMINUS                                                          PAR          986     A     
 PAR                =X1    O.UMIN                                                          PAR          987     A     
 PAR                EQ     PAR.STD     PROCESS AS UNARY MINUS                              PAR          988     A     
 PAR       PAR.REL  SPACE  4                                                               PAR          989          I
          -FCC0616
 PAR      **        CHECK IF INSIDE AN *IF* STATEMENT.  IF SO, UPDATE NUMBER               PAR          990          I
          -FCC0616
 PAR      *         OF RELATIONALS FOUND                                                   PAR          991          I
          -FCC0616
 PAR                                                                                       PAR          992          I
          -FCC0616
 PAR                                                                                       PAR          993          I
          -FCC0616
 PAR       PAR.REL  SA4    ARGMODE                                                         PAR          994          I
          -FCC0616
 PAR                SB7    X4-A=IF                                                         PAR          995          I
          -FCC0616
 PAR                NZ     B7,PAR.STD  IF NOT PROCESSING *IF*                              PAR          996          I
          -FCC0616
 PAR                SA4    INIF                                                            PAR          997          I
          -FCC0616
 PAR                =X6    X4+1                                                            PAR          998          I
          -FCC0616
 PAR                SA6    A4          UPDATE NO. OF RELATIONALS                           PAR          999          I
          -FCC0616
 PAR                EQ     PAR.STD     CONTINUE                                            PAR         1000          I
          -FCC0616
 PAR       PAR.LOG  SPACE  4,8                                                             PAR         1001          I
          -FCC0616
 PAR      **        CHECK IF *AND*, *XOR*, OR *OR* FOLLOWED BY *NOT*.  IF SO,              PAR         1002          I
          -FCC0616
 PAR      *         REPLACE WITH PROPER COMBINED OPERATOR (.A..N., .X..N., .O..N.)         PAR         1003          I
          -FCC0616
 PAR                                                                                       PAR         1004          I
          -FCC0616
 PAR                                                                                       PAR         1005          I
          -FCC0616
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1246    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       PAR.LOG  =A4    B4+1                                                            PAR         1006          I
          -FCC0616
 PAR                SB2    X4-O.NOT                                                        PAR         1007          I
          -FCC0616
 PAR                NZ     B2,PAR.STD  IF NOT FOLLOWED BY *NOT*                            PAR         1008          I
          -FCC0616
 PAR                SB2    X1-O.AND                                                        PAR         1009          I
          -FCC0616
 PAR                SX6    B2+O.ANDN                                                       PAR         1010          I
          -FCC0616
 PAR                =B4    B4+1                                                            PAR         1011          I
          -FCC0616
 PAR                SA6    B4          REPLACE WITH PROPER TOKEN VALUE                     PAR         1012          I
          -FCC0616
 PAR                EQ     PAR.NX      CONTINUE PROCESSING                                 PAR         1013          I
          -FCC0616
 PAR       COMPARE  EJECT                                                                  PAR         1014     A     
 PAR      **        COMPARE CURRENT OPERATOR (COP) TO LAST OPERATOR (LOP).                 PAR         1015     A     
 PAR      *                                                                                PAR         1016     A     
 PAR      *         (X1) = DPC FOR CURRENT OPERATOR. (COP)                                 PAR         1017     A     
 PAR      *         (X2) = COP *SETOP* WORD.                                               PAR         1018     A     
 PAR      *         (X3) = LOP INSTACK *SETOP* WORD.                                       PAR         1019     A     
 PAR      *                                                                                PAR         1020     A     
 PAR      *         IF COP .GT. LOP - ADD COP TO OPERATOR STACK.                           PAR         1021     A     
 PAR      *                                                                                PAR         1022     A     
 PAR      *         IF COP .LT. LOP - POP LOP AND CONTINUE TO POP UNTIL                    PAR         1023     A     
 PAR      *                           COP .GT. LOP.                                        PAR         1024     A     
 PAR                                                                                       PAR         1025     A     
 PAR                                                                                       PAR         1026     A     
 PAR       PAR.STD  LX3    -L.SBPR                                                         PAR         1027     A     
 PAR                SB4    B4+B1                                                           PAR         1028     A     
 PAR                MX4    -L.STPR                                                         PAR         1029     A     
 PAR                SX0    X2          *SB* PRIORITY BITS ONLY                             PAR         1030     A     
 PAR                BX5    -X4*X3                                                          PAR         1031     A     
 PAR                IX0    X0-X5                                                           PAR         1032     A     
 PAR                LX3    L.SBPR      RESTORE *X3*                                        PAR         1033     A     
 PAR                PL     X0,PAR.ADOP IF COP .GT. LOP  (ADD TO OPSTACK)                   PAR         1034     A     
 PAR                                                                                       PAR         1035     A     
 PAR      **        SET UP FOR *POP* CALL.                                                 PAR         1036     A     
 PAR      *                                                                                PAR         1037     A     
 PAR      *         (X1) = COP.                                                            PAR         1038     A     
 PAR      *         (X3) = OPSTACK ENTRY FOR OPERATOR TO BE POPPED.                        PAR         1039     A     
 PAR                                                                                       PAR         1040     A     
 PAR                BX6    X1                                                              PAR         1041     A     
 PAR                =B5    B5-1                                                            PAR         1042     A     
 PAR                LX7    X2                                                              PAR         1043     A     
 PAR                SA6    POPDPC      SAVE *DPC* FOR OPERATOR                             PAR         1044     A     
 PAR                =B4    B4-1                                                            PAR         1045     A     
 PAR                =A7    A6-POPDPC+POPPER  SAVE OPERATOR STACK WORD (SETOP WORD)         PAR         1046     A     
 PAR                RJ     POP         POP OPERATOR                                        PAR         1047     A     
 PAR                                                                                       PAR         1048     A     
 PAR      **        RETURN FROM POP                                                        PAR         1049     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1247    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         IF *POPPER* HAS BEEN SET NEGATIVE, OPERATOR HAS BEEN                   PAR         1050     A     
 PAR      *         NULLED ( IE. RIGHT PAREN POPPING LEFT PAREN)                           PAR         1051     A     
 PAR                                                                                       PAR         1052     A     
 PAR                SA2    POPPER                                                          PAR         1053     A     
 PAR                SA3    B5          RELOAD LAST OPERATOR                                PAR         1054     A     
 PAR                =A1    A2-POPPER+POPDPC                                                PAR         1055     A     
 PAR                PL     X2,PAR.STD  CONTINUE CHECK FOR POPPING                          PAR         1056     A     
 PAR                EQ     PAR.NX      NEXT                                                PAR         1057     A     
 PAR       PAR.ADOP EJECT  4,8                                                             PAR         1058     A     
 PAR      **        ADD OPERATOR TO OP-STACK.                                              PAR         1059     A     
 PAR      *                                                                                PAR         1060     A     
 PAR      *         ENTRY  (X1) = DPC FOR OPERATOR.                                        PAR         1061     A     
 PAR      *                (X2) = CURRENT OPERATOR STACK ENTRY.                            PAR         1062     A     
 PAR      *                                                                                PAR         1063     A     
 PAR      *         EXIT   (B5) = UPDATED TO POINT TO CURRENT OPERAND.                     PAR         1064     A     
 PAR      *                (X6) = OPERAND ADDED TO ESTACK.                                 PAR         1065     A     
 PAR                                                                                       PAR         1066     A     
 PAR       PAR.ADOP MX0    -L.SBPR                                                         PAR         1067     A     
 PAR                SB5    B5+B1       UPDATE POINTER                                      PAR         1068     A     
 PAR                BX3    X0*X2                                                           PAR         1069     A     
 PAR                IX6    X3+X1       PRIORITY + ORGINAL ENTRY                            PAR         1070     A     
 PAR                SA6    B5          ADD TO STACK                                        PAR         1071     A     
 PAR                EQ     PAR.NX      CONTINUE.                                           PAR         1072     A     
 PAR       ERR      EJECT  4,8                                                             PAR         1073     A     
 PAR      **        HERE IF ILLEGAL COMBINATION OF OPERATOR/OPERANDS                       PAR         1074     A     
 PAR                                                                                       PAR         1075     A     
 PAR       PAREX    SA4    ARGMODE                                                         PAR         1076     A     
 PAR                BX0    X4                                                              PAR         1077     A     
 PAR                IFBIT  X0,-AMRP,PAREX2   IF NO SPECIAL SYNTAX ALLOWED                  PAR         1078     A     
 PAR       PAREX1   SB2    X1-O.RP                                                         PAR         1079     A     
 PAR                NZ     B2,PAREX3   IF NOT LOOKING AT *)*                               PAR         1080     A     
 PAR                JP     B7          CONTINUE                                            PAR         1081     A     
 PAR                                                                                       PAR         1082     A     
 PAR       PAREX2   SB2    X4-A=DO                                                         PAR         1083     A     
 PAR                ZR     B2,PAREX1   IF IN *DO* PROCESSING. (MUST BE I/O TYPE)           PAR         1084     A     
 PAR                SB2    X4-A=IF                                                         PAR         1085     A     
 PAR                ZR     B2,PAREX1   IF IN *IF* PROCESSING.                              PAR         1086     A     
 PAR                                                                                       PAR         1087     A     
 PAR       PAREX3   MX0    L.CDPC                                                          PAR         1088     A     
 PAR                SA2    X1+CHARMAP                                                      PAR         1089     A     
 PAR                NZ     X2,PAREX5   IF NOT *SYMBOL*                                     PAR         1090     A     
 PAR                BX2    X1          USE *SB* SYMBOL.                                    PAR         1091     A     
 PAR       PAREX5   BX6    X0*X2                                                           PAR         1092     A     
 PAR                SA1    =4LNSTD                                                         PAR         1093     A     
 PAR                BX4    X1-X6                                                           PAR         1094     A     
 PAR                NZ     X4,PARX6    IF NOT *NON-STANDARD* PAREN                         PAR         1095     A     
 PAR                SX6    1R(         GET LEFT  PAREN FOR ERROR MESSAGE                   PAR         1096     A     
 PAR                LX6    54                                                              PAR         1097     A     
 PAR       PARX6    SA2    X5+CHARMAP                                                      PAR         1098     A     
 PAR                SA6    FILL.       SET FILLER.                                         PAR         1099     A     
 PAR                NZ     X2,PAREX10  IF NOT *SYMBOL*                                     PAR         1100     A     
 PAR                BX2    X5                                                              PAR         1101     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1248    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       PAREX10  BX6    X0*X2                                                           PAR         1102     A     
 PAR                SB7    E.AT2                                                           PAR         1103     A     
 PAR                SA6    A6+B1       SET FILLER.                                         PAR         1104     A     
 PAR                FATAL  B7          OUTPUT ERROR.                                       PAR         1105     A     
 PAR                SA1    B4                                                              FCC2078        7     A     
 PAR                ZR     X1,PAR.EOS  IF END OF STATEMENT(*EOS*)                          FCC2078        8     A     
 PAR                =B4    B4+1                                                            PAR         1106          I
          -FCC0787
 PAR       PAREX11  =B4    B4+1                                                            FCC0787      125     A     
 PAR                SA1    TT.PAR                                                          PAR         1107     A     
 PAR                BX4    0                                                               PAR         1108     A     
 PAR                =X5    0                                                               PAR         1109     A     
 PAR                SB3    ERROP       EMIT *ERROR* OPERATOR                               PAR         1110     A     
 PAR                SB3    -B3                                                             PAR         1111     A     
 PAR                RJ     EMT                                                             PAR         1112     A     
 PAR                EQ     PAR.NX      CONTINUE..  (IGNORING NASTY CHARACTER)              PAR         1113     A     
 PAR                                                                                       PAR         1114          I
          -FCC0787
 PAR                                                                                       PAR         1115          I
          -FCC0787
 PAR      **        HERE IF OPERATOR/OPERAND GREATER THAN O.PERIOD.                        PAR         1116          I
          -FCC0787
 PAR      *         (POSSIBLE I/O NESTED DO)                                               PAR         1117          I
          -FCC0787
 PAR                                                                                       PAR         1118          I
          -FCC0787
 PAR       PAREX20  SB2    B3-IO.DOB                                                       PAR         1119          I
          -FCC0787
 PAR                SB3    X1-O.(                                                          PAR         1120          I
          -FCC0787
 PAR                NZ     B2,PAREX    IF ILLEGAL                                          PAR         1121          I
          -FCC0787
 PAR                NZ     B3,PAREX    IF ILLEGAL                                          PAR         1122          I
          -FCC0787
 PAR                NOTE   E.IOP                                                           PAR         1123          I
          -FCC0787
 PAR                EQ     =XLST.GO    EXIT TO CONTINUE PROCESSING I/O LIST                PAR         1124          I
          -FCC0787
 PAR       PAR.EOS  EJECT  4,8                                                             PAR         1125     A     
 PAR                                                                                       PAR         1126     A     
 PAR      **        END OF STATEMENT (*EOS*) FOUND IN *SB*                                 PAR         1127     A     
 PAR      *                                                                                PAR         1128     A     
 PAR      *         PROCESSING WHEN *EOS* FOUND IS DEPENDENT UPON THE VALUE OF             PAR         1129     A     
 PAR      *         *ZLE*.  UPON ENTRY TO *PAR* THE CONDITION OF *ZLE* WAS SET TO          PAR         1130     A     
 PAR      *         INDICATE WHETHER AN *=* WAS FOUND DURING THE TABBING OF THE            PAR         1131     A     
 PAR      *         CURRENT STATEMENT BEING PROCESSED.  *ZLE* UPON ENTRY TO THIS           PAR         1132     A     
 PAR      *         SECTION POINTS TO THE LAST *=* FOUND DURING TABS PROCESS,              PAR         1133     A     
 PAR      *         WHERE ALL PREVIOUS *=* CONTAIN A LINK TO PREVIOUS *=* .                PAR         1134     A     
 PAR      *         THUS A SIMPLE CHECK IF DONE ON *ZLE* TO DETERMINE IF WE HAVE           PAR         1135     A     
 PAR      *         PROCESSED WHAT IS ON THE LEFT HAND SIDE OF THE *=*S, OR                PAR         1136     A     
 PAR      *         WHETHER THERE WAS ONE FOR THIS STATEMENT.  IN ANY CASE WE WILL         PAR         1137     A     
 PAR      *         LINK BACKWARDS THRU THE TABBED *SB* TILL WE FINALLY COME TO            PAR         1138     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1249    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         THE TERMINAL LEFT MEMBER OF THE STATEMENT.                             PAR         1139     A     
 PAR      *                                                                                PAR         1140     A     
 PAR      *         GENERAL FLOW.                                                          PAR         1141     A     
 PAR      *                                                                                PAR         1142     A     
 PAR      *         A.  FLUSH REMAINDER OF OP-STACK.                                       PAR         1143     A     
 PAR      *         B.  CHECK IF LAST *=* (LEFT MEMBER) HAS BEEN PROCESSED.                PAR         1144     A     
 PAR      *             1.  IF YES - SET ENDING CONDITIONS AND EXIT.                       PAR         1145     A     
 PAR      *             2.  IF NO  - RESET *SB* POINTER,(B4), AND *ZLE* TO NEW             PAR         1146     A     
 PAR      *                         CONDITION.                                             PAR         1147     A     
 PAR      *                                                                                PAR         1148     A     
 PAR      *         VISUAL EXAMPLE.                                                        PAR         1149     A     
 PAR      *                                                                                PAR         1150     A     
 PAR      *                0        1         2         3         4                        PAR         1151     A     
 PAR      *                12345678901234567890123456789012345678901                       PAR         1152     A     
 PAR      *                A=B=C=D=E=F=R**2-K+L-ARR(I,J,K+L,4,5,6,7)                       PAR         1153     A     
 PAR      *                           ZLE=12  (ENTRY TO PAR)                               PAR         1154     A     
 PAR      *         POINTER=        8                                                      PAR         1155     A     
 PAR      *         POINTER=      6                                                        PAR         1156     A     
 PAR      *         POINTER=    4                                                          PAR         1157     A     
 PAR      *         POINTER=  2                                                            PAR         1158     A     
 PAR                                                                                       PAR         1159     A     
 PAR                                                                                       PAR         1160     A     
 PAR       PAR.EOS  SB3    OSTACK                                                          PAR         1161     A     
 PAR                SB3    B5-B3                                                           PAR         1162     A     
 PAR                GT     B3,PAR.EOS7 IF OPERATOR STACK NOT EMPTY.                        PAR         1163          I
          -FCC1007
 PAR                GT     B3,PAR.EOS6 IF OPERATOR STACK NOT EMPTY                         FCC1007        4     A     
 PAR                SA1    ZLE                                                             PAR         1164     A     
 PAR                ZR     X1,PAR.EOS3 IF TRUE *EOS*.                                      PAR         1165     A     
 PAR                SA2    X1                                                              PAR         1166     A     
 PAR                =X6    O.EOS                                                           PAR         1167     A     
 PAR                AX2    P.SYM                                                           PAR         1168     A     
 PAR                SA6    A2          REPLACE *=* WITH *EOS*.                             PAR         1169     A     
 PAR                SB4    X2          RESET *B4* TO *=*                                   PAR         1170     A     
 PAR                SA1    "SB.BOS"                                                        PAR         1171     A     
 PAR                =B2    1                                                               PAR         1172     A     
 PAR                NZ     X2,PAR.EOS1 IF NOT LAST *=*                                     PAR         1173     A     
 PAR                SB4    X1          RESET TO STARTING POSITION.                         PAR         1174     A     
 PAR                =B2    0                                                               PAR         1175     A     
 PAR       PAR.EOS1 BX6    X2                                                              PAR         1176     A     
 PAR                SA3    B4+B2                                                           PAR         1177     A     
 PAR                SA6    ZLE         RESET TO NEXT LEVEL.                                PAR         1178     A     
 PAR                =X1    O.=                                                             PAR         1179     A     
 PAR                =X6    CR.STR                                                          PAR         1180     A     
 PAR                SB7    X3-O.VAR                                                        PAR         1181     A     
 PAR                SA2    EQUAL                                                           PAR         1182     A     
 PAR                SA6    REFVAR      SET UP FOR *STORE*                                  PAR         1183     A     
 PAR                ZR     B7,PAR.ADOP IF LEFT MEMBER IS A SYMBOL                          PAR         1184     A     
 PAR                FATAL  E.TE8       ILLEGAL LEFT MEMBER                                 PAR         1185     A     
 PAR                                                                                       PAR         1186     A     
 PAR      **        HERE IF LAST *=* PROCESSED.                                            PAR         1187     A     
 PAR                                                                                       PAR         1188     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1250    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       PAR.EOS3 SA1    ARGMODE                                                         PAR         1189     A     
 PAR                =X3    O.COMMA                                                         PAR         1190     A     
 PAR                IFBIT  X1,-AMEOS,PAREXIT                                               PAR         1191     A     
 PAR                BX6    X3                                                              PAR         1192     A     
 PAR                =X1    O.EOS                                                           PAR         1193     A     
 PAR                =A6    B5+1                                                            PAR         1194     A     
 PAR                RJ     POP         POP LAST ARGUMENT                                   PAR         1195     A     
 PAR                                                                                       PAR         1196     A     
 PAR      **        PAREXIT - EXIT PARSER.                                                 PAR         1197     A     
 PAR      *                                                                                PAR         1198     A     
 PAR      *         ENTRY  (B4) _ LAST ELEMENT PROCESSED IN *SB*.                          PAR         1199     A     
 PAR      *                                                                                PAR         1200     A     
 PAR      *         EXIT   (B4) _ LAST ENTRY PROCESSED BY PARSER.                          PAR         1201     A     
 PAR                                                                                       PAR         1202     A     
 PAR                                                                                       PAR         1203     A     
 PAR       PAREXIT  SA2    FLOW        DEAD CODE FLAG                                      PAR         1204     A     
 PAR                                                                                       PAR         1205     A     
 PAR       TEST     IFNE   TEST        DUMP PARSED FILE (IF IN TEST MODE)                  PAR         1206     A     
 PAR                SA1    CO.SNAP                                                         PAR         1207     A     
 PAR                LX1    1RP                                                             PAR         1208     A     
 PAR                PL     X1,PAR.EOSA IF SNAP NOT REQUESTED.                              PAR         1209     A     
 PAR                RJ     =XSN.PAR                                                        PAR         1210     A     
 PAR       PAR.EOSA BSS    0                                                               PAR         1211     A     
 PAR       TEST     ENDIF  TEST                                                            PAR         1212     A     
 PAR                                                                                       PAR         1213     A     
 PAR       SNAP=Z   IFNE   TEST        DUMP PARSE TABLES                                   PAR         1214     A     
 PAR                SA1    CO.SNAP                                                         PAR         1215     A     
 PAR                LX1    1RZ                                                             PAR         1216     A     
 PAR                PL     X1,PAR.EOSS IF PARSE SNAP NOT SELECTED                          PAR         1217     A     
 PAR       PARSEXIT PARSNAP                                                                PAR         1218     A     
 PAR       PAR.EOSS BSS    0                                                               PAR         1219     A     
 PAR       SNAP=Z   ENDIF                                                                  PAR         1220     A     
 PAR                                                                                       PAR         1221     A     
 PAR                =B4    B4-1        RESET TO LAST ELEMENT PROCESSED                     PAR         1222     A     
 PAR                ZR     X2,PARX     EXIT.. (NOT DEAD CODE JUST PROCESSED)               PAR         1223     A     
 PAR                SA1    LDEAD                                                           PAR         1224     A     
 PAR                SHRINK TT=PAR,X1   TRASH DEAD CODE JUST ADDED                          PAR         1225     A     
 PAR                EQ     PARX        EXIT..                                              PAR         1226     A     
 PAR                                                                                       PAR         1227     A     
 PAR      **        FLUSH REMAINING OP STACKS.                                             PAR         1228     A     
 PAR                                                                                       PAR         1229     A     
 PAR       PAR.EOS7 SA3    B5          OPERATOR TO POP                                     PAR         1230          I
          -FCC1007
 PAR       PAR.EOS6 SA3    B5          OPERATOR TO POP                                     FCC1007        5     A     
 PAR                =B5    B5-1                                                            PAR         1231     A     
 PAR                SB2    X3-O.SLP                                                        PAR         1232     A     
 PAR                SB3    X3-O.LP                                                         FCC1007        6     A     
 PAR                ZR     B2,PAR.EOS8 IF *(* BEING POPPED                                 PAR         1233     A     
 PAR                BX6    0                                                               PAR         1234          I
          -FCC1007
 PAR                NZ     B3,PAR.EOS7 IF NOT POPPING *LP*                                 FCC1007        7     A     
 PAR                SB7    E.LP3                                                           FCC1007        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1251    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                EQ     POP.RP5     TAKE ERROR EXIT                                     FCC1007        9     A     
 PAR       PAR.EOS7 BX6    0                                                               FCC1007       10     A     
 PAR                SA1    B5                                                              PAR         1235     A     
 PAR                SA6    POPPER                                                          PAR         1236     A     
 PAR                =A6    A6-POPPER+POPDPC                                                PAR         1237     A     
 PAR                RJ     POP         POP OPERATOR                                        PAR         1238     A     
 PAR                SA1    POPPER                                                          PAR         1239     A     
 PAR                PL     X1,PAR.EOS  IF NO PROCESSING NOT SET                            PAR         1240     A     
 PAR                =B4    B4-1        RESET *B4*                                          PAR         1241     A     
 PAR                =B5    B5-1                                                            PAR         1242     A     
 PAR                EQ     PAR.EOS     CONTINUE                                            PAR         1243     A     
 PAR       PAR.EOS8 SA5    ARGMODE                                                         PAR         1244     A     
 PAR                SB2    =XA=FMT                                                         PAR         1245     A     
 PAR                SB3    X5                                                              PAR         1246     A     
 PAR                SB3    B3-B2                                                           PAR         1247     A     
 PAR                NZ     B3,PAR.EOS9 IF NOT FORMAT INDICATOR                             PAR         1248     A     
 PAR                SX6    O.)                                                             PAR         1249          I
          -FCC0794
 PAR                SX1    O.)                                                             FCC0794       20     A     
 PAR                =X7    -1                                                              PAR         1250     A     
 PAR                SA6    POPDPC      DUMMY UP POPDPC AND POPPER TO INSURE PROPER         PAR         1251          I
          -FCC0794
 PAR                                   EXIT FROM POP ROUTINES                              PAR         1252          I
          -FCC0794
 PAR                =X7    A6-POPDPC+POPPER                                                PAR         1253          I
          -FCC0794
 PAR                SA7    POPPER                                                          FCC0794       21     A     
 PAR       PAR.EOS9 =X1    O.EOS       INDICATE *(* BEING POPPED BY *EOS*                  PAR         1254          I
          -FCC0683
 PAR       PAR.EOS9 BX6    X1                                                              FCC0683       10     A     
 PAR                SA6    POPDPC      UPDATE   DPC   FOR OPERATOR                         FCC0683       11     A     
 PAR                =X1    O.EOS       INDICATE *(* BEING POPPED BY  *EOS*                 FCC0683       12     A     
 PAR                RJ     POP                                                             PAR         1255     A     
 PAR       PAR.STOP SPACE  4,8                                                             PAR         1256     A     
 PAR      **        PAR.STOP - CATASTROPIC ERROR ENCOUNTERED IN CURRENT STATEMENT          PAR         1257     A     
 PAR      *                OUTPUT ERROR TURPLE AND EXIT BACK TO MASTER LOOP,               PAR         1258     A     
 PAR      *                IGNORING RETURN TO CALLER OF PAR.                               PAR         1259     A     
 PAR      *                                                                                PAR         1260     A     
 PAR      *         ENTRY  N/A                                                             PAR         1261     A     
 PAR      *                                                                                PAR         1262     A     
 PAR      *         EXIT   TO *PSN* TO START ANEW                                          PAR         1263     A     
 PAR      *                                                                                PAR         1264     A     
 PAR      *         CALLS  ADT                                                             PAR         1265     A     
 PAR                                                                                       PAR         1266     A     
 PAR                                                                                       PAR         1267     A     
 PAR       PAR.STOP SA3    ERROP                                                           PAR         1268     A     
 PAR                =X7    0                                                               PAR         1269     A     
 PAR                BX4    0                                                               PAR         1270     A     
 PAR                LX6    X3                                                              PAR         1271     A     
 PAR                =X5    0                                                               PAR         1272     A     
 PAR                SA7    SMOD                                                            PAR         1273     A     
 PAR                =A6    A7-SMOD+SOPR                                                    PAR         1274     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1252    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                RJ     ADT         ADD ERROR TURPLE                                    PAR         1275     A     
 PAR                EQ     PSN         START ANEW..                                        PAR         1276     A     
 PAR       POP      EJECT  4,20                                                            PAR         1277     A     
 PAR      **        POP -  POP INSTRUCTIONS IN TURPLE FORM FOR -*PASS TWO*                 PAR         1278     A     
 PAR      *                PROCESSING.                                                     PAR         1279     A     
 PAR      *                                                                                PAR         1280     A     
 PAR      *         ENTRY  (X1) = OPERATOR CAUSING (X3) TO BE POPPED.                      PAR         1281     A     
 PAR      *                (X3) = CURRENT OPERATOR BEING POPPED.                           PAR         1282     A     
 PAR      *                                                                                PAR         1283     A     
 PAR      *                (B5) _ OPERATOR IN FRONT OF OPERATOR BEING POPPED.              PAR         1284     A     
 PAR      *                IE. IF .AND. BEING POPPED BY .NOT. THE OPSTACK                  PAR         1285     A     
 PAR      *                    WOULD LOOK LIKE BELOW,  WITH B5 POINTING TO *EOS*.          PAR         1286     A     
 PAR      *                      OPSTACK =    0     1     2                                PAR         1287     A     
 PAR      *                                 EOS .AND. .NOT.                                PAR         1288     A     
 PAR      *                            B5     '                                            PAR         1289     A     
 PAR      *                                                                                PAR         1290     A     
 PAR      *                (B6) _ LAST OPERAND IN STACK.                                   PAR         1291     A     
 PAR      *                (A7) _ LAST POPPED TURPLE.                                      PAR         1292     A     
 PAR      *                                                                                PAR         1293     A     
 PAR      *         EXIT   (B6) _ INTERMEDIATE RESULTS OF TURPLE PROCESSED.                PAR         1294     A     
 PAR      *                                                                                PAR         1295     A     
 PAR      *                NOTE- NOT ALL SUB-PROCESSORS RELATED TO *POP* EXIT THRU         PAR         1296     A     
 PAR      *                      POPX.                                                     PAR         1297     A     
 PAR      *                    A.  PARENTHESIS PROCESSORS EXIT DIRECTLY TO PAR.NX.         PAR         1298     A     
 PAR      *                                                                                PAR         1299     A     
 PAR      *         USES   CANNOT DESTORY  B4,B5,B6                                        PAR         1300     A     
 PAR                                                                                       PAR         1301     A     
 PAR                                                                                       PAR         1302     A     
 PAR       POP      SUBR   0                                                               PAR         1303     A     
 PAR                =X6                                                                    PAR         1304     A     
 PAR                SA5    TT.PAR                                                          PAR         1305     A     
 PAR                SA6    SMOD        CLEAR RESULTANT MODE                                PAR         1306     A     
 PAR                =X7    0                                                               PAR         1307     A     
 PAR                BX6    X3                                                              PAR         1308     A     
 PAR                SA4    TT=PAR                                                          PAR         1309     A     
 PAR                SB3    X1                                                              PAR         1310     A     
 PAR                SA7    ATTR        CLEAR ATTRITBUTE CELL                               PAR         1311     A     
 PAR                IX0    X4+X5                                                           PAR         1312     A     
 PAR                SA6    SOPR        SAVE OPERATOR.                                      PAR         1313     A     
 PAR                SX7    X0-L.TURP+OR.OPR                                                PAR         1314     A     
 PAR                SA7    LASTAD      LAST TURPLE OPERATOR ADDRESS                        PAR         1315     A     
 PAR                SA4    B6-2        1ST OPERAND INTO (X4)                               PAR         1316     A     
 PAR                SA5    X7                                                              PAR         1317     A     
 PAR                SA2    X3+POPTBL   RELATIVE TO OPERATOR BEING POPPED.                  PAR         1318     A     
 PAR                BX6    X5                                                              PAR         1319     A     
 PAR                =X7    0                                                               PAR         1320     A     
 PAR                SA6    LASTOP      SET LAST OPERATOR                                   PAR         1321     A     
 PAR                =B2    0           ALWAYS A *0* UPON EXIT                              PAR         1322     A     
 PAR                LX0    B3,X2                                                           PAR         1323     A     
 PAR                =A5    A4+1        2ND OPERAND INTO (X5)                               PAR         1324     A     
 PAR                                                                                       PAR         1325     A     
 PAR       SNAP=Z   IFNE   TEST        DUMP PARSE TABLES                                   PAR         1326     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1253    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA5    CO.SNAP                                                         PAR         1327     A     
 PAR                LX5    1RZ                                                             PAR         1328     A     
 PAR                PL     X5,POPS     IF PARSE SNAP NOT SELECTED                          PAR         1329     A     
 PAR                =A5    A4+1                                                            PAR         1330     A     
 PAR       POPP     PARSNAP                                                                PAR         1331     A     
 PAR       POPS     =A5    A4+1                                                            PAR         1332     A     
 PAR       SNAP=Z   ENDIF                                                                  PAR         1333     A     
 PAR                                                                                       PAR         1334     A     
 PAR                BX6    X3          CURRENT OPERATOR                                    PAR         1335     A     
 PAR                SB7    X2                                                              PAR         1336     A     
 PAR                =X7    0                                                               PAR         1337          I
          -FCC1495AX
 PAR                IFBIT  X6,-COM,POP.JP    IF NOT COMMUNIATIVE OPERATOR                  PAR         1338     A     
 PAR                                                                                       PAR         1339     A     
 PAR      **        FIX ORDER OF COMMUTATIVE OPERATORS IN TAG NUMERIC ORDER                PAR         1340     A     
 PAR                                                                                       PAR         1341     A     
 PAR                IX7    X4-X5                                                           PAR         1342     A     
 PAR                BX1    X4                                                              PAR         1343     A     
 PAR                PL     X7,POP.JP   IF IN NUMERIC ORDER                                 PAR         1344     A     
 PAR                BX4    X5                                                              PAR         1345     A     
 PAR                LX5    X1                                                              PAR         1346     A     
 PAR                                                                                       PAR         1347     A     
 PAR      **        CHECK IF SPECIAL PROCESSING NECESSARY FOR OPERATOR.                    PAR         1348     A     
 PAR      *                                                                                PAR         1349     A     
 PAR      *         IF (B7) = 0                                                            PAR         1350     A     
 PAR      *                NO SPECIAL PROCESSING NECESSARY, EXIT TO POP.STD                PAR         1351     A     
 PAR      *         IF (B7) = 0                                                            PAR         1352     A     
 PAR      *                SPECIAL PROCESSING REQUESTED FOR THIS COMBINATION OF            PAR         1353     A     
 PAR      *                OPERATORS.                                                      PAR         1354     A     
 PAR      *                                                                                PAR         1355     A     
 PAR      *         IN ALL CASES THE FOLLOWING REGISTERS ARE SET = TO.                     PAR         1356     A     
 PAR      *                                                                                PAR         1357     A     
 PAR      *         (B2) = ALWAYS A *0* UPON EXIT                                          PAR         1358     A     
 PAR      *         (B3) = DPC FOR OPERATOR CAUSING POP                                    PAR         1359     A     
 PAR      *                                                                                PAR         1360     A     
 PAR      *         (X3) = OPERATOR.                                                       PAR         1361     A     
 PAR      *         (X4) = 1ST OPERAND                                                     PAR         1362     A     
 PAR      *         (X5) = 2ND OPERAND                                                     PAR         1363     A     
 PAR      *         (X7) = 0, IF OPERANDS NOT REVERSED                                     PAR         1364     A     
 PAR                                                                                       PAR         1365     A     
 PAR       POP.JP   SA7    ORDOP       INDICATE CHANGE IN OPERANDS                         PAR         1366          I
          -FCC1495AX
 PAR                PL     X0,POP.STD  IF NO SPECIAL PROCESSING                            PAR         1367          I
          -FCC1495AX
 PAR       POP.JP   PL     X0,POP.STD  IF NO SPECIAL PROCESSING                            FCC1495AX      8     A     
 PAR                JP     B7          JUMP TO SPECIAL CHECK                               PAR         1368     A     
 PAR       C=OPER   EJECT  4,20                                                            PAR         1369     A     
 PAR      **        POP.CM - PROCESSING OF A COMMA.                                        PAR         1370     A     
 PAR      *                                                                                PAR         1371     A     
 PAR      *         C=XXX PROCESSING SECTION.                                              PAR         1372     A     
 PAR      *                                                                                PAR         1373     A     
 PAR      *         ENTRY  (ARGMODE) = CURRENT VALUE FOR C= IN DEFINED FIELD.              PAR         1374     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1254    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                IF C= FIELD IS ZERO, COMMA IS NOT-DEFINED.                      PAR         1375     A     
 PAR      *                                                                                PAR         1376     A     
 PAR      *                (X3) = CURRENT OPERATOR WORD FOR COMMA.                         PAR         1377     A     
 PAR      *                (X4) = 1ST OPERAND.                                             PAR         1378     A     
 PAR      *                (X5) = 2ND OPERAND.                                             PAR         1379     A     
 PAR      *                                                                                PAR         1380     A     
 PAR      *         EXIT   SEE INDIVIDUAL PROCESSORS.                                      PAR         1381     A     
 PAR      *                (NOTE - NOT ALL PROCESSORS EXIT DIRECTLY THRU *POP*...)         PAR         1382     A     
 PAR                                                                                       PAR         1383     A     
 PAR       POP.CM   SA1    ARGCOMA                                                         PAR         1384     A     
 PAR                =X0    1                                                               PAR         1385     A     
 PAR                SA2    ARGMODE                                                         PAR         1386     A     
 PAR                IX6    X1+X0       UPDATE NUMBER OF ARGUMENTS                          PAR         1387     A     
 PAR                MX0    -L.AMC                                                          PAR         1388     A     
 PAR                BX7    X2                                                              PAR         1389     A     
 PAR                AX2    P.AMC                                                           PAR         1390     A     
 PAR                BX0    -X0*X2      C=XXX ADDRESS                                       PAR         1391     A     
 PAR                SA6    A1                                                              PAR         1392     A     
 PAR                SB2    X0                                                              PAR         1393     A     
 PAR                ZR     B2,*+400000B                                                    PAR         1394     A     
 PAR                                                                                       PAR         1395     A     
 PAR      **        EXIT CONDITIONS                                                        PAR         1396     A     
 PAR      *         (B2) = C=XXX ADDRESS                                                   PAR         1397     A     
 PAR      *         (X2) = (ARGMODE) SHIFTED BY P.AMC                                      PAR         1398     A     
 PAR      *         (X6) = CURRENT VALUE OF *ARGCOMA*                                      PAR         1399     A     
 PAR                JP     B2          JUMP TO INDIVIDUAL PROCESSORS.                      PAR         1400     A     
 PAR       C=ERR    SPACE  4,8                                                             PAR         1401     A     
 PAR      **        C=CERR - IF COMMA NOT ALLOWED FOR PAREN LEVEL CURRENTLY IN.            PAR         1402     A     
 PAR                                                                                       PAR         1403     A     
 PAR                                                                                       PAR         1404     A     
 PAR       C=CERR   FATAL  E.AT5                                                           PAR         1405     A     
 PAR       C=ERR    SA3    ERROP                                                           PAR         1406     A     
 PAR                =X7    0                                                               PAR         1407     A     
 PAR                BX4    0                                                               PAR         1408     A     
 PAR                =X5    0                                                               PAR         1409     A     
 PAR                SA7    SOPR                                                            PAR         1410     A     
 PAR                EQ     POP.ST1     ADD ERROR TURPLE                                    PAR         1411     A     
 PAR       C=CALL   SPACE  4,8                                                             PAR         1412     A     
 PAR      **        C=CALL - PROCESS ARGUMENT FROM CALL STATEMENT                          PAR         1413     A     
 PAR      *         (X5) = ARGUMENT.                                                       PAR         1414     A     
 PAR                                                                                       PAR         1415     A     
 PAR       C=FUN    BSS    0           EQUIVALENT TO C=CALL                                PAR         1416     A     
 PAR       C=CALL   RJ     ESC         EXPAND SHORT CONSTANT                               PAR         1417     A     
 PAR                RJ     SDB         SET DEFINED BIT IF VARIABLE                         PAR         1418     A     
 PAR                SB3    CALLOP                                                          PAR         1419     A     
 PAR                SB3    -B3                                                             PAR         1420     A     
 PAR                =X4    0           1ST OPERAND = DUMMY                                 PAR         1421     A     
 PAR                =B6    B6-1        REMOVE ARGUMENT FROM STACK                          PAR         1422     A     
 PAR                SA1    TT.SCR                                                          PAR         1423     A     
 PAR                RJ     EMT         EMIT ARGUMENT LOAD TO SCRATCH TABLE                 PAR         1424     A     
 PAR                EQ     POPX                                                            PAR         1425     A     
 PAR       C=LP     SPACE  4,8                                                             PAR         1426          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1255    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FCC0787
 PAR      **        C=LP - INSIDE A STAND-ALONE PAREN, FOUND COMMA, CHECK                  PAR         1427          I
          -FCC0787
 PAR      *                IF COMMA DEFINES SEPARATOR TO FORM COMPLEX                      PAR         1428          I
          -FCC0787
 PAR      *                CONSTANT.  IF NOT ERROR ERROR - ILLEGAL FORM INVOLVING          PAR         1429          I
          -FCC0787
 PAR      *                USE OF COMMA.                                                   PAR         1430          I
          -FCC0787
 PAR                                                                                       PAR         1431          I
          -FCC0787
 PAR                                                                                       PAR         1432          I
          -FCC0787
 PAR       C=LP     SA4    ARGCOMA                                                         PAR         1433          I
          -FCC0787
 PAR                BX1    X5                                                              PAR         1434          I
          -FCC0787
 PAR                RJ     LCT                                                             PAR         1435          I
          -FCC0787
 PAR                MX0    -L.MODE                                                         PAR         1436          I
          -FCC0787
 PAR                ZR     B2,C=CERR   IF ILLEGAL FORM INVOLVING USE OF COMMA              PAR         1437          I
          -FCC0787
 PAR                SA3    CLPARM                                                          PAR         1438          I
          -FCC0787
 PAR                BX7    X3                                                              PAR         1439          I
          -FCC0787
 PAR                SA7    ARGMODE     RESET INDICATING COMPLEX                            PAR         1440          I
          -FCC0787
 PAR                EQ     POPX        EXIT..                                              PAR         1441          I
          -FCC0787
 PAR       C=GOT    SPACE  4,8                                                             PAR         1442     A     
 PAR      **        C=GOT - PROCESS *EOS* OF COMPUTED *GOTO*.                              PAR         1443     A     
 PAR      *                IF NOT AT *EOS* - COMMA IS ILLEGAL                              PAR         1444     A     
 PAR      *                OTHERWISE PROCESS RESULTS FOR *GO TO* PROCESSOR                 PAR         1445     A     
 PAR                                                                                       PAR         1446     A     
 PAR                                                                                       PAR         1447     A     
 PAR       C=GOT    SA2    B4                                                              PAR         1448     A     
 PAR                BX1    X5                                                              PAR         1449     A     
 PAR                NZ     X2,C=CERR   IF NOT AT *EOS*                                     PAR         1450     A     
 PAR                IFBIT  X1,-INTR,C=GT5    IF NOT INTERMEDIATE                           PAR         1451     A     
 PAR                ANSI   E.GO9       MUST BE SIMPLE INTEGER VARIABLE                     PAR         1452     A     
 PAR                                                                                       PAR         1453     A     
 PAR      **        CHECK MODE OF RESULTS OF *GO TO* EXPRESSION                            PAR         1454     A     
 PAR                                                                                       PAR         1455     A     
 PAR       C=GT5    MX0    -L.MODE                                                         PAR         1456     A     
 PAR                BX2    -X0*X5                                                          PAR         1457     A     
 PAR                SB7    X2-M.LOG                                                        PAR         1458     A     
 PAR                NZ     B7,C=GT7    IF NOT LOGICAL RESULTS                              PAR         1459     A     
 PAR                FATAL  E.GO10                                                          PAR         1460     A     
 PAR                EQ     C=ERR                                                           PAR         1461     A     
 PAR                                                                                       PAR         1462     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1256    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       C=GT7    =B7    B7+M.LOG-M.INT                                                  PAR         1463     A     
 PAR                BX4    X5          EXPRESSION RESULTS = OR.1OP                         PAR         1464     A     
 PAR                ZR     B7,C=GT10   IF INTEGER RESULTS                                  PAR         1465     A     
 PAR                ANSI   E.GO11      MUST BE INTEGER                                     PAR         1466     A     
 PAR                SA3    INTMAC                                                          PAR         1467     A     
 PAR                BX5    X4                                                              PAR         1468     A     
 PAR                =X4    0                                                               PAR         1469     A     
 PAR                BX6    X3                                                              PAR         1470     A     
 PAR                =B6    B6+1                                                            PAR         1471     A     
 PAR                SA6    SOPR                                                            PAR         1472     A     
 PAR                RJ     ADT         OUTPUT *INT* TURPLE                                 PAR         1473     A     
 PAR                =A4    B6-1        RESULTS OF *INT*                                    PAR         1474     A     
 PAR       C=GT10   =X3    O=GOC                                                           PAR         1475     A     
 PAR                SA5    =XTRLINE                                                        PAR         1476     A     
 PAR                SA1    GOTA        NUMBER OF BRANCHES                                  PAR         1477     A     
 PAR                SX5    X5-7777B                                                        PAR         1478     A     
 PAR                MI     X5,C=GT12                                                       PAR         1479     A     
 PAR                =X3    =XO=GOCL                                                        PAR         1480     A     
 PAR                =X1    X1+1        CHANGE TEST TO 2 .LE. ARG .LE. N+1                  PAR         1481     A     
 PAR       C=GT12   LX3    P.JPAD                                                          PAR         1482     A     
 PAR                SX6    O.GOTC                                                          PAR         1483     A     
 PAR                BX6    X6+X3                                                           PAR         1484     A     
 PAR                BX5    -X1         COMPLEMENT                                          PAR         1485     A     
 PAR                BX3    X6                                                              PAR         1486     A     
 PAR                LX5    P.PTAGL                                                         PAR         1487     A     
 PAR                SA6    SOPR        SET OPERATOR                                        PAR         1488     A     
 PAR                EQ     POP.ST1     POPIT.                                              PAR         1489     A     
 PAR       C=BEF    SPACE  4,8                                                             PAR         1490     A     
 PAR      **        C=BEF - PROCESS BASIC EXTERNAL FUNCTION ARGUMENT, CHECKING             PAR         1491     A     
 PAR      *         IF MODE OF ARGUMENT AGREES WITH DEFINED TYPE, AND OUTPUTING            PAR         1492     A     
 PAR      *         TURPLE FOR ARGUMENT                                                    PAR         1493     A     
 PAR      *         (ARGMIS) = 42/ DPC FOR BEF, 18/TAG FOR BEF                             PAR         1494     A     
 PAR                                                                                       PAR         1495     A     
 PAR                                                                                       PAR         1496     A     
 PAR       C=BEF    SA2    ARGCOMA                                                         PAR         1497     A     
 PAR                SA3    ARGMIS                                                          PAR         1498     A     
 PAR                BX1    X5                                                              PAR         1499     A     
 PAR                AX2    P.ACM                                                           PAR         1500     A     
 PAR                RJ     VAM         VALIDATE AGRUMENT MODE ARGEEMENT                    PAR         1501     A     
 PAR                RJ     ESC         EXPAND SHORT CONSTANT                               PAR         1502     A     
 PAR                SA1    CO.TBK                                                          PAR         1503     A     
 PAR                SB3    CALLOP                                                          PAR         1504     A     
 PAR                SB3    -B3                                                             PAR         1505     A     
 PAR                MI     X1,C=BEF4   IF TRACKBACK SELECTED                               PAR         1506     A     
 PAR                SA3    REGARG                                                          PAR         1507     A     
 PAR                SA7    SMOD                                                            PAR         1508     A     
 PAR                ALLOC  TT.SCR,1                                                        PAR         1509     A     
 PAR                BX7    X5                                                              PAR         1510     A     
 PAR                SA7    B7-B1                                                           PAR         1511     A     
 PAR                =B6    B6-1        REMOVE ARGUMENT FROM STACK                          PAR         1512     A     
 PAR                EQ     POPX                                                            PAR         1513     A     
 PAR                                                                                       PAR         1514     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1257    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       C=BEF4   =X4    0           1ST OPERAND = DUMMY                                 PAR         1515     A     
 PAR                SA1    TT.SCR                                                          PAR         1516     A     
 PAR                =B6    B6-1        REMOVE ARGUMENT FROM STACK                          PAR         1517     A     
 PAR                RJ     EMT         EMIT ARGUMENT LOAD TO SCRATCH TABLE                 PAR         1518     A     
 PAR                EQ     POPX                                                            PAR         1519     A     
 PAR       C=BIF    SPACE  4,8                                                             PAR         1520     A     
 PAR      **        C=BIF- PROCESS INTRINSIC FUNCTION ARGUMENT CHECKING IF MODE            PAR         1521     A     
 PAR      *                OF ARGUMENT AGREES WITH DEFINED TYPE.                           PAR         1522     A     
 PAR                                                                                       PAR         1523     A     
 PAR                                                                                       PAR         1524     A     
 PAR       C=BIF    SA2    ARGCOMA                                                         PAR         1525     A     
 PAR                BX1    X4                                                              PAR         1526     A     
 PAR                SB7    X2                                                              PAR         1527     A     
 PAR                SA3    ARGMIS                                                          PAR         1528     A     
 PAR                AX2    P.ACM                                                           PAR         1529     A     
 PAR                GT1    B7,C=BIF5   IF ALREADY VALIDATED MODE OF 1ST ARGUMENT           PAR         1530     A     
 PAR                RJ     VAM         VALIDATE 1ST ARGMENT MODE                           PAR         1531          I
          -FEAT126C 
 PAR                RJ     VAM         VALIDATE 1ST ARGUMENT MODE                          FEAT126C     150     A     
 PAR       C=BIF5   SA1    =5LSHIFT                                                        PAR         1532     A     
 PAR                IX1    X3-X1                                                           PAR         1533     A     
 PAR                AX1    24                                                              PAR         1534     A     
 PAR                NZ     X1,C=BIF7   IF NOT INTRINSIC *SHIFT*                            PAR         1535     A     
 PAR                =X2    M.INT                                                           PAR         1536     A     
 PAR       C=BIF7   BX1    X5                                                              PAR         1537     A     
 PAR                RJ     VAM         VALIDATE 2ND ARGMENT MODE                           PAR         1538          I
          -FEAT126C 
 PAR                RJ     VAM         VALIDATE 2ND ARGUMENT MODE                          FEAT126C     151     A     
 PAR                SA1    BIFFUN                                                          PAR         1539     A     
 PAR                SA2    TS.SYM                                                          PAR         1540     A     
 PAR                MX0    -L.JPADF                                                        PAR         1541     A     
 PAR                SB2    X3-C.SYM                                                        PAR         1542     A     
 PAR                MX7    -3                                                              FCC1886        5     A     
 PAR                SA2    X2+B2       FETCH SYMBOL TABLE ENTRY                            PAR         1543     A     
 PAR                BX7    -X7*X2      ISOLATE MODE                                        FCC1886        6     A     
 PAR                AX2    P.JPADF                                                         PAR         1544     A     
 PAR                BX6    -X0*X2      ISOLATE RELATIVE SKELETON ADDRESS                   PAR         1545     A     
 PAR                SX2    X6+INLBASE                                                      PAR         1546     A     
 PAR                SB7    X6-1S8                                                          PAR         1547     A     
 PAR                SA7    SMOD                                                            FCC1886        7     A     
 PAR                MI     B7,C=BIF10  IF NOT SPECIAL FUNCTION                             PAR         1548     A     
 PAR                RJ     ESF         EVUALATE SPECIAL FUNCTION                           PAR         1549     A     
 PAR                MI     X2,POPX     IF FUNCTION REDUCED                                 PAR         1550     A     
 PAR                                                                                       PAR         1551     A     
 PAR       C=BIF10  LX2    P.JPAD      ACTUAL MACRO ADDRESS                                PAR         1552     A     
 PAR                IX3    X1+X2                                                           PAR         1553     A     
 PAR                SA1    ARGMIS                                                          PAR         1554     A     
 PAR                MX0    L.SYM                                                           PAR         1555     A     
 PAR                BX1    X0*X1                                                           PAR         1556     A     
 PAR                =B7    1                                                               PAR         1557     A     
 PAR       C=BIF11  SA2    B7+DMINMAXT                                                     PAR         1558     A     
 PAR                IX2    X1-X2                                                           PAR         1559     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1258    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                ZR     X2,POP.STD  IF *DMAX1* OR *DMIN1*                               PAR         1560     A     
 PAR                =B7    B7-1                                                            PAR         1561     A     
 PAR                MI     B7,POP.ST1  IF NOT                                              PAR         1562     A     
 PAR                EQ     C=BIF11                                                         PAR         1563     A     
 PAR                                                                                       PAR         1564     A     
 PAR       DMINMAXT BSS    0                                                               PAR         1565     A     
 PAR                CON    5LDMAX1                                                         PAR         1566     A     
 PAR                CON    5LDMIN1                                                         PAR         1567     A     
 PAR       C=DEC    SPACE  4,8                                                             PAR         1568     A     
 PAR      **        C=DEC - PROCESS *,* FOR EXPRESSION IN DECLARATIVE                      PAR         1569     A     
 PAR      *                                                                                PAR         1570     A     
 PAR      *         ENTRY  (X6) = RESULTS OF EXPRESSION.                                   PAR         1571     A     
 PAR      *                                                                                PAR         1572     A     
 PAR      *         EXIT   PAR.EXIT                                                        PAR         1573     A     
 PAR                                                                                       PAR         1574     A     
 PAR                                                                                       PAR         1575     A     
 PAR       C=DEC    SB4    B4+1                                                            PAR         1576     A     
 PAR                EQ     PAREXIT     EXIT POINTING TO NEXT CHARACTER                     PAR         1577     A     
 PAR       C=DO     SPACE  4,8                                                             PAR         1578     A     
 PAR       C=DO     SPACE  4,8                                                             PAR         1579     A     
 PAR      **        C=DO-  CHECK INDICES OF *DO* LOOP                                      PAR         1580     A     
 PAR      *                                                                                PAR         1581     A     
 PAR      *         ENTRY- (X4) = INDEX VARIABLE.                                          PAR         1582     A     
 PAR      *         (X6) = INDEX NUMBER. (ARGCOMA)                                         PAR         1583     A     
 PAR                                                                                       PAR         1584     A     
 PAR                                                                                       PAR         1585     A     
 PAR       C=DO     MX0    -L.MODE                                                         PAR         1586     A     
 PAR                SB3    X6-1                                                            PAR         1587     A     
 PAR                SA2    B3+DO.DPC   LOAD DPC FOR CURRENT INDEX PROCESSING               PAR         1588     A     
 PAR                ZR     B3,C=DO1    IF PROCESSING CONTROL INDEX                         PAR         1589     A     
 PAR                BX4    X5                                                              PAR         1590     A     
 PAR       C=DO1    BX6    X2                                                              PAR         1591     A     
 PAR                LX1    X4                                                              PAR         1592     A     
 PAR                SA6    FILL.       DPC FOR CURRENT INDEX.                              PAR         1593     A     
 PAR                RJ     LCT         CHECK IF CONSTANT                                   PAR         1594     A     
 PAR                SA2    X0+DO=IX                                                        PAR         1595     A     
 PAR                BX3    X6                                                              PAR         1596     A     
 PAR                SB7    X2                                                              PAR         1597     A     
 PAR                                                                                       PAR         1598     A     
 PAR      **        EXIT   (X0) = MODE OF INDEX                                            PAR         1599     A     
 PAR      *                (X3) = BINARY OF CONSTANT.                                      PAR         1600     A     
 PAR      *                (B2) = 0, IF INDEX NOT A CONSTANT                               PAR         1601     A     
 PAR      *                (B3) = INDEX TYPE.                                              PAR         1602     A     
 PAR                                                                                       PAR         1603     A     
 PAR                JP     B7          JUMP RELATIVE TO MODE OF INDEX.                     PAR         1604     A     
 PAR       DO=IX    SPACE  4,8                                                             PAR         1605     A     
 PAR      *         DO=IX - INDEX JUMP TABLE RELATIVE TO MODE OF INDEX.                    PAR         1606     A     
 PAR                                                                                       PAR         1607     A     
 PAR                                                                                       PAR         1608     A     
 PAR       DO=IX    BSS    0                                                               PAR         1609     A     
 PAR                LOC    M.UNIV                                                          PAR         1610     A     
 PAR                                                                                       PAR         1611     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1259    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                CON    IX=UNIV     INDEX JUMP TABLE.                                   PAR         1612     A     
 PAR                CON    IX=LOG                                                          PAR         1613     A     
 PAR                CON    IX=INT                                                          PAR         1614     A     
 PAR                CON    IX=REAL                                                         PAR         1615     A     
 PAR                CON    IX=DBL                                                          PAR         1616     A     
 PAR                CON    IX=CPLX                                                         PAR         1617     A     
 PAR                LOC    *O                                                              PAR         1618     A     
 PAR       IX=UNIV  SPACE  4,8                                                             PAR         1619     A     
 PAR      *         IF INDEX IS CHAMELON                                                   PAR         1620     A     
 PAR                                                                                       PAR         1621     A     
 PAR                                                                                       PAR         1622     A     
 PAR       IX=UNIV  ZR     B3,DOER17   IF CONTROL INDEX, ERROR                             PAR         1623     A     
 PAR                ANSI   E.DO16      NON ANSI INDEX                                      PAR         1624     A     
 PAR                EQ     IX=INT                                                          PAR         1625     A     
 PAR       IX=LOG   SPACE  4,8                                                             PAR         1626     A     
 PAR      *         IF INDEX IS LOGICAL, REAL, DOUBLE OR COMPLEX.                          PAR         1627     A     
 PAR                                                                                       PAR         1628     A     
 PAR                                                                                       PAR         1629     A     
 PAR       IX=REAL  BSS    0                                                               PAR         1630     A     
 PAR       IX=DBL   BSS    0                                                               PAR         1631     A     
 PAR       IX=CPLX  BSS    0                                                               PAR         1632     A     
 PAR       IX=LOG   ZR     B3,DOER17   IF CONTROL INDEX, ERROR                             PAR         1633     A     
 PAR                FATAL  E.DO1                                                           PAR         1634     A     
 PAR                EQ     DO.ERR                                                          PAR         1635     A     
 PAR       IX=INT   SPACE  4,8                                                             PAR         1636     A     
 PAR      *         IF INDEX IS INTEGER.                                                   PAR         1637     A     
 PAR                                                                                       PAR         1638     A     
 PAR                                                                                       PAR         1639     A     
 PAR       IX=INT   ZR     B2,C=DO10   IF NOT CONSTANT                                     PAR         1640     A     
 PAR                NZ     B3,C=DO6    IF NOT CONTROL INDEX                                PAR         1641     A     
 PAR                                                                                       PAR         1642     A     
 PAR       DOER17   FATAL  E.DO17      CONTROL INDEX NOT INTEGER                           PAR         1643     A     
 PAR                EQ     DO.CON6                                                         PAR         1644     A     
 PAR       IX=REAL  SPACE  4,8                                                             PAR         1645     A     
 PAR      *         CHECK CONSTANT INDEX USE.                                              PAR         1646     A     
 PAR                                                                                       PAR         1647     A     
 PAR       C=DO6    BX0    X3                                                              PAR         1648     A     
 PAR                MI     X3,C=DO6A   IF INDEX IS NEGATIVE                                PAR         1649     A     
 PAR                NZ     X3,C=DO6B   IF INDEX IS NOT ZERO                                PAR         1650     A     
 PAR       C=DO6A   FATAL  E.DO5       INDEX NOT .GT. ZERO                                 PAR         1651     A     
 PAR                EQ     DO.ERR                                                          PAR         1652     A     
 PAR       C=DO6B   AX0    17                                                              PAR         1653          I
          -FCC2291
 PAR                ZR     X0,C=DO6C   IF INDEX IS NOT TOO LARGE                           PAR         1654          I
          -FCC2291
 PAR       C=DO6B   SX2    377776B     MAXIMUM VALUE OF DO INDEX                           FCC2291       13     A     
 PAR                IX2    X2-X0                                                           FCC2291       14     A     
 PAR                PL     X2,C=DO6C   IF INDEX IS NOT TOO LARGE                           FCC2291       15     A     
 PAR                FATAL  E.DO3       INDEX TOO LARGE                                     PAR         1655     A     
 PAR                EQ     DO.ERR                                                          PAR         1656     A     
 PAR       C=DO6C   SA2    IXLASTV     LAST VALUE OF INDEX                                 PAR         1657     A     
 PAR                BX6    X3                                                              PAR         1658     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1260    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                IX0    X3-X2                                                           PAR         1659     A     
 PAR                SA6    A2          RESET INDEX                                         PAR         1660     A     
 PAR                PL     X0,C=DOX    IF NON-NEGATIVE DIFFERENCE, EXIT..                  PAR         1661     A     
 PAR                SB2    B3-3                                                            PAR         1662     A     
 PAR                ZR     B2,C=DOX    IF PROCESSING INCREMENT, EXIT..                     PAR         1663     A     
 PAR                WARN   E.DO2       ** ONE-TRIP **                                      PAR         1664     A     
 PAR                EQ     C=DOX       EXIT..                                              PAR         1665     A     
 PAR       IX=TAG   SPACE  4,8                                                             PAR         1666     A     
 PAR      **        PROCESS WHEN INDEX IS A TAG.                                           PAR         1667     A     
 PAR                                                                                       PAR         1668     A     
 PAR       C=DO10   BX0    X4                                                              PAR         1669     A     
 PAR                AX0    P.TAG                                                           PAR         1670     A     
 PAR                BX1    X4                                                              PAR         1671     A     
 PAR                IFBIT  X1,-INTR,C=DO10A  IF NOT INTERMEDIATE                           PAR         1672          I
          -FCC1299
 PAR                IFBIT  X1,-INTR,C=DO15   IF NOT INTERMEDIATE                           FCC1299        5     A     
 PAR                FATAL  E.DO4       NOT A SIMPLE VARIABLE                               PAR         1673     A     
 PAR                EQ     DO.ERR                                                          PAR         1674     A     
 PAR       C=DO10A  SA1    TS.SYM                                                          PAR         1675          I
          -FCC1299
 PAR       C=DO15   SA1    TS.SYM                                                          FCC1299        6     A     
 PAR                SB7    X0-C.SYM                                                        PAR         1676     A     
 PAR                SA2    B7+X1                                                           PAR         1677     A     
 PAR                IFBIT  X2,VAR,C=DO10B  IF A VARIABLE                                   PAR         1678          I
          -FCC1299
 PAR                NZ     B3,C=DO16         IF NOT CONTROL INDEX                          FCC1299        7     A     
 PAR                =X3    M.DEF                                                           FCC1299        8     A     
 PAR                BX6    X2+X3             SET DEFINE BIT                                FCC1299        9     A     
 PAR                SA6    A2                                                              FCC1299       10     A     
 PAR                IFBIT  X2,-VAR,C=DO16A     IF NOT SIMPLE VARIABLE                      FCC1901       15     A     
 PAR                IFBIT  X2,-FPS/VAR,C=DO16A IF NOT FP USED AS A SUBSCRIPT               FCC1901       16     A     
 PAR                SA2    A2-B1               POINTS TO SYMBOL IN TS.SYM                  FCC1901       17     A     
 PAR                MX6    L.SYM                                                           FCC1901       18     A     
 PAR                BX6    X2*X6               EXTRACT SYMBOL                              FCC1901       19     A     
 PAR                SA6    FILL.                                                           FCC1901       20     A     
 PAR                ANSI   =XE.AT13            REDEFINITION OF FPS IS NON-ANSI             FCC1901       21     A     
 PAR                SA2    A2+B1                                                           FCC1901       22     A     
 PAR                EQ     C=DO16                                                          FCC1901       23     A     
 PAR       C=DO16A  SA2    A2                  RESTORE X2                                  FCC1901       24     A     
 PAR       C=DO16   IFBIT  X2,VAR,C=DO20     IF A VARIABLE                                 FCC1299       11     A     
 PAR                FATAL  E.DO4       INDEX MUST BE SIMPLE VARIABLE                       PAR         1679     A     
 PAR                EQ     DO.ERR                                                          PAR         1680     A     
 PAR       C=DO10B  BX6    0                                                               PAR         1681          I
          -FCC1299
 PAR       C=DO20   BX6    0                                                               FCC1299       12     A     
 PAR                SA6    IXLASTV                                                         PAR         1682     A     
 PAR                EQ     C=DOX        EXIT..                                             PAR         1683     A     
 PAR       IX=INTR  SPACE  4,8                                                             PAR         1684     A     
 PAR      **        C=DOX - ADD INDEX TO *TP.DO* TABLE                                     PAR         1685     A     
 PAR      *                                                                                PAR         1686     A     
 PAR      *         ENTRY  (X4) = CURRENT INDEX VALUE.                                     PAR         1687     A     
 PAR      *                (B3) = CURRENT INDEX NUMBER.                                    PAR         1688     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1261    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                     = 0, CONTROL                                               PAR         1689     A     
 PAR      *                     = 1, INITIAL                                               PAR         1690     A     
 PAR      *                     = 2, LIMIT                                                 PAR         1691     A     
 PAR      *                     = 3, INCREMENT                                             PAR         1692     A     
 PAR      *                     = 4, ERROR                                                 PAR         1693     A     
 PAR      *                                                                                PAR         1694     A     
 PAR      *         EXIT   POPX                                                            PAR         1695     A     
 PAR                                                                                       PAR         1696     A     
 PAR       C=DOX    SA1    B3+DO.INX                                                       PAR         1697     A     
 PAR                SA3    TP.DO                                                           PAR         1698     A     
 PAR                SA2    TP=DO                                                           PAR         1699     A     
 PAR                SB7    X1          JUMP ADDRESS                                        PAR         1700     A     
 PAR                IX0    X2+X3                                                           PAR         1701     A     
 PAR                BX6    X4          INDEX TAG                                           PAR         1702     A     
 PAR                SB2    X0-L.DOE    FWA FOR CURRENT DO ENTRY                            PAR         1703     A     
 PAR                JP     B7                                                              PAR         1704     A     
 PAR                                                                                       PAR         1705     A     
 PAR       DO.INX   BSS    0                                                               PAR         1706     A     
 PAR                CON    DO.CON                                                          PAR         1707     A     
 PAR                CON    DO.INIT                                                         PAR         1708     A     
 PAR                CON    DO.LIM                                                          PAR         1709     A     
 PAR                CON    DO.INCR                                                         PAR         1710     A     
 PAR                CON    DO.ERR1                                                         PAR         1711     A     
 PAR                                                                                       PAR         1712     A     
 PAR      **        RETURN FOR ALL *DO* DEFINITION ERRORS.                                 PAR         1713     A     
 PAR                                                                                       PAR         1714     A     
 PAR       DO.ERR1  FATAL  E.DO                                                            PAR         1715     A     
 PAR                EQ     PARX        EXIT PAR ENTIRELY                                   FCC1453        5     A     
 PAR       DO.ERR   =B6    B6-1        ELIMINATE OPERAND                                   PAR         1716     A     
 PAR                EQ     POPX        EXIT..                                              PAR         1717     A     
 PAR                                                                                       PAR         1718     A     
 PAR      **        PROCESS *INITIAL* INDEX                                                PAR         1719     A     
 PAR                                                                                       PAR         1720     A     
 PAR       DO.INIT  =B6    B6-1        ELIMINATE OPERAND IN STACK                          PAR         1721     A     
 PAR                =X0    PR.SLP                                                          PAR         1722     A     
 PAR                =X3    O.COMMA                                                         PAR         1723     A     
 PAR                LX0    P.STPR                                                          PAR         1724     A     
 PAR                SA6    B2+OR.DOSI  INITIAL TO DO TABLE                                 PAR         1725     A     
 PAR                BX7    X0+X3                                                           PAR         1726     A     
 PAR                SA7    B5          REPLACE *=* WITH SPECIAL *COMMA*                    PAR         1727     A     
 PAR                EQ     POPX        CONTINUE - POPPING DO TURPLE                        PAR         1728     A     
 PAR                                                                                       PAR         1729     A     
 PAR      **        PROCESS *LIMIT* INDEX                                                  PAR         1730     A     
 PAR                                                                                       PAR         1731     A     
 PAR       DO.LIM   =X0    M.SHORT                                                         PAR         1732     A     
 PAR                SA1    CONONE                                                          PAR         1733     A     
 PAR                BX3    X0*X6                                                           PAR         1734     A     
 PAR                ZR     X3,DO.LIM2  IF *LIMIT* NOT SHORT CONSTANT                       PAR         1735     A     
 PAR                AX6    P.SHC                                                           PAR         1736     A     
 PAR                MX0    -L.SHC                                                          PAR         1737     A     
 PAR                =X4    X6+1                                                            PAR         1738     A     
 PAR                BX2    -X4         COMPLEMENT FOR ADD IN                               PAR         1739     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1262    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SX3    M.SHORT+M.INT                                                   PAR         1740     A     
 PAR                BX7    -X0*X2      EXTRACT *SHORT* LENGTH ONLY                         PAR         1741     A     
 PAR                LX7    P.SHC                                                           PAR         1742     A     
 PAR                BX6    X7+X3       ALWAYS *INTEGER* REGARDLESS OF ORGINAL MODE         PAR         1743     A     
 PAR       DO.LIM2  SA6    B2+OR.DOLI  SET *LIMIT* IN *DO* TABLE                           PAR         1744     A     
 PAR                BX7    X1                                                              PAR         1745     A     
 PAR                SA2    B2+OR.DOSN                                                      PAR         1746     A     
 PAR                SA7    B2+OR.DOII  PRESET INCREMENT = 1                                PAR         1747     A     
 PAR                SX6    X2                                                              PAR         1748     A     
 PAR                NZ     X6,DO.LIM5  IF IN I/O LIST PROCESSING.                          PAR         1749     A     
 PAR                SA2    TG.PRO      GET GENERATED LABEL TO TAG START OF DO              PAR         1750     A     
 PAR                =X6    X2+1                                                            PAR         1751     A     
 PAR                SA6    A2          UPDATE L-TAG                                        PAR         1752     A     
 PAR       DO.LIM5  =B6    B6-1                                                            PAR         1753     A     
 PAR                SA6    B2+OR.DORT  RETURN TAG TO TABLE.                                PAR         1754     A     
 PAR                EQ     POPX        EXIT..                                              PAR         1755     A     
 PAR                                                                                       PAR         1756     A     
 PAR      **        PROCESS *INCREMENT* INDEX                                              PAR         1757     A     
 PAR                                                                                       PAR         1758     A     
 PAR       DO.INCR  SA6    B2+OR.DOII  SET INCREMENT                                       PAR         1759     A     
 PAR                =B6    B6-1                                                            PAR         1760     A     
 PAR                EQ     POPX        EXIT..                                              PAR         1761     A     
 PAR                                                                                       PAR         1762     A     
 PAR      **        PROCESS *CONTROL* INDEX                                                PAR         1763     A     
 PAR                                                                                       PAR         1764     A     
 PAR       DO.CON   BX1    X4          CONTROL INDEX                                       PAR         1765     A     
 PAR                SA2    TP.DO                                                           PAR         1766     A     
 PAR                LX6    X1                                                              PAR         1767     A     
 PAR                SB7    B2+OR.DOCI                                                      PAR         1768     A     
 PAR                SA6    DOIX        ACTIVE *DO* INDEX                                   PAR         1769     A     
 PAR                SA6    B2+OR.DOCI  CONTROL INDEX TO TP.DO                              PAR         1770     A     
 PAR                SB3    X2+OR.DOCI                                                      PAR         1771     A     
 PAR                SA1    X2+OR.DOCI                                                      PAR         1772     A     
 PAR                EQ     DO.CON5     CHECK IF INDEX ALREADY IN USE.                      PAR         1773     A     
 PAR                                                                                       PAR         1774     A     
 PAR      **        CHECK IF CURRENT *DO* CONTROL VALUE ACTIVE BY OTHER *DO*               PAR         1775     A     
 PAR                                                                                       PAR         1776     A     
 PAR       DO.CON1  BX3    X1-X6                                                           PAR         1777     A     
 PAR                SB3    B3+L.DOE                                                        PAR         1778     A     
 PAR                AX3    P.TAG                                                           PAR         1779     A     
 PAR                NZ     X3,DO.CON2  IF INDEX NOT REDEFINED                              PAR         1780     A     
 PAR                FATAL  E.DO11      INDEX OF OUTER DO REDEFINED                         PAR         1781     A     
 PAR                EQ     DO.CON6                                                         PAR         1782     A     
 PAR       DO.CON2  SA1    B3                                                              PAR         1783     A     
 PAR       DO.CON5  LT     B3,B7,DO.CON1     IF NOT END OF TABLE.                          PAR         1784     A     
 PAR                                                                                       PAR         1785     A     
 PAR       DO.CON6  =X1    1                                                               PAR         1786     A     
 PAR                SA2    ARGCOMA                                                         PAR         1787     A     
 PAR                IX6    X2+X1                                                           PAR         1788     A     
 PAR                SA6    A2          UPDATE *ARGCOMA*                                    PAR         1789     A     
 PAR                EQ     C=DO        CONTINUE, PROCESSING *INITIAL*                      PAR         1790     A     
 PAR                                                                                       PAR         1791     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1263    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      **        (*IXLASTV*)  THE LAST INDEX VALUE, IF INDEX WAS A VARIABLE             PAR         1792     A     
 PAR      *         *IXLASTV* WILL CONTAIN A ZERO.                                         PAR         1793     A     
 PAR                                                                                       PAR         1794     A     
 PAR       IXLASTV  DATA   0           LAST VALUE OF *DO* INDEX PROCESSED.                 PAR         1795     A     
 PAR       POP.RP   SPACE  4,8                                                             PAR         1796     A     
 PAR      **        POP.RP - RIGHT PAREN BEING POPPED.                                     PAR         1797     A     
 PAR      *         OUTPUT ERROR, TOO FEW LEFT PARENS - SCANNING STOPPED.                  PAR         1798     A     
 PAR      *                                                                                PAR         1799     A     
 PAR      *         JOINTED AT POP.RP5  BY LEFT PAREN POPPER IF NOT BEING POPPED           PAR         1800     A     
 PAR      *         RIGHT PAREN - ERROR = TOO FEW RIGHT PARENS                             PAR         1801     A     
 PAR      *                                                                                PAR         1802     A     
 PAR      *         EXIT   C=ERR                                                           PAR         1803     A     
 PAR                                                                                       PAR         1804     A     
 PAR                                                                                       PAR         1805     A     
 PAR       POP.RP   =A1    B5+1                                                            PAR         1806     A     
 PAR                AX1    18          TEST FOR SPECIAL RP                                 PAR         1807     A     
 PAR                ZR     X1,POP.RP1  IF NOT SPECIAL RP, THEN ERROR                       PAR         1808     A     
 PAR                EQ     PAR.EOS3    CONTINUE PROCESSING IO LIST                         PAR         1809     A     
 PAR       POP.RP1  =B4    B4-3        SET FOR ERROR PROCESSING                            PAR         1810     A     
 PAR                SB7    E.LP4                                                           PAR         1811     A     
 PAR       POP.RP5  FATAL  B7                                                              PAR         1812     A     
 PAR                EQ     PAR.STOP    CATASTROPIC ERROR, START ANEW                       PAR         1813     A     
 PAR       POP.PN   EJECT  4,30                                                            PAR         1814     A     
 PAR      **        POP.PN -  PROCESS RIGHT PARENTHESIS POPPING LEFT PARENTHESIS           PAR         1815     A     
 PAR      *                                                                                PAR         1816     A     
 PAR      *         A=XXX PROCESSING SECTION.                                              PAR         1817     A     
 PAR      *                                                                                PAR         1818     A     
 PAR      *         GENERAL FLOW.                                                          PAR         1819     A     
 PAR      *         UPON ENTRY ARGMODE AND ARGCOMA ARE SET TO THE CURRENT MODE             PAR         1820     A     
 PAR      *         OF THE SUB-EXPRESSION DEFINED IN PARENTHESIS AS SET WHEN               PAR         1821     A     
 PAR      *         THE OPEN PAREN WAS FOUND.                                              PAR         1822     A     
 PAR      *                                                                                PAR         1823     A     
 PAR      *         THE NEW VALUES TO BE SET FOR CELLS ARGMODE,ARGCOMA AND ARGMIS          PAR         1824     A     
 PAR      *         WERE PREVIOUSLY SET BY *SPS* TO BE IN THE OPERATOR STACK IN            PAR         1825     A     
 PAR      *         FRONT OF THE CURRENT LEFT PAREN THAT IS CURRENTLY BEING POPPED         PAR         1826     A     
 PAR      *         THUS WE RESET ALL THREE OF THESE CELLS AS DEFINED BELOW.               PAR         1827     A     
 PAR      *                                                                                PAR         1828     A     
 PAR      *         AFTER THIS WE EXIT TO THE APPROPRIATE A=XXX PROCESSOR DEFINED          PAR         1829     A     
 PAR      *         BY THE A= FIELD OF THE ENTRY ARGMODE.                                  PAR         1830     A     
 PAR      *                                                                                PAR         1831     A     
 PAR      *         NOTE -                                                                 PAR         1832     A     
 PAR      *         IF LEFT PAREN NOT BEING POPPED BY RIGHT PAREN - NEXT ENTRY             PAR         1833     A     
 PAR      *         IN *SB* IS REPLACED WITH AN *EOS* AND EXIT IS MADE TO C=CERR           PAR         1834     A     
 PAR      *         TO OUTPUT ERROR INDICATING TOO MANY LEFT PARENS, AND TO ADD            PAR         1835     A     
 PAR      *         ERROR TURPLE TO PARSED FILE.                                           PAR         1836     A     
 PAR      *                                                                                PAR         1837     A     
 PAR      *                B5-3   =   ARGMODE.                                             PAR         1838     A     
 PAR      *                B5-2   =   ARGCOMA                                              PAR         1839     A     
 PAR      *                B5-1   =   ARGMIS                                               PAR         1840     A     
 PAR      *                                                                                PAR         1841     A     
 PAR      *         ARGMODE FORMAT.                                                        PAR         1842     A     
 PAR      *         +-----------+-----------+-----------------+-----------------+          PAR         1843     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1264    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         +           +           +                 +                 +          PAR         1844     A     
 PAR      *         +  REFVAR   +ATTRIBUTES +      C=XXX      +       A=XXX                PAR         1845     A     
 PAR      *         +           +           +                 +                 +          PAR         1846     A     
 PAR      *         +-----------+-----------+-----------------+-----------------+          PAR         1847     A     
 PAR      *              12         12               18               18                   PAR         1848     A     
 PAR      *                                                                                PAR         1849     A     
 PAR      *         ARGCOMA FORMAT.                                                        PAR         1850     A     
 PAR      *         +-----------------------+-----------------+-----------------+          PAR         1851     A     
 PAR      *         +///////////////////////+  MODE  OF  PARM + CURRENT ARGUMENT+          PAR         1852     A     
 PAR      *         +///////////////////////+ ( MAY BE OTHER )+    -  1         +          PAR         1853     A     
 PAR      *         +///////////////////////+                 +                 +          PAR         1854     A     
 PAR      *         +-----------------------+-----------------+-----------------+          PAR         1855     A     
 PAR      *                    24                   18               18                    PAR         1856     A     
 PAR      *                                                                                PAR         1857     A     
 PAR      *                                                                                PAR         1858     A     
 PAR      *         ENTRY  (X3) = CURRENT *(* OPERATOR TO BE PROCESSED.                    PAR         1859     A     
 PAR      *                (B2) = CURRENT VALUE OF ARGCOMA                                 PAR         1860     A     
 PAR      *                (B3) = CURRENT VALUE OF ARGMODE.                                PAR         1861     A     
 PAR      *                (B4) _ RIGHT PARENTHESIS IN *SB*.                               PAR         1862     A     
 PAR      *                (POPPER) = TABBED VALUE FOR RIGHT PAREN OPERATOR.               PAR         1863     A     
 PAR      *                                                                                PAR         1864     A     
 PAR      *         EXIT   DEPENDING ON THE PARTICULAR VALUE FOR A=, EXIT IS THRU          PAR         1865     A     
 PAR      *                A.  POP.STD - TO PROCESS OPERATOR.                              PAR         1866     A     
 PAR      *                B.  POPX    - IGNORE OPERATOR.                                  PAR         1867     A     
 PAR      *                              (NOTE - IN CERTAIN *POPPER* IS SET TO             PAR         1868     A     
 PAR      *                                      INDICATE BY-PASSING OF PAREN.)            PAR         1869     A     
 PAR      *                                                                                PAR         1870     A     
 PAR      *         USES   A2,A3,A4,A6  X5  B3                                             PAR         1871     A     
 PAR                                                                                       PAR         1872     A     
 PAR                                                                                       PAR         1873     A     
 PAR       POP.PN   SA4    ARGMODE                                                         PAR         1874     A     
 PAR                SA3    POPDPC                                                          PAR         1875     A     
 PAR                SA5    ARGCOMA                                                         PAR         1876     A     
 PAR                SB2    X3-O.RP                                                         PAR         1877     A     
 PAR                SB3    X4                                                              PAR         1878     A     
 PAR                SA3    ARGMIS                                                          PAR         1879     A     
 PAR                SB7    E.LP3       IN CASE OF PAREN MIS-MATCH                          PAR         1880     A     
 PAR                NZ     B2,POP.RP5  IF *(* NOT BEING POPPED BY *)*                      PAR         1881     A     
 PAR                BX7    X4                                                              PAR         1882     A     
 PAR                SB2    X5                                                              PAR         1883     A     
 PAR                SA7    SCR         SAVE CURRENT *ARGMODE*                              PAR         1884     A     
 PAR                LX6    X5                                                              PAR         1885     A     
 PAR                BX7    X3                                                              PAR         1886     A     
 PAR                SA2    B5-2        TO BE USED FOR RESETTING ARGMODE.                   PAR         1887     A     
 PAR                =A6    A7+1        SAVE CURRENT *ARGCOMA*                              PAR         1888     A     
 PAR                =A4    A2+1        TO BE USED FOR RESETTING ARGCOMA.                   PAR         1889     A     
 PAR                =A7    A6+1        SAVE CURRENT *ARGMIS*                               PAR         1890     A     
 PAR                BX6    X2                                                              PAR         1891     A     
 PAR                SB5    B5-L.PSTACK RESET *OSTACK* POINTER                              PAR         1892     A     
 PAR                SA3    CMLFLG                                                          PAR         1893     A     
 PAR                =A5    A4+1        TO BE USED FOR RESETTING ARGMIS.                    PAR         1894     A     
 PAR                SX2    X3+B5                                                           PAR         1895     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1265    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA6    ARGMODE     RESET ARGMODE                                       PAR         1896     A     
 PAR                NZ     X2,POP.PN1  IF NO NEED TO RESET FLAG                            PAR         1897     A     
 PAR                =X7    1                                                               PAR         1898     A     
 PAR                SA7    A3                                                              PAR         1899     A     
 PAR       POP.PN1  AX6    P.AMR                                                           PAR         1900     A     
 PAR                SA2    ARGCOMA                                                         PAR         1901     A     
 PAR                BX7    X4                                                              PAR         1902     A     
 PAR                SA6    REFVAR      RESET CROSS REFERENCE VALUE.                        PAR         1903     A     
 PAR                SA7    A2          RESET ARGCOMA.                                      PAR         1904     A     
 PAR                BX6    X5                                                              PAR         1905     A     
 PAR                SA6    ARGMIS                                                          PAR         1906     A     
 PAR                SA4    B6-2        1ST OPERAND                                         PAR         1907     A     
 PAR                MX6    -1                                                              PAR         1908     A     
 PAR                =B4    B4+1        BY-PASS RIGHT PARENTHESIS.                          PAR         1909     A     
 PAR                =A5    B6-1        2ND OPERAND.                                        PAR         1910     A     
 PAR                SA6    POPPER      INDICATE IGNORE FUTHER PROCESSING OF PAREN          PAR         1911     A     
 PAR                                                                                       PAR         1912     A     
 PAR      **        EXIT TO A=XXX PROCESSOR WITH THE FOLLOWING CONDITIONS SET --           PAR         1913     A     
 PAR      *         (X2) = (ARGCOMA)                                                       PAR         1914     A     
 PAR      *         (X5) = 2ND OPERAND                                                     PAR         1915     A     
 PAR      *         (B2) = NUMBER OF ARGUMENTS -1 INSIDE PARENS.                           PAR         1916     A     
 PAR      *         (B4) _ NEXT ELEMENT PAST CLOSING RIGHT PAREN                           PAR         1917     A     
 PAR      *                                                                                PAR         1918     A     
 PAR      *         (SCR)  = (ARGMODE) FOR PAREN BEING CLOSED.                             PAR         1919     A     
 PAR      *         (SCR+1)= (ARGCOMA)  -    -     -      -                                PAR         1920     A     
 PAR      *         (SCR+2)= (ARGMIS )  -    -     -      -                                PAR         1921     A     
 PAR                                                                                       PAR         1922     A     
 PAR                JP     B3                                                              PAR         1923     A     
 PAR       A=ASF    SPACE  4,8                                                             PAR         1924     A     
 PAR      **        A=ASF -ASF TERMINATION.                                                PAR         1925     A     
 PAR      *                                                                                PAR         1926     A     
 PAR      *         PARSER COMES HERE TO TERMINATE AN *ASF* EXPANSION.                     PAR         1927     A     
 PAR      *                                                                                PAR         1928     A     
 PAR      *         ENTRY  B4_ NEXT CHARACTER AFTER *ASF* *)*.                             PAR         1929     A     
 PAR      *                                                                                PAR         1930     A     
 PAR      *         EXIT   (INAFR)   CLEARED                                               PAR         1931     A     
 PAR      *                (B4)      RESET TO *SB*                                         PAR         1932     A     
 PAR      *                (ALC.REG) RESET TO *SB*                                         PAR         1933     A     
 PAR      *                (TT=ASF)  RESET TO REAL LENGTH                                  PAR         1934     A     
 PAR                                                                                       PAR         1935     A     
 PAR                                                                                       PAR         1936     A     
 PAR       A=ASF    =A4    B6-1        FETCH LAST ESTACK ENTRY                             PAR         1937     A     
 PAR                MX0    -L.MODE                                                         PAR         1938     A     
 PAR                SA2    SCR+2       ASF *ARGMIS* VALUE                                  PAR         1939     A     
 PAR                BX1    -X0*X4                                                          PAR         1940     A     
 PAR                ZR     X1,A=ASF1   NO MODE CONVERSION IF ASF EXPR TYPELESS             PAR         1941          I
          -FCC1294
 PAR                ZR     X1,A=ASF2   IF ASF EXPR TYPELESS                                FCC1294        9     A     
 PAR                BX0    X1-X2                                                           PAR         1942     A     
 PAR                ZR     X0,A=ASF1   IF NO MODE CONVERSION NEEDED                        PAR         1943     A     
 PAR                =X6    1           FIRST (ONLY) OPERAND TO BE CONVERTED                PAR         1944     A     
 PAR                LX6    18                                                              PAR         1945     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1266    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                BX6    X2+X6                                                           PAR         1946     A     
 PAR                SA6    SMOD        SET SMOD FOR OMC                                    PAR         1947     A     
 PAR                LX2    3           8*MODE = SHIFT COUNT                                PAR         1948     A     
 PAR                SB2    X2                                                              PAR         1949     A     
 PAR                SA2    X1+MODTBL   MODE CONVERSION TABLE ENTRY                         PAR         1950     A     
 PAR                MX0    -8                                                              PAR         1951     A     
 PAR                AX6    B2,X2                                                           PAR         1952     A     
 PAR                BX6    -X0*X6      ONLY 8 BITS FOR EACH MODE                           PAR         1953     A     
 PAR                ZR     X6,A=ASF1   IF NO CONVERSION NEEDED                             FCC0963        5     A     
 PAR                =A6    A6-SMOD+SMOD1  SET SMOD1 FOR OMC                                PAR         1954          I
          -FCC1294
 PAR                SB2    X6-377B                                                         FCC1294       10     A     
 PAR                NE     B2,A=ASF0   IF LEGAL CONVERSION                                 FCC1294       11     A     
 PAR                FATAL  E.AT12                                                          FCC1294       12     A     
 PAR                SA2    SCR+2                                                           FCC1294       13     A     
 PAR                EQ     A=ASF3                                                          FCC1294       14     A     
 PAR                                                                                       FCC1294       15     A     
 PAR       A=ASF0   =A6    A6-SMOD+SMOD1  SET SMOD1 FOR OMC                                FCC1294       16     A     
 PAR                RJ     OMC         MODE CONVERSION                                     PAR         1955     A     
 PAR       A=ASF1   SA1    B4                                                              PAR         1956     A     
 PAR                NZ     X1,PAR.NX   IF NOT *EOS*                                        PAR         1957     A     
 PAR                SA3    ALC.00                                                          PAR         1958     A     
 PAR                SA1    ASFLEN                                                          PAR         1959     A     
 PAR                SA2    INAFR                                                           PAR         1960     A     
 PAR                BX7    X3                                                              PAR         1961     A     
 PAR                LX6    X1                                                              PAR         1962     A     
 PAR                SB4    X2          INPUT CURSOR BACK TO *SB*                           PAR         1963     A     
 PAR                SA7    ALC.REG     UNLOCK *B4*                                         PAR         1964     A     
 PAR                SA6    TT=ASF      ERASE EXPANDED STATEMENT FUNCTIONS                  PAR         1965          I
          -FCC0813
 PAR                SHRINK TT=ASF,X6   ERASE EXPANDED STATEMENT FUNCTION                   FCC0813      169     A     
 PAR                BX7    0                                                               PAR         1966     A     
 PAR                SA7    A2          INDICATE NO STATEMENT FUNCTION IN PROGRESS          PAR         1967     A     
 PAR                EQ     PAR.NX      CONTINUE TO PROCESS REST OF STATEMENT               PAR         1968     A     
 PAR       A=ASF2   SB2    X2-M.LOG    HERE IF ASF EXPR TYPELESS                           FCC1294       17     A     
 PAR                NE     B2,A=ASF3   IF ASF MODE NOT LOGICAL                             FCC1294       18     A     
 PAR                WARN   E.AT11                                                          FCC1294       19     A     
 PAR       A=ASF3   BX4    X0*X4       CHANGE EXPR MODE TO ASF MODE                        FCC1294       20     A     
 PAR                BX6    X4+X2                                                           FCC1294       21     A     
 PAR                SA6    A4                                                              FCC1294       22     A     
 PAR                EQ     A=ASF1                                                          FCC1294       23     A     
 PAR       A=BEF    SPACE  4,8                                                             PAR         1969     A     
 PAR      **        A=BEF  TERMINATE END OF ARGUMENT LIST FOR *BASIC EXTERNAL*             PAR         1970     A     
 PAR      *                                                                                PAR         1971     A     
 PAR      **        VALIDATE ARGUMENT LIST AGREEMENT WITH THAT DEFINED FOR CURRENT         PAR         1972     A     
 PAR      *         BASIC EXTERNAL, OUTPUT TURPLE FOR FINAL ARGUMENT                       PAR         1973     A     
 PAR                                                                                       PAR         1974     A     
 PAR                                                                                       PAR         1975     A     
 PAR       A=BEF    SA4    SCR+2       RELOAD A= ARGMIS (ROUTINE NAME)                     PAR         1976     A     
 PAR                LX4    P.2TAG                                                          PAR         1977     A     
 PAR                RJ     VIL         VALIDATE BEF ARGUMENT LIST AGREEMENT                PAR         1978     A     
 PAR                                                                                       PAR         1979     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1267    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA3    SCR+2       RELOAD A= ARGMIS (ROUTINE NAME)                     PAR         1980     A     
 PAR                =A2    A3-1        RELOAD A= ARGCOMA                                   PAR         1981     A     
 PAR                BX1    X5                                                              PAR         1982     A     
 PAR                AX2    P.ACM                                                           PAR         1983     A     
 PAR                RJ     VAM         VALIDATE FINAL ARGUMENT MODE                        PAR         1984     A     
 PAR                SA4    A4                                                              PAR         1985     A     
 PAR                BX6    X4                                                              PAR         1986     A     
 PAR                SA6    SCR+3       SAVE ROUTINE TAG                                    PAR         1987     A     
 PAR                SA1    CO.TBK                                                          PAR         1988     A     
 PAR                PL     X1,A=BEF2                                                       PAR         1989          I
          -FEAT126C 
 PAR                PL     X1,A=BEF2   IF TRACEBACK OFF                                    FEAT126C     152     A     
 PAR                SA1    TS.SYM                                                          FCC2174        7     A     
 PAR                SB7    X1                                                              FCC2174        8     A     
 PAR                SA4    A4-B7       RELATIVIZE SYMTAB POINTER                           FCC2174        9     A     
 PAR                RJ     FAL         FLUSH ARGUMENT LOAD TURPLES                         PAR         1990     A     
 PAR                SA1    TS.SYM                                                          FCC2174       10     A     
 PAR                SB7    X1                                                              FCC2174       11     A     
 PAR                SA4    A4+B7       RELOAD TAG                                          FCC2174       12     A     
 PAR                                                                                       PAR         1991     A     
 PAR                MX4    0                                                               PAR         1992     A     
 PAR                EQ     A=BEF3                                                          PAR         1993     A     
 PAR                                                                                       PAR         1994     A     
 PAR       A=BEF2   MX4    0           INITIALIZE TO NO FIRST ARGUMENT                     PAR         1995     A     
 PAR                SA1    SCR+1                                                           PAR         1996     A     
 PAR                SA2    TT=SCR                                                          PAR         1997     A     
 PAR                AX1    36                                                              PAR         1998     A     
 PAR                IX3    X2-X1       NUMBER ENTRIES IN TT.SCR                            PAR         1999     A     
 PAR                ZR     X3,A=BEF3   IF NO SAVED ARGUMENTS                               PAR         2000     A     
 PAR                SA2    TT.SCR                                                          PAR         2001     A     
 PAR                IX2    X2+X1       GET POINTER TO FIRST ARGUEMENT                      FCC1616X       7     A     
 PAR                SA2    X2                                                              PAR         2002     A     
 PAR                BX4    X2          SET UP FIRST ARGUMENT                               PAR         2003     A     
 PAR                SHRINK TT=SCR,X1   COLLAPSE TABLE                                      PAR         2004     A     
 PAR       A=BEF3   MX0    -L.MODE                                                         PAR         2005     A     
 PAR                SA2    A4                                                              PAR         2006     A     
 PAR                SA1    CO.TBK                                                          PAR         2007     A     
 PAR                SA3    CALLOP                                                          PAR         2008     A     
 PAR                BX7    -X0*X2      RESULT MODE                                         PAR         2009     A     
 PAR                MI     X1,A=BEF4   IF TRACKBACK SELECTED                               PAR         2010     A     
 PAR                AX2    P.ARGC                                                          PAR         2011     A     
 PAR                MX6    -L.ARGC                                                         PAR         2012     A     
 PAR                BX6    -X6*X2      NUMBER OF ARGUMENTS                                 PAR         2013     A     
 PAR                AX6    1                                                               PAR         2014     A     
 PAR                SB2    X6          NUMBER ARGUMENTS - 1  (0 OR 1)                      PAR         2015     A     
 PAR                SA3    =XREGARG+B2 REGARG OR REGARG2                                   PAR         2016     A     
 PAR                AX2    P.ARGMF-P.ARGC                                                  PAR         2017     A     
 PAR                BX2    -X0*X2      MODE OF ARGUMENTS                                   PAR         2018     A     
 PAR                SX0    M.LONG                                                          PAR         2019     A     
 PAR                BX2    X0*X2                                                           PAR         2020     A     
 PAR                AX2    P.LONG      0 FOR SINGLE WORD, 1 FOR DOUBLE                     PAR         2021     A     
 PAR                SA1    BEF.ARG+B2                                                      PAR         2022     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1268    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                BX6    X6*X2       1 IFF 2 DOUBLE-WORD ARGUMENTS                       PAR         2023     A     
 PAR                SB2    X6                                                              PAR         2024     A     
 PAR                SA1    A1+B2       GET PROPER WORD OUT OF TABLE                        PAR         2025     A     
 PAR                LX2    4                                                               PAR         2026     A     
 PAR                SB2    X2                                                              PAR         2027     A     
 PAR                MX0    -16                                                             PAR         2028     A     
 PAR                AX1    B2          GET PROPER 16-BIT ENTRY OUT OF WORD                 PAR         2029     A     
 PAR                BX1    -X0*X1                                                          PAR         2030     A     
 PAR                LX1    P.JPAD                                                          PAR         2031     A     
 PAR                BX3    X3+X1                                                           PAR         2032     A     
 PAR       A=BEF4   BX6    X3                                                              PAR         2033     A     
 PAR                BX6    X3                                                              PAR         2034     A     
 PAR                SA6    SOPR                                                            PAR         2035     A     
 PAR                SA7    SMOD                                                            PAR         2036     A     
 PAR                RJ     ESC         EXPAND SHORT CONSTANT                               PAR         2037     A     
 PAR                SA3    SOPR                                                            PAR         2038     A     
 PAR                RJ     ADT         ADD TURPLE FOR LAST ARGUMENT                        PAR         2039     A     
 PAR                                                                                       PAR         2040     A     
 PAR                SA1    CO.TBK                                                          PAR         2041     A     
 PAR                SA3    EXTFUN                                                          PAR         2042     A     
 PAR                MI     X1,A=BEF6   IF TRACKBACK SELECTED                               PAR         2043     A     
 PAR                SA3    BEFFUN                                                          PAR         2044     A     
 PAR       A=BEF6   SA2    TT=PAR                                                          PAR         2045     A     
 PAR                SA1    SCR+3       RESTORE ROUTINE TAG                                 PAR         2046     A     
 PAR                =X7    X2+L.TURP                                                       PAR         2047     A     
 PAR                SA7    CURST       RESET RELATIVE SQUEEZE START                        PAR         2048     A     
 PAR                LX5    X3          SAVE OPERATOR                                       PAR         2049     A     
 PAR                RJ     CT2         CONVERT TAG TO PASS *2* FORM                        PAR         2050     A     
 PAR                BX3    X5          OR.OPR                                              PAR         2051     A     
 PAR                LX4    X6          OR.1OP = EXTERAL ROUTINE NAME                       PAR         2052     A     
 PAR                SA5    =XTRLINE    OR.2OP = TRACEBACK LINE NO.                         PAR         2053          I
          -FCC0744
 PAR                =X5    0           OPERAND TWO = 0                                     FCC0744        9     A     
 PAR                =B6    B6+1        DUMMY TO RESTORE ELEMENT STACK                      PAR         2054     A     
 PAR                EQ     POP.ST1     CONTINUE                                            PAR         2055     A     
 PAR       A=BIF    SPACE  4,8                                                             PAR         2056     A     
 PAR      **        A=BIF - PROCESS CLOSING *)* FOR INTRINSICS                             PAR         2057     A     
 PAR      *         (X2) = ARGCOMA.                                                        PAR         2058     A     
 PAR                                                                                       PAR         2059     A     
 PAR                                                                                       PAR         2060     A     
 PAR       A=BIF    SA4    SCR+2       RELOAD A= ARGMIS (ROUTINE NAME + TAG)               PAR         2061     A     
 PAR                LX4    P.2TAG                                                          PAR         2062     A     
 PAR                ZR     B2,A=BIF5   IF ONE ARGUMENT, PAREN ACTS AS COMMA                PAR         2063     A     
 PAR                RJ     VIL         VALIDATE INTRINSIC LIST                             PAR         2064     A     
 PAR                MX0    -L.MODE                                                         PAR         2065     A     
 PAR                SA1    B6-2        FUNCTION                                            PAR         2066     A     
 PAR                BX2    X0*X5                                                           PAR         2067     A     
 PAR                =B6    B6-1        ELIMINATE FUNCTION                                  PAR         2068     A     
 PAR                BX3    -X0*X1                                                          PAR         2069     A     
 PAR                IX6    X2+X3       RESET RESULT MODE                                   PAR         2070     A     
 PAR                =A6    B6-1        RESET INTERMEDIATE                                  PAR         2071     A     
 PAR                SA1    SCR+2       RELOAD *BIF* ARGMIS                                 PAR         2072     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1269    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                MX0    L.SYM                                                           PAR         2073     A     
 PAR                BX1    X0*X1                                                           PAR         2074     A     
 PAR                SB7    3                                                               PAR         2075     A     
 PAR       A=BIF1   SA2    B7+MINMAXT                                                      PAR         2076     A     
 PAR                IX3    X2-X1                                                           PAR         2077     A     
 PAR                ZR     X3,A=BIF2   IF *MAX1*, *MIN1*, *AMAX0* OR *AMIN0*               PAR         2078     A     
 PAR                =B7    B7-1                                                            PAR         2079     A     
 PAR                MI     B7,POPX     IF NONE OF THE ABOVE, EXIT.. (IGNORE)               PAR         2080     A     
 PAR                EQ     A=BIF1                                                          PAR         2081     A     
 PAR                                                                                       PAR         2082     A     
 PAR      *         MODE CONVERSION NECESSARY                                              PAR         2083     A     
 PAR                                                                                       PAR         2084     A     
 PAR       A=BIF2   MX0    -L.MODE                                                         PAR         2085     A     
 PAR                BX1    -X0*X6      MODE OF FUNCTION                                    PAR         2086     A     
 PAR                SB7    X1-M.INT                                                        PAR         2087     A     
 PAR                ZR     B7,A=BIF3   IF *MAX1* OR *MIN1*                                 PAR         2088     A     
 PAR                SX2    M.INT                                                           PAR         2089     A     
 PAR                EQ     A=BIF4                                                          PAR         2090     A     
 PAR       A=BIF3   SX2    M.REAL                                                          PAR         2091     A     
 PAR       A=BIF4   BX6    X0*X6       REMOVE FUNCTION TYPE                                PAR         2092     A     
 PAR                IX6    X2+X6       AND RESET WITH ARGUMENT TYPE                        PAR         2093     A     
 PAR                =A6    A6          RESET INTERMEDIATE ON PARSE FILE                    PAR         2094          I
          -FCC1709X 
 PAR                SA6    A6                                                              FCC1709X       9     A     
 PAR                BX4    X6                                                              PAR         2095     A     
 PAR                =X6    1                                                               PAR         2096     A     
 PAR                LX6    18                                                              PAR         2097     A     
 PAR                BX6    X1+X6                                                           PAR         2098     A     
 PAR                SA6    SMOD        SET SMOD FOR OMC                                    PAR         2099     A     
 PAR                LX1    3           8*MODE = SHIFT COUNT                                PAR         2100     A     
 PAR                SB2    X1                                                              PAR         2101     A     
 PAR                SA1    X2+MODTBL                                                       PAR         2102     A     
 PAR                MX0    -8                                                              PAR         2103     A     
 PAR                AX6    B2,X1                                                           PAR         2104     A     
 PAR                BX6    -X0*X6                                                          PAR         2105     A     
 PAR                =A6    A6-SMOD+SMOD1  SET SMOD1 FOR OMC                                PAR         2106     A     
 PAR                RJ     OMC         MODE CONVERSION                                     PAR         2107     A     
 PAR                EQ     POPX        EXIT.. (IGNORE)                                     PAR         2108     A     
 PAR                                                                                       PAR         2109     A     
 PAR      *         TABLE OF FUNCTION NAMES WHICH REQUIRE MODE CONVERSION                  PAR         2110     A     
 PAR                                                                                       PAR         2111     A     
 PAR       MINMAXT  BSS    0                                                               PAR         2112     A     
 PAR                CON    5LAMAX0                                                         PAR         2113     A     
 PAR                CON    5LAMIN0                                                         PAR         2114     A     
 PAR                CON    4LMAX1                                                          PAR         2115     A     
 PAR                CON    4LMIN1                                                          PAR         2116     A     
 PAR                                                                                       PAR         2117     A     
 PAR       A=BIF5   RJ     VIL         VALIDATE INTRINSIC LIST                             PAR         2118     A     
 PAR                SA1    B6-2        FUNCTION                                            PAR         2119     A     
 PAR                MX0    -L.MODE                                                         PAR         2120     A     
 PAR                =A2    SCR+1       ARGCOMA                                             PAR         2121     A     
 PAR                BX6    -X0*X1      RESULT MODE                                         PAR         2122     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1270    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =A5    B6-1        ARGUMENT                                            PAR         2123     A     
 PAR                AX2    P.ACM                                                           PAR         2124     A     
 PAR                SA6    SMOD        SET RESULT MODE                                     PAR         2125     A     
 PAR                =A3    A2+1                                                            PAR         2126     A     
 PAR                BX1    X5                                                              PAR         2127     A     
 PAR                RJ     VAM         VALIDATE ARGUMENT MODE                              PAR         2128     A     
 PAR                SA1    BIFFUN                                                          PAR         2129     A     
 PAR                =X4                DUMMY OR.1OP                                        PAR         2130     A     
 PAR                MX0    -L.JPADF                                                        PAR         2131     A     
 PAR                SA2    A4          FETCH SYMBOL TABLE ENTRY (A4 SET IN VIL)            PAR         2132     A     
 PAR                AX2    P.JPADF                                                         PAR         2133     A     
 PAR                BX6    -X0*X2      ISOLATE RELATIVE SKELETON ADDRESS                   PAR         2134     A     
 PAR                SX2    X6+INLBASE                                                      PAR         2135     A     
 PAR                SB7    X6-1S8                                                          PAR         2136     A     
 PAR                MI     B7,A=BIF10  IF NOT SPECIAL FUNCTION                             PAR         2137     A     
 PAR                RJ     ESF         EVUALATE SPECIAL FUNCTION                           PAR         2138     A     
 PAR                MI     X2,POPX     IF FUNCTION REDUCED                                 PAR         2139     A     
 PAR                                                                                       PAR         2140     A     
 PAR       A=BIF10  LX2    P.JPAD                                                          PAR         2141     A     
 PAR                IX3    X1+X2                                                           PAR         2142     A     
 PAR                EQ     POP.ST1     POP LIKE COMMA, BY-PASS *SDM*                       PAR         2143     A     
 PAR       A=DEC    SPACE  4,8                                                             PAR         2144     A     
 PAR      **        A=DEC - PROCESS *,* FOR EXPRESSION IN DECLARATIVE                      PAR         2145     A     
 PAR      *                                                                                PAR         2146     A     
 PAR      *         ENTRY  (X6) = RESULTS OF EXPRESSION.                                   PAR         2147     A     
 PAR      *                                                                                PAR         2148     A     
 PAR      *         EXIT   PAR.EXIT                                                        PAR         2149     A     
 PAR                                                                                       PAR         2150     A     
 PAR                                                                                       PAR         2151     A     
 PAR       A=DEC    EQ     PAREXIT                                                         PAR         2152     A     
 PAR       A=CALL   SPACE  4,8                                                             PAR         2153     A     
 PAR      **        A=CALL - PROCESSING CLOSING OF CALL LIST.                              PAR         2154     A     
 PAR                                                                                       PAR         2155     A     
 PAR                                                                                       PAR         2156     A     
 PAR       A=CALL   SA4    CALLTAG     RELOAD TAG FOR EXTERNAL SET BY *CLL*                PAR         2157     A     
 PAR                RJ     VEL         VALIDATE ARGUMENT LIST                              PAR         2158     A     
 PAR                RJ     FAL         FLUSH ARGUMENT LOAD TURPLES                         PAR         2159     A     
 PAR                RJ     ESC         EXPAND SHORT CONSTANT                               PAR         2160     A     
 PAR                RJ     SDB         SET DEFINED BIT IF VARIABLE                         PAR         2161     A     
 PAR                SA3    CALLOP                                                          PAR         2162     A     
 PAR                BX4    0           1ST OPERAND = DUMMY                                 PAR         2163     A     
 PAR                LX6    X3                                                              PAR         2164     A     
 PAR                SA6    SOPR                                                            PAR         2165     A     
 PAR                RJ     ADT         ADD TURPLE                                          PAR         2166     A     
 PAR                SA1    B4                                                              PAR         2167     A     
 PAR                ZR     X1,A=CALL5  IF *EOS*                                            PAR         2168     A     
 PAR                SB7    X1-O.COMMA                                                      PAR         2169     A     
 PAR                ZR     B7,A=CALL4                                                      PAR         2170     A     
 PAR                SA3    X1+CHARMAP                                                      PAR         2171     A     
 PAR                NZ     X3,A=CALL3  IF NOT CONS OR VAR                                  PAR         2172     A     
 PAR                LX3    X1                                                              PAR         2173     A     
 PAR       A=CALL3  MX0    L.CDPC                                                          PAR         2174     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1271    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                BX6    X0*X3                                                           PAR         2175     A     
 PAR                SA6    FILL.                                                           PAR         2176     A     
 PAR                EQ     =XE.TY      OUTPUT ERROR                                        PAR         2177     A     
 PAR       A=CALL4  RJ     CRL         PROCESS CALL STATEMENT RETURNS LIST                 PAR         2178     A     
 PAR                RJ     FAL         FLUSH                                               PAR         2179     A     
 PAR       A=CALL5  EQ     POPX                                                            PAR         2180     A     
 PAR       A=FUN    SPACE  4,8                                                             PAR         2181     A     
 PAR      **        A=FUN - PROCESS CLOSING OF EXTERNAL FUNCTION LIST.                     PAR         2182     A     
 PAR      *         (SCR+2) = ROUTINE TAG AS SET WHEN FUNCTION ENCOUNTERED.                PAR         2183     A     
 PAR                                                                                       PAR         2184     A     
 PAR                                                                                       PAR         2185     A     
 PAR       A=FUN    SA4    SCR+2       RELOAD A=ARMIS, EXTERNAL TAG                        PAR         2186     A     
 PAR                RJ     VEL         VALIDATE ARGUMENT LIST                              PAR         2187     A     
 PAR                RJ     FAL         FLUSH ARGUMENT LOAD TURPLES                         PAR         2188     A     
 PAR                MX0    -L.MODE                                                         PAR         2189     A     
 PAR                SA4    SCR+2       RELOAD EXTERNAL TAG                                 PAR         2190     A     
 PAR                SA2    TS.SYM                                                          PAR         2191     A     
 PAR                AX4    P.2TAG                                                          PAR         2192     A     
 PAR                SB2    X4-C.SYM    ORDINAL INTO TS.SYM                                 PAR         2193     A     
 PAR                SA2    X2+B2       TAG FROM SYMBOL TABLE                               PAR         2194     A     
 PAR                SA3    CALLOP                                                          PAR         2195     A     
 PAR                BX7    -X0*X2      RESULTANT MODE                                      PAR         2196     A     
 PAR                BX6    X3                                                              PAR         2197     A     
 PAR                BX4    0           DUMMY OR.1OP FOR ARGUMENT TURPLE                    PAR         2198     A     
 PAR                SA6    SOPR                                                            PAR         2199     A     
 PAR                SA7    SMOD                                                            PAR         2200     A     
 PAR                RJ     ESC         EXPAND POSSIBLE SHORT CONSTANT                      PAR         2201     A     
 PAR                RJ     SDB         SET DEFINED BIT IF VARIABLE                         PAR         2202     A     
 PAR                RJ     ADT         ADD TURPLE FOR LAST ARGUMENT                        PAR         2203     A     
 PAR                SA1    SCR+2                                                           PAR         2204     A     
 PAR                RJ     CT2         CONVERT TAG TO PASS *2* FORM                        PAR         2205     A     
 PAR                LX4    X6                                                              PAR         2206     A     
 PAR                SA3    EXTFUN                                                          PAR         2207     A     
 PAR                SA2    TT=PAR                                                          PAR         2208     A     
 PAR                LX7    X2                                                              PAR         2209     A     
 PAR                SA5    =XTRLINE    TRACEBACK LINE NO.                                  PAR         2210          I
          -FCC0744
 PAR                =X5    0           OPERAND TWO = 0                                     FCC0744       10     A     
 PAR                =B6    B6+1        DUMMY                                               PAR         2211     A     
 PAR                SA7    CURST       RESET RELATIVE SQUEEZE START                        PAR         2212     A     
 PAR                EQ     POP.ST1     CONTINUE                                            PAR         2213     A     
 PAR       SDB      SPACE  4,8                                                             PAR         2214     A     
 PAR      **        SDB -  SET DEFINED BIT                                                 PAR         2215     A     
 PAR      *                FOR VARIABLES IN CALL AND EXTERNAL FUNCTION ARGUMENT            PAR         2216     A     
 PAR      *                LISTS.                                                          PAR         2217     A     
 PAR      *                                                                                PAR         2218     A     
 PAR      *         ENTRY  (X5) = PARSE FILE OPERATOR                                      PAR         2219          I
          -FEAT126C 
 PAR      *         ENTRY  (X5) = PARSE FILE OPERAND                                       FEAT126C     153     A     
 PAR      *                                                                                PAR         2220     A     
 PAR      *         EXIT   SYMBOL TABLE ENTRY UPDATED IF VARIABLE                          PAR         2221     A     
 PAR      *                                                                                PAR         2222     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1272    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         USES   A1 X0,X1 B3                                                     PAR         2223     A     
 PAR                                                                                       PAR         2224     A     
 PAR                                                                                       PAR         2225     A     
 PAR       SDB      SUBR   0                                                               PAR         2226     A     
 PAR                BX0    X5                                                              PAR         2227     A     
 PAR                IFBIT  X0,INTR,SDBX     IF INTERMEDIATE                                PAR         2228     A     
 PAR                LX1    X5                                                              PAR         2229     A     
 PAR                MX0    L.TGB                                                           PAR         2230     A     
 PAR                BX0    X0*X1                                                           PAR         2231     A     
 PAR                AX0    P.TAG                                                           PAR         2232     A     
 PAR                SX0    X0-C.VAR                                                        PAR         2233     A     
 PAR                NZ    X0,SDBX      IF NOT SYMBOL TABLE ENTRY                           PAR         2234          I
          -FEAT126C 
 PAR                NZ     X0,SDBX     IF NOT SYMBOL TABLE ENTRY                           FEAT126C     154     A     
 PAR                AX1    P.TAG                                                           PAR         2235     A     
 PAR                SB3    X1-C.VAR    SYMBOL TABLE ORDINAL                                PAR         2236     A     
 PAR                SA1    TS.SYM                                                          PAR         2237     A     
 PAR                SA1    B3+X1                                                           PAR         2238     A     
 PAR                LX0    X1                                                              PAR         2239     A     
 PAR                IFBIT  X0,-VAR,SDBX     IF NOT VARIABLE                                PAR         2240     A     
 PAR                SX0    M.DEF                                                           PAR         2241     A     
 PAR                BX6    X0+X1       SET DEFINED BIT ON                                  PAR         2242     A     
 PAR                SA6    A1                                                              PAR         2243     A     
 PAR                EQ     SDBX        EXIT..                                              PAR         2244     A     
 PAR       A=LP     SPACE  4,8                                                             PAR         2245          I
          -FCC0787
 PAR      **        A=LP - FOUND CLOSING PAREN FOR UNQUALIFIED PAREN STACK ENTRY           PAR         2246          I
          -FCC0787
 PAR      *                CHECK IF CURRENT OPERANDS FORM A LEGAL COMPLEX CONSTANT         PAR         2247          I
          -FCC0787
 PAR      *                IF NOT - OUTPUT ILLEGAL CONSTRUCT OF COMPLEX CONSTANT           PAR         2248          I
          -FCC0787
 PAR      *                (NOTE - TS ALLOWS A PROGRAMMER TO DEFINE A COMPLEX              PAR         2249          I
          -FCC0787
 PAR      *                        CONSTANT WHERE THE CONSTANTS CAN BE ANY MODE            PAR         2250          I
          -FCC0787
 PAR      *                        OTHER THAN LOGICAL.)                                    PAR         2251          I
          -FCC0787
 PAR      *                                                                                PAR         2252          I
          -FCC0787
 PAR      *         ENTRY  (X4) = 1ST PART OF COMPLEX CONSTANT                             PAR         2253          I
          -FCC0787
 PAR      *                (X5) = 1ND PART OF COMPLEX CONSTANT                             PAR         2254          I
          -FCC0787
 PAR      *                (SCR+1)= ARGCOMA FOR PAREN BEING CLOSED.                        PAR         2255          I
          -FCC0787
 PAR                                                                                       PAR         2256          I
          -FCC0787
 PAR                                                                                       PAR         2257          I
          -FCC0787
 PAR       A=LP     BX1    X4                                                              PAR         2258          I
          -FCC0787
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1273    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                RJ     LCT         GET BINARY                                          PAR         2259          I
          -FCC0787
 PAR                BX1    X4                                                              PAR         2260          I
          -FCC0787
 PAR                RJ     CCC         CHECK FOR COMPLEX CONSTANT                          PAR         2261          I
          -FCC0787
 PAR                LX4    X6                                                              PAR         2262          I
          -FCC0787
 PAR                BX1    X5                                                              PAR         2263          I
          -FCC0787
 PAR                RJ     LCT         GET BINARY                                          PAR         2264          I
          -FCC0787
 PAR                NZ     B2,A=LP15   IF 2ND OPERAND CONSTANT - COMPLEX DEFINED           PAR         2265          I
          -FCC0787
 PAR                FATAL  E.DC10                                                          PAR         2266          I
          -FCC0787
 PAR                BX6    0           LOWER PART ZERO                                     PAR         2267          I
          -FCC0787
 PAR                EQ     A=LP20      CONTINUE                                            PAR         2268          I
          -FCC0787
 PAR                                                                                       PAR         2269          I
          -FCC0787
 PAR       A=LP15   BX1    X5                                                              PAR         2270          I
          -FCC0787
 PAR                RJ     CCC         CHECK FOR LEGAL COMPLEX PART                        PAR         2271          I
          -FCC0787
 PAR                LX7    X4                                                              PAR         2272          I
          -FCC0787
 PAR       A=LP20   SA7    SCR         1ST WORD OF CONSTANT                                PAR         2273          I
          -FCC0787
 PAR                =X7    M.CPLX                                                          PAR         2274          I
          -FCC0787
 PAR                =A6    A7+1        2ND WORD                                            PAR         2275          I
          -FCC0787
 PAR                =A7    A6+1        MODE                                                PAR         2276          I
          -FCC0787
 PAR                SB2    SCR         FWA                                                 PAR         2277          I
          -FCC0787
 PAR                SA1    TS.CON                                                          PAR         2278          I
          -FCC0787
 PAR                SB3    B2+2        LWA+1                                               PAR         2279          I
          -FCC0787
 PAR                RJ     NCM         SCAN/ENTER INTO CONSTANT TABLE.                     PAR         2280          I
          -FCC0787
 PAR                SA3    SCR+2       MODE                                                PAR         2281          I
          -FCC0787
 PAR                SX6    B7+C.CON    FORM TAG                                            PAR         2282          I
          -FCC0787
 PAR                LX6    P.TAG                                                           PAR         2283          I
          -FCC0787
 PAR                BX6    X6+X3       ADD IN MODE BITS.                                   PAR         2284          I
          -FCC0787
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1274    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =A6    B6-2                                                            PAR         2285          I
          -FCC0787
 PAR                =B6    B6-1                                                            PAR         2286          I
          -FCC0787
 PAR                EQ     PAR.NX      CONTINUE                                            PAR         2287          I
          -FCC0787
 PAR                                                                                       PAR         2288          I
          -FEAT126C 
 PAR       POPXX    DATA   0                                                               PAR         2289          I
          -FEAT126C 
 PAR       A=IF     SPACE  4,8                                                             PAR         2290     A     
 PAR      **        A=IF - PROCESS TERMINAL PARENTHESIS OF *IF* EXPRESSION.                PAR         2291     A     
 PAR      *         SET CELLS                                                              PAR         2292     A     
 PAR      *                IFRESULT = TEST OPERAND FOR JUMPS                               PAR         2293     A     
 PAR      *                IFMOD    = RESULTANT MODE OF IF EXPRESSION.                     PAR         2294     A     
 PAR      *         EXIT TO PAR.EOS                                                        PAR         2295     A     
 PAR                                                                                       PAR         2296     A     
 PAR                                                                                       PAR         2297     A     
 PAR       A=IF     SA1    B6-1              TOP OF OPERAND STACK                          PAR         2298     A     
 PAR                MX0    -L.MODE                                                         PAR         2299     A     
 PAR                LX7    X1                                                              PAR         2300     A     
 PAR                BX6    -X0*X1                                                          PAR         2301     A     
 PAR                SA7    IFRESLT                                                         PAR         2302     A     
 PAR                SA6    IFMOD                                                           PAR         2303     A     
 PAR                EQ     PAREXIT     FOUND TERMINAL *)* OF IF (EXP) - EXIT..             PAR         2304     A     
 PAR       A=LIST   SPACE  4,8                                                             PAR         2305     A     
 PAR      **        A=LIST - PROCESS CLOSING OF AN I/O LIST.                               PAR         2306     A     
 PAR                                                                                       PAR         2307     A     
 PAR                                                                                       PAR         2308     A     
 PAR       A=LIST   EQ     POPX        EXIT..                                              PAR         2309     A     
 PAR       A=DO     SPACE  4,8                                                             PAR         2310     A     
 PAR      **        A=DO - PROCESS CLOSING OF *DO*                                         PAR         2311     A     
 PAR                                                                                       PAR         2312     A     
 PAR                                                                                       PAR         2313     A     
 PAR       A=DO     EQ     PAREXIT     EXIT PARSER                                         PAR         2314          I
          -FCC2184
 PAR       A=DO     BSS    0                                                               FCC2184        4     A     
 PAR                SB2    B2-2                                                            FCC2184        5     A     
 PAR                PL     B2,PAREXIT  IF SUFFICIENT DO INDEX PARAMETERS                   FCC2184        6     A     
 PAR                FATAL  E.DO        ILLEGAL DO FORMAT                                   FCC2184        7     A     
 PAR                EQ     PAREXIT                                                         FCC2184        8     A     
 PAR       POP.EXP  EJECT                                                                  PAR         2315     A     
 PAR      **        POP.EXP -  PROCESS ** TURPLE FOR REDUCTION AND TYPE                    PAR         2316     A     
 PAR      *                                                                                PAR         2317     A     
 PAR      *         POP.EXP EVALUATES CURRENT EXPONENTIAL BEING POPPED FOR                 PAR         2318     A     
 PAR      *         SIMPLE COMPILE TIME REDUCTION, TRANSFORMATIONS ON OPERATOR AND         PAR         2319     A     
 PAR      *         CONVERSION NECESSARY TO PROCESS BOTH EXTERNAL AND INTERNAL             PAR         2320     A     
 PAR      *         PROCESSING.                                                            PAR         2321     A     
 PAR      *                                                                                PAR         2322     A     
 PAR      *         TRANSFORMATIONS POSSIBLE.                                              PAR         2323     A     
 PAR      *                                                                                PAR         2324     A     
 PAR      *         1.  INTEGER TO REAL(CONSTANT)                                          PAR         2325     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1275    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *             IF POWER HAS AN INTEGRAL VALUE, CHANGE FORM TO                     PAR         2326     A     
 PAR      *             FLOAT(INTEGER) TO IFIX(REAL)                                       PAR         2327     A     
 PAR      *                                                                                PAR         2328     A     
 PAR      *         2.  INTEGER TO INTEGER(CONSTANT)                                       PAR         2329     A     
 PAR      *             IF CONSTANT IS .LE. EXP.IL, PROCESS USING DEFINED MACROS           PAR         2330     A     
 PAR      *             INLINE.                                                            PAR         2331     A     
 PAR      *                                                                                PAR         2332     A     
 PAR      *         3.  REAL TO INTEGER(CONSTANT)                                          PAR         2333     A     
 PAR      *             IF CONSTANT IS .LE. EXP.IL, PROCESS USING DEFINED MACROS           PAR         2334     A     
 PAR      *             INLINE.                                                            PAR         2335     A     
 PAR      *                                                                                PAR         2336     A     
 PAR      *                                                                                PAR         2337     A     
 PAR      *         ENTRY  (X3) = OPERATOR = **                                            PAR         2338     A     
 PAR      *                (X4) = 1ST OPERAND                                              PAR         2339     A     
 PAR      *                (X5) = 2ND OPERAND                                              PAR         2340     A     
 PAR                                                                                       PAR         2341     A     
 PAR       EXP.IL   EQU    11B         UPPER LIMIT FOR COMPUTING IN-LINE (**)              PAR         2342          I
          -FCC0878
 PAR       EXP.IL   EQU    11          UPPER LIMIT (+1) FOR COMPUTING IN-LINE (**)         FCC0878        6     A     
 PAR                                                                                       PAR         2343     A     
 PAR                                                                                       PAR         2344     A     
 PAR       POP.EXP  BX0    X4                                                              PAR         2345     A     
 PAR                SA2    TT=PAR            CURRENT START OF ** OPERATION                 PAR         2346     A     
 PAR                IFBIT  X0,-INTR,POP.EX10 IF NOT INTERMEDIATE                           PAR         2347     A     
 PAR                                                                                       PAR         2348     A     
 PAR      **        SCAN BACKWARDS TO FIND START OF LEFT MEMBER FOR ** OPERATOR            PAR         2349     A     
 PAR                                                                                       PAR         2350     A     
 PAR                BX2    X4                                                              PAR         2351     A     
 PAR                SB7    P.JPAD                                                          PAR         2352     A     
 PAR                SA1    TT.PAR                                                          PAR         2353     A     
 PAR                AX2    P.JPAD                                                          PAR         2354     A     
 PAR                =B2    X1+1                                                            PAR         2355     A     
 PAR       POP.EX2  SA3    X2+B2                                                           PAR         2356     A     
 PAR                BX0    X3                                                              PAR         2357     A     
 PAR                =A1    A3+1                                                            PAR         2358     A     
 PAR                IFBIT  X3,INTR,POP.EX4   IF INTERMEDIATE CONTINUE                      PAR         2359     A     
 PAR                BX0    X1                                                              PAR         2360     A     
 PAR                IFBIT  X1,-INTR,POP.EX10 IF NOT INTERMEDIATE - START FOUND             PAR         2361     A     
 PAR       POP.EX4  AX2    B7,X0                                                           PAR         2362     A     
 PAR                EQ     POP.EX2           CONTINUE SCAN                                 PAR         2363     A     
 PAR                                                                                       PAR         2364     A     
 PAR      **        (X2) = START OF LEFT MEMBER RELATIVE TO PARSED FILE.                   PAR         2365          I
          -FCC1638X 
 PAR                                                                                       PAR         2366          I
          -FCC1638X 
 PAR       POP.EX10 BX6    X2                                                              PAR         2367          I
          -FCC1638X 
 PAR       POP.EX10 MX0    -L.MODE                                                         FCC1638X      10     A     
 PAR                BX1    -X0*X4                                                          FCC1638X      11     A     
 PAR                SA1    X1+MODTBL   RELATIVE TO BASE                                    FCC1638X      12     A     
 PAR                BX6    -X0*X5                                                          FCC1638X      13     A     
 PAR                SB7    X6+6                                                            FCC1638X      14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1276    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                LX1    B7,X1       SHIFT RELATIVE TO POWER                             FCC1638X      15     A     
 PAR                PL     X1,POP.EX12 IF NO ANSI ERROR                                    FCC1638X      16     A     
 PAR                SX1    3R **                                                           FCC1638X      17     A     
 PAR                LX1    7*CHAR                                                          FCC1638X      18     A     
 PAR                MX0    3*CHAR                                                          FCC1638X      19     A     
 PAR                BX6    X0*X1                                                           FCC1638X      20     A     
 PAR                SA6    FILL.                                                           FCC1638X      21     A     
 PAR                ANSI   E.ANS3      THE TYPE COMBINATIONS ARE NON-ANSI                  FCC1638X      22     A     
 PAR       POP.EX12 BX6    X2          (X2) = START OF LEFT MEMBER RELATIVE TO             FCC1638X      23     A     
 PAR      *                            PARSED FILE.                                        FCC1638X      24     A     
 PAR                BX1    X4          POWER (RIGHT MEMBER)                                PAR         2368     A     
 PAR                SA6    SCR         SAVE LEFT MEMBER ADDRESS                            PAR         2369     A     
 PAR                                                                                       PAR         2370     A     
 PAR      **        SET-UP CHECK CELLS FOR DETERMINING IF TERM CAN BE EITHER               PAR         2371     A     
 PAR      *         REDUCED AT COMPILE TIME OR USE ONE OF THE TRANSFRMATIONS.              PAR         2372          I
          -FEAT126C 
 PAR      *         REDUCED AT COMPILE TIME OR USE ONE OF THE TRANSFORMATIONS.             FEAT126C     155     A     
 PAR                                                                                       PAR         2373     A     
 PAR                RJ     LCT         CHECK IF BASE IS CONSTANT                           PAR         2374     A     
 PAR                BX1    X5                                                              PAR         2375     A     
 PAR                SA6    TER1        SAVE BASE                                           PAR         2376     A     
 PAR                RJ     LCT         CHECK IF POWER IS CONSTANT                          PAR         2377     A     
 PAR                                                                                       PAR         2378     A     
 PAR      *         FORM JUMP ADDRESS                                                      PAR         2379     A     
 PAR                                                                                       PAR         2380     A     
 PAR                MX0    -L.MODE                                                         PAR         2381     A     
 PAR                SA6    TER2        SAVE POWER                                          PAR         2382     A     
 PAR                BX2    -X0*X4      MODE OF BASE                                        PAR         2383     A     
 PAR                =X7    B2          SAVE POWER FLAG, CONSTANT/NOT CONSTANT              PAR         2384     A     
 PAR                BX3    -X0*X5      MODE OF POWER (-LONG BITS)                          PAR         2385     A     
 PAR                SA1    X2+EXP.TBL                                                      PAR         2386     A     
 PAR                SB7    X3          SAVE POWER MODE                                     PAR         2387     A     
 PAR                LX3    3           POWER * 8                                           PAR         2388     A     
 PAR                SB2    X3          SHIFT COUNT                                         PAR         2389     A     
 PAR                MX0    -8                                                              PAR         2390     A     
 PAR                AX1    B2,X1                                                           PAR         2391     A     
 PAR                BX0    -X0*X1                                                          PAR         2392     A     
 PAR                SB2    X0          JUMP ADDRESS                                        PAR         2393     A     
 PAR                LX0    59-7                                                            PAR         2394     A     
 PAR                PL     X0,POP.EX20 IF POSSIBLE TO REDUCE (**)                          PAR         2395     A     
 PAR                                                                                       PAR         2396     A     
 PAR      **        HERE IF TERM MUST BE PROCESSED EXTERNALLY                              PAR         2397     A     
 PAR                                                                                       PAR         2398     A     
 PAR                SB3    B2+EXP.EXT-1S7                                                  PAR         2399     A     
 PAR                EQ     POP.EX60    TRANSLATE EXTERNAL                                  PAR         2400     A     
 PAR                                                                                       PAR         2401     A     
 PAR      **        HERE IF TERM CAN POSSIBLY BE REDUCED.                                  PAR         2402     A     
 PAR      *         (B2) = CHECK PROCESSOR ADDRESS.                                        PAR         2403     A     
 PAR      *         (B7) = MODE OF POWER.                                                  PAR         2404     A     
 PAR      *         (X2) = POWER,( BINARY )                                                PAR         2405     A     
 PAR      *         (X7) = 0, POWER NOT CONSTANT.                                          PAR         2406     A     
 PAR                                                                                       PAR         2407     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1277    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       POP.EX20 SA1    TER1        BASE                                                PAR         2408     A     
 PAR                SB3    B2-TO.II+EXP.BASE                                               PAR         2409     A     
 PAR                BX2    X6          POWER                                               PAR         2410     A     
 PAR                MI     B3,POP.EX30 IF UNDEFINED OPERATION                              PAR         2411     A     
 PAR                ZR     X7,POP.EX27 IF POWER NOT CONSTANT                               PAR         2412     A     
 PAR                                                                                       PAR         2413     A     
 PAR      **        CHECK IF POWER IS *0* OR *1*                                           PAR         2414     A     
 PAR                                                                                       PAR         2415     A     
 PAR                NZ     X2,POP.EX25 IF POWER NOT *0*                                    PAR         2416     A     
 PAR                SX0    B7                                                              PAR         2417     A     
 PAR                =X1    M.SHORT                                                         PAR         2418     A     
 PAR                SB7    B7-M.REAL                                                       PAR         2419     A     
 PAR                =X2    1.0/1S42                                                        PAR         2420     A     
 PAR                IX6    X1+X0                                                           PAR         2421     A     
 PAR                ZR     B7,POP.EX22 IF BASE = REAL                                      PAR         2422     A     
 PAR                =X2    1                                                               PAR         2423     A     
 PAR       POP.EX22 LX2    P.SHC                                                           PAR         2424     A     
 PAR                BX7    X2+X6                                                           PAR         2425     A     
 PAR                =A7    B6-2                                                            PAR         2426     A     
 PAR                =B6    B6-1                                                            PAR         2427     A     
 PAR                EQ     POPX        EXIT.. (REDUCTION TO SIMPLE CONSTANT)               PAR         2428     A     
 PAR                                                                                       PAR         2429     A     
 PAR      **        CHECK IF POWER IS *1*, IF SO, REMOVE CONSTANT *1* FROM ESTACK          PAR         2430     A     
 PAR      *         AND EXIT, POPPING NOTHING.                                             PAR         2431     A     
 PAR                                                                                       PAR         2432     A     
 PAR       POP.EX25 SX0    X2-1                                                            PAR         2433     A     
 PAR                NZ     X0,POP.EX27 IF POWER NOT *1*                                    PAR         2434     A     
 PAR                =B6    B6-1                                                            PAR         2435     A     
 PAR                LX6    X4                                                              FCC0878        7     A     
 PAR                =A6    B6-1        RESTORE BASE (IN CASE CHANGED)                      FCC0878        8     A     
 PAR                EQ     POPX        EXIT.. (REDUCTION TO LOAD OF BASE)                  PAR         2436     A     
 PAR                                                                                       PAR         2437     A     
 PAR      **        CHECK IF COMBINATION CAN BE FORMED IN-LINE OR CAN BE                   PAR         2438     A     
 PAR      *         REDUCED TO A SIMPLE TERM.                                              PAR         2439     A     
 PAR                                                                                       PAR         2440     A     
 PAR       POP.EX27 IX0    X1+X2                                                           PAR         2441     A     
 PAR                ZR     X0,POP.EX50 IF NO CONSTANTS                                     PAR         2442     A     
 PAR                BX3    X1          BASE                                                PAR         2443     A     
 PAR                ZR     X2,POP.EX50 IF POWER NOT CONSTANT                               PAR         2444     A     
 PAR                BX6    0                                                               PAR         2445     A     
 PAR       POP.EX30 JP     B2+EXP.BASE                                                     PAR         2446     A     
 PAR                                                                                       PAR         2447     A     
 PAR                                                                                       PAR         2448     A     
 PAR      **        UNTRANSLATABLE EXPRESSION, ILLEGAL USE OF LOGICAL.                     PAR         2449     A     
 PAR                                                                                       PAR         2450     A     
 PAR       EXP.BASE BSS    0           BASE FOR DISCISION JUMP                             PAR         2451     A     
 PAR       TO.LL    BSS    0           LOGICAL TO LOGICAL                                  PAR         2452     A     
 PAR       TO.LI    BSS    0           LOGICAL TO INTEGER                                  PAR         2453     A     
 PAR       TO.LR    BSS    0           LOCICAL TO REAL                                     PAR         2454     A     
 PAR       TO.LD    BSS    0           LOGICAL TO DOUBLE                                   PAR         2455     A     
 PAR       TO.LC    BSS    0           LOGICAL TO COMPLEX                                  PAR         2456     A     
 PAR       TO.IL    BSS    0           INTEGER TO LOGICAL                                  PAR         2457     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1278    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       TO.RL    BSS    0           REAL    TO LOGICAL                                  PAR         2458     A     
 PAR       TO.DL    BSS    0           DOUBLE  TO LOGICAL                                  PAR         2459     A     
 PAR       TO.CL    BSS    0                                                               PAR         2460     A     
 PAR                FATAL  E.XP1       ERROR (**) NON-LOGICAL OPERATOR                     PAR         2461     A     
 PAR                =B6    B6-1                                                            PAR         2462     A     
 PAR                EQ     POPX        EXIT..                                              PAR         2463     A     
 PAR                                                                                       PAR         2464     A     
 PAR      **        UNTRANSLATABLE EXPRESSION, UNDEFINED USAGE OF COMPLEX.                 PAR         2465     A     
 PAR                                                                                       PAR         2466     A     
 PAR       TO.CR    BSS    0           COMPLEX TO REAL                                     PAR         2467     A     
 PAR       TO.CD    BSS    0           COMPLEX TO DOUBLE                                   PAR         2468     A     
 PAR       TO.CC    FATAL  E.XP2       ERROR - COMPLEX BASE ONLY TO INTEGER                PAR         2469     A     
 PAR                =B6    B6-1                                                            PAR         2470     A     
 PAR                EQ     POPX        EXIT..                                              PAR         2471     A     
 PAR                                                                                       PAR         2472     A     
 PAR      **        REDUCABLE FORMS                                                        PAR         2473     A     
 PAR      *         A.  INTEGER TO INTEGER.                                                PAR         2474     A     
 PAR                                                                                       PAR         2475     A     
 PAR                CON    S.ITOI                                                          PAR         2476     A     
 PAR       TO.II    PX1                                                                    PAR         2477     A     
 PAR                SB3    S.ITOI                                                          PAR         2478     A     
 PAR                NX1                REAL BASE                                           PAR         2479     A     
 PAR                =X7    M.INT       INDICATE INTEGER.                                   PAR         2480     A     
 PAR                BX3    X1                                                              PAR         2481     A     
 PAR                PL     X2,TO.RR5   IF POWER IS POSITIVE - CONTINUE                     PAR         2482     A     
 PAR                NOTE   E.XP4       INTEGER TO NEGATIVE CONSTANTS RESULTS = 0           PAR         2483     A     
 PAR                EQ     POP.EX60                                                        PAR         2484     A     
 PAR                                                                                       PAR         2485     A     
 PAR      **        B.  INTEGER TO REAL.                                                   PAR         2486     A     
 PAR                                                                                       PAR         2487     A     
 PAR                CON    S.ITOR                                                          PAR         2488     A     
 PAR       TO.IR    UX0,B2 X2                                                              PAR         2489     A     
 PAR                SB3    S.ITOR      EXTERNAL PROCESSOR                                  PAR         2490     A     
 PAR                LX0    B2,X0                                                           PAR         2491     A     
 PAR                BX3    X1                                                              PAR         2492     A     
 PAR                PX1    X0                                                              PAR         2493     A     
 PAR                NX1                                                                    PAR         2494     A     
 PAR                IX6    X1-X2       SAFETY                                              PAR         2495     A     
 PAR                NZ     X6,POP.EX60 IF POWER NOT INTEGRAL VALUE                         PAR         2496     A     
 PAR                BX6    X0                                                              FCC0878        9     A     
 PAR                SA6    TO.IRA                                                          FCC0878       10     A     
 PAR                =X1    M.REAL                                                          FCC0878       11     A     
 PAR                =X2    M.INT                                                           FCC0878       12     A     
 PAR                =X6    2                                                               FCC0878       13     A     
 PAR                LX6    18                                                              FCC0878       14     A     
 PAR                BX6    X1+X6                                                           FCC0878       15     A     
 PAR                SA6    SMOD        SET SMOD FOR OMC                                    FCC0878       16     A     
 PAR                LX1    3           8*MODE = SHIFT COUNT                                FCC0878       17     A     
 PAR                SB2    X1                                                              FCC0878       18     A     
 PAR                SA1    X2+MODTBL   MODE CONVERSION TABLE ENTRY                         FCC0878       19     A     
 PAR                MX0    -8                                                              FCC0878       20     A     
 PAR                AX6    B2,X1                                                           FCC0878       21     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1279    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                BX6    -X0*X6      ONLY 8 BITS FOR EACH MODE                           FCC0878       22     A     
 PAR                =A6    A6-SMOD+SMOD1  SET SMOD1 FOR OMC                                FCC0878       23     A     
 PAR                RJ     OMC                                                             FCC0878       24     A     
 PAR                SA2    TO.IRA                                                          FCC0878       25     A     
 PAR                BX6    X2                                                              FCC0878       26     A     
 PAR                LX5    X3          SAVE (X3)                                           FCC0878       27     A     
 PAR                RJ     NCS                                                             FCC0878       28     A     
 PAR                BX3    X5          RESTORE (X3)                                        FCC0878       29     A     
 PAR                LX5    X6          RESET POWER OPERAND                                 FCC0878       30     A     
 PAR                SB3    S.RTOI                                                          FCC0878       31     A     
 PAR                PX1    X3                                                              PAR         2497     A     
 PAR                NX3    X1                                                              PAR         2498     A     
 PAR                =X7    M.REAL                                                          PAR         2499     A     
 PAR                BX2    X0                                                              PAR         2500          I
          -FCC0878
 PAR                SA2    TO.IRA                                                          FCC0878       32     A     
 PAR                BX1    X3          BASE TO REAL                                        PAR         2501     A     
 PAR                EQ     TO.RR5                                                          PAR         2502     A     
 PAR                                                                                       PAR         2503     A     
 PAR       TO.IRA   BSS    1           SAVE INTEGER VALUE OF POWER                         FCC0878       33     A     
 PAR                                                                                       PAR         2504     A     
 PAR      **        C.  REAL TO INTEGER.                                                   PAR         2505     A     
 PAR                                                                                       PAR         2506     A     
 PAR                CON    S.RTOI                                                          PAR         2507     A     
 PAR       TO.RI    =X7    M.REAL                                                          PAR         2508     A     
 PAR                SB3    S.RTOI                                                          PAR         2509     A     
 PAR                EQ     TO.RR5                                                          PAR         2510     A     
 PAR                                                                                       PAR         2511     A     
 PAR      **        D.  REAL TO REAL                                                       PAR         2512     A     
 PAR                                                                                       PAR         2513     A     
 PAR                CON    S.RTOR                                                          PAR         2514     A     
 PAR       TO.RR    =X7    M.REAL                                                          PAR         2515     A     
 PAR                UX0,B7 X2                                                              PAR         2516     A     
 PAR                BX6    X2                                                              PAR         2517     A     
 PAR                SB3    S.RTOR                                                          PAR         2518     A     
 PAR                LX2    B7,X0                                                           PAR         2519     A     
 PAR                BX3    X1                                                              PAR         2520     A     
 PAR                PX0    X2                                                              PAR         2521     A     
 PAR                NX0    X0                                                              PAR         2522     A     
 PAR                IX0    X6-X0       SAFETY                                              PAR         2523     A     
 PAR                NZ     X0,POP.EX60 IF POWER IS NOT INTEGRAL VALUE                      PAR         2524     A     
 PAR                SB7    X2-EXP.IL                                                       PAR         2525     A     
 PAR                MI     B7,TO.RR5   IF CAN BE PROCESSED IN-LINE                         PAR         2526     A     
 PAR                SB3    S.RTOI                                                          PAR         2527     A     
 PAR                BX6    X2                                                              PAR         2528     A     
 PAR                =X7    M.INT                                                           PAR         2529     A     
 PAR                RJ     NCS         ENTER NEW CONSTANT                                  PAR         2530     A     
 PAR                BX5    X6                                                              PAR         2531     A     
 PAR                EQ     POP.EX60                                                        PAR         2532     A     
 PAR                                                                                       PAR         2533     A     
 PAR      **        EVALUATE EXPRESSION AT COMPILE TIME.                                   PAR         2534     A     
 PAR      *         (X1) = (X3) = BASE IN FLOATING POINT BINARY                            PAR         2535     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1280    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         (X2) = POWER IN INTEGER                                                PAR         2536     A     
 PAR      *         (B3) = EXTERNAL PROCESSOR ADDRESS                                      PAR         2537     A     
 PAR      *         (X7) = RESULTANT MODE.                                                 PAR         2538     A     
 PAR                                                                                       PAR         2539     A     
 PAR       TO.RR5   SB2    X2          POWER                                               PAR         2540     A     
 PAR                SB7    X2-EXP.IL                                                       PAR         2541          I
          -FCC1801X 
 PAR                PL     B7,POP.EX60 IF .GT. LIMIT TO PROCESS IN-LINE                    PAR         2542          I
          -FCC1801X 
 PAR                SX0    EXP.IL                                                          FCC1801X       5     A     
 PAR                IX0    X2-X0                                                           FCC1801X       6     A     
 PAR                PL     X0,POP.EX60  IF .GT. LIMIT TO PROCESS IN-LINE                   FCC1801X       7     A     
 PAR                MI     X2,POP.EX60 IF POWER IS NEG., CANT BE REDUCED.                  PAR         2543     A     
 PAR                NZ     X1,TO.RED   IF BASE CONSTANT-COMPILE TIME REDUCE                PAR         2544     A     
 PAR                EQ1    B2,POP.EX25 IF POWER = 1                                        PAR         2545     A     
 PAR                                                                                       PAR         2546     A     
 PAR      **        SET UP IN-LINE MACRO FOR EVALUATING ** EXPRESSION.                     PAR         2547     A     
 PAR      *         MULTIPLIES USING MACROS -  R..P OR I..P                                PAR         2548     A     
 PAR      *         (B2) = POWER (INTEGER .GT. 1 .LT. 12)                                  PAR         2549     A     
 PAR      *         (X7) = RESULTANT MODE (CAN ONLY BE INTEGER OR REAL)                    PAR         2550     A     
 PAR                                                                                       PAR         2551     A     
 PAR                SX2    X7-M.INT    =0 IF INTEGER, =1 IF REAL                           PAR         2552     A     
 PAR                SA1    B2+EXP.INL-2                                                    PAR         2553     A     
 PAR                LX2    4           *16                                                 PAR         2554     A     
 PAR                MX0    -16                                                             PAR         2555     A     
 PAR                SB2    X2                                                              PAR         2556     A     
 PAR                AX2    B2,X1                                                           PAR         2557     A     
 PAR                BX1    -X0*X2      ADDRESS OF PROCESSING SKELETON.                     PAR         2558     A     
 PAR                SA2    IN.EXP                                                          PAR         2559     A     
 PAR                LX1    P.JPAD                                                          PAR         2560     A     
 PAR                IX6    X1+X2       SET OPERATOR WORD                                   PAR         2561     A     
 PAR                SA6    SOPR        RESET OPERATOR                                      PAR         2562     A     
 PAR                BX3    X6                                                              PAR         2563     A     
 PAR                EQ     POP.STD     CONTINUE                                            PAR         2564     A     
 PAR                                                                                       PAR         2565     A     
 PAR       EXP.INL  BSS    0                                                               PAR         2566     A     
 PAR                VFD    28/0,16/R..2,16/I..2                                            PAR         2567     A     
 PAR                VFD    28/0,16/R..3,16/I..3                                            PAR         2568     A     
 PAR                VFD    28/0,16/R..4,16/I..4                                            PAR         2569     A     
 PAR                VFD    28/0,16/R..5,16/I..5                                            PAR         2570     A     
 PAR                VFD    28/0,16/R..6,16/I..6                                            PAR         2571     A     
 PAR                VFD    28/0,16/R..7,16/I..7                                            PAR         2572     A     
 PAR                VFD    28/0,16/R..8,16/I..8                                            PAR         2573     A     
 PAR                VFD    28/0,16/R..9,16/I..9                                            PAR         2574     A     
 PAR                VFD    28/0,16/R..10,16/I..10                                          PAR         2575     A     
 PAR                VFD    28/0,16/R..11,16/I..11                                          PAR         2576          I
          -FCC0878
 PAR       TO.RED   SPACE  4,8                                                             PAR         2577     A     
 PAR      **        PERFORM EXPRESSION REDUCTION AT COMPILE TIME.                          PAR         2578     A     
 PAR      *         (B2) = POWER (INTEGER )                                                PAR         2579     A     
 PAR      *         (X1) = BASE  (REAL)                                                    PAR         2580     A     
 PAR      *         (X3) = (X1)                                                            PAR         2581     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1281    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         (X6) = 0     (SUMMATION REGISTER)                                      PAR         2582     A     
 PAR      *         (X7) = RESULTANT MODE                                                  PAR         2583     A     
 PAR                                                                                       PAR         2584     A     
 PAR       TO.RED   IX0    X1+X2                                                           PAR         2585     A     
 PAR                NZ     X0,TO.RED2  IF NOT 0 ** 0 CASE                                  PAR         2586     A     
 PAR                NOTE   E.XP3       0**0 IS INDEFINITE                                  PAR         2587     A     
 PAR       TO.RED2  EQ1    B2,TO.RED4  IF POWER IS 1                                       PAR         2588     A     
 PAR                GT     B2,B1,TO.RED3     IF POWER IS .GT. 1                            PAR         2589     A     
 PAR                =X0    1.0/1S42                                                        PAR         2590     A     
 PAR                LX0    42                                                              PAR         2591     A     
 PAR                NZ     B2,TO.RED2A       IF POWER IS NEGATIVE                          PAR         2592     A     
 PAR                BX1    X0          SET RESULT TO 1.0                                   PAR         2593     A     
 PAR                EQ     TO.RED4                                                         PAR         2594     A     
 PAR                                                                                       PAR         2595     A     
 PAR       TO.RED2A FX1    X0/X1       1/BASE                                              PAR         2596     A     
 PAR                BX3    X1                                                              PAR         2597     A     
 PAR                =B2    -B2         -(POWER)                                            PAR         2598     A     
 PAR       TO.RED3  OR     X1,POP.EX52 IF CONSTANT OUT OF RANGE                            PAR         2599     A     
 PAR                ID     X1,POP.EX52 IF CONSTANT INDEFINITE                              PAR         2600     A     
 PAR                FX1    X1*X3       NEW BASE = BASE * POWER                             PAR         2601     A     
 PAR                =B2    B2-1                                                            PAR         2602     A     
 PAR                NE1    B2,TO.RED3  IF NOT FINISHED                                     PAR         2603     A     
 PAR       TO.RED4  SB7    X7-M.INT                                                        PAR         2604     A     
 PAR                =B6    B6-1        UPDATE ESTACK                                       PAR         2605     A     
 PAR                BX6    X1          RESULTS                                             PAR         2606     A     
 PAR                NZ     B7,TO.RED5  IF NOT INTEGER                                      PAR         2607     A     
 PAR                UX0,B3 X1                                                              PAR         2608     A     
 PAR                LX6    B3,X0                                                           PAR         2609     A     
 PAR       TO.RED5  RJ     NCS         ENTER CONSTANT                                      PAR         2610     A     
 PAR                =A6    B6-1                                                            PAR         2611     A     
 PAR                EQ     POPX        EXIT..                                              PAR         2612     A     
 PAR                                                                                       PAR         2613     A     
 PAR      **        TERM NOT REDUCABLE, TRANSLATE EXTERNAL ROUTINE NAME, AND               PAR         2614     A     
 PAR      *         PROCESS LIKE FUNCTION CALL.                                            PAR         2615     A     
 PAR      *                                                                                PAR         2616     A     
 PAR      *         (B3) _ EXTERNAL ROUTINE TO CALL.                                       PAR         2617     A     
 PAR      *         (X4) = TAG FOR BASE                                                    PAR         2618     A     
 PAR      *         (X5) = TAG FOR POWER                                                   PAR         2619     A     
 PAR                                                                                       PAR         2620     A     
 PAR       POP.EX52 WARN   =XE.XP5                                                         PAR         2621     A     
 PAR                EQ     POP.EX60                                                        PAR         2622     A     
 PAR       POP.EX50 SA1    B2+EXP.BASE-1                                                   PAR         2623     A     
 PAR                SB3    X1          ADDRESS FOR EXTERNAL                                PAR         2624     A     
 PAR                                                                                       PAR         2625     A     
 PAR       POP.EX60 SX6    B4                                                              PAR         2626     A     
 PAR                SA6    SCR         SAVE *B4*                                           PAR         2627     A     
 PAR                MX2    L.FDPC                                                          PAR         2628     A     
 PAR                SA1    B3                                                              PAR         2629     A     
 PAR                MX0    -L.MODE                                                         PAR         2630     A     
 PAR                BX6    X2*X1       EXTERNAL SYMBOL ONLY                                PAR         2631     A     
 PAR                BX7    -X0*X1      RESULTANT MODE                                      PAR         2632     A     
 PAR                SA2    CO.TBK                                                          PAR         2633     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1282    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA7    SMOD                                                            PAR         2634     A     
 PAR                MX3    -L.FJPAD                                                        PAR         2635     A     
 PAR                =X0    1R$                                                             PAR         2636     A     
 PAR                AX1    P.FJPAD                                                         PAR         2637     A     
 PAR                MI     X2,POP.EX70 IF NOT IN CALL BY VALUE                             PAR         2638     A     
 PAR                =X0    1R.                                                             PAR         2639     A     
 PAR       POP.EX70 BX7    -X3*X1                                                          PAR         2640     A     
 PAR                SB2    X7          SHIFT COUNT FOR SUFFIX                              PAR         2641     A     
 PAR                LX3    B2,X0                                                           PAR         2642     A     
 PAR                =B4    A6+1                                                            PAR         2643     A     
 PAR                BX6    X6+X3       ADD IN SPECIAL CHARACTER                            PAR         2644     A     
 PAR                =A6    A6+1                                                            PAR         2645     A     
 PAR                TAGSEX B4          TAG IT                                              PAR         2646     A     
 PAR                LX1    X4                                                              PAR         2647     A     
 PAR                BX2    X5                                                              PAR         2648     A     
 PAR                AX1    P.LONG                                                          PAR         2649     A     
 PAR                =X0    1                                                               PAR         2650     A     
 PAR                AX2    P.LONG                                                          PAR         2651     A     
 PAR                BX1    X0*X1                                                           PAR         2652     A     
 PAR                MX7    -16                                                             PAR         2653     A     
 PAR                BX2    X0*X2                                                           PAR         2654     A     
 PAR                SA1    X1+EXP.ARG                                                      PAR         2655     A     
 PAR                LX2    4                                                               PAR         2656     A     
 PAR                SB7    X2                                                              PAR         2657     A     
 PAR                SA6    ROUTNAM                                                         PAR         2658     A     
 PAR                AX2    X1,B7                                                           PAR         2659     A     
 PAR                BX6    -X7*X2                                                          PAR         2660     A     
 PAR                SA1    SCR                                                             PAR         2661     A     
 PAR                LX6    P.JPAD                                                          PAR         2662     A     
 PAR                SA2    CO.TBK                                                          PAR         2663     A     
 PAR                SB4    X1                                                              PAR         2664     A     
 PAR                PL     X2,POP.EX80 IF CALL-BY-VALUE                                    PAR         2665     A     
 PAR                BX6    X5                                                              PAR         2666     A     
 PAR                SA6    SCR         SAVE SECOND ARGUMENT                                PAR         2667     A     
 PAR                BX5    X4          SET SECOND ARG. TO BASE                             PAR         2668     A     
 PAR                RJ     ESC         EXPAND SHORT CONSTANT (IF ANY)                      PAR         2669     A     
 PAR                SA3    CALLOP                                                          PAR         2670     A     
 PAR                =X4    0           DUMMY FIRST ARGUMENT                                PAR         2671     A     
 PAR                LX7    X3                                                              PAR         2672     A     
 PAR                SA7    SOPR                                                            PAR         2673     A     
 PAR                RJ     ADT         EMIT ARG. LOAD TURPLE FOR BASE                      PAR         2674     A     
 PAR                SA5    SCR         POWER                                               PAR         2675     A     
 PAR                RJ     ESC         EXPAND SHORT CONSTANT (IF ANY)                      PAR         2676     A     
 PAR                SA3    SOPR        RESET X3                                            PAR         2677     A     
 PAR                =X4    0           DUMMY FIRST ARG.                                    PAR         2678     A     
 PAR                =B6    B6+1        ADVANCE ESTACK POINTER (TWO TURPLES OUTPUT)         PAR         2679     A     
 PAR                RJ     ADT         EMIT ARG. LOAD TURPLE FOR POWER                     PAR         2680     A     
 PAR                EQ     POP.EX85                                                        PAR         2681     A     
 PAR                                                                                       PAR         2682     A     
 PAR       POP.EX80 SA3    REGARG2                                                         PAR         2683     A     
 PAR                BX3    X3+X6                                                           PAR         2684     A     
 PAR                LX7    X3                                                              PAR         2685     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1283    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA7    SOPR                                                            PAR         2686     A     
 PAR                RJ     ADT         EMIT ARGUMENT LOAD TURPLE                           PAR         2687     A     
 PAR       POP.EX85 SA2    CO.TBK                                                          PAR         2688     A     
 PAR                SA3    EXTFUN                                                          PAR         2689     A     
 PAR                MI     X2,POP.EX90 IF TRACEBACK ON                                     PAR         2690     A     
 PAR                SA3    BEFFUN                                                          PAR         2691     A     
 PAR       POP.EX90 SA2    TT=PAR                                                          PAR         2692     A     
 PAR                SA4    ROUTNAM                                                         PAR         2693     A     
 PAR                =X7    X2+L.TURP                                                       PAR         2694     A     
 PAR                SA7    CURST       RESET RELATIVE SQEEZE START                         PAR         2695     A     
 PAR                                                                                       PAR         2696     A     
 PAR      **        NEXT INSTRUCTION IS SETTING A DUMMY OPERAND THAT IS NEVER              PAR         2697     A     
 PAR      *         USED IN THE ACTUAL SKELETON EXPANSION BUT IS NECESSARY                 PAR         2698     A     
 PAR      *         TO STOP SQUEEZE FROM SQUEEZING OUT UNLIKE ** OPERATORS.                PAR         2699     A     
 PAR                                                                                       PAR         2700     A     
 PAR                SA5    =XTRLINE    TRACEBACK LINE NO.                                  PAR         2701          I
          -FCC0744
 PAR                =X5    0           OPERAND TWO = 0                                     FCC0744       11     A     
 PAR                SB6    B6+B1       ADVANCE ESTACK POINTER                              PAR         2702     A     
 PAR                EQ     POP.ST1     MODE ALREADY DEFINED - POP.ST1                      PAR         2703     A     
 PAR       EXPDIS   SPACE  4,8                                                             PAR         2704     A     
 PAR      **        EXPONENTIAL ROUTINES                                                   PAR         2705     A     
 PAR                                                                                       PAR         2706     A     
 PAR       EXPEX    MACRO  NAME,ARGTYP,FUNTYP,NANSI,ABNOR                                  PAR         2707          I
          -FCC0966
 PAR       A        SET    0                                                               PAR         2708          I
          -FCC0966
 PAR                IFC    EQ,*ABNOR*ABNORMAL*,1                                           PAR         2709          I
          -FCC0966
 PAR       A        SET    1                                                               PAR         2710          I
          -FCC0966
 PAR       B        SET    1                                                               PAR         2711          I
          -FCC0966
 PAR                IFC    EQ,*NANSI*NONANSI*,1                                            PAR         2712          I
          -FCC0966
 PAR       B        SET    0                                                               PAR         2713          I
          -FCC0966
 PAR       EXPEX    MACRO  NAME,ARGTYP,FUNTYP                                              FCC0966       13     A     
 PAR       Y        MICRO  1,, NAME                                                        PAR         2714     A     
 PAR       Z        MICCNT Y                                                               PAR         2715     A     
 PAR       C        SET    54-Z*CHAR                                                       PAR         2716     A     
 PAR       F.NAME   VFD    L.FDPC/0L_NAME,L.FABN/A,L.FBEF/0,L.FANSI/B,L.FJPAD/C,L.         PAR         2717          I
          -FCC0966
 PAR      ,FARGM/M.ARGTYP,L.FARGC/2,L.MODE/M.FUNTYP                                        PAR         2718          I
          -FCC0966
 PAR       F.NAME   VFD    L.FDPC/0L_NAME,1/0,L.FBEF/0,1/0,L.FJPAD/C,L.FARGM/M.ARG         FCC0966       14     A     
 PAR      ,TYP,L.FARGC/2,L.MODE/M.FUNTYP                                                   FCC0966       15     A     
 PAR       EXPEX    ENDM                                                                   PAR         2719     A     
 PAR                                                                                       PAR         2720     A     
 PAR                                                                                       PAR         2721     A     
 PAR       EXP.EXT  BSS    0           BASE CELL FOR EXPONTENTIAL ROUTINES                 PAR         2722     A     
 PAR       S.ITOI   EXPEX  ITOJ,INT,INT                                                    PAR         2723     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1284    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       S.ITOR   EXPEX  ITOX,INT,REAL                                                   PAR         2724     A     
 PAR       S.ITOD   EXPEX  ITOD,INT,DBL                                                    PAR         2725     A     
 PAR       S.ITOC   EXPEX  ITOZ,INT,CPLX                                                   PAR         2726     A     
 PAR       S.RTOI   EXPEX  XTOI,REAL,REAL                                                  PAR         2727     A     
 PAR       S.RTOR   EXPEX  XTOY,REAL,REAL                                                  PAR         2728     A     
 PAR       S.RTOD   EXPEX  XTOD,REAL,DBL                                                   PAR         2729     A     
 PAR       S.RTOC   EXPEX  XTOZ,REAL,CPLX                                                  PAR         2730     A     
 PAR       S.DTOI   EXPEX  DTOI,DBL,DBL                                                    PAR         2731     A     
 PAR       S.DTOR   EXPEX  DTOX,DBL,DBL                                                    PAR         2732     A     
 PAR       S.DTOD   EXPEX  DTOD,DBL,DBL                                                    PAR         2733     A     
 PAR       S.DTOC   EXPEX  DTOZ,DBL,CPLX                                                   PAR         2734     A     
 PAR       S.CTOI   EXPEX  ZTOI,CPLX,CPLX                                                  PAR         2735     A     
 PAR                                                                                       PAR         2736     A     
 PAR                POPMAC EXPEX                                                           PAR         2737     A     
 PAR       TSF      EJECT                                                                  PAR         2738     A     
 PAR      **        DESCISION TABLE FOR EXPONENTIALS.                                      PAR         2739     A     
 PAR                                                                                       PAR         2740     A     
 PAR                                                                                       PAR         2741     A     
 PAR                MACRO  DICIDE,DUM,MU,ML,MI,MR,MD,MC                                    PAR         2742     A     
 PAR       C        MICRO  1,,$12/0$                                                       PAR         2743     A     
 PAR      .1        ECHO   ,FORMS=(MC,MD,MR,MI,ML,MU)                                      PAR         2744     A     
 PAR       A        MICRO  2,2,/FORMS/                                                     PAR         2745     A     
 PAR       .2       IFC    EQ,/"A"/TO/                                                     PAR         2746     A     
 PAR       C        MICRO  1,,$"C",8/S.FORMS-EXP.EXT+1S7$                                  PAR         2747     A     
 PAR       .2       ELSE                                                                   PAR         2748     A     
 PAR       C        MICRO  1,,$"C",8/TO.FORMS-EXP.BASE$                                    PAR         2749     A     
 PAR       .2       ENDIF                                                                  PAR         2750     A     
 PAR      .1        ENDD                                                                   PAR         2751     A     
 PAR                VFD    "C"                                                             PAR         2752     A     
 PAR       DICIDE   ENDM                                                                   PAR         2753     A     
 PAR                                                                                       PAR         2754     A     
 PAR                                                                                       PAR         2755     A     
 PAR       EXP.TBL  BSS    0                                                               PAR         2756     A     
 PAR       M=UNIV   DICIDE II,IL,II,IR,ITOD,ITOC                                           PAR         2757     A     
 PAR       M=LOG    DICIDE LI,LL,LI,LR,LD,LC                                               PAR         2758     A     
 PAR       M=INT    DICIDE II,IL,II,IR,ITOD,ITOC                                           PAR         2759     A     
 PAR       M=REAL   DICIDE RI,RL,RI,RR,RTOD,RTOC                                           PAR         2760     A     
 PAR       M=DBL    DICIDE DTOI,DL,DTOI,DTOR,DTOD,DTOC                                     PAR         2761     A     
 PAR       M=CPLX   DICIDE CTOI,CL,CTOI,CR,CD,CC                                           PAR         2762     A     
 PAR                POPMAC DICIDE                                                          PAR         2763     A     
 PAR                                                                                       PAR         2764     A     
 PAR      **        TABLE FOR ARGUMENT LOAD SKELETONS.                                     PAR         2765     A     
 PAR       BEF.ARG  VFD    28/0,16/=XO=RAGD1,16/=XO=RAGS1                                  PAR         2766     A     
 PAR                                                                                       PAR         2767     A     
 PAR       EXP.ARG  BSS    0                                                               PAR         2768     A     
 PAR                VFD    28/0,16/O=RAGSD,16/O=RAGSS                                      PAR         2769     A     
 PAR                VFD    28/0,16/O=RAGDD,16/O=RAGDS                                      PAR         2770     A     
 PAR       POP.DIV  EJECT  4,8                                                             PAR         2771     A     
 PAR      **        POP.DIV - PROCESS DIVIDE POPPING DIVIDE.                               PAR         2772     A     
 PAR      *                                                                                PAR         2773     A     
 PAR      *         PURPOSE                                                                PAR         2774     A     
 PAR      *         TO CHANGE SEQUENCE - A  =  B / C / D / E / F                           PAR         2775     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1285    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                          TO  A  =  B /(C * D * E * F )                         PAR         2776     A     
 PAR      *                                                                                PAR         2777     A     
 PAR      *         GENERAL FLOW.                                                          PAR         2778     A     
 PAR      *                                                                                PAR         2779     A     
 PAR      *         1. IF DIVIDE BEING POPPED IS COMMUTATIVE - DIVIDE WAS                  PAR         2780     A     
 PAR      *            PREVIOUSLY CHANGE TO SPECIAL MULTIPLY.                              PAR         2781     A     
 PAR      *                A.  CHANGE DPC FOR OPERATOR TO MULTIPLY, THUS MAKING            PAR         2782     A     
 PAR      *                    DIVIDE LOOK LIKE A TRUE MULTIPLY.                           PAR         2783     A     
 PAR      *                B.  RESET POPPER TO SPECIAL DIVIDE                              PAR         2784     A     
 PAR      *                C.  RESET OPERATOR STACK FOR CURRENT DIVIDE TO (A)              PAR         2785     A     
 PAR      *                                                                                PAR         2786     A     
 PAR      *         2. IF DIVIDE BEING POPPED IS NOT COMMUTATIVE - DIVIDE IS 1ST           PAR         2787     A     
 PAR      *            IN SEQUENCE                                                         PAR         2788     A     
 PAR      *                A.  CHECK IF BOTH OPERANDS ARE INTEGER, IF SO LET               PAR         2789     A     
 PAR      *                    DIVIDE BE POPPED. IF NOT GO TO (B)                          PAR         2790     A     
 PAR      *                B.  IF BOTH OPERANDS ARE CONSTANTS LET DIVIDE BE                PAR         2791     A     
 PAR      *                    POPPED. IF NOT GO TO (C)                                    PAR         2792     A     
 PAR      *                C.  CHANGE POPPER TO SPECIAL DIVIDE.                            PAR         2793     A     
 PAR      *                D.  RESET *B5* INDICATING DIVIDE NOT POPPED.                    PAR         2794     A     
 PAR      *                E.  EXIT TO PAR.ADOP TO ADD SECOND DIVIDE AS SPECIAL            PAR         2795     A     
 PAR      *                    DIVIDE.                                                     PAR         2796     A     
 PAR      *                                                                                PAR         2797     A     
 PAR      *         3. IF DIVIDE NOT BEING POPPED BY DIVIDE                                PAR         2798     A     
 PAR      *                A.  CHECK IF DIVIDE BEING POPPED IS A SPECIAL DIVIDE            PAR         2799     A     
 PAR      *                    THAT HAS NOT BEEN COMFIRMED.                                PAR         2800     A     
 PAR      *                B.  IF (A) IS TRUE, CHANGE DIVIDE TO TRUE MULTIPLY              PAR         2801     A     
 PAR      *                    AND EXIT TO POP.STD, POPPING AS MULTIPLY.                   PAR         2802     A     
 PAR      *                C.  IF (A) IS FALSE, EXIT TO POP.STD TO POP DIVIDE.             PAR         2803     A     
 PAR                                                                                       PAR         2804     A     
 PAR                                                                                       PAR         2805     A     
 PAR       POP.DIV  SA1    POPDPC                                                          PAR         2806     A     
 PAR                IX0    X1-X3                                                           PAR         2807     A     
 PAR                BX2    X3                                                              PAR         2808     A     
 PAR                SB2    X0                                                              PAR         2809     A     
 PAR                NZ     B2,POP.DV10 IF NOT DIVIDE POPPING DIVIDE                        PAR         2810     A     
 PAR                IFBIT  X2,-COM,POP.DV5   IF NOT POPPING SPECIAL DIVIDE                 PAR         2811     A     
 PAR                SA1    SDIV                                                            PAR         2812     A     
 PAR                =X2    O.DIV-O.MULT                                                    PAR         2813     A     
 PAR                IX6    X3-X2                                                           PAR         2814     A     
 PAR                BX7    X1                                                              PAR         2815     A     
 PAR                SA6    SOPR        SET CONFIRMED MULTIPLY                              PAR         2816     A     
 PAR                BX3    X6                                                              PAR         2817     A     
 PAR                SA7    POPPER      CHANGE TO SPECIAL DIVIDE                            PAR         2818     A     
 PAR                =A6    B5+1        CHANGE IN STACK ALSO (INCASE MULT NO POP)           PAR         2819     A     
 PAR                EQ     POP.SDIV    HANDLE AS MULTIPLY                                  PAR         2820     A     
 PAR                                                                                       PAR         2821     A     
 PAR      **        HERE IF DIVIDE 1ST IN SEQUENCE                                         PAR         2822     A     
 PAR                                                                                       PAR         2823     A     
 PAR       POP.DV5  MX0    -L.MODE                                                         PAR         2824     A     
 PAR                BX1    -X0*X4                                                          PAR         2825     A     
 PAR                BX2    -X0*X5                                                          PAR         2826     A     
 PAR                LX1    L.MODE                                                          PAR         2827     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1286    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                IX0    X1+X2                                                           PAR         2828     A     
 PAR                SA2    SDIV        CHANGE TO SPECIAL DIVIDE                            PAR         2829     A     
 PAR                SB7    X0-M.INT-M.INT*1S"A"                                            PAR         2830     A     
 PAR                ZR     B7,POP.STD  IF INTEGER DIVIDE, POP AS DIVIDE                    PAR         2831     A     
 PAR                =B4    B4+1        NEXT                                                PAR         2832     A     
 PAR                =X1    O.DIV                                                           PAR         2833     A     
 PAR                =B5    B5+1        RE ACTIVATE 1ST DIVIDE                              PAR         2834     A     
 PAR                EQ     PAR.ADOP    IGNORE- SET INTO OPERATOR STACK                     PAR         2835     A     
 PAR                                                                                       PAR         2836     A     
 PAR       POP.DV10 IFBIT  X2,-COM,POP.STD   IF NOT POPPING SPECIAL DIVIDE                 PAR         2837     A     
 PAR                =X2    O.DIV-O.MULT                                                    PAR         2838     A     
 PAR                IX6    X3-X2                                                           PAR         2839     A     
 PAR                SA6    SOPR        SET CONFIRMED MULTIPLY                              PAR         2840     A     
 PAR                BX3    X6                                                              PAR         2841     A     
 PAR                EQ     POP.STD     POP AS TRUE MULTIPLY                                PAR         2842     A     
 PAR       POP.PL   SPACE  4,8                                                             PAR         2843     A     
 PAR      **        POP.PL - PLUS BEING POPPED.                                            PAR         2844     A     
 PAR      *                                                                                PAR         2845     A     
 PAR      *         PURPOSE                                                                PAR         2846     A     
 PAR      *         1.  TO CHANGE SEQUENCE   A = -B + C                                    PAR         2847     A     
 PAR      *                               TO A =  C - B                                    PAR         2848     A     
 PAR      *         2.  TO CHANGE SEQUENCE   A =  CONSTANT + VARIABLE                      PAR         2849     A     
 PAR      *                               TO A =  VARIABLE + CONSTANT                      PAR         2850     A     
 PAR                                                                                       PAR         2851     A     
 PAR                                                                                       PAR         2852     A     
 PAR       POP.PL   SA1    LASTOP                                                          PAR         2853     A     
 PAR                SB7    X1-O.UMIN                                                       PAR         2854     A     
 PAR                SA2    LASTAD                                                          PAR         2855     A     
 PAR                NZ     B7,POP.PL10 IF LAST OP NOT *UNARY-*                             PAR         2856     A     
 PAR                BX1    X5                                                              PAR         2857     A     
 PAR                RJ     COR         CHECK IF OPERAND IS INPUT TO OPERATOR               PAR         2858     A     
 PAR                NZ     X0,POP.PL10 IF *UNARY* NOT INPUT INTO *PLUS*                    PAR         2859     A     
 PAR                SA3    REVMIN                                                          PAR         2860     A     
 PAR                =A5    X1-OR.OPR+OR.2OP                                                PAR         2861     A     
 PAR                BX6    X3                                                              PAR         2862     A     
 PAR                SA7    A2          RESET LENGTH OF TT=PAR                              PAR         2863     A     
 PAR                SA6    SOPR                                                            PAR         2864     A     
 PAR                EQ     POP.STD                                                         PAR         2865     A     
 PAR                                                                                       PAR         2866     A     
 PAR      **        CHECK FOR COMMUTATIVE OPERATOR BEING POPPED BY SAME.                   PAR         2867     A     
 PAR      *         IF TRUE AND 1ST OPERAND IS A CONSTANT REVERSE ORDER AND DELAY          PAR         2868     A     
 PAR      *         PROCESSING.                                                            PAR         2869     A     
 PAR      *         (JOINED HERE BY MULTIPLY POP PROCESSOR)                                PAR         2870     A     
 PAR                                                                                       PAR         2871     A     
 PAR                                                                                       PAR         2872     A     
 PAR       POP.MUL  BSS    0                                                               PAR         2873     A     
 PAR       POP.PL10 SA1    POPDPC                                                          PAR         2874     A     
 PAR                IX0    X1-X3                                                           PAR         2875     A     
 PAR                SB2    X0                                                              PAR         2876     A     
 PAR                NZ     B2,POP.STD  IF NOT BEING POPPED BY LIKE OPERATOR                PAR         2877     A     
 PAR                SA1    SDIV                                                            FCCA533        7     A     
 PAR                MX2    -L.STPR                                                         FCCA533        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1287    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                BX1    X1-X3                                                           FCCA533        9     A     
 PAR                LX1    -P.STPR                                                         FCCA533       10     A     
 PAR                BX2    -X2*X1                                                          FCCA533       11     A     
 PAR                ZR     X2,POP.STD  IF * POPPING SPECIAL DIVIDE                         FCCA533       12     A     
 PAR                                                                                       PAR         2878     A     
 PAR      **        JOINED HERE IF POPPING A SPECIAL DIVIDE                                PAR         2879     A     
 PAR                                                                                       PAR         2880     A     
 PAR       POP.SDIV SA1    B6-2                                                            PAR         2881     A     
 PAR                =A2    B6-1                                                            PAR         2882     A     
 PAR                =X0    M.SHORT                                                         PAR         2883     A     
 PAR                LX6    X2                                                              PAR         2884     A     
 PAR                BX7    X1                                                              PAR         2885     A     
 PAR                                                                                       PAR         2886     A     
 PAR      **        CHECK IF OPERANDS ARE CONSTANTS                                        PAR         2887     A     
 PAR                                                                                       PAR         2888     A     
 PAR                BX3    X0*X1       BRING DOWN SHORT BIT                                PAR         2889     A     
 PAR                AX1    P.TGB                                                           PAR         2890     A     
 PAR                BX0    X3-X0       WIPE OUT SHORT                                      PAR         2891     A     
 PAR                SX3    X1-C.CON/1S13                                                   PAR         2892     A     
 PAR                =B2    1           INDICATE 1 CONSTANT                                 PAR         2893     A     
 PAR                BX1    X3*X0       SHORT OR CONSTANT                                   PAR         2894     A     
 PAR                =X0    M.SHORT                                                         PAR         2895     A     
 PAR                ZR     X1,POP.PL15 IF 1ST = CONSTANT                                   PAR         2896     A     
 PAR                BX3    X6                                                              PAR         2897     A     
 PAR                LX6    X7          ROTATE OPERANDS                                     PAR         2898     A     
 PAR                =B2    0           INDICATE NO CONSTANT SO FAR                         PAR         2899     A     
 PAR                BX7    X3                                                              PAR         2900     A     
 PAR                                                                                       PAR         2901     A     
 PAR       POP.PL15 BX3    X0*X2                                                           PAR         2902     A     
 PAR                AX2    P.TGB                                                           PAR         2903     A     
 PAR                BX1    X3-X0                                                           PAR         2904     A     
 PAR                SX0    X2-C.CON/1S13                                                   PAR         2905     A     
 PAR                =B2    B2+1                                                            PAR         2906     A     
 PAR                BX2    X1*X0                                                           PAR         2907     A     
 PAR                SA3    SOPR        RELOAD POPPED OPERATOR                              PAR         2908     A     
 PAR                ZR     X2,POP.PL20 IF 2ND = CONSTANT                                   PAR         2909     A     
 PAR                =B2    B2-1                                                            PAR         2910     A     
 PAR                                                                                       PAR         2911     A     
 PAR      **        (B2) = 0 = NO CONSTANTS                                                PAR         2912     A     
 PAR      *                1 = 1 OPERAND IS CONSTANT                                       PAR         2913     A     
 PAR      *                  > 1 BOTH ARE CONSTANT                                         PAR         2914     A     
 PAR                                                                                       PAR         2915     A     
 PAR       POP.PL20 NE1    B2,POP.STD  IF BOTH OR NONE ARE CONSTANTS                       PAR         2916     A     
 PAR                MX3    -L.MODE                                                         FCC1293        8     A     
 PAR                BX0    -X3*X4      MODE                                                FCC1293        9     A     
 PAR                BX3    -X3*X5      MODE                                                FCC1293       10     A     
 PAR                BX0    X0*X3       0 IF AT LEAST 1 UNIVERSAL                           FCC1293       11     A     
 PAR                =B2    X0                                                              FCC1293       12     A     
 PAR                SA3    SOPR        RELOAD POPPED OPERATOR                              FCC1293       13     A     
 PAR                EQ     B2,POP.STD  IF AT LEAST 1 UNIVERSAL OPERAND                     FCC1293       14     A     
 PAR                SA6    A1          REVERSE ORDER, MAKING CONSTANT SECOND               PAR         2917     A     
 PAR                SA7    A2                                                              PAR         2918     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1288    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =B5    B5+1        PUT OPERATOR BACK INTO TABLE                        PAR         2919     A     
 PAR                SA2    POPPER                                                          PAR         2920     A     
 PAR                =A1    A2-POPPER+POPDPC                                                PAR         2921     A     
 PAR                =B4    B4+1        NEXT                                                PAR         2922     A     
 PAR                EQ     PAR.ADOP    RESET OPERATOR STACK                                PAR         2923     A     
 PAR       POP.UM   SPACE  4,8                                                             PAR         2924     A     
 PAR      **        POP.UM - PROCESS UNARY MINUS BEING POPPED.                             PAR         2925     A     
 PAR      *                                                                                PAR         2926     A     
 PAR      *         PURPOSE.                                                               PAR         2927     A     
 PAR      *         1.  TO CHANGE SEQUENCE    A = - CONSTANT                               PAR         2928     A     
 PAR      *                            TO     A =   CONSTANT                               PAR         2929     A     
 PAR      *         2.  TO CHANGE SEQENCE     A = - ( - B )                                PAR         2930     A     
 PAR      *                            TO     A =       B                                  PAR         2931     A     
 PAR      *         3.  TO CHANGE SEQUENCE    A = - (B - C)                                PAR         2932     A     
 PAR      *                            TO     A =    C - B                                 PAR         2933     A     
 PAR      *                                                                                PAR         2934     A     
 PAR      *         ENTRY  (X5) = OPERAND                                                  PAR         2935     A     
 PAR                                                                                       PAR         2936     A     
 PAR                                                                                       PAR         2937     A     
 PAR       POP.UM   BX1    X5                                                              PAR         2938     A     
 PAR                RJ     LCT                                                             PAR         2939     A     
 PAR                ZR     B2,POP.UM10 IF OPERAND NOT CONSTANT                             PAR         2940     A     
 PAR                                                                                       PAR         2941     A     
 PAR      **        (X6) = 1ST CONSTANT IN BINARY                                          PAR         2942     A     
 PAR      *         (X7) = 2ND CONSTANT IN BINARY, (ONLY VALID IF LONG BIT SET.)           PAR         2943     A     
 PAR                                                                                       PAR         2944     A     
 PAR       POP.UM1  BX3    X5                                                              PAR         2945     A     
 PAR                IFBIT  X3,LONG,POP.UM5                                                 PAR         2946     A     
 PAR                SA2    TT.PAR                                                          PAR         2947     A     
 PAR                BX6    -X6                                                             PAR         2948     A     
 PAR                LX7    X0          MODE                                                PAR         2949     A     
 PAR                RJ     NCS         ENTER CONSTANT                                      PAR         2950     A     
 PAR                =A6    B6-1        REPLACE STACK ENTRY                                 PAR         2951     A     
 PAR                EQ     POPX        EXIT..                                              PAR         2952     A     
 PAR                                                                                       PAR         2953     A     
 PAR      **        HERE IF DOUBLE WORD CONSTANT                                           PAR         2954     A     
 PAR      *         (X1) = (X6) = UPPER PART                                               PAR         2955     A     
 PAR      *         (X2) = (X7) = LOWER PART                                               PAR         2956     A     
 PAR                                                                                       PAR         2957     A     
 PAR       POP.UM5  BX6    -X1                                                             PAR         2958     A     
 PAR                BX7    -X2                                                             PAR         2959     A     
 PAR                SA6    SCR                                                             PAR         2960     A     
 PAR                =A7    A6+1                                                            PAR         2961     A     
 PAR                SB2    A6          FWA                                                 PAR         2962     A     
 PAR                SB3    B2+2        LWA+1                                               PAR         2963     A     
 PAR                SCAN   TS.CON,NCM  SCAN/ENTER NEW CONSTANTS                            PAR         2964     A     
 PAR                SX0    B7+C.CON                                                        PAR         2965     A     
 PAR                MX6    -L.MODE                                                         PAR         2966     A     
 PAR                BX1    -X6*X5                                                          PAR         2967     A     
 PAR                LX0    P.TAG                                                           PAR         2968     A     
 PAR                IX6    X1+X0                                                           PAR         2969     A     
 PAR                =A6    B6-1        REPLACE STACK ENTRY                                 PAR         2970     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1289    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                EQ     POPX        EXIT..                                              PAR         2971     A     
 PAR                                                                                       PAR         2972     A     
 PAR       POP.UM10 SA1    LASTOP                                                          PAR         2973     A     
 PAR                SA2    LASTAD                                                          PAR         2974     A     
 PAR                SB7    X1-O.UMIN                                                       PAR         2975     A     
 PAR                SB2    X1-O.MIN                                                        PAR         2976     A     
 PAR                NZ     B7,POP.UM15 IF NOT RESULTS OF ANOTHER UNARY-                    PAR         2977     A     
 PAR                BX1    X5                                                              PAR         2978     A     
 PAR                RJ     COR                                                             PAR         2979     A     
 PAR                NZ     X0,POP.UM20 IF NOT INPUT INTO THIS OPERATOR                     PAR         2980     A     
 PAR                =A3    X1-OR.OPR+OR.2OP                                                PAR         2981     A     
 PAR                SA7    A2          RESET LENGTH OF TT=PAR                              PAR         2982     A     
 PAR                BX6    X3                                                              PAR         2983     A     
 PAR                =A6    B6-1        PUT OPERAND BACK IN ELEMENT STACK                   PAR         2984     A     
 PAR                EQ     POPX        EXIT..                                              PAR         2985     A     
 PAR                                                                                       PAR         2986     A     
 PAR      **        CHECK FOR -(A-B)                                                       PAR         2987     A     
 PAR                                                                                       PAR         2988     A     
 PAR       POP.UM15 NZ     B2,POP.UM20 IF  LAST NOT *-*                                    PAR         2989     A     
 PAR                BX1    X5                                                              PAR         2990     A     
 PAR                RJ     COR                                                             PAR         2991     A     
 PAR                NZ     X0,POP.UM20 IF NOT INPUT INTO THIS OPERATOR                     PAR         2992     A     
 PAR                =A3    X1-OR.OPR+OR.1OP                                                PAR         2993     A     
 PAR                BX6    X3                                                              PAR         2994     A     
 PAR                =A4    A3-OR.1OP+OR.2OP                                                PAR         2995     A     
 PAR                BX7    X4                                                              PAR         2996     A     
 PAR                SA6    A4          REVERSE THE ORDER OF THE SUBTRACT                   PAR         2997     A     
 PAR                SA7    A3                                                              PAR         2998     A     
 PAR                EQ     POPX        EXIT..                                              PAR         2999     A     
 PAR                                                                                       PAR         3000     A     
 PAR      **        HERE IF UNARY- TO BE OUTPUT                                            PAR         3001     A     
 PAR                                                                                       PAR         3002     A     
 PAR       POP.UM20 =X4    0           OR.1OP  = DUMMY                                     PAR         3003     A     
 PAR                =B6    B6+1        DUMMY FOR UNARY-                                    PAR         3004     A     
 PAR                EQ     POP.STD                                                         PAR         3005     A     
 PAR       POP.OPN  SPACE  4,8                                                             PAR         3006          I
          -FCC0616
 PAR      **        TEST IF .OP..NOT. OPERATOR WAS FORMED BY .NOT..OP. COMBINATION         PAR         3007          I
          -FCC0616
 PAR      *         (AS OPPOSED TO .OP..NOT.)  IF SO, REVERSE THE OPERANDS AND             PAR         3008          I
          -FCC0616
 PAR      *         REFORM THE OPERATOR.                                                   PAR         3009          I
          -FCC0616
 PAR                                                                                       PAR         3010          I
          -FCC0616
 PAR       POP.OPN  BX2    X3                                                              PAR         3011          I
          -FCC0616
 PAR                AX2    P.JPAD                                                          PAR         3012          I
          -FCC0616
 PAR                NZ     X2,POP.OPN1 IF NOT FORMED BY .NOT..OP.                          PAR         3013          I
          -FCC0616
 PAR                BX2    X4                                                              PAR         3014          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1290    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FCC0616
 PAR                LX4    X5                                                              PAR         3015          I
          -FCC0616
 PAR                BX5    X2          REVERSE THE OPERATORS                               PAR         3016          I
          -FCC0616
 PAR                SX2    X3                                                              PAR         3017          I
          -FCC0616
 PAR                SB7    X2-O.ANDN                                                       PAR         3018          I
          -FCC0616
 PAR                SA3    B7+ANDNOT                                                       PAR         3019          I
          -FCC0616
 PAR                MX0    -L.SBPR                                                         PAR         3020          I
          -FCC0616
 PAR                BX3    X0*X3                                                           PAR         3021          I
          -FCC0616
 PAR                IX3    X3+X2       REFORM .OP..NOT. OPERATOR                           PAR         3022          I
          -FCC0616
 PAR       POP.OPN1 RJ     SMM         SET MODE FOR SPECIAL OPERATOR                       PAR         3023          I
          -FCC0616
 PAR                EQ     POP.ST1     POP .OP..NOT. TURPLE                                PAR         3024          I
          -FCC0616
 PAR       POP.LOG  SPACE  4,8                                                             PAR         3025     A     
 PAR      **        CHECK IF ONE OPERAND IS A LONG CONSTANT AND CAN BE CONVERTED           PAR         3026     A     
 PAR      *         TO MASK FORM.                                                          PAR         3027     A     
 PAR                                                                                       PAR         3028     A     
 PAR       POP.LOG  RJ     SMM         SET MODE FOR SPECIAL OPERATOR                       PAR         3029     A     
 PAR                SX6    X3-O.AND                                                        PAR         3030     A     
 PAR                BX1    X4                                                              PAR         3031     A     
 PAR                SA6    TRVA                                                            PAR         3032     A     
 PAR                RJ     LCT                                                             PAR         3033     A     
 PAR                GE     B2,POP.ST1  IF NOT LONG CONSTANT                                PAR         3034     A     
 PAR                BX1    X6                                                              PAR         3035     A     
 PAR                =X2    M.INT                                                           PAR         3036     A     
 PAR                =B3    1                                                               PAR         3037     A     
 PAR                RJ     CMO                                                             PAR         3038     A     
 PAR                ZR     X6,POP.ST1  IF NOT MASK CONSTANT                                PAR         3039     A     
 PAR                LX7    X5                                                              PAR         3040     A     
 PAR                BX5    X6                                                              PAR         3041     A     
 PAR                SA2    TRVA                                                            PAR         3042     A     
 PAR                LX4    X7                                                              PAR         3043     A     
 PAR                SA3    X2+ANDNOT                                                       PAR         3044     A     
 PAR                MX0    -L.SBPR                                                         PAR         3045     A     
 PAR                SX2    X2+O.ANDN                                                       PAR         3046     A     
 PAR                BX3    X0*X3                                                           PAR         3047     A     
 PAR                IX3    X2+X3       REFORM .OP..NOT. OPERATOR                           PAR         3048     A     
 PAR                BX6    X3                                                              PAR         3049     A     
 PAR                SA6    SOPR                                                            PAR         3050     A     
 PAR                EQ     POP.ST1     CONTINUE ..                                         PAR         3051     A     
 PAR       POP.NT   SPACE  4,10                                                            PAR         3052     A     
 PAR      **        CHECK IF .NOT. (.NOT. EXPRESSION) COMBINATION.                         PAR         3053     A     
 PAR                                                                                       PAR         3054     A     
 PAR                                                                                       PAR         3055     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1291    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       POP.NOT  BX1    X5                                                              PAR         3056     A     
 PAR                RJ     LCT         CHECK IF OPERAND IS CONSTANT                        PAR         3057     A     
 PAR                NZ     B2,POP.UM1  IF CONSTANT OPERAND                                 PAR         3058     A     
 PAR                BX4    X5          DUMMY 1ST OPERAND = 2ND                             PAR         3059     A     
 PAR                RJ     SMM         SET MODE FOR SPECIAL OPERATOR                       PAR         3060     A     
 PAR                =B6    B6+1        RESET FOR UNARY                                     PAR         3061     A     
 PAR                SA1    LASTOP                                                          PAR         3062     A     
 PAR                =X4    0           DUMMY 1ST OPERAND                                   PAR         3063     A     
 PAR                SB7    X1-O.NOT                                                        PAR         3064     A     
 PAR                NZ     B7,POP.NOT1 IF LAST PROCESSED NOT .NOT.                         PAR         3065          I
          -FCC0616
 PAR                NZ     B7,POP.ST1  IF LAST PROCESSED NOT .NOT.                         FCC0616       29     A     
 PAR                BX1    X5                                                              PAR         3066     A     
 PAR                RJ     COR                                                             PAR         3067     A     
 PAR                NZ     X0,POP.NOT1 IF NOT INPUT INTO THIS OPERATOR                     PAR         3068          I
          -FCC0616
 PAR                NZ     X0,POP.ST1  IF NOT INPUT INTO THIS OPERATOR                     FCC0616       30     A     
 PAR                =A3    X1-OR.OPR+OR.2OP                                                PAR         3069     A     
 PAR                SA7    A2          RESET LENGTH OF TT=PAR                              PAR         3070     A     
 PAR                BX6    X3                                                              PAR         3071     A     
 PAR                SA6    B6-2        PUT OPERAND BACK IN ELEMENT STACK                   PAR         3072     A     
 PAR                =B6    B6-1                                                            PAR         3073     A     
 PAR                EQ     POPX        EXIT                                                PAR         3074     A     
 PAR                                                                                       PAR         3075          I
          -FCC0616
 PAR      *         CHECK IF .NOT. BEING POPPED BY .AND., .OR. OR .XOR.                    PAR         3076          I
          -FCC0616
 PAR      *         IF SO , BUILD .OP..NOT. OPERATOR.                                      PAR         3077          I
          -FCC0616
 PAR                                                                                       PAR         3078          I
          -FCC0616
 PAR       POP.NOT1 SA1    POPDPC                                                          PAR         3079          I
          -FCC0616
 PAR                SA2    ="NOT.AXO"                                                      PAR         3080          I
          -FCC0616
 PAR                SB2    X1                                                              PAR         3081          I
          -FCC0616
 PAR                LX6    B2,X2                                                           PAR         3082          I
          -FCC0616
 PAR                PL     X6,POP.ST1  IF NOT AND, OR, XOR                                 PAR         3083          I
          -FCC0616
 PAR                SB2    B2-O.AND                                                        PAR         3084          I
          -FCC0616
 PAR                SA2    B2+ANDNOT                                                       PAR         3085          I
          -FCC0616
 PAR                MX0    L.JPAD                                                          PAR         3086          I
          -FCC0616
 PAR                BX6    -X0*X2      CLEAR ADDRESS FIELD TO INDICATE REVERSAL            PAR         3087          I
          -FCC0616
 PAR                                   OF OPERANDS IN POP.LOG                              PAR         3088          I
          -FCC0616
 PAR                SX7    B2+O.ANDN                                                       PAR         3089          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1292    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FCC0616
 PAR                SA7    A1          RESET POPDPC                                        PAR         3090          I
          -FCC0616
 PAR                =A6    A1-POPDPC+POPPER  RESET POPPER                                  PAR         3091          I
          -FCC0616
 PAR                =B6    B6-1        RESET ELEMENT STACK                                 PAR         3092          I
          -FCC0616
 PAR                SA7    B4          RESET *SB*                                          PAR         3093          I
          -FCC0616
 PAR                EQ     POPX        EXIT                                                PAR         3094          I
          -FCC0616
 PAR       POP.REL  EJECT  4,8                                                             PAR         3095     A     
 PAR      **        RELATIONALS BEING POPPED.                                              PAR         3096     A     
 PAR                                                                                       PAR         3097     A     
 PAR                                                                                       PAR         3098     A     
 PAR       POP.REL  SB7    X3                                                              PAR         3099     A     
 PAR                SA1    ="LEGT"                                                         PAR         3100     A     
 PAR                SB2    B3-O.RP                                                         PAR         3101     A     
 PAR                LX6    B7,X1                                                           PAR         3102     A     
 PAR                BX0    X5                                                              PAR         3103     A     
 PAR                PL     X6,POP.RL10 IF NOT .LE. OR .GT.                                 PAR         3104     A     
 PAR                                                                                       PAR         3105     A     
 PAR      **        CHANGE RELATIONALS .LE. TO .GE. OR .GT. TO .LT.                        PAR         3106     A     
 PAR                                                                                       PAR         3107     A     
 PAR                BX5    X4                                                              PAR         3108     A     
 PAR                SB7    X6                                                              PAR         3109     A     
 PAR                LX4    X0                                                              PAR         3110     A     
 PAR                =X6    O.GE-O.LE                                                       PAR         3111     A     
 PAR                ZR     B7,POP.RL3  IF PROCESSING .LE.                                  PAR         3112     A     
 PAR                =X6    O.LT-O.GT                                                       PAR         3113     A     
 PAR       POP.RL3  IX3    X3+X6       CHANGE TO NEW OPERATOR                              PAR         3114     A     
 PAR                BX6    X3                                                              PAR         3115     A     
 PAR                SA6    SOPR                                                            PAR         3116     A     
 PAR                                                                                       PAR         3117     A     
 PAR       POP.RL10 BX0    X4-X5                                                           PAR         3118     A     
 PAR                MX2    -L.MODE                                                         PAR         3119     A     
 PAR                BX1    -X2*X0                                                          PAR         3120     A     
 PAR                BX2    -X2*X4                                                          PAR         3121     A     
 PAR                NZ     X1,POP.RL15 IF MIXED MODE.                                      PAR         3122     A     
 PAR                SB7    X2-M.LOG                                                        PAR         3123     A     
 PAR                NZ     B7,POP.RL15 IF DOMINANT MODE NOT LOGICAL.                       PAR         3124     A     
 PAR                FATAL  E.AT1A      NON-LOGICAL OPERATOR ON LOGICAL OPERANDS            PAR         3125     A     
 PAR                EQ     POPX        EXIT..                                              PAR         3126     A     
 PAR                                                                                       PAR         3127     A     
 PAR       POP.RL15 RJ     SDM         SET DOMINANT MODE AND OPERATOR                      PAR         3128     A     
 PAR                SA2    SMOD                                                            PAR         3129     A     
 PAR                MX0    -18                                                             PAR         3130     A     
 PAR                =X7    M.LOG                                                           PAR         3131     A     
 PAR                BX1    X0*X2       SAVE CONVERSION BITS                                PAR         3132     A     
 PAR                IX6    X7+X1                                                           PAR         3133     A     
 PAR                SA6    A2          RESET SMOD INDICATING RESULTS = LOGICAL             PAR         3134     A     
 PAR                EQ     POP.ST1     CONTINUE                                            PAR         3135     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1293    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       POP.REQ  SPACE  4,8                                                             PAR         3136     A     
 PAR      **        EQUAL - VALIDATE NOTHING ILLEGAL                                       PAR         3137     A     
 PAR      *                                                                                PAR         3138     A     
 PAR      *                A. CHECKS LEFT SIDE FOR LEGALITY.                               PAR         3139     A     
 PAR      *                B. VALIDATES NOT RESETTING A *DO* PARAMETER.                    PAR         3140     A     
 PAR      *                C. CHECKS MODE CONVERSION ON CONSTANTS.                         PAR         3141     A     
 PAR                                                                                       PAR         3142     A     
 PAR       POP.REQ  RJ     SDM                                                             PAR         3143     A     
 PAR                SA2    SMOD                                                            PAR         3144     A     
 PAR                AX2    18                                                              PAR         3145     A     
 PAR                SB7    E.LP3                                                           PAR         3146     A     
 PAR                ZR     X2,POP.RQ5  IF NO MIXED MODE.                                   PAR         3147     A     
 PAR                RJ     LCT                                                             PAR         3148     A     
 PAR                ZR     B2,POP.RQ5  IF RIGHT MEMBER NOT CONSTANT.                       PAR         3149     A     
 PAR                                                                                       PAR         3150     A     
 PAR      **        CHANGE CONSTANT TO DOMINANT MODE                                       PAR         3151     A     
 PAR                                                                                       PAR         3152     A     
 PAR                SA2    SMOD                                                            PAR         3153     A     
 PAR                SB3    0                                                               PAR         3154     A     
 PAR                BX1    X6          CONSTANT TO CHECK (LCT RETURNED)                    PAR         3155     A     
 PAR                SX2    X2          INDICATE 1ST = CONSTANT                             PAR         3156     A     
 PAR                RJ     CMC         CHECK IF CONSTANT CAN ACTUAL BE CONVERTED           PAR         3157     A     
 PAR                                                                                       PAR         3158     A     
 PAR      **        CHECK IF REDEFINING *DO* INDEX                                         PAR         3159     A     
 PAR                                                                                       PAR         3160     A     
 PAR       POP.RQ5  SA2    TP=DO                                                           PAR         3161     A     
 PAR                SA1    TP.DO                                                           PAR         3162     A     
 PAR                ZR     X2,POP.RQ10 IF NOT IN *DO*                                      PAR         3163     A     
 PAR                IX0    X1+X2                                                           PAR         3164     A     
 PAR                SB2    X1                                                              PAR         3165     A     
 PAR                BX6    X5                                                              PAR         3166     A     
 PAR                SA2    X0-1        PRELOAD 1ST ENTRY                                   PAR         3167     A     
 PAR                =A6    B2-1        DUMMY FIND                                          PAR         3168     A     
 PAR                                                                                       PAR         3169     A     
 PAR      **        SCAN *DO* TABLE                                                        PAR         3170     A     
 PAR                                                                                       PAR         3171     A     
 PAR       POP.RQ6  BX0    X2-X5                                                           PAR         3172     A     
 PAR                =A2    A2-1                                                            PAR         3173     A     
 PAR                NZ     X0,POP.RQ6  IF NO MATCH                                         PAR         3174     A     
 PAR                SB7    A2-B2                                                           PAR         3175     A     
 PAR                MI     B7,POP.RQ10 IF DUMMY FIND                                       PAR         3176     A     
 PAR                                                                                       PAR         3177     A     
 PAR      *         CHECK IF IT IS THE CONTROL INDEX THAT IS REDEFINED                     PAR         3178     A     
 PAR                                                                                       PAR         3179     A     
 PAR                SA2    TP=DO                                                           PAR         3180     A     
 PAR                IX0    X1+X2                                                           PAR         3181     A     
 PAR                SB7    X0          (B7) = LWA+1 OF TABLE                               PAR         3182     A     
 PAR                SB2    X1+OR.DOCI                                                      PAR         3183     A     
 PAR                SA1    B2          PREFETCH FIRST CONTROL INDEX                        PAR         3184     A     
 PAR                EQ     POP.RQ8                                                         PAR         3185     A     
 PAR                                                                                       PAR         3186     A     
 PAR       POP.RQ7  BX0    X1-X5                                                           PAR         3187     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1294    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SB2    B2+L.DOE                                                        PAR         3188     A     
 PAR                AX0    P.TAG                                                           PAR         3189     A     
 PAR                ZR     X0,POP.RQ9  IF CONTROL INDEX REDEFINED -- *FATAL*               PAR         3190     A     
 PAR                SA1    B2          FETCH NEXT CONTROL INDEX                            PAR         3191     A     
 PAR       POP.RQ8  LT     B2,B7,POP.RQ7     IF NOT END OF TABLE, LOOP                     PAR         3192     A     
 PAR                EQ     POP.RQ9A                                                        PAR         3193     A     
 PAR                                                                                       PAR         3194     A     
 PAR       POP.RQ9  FATAL  E.DO8                                                           PAR         3195     A     
 PAR                EQ     POP.RQ11                                                        PAR         3196     A     
 PAR                                                                                       PAR         3197     A     
 PAR       POP.RQ9A BSS    0                                                               PAR         3198     A     
 PAR                NOTE   E.DO23      REDEFINING *DO* PARAMETER                           PAR         3199     A     
 PAR                SA2    DOIX                                                            PAR         3200     A     
 PAR                BX6    -X2                                                             PAR         3201     A     
 PAR                SA6    A2          INDICATE AN INDEX IS CHANGED IN ACTIVE LOOP         PAR         3202     A     
 PAR                EQ     POP.RQ11    BY-PASS NULL EXPRESSION CHECK                       PAR         3203     A     
 PAR                                                                                       PAR         3204     A     
 PAR      **        VALIDATE LEFT MEMBER LEGAL                                             PAR         3205     A     
 PAR                                                                                       PAR         3206     A     
 PAR       POP.RQ10 BX0    X4-X5                                                           PAR         3207     A     
 PAR                =B6    B6-1        ELIMINATE ONE OPERAND                               PAR         3208     A     
 PAR                ZR     X0,POPX     IF LEFT MEMBER = RIGHT MEMBER                       PAR         3209     A     
 PAR                =B6    B6+1        PUT OPERAND BACK                                    PAR         3210     A     
 PAR       POP.RQ11 LX0    X5                                                              PAR         3211     A     
 PAR                BX1    X5                                                              PAR         3212     A     
 PAR                IFBIT  X0,-INTR,POP.RQ12     IF NOT INTERMEDIATE                       PAR         3213     A     
 PAR                IFBIT  X0,ARY/INTR,POP.ST1  IF ARRAY INTERMEDIATE - OK.                PAR         3214     A     
 PAR                FATAL  E.TE8                 LEFT SIDE IS ILLEGAL                      PAR         3215     A     
 PAR                EQ     POP.ST1                                                         PAR         3216     A     
 PAR                                                                                       PAR         3217     A     
 PAR       POP.RQ12 AX1    P.2TAG                                                          PAR         3218     A     
 PAR                SA2    TS.SYM                                                          PAR         3219     A     
 PAR                SB2    X1-C.SYM                                                        PAR         3220     A     
 PAR                SX0    B2                                                              PAR         3221          I
          -FCCA468
 PAR                AX0    L.PWF                                                           PAR         3222          I
          -FCCA468
 PAR                NZ     X0,POP.RQ14 IF NOT SYMBOL                                       PAR         3223          I
          -FCCA468
 PAR                SX0    C.SYM                                                           FCCA468        7     A     
 PAR                BX6    X0-X1                                                           FCCA468        8     A     
 PAR                AX6    L.PWF                                                           FCCA468        9     A     
 PAR                NZ     X6,POP.RQ14 IF NOT SYMBOL                                       FCCA468       10     A     
 PAR                SA2    X2+B2                                                           PAR         3224     A     
 PAR                IFBIT  X2,VAR,POP.ST1       IF SIMPLE VARIABLE                         PAR         3225          I
          -FCC1901
 PAR                IFBIT  X2,-VAR,POP.RQ14  IF NOT SIMPLE VARIABLE                        FCC1901       25     A     
 PAR                IFBIT  X2,-FPS/VAR,POP.ST1   IF NOT FP USED AS A SUBSCRIPT             FCC1901       26     A     
 PAR                SA2    A2-B1       POINTS TO SYMBOL IN TS.SYM                          FCC1901       27     A     
 PAR                MX6    L.SYM                                                           FCC1901       28     A     
 PAR                BX6    X2*X6       EXTRACT SYMBOL                                      FCC1901       29     A     
 PAR                SA6    FILL.                                                           FCC1901       30     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1295    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                ANSI   =XE.AT13    REDEFINITION OF FPS IS NON-ANSI                     FCC1901       31     A     
 PAR                EQ     POP.ST1     ADD TURPLE TO PARSED FILE                           FCC1901       32     A     
 PAR       POP.RQ14 FATAL  E.TE8                                                           PAR         3226     A     
 PAR                EQ     POP.ST1                                                         PAR         3227     A     
 PAR       POP.STD  EJECT                                                                  PAR         3228     A     
 PAR       POP.STD  SPACE  4,8                                                             PAR         3229     A     
 PAR      **        STD -  SET DOMINANT MODE / ADD TURPLE TO PARSED FILE                   PAR         3230     A     
 PAR      *         ENTRY  (X3) = OPERATOR                                                 PAR         3231     A     
 PAR      *                (X4) = 1ST OPERAND                                              PAR         3232     A     
 PAR      *                (X5) = 2ND OPERAND                                              PAR         3233     A     
 PAR      *                                                                                PAR         3234     A     
 PAR      *         CALLS  SDM,POP.ST1                                                     PAR         3235     A     
 PAR                                                                                       PAR         3236     A     
 PAR                                                                                       PAR         3237     A     
 PAR       POP.STD  BX6    X3                                                              PAR         3238     A     
 PAR                SA6    SOPR1       SAVE OPERATOR                                       PAR         3239     A     
 PAR                RJ     SDM         SET DOMINANT MODE / RESULTANT MODE                  PAR         3240     A     
 PAR                BX6    X3                                                              PAR         3241     A     
 PAR                SA6    SOPR        SET OPERATOR CELL                                   PAR         3242     A     
 PAR                SA6    SOPR2       SAVE OPERATOR                                       PAR         3243     A     
 PAR                RJ     PSO         PROCESS SUBSCRIPT OPERATION IF IN ARRAY             PAR         3244     A     
 PAR                ZR     X3,POPX     IF SUBSCRIPT OPERATION REDUCED                      PAR         3245     A     
 PAR                SA1    SOPR2                                                           PAR         3246     A     
 PAR                IX1    X1-X3                                                           PAR         3247     A     
 PAR                NZ     X1,POP.ST5  IF OPERATOR CHANGED                                 PAR         3248     A     
 PAR                SA3    SOPR1       RELOAD ORIGINAL OPERATOR                            PAR         3249     A     
 PAR                BX6    X3                                                              PAR         3250     A     
 PAR                SA6    SOPR                                                            PAR         3251     A     
 PAR                RJ     SDM         RESET DOMINANT MODE / RESULTANT MODE                PAR         3252     A     
 PAR                BX6    X3                                                              PAR         3253     A     
 PAR                SA6    SOPR        RESET OPERATOR CELL                                 PAR         3254     A     
 PAR                EQ     POP.ST5                                                         PAR         3255     A     
 PAR       POP.STD1 SPACE  4,8                                                             PAR         3256     A     
 PAR      **        ST1 -  ADD TURPLE TO PARSED FILE                                       PAR         3257     A     
 PAR      *                                                                                PAR         3258     A     
 PAR      *         ENTRY  (X3) = OPERATOR                                                 PAR         3259     A     
 PAR      *                (X4) = 1ST OPERAND                                              PAR         3260     A     
 PAR      *                (X5) = 2ND OPERAND                                              PAR         3261     A     
 PAR      *                                                                                PAR         3262     A     
 PAR      *         CALLS  PSO,OMC,ADT                                                     PAR         3263     A     
 PAR                                                                                       PAR         3264     A     
 PAR                                                                                       PAR         3265     A     
 PAR       POP.ST1  BX6    X3                                                              PAR         3266     A     
 PAR                SA6    SOPR        SET OPERATOR CELL                                   PAR         3267     A     
 PAR                RJ     PSO         PROCESS SUBSCRIPT OPERATION IF IN ARRAY             PAR         3268     A     
 PAR                ZR     X3,POPX     IF SUBSCRIPT OPERATION REDUCED                      PAR         3269     A     
 PAR       POP.ST5  RJ     OMC         OUTPUT MODE CONVERSION IF REQUIRED                  PAR         3270     A     
 PAR                RJ     ADT         ADD TURPLE                                          PAR         3271     A     
 PAR                EQ     POPX        EXIT..                                              PAR         3272     A     
 PAR       ADT      EJECT  4,20                                                            PAR         3273     A     
 PAR      **        ADT  ADD TURPLE TO PARSED FILE.                                        PAR         3274     A     
 PAR      *                                                                                PAR         3275     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1296    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         GENERAL FLOW                                                           PAR         3276     A     
 PAR      *                                                                                PAR         3277          I
          -FEAT126C 
 PAR      *         A. SDM - CALLED TO SET THE DOMINANT MODE FOR THE TURPLE.               PAR         3278          I
          -FEAT126C 
 PAR      *                                                                                PAR         3279          I
          -FEAT126C 
 PAR      *         B. PSO - IF INSIDE AN ARRAY REFERENCE *PSO* IS CALLED TO CHECK         PAR         3280          I
          -FEAT126C 
 PAR      *                  IF TURPLE CAN BE PERFORMED AT COMPILE TIME.                   PAR         3281          I
          -FEAT126C 
 PAR      *                  ALSO PERFORMS UPDATING OF SUBSCRIPT CELLS, AND BIAS           PAR         3282          I
          -FEAT126C 
 PAR      *                  ON ARRAY.                                                     PAR         3283          I
          -FEAT126C 
 PAR      *                                                                                PAR         3284          I
          -FEAT126C 
 PAR      *         C. CCR - CHECKS IF CURRENT TURPLE CAN BE PERFORMED AT COMPILE          PAR         3285          I
          -FEAT126C 
 PAR      *         A. CCR - CHECKS IF CURRENT TURPLE CAN BE PERFORMED AT COMPILE          FEAT126C     156     A     
 PAR      *                  TIME, IF OPERATION IS DEFINED, IF TURPLE CAN BE               PAR         3286     A     
 PAR      *                  MODIFIED TO A FASTER DEFINED OPERATION, ETC.                  PAR         3287     A     
 PAR      *                                                                                PAR         3288     A     
 PAR      *         D. SQZ - CHECKS IF CURRENT TURPLE CAN BE SQUEEZED OUT BECAUSE          PAR         3289          I
          -FEAT126C 
 PAR      *         B. SQZ - CHECKS IF CURRENT TURPLE CAN BE SQUEEZED OUT BECAUSE          FEAT126C     157     A     
 PAR      *                  OF A PREVIOUS ALIKE TURPLE.                                   PAR         3290     A     
 PAR      *                                                                                PAR         3291     A     
 PAR      *         E. ALLOC - ALLOCATES ROOM FOR CURRENT TURPLE.                          PAR         3292          I
          -FEAT126C 
 PAR      *         C. ALC - ALLOCATES ROOM FOR CURRENT TURPLE.                            FEAT126C     158     A     
 PAR      *                                                                                PAR         3293     A     
 PAR      *                                                                                PAR         3294     A     
 PAR      *         ENTRY  (X3) = OPERATOR                                                 PAR         3295     A     
 PAR      *                (SOPR) = (X3)                                                   PAR         3296     A     
 PAR      *                (SMOD) = RESULTANT MODE OF TURPLE.                              PAR         3297     A     
 PAR      *                         (SEE DEFINITION IN *SDM*.)                             PAR         3298     A     
 PAR      *                (X4) = 1ST OPERAND                                              PAR         3299     A     
 PAR      *                (X5) = 2ND OPERAND                                              PAR         3300     A     
 PAR      *                                                                                PAR         3301     A     
 PAR      *         EXIT   TT.PAR UPDATED BY L.TURP, IF TURPLE NOT SQUEEZED OR             PAR         3302     A     
 PAR      *                REDUCED.                                                        PAR         3303     A     
 PAR      *                (B6) = UPDATED BY -1.                                           PAR         3304     A     
 PAR      *                ESTACK (B6) = INTERMEDIATE GENERATED BY CURRENT TURPLE.         PAR         3305     A     
 PAR                                                                                       PAR         3306     A     
 PAR                                                                                       PAR         3307     A     
 PAR       ADT      SUBR   0                                                               PAR         3308     A     
 PAR                BX0    X3                                                              PAR         3309     A     
 PAR                                                                                       PAR         3310     A     
 PAR      **        CONSTANT COMBINATION CHECK.                                            PAR         3311     A     
 PAR      *         CHECK IF CURRENT TURPLE IS A SIMPLE CONSTANT RESULT OR                 PAR         3312     A     
 PAR      *         WILL RESULT IN A MACHINE UNDEFINED OPERAND.                            PAR         3313     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1297    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *         (X0) = OPERATOR.                                                       PAR         3314     A     
 PAR      *         RETURN FROM *CCR*                                                      PAR         3315     A     
 PAR      *                X6 = 0 - TURPLE NOT REDUCED.                                    PAR         3316     A     
 PAR      *                X6 " 0 - RESULTS OF REDUCTION.                                  PAR         3317     A     
 PAR                                                                                       PAR         3318     A     
 PAR       ADT2     BX7    X3                                                              PAR         3319     A     
 PAR                IFBIT  X0,NONSTD/COM,ADT10                                             PAR         3320     A     
 PAR                RJ     CCR         CHECK CONSTANT REDUCTION.                           PAR         3321     A     
 PAR                BX7    X3                                                              PAR         3322     A     
 PAR                ZR     X6,ADT10    IF NOT REDUCED                                      PAR         3323     A     
 PAR                SA6    B6-2        RESULT OF REDUCTION BACK TO OP-STACK                PAR         3324     A     
 PAR                =B6    B6-1                                                            PAR         3325     A     
 PAR                EQ     ADTX        EXIT.. (TERM REDUCED)                               PAR         3326     A     
 PAR                                                                                       PAR         3327     A     
 PAR      **        SQUEEZE TURPLE -- IF POSSIBLE.                                         PAR         3328     A     
 PAR      *         CHECK IF CURRENT TURPLE IS ALREADY IN PARSED FILE.                     PAR         3329     A     
 PAR      *         (X7) = OPERATOR.                                                       PAR         3330     A     
 PAR      *         RETURN FROM *SQZ*                                                      PAR         3331     A     
 PAR      *                B2 > 0 - TURPLE SQUEEZE                                         PAR         3332     A     
 PAR                                                                                       PAR         3333     A     
 PAR       ADT10    SX6    B5                                                              PAR         3334     A     
 PAR                IFBIT  X7,NSQEZ,ADT36                                                  PAR         3335     A     
 PAR                SA6    TRVA        SAVE *B5*                                           PAR         3336     A     
 PAR                RJ     SQZ         CHECK IF CURRENT TURPLE CAN BE ELIMINATED           PAR         3337     A     
 PAR                SA1    TRVA                                                            PAR         3338     A     
 PAR                SB5    X1          RESTORE *B5*                                        PAR         3339     A     
 PAR                PL     B2,ADTX     IF SQUEEZE PERFORMED.                               PAR         3340     A     
 PAR                                                                                       PAR         3341     A     
 PAR      **        SET UP INTERMEDIATE RESULT OPERAND TO *ESTACK*                         PAR         3342     A     
 PAR      *         AND PUT CURRENT TURPLE IN *SB* FOR LATER PROCESSING BY *CAI*.          PAR         3343     A     
 PAR      *         (X4) = 1ST OPERAND TO ADT.                                             PAR         3344     A     
 PAR      *         (X5) = 2ND OPERAND TO ADT.                                             PAR         3345     A     
 PAR                                                                                       PAR         3346     A     
 PAR       ADT36    SB7    X3-O.=                                                          PAR         3347     A     
 PAR                BX6    X5                                                              PAR         3348     A     
 PAR                ZR     B7,ADT40    IF ADDING *=* TURPLE                                PAR         3349     A     
 PAR                SA3    SMOD                                                            PAR         3350     A     
 PAR                SA1    ATTR        ATTRITBUTE CELL                                     PAR         3351     A     
 PAR                                                                                       PAR         3352     A     
 PAR      **        SET-UP INTERMEDIATE FOR *ESTACK*                                       PAR         3353     A     
 PAR      *         (X3) = SMOD                                                            PAR         3354     A     
 PAR                                                                                       PAR         3355     A     
 PAR                SA2    TT=PAR                                                          PAR         3356     A     
 PAR                SX0    M.INTR                                                          PAR         3357     A     
 PAR                IX1    X1+X3       ADD ATTRITBUTE + RESULTANT MODE                     PAR         3358     A     
 PAR                LX2    P.TAG                                                           PAR         3359     A     
 PAR                SX7    X1                                                              PAR         3360     A     
 PAR                BX3    X0+X2       INTERMEDIATE TAG                                    PAR         3361     A     
 PAR                IX6    X3+X7       ADD IN ATTRIBUTE+MODE                               PAR         3362     A     
 PAR       ADT40    SA1    TT.PAR                                                          PAR         3363     A     
 PAR                SA6    B6-2        INTERMEDIATE OPERAND TO ELEMENT STACK.              PAR         3364     A     
 PAR                                                                                       PAR         3365     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1298    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      **        REFORM                                                                 PAR         3366     A     
 PAR      *         SET RESULTANT MODE IN OPERATOR WORD THE SAME AS THE                    PAR         3367     A     
 PAR      *         INTERMEDIATE JUST PUT INTO ELEMENT STACK FOR RESULTS OF THIS           PAR         3368     A     
 PAR      *         TURPLE                                                                 PAR         3369     A     
 PAR      *         ALLOCATE ROOM FOR CURRENT TURPLE                                       PAR         3370     A     
 PAR      *         SET TURPLE INTO PARSED FILE.                                           PAR         3371     A     
 PAR                                                                                       PAR         3372     A     
 PAR                ALLOC  A1,L.TURP                                                       PAR         3373     A     
 PAR                SA1    SMOD                                                            PAR         3374     A     
 PAR                BX7    X5                                                              PAR         3375     A     
 PAR                SA3    SOPR                                                            PAR         3376     A     
 PAR                SX1    X1                                                              PAR         3377     A     
 PAR                =A7    B7-1        2ND OPERAND TO FILE.                                PAR         3378     A     
 PAR                LX1    P.DMOD                                                          PAR         3379     A     
 PAR                BX6    X1+X3                                                           PAR         3380     A     
 PAR                LX7    X4                                                              PAR         3381     A     
 PAR                =B6    B6-1        RESET OPERAND STACK                                 PAR         3382     A     
 PAR                =A7    A7-1        1ST OPERAND TO STACK.                               PAR         3383     A     
 PAR                =A6    A7-1        OPERATOR TO STACK.                                  PAR         3384     A     
 PAR                EQ     ADTX        EXIT..                                              PAR         3385     A     
 PAR       COR      SPACE  4,8                                                             PAR         3386          I
          -FEAT126C 
 PAR       CIL      SPACE  4,8                                                             FEAT126C     159     A     
 PAR      **        CIL -  CHECK IF ILLEGAL USE OF LEVEL 3 NAME                            PAR         3387     A     
 PAR      *                                                                                PAR         3388     A     
 PAR      *         ENTRY  (X3) = TAG SHIFTED TO PUT *ARY* BIT IN SIGN POSITION            PAR         3389     A     
 PAR      *                                                                                PAR         3390     A     
 PAR      *         EXIT   DIAGNOSTIC OUTPUT FOR ILLEGAL USAGE                             PAR         3391     A     
 PAR      *                                                                                PAR         3392     A     
 PAR      *         USES   A1  X2,X3  B3                                                   PAR         3393     A     
 PAR                                                                                       PAR         3394     A     
 PAR                                                                                       PAR         3395     A     
 PAR       CIL      SUBR   0                                                               PAR         3396     A     
 PAR                IFBIT  X3,-LEV/ARY,CILX  IF NOT LEVEL NAME, EXIT..                     PAR         3397     A     
 PAR                LX3    P.LEV+1-P.LEVN    RIGHT-JUSTIFY LEVEL NUMBER                    PAR         3398     A     
 PAR                MX2    -L.LEVN                                                         PAR         3399     A     
 PAR                BX2    -X2*X3      (X2) = LEVEL NUMBER                                 PAR         3400     A     
 PAR                SX2    X2-3                                                            PAR         3401     A     
 PAR                NZ     X2,CILX     IF NOT LEVEL 3, EXIT..                              PAR         3402     A     
 PAR                                                                                       PAR         3403     A     
 PAR      *         HERE IF LEVEL 3 TAG                                                    PAR         3404     A     
 PAR                                                                                       PAR         3405     A     
 PAR                SA3    ARGMODE                                                         PAR         3406     A     
 PAR                SB3    X3-A=CALL                                                       PAR         3407     A     
 PAR                ZR     B3,CILX     IF IN CALL PROCESSING, EXIT..                       PAR         3408     A     
 PAR                SB3    X3-A=FUN                                                        PAR         3409     A     
 PAR                ZR     B3,CILX     IF IN EXTERNAL FUNCTION PROCESSING, EXIT..          PAR         3410     A     
 PAR                SB3    X3-A=BIF                                                        PAR         3411     A     
 PAR                NZ     B3,CIL2     IF NOT IN INTRINSIC PROCESSING                      PAR         3412     A     
 PAR                                                                                       PAR         3413     A     
 PAR      *         HERE IF IN INTRINSIC PROCESSING.                                       PAR         3414     A     
 PAR      *         PERMIT LEVEL 3 IN *LOCF* ONLY.                                         PAR         3415     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1299    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         3416     A     
 PAR                SA1    B4-2        GET FUNCTION NAME                                   PAR         3417     A     
 PAR                MX3    L.SYM                                                           PAR         3418     A     
 PAR                BX2    X3*X1       (X2) = SYMBOL ONLY                                  PAR         3419     A     
 PAR                SA1    CILA                                                            PAR         3420     A     
 PAR                BX3    X2-X1                                                           PAR         3421     A     
 PAR                ZR     X3,CILX     IF PROCESSING *LOCF*                                PAR         3422     A     
 PAR                                                                                       PAR         3423     A     
 PAR      *         HERE IF ILLEGAL USE OF LEVEL 3                                         PAR         3424     A     
 PAR                                                                                       PAR         3425     A     
 PAR       CIL2     FATAL  =XE.LV11                                                        PAR         3426     A     
 PAR                EQ     CILX        EXIT..                                              PAR         3427     A     
 PAR                                                                                       PAR         3428     A     
 PAR       CILA     DATA   0LLOCF                                                          PAR         3429     A     
 PAR                SPACE  4,8                                                             PAR         3430          I
          -FEAT126C 
 PAR       COR      SPACE  4,8                                                             FEAT126C     160     A     
 PAR      **        COR -  CHECK IF OPERAND IS INPUT IN REDUCABLE OPERATOR.                PAR         3431          I
          -FEAT126C 
 PAR      **        COR -  CHECK IF OPERAND IS INPUT TO REDUCABLE OPERATOR.                FEAT126C     161     A     
 PAR      *                                                                                PAR         3432     A     
 PAR      *         ENTRY  (X1) = INPUT OPERAND (INTERMEDIATE)                             PAR         3433     A     
 PAR      *                                                                                PAR         3434     A     
 PAR      *         EXIT   (X0) = 0, OPERAND IS INPUT.                                     PAR         3435     A     
 PAR      *                (X7) = (TT=PAR) - L.TURP                                        PAR         3436     A     
 PAR      *                (A1) = LASTAD                                                   PAR         3437     A     
 PAR      *                (A2) _ TT=PAR                                                   PAR         3438     A     
 PAR      *                                                                                PAR         3439     A     
 PAR      *         USES   A1,A2  X0                                                       PAR         3440     A     
 PAR                                                                                       PAR         3441     A     
 PAR       COR      SUBR               ENTRY/EXIT...                                       PAR         3442     A     
 PAR                BX0    X1                                                              PAR         3443     A     
 PAR                IFBIT  X0,-INTR,EXIT.    IF NOT INTERMEDIATE                           PAR         3444     A     
 PAR                SA2    TT=PAR                                                          PAR         3445     A     
 PAR                AX1    P.JPAD                                                          PAR         3446     A     
 PAR                SX7    X2-L.TURP                                                       PAR         3447     A     
 PAR                IX0    X1-X7                                                           PAR         3448     A     
 PAR                SA1    LASTAD                                                          PAR         3449     A     
 PAR                EQ     EXIT.                                                           PAR         3450     A     
 PAR       CT2      SPACE  4,8                                                             PAR         3451     A     
 PAR      **        CT2 -  CONVERT TAG TO PASS *2* FORM                                    PAR         3452     A     
 PAR      *                                                                                PAR         3453     A     
 PAR      *         ENTRY  (X1) = SYMBOL TABLE TAG ENTRY                                   PAR         3454     A     
 PAR      *                                                                                PAR         3455     A     
 PAR      *         EXIT   (X6) = PASS *2* FORM OF TAG                                     PAR         3456     A     
 PAR      *                                                                                PAR         3457     A     
 PAR      *         USES   X0,X1,X2,X3,X6                                                  PAR         3458     A     
 PAR                                                                                       PAR         3459     A     
 PAR                                                                                       PAR         3460     A     
 PAR       CT2      SUBR               ENTRY/EXIT...                                       PAR         3461     A     
 PAR                =X0    M.EQUIV                                                         PAR         3462     A     
 PAR                SA3    PAS2MF                                                          PAR         3463     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1300    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                BX0    X0*X1                                                           PAR         3464     A     
 PAR                LX2    X1                                                              PAR         3465     A     
 PAR                BX6    X3*X1                                                           PAR         3466     A     
 PAR                LX0    P.2EQUIV-P.EQUIV                                                PAR         3467     A     
 PAR                BX6    X6+X0                                                           PAR         3468     A     
 PAR                IFBIT  X2,-FP,EXIT.      IF NOT *FP*                                   PAR         3469     A     
 PAR                                                                                       PAR         3470     A     
 PAR                MX0    -L.FPNO                                                         PAR         3471     A     
 PAR                SBIT   X2,FPNO/FP+1                                                    PAR         3472     A     
 PAR                BX2    -X0*X2      EXTRACT SYMBOL TABLE *FP* FIELD                     PAR         3473     A     
 PAR                LX2    P.2FPNO                                                         PAR         3474     A     
 PAR                BX6    X6+X2       ADD IN *FP* FIELD                                   PAR         3475     A     
 PAR                EQ     EXIT.                                                           PAR         3476     A     
 PAR                                                                                       PAR         3477     A     
 PAR       PAS2MF   SYMASK (TAG,MODE)                                                      PAR         3478     A     
 PAR       FAL      SPACE  4,8                                                             PAR         3479     A     
 PAR      **        FAL - FLUSH ARGUMENT LOAD TURPLES ACCUMULATED IN TT.SCR.               PAR         3480     A     
 PAR      *                                                                                PAR         3481     A     
 PAR      *         ENTRY  (ARGCOMA) = 6/0,18/TT=SCR,18/ACM,18/0                           PAR         3482     A     
 PAR      *                            TT=SCR = TT.SCR LENGTH AT *(*.                      PAR         3483     A     
 PAR      *                (TT=SCR) = CURRENT LENGTH OF TT.SCR.                            PAR         3484     A     
 PAR      *                                                                                PAR         3485     A     
 PAR      *         EXIT   (TT=SCR) = COLLAPSED TO SIZE AT *(*.                            PAR         3486     A     
 PAR      *                *TURPLES* MOVED TO PARSED TABLE.                                PAR         3487     A     
 PAR      *                                                                                PAR         3488     A     
 PAR      *         USES   A1,A2,A6 X3,X4                                                  PAR         3489     A     
 PAR      *                                                                                PAR         3490     A     
 PAR      *         CALLS  ALLOC, MOVE                                                     PAR         3491          I
          -FEAT126C 
 PAR      *         CALLS  ALC, MVE.                                                       FEAT126C     162     A     
 PAR                                                                                       PAR         3492     A     
 PAR                                                                                       PAR         3493     A     
 PAR       FAL      SUBR               ENTRY/EXIT...                                       PAR         3494     A     
 PAR                SA1    SCR+1                                                           PAR         3495     A     
 PAR                SA2    TT=SCR                                                          PAR         3496     A     
 PAR                AX1    36                                                              PAR         3497     A     
 PAR                IX4    X2-X1       WC                                                  PAR         3498     A     
 PAR                ZR     X4,EXIT.    IF NO TURPLES TO MOVE                               PAR         3499     A     
 PAR                ALLOC  TT.PAR,X4                                                       PAR         3500     A     
 PAR                SA1    SCR+1                                                           PAR         3501     A     
 PAR                SA2    TT.SCR                                                          PAR         3502     A     
 PAR                AX1    36                                                              PAR         3503     A     
 PAR                SX3    B7                                                              PAR         3504     A     
 PAR                IX2    X1+X2       SOURCE ADDRESS                                      PAR         3505     A     
 PAR                IX3    X3-X4       DESTINATION ADDRESS                                 PAR         3506     A     
 PAR                SHRINK TT=SCR,X1   COLLAPSE SCRATCH TABLE                              PAR         3507     A     
 PAR                MVE    X4,X2,X3    MOVE *TURPLES* TO PARSED TABLE                      PAR         3508     A     
 PAR                EQ     EXIT.                                                           PAR         3509     A     
 PAR       SDM      EJECT                                                                  PAR         3510     A     
 PAR      **        SDM -  SET DOMINANT MODE                                               PAR         3511     A     
 PAR      *                                                                                PAR         3512     A     
 PAR      *         ENTRY  (X3) = OPERATOR.                                                PAR         3513     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1301    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR      *                (X4) = 1ST OPERAND                                              PAR         3514     A     
 PAR      *                (X5) = 2ND OPERAND                                              PAR         3515     A     
 PAR      *                                                                                PAR         3516     A     
 PAR      *         EXIT   *SDM* SETS UP THE FOLLOWING CELLS/FIELDS.                       PAR         3517     A     
 PAR      *                1. *DMOD* FIELD IN OPERATOR.                                    PAR         3518     A     
 PAR      *                2. *MODC* FIELD IN OPERATOR.                                    PAR         3519     A     
 PAR      *                3. *SMOD* CELL.                                                 PAR         3520     A     
 PAR      *                                                                                PAR         3521     A     
 PAR      *         *SMOD* = 24/0,18/POINT,18/MODE.                                        PAR         3522     A     
 PAR      *                POINT = 0 IF BOTH OPERANDS ARE OF THE SAME MODE.                PAR         3523     A     
 PAR      *                      = 1 IF 1ST  OPERAND IS DOMINANT MODE.                     PAR         3524     A     
 PAR      *                      = 2 IF 2ND  OPERAND IS DOMINANT MODE.                     PAR         3525     A     
 PAR      *                                                                                PAR         3526     A     
 PAR      *         *SMOD1* = MODTBL ENTRY (IF CONVERSION NECESSARY)                       FEAT126C     163     A     
 PAR                                                                                       FEAT126C     164     A     
 PAR      *         SUBFIELD *MODC* =0                                                     PAR         3527     A     
 PAR      *                                                                                PAR         3528     A     
 PAR      *         (X3) = (X6) = (SOPR)= UPDATED OPERATOR.                                PAR         3529     A     
 PAR      *                                                                                PAR         3530     A     
 PAR      *         USES   A1,A2,A3  X0,X7  B2,B3,B7                                       PAR         3531     A     
 PAR                                                                                       PAR         3532     A     
 PAR                                                                                       PAR         3533     A     
 PAR       SDMXA    SA6    SOPR        RESET OPERATOR WITH SKELETON MODE OFFSET            PAR         3534     A     
 PAR                NO                                                                     PAR         3535     A     
 PAR                BX3    X6                                                              PAR         3536     A     
 PAR                                                                                       PAR         3537     A     
 PAR       SDM      SUBR               ENTRY/EXIT...                                       PAR         3538     A     
 PAR                LX0    X3                                                              PAR         3539     A     
 PAR                IFBIT  X0,-MODLS,SDM3                                                  PAR         3540     A     
 PAR                                                                                       PAR         3541     A     
 PAR      **        HERE IF OPERATOR IS MODELESS.                                          PAR         3542     A     
 PAR                                                                                       PAR         3543     A     
 PAR                MX0    -L.MODE                                                         PAR         3544     A     
 PAR                BX6    -X0*X4      MODE BITS FROM 1ST OPERAND                          PAR         3545     A     
 PAR                MX1    L.MODC+L.DMOD                                                   PAR         3546     A     
 PAR                SA6    SMOD                                                            PAR         3547     A     
 PAR                LX1    P.MODC+L.MODC                                                   PAR         3548     A     
 PAR                BX6    -X1*X3      ZERO TO DMOD AND MODC FIELDS.                       PAR         3549     A     
 PAR                EQ     SDMXA       EXIT..                                              PAR         3550     A     
 PAR                                                                                       PAR         3551     A     
 PAR      **        FIND DOMINANT MODE.                                                    PAR         3552     A     
 PAR                                                                                       PAR         3553     A     
 PAR       SDM3     SB3    B0                                                              PAR         3554     A     
 PAR                MX0    -L.MODE                                                         PAR         3555     A     
 PAR                SB7    X3-O.SLP                                                        PAR         3556     A     
 PAR                BX1    -X0*X4      1ST OPERAND MODE BITS.                              PAR         3557     A     
 PAR                SB2    X3-O.=                                                          PAR         3558     A     
 PAR                NZ     B7,SDM5     IF NOT SPECIAL OPERATOR                             PAR         3559     A     
 PAR                BX6    X1                                                              PAR         3560     A     
 PAR                MX0    L.MODC+L.DMOD                                                   PAR         3561     A     
 PAR                SA6    SMOD                                                            PAR         3562     A     
 PAR                LX0    P.MODC+L.MODC                                                   PAR         3563     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1302    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                BX6    -X0*X3                                                          PAR         3564     A     
 PAR                EQ     SDMXA       EXIT..                                              PAR         3565     A     
 PAR                                                                                       PAR         3566     A     
 PAR       SDM5     LX7    X1                                                              PAR         3567     A     
 PAR                BX2    -X0*X5      2ND OPERAND MODE BITS.                              PAR         3568     A     
 PAR                LX6    X2                                                              PAR         3569     A     
 PAR                IX3    X1-X2                                                           PAR         3570     A     
 PAR                ZR     X3,SDM10    IF 1ST = 2ND                                        PAR         3571     A     
 PAR                =B3    2                                                               PAR         3572     A     
 PAR                MI     X3,SDM10    IF 2ND = DOMINANT MODE.                             PAR         3573     A     
 PAR                ZR     B2,SDM10    IF OPERATOR IS *=*                                  PAR         3574     A     
 PAR                BX7    X2                                                              PAR         3575     A     
 PAR                =B3    1                                                               PAR         3576     A     
 PAR                LX6    X1          1ST    = DOMINANT MODE.                             PAR         3577     A     
 PAR                                                                                       PAR         3578     A     
 PAR      **        HERE WITH                                                              PAR         3579     A     
 PAR      *         (B3) = POINTER                                                         PAR         3580     A     
 PAR      *              = 0 = NO MODE CONVERSION.                                         PAR         3581     A     
 PAR      *              = 1 = 1ST IS DOMINANT MODE.                                       PAR         3582     A     
 PAR      *              = 2 = 2ND IS DOMINANT MODE.                                       PAR         3583     A     
 PAR      *         (X6) = DOMINANT MODE. (WHICH IS ASSUMED TO BE THE RESULTANT            PAR         3584     A     
 PAR      *                                MODE OF THE OPERATION.)                         PAR         3585     A     
 PAR      *         (X6) = DOMINANT MODE.                                                  PAR         3586     A     
 PAR      *         (X7) = MODE OF OPERAND TO BE CONVERTED.                                PAR         3587     A     
 PAR                                                                                       PAR         3588     A     
 PAR       SDM10    SX1    B3                                                              PAR         3589     A     
 PAR                SX2    B2+X7       CHECK FOR OPR *=* WITH 1ST MODELESS                 PAR         3590          I
          -FCC0519
 PAR                NZ     X2,SDM11    IF NOT                                              PAR         3591          I
          -FCC0519
 PAR                SA2    AMODTBL                                                         PAR         3592          I
          -FCC0519
 PAR                EQ     SDM11A                                                          PAR         3593          I
          -FCC0519
 PAR       SDM11    SA2    X7+MODTBL   RELATIVE TO MODE TO BE CONVERTED                    PAR         3594          I
          -FCC0519
 PAR       SDM11A   SX7    X6                                                              PAR         3595          I
          -FCC0519
 PAR                SA2    X7+MODTBL   RELATIVE TO MODE TO BE CONVERTED                    FCC0519        5     A     
 PAR                SX7    X6                                                              FCC0519        6     A     
 PAR                LX1    18          POINTER FOR *SMOD*                                  PAR         3596     A     
 PAR                LX7    3           8*DOMINANT MODE.                                    PAR         3597     A     
 PAR                IX6    X1+X6       ADD IN DOMINANT MODE FOR *SMOD*                     PAR         3598     A     
 PAR                SB2    X7          SHIFT COUNT FOR DOMINANT MODE.                      PAR         3599     A     
 PAR                MX0    -8          LENGTH OF EACH ENTRY IN MCTBL.                      PAR         3600     A     
 PAR                AX1    B2,X2                                                           PAR         3601     A     
 PAR                SA3    SOPR                                                            PAR         3602     A     
 PAR                BX2    -X0*X1      ONLY 8 BITS FOR EACH MODE.                          PAR         3603     A     
 PAR                LX7    X2                                                              PAR         3604          I
          -FCC0519
 PAR                SA1    X3+=XCHARMAP                                                    FCC0519        7     A     
 PAR                SB7    =XDUC.BTH                                                       FCC0519        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1303    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SB7    -B7                                                             FCC0519        9     A     
 PAR                SB7    B7+X1                                                           FCC0519       10     A     
 PAR                ZR     B7,SDM11    IF NOT UNARY OPERATOR                               FCC0519       11     A     
 PAR                =X2    0                                                               FCC0519       12     A     
 PAR       SDM11    LX7    X2                                                              FCC0519       13     A     
 PAR                NZ     X2,SDM12    IF MODE CONVERSION NECESSARY                        PAR         3605     A     
 PAR                SX6    X6          INDICATE NO MODE CONVERSION                         PAR         3606     A     
 PAR       SDM12    SA7    SMOD1                                                           PAR         3607     A     
 PAR                =A6    A7-SMOD1+SMOD                                                   PAR         3608     A     
 PAR                MX7    -L.MODC                                                         PAR         3609     A     
 PAR                SB7    X2-377B                                                         PAR         3610     A     
 PAR                LX7    P.MODC                                                          PAR         3611     A     
 PAR                NZ     B7,SDM31    IF NO MODE CONVERSION ERROR                         PAR         3612     A     
 PAR                                                                                       PAR         3613     A     
 PAR      **        HERE IF MODE CONVERSION IS ILLEGAL                                     PAR         3614     A     
 PAR                                                                                       PAR         3615     A     
 PAR                FATAL  E.AT1       LOGICAL AND NON LOGICAL OPERANDS MIXED              PAR         3616     A     
 PAR                SA3    SOPR                                                            PAR         3617     A     
 PAR                EQ     SDM32                                                           PAR         3618     A     
 PAR                                                                                       PAR         3619     A     
 PAR      *         (B2) = SHIFT COUNT FOR DOMINANT MODE.                                  PAR         3620     A     
 PAR                                                                                       PAR         3621     A     
 PAR       SDM31    BX6    X7*X3       ZERO MODC FIELD IN OPERATOR                         PAR         3622     A     
 PAR                AX3    P.JPAD                                                          PAR         3623     A     
 PAR                LX2    P.MODC                                                          PAR         3624     A     
 PAR                SA1    X3          DOMINANT MODE TABLE FOR OPERATION.                  PAR         3625     A     
 PAR                AX3    B2,X1                                                           PAR         3626     A     
 PAR                                                                                       PAR         3627     A     
 PAR      **        RESET OPERATOR JUMP OR LOAD ADDRESS RELATIVE TO DOMINANT MODE.         PAR         3628     A     
 PAR                                                                                       PAR         3629     A     
 PAR                BX0    -X0*X3                                                          PAR         3630     A     
 PAR                SB7    X0-377B                                                         PAR         3631     A     
 PAR                LX0    P.JPAD                                                          PAR         3632     A     
 PAR                IX6    X6+X0       SET OPERATOR RELATIVE TO DOMINANT MODE.             PAR         3633     A     
 PAR                MI     B7,SDMXA    IF OPERTION DEFINED FOR THIS MODE.                  PAR         3634          I
          -FCC0519
 PAR                MI     B7,SDMXA    IF OPERATION DEFINED FOR THIS MODE                  FCC0519       14     A     
 PAR                BX3    -X3                                                             PAR         3635          I
          -FCC1046
 PAR                FATAL  X3+E.AT                                                         PAR         3636          I
          -FCC1046
 PAR                FATAL  E.AT1A                                                          FCC1046       28     A     
 PAR                SA3    SOPR                                                            PAR         3637     A     
 PAR       SDM32    MX0    60-18       ON ERROR,CLEAR MODE                                 PAR         3638     A     
 PAR                SA1    SMOD        CONVERSION FLAG FROM SMOD                           PAR         3639     A     
 PAR                BX7    -X0*X1                                                          PAR         3640     A     
 PAR                SA7    SMOD                                                            PAR         3641          I
          -FCC1046
 PAR                SA7    A1                                                              FCC1046       29     A     
 PAR                =X0    1                                                               FCC1046       30     A     
 PAR                LX0    P.MODLS                                                         FCC1046       31     A     
 PAR                BX6    X0+X3       RESET OPERATOR MODELESS IF ERROR                    FCC1046       32     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1304    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA6    SOPR1                                                           FCC1046       33     A     
 PAR                EQ     EXIT.       (ERROR)                                             PAR         3642     A     
 PAR                SPACE  4                                                               PAR         3643          I
          -FEAT126C 
 PAR       OMC      SPACE  4,8                                                             FEAT126C     165     A     
 PAR      **        OMC - OUTPUT MODE CONVERSION TURPLE                                    PAR         3644     A     
 PAR      *                                                                                PAR         3645     A     
 PAR      *         ENTRY  (X3) = OPERATOR                                                 PAR         3646     A     
 PAR      *                (X4) = 1ST OPERAND                                              PAR         3647     A     
 PAR      *                (X5) = 2ND OPERAND                                              PAR         3648     A     
 PAR      *                (SMOD) = 24/0,18/DOMINANT OPERAND,18/DOMINANT MODE              PAR         3649     A     
 PAR      *                (SMOD1) = OFFSET TO MODECON                                     PAR         3650     A     
 PAR      *                                                                                PAR         3651     A     
 PAR      *         EXIT   (X3) = PRESERVED                                                PAR         3652     A     
 PAR      *                (X4) = MODE CONVERSION INTERMEDIATE IF DOMINANT MODE            PAR         3653     A     
 PAR      *                            OPERAND =2, OTHERWISE PRESERVED                     PAR         3654     A     
 PAR      *                (X5) = MODE CONVERSION INTERMEDIATE IF DOMINANT MODE            PAR         3655     A     
 PAR      *                            OPERAND=1, OTHERWISE PRESERVED                      PAR         3656     A     
 PAR      *                (SMOD) = 42/0, 18/DOMINANT MODE                                 PAR         3657     A     
 PAR      *                                                                                PAR         3658     A     
 PAR      *         USES   CANNOT DESTROY B4,B5,B6 X3,X4,X5                                PAR         3659     A     
 PAR      *                X4,X5 MAY BE REPLACED BY MODE CONV. INTERMEDIATE                PAR         3660     A     
 PAR      *                                                                                PAR         3661     A     
 PAR      *                                                                                PAR         3662     A     
 PAR      *         GENERAL SMOD(18-35)   = 0  EXIT. (NO CONVERSION)                       PAR         3663     A     
 PAR      *                               = 1  CONVERT ARG IN X5 TO DOMINANT MODE          PAR         3664     A     
 PAR      *                               = 2  CONVERT ARG IN X4 TO DOMINANT MODE          PAR         3665     A     
 PAR      *         DOMINANT MODE IS IN SMOD(0-17)                                         PAR         3666     A     
 PAR      *                                                                                PAR         3667     A     
 PAR      *                SMOD1 = OFFSET TO MODECON FOR CORRECT SKELETON                  PAR         3668     A     
 PAR      *                            ADDRESS, CALCULATED BY *SDM*.                       PAR         3669     A     
 PAR      *                                                                                PAR         3670     A     
 PAR      *                                                                                PAR         3671     A     
 PAR       OMC      SUBR               ENTRY/EXIT...                                       PAR         3672     A     
 PAR                SA1    SMOD                                                            PAR         3673          I
          -FCC1638X 
 PAR                =B7    X1-M.DBL                                                        FCC0539       14          I
          -FCC1638X 
 PAR                SA2    SMOD                                                            FCC1638X      25     A     
 PAR                SX7    X2          (X7) MODE OF DOMINANT OPERAND                       FCC1638X      26     A     
 PAR                =B3    X2-M.DBL                                                        FCC1638X      27     A     
 PAR                BX6    X3                                                              PAR         3674     A     
 PAR                AX1    18          X1 = ARG. NUMBER OF DOMINANT MODE                   PAR         3675          I
          -FCC1638X 
 PAR                AX2    18          X2 = ARG. NUMBER OF DOMINANT MODE                   FCC1638X      28     A     
 PAR                SA6    OMCA        SAVE *X3*                                           PAR         3676     A     
 PAR                ZR     X1,EXIT.    IF NO MODE CONVERSION REQUIRED.                     PAR         3677          I
          -FCC1638X 
 PAR                SB7    X3-O.=                                                          FCC1638X      29     A     
 PAR                MX0    -L.MODE                                                         FCC1638X      30     A     
 PAR                BX6    -X0*X4      (X6) = MODE OF OPERAND TO BE CONVERTED              FCC1638X      31     A     
 PAR      *                            IF OPERATOR IS *=*                                  FCC1638X      32     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1305    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SX1    2R =                                                            FCC1638X      33     A     
 PAR                LX1    8*CHAR                                                          FCC1638X      34     A     
 PAR                ZR     X2,OMC03    IF NO MODE CONVERSION REQUIRED                      FCC1638X      35     A     
 PAR                NZ     B7,OMC05    IF NOT *=* OPERATOR                                 FCC1638X      36     A     
 PAR                SB2    X7-M.CPLX                                                       FCC1638X      37     A     
 PAR                ZR     B2,OMC08    IF DOMINANT MODE COMPLEX                            FCC1638X      38     A     
 PAR                SB2    X6-M.CPLX                                                       FCC1638X      39     A     
 PAR                ZR     B2,OMC08    IF OPERAND TO BE CONVERTED COMPLEX                  FCC1638X      40     A     
 PAR                EQ     OMC10                                                           FCC1638X      41     A     
 PAR                                                                                       FCC1638X      42     A     
 PAR       OMC03    NZ     B7,EXIT.    IF NOT *=* OPERATOR                                 FCC1638X      43     A     
 PAR                SB2    X7-M.REAL                                                       FCC1638X      44     A     
 PAR                NZ     B2,EXIT.    IF DOMINANT MODE NOT REAL                           FCC1638X      45     A     
 PAR                SB2    X6-M.CPLX                                                       FCC1638X      46     A     
 PAR                ZR     B2,OMC08    IF OPERAND TO BE CONVERTED COMPLEX                  FCC1638X      47     A     
 PAR                EQ     EXIT.                                                           FCC1638X      48     A     
 PAR                                                                                       FCC1638X      49     A     
 PAR       OMC05    =B2    X2-1                                                            FCC1638X      50     A     
 PAR                BX1    X5                                                              FCC1638X      51     A     
 PAR                ZR     B2,OMC07    IF OPERAND IS IN X5                                 FCC1638X      52     A     
 PAR                BX1    X4          OPERAND IS IN X4                                    FCC1638X      53     A     
 PAR       OMC07    SB7    X3-O.LP                                                         FCC1638X      54     A     
 PAR                PL     B7,OMC10    IF OPERATOR GREATER THEN O.DIV                      FCC1638X      55     A     
 PAR                SB7    X3-O.PL                                                         FCC1638X      56     A     
 PAR                MI     B7,OMC10    IF OPERATOR LESS THEN O.PL                          FCC1638X      57     A     
 PAR                BX6    -X0*X1      (X6) MODE OF OPERAND TO BE CONVERTED                FCC1638X      58     A     
 PAR                SA1    X6+MODTBL   RELATIVE TO MODE TO BE CONVERTED                    FCC1638X      59     A     
 PAR                SB2    X7          SHIFT COUNT FOR DOMINANT MODE                       FCC1638X      60     A     
 PAR                LX6    B2,X1                                                           FCC1638X      61     A     
 PAR                PL     X6,OMC10    IF NO ANSI ERROR                                    FCC1638X      62     A     
 PAR                SX1    X3+2R +-O.PL EXPECTS O.PL=4,O.MIN=5,O.MULT=6,O.DIV=7            FCC1638X      63     A     
 PAR                LX1    8*CHAR                                                          FCC1638X      64     A     
 PAR       OMC08    BX6    X1                                                              FCC1638X      65     A     
 PAR                SA6    FILL.                                                           FCC1638X      66     A     
 PAR                ANSI   E.ANS3      THE TYPE COMBINATION OF THE OPERANDS                FCC1638X      67     A     
 PAR      *                            IS NON-ANSI                                         FCC1638X      68     A     
 PAR                ZR     X2,EXIT.    IF NO MODE CONVERSION REQUIRED                      FCC1638X      69     A     
 PAR                                                                                       FCC0539       15     A     
 PAR      *         CHECK IF OPERAND TO CONVERT IS INTEGER CONSTANT.                       FCC0539       16     A     
 PAR      *         IF IT IS - THEN LET CONRED DO IT.                                      FCC0539       17     A     
 PAR                                                                                       FCC0539       18     A     
 PAR                ZR     B7,OMC2     IF DOMINANT MODE DOUBLE                             FCC0539       19          I
          -FCC1638X 
 PAR                =B2    X1-1                                                            FCC0539       20          I
          -FCC1638X 
 PAR                BX2    X5                                                              FCC0539       21          I
          -FCC1638X 
 PAR                ZR     B2,OMC1     IF OPERAND IS IN X5                                 FCC0539       22          I
          -FCC1638X 
 PAR                BX2    X4          OPERAND IS IN X4                                    FCC0539       23          I
          -FCC1638X 
 PAR                                                                                       FCC0539       24          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1306    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          -FCC1638X 
 PAR       OMC10    ZR     B3,OMC2     IF DOMINANT MODE DOUBLE                             FCC1638X      70     A     
 PAR       OMC1     SB7    X2-M.INT                                                        FCC0539       25          I
          -FCC1638X 
 PAR                SB7    X2-M.INT                                                        FCC1638X      71     A     
 PAR                AX2    P.TGB                                                           FCC0539       26     A     
 PAR                SB2    X2-C.CON/1S13                                                   FCC0539       27     A     
 PAR                NO                                                                     FCC0539       28     A     
 PAR                SB7    B2+B7                                                           FCC0539       29     A     
 PAR                NO                                                                     FCC0539       30     A     
 PAR                ZR     B7,EXIT.    IF OPERAND IS INTEGER CONSTANT                      FCC0539       31     A     
 PAR                                                                                       FCC0539       32     A     
 PAR                BX7    X5                                                              PAR         3678          I
          -FCC0539
 PAR       OMC2     BX7    X5                                                              FCC0539       33     A     
 PAR                LX6    X4                                                              PAR         3679     A     
 PAR                =A7    A6+1        SAVE *X5*                                           PAR         3680          I
          -FCC1638X 
 PAR                SA7    OMCA+1      SAVE *X5*                                           FCC1638X      72     A     
 PAR                BX4    0           DUMMY ARG FOR MODE CONVERSION                       PAR         3681     A     
 PAR                SX7    MODECON     BASE ADDRESS OF CONVERSION SKELETONS                PAR         3682     A     
 PAR                SA2    SMOD1       CONVERSION OFFSET TO MODECON                        PAR         3683     A     
 PAR                =X3    O.MODC      MODE CONVERSION OPERATOR                            PAR         3684     A     
 PAR                IX5    X2+X7       SKELETON ADDRESS FOR MODE CONVERSION                PAR         3685     A     
 PAR                =A6    A7+1        SAVE *X4*                                           PAR         3686     A     
 PAR                SA1    SMOD        DOMINANT MODE                                       FCC1638X      73     A     
 PAR                AX1    18          X1 = ARG. NUMBER OF DOMINANT MODE                   FCC1638X      74     A     
 PAR                LX5    P.JPAD                                                          PAR         3687     A     
 PAR                IX6    X5+X3       FULL MODE CONVERSION OPERATOR.                      PAR         3688     A     
 PAR                SA5    X1+OMCA     OPERAND TO CONVERT                                  PAR         3689     A     
 PAR                SA2    X1+OMC.RC                                                       PAR         3690     A     
 PAR                BX3    X6                                                              PAR         3691     A     
 PAR                BX7    X2                                                              PAR         3692     A     
 PAR                SA6    SOPR        SET SOPR WITH CURRENT OPERATOR                      PAR         3693     A     
 PAR                SA7    OMC.RR      SET UP RESTORE WORD                                 PAR         3694     A     
 PAR                =B6    B6+1        DUMMY FOR *ADT* RESET USE TO TT.PAR                 PAR         3695     A     
 PAR                RJ     ADT         PUT OUT CONVERSION TURPLE TO TT.PAR                 PAR         3696     A     
 PAR                SA2    SMOD                                                            PAR         3697          I
          -FCC0539
 PAR                SA2    SMOD        CLEAR DOMINANT OPERAND                              FCC0539       34     A     
 PAR                MX4    60-18                                                           FCC0539       35     A     
 PAR                SA3    OMCA        RESTORE *X3*                                        PAR         3698     A     
 PAR                LX7    X2                                                              PAR         3699          I
          -FCC0539
 PAR                LX4    18                                                              FCC0539       36     A     
 PAR                BX6    X3                                                              PAR         3700     A     
 PAR                SA7    A2          RESET *SMOD* TO DOMIN MODE                          PAR         3701          I
          -FCC0539
 PAR                BX7    X4*X2                                                           FCC0539       37     A     
 PAR                SA6    SOPR        RESET OPERATOR                                      PAR         3702     A     
 PAR                SA7    A2                                                              FCC0539       38     A     
 PAR                                                                                       PAR         3703     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1307    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR       OMC.RR   BSS    1           ** FILLED **                                        PAR         3704     A     
 PAR                EQ     EXIT.                                                           PAR         3705     A     
 PAR                                                                                       PAR         3706     A     
 PAR      **        SKELETON RESTORE REGISTER WORDS.                                       PAR         3707     A     
 PAR                                                                                       PAR         3708     A     
 PAR       OMC.X5   =A4    OMCA+2      RESTORE *X4*                                        PAR         3709     A     
 PAR                SA5    B6-1        RESET *X5* TO CONVERSION INTERMEDIATE               PAR         3710     A     
 PAR       OMC.X4   SA4    B6-1        RESET *X4* TO CONVERSION INTERMEDIATE               PAR         3711     A     
 PAR                =A5    OMCA+1      RESTORE *X5*                                        PAR         3712     A     
 PAR                                                                                       PAR         3713     A     
 PAR       OMC.RC   EQU    OMC.X5-1                                                        PAR         3714     A     
 PAR                                                                                       PAR         3715     A     
 PAR       OMCA     BSS    3                                                               PAR         3716     A     
 PAR       SMM      SPACE  4,30                                                            PAR         3717     A     
 PAR      **        SMM -  SET MODE OF MASKING/LOGICAL OPERATOR                            PAR         3718     A     
 PAR      *                .AND. - .OR. - .NOT.                                            PAR         3719     A     
 PAR      *                                                                                PAR         3720     A     
 PAR      *         ENTRY  (X3) = OPERATOR                                                 PAR         3721     A     
 PAR      *                (X4) = 1ST OPERAND                                              PAR         3722     A     
 PAR      *                (X5) = 2ND OPERAND                                              PAR         3723     A     
 PAR      *                                                                                PAR         3724     A     
 PAR      *         EXIT   (SMOD) = RESULTANT MODE OF OPERATION                            PAR         3725     A     
 PAR      *                (X3)   = (SOPR) = MODC, MODM BITS SET.                          PAR         3726     A     
 PAR      *                (X4)   = PRESERVED.                                             PAR         3727     A     
 PAR      *                (X5)   = PRESERVED.                                             PAR         3728     A     
 PAR      *                                                                                PAR         3729     A     
 PAR      *         GENERAL -                                                              PAR         3730     A     
 PAR      *                IF 1OP AND 2OP = LOGICAL                                        PAR         3731     A     
 PAR      *                            OPERATION PERFORMED AS MODELESS, RESULTANT          PAR         3732     A     
 PAR      *                            MODE SET TO LOGICAL.                                PAR         3733     A     
 PAR      *                                                                                PAR         3734     A     
 PAR      *                IF ONLY ONE OPERAND IS LOGICAL                                  PAR         3735     A     
 PAR      *                            ILLEGAL USE OF LOGICAL OPERAND.                     PAR         3736     A     
 PAR      *                                                                                PAR         3737     A     
 PAR      *                IF 1OP AND 2OP = LOGICAL                                        PAR         3738          I
          -FEAT126C 
 PAR      *                IF 1OP AND 2OP " LOGICAL                                        FEAT126C     166     A     
 PAR      *                            OPERATION PERFORMED AS MODELESS, RESULTANT          PAR         3739     A     
 PAR      *                            MODE SET TO MODELESS.                               PAR         3740     A     
 PAR                                                                                       PAR         3741     A     
 PAR                                                                                       PAR         3742     A     
 PAR       SMM      SUBR               ENTRY/EXIT...                                       PAR         3743     A     
 PAR                BX0    X4-X5                                                           PAR         3744     A     
 PAR                MX2    -L.MODE                                                         PAR         3745     A     
 PAR                BX1    -X2*X0                                                          PAR         3746     A     
 PAR                =X7    M.UNIV                                                          PAR         3747     A     
 PAR                BX6    -X2*X4                                                          PAR         3748     A     
 PAR                ZR     X1,SMM5     IF NOT MIXED MODE                                   PAR         3749     A     
 PAR                                                                                       PAR         3750     A     
 PAR      **        MIXED MODE - CHECK IF ILLEGAL USE OF LOGICALS.                         PAR         3751     A     
 PAR                                                                                       PAR         3752     A     
 PAR                BX1    -X2*X5                                                          PAR         3753     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1308    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                =X2    X6-M.LOG                                                        PAR         3754     A     
 PAR                =X7    M.UNIV                                                          PAR         3755     A     
 PAR                =X0    X1-M.LOG                                                        PAR         3756     A     
 PAR                ZR     X2,SMM3     IF 1ST LOGICAL     - ERROR                          PAR         3757     A     
 PAR                NZ     X0,SMM10    IF 2ND NOT LOGICAL - RESULTS = MODELESS             PAR         3758          I
          -FCC0498
 PAR                NZ     X0,SMM6     IF 2ND NOT LOGICAL - RESULTS = MODELESS             FCC0498       41     A     
 PAR       SMM3     FATAL  E.AT1       ILLEGAL USE OF LOGICAL OPERAND                      PAR         3759     A     
 PAR                =X7    M.LOG                                                           PAR         3760     A     
 PAR                EQ     SMM10       CONTINUE                                            PAR         3761     A     
 PAR                                                                                       PAR         3762     A     
 PAR      **        MO MIXED MODE, CHECK IF DOMINANT MODE = LOGICAL.                       PAR         3763     A     
 PAR      *         (X6) = MODE BITS FROM 1ST OPERAND                                      PAR         3764     A     
 PAR      *         (X7) = M.UNIV                                                          PAR         3765     A     
 PAR                                                                                       PAR         3766     A     
 PAR       SMM5     SB7    X6-M.LOG                                                        PAR         3767     A     
 PAR                NZ     B7,SMM10    IF DOMINANT MODE NOT LOGICAL                        PAR         3768          I
          -FCC0498
 PAR                NZ     B7,SMM6     IF DOMINANT MODE NOT LOGICAL                        FCC0498       42     A     
 PAR                BX7    X6          SET = LOGICAL                                       PAR         3769     A     
 PAR                EQ     SMM10                                                           FCC0498       43     A     
 PAR                                                                                       FCC0498       44     A     
 PAR       SMM6     ANSI   =XE.AT7                                                         FCC0498       45     A     
 PAR                                                                                       FCC0498       46     A     
 PAR                                                                                       PAR         3770     A     
 PAR      **        SET *SMOD* AND OPERATOR WORD WITH CORRECT MODE BITS.                   PAR         3771     A     
 PAR                                                                                       PAR         3772     A     
 PAR       SMM10    MX1    L.MODC+L.DMOD                                                   PAR         3773     A     
 PAR                LX1    P.MODC+L.MODC                                                   PAR         3774     A     
 PAR                BX6    -X1*X3                                                          PAR         3775     A     
 PAR                SA7    SMOD                                                            PAR         3776     A     
 PAR                SA6    SOPR                                                            PAR         3777     A     
 PAR                BX3    X6                                                              PAR         3778     A     
 PAR                EQ     EXIT.                                                           PAR         3779     A     
 PAR       SQZ      EJECT                                                                  PAR         3780     A     
 PAR      **        SQZ -  SQUEEZE OPERATION IF POSSIBLE.                                  PAR         3781     A     
 PAR      *                                                                                PAR         3782     A     
 PAR      *         CHECK TO SEE IF CURRENT TURPLE HAS ALREADY BEEN POPPED.                PAR         3783     A     
 PAR      *         IF FOUND                                                               PAR         3784     A     
 PAR      *                SET *ESTACK* ENTRY = TO INTERMEDIATE ORDINAL OF                 PAR         3785     A     
 PAR      *                TURPLE THAT MATCHED AND EXIT SETTING B2 \ 0.                    PAR         3786     A     
 PAR      *                                                                                PAR         3787     A     
 PAR      *         IF NOT FOUND                                                           PAR         3788     A     
 PAR      *                SET B2 < 0 AND EXIT.                                            PAR         3789     A     
 PAR      *                                                                                PAR         3790     A     
 PAR      *         ENTRY  (X3) = CURRENT OPERATOR.                                        PAR         3791     A     
 PAR      *                (X4) = 1ST OPERAND.                                             PAR         3792     A     
 PAR      *                (X5) = 2ND OPERAND.                                             PAR         3793     A     
 PAR      *                                                                                PAR         3794     A     
 PAR      *         EXIT   (B2) > 0 SQUEEZE PERFORMED.                                     PAR         3795     A     
 PAR      *                                                                                PAR         3796     A     
 PAR      *         USES   A1,A2,A6  X0,X7  B2,B3,B5,B7                                    PAR         3797     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1309    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                                                                                       PAR         3798     A     
 PAR                                                                                       PAR         3799     A     
 PAR       SQZ      SUBR               ENTRY/EXIT...                                       PAR         3800     A     
 PAR                SA2    BINOUT                                                          PAR         3801     A     
 PAR                SA1    TT.PAR                                                          PAR         3802     A     
 PAR                =B2    -1          INDICATE NO SQUEEZE PERFORMED                       PAR         3803     A     
 PAR                PL     X2,EXIT.    IF BINARY SUPPRESS - NO SQUEEZE                     PAR         3804     A     
 PAR                SA2    TT=PAR                                                          PAR         3805     A     
 PAR                IX0    X1+X2       LWA+1                                               PAR         3806     A     
 PAR                SA2    CURST                                                           PAR         3807     A     
 PAR                =B3    X0-L.TURP   LAST OPERATOR                                       PAR         3808     A     
 PAR                IX0    X1+X2                                                           PAR         3809     A     
 PAR                =B5    X0+OR.OPR   FWA                                                 PAR         3810     A     
 PAR                                                                                       PAR         3811     A     
 PAR      **        BACKWARD SCAN OF PARSED FILE FOR MATCHING TURPLE.                      PAR         3812     A     
 PAR                                                                                       PAR         3813     A     
 PAR       SQZ5     SA1    B3          LOAD NEXT OPERATOR                                  PAR         3814     A     
 PAR                LT     B3,B5,EXIT. IF FINISHED                                         PAR         3815     A     
 PAR                BX6    X1-X3                                                           PAR         3816     A     
 PAR                =B3    B3-L.TURP                                                       PAR         3817     A     
 PAR                BX0    X3          SAVE OPERATOR                                       PAR         3818     A     
 PAR                =A2    A1+OR.2OP   2ND OPERAND                                         PAR         3819     A     
 PAR                ZR     X6,SQZ7     IF OPERATOR THE SAME                                PAR         3820     A     
 PAR                SB7    X1-O.=                                                          PAR         3821     A     
 PAR                NZ     B7,SQZ5     IF NOT TRYING TO PASS BY *=*                        PAR         3822     A     
 PAR                BX0    X2-X5                                                           PAR         3823     A     
 PAR                IX7    X2-X4                                                           PAR         3824     A     
 PAR                NO                                                                     PAR         3825     A     
 PAR                BX0    X0*X7                                                           PAR         3826     A     
 PAR                NZ     X0,SQZ5     IF NOT RESETTING VALUE OF ONE OF OPERANDS           PAR         3827     A     
 PAR                =B2    -1                                                              PAR         3828     A     
 PAR                EQ     EXIT.                                                           PAR         3829     A     
 PAR                                                                                       PAR         3830     A     
 PAR      **        OPERATOR IS THE SAME,  CHECK 2ND OPERAND.                              PAR         3831     A     
 PAR      *         (X0) = OPERATOR.                                                       PAR         3832     A     
 PAR                                                                                       PAR         3833     A     
 PAR       SQZ7     IX7    X2-X5                                                           PAR         3834     A     
 PAR                BX6    X1          SAVE OPERATOR                                       PAR         3835     A     
 PAR                NZ     X7,SQZ5     IF 2ND OPERAND NOT THE SAME                         PAR         3836     A     
 PAR                                                                                       PAR         3837     A     
 PAR      **        2ND OPERAND IS A MATCH,  CHECK 1ST OPERAND.                            PAR         3838     A     
 PAR                                                                                       PAR         3839     A     
 PAR                =A1    A2+OR.1OP-OR.2OP                                                PAR         3840     A     
 PAR                IX2    X1-X4                                                           PAR         3841     A     
 PAR                SB7    X3-O.=                                                          PAR         3842     A     
 PAR                ZR     X2,SQZ40    IF MATCH, ELIMINATE                                 PAR         3843     A     
 PAR                NZ     B7,SQZ5     IF NOT PROCESSING AN *=* OPERATION.                 PAR         3844     A     
 PAR                BX0    X4                                                              PAR         3845     A     
 PAR                IFBIT  X0,-INTR,SQZ5                                                   PAR         3846     A     
 PAR                SA1    TT.PAR                                                          PAR         3847     A     
 PAR                AX0    P.TAG-P.INTR-1                                                  PAR         3848     A     
 PAR                IX0    X1+X0                                                           PAR         3849     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1310    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA1    X0                                                              PAR         3850     A     
 PAR                SB7    X1-O.=                                                          PAR         3851     A     
 PAR                NZ     B7,SQZ5     IF NOT AN *=* INTERMEDIATE.                         PAR         3852     A     
 PAR                                                                                       PAR         3853     A     
 PAR      **        ELIMINATE RIGHT OPERAND IN CASES LIKE --                               PAR         3854     A     
 PAR      *         C=B=C=2.0, WHERE *C* DOES NOT NEED TO BE RESET MORE THAN ONCE.         PAR         3855     A     
 PAR                                                                                       PAR         3856     A     
 PAR                =B2    0           INDICATE SQUEEZE.                                   PAR         3857     A     
 PAR       TEST     IFNE   TEST                                                            PAR         3858     A     
 PAR                RJ     SN.SQZ                                                          PAR         3859     A     
 PAR       TEST     ENDIF                                                                  PAR         3860     A     
 PAR                =B6    B6-1        ELIMINATE OPERANDS.                                 PAR         3861     A     
 PAR                EQ     EXIT.                                                           PAR         3862     A     
 PAR                                                                                       PAR         3863     A     
 PAR      **        ELIMINATE TURPLE,  SQUEEZED PERFORMED.                                 PAR         3864     A     
 PAR                                                                                       PAR         3865     A     
 PAR       SQZ40    ZR     B7,SQZ5     IF *=* OPERATOR                                     PAR         3866     A     
 PAR                AX6    P.DMOD                                                          PAR         3867     A     
 PAR                SA2    ATTR        ATTRIBUTES FOR OPERAND RESULTS                      PAR         3868     A     
 PAR                MX0    -L.DMOD                                                         PAR         3869     A     
 PAR                SA1    TT.PAR                                                          PAR         3870     A     
 PAR                =X3    M.INTR                                                          PAR         3871     A     
 PAR                BX5    -X0*X6      DOMINANT MODE                                       PAR         3872     A     
 PAR                IX3    X2+X3       INTER + ATTRIBUTES                                  PAR         3873     A     
 PAR                =B2    X1-L.TURP                                                       PAR         3874     A     
 PAR                SX4    B3-B2       ORDINAL                                             PAR         3875     A     
 PAR                IX6    X3+X5       ORDINAL + MODE                                      PAR         3876     A     
 PAR                LX4    P.TAG                                                           PAR         3877     A     
 PAR                NO                                                                     PAR         3878     A     
 PAR                IX6    X4+X6       ORDINAL + MODE + INTERMEDIATE BIT.                  PAR         3879     A     
 PAR                SA6    B6-2        SQUEEZE OPERATION TO ESTACK.                        PAR         3880     A     
 PAR                =B6    B6-1                                                            PAR         3881     A     
 PAR       TEST     IFNE   TEST                                                            PAR         3882     A     
 PAR                RJ     SN.SQZ                                                          PAR         3883     A     
 PAR       TEST     ENDIF                                                                  PAR         3884     A     
 PAR                EQ     EXIT.                                                           PAR         3885     A     
 PAR       TEST     IFNE   TEST                                                            PAR         3886     A     
 PAR       SN.SQZ   SPACE  4,8                                                             PAR         3887     A     
 PAR      **        SN.SQZ - NOTIFY OF SQUEEZE OPERATION PERFORMED.                        PAR         3888     A     
 PAR      *                                                                                PAR         3889     A     
 PAR      *         ENTRY  (B3)+L.TURP _ OPERATOR THAT WAS SQUEEZED.                       PAR         3890     A     
 PAR      *                                                                                PAR         3891     A     
 PAR      *         EXIT   (A1) DESTROYED.                                                 PAR         3892     A     
 PAR      *                                                                                PAR         3893     A     
 PAR      *         USES   DESTROYS *A1* ONLY...                                           PAR         3894     A     
 PAR                                                                                       PAR         3895     A     
 PAR                                                                                       PAR         3896     A     
 PAR       SN.SQZ   SUBR   0                                                               PAR         3897     A     
 PAR                SA1    CO.SNAP                                                         PAR         3898     A     
 PAR                LX1    1RQ                                                             PAR         3899     A     
 PAR                PL     X1,SN.SQZX  IF PARSED SNAPS NOT REQUESTED.                      PAR         3900     A     
 PAR                RJ     =XSVR                                                           PAR         3901     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1311    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
 PAR                SA3    =XSVB+3                                                         PAR         3902     A     
 PAR                SA2    TT.PAR                                                          PAR         3903     A     
 PAR                IX0    X3-X2                                                           PAR         3904     A     
 PAR                SX1    X0+L.TURP                                                       PAR         3905     A     
 PAR                RJ     COD         CONVERT TO OCTAL                                    PAR         3906     A     
 PAR                LX6    3*CHAR      4 DIGITS TO HIGH ORDER                              PAR         3907     A     
 PAR                MX0    4*CHAR                                                          PAR         3908     A     
 PAR                SA1    TT=PAR                                                          PAR         3909     A     
 PAR                BX4    X0*X6                                                           PAR         3910     A     
 PAR                RJ     COD         CONVERT TO OCTAL                                    PAR         3911     A     
 PAR                MX0    -6*CHAR                                                         PAR         3912     A     
 PAR                LX6    8*CHAR                                                          PAR         3913     A     
 PAR                BX5    -X0*X6      EXTRACT LOWER 6 DIGITS                              PAR         3914     A     
 PAR                BX6    X5+X4                                                           PAR         3915     A     
 PAR                SA6    SQZOPR                                                          PAR         3916     A     
 PAR                SA1    SOPR                                                            PAR         3917     A     
 PAR                SA2    X1+CHARMAP                                                      PAR         3918     A     
 PAR                MX0    L.CDPC                                                          PAR         3919     A     
 PAR                BX6    X0*X2                                                           PAR         3920     A     
 PAR                SA6    SQZBUFC     OPERATOR SQUEEZED.                                  PAR         3921     A     
 PAR                PLINE  SQZBUF                                                          PAR         3922     A     
 PAR                RJ     =XRSR                                                           PAR         3923     A     
 PAR                EQ     SN.SQZX     EXIT..                                              PAR         3924     A     
 PAR                                                                                       PAR         3925     A     
 PAR      **        SQZ LINE BUFFER.                                                       PAR         3926     A     
 PAR                                                                                       PAR         3927     A     
 PAR       SQZBUF   DATA   10H                                                             PAR         3928     A     
 PAR                DATA   10H OPERATOR                                                    PAR         3929     A     
 PAR                DIS    1,SQUEEZE AT                                                    PAR         3930     A     
 PAR       SQZOPR   DATA   0                                                               PAR         3931     A     
 PAR                DIS    1, OPERATOR                                                     PAR         3932     A     
 PAR       SQZBUFC  DATA   0                                                               PAR         3933     A     
 PAR       TEST     ENDIF                                                                  PAR         3934     A     
 PAR       ENTRY    SPACE  4,8                                                             PAR         3935     A     
 PAR                LIST   D                                                               PAR         3936     A     
 PAR                END                                                                    PAR         3937     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PAR     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PAR                       3937      3640
          FCC0498                     16        16
          FCC0519                     11        11
          FCC0539                     25        17
          FCC0585                      5         5
          FCC0616                      5         5
          FEAT126C                    17        17
          FCC0683                      3         3
          FCC0718                      9         9
          FCC0744                      3         3
          FCC0787                     67        66
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1312    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PAR     
  
          FCC0794                      2         2
          FCC0813                      1         1
          FCC0844                      3         3
          FCC0878                     30        30
          FCC0963                      1         1
          FCC1011                      1         1
          FCC0966                      3         3
          FCC1007                      7         7
          FCC1046                      7         7
          FCC1062                      2         2
          FCC1134                      1         1
          FCC1293                      7         7
          FCC1294                     16        16
          FCC1299                      8         8
          FCC1453                      1         1
          FCC1495AX                    2         2
          FCC1616X                     1         1
          FCC1638X                    66        66
          FCC1709X                     1         1
          FCC1716X                     7         7
          FCC1801X                     3         3
          FCC1886                      3         3
          FCC1901                     18        18
          FCCA468                      4         4
          FCC2078                      2         2
          FCC2184                      5         5
          FCC2196                      1         1
          FCC2174                      6         6
          FCCA533                      6         6
          FCC2291                      3         3
          FCC2307                      4         4
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED   *DECK     CONRED                                                                 CONRED         1     A     
 CONRED             IDENT  CONRED                                                          CONRED         2     A     
 CONRED    CONRED   SECT   (COMPLILE TIME ARITHMETIC PROCESSOR.),1                         CONRED         3     A     
 CONRED                                                                                    CONRED         4     A     
 CONRED             SST    B,D,EXIT.                                                       CONRED         5     A     
 CONRED             NOREF  B,D,EXIT.                                                       CONRED         6     A     
 CONRED                                                                                    CONRED         7     A     
 CONRED    B=CON    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             CONRED         8     A     
 CONRED                                                                                    CONRED         9     A     
 CONRED             ENTRY  TER1,TER2,LCT,CCC,CCR,CMC,CMO                                   CONRED        10          I
          -FCC0539
 CONRED             ENTRY  TER1,TER2,LCT,CCC,CIR,CCR,CMC,CMO                               FCC0539       39          I
          -FCC0696
 CONRED             ENTRY  TER1,TER2,LCT,CCC,CCR,CMC,CMO                                   FCC0696        4          I
          -FCC0787
 CONRED             ENTRY  TER1,TER2,LCT,CCR,CMC,CMO                                       FCC0787      126     A     
 CONRED                                                                                    CONRED        11     A     
 CONRED   *         IN FTN                                                                 CONRED        12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1313    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             EXT    CO.RND                                                          CONRED        13     A     
 CONRED                                                                                    CONRED        14     A     
 CONRED   *         IN TABLES                                                              CONRED        15     A     
 CONRED             EXT    CONF,CONZER,DIVP2,IMULT2,MINUS.M,PLUS.M,SHFC,SHFD,SHFDS         CONRED        16     A     
 CONRED             EXT    SHFSA,SHFS,TS.CON                                               CONRED        17     A     
 CONRED                                                                                    CONRED        18     A     
 CONRED   *         IN ERRORS                                                              CONRED        19     A     
 CONRED             EXT    CON.DPC,E.CR1,E.CR2,E.CR3,E.CR3A,E.CR4,E.CR5,E.CR6              CONRED        20     A     
 CONRED             EXT    E.CR7,E.DC10,E.DC11,E.DC12,FILL.                                CONRED        21          I
          -FCC0539
 CONRED             EXT    E.CR7,E.CR8,E.CR9,E.CR10,E.DC10,E.DC11,E.DC12,FILL.             FCC0539       40          I
          -FCC0787
 CONRED             EXT    E.CR7,E.CR8,E.CR9,E.CR10,FILL.                                  FCC0787      127     A     
 CONRED                                                                                    CONRED        22     A     
 CONRED   *         IN ALLOC                                                               CONRED        23     A     
 CONRED             EXT    NCS                                                             CONRED        24     A     
 CONRED                                                                                    CONRED        25     A     
 CONRED   *         IN PAR                                                                 CONRED        26     A     
 CONRED             EXT    SMOD,SOPR                                                       CONRED        27     A     
 CONRED                                                                                    CONRED        28     A     
 CONRED   *         IN GEN                                                                 CONRED        29     A     
 CONRED             EXT    MULT.R                                                          CONRED        30     A     
 CONRED                                                                                    CONRED        31     A     
 CONRED   *         IN INIT                                                                CONRED        32     A     
 CONRED             EXT    SCR                                                             CONRED        33     A     
 CONRED                                                                                    CONRED        34     A     
 CONRED    CCR      EJECT  4,30                                                            CONRED        35     A     
 CONRED    CCR      EJECT  4,30                                                            CONRED        36     A     
 CONRED   **        CCR -  CHECK FOR POSSIBLE CONSTANT REDUCTION.                          CONRED        37     A     
 CONRED   *                                                                                CONRED        38     A     
 CONRED   *                     GENERAL PURPOSE ROUTINE TO REDUCE SIMPLE                   CONRED        39     A     
 CONRED   *                OPERATOR COMBINATIONS USING EITHER  --                          CONRED        40     A     
 CONRED   *                            A.  PLUS            (PLC SECTION.)                  CONRED        41     A     
 CONRED   *                            B.  MINUS           (MIC SECTION.)                  CONRED        42     A     
 CONRED   *                            C.  MULTIPLY        (MUC SECTION.)                  CONRED        43     A     
 CONRED   *                            D.  DIVIDE          (DIC SECTION.)                  CONRED        44     A     
 CONRED   *                                                                                CONRED        45     A     
 CONRED   *                WITH MODE OF OPERATION BEING EITHER  --                         CONRED        46     A     
 CONRED   *                            A. UNIVERSAL                                        CONRED        47     A     
 CONRED   *                            B. INTEGER.                                         CONRED        48     A     
 CONRED   *                            C. REAL                                             CONRED        49     A     
 CONRED   *                                                                                CONRED        50     A     
 CONRED   *                ALSO HANDLIES IMPLIED REDUCTIONS.  (IE. A=0/X)                  CONRED        51     A     
 CONRED   *                AND OUTPUTS ERRORS FOR *END* CASES.(IE OVERFLOW)                CONRED        52     A     
 CONRED   *                                                                                CONRED        53     A     
 CONRED   *         ENTRY  (X4)    = 1ST OPERAND.                                          CONRED        54     A     
 CONRED   *                (X5)    = 2ND OPERAND.                                          CONRED        55     A     
 CONRED   *                (SOPR)  = CURRENT OPERATOR.                                     CONRED        56     A     
 CONRED   *                (SMOD)  = DOMINANT MODE.                                        CONRED        57     A     
 CONRED   *                                                                                CONRED        58     A     
 CONRED   *         EXIT   (X6) = 0 NO REDUCTION PERFORMED.                                CONRED        59     A     
 CONRED   *                     " 0 RESULTS OF PERFORMED REDUCTION.                        CONRED        60     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1314    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED   *                (X4,X5) = PRESERVED.                                            CONRED        61     A     
 CONRED   *                                                                                CONRED        62     A     
 CONRED   *                (B3) =-1       NO CONSTANT.                                     CONRED        63     A     
 CONRED   *                     = 0   1ST IS CONSTANT.                                     CONRED        64     A     
 CONRED   *                     = 1   2ND IS CONSTANT                                      CONRED        65     A     
 CONRED   *                                                                                CONRED        66     A     
 CONRED   *         USES   CANNOT DESTORY  A7  B4,B5,B6  X4,X5                             CONRED        67     A     
 CONRED   *                (X4,X5 CAN BE ALTERED IF EXPRESSION IS REDUCED.)                CONRED        68     A     
 CONRED   *         CELLS  (SCR TO SCR+3)                                                  CONRED        69     A     
 CONRED   *                                                                                CONRED        70     A     
 CONRED   *         CALLS  LCT - TO LOAD PROPOSED CONSTANT IN BINARY FORM.                 CONRED        71     A     
 CONRED   *                CMC - CHECK IF CONSTANT CAN BE CONVERTED TO MODE OF             CONRED        72     A     
 CONRED   *                      EXPRESSION.                                               CONRED        73     A     
 CONRED   *                NCS - ENTER REDUCED CONSTANT INTO TS.CON.                       CONRED        74     A     
 CONRED   *                PCA - PROCESS ACTUAL ARITHMETIC REDUCTIONS.                     CONRED        75     A     
 CONRED                                                                                    CONRED        76     A     
 CONRED                                                                                    CONRED        77     A     
 CONRED    CCR0     SX6    0                                                               FCC0539       41     A     
 CONRED             SA3    SOPR                                                            FCC0539       42     A     
 CONRED                                                                                    FCC0539       43     A     
 CONRED    CCR      SUBR               ENTRY/EXIT...                                       CONRED        78     A     
 CONRED             SA1    SMOD                                                            CONRED        79     A     
 CONRED             SA2    ="CCRMOD"                                                       CONRED        80     A     
 CONRED             BX6    0                                                               CONRED        81     A     
 CONRED             SB2    X1                                                              CONRED        82     A     
 CONRED             SA6    TER2                                                            CONRED        83     A     
 CONRED             SA1    SOPR                                                            CONRED        84     A     
 CONRED             SA6    CONF        INDICATE NO CONSTANT IN TURPLE                      CONRED        85     A     
 CONRED             LX0    B2,X2                                                           CONRED        86     A     
 CONRED             SA2    ="CCROPS"                                                       CONRED        87     A     
 CONRED             =B3    -1                                                              CONRED        88     A     
 CONRED             PL     X0,EXIT.    IF NOT REDUCABLE MODE. - EXIT..                     CONRED        89     A     
 CONRED             SB2    X1                                                              CONRED        90     A     
 CONRED             LX0    B2,X2                                                           CONRED        91     A     
 CONRED             PL     X0,EXIT.    IF NOT REDUCABLE OPERATOR. - EXIT..                 CONRED        92          I
          -FCC0539
 CONRED             MI     X0,CCR1     IF REDUCABLE OPERATOR                               FCC0539       44     A     
 CONRED             SX0    B2                                                              FCC0539       45     A     
 CONRED             SB2    B2-O.=                                                          FCC0539       46     A     
 CONRED             NZ     B2,EXIT.    IF NOT EQUALS - EXIT                                FCC0539       47     A     
 CONRED             BX1    X4                                                              FCC0539       48     A     
 CONRED             RJ     LCT                                                             FCC0539       49     A     
 CONRED             SB7    B1                                                              FCC0539       50     A     
 CONRED             ZR     B2,CCR0     IF NOT A CONSTANT                                   FCC0539       51     A     
 CONRED             SB2    X0-M.INT                                                        FCC0539       52     A     
 CONRED             NZ     B2,CCR0     IF NOT INTEGER - EXIT                               FCC0539       53     A     
 CONRED             BX2    X4                                                              FCC0696        5     A     
 CONRED             RJ     CIR         CHECK IF CONVERSION REQUIRED                        FCC0539       54     A     
 CONRED             IX4    X7+X4                                                           FCC0539       55          I
          -FCC0696
 CONRED             BX4    X2                                                              FCC0696        6     A     
 CONRED             EQ     CCR0        EXIT                                                FCC0539       56     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1315    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED                                                                                    CONRED        93     A     
 CONRED   **        REDUCABLE OPERATOR FOUND, MODE IS UNIV, INTEGER OR REAL.               CONRED        94     A     
 CONRED   *         CHECK FOR CONSTANTS AS OPERANDS                                        CONRED        95     A     
 CONRED                                                                                    CONRED        96     A     
 CONRED             BX1    X4                                                              CONRED        97          I
          -FCC0539
 CONRED    CCR1     BX1    X4                                                              FCC0539       57     A     
 CONRED             RJ     LCT         GET 1ST CONSTANT                                    CONRED        98     A     
 CONRED             ZR     B2,CCR10    IF  1ST NOT CONSTANT                                CONRED        99     A     
 CONRED             SB7    1                                                               FCC0539       58          I
          -FCC0696
 CONRED             =B7    1                                                               FCC0696        7     A     
 CONRED             BX2    X4                                                              FCC0696        8     A     
 CONRED             RJ     CIR         CHECK IF LEGAL INTEGER                              FCC0539       59     A     
 CONRED             IX4    X7+X4                                                           FCC0539       60          I
          -FCC0696
 CONRED             BX4    X2                                                              FCC0696        9     A     
 CONRED             BX1    X6                                                              CONRED       100     A     
 CONRED             SA6    TER1                                                            CONRED       101     A     
 CONRED             RJ     COC         CHECK IF CONSTANT IN RANGE                          CONRED       102     A     
 CONRED             PL     B7,CCR.RX   IF OUT OF RANGE                                     CONRED       103     A     
 CONRED             BX1    X5                                                              CONRED       104     A     
 CONRED             SX3    B2                                                              CONRED       105          I
          -FCC0539
 CONRED             =B3    0                                                               CONRED       106     A     
 CONRED             RJ     LCT         GET 2ND CONSTANT                                    CONRED       107     A     
 CONRED             SA1    TER1        RELOAD 1ST TERM BINARY                              CONRED       108     A     
 CONRED             ZR     B2,CCR15    IF 2ND NOT CONSTANT, 1ST IS                         CONRED       109     A     
 CONRED             SB7    2                                                               FCC0539       61          I
          -FCC0696
 CONRED             =B7    2                                                               FCC0696       10     A     
 CONRED             BX2    X5                                                              FCC0696       11     A     
 CONRED             RJ     CIR         CHECK IF LEGAL INTEGER                              FCC0539       62     A     
 CONRED             IX5    X7+X5                                                           FCC0539       63          I
          -FCC0696
 CONRED             BX5    X2                                                              FCC0696       12     A     
 CONRED             BX3    X6                                                              CONRED       110     A     
 CONRED             LX1    X6                                                              CONRED       111     A     
 CONRED             RJ     COC         CHECK IF CONSTANT IN RANGE                          CONRED       112     A     
 CONRED             NZ     X1,CCR6     IF NOT ZERO                                         CONRED       113     A     
 CONRED             SA4    SOPR                                                            CONRED       114     A     
 CONRED             SB3    X4-O.DIV                                                        CONRED       115     A     
 CONRED             NZ     B3,CCR7     IF NOT DIVIDE                                       CONRED       116     A     
 CONRED             =B3    1                                                               CONRED       117     A     
 CONRED             EQ     CCR15                                                           CONRED       118     A     
 CONRED                                                                                    CONRED       119     A     
 CONRED    CCR6     PL     B7,CCR.RX   IF OUT OF RANGE                                     CONRED       120     A     
 CONRED                                                                                    CONRED       121     A     
 CONRED   **        HERE WHEN BOTH OPERANDS ARE CONSTANTS.                                 CONRED       122     A     
 CONRED   *         REDUCE EXPRESSION AT COMPILE TIME.                                     CONRED       123     A     
 CONRED                                                                                    CONRED       124     A     
 CONRED    CCR7     SA4    =XARGMODE                                                       CONRED       125     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1316    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             SB2    =XA=DO                                                          CONRED       126     A     
 CONRED             SB7    X4                                                              CONRED       127     A     
 CONRED             SB7    B7-B2                                                           CONRED       128     A     
 CONRED             NZ     B7,CCR8     NOT PROCESSING DO                                   CONRED       129     A     
 CONRED             SA1    =XARGCOMA   DO INDEX NUMBER                                     CONRED       130     A     
 CONRED             SB7    X1                                                              CONRED       131          I
          -FCC0539
 CONRED             SB7    X1+                                                             FCC0539       64     A     
 CONRED             SA4    B7+=XDO.DPC DPC FOR CURRENT INDEX                               CONRED       132     A     
 CONRED             BX6    X4                                                              CONRED       133          I
          -FCC0539
 CONRED             SA1    FILL.                                                           CONRED       134     A     
 CONRED             BX6    X4                                                              FCC0539       65     A     
 CONRED             IX4    X6-X1                                                           CONRED       135     A     
 CONRED             ZR     X4,CCR8     IF MESSAGE JUST GIVEN                               CONRED       136     A     
 CONRED             SA6    A1                                                              CONRED       137     A     
 CONRED             ANSI   =XE.DO16    INDEX MUST BE SIMPLE INTEGER                        CONRED       138     A     
 CONRED    CCR8     SA1    TER1        =1ST CONSTANT                                       CONRED       139     A     
 CONRED             BX2    X3                                                              CONRED       140     A     
 CONRED             SA3    SOPR                                                            CONRED       141     A     
 CONRED             RJ     PCA         PERFORM COMPILE TIME REDUCTION                      CONRED       142     A     
 CONRED             EQ     EXIT.                                                           CONRED       143     A     
 CONRED                                                                                    CONRED       144     A     
 CONRED   **        HERE WHEN 1ST IS NOT A CONSTANT.                                       CONRED       145     A     
 CONRED                                                                                    CONRED       146     A     
 CONRED    CCR10    BX1    X5                                                              CONRED       147     A     
 CONRED             RJ     LCT         LOAD 2ND OPERAND.                                   CONRED       148     A     
 CONRED             SA6    TER2                                                            CONRED       149     A     
 CONRED             =B3    -1          INDICATE NO CONSTANTS.                              CONRED       150     A     
 CONRED             LX7    X6                                                              CONRED       151     A     
 CONRED             =X6    0           INDICATE NO CONSTANTS                               CONRED       152     A     
 CONRED             ZR     B2,EXIT.    IF NOT CONSTANT - EXIT..                            CONRED       153     A     
 CONRED             BX6    X7                                                              FCC0539       66     A     
 CONRED             SB7    2                                                               FCC0539       67          I
          -FCC0696
 CONRED             =B7    2                                                               FCC0696       13     A     
 CONRED             BX2    X5                                                              FCC0696       14     A     
 CONRED             RJ     CIR         CHECK IF LEGAL INTEGER                              FCC0539       68     A     
 CONRED             IX5    X7+X5                                                           FCC0539       69          I
          -FCC0696
 CONRED             BX5    X2                                                              FCC0696       15     A     
 CONRED             BX1    X7                                                              CONRED       154          I
          -FCC0539
 CONRED             BX1    X6                                                              FCC0539       70     A     
 CONRED             RJ     COC         CHECK FOR CONSTANT IN RANGE                         CONRED       155     A     
 CONRED             PL     B7,CCR.RX   IF OUT OF RANGE                                     CONRED       156     A     
 CONRED             BX1    X7                                                              CONRED       157          I
          -FCC0539
 CONRED             =B3    1           INDIATE 2ND = CONSTANT.                             CONRED       158     A     
 CONRED                                                                                    CONRED       159     A     
 CONRED   **        ONE OPERAND IS A CONSTANT - CHECK FOR LEGAL OPERATION                  CONRED       160     A     
 CONRED   *         INVOLVING CONSTANT OPERAND.                                            CONRED       161     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1317    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED   *                                                                                CONRED       162     A     
 CONRED   *         (X1) = BINARY OF CONSTANT                                              CONRED       163     A     
 CONRED   *                (X1) IS IN RANGE.                                               CONRED       164     A     
 CONRED   *                                                                                CONRED       165     A     
 CONRED   *         (B3) = 0 IF 1ST OPERAND IS A CONSTANT                                  CONRED       166     A     
 CONRED   *                1 IF 2ND OPERAND IS A CONSTANT                                  CONRED       167     A     
 CONRED                                                                                    CONRED       168     A     
 CONRED    CCR15    SA3    SOPR        CURRENT OPERATOR                                    CONRED       169     A     
 CONRED             SA2    X3+OPJTBL-O.PL                                                  CONRED       170     A     
 CONRED             BX6    0           INDICATE NO REDUCTION                               CONRED       171     A     
 CONRED                                                                                    CONRED       172     A     
 CONRED             SB7    X2                                                              CONRED       173     A     
 CONRED             SA2    SMOD                                                            CONRED       174     A     
 CONRED                                                                                    CONRED       175     A     
 CONRED   **        EXIT WITH                                                              CONRED       176     A     
 CONRED   *                (X1) = BINARY OF CONSTANT                                       CONRED       177     A     
 CONRED   *                (X2) = (SMOD)                                                   CONRED       178     A     
 CONRED                                                                                    CONRED       179     A     
 CONRED             JP     B7          JUMP TO OPERATOR USING CONSTANT                     CONRED       180     A     
 CONRED                                                                                    CONRED       181     A     
 CONRED    OPJTBL   CON    PLC         *+*                                                 CONRED       182     A     
 CONRED             CON    MIC         *-*                                                 CONRED       183     A     
 CONRED             CON    MUC         *                                                   CONRED       184     A     
 CONRED             CON    DIC         */*                                                 CONRED       185     A     
 CONRED    PLC      SPACE  4,8                                                             CONRED       186     A     
 CONRED   **        PLC - OPERATOR IS A PLUS.                                              CONRED       187     A     
 CONRED   *                                                                                CONRED       188     A     
 CONRED   *         A.  CHECK IF ADD OF *0* - NOTE MESSAGE TO PROGRAMMER.                  CONRED       189     A     
 CONRED   *         B.  CONVERT CONSTANT TO DOMINANT MODE.                                 CONRED       190     A     
 CONRED   *         C.  IF CONSTANT IS = (2**N-1) CHANGE OPERATOR TO MINUS AND             CONRED       191     A     
 CONRED   *             OPERAND TO -(2**N-1)                                               CONRED       192     A     
 CONRED                                                                                    CONRED       193     A     
 CONRED    PLC      NZ     X1,PLC5     IF NOT *0*                                          CONRED       194     A     
 CONRED             SB7    E.CR1                                                           CONRED       195     A     
 CONRED             EQ     CCR.EC      OUTP                                                CONRED       196     A     
 CONRED    PLC5     RJ     CMO         CHECK FOR MASK ADD                                  CONRED       197     A     
 CONRED             ZR     X6,CCR.IG   IF FAILURE                                          CONRED       198     A     
 CONRED             SA3    PLUS.M                                                          CONRED       199     A     
 CONRED             EQ     MIC10                                                           CONRED       200     A     
 CONRED    MIC      SPACE  4,8                                                             CONRED       201     A     
 CONRED   **        MIC - OPERATOR IS A MINUS.                                             CONRED       202     A     
 CONRED   *                                                                                CONRED       203     A     
 CONRED   *         A.  CHECK IF MINUS OF *0* - NOTE MESSAGE TO PROGRAMMER.                CONRED       204     A     
 CONRED   *         B.  CONVERT CONSTANT TO DOMINANT MODE.                                 CONRED       205     A     
 CONRED   *         C.  IF CONSTANT IS = (2**N-1) CHANGE OPERATOR TO PLUS AND              CONRED       206     A     
 CONRED   *             OPERAND TO -(2**N-1)                                               CONRED       207     A     
 CONRED                                                                                    CONRED       208     A     
 CONRED    MIC      NZ     X1,MIC5     IF NOT *0*                                          CONRED       209     A     
 CONRED             ZR     B3,CCR.IG   IF 0-I, NO REDUCTION                                CONRED       210     A     
 CONRED             SB7    E.CR1                                                           CONRED       211     A     
 CONRED             EQ     CCR.EC      OUTPUT NOTE                                         CONRED       212     A     
 CONRED    MIC5     RJ     CMO         CHECK FOR MASK ADD                                  CONRED       213     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1318    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             ZR     X6,CCR.IG   IF FAILURE                                          CONRED       214     A     
 CONRED             SA3    MINUS.M                                                         CONRED       215     A     
 CONRED    MIC10    BX7    X3                                                              CONRED       216     A     
 CONRED             LX5    X6                                                              CONRED       217     A     
 CONRED             SA7    SOPR                                                            CONRED       218     A     
 CONRED             =X6    0           INDICATE NO REDUCTION                               CONRED       219     A     
 CONRED             =B3    1                                                               CONRED       220     A     
 CONRED             EQ     EXIT.                                                           CONRED       221     A     
 CONRED    MUC      SPACE  4,8                                                             CONRED       222     A     
 CONRED   **        MUC -  OPERATOR IS A MULTIPLY.                                         CONRED       223     A     
 CONRED   *                                                                                CONRED       224     A     
 CONRED   *         A.  CHECK FOR MULTIPLY BY *0*. IF SO AND EXPRESSION IS NOT             CONRED       225     A     
 CONRED   *             INTEGER * REAL 0 - ELIMINATE MULTIPLY - SETTING RESULTS TO         CONRED       226     A     
 CONRED   *             *0*, OTHERWISE EXIT.                                               CONRED       227     A     
 CONRED   *                                                                                CONRED       228     A     
 CONRED   *         B.  CHECK FOR MULTIPLY BY *1*.  PERFORM SAME TESTS AS *A*              CONRED       229     A     
 CONRED   *             INTEGER * REAL 1 - ELIMINATE MULTIPLY. OTHERWISE EXIT.             CONRED       230     A     
 CONRED   *         C.  IF NO MODE CONVERSION IS SET AND MULTIPLY IS AN INTEGER            CONRED       231     A     
 CONRED   *             CALL *CSI* TO SEE IF MULTIPLY CAN BE CHANGED TO USE                CONRED       232     A     
 CONRED   *             *SHIFT* COMBINATION.                                               CONRED       233     A     
 CONRED   *                                                                                CONRED       234     A     
 CONRED   *         D.  CONVERT CONSTANT TO DOMINANT MODE.                                 CONRED       235     A     
 CONRED                                                                                    CONRED       236     A     
 CONRED                                                                                    CONRED       237     A     
 CONRED    MUC      NZ     X1,MUC10    IF CONSTANT NOT *0*                                 CONRED       238     A     
 CONRED             SB7    E.CR2                                                           CONRED       239     A     
 CONRED             EQ     CCR.E0      OUTPUT NOTE ERROR - SET RESULTS = 0                 CONRED       240     A     
 CONRED                                                                                    CONRED       241     A     
 CONRED    MUC10    =X7    1                                                               CONRED       242     A     
 CONRED             IX0    X7-X1                                                           CONRED       243     A     
 CONRED             NZ     X0,MUC20    IF NOT INTEGER *1*                                  CONRED       244     A     
 CONRED             SB7    E.CR5                                                           CONRED       245     A     
 CONRED             SA2    ARGMODE                                                         CONRED       246     A     
          -FCC0868  +FCC1514X 
 CONRED             SX0    X2                                                              CONRED       247     A     
          -FCC0868  +FCC1514X 
 CONRED             SX2    =XA=ARRAY                                                       CONRED       248     A     
          -FCC0868  +FCC1514X 
 CONRED             IX0    X0-X2                                                           CONRED       249     A     
          -FCC0868  +FCC1514X 
 CONRED             NZ     X0,CCR.EC   IF NOT TRANSPARENT TO USER REDUCTION                CONRED       250     A     
          -FCC0868  +FCC1514X 
 CONRED             =B7    0                                                               CONRED       251     A     
          -FCC0868  +FCC1514X 
 CONRED             EQ     CCR.EC      OUTPUT NOTE ERROR - SET RESULTS = NON CONS          CONRED       252     A     
 CONRED                                                                                    CONRED       253     A     
 CONRED    MUC20    BX0    X1                                                              CONRED       254     A     
 CONRED             SX6    1.0/1S42                                                        CONRED       255     A     
 CONRED             LX0    L.SHC                                                           CONRED       256     A     
 CONRED             IX7    X0-X6                                                           CONRED       257     A     
 CONRED             NZ     X7,MUC30    IF CONSTANT NOT *1.0*                               CONRED       258     A     
 CONRED             BX0    X2                                                              CONRED       259     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1319    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             SB7    E.CR5                                                           CONRED       260     A     
 CONRED             AX0    18                                                              CONRED       261     A     
 CONRED             NZ     X0,CCR.IG   IF OTHER OPERAND IS INTEGER - IGNORE                CONRED       262     A     
 CONRED             SA2    ARGMODE                                                         CONRED       263     A     
          -FCC0868  +FCC1514X 
 CONRED             SX0    X2                                                              CONRED       264     A     
          -FCC0868  +FCC1514X 
 CONRED             SX2    =XA=ARRAY                                                       CONRED       265     A     
          -FCC0868  +FCC1514X 
 CONRED             IX0    X0-X2                                                           CONRED       266     A     
          -FCC0868  +FCC1514X 
 CONRED             NZ     X0,CCR.EC   IF NOT TRANSPARENT TO USER REDUCTION                CONRED       267     A     
          -FCC0868  +FCC1514X 
 CONRED             =B7    0                                                               CONRED       268     A     
          -FCC0868  +FCC1514X 
 CONRED             EQ     CCR.EC      OUTPUT NOTE ERROR - SET RESULTS = NON CONS          CONRED       269     A     
 CONRED                                                                                    CONRED       270     A     
 CONRED    MUC30    =B7    X2-M.INT                                                        CONRED       271     A     
 CONRED             NZ     B7,CCR.IG   IF DOMINANT MODE NOT INTEGER                        CONRED       272     A     
 CONRED             BX6    X1          CONSTANT                                            CONRED       273     A     
 CONRED             RJ     CSI         CHECK FOR USE OF SHIFT MACRO                        CONRED       274     A     
 CONRED             BX6    0           INDICATE NOT REDUCED                                CONRED       275     A     
 CONRED             EQ     EXIT.                                                           CONRED       276     A     
 CONRED    DIC      SPACE  4,8                                                             CONRED       277     A     
 CONRED   **        DIC -  OPERATOR IS DIVIDE.                                             CONRED       278     A     
 CONRED   *                                                                                CONRED       279     A     
 CONRED   *         A.  CHECK FOR DIVIDE INTO *0*. SET RESULTS = 0.                        CONRED       280     A     
 CONRED   *                                                                                CONRED       281     A     
 CONRED   *         B.  CHECK FOR DIVIDE BY *0*.   SET RESULTS = INFINITE.                 CONRED       282     A     
 CONRED   *                                                                                CONRED       283     A     
 CONRED   *         C.  CHECK FOR DIVIDE BY *1*. IF NON-CONSTANT OPERAND NOT               CONRED       284     A     
 CONRED   *             INTEGER AND CONSTANT NOT REAL 1 - SET RESULTS = NON-CONST.         CONRED       285     A     
 CONRED   *                                                                                CONRED       286     A     
 CONRED   *         D.  CHECK FOR DIVIDE BY REAL CONSTANT INTO REAL CONSTANT.              CONRED       287     A     
 CONRED   *             IF SO AND *NOINVERT* IS NOT SET CHANGE CONSTANT TO 1/CONS          CONRED       288     A     
 CONRED   *             AND CHANGE OPERATOR TO MULTIPLY.                                   CONRED       289     A     
 CONRED   *                                                                                CONRED       290     A     
 CONRED   *         E.  IF DOMINANT MODE IS INTEGER AND 2ND OPERAND IS A CONSTANT,         CONRED       291     A     
 CONRED   *             CHECK IF CONSTANT IS A POWER OF 2.  IF SO CHANGE DIVIDE TO         CONRED       292     A     
 CONRED   *             *SHF2* OPERATOR TO PERFORM DIVIDE BY RIGHT SHIFT.                  CONRED       293     A     
 CONRED                                                                                    CONRED       294     A     
 CONRED                                                                                    CONRED       295     A     
 CONRED    DIC      NZ     X1,DIC10    IF CONSTANT NOT *0*                                 CONRED       296     A     
 CONRED             SB7    E.CR4                                                           CONRED       297     A     
 CONRED             ZR     B3,CCR.E0   IF DIVIDE INTO 0 (1ST OPERAND = 0)                  CONRED       298     A     
 CONRED                                                                                    CONRED       299          I
          -FCC0539
 CONRED    DIC3     SB2    X2-M.INT                                                        CONRED       300          I
          -FCC0539
 CONRED             SB2    X2-M.INT                                                        FCC0539       71     A     
 CONRED             SB7    E.CR3A                                                          CONRED       301     A     
 CONRED             ZR     B2,CCR.E0   IF INTEGER DIVIDE                                   CONRED       302     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1320    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED                                                                                    CONRED       303          I
          -FCC0539
 CONRED    DIC5     SX6    1777B                                                           CONRED       304          I
          -FCC0539
 CONRED             SX6    1777B                                                           FCC0539       72     A     
 CONRED             SX7    X2          MODE                                                CONRED       305     A     
 CONRED             LX6    48                                                              CONRED       306     A     
 CONRED             RJ     NCS         ENTER CONSTANT                                      CONRED       307     A     
 CONRED             BX2    X6                                                              CONRED       308     A     
 CONRED             SB7    E.CR3                                                           CONRED       309     A     
 CONRED             EQ     CCR.NE      OUTPUT FATAL ERROR - SET RESULTS = 1777BS42         CONRED       310     A     
 CONRED                                                                                    CONRED       311     A     
 CONRED    DIC10    ZR     B3,CCR.IG   IF SECOND OPERAND NOT CONSTANT                      CONRED       312     A     
 CONRED             =X7    1                                                               CONRED       313     A     
 CONRED             IX0    X7-X1                                                           CONRED       314     A     
 CONRED             NZ     X0,DIC15    IF CONSTANT NOT *1*                                 CONRED       315     A     
 CONRED             SB7    E.CR6                                                           CONRED       316     A     
 CONRED             EQ     CCR.EC      OUTPUT NOTE ERROR - SET RESULTS = NON CONST         CONRED       317     A     
 CONRED                                                                                    CONRED       318     A     
 CONRED    DIC15    BX0    X1                                                              CONRED       319          I
          -FCC1155
 CONRED             LX0    L.SHC                                                           CONRED       320          I
          -FCC1155
 CONRED             SB7    X0-1.0/1S42                                                     CONRED       321          I
          -FCC1155
 CONRED             NZ     B7,DIC20    IF CONSTANT NOT *1.0*                               CONRED       322          I
          -FCC1155
 CONRED    DIC15    SX0    1.0/1S42                                                        FCC1155        4     A     
 CONRED             LX0    P.SHC                                                           FCC1155        5     A     
 CONRED             IX0    X0-X1                                                           FCC1155        6     A     
 CONRED             NZ     X0,DIC20    IF CONSTANT NOT *1.0*                               FCC1155        7     A     
 CONRED             BX0    X2                                                              CONRED       323     A     
 CONRED             AX0    18                                                              CONRED       324     A     
 CONRED             NZ     X0,DIC20    IF MODE CONVERSION                                  CONRED       325     A     
 CONRED             SB7    E.CR6                                                           CONRED       326     A     
 CONRED             EQ     CCR.EC      OUTPUT NOTE ERROR - SET RESULTS = NON CONST         CONRED       327     A     
 CONRED                                                                                    CONRED       328     A     
 CONRED   **        CHECK IF DIVIDE CAN BE CHANGED TO A RECIPROCAL MULTIPLY.               CONRED       329     A     
 CONRED                                                                                    CONRED       330     A     
 CONRED    NOINVERT IFEQ   NOINVERT                                                        CONRED       331     A     
 CONRED    DIC20    BX0    X2                                                              CONRED       332     A     
 CONRED             AX0    18                                                              CONRED       333     A     
 CONRED             NZ     X0,CCR.IG   IF MODE CONVERSION                                  CONRED       334     A     
 CONRED             =B7    X2-M.INT                                                        CONRED       335     A     
 CONRED             NZ     B7,DIC22    IF DOMINANT MODE NOT *INTEGER*                      CONRED       336     A     
 CONRED             SX6    X1-1                                                            CONRED       337     A     
 CONRED             BX7    X1*X6                                                           CONRED       338     A     
 CONRED             NZ     X7,CCR.IG1  IF NOT POWER OF *2*                                 CONRED       339     A     
 CONRED             NX0,B7 X1                                                              CONRED       340     A     
 CONRED             SA3    DIVP2                                                           CONRED       341     A     
 CONRED             SB7    B7-47                                                           CONRED       342     A     
 CONRED             SX5    -B7                                                             CONRED       343     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1321    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             BX7    X3                                                              CONRED       344     A     
 CONRED             LX5    P.PTAGM                                                         CONRED       345     A     
 CONRED             =X6    0           INDICATE NO REDUCTION                               CONRED       346     A     
 CONRED             SA7    SOPR                                                            CONRED       347     A     
 CONRED             EQ     EXIT.                                                           CONRED       348     A     
 CONRED                                                                                    CONRED       349     A     
 CONRED    DIC22    =B7    X2-M.REAL                                                       CONRED       350     A     
 CONRED             NZ     B7,CCR.IG1  IF DOMINANT MODE NOT *REAL*                         CONRED       351     A     
 CONRED             BX6    X4                                                              CONRED       352     A     
 CONRED             SA6    SCR+2       SAVE 1ST OPERAND                                    CONRED       353     A     
 CONRED             BX7    X1                                                              CONRED       354     A     
 CONRED             LX6    X5                                                              CONRED       355     A     
 CONRED             SA1    =1.0                                                            CONRED       356     A     
 CONRED             =A6    A6+1        SAVE 2ND OPERAND                                    CONRED       357     A     
 CONRED             BX2    X7                                                              CONRED       358     A     
 CONRED             SA3    SOPR                                                            CONRED       359     A     
 CONRED             SA7    SCR         SAVE ORGINAL CONSTANT                               CONRED       360     A     
 CONRED             RJ     PCA         PERFORM DIVIDE                                      CONRED       361     A     
 CONRED             NZ     B7,DIC30    IF NO ERROR IN CONVERTING                           CONRED       362     A     
 CONRED                                                                                    CONRED       363     A     
 CONRED   **        IF ERROR IN CONVERTING TO RECIPROCAL                                   CONRED       364     A     
 CONRED                                                                                    CONRED       365     A     
 CONRED    DIC25    SA4    SCR+2       RELOAD OPERANDS                                     CONRED       366     A     
 CONRED             SA3    SOPR                                                            FCC0539       73     A     
 CONRED             =A5    A4+1                                                            CONRED       367     A     
 CONRED             SA3    SOPR                                                            CONRED       368          I
          -FCC0539
 CONRED             BX6    0                                                               CONRED       369     A     
 CONRED             EQ     EXIT.                                                           CONRED       370     A     
 CONRED                                                                                    CONRED       371     A     
 CONRED    DIC30    SA6    SCR+1       SAVE RESULTING TAG                                  CONRED       372     A     
 CONRED             SA1    RTER        LOAD RESULTS                                        CONRED       373     A     
 CONRED             =A2    A6-1        ORGINAL CONSTANT                                    CONRED       374     A     
 CONRED             SX3    O.MULT                                                          CONRED       375     A     
 CONRED             RJ     PCA         PERFORM MULTIPLY  (1/CON) * CON                     CONRED       376     A     
 CONRED             SA2    =1.0                                                            CONRED       377     A     
 CONRED             SA1    RTER                                                            CONRED       378     A     
 CONRED             IX6    X1-X2                                                           CONRED       379     A     
 CONRED             NZ     X6,DIC25    IF (1/CON) * CON  .NE. 1 - IGNORE                   CONRED       380     A     
 CONRED             SA5    SCR+1       RESULTING TAG                                       CONRED       381     A     
 CONRED             MX0    -L.SBPR                                                         CONRED       382     A     
 CONRED             =A4    A5+1                                                            CONRED       383     A     
 CONRED             SX1    MULT.R                                                          CONRED       384     A     
 CONRED             =X3    O.MULT                                                          CONRED       385     A     
 CONRED             LX1    P.JPAD                                                          CONRED       386     A     
 CONRED             IX6    X1+X3       CHANGE DIVIDE TO MULTIPLY                           CONRED       387     A     
 CONRED             SA6    SOPR                                                            CONRED       388     A     
 CONRED             BX3    X6                                                              CONRED       389     A     
 CONRED             =X6                                                                    CONRED       390     A     
 CONRED             EQ     EXIT.                                                           CONRED       391     A     
 CONRED    NOINVERT ELSE                                                                   CONRED       392     A     
 CONRED    DIC20    BSS    0                                                               CONRED       393     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1322    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED    NOINVERT ENDIF                                                                  CONRED       394     A     
 CONRED    CCR.IG   SPACE  4,8                                                             CONRED       395     A     
 CONRED   **        HERE IF NO CONSTANT REDUCTION.                                         CONRED       396     A     
 CONRED   *                                                                                CONRED       397     A     
 CONRED   *         CHECK FOR MODE CONVERSION AT COMPILE TIME OF CONSTANT.                 CONRED       398     A     
 CONRED   *         EXIT   (X6) ALWAYS = 0.                                                CONRED       399     A     
 CONRED                                                                                    CONRED       400     A     
 CONRED    CCR.IG   RJ     CMC                                                             CONRED       401     A     
 CONRED    CCR.IG1  =X6    0           INDICATE NO REDUCTION                               CONRED       402     A     
 CONRED             SA3    SOPR        RELOAD OPERATOR                                     CONRED       403     A     
 CONRED             EQ     EXIT.                                                           CONRED       404     A     
 CONRED    CONMESS  SPACE  4,8                                                             CONRED       405     A     
 CONRED   **        OUTPUT  FATAL/NOTE/WARNING MESSAGES INVOLVING CONSTANTS                CONRED       406     A     
 CONRED   *         USED AS OPERANDS.                                                      CONRED       407     A     
 CONRED   *                                                                                CONRED       408     A     
 CONRED   *         EXPRESSION REDUCES TO CONSTANT 0.                                      CONRED       409     A     
 CONRED   *         (X2) = (SMOD)                                                          CONRED       410     A     
 CONRED   *         (B7) = ERROR ADDRESS.                                                  CONRED       411     A     
 CONRED                                                                                    CONRED       412     A     
 CONRED    CCR.E0   SX0    X2          RESULTANT MODE ONLY                                 CONRED       413     A     
 CONRED             SA3    CONZER                                                          CONRED       414     A     
 CONRED             IX6    X3+X0       ZERO RESULTS.                                       CONRED       415     A     
 CONRED                                                                                    CONRED       416     A     
 CONRED   **        OUTPUT ERROR - EXIT..                                                  CONRED       417     A     
 CONRED   *         (X6) = RESULTS /FLAG                                                   CONRED       418     A     
 CONRED   *         (B7) = ERROR ADDRESS.                                                  CONRED       419     A     
 CONRED                                                                                    CONRED       420     A     
 CONRED    CCR.NE   ZR     B7,EXIT.    IF TRANSPARENT TO USER REDUCTION                    CONRED       421     A     
 CONRED             BX2    X6          SAVE RESULTS / FLAG                                 CONRED       422     A     
 CONRED             WARN   B7          OUTPUT ERROR.                                       CONRED       423     A     
 CONRED             BX6    X2          RESULTS.                                            CONRED       424     A     
 CONRED             EQ     EXIT.                                                           CONRED       425     A     
 CONRED                                                                                    CONRED       426     A     
 CONRED   **        EXPRESSION ELIMINATED.                                                 CONRED       427     A     
 CONRED   *         (B3) = CONSTANT FLAG                                                   CONRED       428     A     
 CONRED                                                                                    CONRED       429     A     
 CONRED    CCR.EC   BX6    X5                                                              CONRED       430     A     
 CONRED             ZR     B3,CCR.NE   IF 1ST = CONSTANT, RESULTS = 2ND OPERAND            CONRED       431     A     
 CONRED             BX6    X4                                                              CONRED       432     A     
 CONRED             EQ     CCR.NE                                                          CONRED       433     A     
 CONRED                                                                                    CONRED       434     A     
 CONRED   **        CONSTANT OUT OF RANGE - NON-STANDARD CONSTANT.                         CONRED       435     A     
 CONRED   *                                                                                CONRED       436     A     
 CONRED   *         (B7) = ERROR ADDRESS                                                   CONRED       437     A     
 CONRED                                                                                    CONRED       438     A     
 CONRED    CCR.RX   SA1    SOPR                                                            CONRED       439     A     
 CONRED             SA3    X1+CON.DPC-O.PL                                                 CONRED       440     A     
 CONRED             BX6    X3                                                              CONRED       441     A     
 CONRED             SA2    SMOD                                                            CONRED       442     A     
 CONRED             SA6    FILL.                                                           CONRED       443     A     
 CONRED             EQ     CCR.E0      CONTINUE                                            CONRED       444     A     
 CONRED    CMO      SPACE  4,8                                                             CONRED       445     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1323    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED   **        CMO -  CHECK FOR MASK OPERAND.                                         CONRED       446     A     
 CONRED   *                                                                                CONRED       447     A     
 CONRED   *         IF (X1) = (2**N-1), (X6) = -(2**N-1)                                   CONRED       448     A     
 CONRED   *                                                                                CONRED       449     A     
 CONRED   *         ENTRY  (B3) = 0, 1ST = CONSTANT                                        CONRED       450     A     
 CONRED   *                       1, 2ND = CONSTANT                                        CONRED       451     A     
 CONRED   *                (X1) = CONSTANT                                                 CONRED       452     A     
 CONRED   *                (X2) = (SMOD)                                                   CONRED       453     A     
 CONRED   *                                                                                CONRED       454     A     
 CONRED   *         EXIT   (X6) " 0, CONSTANT CHANGED TO -(CONSTANT)                       CONRED       455     A     
 CONRED   *                (TER2) = BINARY OF CONSTANT.                                    CONRED       456     A     
 CONRED                                                                                    CONRED       457     A     
 CONRED                                                                                    CONRED       458     A     
 CONRED    CMO      SUBR               ENTRY/EXIT...                                       CONRED       459     A     
 CONRED             BX6    0           INDICATE FAILURE                                    CONRED       460     A     
 CONRED             ZR     B3,EXIT.                                                        CONRED       461     A     
 CONRED             SB7    X2-M.INT                                                        CONRED       462     A     
 CONRED             =X0    1                                                               CONRED       463     A     
 CONRED             NZ     B7,EXIT.    IF NOT INTEGER                                      CONRED       464     A     
 CONRED             IX0    X1+X0                                                           CONRED       465     A     
 CONRED             BX7    X0*X1                                                           CONRED       466     A     
 CONRED             NZ     X7,EXIT.    IF NOT -(POWER OF 2)                                CONRED       467     A     
 CONRED             BX6    -X1                                                             CONRED       468     A     
 CONRED             =X7    M.INT                                                           CONRED       469     A     
 CONRED             SA6    TER2                                                            CONRED       470     A     
 CONRED             RJ     NCS                                                             CONRED       471     A     
 CONRED             EQ     EXIT.                                                           CONRED       472     A     
 CONRED    COC      SPACE  4,8                                                             CONRED       473     A     
 CONRED   **        COC -  CHECK OPERAND CONSTANT FOR NON-STANDARD.                        CONRED       474     A     
 CONRED   *                                                                                CONRED       475     A     
 CONRED   *         ENTRY  (X0) = MODE OF CONSTANT.                                        CONRED       476     A     
 CONRED   *                (X1) = CONSTANT                                                 CONRED       477     A     
 CONRED   *                                                                                CONRED       478     A     
 CONRED   *         EXIT   (B7) > 0, NON-STANDARD CONSTANT.                                CONRED       479     A     
 CONRED   *                (X1) = ALWAYS PRESERVED.                                        CONRED       480     A     
 CONRED   *                (X2) = (SMOD) ALWAYS                                            CONRED       481          I
          -FCC0539
 CONRED   *                                                                                CONRED       482     A     
 CONRED   *         CANNOT DESTROY - B2,B3,B4,B5,B6  X1,X4,X5,X7                           CONRED       483     A     
 CONRED                                                                                    CONRED       484     A     
 CONRED                                                                                    CONRED       485     A     
 CONRED    COC      SUBR               ENTRY/EXIT..                                        CONRED       486     A     
 CONRED             SB7    X0-M.REAL                                                       CONRED       487          I
          -FCC1295
 CONRED             BX6    X1                                                              CONRED       488          I
          -FCC1295
 CONRED             NZ     X0,COC1     IF NOT MODELESS CONSTANT                            FCC1295        6     A     
 CONRED             SA2    SMOD                                                            FCC1295        7     A     
 CONRED             BX0    X2                                                              FCC1295        8     A     
 CONRED    COC1     SB7    X0-M.REAL                                                       FCC1295        9     A     
 CONRED             MI     B7,EXIT.    IF NOT FLOATING POINT                               CONRED       489     A     
 CONRED             LX6    2                                                               CONRED       490          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1324    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
          -FCC1295
 CONRED             =B7    -1                                                              CONRED       491     A     
 CONRED             ZR     X1,EXIT.    IF CONSTANT IS *0*                                  CONRED       492          I
          -FCC1295
 CONRED             AX6    50                                                              CONRED       493          I
          -FCC1295
 CONRED             NZ     X6,EXIT.    IF IN RANGE                                         CONRED       494          I
          -FCC1295
 CONRED             SB7    E.CR7       ERROR                                               CONRED       495          I
          -FCC1295
 CONRED             OR     X1,COC2     IF CONSTANT INFINITE                                FCC1295       10     A     
 CONRED             ID     X1,COC2     IF CONSTANT INDEFINITE                              FCC1295       11     A     
 CONRED             EQ     EXIT.                                                           FCC1295       12     A     
 CONRED    COC2     SB7    E.CR7                                                           FCC1295       13     A     
 CONRED             EQ     EXIT.                                                           CONRED       496     A     
 CONRED    CIR      SPACE  4,5                                                             FCC0539       74     A     
 CONRED   **        CIR  -  CHECK IF LEGAL INTEGER.                                        FCC0539       75     A     
 CONRED   *         *CIR* CHECKS THE SUPPLIED CONSTANT TO SEE IF IT IS AN                  FCC0539       76     A     
 CONRED   *         INTEGER USED IN CONJUNCTION WITH AN * OR /, IF SO *CIR*                FCC0539       77     A     
 CONRED   *         ISSUES A FATAL DIAGNOSTIC.  IF THE CONSTANT IS INVOLVED                FCC0539       78     A     
 CONRED   *         IN A TURPLE WHOSE DOMINANT MODE IS REAL, *CIR* CHECKS                  FCC0539       79     A     
 CONRED   *         WHETHER IT MAY PERFORM A CONVERSION.  IF IT MAY, IT WILL,              FCC0539       80     A     
 CONRED   *         ISSUING DIAGNOSTICS AS NECESSARY.                                      FCC0539       81     A     
 CONRED   *                                                                                FCC0539       82     A     
 CONRED   *         ENTRY  (X0) = MODE OF CONSTANT.                                        FCC0539       83     A     
 CONRED   *                (X2) = OPERATOR FORM OF CONSTANT                                FCC0696       16     A     
 CONRED   *                (X6) = BINARY OF CONSTANT.                                      FCC0539       84     A     
 CONRED   *                                                                                FCC0539       85     A     
 CONRED   *         EXIT   AS ENTRY.                                                       FCC0539       86     A     
 CONRED   *                                                                                FCC0539       87     A     
 CONRED   *         USES   X1,X3,X7,B2,B7                                                  FCC0539       88     A     
 CONRED   *                SAVES AND RESTORES X7.                                          FCC0539       89          I
          -FCC0696
 CONRED                                                                                    FCC0539       90     A     
 CONRED    CIR0     AX1    60-12                                                           FCC0539       91     A     
 CONRED             ZR     X0,CIR      IF CONSTANT MODE UNIVERSAL                          FCC0539       92     A     
 CONRED             ZR     X1,CIR1     IF INTEGER .LT. 2**48                               FCC0539       93     A     
 CONRED             BX3    X0          SAVE X0 TEMPORARILY                                 FCC0539       94     A     
 CONRED             FATAL  E.CR9                                                           FCC0539       95     A     
 CONRED             BX0    X3                                                              FCC0539       96     A     
 CONRED             EQ     CIR                                                             FCC0539       97     A     
 CONRED                                                                                    FCC0539       98     A     
 CONRED    CIR1     SA1    A1                                                              FCC0539       99     A     
 CONRED             LX1    -18                                                             FCC0539      100     A     
 CONRED             SB2    X1                                                              FCC0539      101     A     
 CONRED             AX1    18                                                              FCC0539      102     A     
 CONRED             ZR     B2,CIR      IF NO MODE CONVERSION                               FCC0539      103     A     
 CONRED             SB7    B2-B7                                                           FCC0539      104     A     
 CONRED             LX1    2*18                                                            FCC0539      105     A     
 CONRED             ZR     B7,CIR      IF NO CONVERSION FOR THIS CONSTANT                  FCC0539      106     A     
 CONRED             BX3    X7                                                              FCC0539      107          I
          -FCC0696
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1325    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             PX6    B0,X6       CONVERT                                             FCC0539      108     A     
 CONRED             BX7    X1                                                              FCC0539      109     A     
 CONRED             NX6    B0,X6                                                           FCC0539      110     A     
 CONRED             SX0    M.REAL      SET CONSTANT TYPE EQUAL TO M.REAL                   FCC0539      111     A     
 CONRED             SA7    A1          RESET SMOD                                          FCC0539      112     A     
 CONRED             SA6    CIRA        PRESERVE THE BINARY CONSTANT                        FCC0961        5     A     
 CONRED             =A6    A2-1        RESET CONSTANT IN TS.CON                            FCC0539      113          I
          -FCC0696
 CONRED             BX7    X3                                                              FCC0539      114          I
          -FCC0696
 CONRED             =X7    1                                                               FCC0539      115          I
          -FCC0696
 CONRED             LX7    X0                                                              FCC0696       17     A     
 CONRED             RJ     NCS                                                             FCC0696       18     A     
 CONRED             LX2    X6                                                              FCC0696       19     A     
 CONRED             SA1    CIRA                                                            FCC0961        6     A     
 CONRED             BX6    X1          RESTORE THE BINARY OF THE CONSTANT                  FCC0961        7     A     
 CONRED                                                                                    FCC0539      116     A     
 CONRED    CIR      SUBR                                                                   FCC0539      117     A     
 CONRED             SX7    0                                                               FCC0539      118          I
          -FCC0696
 CONRED             SB2    X0-M.REAL                                                       FCC0539      119     A     
 CONRED             PL     B2,EXIT.    IF CONSTANT NOT INTEGER OR OCTAL                    FCC0539      120     A     
 CONRED             SA1    SOPR        CURRENT OPERATOR                                    FCC0539      121     A     
 CONRED             MX3    -2                                                              FCC0539      122     A     
 CONRED             LX3    -8                                                              FCC0539      123     A     
 CONRED             SB2    X1                                                              FCC0539      124     A     
 CONRED             NO                                                                     FCC0539      125     A     
 CONRED             SA1    SMOD                                                            FCC0539      126     A     
 CONRED             LX3    B2,X3                                                           FCC0539      127     A     
 CONRED             SB2    X1-M.REAL                                                       FCC0539      128     A     
 CONRED             NO                                                                     FCC0539      129     A     
 CONRED             BX1    X6                                                              FCC0539      130     A     
 CONRED             ZR     B2,CIR0     IF DOMINANT MODE IS REAL                            FCC0539      131     A     
 CONRED             MI     X3,EXIT.    IF OPERATOR IS + OR -                               FCC0539      132     A     
 CONRED             AX1    60-12                                                           FCC0539      133     A     
 CONRED             ZR     X1,CIR1     IF INTEGER .LT. 2**48                               FCC0539      134     A     
 CONRED             BX3    X0          SAVE X0 TEMPORARILY                                 FCC0539      135     A     
 CONRED             FATAL  E.CR8                                                           FCC0539      136     A     
 CONRED             BX0    X3                                                              FCC0539      137     A     
 CONRED             EQ     CIR                                                             FCC0539      138     A     
 CONRED                                                                                    FCC0961        8     A     
 CONRED    CIRA     BSS    1                                                               FCC0961        9     A     
 CONRED    PCA      EJECT  4,20                                                            CONRED       497     A     
 CONRED   **        PCA -  PERFORM COMPILE TIME ARITHMETIC.                                CONRED       498     A     
 CONRED   *                                                                                CONRED       499     A     
 CONRED   *         ENTRY  (X1) = 1ST CONSTANT                                             CONRED       500     A     
 CONRED   *                (X2) = 2ND CONSTANT                                             CONRED       501     A     
 CONRED   *                                                                                CONRED       502     A     
 CONRED   *         NOTE   BOTH (X1) AND (X2) MUST BE OF MODE                              CONRED       503     A     
 CONRED   *                            MODLS,INTEGER, OR REAL                              CONRED       504     A     
 CONRED   *                                                                                CONRED       505     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1326    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED   *                (X3) = O.XX FOR OPERATOR.                                       CONRED       506     A     
 CONRED   *                       MAY BE ANY OF THE FOLLOWING --                           CONRED       507     A     
 CONRED   *                        1.  O.PL                                                CONRED       508     A     
 CONRED   *                        2.  O.MIN                                               CONRED       509     A     
 CONRED   *                        3.  O.MULT                                              CONRED       510     A     
 CONRED   *                        4.  O.DIV                                               CONRED       511     A     
 CONRED   *                                                                                CONRED       512     A     
 CONRED   *         EXIT   (B7) > 0, TERM REDUCED                                          CONRED       513     A     
 CONRED   *                (X6) = TAG FOR RESULTS                                          CONRED       514     A     
 CONRED   *                (RTER) = RESULTS IN BINARY OF REDUCTION.                        CONRED       515     A     
 CONRED   *                                                                                CONRED       516     A     
 CONRED   *                (B7) = 0, ERROR IN REDUCTION.                                   CONRED       517     A     
 CONRED   *                                                                                CONRED       518     A     
 CONRED   *         USES   A1,A2,A3,A4,A5  X0  B2,B3,B7                                    CONRED       519     A     
 CONRED   *         CELLS  (SCR+4) TO SAVE O.XX                                            CONRED       520     A     
 CONRED   *                                                                                CONRED       521     A     
 CONRED   *         CALLS  COC - TO CHECK RESULTS.                                         CONRED       522     A     
 CONRED   *                NCS - TO ENTER CONSTANT.                                        CONRED       523     A     
 CONRED                                                                                    CONRED       524     A     
 CONRED                                                                                    CONRED       525     A     
 CONRED    PCA      SUBR               ENTRY/EXIT...                                       CONRED       526     A     
 CONRED             BX6    X3                                                              CONRED       527     A     
 CONRED             SA4    SMOD                                                            CONRED       528          I
          -FCC0539
 CONRED             SA6    SCR+4       SAVE OPERATOR                                       CONRED       529     A     
 CONRED             BX0    X4                                                              CONRED       530          I
          -FCC0539
 CONRED             AX4    18                                                              CONRED       531          I
          -FCC0539
 CONRED             ZR     X4,PCA10    IF NO MODE CONVERSION.                              CONRED       532          I
          -FCC0539
 CONRED             SB2    X0-M.INT                                                        CONRED       533          I
          -FCC0539
 CONRED             SB7    X4-2                                                            CONRED       534          I
          -FCC0539
 CONRED             ZR     B2,PCA10    IF MODE = INTEGER, NO CONVERSION NECESSARY          CONRED       535          I
          -FCC0539
 CONRED                                                                                    CONRED       536          I
          -FCC0539
 CONRED   *         DOMINANT MODE MUST BE REAL, CONVERT CONSTANT TO REAL                   CONRED       537          I
          -FCC0539
 CONRED                                                                                    CONRED       538          I
          -FCC0539
 CONRED             ZR     B7,PCA3     IF 1ST NEEDS CONVERSION                             CONRED       539          I
          -FCC0539
 CONRED             PX6    X2                                                              CONRED       540          I
          -FCC0539
 CONRED             NX2    X6                                                              CONRED       541          I
          -FCC0539
 CONRED             EQ     PCA10                                                           CONRED       542          I
          -FCC0539
 CONRED    PCA3     PX4    X1                                                              CONRED       543          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1327    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
          -FCC0539
 CONRED             NX1    X4                                                              CONRED       544          I
          -FCC0539
 CONRED                                                                                    CONRED       545          I
          -FCC0539
 CONRED    PCA10    BX6    X1                                                              CONRED       546          I
          -FCC0539
 CONRED             SB2    X0          DOMINANT MODE                                       CONRED       547          I
          -FCC0539
 CONRED             SX5    X3-O.PL                                                         CONRED       548          I
          -FCC0539
 CONRED             SX7    X0          MODE BITS.                                          CONRED       549          I
          -FCC0539
 CONRED             BX6    X1                                                              FCC0539      139     A     
 CONRED             SA4    SMOD                                                            FCC0539      140     A     
 CONRED             SB2    X4          DOMINANT MODE                                       FCC0539      141     A     
 CONRED             SX5    X3-O.PL                                                         FCC0539      142     A     
 CONRED             SX7    X4          MODE BITS                                           FCC0539      143     A     
 CONRED             BX0    -X5                                                             CONRED       550     A     
 CONRED             NZ     B2,PCA15    IF MODE NOT UNIVERSAL                               CONRED       551     A     
 CONRED             =B2    M.INT       PROCESS AS INTEGER                                  CONRED       552     A     
 CONRED             =X7    M.INT       MODE OF RESULT, INTEGER                             FCC1293       15     A     
 CONRED             SA7    SMOD                                                            FCC1293       16     A     
 CONRED                                                                                    FCC0539      144     A     
 CONRED    PCA15    SA3    B2+PCA22-M.INT                                                  CONRED       553     A     
 CONRED             SB2    X0                                                              CONRED       554     A     
 CONRED             LX5    4           *16                                                 CONRED       555     A     
 CONRED             MX0    -15                                                             CONRED       556     A     
 CONRED             SB2    X5+B2       *15                                                 CONRED       557     A     
 CONRED             AX3    B2,X3                                                           CONRED       558     A     
 CONRED             BX0    -X0*X3                                                          CONRED       559     A     
 CONRED             SB2    X0                                                              CONRED       560     A     
 CONRED             SA3    CO.RND                                                          CONRED       561     A     
 CONRED             JP     B2          JUMP TO PROCESSOR.                                  CONRED       562     A     
 CONRED                                                                                    CONRED       563     A     
 CONRED             POPMAC JUMPTO                                                          CONRED       564     A     
 CONRED    JUMPTO   MACRO  ARG,MODE                                                        CONRED       565     A     
 CONRED    .1       IRP    ARG                                                             CONRED       566     A     
 CONRED             VFD    15/MODE.ARG                                                     CONRED       567     A     
 CONRED    .1       IRP                                                                    CONRED       568     A     
 CONRED    JUMPTO   ENDM                                                                   CONRED       569     A     
 CONRED    PCA22    JUMPTO (DIV,MU,MI,PL),INT                                              CONRED       570     A     
 CONRED             JUMPTO (DIV,MU,MI,PL),REAL                                             CONRED       571     A     
 CONRED                                                                                    CONRED       572     A     
 CONRED   **        DOMINANT MODE = UNIVERSAL / INTEGER.                                   CONRED       573     A     
 CONRED                                                                                    CONRED       574     A     
 CONRED    INT.PL   IX6    X1+X2                                                           CONRED       575     A     
 CONRED             EQ     PCA40       CONTINUE                                            CONRED       576     A     
 CONRED                                                                                    CONRED       577     A     
 CONRED    INT.MI   IX6    X1-X2                                                           CONRED       578     A     
 CONRED             EQ     PCA40       CONTINUE.                                           CONRED       579     A     
 CONRED                                                                                    CONRED       580     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1328    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED    INT.MU   IX6    X1*X2                                                           CONRED       581          I
          -FCC0539
 CONRED    INT.MU   FX3    X1*X2       CHECK FOR OVERFLOW                                  FCC0539      145     A     
 CONRED             IX6    X1*X2       INTEGER MULTIPLY                                    FCC0539      146     A     
 CONRED             NZ     X3,PCA30                                                        FCC0539      147     A     
 CONRED             EQ     PCA40       CONTINUE.                                           CONRED       582     A     
 CONRED                                                                                    CONRED       583     A     
 CONRED    INT.DIV  IX6    X1/X2                                                           CONRED       584     A     
 CONRED             EQ     PCA40       CONTINUE.                                           CONRED       585     A     
 CONRED                                                                                    CONRED       586     A     
 CONRED   **        DOMINANT MODE = REAL.                                                  CONRED       587     A     
 CONRED                                                                                    CONRED       588     A     
 CONRED    REAL.PL  FX0    X1+X2                                                           CONRED       589     A     
 CONRED             LX3    1R+         FADD BIT                                            CONRED       590     A     
 CONRED             NX6    X0                                                              CONRED       591     A     
 CONRED             PL     X3,PCA40    IF ROUNDED NOT SELECTED                             CONRED       592     A     
 CONRED             RX0    X1+X2                                                           CONRED       593     A     
 CONRED             NX6    X0                                                              CONRED       594     A     
 CONRED             EQ     PCA40       CONTINUE.                                           CONRED       595     A     
 CONRED                                                                                    CONRED       596     A     
 CONRED    REAL.MI  FX0    X1-X2                                                           CONRED       597     A     
 CONRED             LX3    1R-         FSUB BIT                                            CONRED       598     A     
 CONRED             NX6    X0                                                              CONRED       599     A     
 CONRED             PL     X3,PCA40    IF ROUNDED NOT SELECTED                             CONRED       600     A     
 CONRED             RX0    X1-X2                                                           CONRED       601     A     
 CONRED             NX6    X0                                                              CONRED       602     A     
 CONRED             EQ     PCA40       CONTINUE.                                           CONRED       603     A     
 CONRED                                                                                    CONRED       604     A     
 CONRED    REAL.MU  FX6    X1*X2                                                           CONRED       605     A     
 CONRED             LX3    1R*         FMULT BIT                                           CONRED       606     A     
 CONRED             PL     X3,PCA40    IF ROUNDED NOT SELECTED                             CONRED       607     A     
 CONRED             RX0    X1*X2                                                           CONRED       608     A     
 CONRED             EQ     PCA40       CONTINUE.                                           CONRED       609     A     
 CONRED                                                                                    CONRED       610     A     
 CONRED    REAL.DIV FX6    X1/X2                                                           CONRED       611     A     
 CONRED             LX3    1R/         FDIV BIT                                            CONRED       612     A     
 CONRED             PL     X3,PCA40    IF ROUNDED NOT SELECTED                             CONRED       613     A     
 CONRED             RX0    X1/X2                                                           CONRED       614     A     
 CONRED             EQ     PCA40       CONTINUE.                                           CONRED       615     A     
 CONRED                                                                                    CONRED       616     A     
 CONRED   **        REDUCTION PERFORMED                                                    CONRED       617     A     
 CONRED   *         (X6) = BINARY OF ARITHMETIC PERFORMED.                                 CONRED       618     A     
 CONRED   *         (X7) = MODE OF RESULTS                                                 CONRED       619     A     
 CONRED                                                                                    CONRED       620     A     
 CONRED    PCA30    FATAL  E.CR10                                                          FCC0539      148     A     
 CONRED                                                                                    FCC0539      149     A     
 CONRED    PCA40    SA6    RTER        SAVE BINARY OF REDUCTION                            CONRED       621     A     
 CONRED             SA3    SCR+4                                                           CONRED       622     A     
 CONRED             BX1    X6                                                              CONRED       623     A     
 CONRED             SX0    X7          MODE OF CONSTANT                                    CONRED       624     A     
 CONRED             RJ     COC         CHECK IF RESULTING CONSTANT IN RANGE                CONRED       625     A     
 CONRED             PL     B7,PCA.RX   IF OUT OF RANGE                                     CONRED       626     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1329    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             BX6    X1                                                              CONRED       627     A     
 CONRED             RJ     NCS         ADD TO RESULTS TO CON TABLE                         CONRED       628     A     
 CONRED             =B7    1           INDICATE REDUCTION                                  CONRED       629     A     
 CONRED             EQ     EXIT.                                                           CONRED       630     A     
 CONRED                                                                                    CONRED       631     A     
 CONRED   **        IF UNDEFINED ARITHMETIC OPERATION.                                     CONRED       632     A     
 CONRED   *         ONE OF OPERANDS IS NON-STANDARD                                        CONRED       633     A     
 CONRED   *                                                                                CONRED       634     A     
 CONRED   *         ENTRY  (B7) = ERROR ADDRESS                                            CONRED       635     A     
 CONRED   *                (X3) = O.XX                                                     CONRED       636     A     
 CONRED                                                                                    CONRED       637     A     
 CONRED    PCA.RX   SB2    X3-O.PL                                                         CONRED       638     A     
 CONRED             SA4    B2+CON.DPC                                                      CONRED       639     A     
 CONRED             SA2    SMOD                                                            CONRED       640     A     
 CONRED             BX6    X4                                                              CONRED       641     A     
 CONRED             SA1    CONZER                                                          CONRED       642     A     
 CONRED             SA6    FILL.       SET OPERATOR DPC INTO FILL. FOR ERROR               CONRED       643     A     
 CONRED             SX0    X2                                                              CONRED       644     A     
 CONRED             IX2    X0+X1       SET RESULTS = 0                                     CONRED       645     A     
 CONRED             FATAL  B7                                                              CONRED       646     A     
 CONRED             BX6    X2                                                              CONRED       647     A     
 CONRED             =B7    0           INDICATE ERROR IN REDUCTION                         CONRED       648     A     
 CONRED             EQ     EXIT.                                                           CONRED       649     A     
 CONRED                                                                                    CONRED       650     A     
 CONRED    SCNT     DATA   0           SHIFT INSTRUCTION FLAG                              CONRED       651          I
          -FCC0539
 CONRED    TER1     DATA   0                                                               CONRED       652     A     
 CONRED    TER2     DATA   0                                                               CONRED       653     A     
 CONRED    RTER     DATA   0           RESULTS OF REDUCTION PERFORMED BY *PCA* IN          CONRED       654     A     
 CONRED                                BINARY                                              CONRED       655     A     
 CONRED    CMC      EJECT  4,20                                                            CONRED       656     A     
 CONRED   **        CMC -  CHECK FOR REDUCTION IN MODE CONVERSION OF CONSTANT.             CONRED       657     A     
 CONRED   *                                                                                CONRED       658     A     
 CONRED   *                THIS ROUTINE IS NOT INTENDED TO CATCH ALL COMPILE TIME          CONRED       659     A     
 CONRED   *         MODE CONVERSIONS.  BUT IT IS SUPPOSE TO CATCH TYPICAL                  CONRED       660     A     
 CONRED   *         PROGRAMMER ERRORS WHEN DEALING WITH CONSTANT EXPRESSIONS,              CONRED       661     A     
 CONRED   *         IE.         A=1.0        AS      A=1                                   CONRED       662     A     
 CONRED   *                                                                                CONRED       663     A     
 CONRED   *         ENTRY  (X1) = CONSTANT.                                                CONRED       664     A     
 CONRED   *                (X2) = (SMOD), 24/0,18/MODE CONV,18/DOMINANT MODE               CONRED       665     A     
 CONRED   *                (X3) = (SOPR)                                                   CONRED       666     A     
 CONRED   *                (B3) = 0 IF 1ST = CONSTANT.                                     CONRED       667     A     
 CONRED   *                                                                                CONRED       668     A     
 CONRED   *         EXIT   (B3) = PRESERVED.                                               CONRED       669     A     
 CONRED   *                (X1) = PRESERVED.                                               CONRED       670     A     
 CONRED   *                (X2) = (SMOD) ALTETER IF CONSTANT CONVERTED.                    CONRED       671     A     
 CONRED   *                (X3) = (SOPR) ALTERED IF CONSTANT CONVERTED TO (SMOD).          CONRED       672     A     
 CONRED   *                                                                                CONRED       673     A     
 CONRED   *                (SPOR) RESET IF CONVERSION PROCESSED.                           CONRED       674     A     
 CONRED   *         USES   A1,A2,A3,A6,A7  X0  B2,B3,B7                                    CONRED       675     A     
 CONRED   *                (SCR, SCR+1)                                                    CONRED       676     A     
 CONRED   *         CALLS  NCS                                                             CONRED       677     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1330    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED                                                                                    CONRED       678     A     
 CONRED                                                                                    CONRED       679     A     
 CONRED    CMCX     BX4    X0          IF 1ST = CONSTANT                                   CONRED       680     A     
 CONRED             SX6    0                                                               CONRED       681     A     
 CONRED                                                                                    CONRED       682     A     
 CONRED    CMC      SUBR   -           ENTRY/EXIT...                                       CONRED       683     A     
 CONRED             =B7    X2-M.REAL                                                       CONRED       684     A     
 CONRED             AX2    18                                                              CONRED       685     A     
 CONRED             ZR     X2,EXIT.    IF NO MODE CONVERSION                               CONRED       686     A     
 CONRED             SB2    X2          DOMINANT MODE                                       CONRED       687     A     
 CONRED             NE     B2,B3,EXIT. IF CONSTANT IN DOMINANT MODE                        CONRED       688     A     
 CONRED             SX6    B3                                                              CONRED       689     A     
 CONRED             NZ     B7,EXIT.    IF NOT REAL                                         CONRED       690     A     
 CONRED             SA6    SCR         SAVE CONSTANT POINTER                               CONRED       691     A     
 CONRED             PX1    X1                                                              CONRED       692     A     
 CONRED             NX6    X1                                                              CONRED       693     A     
 CONRED             =A6    A6+1                                                            CONRED       694     A     
 CONRED             =X7    M.REAL                                                          CONRED       695     A     
 CONRED             SA7    SMOD        RESET, INDICATING NO MODE CONVERSION                CONRED       696     A     
 CONRED             RJ     NCS         ENTER CONSTANT.                                     CONRED       697     A     
 CONRED             MX1    L.MODC                                                          CONRED       698     A     
 CONRED             SA3    SOPR                                                            CONRED       699     A     
 CONRED             LX1    P.MODC+L.MODC                                                   CONRED       700     A     
 CONRED             SA2    SCR         RELOAD CONSTANT POINTER                             CONRED       701     A     
 CONRED             BX0    X6                                                              CONRED       702     A     
 CONRED             BX6    -X1*X3                                                          CONRED       703     A     
 CONRED             =A1    A2+1        LOAD ACTUAL CONVERTED CONSTANT.                     CONRED       704     A     
 CONRED             BX3    X6                                                              CONRED       705     A     
 CONRED             SA6    A3          RESET *SOPR*                                        CONRED       706     A     
 CONRED             ZR     X2,CMCX     IF 1ST = CONSTANT                                   CONRED       707     A     
 CONRED             BX5    X0                                                              CONRED       708     A     
 CONRED             =X6    0                                                               CONRED       709     A     
 CONRED             EQ     EXIT.                                                           CONRED       710     A     
 CONRED    CSI      EJECT  4                                                               CONRED       711     A     
 CONRED   **        CSI -  CHECK SHIFT INSTRUCTION USAGE.                                  CONRED       712     A     
 CONRED   *                                                                                CONRED       713     A     
 CONRED   *                                                                                CONRED       714     A     
 CONRED   *         INSPIRATION BY --  C. BAGWELL   (SIGPLAN NOTICE)                       CONRED       715     A     
 CONRED   *                                          VOLUME 5, NUMBER 7.                   CONRED       716     A     
 CONRED   *                                          PAGE 56.                              CONRED       717     A     
 CONRED   *                                                                                CONRED       718     A     
 CONRED   *         THE PURPOSE OF THIS LITTLE ROUTINE IS DEFINED BY THE TIMINGS O         CONRED       719     A     
 CONRED   *         AN INTEGER MULTIPLY FOR 6000 MACHINES.                                 CONRED       720     A     
 CONRED   *                                                                                CONRED       721     A     
 CONRED   *                6400 TIME = 8.3 US                                              CONRED       722     A     
 CONRED   *                6600 TIME = 2.2 US (INCLUDING SET OF CONSTANT)                  CONRED       723     A     
 CONRED   *                                                                                CONRED       724     A     
 CONRED   *         THE CODE PRODUCED BY THIS ROUTINE TIMES OUT AT                         CONRED       725     A     
 CONRED   *                6400      = 3.4 US (WORST CASE)                                 CONRED       726     A     
 CONRED   *                6600      = 1.8 US (WORST CASE)                                 CONRED       727     A     
 CONRED   *                                                                                CONRED       728     A     
 CONRED   *         IT SEEMS OBVIOUS TO THIS PROGRAMMER, EVEN WITH INTEGER                 CONRED       729     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1331    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED   *         MULTIPLY THAT THIS ROUTINE SHOULD BE LEFT ACTIVE.  ONE MIGHT           CONRED       730     A     
 CONRED   *         HAVE A POINT ON A 6600 FOR ONLY TRANSFORMING SIMPLE POWERS OF          CONRED       731     A     
 CONRED   *         *2* -- BUT ......                                                      CONRED       732     A     
 CONRED   *                                                                                CONRED       733     A     
 CONRED   *                                                                                CONRED       734     A     
 CONRED   *         *CSI* WILL SEE IF AN INTEGER MULTIPLY INSTRUCTION CAN BE               CONRED       735     A     
 CONRED   *         CHANGED TO ONE OF THE FORMS LISTED BELOW.                              CONRED       736     A     
 CONRED   *                                                                                CONRED       737     A     
 CONRED   *          POWER OF 2       DIFFERENCE POWER OF 2      SUM POWER OF 2            CONRED       738     A     
 CONRED   *         ---------------   ---------------------      ---------------           CONRED       739     A     
 CONRED   *         SA1   OPERAND     SA1   OPERAND              SA1   OPERAND             CONRED       740     A     
 CONRED   *         LX1   (K)         BX0   X1                   BX0   X1                  CONRED       741     A     
 CONRED   *         BX7    X1         LX1   (J)                  LX1   (K-J)               CONRED       742     A     
 CONRED   *                           LX0   (K)                  IX7   X1+X0               CONRED       743     A     
 CONRED   *                           IX7   X1-X0                LX7   (J)                 CONRED       744     A     
 CONRED   *         O=SHFC            O=SHFD                     O=SHFS                    CONRED       745     A     
 CONRED   *         (IF FOUND THAT TERM IS (I*2), INSTEAD OF A O=SHFC MACRO,               CONRED       746     A     
 CONRED   *          IMULT2 MACRO IS PROCESSED, THUS PERFORMING MULTIPLY AS                CONRED       747     A     
 CONRED   *          (I+I). )                                                              CONRED       748     A     
 CONRED   *                                                                                CONRED       749     A     
 CONRED   *         ENTRY  (X6)   = CONSTANT MULTIPLIER TO BE CHECKED.                     CONRED       750     A     
 CONRED   *                (SOPR) = CURRENT OPERATOR.                                      CONRED       751     A     
 CONRED   *                (B3)   = 0  1ST = MULTIPLIER.                                   CONRED       752     A     
 CONRED   *                       = 1  2ND = MULTIPLIER.                                   CONRED       753     A     
 CONRED   *                                                                                CONRED       754     A     
 CONRED   *         EXIT   (B3) = 0 = INSTRUCTION CHANGED.                                 CONRED       755     A     
 CONRED   *                (X5) = MULTIPLIER. (IF CHANGED)                                 CONRED       756     A     
 CONRED   *                                                                                CONRED       757     A     
 CONRED   *         USES   A1,A2,A3  X0,X5  B2,B7                                          CONRED       758     A     
 CONRED                                                                                    CONRED       759     A     
 CONRED                                                                                    CONRED       760     A     
 CONRED   **        TRANSFORMATION PERFORMED.                                              CONRED       761     A     
 CONRED   *         (X1) = SHIFT MULTIPLIER.                                               CONRED       762     A     
 CONRED   *         (X3) = NEW OPERATOR.                                                   CONRED       763     A     
 CONRED                                                                                    CONRED       764     A     
 CONRED    CSIX     BX6    X3                                                              CONRED       765     A     
 CONRED             NZ     B3,CSIX5    IF 2ND IS MULTIPLIER                                CONRED       766     A     
 CONRED             LX4    X5                                                              CONRED       767     A     
 CONRED    CSIX5    BX5    X1          MULTIPLIER TO 2ND OPERAND.                          CONRED       768     A     
 CONRED             SA6    SOPR        RESET OPERATOR WORD.                                CONRED       769     A     
 CONRED             LX5    P.PTAGM                                                         CONRED       770     A     
 CONRED                                                                                    CONRED       771     A     
 CONRED                                                                                    CONRED       772     A     
 CONRED    CSI      SUBR   -           ENTRY/EXIT...                                       CONRED       773     A     
 CONRED             =X3    1                                                               CONRED       774     A     
 CONRED             IX1    X6-X3                                                           CONRED       775     A     
 CONRED             SB7    X6          SAVE MULTIPLIER                                     CONRED       776     A     
 CONRED             BX0    X6*X1                                                           CONRED       777     A     
 CONRED             BX2    X1                                                              CONRED       778     A     
 CONRED             AX2    17                                                              CONRED       779     A     
 CONRED             NZ     X2,EXIT.                                                        CONRED       780     A     
 CONRED             NZ     X0,CSI5     IF NOT SIMPLE POWER OF 2                            CONRED       781     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1332    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED                                                                                    CONRED       782     A     
 CONRED   *         SET-UP SIMPLE POWER OF 2                                               CONRED       783     A     
 CONRED                                                                                    CONRED       784     A     
 CONRED             NX0,B7 X6          POWER                                               CONRED       785     A     
 CONRED             SB7    B7-47       OFF BIAS                                            CONRED       786     A     
 CONRED             SA3    SHFC                                                            CONRED       787     A     
 CONRED             SB7    -B7         SHIFT CONSTANT.                                     CONRED       788     A     
 CONRED             BX6    X3                                                              CONRED       789     A     
 CONRED             SX1    B7          K                                                   CONRED       790     A     
 CONRED             NE1    B7,CSIX     IF POWER NOT *1*                                    CONRED       791     A     
 CONRED             SB7    B3                                                              CONRED       792     A     
 CONRED             SA3    IMULT2      PLUS OPERATOR FOR I+I                               CONRED       793     A     
 CONRED             LX7    X3                                                              CONRED       794     A     
 CONRED             SB3    -1          FLAG NO CONSTANTS IN OPERATION                      CONRED       795     A     
 CONRED             SA7    SOPR        RESET MULTIPLIER OPERATOR TO PLUS                   CONRED       796     A     
 CONRED             NZ     B7,CSI3     IF 2ND OPERAND IS CONSTANT                          CONRED       797     A     
 CONRED             LX4    X5          OVERLAY CONSTANT WITH VARIABLE OPERAND              CONRED       798     A     
 CONRED             EQ     EXIT.                                                           CONRED       799     A     
 CONRED    CSI3     LX5    X4                                                              CONRED       800     A     
 CONRED             EQ     EXIT.                                                           CONRED       801     A     
 CONRED                                                                                    CONRED       802     A     
 CONRED   *         NOT SIMPLE POWER OF *2*, CHECK IF SUM OF POWER OF *2*                  CONRED       803     A     
 CONRED                                                                                    CONRED       804     A     
 CONRED    CSI5     IX2    X0-X3                                                           CONRED       805     A     
 CONRED             SB2    X0          SAVE K PORTION                                      CONRED       806     A     
 CONRED             BX0    X0*X2                                                           CONRED       807     A     
 CONRED             NZ     X0,CSI10    IF NO SUM OF POWER OF 2                             CONRED       808     A     
 CONRED                                                                                    CONRED       809     A     
 CONRED   *         SET-UP SUM OF POWER OF 2                                               CONRED       810     A     
 CONRED                                                                                    CONRED       811     A     
 CONRED             SX2    B2          K   NUMBER                                          CONRED       812     A     
 CONRED             SX1    B7-B2       J   NUMBER                                          CONRED       813     A     
 CONRED             NX0,B2 X2                                                              CONRED       814     A     
 CONRED             SB2    B2-47       -K  POWER                                           CONRED       815     A     
 CONRED             NX0,B7 X1          J   NUMBER                                          CONRED       816     A     
 CONRED             SB2    -B2                                                             CONRED       817     A     
 CONRED             SB7    B7-47       -J  POWER                                           CONRED       818     A     
 CONRED             SX2    -B7         J   POWER                                           CONRED       819     A     
 CONRED             SA3    SHFS                                                            CONRED       820     A     
 CONRED             SX0    B2+B7       K-J POWER                                           CONRED       821     A     
 CONRED             LX0    18                                                              CONRED       822     A     
 CONRED             IX1    X2+X0       J POWER + (K-J) POWER                               CONRED       823     A     
 CONRED             NZ     X2,CSIX     IF *J* POWER NOT *0*                                CONRED       824     A     
 CONRED             SA3    SHFSA                                                           CONRED       825     A     
 CONRED             EQ     CSIX        SET EXIT CONDITIONS..                               CONRED       826     A     
 CONRED                                                                                    CONRED       827     A     
 CONRED   *         NOT SUM OF POWER OF *2*, CHECK IF DIFFERENCE OF POWER OF *2*           CONRED       828     A     
 CONRED                                                                                    CONRED       829     A     
 CONRED    CSI10    BX7    X6+X1                                                           CONRED       830     A     
 CONRED             IX0    X7+X3                                                           CONRED       831     A     
 CONRED             BX2    X0*X7                                                           CONRED       832     A     
 CONRED             NZ     X2,CSI20    IF NOT DIFFERENCE OF POWER OF *2*                   CONRED       833     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1333    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             BX2    X6-X1       2**J+1 - 1                                          CONRED       834     A     
 CONRED                                                                                    CONRED       835     A     
 CONRED   *         SET-UP DIFFERENCE OF POWER OF 2                                        CONRED       836     A     
 CONRED                                                                                    CONRED       837     A     
 CONRED             NX1,B2 X2                                                              CONRED       838     A     
 CONRED             SB2    B2-47                                                           CONRED       839     A     
 CONRED             SX1    B7                                                              CONRED       840     A     
 CONRED             SX2    -B2         J   POWER                                           CONRED       841     A     
 CONRED             NX0,B7 X1          K+J POWER                                           CONRED       842     A     
 CONRED             SB7    B7-48                                                           CONRED       843     A     
 CONRED             SA3    SHFD                                                            CONRED       844     A     
 CONRED             SX0    -B7         K   POWER                                           CONRED       845     A     
 CONRED             LX2    18                                                              CONRED       846     A     
 CONRED             IX1    X2+X0       J .OR. K                                            CONRED       847     A     
 CONRED             NZ     X2,CSIX     IF *J* POWER NOT ZERO.                              CONRED       848     A     
 CONRED             SA3    SHFDS                                                           CONRED       849     A     
 CONRED             EQ     CSIX        SET EXIT CONDITIONS.                                CONRED       850     A     
 CONRED                                                                                    CONRED       851     A     
 CONRED   *         NOT SUM, DIFFERENCE OF POWER OF *2*, CHECK IF (N-1) IS EITHER          CONRED       852     A     
 CONRED   *         SUM OR DIFFERENCE                                                      CONRED       853     A     
 CONRED                                                                                    CONRED       854     A     
 CONRED    CSI20    BSS    0                                                               CONRED       855     A     
 CONRED             EQ     EXIT.                                                           CONRED       856     A     
 CONRED    CCC      SPACE  4,8                                                             CONRED       857          I
          -FCC0787
 CONRED   **        CCC -  CHECK FOR LEGAL PART OF COMPLEX NUMBER                          CONRED       858          I
          -FCC0787
 CONRED   *                                                                                CONRED       859          I
          -FCC0787
 CONRED   *         ENTRY  (X1) = TAG OF CONSTANT                                          CONRED       860          I
          -FCC0787
 CONRED   *                (X6) = BINARY OF CONSTANT                                       CONRED       861          I
          -FCC0787
 CONRED   *                                                                                CONRED       862          I
          -FCC0787
 CONRED   *         EXIT   (X6) = BINARY OF CONSTANT, CONVERTED IF NEEDED                  CONRED       863          I
          -FCC0787
 CONRED                                                                                    CONRED       864          I
          -FCC0787
 CONRED                                                                                    CONRED       865          I
          -FCC0787
 CONRED    CCC      SUBR               ENTRY/EXIT...                                       CONRED       866          I
          -FCC0787
 CONRED             MX0    -L.MODE                                                         CONRED       867          I
          -FCC0787
 CONRED             BX2    -X0*X1                                                          CONRED       868          I
          -FCC0787
 CONRED             IFBIT  X1,-LONG,CCC5                                                   CONRED       869          I
          -FCC0787
 CONRED             ANSI   E.DC12      DOUBLE NOT DEFINED AS PART OF COMPLEX NUM           CONRED       870          I
          -FCC0787
 CONRED             EQ     EXIT.                                                           CONRED       871          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1334    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
          -FCC0787
 CONRED                                                                                    CONRED       872          I
          -FCC0787
 CONRED    CCC5     SB2    X2-M.REAL                                                       CONRED       873          I
          -FCC0787
 CONRED             ZR     B2,EXIT.    IF REAL CONSTANT                                    CONRED       874          I
          -FCC0787
 CONRED             ANSI   E.DC10      ANSI SAYS MUST BE REAL                              CONRED       875          I
          -FCC0787
 CONRED             SB2    X2-M.LOG                                                        CONRED       876          I
          -FCC0787
 CONRED             NZ     B2,CCC10    IF NOT LOGICAL CONSTANT                             CONRED       877          I
          -FCC0787
 CONRED             FATAL  E.DC11      LOGICAL NOT DEFINED AS PART OF COMPLEX NUM          CONRED       878          I
          -FCC0787
 CONRED    CCC10    SB2    X2-M.INT                                                        CONRED       879          I
          -FCC0787
 CONRED             NZ     B2,EXIT.    IF NOT INTEGER                                      CONRED       880          I
          -FCC0787
 CONRED             PX1    X6                                                              CONRED       881          I
          -FCC0787
 CONRED             NX6    X1          CONVERT NUMBER TO REAL                              CONRED       882          I
          -FCC0787
 CONRED             EQ     EXIT.                                                           CONRED       883          I
          -FCC0787
 CONRED    LCT      SPACE  4,12                                                            CONRED       884     A     
 CONRED   **        LCT -  LOAD BINARY OF CONSTANT.                                        CONRED       885     A     
 CONRED   *                                                                                CONRED       886     A     
 CONRED   *         ENTRY  (X1)= PROPOSED CONSTANT.                                        CONRED       887     A     
 CONRED   *                                                                                CONRED       888     A     
 CONRED   *         EXIT   IF CONSTANT FOUND.                                              CONRED       889     A     
 CONRED   *                (B2) =   1 = SHORT CONSTANT.                                    CONRED       890     A     
 CONRED   *                (B2) =  -1 = CONSTANT (K-TAG)                                   CONRED       891     A     
 CONRED   *                (X0) = MODE.                                                    CONRED       892     A     
 CONRED   *                (X6) = CONSTANT (1ST WORD)                                      CONRED       893     A     
 CONRED   *                (X7) = CONSTANT (2ND WORD, B2 = -1, LONG BIT ON)                CONRED       894     A     
 CONRED   *                (X1=X6, X2=X7, TRUE IF LONG BIT SET)                            CONRED       895     A     
 CONRED   *                                                                                CONRED       896     A     
 CONRED   *                IF CONSTANT NOT FOUND.                                          CONRED       897     A     
 CONRED   *                (B2) =   0 = NO CONSTANT.                                       CONRED       898     A     
 CONRED   *                (X0) = MODE                                                     CONRED       899     A     
 CONRED   *                (X6) = 0                                                        CONRED       900     A     
 CONRED   *                                                                                CONRED       901     A     
 CONRED   *         USES   A1,A2  X0  B2,B7                                                CONRED       902     A     
 CONRED                                                                                    CONRED       903     A     
 CONRED                                                                                    CONRED       904     A     
 CONRED    LCT1     LX2    X1                                                              CONRED       905     A     
 CONRED             BX0    -X0*X1                                                          CONRED       906     A     
 CONRED             SB7    X0-M.REAL                                                       CONRED       907     A     
 CONRED             AX1    P.SHC                                                           CONRED       908     A     
 CONRED             =B2    1           INDICATE SHORT CONSTANT                             CONRED       909     A     
 CONRED             BX6    X1                                                              CONRED       910     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1335    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONRED  
  
 CONRED             LX6    P.SHC                                                           CONRED       911     A     
 CONRED             ZR     B7,LCT      IF REAL CONSTANT                                    CONRED       912     A     
 CONRED             BX6    X1                                                              CONRED       913     A     
 CONRED             NZ     X1,LCT      IF CONSTANT NOT *0*                                 CONRED       914     A     
 CONRED             AX2    P.2BIAS                                                         CONRED       915     A     
 CONRED             ZR     X2,LCT      IF TRUE *0* CONSTANT                                CONRED       916     A     
 CONRED             MX1    1                                                               CONRED       917     A     
 CONRED             SB7    X2-1                                                            CONRED       918     A     
 CONRED             AX6    B7,X1       GENERATE *MASK* TYPE CONSTANT                       CONRED       919     A     
 CONRED                                                                                    CONRED       920     A     
 CONRED    LCT      SUBR               ENTRY/EXIT...                                       CONRED       921     A     
 CONRED             =X2    M.SHORT                                                         CONRED       922     A     
 CONRED             MX0    -L.MODE                                                         CONRED       923     A     
 CONRED             BX6    X2*X1                                                           CONRED       924     A     
 CONRED             NZ     X6,LCT1     IF SHORT CONSTANT                                   CONRED       925     A     
 CONRED             LX7    X1                                                              CONRED       926     A     
 CONRED             BX0    -X0*X1                                                          CONRED       927     A     
 CONRED             AX7    P.TGB                                                           CONRED       928     A     
 CONRED             SA2    TS.CON                                                          CONRED       929     A     
 CONRED             BX6    0           =0, NO CONSTANT                                     CONRED       930     A     
 CONRED             =B7    X7-C.CON/1S13                                                   CONRED       931     A     
 CONRED             =B2    0           INDICATE NO CONSTANT.                               CONRED       932     A     
 CONRED             NZ     B7,EXIT.    IF NOT *CONSTANT*                                   CONRED       933     A     
 CONRED                                                                                    CONRED       934     A     
 CONRED             AX1    P.TAG                                                           CONRED       935     A     
 CONRED             SB2    X1-C.CON                                                        CONRED       936     A     
 CONRED             SA1    X2+B2       LOAD CONSTANT (1ST WORD)                            CONRED       937     A     
 CONRED             =B7    1           INDICATE CONSTANT                                   CONRED       938     A     
 CONRED             =A2    A1+1        LOAD CONSTANT (2ND WORD)                            CONRED       939     A     
 CONRED             =B2    -1          INDICATE NOT SHORT CONSTANT                         CONRED       940     A     
 CONRED             BX6    X1          1ST WORD                                            CONRED       941     A     
 CONRED             LX7    X2          2ND WORD                                            CONRED       942     A     
 CONRED             EQ     EXIT.                                                           CONRED       943     A     
 CONRED             LIST   D                                                               CONRED       944     A     
 CONRED             END                                                                    CONRED       945     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CONRED  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CONRED                     945       869
          FCC0539                    111        96
          FCC0696                     16        15
          FCC0787                      2         2
          FCC0961                      5         5
          FCC1155                      4         4
          FCC1293                      2         2
          FCC1295                      8         8
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASF     
  
 ASF      *DECK     ASF                                                                    ASF            1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1336    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASF     
  
 ASF                IDENT  ASF                                                             ASF            2     A     
 ASF       ASF      SECT   (*ASF* DEFINITION / REFERENCE PROCESSORS),1                     ASF            3     A     
 ASF                                                                                       ASF            4     A     
 ASF                SST    A,B,D,EXIT.                                                     ASF            5     A     
 ASF                NOREF  A,B,D,EXIT.                                                     ASF            6     A     
 ASF                                                                                       ASF            7     A     
 ASF       B=ASF    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             ASF            8     A     
 ASF                                                                                       ASF            9     A     
 ASF                ENTRY  AFDEX,AFR,AFD                                                   ASF           10     A     
 ASF                                                                                       ASF           11     A     
 ASF      *         IN TABLES                                                              ASF           12     A     
 ASF                EXT    INAFR,REFVAR,TT=SCR,TT.SCR,TS.SYM,TT=ASF,TT.ASF                 ASF           13     A     
 ASF                                                                                       ASF           14     A     
 ASF      *         IN ERRORS                                                              ASF           15     A     
 ASF                EXT    E.AF10,E.AF11                                                   ASF           16     A     
 ASF                EXT    E.AF15,E.AF16,E.AF3,E.AF4,E.AF5,E.AF6,E.AF7,E.AF9               ASF           17     A     
 ASF      */ALLOW LONG NAMES ON SUBPROGRAM ARGUMENTS                                       ASF           18          I
          -FCC0498
 ASF                EXT    FILL.,FILL.2,SERRORS                                            ASF           19          I
          -FEAT126C 
 ASF                EXT    FILL.,FILL.2,ERR=F                                              FEAT126C     175     A     
 ASF                EXT    E.AF17                                                          FCC1247       13     A     
 ASF                                                                                       ASF           20     A     
 ASF      *         IN ALLOC                                                               ASF           21     A     
 ASF                EXT    ALC.ASF,ALC.REG,SCSA,ADW,SSY,SCT,SCS                            ASF           22     A     
 ASF                                                                                       ASF           23     A     
 ASF      *         IN MAIN                                                                ASF           24     A     
 ASF                EXT    PSP                                                             ASF           25     A     
 ASF                                                                                       ASF           26     A     
 ASF      *         IN INIT                                                                ASF           27     A     
 ASF                EXT    ASFERR,ASFARG,FWAASF,FWAARG,FWAREF,SCR,SVB6,SCR2                ASF           28     A     
 ASF                                                                                       ASF           29     A     
 ASF       ASF      SPACE  4,8                                                             ASF           30     A     
 ASF      **        *ASF* IS ENTERED BY MASTER LOOP WHEN A STATEMENT FUNCTION              ASF           31     A     
 ASF      *                DEFINITION IS ENCOUNTERED, AND IS CALLED BY *PAR* TO            ASF           32     A     
 ASF      *                EXPAND A STATEMENT FUNCTION REFERENCE.                          ASF           33     A     
 ASF       AFD      SPACE  4,12                                                            ASF           34     A     
 ASF      **        AFD -  ARITHMETIC FUNCTION DEFINITION PROCESSOR.                       ASF           35     A     
 ASF      *         ENTERED FROM COMPILERS MASTER LOOP.                                    ASF           36     A     
 ASF      *         ENTRY  (B4) - START OF STATEMENT.                                      ASF           37     A     
 ASF      *         EXIT   TO *PSP*.                                                       ASF           38     A     
 ASF      *                                                                                ASF           39     A     
 ASF      *         TT.ASF ENTRY FORMAT.                                                   ASF           40     A     
 ASF      *         1      = 24/0, 18/0, 18/LENGTH OF SKELETON + ARGUMENT WORDS            ASF           41     A     
 ASF      *         2 TO N = 6/0, 18/LEN OF REF, 18/FWA OF REF, 18/NO OF USES              ASF           42     A     
 ASF      *                                                                                ASF           43     A     
 ASF      *         N+1    = ACTUAL SKELETON, WITH DUMMY PARAMETERS ENTRIES IN THE         ASF           44     A     
 ASF      *                  FOLLOWING FORMAT                                              ASF           45     A     
 ASF      *                  18/PARAMETER NUMBER, 24/0, 18/O.ASFA                          ASF           46     A     
 ASF      *                                                                                ASF           47     A     
 ASF      *         USES TT.SCR FOR PARAMETER CHECKING.                                    ASF           48     A     
 ASF                                                                                       ASF           49     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1337    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASF     
  
 ASF                                                                                       ASF           50     A     
 ASF       AFD      SHRINK TT=SCR,0                                                        ASF           51     A     
 ASF                MX0    L.SYM                                                           ASF           52     A     
 ASF                =A2    B4                                                              FCC1247       14          I
          -FCC1247A 
 ASF                =A2    B4          CHECK IF ALREADY DEFINED                            FCC1247A       5     A     
 ASF                BX6    X0*X2                                                           FCC1247       15     A     
 ASF                SA6    FILL.                                                           FCC1247       16     A     
 ASF                SCAN   TS.SYM,SSY                                                      FCC1247       17     A     
 ASF                MI     B7,AFD05                                                        FCC1247       18          I
          -FCC1247A 
 ASF                MX0    L.SYM                                                           FCC1247A       6     A     
 ASF                MI     B7,AFD05    IF SYMBOL NOT FOUND                                 FCC1247A       7     A     
 ASF                SX2    M.NVAR                                                          FCC1247       19     A     
 ASF                BX2    X2*X6                                                           FCC1247       20     A     
 ASF                NZ     X2,AFD03    GO IF NVAR                                          FCC1247       21          I
          -FCC1247A 
 ASF                NZ     X2,AFD03    IF NVAR                                             FCC1247A       8     A     
 ASF                SX2    M.VAR+M.FP                                                      FCC1247       22     A     
 ASF                BX2    X2*X6                                                           FCC1247       23     A     
 ASF                ZR     X2,AFD05    OK IF NOT NVAR, VAR, OR FP                          FCC1247       24          I
          -FCC1247A 
 ASF                ZR     X2,AFD05    IF NOT NVAR, VAR OR FP                              FCC1247A       9     A     
 ASF                EQ     E.AF17      CONFLICTING DEFINITION                              FCC1247       25     A     
 ASF                                                                                       FCC1247       26     A     
 ASF       AFD03    SX2    M.ASF       HERE IF NVAR                                        FCC1247       27     A     
 ASF                BX2    X2*X6                                                           FCC1247       28     A     
 ASF                ZR     X2,E.AF17   FATAL IF NOT ASF                                    FCC1247       29          I
          -FCC1247A 
 ASF                ZR     X2,E.AF17   IF NOT ASF, FATAL ERROR                             FCC1247A      10     A     
 ASF                WARN   E.AF16      DUPLICATE ASF, NEW OVERRIDES                        FCC1247       30     A     
 ASF                MX0    L.SYM                                                           FCC1247       31     A     
 ASF       AFD05    =A2    B4+1                                                            ASF           53     A     
 ASF                =B4    B4+1                                                            ASF           54     A     
 ASF                SB7    X2-O.(                                                          ASF           55     A     
 ASF                NZ     B7,AFD05    IF LEFT PAREN NOT FOUND                             ASF           56     A     
 ASF                =A2    B4-1                                                            ASF           57     A     
 ASF                BX6    X0*X2                                                           ASF           58     A     
 ASF                ADDWD  TT.SCR                                                          ASF           59     A     
 ASF                SA6    FILL.                                                           ASF           60     A     
 ASF                                                                                       ASF           61     A     
 ASF      **        ADD DUMMY ARGS TO SCRATCH TABLE                                        ASF           62     A     
 ASF                                                                                       ASF           63     A     
 ASF       AFD10    =A4    B4+1                                                            ASF           64     A     
 ASF                =B4    B4+1                                                            ASF           65     A     
 ASF                SB7    X4-O.VAR                                                        ASF           66     A     
 ASF                NZ     B7,=XE.AF15       IF NOT VARIABLE                               ASF           67     A     
 ASF                MX0    L.SYM                                                           ASF           68     A     
 ASF                BX6    X4*X0                                                           ASF           69     A     
 ASF                SA6    FILL.2                                                          FCC0396       19     A     
 ASF                SCAN   TT.SCR,SCT  LOOK FOR DUMMY ARG                                  ASF           70     A     
 ASF                MI     B7,AFD13    IF NOT ALREADY REFERENCED                           ASF           71     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1338    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASF     
  
 ASF                SA6    FILL.2                                                          ASF           72          I
          -FCC0396
 ASF                FATAL  =XE.AF9     DUPLICATE DUMMY ARG                                 ASF           73     A     
 ASF                EQ     AFD13A      DONOT ADD ERROR ENTRY TO TT.SCR                     FCCA526       13     A     
 ASF       AFD13    ADDWD  TT.SCR                                                          ASF           74     A     
 ASF                =A4    B4+1                                                            ASF           75          I
          -FCCA526
 ASF       AFD13A   =A4    B4+1                                                            FCCA526       14     A     
 ASF                SB7    X4-O.VAR                                                        ASF           76     A     
 ASF                NZ     B7,AFD14    IF NOT LONG NAME                                    ASF           77     A     
 ASF                RJ     =XTLV       TRUNCATE NAME                                       ASF           78     A     
 ASF      AFD14     =A4    B4+1                                                            ASF           79     A     
 ASF                =B4    B4+1                                                            ASF           80     A     
 ASF                SB7    X4-O.COMMA                                                      ASF           81     A     
 ASF                ZR     B7,AFD10    IF MORE ARGS                                        ASF           82     A     
 ASF                SB7    X4-O.)                                                          ASF           83     A     
 ASF                ZR     B7,AFD20    IF RIGHT PAREN FOUND                                ASF           84     A     
 ASF                BX6    X4                                                              ASF           85     A     
 ASF                SA6    FILL.                                                           ASF           86     A     
 ASF                EQ     =XE.TC2     EXPECTED COMMA OR RIGHT PAREN                       ASF           87     A     
 ASF                                                                                       ASF           88     A     
 ASF      **        HERE IF END OF ARGUMENT STRING FOUND                                   ASF           89     A     
 ASF      *         (B4) _ CLOSING *)*                                                     ASF           90     A     
 ASF                                                                                       ASF           91     A     
 ASF       AFD20    SA2    B4+B1                                                           ASF           92     A     
 ASF                SB4    B4+B1                                                           ASF           93     A     
 ASF                SB7    X2-O.=                                                          ASF           94     A     
 ASF                NZ     B7,E.AF3    IF NO *=* FOLLOWING END OF ARUGMENTS                ASF           95     A     
 ASF                SX6    B4                                                              ASF           96     A     
 ASF                SB5    B4          LENGTH OF *ASF* SKELETON                            ASF           97     A     
 ASF                SA2    ASFMASK                                                         ASF           98     A     
 ASF                SA6    SCR+1       SAVE START OF *ASF*                                 ASF           99     A     
 ASF                BX6    X2                                                              ASF          100     A     
 ASF                SA6    SCSA        SET MASK FOR *SCS*                                  ASF          101     A     
 ASF                                                                                       ASF          102     A     
 ASF      **        HERE IF *=* FOUND AFTER END OF ARGUMENTS.                              ASF          103     A     
 ASF      *         SCAN THROU *ASF* REPLACING ALL REFERENCES TO DUMMY PARAMETERS          ASF          104     A     
 ASF      **T  DUM-ARG     18/ PARAM NUM,  24/ ,  18/ O.AFSA                               ASF          105     A     
 ASF      *                CHECK IF ASF IS RECURSIVE, AND OUTPUT ERROR IF SO.              ASF          106     A     
 ASF                                                                                       ASF          107     A     
 ASF       AFD30    SA1    B4+B1                                                           ASF          108     A     
 ASF                SB4    B4+B1                                                           ASF          109     A     
 ASF                BX6    X1                                                              ASF          110     A     
 ASF                ZR     X1,AFD50    IF *EOS*                                            ASF          111     A     
 ASF                SB7    X1-O.VAR                                                        ASF          112     A     
 ASF                NZ     B7,AFD30    IF NOT VARIABLE, WHY BOTHER                         ASF          113     A     
 ASF                BX0    X1                                                              ASF          114     A     
 ASF                SA1    OCTCK                                                           ASF          115     A     
 ASF                IX0    X1-X0                                                           ASF          116     A     
 ASF                NZ     X0,AFD31    IF NOT OCTAL CONSTANT                               ASF          117     A     
 ASF                =A1    B4-1                                                            ASF          118     A     
 ASF                SB7    X1-O.CONS                                                       ASF          119     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1339    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASF     
  
 ASF                NZ     B7,AFD31    IF NOT OCTAL CONSTANT                               ASF          120     A     
 ASF                EQ     AFD30                                                           ASF          121     A     
 ASF       AFD31    SCAN   TT.SCR,SCS  SCAN TO SEE IF ARGUMENT                             ASF          122     A     
 ASF                MI     B7,AFD30    IF NOT IN TABLE (NOT ARGUMENT)                      ASF          123     A     
 ASF                ZR     B7,E.AF6    IF RECURSIVE DEFINITION.                            ASF          124     A     
 ASF                =X0    1                                                               ASF          125     A     
 ASF                IX7    X0+X2       UPDATE USE COUNT                                    ASF          126     A     
 ASF                SX6    B7                                                              ASF          127     A     
 ASF                SA7    A2          RESET WITH USE COUNT UPDATED                        ASF          128     A     
 ASF                                                                                       ASF          129     A     
 ASF      **        HERE IF ARGUMENT REFERENCE FOUND.                                      ASF          130     A     
 ASF                                                                                       ASF          131     A     
 ASF                LX6    P.TAG                                                           ASF          132     A     
 ASF                SX0    O.ASFA                                                          ASF          133     A     
 ASF                IX6    X0+X6                                                           ASF          134     A     
 ASF                SA6    B4          RESET TO INDICATE ARGUMENT.                         ASF          135     A     
 ASF                =A3    B4+1                                                            ASF          136     A     
 ASF                SB7    X3-O.VAR                                                        ASF          137     A     
 ASF                NZ     B7,AFD30    IF NOT LONG NAME                                    ASF          138     A     
 ASF                                                                                       ASF          139     A     
 ASF      **        THROW AWAY EXCESS TOKENS IN NAME (OVERWRITE STRING BUFFER)             ASF          140     A     
 ASF                                                                                       ASF          141     A     
 ASF       AFD32    =A3    A3+1                                                            ASF          142     A     
 ASF                SB7    X3-O.VAR                                                        ASF          143     A     
 ASF                ZR     B7,AFD32    IF MORE TOKENS IN NAME                              ASF          144     A     
 ASF                =A1    A3-1                                                            ASF          145     A     
 ASF       AFD34    =A1    A1+1                                                            ASF          146     A     
 ASF                NZ     X1,AFD34    IF NOT EOS                                          ASF          147     A     
 ASF                =B7    A3-1                                                            ASF          148     A     
 ASF                MVE    A1-B7,A3,B4+1     THROW AWAY THE WHOLE BLOODY MESS              ASF          149     A     
 ASF                EQ     AFD30       CONTINUE                                            ASF          150     A     
 ASF                                                                                       ASF          151     A     
 ASF      **        VALIDATE THAT ALL DUMMY PARAMETERS ARE USED.                           ASF          152     A     
 ASF      *         (IF ONE IS NOT USED OUTPUT WARNING MESSAGE.)                           ASF          153     A     
 ASF                                                                                       ASF          154     A     
 ASF       AFD50    SA2    TT=SCR                                                          ASF          155     A     
 ASF                SA4    TT.SCR                                                          ASF          156     A     
 ASF                SB3    X2-1        DO NOT CHECK ASF NAME ITSELF.                       ASF          157     A     
 ASF                MX5    L.SYM                                                           ASF          158     A     
 ASF                SB5    B4-B5       LENGTH OF ASF SKELETON                              ASF          159     A     
 ASF                SB6    B3          NUMBER OF PARAMETERS.                               ASF          160     A     
 ASF                                                                                       ASF          161     A     
 ASF       AFD52    SA2    X4+B3                                                           ASF          162     A     
 ASF                SB3    B3-B1                                                           ASF          163     A     
 ASF                SX1    X2                                                              ASF          164     A     
 ASF                MI     B3,AFD60    IF END OF ARGUMENT LIST.                            ASF          165     A     
 ASF                NZ     X1,AFD52    IF ARGUMENT USED                                    ASF          166     A     
 ASF                BX6    X5*X2                                                           ASF          167     A     
 ASF                SA6    FILL.2      ARGUMENT NOT USED.                                  ASF          168     A     
 ASF                WARN   E.AF7       ARGUMENT NEVER USED.                                ASF          169     A     
 ASF                EQ     AFD52       LOOP THROU TABLE.                                   ASF          170          I
          -FEAT126C 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1340    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASF     
  
 ASF                EQ     AFD52       LOOP THROUGH TABLE                                  FEAT126C     176     A     
 ASF                                                                                       ASF          171     A     
 ASF      **        HERE WHEN ALL ARGUMENT REFERENCES IN *ASF* HAVE BEEN                   ASF          172     A     
 ASF      *         TRANSLATED AND VALIDATED                                               ASF          173     A     
 ASF      *         NOW ADD SKELETON FOR *ASF* TO TT.ASF TABLE.                            ASF          174     A     
 ASF      *         (B5) = LENGTH OF SKELETON FOR THIS ASF.                                ASF          175     A     
 ASF      *         (B6) = NUMBER OF PARAMETERS.                                           ASF          176     A     
 ASF                                                                                       ASF          177     A     
 ASF       AFD60    ZR     B5,E.AF4    NULL PARAMETER LIST                                 ASF          178          I
          -FCC0396
 ASF       AFD60    LE     B5,B1,E.AF4 IF NULL PARAMETER LIST.                             FCC0396       20     A     
 ASF                SA2    SERRORS                                                         ASF          179          I
          -FEAT126C 
 ASF                SA2    ERR=F                                                           FEAT126C     177     A     
 ASF                NZ     X2,AFDEX    IF ERRORS, SUPPRESS DEFINITION                      ASF          180     A     
 ASF                =X6    B6+1                                                            ASF          181     A     
 ASF                SX7    B5                                                              ASF          182     A     
 ASF                SA6    ARGNUM      SAVE B6 CELL                                        ASF          183     A     
 ASF                SA7    ASFLEN      SAVE B5 CELL                                        ASF          184     A     
 ASF                                                                                       ASF          185     A     
 ASF      **        MAKE SYMBOL TABLE ENTRY                                                ASF          186     A     
 ASF                                                                                       ASF          187     A     
 ASF                SA1    TT.SCR                                                          ASF          188     A     
 ASF                =X6    CR.DEC                                                          ASF          189     A     
 ASF                SA2    X1                                                              ASF          190     A     
 ASF                SA6    REFVAR      SET REF MAP VALUE                                   ASF          191     A     
 ASF                BX6    X2                                                              ASF          192     A     
 ASF                SCAN   TS.SYM,SSY                                                      ASF          193     A     
 ASF                MI     B7,AFD62    IF NOT ALREADY IN TABLE                             ASF          194     A     
 ASF                =X3    M.DEF+M.ASF+M.NVAR+M.FUN                                        ASF          195     A     
 ASF                =B7    B7+1                                                            ASF          196     A     
 ASF                BX7    X3+X6                                                           ASF          197     A     
 ASF                SA7    A2                                                              ASF          198     A     
 ASF                SB3    B7                                                              ASF          199          I
          -FCC1247
 ASF                NOTE   E.AF16      NEW DEFINITION OVERRIDES PREVIOUS                   ASF          200          I
          -FCC0521  -FCC1247
 ASF                SB7    B3                                                              ASF          201          I
          -FCC0521  -FCC1247
 ASF                IFBIT  X6,-ASF,AFD61                                                   FCC0521        6          I
          -FCC1247
 ASF                WARN   E.AF16      NEW DEFINITION OVERRIDES PREVIOUS                   FCC0521        7          I
          -FCC1247
 ASF       AFD61    SB7    B3                                                              FCC0521        8          I
          -FCC1247
 ASF                EQ     AFD64                                                           ASF          202     A     
 ASF                                                                                       ASF          203     A     
 ASF      **        TAG ASF IF NOT ALREADY DEFINED                                         ASF          204     A     
 ASF                                                                                       ASF          205     A     
 ASF       AFD62    SA1    TT.SCR                                                          ASF          206     A     
 ASF                TAGASF X1                                                              ASF          207     A     
 ASF       AFD64    SX6    B7                                                              ASF          208     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1341    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASF     
  
 ASF                SA6    SCR                                                             ASF          209     A     
 ASF                                                                                       ASF          210     A     
 ASF      **        ADD SKELETON TO TABLE                                                  ASF          211     A     
 ASF                                                                                       ASF          212     A     
 ASF                SA1    ARGNUM                                                          ASF          213     A     
 ASF                SA2    ASFLEN                                                          ASF          214     A     
 ASF                SB6    X1                                                              ASF          215     A     
 ASF                SB5    X2                                                              ASF          216     A     
 ASF                SA1    SCR+1                                                           ASF          217     A     
 ASF                SB4    X1                                                              ASF          218     A     
 ASF                SX4    B5+B6                                                           ASF          219     A     
 ASF                SA5    TT=ASF                                                          ASF          220     A     
 ASF                ALLOC  TT.ASF,X4   ALLOCIATE ROOM FOR CURRENT *ASF*                    ASF          221     A     
 ASF                                                                                       ASF          222     A     
 ASF      **        PREFIX SKELETON WITH USE COUNTS OF ARGUMENTS                           ASF          223     A     
 ASF                                                                                       ASF          224     A     
 ASF                SA2    TT.SCR                                                          ASF          225     A     
 ASF                SB2    B7-B5       STORE ADDRESS                                       ASF          226     A     
 ASF                SA3    X2+B6       LAST ARGUMENTS USE COUNT                            ASF          227     A     
 ASF                SB3    B6                                                              ASF          228     A     
 ASF       AFD65    BX6    X3                                                              ASF          229     A     
 ASF                =B3    B3-1                                                            ASF          230     A     
 ASF                SA6    B2                                                              ASF          231     A     
 ASF                =A3    A3-1                                                            ASF          232     A     
 ASF                =B2    B2-1                                                            ASF          233     A     
 ASF                NZ     B3,AFD65    IF NOT END OF ARGUMENTS                             ASF          234     A     
 ASF                SA3    TT=SCR      NUMBER OF ARGS + 1                                  ASF          235     A     
 ASF                IX6    X4-X3                                                           ASF          236     A     
 ASF                SA6    A6-1        LENGTH OF SKELETON = 1ST WORD OF ASF                ASF          237     A     
 ASF                                                                                       ASF          238     A     
 ASF      **        (X1) = NEW ORGIN OF TS.ARG.                                            ASF          239     A     
 ASF      *         (X2) = LENGTH.                                                         ASF          240     A     
 ASF      *         (X5) = FWA FOR CURRENT SKELETON RELATIVE TO TT.ASF                     ASF          241     A     
 ASF      *         (B6) = NUMBER OF PARAMETERS +1.                                        ASF          242     A     
 ASF                                                                                       ASF          243     A     
 ASF                SA4    TS.SYM                                                          ASF          244     A     
 ASF                IX1    X1+X5                                                           ASF          245     A     
 ASF                SA3    SCR         SYMBOL TABLE ORDINAL                                ASF          246     A     
 ASF                =X0    B6-1        NUMBER OF ARGUMENTS                                 ASF          247     A     
 ASF                SB7    X4                                                              ASF          248     A     
 ASF                SA2    X3+B7       TAG FOR CURRENT ASF                                 ASF          249     A     
 ASF                MX6    -L.ARGC     CLEAR FIELDS IN CASE OF DUP DEF                     FCC1247       32     A     
 ASF                LX6    P.ARGC                                                          FCC1247       33     A     
 ASF                BX2    X6*X2                                                           FCC1247       34     A     
 ASF                MX6    -L.ASFP                                                         FCC1247       35     A     
 ASF                LX6    P.ASFP                                                          FCC1247       36     A     
 ASF                BX2    X6*X2                                                           FCC1247       37     A     
 ASF                LX0    P.ARGC                                                          ASF          250     A     
 ASF                SB3    A6+B6       FWA FOR SKELETON                                    ASF          251     A     
 ASF                IX6    X0+X2       ADD IN PARAMETER FIELD                              ASF          252     A     
 ASF                =A4    B4+1        FWA OF SKELETON                                     ASF          253     A     
 ASF                LX5    P.PNT                                                           ASF          254          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1342    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASF     
  
          -FCC1201
 ASF                LX5    P.ASFP                                                          FCC1201        5     A     
 ASF                BX6    X6+X5       TT.ASF ORDINAL TO POINTER FIELD                     ASF          255     A     
 ASF                SA6    A2          ASF TAG WITH PARAMETER COUNT TO SYMBOL TAB          ASF          256     A     
 ASF                                                                                       ASF          257     A     
 ASF      **        ADD SKELETON TO *ASF* TABLE FOR LATER PROCESSING WHEN *ASF*            ASF          258     A     
 ASF      *         USED.                                                                  ASF          259     A     
 ASF      *         (B5) = LENGTH OF SKELETON.                                             ASF          260     A     
 ASF      *         (A4) _ SKELETON                                                        ASF          261     A     
 ASF      *         (B3) _ FWA FOR SKELETON                                                ASF          262     A     
 ASF                                                                                       ASF          263     A     
 ASF       AFD70    BX6    X4                                                              ASF          264     A     
 ASF                =B5    B5-1                                                            ASF          265     A     
 ASF                SA6    B3          ADD SKELETON WORD TO ASF TABLE                      ASF          266     A     
 ASF                =A4    A4+1        NEXT WORD                                           ASF          267     A     
 ASF                =B3    B3+1                                                            ASF          268     A     
 ASF                NZ     B5,AFD70    IF NOT END                                          ASF          269     A     
 ASF                =X6    O.EOS       INDICATE END OF ASF                                 ASF          270     A     
 ASF                SA6    A6                                                              ASF          271     A     
 ASF       AFDEX    SHRINK TT=SCR,0    CLEAR TABLE                                         ASF          272     A     
 ASF                EQ     PSP         EXIT..                                              ASF          273     A     
 ASF                                                                                       ASF          274     A     
 ASF       ASFMASK  VFD    L.SYM/-0,*P/0                                                   ASF          275     A     
 ASF       ASFLEN   DATA   0           TEMP SAVE CELL                                      ASF          276     A     
 ASF       ARGNUM   DATA   0           TEMP SAVE CELL                                      ASF          277     A     
 ASF                                                                                       ASF          278     A     
 ASF       OCTCK    VFD    L.SYM/0LB,L.SBPR/O.VAR  OCTAL CONSTANT CHECK                    ASF          279     A     
 ASF       AFR      EJECT  4,20                                                            ASF          280     A     
 ASF      **        AFR -  ARITHMETIC STATEMENT FUNCTION REFERENCE PROCESSING.             ASF          281     A     
 ASF      *                                                                                ASF          282     A     
 ASF      *         ENTERED FROM *PARSE* UPON FINDING A REFERENCE TO AN *ASF*              ASF          283     A     
 ASF      *            FOLLOWED BY A *(*.                                                  ASF          284     A     
 ASF      *                                                                                ASF          285     A     
 ASF      *         ENTRY  (B4) _ *ASF* TO PROCESS.                                        ASF          286     A     
 ASF      *                FILL. = *ASF* NAME.                                             ASF          287     A     
 ASF      *                (X7)  = *ASF* SYMBOL TABLE TAG.                                 ASF          288     A     
 ASF      *                (B6)  _ *ASF* ENTRY IN ESTACK.                                  ASF          289     A     
 ASF      *                (INAFR) SET                                                     ASF          290     A     
 ASF      *                                                                                ASF          291     A     
 ASF      *         EXIT   (B6) RESET, ELIMINATING *ASF* FROM ESTACK                       ASF          292     A     
 ASF      *                (B4) = WHERE TO INPUT FROM.                                     ASF          293     A     
 ASF      *                (INAFR) RESET, IF NECESSARY.                                    ASF          294     A     
 ASF      *                (ALC.REG) LOCKS (B4) TO TT.ASF                                  ASF          295     A     
 ASF                                                                                       ASF          296     A     
 ASF                                                                                       ASF          297     A     
 ASF       AFR      SUBR               ENTRY/EXIT...                                       ASF          298     A     
 ASF                =X6    B6-1        ELIMINATE *ASF* FROM ESTACK                         ASF          299     A     
 ASF                MX1    -L.ARGC                                                         ASF          300     A     
 ASF                SA6    SVB6        SAVE (B6)                                           ASF          301     A     
 ASF                SX6    B5                                                              ASF          302     A     
 ASF                =A6    A6+1        SAVE (B5)                                           ASF          303     A     
 ASF                SA2    TT=SCR                                                          ASF          304     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1343    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASF     
  
 ASF                =X6                                                                    ASF          305     A     
 ASF                AX7    P.ARGC                                                          ASF          306     A     
 ASF                SA6    ASFERR      INDICATE NO ARGUMENT ERROR                          ASF          307     A     
 ASF                BX6    X2                                                              ASF          308     A     
 ASF                MX3    -L.PNT                                                          ASF          309          I
          -FCC1201
 ASF                MX3    -L.ASFP                                                         FCC1201        6     A     
 ASF                SA6    SCR2                                                            ASF          310     A     
 ASF                =B4    B4+1                                                            ASF          311     A     
 ASF                BX6    -X1*X7      NUMBER OF PARAMETERS                                ASF          312     A     
 ASF                AX7    P.PNT-P.ARGC                                                    ASF          313          I
          -FCC1201
 ASF                AX7    P.ASFP-P.ARGC                                                   FCC1201        7     A     
 ASF                SA1    TT.ASF                                                          ASF          314     A     
 ASF                SA2    INAFR                                                           ASF          315     A     
 ASF                BX7    -X3*X7      ASF DEFINITION RELATIVE ADDRESS                     ASF          316     A     
 ASF                SB6    X6                                                              ASF          317     A     
 ASF                IX0    X7+X1                                                           ASF          318     A     
 ASF                SA6    ASFARG                                                          ASF          319     A     
 ASF                SA7    FWAASF                                                          ASF          320     A     
 ASF                BX6    0                                                               ASF          321     A     
 ASF                =X7    B4-1        FWA OF REFERENCE                                    ASF          322     A     
 ASF                SA6    FWAARG                                                          ASF          323     A     
 ASF                ZR     X2,AFR17    IF INPUT FROM *SB*                                  ASF          324     A     
 ASF                IX7    X7-X1                                                           ASF          325     A     
 ASF       AFR17    SA7    FWAREF      SAVE FWA OF REFERENCE                               ASF          326     A     
 ASF                =B3    X0+1        (B3) = ADDRESS OF ARG DESCRIPTORS                   ASF          327     A     
 ASF                                                                                       ASF          328     A     
 ASF      *         NOW    (ASFARG) = NUMBER OF PARAMS                                     ASF          329     A     
 ASF      *                (ASFERR) = 0 (NO ERROR)                                         ASF          330     A     
 ASF      *                (FWAREF) = *SB* ADDR OF FWA REFERENCE                           ASF          331     A     
 ASF      *                (FWAARG) = RELATIVE ADDRESS OF ACTUAL ARGUMENTS                 ASF          332     A     
 ASF                                                                                       ASF          333     A     
 ASF      **        SCAN THRU PARAMETER CALL FOR ZERO LEVEL COMMA.                         ASF          334     A     
 ASF      *         AND ENTERING IN PARAMETER CELLS FOR *ASF*                              ASF          335     A     
 ASF      *         ENTRY  (B3) = ADDRESS OF FWA DESCRIPTORS IN DEFINITION                 ASF          336     A     
 ASF      *                (B4) = FWA OF ARGUMENT                                          ASF          337     A     
 ASF      *                (B6) = NUMBER OF PARAMETERS REMAINING TO DO                     ASF          338     A     
 ASF      *         USES   (B2) = PC COUNT. (PC= PAREN COUNT)                              ASF          339     A     
 ASF      *                (B5) = FWA OF ARGUMENT                                          ASF          340     A     
 ASF      *                (X5) = SPACE ACCUMULATOR                                        ASF          341     A     
 ASF                                                                                       ASF          342     A     
 ASF                =B5    B4          START OF ARGUMENT                                   ASF          343     A     
 ASF                =B2    0           INITIALIZE PAREN LEVEL                              ASF          344     A     
 ASF                =X5    1           CLEAR SPACE REQUIRED TOTAL                          ASF          345     A     
 ASF                                                                                       ASF          346     A     
 ASF       AFR20    SA1    B4                                                              ASF          347     A     
 ASF                SX2    X1-O.LP                                                         ASF          348     A     
 ASF                =B4    B4+1                                                            ASF          349     A     
 ASF                ZR     X1,E.AF5    IF PREMATURE END OF STATEMENT.                      ASF          350     A     
 ASF                NZ     X2,AFR25    IF NOT *(*                                          ASF          351     A     
 ASF                =B2    B2+1        PC=PC+1                                             ASF          352     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1344    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASF     
  
 ASF                EQ     AFR20       CONTINUE                                            ASF          353     A     
 ASF                                                                                       ASF          354     A     
 ASF       AFR25    =X2    X2+O.LP-O.RP                                                    ASF          355     A     
 ASF                NZ     X2,AFR26    IF NOT *)*                                          ASF          356     A     
 ASF                =B2    B2-1        PC=PC-1                                             ASF          357     A     
 ASF                PL     B2,AFR20    IF NOT ENDING PAREN                                 ASF          358     A     
 ASF                NE1    B6,E.AF11                                                       ASF          359     A     
 ASF                EQ     AFR30                                                           ASF          360     A     
 ASF                                                                                       ASF          361     A     
 ASF       AFR26    NZ     B2,AFR20    IF NOT IN ZERO LEVEL                                ASF          362     A     
 ASF                SX2    X1-O.COMMA                                                      ASF          363     A     
 ASF                NZ     X2,AFR20    IF NO COMMA                                         ASF          364     A     
 ASF                                                                                       ASF          365     A     
 ASF      **        FOUND ZERO LEVEL COMMA OR RIGHT PARENTHESIS.                           ASF          366     A     
 ASF      *                (B3) = ADDRESS OF FWA DESCRIPTORS IN DEFINITON                  ASF          367     A     
 ASF      *                (B4) _ NEXT ELEMENT AFTER *,* OR *)*.                           ASF          368     A     
 ASF      *                (B5) _ START OF CURRENT ARGUMENT                                ASF          369     A     
 ASF      *                (B6) = NUMBER OF ARGS REMAINING TO DO                           ASF          370     A     
 ASF                                                                                       ASF          371     A     
 ASF       AFR30    NE     B4,B5,AFR32 IF NOT NULL PARAMETER.                              ASF          372     A     
 ASF                FATAL  E.AF10      EMPTY PARAMETER LIST.                               ASF          373     A     
 ASF                                                                                       ASF          374     A     
 ASF       AFR32    SA1    B3                                                              ASF          375     A     
 ASF                SA2    FWAARG                                                          ASF          376     A     
 ASF                SX3    B4-B5       LENGTH OF ARGUMENT + 1                              ASF          377     A     
 ASF                IX7    X2+X3                                                           ASF          378     A     
 ASF                =X3    X3-1        ACTUAL ARGUMENT LENGTH                              ASF          379     A     
 ASF                =B5    B4          START OF NEXT PARAMETER                             ASF          380     A     
 ASF                LX2    18                                                              ASF          381     A     
 ASF                SA7    A2          UPDATE RELATIVE ARG START                           ASF          382     A     
 ASF                BX0    X3                                                              ASF          383     A     
 ASF                SX4    X1          ISOLATE ARGUMENT USE COUNT                          ASF          384     A     
 ASF                LX3    2*18                                                            ASF          385     A     
 ASF                =X0    X0-1                                                            ASF          386     A     
 ASF                ZR     X0,AFR37    IF ARGUMENT IS SINGLE ELEMENT                       ASF          387     A     
 ASF                SX0    X0+2        OTHERWISE ALLOW SPACE FOR PARENTHESES               ASF          388     A     
 ASF       AFR37    IX4    X0*X4       (X4)  = LENGTH * USES                               ASF          389     A     
 ASF                BX7    X3+X2                                                           ASF          390     A     
 ASF                =B3    B3+1                                                            ASF          391     A     
 ASF                SX1    X1          ISOLATE ARGUMENT USE COUNT                          ASF          392     A     
 ASF                BX6    X1+X7       6/ 0,  18/ LENARG,  18/ FWA ARG,  18/ USES          ASF          393     A     
 ASF                =B6    B6-1                                                            ASF          394     A     
 ASF                IX5    X5+X4       ACCUMULATE EXPANSION SIZE                           ASF          395     A     
 ASF                =A6    B3-1        RESET ARG POINTER WORD                              ASF          396     A     
 ASF                GT     B6,AFR20    IF ALL ARGUMENT NOT PROCESSED                       ASF          397          I
          -FEAT126C 
 ASF                GT     B6,AFR20    IF ALL ARGUMENTS NOT PROCESSED                      FEAT126C     178     A     
 ASF                                                                                       ASF          398     A     
 ASF                PL     B2,E.AF11   IF NOT TERMINAL *)* FOUND - ARGUMENT ERROR          ASF          399     A     
 ASF                                                                                       ASF          400     A     
 ASF                                                                                       ASF          401     A     
 ASF      **        WE HAVE NOW COMPUTED THE LENGTH NECESSARY TO HOLD ALL OF THE           ASF          402     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1345    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASF     
  
 ASF      *         ACTUAL ARGUMENTS.  THEY MUST NOW BE MOVED OUT OF THE WAY, SO           ASF          403     A     
 ASF      *         WE CAN START STORING THE EXPANSION OVER TOP OF THEM.                   ASF          404     A     
 ASF      *                (X5) = LENGTH OF ALL ACTUAL ARGUMENTS                           ASF          405     A     
 ASF      *                       + PARENTHESES (IF NEEDED)                                ASF          406     A     
 ASF      *                (B4) = END OF ACTUAL ARGS + 1                                   ASF          407     A     
 ASF      *                (FWAREF) = IF IN *SB* -- ADDRESS                                ASF          408     A     
 ASF      *                           IF TT.ASF  -- RELATIVE ADDRESS                       ASF          409     A     
 ASF      *                (FWAASF) = RELATIVE ADDRESS OF FWA ASF DEFINITION               ASF          410     A     
 ASF                                                                                       ASF          411     A     
 ASF                SA2    FWAARG                                                          ASF          412     A     
 ASF                =X2    X2+1                                                            ASF          413     A     
 ASF                ALLOC  TT.SCR,X2                                                       ASF          414     A     
 ASF                SA3    INAFR                                                           ASF          415     A     
 ASF                SA2    FWAREF                                                          ASF          416     A     
 ASF                ZR     X3,AFR52    IF INPUT WAS ALREADY FROM AN ASF                    ASF          417     A     
 ASF                SA3    TT.ASF                                                          ASF          418     A     
 ASF       AFR52    IX2    X2+X3       FROM = (FWAREF) + OFFSET                            ASF          419     A     
 ASF                SB5    X2                                                              ASF          420     A     
 ASF                SX3    B7                                                              ASF          421     A     
 ASF                SX1    B4-B5       W.C. = LEN OF ALL ACTUAL ARGS                       ASF          422     A     
 ASF                IX3    X3-X1       DEST = (LWA) - (LENGTH)                             ASF          423     A     
 ASF                MVE    X1,X2,X3    MOVE ACTUAL ARGUMENTS TO SCRATCH AREA               ASF          424     A     
 ASF                                                                                       ASF          425     A     
 ASF                SA1    TT.ASF                                                          ASF          426     A     
 ASF                SA2    FWAASF                                                          ASF          427     A     
 ASF                IX0    X1+X2       (X0) = ADDRESS OF DEFINITION                        ASF          428     A     
 ASF                SA3    X0          LENGTH OF SKELETON                                  ASF          429     A     
 ASF                SA2    INAFR                                                           ASF          430     A     
 ASF                IX0    X3+X5                                                           ASF          431     A     
 ASF                SB6    X0          (B6) = TOTAL LENGTH NEEDED FOR EXPANSION            ASF          432     A     
 ASF                ZR     X2,AFR60    IF NOT ALREADY INSIDE *ASF*                         ASF          433     A     
 ASF                                                                                       ASF          434     A     
 ASF                                                                                       ASF          435     A     
 ASF      **        IF WE WERE ALREADY INSIDE A STATEMENT FUNCTION, THEN THE               ASF          436     A     
 ASF      *         SPACE FORMERLY OCCUPIED BY THE ACTUAL ARGUMENT TEXT MUST BE            ASF          437     A     
 ASF      *         TRASHED.  THE SPACE ACTUALLY NEEDED FOR THE EXPANSION IS --            ASF          438     A     
 ASF      *         (REQ)  = (CURRENT) + (B6) - (ACTUAL ARG LEN)                           ASF          439     A     
 ASF      *                (B6) = LENGTH NEEDED TO HOLD THIS EXPANSION --                  ASF          440     A     
 ASF      *                     = (SKELETON LENGTH) + (X5)                                 ASF          441     A     
 ASF      *                (X0) = (B6)                                                     ASF          442     A     
 ASF      *                (X5) = LENGTH NEEDED FOR ALL OCCURENCES OF ACTUAL               ASF          443     A     
 ASF      *                            ARGUMENTS IN THE SKELETON.                          ASF          444     A     
 ASF      *                (B5) = FWA ACTUAL ARGS                                          ASF          445     A     
 ASF      *                (B4) = END ACTUAL ARGS, +1                                      ASF          446     A     
 ASF      *                (ACTUAL ARG LENGTH) = (B4) - (B5)                               ASF          447     A     
 ASF                                                                                       ASF          448     A     
 ASF                =B4    B4-1                                                            ASF          449     A     
 ASF                =B6    B6-1        DONT THE CELL FOR AN *EOS*                          ASF          450     A     
 ASF                SB5    B4-B5       ACTUAL ARGUMENT LENGTH                              ASF          451     A     
 ASF                                                                                       ASF          452     A     
 ASF                                                                                       ASF          453     A     
 ASF      **        FORTUNATELY, WE CAN ADJUST THE ALLOCATION BEFORE MOVING STUFF          ASF          454     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1346    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASF     
  
 ASF      *         AROUND, REGARDLESS OF WHETHER THE TABLE EXPANDS OR CONTRACTS.          ASF          455     A     
 ASF      *         THIS IS BECAUSE A SHRINKING TABLE WILL NOT CAUSE ANY MOVEMENT          ASF          456     A     
 ASF      *         OF TABLES, AND THE WORDS WHICH ARE NOT NOW FORMALLY IN THE             ASF          457     A     
 ASF      *         TABLE WILL STILL EXIST, RIGHT WHERE THEY WERE.  ANY SUCH WORDS         ASF          458     A     
 ASF      *         ARE THEN MOVED TO THEIR NEW POSITION.                                  ASF          459     A     
 ASF      *                (B6) = SIZE OF EXPANSION                                        ASF          460     A     
 ASF      *                (B5) = ACTUAL ARGUMENT LENGTH                                   ASF          461     A     
 ASF      *                ADJUSTMENT TO LENGTH = (B6) - (B5)                              ASF          462     A     
 ASF      *                (B7) = NEW END OF TABLE + 1                                     ASF          463     A     
 ASF                                                                                       ASF          464     A     
 ASF                SX0    B6-B5                                                           ASF          465     A     
 ASF                ALLOC  TT.ASF,X0                                                       ASF          466     A     
 ASF                SB2    B6-B5                                                           ASF          467     A     
 ASF                SX0    B7                                                              ASF          468     A     
 ASF                =X3    B4+B2       DEST = (FROM) + (ADJUSTMENT)                        ASF          469     A     
 ASF                SA5    B4                                                              ASF          470     A     
 ASF                SX2    B4          FROM = END +1 OF ACTUAL ARGS                        ASF          471     A     
 ASF                IX1    X0-X3       W.C. = (LWA) - (DESTINATION)                        ASF          472     A     
 ASF                MVE    X1,X2,X3    SLIDE THE TRAILING PORTION AROUND                   ASF          473     A     
 ASF                SA1    TT.ASF                                                          ASF          474     A     
 ASF                SB2    B4-B5       FWA TO STORE SKELETON = (END ARGS) - (LEN)          ASF          475     A     
 ASF                BX7    X5                                                              ASF          476     A     
 ASF                EQ     AFR65       BYPASS RE-ALLOCATION..                              ASF          477     A     
 ASF                                                                                       ASF          478     A     
 ASF      **        WHEN INPUT IS FROM THE *SB*, TT.ASF MUST BE ALLOCATED ENOUGH           ASF          479     A     
 ASF      *         ROOM TO HOLD THE SKELETON + THE ACTUAL ARGUMENTS IN ALL THEIR          ASF          480     A     
 ASF      *         OCCURRENCES.  THIS WAS COMPUTED LONG AGO.                              ASF          481     A     
 ASF      *                (B6) = AFOREMENTIONED LENGTH                                    ASF          482     A     
 ASF      *                (X0) = DITTO                                                    ASF          483     A     
 ASF      *         ALSO, NOW RESET --                                                     ASF          484     A     
 ASF      *                (INAFR) _ PAST TERMINAL RPAREN OF ACTUAL ARGUMENT.              ASF          485     A     
 ASF                                                                                       ASF          486     A     
 ASF       AFR60    ALLOC  TT.ASF,X0                                                       ASF          487     A     
 ASF                =X6    B4                                                              ASF          488     A     
 ASF                SB2    B7-B6       FWA TO STORE EXPANDED ASF                           ASF          489     A     
 ASF                SA6    INAFR       SET *SB* ADDRESS TO (EVENTUALLY) RESUME AT          ASF          490     A     
 ASF                BX7    0                                                               ASF          491     A     
 ASF                                                                                       ASF          492     A     
 ASF                                                                                       ASF          493     A     
 ASF      **        ONE WAY OR ANOTHER, ALL NECESSARY ALLOCATIONS AND PRELIMINARY          ASF          494     A     
 ASF      *         MOVES HAVE BEEN ACCOMPLISHED.                                          ASF          495     A     
 ASF      *                (X1) = FWA TT.ASF                                               ASF          496     A     
 ASF      *                (B2) = FWA TO STORE EXPANSION                                   ASF          497     A     
 ASF                                                                                       ASF          498     A     
 ASF       AFR65    SA2    FWAASF                                                          ASF          499     A     
 ASF                SA4    ASFARG                                                          ASF          500     A     
 ASF                IX3    X1+X2       (X3) _ SKELETON LENGTH WORD                         ASF          501     A     
 ASF                SX6    O.LP                                                            ASF          502     A     
 ASF                SB5    X3          (B5) _ FWA OF ARG PARMETER WORDS - 1                ASF          503     A     
 ASF                SA2    TT.SCR                                                          ASF          504     A     
 ASF                SA1    SCR2                                                            ASF          505     A     
 ASF                IX0    X4+X3       (X0) _ FWA SKELETON - 1                             ASF          506     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1347    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASF     
  
 ASF                =A4    X0+1        (A4) _ FWA SKELETON                                 ASF          507     A     
 ASF                IX2    X2+X1                                                           ASF          508     A     
 ASF                SB3    X2          (B3) _ FWA ACTUAL ARGS                              ASF          509     A     
 ASF                SA6    B2                                                              ASF          510     A     
 ASF                SB4    B2                                                              ASF          511     A     
 ASF                                                                                       ASF          512     A     
 ASF      **        IT REMAINS TO DO THE ACTUAL EXPANSION.  THE SKELETON IS MOVED          ASF          513     A     
 ASF      *         INTO THE SPACE JUST ALLOCATED -- WHENEVER A FORMAL PARAMETER           ASF          514     A     
 ASF      *         IS ABOUT TO BE MOVED, WE PICK UP THE SAVED TEXT OF IT (FROM            ASF          515     A     
 ASF      *         TT.SCR) AND MOVE THAT, INSTEAD.  MUST NOT FORGET TO SURROUND           ASF          516     A     
 ASF      *         THE ACTUAL ARGUMENTS WITH PARENS.  THIS IS TO PRESERVE PROPER          ASF          517     A     
 ASF      *         GROUPING WITHIN THE ASF EXPANSION.  FOR SINGLE ELEMENT                 ASF          518     A     
 ASF      *         ARGUMENTS, PARENTHESIS BRACKETING IS NOT DONE.                         ASF          519     A     
 ASF      *                (B3) = FWA OF ACTUAL ARGUMENTS (IN TT.SCR)                      ASF          520     A     
 ASF      *                (B4) = FWA SKELETON                                             ASF          521     A     
 ASF      *                (B5) = FWA ARGUMENT POINTERS - 1                                ASF          522     A     
 ASF      *                (A4) = SKELETON FETCH ADDRESS                                   ASF          523     A     
 ASF      *                (A6) = EXPANSION STORE ADDRESS                                  ASF          524     A     
 ASF      *                (X7) = FINAL CHARACTER OF STRING.                               ASF          525     A     
 ASF                                                                                       ASF          526     A     
 ASF       AFR72    SB7    X4-O.ASFA                                                       ASF          527     A     
 ASF                BX6    X4                                                              ASF          528     A     
 ASF                AX4    P.TAG                                                           ASF          529     A     
 ASF                NZ     B7,AFR78    IF NOT REFERENCE TO ARGUMENT                        ASF          530     A     
 ASF                                                                                       ASF          531     A     
 ASF                SA2    X4+B5       FETCH ARGUMENT DESCRIPTOR FROM DEFINITION           ASF          532     A     
 ASF                AX2    18                                                              ASF          533     A     
 ASF                SA1    X2+B3       PRE-FETCH 1ST ARGUMENT WORD                         ASF          534     A     
 ASF                =A1    A1+1        SKIP LEADING DELIMITER                              ASF          535     A     
 ASF                AX2    18                                                              ASF          536     A     
 ASF                SB7    X2          (B7) = LENGTH OF THIS ACTUAL ARGUMENT               ASF          537     A     
 ASF                SB6    B7-1        FOR LATER TEST                                      ASF          538     A     
 ASF                EQ1    B7,AFR75    IF SINGLE ELEMENT ARGUMENT                          ASF          539     A     
 ASF                =A1    A1-1        RESTORE TO ORIGINAL POSITION                        ASF          540     A     
 ASF                =B7    B7+1        ALLOW FOR PARENTHESES                               ASF          541     A     
 ASF                SX1    O.LP                                                            ASF          542     A     
 ASF       AFR75    BX6    X1                                                              ASF          543     A     
 ASF                =B7    B7-1                                                            ASF          544     A     
 ASF                =A6    A6+1                                                            ASF          545     A     
 ASF                =A1    A1+1                                                            ASF          546     A     
 ASF                GE1    B7,AFR75    LOOP TILL END OF ARGUMENT                           ASF          547     A     
 ASF                ZR     B6,AFR79    IF SINGLE ELEMENT ARGUMENT                          ASF          548     A     
 ASF                SX6    O.RP                                                            ASF          549     A     
 ASF                                                                                       ASF          550     A     
 ASF       AFR78    =A6    A6+1                                                            ASF          551     A     
 ASF       AFR79    =A4    A4+1                                                            ASF          552     A     
 ASF                NZ     X6,AFR72    IF NOT END OF SKELETON                              ASF          553     A     
 ASF                SA7    A6                                                              ASF          554     A     
 ASF                                                                                       ASF          555     A     
 ASF      **        EXPANSION FINISHED, RETURN TO *PAR*.                                   ASF          556     A     
 ASF                                                                                       ASF          557     A     
 ASF                SA3    SVB6                                                            ASF          558     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1348    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASF     
  
 ASF                =A2    A3+1                                                            ASF          559     A     
 ASF                SA4    ALC.ASF                                                         ASF          560     A     
 ASF                SA1    SCR2                                                            ASF          561     A     
 ASF                SB6    X3          RESTORE (B6)                                        ASF          562     A     
 ASF                SB5    X2          RESTORE (B5)                                        ASF          563     A     
 ASF                SHRINK TT=SCR,X1                                                       ASF          564     A     
 ASF                BX6    X4                                                              ASF          565     A     
 ASF                SA6    ALC.REG                                                         ASF          566     A     
 ASF                NZ     X7,EXIT.    IF NOT ZERO-LEVEL STATEMENT FUNCTION                ASF          567     A     
 ASF                SX7    O.RP                                                            ASF          568     A     
 ASF                BX6    O.EOS                                                           ASF          569     A     
 ASF                SA7    A7                                                              ASF          570     A     
 ASF                ADDWD  TT.ASF      ADD AN EXTRA *EOS*                                  ASF          571     A     
 ASF                EQ     EXIT.                                                           ASF          572     A     
 ASF                                                                                       ASF          573     A     
 ASF                LIST   D                                                               ASF          574     A     
 ASF                END                                                                    ASF          575     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - ASF     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          ASF                        575       561
          FCC0521                      3         0
          FCC0396                      2         2
          FEAT126C                     4         4
          FCC1201                      3         3
          FCC1247                     25        20
          FCC1247A                     6         6
          FCCA526                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DO      
  
 DO       *DECK     DO                                                                     DO             1     A     
 DO                 IDENT  DO                                                              DO             2     A     
 DO        DO       SECT   (*DO* STATEMENT PROCESSORS),1                                   DO             3     A     
 DO                                                                                        DO             4     A     
 DO                 SST    B,D,EXIT.                                                       DO             5     A     
 DO                 NOREF  B,D,EXIT.                                                       DO             6     A     
 DO                                                                                        DO             7     A     
 DO        B=DO     RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             DO             8     A     
 DO                                                                                        DO             9     A     
 DO                 ENTRY  CDI.EX,CDO,DIP,CDI,PDT,SDO                                      DO            10          I
          -FCC1307
 DO                 ENTRY  CDI,CDO,DIP,PDT,SDO                                             FCC1307      108     A     
 DO                                                                                        DO            11     A     
 DO       *         IN FTN                                                                 DO            12     A     
 DO                 EXT    CO.SNAP                                                         DO            13     A     
 DO                                                                                        DO            14     A     
 DO       *         IN TABLES                                                              DO            15     A     
 DO                 EXT    ARGCOMA,ARGMODE,APLUG,CONONE,CALLIO,CDORD                       DO            16     A     
 DO                 EXT    DOSTNO,DOIX,DO=CC,DO=CC1,DO.CSKL,DOORD,DOARM                    DO            17          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1349    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DO      
  
          -FCC1307
 DO                 EXT    DO.BEG,DOLMR,NOOPP,REFNUM,REGFILE,STN,TT.PAR,TT=PAR             DO            18          I
          -FCC1307
 DO                 EXT    DOSTNO,DOIX,DO=CC,DO.CSKL,DOORD,DOARM,DO.BEG,DOLMR              FCC1307      109     A     
 DO                 EXT    NOOPP,REFNUM,REGFILE,TT.PAR,TT=PAR                              FCC1307      110     A     
 DO                 EXT    TS.STN,TS.CON,TP.APL,TP.DO,TP=DO,UUC                            DO            19     A     
 DO                                                                                        DO            20     A     
 DO       *         IN ERRORS                                                              DO            21     A     
 DO                 EXT    E.AS4,E.DO6,E.DO12,E.DO13,E.DO18,E.DO27,E.DO28,E.DO29           DO            22          I
          -FCC1307
 DO                 EXT    E.AS4,E.DO12,E.DO13,E.DO18,E.DO27,E.DO28,E.DO29                 FCC1307      111     A     
 DO                 EXT    E.IOL3,SERRORS                                                  DO            23          I
          -FEAT126C 
 DO                 EXT    E.IOL3,ERR=F                                                    FEAT126C     179     A     
 DO                                                                                        DO            24     A     
 DO       *         IN ALLOC                                                               DO            25     A     
 DO                 EXT    ADW,ALC.DO,ALC.REG,NCM                                          DO            26     A     
 DO                                                                                        DO            27     A     
 DO       *         IN MAIN                                                                DO            28     A     
 DO                 EXT    ASL                                                             DO            29     A     
 DO                                                                                        DO            30     A     
 DO       *         IN IO                                                                  DO            31     A     
 DO                 EXT    IOLEN                                                           DO            32     A     
 DO                                                                                        DO            33     A     
 DO       *         IN NUM                                                                 DO            34     A     
 DO                 EXT    PSN,STN0R,CLK,ISN                                               DO            35     A     
 DO                                                                                        DO            36     A     
 DO       *         IN REG                                                                 DO            37     A     
 DO                 EXT    GST,SDS                                                         DO            38     A     
 DO                                                                                        DO            39     A     
 DO       *         IN PAR                                                                 DO            40     A     
 DO                 EXT    IXLASTV,PAR                                                     DO            41     A     
 DO                                                                                        DO            42     A     
 DO       *         IN GEN                                                                 DO            43     A     
 DO                 EXT    CAI,EIS.PNX,MXP,NOEMS,NULLOP                                    DO            44          I
          -FCC1307
 DO                 EXT    CAI,EIS.PNX,MXP,NULLOP                                          FCC1307      112     A     
 DO                                                                                        DO            45     A     
 DO       *         IN INIT                                                                DO            46     A     
 DO                 EXT    CDOTG,SCR                                                       DO            47     A     
 DO                                                                                        DO            48     A     
 DO                                                                                        DO            49     A     
 DO       **        SDO -  SET-UP *DO* FOR PROCESSING                                      DO            50     A     
 DO       *                                                                                DO            51     A     
 DO       *         *SDO* ENTERED FROM COMPILERS MASTER LOOP.  (*CPM*)                     DO            52     A     
 DO       *         ENTRY  (B4) _ *SB* WHERE *DO* STARTS.                                  DO            53     A     
 DO       *         EXIT   (X6) = *DO* STATEMENT NUMBER (0L FORMAT)                        DO            54     A     
 DO       *                                                                                DO            55     A     
 DO       *         USES   ALL REGISTERS.                                                  DO            56     A     
 DO                                                                                        DO            57     A     
 DO                                                                                        DO            58     A     
 DO                 CON    0           DUMMY FOR DUMB *ASK*                                DO            59     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1350    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DO      
  
 DO                                                                                        DO            60     A     
 DO        SDO      SA1    B4                                                              DO            61     A     
 DO                 SB7    X1-O.CONS                                                       DO            62     A     
 DO                 NZ     B7,E.AS4    IF NO LABEL                                         DO            63     A     
 DO                 RJ     ASL         ADJUST STATEMENT LABEL                              DO            64     A     
 DO                 BX6    X1                                                              DO            65     A     
 DO                 SA4    B4          FETCH SUPPOSED VARIABLE                             DO            66     A     
 DO                 SA6    DOSTNO                                                          DO            67     A     
 DO                 SB2    X4-O.COMMA                                                      DO            68     A     
 DO                 ZR     X4,E.DO27   ** PREMATURE E.O.S. **                              DO            69     A     
 DO                 NZ     B2,SDO3     ALLOW LABEL TO END WITH A COMMA                     DO            70     A     
 DO                 WARN   E.DO29      ** COMMA IGNORED **                                 DO            71     A     
 DO                 ANSI   E.DO28      ** COMMA NON-ANSI **                                DO            72     A     
 DO                 =A4    B4+1                                                            DO            73     A     
 DO                 ZR     X4,E.DO27   ** PREMATURE E.O.S. **                              DO            74     A     
 DO                                                                                        DO            75     A     
 DO        SDO3     =B4    A4+1        POINT TO *EQUAL* SIGN                               DO            76     A     
 DO                 SB7    X4-O.VAR                                                        DO            77     A     
 DO                 MX0    LG.VAR*CHAR                                                     DO            78     A     
 DO                 BX7    X0*X1                                                           DO            79     A     
 DO                 SX6    B4                                                              DO            80     A     
 DO                 SA7    DOIX                                                            DO            81     A     
 DO                                                                                        DO            82     A     
 DO                 SA6    IXLASTV     SAVE *B4*                                           DO            83     A     
 DO                 RJ     CAI         FLUSH PARSED FILE                                   DO            84     A     
 DO                 SA2    IXLASTV                                                         DO            85     A     
 DO                 SA1    DOSTNO                                                          DO            86     A     
 DO                 MX0    5*CHAR                                                          DO            87     A     
 DO                 BX7    X0*X1       SAVE ONLY 5 DIGITS                                  DO            88     A     
 DO                 SA7    A1                                                              DO            89     A     
 DO                 SB4    X2          RESTORE *B4*                                        DO            90     A     
 DO                 BX6    X1                                                              DO            91     A     
 DO                 RJ     CDI         PROCESS *DO* DEFINITION.                            DO            92     A     
 DO                 SA3    =XFLOW                                                          DO            93     A     
 DO                 ZR     X3,PSN      IF DO IS ACCESSABLE (NOT NOPATH)                    DO            94     A     
 DO                                                                                        DO            95     A     
 DO       *         NOTE - FOR DO LOOPS, ONLY THE DO STATEMENT WILL GET THE NOPATH         DO            96     A     
 DO       *                WARNING MESSAGE.  FLOW, NOPATH AND LDEAD ARE CLEARED,           DO            97     A     
 DO       *                AND THE DO LOOP CODE WILL BE GENERATED. CHECKING ALL            DO            98     A     
 DO       *                CASES FOR NOPATH CONDITIONS DIDNT SEEM WORTH THE CODE           DO            99     A     
 DO       *                SAVINGS.                                                        DO           100     A     
 DO                                                                                        DO           101     A     
 DO                 BX7    0                                                               DO           102     A     
 DO                 SA7    A3                                                              DO           103     A     
 DO                 SA7    =XNOPATH                                                        DO           104     A     
 DO                 SA7    =XLDEAD                                                         DO           105     A     
 DO                 EQ     =XE.NP1                                                         DO           106     A     
 DO        ACD      SPACE  4,8                                                             DO           107     A     
 DO       **        ADL -  ANALYZE *DO* LOOP FOR OPTIMAL COUNTING MECHANISM.               DO           108     A     
 DO       *                                                                                DO           109     A     
 DO       *                                                                                DO           110     A     
 DO       *         ENTRY  (B5) _ START OF CURRENT *DO* IN *TP.DO*                         DO           111     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1351    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DO      
  
 DO       *                (B7) = 0, IF PROCESSING PROGRAMMER DEFINED *DO*                 DO           112     A     
 DO       *                                                                                DO           113     A     
 DO       *         EXIT   DO CONCLUSION *TURPLES* ADDED TO PARSED FLE.                    DO           114     A     
 DO       *                                                                                DO           115     A     
 DO       *         USES   ALL BUT A0, B4.                                                 DO           116     A     
 DO                                                                                        DO           117     A     
 DO                                                                                        DO           118     A     
 DO        OP.LEN   EQU    40          MAXIMUM LENGTH *DO* TO LOOK AT.                     DO           119     A     
 DO        L.NULDO  EQU    5*L.TURP    LENGHT OF A DUMMY DO, DEFINING INDEX AND            DO           120     A     
 DO       *                            CONCLUSION ONLY.                                    DO           121     A     
 DO                                                                                        DO           122     A     
 DO                                                                                        DO           123     A     
 DO        ADL      SUBR               ENTRY/EXIT...                                       DO           124     A     
 DO                 SA2    B5+OR.DOLI  DO LIMIT                                            DO           125     A     
 DO                 =X0    M.SHORT                                                         DO           126     A     
 DO                 SA5    B5+OR.DOII  DO INCREMENT                                        DO           127     A     
 DO                 BX3    X0*X2       BRING DOWN SHORT BITS                               DO           128     A     
 DO                 BX6    X0*X5                                                           DO           129     A     
 DO                 IX0    X3+X6                                                           DO           130     A     
 DO                 SA1    TS.STN                                                          DO           131     A     
 DO                 IX6    X0+X3                                                           DO           132     A     
 DO                 AX6    P.SHORT-1                                                       DO           133     A     
 DO                 SA6    SCR         SAVE ORDINAL OF O=DOC                               DO           134     A     
 DO                 ZR     B7,ADL5     IF NOT *I/O* *DO*                                   DO           135     A     
 DO                                                                                        DO           136     A     
 DO       *         ANALYZE *I/O* DO.                                                      DO           137     A     
 DO                                                                                        DO           138     A     
 DO                 RJ     AID         ANALYZE *I/O* DO FOR REDUCTION                      DO           139     A     
 DO                 MI     B5,EXIT.    IF *DO* COLLAPSED.                                  DO           140     A     
 DO                 EQ     ADL30       CONTINUE                                            DO           141     A     
 DO                                                                                        DO           142     A     
 DO       **        ANALYZE *DO* TO DETERMINE IF ANYTHING CAN BE DONE TO IMPROVE           DO           143     A     
 DO       *         ITS COUNTING MECHANISM.                                                DO           144     A     
 DO       *                                                                                DO           145     A     
 DO       *         IN ORDER TO DO ANY EVALUATION OF THE *DO* THE FOLLOWING                DO           146     A     
 DO       *         CONDITIONS MUST BE SATISFIED.                                          DO           147     A     
 DO       *                                                                                DO           148     A     
 DO       *         A.  DO MUST NOT HAVE ANY EXTERNAL REFERENCES.                          DO           149     A     
 DO       *         B.  DO MUST NOT HAVE AN EXIT.                                          DO           150     A     
 DO       *         C.  NONE OF ITS *DO* INDICES MUST BE ALTERED.                          DO           151     A     
 DO       *         D.  DO MUST BE THE ZERO LEVEL OF A NEST.                               DO           152     A     
 DO                                                                                        DO           153     A     
 DO        ADL5     SA2    B5+OR.DOSN                                                      DO           154     A     
 DO                 BX5    X2                                                              DO           155     A     
 DO                 AX2    P.DOTAG                                                         DO           156     A     
 DO                 SB7    X2-C.STAT                                                       DO           157     A     
 DO                 SA3    X1+B7       DO STATMENT TAG FROM ST.NO. TABLE                   DO           158     A     
 DO                 BX0    X3                                                              DO           159     A     
 DO                 IFBIT  X0,SNEX,ADL30     IF EXTERNAL PROCESS INSIDE LOOP               DO           160     A     
 DO                 SA4    DOIX                                                            DO           161     A     
 DO                 IFBIT  X0,SNOPE/SNEX,ADL30                                             DO           162     A     
 DO                 IFBIT  X0,SNNS/SNOPE,ADL30                                             DO           163     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1352    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DO      
  
 DO                 MI     X4,ADL30    IF INDEX ALTERED INSIDE BODY                        DO           164     A     
 DO                                                                                        DO           165     A     
 DO       **        *DO* IS DEFINED AS CLOSED, CHECK COUNTING MECHANISM                    DO           166     A     
 DO       *                                                                                DO           167     A     
 DO       *         ENTRY  (X5) = (OR.DOSN)                                                DO           168     A     
 DO       *                (A2) _ (OR.DOSN)                                                DO           169     A     
 DO                                                                                        DO           170     A     
 DO                 AX2    P.DFLAG-P.DOTAG                                                 DO           171     A     
 DO                 SA1    TT.PAR                                                          DO           172     A     
 DO                 SA3    TT=PAR                                                          DO           173     A     
 DO                 IX7    X1+X2                                                           DO           174     A     
 DO                 MX0    L.DFLAG                                                         DO           175     A     
 DO                 SA1    X7+OR.DFLAG      LOAD FLAG WORD                                 DO           176     A     
 DO                 IX6    X3-X2                                                           DO           177     A     
 DO                 BX4    -X0*X5      CLEAR PASS *1* FLAG BITS                            DO           178     A     
 DO                 SB7    X6-L.NULDO                                                      DO           179     A     
 DO                 LX3    P.DFLAG                                                         DO           180     A     
 DO                 PL     B7,ADL10    IF NOT NULL *DO*                                    DO           181          I
          -FCC1314
 DO                 SA1    =XCO.ER                                                         FCC1314        4     A     
 DO                 PL     X1,ADL7     IF OTR NOT ON                                       FCC1314        5     A     
 DO                 SB7    B7-L.TURP   ELSE MUST TAKE OTR TURPLE INTO ACCOUNT              FCC1314        6     A     
 DO        ADL7     PL     B7,ADL10    IF NOT NULL *DO*                                    FCC1314        7     A     
 DO                 SA1    NOOPP                                                           DO           182     A     
 DO                 BX6    X1                                                              DO           183     A     
 DO                 SA6    X7          NULLIFY *DO* BEGIN CODE                             DO           184     A     
 DO                 SA6    X7+L.TURP                                                       DO           185     A     
 DO                 NOTE   E.DO18      NULL DO LOOP - IGNORED                              DO           186     A     
 DO                 EQ     EXIT.                                                           DO           187     A     
 DO                                                                                        DO           188     A     
 DO        ADL10    SA5    SCR                                                             DO           189     A     
 DO                 IX6    X4+X3       ADD POINTER TO START FOR OPT=1 PROCESSING           DO           190     A     
 DO                 SB7    DO=CC                                                           DO           191     A     
 DO                 SB7    -B7                                                             DO           192     A     
 DO                 SB7    X5+B7                                                           DO           193     A     
 DO                                                                                        DO           194     A     
 DO       **        ADD *DO* CONCLUSION MACROS TO PARSED FILE FOR CURRENT *DO*             DO           195     A     
 DO       *         (B5) _ START OF CURRENT *DO* IN *TP.DO*                                DO           196     A     
 DO                                                                                        DO           197     A     
 DO        ADL30    SA1    SCR                                                             DO           198     A     
 DO                 SA4    X1+DO.CSKL+1                                                    DO           199     A     
 DO        ADL32    SA1    ALC.DO                                                          DO           200     A     
 DO                 SA5    ALC.REG                                                         DO           201     A     
 DO                 BX6    X1                                                              DO           202     A     
 DO                 SA6    A5                                                              DO           203     A     
 DO                 ALLOC  TT.PAR,2*L.TURP                                                 DO           204     A     
 DO                 BX6    X5                                                              DO           205     A     
 DO                 SA6    A5                                                              DO           206     A     
 DO                 SA3    B5+OR.DORT                                                      DO           207     A     
 DO                 =A5    B5+OR.DOLI                                                      DO           208     A     
 DO                 LX7    X5                                                              DO           209     A     
 DO                 BX6    X3                                                              DO           210     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1353    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DO      
  
 DO                 =A6    B7-1        OR.2OP = DO RETURN LABEL                            DO           211     A     
 DO                 =A2    A5-OR.DOLI+OR.DOII                                              DO           212     A     
 DO                 =A7    A6-1        OR.1OP = DO LIMIT                                   DO           213     A     
 DO                 LX6    X4                                                              DO           214     A     
 DO                 =A6    A7-1        OR.OPR = DO MACRO                                   DO           215     A     
 DO                 =A3    A2-OR.DOII+OR.DOCI                                              DO           216     A     
 DO                 BX7    X2                                                              DO           217     A     
 DO                 =A4    A4-1                                                            DO           218     A     
 DO                 =A7    A6-1        OR.2OP = DO INCREMENT                               DO           219     A     
 DO                 LX6    X4                                                              DO           220     A     
 DO                 BX7    X3                                                              DO           221     A     
 DO                 =A7    A7-1        OR.1OP = DO CONTROL VARIABLE                        DO           222     A     
 DO                 =A6    A7-1        OR.OPR = DO MACRO                                   DO           223     A     
 DO                 EQ     EXIT.                                                           DO           224     A     
 DO        AID      EJECT  ANALYZE IMPLIED *DO* LOOP FOR LIST COLLAPSE.                    DO           225     A     
 DO       **        AID -  ANALYZE IMPLIED *DO* LOOP FOR LIST COLLAPSE.                    DO           226     A     
 DO       *                                                                                DO           227     A     
 DO       *                                                                                DO           228     A     
 DO       *         ENTRY  (B5) _ START OF CURRENT *DO* IN *TP.DO*                         DO           229     A     
 DO       *                (X5) = (OR.DOII)                                                DO           230     A     
 DO       *                (X6) = ORDINAL INTO *DO.CSKL* TABLE.                            DO           231     A     
 DO       *                                                                                DO           232     A     
 DO       *         EXIT   (B5) > 0, NO LIST COLLAPSE                                      DO           233     A     
 DO       *                     _ START OF CURRENT *DO* IN *TP.DO*                         DO           234     A     
 DO       *                (B5) < 0, LIST COLLAPSED, NO DO CONCLUSION CODE NEEDED,         DO           235     A     
 DO       *                            O=DOB *TURPLES* NOOP.                               DO           236     A     
 DO       *         TABLES MUST NOT BE MOVED UNLESS LIST IS COLLAPSED.                     DO           237     A     
 DO       *                                                                                DO           238     A     
 DO       *         FOR A COLLAPSIBLE LOOP, THE PARSED FILE TURPLES WILL APPEAR            DO           239     A     
 DO       *         AS FOLLOWS (BEGINNING AT *B2*) --                                      DO           240     A     
 DO       *                0.  DOBEGIN                                                     DO           241     A     
 DO       *                1.  DOBEGIN (INDEX-TAG)                                         DO           242     A     
 DO       *                2.  MRKEXT                                                      DO           243     A     
 DO       *                3.  ARY-LOD (ARRAY-TAG       ,  INDEX-TAG  )                    DO           244     A     
 DO       *                4.  APLUG   (INTERMEDIATE(4.),  AP-TAG     )                    DO           245     A     
 DO       *                5.  RJUMP   (AP-TAG + TRACE  ,  ROUTINE-TAG)                    DO           246     A     
 DO       *         WE ALSO REQUIRE THAT *INITIAL* AND *LIMIT* BE SHORT CONSTANTS,         DO           247     A     
 DO       *                AND THAT THE *INCREMENT* IS ONE.                                DO           248     A     
 DO       *                                                                                DO           249     A     
 DO       *         IF THE ABOVE HOLDS, THEN THE LOOP IS COLLAPSIBLE.  THIS DOES           DO           250     A     
 DO       *         NOT EXHAUST THE CATEGORY OF LOGICALLY COLLAPSIBLE LOOPS, BUT           DO           251     A     
 DO       *         IT DOES DEFINE THE ONLY ONES THAT WE WILL (PRESENTLY) HANDLE.          DO           252     A     
 DO       *                                                                                DO           253     A     
 DO       *         THE COLLAPSE IS ACCOMPLISHED BY --                                     DO           254     A     
 DO       *                A.  CONSTRUCT AN AP-LIST ITEM ENTRY WHOSE FIELDS ARE            DO           255     A     
 DO       *                    SET AS FOLLOWS --                                           DO           256     A     
 DO       *                            (ATAG)  = COPY (2TAG) OF 1OP OF TURPLE (3.)         DO           257     A     
 DO       *                            (ABIAS) = COPY (2BIAS)OF 1OP OF TURPLE (3.)         DO           258     A     
 DO       *                            (ATYP,  = ELEMENT LENGTH, WHICH IS EQUAL TO         DO           259     A     
 DO       *                             ASIZ)    THE TRIP COUNT OF THE LOOP.               DO           260     A     
 DO       *                B.  ENTER THE AP-ITEM FROM (A.) INTO THE AP-LIST TABLE          DO           261     A     
 DO       *                    (*TP.APL*), AND INCREMENT (*IOLEN*).  *IOJ* WILL            DO           262     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1354    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DO      
  
 DO       *                    LATER CONSTRUCT A NEW AP-LIST AND *RJUMP* TURPLE.           DO           263     A     
 DO       *                C.  RESET TURPLES (0.) THRU (5.) TO *O=NOOP*, AND ZERO          DO           264     A     
 DO       *                    OUT THEIR OPERANDS.                                         DO           265     A     
 DO       *                D.  SET REPLY TO INDICATE COLLAPSE.                             DO           266     A     
 DO       *                                                                                DO           267     A     
 DO       *         NOTE   THIS WASTES THE AP-TAG AND AP-LIST ORIGINALLY SET UP TO         DO           268     A     
 DO       *                BE USED BY TURPLE (5.).  TO AVOID THIS, HOWEVER, WOULD          DO           269     A     
 DO       *                REQUIRE CHANGES TO PREVIOUSLY CONSTRUCTED TABLES THAT           DO           270     A     
 DO       *                ARE NOT OBVIOUS TO THE CURRENT WRITER.                          DO           271     A     
 DO       *                                                                                DO           272     A     
 DO       *         USES   ALL BUT A0, B4.                                                 DO           273     A     
 DO       *         CALLS  ADDWD, NOTE.                                                    DO           274     A     
 DO                                                                                        DO           275     A     
 DO                                                                                        DO           276     A     
 DO        AID      SUBR               ENTRY/EXIT...                                       DO           277     A     
 DO                 SA2    CONONE                                                          DO           278     A     
 DO                 BX7    X2-X5                                                           DO           279     A     
 DO                 NZ     X7,EXIT.    IF INCREMENT NOT = 1                                DO           280     A     
 DO                                                                                        DO           281     A     
 DO                 SA1    TT.PAR                                                          DO           282     A     
 DO                 SA2    TT=PAR                                                          DO           283     A     
 DO                 SB7    DO=CC                                                           DO           284     A     
 DO                 SB7    -B7                                                             DO           285     A     
 DO                 SB7    X6+B7                                                           DO           286     A     
 DO                 IX0    X1+X2       = LWA+1 (TT.PAR)                                    DO           287     A     
 DO                 SB2    X0-6*L.TURP                                                     DO           288     A     
 DO                 NZ     B7,EXIT.    IF BOTH INDICES NOT CONSTANT                        DO           289     A     
 DO                                                                                        DO           290     A     
 DO                 =A3    B2+0*L.TURP+OR.OPR                                              DO           291     A     
 DO                 =A2    B2+1*L.TURP+OR.OPR                                              DO           292     A     
 DO                 SX3    X3-O.DOB                                                        DO           293     A     
 DO                 SX2    X2-O.DOB                                                        DO           294     A     
 DO                 NZ     X3,EXIT.    IF *DOBEGIN* NOT WHERE EXPECTED                     DO           295     A     
 DO                 NZ     X2,EXIT.    IF *DOBEGIN* NOT WHERE EXPECTED                     DO           296     A     
 DO                                                                                        DO           297     A     
 DO                 =A3    B2+3*L.TURP+OR.OPR                                              DO           298     A     
 DO                 SB7    X3-O.ARY                                                        DO           299     A     
 DO                 NZ     B7,EXIT.    IF FIRST ITEM NOT AN ARRAY                          DO           300     A     
 DO                                                                                        DO           301     A     
 DO                 SA2    B2+3*L.TURP+OR.2OP                                              DO           302     A     
 DO                 SA1    B2+1*L.TURP+OR.1OP                                              DO           303     A     
 DO                 BX6    X2-X1                                                           DO           304     A     
 DO                 NZ     X6,EXIT.    IF INDEX NOT SAME AS SUBSCRIPT                      DO           305     A     
 DO                                                                                        DO           306     A     
 DO                 =A3    A2+1        = 4*L.TURP+OR.OPR                                   DO           307     A     
 DO                 SA1    APLUG                                                           DO           308     A     
 DO                 BX7    X3-X1                                                           DO           309     A     
 DO                 NZ     X7,EXIT.    IF ARRAY NOT REALLY A LIST ITEM                     DO           310     A     
 DO                                                                                        DO           311     A     
 DO                 SA3    B2+5*L.TURP+OR.OPR                                              DO           312     A     
 DO                 SA1    CALLIO                                                          DO           313     A     
 DO                 BX6    X3-X1                                                           DO           314     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1355    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DO      
  
 DO                 NZ     X6,EXIT.    IF TOO MUCH STUFF IN LIST                           DO           315     A     
 DO                                                                                        DO           316     A     
 DO                 NOTE   E.IOL3      ** IMPLIED LOOP REDUCED **                          DO           317     A     
 DO                                                                                        DO           318     A     
 DO                 ERRNZ  L.ABIAS-L.2BIAS   BIAS FIELDS MUST BE SAME LENGTH               DO           319     A     
 DO                 ERRNZ  P.2BIAS+L.2BIAS-P.2TAG   (2TAG) AND (2BIAS) MUST BE ADJ         DO           320     A     
 DO                                                                                        DO           321     A     
 DO                 =A2    A2-OR.2OP+OR.1OP                                                DO           322     A     
 DO                 MX0    -L.ATAG                                                         DO           323     A     
 DO                 =A1    B5+OR.DOSI                                                      DO           324     A     
 DO                 =A3    A1-OR.DOSI+OR.DOLI                                              DO           325     A     
 DO                 SBIT   X2,ATAG/2TAG                                                    DO           326     A     
 DO                 LX2    -P.ATAG     (X2) =  24/ ABIAS,  18/ JUNK,  18/ ATAG             DO           327     A     
 DO                 BX5    -X0*X2      COPY (2TAG) INTO (ATAG)                             DO           328     A     
 DO                 AX1    P.SHC       SIGN EXTEND *INITIAL*                               DO           329     A     
 DO                 AX3    P.SHC       SIGN EXTEND COMPLEMENT OF (*LIMIT* + 1)             DO           330     A     
 DO                 SB7    5                                                               DO           331     A     
 DO                 IX4    X3+X1       -(TRIP COUNT) = -(LIMIT+1) + INITIAL                DO           332     A     
 DO                 AX2    -L.ABIAS    SIGN EXTEND *BIAS*                                  DO           333     A     
 DO                 IX7    X2+X1       NEW BIAS = INITIAL + OLD BIAS                       DO           334     A     
 DO                 MX0    L.ABIAS                                                         DO           335     A     
 DO                 BX4    -X4         (X4) = TRUE TRIP COUNT                              DO           336     A     
 DO                 LX7    -L.ABIAS                                                        DO           337     A     
 DO                 BX3    X0*X7       ISOLATE NEW BIAS                                    DO           338     A     
 DO                 SA1    NOOPP                                                           DO           339     A     
 DO                 BX5    X3+X5                                                           DO           340     A     
 DO                 =X7    0                                                               DO           341     A     
 DO                 LX6    X1                                                              DO           342     A     
 DO                 SA6    B2          NO-OP TURPLE (0.)                                   DO           343     A     
 DO                 =A7    A6+OR.1OP                                                       DO           344     A     
 DO                 LX5    P.ATAG                                                          DO           345     A     
 DO                 =A7    A7-OR.1OP+OR.2OP                                                DO           346     A     
 DO                                                                                        DO           347     A     
 DO        AID50    =A6    A7-OR.2OP+L.TURP  --     (1, 2, 3, 4)                           DO           348     A     
 DO                 =A7    A6+OR.1OP                                                       DO           349     A     
 DO                 =B7    B7-1                                                            DO           350     A     
 DO                 =A7    A7-OR.1OP+OR.2OP                                                DO           351     A     
 DO                 NZ     B7,AID50    IF MORE TURPLES TO KILL                             DO           352     A     
 DO                                                                                        DO           353     A     
 DO                 LX2    X4                                                              DO           354     A     
 DO                 =X3    X4+"AP=SIZ"S"ATYP"    SET ITEM LENGTH INDICATOR                 DO           355     A     
 DO                 BX6    X5+X3                                                           DO           356     A     
 DO                 AX2    L.ASIZ                                                          DO           357     A     
 DO                 =B5    -1          INDICATE LOOP COLLAPSED                             DO           358     A     
 DO                 ZR     X2,AID60    IF SHORT ENUF TO PUT IN DIRECTLY                    DO           359     A     
 DO                 LX7    X4                                                              DO           360     A     
 DO                 SA7    SCR                                                             DO           361     A     
 DO                 SB2    A7                                                              DO           362     A     
 DO                 SB3    A7                                                              DO           363     A     
 DO                 SCAN   TS.CON,NCM  ENTER TRIP COUNT INTO CONSTANT TABLE                DO           364     A     
 DO                 SX4    B7+"AP=CON"S"ATYP"                                              DO           365     A     
 DO                 BX6    X4+X5                                                           DO           366     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1356    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DO      
  
 DO                                                                                        DO           367     A     
 DO        AID60    SA2    IOLEN                                                           DO           368     A     
 DO                 =X7    X2+1        INCREMENT (IOLEN) FOR THIS ITEM                     DO           369     A     
 DO                 SA7    A2                                                              DO           370     A     
 DO                 ADDWD  TP.APL                                                          DO           371     A     
 DO                 EQ     EXIT.                                                           DO           372     A     
 DO        CDI      EJECT  4,20                                                            DO           373     A     
 DO       **        CDI -  COMPILE *DO* INITIAL *TURPLE*.                                  DO           374     A     
 DO       *                                                                                DO           375     A     
 DO       *         ENTRY  (B4) _ *=* OF *DO* STATEMENT.                                   DO           376     A     
 DO       *                (X6) =                                                          DO           377     A     
 DO       *                1. IF LOW ORDER 18 BITS ARE ZERO                                DO           378     A     
 DO       *                   PROCESSING A PROGRAMMER *DO*                                 DO           379     A     
 DO       *                2. OTHERWISE ASSUMED TO BE A I/O LIST PROCESSOR CALL.           DO           380     A     
 DO       *                                                                                DO           381     A     
 DO       *         EXIT   ENTRYS MADE INTO -                                              DO           382     A     
 DO       *                (X6) = 0                                                        DO           383     A     
 DO       *                1. TS.STN OF STATMENT NUMBER.(IF NOT I/O LIST PROCESS)          DO           384          I
          -FCC1307
 DO       *                1. TS.STN OF STATEMENT NUMBER.(IF NOT I/O LIST PROCESS)         FCC1307      113     A     
 DO       *                2. TP.DO  OF *DO* PARAMETERS. (SEE TP.DO WRITE-UP)              DO           385     A     
 DO       *                                                                                DO           386     A     
 DO       *                (X6) = 1S59                                                     DO           387     A     
 DO       *                *DO* DEFINITION CONTAINED AN ERROR -- NO TABLE ENTRIES          DO           388     A     
 DO       *                MADE IN *TP.DO*.                                                DO           389     A     
 DO       *                                                                                DO           390     A     
 DO       *         CALLS  ALLOC, ISN, MXP, PAR                                            DO           391     A     
 DO       *                                                                                DO           392     A     
 DO       *         USES   ALL REGISTERS.                                                  DO           393     A     
 DO                                                                                        DO           394     A     
 DO                                                                                        DO           395     A     
 DO        CDI.EX   MX6    1           INDICATE ERROR IN *DO*                              DO           396          I
          -FCC1307
 DO                                                                                        DO           397          I
          -FCC1307
 DO        CDI      SUBR               ENTRY/EXIT...                                       DO           398     A     
 DO                 SB7    X6                                                              DO           399     A     
 DO                 BX5    X6                                                              DO           400     A     
 DO                 NZ     B7,CDI15    IF IN I/O LIST PROCESSING.                          DO           401     A     
 DO                                                                                        DO           402     A     
 DO       **        IDENTIFY STATMENT NUMBER AS *DO*                                       DO           403          I
          -FCC1307
 DO       **        IDENTIFY STATEMENT NUMBER AS *DO*                                      FCC1307      114     A     
 DO                                                                                        DO           404     A     
 DO                 =B2    M.SNDOT+M.SNLAB   DO TERM AND STMNT NO. MASK                    DO           405     A     
 DO                 =X7    CR.DO       MARK DO IN CROSS REF.                               DO           406     A     
 DO                 SA7    REFNUM                                                          FCC1307      115     A     
 DO                 RJ     ISN         IDENTIFY STATEMENT NUMBER.                          DO           407     A     
 DO                 NG     X6,CDI.EX   IF ERROR IN DO STATEMENT NUMBER                     DO           408          I
          -FCC1307
 DO                 NG     X6,EXIT.    IF ERROR IN DO STATEMENT NUMBER                     FCC1307      116     A     
 DO                 SX3    B7          ORD OF TAG ENTRY IN TS.STN                          DO           409     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1357    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DO      
  
 DO                 SA1    DOORD       ORD IN TS.STN OF CURRENT DO                         DO           410     A     
 DO                 SX7    B7                                                              DO           411     A     
 DO                 SA2    TS.STN                                                          DO           412     A     
 DO                 BX5    X6          TAG FOR STATEMENT NUMBER.                           DO           413     A     
 DO                 LX3    P.SLINK                                                         DO           414     A     
 DO                 SB3    X2                                                              DO           415     A     
 DO                 SA7    A1          INDICATE *DO* PROCESSING. (SET DOORD)               DO           416     A     
 DO                 ZR     X1,CDI10    IF DOES NOT DEFINE NESTING                          DO           417     A     
 DO                                                                                        DO           418     A     
 DO       **        1. ZERO LEVEL DO                                                       DO           419     A     
 DO       *           A.  SET LINK TO ITSELF                                               DO           420     A     
 DO       *           B.  SET *CDORD* TO BASE OF DO NEST                                   DO           421     A     
 DO       *                                                                                DO           422     A     
 DO       *         2. NESTED DO DEFINITION.                                               DO           423     A     
 DO       *           A.  IF NESTING ON SAME NUMBER - CONTINUE WITH OLD LINK               DO           424          I
          -FCC1307
 DO       *           A.  IF PREVIOUSLY LINKED - CONTINUE WITH OLD LINK                    FCC1307      117     A     
 DO       *           B.  SCAN LINK TO FIND LAST LINK IN PREVOUS DO CHAIN.                 DO           425     A     
 DO       *           C.  SET LAST LINK OF PREVIOUS DO TO CURRENT DO                       DO           426     A     
 DO       *           D.  SET CURRENT DO LINKED TO BASE OF NEST.                           DO           427     A     
 DO                                                                                        DO           428     A     
 DO                 IX0    X1-X7                                                           DO           429          I
          -FCC1307
 DO                 MX0    -L.SLINK                                                        FCC1307      118     A     
 DO                 LX0    P.SLINK                                                         FCC1307      119     A     
 DO                 BX4    -X0*X6                                                          FCC1307      120     A     
 DO                 NZ     X4,CDI13    IF PREVIOUSLY LINKED                                FCC1307      121     A     
 DO                 SA2    CDORD       ENDING LINK = START OF DO NEST                      DO           430     A     
 DO                 ZR     X0,CDI13    IF NESTING ON SAME DO NUMBER                        DO           431          I
          -FCC1307
 DO                 MX0    -L.SLINK                                                        DO           432          I
          -FCC1307
 DO                 =X3    M.SNNS                                                          DO           433     A     
 DO                 SA1    X1+B3       START SCAN FROM LAST DO START                       DO           434     A     
 DO                 LX0    P.SLINK                                                         DO           435          I
          -FCC1307
 DO                 BX4    -X0*X1                                                          DO           436     A     
 DO                 BX7    X3+X1       INDICATE LAST DO IS NESTED                          DO           437     A     
 DO                 AX1    P.2TAG                                                          DO           438     A     
 DO                 SB2    X2                                                              DO           439     A     
 DO                 LX4    -P.SLINK                                                        DO           440     A     
 DO                 SB6    X1-C.STAT                                                       DO           441     A     
 DO                 SA7    A1          RESET *DO* IN TABLE                                 DO           442     A     
 DO                                                                                        DO           443     A     
 DO        CDI5     SB5    X4                                                              DO           444     A     
 DO                 SA1    X4+B3                                                           DO           445     A     
 DO                 EQ     B5,B2,CDI7  IF END OF CURRENT *DO* LINK                         DO           446     A     
 DO                 BX4    -X0*X1                                                          DO           447     A     
 DO                 SB6    B5                                                              DO           448     A     
 DO                 NO                                                                     DO           449     A     
 DO                 LX4    -P.SLINK                                                        DO           450     A     
 DO                 EQ     CDI5        CONTINUE                                            DO           451     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1358    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DO      
  
 DO                                                                                        DO           452     A     
 DO       **        END OF LAST DO LINK                                                    DO           453     A     
 DO                                                                                        DO           454     A     
 DO        CDI7     SA4    B3+B6       RELOAD LAST LINK                                    DO           455     A     
 DO                 SX3    B7                                                              DO           456     A     
 DO                 BX7    X0*X4       CLEAR OLD LINK                                      DO           457     A     
 DO                 LX3    P.SLINK                                                         DO           458     A     
 DO                 BX7    X3+X7                                                           DO           459     A     
 DO                 SA7    A4          RESET LAST LINK TO CURRENT DO                       DO           460     A     
 DO                 BX1    -X0*X4                                                          DO           461     A     
 DO                 BX6    X6+X1                                                           DO           462     A     
 DO                 SA6    B3+B7       SET CURRENT DO LINKED TO BASE OF NEST               DO           463     A     
 DO                 EQ     CDI13       CONTINUE                                            DO           464     A     
 DO                                                                                        DO           465     A     
 DO                                                                                        DO           466     A     
 DO       **        SET CURRENT DO LINK                                                    DO           467     A     
 DO       *         (B3) = (TS.STN)                                                        DO           468     A     
 DO       *         (B7) = ORDINAL OF CURRENT DO RELATIVE TO (TS.STN)                      DO           469     A     
 DO       *         (X3) = LINK FIELD TO ITSELF                                            DO           470     A     
 DO       *         (X5) = (X6)                                                            DO           471     A     
 DO       *         (X6) = TAG RETURNED FROM *ISN*                                         DO           472     A     
 DO       *         (X7) = (B7)                                                            DO           473     A     
 DO       *         (CDORD) = SET FOR BASE OF DO NEST                                      DO           474     A     
 DO                                                                                        DO           475     A     
 DO        CDI10    BX6    X6+X3                                                           DO           476     A     
 DO                 SA7    CDORD       SET BASE OF DO NEST = ORDINAL                       DO           477     A     
 DO                 SA6    B3+B7       RESET TAG ENTRY WITH *DO* LINK.                     DO           478     A     
 DO                                                                                        DO           479     A     
 DO        CDI13    AX5    P.2TAG                                                          DO           480     A     
 DO                 SA1    STN0R       STATEMENT NUMBER IN 0R FORM                         DO           481     A     
 DO                 LX5    P.DOTAG                                                         DO           482     A     
 DO                 BX6    X1                                                              DO           483     A     
 DO                                                                                        DO           484     A     
 DO       **        IF IN I/O LIST MODE.                                                   DO           485     A     
 DO       *                (X5) = (X6) = L-TAG RIGHT JUSTIFIED.                            DO           486     A     
 DO       *                                                                                DO           487     A     
 DO       *         IF IN NORMAL DO.                                                       DO           488     A     
 DO       *                (X5) = TAG RIGHT JUSTIFIED IN *DOTAG* FIELD.                    DO           489     A     
 DO       *                (X6) = STATEMENT NUMBER IN DPC RIGHT JUSTIFIED.                 DO           490     A     
 DO                                                                                        DO           491     A     
 DO        CDI15    SA6    DOSTNO      SAVE *DO* STATEMENT NUMBER                          DO           492     A     
 DO                 BX6    0                                                               DO           493     A     
 DO                 SA6    IXLASTV     CLEAR LAST INDEX VALUE CELL.                        DO           494     A     
 DO                 =B4    B4-1        POINT TO *INDEX*                                    DO           495     A     
 DO                 ALLOC  TP.DO,L.DOE ALLOCATE ROOM FOR NEW *DO*.                         DO           496     A     
 DO                 SB7    X2-L.DOE+OR.DOSN                                                DO           497     A     
 DO                 LX7    X5                                                              DO           498     A     
 DO                 SB3    X5                                                              DO           499     A     
 DO                 SA7    X1+B7       STATEMENT NUMBER TO TP.DO                           DO           500     A     
 DO                 ZR     B3,CDI20    IF NOT IN I/O LIST PROCESSING.                      DO           501     A     
 DO                 =X6    O.SLP                                                           DO           502     A     
 DO                 SA6    B4-1        INDICATE TERMINATION OF MATCHING *)*.               DO           503     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1359    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DO      
  
 DO                 =B4    B4-1                                                            DO           504     A     
 DO        CDI20    =X7    M.INT                                                           DO           505     A     
 DO                 SA3    DOARM                                                           DO           506     A     
 DO                 LX7    P.ACM                                                           DO           507     A     
 DO                 BX6    X3                                                              DO           508     A     
 DO                 SA7    ARGCOMA                                                         DO           509     A     
 DO                 SA6    ARGMODE                                                         DO           510     A     
 DO                 RJ     MXP         MARK EXTERNAL PROCESS                               DO           511     A     
 DO                 RJ     PAR         PARSE IT.                                           DO           512     A     
 DO                 SA2    SERRORS                                                         DO           513          I
          -FEAT126C 
 DO                 SA2    ERR=F                                                           FEAT126C     180     A     
 DO                 =X6                INDICATE NO ERRORS                                  DO           514     A     
 DO                 ZR     X2,CDI25    IF NO ERRORS INSIDE DO                              DO           515     A     
 DO        CDI21    SA3    TP.DO                                                           DO           516     A     
 DO                 SA4    TP=DO                                                           DO           517     A     
 DO                 BX7    0                                                               DO           518     A     
 DO                 IX0    X3+X4                                                           DO           519     A     
 DO                 SA2    X0-L.DOE+OR.DOSN                                                DO           520     A     
 DO                 SA7    X0-L.DOE+OR.DORT  INDICATE ERROR IN DO                          DO           521     A     
 DO                 SB7    X2                                                              DO           522     A     
 DO                 MX6    1           INDICATE ERROR                                      DO           523     A     
 DO                 ZR     B7,EXIT.    IF PROGRAM DEFINED *DO*                             DO           524     A     
 DO                 =X7    X4-L.DOE                                                        DO           525          I
          -FCC0813
 DO                 SA7    A4          ELIMINATE *DO* FROM TABLE IF *I/O* *DO*             DO           526          I
          -FCC0813
 DO                 SHRINK A4,X4-L.DOE ELIMINATE DO FROM TABLE IF I/O DO                   FCC0813      171     A     
 DO                 MX6    1           INDICATE ERROR                                      FCC1692X       5     A     
 DO                 EQ     EXIT.                                                           DO           527     A     
 DO                                                                                        DO           528     A     
 DO       **        TERMINATE *DO* INITIAL PROCESSING BY ADDING INITIAL *DO*               DO           529     A     
 DO       *         TURPLE TO PARSED FILE.                                                 DO           530     A     
 DO       *         FORM -                                                                 DO           531     A     
 DO       *                OR.OPR = O=DOB                                                  DO           532     A     
 DO       *                OR.1OP = DO INITIAL                                             DO           533     A     
 DO       *                OR.2OP = DO RETURN TAG                                          DO           534     A     
 DO       *                                                                                DO           535     A     
 DO       *                OR.OPR = O=DOB1                                                 DO           536     A     
 DO       *                OR.1OP = DO INDEX                                               DO           537     A     
 DO       *                OR.2OP = FLAG, INITIALLY SET TO 0.                              DO           538     A     
 DO                                                                                        DO           539     A     
 DO        CDI25    ALLOC  TT.PAR,2*L.TURP                                                 DO           540     A     
 DO                 SB5    X1          ORGIN OF *TT.PAR*                                   DO           541     A     
 DO                 SA3    TP.DO                                                           DO           542     A     
 DO                 SA2    TP=DO                                                           DO           543     A     
 DO                 IX0    X3+X2                                                           DO           544     A     
 DO                 BX7    0                                                               DO           545     A     
 DO                 SA4    X0-L.DOE+OR.DOCI                                                DO           546     A     
 DO                 =A7    B7-1        OR.2OP = FLAG (INITIAL SET = 0)                     DO           547     A     
 DO                 SA3    DO.BEG                                                          DO           548     A     
 DO                 BX6    X4                                                              DO           549     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1360    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DO      
  
 DO                 LX7    X3                                                              DO           550     A     
 DO                 =A5    A4-OR.DOCI+OR.DORT                                              DO           551     A     
 DO                 =A6    A7-1        OR.1OP = CONTROL INDEX                              DO           552     A     
 DO                 LX6    X5                                                              DO           553     A     
 DO                 =A7    A6-1        OR.OPR = O=DOB1                                     DO           554     A     
 DO                 =A4    A5-OR.DORT+OR.DOSI                                              DO           555     A     
 DO                 =A6    A7-1        OR.2OP = DO RETURN TAG                              DO           556     A     
 DO                 LX7    X4                                                              DO           557     A     
 DO                 BX6    X3                                                              DO           558     A     
 DO                 =A7    A6-1        OR.1OP = DO INITIAL                                 DO           559     A     
 DO                 =A6    A7-1        OR.OPR = O=DOB                                      DO           560     A     
 DO                 SA3    X0-L.DOE+OR.DOSN                                                DO           561     A     
 DO                 SX7    A6-B5       RELATIVE ADDRESS                                    DO           562     A     
 DO                 LX7    P.DFLAG                                                         DO           563     A     
 DO                 IX6    X3+X7                                                           DO           564     A     
 DO                 SA6    A3          SET FLAG CELL TO POINT TO *DO* BEGIN TURPLE         DO           565     A     
 DO                 =X6                INDICATE NO ERROR                                   DO           566     A     
 DO                 EQ     EXIT.                                                           DO           567     A     
 DO        CDO      SPACE  4,8                                                             DO           568     A     
 DO       **        CDO -  CLEAR *DO* REGISTER CONDITIONS.                                 DO           569     A     
 DO       *                                                                                DO           570     A     
 DO       *         ENTRY  FROM PASS *2* ON TERMINATION OF *DO* CONCLUSION CODE.           DO           571     A     
 DO       *                                                                                DO           572     A     
 DO       *         EXIT   BACK TO PASS *2*, CLEARING *B6* REGISTER FROM RGFILE            DO           573     A     
 DO       *                AND USEFILE.                                                    DO           574     A     
 DO                                                                                        DO           575     A     
 DO                                                                                        DO           576     A     
 DO        CDO      =X7    0                                                               DO           577     A     
 DO                 LX3    X4                                                              DO           578     A     
 DO                 SA7    DOIX        CLEAR *DOIX*                                        DO           579     A     
 DO                 SA7    R.B6        CLEAR REGFILE ENTRY                                 DO           580     A     
 DO                 EQ     NULLOP                                                          DO           581     A     
 DO        DIP      EJECT  4,30                                                            DO           582     A     
 DO       **        DIP -  *PASS 3* PROCESSING FOR A *DO* LOOP.                            DO           583     A     
 DO       *                                                                                DO           584     A     
 DO       *         ENTRY  CALLED WHEN A *O=DOB* *TURPLE* WAS ENCOUNTERED IN               DO           585     A     
 DO       *                PARSED FILE SET DURING PASS *1*                                 DO           586     A     
 DO       *                *DIP* CHECKS *FLAG* TO DETERMINE WHAT HE CAN DO TO *DO*         DO           587     A     
 DO       *                LOOP COUNTING MECHANISM AND *DO* STRUCTURE.                     DO           588     A     
 DO       *                                                                                DO           589     A     
 DO       *         CHECKS                                                                 DO           590     A     
 DO       *                                                                                DO           591     A     
 DO       *                FLAG (OR.2OP OF O=DOB1 *TURPLE*)                                DO           592     A     
 DO       *                < 0, *DO* IS EITHER *I/O*, *EXTENDED RANGE*, HAS AN             DO           593     A     
 DO       *                     *EXTERNAL PROCESS* INSIDE BODY, OR REDEFINES               DO           594     A     
 DO       *                     *DO* INDEX.                                                DO           595     A     
 DO       *                                                                                DO           596     A     
 DO       *                OUTPUT TURPLE AS DEFINED BY *PDT* DURING PASS *1*.              DO           597     A     
 DO       *                                                                                DO           598     A     
 DO       *                FLAG > 0, INDICATES *DO* IS CLOSED.                             DO           599     A     
 DO       *                IN THIS CASE WE CAN OPTIMIZE *DO* COUNTING MECHANISM.           DO           600     A     
 DO       *                                                                                DO           601     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1361    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DO      
  
 DO       *                                                                                DO           602     A     
 DO       *         EXIT   DO BEGIN CODE ADDED TO INTERMEDIATE FILE.                       DO           603     A     
 DO                                                                                        DO           604     A     
 DO                                                                                        DO           605     A     
 DO        DIP      SA2    B4+OR.DFLAG                                                     DO           606     A     
 DO                 SA5    B4+OR.1OP                                                       DO           607     A     
 DO                 AX2    P.DFLAG                                                         DO           608     A     
 DO                 =B4    B4+L.TURP                                                       DO           609     A     
 DO                 SB5    X2          SAVE FLAG                                           DO           610     A     
 DO                 SB2    B0                                                              DO           611     A     
 DO                 SB7    B0                                                              DO           612     A     
 DO                 RJ     GST                                                             DO           613     A     
 DO                 ZR     B5,DIP5     IF NOT CLOSED LOOP                                  DO           614     A     
 DO                                                                                        DO           615     A     
 DO       *         PROCESS CLOSED LOOP                                                    DO           616     A     
 DO                                                                                        DO           617     A     
 DO                 SX6    R.B6-RGFILE                                                     DO           618     A     
 DO                 SB6    X6          SAVE REGISTER                                       DO           619     A     
 DO                 SA5    B4+OR.1OP   *DO* INDEX TAG                                      DO           620     A     
 DO                 SA6    DOIX                                                            DO           621     A     
 DO                 RJ     GST         GET STATUS OF *DO* INDEX                            DO           622     A     
 DO                 ZR     B2,DIP3     IF NOT ACTIVE IN ANOTHER REGISTER                   DO           623     A     
 DO                 =X6    0                                                               DO           624     A     
 DO                 SA6    B2+REGFILE  CLEAR OTHER ASSIGNMENT                              DO           625     A     
 DO        DIP3     =X0    RLOCK                                                           DO           626     A     
 DO                 SX6    B6                                                              DO           627     A     
 DO                 BX7    X0+X5       OR IN LOCK BIT                                      DO           628     A     
 DO                 SA6    A1          INDICATE IN *B* REGISTER                            DO           629     A     
 DO                 SA7    B6+REGFILE  TAG + LOCK BIT + USE COUNT                          DO           630     A     
 DO                 =B4    B4+L.TURP                                                       DO           631     A     
 DO                 EQ     EIS.PNX     NEXT..                                              DO           632     A     
 DO                                                                                        DO           633     A     
 DO       *         PROCESS OPEN LOOP                                                      DO           634     A     
 DO                                                                                        DO           635     A     
 DO        DIP5     =X0    M.USTAT                                                         DO           636     A     
 DO                 SB3    R.X6-RGFILE                                                     DO           637     A     
 DO                 BX6    0                                                               DO           638     A     
 DO                 SB2    B0                                                              DO           639     A     
 DO                 BX7    -X0*X1                                                          DO           640     A     
 DO                 =A5    B4+OR.1OP   *DO* INDEX TAG                                      DO           641     A     
 DO                 =X0    RLOCK                                                           DO           642     A     
 DO                 SA7    A1          INDICATE NOT IN REGISTER                            DO           643     A     
 DO                 BX5    -X0*X5                                                          DO           644     A     
 DO                 SA6    B3+REGFILE  CLEAR REGFILE                                       DO           645     A     
 DO                 SA6    DOIX                                                            DO           646     A     
 DO                 SA6    UUC                                                             DO           647     A     
 DO                 RJ     SDS         SET DELAYED STORE IN MOTION                         DO           648     A     
 DO                 =B4    B4+L.TURP                                                       DO           649     A     
 DO                 EQ     EIS.PNX     NEXT..                                              DO           650     A     
 DO        PDT      EJECT  4,20                                                            DO           651     A     
 DO       **        PDT -  PROCESS *DO* TABLES.                                            DO           652     A     
 DO       *                                                                                DO           653     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1362    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DO      
  
 DO       *         *PDT* WILL SET UP A *D0* CONCLUSION TURPLE TO BE PROCESSED             DO           654     A     
 DO       *         BY PASS 2, WHEN PARSED FILE IS FINALLY FLUSHED.                        DO           655     A     
 DO       *                                                                                DO           656     A     
 DO       *         ENTRY  IF I/O LIST PROCESSING                                          DO           657     A     
 DO       *                (X2) = TABLE FORMAT FOR AN I/O DO.                              DO           658     A     
 DO       *         TABLE FORMAT=                                                          DO           659     A     
 DO       *                       24/ 0,  18/ 0       18/ L.TAG                            DO           660     A     
 DO       *                                                                                DO           661     A     
 DO       *                IF PROGRAMMER DEFINED *DO*                                      DO           662     A     
 DO       *                (X2) = TABLE FORMAT FOR PROGRAMMER DO.                          DO           663     A     
 DO       *         TABLE FORMAT=                                                          DO           664     A     
 DO       *                       24/ 0,  18/ SN.TAG, 18/ 0                                DO           665     A     
 DO       *                                                                                DO           666     A     
 DO       *         EXIT   DO CONCLUSION SKELETONS ADDED TO PARSED FILE.                   DO           667     A     
 DO       *                                                                                DO           668     A     
 DO       *                IF (X2) = A *DO* NUMBER                                         DO           669     A     
 DO       *                DO CONCLUSION CODE COMPILED.                                    DO           670     A     
 DO       *                                                                                DO           671     A     
 DO       *         USES   ALL REGISTERS EXCEPT *B4*                                       DO           672     A     
 DO       *                                                                                DO           673     A     
 DO       *         CALLS  ADL, CDS, CIR, SSN                                              DO           674     A     
 DO                                                                                        DO           675     A     
 DO                                                                                        DO           676     A     
 DO        PDT      SUBR               ENTRY/EXIT...                                       DO           677     A     
 DO                                                                                        DO           678     A     
 DO        SNAP=Q   IFNE   TEST,0      DUMP(TP.DO)                                         DO           679     A     
 DO                 SA1    CO.SNAP                                                         DO           680     A     
 DO                 LX1    1RQ                                                             DO           681          I
          -FEAT126C 
 DO                 LX1    1RN         DO SNAP FLAG                                        FEAT126C     181     A     
 DO                 PL     X1,PDT1A                                                        DO           682     A     
 DO                 DUMPT  (TP.DO)                                                         DO           683     A     
 DO        PDT1A    BSS    0                                                               DO           684     A     
 DO        SNAP=Q   ENDIF                                                                  DO           685     A     
 DO                                                                                        DO           686     A     
 DO                 BX6    X2                                                              DO           687     A     
 DO                 SA4    TP=DO                                                           DO           688     A     
 DO                 SA1    TP.DO                                                           DO           689     A     
 DO                 SA6    CDOTG       SAVE STATEMENT TAG (LOWER ORDER)                    DO           690     A     
 DO                 IX2    X1+X4       LWA+1                                               DO           691     A     
 DO                 MX0    L.DFLAG                                                         DO           692     A     
 DO                 SA3    X2-L.DOE+OR.DOSN                                                DO           693     A     
 DO                 BX5    X3-X6       COMPARE TABLE ENTRY TO NUMBER                       DO           694     A     
 DO                 SB5    A3-OR.DOSN+OR.DOSI                                              DO           695     A     
 DO                 BX2    -X0*X5      ISOLATE TAG ONLY                                    DO           696     A     
 DO                 ZR     X2,PDT5     IF NOT ILLEGALLY NESTED DO                          DO           697     A     
 DO                 FATAL  E.DO12                                                          DO           698     A     
 DO                 EQ     PDT40       CONTINUE CHECK                                      DO           699     A     
 DO                                                                                        DO           700     A     
 DO       **        CHECK IF *DO* DEFINITION HAD ERRORS.                                   DO           701     A     
 DO       *         (B5) = FWA FROM *DO* TABLE FOR CURRENT *DO*.                           DO           702     A     
 DO       *         (X3) = CURRENT *DO* ENTRY TAG.                                         DO           703     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1363    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DO      
  
 DO       *         (X4) = CURRENT LENGTH OF DO TABLE                                      DO           704     A     
 DO                                                                                        DO           705     A     
 DO        PDT5     SA2    B5+OR.DORT                                                      DO           706     A     
 DO                 NZ     X2,PDT7     IF NO ERROR IN DO DEFINITION                        DO           707     A     
 DO                 NOTE   E.DO13      DEFINITION ERROR                                    DO           708     A     
 DO                 RJ     CLK         CLEAR LINKS                                         DO           709     A     
 DO                 BX2    X2-X2       *NOT ILLEGALLY NESTED DO* FLAG                      DO           710     A     
 DO                 EQ     PDT40                                                           DO           711     A     
 DO                                                                                        DO           712     A     
 DO        PDT7     SB7    X3          =0, IN PROGRAMMER DO                                DO           713     A     
 DO                 LX6    X3                                                              DO           714     A     
 DO                 =X7    0                                                               DO           715     A     
 DO                 NZ     B7,PDT10    IF CURRENT IS AN I/O IMPLIED DO                     DO           716     A     
 DO                 BX5    X4                                                              DO           717     A     
 DO                 RJ     CLK         CLEAR CURRENT DO LINKS                              DO           718     A     
 DO                 BX4    X5                                                              DO           719     A     
 DO                 =B7    0           INDICATE PROGRAMMER *DO*                            DO           720     A     
 DO        PDT10    SB3    X4-L.DOE                                                        DO           721     A     
 DO                 BX7    0                                                               DO           722     A     
 DO                 ZR     B3,PDT15    IF ZERO LENGTH TABLE.                               DO           723     A     
 DO                 SA2    B5-L.DOE+OR.DOSN                                                DO           724     A     
 DO                 SB2    X2                                                              DO           725     A     
 DO                 AX2    P.DOTAG                                                         DO           726     A     
 DO                 NZ     B2,PDT15    IF NEXT IS AN I/O IMPLIED DO                        DO           727     A     
 DO                 =X7    X2-C.STAT   ORDINAL OF NEXT DO                                  DO           728     A     
 DO                                                                                        DO           729     A     
 DO       **        RESET *DOORD* AND ANALYZE *DO* FOR PASS *1*.                           DO           730     A     
 DO       *                (B5) _ START OF CURRENT *DO* IN TP.DO                           DO           731     A     
 DO       *                (X7) = NEW *DOORD* FOR DO GOING INTO                            DO           732     A     
 DO                                                                                        DO           733     A     
 DO        PDT15    SA7    DOORD       RESET *DO* ORDINAL                                  DO           734     A     
 DO                 RJ     ADL         ANALYZE *DO*                                        DO           735     A     
 DO                                                                                        DO           736     A     
 DO       **        CLEAR *DO* CELLS - CHECK IF MORE THAN ONE *DO* IN NEST.                DO           737     A     
 DO                                                                                        DO           738     A     
 DO                 MX2    0           *NOT ILLEGALLY NESTED DO* FLAG                      DO           739     A     
 DO        PDT40    =X6    0                                                               DO           740     A     
 DO                 BX7    0                                                               DO           741     A     
 DO                 SA6    DOLMR       CLEAR DO-LIMIT                                      DO           742     A     
 DO                 =A7    A6+1          -   DO-INCREMENT                                  DO           743     A     
 DO                 =A6    A7+1          -   DO-INDEX                                      DO           744     A     
 DO                 SA4    TP=DO                                                           DO           745     A     
 DO                 =A7    A6+1          -   DO-INDEX REGISTER                             DO           746     A     
 DO                 NZ     X2,EXIT.    IF ILLEGAL NEST                                     DO           747     A     
 DO                 SX6    X4-L.DOE                                                        DO           748     A     
 DO                 SA6    A4          RESET LENGTH                                        DO           749          I
          -FCC0813
 DO                 SHRINK A4,X6       RESET LENGTH                                        FCC0813      172     A     
 DO                                                                                        DO           750     A     
 DO       **        CHECK IF MORE THAN ONE LOOP TERMINATES ON THIS *DO* NUMBER.            DO           751     A     
 DO       *         (X6) = CURRENT LENGTH OF DO TABLE                                      DO           752     A     
 DO                                                                                        DO           753     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1364    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DO      
  
 DO                 SA2    CDOTG       CURRENT *DO* TAG.                                   DO           754     A     
 DO                 SA1    TP.DO                                                           DO           755     A     
 DO                 SB2    X6-L.DOE+OR.DOSN                                                DO           756     A     
 DO                 ZR     X6,EXIT.    IF EMPTY TABLE.                                     DO           757     A     
 DO                 MX0    -L.DOTAG                                                        DO           758     A     
 DO                 SA3    X1+B2                                                           DO           759     A     
 DO                 LX0    P.DOTAG                                                         DO           760     A     
 DO                 BX3    -X0*X3                                                          DO           761     A     
 DO                 BX7    X3-X2                                                           DO           762     A     
 DO                 NZ     X7,EXIT.    IF NOT CURRENT *DO* NUMBER.                         DO           763     A     
 DO                                                                                        DO           764     A     
 DO       **        NESTING OF *DO* WITH SINGLE TERMINATOR                                 DO           765     A     
 DO       *         RESET LINK FIELD IN *DO* NUMBER TO ITSELF, CHECKING FIRST IF           DO           766     A     
 DO       *         DO IS PROGRAMMER DEFINED.                                              DO           767     A     
 DO                                                                                        DO           768     A     
 DO                 SB7    X3                                                              DO           769     A     
 DO                 BX4    X6                                                              DO           770     A     
 DO                 SB5    A3-OR.DOSN+OR.DOSI                                              DO           771     A     
 DO                                                                                        DO           772     A     
 DO                 NZ     B7,PDT5     IF IN *I/O* DO                                      DO           773     A     
 DO                 BX6    X3                                                              DO           774     A     
 DO                 SA1    TS.STN                                                          DO           775     A     
 DO                 AX6    P.DOTAG                                                         DO           776     A     
 DO                 SB2    X6-C.STAT                                                       DO           777     A     
 DO                 =X0    M.SNNS                                                          DO           778     A     
 DO                 SA2    X1+B2       LOAD NUMBER FROM TS.STN                             DO           779     A     
 DO                 BX6    X2+X0                                                           DO           780     A     
 DO                 SA6    A2          INDICATE NUMBER TERMINATES MORE THAN 1 LOOP         DO           781     A     
 DO                 EQ     PDT5        CONTINUE                                            DO           782     A     
 DO                                                                                        DO           783     A     
 DO                 LIST   D                                                               DO           784     A     
 DO                 END                                                                    DO           785     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DO      
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DO                         785       763
          FEAT126C                     3         3
          FCC0813                      2         2
          FCC1314                      4         4
          FCC1307                     14        14
          FCC1692X                     1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      *DECK     FUN                                                                    FUN            1     A     
 FUN                IDENT  FUN                                                             FUN            2     A     
 FUN       FUN      SECT   (INLINE / EXTERNAL FUNCTION PROCESSORS),1                       FUN            3     A     
 FUN                                                                                       FUN            4     A     
 FUN                SST    A,B,C,D                                                         FUN            5     A     
 FUN                NOREF  A,B,C,D                                                         FUN            6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1365    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                                                                                       FUN            7     A     
 FUN       B=FUN    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             FUN            8     A     
 FUN                                                                                       FUN            9     A     
 FUN                ENTRY  O=ARG,O=RJT,O=FUN,O=BEF,ARGNUM                                  FUN           10     A     
 FUN                                                                                       FUN           11     A     
 FUN      *         IN TABLES                                                              FUN           12     A     
 FUN                EXT    RJSUB,RJTDUM,ROUTNAM,REGFILE,RREG                               FUN           13     A     
 FUN                EXT    TG.PRO,TP.APL,T.VDIM,TT.SCR,UUC                                 FUN           14     A     
 FUN                                                                                       FUN           15     A     
 FUN      *         IN PIG                                                                 FUN           16     A     
 FUN                EXT    WIN                                                             FUN           17     A     
 FUN                                                                                       FUN           18     A     
 FUN      *         IN ALLOC                                                               FUN           19     A     
 FUN                EXT    ADW,NAP                                                         FUN           20     A     
 FUN                                                                                       FUN           21     A     
 FUN      *         IN KEY                                                                 FUN           22     A     
 FUN                EXT    EMT                                                             FUN           23     A     
 FUN                                                                                       FUN           24     A     
 FUN      *         IN REG                                                                 FUN           25     A     
 FUN                EXT    ASR,CLI,CIA,CRJ,CWI,DIT,GST                                     FUN           26     A     
 FUN                                                                                       FUN           27     A     
 FUN      *         IN GEN                                                                 FUN           28     A     
 FUN                EXT    EIS.PNX,SA=BK,XMITS3,SLD                                        FUN           29     A     
 FUN                                                                                       FUN           30     A     
 FUN       O=BEF    SPACE  4,8                                                             FUN           31     A     
 FUN      **        O=BEF - RETURN JUMP TO CALL-BY-VALUE FUNCTION.                         FUN           32     A     
 FUN      *                                                                                FUN           33     A     
 FUN      *         ENTRY  (1OP) = ROUTINE TAG.                                            FUN           34     A     
 FUN      *                (B4) _ TURPLE BEING PROCESSED.                                  FUN           35     A     
 FUN      *                CODE TO LOAD THE ARGUMENT(S) HAS BEEN COMPILED BY               FUN           36     A     
 FUN      *                            PRECEDING *O=RAG* TURPLES.                          FUN           37     A     
 FUN      *         EXIT   TO *O=FUN2*.                                                    FUN           38     A     
 FUN      *         CALLS  CRJ.                                                            FUN           39     A     
 FUN                                                                                       FUN           40     A     
 FUN                                                                                       FUN           41     A     
 FUN       O=BEF    SA1    B4+OR.1OP                                                       FUN           42     A     
 FUN                BX6    X1                                                              FUN           43     A     
 FUN                CRJ    NONE                                                            FUN           44     A     
 FUN                EQ     O=FUN2      CONTINUE..                                          FUN           45     A     
 FUN       O=FUN    SPACE  4,8                                                             FUN           46     A     
 FUN      **        O=FUN - RETURN JUMP TO CALL-BY-NAME FUNCTION.                          FUN           47     A     
 FUN      *                                                                                FUN           48     A     
 FUN      *         ENTRY  (1OP) = ROUTINE TAG.                                            FUN           49     A     
 FUN      *                (B4) _ TURPLE BEING PROCESSED.                                  FUN           50     A     
 FUN      *                ARGUMENTS HAVE BEEN SET UP BY PRECEEDING *O=ARG*                FUN           51     A     
 FUN      *                            TURPLES --                                          FUN           52     A     
 FUN      *                (ARGNUM) SET-UP BY *O=ARG*.                                     FUN           53     A     
 FUN      *                (TP.APL) SET-UP BY *O=ARG*.                                     FUN           54     A     
 FUN      *                                                                                FUN           55     A     
 FUN      *         EXIT   TO *EIS.PNX*.                                                   FUN           56     A     
 FUN      *                (B4) ADVANCED                                                   FUN           57     A     
 FUN      *         CALLS  PEJ, TRF.                                                       FUN           58     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1366    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      *                                                                                FUN           59     A     
 FUN      *         NOTE   ALSO CONTAINS PROCESSING USED BY *O=BEF*.                       FUN           60     A     
 FUN                                                                                       FUN           61     A     
 FUN                                                                                       FUN           62     A     
 FUN       O=FUN    SA1    B4+OR.1OP                                                       FUN           63     A     
 FUN                SA2    A1+OR.2OP-OR.1OP                                                FUN           64          I
          -FCC0744
 FUN                BX6    X1                                                              FUN           65     A     
 FUN                BX7    X2                                                              FUN           66          I
          -FCC0744
 FUN                SA6    ROUTNAM                                                         FUN           67     A     
 FUN                SA7    TRACE                                                           FUN           68          I
          -FCC0744
 FUN                RJ     PEJ         COMPILE EXTERNAL JUMP.                              FUN           69     A     
 FUN                                                                                       FUN           70     A     
 FUN      **        JOINED HERE BY CALL-BY-VALUE RETURN JUMP.                              FUN           71     A     
 FUN                                                                                       FUN           72     A     
 FUN       O=FUN2   BX5    0                                                               FUN           73     A     
 FUN                MX7    0                                                               FUN           74     A     
 FUN                SB2    R.X6-RGFILE 0TR (UPPER HALF)                                    FUN           75     A     
 FUN                =B3    0           RESULTS OF UPPER HALF                               FUN           76     A     
 FUN                SA7    UUC                                                             FUN           77     A     
 FUN                RJ     DIT         DEFINE INTERMEDIATE RESULTS                         FUN           78     A     
 FUN                =A1    B4+OR.OPR                                                       FUN           79     A     
 FUN                MX0    -L.MODE                                                         FUN           80     A     
 FUN                AX1    P.DMOD                                                          FUN           81     A     
 FUN                BX2    -X0*X1                                                          FUN           82     A     
 FUN                IFBIT  X2,-LONG,O=FUN5   IF SINGLE RESULT                              FUN           83     A     
 FUN                BX5    0                                                               FUN           84     A     
 FUN                SB2    R.X7-RGFILE 0TR (LOWER HALF)                                    FUN           85     A     
 FUN                =B3    1           RESULTS OF LOWER HALF                               FUN           86     A     
 FUN                RJ     DIT         DEFINE INTERMEDIATE RESULTS                         FUN           87     A     
 FUN                                                                                       FUN           88     A     
 FUN       O=FUN5   =B4    B4+L.TURP                                                       FUN           89     A     
 FUN                EQ     EIS.PNX     CONTINUE                                            FUN           90     A     
 FUN       O=ARG    SPACE  4,20                                                            FUN           91     A     
 FUN      **        O=ARG -  PROCESS EXTERNAL ARGUMENT REFERENCE.                          FUN           92     A     
 FUN      *                                                                                FUN           93     A     
 FUN      *         ENTRY  DEFINE ONLY FROM *EIS* - EXPAND INSTRUCTION SKELETON.           FUN           94     A     
 FUN      *                (B4) _ CURRENT TURPLE.                                          FUN           95     A     
 FUN      *                (1OP) = N/A                                                     FUN           96     A     
 FUN      *                (2OP) = ARGUMENT TAG + BIAS                                     FUN           97     A     
 FUN      *                (B5) _ START OF PARSED FILE.                                    FUN           98     A     
 FUN      *                (ARGNUM) = NUMBER OF ARGUMENTS PREVIOUSLY PROCESSED FOR         FUN           99     A     
 FUN      *                            THIS CALL.                                          FUN          100     A     
 FUN      *                (TP.APL) = CONTAINS THOSE PREVIOUS ARGUMENTS.                   FUN          101     A     
 FUN      *                                                                                FUN          102     A     
 FUN      *         EXIT   (B4) = B4+L.TURP                                                FUN          103     A     
 FUN      *                                                                                FUN          104     A     
 FUN      *         CALLS  ADDWD                                                           FUN          105     A     
 FUN      *         USES   CANNOT DESTROY *B4*, *A7*                                       FUN          106     A     
 FUN                                                                                       FUN          107     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1367    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                                                                                       FUN          108     A     
 FUN       O=ARG    BSS    0                                                               FUN          109     A     
 FUN                DRITE  DEACTIVATE                                                      FCC1339        6     A     
 FUN                SA1    ARGNUM                                                          FUN          110     A     
 FUN                SA2    B4+OR.2OP   FETCH ARGUMENT                                      FUN          111     A     
 FUN                =X6    X1+1                                                            FUN          112     A     
 FUN                BX0    X2                                                              FUN          113     A     
 FUN                SBIT   X0,INTR                                                         FUN          114     A     
 FUN                SA6    A1          UPDATE ARGUMENT COUNT.                              FUN          115     A     
 FUN                ZR     X2,ARG64    IF NULL ARG SIGNALING FOR -0 WORD                   FUN          116     A     
 FUN                LX5    X2                                                              FUN          117     A     
 FUN                BX6    X2                                                              FUN          118     A     
 FUN                BX3    X2                                                              FUN          119     A     
 FUN                AX3    P.TGB                                                           FUN          120     A     
 FUN                SB7    X3-C.STN/1S13                                                   FUN          121     A     
 FUN                ZR     B7,ARG60    IF STATEMENT NUMBER TAG                             FUN          122     A     
 FUN                BX1    X0                                                              FCC1134       27     A     
 FUN                IFBIT  X1,ADDR/INTR,ARG70  IF ADDRESS SET                              FCC1134       28     A     
 FUN                PL     X0,ARG60    IF NOT INTERMEDIATE                                 FUN          123     A     
 FUN                                                                                       FUN          124     A     
 FUN      **        PROCESS IF *INTERMEDIATE*                                              FUN          125     A     
 FUN                                                                                       FUN          126     A     
 FUN                IFBIT  X0,2ARY/INTR,ARG40                                              FUN          127     A     
 FUN                BX1    X6                                                              FUN          128     A     
 FUN                                                                                       FUN          129     A     
 FUN      **        PROCESS IF *TEMPORARY* VALUE.                                          FUN          130     A     
 FUN                                                                                       FUN          131     A     
 FUN                =B2    0           STATUS OF LOWER HALF                                FUN          132     A     
 FUN                =B7    0           STATUS OF TAG ONLY                                  FUN          133     A     
 FUN                RJ     GST         GET STATUS OF TAG                                   FUN          134     A     
 FUN                BX6    X1                                                              FUN          135     A     
 FUN                ZR     B2,ARG60    IF INTERMEDIATE NOT IN REGISTER                     FUN          136     A     
 FUN                RJ     CWI         COMPILE STORE OF INTERMEDIATE.                      FUN          137     A     
 FUN                SA2    B4+OR.2OP                                                       FUN          138     A     
 FUN                MX0    -L.MODE                                                         FUN          139     A     
 FUN                BX5    X2                                                              FUN          140     A     
 FUN                AX2    P.DMOD                                                          FUN          141     A     
 FUN                BX1    -X0*X2                                                          FUN          142     A     
 FUN                IFBIT  X2,-LONG,ARG60    IF SINGLE RESULT                              FUN          143     A     
 FUN                SA6    ARGNUM+1                                                        FUN          144     A     
 FUN                =B2    1                   STATUS OF LOWER HALF                        FUN          145     A     
 FUN                =B7    0                                                               FUN          146     A     
 FUN                RJ     GST                                                             FUN          147     A     
 FUN                ZR     B2,ARG10    IF LOWER HALF NOT IN REGISTER                       FUN          148     A     
 FUN                SA5    B2+REGFILE                                                      FUN          149     A     
 FUN                RJ     CWI                                                             FUN          150     A     
 FUN       ARG10    SA5    ARGNUM+1                                                        FUN          151     A     
 FUN                BX6    X5                                                              FUN          152     A     
 FUN                EQ     ARG60                                                           FUN          153     A     
 FUN                                                                                       FUN          154     A     
 FUN      **        PROCESS IF *PLUG* VALUE.                                               FUN          155     A     
 FUN                                                                                       FUN          156     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1368    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN       ARG40    SB2    B0                                                              FUN          157     A     
 FUN                SB7    B0                                                              FUN          158     A     
 FUN                RJ     GST         GET STATUS OF TAG                                   FUN          159     A     
 FUN                NZ     B2,ARG43    IF IN REGISTER                                      FUN          160     A     
 FUN                                                                                       FUN          161     A     
 FUN      *         INTERMEDIATE REQUIRES PROCESSING OF LOAD INTO REGISTER                 FUN          162     A     
 FUN      *         (KNOWN TO BE *SUBSCRIPTED ARRAY LOAD BY FLAG IN OPERATOR WORD)         FUN          163     A     
 FUN                                                                                       FUN          164     A     
 FUN       ARG42    RJ     ASR         ASSIGN RESULT REGISTER                              FUN          165     A     
 FUN                SX7    B2                                                              FUN          166     A     
 FUN                SA7    RREG        SET HARD REGISTER                                   FUN          167     A     
 FUN                SA1    B4+OR.2OP                                                       FUN          168     A     
 FUN                =X0    M.ADDR      SET ADDRESS BIT                                     FUN          169     A     
 FUN                SB2    B0                                                              FUN          170     A     
 FUN                BX5    X1+X0                                                           FUN          171     A     
 FUN                RJ     SLD         PROCESS ARRAY LOAD                                  FUN          172     A     
 FUN                SX3    B2          RESULT REGISTER LOAD = 0TR.                         FUN          173     A     
 FUN                EQ     ARG45       CONTINUE                                            FUN          174     A     
 FUN                                                                                       FUN          175     A     
 FUN      *         INTERMEDIATE ALREADY LOADED, CHECK IF IN RESULT REGISTER AND           FUN          176     A     
 FUN      *         IF NOT PUT IT THERE.                                                   FUN          177     A     
 FUN                                                                                       FUN          178     A     
 FUN       ARG43    SA1    B2+REGFILE                                                      FUN          179     A     
 FUN                SX0    B2-R.X6+RGFILE                                                  FUN          180     A     
 FUN                SX3    B2                                                              FUN          181     A     
 FUN                IFBIT  X1,-ADDR,ARG42  IF ADDRESS                                      FUN          182     A     
 FUN                PL     X0,ARG45   IF IN RESULT REGISTER                                FUN          183     A     
 FUN                RJ     ASR         ASSIGN STORE REGISTER                               FUN          184     A     
 FUN                SX3    B2                                                              FUN          185     A     
 FUN                MX0    -3                                                              FUN          186     A     
 FUN                BX7    -X0*X4                                                          FUN          187     A     
 FUN                IX2    X7+X6                                                           FUN          188     A     
 FUN                SX7    X2+XMITS3                                                       FUN          189     A     
 FUN                LX7    P.LI15+3                                                        FUN          190     A     
 FUN                WCODE  X7          OUTPUT *XMIT* TO RESULT REGISTER                    FUN          191     A     
 FUN                                                                                       FUN          192     A     
 FUN      *         (X3) = 0TR. FOR REGISTER TO STORE FROM, INTO *AP-LIST* TAG             FUN          193     A     
 FUN                                                                                       FUN          194     A     
 FUN       ARG45    MX0    -3                                                              FUN          195     A     
 FUN                SA2    TG.PRO                                                          FUN          196     A     
 FUN                BX3    -X0*X3      =00R                                                FUN          197     A     
 FUN                SA1    ARGNUM                                                          FUN          198     A     
 FUN                LX3    6           =R00                                                FUN          199     A     
 FUN                =X1    X1-1        ARGNUM-1 FOR APLIST OFFSET                          FUN          200     A     
 FUN                =X2    X2+1        NEXT PROGRAM TAG WILL BE OUR AP-LIST                FUN          201     A     
 FUN                SX6    X3+SA=BK                                                        FUN          202     A     
 FUN                LX1    P.LBIAS                                                         FUN          203     A     
 FUN                LX2    P.LTAG                                                          FUN          204     A     
 FUN                BX3    X1+X2                                                           FUN          205     A     
 FUN                LX6    P.LI15                                                          FUN          206     A     
 FUN                IX7    X3+X6                                                           FUN          207     A     
 FUN                WCODE  X7          OUTPUT *STORE* INTO *AP-LIST* TAG                   FUN          208     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1369    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                MX6    L.ABIAS+L.ATAG    INDICATE *PLUG*                               FUN          209     A     
 FUN                EQ     ARG65                                                           FUN          210     A     
 FUN                                                                                       FUN          211     A     
 FUN      **        ADD ELEMENT TO AP-LIST TABLE                                           FUN          212     A     
 FUN      *         ENTRY  (X6) = TAG.                                                     FUN          213     A     
 FUN                                                                                       FUN          214     A     
 FUN       ARG60    MX0    L.ATAG                                                          FUN          215     A     
 FUN                SBIT   X6,ATAG/2TAG                                                    FUN          216     A     
 FUN                BX1    X6                                                              FUN          217     A     
 FUN                AX1    P.TGB                                                           FUN          218     A     
 FUN                SB7    X1-C.SCR/1S13                                                   FUN          219     A     
 FUN                NZ     B7,ARG62                                                        FUN          220     A     
 FUN                AX6    P.ATAG                                                          FUN          221     A     
 FUN                =X1    C.SCR                                                           FUN          222     A     
 FUN                IX1    X6-X1                                                           FUN          223     A     
 FUN                SA2    TT.SCR                                                          FUN          224     A     
 FUN                MX0    L.ATAG+L.ABIAS                                                  FUN          225     A     
 FUN                SB7    X2                                                              FUN          226     A     
 FUN                SA5    X1+B7                                                           FUN          227     A     
 FUN                BX6    X5                                                              FUN          228     A     
 FUN                SBIT   X6,ATAG/2TAG                                                    FUN          229     A     
 FUN                                                                                       FUN          230     A     
 FUN      **        CHECK IF ARGUMENT IS A FORMAL PARAMETER.                               FUN          231     A     
 FUN                                                                                       FUN          232     A     
 FUN       ARG62    BX2    X5                                                              FUN          233     A     
 FUN                MX7    -L.2FPNO                                                        FUN          234     A     
 FUN                BX6    X0*X6                                                           FUN          235     A     
 FUN                                                                                       FUN          236     A     
 FUN      *         BIT *ALCM* MUST BE TURNED ON IN THE AP-LIST ENTRY FOR AN               FUN          237     A     
 FUN      *         ECS/LCM ITEM.                                                          FUN          238     A     
 FUN                                                                                       FUN          239     A     
 FUN                RJ     =XCLT       CHECK FOR LCM/ECS TAG                               FUN          240     A     
 FUN                ZR     X3,ARG63    IF LCM OR ECS TAG                                   FUN          241     A     
 FUN                EQ     ARG635                                                          FUN          242     A     
 FUN                                                                                       FUN          243     A     
 FUN       ARG63    MX0    1                                                               FUN          244     A     
 FUN                LX0    P.ALCM+1    TURN ON *ALCM* BIT                                  FUN          245     A     
 FUN                BX6    X0+X6                                                           FUN          246     A     
 FUN       ARG635   AX2    P.2FPNO                                                         FUN          247     A     
 FUN                BX7    -X7*X2                                                          FUN          248     A     
 FUN                AX2    P.TGB-P.2FPNO                                                   FUN          249     A     
 FUN                SX1    X2-C.SYM/1S13                                                   FUN          250     A     
 FUN                NZ     X1,ARG65    IF NOT *SYMB0L*                                     FUN          251     A     
 FUN                ZR     X7,ARG65    IF NOT A FORMAL PARAMETER                           FUN          252     A     
 FUN                RJ     ASR                                                             FUN          253     A     
 FUN                =X0    M.ADDR                                                          FUN          254     A     
 FUN                BX5    X0+X5                                                           FUN          255     A     
 FUN                MX7    L.2TAG+L.2BIAS+L.2FPNO                                          FUN          256     A     
 FUN                BX1    X7*X5                                                           FUN          257     A     
 FUN                RJ     CLI         COMPILE LOAD INSTRUCTION                            FUN          258     A     
 FUN                SX3    B2                                                              FUN          259     A     
 FUN                EQ     ARG45                                                           FUN          260     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1370    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                                                                                       FUN          261     A     
 FUN       ARG64    MX6    60          -0 WORD PRECEDING RETURNS LIST                      FUN          262     A     
 FUN       ARG65    ADDWD  TP.APL                                                          FUN          263     A     
 FUN                                                                                       FUN          264     A     
 FUN      **        RETURN TO *ARITH*                                                      FUN          265     A     
 FUN                                                                                       FUN          266     A     
 FUN                SB4    B4+L.TURP                                                       FUN          267     A     
 FUN                EQ     EIS.PNX     CONTINUE                                            FUN          268     A     
 FUN       ARG70    RJ     ASR                                                             FCC1134       29     A     
 FUN                BX0    X5                                                              FCC1134       30     A     
 FUN                IFBIT  X0,INTR,ARG75  IF ARRAY ADDRESS SET                             FCC1134       31     A     
 FUN                                                                                       FCC1134       32     A     
 FUN      *         ADDR OPERANDS ARE ALWAYS IN SCRATCH TABLE.                             FCC1134       33     A     
 FUN                                                                                       FCC1134       34     A     
 FUN                SA3    TT.SCR                                                          FCC1134       35     A     
 FUN                AX5    P.2TAG                                                          FCC1134       36     A     
 FUN                SB7    X3                                                              FCC1134       37     A     
 FUN                MX7    L.2TAG+L.2BIAS+L.2FPNO                                          FCC1134       38     A     
 FUN                SX5    X5-C.SCR                                                        FCC1134       39     A     
 FUN                SA5    X5+B7                                                           FCC1134       40     A     
 FUN                BX1    X7*X5                                                           FCC1134       41     A     
 FUN                RJ     CLI                                                             FCC1134       42     A     
 FUN                                                                                       FCC1134       43     A     
 FUN       ARG71    SA3    =XTG.TEM                                                        FCC1134       44     A     
 FUN                =X7    X3+1                                                            FCC1134       45     A     
 FUN                SA7    A3                                                              FCC1134       46     A     
 FUN                LX3    P.LTAG                                                          FCC1134       47     A     
 FUN                SX2    B2                                                              FCC1134       48     A     
 FUN                MX0    -3                                                              FCC1134       49     A     
 FUN                BX2    -X0*X2                                                          FCC1134       50     A     
 FUN                LX2    6           =R00                                                FCC1134       51     A     
 FUN                SX6    X2+SA=BK                                                        FCC1134       52     A     
 FUN                LX6    P.LI15                                                          FCC1134       53     A     
 FUN                IX7    X3+X6                                                           FCC1134       54     A     
 FUN                WCODE  X7                                                              FCC1134       55     A     
 FUN                LX3    P.ATAG-P.LTAG                                                   FCC1134       56     A     
 FUN                BX6    X3                                                              FCC1134       57     A     
 FUN                EQ     ARG65                                                           FCC1134       58     A     
 FUN                                                                                       FCC1134       59     A     
 FUN       ARG75    SX7    B2                                                              FCC1134       60     A     
 FUN                SA7    RREG                                                            FCC1134       61     A     
 FUN                SB2    B0                                                              FCC1134       62     A     
 FUN                RJ     SLD                                                             FCC1134       63     A     
 FUN                EQ     ARG71                                                           FCC1134       64     A     
 FUN       O=RJT    SPACE  4,8                                                             FUN          269     A     
 FUN      **        O=RJT - GENERATE RETURN JUMP TO EXTERNAL.                              FUN          270     A     
 FUN      *                                                                                FUN          271     A     
 FUN      *         ENTRY  (1OP) = ROUTINE TAG.                                            FUN          272     A     
 FUN      *                (B4) _ TURPLE BEING PROCESSED.                                  FUN          273     A     
 FUN      *                ARGUMENTS HAVE BEEN SET UP BY PRECEEDING *O=ARG*                FUN          274     A     
 FUN      *                            TURPLES --                                          FUN          275     A     
 FUN      *                (ARGNUM) SET-UP BY *O=ARG*.                                     FUN          276     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1371    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN      *                (TP.APL) SET-UP BY *O=ARG*.                                     FUN          277     A     
 FUN      *         EXIT   TO *EIS.PNX*.                                                   FUN          278     A     
 FUN      *                (B4) ADVANCED.                                                  FUN          279     A     
 FUN      *         CALLS  PEJ                                                             FUN          280     A     
 FUN                                                                                       FUN          281     A     
 FUN                                                                                       FUN          282     A     
 FUN       O=RJT    BSS    0           ENTRY...                                            FUN          283     A     
 FUN                =A4    B4+OR.1OP                                                       FUN          284     A     
 FUN                =A2    A4+OR.2OP-OR.1OP                                                FUN          285          I
          -FCC0744
 FUN                BX6    X4                                                              FUN          286     A     
 FUN                BX7    X2                                                              FUN          287          I
          -FCC0744
 FUN                SA6    ROUTNAM                                                         FUN          288     A     
 FUN                SA7    TRACE                                                           FUN          289          I
          -FCC0744
 FUN                RJ     PEJ         PROCESS EXTERNAL JUMP                               FUN          290     A     
 FUN                SB4    B4+L.TURP                                                       FUN          291     A     
 FUN                EQ     EIS.PNX     EXIT..                                              FUN          292     A     
 FUN       PEJ      SPACE  4,20                                                            FUN          293     A     
 FUN      **        PEJ -  PROCESS EXTERNAL JUMP.                                          FUN          294     A     
 FUN      *                                                                                FUN          295     A     
 FUN      *         ENTRY  (ARGNUM) = NUMBER OF ARGUMENTS.                                 FUN          296     A     
 FUN      *                (ROUTNAM)= TAG OF ROUTINE TO CALL.                              FUN          297     A     
 FUN      *                (TP.APL) = CONTAINS THE ARGUMENTS, AT THE VERY END OF           FUN          298     A     
 FUN      *                            THE TABLE.                                          FUN          299     A     
 FUN      *                (TRACE) = LINE NO. FOR TRACEBACK                                FUN          300     A     
 FUN      *                                                                                FUN          301     A     
 FUN      *         EXIT   EXTERNAL JUMP COMPILED.                                         FUN          302     A     
 FUN      *                (ARGNUM) = 0                                                    FUN          303     A     
 FUN      *                                                                                FUN          304     A     
 FUN      *         CALLS  ADDWD, CLOAD, CRJ                                               FUN          305     A     
 FUN                                                                                       FUN          306     A     
 FUN                                                                                       FUN          307     A     
 FUN       PEJ6     SA1    ROUTNAM                                                         FUN          308     A     
 FUN                MX0    -L.2FPNO                                                        FUN          309     A     
 FUN                BX6    X1                                                              FUN          310     A     
 FUN                AX1    P.2FPNO                                                         FUN          311     A     
 FUN                BX2    -X0*X1                                                          FUN          312     A     
 FUN                NZ     X2,PEJ4     IF FORMAL PARAMETER                                 FUN          313     A     
 FUN                                                                                       FUN          314     A     
 FUN       PEJ8     SA3    TRACE                                                           FUN          315          I
          -FCC0744
 FUN       PEJ8     SA3    =XTRACE                                                         FCC0744       16     A     
 FUN                CRJ    MUST                                                            FUN          316     A     
 FUN                                                                                       FUN          317     A     
 FUN       PEJ      SUBR   -           ENTRY/EXIT...                                       FUN          318     A     
 FUN                RJ     CIA         CLEAR INTEMEDIATES / ASSOCIATES                     FUN          319     A     
 FUN                SA2    ARGNUM                                                          FUN          320     A     
 FUN                BX6    0                                                               FUN          321     A     
 FUN                =B6    X2+1        = ARGUMENT COUNT + ZERO WORD                        FUN          322     A     
 FUN                SA6    A2          CLEAR ARG COUNT FOR NEXT ENTRY                      FUN          323     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1372    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                ADDWD  TP.APL      ADD ENDING WORD OF 0                                FUN          324     A     
 FUN                                                                                       FUN          325     A     
 FUN       SNAP=L   IFNE   TEST        DUMP AP-LIST TABLE                                  FUN          326     A     
 FUN               SA3    =XCO.SNAP                                                        FUN          327     A     
 FUN                LX3    1RL                                                             FUN          328     A     
 FUN                PL     X3,PEJ3S    IF AP-LIST SNAP NOT SELECTED                        FUN          329     A     
 FUN                DUMPT  (TP.APL)                                                        FUN          330     A     
 FUN       PEJ3S    BSS    0                                                               FUN          331     A     
 FUN       SNAP=L   ENDIF                                                                  FUN          332     A     
 FUN                                                                                       FUN          333     A     
 FUN                SB3    B6                                                              FUN          334     A     
 FUN                RJ     NAP         SCAN/ENTER AP-LIST TABLE.                           FUN          335     A     
 FUN                AX6    P.TAG                                                           FUN          336     A     
 FUN                SX1    SA=BK+100B                                                      FUN          337     A     
 FUN                LX1    18-3                                                            FUN          338     A     
 FUN                BX7    X1+X6                                                           FUN          339     A     
 FUN                LX7    30                                                              FUN          340     A     
 FUN                WCODE  X7,PEJ6     COMPILE LOAD OF AP-LIST TAG                         FUN          341     A     
 FUN                                                                                       FUN          342     A     
 FUN      **        HERE TO HANDLE *RJ* TO DUMMY ARGUMENT.                                 FUN          343     A     
 FUN      *                EMIT AN ADDRESS SUBSTITUTION TURPLE TO THE VAR-DIM              FUN          344     A     
 FUN      *                GENERATOR.                                                      FUN          345     A     
 FUN                                                                                       FUN          346     A     
 FUN       PEJ4     SA3    TG.PRO                                                          FUN          347     A     
 FUN                SA4    ROUTNAM                                                         FUN          348     A     
 FUN                =X7    X3+1                                                            FUN          349     A     
 FUN                SB3    RJSUB                                                           FUN          350     A     
 FUN                SB3    -B3                                                             FUN          351     A     
 FUN                BX5    X7                                                              FUN          352     A     
 FUN                =X0    M.ADDR                                                          FUN          353     A     
 FUN                SA7    A3          ADVANCE (TG.PRO)                                    FUN          354     A     
 FUN                BX4    X4+X0                                                           FUN          355     A     
 FUN                SA1    T.VDIM                                                          FUN          356     A     
 FUN                LX5    P.2TAG                                                          FUN          357     A     
 FUN                RJ     EMT         EMIT  (O=RJSUB, ROUTNAM, *)                         FUN          358     A     
 FUN                AX5    P.2TAG                                                          FUN          359     A     
 FUN                CBSS   X5                                                              FUN          360     A     
 FUN                                                                                       FUN          361     A     
 FUN      **        IF THIS WAS THE FIRST *RJ* TO A FORMAL PARAMETER, NOTIFY *FVD*         FUN          362     A     
 FUN      *                THAT A SKELETON *RJT* WORD WILL BE NECESSARY.                   FUN          363     A     
 FUN                                                                                       FUN          364     A     
 FUN                SA1    RJTDUM                                                          FUN          365     A     
 FUN                BX6    0                                                               FUN          366     A     
 FUN                NZ     X1,PEJ8     IF PREVIOUS DUMMY CALL                              FUN          367     A     
 FUN                SX7    CT.RJS                                                          FUN          368     A     
 FUN                SA7    A1                                                              FUN          369     A     
 FUN                EQ     PEJ8        CONTINUE.. TO OUTPUT DUMMY *RJ* WORD                FUN          370     A     
 FUN                                                                                       FUN          371     A     
 FUN       ARGNUM   DATA   0,0                                                             FUN          372     A     
 FUN       TRACE    DATA   0           TRACEBACK LINE NO. FOR RJ BEING PROCESSED           FUN          373          I
          -FCC0744
 FUN                LIST   D                                                               FUN          374     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1373    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FUN     
  
 FUN                END                                                                    FUN          375     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FUN     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FUN                        375       367
          FCC0744                      1         1
          FCC1134                     38        38
          FCC1339                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *DECK     REG                                                                    REG            1     A     
 REG                IDENT  REG                                                             REG            2     A     
 REG       REG      SECT   (REGISTER ALLOCATOR ROUTINES),1                                 REG            3     A     
 REG                                                                                       REG            4     A     
 REG                SST    B,D,EXIT.                                                       REG            5     A     
 REG                NOREF  B,D,EXIT.                                                       REG            6     A     
 REG                                                                                       REG            7     A     
 REG       B=REG    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             REG            8     A     
 REG                                                                                       REG            9     A     
 REG                ENTRY  CLOADJ,REGLK,CRJ,CAR,CDS,CIA,DIT,GST,GNR,LTG                    REG           10     A     
 REG                ENTRY  LFP,RLL,RUL,SST,ABR,ASR,AIR,LSC,RUT,SFR,SDS,CLI,CWI             REG           11     A     
 REG                ENTRY  CLP,CLT,STRGLK                                                  REG           12     A     
 REG                                                                                       REG           13     A     
 REG      *         IN FTN                                                                 REG           14     A     
 REG                EXT    CO.TBK                                                          REG           15     A     
 REG                                                                                       REG           16     A     
 REG      *         IN TABLES                                                              REG           17     A     
 REG                EXT    DRITE,REGA,REGX                                                 REG           18     A     
 REG                EXT    RGC,REGFILE,RGX,RG=BADR,RG=INTR,RG=FPRG,UUC                     REG           19     A     
 REG                EXT    RG=LOAD,RG=LODX,RG=STOR,RREG                                    REG           20     A     
 REG                EXT    TG.TEM,TT.PAR,TT.SCR,TS.SYM                                     REG           21     A     
 REG                                                                                       REG           22     A     
 REG      *         IN PIG                                                                 REG           23     A     
 REG                EXT    WIN                                                             REG           24     A     
 REG                                                                                       REG           25     A     
 REG      *         IN GEN                                                                 REG           26     A     
 REG                EXT    ALREG                                                           REG           27     A     
 REG                EXT    FMASK,LSHF,SA=AB,SA=AK,SA=BKS3                                  REG           28     A     
 REG                EXT    SB=BK,SB=BB,SB=XB,SB=XK,SX=BK,XOR,XMITS3                        REG           29     A     
 REG                EXT    SA=XKS3,SA=ABS3,SA=ABS6,SA=AKS6,REGPRO                          REG           30     A     
 REG                EXT    CRTTAB                                                          REG           31     A     
 REG                                                                                       REG           32     A     
 REG      *         IN INIT                                                                REG           33     A     
 REG                EXT    SCR                                                             REG           34     A     
 REG                                                                                       REG           35     A     
 REG       ALX      SPACE  4,8                                                             REG           36     A     
 REG       ABR      SPACE  4,8                                                             REG           37     A     
 REG      **        ABR -  ASSIGN *B* REGISTER                                             REG           38     A     
 REG      *         ENTRY  (X1) = TAG                                                      REG           39     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1374    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *                                                                                REG           40     A     
 REG      *         EXIT   (B2) = 0TR - WHERE T = B TYPE                                   REG           41     A     
 REG      *                (X6) = 0R0 - REGISTER ASSIGNED                                  REG           42     A     
 REG      *                                                                                REG           43     A     
 REG      *         USES   A1,A2,A3  X0  B2,B3,B5,B7                                       REG           44     A     
 REG      *         CALLS  RUT, SFR                                                        REG           45     A     
 REG                                                                                       REG           46     A     
 REG                                                                                       REG           47     A     
 REG       ABR      SUBR               ENTRY/EXIT...                                       REG           48     A     
 REG                SB3    RG=BADR                                                         REG           49     A     
 REG                RJ     SFR         SCAN FOR REGISTER                                   REG           50     A     
 REG                ZR     X7,EXIT.    IF USE COUNT *0*                                    REG           51     A     
 REG                RJ     RUT         RESET USE TABLE                                     REG           52     A     
 REG                EQ     EXIT.                                                           REG           53     A     
 REG       AIR      SPACE  4,12                                                            REG           54     A     
 REG      **        AIR -  ASSIGN *INTERMEDIATE* REGISTER.                                 REG           55     A     
 REG      *                                                                                REG           56     A     
 REG      *         ENTRY  N/A                                                             REG           57     A     
 REG      *                                                                                REG           58     A     
 REG      *         EXIT   IF FREE REGISTER FOUND.                                         REG           59     A     
 REG      *                (B2) = REGISTER - 0TR, ASSIGNED                                 REG           60     A     
 REG      *                                                                                REG           61     A     
 REG      *                IF NO FREE REGISTER FOUND.                                      REG           62     A     
 REG      *                (B2) = - (0TR) FOR NEXT AVAILABLE LOAD REGISTER TO USE          REG           63     A     
 REG      *                (B5) = USE COUNT ON REGISTER.                                   REG           64     A     
 REG      *                                                                                REG           65     A     
 REG      *         CALLS  DRITE,SFR                                                       REG           66     A     
 REG                                                                                       REG           67     A     
 REG                                                                                       REG           68     A     
 REG       AIR      SUBR               ENTRY/EXIT...                                       REG           69     A     
 REG                SB3    RG=INTR                                                         REG           70     A     
 REG                RJ     SFR         SCAN FOR REGISTER                                   REG           71     A     
 REG                ZR     X7,EXIT.    IF USE COUNT *0*                                    REG           72     A     
 REG                                                                                       REG           73     A     
 REG      **        HERE IF *INTERMEDIATE* REGISTERS NOT FREE.                             REG           74     A     
 REG                                                                                       REG           75     A     
 REG                DRITE  DEACTIVATE                                                      REG           76     A     
 REG                ZR     X2,AIR1     IF REGISTER NOT RELEASED                            REG           77     A     
 REG                ZR     X7,EXIT.    IF LAST USE OF REGISTER                             REG           78     A     
 REG                                                                                       REG           79     A     
 REG       AIR1     SB3    RG=LOAD                                                         REG           80     A     
 REG                RJ     SFR                                                             REG           81     A     
 REG                ZR     X7,EXIT.    IF REGISTER FREE                                    REG           82     A     
 REG                SB2    -B2                                                             REG           83     A     
 REG                MX0    -L.RUSE                                                         REG           84     A     
 REG                SA1    RGX                                                             REG           85     A     
 REG                ZR     X1,EXIT.    IF NON-INTERMEDIATE NOT AVAILABLE                   REG           86     A     
 REG                SA2    X1+REGFILE                                                      REG           87     A     
 REG                SB2    X1                                                              REG           88     A     
 REG                BX7    -X0*X2                                                          REG           89     A     
 REG                EQ     EXIT.                                                           REG           90     A     
 REG       ASR      SPACE  4,8                                                             REG           91     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1375    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      **        ASR -  FIND AVAILABLE STORE REGISTER.                                  REG           92     A     
 REG      *                                                                                REG           93     A     
 REG      *         ENTRY  N/A                                                             REG           94     A     
 REG      *                                                                                REG           95     A     
 REG      *         EXIT   (B2) = 0TR.                                                     REG           96     A     
 REG      *                (X6) = 0R0.                                                     REG           97     A     
 REG      *                                                                                REG           98     A     
 REG      *         CALLS  DRITE,SFR,RUT,GNT,CLI                                           REG           99     A     
 REG      *                                                                                REG          100     A     
 REG      *         USES   A2,A5,A6  X0,X7  B7                                             REG          101     A     
 REG                                                                                       REG          102     A     
 REG                                                                                       REG          103     A     
 REG       ASR      SUBR               ENTRY/EXIT...                                       REG          104     A     
 REG                SB3    RG=STOR                                                         REG          105     A     
 REG                RJ     SFR         SCAN FOR REGISTER                                   REG          106     A     
 REG                ZR     X7,EXIT.    IF FREE REGISTER (USE COUNT = 0)                    REG          107     A     
 REG                DRITE  DEACTIVATE                                                      REG          108     A     
 REG                ZR     X2,ASR1     IF REGISTER NOT FREED                               REG          109     A     
 REG                ZR     X7,EXIT.    IF LAST USE OF REGISTER                             REG          110     A     
 REG       ASR1     SA1    B2+REGFILE                                                      REG          111     A     
 REG                BX0    X1                                                              REG          112     A     
 REG                IFBIT  X0,-INTR,ASR2                                                   REG          113     A     
 REG                IFBIT  X0,2ARY/INTR,ASR2                                               REG          114     A     
 REG                SA2    RGX                                                             REG          115     A     
 REG                ZR     X2,ASR5     IF NON-INTERMEDIATE NOT AVAILABLE                   REG          116     A     
 REG                SB2    X2                                                              REG          117     A     
 REG       ASR2     RJ     RUT                                                             REG          118     A     
 REG                EQ     EXIT.                                                           REG          119     A     
 REG                                                                                       REG          120     A     
 REG       ASR5     RJ     GNT         GET NEXT TEMPORARY                                  REG          121     A     
 REG                SX2    B2                                                              REG          122     A     
 REG                =X7    0                                                               REG          123     A     
 REG                MX0    -3                                                              REG          124     A     
 REG                BX1    X6                                                              REG          125     A     
 REG                SA7    B2+REGFILE                                                      REG          126          I
          -FCC1412
 REG                BX6    -X0*X2                                                          REG          127          I
          -FCC1412
 REG                LX6    3                                                               REG          128          I
          -FCC1412
 REG                RJ     CLI                                                             REG          129          I
          -FCC1412
 REG                BX6    X5          SAVE X5                                             FCC1412        9     A     
 REG                SA5    B2+REGFILE  TAG BEING STORED                                    FCC1412       10     A     
 REG                SA7    A5          ZERO REGFILE ENTRY                                  FCC1412       11     A     
 REG                SA6    ASRA                                                            FCC1412       12     A     
 REG                BX6    -X0*X2                                                          FCC1412       13     A     
 REG                LX6    3                                                               FCC1412       14     A     
 REG                RJ     CLI         COMPILE LOAD (IN THIS CASE. A STORE) INS.           FCC1412       15     A     
 REG                SA5    ASRA        RESTORE X5                                          FCC1412       16     A     
 REG                EQ     EXIT.                                                           REG          130     A     
 REG                                                                                       REG          131     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1376    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG       ASRA     BSS    1           SAVE X5 CELL                                        FCC1412       17     A     
 REG       CAR      SPACE  4,8                                                             REG          132     A     
 REG      **        CAR -  CLEAR REGISTER FILE (RGFILE).                                   REG          133     A     
 REG      *                                                                                REG          134     A     
 REG      *         ENTRY  N/A                                                             REG          135     A     
 REG      *                                                                                REG          136     A     
 REG      *         EXIT   *RGFILE* CLEARED.                                               REG          137     A     
 REG                                                                                       REG          138     A     
 REG                                                                                       REG          139     A     
 REG       CAR      SUBR               ENTRY/EXIT...                                       REG          140     A     
 REG                =X6    0                                                               REG          141     A     
 REG                SB7    L.RGFILE                                                        REG          142     A     
 REG       CAR5     SA2    B7+REGFILE                                                      REG          143     A     
 REG                ZR     B7,EXIT.    IF FINISHED                                         REG          144     A     
 REG                =B7    B7-1                                                            REG          145     A     
 REG                IFBIT  X2,RLOCK,CAR5                                                   REG          146     A     
 REG                SA6    A2                                                              REG          147     A     
 REG                EQ     CAR5        LOOP                                                REG          148     A     
 REG       CDS      SPACE  4,15                                                            REG          149     A     
 REG      **        CDS -  CHECK DELAYED STORE.                                            REG          150     A     
 REG      *                                                                                REG          151     A     
 REG      *         NOTE                                                                   REG          152     A     
 REG      *                *CDS* SHOULD ALWAYS BE CALLED VIA MACRO *DRITE*                 REG          153     A     
 REG      *                                                                                REG          154     A     
 REG      *         ENTRY  (X0) = 0 PROCESS DELAYED STORE IF SET                           REG          155     A     
 REG      *                       "0 PROCESS ONLY IF = TO (DRITE)                          REG          156     A     
 REG      *                       THAT BEING PROCESSED.                                    REG          157     A     
 REG      *                (X1) = TAG CURRENTLY BEING PROCESSED                            REG          158     A     
 REG      *                                                                                REG          159     A     
 REG      *         EXIT   (X2) = 0 IF DELAYED STORE NOT PROCESSED.                        REG          160     A     
 REG      *                       (X1) PRESERVED.                                          REG          161     A     
 REG      *                (X2) " 0 DELAYED STORE PROCESSED.                               REG          162     A     
 REG      *                       (X1) DESTROYED.                                          REG          163     A     
 REG      *                (B2) = REGISTER FOR *DRITE* RELEASED - 0TR.                     REG          164     A     
 REG      *                (X6) = 0R0 OF REGISTER FREED.                                   REG          165     A     
 REG      *                                                                                REG          166     A     
 REG      *         USES   A1,A2,A3  X0  B2,B7                                             REG          167     A     
 REG      *                (SCR2+4)                                                        REG          168     A     
 REG      *         CALLS  CIW                                                             REG          169     A     
 REG                                                                                       REG          170     A     
 REG                                                                                       REG          171     A     
 REG       CDS      SUBR               ENTRY/EXIT...                                       REG          172     A     
 REG                SA2    DRITE                                                           REG          173     A     
 REG                ZR     X2,EXIT.    IF NO DELAYED STORE ACTIVE                          REG          174     A     
 REG                =A1    A2+1                                                            REG          175     A     
 REG                ZR     X0,CDS10    IF FORCED PROCESSING.                               REG          176     A     
 REG                BX7    X2-X0                                                           REG          177     A     
 REG                =A3    A1+1                                                            REG          178     A     
 REG                AX7    P.TYPE                                                          REG          179     A     
 REG                ZR     X7,CDS10    IF TAG SAME AS LEFT MEMBER                          REG          180     A     
 REG                BX6    X3-X0                                                           REG          181     A     
 REG                AX6    P.TYPE                                                          REG          182     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1377    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                ZR     X6,CDS10    IF TAG SAME AS RIGHT MEMBER                         REG          183     A     
 REG                IFBIT  X0,-2EQUIV,EXIT.  IF TAG NOT EQUIVALENCED                       REG          184     A     
 REG                                                                                       REG          185     A     
 REG      **        COMPILE STORE OF TAG FOUND IN *B3* REGISTER FILE ENTRY.                REG          186     A     
 REG                                                                                       REG          187     A     
 REG       CDS10    SX7    B6                                                              REG          188     A     
 REG                SA7    CDSA        SAVE *B6*                                           REG          189     A     
 REG                                                                                       REG          190     A     
 REG      **        IF THE HARD REGISTER FLAG IS SET, WE TURN IT OFF TO PREVENT            REG          191     A     
 REG      *         ITS BEING DESTROYED BY A STORE INTO AN *FP*, THEN RESTORE IT.          REG          192     A     
 REG                                                                                       REG          193     A     
 REG                SA1    RREG                                                            REG          194     A     
 REG                MI     X1,CDS15    IF NO HARD REGISTER                                 REG          195     A     
 REG                BX7    -X1                                                             REG          196     A     
 REG                SA7    A1          TURN OFF FLAG                                       REG          197     A     
 REG                RJ     CIW         COMPILE STORE                                       REG          198     A     
 REG                SA1    RREG                                                            REG          199     A     
 REG                BX7    -X1                                                             REG          200     A     
 REG                SA7    A1          RESTORE FLAG                                        REG          201     A     
 REG                EQ     CDS20                                                           REG          202     A     
 REG                                                                                       REG          203     A     
 REG       CDS15    RJ     CIW         COMPILE STORE                                       REG          204     A     
 REG                                                                                       REG          205     A     
 REG       CDS20    SA1    DRITE                                                           REG          206     A     
 REG                BX7    0                                                               REG          207     A     
 REG                =X0    1                                                               REG          208     A     
 REG                SA3    CDSA                                                            REG          209     A     
 REG                SA7    A1          CLEAR DELAYED STORE FLAG                            REG          210     A     
 REG                SB6    X3                                                              REG          211     A     
 REG                SA2    B2+REGFILE                                                      REG          212     A     
 REG                MX3    -L.RUSE                                                         REG          213     A     
 REG                BX1    X1-X2                                                           REG          214     A     
 REG                BX7    -X3*X2                                                          REG          215     A     
 REG                NZ     X1,EXIT.    IF RGFILE TAG NOT SAME AS DRITE TAG                 REG          216     A     
 REG                IX7    X2-X0       USE COUNT-1                                         REG          217     A     
 REG                SA7    A2                                                              REG          218     A     
 REG                BX7    -X3*X7      USE COUNT ONLY                                      REG          219     A     
 REG                EQ     EXIT.                                                           REG          220     A     
 REG                                                                                       REG          221     A     
 REG       CDSA     DATA   0           SAVE *B6*                                           REG          222     A     
 REG       CIA      SPACE  4,10                                                            REG          223     A     
 REG      **        CIA -  CHECK IF ANY ACTIVE STORES / CLEAR ASSOCIATE.                   REG          224     A     
 REG      *                                                                                REG          225     A     
 REG      *         ENTRY  N/A                                                             REG          226     A     
 REG      *                                                                                REG          227     A     
 REG      *         EXIT   ASSOCIATES CLEARED, INTERMEDIATES STORED.                       REG          228     A     
 REG      *                                                                                REG          229     A     
 REG      *         USES   A1,A2,A3  X0  B2,B7                                             REG          230     A     
 REG      *                                                                                REG          231     A     
 REG      *         CALLS  DRITE,RUT                                                       REG          232     A     
 REG                                                                                       REG          233     A     
 REG       #FID     IFNE   .FID,0                                                          F66FCC       800     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1378    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                ENTRY  CIAA                                                            F66FCC       801     A     
 REG       #FID     ENDIF                                                                  F66FCC       802     A     
 REG       CIAA     BSSZ   1           LOCK CLEAR FLAG                                     FCC0805        4     A     
 REG                                                                                       REG          234     A     
 REG       CIA      SUBR               ENTRY/EXIT...                                       REG          235     A     
 REG                DRITE  DEACTIVATE                                                      REG          236     A     
 REG                SB7    L.RGFILE                                                        REG          237     A     
 REG                MX0    -L.RUSE                                                         REG          238     A     
 REG                EQ     CIA2                                                            FCC1012        6     A     
 REG                                                                                       FCC1012        7     A     
 REG       CIA1     MX7    0                                                               FCC1012        8     A     
 REG                SA7    A2          ZERO OUT REGFILE ENTRY                              FCC1012        9     A     
 REG                                                                                       FCC1012       10     A     
 REG       CIA2     ZR     B7,EXIT.    IF FINISHED                                         REG          239     A     
 REG                SA2    B7+REGFILE                                                      REG          240     A     
 REG                SB2    B7                                                              REG          241     A     
 REG                BX1    -X0*X2                                                          REG          242     A     
 REG                LX2    59-8                                                            REG          243     A     
 REG                =B7    B7-1                                                            REG          244     A     
 REG                NG     X2,CIA2     IF REGISTER LOCKED                                  REG          245          I
          -FCC0805
 REG                ZR     X1,CIA2     IF USE COUNT *0*                                    REG          246          I
          -FCC1012
 REG                ZR     X1,CIA1     IF USE COUNT ZERO                                   FCC1012       11     A     
 REG                RJ     RUT         RESET TAG                                           REG          247          I
          -FCC0805
 REG                PL     X2,CIA3     IF REGISTER UN-LOCKED                               FCC0805        5     A     
 REG                SA3    CIAA                                                            FCC0805        6     A     
 REG                ZR     X3,CIA2     IF REGISTER TO REMAIN LOCKED                        FCC0805        7     A     
 REG                MX0    1                                                               FCC0805        8     A     
 REG                BX7    -X0*X2      REMOVE LOCK BIT                                     FCC0805        9     A     
 REG                LX7    9                                                               FCC0805       10     A     
 REG                SA7    A2          RESTORE IN REGFILE                                  FCC0805       11     A     
 REG                                                                                       FCC0805       12     A     
 REG       CIA3     RJ     RUT         RESET TAG                                           FCC0805       13     A     
 REG                MX0    -L.RUSE                                                         REG          248     A     
 REG                =B7    B2-1                                                            REG          249     A     
 REG                EQ     CIA2        CONTINUE                                            REG          250     A     
 REG                                                                                       REG          251     A     
 REG       CIW      SPACE  4,12                                                            REG          252     A     
 REG      **        CIW -  COMPILE WRITE INSTRUCTIONS                                      REG          253     A     
 REG      *                                                                                REG          254     A     
 REG      *         ENTRY  (DRITE)  SET.                                                   REG          255     A     
 REG      *                                                                                REG          256     A     
 REG      *         EXIT   (B2) = REGISTER FOR WRITE - 0TR.                                REG          257     A     
 REG      *                (X6) = 0R0.                                                     REG          258     A     
 REG      *                                                                                REG          259     A     
 REG      *         USES   A1,A2,A3,A6,A7  X0  B2,B3,B7                                    REG          260     A     
 REG      *                                                                                REG          261     A     
 REG      *         CALLS  DRITE,WCODE,CLI                                                 REG          262     A     
 REG                                                                                       REG          263     A     
 REG                                                                                       REG          264     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1379    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG       CIW      SUBR               ENTRY/EXIT...                                       REG          265     A     
 REG                SA2    DRITE                                                           REG          266     A     
 REG                MX0    -3                                                              REG          267     A     
 REG                =A1    A2+1        TAG FOR INSTRUCTION + *I* REGISTER                  REG          268     A     
 REG                MX7    -L.RUSE                                                         REG          269     A     
 REG                BX0    -X0*X2      =00R (*A* REGISTER FOR LEFT MEMBER)                 REG          270     A     
 REG                BX6    -X7*X1      =0R0 (*I* REGISTER)                                 REG          271     A     
 REG                IX7    X0+X6                                                           REG          272     A     
 REG                ZR     X0,CIW10    IF LEFT MEMBER NOT IN *A* REGISTER                  REG          273     A     
 REG                SA3    X0+REGA                                                         REG          274     A     
 REG                SX7    X7+SA=ABS3                                                      REG          275     A     
 REG                BX0    X2-X3                                                           REG          276     A     
 REG                LX7    P.LI15+3                                                        REG          277     A     
 REG                BX3    X6                                                              REG          278     A     
 REG                AX0    L.RUSE                                                          REG          279     A     
 REG                NZ     X0,CIW10    IF NOT SAME TAG                                     REG          280     A     
 REG                WCODE  X7                                                              REG          281     A     
 REG                BX6    X3                                                              REG          282     A     
 REG                AX3    3                                                               REG          283     A     
 REG                SB2    X3+REG.X-RGFILE                                                 REG          284     A     
 REG                EQ     EXIT.                                                           REG          285     A     
 REG                                                                                       REG          286     A     
 REG       CIW10    BX2    X6                                                              REG          287     A     
 REG                MX0    L.2TAG+L.2BIAS+L.2FPNO                                          REG          288     A     
 REG                AX2    3                                                               REG          289     A     
 REG                BX1    X0*X1                                                           REG          290     A     
 REG                BX7    X5                                                              REG          291     A     
 REG                SA7    CIWA        SAVE X5                                             REG          292     A     
 REG                BX5    X1                                                              REG          293     A     
 REG                SB2    X2+REG.X-RGFILE                                                 REG          294     A     
 REG                RJ     CLI                                                             REG          295     A     
 REG                SA5    CIWA        RESTORE X5                                          REG          296     A     
 REG                EQ     EXIT.                                                           REG          297     A     
 REG                                                                                       REG          298     A     
 REG       CIWA     DATA   0                                                               REG          299     A     
 REG       CLI      SPACE  4                                                               REG          300     A     
 REG      **        CLI - COMPILE LOAD INSTRUCTION.                                        REG          301     A     
 REG      *                                                                                REG          302     A     
 REG      *         ENTRY  (B2) = REGISTER TO USE - 0TR                                    REG          303     A     
 REG      *                (X5) = TAG TO LOAD.                                             REG          304          I
          -FCC1134AX
 REG      *                (X1) = STATUS WORD OF TAG TO LOAD.                              FCC1134AX      8     A     
 REG      *                       ONLY TAG, BIAS AND FPNO FIELDS ARE USED.                 FCC1134AX      9     A     
 REG      *                (X5) = STATUS WORD OF X1 TAG  OR                                FCC1134AX     10     A     
 REG      *                     = PARSED FILE OPERAND WORD OF X1 TAG.                      FCC1134AX     11     A     
 REG      *                (X6) = REGISTER TO USE - 0R0.                                   REG          305     A     
 REG      *                                                                                REG          306     A     
 REG      *         EXIT   (B2) = PRESERVED.                                               REG          307     A     
 REG      *                (X5) = PRESERVED.                                               REG          308     A     
 REG      *                                                                                REG          309     A     
 REG      *         USES   A2,A3,A6,A7  X0  B2,B3,B5,B7                                    REG          310     A     
 REG      *                                                                                REG          311     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1380    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *         CALLS  GNR,WCODE,CLT,RLL,RUL,CLP                                       REG          312     A     
 REG                                                                                       REG          313     A     
 REG                                                                                       REG          314     A     
 REG       CLI      SUBR               ENTRY/EXIT ...                                      REG          315     A     
 REG                                                                                       REG          316          I
          -FCC1134
 REG       .76      IFEQ   .CPU,76                                                         REG          317          I
          -FCC1134
 REG                                                                                       REG          318          I
          -FCC1134
 REG                BX7    X1                                                              REG          319          I
          -FCC1134AX
 REG                SA7    CLI.X1      SAVE X1 (TAG)                                       REG          320          I
          -FCC1134AX
 REG                                                                                       REG          321          I
          -FCC1134
 REG       .76      ENDIF                                                                  REG          322          I
          -FCC1134
 REG                                                                                       REG          323          I
          -FCC1134
 REG                MX0    -L.2BIAS                                                        REG          324     A     
 REG                BX7    X6                                                              REG          325          I
          -FCC1134AX
 REG                LX0    P.2BIAS                                                         REG          326     A     
 REG                BX3    -X0*X1      TAG *BIAS*                                          REG          327     A     
 REG                MX2    -L.2FPNO                                                        REG          328     A     
 REG                                                                                       REG          329     A     
 REG      **        CHECK FOR FORMAL PARAMETER.                                            REG          330     A     
 REG      *                                                                                REG          331     A     
 REG      *         (B3) = REGISTER TO USE - 00R.                                          REG          332     A     
 REG      *         (B5) = 0TR.                                                            REG          333     A     
 REG      *         (X1) = TAG TO BE LOADED.                                               REG          334     A     
 REG      *         (X2) = MX2   -L.2FPNO                                                  REG          335     A     
 REG      *         (X3) = TAG *BIAS*                                                      REG          336     A     
 REG      *         (X6) = REGISTER TO USE - 0R0.                                          REG          337     A     
 REG                                                                                       REG          338     A     
 REG       CLI2     LX2    P.2FPNO                                                         REG          339     A     
 REG                AX3    P.2BIAS-P.LBIAS                                                 REG          340     A     
 REG                BX0    -X2*X1      EXTRACT *FP* NO.                                    REG          341     A     
 REG                SB5    B2                                                              REG          342     A     
 REG                BX2    X1                                                              REG          343     A     
 REG                AX2    P.TGB                                                           REG          344     A     
 REG                SB7    X2-C.TEM/1S13                                                   REG          345     A     
 REG                ZR     B7,CLI15    IF TEMP TAG                                         REG          346          I
          -FCC1134AX
 REG                SX7    X6+SA=BKS3  (X6) = 0R0 FOR *I* REG                              FCC1134AX     12     A     
 REG                ZR     B7,CLI18A   IF TEMP TAG, COMPILE  SAI TAG                       FCC1134AX     13     A     
 REG                AX0    P.2FPNO                                                         REG          347     A     
 REG                ZR     X0,CLI15    IF NOT *FP*                                         REG          348     A     
 REG                                                                                       FCC1134AX     14     A     
 REG      **        TAG IS FORMAL PARAMETER                                                FCC1134AX     15     A     
 REG      *         SAVE SOME REGISTERS                                                    FCC1134AX     16     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1381    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                                                                                       FCC1134AX     17     A     
 REG                SX7    B5                                                              FCC1134AX     18     A     
 REG                SA7    CLI.B5      SAVE B5  (0TR)                                      FCC1134AX     19     A     
 REG                BX7    X1                                                              FCC1134AX     20     A     
 REG                SA7    CLI.X1      SAVE X1  STATUS WORD TAG                            FCC1134AX     21     A     
 REG                BX7    X3                                                              FCC1134AX     22     A     
 REG                SA7    CLI.X3      SAVE X3  BIAS                                       FCC1134AX     23     A     
 REG                BX7    X6                                                              FCC1134AX     24     A     
 REG                SB7    B2-R.X6+RGFILE                                                  REG          349     A     
 REG                NG     B7,CLI5     IF NOT STORE REGISTER                               REG          350     A     
 REG                                                                                       REG          351     A     
 REG      **        GET LOAD REGISTER FOR INDIRECT STORE.                                  REG          352     A     
 REG                                                                                       REG          353     A     
 REG                SA6    CLI.X6      SAVE X6 (0R0)                                       REG          354     A     
 REG                BX6    X0                                                              REG          355     A     
 REG                SA6    CLI.X0      SAVE X0 (PARAMETER NO.)                             REG          356     A     
 REG                BX6    X3                                                              REG          357          I
          -FCC1134AX
 REG                SA6    CLI.X3      SAVE X3 (BIAS)                                      REG          358          I
          -FCC1134AX
 REG                SX6    B5                                                              REG          359          I
          -FCC1134AX
 REG                SA6    CLI.B5      SAVE B5 (0TR)                                       REG          360          I
          -FCC1134AX
 REG                SB3    RG=LOAD                                                         REG          361     A     
 REG                RJ     GNR         GET LOAD REGISTER                                   REG          362     A     
 REG                BX7    X6          (0R0) LOAD REGISTER                                 REG          363     A     
 REG                                                                                       REG          364     A     
 REG      *         RESTORE REGISTERS                                                      REG          365     A     
 REG                                                                                       REG          366     A     
 REG                SA3    CLI.B5                                                          REG          367     A     
 REG                SB5    X3          RESTORE B5                                          REG          368     A     
 REG                SA3    CLI.X6                                                          REG          369     A     
 REG                BX6    X3          RESTORE X6                                          REG          370     A     
 REG                SA3    CLI.X0                                                          REG          371     A     
 REG                BX0    X3          RESTORE X0                                          REG          372     A     
 REG                SA3    CLI.X3      RESTORE X3                                          REG          373     A     
 REG                                                                                       FCC1134AX     25     A     
 REG      **        OUTPUT TO LONG FILE                                                    FCC1134AX     26     A     
 REG      *         SAI A0+FPNO-1  OR  SAI A0                                              FCC1134AX     27     A     
 REG                                                                                       FCC1134AX     28     A     
 REG       CLI5     AX7    3           (00R) LOAD REGISTER                                 REG          374     A     
 REG                SB3    X7                                                              REG          375     A     
 REG                SX1    X0-1                                                            REG          376     A     
 REG                SX0    X7+SA=AKS6                                                      REG          377     A     
 REG                NZ     X1,CLI10    IF NOT 1ST PARAMETER                                REG          378     A     
 REG                SX0    X7+SA=ABS6                                                      REG          379     A     
 REG       CLI10    LX0    P.LI15+6                                                        REG          380     A     
 REG                SX7    B5                                                              REG          381          I
          -FCC1134AX
 REG                LX1    P.LBIAS                                                         REG          382     A     
 REG                SB5    X6+B3       =0RR                                                REG          383     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1382    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SA7    CLIA        SAVE *0TR*                                          REG          384          I
          -FCC1134AX
 REG                IX7    X0+X1                                                           REG          385     A     
 REG                WCODE  X7                                                              REG          386     A     
 REG       #MD      IFEQ   .DAL,0                                                          FCC1134AX     29     A     
 REG                                                                                       FCC1134AX     30     A     
 REG      **        FOR NON-LCM VALUE LOAD,  COMPILE- SAI XJ+BIAS.(0TR)                    FCC1134AX     31     A     
 REG      *         OF *I* REG IS IN CLI.B5 AND (XJ) = (A0+FPNO-1).                        FCC1134AX     32     A     
 REG                                                                                       FCC1134AX     33     A     
 REG                SX7    B5+SA=XKS3                                                      FCC1134AX     34     A     
 REG                SA3    CLI.X3      RETRIEVE BIAS                                       FCC1134AX     35     A     
 REG                BX2    X5                                                              FCC1134AX     36     A     
 REG                IFBIT  X2,-ADDR,CLI11    IF VALUE LOAD, TAG IS SCM.                    FCC1134AX     37     A     
 REG                                                                                       FCC1134AX     38     A     
 REG       #MD      ENDIF                                                                  FCC1134AX     39     A     
 REG                                                                                       REG          387     A     
 REG       .76      IFEQ   .CPU,76                                                         REG          388          I
          -FCC1134
 REG                                                                                       REG          389          I
          -FCC1134
 REG      *         SAVE SOME REGISTERS                                                    REG          390     A     
 REG                                                                                       REG          391     A     
 REG                BX7    X3                                                              REG          392          I
          -FCC1134AX
 REG                SA7    CLI.X3      SAVE X3 (BIAS)                                      REG          393          I
          -FCC1134AX
 REG                SX7    B5                                                              REG          394     A     
 REG                SA7    CLI.B5      SAVE B5 (0RR)                                       REG          395          I
          -FCC1134AX
 REG                SA7    CLIA         SAVE (0RR)                                         FCC1134AX     40     A     
 REG                BX7    X5                                                              REG          396     A     
 REG                SA7    CLI.X5      SAVE X5                                             REG          397     A     
 REG                SA5    CLI.X1      TAG FOR *CLT*                                       REG          398     A     
 REG                RJ     CLT         CHECK FOR LCM TAG                                   REG          399     A     
 REG                SA2    CLI.B5                                                          REG          400          I
          -FCC1134AX
 REG                SA2    CLIA                                                            FCC1134AX     41     A     
 REG                SB5    X2          RESTORE B5 (0RR)                                    REG          401     A     
 REG                SA5    CLI.X5      RESTORE X5                                          REG          402     A     
 REG                NZ     X3,CLI109   IF NOT LCM TAG                                      REG          403     A     
 REG                                                                                       REG          404     A     
 REG      **        FORMAL LCM TAG                                                         REG          405     A     
 REG                                                                                       REG          406     A     
 REG                SA2    CLIA        (0TR)                                               REG          407          I
          -FCC1134AX
 REG                SA2    CLI.B5       (0TR)                                              FCC1134AX     42     A     
 REG                =X0    M.ADDR                                                          REG          408     A     
 REG                SA3    CLI.X3      RESTORE X3 (BIAS)                                   REG          409     A     
 REG                NZ     X3,CLI103   IF NONZERO BIAS                                     REG          410     A     
 REG                                                                                       FCC1134       65     A     
 REG       #MD      IFEQ   .DAL,1                                                          FCC1134       66     A     
 REG                                                                                       FCC1134       67     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1383    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                BX0    X0*X5                                                           REG          411     A     
 REG                ZR     X0,CLI105   IF NOT ADDRESS                                      REG          412     A     
 REG                                                                                       FCC1134       68     A     
 REG       #MD      ENDIF                                                                  FCC1134       69     A     
 REG                                                                                       REG          413     A     
 REG      **        ADDRESS IS TO BE LOADED, BIAS IS ZERO                                  REG          414     A     
 REG                                                                                       REG          415     A     
 REG                SX7    B5+XMITS3                                                       REG          416     A     
 REG                SB5    X2          (0TR)                                               REG          417          I
          -FCC1134AX
 REG                EQ     CLI11                                                           REG          418     A     
 REG                                                                                       REG          419     A     
 REG      **        BIAS IS NONZERO -- COMPUTE ADDRESS                                     REG          420     A     
 REG      *         OUTPUT TO INTERMEDIATE FILE                                            REG          421     A     
 REG      *                SXI    BIAS                                                     REG          422     A     
 REG      *                IXI    XI+XJ                                                    REG          423     A     
 REG                                                                                       REG          424     A     
 REG       CLI103   MX0    -3                                                              REG          425     A     
 REG                BX2    -X0*X2      (00R) OF UNBIASED ADDRESS                           REG          426     A     
 REG                SB7    X2                                                              REG          427     A     
 REG                RJ     RLL         LOCK ADDRESS REGISTER                               REG          428     A     
 REG                SA7    CLI.PR      SAVE ADDRESS REGISTER (00R)                         REG          429     A     
 REG                =B3    =XRG=SET                                                        REG          430     A     
 REG                RJ     GNR         GET SET REGISTER                                    REG          431     A     
 REG                SA2    CLI.PR      (00R) ADDRESS REGISTER                              REG          432     A     
 REG                SB7    X2                                                              REG          433     A     
 REG                RJ     RUL         UNLOCK ADDRESS REGISTER                             REG          434     A     
 REG                SX7    X6+=XSX=BKS3      OPCODE + *I* REGISTER                         REG          435     A     
 REG                SA6    CLI.SR      SAVE SET REGISTER (0R0)                             REG          436     A     
 REG                SA3    CLI.X3      RELOAD BIAS                                         REG          437     A     
 REG                LX7    P.LI15+3                                                        REG          438     A     
 REG                BX7    X7+X3       ADD IN BIAS                                         REG          439     A     
 REG                WCODE X7           COMPILE SET INSTRUCTION                             REG          440     A     
 REG                SA2    CLI.PR      (00R) ADDRESS REGISTER                              REG          441     A     
 REG                SA3    CLI.SR      (0R0) SET REGISTER                                  REG          442     A     
 REG                SX7    X2+=XIADD   OPCODE + *K* REGISTER                               REG          443     A     
 REG                LX2    6           (R00) ADDRESS REGISTER                              REG          444     A     
 REG                BX7    X7+X3       ADD IN *J* REGISTER                                 REG          445     A     
 REG                BX7    X7+X2       ADD IN *I* REGISTER                                 REG          446     A     
 REG                LX7    P.LI15                                                          REG          447     A     
 REG                SA5    CLI.X5                                                          REG          448     A     
 REG                =X0    M.ADDR                                                          REG          449     A     
 REG                BX0    X0*X5                                                           REG          450     A     
 REG                SA2    CLIA                                                            REG          451          I
          -FCC1134AX
 REG                SA2    CLI.B5                                                          FCC1134AX     43     A     
 REG                SB5    X2          (0TR) ADDRESS REGISTER                              REG          452     A     
 REG                                                                                       FCC1134       70     A     
 REG       #MD      IFEQ   .DAL,1                                                          FCC1134       71     A     
 REG                                                                                       FCC1134       72     A     
 REG                NZ     X0,CLI20    IF ADDRESS ONLY                                     REG          453     A     
 REG                WCODE  X7                                                              REG          454     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1384    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                                                                                       REG          455     A     
 REG      **        OUTPUT TO INTERMEDIATE FILE                                            REG          456     A     
 REG      *                RXJ    XK                                                       REG          457     A     
 REG      *         OR                                                                     REG          458     A     
 REG      *                WXJ    XK                                                       REG          459     A     
 REG                                                                                       REG          460     A     
 REG       CLI105   SB5    X2          (0TR)                                               REG          461     A     
 REG                SB7    B5-R.X6+RGFILE                                                  REG          462     A     
 REG                SA2    CLI.B5      (0RR)                                               REG          463          I
          -FCC1134AX
 REG                SA2    CLIA        (0RR)                                               FCC1134AX     44     A     
 REG                NG     B7,CLI107   IF NOT STORE REGISTER                               REG          464     A     
 REG                SX7    X2+=XLCMW   OPCODE + *J* AND *K* REGISTERS                      REG          465     A     
 REG                EQ     CLI108                                                          REG          466     A     
 REG                                                                                       REG          467     A     
 REG       CLI107   SX7    X2+=XLCMR   OPCODE + *J* AND *K* REGISTERS                      REG          468     A     
 REG                                                                                       REG          469     A     
 REG       CLI108   LX7    P.LI15                                                          REG          470     A     
 REG                                                                                       FCC1134       73     A     
 REG       #MD      ENDIF                                                                  FCC1134       74     A     
 REG                                                                                       FCC1134       75     A     
 REG                EQ     CLI20                                                           REG          471     A     
 REG                                                                                       REG          472     A     
 REG                                                                                       FCC1134AX     45     A     
 REG      **        NON-LCM FORMAL PARAMETER, (XJ) = (A0+FPNO-1)                           FCC1134AX     46     A     
 REG      *         AND (0TR) OF *I* REG IN CLI.B5 .                                       FCC1134AX     47     A     
 REG                                                                                       FCC1134AX     48     A     
 REG       CLI109   SA3    CLI.X3                                                          REG          473     A     
 REG                                                                                       REG          474          I
          -FCC1134AX
 REG       .76      ENDIF                                                                  REG          475          I
          -FCC1134AX
 REG                                                                                       REG          476          I
          -FCC1134AX
 REG                =X0    M.ADDR                                                          REG          477     A     
 REG                SX7    B5+SA=XKS3                                                      REG          478     A     
 REG                SA2    CLIA                                                            REG          479          I
          -FCC1134AX
 REG                BX0    X0*X5                                                           REG          480     A     
 REG                SB5    X2                                                              REG          481          I
          -FCC1134AX
 REG                ZR     X0,CLI11    IF NOT ADDRESS                                      REG          482          I
          -FCC1134AX
 REG                ZR     X0,CLI11    IF VALUE LOAD, COMPILE SAI XJ+BIAS.                 FCC1134AX     49     A     
 REG                SB2    SA=XKS3                                                         REG          483     A     
 REG                SB2    -B2                                                             REG          484     A     
 REG                ZR     X3,CLI10D   IF ZERO BIAS                                        REG          485          I
          -FCC1134AX
 REG                BX6    X3                                                              REG          486          I
          -FCC1134AX
 REG                SA6    CLI.X3      SAVE X3                                             REG          487          I
          -FCC1134AX
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1385    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SX6    B5                                                              REG          488          I
          -FCC1134AX
 REG                SA6    CLI.B5      SAVE B5                                             REG          489          I
          -FCC1134AX
 REG                RJ     CLT         CHECK FOR LCM TAG                                   REG          490          I
          -FCC1134AX
 REG                SA2    CLI.B5                                                          REG          491          I
          -FCC1134AX
 REG                SB5    X2          RESTORE B5                                          REG          492          I
          -FCC1134AX
 REG                ZR     X3,CLI10B   IF LCM TAG                                          REG          493          I
          -FCC1134AX
 REG                SB2    SA=XKS3                                                         REG          494          I
          -FCC1134AX
 REG                SB2    -B2                                                             REG          495          I
          -FCC1134AX
 REG                ZR     X3,CLI10D   IF ZERO BIAS, COMPILE  BXI XJ.                      FCC1134AX     50     A     
 REG                                                                                       FCC1134AX     51     A     
 REG      *         NONZERO BIAS, COMPILE  SXI XJ+BIAS.                                    FCC1134AX     52     A     
 REG                                                                                       FCC1134AX     53     A     
 REG                SB2    B2+=XSX=XKS3                                                    REG          496     A     
 REG                SX7    X7+B2                                                           REG          497     A     
 REG                SA3    CLI.X3      RELOAD BIAS                                         REG          498     A     
 REG                EQ     CLI11                                                           REG          499     A     
 REG                                                                                       REG          500     A     
 REG       CLI10B   SA3    CLI.X3      RELOAD BIAS                                         REG          501          I
          -FCC1134AX
 REG                MX0    -3                                                              REG          502          I
          -FCC1134AX
 REG                LX0    3                                                               REG          503          I
          -FCC1134AX
 REG                BX7    -X0*X7      (0R0)                                               REG          504          I
          -FCC1134AX
 REG                SX7    X7+=XSX=BKS3                                                    REG          505          I
          -FCC1134AX
 REG                LX7    P.LI15+3                                                        REG          506          I
          -FCC1134AX
 REG                IX7    X7+X3       ADD IN BIAS                                         REG          507          I
          -FCC1134AX
 REG                WCODE  X7          COMPILE SET OF BIAS                                 REG          508          I
          -FCC1134AX
 REG                MX0    -3                                                              REG          509          I
          -FCC1134AX
 REG                SX7    B5          (0RR)                                               REG          510          I
          -FCC1134AX
 REG                LX0    3                                                               REG          511          I
          -FCC1134AX
 REG                BX6    -X0*X7      (0R0)                                               REG          512          I
          -FCC1134AX
 REG                LX6    3           (R00)                                               REG          513          I
          -FCC1134AX
 REG                SX7    X6+B5       REGISTERS                                           REG          514          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1386    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
          -FCC1134AX
 REG                SX7    X7+=XIADD                                                       REG          515          I
          -FCC1134AX
 REG                LX7    P.LI15                                                          REG          516          I
          -FCC1134AX
 REG                EQ     CLI11                                                           REG          517          I
          -FCC1134AX
 REG                                                                                       REG          518          I
          -FCC1134AX
 REG       CLI10D   SB2    B2+XMITS3                                                       REG          519     A     
 REG                SX7    X7+B2                                                           REG          520     A     
 REG       CLI11    LX7    P.LI15+3                                                        REG          521     A     
 REG                                                                                       REG          522          I
          -FCC1134AX
 REG                SA2    CLI.B5                                                          FCC1134AX     54     A     
 REG                IX7    X7+X3       ADD IN *BIAS*                                       REG          523     A     
 REG                SB5    X2          RESTORE (0TR)                                       FCC1134AX     55     A     
 REG                EQ     CLI20       COMPLETE LOAD                                       REG          524     A     
 REG                                                                                       REG          525     A     
 REG      **        NOT FORMAL PARAMETER.                                                  REG          526     A     
 REG                                                                                       REG          527     A     
 REG       CLI15    MX0    L.TAG                                                           REG          528     A     
 REG       #MD      IFEQ   .DAL,0                                                          FCC1134AX     56     A     
 REG                                                                                       FCC1134AX     57     A     
 REG                BX2    X5                                                              FCC1134AX     58     A     
 REG                IFBIT  X2,-ADDR,CLI18A   NOT FP/LCM, COMPILE  SAI TAG.                 FCC1134AX     59     A     
 REG                                                                                       FCC1134AX     60     A     
 REG       #MD      ENDIF                                                                  FCC1134AX     61     A     
 REG       .76      IFEQ   .CPU,76                                                         REG          529          I
          -FCC1134
 REG                                                                                       REG          530     A     
 REG      *         SAVE SOME REGISTERS                                                    REG          531     A     
 REG                                                                                       REG          532     A     
 REG                BX7    X1                                                              REG          533     A     
 REG                SA7    CLI.X1      SAVE X1                                             REG          534     A     
 REG                BX7    X3                                                              REG          535     A     
 REG                SA7    CLI.X3      SAVE X3                                             REG          536     A     
 REG                BX7    X5                                                              REG          537     A     
 REG                SA7    CLI.X5      SAVE X5                                             REG          538     A     
 REG                SX7    B5                                                              REG          539     A     
 REG                SA7    CLI.B5      SAVE B5                                             REG          540     A     
 REG                BX5    X1          TAG FOR *CLT*                                       REG          541     A     
 REG                RJ     CLT         CHECK FOR LCM TAG                                   REG          542     A     
 REG                NZ     X3,CLI18    IF NOT LCM TAG                                      REG          543     A     
 REG                                                                                       REG          544     A     
 REG      **        LOAD LCM TAG                                                           REG          545     A     
 REG                                                                                       REG          546     A     
 REG                SA6    CLI.LR      SAVE LOAD REGISTER                                  REG          547     A     
 REG                RJ     CLP         COMPILE LOAD OF POINTER                             REG          548     A     
 REG                SX2    B5          (0TR) POINTER LOAD REGISTER                         REG          549     A     
 REG                MX0    -3                                                              REG          550     A     
 REG                BX2    -X0*X2      (00R)                                               REG          551     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1387    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SB7    X2                                                              REG          552     A     
 REG                RJ     RLL         LOCK POINTER REGISTER                               REG          553     A     
 REG                SA7    CLI.PR      SAVE POINTER REGISTER (00R)                         REG          554     A     
 REG                                                                                       REG          555     A     
 REG      **        OUTPUT TO INTERMEDIATE FILE                                            REG          556     A     
 REG      *                SXI    RELADD+BIAS                                              REG          557     A     
 REG      *         RELADD = RELATIVE ADDRESS OF NAME IN BLOCK                             REG          558     A     
 REG                                                                                       REG          559     A     
 REG                =B3    =XRG=SET                                                        REG          560     A     
 REG                RJ     GNR         GET SET REGISTER                                    REG          561     A     
 REG                SA2    CLI.PR      (00R) POINTER REGISTER                              REG          562     A     
 REG                SB7    X2                                                              REG          563     A     
 REG                RJ     RUL         UNLOCK POINTER REGISTER                             REG          564     A     
 REG                SX7    X6+=XSX=BKS3      OPCODE + *I* REGISTER                         REG          565     A     
 REG                SA6    CLI.SR      SAVE SET REGISTER (0R0)                             REG          566     A     
 REG                SA1    CLI.X1      RELOAD TAG                                          REG          567     A     
 REG                SA2    =XTA.NAM                                                        REG          568     A     
 REG                MX0    -L.PWF                                                          REG          569     A     
 REG                LX1    -P.2TAG                                                         REG          570     A     
 REG                SB3    X2          (B3) = FWA ADDRESS TABLE                            REG          571     A     
 REG                BX2    -X0*X1      (X2) = TAG ORDINAL                                  REG          572     A     
 REG                AX2    1                                                               REG          573     A     
 REG                SA2    X2+B3       FETCH ADDRESS TABLE ENTRY                           REG          574     A     
 REG                MX0    -L.RELADD                                                       REG          575     A     
 REG                BX2    -X0*X2      (X2) = BLOCK-RELATIVE ADDRESS                       REG          576     A     
 REG                LX2    P.LBIAS                                                         REG          577     A     
 REG                SA3    CLI.X3      RELOAD BIAS                                         REG          578     A     
 REG                IX3    X2+X3       RELADD + BIAS                                       REG          579     A     
 REG                LX7    P.LI15+3                                                        REG          580     A     
 REG                BX7    X7+X3                                                           REG          581     A     
 REG                WCODE  X7          COMPILE SET INSTRUCTION                             REG          582     A     
 REG                                                                                       REG          583     A     
 REG      **        OUTPUT TO INTERMEDIATE FILE                                            REG          584     A     
 REG      *                IXI    XI+XJ                                                    REG          585     A     
 REG                                                                                       REG          586     A     
 REG                SA2    CLI.PR      (00R) POINTER REGISTER                              REG          587     A     
 REG                SA3    CLI.SR      (0R0) SET REGISTER                                  REG          588     A     
 REG                SX7    X2+=XIADD   OPCODE + *K* REGISTER                               REG          589     A     
 REG                LX2    6           (R00) ADDRESS REGISTER                              REG          590     A     
 REG                BX7    X7+X3       ADD IN *J* REGISTER                                 REG          591     A     
 REG                                                                                       FCC1134       76     A     
 REG       #MD      IFEQ   .DAL,1                                                          FCC1134       77     A     
 REG                                                                                       FCC1134       78     A     
 REG                SA5    CLI.X5                                                          FCC1134       79     A     
 REG                SX0    M.ADDR                                                          FCC1134       80     A     
 REG                BX0    X0*X5                                                           FCC1134       81     A     
 REG                NZ     X0,CLI17A   IF ADDRESS SET                                      FCC1134       82     A     
 REG                BX7    X7+X2       ADD IN *I* REGISTER                                 REG          592     A     
 REG                LX7    P.LI15                                                          REG          593     A     
 REG                WCODE  X7          COMPILE ADD INSTRUCTION                             REG          594     A     
 REG                                                                                       REG          595     A     
 REG      **        OUTPUT TO INTERMEDIATE FILE                                            REG          596     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1388    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *                RXJ    XK                                                       REG          597     A     
 REG      *         OR                                                                     REG          598     A     
 REG      *                WXJ    XK                                                       REG          599     A     
 REG                                                                                       REG          600     A     
 REG                SA3    CLI.B5      (0TR) LOAD REGISTER                                 REG          601     A     
 REG                SA2    CLI.PR      (00R) ADDRESS REGISTER                              REG          602     A     
 REG                SB5    X3                                                              REG          603     A     
 REG                SA3    CLI.LR      (0R0) LOAD REGISTER                                 REG          604     A     
 REG                SB7    B5-R.X6+RGFILE                                                  REG          605     A     
 REG                NG     B7,CLI16    IF NOT STORE REGISTER                               REG          606     A     
 REG                SX7    X2+=XLCMW   OPCODE + *K* REGISTER                               REG          607     A     
 REG                EQ     CLI17                                                           REG          608     A     
 REG                                                                                       REG          609     A     
 REG       CLI16    SX7    X2+=XLCMR   OPCODE + *K* REGISTER                               REG          610     A     
 REG                                                                                       REG          611     A     
 REG       CLI17    BX7    X7+X3       ADD IN *J* REGISTER                                 REG          612     A     
 REG                LX7    P.LI15                                                          REG          613     A     
 REG                EQ     CLI20                                                           REG          614     A     
 REG                                                                                       FCC1134       83     A     
 REG       #MD      ENDIF                                                                  FCC1134       84     A     
 REG                                                                                       FCC1134       85     A     
 REG       CLI17A   SA3    CLI.LR                                                          FCC1134       86     A     
 REG                LX3    6-3                                                             FCC1134       87     A     
 REG                BX7    X7+X3                                                           FCC1134       88     A     
 REG                LX7    P.LI15                                                          FCC1134       89     A     
 REG                SA3    CLI.B5                                                          FCC1134       90     A     
 REG                SB5    X3                                                              FCC1134       91     A     
 REG                SA5    CLI.X5                                                          FCC1653X       6     A     
 REG                EQ     CLI20                                                           FCC1134       92     A     
 REG                                                                                       REG          615     A     
 REG       CLI18    MX0    L.TAG                                                           REG          616          I
          -FCC1134AX
 REG                                                                                       REG          617          I
          -FCC1134AX
 REG      *         RESTORE REGISTERS                                                      REG          618          I
          -FCC1134AX
 REG                                                                                       REG          619          I
          -FCC1134AX
 REG                SA1    CLI.B5                                                          REG          620          I
          -FCC1134AX
 REG                                                                                       FCC1134AX     62     A     
 REG      *         RESTORE REGISTERS                                                      FCC1134AX     63     A     
 REG                                                                                       FCC1134AX     64     A     
 REG       CLI18    SA1    CLI.B5      (0TR)                                               FCC1134AX     65     A     
 REG                SA3    CLI.X3      RESTORE X3  (BIAS)                                  REG          621     A     
 REG                SB5    X1          RESTORE B5  (0TR OF LOAD REGISTER)                  REG          622     A     
 REG                SA5    CLI.X5      RESTORE X5  (TAG)                                   REG          623     A     
 REG                SA1    CLI.X1      RESTORE X1  (TAG)                                   REG          624     A     
 REG                                                                                       REG          625     A     
 REG       .76      ENDIF                                                                  REG          626          I
          -FCC1134
 REG                                                                                       REG          627          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1389    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
          -FCC1134
 REG                SX7    X6+SA=BKS3                                                      REG          628          I
          -FCC1134
 REG                BX2    X0*X1       TAG                                                 REG          629          I
          -FCC1134
 REG                IX0    X7+X2                                                           REG          630          I
          -FCC1134
 REG                BX2    X0*X1       TAG                                                 FCC1134       93          I
          -FCC1134AX
 REG                SX0    M.ADDR                                                          FCC1134       94     A     
 REG                SX7    X6+SA=BKS3                                                      FCC1134       95     A     
 REG                BX0    X0*X5                                                           FCC1134       96     A     
 REG                ZR     X0,CLI18A   IF NOT ADDRESS SET                                  FCC1134       97     A     
 REG                SX7    X6+SX=BKS3                                                      FCC1134       98     A     
 REG                                                                                       FCC1134       99     A     
 REG       CLI18A   IX0    X7+X2                                                           FCC1134      100          I
          -FCC1134AX
 REG       CLI18A   MX0    L.TAG                                                           FCC1134AX     66     A     
 REG                BX2    X0*X1                                                           FCC1134AX     67     A     
 REG                IX0    X7+X2                                                           FCC1134AX     68     A     
 REG                LX0    P.LI15+3                                                        REG          631     A     
 REG                BX7    X3+X0       ADD IN *BIAS*                                       REG          632     A     
 REG                                                                                       REG          633     A     
 REG       CLI20    WCODE  X7                                                              REG          634     A     
 REG                                                                                       REG          635          I
          -FCC1134
 REG       .76      IFEQ   .CPU,76                                                         REG          636          I
          -FCC1134
 REG                                                                                       REG          637          I
          -FCC1134
 REG                SA5    CLI.X5      RESTORE X5                                          REG          638          I
          -FCC1134
 REG                                                                                       REG          639          I
          -FCC1134
 REG       .76      ENDIF                                                                  REG          640          I
          -FCC1134
 REG                                                                                       REG          641          I
          -FCC1134
 REG                SA5    CLI.X5                                                          FCC1134      101          I
          -FCC1134AX
 REG                SX6    B5                                                              REG          642     A     
 REG                MX0    -3                                                              REG          643     A     
 REG                SB2    B5                                                              REG          644     A     
 REG                BX6    -X0*X6                                                          REG          645     A     
 REG                LX6    3           =0R0                                                REG          646     A     
 REG                EQ     EXIT.                                                           REG          647     A     
 REG                                                                                       REG          648     A     
 REG       CLIA     DATA   0                                                               REG          649     A     
 REG                                                                                       REG          650     A     
 REG       CLI.X0   BSS    1                                                               REG          651     A     
 REG       CLI.X1   BSS    1                                                               REG          652     A     
 REG       CLI.X3   BSS    1                                                               REG          653     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1390    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG       CLI.X5   BSS    1                                                               REG          654     A     
 REG       CLI.X6   BSS    1                                                               REG          655     A     
 REG       CLI.B5   BSS    1                                                               REG          656     A     
 REG       CLI.LR   BSS    1                                                               REG          657     A     
 REG       CLI.PR   BSS    1                                                               REG          658     A     
 REG       CLI.SR   BSS    1                                                               REG          659     A     
 REG       CPL      SPACE  4,20                                                            REG          660     A     
 REG      **        CLP -  COMPILE LOAD OF POINTER WORD                                    REG          661     A     
 REG      *                                                                                REG          662     A     
 REG      *         ENTRY  (X5) = ECS/LCM NAME TAG                                         REG          663     A     
 REG      *                                                                                REG          664     A     
 REG      *         EXIT   INSTRUCTION COMPILED TO LOAD POINTER WORD                       REG          665     A     
 REG      *                (B5) = 0TR OF REGISTER USED                                     REG          666     A     
 REG      *                                                                                REG          667     A     
 REG      *         USES   A1,A2,A3,A6  X0,X7  B2,B3,B6,B7                                 REG          668     A     
 REG                                                                                       REG          669     A     
 REG                                                                                       REG          670     A     
 REG       CLP      SUBR               ENTRY/EXIT ...                                      REG          671     A     
 REG                RJ     GPT         GET POINTER TAG                                     REG          672     A     
 REG                LX2    P.LTAG-P.CTAG     ALIGN POINTER TAG                             REG          673     A     
 REG                BX6    X2                                                              REG          674     A     
 REG                SA6    CLPA        SAVE POINTER TAG                                    REG          675     A     
 REG                =B3    RG=LOAD                                                         REG          676     A     
 REG                RJ     GNR         GET POINTER-WORD LOAD REGISTER                      REG          677     A     
 REG                LX6    3           (R00)                                               REG          678     A     
 REG                SX1    =XSA=BK                                                         REG          679     A     
 REG                IX7    X1+X6       ADD IN *I* REGISTER                                 REG          680     A     
 REG                LX7    P.LI15      ALIGN                                               REG          681     A     
 REG                SA2    CLPA        RELOAD POINTER TAG                                  REG          682     A     
 REG                IX7    X7+X2       ADD IN TAG                                          REG          683     A     
 REG                SB5    B2                                                              REG          684     A     
 REG                WCODE  X7          OUTPUT INSTRUCTION TO LOAD POINTER WORD             REG          685          I
          -FCC1208
 REG                EQ     EXIT.                                                           REG          686          I
          -FCC1208
 REG                WCODE  X7,EXIT.    COMPILE LOAD OF POINTER                             FCC1208       13     A     
 REG                                                                                       REG          687     A     
 REG       CLPA     BSS    1                                                               REG          688     A     
 REG                SPACE  4,8                                                             REG          689     A     
 REG      **        CLT -  CHECK FOR LCM/ECS TAG                                           REG          690     A     
 REG      *                                                                                REG          691     A     
 REG      *         ENTRY  (X5) = TAG IN *PASS 2* TAG FIELD                                REG          692     A     
 REG      *                                                                                REG          693     A     
 REG      *         EXIT   (X3) = 0    IF TAG IS LCM OR ECS                                REG          694     A     
 REG      *                     " 0    IF TAG IS SCM OR CM                                 REG          695     A     
 REG      *                (X5) = PRESERVED                                                REG          696     A     
 REG      *                                                                                REG          697     A     
 REG      *         USES   A1,A3  X0  B5,B7                                                REG          698     A     
 REG      *                                                                                REG          699     A     
 REG      *         CALLS  GLN                                                             REG          700     A     
 REG                                                                                       REG          701     A     
 REG                                                                                       REG          702     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1391    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG       CLT      SUBR   0                                                               REG          703     A     
 REG                LX5    -P.2TAG                                                         REG          704     A     
 REG                MX0    -L.2TAG+L.PWF                                                   REG          705     A     
 REG                LX0    L.PWF                                                           REG          706     A     
 REG                BX0    -X0*X5                                                          REG          707     A     
 REG                LX5    P.2TAG      RESTORE X5                                          REG          708     A     
 REG                SX0    X0-C.SYM                                                        REG          709     A     
 REG                ZR     X0,CLT2     IF SYMBOL TAG                                       REG          710     A     
 REG                =X3    1                                                               REG          711     A     
 REG                EQ     CLTX        EXIT..                                              REG          712     A     
 REG                                                                                       REG          713     A     
 REG       CLT2     RJ     GLN         GET LEVEL NUMBER OF TAG                             REG          714     A     
 REG                SX3    X1-3                                                            REG          715     A     
 REG                ZR     X3,CLTX     IF LEVEL 3, EXIT..                                  REG          716     A     
 REG                                                                                       REG          717     A     
 REG       .76      IFEQ   .CPU,76                                                         REG          718     A     
 REG                                                                                       REG          719     A     
 REG                SX3    X1-2                                                            REG          720     A     
 REG                                                                                       REG          721     A     
 REG       .76      ENDIF                                                                  REG          722     A     
 REG                                                                                       REG          723     A     
 REG                EQ     CLTX        EXIT..                                              REG          724     A     
 REG                SPACE  4,8                                                             REG          725     A     
 REG      **        CRJ -  COMPILE RETURN JUMP SEQUENCE                                    REG          726     A     
 REG      *                                                                                REG          727     A     
 REG      *         SHOULD ALWAYS BE CALLED BY MACRO *CRJ*.                                REG          728     A     
 REG      *                                                                                REG          729     A     
 REG      *         COMPILES AN *RJ* TO A TAG, AND THE (OPTIONAL,DEPENDING ON              REG          730     A     
 REG      *                (CO.TBK)) TRACE-BACK INFORMATION.                               REG          731     A     
 REG      *         ALSO DEACTIVATES ANY DELAYED STORE, AND CLEARS ALL REGISTER            REG          732     A     
 REG      *                ASSOCIATES.                                                     REG          733     A     
 REG      *         ENTRY  (X1)<0 IF TRACEBACK IS MANDATORY.                               REG          734     A     
 REG      *                   = 0 IF TRACEBACK IS PROHIBITED                               REG          735     A     
 REG      *                   > 0 IF TRACEBACK IS PERMITTED                                REG          736     A     
 REG      *                (X3) = LINE NO. FOR TRACEBACK (IF SELECTED)                     REG          737     A     
 REG      *                X6 = 18/TAG,42/XXXX                                             REG          738     A     
 REG      *         USES   A2,A3,A6,A7                                                     REG          739     A     
 REG      *                                                                                REG          740     A     
 REG      *         CALLS  CIA, WCODE                                                      REG          741     A     
 REG                                                                                       REG          742     A     
 REG      CRJ       SUBR               ENTRY/EXIT                                          REG          743     A     
 REG                SA2    CO.TBK      TRACEBACK FLAG (T-OPTION)                           REG          744     A     
 REG                AX6    P.TAG       REMOVE LOW-ORDER GARBAGE                            REG          745     A     
 REG                =X7    I.RJ                                                            REG          746     A     
 REG                LX6    P.TAG       REPOSITION                                          REG          747     A     
 REG                ZR     X1,CRJ4     IF TRACE PROHIBITED                                 REG          748     A     
 REG                MI     X1,CRJ2     IF TRACE MANDATORY                                  REG          749     A     
 REG                PL     X2,CRJ4     IF T-OPTION NOT SELECTED                            REG          750     A     
 REG       CRJ2     SX7    X3-7777B                                                        REG          751     A     
 REG                MI     X7,CRJ3     IF LINE NO. .LT. 4096                               REG          752     A     
 REG                SX7    X3                                                              REG          753     A     
 REG                SA7    CRJB        SAVE LINE NO.                                       REG          754     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1392    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SX3    7777B       FLAG IN LINE NO.                                    REG          755     A     
 REG       CRJ3     =X7    I.CALL                                                          REG          756     A     
 REG                LX3    P.LI12-P.TRC                                                    REG          757     A     
 REG                BX6    X6+X3                                                           REG          758     A     
 REG       CRJ4     BX6    X6+X7                                                           REG          759     A     
 REG                LX6    P.LI12                                                          REG          760     A     
 REG                SA6    CRJA                                                            REG          761     A     
 REG                RJ     CIA         CLEAR REGISTER ASSOCIATES                           REG          762          I
          -FCC0805
 REG                SA7    CIAA        SET LOCK CLEAR FLAG                                 FCC0805       14     A     
 REG                RJ     CIA         CLEAR REGISTER ASSOCIATES                           FCC0805       15     A     
 REG                MX6    0                                                               FCC0805       16     A     
 REG                SA6    CIAA        CLEAR LOCK FLAG                                     FCC0805       17     A     
 REG                SA2    CRJA                                                            REG          763     A     
 REG                BX7    X2                                                              REG          764     A     
 REG                WCODE  X7          RJ WORD TO LONG  FILE                               REG          765     A     
 REG                SA2    CRJB                                                            REG          766     A     
 REG                ZR     X2,EXIT.    IF LINE NO. WAS .LT. 4096                           REG          767     A     
 REG                SA3    CRJC                                                            REG          768     A     
 REG                WCODE  X3          SB0 B0+0 TO LONG FILE  (FILLER)                     REG          769     A     
 REG                SA2    CRJB        LINE NO.                                            REG          770     A     
 REG                SA3    CRJC        SB0 SKELETON                                        REG          771     A     
 REG                LX2    P.LBIAS     POSITION LINE NO. TO BIAS FIELD                     REG          772     A     
 REG                BX7    X3+X2                                                           REG          773     A     
 REG                WCODE  X7          SB0 B0+LINE NO.  TO LONG FILE                       REG          774     A     
 REG                =X7    0                                                               REG          775     A     
 REG                SA7    CRJB        CLEAR FLAG FOR NEXT TIME                            REG          776     A     
 REG                EQ     EXIT.                                                           REG          777     A     
 REG                                                                                       REG          778     A     
 REG       CRJA     BSS    1           TEMP CELL FOR INSTRUCTION                           REG          779     A     
 REG       CRJB     BSSZ   1           TEMP CELL FOR LINE NO. IF .GT. 4095                 REG          780     A     
 REG       CRJC     VFD    12/6100B,48/0  LONG FILE WORD FOR SB0 B0+K                      REG          781     A     
 REG       CRT      EJECT  4,50                                                            REG          782     A     
 REG      **        CRT - CHECK REGISTER TYPE                                              REG          783     A     
 REG      *                                                                                REG          784     A     
 REG      *         ENTRY  B2 = REGISTER TYPE TAG IS IN (0TR)                              REG          785     A     
 REG      *                B3 = REGISTER TYPE WANTED (0TR)                                 REG          786     A     
 REG      *                *T* BIT VALUES                                                  REG          787     A     
 REG      *                    =000 *B* REGISTER                                           REG          788     A     
 REG      *                    =010 *A* REGISTER                                           REG          789     A     
 REG      *                    =020 *X* REGISTER                                           REG          790     A     
 REG      *                                                                                REG          791     A     
 REG      *         EXIT   IF B7 = 0 IF TYPES MATCH                                        REG          792     A     
 REG      *                X7 = INSTRUCTION TO TRANSFER TO SAME TYPE                       REG          793     A     
 REG      *                                                                                REG          794     A     
 REG      *                IF B7 = INSTRUCTION TO TRANSFER IF DIFFERENT TYPES              REG          795     A     
 REG      *                X7 = B7                                                         REG          796     A     
 REG      *                                                                                REG          797     A     
 REG      *         THE FOLLOWING MATRIX IS USED TO DETERMINE INSTRUCTION                  REG          798     A     
 REG      *                                                                                REG          799     A     
 REG      *                                                                                REG          800     A     
 REG      *                     WANT REGISTER TYPE                                         REG          801     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1393    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *                                                                                REG          802     A     
 REG      *                        X         A           B                                 REG          803     A     
 REG      *                                                                                REG          804     A     
 REG      *                 +----------+----------+----------+                             REG          805     A     
 REG      *                 +          +          +          +                             REG          806     A     
 REG      *   I             +   SX=BB  +   SX=BB  +  -SB=BB  +                             REG          807     A     
 REG      *   N             +          +          +          +                             REG          808     A     
 REG      *                 +----------+----------+----------+                             REG          809     A     
 REG      *   R             +          +          +          +                             REG          810     A     
 REG      *   E             +   SA=AB  +  -SA=AB  +   SB=AB  +                             REG          811     A     
 REG      *   G             +          +          +          +                             REG          812     A     
 REG      *   I             +----------+----------+----------+                             REG          813     A     
 REG      *   S             +          +          +          +                             REG          814     A     
 REG      *   T             +  -XMIT   +  -XMIT   +   SB=XB  +                             REG          815     A     
 REG      *   E             +          +          +          +                             REG          816     A     
 REG      *   R             +----------+----------+----------+                             REG          817     A     
 REG      *                                                                                REG          818     A     
 REG      *                                                                                REG          819     A     
 REG      *         USES   A2  X0,X1,X2,X7  B7                                             REG          820     A     
 REG                                                                                       REG          821     A     
 REG                                                                                       REG          822     A     
 REG       CRT      SUBR               ENTRY/EXIT...                                       REG          823     A     
 REG                SA3    B3                                                              REG          824     A     
 REG                SX2    B2          REGISTER TYPE TAG IS IN                             REG          825     A     
 REG                SX3    X3          REGISTER TYPE WANTED                                REG          826     A     
 REG                AX2    3           ORDINAL INTO TABLE                                  REG          827     A     
 REG                MX0    -16         INSTRUCTION MASK                                    REG          828     A     
 REG                AX3    3                                                               REG          829     A     
 REG                SA2    X2+CRTTAB   GET INSTRUCTION TABLE ENTRY                         REG          830     A     
 REG                LX3    4           16*TYPE WANTED                                      REG          831     A     
 REG                SB7    X3          SHIFT COUNT                                         REG          832     A     
 REG                AX2    B7,X2       SHIFT TO APPROPRIATE INSTRUCTION                    REG          833     A     
 REG                BX7    -X0*X2                                                          REG          834     A     
 REG                LX7    60-16                                                           REG          835     A     
 REG                AX7    60-13       SIGN EXTEND                                         REG          836     A     
 REG                SB7    X7          INSTRUCTION TO B7                                   REG          837     A     
 REG                PL     X7,EXIT.    IF NOT TYPE MATCH - EXIT                            REG          838     A     
 REG                =B7    0           FLAG TYPE MATCH                                     REG          839     A     
 REG                BX7    -X7                                                             REG          840     A     
 REG                EQ     EXIT.                                                           REG          841     A     
 REG       STINS    SPACE  4,8                                                             REG          842     A     
 REG      **        CWI -  COMPILE WRITE OF INTERMEDIATE.                                  REG          843     A     
 REG      *                                                                                REG          844     A     
 REG      *         CALLED TO STORE TO TEMP CELL AN INTERMEDIATE THAT IS BEING             REG          845     A     
 REG      *         CLOBBERED AND HAS AT LEAST ONE REMAINING USE.                          REG          846     A     
 REG      *                                                                                REG          847     A     
 REG      *         ENTRY  (B2) = 0TR.TO PROCESS.                                          REG          848     A     
 REG      *                (X5) = TAG TO PROCESS.                                          REG          849     A     
 REG      *                                                                                REG          850     A     
 REG      *         EXIT   (B2) = REGISTER USED. (0TR)                                     REG          851     A     
 REG      *                (X6) = TEMPORARY TAG. (18/T-TAG,24/0,18/MODE)                   REG          852     A     
 REG      *                                                                                REG          853     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1394    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *                (SCR, SCR+1)                                                    REG          854     A     
 REG      *                                                                                REG          855     A     
 REG      *         CALLS  GNT,ASR,WCODE,CLI                                               REG          856     A     
 REG                                                                                       REG          857     A     
 REG                                                                                       REG          858     A     
 REG       CWI      SUBR               ENTRY/EXIT...                                       REG          859     A     
 REG                MX6    0                                                               REG          860     A     
 REG                BX1    X5                                                              REG          861     A     
 REG                SA6    B2+REGFILE  CLEAR REGISTER FILE FOR INTER. BEING STORED         REG          862     A     
 REG                RJ     GNT                                                             REG          863     A     
 REG                SX5    B2-R.X0+RGFILE                                                  REG          864     A     
 REG                SB7    B2-R.X6+RGFILE                                                  REG          865     A     
 REG                PL     B7,CWI20    IF IN STORE REGISTER                                REG          866     A     
 REG                SA6    SCR         SAVE TAG                                            REG          867     A     
 REG                BX7    X5                                                              REG          868     A     
 REG                =A7    A6+1        SAVE REG                                            REG          869     A     
 REG                RJ     ASR                                                             REG          870     A     
 REG                SA3    SCR+1       REGISTER =00L                                       REG          871     A     
 REG                IX0    X3+X6       =RL                                                 REG          872     A     
 REG                SX7    X0+XMITS3                                                       REG          873     A     
 REG                BX5    X6                                                              REG          874     A     
 REG                LX7    P.LI15+3                                                        REG          875     A     
 REG                WCODE  X7          COMPILE *XMIT* TO *R*                               REG          876     A     
 REG                SA1    SCR         RELOAD TAG                                          REG          877     A     
 REG                AX5    3           =00L  (L-R  = R)                                    REG          878     A     
 REG                BX6    X1                                                              REG          879     A     
 REG                                                                                       REG          880     A     
 REG      *         (X5) = REGISTER INTERMEDIATE IS IN = 00R                               REG          881     A     
 REG      *         (X6) = TEMP TAG - 18/TAG,24/0,15/0,3/MODE                              REG          882     A     
 REG      *         (B6) _ INTERMEDIATE                                                    REG          883     A     
 REG                                                                                       REG          884     A     
 REG       CWI20    BX1    X6                                                              REG          885     A     
 REG                SB2    X5+R.X0-RGFILE                                                  REG          886          I
          -FCC2282
 REG                BX6    X5                                                              REG          887     A     
 REG                LX6    3                                                               REG          888     A     
 REG                BX5    X1                                                              REG          889          I
          -FCC2282
 REG                RJ     CLI          COMPILE LOAD INSTRUCTION                           REG          890          I
          -FCC2282
 REG                SB5    X5+R.X0-RGFILE                                                  FCC2282        4     A     
 REG                BX5    X1                                                              FCC2282        5     A     
 REG                SX7    X6+SA=BKS3                                                      FCC2282        6     A     
 REG                MX0    -L.2BIAS                                                        FCC2282        7     A     
 REG                LX0    P.2BIAS                                                         FCC2282        8     A     
 REG                BX3    -X0*X1      BIAS                                                FCC2282        9     A     
 REG                LX3    P.LBIAS-P.2BIAS                                                 FCC2282       10     A     
 REG                MX0    -L.2TAG                                                         FCC2282       11     A     
 REG                LX0    P.2TAG                                                          FCC2282       12     A     
 REG                BX1    -X0*X1      TAG                                                 FCC2282       13     A     
 REG                LX1    P.LTAG-P.2TAG                                                   FCC2282       14     A     
 REG                LX7    P.LI15+3                                                        FCC2282       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1395    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                BX0    X3+X7                                                           FCC2282       16     A     
 REG                BX7    X0+X1                                                           FCC2282       17     A     
 REG                WCODE  X7                                                              FCC2282       18     A     
 REG                SB2    B5                                                              FCC2282       19     A     
 REG                BX6    X5                                                              REG          891     A     
 REG                EQ     EXIT.                                                           REG          892     A     
 REG       DIT      SPACE  4,8                                                             REG          893     A     
 REG      **        DIT -  DEFINE INTERMEDIATE RESULTS.                                    REG          894     A     
 REG      *                                                                                REG          895     A     
 REG      *         ENTRY  (B2) = REGISTER FOR INTERMEDIATE.                               REG          896     A     
 REG      *                (B4) = CURRENT PASS 1 ENTRY.                                    REG          897     A     
 REG      *                (X5) = SPECIAL MODE BITS FOR INTERMEDIATE.                      REG          898     A     
 REG      *                       IE. ARY, OPVAL ETC.                                      REG          899     A     
 REG      *                                                                                REG          900     A     
 REG      *         EXIT   (B2) = 0TR, FOR INTERMEDIATE.                                   REG          901     A     
 REG      *                (X6) = 0R0, FOR INTERMEDIATE.                                   REG          902     A     
 REG      *                INTERMEDIATE TAG PUT IN REGISTER FILE.                          REG          903     A     
 REG      *                                                                                REG          904     A     
 REG      *         USES   A1,A2,A3,A5,A6,A7  X0  B2,B3,B5,B6,B7                           REG          905     A     
 REG      *                                                                                REG          906     A     
 REG      *         CALLS  SST                                                             REG          907     A     
 REG                                                                                       REG          908     A     
 REG       DIT      SUBR               ENTRY/EXIT...                                       REG          909     A     
 REG                =A1    B4+OR.OPR   CURRENT OPERATOR.                                   REG          910     A     
 REG                BX2    X1                                                              REG          911     A     
 REG                MX0    -L.DMOD                                                         REG          912     A     
 REG                SA3    TT.PAR      FWA                                                 REG          913     A     
 REG                LX0    P.DMOD                                                          REG          914     A     
 REG                MX7    -L.RUSE                                                         REG          915     A     
 REG                BX0    -X0*X1      RESULTANT MODE.                                     REG          916     A     
 REG                AX2    P.MODC                                                          REG          917     A     
 REG                SB5    X3          FWA                                                 REG          918     A     
 REG                BX6    -X7*X2      USE COUNT                                           REG          919     A     
 REG                                                                                       REG          920     A     
 REG      **        CONSTRUCT INTERMEDIATE.                                                REG          921     A     
 REG                                                                                       REG          922     A     
 REG                SX3    B4-B5       ORDINAL                                             REG          923     A     
 REG                SX7    X5+M.INTR                                                       REG          924     A     
 REG                LX3    P.TAG                                                           REG          925     A     
 REG                IX5    X3+X0       ORDINAL + MODE                                      REG          926     A     
 REG                MX2    -3                                                              REG          927     A     
 REG                IX5    X5+X6                                                           REG          928     A     
 REG                BX5    X7+X5                                                           REG          929     A     
 REG                SX3    B2          =0TR                                                REG          930     A     
 REG                BX6    -X2*X3      =00R                                                REG          931     A     
 REG                LX6    3                                                               REG          932     A     
 REG                RJ     SST         SET STATUS OF TAG                                   REG          933     A     
 REG                EQ     EXIT.                                                           REG          934     A     
 REG                SPACE  4,8                                                             REG          935     A     
 REG      **        GLN -  GET LEVEL NUMBER OF TAG                                         REG          936     A     
 REG      *                                                                                REG          937     A     
 REG      *         ENTRY  (X5) = TAG IN *PASS 2* TAG FIELD                                REG          938     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1396    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *                                                                                REG          939     A     
 REG      *         EXIT   (X1) = LEVEL NUMBER OF TAG                                      REG          940     A     
 REG      *                (X5) = PRESERVED                                                REG          941     A     
 REG      *                                                                                REG          942     A     
 REG      *         USES   A1,A3  X0  B5,B7                                                REG          943     A     
 REG                                                                                       REG          944     A     
 REG                                                                                       REG          945     A     
 REG       GLN      SUBR   0                                                               REG          946     A     
 REG                                                                                       REG          947     A     
 REG      *         THE TAG WORD MAY NOW BE IN TT.USE.  WE LOOK FOR IT THERE FIRST         REG          948     A     
 REG      *         AND, IF NOT FOUND, WE GO TO TS.SYM.                                    REG          949     A     
 REG                                                                                       REG          950     A     
 REG                SA1    =XTT.USE                                                        REG          951     A     
 REG                SA3    =XTT=USE                                                        REG          952     A     
 REG                =B5    X1          (B5) = FWA TT.USE                                   REG          953     A     
 REG                =B7    X3                                                              REG          954     A     
 REG                =B7    B7-1                                                            REG          955     A     
 REG                MX0    L.TAG                                                           REG          956     A     
 REG                LX5    -P.2TAG-L.TAG                                                   REG          957     A     
 REG                BX3    X0*X5       (X3) = TAG ONLY                                     REG          958     A     
 REG                LX5    P.2TAG+L.TAG                                                    REG          959     A     
 REG                LT     B7,GLN6     IF NULL USE TABLE, AVOID                            REG          960     A     
 REG                                                                                       REG          961     A     
 REG      GLN2      SA1    B5+B7       FETCH TT.USE ENTRY                                  REG          962     A     
 REG                LX1    -P.TAG-L.TAG                                                    REG          963     A     
 REG                BX0    X0*X1       (X0) = TAG ONLY                                     REG          964     A     
 REG                IX0    X0-X3                                                           REG          965     A     
 REG                ZR     X0,GLN8     IF TAG FOUND                                        REG          966     A     
 REG                MX0    L.TAG       RESTORE X0                                          REG          967     A     
 REG                =B7    B7-1                                                            REG          968     A     
 REG                PL     B7,GLN2     IF NOT END OF TABLE, LOOP                           REG          969     A     
 REG                                                                                       REG          970     A     
 REG       GLN6     LX3    -P.TAG                                                          REG          971     A     
 REG                MX0    -L.PWF                                                          REG          972     A     
 REG                BX3    -X0*X3      (X3) = TS.SYM ORDINAL                               REG          973     A     
 REG                SA1    TS.SYM                                                          REG          974     A     
 REG                =B7    X3                                                              REG          975     A     
 REG                SA1    X1+B7       FETCH TS.SYM ENTRY                                  REG          976     A     
 REG       GLN8     IFBIT  X1,-LEV,GLN9      IF NOT *LEVEL* TAG                            REG          977     A     
 REG                MX0    -L.LEVN                                                         REG          978     A     
 REG                LX1    P.LEV+1-P.LEVN                                                  REG          979     A     
 REG                BX1    -X0*X1      (X1) = LEVEL NUMBER                                 REG          980     A     
 REG                EQ     GLNX        EXIT..                                              REG          981     A     
 REG                                                                                       REG          982     A     
 REG       GLN9     SX1    1                                                               REG          983     A     
 REG                EQ     GLNX        EXIT..                                              REG          984     A     
 REG                SPACE  4,8                                                             REG          985     A     
 REG       GNR      SPACE  4,8                                                             REG          986     A     
 REG      **        GNR -  GET NEXT REGISTER.                                              REG          987     A     
 REG      *                                                                                REG          988     A     
 REG      *         *GNR* IS CALLED WHEN A REGISTER IS NEEDED FOR A LOAD/SET               REG          989     A     
 REG      *         INSTRUCTION.  IT WILL ALWAYS ASSIGN A REGISTER NOTING                  REG          990     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1397    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG      *         WHETHER A *HARD* REGISTER AND REGISTER TYPES AGREE.                    REG          991     A     
 REG      *                                                                                REG          992     A     
 REG      *         ENTRY  (B3) = RG=XXXX REGISTER TYPE                                    REG          993     A     
 REG      *                (X5) = TAG.                                                     REG          994     A     
 REG      *                                                                                REG          995     A     
 REG      *         EXIT   (B2) = 0TR, FOR REGISTER ASSIGNED.                              REG          996     A     
 REG      *                (X6) = 0R0, FOR (B2)                                            REG          997     A     
 REG      *                                                                                REG          998     A     
 REG      *         USES   A1,A2,A3,A5  X0  B2,B3,B6,B7                                    REG          999     A     
 REG      *                                                                                REG         1000     A     
 REG      *         CALLS  SFR,RUT                                                         REG         1001     A     
 REG      *                (SCR,SCR+1)                                                     REG         1002     A     
 REG                                                                                       REG         1003     A     
 REG                                                                                       REG         1004     A     
 REG       GNR      SUBR               ENTRY/EXIT...                                       REG         1005     A     
 REG                RJ     SFR         FIND AVAILABLE REGISTER                             REG         1006     A     
 REG                ZR     X7,GNR5     IF REGISTER FREE                                    REG         1007     A     
 REG                SA2    RGX                                                             REG         1008     A     
 REG                SX7    B3                                                              REG         1009     A     
 REG                ZR     X2,GNR2     IF NON-INTERMEDIATE NOT AVAILABLE                   REG         1010     A     
 REG                SB2    X2                                                              REG         1011     A     
 REG       GNR2     SA7    GNRA                                                            REG         1012     A     
 REG                RJ     RUT         CLEAR REGISTER                                      REG         1013     A     
 REG                SA2    GNRA                                                            REG         1014     A     
 REG                SB3    X2                                                              REG         1015     A     
 REG       GNR5     SB7    RG=LOAD                                                         REG         1016     A     
 REG                SX0    B3-B7                                                           REG         1017     A     
 REG                NZ     X0,EXIT.    IF NOT *A* REGISTER LOAD                            REG         1018     A     
 REG                SB2    B2-REG.X+REG.A                                                  REG         1019     A     
 REG                SA1    B2+REGFILE                                                      REG         1020     A     
 REG                MX0    -L.RUSE                                                         REG         1021     A     
 REG                BX1    -X0*X1      USE COUNT ONLY                                      REG         1022     A     
 REG                ZR     X1,EXIT.    IF *A* REGISTER IS FREE                             REG         1023     A     
 REG                RJ     RUT         CLEAR *A* REGISTER                                  REG         1024     A     
 REG                EQ     EXIT.                                                           REG         1025     A     
 REG                                                                                       REG         1026     A     
 REG       GNRA     DATA   0                                                               REG         1027     A     
 REG       GNT      SPACE  4,20                                                            REG         1028     A     
 REG      **        GNT - GENERATE TEMPORARY TAG.                                          REG         1029     A     
 REG      *                                                                                REG         1030     A     
 REG      *         ENTRY  (X1) = INTERMEDIATE TO PROCESS                                  REG         1031     A     
 REG      *                (B2) = 0TR OF REGISTER INTERMEDIATE IS IN                       REG         1032     A     
 REG      *                                                                                REG         1033     A     
 REG      *         EXIT   (B2) = PRESERVED                                                REG         1034     A     
 REG      *                (X6) = TEMP.TAG + ORDINAL OF INTR + INTR BIT + USE CT           REG         1035     A     
 REG      *                                                                                REG         1036     A     
 REG      *         USES   A1,A2,A3,A6,A7 X0 B3,B5.                                        REG         1037     A     
 REG      *                                                                                REG         1038     A     
 REG      *         CALLS  NONE.                                                           REG         1039     A     
 REG                                                                                       REG         1040     A     
 REG                                                                                       REG         1041     A     
 REG       GNT      SUBR               ENTRY/EXIT...                                       REG         1042     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1398    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                MX0    -1                                                              REG         1043     A     
 REG                SA3    TT.PAR                                                          REG         1044     A     
 REG                AX1    P.TYPE                                                          REG         1045     A     
 REG                SB3    X3          START OF PARSED FILE                                REG         1046     A     
 REG                BX6    -X0*X1      TAG TYPE (0 = UPPER HALF, 1 = ;OWER HALF)           REG         1047     A     
 REG                SA2    TG.TEM                                                          REG         1048     A     
 REG                MX0    -L.DMOD                                                         REG         1049     A     
 REG                SB7    X6                                                              REG         1050     A     
 REG                AX1    P.DMOD-P.TYPE                                                   REG         1051     A     
 REG                =X7    X2+1          ADVANCE TG.TEM                                    REG         1052     A     
 REG                BX6    -X0*X1        MODE OF INTERMEDIATE                              REG         1053     A     
 REG                AX1    P.JPAD-P.DMOD                                                   REG         1054     A     
 REG                MX0    L.2TAG+L.2BIAS                                                  REG         1055     A     
 REG                SA3    X1+B3         LOAD INTERMEDIATE CELL                            REG         1056     A     
 REG                LX2    P.2TAG                                                          REG         1057     A     
 REG                BX1    X3                                                              REG         1058     A     
 REG                IFBIT  X6,LONG,GNT4                                                    REG         1059     A     
 REG                ZR     B7,GNT5                                                         REG         1060     A     
 REG       GNT4     SX7    X7+1        ADVANCE (TG.TEM) TWICE IF DOUBLE-WORD               REG         1061     A     
 REG                                                                                       REG         1062     A     
 REG       GNT5     AX1    P.TGB                                                           REG         1063     A     
 REG                SB3    X1-C.TEM/1S13                                                   REG         1064     A     
 REG                MX1    -1                                                              REG         1065     A     
 REG                SB7    B7+P.2STAT                                                      REG         1066     A     
 REG                ZR     B3,GNT10      IF TEMPORARY TAG ALREADY DEFINED                  REG         1067     A     
 REG                BX3    -X0*X3                                                          REG         1068     A     
 REG                SA7    A2            UPDATE TG.TEM                                     REG         1069     A     
 REG                BX3    X2+X3                                                           REG         1070     A     
 REG                                                                                       REG         1071     A     
 REG       GNT10    MX0    L.2TAG+L.2BIAS+L.2FPNO                                          REG         1072     A     
 REG                BX6    X0*X3                                                           REG         1073     A     
 REG                LX2    X1,B7                                                           REG         1074     A     
 REG                SX1    B7-P.2STAT                                                      REG         1075     A     
 REG                BX7    X2*X3                                                           REG         1076     A     
 REG                LX1    P.2BIAS                                                         REG         1077     A     
 REG                SA7    A3            CLEAR STATUS OF TAG                               REG         1078     A     
 REG                BX6    X1+X6                                                           REG         1079     A     
 REG                EQ     EXIT.                                                           REG         1080     A     
 REG       GST      SPACE  4                                                               REG         1081     A     
 REG      **        GPT -  GET POINTER TAG                                                 REG         1082     A     
 REG      *                                                                                REG         1083     A     
 REG      *         ENTRY  (X5) = ECS/LCM NAME TAG                                         REG         1084     A     
 REG      *                                                                                REG         1085     A     
 REG      *         EXIT   (X2) = POINTER-WORD TAG                                         REG         1086     A     
 REG      *                (X5) = PRESERVED                                                REG         1087     A     
 REG      *                                                                                REG         1088     A     
 REG      *         USES   A2,A3  B7                                                       REG         1089     A     
 REG                                                                                       REG         1090     A     
 REG       GPT      SUBR   0                                                               REG         1091     A     
 REG                SA3    =XTA.NAM                                                        REG         1092     A     
 REG                SB7    X3                (B7) = FWA ADDRESS TABLE                      REG         1093     A     
 REG                MX2    -L.PWF                                                          REG         1094     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1399    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                LX5    -P.2TAG                                                         REG         1095     A     
 REG                BX2    -X2*X5      (X2) = TAG ORDINAL                                  REG         1096     A     
 REG                LX5    P.2TAG            RESTORE X5                                    REG         1097     A     
 REG                SA3    =XTS.BLK                                                        REG         1098     A     
 REG                AX2    1           (X2) = ADDRESS TABLE ORDINAL                        REG         1099     A     
 REG                SA2    X2+B7       (X2) = ADDRESS TABLE ENTRY                          REG         1100     A     
 REG                SB7    X3+B1             (B7) = FWA+1 BLOCK TABLE                      REG         1101     A     
 REG                MX3    -L.BLOCK                                                        REG         1102     A     
 REG                AX2    P.BLOCK                                                         REG         1103     A     
 REG                BX2    -X3*X2      (X2) = BLOCK NUMBER                                 REG         1104     A     
 REG                SA2    X2+B7       (X2) = BLOCK TABLE ENTRY                            REG         1105     A     
 REG                MX3    L.CTAG                                                          REG         1106     A     
 REG                BX2    X3*X2       (X2) = POINTER-WORD TAG                             REG         1107     A     
 REG                EQ     GPTX              EXIT..                                        REG         1108     A     
 REG                SPACE  4,8                                                             REG         1109     A     
 REG      **        GST - GET STATUS OF TAG.                                               REG         1110     A     
 REG      *                                                                                REG         1111     A     
 REG      *         ENTRY  (X5) = TAG.                                                     REG         1112     A     
 REG      *                (B2) = 0 (STATUS OF UPPER HALF)                                 REG         1113     A     
 REG      *                       1 (STATUS OF LOWER HALF)                                 REG         1114     A     
 REG      *                (B3) = RG=XXXX REGISTER TYPE                                    REG         1115     A     
 REG      *                (B7) = 0 STATUS OF TAG ONLY.                                    REG         1116     A     
 REG      *                     " 0 FULL STATUS. IF TAG IS IN A REGISTER, CRT IS           REG         1117     A     
 REG      *                         CALLED TO CHECK IF REGISTER TYPES MATCH.               REG         1118     A     
 REG      *                                                                                REG         1119     A     
 REG      *         EXIT.  (B2) = 0 (TAG NOT IN REGISTER)                                  REG         1120     A     
 REG      *                     " 0 (TAG IN REGISTER - 0TR OF REGISTER)                    REG         1121     A     
 REG      *                (A1) _ ADDRESS OF TAG                                           REG         1122     A     
 REG      *                (X1) = (ADDRESS)                                                REG         1123     A     
 REG      *                (X5) PRESERVED)                                                 REG         1124     A     
 REG      *                (X6) = 0R0 - IF TAG IN REGISTER.                                FCC1208       14     A     
 REG      *                (GSTC) = LOCATION OF STATUS WORD --                             FCC1208       15     A     
 REG      **T  GSTC 42/ TABLE, 18/ ORDINAL                                                 FCC1208       16     A     
 REG      *                                                                                REG         1125     A     
 REG      *         USES   A1,A2  X0,X3,X6  B2,B3,B7                                       REG         1126     A     
 REG      *                UNDER NO CONDITION CAN *GST* DESTROY *B5* OR *B6*.              REG         1127     A     
 REG      *                                                                                REG         1128     A     
 REG      *         CALLS  CRT                                                             REG         1129     A     
 REG                                                                                       REG         1130     A     
 REG                                                                                       REG         1131     A     
 REG       GSTX     SX6    B2                                                              REG         1132     A     
 REG                MX0    -3                                                              REG         1133     A     
 REG                BX6    -X0*X6                                                          REG         1134     A     
 REG                LX6    3           =0R0                                                REG         1135     A     
 REG       GST      SUBR   -           ENTRY/EXIT...                                       REG         1136     A     
 REG                SX7    B7                                                              REG         1137     A     
 REG                SA7    GSTA                                                            REG         1138     A     
 REG                                                                                       REG         1139          I
          -FCC1208
 REG      **        SINCE B6 WILL HOLD A POINTER TO A TAG IN SOME TABLE UPON               REG         1140          I
          -FCC1208
 REG      *         EXIT FROM *GST*, AND CODE GENERATION MAY CAUSE TABLES TO               REG         1141          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1400    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
          -FCC1208
 REG      *         CRASH BEFORE THIS TAG IS USED, CAUSE ENOUGH EXTRA WORDS TO             REG         1142          I
          -FCC1208
 REG      *         BE ALLOCATED TO TT.LF NOW IN ORDER TO INSURE THAT B6 DOES              REG         1143          I
          -FCC1208
 REG      *         NOT LOSE MEANING.                                                      REG         1144          I
          -FCC1208
 REG                                                                                       REG         1145          I
          -FCC1208
 REG                ALLOC  =XTT.LF,4                                                       REG         1146          I
          -FCC1208
 REG                SA2    =XTT=LF                                                         REG         1147          I
          -FCC1208
 REG                SX6    X2-4                                                            REG         1148          I
          -FCC1208
 REG                SA6    A2          RESTORE PREVIOUS SIZE                               REG         1149          I
          -FCC1208
 REG                MX0    -1                                                              REG         1150     A     
 REG                BX1    X5                                                              REG         1151     A     
 REG                AX1    60-4                                                            REG         1152     A     
 REG                BX3    -X0*X1      EXTRACT 4 BIT                                       REG         1153     A     
 REG                AX1    1           UPPER 3 TAG BITS ONLY                               REG         1154     A     
 REG                IX6    X1+X3       TABLE ORDINAL                                       REG         1155     A     
 REG                                                                                       REG         1156     A     
 REG      *         (X6) = ORDINAL INTO *GST.TBL* DEFINED FROM THE *UPPER *4* BITS         REG         1157     A     
 REG      *                OF THE TAG.                                                     REG         1158     A     
 REG                                                                                       REG         1159     A     
 REG       GST5     SA2    X6+GST.TBL                                                      REG         1160     A     
 REG                SA3    B2+GST.STAT                                                     REG         1161     A     
 REG                LX6    X2                                                              REG         1162     A     
 REG                SA1    X2          LOAD BASE TABLE POINTER WORD                        REG         1163     A     
 REG                AX6    P.GSTSFT                                                        REG         1164     A     
 REG                SB7    X1          FWA OF TABLE                                        REG         1165     A     
 REG                AX2    P.GSTTAG                                                        REG         1166     A     
 REG                SB2    X6          SHIFT COUNT FOR ORDINAL                             REG         1167     A     
 REG                MX0    60-15                                                           REG         1168     A     
 REG                AX7    X5,B2                                                           REG         1169     A     
 REG                IX6    X7-X2       TABLE ORDINAL                                       REG         1170     A     
 REG                SB2    B0          INDICATE NOT IN REGISTER                            REG         1171     A     
 REG                BX6    -X0*X6                                                          REG         1172     A     
 REG                SX7    A1                                                              FCC1208       17     A     
 REG                LX7    18                                                              FCC1208       18     A     
 REG                IX7    X6+X7                                                           FCC1208       19     A     
 REG                SA1    X6+B7                                                           REG         1173     A     
 REG                MX0    -L.UREG                                                         REG         1174     A     
 REG                SB7    X3          SHIFT COUNT TO CHECK STATUS                         REG         1175     A     
 REG                LX2    X1,B7                                                           REG         1176     A     
 REG                SA7    GSTC        SAVE LOCATION OF STATUS WORD                        FCC1208       20     A     
 REG                PL     X2,EXIT.    IF NOT IN REGISTER                                  REG         1177     A     
 REG                AX3    18                                                              REG         1178     A     
 REG                SB7    X3                                                              REG         1179     A     
 REG                AX7    X1,B7                                                           REG         1180     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1401    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                BX6    -X0*X7      REGISTER (0TR)                                      REG         1181     A     
 REG                SB2    X6                                                              REG         1182     A     
 REG                SA2    B2+REGFILE                                                      REG         1183     A     
 REG                BX6    X2-X5                                                           REG         1184     A     
 REG                AX6    L.RUSE                                                          REG         1185     A     
 REG                IFBIT  X2,-INTR,GST6     IF NOT INTERMEDIATE                           REG         1186     A     
 REG                AX6    P.2TAG-L.RUSE                                                   REG         1187     A     
 REG       GST6     NZ     X6,GST7     IF NOT SAME TAG                                     REG         1188     A     
 REG                SX2    B2                                                              REG         1189     A     
 REG                =X0    REG.A-RGFILE                                                    REG         1190     A     
 REG                BX2    X0*X2                                                           REG         1191     A     
 REG                ZR     X2,GST8     IF NOT *A* REGISTER                                 REG         1192     A     
 REG                SA2    A2+REG.X-REG.A                                                  REG         1193     A     
 REG                BX6    X2-X5                                                           REG         1194     A     
 REG                AX6    L.RUSE                                                          REG         1195     A     
 REG                ZR     X6,GST8     IF SAME TAG                                         REG         1196     A     
 REG       GST7     SB2    B0          INDICATE NOT IN REGISTER                            REG         1197     A     
 REG                EQ     EXIT.                                                           REG         1198     A     
 REG                                                                                       REG         1199     A     
 REG       GST8     SA2    GSTA                                                            REG         1200     A     
 REG                ZR     X2,GSTX     IF FULL STATUS NOT REQUESTED                        REG         1201     A     
 REG                RJ     CRT         CHECK REGISTER TYPES                                REG         1202     A     
 REG                NZ     B7,GST10    IF TYPES DO NOT MATCH                               REG         1203     A     
 REG                SA2    RREG                                                            REG         1204     A     
 REG                MX3    -3                                                              REG         1205     A     
 REG                SX0    B2                                                              REG         1206     A     
 REG                MI     X2,GSTX     IF NO HARD REGISTER                                 REG         1207     A     
 REG                BX6    X0-X2                                                           REG         1208     A     
 REG                BX0    -X3*X6                                                          REG         1209     A     
 REG                NZ     X0,GST10    IF NOT IN CORRECT REGISTER                          REG         1210     A     
 REG                BX6    -X2         CLEAR HARD REGISTER ASSIGNMENT                      REG         1211     A     
 REG                SA6    A2                                                              REG         1212     A     
 REG                EQ     GSTX                                                            REG         1213     A     
 REG                                                                                       REG         1214     A     
 REG      *         TAG IS NOT IN CORRECT REGISTER.                                        REG         1215     A     
 REG      *         (B2) = REGISTER (0TR)                                                  REG         1216     A     
 REG      *         (X7) = INSTRUCTION TO USE.                                             REG         1217     A     
 REG                                                                                       REG         1218     A     
 REG       GST10    SX0    B2-R.X6+RGFILE                                                  REG         1219     A     
 REG                MI     X0,GST11    IF NOT STORE REGISTER                               REG         1220     A     
 REG                                                                                       REG         1221     A     
 REG      **        TAG IS CURRENTLY IN A STORE REGISTER.  THE REGISTER TO WHICH           REG         1222     A     
 REG      *         IT WILL BE TRANSMITTED MAY NOT BE FREE AND MAY THEREFORE               REG         1223     A     
 REG      *         REQUIRE A STORE REGISTER TO CONVEY ITS CONTENTS TO MEMORY.             REG         1224     A     
 REG      *         WE LOCK THE STORE REGISTER NOW,REMEMBER IT, AND UNLOCK ITS             REG         1225     A     
 REG      *         REGFILE ENTRY WHEN IT IS SAFE TO DO SO.                                REG         1226     A     
 REG                                                                                       REG         1227     A     
 REG                SX6    B2                                                              REG         1228     A     
 REG                SA6    STRGLK      REGISTER TO CLEAR                                   REG         1229     A     
 REG                SA2    B2+REGFILE                                                      REG         1230     A     
 REG                SX0    RLOCK                                                           REG         1231     A     
 REG                BX6    X0+X2       LOCK ON                                             REG         1232     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1402    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SA6    A2                                                              REG         1233     A     
 REG                EQ     GST12                                                           REG         1234     A     
 REG                                                                                       REG         1235     A     
 REG       GST11    =X0    REG.A-RGFILE                                                    REG         1236     A     
 REG                SX2    B2                                                              REG         1237     A     
 REG                BX6    0                                                               REG         1238     A     
 REG                LX3    X7                                                              REG         1239     A     
 REG                BX2    X0*X2                                                           REG         1240     A     
 REG                SA6    B2+REGFILE                                                      REG         1241     A     
 REG                ZR     X2,GST12    IF TAG NOT IN *A* REGISTER                          REG         1242     A     
 REG                SA2    A6+REG.X-REG.A   GET ASSOCIATE *X* REG                          REG         1243     A     
 REG                NO                                                                     REG         1244     A     
 REG                BX6    X2-X5                                                           REG         1245     A     
 REG                AX6    L.RUSE                                                          REG         1246     A     
 REG                NZ     X6,GST12    IF NOT SAME TAGE IN *X* REGISTER                    REG         1247     A     
 REG                SA6    A2          CLEAR ASSIGNMENT                                    REG         1248     A     
 REG       GST12    AX3    9                                                               REG         1249     A     
 REG                SB3    RG=LODX                                                         REG         1250     A     
 REG                MX0    -2                                                              REG         1251     A     
 REG                SB7    XMITS3                                                          REG         1252     A     
 REG                SB7    -B7                                                             REG         1253     A     
 REG                SX6    X7+B7                                                           REG         1254     A     
 REG                SB7    B1                                                              REG         1255     A     
 REG                BX2    -X0*X3                                                          REG         1256     A     
 REG                ZR     X6,GSTX     IF XMIT                                             REG         1257     A     
 REG                SA2    X2+GSTA     GET TYPE OF LOAD TO USE                             REG         1258     A     
 REG                SB3    X2                                                              REG         1259     A     
 REG                EQ     GSTX                                                            REG         1260     A     
 REG                                                                                       REG         1261     A     
 REG       GSTA     BSS    1                                                               REG         1262     A     
 REG                VFD    42/0,18/RG=LOAD                                                 REG         1263     A     
 REG                VFD    42/0,18/RG=BADR                                                 REG         1264     A     
 REG                VFD    42/0,18/RG=LODX                                                 REG         1265     A     
 REG                ENTRY  GSTC                                                            FCC1208       21     A     
 REG       GSTC     CON    "BLOWUP"    LOCATION OF STATUS WORD                             FCC1208       22     A     
 REG                                                                                       REG         1266     A     
 REG       GST.STAT BSS    0                                                               REG         1267     A     
 REG                VFD    24/0,18/P.UREG,18/59-P.USTAT                                    REG         1268     A     
 REG                VFD    24/0,18/P.LREG,18/59-P.LSTAT                                    REG         1269     A     
 REG       TBLOOK   SPACE  4,8                                                             REG         1270     A     
 REG      **        TBLOOK - SET UP TABLE FOR TAG LOOK UP.                                 REG         1271     A     
 REG      *                                                                                REG         1272     A     
 REG      *         TAG   = BIAS TO SUBSTRACT FROM TAG TO GET ORDINAL RELATIVE             REG         1273     A     
 REG      *                TO TABLE.                                                       REG         1274     A     
 REG      *         SHFTCNT= SHIFT COUNT TO USE TO EXTRACT TAG.                            REG         1275     A     
 REG      *         TBLADR = ADDRESS OF *TABLE* POINTER WORD.                              REG         1276     A     
 REG                                                                                       REG         1277     A     
 REG       GSTTBL   DEFINE 0,18        TABLE POINTER                                       REG         1278     A     
 REG       GSTSFT   DEFINE 18,18       SHIFT COUNT FOR TABLE ORDINAL                       REG         1279     A     
 REG       GSTTAG   DEFINE 36,18       BIAS FOR TAG ORDINAL                                REG         1280     A     
 REG                                                                                       REG         1281     A     
 REG                MACRO  TBLOOK,TAG,BIAS,SHFTCNT,TBLADR                                  REG         1282     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1403    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG       TAG      VFD    6/0,L.GSTTAG/BIAS,L.GSTSFT/SHFTCNT,L.GSTTBL/TBLADR              REG         1283     A     
 REG       TBLOOK   ENDM                                                                   REG         1284     A     
 REG                                                                                       REG         1285     A     
 REG                                                                                       REG         1286     A     
 REG       GST.TBL  BSS    0           START OF TABLE.                                     REG         1287     A     
 REG       GST.INTR TBLOOK 0,P.TAG,TT.PAR                                                  REG         1288     A     
 REG       GST.SCR  TBLOOK C.SCR,P.2TAG,TT.SCR                                             REG         1289     A     
 REG       GST.SYM  TBLOOK C.SYM,P.TAG,TS.SYM                                              REG         1290     A     
 REG                                                                                       REG         1291     A     
 REG      .TEST     IFNE   TEST                                                            REG         1292     A     
 REG       GST..    BSS    0                                                               REG         1293     A     
 REG                DUP    2,1         DUMMYS IN CASE SOMEONE BLOWS IT.                    REG         1294     A     
 REG                TBLOOK 0,0,"BLOWUP"                                                    REG         1295     A     
 REG      .TEST     ENDIF                                                                  REG         1296     A     
 REG       LFP      SPACE  4,8                                                             REG         1297     A     
 REG      **        LFP -  LOAD FORMAL PARAMETER ADDRESS                                   REG         1298     A     
 REG      *         ENTRY  (X1) = TAG                                                      REG         1299     A     
 REG      *                (X2) = FORMAL PARAMETER NUMBER.                                 REG         1300     A     
 REG      *         EXIT   (B6) = (R00) *FP* LOAD REGISTER USED FOR *SAJ*                  REG         1301     A     
 REG      *                (B2) = (0TR) *FP* SET REGISTER USED FOR *SBK* OR *SXI*          REG         1302     A     
 REG      *                                                                                REG         1303     A     
 REG      *         OUTPUTS TO INTERMEDIATE FILE                                           REG         1304     A     
 REG      *                SAJ    A0+FP                                                    REG         1305     A     
 REG      *         AND EITHER                                                             REG         1306     A     
 REG      *                SBK    XJ+BIAS    (CM/SCM TAG)                                  REG         1307     A     
 REG      *         OR                                                                     REG         1308     A     
 REG      *                SXI    R+BIAS     (ECS/LCM TAG -- R CONTAINS SUBSCRIPT)         REG         1309     A     
 REG      *                                                                                REG         1310     A     
 REG      *         USES   A1,A2,A3  X0,X5  B2,B3,B5,B6                                    REG         1311     A     
 REG      *                                                                                REG         1312     A     
 REG      *         CALLS  SFR,RUT,WCODE,CLT,RLL,GNR,RUL                                   REG         1313     A     
 REG                                                                                       REG         1314     A     
 REG                                                                                       REG         1315     A     
 REG       LFP      SUBR               ENTRY/EXIT...                                       REG         1316     A     
 REG                SA3    ALREG                                                           REG         1317     A     
 REG                SX7    X2-1        ACTUAL ARGUMENT NUMBER                              REG         1318     A     
 REG                MX0    -3                                                              REG         1319     A     
 REG                SB7    X3-R.X6+RGFILE                                                  REG         1320     A     
 REG                BX6    -X0*X3                                                          REG         1321     A     
 REG                BX5    X1                                                              REG         1322     A     
 REG                LX6    6           =R00                                                REG         1323     A     
 REG                NG     B7,LFP4     IF *AREG NOT STORE REGISTER                         REG         1324     A     
 REG                SA7    LFPA        SAVE *FP* NO.                                       REG         1325     A     
 REG                SB3    RG=LOAD                                                         REG         1326     A     
 REG                RJ     SFR         GET A LOAD REGISTER                                 REG         1327     A     
 REG                ZR     X7,LFP2     IF *A* AVAILABLE                                    REG         1328     A     
 REG                RJ     RUT                                                             REG         1329     A     
 REG       LFP2     SA1    B2+REGFILE+REG.X-REG.A                                          REG         1330     A     
 REG                MX0    L.RUSE                                                          REG         1331     A     
 REG                BX2    -X0*X1                                                          REG         1332     A     
 REG                ZR     X2,LFP3     IF *X* REGISTER AVAILABLE                           REG         1333     A     
 REG                SB2    B2+REG.X-REG.A                                                  REG         1334     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1404    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                RJ     RUT                                                             REG         1335     A     
 REG                SB2    B2-REG.X+REG.A                                                  REG         1336     A     
 REG       LFP3     SA2    LFPA                                                            REG         1337     A     
 REG                LX6    3           =R00                                                REG         1338     A     
 REG                BX7    X2                                                              REG         1339     A     
 REG       LFP4     SX0    X6+SA=AK                                                        REG         1340     A     
 REG                NZ     X7,LFP5     IF NOT 1ST *FP*                                     REG         1341     A     
 REG                SX0    X6+SA=AB                                                        REG         1342     A     
 REG       LFP5     LX7    P.LBIAS                                                         REG         1343     A     
 REG                BX3    X6                                                              REG         1344     A     
 REG                LX0    P.LI15                                                          REG         1345     A     
 REG                IX7    X0+X7                                                           REG         1346     A     
 REG                WCODE  X7          SAI = A0+FP                                         REG         1347     A     
 REG                                                                                       REG         1348     A     
 REG      *         NOW OUTPUT LOAD OF ACTUAL ADDRESS VIA A *B* SET.                       REG         1349     A     
 REG                                                                                       REG         1350     A     
 REG                SB6    X3          SAVE ADDRESS FUNCTION REGISTER                      REG         1351     A     
 REG                RJ     CLT         CHECK FOR LCM/ECS TAG                               REG         1352     A     
 REG                NZ     X3,LFP8     IF NOT LCM OR ECS TAG                               REG         1353     A     
 REG                SX6    B6          (R00)                                               REG         1354     A     
 REG                AX6    6           (00R)                                               REG         1355     A     
 REG                SA6    FPREG       SAVE FORMAL PARAMETER REGISTER                      REG         1356     A     
 REG                SB7    X6                                                              REG         1357     A     
 REG                RJ     RLL         LOCK FORMAL PARAMETER REGISTER                      REG         1358     A     
 REG                =B3    =XRG=SET                                                        REG         1359     A     
 REG                RJ     GNR         GET NEXT SET REGISTER                               REG         1360     A     
 REG                LX6    3           (R00) SET REGISTER                                  REG         1361     A     
 REG                SA3    FPREG                                                           REG         1362     A     
 REG                SB7    X3          (00R)                                               REG         1363     A     
 REG                RJ     RUL         UNLOCK FORMAL PARAMETER REGISTER                    REG         1364     A     
 REG                SA3    =XAFREG     (0TR) ADDRESS FUNCTION REGISTER                     REG         1365     A     
 REG                BX2    X3                                                              REG         1366     A     
 REG                MX0    -3                                                              REG         1367     A     
 REG                BX2    -X0*X2      EXTRACT REGISTER                                    REG         1368     A     
 REG                LX2    3                                                               REG         1369     A     
 REG                MX0    -L.2BIAS                                                        REG         1370     A     
 REG                IX6    X6+X2                                                           REG         1371     A     
 REG                AX5    P.2BIAS                                                         REG         1372     A     
 REG                AX3    3                                                               REG         1373     A     
 REG                BX2    -X0*X5      BIAS ON TAG                                         REG         1374     A     
 REG                ZR     X3,LFP7     IF IN *B* REGISTER                                  REG         1375     A     
 REG                SX7    =XSX=XK                                                         REG         1376     A     
 REG                NZ     X2,LFP10    IF NOT *0* BIAS                                     REG         1377     A     
 REG                SX7    =XSX=XB                                                         REG         1378     A     
 REG                EQ     LFP10                                                           REG         1379     A     
 REG                                                                                       REG         1380     A     
 REG       LFP7     SX7    SX=BK                                                           REG         1381     A     
 REG                NZ     X2,LFP10    IF NOT *0* BIAS                                     REG         1382     A     
 REG                SX7    =XSX=BB                                                         REG         1383     A     
 REG                EQ     LFP10                                                           REG         1384     A     
 REG                                                                                       REG         1385     A     
 REG       LFP8     =B3    RG=BADR                                                         REG         1386     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1405    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                RJ     SFR         GET NEXT *B* REGISTER                               REG         1387     A     
 REG                LX6    3                                                               REG         1388     A     
 REG                SX3    B6                                                              REG         1389     A     
 REG                AX3    3                                                               REG         1390     A     
 REG                MX0    -L.2BIAS                                                        REG         1391     A     
 REG                IX6    X6+X3                                                           REG         1392     A     
 REG                AX5    P.2BIAS                                                         REG         1393     A     
 REG                SX7    SB=XK                                                           REG         1394     A     
 REG                BX2    -X0*X5      BIAS ON TAG                                         REG         1395     A     
 REG                NZ     X2,LFP10    IF NOT *0* BIAS                                     REG         1396     A     
 REG                SX7    SB=XB                                                           REG         1397     A     
 REG       LFP10    BX6    X6+X7                                                           REG         1398     A     
 REG                LX2    P.LBIAS                                                         REG         1399     A     
 REG                LX6    P.LI15      OP-CODE + REGISTERS                                 REG         1400     A     
 REG                IX7    X2+X6       ADD IN OP-CODE                                      REG         1401     A     
 REG                SB5    B2                                                              REG         1402     A     
 REG                WCODE  X7                                                              REG         1403     A     
 REG                SB2    B5                                                              REG         1404     A     
 REG                EQ     EXIT.                                                           REG         1405     A     
 REG                                                                                       REG         1406     A     
 REG       LFPA     DATA   0           SAVE *B2*                                           REG         1407     A     
 REG       FPREG    DATA   0           FORMAL PARAMETER REGISTER                           REG         1408     A     
 REG       LSC      SPACE  4,8                                                             REG         1409     A     
 REG      **        LSC - LOAD SHORT CONSTANT.                                             REG         1410     A     
 REG      *                                                                                REG         1411     A     
 REG      *         ENTRY  (B3) = TYPE OF LOAD.                                            REG         1412     A     
 REG      *                (B4) = PARSED FILE ADDRESS FOR CURRENT TURPLE.                  REG         1413     A     
 REG      *                (X1) = TT.SCR FORM OF TAG TO BE LOADED.                         REG         1414     A     
 REG      *                (X5) = TAG TO BE LOADED.                                        REG         1415     A     
 REG      *                                                                                REG         1416     A     
 REG      *         EXIT   (B2) = REGISTER - (0TR)                                         REG         1417     A     
 REG      *                (B6) = STATUS WORD FOR TAG.                                     REG         1418     A     
 REG      *                (X6) = REGISTER (0R0)                                           REG         1419     A     
 REG      *                                                                                REG         1420     A     
 REG      *         USES    ALL REGISTERS EXCEPT A0,A4 B4                                  REG         1421     A     
 REG      *                                                                                REG         1422     A     
 REG      *         CALLS  ASR,GNR,WCODE                                                   REG         1423     A     
 REG                                                                                       REG         1424     A     
 REG       LSC      SUBR               ENTRY/EXIT...                                       REG         1425     A     
 REG                =A2    B4+OR.OPR                                                       REG         1426     A     
 REG                BX6    X1                                                              REG         1427     A     
 REG                SX7    B3          TYPE OF LOAD                                        REG         1428     A     
 REG                SA3    RREG                                                            REG         1429     A     
 REG                SA6    LSCA                                                            REG         1430     A     
 REG                =A7    A6+1                                                            REG         1431     A     
 REG                PL     X3,LSC10    IF REGISTER ALREADY ASSIGNED                        REG         1432     A     
 REG                SB7    X2-O.=                                                          REG         1433     A     
 REG                NZ     B7,LSC5     IF NOT PROCESSING *=* TURPLE                        REG         1434     A     
 REG                RJ     ASR         ASSIGN STORAGE REGISTER                             REG         1435     A     
 REG                EQ     LSC20                                                           REG         1436     A     
 REG                                                                                       REG         1437     A     
 REG       LSC5     SB7    X2-O.DOB                                                        REG         1438     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1406    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                NZ     B7,LSC10    IF NOT PROCESSING DO-BEGIN                          REG         1439     A     
 REG                SX6    R.X6-RGFILE USE *X6*                                            REG         1440     A     
 REG                SA6    A3                                                              REG         1441     A     
 REG                                                                                       REG         1442     A     
 REG       LSC10    RJ     GNR         GET REGISTER                                        REG         1443     A     
 REG                                                                                       REG         1444     A     
 REG       LSC20    BX7    X6                                                              REG         1445     A     
 REG                SA3    LSCA+1                                                          REG         1446     A     
 REG                LX7    3                                                               REG         1447     A     
 REG                =A2    A3-1                                                            REG         1448     A     
 REG                SB7    RG=BADR                                                         REG         1449     A     
 REG                SB7    -B7                                                             REG         1450     A     
 REG                SB7    X3+B7                                                           REG         1451     A     
 REG                AX2    P.SHC                                                           REG         1452     A     
 REG                SX1    X7+SX=BK                                                        REG         1453     A     
 REG                NZ     B7,LSC21    IF NOT *B* REGISTER LOAD                            REG         1454     A     
 REG                SX1    X7+SB=BK                                                        REG         1455     A     
 REG       LSC21    MX0    -L.LBIAS                                                        REG         1456     A     
 REG                BX2    -X0*X2                                                          REG         1457     A     
 REG                NZ     X2,LSC25    IF NOT CONSTANT OF*0*                               REG         1458     A     
 REG                =X1    X7+SB=BB                                                        REG         1459     A     
 REG                ZR     B7,LSC30    IF *B* REGISTER LOAD                                REG         1460     A     
 REG                                                                                       REG         1461     A     
 REG      *         CONSTANT LOAD OF *0*. CHECK FOR MASK TYPE CONSTANT.                    REG         1462     A     
 REG                                                                                       REG         1463     A     
 REG                BX3    X5                                                              REG         1464     A     
 REG                MX0    -L.MSHORT                                                       REG         1465     A     
 REG                SX1    X7+FMASK                                                        REG         1466     A     
 REG                AX3    P.MSHORT                                                        REG         1467     A     
 REG                BX0    -X0*X3                                                          REG         1468     A     
 REG                IX1    X1+X0                                                           REG         1469     A     
 REG                LX3    X6                                                              REG         1470     A     
 REG                NZ     X0,LSC30    IF MASK TYPE CONSTANT                               REG         1471     A     
 REG                                                                                       REG         1472     A     
 REG      *         *0* CONSTANT. COMPILE (BXI   XI-XI)                                    REG         1473     A     
 REG                                                                                       REG         1474     A     
 REG                SX1    X7+XOR      OP-CODE + I00                                       REG         1475     A     
 REG                AX3    3           =00I                                                REG         1476     A     
 REG                IX7    X1+X6       OP-CODE + II0                                       REG         1477     A     
 REG                IX1    X7+X3       OP-CODE + III                                       REG         1478     A     
 REG                EQ     LSC30                                                           REG         1479     A     
 REG                                                                                       REG         1480     A     
 REG      *         (X1) = INSTRUCTION.                                                    REG         1481     A     
 REG      *         (X2) = CONSTANT                                                        REG         1482     A     
 REG      *         (X5) = TAG.                                                            REG         1483     A     
 REG      *         (X6) = REGISTER TO USE (0TR)                                           REG         1484     A     
 REG      *         (X7) = REGISTER TO USE (R00)                                           REG         1485     A     
 REG                                                                                       REG         1486     A     
 REG       LSC25    MX0    -L.MODE                                                         REG         1487     A     
 REG                SX3    X7                                                              REG         1488     A     
 REG                LX0    P.2FPNO                                                         REG         1489     A     
 REG                BX0    -X0*X5      MODE BITS                                           REG         1490     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1407    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                AX0    P.2FPNO                                                         REG         1491     A     
 REG                SB7    X0-M.REAL                                                       REG         1492     A     
 REG                NZ     B7,LSC30    IF NOT REAL CONSTANT                                REG         1493     A     
 REG                LX2    P.LBIAS                                                         REG         1494     A     
 REG                LX1    P.LI15                                                          REG         1495     A     
 REG                IX7    X1+X2                                                           REG         1496     A     
 REG                SB5    B2                                                              REG         1497     A     
 REG                WCODE  X7                                                              REG         1498     A     
 REG                SX1    X3+LSHF+60-L.SHC                                                REG         1499     A     
 REG                SB2    B5                                                              REG         1500     A     
 REG                BX2    0                                                               REG         1501     A     
 REG                                                                                       REG         1502     A     
 REG      *         (X1) = OP-CODE + REGISTER (RIGHT JUSTIFIED)                            REG         1503     A     
 REG      *         (X2) = CONSTANT.                                                       REG         1504     A     
 REG      *         (B2) = REGISTER (0TR)                                                  REG         1505     A     
 REG                                                                                       REG         1506     A     
 REG       LSC30    LX1    P.LI15                                                          REG         1507     A     
 REG                SB5    B2                                                              REG         1508     A     
 REG                LX2    P.LBIAS                                                         REG         1509     A     
 REG                IX7    X1+X2                                                           REG         1510     A     
 REG       LSC35    WCODE  X7                                                              REG         1511     A     
 REG                SX6    B5                                                              REG         1512     A     
 REG                MX0    -3                                                              REG         1513     A     
 REG                SB2    B5                                                              REG         1514     A     
 REG                BX6    -X0*X6                                                          REG         1515     A     
 REG                LX6    3           =0R0                                                REG         1516     A     
 REG                EQ     EXIT.                                                           REG         1517     A     
 REG                                                                                       REG         1518     A     
 REG                                                                                       REG         1519     A     
 REG       LSCA     DATA   0,0                                                             REG         1520     A     
 REG       LTG      EJECT  4,20                                                            REG         1521     A     
 REG      **        LTG -  LOAD TAG                                                        REG         1522     A     
 REG      *                                                                                REG         1523     A     
 REG      *         ENTRY  (B2) = 0 (LOAD UPPER HALF)                                      REG         1524     A     
 REG      *                     = 1 (LOAD LOWER HALF)                                      REG         1525     A     
 REG      *                (B3) = TYPE OF LOAD.                                            REG         1526     A     
 REG      *                (X5) = TAG TO BE LOADED.                                        REG         1527     A     
 REG      *                                                                                REG         1528     A     
 REG      *         EXIT   (B2) = REGISTER (0TR)                                           REG         1529     A     
 REG      *                (B6) = STATUS WORD FOR TAG.                                     REG         1530     A     
 REG      *                (X6) = REGISTER (0R0)                                           REG         1531     A     
 REG      *                                                                                REG         1532     A     
 REG      *         USES   ALL REGISTERS EXCEPT A0,A4 B4.                                  REG         1533     A     
 REG      *                                                                                REG         1534     A     
 REG      *         CALLS  GNR,CLI                                                         REG         1535     A     
 REG                                                                                       REG         1536     A     
 REG                                                                                       REG         1537     A     
 REG       LTG      SUBR               ENTRY/EXIT...                                       REG         1538     A     
 REG                BX6    X1                                                              REG         1539     A     
 REG                SA6    LTGA        SAVE TAG TO BE USED IN INSTRUCTION                  REG         1540     A     
 REG                RJ     GNR         GET REGISTER                                        REG         1541     A     
 REG                SA1    LTGA                                                            REG         1542     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1408    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                RJ     CLI         COMPILE LOAD INSTRUCTION                            REG         1543     A     
 REG                EQ     EXIT.                                                           REG         1544     A     
 REG                                                                                       REG         1545     A     
 REG                                                                                       REG         1546     A     
 REG       LTGA     DATA   0                                                               REG         1547     A     
 REG                                                                                       REG         1548     A     
 REG       RLL      SPACE  4,8                                                             REG         1549     A     
 REG      **        RLL -  LOCK REGISTER *X* AND *A* REGISTER.                             REG         1550     A     
 REG      *                                                                                REG         1551     A     
 REG      *         ENTRY  (B7) = REGISTER TO LOCK - 00R.                                  REG         1552     A     
 REG      *                                                                                REG         1553     A     
 REG      *         EXIT   REGISTER LOCKED.                                                REG         1554     A     
 REG      *                (X7) = LOCK REGISTER - 00R.                                     REG         1555     A     
 REG      *                                                                                REG         1556     A     
 REG      *         USES   A1,A2,A7  X0                                                    REG         1557     A     
 REG      *         CANNOT DESTORY *X6*                                                    REG         1558     A     
 REG                                                                                       REG         1559     A     
 REG                                                                                       REG         1560     A     
 REG       RLL      SUBR               ENTRY/EXIT...                                       REG         1561     A     
 REG                =X0    RLOCK                                                           REG         1562     A     
 REG                SA1    B7+REGX                                                         REG         1563     A     
 REG                BX7    X1+X0                                                           REG         1564     A     
 REG                SA2    B7+REGA                                                         REG         1565     A     
 REG                SA7    A1          LOCK ON *X*                                         REG         1566     A     
 REG                BX7    X2+X0                                                           REG         1567     A     
 REG                SA7    A2          LOCK ON *A*                                         REG         1568     A     
 REG                SX7    B7          REGISTER = 00R.                                     REG         1569     A     
 REG                EQ     EXIT.                                                           REG         1570     A     
 REG       RUL      SPACE  4,8                                                             REG         1571     A     
 REG      **        RUL -  UNLOCK REGISTER *X* AND *A* REGISTER.                           REG         1572     A     
 REG      *                                                                                REG         1573     A     
 REG      *         ENTRY  (B7) = REGISTER TO UNLOCK - 00R.                                REG         1574     A     
 REG      *                                                                                REG         1575     A     
 REG      *         EXIT   REGISTER UNLOCKED.                                              REG         1576     A     
 REG      *                                                                                REG         1577     A     
 REG      *         USES   A1,A2,A7  X0                                                    REG         1578     A     
 REG      *         CANNOT DESTORY *X6*                                                    REG         1579     A     
 REG                                                                                       REG         1580     A     
 REG                                                                                       REG         1581     A     
 REG       RUL      SUBR               ENTRY/EXIT...                                       REG         1582     A     
 REG                =X0    RLOCK                                                           REG         1583     A     
 REG                LT     B7,EXIT.    IF NO REGISTER TO UNLOCK                            REG         1584     A     
 REG                SA1    B7+REGX                                                         REG         1585     A     
 REG                                                                                       REG         1586     A     
 REG      *         DO NOT TOUCH TEMP *X* REGISTER                                         REG         1587     A     
 REG                                                                                       REG         1588     A     
 REG                MX2    -L.RUSE                                                         REG         1589     A     
 REG                BX7    -X2*X1      USE COUNT                                           REG         1590     A     
 REG                =X2    MAX.USEC                                                        REG         1591     A     
 REG                BX2    X7-X2                                                           REG         1592     A     
 REG                ZR     X2,RUL1     IF TEMP REGISTER                                    REG         1593     A     
 REG                BX7    -X0*X1                                                          REG         1594     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1409    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SA7    A1          CLEAR LOCK ON *X*                                   REG         1595     A     
 REG       RUL1     SA2    B7+REGA                                                         REG         1596     A     
 REG                BX7    -X0*X2                                                          REG         1597     A     
 REG                SA7    A2          CLEAR LOCK ON *A*                                   REG         1598     A     
 REG                EQ     EXIT.                                                           REG         1599     A     
 REG                                                                                       REG         1600     A     
 REG       REGLK    BSS    3           LOCK REGISTER                                       REG         1601     A     
 REG       CLOADK   EQU    REGLK+1     *K* PORTION                                         REG         1602     A     
 REG       CLOADJ   EQU    REGLK+2     *J* PORTION                                         REG         1603     A     
 REG       STRGLK   BSS    1                                                               REG         1604     A     
 REG       RUT      SPACE  4,8                                                             REG         1605     A     
 REG      **        RUT -  RESET USAGE TABLE FOR REGISTER BEING CLOBBERED.                 REG         1606     A     
 REG      *                                                                                REG         1607     A     
 REG      *         ENTRY  (B2) = 0TR OF REGISTER BEING CLOBBERED.                         REG         1608     A     
 REG      *                                                                                REG         1609     A     
 REG      *         EXIT   (B2) = PRESERVED.                                               REG         1610     A     
 REG      *                (B3) = 00R (R FROM *B2*)                                        REG         1611     A     
 REG      *                RGFILE, USEFILE CLEARED FOR (B2).                               REG         1612     A     
 REG      *                                                                                REG         1613     A     
 REG      *         USES   A1,A2,A3,A6,A7  X0  B3,B5,B7                                    REG         1614     A     
 REG      *                DESTORYS (A5) BUT NOT (X5)                                      REG         1615     A     
 REG      *                                                                                REG         1616     A     
 REG      *         (SCR2) FOR SAVING *X5*                                                 REG         1617     A     
 REG      *                                                                                REG         1618     A     
 REG      *         CALLS  GST,SFR,DRITE,WCODE                                             REG         1619     A     
 REG                                                                                       REG         1620     A     
 REG                                                                                       REG         1621     A     
 REG       RUTX     SA5    RUTA        RESTORE *X5*                                        REG         1622     A     
 REG                SX6    B5                                                              REG         1623     A     
 REG                BX7    0                                                               REG         1624     A     
 REG                SB2    B5          RESTORE*B2*                                         REG         1625     A     
 REG                MX0    -3                                                              REG         1626     A     
 REG                SA7    B5+REGFILE                                                      REG         1627          I
          -FCC1462X 
 REG                BX6    -X0*X6                                                          REG         1628          I
          -FCC1462X 
 REG                NO                                                                     REG         1629          I
          -FCC1462X 
 REG                                                                                       FCC1462X      13     A     
 REG      **        CLEAR REGFILE ENTRY.                                                   FCC1462X      14     A     
 REG                                                                                       FCC1462X      15     A     
 REG                SB5    B5-REG.X                                                        FCC1462X      16     A     
 REG                SA1    B2+=XREGFILE                                                    FCC1462X      17     A     
 REG                MI     B5,RUT35    IF NOT X REG CLEAR ONE REG ONLY.                    FCC1462X      18     A     
 REG                SA2    B5+REGA     FETCH CORESPONDING A REG.                           FCC1462X      19     A     
 REG                BX2    X2-X1                                                           FCC1462X      20     A     
 REG                AX2    L.RUSE                                                          FCC1462X      21     A     
 REG                NZ     X2,RUT35    IF TAGS NOT EQUAL CLOBBER X REG ONLY.               FCC1462X      22     A     
 REG                SA7    A2+         CLOBBER A REG.                                      FCC1462X      23     A     
 REG       RUT35    BX6    -X0*X6                                                          FCC1462X      24     A     
 REG                SA7    A1          (B2+REGFILE) IS ALWAYS CLEARED.                     FCC1462X      25     A     
 REG                SB3    X6          =00R                                                REG         1630     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1410    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                LX6    3           =0R0                                                REG         1631     A     
 REG                                                                                       REG         1632     A     
 REG       RUT      SUBR   -           ENTRY/EXIT...                                       REG         1633     A     
 REG                BX7    X5                                                              REG         1634     A     
 REG                SB5    B2                                                              REG         1635     A     
 REG                SA7    RUTA                                                            REG         1636     A     
 REG                SX6    RUTX                                                            REG         1637     A     
 REG                SA5    B2+REGFILE                                                      REG         1638     A     
 REG                SA6    RUT.ADR                                                         REG         1639     A     
 REG       RUT5     BX1    X5                                                              REG         1640     A     
 REG                MX0    -1                                                              REG         1641     A     
 REG                =B7    0           STATUS OF TAG ONLY                                  REG         1642     A     
 REG                AX1    P.TYPE                                                          REG         1643     A     
 REG                BX7    -X0*X1                                                          REG         1644     A     
 REG                SB2    X7          TAG TYPE (0 = UPPER HALF, 1 = LOWER HALF)           REG         1645     A     
 REG                SA7    RUT.TYP                                                         REG         1646     A     
 REG                RJ     GST         GET STATUS OF TAG                                   REG         1647     A     
 REG                SA2    RUT.ADR                                                         REG         1648     A     
 REG                SB7    X2                                                              REG         1649     A     
 REG                NZ     B2,RUT6     IF IN REGISTER                                      REG         1650     A     
 REG                JP     B7                                                              REG         1651     A     
 REG                                                                                       REG         1652     A     
 REG                                                                                       REG         1653     A     
 REG      *         TAG IS ACTIVE, IF IT IS A SIMPLE TAG INDICATE IN REGISTER              REG         1654     A     
 REG      *         POINTER WORD THAT TAG IS NO LONGER IN A REGISTER - PUT TAG             REG         1655     A     
 REG      *         BACK IN TABLE FROM REGISTER FILE AND CLEAR REGISTER ENTRY              REG         1656     A     
 REG      *         FROM *0TR* ON ENTRY.                                                   REG         1657     A     
 REG                                                                                       REG         1658     A     
 REG       RUT6     SA2    RUT.TYP                                                         REG         1659     A     
 REG                MX0    -1                                                              REG         1660     A     
 REG                BX7    X5                                                              REG         1661     A     
 REG                SB3    X2+P.2STAT                                                      REG         1662     A     
 REG                LX0    X0,B3                                                           REG         1663     A     
 REG                BX6    X0*X1       INDICATE TAG NOT IN REGISTER                        REG         1664     A     
 REG                SA6    A1                                                              REG         1665     A     
 REG                IFBIT  X7,INTR,RUT20                                                   REG         1666     A     
 REG                JP     B7                                                              REG         1667     A     
 REG                                                                                       REG         1668     A     
 REG      *         FOUND INTERMEDIATE IN REGISTER -- MUST SAVE IN TEMPORARY               REG         1669     A     
 REG      *         (B2) = 0TR                                                             REG         1670     A     
 REG      *         (X5) = TAG                                                             REG         1671     A     
 REG                                                                                       REG         1672     A     
 REG      *RUT20    IFBIT  X2,ADDR/INTR,RUT30                                              REG         1673     A     
 REG       RUT20    BSS    0                                                               REG         1674     A     
 REG                                                                                       REG         1675     A     
 REG       SNAP=H   IFNE   TEST                                                            REG         1676     A     
 REG                SX6    3RRUT                                                           REG         1677     A     
 REG                RJ     REGPRO                                                          REG         1678     A     
 REG       SNAP=H   ENDIF                                                                  REG         1679     A     
 REG                IFBIT  X7,-2ARY/INTR,RUT25                                             REG         1680     A     
 REG                                                                                       REG         1681     A     
 REG      **        INTERMEDIATE IS ARY-LOD -- INDICATE POST-PROCESSING REQUIRED.          REG         1682     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1411    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                                                                                       REG         1683     A     
 REG                JP     B7                                                              REG         1684     A     
 REG                                                                                       REG         1685     A     
 REG       RUT25    SX0    B5-R.X6+RGFILE                                                  REG         1686     A     
 REG                BX7    X5                                                              REG         1687     A     
 REG                SB2    B5                                                              REG         1688     A     
 REG                PL     X0,RUT28    IF ALREADY IN STORE REGISTER                        REG         1689     A     
 REG                SX6    B5                                                              REG         1690     A     
 REG                SB3    RG=STOR                                                         REG         1691     A     
 REG                SA6    INT.REG     SAVE 0TR OF REGISTER BEING CLOBBERED                REG         1692     A     
 REG                SA7    INT.TAG                                                         REG         1693     A     
 REG                RJ     SFR         GET STORE REGISTER                                  REG         1694     A     
 REG                SB5    B2                                                              REG         1695     A     
 REG                ZR     X7,RUT27    IF REGISTER AVAILABLE                               REG         1696     A     
 REG                DRITE  DEACTIVATE                                                      REG         1697     A     
 REG                SA5    B2+REGFILE                                                      REG         1698     A     
 REG                SX7    RUT27                                                           REG         1699     A     
 REG                SA7    RUT.ADR     RESET JUMP ADDRESS                                  REG         1700     A     
 REG                ZR     X2,RUT5     IF REGISTER NOT FREED                               REG         1701     A     
 REG                MX0    -L.RUSE                                                         REG         1702     A     
 REG                SB5    B2                                                              REG         1703     A     
 REG                BX2    -X0*X5                                                          REG         1704     A     
 REG                NZ     X2,RUT5     IF NOT LAST USE OF REGISTER                         REG         1705     A     
 REG                                                                                       REG         1706     A     
 REG      **        TRANSFER INTERMEDIATE TO STORE REGISTER.                               REG         1707     A     
 REG                                                                                       REG         1708     A     
 REG       RUT27    SX6    B5          0TR *I* REGISTER                                    REG         1709     A     
 REG                MX0    -3                                                              REG         1710     A     
 REG                SA1    INT.REG     0TR *J* REGISTER                                    REG         1711     A     
 REG                BX2    -X0*X6                                                          REG         1712     A     
 REG                BX7    -X0*X1                                                          REG         1713     A     
 REG                LX2    3                                                               REG         1714     A     
 REG                IX7    X7+X2                                                           REG         1715     A     
 REG                SX7    X7+XMITS3                                                       REG         1716     A     
 REG                LX7    P.LI15+3                                                        REG         1717     A     
 REG                WCODE  X7                                                              REG         1718     A     
 REG                SB7    RUTX                                                            REG         1719     A     
 REG                SA2    INT.REG                                                         REG         1720     A     
 REG                SB2    B5                                                              REG         1721     A     
 REG                SA5    INT.TAG                                                         REG         1722     A     
 REG                SB5    X2                                                              REG         1723     A     
 REG                                                                                       REG         1724     A     
 REG      **        STORE INTERMEDIATE IN TEMPORARY.                                       REG         1725     A     
 REG      *         (X5) = INTERMEDIATE TAG.                                               REG         1726     A     
 REG      *         (B2) = 0TR OF STORE REGISTER.                                          REG         1727     A     
 REG                                                                                       REG         1728     A     
 REG       RUT28    SX6    B5                                                              REG         1729     A     
 REG                SX7    B7                                                              REG         1730     A     
 REG                SA6    RUTA+1                                                          REG         1731     A     
 REG                SA7    RUT.ADR                                                         REG         1732     A     
 REG                RJ     CWI         STORE INTERMEDIATE IN TEMPORARY                     REG         1733     A     
 REG                SA1    RUTA+1                                                          REG         1734     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1412    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SA2    RUT.ADR                                                         REG         1735     A     
 REG                SB5    X1                                                              REG         1736     A     
 REG                SB7    X2                                                              REG         1737     A     
 REG                JP     B7                                                              REG         1738     A     
 REG                                                                                       REG         1739     A     
 REG       RUTA     BSS    3           RUT SCRATCH                                         REG         1740     A     
 REG       RUT.ADR  DATA   0                                                               REG         1741     A     
 REG       INT.TAG  DATA   0           INTERMEDIATE TAG                                    REG         1742     A     
 REG       INT.REG  DATA   0           0TR OF REGISTER INTERMEDIATE IS IN                  REG         1743     A     
 REG       RUT.TYP  DATA   0           TYPE OF TAG                                         REG         1744     A     
 REG       SDS      SPACE  4,20                                                            REG         1745     A     
 REG      **        SDS -  SET DELAYED STORE IN MOTION.                                    REG         1746     A     
 REG      *                                                                                REG         1747     A     
 REG      *         ENTRY  (B3) = REGISTER NUMBER FOR RIGHT MEMBER RESULTS = 0TR.          REG         1748     A     
 REG      *                       MUST INDICATE EITHER *X6* OR *X7*                        REG         1749     A     
 REG      *                (X1) = TAG FOR LEFT MEMBER.                                     REG         1750     A     
 REG      *                                                                                REG         1751     A     
 REG      *         NOTE --                                                                REG         1752     A     
 REG      *         IF CURRENT TAG BEING SET IS SAME AS *DRITE*, *DRITE* IS IGNORE         REG         1753     A     
 REG      *                                                                                REG         1754     A     
 REG      *         EXIT   TAG FOR LEFT MEMBER SET INTO *RGFILE* *X* ASSOCIATE             REG         1755     A     
 REG      *                (DRITE) = - 0TR. FOR LEFT MEMBER IF ALREADY IN *A* REG          REG         1756     A     
 REG      *                            TAG, IF NOT IN AN *A* REGISTER.                     REG         1757     A     
 REG      *                                                                                REG         1758     A     
 REG      *         USES   A1,A2,A3,A5,A6,A7  X0  B2,B3,B5,B7                              REG         1759     A     
 REG      *                (SDSA,SDSA+1)                                                   REG         1760     A     
 REG      *                                                                                REG         1761     A     
 REG      *         CALLS  DRITE,GST,SST,SFR,WCODE                                         REG         1762     A     
 REG                                                                                       REG         1763     A     
 REG                                                                                       REG         1764     A     
 REG       SDSX     SA2    SDSA                                                            REG         1765     A     
 REG                MX0    -3                                                              REG         1766     A     
 REG                NO                                                                     REG         1767     A     
 REG                BX6    -X0*X2                                                          REG         1768     A     
 REG                SB2    X2                                                              REG         1769     A     
 REG                LX6    3                                                               REG         1770     A     
 REG                                                                                       REG         1771     A     
 REG                                                                                       REG         1772     A     
 REG       SDS      SUBR   -                                                               REG         1773     A     
 REG                SX7    B3                                                              REG         1774     A     
 REG                SX0   B2                                                               REG         1775     A     
 REG                SA3    DRITE                                                           REG         1776     A     
 REG                BX6    X5                                                              REG         1777     A     
 REG                LX0    P.TYPE                                                          REG         1778     A     
 REG                SA7    SDSA        SAVE REGISTER                                       REG         1779     A     
 REG                BX5    X5+X0                                                           REG         1780     A     
 REG                BX0    X5-X3                                                           REG         1781     A     
 REG                =A6    A7+1        SAVE REGISTER                                       REG         1782     A     
 REG                AX0    P.TYPE                                                          REG         1783     A     
 REG                SB6    B2                                                              REG         1784     A     
 REG                ZR     X0,SDS10    IF CURRENT TAG ALREADY DELAYED- IGNORE OLD          REG         1785     A     
 REG                ZR     X3,SDS10    IF NO *DRITE*                                       REG         1786     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1413    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                DRITE  DEACTIVATE  FORCE PROCESSING OF ANY DELAYED STORE               REG         1787     A     
 REG                                                                                       REG         1788     A     
 REG      *         (X6) = TAG CURRENTLY PROCESSING.                                       REG         1789     A     
 REG                                                                                       REG         1790     A     
 REG       SDS10    SB2    B6                                                              REG         1791     A     
 REG                =B7    0           STATUS OF TAG ONLY                                  REG         1792     A     
 REG                RJ     GST         GET STATUS OF TAG                                   REG         1793     A     
 REG                MX0    -3                                                              REG         1794     A     
 REG                =X3    REG.A-RGFILE                                                    REG         1795     A     
 REG                BX6    X0*X5                                                           REG         1796     A     
 REG                SX2    B2                                                              REG         1797     A     
 REG                ZR     B2,SDS15    IF TAG NOT IN REGISTER                              REG         1798     A     
 REG                BX7    X3*X2                                                           REG         1799     A     
 REG                MX3    -1                                                              REG         1800     A     
 REG                SB7    B6+P.2STAT                                                      REG         1801     A     
 REG                LX3    X3,B7                                                           REG         1802     A     
 REG                ZR     X7,SDS12    IF NOT IN *A* REGISTER                              REG         1803     A     
 REG                =X7    0                                                               REG         1804     A     
 REG                BX2    -X0*X2      =00R (LEFT MEMBER)                                  REG         1805     A     
 REG                SB2    B2+REG.X-REG.A                                                  REG         1806     A     
 REG                IX6    X6+X2                                                           REG         1807     A     
 REG                                                                                       REG         1808     A     
 REG       SDS12    SA7    B2+REGFILE  CLEAR REGISTER FILE                                 REG         1809     A     
 REG                BX7    X3*X1       CLEAR STATUS OF TAG                                 REG         1810     A     
 REG                SA7    A1                                                              REG         1811     A     
 REG       SDS15    SA2    SDSA        *X* REGISTER FOR LEFT MEMBER                        REG         1812     A     
 REG                SA6    DRITE       SET DRITE IN MOTION                                 REG         1813     A     
 REG                SB2    X2                                                              REG         1814     A     
 REG                BX6    -X0*X2                                                          REG         1815     A     
 REG                MX3    -L.RUSE                                                         REG         1816     A     
 REG                LX6    3           =0R0 (RIGHT MEMBER)                                 REG         1817     A     
 REG                SA2    B2+REGFILE                                                      REG         1818     A     
 REG                BX0    X3*X1       CLEAR USE COUNT                                     REG         1819     A     
 REG                BX7    -X3*X2      USE COUNT (RIGHT MEMBER)                            REG         1820     A     
 REG                IX6    X0+X6                                                           REG         1821     A     
 REG                SX0    B6                                                              REG         1822     A     
 REG                SB3    B6                                                              REG         1823     A     
 REG                LX0    P.2BIAS                                                         REG         1824     A     
 REG                IX6    X6+X0                                                           REG         1825     A     
 REG                =A6    A6+1                                                            REG         1826     A     
 REG                =A7    A6+1                                                            REG         1827     A     
 REG                NZ     X7,SDS20    IF NOT LAST USE OF RIGHT MEMBER                     REG         1828     A     
 REG                RJ     SST         SET STATUS OF TAG (LEFT MEMBER)                     REG         1829     A     
 REG                EQ     SDSX                                                            REG         1830     A     
 REG                                                                                       REG         1831     A     
 REG       SDS20    BX7    X2                                                              REG         1832     A     
 REG                =X0    1                                                               REG         1833     A     
 REG                =A7    A6+1                                                            REG         1834     A     
 REG                IX2    X5-X0       USE COUNT - 1 (LEFT MEMBER)                         REG         1835     A     
 REG                SX7    A1                                                              REG         1836          I
          -FCC1208
 REG                BX0    -X3*X2                                                          REG         1837     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1414    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SA2    =XGSTC      REMEMBER LOCATION OF STATUS WORD                    FCC1208       23     A     
 REG                BX7    X2                                                              FCC1208       24     A     
 REG                ZR     X0,SDSX     IF LAST USE OF LEFT MEMBER                          REG         1838     A     
 REG                SA7    SDSA+1                                                          REG         1839     A     
 REG                SB3    RG=LODX                                                         REG         1840     A     
 REG                RJ     SFR                                                             REG         1841     A     
 REG                NZ     X7,SDSX     IF *X* REGISTER NOT AVAILABLE                       REG         1842     A     
 REG                SA1    SDSA        =0TR) (RIGHT MEMBER)                                REG         1843     A     
 REG                MX0    -3                                                              REG         1844     A     
 REG                SX3    X6+XMITS3                                                       REG         1845     A     
 REG                BX1    -X0*X1      =00R                                                REG         1846     A     
 REG                SB5    B2                                                              REG         1847     A     
 REG                IX7    X3+X1                                                           REG         1848     A     
 REG                LX7    P.LI15+3                                                        REG         1849     A     
 REG                WCODE  X7                                                              REG         1850     A     
 REG                SA2    SDSA+1                                                          REG         1851     A     
 REG                SB2    B5                                                              REG         1852     A     
 REG                SA1    X2                                                              REG         1853          I
          -FCC1208
 REG                SB7    X2          ORDINAL IN TABLE OF STATUS WORD                     FCC1208       25     A     
 REG                AX2    18                                                              FCC1208       26     A     
 REG                SA2    X2          FETCH ORIGIN OF TABLE                               FCC1208       27     A     
 REG                SA1    X2+B7                                                           FCC1208       28     A     
 REG                SB3    B6                                                              REG         1854     A     
 REG                RJ     SST         SET STATUS OF TAG                                   REG         1855     A     
 REG                EQ     SDSX                                                            REG         1856     A     
 REG                                                                                       REG         1857     A     
 REG       SDSA     DATA   0,0         SAVE REQUESTED REGISTER                             REG         1858     A     
 REG       SFR      SPACE  4,8                                                             REG         1859     A     
 REG      **        SFR -  SCAN FOR REGISTER.                                              REG         1860     A     
 REG      *                                                                                REG         1861     A     
 REG      *         *SFR* SCANS THE REGISTER FILE FINDING THE LOWEST USE COUNT             REG         1862     A     
 REG      *         REGISTER AVAILABLE OF THE TYPE REQUESTED.  *SFR* MAKES A               REG         1863     A     
 REG      *         SPECIAL CASE WHEN *RREG* IS SET OR A LOAD REGISTER IS                  REG         1864     A     
 REG      *         REQUESTED TO STOP *J* AND *K* FROM GETTING THE SAME REGISTER.          REG         1865     A     
 REG      *                                                                                REG         1866     A     
 REG      *         UPON EXIT *SFR* RESTORES THE REGISTER SCAN WORD REPOSITIONED           REG         1867     A     
 REG      *         TO POINT TO THE NEXT REGISTER TO START SCANNING.                       REG         1868     A     
 REG      *         (ALL REGISTER SCAN WORDS ARED DEFINED TO BE USED CYCLICALLY).          REG         1869     A     
 REG      *                                                                                REG         1870     A     
 REG      *         ENTRY  (B3) = RG=XXXX, TYPE OF REGISTER.                               REG         1871     A     
 REG      *                                                                                REG         1872     A     
 REG      *         EXIT   (B2) = 0TR, OF REGISTER FOUND.                                  REG         1873     A     
 REG      *                (B3) = PRESERVED                                                REG         1874     A     
 REG      *                (X6) = 0R0.                                                     REG         1875     A     
 REG      *                (X7) = USE COUNT                                                REG         1876     A     
 REG      *                                                                                REG         1877     A     
 REG      *         USES   A1,A2,A3  X0,X6,X7  B2,B3,B5,B7                                 REG         1878     A     
 REG      *                (SCR2 FOR SAVING *X5*)                                          REG         1879     A     
 REG                                                                                       REG         1880     A     
 REG                                                                                       REG         1881     A     
 REG       SFRX     BX6    X2                                                              REG         1882     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1415    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                SX3    B2                                                              REG         1883     A     
 REG                MX0    -3                                                              REG         1884     A     
 REG                =A6    B3+1        RESET REGISTER SKELETON WORD                        REG         1885     A     
 REG                SA5    SFRA        RESTORE *X5*                                        REG         1886     A     
 REG                BX6    -X0*X3                                                          REG         1887     A     
 REG                LX6    3                                                               REG         1888     A     
 REG                SX0    RLOCK                                                           REG         1889          I
          -FEAT155G 
 REG                BX0    X0*X7                                                           REG         1890          I
          -FEAT155G 
 REG                ZR     X0,SFR      IF REGISTER NOT LOCKED                              REG         1891          I
          -FEAT155G 
 REG       SFRTRBL  CORE   =XREGB,L.RGFILE+20B                                             REG         1892          I
          -FEAT155G 
 REG                REG                                                                    REG         1893          I
          -FEAT155G 
 REG                                                                                       REG         1894     A     
 REG       SFR      SUBR   -           ENTRY/EXIT...                                       REG         1895     A     
 REG                SA1    B3                                                              REG         1896     A     
 REG                BX6    0                                                               REG         1897     A     
 REG                SA2    RREG                                                            REG         1898     A     
 REG                AX1    P.RGNUM                                                         REG         1899     A     
 REG                BX7    -X2                                                             REG         1900     A     
 REG                SA6    RGX                                                             REG         1901     A     
 REG                MI     X2,SFR5     IF NO HARD REGISTER                                 REG         1902     A     
 REG                MX0    -L.RUSE                                                         REG         1903     A     
 REG                SA7    A2                                                              REG         1904     A     
 REG                SB2    X2                                                              REG         1905     A     
 REG                MX1    -3                                                              REG         1906     A     
 REG                BX6    -X1*X2                                                          REG         1907     A     
 REG                SA3    B2+REGFILE                                                      REG         1908     A     
 REG                LX6    3           =0R0                                                REG         1909     A     
 REG                BX7    -X0*X3      USE COUNT FOR HARD REGISTER                         REG         1910     A     
 REG                EQ     EXIT.                                                           REG         1911     A     
 REG                                                                                       REG         1912     A     
 REG       SFR5     SB7    X1          NUMBER OF REGISTERS                                 REG         1913     A     
 REG                MX3    1                                                               REG         1914     A     
 REG                BX7    X5                                                              REG         1915     A     
 REG                AX1    L.RGMSK     MASK COUNT                                          REG         1916     A     
 REG                SX5    RLOCK                                                           REG         1917     A     
 REG                SA7    SFRA                                                            REG         1918     A     
 REG                SB5    X1-1        LENGTH OF MASK - 1                                  REG         1919     A     
 REG                AX0    B5,X3       FORM MASK FOR REGISTER WORD                         REG         1920     A     
 REG                =A2    A1+1        LOAD REGISTER SKELETON WORD                         REG         1921     A     
 REG                =B5    B5+1        RESTORE LENGTH                                      REG         1922     A     
 REG                LX0    B5,X0       SHIFT MASK TO LOW ORDER                             REG         1923     A     
 REG                MX1    -L.RUSE                                                         REG         1924     A     
 REG                LX2    B5,X2       NEXT REGISTER ORDINAL                               REG         1925     A     
 REG                BX6    X0*X2                                                           REG         1926     A     
 REG                SA3    X6+REGFILE                                                      REG         1927     A     
 REG                BX1    -X1*X3      EXTRACT USE COUNT                                   REG         1928     A     
 REG                                                                                       REG         1929     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1416    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG       SFR10    SB2    X6                                                              REG         1930     A     
 REG                BX7    X1                                                              REG         1931     A     
 REG                ZR     X7,SFRX     IF REGISTER FREE                                    REG         1932     A     
 REG                                                                                       REG         1933     A     
 REG       SFR12    ZR     B7,SFRX     IF FINISHED                                         REG         1934     A     
 REG                BX6    X0*X2       NEXT REGISTER ORDINAL                               REG         1935     A     
 REG                MX1    -L.RUSE                                                         REG         1936     A     
 REG                SA3    X6+REGFILE                                                      REG         1937     A     
 REG                BX1    -X1*X3      EXTRACT USE COUNT                                   REG         1938     A     
 REG                IX3    X1-X7                                                           REG         1939     A     
 REG                NG     X3,SFR10    IF NEW LOW                                          REG         1940     A     
 REG                =B7    B7-1                                                            REG         1941     A     
 REG                LX2    X2,B5       SHIFT REGISTER WORD FOR NEXT ORDINAL                REG         1942     A     
 REG                SA3    X6+REGFILE                                                      REG         1943     A     
 REG                IX1    X1-X5                                                           REG         1944     A     
 REG                IFBIT  X3,INTR,SFR12                                                   REG         1945     A     
 REG                PL     X1,SFR12    IF NOT NEW LOW (NON-INTERMEDIATE)                   REG         1946     A     
 REG                IX5    X1+X5                                                           REG         1947     A     
 REG                SA6    A6                                                              REG         1948     A     
 REG                EQ     SFR12                                                           REG         1949     A     
 REG                                                                                       REG         1950     A     
 REG       SFRA     BSS    1                                                               REG         1951     A     
 REG       SST      SPACE  4,8                                                             REG         1952     A     
 REG      **        SST - SET STATUS OF TAG.                                               REG         1953     A     
 REG      *                                                                                REG         1954     A     
 REG      *         ENTRY  (B2) = REGISTER (0TR)                                           REG         1955     A     
 REG      *                (B3) = TYPE OF LOAD.                                            REG         1956     A     
 REG      *                       0 = UPPER HALF OF TAG.                                   REG         1957     A     
 REG      *                       1 = LOWER HALF OF TAG.                                   REG         1958     A     
 REG      *                (A1) = STATUS WORD ADDRESS.                                     REG         1959     A     
 REG      *                (X1) = STATUS WORD.                                             REG         1960     A     
 REG      *                                                                                REG         1961     A     
 REG      *         EXIT   STATUS BIT SET INDICATING TAG IN REGISTER + REGISTER.           REG         1962     A     
 REG      *                                                                                REG         1963     A     
 REG      *         USES   A1,A2,A3  X0,X7  B5,B7                                          REG         1964     A     
 REG      *                                                                                REG         1965     A     
 REG      *         CALLS  CLT                                                             REG         1966     A     
 REG                                                                                       REG         1967     A     
 REG                                                                                       REG         1968     A     
 REG       SST      SUBR               ENTRY/EXIT...                                       REG         1969     A     
 REG                SA2    B3+SST.STAT                                                     REG         1970          I
          -FCC2109
 REG                SA2    B2+REGFILE                                                      FCC2109       10     A     
 REG                MX0    -L.RUSE                                                         FCC2109       11     A     
 REG                SX3    RLOCK                                                           FCC2109       12     A     
 REG                LX7    X2                                                              FCC2109       13     A     
 REG                BX2    -X0*X2      REGFILE USE COUNT                                   FCC2109       14     A     
 REG                ZR     X2,SST1     IF NO USE COUNT                                     FCC2109       15     A     
 REG                BX3    X3*X2       LOCK BIT EXTRACTION                                 FCC2109       16     A     
 REG                NZ     X3,SST1     IF LOCK BIT SET                                     FCC2109       17     A     
 REG                BX3    X5-X7                                                           FCC2109       18     A     
 REG                AX3    L.RUSE      ELIMINATE USE COUNT                                 FCC2109       19     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1417    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                NZ     X3,SST1     IF TAGS NOT EQUAL DO NOTHING                        FCC2109       20     A     
 REG                BX5    X0*X5                                                           FCC2109       21     A     
 REG                IX5    X5+X2       ELSE RETAIN REGFILE USE COUNT                       FCC2109       22     A     
 REG       SST1     SA2    B3+SST.STAT                                                     FCC2109       23     A     
 REG                =X3    1                                                               REG         1971     A     
 REG                SB7    X2                                                              REG         1972     A     
 REG                LX7    X3,B7                                                           REG         1973     A     
 REG                SX0    B2          0TR                                                 REG         1974     A     
 REG                AX2    18                                                              REG         1975     A     
 REG                BX1    X1+X7       INDICATE IN REGISTER                                REG         1976     A     
 REG                MX3    -L.UREG                                                         REG         1977     A     
 REG                SB7    X2                                                              REG         1978     A     
 REG                LX2    X3,B7       POSITION MASK                                       REG         1979     A     
 REG                LX7    X0,B7       POSITION REGISTER                                   REG         1980     A     
 REG                SX3    B3                                                              REG         1981     A     
 REG                BX1    X2*X1                                                           REG         1982     A     
 REG                LX3    P.TYPE                                                          REG         1983     A     
 REG                IX7    X1+X7                                                           REG         1984     A     
 REG                BX5    X5+X3                                                           REG         1985     A     
 REG                SA7    A1                                                              REG         1986     A     
 REG                SX2    REG.A-RGFILE                                                    REG         1987          I
          -FCC1653X 
 REG                SA1    UUC                                                             REG         1988          I
          -FCC1653X 
 REG                BX3    X2*X0                                                           REG         1989          I
          -FCC1653X 
 REG                IX7    X5-X1                                                           REG         1990          I
          -FCC1653X 
 REG                SX3    REG.A-RGFILE                                                    FCC1653X       7     A     
 REG                SA2    UUC                                                             FCC1653X       8     A     
 REG                BX3    X3*X0                                                           FCC1653X       9     A     
 REG                IX7    X5-X2                                                           FCC1653X      10     A     
 REG                ZR     X3,SST4     IF NOT *A* REGISTER                                 REG         1991     A     
 REG                                                                                       REG         1992     A     
 REG      *         AVOID *A* REGISTER IF LCM TAG                                          REG         1993     A     
 REG                                                                                       REG         1994     A     
 REG                LX5    -P.2TAG                                                         REG         1995          I
          -FCC1653X 
 REG                                                                                       FCC1653X      11     A     
 REG       .DAL     IFEQ   .DAL,0                                                          FCC1653X      12     A     
 REG                BX2    X5                                                              FCC1653X      13     A     
 REG                IFBIT  X2,-ADDR,SST7     IF NOT ADDRESS REFERENCE,TAG IN SCM           FCC1653X      14     A     
 REG       .DAL     ENDIF                                                                  FCC1653X      15     A     
 REG                                                                                       FCC1653X      16     A     
 REG                LX1    -P.2TAG                                                         FCC1653X      17     A     
 REG                MX0    -L.2TAG+L.PWF                                                   REG         1996     A     
 REG                LX0    L.PWF                                                           REG         1997     A     
 REG                BX0    -X0*X5                                                          REG         1998          I
          -FCC1653X 
 REG                LX5    P.2TAG      RESTORE X5                                          REG         1999          I
          -FCC1653X 
 REG                BX0    -X0*X1                                                          FCC1653X      18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1418    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REG     
  
 REG                LX1    P.2TAG                                                          FCC1653X      19     A     
 REG                SX0    X0-C.SYM                                                        REG         2000     A     
 REG                NZ     X0,SST7     IF NOT SYMBOL TAG                                   REG         2001     A     
 REG                RJ     CLT         CHECK FOR LCM TAG                                   REG         2002          I
          -FCC1653X 
 REG                LX2    X5          SAVE PARSED FILE OPERAND WORD ACROSS CLT            FCC1653X      20     A     
 REG                BX5    X1          STATUS WORD TAG FORMAT IN X5 FOR CLT                FCC1653X      21     A     
 REG                RJ     CLT         CHECK FOR LCM TAG.                                  FCC1653X      22     A     
 REG                BX5    X2          RESTORE X5.                                         FCC1653X      23     A     
 REG                NZ     X3,SST7     IF NOT LCM TAG                                      REG         2003     A     
 REG                SB7    B2+REGFILE                                                      REG         2004          I
          -FCC1653X 
 REG                SA7    B7+REG.X-REG.A                                                  REG         2005          I
          -FCC1653X 
 REG                SA7    B2+=XREGX-REG.A   SET REGFILE ENTRY (X-REG).                    FCC1653X      24     A     
 REG                EQ     EXIT.                                                           REG         2006     A     
 REG                                                                                       REG         2007     A     
 REG       SST4     SA7    B2+REGFILE  TAG TO REGFILE                                      REG         2008     A     
 REG                EQ     EXIT.                                                           REG         2009     A     
 REG                                                                                       REG         2010     A     
 REG       SST7     SA7    B2+REGFILE  TAG TO REGFILE                                      REG         2011     A     
 REG                SA7    A7+REG.X-REG.A    TAG TO ASSOCIATE *X* REGISTER                 REG         2012     A     
 REG                EQ     EXIT.                                                           REG         2013     A     
 REG                                                                                       REG         2014     A     
 REG                                                                                       REG         2015     A     
 REG       SST.STAT VFD    24/0,18/P.UREG,18/P.USTAT                                       REG         2016     A     
 REG                VFD    24/0,18/P.LREG,18/P.LSTAT                                       REG         2017     A     
 REG                LIST   D                                                               REG         2018     A     
 REG                END                                                                    REG         2019     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - REG     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          REG                       2019      1893
          FCC0805                     14        14
          FCC1012                      6         6
          FCC1208                     16        16
          FCC1134                     37        34
          FCC1412                      9         9
          FCC1134AX                   61        61
          FCC1462X                    13        13
          FCC1653X                    19        19
          F66FCC                       3         3
          FCC2109                     14        14
          FCC2282                     16        16
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *DECK GEN                                                                        GEN            1     A     
 GEN                IDENT  GEN                                                             GEN            2     A     
 GEN       GEN      SECT   (CODE GENERATION)                                               GEN            3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1419    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       FUNLST   SECT   (EXTERNAL LIST ARGUMENT MODE AND LINK PROCESSORS.),1            GEN            4     A     
 GEN                                                                                       GEN            5     A     
 GEN                SST    A,B,C,D,E,F,G,L,N,X,Z,EXIT.                                     GEN            6     A     
 GEN                NOREF  A,B,C,D,E,F,G,L,N,X,Z,EXIT.                                     GEN            7     A     
 GEN                                                                                       GEN            8     A     
 GEN       B=GEN    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             GEN            9     A     
 GEN                                                                                       GEN           10     A     
 GEN                ENTRY  O=SUBL,DIMI,AMODTBL                                             GEN           11          I
          -FCC0519
 GEN                ENTRY  O=SUBL,DIMI                                                     FCC0519       15          I
          -FEAT155G 
 GEN                ENTRY  O=SUBL,DIMI,O=OTR                                               FEAT155G     363     A     
 GEN                ENTRY  O=RAGDD,O=RAGDS,O=RAGSD,O=RAGSS,SA=ABS3,SA=ABS6                 GEN           12     A     
 GEN                ENTRY  SA=BK,STDIF,ZERO,SX=BK,FMASK,SA=AB,SA=AK,SA=AKS6                GEN           13     A     
 GEN                ENTRY  DIMSYM,MXP,CVT,PSO,ALREG,A=ARRAY                                GEN           14     A     
 GEN                ENTRY  C=ARRAY,ESF,SSO,VAM,VEL,VIL,SLD                                 GEN           15     A     
 GEN                ENTRY  O=ADD,O=SUB,O=MULT,O=DIV,O=STR,O=LT,O=GE,O=EQ,O=NE              GEN           16     A     
 GEN                ENTRY  O=NOT,O=ANDO,O=XOR,O=ORO,O=UMIN,O=APLUG,O=ASSGN,O=XORN          GEN           17     A     
 GEN                ENTRY  O=STRC,O=ANDN,O=DOB,O=GOA,O=BSS,O=INT,O=RETS,O=RETD             GEN           18     A     
 GEN                ENTRY  O=DOC1,O=DOC2,O=DOC3,O=DOC4                                     GEN           19     A     
 GEN                ENTRY  O=DOC3A,O=SHFC,O=SHFS,O=SHFD,O=SHFSA,O=SHFDS,O=DIVP2            GEN           20     A     
 GEN                ENTRY  STR.I,STR.D,SUB.I,ADD.I,MULT.I,O=ORN,INLBASE                    GEN           21     A     
 GEN                ENTRY  O=NTR0,O=STR,O=QUITS,LSHF,O=NTR,O=RETN                          GEN           22     A     
 GEN                ENTRY  O=NTRX,O=NTRM,O=NTRN,O=NTRY,O=GOTON,IFEN2,O=NTRP                GEN           23     A     
 GEN                ENTRY  IFE1N,IFI111,IFLN2,IFL1N,IFL12,IFBASE,O=QUITP,NSTDIF            GEN           24     A     
 GEN                ENTRY  I..2,I..3,I..4,I..5,I..6                                        GEN           25     A     
 GEN                ENTRY  I..7,I..8,I..9,I..10,I..11,MODTBL,O=GOC,R..2,R..3,R..4          GEN           26          I
          -FCC0878
 GEN                ENTRY  R..5,R..6,R..7,R..8,R..9,R..10,R..11,MULT.R                     GEN           27          I
          -FCC0878
 GEN                ENTRY  I..7,I..8,I..9,I..10,MODTBL,O=GOC,MULT.R                        FCC0878       34     A     
 GEN                ENTRY  R..2,R..3,R..4,R..5,R..6,R..7,R..8,R..9,R..10                   FCC0878       35     A     
 GEN                ENTRY  MODECON,O=RANF,O=RTNA                                           GEN           28          I
          -FCC2194
 GEN                ENTRY  MODECON,O=RANF,O=RTNA,O=XMIT                                    FCC2194       10     A     
 GEN                ENTRY  SB=BB,SB=BK,SB=XB,SB=XK,XOR                                     GEN           29     A     
 GEN                ENTRY  DUC.,DUC.1ST,DUC.2ND,DUC.BTH,EIS.PNX,O=EPO                      GEN           30     A     
 GEN                ENTRY  O=RJSUB,O=NOOP,NULLOP,CAI,FVD,XMITS3                            GEN           31     A     
 GEN                ENTRY  SA=XKS3,SA=BKS3,SA=BKS9,SB=BKS9,SX=BKS9,SX=XKS9                 GEN           32     A     
 GEN                ENTRY  IADD,SX=XKS3,SX=BKS3                                            GEN           33          I
          -FEAT155G 
 GEN                ENTRY  IADD,SX=XKS3,SX=BKS3,SB=BKS3                                    FEAT155G     364     A     
 GEN                ENTRY  L.FIV,E.FIV,CRTTAB                                              GEN           34     A     
 GEN                ENTRY  SX=BB,SX=XB,SX=XK,AFREG                                         GEN           35     A     
 GEN                ENTRY  DIMUL                                                           GEN           36     A     
 GEN                ENTRY  O=GOCL,O=RAGD1,O=RAGS1                                          GEN           37     A     
 GEN                                                                                       GEN           38     A     
 GEN      *         IN FTN                                                                 GEN           39     A     
 GEN                EXT    CO.SNAP,CO.RND                                                  GEN           40     A     
 GEN                                                                                       GEN           41     A     
 GEN      *         IN TABLES                                                              GEN           42     A     
 GEN                EXT    ARGMODE,ARGCOMA,ATTR,BIFFUN,BIFSHF,BIFRAN,BINOUT                GEN           43          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1420    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
          -FCC0966
 GEN                EXT    ARGMODE,ARGCOMA,ATTR,BIFFUN,BIFSHF,BINOUT                       FCC0966       16     A     
 GEN                EXT    CHARMAP,DRITE,DXB,INTMAC,LINENO,MOD,MULT(S,MULT,N.TABLE         GEN           44          I
          -FEAT155E 
 GEN                EXT    CHARMAP,DRITE,INTMAC,REFLIN,MOD,MULT(S,MULT,N.TABLE             FEAT155E     297     A     
 GEN                EXT    NOLDS,PIA,PLUS,PLUS(S,REGB,RANF,REG=B,REG=T,REGX,RGC            GEN           45          I
          -FEAT126C 
 GEN                EXT    NOLDS,PLUS,PLUS(S,REGB,RANF,REG=B,REG=T,REGX,RGC                FEAT126C     167     A     
 GEN                EXT    REGFILE,RGX,RG=TEMP,RG=LOAD,RG=LODX,RJTDUM,RREG,SHFC            GEN           46     A     
 GEN                EXT    SUBOP,TT=PAR,TT.PAR,TS.SYM,TP.DIM,T.VDIM,T=VDIM,TG.VDIM         GEN           47     A     
 GEN                EXT    TT.SCR,TT=SCR,TS.STN,TT=USE,TT.USE,TG.TEM,TEM.MAX,UUC           GEN           48     A     
 GEN                EXT    UMINUS,VD.EQ,VD.MULT,VD.INTR,XPOP                               GEN           49          I
          -FCC2194
 GEN                EXT    UMINUS,VD.EQ,VD.MULT,VD.INTR,XMITOP,XPOP                        FCC2194       11     A     
 GEN                                                                                       GEN           50     A     
 GEN      *         IN ERRORS                                                              GEN           51     A     
 GEN                EXT    CER,E.AT1,E.AT1A,E.IF7,E.SB2,E.SB3,E.SB4,E.SB6,E.SB7            GEN           52          I
          -FCC0597
 GEN                EXT    E.AT1,E.AT1A,E.IF7,E.SB2,E.SB3,E.SB4,E.SB6,E.SB7                FCC0597       27     A     
 GEN                EXT    E.SU2,E.SU3,E.SU8,E.SU9,E.SU10,FILL.,FILL.3,OSE,SERRORS         GEN           53          I
          -FEAT126C 
 GEN                EXT    E.SU2,E.SU3,E.SU8,E.SU9,E.SU10,FILL.,FILL.3,OSE,ERR=F           FEAT126C     168     A     
 GEN                                                                                       GEN           54     A     
 GEN      *         IN PIG                                                                 GEN           55     A     
 GEN                EXT    WIN                                                             GEN           56     A     
 GEN                                                                                       GEN           57     A     
 GEN      *         IN ALLOC                                                               GEN           58     A     
 GEN                EXT    ALC.00,ALC.CAI,ALC.REG,SCSA,ADW,SCS,NCS                         GEN           59     A     
 GEN                                                                                       GEN           60     A     
 GEN      *         IN MAIN                                                                GEN           61     A     
 GEN                EXT    WOF                                                             GEN           62     A     
 GEN                                                                                       GEN           63     A     
 GEN      *         IN LEX                                                                 GEN           64     A     
 GEN                EXT    S.RANDM,TSF                                                     GEN           65     A     
 GEN                                                                                       GEN           66     A     
 GEN      *         IN REG                                                                 GEN           67     A     
 GEN                EXT    CLOADJ,REGLK,ABR,ASR,AIR,CDS,CRJ,CIA,CPL,DIT                    GEN           68     A     
 GEN                EXT    GST,GNR,LTG,LSC,RLL,RUL,RUT,SFR,SST,SDS,LFP                     GEN           69     A     
 GEN                                                                                       GEN           70     A     
 GEN      *         IN PAR                                                                 GEN           71     A     
 GEN                EXT    PAR.NX,POP.STD,SMOD,SOPR,ADT,CT2,SDM,POPX,CURST                 GEN           72     A     
 GEN                                                                                       GEN           73     A     
 GEN      *         IN CONRED                                                              GEN           74     A     
 GEN                EXT    TER1,TER2,CCR,LCT                                               GEN           75     A     
 GEN                                                                                       GEN           76     A     
 GEN      *         IN FUN                                                                 GEN           77     A     
 GEN                EXT    ARGNUM                                                          GEN           78     A     
 GEN                                                                                       GEN           79     A     
 GEN      *         IN DO                                                                  GEN           80     A     
 GEN                EXT    CDO,DIP                                                         GEN           81     A     
 GEN                                                                                       GEN           82     A     
 GEN      *         IN INIT                                                                GEN           83     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1421    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                EXT    ESTACK,SCR,SCR2                                                 GEN           84     A     
 GEN                                                                                       GEN           85     A     
 GEN       ESA      SPACE  4,8                                                             GEN           86     A     
 GEN      **        ESA -  EVUALATE SHIFT CONSTANT                                         GEN           87     A     
 GEN      *                                                                                GEN           88     A     
 GEN      *         ENTRY  (X5) = CONSTANT TO EVUALATE.                                    GEN           89     A     
 GEN      *                                                                                GEN           90     A     
 GEN      *         EXIT   (B2) < 0, NO CONSTANT PRESENT, (X6) N/A                         GEN           91     A     
 GEN      *                (X0) = MODE (IN ALL CASES)                                      GEN           92     A     
 GEN      *                (X6) = CONVERTED CONSTANT IN THE RANGE OF 0 TO +60.             GEN           93     A     
 GEN      *                                                                                GEN           94     A     
 GEN      *         NOTE   CONVERSION OF CONSTANT SHIFT IS THE SAME AS *COMPASS*           GEN           95     A     
 GEN      *                VER 2.0, 3.0 - AND SHOULD BE.                                   GEN           96     A     
 GEN      *                                                                                GEN           97     A     
 GEN      *         USES   A1,A2,A6,A7  X0  B2,B7                                          GEN           98     A     
 GEN      *         CALLS  LCT                                                             GEN           99     A     
 GEN                                                                                       GEN          100     A     
 GEN                                                                                       GEN          101     A     
 GEN       ESA      SUBR               ENTRY/EXIT...                                       GEN          102     A     
 GEN                BX1    X5                                                              GEN          103     A     
 GEN                RJ     LCT         GET BINARY OF CONSTANT                              GEN          104     A     
 GEN                LE     B2,EXIT.    IF NO CONSTANT OR CONSTANT IS REAL                  GEN          105     A     
 GEN                =X2    60                                                              GEN          106     A     
 GEN                PL     X6,ESA5     IF POSITIVE                                         GEN          107     A     
 GEN       +        IX6    X6+X2                                                           GEN          108     A     
 GEN                MI     X6,*                                                            GEN          109     A     
 GEN       ESA5     ZR     X6,EXIT.    IF *0*                                              GEN          110     A     
 GEN       +        IX6    X6-X2                                                           GEN          111     A     
 GEN                PL     X6,*                                                            GEN          112     A     
 GEN                IX6    X6+X2                                                           GEN          113     A     
 GEN                NZ     X6,EXIT.                                                        GEN          114     A     
 GEN                BX6    X2                                                              GEN          115     A     
 GEN                EQ     EXIT.                                                           GEN          116     A     
 GEN       ESF      SPACE  4,8                                                             GEN          117     A     
 GEN      **        ESF -  EVUALATE SPECIAL *INTRINSIC* FUNCTION.                          GEN          118     A     
 GEN      *                                                                                GEN          119     A     
 GEN      *         ENTRY  (B7) = RELATIVE ADDRESS TO *ESFBASE*                            GEN          120     A     
 GEN      *                (A4) _ SYMBOL TABLE ENTRY.                                      GEN          121     A     
 GEN      *                                                                                GEN          122     A     
 GEN      *         EXIT   (X1) = OPERATOR WORD.                                           GEN          123     A     
 GEN      *                (X2) IF > 0, MACRO ADDRESS FOR FUNCTION.                        GEN          124     A     
 GEN      *                (X2) IF < 0, FUNCTION REDUCED.                                  GEN          125     A     
 GEN      *                                                                                GEN          126     A     
 GEN      *         USES   A1,A2,A3  X0  B2,B3,B7                                          GEN          127     A     
 GEN      *         CALLS  ESA, TSF                                                        GEN          128     A     
 GEN                                                                                       GEN          129     A     
 GEN                                                                                       GEN          130     A     
 GEN       ESFX     SA1    BIFFUN                                                          GEN          131     A     
 GEN                                                                                       GEN          132     A     
 GEN       ESF      SUBR   -           ENTRY/EXIT...                                       GEN          133     A     
 GEN                JP     B7+ESFBASE                                                      GEN          134     A     
 GEN                                                                                       GEN          135     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1422    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       ESFBASE  BSS    0           BASE ADDRESS                                        GEN          136     A     
 GEN                                                                                       GEN          137     A     
 GEN                                                                                       GEN          138     A     
 GEN       ES.MASK  RJ     ESA         EVUALATE MASK                                       GEN          139     A     
 GEN                =X2    O=MASK                                                          GEN          140     A     
 GEN                LE     B2,ESFX     IF NOT INTEGER CONSTANT                             GEN          141     A     
 GEN                MX1    1                                                               GEN          142     A     
 GEN                SB7    X6-1                                                            GEN          143     A     
 GEN                =X7    M.UNIV      MODE                                                GEN          144     A     
 GEN                AX6    B7,X1                                                           GEN          145     A     
 GEN                BX1    X6                                                              FCC0975        4     A     
 GEN                AX1    59                                                              FCC0975        5     A     
 GEN                BX6    X1*X6                                                           FCC0975        6     A     
 GEN                =B6    B6-1        ELIMINATE FUNCTION                                  GEN          146     A     
 GEN                RJ     NCS         ENTER NEW CONSTANT                                  GEN          147     A     
 GEN                =X2    -1          INDICATE REDUCED                                    GEN          148     A     
 GEN                =A6    B6-1        REPLACE *MASK(CON)* WITH CON                        GEN          149     A     
 GEN                EQ     EXIT.                                                           GEN          150     A     
 GEN                                                                                       GEN          151     A     
 GEN       ES.MOD   BX1    X5                                                              GEN          152     A     
 GEN                RJ     LCT                                                             GEN          153     A     
 GEN                =X2    O=MOD                                                           GEN          154     A     
 GEN                LE     B2,ESFX     IF MODULO NOT CONSTANT                              GEN          155     A     
 GEN                SX0    X6-1                                                            GEN          156     A     
 GEN                BX7    X0*X6                                                           GEN          157     A     
 GEN                NZ     X7,ESFX     IF MODULO NOT POWER OF 2                            GEN          158     A     
 GEN                BX6    -X0                                                             GEN          159     A     
 GEN                =X7    M.INT                                                           GEN          160     A     
 GEN                RJ     NCS         ENTER CONSTANT                                      GEN          161     A     
 GEN                =X2    O=MODP2                                                         GEN          162     A     
 GEN                BX5    X6                                                              GEN          163     A     
 GEN                EQ     ESFX        EXIT..                                              GEN          164     A     
 GEN                                                                                       GEN          165     A     
 GEN       ES.SHIFT BX1    X5                                                              GEN          166     A     
 GEN                RJ     LCT                                                             GEN          167     A     
 GEN                =X2    O=SHIFT                                                         GEN          168     A     
 GEN                LE     B2,ESFX     IF NOT INTEGER CONSTANT                             GEN          169     A     
 GEN                SB7    X6-60                                                           GEN          170     A     
 GEN                =X2    -1                                                              GEN          171     A     
 GEN                =B6    B6-1                                                            GEN          172     A     
 GEN                ZR     X6,EXIT.    IF NULL SHIFT                                       GEN          173     A     
 GEN                ZR     B7,EXIT.    IF NULL SHIFT                                       GEN          174     A     
 GEN                BX7    X0                                                              GEN          175     A     
 GEN                =B6    B6+1                                                            GEN          176     A     
 GEN                RJ     NCS         ENTER CONSTANT                                      GEN          177     A     
 GEN                BX1    X6                                                              GEN          178     A     
 GEN                LX0    X6                                                              GEN          179     A     
 GEN                IFBIT  X0,-SHORT,SHIFT  IF NOT SHORT CONSTANT                          GEN          180     A     
 GEN                AX1    P.SHC                                                           GEN          181     A     
 GEN                NZ     X1,SHIFT    IF MASK CONSTANT NOT POSSIBLE                       GEN          182     A     
 GEN                BX0    X6                                                              GEN          183     A     
 GEN                AX0    P.MSHORT                                                        GEN          184     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1423    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                ZR     X0,SHIFT    IF NOT MASK CONSTANT                                GEN          185     A     
 GEN                                                                                       GEN          186     A     
 GEN      *         SHIFT COUNT MAY NOT BE MASK CONSTANT.  IF MASK CONSTANT                GEN          187     A     
 GEN      *         PRESENT, IT MUST BE CONVERTED TO PROPER NEGATIVE CONSTANT.             GEN          188     A     
 GEN                                                                                       GEN          189     A     
 GEN                =B7    X0-1                                                            GEN          190     A     
 GEN                MX1    1                                                               GEN          191     A     
 GEN                AX1    X1,B7                                                           GEN          192     A     
 GEN                MX0    -L.SHC                                                          GEN          193     A     
 GEN                BX0    -X0*X1                                                          GEN          194     A     
 GEN                LX0    P.SHC                                                           GEN          195     A     
 GEN                SX1    M.SHORT+M.INT                                                   GEN          196     A     
 GEN                BX6    X0+X1                                                           GEN          197     A     
 GEN       SHIFT    BX5    X6                                                              GEN          198     A     
 GEN                =X2    O=SHIFTC                                                        GEN          199     A     
 GEN                SA1    BIFSHF                                                          GEN          200     A     
 GEN                EQ     EXIT.                                                           GEN          201     A     
 GEN                                                                                       GEN          202     A     
 GEN       ES.LOCF  SX2    O=LOCF                                                          GEN          203          I
          -FCC1134
 GEN       ES.LOCF  BX1    X5                                                              FCC1134      102     A     
 GEN                RJ     LCT                                                             FCC1134      103     A     
 GEN                ZR     B2,ES.LOC2  IF NOT CONSTANT                                     FCC1134      104     A     
 GEN                                                                                       FCC1134      105     A     
 GEN       ES.LOC1  BX6    X5                                                              FCC1134      106     A     
 GEN                =B6    B6-1                                                            FCC1134      107     A     
 GEN                =A6    B6-1                                                            FCC1134      108     A     
 GEN                FATAL  =XE.IN1                                                         FCC1134      109     A     
 GEN                =X2    -1                                                              FCC1134      110     A     
 GEN                EQ     EXIT.                                                           FCC1134      111     A     
 GEN                                                                                       FCC1134      112     A     
 GEN       ES.LOC2  BX0    X5                                                              FCC1134      113     A     
 GEN                LX0    59-P.INTR                                                       FCC1134      114     A     
 GEN                BX6    X5                                                              FCC1134      115     A     
 GEN                LX6    59-P.ARY                                                        FCC1134      116     A     
 GEN                BX6    X0-X6                                                           FCC1134      117     A     
 GEN                MI     X6,ES.LOC1  IF NOT ARRAY OR TAG                                 FCC1134      118     A     
 GEN                SX0    M.ADDR+M.LCF                                                    FCC1134      119     A     
 GEN                MX2    -L.MODE                                                         FCC1134      120     A     
 GEN                LX2    P.MODE                                                          FCC1134      121     A     
 GEN                BX5    X2*X5       MODE = UNIV                                         FCC1134      122     A     
 GEN                BX6    X5+X0                                                           FCC1134      123     A     
 GEN                =X2    -1                                                              FCC1134      124     A     
 GEN                =B6    B6-1        REPLACE LOCF(ARG) WITH ADDR(ARG)                    FCC1134      125     A     
 GEN                =A6    B6-1                                                            FCC1134      126     A     
 GEN                EQ     EXIT.                                                           GEN          204     A     
 GEN                                                                                       GEN          205     A     
 GEN       ES.RANF  SX6    B4                                                              GEN          206     A     
 GEN                SA1    S.RANDM                                                         GEN          207     A     
 GEN                SA6    SCR                                                             GEN          208     A     
 GEN                BX7    X1                                                              GEN          209     A     
 GEN                =A7    A6+1                                                            GEN          210     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1424    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                TAGSEX A7          TAG *RANDOM.*                                       GEN          211     A     
 GEN                SA2    SCR                                                             GEN          212     A     
 GEN                BX1    X6                                                              GEN          213     A     
 GEN                SB4    X2          RESTORE *B4*                                        GEN          214     A     
 GEN                BX1    X6                                                              GEN          215     A     
 GEN                RJ     CT2         GET PASS *2* TAG                                    GEN          216     A     
 GEN                =X3    1                                                               GEN          217     A     
 GEN                BX5    X6          =XRANDOM                                            GEN          218     A     
 GEN                LX3    P.2BIAS                                                         GEN          219     A     
 GEN                IX4    X3+X6       =XRANDOM+1                                          GEN          220     A     
 GEN                SA3    RANF                                                            GEN          221     A     
 GEN                BX6    X3                                                              GEN          222     A     
 GEN                SA6    SOPR                                                            GEN          223     A     
 GEN                RJ     ADT                                                             GEN          224     A     
 GEN                =X2    STR.I                                                           GEN          225          I
          -FCC0966
 GEN                =A4    B6-1                                                            GEN          226          I
          -FCC0966
 GEN                =B6    B6+1                                                            GEN          227          I
          -FCC0966
 GEN                SA1    BIFRAN                                                          GEN          228          I
          -FCC0966
 GEN                =X2    -1                                                              FCC0966       17     A     
 GEN                EQ     EXIT.                                                           GEN          229     A     
 GEN                                                                                       GEN          230     A     
 GEN       ES.AND   SX2    O=AND                                                           GEN          231     A     
 GEN                EQ     EXIT.                                                           GEN          232     A     
 GEN                                                                                       GEN          233     A     
 GEN       ES.OR    SX2    O=OR                                                            GEN          234     A     
 GEN                EQ     EXIT.                                                           GEN          235     A     
 GEN                                                                                       GEN          236     A     
 GEN       ES.XOR   SX2    O=XOR                                                           GEN          237     A     
 GEN                EQ     EXIT.                                                           GEN          238     A     
 GEN                                                                                       GEN          239     A     
 GEN       ES.COMPL SX2    O=COMPL                                                         GEN          240     A     
 GEN                EQ     EXIT.                                                           GEN          241     A     
 GEN       MXP      SPACE  4,8                                                             GEN          242     A     
 GEN      **        MARK EXTERNAL PROCESS BLOCK START.                                     GEN          243     A     
 GEN      *                                                                                GEN          244     A     
 GEN      *         ENTRY  TT.PAR SET TO CURRENT LENGTH                                    GEN          245     A     
 GEN      *                                                                                GEN          246     A     
 GEN      *         EXIT   O=EPO ENTERED INTO PARSED FILE.                                 GEN          247     A     
 GEN      *         USES   CANNOT DESTROY X4,X5  B4,B5,B6                                  GEN          248     A     
 GEN                                                                                       GEN          249     A     
 GEN                                                                                       GEN          250     A     
 GEN       MXP      SUBR               ENTRY/EXIT...                                       GEN          251     A     
 GEN                SA2    TT=PAR                                                          GEN          252     A     
 GEN                SA1    TT.PAR                                                          GEN          253     A     
 GEN                ZR     X2,MXP5     IF START OF NEW BLOCK                               GEN          254     A     
 GEN                IX0    X1+X2                                                           GEN          255     A     
 GEN                SA3    X0-L.TURP                                                       GEN          256     A     
 GEN                SB7    X3-O.MXP                                                        GEN          257     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1425    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                ZR     B7,EXIT.    IF LAST TURPLE IS *MXP* TURPLE                      GEN          258     A     
 GEN       MXP5     ALLOC  A1,L.TURP                                                       GEN          259     A     
 GEN                SA1    LINENO                                                          GEN          260          I
          -FEAT155E 
 GEN                RJ     DXB         CONVERT LINE NUMBER TO OCTAL                        GEN          261          I
          -FEAT155E 
 GEN                SA1    REFLIN                                                          FEAT155E     298     A     
 GEN                AX1    CHAR                                                            FEAT155E     299     A     
 GEN                BX6    X1                                                              FEAT155E     300     A     
 GEN                SA6    =XTRLINE    STORE LINE NO. FOR TRACEBACK USE                    GEN          262     A     
 GEN                LX6    P.TRC       PUT IN BITS 18-29 OF TURPLE OPERANDS 1 , 2          FCC0744       12     A     
 GEN                SA2    XPOP                                                            GEN          263     A     
 GEN                SA6    B7-1                                                            GEN          264     A     
 GEN                BX7    X2                                                              GEN          265     A     
 GEN                =A6    A6-1                                                            GEN          266     A     
 GEN                =A7    A6-1                                                            GEN          267     A     
 GEN                SX6    B7-L.TURP                                                       GEN          268          I
          -FEAT155G 
 GEN                SA6    XPF         INITIALIZE *XPF*                                    GEN          269          I
          -FEAT155G 
 GEN                EQ     EXIT.                                                           GEN          270     A     
 GEN                                                                                       GEN          271          I
          -FEAT155G 
 GEN       XPF      DATA   0           EXTERNAL PROCESS FLAG                               GEN          272          I
          -FEAT155G 
 GEN       RXL      SPACE  4,8                                                             GEN          273          I
          -FEAT155G 
 GEN      **        RXL -  RESET EXTERNAL LINK                                             GEN          274          I
          -FEAT155G 
 GEN      *                                                                                GEN          275          I
          -FEAT155G 
 GEN      *         GENERAL SCHEME                                                         GEN          276          I
          -FEAT155G 
 GEN      *         ANY TIME A SEQUENCE OF TURPLES MUST BE PROCESSED OUT OF                GEN          277          I
          -FEAT155G 
 GEN      *         SEQUENTIAL ORDER A CALL TO *RXL* MUST BE MADE TELLING *MXP*            GEN          278          I
          -FEAT155G 
 GEN      *         THE STARTING ORDINAL IN THE PARSE FILE OF THE CODE TO PROCESS.         GEN          279          I
          -FEAT155G 
 GEN      *         *RXL* WILL LINK THE CURRENT FUNCTION PROCESS TO ANY THAT MAY           GEN          280          I
          -FEAT155G 
 GEN      *         HAVE OCCURRED BEFORE WITHIN THIS CURRENT PARSED BLOCK THEREBY          GEN          281          I
          -FEAT155G 
 GEN      *         GUARANTEEING THAT ALL FUNCTIONS ARE EVALUATED IN THE RIGHT             GEN          282          I
          -FEAT155G 
 GEN      *         ORDER AND WITHOUT CAUSING A BASIC BLOCK BREAK.                         GEN          283          I
          -FEAT155G 
 GEN      *                                                                                GEN          284          I
          -FEAT155G 
 GEN      *         INITIALLY WITH THE START OF EACH BUILD BLOCK A *RXL* TURPLE            GEN          285          I
          -FEAT155G 
 GEN      *         IS ADDED TO THE PARSED FILE.  AS EACH CALL IS MAKE TO *XPF*            GEN          286          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1426    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
          -FEAT155G 
 GEN      *         THE INITIAL ENTRY SET WILL BE UPDATED TO LINK TO THE NEXT WITH         GEN          287          I
          -FEAT155G 
 GEN      *         THE CURRENT *XPF* TURPLE HAVING A ZERO LINK.                           GEN          288          I
          -FEAT155G 
 GEN      *                                                                                GEN          289          I
          -FEAT155G 
 GEN      *         ENTRY  (X2) = FWA OF EXTERNAL PROCESS (RELATIVE TO TT.PAR)             GEN          290          I
          -FEAT155G 
 GEN      *                                                                                GEN          291          I
          -FEAT155G 
 GEN      *         USES   CANNOT DESTROY X3,X4,X5  B4,B5,B6                               GEN          292          I
          -FEAT155G 
 GEN                                                                                       GEN          293          I
          -FEAT155G 
 GEN                                                                                       GEN          294          I
          -FEAT155G 
 GEN       RXL      SUBR   0                                                               GEN          295          I
          -FEAT155G 
 GEN                BX6    X2                                                              GEN          296          I
          -FEAT155G 
 GEN                SA1    XPF                                                             GEN          297          I
          -FEAT155G 
 GEN                SA2    TT.PAR                                                          GEN          298          I
          -FEAT155G 
 GEN                IX0    X1+X2                                                           GEN          299          I
          -FEAT155G 
 GEN                SA6    X0          RESET LAST EXTERNAL, LINKING IT TO THIS             GEN          300          I
          -FEAT155G 
 GEN                SA2    TT=PAR                                                          GEN          301          I
          -FEAT155G 
 GEN                SX6    X2+2                                                            GEN          302          I
          -FEAT155G 
 GEN                SA6    A1          RESET *XPF*                                         GEN          303          I
          -FEAT155G 
 GEN                EQ     RXLX        EXIT..                                              GEN          304          I
          -FEAT155G 
 GEN       VAM      SPACE  4,8                                                             GEN          305     A     
 GEN      **        VAM -  VALIDATE ARGUMENT MODE AGREEMENT FOR INTRINSICS                 GEN          306     A     
 GEN      *                                                                                GEN          307     A     
 GEN      *         ENTRY  (X1) = ARGUMENT TO CHECK                                        GEN          308     A     
 GEN      *                (X2) = DEFINED ARGUMENT MODE IN LOWER 18 BITS                   GEN          309     A     
 GEN      *                (X3) = FUNCTION NAME, 42/NAME,18/GARBAGE, IGNORED.              GEN          310     A     
 GEN      *                                                                                GEN          311     A     
 GEN      *         EXIT   (X0) = 0 MODE AGREEMENT                                         GEN          312     A     
 GEN      *                     " 0,MODE MISMATCH, (X1) = TAG WITH MODE CHANGED            GEN          313     A     
 GEN      *                         CORRECT MODE.                                          GEN          314     A     
 GEN      *                (X7) = MODE BITS OF ARGUMENT                                    GEN          315     A     
 GEN      *                                                                                GEN          316     A     
 GEN      *         USES   X0,X1,X2,X7  B7                                                 GEN          317     A     
 GEN      *                (FILL. IF ERROR FOUND IN ARGUMENT.)                             GEN          318     A     
 GEN                                                                                       GEN          319     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1427    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                                                                                       GEN          320     A     
 GEN       VAM      SUBR               ENTRY/EXIT...                                       GEN          321     A     
 GEN                SX2    X2                                                              GEN          322     A     
 GEN                MX0    -L.MODE                                                         GEN          323     A     
 GEN                BX7    -X0*X1                                                          GEN          324     A     
 GEN                BX0    X7-X2                                                           GEN          325     A     
 GEN                ZR     X0,EXIT.    IF MODE AGREEMENT                                   GEN          326     A     
 GEN                =X0    0                                                               GEN          327     A     
 GEN                ZR     X2,EXIT.    IF DEFINED MODE IS TYPELESS                         GEN          328     A     
 GEN                NZ     X7,VAM1     IF ARGUMENT IS NOT TYPELESS                         GEN          329     A     
 GEN                SX2    X2-M.DBL                                                        GEN          330     A     
 GEN                MI     X2,EXIT.    IF DEFINED MODE IS SINGLE TYPE                      GEN          331     A     
 GEN       VAM1     MX0    L.SYM                                                           GEN          332     A     
 GEN                BX6    X0*X3                                                           GEN          333     A     
 GEN                SA6    FILL.                                                           GEN          334     A     
 GEN                FATAL  E.SU3                                                           GEN          335     A     
 GEN                =X7    M.UNIV      MODE BITS = UNIVERSAL                               GEN          336     A     
 GEN                EQ     EXIT.                                                           GEN          337     A     
 GEN       VEL      EJECT  4,20                                                            GEN          338     A     
 GEN      **        VEL -  VALIDATE ARGUMENT LIST FOR EXTERNAL.                            GEN          339     A     
 GEN      *                                                                                GEN          340     A     
 GEN      *         ENTRY  (X2) = NUMBER OF ARGUMENT -1                                    GEN          341     A     
 GEN      *                (X4) = CURRENT ROUTINE TAG                                      GEN          342     A     
 GEN      *                                                                                GEN          343     A     
 GEN      *         EXIT   IF 1ST REFERENCE                                                GEN          344     A     
 GEN      *                (PARM) FIELD SET INTO SYMBOL TABLE                              GEN          345     A     
 GEN      *                ARGUMENT COUNT CHECKED AGAINST *MAX.SARG*                       GEN          346     A     
 GEN      *                IF NOT 1ST REFERENCE                                            GEN          347     A     
 GEN      *                CHECK AGAINST DEFINED ARGUMENT COUNT.                           GEN          348     A     
 GEN      *                ARGUMENT COUNT CHECKED AGAINST *MAX.SARG*                       GEN          349     A     
 GEN      *                                                                                GEN          350     A     
 GEN      *                (X3) = PERSERVED.                                               GEN          351     A     
 GEN      *                                                                                GEN          352     A     
 GEN      *         USES   A1,A2,A3,A4,A6  X0  B2,B3,B7                                    GEN          353     A     
 GEN                                                                                       GEN          354     A     
 GEN                                                                                       GEN          355     A     
 GEN       VEL      SUBR               ENTRY/EXIT...                                       GEN          356     A     
 GEN                SA1    TS.SYM                                                          GEN          357     A     
 GEN                AX4    P.2TAG                                                          GEN          358     A     
 GEN                =X2    X2+1        ACTUAL ARGUMENT COUNT                               GEN          359     A     
 GEN                SB2    X4-C.SYM                                                        GEN          360     A     
 GEN                =X0    M.DEF                                                           GEN          361     A     
 GEN                SA4    X1+B2       TAG FROM SYMBOL TABLE                               GEN          362     A     
 GEN                BX1    X0*X4                                                           GEN          363     A     
 GEN                SB2    X2-MAX.SARG                                                     GEN          364     A     
 GEN                NZ     X1,VEL30    IF ALREADY DEFINED                                  GEN          365     A     
 GEN                LX2    P.UARGC                                                         GEN          366     A     
 GEN                BX7    X4+X0       SET DEFINED BIT                                     GEN          367     A     
 GEN                IX6    X7+X2       SET ARGUMENT COUNT                                  GEN          368     A     
 GEN                SB7    E.SU8       EXCEEDS COMPILER LIMITS                             GEN          369     A     
 GEN                GT     B2,VEL50    IF EXCEEDS COMPILER DEFINED LIMITS                  GEN          370     A     
 GEN                SA6    A4          RESET IN SYMBOL TABLE WITH PARMS+DEFINED            GEN          371     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1428    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                EQ     EXIT.                                                           GEN          372     A     
 GEN                                                                                       GEN          373     A     
 GEN                                                                                       GEN          374     A     
 GEN      **        HERE IF NOT 1ST REFERENCE TO EXTERNAL                                  GEN          375     A     
 GEN      *         (X2) = ARGUMENT COUNT.                                                 GEN          376     A     
 GEN                                                                                       GEN          377     A     
 GEN       VEL30    MX0    -L.UARGC                                                        GEN          378     A     
 GEN                LX4    -P.UARGC                                                        GEN          379     A     
 GEN                BX0    -X0*X4      LAST ARGUMENT COUNT                                 GEN          380     A     
 GEN                SB7    E.SU2       IN CASE OF ERROR.                                   GEN          381     A     
 GEN       VEL40    IX6    X0-X2                                                           GEN          382     A     
 GEN                NZ     X6,VEL50    IF ARGUMENT COUNT NON-AGREEMENT.                    GEN          383     A     
 GEN                SB7    E.SU8       EXCEEDS COMPILER LIMITS                             GEN          384     A     
 GEN                LE     B2,EXIT.    IF DOES NOT EXCEED COMPILER DEFINED LIMITS          GEN          385     A     
 GEN                                                                                       GEN          386     A     
 GEN      **        ARGUMENT COUNT DOES NOT AGREE WITH LAST USAGE OR WITH DEFINED          GEN          387     A     
 GEN      *         *ANSI*.                                                                GEN          388     A     
 GEN                                                                                       GEN          389     A     
 GEN                                                                                       GEN          390     A     
 GEN       VEL50    =A2    A4-1        LOAD SYMBOL ENTRY                                   GEN          391     A     
 GEN                MX1    L.SYM                                                           GEN          392     A     
 GEN                BX6    X1*X2                                                           GEN          393     A     
 GEN                SA6    FILL.                                                           GEN          394     A     
 GEN                FATAL  B7                                                              GEN          395     A     
 GEN                EQ     EXIT.                                                           GEN          396     A     
 GEN       VIL      EJECT  4,20                                                            GEN          397     A     
 GEN      **        VIL -  TERMINATE ARGUMENT LIST PROCESSING.                             GEN          398     A     
 GEN      *                                                                                GEN          399     A     
 GEN      *         ENTRY  (X2) = NUMBER OF ARGUMENT -1                                    GEN          400     A     
 GEN      *                (X4) = CURRENT ROUTINE TAG                                      GEN          401     A     
 GEN      *                                                                                GEN          402     A     
 GEN      *         EXIT   (X3) = PERSERVED.                                               GEN          403     A     
 GEN      *                (A4) _ TAG TABLE ENTRY OF ROUTINE.                              GEN          404     A     
 GEN      *                                                                                GEN          405     A     
 GEN      *         USES   A1,A2,A3,A4,A6  X0  B2,B3,B7                                    GEN          406     A     
 GEN                                                                                       GEN          407     A     
 GEN                                                                                       GEN          408     A     
 GEN       VIL      SUBR               ENTRY/EXIT...                                       GEN          409     A     
 GEN                SA1    TS.SYM                                                          GEN          410     A     
 GEN                AX4    P.2TAG                                                          GEN          411     A     
 GEN                =X2    X2+1        ACTUAL ARGUMENT COUNT                               GEN          412     A     
 GEN                SB2    X4-C.SYM                                                        GEN          413     A     
 GEN                SA4    X1+B2       SYMBOL TABLE ENTRY                                  GEN          414     A     
 GEN                                                                                       GEN          415     A     
 GEN      **        HERE IF NOT 1ST REFERENCE TO EXTERNAL                                  GEN          416     A     
 GEN      *         (X2) = ARGUMENT COUNT.                                                 GEN          417     A     
 GEN                                                                                       GEN          418     A     
 GEN       VIL30    MX0    -L.ARGC                                                         GEN          419     A     
 GEN                LX4    -P.ARGC                                                         GEN          420     A     
 GEN                BX0    -X0*X4      DEFINED ARGUMENT COUNT                              GEN          421     A     
 GEN                SB7    E.SU10      IN CASE OF ERROR.                                   GEN          422     A     
 GEN                SB2    X2                                                              GEN          423     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1429    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                NZ     X0,VIL40    IF NOT INFINITE ARGUMENT COUNT TYPE                 GEN          424     A     
 GEN                GT1    B2,EXIT.    IF NOT ONE ARGUMENT                                 GEN          425     A     
 GEN                SB7    E.SU9                                                           GEN          426     A     
 GEN                EQ     VIL50       OUTPUT ERROR                                        GEN          427     A     
 GEN                                                                                       GEN          428     A     
 GEN       VIL40    IX6    X0-X2                                                           GEN          429     A     
 GEN                ZR     X6,EXIT.    IF ARGUMENT COUNT AGREEMENT                         GEN          430     A     
 GEN                                                                                       GEN          431     A     
 GEN      **        ARGUMENT DOES NOT AGREE WITH DEFINED COUNT OF INTRINSIC                GEN          432     A     
 GEN                                                                                       GEN          433     A     
 GEN       VIL50    =A2    A4-1        LOAD SYMBOL                                         GEN          434     A     
 GEN                MX1    L.SYM                                                           GEN          435     A     
 GEN                BX6    X1*X2                                                           GEN          436     A     
 GEN                SA6    FILL.3                                                          GEN          437     A     
 GEN                FATAL  B7                                                              GEN          438     A     
 GEN                EQ     EXIT.                                                           GEN          439     A     
 GEN       SUBS     SECT   (S U B S C R I P T S),1                                         GEN          440     A     
 GEN       SUBSPTS  EJECT  4,20                                                            GEN          441     A     
 GEN       SUBSPTS  EJECT  4,20                                                            GEN          442     A     
 GEN      **        SUBSCRIPTS - FOLLOWING SECTION CONTAINS ALL CODE RELATED TO            GEN          443     A     
 GEN      *         PASS 1, AND PASS 2 PROCESSING OF SUBSCRIPTS.                           GEN          444     A     
 GEN      *                                                                                GEN          445     A     
 GEN      *         1.  GENERAL DESCRIPTION OF ACTION TAKEN DURING PASS 1.                 GEN          446     A     
 GEN      *                                                                                GEN          447     A     
 GEN      *         2.  GENERAL DESCRIPTION OF ACTION TAKEN DURING PASS 2.                 GEN          448     A     
 GEN                                                                                       GEN          449     A     
 GEN       MIS      SPACE  4,20                                                            GEN          450     A     
 GEN      **        MISCELLANEOUS CONSTANTS USED BY SUBSCRIPT PROCESSORS.                  GEN          451     A     
 GEN      *                                                                                GEN          452     A     
 GEN      *         *DIM* = DIMENSION LENGTH.                                              GEN          453     A     
 GEN      **T DIM   60/DIMENSION LENGTH                                                    GEN          454     A     
 GEN      *                                                                                GEN          455     A     
 GEN      *         *DIMUL* = CURRENT SUBSCRIPT MULTIPLIER.                                GEN          456     A     
 GEN      **T DIMUL 60/CURRENT SUBSCRIPT MULTIPLIER.                                       GEN          457     A     
 GEN      *                                                                                GEN          458     A     
 GEN      *         *DIMBIAS* = BIAS FOR SUBSCRIPT.                                        GEN          459     A     
 GEN      **T DIMBIAS 12/0,24/RUNNING TOTAL,24/CURRENT BIAS                                GEN          460     A     
 GEN      *                                                                                GEN          461     A     
 GEN      *         *DIMSYM* = SYMBOL FOR ARRAY BEING PROCESSED.                           GEN          462     A     
 GEN      **T DIMSYM  18/SATAG,5/0,1/A,18/SVBIAS,18/SDIMNO                                 GEN          463     A     
 GEN      *         *A* = *SANSI*                                                          GEN          464     A     
 GEN                                                                                       GEN          465     A     
 GEN                                                                                       GEN          466     A     
 GEN       DIM      DATA   0           DIMENSION LENGTH.                                   GEN          467     A     
 GEN       DIMUL    DATA   0           CURRENT SUBSCRIPT MULTIPLIER.                       GEN          468     A     
 GEN       DIMBIAS  DATA   0           BIAS FOR SUBSCRIPT.                                 GEN          469     A     
 GEN                                                                                       GEN          470     A     
 GEN       DIMSYM   DATA   0           SYMBOL FOR ARRAY CURRENTLY PROCESSING.              GEN          471     A     
 GEN       SDIMNO   DEFINE 0,18        CURRENT DIMENSION NUMBER.                           GEN          472     A     
 GEN       SVBIAS   DEFINE 18,MAX.DIM  INDICATE DIMENSIONALITY IS A VARIABLE               GEN          473     A     
 GEN       SANSI    DEFINE 36          NO ANSI ERROR FOUND IF 0                            GEN          474     A     
 GEN                IFGT   P.SVBIAS+L.SVBIAS,P.SATAG,1                                     GEN          475     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1430    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       9        ERR    NUMBER OF SUBSCRIPTS DEFINED EXCEEDS COMPILER LIMITS            GEN          476     A     
 GEN       SUBERR   SPACE  4,8                                                             GEN          477     A     
 GEN      **        SUBERR - SUBSCRIPT ERROR MACRO                                         GEN          478     A     
 GEN      *                                                                                GEN          479     A     
 GEN      *         SUBERR ERRADDR                                                         GEN          480     A     
 GEN      *                                                                                GEN          481     A     
 GEN      *         ERRADDR = ERROR SKELETON ADDRESS (B7).                                 GEN          482     A     
 GEN      *                   MUST HAVE RETURN ADDRESS = *.                                GEN          483     A     
 GEN                                                                                       GEN          484     A     
 GEN                                                                                       GEN          485     A     
 GEN       SUBERR   MACRO  ERRADDR                                                         GEN          486     A     
 GEN                =B7    ERRADDR                                                         GEN          487     A     
 GEN                RJ     OSE                                                             GEN          488     A     
 GEN       SUBERR   ENDM                                                                   GEN          489     A     
 GEN       CSR      SPACE  4,8                                                             GEN          490     A     
 GEN      **        CSR -  CHECK SUBSCRIPT RESULTS                                         GEN          491     A     
 GEN      *                                                                                GEN          492     A     
 GEN      *         ENTRY  (X1) = RESULTS FROM SUBSCRIPT JUST FINISHED PROCESSING          GEN          493     A     
 GEN      *                (X4) = ARGCOMA                                                  GEN          494     A     
 GEN      *                (DIMBIAS) = LOWER 24 BITS = ADDIN CONSTANTS FOUND BY            GEN          495     A     
 GEN      *                            *PSO* WHILE PROCESSING CURRENT SUBSCRIPT            GEN          496     A     
 GEN      *                                                                                GEN          497     A     
 GEN      *         EXIT   (X4) = (ARGCOMA)                                                GEN          498     A     
 GEN      *                (X6) = (DIMBIAS) UPDATED                                        GEN          499     A     
 GEN      *                (SRES)= 0, IF RESULTS OF SUBSCRIPT NOT A CONSTANT.              GEN          500     A     
 GEN      *                           OTHERWISE BINARY OF SUBSCRIPT CONSTANT.              GEN          501     A     
 GEN      *                                                                                GEN          502     A     
 GEN      *         USES   A1,A2,A3  X0  B2,B7                                             GEN          503     A     
 GEN                                                                                       GEN          504     A     
 GEN                                                                                       GEN          505     A     
 GEN       CSR      SUBR               ENTRY/EXIT..                                        GEN          506     A     
 GEN                                                                                       GEN          507     A     
 GEN       SNAP=S   IFNE   TEST        DUMP REGISTERS IF SNAP=S                            GEN          508     A     
 GEN                SA2    CO.SNAP                                                         GEN          509     A     
 GEN                LX2    1RS                                                             GEN          510     A     
 GEN                PL     X2,CSR1SN   IF *S* SNAP NOT SELECTED                            GEN          511     A     
 GEN       CSR      REG                                                                    GEN          512     A     
 GEN       CSR1SN   BSS    0                                                               GEN          513     A     
 GEN       SNAP=S   ENDIF                                                                  GEN          514     A     
 GEN                                                                                       GEN          515     A     
 GEN                MX0    -L.MODE                                                         GEN          516     A     
 GEN                BX0    -X0*X1                                                          GEN          517     A     
 GEN                =B2    X0-M.INT                                                        GEN          518     A     
 GEN                ZR     B2,CSR5     IF SUBSCRIPT RESULTS INTEGER.                       GEN          519     A     
 GEN                =B2    X0-M.UNIV                                                       FCC0498       47     A     
 GEN                ZR     B2,CSR5     IF SUBSCRIPT RESULTS MODELESS                       FCC0498       48     A     
 GEN                BX6    X4                                                              GEN          520     A     
 GEN                SA6    MODECON     SAVE *ARGCOMA*                                      GEN          521     A     
 GEN                =X7    B6-1                                                            GEN          522     A     
 GEN                RJ     ISR         INTEGERIZE SUBSCRIPT                                GEN          523     A     
 GEN                SA4    MODECON     RESTORE *ARGCOMA*                                   GEN          524     A     
 GEN       CSR5     RJ     LCT         CHECK IF CONSTANT RESULTS                           GEN          525     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1431    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SA1    DIMBIAS                                                         GEN          526     A     
 GEN                MX0    -L.2BIAS                                                        GEN          527     A     
 GEN                SA6    SRES        SET FLAG FOR SUBSCRIPT RESULTS                      GEN          528          I
          -FCC1210
 GEN                SX7    B2                                                              FCC1210        5     A     
 GEN                SA6    SRES        SUBSCRIPT RESULT                                    FCC1210        6     A     
 GEN                =A7    A6-SRES+SIND  SUBSCRIPT INDICATOR                               FCC1210        7     A     
 GEN                SA3    DIMUL       CURRENT MULTIPLIER                                  GEN          529     A     
 GEN                BX2    -X0*X1      CONSTANTS FOUND WITHIN SUBSCRIPT                    GEN          530     A     
 GEN                LX2    60-L.2BIAS                                                      GEN          531     A     
 GEN                AX2    60-L.2BIAS  CURRENT BIAS                                        GEN          532     A     
 GEN                MI     X3,CSR6     IF CONSTANT TERM                                    GEN          533     A     
 GEN                =X5    X2-1                                                            GEN          534     A     
 GEN                DX5    X5*X3       (BIAS - 1) * MULTIPLIER                             GEN          535     A     
 GEN                IX7    X5+X6       ADD ANY CONSTANT RESULT TO BIAS                     GEN          536     A     
 GEN                EQ     CSR12                                                           GEN          537     A     
 GEN                                                                                       GEN          538     A     
 GEN       CSR6     LX5    B1,X3                                                           GEN          539     A     
 GEN                IX7    X2+X6       BIAS+CONSTANT RESULT                                GEN          540     A     
 GEN                MI     X5,CSR20    IF VARIABLE DIMENSION MULTIPLIER                    GEN          541     A     
 GEN                AX6    B1,X5       ACTUAL MULTIPLIER                                   GEN          542     A     
 GEN                IX7    X7-X6       SUBTRACT MULTIPLIER FROM BIAS                       GEN          543     A     
 GEN                SA6    A3                                                              GEN          544     A     
 GEN                                                                                       GEN          545     A     
 GEN      *         (X1) = LAST BIAS   36/ LAST BIAS, 24/GARBAGE                           GEN          546     A     
 GEN      *         (X7) = BIAS FOUND WITHIN CURRENT SUBSCRIPT, 36/GARBAGE,24/BIAS         GEN          547     A     
 GEN                                                                                       GEN          548     A     
 GEN       CSR12    AX1    24                                                              GEN          549     A     
 GEN                IX6    X1+X7       ADD IN LAST BIAS - CLEAR CURRENT                    GEN          550     A     
 GEN                LX6    24                                                              GEN          551     A     
 GEN                SA6    DIMBIAS     RESET DIMBIAS                                       GEN          552     A     
 GEN                EQ     EXIT.                                                           GEN          553     A     
 GEN      *                                                                                GEN          554     A     
 GEN      *          CURRENT MULTIPLIER IS VARIABLE....OUTPUT TURPLES                      GEN          555     A     
 GEN      *                 (1) VARIABLE MULTIPLIER*CURRENT BIAS                           GEN          556     A     
 GEN      *                 (2) CURRENT RESULT + INTERMEDIATE OF (1)                       GEN          557     A     
 GEN      *                                                                                GEN          558     A     
 GEN      *          (X2) = CURRENT BIAS                                                   GEN          559     A     
 GEN      *          (X3) = -VARIABLE MULTIPLIER TAG (P.2TAG PORTION ONLY)                 GEN          560     A     
 GEN      *                                                                                GEN          561     A     
 GEN       CSR20     =X2    X2-1                                                           GEN          562          I
          -FCC0868
 GEN       CSR20    =X2    X2-1                                                            FCC0868        5     A     
 GEN                =B2    X2-1                                                            FCC0868        6     A     
 GEN                =X7    0                                                               GEN          563     A     
 GEN                ZR     X2,CSR12    UPDATE DIMBIAS, CURRENT BIAS=0.                     GEN          564     A     
 GEN                BX5    -X3                                                             GEN          565     A     
 GEN                SX1    M.INT+M.2PRO                                                    FCC0868        7     A     
 GEN                LX5    P.2TAG      GENERATE PASS 2 VARIABLE TAG                        FCC0868        8     A     
 GEN                IX5    X5+X1       PASS 2 VARDIM TAG                                   FCC0868        9     A     
 GEN                LX6    X4                                                              GEN          566     A     
 GEN                SB6    B6+2                                                            GEN          567     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1432    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SA7    ATTR        CLEAR ATTRIBUTES CELL                               GEN          568     A     
 GEN                SA6    CSRA        SAVE *X4*                                           GEN          569          I
          -FCC0868
 GEN                LX6    X2          CONSTANT BIAS                                       GEN          570          I
          -FCC0868
 GEN                SA6    CSRA        SAVE *X4*                                           FCC0868       10     A     
 GEN                NZ     B2,CSR25    IF DIMBIAS " 1                                      FCC0868       11     A     
 GEN                BX6    X5                                                              FCC0868       12     A     
 GEN                =B6    B6-1                                                            FCC0868       13     A     
 GEN                =A6    B6-1                                                            FCC0868       14     A     
 GEN                EQ     CSR30                                                           FCC0868       15     A     
 GEN       CSR25    LX6    X2          CONSTANT BIAS                                       FCC0868       16     A     
 GEN                RJ     NCS         GENERATE CORRECT CONSTANT TAG.                      GEN          571     A     
 GEN      *                            (X6) = CONSTANT TAG                                 GEN          572     A     
 GEN      *                            (X5) = V.TAG                                        GEN          573     A     
 GEN                =X2    M.INT+M.2PRO                                                    GEN          574          I
          -FCC0868
 GEN                LX5    P.2TAG      GENERATE PASS 2 VARIABLE TAG                        GEN          575          I
          -FCC0868
 GEN                BX4    X6          CONSTANT TAG                                        GEN          576     A     
 GEN                IX5    X5+X2       PASS 2 VARDIM TAG                                   GEN          577          I
          -FCC0868
 GEN                SA2    MULT        MULTIPLY OPERATOR                                   GEN          578     A     
 GEN                MX0    -L.SBPR                                                         GEN          579     A     
 GEN                SX1    O.MULT                                                          GEN          580     A     
 GEN                BX3    X0*X2       CLEAR *SB* PRIORITY                                 GEN          581     A     
 GEN                IX6    X3+X1       PASS 2 MULTIPLY OPERATOR                            GEN          582     A     
 GEN                LX3    X6                                                              GEN          583     A     
 GEN                SA6    SOPR        SET CURRENT OPERATOR                                GEN          584     A     
 GEN                RJ     SDM                                                             GEN          585     A     
 GEN                RJ     ADT         PUT TURPLE ON TT.PAR FILE                           GEN          586     A     
 GEN                SA2    PLUS        PLUS OPERATOR WORD                                  GEN          587          I
          -FCC0868
 GEN       CSR30    SA2    PLUS        PLUS OPERATOR WORD                                  FCC0868       17     A     
 GEN                SX1    O.PL                                                            GEN          588     A     
 GEN                MX0    -L.SBPR                                                         GEN          589     A     
 GEN                =A5    B6-1        RESULT OF MULTIPLY TURPLE                           GEN          590     A     
 GEN                BX3    X0*X2       CLEAR *SB* PRIORITY FROM OPERATOR                   GEN          591     A     
 GEN                =A4    A5-1        RESULT TAG OF CURRENT SUBSCRIPT                     GEN          592     A     
 GEN                IX6    X3+X1       PASS 2 PLUS OPERATOR                                GEN          593     A     
 GEN                LX3    X6                                                              GEN          594     A     
 GEN                SA6    SOPR        SET CURRENT OPERATOR                                GEN          595     A     
 GEN                RJ     SDM                                                             GEN          596     A     
 GEN                RJ     ADT         PUT PLUS TURPLE ON TT.PAR FILE                      GEN          597     A     
 GEN                SA1    DIMBIAS     CURRENT BIAS                                        GEN          598     A     
 GEN                SA4    CSRA        RESTORE *X4*                                        GEN          599     A     
 GEN                =X7    0                                                               GEN          600     A     
 GEN                EQ     CSR12                                                           GEN          601     A     
 GEN       CSRA     BSS    1                                                               GEN          602     A     
 GEN       CVT      SPACE  4,20                                                            GEN          603     A     
 GEN      **        CVT -  COMPUTE *VARDIM* TAG FOR SUBSCRIPT PROCESSORS.                  GEN          604     A     
 GEN      *                                                                                GEN          605     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1433    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *         ENTRY  (B2) = SUBSCRIPT NUMBER FOR V-TAG.                              GEN          606     A     
 GEN      *                (B3) = ORDINAL OF *TP.DIM* INFO FOR THIS ARRAY.                 GEN          607     A     
 GEN      *                                                                                GEN          608     A     
 GEN      *         EXIT   (X6) = V-TAG OF USE FOR SUBSCRIPT MULTIPLIER OR                 GEN          609     A     
 GEN      *                    LENGTH DEPENDING ON ENTRY CONDITIONS DEFINED BY             GEN          610     A     
 GEN      *                    B2.                                                         GEN          611     A     
 GEN      **T       (X6)  L.TAG/V-TAG, L.BIAS/0, L.FPNO/0, L.2CLAS/0, L.MODE/M.INT         GEN          612     A     
 GEN      *                       (PASS *2* FORM)                                          GEN          613     A     
 GEN      *                                                                                GEN          614     A     
 GEN      *         USES   A1,A2,A3,A4,A5,A6,A7  X0  B2,B3,B7                              GEN          615     A     
 GEN      *                (SCR2 - SCR2+3)                                                 GEN          616     A     
 GEN      *         NOTE -- X3,X4,X5 ARE PRESERVED.                                        GEN          617     A     
 GEN      *                                                                                GEN          618     A     
 GEN      *         CALLS  ALLOC                                                           GEN          619     A     
 GEN                                                                                       GEN          620     A     
 GEN                                                                                       GEN          621     A     
 GEN       CVT      SUBR               ENTRY/EXIT...                                       GEN          622     A     
 GEN                SA1    TP.DIM                                                          GEN          623     A     
 GEN                SA2    B2+DIMPT.                                                       GEN          624     A     
 GEN                SB7    X1+B3                                                           GEN          625     A     
 GEN                SX6    B2                                                              GEN          626     A     
 GEN                SA3    X2+B7       LOAD TP.DIM ENTRY                                   GEN          627     A     
 GEN                AX2    18                                                              GEN          628     A     
 GEN                SA6    CVTA                                                            GEN          629     A     
 GEN                BX1    X3                                                              GEN          630     A     
 GEN                ZR     X2,CVT10    IF DIMENSIONALITY IN LOW ORDER                      GEN          631     A     
 GEN                AX3    P.DIM                                                           GEN          632     A     
 GEN       CVT10    BX6    X3                                                              GEN          633     A     
 GEN                IFBIT  X6,-SDIM,CVT20    IF VARDIM TAG NOT PROCESSED                   GEN          634     A     
 GEN                MX0    -L.TAG                                                          GEN          635     A     
 GEN               BX6    -X0*X3      CURRENT V.TAG                                        GEN          636          I
          -FEAT155G 
 GEN                BX6    -X0*X3      CURRENT V.TAG                                       FEAT155G     365     A     
 GEN                LX2    X6                                                              GEN          637     A     
 GEN                LX2    P.2TAG                                                          GEN          638     A     
 GEN                EQ     EXIT.                                                           GEN          639     A     
 GEN                                                                                       GEN          640     A     
 GEN      *         SUBSCRIPT DIMENSIONALITY IS A VARIABLE AND HAS NOT YET BEEN            GEN          641     A     
 GEN      *         PROCESSED INTO A LOCAL *VARDIM* CELL.                                  GEN          642     A     
 GEN      *         (X3) _ SYMBOL TABLE ORDINAL FOR VARIABLE                               GEN          643     A     
 GEN                                                                                       GEN          644     A     
 GEN       CVT20    MX0    -L.TAG                                                          GEN          645     A     
 GEN                SA2    TS.SYM                                                          GEN          646     A     
 GEN                LX7    X4                                                              GEN          647     A     
 GEN                BX6    X5                                                              GEN          648     A     
 GEN                SA7    SCR2        SAVE *X4*                                           GEN          649     A     
 GEN                =A6    A7+1        SAVE *X5*                                           GEN          650     A     
 GEN                BX6    -X0*X3                                                          GEN          651     A     
 GEN                LX3    -P.TDIM-1                                                       GEN          652     A     
 GEN                MI     X3,CVT22    IF CURRENT DIMENSION IS VARIABLE                    GEN          653     A     
 GEN                SX7    M.INT                                                           GEN          654     A     
 GEN                RJ     NCS         GENERATE CORRECT CONSTANT                           GEN          655     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1434    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                BX4    X6                                                              GEN          656     A     
 GEN                EQ     CVT30                                                           GEN          657     A     
 GEN                                                                                       GEN          658     A     
 GEN       CVT22    SB7    X2                                                              GEN          659     A     
 GEN                SA1    X6+B7       VARIABLE DIMENSION                                  GEN          660     A     
 GEN                RJ     CT2         PASS *2* FORM                                       GEN          661     A     
 GEN                BX4    X6                                                              GEN          662     A     
 GEN                NE1    B2,CVT30    IF NOT 1ST SUBSCRIPT                                GEN          663     A     
 GEN      CVT25    BSS    0                                                                GEN          664          I
          -FEAT155G 
 GEN       CVT25    BSS    0                                                               FEAT155G     366     A     
 GEN                ALLOC  T.VDIM,L.TURP                                                   GEN          665     A     
 GEN                =X5    B7-1                                                            GEN          666     A     
 GEN                                                                                       GEN          667     A     
 GEN      *         OUTPUT *O.=* MACRO TO *VARDIM* FILE.                                   GEN          668     A     
 GEN      *         (X5) = NEXT TABLE ENTRY                                                GEN          669     A     
 GEN                                                                                       GEN          670     A     
 GEN                SA2    TG.VDIM     CURRENT VARIABLE DIMENSION TAG                      GEN          671     A     
 GEN               =X6    X2+1                                                             GEN          672     A     
 GEN                SA1    CVTA                                                            GEN          673     A     
 GEN               SA6    A2                                                               GEN          674          I
          -FEAT155G 
 GEN                SA6    A2                                                              FEAT155G     367     A     
 GEN                SB2    X1                                                              GEN          675     A     
 GEN                RJ     SVT         SET VARDIM TAG IN *DIM* TABLE                       GEN          676     A     
 GEN                LX7    X4          DIMENSIONALITY                                      GEN          677     A     
 GEN                BX6    X2          V-TAG                                               GEN          678     A     
 GEN                =A6    X5          OR.2OP = *V-TAG*                                    GEN          679     A     
 GEN                SA3    VD.EQ                                                           GEN          680     A     
 GEN                =A7    A6-1        OR.1OP = VARIABLE DIMENSION                         GEN          681     A     
 GEN                BX6    X3                                                              GEN          682     A     
 GEN                =A6    A7-1                                                            GEN          683     A     
 GEN                EQ     CVT45       SET EXIT CONDITIONS                                 GEN          684     A     
 GEN                                                                                       GEN          685     A     
 GEN      *         SUBSCRIPT NOT LAST ONE TO BE PROCESSED, CHECK IF                       GEN          686     A     
 GEN      *         NEXT TO LAST ONE ALREADY CONVERTED TO LOCAL CELL AND                   GEN          687     A     
 GEN      *         OUTPUT MULTIPLY TO GET CURRENT SUBSCRIPT.                              GEN          688     A     
 GEN      *         (X4) = SYMBOL TABLE TAG FOR DIMENSIONALITY                             GEN          689     A     
 GEN                                                                                       GEN          690     A     
 GEN      CVT30    SA1    DIMUL                                                            GEN          691     A     
 GEN               PL     X1,CVT40    IF FIRST VARIABLE DIMENSION                          GEN          692     A     
 GEN               BX2    -X1         PREVIOUS DIM. MULTIPLIER TAG                         GEN          693     A     
 GEN               SX3    M.INT+M.2PRO                                                     GEN          694     A     
 GEN               LX2    P.2TAG                                                           GEN          695     A     
 GEN               BX5    X2+X3                                                            GEN          696     A     
 GEN      CVT35    ALLOC  T.VDIM,L.TURP                                                    GEN          697     A     
 GEN               LX7    X5          PREVIOUS MULT. TAG (PASS 2 FORMAT)                   GEN          698     A     
 GEN               LX6    X4          CURRENT DIMENSION TAG                                GEN          699     A     
 GEN               SA3    VD.MULT                                                          GEN          700     A     
 GEN               =A7    B7-1                                                             GEN          701     A     
 GEN               LX7    X3                                                               GEN          702     A     
 GEN               =A6    A7-1                                                             GEN          703     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1435    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN               SA1    T.VDIM      ORIGIN OF T.VDIM FILE                                GEN          704     A     
 GEN               =A7    A6-1        MULTIPLY OPERATOR TO T.VDIM                          GEN          705     A     
 GEN               SX2    A7          ADDRESS OF MULTIPLY OPERATOR IN T.VDIM               GEN          706     A     
 GEN               IX3    X2-X1       RELATIVE ADDRESS OF MULTIPLY TURPLE                  GEN          707     A     
 GEN               LX3    P.2TAG                                                           GEN          708     A     
 GEN               SA2    VD.INTR       MAKE INTERMEDIATE TAG FOR STORE TURPLE             GEN          709     A     
 GEN               BX4    X2+X3                                                            GEN          710     A     
 GEN               EQ     CVT25       PUT STORE TURPLE ON T.VDIM FILE                      GEN          711     A     
 GEN      CVT40    LX6    X1          PREVIOUS MULTIPLY CONSTANT                           GEN          712     A     
 GEN               SX7    M.INT                                                            GEN          713     A     
 GEN               RJ     NCS         GENERATE CORRECT CONSTANT TAG                        GEN          714     A     
 GEN               LX5    X6                                                               GEN          715     A     
 GEN               EQ     CVT35       GENERATE NEW MULTIPLIER.                             GEN          716     A     
 GEN                                                                                       GEN          717     A     
 GEN      *         SET EXIT CONDITIONS, RESTORE REGISTERS                                 GEN          718     A     
 GEN      *         (X2) = V-TAG IN LOW ORDER 18 BITS                                      GEN          719     A     
 GEN                                                                                       GEN          720     A     
 GEN       CVT45    SA4    SCR2        RESTORE *X4*                                        GEN          721     A     
 GEN                BX6    X2                                                              GEN          722     A     
 GEN                =A5    A4+1        RESTORE *X5*                                        GEN          723     A     
 GEN               AX6    P.2TAG                                                           GEN          724          I
          -FEAT155G 
 GEN                AX6    P.2TAG                                                          FEAT155G     368     A     
 GEN                EQ     EXIT.                                                           GEN          725     A     
 GEN                                                                                       GEN          726     A     
 GEN                BSS    0                                                               GEN          727     A     
 GEN       DIMPT.   EQU    *-1                                                             GEN          728     A     
 GEN                VFD    24/0,18/1,18/1     DIMENSIONALITY = 1                           GEN          729     A     
 GEN                VFD    24/0,18/0,18/2     DIMENSIONALITY = 2                           GEN          730     A     
 GEN                VFD    24/0,18/1,18/2     DIMENSIONALITY = 3                           GEN          731     A     
 GEN                VFD    24/0,18/0,18/3     DIMENSIONALITY = 4                           GEN          732     A     
 GEN                VFD    24/0,18/1,18/3     DIMENSIONALITY = 5                           GEN          733     A     
 GEN                VFD    24/0,18/0,18/4     DIMENSIONALITY = 6                           GEN          734     A     
 GEN                VFD    24/0,18/1,18/4     DIMENSIONALITY = 7                           GEN          735     A     
 GEN                                                                                       GEN          736     A     
 GEN       CVTA     DATA   0                                                               GEN          737     A     
 GEN       C=ARRAY  SPACE  4,8                                                             GEN          738     A     
 GEN      **        C=ARRAY -  RESET DIMENSION MULTIPLIER FOR SUBSCRIPT OPERATION.         GEN          739     A     
 GEN      *                                                                                GEN          740     A     
 GEN      *         C=ARRAY UPDATES.                                                       GEN          741     A     
 GEN      *                1. DIMUL   CURRENT SUBSCRIPT MULTIPLIER.                        GEN          742     A     
 GEN      *                2. DIM     CURRENT DIMENSIONALITY.                              GEN          743     A     
 GEN      *                3. DIMBIAS (IF LAST SUBSCRIPT RESULTED IN A CONSTANT)           GEN          744     A     
 GEN      *                                                                                GEN          745     A     
 GEN      *         ENTRY  (X3) = COMMA OPERATOR.                                          GEN          746     A     
 GEN      *                (X5) = RESULTS FROM CURRENT SUBSCRIPT                           GEN          747     A     
 GEN      *                (B5) _ SPECIAL LEFT PAREN FOR CURRENT ARRAY.                    GEN          748     A     
 GEN      *                                                                                GEN          749     A     
 GEN      *         EXIT   (B4) UPDATED BY 1.                                              GEN          750     A     
 GEN      *                IF AN ERROR OCCURED IN PROCESSING CURRENT SUBSCRIPT             GEN          751     A     
 GEN      *                EXIT IS TO *EOS*.                                               GEN          752     A     
 GEN      *                OTHERWISE EXIT IS TO PAR.NX.                                    GEN          753     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1436    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *                                                                                GEN          754     A     
 GEN      *         USES   A1,A2,A3  X0  B2,B3,B7                                          GEN          755     A     
 GEN      *                                                                                GEN          756     A     
 GEN      *         CALLS  CSR                                                             GEN          757     A     
 GEN                                                                                       GEN          758     A     
 GEN                                                                                       GEN          759     A     
 GEN       C=ARRAY  BSS    0           ENTRY...                                            GEN          760     A     
 GEN                SA4    ARGCOMA                                                         GEN          761     A     
 GEN                BX1    X5                                                              GEN          762     A     
 GEN                RJ     CSR         CHECK SUBSCRIPT RESULTS                             GEN          763     A     
 GEN                                                                                       GEN          764     A     
 GEN      **        (X4) = ARGCOMA                                                         GEN          765     A     
 GEN                                                                                       GEN          766     A     
 GEN                BX0    X4                                                              GEN          767     A     
 GEN                AX4    P.ACM                                                           GEN          768     A     
 GEN                SB2    X4          ORDINAL OF DIMENSION                                GEN          769     A     
 GEN                SA1    TP.DIM                                                          GEN          770     A     
 GEN                BX6    X0          ARGCOMA IF NOT INTO NEW WORD.                       GEN          771     A     
 GEN                SA3    X1+B2       LOAD NEXT DIMENSIONALITY WORD.                      GEN          772     A     
 GEN                LX0    59                                                              GEN          773     A     
 GEN                SA4    DIM                                                             GEN          774     A     
 GEN                MI     X0,C=AR50   IF EVEN SUBSCRIPT NUMBER.                           GEN          775     A     
 GEN                =X1    1                                                               GEN          776     A     
 GEN                AX3    P.DIM       CURRENT DIMENSIONALITY                              GEN          777     A     
 GEN                LX1    P.ACM                                                           GEN          778     A     
 GEN                IX6    X6+X1       RESET DIMENSIONALITY (TP.DIM) POINTER WORD          GEN          779     A     
 GEN      C=AR50   BSS    0                                                                GEN          780          I
          -FCC0575
 GEN       C=AR50   BSS    0                                                               FCC0575        8     A     
 GEN                SA6    ARGCOMA     UPDATE ARGCOMA.                                     GEN          781     A     
 GEN                SA1    DIMUL                                                           GEN          782     A     
 GEN                                                                                       GEN          783     A     
 GEN                                                                                       GEN          784     A     
 GEN      **        PROCESS BIAS IF DIMENSIONALITY IS CONSTANT                             GEN          785     A     
 GEN      *         (A1) _ DIMUL.                                                          GEN          786     A     
 GEN      *         (X1) = LAST VALUE OF *DIMUL*                                           GEN          787     A     
 GEN      *         (A4) _ DIM.                                                            GEN          788     A     
 GEN      *         (X3) = NEW DIMENSIONALITY.                                             GEN          789     A     
 GEN                                                                                       GEN          790     A     
 GEN                MX0    -L.DIM                                                          GEN          791     A     
 GEN                BX7    -X0*X3                                                          GEN          792     A     
 GEN                SA7    A4          RESET CURRENT DIMENSION (DIM)                       GEN          793     A     
 GEN                BX2    X4                                                              GEN          794     A     
 GEN                MI     X1,C=AR75   IF CURRENT MULTIPLIER IS VARIABLE                   GEN          795     A     
 GEN                LX2    -P.TDIM-1                                                       GEN          796     A     
 GEN                MI     X2,C=AR75   IF CURRENT DIMENSION IS VARIABLE                    GEN          797     A     
 GEN                IX7    X1*X4                                                           GEN          798     A     
 GEN                SA7    A1          RESET DIMENSION MULTIPLIER.                         GEN          799     A     
 GEN                SA3    SRES                                                            GEN          800     A     
 GEN                LX2    X7                                                              GEN          801     A     
 GEN                                                                                       GEN          802     A     
 GEN      **        RESET DIMENSION MULTIPLIER.                                            GEN          803     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1437    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *         (X2) = CURRENT MULTIPLIER                                              GEN          804     A     
 GEN      *         (X3) " 0, IF CONSTANT RESULTS FROM PREVIOUS SUBSCRIPT.                 GEN          805     A     
 GEN                                                                                       GEN          806     A     
 GEN                SB7    X2-1                                                            GEN          807     A     
 GEN                SA4    PLUS(S                                                          GEN          808     A     
 GEN                =X5    O.PL                                                            GEN          809     A     
 GEN                =X1    B7+1                                                            GEN          810     A     
 GEN                SB2    X3                                                              GEN          811     A     
 GEN                NZ     B7,C=AR72   IF CURRENT MULTIPLIER NOT = 1                       GEN          812     A     
 GEN                NE1    B2,C=AR90   IF CURRENT RESULTS NOT = 1                          GEN          813     A     
 GEN                =B6    B6-1        ELIMINATE LAST RESULTS, ALREADY IN DIMBIAS          GEN          814     A     
 GEN                =B4    B4+1        SET = NEXT ELEMENT                                  GEN          815     A     
 GEN                EQ     PAR.NX      CONTINUE                                            GEN          816     A     
 GEN                                                                                       GEN          817     A     
 GEN      **        IF RESULTS FROM LAST SUBSCRIPT NOT = 1                                 GEN          818     A     
 GEN      *         (X1) = MULTIPLIER IN LOWER 18 BITS                                     GEN          819     A     
 GEN                                                                                       GEN          820     A     
 GEN       C=AR72   LX1    P.SHC                                                           GEN          821     A     
 GEN                =X2    M.SMULT+M.SHORT+M.INT                                           GEN          822     A     
 GEN                ZR     X3,C=AR80   IF PREVIOUS SUBSCRIPT NOT SIMPLE CONSTANT           GEN          823     A     
 GEN                =B6    B6-1                                                            GEN          824     A     
 GEN                EQ     C=AR85      BYPASS ADD IN OF CONSTANT.                          GEN          825     A     
 GEN                                                                                       GEN          826     A     
 GEN      **        PROCESS SETTING OF VARIABLE DIMENSION TAG AS SUBSCRIPT                 GEN          827     A     
 GEN      *         MULTIPLIER.                                                            GEN          828     A     
 GEN      *                                                                                GEN          829     A     
 GEN      *         (X6) = ARGCOMA                                                         GEN          830     A     
 GEN      *                                                                                GEN          831     A     
 GEN      C=AR75   BX0    X6                                                               GEN          832     A     
 GEN               SB2    X6          CURRENT SUBSCRIPT NUMBER (1-7)                       GEN          833     A     
 GEN               AX0    2*18                                                             GEN          834     A     
 GEN               SB3    X0          *TP.DIM* ORDINAL (CONTROL WORD)                      GEN          835     A     
 GEN               RJ     CVT         COMPUTE NEXT VARDIM MULTIPLIER TAG                   GEN          836     A     
 GEN               BX1    X2          NEXT MULTIPLIER TAG                                  GEN          837     A     
 GEN               SA4    PLUS(S      SUBSCRIPT PLUS OPERATOR                              GEN          838     A     
 GEN               BX6    -X6         NEGATIVE MULTIPLIER FLAGS VARDIM                     GEN          839     A     
 GEN               =X2    M.2PRO+M.INT                                                     GEN          840     A     
 GEN               SA6    DIMUL       SET NEW MULTIPLIER                                   GEN          841     A     
 GEN                SA3    SRES                                                            GEN          842          I
          -FCC1210
 GEN                SA3    SIND                                                            FCC1210        8     A     
 GEN                ZR     X3,C=AR80   IF RESULT NOT CONSTANT                              GEN          843     A     
 GEN                =B6    B6-1         REMOVE CONSTANT RESULT FROM ESTACK                 GEN          844     A     
 GEN                EQ     C=AR85       DONT PUT PLUS OPERATOR ON STACK                    GEN          845     A     
 GEN      **        PLUS OPERATOR TO STACK TO ADD PREVIOUS SUBSCRIPT VALUE                 GEN          846     A     
 GEN      *         (X1) = MULTIPLIER                                                      GEN          847     A     
 GEN      *         (X2) = CLASS AND MODE BITS FOR MULTIPLIER                              GEN          848     A     
 GEN      *         (X4) = PLUS OPERATOR                                                   GEN          849     A     
 GEN                                                                                       GEN          850     A     
 GEN       C=AR80   =B5    B5+1                                                            GEN          851     A     
 GEN                BX6    X4                                                              GEN          852     A     
 GEN                SA6    B5          PLUS OPERATOR TO OSTACK.                            GEN          853     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1438    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                                                                                       GEN          854     A     
 GEN      **        MULTIPLIER TO ELEMENT STACK.                                           GEN          855     A     
 GEN      *         (X1) = MULTIPLIER SHIFTED BY P.SHC                                     GEN          856     A     
 GEN      *         (X2) = TYPE BITS FOR MULTIPLIER                                        GEN          857     A     
 GEN                                                                                       GEN          858     A     
 GEN       C=AR85   BX6    X1+X2                                                           GEN          859     A     
 GEN                SA4    MULT(S                                                          GEN          860     A     
 GEN                SA6    B6          MULTIPLIER TO ESTACK.                               GEN          861     A     
 GEN                =B6    B6+1                                                            GEN          862     A     
 GEN                =X5    O.STAR                                                          GEN          863     A     
 GEN                                                                                       GEN          864     A     
 GEN      **        ADD OR MULTIPLY TO OPERATOR STACK (B5)                                 GEN          865     A     
 GEN      *         (X4) = OPERATOR STACK WORD (EITHER PLUS OR MULTIPLY)                   GEN          866     A     
 GEN      *         (X5) = DPC FOR OPERATOR.                                               GEN          867     A     
 GEN                                                                                       GEN          868     A     
 GEN       C=AR90   MX0    -L.SBPR                                                         GEN          869     A     
 GEN                =B5    B5+1                                                            GEN          870     A     
 GEN                BX1    X0*X4                                                           GEN          871     A     
 GEN                =B4    B4+1                                                            GEN          872     A     
 GEN                IX6    X1+X5                                                           GEN          873     A     
 GEN                SA6    B5          OPERATOR TO STACK                                   GEN          874     A     
 GEN                EQ     PAR.NX      CONTINUE.                                           GEN          875     A     
 GEN       A=ARRAY  EJECT  4,20                                                            GEN          876     A     
 GEN      **        PROCESS CLOSING PAREN FOR CURRENT SUBSCRIPT.                           GEN          877     A     
 GEN      *         POP HOLDING STACK FOR SUBSCRIPT.                                       GEN          878     A     
 GEN      *                                                                                GEN          879     A     
 GEN      *         ENTRY  (X2) = (ARGCOMA) = (SCR+1)                                      GEN          880     A     
 GEN      *                (X4) = RESULTING TAG FOR LAST SUBSCRIPT IN THIS                 GEN          881     A     
 GEN      *                       REFERENCE                                                GEN          882     A     
 GEN      *                                                                                GEN          883     A     
 GEN      *                                                                                GEN          884     A     
 GEN      *         FORMS OF STACK ENTRY IS --                                             GEN          885     A     
 GEN      *                                                                                GEN          886     A     
 GEN      *         A.  SIMPLE SUBSCRIPT                                                   GEN          887     A     
 GEN      *                N    =  ARGMODE.                                                GEN          888     A     
 GEN      *                N+1  =  ARGCOMA                                                 GEN          889     A     
 GEN      *                N+2  = (DIMSYM)                                                 GEN          890     A     
 GEN      *                                                                                GEN          891     A     
 GEN      *         B.  SUBSCRIPTED SUBSCRIPT FORM IS                                      GEN          892     A     
 GEN      *                N - N+2 SAME AS SIMPLE SUBSCRIPT FORM.                          GEN          893     A     
 GEN      *                N+3  =  CURRENT DIMENSION                                       GEN          894     A     
 GEN      *                N+4  =  CURRENT DIMENSION BIAS                                  GEN          895     A     
 GEN      *                N+5  =  ARRAY DIMENSION ORDINAL.                                GEN          896     A     
 GEN                                                                                       GEN          897     A     
 GEN                                                                                       GEN          898     A     
 GEN       A=ARRAY  BSS    0                                                               GEN          899     A     
 GEN                SX4    X2+1        SUBSCRIPT NUMBER                                    GEN          900     A     
 GEN                BX1    X5          RESULTS OF SUBSCRIPT                                GEN          901     A     
 GEN                RJ     CSR         CHECK SUBSCRIPT RESULTS                             GEN          902     A     
 GEN                                                                                       GEN          903     A     
 GEN      **        LOAD COMPUTED OFFSET FROM *DIM* TABLE                                  GEN          904     A     
 GEN      *         (X6) = (DIMBIAS)                                                       GEN          905     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1439    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                                                                                       GEN          906     A     
 GEN                SA2    DIMSYM                                                          GEN          907     A     
 GEN                SA1    TS.SYM                                                          GEN          908     A     
 GEN                AX2    P.2TAG                                                          GEN          909     A     
 GEN                SA3    TP.DIM                                                          GEN          910     A     
 GEN                SB3    X2-C.SYM                                                        GEN          911     A     
 GEN                SA2    X1+B3       TAG WORD FROM SYMBOL TABLE                          GEN          912     A     
 GEN                MX0    -L.PNT                                                          GEN          913     A     
 GEN                AX2    P.PNT                                                           GEN          914     A     
 GEN                BX1    -X0*X2                                                          GEN          915     A     
 GEN                MX0    -L.DIMOS                                                        GEN          916     A     
 GEN                SB3    X1                                                              GEN          917     A     
 GEN                SA1    X3+B3       DIMENSION INFO WORD                                 GEN          918     A     
 GEN                AX6    24                                                              GEN          919     A     
 GEN                BX3    -X0*X1      DIMENSION OFF-SET COMPUTED AT DECLARATIVE           GEN          920     A     
 GEN                                                                                       GEN          921     A     
 GEN      **        (X6) = BIAS - TP.DIM                                                   GEN          922     A     
 GEN      *         (X4) = (ARGCOMA) FOR SUBSCRIPT.                                        GEN          923     A     
 GEN      *         (A2) _ DIMBIAS                                                         GEN          924     A     
 GEN                                                                                       GEN          925     A     
 GEN                                                                                       GEN          926     A     
 GEN                SA1    DIMSYM                                                          GEN          927     A     
 GEN                SA6    DIMBIAS     RESET BIAS                                          GEN          928     A     
 GEN                SX1    X1          NUMBER OF DIMENSIONS ONLY                           GEN          929     A     
 GEN                SX4    X4          SUBSCRIPT COUNT ONLY                                GEN          930     A     
 GEN                IX0    X1-X4                                                           GEN          931     A     
 GEN                BX3    X6                                                              GEN          932     A     
 GEN                SB2    X0+0                                                            GEN          933     A     
 GEN                ZR     B2,A=AR20   IF REFERENCE MATCHES DIMENSION.                     GEN          934     A     
 GEN                PL     B2,A=AR10   IF FEWER SUBSCRIPTS THAN DIMENSIONED                GEN          935     A     
 GEN                SUBERR =XE.SB8     FATAL -- TOO MANY SUBSCRIPTS                        GEN          936     A     
 GEN                EQ     A=AR15                                                          GEN          937     A     
 GEN                                                                                       GEN          938     A     
 GEN       A=AR10   SUBERR =XE.SB2     SUBSCRIPTED WITH FEWER THAN DIMENSIONED             GEN          939     A     
 GEN                                                                                       GEN          940     A     
 GEN       A=AR15   SA3    DIMBIAS                                                         GEN          941     A     
 GEN                                                                                       GEN          942     A     
 GEN      **        DETERMINE TYPE OF SUBSCRIPT AND PROCESS EITHER BY OUTPUT OF            GEN          943     A     
 GEN      *         A *SUBSCRIPT* MACRO, OR A SIMPLE OPERAND TO OTHER MACRO                GEN          944     A     
 GEN      *                                                                                GEN          945     A     
 GEN      *         (X3) = CONSTANT BIAS ON ARRAY REFERENCE                                GEN          946     A     
 GEN                                                                                       GEN          947     A     
 GEN       A=AR20   SX1    M.LONG                                                          GEN          948     A     
 GEN                SA4    B6-2        1ST OPERAND                                         GEN          949     A     
 GEN                MX0    -L.2BIAS                                                        GEN          950     A     
 GEN                BX1    X1*X4       SET/CELL LONG BIT                                   GEN          951     A     
 GEN                ZR     X1,A=AR52   IF NOT DOUBLE WORD ARRAY                            GEN          952     A     
 GEN                LX3    1           MULTIPLY BIAS BY *2* FOR DOUBLE WORD                GEN          953     A     
 GEN       A=AR52   LX3    P.2BIAS                                                         GEN          954     A     
 GEN                                                                                       GEN          955     A     
 GEN      **        ADD IN BIAS FIELD.                                                     GEN          956     A     
 GEN      *         (X4) = ARRAY                                                           GEN          957     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1440    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *         (X5) = ADDRESS FUNCTION FOR *ARRAY* REFERENCE.                         GEN          958     A     
 GEN                                                                                       GEN          959     A     
 GEN                LX0    P.2BIAS                                                         GEN          960     A     
 GEN                BX1    X0*X4       CLEAR BIAS FIELD.                                   GEN          961     A     
 GEN                BX3    -X0*X3                                                          GEN          962     A     
 GEN                =B3    0           INDICATE IGNORE OPERATOR.                           GEN          963     A     
 GEN                BX6    X3+X1                                                           GEN          964     A     
 GEN                =B6    B6-1        ELIMINATE ADDRESS FUNCTION                          GEN          965     A     
 GEN                SA1    SRES        CONSTANT INDICATOR FOR ADDRESS FUNCTION             GEN          966          I
          -FCC1210
 GEN                SA1    SIND        CONSTANT INDICATOR FOR ADDRESS FUNCTION             FCC1210        9     A     
 GEN                BX2    X5                                                              GEN          967     A     
 GEN                SA6    A4          ADD IN BIAS FIELD TO ARRAY TAG.                     GEN          968     A     
 GEN                SA2    B5-3                                                            GEN          969     A     
 GEN                =A5    A2+1                                                            GEN          970     A     
 GEN                BX6    X2                                                              GEN          971     A     
 GEN                LX7    X5                                                              GEN          972     A     
 GEN                =A3    A5+1                                                            GEN          973     A     
 GEN                =A5    A3+1                                                            GEN          974     A     
 GEN                SA6    DIM         RESET (DIM)                                         GEN          975     A     
 GEN                SB5    B5-4                                                            GEN          976     A     
 GEN                BX6    X3                                                              GEN          977     A     
 GEN                =A7    A6+1        RESET (DIMUL)                                       GEN          978     A     
 GEN                BX7    X5                                                              GEN          979     A     
 GEN                =A6    A7+1        RESET (DIMBIAS)                                     GEN          980     A     
 GEN                =A7    A6+1        RESET (DIMSYM)                                      GEN          981     A     
 GEN                NZ     X1,POPX     IF SUBSCRIPT RESULTED IN CONSTANT                   GEN          982     A     
 GEN                                                                                       GEN          983     A     
 GEN      **        ADDRESS FUNCTION OTHER THAN SIMPLE CONSTANT.                           GEN          984     A     
 GEN      *         OUTPUT SUBSCRIPT MACRO.                                                GEN          985     A     
 GEN                                                                                       GEN          986     A     
 GEN       A=AR54   BX1    X4                                                              GEN          987          I
          -FCC1210
 GEN                BX1    X4                                                              FCC1210       10     A     
 GEN                =B6    B6+1        ADDRESS FUNCTION ELEMENT NEEDED                     GEN          988     A     
 GEN                IFBIT  X1,-LONG,A=AR56     IF NOT DOUBLE WORD ARRAY                    GEN          989     A     
 GEN                =X5    1           2ND OPERAND                                         GEN          990     A     
 GEN                =A4    B6-1        1ST OPERAND = ADDRESS FUNCTION                      GEN          991     A     
 GEN                SA3    SHFC                                                            GEN          992     A     
 GEN                LX5    P.PTAGM                                                         GEN          993     A     
 GEN                =B6    B6+1                                                            GEN          994     A     
 GEN                BX6    X3                                                              GEN          995     A     
 GEN                SA6    SOPR                                                            GEN          996     A     
 GEN                RJ     ADT                                                             GEN          997     A     
 GEN                                                                                       GEN          998     A     
 GEN       A=AR56   MX0    1                                                               GEN          999          I
          -FCC2194
 GEN       A=AR56   =A4    B6-1        2ND OPERAND                                         FCC2194       12     A     
 GEN                SX0    M.2ARY+M.INTR                                                   FCC2194       13     A     
 GEN                BX1    X0*X4                                                           FCC2194       14     A     
 GEN                BX1    X0-X1                                                           FCC2194       15     A     
 GEN                MX5    0                                                               FCC2194       16     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1441    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                NZ     X1,A=AR57   IF NOT SUBSCRIPTED SUBSCRIPT                        FCC2194       17     A     
 GEN                SA3    XMITOP                                                          FCC2194       18     A     
 GEN                BX6    X3                                                              FCC2194       19     A     
 GEN                =B6    B6+1        INCREMENT FOR XMIT TURPLE                           FCC2194       20     A     
 GEN                SA6    SOPR                                                            FCC2194       21     A     
 GEN                RJ     ADT                                                             FCC2194       22     A     
 GEN       A=AR57   MX0    1                                                               FCC2194       23     A     
 GEN                SA2    ARGMODE                                                         GEN         1000     A     
 GEN                LX0    P.AMADDR+1                                                      GEN         1001     A     
 GEN                SA1    ATTR                                                            GEN         1002     A     
 GEN                BX7    X0*X2       BRING DOWN ADDRESS BIT FROM *ARGMODE*               GEN         1003     A     
 GEN                AX7    P.AMADDR-P.OPADDR                                               GEN         1004     A     
 GEN                SA3    SUBOP                                                           GEN         1005     A     
 GEN                =A4    B6-2        1ST OPERAND                                         GEN         1006     A     
 GEN                IX6    X3+X7       ADD ADDRESS BIT, IF SET                             GEN         1007     A     
 GEN                =A5    A4+1        2ND OPERAND                                         GEN         1008     A     
 GEN                AX7    P.OPADDR-P.ADDR                                                 GEN         1009     A     
 GEN                SX0    X7+M.ARY+M.2ARY                                                 GEN         1010     A     
 GEN                BX7    X0+X1       ADD IN M.ARY BIT                                    GEN         1011     A     
 GEN                SA7    ATTR        ATTRIBUTE = ARRAY                                   GEN         1012     A     
 GEN                SA6    SOPR        SUBSCRIPT OPERATOR.                                 GEN         1013     A     
 GEN                BX3    X6                                                              GEN         1014     A     
 GEN                EQ     POP.STD                                                         GEN         1015     A     
 GEN       ISR      SPACE  4,8                                                             GEN         1016     A     
 GEN      **        ISR -  INTEGERIZE SUBSCRIPT                                            GEN         1017     A     
 GEN      *                                                                                GEN         1018     A     
 GEN      *         ENTRY  (X1) = SUSBCRIPT OTHER THAN INTEGER TO BE CONVERTED.            GEN         1019     A     
 GEN      *                (X4) = ARGCOMA.                                                 GEN         1020     A     
 GEN      *                                                                                GEN         1021     A     
 GEN      *         EXIT   (X1) = TAG FOR INTEGERIZED RESULTS.                             GEN         1022     A     
 GEN      *                                                                                GEN         1023     A     
 GEN      *         USES   A1,A2,A3,A4,A5,A6,A7  X0  B2,B3,B7                              GEN         1024     A     
 GEN      *         CALLS  ADT, NCS                                                        GEN         1025     A     
 GEN                                                                                       GEN         1026     A     
 GEN                                                                                       GEN         1027     A     
 GEN       ISR45    MX0    -L.MODE                                                         GEN         1028     A     
 GEN                =X7    M.INT                                                           GEN         1029     A     
 GEN                BX2    X0*X5       EVERYTHING BUT MODE                                 GEN         1030     A     
 GEN                BX5    X7+X2       DUMMY MODE AS INTEGER                               GEN         1031     A     
 GEN       ISR50    SUBERR B7                                                              GEN         1032     A     
 GEN                SA2    ISRA+1                                                          GEN         1033     A     
 GEN                BX7    X5                                                              GEN         1034     A     
 GEN                SA7    X2          SET NEW OPERAND BACK                                GEN         1035     A     
 GEN                LX1    X5                                                              GEN         1036     A     
 GEN                                                                                       GEN         1037     A     
 GEN       ISR      SUBR               ENTRY/EXIT...                                       GEN         1038     A     
 GEN                =X6    M.INT                                                           GEN         1039     A     
 GEN                SA7    ISRA+1      SAVE ADDRESS OF OPERAND                             GEN         1040     A     
 GEN                SA6    SMOD        SET RESULT MODE TO INTEGER                          GEN         1041     A     
 GEN                BX5    X1                                                              GEN         1042     A     
 GEN                RJ     LCT         CHECK IF CONSTANT                                   GEN         1043     A     
 GEN                SB3    X0-M.REAL                                                       GEN         1044     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1442    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                PL     B3,ISR5     IF FLOATING POINT                                   GEN         1045     A     
 GEN                SB2    X0-M.LOG                                                        GEN         1046     A     
 GEN                SB7    E.SB4                                                           GEN         1047     A     
 GEN                NZ     B2,ISR45    IF NOT LOGICAL                                      GEN         1048     A     
 GEN                SB7    E.SB6       SUBSCRIPT CAN NOT BE LOGICAL                        GEN         1049     A     
 GEN                EQ     ISR45       IF MODLESS                                          GEN         1050          I
          -FCC0498
 GEN                EQ     ISR45                                                           FCC0498       49     A     
 GEN                                                                                       GEN         1051     A     
 GEN      *         IF SUBSCRIPT IS FLOATING POINT                                         GEN         1052     A     
 GEN                                                                                       GEN         1053     A     
 GEN       ISR5     BX1    X5                                                              GEN         1054     A     
 GEN                ZR     B2,ISR10    IF NOT SIMPLE CONSTANT                              GEN         1055     A     
 GEN                =X7    M.INT                                                           GEN         1056     A     
 GEN                UX0,B7 X6          CONVERT TO INTEGER                                  GEN         1057     A     
 GEN                LX6    B7,X0                                                           GEN         1058     A     
 GEN                RJ     NCS         ENTER CONSTANT AS INTEGER                           GEN         1059     A     
 GEN                BX5    X6                                                              GEN         1060     A     
 GEN                SB7    E.SB4                                                           GEN         1061     A     
 GEN                EQ     ISR50       EXIT..                                              GEN         1062     A     
 GEN                                                                                       GEN         1063     A     
 GEN      *         SUBSCRIPT NOT SIMPLE CONSTANT                                          GEN         1064     A     
 GEN                                                                                       GEN         1065     A     
 GEN       ISR10    LX7    X4                                                              GEN         1066     A     
 GEN                SA7    ISRA        SAVE *X4*                                           GEN         1067     A     
 GEN                SA3    INTMAC                                                          GEN         1068     A     
 GEN                =X4    0           DUMMY 1ST OPERAND                                   GEN         1069     A     
 GEN                BX6    X3                                                              GEN         1070     A     
 GEN                =B6    B6+1        DUMMY OPERAND FOR *INT*                             GEN         1071     A     
 GEN                SA6    SOPR                                                            GEN         1072     A     
 GEN                RJ     ADT         ADD TURPLE                                          GEN         1073     A     
 GEN                SA1    B6-1        RESET SUBSCRIPT OPERAND                             GEN         1074     A     
 GEN                BX5    X1                                                              GEN         1075     A     
 GEN                SB7    E.SB4                                                           GEN         1076     A     
 GEN                SA4    ISRA        RESTORE *X4*                                        GEN         1077     A     
 GEN                EQ     ISR50       OUTPUT NOTE DIAGNOSTIC                              GEN         1078     A     
 GEN                                                                                       GEN         1079     A     
 GEN       ISRA     DATA   0           SAVE *X4*                                           GEN         1080     A     
 GEN                DATA   0           SAVE OPERAND ADDRESS                                GEN         1081     A     
 GEN       PSO      EJECT                                                                  GEN         1082     A     
 GEN      **        PSO -  PROCESS SUBSCRIPT OPERATION.                                    GEN         1083     A     
 GEN      *                                                                                GEN         1084     A     
 GEN      *         *PSO* CHECKS EACH TURPLE BEING POPPED WHILE PROCESSING A               GEN         1085     A     
 GEN      *         SUBSCRIPT TO ANALYZE IF CURRENT TURPLE CAN BE REDUCED TO A             GEN         1086     A     
 GEN      *         SIMPLER TURPLE, COMPLETELY ELIMINATED, ADDED TO PREVIOUS               GEN         1087     A     
 GEN      *         TURPLE OR POPPED AS IS.                                                GEN         1088     A     
 GEN      *         *PSO* ALSO CHECKS FOR NON-ANSI SUBSCRIPT OPERATIONS, AND               GEN         1089     A     
 GEN      *         WHETHER CURRENT OPERATION DEFINES A SUBSCRIPT TO BE OUTSIDE            GEN         1090     A     
 GEN      *         THE LIMITS FOR CURRENT ARRAY SUBSCRIPT IS OPERATING ON.                GEN         1091     A     
 GEN      *                                                                                GEN         1092     A     
 GEN      *         ENTRY  CALLED FROM *POP*                                               GEN         1093     A     
 GEN      *                (X3) = OPERATOR.                                                GEN         1094     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1443    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *                (X4) = 1ST OPERAND.                                             GEN         1095     A     
 GEN      *                (X5) = 2ND OPERAND.                                             GEN         1096     A     
 GEN      *                                                                                GEN         1097     A     
 GEN      *                (B4) _ NEXT CHARACTER IN *SB*.                                  GEN         1098     A     
 GEN      *                (B6)-2 _ 1ST OPERAND FOR OPERATOR.                              GEN         1099     A     
 GEN      *                (B6)-1 _ 2ND OPERAND FOR OPERATOR.                              GEN         1100     A     
 GEN      *                                                                                GEN         1101     A     
 GEN      *                (A7) _ 2ND OPERAND FOR LAST TURPLE POPPED.                      GEN         1102     A     
 GEN      *                                                                                GEN         1103     A     
 GEN      *         EXIT   (X3) = 0 SUBSCRIPT PROCESSED.                                   GEN         1104     A     
 GEN      *                       (X3,X4,X5) NOT PRESERVED.                                GEN         1105     A     
 GEN      *                                                                                GEN         1106     A     
 GEN      *                (X3) " 0 CONTINUE NORMAL FLOW.                                  GEN         1107     A     
 GEN      *                       (X3,X4,X5) PRESERVED.                                    GEN         1108     A     
 GEN      *                                                                                GEN         1109     A     
 GEN      *         USES   A1,A2,A3,A6,A7  X0  B2,B3,B7                                    GEN         1110     A     
 GEN      *                (SCR2)                                                          GEN         1111     A     
 GEN      *         NOTE   IF REDUCED ALSO USES - A4,A5                                    GEN         1112     A     
 GEN      *                                                                                GEN         1113     A     
 GEN      *         CALLS  CCR, LCT, PCA, PVD                                              GEN         1114     A     
 GEN                                                                                       GEN         1115     A     
 GEN                                                                                       GEN         1116     A     
 GEN       PSONX    SA3    SOPR        RELOAD OPERATOR WORD                                GEN         1117     A     
 GEN       PSOX     =X0    M.SMULT     CLEAR *SMULT* ON BOTH OPERANDS FOR PASS 2           GEN         1118     A     
 GEN                LX1    X4                                                              GEN         1119     A     
 GEN                BX2    X5                                                              GEN         1120     A     
 GEN                AX1    P.TGB                                                           GEN         1121     A     
 GEN                AX2    P.TGB                                                           GEN         1122     A     
 GEN                SX1    X1-C.VDIM/1S13                                                  GEN         1123     A     
 GEN                ZR     X1,PSO80    IF 1ST OPERAND IS *PROGRAM* TAG                     GEN         1124     A     
 GEN                BX4    -X0*X4                                                          GEN         1125     A     
 GEN       PSO80    SX2    X2-C.VDIM/1S13                                                  GEN         1126     A     
 GEN                ZR     X2,PSO81    IF 2ND OPERAND IS *PROGRAM* TAG                     GEN         1127     A     
 GEN                BX5    -X0*X5                                                          GEN         1128     A     
 GEN                                                                                       GEN         1129     A     
 GEN       PSO81    BSS    0                                                               GEN         1130     A     
 GEN                                                                                       GEN         1131     A     
 GEN                                                                                       GEN         1132     A     
 GEN       PSO      SUBR   -           ENTRY/EXIT...                                       GEN         1133     A     
 GEN                SA2    ARGMODE                                                         GEN         1134     A     
 GEN                SB7    X2-A=ARRAY                                                      GEN         1135     A     
 GEN                NZ     B7,EXIT.    IF NOT IN ARRAY SUBSCRIPT - EXIT                    GEN         1136     A     
 GEN                SA2    ="SUBOPS"   LEGAL ANSI SUBSCRIPT OPERATORS.                     GEN         1137          I
          -FCC0575
 GEN                SA2    ="SUBOPS2"  ANSI TEST (SUBSCRIPT ALREADY NOTED)                 FCC0575        9     A     
 GEN                SB2    X3                                                              GEN         1138     A     
 GEN                LX0    B2,X2                                                           GEN         1139     A     
 GEN                MI     X0,PSO10    IF LEGAL ANSI OPERATOR.                             GEN         1140     A     
 GEN                SA2    ARGCOMA                                                         GEN         1141     A     
 GEN                BX6    X4                                                              GEN         1142     A     
 GEN                =X4    X2+1                                                            GEN         1143     A     
 GEN                SA6    ISRA                                                            GEN         1144     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1444    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SUBERR E.SB3                                                           GEN         1145     A     
 GEN                SA4    ISRA                                                            GEN         1146     A     
 GEN                                                                                       GEN         1147     A     
 GEN      **        CHECK IF THIS PART OF SUBSCRIPT IS INTEGER                             GEN         1148          I
          -FCC0498
 GEN      **        CHECK IF THIS PART OF SUBSCRIPT IS INTEGER OR MODELESS                 FCC0498       50     A     
 GEN                                                                                       GEN         1149     A     
 GEN       PSO10    SA2    SMOD                                                            GEN         1150     A     
 GEN                =B7    X2-M.INT                                                        GEN         1151     A     
 GEN                =B2    X2-M.UNIV                                                       FCC0498       51     A     
 GEN                AX2    18                                                              GEN         1152     A     
 GEN                =B3    0                                                               GEN         1153     A     
 GEN                ZR     B7,PSO15    IF DOMINANT MODE = INTEGER                          GEN         1154     A     
 GEN                ZR     B2,PSO15    IF DOMINANT MODE = MODELESS                         FCC0498       52     A     
 GEN                =B3    1                                                               GEN         1155     A     
 GEN                                                                                       GEN         1156     A     
 GEN       PSO15    ZR     X2,PSO20    IF NO MIXED MODE                                    GEN         1157     A     
 GEN                BX6    X4                                                              GEN         1158     A     
 GEN                SA1    ARGCOMA                                                         GEN         1159     A     
 GEN                SA6    ISRA                                                            GEN         1160     A     
 GEN                =X4    X1+1                                                            GEN         1161     A     
 GEN                SUBERR E.SB7                                                           GEN         1162     A     
 GEN                SA4    ISRA        RELOAD *X4*                                         GEN         1163     A     
 GEN                                                                                       GEN         1164     A     
 GEN      **        CHECK IF CURRENT TURPLE IS A SIMPLE CONSTANT COMBINATION.              GEN         1165     A     
 GEN                                                                                       GEN         1166     A     
 GEN       PSO20    SB7    X3-O.MULT                                                       GEN         1167     A     
 GEN                =X0    M.SMULT                                                         GEN         1168     A     
 GEN                NZ     B7,PSO25    IF NOT PROCESSING MULTIPLY, NOT SUBS RESULT         GEN         1169     A     
 GEN                                                                                       GEN         1170     A     
 GEN      *         CHECK IF PROCESSING SUBSCRIPT RESULTS                                  GEN         1171     A     
 GEN                                                                                       GEN         1172     A     
 GEN                SA1    B6-2        1ST  OPERAND                                        GEN         1173     A     
 GEN                =A2    A1+1        2ND  OPERAND                                        GEN         1174     A     
 GEN                BX7    X0*X1       EXTRACT SUBSCRIPT MULTIPLIER BIT                    GEN         1175     A     
 GEN                BX0    X0*X2                                                           GEN         1176     A     
 GEN                IX6    X7+X0                                                           GEN         1177     A     
 GEN                SA6    DIMI        SET IF PROCESSING SUBSCRIPT MULTIPLIER              GEN         1178     A     
 GEN                ZR     B3,PSO25    IF SUBSCRIPT IS INTEGER                             GEN         1179     A     
 GEN                ZR     X6,PSO25    IF NOT END OF SUBSCRIPT                             GEN         1180     A     
 GEN                                                                                       GEN         1181     A     
 GEN      **        TERM PROCESSING IS RESULTS OF SUBSCRIPT AND IS NOT INTEGER             GEN         1182     A     
 GEN      *         OUTPUT CONVERSION *TURPLE* AND CONTINUE PROCESSING WITH                GEN         1183     A     
 GEN      *         RESULTS OF CONVERSION * MULTIPLIER.                                    GEN         1184     A     
 GEN                                                                                       GEN         1185     A     
 GEN                SX7    B6-2                                                            GEN         1186     A     
 GEN                LX6    X3                                                              GEN         1187     A     
 GEN                NZ     X0,PSO22    IF 2ND IS DIMENSION MULTIPLIER                      GEN         1188     A     
 GEN                BX1    X2                                                              GEN         1189     A     
 GEN                =X7    X7+1                                                            GEN         1190     A     
 GEN       PSO22    SA6    MODECON     SAVE OPERATOR                                       GEN         1191     A     
 GEN                SA2    ARGCOMA                                                         GEN         1192     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1445    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                =X4    X2+1        CURRENT SUBSCRIPT NUMBER                            GEN         1193     A     
 GEN                RJ     ISR         INTERIZE SUBSCRIPT RESULTS                          GEN         1194     A     
 GEN                SA3    MODECON     RELOAD OPERATOR                                     GEN         1195     A     
 GEN                SA4    B6-2                                                            GEN         1196     A     
 GEN                BX6    X3                                                              GEN         1197     A     
 GEN                =A5    A4+1                                                            GEN         1198     A     
 GEN                SA6    SOPR                                                            GEN         1199     A     
 GEN       PSO25    RJ     CCR         CHECK FOR CONSTANT REDUCTION                        GEN         1200     A     
 GEN                SA3    SOPR        RELOAD OPERATOR.                                    GEN         1201     A     
 GEN                ZR     X6,PSO30    IF NOT CONSTANT COMBINATION.                        GEN         1202     A     
 GEN                                                                                       GEN         1203     A     
 GEN      **        HERE IF CURRENT TURPLE IS REDUCED TO SIMPLE TERM                       GEN         1204     A     
 GEN                                                                                       GEN         1205     A     
 GEN                =B6    B6-1        UPDATE ESTACK                                       GEN         1206     A     
 GEN                BX3    0           INDICATE SUCCESS.                                   GEN         1207     A     
 GEN                =A1    B6-1                                                            GEN         1208     A     
 GEN                =A6    B6-1                                                            GEN         1209     A     
 GEN                IFBIT  X1,-SMULT,PSOX                                                  GEN         1210     A     
 GEN                SA5    DIMUL                                                           GEN         1211     A     
 GEN                MX0    1                                                               GEN         1212     A     
 GEN                BX6    X5+X0                                                           GEN         1213     A     
 GEN                SA6    A5                                                              GEN         1214     A     
 GEN                EQ     PSOX                                                            GEN         1215     A     
 GEN                                                                                       GEN         1216     A     
 GEN      **        HERE IF NOT SIMPLE CONSTANT COMBINATION                                GEN         1217     A     
 GEN                                                                                       GEN         1218     A     
 GEN       PSO30    SA2    ="SUBOPS"                                                       GEN         1219     A     
 GEN                MI     B3,PSOX     IF NOT OF OPERANDS CONSTANT                         GEN         1220     A     
 GEN                                                                                       GEN         1221     A     
 GEN      **        HERE IF ONE OPERAND IS CONSTANT, CHECK IF OF THE FORM --               GEN         1222     A     
 GEN      *         VARIABLE +- CONS  OR  CONS +- VARIABLE                                 GEN         1223     A     
 GEN      *         (B3) = 0, 1ST = CONSTANT                                               GEN         1224     A     
 GEN      *         (B3) = 1, 2ND = CONSTANT                                               GEN         1225     A     
 GEN                                                                                       GEN         1226     A     
 GEN                LX0    X2                                                              GEN         1227     A     
 GEN                SA2    TER1        CONSTANT                                            GEN         1228     A     
 GEN                BX1    X5                                                              GEN         1229     A     
 GEN                ZR     B3,PSO35                                                        GEN         1230     A     
 GEN                BX1    X4                                                              GEN         1231     A     
 GEN                SA2    TER2        CONSTANT                                            GEN         1232     A     
 GEN                                                                                       GEN         1233     A     
 GEN      **        (X1) = TAG TERM (OTHER THAN CONSTANT)                                  GEN         1234     A     
 GEN      *         (X2) = CONSTANT TERM (IN BINARY)                                       GEN         1235     A     
 GEN      *         (X3) = OPERATOR.                                                       GEN         1236     A     
 GEN      *         (DIMI) = *SMULT* BIT IF PRESENT IN ONE OF OPERANDS.                    GEN         1237     A     
 GEN                                                                                       GEN         1238     A     
 GEN       PSO35    SB7    X3                                                              GEN         1239     A     
 GEN                BX7    X2                                                              GEN         1240     A     
 GEN                LX0    B7,X0                                                           GEN         1241     A     
 GEN                SA2    SMOD        DOMINANT MODE                                       GEN         1242     A     
 GEN                SB7    X2-M.INT                                                        GEN         1243     A     
 GEN                BX6    X1                                                              GEN         1244     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1446    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                ZR     B7,PSO40    IF DOMINANT MODE IS INTEGER                         GEN         1245     A     
 GEN                SB7    X2-M.UNIV                                                       GEN         1246     A     
 GEN                NZ     B7,PSOX     IF DOMINANT MODE NOT UNIVERSAL                      GEN         1247     A     
 GEN                                                                                       GEN         1248     A     
 GEN      **        (X6) = TAG TERM                                                        GEN         1249     A     
 GEN      *         (X7) = CONSTANT IN BINARY. (INTEGER FORM)                              GEN         1250     A     
 GEN                                                                                       GEN         1251     A     
 GEN       PSO40    PL     X0,PSOX     IF NOT + OR - OR *                                  GEN         1252     A     
 GEN                MX0    -L.MODE                                                         GEN         1253     A     
 GEN                BX2    -X0*X4                                                          GEN         1254     A     
 GEN                SX2    X2-M.INT                                                        GEN         1255     A     
 GEN                NZ     X2,EXIT.    IF NOT TYPE INTEGER - EXIT...                       GEN         1256     A     
 GEN                BX2    -X0*X5                                                          GEN         1257     A     
 GEN                SX2    X2-M.INT                                                        GEN         1258     A     
 GEN                NZ     X2,EXIT.    IF NOT TYPE INTEGER - EXIT...                       GEN         1259     A     
 GEN                SB7    X3-O.PL                                                         GEN         1260     A     
 GEN                ZR     B7,PSO45    IF +                                                GEN         1261     A     
 GEN                =B7    B7+O.PL-O.MIN                                                   GEN         1262     A     
 GEN                BX1    X6                                                              GEN         1263     A     
 GEN                NZ     B7,PSOX     IF * OPERATOR                                       GEN         1264     A     
 GEN                BX7    -X7                                                             GEN         1265     A     
 GEN                NZ     B3,PSO45    IF CONSTANT IS 2ND TERM                             GEN         1266     A     
 GEN                =B3    -1                                                              GEN         1267     A     
 GEN                BX7    -X7         ADD                                                 GEN         1268     A     
 GEN                                                                                       GEN         1269     A     
 GEN      **        ELIMINATE OPERATION INVOLVING CONSTANT.                                GEN         1270     A     
 GEN      *                                                                                GEN         1271     A     
 GEN      *         RESET BIAS WITH CONSTANT ADD IN.                                       GEN         1272     A     
 GEN      *         (X1) = VARIABLE TO RETURN TO STACK.                                    GEN         1273     A     
 GEN      *         (X7) = CONSTANT ADD IN                                                 GEN         1274     A     
 GEN      *                                                                                GEN         1275     A     
 GEN      *         REDUCES STACK ENTRY COMPLETELY STORING RESULTS AS LAST OPERAND         GEN         1276     A     
 GEN      *         FOR SUBSCRIPT. AND SETS HIGH ORDER BIT IN *DIMUL* IF ONE OF            GEN         1277     A     
 GEN      *         OPERANDS IS CURRENT *SUBSCRIPT* MULTIPLIER.                            GEN         1278     A     
 GEN                                                                                       GEN         1279     A     
 GEN                                                                                       GEN         1280     A     
 GEN       PSO45    SA2    DIMBIAS                                                         GEN         1281     A     
 GEN                MX0    -24                                                             GEN         1282     A     
 GEN                BX3    -X0*X2                                                          GEN         1283     A     
 GEN                                                                                       GEN         1284     A     
 GEN                LX3    60-L.2BIAS  SIGN EXTEND                                         GEN         1285     A     
 GEN                AX3    60-L.2BIAS  SIGN EXTEND                                         GEN         1286     A     
 GEN                                                                                       GEN         1287     A     
 GEN                IX6    X3+X7                                                           GEN         1288     A     
 GEN                BX3    -X0*X6      LOWER 24 BITS ONLY                                  GEN         1289     A     
 GEN                BX2    X2*X0       CLEAR CURRENT BIAS FOR UPDATED BIAS                 GEN         1290     A     
 GEN                =B6    B6-1                                                            GEN         1291     A     
 GEN                BX6    X3+X2       PUT BACK IN BIAS                                    GEN         1292     A     
 GEN                BX7    X1                                                              GEN         1293     A     
 GEN                SA6    A2          UPDATE BIAS.                                        GEN         1294     A     
 GEN                BX3    0           INDICATE REDUCED.                                   GEN         1295     A     
 GEN                =A7    B6-1        VARIABLE BACK TO ELEMENT STACK                      GEN         1296     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1447    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                PL     B3,PSOX     IF NOT (CONSTANT - VARIABLE)                        GEN         1297     A     
 GEN                MX0    -L.SBPR                                                         GEN         1298     A     
 GEN                SA2    UMINUS                                                          GEN         1299     A     
 GEN                =X1    O.UMIN                                                          GEN         1300     A     
 GEN                BX4    X0*X2       NOT *SB* PRIORITY                                   GEN         1301     A     
 GEN                =B5    B5+1                                                            GEN         1302     A     
 GEN                BX6    X4+X1       ADD *DPC* FOR UNARY MINUS                           GEN         1303     A     
 GEN                =A6    B5          SET UNARY MINUS FOR OPERATOR ON VARIABLE            GEN         1304     A     
 GEN                EQ     PSOX                                                            GEN         1305     A     
 GEN                                                                                       GEN         1306          I
          -FCC0696
 GEN                EQ     PSOX                                                            GEN         1307          I
          -FCC0696
 GEN       PVD      SPACE  4,8                                                             GEN         1308     A     
 GEN       SSO      EJECT                                                                  GEN         1309     A     
 GEN      **        SSO -  SET UP SUBSCRIPT OPERATIONS.                                    GEN         1310     A     
 GEN      *                                                                                GEN         1311     A     
 GEN      *         ENTRY  PARSER HAS ENCOUNTED AN ARRAY FOLLOWED BY A *(*                 GEN         1312     A     
 GEN      *                *SSO* SETS CONDITIONS FOR PARSER TO INDICATE WE ARE             GEN         1313     A     
 GEN      *                NOW IN SUBSCRIPT MODE.                                          GEN         1314     A     
 GEN      *                                                                                GEN         1315     A     
 GEN      *                (A2) = ARGMODE.                                                 GEN         1316     A     
 GEN      *                (X5) = PASS *1* ARRAY TAG. (FROM SYMBOL TABLE.)                 GEN         1317     A     
 GEN      *                                                                                GEN         1318     A     
 GEN      *         EXIT   (X7) = ORDINAL OF NEXT DIMENSIONALITY FOR (ARGCOMA)             GEN         1319     A     
 GEN      *                THE FOLLOWING CELLS ARE ESTABLISHED AS ACTIVE.                  GEN         1320     A     
 GEN      *         DIMUL  =   SET TO *1* - FOR MULTIPLIER OF 1ST SUBSCRIPT.               GEN         1321     A     
 GEN      *                                                                                GEN         1322     A     
 GEN      *         DIM    =   VALUE FOR 1ST DIMENSION SPECIFIED ON DECLARATIVE            GEN         1323     A     
 GEN      *                    DIMENSION CARD FOR CURRENT ARRAY.                           GEN         1324     A     
 GEN      *                    36/0,24/CURRENT DIMENSION MULTIPLIER.                       GEN         1325     A     
 GEN      *                                                                                GEN         1326     A     
 GEN      *         DIMBIAS=   24/RUNNING TOTAL, 18/UNDEFINED, 24/CURRENT BIAS             GEN         1327     A     
 GEN      *                =    0,0,0                                                      GEN         1328     A     
 GEN      *                                                                                GEN         1329     A     
 GEN      *         DIMSYM =   18/ARRAY TAG, 6,0, 18/VARIABLE SUBSCRIPTS,                  GEN         1330     A     
 GEN      *                    1/ANSI,18/NUMBER OF DIMENSIONS.                             GEN         1331     A     
 GEN      *                                                                                GEN         1332     A     
 GEN      *         (X7) = POINTER TO DIMENSION INFORMATION RELATIVE TO TP.DIM.            GEN         1333     A     
 GEN                                                                                       GEN         1334     A     
 GEN                                                                                       GEN         1335     A     
 GEN       SSO      SUBR               ENTRY/EXIT...                                       GEN         1336     A     
 GEN                SB2    X2-A=ARRAY                                                      GEN         1337     A     
 GEN                NZ     B2,SSO5     IF NOT ALREADY IN SUBSCRIPT.                        GEN         1338     A     
 GEN                                                                                       GEN         1339     A     
 GEN      **        HERE IF SUBSCRIPTED SUBSCRIPT.                                         GEN         1340     A     
 GEN                                                                                       GEN         1341     A     
 GEN                SA2    DIMSYM                                                          GEN         1342     A     
 GEN                IFBIT  X2,SANSI,SSO5     IF ERROR ALREADY OUTPUTTED.                   GEN         1343     A     
 GEN                SA2    ARGCOMA                                                         FCC0575       10     A     
 GEN                =X4    X2+1                                                            FCC0575       11     A     
 GEN                SUBERR E.SB3       OUTPUT SUBSCRIPT ERROR.                             GEN         1344     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1448    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                                                                                       GEN         1345     A     
 GEN      **        RESET SUBSCRIPT PROCESSING CELLS.                                      GEN         1346     A     
 GEN                                                                                       GEN         1347     A     
 GEN       SSO5     =X6    0                                                               GEN         1348     A     
 GEN                MX0    -L.PNT                                                          GEN         1349     A     
 GEN                SA1    DIM                                                             GEN         1350     A     
 GEN                AX5    P.PNT                                                           GEN         1351     A     
 GEN                =A2    A1+1                                                            GEN         1352     A     
 GEN                BX7    X1                                                              GEN         1353     A     
 GEN                =A3    A2+1                                                            GEN         1354     A     
 GEN                SA6    DIMI                                                            GEN         1355     A     
 GEN                SA6    A3          CLEAR BIAS CELL                                     GEN         1356     A     
 GEN                =A4    A3+1                                                            GEN         1357     A     
 GEN                =A7    B5+1        SAVE CURRENT DIMENSIONALITY IN *OSTACK*             GEN         1358     A     
 GEN                LX6    X2                                                              GEN         1359     A     
 GEN                BX7    X3                                                              GEN         1360     A     
 GEN                =A6    A7+1        SAVE CURRENT MULTIPLIER IN *OSTACK*                 GEN         1361     A     
 GEN                SB5    B5+4                                                            GEN         1362     A     
 GEN                LX6    X4                                                              GEN         1363     A     
 GEN                =A7    A6+1        SAVE CURRENT BIAS IN *OSTACK*                       GEN         1364     A     
 GEN                =A6    A7+1        SAVE CURRENT SYMBOL IN *OSTACK*                     GEN         1365     A     
 GEN                SA1    TP.DIM                                                          GEN         1366     A     
 GEN                BX2    -X0*X5      POINTER TO TP.DIM ORDINAL                           GEN         1367     A     
 GEN                AX5    P.TAG-P.PNT                                                     GEN         1368     A     
 GEN                LX5    P.SATAG                                                         GEN         1369     A     
 GEN                SB2    X2                                                              GEN         1370     A     
 GEN                =X6    1                                                               GEN         1371     A     
 GEN                BX7    X5          ARRAY TAG                                           GEN         1372     A     
 GEN                SA3    B2+X1       LOAD DIMENSION CONTROL WORD.                        GEN         1373     A     
 GEN                SA6    DIMUL       CURRENT MULTIPLIER.                                 GEN         1374     A     
 GEN                                                                                       GEN         1375     A     
 GEN      **        SET DIM = CURRENT DIMENSION                                            GEN         1376     A     
 GEN                                                                                       GEN         1377     A     
 GEN                SB7    P.DIM                                                           GEN         1378     A     
 GEN                =A2    A3+1                                                            GEN         1379     A     
 GEN                AX6    B7,X2                                                           GEN         1380     A     
 GEN                BX0    X3                                                              GEN         1381     A     
 GEN                =X2    0                                                               GEN         1382     A     
 GEN                =X1    B2+2                                                            GEN         1383     A     
 GEN                IFBIT  X0,-VDIM,SSO7     IF NOT VARIABLE DIMENSION                     GEN         1384     A     
 GEN                SX2    B2                                                              GEN         1385     A     
 GEN                LX2    18          BASE ADDRESS OF *DIM* INFO                          GEN         1386     A     
 GEN       SSO7     SA6    DIM         CURRENT DIMENSION                                   GEN         1387     A     
 GEN                                                                                       GEN         1388     A     
 GEN      **        SET DIMOR = ORDINAL RELATIVE TO TP.DIM ENTRY.                          GEN         1389     A     
 GEN                                                                                       GEN         1390     A     
 GEN                SB3    P.NDIM                                                          GEN         1391     A     
 GEN                IX4    X1+X2       ADD IN VDIM FLAGS, IF THERE                         GEN         1392     A     
 GEN                                                                                       GEN         1393     A     
 GEN      **        SET DIMBIAS = COMPLEMENT SET AT DECLARATIVE TIME.                      GEN         1394     A     
 GEN                                                                                       GEN         1395     A     
 GEN                MX0    -L.DIMOS                                                        GEN         1396     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1449    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                AX1    B3,X3       NUMBER OF DIMENSIONS.                               GEN         1397     A     
 GEN                IX6    X7+X1                                                           GEN         1398     A     
 GEN                LX7    X4          DIMENSION ORDINAL.                                  GEN         1399     A     
 GEN                SA6    DIMSYM      SAVE ARRAY NAME.                                    GEN         1400     A     
 GEN                EQ     EXIT.                                                           GEN         1401     A     
 GEN       SVT      SPACE  4,8                                                             GEN         1402     A     
 GEN      **        SVT -  SET VARDIM TAG IN *DIM* TABLE.                                  GEN         1403     A     
 GEN      *                                                                                GEN         1404     A     
 GEN      *         ENTRY  (B2) = SUBSCRIPT NUMBER FOR V-TAG.                              GEN         1405     A     
 GEN      *                (B3) = ORDINAL OF *TP.DIM* INFO FOR THIS ARRAY.                 GEN         1406     A     
 GEN      *                (X2) = *V-TAG* TO BE ENTERED.                                   GEN         1407     A     
 GEN      *                                                                                GEN         1408     A     
 GEN      *         EXIT   (X2) = PASS *2* TAG FOR *V-TAG*                                 GEN         1409     A     
 GEN      *                TP.DIM ENTRY REPLACE WITH *V-TAG*                               GEN         1410     A     
 GEN      *                                                                                GEN         1411     A     
 GEN      *         USES   A1,A2,A3,A6  X0,X7  B7                                          GEN         1412     A     
 GEN                                                                                       GEN         1413     A     
 GEN                                                                                       GEN         1414     A     
 GEN       SVT      SUBR               ENTRY/EXIT...                                       GEN         1415     A     
 GEN                SA3    TP.DIM                                                          GEN         1416     A     
 GEN                SA1    B2+DIMPT.                                                       GEN         1417     A     
 GEN                SB7    X3+B3                                                           GEN         1418     A     
 GEN                SA3    X1+B7                                                           GEN         1419     A     
 GEN                MX7    2                                                               GEN         1420     A     
 GEN                AX1    18                                                              GEN         1421     A     
 GEN                MX0    P.DIM                                                           GEN         1422     A     
 GEN                SB7    X1                                                              GEN         1423     A     
 GEN                LX7    P.TDIM+1                                                        GEN         1424     A     
 GEN                BX1    X2                                                              GEN         1425     A     
 GEN                ZR     B7,SVT10    IF DIMENSIONALITY IN LOW ORDER                      GEN         1426     A     
 GEN                LX1    P.DIM                                                           GEN         1427     A     
 GEN                LX0    P.DIM                                                           GEN         1428     A     
 GEN                LX7    P.DIM                                                           GEN         1429     A     
 GEN       SVT10    BX6    X0*X3       CLEAR OLD BITS                                      GEN         1430     A     
 GEN                BX3    X6+X7       ADD IN *SDIM* BIT                                   GEN         1431     A     
 GEN                =X0    M.INT+M.2PRO                                                    GEN         1432     A     
 GEN                BX6    X3+X1       ADD IN V-TAG                                        GEN         1433     A     
 GEN                LX2    P.TAG                                                           GEN         1434     A     
 GEN                SA6    A3          RESET TAG INTO *DIM* TABLE                          GEN         1435     A     
 GEN                IX2    X2+X0                                                           GEN         1436     A     
 GEN                EQ     EXIT.                                                           GEN         1437     A     
 GEN       O=SUBS   EJECT  4,8                                                             GEN         1438     A     
 GEN      **        PASS 2 PROCESSING OF A SUBCRIPTED ARRAY.                               GEN         1439     A     
 GEN      *                                                                                GEN         1440     A     
 GEN      *         ENTRY HERE FROM ARITH WHEN SUBSCRIPT TURPLE FOUND.                     GEN         1441     A     
 GEN      *         PROCESSING IS DEFERRED UNTIL USE OF SUBSCRIPTED ARRAY IS               GEN         1442     A     
 GEN      *         DETERMINED.  IF THE SUBSCRIPT IS A SUBSCRIPTED ARRAY, THEN             GEN         1443     A     
 GEN      *         ARRAY IS PROCESSED.                                                    GEN         1444     A     
 GEN      *                                                                                GEN         1445     A     
 GEN      *         ENTRY  (B4) _ START OF SUBSCRIPT ARRAY TURPLE. (OPERATOR WORD)         GEN         1446     A     
 GEN      *                (B4+1)_ ARRAY TAG.+ BIAS    (OR.1OP)                            GEN         1447     A     
 GEN      *                (B4+2)  INTERMEDIATE        (OR.2OP)                            GEN         1448     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1450    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *                                                                                GEN         1449     A     
 GEN      *         EXIT   (B4) UPDATED, EXIT TO EIS.PNX.                                  GEN         1450     A     
 GEN      *         USES   CANNOT DESTROY *B4*.                                            GEN         1451     A     
 GEN                                                                                       GEN         1452     A     
 GEN                                                                                       GEN         1453     A     
 GEN       O=SUBL   SA5    B4+OR.2OP                                                       GEN         1454          I
          -FCC2194
 GEN                BX1    X5                                                              GEN         1455          I
          -FCC2194
 GEN                LX0    X5                                                              GEN         1456          I
          -FCC2194
 GEN                IFBIT  X1,-INTR,SUBL                                                   GEN         1457          I
          -FCC2194
 GEN                IFBIT  X0,-2ARY,SUBL                                                   GEN         1458          I
          -FCC2194
 GEN                SB2    0                                                               GEN         1459          I
          -FCC2194
 GEN                RJ     SLD         IF SUBSCRIPTED SUBSCRIPT                            GEN         1460          I
          -FCC2194
 GEN                SA1    B2+REGFILE  CLEAR *2ARY* BIT OF LOADED SUBSCRIPT                FCC1826        6          I
          -FCC2194
 GEN                SX2    M.2ARY                                                          FCC1826        7          I
          -FCC2194
 GEN                BX7    -X2*X1                                                          FCC1826        8          I
          -FCC2194
 GEN                SA7    A1                                                              FCC1826        9          I
          -FCC2194
 GEN                                                                                       FCC1010        8          I
          -FCC2194
 GEN      *         THE FOLLOWING CALL TO LOCK REGISTERS IS TO PREVENT THE RE-USE          FCC1010        9          I
          -FCC2194
 GEN      *         (BY PLUG CODE) OF THE REGISTER CONTAINING THE SUBSCRIPT IN THE         FCC1010       10          I
          -FCC2194
 GEN      *         CASE OF A SUBSCRIPTED SUBSCRIPT.                                       FCC1010       11          I
          -FCC2194
 GEN                                                                                       FCC1010       12          I
          -FCC2194
 GEN                AX6    3                                                               FCC1010       13          I
          -FCC2194
 GEN                SB7    X6                                                              FCC1010       14          I
          -FCC2194
 GEN                RJ     RLL         LOCK REGISTER  *X*  AND  *A*                        FCC1010       15          I
          -FCC2194
 GEN       O=SUBL   BSS    0                                                               FCC2194       24     A     
 GEN       .T       IFNE   TEST                                                            FCC2194       25     A     
 GEN                SA5    B4+OR.2OP                                                       FCC2194       26     A     
 GEN                SX0    M.2ARY+M.INTR                                                   FCC2194       27     A     
 GEN                BX1    X0*X5                                                           FCC2194       28     A     
 GEN                BX1    X0-X1                                                           FCC2194       29     A     
 GEN                NZ     X1,SUBL     IF NOT SUBSCRIPTED SUBSCRIPT                        FCC2194       30     A     
 GEN                TRUBL                                                                  FCC2194       31     A     
 GEN       .T       ENDIF                                                                  FCC2194       32     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1451    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       SUBL     =B4    B4+L.TURP                                                       GEN         1461     A     
 GEN                EQ     EIS.PNX     SET POST PROCESSING FLAG                            GEN         1462     A     
 GEN                                                                                       GEN         1463     A     
 GEN       SLD      SPACE  4,15                                                            GEN         1464     A     
 GEN      **        SLD -  SUBSCRIPT LOAD.                                                 GEN         1465     A     
 GEN      *                                                                                GEN         1466     A     
 GEN      *         CALLED WHEN PROCESSING AN INTERMEDIATE AND FOUND THAT IT IS AN         GEN         1467     A     
 GEN      *         ARRAY LOAD.                                                            GEN         1468     A     
 GEN      *                                                                                GEN         1469     A     
 GEN      *         EXIT   SUBSCRIPT LOADED IN (X6) REGISTER.                              GEN         1470     A     
 GEN      *                (X6) = REGISTER - (0R0).                                        GEN         1471     A     
 GEN      *                (B3) = REGISTER - (0TR).                                        GEN         1472     A     
 GEN      *                                                                                GEN         1473     A     
 GEN      *         (NOLDS) = (NOLDS) +1                                                   GEN         1474     A     
 GEN      *                                                                                GEN         1475     A     
 GEN      *         USES   A1,A2,A3,A4,A5  X0  B2,B3,B5,B6,B7                              GEN         1476     A     
 GEN      *                CELLS -  SCR2 TO SCR2+6                                         GEN         1477     A     
 GEN                                                                                       GEN         1478     A     
 GEN       SLD      SUBR               ENTRY/EXIT...                                       GEN         1479     A     
 GEN                SX6    B4                                                              GEN         1480     A     
 GEN                BX7    X4                                                              GEN         1481     A     
 GEN                SA2    TT.PAR                                                          GEN         1482     A     
 GEN                LX1    X5                                                              GEN         1483     A     
 GEN                IX6    X6-X2                                                           GEN         1484     A     
 GEN                AX1    P.JPAD                                                          GEN         1485     A     
 GEN                SA6    SAVEB4      SAVE *B4*                                           GEN         1486     A     
 GEN                SB4    X1                                                              GEN         1487     A     
 GEN                SX6    A4                                                              GEN         1488     A     
 GEN                =A6    A6+1        SAVE *A4*                                           GEN         1489     A     
 GEN                SB4    X2+B4       SUBSCRIPT TURPLE                                    GEN         1490     A     
 GEN                =A7    A6+1        SAVE *X4*                                           GEN         1491     A     
 GEN                =X7    0           SET VALUE WANTED FLAG                               GEN         1492     A     
 GEN                IFBIT  X5,-ADDR,SLD1                                                   GEN         1493     A     
 GEN                =X7    SX=AK-SA=AK ADD IN TO OP-CODE FOR ADDRESS/VALUE                 GEN         1494     A     
 GEN       SLD1     SA7    ADDR        =0 IF VALUE                                         GEN         1495     A     
 GEN                SA5    B4+OR.2OP   ADDRESS FUNCTION TAG                                GEN         1496     A     
 GEN                SA1    RREG                                                            GEN         1497     A     
 GEN                MX6    -0                                                              GEN         1498     A     
 GEN                BX7    X1                                                              GEN         1499     A     
 GEN                SA6    A1                                                              GEN         1500     A     
 GEN                SX6    B2                                                              GEN         1501     A     
 GEN                SA7    ALREG       SAVE HARD REGISTER FLAG                             GEN         1502     A     
 GEN                SA6    TYPLOD                                                          GEN         1503     A     
 GEN                SX0    X7-R.X6                                                         GEN         1504     A     
 GEN                MI     X0,SLD15    IF NOT STORE REGISTER                               GEN         1505     A     
 GEN                                                                                       GEN         1506     A     
 GEN      *         LOCK STORE REGISTER TO FORCE THE OTHER STORE REGISTER TO BE            GEN         1507     A     
 GEN      *         USED FOR ANY STORES TO TEMPORARIES                                     GEN         1508     A     
 GEN                                                                                       GEN         1509     A     
 GEN                MX0    -3                                                              GEN         1510     A     
 GEN                BX0    -X0*X7                                                          GEN         1511     A     
 GEN                SB7    X0          (00R) HARD REGISTER FLAG                            GEN         1512     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1452    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                RJ     RLL         LOCK HARD REGISTER                                  GEN         1513     A     
 GEN       SLD15    DRITE  X5                                                              GEN         1514     A     
 GEN                BX6    0                                                               GEN         1515     A     
 GEN                SA6    TRIP        RESET RE-TRY INDICATOR                              GEN         1516     A     
 GEN                SB3    RG=LOAD                                                         GEN         1517     A     
 GEN                SB2    B0                                                              GEN         1518     A     
 GEN                SB7    B1                                                              GEN         1519     A     
 GEN                RJ     GST         GET STATUS OF ADDRESS FUNCTION                      GEN         1520     A     
 GEN                SB6    A1                                                              GEN         1521          I
          -FCC1208
 GEN                SA2    =XGSTC                                                          FCC1208       29          I
          -FCC1811XA
 GEN                SX2    B2-REG.A       (B2) = 0TR                                       FCC1811XA      7     A     
 GEN                MI     X2,SLD17       IF B REG                                         FCC1811XA      8     A     
 GEN                BX0    -X6                                                             FCC1811XA      9     A     
 GEN                AX0    3              (X0) = -(00R)                                    FCC1811XA     10     A     
 GEN                SB7    X0-REG.X+R.X6  (B7)=0 IF AF IN X6, -1 IF IN X7                  FCC1811XA     11     A     
 GEN                LT     B0,B7,SLD17    IF NOT IN STORE REG                              FCC1811XA     12     A     
 GEN                SX0    RLOCK          SET LOCK BIT MASK                                FCC1811XA     13     A     
 GEN                SA2    B7+REGFILE+R.X7 GET OTHER STORE REG                             FCC1811XA     14     A     
 GEN                BX0    X0*X2          EXTRACT LOCK BIT                                 FCC1811XA     15     A     
 GEN                =X7    1                                                               FCC1811XA     16     A     
 GEN                ZR     X0,SLD17       IF NOT LOCKED                                    FCC1811XA     17     A     
 GEN                SA2    B2+REGFILE     GET REGFILE ENTRY OF AF                          FCC1811XA     18     A     
 GEN                BX7    X2+X7          INSURE USE [AF] .NEQ. 0                          FCC1811XA     19     A     
 GEN                SA7    A2             RESET REGFILE                                    FCC1811XA     20     A     
 GEN                RJ     RUT            CLEAR AF-REG                                     FCC1811XA     21     A     
 GEN                SX0    B2-REG.X       0TR - 020                                        FCC1811XA     22     A     
 GEN                AX0    3                                                               FCC1811XA     23     A     
 GEN                ZR     X0,SLD16       IF X REG                                         FCC1811XA     24     A     
 GEN                SB2    B3+REG.X       B2 = 02R                                         FCC1811XA     25     A     
 GEN                RJ     RUT            CLEAR X REG                                      FCC1811XA     26     A     
 GEN       SLD16    =B2    0              UPPER PART                                       FCC1811XA     27     A     
 GEN                =B7    0              PARTIAL STATES                                   FCC1811XA     28     A     
 GEN                RJ     GST            GET STATES OF ADDRESS FUNCTION                   FCC1811XA     29     A     
 GEN       SLD17    SB3    RG=LOAD                                                         FCC1811XA     30     A     
 GEN                SA2    =XGSTC         GET POINTER TO STATUS WORD                       FCC1811XA     31     A     
 GEN                BX7    X2          SAVE LOCATION OF ADDRESS FUNCTION STATUS            FCC1208       30     A     
 GEN                SA7    AFSTS                                                           FCC1208       31     A     
 GEN                SB6    "BLOWUP"    **** DEBUG ****                                     FCC1208       32     A     
 GEN                ZR     B2,SLD2     IF TAG NOT IN REGISTER                              GEN         1522     A     
 GEN                BX0    X6                                                              GEN         1523     A     
 GEN                AX0    3                                                               GEN         1524     A     
 GEN                SA2    X0+REGX                                                         GEN         1525     A     
 GEN                BX0    X5-X2                                                           GEN         1526     A     
 GEN                IFBIT  X2,INTR,SLD3  IF INTERMEDIATE, NO CONFLICT                      FCC0964        5     A     
 GEN                AX0    L.RUSE                                                          GEN         1527     A     
 GEN                ZR     X0,SLD3     IF CORRECT TAG                                      GEN         1528     A     
 GEN       SLD2     MX0    L.2TAG+L.2BIAS+L.2FPNO                                          GEN         1529     A     
 GEN                BX1    X0*X1                                                           GEN         1530     A     
 GEN                RJ     LTG         LOAD ADDRESS FUNCTION                               GEN         1531     A     
 GEN                SA2    TRIP                                                            GEN         1532     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1453    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                ZR     X2,SLD3     IF NO RECORD OF TROUBLE                             GEN         1533     A     
 GEN                SA3    SAVEB2      (0TR) ARRAY LOAD REG                                GEN         1534     A     
 GEN                SB3    X3                                                              GEN         1535     A     
 GEN                NE     B2,B3,SLD3  IF NO CONFLICT                                      GEN         1536     A     
 GEN                                                                                       GEN         1537     A     
 GEN      **        PROBLEM DUE TO ADDRESS FUNCTION AND ARRAY LOAD CLAIMING                GEN         1538     A     
 GEN      *         SAME REGISTER.  ADDRESS FUNCTION MUST BE COPIED TO ANOTHER             GEN         1539     A     
 GEN      *         REGISTER.                                                              GEN         1540     A     
 GEN                                                                                       GEN         1541     A     
 GEN                SX6    B6                                                              GEN         1542          I
          -FCC1812X 
 GEN                SA6    SAVEB6      SAVE B6                                             GEN         1543          I
          -FCC1812X 
 GEN                AX6    3                                                               FCC1812X       6     A     
 GEN                SX7    B6                                                              FCC1812X       7     A     
 GEN                SB7    X6                                                              FCC1812X       8     A     
 GEN                SA7    SAVEB6      SAVE B6                                             FCC1812X       9     A     
 GEN                RJ     RLL         LOCK ADDRESS FUNCTION REGISTER                      FCC1812X      10     A     
 GEN                RJ     AIR         ASSIGN INTERMEDIATE REGISTER                        GEN         1544     A     
 GEN                PL     B2,SLD25    IF REGISTER FREE                                    GEN         1545     A     
 GEN                RJ     ASR         ASSIGN STORE REGISTER                               GEN         1546     A     
 GEN       SLD25    SA3    SAVEB2      (0TR) ADDRESS FUNCTION REGISTER                     GEN         1547     A     
 GEN                SB5    X3                                                              GEN         1548     A     
 GEN                SX6    B2          (0TR) *I* REGISTER                                  GEN         1549     A     
 GEN                MX0    -3                                                              GEN         1550     A     
 GEN                                                                                       GEN         1551     A     
 GEN      *         MAKE ADJUSTMENTS TO *REGFILE*                                          GEN         1552     A     
 GEN                                                                                       GEN         1553     A     
 GEN                BX7    0                                                               GEN         1554     A     
 GEN                SA7    B5+REGFILE+REG.X-REG.A  CLEAR OLD REGFILE ENTRY                 GEN         1555     A     
 GEN                                                                                       GEN         1556     A     
 GEN      *         COMPILE TRANSMIT INSTRUCTION                                           GEN         1557     A     
 GEN                                                                                       GEN         1558     A     
 GEN                BX2    -X0*X6      (00R) *I* REGISTER                                  GEN         1559     A     
 GEN                BX7    -X0*X3      (00R) *J* REGISTER                                  GEN         1560     A     
 GEN                LX2    3                                                               GEN         1561     A     
 GEN                IX7    X7+X2                                                           GEN         1562     A     
 GEN                SX7    X7+XMITS3                                                       GEN         1563     A     
 GEN                LX7    P.LI15+3                                                        GEN         1564     A     
 GEN                SB5    B2                                                              GEN         1565     A     
 GEN                WCODE  X7                                                              GEN         1566     A     
 GEN                                                                                       GEN         1567     A     
 GEN      *         ADJUST/RESTORE REGISTERS                                               GEN         1568     A     
 GEN                                                                                       GEN         1569     A     
 GEN                SB2    B5          (0TR) NEW ADDRESS FUNCTION REGISTER                 GEN         1570     A     
 GEN                MX0    -3                                                              GEN         1571     A     
 GEN                SX6    B2                                                              GEN         1572     A     
 GEN                BX6    -X0*X6                                                          GEN         1573     A     
 GEN                LX6    3           (0R0) NEW ADDRESS FUNCTION REGISTER                 GEN         1574     A     
 GEN                SA2    SAVEB6                                                          GEN         1575     A     
 GEN                SB6    X2          RESTORE B6                                          GEN         1576     A     
 GEN       SLD3     SA1    B6                                                              GEN         1577          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1454    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
          -FCC1208
 GEN       SLD3     SA1    AFSTS                                                           FCC1208       33     A     
 GEN                SB7    X1          ORDINAL IN TABLE OF STATUS WORD                     FCC1208       34     A     
 GEN                AX1    18                                                              FCC1208       35     A     
 GEN                SA2    X1          FETCH TABLE ORIGIN                                  FCC1208       36     A     
 GEN                SA1    X2+B7                                                           FCC1208       37     A     
 GEN                SB3    B0                                                              GEN         1578     A     
 GEN                RJ     SST         SET STATUS OF ADDRESS FUNCTION                      GEN         1579     A     
 GEN                                                                                       GEN         1580     A     
 GEN                AX6    3                                                               GEN         1581     A     
 GEN                SB7    X6                                                              GEN         1582     A     
 GEN                RJ     RLL         LOCK ADDRESS FUNCTION REGISTER                      GEN         1583     A     
 GEN                SA1    ALREG                                                           GEN         1584     A     
 GEN                SX6    B2                                                              GEN         1585     A     
 GEN                BX7    X1                                                              GEN         1586     A     
 GEN                SA6    AFREG                                                           GEN         1587     A     
 GEN                SA7    RREG        RESET HARD REGISTER FLAG                            GEN         1588     A     
 GEN                SX0    X7-R.X6                                                         GEN         1589     A     
 GEN                MI     X0,SLD32    IF NOT STORE REGISTER                               GEN         1590     A     
 GEN                MX0    -3                                                              GEN         1591     A     
 GEN                BX0    -X0*X7                                                          GEN         1592     A     
 GEN                SB7    X0          (00R) HARD REGISTER FLAG                            GEN         1593     A     
 GEN                RJ     RUL         UNLOCK HARD REGISTER                                GEN         1594     A     
 GEN       SLD32    SB3    RG=LOAD                                                         GEN         1595     A     
 GEN                RJ     GNR         GET ARRAY LOAD REGISTER                             GEN         1596     A     
 GEN                SX7    B2                                                              GEN         1597     A     
 GEN                SA7    SAVEB2                                                          GEN         1598     A     
 GEN                SA5    B4+OR.2OP   ADDRESS FUNCTION TAG                                GEN         1599     A     
 GEN                SB3    RG=LOAD                                                         GEN         1600     A     
 GEN                SB2    B0                                                              GEN         1601     A     
 GEN                SB7    B1                                                              GEN         1602     A     
 GEN                RJ     GST         GET STATUS OF ADDRESS FUNCTION (AGAIN)              GEN         1603     A     
 GEN                SB6    A1                                                              GEN         1604          I
          -FCC1208
 GEN                SA2    =XGSTC                                                          FCC1208       38     A     
 GEN                BX7    X2          SAVE LOCATION OF ADDRESS FUNCTION STATUS            FCC1208       39     A     
 GEN                SA7    AFSTS                                                           FCC1208       40     A     
 GEN                SB6    "BLOWUP"    **** DEBUG ****                                     FCC1208       41     A     
 GEN                NZ     B2,SLD35    IF TAG IN REGISTER                                  GEN         1605     A     
 GEN                SX6    1                                                               GEN         1606     A     
 GEN                SA6    TRIP        SET RE-TRY INDICATOR                                GEN         1607     A     
 GEN                EQ     SLD2                                                            GEN         1608     A     
 GEN                                                                                       GEN         1609     A     
 GEN       SLD35    SA5    SAVEB2                                                          GEN         1610     A     
 GEN                SB2    X5          RESTORE B2                                          GEN         1611     A     
 GEN                SB2    B2+REG.X-REG.A                                                  GEN         1612     A     
 GEN                SA5    B4+OR.1OP                                                       GEN         1613     A     
 GEN                SX6    B2                                                              GEN         1614     A     
 GEN                BX7    X5          ARRAY TAG - PASS 3 FORMAT                           GEN         1615     A     
 GEN                SA6    ALREG                                                           GEN         1616     A     
 GEN                SA7    ALTAG                                                           GEN         1617     A     
 GEN                SA3    AFREG                                                           GEN         1618     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1455    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                MX7    -3                                                              GEN         1619     A     
 GEN                BX6    -X7*X3      (00R)                                               GEN         1620     A     
 GEN                AX3    3           (00T)                                               GEN         1621     A     
 GEN                SB7    X6          (00R) FOR *RUL*                                     GEN         1622     A     
 GEN                SX4    SA=BK                                                           GEN         1623     A     
 GEN                ZR     X3,SLD4     IF *B* REGISTER                                     GEN         1624     A     
 GEN                SX4    SA=XK                                                           GEN         1625     A     
 GEN                RJ     RUL         UNLOCK ADDRESS FUNCTION REGISTER                    GEN         1626     A     
 GEN       SLD4     SA3    TYPLOD      TYPE OF LOAD (0=UPPER HALF, 1= LOWER HALF)          GEN         1627     A     
 GEN                SA1    ALTAG       ARRAY LOAD TAG                                      GEN         1628     A     
 GEN                LX3    P.2BIAS                                                         GEN         1629     A     
 GEN      *                                                                                GEN         1630     A     
 GEN      *         (X1)    = ARRAY TAG                                                    GEN         1631     A     
 GEN      *         (X5)    = ARRAY TAG                                                    GEN         1632     A     
 GEN      *         (X4)    = SA=XK OR SA=BK                                               GEN         1633     A     
 GEN      *         (ALREG) =  I REGISTER (OTR)                                            GEN         1634     A     
 GEN      *         (AFREG) = J REGISTER (OTR)                                             GEN         1635     A     
 GEN      *         (ADDR)  = 0 IF VALUE WANTED                                            GEN         1636     A     
 GEN      *                 = 20000 IF ADDRESS WANTED                                      GEN         1637     A     
 GEN      *                                                                                GEN         1638     A     
 GEN                SA2    ADDR                                                            GEN         1639     A     
 GEN                IX1    X1+X3                                                           GEN         1640     A     
 GEN                BX3    X1                                                              GEN         1641     A     
 GEN                IX4    X2+X4       ADD IN VALUE FLAG                                   GEN         1642     A     
 GEN                MX0    -L.2FPNO                                                        GEN         1643     A     
 GEN                AX3    P.2FPNO                                                         GEN         1644     A     
 GEN                BX2    -X0*X3      *FP* NUMBER                                         GEN         1645     A     
 GEN                ZR     X2,SLD8     IF TAG NOT FORMAL PARAMETER                         GEN         1646     A     
 GEN                                                                                       GEN         1647     A     
 GEN      *         RELOCK ADDRESS FUNCTION REGISTER TO AVOID CONFLICT WITH                GEN         1648     A     
 GEN      *         *FP* LOAD REGISTER IN LCM/ECS CASE.                                    GEN         1649     A     
 GEN                                                                                       GEN         1650     A     
 GEN                BX7    X1                                                              GEN         1651     A     
 GEN                SA7    SAVEX1      SAVE X1                                             GEN         1652     A     
 GEN                BX7    X2                                                              GEN         1653     A     
 GEN                SA7    SAVEX2      SAVE X2                                             GEN         1654     A     
 GEN                RJ     RLL                                                             GEN         1655     A     
 GEN                SA1    ALREG                                                           FCC1371X       6     A     
 GEN                SX2    X1-R.X6                                                         FCC1371X       7     A     
 GEN                MI     X2,SLD42                                                        FCC1371X       8     A     
 GEN                SB7    X1-REG.X                                                        FCC1371X       9     A     
 GEN                RJ     RLL         HARD STORE REG MUST ALSO BE LOCKED                  FCC1371X      10     A     
 GEN                                                                                       FCC1371X      11     A     
 GEN                SA1    SAVEX1      RESTORE X1                                          GEN         1656          I
          -FCC1371X 
 GEN       SLD42    SA1    SAVEX1                                                          FCC1371X      12     A     
 GEN                SA2    SAVEX2      RESTORE X2                                          GEN         1657     A     
 GEN                RJ     LFP         LOAD ADDRESS OF FP                                  GEN         1658     A     
 GEN                SA3    AFREG                                                           GEN         1659          I
          -FCC1371X 
 GEN                SA3    ALREG                                                           FCC1371X      13     A     
 GEN                SX0    X3-R.X6                                                         FCC1371X      14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1456    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                MI     X0,SLD44                                                        FCC1371X      15     A     
 GEN                SB7    X3-REG.X                                                        FCC1371X      16     A     
 GEN                RJ     RUL                                                             FCC1371X      17     A     
 GEN       SLD44    SA3    AFREG                                                           FCC1371X      18     A     
 GEN                MX0    -3                                                              GEN         1660     A     
 GEN                BX3    -X0*X3      (00R) ADDRESS FUNCTION REGISTER                     GEN         1661     A     
 GEN                SB7    X3                                                              GEN         1662     A     
 GEN                RJ     RUL         UNLOCK ADDRESS FUNCTION REGISTER                    GEN         1663     A     
 GEN                SA2    ADDR        ADDRESS/VALUE FLAG                                  GEN         1664     A     
 GEN                SA5    =XALTAG     RELOAD TAG FOR *CLT*                                GEN         1665     A     
 GEN                RJ     =XCLT       CHECK FOR LCM/ECS TAG                               GEN         1666     A     
 GEN                NZ     X3,SLD5     IF NOT LCM OR ECS TAG                               GEN         1667     A     
 GEN                                                                                       GEN         1668     A     
 GEN      **        FORMAL LCM/ECS TAG.                                                    GEN         1669     A     
 GEN      *         OUTPUT TO INTERMEDIATE FILE                                            GEN         1670     A     
 GEN      *                IXI    XJ+XK                                                    GEN         1671     A     
 GEN                                                                                       GEN         1672     A     
 GEN                SX6    B2          (0TR) *FP* SET REGISTER                             GEN         1673     A     
 GEN                MX0    -3                                                              GEN         1674     A     
 GEN                BX6    -X0*X6      (00R)                                               GEN         1675     A     
 GEN                SX1    =XIADD                                                          GEN         1676     A     
 GEN                BX7    X1+X6       SET *K* REGISTER IN INSTRUCTION                     GEN         1677     A     
 GEN                LX7    P.LI15                                                          GEN         1678     A     
 GEN                SX4    B6          (R00) *FP* LOAD REGISTER                            GEN         1679     A     
 GEN                AX4    6           (--R)                                               GEN         1680     A     
 GEN                MX0    -3                                                              GEN         1681     A     
 GEN                BX4    -X0*X4      (00R)                                               GEN         1682     A     
 GEN                                                                                       GEN         1683     A     
 GEN       .76      IFEQ   .CPU,76                                                         GEN         1684          I
          -S3143FC
 GEN       #DAL     IFNE   .DAL,0                                                          S3143FC       36     A     
 GEN                                                                                       GEN         1685     A     
 GEN                SA5    ADDR                                                            GEN         1686     A     
 GEN                NZ     X5,SLCMPA   IF ADDRESS WANTED                                   GEN         1687     A     
 GEN                LX4    60-12                                                           GEN         1688     A     
 GEN                IX7    X7+X4       ADD IN *J* REGISTER                                 GEN         1689     A     
 GEN                SA1    ALREG       (0TR) ARRAY LOAD REGISTER                           GEN         1690     A     
 GEN                SB7    X1-R.X6+RGFILE                                                  GEN         1691     A     
 GEN                NG     B7,SLD45    IF NOT STORE REGISTER                               GEN         1692     A     
 GEN                SA6    SLDSR       SAVE SET REGISTER                                   GEN         1693     A     
 GEN                LX6    60-9                                                            GEN         1694     A     
 GEN                IX7    X7+X6       ADD IN *I* REGISTER                                 GEN         1695     A     
 GEN                EQ     SLD47                                                           GEN         1696     A     
 GEN                                                                                       GEN         1697     A     
 GEN       SLD45    MX0    -3                                                              GEN         1698     A     
 GEN                BX6    -X0*X1      (00R) ARRAY LOAD REGISTER                           GEN         1699     A     
 GEN                LX6    60-9                                                            GEN         1700     A     
 GEN                IX7    X7+X6       ADD IN *I* REGISTER                                 GEN         1701     A     
 GEN       SLD47    WCODE  X7          OUTPUT INSTRUCTION TO COMPUTE ADDRESS               GEN         1702          I
          -FCC1208
 GEN                EQ     SLCMPB                                                          GEN         1703          I
          -FCC1208
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1457    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       SLD47    WCODE  X7,SLCMPB   COMPILE ADDRESS COMPUTATION                         FCC1208       42     A     
 GEN                                                                                       FCC1208       43     A     
 GEN       #DAL     ELSE                                                                   FCC1208       44     A     
 GEN                EQ     SLCMPA                                                          FCC1208       45     A     
 GEN                                                                                       GEN         1704     A     
 GEN       .76      ENDIF                                                                  GEN         1705          I
          -S3143FC
 GEN       #DAL     ENDIF                                                                  S3143FC       37     A     
 GEN                                                                                       GEN         1706          I
          -FCC1208
 GEN                EQ     SLCMPA                                                          GEN         1707          I
          -FCC1208
 GEN                                                                                       GEN         1708     A     
 GEN       SLD5     SA3    =XAFREG     (0TR) ADDRESS FUNCTION REGISTER                     GEN         1709     A     
 GEN                SX6    B2          (00R) *FP* B REGISTER                               GEN         1710     A     
 GEN                AX3    3           (00T) ADDRESS FUNCTION REGISTER                     GEN         1711     A     
 GEN                SX1    SA=XB                                                           GEN         1712     A     
 GEN                NZ     X3,SLD6     IF NOT IN *B* REGISTER                              GEN         1713     A     
 GEN                SX1    SA=BB                                                           GEN         1714     A     
 GEN       SLD6     IX4    X1+X2       ADD IN ADDRESS/VALUE FUNCTION                       GEN         1715     A     
 GEN                BX7    X6+X4       SET *K* REGISTER IN INSTRUCTION                     GEN         1716     A     
 GEN                LX7    P.LI15                                                          GEN         1717     A     
 GEN                EQ     SL.CMP      CONTINUE                                            GEN         1718     A     
 GEN                                                                                       GEN         1719     A     
 GEN      **        ADD IN BIAS FIELD FOR TAG IN (X1)                                      GEN         1720     A     
 GEN                                                                                       GEN         1721     A     
 GEN       SLD8     LX4    P.LI15      OP-CODE                                             GEN         1722     A     
 GEN                AX1    P.2BIAS     TAG,BIAS                                            GEN         1723     A     
 GEN                LX1    P.LBIAS                                                         GEN         1724     A     
 GEN                IX7    X4+X1       OP-CODE+TAG+BIAS                                    GEN         1725     A     
 GEN                RJ     =XCLT       CHECK FOR LCM/ECS TAG                               GEN         1726     A     
 GEN                NZ     X3,SL.CMP   IF NOT LCM OR ECS TAG                               GEN         1727     A     
 GEN                                                                                       GEN         1728     A     
 GEN      **        ADDRESS OF LCM/ECS TAG REQUIRED.                                       GEN         1729     A     
 GEN      *         OUTPUT TO INTERMEDIATE FILE                                            GEN         1730     A     
 GEN      *                SAJ    L.XX       POINTER WORD                                  GEN         1731     A     
 GEN      *                SXK    XI+RELAD-1 (XI) = SUBSCRIPT, RELAD = RELATIVE            GEN         1732     A     
 GEN      *                                       ADDRESS OF ARRAY IN BLOCK                GEN         1733     A     
 GEN      *                IXK    XJ+XK                                                    GEN         1734     A     
 GEN                                                                                       GEN         1735     A     
 GEN                SA7    SLDA        SAVE PARTIAL SET INSTRUCTION                        GEN         1736     A     
 GEN                                                                                       GEN         1737     A     
 GEN      *         LOCK SOME REGISTERS                                                    GEN         1738     A     
 GEN                                                                                       GEN         1739     A     
 GEN                SA2    AFREG       (0TR) ADDRESS FUNCTION REGISTER                     GEN         1740     A     
 GEN                MX0    -3                                                              GEN         1741     A     
 GEN                BX2    -X0*X2      (00R)                                               GEN         1742     A     
 GEN                SB7    X2                                                              GEN         1743     A     
 GEN                RJ     RLL         LOCK ADDRESS FUNCTION REGISTER                      GEN         1744     A     
 GEN                SA2    ALREG       (0TR) ARRAY LOAD REGISTER                           GEN         1745     A     
 GEN                MX0    -3                                                              GEN         1746     A     
 GEN                BX2    -X0*X2      (00R)                                               GEN         1747     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1458    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SB7    X2                                                              GEN         1748     A     
 GEN                RJ     RLL         LOCK ARRAY LOAD REGISTER                            GEN         1749     A     
 GEN                                                                                       GEN         1750     A     
 GEN                RJ     =XCLP       COMPILE LOAD OF POINTER                             GEN         1751     A     
 GEN                SA1    SLDA        RELOAD PARTIAL SET INSTRUCTION                      GEN         1752     A     
 GEN                                                                                       GEN         1753     A     
 GEN       .76      IFEQ   .CPU,76                                                         GEN         1754          I
          -S3143FC
 GEN       #DAL     IFNE   .DAL,0                                                          S3143FC       38     A     
 GEN                                                                                       GEN         1755     A     
 GEN                SA2    ADDR                                                            GEN         1756     A     
 GEN                NZ     X2,SLD82    IF ADDRESS WANTED                                   GEN         1757     A     
 GEN                                                                                       GEN         1758     A     
 GEN      **        VALUE REQUIRED FOR LCM/ECS TAG.                                        GEN         1759     A     
 GEN      *         IT CAN ONLY BE A 7000 LEVEL 2 ITEM.                                    GEN         1760     A     
 GEN                                                                                       GEN         1761     A     
 GEN                MX0    -L.LBIAS                                                        GEN         1762     A     
 GEN                LX0    P.LBIAS                                                         GEN         1763     A     
 GEN                BX7    -X0*X1      BIAS                                                GEN         1764     A     
 GEN                SX1    =XSX=XK                                                         GEN         1765     A     
 GEN                LX1    P.LI15                                                          GEN         1766     A     
 GEN                IX7    X7+X1       OPCODE + BIAS                                       GEN         1767     A     
 GEN                EQ     SLD84                                                           GEN         1768     A     
 GEN                                                                                       GEN         1769     A     
 GEN       .76      ENDIF                                                                  GEN         1770          I
          -S3143FC
 GEN       #DAL     ENDIF                                                                  S3143FC       39     A     
 GEN                                                                                       GEN         1771     A     
 GEN       SLD82    SA2    OPBIAS      MASK TO GET RID OF TAG                              GEN         1772     A     
 GEN                BX7    X2*X1       OPCODE+BIAS                                         GEN         1773     A     
 GEN                                                                                       GEN         1774     A     
 GEN      *         GET RELATIVE ADDRESS OF ARRAY                                          GEN         1775     A     
 GEN                                                                                       GEN         1776     A     
 GEN       SLD84    SA1    =XTA.NAM                                                        GEN         1777     A     
 GEN                LX5    -P.2TAG                                                         GEN         1778     A     
 GEN                MX0    -L.PWF                                                          GEN         1779     A     
 GEN                BX4    -X0*X5      (X4) = TAG ORDINAL                                  GEN         1780     A     
 GEN                SB3    X1          (B3) = FWA TA.NAM                                   GEN         1781     A     
 GEN                AX4    1                                                               GEN         1782     A     
 GEN                SA1    X4+B3       FETCH ADDRESS TABLE ENTRY                           GEN         1783     A     
 GEN                MX0    -L.RELADD                                                       GEN         1784     A     
 GEN                BX4    -X0*X1      (X4) = RELATIVE ADDRESS                             GEN         1785     A     
 GEN                LX4    P.LBIAS                                                         GEN         1786     A     
 GEN                IX7    X7+X4       ADD RELATIVE ADDRESS TO BIAS                        GEN         1787     A     
 GEN                MX0    1                                                               FCC1434X      36     A     
 GEN                LX0    1+P.LBIAS+L.LBIAS                                               FCC1434X      37     A     
 GEN                BX4    X0*X7       EXTRACT POSSIBLE OVERFLOW BIT                       FCC1434X      38     A     
 GEN                LX4    -L.LBIAS                                                        FCC1434X      39     A     
 GEN                IX7    X4+X7       ADD IN OVERFLOW BIT                                 FCC1434X      40     A     
 GEN                BX7    -X0*X7      MASK OUT OVERFLOW BIT                               FCC1434X      41     A     
 GEN                SA2    =XAFREG                                                         GEN         1788     A     
 GEN                MX0    -3                                                              GEN         1789     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1459    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                BX4    -X0*X2      EXTRACT *J* REGISTER                                GEN         1790     A     
 GEN                LX4    60-12                                                           GEN         1791     A     
 GEN                IX7    X7+X4       ADD IN *J* REGISTER                                 GEN         1792     A     
 GEN                                                                                       GEN         1793     A     
 GEN       .76      IFEQ   .CPU,76                                                         GEN         1794          I
          -S3143FC
 GEN       #DAL     IFNE   .DAL,0                                                          S3143FC       40     A     
 GEN                                                                                       GEN         1795     A     
 GEN                SA5    ADDR                                                            GEN         1796     A     
 GEN                NZ     X5,SLD89    IF ADDRESS WANTED                                   GEN         1797     A     
 GEN                SA1    ALREG       (0TR) ARRAY LOAD REGISTER                           GEN         1798     A     
 GEN                SB7    X1-R.X6+RGFILE                                                  GEN         1799     A     
 GEN                NG     B7,SLD87    IF NOT STORE REGISTER                               GEN         1800     A     
 GEN                                                                                       GEN         1801     A     
 GEN      *         FOR LCM STORES, THE SET REGISTER AND LOAD REGISTER MUST BE             GEN         1802     A     
 GEN      *         DIFFERENT.  FOR LOADS, THEY ARE THE SAME.                              GEN         1803     A     
 GEN                                                                                       GEN         1804     A     
 GEN                SA7    SLDSET      SAVE PARTIAL INSTRUCTION                            GEN         1805     A     
 GEN                SX1    B5          (0TR) POINTER-WORD REGISTER                         GEN         1806     A     
 GEN                BX1    -X0*X1      (00R)                                               GEN         1807     A     
 GEN                SB7    X1                                                              GEN         1808     A     
 GEN                RJ     RLL         LOCK POINTER-WORD REGISTER                          GEN         1809     A     
 GEN                SA7    SLDPWR      SAVE POINTER-WORD REGISTER                          GEN         1810     A     
 GEN                =B3    =XRG=SET                                                        GEN         1811     A     
 GEN                RJ     GNR         GET SET REGISTER                                    GEN         1812     A     
 GEN                SA3    SLDPWR      (00R) POINTER-WORD REGISTER                         GEN         1813     A     
 GEN                SB5    X3                                                              GEN         1814     A     
 GEN                SB7    X3                                                              GEN         1815     A     
 GEN                RJ     RUL         UNLOCK POINTER-WORD REGISTER                        GEN         1816     A     
 GEN                AX6    3           (00R) SET REGISTER                                  GEN         1817     A     
 GEN                SA1    SLDSET      RELOAD PARTIAL INSTRUCTION                          GEN         1818     A     
 GEN                BX7    X1                                                              GEN         1819     A     
 GEN                SA6    SLDSR       SAVE SET REGISTER                                   GEN         1820     A     
 GEN                EQ     SLD88                                                           GEN         1821     A     
 GEN                                                                                       GEN         1822     A     
 GEN       SLD87    BX6    -X0*X1      (00R) ARRAY LOAD REGISTER                           GEN         1823     A     
 GEN                                                                                       GEN         1824     A     
 GEN       SLD88    BX5    X6                                                              GEN         1825     A     
 GEN                EQ     SLD9                                                            GEN         1826     A     
 GEN                                                                                       GEN         1827     A     
 GEN       SLD89    BSS    0                                                               GEN         1828     A     
 GEN                                                                                       GEN         1829     A     
 GEN       .76      ENDIF                                                                  GEN         1830          I
          -S3143FC
 GEN       #DAL     ENDIF                                                                  S3143FC       41     A     
 GEN                                                                                       GEN         1831     A     
 GEN                SA1    =XALREG                                                         GEN         1832     A     
 GEN                BX6    -X0*X1                                                          GEN         1833     A     
 GEN                BX5    X6                                                              GEN         1834     A     
 GEN       SLD9     LX6    60-9        *I* REGISTER                                        GEN         1835     A     
 GEN                IX7    X6+X7       ADD IN *I* REGISTER                                 GEN         1836     A     
 GEN                WCODE  X7          OUTPUT INSTRUCTION TO SET BLOCK-REL. ADDR.          GEN         1837     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1460    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SX1    =XIADD                                                          GEN         1838     A     
 GEN                BX7    X1+X5       ADD *K* REGISTER TO OPCODE                          GEN         1839     A     
 GEN                LX5    6           (R00)                                               GEN         1840     A     
 GEN                BX7    X7+X5       *I* AND *K* REGISTER SAME                           GEN         1841     A     
 GEN                MX0    -3                                                              GEN         1842     A     
 GEN                SX1    B5          (0TR) POINTER-WORD REGISTER                         GEN         1843     A     
 GEN                BX1    -X0*X1      (00R)                                               GEN         1844     A     
 GEN                LX1    3           (0R0)                                               GEN         1845     A     
 GEN                BX7    X7+X1       ADD IN *J* REGISTER                                 GEN         1846     A     
 GEN                LX7    P.LI15      ALIGN                                               GEN         1847     A     
 GEN                WCODE  X7          OUTPUT INSTRUCTION TO COMPUTE ADDRESS               GEN         1848     A     
 GEN                                                                                       GEN         1849     A     
 GEN      *         UNLOCK REGISTERS                                                       GEN         1850     A     
 GEN                                                                                       GEN         1851     A     
 GEN                SA2    AFREG       (0TR) ADDRESS FUNCTION REGISTER                     GEN         1852     A     
 GEN                MX0    -3                                                              GEN         1853     A     
 GEN                BX2    -X0*X2      (00R)                                               GEN         1854     A     
 GEN                SB7    X2                                                              GEN         1855     A     
 GEN                RJ     RUL         UNLOCK ADDRESS FUNCTION REGISTER                    GEN         1856     A     
 GEN                SA2    ALREG       (0TR) ARRAY LOAD REGISTER                           GEN         1857     A     
 GEN                MX0    -3                                                              GEN         1858     A     
 GEN                BX2    -X0*X2      (00R)                                               GEN         1859     A     
 GEN                SB7    X2                                                              GEN         1860     A     
 GEN                RJ     RUL         UNLOCK ARRAY LOAD REGISTER                          GEN         1861     A     
 GEN                                                                                       GEN         1862     A     
 GEN                EQ     SLCMPB                                                          GEN         1863     A     
 GEN                                                                                       GEN         1864     A     
 GEN                                                                                       GEN         1865     A     
 GEN      **        OUTPUT CODE TO LOAD ARRAY INTO REGISTER.                               GEN         1866     A     
 GEN      *                                                                                GEN         1867     A     
 GEN      *         (AFREG) = REGISTER FOR *J* PART OF INSTRUCTION.                        GEN         1868     A     
 GEN      *         (ALREG) = REGISTER FREE FOR LOAD. (0TR)                                GEN         1869     A     
 GEN      *         (X7) = INSTRUCTION OP-CODE IN HIGH ORDER + BIAS IF PRESENT             GEN         1870     A     
 GEN                                                                                       GEN         1871     A     
 GEN       SL.CMP   SA2    AFREG                                                           GEN         1872     A     
 GEN                MX0    -3                                                              GEN         1873     A     
 GEN                BX4    -X0*X2      EXTRACT *J* REGISTER                                GEN         1874     A     
 GEN       SLCMPA   LX4    60-12                                                           GEN         1875     A     
 GEN                IX7    X7+X4       ADD IN *J* REGISTER                                 GEN         1876     A     
 GEN                SA1    ALREG                                                           GEN         1877     A     
 GEN                BX6    -X0*X1                                                          GEN         1878     A     
 GEN                LX6    60-9        *I* REGISTER                                        GEN         1879     A     
 GEN                IX7    X6+X7       ADD IN *I* REGISTER                                 GEN         1880     A     
 GEN                WCODE  X7          OUTPUT INSTRUCTION TO LOAD ARRAY                    GEN         1881          I
          -FCC1208
 GEN                EQ     SLCMPQ                                                          GEN         1882          I
          -FCC1208
 GEN                WCODE  X7,SLCMPQ   COMPILE ARRAY LOAD                                  FCC1208       46     A     
 GEN                                                                                       GEN         1883     A     
 GEN       SLCMPB   BSS    0                                                               GEN         1884     A     
 GEN                                                                                       GEN         1885     A     
 GEN       .76      IFEQ   .CPU,76                                                         GEN         1886          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1461    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
          -S3143FC
 GEN       #DAL     IFNE   .DAL,0                                                          S3143FC       42     A     
 GEN                                                                                       GEN         1887     A     
 GEN                SA5    ADDR                                                            GEN         1888     A     
 GEN                SA2    ALREG       (0TR)                                               GEN         1889     A     
 GEN                NZ     X5,SLCMPM   IF ADDRESS WANTED                                   GEN         1890     A     
 GEN                                                                                       GEN         1891     A     
 GEN      **        VALUE OF 7000 LEVEL 2 TAG REQUIRED.                                    GEN         1892     A     
 GEN      *         OUTPUT TO INTERMEDIATE FILE                                            GEN         1893     A     
 GEN      *                RXJ    XJ                                                       GEN         1894     A     
 GEN      *         OR                                                                     GEN         1895     A     
 GEN      *                WXJ    XK                                                       GEN         1896     A     
 GEN                                                                                       GEN         1897     A     
 GEN                SB7    X2-R.X6+RGFILE                                                  GEN         1898     A     
 GEN                MX0    -3                                                              GEN         1899     A     
 GEN                BX3    -X0*X2      (00R)                                               GEN         1900     A     
 GEN                NG     B7,SLCMPD   IF NOT STORE REGISTER                               GEN         1901     A     
 GEN                SA4    SLDSR       (00R) SET REGISTER                                  GEN         1902     A     
 GEN                SX7    LCMW                                                            GEN         1903     A     
 GEN                EQ     SLCMPE                                                          GEN         1904     A     
 GEN                                                                                       GEN         1905     A     
 GEN       SLCMPD   BX4    X3                                                              GEN         1906     A     
 GEN                SX7    LCMR                                                            GEN         1907     A     
 GEN       SLCMPE   LX3    3           (0R0)                                               GEN         1908     A     
 GEN                BX3    X3+X4       ADD *J* AND *K* REGISTERS                           GEN         1909     A     
 GEN                IX7    X7+X3                                                           GEN         1910     A     
 GEN                LX7    P.LI15                                                          GEN         1911     A     
 GEN                WCODE  X7          OUTPUT LCM R/W INSTRUCTION                          GEN         1912     A     
 GEN       SLCMPM   BSS    0                                                               GEN         1913     A     
 GEN                                                                                       GEN         1914     A     
 GEN       .76      ENDIF                                                                  GEN         1915          I
          -S3143FC
 GEN       #DAL     ENDIF                                                                  S3143FC       43     A     
 GEN                                                                                       GEN         1916     A     
 GEN       SLCMPQ   SA5    ADDR                                                            GEN         1917     A     
 GEN                SA2    ALREG       (0TR)                                               GEN         1918     A     
 GEN                ZR     X5,SL.CMP0  IF ADDRESS NOT REQUESTED                            GEN         1919     A     
 GEN                =X5    M.ADDR                                                          GEN         1920     A     
 GEN       SL.CMP0  SX5    X5+M.2ARY                                                       GEN         1921     A     
 GEN                SA1    TYPLOD                                                          GEN         1922     A     
 GEN                SB2    X2                                                              GEN         1923     A     
 GEN                SB3    X1                                                              GEN         1924     A     
 GEN                                                                                       GEN         1925     A     
 GEN      *         DEFINE ARRAY LOAD RESULTS.                                             GEN         1926     A     
 GEN                                                                                       GEN         1927     A     
 GEN                RJ     DIT         DEFINE INTERMEDIATE                                 GEN         1928     A     
 GEN                                                                                       GEN         1929     A     
 GEN      *         RESTORE REGISTERS AND EXIT.                                            GEN         1930     A     
 GEN                                                                                       GEN         1931     A     
 GEN       SL.CMP10 SA5    SAVEB4                                                          GEN         1932     A     
 GEN                =X7    0                                                               GEN         1933     A     
 GEN                =A1    A5+1                                                            GEN         1934     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1462    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SA2    TT.PAR                                                          GEN         1935     A     
 GEN                IX5    X5+X2                                                           GEN         1936     A     
 GEN                SB4    X5          RESTORE *B4*                                        GEN         1937     A     
 GEN                =A2    A1+1                                                            GEN         1938     A     
 GEN                SA3    NOLDS                                                           GEN         1939     A     
 GEN                SA7    AFREG                                                           GEN         1940     A     
 GEN                SA4    X1          RESTORE *A4*                                        GEN         1941     A     
 GEN                =X7    X3+1                                                            GEN         1942     A     
 GEN                BX4    X2          RESTORE *X4*                                        GEN         1943     A     
 GEN                SA7    A3          UPDATE NO. OF LOADS                                 GEN         1944     A     
 GEN                EQ     EXIT.                                                           GEN         1945     A     
 GEN                                                                                       GEN         1946     A     
 GEN       OPBIAS   SYMASK (LI12,LBIAS)                                                    GEN         1947     A     
 GEN       SLDA     BSS    1                                                               GEN         1948     A     
 GEN       ALTAG    DATA   0           PASS 3 ARRAY LOAD TAG                               GEN         1949     A     
 GEN       SRES     DATA   0                                                               GEN         1950     A     
 GEN       SIND     DATA   0                                                               FCC1210       11     A     
 GEN       SAVEB4   DATA   0                                                               GEN         1951     A     
 GEN       SAVEA4   DATA   0                                                               GEN         1952     A     
 GEN       SAVEX4   DATA   0                                                               GEN         1953     A     
 GEN       DIMI     DATA   0                                                               GEN         1954     A     
 GEN       ALREG    DATA   0                                                               GEN         1955     A     
 GEN       AFREG    DATA   0                                                               GEN         1956     A     
 GEN       ADDR     DATA   0                                                               GEN         1957     A     
 GEN       SAVEB2   DATA   0                                                               GEN         1958     A     
 GEN       SAVEB6   DATA   0                                                               GEN         1959     A     
 GEN       TRIP     DATA   0                                                               GEN         1960     A     
 GEN       SAVEX1   DATA   0                                                               GEN         1961     A     
 GEN       SAVEX2   DATA   0                                                               GEN         1962     A     
 GEN       AFSTS    CON    "BLOWUP"    LOCATION OF ADDRESS FUNCTION STATUS WORD            FCC1208       47     A     
 GEN                                                                                       GEN         1963     A     
 GEN       .76      IFEQ   .CPU,76                                                         GEN         1964          I
          -S3143FC
 GEN       #DAL     IFNE   .DAL,0                                                          S3143FC       44     A     
 GEN                                                                                       GEN         1965     A     
 GEN       SLDPWR   DATA   0                                                               GEN         1966     A     
 GEN       SLDSET   DATA   0                                                               GEN         1967     A     
 GEN       SLDSR    DATA   0                                                               GEN         1968     A     
 GEN                                                                                       GEN         1969     A     
 GEN       .76      ENDIF                                                                  GEN         1970          I
          -S3143FC
 GEN       #DAL     ENDIF                                                                  S3143FC       45     A     
 GEN                                                                                       GEN         1971     A     
 GEN                EJECT                                                                  GEN         1972     A     
 GEN      ****      TABLE OF ALL KNOWN INTRINSIC AND BASIC EXTERNAL FUNCTIONS              GEN         1973     A     
 GEN      *         DEFINED AT COMPILE TIME.                                               GEN         1974     A     
 GEN      *                                                                                GEN         1975     A     
 GEN                                                                                       GEN         1976     A     
 GEN                                                                                       GEN         1977     A     
 GEN                MACRO  NLINE,NAME,ARGTYP,FUNTYP,NOARGS,NANSI,ABNOR,SPEC                GEN         1978          I
          -FCC0966
 GEN       A        SET    0                                                               GEN         1979          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1463    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
          -FCC0966
 GEN                IFC    EQ,*ABNOR*ABNORMAL*,1                                           GEN         1980          I
          -FCC0966
 GEN       A        SET    1                                                               GEN         1981          I
          -FCC0966
 GEN                MACRO  NLINE,NAME,ARGTYP,FUNTYP,NOARGS,NANSI,SPEC                      FCC0966       18     A     
 GEN       B        SET    1                                                               GEN         1982     A     
 GEN                IFC    EQ,*NANSI*NONANSI*,1                                            GEN         1983     A     
 GEN       B        SET    0                                                               GEN         1984     A     
 GEN                IFC    EQ,*SPEC**,2                                                    GEN         1985     A     
 GEN       F.NAME   VFD    L.FDPC/0L_NAME,L.FABN/A,L.FBEF/0,L.FANSI/B,L.FJPAD/O=NA         GEN         1986          I
          -FCC0966
 GEN      ,ME-INLBASE,L.FARGM/M.ARGTYP,L.FARGC/NOARGS,L.MODE/M.FUNTYP                      GEN         1987          I
          -FCC0966
 GEN       F.NAME   VFD    L.FDPC/0L_NAME,1/0,L.FBEF/0,L.FANSI/B,L.FJPAD/O=NAME-IN         FCC0966       19     A     
 GEN      ,LBASE,L.FARGM/M.ARGTYP,L.FARGC/NOARGS,L.MODE/M.FUNTYP                           FCC0966       20     A     
 GEN                SKIP   1                                                               GEN         1988     A     
 GEN       F.NAME   VFD    L.FDPC/0L_NAME,L.FABN/A,L.FBEF/0,L.FANSI/B,L.FJPAD/ES.N         GEN         1989          I
          -FCC0966
 GEN      ,AME-ESFBASE+1S8,L.FARGM/M.ARGTYP,L.FARGC/NOARGS,L.MODE/M.FUNTYP                 GEN         1990          I
          -FCC0966
 GEN       F.NAME   VFD    L.FDPC/0L_NAME,1/0,L.FBEF/0,L.FANSI/B,L.FJPAD/ES.NAME-E         FCC0966       21     A     
 GEN      ,SFBASE+1S8,L.FARGM/M.ARGTYP,L.FARGC/NOARGS,L.MODE/M.FUNTYP                      FCC0966       22     A     
 GEN       NLINE    ENDM                                                                   GEN         1991     A     
 GEN                                                                                       GEN         1992     A     
 GEN                MACRO  EXTBF,NAME,ARGTYP,FUNTYP,NOARGS,NANSI,ABNOR                     GEN         1993          I
          -FCC0966
 GEN       A        SET    0                                                               GEN         1994          I
          -FCC0966
 GEN                IFC    EQ,*ABNOR*ABNORMAL*,1                                           GEN         1995          I
          -FCC0966
 GEN       A        SET    1                                                               GEN         1996          I
          -FCC0966
 GEN                MACRO  EXTBF,NAME,ARGTYP,FUNTYP,NOARGS,NANSI                           FCC0966       23     A     
 GEN       B        SET    1                                                               GEN         1997     A     
 GEN                IFC    EQ,*NANSI*NONANSI*,1                                            GEN         1998     A     
 GEN       B        SET    0                                                               GEN         1999     A     
 GEN       Y        MICRO  1,, NAME                                                        GEN         2000     A     
 GEN       Z        MICCNT Y                                                               GEN         2001     A     
 GEN       C        SET    54-Z*CHAR                                                       GEN         2002     A     
 GEN       F.NAME   VFD    L.FDPC/0L_NAME,L.FABN/A,L.FBEF/1,L.FANSI/B,L.FJPAD/C,L.         GEN         2003          I
          -FCC0966
 GEN      ,FARGM/M.ARGTYP,L.FARGC/NOARGS,L.MODE/M.FUNTYP                                   GEN         2004          I
          -FCC0966
 GEN       F.NAME   VFD    L.FDPC/0L_NAME,1/0,L.FBEF/1,L.FANSI/B,L.FJPAD/C,L.FARGM         FCC0966       24     A     
 GEN      ,/M.ARGTYP,L.FARGC/NOARGS,L.MODE/M.FUNTYP                                        FCC0966       25     A     
 GEN       EXTBF    ENDM                                                                   GEN         2005     A     
 GEN       INLINE   EJECT                                                                  GEN         2006     A     
 GEN      **        INLINE TABLE FORMAT.                                                   GEN         2007     A     
 GEN      *                                                                                GEN         2008     A     
 GEN      *         +---------------------------------+-+-+-+--------+--+-----+--+         GEN         2009          I
          -FCC0966
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1464    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *         +                                 +A+/+A+        +A + NUM + M+         GEN         2010          I
          -FCC0966
 GEN      *         +    F U N C T I O N     N A M E  +B+/+N+   REL  +R + OF  + O+         GEN         2011          I
          -FCC0966
 GEN      *         +                                 +N+/+S+ ADDRESS+G + ARGS+ D+         GEN         2012          I
          -FCC0966
 GEN      *         +          ( IN  DPC )            +L+/+I+        +M +     + E+         GEN         2013          I
          -FCC0966
 GEN      *         +---------------------------------+-+-+-+--------+--+-----+--+         GEN         2014          I
          -FCC0966
 GEN      *         +---------------------------------+---+-+--------+--+-----+--+         FCC0966       26     A     
 GEN      *         +                                 +///+A+        +A + NUM + M+         FCC0966       27     A     
 GEN      *         +    F U N C T I O N     N A M E  +///+N+   REL  +R + OF  + O+         FCC0966       28     A     
 GEN      *         +                                 +///+S+ ADDRESS+G + ARGS+ D+         FCC0966       29     A     
 GEN      *         +          ( IN  DPC )            +///+I+        +M +     + E+         FCC0966       30     A     
 GEN      *         +---------------------------------+---+-+--------+--+-----+--+         FCC0966       31     A     
 GEN      *                                                                                GEN         2015     A     
 GEN      *                                                                                GEN         2016     A     
 GEN      *         EXTERNAL TABLE FORMAT.                                                 GEN         2017     A     
 GEN      *                                                                                GEN         2018     A     
 GEN      *         +---------------------------------+-+-+-+--------+--+-----+--+         GEN         2019          I
          -FCC0966
 GEN      *         +                                 +A+B+A+        +A + NUM + M+         GEN         2020          I
          -FCC0966
 GEN      *         +    F U N C T I O N     N A M E  +B+E+N+  SHIFT +R + OF  + O+         GEN         2021          I
          -FCC0966
 GEN      *         +                                 +N+F+S+  COUNT +G + ARGS+ D+         GEN         2022          I
          -FCC0966
 GEN      *         +          ( IN  DPC )            +L+/+I+        +M +     + E+         GEN         2023          I
          -FCC0966
 GEN      *         +---------------------------------+-+-+-+--------+--+-----+--+         GEN         2024          I
          -FCC0966
 GEN      *         +---------------------------------+-+-+-+--------+--+-----+--+         FCC0966       32     A     
 GEN      *         +                                 +/+B+A+        +A + NUM + M+         FCC0966       33     A     
 GEN      *         +    F U N C T I O N     N A M E  +/+E+N+  SHIFT +R + OF  + O+         FCC0966       34     A     
 GEN      *         +                                 +/+F+S+  COUNT +G + ARGS+ D+         FCC0966       35     A     
 GEN      *         +          ( IN  DPC )            +/+ +I+        +M +     + E+         FCC0966       36     A     
 GEN      *         +---------------------------------+-+-+-+--------+--+-----+--+         FCC0966       37     A     
 GEN      *                                                                                GEN         2025     A     
 GEN      *                                                                                GEN         2026     A     
 GEN      *         SYMBOL TABLE ENTRY FORMAT FOR EITHER *BEF* OR *INTRINSIC*              GEN         2027     A     
 GEN      *                                                                                GEN         2028     A     
 GEN      *         +-----------------+-----+-+--------+--+-----+-------------+--+         GEN         2029          I
          -FCC0966
 GEN      *         +                 +/////+A+ SHIFT  +A + NUM +             +M +         GEN         2030          I
          -FCC0966
 GEN      *         +   T    A    G   +/////+B+ COUNT  +R + OF  +  C L A S S  +O +         GEN         2031          I
          -FCC0966
 GEN      *         +                 +/////+N+  OR    +G + ARGS+             +D +         GEN         2032          I
          -FCC0966
 GEN      *         +                 +/////+L+ ADDRESS+M +     +             +E +         GEN         2033          I
          -FCC0966
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1465    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *         +-----------------+-----+-+--------+--+-----+-------------+--+         GEN         2034          I
          -FCC0966
 GEN      *         +-----------------+-------+--------+--+-----+-------------+--+         FCC0966       38     A     
 GEN      *         +                 +///////+ SHIFT  +A + NUM +             + M+         FCC0966       39     A     
 GEN      *         +   T    A    G   +///////+ COUNT  +R + OF  +  C L A S S  + O+         FCC0966       40     A     
 GEN      *         +                 +///////+  OR    +G + ARGS+             + D+         FCC0966       41     A     
 GEN      *         +                 +///////+ ADDRESS+M +     +             + E+         FCC0966       42     A     
 GEN      *         +-----------------+-------+--------+--+-----+-------------+--+         FCC0966       43     A     
 GEN      *                18            7        9      3   6         15      3           GEN         2035     A     
 GEN      *                                   +--- PNT----+-PARM+                          GEN         2036     A     
 GEN       FIV      EJECT                                                                  GEN         2037     A     
 GEN       FIV      BSS    0                                                               GEN         2038     A     
 GEN                LOC    0                                                               GEN         2039     A     
 GEN                                                                                       GEN         2040     A     
 GEN      ****      START OF ALL INTRINSICS.                                               GEN         2041     A     
 GEN                                                                                       GEN         2042     A     
 GEN       ABS      NLINE  REAL,REAL,1                                                     GEN         2043     A     
 GEN       AIMAG    NLINE  CPLX,REAL,1                                                     GEN         2044     A     
 GEN       AINT     NLINE  REAL,REAL,1                                                     GEN         2045     A     
 GEN       AMAX0    NLINE  INT,REAL                                                        GEN         2046     A     
 GEN       AMAX1    NLINE  REAL,REAL                                                       GEN         2047     A     
 GEN       AMIN0    NLINE  INT,REAL                                                        GEN         2048     A     
 GEN       AMIN1    NLINE  REAL,REAL                                                       GEN         2049     A     
 GEN       AMOD     NLINE  REAL,REAL                                                       GEN         2050     A     
 GEN       AND      NLINE  UNIV,UNIV,,NONANSI,,SPEC                                        GEN         2051          I
          -FCC0966
 GEN       AND      NLINE  UNIV,UNIV,,NONANSI,SPEC                                         FCC0966       44     A     
 GEN       CMPLX    NLINE  REAL,CPLX,2                                                     GEN         2052     A     
 GEN       CONJG    NLINE  CPLX,CPLX,1                                                     GEN         2053     A     
 GEN       COMPL    NLINE  UNIV,UNIV,1,NONANSI,,SPEC                                       GEN         2054          I
          -FCC0966
 GEN       COMPL    NLINE  UNIV,UNIV,1,NONANSI,SPEC                                        FCC0966       45     A     
 GEN       DABS     NLINE  DBL,DBL,1                                                       GEN         2055     A     
 GEN       DBLE     NLINE  REAL,DBL,1                                                      GEN         2056     A     
 GEN       DIM      NLINE  REAL,REAL,2                                                     GEN         2057     A     
 GEN       DMAX1    NLINE  DBL,DBL                                                         GEN         2058     A     
 GEN       DMIN1    NLINE  DBL,DBL                                                         GEN         2059     A     
 GEN       DMOD     EXTBF  DBL,DBL,2                                                       GEN         2060     A     
 GEN       DSIGN    NLINE  DBL,DBL,2                                                       GEN         2061     A     
 GEN       FLOAT    NLINE  INT,REAL,1                                                      GEN         2062     A     
 GEN       IABS     NLINE  INT,INT,1                                                       GEN         2063     A     
 GEN       IDIM     NLINE  INT,INT,2                                                       GEN         2064     A     
 GEN       IDINT    NLINE  DBL,INT,1                                                       GEN         2065     A     
 GEN       IFIX     NLINE  REAL,INT,1                                                      GEN         2066     A     
 GEN       INT      NLINE  REAL,INT,1                                                      GEN         2067     A     
 GEN       ISIGN    NLINE  INT,INT,2                                                       GEN         2068     A     
 GEN       LOCF     NLINE  UNIV,INT,1,NONANSI,,SPEC                                        GEN         2069          I
          -FCC0966
 GEN       MASK     NLINE  UNIV,UNIV,1,NONANSI,,SPEC   (ARG MODE = MODLESS OR INT)         GEN         2070          I
          -FCC0966
 GEN       LOCF     NLINE  UNIV,INT,1,NONANSI,SPEC                                         FCC0966       46     A     
 GEN       MASK     NLINE  UNIV,UNIV,1,NONANSI,SPEC                                        FCC0966       47          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1466    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
          -FCC1510X 
 GEN       MASK     NLINE  INT,UNIV,1,NONANSI,SPEC                                         FCC1510X       5     A     
 GEN       MAX0     NLINE  INT,INT                                                         GEN         2071     A     
 GEN       MAX1     NLINE  REAL,INT                                                        GEN         2072     A     
 GEN       MIN0     NLINE  INT,INT                                                         GEN         2073     A     
 GEN       MIN1     NLINE  REAL,INT                                                        GEN         2074     A     
 GEN       MOD      NLINE  INT,INT,2,,,SPEC                                                GEN         2075          I
          -FCC0966
 GEN       MOD      NLINE  INT,INT,2,,SPEC                                                 FCC0966       48     A     
 GEN       OR       NLINE  UNIV,UNIV,,NONANSI,,SPEC                                        GEN         2076          I
          -FCC0966
 GEN       OR       NLINE  UNIV,UNIV,,NONANSI,SPEC                                         FCC0966       49     A     
 GEN       RANF     NLINE  UNIV,REAL,1,NONANSI,SPEC                                        FCC0966       50     A     
 GEN       REAL     NLINE  CPLX,REAL,1                                                     GEN         2077     A     
 GEN       SHIFT    NLINE  UNIV,UNIV,2,NONANSI,,SPEC   (SHIFT COUNT MODLESS OR INT         GEN         2078          I
          -FCC0966
 GEN       SHIFT    NLINE  UNIV,UNIV,2,NONANSI,SPEC                                        FCC0966       51     A     
 GEN       SIGN     NLINE  REAL,REAL,2                                                     GEN         2079     A     
 GEN       SNGL     NLINE  DBL,REAL,1                                                      GEN         2080     A     
 GEN       XOR      NLINE  UNIV,UNIV,,NONANSI,,SPEC                                        GEN         2081          I
          -FCC0966
 GEN       XOR      NLINE  UNIV,UNIV,,NONANSI,SPEC                                         FCC0966       52     A     
 GEN      ****                                                                             GEN         2082     A     
 GEN       EXTBF    EJECT  4,8                                                             GEN         2083     A     
 GEN      ****      START OF BASIC EXTERNAL FUNCTIONS (BEFS).                              GEN         2084     A     
 GEN                                                                                       GEN         2085     A     
 GEN       DACOS    EXTBF  DBL,DBL,1                                                       F191FCC        7     A     
 GEN       DASIN    EXTBF  DBL,DBL,1                                                       F191FCC        8     A     
 GEN       DATAN    EXTBF  DBL,DBL,1                                                       GEN         2086     A     
 GEN       DATAN2   EXTBF  DBL,DBL,2                                                       GEN         2087     A     
 GEN       DCOS     EXTBF  DBL,DBL,1                                                       GEN         2088     A     
 GEN       DEXP     EXTBF  DBL,DBL,1                                                       GEN         2089     A     
 GEN       DLOG     EXTBF  DBL,DBL,1                                                       GEN         2090     A     
 GEN       DLOG10   EXTBF  DBL,DBL,1                                                       GEN         2091     A     
 GEN       DSIN     EXTBF  DBL,DBL,1                                                       GEN         2092     A     
 GEN       DTAN     EXTBF  DBL,DBL,1                                                       F191FCC        9     A     
 GEN       DSQRT    EXTBF  DBL,DBL,1                                                       GEN         2093     A     
 GEN       DTANH    EXTBF  DBL,DBL,1,NONANSI                                               FEAT79CZ       4     A     
 GEN       DSINH    EXTBF  DBL,DBL,1,NONANSI                                               FEAT79CZ       5     A     
 GEN       DCOSH    EXTBF  DBL,DBL,1,NONANSI                                               FEAT79CZ       6     A     
 GEN                                                                                       GEN         2094     A     
 GEN       CABS     EXTBF  CPLX,REAL,1                                                     GEN         2095     A     
 GEN       CCOS     EXTBF  CPLX,CPLX,1                                                     GEN         2096     A     
 GEN       CEXP     EXTBF  CPLX,CPLX,1                                                     GEN         2097     A     
 GEN       CLOG     EXTBF  CPLX,CPLX,1                                                     GEN         2098     A     
 GEN       CSIN     EXTBF  CPLX,CPLX,1                                                     GEN         2099     A     
 GEN       CSQRT    EXTBF  CPLX,CPLX,1                                                     GEN         2100     A     
 GEN                                                                                       GEN         2101     A     
 GEN       SIN      EXTBF  REAL,REAL,1                                                     GEN         2102     A     
 GEN       COS      EXTBF  REAL,REAL,1                                                     GEN         2103     A     
 GEN       SQRT     EXTBF  REAL,REAL,1                                                     GEN         2104     A     
 GEN       TAN      EXTBF  REAL,REAL,1,NONANSI                                             GEN         2105     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1467    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       ATAN     EXTBF  REAL,REAL,1                                                     GEN         2106     A     
 GEN       ALOG     EXTBF  REAL,REAL,1                                                     GEN         2107     A     
 GEN       ALOG10   EXTBF  REAL,REAL,1                                                     GEN         2108     A     
 GEN       ATAN2    EXTBF  REAL,REAL,2                                                     GEN         2109     A     
 GEN       ATANH    EXTBF  REAL,REAL,1                                                     F191FCC       10     A     
 GEN       TANH     EXTBF  REAL,REAL,1                                                     GEN         2110     A     
 GEN       SINH     EXTBF  REAL,REAL,1,NONANSI                                             FEAT79BZ       4     A     
 GEN       COSH     EXTBF  REAL,REAL,1,NONANSI                                             FEAT79BZ       5     A     
 GEN       ASIN     EXTBF  REAL,REAL,1,NONANSI                                             GEN         2111     A     
 GEN       ACOS     EXTBF  REAL,REAL,1,NONANSI                                             GEN         2112     A     
 GEN       EXP      EXTBF  REAL,REAL,1                                                     GEN         2113     A     
 GEN       ERF      EXTBF  REAL,REAL,1                                                     F191FCC       11     A     
 GEN       ERFC     EXTBF  REAL,REAL,1                                                     F191FCC       12     A     
 GEN       SIND     EXTBF  REAL,REAL,1                                                     F191FCC       13     A     
 GEN       COSD     EXTBF  REAL,REAL,1                                                     F191FCC       14     A     
 GEN       TAND     EXTBF  REAL,REAL,1                                                     F191FCC       15     A     
 GEN      ****                                                                             GEN         2114     A     
 GEN       L.FIV    BSS    0           LENGTH OF *FIV* TABLE                               GEN         2115     A     
 GEN                LOC    *O                                                              GEN         2116     A     
 GEN       E.FIV    EQU    *-1                                                             GEN         2117     A     
 GEN                POPMAC INLINE                                                          GEN         2118     A     
 GEN                POPMAC EXTBF                                                           GEN         2119     A     
 GEN       EXPON    EJECT  4,8                                                             GEN         2120     A     
 GEN       STINS    SPACE  4,8                                                             GEN         2121     A     
 GEN      **        STINS - SET INSTRUCTION DEPENDING ON TYPES.                            GEN         2122     A     
 GEN                                                                                       GEN         2123     A     
 GEN                                                                                       GEN         2124     A     
 GEN       STINS    MACRO  INSTS                                                           GEN         2125     A     
 GEN       A        MICRO                                                                  GEN         2126     A     
 GEN       B        SET    60                                                              GEN         2127     A     
 GEN       C        SET    16                                                              GEN         2128     A     
 GEN       .1       IRP    INSTS                                                           GEN         2129     A     
 GEN       A        MICRO  1,,."A",C/INSTS.                                                GEN         2130     A     
 GEN       B        SET    B-C                                                             GEN         2131     A     
 GEN       .1       IRP                                                                    GEN         2132     A     
 GEN                VFD    B/0"A"                                                          GEN         2133     A     
 GEN       STINS    ENDM                                                                   GEN         2134     A     
 GEN                                                                                       GEN         2135     A     
 GEN                                                                                       GEN         2136     A     
 GEN       CRTTAB   STINS  (SX=BB,SX=BB,-SB=BB)                                            GEN         2137     A     
 GEN                STINS  (SA=AB,-SA=AB,SB=XB) **** TEMP SB=XB ****                       GEN         2138     A     
 GEN                STINS  (-XMIT,-XMIT,SB=XB)                                             GEN         2139     A     
 GEN                                                                                       GEN         2140     A     
 GEN                POPMAC STINS                                                           GEN         2141     A     
 GEN       CWI      SPACE  4,10                                                            GEN         2142     A     
 GEN       RMAC     SECT   (SKELETONS FOR CODE GENERATION.-MACRUN),1                       GEN         2143     A     
 GEN       DEFUJP   EJECT  4,8                                                             GEN         2144     A     
 GEN      **        DEFUJP - DEFINE INSTRUCTIONS FOR UNCONDITIONAL JUMPS                   GEN         2145     A     
 GEN                                                                                       GEN         2146     A     
 GEN                                                                                       GEN         2147     A     
 GEN                MACRO  DEFUJP,INST,OPC,TYPE                                            GEN         2148     A     
 GEN       INST     EQU    OPC_BS3                                                         GEN         2149     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1468    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       INST     MACRO  K                                                               GEN         2150     A     
 GEN                FORM   (0,OPC,K),INST,TYPE                                             GEN         2151     A     
 GEN       INST     ENDM                                                                   GEN         2152     A     
 GEN       DEFUJP   ENDM                                                                   GEN         2153     A     
 GEN       DEFINS   SPACE  4,8                                                             GEN         2154     A     
 GEN      **        DEFINS - DEFINE INSTRUCTIONS                                           GEN         2155     A     
 GEN                                                                                       GEN         2156     A     
 GEN                                                                                       GEN         2157     A     
 GEN                MACRO  DEFINS,INST,OPC,TYPE                                            GEN         2158     A     
 GEN       A        MICRO  1,, 9                                                           GEN         2159     A     
 GEN                IFEQ   TYPE,M.BRAN,1                                                   GEN         2160     A     
 GEN       A        MICRO  1,, 6                                                           GEN         2161     A     
 GEN       INST     EQU    OPC_BS"A"                                                       GEN         2162     A     
 GEN       INST     MACRO  I,J,K                                                           GEN         2163     A     
 GEN                FORM   (I,J,K),INST,TYPE                                               GEN         2164     A     
 GEN       INST     ENDM                                                                   GEN         2165     A     
 GEN       DEFINS   ENDM                                                                   GEN         2166     A     
 GEN                                                                                       GEN         2167     A     
 GEN                                                                                       GEN         2168     A     
 GEN      **        PURGE STORE, THE 7RM STORE MACRO IN SYSTEXT                            GEN         2169     A     
 GEN                                                                                       GEN         2170     A     
 GEN                PURGMAC  STORE                                                         GEN         2171     A     
 GEN       DMOD     EJECT  4,20                                                            GEN         2172     A     
 GEN      **        DMOD - BUILD MODE OF OPERATION POINTER WORD FOR SELECTING              GEN         2173     A     
 GEN      *                APPROPRIATE INSTRUCTIONS FOR A GIVEN OPERATOR                   GEN         2174     A     
 GEN      *         TYPE = 1ST 3 CHARACTERS MUST BE 0=                                     GEN         2175     A     
 GEN      *         U,L,I,R,D,C = PROCESSING ADDRESSES FOR                                 GEN         2176     A     
 GEN      *                U = UNIVERSAL.                                                  GEN         2177     A     
 GEN      *                L = LOGICAL.                                                    GEN         2178     A     
 GEN      *                I = INTEGER.                                                    GEN         2179     A     
 GEN      *                R = REAL                                                        GEN         2180     A     
 GEN      *                D = DOUBLE                                                      GEN         2181     A     
 GEN      *                C = COMPLEX                                                     GEN         2182     A     
 GEN      *                                                                                GEN         2183     A     
 GEN      *         MUST NOT USE SCRATCH SYMBOL *Z* - SEE FORM, FORME                      GEN         2184     A     
 GEN                                                                                       GEN         2185     A     
 GEN                                                                                       GEN         2186     A     
 GEN                MACRO  DMOD,TYPE,U,L,I,R,D,C                                           GEN         2187     A     
 GEN       B        MICRO  3,,/TYPE/                                                       GEN         2188     A     
 GEN       E        MICRO  ,,                                                              GEN         2189     A     
 GEN      .1        ECHO   ,P=(C,D,R,I,L,U)                                                GEN         2190     A     
 GEN       A        MICRO  1,1,/P/                                                         GEN         2191     A     
 GEN       .2       IFC    EQ,*"A"*E*                                                      GEN         2192     A     
 GEN       E        MICRO  1,,$"E"1/1,7/E.EXBASE,$                                         GEN         2193          I
          -FCC1046
 GEN       E        MICRO  1,,$"E"8/E.EXBASE,$                                             FCC1046       34     A     
 GEN       .2       ELSE                                                                   GEN         2194     A     
 GEN       E        MICRO  1,,$"E"8/"B".P-TYPE,$                                           GEN         2195     A     
 GEN      .1        ENDD                                                                   GEN         2196     A     
 GEN       TYPE     VFD    12/0,"E"                                                        GEN         2197     A     
 GEN       DMOD     ENDM                                                                   GEN         2198     A     
 GEN                                                                                       GEN         2199     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1469    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       E.EXBASE EQU    -3          ACTUALLY E.AT1-1-E.AT1A                             GEN         2200          I
          -FCC1046
 GEN       E.EXBASE EQU    377B                                                            FCC1046       35     A     
 GEN                                                                                       GEN         2201     A     
 GEN       ITYPE    EJECT  4,20                                                            GEN         2202     A     
 GEN      **        ITYPE - FIELD DEFINITIONS FOR INSTRUCTION SKELETON WORDS.              GEN         2203     A     
 GEN                                                                                       GEN         2204     A     
 GEN                                                                                       GEN         2205     A     
 GEN       ITYPE    DEFINE 54,6                                                            GEN         2206     A     
 GEN                                                                                       GEN         2207     A     
 GEN                                                                                       GEN         2208     A     
 GEN       M.COND   EQU    0           CONDITIONAL                                         GEN         2209     A     
 GEN       M.NORM   EQU    1           ARITHMETIC OP-CODES                                 GEN         2210     A     
 GEN       M.INCR   EQU    2           LOAD REGISTER OP-CODES                              GEN         2211     A     
 GEN       M.BRAN   EQU    3           BRANCH OP-CODES                                     GEN         2212     A     
 GEN       M.SHIF   EQU    4           REGISTER SHIFT OP-CODES                             GEN         2213     A     
 GEN       M.ICALL  EQU    5           IF NEEDS TO CALL A EXTERNAL PROCESSOR TO            GEN         2214     A     
 GEN       M.IUSE   EQU    6           IF USE ANOTHER SKELETON.                            GEN         2215     A     
 GEN       M.IRST   EQU    7           IF RESET TO ANOTHER SKELETON.                       GEN         2216     A     
 GEN       M.LOAD   EQU    10B         LOAD/STORE INSTRUCTIONS                             GEN         2217     A     
 GEN                                                                                       GEN         2218     A     
 GEN      **        VALUES *11* THRU *37* NOT CURRENTLY USED.                              GEN         2219     A     
 GEN                                                                                       GEN         2220     A     
 GEN       M.IEND   EQU    40B         END OF SKELETON                                     GEN         2221     A     
 GEN       P.IEND   EQU    59                                                              GEN         2222     A     
 GEN                                                                                       GEN         2223     A     
 GEN       IOPC     DEFINE 45,9        OPCODE.                                             GEN         2224     A     
 GEN       INUM     DEFINE 17,6        REGISTER/ CONSTANT.                                 GEN         2225     A     
 GEN       IOAD     DEFINE 12,5        ORDINAL.                                            GEN         2226     A     
 GEN       IQF      DEFINE 0,12        K IF CONSTANT ADD IN.                               GEN         2227     A     
 GEN                                                                                       GEN         2228     A     
 GEN      **        SKELETON EXPANSION FORMAT.                                             GEN         2229     A     
 GEN      *                                                                                GEN         2230     A     
 GEN      **T SKELETON  6/ TYP, 9/OPCODE, 6/I, 5/I, 6/J, 5/J, 6/K, 5/K, 12/Q FIELD         GEN         2231     A     
 GEN      **T,    6/ ,9/ , 6/NUM, 5/ADDR, 6/NUM, 5/ADDR, 6/NUM, 5/ADDR,12/CONSTANT         GEN         2232     A     
 GEN                                                                                       GEN         2233     A     
 GEN      **        MICROS USED WITHIN SKELETON FIELDS TO DEFINED A PARTICULAR             GEN         2234     A     
 GEN      *         TYPE OF OPERATION/OPERAND OR CONSTANT                                  GEN         2235     A     
 GEN                                                                                       GEN         2236     A     
 GEN       M1       MICRO  1,, CL1                                                         GEN         2237     A     
 GEN       M2       MICRO  1,, CM1                                                         GEN         2238     A     
 GEN       M3       MICRO  1,, CU1                                                         GEN         2239     A     
 GEN       N1       MICRO  1,, CL2                                                         GEN         2240     A     
 GEN       N2       MICRO  1,, CM2                                                         GEN         2241     A     
 GEN       N3       MICRO  1,, CU2                                                         GEN         2242     A     
 GEN       K-1      MICRO  1,, +777776B      MINUS ONE                                     GEN         2243     A     
 GEN       TAG1     MICRO  1,, CU2           TAG FIELD FROM OR.1OP                         GEN         2244     A     
 GEN       TAG2     MICRO  1,, CU2           TAG FIELD FROM OR.2OP                         GEN         2245     A     
 GEN                                                                                       GEN         2246     A     
 GEN       DOBEG    MICRO  1,, CL4           DO BEGIN LABEL                                GEN         2247     A     
 GEN       DOINCR   MICRO  1,, CU2           DO INCREMENT TAG (CONSTANT)                   GEN         2248     A     
 GEN       DOLIM    MICRO  1,, CU3           DO LIMIT VALUE   (CONSTANT)                   GEN         2249     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1470    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       DOINIT   MICRO  1,, CU1           DO INITIAL VALUE (CONSTANT)                   GEN         2250     A     
 GEN       IMACROS  EJECT  4,8                                                             GEN         2251     A     
 GEN      **        INSTRUCTION MACROS                                                     GEN         2252     A     
 GEN                                                                                       GEN         2253     A     
 GEN      **        BRANCH UNIT                                                            GEN         2254     A     
 GEN                                                                                       GEN         2255     A     
 GEN       RJQ      DEFUJP 2,M.BRAN                                                        GEN         2256     A     
 GEN       JPQ      DEFUJP 3,M.BRAN                                                        GEN         2257     A     
 GEN       EQJ      DEFUJP 4,M.BRAN                                                        GEN         2258     A     
 GEN                                                                                       GEN         2259     A     
 GEN       .76      IFEQ   .CPU,76                                                         GEN         2260          I
          -S3143FC
 GEN       #DAL     IFNE   .DAL,0                                                          S3143FC       46     A     
 GEN                                                                                       GEN         2261     A     
 GEN                ENTRY  LCMR,LCMW                                                       GEN         2262     A     
 GEN       LCMR     DEFINS 014,M.BRAN  FAKE *RXJ  XK* AS BRANCH FOR *DEFINS*               GEN         2263     A     
 GEN       LCMW     DEFINS 015,M.BRAN  FAKE *WXJ  XK* AS BRANCH FOR *DEFINS*               GEN         2264     A     
 GEN                                                                                       GEN         2265     A     
 GEN       .76      ENDIF                                                                  GEN         2266          I
          -S3143FC
 GEN       #DAL     ENDIF                                                                  S3143FC       47     A     
 GEN                                                                                       GEN         2267     A     
 GEN       ZRJ      DEFINS 030,M.BRAN                                                      GEN         2268     A     
 GEN       NZJ      DEFINS 031,M.BRAN                                                      GEN         2269     A     
 GEN       PLJ      DEFINS 032,M.BRAN                                                      GEN         2270     A     
 GEN       MIJ      DEFINS 033,M.BRAN                                                      GEN         2271     A     
 GEN                                                                                       GEN         2272     A     
 GEN       IRJ      DEFINS 034,M.BRAN                                                      GEN         2273     A     
 GEN       ORJ      DEFINS 035,M.BRAN                                                      GEN         2274     A     
 GEN       DFJ      DEFINS 036,M.BRAN                                                      GEN         2275     A     
 GEN       IDJ      DEFINS 037,M.BRAN                                                      GEN         2276     A     
 GEN                                                                                       GEN         2277     A     
 GEN       EQB      DEFINS 040,M.BRAN                                                      GEN         2278     A     
 GEN       NEB      DEFINS 050,M.BRAN                                                      GEN         2279     A     
 GEN       LEB      DEFINS 060,M.BRAN                                                      GEN         2280     A     
 GEN       GEB      DEFINS 060,M.BRAN                                                      GEN         2281     A     
 GEN       LTB      DEFINS 070,M.BRAN                                                      GEN         2282     A     
 GEN       GTB      DEFINS 070,M.BRAN                                                      GEN         2283     A     
 GEN                                                                                       GEN         2284     A     
 GEN      **        BOOLEAN UNIT                                                           GEN         2285     A     
 GEN                                                                                       GEN         2286     A     
 GEN       XMIT     DEFINS 10,M.SHIF                                                       GEN         2287     A     
 GEN       AND      DEFINS 11,M.NORM                                                       GEN         2288     A     
 GEN       OR       DEFINS 12,M.NORM                                                       GEN         2289     A     
 GEN       XOR      DEFINS 13,M.NORM                                                       GEN         2290     A     
 GEN       ZERO     DEFINS 13,M.NORM                                                       GEN         2291     A     
 GEN       XMITC    DEFINS 14,M.NORM                                                       GEN         2292     A     
 GEN       ANDN     DEFINS 15,M.NORM                                                       GEN         2293     A     
 GEN       ORN      DEFINS 16,M.NORM                                                       GEN         2294     A     
 GEN       LGDIFC   DEFINS 17,M.NORM                                                       GEN         2295     A     
 GEN       XORN     DEFINS 17,M.NORM                                                       GEN         2296     A     
 GEN                                                                                       GEN         2297     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1471    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      **        SHIFT UNIT.                                                            GEN         2298     A     
 GEN                                                                                       GEN         2299     A     
 GEN       LSHF     DEFINS 20,M.SHIF                                                       GEN         2300     A     
 GEN       RSHF     DEFINS 21,M.SHIF                                                       GEN         2301     A     
 GEN       LSHFB    DEFINS 22,M.SHIF                                                       GEN         2302     A     
 GEN       RSHFB    DEFINS 23,M.SHIF                                                       GEN         2303     A     
 GEN       NORMZ    DEFINS 24,M.NORM                                                       GEN         2304     A     
 GEN       RNORMZ   DEFINS 25,M.NORM                                                       GEN         2305     A     
 GEN       UPACK    DEFINS 26,M.NORM                                                       GEN         2306     A     
 GEN       PACK     DEFINS 27,M.NORM                                                       GEN         2307     A     
 GEN       FMASK    DEFINS 43,M.NORM                                                       GEN         2308     A     
 GEN                                                                                       GEN         2309     A     
 GEN      **        ADD UNIT.                                                              GEN         2310     A     
 GEN                                                                                       GEN         2311     A     
 GEN       FADD     DEFINS 30,M.NORM                                                       GEN         2312     A     
 GEN       FSUB     DEFINS 31,M.NORM                                                       GEN         2313     A     
 GEN       DFADD    DEFINS 32,M.NORM                                                       GEN         2314     A     
 GEN       DFSUB    DEFINS 33,M.NORM                                                       GEN         2315     A     
 GEN       RFADD    DEFINS 34,M.NORM                                                       GEN         2316     A     
 GEN       RFSUB    DEFINS 35,M.NORM                                                       GEN         2317     A     
 GEN                                                                                       GEN         2318     A     
 GEN      **        LONG ADD UNIT.                                                         GEN         2319     A     
 GEN                                                                                       GEN         2320     A     
 GEN       .76      IFEQ   .CPU,76                                                         GEN         2321     A     
 GEN                ENTRY  IADD                                                            GEN         2322     A     
 GEN       .76      ENDIF                                                                  GEN         2323     A     
 GEN                                                                                       GEN         2324     A     
 GEN       IADD     DEFINS 36,M.NORM                                                       GEN         2325     A     
 GEN       ISUB     DEFINS 37,M.NORM                                                       GEN         2326     A     
 GEN                                                                                       GEN         2327     A     
 GEN      **        MULTIPLY UNIT.                                                         GEN         2328     A     
 GEN                                                                                       GEN         2329     A     
 GEN       FMULT    DEFINS 40,M.NORM                                                       GEN         2330     A     
 GEN       RMULT    DEFINS 41,M.NORM                                                       GEN         2331     A     
 GEN       DMULT    DEFINS 42,M.NORM                                                       GEN         2332     A     
 GEN       IMULT    DEFINS 42,M.NORM                                                       GEN         2333     A     
 GEN                                                                                       GEN         2334     A     
 GEN      **        DIVIDE UNIT.                                                           GEN         2335     A     
 GEN                                                                                       GEN         2336     A     
 GEN       FDIV     DEFINS 44,M.NORM                                                       GEN         2337     A     
 GEN       RDIV     DEFINS 45,M.NORM                                                       GEN         2338     A     
 GEN       NOOP     DEFINS 46,M.NORM                                                       GEN         2339     A     
 GEN       POPCNT   DEFINS 47,M.NORM                                                       GEN         2340     A     
 GEN                                                                                       GEN         2341     A     
 GEN      **        INCREMENT UNIT                                                         GEN         2342     A     
 GEN                                                                                       GEN         2343     A     
 GEN       SA=AK    DEFINS 50,M.INCR                                                       GEN         2344     A     
 GEN       SA=BK    DEFINS 51,M.INCR                                                       GEN         2345     A     
 GEN       SA=XK    DEFINS 52,M.INCR                                                       GEN         2346     A     
 GEN       SA=XB    DEFINS 53,M.INCR                                                       GEN         2347     A     
 GEN       SA=AB    DEFINS 54,M.INCR                                                       GEN         2348     A     
 GEN       SA=AMB   DEFINS 55,M.INCR                                                       GEN         2349     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1472    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       SA=BB    DEFINS 56,M.INCR                                                       GEN         2350     A     
 GEN       SA=BMB   DEFINS 57,M.INCR                                                       GEN         2351     A     
 GEN                                                                                       GEN         2352     A     
 GEN       SB=AK    DEFINS 60,M.INCR                                                       GEN         2353     A     
 GEN       SB=BK    DEFINS 61,M.INCR                                                       GEN         2354     A     
 GEN       SB=XK    DEFINS 62,M.INCR                                                       GEN         2355     A     
 GEN       SB=XB    DEFINS 63,M.INCR                                                       GEN         2356     A     
 GEN       SB=AB    DEFINS 64,M.INCR                                                       GEN         2357     A     
 GEN       SB=AMB   DEFINS 65,M.INCR                                                       GEN         2358     A     
 GEN       SB=BB    DEFINS 66,M.INCR                                                       GEN         2359     A     
 GEN       SB=BMB   DEFINS 67,M.INCR                                                       GEN         2360     A     
 GEN                                                                                       GEN         2361     A     
 GEN                                                                                       GEN         2362     A     
 GEN       SX=AK    DEFINS 70,M.INCR                                                       GEN         2363     A     
 GEN       SX=BK    DEFINS 71,M.INCR                                                       GEN         2364     A     
 GEN       SX=XK    DEFINS 72,M.INCR                                                       GEN         2365     A     
 GEN       SX=XB    DEFINS 73,M.INCR                                                       GEN         2366     A     
 GEN       SX=AB    DEFINS 74,M.INCR                                                       GEN         2367     A     
 GEN       SX=AMB   DEFINS 75,M.INCR                                                       GEN         2368     A     
 GEN       SX=BB    DEFINS 76,M.INCR                                                       GEN         2369     A     
 GEN       SX=BMB   DEFINS 77,M.INCR                                                       GEN         2370     A     
 GEN                                                                                       GEN         2371     A     
 GEN       LOAD     DEFINS 50,M.LOAD                                                       GEN         2372     A     
 GEN       LOADB    DEFINS 60,M.LOAD                                                       GEN         2373     A     
 GEN       STORE    DEFINS 50,M.LOAD                                                       GEN         2374     A     
 GEN                                                                                       GEN         2375     A     
 GEN      *         THESE EQUATES ARE FOR EXTERNAL REFERENCES                              GEN         2376     A     
 GEN                                                                                       GEN         2377     A     
 GEN       SA=ABS3  EQU    SA=AB/1S3                                                       GEN         2378     A     
 GEN       SA=ABS6  EQU    SA=AB/1S6                                                       GEN         2379     A     
 GEN       SA=AKS6  EQU    SA=AK/1S6                                                       GEN         2380     A     
 GEN       SA=XKS3  EQU    SA=XK/1S3                                                       GEN         2381     A     
 GEN       SA=BKS3  EQU    SA=BK/1S3                                                       GEN         2382     A     
 GEN       SA=BKS9  EQU    SA=BK/1S9                                                       GEN         2383     A     
 GEN       SB=BKS9  EQU    SB=BK/1S9                                                       GEN         2384     A     
 GEN       SX=BKS9  EQU    SX=BK/1S9                                                       GEN         2385     A     
 GEN       SX=XKS9  EQU    SX=XK/1S9                                                       GEN         2386     A     
 GEN       SX=XKS3  EQU    SX=XK/1S3                                                       GEN         2387     A     
 GEN       SX=BKS3  EQU    SX=BK/1S3                                                       GEN         2388     A     
 GEN       XMITS3   EQU    XMIT/1S3                                                        GEN         2389     A     
 GEN       SB=BKS3  EQU    SB=BK/1S3                                                       FEAT155G     369     A     
 GEN                                                                                       GEN         2390     A     
 GEN       .76      IFEQ   .CPU,76                                                         GEN         2391     A     
 GEN                ENTRY  SX=BKS3                                                         GEN         2392     A     
 GEN       SX=BKS3  EQU    SX=BK/1S3                                                       GEN         2393     A     
 GEN       .76      ENDIF                                                                  GEN         2394     A     
 GEN       SSP      SPACE  4,8                                                             GEN         2395     A     
 GEN       FORM     EJECT  4,8                                                             GEN         2396     A     
 GEN      **        FORM - FORM INSTRUCTION SKELETON FOR COMPILING A GIVEN                 GEN         2397     A     
 GEN      *                SEQUENCE OF CODE.                                               GEN         2398     A     
 GEN      *                                                                                GEN         2399     A     
 GEN      *         ALL INSTRUCTION TO BE COMPILED BY ARITH MUST BE IN THE FORM            GEN         2400     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1473    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *         OF SKELETON INSTRUCTIONS TO BE EXPANDED BY *EIS*, THE                  GEN         2401     A     
 GEN      *         GENERAL INSTRUCTION EXPANDER.                                          GEN         2402     A     
 GEN      *                                                                                GEN         2403     A     
 GEN      *         *FORM* HAS 3 ARGUMENTS --                                              GEN         2404     A     
 GEN      *                1ST = I,J,K PORTIONS OF INSTRUCTIONS.                           GEN         2405     A     
 GEN      *                2ND = OPCODE                                                    GEN         2406     A     
 GEN      *                3RD = TYPE OF OP-CODE.                                          GEN         2407     A     
 GEN                                                                                       GEN         2408     A     
 GEN                                                                                       GEN         2409     A     
 GEN       FORM     MACRO  IJK,OPCODE,TYPE                                                 GEN         2410     A     
 GEN      **               FLUSH PREVIOUS SKELETON                                         GEN         2411     A     
 GEN                VFD    "H""L""Q"                                                       GEN         2412     A     
 GEN       L        MICRO                                                                  GEN         2413     A     
 GEN       Q        MICRO  1,,$,L.IQF/0$                                                   GEN         2414     A     
 GEN       X        SET    TYPE                                                            GEN         2415     A     
 GEN       H        MICRO  1,,$L.ITYPEM/X,L.IOPCM/OPCODE/1S6$                              GEN         2416     A     
 GEN      .1        IRP    IJK                                                             GEN         2417     A     
 GEN                IFC    EQ,  IJK ,2                                                     GEN         2418     A     
 GEN                SETCON 0                                                               GEN         2419     A     
 GEN                SKIP   7                                                               GEN         2420     A     
 GEN      **                           DEFINE BASE FOR THIS PORTION                        GEN         2421     A     
 GEN                IFC    LT, IJK 0 ,2                                                    GEN         2422     A     
 GEN      **                           HERE IF LETTER.                                     GEN         2423     A     
 GEN                SETOTH IJK                                                             GEN         2424     A     
 GEN                SKIP   4                                                               GEN         2425     A     
 GEN                IFC    LT, IJK * ,2                                                    GEN         2426     A     
 GEN      **                           HERE IF CONSTANT.                                   GEN         2427     A     
 GEN                SETCON IJK                                                             GEN         2428     A     
 GEN                SKIP   1                                                               GEN         2429     A     
 GEN      **                           HERE SPECIAL CHARACTER                              GEN         2430     A     
 GEN                SETOTH IJK                                                             GEN         2431     A     
 GEN      .1        IRP                                                                    GEN         2432     A     
 GEN       FORM     ENDM                                                                   GEN         2433     A     
 GEN                                                                                       GEN         2434     A     
 GEN                                                                                       GEN         2435     A     
 GEN       ITYPEM   DEFINE P.ITYPE,L.ITYPE                                                 GEN         2436     A     
 GEN       IOPCM    DEFINE P.IOPC,L.IOPC                                                   GEN         2437     A     
 GEN       INUMM    DEFINE P.INUM,L.INUM                                                   GEN         2438     A     
 GEN       IOADM    DEFINE P.IOAD,L.IOAD                                                   GEN         2439     A     
 GEN       IQFM     DEFINE P.IQF,L.IQF                                                     GEN         2440     A     
 GEN                NOREF  L.IOPCM,L.INUMM,L.IOADM,L.IQFM                                  GEN         2441     A     
 GEN       REGSET   SPACE  4,8                                                             GEN         2442     A     
 GEN      **        REGSET - SET REQUIRED REGISTERS FOR *LOAD* / *STORE*                   GEN         2443     A     
 GEN      *                  SKELETON EXPANSIONS.                                          GEN         2444     A     
 GEN      *                                                                                GEN         2445     A     
 GEN      *         REGSET (I=TR,J=TR,K=TR)                                                GEN         2446     A     
 GEN      *                T = TYPE OF REGISTER  *R.X*, *R.B* OR *R.A*                     GEN         2447     A     
 GEN      *                R=  0-7.                                                        GEN         2448     A     
 GEN                                                                                       GEN         2449     A     
 GEN                                                                                       GEN         2450     A     
 GEN       REGSET   MACRO  IJK                                                             GEN         2451     A     
 GEN      .1        IRP    IJK                                                             GEN         2452     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1474    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       A        MICRO  3,, IJK                                                         GEN         2453     A     
 GEN       C        MICRO  1,,$"C"18/"A"-RGFILE,$                                          GEN         2454     A     
 GEN      .1        IRP                                                                    GEN         2455     A     
 GEN                VFD    "C"6/0                                                          GEN         2456     A     
 GEN       REGSET   ENDM                                                                   GEN         2457     A     
 GEN       SETCON   SPACE  4,8                                                             GEN         2458     A     
 GEN      **        SETCON-  SET CONSTANT FORM OF SKELETON FOR CURRENT PORTION             GEN         2459     A     
 GEN      *                  OF INSTRUCTION PROCESSING.                                    GEN         2460     A     
 GEN      *                                                                                GEN         2461     A     
 GEN      *         EXIT   MICRO *L* RESET.                                                GEN         2462     A     
 GEN      *                IF Q FIELD PRESENT MICRO *Q* BUILT.                             GEN         2463     A     
 GEN      *                                                                                GEN         2464     A     
 GEN      *         A *Q* FIELD IS INDICATED BY THE FIRST CHARACTER BEING A PLUS           GEN         2465     A     
 GEN      *         OR MINUS SIGN.                                                         GEN         2466     A     
 GEN      *                                                                                GEN         2467     A     
 GEN      *                                                                                GEN         2468     A     
 GEN      *         CALLED BY *FORM* WHEN ITH PORTION IS A CONSTANT.                       GEN         2469     A     
 GEN                                                                                       GEN         2470     A     
 GEN                                                                                       GEN         2471     A     
 GEN       SETCON   MACRO  IJK                                                             GEN         2472     A     
 GEN       A        SET    IJK                                                             GEN         2473     A     
 GEN      .1        IFC    LT, IJK +                                                       GEN         2474     A     
 GEN      *                                                                                GEN         2475     A     
 GEN      *                            HARD NUMERIC REGISTER FIELD                         GEN         2476     A     
 GEN      *                                                                                GEN         2477     A     
 GEN       L        MICRO  1,,$"L",L.INUMM/IJK,L.IOADM/AT.K-SBASE$                         GEN         2478     A     
 GEN      .1        ELSE                                                                   GEN         2479     A     
 GEN      *                                                                                GEN         2480     A     
 GEN      *                            18-BIT *Q* FIELD                                    GEN         2481     A     
 GEN      *                                                                                GEN         2482     A     
 GEN       D        OCTMIC A,6                                                             GEN         2483     A     
 GEN       .2       IFLT   A,0                                                             GEN         2484     A     
 GEN       B        MICRO  1,2, "D"                                                        GEN         2485     A     
 GEN       C        MICRO  3,, "D"                                                         GEN         2486     A     
 GEN       L        MICRO  1,,$"L",L.INUMM/"B"B,L.IOADM/AT.Q-SBASE$                        GEN         2487     A     
 GEN       Q        MICRO  1,,$,L.IQF/"C"B$                                                GEN         2488     A     
 GEN       .2       ELSE                                                                   GEN         2489     A     
 GEN       B        DECMIC A/1S12                                                          GEN         2490     A     
 GEN       D        DECMIC A-"B"*1S12                                                      GEN         2491     A     
 GEN       L        MICRO  1,,$"L",L.INUMM/"B",L.IOADM/AT.Q-SBASE$                         GEN         2492     A     
 GEN       Q        MICRO  1,,$,L.IQF/"D"$                                                 GEN         2493     A     
 GEN       .2       ENDIF                                                                  GEN         2494     A     
 GEN      .1        ENDIF                                                                  GEN         2495     A     
 GEN       SETCON   ENDM                                                                   GEN         2496     A     
 GEN       SETOTH   SPACE  4,8                                                             GEN         2497     A     
 GEN      **        SETOTH- SET OTHER TYPE FIELD FOR *FORM* MACRO.                         GEN         2498     A     
 GEN                                                                                       GEN         2499     A     
 GEN                                                                                       GEN         2500     A     
 GEN       SETOTH   MACRO  IJK                                                             GEN         2501     A     
 GEN       A        MICRO  1,, IJK                                                         GEN         2502     A     
 GEN       B        MICCNT A                                                               GEN         2503     A     
 GEN       C        MICRO  B,1, IJK                                                        GEN         2504     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1475    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       F        SET    1                                                               GEN         2505     A     
 GEN       D        MICRO  B-1,1, IJK                                                      GEN         2506     A     
 GEN                IFC    GT, "D" Z ,2                                                    GEN         2507     A     
 GEN       F        SET    2                                                               GEN         2508     A     
 GEN       C        MICRO  B-1,2, IJK                                                      GEN         2509     A     
 GEN       G        SET    B-F                                                             GEN         2510     A     
 GEN       E        MICRO  1,G, IJK                                                        GEN         2511     A     
 GEN       A        MICMIC 1,T."E"                                                         GEN         2512     A     
 GEN       N        MICRO  "C"*2+6,2,-"A"-                                                 GEN         2513     A     
 GEN       E        MICRO  1,, "A"                                                         GEN         2514     A     
 GEN       L        MICRO  1,,$"L",L.INUMM/"N",L.IOADM/AT."E"-SBASE$                       GEN         2515     A     
 GEN       SETOTH   ENDM                                                                   GEN         2516     A     
 GEN       ENDF     SPACE  4,8                                                             GEN         2517     A     
 GEN      **        ENDF - FLUSH LAST SKELETON WORD.                                       GEN         2518     A     
 GEN      *                                                                                GEN         2519     A     
 GEN      *         ENDF                                                                   GEN         2520     A     
 GEN                                                                                       GEN         2521     A     
 GEN                                                                                       GEN         2522     A     
 GEN       ENDF     MACRO                                                                  GEN         2523     A     
 GEN                VFD    "H""L""Q"                                                       GEN         2524     A     
 GEN       H        MICRO                                                                  GEN         2525     A     
 GEN       L        MICRO                                                                  GEN         2526     A     
 GEN       Q        MICRO                                                                  GEN         2527     A     
 GEN       ENDF     ENDM                                                                   GEN         2528     A     
 GEN       ENDS     SPACE  4,20                                                            GEN         2529     A     
 GEN      **        ENDS - END MACRO SKELETON.                                             GEN         2530     A     
 GEN      *                                                                                GEN         2531     A     
 GEN      *         GENERATES ENDING *SKELETON* FOR AN *RMAC* MACRO.                       GEN         2532     A     
 GEN      *                                                                                GEN         2533     A     
 GEN      *         ENDS                                                                   GEN         2534     A     
 GEN                                                                                       GEN         2535     A     
 GEN                                                                                       GEN         2536     A     
 GEN       ENDS     MACRO                                                                  GEN         2537     A     
 GEN       X        SET    X+M.IEND                                                        GEN         2538     A     
 GEN                VFD    "H""L""Q"                                                       GEN         2539     A     
 GEN       H        MICRO                                                                  GEN         2540     A     
 GEN       L        MICRO                                                                  GEN         2541     A     
 GEN       Q        MICRO                                                                  GEN         2542     A     
 GEN       ENDS     ENDM                                                                   GEN         2543     A     
 GEN       SETSPC   EJECT  4,8                                                             GEN         2544     A     
 GEN      **        DEFINITION OF SPECIAL SKELETONS AVAILABLE WHEN TYPE FIELD              GEN         2545     A     
 GEN      *         OF SKELETON IS = M.SPEC                                                GEN         2546     A     
 GEN                                                                                       GEN         2547     A     
 GEN       ITYPE    DEFINE 54,6        TYPE                                                GEN         2548     A     
 GEN       MATTR    DEFINE 36,18       ATTRIBUTES                                          GEN         2549     A     
 GEN       MARG     DEFINE 18,18       ARGUMENT IF PRESENT                                 GEN         2550     A     
 GEN       MJPAD    DEFINE 0,18        ADDRESS TO BE SET TO                                GEN         2551     A     
 GEN       SETSPC   SPACE  4,8                                                             GEN         2552     A     
 GEN      **        SETSPC- SET SPECIAL SKELETON                                           GEN         2553     A     
 GEN                                                                                       GEN         2554     A     
 GEN                                                                                       GEN         2555     A     
 GEN       SETSPC   MACRO  TYPE,WHERE,ARG                                                  GEN         2556     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1476    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                VFD    "H""L""Q"                                                       GEN         2557     A     
 GEN       H        MICRO  1,,$L.ITYPE/X,L.MATTR/0,L.MARG/ARG,L.MJPAD/WHERE$               GEN         2558     A     
 GEN       X        SET    TYPE                                                            GEN         2559     A     
 GEN       L        MICRO                                                                  GEN         2560     A     
 GEN       Q        MICRO                                                                  GEN         2561     A     
 GEN       SETSPC   ENDM                                                                   GEN         2562     A     
 GEN       RESET    SPACE  4,8                                                             GEN         2563     A     
 GEN      **        RESET - RESET CURRENT INSTRUCTION SKELETON POINTER TO ARGUMENT         GEN         2564     A     
 GEN      *         ARG = WHERE TO RESET SKELETON TO.  IF NEGATIVE *ARG* INDICATES         GEN         2565     A     
 GEN      *               RELATIVE TO TT.PAR WHERE NEXT *TURPLE* IS TO BE FOUND            GEN         2566     A     
 GEN                                                                                       GEN         2567     A     
 GEN                                                                                       GEN         2568     A     
 GEN       RESET    MACRO  TO,ARG                                                          GEN         2569     A     
 GEN                SETSPC M.IRST,TO,ARG                                                   GEN         2570     A     
 GEN       RESET    ENDM                                                                   GEN         2571     A     
 GEN       USESKL   SPACE  4,8                                                             GEN         2572     A     
 GEN      **        USESKL - USE ANOTHER SKELETON TO PARTIAL PROCESS                       GEN         2573     A     
 GEN      *                  CURRENT TURPLE.                                               GEN         2574     A     
 GEN                                                                                       GEN         2575     A     
 GEN                                                                                       GEN         2576     A     
 GEN       USESKL   MACRO  TO,ARG                                                          GEN         2577     A     
 GEN                SETSPC M.IUSE,TO,ARG                                                   GEN         2578     A     
 GEN       USESKL   ENDM                                                                   GEN         2579     A     
 GEN       CALL     SPACE  4,8                                                             GEN         2580     A     
 GEN      **        CALL - CALL AN EXTERNAL PROCESSOR TO PROCESS/ OR PARTIALLY             GEN         2581     A     
 GEN      *                PROCESS CURRENT TURPLE.                                         GEN         2582     A     
 GEN      *                                                                                GEN         2583     A     
 GEN      *         NOTE - IF CALL IS TO USE OR.1OP OR OR.2OP AS ARGUMENT, *L*             GEN         2584     A     
 GEN      *                MUST BE PREFIX FOLLOWED BY EITHER *1* OR *2* ONLY.              GEN         2585     A     
 GEN      *                ALL OTHER CASES SHOULD PREFIX ARGUMENT WITH A *0+*.             GEN         2586     A     
 GEN                                                                                       GEN         2587     A     
 GEN                                                                                       GEN         2588     A     
 GEN       CALL     MACRO  TO,ARG                                                          GEN         2589     A     
 GEN      .1        IFC    LT, ARG 0                                                       GEN         2590     A     
 GEN       A        MICRO  2,1, ARG                                                        GEN         2591     A     
 GEN       B        OCTMIC "A",1                                                           GEN         2592     A     
 GEN                SETSPC M.ICALL,TO,-"B"                                                 GEN         2593     A     
 GEN      .1        ELSE                                                                   GEN         2594     A     
 GEN                SETSPC M.ICALL,TO,ARG                                                  GEN         2595     A     
 GEN      .1        ENDIF                                                                  GEN         2596     A     
 GEN       CALL     ENDM                                                                   GEN         2597     A     
 GEN       TYPES    EJECT                                                                  GEN         2598     A     
 GEN       MICMIC   SPACE  4,8                                                             GEN         2599     A     
 GEN      **        MICMIC- GET MICRO OF MICRO.                                            GEN         2600     A     
 GEN      *         MIC = RESULTING MICRO.                                                 GEN         2601     A     
 GEN      *         N   = STARTING CHARACTER POSITION.                                     GEN         2602     A     
 GEN      *         CMIC= CURRENT MICRO.                                                   GEN         2603     A     
 GEN                                                                                       GEN         2604     A     
 GEN                                                                                       GEN         2605     A     
 GEN                MACRO  MICMIC,MIC,N,CMIC                                               GEN         2606     A     
 GEN       MIC      MICRO  N,,/"CMIC"/                                                     GEN         2607     A     
 GEN       MICMIC   ENDM                                                                   GEN         2608     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1477    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       ALLMIC   SPACE  4,8                                                             GEN         2609     A     
 GEN      ****      MICROS TO TRANSLATE REQUESTED TYPE OF OPERATION INTO                   GEN         2610     A     
 GEN      *         INTERNAL ADDRESS AND NUMBERS.                                          GEN         2611     A     
 GEN                                                                                       GEN         2612     A     
 GEN                                                                                       GEN         2613     A     
 GEN       T.B      MICRO  1,,/SB     010203040506070809101112/                            GEN         2614     A     
 GEN       T.X      MICRO  1,,/SX   00010203040506070809101112/                            GEN         2615     A     
 GEN       T.L      MICRO  1,,/L      010204050708101113141617/                            GEN         2616     A     
 GEN       T.LN     MICRO  1,,/LN     010204050708101113141617/                            GEN         2617     A     
 GEN       T.LB     MICRO  1,,/LB     010204050708101113141617/                            GEN         2618     A     
 GEN       T.R      MICRO  1,,/RR     010204050708101113141617/                            GEN         2619     A     
 GEN       T.LU     MICRO  1,,/L      010204050708101113141617/                            GEN         2620     A     
 GEN       T.LNU    MICRO  1,,/LN     010204050708101113141617/                            GEN         2621     A     
 GEN       T.LL     MICRO  1,,/LL     010204050708101113141617/                            GEN         2622     A     
 GEN       T.LNL    MICRO  1,,/LNL    010204050708101113141617/                            GEN         2623     A     
 GEN       T.RU     MICRO  1,,/RR     010204050708101113141617/                            GEN         2624     A     
 GEN       T.RL     MICRO  1,,/RL     010204050708101113141617/                            GEN         2625     A     
 GEN       T.T      MICRO  1,,/ST     0001020304050607080910111213141516171819/            GEN         2626     A     
 GEN       T.TG     MICRO  1,,/TG     010204050708101113141617/                            GEN         2627     A     
 GEN       T.CL     MICRO  1,,/CNL    010204050708101113141617/                            GEN         2628     A     
 GEN       T.CM     MICRO  1,,/CNM    010204050708101113141617/                            GEN         2629     A     
 GEN       T.CU     MICRO  1,,/CNU    010204050708101113141617/                            GEN         2630     A     
 GEN                                                                                       GEN         2631     A     
 GEN      **          CLEAR ENTITY TYPE OF MACROS.                                         GEN         2632     A     
 GEN                                                                                       GEN         2633     A     
 GEN       T.*B     MICRO  1,,/CB     010203040506070809101112/                            GEN         2634     A     
 GEN       T.*X     MICRO  1,,/CX     010203040506070809101112/                            GEN         2635     A     
 GEN       T.*T     MICRO  1,,/CT     0001020304050607080910111213141516171819/            GEN         2636     A     
 GEN       T.*L     MICRO  1,,/CL     010204050708101113141617/                            GEN         2637     A     
 GEN       T.*LU    MICRO  1,,/CLU    010204050708101113141617/                            GEN         2638     A     
 GEN       T.*LL    MICRO  1,,/CLL    010204050708101113141617/                            GEN         2639     A     
 GEN      ****                                                                             GEN         2640     A     
 GEN       INST     EJECT                                                                  GEN         2641     A     
 GEN      **        INSTRUCTION SKELETONS.                                                 GEN         2642     A     
 GEN                                                                                       GEN         2643     A     
 GEN       H        MICRO                    SET UP MICROS FOR SKELETONS                   GEN         2644     A     
 GEN       L        MICRO                                                                  GEN         2645     A     
 GEN       Q        MICRO                                                                  GEN         2646     A     
 GEN       ADD      SPACE  4,20                                                            GEN         2647     A     
 GEN      **        1.  ADD INSTRUCTIONS.                                                  GEN         2648     A     
 GEN                                                                                       GEN         2649     A     
 GEN                                                                                       GEN         2650     A     
 GEN       O=ADD    DMOD   I,E.AT1A,I,R,D,C                                                GEN         2651     A     
 GEN       ADD.I    IADD   R1,L1,L2                                                        GEN         2652     A     
 GEN                ENDS                                                                   GEN         2653     A     
 GEN       ADD.R    FADD   T1,L1,L2                                                        GEN         2654     A     
 GEN                NORMZ  R1,0,*T1                                                        GEN         2655     A     
 GEN                ENDS                                                                   GEN         2656     A     
 GEN       ADD.D    FADD   T1,LNU1,LNU2                                                    GEN         2657     A     
 GEN                DFADD  T2,LU1,LU2                                                      GEN         2658     A     
 GEN                FADD   T3,LL1,LL2                                                      GEN         2659     A     
 GEN                NORMZ  T4,0,*T1                                                        GEN         2660     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1478    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                FADD   T5,*T2,*T3                                                      GEN         2661     A     
 GEN                FADD   T6,T4,T5                                                        GEN         2662     A     
 GEN                NORMZ  T7,0,*T6                                                        GEN         2663     A     
 GEN                DFADD  T8,*T4,*T5                                                      GEN         2664     A     
 GEN                NORMZ  T9,0,*T8                                                        GEN         2665     A     
 GEN                FADD   RU1,T7,T9                                                       GEN         2666     A     
 GEN                DFADD  RL1,*T7,*T9                                                     GEN         2667     A     
 GEN                ENDS                                                                   GEN         2668     A     
 GEN       ADD.C    FADD   T1,LU1,LU2                                                      GEN         2669     A     
 GEN                NORMZ  RU1,0,*T1                                                       GEN         2670     A     
 GEN                FADD   T2,LL1,LL2                                                      GEN         2671     A     
 GEN                NORMZ  RL1,0,*T2                                                       GEN         2672     A     
 GEN                ENDS                                                                   GEN         2673     A     
 GEN       RADD     SPACE  4,8                                                             GEN         2674     A     
 GEN      **        ROUNDED ADD INSTRUCTIONS                                               GEN         2675     A     
 GEN                                                                                       GEN         2676     A     
 GEN                                                                                       GEN         2677     A     
 GEN                ENTRY  O=RADD                                                          GEN         2678     A     
 GEN       O=RADD   DMOD   I,E.AT1A,I,R,D,C                                                GEN         2679     A     
 GEN       RADD.I   IADD   R1,L1,L2                                                        GEN         2680     A     
 GEN                ENDS                                                                   GEN         2681     A     
 GEN       RADD.R   RFADD  T1,L1,L2                                                        GEN         2682     A     
 GEN                NORMZ  R1,0,*T1                                                        GEN         2683     A     
 GEN                ENDS                                                                   GEN         2684     A     
 GEN       RADD.D   RESET  ADD.D                                                           GEN         2685     A     
 GEN                ENDS                                                                   GEN         2686     A     
 GEN       RADD.C   RFADD  T1,LU1,LU2                                                      GEN         2687     A     
 GEN                NORMZ  RU1,0,*T1                                                       GEN         2688     A     
 GEN                RFADD  T2,LL1,LL2                                                      GEN         2689     A     
 GEN                NORMZ  RL1,0,*T2                                                       GEN         2690     A     
 GEN                ENDS                                                                   GEN         2691     A     
 GEN       SUBTRACT SPACE  4,20                                                            GEN         2692     A     
 GEN      **        2.  SUBTRACT INSTRUCTIONS.                                             GEN         2693     A     
 GEN                                                                                       GEN         2694     A     
 GEN                                                                                       GEN         2695     A     
 GEN       O=SUB    DMOD   I,E.AT1A,I,R,D,C                                                GEN         2696     A     
 GEN       SUB.I    ISUB   R1,L1,L2                                                        GEN         2697     A     
 GEN                ENDS                                                                   GEN         2698     A     
 GEN       SUB.R    FSUB   T1,L1,L2                                                        GEN         2699     A     
 GEN                NORMZ  R1,0,*T1                                                        GEN         2700     A     
 GEN                ENDS                                                                   GEN         2701     A     
 GEN       SUB.D    FSUB   T1,LNU1,LNU2                                                    GEN         2702     A     
 GEN                DFSUB  T2,LU1,LU2                                                      GEN         2703     A     
 GEN                FSUB   T3,LL1,LL2                                                      GEN         2704     A     
 GEN                RESET  ADD.D+3                                                         GEN         2705     A     
 GEN                ENDS                                                                   GEN         2706     A     
 GEN       SUB.C    FSUB   T1,LU1,LU2                                                      GEN         2707     A     
 GEN                NORMZ  RU1,0,*T1                                                       GEN         2708     A     
 GEN                FSUB   T2,LL1,LL2                                                      GEN         2709     A     
 GEN                NORMZ  RL1,0,*T2                                                       GEN         2710     A     
 GEN                ENDS                                                                   GEN         2711     A     
 GEN       RSUB     SPACE  4,8                                                             GEN         2712     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1479    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      **        ROUNDED SUBTRACT INSTRUCTIONS                                          GEN         2713     A     
 GEN                                                                                       GEN         2714     A     
 GEN                                                                                       GEN         2715     A     
 GEN                ENTRY  O=RSUB                                                          GEN         2716     A     
 GEN       O=RSUB   DMOD   I,E.AT1A,I,R,D,C                                                GEN         2717     A     
 GEN       RSUB.I   ISUB   R1,L1,L2                                                        GEN         2718     A     
 GEN                ENDS                                                                   GEN         2719     A     
 GEN       RSUB.R   RFSUB  T1,L1,L2                                                        GEN         2720     A     
 GEN                NORMZ  R1,0,*T1                                                        GEN         2721     A     
 GEN                ENDS                                                                   GEN         2722     A     
 GEN       RSUB.D   RESET  SUB.D                                                           GEN         2723     A     
 GEN                ENDS                                                                   GEN         2724     A     
 GEN       RSUB.C   RFSUB  T1,LU1,LU2                                                      GEN         2725     A     
 GEN                NORMZ  RU1,0,*T1                                                       GEN         2726     A     
 GEN                RFSUB  T2,LL1,LL2                                                      GEN         2727     A     
 GEN                NORMZ  RL1,0,*T2                                                       GEN         2728     A     
 GEN                ENDS                                                                   GEN         2729     A     
 GEN       UMINUS   SPACE  4,20                                                            GEN         2730     A     
 GEN      **        4.  UNARY MINUS                                                        GEN         2731     A     
 GEN                                                                                       GEN         2732     A     
 GEN                                                                                       GEN         2733     A     
 GEN       O=UMIN   DMOD   I,E.AT1A,I,I,D,D                                                GEN         2734     A     
 GEN       UMIN.I   XMITC  R1,L2                                                           GEN         2735     A     
 GEN                ENDS                                                                   GEN         2736     A     
 GEN       O=NOT    EQU    UMIN.I                                                          GEN         2737     A     
 GEN       UMIN.D   XMITC  RU1,LU2                                                         GEN         2738     A     
 GEN                XMITC  RL1,LL2                                                         GEN         2739     A     
 GEN                ENDS                                                                   GEN         2740     A     
 GEN       MULTIPLY SPACE  4,20                                                            GEN         2741     A     
 GEN      **        5.  MULTIPLY INSTRUCTIONS.                                             GEN         2742     A     
 GEN                                                                                       GEN         2743     A     
 GEN                                                                                       GEN         2744     A     
 GEN       O=MULT   DMOD   I,E.AT1A,I,R,D,C                                                GEN         2745     A     
 GEN       MULT.I   BSS    0                                                               GEN         2746     A     
 GEN                IMULT  R1,L1,L2                                                        GEN         2747     A     
 GEN                ENDS                                                                   GEN         2748     A     
 GEN       MULT.R   FMULT  R1,L1,L2                                                        GEN         2749     A     
 GEN                ENDS                                                                   GEN         2750     A     
 GEN       MULT.D   FMULT  T1,LL1,LNU2                                                     GEN         2751     A     
 GEN                FMULT  T2,LNU1,LL2                                                     GEN         2752     A     
 GEN                FADD   T3,*T1,*T2                                                      GEN         2753     A     
 GEN                FMULT  T4,LNU1,LNU2                                                    GEN         2754     A     
 GEN                DMULT  T5,LU1,LU2                                                      GEN         2755     A     
 GEN                FADD   T6,*T3,*T5                                                      GEN         2756     A     
 GEN                FADD   RU1,T4,T6                                                       GEN         2757     A     
 GEN                DFADD  RL1,*T4,*T6                                                     GEN         2758     A     
 GEN                ENDS                                                                   GEN         2759     A     
 GEN       MULT.C   FMULT  T1,LNU1,LNU2                                                    GEN         2760     A     
 GEN                FMULT  T2,LNL1,LNL2                                                    GEN         2761     A     
 GEN                FSUB   T3,*T1,*T2                                                      GEN         2762     A     
 GEN                NORMZ  RU1,0,*T3                                                       GEN         2763     A     
 GEN                FMULT  T4,LU1,LL2                                                      GEN         2764     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1480    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                FMULT  T5,LL1,LU2                                                      GEN         2765     A     
 GEN                FADD   T6,*T4,*T5                                                      GEN         2766     A     
 GEN                NORMZ  RL1,0,*T6                                                       GEN         2767     A     
 GEN                ENDS                                                                   GEN         2768     A     
 GEN       RMULT    SPACE  4,8                                                             GEN         2769     A     
 GEN      **        ROUNDED MULTIPLY                                                       GEN         2770     A     
 GEN                                                                                       GEN         2771     A     
 GEN                                                                                       GEN         2772     A     
 GEN                ENTRY  O=RMULT                                                         GEN         2773     A     
 GEN       O=RMULT  DMOD   I,E.AT1A,I,R,D,C                                                GEN         2774     A     
 GEN       RMULT.I  IMULT  R1,L1,L2                                                        GEN         2775     A     
 GEN                ENDS                                                                   GEN         2776     A     
 GEN       RMULT.R  RMULT  R1,L1,L2                                                        GEN         2777     A     
 GEN                ENDS                                                                   GEN         2778     A     
 GEN       RMULT.D  RESET  MULT.D                                                          GEN         2779     A     
 GEN                ENDS                                                                   GEN         2780     A     
 GEN       RMULT.C  RMULT  T1,LNU1,LNU2                                                    GEN         2781     A     
 GEN                RMULT  T2,LNL1,LNL2                                                    GEN         2782     A     
 GEN                RFSUB  T3,*T1,*T2                                                      GEN         2783     A     
 GEN                NORMZ  RU1,0,*T3                                                       GEN         2784     A     
 GEN                RMULT  T4,LU1,LL2                                                      GEN         2785     A     
 GEN                RMULT  T5,LL1,LU2                                                      GEN         2786     A     
 GEN                RFADD  T6,*T4,*T5                                                      GEN         2787     A     
 GEN                NORMZ  RL1,0,*T6                                                       GEN         2788     A     
 GEN                ENDS                                                                   GEN         2789     A     
 GEN       DIVIDE   SPACE  4,20                                                            GEN         2790     A     
 GEN      **        6.  DIVIDE INSTRUCTIONS.                                               GEN         2791     A     
 GEN                                                                                       GEN         2792     A     
 GEN                                                                                       GEN         2793     A     
 GEN       O=DIV    DMOD   I,E.AT1A,I,R,D,C                                                GEN         2794     A     
 GEN       DIV.I    PACK   T1,0,L2                                                         GEN         2795     A     
 GEN                NORMZ  T2,0,*T1                                                        GEN         2796     A     
 GEN                PACK   T3,0,L1                                                         GEN         2797     A     
 GEN                FDIV   T4,*T3,*T2                                                      GEN         2798     A     
 GEN                UPACK  T5,B1,*T4                                                       GEN         2799     A     
 GEN                LSHFB  R1,*B1,*T5                                                      GEN         2800     A     
 GEN                ENDS                                                                   GEN         2801     A     
 GEN       DIV.R    FDIV   R1,L1,L2                                                        GEN         2802     A     
 GEN                ENDS                                                                   GEN         2803     A     
 GEN       DIV.D    FDIV   T1,LNU1,LNU2                                                    GEN         2804     A     
 GEN                FMULT  T2,T1,LNU2                                                      GEN         2805     A     
 GEN                FSUB   T3,LNU1,T2                                                      GEN         2806     A     
 GEN                DFSUB  T4,LU1,*T2                                                      GEN         2807     A     
 GEN                NORMZ  T5,0,*T3                                                        GEN         2808     A     
 GEN                FADD   T6,*T4,*T5                                                      GEN         2809     A     
 GEN                DMULT  T7,T1,LNU2                                                      GEN         2810     A     
 GEN                FSUB   T8,LL1,*T7                                                      GEN         2811     A     
 GEN                FADD   T9,*T6,*T8                                                      GEN         2812     A     
 GEN                FMULT  T10,T1,LL2                                                      GEN         2813     A     
 GEN                FSUB   T11,*T9,*T10                                                    GEN         2814     A     
 GEN                FDIV   T12,*T11,LU2                                                    GEN         2815     A     
 GEN                FADD   T13,T1,T12                                                      GEN         2816     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1481    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                NORMZ  T14,0,*T13                                                      GEN         2817     A     
 GEN                DFADD  T15,*T1,*T12                                                    GEN         2818     A     
 GEN                FADD   RU1,T15,T14                                                     GEN         2819     A     
 GEN                DFADD  RL1,*T15,*T14                                                   GEN         2820     A     
 GEN                ENDS                                                                   GEN         2821     A     
 GEN       DIV.C    FMULT  T1,LNU1,LNL2                                                    GEN         2822     A     
 GEN                FMULT  T2,LNL1,LNU2                                                    GEN         2823     A     
 GEN                FSUB   T3,*T2,*T1                                                      GEN         2824     A     
 GEN                NORMZ  T4,0,*T3                                                        GEN         2825     A     
 GEN                FMULT  T5,LU1,LNU2                                                     GEN         2826     A     
 GEN                FMULT  T6,LL1,LNL2                                                     GEN         2827     A     
 GEN                FADD   T7,*T5,*T6                                                      GEN         2828     A     
 GEN                NORMZ  T8,0,*T7                                                        GEN         2829     A     
 GEN                FMULT  T9,LU2,LNU2                                                     GEN         2830     A     
 GEN                FMULT  T10,LL2,LNL2                                                    GEN         2831     A     
 GEN                FADD   T11,*T9,*T10                                                    GEN         2832     A     
 GEN                NORMZ  T12,0,*T11                                                      GEN         2833     A     
 GEN                FDIV   RU1,*T8,T12                                                     GEN         2834     A     
 GEN                FDIV   RL1,*T4,*T12                                                    GEN         2835     A     
 GEN                ENDS                                                                   GEN         2836     A     
 GEN       RDIV     SPACE  4,8                                                             GEN         2837     A     
 GEN      **        ROUNDED DIVIDE                                                         GEN         2838     A     
 GEN      *                                                                                GEN         2839     A     
 GEN      *                                                                                GEN         2840     A     
 GEN                ENTRY  O=RDIV                                                          GEN         2841     A     
 GEN       O=RDIV   DMOD   I,E.AT1A,I,R,D,C                                                GEN         2842     A     
 GEN       RDIV.I   RESET  DIV.I                                                           GEN         2843     A     
 GEN                ENDS                                                                   GEN         2844     A     
 GEN       RDIV.R   RDIV   R1,L1,L2                                                        GEN         2845     A     
 GEN                ENDS                                                                   GEN         2846     A     
 GEN       RDIV.D   RESET  DIV.D                                                           GEN         2847     A     
 GEN                ENDS                                                                   GEN         2848     A     
 GEN       RDIV.C   RMULT  T1,LNU1,LNL2                                                    GEN         2849     A     
 GEN                RMULT  T2,LNL1,LNU2                                                    GEN         2850     A     
 GEN                RFSUB  T3,*T2,*T1                                                      GEN         2851     A     
 GEN                NORMZ  T4,0,*T3                                                        GEN         2852     A     
 GEN                RMULT  T5,LU1,LNU2                                                     GEN         2853     A     
 GEN                RMULT  T6,LL1,LNL2                                                     GEN         2854     A     
 GEN                RFADD  T7,*T5,*T6                                                      GEN         2855     A     
 GEN                NORMZ  T8,0,*T7                                                        GEN         2856     A     
 GEN                RMULT  T9,LU2,LNU2                                                     GEN         2857     A     
 GEN                RMULT  T10,LL2,LNL2                                                    GEN         2858     A     
 GEN                RFADD  T11,*T9,*T10                                                    GEN         2859     A     
 GEN                NORMZ  T12,0,*T11                                                      GEN         2860     A     
 GEN                RDIV   RU1,*T8,T12                                                     GEN         2861     A     
 GEN                RDIV   RL1,*T4,*T12                                                    GEN         2862     A     
 GEN                ENDS                                                                   GEN         2863     A     
 GEN       LOGICAL  SPACE  4,20                                                            GEN         2864     A     
 GEN      **        7.  LOGICAL / MASKING OPERATORS.                                       GEN         2865     A     
 GEN      *             VAR1 .OP. VAR2 = MODELESS  (THANK YOU, 3600)                       GEN         2866     A     
 GEN      *             LOG1 .OP. LOG2 = LOGICAL                                           GEN         2867     A     
 GEN                                                                                       GEN         2868     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1482    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                                                                                       GEN         2869     A     
 GEN      *O=NOT    SEE UNARY MINUS OPERATOR. (O=UMIN)                                     GEN         2870     A     
 GEN       O=ANDO   AND    R1,L1,L2                                                        GEN         2871     A     
 GEN                ENDS                                                                   GEN         2872     A     
 GEN       O=ORO    OR     R1,L1,L2                                                        GEN         2873     A     
 GEN                ENDS                                                                   GEN         2874     A     
 GEN       O=XOR    XOR    R1,L1,L2                                                        GEN         2875     A     
 GEN                ENDS                                                                   GEN         2876     A     
 GEN       O=ORN    ORN    R1,L1,L2                                                        GEN         2877     A     
 GEN                ENDS                                                                   GEN         2878     A     
 GEN       O=ANDN   ANDN   R1,L1,L2                                                        GEN         2879     A     
 GEN                ENDS                                                                   GEN         2880     A     
 GEN       O=XORN   XORN   R1,L1,L2                                                        GEN         2881     A     
 GEN                ENDS                                                                   GEN         2882     A     
 GEN       RELAT    SPACE  4,8                                                             GEN         2883     A     
 GEN      **        8.  RELATIONALS.                                                       GEN         2884     A     
 GEN      *             VAR1 .OP. VAR2 = PERFORM IN VAR MODE, RESULTS = LOGICAL            GEN         2885     A     
 GEN      *             LOG1 .OP. LOG2 = ILLEGAL.                                          GEN         2886     A     
 GEN                                                                                       GEN         2887     A     
 GEN                                                                                       GEN         2888     A     
 GEN                                                                                       GEN         2889     A     
 GEN       O=LT     DMOD   I,E.AT1A,I,R,D,R                                                GEN         2890     A     
 GEN       LT.I     ISUB   T1,L1,L2                                                        GEN         2891     A     
 GEN                FMASK  T2,0,0                                                          GEN         2892     A     
 GEN                IADD   R1,*T1,*T2                                                      GEN         2893     A     
 GEN                ENDS                                                                   GEN         2894     A     
 GEN       LT.R     FSUB   T1,L1,L2                                                        GEN         2895     A     
 GEN                NORMZ  R1,0,*T1                                                        GEN         2896     A     
 GEN                ENDS                                                                   GEN         2897     A     
 GEN       LT.D     FSUB   T1,LL1,LL2                                                      GEN         2898     A     
 GEN                FSUB   T2,LNU1,LNU2                                                    GEN         2899     A     
 GEN                NORMZ  T3,0,*T2                                                        GEN         2900     A     
 GEN                DFSUB  T4,LU1,LU2                                                      GEN         2901     A     
 GEN                FADD   T5,*T1,*T4                                                      GEN         2902     A     
 GEN                FADD   RU1,*T3,*T5                                                     GEN         2903     A     
 GEN                ENDS                                                                   GEN         2904     A     
 GEN                                                                                       GEN         2905     A     
 GEN       O=GE     DMOD   I,E.AT1A,I,R,D,R                                                GEN         2906     A     
 GEN       GE.I     ISUB   T1,L1,L2                                                        GEN         2907     A     
 GEN                FMASK  T2,0,0                                                          GEN         2908     A     
 GEN                IADD   T3,*T1,*T2                                                      GEN         2909     A     
 GEN                XMITC  R1,*T3,0                                                        GEN         2910     A     
 GEN                ENDS                                                                   GEN         2911     A     
 GEN       GE.R     FSUB   T1,L1,L2                                                        GEN         2912     A     
 GEN                NORMZ  T2,0,*T1                                                        GEN         2913     A     
 GEN                XMITC  R1,*T2,0                                                        GEN         2914     A     
 GEN                ENDS                                                                   GEN         2915     A     
 GEN       GE.D     DFSUB  T1,LNU1,LNU2                                                    GEN         2916     A     
 GEN                FSUB   T2,LU1,LU2                                                      GEN         2917     A     
 GEN                NORMZ  T3,0,*T2                                                        GEN         2918     A     
 GEN                FSUB   T4,LL1,LL2                                                      GEN         2919     A     
 GEN                FADD   T5,*T1,*T4                                                      GEN         2920     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1483    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                FADD   T6,*T3,*T5                                                      GEN         2921     A     
 GEN                XMITC  RU1,*T6,0                                                       GEN         2922     A     
 GEN                ENDS                                                                   GEN         2923     A     
 GEN                                                                                       GEN         2924     A     
 GEN                                                                                       GEN         2925     A     
 GEN       O=NE     DMOD   I,E.AT1A,I,R,D,D                                                GEN         2926     A     
 GEN       NE.I     FMASK  T1,0,0                                                          GEN         2927     A     
 GEN                ISUB   T2,L1,L2                                                        GEN         2928     A     
 GEN                IADD   T3,*T2,T1                                                       GEN         2929     A     
 GEN                ISUB   T4,*T1,T3                                                       GEN         2930     A     
 GEN                OR     R1,*T4,*T3                                                      GEN         2931     A     
 GEN                ENDS                                                                   GEN         2932     A     
 GEN       NE.R     FSUB   T1,L1,L2                                                        GEN         2933     A     
 GEN                NORMZ  T2,0,*T1                                                        GEN         2934     A     
 GEN                FMASK  T3,0,0                                                          GEN         2935     A     
 GEN                ISUB   T4,*T3,T2                                                       GEN         2936     A     
 GEN                OR     R1,*T2,*T4                                                      GEN         2937     A     
 GEN                ENDS                                                                   GEN         2938     A     
 GEN       NE.D     FSUB   T1,LU1,LU2                                                      GEN         2939     A     
 GEN                FSUB   T2,LL1,LL2                                                      GEN         2940     A     
 GEN                NORMZ  T3,0,*T1                                                        GEN         2941     A     
 GEN                FMASK  T4,0,0                                                          GEN         2942     A     
 GEN                NORMZ  T5,0,*T2                                                        GEN         2943     A     
 GEN                OR     T6,*T3,*T5                                                      GEN         2944     A     
 GEN                ISUB   T7,*T4,T6                                                       GEN         2945     A     
 GEN                OR     RU1,*T7,*T6                                                     GEN         2946     A     
 GEN                ENDS                                                                   GEN         2947     A     
 GEN                                                                                       GEN         2948     A     
 GEN       O=EQ     DMOD   I,E.AT1A,I,R,D,D                                                GEN         2949     A     
 GEN       EQ.I     ISUB   T1,L1,L2                                                        GEN         2950     A     
 GEN                FMASK  T2,0,0                                                          GEN         2951     A     
 GEN                IADD   T3,*T1,T2                                                       GEN         2952     A     
 GEN                ISUB   T4,*T2,T3                                                       GEN         2953     A     
 GEN                LGDIFC R1,*T4,*T3                                                      GEN         2954     A     
 GEN                ENDS                                                                   GEN         2955     A     
 GEN       EQ.R     FSUB   T1,L1,L2                                                        GEN         2956     A     
 GEN                NORMZ  T2,0,*T1                                                        GEN         2957     A     
 GEN                FMASK  T3,0,0                                                          GEN         2958     A     
 GEN                ISUB   T4,*T3,T2                                                       GEN         2959     A     
 GEN                LGDIFC R1,*T2,*T4                                                      GEN         2960     A     
 GEN                ENDS                                                                   GEN         2961     A     
 GEN       EQ.D     FSUB   T1,LU1,LU2                                                      GEN         2962     A     
 GEN                NORMZ  T2,0,*T1                                                        GEN         2963     A     
 GEN                FSUB   T3,LL1,LL2                                                      GEN         2964     A     
 GEN                FMASK  T4,0,0                                                          GEN         2965     A     
 GEN                NORMZ  T5,0,*T3                                                        GEN         2966     A     
 GEN                OR     T6,*T2,*T5                                                      GEN         2967     A     
 GEN                ISUB   T7,*T4,T6                                                       GEN         2968     A     
 GEN                LGDIFC RU1,*T7,*T6                                                     GEN         2969     A     
 GEN                ENDS                                                                   GEN         2970     A     
 GEN       O=REL1   SPACE  4,8                                                             GEN         2971     A     
 GEN      **        SKELETONS THAT MAKE USE OF THE SHIFT INSTRUCTION TO PERFORM            GEN         2972     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1484    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *         ARITHMETIC OPERATIONS.                                                 GEN         2973     A     
 GEN      *                                                                                GEN         2974     A     
 GEN      *         INTEGER MULTIPLY SKELETONS.                                            GEN         2975     A     
 GEN                                                                                       GEN         2976     A     
 GEN                                                                                       GEN         2977     A     
 GEN       O=SHFC   XMIT   T1,L1                                                           GEN         2978     A     
 GEN                LSHF   T1,CM2                                                          GEN         2979     A     
 GEN                XMIT   R1,*T1                                                          GEN         2980     A     
 GEN                ENDS                                                                   GEN         2981     A     
 GEN       O=SHFD   XMIT   T1,LN1,0                                                        GEN         2982     A     
 GEN                LSHF   T1,CU2,0                                                        GEN         2983     A     
 GEN                XMIT   T2,L1,0                                                         GEN         2984     A     
 GEN                LSHF   T2,CM2,0                                                        GEN         2985     A     
 GEN                ISUB   R1,*T2,*T1                                                      GEN         2986     A     
 GEN                ENDS                                                                   GEN         2987     A     
 GEN       O=SHFDS  XMIT   T1,LN1,0                                                        GEN         2988     A     
 GEN                LSHF   T1,CM2,0                                                        GEN         2989     A     
 GEN                ISUB   R1,*T1,L1                                                       GEN         2990     A     
 GEN                ENDS                                                                   GEN         2991     A     
 GEN       O=SHFS   XMIT   T1,LN1,0                                                        GEN         2992     A     
 GEN                LSHF   T1,CU2,0                                                        GEN         2993     A     
 GEN                IADD   T2,*T1,L1                                                       GEN         2994     A     
 GEN                LSHF   T2,CM2                                                          GEN         2995     A     
 GEN                XMIT   R1,*T2                                                          GEN         2996     A     
 GEN                ENDS                                                                   GEN         2997     A     
 GEN       O=SHFSA  XMIT   T1,LN1,0                                                        GEN         2998     A     
 GEN                LSHF   T1,CU2,0                                                        GEN         2999     A     
 GEN                IADD   R1,*T1,L1                                                       GEN         3000     A     
 GEN                ENDS                                                                   GEN         3001     A     
 GEN                                                                                       GEN         3002     A     
 GEN      **        INTEGER DIVIDE BY POWER OF 2 SKELETON                                  GEN         3003     A     
 GEN                                                                                       GEN         3004     A     
 GEN       O=DIVP2  XMIT   T1,L1                                                           GEN         3005     A     
 GEN                RSHF   T1,CM2                                                          GEN         3006     A     
 GEN                XMIT   R1,*T1                                                          GEN         3007     A     
 GEN                ENDS                                                                   GEN         3008     A     
 GEN       O=STR    SPACE  4,8                                                             GEN         3009     A     
 GEN      **        11.  STORE SKELETONS RELATIVE TO DOMINANT MODE                         GEN         3010     A     
 GEN      *              *TURPLE* FORM -                                                   GEN         3011     A     
 GEN      *                            OR.1OP = RIGHT MEMBER.                              GEN         3012     A     
 GEN      *                            OR.2OP = LEFT  MEMBER.                              GEN         3013     A     
 GEN                                                                                       GEN         3014     A     
 GEN                                                                                       GEN         3015     A     
 GEN       O=STR    DMOD   I,I,I,R,D,C                                                     GEN         3016     A     
 GEN       STR.I    BSS    0                                                               GEN         3017     A     
 GEN       STR.R    STORE  R2,L1                                                           GEN         3018     A     
 GEN                ENDS                                                                   GEN         3019     A     
 GEN                                                                                       GEN         3020     A     
 GEN       STR.D    BSS    0                                                               GEN         3021     A     
 GEN       STR.C    STORE  RU2,LU1                                                         GEN         3022     A     
 GEN                STORE  RL2,LL1                                                         GEN         3023     A     
 GEN                ENDS                                                                   GEN         3024     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1485    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       MODECON  SPACE  4,20                                                            GEN         3025     A     
 GEN      **        MODE CONVERSION SKELETONS                                              GEN         3026     A     
 GEN      *                                                                                GEN         3027     A     
 GEN      *         KEY TO *MC* OPERANDS FOR MODE CONVERSION PROCESSING.                   GEN         3028     A     
 GEN      *         *MC* = 1, RESULTS TO UPPER REGISTER.                                   GEN         3029     A     
 GEN      *              = 2, RESULTS TO LOWER REGISTER.                                   GEN         3030     A     
 GEN                                                                                       GEN         3031     A     
 GEN       MODECON  DATA   0           MODE CONVERSION FLAG USED DURING *PASS* 2           GEN         3032     A     
 GEN                                   TO PROCESS CONVERSION.                              GEN         3033     A     
 GEN                                                                                       GEN         3034     A     
 GEN       ITOR     PACK   T1,0,L2     INTEGER TO REAL CONVERSION                          GEN         3035     A     
 GEN                NORMZ  R1,0,*T1                                                        GEN         3036     A     
 GEN                ENDS                                                                   GEN         3037     A     
 GEN                                                                                       GEN         3038     A     
 GEN       ITOD     PACK   T1,0,L2     INTEGER TO DOUBLE CONVERSION                        GEN         3039     A     
 GEN                NORMZ  RU1,0,*T1                                                       GEN         3040     A     
 GEN                FMASK  RL1,0,0                                                         GEN         3041     A     
 GEN                ENDS                                                                   GEN         3042     A     
 GEN       ITOC     EQU    ITOD        INTEGER TO COMPLEX CONVERSION                       GEN         3043     A     
 GEN                                                                                       GEN         3044     A     
 GEN       RTOI     UPACK  T1,6,L2     REAL TO INTEGER CONVERSION                          GEN         3045     A     
 GEN                LSHFB  R1,6,*T1                                                        GEN         3046     A     
 GEN                ENDS                                                                   GEN         3047     A     
 GEN                                                                                       GEN         3048     A     
 GEN       RTOD     XMIT   RU1,L2      REAL TO DOUBLE CONVERSION                           GEN         3049     A     
 GEN                FMASK  RL1,0,0                                                         GEN         3050     A     
 GEN                ENDS                                                                   GEN         3051     A     
 GEN                                                                                       GEN         3052     A     
 GEN       DTOI     UPACK  T1,7,LU2    DOUBLE TO INTEGER                                   GEN         3053     A     
 GEN                LSHFB  R1,7,*T1                                                        GEN         3054     A     
 GEN                ENDS                                                                   GEN         3055     A     
 GEN       CTOI     EQU    DTOI                                                            GEN         3056     A     
 GEN                                                                                       GEN         3057     A     
 GEN       DTOC     XMIT   RU1,LU2     DOUBLE TO COMPLEX CONVERSION                        GEN         3058     A     
 GEN                FMASK  RL1,0,0                                                         GEN         3059     A     
 GEN                ENDS                                                                   GEN         3060     A     
 GEN       CTOD     EQU    DTOC        COMPLEX TO DOUBLE                                   GEN         3061     A     
 GEN       MCTBL    EJECT  4,8                                                             GEN         3062     A     
 GEN      **        MCTBL - MODE CONVERSION TABLE BUILD MACRO.                             GEN         3063     A     
 GEN                                                                                       GEN         3064     A     
 GEN                                                                                       GEN         3065     A     
 GEN                MACRO  MCTBL,DUMY,U,L,I,R,D,C                                          GEN         3066          I
          -FCC1638X 
 GEN       C        MICRO  ,,                                                              GEN         3067          I
          -FCC1638X 
 GEN                MACRO  MCTBL,DUMY,U,L,I,R,D,C,NAB,NAE                                  FCC1638X      75     A     
 GEN       E        SET    0                                                               FCC1638X      76     A     
 GEN                IRP    NAB                                                             FCC1638X      77     A     
 GEN       B        DECMIC 5-M.NAB                                                         FCC1638X      78     A     
 GEN       E        SET    1S"B"+E                                                         FCC1638X      79     A     
 GEN                IRP    NAB                                                             FCC1638X      80     A     
 GEN       G        SET    0                                                               FCC1638X      81     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1486    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                IRP    NAE                                                             FCC1638X      82     A     
 GEN       J        DECMIC 5-M.NAE                                                         FCC1638X      83     A     
 GEN       G        SET    1S"J"+G                                                         FCC1638X      84     A     
 GEN                IRP    NAE                                                             FCC1638X      85     A     
 GEN       F        MICRO  ,,                                                              FCC1638X      86     A     
 GEN      .1        ECHO   ,P1=(C,D,R,I,L,U)                                               GEN         3068     A     
 GEN       A        MICRO  1,1, P1                                                         GEN         3069     A     
 GEN                IFC    EQ,$"A"$E$,3                                                    GEN         3070     A     
 GEN       A        MICRO  4,, P1                                                          GEN         3071     A     
 GEN       C        MICRO  1,,$"C"8/E.EXBAS1,$                                             GEN         3072          I
          -FCC1046
 GEN       C        MICRO  1,,$"C"8/E.EXBASE,$                                             FCC1046       36          I
          -FCC1638X 
 GEN       F        MICRO  1,,$"F"8/E.EXBASE,$                                             FCC1638X      87     A     
 GEN                SKIP   4                                                               GEN         3073     A     
 GEN                IFC    EQ,$"A"$*$,2                                                    GEN         3074     A     
 GEN       C        MICRO  1,,$"C"8/0,$                                                    GEN         3075          I
          -FCC1638X 
 GEN       F        MICRO  1,,$"F"8/0,$                                                    FCC1638X      88     A     
 GEN                SKIP   1                                                               GEN         3076     A     
 GEN       C        MICRO  1,,$"C"8/P1-MODECON,$                                           GEN         3077          I
          -FCC1638X 
 GEN       F        MICRO  1,,$"F"8/P1-MODECON,$                                           FCC1638X      89     A     
 GEN      .1        ENDD                                                                   GEN         3078     A     
 GEN                VFD    12/0,"C"                                                        GEN         3079          I
          -FCC1638X 
 GEN                VFD    6/E,6/G,"F"                                                     FCC1638X      90     A     
 GEN       MCTBL    ENDM                                                                   GEN         3080     A     
 GEN                                                                                       GEN         3081          I
          -FCC1046
 GEN       E.EXBAS1 EQU    377B                                                            GEN         3082          I
          -FCC1046
 GEN       MODTBL   SPACE  4,8                                                             GEN         3083     A     
 GEN      **        MCTBL - TABLE TO FORM JUMP ADDRESSES FOR MODE CONVERSION.              GEN         3084     A     
 GEN      *         FORM IS OPERAND TO BE CONVERTED VS DOMINANT MODE                       GEN         3085     A     
 GEN      *                                                                                GEN         3086     A     
 GEN      *         KEY                                                                    GEN         3087     A     
 GEN      *                * = NO MODE CONVERSION.                                         GEN         3088     A     
 GEN      *         PREFIX E = ERROR IN MODE CONVERSION.                                   GEN         3089     A     
 GEN      *         X TO Y   = MODE CONVERSION TO BE PROCESSED.                            GEN         3090     A     
 GEN      *         MCTBL EXPANDED TO USE HIGH ORDER 12 BITS                               FCC1638X      91     A     
 GEN      *         NAB - NON-ANSI COMBINATIONS WITH *+-/ OPERATORS                        FCC1638X      92     A     
 GEN      *         FORM IS MODE OF OPERAND TO CONVERTED VERSUS DOMINANT MODE              FCC1638X      93     A     
 GEN      *         NAE - NON ANSI EXPONENTIATION                                          FCC1638X      94     A     
 GEN      *         FORM IS BASE VERSUS EXPONENT                                           FCC1638X      95     A     
 GEN                                                                                       GEN         3091     A     
 GEN                                                                                       GEN         3092     A     
 GEN       MODTBL   BSS    0                                                               GEN         3093     A     
 GEN       M.UNIV   MCTBL  *,ERR1,*,*,*,*                                                  GEN         3094          I
          -FCC0519
 GEN       M.UNIV   MCTBL  *,ERR1,*,*,RTOD,RTOD                                            FCC0519       16          I
          -FCC1638X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1487    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       M.LOG    MCTBL  ERR1,*,ERR1,ERR1,ERR1,ERR1                                      GEN         3095          I
          -FCC1638X 
 GEN       M.INT    MCTBL  *,ERR1,*,ITOR,ITOD,ITOC                                         GEN         3096          I
          -FCC1638X 
 GEN       M.REAL   MCTBL  *,ERR1,RTOI,*,RTOD,RTOD                                         GEN         3097          I
          -FCC1638X 
 GEN       M.DBL    MCTBL  *,ERR1,DTOI,*,*,DTOC                                            GEN         3098          I
          -FCC1638X 
 GEN       M.CPLX   MCTBL  *,ERR1,CTOI,*,CTOD,*                                            GEN         3099          I
          -FCC1638X 
 GEN       M.UNIV   MCTBL  *,ERR1,*,*,RTOD,RTOD,(),()                                      FCC1638X      96     A     
 GEN       M.LOG    MCTBL  ERR1,*,ERR1,ERR1,ERR1,ERR1,(),()                                FCC1638X      97     A     
 GEN       M.INT    MCTBL  *,ERR1,*,ITOR,ITOD,ITOC,(REAL,DBL,CPLX),(REAL,DBL,CPLX)         FCC1638X      98     A     
 GEN       M.REAL   MCTBL  *,ERR1,RTOI,*,RTOD,RTOD,(),(CPLX)                               FCC1638X      99     A     
 GEN       M.DBL    MCTBL  *,ERR1,DTOI,*,*,DTOC,(CPLX),(CPLX)                              FCC1638X     100     A     
 GEN       M.CPLX   MCTBL  *,ERR1,CTOI,*,CTOD,*,(),()                                      FCC1638X     101     A     
 GEN                                                                                       GEN         3100          I
          -FCC0519
 GEN       AMODTBL  BSS    0           ALTERNATE TABLE ENTRY FOR MODELESS REPLACE          GEN         3101          I
          -FCC0519
 GEN       M.UNIV   MCTBL  *,ERR1,*,*,RTOD,RTOD                                            GEN         3102          I
          -FCC0519
 GEN                                                                                       GEN         3103     A     
 GEN                POPMAC MCTBL                                                           GEN         3104     A     
 GEN       INTRINS  EJECT  4,4                                                             GEN         3105     A     
 GEN      **        12. INTRINSIC FUNCTIONS.                                               GEN         3106     A     
 GEN                                                                                       GEN         3107     A     
 GEN                                                                                       GEN         3108     A     
 GEN       INLBASE  BSS    0           BASE ADDRESS OF INLINES.                            GEN         3109     A     
 GEN       O=ABS    XMIT   T1,LN2,0                                                        GEN         3110     A     
 GEN                RSHF   T1,59,0                                                         GEN         3111     A     
 GEN                XOR    R1,L2,*T1                                                       GEN         3112     A     
 GEN                ENDS                                                                   GEN         3113     A     
 GEN       O=IABS   EQU    O=ABS                                                           GEN         3114     A     
 GEN       O=AIMAG  XMIT   R1,LL2,0    IMAGINARY PART OF COMPLEX ARGUMENT                  GEN         3115     A     
 GEN                ENDS                                                                   GEN         3116     A     
 GEN       O=AINT   UPACK  T1,6,L2                                                         GEN         3117          I
          -FCC1055
 GEN                LSHFB  T2,6,*T1                                                        GEN         3118          I
          -FCC1055
 GEN                PACK   T3,0,*T2                                                        GEN         3119          I
          -FCC1055
 GEN       O=AINT   ZERO   T1                                                              FCC1055        5     A     
 GEN                PACK   T2,0,*T1                                                        FCC1055        6     A     
 GEN                FADD   T3,L2,*T2                                                       FCC1055        7     A     
 GEN                NORMZ  R1,0,*T3                                                        GEN         3120     A     
 GEN                ENDS                                                                   GEN         3121     A     
 GEN       O=MAX0   ISUB   T1,LN1,LN2  I=MAX0(I1,I2)                                       GEN         3122     A     
 GEN                XMIT   T2,*T1,0                                                        GEN         3123     A     
 GEN                RSHF   T2,59,0                                                         GEN         3124     A     
 GEN                AND    T3,T2,L2                                                        GEN         3125     A     
 GEN                ANDN   T4,L1,*T2                                                       GEN         3126     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1488    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                IADD   R1,*T3,*T4                                                      GEN         3127     A     
 GEN                ENDS                                                                   GEN         3128     A     
 GEN       O=DMAX1  FSUB   T1,LNU1,LNU2                                                    GEN         3129     A     
 GEN                DFSUB  T2,LNU1,LNU2                                                    GEN         3130     A     
 GEN                FSUB   T3,LNL1,LNL2                                                    GEN         3131     A     
 GEN                NORMZ  T4,0,*T1                                                        GEN         3132     A     
 GEN                FADD   T5,*T2,*T3                                                      GEN         3133     A     
 GEN                FADD   T6,*T4,*T5                                                      GEN         3134     A     
 GEN                XMIT   T7,*T6,0                                                        GEN         3135     A     
 GEN                RSHF   T7,59,0                                                         GEN         3136     A     
 GEN                AND    T8,T7,LU2                                                       GEN         3137     A     
 GEN                AND    T9,T7,LL2                                                       GEN         3138     A     
 GEN                ANDN   T10,LU1,T7                                                      GEN         3139     A     
 GEN                ANDN   T11,LL1,*T7                                                     GEN         3140     A     
 GEN                IADD   RU1,*T8,*T10                                                    GEN         3141     A     
 GEN                OR     RL1,*T9,*T11                                                    GEN         3142     A     
 GEN                ENDS                                                                   GEN         3143     A     
 GEN       O=MIN0   ISUB   T1,LN2,LN1   I=MIN0(I1,I2)                                      GEN         3144     A     
 GEN                RESET  O=MAX0+1                                                        GEN         3145     A     
 GEN                ENDS                                                                   GEN         3146     A     
 GEN       O=DMIN1  FSUB   T1,LNU2,LNU1                                                    GEN         3147     A     
 GEN                DFSUB  T2,LNU2,LNU1                                                    GEN         3148     A     
 GEN                FSUB   T3,LNL2,LNL1                                                    GEN         3149     A     
 GEN                RESET  O=DMAX1+3                                                       GEN         3150     A     
 GEN                ENDS                                                                   GEN         3151     A     
 GEN       O=AMAX1  FSUB   T1,LN1,LN2  R=AMAX1(R1,R2)                                      GEN         3152     A     
 GEN                XMIT   T2,*T1,0                                                        GEN         3153     A     
 GEN                RSHF   T2,59,0                                                         GEN         3154     A     
 GEN                AND    T3,T2,L2                                                        GEN         3155     A     
 GEN                ANDN   T4,L1,*T2                                                       GEN         3156     A     
 GEN                IADD   R1,*T3,*T4                                                      GEN         3157     A     
 GEN                ENDS                                                                   GEN         3158     A     
 GEN       O=AMIN1  FSUB   T1,LN2,LN1  R=AMIN1(R1,R2)                                      GEN         3159     A     
 GEN                RESET  O=AMAX1+1                                                       GEN         3160     A     
 GEN                ENDS                                                                   GEN         3161     A     
 GEN                                                                                       GEN         3162     A     
 GEN       O=MAX1   EQU    O=AMAX1     I=MAX1(R1,R2)  (MODE CONVERSION TO FOLLOW)          GEN         3163     A     
 GEN       O=MIN1   EQU    O=AMIN1     I=MIN1(R1,R2)  (MODE CONVERSION TO FOLLOW)          GEN         3164     A     
 GEN       O=AMAX0  EQU    O=MAX0      R=AMAX0(I1,I2) (MODE CONVERSION TO FOLLOW)          GEN         3165     A     
 GEN       O=AMIN0  EQU    O=MIN0      R=AMAN0(I1,I2) (MODE CONVERSION TO FOLLOW)          GEN         3166     A     
 GEN                                                                                       GEN         3167     A     
 GEN       O=AMOD   FDIV   T1,LN1,LN2                                                      GEN         3168          I
          -FCC1070
 GEN                UPACK  T2,6,*T1                                                        GEN         3169          I
          -FCC1070
 GEN                LSHFB  T3,6,*T2                                                        GEN         3170          I
          -FCC1070
 GEN                PACK   T4,0,*T3                                                        GEN         3171          I
          -FCC1070
 GEN                NORMZ  T5,0,*T4                                                        GEN         3172          I
          -FCC1070
 GEN                FMULT  T6,L2,*T5                                                       GEN         3173          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1489    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
          -FCC1070
 GEN                FSUB   T7,L1,*T6                                                       GEN         3174          I
          -FCC1070
 GEN                NORMZ  R1,0,*T7                                                        GEN         3175          I
          -FCC1070
 GEN       O=AMOD   FDIV   T1,L1,LN2                                                       FCC1070        4          I
          -FCC1583AX
 GEN                ZERO   T2                                                              FCC1070        5          I
          -FCC1583AX
 GEN                PACK   T3,0,*T2                                                        FCC1070        6          I
          -FCC1583AX
 GEN                DFADD  T4,*T3,*T1                                                      FCC1070        7          I
          -FCC1583AX
 GEN                NORMZ  T5,0,*T4                                                        FCC1070        8          I
          -FCC1583AX
 GEN                FMULT  R1,*T5,L2                                                       FCC1070        9          I
          -FCC1583AX
 GEN                ENDS                                                                   GEN         3176          I
          -FCC1583AX
 GEN       O=AMOD   FDIV   T1,LN1,LN2                                                      FCC1583AX      5     A     
 GEN                ZERO   T2                                                              FCC1583AX      6     A     
 GEN                PACK   T3,0,*T2                                                        FCC1583AX      7     A     
 GEN                FADD   T4,*T3,*T1                                                      FCC1583AX      8     A     
 GEN                NORMZ  T5,0,*T4                                                        FCC1583AX      9     A     
 GEN                FMULT  T6,T5,LN2                                                       FCC1583AX     10     A     
 GEN                DMULT  T7,*T5,L2                                                       FCC1583AX     11     A     
 GEN                DFSUB  T8,LN1,T6                                                       FCC1583AX     12     A     
 GEN                FSUB   T9,L1,*T6                                                       FCC1583AX     13     A     
 GEN                FSUB   T10,*T8,*T7                                                     FCC1583AX     14     A     
 GEN                NORMZ  T11,0,*T9                                                       FCC1583AX     15     A     
 GEN                FADD   T12,*T11,*T10                                                   FCC1583AX     16     A     
 GEN                NORMZ  R1,0,*T12                                                       FCC1583AX     17     A     
 GEN                ENDS                                                                   FCC1583AX     18     A     
 GEN                                                                                       FCC1583AX     19     A     
 GEN       O=AND    EQU    O=ANDO                                                          GEN         3177     A     
 GEN       O=COMPL  EQU    O=NOT                                                           GEN         3178     A     
 GEN                                                                                       GEN         3179     A     
 GEN       O=CONJG  XMIT   RU1,LU2                                                         GEN         3180     A     
 GEN                XMITC  RL1,LL2                                                         GEN         3181     A     
 GEN                ENDS                                                                   GEN         3182     A     
 GEN       O=DABS   XMIT   T1,LNU2                                                         GEN         3183     A     
 GEN                RSHF   T1,59                                                           GEN         3184     A     
 GEN                XOR    RU1,T1,LU2                                                      GEN         3185     A     
 GEN                XOR    RL1,*T1,LL2                                                     GEN         3186     A     
 GEN                ENDS                                                                   GEN         3187     A     
 GEN                                                                                       GEN         3188     A     
 GEN       O=DBLE   XMIT   RU1,L2                                                          GEN         3189     A     
 GEN                FMASK  RL1,0,0                                                         GEN         3190     A     
 GEN                ENDS                                                                   GEN         3191     A     
 GEN       O=CMPLX  XMIT   RU1,L1                                                          GEN         3192     A     
 GEN                XMIT   RL1,L2                                                          GEN         3193     A     
 GEN                ENDS                                                                   GEN         3194     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1490    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                                                                                       GEN         3195     A     
 GEN       O=DIM    FSUB   T1,LN1,LN2                                                      GEN         3196          I
          -FCC1055
 GEN                XMIT   T2,*T1                                                          GEN         3197          I
          -FCC1055
 GEN                RSHF   T2,59,0                                                         GEN         3198          I
          -FCC1055
 GEN                AND    T3,T2,LN1                                                       GEN         3199          I
          -FCC1055
 GEN                ANDN   T4,L2,*T2                                                       GEN         3200          I
          -FCC1055
 GEN                IADD   T5,*T3,*T4                                                      GEN         3201          I
          -FCC1055
 GEN                FSUB   T6,L1,*T5                                                       GEN         3202          I
          -FCC1055
 GEN                NORMZ  R1,0,*T6                                                        GEN         3203          I
          -FCC1055
 GEN       O=DIM    FSUB   T1,L1,L2                                                        FCC1055        8     A     
 GEN                NORMZ  T2,0,T1                                                         FCC1055        9     A     
 GEN                XMIT   T3,*T1                                                          FCC1055       10     A     
 GEN                RSHF   T3,59,0                                                         FCC1055       11     A     
 GEN                ANDN   R1,*T2,*T3                                                      FCC1055       12     A     
 GEN                ENDS                                                                   GEN         3204     A     
 GEN                                                                                       GEN         3205     A     
 GEN       O=DSIGN  XMIT   T1,LNU1                                                         GEN         3206     A     
 GEN                RSHF   T1,59,0                                                         GEN         3207     A     
 GEN                XOR    T2,T1,LU1                                                       GEN         3208     A     
 GEN                XOR    T3,*T1,LL1                                                      GEN         3209     A     
 GEN                XMIT   T4,LU2                                                          GEN         3210     A     
 GEN                RSHF   T4,59,0                                                         GEN         3211     A     
 GEN                XOR    RU1,*T2,T4                                                      GEN         3212     A     
 GEN                XOR    RL1,*T3,*T4                                                     GEN         3213     A     
 GEN                ENDS                                                                   GEN         3214     A     
 GEN                                                                                       GEN         3215     A     
 GEN       O=FLOAT  PACK   T1,0,L2                                                         GEN         3216     A     
 GEN                NORMZ  R1,0,*T1                                                        GEN         3217     A     
 GEN                ENDS                                                                   GEN         3218     A     
 GEN       O=IFIX   BSS    0                                                               GEN         3219     A     
 GEN       O=INT    BSS    0                                                               GEN         3220     A     
 GEN       O=IDINT  UPACK  T1,6,L2                                                         GEN         3221     A     
 GEN                LSHFB  R1,6,*T1                                                        GEN         3222     A     
 GEN                ENDS                                                                   GEN         3223     A     
 GEN                                                                                       GEN         3224     A     
 GEN       O=SIGN   BSS    0                                                               GEN         3225     A     
 GEN       O=ISIGN  XMIT   T1,LN1                                                          GEN         3226     A     
 GEN                RSHF   T1,59,0                                                         GEN         3227     A     
 GEN                XOR    T2,*T1,L1                                                       GEN         3228     A     
 GEN                XMIT   T3,L2                                                           GEN         3229     A     
 GEN                RSHF   T3,59,0                                                         GEN         3230     A     
 GEN                XOR    R1,*T3,*T2                                                      GEN         3231     A     
 GEN                ENDS                                                                   GEN         3232     A     
 GEN                                                                                       GEN         3233     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1491    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       O=IDIM   ISUB   T1,LN1,LN2                                                      GEN         3234          I
          -FCC1055
 GEN                XMIT   T2,*T1,0                                                        GEN         3235          I
          -FCC1055
 GEN                RSHF   T2,59,0                                                         GEN         3236          I
          -FCC1055
 GEN                AND    T3,T2,LN1                                                       GEN         3237          I
          -FCC1055
 GEN                ANDN   T4,L2,*T2                                                       GEN         3238          I
          -FCC1055
 GEN                IADD   T5,*T3,*T4                                                      GEN         3239          I
          -FCC1055
 GEN                ISUB   R1,L1,*T5                                                       GEN         3240          I
          -FCC1055
 GEN       O=IDIM   ISUB   T1,L1,L2                                                        FCC1055       13     A     
 GEN                XMIT   T2,T1                                                           FCC1055       14     A     
 GEN                RSHF   T2,59,0                                                         FCC1055       15     A     
 GEN                ANDN   R1,*T1,*T2                                                      FCC1055       16     A     
 GEN                ENDS                                                                   GEN         3241     A     
 GEN                                                                                       GEN         3242     A     
 GEN       O=LOCF   SX=AK  R1,L2                                                           GEN         3243          I
          -FCC1134
 GEN                ENDS                                                                   GEN         3244          I
          -FCC1134
 GEN                                                                                       GEN         3245          I
          -FCC1134
 GEN       O=MASK   LOAD   L2          UNIV = MASK (LENGTH)                                GEN         3246          I
          -FCC1175
 GEN                FMASK  T1,0,1                                                          GEN         3247          I
          -FCC1175
 GEN                SB=XK  6,L2,-1                                                         GEN         3248          I
          -FCC1175
 GEN       O=MASK   FMASK  T1,0,1                                                          FCC1175        4     A     
 GEN                SB=XK  6,L2,-1                                                         FCC1175        5     A     
 GEN                RSHFB  R1,6,*T1                                                        GEN         3249          I
          -FCC0975
 GEN                RSHFB  T2,6,*T1                                                        FCC0975        7     A     
 GEN                XMIT   T3,T2                                                           FCC0975        8     A     
 GEN                RSHF   T3,59,0                                                         FCC0975        9     A     
 GEN                AND    R1,*T2,*T3                                                      FCC0975       10     A     
 GEN                ENDS                                                                   GEN         3250     A     
 GEN                                                                                       GEN         3251     A     
 GEN       O=MOD    PACK   T1,0,LN2    I=MOD(J,K)                                          GEN         3252     A     
 GEN                NORMZ  T2,0,*T1                                                        GEN         3253     A     
 GEN                PACK   T3,0,LN1                                                        GEN         3254     A     
 GEN                FDIV   T4,*T3,*T2                                                      GEN         3255     A     
 GEN                UPACK  T5,6,*T4                                                        GEN         3256     A     
 GEN                LSHFB  T6,6,*T5                                                        GEN         3257     A     
 GEN                IMULT  T7,*T6,L2                                                       GEN         3258     A     
 GEN                ISUB   R1,L1,*T7                                                       GEN         3259     A     
 GEN                ENDS                                                                   GEN         3260     A     
 GEN                                                                                       GEN         3261     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1492    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       O=MODP2  XMIT   T1,LN1      MOD(INP, POWER OF 2 CONSTANT)                       GEN         3262     A     
 GEN                RSHF   T1,60                                                           GEN         3263     A     
 GEN                XOR    T2,L1,T1                                                        GEN         3264     A     
 GEN                ANDN   T3,*T2,L2                                                       GEN         3265     A     
 GEN                XOR    R1,*T3,*T1                                                      GEN         3266     A     
 GEN                ENDS                                                                   GEN         3267     A     
 GEN                                                                                       GEN         3268     A     
 GEN       O=OR     EQU    O=ORO                                                           GEN         3269     A     
 GEN                                                                                       GEN         3270     A     
 GEN       O=RANF   DMULT  T1,LL2,LU1                                                      GEN         3271     A     
 GEN                CALL   O=RNF,L1                                                        FCC0966       53     A     
 GEN                NORMZ  R1,0,*T1                                                        GEN         3272     A     
 GEN                ENDS                                                                   GEN         3273     A     
 GEN                                                                                       GEN         3274     A     
 GEN       O=REAL   XMIT   R1,LU2                                                          GEN         3275     A     
 GEN                ENDS                                                                   GEN         3276     A     
 GEN       O=SNGL   EQU    O=REAL                                                          GEN         3277     A     
 GEN                                                                                       GEN         3278     A     
 GEN                                                                                       GEN         3279     A     
 GEN      *         VARIABLE SHIFT                                                         GEN         3280     A     
 GEN                                                                                       GEN         3281     A     
 GEN       O=SHIFT  SB=XB  6,L2                                                            GEN         3282     A     
 GEN                LSHFB  R1,6,L1                                                         GEN         3283     A     
 GEN                ENDS                                                                   GEN         3284     A     
 GEN                                                                                       GEN         3285     A     
 GEN      *         CONSTANT SHIFT                                                         GEN         3286     A     
 GEN                                                                                       GEN         3287     A     
 GEN       O=SHIFTC SB=BK  6,,"N3"                                                         GEN         3288     A     
 GEN                LSHFB  R1,6,L1                                                         GEN         3289     A     
 GEN                ENDS                                                                   GEN         3290     A     
 GEN       IFMAC    EJECT  4,8                                                             GEN         3291     A     
 GEN      **        13. IF INSTRUCTION SKELETONS.                                          GEN         3292     A     
 GEN                                                                                       GEN         3293     A     
 GEN                                                                                       GEN         3294     A     
 GEN       IFBASE   BSS    0           BASE FOR *IF* JUMP SKELETONS.                       GEN         3295     A     
 GEN                                                                                       GEN         3296     A     
 GEN       IFI123   ZRJ    0,L1,"N2"                                                       GEN         3297     A     
 GEN                PLJ    0,L1,"N3"                                                       GEN         3298     A     
 GEN                EQJ    "N1"                                                            GEN         3299     A     
 GEN                ENDS                                                                   GEN         3300     A     
 GEN       IFD123   OR     T1,LU1,LL1                                                      GEN         3301     A     
 GEN                ZRJ    T1,0,"N2"                                                       GEN         3302     A     
 GEN                PLJ    0,*T1,"N3"                                                      GEN         3303     A     
 GEN                EQJ    "N1"                                                            GEN         3304     A     
 GEN                ENDS                                                                   GEN         3305     A     
 GEN                                                                                       GEN         3306     A     
 GEN       IFI122   FMASK  T1,0,0                                                          GEN         3307     A     
 GEN                IADD   T2,*T1,L1                                                       GEN         3308     A     
 GEN                PLJ    0,*T2,"N2"                                                      GEN         3309     A     
 GEN                EQJ    "N1"                                                            GEN         3310     A     
 GEN                ENDS                                                                   GEN         3311     A     
 GEN       IFR122   PLJ    0,L1,"N2"                                                       GEN         3312          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1493    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
          -FCC2203
 GEN       IFR122   NORMZ  T1,0,L1                                                         FCC2203       10     A     
 GEN                PLJ    0,*T1,"N2"                                                      FCC2203       11     A     
 GEN                EQJ    "N1"                                                            GEN         3313     A     
 GEN                ENDS                                                                   GEN         3314     A     
 GEN       IFD122   FADD   T1,LU1,LL1                                                      GEN         3315     A     
 GEN                NORMZ  T2,0,*T1                                                        GEN         3316     A     
 GEN                PLJ    0,*T2,"N2"                                                      GEN         3317     A     
 GEN                EQJ    "N1"                                                            GEN         3318     A     
 GEN                ENDS                                                                   GEN         3319     A     
 GEN                                                                                       GEN         3320     A     
 GEN       IFI113   FMASK  T1,0,0                                                          GEN         3321     A     
 GEN                ISUB   T2,*T1,L1                                                       GEN         3322     A     
 GEN                PLJ    0,*T2,"N1"                                                      GEN         3323     A     
 GEN                EQJ    "N3"                                                            GEN         3324     A     
 GEN                ENDS                                                                   GEN         3325     A     
 GEN       IFR113   XMITC  T1,L1,0                                                         GEN         3326     A     
 GEN                NORMZ  T2,0,*T1                                                        GEN         3327     A     
 GEN                PLJ    0,*T2,"N1"                                                      GEN         3328     A     
 GEN                EQJ    "N3"                                                            GEN         3329     A     
 GEN                ENDS                                                                   GEN         3330     A     
 GEN       IFD113   FADD   T1,LU1,LL1                                                      GEN         3331     A     
 GEN                XMITC  T2,*T1,0                                                        GEN         3332     A     
 GEN                NORMZ  T3,0,*T2                                                        GEN         3333     A     
 GEN                PLJ    0,*T3,"N1"                                                      GEN         3334     A     
 GEN                EQJ    "N1"                                                            GEN         3335     A     
 GEN                ENDS                                                                   GEN         3336     A     
 GEN                                                                                       GEN         3337     A     
 GEN       IFI121   ZRJ    0,L1,"N2"                                                       GEN         3338     A     
 GEN                EQJ    "N1"                                                            GEN         3339     A     
 GEN                ENDS                                                                   GEN         3340     A     
 GEN                                                                                       GEN         3341     A     
 GEN       IFIN23   ZRJ    0,L1,"N2"                                                       GEN         3342     A     
 GEN                PLJ    0,L1,"N3"                                                       GEN         3343     A     
 GEN                ENDS                                                                   GEN         3344     A     
 GEN       IFDN23   OR     T1,LU1,LL1                                                      GEN         3345     A     
 GEN                ZRJ    0,T1,"N2"                                                       GEN         3346     A     
 GEN                PLJ    0,*T1,"N3"                                                      GEN         3347     A     
 GEN                ENDS                                                                   GEN         3348     A     
 GEN                                                                                       GEN         3349     A     
 GEN       IFI1N3   FMASK  T1,0,0                                                          GEN         3350     A     
 GEN                IADD   T2,*T1,L1                                                       GEN         3351     A     
 GEN                MIJ    0,T2,"N1"                                                       GEN         3352     A     
 GEN                NZJ    0,*T2,"N3"                                                      GEN         3353     A     
 GEN                ENDS                                                                   GEN         3354     A     
 GEN       IFR1N3   MIJ    0,L1,"N1"                                                       GEN         3355          I
          -FCC2203
 GEN                NZJ    0,L1,"N3"                                                       GEN         3356          I
          -FCC2203
 GEN       IFR1N3   NORMZ  T1,0,L1                                                         FCC2203       12     A     
 GEN                MIJ    0,T1,"N1"                                                       FCC2203       13     A     
 GEN                NZJ    0,*T1,"N3"                                                      FCC2203       14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1494    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                ENDS                                                                   GEN         3357     A     
 GEN       IFD1N3   FADD   T1,LU1,LL1                                                      GEN         3358     A     
 GEN                NORMZ  T2,0,*T1                                                        GEN         3359     A     
 GEN                MIJ    0,T2,"N1"                                                       GEN         3360     A     
 GEN                NZJ    0,*T2,"N3"                                                      GEN         3361     A     
 GEN                ENDS                                                                   GEN         3362     A     
 GEN                                                                                       GEN         3363     A     
 GEN       IFI12N   ZRJ    0,L1,"N2"                                                       GEN         3364     A     
 GEN                MIJ    0,L1,"N1"                                                       GEN         3365     A     
 GEN                ENDS                                                                   GEN         3366     A     
 GEN       IFD12N   FADD   T1,LU1,LL1                                                      GEN         3367     A     
 GEN                NORMZ  T2,0,*T1                                                        GEN         3368     A     
 GEN                ZRJ    0,T2,"N2"                                                       GEN         3369     A     
 GEN                MIJ    0,*T2,"N1"                                                      GEN         3370     A     
 GEN                ENDS                                                                   GEN         3371     A     
 GEN                                                                                       GEN         3372     A     
 GEN       IFIN22   FMASK  T1,0,0                                                          GEN         3373     A     
 GEN                IADD   T2,*T1,L1                                                       GEN         3374     A     
 GEN                PLJ    0,*T2,"N2"                                                      GEN         3375     A     
 GEN                ENDS                                                                   GEN         3376     A     
 GEN       IFRN22   PLJ    0,L1,"N2"                                                       GEN         3377          I
          -FCC2203
 GEN       IFRN22   NORMZ  T1,0,L1                                                         FCC2203       15     A     
 GEN                PLJ    0,*T1,"N2"                                                      FCC2203       16     A     
 GEN                ENDS                                                                   GEN         3378     A     
 GEN       IFDN22   FADD   T1,LU1,LL1                                                      GEN         3379     A     
 GEN                NORMZ  T2,0,*T1                                                        GEN         3380     A     
 GEN                PLJ    0,*T2,"N2"                                                      GEN         3381     A     
 GEN                ENDS                                                                   GEN         3382     A     
 GEN                                                                                       GEN         3383     A     
 GEN       IFI1NN   FMASK  T1,0,0                                                          GEN         3384     A     
 GEN                IADD   T2,*T1,L1                                                       GEN         3385     A     
 GEN                MIJ    0,*T2,"N1"                                                      GEN         3386     A     
 GEN                ENDS                                                                   GEN         3387     A     
 GEN       IFR1NN   MIJ    0,L1,"N1"                                                       GEN         3388          I
          -FCC2203
 GEN       IFR1NN   NORMZ  T1,0,L1                                                         FCC2203       17     A     
 GEN                MIJ    0,*T1,"N1"                                                      FCC2203       18     A     
 GEN                ENDS                                                                   GEN         3389     A     
 GEN       IFD1NN   FADD   T1,LU1,LL1                                                      GEN         3390     A     
 GEN                NORMZ  T2,0,*T1                                                        GEN         3391     A     
 GEN                MIJ    0,*T2,"N1"                                                      GEN         3392     A     
 GEN                ENDS                                                                   GEN         3393     A     
 GEN                                                                                       GEN         3394     A     
 GEN       IFINN3   FMASK  T1,0,0                                                          GEN         3395     A     
 GEN                ISUB   T2,*T1,L1                                                       GEN         3396     A     
 GEN                MIJ    0,*T2,"N3"                                                      GEN         3397     A     
 GEN                ENDS                                                                   GEN         3398     A     
 GEN       IFRNN3   XMITC  T1,L1,0                                                         GEN         3399     A     
 GEN                NORMZ  T2,0,*T1                                                        GEN         3400     A     
 GEN                MIJ    0,*T2,"N3"                                                      GEN         3401     A     
 GEN                ENDS                                                                   GEN         3402     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1495    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       IFDNN3   FADD   T1,LU1,LL1                                                      GEN         3403     A     
 GEN                XMITC  T2,*T1,0                                                        GEN         3404     A     
 GEN                NORMZ  T3,0,*T2                                                        GEN         3405     A     
 GEN                MIJ    0,*T3,"N3"                                                      GEN         3406     A     
 GEN                ENDS                                                                   GEN         3407     A     
 GEN                                                                                       GEN         3408     A     
 GEN       IFI11N   FMASK  T1,0,0                                                          GEN         3409     A     
 GEN                ISUB   T2,*T1,L1                                                       GEN         3410     A     
 GEN                PLJ    0,*T2,"N1"                                                      GEN         3411     A     
 GEN                ENDS                                                                   GEN         3412     A     
 GEN       IFR11N   XMITC  T1,L1,0                                                         GEN         3413     A     
 GEN                NORMZ  T2,0,*T1                                                        GEN         3414     A     
 GEN                PLJ    0,*T2,"N1"                                                      GEN         3415     A     
 GEN                ENDS                                                                   GEN         3416     A     
 GEN       IFD11N   FADD   T1,LU1,LL1                                                      GEN         3417     A     
 GEN                XMITC  T2,*T1,0                                                        GEN         3418     A     
 GEN                NORMZ  T3,0,*T2                                                        GEN         3419     A     
 GEN                PLJ    0,*T3,"N1"                                                      GEN         3420     A     
 GEN                ENDS                                                                   GEN         3421     A     
 GEN                                                                                       GEN         3422     A     
 GEN       IFIN2N   ZRJ    0,L1,"N2"                                                       GEN         3423     A     
 GEN                ENDS                                                                   GEN         3424     A     
 GEN                                                                                       GEN         3425     A     
 GEN       IFI1N1   NZJ    0,L1,"N1"                                                       GEN         3426     A     
 GEN                ENDS                                                                   GEN         3427     A     
 GEN                                                                                       GEN         3428     A     
 GEN       IFI111   EQJ    "N1"                                                            GEN         3429     A     
 GEN                ENDS                                                                   GEN         3430     A     
 GEN                                                                                       GEN         3431     A     
 GEN       IFL12    MIJ    0,L1,"N1"                                                       GEN         3432     A     
 GEN                EQJ    "N2"                                                            GEN         3433     A     
 GEN                ENDS                                                                   GEN         3434     A     
 GEN       IFLN2    PLJ    0,L1,"N2"                                                       GEN         3435     A     
 GEN                ENDS                                                                   GEN         3436     A     
 GEN       IFL1N    MIJ    0,L1,"N1"                                                       GEN         3437     A     
 GEN                ENDS                                                                   GEN         3438     A     
 GEN                                                                                       GEN         3439     A     
 GEN       IFEN2    NZJ    0,L1,"N1"                                                       GEN         3440     A     
 GEN                ENDS                                                                   GEN         3441     A     
 GEN       IFE1N    ZRJ    0,L1,"N1"                                                       GEN         3442     A     
 GEN                ENDS                                                                   GEN         3443     A     
 GEN       IFTBL    EJECT                                                                  GEN         3444     A     
 GEN      **        IFTBL- GENERATE *IF* TABLE JUMP ADDRESS FOR PROCESSING                 GEN         3445     A     
 GEN      *                3-BRANCH *IF* STATEMENTS.                                       GEN         3446     A     
 GEN                                                                                       GEN         3447     A     
 GEN       IFTBL    MACRO  PRE,M,L,I,R,D,C                                                 GEN         3448     A     
 GEN       C        MICRO  ,,                                                              GEN         3449     A     
 GEN      .1        ECHO   ,P1=(M,L,I,R,D,C)                                               GEN         3450     A     
 GEN       A        MICRO  1,1, P1                                                         GEN         3451     A     
 GEN       .2       IFC    EQ,*E*"A"*                                                      GEN         3452     A     
 GEN      C         MICRO  1,,$"C"8/-1,$                                                   GEN         3453     A     
 GEN       .2       ELSE                                                                   GEN         3454     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1496    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       C        MICRO  1,,$"C"8/IF_P1_PRE-IFBASE,$                                     GEN         3455     A     
 GEN       .2       ENDIF                                                                  GEN         3456     A     
 GEN      .1        ENDD                                                                   GEN         3457     A     
 GEN                VFD    "C"*P/0                                                         GEN         3458     A     
 GEN       IFTBL    ENDM                                                                   GEN         3459     A     
 GEN       STDIF    SPACE  4,8                                                             GEN         3460     A     
 GEN      **        TABLES FOR COMPILING *IF* JUMP CODE ON 3-BRANCH IF.                    GEN         3461     A     
 GEN                                                                                       GEN         3462     A     
 GEN      *         ENTRIES WHEN UPCOMING STATEMENT NUMBER NOT REFERENCED.                 GEN         3463     A     
 GEN                                                                                       GEN         3464     A     
 GEN       STDIF    BSS    0                                                               GEN         3465     A     
 GEN                IFTBL  123,I,ERR7,I,I,D,I                                              GEN         3466     A     
 GEN                IFTBL  113,I,ERR7,I,R,D,R                                              GEN         3467     A     
 GEN                IFTBL  122,I,ERR7,I,I,D,I                                              GEN         3468     A     
 GEN                IFTBL  121,I,ERR7,I,I,I,I                                              GEN         3469     A     
 GEN                                                                                       GEN         3470     A     
 GEN      **        ENTRIES WHEN UPCOMING STATEMENT NUMBER REFERENCED ONLY ONCE.           GEN         3471     A     
 GEN                                                                                       GEN         3472     A     
 GEN                IFTBL  N23,I,ERR7,I,I,D,I                                              GEN         3473     A     
 GEN                IFTBL  1N3,I,ERR7,I,R,D,R                                              GEN         3474     A     
 GEN                IFTBL  12N,I,ERR7,I,I,D,I                                              GEN         3475     A     
 GEN                                                                                       GEN         3476     A     
 GEN      **        ENTRIES WHEN UPCOMING STATEMENT NUMBER IS REFERENCED                   GEN         3477     A     
 GEN      *         MORE THAN ONCE.                                                        GEN         3478     A     
 GEN                                                                                       GEN         3479     A     
 GEN       NSTDIF   BSS    0                                                               GEN         3480     A     
 GEN                IFTBL  NN3,I,ERR7,I,R,D,R                                              GEN         3481     A     
 GEN                IFTBL  11N,I,ERR7,I,R,D,R                                              GEN         3482     A     
 GEN                IFTBL  N22,I,ERR7,I,R,D,R                                              GEN         3483     A     
 GEN                IFTBL  1NN,I,ERR7,I,R,D,R                                              GEN         3484     A     
 GEN                IFTBL  1N1,I,ERR7,I,I,I,I                                              GEN         3485     A     
 GEN                IFTBL  N2N,I,ERR7,I,I,I,I                                              GEN         3486     A     
 GEN       RTOIC    SPACE  4,8                                                             GEN         3487     A     
 GEN      **        14.  REAL RAISED TO INTEGER CONSTANT.                                  GEN         3488     A     
 GEN                                                                                       GEN         3489     A     
 GEN                                                                                       GEN         3490     A     
 GEN       R..2     FMULT  R1,L1,LN1                                                       GEN         3491     A     
 GEN                ENDS                                                                   GEN         3492     A     
 GEN       R..3     FMULT  T1,LN1,LN1                                                      GEN         3493     A     
 GEN                FMULT  R1,*T1,L1                                                       GEN         3494     A     
 GEN                ENDS                                                                   GEN         3495     A     
 GEN       R..4     FMULT  T1,L1,LN1                                                       GEN         3496     A     
 GEN                FMULT  R1,*T1,T1                                                       GEN         3497     A     
 GEN                ENDS                                                                   GEN         3498     A     
 GEN       R..5     FMULT  T1,LN1,LN1                                                      GEN         3499     A     
 GEN                FMULT  T2,T1,T1                                                        GEN         3500     A     
 GEN                FMULT  R1,*T2,L1                                                       GEN         3501     A     
 GEN                ENDS                                                                   GEN         3502     A     
 GEN       R..6     FMULT  T1,L1,LN1                                                       GEN         3503     A     
 GEN                FMULT  T2,T1,T1                                                        GEN         3504     A     
 GEN                FMULT  R1,*T1,*T2                                                      GEN         3505     A     
 GEN                ENDS                                                                   GEN         3506     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1497    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       R..7     FMULT  T1,LN1,LN1                                                      GEN         3507     A     
 GEN                FMULT  T2,T1,L1                                                        GEN         3508     A     
 GEN                FMULT  T3,*T1,T1                                                       GEN         3509     A     
 GEN                FMULT  R1,*T2,*T3                                                      GEN         3510     A     
 GEN                ENDS                                                                   GEN         3511     A     
 GEN       R..8     FMULT  T1,L1,LN1                                                       GEN         3512     A     
 GEN                FMULT  T2,*T1,T1                                                       GEN         3513     A     
 GEN                FMULT  R1,*T2,T2                                                       GEN         3514     A     
 GEN                ENDS                                                                   GEN         3515     A     
 GEN       R..9     FMULT  T1,LN1,LN1                                                      GEN         3516     A     
 GEN                FMULT  T2,*T1,T1                                                       GEN         3517     A     
 GEN                FMULT  T3,*T2,T2                                                       GEN         3518     A     
 GEN                FMULT  R1,*T3,L1                                                       GEN         3519     A     
 GEN                ENDS                                                                   GEN         3520     A     
 GEN       R..10    FMULT  T1,L1,LN1                                                       GEN         3521     A     
 GEN                FMULT  T2,T1,T1                                                        GEN         3522     A     
 GEN                FMULT  T3,*T2,T2                                                       GEN         3523     A     
 GEN                FMULT  R1,*T1,*T3                                                      GEN         3524     A     
 GEN                ENDS                                                                   GEN         3525     A     
 GEN       R..11    BSS    0                                                               GEN         3526          I
          -FCC0878
 GEN       ITOIC1   SPACE  4,8                                                             GEN         3527     A     
 GEN      **        15A.  INTEGER RAISED TO INTEGER CONSTANT                               GEN         3528     A     
 GEN      *               (INTEGER MULTIPLY INSTRUCTION AVAILABLE.)                        GEN         3529     A     
 GEN                                                                                       GEN         3530     A     
 GEN       I..2     IMULT  R1,L1,LN1                                                       GEN         3531     A     
 GEN                ENDS                                                                   GEN         3532     A     
 GEN       I..3     IMULT  T1,LN1,LN1                                                      GEN         3533     A     
 GEN                IMULT  R1,*T1,L1                                                       GEN         3534     A     
 GEN                ENDS                                                                   GEN         3535     A     
 GEN       I..4     IMULT  T1,L1,LN1                                                       GEN         3536     A     
 GEN                IMULT  R1,*T1,T1                                                       GEN         3537     A     
 GEN                ENDS                                                                   GEN         3538     A     
 GEN       I..5     IMULT  T1,LN1,LN1                                                      GEN         3539     A     
 GEN                IMULT  T2,*T1,T1                                                       GEN         3540     A     
 GEN                IMULT  R1,*T2,L1                                                       GEN         3541     A     
 GEN                ENDS                                                                   GEN         3542     A     
 GEN       I..6     IMULT  T1,LN1,LN1                                                      GEN         3543     A     
 GEN                IMULT  T2,*T1,L1                                                       GEN         3544     A     
 GEN                IMULT  R1,*T2,T2                                                       GEN         3545     A     
 GEN                ENDS                                                                   GEN         3546     A     
 GEN       I..7     IMULT  T1,LN1,LN1                                                      GEN         3547     A     
 GEN                IMULT  T2,T1,L1                                                        GEN         3548     A     
 GEN                IMULT  T3,*T1,T1                                                       GEN         3549     A     
 GEN                IMULT  R1,*T2,*T3                                                      GEN         3550     A     
 GEN                ENDS                                                                   GEN         3551     A     
 GEN       I..8     IMULT  T1,L1,LN1                                                       GEN         3552     A     
 GEN                IMULT  T2,*T1,T1                                                       GEN         3553     A     
 GEN                IMULT  R1,*T2,T2                                                       GEN         3554     A     
 GEN                ENDS                                                                   GEN         3555     A     
 GEN       I..9     IMULT  T1,LN1,LN1                                                      GEN         3556     A     
 GEN                IMULT  T2,*T1,T1                                                       GEN         3557     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1498    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                IMULT  T3,*T2,T2                                                       GEN         3558     A     
 GEN                IMULT  R1,*T3,L1                                                       GEN         3559     A     
 GEN                ENDS                                                                   GEN         3560     A     
 GEN       I..10    IMULT  T1,LN1,LN1                                                      GEN         3561     A     
 GEN                IMULT  T2,*T1,T1                                                       GEN         3562     A     
 GEN                IMULT  T3,*T2,L1                                                       GEN         3563     A     
 GEN                IMULT  R1,*T3,T3                                                       GEN         3564     A     
 GEN                ENDS                                                                   GEN         3565     A     
 GEN       I..11    BSS    0                                                               GEN         3566          I
          -FCC0868
 GEN                                                                                       GEN         3567          I
          -FCC0878
 GEN       DOMAC    EJECT  4,12                                                            GEN         3568     A     
 GEN      **        *DO* STATEMENT MACROS.                                                 GEN         3569     A     
 GEN      *                                                                                GEN         3570     A     
 GEN      *         A.  *DO* BEGIN CODE.                                                   GEN         3571     A     
 GEN                                                                                       GEN         3572     A     
 GEN                                                                                       GEN         3573     A     
 GEN       O=DOB    CALL   O=CAR       CLEAR REGISTER FILE                                 GEN         3574     A     
 GEN                XMIT   X6,L1                                                           GEN         3575     A     
 GEN                CALL   CBSS,L2                                                         GEN         3576     A     
 GEN                CALL   DIP         SET *DO* CONDITIONS                                 GEN         3577     A     
 GEN                ENDS                                                                   GEN         3578     A     
 GEN                                                                                       GEN         3579     A     
 GEN       DOCONC   SPACE  4,20                                                            GEN         3580     A     
 GEN      **        B.  *DO* CONCLUSION CODE.                                              GEN         3581     A     
 GEN      *                GENERAL FORM OF TURPLE FOR *DOC* MACROS IS                      GEN         3582     A     
 GEN      *                                                                                GEN         3583     A     
 GEN      *         NOTE - *DOC* MACROS ALWAYS ARE USED WITH A DOUBLE TURPLE.              GEN         3584     A     
 GEN      *                                                                                GEN         3585     A     
 GEN      *                1ST TURPLE.                                                     GEN         3586     A     
 GEN      *                OR.OPR = O=DOCX, WHERE X CAN BE 1,2 OR 3.                       GEN         3587     A     
 GEN      *                OR.1OP = INDEX OF *DO*                                          GEN         3588     A     
 GEN      *                OR.2OP = INCREMENT OF *DO*                                      GEN         3589     A     
 GEN      *                                                                                GEN         3590     A     
 GEN      *                2ND TURPLE, (ALWAYS FOLLOWING 1ST)                              GEN         3591     A     
 GEN      *                                                                                GEN         3592     A     
 GEN      *                OR.OPR = DUMMY (ECHO OF 1ST)                                    GEN         3593     A     
 GEN      *                OR.1OP = LIMIT OF *DO*                                          GEN         3594     A     
 GEN      *                OR.2OP = *DO* BEGIN STATMENT TAG.                               GEN         3595     A     
 GEN                                                                                       GEN         3596     A     
 GEN      **        O=DOC1                                                                 GEN         3597     A     
 GEN      *                1. INCREMENT IS VARIABLE                                        GEN         3598     A     
 GEN      *                2. LIMIT IS VARIABLE                                            GEN         3599     A     
 GEN                                                                                       GEN         3600     A     
 GEN       O=DOC1   IADD   X6,L1,L2                                                        GEN         3601     A     
 GEN                ISUB   0,L3,X6                                                         GEN         3602          I
          -FCC0684
 GEN                PLJ    0,0,"DOBEG"                                                     GEN         3603          I
          -FCC0684
 GEN                ISUB   T1,L3,X6                                                        FCC0684        4     A     
 GEN                PLJ    0,*T1,"DOBEG"                                                   FCC0684        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1499    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                RESET  -L.TURP                                                         GEN         3604     A     
 GEN                ENDS                                                                   GEN         3605     A     
 GEN                                                                                       GEN         3606     A     
 GEN      **        O=DOC2                                                                 GEN         3607     A     
 GEN      *                1. INCREMENT IS SHORT                                           GEN         3608     A     
 GEN      *                2. LIMIT IS VARIABLE                                            GEN         3609     A     
 GEN                                                                                       GEN         3610     A     
 GEN       O=DOC2   SX=XK  X6,L1,"DOINCR"                                                  GEN         3611     A     
 GEN                ISUB   0,L3,X6                                                         GEN         3612          I
          -FCC0684
 GEN                PLJ    0,0,"DOBEG"                                                     GEN         3613          I
          -FCC0684
 GEN                ISUB   T1,L3,X6                                                        FCC0684        6     A     
 GEN                PLJ    0,*T1,"DOBEG"                                                   FCC0684        7     A     
 GEN                RESET  -L.TURP                                                         GEN         3614     A     
 GEN                ENDS                                                                   GEN         3615     A     
 GEN                                                                                       GEN         3616     A     
 GEN                                                                                       GEN         3617     A     
 GEN      **        O=DOC3                                                                 GEN         3618     A     
 GEN      *                1.  INCREMENT IS SHORT                                          GEN         3619     A     
 GEN      *                2.  LIMIT IS SHORT                                              GEN         3620     A     
 GEN                                                                                       GEN         3621     A     
 GEN       O=DOC3   SX=XK  X6,L1,"DOINCR"                                                  GEN         3622     A     
 GEN                SX=XK  0,X6,"DOLIM"                                                    GEN         3623          I
          -FCC0684
 GEN                MIJ    0,0,"DOBEG"                                                     GEN         3624          I
          -FCC0684
 GEN                SX=XK  T1,X6,"DOLIM"                                                   FCC0684        8     A     
 GEN                MIJ    0,*T1,"DOBEG"                                                   FCC0684        9     A     
 GEN                RESET  -L.TURP                                                         GEN         3625     A     
 GEN                ENDS                                                                   GEN         3626     A     
 GEN                                                                                       GEN         3627     A     
 GEN      **        O=DOC3A, SAME CONDITIONS OF *DO* INDICES AND *DO* LOOP IS              GEN         3628     A     
 GEN      *                  WELL BEHAVED.                                                 GEN         3629     A     
 GEN      *                (B6) IS ASSIGNED *DO* INDEX ACROSS *DO* LOOP                    GEN         3630     A     
 GEN                                                                                       GEN         3631     A     
 GEN                                                                                       GEN         3632     A     
 GEN       O=DOC3A  LOADB  L1,,+R.B5-RGFILE                                                GEN         3633     A     
 GEN                SB=BK  5,5,"DOINCR"                                                    GEN         3634     A     
 GEN                SB=BK  6,5,"DOLIM"                                                     GEN         3635     A     
 GEN                LTB    6,0,"DOBEG"                                                     GEN         3636     A     
 GEN                CALL   CDO         CLEAR *DO*                                          GEN         3637     A     
 GEN                RESET  -L.TURP                                                         GEN         3638     A     
 GEN                ENDS                                                                   GEN         3639     A     
 GEN                                                                                       GEN         3640     A     
 GEN      **        O=DOC4                                                                 GEN         3641     A     
 GEN      *                1.  INCREMENT IS VARIABLE                                       GEN         3642     A     
 GEN      *                2.  LIMIT IS SHORT                                              GEN         3643     A     
 GEN                                                                                       GEN         3644     A     
 GEN                                                                                       GEN         3645     A     
 GEN       O=DOC4   IADD   X6,L1,L2                                                        GEN         3646     A     
 GEN                SX=XK  0,X6,"DOLIM"                                                    GEN         3647          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1500    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
          -FCC0684
 GEN                MIJ    0,X0,"DOBEG"                                                    GEN         3648          I
          -FCC0684
 GEN                SX=XK  T1,X6,"DOLIM"                                                   FCC0684       10     A     
 GEN                MIJ    0,*T1,"DOBEG"                                                   FCC0684       11     A     
 GEN                RESET  -L.TURP                                                         GEN         3649     A     
 GEN                ENDS                                                                   GEN         3650     A     
 GEN       MISC     EJECT  4,8                                                             GEN         3651     A     
 GEN      **        14. MISCELLANEOUS SKELETONS.                                           GEN         3652     A     
 GEN                                                                                       GEN         3653     A     
 GEN                                                                                       GEN         3654     A     
 GEN      **        UNCONDITIONAL GOTO                                                     GEN         3655     A     
 GEN       O=GOTON  EQJ    "N1"                                                            GEN         3656     A     
 GEN                ENDS                                                                   GEN         3657     A     
 GEN                                                                                       GEN         3658     A     
 GEN      **        ASSIGNED GOTO                                                          GEN         3659     A     
 GEN       O=GOA    SB=XB  6,L1,0                                                          GEN         3660     A     
 GEN                CALL   CBJ                   COMPILE *B* JUMP                          GEN         3661     A     
 GEN                ENDS                                                                   GEN         3662     A     
 GEN                                                                                       GEN         3663     A     
 GEN      **        COMPUTED GOTO                                                          GEN         3664     A     
 GEN       O=GOC    CALL   O=CAR       *KLUDGE*                                            GEN         3665     A     
 GEN                SX=XK  T1,LN1,-1   X1 = (NUMBER OF BRANCHES)                           GEN         3666     A     
 GEN      ,                            SX0   X1-1                                          GEN         3667     A     
 GEN                SX=XK  T2,LN1,CL2  SX7  X1-(NUMBER OF BRANCHES)                        GEN         3668     A     
 GEN                ORN    T3,*T1,*T2  BX6   -X7+X0                                        GEN         3669     A     
 GEN                CALL   O=CDW                                                           GEN         3670     A     
 GEN                RSHF   T3,59       AX6   59                                            GEN         3671     A     
 GEN                ANDN   T4,L1,*T3   BX0   -X6*X1                                        GEN         3672     A     
 GEN                SB=XB  6,*T4                                                           GEN         3673     A     
 GEN                ENDS                                                                   GEN         3674     A     
 GEN                                                                                       GEN         3675     A     
 GEN      **        COMPUTED GOTO IF LINE NUMBER .GE. 7777B                                GEN         3676     A     
 GEN       O=GOCL   CALL   O=CAR                                                           GEN         3677     A     
 GEN                SX=XK  T1,L1,+1                                                        GEN         3678     A     
 GEN                SX=XK  T2,T1,-2                                                        GEN         3679     A     
 GEN                SX=XK  T3,T1,CL2                                                       GEN         3680     A     
 GEN                ORN    T4,*T2,*T3                                                      GEN         3681     A     
 GEN                CALL   O=CDW                                                           GEN         3682     A     
 GEN                RSHF   T4,59                                                           GEN         3683     A     
 GEN                ANDN   T5,*T1,*T4                                                      GEN         3684     A     
 GEN                SB=XB  6,*T5                                                           GEN         3685     A     
 GEN                ENDS                                                                   GEN         3686     A     
 GEN                                                                                       GEN         3687     A     
 GEN       O=ASSGN  SX=BK  X6,0,"M1"                                                       GEN         3688     A     
 GEN                SA=BK  6,0,"N3"                                                        GEN         3689     A     
 GEN                ENDS                                                                   GEN         3690     A     
 GEN                                                                                       GEN         3691     A     
 GEN       O=BSS    CALL   CBSS,L1     DEFINE LABEL                                        GEN         3692     A     
 GEN                ENDS                                                                   GEN         3693     A     
 GEN                                                                                       GEN         3694     A     
 GEN      **        SKELETONS FOR SUBPROGRAM EXIT.                                         GEN         3695     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1501    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                                                                                       GEN         3696     A     
 GEN       O=QUITP  SA=BK  1,0,+CT.TRAC                                                    GEN         3697     A     
 GEN                ENDF                                                                   GEN         3698     A     
 GEN       O=QUITS  CALL   O=CDW                                                           GEN         3699     A     
 GEN                EQJ    "N1"                                                            GEN         3700     A     
 GEN                CALL   O=CAR                                                           GEN         3701     A     
 GEN                ENDS                                                                   GEN         3702     A     
 GEN                                                                                       GEN         3703     A     
 GEN       O=RTNA   CALL   O=CDW                                                           GEN         3704     A     
 GEN                SA=AK  5,0,CL1                                                         GEN         3705     A     
 GEN                SA=BK  4,0,+CT.TPA0                                                    GEN         3706     A     
 GEN                SB=XB  6,5                                                             GEN         3707     A     
 GEN                SA=XB  0,4                                                             GEN         3708     A     
 GEN                CALL   CBJ                                                             GEN         3709     A     
 GEN                CALL   O=CAR                                                           GEN         3710     A     
 GEN                ENDS                                                                   GEN         3711     A     
 GEN                                                                                       GEN         3712     A     
 GEN       O=RET0   CALL   CBSS,+CT.RETN     SUBROUTINE                                    GEN         3713     A     
 GEN                ENDS                                                                   GEN         3714     A     
 GEN                                                                                       GEN         3715     A     
 GEN      **        FUNCTION RESULT RETURN MACROS --                                       GEN         3716     A     
 GEN      *                (2OP) = VALUE. + MODE                                           GEN         3717     A     
 GEN                                                                                       GEN         3718     A     
 GEN       O=RETD   CALL O=CAR                                                             GEN         3719     A     
 GEN                XMIT   X7,LL2      FUNCTION - DOUBLE RESULTS                           GEN         3720     A     
 GEN                XMIT   X6,L2                                                           GEN         3721     A     
 GEN                ENDS                                                                   GEN         3722     A     
 GEN                                                                                       GEN         3723     A     
 GEN       O=RETS   CALL   O=CAR                                                           GEN         3724     A     
 GEN                XMIT   X6,L2       FUNCTION - SINGLE RESULTS                           GEN         3725     A     
 GEN                ENDS                                                                   GEN         3726     A     
 GEN                                                                                       GEN         3727     A     
 GEN      **        ENTRY POINT DEFINITION MACROS --                                       GEN         3728     A     
 GEN      *                ("M1") = ENTRY POINT TAG                                        GEN         3729     A     
 GEN      *                ("N1") = TAG OF FIRST INST AFTER ENTRY POINT.                   GEN         3730     A     
 GEN      *                ("N3") = TAG OF MAIN ENTRY POINT, IF REQUIRED.                  GEN         3731     A     
 GEN                                                                                       GEN         3732     A     
 GEN       O=RETN   CALL   O=CDW                                                           GEN         3733     A     
 GEN                SA=BK  2,0,+CT.TPA0         RESTORE (A0)                               GEN         3734     A     
 GEN                SA=XB  0,2                                                             GEN         3735     A     
 GEN                ENDF                                                                   GEN         3736     A     
 GEN       O=NTR    CALL   CBSS,L1           MAIN ENTRY, NO ARGS                           GEN         3737     A     
 GEN                EQJ    "M1"                                                            GEN         3738     A     
 GEN                ENDS                                                                   GEN         3739     A     
 GEN                                                                                       GEN         3740     A     
 GEN       O=NTRM   SB=BK  6,0,+CT.BEGIN                                                   GEN         3741     A     
 GEN                CALL   CBSS,+CT.INIT                                                   GEN         3742     A     
 GEN                ENDF                                                                   GEN         3743     A     
 GEN       O=NTRN   SX=AB  6,0                                                             GEN         3744     A     
 GEN                SA=AB  0,1                                                             GEN         3745     A     
 GEN                SA=BK  6,0,+CT.TPA0                                                    GEN         3746     A     
 GEN                ENDS                                                                   GEN         3747     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1502    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                                                                                       GEN         3748     A     
 GEN       #FID     IFNE   .FID,0                                                          F66FCC       803     A     
 GEN                ENTRY  O=NTRN1                                                         F66FCC       804     A     
 GEN       O=NTRN1  SX=AB  6,1                                                             F66FCC       805     A     
 GEN                SA=BK  6,0,+CT.TPA1                                                    F66FCC       806     A     
 GEN                ENDS                                                                   F66FCC       807     A     
 GEN       #FID     ENDIF                                                                  F66FCC       808     A     
 GEN                                                                                       F66FCC       809     A     
 GEN       O=NTRX   EQJ    +CT.BEGIN                                                       GEN         3749          I
          -FCCA598
 GEN       O=NTRX   JPQ    +CT.BEGIN                                                       FCCA598        6     A     
 GEN                ENDS                                                                   GEN         3750     A     
 GEN                                                                                       GEN         3751     A     
 GEN       O=NTRY   CALL   CBJ,+7                                                          GEN         3752     A     
 GEN                ENDS                                                                   GEN         3753     A     
 GEN                                                                                       GEN         3754     A     
 GEN       O=NTR0   CALL   CBSS,L1           ENTRY POINT, NO ARGS                          GEN         3755     A     
 GEN                EQJ    "M1"                                                            GEN         3756     A     
 GEN                ENDF                                                                   GEN         3757     A     
 GEN       O=NTR1   SA=BK  5,0,"M1"                                                        GEN         3758     A     
 GEN                XMIT   7,5,5                                                           GEN         3759     A     
 GEN                SA=BK  7,0,"N3"                                                        GEN         3760     A     
 GEN                CALL   O=CAR                                                           GEN         3761     A     
 GEN                ENDS                                                                   GEN         3762     A     
 GEN                                                                                       GEN         3763     A     
 GEN       O=NTRP   SB=BK  6,0,"N1"    ENTRY WITH ARGUMENTS                                GEN         3764     A     
 GEN                EQJ    +CT.INIT                                                        GEN         3765     A     
 GEN                ENDS                                                                   GEN         3766     A     
 GEN      **        VOID THE INSTRUCTION STACK AFTER POSSIBLY STORING INTO IT.             GEN         3767     A     
 GEN       #MD      IFGT   .CPU,74                                                         GEN         3768          I
          -S3143FC
 GEN       #MD      IFEQ   .CPU,76                                                         S3143FC       48          I
          -F7540FTA 
 GEN                ENTRY  O=VOID                                                          GEN         3769     A     
 GEN       O=VOID   RJQ    "M1"        AN RJ VOIDS THE STACK ON 7600                       GEN         3770          I
          -F7540FTA 
 GEN       O=VOID   RJQ    "M1"        VOID CPU INSTRUCTION STACK                          F7540FTA      13     A     
 GEN                CALL   CBSS,L1                                                         GEN         3771     A     
 GEN                RJQ    "M1"        DUMMY WORD                                          GEN         3772     A     
 GEN                ENDS                                                                   GEN         3773     A     
 GEN       #MD      ENDIF                                                                  GEN         3774          I
          -S3143FC
 GEN       #MD      IFEQ   .CPU,74                                                         GEN         3775          I
          -S3143FC
 GEN       #MD      ELSE                                                                   S3143FC       49          I
          -F7540FTA 
 GEN                ENTRY  O=VOID                                                          GEN         3776          I
          -F7540FTA 
 GEN       O=VOID   JPQ    "M1"        JUMP VOIDS THE STACK ON LOWER CYBER                 GEN         3777          I
          -F7540FTA 
 GEN                CALL   CBSS,L1                                                         GEN         3778          I
          -F7540FTA 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1503    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                ENDS                                                                   GEN         3779          I
          -F7540FTA 
 GEN       #MD      ENDIF                                                                  GEN         3780          I
          -F7540FTA 
 GEN                                                                                       GEN         3781     A     
 GEN      **        SET TRACEBACK WORD.                                                    GEN         3782     A     
 GEN                                                                                       GEN         3783     A     
 GEN       O=STRC   CALL   O=CDW                                                           GEN         3784     A     
 GEN                XMIT   X7,L1                                                           GEN         3785     A     
 GEN                SA=BK  7,0,"N1"                                                        GEN         3786     A     
 GEN                ENDS                                                                   GEN         3787     A     
 GEN                                                                                       GEN         3788     A     
 GEN      **        SET LINE NUMBER IN ENTRY POINT.                                        GEN         3789     A     
 GEN                                                                                       GEN         3790     A     
 GEN       O=SLNO   SA=BK  1,0,"M1"                                                        GEN         3791     A     
 GEN                FMASK  T2,30                                                           GEN         3792     A     
 GEN                SX=BB  T3,7                                                            GEN         3793     A     
 GEN                AND    T4,*T2,1                                                        GEN         3794     A     
 GEN                OR     7,*T4,*T3                                                       GEN         3795     A     
 GEN                SA=BK  7,0,"M1"                                                        GEN         3796     A     
 GEN                ENDS                                                                   GEN         3797     A     
 GEN                                                                                       FCC2194       33     A     
 GEN      **        TRANSMIT.                                                              FCC2194       34     A     
 GEN                                                                                       FCC2194       35     A     
 GEN       O=XMIT   XMIT   R1,L1                                                           FCC2194       36     A     
 GEN                ENDS                                                                   FCC2194       37     A     
 GEN       O=IO     SPACE  4,8                                                             GEN         3798     A     
 GEN      **        SOME *I/O* SKELETONS.                                                  GEN         3799     A     
 GEN                                                                                       GEN         3800     A     
 GEN                                                                                       GEN         3801     A     
 GEN       O=APLUG  LOAD   L2                PLUG (NEW) ADDRESS INTO AP-LIST.              GEN         3802     A     
 GEN                FMASK  T1,36                                                           GEN         3803     A     
 GEN                AND    T2,*T1,L2                                                       GEN         3804     A     
 GEN                OR     R1,L1,*T2                                                       GEN         3805     A     
 GEN                ENDS                                                                   GEN         3806     A     
 GEN       O=RAG    SPACE  4,8                                                             GEN         3807     A     
 GEN      **        O=RAG - LOAD ARGUMENT INTO REGISTER FOR CALL-BY-VALUE.                 GEN         3808     A     
 GEN      *                                                                                GEN         3809     A     
 GEN      *                (1OP) = SECOND ARGUMENT (OR DUMMY).                             GEN         3810     A     
 GEN      *                (2OP) = FIRST  ARGUMENT.                                        GEN         3811     A     
 GEN                                                                                       GEN         3812     A     
 GEN                                                                                       GEN         3813     A     
 GEN       O=RAGS1  LOAD   L2,,+R.X1-RGFILE SINGLE ARGUMENT                                GEN         3814     A     
 GEN                ENDS                                                                   GEN         3815     A     
 GEN                                                                                       GEN         3816     A     
 GEN       O=RAGD1  LOAD   LU2,,+R.X1-RGFILE                                               GEN         3817     A     
 GEN                LOAD   LL2,,+R.X2-RGFILE                                               GEN         3818     A     
 GEN                ENDS                                                                   GEN         3819     A     
 GEN                                                                                       GEN         3820     A     
 GEN       O=RAGSS  LOAD   L1,,+R.X1-RGFILE  1OP = SINGLE , 2OP = SINGLE                   GEN         3821     A     
 GEN                LOAD   L2,,+R.X3-RGFILE                                                GEN         3822     A     
 GEN                ENDS                                                                   GEN         3823     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1504    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                                                                                       GEN         3824     A     
 GEN       O=RAGSD  LOAD   L1,,+R.X1-RGFILE  1OP = SINGLE , 2OP = DOUBLE                   GEN         3825     A     
 GEN                LOAD   LU2,,+R.X3-RGFILE                                               GEN         3826     A     
 GEN                LOAD   LL2,,+R.X4-RGFILE                                               GEN         3827     A     
 GEN                ENDS                                                                   GEN         3828     A     
 GEN                                                                                       GEN         3829     A     
 GEN       O=RAGDS  LOAD   LU1,,+R.X1-RGFILE 1OP = DOUBLE , 2OP = SINGLE                   GEN         3830     A     
 GEN                LOAD   LL1,,+R.X2-RGFILE                                               GEN         3831     A     
 GEN                LOAD   L2,,+R.X3-RGFILE                                                GEN         3832     A     
 GEN                ENDS                                                                   GEN         3833     A     
 GEN                                                                                       GEN         3834     A     
 GEN       O=RAGDD  LOAD   LU1,,+R.X1-RGFILE 1OP = DOUBLE , 2OP = DOUBLE                   GEN         3835     A     
 GEN                LOAD   LL1,,+R.X2-RGFILE                                               GEN         3836     A     
 GEN                LOAD   LU2,,+R.X3-RGFILE                                               GEN         3837     A     
 GEN                LOAD   LL2,,+R.X4-RGFILE                                               GEN         3838     A     
 GEN                ENDS                                                                   GEN         3839     A     
 GEN       ADDSUB   SPACE  4,8                                                             GEN         3840     A     
 GEN      **        O=ADSUB - ADDRESS SUBSTITUTION TURPLES                                 GEN         3841     A     
 GEN      *                                                                                GEN         3842     A     
 GEN      *                (1OP) = TAG TO BE SUBSTITUTED.                                  GEN         3843     A     
 GEN      *                (2OP) = TAG FOR LOCATION OF SUBSTITUTION.                       GEN         3844     A     
 GEN                                                                                       GEN         3845     A     
 GEN                                                                                       GEN         3846     A     
 GEN       O=RJSUB  XMIT   X2,L1                                                           GEN         3847     A     
 GEN                LSHF   X2,30                                                           GEN         3848     A     
 GEN                SA=BK  1,0,+CT.RJS                                                     GEN         3849     A     
 GEN                OR     X7,X1,X2                                                        GEN         3850     A     
 GEN                SA=AB  7,L2,0                                                          GEN         3851     A     
 GEN                ENDS                                                                   GEN         3852     A     
 GEN       ARI      SECT   (A R I T H),1                                                   GEN         3853     A     
 GEN       CAI      EJECT  4,20                                                            GEN         3854     A     
 GEN      **        CAI -  COMPILE ARITHMETIC INSTRUCTION.                                 GEN         3855     A     
 GEN      *                                                                                GEN         3856     A     
 GEN      *         (P A S S   --  T W O  OF A ONE PASS COMPILER.)                         GEN         3857     A     
 GEN      *                                                                                GEN         3858     A     
 GEN      *         ENTRY  TT.PAR = PARSED FILE TO PROCESS.                                GEN         3859     A     
 GEN      *                TT.SCR = EXTERNALS TO PROCESS.                                  GEN         3860     A     
 GEN      *                                                                                GEN         3861     A     
 GEN      *         EXIT   TT=PAR = 0                                                      GEN         3862     A     
 GEN      *                TT=USE = 0                                                      GEN         3863     A     
 GEN      *                TT=SCR = 0                                                      GEN         3864     A     
 GEN                                                                                       GEN         3865     A     
 GEN                                                                                       GEN         3866     A     
 GEN      **        EXIT --   P A S S   T W O....                                          GEN         3867     A     
 GEN                                                                                       GEN         3868     A     
 GEN                                                                                       GEN         3869     A     
 GEN      **        EXIT THRU HERE IF BINARY SUPPRESSED OR LOCAL ERRORS FOUND.             GEN         3870     A     
 GEN                                                                                       GEN         3871     A     
 GEN       CAIX     BSS    0                                                               GEN         3872     A     
 GEN                                                                                       GEN         3873     A     
 GEN       TEST     IFNE   TEST                                                            GEN         3874     A     
 GEN                SA5    PARSLEN                                                         GEN         3875     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1505    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SA4    TT=PAR                                                          GEN         3876     A     
 GEN                IX0    X5-X4                                                           GEN         3877     A     
 GEN                AX0    59                                                              GEN         3878     A     
 GEN                BX7    -X0*X5                                                          GEN         3879     A     
 GEN                BX6    X0*X4                                                           GEN         3880     A     
 GEN                IX6    X6+X7                                                           GEN         3881     A     
 GEN                SA6    A5          RESET MAXIMUM PARSED FILE LENGTH                    GEN         3882     A     
 GEN                EQ     CAIXSN      CONTINUE                                            GEN         3883     A     
 GEN                ENTRY  PARSLEN                                                         GEN         3884     A     
 GEN       PARSLEN  DATA   0                                                               GEN         3885     A     
 GEN                DIS    ,/ LARGEST PARSED FILE LENGTH./                                 GEN         3886     A     
 GEN                                                                                       GEN         3887     A     
 GEN       CAIXSN   BSS    0                                                               GEN         3888     A     
 GEN       TEST     ENDIF  TEST                                                            GEN         3889     A     
 GEN                SA1    DRITE                                                           GEN         3890     A     
 GEN                ZR     X1,CAI10    IF DELAYED STORE NOT SET                            GEN         3891     A     
 GEN                IFBIT  X1,-2ARY,CAI10                                                  GEN         3892     A     
 GEN                DRITE  DEACTIVATE                                                      GEN         3893     A     
 GEN       CAI10    BSS    0                                                               GEN         3894     A     
 GEN                                                                                       GEN         3895     A     
 GEN                SHRINK TT=PAR,0                                                        GEN         3896     A     
 GEN                SA2    TT=USE                                                          GEN         3897     A     
 GEN                SHRINK TT=SCR,X6                                                       GEN         3898     A     
 GEN                SHRINK A2,X6                                                           GEN         3899     A     
 GEN                SA6    CURST       RESET STARTING PASS 1 BLOCK                         GEN         3900     A     
 GEN                                                                                       GEN         3901     A     
 GEN      *         RESTORE *TAG* BACK TO SYMBOL TABLE                                     GEN         3902     A     
 GEN                                                                                       GEN         3903     A     
 GEN                SA1    TT.USE                                                          GEN         3904     A     
 GEN                SA3    TS.SYM                                                          GEN         3905     A     
 GEN                SB6    X2                                                              GEN         3906     A     
 GEN                SB5    X1                                                              GEN         3907     A     
 GEN                SB4    X3                                                              GEN         3908     A     
 GEN                =X0    C.SYM                                                           GEN         3909     A     
 GEN                =B6    B6-1                                                            GEN         3910     A     
 GEN                LE     B6,CAI35    IF NULL USE TABLE, AVOID..                          GEN         3911     A     
 GEN                                                                                       GEN         3912     A     
 GEN      *         LOOP THROU *TT.USE* FOR TAG THAT NEED TO BE RESTORED.                  GEN         3913     A     
 GEN                                                                                       GEN         3914     A     
 GEN       CAI30    SA1    B5+B6       LOAD TAG                                            GEN         3915     A     
 GEN                BX6    X1                                                              GEN         3916     A     
 GEN                AX1    P.TAG                                                           GEN         3917     A     
 GEN                IX3    X1-X0                                                           GEN         3918     A     
 GEN                SA6    X3+B4       RESET SYMBOL TABLE ENTRY                            GEN         3919     A     
 GEN                =B6    B6-1                                                            GEN         3920     A     
 GEN       CAI35    PL     B6,CAI30    IF NOT END OF TABLE                                 GEN         3921     A     
 GEN                                                                                       GEN         3922     A     
 GEN      **        RESET TEM.MAX TO MAXIMUM TEMPORARY TAG.                                GEN         3923     A     
 GEN                                                                                       GEN         3924     A     
 GEN                SA2    TEM.MAX                                                         GEN         3925     A     
 GEN                SA3    TG.TEM                                                          GEN         3926     A     
 GEN                IX0    X2-X3                                                           GEN         3927     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1506    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                AX0    60-1                                                            GEN         3928     A     
 GEN                BX4    X0*X3                                                           GEN         3929     A     
 GEN                BX6    -X0*X2                                                          GEN         3930     A     
 GEN                IX6    X4+X6                                                           GEN         3931     A     
 GEN                SA6    A2          RESET TEM.MAX                                       GEN         3932     A     
 GEN                SX6    C.TEM                                                           GEN         3933     A     
 GEN                SA6    A3          RESET TG.TEM                                        GEN         3934     A     
 GEN                                                                                       GEN         3935     A     
 GEN      **        CLEAR ALL INTERMEDIATE REGISTERS.                                      GEN         3936     A     
 GEN      *         ASSOCIATES FOR INTERMEDIATES MUST BE CLEARED BECAUSE THEY              FCC1208       48     A     
 GEN      *         RELATE TO THE SEQUENCE WITHIN WHICH THEY OCCUR, AND THEY               FCC1208       49     A     
 GEN      *         THEREFORE POINT NOWHERE NOW THAT THE PRESENT PARSED FILE HAS           FCC1208       50     A     
 GEN      *         BEEN ERASED.                                                           FCC1208       51     A     
 GEN                                                                                       GEN         3937     A     
 GEN                BX6    0                                                               FCC1208       52     A     
 GEN                SB7    R.X7-R.X0                                                       GEN         3938     A     
 GEN       CAIX3    SA2    B7+REGX                                                         GEN         3939          I
          -FCC1208
 GEN                =B7    B7-1                                                            GEN         3940          I
          -FCC1208
 GEN                NG     B7,CAI      IF FINIS                                            GEN         3941          I
          -FCC1208
 GEN                IFBIT  X2,-INTR,CAIX3                                                  GEN         3942          I
          -FCC1208
 GEN                BX6    0                                                               GEN         3943          I
          -FCC1208
 GEN                SA6    A2          CLEAR ASSOCIATE.                                    GEN         3944          I
          -FCC1208
 GEN                EQ     CAIX3       LOOP                                                GEN         3945          I
          -FCC1208
 GEN       CAI40    SA2    REGX+B7                                                         FCC1208       53     A     
 GEN                SA1    =XREGA+B7                                                       FCCA456        6     A     
 GEN                MI     B7,CAIY     IF ALL REGISTERS EXAMINED                           FCC1208       54     A     
 GEN                SBIT   X2,INTR                                                         FCC1208       55     A     
 GEN                SBIT   X1,INTR                                                         FCCA456        7     A     
 GEN                =B7    B7-1                                                            FCC1208       56     A     
 GEN                PL     X2,CAI40    IF NOT INTERMEDIATE                                 FCC1208       57          I
          -FCCA456
 GEN                PL     X2,CAI41    IF NOT INTERMEDIATE                                 FCCA456        8     A     
 GEN                SA6    A2          CLEAR ASSOCIATE                                     FCC1208       58     A     
 GEN       CAI41    PL     X1,CAI40    IF NOT INTERMEDIATE                                 FCCA456        9     A     
 GEN                SA6    A1          CLEAR A REG ENTRY                                   FCCA456       10     A     
 GEN                EQ     CAI40                                                           FCC1208       59     A     
 GEN                                                                                       GEN         3946     A     
 GEN                                                                                       GEN         3947     A     
 GEN       CAIY     BSS                EXIT..                                              FCC1208       60     A     
 GEN       CAI      EQ     "BLOWUP"    ENTRY...                                            GEN         3948     A     
 GEN                SHRINK TT=USE,0                                                        GEN         3949     A     
 GEN                SA1    SERRORS                                                         GEN         3950          I
          -FEAT126C 
 GEN                SA1    ERR=F                                                           FEAT126C     169     A     
 GEN                ZR     X1,CAI2     IF NO ERRORS IN PARSED FILE.                        GEN         3951          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1507    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
          -FCC1208
 GEN                SA1    =XDFLAG                                                         GEN         3952          I
          -FCC0597  -FCC1208
 GEN                ZR     X1,CAIX     IF DEBUG OPTION NOT SELECTED                        GEN         3953          I
          -FCC0597  -FCC1208
 GEN                RJ     CER         COMPILE ERROR CODE.                                 GEN         3954          I
          -FCC0597  -FCC1208
 GEN                EQ     CAIX        EXIT..                                              GEN         3955          I
          -FCC1208
 GEN                NZ     X1,CAIX     IF FATAL ERRORS IN PARSED FILE                      FCC1208       61     A     
 GEN                                                                                       GEN         3956     A     
 GEN      **        SET-UP USAGE TABLE -- THEN SORT FROM HIGHEST TO LOWEST USAGE           GEN         3957     A     
 GEN                                                                                       GEN         3958     A     
 GEN       CAI2     SA1    BINOUT                                                          GEN         3959          I
          -FCC1208
 GEN                SA1    BINOUT                                                          FCC1208       62     A     
 GEN                SA2    TT=PAR                                                          GEN         3960     A     
 GEN                PL     X1,CAIX     IF BINARY SUPPRESSED                                GEN         3961     A     
 GEN                BX6    0                                                               GEN         3962     A     
 GEN                SA1    TT.PAR                                                          GEN         3963     A     
 GEN                ZR     X2,CAIX     IF NULL PARSED FILE - EXIT..                        GEN         3964     A     
 GEN                SA6    ARGNUM      CLEAR ARGUMENT COUNT (FOR O=ARG)                    GEN         3965     A     
 GEN                RJ     DUC         DEFINED USE COUNT FOR *PASS* 1 FILE                 GEN         3966     A     
 GEN                BX6    0                                                               GEN         3967     A     
 GEN                ADDWD  TT.PAR      END INDICATOR.                                      GEN         3968     A     
 GEN                SA4    TT.PAR                                                          GEN         3969     A     
 GEN       TEST     IFNE   TEST                                                            GEN         3970     A     
 GEN                                                                                       GEN         3971     A     
 GEN      **        DUMP NUMBER OF TERMS FOUND (ONLY IF IN TEST MODE)                      GEN         3972     A     
 GEN                                                                                       GEN         3973     A     
 GEN                SA2    CO.SNAP                                                         GEN         3974     A     
 GEN                LX2    1RA                                                             GEN         3975     A     
 GEN                PL     X2,CAI2SN   IF *ARITH* SNAP NOT REQUESTED                       GEN         3976     A     
 GEN                DUMPT  TT.USE      DUMP USE TABLE                                      GEN         3977     A     
 GEN                DUMPT  TT.SCR                                                          GEN         3978     A     
 GEN                RJ     =XSN.PAR                                                        GEN         3979     A     
 GEN       CAI2SN   BSS    0                                                               GEN         3980     A     
 GEN       TEST     ENDIF                                                                  GEN         3981     A     
 GEN                                                                                       GEN         3982     A     
 GEN      **        PROCESS EXPANSION OF PARSED FILE FOR CODE GENERATION.                  GEN         3983     A     
 GEN                                                                                       GEN         3984     A     
 GEN                SB4    X4          PRESET *B4* TO START OF PARSED FILE                 GEN         3985     A     
 GEN                SA1    ALC.CAI                                                         GEN         3986     A     
 GEN                BX7    X1          LOCK (B4) _ PARSED FILE                             GEN         3987     A     
 GEN                SA7    ALC.REG                                                         GEN         3988     A     
 GEN                RJ     EIS         EXPAND INSTRUCTION SKELETONS                        GEN         3989     A     
 GEN                SA1    ALC.00      UNLOCK (B4)                                         GEN         3990     A     
 GEN                BX7    X1                                                              GEN         3991     A     
 GEN                SA7    ALC.REG                                                         GEN         3992     A     
 GEN                EQ     CAIX        EXIT..                                              GEN         3993     A     
 GEN                                                                                       GEN         3994     A     
 GEN       RESFLG   DATA   0           SKELETON ADDRESS WHEN PROCESSING MODE               GEN         3995     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1508    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                                   CONVERSION IN EIS.                                  GEN         3996     A     
 GEN       FVD      EJECT  4,15                                                            GEN         3997     A     
 GEN      **        FVD -  FLUSH VARIABLE DIMENSION CODE.                                  GEN         3998     A     
 GEN      *                                                                                GEN         3999     A     
 GEN      *         COMPILES CODE TO PRE-COMPUTE VARIABLE DIMENSION ADDRESS                GEN         4000     A     
 GEN      *         FUNCTIONS, WHEN NECESSARY.  WILL NOT COMPILE ANYTHING IF NO            GEN         4001     A     
 GEN      *         VARIABLE DIMENSIONS OCCURRED IN THE SUBPROGRAM.                        GEN         4002     A     
 GEN      *                                                                                GEN         4003     A     
 GEN      *         ENTRY  T.VDIM TABLE CONTAINS *TURPLES* TO BE PROCESSED.                GEN         4004     A     
 GEN      *                TT.PAR IS A NULL TABLE.                                         GEN         4005     A     
 GEN      *                                                                                GEN         4006     A     
 GEN      *         EXIT   T.VDIM LENGTH = 0.                                              GEN         4007          I
          -F66FCC 
 GEN      *         EXIT.                                                                  F66FCC       810     A     
 GEN      *                CODE DEFINED BY *TURPLES* IN *T.VDIM* SENT TO                   GEN         4008     A     
 GEN      *                INTERMEDIATE FILE.                                              GEN         4009     A     
 GEN      *                                                                                GEN         4010     A     
 GEN      *         USES   ALL                                                             GEN         4011     A     
 GEN      *         CALLS  ALLOC, CAI                                                      GEN         4012     A     
 GEN                                                                                       GEN         4013     A     
 GEN                                                                                       GEN         4014     A     
 GEN       FVD      SUBR               ENTRY/EXIT...                                       GEN         4015     A     
 GEN                SA1    MOD                                                             GEN         4016     A     
 GEN                SA3    T=VDIM                                                          GEN         4017     A     
 GEN                =X6    M.PFNC+M.PSUB                                                   GEN         4018     A     
 GEN                BX0    X6*X1                                                           GEN         4019     A     
 GEN                SB6    X3                                                              GEN         4020     A     
 GEN                ZR     X0,EXIT.    IF NOT PROCEDURE SUBPROGRAM                         GEN         4021     A     
 GEN                ZR     X3,FVD9     IF NO VARIABLE DIMENSION CODE                       GEN         4022     A     
 GEN                                                                                       GEN         4023     A     
 GEN      **        FLUSH *T.VDIM* TABLE - OUTPUT INTERMEDIATE FILE CODE.                  GEN         4024     A     
 GEN                                                                                       GEN         4025     A     
 GEN                ALLOC  TT.PAR,X3   ALLOCIATE SPACE FOR *TURPLES*                       GEN         4026     A     
 GEN                SX3    B7-B6       DESTINATION ADDRESS                                 GEN         4027     A     
 GEN                =X6    0                                                               GEN         4028          I
          -FCC0813
 GEN                SA1    T=VDIM      WC                                                  GEN         4029     A     
 GEN                SA2    T.VDIM      SOURCE ADDRESS                                      GEN         4030     A     
 GEN                SHRINK A1,X6       COLLAPSE *T.VDIM*                                   GEN         4031          I
          -FCC0813
 GEN                MVE    X1,X2,X3    MOVE *TURPLES* TO PARSER TABLE                      GEN         4032     A     
 GEN                SHRINK T=VDIM      COLLAPSE T.VDIM                                     FCC0813      170     A     
 GEN                RJ     CAI         FLUSH TABLE                                         GEN         4033     A     
 GEN                DRITE  DEACTIVATE                                                      GEN         4034     A     
 GEN                                                                                       GEN         4035     A     
 GEN      **        COMPILE DUMMY *RJT* WORD IF NECESSARY.                                 GEN         4036     A     
 GEN                                                                                       GEN         4037     A     
 GEN                                                                                       GEN         4038     A     
 GEN       FVD9     SA1    RJTDUM                                                          GEN         4039     A     
 GEN                ZR     X1,EXIT.                                                        GEN         4040     A     
 GEN                CBSS   X1                                                              GEN         4041     A     
 GEN                =X6    0           ROUTINE NAME                                        GEN         4042     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1509    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                =X3    0           TRACEBACK LINE NUMBER                               GEN         4043     A     
 GEN                CRJ    MUST                                                            GEN         4044     A     
 GEN                EQ     EXIT.                                                           GEN         4045     A     
 GEN       DUC      SPACE  4,20                                                            GEN         4046     A     
 GEN      **        DUC -  DEFINE *USE* COUNT ON OPERANDS IN *PASS* 1 FILE FOR             GEN         4047     A     
 GEN      *                *PASS* 2 PROCESSING OF REGISTER ASSIGNMENT.                     GEN         4048     A     
 GEN      *                                                                                GEN         4049     A     
 GEN      *         ENTRY  PARSED FILE BUILT AND FWA OF TABLE IT IS IN CONTAINED           GEN         4050     A     
 GEN      *                IN REGISTER (X1).                                               GEN         4051     A     
 GEN      *                                                                                GEN         4052     A     
 GEN      *                                                                                GEN         4053     A     
 GEN      *         EXIT   USE COUNT SET IN --                                             GEN         4054     A     
 GEN      *                IF *OPERAND* WAS A *TAG* -                                      GEN         4055     A     
 GEN      *                *TAG* BITS IN *TS.SYM* REPLACED WITH *USE* COUNT.               GEN         4056     A     
 GEN      *                                                                                GEN         4057     A     
 GEN      *                IF *OPERAND* WAS A *CONSTANT* OR *INTERMEDIATE*                 GEN         4058     A     
 GEN      *                *USE* COUNT IN *BIAS* POSITION OF *OPERAND*                     GEN         4059     A     
 GEN      *                                                                                GEN         4060     A     
 GEN      *                (SCSA) = (USEMASK)                                              GEN         4061     A     
 GEN      *                                                                                GEN         4062     A     
 GEN      *         USES   ALL REGISTERS.                                                  GEN         4063     A     
 GEN      *                (SCSA, TT.SCR, TT.SYM, TT.USE)                                  GEN         4064     A     
 GEN      *         CALLS  ADDWD, SCS                                                      GEN         4065     A     
 GEN      *                                                                                GEN         4066     A     
 GEN      *         NOTE - NEITHER ADDWD, NOR SCS MAY DESTROY (X4,X5  B4,B5,B6)            GEN         4067     A     
 GEN                                                                                       GEN         4068     A     
 GEN       USEMASK  SYMASK (2TAG,2BIAS,2FPNO,2CLAS)                                        GEN         4069     A     
 GEN                                                                                       GEN         4070     A     
 GEN       DUC      SUBR               ENTRY/EXIT..                                        GEN         4071     A     
 GEN                SA3    USEMASK                                                         GEN         4072     A     
 GEN                SA2    A1+N.TABLE  LOAD LENGTH OF TABLE BEING PROCESSED                GEN         4073     A     
 GEN                BX7    X3                                                              GEN         4074     A     
 GEN                IX0    X2+X1                                                           GEN         4075     A     
 GEN                SA7    SCSA        SET MASK FOR *SCS* SCAN                             GEN         4076     A     
 GEN                SB4    A1          SAVE TABLE ADDRESS                                  GEN         4077     A     
 GEN                SX4    X2-L.TURP   LENGTH -L.TURP                                      GEN         4078     A     
 GEN                SB5    X1          FWA OF TABLE                                        GEN         4079     A     
 GEN                BX1    X2                                                              GEN         4080     A     
 GEN                SA3    X4+B5                                                           GEN         4081     A     
 GEN                EQ     DUC10       CONTINUE                                            GEN         4082     A     
 GEN                                                                                       GEN         4083     A     
 GEN      **        REGISTER ALLOCATION                                                    GEN         4084     A     
 GEN      *         (X2) = WORD FROM TABLE                                                 GEN         4085     A     
 GEN      *         (X4) = DECREMENT WORD                                                  GEN         4086     A     
 GEN      *                                                                                GEN         4087     A     
 GEN      *         (B4) _ TABLE ORIGIN WORD OF TABLE BEING SCANNED                        GEN         4088     A     
 GEN      *         (B5) = FWA OF TABLE                                                    GEN         4089     A     
 GEN      *         (B6) = REMAINING LENGTH TO SCAN                                        GEN         4090     A     
 GEN                                                                                       GEN         4091     A     
 GEN                                                                                       GEN         4092     A     
 GEN       DUC.     BSS    0           NULL OPERATOR.                                      GEN         4093     A     
 GEN       DUC2     SA1    B4                                                              GEN         4094     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1510    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SB5    X1          RESET FWA OF TABLE SCANNING                         GEN         4095     A     
 GEN       DUC6     SA3    X4+B5       NEXT ENTRY                                          GEN         4096     A     
 GEN                MI     X4,EXIT.    IF FINISHED                                         GEN         4097     A     
 GEN                                                                                       GEN         4098     A     
 GEN      *         DETERMINE TYPE OF OPERAND                                              GEN         4099     A     
 GEN      *         (X3) = OPERATOR WORD                                                   GEN         4100     A     
 GEN                                                                                       GEN         4101     A     
 GEN       DUC10    SA1    X3+CHARMAP                                                      GEN         4102     A     
 GEN                =X4    X4-L.TURP                                                       GEN         4103     A     
 GEN                =A2    A3+OR.2OP   PRELOAD 2ND OPERAND                                 GEN         4104     A     
 GEN                SB7    X1                                                              GEN         4105     A     
 GEN                SB6    DUC2                                                            GEN         4106     A     
 GEN                BX1    X2                                                              GEN         4107     A     
 GEN                JP     B7          JUMP TO PROCESS OPERANDS                            GEN         4108     A     
 GEN                                                                                       GEN         4109     A     
 GEN      *         1ST OPERAND ONLY.                                                      GEN         4110     A     
 GEN                                                                                       GEN         4111     A     
 GEN       DUC.1ST  =A2    A2-OR.2OP+OR.1OP                                                GEN         4112     A     
 GEN                BX1    X2                                                              GEN         4113     A     
 GEN                EQ     DUC15                                                           GEN         4114     A     
 GEN                                                                                       GEN         4115     A     
 GEN      *         BOTH OPERAND.                                                          GEN         4116     A     
 GEN                                                                                       GEN         4117     A     
 GEN       DUC.BTH  SB6    DUC12                                                           GEN         4118     A     
 GEN                =X4    X4+L.TURP+1                                                     GEN         4119     A     
 GEN                EQ     DUC15                                                           GEN         4120     A     
 GEN                                                                                       GEN         4121     A     
 GEN      *         PROCESS 1ST OPERAND WHEN *BOTH* REQUESTED.                             GEN         4122     A     
 GEN                                                                                       GEN         4123     A     
 GEN       DUC12    SA1    B4                                                              GEN         4124     A     
 GEN                SB6    DUC2                                                            GEN         4125     A     
 GEN                SB5    X1                                                              GEN         4126     A     
 GEN                SA2    X4+B5                                                           GEN         4127     A     
 GEN                =X4    X4-L.TURP-1                                                     GEN         4128     A     
 GEN                BX1    X2                                                              GEN         4129     A     
 GEN                                                                                       GEN         4130     A     
 GEN      *         SET OPERANDS USE COUNT.                                                GEN         4131     A     
 GEN      *         (X1) = (X2) = OPERANDS                                                 GEN         4132     A     
 GEN      *         (B6) = EXIT ADDRESS.                                                   GEN         4133     A     
 GEN                                                                                       GEN         4134     A     
 GEN       DUC.2ND  BSS    0                                                               GEN         4135     A     
 GEN       DUC15    BX3    X2                                                              GEN         4136     A     
 GEN                AX3    P.TGB                                                           GEN         4137     A     
 GEN                SB7    X3-C.STN/1S13                                                   GEN         4138     A     
 GEN                NZ     B7,DUC152   IF NOT STATEMENT NUMBER                             GEN         4139     A     
 GEN                JP     B6                                                              GEN         4140     A     
 GEN                                                                                       GEN         4141     A     
 GEN       DUC152   IFBIT  X1,SHORT,DUC30    IF SHORT CONSTANT                             GEN         4142     A     
 GEN                IFBIT  X1,INTR/SHORT,DUC40   IF INTERMEDIATE                           GEN         4143     A     
 GEN                SB7    X3-C.SYM/1S13                                                   GEN         4144     A     
 GEN                ZR     B7,DUC16           IF SYMBOL                                    GEN         4145     A     
 GEN                SB7    X3-C.CON/1S13                                                   GEN         4146     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1511    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                ZR     B7,DUC37           IF CONSTANT                                  GEN         4147     A     
 GEN                SB7    X3-C.PRO/1S13                                                   GEN         4148     A     
 GEN                ZR     B7,DUC37           IF PROGRAM TAG                               GEN         4149     A     
 GEN                SB7    X3-C.VDIM/1S13                                                  GEN         4150     A     
 GEN                ZR     B7,DUC37           IF VAR-DIM                                   GEN         4151     A     
 GEN                SB7    X3-C.TEM/1S13                                                   GEN         4152     A     
 GEN                ZR     B7,DUC37           IF TEMP TAG                                  GEN         4153     A     
 GEN                JP     B6                IF TAG NOT DEFINED                            GEN         4154     A     
 GEN                                                                                       GEN         4155     A     
 GEN      *         CURRENT ENTITY IS DEFINED TO BE IN THE SYMBOL TABLE.                   GEN         4156     A     
 GEN      *         CHECK IF *1ST* USE                                                     GEN         4157     A     
 GEN                                                                                       GEN         4158     A     
 GEN       DUC16    IFBIT  X1,2ARY/INTR,DUC37   IF ARRAY                                   GEN         4159     A     
 GEN                IFBIT  X1,ADDR/2ARY,DUC37  IF ADDRESS SET                              FCC1134      127     A     
 GEN                BX1    X2                                                              GEN         4160     A     
 GEN                SA5    TS.SYM                                                          GEN         4161     A     
 GEN                AX1    P.2TAG                                                          GEN         4162     A     
 GEN                SB2    X5                                                              GEN         4163     A     
 GEN                SX7    X1-C.SYM                                                        GEN         4164     A     
 GEN                SA3    X7+B2       LOAD SYMBOL TABLE ENTRY                             GEN         4165     A     
 GEN                =X5    1                                                               GEN         4166     A     
 GEN                BX0    X3                                                              GEN         4167     A     
 GEN                LX0    59-8        *** TEMPORARY ***                                   GEN         4168     A     
 GEN                PL     X0,DUC25    IF 1ST USE                                          GEN         4169     A     
 GEN                SX1    RLOCK                                                           FCC2472        6     A     
 GEN                BX3    X3-X1       TURN OFF NOT LAST USE BIT                           FCC2472        7     A     
 GEN                IX6    X3+X5                                                           GEN         4170     A     
 GEN                BX6    X6+X1       TURN ON NOT LAST USE BIT                            FCC2472        8     A     
 GEN                SA6    A3          UPDATE USE COUNT                                    GEN         4171     A     
 GEN                SA6    A2          REPLACE PARSED FILE ENTRY                           GEN         4172     A     
 GEN                JP     B6          EXIT                                                GEN         4173     A     
 GEN                                                                                       GEN         4174     A     
 GEN      **        PROCESS *SYMBOL TABLE TAG*                                             GEN         4175     A     
 GEN      *         FIRST USE OF TAG, REPLACE SYMBOL TABLE ENTRY WITH THE PARSED           GEN         4176     A     
 GEN      *         FILE ENTRY REPLACING *MODE* BITS WITH *0* AND SETTING THE              GEN         4177     A     
 GEN      *         LOCK BIT TO INDICATE NOT THE *1ST* USE.  TAKE THE *TS.SYM*             GEN         4178     A     
 GEN      *         ENTRY AND PUT IT IN *TT.USE* FOR *CAI* TO USE TO PUT BACK INTO         GEN         4179     A     
 GEN      *         THE SYMBOL TABLE.                                                      GEN         4180     A     
 GEN                                                                                       GEN         4181     A     
 GEN       DUC25    MX7    -L.RUSE                                                         GEN         4182     A     
 GEN                =X1    RLOCK                                                           GEN         4183     A     
 GEN                BX7    X7*X2                                                           GEN         4184     A     
 GEN                LX6    X3                                                              GEN         4185     A     
 GEN                BX7    X7+X1       INDICATE NOT 1ST USE                                GEN         4186     A     
 GEN                IX7    X7+X5                                                           GEN         4187     A     
 GEN                SA7    A3                                                              GEN         4188     A     
 GEN                SA7    A2          REPLACE PARSED FILE ENTRY                           GEN         4189     A     
 GEN                ADDWD  TT.USE      ADD *SYMBOL* TABLE ENTRY TO USE TABLE               GEN         4190     A     
 GEN                JP     B6                                                              GEN         4191     A     
 GEN                                                                                       GEN         4192     A     
 GEN      *         HERE IF *OPERAND IS SHORT CONSTANT.                                    GEN         4193     A     
 GEN                                                                                       GEN         4194     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1512    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       DUC30    MX0    -L.MODE                                                         GEN         4195     A     
 GEN                BX5    -X0*X2                                                          GEN         4196     A     
 GEN                LX5    P.2FPNO                                                         GEN         4197     A     
 GEN                BX2    X2+X5                                                           GEN         4198     A     
 GEN                                                                                       GEN         4199     A     
 GEN      *         HERE IF *OPERAND IS CONSTANT, PROGRAM, VAR-DIM, OR ARRAY TAG.          GEN         4200     A     
 GEN      *         HERE ALSO FOR SET TO SYMBOL TABLE TAG.                                 FCC1134      128     A     
 GEN                                                                                       GEN         4201     A     
 GEN                                                                                       GEN         4202     A     
 GEN       DUC37    SA3    B4                                                              GEN         4203     A     
 GEN                SB5    X3                                                              GEN         4204     A     
 GEN                SB5    A2-B5                                                           GEN         4205     A     
 GEN                LX6    X2                                                              GEN         4206     A     
 GEN                =X5    1                                                               GEN         4207     A     
 GEN                SCAN   TT.SCR,SCS                                                      GEN         4208     A     
 GEN                MI     B7,DUC38    IF NOT ALREADY IN TABLE                             GEN         4209     A     
 GEN                IX6    X2+X5       ADVANCE USE COUNT                                   GEN         4210     A     
 GEN                SA6    A2                                                              GEN         4211     A     
 GEN                SA1    TT.SCR                                                          GEN         4212     A     
 GEN                EQ     DUC39                                                           GEN         4213     A     
 GEN                                                                                       GEN         4214     A     
 GEN      *         *OPERAND* NOT IN TABLE (1ST) USE) SET USE COUNT =1, AND ADD            GEN         4215     A     
 GEN      *         TO TABLE.                                                              GEN         4216     A     
 GEN                                                                                       GEN         4217     A     
 GEN       DUC38    BX6    X3*X6       SET USE COUNT = 1                                   GEN         4218     A     
 GEN                IX6    X6+X5                                                           GEN         4219     A     
 GEN                ADDWD  TT.SCR                                                          GEN         4220     A     
 GEN                                                                                       GEN         4221     A     
 GEN      *         HERE TO REPLACE PARSED FILE ENTRY AND RESET (SDSA)                     GEN         4222     A     
 GEN      *         (B5) = RELATIVE PARSED FILE ADDRESS.                                   GEN         4223     A     
 GEN      *         (A6) = TT.SCR ADDRESS OF *OPERAND*.                                    GEN         4224     A     
 GEN      *         (X1) = FWA TT.SCR.                                                     GEN         4225     A     
 GEN      *         (X6) = PARSED FILE ENTRY WITH USE COUNT ADDED.                         GEN         4226     A     
 GEN                                                                                       GEN         4227     A     
 GEN       DUC39    SA3    B4                                                              GEN         4228     A     
 GEN                SB7    X1                                                              GEN         4229     A     
 GEN                MX0    L.2TAG                                                          GEN         4230     A     
 GEN                SB5    B5+X3                                                           GEN         4231     A     
 GEN                SX1    A6-B7                                                           GEN         4232     A     
 GEN                BX6    -X0*X6                                                          GEN         4233     A     
 GEN                SX2    X1+C.SCR                                                        GEN         4234     A     
 GEN                BX7    X3                                                              GEN         4235     A     
 GEN                LX2    P.2TAG                                                          GEN         4236     A     
 GEN                IX6    X6+X2       REPLACE *TAG* WITH TT.SCR ORDINAL                   GEN         4237     A     
 GEN                SA6    B5          REPLCE PARSED FILE ENTRY                            GEN         4238     A     
 GEN                JP     B6          NEXT                                                GEN         4239     A     
 GEN                                                                                       GEN         4240     A     
 GEN      *         *OPERAND* IS INTERMEDIATE.                                             GEN         4241     A     
 GEN                                                                                       GEN         4242     A     
 GEN       DUC40    BX3    X2                                                              GEN         4243     A     
 GEN                MX7    -L.MODE                                                         GEN         4244     A     
 GEN                =X0    1                                                               GEN         4245     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1513    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                AX3    P.JPAD                                                          GEN         4246     A     
 GEN                BX6    -X7*X2                                                          GEN         4247     A     
 GEN                LX0    P.MODC                                                          GEN         4248     A     
 GEN                SA5    X3+B5       OPERATOR WORD FOR INTERMEDIATE                      GEN         4249     A     
 GEN                LX6    P.DMOD                                                          GEN         4250     A     
 GEN                IX7    X5+X0       ADVANCE USE COUNT                                   GEN         4251     A     
 GEN                BX6    X2+X6                                                           GEN         4252     A     
 GEN                MX0    -L.RUSE                                                         GEN         4253     A     
 GEN                SA7    A5          REPLACE OPERATOR WORD                               GEN         4254     A     
 GEN                BX6    X0*X6                                                           GEN         4255     A     
 GEN                AX7    P.MODC                                                          GEN         4256     A     
 GEN                BX7    -X0*X7                                                          GEN         4257     A     
 GEN                IX6    X6+X7       ADD USE COUNT TO OPERAND                            GEN         4258     A     
 GEN                SA6    A2          REPLACE ENTRY IN PARSED FILE                        GEN         4259     A     
 GEN                =X3    M.LONG                                                          GEN         4260     A     
 GEN                IFBIT  X1,-2ARY/INTR,DUC42                                             GEN         4261     A     
 GEN                BX7    X3*X2                                                           GEN         4262     A     
 GEN                AX5    P.MODC                                                          GEN         4263     A     
 GEN                =A1    A5+OR.2OP                                                       GEN         4264     A     
 GEN                AX7    P.LONG                                                          GEN         4265     A     
 GEN                BX3    X1                                                              GEN         4266     A     
 GEN                IFBIT  X1,-INTR,DUC42                                                  GEN         4267     A     
 GEN                BX5    -X0*X5                                                          GEN         4268     A     
 GEN                AX3    P.JPAD                                                          GEN         4269     A     
 GEN                IX0    X5+X7                                                           GEN         4270     A     
 GEN                SA1    X3+B5                                                           GEN         4271     A     
 GEN                LX0    P.MODC                                                          GEN         4272     A     
 GEN                IX6    X1+X0                                                           GEN         4273     A     
 GEN                SA6    A1                                                              GEN         4274     A     
 GEN       DUC42    JP     B6                                                              GEN         4275     A     
 GEN                                                                                       GEN         4276     A     
 GEN       EIS      EJECT  4,20                                                            GEN         4277     A     
 GEN      **        EIS -  EXPAND INSTRUCTION SKELETON.                                    GEN         4278     A     
 GEN      *                                                                                GEN         4279     A     
 GEN      *         HEART OF PASS TWO PROCESSING.  *EIS* USES THE PARSED FILE,             GEN         4280     A     
 GEN      *         BUILT DURING PASS ONE AS A PSEUDO- MICRO PROGRAMMING FILE TO           GEN         4281     A     
 GEN      *         GENERATE OBJECT CODE FOR THE CURRENT SEQUENCE.  EACH TURPLE            GEN         4282     A     
 GEN      *         IS EXPANDED USING THE OR.OPR WORD AS THE ADDRESS FOR THE               GEN         4283     A     
 GEN      *         SKELETON.  AS EACH PORTION OF THE INSTRUCTION IS PROCESSED             GEN         4284     A     
 GEN      *         *EIS* KEEPS TRACK OF REGISTERS USED, TYPE OF USAGE, OP-CODES           GEN         4285     A     
 GEN      *         AND SEQUENCE BREAKS WITHIN THE PASS ONE FILE.                          GEN         4286     A     
 GEN      *                                                                                GEN         4287     A     
 GEN      *                                                                                GEN         4288     A     
 GEN      *         SPECIAL CASING IS DONE WHEN THE OP-CODE FOR A GIVEN EXPANSION          GEN         4289     A     
 GEN      *         DEFINES EITHER A LOAD OR STORE OPERATION.  AFTER THE J PORTION         GEN         4290     A     
 GEN      *         OF A LOAD INSTRUCTION IS SET INTO *INS.REG*, EIS LOOKS AT THE          GEN         4291     A     
 GEN      *         TYPE OF REGISTERS USED TO DETERMINE WHAT TYPE OF LOAD                  GEN         4292     A     
 GEN      *         INSTRUCTION IS TO BE COMPILED.  IN DOING THIS, *EIS* MIGHT             GEN         4293     A     
 GEN      *         HAVE TO INSERT SPECIAL SEQUENCES OF SKELETONS TO GET THE               GEN         4294     A     
 GEN      *         REGISTERS SET-UP CORRECTLY FOR ADDRESS GENERATION.                     GEN         4295     A     
 GEN      *                                                                                GEN         4296     A     
 GEN      *         CURRENTLY THERE ARE FOUR MAJOR ROUTES *EIS* MAY TAKE                   GEN         4297     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1514    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *         1.  NON-STANDARD PROCESSORS                                            GEN         4298     A     
 GEN      *             EXTERNAL PROCESSOR MUST BE CALLED TO EXPAND CURRENT                GEN         4299     A     
 GEN      *             SKELETON.                                                          GEN         4300     A     
 GEN      *         2.  A RESET OF SKELETON                                                GEN         4301     A     
 GEN      *             CURRENT SKELETON USES ANOTHER SKELETON TO COMPLETE                 GEN         4302     A     
 GEN      *             EXPANSION OF CURRENT TURPLE.                                       GEN         4303     A     
 GEN      *         3.  A CALL DURING SKELETON EXPANSION                                   GEN         4304     A     
 GEN      *             SUB-PROCESS INSIDE SKELETON REQUIRES A SPECIAL PROCESSOR           GEN         4305     A     
 GEN      *             TO HANDLE SUB-FUNCTION OF TURPLE.                                  GEN         4306     A     
 GEN      *         4.  A USE OF ANOTHER SKELETON FOR A SUB-PROCESS OF CURRENT             GEN         4307     A     
 GEN      *             TURPLE.                                                            GEN         4308     A     
 GEN      *             CURRENT TURPLE IS PARTIAL DEFINED BY ANOTHER SKELETON.             GEN         4309     A     
 GEN      *                                                                                GEN         4310     A     
 GEN      *         ENTRY  (B4) _ 1ST PARSED TURPLE.                                       GEN         4311     A     
 GEN      *                                                                                GEN         4312     A     
 GEN      *         EXIT   CODE COMPILED FOR PARSED FILE.                                  GEN         4313     A     
 GEN      *                                                                                GEN         4314     A     
 GEN      *         --------------- L O C K  -  R E G I S T E R S --------------           GEN         4315     A     
 GEN      *                                                                                GEN         4316     A     
 GEN      *                       B4 _ POINTS TO CURRENT TURPLE.                           GEN         4317     A     
 GEN      *                       A4,X4 = CURRENT INSTRUCTION SKELETON.                    GEN         4318     A     
 GEN      *                                                                                GEN         4319     A     
 GEN      *         NO ROUTINE INTERNAL TO *EIS* MAY DESTROY ABOVE REGISTERS.              GEN         4320     A     
 GEN      *         ------------------------------------------------------------           GEN         4321     A     
 GEN                                                                                       GEN         4322     A     
 GEN                                                                                       GEN         4323     A     
 GEN       EIS      SUBR   0                                                               GEN         4324     A     
 GEN                SX6    R.X5-R.X0                                                       GEN         4325     A     
 GEN                MX7    -1                                                              GEN         4326     A     
 GEN                SA6    RGX         INITIALIZE REGISTER USAGE                           GEN         4327     A     
 GEN                =X6    X6+1                                                            GEN         4328     A     
 GEN                SA7    REGLK                                                           GEN         4329     A     
 GEN                SA7    =XSTRGLK                                                        GEN         4330     A     
 GEN                SA6    RGC         INITIALIZE LOAD REGISTERS                           GEN         4331     A     
 GEN                                                                                       GEN         4332     A     
 GEN      *         RESET REGISTER SKELETON WORDS                                          GEN         4333     A     
 GEN                                                                                       GEN         4334     A     
 GEN       RESET    ECHO   ,CLASS=(INTR,TEMP,LOAD,LODX,STOR)                               GEN         4335     A     
 GEN                =A1    =XRG=CLASS+2                                                    GEN         4336     A     
 GEN                BX6    X1                                                              GEN         4337     A     
 GEN                =A6    A1-1                                                            GEN         4338     A     
 GEN       RESET    ENDD                                                                   GEN         4339     A     
 GEN                                                                                       GEN         4340     A     
 GEN       EIS.PNX  =A5    B4+OR.OPR                                                       GEN         4341     A     
 GEN                MX6    0                                                               GEN         4342     A     
 GEN                BX0    X5                                                              GEN         4343     A     
 GEN                SA6    NOLDS       CLEAR NUMBER OF LOADS                               GEN         4344     A     
 GEN                ZR     X5,EISX     IF END OF PARSED FILE. (*EOS* FOUND.)               GEN         4345     A     
 GEN                =X6    X6+1                                                            GEN         4346     A     
 GEN                SA6    UUC                                                             GEN         4347     A     
 GEN                                                                                       GEN         4348     A     
 GEN                AX5    P.JPAD      SHIFT TO INSTRUCTION SKELETON ADDRESS               GEN         4349     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1515    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                IFBIT  X0,-NONSTD,EIS5                                                 GEN         4350     A     
 GEN       NONSTD   SPACE  4,8                                                             GEN         4351     A     
 GEN      **        IF NON-STANDARD OPERATOR (LIKE SUBSCRIPT,OR FUNCTION)                  GEN         4352     A     
 GEN      *         *EIS* JUMPS TO THE PROCESSOR WITH                                      GEN         4353     A     
 GEN      *                                                                                GEN         4354     A     
 GEN      *         (X0) = CURRENT OPERATOR SHIFTED BY P.NONSTD.                           GEN         4355     A     
 GEN      *         (B4) _ START OF CURRENT TRIPLE.                                        GEN         4356     A     
 GEN      *         (B7) = 0                                                               GEN         4357     A     
 GEN                                                                                       GEN         4358     A     
 GEN                =B7    0                                                               GEN         4359     A     
 GEN                                                                                       GEN         4360     A     
 GEN                SB2    X5          PROCESSOR ADDRESS                                   GEN         4361     A     
 GEN                JP     B2          JUMP TO PROCESSOR.                                  GEN         4362     A     
 GEN                                                                                       GEN         4363     A     
 GEN      **        ENTRY  (X5) = CURRENT PARSED FILE OPERATOR WORD.                       GEN         4364     A     
 GEN                                                                                       GEN         4365     A     
 GEN       EIS5     SB2    X5          INSTRUCTION SKELETON ADDRESS                        GEN         4366     A     
 GEN                =A4    B2-1        DUMMY LOAD TO ACTIVATE *A4*                         GEN         4367     A     
 GEN       EIS.LNX  SX6    -3                                                              GEN         4368     A     
 GEN                BX5    0           CLEAR REGISTER ASSEMBLE - 000.                      GEN         4369     A     
 GEN                SA6    IJK                                                             GEN         4370     A     
 GEN                =A4    A4+1                                                            GEN         4371     A     
 GEN       SPECIAL  SPACE  4,8                                                             GEN         4372     A     
 GEN      **        CHECK IF SKELETON REQUIRES SPECIAL HANDLING                            GEN         4373     A     
 GEN      *                                                                                GEN         4374     A     
 GEN      *         USESKL - TEMPORARY USE OF DIFFERENT SKELETON X RETURNING TO            GEN         4375     A     
 GEN      *                  CURRENT SKELETON.                                             GEN         4376     A     
 GEN      *         RESET  - RESET SKELETON TO X.                                          GEN         4377     A     
 GEN      *         CALL   - EXTERNAL PROCESSOR *RJ* TO X.                                 GEN         4378     A     
 GEN      *         OTHER  - NORMAL PROCESSING.                                            GEN         4379     A     
 GEN      *                                                                                GEN         4380     A     
 GEN      *         ENTRY  (X4) = CURRENT SKELETON WORD.                                   GEN         4381     A     
 GEN                                                                                       GEN         4382     A     
 GEN                BX0    X4                                                              GEN         4383     A     
 GEN                AX0    P.ITYPE                                                         GEN         4384     A     
 GEN                MX1    -L.ITYPE+1                                                      GEN         4385     A     
 GEN                BX2    -X1*X0                                                          GEN         4386     A     
 GEN                SA1    X2+EIS.TYP                                                      GEN         4387     A     
 GEN                BX7    X2                                                              GEN         4388     A     
 GEN                SB7    X1                                                              GEN         4389     A     
 GEN                SA7    OPTYP                                                           GEN         4390     A     
 GEN                JP     B7          JUMP TO PROCESS TYPE                                GEN         4391     A     
 GEN                                                                                       GEN         4392     A     
 GEN       EIS.TYP  BSS    0                                                               GEN         4393     A     
 GEN                CON    EIS.COND    CONDITIONAL                                         GEN         4394     A     
 GEN                CON    EIS.LN1     ARITHMETIC TYPE INSTRUCTION                         GEN         4395     A     
 GEN                CON    EIS.LN1     DEFINED INCREMENT INSTRUCTION                       GEN         4396     A     
 GEN                CON    EIS.BRN     BRANCH                                              GEN         4397     A     
 GEN                CON    EIS.SHF     SHIFT/XMIT                                          GEN         4398     A     
 GEN                CON    EIS.CALL    CALL                                                GEN         4399     A     
 GEN                CON    EIS.USEL    USE-SKEL                                            GEN         4400     A     
 GEN                CON    EIS.RSET    RESET                                               GEN         4401     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1516    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                CON    EIS.LOD     LOAD/STORE INSTRUCTION                              GEN         4402     A     
 GEN                                                                                       GEN         4403     A     
 GEN      **        IF PROCESSING *RESET* SKELETON                                         GEN         4404     A     
 GEN                                                                                       GEN         4405     A     
 GEN       EIS.RSET SB2    X4                                                              GEN         4406     A     
 GEN                PL     B2,EIS.RST5 IF HARD ADDRESS OF SKELETON                         GEN         4407     A     
 GEN                SB2    B2-L.TURP                                                       GEN         4408     A     
 GEN                SB4    B4-B2                                                           GEN         4409     A     
 GEN                EQ     EIS.PNX     CONTINUE TO NEXT REQUESTED *TURPLE*                 GEN         4410     A     
 GEN       EIS.RST5 SA4    B2                                                              GEN         4411     A     
 GEN                EQ     EIS.LN1     CONTINUE WITH NEXT SKELETON                         GEN         4412     A     
 GEN                                                                                       GEN         4413     A     
 GEN      **        IF PROCESSING *CALL* SKELETON                                          GEN         4414     A     
 GEN                                                                                       GEN         4415     A     
 GEN       EIS.CALL SB2    X4          JUMP ADDRESS                                        GEN         4416     A     
 GEN                AX4    P.MARG                                                          GEN         4417     A     
 GEN                SX1    X4                                                              GEN         4418     A     
 GEN                                                                                       GEN         4419     A     
 GEN      **        WHEN (P.MARG) IS POSITIVE, IT CONTAINS THE ARGUMENT TO THE             GEN         4420     A     
 GEN      *         MACRO.                                                                 GEN         4421     A     
 GEN                                                                                       GEN         4422     A     
 GEN                PL     X1,EIS.CL5  IF ARGUMENT IS CONSTANT                             GEN         4423     A     
 GEN                                                                                       GEN         4424     A     
 GEN      **        WHEN (P.MARG) IS NEGATIVE, THE MACRO ARGUMENT IS IN THE PARSED         GEN         4425     A     
 GEN      *         TURPLE, AND (P.MARG) IS THE COMPLEMENT OF THE ORDINAL IN THE           GEN         4426     A     
 GEN      *         TURPLE WHICH CONTAINS THE ARGUMENT.                                    GEN         4427     A     
 GEN                                                                                       GEN         4428     A     
 GEN                SB7    X4                                                              GEN         4429     A     
 GEN                SA1    B4-B7       LOAD ARGUMENT FROM PARSED FILE                      GEN         4430     A     
 GEN       EIS.CL5  JP     B2          EXECUTE CALLED ROUTINE                              GEN         4431     A     
 GEN                                                                                       GEN         4432     A     
 GEN      **        IF PROCESSING *USESKL* SKELETON                                        GEN         4433     A     
 GEN                                                                                       GEN         4434     A     
 GEN       EIS.USEL SX3    A4+1                                                            GEN         4435     A     
 GEN                SA4    X4                                                              GEN         4436     A     
 GEN                BX6    -X3                                                             GEN         4437     A     
 GEN                SA6    RESFLG                                                          GEN         4438     A     
 GEN                EQ     EIS.LN1     CONTINUE                                            GEN         4439     A     
 GEN                                                                                       GEN         4440     A     
 GEN      **        IF PROCESSING *LOAD* TYPE INSTRUCTION.                                 GEN         4441     A     
 GEN                                                                                       GEN         4442     A     
 GEN       EIS.LOD  MX0    -L.IQF                                                          GEN         4443     A     
 GEN                BX6    -X0*X4                                                          GEN         4444     A     
 GEN                ZR     X6,EIS.LN1  IF NO HARD REGISTER SPECIFIED                       GEN         4445     A     
 GEN                SA6    RREG        SET HARD REGISTER                                   GEN         4446     A     
 GEN                SA6    HREG        SET LOCK FLAG                                       FCC0805       18     A     
 GEN                EQ     EIS.LN1                                                         GEN         4447     A     
 GEN                                                                                       GEN         4448     A     
 GEN      **        EIS.LN1 - START PROCESSING OF CURRENT SKELETON.                        GEN         4449     A     
 GEN      *                                                                                GEN         4450     A     
 GEN      *         ENTRY  (A4),(X4) = CURRENT SKELETON WORD.                              GEN         4451     A     
 GEN      *                (IJK) = -3.                                                     GEN         4452     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1517    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                                                                                       GEN         4453     A     
 GEN       EIS.COND BSS    0                                                               GEN         4454     A     
 GEN       EIS.BRN  BSS    0                                                               GEN         4455     A     
 GEN       EIS.SHF  BSS    0                                                               GEN         4456     A     
 GEN       EIS.NOOP BSS    0                                                               GEN         4457     A     
 GEN       EIS.LN1  MX0    L.IOPC                                                          GEN         4458     A     
 GEN                LX0    P.IOPC+L.IOPC                                                   GEN         4459     A     
 GEN                BX6    X0*X4       EXTRACT OP-CODE FIELD                               GEN         4460     A     
 GEN                LX4    -L.IQF                                                          GEN         4461     A     
 GEN                AX6    P.IOPC      TO LOW ORDER                                        GEN         4462     A     
 GEN                SA6    OPCODE      CURRENT OP-CODE                                     GEN         4463     A     
 GEN                                                                                       GEN         4464     A     
 GEN      **        RETURN HERE FOR NEXT PROCESSING OF NEXT PORTION OF INSTRUCTION         GEN         4465     A     
 GEN      *         CURRENTLY EXPANDING WITHIN SKELETON.                                   GEN         4466     A     
 GEN                                                                                       GEN         4467     A     
 GEN       EIS.NX   SA1    IJK                                                             GEN         4468     A     
 GEN                MX0    -L.IOAD                                                         GEN         4469     A     
 GEN                SB7    X1-3                                                            GEN         4470     A     
 GEN                GT     B7,B1,EIS.CMP     IF FINISHED.                                  GEN         4471     A     
 GEN       EIS.JP   SPACE  4,20                                                            GEN         4472     A     
 GEN      **        HERE IF NOT END OF CURRENT SKELETON.                                   GEN         4473     A     
 GEN      *         JUMP TO PROCESSOR FOR CURRENT PORTION OF INSTRUCTION.                  GEN         4474     A     
 GEN      *                                                                                GEN         4475     A     
 GEN      *         ENTRY  (X0) = MASK OF -L.IOAD                                          GEN         4476     A     
 GEN      *                (X4) = SKELETON SHIFTED BY N*L.IOAD                             GEN         4477     A     
 GEN      *                                                                                GEN         4478     A     
 GEN      *         EXIT   (X3) = (INUM) FIELD.                                            GEN         4479     A     
 GEN      *                (X6) = 0                                                        GEN         4480     A     
 GEN                                                                                       GEN         4481     A     
 GEN                =X6    1                                                               GEN         4482     A     
 GEN                BX1    -X0*X4                                                          GEN         4483     A     
 GEN                SA2    X1+AT.BASE                                                      GEN         4484     A     
 GEN                MX0    -L.INUM                                                         GEN         4485     A     
 GEN                LX4    -L.IOAD                                                         GEN         4486     A     
 GEN                SA6    UUC         SET UPDATE USE COUNT INCREMENT                      GEN         4487     A     
 GEN                SB2    X2          ADDRESS OF PROCESSOR.                               GEN         4488     A     
 GEN                =B7    0                                                               GEN         4489     A     
 GEN                BX3    -X0*X4      REGISTER/CONSTANT NUMBER.                           GEN         4490     A     
 GEN                SX6    0           CLEAR REGISTER ASSIGNMENT.                          GEN         4491     A     
 GEN                JP     B2                                                              GEN         4492     A     
 GEN       TYPES    EJECT  4,20                                                            GEN         4493     A     
 GEN      **        INDIVIDUAL PROCESSOR SECTION FOR SPECIFIED TYPE OF REQUEST             GEN         4494     A     
 GEN      *         NOTE   AT.I TABLE MAY NOT EXCEED 5 BITS IN LENGTH,                     GEN         4495     A     
 GEN      *                MAXIMUM LENGTH =37B...                                          GEN         4496     A     
 GEN                                                                                       GEN         4497     A     
 GEN                                                                                       GEN         4498     A     
 GEN       AT.BASE BSS    0           BASE ADDRESS.                                        GEN         4499     A     
 GEN       AT.CB    CON    EIS.CB      CLEARING OF *B*                                     GEN         4500     A     
 GEN       AT.CLU   CON    *+4S15      CLEAR UPPER PART OF LOAD REG. (NOT USED)            GEN         4501     A     
 GEN       AT.CLL   CON    *+4S15      CLEAR LOWER PART OF LOAD REG. (NOT USED)            GEN         4502     A     
 GEN       AT.CNL   CON    EIS.CNL     SET ITH PORTION = LOWER  PART OF FILE WORD          GEN         4503     A     
 GEN       AT.CNM   CON    EIS.CNM     SET ITH PORTION = MIDDLE PART                       GEN         4504     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1518    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       AT.CNU   CON    EIS.CNU     SET ITH PORTION = UPPER  PART OF FILE WORD          GEN         4505     A     
 GEN       AT.CT    CON    EIS.CT      CLEAR TEMPORARY                                     GEN         4506     A     
 GEN       AT.CX    CON    *+4S15      CLEAR *X* ASSIGNMENT (NOT USED)                     GEN         4507     A     
 GEN       AT.HR    CON    *+4S15      ASSIGN HARD REGISTER (NOT USED)                     GEN         4508     A     
 GEN       AT.K     CON    EIS.K       LOAD OF *K*                                         GEN         4509     A     
 GEN       AT.L     CON    EIS.L       LOAD OF SINGLE TAG                                  GEN         4510     A     
 GEN       AT.LB    CON    *+4S15      LOAD OF *B* REGISTER (NOT USED)                     GEN         4511     A     
 GEN       AT.LL    CON    EIS.LL      LOAD OF LOWER PART                                  GEN         4512     A     
 GEN       AT.LNL   CON    EIS.LNL                                                         GEN         4513     A     
 GEN       AT.LN    CON    EIS.LNU     LOAD TAG NOT RESETTING USE COUNT                    GEN         4514     A     
 GEN       AT.RR    CON    EIS.IR      PROCESS INTERMEDIATE                                GEN         4515     A     
 GEN       AT.RL    CON    EIS.IRL     PROCESS INTERMEDIATE LOWER                          GEN         4516     A     
 GEN       AT.SB    CON    EIS.SB      SET *B* REGISTER                                    GEN         4517     A     
 GEN       AT.ST    CON    EIS.ST      SET TEMPORARY REGISTER                              GEN         4518     A     
 GEN       AT.SX    CON    EIS.SX      SET *X* REGISTER                                    GEN         4519     A     
 GEN       AT.Q     CON    EIS.Q       PROCESS IF *Q* FIELD PRESENT                        GEN         4520     A     
 GEN                                                                                       GEN         4521     A     
 GEN       L.ATABLE EQU    *-AT.BASE   SEE NOTE ABOVE...                                   GEN         4522     A     
 GEN       SBASE    EQU    AT.BASE                                                         GEN         4523     A     
 GEN                NOREF  SBASE       *SBASE* USED ONLY IN MACRO DEFINITIONS              GEN         4524     A     
 GEN       EIS.CMP  EJECT  4,20                                                            GEN         4525     A     
 GEN      **        COMPILE - FLUSH INSTRUCTION TO LONG FILE.                              GEN         4526     A     
 GEN      *                                                                                GEN         4527     A     
 GEN      *             HERE WHEN  I,J,K AND Q PORTIONS OF SKELETON HAVE BEEN              GEN         4528     A     
 GEN      *             EVALUATED.                                                         GEN         4529     A     
 GEN      *                                                                                GEN         4530     A     
 GEN      *         ENTRY  INS.REG = REGISTERS - IJK                                       GEN         4531     A     
 GEN      *                (X1) = REGISTERS - I00                                          GEN         4532     A     
 GEN      *                (X6) = REGISTERS - 0I0                                          GEN         4533     A     
 GEN      *                (X4) = SKELETON WORD SHIFTED TO P.ITYPE FIELD.                  GEN         4534     A     
 GEN                                                                                       GEN         4535     A     
 GEN                                                                                       GEN         4536     A     
 GEN       EIS.CMP  SA2    OPTYP                                                           GEN         4537     A     
 GEN                MX0    -L.IOPC                                                         GEN         4538     A     
 GEN                LX1    X4          SAVE                                                GEN         4539     A     
 GEN                SB7    X2-M.LOAD                                                       GEN         4540     A     
 GEN                NZ     B7,EIS.CM1  IF NOT *LOAD* OP-CODE                               GEN         4541     A     
 GEN                                                                                       GEN         4542     A     
 GEN      **        TERMINATE INSTRUCTION *LOAD* OPERATOR                                  GEN         4543     A     
 GEN                                                                                       GEN         4544     A     
 GEN                BX3    X4                                                              GEN         4545     A     
 GEN                SA1    RREG                                                            GEN         4546     A     
 GEN                LX3    59-P.IEND+P.IOPC                                                GEN         4547     A     
 GEN                SB7    X1+XMIT                                                         GEN         4548     A     
 GEN                NZ     B7,NULLOP   IF LOAD SATISFIED                                   GEN         4549     A     
 GEN                BX2    -X1                                                             GEN         4550     A     
 GEN                MX7    -1                                                              GEN         4551     A     
 GEN                SA5    INS.REG                                                         GEN         4552     A     
 GEN                SA7    A1          INDICATE SATISFIED                                  GEN         4553     A     
 GEN                IX7    X2+X5                                                           GEN         4554     A     
 GEN                LX7    P.LI15                                                          GEN         4555     A     
 GEN                EQ     EIS.CM6                                                         GEN         4556     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1519    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                                                                                       GEN         4557     A     
 GEN       EIS.CM1  BX2    -X0*X4      OPCODE FIELD                                        GEN         4558     A     
 GEN                                                                                       GEN         4559     A     
 GEN      **         DUMP CURRENT INSTRUCTION.                                             GEN         4560     A     
 GEN                                                                                       GEN         4561     A     
 GEN                BX3    X2                                                              GEN         4562     A     
 GEN                AX3    3                                                               GEN         4563     A     
 GEN                LX4    -L.IOPC                                                         GEN         4564     A     
 GEN                SB2    X3                                                              GEN         4565     A     
 GEN                SA5    INS.REG                                                         GEN         4566     A     
 GEN                MX0    -L.ITYPE                                                        GEN         4567     A     
 GEN                BX0    -X0*X4      TYPE FIELD.                                         GEN         4568     A     
 GEN                                                                                       GEN         4569     A     
 GEN                LX5    60-L.IOPC-3-3                                                   GEN         4570     A     
 GEN                                                                                       GEN         4571     A     
 GEN      **        IF ONLY ONE LOAD INSTRUCTION COMPILED FOR THIS TURPLE CHECK            GEN         4572     A     
 GEN      *         FOR PRELOAD CANDIDATE.                                                 GEN         4573     A     
 GEN      *         (X2) = OP-CODE                                                         GEN         4574     A     
 GEN      *         (X5) = I,J,K PORTION OF INSTRUCTION                                    GEN         4575     A     
 GEN      *         (A5) _ INS.REG                                                         GEN         4576     A     
 GEN                                                                                       GEN         4577     A     
 GEN       EIS.CM5  SB3    X2          SAVE 9 BIT OPCODE FOR PRELOAD TEST                  GEN         4578     A     
 GEN                LX2    60-L.IOPC                                                       GEN         4579     A     
 GEN                BX3    X0                                                              GEN         4580     A     
 GEN                SA1    NOLDS                                                           GEN         4581     A     
 GEN                IX7    X2+X5       OPCODE + I,J,K PORTION.                             GEN         4582     A     
 GEN                SB7    X1-2                                                            GEN         4583     A     
 GEN                LX3    59-P.IEND+P.ITYPE                                               GEN         4584     A     
 GEN                PL     B7,CBREAK   IF PROCESSED MORE THAN ONE LOAD                     GEN         4585     A     
 GEN                                                                                       GEN         4586     A     
 GEN      **        CHECK CURRENT OP-CODE AND NEXT TO SEE IF PRELOAD CAN BE SET            GEN         4587     A     
 GEN      *         IN MOTION.                                                             GEN         4588     A     
 GEN      *                CURRENT OP-CODE CAN NOT BE ANY TYPE OF JUMP INSTRUCT            GEN         4589     A     
 GEN      *                                                                                GEN         4590     A     
 GEN      *                NEXT TURPLE MUST BE A STANDARD ARITHMETIC OPERATOR.             GEN         4591     A     
 GEN      *                                                                                GEN         4592     A     
 GEN      *         CALLS  CPL                                                             GEN         4593     A     
 GEN                                                                                       GEN         4594     A     
 GEN                                                                                       GEN         4595     A     
 GEN                SA2    B4+L.TURP                                                       GEN         4596     A     
 GEN                =B7    0           INDICATE CLEARING OF REGISTERS REQUIRED             GEN         4597     A     
 GEN                ZR     B3,CBREAK5  IF UNCONDITIONAL BREAK                              GEN         4598     A     
 GEN                SB2    X2-O.EOS                                                        GEN         4599     A     
 GEN                SB7    B3-XMIT/1S6                                                     GEN         4600     A     
 GEN                =A1    A2+OR.1OP                                                       GEN         4601     A     
 GEN                MI     B7,CBREAK5  IF CONDITIONAL JUMP                                 GEN         4602     A     
 GEN                SB7    X2-O.=                                                          GEN         4603     A     
 GEN                ZR     B2,CBREAK   IF NEXT OPERATOR IS *EOS*                           GEN         4604     A     
 GEN                PL     B7,CBREAK   IF NOT AN ARITHMETIC OPERATOR                       GEN         4605     A     
 GEN      *         RJ     CPL         CHECK FOR PRELOAD OF OPERAND                        GEN         4606     A     
 GEN       CREAK    EJECT  4,8                                                             GEN         4607     A     
 GEN      **        CBREAK - CHECK IF CURRENT OPCODE BEING COMPILED                        GEN         4608     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1520    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *         BREAKS THE CURRENT REGISTER ALLOCATION SEQUENCE.                       GEN         4609     A     
 GEN      *                                                                                GEN         4610     A     
 GEN      *         NOTE - GENERAL RETURN ADDRESS FOR EXTERNAL PROCESSORS.                 GEN         4611     A     
 GEN      *         ENTRY  (X3) = SKELETON SHIFTED BY P.IEND                               GEN         4612     A     
 GEN      *                (X7) = INSTRUCTION ABOUT TO BE ADDED TO TT.LF                   GEN         4613     A     
 GEN                                                                                       GEN         4614     A     
 GEN       CBREAK   SA2    DRITE                                                           GEN         4615     A     
 GEN                MX0    12                                                              GEN         4616     A     
 GEN                BX5    X0*X7                                                           GEN         4617     A     
 GEN                =B7    0           INDICATE CLEARING OF REGISTERS REQUIRED             GEN         4618     A     
 GEN                ZR     X5,CBREAK5  IF UNCONDITIONAL BREAK IN REGISTERS                 GEN         4619     A     
 GEN                LX5    L.IOPC-3                                                        GEN         4620     A     
 GEN                ZR     X2,COMPILE  IF NO DELAYED STORE                                 GEN         4621     A     
 GEN                SB7    X5-XMIT/1S9 (XMIT = CONDITIONALS +1)                            GEN         4622     A     
 GEN                PL     B7,COMPILE  IF NOT A *JUMP* INSTRUCTION                         GEN         4623     A     
 GEN       CBREAK5  BX6    X3                                                              GEN         4624     A     
 GEN                SA7    ESTACK      SAVE INSTRUCTION                                    GEN         4625     A     
 GEN                =A6    A7+1        SAVE END FLAG                                       GEN         4626     A     
 GEN                SX7    B7                                                              GEN         4627     A     
 GEN                =A7    A6+1        SAVE CLEAR REGISTER FLAG                            GEN         4628     A     
 GEN                DRITE  DEACTIVATE                                                      GEN         4629     A     
 GEN                SA2    ESTACK+2                                                        GEN         4630     A     
 GEN                MI     X2,CBREAK10 IF NO REGISTER CLEARING REQUIRED                    GEN         4631     A     
 GEN                RJ     CIA         CLEAR REGISTER FILE                                 GEN         4632     A     
 GEN       CBREAK10 SA2    ESTACK                                                          GEN         4633     A     
 GEN                =A3    A2+1                                                            GEN         4634     A     
 GEN                BX7    X2                                                              GEN         4635     A     
 GEN                                                                                       GEN         4636     A     
 GEN      **        COMPILE - OUTPUT INSTRUCTION TO LONG FILE.                             GEN         4637     A     
 GEN      *                                                                                GEN         4638     A     
 GEN      *         ENTRY  SAME AS *CBREAK*                                                GEN         4639     A     
 GEN                                                                                       GEN         4640     A     
 GEN       EIS.CM6  BSS    0                                                               GEN         4641     A     
 GEN       COMPILE  WCODE  X7           INSTRUCTION TO LONG FILE                           GEN         4642     A     
 GEN                                                                                       GEN         4643     A     
 GEN      **        NULLOP - NULL PROCESSING                                               GEN         4644     A     
 GEN      *                                                                                GEN         4645     A     
 GEN      *         ENTRY  SAME AS *CBREAK* (X7) IGNORED.                                  GEN         4646     A     
 GEN                                                                                       GEN         4647     A     
 GEN       NULLOP   BSS    0                                                               GEN         4648     A     
 GEN                =X6    0                                                               GEN         4649     A     
 GEN                =X7                                                                    GEN         4650     A     
 GEN                SA6    INS.REG     CLEAR REGISTER ASSEMBLY CELL                        GEN         4651     A     
 GEN                =A7    A6+1        CLEAR OPCODE CELL                                   GEN         4652     A     
 GEN                SA1    REGLK                                                           GEN         4653     A     
 GEN                =A7    A1+1        *I* PORTION                                         GEN         4654     A     
 GEN                =A6    A7+1        *J* PORTION                                         GEN         4655     A     
 GEN                SB7    X1                                                              GEN         4656     A     
 GEN                RJ     RUL         UNLOCK REGISTER                                     GEN         4657     A     
 GEN                MX6    -1                                                              GEN         4658     A     
 GEN                SA6    REGLK                                                           GEN         4659     A     
 GEN       EIS.CM7  PL     X3,EIS.LNX  IF NOT LAST INSTRUCTION IN SEQUENCE.                GEN         4660     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1521    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       O=NOOP   BSS    0           IF NULL PROCESSING FOR *TURPLE*                     GEN         4661     A     
 GEN                =B4    B4+L.TURP                                                       GEN         4662     A     
 GEN                SA1    RESFLG                                                          GEN         4663     A     
 GEN                BX3    X1                                                              GEN         4664     A     
 GEN                ZR     X3,EIS.PNX  IF NO RESET OF SKELETON                             GEN         4665     A     
 GEN                                                                                       GEN         4666     A     
 GEN      **        RESET SKELETON TO ORGINAL SKELETON WHICH CAUSED RESET FLAG TO          GEN         4667     A     
 GEN      *         BE TURNED ON.                                                          GEN         4668     A     
 GEN      *         (X1) = RESFLG                                                          GEN         4669     A     
 GEN                                                                                       GEN         4670     A     
 GEN                =B4    B4-L.TURP                                                       GEN         4671     A     
 GEN                BX6    0                                                               GEN         4672     A     
 GEN                PL     X3,RESET5   IF NOT *USKEL*                                      GEN         4673     A     
 GEN                BX2    -X1                                                             GEN         4674     A     
 GEN                SA6    A1          CLEAR *RESFLG*                                      GEN         4675     A     
 GEN                SA4    X2                                                              GEN         4676     A     
 GEN                EQ     EIS.LN1     CONTINUE WHERE I LEFT OFF                           GEN         4677     A     
 GEN                                                                                       GEN         4678     A     
 GEN       RESET5   SA4    X3-1                                                            GEN         4679     A     
 GEN                SA6    A1          CLEAR RESET FLAG.                                   GEN         4680     A     
 GEN                SA6    A2          RESET MODE CONVERSION FLAG                          GEN         4681     A     
 GEN                EQ     EIS.LNX     CONTINUE FROM WHERE WE LEFT OFF.                    GEN         4682     A     
 GEN       HARDRG   EJECT  4,8                                                             GEN         4683     A     
 GEN      **        2.  ASSIGN TEMPORARY REGISTER.                                         GEN         4684     A     
 GEN      **            A.  ASSIGN TEMPORARY *B* REGISTER.                                 GEN         4685     A     
 GEN                                                                                       GEN         4686     A     
 GEN                                                                                       GEN         4687     A     
 GEN       EIS.SB   SB6    X3          SAVE ORDINAL                                        GEN         4688     A     
 GEN                =X1    -1                                                              GEN         4689     A     
 GEN                RJ     ABR         ASSIGN *B* REGISTER                                 GEN         4690     A     
 GEN                SX7    B2                                                              GEN         4691     A     
 GEN                SA7    B6+REG=B    SET *B* REGISTER ASSIGNED CELL                      GEN         4692     A     
 GEN                EQ     EIS.LRF                                                         GEN         4693     A     
 GEN       EIS.SX   EJECT  4,8                                                             GEN         4694     A     
 GEN      **        ASSIGN *X* REGISTER                                                    GEN         4695     A     
 GEN      *                                                                                GEN         4696     A     
 GEN      *         ENTRY  (X3) = REGISTER REQUESTED TO ASSIGN                             GEN         4697     A     
 GEN      *                                                                                GEN         4698     A     
 GEN      *         IF REGISTER REQUESTING IS NOT A STORE REGISTER, REGISTER IS            GEN         4699     A     
 GEN      *         SET WITH NO CHECKING OF USEFILE.                                       GEN         4700     A     
 GEN      *         IF A STORE REGISTER IS REQUESTED, A CHECK IS MADE OF THE               GEN         4701     A     
 GEN      *         USEFILE TO MAKE SURE WE ARE NOT ABOUT TO CLOBBER A DEFINED             GEN         4702     A     
 GEN      *         RESULT.                                                                GEN         4703     A     
 GEN                                                                                       GEN         4704     A     
 GEN                                                                                       GEN         4705     A     
 GEN       EIS.SX   SX6    X3                                                              GEN         4706     A     
 GEN                SB7    X3-R.X6+REG.X                                                   GEN         4707     A     
 GEN                LX6    3           =0R0                                                GEN         4708     A     
 GEN                SB6    X3          =00R                                                GEN         4709     A     
 GEN                MI     B7,EIS.SX5  IF NOT REQUESTING *STORE* REGISTER                  GEN         4710     A     
 GEN                MX0    -L.RUSE                                                         GEN         4711     A     
 GEN                SA1    X3+REGX                                                         GEN         4712     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1522    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                BX2    -X0*X1                                                          GEN         4713     A     
 GEN                ZR     X2,EIS.SX5  IF USE COUNT *0*                                    GEN         4714     A     
 GEN                DRITE  DEACTIVATE                                                      GEN         4715     A     
 GEN                SX6    B6                                                              GEN         4716     A     
 GEN                LX6    3           =0R0                                                GEN         4717     A     
 GEN                                                                                       GEN         4718     A     
 GEN      **        CHECK FOR USELESS *XMIT* INSTRUCTION ON SOFT TRANSFER OP-CODE          GEN         4719     A     
 GEN      *                                                                                GEN         4720     A     
 GEN      *         (X6) = 0R0, REQUESTED REGISTER.                                        GEN         4721     A     
 GEN      *         (INS.REG) = REGISTERS ASSIGNED SO FAR.                                 GEN         4722     A     
 GEN                                                                                       GEN         4723     A     
 GEN       EIS.SX5  SA1    B6+REGX                                                         GEN         4724     A     
 GEN                MX0    -L.RUSE                                                         GEN         4725     A     
 GEN                BX1    -X0*X1                                                          GEN         4726     A     
 GEN                ZR     X1,EIS.SX10 IF REGISTER FREE                                    GEN         4727     A     
 GEN                SB2    B6+REG.X-RGFILE                                                 GEN         4728     A     
 GEN                RJ     RUT                                                             GEN         4729     A     
 GEN       EIS.SX10 SA2    OPCODE                                                          GEN         4730     A     
 GEN                SB7    X2-XMIT/1S6                                                     GEN         4731     A     
 GEN                NZ     B7,EIS.REG  IF NOT *XMIT*                                       GEN         4732     A     
 GEN                SA2    INS.REG                                                         GEN         4733     A     
 GEN                                                                                       GEN         4734     A     
 GEN      **        CHECK IF *XMIT* INTO SAME REGISTER                                     GEN         4735     A     
 GEN                                                                                       GEN         4736     A     
 GEN                MX1    -3                                                              GEN         4737     A     
 GEN                BX0    X6-X2                                                           GEN         4738     A     
 GEN                AX0    3                                                               GEN         4739     A     
 GEN                BX0    -X1*X0                                                          GEN         4740     A     
 GEN                NZ     X0,EIS.REG  IF NOT *XMIT* INTO SAME REGISTER                    GEN         4741     A     
 GEN                SA4    A4          RELOAD SKELETON WORD                                GEN         4742     A     
 GEN                SBIT   X4,IEND                                                         GEN         4743     A     
 GEN                BX3    X4                                                              GEN         4744     A     
 GEN                EQ     NULLOP      NULLIFY OP-CODE                                     GEN         4745     A     
 GEN       EIS.ST   EJECT  4,8                                                             GEN         4746     A     
 GEN      **            C.  ASSIGN TEMPORARY *X* REGISTER.                                 GEN         4747     A     
 GEN      *                 ASSIGN X0, X7, X6 IN THAT ORDER, IF ALL ARE IN USE             GEN         4748     A     
 GEN      *                 KILLS ANY DELAYED STORES.  IF ONE FREED USES REGISTER          GEN         4749     A     
 GEN      *                 FROM DELAYED STORE, IF NOT USES ONE OF LOAD REGISTERS          GEN         4750     A     
 GEN      *                 DEPENDING ON HOW MANY LOAD REGISTERS ARE LOCKED.               GEN         4751     A     
 GEN                                                                                       GEN         4752     A     
 GEN                                                                                       GEN         4753     A     
 GEN       EIS.ST   SA1    X3+REG=T                                                        GEN         4754     A     
 GEN                SB6    X3          ORDINAL OF TEMPORARY                                GEN         4755     A     
 GEN                SB2    X1          REGISTER - 0TR                                      GEN         4756     A     
 GEN                NZ     X1,EIS.ST30 IF ALREADY LOADED - USE IT                          GEN         4757     A     
 GEN                                                                                       GEN         4758     A     
 GEN      **        CHECK FOR UNNECESSARY TRANSMIT INSTRUCTION.  IF FOUND,                 GEN         4759     A     
 GEN      *         MAKE *I* REGISTER SAME AS *J* REGISTER SO THAT *PIG* WILL              GEN         4760     A     
 GEN      *         ELIMINATE INSTRUCTION.                                                 GEN         4761     A     
 GEN                                                                                       GEN         4762     A     
 GEN                SA2    OPCODE                                                          GEN         4763     A     
 GEN                SB7    X2-XMIT/1S6                                                     GEN         4764     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1523    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                NZ     B7,EIS.ST10 IF NOT *XMIT*                                       GEN         4765     A     
 GEN                SA2    INS.REG                                                         GEN         4766     A     
 GEN                MX0    -3                                                              GEN         4767     A     
 GEN                AX2    3                                                               GEN         4768     A     
 GEN                BX0    -X0*X2      *J* REGISTER                                        GEN         4769     A     
 GEN                SA2    X0+REGX     REGFILE ENTRY FOR *J* REGISTER                      GEN         4770     A     
 GEN                MX1    -L.RUSE                                                         GEN         4771     A     
 GEN                BX1    -X1*X2      USE COUNT                                           GEN         4772     A     
 GEN                NZ     X1,EIS.ST10 IF USE COUNT NOT ZERO                               GEN         4773     A     
 GEN                                                                                       GEN         4774     A     
 GEN      *         TRANSMIT INSTRUCTION IS UNNECESSARY                                    GEN         4775     A     
 GEN                                                                                       GEN         4776     A     
 GEN                SB2    X0+REG.X-RGFILE   *I* REGISTER - 0TR                            GEN         4777     A     
 GEN                EQ     EIS.ST30                                                        GEN         4778     A     
 GEN                                                                                       GEN         4779     A     
 GEN       EIS.ST10 SB3    RG=TEMP                                                         GEN         4780     A     
 GEN                RJ     SFR                                                             GEN         4781     A     
 GEN                ZR     X7,EIS.ST30 IF TEMP REGISTER AVAILABLE                          GEN         4782     A     
 GEN                SA1    RGX                                                             GEN         4783     A     
 GEN                ZR     X1,EIS.ST20 IF NON-INTERMEDIATE NOT AVAILABLE                   GEN         4784     A     
 GEN                SB2    X1                                                              GEN         4785     A     
 GEN                RJ     RUT                                                             GEN         4786     A     
 GEN                EQ     EIS.ST30                                                        GEN         4787     A     
 GEN                                                                                       GEN         4788     A     
 GEN                                                                                       GEN         4789     A     
 GEN      **        TAKE CARE TO AVOID DEADLOCK THAT WILL OCCUR IF BOTH STORE              GEN         4790     A     
 GEN      *         REGISTERS ARE ASSIGNED AS TEMPORARY *X* REGISTERS.                     GEN         4791     A     
 GEN                                                                                       GEN         4792     A     
 GEN       EIS.ST20 SA1    REGFILE+R.X6                                                    GEN         4793     A     
 GEN                SA2    REGFILE+R.X7                                                    GEN         4794     A     
 GEN                =X3    MAX.USEC                                                        GEN         4795     A     
 GEN                MX0    -L.RUSE                                                         GEN         4796     A     
 GEN                BX1    -X0*X1      USE COUNT ON *X6*                                   GEN         4797     A     
 GEN                BX1    X3-X1                                                           GEN         4798     A     
 GEN                ZR     X1,EIS.ST25 IF *X6* IS TEMPORARY                                GEN         4799     A     
 GEN                BX2    -X0*X2      USE COUNT ON *X7*                                   GEN         4800     A     
 GEN                BX1    X3-X2                                                           GEN         4801     A     
 GEN                ZR     X1,EIS.ST25 IF *X7* IS TEMPORARY                                GEN         4802     A     
 GEN                                                                                       GEN         4803     A     
 GEN      *         NEITHER *X6* NOR *X7* IS TEMPORARY.                                    GEN         4804     A     
 GEN                                                                                       GEN         4805     A     
 GEN                RJ     ASR         ASSIGN STORE REGISTER                               GEN         4806     A     
 GEN                EQ     EIS.ST30                                                        GEN         4807     A     
 GEN                                                                                       GEN         4808     A     
 GEN      *         USE TEMP REGISTER OF LOWEST USE COUNT.                                 GEN         4809     A     
 GEN                                                                                       GEN         4810     A     
 GEN       EIS.ST25 RJ     RUT                                                             GEN         4811     A     
 GEN                                                                                       GEN         4812     A     
 GEN      **        FOUND REGISTER FREE FOR TEMPORARY ASSIGNMENT.                          GEN         4813     A     
 GEN      *         (B2) = 0TR.                                                            GEN         4814     A     
 GEN      *         (B6) = ORDINAL OF TEMPORARY.                                           GEN         4815     A     
 GEN                                                                                       GEN         4816     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1524    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       EIS.ST30 SX3    B6                                                              GEN         4817     A     
 GEN                SX7    B2                                                              GEN         4818     A     
 GEN                LX3    P.TAG                                                           GEN         4819     A     
 GEN                =X2    MAX.USEC                                                        GEN         4820     A     
 GEN                MX0    -3                                                              GEN         4821     A     
 GEN                BX6    X2+X3       DUMMY TAG FOR RGFILE                                GEN         4822     A     
 GEN                SA7    B6+REG=T    SET *REG=T* FILE                                    GEN         4823     A     
 GEN                SA6    B2+REGFILE                                                      GEN         4824     A     
 GEN                BX6    -X0*X7                                                          GEN         4825     A     
 GEN                LX6    3                                                               GEN         4826     A     
 GEN                EQ     EIS.LRF                                                         GEN         4827     A     
 GEN       CLTEMP   EJECT  4,20                                                            GEN         4828     A     
 GEN      **        CLEAR REGISTER ASSIGNMENT FOR CURRENT SKELETON.                        GEN         4829     A     
 GEN      *             A.  PROCESS TEMPORARY - WITH CLEARING OF T-REGISTER.               GEN         4830     A     
 GEN                                                                                       GEN         4831     A     
 GEN       EIS.CT   SA2    X3+REG=T    LOAD TEMPORARY REGISTER CELL                        GEN         4832     A     
 GEN                =X7    0                                                               GEN         4833     A     
 GEN                MX1    -3                                                              GEN         4834     A     
 GEN                SA7    A2          CLEAR TEMPORARY REGISTER CELL                       GEN         4835     A     
 GEN                                                                                       GEN         4836     A     
 GEN      **        CLEAR *USEFILE* USAGE COUNT ON REGISTER POINTED TO BY *0TR*            GEN         4837     A     
 GEN      *         IN *X2*.                                                               GEN         4838     A     
 GEN      *         (X1) = REGISTER MASK.                                                  GEN         4839     A     
 GEN      *         (X2) = 0TR FOR REGISTER TO BE CLEARED.                                 GEN         4840     A     
 GEN                                                                                       GEN         4841     A     
 GEN       EIS.CT5  BX6    -X1*X2      REGISTER ONLY = 00R                                 GEN         4842     A     
 GEN                SB2    X2                                                              GEN         4843     A     
 GEN                BX7    0                                                               GEN         4844     A     
 GEN                LX6    3           =0R0                                                GEN         4845     A     
 GEN                SA7    X2+REGFILE                                                      GEN         4846     A     
 GEN                EQ     EIS.LRF                                                         GEN         4847     A     
 GEN                                                                                       GEN         4848     A     
 GEN       EIS.CB   EJECT  4,8                                                             GEN         4849     A     
 GEN      *             B. CLEAR *B* REGISTER                                              GEN         4850     A     
 GEN       EIS.CB   SA2    X3+REG=B                                                        GEN         4851     A     
 GEN                =X7    0                                                               GEN         4852     A     
 GEN                SA7    A2          CLEAR *B* REGISTER LOCAL CEL                        GEN         4853     A     
 GEN                EQ     EIS.CT5     CONTINUE                                            GEN         4854     A     
 GEN       EIS.CX   SPACE  4,8                                                             GEN         4855     A     
 GEN      **            D. PROCESS LOAD OF LOWER PART OF DOUBLE TYPE VARIABLE.             GEN         4856     A     
 GEN      *                 ENTRY - (X3) = RELATIVE ORDINAL OF TAG TO BE LOADED.           GEN         4857     A     
 GEN      *                         (B7) = REGISTER NUMBER. IF 0 - ANY REGISTER.           GEN         4858     A     
 GEN                                                                                       GEN         4859     A     
 GEN       EIS.LNL  =X6    0                                                               GEN         4860     A     
 GEN                SA6    UUC                                                             GEN         4861     A     
 GEN                                                                                       GEN         4862     A     
 GEN       EIS.LL   SA5    X3+B4       TAG TO BE LOADED                                    GEN         4863     A     
 GEN                =X6    1           INDICATE LOWER HALF                                 GEN         4864     A     
 GEN                EQ     EIS.L2                                                          GEN         4865     A     
 GEN       EIS.L    EJECT  4,8                                                             GEN         4866     A     
 GEN      **           C. PROCESS LOAD INTO *A*,*X* REGISTER.                              GEN         4867     A     
 GEN      *                ENTRY - (X3) = RELATIVE ORDINAL OF TAG TO BE LOADED.            GEN         4868     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1525    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *                        (B7) = REGISTER NUMBER. IF 0 - ANY REGISTER.            GEN         4869     A     
 GEN                                                                                       GEN         4870     A     
 GEN       EIS.LNU  SPACE  4,8                                                             GEN         4871     A     
 GEN      **        EIS.LNU - SAME AS EIS.L BUT DOES NOT RESET USE COUNT OF                GEN         4872     A     
 GEN      *         TAG BEING LOADED.                                                      GEN         4873     A     
 GEN                                                                                       GEN         4874     A     
 GEN                                                                                       GEN         4875     A     
 GEN       EIS.LNU  =X6    0                                                               GEN         4876     A     
 GEN                SA6    UUC                                                             GEN         4877     A     
 GEN       EIS.L    SA5    X3+B4       TAG TO BE LOADED                                    GEN         4878     A     
 GEN                =X6    0           UPPER HALF                                          GEN         4879     A     
 GEN                                                                                       GEN         4880     A     
 GEN       EIS.L2   SA6    TYPLOD                                                          GEN         4881     A     
 GEN                SX0    RLOCK                                                           GEN         4882     A     
 GEN                SB6    X6                                                              GEN         4883     A     
 GEN                BX5    -X0*X5                                                          GEN         4884     A     
 GEN                LX6    P.TYPE                                                          GEN         4885     A     
 GEN                BX5    X5+X6                                                           GEN         4886     A     
 GEN                DRITE  DEACTIVATE                                                      GEN         4887     A     
 GEN                BX1    X5                                                              GEN         4888     A     
 GEN                SB2    B6                                                              GEN         4889     A     
 GEN                =B7    1           FULL STATUS                                         GEN         4890     A     
 GEN                BX0    X5                                                              GEN         4891     A     
 GEN                IFBIT  X1,-INTR,EIS.L5  IF NOT INTERMEDIATE                            GEN         4892     A     
 GEN                IFBIT  X0,-2ARY,EIS.L5 IF NOT ARY-LOD                                  GEN         4893     A     
 GEN                DRITE  DEACTIVATE                                                      GEN         4894     A     
 GEN                SB2    B6                                                              GEN         4895     A     
 GEN                RJ     SLD         PROCESS SUBSCRIPT LOAD                              GEN         4896     A     
 GEN                EQ     EIS.LRF                                                         GEN         4897          I
          -FCC0805
 GEN                EQ     EIS.L16                                                         FCC0805       19          I
          -FCC1960
 GEN                EQ     EIS.L22                                                         FCC1960       12     A     
 GEN                                                                                       GEN         4898     A     
 GEN       EIS.L5   SB3    RG=LOAD                                                         GEN         4899     A     
 GEN                RJ     GST         GET STATUS OF TAG                                   GEN         4900     A     
 GEN                SB6    A1          POINTER TO STATUS WORD                              GEN         4901          I
          -FCC1208
 GEN                SA2    =XGSTC                                                          FCC1208       63     A     
 GEN                LX3    X7                                                              FCC1208       64     A     
 GEN                BX7    X2          SAVE LOCATION OF TAG STATUS WORD                    FCC1208       65     A     
 GEN                SA7    EISLA                                                           FCC1208       66     A     
 GEN                SB6    "BLOWUP"    **** DEBUG ****                                     FCC1208       67     A     
 GEN                BX7    X3                                                              FCC1208       68     A     
 GEN                MX0    L.2TAG+L.2BIAS+L.2FPNO                                          GEN         4902     A     
 GEN                SA3    TYPLOD                                                          GEN         4903     A     
 GEN                BX2    X5                                                              GEN         4904     A     
 GEN                BX1    X0*X1                                                           GEN         4905     A     
 GEN                LX3    P.2BIAS                                                         GEN         4906     A     
 GEN                IFBIT  X2,SHORT,EIS.L10 IF SHORT CONSTANT                              GEN         4907     A     
 GEN                IX1    X1+X3                                                           GEN         4908     A     
 GEN                IFBIT  X2,2EQUIV/SHORT,EIS.L7                                          GEN         4909     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1526    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                NZ     B2,EIS.L12   IF TAG IN REGISTER                                 GEN         4910     A     
 GEN       EIS.L7   RJ     LTG         LOAD TAG                                            GEN         4911     A     
 GEN                EQ     EIS.L15                                                         GEN         4912     A     
 GEN                                                                                       GEN         4913     A     
 GEN       EIS.L10  SB3    RG=LODX                                                         GEN         4914     A     
 GEN                NZ     B2,EIS.L12  IF TAG IN REGISTER                                  GEN         4915     A     
 GEN                RJ     LSC         LOAD SHORT CONSTANT                                 GEN         4916     A     
 GEN                EQ     EIS.L15                                                         GEN         4917     A     
 GEN                                                                                       GEN         4918     A     
 GEN       EIS.L12  ZR     B7,EIS.L15  IF TAG IN CORRECT REGISTER                          GEN         4919     A     
 GEN                SA7    EIS.INST    SAVE INSTRUNCION                                    GEN         4920     A     
 GEN                AX6    3                                                               GEN         4921     A     
 GEN                =A6    A7+EIS.JREG-EIS.INST  SAVE *J* REGISTER                         GEN         4922     A     
 GEN                RJ     GNR         GET REGISTER                                        GEN         4923     A     
 GEN                SA2    EIS.JREG                                                        GEN         4924     A     
 GEN                BX3    X6                                                              GEN         4925     A     
 GEN                =A1    A2-EIS.JREG+EIS.INST                                            GEN         4926     A     
 GEN                IX0    X6+X2       =0IJ                                                GEN         4927     A     
 GEN                SB5    B2                                                              GEN         4928     A     
 GEN                IX7    X1+X0       OP-CODE + IJ                                        GEN         4929     A     
 GEN                LX7    P.LI15+3                                                        GEN         4930     A     
 GEN                WCODE  X7                                                              GEN         4931     A     
 GEN                SA1    =XSTRGLK                                                        GEN         4932     A     
 GEN                MI     X1,EIS.L13  IF NO ASSIGNMENT TO CLEAR                           GEN         4933     A     
 GEN                SA1    X1+REGFILE                                                      GEN         4934     A     
 GEN                SX0    RLOCK                                                           GEN         4935     A     
 GEN                BX6    -X0*X1      UNLOCK STORE REGISTER                               GEN         4936     A     
 GEN                SA6    A1                                                              GEN         4937     A     
 GEN       EIS.L13  BX6    X3                                                              GEN         4938     A     
 GEN                SB2    B5                                                              GEN         4939     A     
 GEN                                                                                       GEN         4940     A     
 GEN      *         INDICATE TAG IN REGISTER IN REGISTER.                                  GEN         4941     A     
 GEN      *         UPDATE USE COUNT ON TAG AND PUT IN RGFILE.                             GEN         4942     A     
 GEN      *         (B2) = REGISTER (0TR)                                                  GEN         4943     A     
 GEN      *         (B6) = TAG STATUS WORD.                                                GEN         4944          I
          -FCC1208
 GEN      *         (X5) = TAG (FROM PARSED FILE)                                          GEN         4945     A     
 GEN      *         (X6) = REGISTER (0R0)                                                  GEN         4946     A     
 GEN      *                (EISLA) = LOCATION OF TAG STATUS WORD                           FCC1208       69     A     
 GEN                                                                                       FCC1208       70     A     
 GEN       EIS.L15  SA3    TYPLOD                                                          GEN         4947          I
          -FCC1960
 GEN       EIS.L15  SA3    UUC                                                             FCC1960       13     A     
 GEN                SX7    B0                                                              FCC1960       14     A     
 GEN                BX6    X3                                                              FCC1960       15     A     
 GEN                SA7    A3          SET USE COUNT TO ZERO                               FCC1960       16     A     
 GEN                SA6    EIS.LUC     SAVE USE COUNT                                      FCC1960       17     A     
 GEN                SA3    TYPLOD                                                          FCC1960       18     A     
 GEN                SA1    B6                                                              GEN         4948          I
          -FCC1208
 GEN                SA1    EISLA                                                           FCC1208       71     A     
 GEN                SB7    X1          ORDINAL IN TABLE OF STATUS WORD                     FCC1208       72     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1527    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                AX1    18                                                              FCC1208       73     A     
 GEN                SA2    X1          FETCH ORIGIN OF TABLE                               FCC1208       74     A     
 GEN                SA1    X2+B7                                                           FCC1208       75     A     
 GEN                SB3    X3                                                              GEN         4949     A     
 GEN                RJ     SST         SET STATUS OF TAG                                   GEN         4950     A     
 GEN                                                                                       FCC0805       20          I
          -FCC1960
 GEN       EIS.L16  SA1    HREG                                                            FCC0805       21          I
          -FCC1960
 GEN                SX7    B2                                                              FCC1960       19     A     
 GEN                SA7    EIS.LJ      SAVE OTR OF REG TAG IS IN                           FCC1960       20     A     
 GEN                =X3    MAX.USEC                                                        FCC1960       21     A     
 GEN                MX0    -L.RUSE                                                         FCC1960       22     A     
 GEN                SX1    -B2                                                             FCC1960       23     A     
 GEN                SB7    X1+R.X6                                                         FCC1960       24     A     
 GEN                LT     B0,B7,EIS.L21 IF NOT STORE REGISTER                             FCC1960       25     A     
 GEN                SA2    B7+REGFILE+R.X7 LOAD OTHER STORE REG.                           FCC1960       26     A     
 GEN                BX1    -X0*X2      USE COUNT ON STORE REG.                             FCC1960       27     A     
 GEN                BX2    X3-X1                                                           FCC1960       28     A     
 GEN                NZ     X2,EIS.L21  IF STORE REG NOT TEMPORARY                          FCC1960       29     A     
 GEN                SB3    RG=TEMP                                                         FCC1960       30     A     
 GEN                RJ     SFR                                                             FCC1960       31     A     
 GEN                SX6    B2         OTR ASSIGNED BY SFR                                  FCCA444        5     A     
 GEN                SA6    EIS.LX                                                          FCCA444        6     A     
 GEN                NZ     X7,EIS.L19  IF TEMPORARY REG NOT AVAILABLE                      FCC1960       32     A     
 GEN                SA1    IJK                                                             FCC1960       33     A     
 GEN                SA2    EIS.LJ     REG HOLDING OPD                                      FCCA444        7     A     
 GEN                SB2    X2                                                              FCCA444        8     A     
 GEN                ZR     X1,EIS.L21  IF PROCESSING J PART                                FCC1960       34     A     
 GEN                EQ     EIS.L20     XMIT                                                FCC1960       35     A     
 GEN                                                                                       FCC1960       36     A     
 GEN       EIS.L19  SB3    RG=LODX                                                         FCC1960       37     A     
 GEN                RJ     GNR                                                             FCC1960       38     A     
 GEN                SX7    B2                                                              FCC1960       39     A     
 GEN                SA7    EIS.LX      SAVE REG ASSIGNED                                   FCC1960       40     A     
 GEN                SA3    TYPLOD      STATUS - 0=UPPER,1=LOWER                            FCC1960       41     A     
 GEN                SB2    X3                                                              FCC1960       42     A     
 GEN                SB3    RG=STOR                                                         FCC1960       43     A     
 GEN                SB7    B0          STATUS OF TAG ONLY                                  FCC1960       44     A     
 GEN                RJ     GST                                                             FCC1960       45     A     
 GEN                SA2    =XGSTC                                                          FCC1960       46     A     
 GEN                BX6    X2                                                              FCC1960       47     A     
 GEN                SA6    EISLA       SAVE LOCATION OF STATUS                             FCC1960       48     A     
 GEN                NZ     B2,EIS.L20  IF TAG IN REG - XMIT                                FCC1960       49     A     
 GEN                SA2    EISLA       LOCATION OF TAG STATUS WORD ADDRESS                 FCC1960       50     A     
 GEN                SB7    X2          ORDINAL IN TABLE OF STATUS WORD                     FCC1960       51     A     
 GEN                AX2    18                                                              FCC1960       52     A     
 GEN                SA2    X2          FETCH TABLE ORIGIN                                  FCC1960       53     A     
 GEN                SA1    X2+B7                                                           FCC1960       54     A     
 GEN                MX0    L.2TAG+L.2BIAS+L.2FPNO                                          FCC1960       55     A     
 GEN                SA3    TYPLOD      STATUS - 0=UPPER , 1=LOWER                          FCC1960       56     A     
 GEN                BX1    X0*X1                                                           FCC1960       57     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1528    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                LX3    P.2BIAS                                                         FCC1960       58     A     
 GEN                IX1    X1+X3       ADD BIAS                                            FCC1960       59     A     
 GEN                SA3    EIS.LX                                                          FCC1960       60     A     
 GEN                SB2    X3          ASSIGNED REG                                        FCC1960       61     A     
 GEN                MX0    -3                                                              FCC1960       62     A     
 GEN                BX6    -X0*X3                                                          FCC1960       63     A     
 GEN                LX6    3           ORO                                                 FCC1960       64     A     
 GEN                RJ     =XCLI                                                           FCC1960       65     A     
 GEN                EQ     EIS.L21                                                         FCC1960       66     A     
 GEN                                                                                       FCC1960       67     A     
 GEN       EIS.L20  SX2    B2                                                              FCC1960       68          I
          -FCCA444
 GEN       EIS.L20  SA2    EIS.LX      OTR OF REG TO TRANSMIT TO                           FCCA444        9     A     
 GEN                SB2    X2                                                              FCCA444       10     A     
 GEN                MX0    -3                                                              FCC1960       69     A     
 GEN                BX2    -X0*X2      (00R) *I* REGISTER                                  FCC1960       70     A     
 GEN                SA3    EIS.LJ                                                          FCC1960       71     A     
 GEN                BX7    -X0*X3      (00R) *J* REGISTER                                  FCC1960       72          I
          -FCCA444
 GEN                SX6    0                                                               FCCA444       11     A     
 GEN                SB5    X3            OTR OF REG TRANSMITTING FROM                      FCCA444       12     A     
 GEN                BX7    -X0*X3        (00R) *J* REGISTER                                FCCA444       13     A     
 GEN                SA1    B5+REGFILE        *X* REGFILE ENTRY                             FCCA444       14     A     
 GEN                SA3    B5+REGFILE-REG.A  *A* REGFILE ENTRY                             FCCA444       15     A     
 GEN                BX1    X3-X1                                                           FCCA444       16     A     
 GEN                AX1    L.RUSE                                                          FCCA444       17     A     
 GEN                NZ     X1,EIS.LA      IF TAGS NOT EQUAL CLEAR X REG ONLY               FCCA444       18     A     
 GEN                SA6    A3             CLEAR OLD *A* REGFILE ENTRY                      FCCA444       19     A     
 GEN       EIS.LA   SA6    A1             CLEAR OLD *X* REGFILE ENTRY                      FCCA444       20     A     
 GEN                LX2    3                                                               FCC1960       73     A     
 GEN                IX7    X7+X2                                                           FCC1960       74     A     
 GEN                SX7    X7+XMITS3                                                       FCC1960       75     A     
 GEN                LX7    P.LI15+3                                                        FCC1960       76     A     
 GEN                SB5    B2                                                              FCC1960       77     A     
 GEN                WCODE  X7          XMIT                                                FCC1960       78     A     
 GEN                SB2    B5            OTR OF REG HOLDING OPD.                           FCCA444       21     A     
 GEN       EIS.L21  SA1    EIS.LUC                                                         FCC1960       79     A     
 GEN                BX7    X1                                                              FCC1960       80     A     
 GEN                SA3    TYPLOD                                                          FCC1960       81     A     
 GEN                SA7    UUC         RESTORE USE COUNT                                   FCC1960       82     A     
 GEN                SA1    EISLA       LOCATION OF TAG STATUS WORD ADDRESS                 FCC1960       83     A     
 GEN                SB7    X1          ORDINAL IN TABLE OF STATUS WORD                     FCC1960       84     A     
 GEN                AX1    18                                                              FCC1960       85     A     
 GEN                SA2    X1          FETCH TABLE ORIGIN                                  FCC1960       86     A     
 GEN                SA1    X2+B7                                                           FCC1960       87     A     
 GEN                SB3    X3                                                              FCC1960       88     A     
 GEN                RJ     SST         SET STATUS OF TAG                                   FCC1960       89     A     
 GEN                MX0    -3                                                              FCC1960       90     A     
 GEN                SX1    B2                                                              FCC1960       91     A     
 GEN                BX6    -X0*X1                                                          FCC1960       92     A     
 GEN                LX6    3           ORO                                                 FCC1960       93     A     
 GEN       EIS.L22  SA1    HREG                                                            FCC1960       94     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1529    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                ZR     X1,EIS.LRF  IF HARD REGISTER TO REMAIN UN-LOCKED                FCC0805       22     A     
 GEN                BX2    X6                                                              FCC0805       23     A     
 GEN                MX7    0                                                               FCC0805       24     A     
 GEN                LX2    -3                                                              FCC0805       25     A     
 GEN                SA7    A1          CLEAR HREG                                          FCC0805       26     A     
 GEN                SB7    X2                                                              FCC0805       27     A     
 GEN                RJ     RLL         LOCK REGISTER                                       FCC0805       28     A     
 GEN                EQ     EIS.LRF                                                         GEN         4951     A     
 GEN                                                                                       GEN         4952     A     
 GEN                                                                                       FCC1208       76     A     
 GEN       EISLA    CON    "BLOWUP"    LOCATION OF TAG STATUS WORD                         FCC1208       77     A     
 GEN       EIS.LUC  DATA   0           SAVED USE COUNT OF TAG                              FCC1960       95     A     
 GEN       EIS.LJ   DATA   0           OTR OF REG TAG IS IN                                FCC1960       96     A     
 GEN       EIS.LX   DATA   0           REG ASSIGNED AFTER GNR CALL                         FCC1960       97     A     
 GEN       RESULT   EJECT  4,8                                                             GEN         4953     A     
 GEN      **        SET INTERMEDIATE RESULT REGISTER.                                      GEN         4954     A     
 GEN      *             ENTRY  B4 - START OF INSTRUCTION GROUP (TURPLE)                    GEN         4955     A     
 GEN      *             EXIT   (X6) REGISTER NUMBER - 0R0.                                 GEN         4956     A     
 GEN      *             USES   A1,A2,A3  X0  B2,B7                                         GEN         4957     A     
 GEN      *             CALLS  CDS                                                         GEN         4958     A     
 GEN                                                                                       GEN         4959     A     
 GEN                                                                                       GEN         4960     A     
 GEN       EIS.IRL  =A5    B4+OR.1OP   RIGHT MEMBER                                        GEN         4961     A     
 GEN                =B6    1           RESULTS OF LOWER HALF                               GEN         4962     A     
 GEN                EQ     EIS.IR1                                                         GEN         4963     A     
 GEN                                                                                       GEN         4964     A     
 GEN      **        SCAN INTERMEDIATE REGISTERS - *X7,X6,X0*                               GEN         4965     A     
 GEN                                                                                       GEN         4966     A     
 GEN       EIS.IR   SA2    B4                                                              GEN         4967     A     
 GEN                SB6    B0          RESULTS OF UPPER HALF                               GEN         4968     A     
 GEN                =A5    B4+OR.1OP   RIGHT MEMBER                                        GEN         4969     A     
 GEN                                                                                       GEN         4970     A     
 GEN       EIS.IR1  =A2    B4+OR.OPR                                                       GEN         4971     A     
 GEN                BX6    X6-X6                                                           GEN         4972     A     
 GEN                SB7    X2-O.=                                                          GEN         4973     A     
 GEN                SA6    UUC                                                             GEN         4974     A     
 GEN                NZ     B7,EIS.IR9  IF NOT PROCESSING *STORE* TURPLE                    GEN         4975     A     
 GEN                SB2    B6          TAG TYPE                                            GEN         4976     A     
 GEN                =B7    0           STATUS OF TAG ONLY                                  GEN         4977     A     
 GEN                RJ     GST         GET STATUS OF RIGHT MEMBER                          GEN         4978     A     
 GEN                SX0    B2-R.X6+RGFILE                                                  GEN         4979     A     
 GEN                PL     X0,EIS.IR2  IF IN *STORE* REGISTER                              GEN         4980     A     
 GEN                RJ     ASR         ASSIGN STORE REGISTER                               GEN         4981     A     
 GEN                SX7    -XMIT                                                           GEN         4982     A     
 GEN                SA7    RREG        INDICATE LOAD NOT SATISFIED                         GEN         4983     A     
 GEN                                                                                       GEN         4984     A     
 GEN                                                                                       GEN         4985     A     
 GEN      *         CHECK LEFT MEMBER FOR VARIABLE TYPE                                    GEN         4986     A     
 GEN                                                                                       GEN         4987     A     
 GEN       EIS.IR2  SA5    B4+OR.2OP        LEFT MEMBER                                    GEN         4988     A     
 GEN                =X0    RLOCK                                                           GEN         4989     A     
 GEN                BX2    X5                                                              GEN         4990     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1530    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                BX5    -X0*X5                                                          GEN         4991     A     
 GEN                IFBIT  X2,-INTR,EIS.IR5                                                GEN         4992     A     
 GEN                                                                                       GEN         4993     A     
 GEN      *         LEFT MEMBER IS A *SUBSCRIPTED ARRAY INVOLVING ADDRESS FUNCTION         GEN         4994     A     
 GEN                                                                                       GEN         4995     A     
 GEN                SA1    RREG                                                            GEN         4996     A     
 GEN                SX6    B2                                                              GEN         4997     A     
 GEN                SB7    X1+XMIT                                                         GEN         4998     A     
 GEN                SA6    A1          SET HARD REGISTER                                   GEN         4999     A     
 GEN                NZ     B7,EIS.IR3  IF LOAD SATISFIED                                   GEN         5000     A     
 GEN                SA3    INS.REG                                                         GEN         5001     A     
 GEN                MX0    -3                                                              GEN         5002     A     
 GEN                BX2    -X1                                                             GEN         5003     A     
 GEN                BX1    -X0*X6      =00I                                                GEN         5004     A     
 GEN                IX7    X3+X2                                                           GEN         5005     A     
 GEN                LX1    6                                                               GEN         5006     A     
 GEN                IX7    X7+X1                                                           GEN         5007     A     
 GEN                LX7    P.LI15                                                          GEN         5008     A     
 GEN                WCODE  X7                                                              GEN         5009     A     
 GEN       EIS.IR3  SB2    B6                                                              GEN         5010     A     
 GEN                =X7    1                                                               GEN         5011     A     
 GEN                SA7    UUC                                                             GEN         5012     A     
 GEN                RJ     SLD                                                             GEN         5013     A     
 GEN                EQ     EIS.REG                                                         GEN         5014     A     
 GEN                                                                                       GEN         5015     A     
 GEN      *         SET DELAYED STORE IN MOTION                                            GEN         5016     A     
 GEN                                                                                       GEN         5017     A     
 GEN       EIS.IR5  SB3    B2                                                              GEN         5018     A     
 GEN                SB2    B6                                                              GEN         5019     A     
 GEN                RJ     SDS          SET DELAYED STORE                                  GEN         5020     A     
 GEN                EQ     EIS.REG                                                         GEN         5021     A     
 GEN                                                                                       GEN         5022     A     
 GEN      *         CHECK IF PROCESSING *STORE* TURPLE.                                    GEN         5023     A     
 GEN                                                                                       GEN         5024     A     
 GEN       EIS.IR9  SA2    B4+L.TURP                                                       GEN         5025     A     
 GEN                SB7    X2-O.=                                                          GEN         5026     A     
 GEN                NZ     B7,EIS.IR10 IF RESULTS NOT INPUT IN *STORE*E                    GEN         5027     A     
 GEN                RJ     ASR         FIND AVAILABLE STORE REGISTER                       GEN         5028     A     
 GEN                EQ     EIS.IR30    CONTINUE                                            GEN         5029     A     
 GEN                                                                                       GEN         5030     A     
 GEN      *         IF INTERMEDIATE NOT INPUT INTO *STORE* TURPLE                          GEN         5031     A     
 GEN                                                                                       GEN         5032     A     
 GEN       EIS.IR10 RJ     AIR         ASSIGN INTERMEDIATE REGISTER                        GEN         5033     A     
 GEN                PL     B2,EIS.IR20 IF REGISTER AVAILABLE                               GEN         5034     A     
 GEN                RJ     ASR         USE STORE REGISTER                                  GEN         5035     A     
 GEN                EQ     EIS.IR30                                                        GEN         5036     A     
 GEN                                                                                       GEN         5037     A     
 GEN       EIS.IR20 ZR     X7,EIS.IR30 IF REGISTER FREE                                    GEN         5038     A     
 GEN                RJ     RUT                                                             GEN         5039     A     
 GEN                                                                                       GEN         5040     A     
 GEN      **        (B2) = 0TR. FOR RESULTS.                                               GEN         5041     A     
 GEN                                                                                       GEN         5042     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1531    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       EIS.IR30 =X5    0                                                               GEN         5043     A     
 GEN                SB3    B6          INTERMEDIATE TYPE (UPPER/LOWER)                     GEN         5044     A     
 GEN                RJ     DIT         DEFINE INTERMEDIATE                                 GEN         5045     A     
 GEN                EQ     EIS.REG                                                         GEN         5046     A     
 GEN       REGPRO   EJECT  4,8                                                             GEN         5047     A     
 GEN      **        REGPRO - HELP ME DETERMINE IF REGISTERS ARE BEING ASSIGNED             GEN         5048     A     
 GEN      *         CORRECTLY.                                                             GEN         5049     A     
 GEN      *                                                                                GEN         5050     A     
 GEN      *         ENTRY  (B2) = REGISTER BEING CLOBBERED, RESET ETC.                     GEN         5051     A     
 GEN      *                (X6) = CALLER NAME IN 3R FORMAT.                                GEN         5052     A     
 GEN      *                                                                                GEN         5053     A     
 GEN      *         EXIT   MESSAGE PRINTED.                                                GEN         5054     A     
 GEN      *                                                                                GEN         5055     A     
 GEN      *         DESTROYS *A1,X1, X6*                                                   GEN         5056     A     
 GEN                                                                                       GEN         5057     A     
 GEN       SNAP=H   IFNE   TEST        IF IN TEST MODE                                     FEAT126C     170     A     
 GEN                                                                                       GEN         5058     A     
 GEN       REGPRO   SUBR   0                                                               GEN         5059     A     
 GEN                                                                                       GEN         5060     A     
 GEN       SNAP=H   IFEQ   TEST        EXIT IF NOT IN TEST MODE                            GEN         5061          I
          -FEAT126C 
 GEN                                                                                       GEN         5062          I
          -FEAT126C 
 GEN                EQ     REGPROX     EXIT..                                              GEN         5063          I
          -FEAT126C 
 GEN                                                                                       GEN         5064          I
          -FEAT126C 
 GEN       SNAP=H   ELSE                                                                   GEN         5065          I
          -FEAT126C 
 GEN                                                                                       GEN         5066          I
          -FEAT126C 
 GEN                ENTRY  REGPRO                                                          GEN         5067     A     
 GEN                                                                                       GEN         5068     A     
 GEN                SA1    CO.SNAP                                                         GEN         5069     A     
 GEN                LX1    1RH                                                             GEN         5070     A     
 GEN                PL     X1,REGPROX  IF NOT REQUESTED.                                   GEN         5071     A     
 GEN                SA1    =7L                                                             GEN         5072     A     
 GEN                BX6    X1+X6                                                           GEN         5073     A     
 GEN                SA6    REGLNN      CALLER NAME.                                        GEN         5074     A     
 GEN       REGFILE  CORE   REGB,L.RGFILE                                                   GEN         5075     A     
 GEN                RJ     =XSVR                                                           GEN         5076     A     
 GEN                SA1    =XSVB+4                                                         GEN         5077     A     
 GEN                SA2    TT.PAR                                                          GEN         5078     A     
 GEN                SX0    X1                                                              GEN         5079     A     
 GEN                IX1    X0-X2                                                           GEN         5080     A     
 GEN                RJ     PIA         CONVERT TO DPC                                      GEN         5081          I
          -FEAT126C 
 GEN                RJ     =XCOD       CONVERT TO DPC                                      FEAT126C     171     A     
 GEN                SA6    REGLNO                                                          GEN         5082     A     
 GEN                SA1    =XSVB+2                                                         GEN         5083     A     
 GEN                SX1    X1                                                              GEN         5084     A     
 GEN                RJ     PIA         CONVERT TO DPC                                      GEN         5085          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1532    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
          -FEAT126C 
 GEN                RJ     =XCOD       CONVERT TO DPC                                      FEAT126C     172     A     
 GEN                SA6    REGLNW                                                          GEN         5086     A     
 GEN                SA1    RGC                                                             GEN         5087     A     
 GEN                RJ     PIA                                                             GEN         5088          I
          -FEAT126C 
 GEN                RJ     =XCOD                                                           FEAT126C     173     A     
 GEN                SA6    REGRGC                                                          GEN         5089     A     
 GEN                SA1    RGX                                                             GEN         5090     A     
 GEN                RJ     PIA                                                             GEN         5091          I
          -FEAT126C 
 GEN                RJ     =XCOD                                                           FEAT126C     174     A     
 GEN                SA6    REGRGX                                                          GEN         5092     A     
 GEN                PLINE  REGLN       PRINT CONTENTS OF RGC, RGX                          GEN         5093     A     
 GEN                RJ     =XRSR                                                           GEN         5094     A     
 GEN                EQ     REGPRO      CONTINUE                                            GEN         5095     A     
 GEN                                                                                       GEN         5096     A     
 GEN       REGLN    DATA   30H REGISTER REASSIGNMENT -HELP-                                GEN         5097     A     
 GEN       REGLNO   DATA   10H                                                             GEN         5098     A     
 GEN       REGLNW   DATA   10H                                                             GEN         5099     A     
 GEN       REGLNN   DATA   0                                                               GEN         5100     A     
 GEN                DATA   10H  RGC =                                                      GEN         5101     A     
 GEN       REGRGC   DATA   0                                                               GEN         5102     A     
 GEN                DATA   10H  RGX =                                                      GEN         5103     A     
 GEN       REGRGX   DATA   0                                                               GEN         5104     A     
 GEN       REGLNE   DATA   0                                                               GEN         5105     A     
 GEN                                                                                       GEN         5106     A     
 GEN       SNAP=H   ENDIF                                                                  GEN         5107     A     
 GEN       EIS.MC   SPACE  4,8                                                             GEN         5108     A     
 GEN       EIS.K    EJECT  4,8                                                             GEN         5109     A     
 GEN      **        SET CONSTANT FOR CURRENT INSTRUCTION.                                  GEN         5110     A     
 GEN                                                                                       GEN         5111     A     
 GEN       EIS.K    SX6    X3          6 BIT TYPE CONSTANT.                                GEN         5112     A     
 GEN                SB7    X3-10B                                                          GEN         5113     A     
 GEN                =B2    -1          INDICATE NOT A REGISTER (FOR EIS.LRF)               FCC1010       16     A     
 GEN                PL     B7,EIS.LRF  IF IN CORRECT FIELD                                 GEN         5114     A     
 GEN                LX6    3                                                               GEN         5115     A     
 GEN                EQ     EIS.LRF                                                         GEN         5116     A     
 GEN                                                                                       GEN         5117     A     
 GEN       EIS.Q    SA2    A4          RELOAD                                              GEN         5118     A     
 GEN                MX0    -L.IQF                                                          GEN         5119     A     
 GEN                BX3    -X0*X2      LOWER 12 BITS                                       GEN         5120     A     
 GEN                MX1    -L.INUM                                                         GEN         5121     A     
 GEN                LX2    -L.IQF-L.IOAD                                                   GEN         5122     A     
 GEN                BX1    -X1*X2                                                          GEN         5123     A     
 GEN                LX1    L.IQF                                                           GEN         5124     A     
 GEN                IX6    X1+X3       18 - BIT *Q* FIELD                                  GEN         5125     A     
 GEN                LX6    60-18+6     SHIFT TO Q POSITION                                 GEN         5126     A     
 GEN                EQ     EIS.REG                                                         GEN         5127     A     
 GEN       EIS.CNL  EJECT  4,8                                                             GEN         5128     A     
 GEN      *         8.  SET ITH PORTION OF INSTRUCTION TO CONTENTS OF PARSE FILE.          GEN         5129     A     
 GEN      *             WILL HANDLE EITHER A TAG OR CONSTANT THAT IS RIGHT                 GEN         5130     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1533    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN      *             JUSTIFIED WITHIN THE APPROPRIATE FIELD.                            GEN         5131     A     
 GEN      *                                                                                GEN         5132     A     
 GEN      *             THREE DEFINED PROCESSORS ARE --                                    GEN         5133     A     
 GEN      *             CNU = ELEMENT IN UPPER  L.2TAG BITS OF WORD.                       GEN         5134     A     
 GEN      *             CNM = ELEMENT IN MIDDLE L.2TAG BITS OF WORD.                       GEN         5135     A     
 GEN      *             CNL = ELEMENT IN LOWER  L.2TAG BITS OF WORD.                       GEN         5136     A     
 GEN                                                                                       GEN         5137     A     
 GEN                                                                                       GEN         5138     A     
 GEN       EIS.CNU  SB2    P.PTAGU     ELEMENT IN UPPER L.2TAG BITS                        GEN         5139     A     
 GEN                EQ     EIS.CNX                                                         GEN         5140     A     
 GEN       EIS.CNM  SB2    P.PTAGM     ELEMENT IN MIDDLE L.2TAG BITS                       GEN         5141     A     
 GEN                EQ     EIS.CNX                                                         GEN         5142     A     
 GEN       EIS.CNL  SB2    P.PTAGL     ELEMENT IN LOWER L.2TAG BITS                        GEN         5143     A     
 GEN                                                                                       GEN         5144     A     
 GEN      **        SET ELEMENT INTO (X6) READY FOR ADD IN TO INSTRUCTION BUILD            GEN         5145     A     
 GEN      *         WORD                                                                   GEN         5146     A     
 GEN      *                                                                                GEN         5147     A     
 GEN      *         (B2) = RELATIVE SHIFT COUNT                                            GEN         5148     A     
 GEN      *         (X3) = RELATIVE WORD IN PARSED FILE TO USE.                            GEN         5149     A     
 GEN                                                                                       GEN         5150     A     
 GEN       EIS.CNX  SA1    X3+B4       LOAD PARSED FILE WORD                               GEN         5151     A     
 GEN                MX0    -L.2TAG                                                         GEN         5152     A     
 GEN                AX2    B2,X1       SHIFT TO LOW ORDER OF WORD                          GEN         5153     A     
 GEN                SA5    OPTYP                                                           GEN         5154     A     
 GEN                BX6    -X0*X2      EXTRACT FIELD                                       GEN         5155     A     
 GEN                SB7    X5-M.SHIF                                                       GEN         5156     A     
 GEN                ZR     B7,EIS.REG  IF NOT PROCESSING ADDRESS (K)                       GEN         5157     A     
 GEN                LX6    60-18+3+3   SHIFT TO APPROPIATE BIT FOR INSTRUCTION             GEN         5158     A     
 GEN                EQ     EIS.REG                                                         GEN         5159     A     
 GEN       EIS.LRF  SPACE  4,20                                                            GEN         5160     A     
 GEN      **        LOCK REGISTER FILE FOR REGISTER USED IN CURRENT INSTRUCTION            GEN         5161     A     
 GEN      *                                                                                GEN         5162     A     
 GEN      *         ENTRY  (B2) = 0TR                                                      GEN         5163     A     
 GEN      *                (X6) = 0R0, AS ABOVE.                                           GEN         5164     A     
 GEN      *                                                                                GEN         5165     A     
 GEN      *         EXIT   LOCK BIT SET IN *RGFILE* IF ASSIGNMENT IS FOR *K* PART          GEN         5166     A     
 GEN      *                OF INSTRUCTION.                                                 GEN         5167     A     
 GEN      *                CLEAR LOCK BIT ON *K* IF PROCESSING *J*                         GEN         5168     A     
 GEN                                                                                       GEN         5169     A     
 GEN                                                                                       GEN         5170     A     
 GEN       EIS.LRF  SA2    IJK                                                             GEN         5171     A     
 GEN                                                                                       GEN         5172          I
          -FCC1010
 GEN       EIS.LRF2 SA1    REGLK                                                           GEN         5173          I
          -FCC1010
 GEN                SA1    REGLK                                                           FCC1010       17     A     
 GEN                MX7    -1                                                              GEN         5174     A     
 GEN                PL     X2,EIS.LRF5 IF NOT PROCESSING *K*                               GEN         5175     A     
 GEN                MI     B2,EIS.REG  IF A CONSTANT (NOT A REGISTER)                      FCC1010       18     A     
 GEN                SX5    B2                                                              GEN         5176     A     
 GEN                MX1    -3                                                              GEN         5177     A     
 GEN                BX2    -X1*X5      GET REGISTER -00R                                   GEN         5178     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1534    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                SB7    X2                                                              GEN         5179     A     
 GEN                RJ     RLL         LOCK REGISTER                                       GEN         5180     A     
 GEN                SA7    REGLK       SAVE REGISTER  -00R.                                GEN         5181     A     
 GEN                =A7    A7+1                                                            GEN         5182     A     
 GEN                EQ     EIS.REG     CONTINUE                                            GEN         5183     A     
 GEN                                                                                       GEN         5184     A     
 GEN       EIS.LRF5 SA7    A1          CLEAR *REGLK*                                       GEN         5185     A     
 GEN                NZ     X2,EIS.REG  IF NOT PROCESSING *J*                               GEN         5186     A     
 GEN                SA7    CLOADJ                                                          GEN         5187     A     
 GEN                SB7    X1                                                              GEN         5188     A     
 GEN                RJ     RUL         UNLOCK REGISTER                                     GEN         5189     A     
 GEN                EQ     EIS.REG     CONTINUE                                            GEN         5190     A     
 GEN       REG      EJECT  4,8                                                             GEN         5191     A     
 GEN      **        9.  SET REGISTER IN TO BUILD REGISTER,(X5), AND CONTINUE               GEN         5192     A     
 GEN      *             TO NEXT.                                                           GEN         5193     A     
 GEN      *             ENTRY  (X6) = REGISTER - 0R0                                       GEN         5194     A     
 GEN      *                                                                                GEN         5195     A     
 GEN      *             EXIT   (X1) REGISTER SHIFTED APPROPRIATELY.                        GEN         5196     A     
 GEN      *                    (X4) SHIFTED BY -L.INUM                                     GEN         5197     A     
 GEN      *                    (B6) UPDATED BY 3.                                          GEN         5198     A     
 GEN      *                    INS.REG =  REGISTER ADDED IN PROPER POSITION.               GEN         5199     A     
 GEN                                                                                       GEN         5200     A     
 GEN                                                                                       GEN         5201     A     
 GEN       EIS.REG  SA3    IJK                                                             GEN         5202     A     
 GEN                SA1    INS.REG                                                         GEN         5203     A     
 GEN                SB6    X3                                                              GEN         5204     A     
 GEN                PL     X3,EIS.RG5  IF POSITIVE SHIFT                                   GEN         5205     A     
 GEN                SB6    B6+60       NO DROPPING THE BITS..                              GEN         5206     A     
 GEN       EIS.RG5  LX2    B6,X6                                                           GEN         5207     A     
 GEN                BX6    X1+X2                                                           GEN         5208     A     
 GEN                LX4    -L.INUM                                                         GEN         5209     A     
 GEN                SX7    X3+3                                                            GEN         5210     A     
 GEN                SA6    A1          UPDATE ASSIGNED                                     GEN         5211     A     
 GEN                SA7    A3          UPDATE *IJK*                                        GEN         5212     A     
 GEN                EQ     EIS.NX      CONTINUE FOR NEXT PORTION OF INSTRUCTION.           GEN         5213     A     
 GEN                                                                                       GEN         5214     A     
 GEN       INS.REG  DATA   0           IJK PARTS OF INSTRUCTION                            GEN         5215     A     
 GEN       OPCODE   DATA   0           OPCODE                                              GEN         5216     A     
 GEN       IJK      DATA   0           = 3 PROCESSING *I* PART                             GEN         5217     A     
 GEN                                   = 0    -       *J*  -                               GEN         5218     A     
 GEN                                   =-3    -       *K*  -                               GEN         5219     A     
 GEN       OPTYP    DATA   0           M.XXX FOR OP-CODE FIELD OF SKELETON                 GEN         5220     A     
 GEN                                                                                       GEN         5221     A     
 GEN       TYPLOD   DATA   0           TYPE OF LOAD                                        GEN         5222     A     
 GEN                                                                                       GEN         5223     A     
 GEN                                                                                       GEN         5224     A     
 GEN       EIS.INST DATA   0           INSTRUNCION TO PUT TAG IN CORRECT REGISTER          GEN         5225     A     
 GEN       EIS.JREG DATA   0           *J* REGISTER FOR ABOVE                              GEN         5226     A     
 GEN       HREG     BSSZ   1           LOCK HARD REGISTER FLAG                             FCC0805       29     A     
 GEN       O=XXX    EJECT  4,20                                                            GEN         5227     A     
 GEN      **        O=XXX - THIS SECTION CONTAINS SPECIAL PROCESSING ROUTINES              GEN         5228     A     
 GEN      *                 USED FOR EXPANSION OF SKELETONS.                               GEN         5229     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1535    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       O=CDW    SPACE  4,8                                                             GEN         5230     A     
 GEN      **        O=CDW - CHECK *DRITE* FLAG, AND PROCESS IF SET.                        GEN         5231     A     
 GEN      *                                                                                GEN         5232     A     
 GEN      *         ENTRY  (B4) _ CURRENT *TURPLE* BEING PROCESSED.                        GEN         5233     A     
 GEN      *                                                                                GEN         5234     A     
 GEN      *         EXIT   *DRITE* CLEARED.                                                GEN         5235     A     
 GEN      *                (B4) _ AS ENTRY - L.TURP, EXIT TO EIS.PNX TO CONTINUE           GEN         5236     A     
 GEN      *                       PROCESSING OF ORGINAL *TURPLE*                           GEN         5237     A     
 GEN      *                                                                                GEN         5238     A     
 GEN      *         CALLS  CDS                                                             GEN         5239     A     
 GEN                                                                                       GEN         5240     A     
 GEN                                                                                       GEN         5241     A     
 GEN       O=CDW    SB6    A4          SAVE SKELETON ADDRESS                               GEN         5242     A     
 GEN                DRITE  DEACTIVATE                                                      GEN         5243     A     
 GEN       O=CDWX   SA3    B6          RELOAD SKELETON WORD                                GEN         5244     A     
 GEN                SBIT   X3,IEND                                                         GEN         5245     A     
 GEN                EQ     NULLOP      CONTINUE WITH EXPANSION                             GEN         5246     A     
 GEN       O=CAR    SPACE  4,8                                                             GEN         5247     A     
 GEN      **        O=CAR - CLEAR ALL REGISTER ASSOCIATES.                                 GEN         5248     A     
 GEN      *                                                                                GEN         5249     A     
 GEN      *         ENTRY  (B4) _ CURRENT *TURPLE* BEING PROCESSED.                        GEN         5250     A     
 GEN      *                                                                                GEN         5251     A     
 GEN      *         EXIT   *DRITE* CLEARED.                                                GEN         5252     A     
 GEN      *                ALL REGISTER ASSOCIATES CLEARED.                                GEN         5253     A     
 GEN      *                (B4) _ AS ENTRY - L.TURP, EXIT TO EIS.PNX TO CONTINUE           GEN         5254     A     
 GEN      *                       PROCESSING OF ORGINAL *TURPLE*                           GEN         5255     A     
 GEN      *                                                                                GEN         5256     A     
 GEN      *         CALLS  CAR.                                                            GEN         5257     A     
 GEN                                                                                       GEN         5258     A     
 GEN                                                                                       GEN         5259     A     
 GEN       O=CAR    SB6    A4          SAVE SKELETON ADDRESS                               GEN         5260     A     
 GEN                RJ     CIA         CLEAR REGISTER FILE                                 GEN         5261     A     
 GEN                EQ     O=CDWX                                                          GEN         5262     A     
 GEN       O=EPO    SPACE  4,15                                                            GEN         5263     A     
 GEN      **        O=EPO -  EXTERNAL PROCESSOR SET-UP                                     GEN         5264     A     
 GEN      *                                                                                GEN         5265     A     
 GEN      *         ENTRY  (B4) _ PARSED FILE ENTRY                                        GEN         5266     A     
 GEN      *                                                                                GEN         5267     A     
 GEN                                                                                       GEN         5268     A     
 GEN                                                                                       GEN         5269     A     
 GEN       O=EPO    =A1    B4+OR.2OP                                                       GEN         5270     A     
 GEN                =B4    B4+L.TURP                                                       GEN         5271     A     
 GEN                BX7    X1                                                              FCC0744       13     A     
 GEN                AX7    P.TRC       42/0,18/TRACEBACK LINE NUMBER                       FCC0744       14     A     
 GEN                SA7    =XTRACE     SAVE FOR USE BY *FUN*                               FCC0744       15     A     
 GEN                EQ     EIS.PNX     CONTINUE                                            GEN         5272     A     
 GEN       O=OTR    SPACE  4,8                                                             FEAT155G     370     A     
 GEN      **        O=OTR - OBJECT TIME REPRIEVE CODE                                      FEAT155G     371     A     
 GEN      *                                                                                FEAT155G     372     A     
 GEN      *         ENTRY  (B4) _ PARSE FILE ENTRY                                         FEAT155G     373     A     
 GEN      *                                                                                FEAT155G     374     A     
 GEN                                                                                       FEAT155G     375     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1536    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN       O=OTR    =A1    B4+OR.2OP                                                       FEAT155G     376     A     
 GEN       #FID     IFNE   .FID,0                                                          F66FCC       811     A     
 GEN                SA5    =XCO.ID                                                         F66FCC       812     A     
 GEN                PL     X5,O=OTR20  IF FID CODE NOT REQUIRED                            F66FCC       813     A     
 GEN                                                                                       F66FCC       814     A     
 GEN                SA2    TT.PAR                                                          F66FCC       815     A     
 GEN                SX6    B4                                                              F66FCC       816     A     
 GEN                SA5    ALC.00                                                          F66FCC       817     A     
 GEN                IX6    X6-X2       GET INDEX INTO PARSE TABLE                          F66FCC       818     A     
 GEN                BX7    X5                                                              F66FCC       819     A     
 GEN                SA6    O=OTRB      SAVE INDEX                                          F66FCC       820     A     
 GEN                SA7    ALC.REG     UNLOCK B4                                           F66FCC       821     A     
 GEN                SA5    O=OTRA                                                          F66FCC       822     A     
 GEN                LX6    X1                                                              F66FCC       823     A     
 GEN                BX5    X1-X5                                                           F66FCC       824     A     
 GEN                SA6    A5          SET PREV LINE NUMBER TO OTR LINE NUMBER             F66FCC       825     A     
 GEN                ZR     X5,O=OTR30  IF SAME LINE AS PREVIOUS, IGNORE THE OTR            F66FCC       826     A     
 GEN                                                                                       F66FCC       827     A     
 GEN                =X6    1                                                               F66FCC       828     A     
 GEN                SA6    =XCIAA      SET LOCK CLEAR FLAG                                 F66FCC       829     A     
 GEN                RJ     =XCIA       CLEAR REGISTER ASSOCIATES                           F66FCC       830     A     
 GEN                BX6    0                                                               F66FCC       831     A     
 GEN                SA6    =XCIAA      CLEAR LOCK FLAG                                     F66FCC       832     A     
 GEN                CBSS   1           FLUSH CODE FROM WINA                                F66FCC       833     A     
 GEN                RJ     =XPIG       MAKE LINE NUMBER TABLE ENTRY                        F66FCC       834     A     
 GEN                SA5    O=OTRB                                                          F66FCC       835     A     
 GEN                SA1    TT.PAR                                                          F66FCC       836     A     
 GEN                IX5    X5+X1       PARSE TABLE ADDRESS                                 F66FCC       837     A     
 GEN                SA1    X5+OR.2OP   RESTORE A1 AND X1                                   F66FCC       838     A     
 GEN                BX6    X1          RESTORE CURRENT LINE NUMBER                         F66FCC       839     A     
 GEN       O=OTR10  BSS                                                                    F66FCC       840     A     
 GEN                =A5    A1-OR.2OP+OR.1OP  GET LABEL FROM OTR TURPLE                     F66FCC       841     A     
 GEN                SX2    X5                                                              F66FCC       842     A     
 GEN                NZ     X2,O=OTR20  IF NO LNT ENTRY REQUIRED                            F66FCC       843     A     
 GEN                                                                                       F66FCC       844     A     
 GEN                SA6    =XPIGLINE                                                       F66FCC       845     A     
 GEN                BX6    X5                                                              F66FCC       846     A     
 GEN                SA6    =XPIGLAB                                                        F66FCC       847     A     
 GEN       O=OTR20  BSS                                                                    F66FCC       848     A     
 GEN       #FID     ENDIF                                                                  F66FCC       849     A     
 GEN                =B4    B4+L.TURP                                                       FEAT155G     377     A     
 GEN                BX6    X1                                                              FEAT155G     378     A     
 GEN                AX6    P.TRC                                                           FEAT155G     379     A     
 GEN                SA6    =XTRACE     SAVE FOR USE BY *FUN*                               FEAT155G     380     A     
 GEN                LX6    P.LBIAS                                                         FEAT155G     381     A     
 GEN                BX5    X6          PRESERVE LINE NUMBER                                FEAT155G     382     A     
 GEN                CBSS   1           FORCE UPPER                                         FEAT155G     383     A     
 GEN                SX1    SB=BKS3                                                         FEAT155G     384     A     
 GEN                SX1    X1+2                                                            FEAT155G     385     A     
 GEN                BX7    X1                                                              FEAT155G     386     A     
 GEN                LX7    P.LI12                                                          FEAT155G     387     A     
 GEN                BX7    X5+X7                                                           FEAT155G     388     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1537    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                WCODE  X7          OUTPUT SB0  B2+LINENO                               FEAT155G     389          I
          -FCC1208
 GEN                EQ     EIS.PNX     CONTINUE                                            FEAT155G     390          I
          -FCC1208
 GEN                WCODE  X7,EIS.PNX  COMPILE  SB0  B2+LINENO                             FCC1208       78          I
          -F66FCC 
 GEN       #FID     IFEQ   .FID,0                                                          F66FCC       850     A     
 GEN                WCODE  X7,EIS.PNX                                                      F66FCC       851     A     
 GEN       #FID     ELSE                                                                   F66FCC       852     A     
 GEN                WCODE  X7                                                              F66FCC       853     A     
 GEN                SA1    =XCO.ID                                                         F66FCC       854     A     
 GEN                PL     X1,EIS.PNX  IF FID CODE NOT NECESSARY                           F66FCC       855     A     
 GEN                                                                                       F66FCC       856     A     
 GEN                TAGSEX =XS.FID                                                         F66FCC       857     A     
 GEN                CRJ    NONE                                                            F66FCC       858     A     
 GEN       O=OTR30  BSS                                                                    F66FCC       859     A     
 GEN                SA1    TT.PAR                                                          F66FCC       860     A     
 GEN                SA5    O=OTRB      PARSE TABLE INDEX                                   F66FCC       861     A     
 GEN                SA2    ALC.CAI                                                         F66FCC       862     A     
 GEN                IX5    X1+X5       PARSE TABLE ADDRESS                                 F66FCC       863     A     
 GEN                BX6    X2                                                              F66FCC       864     A     
 GEN                =B4    X5+L.TURP   ADDRESS OF NEXT TURPLE                              F66FCC       865     A     
 GEN                SA6    ALC.REG     RELOCK B4                                           F66FCC       866     A     
 GEN                EQ     EIS.PNX                                                         F66FCC       867     A     
 GEN                                                                                       F66FCC       868     A     
 GEN                                                                                       F66FCC       869     A     
 GEN                ENTRY  O=OTRA                                                          F66FCC       870     A     
 GEN       O=OTRA   DATA   0           LINE NUMBER OF PREVIOUS OTR                         F66FCC       871     A     
 GEN       O=OTRB   BSS    1           PARSE TABLE INDEX SAVED HERE                        F66FCC       872     A     
 GEN       #FID     ENDIF                                                                  F66FCC       873     A     
 GEN       CBSS     SPACE  4,8                                                             GEN         5273     A     
 GEN      **        CBSS - DEFINE LABEL.                                                   GEN         5274     A     
 GEN      *                                                                                GEN         5275     A     
 GEN      *         ENTRY  (X1) = LABEL TO DEFINE.                                         GEN         5276     A     
 GEN      *                (X4) = SKELETON WORD                                            GEN         5277     A     
 GEN      *                                                                                GEN         5278     A     
 GEN      *         EXIT   TO *CBREAK*                                                     GEN         5279     A     
 GEN      *                (X3) = SKELETON SHIFTED BY P.IEND                               GEN         5280     A     
 GEN      *                (X7) = INSTRUCTION FORMATTED FOR LONG FILE                      GEN         5281     A     
 GEN      *         IF LABEL IS INACTIVE STATEMENT NUMBER, WILL EXIT TO *NULLOP*           GEN         5282     A     
 GEN      *                WITHOUT COMPILING ANYTHING.                                     GEN         5283     A     
 GEN      *                                                                                GEN         5284     A     
 GEN      *         USES   CANNOT DESTROY  A0,A4  B4                                       GEN         5285     A     
 GEN                                                                                       GEN         5286     A     
 GEN                                                                                       GEN         5287     A     
 GEN       CBSS     BSS    0           ENTRY...                                            GEN         5288     A     
 GEN                SB7    X1-C.STAT                                                       GEN         5289     A     
 GEN                SA2    TS.STN                                                          GEN         5290     A     
 GEN                BX3    X4                                                              GEN         5291     A     
 GEN                SB2    X1-C.STAT-C.DIF                                                 GEN         5292     A     
 GEN                SBIT   X3,IEND                                                         GEN         5293     A     
 GEN                MI     B7,CBSS3    IF NOT A STATEMENT LABEL                            GEN         5294     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1538    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                PL     B2,CBSS3    IF NOT A STATEMENT LABEL                            GEN         5295     A     
 GEN                SA2    X2+B7                                                           GEN         5296     A     
 GEN                SBIT   X2,SNINA                                                        GEN         5297     A     
 GEN                MI     X2,NULLOP   IF INACTIVE STATEMENT LABEL, EXIT..                 GEN         5298     A     
 GEN                                                                                       GEN         5299     A     
 GEN       CBSS3    CBSS   X1,,X7                                                          GEN         5300     A     
 GEN                EQ     CBREAK      EXIT..                                              GEN         5301     A     
 GEN       CBJ      SPACE  4,10                                                            GEN         5302     A     
 GEN      **        CBJ -  COMPILE *B* JUMP.                                               GEN         5303     A     
 GEN      *                                                                                GEN         5304     A     
 GEN      *         ENTRY  (A4,X4) = SKELETON WORD                                         GEN         5305     A     
 GEN      *                                                                                GEN         5306     A     
 GEN      *         EXIT   TO EIS.CMP                                                      GEN         5307     A     
 GEN      *                (X7) = INSTRUCTION TO COMPILE                                   GEN         5308     A     
 GEN      *                (X3) = SKELETON SHIFTED BY P.IEND                               GEN         5309     A     
 GEN                                                                                       GEN         5310     A     
 GEN                                                                                       GEN         5311     A     
 GEN       CBJ      BSS    0           ENTRY...                                            GEN         5312     A     
 GEN                SX1    R.B6-RGFILE ** B6 ONLY **                                       GEN         5313     A     
 GEN                =X2    I.JP                                                            GEN         5314     A     
 GEN                BX3    X4                                                              GEN         5315     A     
 GEN                LX2    P.LI12                                                          GEN         5316     A     
 GEN                BX7    X1+X2                                                           GEN         5317     A     
 GEN                SBIT   X3,IEND                                                         GEN         5318     A     
 GEN                EQ     CBREAK      RETURN TO COMPILE INSTRUCTION                       GEN         5319     A     
 GEN       O=RNF    SPACE  4,8                                                             FCC0966       54     A     
 GEN      **        O=RNF - RESET RANDOM.                                                  FCC0966       55     A     
 GEN      *                 RESETS RANDOM. TO THE UNNORMALIZED PRODUCT OF THE              FCC0966       56     A     
 GEN      *                 LAST VALUE OF RANDOM. * KERNEL                                 FCC0966       57     A     
 GEN                                                                                       FCC0966       58     A     
 GEN       O=RNF    BSS    0                                                               FCC0966       59     A     
 GEN                SB3    =XRG=STOR                                                       FCC0966       60     A     
 GEN                LX5    X1          PRESERVE RANDOM. SYMTAB ORDINAL                     FCC0966       61     A     
 GEN                RJ     GNR         GET A STORE REGISTER                                FCC0966       62     A     
 GEN                MX0    -3          FOR STATUS                                          FCC0966       63     A     
 GEN                SX1    B2                                                              FCC0966       64     A     
 GEN                BX1    -X0*X1                                                          FCC0966       65     A     
 GEN                SB6    X1                                                              FCC0966       66     A     
 GEN                                                                                       FCC0966       67     A     
 GEN      *         (B6) = STORE REGISTER TO USE                                           FCC0966       68     A     
 GEN                                                                                       FCC0966       69     A     
 GEN                SA1    REG=T       *T1*                                                FCC0966       70     A     
 GEN                BX1    -X0*X1      *T1* REGISTER                                       FCC0966       71     A     
 GEN                SX2    X1-6                                                            FCC0966       72     A     
 GEN                PL     X2,RNF1     IF NO TRANSMIT (*T1* IN STORE REGISTER)             FCC0966       73     A     
 GEN                SB3    3                                                               FCC0966       74     A     
 GEN                SX3    XMIT                                                            FCC0966       75     A     
 GEN                LX2    X1,B3                                                           FCC0966       76     A     
 GEN                BX2    X1+X2                                                           FCC0966       77     A     
 GEN                SX1    B6                                                              FCC0966       78     A     
 GEN                BX3    X2+X3                                                           FCC0966       79     A     
 GEN                LX1    6                                                               FCC0966       80     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1539    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
 GEN                BX7    X1+X3                                                           FCC0966       81     A     
 GEN                LX7    P.LI15                                                          FCC0966       82     A     
 GEN                WCODE  X7          OUTPUT TRANSMIT                                     FCC0966       83     A     
 GEN                MX0    -3          RESTORE STATUS MASK                                 FCC0966       84     A     
 GEN                SX1    B6          RESTORE STORE REGISTER                              FCC0966       85     A     
 GEN                                                                                       FCC0966       86     A     
 GEN      *         (X1) = STORE REGISTER                                                  FCC0966       87     A     
 GEN                                                                                       FCC0966       88     A     
 GEN       RNF1     LX5    L.TAG                                                           FCC0966       89     A     
 GEN                SX5    X5-C.SYM                                                        FCC0966       90     A     
 GEN                SA2    TS.SYM                                                          FCC0966       91     A     
 GEN                IX2    X2+X5                                                           FCC0966       92     A     
 GEN                SX5    22000B      TRANSMIT INSTRUCTION TO RESET RANDOM.               FCC0966       93     A     
 GEN                SA3    X2                                                              FCC0966       94     A     
 GEN                BX3    -X0*X3      RANDOM. REGISTER                                    FCC0966       95     A     
 GEN                BX5    X5+X1                                                           FCC0966       96     A     
 GEN                LX3    3                                                               FCC0966       97     A     
 GEN                SX2    X3+SA=AB                                                        FCC0966       98     A     
 GEN                LX1    6                                                               FCC0966       99     A     
 GEN                BX7    X1+X2                                                           FCC0966      100     A     
 GEN                LX7    P.LI15                                                          FCC0966      101     A     
 GEN                LX3    3                                                               FCC0966      102     A     
 GEN                BX5    X3+X5                                                           FCC0966      103     A     
 GEN                WCODE  X7          OUTPUT STORE                                        FCC0966      104     A     
 GEN                LX5    P.LI15                                                          FCC0966      105     A     
 GEN                BX7    X5                                                              FCC0966      106     A     
 GEN                WCODE  X7          OUTPUT TRANSMIT                                     FCC0966      107     A     
 GEN                EQ     NULLOP      CONTINUE PROCESSING SKELETON..                      FCC0966      108     A     
 GEN                                                                                       FCC0966      109     A     
 GEN                LIST   D                                                               GEN         5320     A     
 GEN                END                                                                    GEN         5321     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - GEN     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          GEN                       5321      5060
          FCC0498                      6         6
          FCC0519                      2         0
          FEAT79BZ                     2         2
          FCC0575                      4         4
          FCC0597                      1         1
          FEAT126C                     8         8
          FCC0684                      8         8
          FCC0744                      4         4
          FCC0805                     12         9
          FCC0813                      1         1
          FCC0878                      2         2
          S3143FC                     14        12
          FCC0975                      7         7
          FEAT79CZ                     3         3
          FEAT155E                     4         4
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1540    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GEN     
  
          FEAT155G                    28        26
          FCC0868                     13        13
          FCC0964                      1         1
          FCC0966                     94        93
          FCC1010                     11         3
          FCC1046                      3         2
          FCC1055                     12        12
          FCC1070                      6         0
          FCC1208                     50        47
          FCC1134                     27        27
          FCC1175                      2         2
          FCC1210                      7         7
          FCC1371X                    13        13
          FCC1434X                     6         6
          FCC1510X                     1         1
          F7540FTA                     1         1
          FCC1583AX                   15        15
          FCC1638X                    27        27
          FCC1812X                     5         5
          F191FCC                      9         9
          FCC1826                      4         0
          F66FCC                      71        71
          FCC1811XA                   25        25
          FCC1960                     86        84
          FCCA444                     17        17
          FCCA456                      5         5
          FCC2194                     28        28
          FCC2203                      9         9
          FCC2472                      3         3
          FCCA598                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP    *DECK TSNAP                                                                      TSNAP          1     A     
 TSNAP              IDENT  TSNAP                                                           TSNAP          2     A     
 TSNAP              SST    A                                                               TSNAP          3     A     
 TSNAP                                                                                     TSNAP          4     A     
 TSNAP              SECT   (TSNAP  TEST MODE SNAP PACKAGE)                                 TSNAP          5     A     
 TSNAP                                                                                     TSNAP          6     A     
 TSNAP              NOREF  A                                                               TSNAP          7     A     
 TSNAP                                                                                     TSNAP          8     A     
 TSNAP     B=TSNAP  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             TSNAP          9     A     
 TSNAP                                                                                     TSNAP         10     A     
 TSNAP     #SNAP    IFNE   TEST,0                                                          TSNAP         11     A     
 TSNAP                                                                                     FCC1046       37     A     
 TSNAP              ENTRY  DAR                                                             FCC1046       38     A     
 TSNAP              ENTRY  DAR=                                                            FCC1046       39     A     
 TSNAP              ENTRY  IDP=                                                            FCC1046       40     A     
 TSNAP              ENTRY  IDPFLG                                                          FCC1046       41     A     
 TSNAP              ENTRY  REG=                                                            FCC1046       42     A     
 TSNAP              ENTRY  RSR=                                                            FCC1046       43     A     
 TSNAP              ENTRY  SNP=                                                            FCC1046       44     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1541    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP              ENTRY  SVR=                                                            FCC1046       45     A     
 TSNAP                                                                                     TSNAP         12     A     
 TSNAP    *         IN FTN                                                                 TSNAP         13     A     
 TSNAP              EXT    F.OUT                                                           TSNAP         14     A     
 TSNAP                                                                                     TSNAP         15     A     
 TSNAP    *         IN TABLES                                                              TSNAP         16     A     
 TSNAP              EXT    BASES,CHARMAP,FRA=,LASTCOL,MOVES,N.TABLE,ORIGINS                TSNAP         17     A     
 TSNAP              EXT    SIZES,TT=PAR,TT.PAR,TS=SYM,TS.SYM                               TSNAP         18     A     
 TSNAP                                                                                     TSNAP         19     A     
 TSNAP    *         IN PIG                                                                 TSNAP         20     A     
 TSNAP              EXT    PIK=PS,PIK=XJP                                                  TSNAP         21     A     
 TSNAP                                                                                     TSNAP         22     A     
 TSNAP    *         IN MAP                                                                 TSNAP         23     A     
 TSNAP              EXT    WOD                                                             TSNAP         24     A     
 TSNAP                                                                                     TSNAP         25     A     
 TSNAP    *         IN ALLOC                                                               TSNAP         26     A     
 TSNAP              EXT    ADW,ADW2,ALC                                                    TSNAP         27     A     
 TSNAP                                                                                     TSNAP         28     A     
 TSNAP    *         IN PAR                                                                 TSNAP         29     A     
 TSNAP              EXT    PAR                                                             TSNAP         30     A     
 TSNAP                                                                                     TSNAP         31     A     
 TSNAP    *         IN GEN                                                                 TSNAP         32     A     
 TSNAP              EXT    DUC.1ST,DUC.2ND,DUC.BTH                                         TSNAP         33     A     
 TSNAP                                                                                     TSNAP         34     A     
 TSNAP     DAZ=PS   =      PIK=PS                                                          TSNAP         35     A     
 TSNAP     DAZ=XJP  =      PIK=XJP                                                         TSNAP         36     A     
 TSNAP     F.BDO    =      F.OUT       DEFINE BATCH DEBUG OUTPUT FILE TO BE SAME           TSNAP         37     A     
 TSNAP    *                              AS NORMAL OUTPUT FILE AS DEFINED BY               TSNAP         38     A     
 TSNAP    *                              *L=* CC PARAMETER                                 TSNAP         39     A     
 TSNAP     SN=DMT   =      5           ORDINAL OF 1ST WORD OF *DUMPT* PARAMETER            TSNAP         40     A     
 TSNAP     PRBDO    SPACE  4,8                                                             TSNAP         41     A     
 TSNAP    **        DEFINE BATCH DEBUG OUTPUT MACRO -- *PRBDO*.                            TSNAP         42     A     
 TSNAP                                                                                     TSNAP         43     A     
 TSNAP              PURGMAC PRBDO                                                          TSNAP         44     A     
 TSNAP                                                                                     TSNAP         45     A     
 TSNAP     PRBDO    OPSYN  PLINE                                                           TSNAP         46     A     
 TSNAP     FAA=     SPACE  4,8                                                             TSNAP         47     A     
 TSNAP    **        FAA - FIND ABSOLUTE ADDRESS.                                           TSNAP         48     A     
 TSNAP    *                                                                                TSNAP         49     A     
 TSNAP    *                                                                                TSNAP         50     A     
 TSNAP    *         ENTRY  (X0) = MX0 7*CHAR                                               TSNAP         51     A     
 TSNAP    *                (X1) = 42/0LNAME, 18/0                                          TSNAP         52     A     
 TSNAP    *                                                                                TSNAP         53     A     
 TSNAP    *         EXIT   (X6) = .PL. IF ABS ADDR ASSOCIATED WITH *NAME*                  TSNAP         54     A     
 TSNAP    *                     = .MI. IF NO ADDR KNOWN FOR *NAME* (I.E. NO FIND)          TSNAP         55     A     
 TSNAP    *                                                                                TSNAP         56     A     
 TSNAP    *         USES   X - 2,3,6,7       (INCLUDES ALL CALLS)                          TSNAP         57     A     
 TSNAP    *                A - 2                                                           TSNAP         58     A     
 TSNAP    *                B - 6,7                                                         TSNAP         59     A     
 TSNAP    *                                                                                TSNAP         60     A     
 TSNAP    *         CALLS  /DBG=IDP/SKT                                                    TSNAP         61     A     
 TSNAP                                                                                     TSNAP         62     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1542    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP     #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      TSNAP         63     A     
 TSNAP                                                                                     TSNAP         64     A     
 TSNAP     FAA=     SUBR               ** ENTRY/EXIT **                                    TSNAP         65     A     
 TSNAP              SB6    =XFWA1.0    (B6) = FWA OF (1,0) *RPV* TABLE                     TSNAP         66     A     
 TSNAP              RJ     /DBG=IDP/SKT  SEARCH *RPV* TABLE FOR *NAME*                     TSNAP         67     A     
 TSNAP              SX6    X2+                                                             TSNAP         68     A     
 TSNAP              NZ     X2,EXIT.    IF A FIND                                           TSNAP         69     A     
 TSNAP              MX6    1           SET TO *NO FIND*                                    TSNAP         70     A     
 TSNAP              EQ     EXIT.                                                           TSNAP         71     A     
 TSNAP     #OS      ENDIF                                                                  TSNAP         72     A     
 TSNAP     UIO=     SPACE  4,8                                                             TSNAP         73     A     
 TSNAP    **        UIO= - USER IDP OWNCODE.                                               TSNAP         74     A     
 TSNAP    *                                                                                TSNAP         75     A     
 TSNAP    *                                                                                TSNAP         76     A     
 TSNAP    *         ENTRY  (RA.ORG) =  12/LAST OVERLAY LOADED (0P0S FMT),48/OTHER          TSNAP         77     A     
 TSNAP    *                (UIOA)   =  48/0,12/LAST OVERLAY LOADED ON PREVIOUS             TSNAP         78     A     
 TSNAP    *                              IDP CALL (0P0S FMT)                               TSNAP         79     A     
 TSNAP    *                                                                                TSNAP         80     A     
 TSNAP    *         EXIT   (X1)     =  .MI., I.E. HONOR BREAK                              TSNAP         81     A     
 TSNAP    *                                                                                TSNAP         82     A     
 TSNAP    *                WARNING -- IF THE USER HAS NOT ALLOTTED ENOUGH SPACE            TSNAP         83     A     
 TSNAP    *                  FOR THE USER *SET* NAME TABLE *IDPSET* TO CONTAIN             TSNAP         84     A     
 TSNAP    *                  ALL THE DEFAULT *SET* NMAES, THEN *ADZ* (CALLED BY            TSNAP         85     A     
 TSNAP    *                  *IST*) WILL SENSE TABLE OVERFLOW AND XIT TO *IDP=ER*.         TSNAP         86     A     
 TSNAP    *                  THIS CONDITION SHOULD BE AVOIDED.                             TSNAP         87     A     
 TSNAP    *                                                                                TSNAP         88     A     
 TSNAP    *         USES   X - 0,1,2,3,6,7   (INCLUDES ALL CALLS)                          TSNAP         89     A     
 TSNAP    *                A - 1,2,6                                                       TSNAP         90     A     
 TSNAP    *                B - 6,7                                                         TSNAP         91     A     
 TSNAP    *                                                                                TSNAP         92     A     
 TSNAP    *         CALLS  CLZ,IST                                                         TSNAP         93     A     
 TSNAP                                                                                     TSNAP         94     A     
 TSNAP     #OS      IFNE   .OS,2                                                           FEAT155FA      4     A     
 TSNAP                                                                                     TSNAP         95     A     
 TSNAP     UIO=     SUBR               ** ENTRY/EXIT **                                    TSNAP         96     A     
 TSNAP              SA2    RA.ORG                                                          TSNAP         97     A     
 TSNAP              SA3    UIOA                                                            TSNAP         98     A     
 TSNAP              MX1    1           SET TO *HONOR BREAK*                                TSNAP         99     A     
 TSNAP              AX2    48-0                                                            TSNAP        100     A     
 TSNAP              IX7    X2-X3                                                           TSNAP        101     A     
 TSNAP              BX6    X2                                                              TSNAP        102     A     
 TSNAP              ZR     X7,EXIT.    IF WE ARE STILL IN THE SAME OVERLAY                 TSNAP        103     A     
 TSNAP              SA6    A3                                                              TSNAP        104     A     
 TSNAP              SB6    IDPBA                                                           TSNAP        105     A     
 TSNAP              RJ     CLZ         CLEAR IDP TABLE -- BREAK ADDRESSES                  TSNAP        106     A     
 TSNAP              SB6    IDPSET                                                          TSNAP        107     A     
 TSNAP              RJ     CLZ         CLEAR IDP TABLE -- SET NAMES                        TSNAP        108     A     
 TSNAP              RJ     IST         (RE)INITIALIZE DEFAULT *SET* NAMES                  TSNAP        109     A     
 TSNAP              MX1    1           SET TO *HONOR BREAK*                                TSNAP        110     A     
 TSNAP              EQ     EXIT.                                                           TSNAP        111     A     
 TSNAP                                                                                     TSNAP        112     A     
 TSNAP                                                                                     TSNAP        113     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1543    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP     UIOA     BSSZ   1           USED TO TELL WHETHER OR NOT A NEW OVERLAY           TSNAP        114     A     
 TSNAP    *                              HAS BEEN LOADED SINCE THE LAST *IDP*              TSNAP        115     A     
 TSNAP    *                              CALL-- CONTAINS THE MOST RECENT OVERLAY           TSNAP        116     A     
 TSNAP    *                              LOADED NR FROM *RA.ORG* -- 48/0,12/0P0S           TSNAP        117     A     
 TSNAP     #OS      ENDIF                                                                  FEAT155FA      5     A     
 TSNAP     URO=     SPACE  4,8                                                             TSNAP        118     A     
 TSNAP    **        URO= - USER REG= OWNCODE.                                              TSNAP        119     A     
 TSNAP    *                                                                                TSNAP        120     A     
 TSNAP    *         ENTRY  NONE                                                            TSNAP        121     A     
 TSNAP    *                                                                                TSNAP        122     A     
 TSNAP    *         EXIT   (X1) = .MI. IF SNAP TO BE HONORED, ELSE .PL.                    TSNAP        123     A     
 TSNAP    *                                                                                TSNAP        124     A     
 TSNAP    *         USES   X - 1                                                           TSNAP        125     A     
 TSNAP    *                A - 1                                                           TSNAP        126     A     
 TSNAP    *                                                                                TSNAP        127     A     
 TSNAP    *         CALLS  NONE                                                            TSNAP        128     A     
 TSNAP                                                                                     TSNAP        129     A     
 TSNAP                                                                                     TSNAP        130     A     
 TSNAP     URO=     SUBR               ** ENTRY/EXIT **                                    TSNAP        131     A     
 TSNAP              SA1    =XCO.SNAP                                                       TSNAP        132     A     
 TSNAP              LX1    1RG                                                             TSNAP        133     A     
 TSNAP              BX1    -X1                                                             TSNAP        134     A     
 TSNAP              EQ     EXIT.                                                           TSNAP        135     A     
 TSNAP                                                                                     TSNAP        136     A     
 TSNAP                                                                                     TSNAP        137     A     
 TSNAP     USO=     =      URO=                                                            TSNAP        138     A     
 TSNAP     UFT=     SPACE  4,8                                                             TSNAP        139     A     
 TSNAP    **        UFT= - USER FILE NAME TABLE.                                           TSNAP        140     A     
 TSNAP                                                                                     TSNAP        141     A     
 TSNAP     #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      TSNAP        142     A     
 TSNAP                                                                                     TSNAP        143     A     
 TSNAP     UFT=     BSS    0                                                               TSNAP        144     A     
 TSNAP              VFD    42/0LF.OUT,18/=XF.OUT                                           TSNAP        145     A     
 TSNAP              VFD    42/0LOUTPUT,18/=XF.OUT                                          FCCT001        3     A     
 TSNAP              DATA   0           END OF TABLE MARK                                   TSNAP        146     A     
 TSNAP     #OS      ENDIF                                                                  TSNAP        147     A     
 TSNAP     UKT=     SPACE  4,8                                                             TSNAP        148     A     
 TSNAP    **        UKT= - USER KEYWORD TABLE.                                             TSNAP        149     A     
 TSNAP                                                                                     TSNAP        150     A     
 TSNAP     #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      TSNAP        151     A     
 TSNAP                                                                                     TSNAP        152     A     
 TSNAP     UKT=     BSS    0                                                               TSNAP        153     A     
 TSNAP              VFD    42/0LDUMPT,18/ST=DMT                                            TSNAP        154     A     
 TSNAP              DATA   0           END OF TABLE MARK                                   TSNAP        155     A     
 TSNAP     #OS      ENDIF                                                                  TSNAP        156     A     
 TSNAP    *CALL DBG=IDP                                                                    TSNAP        157     A     
 TSNAP     DBG=IDP  SPACE  4,8                                                             TSNAP        158     A     
 TSNAP              ENTRY  DAR                                                             TSNAP        159          I
          -FCC1046
 TSNAP              ENTRY  DAR=                                                            TSNAP        160          I
          -FCC1046
 TSNAP              ENTRY  IDP=                                                            TSNAP        161          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1544    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
          -FCC1046
 TSNAP              ENTRY  IDPFLG                                                          TSNAP        162          I
          -FCC1046
 TSNAP              ENTRY  REG=                                                            TSNAP        163          I
          -FCC1046
 TSNAP              ENTRY  SNP=                                                            TSNAP        164          I
          -FCC1046
 TSNAP                                                                                     TSNAP        165     A     
 TSNAP              IFNE   .OS,2,1     IF NOT SCOPE 2                                      TSNAP        166     A     
 TSNAP     CLZ      =      /DBG=IDP/CLZ                                                    TSNAP        167     A     
 TSNAP     DAR      =      /DBG=IDP/DAR                                                    TSNAP        168     A     
 TSNAP     DAR=     =      /DBG=IDP/DAR                                                    TSNAP        169     A     
 TSNAP     DCM      =      /DBG=IDP/DCM                                                    TSNAP        170     A     
 TSNAP     FRK      =      /DBG=IDP/FRK                                                    TSNAP        171     A     
 TSNAP     FWAPARM  =      /DBG=IDP/FWAPARM                                                TSNAP        172     A     
 TSNAP     HDR      =      /DBG=IDP/HDR                                                    TSNAP        173     A     
 TSNAP     IDF.BDOP =      /DBG=IDP/IDF.BDOP                                               FCCT001        4     A     
 TSNAP     IDF.SNLP =      /DBG=IDP/IDF.SNLP                                               FCCT001        5     A     
 TSNAP     IDF.XECP =      /DBG=IDP/IDF.XECP                                               FCCT001        6     A     
 TSNAP              IFNE   .OS,2,1     IF NOT SCOPE 2                                      TSNAP        174     A     
 TSNAP     IDPBA    =      /DBG=IDP/IDPBA                                                  TSNAP        175     A     
 TSNAP     IDPFLG   =      /DBG=IDP/IDPFLG                                                 TSNAP        176     A     
 TSNAP              IFNE   .OS,2,1     IF NOT SCOPE 2                                      TSNAP        177     A     
 TSNAP     IDPSA5   =      /DBG=IDP/IDPSA5                                                 TSNAP        178     A     
 TSNAP              IFNE   .OS,2,1     IF NOT SCOPE 2                                      TSNAP        179          I
          -FCCT001
 TSNAP     IDPSB    =      /DBG=IDP/IDPSB                                                  TSNAP        180          I
          -FCCT001
 TSNAP              IFNE   .OS,2,1     IF NOT SCOPE 2                                      TSNAP        181     A     
 TSNAP     IDPSET   =      /DBG=IDP/IDPSET                                                 TSNAP        182     A     
 TSNAP              IFNE   .OS,2,1     IF NOT SCOPE 2                                      TSNAP        183     A     
 TSNAP     IST      =      /DBG=IDP/IST                                                    TSNAP        184     A     
 TSNAP     L.BSL    =      /DBG=IDP/L.BSL                                                  FCCT001        7     A     
 TSNAP     SFN      =      /DBG=IDP/SFN                                                    TSNAP        185          I
          -FCCT007
 TSNAP              IFNE   .OS,2,1     IF NOT SCOPE 2                                      TSNAP        186     A     
 TSNAP     SKT      =      /DBG=IDP/SKT                                                    TSNAP        187     A     
 TSNAP     SNAPLNE  =      /DBG=IDP/SNAPLNE                                                TSNAP        188     A     
 TSNAP     SOB      =      /DBG=IDP/SOB                                                    FCCT001        8     A     
 TSNAP     ROL      =      /DBG=IDP/ROL                                                    TSNAP        189     A     
 TSNAP              TITLE  TSFTN SNAPPING ROUTINES.                                        FCC1046       46     A     
 TSNAP     DAT      SPACE  4,8                                                             TSNAP        190     A     
 TSNAP    **        DAT - DUMP A TABLE.                                                    TSNAP        191     A     
 TSNAP    *                                                                                TSNAP        192     A     
 TSNAP    *                                                                                TSNAP        193     A     
 TSNAP    *         ENTRY  (A1,X1) = ADDR + CNTS OF TABLE ORIGIN (TT.) WORD                TSNAP        194     A     
 TSNAP    *                                                                                TSNAP        195     A     
 TSNAP    *         EXIT   NONE                                                            TSNAP        196     A     
 TSNAP    *                                                                                TSNAP        197     A     
 TSNAP    *         USES   ALL                                                             TSNAP        198     A     
 TSNAP    *                                                                                TSNAP        199     A     
 TSNAP    *         CALLS  COD,DCM,PRIDP                                                   TSNAP        200     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1545    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP                                                                                     TSNAP        201     A     
 TSNAP                                                                                     TSNAP        202     A     
 TSNAP     DAT      SUBR               ** ENTRY/EXIT **                                    TSNAP        203     A     
 TSNAP              SB5    A1+         (B5) = ADDR OF TABLE ORIGIN WORD                    TSNAP        204     A     
 TSNAP              SA1    A1+N.TABLE  (X1) = LEN OF TABLE                                 TSNAP        205     A     
 TSNAP              SA2    DATB                                                            TSNAP        206     A     
 TSNAP              SB6    =XORIGINS                                                       TSNAP        207     A     
 TSNAP              SA3    A2+B1                                                           TSNAP        208     A     
 TSNAP              SB6    B5-B6                                                           TSNAP        209     A     
 TSNAP              SA4    B6+=XPTSN   (X4) = TABLE NAME (-H- FMT)                         TSNAP        210     A     
 TSNAP              SA5    A3+B1                                                           TSNAP        211     A     
 TSNAP              BX6    X2                                                              TSNAP        212     A     
 TSNAP              SA6    SNAPLNE                                                         TSNAP        213     A     
 TSNAP              LX7    X3                                                              TSNAP        214     A     
 TSNAP              SA7    A6+B1                                                           TSNAP        215     A     
 TSNAP              BX6    X4                                                              TSNAP        216     A     
 TSNAP              LX7    X5                                                              TSNAP        217     A     
 TSNAP              SA6    A7+B1                                                           TSNAP        218     A     
 TSNAP              SA7    A6+B1                                                           TSNAP        219     A     
 TSNAP              RJ     =XCOD       CONVERT BINARY TO OCTAL DPC (TBL LEN)               TSNAP        220     A     
 TSNAP              SA6    A7+B1                                                           TSNAP        221     A     
 TSNAP              MX7    0                                                               TSNAP        222     A     
 TSNAP              SA7    A6+B1       MARK EOL                                            TSNAP        223     A     
 TSNAP              SB4    B5          (B4) = ADDR OF TABLE ORIGIN WORD                    TSNAP        224     A     
 TSNAP              PRIDP  SNAPLNE,,1                                                      TSNAP        225     A     
 TSNAP              SA2    B4          (X2) = ORIGIN (FWA) OF TABLE                        TSNAP        226     A     
 TSNAP              MX3    0           (X3) = LWA (NULL)                                   TSNAP        227     A     
 TSNAP              SA4    B4+N.TABLE  (X4) = LENGTH OF TABLE                              TSNAP        228     A     
 TSNAP              RJ     DCM         DUMP CENTRAL MEMORY                                 TSNAP        229     A     
 TSNAP              EQ     EXIT.                                                           TSNAP        230     A     
 TSNAP                                                                                     TSNAP        231     A     
 TSNAP                                                                                     TSNAP        232     A     
 TSNAP     DATB     DIS    2,      DUMP OF TABLE                                           TSNAP        233     A     
 TSNAP    *         DATA   10HTT.NAME                                                      TSNAP        234     A     
 TSNAP              DATA   10H LENGTH =                                                    TSNAP        235     A     
 TSNAP    *         DATA   10H NNNNNNB                                                     TSNAP        236     A     
 TSNAP     DMT      SPACE  4,8                                                             TSNAP        237     A     
 TSNAP    **        DMT - DUMP TABLES.                                                     TSNAP        238     A     
 TSNAP    *                                                                                TSNAP        239     A     
 TSNAP    *                                                                                TSNAP        240     A     
 TSNAP    *                CALLED BY *DUMPT* MACRO.                                        TSNAP        241     A     
 TSNAP    *                                                                                TSNAP        242     A     
 TSNAP    *         ENTRY  LOWER HALF OF *RJ DMT=* WORD HAS FWA OF PARAMETER LIST-         TSNAP        243     A     
 TSNAP    * +       RJ     DMT=                                                            TSNAP        244     A     
 TSNAP    * -       VFD    30/FWA OF PARAMETER LIST                                        TSNAP        245     A     
 TSNAP    *                                                                                TSNAP        246     A     
 TSNAP    *         PARAMETER LIST EXISTS IN LOCAL BLOCK *USE DEBUG*, AS SET UP            TSNAP        247     A     
 TSNAP    *         BY *DUMPT* MACRO.  (SEE *TSTEXT*) --                                   TSNAP        248     A     
 TSNAP    *                                                                                TSNAP        249     A     
 TSNAP    *         VFD    60/LOWER LIMIT (LL)                                             TSNAP        250     A     
 TSNAP    *         VFD    60/UPPER LIMIT (UL)                                             TSNAP        251     A     
 TSNAP    *         VFD    60/INCREMENT (INC)                                              TSNAP        252     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1546    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP    *         VFD    60/10HSNAP NAME   (OR .ZR. IF NO NAME)                          TSNAP        253     A     
 TSNAP    *         VFD    60/0        (USED BY *FRK* TO KEEP SNAP COUNT)                  TSNAP        254     A     
 TSNAP    *         VFD    18/0,21/T2,21/T1                                                TSNAP        255     A     
 TSNAP    *                 .                                                              TSNAP        256     A     
 TSNAP    *                 .                                                              TSNAP        257     A     
 TSNAP    *         VFD    18/0,21/TN,21/TM                                                TSNAP        258     A     
 TSNAP    *         VFD    60/0        END OF TABLE MARK                                   TSNAP        259     A     
 TSNAP    *                                                                                TSNAP        260     A     
 TSNAP    *                WHERE T1,T2,...,TM,TN ARE THE ADDRESS OF TABLE ORIGIN           TSNAP        261     A     
 TSNAP    *                  (TT.) WORDS (SEE *TABLE* MACRO IN *TABLES*).                  TSNAP        262     A     
 TSNAP    *                  T2 AND T1 SPECIFY THAT ALL THE TABLES T1 THRU T2,             TSNAP        263     A     
 TSNAP    *                  INCLUSIVE, ARE TO BE DUMPED.   (T1.LE.T2)                     TSNAP        264     A     
 TSNAP    *                                                                                TSNAP        265     A     
 TSNAP    *         EXIT   NONE                                                            TSNAP        266     A     
 TSNAP    *                                                                                TSNAP        267     A     
 TSNAP    *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)              TSNAP        268     A     
 TSNAP    *                                                                                TSNAP        269     A     
 TSNAP    *         CALLS  DAT,FRK,HDR,RSR,SVR                                             TSNAP        270          I
          -FCCT001
 TSNAP    *         CALLS  DAT,FRK,HDR,RSR,SOB,SVR                                         FCCT001        9     A     
 TSNAP                                                                                     TSNAP        271     A     
 TSNAP                                                                                     TSNAP        272     A     
 TSNAP     DMT=     SUBR   =           ** ENTRY/EXIT **                                    TSNAP        273     A     
 TSNAP              RJ     SVR         SAVE ALL REGISTERS                                  TSNAP        274     A     
 TSNAP              SX1    3           SET TO *EXECUTIVE IS /DMT=/*                        FCCT001       10     A     
 TSNAP              RJ     SOB         SET OUTPUT BIT FLAGS                                FCCT001       11     A     
 TSNAP              SA4    DMT=                                                            TSNAP        275     A     
 TSNAP              LX4    30                                                              TSNAP        276     A     
 TSNAP              SA5    X4-1        (A5,X5) = ADDR + CNTS OF CALLING *RJ*               TSNAP        277     A     
 TSNAP              SX6    X5          (X6) = FWA OF PARAMETER LIST                        TSNAP        278     A     
 TSNAP              SA6    FWAPARM                                                         TSNAP        279     A     
 TSNAP              RJ     FRK         CHECK FREQUENCY PARAMETERS                          TSNAP        280     A     
 TSNAP              ZR     X5,DMT3     IF NO DUMP THIS TIME                                TSNAP        281     A     
 TSNAP              RJ     HDR         OUTPUT HEADING                                      TSNAP        282     A     
 TSNAP              SX2    X5+SN=DMT-1 (X2+1) = ADDR OF 1ST TABLE PARAMETER WORD           TSNAP        283     A     
 TSNAP              SA3    DMTA        INITIALIZE (A3) = ADDR TO STORE THE ADDR OF         TSNAP        284     A     
 TSNAP    *                              THE TABLE ORIGIN WORD FOR THE 1ST TABLE           TSNAP        285     A     
 TSNAP    *                              TO BE DUMPED                                      TSNAP        286     A     
 TSNAP              EQ     DMT2A                                                           TSNAP        287     A     
 TSNAP                                                                                     TSNAP        288     A     
 TSNAP    *         DUMP THE TABLES T1 THRU T2, WHERE T1 AND T2 ARE PICKED UP              TSNAP        289     A     
 TSNAP    *         FROM A SINGLE *DUMPT* TABLE PARAMETER LIST ENTRY.                      TSNAP        290     A     
 TSNAP                                                                                     TSNAP        291     A     
 TSNAP     DMT2     SA1    X1          (A1,X1) = ADDR + CNTS OF TABLE ORIGIN WORD          TSNAP        292     A     
 TSNAP              RJ     DAT         DUMP A TABLE                                        TSNAP        293     A     
 TSNAP              SA2    FWAPARM     (X2) = ADDR OF CURRENT TABLE PARAMETER WORD         TSNAP        294     A     
 TSNAP              SA3    DMTA        (X3) = ADDR OF TABLE ORIGIN (TT.) WORD FOR          TSNAP        295     A     
 TSNAP    *                              TABLE JUST DUMPED                                 TSNAP        296     A     
 TSNAP              SA1    X2          (X1) = 18/0,21/T2,21/T1                             TSNAP        297     A     
 TSNAP              SX6    X3+B1                                                           TSNAP        298     A     
 TSNAP              AX1    21                                                              TSNAP        299     A     
 TSNAP              IX7    X1-X6       (X7) = T2-(TN+1)  *TN.GE.T1*                        TSNAP        300     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1547    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP              SA6    A3+                                                             TSNAP        301     A     
 TSNAP              PL     X7,DMT2     IF NOT FINISHED DUMPING T1 THRU T2                  TSNAP        302     A     
 TSNAP                                                                                     TSNAP        303     A     
 TSNAP    *         PICK UP NEXT TM THRU TN DUMP RANGE FROM THE NEXT *DUMPT*               TSNAP        304     A     
 TSNAP    *         TABLE PARAMETER LIST ENTRY.                                            TSNAP        305     A     
 TSNAP                                                                                     TSNAP        306     A     
 TSNAP     DMT2A    SX6    X2+B1                                                           TSNAP        307     A     
 TSNAP              SA1    X6          (A1,X1) = ADDR + CNTS OF NXT TABLE PARAM WD         TSNAP        308     A     
 TSNAP              SA6    FWAPARM                                                         TSNAP        309     A     
 TSNAP              SX7    X1          (X7) = ADDR OF TABLE ORIGIN WORD FOR NEXT           TSNAP        310     A     
 TSNAP    *                              TABLE TO BE DUMPED                                TSNAP        311     A     
 TSNAP              SA7    A3                                                              TSNAP        312     A     
 TSNAP              NZ     X1,DMT2     IF NOT FINISHED DUMPING                             TSNAP        313     A     
 TSNAP                                                                                     TSNAP        314     A     
 TSNAP     DMT3     RJ     RSR         RESTORE ALL REGISTERS                               TSNAP        315     A     
 TSNAP              EQ     EXIT.                                                           TSNAP        316     A     
 TSNAP                                                                                     TSNAP        317     A     
 TSNAP                                                                                     TSNAP        318     A     
 TSNAP     DMTA     BSSZ   1           SAVE CELL FOR THE ADDRESS OF THE TABLE              TSNAP        319     A     
 TSNAP    *                              ORIGIN (TT.) WORD OF THE NEXT TABLE TO            TSNAP        320     A     
 TSNAP    *                              BE DUMPED.                                        TSNAP        321     A     
 TSNAP     DXP=     SPACE  4,8                                                             TSNAP        322     A     
 TSNAP    **        DXP= - DUMP EXCHANGE PACKAGE.                                          TSNAP        323     A     
 TSNAP    *                                                                                TSNAP        324     A     
 TSNAP    *                                                                                TSNAP        325     A     
 TSNAP    *                BECAUSE SCOPE 2 REPRIEVE HAS NO RESET, THE SYSTEM DUMPS         TSNAP        326     A     
 TSNAP    *         ALL REGISTERS AS THEY WERE DURING REPRIEVE PROCESSING; AND             TSNAP        327     A     
 TSNAP    *         BECAUSE THIS IS NOT USEFUL, THIS ROUTINE DUMPS ALL REGISTERS           TSNAP        328     A     
 TSNAP    *         AS THEY WERE WHEN REPRIEVE WAS CALLED. IT ALSO DUMPS 100               TSNAP        329     A     
 TSNAP    *         WORDS EITHER SIDE OF WHAT THE -P- REGISTER WAS WHEN REPRIEVE           TSNAP        330     A     
 TSNAP    *         WAS CALLED.                                                            TSNAP        331     A     
 TSNAP    *                                                                                TSNAP        332     A     
 TSNAP    *         ENTRY  (A1,X1) = A + C OF 1ST WORD OF EXCHANGE PACKAGE                 TSNAP        333     A     
 TSNAP    *                                                                                TSNAP        334     A     
 TSNAP    *         EXIT   NONE                                                            TSNAP        335     A     
 TSNAP    *                                                                                TSNAP        336     A     
 TSNAP    *         USES   ALL BUT A0,A5,X5                                                TSNAP        337     A     
 TSNAP    *                                                                                TSNAP        338     A     
 TSNAP    *         CALLS  COD,DAR,DCM,PRIDP,TEX                                           TSNAP        339     A     
 TSNAP                                                                                     TSNAP        340     A     
 TSNAP     .OS      IFEQ   .OS,2       IF SCOPE 2                                          TSNAP        341     A     
 TSNAP                                                                                     TSNAP        342     A     
 TSNAP     DXP=     SUBR   =           ** ENTRY/EXIT **                                    TSNAP        343     A     
 TSNAP              RJ     TEX         TRANSFER EXCHANGE PACKAGE REGISTERS                 TSNAP        344     A     
 TSNAP                                                                                     TSNAP        345     A     
 TSNAP    *         DUMP P,RA,FL,EM,RE,FE, AND MA.                                         TSNAP        346     A     
 TSNAP                                                                                     TSNAP        347     A     
 TSNAP     DXP2     SA3    DXPB                                                            TSNAP        348     A     
 TSNAP              SX6    X3-6                                                            TSNAP        349     A     
 TSNAP              ZR     X6,DXP3     IF DONE                                             TSNAP        350     A     
 TSNAP              SX6    X3+B1                                                           TSNAP        351     A     
 TSNAP              SA6    A3                                                              TSNAP        352     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1548    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP              SA2    DXPA+X3     (X2) = .......XX.   (.=BLANK(55B))                  TSNAP        353     A     
 TSNAP              SA1    HARDREG+X3  (X1) = SAVED CONTENTS OF HARDWARE REGISTER          TSNAP        354     A     
 TSNAP              BX6    X2                                                              TSNAP        355     A     
 TSNAP              SA6    =XSNAPLNE                                                       TSNAP        356     A     
 TSNAP              RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                         TSNAP        357     A     
 TSNAP              LX6    3*CHAR      (X6) = .NNNNNN...                                   TSNAP        358     A     
 TSNAP              SA6    A6+B1                                                           TSNAP        359     A     
 TSNAP              MX7    0                                                               TSNAP        360     A     
 TSNAP              SA7    A6+B1       MARK EOL                                            TSNAP        361     A     
 TSNAP              PRIDP  SNAPLNE,3                                                       TSNAP        362     A     
 TSNAP              EQ     DXP2                                                            TSNAP        363     A     
 TSNAP                                                                                     TSNAP        364     A     
 TSNAP    *         HERE TO DUMP ALL REGISTERS.                                            TSNAP        365     A     
 TSNAP                                                                                     TSNAP        366     A     
 TSNAP     DXP3     RJ     DAR         DUMP ALL REGISTERS                                  TSNAP        367     A     
 TSNAP                                                                                     TSNAP        368     A     
 TSNAP    *         HERE TO DUMP 100B WORDS EITHER SIDE OF -P- REGISTER                    TSNAP        369     A     
 TSNAP                                                                                     TSNAP        370     A     
 TSNAP              SA1    HARDREG     (X1) = -P- REGISTER                                 TSNAP        371     A     
 TSNAP              SX4    200B        (X4) = NR OF WORDS TO DUMP (LEN)                    TSNAP        372     A     
 TSNAP              NZ     X1,DXP4     IF -P- REGISTER NONZERO                             TSNAP        373     A     
 TSNAP              SA1    B0          EXTRACT -P- FROM RA+0                               TSNAP        374     A     
 TSNAP              LX1    59-47+18                                                        TSNAP        375     A     
 TSNAP                                                                                     TSNAP        376     A     
 TSNAP     DXP4     MX0    -18                                                             TSNAP        377     A     
 TSNAP              BX1    -X0*X1                                                          TSNAP        378     A     
 TSNAP              SX2    X1-100B     (X2) = FWA TO DUMP                                  TSNAP        379     A     
 TSNAP              RJ     DCM         DUMP CENTRAL MEMORY                                 TSNAP        380     A     
 TSNAP              EQ     EXIT.                                                           TSNAP        381     A     
 TSNAP                                                                                     TSNAP        382     A     
 TSNAP                                                                                     TSNAP        383     A     
 TSNAP     DXPA     DATA   10H1       P  NNNNNN                                            TSNAP        384     A     
 TSNAP              DATA   10H       RA  NNNNNN                                            TSNAP        385     A     
 TSNAP              DATA   10H       FL  NNNNNN                                            TSNAP        386     A     
 TSNAP              DATA   10H       EM  NNNNNN                                            TSNAP        387     A     
 TSNAP              DATA   10H       RE  NNNNNN                                            TSNAP        388     A     
 TSNAP              DATA   10H       FE  NNNNNN                                            TSNAP        389     A     
 TSNAP              DATA   10H       MA  NNNNNN                                            TSNAP        390     A     
 TSNAP                                                                                     TSNAP        391     A     
 TSNAP     DXPB     BSSZ   1                                                               TSNAP        392     A     
 TSNAP     .OS      ENDIF                                                                  TSNAP        393     A     
 TSNAP     PTA      SPACE  4,8                                                             TSNAP        394     A     
 TSNAP    **        PTA -  PRINT TABLE ALLOCATION.                                         TSNAP        395     A     
 TSNAP    *                                                                                TSNAP        396     A     
 TSNAP    *         ENTRY  (X1) = NAME OF CALLER.                                          TSNAP        397     A     
 TSNAP    *                                                                                TSNAP        398     A     
 TSNAP    *         USES   SAVES/RESTORES ALL REGISTERS.                                   TSNAP        399     A     
 TSNAP                                                                                     TSNAP        400     A     
 TSNAP                                                                                     TSNAP        401     A     
 TSNAP     PTA      SUBR   =           ** ENTRY/EXIT **                                    TSNAP        402     A     
 TSNAP              RJ     SVR         SAVE ALL REGISTERS                                  TSNAP        403     A     
 TSNAP                                                                                     TSNAP        404     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1549    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP              SA1    SVX+1                                                           TSNAP        405     A     
 TSNAP              BX6    X1                                                              TSNAP        406     A     
 TSNAP              SA6    PTAB                                                            TSNAP        407     A     
 TSNAP              PLINE  PTAA,,2                                                         TSNAP        408     A     
 TSNAP              RJ     PTO         PRINT TABLE ORIGINS                                 TSNAP        409     A     
 TSNAP                                                                                     TSNAP        410     A     
 TSNAP              RJ     RSR         RESTORE ALL REGISTERS                               TSNAP        411     A     
 TSNAP              EQ     PTAX        EXIT..                                              TSNAP        412     A     
 TSNAP                                                                                     TSNAP        413     A     
 TSNAP     PTAA     DIS    3,    ****  TABLE ALLOCATION AT                                 TSNAP        414     A     
 TSNAP     PTAB     DIS    1,                                                              TSNAP        415     A     
 TSNAP              CON    6L  ****                                                        TSNAP        416     A     
 TSNAP     PTO      SPACE  4,8                                                             TSNAP        417     A     
 TSNAP    **        PTO - PRINT TABLE ORIGINS.                                             TSNAP        418     A     
 TSNAP    *                                                                                TSNAP        419     A     
 TSNAP    *                                                                                TSNAP        420     A     
 TSNAP    *                PRINTS TABLE STATISTICS IN THE FOLLOWING FORMAT--               TSNAP        421     A     
 TSNAP    *     COL 1         1         1         1         (.=BLANK(55B))                 TSNAP        422     A     
 TSNAP    *         ..........TABLE.......ORIGIN......SIZE.....SLOP...                     TSNAP        423     A     
 TSNAP    *         ......NN..NAME........NNNNNN....NNNNNN...NNNNNN...                     TSNAP        424     A     
 TSNAP    *                                                                                TSNAP        425     A     
 TSNAP    *         ENTRY  NONE                                                            TSNAP        426     A     
 TSNAP    *                                                                                TSNAP        427     A     
 TSNAP    *         EXIT   NONE                                                            TSNAP        428     A     
 TSNAP    *                                                                                TSNAP        429     A     
 TSNAP    *         USES   ALL                                                             TSNAP        430     A     
 TSNAP    *                                                                                TSNAP        431     A     
 TSNAP    *         CALLS  COD,PLINE                                                       TSNAP        432     A     
 TSNAP                                                                                     TSNAP        433     A     
 TSNAP                                                                                     TSNAP        434     A     
 TSNAP     PTO      SUBR               ** ENTRY/EXIT **                                    TSNAP        435          I
          -FCC1208
 TSNAP     PTO      SUBR   =                                                               FCC1208       79     A     
 TSNAP              SA0    B0          (A0) = TABLE ORDINAL                                TSNAP        436     A     
 TSNAP              PLINE  PTOA,,2                                                         TSNAP        437          I
          -FCC1208
 TSNAP              MX7    0                                                               FCC1208       80     A     
 TSNAP              SA7    SNAPLNE+5   PRESET END OF LINE                                  FCC1208       81     A     
 TSNAP              PLINE  PTOA,5,1                                                        FCC1208       82     A     
 TSNAP                                                                                     TSNAP        438     A     
 TSNAP     PTO2     SX1    A0                                                              TSNAP        439     A     
 TSNAP              RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- TABLE ORD            TSNAP        440     A     
 TSNAP              SA1    =XPTSN+A0   (X1) = TABLE NAME   (-H- FMT)                       TSNAP        441     A     
 TSNAP              LX6    2*CHAR      (X6) = ......NN..   (.=BLANK(55B))                  TSNAP        442     A     
 TSNAP              BX7    X1                                                              TSNAP        443     A     
 TSNAP              SA6    SNAPLNE                                                         TSNAP        444     A     
 TSNAP              SA7    A6+B1                                                           TSNAP        445          I
          -FCC1208
 TSNAP                                                                                     TSNAP        446          I
          -FCC1208
 TSNAP              SA1    =XBASES+A0  (X1) = TABLE ORIGIN                                 TSNAP        447     A     
 TSNAP              SA7    A6+B1                                                           FCC1208       83     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1550    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP              =X5    X1+FUDGE    (X5) = ORIGIN + FUDGE                               FCC1208       84     A     
 TSNAP              RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- ORIGIN               TSNAP        448     A     
 TSNAP              LX6    2*CHAR                                                          TSNAP        449     A     
 TSNAP              SA6    A7+B1       (X6) = ..NNNNNN..   (.=BLANK(55B))                  TSNAP        450     A     
 TSNAP                                                                                     TSNAP        451     A     
 TSNAP              SA2    =XSIZES+A0  (X2) = TABLE LENGTH                                 TSNAP        452          I
          -FCC1208
 TSNAP              IX5    X1+X2       (X5) = LWA+1 OF TABLE                               TSNAP        453          I
          -FCC1208
 TSNAP              SA3    A1+B1       (X3) = ORIGIN OF NEXT TABLE                         TSNAP        454     A     
 TSNAP              SX5    X5+=XFUDGE                                                      TSNAP        455          I
          -FCC1208
 TSNAP              BX1    X2                                                              TSNAP        456          I
          -FCC1208
 TSNAP              SA1    A0+=XSIZES  (X1) = TABLE LENGTH                                 FCC1208       85     A     
 TSNAP              IX5    X5+X1                                                           FCC1208       86     A     
 TSNAP              IX5    X3-X5       (X5) = AMOUNT OF SLOP SPACE                         TSNAP        457     A     
 TSNAP              RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- LENGTH               TSNAP        458     A     
 TSNAP              LX6    2*CHAR      (X6) = ..NNNNNN..   (.=BLANK(55B))                  TSNAP        459     A     
 TSNAP              SA6    A6+B1                                                           TSNAP        460     A     
 TSNAP                                                                                     TSNAP        461     A     
 TSNAP              BX1    X5                                                              TSNAP        462     A     
 TSNAP              RJ     =XCOD       CONVERT BINARY TO OCTAL DPC -- SLOP                 TSNAP        463     A     
 TSNAP              LX6    2*CHAR                                                          TSNAP        464     A     
 TSNAP              SA6    A6+B1                                                           TSNAP        465     A     
 TSNAP              MX7    0                                                               TSNAP        466          I
          -FCC1208
 TSNAP              SA7    A6+B1       MARK EOL                                            TSNAP        467          I
          -FCC1208
 TSNAP              PLINE  SNAPLNE                                                         TSNAP        468     A     
 TSNAP              SB6    =XN.TABLE-1                                                     TSNAP        469     A     
 TSNAP              SA0    A0+B1                                                           TSNAP        470     A     
 TSNAP              SB7    A0                                                              TSNAP        471     A     
 TSNAP              LT     B7,B6,PTO2  IF MORE TABLES TO GO                                TSNAP        472     A     
 TSNAP              EQ     EXIT.                                                           TSNAP        473     A     
 TSNAP                                                                                     TSNAP        474     A     
 TSNAP                                                                                     TSNAP        475     A     
 TSNAP     PTOA     DIS    5,          TABLE      ORIGIN      SIZE     SLOP                TSNAP        476     A     
 TSNAP     PTS      SPACE  4,8                                                             TSNAP        477     A     
 TSNAP    **        PTS -  PRINT TABLE STATISTICS.                                         TSNAP        478     A     
 TSNAP                                                                                     TSNAP        479     A     
 TSNAP                                                                                     TSNAP        480     A     
 TSNAP     PTS9     RJ     RSR         RESTORE REGISTERS                                   TSNAP        481     A     
 TSNAP                                                                                     TSNAP        482     A     
 TSNAP     PTS      SUBR   =           ** ENTRY/EXIT **                                    TSNAP        483     A     
 TSNAP              RJ     SVR         SAVE REGISTERS                                      TSNAP        484     A     
 TSNAP              SA3    MOVES                                                           TSNAP        485     A     
 TSNAP              SA2    CO.SNAP                                                         TSNAP        486     A     
 TSNAP              LX2    1RC                                                             TSNAP        487     A     
 TSNAP              SX6    X3+B1       COUNT TABLE CRASHES                                 TSNAP        488     A     
 TSNAP              SA6    A3                                                              TSNAP        489     A     
 TSNAP              PL     X2,PTS4     CRASH SNAP NOT DESIRED                              TSNAP        490     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1551    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP              SA1    =XCP.LSTF                                                       TSNAP        491     A     
 TSNAP              ZR     X1,PTS9     IF SHORT LIST                                       TSNAP        492     A     
 TSNAP              PLINE  (=C=  **  TABLE CRASH -- RE-ALLOCATION REQUIRED.=),,1           TSNAP        493     A     
 TSNAP              SA2    ALC                                                             TSNAP        494     A     
 TSNAP              AX2    30                                                              TSNAP        495     A     
 TSNAP              SB7    ADW2                                                            TSNAP        496     A     
 TSNAP              SB7    -B7                                                             TSNAP        497     A     
 TSNAP              SB7    X2+B7                                                           TSNAP        498     A     
 TSNAP              NZ     B7,PTS2     IF NOT CALLED FROM ADDWORD                          TSNAP        499     A     
 TSNAP              PLINE  PTSB                                                            TSNAP        500     A     
 TSNAP              SA2    ADW                                                             TSNAP        501     A     
 TSNAP              AX2    30                                                              TSNAP        502     A     
 TSNAP     PTS2     SX1    X2                                                              TSNAP        503     A     
 TSNAP              RJ     COD                                                             TSNAP        504     A     
 TSNAP              SA6    PTSC1                                                           TSNAP        505     A     
 TSNAP              PLINE  PTSC        PRINT CALL ADDRESS                                  TSNAP        506     A     
 TSNAP                                                                                     TSNAP        507     A     
 TSNAP              SA1    SVB+2                                                           TSNAP        508     A     
 TSNAP              SA2    X1+PTSN                                                         TSNAP        509     A     
 TSNAP              SB5    X1                                                              TSNAP        510     A     
 TSNAP              BX6    X2                                                              TSNAP        511     A     
 TSNAP              SA6    PTSE1                                                           TSNAP        512     A     
 TSNAP              SA1    SVX+0                                                           TSNAP        513     A     
 TSNAP              RJ     COD         CONVERT INCREMENT                                   TSNAP        514     A     
 TSNAP              SA6    PTSE2                                                           TSNAP        515     A     
 TSNAP              SA1    B5+=XSIZES                                                      TSNAP        516     A     
 TSNAP              RJ     COD         CONVERT PREVIOUS SIZE                               TSNAP        517     A     
 TSNAP              SA6    PTSE3                                                           TSNAP        518     A     
 TSNAP              PLINE  PTSE                                                            TSNAP        519     A     
 TSNAP                                                                                     TSNAP        520     A     
 TSNAP              SA1    SVX+3                                                           TSNAP        521     A     
 TSNAP              RJ     COD         CONVERT NECESSARY STORAGE                           TSNAP        522     A     
 TSNAP              SA6    PTSF1                                                           TSNAP        523     A     
 TSNAP              SA1    =XW.TABS                                                        TSNAP        524     A     
 TSNAP              RJ     COD                                                             TSNAP        525     A     
 TSNAP              SA6    PTSF2                                                           TSNAP        526     A     
 TSNAP              PLINE  PTSF                                                            TSNAP        527     A     
 TSNAP     PTS4     SA2    CO.SNAP                                                         TSNAP        528     A     
 TSNAP              LX2    1RT                                                             TSNAP        529     A     
 TSNAP              PL     X2,PTS9     IF TABLE SNAP NOT SELECTED                          TSNAP        530     A     
 TSNAP              RJ     PTO         PRINT TABLE ORIGINS                                 TSNAP        531     A     
 TSNAP                                                                                     TSNAP        532     A     
 TSNAP              EQ     PTS9        EXIT..                                              TSNAP        533     A     
 TSNAP                                                                                     TSNAP        534     A     
 TSNAP     PTSB     DIS    ,/          CALLED FROM *ADDWORD*./                             TSNAP        535     A     
 TSNAP                                                                                     TSNAP        536     A     
 TSNAP     PTSC     DATA   H/          CALLED FROM /                                       TSNAP        537     A     
 TSNAP     PTSC1    DATA   0,0                                                             TSNAP        538     A     
 TSNAP                                                                                     TSNAP        539     A     
 TSNAP     PTSE     DIS    2,  TABLE NUMBER                                                TSNAP        540     A     
 TSNAP     PTSE1    DIS    1,(B2)                                                          TSNAP        541     A     
 TSNAP              DIS    1, ADDING                                                       TSNAP        542     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1552    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP     PTSE2    DIS    1,(X0)                                                          TSNAP        543     A     
 TSNAP              DIS    1, TO PREV                                                      TSNAP        544     A     
 TSNAP     PTSE3    DIS    1,(SIZES+B2)                                                    TSNAP        545     A     
 TSNAP              DATA   0                                                               TSNAP        546     A     
 TSNAP                                                                                     TSNAP        547     A     
 TSNAP     PTSF     DIS    2,  NOW USING                                                   TSNAP        548     A     
 TSNAP     PTSF1    DIS    1,(X3)                                                          TSNAP        549     A     
 TSNAP              DIS    1, OUT OF                                                       TSNAP        550     A     
 TSNAP     PTSF2    DIS    1,(SIZCORE)                                                     TSNAP        551     A     
 TSNAP              DATA   0                                                               TSNAP        552     A     
 TSNAP     SBD      SPACE  4,8                                                             TSNAP        553     A     
 TSNAP    **        SBD -  ENTRY POINT FOR STRING BUFFER DUMP.                             TSNAP        554     A     
 TSNAP                                                                                     TSNAP        555     A     
 TSNAP                                                                                     TSNAP        556     A     
 TSNAP     SBD      SUBR   =           ** ENTRY/EXIT **                                    TSNAP        557     A     
 TSNAP              RJ     SVR         SAVE REGISTERS                                      TSNAP        558     A     
 TSNAP              SA1    CO.SNAP                                                         TSNAP        559     A     
 TSNAP              LX1    1RG         GENERAL SNAP FLAG                                   TSNAP        560     A     
 TSNAP              PL     X1,SBD9     SNAP NOT ON                                         TSNAP        561          I
          -FCC1046
 TSNAP              MI     X1,SBD9     IF GENERAL SNAP NOT ON                              FCC1046       47     A     
 TSNAP              SA4    SBD         (X4) = 30/EQ CALLING ADDRESS+1, 30/0                TSNAP        562     A     
 TSNAP              LX4    30                                                              TSNAP        563     A     
 TSNAP              SA5    X4-1        (A5,X5) = ADDR + CNTS OF CALLING *RJ*               TSNAP        564     A     
 TSNAP              SX6    X5          (X6) = FWA OF PARAMETER LIST                        TSNAP        565     A     
 TSNAP              SA6    FWAPARM                                                         TSNAP        566     A     
 TSNAP              RJ     FRK         CHECK IF TIME TO SNAP                               TSNAP        567     A     
 TSNAP              ZR     X5,SBD9     IF SUPPRESSED THIS TIME                             TSNAP        568     A     
 TSNAP              RJ     HDR         OUTPUT HEADING                                      TSNAP        569     A     
 TSNAP              RJ     SBL         LIST THE STRING BUFFER                              TSNAP        570     A     
 TSNAP                                                                                     TSNAP        571     A     
 TSNAP     SBD9     RJ     RSR         RESTORE REGISTERS                                   TSNAP        572     A     
 TSNAP              EQ     SBD         EXIT...                                             TSNAP        573          I
          -FCC1046
 TSNAP              EQ     EXIT.                                                           FCC1046       48     A     
 TSNAP     SBL      SPACE  4,8                                                             TSNAP        574     A     
 TSNAP    **        SBL -  STRING BUFFER LIST.                                             TSNAP        575     A     
 TSNAP    *         LISTS STRING BUFFER WITHOUT CHECKING ANY SWITCHES.                     TSNAP        576     A     
 TSNAP    *         USES   ALL.                                                            TSNAP        577     A     
 TSNAP                                                                                     TSNAP        578     A     
 TSNAP                                                                                     TSNAP        579     A     
 TSNAP     SBL      SUBR   =           ** ENTRY/EXIT **                                    TSNAP        580     A     
 TSNAP              SA1    =XT.SB                                                          TSNAP        581     A     
 TSNAP              SA3    LASTCOL                                                         TSNAP        582     A     
 TSNAP              BX6    0                                                               TSNAP        583     A     
 TSNAP              SA2    =1H                                                             TSNAP        584     A     
 TSNAP              SA5    X1+SB.HEAD                                                      TSNAP        585     A     
 TSNAP              LX7    X2                                                              TSNAP        586     A     
 TSNAP              SB4    X3-SB.HEAD                                                      TSNAP        587     A     
 TSNAP              SA6    SNAPLNE+6   END-OF-LINE                                         TSNAP        588          I
          -FCC1046
 TSNAP              SA6    SNAPLNE+5   PRESET END OF LINE MARK                             FCC1046       49     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1553    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP              SA7    SNAPLNE+3                                                       TSNAP        589     A     
 TSNAP                                                                                     TSNAP        590     A     
 TSNAP     SBD4     SX1    A5                                                              TSNAP        591          I
          -FCC1046
 TSNAP     SBL4     SX1    A5                                                              FCC1046       50     A     
 TSNAP              SB5    B4          SAVE (B4)                                           TSNAP        592     A     
 TSNAP              RJ     COD         CONVERT ADDRESS TO DPC                              TSNAP        593     A     
 TSNAP              LX6    9*CHAR-6*CHAR                                                   TSNAP        594     A     
 TSNAP              SB4    B5          RESTORE (B4)                                        TSNAP        595     A     
 TSNAP              =X2    2R  -2R=                                                        TSNAP        596     A     
 TSNAP              SX3    X5                                                              TSNAP        597     A     
 TSNAP              IX6    X6-X2                                                           TSNAP        598     A     
 TSNAP              BX1    X5-X3                                                           TSNAP        599     A     
 TSNAP              SA6    SNAPLNE                                                         TSNAP        600     A     
 TSNAP              RJ     SFN                                                             TSNAP        601     A     
 TSNAP              LX6    -CHAR                                                           TSNAP        602          I
          -FCC1046
 TSNAP              SA6    SNAPLNE+4                                                       TSNAP        603          I
          -FCC1046
 TSNAP              SA1    X5+CHARMAP                                                      TSNAP        604          I
          -FCC1046
 TSNAP              RJ     SFN                                                             TSNAP        605          I
          -FCC1046
 TSNAP              LX6    -CHAR                                                           TSNAP        606          I
          -FCC1046
 TSNAP              SA6    SNAPLNE+5                                                       TSNAP        607          I
          -FCC1046
 TSNAP              SA2    X5+CHARMAP                                                      FCC1046       51     A     
 TSNAP              LX6    -2*6                                                            FCC1046       52     A     
 TSNAP              SX3    X2                                                              FCC1046       53     A     
 TSNAP              SA6    SNAPLNE+4                                                       FCC1046       54     A     
 TSNAP              BX1    X2-X3                                                           FCC1046       55     A     
 TSNAP              RJ     SFN         SPACE FILL CHARACTER MAPPING                        FCC1046       56     A     
 TSNAP              LX6    -2*6                                                            FCC1046       57     A     
 TSNAP              =A6    A6-1                                                            FCC1046       58     A     
 TSNAP              BX1    X5                                                              TSNAP        608     A     
 TSNAP              SB3    A5                                                              TSNAP        609     A     
 TSNAP              RJ     WOD         CONVERT CONTENTS TO DPC                             TSNAP        610     A     
 TSNAP              SA6    SNAPLNE+1                                                       TSNAP        611          I
          -FCC1046
 TSNAP              =A7    A6+1                                                            TSNAP        612          I
          -FCC1046
 TSNAP              =A7    A6-1                                                            FCC1046       59     A     
 TSNAP              =A6    A7-1                                                            FCC1046       60     A     
 TSNAP              =B4    B4-1                                                            TSNAP        613     A     
 TSNAP              =A5    B3+1                                                            TSNAP        614     A     
 TSNAP              PLINE  A6-1                                                            TSNAP        615     A     
 TSNAP              PL     B4,SBD4     IF MORE TO GO                                       TSNAP        616          I
          -FCC1046
 TSNAP              PL     B4,SBL4     IF MORE TO GO                                       FCC1046       61     A     
 TSNAP                                                                                     TSNAP        617     A     
 TSNAP              PLINE  ,,1                                                             TSNAP        618     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1554    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP              EQ     SBLX        EXIT..                                              TSNAP        619          I
          -FCC1046
 TSNAP              EQ     EXIT.                                                           FCC1046       62     A     
 TSNAP     SN.PAR   SPACE  4,8                                                             TSNAP        620     A     
 TSNAP    **        SN.PAR - DUMP PARSED FILE (ONLY IF IN TEST MODE)                       TSNAP        621     A     
 TSNAP    *                                                                                TSNAP        622     A     
 TSNAP    *         ENTRY  (TT=PAR) = LENGTH OF PARSED FILE.                               TSNAP        623     A     
 TSNAP    *                                                                                TSNAP        624     A     
 TSNAP    *         EXIT   FORMATTED FILE DUMPED.                                          TSNAP        625     A     
 TSNAP    *                                                                                TSNAP        626     A     
 TSNAP    *         CALLS  PLINE, PIA, SVR, RSR, WOD                                       TSNAP        627     A     
 TSNAP                                                                                     TSNAP        628     A     
 TSNAP                                                                                     TSNAP        629     A     
 TSNAP     SN.PAR   SUBR   =           ** ENTRY/EXIT **                                    TSNAP        630     A     
 TSNAP              RJ     SVR         SAVE REGISTERS.                                     TSNAP        631     A     
 TSNAP              SA1    TT=PAR                                                          TSNAP        632     A     
 TSNAP              SA2    TT.PAR                                                          TSNAP        633     A     
 TSNAP              BX6    0                                                               TSNAP        634     A     
 TSNAP              SA6    SN.PNO                                                          TSNAP        635     A     
 TSNAP              SA5    X2                                                              TSNAP        636     A     
 TSNAP              SB4    X1-1        LENGTH OF PARSED FILE.                              TSNAP        637     A     
 TSNAP              SA0    B4                                                              TSNAP        638     A     
 TSNAP              MI     B4,SN.PAR5  IF EMPTY TABLE                                      TSNAP        639     A     
 TSNAP              SA2    PAR                                                             TSNAP        640     A     
 TSNAP              MX0    -18                                                             TSNAP        641     A     
 TSNAP              AX2    30                                                              TSNAP        642     A     
 TSNAP              BX1    -X0*X2                                                          TSNAP        643     A     
 TSNAP              RJ     COD         CONVERT CALLING ADDRESS                             TSNAP        644     A     
 TSNAP              SA6    SN.CAL                                                          TSNAP        645     A     
 TSNAP              SX1    A0+B1                                                           TSNAP        646     A     
 TSNAP              RJ     COD         CONVERT PARSE FILE LENGTH TO DPC                    TSNAP        647     A     
 TSNAP              LX6    4*CHAR                                                          TSNAP        648     A     
 TSNAP              SA6    SN.LEN                                                          TSNAP        649     A     
 TSNAP              PLINE  SN.HDR,,1                                                       TSNAP        650     A     
 TSNAP                                                                                     TSNAP        651     A     
 TSNAP    **        LOOP ON PARSED FILE                                                    TSNAP        652     A     
 TSNAP                                                                                     TSNAP        653     A     
 TSNAP     SN.PAR1  RJ     SN.POP      PROCESS OPERATOR.                                   TSNAP        654     A     
 TSNAP              PLINE  LINPAR                                                          TSNAP        655     A     
 TSNAP              SB4    A0                                                              TSNAP        656     A     
 TSNAP              MI     B4,SN.PAR5  IF FINISHED                                         TSNAP        657     A     
 TSNAP              RJ     SN.PSYM     PROCESS 1ST SYMBOL.                                 TSNAP        658     A     
 TSNAP              PLINE  LINPAR                                                          TSNAP        659     A     
 TSNAP              SB4    A0                                                              TSNAP        660     A     
 TSNAP              MI     B4,SN.PAR5  IF FINISHED                                         TSNAP        661     A     
 TSNAP              RJ     SN.PSYM     PROCESS 2ND SYMBOL                                  TSNAP        662     A     
 TSNAP              PLINE  LINPAR                                                          TSNAP        663     A     
 TSNAP              PLINE  ,,1         BLANK LINE BETWEEN TURPLES                          TSNAP        664     A     
 TSNAP              SB4    A0                                                              TSNAP        665     A     
 TSNAP              PL     B4,SN.PAR1  IF MORE TO GO.                                      TSNAP        666     A     
 TSNAP                                                                                     TSNAP        667     A     
 TSNAP    **        END OF LOOP                                                            TSNAP        668     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1555    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP                                                                                     TSNAP        669     A     
 TSNAP     SN.PAR5  RJ     RSR         RESTORE REGISTERS.                                  TSNAP        670     A     
 TSNAP              EQ     EXIT.                                                           TSNAP        671     A     
 TSNAP     SN.PSYM  SPACE  4,8                                                             TSNAP        672     A     
 TSNAP    **        SN.PSYM - DUMP SYMBOL FROM PARSED FILE.                                TSNAP        673     A     
 TSNAP                                                                                     TSNAP        674     A     
 TSNAP                                                                                     TSNAP        675     A     
 TSNAP     SN.PSYM  SUBR               ENTRY/EXIT...                                       TSNAP        676     A     
 TSNAP              SA1    SN.PNO                                                          TSNAP        677     A     
 TSNAP              SX6    X1+B1                                                           TSNAP        678     A     
 TSNAP              SA6    A1          UPDATE ORDINAL                                      TSNAP        679     A     
 TSNAP              RJ     COD         CONVERT TO *DPC*                                    TSNAP        680     A     
 TSNAP              LX6    9*CHAR-6*CHAR                                                   TSNAP        681     A     
 TSNAP              SX1    2R  &2R=                                                        TSNAP        682     A     
 TSNAP              BX6    X6-X1       (X6) = .NNNNNN.=.   (.=BLANK(55B))                  TSNAP        683     A     
 TSNAP              SA6    LINNO                                                           TSNAP        684     A     
 TSNAP              LX1    X5                                                              TSNAP        685     A     
 TSNAP              BX0    X5                                                              TSNAP        686     A     
 TSNAP              AX1    P.TAG                                                           TSNAP        687     A     
 TSNAP              IFBIT  X0,INTR,SN.SYM5        IF INTERMEDIATE                          TSNAP        688     A     
 TSNAP              SB2    X1-C.SYM-1                                                      TSNAP        689     A     
 TSNAP              MI     B2,SN.SYM10            IF NOT A VARIABLE.                       TSNAP        690     A     
 TSNAP              SA3    TS=SYM                                                          TSNAP        691     A     
 TSNAP              SA2    TS.SYM                                                          TSNAP        692     A     
 TSNAP              SB7    X3                                                              TSNAP        693     A     
 TSNAP              GT     B2,B7,SN.SYM10        IF NOT A VARIABLE.                        TSNAP        694     A     
 TSNAP              MX0    L.SYM                                                           TSNAP        695     A     
 TSNAP              SA3    X2+B2       LOAD SYMBOL                                         TSNAP        696     A     
 TSNAP              BX6    X0*X3       SYMBOL ONLY                                         TSNAP        697     A     
 TSNAP              EQ     SN.SYM40    CONTINUE                                            TSNAP        698     A     
 TSNAP                                                                                     TSNAP        699     A     
 TSNAP    **        HERE IF NOT INTERMEDIATE                                               TSNAP        700     A     
 TSNAP                                                                                     TSNAP        701     A     
 TSNAP     SN.SYM5  RJ     COD         CONVERT TO OCTAL DPC                                TSNAP        702     A     
 TSNAP              SX1    2RI=                                                            TSNAP        703     A     
 TSNAP              EQ     SN.SYM11                                                        TSNAP        704     A     
 TSNAP                                                                                     TSNAP        705     A     
 TSNAP    **        HERE IF OTHER FORM OF TAG OR CONSTANT.                                 TSNAP        706     A     
 TSNAP                                                                                     TSNAP        707     A     
 TSNAP     SN.SYM10 RJ     COD         CONVERT TO OCTAL DPC                                TSNAP        708     A     
 TSNAP              SX1    2RC=                                                            TSNAP        709     A     
 TSNAP     SN.SYM11 MX0    4*CHAR                                                          TSNAP        710     A     
 TSNAP              LX1    8*CHAR                                                          TSNAP        711     A     
 TSNAP              LX0    2*CHAR                                                          TSNAP        712          I
          -FCC1208
 TSNAP              BX0    -X0*X6                                                          TSNAP        713     A     
 TSNAP              LX0    2*6                                                             FCC1208       87     A     
 TSNAP              BX6    X1+X0       ADD IN I=                                           TSNAP        714     A     
 TSNAP              EQ     SN.SYM40    CONTINUE                                            TSNAP        715     A     
 TSNAP                                                                                     TSNAP        716     A     
 TSNAP    **        HERE WITH SYMBOL CONVERTED TO DPC.                                     TSNAP        717     A     
 TSNAP    *         (X6) = DPC FOR SYMBOL.                                                 TSNAP        718     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1556    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP                                                                                     TSNAP        719     A     
 TSNAP     SN.SYM40 SA6    LINPDP      STORE INTO LINE BUFFER.                             TSNAP        720     A     
 TSNAP              BX1    X5                                                              TSNAP        721     A     
 TSNAP              SB3    A5                                                              TSNAP        722     A     
 TSNAP              RJ     WOD         CONVERT TAG TO OCTAL (CLOBBERS A5)                  TSNAP        723     A     
 TSNAP              SA6    LINPOC                                                          TSNAP        724     A     
 TSNAP              SA7    A6+B1                                                           TSNAP        725     A     
 TSNAP              SA0    A0-B1                                                           TSNAP        726     A     
 TSNAP              SA5    B3+B1                                                           TSNAP        727     A     
 TSNAP              EQ     EXIT.                                                           TSNAP        728     A     
 TSNAP     SN.POP   SPACE  4,8                                                             TSNAP        729     A     
 TSNAP    **        SN.POP - DUMP OPERATOR FROM PARSED FILE.                               TSNAP        730     A     
 TSNAP    *         OUTPUT IS DIVIDED INTO SPECIFIED FIELDS THAT ARE SET-UP DURING         TSNAP        731     A     
 TSNAP    *         PARSING OF A STATEMENT.                                                TSNAP        732     A     
 TSNAP    *                                                                                TSNAP        733     A     
 TSNAP    *         ENTRY  (X5) = OPERATOR.                                                TSNAP        734     A     
 TSNAP    *                                                                                TSNAP        735     A     
 TSNAP    *         EXIT   (X5) = NEXT OPERAND                                             TSNAP        736     A     
 TSNAP                                                                                     TSNAP        737     A     
 TSNAP                                                                                     TSNAP        738     A     
 TSNAP     SN.POP   SUBR               ENTRY/EXIT...                                       TSNAP        739     A     
 TSNAP                                                                                     TSNAP        740     A     
 TSNAP    *         UPDATE ORDINAL AND SET DPC INTO LINE BUFFER.                           TSNAP        741     A     
 TSNAP                                                                                     TSNAP        742     A     
 TSNAP              SA1    SN.PNO                                                          TSNAP        743     A     
 TSNAP              =X6    X1+1                                                            TSNAP        744     A     
 TSNAP              SA6    A1          UPDATE ORDINAL                                      TSNAP        745     A     
 TSNAP              RJ     COD         CONVERT TO *DPC*                                    TSNAP        746     A     
 TSNAP              LX6    9*CHAR-6*CHAR                                                   TSNAP        747     A     
 TSNAP              SX1    2R  &2R=                                                        TSNAP        748     A     
 TSNAP              BX6    X6-X1       (X6) = .NNNNNN.=.   (.=BLANK(55B))                  TSNAP        749     A     
 TSNAP              SA6    LINNO                                                           TSNAP        750     A     
 TSNAP                                                                                     TSNAP        751     A     
 TSNAP    *         CONVERT OPERATORE PROCESSOR ADDRESS TO DPC                             TSNAP        752     A     
 TSNAP                                                                                     TSNAP        753     A     
 TSNAP              BX1    X5                                                              TSNAP        754     A     
 TSNAP              AX1    -18                                                             TSNAP        755     A     
 TSNAP              RJ     COD         CONVERT JUMP ADDRESS TO *DPC*                       TSNAP        756     A     
 TSNAP              SA6    LINJPAD     STORE IN LINE BUFFER.                               TSNAP        757     A     
 TSNAP                                                                                     TSNAP        758     A     
 TSNAP    *         CONVERT OPERATOR CODE TO DPC                                           TSNAP        759     A     
 TSNAP                                                                                     TSNAP        760     A     
 TSNAP              SA1    =7HST.NO.                                                       TSNAP        761     A     
 TSNAP              SB2    X5-LG.SYM                                                       TSNAP        762     A     
 TSNAP              BX6    X1                                                              TSNAP        763     A     
 TSNAP              PL     B2,SN.POP5  IF NOT AN OPERATOR.                                 TSNAP        764     A     
 TSNAP              SA2    X5+CHARMAP                                                      TSNAP        765     A     
 TSNAP              MX0    L.CDPC                                                          TSNAP        766     A     
 TSNAP              BX1    X0*X2                                                           TSNAP        767     A     
 TSNAP              RJ     SFN         PAD OUT WITH BLANKS.                                TSNAP        768     A     
 TSNAP                                                                                     TSNAP        769     A     
 TSNAP    *         DETERMINE DOMINANT MODE OF OPERATOR                                    TSNAP        770     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1557    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP                                                                                     TSNAP        771     A     
 TSNAP     SN.POP5  LX6    -CHAR                                                           TSNAP        772     A     
 TSNAP              SA6    LINOPR      OPERATOR IN DPC                                     TSNAP        773     A     
 TSNAP              BX0    X5                                                              TSNAP        774     A     
 TSNAP              MX1    -L.DMOD                                                         TSNAP        775     A     
 TSNAP              AX0    P.DMOD                                                          TSNAP        776     A     
 TSNAP              BX3    -X1*X0                                                          TSNAP        777     A     
 TSNAP              SA2    X3+SN.DMOD                                                      TSNAP        778     A     
 TSNAP              BX0    X5                                                              TSNAP        779     A     
 TSNAP              BX6    X2                                                              TSNAP        780     A     
 TSNAP              MX1    -L.MODC                                                         TSNAP        781     A     
 TSNAP              =A6    A6+1        OPERATOR DOMINANT MODE                              TSNAP        782     A     
 TSNAP                                                                                     TSNAP        783     A     
 TSNAP    *         DETERMINE IF MODE CONVERSION ON OPERANDS                               TSNAP        784     A     
 TSNAP              AX0    P.MODC                                                          TSNAP        785     A     
 TSNAP              BX3    -X1*X0                                                          TSNAP        786     A     
 TSNAP              SA2    =1H                                                             TSNAP        787     A     
 TSNAP              ZR     X3,SN.POP6  IF NO MODE CONVERSION                               TSNAP        788     A     
 TSNAP              SA2    =10H MODE CONV                                                  TSNAP        789     A     
 TSNAP     SN.POP6  BX6    X2                                                              TSNAP        790     A     
 TSNAP              =A6    A6+1                                                            TSNAP        791     A     
 TSNAP                                                                                     TSNAP        792     A     
 TSNAP    *         DETERMINE TYPE OF OPERANDS                                             TSNAP        793     A     
 TSNAP                                                                                     TSNAP        794     A     
 TSNAP              SA2    X5+CHARMAP                                                      TSNAP        795     A     
 TSNAP              SB7    DUC.1ST                                                         TSNAP        796     A     
 TSNAP              SB7    -B7                                                             TSNAP        797     A     
 TSNAP              SB7    X2+B7                                                           TSNAP        798     A     
 TSNAP              SB2    SN.1ST                                                          TSNAP        799     A     
 TSNAP              ZR     B7,SN.POP7                                                      TSNAP        800     A     
 TSNAP              SB7    DUC.BTH                                                         TSNAP        801     A     
 TSNAP              SB7    -B7                                                             TSNAP        802     A     
 TSNAP              SB7    X2+B7                                                           TSNAP        803     A     
 TSNAP              SB2    SN.BOTH                                                         TSNAP        804     A     
 TSNAP              ZR     B7,SN.POP7                                                      TSNAP        805     A     
 TSNAP              SB7    DUC.2ND                                                         TSNAP        806     A     
 TSNAP              SB7    -B7                                                             TSNAP        807     A     
 TSNAP              SB7    X2+B7                                                           TSNAP        808     A     
 TSNAP              SB2    SN.2ND                                                          TSNAP        809     A     
 TSNAP              ZR     B7,SN.POP7                                                      TSNAP        810     A     
 TSNAP              SB2    SN.NULL                                                         TSNAP        811     A     
 TSNAP     SN.POP7  SA3    B2                                                              TSNAP        812     A     
 TSNAP              BX6    X3                                                              TSNAP        813     A     
 TSNAP              =A6    A6+1                                                            TSNAP        814     A     
 TSNAP                                                                                     TSNAP        815     A     
 TSNAP    *         CONVERT OPERATOR WORD TO DPC/OCTAL                                     TSNAP        816     A     
 TSNAP                                                                                     TSNAP        817     A     
 TSNAP              BX1    X5                                                              TSNAP        818     A     
 TSNAP              SB3    A5                                                              TSNAP        819     A     
 TSNAP              RJ     WOD                                                             TSNAP        820     A     
 TSNAP              SA6    LINPOC                                                          TSNAP        821     A     
 TSNAP              SA7    A6+B1                                                           TSNAP        822     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1558    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP                                                                                     TSNAP        823     A     
 TSNAP    *         UPDATE POINTERS.                                                       TSNAP        824     A     
 TSNAP                                                                                     TSNAP        825     A     
 TSNAP              SA0    A0-B1                                                           TSNAP        826     A     
 TSNAP              =A5    B3+1                                                            TSNAP        827     A     
 TSNAP              EQ     EXIT.                                                           TSNAP        828     A     
 TSNAP                                                                                     TSNAP        829     A     
 TSNAP     SN.PNO   DATA   0           RELATIVE NUMBER ON LISTING OF DUMP.                 TSNAP        830     A     
 TSNAP                                                                                     TSNAP        831     A     
 TSNAP    **        LINE IMAGE FOR DUMPING CONTENTS OF A PARSED FILE ELEMENT.              TSNAP        832     A     
 TSNAP                                                                                     TSNAP        833     A     
 TSNAP     LINPAR   BSS    0                                                               TSNAP        834     A     
 TSNAP     LINNO    DATA   0                                                               TSNAP        835     A     
 TSNAP     LINPOC   DATA   0           ENTRY 1ST HALF                                      TSNAP        836     A     
 TSNAP              DATA   0           ENTRY 2ND HALF                                      TSNAP        837     A     
 TSNAP              DATA   10H                                                             TSNAP        838     A     
 TSNAP     LINJPAD  BSS    0           JUMP ADDRESS OF OPERATOR.                           TSNAP        839     A     
 TSNAP     LINPDP   DATA   0                                                               TSNAP        840     A     
 TSNAP     LINOPR   DATA   0           OPERATOR DPC                                        TSNAP        841     A     
 TSNAP     LINDMOD  DATA   0           DOMINANT MODE                                       TSNAP        842     A     
 TSNAP     LINMODC  DATA   0           MODE CONVERSION                                     TSNAP        843     A     
 TSNAP     LINTYP   DATA   0           TYPE OF OPERANDS                                    TSNAP        844     A     
 TSNAP                                                                                     TSNAP        845     A     
 TSNAP    **        DOMINANT MODE *DPC*                                                    TSNAP        846     A     
 TSNAP                                                                                     TSNAP        847     A     
 TSNAP     SN.DMOD  DIS    1, CHAMELEON                                                    TSNAP        848     A     
 TSNAP              DIS    1, LOGICAL                                                      TSNAP        849     A     
 TSNAP              DIS    1, INTEGER                                                      TSNAP        850     A     
 TSNAP              DIS    1, REAL                                                         TSNAP        851     A     
 TSNAP              DIS    1, DOUBLE                                                       TSNAP        852     A     
 TSNAP              DIS    1, COMPLEX                                                      TSNAP        853     A     
 TSNAP                                                                                     TSNAP        854     A     
 TSNAP    **        TYPE OF OPERANDS                                                       TSNAP        855     A     
 TSNAP                                                                                     TSNAP        856     A     
 TSNAP     SN.1ST   DATA   8L FIRST                                                        TSNAP        857     A     
 TSNAP     SN.2ND   DATA   8L SECOND                                                       TSNAP        858     A     
 TSNAP     SN.BOTH  DATA   8L BOTH                                                         TSNAP        859     A     
 TSNAP     SN.NULL  DATA   8L NONE                                                         TSNAP        860     A     
 TSNAP                                                                                     TSNAP        861     A     
 TSNAP    **        HEADER LINE FOR EACH TIME PARSED OUTPUT IS REQUESTED.                  TSNAP        862     A     
 TSNAP                                                                                     TSNAP        863     A     
 TSNAP     SN.HDR   DATA   30H      (DUMP OF PARSED FILE.)                                 TSNAP        864     A     
 TSNAP              DATA   20H CALLED FROM  ------                                         TSNAP        865     A     
 TSNAP     SN.CAL   DATA   0                                                               TSNAP        866     A     
 TSNAP              DATA   40H      CURRENT LENGTH OF TT.PAR TABLE =                       TSNAP        867     A     
 TSNAP     SN.LEN   DATA   0                                                               TSNAP        868     A     
 TSNAP              DATA   2L                                                              TSNAP        869     A     
 TSNAP     ST=      SPACE  4,8                                                             TSNAP        870     A     
 TSNAP    **        ST= - STATEMENT PROCESSORS FOR USER *IDP* COMMANDS.                    TSNAP        871     A     
 TSNAP    *                                                                                TSNAP        872     A     
 TSNAP    *                                                                                TSNAP        873     A     
 TSNAP    *                THIS ROUTINE PROCESSES *TS* ONLY *IDP* COMMANDS--               TSNAP        874     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1559    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP    *                                                                                TSNAP        875     A     
 TSNAP    *         DUMPT  T1,T2,...,TN                                                    TSNAP        876     A     
 TSNAP    *                                                                                TSNAP        877     A     
 TSNAP    *         ENTRY  (IDPSB) = TOKEN FORM OF STATEMENT                               TSNAP        878          I
          -FCCT001
 TSNAP    *         ENTRY  (A5,X5) = A+C OF TOKEN THAT TERMINATED KEYWORD                  FCCT001       12     A     
 TSNAP    *                                                                                TSNAP        879     A     
 TSNAP    *         EXIT TO *IDP=MN*                                                       TSNAP        880     A     
 TSNAP     ST=DMT   SPACE  4,8                                                             TSNAP        881     A     
 TSNAP    **        HERE TO PROCESS *DUMPT T1,T2,...,TN*.                                  TSNAP        882     A     
 TSNAP                                                                                     TSNAP        883     A     
 TSNAP     #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      TSNAP        884     A     
 TSNAP                                                                                     TSNAP        885     A     
 TSNAP     ST=DMT   SX6    IDPSB+2                                                         TSNAP        886          I
          -FCCT001
 TSNAP     ST=DMT   SX6    A5                                                              FCCT001       13     A     
 TSNAP              MX7    0                                                               TSNAP        887     A     
 TSNAP              SA6    IDPSA5      SAVE (A5) = NEXT TOKEN ADDR                         TSNAP        888     A     
 TSNAP              SB6    =XPTSN                                                          TSNAP        889     A     
 TSNAP              SA7    B6+=XN.TABLE-1  SET *TT.END* NAME WORD TO END OF TABLE          TSNAP        890     A     
 TSNAP    *                                  MARK                                          TSNAP        891     A     
 TSNAP                                                                                     TSNAP        892     A     
 TSNAP     ST=DMT2  SA5    X6                                                              TSNAP        893     A     
 TSNAP              MX0    7*CHAR                                                          TSNAP        894     A     
 TSNAP              ZR     X5,IDP=MN   IF EOS ENCOUNTERED                                  TSNAP        895     A     
 TSNAP              SX6    X5-O.VAR                                                        TSNAP        896     A     
 TSNAP              NZ     X6,ST=DMT3  IF NOT A NAME TOKEN                                 TSNAP        897     A     
 TSNAP              BX1    X0*X5                                                           TSNAP        898     A     
 TSNAP              RJ     =XSFN       SPACE FILL NAME                                     TSNAP        899     A     
 TSNAP              BX1    X6          (X1) = 10HTABLE NAME                                TSNAP        900     A     
 TSNAP              SB6    =XPTSN      (B6) = FWA OF TABLE NAME WORDS (-H- FMT)            TSNAP        901     A     
 TSNAP              RJ     SKT         SEARCH TABLE FOR MATCH                              TSNAP        902     A     
 TSNAP              ZR     X2,ST=DMT3  IF NO FIND                                          TSNAP        903     A     
 TSNAP              SA1    B7+ORIGINS  (A1,X1) = ADDR + CNTS OF TABLE ORIGIN WORD          TSNAP        904     A     
 TSNAP              RJ     DAT         DUMP A TABLE                                        TSNAP        905     A     
 TSNAP                                                                                     TSNAP        906     A     
 TSNAP     ST=DMT3  SA1    IDPSA5                                                          TSNAP        907     A     
 TSNAP              SX6    X1+B1                                                           TSNAP        908     A     
 TSNAP              SA6    A1                                                              TSNAP        909     A     
 TSNAP              EQ     ST=DMT2                                                         TSNAP        910     A     
 TSNAP     #OS      ENDIF                                                                  TSNAP        911     A     
 TSNAP     TEX      SPACE  4,8                                                             TSNAP        912     A     
 TSNAP    **        TEX - TRANSFER EXCHANGE PACKAGE REGISTERS.                             TSNAP        913     A     
 TSNAP    *                                                                                TSNAP        914     A     
 TSNAP    *                                                                                TSNAP        915     A     
 TSNAP    *                THIS ROUTINE WILL TRANSFER THE CONTENTS OF THE                  TSNAP        916     A     
 TSNAP    *         REGISTERS IN THE SAVED EXCHANGE PACKAGE TO THE REGISTER SAVE           TSNAP        917     A     
 TSNAP    *         AREA (SVB,SVA,SVX -- AS SET UP BY *COMCSVR*). A SUBSEQUENT             TSNAP        918     A     
 TSNAP    *         CALL TO *RSR=* WOULD RESTORE ALL REGISTERS TO THEIR VALUES             TSNAP        919     A     
 TSNAP    *         AT THE TIME OF THE EXCHANGE.                                           TSNAP        920     A     
 TSNAP    *                                                                                TSNAP        921     A     
 TSNAP    *         ENTRY  (A1,X1) = A + C OF 1ST WORD OF EXCHANGE PACKAGE                 TSNAP        922     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1560    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP    *                                                                                TSNAP        923     A     
 TSNAP    *         EXIT   NONE                                                            TSNAP        924     A     
 TSNAP    *                                                                                TSNAP        925     A     
 TSNAP    *         USES   X - 0,1,6,7                                                     TSNAP        926     A     
 TSNAP    *                A - 1,6,7                                                       TSNAP        927     A     
 TSNAP    *                B - 2,3,4,5,7                                                   TSNAP        928     A     
 TSNAP    *                                                                                TSNAP        929     A     
 TSNAP    *         CALLS  NONE                                                            TSNAP        930     A     
 TSNAP                                                                                     TSNAP        931     A     
 TSNAP                                                                                     TSNAP        932     A     
 TSNAP     TEX      SUBR               ** ENTRY/EXIT **                                    TSNAP        933     A     
 TSNAP              SA1    A1+16-1     (X1) = LAST WORD OF 16 WORD EXCHANGE PKG            TSNAP        934     A     
 TSNAP              SB2    =XSVB                                                           TSNAP        935     A     
 TSNAP              SB3    =XSVA                                                           TSNAP        936     A     
 TSNAP              SB4    =XSVX                                                           TSNAP        937     A     
 TSNAP              SB5    HARDREG                                                         TSNAP        938     A     
 TSNAP              SB7    7           (B7) = LOOP COUNT -N-                               TSNAP        939     A     
 TSNAP              MX0    -18                                                             TSNAP        940     A     
 TSNAP                                                                                     TSNAP        941     A     
 TSNAP    *         RESTORE -X- REGISTERS.                                                 TSNAP        942     A     
 TSNAP                                                                                     TSNAP        943     A     
 TSNAP     TEX2     BX6    X1                                                              TSNAP        944     A     
 TSNAP              SA6    B4+B7                                                           TSNAP        945     A     
 TSNAP              SB7    B7-B1       N-1                                                 TSNAP        946     A     
 TSNAP              SA1    A1-B1                                                           TSNAP        947     A     
 TSNAP              GE     B7,B0,TEX2  IF MORE -X- REGS TO GO                              TSNAP        948     A     
 TSNAP                                                                                     TSNAP        949     A     
 TSNAP    *         RESTORE -B- AND -A- REGS, AND SAVE P,RA,FL,EM,RE,FE,MA.                TSNAP        950     A     
 TSNAP                                                                                     TSNAP        951     A     
 TSNAP              SB7    7           (B7) = LOOP COUNT -N-                               TSNAP        952     A     
 TSNAP                                                                                     TSNAP        953     A     
 TSNAP     TEX3     BX6    -X0*X1      (X6) = (B-N-)                                       TSNAP        954     A     
 TSNAP              LX1    -18                                                             TSNAP        955     A     
 TSNAP              BX7    -X0*X1      (X7) = (A-N-)                                       TSNAP        956     A     
 TSNAP              SA6    B2+B7                                                           TSNAP        957     A     
 TSNAP              SA7    B3+B7                                                           TSNAP        958     A     
 TSNAP              LX1    -18                                                             TSNAP        959     A     
 TSNAP              BX6    -X0*X1      (X6) = P,RA,FL,EM,RE,FE,OR MA                       TSNAP        960     A     
 TSNAP              SA6    B5+B7                                                           TSNAP        961     A     
 TSNAP              SB7    B7-B1       N-1                                                 TSNAP        962     A     
 TSNAP              SA1    A1-B1                                                           TSNAP        963     A     
 TSNAP              GE     B7,B0,TEX3  IF NOT DONE                                         TSNAP        964     A     
 TSNAP              EQ     EXIT.                                                           TSNAP        965     A     
 TSNAP                                                                                     TSNAP        966     A     
 TSNAP                                                                                     TSNAP        967     A     
 TSNAP     HARDREG  BSSZ   8           SAVED HARDWARE REGISTERS                            TSNAP        968     A     
 TSNAP    *         BSSZ   1           SAVED P                                             TSNAP        969     A     
 TSNAP    *         BSSZ   1           SAVED RA                                            TSNAP        970     A     
 TSNAP    *         BSSZ   1           SAVED FL                                            TSNAP        971     A     
 TSNAP    *         BSSZ   1           SAVED EM                                            TSNAP        972     A     
 TSNAP    *         BSSZ   1           SAVED RE                                            TSNAP        973     A     
 TSNAP    *         BSSZ   1           SAVED FE                                            TSNAP        974     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1561    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TSNAP   
  
 TSNAP    *         BSSZ   1           SAVED MA                                            TSNAP        975     A     
 TSNAP    *         BSSZ   1           DUMMY FOR CONSISTENCY                               TSNAP        976     A     
 TSNAP     CTEXT    SPACE  4,8                                                             FCC1046       63     A     
 TSNAP    *         COMMON DECKS.                                                          FCC1046       64     A     
 TSNAP                                                                                     FCC1046       65     A     
 TSNAP                                                                                     FCC1046       66     A     
 TSNAP    *CALL COMCCDD                                                                    TSNAP        977     A     
 TSNAP    *CALL COMCCOD                                                                    TSNAP        978     A     
 TSNAP    *CALL COMCDXB                                                                    TSNAP        979     A     
 TSNAP    *CALL COMCSFN                                                                    FCCT007        4     A     
 TSNAP    *CALL COMCSVR                                                                    TSNAP        980     A     
 TSNAP     SVR=     SPACE  4,8                                                             TSNAP        981     A     
 TSNAP              ENTRY  SVR=,RSR=                                                       TSNAP        982          I
          -FCC1046
 TSNAP     RSR      =      RSR=                                                            TSNAP        983     A     
 TSNAP              ENTRY  RSR                                                             TSNAP        984     A     
 TSNAP     SVR      =      SVR=                                                            TSNAP        985     A     
 TSNAP              ENTRY  SVR                                                             TSNAP        986     A     
 TSNAP                                                                                     TSNAP        987     A     
 TSNAP     #SVR     IF     -DEF,#SVR   IF LOCAL REGISTER SAVE AREA                         TSNAP        988     A     
 TSNAP              ECHO   4,R=(B,A,X)                                                     TSNAP        989     A     
 TSNAP     SV_R     =      /COMCSVR/SVREG+/COMCSVR/SV_R                                    TSNAP        990     A     
 TSNAP     SAV.R    =      SV_R                                                            TSNAP        991     A     
 TSNAP              ENTRY  SV_R,SAV.R                                                      TSNAP        992     A     
 TSNAP              ENTRY  SV=R                                                            TSNAP        993     A     
 TSNAP     #SVR     ENDIF                                                                  TSNAP        994     A     
 TSNAP                                                                                     TSNAP        995     A     
 TSNAP     #SNAP    ENDIF                                                                  TSNAP        996     A     
 TSNAP                                                                                     TSNAP        997     A     
 TSNAP              LIST   D                                                               TSNAP        998     A     
 TSNAP              END                                                                    TSNAP        999     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - TSNAP   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          TSNAP                      999       961
          FEAT155FA                    2         2
          FCC1046                     30        30
          FCC1208                      9         9
          FCCT001                     11        11
          FCCT007                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
 INIT     *DECK INIT                                                                       INIT           1     A     
 INIT               IDENT  INIT                                                            INIT           2     A     
 INIT      INIT     SECT   (TS MODE INITIALIZATION)                                        FEAT126C     228     A     
 INIT                                                                                      INIT           3     A     
 INIT               SST    A,EXIT.                                                         INIT           4     A     
 INIT               NOREF  A,EXIT.                                                         INIT           5     A     
 INIT                                                                                      INIT           6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1562    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
 INIT      B=INIT   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             INIT           7     A     
 INIT                                                                                      INIT           8     A     
 INIT               ENTRY  ADWT,DPTA,EQUA,SCR,SAVE,FCA                                     INIT           9     A     
 INIT               ENTRY  DECA,HOLLSKL,SCR2,TRVA,AGNK,CALLTAG,FIN,BIAS,CON1               INIT          10          I
          -FEAT155G 
 INIT               ENTRY  DECA,HOLLSKL,SCR2,TRVA,AGNK,CALLTAG,BIAS,CON1                   FEAT155G     391     A     
 INIT               ENTRY  CON2,CLOSREP,DA,DATEMP,DATEMPL,DIM,DIM.MUL,DLEN,DVT             INIT          11     A     
 INIT               ENTRY  INDX,INC,I.DIT,LI,LL,LPINF,MP,NONANSI,N.DIMS,N.ITEM             INIT          12     A     
 INIT               ENTRY  N.SUBS,N.VSUB,ORD,ORGI,PL,REPFLAG,RL,SDPF,SELIST,SIGN           INIT          13     A     
 INIT               ENTRY  SST1,SSTL,SUBN,TEMP,TMP,UL,FORSKEL,OSTACK                       INIT          14     A     
 INIT               ENTRY  FWAASF,FWAARG,FWAREF,SVB6,CDOTG,ESTACK,ASFERR                   INIT          15     A     
 INIT               ENTRY  ASFARG,CST.BOS                                                  INIT          16     A     
 INIT               ENTRY  FTO                                                             INIT          17     A     
 INIT                                                                                      INIT          18     A     
 INIT     *         IN FTN                                                                 INIT          19     A     
 INIT               EXT    CO.RND,CP.CARD,CP.PAGE,LOP=O,LOP=R,LOP=X,PLIMIT,TIME1           INIT          20          I
          -FEAT155E 
 INIT               EXT    F.IN,F.OUT,F.LGO,FV.LGO,F.LF,F.RMAP                             INIT          21          I
          -FEAT155E 
 INIT               EXT    CO.PD,CO.PS,CO.RND,CP.CARD,CP.PAGE                              FEAT155E     301          I
          -FEAT155EA
 INIT               EXT    CO.RND,CP.CARD,CP.PAGE,CP.PD,CP.PS                              FEAT155EA     33          I
          -FCCA422
 INIT               EXT    CO.RND,CP.CARD,CP.PAGE,CP.PD,LCP.PS                             FCCA422       50     A     
 INIT               EXT    FV.LGO,F.IN,F.LF,F.LGO,F.OUT,F.RMAP                             FEAT155E     302     A     
 INIT               EXT    LOP=O,LOP=R,LOP=X,PLIMIT,TIME1                                  FEAT155E     303     A     
 INIT                                                                                      INIT          22     A     
 INIT     *         IN TABLES                                                              INIT          23     A     
 INIT               EXT    BINIO,CDD,ICA,REFIO                                             INIT          24          I
          -FEAT155G 
 INIT               EXT    BINIO,CDD,REFIO                                                 FEAT155G     392     A     
 INIT                                                                                      INIT          25     A     
 INIT     *         IN ERRORS                                                              INIT          26     A     
 INIT               EXT    ANSI.SW                                                         INIT          27     A     
 INIT                                                                                      INIT          28     A     
 INIT     *         IN BATCH                                                               INIT          29     A     
 INIT               EXT    RUN.X                                                           INIT          30     A     
 INIT                                                                                      INIT          31     A     
 INIT     *         IN HEADER                                                              INIT          32     A     
 INIT               EXT    PPAD                                                            INIT          33     A     
 INIT                                                                                      INIT          34     A     
 INIT     *         IN PIG                                                                 INIT          35     A     
 INIT               EXT    PIG.SW,WIN                                                      INIT          36          I
          -FCC0787
 INIT               EXT    WIN                                                             FCC0787      128     A     
 INIT                                                                                      INIT          37     A     
 INIT     *         IN MAP                                                                 INIT          38          I
          -FEAT155G 
 INIT               EXT    LPS.R0,LPS.CP                                                   INIT          39          I
          -FEAT155G 
 INIT                                                                                      INIT          40          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1563    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
 INIT     *         IN END                                                                 INIT          41     A     
 INIT               EXT    BT.IDNT,BT.IDN9                                                 INIT          42     A     
 INIT                                                                                      INIT          43     A     
 INIT     *         IN ALLOC                                                               INIT          44     A     
 INIT               EXT    ERT                                                             INIT          45     A     
 INIT                                                                                      INIT          46     A     
 INIT     *         IN MAIN                                                                INIT          47     A     
 INIT               EXT    AFSA,AFSB                                                       INIT          48          I
          -FEAT155G 
 INIT               EXT    AFSA                                                            FEAT155G     393     A     
 INIT                                                                                      INIT          49     A     
 INIT      FIRSTLIT LIT    0LFIRSTLIT.                                                     INIT          50     A     
 INIT                                                                                      INIT          51     A     
 INIT                                                                                      INIT          52     A     
 INIT      BSSX     BSS    0           BASE ADDRESS OF SCRATCH CELLS                       INIT          53     A     
 INIT      BSSX.    SET    0                                                               INIT          54     A     
 INIT     *                                                                                INIT          55          I
          -FEAT155G 
 INIT     *                PART E  -  THE *END* CARD                                       INIT          56          I
          -FEAT155G 
 INIT     *                                                                                INIT          57          I
          -FEAT155G 
 INIT     *         AUTHOR:  TOO SHORT TO NEED ONE.                                        INIT          58          I
          -FEAT155G 
 INIT     *                  CONTROL DATA CORP.                                            INIT          59          I
          -FEAT155G 
 INIT     *                  SUNNYVALE OPERATIONS, CALIF.                                  INIT          60          I
          -FEAT155G 
 INIT     *                                                                                INIT          61          I
          -FEAT155G 
 INIT     *         COPYRIGHT   CONTROL DATA CORPORATION, 1970.                            INIT          62          I
          -FEAT155G 
 INIT      FIN      SPACE  4,8                                                             INIT          63          I
          -FEAT155G 
 INIT     **        THE SYMBOL *FIN* IS DEFINED AS THE LAST WORD ADDRESS OCCUPIED          INIT          64          I
          -FEAT155G 
 INIT     *         BY THE (1,0) OVERLAY                                                   INIT          65          I
          -FEAT155G 
 INIT      FCA      SPACE  4,8                                                             INIT          66     A     
 INIT     **        FCA -  FINISHED WITH COMPASS ASSEMBLY.                                 INIT          67     A     
 INIT     *                                                                                INIT          68     A     
 INIT     *         ENTRY  THE (1,0) HAS JUST BEEN RELOADED AFTER RETURNING FROM           INIT          69     A     
 INIT     *                *COMPASS*, AND THE INPUT FILE IS NOT FINISHED.                  INIT          70     A     
 INIT     *                                                                                INIT          71     A     
 INIT     *         EXIT   TO *RUN1* TO BEGIN NEXT PROGRAM-UNIT.                           INIT          72     A     
 INIT     *                                                                                INIT          73     A     
 INIT     *         CALLS  IMO                                                             INIT          74     A     
 INIT                                                                                      INIT          75     A     
 INIT                                                                                      INIT          76     A     
 INIT      FCA      BSS    0           ENTRY...                                            INIT          77     A     
 INIT               RJ     IMO         INITIALIZE MASTER OVERLAY                           INIT          78     A     
 INIT                                                                                      INIT          79     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1564    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
 INIT     **        SET UP (CP.CARD) THE WAY *RNC* WOULD HAVE.                             INIT          80     A     
 INIT     *                INSURE THAT THE END-OF-LINE TERMINATOR IS EXACTLY 10            INIT          81     A     
 INIT     *                ZERO CHARACTERS.                                                INIT          82     A     
 INIT     *         ALSO, RESET (AFSA) = END-OF-CARD ADDRESS.                              INIT          83          I
          -FCC1328X 
 INIT                                                                                      INIT          84     A     
 INIT      #RM      IFNE   CP#RM,0                                                         INIT          85     A     
 INIT                                                                                      INIT          86     A     
 INIT     *         ZERO OUT UNUSED BITS IN LAST WORD OF CARD IMAGE.                       INIT          87     A     
 INIT     *                (CODE STOLEN FROM SCANNER.)                                     INIT          88     A     
 INIT                                                                                      INIT          89     A     
 INIT               SA2    =XF.IN      (X2) = ADDRESS OF INPUT FILE FIT                    INIT          90     A     
 INIT               FETCH  X2,RL,X1    RETURNS RECORD LENGTH (CHARS.) IN X1                INIT          91     A     
 INIT               IX2    X1+X1                                                           INIT          92     A     
 INIT               SX3    X1+9                                                            INIT          93     A     
 INIT               SX1    52429       (2**19)/10 + 1                                      INIT          94     A     
 INIT               IX3    X3*X1                                                           INIT          95     A     
 INIT               AX3    19          RECORD LENGTH (WORDS) IN X3                         INIT          96     A     
 INIT               LX1    X2,B1                                                           INIT          97     A     
 INIT               SB6    X3                                                              INIT          98     A     
 INIT               IX2    X2+X1       RECORD LENGTH (BITS)                                INIT          99     A     
 INIT               BX4    X3                                                              INIT         100     A     
 INIT               LX3    6                                                               INIT         101     A     
 INIT               SA1    =XCP.CARD-1+B6    LAST WORD OF LINE                             INIT         102     A     
 INIT               LX4    2                                                               INIT         103     A     
 INIT               IX3    X3-X4       LINE LINGTH (BITS)                                  INIT         104     A     
 INIT               MX4    1                                                               INIT         105     A     
 INIT               IX3    X3-X2       UNUSED BIT COUNT                                    INIT         106     A     
 INIT               SB2    X3-59                                                           INIT         107     A     
 INIT               AX4    -B2                                                             INIT         108     A     
 INIT               BX6    X4*X1       DISCARD UNUSED BITS                                 INIT         109     A     
 INIT               AX4    6                                                               INIT         110     A     
 INIT               SA6    A1                                                              INIT         111     A     
 INIT               NZ     X4,FCA2     IF TERMINATOR AT LEAST 12 BITS LONG                 INIT         112     A     
 INIT               MX7    0                                                               INIT         113     A     
 INIT               SA7    A6+B1       TERMINATE LINE WITH 60 ZERO BITS                    INIT         114     A     
 INIT      FCA2     BSS    0                                                               INIT         115     A     
 INIT      #RM      ENDIF                                                                  INIT         116     A     
 INIT               SA3    CP.CARD                                                         INIT         117     A     
 INIT               MX0    -2*CHAR                                                         INIT         118     A     
 INIT      FCA3     BX4    -X0*X3                                                          INIT         119     A     
 INIT               =A3    A3+1                                                            INIT         120     A     
 INIT               NZ     X4,FCA3     IF NOT END OF IMAGE                                 INIT         121     A     
 INIT               =A5    A3-1                                                            INIT         122     A     
 INIT               SB6    A3                                                              INIT         123     A     
 INIT               BX6    0                                                               INIT         124     A     
 INIT               MX7    -1                                                              INIT         125     A     
 INIT               NZ     X5,FCA4     IF NOT FULL WORD END-OF-LINE MARK                   INIT         126     A     
 INIT               =A4    A5-1                                                            INIT         127     A     
 INIT               MX3    -CHAR                                                           INIT         128     A     
 INIT               =B6    B6-1                                                            INIT         129     A     
 INIT               BX5    -X3*X4                                                          INIT         130     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1565    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
 INIT               NZ     X5,FCA5     IF NOT 11-CHARACTER END-OF-LINE                     INIT         131     A     
 INIT               SX7    1R                                                              INIT         132     A     
 INIT               BX6    X4+X7       CHANGE TO 10-CHAR E-O-L                             INIT         133     A     
 INIT               SA6    A4                                                              INIT         134     A     
 INIT               EQ     FCA5                                                            INIT         135     A     
 INIT                                                                                      INIT         136     A     
 INIT      FCA4     IX4    X5+X7       LOCATE TRAILING BIT                                 INIT         137     A     
 INIT               SA3    =40404040404040404040B                                          INIT         138     A     
 INIT               SA6    B6          MARK END OF IMAGE                                   INIT         139     A     
 INIT               BX7    -X5*X4                                                          INIT         140     A     
 INIT               =B7    60-CHAR+1                                                       INIT         141     A     
 INIT               BX4    X3*X7       40B WHERE TRAILING 00B WERE                         INIT         142     A     
 INIT               LX6    X4,B7                                                           INIT         143     A     
 INIT               SA3    =10H                                                            FCC1328X     542     A     
 INIT               IX7    X4-X6                                                           INIT         144     A     
 INIT               BX4    X4+X7       77B WHERE TRAILING 00B WERE                         INIT         145     A     
 INIT               SA3    =1H                                                             INIT         146          I
          -FCC1328X 
 INIT               BX6    X4*X3                                                           INIT         147     A     
 INIT               IX7    X5+X6       APPEND TRAILING BLANKS                              INIT         148     A     
 INIT               SA7    A5                                                              INIT         149     A     
 INIT                                                                                      INIT         150     A     
 INIT      FCA5     SX7    B6                                                              INIT         151          I
          -FCC1328X 
 INIT               SA7    AFSA        SAVE END-OF-CARD ADDRESS                            INIT         152          I
          -FCC1328X 
 INIT      FCA5     SB7    =XCP.CARD-1                                                     FCC1328X     543     A     
 INIT               SX7    B6-B7       (X7) = NR OF WORDS IN SOURCE LINE IMAGE             FCC1328X     544     A     
 INIT               SA7    =XL.CARD                                                        FCC1328X     545     A     
 INIT                                                                                      INIT         153     A     
 INIT               SA1    FV.LGO                                                          INIT         154     A     
 INIT               ZR     X1,FCA6     IF BINARY SUPPRESSED                                INIT         155     A     
 INIT               SETFIL FILE=F.LGO,MODE=RESET                                           INIT         156     A     
 INIT                                                                                      INIT         157     A     
 INIT               IFNE   CP#RM,7,1                                                       INIT         158     A     
 INIT               RECALL F.LGO                                                           INIT         159     A     
 INIT                                                                                      INIT         160     A     
 INIT                                                                                      INIT         161     A     
 INIT      FCA6     RJ     =XTIMER                                                         INIT         162     A     
 INIT               SA6    =XTIME1                                                         INIT         163     A     
 INIT               EQ     RUN.X       EXIT..                                              INIT         164     A     
 INIT      RUN.0    SPACE  4,8                                                             INIT         165     A     
 INIT     **        FTO - FIRST TIME ONLY CODE.                                            INIT         166     A     
 INIT     *                                                                                INIT         167     A     
 INIT     *         ACTUALLY PART OF PRIMARY INITIALIZATION. SETS UP FIT/FET,              INIT         168     A     
 INIT     *         OPENS FILES, AND OTHER THINGS THAT CANNOT BE DONE BY CODE              INIT         169     A     
 INIT     *         WHICH RESIDES IN A BUFFER.                                             INIT         170     A     
 INIT                                                                                      INIT         171     A     
 INIT                                                                                      INIT         172     A     
 INIT      FTO      SUBR               ENTRY/EXIT..                                        INIT         173     A     
 INIT                                                                                      FEAT155H     117     A     
 INIT     *         INITIALIZE WORKING COPY OF LISTING FLAGS.                              FEAT155H     118     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1566    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
 INIT                                                                                      FEAT155H     119     A     
 INIT               MVE    =XL.MSTR,=XLSTMSTR,=XLSTWRKG                                    FEAT155H     120     A     
 INIT                                                                                      FEAT155H     121     A     
 INIT               SX6    =XMIN.TFL                                                       FCC0813      180     A     
 INIT               SA6    =XCP.MXFL   INITIALIZE MAX FL USED                              FCC0813      181     A     
 INIT               SX1    =XFIN       LWA+1 OF (2,0) OVERLAY                              INIT         174          I
          -FCC0813
 INIT               SX1    FIN         LWA+1 OF (1,0) OVERLAY                              FCC0813      182          I
          -FEAT155G 
 INIT               SX1    =XFIN       LWA+1 OF (1,0) OVERLAY                              FEAT155G     394     A     
 INIT               SB3    X1                                                              INIT         175          I
          -FEAT155G 
 INIT               SA2    LOP=O                                                           FEAT155G     395     A     
 INIT               MI     X2,FTO10    IF OBJECT LIST ON                                   FEAT155G     396     A     
 INIT               SX1    =XFIN.OL    TRASH LIST CODE                                     FEAT155G     397     A     
 INIT               SA2    =XLOP=M                                                         FEAT155G     398     A     
 INIT               MI     X2,FTO10    IF MAP ON                                           FEAT155G     399     A     
 INIT               SX1    =XFIN.OLR   TRASH LIST AND MAP CODE                             FEAT155G     400     A     
 INIT      FTO10    SB3    X1                                                              FEAT155G     401     A     
 INIT               SA2    =XRSELECT                                                       INIT         176     A     
 INIT               PL     X2,FTO1     IF SHORT OR NO REF MAP                              INIT         177     A     
 INIT               SETFIL FILE=F.RMAP,MODE=INIT,FWA=X1                                    INIT         178     A     
 INIT      FTO1     SA1    FV.LGO                                                          INIT         179     A     
 INIT               SX6    B3          LWA OF REF BUFFER                                   INIT         180          I
          -FCC1608X 
 INIT               ZR     X1,FTO2     IF BINARY OUTPUT SUPPRESSED (B=0)                   INIT         181          I
          -FCC1608X 
 INIT               SA2    LOP=O                                                           FCC1608X      28     A     
 INIT               NZ     X1,FTO1.5   IF BINARY OUTPUT                                    FCC1608X      29     A     
 INIT               PL     X2,FTO2     IF LONG FILE NOT USED                               FCC1608X      30     A     
 INIT      FTO1.5   BSS                                                                    FCC1608X      31     A     
 INIT               SETFIL FILE=F.LF,MODE=INIT,FWA=B3                                      INIT         182     A     
 INIT               SA1    FV.LGO                                                          FCC1608X      32     A     
 INIT               ZR     X1,FTO2     IF NO BINARY OUTPUT                                 FCC1608X      33     A     
 INIT               SX6    L.SB        LENGTH OF STRING BUFFER                             INIT         183          I
          -FCC0813
 INIT               LX6    18                                                              INIT         184          I
          -FCC0813
 INIT                                                                                      INIT         185          I
          -FCC0813
 INIT      #RM      IFEQ   CP#RM,0                                                         INIT         186          I
          -FCC0813
 INIT               SA6    F.LGO+I.CBSET     SET LGO BUFL = L.SB                           INIT         187          I
          -FCC0813
 INIT      #RM      ELSE                                                                   INIT         188          I
          -FCC0813
 INIT               SA6    F.LGO+I.HBSET     SET LGO BUFL = L.SB                           INIT         189          I
          -FCC0813
 INIT      #RM      ENDIF                                                                  INIT         190          I
          -FCC0813
 INIT                                                                                      INIT         191          I
          -FCC0813
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1567    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
 INIT               SETFIL FILE=F.LGO,MODE=INIT,FWA=B3                                     INIT         192     A     
 INIT               SX6    B2          FWA OF LGO                                          INIT         193          I
          -FCC1608X 
 INIT      FTO2     SA6    =XF.SB      SET STRING BUFFER FWA (OVERLAYS LGO BUF)            INIT         194          I
          -FCC0813  -FCC1608X 
 INIT               SX6    X6+L.SB                                                         INIT         195          I
          -FCC0813  -FCC1608X 
 INIT               SA6    =XF.TABS    FWA OF TABLES                                       INIT         196          I
          -FCC0813  -FCC1608X 
 INIT      FTO2     SA6    =XF.TABS    FWA OF TABLES                                       FCC0813      183          I
          -FCC1608X 
 INIT               SB3    B2          FWA OF LGO                                          FCC1608X      34     A     
 INIT      FTO2     BSS                                                                    FCC1608X      35     A     
 INIT               SX6    B3                                                              FCC1608X      36     A     
 INIT               SA6    =XF.TABS    FWA OF TABLES                                       FCC1608X      37     A     
 INIT               SA2    =XCP.NFLS   CM FIELD LENGTH                                     INIT         197          I
          -FEAT155D 
 INIT               IX6    X2-X6                                                           INIT         198          I
          -FEAT155D 
 INIT               SA6    =XW.TABS    AMOUNT OF CORE TO BE MANAGED                        INIT         199          I
          -FEAT155D 
 INIT                                                                                      INIT         200     A     
 INIT     *         OPEN IN AND OUT FILES.  OPEN LGO IF NOT DESELECTED BY                  INIT         201     A     
 INIT     *         CONTROL CARD OPTION (B=0).                                             INIT         202     A     
 INIT                                                                                      INIT         203     A     
 INIT               OPEN   F.OUT,NR,RCL                                                    FCC1200       29     A     
 INIT                                                                                      FCC1200       30     A     
 INIT               OPEN   F.OUT,NR,RCL                                                    FEAT126A    1021          I
          -FEAT155EB
 INIT                                                                                      FEAT126A    1022          I
          -FEAT155EB
 INIT      #RM      IFNE   CP#RM,0                                                         INIT         204     A     
 INIT               OPEN   F.OUT,NR,RCL                                                    FEAT155EB      6          I
          -FCC1200
 INIT               OPEN   F.IN                                                            INIT         205          I
          -FCCA580
 INIT               OPEN   F.IN,,RRCL                                                      FCCA580       12     A     
 INIT               STORE  X2,MRL=100D                                                     INIT         206     A     
 INIT               OPEN   F.OUT                                                           INIT         207          I
          -FEAT126A 
 INIT               SA1    FV.LGO                                                          INIT         208     A     
 INIT               ZR     X1,FTO25    IF B=0 SELECTED                                     INIT         209     A     
 INIT               OPEN   F.LGO                                                           INIT         210          I
          -FCCA580
 INIT               OPEN   F.LGO,,RCL                                                      FCCA580       13     A     
 INIT                                                                                      INIT         211     A     
 INIT      #RM      ENDIF                                                                  INIT         212     A     
 INIT                                                                                      FEAT126A    1023     A     
 INIT     *         IF *REW* PARAMETER IS SELECTED, REWIND INPUT AND LGO FILES.            INIT         213     A     
 INIT      FTO25    SA1    =XCO.REW                                                        INIT         214     A     
 INIT               PL     X1,FTO3     IF *REW* NOT SELECTED                               INIT         215     A     
 INIT               REWIND F.IN                                                            INIT         216     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1568    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
 INIT               SA1    FV.LGO                                                          INIT         217     A     
 INIT               ZR     X1,FTO3     IF B=0 SELECTED                                     INIT         218     A     
 INIT               REWIND F.LGO                                                           INIT         219     A     
 INIT      FTO3     BSS    0                                                               INIT         220     A     
 INIT                                                                                      FEAT126A    1024     A     
 INIT      #RM      IFEQ   CP#RM,0                                                         INIT         221     A     
 INIT               READ   F.IN        START UP INPUT BUFFER                               INIT         222     A     
 INIT      #RM      ENDIF                                                                  INIT         223     A     
 INIT                                                                                      INIT         224     A     
 INIT     *         INITIALIZE PAGE SIZE AND PRINT DENSITY.                                FEAT155E     304          I
          -FCC1200
 INIT               SA1    CO.PS                                                           FEAT155E     305          I
          -FEAT155EA-FCC1200
 INIT               SA1    CP.PS                                                           FEAT155EA     34          I
          -FCC1200
 INIT               SX6    X1-4                                                            FEAT155E     306          I
          -FCC1200
 INIT               SA6    A1                                                              FEAT155E     307          I
          -FCC1200
 INIT     *         INITIALIZE PRINT DENSITY                                               FCC1200       31          I
          -FCC1658X 
 INIT               SA2    CO.PD                                                           FEAT155E     308          I
          -FEAT155EA-FCC1658X 
 INIT               SA2    CP.PD                                                           FEAT155EA     35          I
          -FCC1658X 
 INIT               ZR     X2,FTO4     IF PD NOT FOUND ON CONTROL CARD                     FEAT155E     309          I
          -FCC1658X 
 INIT               WRITEC F.OUT,CO.PD,1     SET PRINT DENSITY                             FEAT155E     310          I
          -FEAT155EA-FCC1658X 
 INIT               WRITEC F.OUT,CP.PD,1     SET PRINT DENSITY                             FEAT155EA     36          I
          -FCC1658X 
 INIT                                                                                      FEAT155E     311          I
          -FCC1658X 
 INIT      FTO4     RJ     IMO         GO DO SECONDARY INITIALIZATION                      INIT         225          I
          -FCC1658X 
 INIT               RJ     IMO         INITIALIZE MAIN OVERLAY                             FCC1658X       6     A     
 INIT                                                                                      INIT         226     A     
 INIT     *         MOVE CONTROL CARD OPTIONS AND COLUMN 73 POINTER TO SUBHDR.             INIT         227          I
          -FEAT126A 
 INIT                                                                                      INIT         228          I
          -FEAT126A 
 INIT               SA1    =XTL.CCOP                                                       INIT         229          I
          -FEAT126A 
 INIT               BX6    X1                                                              INIT         230          I
          -FEAT126A 
 INIT               SA6    =XHDRCC                                                         INIT         231          I
          -FEAT126A 
 INIT               SA1    A1+B1                                                           INIT         232          I
          -FEAT126A 
 INIT               BX6    X1                                                              INIT         233          I
          -FEAT126A 
 INIT               SA6    A6+B1                                                           INIT         234          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1569    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
          -FEAT126A 
 INIT               SA1    A1+B1                                                           INIT         235          I
          -FEAT126A 
 INIT               BX6    X1                                                              INIT         236          I
          -FEAT126A 
 INIT               SA6    A6+B1                                                           INIT         237          I
          -FEAT126A 
 INIT               SA3    =10H  /73                                                       INIT         238          I
          -FEAT126A 
 INIT               LX7    X3                                                              INIT         239          I
          -FEAT126A 
 INIT               SA7    =XSUBHDR+10                                                     INIT         240          I
          -FEAT126A 
 INIT                                                                                      INIT         241          I
          -FEAT126A 
 INIT               EQ     EXIT.                                                           INIT         242          I
          -FEAT126A 
 INIT               SA2    =XCO.PW                                                         FEAT126A    1025          I
          -CP139FC
 INIT               SA2    =XCP.PW                                                         CP139FC      200     A     
 INIT      #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A    1026     A     
 INIT               NZ     X2,FTO5     IF PW OPTION ON CONTROL CARD                        FEAT126A    1027     A     
 INIT               SA1    F.OUT+I.DT  PICK UP DEVICE TYPE WORD                            FEAT126A    1028     A     
 INIT               AX1    48          GET DEVICE TYPE FIELD                               FEAT126A    1029          I
          -FCC0859
 INIT                                                                                      FEAT126A    1030          I
          -FCC0859
 INIT               IFEQ   .OS,1,2     IF OPERATING SYSTEM IS NOS                          FEAT126A    1031          I
          -FEAT126AC-FCC0859
 INIT      #OS2     IFEQ   .OS,1       IF OPERATING SYSTEM IS NOS                          FEAT126AC      5          I
          -FCC0859
 INIT               SB2    X1-2RTT                                                         FEAT126A    1032          I
          -FCC0859
 INIT               SKIP   1                                                               FEAT126A    1033          I
          -FEAT126AC-FCC0859
 INIT               SB2    X1+1677B    ADD COMPLEMENT OF DEVISE TYPE (SCOPE 3)             FEAT126A    1034          I
          -FEAT126AC-FCC0859
 INIT      #OS2     ELSE                                                                   FEAT126AC      6          I
          -FCC0859
 INIT               AX1    6                                                               FEAT126AC      7          I
          -FCC0859
 INIT               SB2    X1+16B      ADD COMPLIMENT OF DEVISE TYPE (SCOPE 3)             FEAT126AC      8          I
          -FCC0859
 INIT      #OS2     ENDIF                                                                  FEAT126AC      9          I
          -FCC0859
 INIT                                                                                      FEAT126A    1035          I
          -FCC0859
 INIT               NZ     B2,EXIT.    IF NOT TERMINAL FILE                                FEAT126A    1036          I
          -FCC0859
 INIT               SX2    72          SET PAGE WIDTH TO 72 CHARACTERS DEFAULT             FEAT126A    1037          I
          -FEAT126AB-FCC0859
 INIT               SX2    PW.TTY      SET PAGE WIDTH TO TTY DEFAULT                       FEAT126AB     17          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1570    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
          -FCC0859
 INIT      #OS2     IFEQ   .OS,1       IF OPERATING SYSTEM IS NOS                          FCC0859        5     A     
 INIT               AX1    48          GET DEVICE TYPE FIELD                               FCC0859        6     A     
 INIT               SB2    X1-2RTT                                                         FCC0859        7     A     
 INIT               NZ     B2,EXIT.    IF NOT A TERMINAL FILE                              FCC0859        8          I
          -FCC1658X 
 INIT               NZ     B2,FTO9     IF NOT A TERMINAL FILE                              FCC1658X       7     A     
 INIT               SX2    PW.TTY-1    ADJUST FOR CARRIAGE CONTROL CHARACTER               FCC0859        9     A     
 INIT      #OS2     ELSE                                                                   FCC0859       10     A     
 INIT               AX1    54                                                              FCC0859       11     A     
 INIT               SB2    X1+16B                                                          FCC0859       12     A     
 INIT               NZ     B2,EXIT.    IF NOT A TERMIANL FILE                              FCC0859       13          I
          -FCC1658X 
 INIT               NZ     B2,FTO9     IF NOT A TERMINAL FILE                              FCC1658X       8     A     
 INIT               SX2    PW.TTY                                                          FCC0859       14     A     
 INIT      #OS2     ENDIF                                                                  FCC0859       15     A     
 INIT                                                                                      FCC1658X       9     A     
 INIT               MX7    0                                                               FCC1658X      10     A     
 INIT               SA7    CP.PD       CLEAR OUT PAGE DENSITY CELL                         FCC1658X      11     A     
 INIT               EQ     FTO6                                                            FEAT126A    1038     A     
 INIT                                                                                      FEAT126A    1039     A     
 INIT      #OS      ELSE                                                                   FEAT126A    1040     A     
 INIT               ZR     X2,EXIT.    NOT IN PW MODE                                      FEAT126A    1041          I
          -FCC1658X 
 INIT               ZR     X2,FTO9     IF NOT *PW* MODE                                    FCC1658X      12     A     
 INIT      #OS      ENDIF                                                                  FEAT126A    1042     A     
 INIT                                                                                      FEAT126A    1043     A     
 INIT      FTO5     SX1    X2-126                                                          FEAT126A    1044     A     
 INIT               PL     X1,FTO8     IF PW .GE. 126                                      FEAT126A    1045     A     
 INIT      FTO6     SA3    =XCP.LSTF                                                       FEAT126A    1046     A     
 INIT               MX7    0                                                               FEAT126A    1047          I
          -FCC1328X 
 INIT               BX7    0                                                               FCC1328X     546     A     
 INIT               MX0    2*CHAR                                                          FCC1328X     547     A     
 INIT               SA1    =XTL.PNAM+1                                                     FEAT126A    1048     A     
 INIT               ZR     X3,FTO7     IF L=0                                              FEAT126A    1049     A     
 INIT               SA1    =XO.TTLA-1                                                      FEAT126A    1050     A     
 INIT               SA4    =2L1        SET FOR PAGE EJECT                                  FEAT126A    1051     A     
 INIT               =A3    A1+1                                                            FEAT126A    1052     A     
 INIT               MX0    2*CHAR                                                          FEAT126A    1053          I
          -FCC1328X 
 INIT               BX5    -X0*X3                                                          FEAT126A    1054     A     
 INIT               BX6    X5+X4                                                           FEAT126A    1055     A     
 INIT               SA6    A3          ADD CARRIAGE CONTROL TO O.TTLA                      FEAT126A    1056     A     
 INIT      FTO7     SA7    A1          ADD ZERO TERMINATOR                                 FEAT126A    1057     A     
 INIT               SA1    =XTL.PAGE-1                                                     FEAT126A    1058          I
          -FCC1328X 
 INIT               LX1    5*CHAR                                                          FEAT126A    1059          I
          -FCC1328X 
 INIT               BX6    X1                                                              FEAT126A    1060          I
          -FCC1328X 
 INIT               SA6    A1                                                              FEAT126A    1061          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1571    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
          -FCC1328X 
 INIT                                                                                      FEAT126A    1062          I
          -FCC0859
 INIT               IFNE   .OS,1,1     IF NOT NOS OPERATING SYSTEM                         FEAT126A    1063          I
          -FCC0859
 INIT               SX2    X2+B1                                                           FEAT126A    1064          I
          -FCC0859
 INIT                                                                                      FEAT126A    1065          I
          -FCC0859
 INIT               SX2    X2+B1       ADD 1 CHARACTER FOR CARRIAGE CONTROL                FCC0859       16     A     
 INIT               SX0    52429                                                           FEAT126A    1066     A     
 INIT               SA1    =XTL.PAGE-1 (X1) = ......PAGE   (.=BLANK(55B))                  FCC1328X     548     A     
 INIT               IX3    X2*X0                                                           FEAT126A    1067     A     
 INIT               AX3    19          (X3) = [PAGE WIDTH/10]                              FEAT126A    1068     A     
 INIT               SX4    10                                                              FEAT126A    1069     A     
 INIT               IX5    X4*X3                                                           FEAT126A    1070     A     
 INIT               LX1    10*CHAR-4*CHAR                                                  FCC1328X     549     A     
 INIT               IX2    X2-X5       (X2) = REMAINDER AFTER DIVIDE BY 10                 FEAT126A    1071     A     
 INIT               SX4    6                                                               FEAT126A    1072     A     
 INIT               IX2    X2*X4       (X2) = REMAINDER IN BITS                            FEAT126A    1073     A     
 INIT               BX7    X1          (X7) = PAGE......   (.=BLANK(55B))                  FCC1328X     550     A     
 INIT               LX2    30                                                              FEAT126A    1074     A     
 INIT               BX6    X3+X2                                                           FEAT126A    1075     A     
 INIT               SA7    A1                                                              FCC1328X     551     A     
 INIT               SA6    A2          CO.PW = 30/CHARACTERS,30/WORDS                      FEAT126A    1076          I
          -CP139FC
 INIT               SA6    A2          CP.PW = 30/CHARACTERS,30/WORDS                      CP139FC      201     A     
 INIT               EQ     EXIT.                                                           FEAT126A    1077          I
          -FCC1658X 
 INIT               EQ     FTO9                                                            FCC1658X      13     A     
 INIT                                                                                      FEAT126A    1078     A     
 INIT      FTO8     MX6    0                                                               FEAT126A    1079     A     
 INIT               SA6    A2          TURN OFF PW MODE                                    FEAT126A    1080     A     
 INIT               EQ     EXIT.                                                           FEAT126A    1081          I
          -FCC1658X 
 INIT                                                                                      FCC1658X      14     A     
 INIT      FTO9     SA2    CP.PD                                                           FCC1658X      15          I
          -FCCA410
 INIT               ZR     X2,EXIT.    IF NO *PD* TO INITIALIZE, EXIT..                    FCC1658X      16          I
          -FCCA410
 INIT               WRITEC F.OUT,CP.PD,1     INITIALIZE PAGE DENSITY                       FCC1658X      17          I
          -FCCA410
 INIT               EQ     EXIT.                                                           FCC1658X      18          I
          -FCCA410
 INIT      FTO9     EQ     EXIT.                                                           FCCA410       24     A     
 INIT      IMO      SPACE  4,8                                                             INIT         243     A     
 INIT     **        IMO -  INITIALIZE MAIN OVERLAY.                                        INIT         244     A     
 INIT     *                                                                                INIT         245     A     
 INIT     *         ENTRY  TO (1,0) OVERLAY -- SECONDARY INITIALIZATION.                   INIT         246     A     
 INIT     *         EXIT   (1,O) CELLS SET UP.                                             INIT         247     A     
 INIT                                                                                      INIT         248     A     
 INIT                                                                                      INIT         249     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1572    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
 INIT      IMO      SUBR               ENTRY/EXIT...                                       INIT         250     A     
 INIT               SA1    =XF.TABS    FWA OF TABLES                                       FEAT155D     131     A     
 INIT               SA2    =XCP.NFLS   CM FIELD LENGTH                                     FEAT155D     132     A     
 INIT               IX6    X2-X1                                                           FEAT155D     133     A     
 INIT               SA6    =XW.TABS    WIDTH OF TABLE SPACE                                FEAT155D     134     A     
 INIT               AX6    FLSLOP                                                          FEAT155D     135     A     
 INIT               SA6    =XTHRESH    GIVE ALLOC ENOUGH ELBOW ROOM                        FEAT155D     136     A     
 INIT               SA1    =XTL.CCOP                                                       INIT         251     A     
 INIT               SA2    A1+B1                                                           INIT         252     A     
 INIT               BX6    X1          SET C.C. OPTIONS INTO 77-TABLE                      INIT         253     A     
 INIT               LX7    X2                                                              INIT         254     A     
 INIT               SA4    =XCP.CPU                                                        INIT         255     A     
 INIT               SA1    =8R CMODEL                                                      INIT         256     A     
 INIT               SX5    BT.IDN9                                                         INIT         257     A     
 INIT               SA6    X5+BT.IDNT                                                      INIT         258     A     
 INIT               SA5    CP.PAGE                                                         INIT         259     A     
 INIT               PL     X5,IMO2     IF PAGE PROPAGATION                                 INIT         260     A     
 INIT               MX5    1                                                               INIT         261          I
          -FCCA473
 INIT               LX5    1                                                               FCCA473       41     A     
 INIT               PL     X5,IMO1     IF CP.PAGE IS NOT SET                               FCCA473       42     A     
 INIT               MX5    2                                                               FCCA473       43     A     
 INIT               EQ     IMO2                                                            FCCA473       44     A     
 INIT      IMO1     MX5    1                                                               FCCA473       45     A     
 INIT      IMO2     SA7    A6+B1                                                           INIT         262     A     
 INIT               IX7    X4+X1       *77  MODEL *                                        INIT         263          I
          -FEAT155G 
 INIT               BX6    X5                                                              INIT         264     A     
 INIT               LX7    4*CHAR                                                          INIT         265          I
          -FEAT155G 
 INIT               SA6    CP.PAGE                                                         INIT         266     A     
 INIT               SA7    LPS.CP                                                          INIT         267          I
          -FEAT155G 
 INIT                                                                                      INIT         268     A     
 INIT               SA4    FV.LGO                                                          INIT         269     A     
 INIT               SA1    =XMLOP=O                                                        FCC1608X      38     A     
 INIT               MX6    -1                                                              INIT         270     A     
 INIT               SA2    WIN                                                             FCC1608X      39     A     
 INIT               NZ     X4,IMO3     IF BINARY NOT SUPPRESSED                            INIT         271          I
          -FEAT126BA
 INIT               NZ     X4,IMO4     IF BINARY NOT SUPPRESSED (B.NE.0)                   FEAT126BA      8     A     
 INIT               SA6    BINIO       KEEP MANAGER AWAY FROM INTERMEDIATE FILE            INIT         272     A     
 INIT               SX7    0220B       *JP B2*                                             INIT         273          I
          -FCC1608X 
 INIT               LX7    48                                                              INIT         274          I
          -FCC1608X 
 INIT               SA7    WIN         WIRE OFF INTERMEDIATE                               INIT         275          I
          -FCC1608X 
 INIT               MI     X1,IMO4     IF OBJECT LIST CHOSEN                               FCC1608X      40     A     
 INIT               SA2    =XWINX                                                          FCC1608X      41     A     
 INIT      IMO4     BX7    X2                                                              FCC1608X      42     A     
 INIT               SA7    =XWININIT   POSSIBLY MAKE IMMEDIATE RETURN                      FCC1608X      43     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1573    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
 INIT                                                                                      INIT         276          I
          -FEAT126BA
 INIT      IMO3     SA1    LOP=O                                                           INIT         277          I
          -FEAT126BA
 INIT               SA2    =3H                                                             INIT         278          I
          -FEAT126C 
 INIT               PL     X1,IMO4      IF NO OBJECT LISTING                               INIT         279          I
          -FEAT126BA
 INIT               SA3    PIG.SW                                                          INIT         280          I
          -FEAT126BA
 INIT               BX6    X2                                                              INIT         281          I
          -FEAT126C 
 INIT               LX3    30          SET OBJ LIST ON                                     INIT         282          I
          -FEAT126BA
 INIT               SA6    AFSB                                                            INIT         283          I
          -FEAT126C 
 INIT               BX7    X3                                                              INIT         284          I
          -FEAT126BA
 INIT               SA6    ICA                                                             INIT         285          I
          -FEAT126C 
 INIT               SA7    A3                                                              INIT         286          I
          -FEAT126BA
 INIT                                                                                      INIT         287     A     
 INIT      IMO4     SA1    LOP=R                                                           INIT         288          I
          -FEAT155HA
 INIT      IMO4     SA1    =XMLOP=R                                                        FEAT155HA      5          I
          -FCC1608X 
 INIT               SA1    =XMLOP=R                                                        FCC1608X      44     A     
 INIT               SX6    0270B       *JP B7*                                             INIT         289     A     
 INIT               MI     X1,IMO5     IF REF MAP SELECTED                                 INIT         290     A     
 INIT               LX6    48                                                              INIT         291     A     
 INIT               =X7    -1                                                              INIT         292     A     
 INIT               SA6    ERT         WIRE OFF X-REF                                      INIT         293     A     
 INIT               SA2    =8L SYMBOLS                                                     INIT         294          I
          -FEAT155G 
 INIT               BX6    X2          BLANK OUT *REFERENCES* STATISTIC                    INIT         295          I
          -FEAT155G 
 INIT               SA7    REFIO       KEEP MANAGER AWAY FROM REF-TABLE                    INIT         296     A     
 INIT               SA6    LPS.R0                                                          INIT         297          I
          -FEAT155G 
 INIT                                                                                      INIT         298     A     
 INIT      IMO5     SA1    LOP=X                                                           INIT         299          I
          -FEAT155HA
 INIT      IMO5     SA1    =XMLOP=X                                                        FEAT155HA      6     A     
 INIT               SA2    ANSI.SW                                                         INIT         300     A     
 INIT               PL     X1,IMO6     IF ANSI-LIST OFF                                    INIT         301     A     
 INIT               LX2    30                                                              INIT         302     A     
 INIT               BX7    X2          ENABLE ANSI LISTING                                 INIT         303     A     
 INIT               SA7    A2                                                              INIT         304     A     
 INIT                                                                                      INIT         305     A     
 INIT      IMO6     SA1    PLIMIT                                                          INIT         306     A     
 INIT               RJ     CDD         CONVERT DECIMAL (PRINT-LIMIT) TO DISPLAY            INIT         307     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1574    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
 INIT               SB2    B2-10*CHAR                                                      INIT         308     A     
 INIT               AX1    X6,B2       LEFT JUSTIFY                                        INIT         309     A     
 INIT               SA3    =6LQ8NTRY                                                       INIT         310          I
          -FCC1559X 
 INIT               SA3    =6LQ1NTRY                                                       FCC1559X      21          I
          -F162FTNA 
 INIT               SA3    =6LQ2NTRY                                                       F162FTNA     807     A     
 INIT               LX1    3*CHAR      4567---123                                          INIT         311     A     
 INIT               MX0    6*CHAR                                                          INIT         312     A     
 INIT               BX4    -X0*X1      //////-123                                          INIT         313     A     
 INIT               IX7    X3+X4       Q8NTRY-123                                          INIT         314     A     
 INIT               BX6    X0*X1       4567--                                              INIT         315     A     
 INIT               SA7    PPAD-1                                                          INIT         316     A     
 INIT               =A6    A7+1                                                            INIT         317     A     
 INIT                                                                                      INIT         318     A     
 INIT                                                                                      INIT         319     A     
 INIT     **        POST REPRIEVE REQUEST.                                                 INIT         320     A     
 INIT     *                                                                                INIT         321     A     
 INIT      .T       IFNE   TEST,0                                                          INIT         322     A     
 INIT               SA1    RA.SSW                                                          INIT         323     A     
 INIT               LX1    59-11                                                           INIT         324     A     
 INIT               MI     X1,IMO62    IF SENSE SWITCH 6 ON, SKIP *RPV* REQUEST            INIT         325     A     
 INIT                                                                                      INIT         326     A     
 INIT      #OS      IFEQ   .OS,0                                                           INIT         327          I
          -FEAT126A 
 INIT      #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A    1082     A     
 INIT               SYSTEM RPV,RCL,=XXJP,37BS6                                             INIT         328     A     
 INIT      #OS      ELSE                                                                   INIT         329     A     
 INIT               REPRIEVE  =XXJP    POST REPRIEVE REQUEST                               INIT         330     A     
 INIT      #OS      ENDIF                                                                  INIT         331     A     
 INIT      .T       ENDIF                                                                  INIT         332     A     
 INIT                                                                                      INIT         333     A     
 INIT      IMO62    BSS    0                                                               INIT         334     A     
 INIT     *         IF ROUND IS SELECTED FOR AN OPERATOR, PLUG APPROPRIATE                 INIT         335     A     
 INIT     *         CODE SKELETON ADDRESS IN PSTACK ENTRY FOR THAT OPERATOR.               INIT         336     A     
 INIT                                                                                      INIT         337     A     
 INIT               SA1    =XCO.RND    ROUND CONTROL CARD SETTING                          INIT         338     A     
 INIT               ZR     X1,EXIT.    IF NO OPERATIONS TO BE ROUNDED.                     INIT         339     A     
 INIT               MX2    L.JPAD                                                          INIT         340     A     
 INIT               LX1    1R+                                                             INIT         341     A     
 INIT               PL     X1,IMO7     IF + NOT SELECTED                                   INIT         342     A     
 INIT               SA3    =XPSTACK                                                        INIT         343     A     
 INIT               SX4    =XO=RADD                                                        INIT         344     A     
 INIT               BX7    -X2*X3                                                          INIT         345     A     
 INIT               LX4    P.JPAD                                                          INIT         346     A     
 INIT               BX7    X7+X4                                                           INIT         347     A     
 INIT               SA7    A3                                                              INIT         348     A     
 INIT      IMO7     LX1    1R--1R+                                                         INIT         349     A     
 INIT               PL     X1,IMO8     IF - NOT SELECTED                                   INIT         350     A     
 INIT               SA3    PSTACK+O.MIN-O.PL                                               INIT         351     A     
 INIT               SX4    =XO=RSUB                                                        INIT         352     A     
 INIT               BX7    -X2*X3                                                          INIT         353     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1575    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
 INIT               LX4    P.JPAD                                                          INIT         354     A     
 INIT               BX7    X7+X4                                                           INIT         355     A     
 INIT               SA7    A3                                                              INIT         356     A     
 INIT      IMO8     LX1    1R*-1R-                                                         INIT         357     A     
 INIT               PL     X1,IMO9     IF * NOT SELECTED                                   INIT         358     A     
 INIT               SA3    PSTACK+O.MULT-O.PL                                              INIT         359     A     
 INIT               SX4    =XO=RMULT                                                       INIT         360     A     
 INIT               BX7    -X2*X3                                                          INIT         361     A     
 INIT               LX4    P.JPAD                                                          INIT         362     A     
 INIT               BX7    X7+X4                                                           INIT         363     A     
 INIT               SA7    A3                                                              INIT         364     A     
 INIT      IMO9     LX1    1R/-1R*                                                         INIT         365     A     
 INIT               PL     X1,EXIT.    IF / NOT SELECTED                                   INIT         366     A     
 INIT               SA3    PSTACK+O.DIV-O.PL                                               INIT         367     A     
 INIT               SX4    =XO=RDIV                                                        INIT         368     A     
 INIT               BX7    -X2*X3                                                          INIT         369     A     
 INIT               LX4    P.JPAD                                                          INIT         370     A     
 INIT               BX7    X7+X4                                                           INIT         371     A     
 INIT               SA7    A3                                                              INIT         372     A     
 INIT                                                                                      INIT         373     A     
 INIT               EQ     EXIT.                                                           INIT         374     A     
 INIT                                                                                      INIT         375     A     
 INIT     *CALL FA=SET                                                                     INIT         376     A     
 INIT                                                                                      INIT         377     A     
 INIT      ENDCODE  BSS    0                                                               INIT         378     A     
 INIT      LASTLIT  LIT    0LLASTLIT.                                                      INIT         379     A     
 INIT               LIST   L,B,D,R     END OF LISTING                                      INIT         380     A     
 INIT      BUFFERS  SPACE  4,8                                                             INIT         381     A     
 INIT     **        BSSX - ASSIGN STORAGE AT END OF PROGRAM                                INIT         382     A     
 INIT     *                                                                                INIT         383     A     
 INIT     * SYM     BSSX   LEN                                                             INIT         384     A     
 INIT     *                                                                                INIT         385     A     
 INIT     *         *SYM* = SYMBOL TO BE DEFINED.                                          INIT         386     A     
 INIT     *         *LEN* = NUMBER OF WORDS TO RESERVE.                                    INIT         387     A     
 INIT     *                                                                                INIT         388     A     
 INIT                                                                                      INIT         389     A     
 INIT                                                                                      INIT         390     A     
 INIT               MACRO  BSSX,SYM,LEN                                                    INIT         391     A     
 INIT      A        OCTMIC BSSX.                                                           INIT         392     A     
 INIT      B        MICRO  1,8,,SYM       ,                                                INIT         393     A     
 INIT      BSSX     RMT=   ("B" EQU      BSSX+"A"B)                                        INIT         394     A     
 INIT      BSSX.    SET    BSSX.+LEN                                                       INIT         395     A     
 INIT      BSSX     ENDM                                                                   INIT         396     A     
 INIT                                                                                      INIT         397     A     
 INIT                                                                                      INIT         398     A     
 INIT     **        EQUX - DEFERRED EQUIVALENCE MACRO                                      INIT         399     A     
 INIT     *                                                                                INIT         400     A     
 INIT                                                                                      INIT         401     A     
 INIT                                                                                      INIT         402     A     
 INIT               MACRO  EQUX,LOC,VAL                                                    INIT         403     A     
 INIT      B        MICRO  1,8,,LOC       ,                                                INIT         404     A     
 INIT      EQUX     RMT=   ("B" EQU    VAL)                                                INIT         405     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1576    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
 INIT      EQUX     ENDM                                                                   INIT         406     A     
 INIT                                                                                      INIT         407     A     
 INIT                                                                                      INIT         408     A     
 INIT      OSTACK   BSSX   N.OPSTK     OPERATOR STACK                                      INIT         409     A     
 INIT      ESTACK   BSSX   N.ELSTK     ELEMENT STACK                                       INIT         410     A     
 INIT      SAVE     BSSX   9           SAVE REGISTERS (PWE)                                INIT         411          I
          -FEAT126B 
 INIT      SAVE     BSSX   10          SAVE REGISTERS (PWE)                                FEAT126B     930     A     
 INIT      DPTA     BSSX   1           SAVE CELL FOR (X6)                                  INIT         412     A     
 INIT      ADWT     BSSX   4           TEMPORARY STORAGE FOR TABLE SECTION.                INIT         413     A     
 INIT      CST.BOS  BSSX   1           LOCAL BEGINNING OF STATEMENT                        INIT         414     A     
 INIT      CSBA     BSSX   1           SAVE (X2)                                           INIT         415          I
          -FEAT155G 
 INIT      DECA     BSSX   7           SAVE / RESTORE REGISTERS FOR *DEC*                  INIT         416     A     
 INIT      HOLLSKL  EQUX   OSTACK      SCRATCH AREA FOR BUILDING HOLLERITH CONSTS          INIT         417     A     
 INIT      TRVA     BSSX   2           SAVE OF *X6* AND *X7* IF CR REQUESTED               INIT         418     A     
 INIT      AGNK     EQUX   CALLTAG                                                         INIT         419     A     
 INIT      CALLTAG  BSSX   1           TAG OF ROUTINE TO BE *CALL*ED (PASS *2*)            INIT         420     A     
 INIT                                                                                      INIT         421     A     
 INIT     *         THESE EQUATES ARE USED BY THE DATA PROCESSOR                           INIT         422     A     
 INIT                                                                                      INIT         423     A     
 INIT                                                                                      INIT         424     A     
 INIT     **        TEMP MACRO - USES EQUX REMOTE AREA                                     INIT         425     A     
 INIT     *                                                                                INIT         426     A     
 INIT                                                                                      INIT         427     A     
 INIT               MACRO  TEMP,LABEL,LEN                                                  INIT         428     A     
 INIT      A        MICRO  1,8,/LABEL       /                                              INIT         429     A     
 INIT      EQUX     RMT=   ("A" EQU    "B"+"T"    LEN)                                     INIT         430     A     
 INIT      T        DECMIC "T"+LEN                                                         INIT         431     A     
 INIT               ENDM                                                                   INIT         432     A     
 INIT                                                                                      INIT         433     A     
 INIT      T        MICRO                                                                  INIT         434     A     
 INIT      B        MICRO  1,, OSTACK                                                      INIT         435     A     
 INIT                                                                                      INIT         436     A     
 INIT      DATEMP   TEMP   0           FWA OF CONTROL CELLS FOR A LIST                     INIT         437     A     
 INIT      REPFLAG  TEMP   1           REP FLAG                                            INIT         438     A     
 INIT      CLOSREP  TEMP   1           CLOSE REP FLAG                                      INIT         439     A     
 INIT      N.ITEM   TEMP   1           NUMBER OF DATA ITEMS                                INIT         440     A     
 INIT      PL       TEMP   1           PAREN LEVEL                                         INIT         441     A     
 INIT      I.DIT    TEMP   3           1 - ORDINAL OF NEXT ITEM IN TI.DAT                  INIT         442     A     
 INIT                                  2 - NUM OF ITEMS REMAINING IN REP LIST              INIT         443     A     
 INIT                                  3 - ORDINAL OF 1ST DATA ITEM IN REP LIST            INIT         444     A     
 INIT      DATEMPL  TEMP   0                                                               INIT         445     A     
 INIT      TEMP     TEMP   2           SOME TEMPORARIES                                    INIT         446     A     
 INIT      NONANSI  TEMP   1           FLAG NON-ANSI USAGES                                INIT         447     A     
 INIT      DVT      TEMP   2           DVT WORDS - SET BY PDV                              INIT         448     A     
 INIT      LPINF    TEMP   3           DO LOOP INDEX INFO                                  INIT         449     A     
 INIT      BIAS     TEMP   1           ACCUMULATED BIAS DUE TO SUBSC CALC                  INIT         450     A     
 INIT      LL       TEMP   1           LOWER LIMIT                                         INIT         451     A     
 INIT      UL       TEMP   1           UPPER LIMIT                                         INIT         452     A     
 INIT      INC      TEMP   1           INCREMENT                                           INIT         453     A     
 INIT      SUBN     TEMP   1           NUMBER OF SUBSCRIPTS IN ARRAY                       INIT         454     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1577    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
 INIT      SST1     TEMP   0                                                               INIT         455     A     
 INIT      CON1     TEMP   MAX.DIM     CON1(I) - CONSTANT MULTIPLIERS                      INIT         456     A     
 INIT      INDX     TEMP   MAX.DIM     IVAR(I)                                             INIT         457     A     
 INIT      CON2     TEMP   MAX.DIM     CON2(I) - CONSTANT ADDENDS                          INIT         458     A     
 INIT      SIGN     TEMP   MAX.DIM     SIGN(I)                                             INIT         459     A     
 INIT      N.SUBS   TEMP   1           NUMBER OF SUBSCRIPTS                                INIT         460     A     
 INIT      N.VSUB   TEMP   1           NUMBER OF VARIABLE SUBSCRIPTS                       INIT         461     A     
 INIT      SSTL     TEMP   0                                                               INIT         462     A     
 INIT      ORGI     TEMP   1           ORG COUNTER INCREMENT                               INIT         463     A     
 INIT      DA       TEMP   1           ADDRESS DIFFERENCE                                  INIT         464     A     
 INIT      MP       TEMP   1           MULTIPLIER ( DA*RL )                                INIT         465     A     
 INIT      RL       TEMP   1           NUMBER OF ITEMS IN A REPLIST                        INIT         466     A     
 INIT      LI       TEMP   3           TEMPORARIES USED AS LOOP INDICES                    INIT         467     A     
 INIT      TMP      TEMP   1           2 TEMPORARIES                                       INIT         468     A     
 INIT      DLEN     TEMP   1                                                               INIT         469     A     
 INIT      ORD      TEMP   1           VALUE OF SYMTAB ORDINAL                             INIT         470     A     
 INIT      SDPF     TEMP   1           0 IF SINGLE PRECISION, 1 IF DOUBLE                  INIT         471     A     
 INIT      N.DIMS   TEMP   1           NUMBER OF DIMENSIONS                                INIT         472     A     
 INIT      DIM      TEMP   MAX.DIM     DIM1, DIM2, ....,DIM(N)                             INIT         473     A     
 INIT      DIM.MUL  TEMP   MAX.DIM     1 , DIM1 , DIM1*DIM2                                INIT         474     A     
 INIT      SELIST   TEMP   1           ** BEGINNING OF *SB*                                INIT         475     A     
 INIT                                                                                      INIT         476     A     
 INIT     *         END OF DATA EQUATES                                                    INIT         477     A     
 INIT                                                                                      INIT         478     A     
 INIT      EQUA     BSSX   1           TEMP FOR ROOT MEMBER + OFFSET                       INIT         479     A     
 INIT      FORSKEL  EQUX   OSTACK      SKELETON AREA FOR PACKING FORMAT                    INIT         480     A     
 INIT      SCR2     BSSX   MAX.DIM+1   GENERAL SCRATCH AREA 2                              INIT         481     A     
 INIT      SCR      BSSX   10          GENERAL SCRATCH AREA. NEVER TO BE USED BY           INIT         482     A     
 INIT                                  TABLE SECTION. SHOULD BE USED ONLY BY LOCAL         INIT         483     A     
 INIT                                  ROUTINES.....                                       INIT         484     A     
 INIT      ASFERR   EQUX   SCR+3       ERROR IN PROCESSING *ASF* REFERENCE                 INIT         485     A     
 INIT      FWAASF   EQUX   SCR+4       FWA OF ASF RELATIVE TO TT.ASF                       INIT         486     A     
 INIT      FWAREF   EQUX   SCR+5       FWA OF REFERENCE                                    INIT         487     A     
 INIT      SVB6     EQUX   SCR+6                                                           INIT         488     A     
 INIT      SVB5     EQUX   SCR+7                                                           INIT         489     A     
 INIT      ASFARG   EQUX   SCR+8       NUMBER OF ARGUMENTS                                 INIT         490     A     
 INIT      FWAARG   EQUX   SCR+9       RELATIVE FWA OF ACTUAL ARGUMENTS                    INIT         491     A     
 INIT      CDOTG    EQUX   SCR+6       CURRENT DO TAG BEING PROCESSED                      INIT         492     A     
 INIT      TEST     IFNE   TEST,0                                                          INIT         493          I
          -FEAT155F 
 INIT               ENTRY  SNAPLNE                                                         INIT         494          I
          -FEAT155F 
 INIT      SNAPLNE  BSSX   13          PRINT LINE ASSEMBLE AREA                            INIT         495          I
          -FEAT155F 
 INIT      TEST     ENDIF                                                                  INIT         496          I
          -FEAT155F 
 INIT                                                                                      INIT         497     A     
 INIT     **        BUFFERS AND FIXED LENGTH SCRATCH AREAS.                                INIT         498     A     
 INIT                                                                                      INIT         499     A     
 INIT                                                                                      INIT         500     A     
 INIT      BSSX     HERE               *BLANK COMMON*, SORT OF                             INIT         501     A     
 INIT      EQUX     HERE               DEFERRED EQUIVALENCES.                              INIT         502     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1578    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN INIT    
  
 INIT                                                                                      INIT         503     A     
 INIT      BUFFERS  EQU    BSSX+BSSX.                                                      INIT         504     A     
 INIT                                                                                      INIT         505     A     
 INIT      LITBLOC  EQU    LASTLIT-FIRSTLIT+1                                              INIT         506     A     
 INIT               BSS    BUFFERS-ENDCODE-LITBLOC                                         INIT         507     A     
 INIT      FIN      SPACE  4,4                                                             INIT         508     A     
 INIT      FIN      END    FTN10                                                           INIT         509          I
          -FEAT155G 
 INIT     *WEOR,0                                                                          INIT         510          I
          -FEAT155G 
 INIT      FIN.OLR  END                END OF (1,0) WHEN OBJECT LIST + MAP OFF             FEAT155G     402     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - INIT    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          INIT                       510       412
          FEAT126A                    62        36
          FEAT126B                     1         1
          FEAT126C                     1         1
          FEAT126AB                    1         0
          FEAT126AC                    5         0
          FEAT126BA                    1         1
          FCC0787                      1         1
          FCC0813                      4         2
          FCC0859                     12        10
          FEAT155D                     6         6
          FEAT155E                    11         2
          FEAT155G                    12        12
          FEAT155H                     5         5
          CP139FC                      2         2
          FEAT155EA                    4         0
          FEAT155HA                    2         1
          FEAT155EB                    1         0
          FCC1200                      3         2
          FCC1328X                    10        10
          FCC1559X                     1         0
          FCC1608X                    17        17
          FCC1658X                    13         9
          F162FTNA                     1         1
          FCCA410                      1         1
          FCCA422                      1         1
          FCCA473                      5         5
          FCCA580                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *DECK     MAP                                                                    MAP            1     A     
 MAP                IDENT  MAP                                                             MAP            2     A     
 MAP       MAP      SECT   (LISTING ROUTINES -- PASS 2 = MAP.),1                           MAP            3     A     
 MAP                                                                                       MAP            4     A     
 MAP                SST    A,B,D                                                           MAP            5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1579    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                NOREF  A,B,D                                                           MAP            6     A     
 MAP                                                                                       MAP            7     A     
 MAP       B=MAP    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             MAP            8     A     
 MAP                                                                                       MAP            9     A     
 MAP                ENTRY  LPS,LPS.LR,LPS.R0,LPS.CP,LPS.PL,LJS,SFN,WCL,WVM                 MAP           10          I
          -FEAT155G 
 MAP                ENTRY  LBS                                                             FEAT126A     407          I
          -FCC0813
 MAP                ENTRY  LBS,LPS.MAX                                                     FCC0813       82          I
          -FEAT155G 
 MAP                ENTRY  WVM,LPS.PL,FIN.OL,WVBD                                          FEAT155G     403     A     
 MAP                                                                                       MAP           11     A     
 MAP      *         IN FTN                                                                 MAP           12     A     
 MAP                EXT    CARDSB,CO.SNAP,LOP=R,TIME1,F.OUT,F.RMAP                         MAP           13          I
          -FEAT155E 
 MAP                EXT    CO.PS,CO.SNAP,F.RMAP,LOP=R,O.STITL                              FEAT155E     312          I
          -FEAT155EA
 MAP                EXT    CO.SNAP,CP.PS,F.RMAP,LOP=R,O.STITL                              FEAT155EA     37          I
          -FCCA422
 MAP                EXT    CO.SNAP,LCP.PS,F.RMAP,LOP=R,O.STITL                             FCCA422       51     A     
 MAP                                                                                       MAP           14     A     
 MAP      *         IN TABLES                                                              MAP           15     A     
 MAP                EXT    BA.CON,BA.FMT,BA.TEM,BA.APL,BA.BUF,BA.PRO,CARDS                 MAP           16          I
          -FEAT155G 
 MAP                EXT    CPTIM,COD,CDD,FAILSFT,HDRSUB,LOSTREF,LINEBUF,LCNT,MOD           MAP           17          I
          -FEAT126A 
 MAP                EXT    CPTIM,COD,CDD,FAILSFT,STL.MAP,LOSTREF,LINEBUF,LCNT,MOD          FEAT126A     408          I
          -FEAT155H 
 MAP                EXT    CDD,COD,FAILSFT,LCNT,LINEBUF,LOSTREF                            FEAT155H     122     A     
 MAP                EXT    N.TABLE,NARGS,NREXT,PASS,PIA,REFIO,TN=BLK,TS=STN                MAP           18          I
          -FEAT126C 
 MAP                EXT    N.TABLE,NARGS,NREXT,PASS,REFIO,TN=BLK,TS=STN,CO.PW              FEAT126C      88          I
          -CP139FC
 MAP                EXT    N.TABLE,NREXT,PASS,REFIO,TN=BLK,TS=STN                          CP139FC      202     A     
 MAP                EXT    TN.EXT,TN.BLK,TP.APL,TP=APL,TP.DIM,TP=FMT,TP.FMT                MAP           19          I
          -FEAT155G 
 MAP                EXT    TN.EXT,TN.BLK,TP.DIM                                            FEAT155G     404     A     
 MAP                EXT    TEM.MAX,TS=BLK,TS=ENT,TS=CON,TS=SYM,TS.BLK,TS.CON               MAP           20          I
          -FEAT155G 
 MAP                EXT    TS=BLK,TS=ENT,TS=SYM,TS.BLK                                     FEAT155G     405     A     
 MAP                EXT    TS.STN,TS.SYM,TS.ENT,TT=REF,TT=SCR,TT.REF,TT.SCR                MAP           21          I
          -FEAT155G 
 MAP                EXT    TS.STN,TS.SYM,TS.ENT,TT=REF,TT.REF                              FEAT155G     406     A     
 MAP                EXT    TA=NAM,TA.PRO,TG.VDIM,TG.APL,TA.NAM,TN=EXT,T.FILE               MAP           22          I
          -FEAT155G 
 MAP                EXT    TA=NAM,TA.NAM,TN=EXT                                            FEAT155G     407     A     
 MAP                EXT    N.BLK                                                           FEAT126A     409          I
          -FEAT155G 
 MAP                EXT    SFN,LJS                                                         FEAT155G     408     A     
 MAP                                                                                       MAP           23     A     
 MAP      *         IN ERRORS                                                              MAP           24     A     
 MAP                EXT    CLASS,E.ZA,L.CL                                                 MAP           25          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1580    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FEAT155G 
 MAP                EXT    CLASS,L.CL                                                      FEAT155G     409     A     
 MAP                                                                                       MAP           26          I
          -FEAT155G 
 MAP      *         IN LIST                                                                MAP           27          I
          -FEAT155G 
 MAP                EXT    KITA,KIT,KTX,KTY,PVF                                            MAP           28          I
          -FEAT155G 
 MAP                                                                                       MAP           29     A     
 MAP      *         IN END                                                                 MAP           30     A     
 MAP                EXT    LPSX,WCLX,WVMX                                                  MAP           31          I
          -FEAT126A 
 MAP                EXT    LPSX,LBSX,WCLX,WVMX                                             FEAT126A     410          I
          -FEAT155G 
 MAP                EXT    WVMX                                                            FEAT155G     410     A     
 MAP                                                                                       MAP           32     A     
 MAP      *         IN ALLOC                                                               MAP           33     A     
 MAP                EXT    DSRT,MVE,SRT                                                    MAP           34     A     
 MAP                                                                                       MAP           35     A     
 MAP      *         IN MAIN                                                                MAP           36     A     
 MAP                EXT    HDRBL,WBL,WOF                                                   MAP           37          I
          -FEAT155G 
 MAP                EXT    WBL,WOF                                                         FEAT155G     411     A     
 MAP                                                                                       MAP           38     A     
 MAP      *         IN INIT                                                                MAP           39     A     
 MAP                EXT    SCR                                                             MAP           40     A     
 MAP                                                                                       MAP           41     A     
 MAP       WVM      SPACE  4,8                                                             MAP           42     A     
 MAP      **        WVM -  WRITE VARIABLE MAP                                              MAP           43     A     
 MAP      *         EXIT   INTO *END*.                                                     MAP           44     A     
 MAP      *         USES   ALL REGISTERS.                                                  MAP           45     A     
 MAP                                                                                       MAP           46     A     
 MAP                                                                                       MAP           47     A     
 MAP       WVM      BSS    0           ENTRY...                                            MAP           48     A     
 MAP                SA1    FAILSFT                                                         MAP           49     A     
 MAP                NZ     X1,WVMX     NO MAP IF TABLES CRUMPED                            MAP           50     A     
 MAP       WVM      SPACE  4,8                                                             MAP           51     A     
 MAP      **        IF BL PARAMETER SELECTED, PAGE EJECT BEFORE REF MAP.                   MAP           52     A     
 MAP                                                                                       MAP           53     A     
 MAP                SA1    =XCP.BLF                                                        MAP           54     A     
 MAP                ZR     X1,WVB      IF BL NOT SELECTED                                  MAP           55     A     
 MAP                SX7    EJECT                                                           MAP           56          I
          -FEAT155E 
 MAP                SA2    CO.PS                                                           FEAT155E     313          I
          -FEAT155EA
 MAP                SA2    CP.PS                                                           FEAT155EA     38          I
          -FCCA422
 MAP                SA2    LCP.PS                                                          FCCA422       52     A     
 MAP                BX7    X2                                                              FEAT155E     314     A     
 MAP                SA7    LCNT        FORCE EJECT WITH NEXT LINE PRINTED                  MAP           57     A     
 MAP       WVB      SPACE  4,8                                                             MAP           58     A     
 MAP      **        WVB -  OUTPUT COMMON BLOCKS.                                           MAP           59     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1581    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                                                                                       MAP           60     A     
 MAP                                                                                       MAP           61     A     
 MAP       WVB      SA1    TS.BLK                                                          MAP           62          I
          -FEAT155GA
 MAP       WVB      ALLOC  TS.BLK,2    FOR END OF TABLE MARK                               FEAT155GA     14     A     
 MAP                SB3    X2-4                                                            FEAT155GA     15     A     
 MAP                SA1    TS.BLK                                                          FEAT155GA     16     A     
 MAP                SA2    TS=BLK                                                          MAP           63     A     
 MAP                SA3    =1H                                                             MAP           64     A     
 MAP                IX0    X1+X2                                                           MAP           65     A     
 MAP                BX6    0                                                               MAP           66     A     
 MAP                LX7    X3                                                              MAP           67     A     
 MAP                SA7    =XSUBHDR+1  BLANK OUT BEGINNING OF SUBHDR                       MAP           68          I
          -FEAT126A 
 MAP                SA7    A7+B1                                                           MAP           69          I
          -FEAT126A 
 MAP                SA7    A7+B1                                                           MAP           70          I
          -FEAT126A 
 MAP                SA7    =XO.STITL+3 BLANK OUT /7                                        FEAT126A     411          I
          -FEAT155E 
 MAP                SA5    X1+BLANKCOM+1                                                   MAP           71          I
          -FCC0583
 MAP                SA7    X1          RESET NAME OF -PROGRAM- BLOCK                       MAP           72     A     
 MAP                SX7    A5-B1                                                           MAP           73          I
          -FCC0583
 MAP                =X7    X1+2                                                            FCC0583       11     A     
 MAP                SA6    X0          MARK END OF TABLE                                   MAP           74          I
          -FEAT155GA
 MAP                SA6    X0-2        MARK END OF TABLE                                   FEAT155GA     17     A     
 MAP                NZ     X5,WVB1     IF BLANK COMMON EXISTS                              MAP           75          I
          -FCC0583
 MAP                SX7    X7+2                                                            MAP           76          I
          -FCC0583
 MAP       WVB1     SB4    WVBA                                                            MAP           77          I
          -FCC0583
 MAP                SA7    WVBD        SAVE FWA OF REAL COMMON BLOCKS                      MAP           78          I
          -FCC0583
 MAP                SB4    WVBA                                                            FCC0583       12     A     
 MAP                SA7    WVBD        SAVE FWA OF COMMON BLOCKS                           FCC0583       13     A     
 MAP                IX7    X0-X7       NUMBER OF REAL BLOCKS (* 2)                         MAP           79     A     
 MAP                SA3    =XCO.PW                                                         FEAT126A     412          I
          -CP139FC
 MAP                SA3    =XCP.PW                                                         CP139FC      203     A     
 MAP                ZR     X7,WVBX     IF NO COMMON BLOCKS                                 MAP           80          I
          -FEAT155GA
 MAP                ZR     B3,WVBX     IF NO COMMON BLOCKS                                 FEAT155GA     18     A     
 MAP                SA7    A7+B1       SAVE WORD COUNT OF COMMON BLOCKS                    MAP           81     A     
 MAP                SX7    X7+6                                                            MAP           82     A     
 MAP                AX7    3           NUM / 4  =  LINES REQUIRED                          MAP           83          I
          -FEAT126A 
 MAP                RJ     LSH         SET SUB-HEADING                                     MAP           84          I
          -FEAT126A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1582    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SX5    4                                                               FEAT126A     413     A     
 MAP                ZR     X3,WVB1A    IF NOT IN PW MODE                                   FEAT126A     414     A     
 MAP                AX5    X6,B1                                                           FEAT126A     415          I
          -FEAT126AA
 MAP                SX5    X3                                                              FEAT126AA     13     A     
 MAP                AX5    1                                                               FEAT126AA     14     A     
 MAP       WVB1A    RJ     LSH                                                             FEAT126A     416     A     
 MAP                                                                                       MAP           85     A     
 MAP      **        CONVERT BLOCK NAMES TO LISTABLE FORMAT.                                MAP           86     A     
 MAP                                                                                       MAP           87     A     
 MAP                SA5    A5+B1       FETCH FIRST NON-BLANK BLOCK NAME                    MAP           88          I
          -FCC0583
 MAP                SA1    =XBLNKCOM                                                       FCC0583       14     A     
 MAP                SA4    WVBD                                                            FCC0583       15     A     
 MAP                SX1    X1-2                                                            FCC0583       16     A     
 MAP                IX3    X4+X1                                                           FCC0583       17     A     
 MAP                SB7    X3          ADDRESS OF BLANK COMMON (IF ANY)                    FCC0583       18     A     
 MAP                SA5    X4                                                              FCC0583       19     A     
 MAP                SA4    =1A/                                                            MAP           89     A     
 MAP                MX0    -1                                                              MAP           90     A     
 MAP                SA2    =40404040404040404040B                                          MAP           91     A     
 MAP                SA1    =10H//////////                                                  MAP           92     A     
 MAP                ZR     X5,WVB3     IF BLANK COMMON ONLY                                MAP           93          I
          -FCC0583
 MAP                SB3    60-CHAR+1                                                       MAP           94     A     
 MAP                =B2    2                                                               MAP           95     A     
 MAP                                                                                       MAP           96     A     
 MAP       WVB2     IX7    X5+X0       LOCATE LOWEST BIT                                   MAP           97          I
          -FCC0583
 MAP       WVB2     SB4    A5-B7                                                           FCC0583       20     A     
 MAP                ZR     B4,WVB3     IF BLANK COMMON                                     FCC0583       21     A     
 MAP                IX7    X5+X0       LOCATE LOWEST BIT                                   FCC0583       22     A     
 MAP                BX3    -X7+X5                                                          MAP           98     A     
 MAP                BX7    X2*X3       40 WHERE CHARACTERS WERE                            MAP           99     A     
 MAP                LX3    X7,B3                                                           MAP          100     A     
 MAP                IX6    X7-X3                                                           MAP          101     A     
 MAP                IX7    X7+X6       77 WHERE CHARACTERS WERE                            MAP          102     A     
 MAP                BX6    -X7*X1                                                          MAP          103     A     
 MAP                AX7    CHAR        EXTEND MASK FOR ONE MORE CHAR                       MAP          104     A     
 MAP                BX3    -X7*X4                                                          MAP          105     A     
 MAP                IX6    X5+X6       APPEND TRAILING SLASHES                             MAP          106     A     
 MAP                BX5    X7*X6       DISCARD SUPERFLOUS SLASHES                          MAP          107     A     
 MAP                IX7    X3+X5       SPACE FILL                                          MAP          108     A     
 MAP                SA5    A5+B2                                                           MAP          109          I
          -FCC0583
 MAP                LX7    -CHAR                                                           MAP          110     A     
 MAP                SA7    A5-B2       SAVE FORMATTED NAME FOR WVV                         MAP          111          I
          -FCC0583
 MAP                SA7    A5          SAVE FORMATTED NAME FOR WVV                         FCC0583       23     A     
 MAP       WVB3     SA5    A5+B2                                                           FCC0583       24     A     
 MAP                NZ     X5,WVB2     IF NOT LAST BLOCK                                   MAP          112     A     
 MAP                                                                                       MAP          113     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1583    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP       WVB3     SA3    WVBD+1      WORD COUNT                                          MAP          114          I
          -FCC0583
 MAP                SA2    TS.BLK                                                          MAP          115          I
          -FCC0583
 MAP                SA3    WVBD+1      WORD COUNT                                          FCC0583       25     A     
 MAP                SA1    =XBLNKCOM                                                       FCC0583       26     A     
 MAP                ZR     X1,WVB3A    IF NO BLANK COMMON                                  FCC0583       27     A     
 MAP                SA5    =2H//                                                           MAP          116     A     
 MAP                LX7    X5                                                              MAP          117     A     
 MAP                SA7    X2+2        SET NAME OF -BLANK- COMMON                          MAP          118          I
          -FCC0583
 MAP                ALLOC  TN.BLK,X3                                                       MAP          119          I
          -FCC0583
 MAP                SA7    B7          SET NAME OF BLANK COMMON                            FCC0583       28     A     
 MAP       WVB3A    ALLOC  TN.BLK,X3                                                       FCC0583       29     A     
 MAP                BX3    X1                                                              MAP          120     A     
 MAP                SX1    X2+B1       ADJUST W.C. TO COPY THE ZERO WORD                   MAP          121     A     
 MAP                SA2    WVBD                                                            MAP          122          I
          -FEAT155GA
 MAP                SA2    TS.BLK                                                          FEAT155GA     19     A     
 MAP                =X2    X2+2                                                            FEAT155GA     20     A     
 MAP                RJ     MVE         COPY BLOCK TABLE                                    MAP          123     A     
 MAP                SA1    TN.BLK                                                          MAP          124     A     
 MAP                RJ     DSRT        SORT COPIED TABLE                                   MAP          125     A     
 MAP                SA1    TN.BLK                                                          MAP          126     A     
 MAP                SA5    X1                                                              MAP          127     A     
 MAP                                                                                       MAP          128     A     
 MAP                SA4    =XCO.PW                                                         FEAT126A     417          I
          -CP139FC
 MAP                SA4    =XCP.PW                                                         CP139FC      204     A     
 MAP                SB4    WVB5                                                            FEAT126A     418     A     
 MAP                ZR     X4,WVB4     IF NOT IN PW MODE                                   FEAT126A     419     A     
 MAP                SB4    WVB5A                                                           FEAT126A     420     A     
 MAP       WVB4     SB5    PIG=IG                                                          MAP          129          I
          -FEAT126A 
 MAP       WVB4     SB5    LINEBUF                                                         FEAT126A     421     A     
 MAP                SA4    =1H                                                             MAP          130     A     
 MAP                SA1    CO.PW                                                           FEAT126A     422          I
          -CP139FC
 MAP                SA1    =XCP.PW                                                         CP139FC      205     A     
 MAP                SB6    4                                                               MAP          131     A     
 MAP                =B3    2                                                               MAP          132     A     
 MAP                ZR     X1,WVB5     IF NOT IN PW MODE                                   FEAT126A     423     A     
 MAP                AX1    1                                                               FEAT126A     424     A     
 MAP                SB6    X1                                                              FEAT126A     425     A     
 MAP                EQ     WVB5A                                                           FEAT126A     426     A     
 MAP                                                                                       MAP          133     A     
 MAP       WVB5     SA1    A5+B1                                                           MAP          134          I
          -FEAT126A 
 MAP                LX7    X4                                                              MAP          135          I
          -FEAT126A 
 MAP                SA7    B5                                                              MAP          136          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1584    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FEAT126A 
 MAP       WVB5     LX7    X4                                                              FEAT126A     427     A     
 MAP                SB5    B5+B1                                                           FEAT126A     428     A     
 MAP                SA7    B5-B1                                                           FEAT126A     429     A     
 MAP       WVB5A    SA1    A5+B1                                                           FEAT126A     430     A     
 MAP                SB6    B6-B1                                                           MAP          137     A     
 MAP                MX0    -L.BLEN                                                         MAP          138     A     
 MAP                BX1    -X0*X1      ISOLATE BLOCK LENGTH                                MAP          139     A     
 MAP                RJ     PIA         CONVERT LENGTH TO DPC                               MAP          140          I
          -FEAT126C 
 MAP                PIA                CONVERT LENGTH TO DPC                               FEAT126C      89     A     
 MAP                SA6    A7+B1                                                           MAP          141          I
          -FEAT126A 
 MAP                SA6    B5                                                              FEAT126A     431     A     
 MAP                BX7    X5                                                              MAP          142     A     
 MAP                SA5    A5+B3                                                           MAP          143     A     
 MAP                SA7    A6+B1                                                           MAP          144     A     
 MAP                SB5    A7+B1                                                           MAP          145     A     
 MAP                ZR     X5,WVB6     IF LAST BLOCK                                       MAP          146     A     
 MAP                NZ     B6,WVB5     IF MORE TO FIT ON THIS LINE                         MAP          147          I
          -FEAT126A 
 MAP                ZR     B6,WVB6                                                         FEAT126A     432     A     
 MAP                JP     B4                                                              FEAT126A     433     A     
 MAP                                                                                       MAP          148     A     
 MAP       WVB6     SA1    =2L                                                             MAP          149          I
          -FEAT126A 
 MAP                BX6    X1          MARK END OF LINE                                    MAP          150          I
          -FEAT126A 
 MAP       WVB6     MX6    0                                                               FEAT126A     434     A     
 MAP                SA6    B5                                                              MAP          151     A     
 MAP                PLINE  PIG=IG                                                          MAP          152          I
          -FEAT126A 
 MAP                SB3    LINEBUF-1                                                       FEAT126A     435     A     
 MAP                PLINE  LINEBUF,B5-B3                                                   FEAT126A     436     A     
 MAP                NZ     X5,WVB4     IF MORE ENTRIES                                     MAP          153     A     
 MAP                                                                                       MAP          154     A     
 MAP       WVBX     SHRINK TN=BLK,0    EXIT..                                              MAP          155     A     
 MAP                                                                                       MAP          156          I
          -FEAT126A 
 MAP       PIG=IG   EQU    LINEBUF                                                         MAP          157          I
          -FEAT126A 
 MAP       WVE      EJECT                                                                  MAP          158     A     
 MAP      **        WVE -  LIST ENTRY POINTS AND EXTERNALS.                                MAP          159     A     
 MAP                                                                                       MAP          160     A     
 MAP                                                                                       MAP          161     A     
 MAP       WVE      SA1    TS.ENT                                                          MAP          162     A     
 MAP                RJ     SRT         SORT ENTRY POINT TABLE                              MAP          163     A     
 MAP                SA2    TS=ENT                                                          MAP          164     A     
 MAP                SB3    X2-1                                                            MAP          165     A     
 MAP                LE     B3,WVE5     IF ONE OR FEWER ENTRY POINTS                        MAP          166     A     
 MAP                SB4    WVEA                                                            MAP          167     A     
 MAP                SX7    X2+3                                                            MAP          168     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1585    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                AX7    2           = ((LENGTH)+3)/4                                    MAP          169          I
          -FEAT126A 
 MAP                RJ     LSH         LIST SUB-HEADING                                    MAP          170          I
          -FEAT126A 
 MAP                SA1    CO.PW                                                           FEAT126A     437          I
          -CP139FC
 MAP                SA1    =XCP.PW                                                         CP139FC      206     A     
 MAP                SX5    4                                                               FEAT126A     438     A     
 MAP                SX1    X1                                                              FEAT126A     439     A     
 MAP                ZR     X1,WVE1     IF NOT IN PW MODE                                   FEAT126A     440     A     
 MAP                AX5    X1,B1                                                           FEAT126A     441     A     
 MAP       WVE1     RJ     LSH         LIST SUB-HEADING                                    FEAT126A     442     A     
 MAP                SA1    TS.ENT                                                          MAP          171     A     
 MAP                SA2    TS=ENT                                                          MAP          172     A     
 MAP                SA5    X1                                                              MAP          173     A     
 MAP                SB4    X2          NUMBER OF ENTRY POINTS                              MAP          174     A     
 MAP                                                                                       MAP          175     A     
 MAP      *         BEGIN NEW LINE.                                                        MAP          176     A     
 MAP                                                                                       MAP          177     A     
 MAP       WVE2     SA4    =1H                                                             MAP          178          I
          -FEAT126A 
 MAP                SA1    TA.NAM                                                          MAP          179          I
          -FEAT126A 
 MAP                SB5    PIG=IG                                                          MAP          180          I
          -FEAT126A 
 MAP                SB6    4                                                               MAP          181          I
          -FEAT126A 
 MAP                SB3    X1          B3 = FWA ADDRESS TABLE                              MAP          182          I
          -FEAT126A 
 MAP                                                                                       MAP          183          I
          -FEAT126A 
 MAP      *         BEGIN NEXT ITEM.                                                       MAP          184          I
          -FEAT126A 
 MAP                                                                                       MAP          185          I
          -FEAT126A 
 MAP       WVE3     SB4    B4-B1                                                           MAP          186          I
          -FEAT126A 
 MAP                SX0    X5                                                              MAP          187          I
          -FEAT126A 
 MAP                LX7    X4                                                              MAP          188          I
          -FEAT126A 
 MAP                BX1    X5-X0       ISOLATE NAME                                        MAP          189          I
          -FEAT126A 
 MAP                MI     B4,WVE4     IF TABLE EXHAUSTED                                  MAP          190          I
          -FEAT126A 
 MAP                SA7    B5                                                              MAP          191          I
          -FEAT126A 
 MAP       WVE2     SA4    TA.NAM                                                          FEAT126A     443     A     
 MAP                SA1    CO.PW                                                           FEAT126A     444          I
          -CP139FC
 MAP                SA1    =XCP.PW                                                         CP139FC      207     A     
 MAP                SB5    LINEBUF                                                         FEAT126A     445     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1586    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SX1    X1                                                              FEAT126A     446     A     
 MAP                SB3    X4                                                              FEAT126A     447     A     
 MAP                AX1    1                                                               FEAT126A     448     A     
 MAP                SB6    X1                                                              FEAT126A     449     A     
 MAP                MX4    0                                                               FEAT126A     450     A     
 MAP                NZ     X1,WVE3     IF IN PW MODE                                       FEAT126A     451     A     
 MAP                SA4    =1H                                                             FEAT126A     452     A     
 MAP                SB6    4                                                               FEAT126A     453     A     
 MAP                                                                                       FEAT126A     454     A     
 MAP      *         BEGIN NEXT ITEM.                                                       FEAT126A     455     A     
 MAP                                                                                       FEAT126A     456     A     
 MAP       WVE3     SB4    B4-B1                                                           FEAT126A     457     A     
 MAP                SX0    X5                                                              FEAT126A     458     A     
 MAP                MI     B4,WVE4     IF TABLE EXHAUSTED                                  FEAT126A     459     A     
 MAP                ZR     X4,WVE3A    IF IN PW MODE                                       FEAT126A     460     A     
 MAP                LX7    X4                                                              FEAT126A     461     A     
 MAP                =B5    B5+1                                                            FEAT126A     462     A     
 MAP                =A7    B5-1                                                            FEAT126A     463     A     
 MAP       WVE3A    BX1    X5-X0       ISOLATE NAME                                        FEAT126A     464     A     
 MAP                AX0    1                                                               MAP          192     A     
 MAP                SB6    B6-B1                                                           MAP          193     A     
 MAP                RJ     SFN         SPACE FILL NAME                                     MAP          194     A     
 MAP                SA1    X0+B3                                                           MAP          195     A     
 MAP                SA6    A7+2                                                            MAP          196          I
          -FEAT126A 
 MAP                =A6    B5+1                                                            FEAT126A     465     A     
 MAP                SB5    A6+B1                                                           MAP          197     A     
 MAP                RJ     PIA         CONVERT ADDRESS                                     MAP          198          I
          -FEAT126C 
 MAP                PIA                CONVERT ADDRESS TO DPC                              FEAT126C      90     A     
 MAP                SA5    A5+B1                                                           MAP          199     A     
 MAP                SA6    A6-B1                                                           MAP          200     A     
 MAP                NZ     B6,WVE3     IF MORE FOR THIS LINE                               MAP          201     A     
 MAP                                                                                       MAP          202     A     
 MAP       WVE4     SA1    =2L                                                             MAP          203          I
          -FEAT126A 
 MAP                BX6    X1          MARK END OF LINE                                    MAP          204          I
          -FEAT126A 
 MAP       WVE4     MX6    0                                                               FEAT126A     466     A     
 MAP                SA6    B5                                                              MAP          205     A     
 MAP                PLINE  PIG=IG                                                          MAP          206          I
          -FEAT126A 
 MAP                SB3    LINEBUF-1                                                       FEAT126A     467     A     
 MAP                PLINE  LINEBUF,B5-B3                                                   FEAT126A     468     A     
 MAP                GT     B4,WVE2     IF MORE ENTRIES                                     MAP          207     A     
 MAP                                                                                       MAP          208     A     
 MAP      *         LIST OUT THE EXTERNALS.                                                MAP          209     A     
 MAP                                                                                       MAP          210     A     
 MAP       WVE5     SA2    NREXT                                                           MAP          211     A     
 MAP                SHRINK TS=ENT,0                                                        MAP          212     A     
 MAP                SX2    X2-1                                                            MAP          213     A     
 MAP                SHRINK TN=EXT,X6                                                       MAP          214     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1587    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                ZR     X2,WVEX     IF NO EXTERNALS                                     MAP          215     A     
 MAP                ALLOC  TN.EXT,X2                                                       MAP          216     A     
 MAP                SA3    TS.SYM                                                          MAP          217     A     
 MAP                SA4    TA=NAM                                                          MAP          218     A     
 MAP                MX2    L.SYM                                                           MAP          219     A     
 MAP                SB5    X1          FWA NEW EXTERNAL TABLE                              MAP          220     A     
 MAP                SA3    X3+B1                                                           MAP          221     A     
 MAP                MX1    -1                                                              MAP          222     A     
 MAP                =B3    3                                                               MAP          223     A     
 MAP                CLAS=  X0,EXT                                                          MAP          224     A     
 MAP       WVE52    IX4    X4+X1       DECREMENT COUNT                                     MAP          225     A     
 MAP                BX7    X0*X3                                                           MAP          226     A     
 MAP                SA3    A3+2                                                            MAP          227     A     
 MAP                MI     X4,WVE54    IF TABLE EXHAUSTED                                  MAP          228     A     
 MAP                ZR     X7,WVE52    IF NOT EXTERNAL                                     MAP          229     A     
 MAP                SA5    A3-B3                                                           MAP          230     A     
 MAP                BX6    X2*X5       MOVE NAME TO EXT TABLE                              MAP          231     A     
 MAP                SA6    B5                                                              MAP          232     A     
 MAP                SB5    B5+B1                                                           MAP          233     A     
 MAP                EQ     WVE52       LOOP..                                              MAP          234     A     
 MAP                                                                                       MAP          235     A     
 MAP       WVE54    SA1    TN.EXT                                                          MAP          236     A     
 MAP                RJ     SRT         SORT ENTRY POINT TABLE                              MAP          237          I
          -FEAT126C 
 MAP                RJ     SRT         SORT EXTERNALS TABLE                                FEAT126C      91     A     
 MAP                SA2    TN=EXT                                                          MAP          238     A     
 MAP                SB4    WVEC                                                            MAP          239     A     
 MAP                SX7    X2+7                                                            MAP          240     A     
 MAP                AX7    3           = ((LENGTH)+7)/8                                    MAP          241          I
          -FEAT126A 
 MAP                RJ     LSH         LIST SUB-HEADING                                    MAP          242          I
          -FEAT126A 
 MAP                SA1    CO.PW                                                           FEAT126A     469          I
          -CP139FC
 MAP                SA1    =XCP.PW                                                         CP139FC      208     A     
 MAP                SX5    8                                                               FEAT126A     470     A     
 MAP                ZR     X1,WVE56    IF NOT IN PW MODE                                   FEAT126A     471     A     
 MAP                SX1    X1                                                              FEAT126A     472     A     
 MAP                AX5    X1,B1                                                           FEAT126A     473     A     
 MAP       WVE56    RJ     LSH         LIST SUB-HEADING                                    FEAT126A     474     A     
 MAP                SA1    TN.EXT                                                          MAP          243     A     
 MAP                SA2    TN=EXT                                                          MAP          244     A     
 MAP                SA5    X1                                                              MAP          245     A     
 MAP                SB4    X2          NUMBER OF EXTERNALS                                 MAP          246     A     
 MAP                                                                                       MAP          247     A     
 MAP      *         BEGIN NEW LINE.                                                        MAP          248     A     
 MAP                                                                                       MAP          249     A     
 MAP       WVE6     SA4    =1H                                                             MAP          250          I
          -FEAT126A 
 MAP                SB6    8                                                               MAP          251          I
          -FEAT126A 
 MAP                BX6    X4                                                              MAP          252          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1588    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FEAT126A 
 MAP                SA6    PIG=IG                                                          MAP          253          I
          -FEAT126A 
 MAP                SA6    A6+B1                                                           MAP          254          I
          -FEAT126A 
 MAP       WVE6     SA1    CO.PW                                                           FEAT126A     475          I
          -CP139FC
 MAP       WVE6     SA1    =XCP.PW                                                         CP139FC      209     A     
 MAP                SB6    X1                                                              FEAT126A     476     A     
 MAP                SA6    LINEBUF-1                                                       FEAT126A     477     A     
 MAP                NZ     X1,WVE7     IF IN PW MODE                                       FEAT126A     478     A     
 MAP                SA4    =1H                                                             FEAT126A     479     A     
 MAP                SB6    8                                                               FEAT126A     480     A     
 MAP                BX6    X4                                                              FEAT126A     481     A     
 MAP                SA6    A6+1                                                            FEAT126A     482     A     
 MAP                SA6    A6+1                                                            FEAT126A     483     A     
 MAP                                                                                       MAP          255     A     
 MAP      *         BEGIN NEXT ITEM.                                                       MAP          256     A     
 MAP                                                                                       MAP          257     A     
 MAP       WVE7     SB4    B4-B1                                                           MAP          258     A     
 MAP                BX1    X5                                                              MAP          259     A     
 MAP                MI     B4,WVE8     IF TABLE EXHAUSTED                                  MAP          260     A     
 MAP                SB6    B6-B1                                                           MAP          261     A     
 MAP                RJ     SFN         SPACE FILL NAME                                     MAP          262     A     
 MAP                SA6    A6+B1                                                           MAP          263     A     
 MAP                SA5    A5+B1                                                           MAP          264     A     
 MAP                NZ     B6,WVE7     IF MORE FOR THIS LINE                               MAP          265     A     
 MAP       WVE8     SA1    =2L                                                             MAP          266          I
          -FEAT126A 
 MAP                BX6    X1          MARK END OF LINE                                    MAP          267          I
          -FEAT126A 
 MAP                SA6    A6+B1                                                           MAP          268          I
          -FEAT126A 
 MAP                PLINE  PIG=IG                                                          MAP          269          I
          -FEAT126A 
 MAP       WVE8     BX6    X6-X6                                                           FEAT126A     484     A     
 MAP                SA6    A6+B1       MARK END OF LINE                                    FEAT126A     485     A     
 MAP                SB3    LINEBUF-1                                                       FEAT126A     486     A     
 MAP                PLINE  LINEBUF,A6-B3                                                   FEAT126A     487     A     
 MAP                GT     B4,WVE6     IF MORE ENTRIES                                     MAP          270     A     
 MAP       WVEX     BSS    0           EXIT..                                              MAP          271     A     
 MAP       WVM      EJECT  4,8                                                             MAP          272     A     
 MAP      **        OUTPUT SYMBOL AND LABEL MAPS AND X-REFS.                               MAP          273     A     
 MAP                                                                                       MAP          274     A     
 MAP                                                                                       MAP          275     A     
 MAP                RJ     PRT         PREPARE REFERENCE TABLES.                           MAP          276     A     
 MAP                                                                                       MAP          277     A     
 MAP      **        PROCESS STATEMENT LABELS.                                              MAP          278     A     
 MAP                                                                                       MAP          279     A     
 MAP                SA2    TS=STN                                                          MAP          280     A     
 MAP                SB4    WVSA                                                            MAP          281     A     
 MAP                SX7    X2+6                                                            MAP          282          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1589    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FEAT126A 
 MAP                AX7    2+1         = ((LENGTH/2)+3)/4                                  MAP          283          I
          -FEAT126A 
 MAP                ZR     X7,WVM5     IF NO LABELS                                        MAP          284          I
          -FEAT126A 
 MAP                RJ     LSH         LIST SUB-HEADING                                    MAP          285          I
          -FEAT126A 
 MAP                SB7    X2                                                              FEAT126A     488     A     
 MAP                LE     B7,B1,WVM5  IF NO LABELS                                        FEAT126A     489     A     
 MAP                SA1    CO.PW                                                           FEAT126A     490          I
          -CP139FC
 MAP                SA1    =XCP.PW                                                         CP139FC      210     A     
 MAP                SX7    X2+6                                                            FEAT126A     491     A     
 MAP                SX5    4                                                               FEAT126A     492     A     
 MAP                ZR     X1,WVL1     IF NOT IN PW MODE                                   FEAT126A     493     A     
 MAP                SX2    X1-2                                                            FEAT126A     494     A     
 MAP                SX3    X2+B1       COMPUTE NO. OF ENTRIES/LINE                         FEAT126A     495     A     
 MAP                LX4    X3,B1       CO.PW/3 = (X+1)*5/16    --    X.LT.17               FEAT126A     496          I
          -CP139FC
 MAP                LX4    X3,B1       CP.PW/3 = (X+1)*5/16 -- X.LT.17                     CP139FC      211     A     
 MAP                LX4    1                                                               FEAT126A     497     A     
 MAP                IX5    X3+X4                                                           FEAT126A     498     A     
 MAP                AX5    4                                                               FEAT126A     499     A     
 MAP                SX5    X5+B1                                                           FEAT126A     500     A     
 MAP       WVL1     RJ     LSH         LIST SUB-HEADING                                    FEAT126A     501     A     
 MAP                                                                                       MAP          286     A     
 MAP                SA1    WVS=RJ                                                          MAP          287     A     
 MAP                =X6    4-1                                                             MAP          288     A     
 MAP                RJ     WRM         WRITE REF MAP (LABELS, 4/LINE)                      MAP          289          I
          -FEAT126A 
 MAP                SA2    CO.PW                                                           FEAT126A     502          I
          -CP139FC
 MAP                SA2    =XCP.PW                                                         CP139FC      212     A     
 MAP                ZR     X2,WVM4     IF NOT IN PW MODE                                   FEAT126A     503     A     
 MAP                SX2    X2-2                                                            FEAT126A     504     A     
 MAP                SX3    X2+B1       COMPUTE NO. OF ENTRIES PER LINE - 1                 FEAT126A     505     A     
 MAP                LX4    X3,B1                                                           FEAT126A     506     A     
 MAP                LX4    1                                                               FEAT126A     507     A     
 MAP                IX6    X3+X4                                                           FEAT126A     508     A     
 MAP                AX6    4           X6 = WVBT/3                                         FEAT126A     509     A     
 MAP       WVM4     RJ     WRM         WRITE REF MAP  (LABEL MAP)                          FEAT126A     510     A     
 MAP                                                                                       MAP          290     A     
 MAP      **        PROCESS VARIABLES.                                                     MAP          291     A     
 MAP                                                                                       MAP          292     A     
 MAP       WVM5     SA2    TS=SYM                                                          MAP          293     A     
 MAP                SB4    WVVA                                                            MAP          294     A     
 MAP                SX7    X2+3                                                            MAP          295     A     
 MAP                AX7    1+1         = ((LENGTH/2)+1)/2                                  MAP          296          I
          -FEAT126A 
 MAP                ZR     X7,WVMX     IF NO SYMBOLS                                       MAP          297          I
          -FEAT126A 
 MAP                RJ     LSH         LIST SUB-HEADING                                    MAP          298          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1590    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FEAT126A 
 MAP                SB7    X2                                                              FEAT126A     511     A     
 MAP                SX5    B1+B1                                                           FEAT126A     512     A     
 MAP                LE     B7,B1,WVMX  IF NO SYMBOLS                                       FEAT126A     513     A     
 MAP                SA1    CO.PW                                                           FEAT126A     514          I
          -CP139FC
 MAP                SA1    =XCP.PW                                                         CP139FC      213     A     
 MAP                ZR     X1,WVM6     IF NOT IN PW MODE                                   FEAT126A     515     A     
 MAP                SX5    B1                                                              FEAT126A     516     A     
 MAP       WVM6     RJ     LSH         LIST SUB-HEADING                                    FEAT126A     517     A     
 MAP                                                                                       MAP          299     A     
 MAP                SA2    TS.SYM                                                          MAP          300     A     
 MAP                SA3    TS=SYM                                                          MAP          301     A     
 MAP                BX6    X2                                                              MAP          302     A     
 MAP                LX7    X3                                                              MAP          303     A     
 MAP                SA1    WVV=RJ                                                          MAP          304     A     
 MAP                SA6    TS.STN      SWITCH TO SYMBOL TABLE                              MAP          305     A     
 MAP                SA7    TS=STN                                                          MAP          306     A     
 MAP                =X6    2-1                                                             MAP          307     A     
 MAP                SA2    CO.PW       IF CO.PW .EQ. 0 THEN X6 = 1                         FEAT126A     518          I
          -CP139FC
 MAP                SA2    =XCP.PW     IF CP.PW .EQ.0 THEN X6 = 1                          CP139FC      214     A     
 MAP                ZR     X2,WVM7     IF NOT IN PW MODE                                   FEAT126A     519     A     
 MAP                SX2    X2-10                                                           FEAT126A     520     A     
 MAP                BX3    -X2         ELSE IF WVBT .GE. 10 THEN X6=1                      FEAT126A     521     A     
 MAP                AX3    59                                                              FEAT126A     522     A     
 MAP                SX2    B1          ELSE X6=0                                           FEAT126A     523     A     
 MAP                BX6    X3*X2                                                           FEAT126A     524     A     
 MAP                RJ     WRM         WRITE REF MAP (SYMBOLS, 2/LINE)                     MAP          308          I
          -FEAT126A 
 MAP       WVM7     RJ     WRM         WRITE REF MAP (SYMBOL MAP)                          FEAT126A     525     A     
 MAP                EQ     WVMX        EXIT..                                              MAP          309          I
          -FEAT155G 
 MAP                EQ     LPS         EXIT TO LIST PROGRAM STATISTICS                     FEAT155G     412     A     
 MAP                                                                                       MAP          310     A     
 MAP       WVS=RJ   RJ     WVS                                                             MAP          311     A     
 MAP       WVV=RJ   RJ     WVV                                                             MAP          312     A     
 MAP       WRM      EJECT  4,8                                                             MAP          313     A     
 MAP      **        WRM -  WRITE REFERENCE MAP.                                            MAP          314     A     
 MAP      *                                                                                MAP          315     A     
 MAP      *         ENTRY  (TS STN) = POINTERS TO TABLE TO PROCESS.                        MAP          316     A     
 MAP      *                (X1) = RETURN JUMP TO FORMATTER INSTRUCTION.                    MAP          317     A     
 MAP      *                (X6) = NUMBER MINUS ONE OF ENTRIES PER LINE, IN NON-REF         MAP          318     A     
 MAP      *                       MODE.  WILL ALWAYS BE SET TO ONE IF REF MAP ON.          MAP          319     A     
 MAP      *         USES   ALL BUT A0.                                                     MAP          320     A     
 MAP                                                                                       MAP          321     A     
 MAP                                                                                       MAP          322     A     
 MAP       WRM      SUBR               ENTRY/EXIT...                                       MAP          323     A     
 MAP                SA2    LOP=R                                                           MAP          324     A     
 MAP                BX7    X1                                                              MAP          325     A     
 MAP                AX2    -1          -0 IF REF ON, ELSE +0                               MAP          326     A     
 MAP                SA7    WRM.RJ                                                          MAP          327     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1591    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                BX3    -X2*X6      +0          ,      (X6)                             MAP          328     A     
 MAP                =X6    X3+1         1          ,      (X6)+1                           MAP          329     A     
 MAP                SA6    SCR         SET ENTRIES PER LINE                                MAP          330     A     
 MAP                RJ     WRM2-1      VOID STACK                                          FCCA597        4     A     
 MAP       +        PS                                                                     FCCA597        5     A     
 MAP                                                                                       MAP          331     A     
 MAP       WRM2     SA3    SCR         FETCH ENTRIES PER LINE                              MAP          332     A     
 MAP                SB5    LINEBUF                                                         MAP          333     A     
 MAP                BX6    X3                                                              MAP          334     A     
 MAP                SA4    =1H                                                             MAP          335     A     
 MAP                =A6    A3+1        RESET LOOP COUNT                                    MAP          336     A     
 MAP                                                                                       MAP          337     A     
 MAP       WRM4     SA1    TS=STN                                                          MAP          338     A     
 MAP                SA2    TS.STN                                                          MAP          339     A     
 MAP                =X0    2                                                               MAP          340     A     
 MAP                IX6    X2+X0                                                           MAP          341     A     
 MAP                SA5    X2          FETCH TABLE ENTRY                                   MAP          342     A     
 MAP                IX7    X1-X0       DECREMENT LENGTH OF TABLE                           MAP          343     A     
 MAP                SA6    A2                                                              MAP          344     A     
 MAP                ZR     X1,WRM6     IF TABLE EXHAUSTED                                  MAP          345     A     
 MAP                SA7    A1                                                              MAP          346     A     
 MAP                BX6    X4                                                              MAP          347          I
          -FEAT126A 
 MAP       WRM.RJ   RJ     **          FORMAT SYM OR LAB FOR LISTING                       MAP          348     A     
 MAP                SA2    SCR+1                                                           MAP          349     A     
 MAP                SX7    X2-1        DECREMENT LOOP COUNT                                MAP          350     A     
 MAP                SA7    A2                                                              MAP          351     A     
 MAP                NZ     X7,WRM4     IF MORE FOR THIS LINE                               MAP          352     A     
 MAP                =A5    A5-1                                                            MAP          353     A     
 MAP                SB2    LINEBUF+12                                                      MAP          354          I
          -FEAT126A 
 MAP                SB6    B2-B5                                                           MAP          355          I
          -FEAT126A 
 MAP                SA1    CO.PW                                                           FEAT126A     526          I
          -CP139FC
 MAP                SA1    =XCP.PW                                                         CP139FC      215     A     
 MAP                SX5    X5                                                              MAP          356     A     
 MAP                SB2    LINEBUF+12                                                      FEAT126A     527     A     
 MAP                SB6    B2-B5                                                           FEAT126A     528     A     
 MAP                ZR     X1,WRM5     IF NOT IN PW MODE                                   FEAT126A     529     A     
 MAP                SB2    LINEBUF+X1                                                      FEAT126A     530     A     
 MAP                SB6    B2-B5                                                           FEAT126A     531     A     
 MAP                EQ     B6,WRM6     IF LINE FILLED                                      FEAT126A     532     A     
 MAP                                                                                       MAP          357     A     
 MAP       WRM5     RJ     FXR         FORMAT X-REF                                        MAP          358     A     
 MAP       WRM6     SX6    2R                                                              MAP          359          I
          -FEAT126A 
 MAP                LX6    -2*CHAR     MARK END OF LINE                                    MAP          360          I
          -FEAT126A 
 MAP                SA6    B5                                                              MAP          361          I
          -FEAT126A 
 MAP       WRM6     SA1    CO.PW                                                           FEAT126A     533          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1592    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -CP139FC
 MAP       WRM6     SA1    =XCP.PW                                                         CP139FC      216     A     
 MAP                ZR     X1,WRM6A    IF NOT IN PW MODE                                   FEAT126A     534     A     
 MAP                SA2    B5-B1                                                           FEAT126A     535     A     
 MAP                IX0    X2-X4                                                           FEAT126A     536     A     
 MAP                NZ     X0,WRM6A    IF WORD NOT BLANK                                   FEAT126A     537     A     
 MAP                SB5    B5-B1                                                           FEAT126A     538     A     
 MAP                EQ     WRM6                                                            FEAT126A     539     A     
 MAP                                                                                       FEAT126A     540     A     
 MAP       WRM6A    MX6    0                                                               FEAT126A     541     A     
 MAP                SA6    B5          MARK END OF LINE                                    FEAT126A     542     A     
 MAP                PLINE  LINEBUF                                                         MAP          362          I
          -FEAT126A 
 MAP                SB3    LINEBUF-1                                                       FEAT126A     543     A     
 MAP                PLINE  LINEBUF,B5-B3                                                   FEAT126A     544     A     
 MAP                SA1    =1H                                                             MAP          363     A     
 MAP                SB5    LINEBUF+5                                                       MAP          364          I
          -FEAT126A 
 MAP                LX6    X1                                                              MAP          365          I
          -FEAT126A 
 MAP                SB6    7                                                               MAP          366          I
          -FEAT126A 
 MAP                =A6    B5-1        BLANK LINBUF+4                                      MAP          367          I
          -FEAT126A 
 MAP                SA3    CO.PW                                                           FEAT126A     545          I
          -CP139FC
 MAP                SA3    =XCP.PW                                                         CP139FC      217     A     
 MAP                LX6    X1                                                              FEAT126A     546     A     
 MAP                SB5    LINEBUF+5                                                       FEAT126A     547     A     
 MAP                SA6    LINEBUF                                                         FEAT126A     548     A     
 MAP                SB6    7                                                               FEAT126A     549     A     
 MAP                ZR     X3,WRM7     IF NOT IN PW MODE                                   FEAT126A     550     A     
 MAP                SB5    LINEBUF+1                                                       FEAT126A     551     A     
 MAP                =B6    X3-1                                                            FEAT126A     552     A     
 MAP                EQ     WRM8                                                            FEAT126A     553     A     
 MAP                                                                                       FEAT126A     554     A     
 MAP       WRM7     =A6    B5-1        BLANK LINEBUF+4                                     FEAT126A     555     A     
 MAP                =A6    A6-1        BLANK LINBUF+3                                      MAP          368     A     
 MAP                =A6    A6-1        BLANK LINBUF+2                                      MAP          369     A     
 MAP                =A6    A6-1        BLANK LINBUF+1                                      MAP          370     A     
 MAP                =A6    A6-1        BLANK LINBUF+0                                      MAP          371          I
          -FEAT126A 
 MAP                NZ     X5,WRM5     IF (MORE) REF CHAIN                                 MAP          372          I
          -FEAT126A 
 MAP       WRM8     NZ     X5,WRM5     IF (MORE) REF CHAIN                                 FEAT126A     556     A     
 MAP                                                                                       MAP          373     A     
 MAP                SA2    TS=STN                                                          MAP          374     A     
 MAP                NZ     X2,WRM2     IF TABLE NOT EXHAUSTED                              MAP          375     A     
 MAP                EQ     EXIT.                                                           MAP          376     A     
 MAP       WVS      EJECT  4,8                                                             MAP          377     A     
 MAP      **        WVS -  FORMAT STATEMENT LABEL FOR MAP.                                 MAP          378     A     
 MAP      *                                                                                MAP          379     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1593    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *         ENTRY  (B5) _ FWA TO STORE.                                            MAP          380     A     
 MAP      *                (A5) _ TS.STN ENTRY TO PROCESS.                                 MAP          381     A     
 MAP      *                (X5) = ((A5))                                                   MAP          382     A     
 MAP      *                (X4) = 10H                                                      MAP          383     A     
 MAP      *                                                                                MAP          384     A     
 MAP      *         EXIT   (B5) _ LAST ADDRESS + 1 STORED INTO.                            MAP          385     A     
 MAP      *                (X4) PRESERVED.                                                 MAP          386     A     
 MAP                                                                                       MAP          387     A     
 MAP                                                                                       MAP          388     A     
 MAP       WVS      SUBR               ENTRY/EXIT...                                       MAP          389     A     
 MAP                BX7    X4                                                              MAP          390          I
          -FEAT126A 
 MAP                AX5    P.STN                                                           MAP          391          I
          -FEAT126A 
 MAP                SA7    B5                                                              MAP          392          I
          -FEAT126A 
 MAP                RJ     LJS         LEFT JUSTIFY STATEMENT LABEL                        MAP          393          I
          -FEAT126A 
 MAP                SA1    CO.PW                                                           FEAT126A     557          I
          -CP139FC
 MAP                SA1    =XCP.PW                                                         CP139FC      218     A     
 MAP                SB2    LINEBUF                                                         FEAT126A     558     A     
 MAP                AX5    P.STN                                                           FEAT126A     559     A     
 MAP                BX7    X4                                                              FEAT126A     560     A     
 MAP                ZR     X1,WVS30    IF NOT IN PW MODE                                   FEAT126A     561     A     
 MAP                EQ     B5,B2,WVS32 IF AT BEGINNING OF LINE                             FEAT126A     562     A     
 MAP       WVS30    SA7    B5                                                              FEAT126A     563     A     
 MAP                SB5    B5+B1                                                           FEAT126A     564     A     
 MAP       WVS32    RJ     LJS         LEFT JUSTIFY STATEMENT LABEL                        FEAT126A     565     A     
 MAP                =A5    A5+1        FETCH TAG ENTRY                                     MAP          394     A     
 MAP                LX6    -CHAR                                                           MAP          395     A     
 MAP                BX1    0                                                               MAP          396     A     
 MAP                IFBIT  X5,-SNFMT,WVS34                                                 MAP          397     A     
 MAP                SX1    1RF&1R                                                          MAP          398     A     
 MAP       WVS34    IFBIT  X5,-SNDOT/SNFMT,WVS36                                           MAP          399     A     
 MAP                SX1    1RD&1R                                                          MAP          400     A     
 MAP       WVS36    IFBIT  X5,-SNINA/SNDOT,WVS38                                           MAP          401     A     
 MAP                SX1    X1+2RI &2R                                                      MAP          402     A     
 MAP       WVS38    BX6    X6-X1                                                           MAP          403     A     
 MAP                =A6    B5+1                                                            MAP          404          I
          -FEAT126A 
 MAP                SA6    B5                                                              FEAT126A     566     A     
 MAP                                                                                       MAP          405     A     
 MAP      **        CONVERT AND FORMAT ADDRESS.                                            MAP          406     A     
 MAP                                                                                       MAP          407     A     
 MAP                LX5    P.SNINA+1-P.SNAD                                                MAP          408     A     
 MAP                SX1    X5                                                              MAP          409     A     
 MAP                RJ     COD         CONVERT OCTAL (ADDRESS)                             MAP          410          I
          -FEAT126C 
 MAP                PIA                CONVERT ADDRESS TO DPC                              FEAT126C      92     A     
 MAP                MX1    0                                                               MAP          411     A     
 MAP                IFBIT  X5,SNDEF/SNAD-1,WVS42                                           MAP          412     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1594    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SX1    2R  -2RU                                                        MAP          413     A     
 MAP       WVS42    IX6    X6-X1                                                           MAP          414     A     
 MAP                LX6    -2*CHAR                                                         MAP          415     A     
 MAP                =A6    A6+1                                                            MAP          416     A     
 MAP                =B5    A6+1                                                            MAP          417     A     
 MAP                EQ     EXIT.                                                           MAP          418     A     
 MAP       WVV      EJECT  4,8                                                             MAP          419     A     
 MAP      **        WVV -  OUTPUT VARIABLE ASSIGNMENTS.                                    MAP          420     A     
 MAP      *                                                                                MAP          421     A     
 MAP      *         ENTRY  (B5) _ FWA TO STORE.                                            MAP          422     A     
 MAP      *                (A5) _ TS.SYM ENTRY TO PROCESS.                                 MAP          423     A     
 MAP      *                (X5) = ((A5))                                                   MAP          424     A     
 MAP      *                (X4) = 10H                                                      MAP          425     A     
 MAP      *                                                                                MAP          426     A     
 MAP      *         EXIT   (B5) _ LAST ADDRESS + 1 STORED INTO.                            MAP          427     A     
 MAP      *                (X4) PRESERVED.                                                 MAP          428     A     
 MAP                                                                                       MAP          429     A     
 MAP                                                                                       MAP          430     A     
 MAP       WVV      SUBR               ENTRY/EXIT...                                       MAP          431     A     
 MAP                SX1    X5                                                              MAP          432     A     
 MAP                BX1    X5-X1                                                           MAP          433     A     
 MAP                =A5    A5+1        FETCH TAG ENTRY                                     MAP          434     A     
 MAP                RJ     SFN         G000ABCDEF                                          MAP          435     A     
 MAP                LX6    4*CHAR      DEFG000ABC                                          MAP          436     A     
 MAP                BX1    X5                                                              MAP          437     A     
 MAP                SX7    X6                                                              MAP          438     A     
 MAP                MX2    -L.MODE                                                         MAP          439     A     
 MAP                IX6    X6-X7                                                           MAP          440     A     
 MAP                BX0    -X2*X5                                                          MAP          441     A     
 MAP                SA2    =7L                                                             MAP          442     A     
 MAP                LX5    -P.PNT                                                          MAP          443     A     
 MAP                SA3    X0+WVVC     FETCH *TYPE* LETTER                                 MAP          444     A     
 MAP                BX7    X2+X7                                                           MAP          445     A     
 MAP                IX6    X6+X3                                                           MAP          446     A     
 MAP                MX0    -L.PNT                                                          MAP          447     A     
 MAP                BX2    -X0*X5      ISOLATE TP.DIM ORDINAL                              MAP          448     A     
 MAP                SB3    X2                                                              MAP          449     A     
 MAP                AX1    P.TAG+1                                                         MAP          450     A     
 MAP                SA2    TA.NAM                                                          MAP          451     A     
 MAP                SB7    X1-C.VAR/2  ORDINAL OF ENTRY IN ADDRESS TABLE                   MAP          452     A     
 MAP                SA7    B5                                                              MAP          453     A     
 MAP                BX0    X5                                                              MAP          454     A     
 MAP                IFBIT  X5,-FP/PNT-1,WVV32                                              MAP          455     A     
 MAP                SX1    1RA&1R                                                          MAP          456     A     
 MAP                BX6    X6-X1                                                           MAP          457     A     
 MAP       WVV32    IFBIT  X5,VAR/FP,WVV4                                                  MAP          458     A     
 MAP                                                                                       MAP          459     A     
 MAP      **        HANDLE NON-VARIABLES HERE.                                             MAP          460     A     
 MAP                                                                                       MAP          461     A     
 MAP                IFBIT  X0,-NVAR/PNT-1,WVV42                                            MAP          462     A     
 MAP                =A6    A7+1                                                            MAP          463     A     
 MAP                IFBIT  X5,-RP/VAR,WVV33  IF NOT RETURNS PARAMETER                      MAP          464     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1595    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SA3    CLASS+P.RP-P.DEF                                                MAP          465     A     
 MAP                LX5    P.RP+1      RESTORE (X5)                                        MAP          466     A     
 MAP                BX6    X4                                                              MAP          467     A     
 MAP                EQ     WVV34                                                           MAP          468     A     
 MAP       WVV33    LX5    P.RP+1      RESTORE (X5)                                        MAP          469     A     
 MAP                CLAS=  X1,(INLINE,ASF,SUB,BEF,FUN,EXT,ENT)                             MAP          470     A     
 MAP                SBIT   X0,ENT/NVAR                                                     MAP          471     A     
 MAP                BX7    X1*X5                                                           MAP          472     A     
 MAP                NX1,B2 X7                                                              MAP          473          I
          -FCC0524
 MAP                NZ     X7,WVV33A   IF ONE OF ABOVE CLASSES                             FCC0524        3     A     
 MAP                SX1    M.NLST                                                          FCC0524        4     A     
 MAP                BX1    X1*X5                                                           FCC0524        5     A     
 MAP                NZ     X1,WVV33A   IF NAMELIST                                         FCC0524        6     A     
 MAP                                                                                       FCC0524        7     A     
 MAP      **        LIST NO CLASSES IF NO CLASS BIT ON.  THIS INCLUDES CASE OF             FCC0524        8     A     
 MAP      *         FILE NAME WHEN LINKAGE SUPPRESSED (*SYSEDIT* PARAMETER).               FCC0524        9     A     
 MAP                                                                                       FCC0524       10     A     
 MAP                LX6    X4                                                              FCC0524       11     A     
 MAP                BX7    X4          KIND OF NVAR = BLANK                                FCC0524       12     A     
 MAP                EQ     WVV38                                                           FCC0524       13     A     
 MAP                                                                                       FCC0524       14     A     
 MAP       WVV33A   NX1,B2 X7                                                              FCC0524       15     A     
 MAP                SB3    CLASS-P.CLASS2+47                                               MAP          474     A     
 MAP                SB3    B3+L.CL                                                         MAP          475     A     
 MAP                SA3    B3-B2                                                           MAP          476     A     
 MAP                BX6    X4                                                              MAP          477     A     
 MAP                PL     X0,WVV35    IF NOT ENTRY POINT                                  MAP          478     A     
 MAP       WVV34    SA2    X2+B7       FETCH ADDRESS TABLE ENTRY                           MAP          479     A     
 MAP                SX1    X2                                                              MAP          480     A     
 MAP                RJ     COD         CONVERT OCTAL (ADDRESS)                             MAP          481          I
          -FEAT126C 
 MAP                PIA                CONVERT ADDRESS TO DPC                              FEAT126C      93     A     
 MAP                                                                                       MAP          482     A     
 MAP       WVV35    LX6    -CHAR                                                           MAP          483     A     
 MAP                SX2    1S6                                                             MAP          484     A     
 MAP                BX1    X2*X3                                                           MAP          485     A     
 MAP                ZR     X1,WVV37    IF NO WEIRD CHARACTER                               MAP          486     A     
 MAP                MX2    -CHAR                                                           MAP          487     A     
 MAP                SX1    1R                                                              MAP          488     A     
 MAP                BX3    X2*X3       REMOVE WEIRD CHARACTER                              MAP          489     A     
 MAP                                                                                       MAP          490     A     
 MAP       WVV37    BX7    X3+X1                                                           MAP          491     A     
 MAP                =A6    A6+1        = ADDRESS                                           MAP          492          I
          -FCC0524
 MAP                                                                                       FCC0524       16     A     
 MAP       WVV38    =A6    A6+1        = ADDRESS                                           FCC0524       17     A     
 MAP                =A7    A6+1        BLOCK = KIND OF NVAR                                MAP          493     A     
 MAP                BX6    X4                                                              MAP          494     A     
 MAP                =A6    A7+1        ARY LEN = BLANK                                     MAP          495     A     
 MAP                =B5    A6+1                                                            MAP          496     A     
 MAP                EQ     EXIT.                                                           MAP          497     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1596    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                                                                                       MAP          498     A     
 MAP      **        CONVERT AND FORMAT ADDRESS+/BLOCK/.                                    MAP          499     A     
 MAP                                                                                       MAP          500     A     
 MAP       WVV4     IFBIT  X0,-EQUIV/PNT-1,WVV42                                           MAP          501     A     
 MAP                SX1    1R#&1R                                                          MAP          502     A     
 MAP                BX6    X6-X1                                                           MAP          503     A     
 MAP       WVV42    =A6    A7+1                                                            MAP          504     A     
 MAP                SA3    X2+B7       FETCH ADDRESS TABLE ENTRY                           MAP          505     A     
 MAP                SX1    X3                                                              MAP          506     A     
 MAP                LX3    -P.BLOCK                                                        MAP          507     A     
 MAP                RJ     COD         CONVERT OCTAL (ADDRESS)                             MAP          508          I
          -FEAT126C 
 MAP                PIA                CONVERT ADDRESS TO DPC                              FEAT126C      94     A     
 MAP                SBIT   X5,DEF/VAR                                                      MAP          509          I
          -FCC1495AX
 MAP                BX1    0                                                               MAP          510          I
          -FCC1495AX
 MAP                MI     X5,WVV44    IF DEFINED                                          MAP          511          I
          -FCC1495AX
 MAP                BX1    0                                                               FCC1495AX      9     A     
 MAP                IFBIT  X5,DEF/VAR,WVV44  IF DEFINED                                    FCC1495AX     10     A     
 MAP                LX0    X5                                                              FCC1495AX     11     A     
 MAP                IFBIT  X0,FP/DEF,WVV44  IF FORMAL PARAMETER                            FCC1495AX     12     A     
 MAP                SX1    1RU&1R                                                          MAP          512     A     
 MAP       WVV44    BX6    X6-X1                                                           MAP          513     A     
 MAP                LX6    -CHAR                                                           MAP          514     A     
 MAP                SA1    TS.BLK                                                          MAP          515     A     
 MAP                =A6    A6+1                                                            MAP          516     A     
 MAP                IX0    X3+X1                                                           MAP          517     A     
 MAP                SA1    TP.DIM                                                          MAP          518     A     
 MAP                SA2    X0          FETCH BLOCK NAME                                    MAP          519     A     
 MAP                MX0    -L.DIMLG                                                        MAP          520     A     
 MAP                BX7    X2                                                              MAP          521     A     
 MAP                SA2    X1+B3       FIRST DIM WORD                                      MAP          522     A     
 MAP                =A7    A6+1                                                            MAP          523     A     
 MAP                                                                                       MAP          524     A     
 MAP      **        FORMAT ARRAY SIZE.                                                     MAP          525     A     
 MAP                                                                                       MAP          526     A     
 MAP                BX6    X4                                                              MAP          527     A     
 MAP                IFBIT  X5,-ARY/DEF,WVV5                                                MAP          528     A     
 MAP                LX2    -P.DIMLG                                                        MAP          529     A     
 MAP                BX1    -X0*X2                                                          MAP          530     A     
 MAP                SBIT   X2,VDIM/DIMLG-1                                                 MAP          531     A     
 MAP                PL     X2,WVV46    IF NOT VARIABLY DIMENSIONED                         MAP          532     A     
 MAP                SA2    =10HVAR-DIM                                                     MAP          533     A     
 MAP                BX6    X2                                                              MAP          534     A     
 MAP                EQ     WVV5                                                            MAP          535     A     
 MAP                                                                                       MAP          536     A     
 MAP       WVV46    RJ     CDD         CONVERT DECIMAL DIGITS (ARRAY LENGTH)               MAP          537     A     
 MAP                SB2    B2-9*CHAR                                                       MAP          538     A     
 MAP                SA4    A4                                                              MAP          539     A     
 MAP                AX6    B2          LEFT JUSTIFY                                        MAP          540     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1597    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                                                                                       MAP          541     A     
 MAP       WVV5     =A6    A7+1                                                            MAP          542     A     
 MAP                =B5    A6+1                                                            MAP          543     A     
 MAP                EQ     EXIT.                                                           MAP          544     A     
 MAP                                                                                       MAP          545     A     
 MAP                                                                                       MAP          546     A     
 MAP      *         THIS VALUE CORESPONDS TO HDRSUBL IN RAN.  SHOULD THAT VALUE            MAP          547          I
          -FEAT126A 
 MAP      *         CHANGE, THIS EQUATE MUST BE CHANGED.                                   MAP          548          I
          -FEAT126A 
 MAP                                                                                       MAP          549          I
          -FEAT126A 
 MAP       HDRSUBL  EQU    4                                                               MAP          550          I
          -FEAT126A 
 MAP       HDRSUBL  EQU    4           LENGTH OF EACH SUBTITLE                             FEAT126A     567          I
          -FEAT155H 
 MAP       WVBA     DATA   38L--  C O M M O N   B L O C K S   --                           MAP          551          I
          -FEAT126A -FEAT155H 
 MAP       WVBD     BSS    2           TEMP HOLDING FOR NUM OF BLOCKS                      MAP          552          I
          -FEAT126A -FEAT155H 
 MAP       WVEA     DATA   38L--  E N T R Y   P O I N T S  --                              MAP          553          I
          -FEAT126A -FEAT155H 
 MAP       WVEC     DATA   38L--   E X T E R N A L S     --                                MAP          554          I
          -FEAT126A -FEAT155H 
 MAP       WVSA     DATA   38L-- S T A T E M E N T  L A B E L S --                         MAP          555          I
          -FEAT126A -FEAT155H 
 MAP       WVVA     DATA   38L--  V A R I A B L E   M A P  --                              MAP          556          I
          -FEAT126A -FEAT155H 
 MAP       WVBA     DATA   31C  --C O M M O N   B L O C K S--                              FEAT126A     568          I
          -FEAT155H 
 MAP       WVEA     DATA   29C  --E N T R Y   P O I N T S--                                FEAT126A     569          I
          -FEAT155H 
 MAP       WVEC     DATA   23C  --E X T E R N A L S--                                      FEAT126A     570          I
          -FEAT155H 
 MAP                BSSZ   1           ZERO WORD FOR HDRSUBL CONSISTENCY                   FEAT126A     571          I
          -FEAT155H 
 MAP       WVSA     DATA   37C  --S T A T E M E N T   L A B E L S--                        FEAT126A     572          I
          -FEAT155H 
 MAP       WVVA     DATA   29C  --V A R I A B L E   M A P--                                FEAT126A     573          I
          -FEAT155H 
 MAP       WVBA     DATA   18C --COMMON BLOCKS--                                           FEAT155H     123     A     
 MAP       WVEA     DATA   17C --ENTRY POINTS--                                            FEAT155H     124     A     
 MAP       WVEC     DATA   14C --EXTERNALS--                                               FEAT155H     125     A     
 MAP       WVSA     DATA   21C --STATEMENT LABELS--                                        FEAT155H     126     A     
 MAP       WVVA     DATA   17C --VARIABLE MAP--                                            FEAT155H     127     A     
 MAP       WVBD     BSS    2           TEMP HOLDING FOR NUM OF BLOCKS                      FEAT126A     574     A     
 MAP                                                                                       MAP          557     A     
 MAP       WVVC     BSS    0           *TYPE* LETTERS                                      MAP          558     A     
 MAP                LOC    M.UNIV                                                          MAP          559     A     
 MAP                DATA   3R-                                                             MAP          560     A     
 MAP                DATA   3RL                                                             MAP          561     A     
 MAP                DATA   3RI                                                             MAP          562     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1598    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                DATA   3RR                                                             MAP          563     A     
 MAP                DATA   3RD                                                             MAP          564     A     
 MAP                DATA   3RZ                                                             MAP          565     A     
 MAP                DATA   3RN                                                             MAP          566     A     
 MAP                DATA   3R                                                              MAP          567     A     
 MAP                LOC    *O                                                              MAP          568     A     
 MAP       WCL      EJECT                                                                  MAP          569          I
          -FEAT155G 
 MAP      **        WCL -  WRITE (PSUEDO) COMPASS LISTING.                                 MAP          570          I
          -FEAT126C -FEAT155G 
 MAP      **        WCL -  WRITE (PSEUDO) COMPASS LISTING.                                 FEAT126C      95          I
          -FEAT155G 
 MAP      *         CALLED DURING *END* PROCESSING TO LIST EVERYTHING THAT GOES            MAP          571          I
          -FEAT155G 
 MAP      *         INTO THE BINARY THAT HASNT BEEN LISTED.                                MAP          572          I
          -FEAT155G 
 MAP                                                                                       MAP          573          I
          -FEAT155G 
 MAP                                                                                       MAP          574          I
          -FEAT155G 
 MAP       WCL      BSS    0           ENTRY...                                            MAP          575          I
          -FEAT155G 
 MAP       WCC      SPACE  4,8                                                             MAP          576          I
          -FEAT155G 
 MAP      **        WCC -  LIST CONSTANT ASSIGNMENTS.                                      MAP          577          I
          -FEAT155G 
 MAP                                                                                       MAP          578          I
          -FEAT155G 
 MAP                                                                                       MAP          579          I
          -FEAT155G 
 MAP                SA3    TS.CON                                                          MAP          580          I
          -FEAT155G 
 MAP                =B4    0           (B4) = ORDINAL IN CON TABLE                         MAP          581          I
          -FEAT155G 
 MAP                SA2    TS=CON                                                          MAP          582          I
          -FEAT155G 
 MAP                SA5    X3          FETCH FIRST CONSTANT                                MAP          583          I
          -FEAT155G 
 MAP                SA0    X2          A0 = LENGTH OF TABLE                                MAP          584          I
          -FEAT155G 
 MAP                ZR     X2,WCCX     IF NO CONSTANTS                                     MAP          585          I
          -FEAT126A -FEAT155G 
 MAP                SA3    =XCO.PW                                                         FEAT126A     575          I
          -FEAT155G 
 MAP                SX7    8                                                               FEAT126A     576          I
          -FEAT155G 
 MAP                ZR     X3,WCC1     IF NOT IN PW MODE                                   FEAT126A     577          I
          -FEAT155G 
 MAP                SX7    6                                                               FEAT126A     578          I
          -FEAT155G 
 MAP                SX6    1RB                                                             FEAT126A     579          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1599    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                LX6    9*CHAR                                                          FEAT126A     580          I
          -FEAT155G 
 MAP                SA6    WCCA2A                                                          FEAT126A     581          I
          -FEAT155G 
 MAP       WCC1     SA7    WVBD                                                            FEAT126A     582          I
          -FEAT155G 
 MAP                ZR     X2,WCCX     IF NOT CONSTANTS                                    FEAT126A     583          I
          -FEAT155G 
 MAP                PLINE  ,1                                                              MAP          586          I
          -FEAT126A -FEAT155G 
 MAP                PLINE  ,,1                                                             FEAT126A     584          I
          -FEAT155G 
 MAP                                                                                       MAP          587          I
          -FEAT155G 
 MAP       WCC2     SX3    B4+C.CON                                                        MAP          588          I
          -FEAT155G 
 MAP                RJ     KIT         KONVERT TO EXTERNAL FORMAT                          MAP          589          I
          -FEAT155G 
 MAP                BX1    X6                                                              MAP          590          I
          -FEAT155G 
 MAP                RJ     SFN         SPACE FILL NAME.                                    MAP          591          I
          -FEAT155G 
 MAP                LX1    X5                                                              MAP          592          I
          -FEAT155G 
 MAP                SA6    WCCA1       +1 = TAG                                            MAP          593          I
          -FEAT155G 
 MAP                BX6    X5                                                              MAP          594          I
          -FEAT155G 
 MAP                SB5    A5+B1                                                           MAP          595          I
          -FEAT155G 
 MAP                SA6    WCCA3       +6 = DPC ECHO OF CON                                MAP          596          I
          -FEAT155G 
 MAP                RJ     WOD         CONVERT CONST TO DPC                                MAP          597          I
          -FEAT155G 
 MAP                SA5    B5                                                              MAP          598          I
          -FEAT155G 
 MAP                SA4    BA.CON                                                          MAP          599          I
          -FEAT155G 
 MAP                SA6    WCCA2       +3 = ABCDEFGHIJ                                     MAP          600          I
          -FEAT155G 
 MAP                SA7    A6+B1       +4 = KLMNOPQRST                                     MAP          601          I
          -FEAT155G 
 MAP                SX1    B4+X4                                                           MAP          602          I
          -FEAT155G 
 MAP                SB4    B4+B1                                                           MAP          603          I
          -FEAT155G 
 MAP                PIA    ,WCCA       CONVERT ADDRESS TO DPC                              MAP          604          I
          -FEAT155G 
 MAP                PLINE  A6                                                              MAP          605          I
          -FEAT126A -FEAT155G 
 MAP                SA2    WVBD                                                            FEAT126A     585          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1600    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                PLINE  A6,X2                                                           FEAT126A     586          I
          -FEAT155G 
 MAP                SB3    A0                                                              MAP          606          I
          -FEAT155G 
 MAP                LT     B4,B3,WCC2  IF MORE CONSTANTS                                   MAP          607          I
          -FEAT155G 
 MAP       WCCX     BSS    0           EXIT..                                              MAP          608          I
          -FEAT155G 
 MAP       WCF      SPACE  4,8                                                             MAP          609          I
          -FEAT155G 
 MAP      **        WCF -  LIST *FORMATS*.                                                 MAP          610          I
          -FEAT155G 
 MAP                                                                                       MAP          611          I
          -FEAT155G 
 MAP                                                                                       MAP          612          I
          -FEAT155G 
 MAP                SA3    TP.FMT                                                          MAP          613          I
          -FEAT155G 
 MAP                SA2    TP=FMT                                                          MAP          614          I
          -FEAT155G 
 MAP                SA5    X3          FETCH 1ST FORMAT                                    MAP          615          I
          -FEAT155G 
 MAP                SA0    X2          A0 = LENGTH OF TABLE.                               MAP          616          I
          -FEAT155G 
 MAP                SB4    B0                                                              MAP          617          I
          -FEAT155G 
 MAP                ZR     X2,WCFX     IF NO FORMATS                                       MAP          618          I
          -FEAT155G 
 MAP                PLINE  ,1                                                              MAP          619          I
          -FEAT126A -FEAT155G 
 MAP                PLINE  ,,1                                                             FEAT126A     587          I
          -FEAT155G 
 MAP                                                                                       MAP          620          I
          -FEAT155G 
 MAP      **        PROCESS 1ST WORD - STATEMENT NUMBER.                                   MAP          621          I
          -FEAT155G 
 MAP                                                                                       MAP          622          I
          -FEAT155G 
 MAP       WCF2     SA2    WCFC                                                            MAP          623          I
          -FEAT155G 
 MAP                MX0    L.STN                                                           MAP          624          I
          -FEAT155G 
 MAP                BX1    X0*X5                                                           MAP          625          I
          -FEAT155G 
 MAP                LX1    9*CHAR                                                          MAP          626          I
          -FEAT155G 
 MAP                BX6    X2+X1                                                           MAP          627          I
          -FEAT155G 
 MAP                SA6    WCCA1       +1 = TAG                                            MAP          628          I
          -FEAT155G 
 MAP                                                                                       MAP          629          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1601    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      **        PROCESS CONTENTS OF FORMAT.                                            MAP          630          I
          -FEAT155G 
 MAP                                                                                       MAP          631          I
          -FEAT155G 
 MAP       WCF5     BX6    X5                                                              MAP          632          I
          -FEAT155G 
 MAP                SB5    A5                                                              MAP          633          I
          -FEAT155G 
 MAP                SA6    WCCA3       +6 = DPC ECHO OF CON                                MAP          634          I
          -FEAT155G 
 MAP                BX1    X5                                                              MAP          635          I
          -FEAT155G 
 MAP                RJ     WOD         CONVERT CONTENTS                                    MAP          636          I
          -FEAT155G 
 MAP                SA5    B5+B1                                                           MAP          637          I
          -FEAT155G 
 MAP                SA4    BA.FMT                                                          MAP          638          I
          -FEAT155G 
 MAP                SA6    WCCA2       +3 = ABCDEFGHIJ                                     MAP          639          I
          -FEAT155G 
 MAP                SA7    A6+B1       +4 = KLMNOPQRST                                     MAP          640          I
          -FEAT155G 
 MAP                SX1    B4+X4                                                           MAP          641          I
          -FEAT155G 
 MAP                PIA    ,WCCA       CONVERT ADDRESS TO DPC                              MAP          642          I
          -FEAT155G 
 MAP                PLINE  A6                                                              MAP          643          I
          -FEAT126A -FEAT155G 
 MAP                SA2    WVBD                                                            FEAT126A     588          I
          -FEAT155G 
 MAP                PLINE  A6,X2                                                           FEAT126A     589          I
          -FEAT155G 
 MAP                SA1    =1H                                                             MAP          644          I
          -FEAT155G 
 MAP                MX0    8*CHAR                                                          MAP          645          I
          -FEAT155G 
 MAP                BX6    X1                                                              MAP          646          I
          -FEAT155G 
 MAP                BX3    -X0*X5                                                          MAP          647          I
          -FEAT155G 
 MAP                SA6    WCCA1       +1 = CLEAR TAG.                                     MAP          648          I
          -FEAT155G 
 MAP                SB4    B4+B1                                                           MAP          649          I
          -FEAT155G 
 MAP                SB3    A0                                                              FCC0596        4          I
          -FEAT155G 
 MAP                EQ     B4,B3,WCFX  IF NO MORE FORMATS                                  FCC0596        5          I
          -FEAT155G 
 MAP                NZ     X3,WCF5     IF MORE IN CURRENT FORMAT.                          MAP          650          I
          -FEAT155G 
 MAP                SB3    A0                                                              MAP          651          I
          -FCC0596  -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1602    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                LT     B4,B3,WCF2  IF MORE FORMATS.                                    MAP          652          I
          -FCC0596  -FEAT155G 
 MAP                EQ     WCF2        CONTINUE                                            FCC0596        6          I
          -FEAT155G 
 MAP       WCFX     BSS    0                                                               MAP          653          I
          -FEAT155G 
 MAP       WCT      SPACE  4,8                                                             MAP          654          I
          -FEAT155G 
 MAP      **        WCT -  LIST OUT NUMBER OF TEMPORARIES.                                 MAP          655          I
          -FEAT155G 
 MAP                                                                                       MAP          656          I
          -FEAT155G 
 MAP                                                                                       MAP          657          I
          -FEAT155G 
 MAP                SA1    TEM.MAX                                                         MAP          658          I
          -FEAT155G 
 MAP                SA4    BA.TEM                                                          MAP          659          I
          -FEAT155G 
 MAP                SA5    =8L                                                             MAP          660          I
          -FEAT155G 
 MAP                SX0    7                                                               MAP          661          I
          -FEAT155G 
 MAP                SX3    X1-C.TEM                                                        MAP          662          I
          -FEAT155G 
 MAP                SA1    =H*BSSD*                                                        MAP          663          I
          -FEAT155G 
 MAP                BX6    X1                                                              MAP          664          I
          -FEAT155G 
 MAP                SA6    LINEBUF+2                                                       MAP          665          I
          -FEAT155G 
 MAP                ZR     X3,WCT2     IF NO TEMPS                                         MAP          666          I
          -FEAT155G 
 MAP                                                                                       MAP          667          I
          -FEAT155G 
 MAP                RJ     KTY         CONVERT NUMBER OF TEMPS                             MAP          668          I
          -FEAT155G 
 MAP                SA2    KITA-C.BASE/1S13+C.TEM/1S13                                     MAP          669          I
          -FEAT155G 
 MAP                SA6    LINEBUF+3                                                       MAP          670          I
          -FEAT155G 
 MAP                BX7    X2+X5                                                           MAP          671          I
          -FEAT155G 
 MAP                SX1    X4                                                              MAP          672          I
          -FEAT155G 
 MAP                LX7    -2*CHAR                                                         MAP          673          I
          -FEAT155G 
 MAP                =A7    LINEBUF+1                                                       MAP          674          I
          -FEAT155G 
 MAP                RJ     COD         CONVERT OCTAL DIGITS                                MAP          675          I
          -FEAT126C -FEAT155G 
 MAP                PIA                CONVERT OCTAL DIGITS TO DPC                         FEAT126C      96          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1603    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                =A6    A7-1                                                            MAP          676          I
          -FEAT155G 
 MAP                PLINE  A6,1                                                            MAP          677          I
          -FEAT126A -FEAT155G 
 MAP                PLINE  A6,4,1                                                          FEAT126A     590          I
          -FEAT155G 
 MAP                SA1    TEM.MAX                                                         MAP          678          I
          -FEAT155G 
 MAP                SX3    X1-C.TEM                                                        MAP          679          I
          -FEAT155G 
 MAP                                                                                       MAP          680          I
          -FEAT155G 
 MAP       WCT2     SA1    TG.VDIM                                                         MAP          681          I
          -FEAT155G 
 MAP                SX1    X1-C.VDIM                                                       MAP          682          I
          -FEAT155G 
 MAP                ZR     X1,WCTX     IF NO VAR-DIM CELLS                                 MAP          683          I
          -FEAT155G 
 MAP                IX4    X4+X3                                                           MAP          684          I
          -FEAT155G 
 MAP                BX3    X1                                                              MAP          685          I
          -FEAT155G 
 MAP                RJ     KTY         CONVERT NUMBER OF VAR-DIM CELLS                     MAP          686          I
          -FEAT155G 
 MAP                SA2    KITA-C.BASE/1S13+C.VDIM/1S13                                    MAP          687          I
          -FEAT155G 
 MAP                BX7    X2+X5                                                           MAP          688          I
          -FEAT155G 
 MAP                SA6    LINEBUF+3                                                       MAP          689          I
          -FEAT155G 
 MAP                LX7    -2*CHAR                                                         MAP          690          I
          -FEAT155G 
 MAP                BX1    X4                                                              MAP          691          I
          -FEAT155G 
 MAP                SA7    LINEBUF+1                                                       MAP          692          I
          -FEAT155G 
 MAP                RJ     COD         CONVERT OCTAL DIGITS                                MAP          693          I
          -FEAT126C -FEAT155G 
 MAP                PIA                CONVERT OCTAL DIGITS TO DPC                         FEAT126C      97          I
          -FEAT155G 
 MAP                =A6    A7-1                                                            MAP          694          I
          -FEAT155G 
 MAP                PLINE  A6,1                                                            MAP          695          I
          -FEAT126A -FEAT155G 
 MAP                PLINE  A6,4,1                                                          FEAT126A     591          I
          -FEAT155G 
 MAP       WCTX     BSS    0                                                               MAP          696          I
          -FEAT155G 
 MAP       WCA      SPACE  4,8                                                             MAP          697          I
          -FEAT155G 
 MAP      **        WCA -  LIST AP-LISTS ACTUALLY COMPILED.                                MAP          698          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1604    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                                                                                       MAP          699          I
          -FEAT155G 
 MAP                                                                                       MAP          700          I
          -FEAT155G 
 MAP                SA1    TP=APL                                                          MAP          701          I
          -FEAT155G 
 MAP                SA3    BA.APL                                                          MAP          702          I
          -FEAT155G 
 MAP                ZR     X1,WCAX     IF NO AP-LISTS                                      MAP          703          I
          -FEAT155G 
 MAP                SA0    X3                                                              MAP          704          I
          -FEAT155G 
 MAP                PLINE  ,1                                                              MAP          705          I
          -FEAT126A -FEAT155G 
 MAP                PLINE  ,,1                                                             FEAT126A     592          I
          -FEAT155G 
 MAP                                                                                       MAP          706          I
          -FEAT155G 
 MAP                SA2    TG.APL                                                          MAP          707          I
          -FEAT155G 
 MAP                SHRINK TT=SCR                                                          MAP          708          I
          -FEAT155G 
 MAP                ALLOC  TT.SCR,X2-C.PRO+1                                               MAP          709          I
          -FEAT155G 
 MAP                SA3    TA.PRO                                                          MAP          710          I
          -FEAT155G 
 MAP                =B6    0                                                               MAP          711          I
          -FEAT155G 
 MAP                SB2    X2                                                              MAP          712          I
          -FEAT155G 
 MAP                =A4    X3-1        INITIALIZE TAG FETCH REGISTER                       MAP          713          I
          -FEAT155G 
 MAP                SA2    TP.APL                                                          MAP          714          I
          -FEAT155G 
 MAP                SB3    60-18                                                           MAP          715          I
          -FEAT155G 
 MAP                SA5    X2                                                              MAP          716          I
          -FEAT155G 
 MAP                                                                                       MAP          717          I
          -FEAT155G 
 MAP       WCA22    =A4    A4+1                                                            MAP          718          I
          -FEAT155G 
 MAP                LE     B2,WCA24    IF NO MORE TAGS                                     MAP          719          I
          -FEAT155G 
 MAP                =B2    B2-1                                                            MAP          720          I
          -FEAT155G 
 MAP                PL     X4,WCA22    IF NOT AN AP-TAG                                    MAP          721          I
          -FEAT155G 
 MAP                LX0    X4,B1                                                           FCC0962       11          I
          -FEAT155G 
 MAP                PL     X0,WCA22    IF NOT AN AP-TAG                                    FCC0962       12          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1605    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                LX6    X4,B3                                                           MAP          722          I
          -FEAT155G 
 MAP                SA6    X1+B6                                                           MAP          723          I
          -FEAT155G 
 MAP                =B6    B6+1        COUNT UP AP-TAGS                                    MAP          724          I
          -FEAT155G 
 MAP                EQ     WCA22       LOOP..                                              MAP          725          I
          -FEAT155G 
 MAP                                                                                       MAP          726          I
          -FEAT155G 
 MAP       WCA24    SA3    TP=APL                                                          MAP          727          I
          -FEAT155G 
 MAP                =X7    B6+1                                                            MAP          728          I
          -FCC0813  -FEAT155G 
 MAP                LX3    -18                                                             MAP          729          I
          -FEAT155G 
 MAP                SA7    TT=SCR                                                          MAP          730          I
          -FCC0813  -FEAT155G 
 MAP                BX6    X3                                                              MAP          731          I
          -FCC0813  -FEAT155G 
 MAP                SA6    X1+B6                                                           MAP          732          I
          -FCC0813  -FEAT155G 
 MAP                BX7    X3                                                              FCC0813       83          I
          -FEAT155G 
 MAP                =X6    B6+1                                                            FCC0813       84          I
          -FEAT155G 
 MAP                SA7    X1+B6                                                           FCC0813       85          I
          -FEAT155G 
 MAP                SHRINK TT=SCR,X6                                                       FCC0813       86          I
          -FEAT155G 
 MAP                RJ     SRT         SORT AP-TAGS IN ADDRESS ORDER                       MAP          733          I
          -FEAT155G 
 MAP                                                                                       MAP          734          I
          -FEAT155G 
 MAP       WCA3     SA1    TT.SCR                                                          MAP          735          I
          -FEAT155G 
 MAP                SA2    TT=SCR                                                          MAP          736          I
          -FEAT155G 
 MAP                MX0    -1                                                              MAP          737          I
          -FEAT155G 
 MAP                SA3    X1          FETCH AP-TAG                                        MAP          738          I
          -FEAT155G 
 MAP                =X6    X1+1                                                            MAP          739          I
          -FEAT155G 
 MAP                LX3    18                                                              MAP          740          I
          -FEAT155G 
 MAP                IX7    X2+X0       DECREMENT LENGTH                                    MAP          741          I
          -FEAT155G 
 MAP                SA6    A1                                                              MAP          742          I
          -FEAT155G 
 MAP                SB2    X3          ADDRESS OF THIS TAG                                 MAP          743          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1606    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SA7    A2                                                              MAP          744          I
          -FEAT155G 
 MAP                LX3    18                                                              MAP          745          I
          -FEAT155G 
 MAP                ZR     X7,WCAX     IF NO MORE AP-TAGS                                  MAP          746          I
          -FEAT155G 
 MAP                =A4    A3+1                                                            MAP          747          I
          -FEAT155G 
 MAP                LX4    18                                                              MAP          748          I
          -FEAT155G 
 MAP                SB7    X4          ADDRESS OF NEXT TAG                                 MAP          749          I
          -FEAT155G 
 MAP                SB4    B7-B2       LENGTH OF NEXT APLIST                               MAP          750          I
          -FEAT155G 
 MAP                SX3    X3-4S15                                                         MAP          751          I
          -FEAT155G 
 MAP                RJ     KTX         KONVERT TAG TO XTERNAL FORM                         MAP          752          I
          -FEAT155G 
 MAP                BX1    X6                                                              MAP          753          I
          -FEAT155G 
 MAP                RJ     SFN         SPACE FILL NAME (OF TAG)                            MAP          754          I
          -FEAT155G 
 MAP                SA2    =8LBSS    0                                                     MAP          755          I
          -FEAT155G 
 MAP                SA6    LINEBUF+1                                                       MAP          756          I
          -FEAT155G 
 MAP                NZ     B4,WCA4     IF NEXT TAG NOT AT SAME PLACE                       MAP          757          I
          -FEAT155G 
 MAP                BX7    X2                                                              MAP          758          I
          -FEAT155G 
 MAP                SX1    A0                                                              MAP          759          I
          -FEAT155G 
 MAP                =A7    A6+1                                                            MAP          760          I
          -FEAT155G 
 MAP                RJ     COD         CONVERT OCTAL DIGITS (ADDR)                         MAP          761          I
          -FEAT126C -FEAT155G 
 MAP                PIA                CONVERT ADDRESS TO DPC                              FEAT126C      98          I
          -FEAT155G 
 MAP                =A6    A6-1                                                            MAP          762          I
          -FEAT155G 
 MAP                PLINE  A6          * L.TAG  BSS  0 *                                   MAP          763          I
          -FEAT126A -FEAT155G 
 MAP                SB3    LINEBUF-1                                                       FEAT126A     593          I
          -FEAT155G 
 MAP                PLINE  A6,A7-B3    * L.TAG  BSS  0*                                    FEAT126A     594          I
          -FEAT155G 
 MAP                EQ     WCA3                                                            MAP          764          I
          -FEAT155G 
 MAP                                                                                       MAP          765          I
          -FEAT155G 
 MAP       WCA4     MX0    -L.ABIAS                                                        MAP          766          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1607    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                BX1    X5                                                              MAP          767          I
          -FEAT155G 
 MAP                NZ     X5,WCA42    IF NOT AN END-OF-AP-LIST ENTRY                      MAP          768          I
          -FEAT155G 
 MAP                SX1    A0                                                              MAP          769          I
          -FEAT155G 
 MAP                RJ     COD         CONVERT OCTAL DIGITS                                MAP          770          I
          -FEAT126C -FEAT155G 
 MAP                PIA                CONVERT ADDRESS TO DPC                              FEAT126C      99          I
          -FEAT155G 
 MAP                SX1    2R-0-2R0                                                        MAP          771          I
          -FEAT155G 
 MAP                SX2    2R0                                                             MAP          772          I
          -FEAT155G 
 MAP                BX3    X5*X1                                                           MAP          773          I
          -FEAT155G 
 MAP                IX7    X2+X3                                                           MAP          774          I
          -FEAT155G 
 MAP                SA6    LINEBUF                                                         MAP          775          I
          -FEAT155G 
 MAP                LX7    -2*CHAR                                                         MAP          776          I
          -FEAT155G 
 MAP                SX1    A6                                                              MAP          777          I
          -FEAT155G 
 MAP                SA7    LINEBUF+2                                                       MAP          778          I
          -FEAT155G 
 MAP                =A5    A5+1                                                            MAP          779          I
          -FEAT155G 
 MAP                PLINE  X1                                                              MAP          780          I
          -FEAT126A -FEAT155G 
 MAP                PLINE  X1,3                                                            FEAT126A     595          I
          -FEAT155G 
 MAP                =B4    B4-1                                                            MAP          781          I
          -FEAT155G 
 MAP                =A0    A0+1                                                            MAP          782          I
          -FEAT155G 
 MAP                EQ     WCA9                                                            MAP          783          I
          -FEAT155G 
 MAP                                                                                       MAP          784          I
          -FEAT155G 
 MAP       WCA42    AX1    P.ABIAS                                                         MAP          785          I
          -FEAT155G 
 MAP                BX7    -X0*X1      ISOLATE BIAS                                        MAP          786          I
          -FEAT155G 
 MAP                MX0    -L.ATAG                                                         MAP          787          I
          -FEAT155G 
 MAP                AX1    P.ATAG-P.ABIAS                                                  MAP          788          I
          -FEAT155G 
 MAP                BX3    -X0*X1      ISOLATE TAG                                         MAP          789          I
          -FEAT155G 
 MAP                RJ     KTX         CONVERT TAG                                         MAP          790          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1608    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SA6    WCAB                                                            MAP          791          I
          -FEAT155G 
 MAP                BX3    X7                                                              MAP          792          I
          -FEAT155G 
 MAP                RJ     KTY         CONVERT BIAS                                        MAP          793          I
          -FEAT155G 
 MAP                MI     X3,WCA5     IF BIAS IS NEGATIVE                                 MAP          794          I
          -FEAT155G 
 MAP                SX1    1R+                                                             MAP          795          I
          -FEAT155G 
 MAP                BX6    X6+X1                                                           MAP          796          I
          -FEAT155G 
 MAP                LX6    -CHAR                                                           MAP          797          I
          -FEAT155G 
 MAP       WCA5     SX5    X5                                                              MAP          798          I
          -FEAT155G 
 MAP                BX7    0                                                               MAP          799          I
          -FEAT155G 
 MAP                SA6    A6+B1                                                           MAP          800          I
          -FEAT155G 
 MAP                SA7    A6+B1                                                           MAP          801          I
          -FEAT155G 
 MAP                ZR     X5,WCA8     IF NORMAL (NOT I/O) ITEM                            MAP          802          I
          -FEAT155G 
 MAP                MX0    -L.ASIZ                                                         MAP          803          I
          -FEAT155G 
 MAP                SX7    1R,                                                             MAP          804          I
          -FEAT155G 
 MAP                BX3    -X0*X5      ISOLATE (ASIZ)                                      MAP          805          I
          -FEAT155G 
 MAP                LX7    -CHAR                                                           MAP          806          I
          -FEAT155G 
 MAP                SA7    A7                                                              MAP          807          I
          -FEAT155G 
 MAP                RJ     KTX         CONVERT SIZE                                        MAP          808          I
          -FEAT155G 
 MAP                SA6    WCAD                                                            MAP          809          I
          -FEAT155G 
 MAP       WCA8     SX1    A0                                                              MAP          810          I
          -FEAT155G 
 MAP                SA0    A0+B1       ADVANCE ADDRESS                                     MAP          811          I
          -FEAT155G 
 MAP                RJ     PIA         CONVERT ADDRESS                                     MAP          812          I
          -FEAT126C -FEAT155G 
 MAP                PIA                CONVERT ADDRESS TO DPC                              FEAT126C     100          I
          -FEAT155G 
 MAP                SA2    LINEBUF+1                                                       MAP          813          I
          -FEAT155G 
 MAP                SA3    =7RAPL                                                          MAP          814          I
          -FEAT155G 
 MAP                SB4    B4-B1                                                           MAP          815          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1609    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                =A6    A2-1                                                            MAP          816          I
          -FEAT155G 
 MAP                BX6    X2                                                              MAP          817          I
          -FEAT155G 
 MAP                SA6    A2                                                              MAP          818          I
          -FEAT155G 
 MAP                BX6    X3                                                              MAP          819          I
          -FEAT155G 
 MAP                SA2    WCAB                                                            MAP          820          I
          -FEAT155G 
 MAP                SA5    A5+B1                                                           MAP          821          I
          -FEAT155G 
 MAP                RJ     PVF         PACK VARIABLE FIELD                                 MAP          822          I
          -FEAT155G 
 MAP                                                                                       MAP          823          I
          -FEAT155G 
 MAP       WCA9     SA2    =1H                                                             MAP          824          I
          -FEAT155G 
 MAP                BX7    X2                                                              MAP          825          I
          -FEAT155G 
 MAP                SA7    LINEBUF+1                                                       MAP          826          I
          -FEAT155G 
 MAP                NZ     B4,WCA4     IF MORE ITEMS IN THIS AP-LIST                       MAP          827          I
          -FEAT155G 
 MAP                EQ     WCA3                                                            MAP          828          I
          -FEAT155G 
 MAP       WCAX     BSS    0           EXIT..                                              MAP          829          I
          -FEAT155G 
 MAP       WCN      SPACE  4,8                                                             MAP          830          I
          -FEAT155G 
 MAP      **        WCN -  NAME-LIST GROUPS.                                               MAP          831          I
          -FEAT155G 
 MAP       WCB      SPACE  4,8                                                             MAP          832          I
          -FEAT155G 
 MAP      **        WCB -  LIST I/O BUFFER ASSIGNMENTS.                                    MAP          833          I
          -FEAT155G 
 MAP                                                                                       MAP          834          I
          -FEAT155G 
 MAP                                                                                       MAP          835          I
          -FEAT155G 
 MAP                SA1    MOD                                                             MAP          836          I
          -FEAT155G 
 MAP                SA2    NARGS                                                           MAP          837          I
          -FEAT155G 
 MAP                IFBIT  X1,-PPRO,WCBX                                                   MAP          838          I
          -FEAT155G 
 MAP                ZR     X2,WCBX     IF NO BUFFERS                                       MAP          839          I
          -FEAT155G 
 MAP                SB4    X2                                                              MAP          840          I
          -FEAT155G 
 MAP                PLINE  (=2L  )                                                         MAP          841          I
          -FEAT126A -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1610    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                PLINE  ,,1                                                             FEAT126A     596          I
          -FEAT155G 
 MAP                SA1    TA.PRO                                                          MAP          842          I
          -FEAT155G 
 MAP                SA3    T.FILE                                                          MAP          843          I
          -FEAT155G 
 MAP                SA0    X1                                                              MAP          844          I
          -FEAT155G 
 MAP                SA5    X3                                                              MAP          845          I
          -FEAT155G 
 MAP                                                                                       MAP          846          I
          -FEAT155G 
 MAP       WCB2     SA4    A5+B1                                                           MAP          847          I
          -FEAT155G 
 MAP                SB4    B4-B1                                                           MAP          848          I
          -FEAT155G 
 MAP                MX0    LG.VAR*CHAR                                                     MAP          849          I
          -FEAT155G 
 MAP                BX1    X0*X5                                                           MAP          850          I
          -FEAT155G 
 MAP                SA5    A4+2        A5 = A5+3                                           MAP          851          I
          -FEAT155G 
 MAP                MI     X4,WCB6     IF EQUIVALENCED FILE, AVOID..                       MAP          852          I
          -FEAT155G 
 MAP                RJ     SFN                                                             MAP          853          I
          -FEAT155G 
 MAP                SA6    WCBC3       FILE NAME                                           MAP          854          I
          -FEAT155G 
 MAP                SX1    X4                                                              MAP          855          I
          -FEAT155G 
 MAP                RJ     PIA                                                             MAP          856          I
          -FEAT126C -FEAT155G 
 MAP                SX3    1RB&1R                                                          MAP          857          I
          -FEAT126C -FEAT155G 
 MAP                SB2    B7-9*CHAR                                                       MAP          858          I
          -FEAT126C -FEAT155G 
 MAP                LX3    2*CHAR                                                          MAP          859          I
          -FEAT126C -FEAT155G 
 MAP                BX7    X6-X3                                                           MAP          860          I
          -FEAT126C -FEAT155G 
 MAP                AX6    X7,B2                                                           MAP          861          I
          -FEAT126C -FEAT155G 
 MAP                PIA                                                                    FEAT126C     101          I
          -FEAT155G 
 MAP                SB2    B7-9*CHAR                                                       FEAT126C     102          I
          -FEAT155G 
 MAP                AX6    B2                                                              FEAT126C     103          I
          -FEAT155G 
 MAP                SA6    WCBC2       LEFT JUSTIFIED BUFFER LENGTH                        MAP          862          I
          -FEAT155G 
 MAP                AX4    2*18                                                            MAP          863          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1611    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SX3    X4                                                              MAP          864          I
          -FEAT155G 
 MAP                RJ     KTX                                                             MAP          865          I
          -FEAT155G 
 MAP                BX1    X6                                                              MAP          866          I
          -FEAT155G 
 MAP                RJ     SFN                                                             MAP          867          I
          -FEAT155G 
 MAP                SA6    WCBC1       L-TAG                                               MAP          868          I
          -FEAT155G 
 MAP                SB7    X4-C.PRO                                                        MAP          869          I
          -FEAT155G 
 MAP                SA2    B7+A0                                                           MAP          870          I
          -FEAT155G 
 MAP                SX1    X2                                                              MAP          871          I
          -FEAT155G 
 MAP                RJ     PIA                                                             MAP          872          I
          -FEAT126C -FEAT155G 
 MAP                SA6    WCBC                                                            MAP          873          I
          -FEAT126C -FEAT155G 
 MAP                PIA    ,WCBC                                                           FEAT126C     104          I
          -FEAT155G 
 MAP                PLINE  A6                                                              MAP          874          I
          -FEAT126A -FEAT155G 
 MAP                PLINE A6,6                                                             FEAT126A     597          I
          -FEAT155G 
 MAP                                                                                       MAP          875          I
          -FEAT155G 
 MAP       WCB6     NZ     B4,WCB2     IF MORE FILES                                       MAP          876          I
          -FEAT155G 
 MAP       WCBX     BSS    0           EXIT..                                              MAP          877          I
          -FEAT155G 
 MAP                EQ     WCLX        EXIT..                                              MAP          878          I
          -FEAT155G 
 MAP                                                                                       MAP          879          I
          -FEAT155G 
 MAP                                                                                       MAP          880          I
          -FEAT155G 
 MAP       WCCA     DATA   10H 123456        ADDRESS                                       MAP          881          I
          -FEAT155G 
 MAP       WCCA1    DATA   10H C.01234       TAG                                           MAP          882          I
          -FEAT155G 
 MAP                DIS    1,CON                                                           MAP          883          I
          -FEAT155G 
 MAP       WCCA2    DATA   10H1234567890     VALUE, UPPER HALF                             MAP          884          I
          -FEAT155G 
 MAP                DATA   10H1234567890     VALUE, LOWER HALF                             MAP          885          I
          -FEAT155G 
 MAP                DATA   10HB                                                            MAP          886          I
          -FEAT126A -FEAT155G 
 MAP       WCCA2A   DATA   10HB                                                            FEAT126A     598          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1612    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP       WCCA3    DATA   10HABCDEFGHIJ     VALUE, EXPRESSED IN DPC                       MAP          887          I
          -FEAT155G 
 MAP                DATA   0                                                               MAP          888          I
          -FEAT155G 
 MAP                                                                                       MAP          889          I
          -FEAT155G 
 MAP       WCFC     VFD    CHAR/1R.,L.STN/0,24/4R                                          MAP          890          I
          -FEAT155G 
 MAP                                                                                       MAP          891          I
          -FEAT155G 
 MAP       WCAB     DATA   0LTAG                                                           MAP          892          I
          -FEAT155G 
 MAP                DATA   0LBIAS                                                          MAP          893          I
          -FEAT155G 
 MAP                DATA   1L,                                                             MAP          894          I
          -FEAT155G 
 MAP                DATA   1L0         FLAGS                                               MAP          895          I
          -FEAT155G 
 MAP                DATA   1L,                                                             MAP          896          I
          -FEAT155G 
 MAP                DATA   1L0         TYP                                                 MAP          897          I
          -FEAT155G 
 MAP                DATA   1L,                                                             MAP          898          I
          -FEAT155G 
 MAP       WCAD     DATA   1L0         SIZ                                                 MAP          899          I
          -FEAT155G 
 MAP                DATA   0           END OF LIST                                         MAP          900          I
          -FEAT155G 
 MAP                                                                                       MAP          901          I
          -FEAT155G 
 MAP       WCBC     DIS    1, 123456         ADDRESS                                       MAP          902          I
          -FEAT155G 
 MAP       WCBC1    DIS    1, L.N            L-TAG                                         MAP          903          I
          -FEAT155G 
 MAP                DIS    1,BSS                                                           MAP          904          I
          -FEAT155G 
 MAP       WCBC2    DIS    1,NNNNB           LENGTH                                        MAP          905          I
          -FEAT155G 
 MAP       WCBC3    DIS    1, LFN                                                          MAP          906          I
          -FEAT155G 
 MAP                CON    0                                                               MAP          907          I
          -FEAT155G 
 MAP       FXR      SPACE  4,8                                                             MAP          908     A     
 MAP      **        FXR -  FORMAT CROSS REFERENCES.                                        MAP          909     A     
 MAP      *                                                                                MAP          910     A     
 MAP      *         ENTRY  (X5) = LINK TO REFERENCE CHAIN.                                 MAP          911     A     
 MAP      *                (B5) _ FWA TO STORE.                                            MAP          912     A     
 MAP      *                (B6) = LIMIT ON NUMBER OF REFS.                                 MAP          913     A     
 MAP      *                                                                                MAP          914     A     
 MAP      *         EXIT   (B5) _ LWA+1 STORED INTO.                                       MAP          915     A     
 MAP      *                (X5) = NEXT LINK.                                               MAP          916     A     
 MAP      *                                                                                MAP          917     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1613    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *         USES   ALL BUT A0.                                                     MAP          918     A     
 MAP      *         WILL NOT MOVE TABLES.                                                  MAP          919     A     
 MAP                                                                                       MAP          920     A     
 MAP                                                                                       MAP          921     A     
 MAP       FXR      SUBR               ENTRY/EXIT...                                       MAP          922     A     
 MAP                SA1    TT.REF                                                          MAP          923     A     
 MAP                SX5    X5          ISOLATE LINK                                        MAP          924     A     
 MAP                SB4    X1          (B4) = FWA REFS                                     MAP          925     A     
 MAP                                                                                       MAP          926     A     
 MAP       FXR2     ZR     X5,EXIT.    IF END OF THIS REFERENCE CHAIN                      MAP          927     A     
 MAP                SA5    X5+B4       FETCH A REFERENCE                                   MAP          928     A     
 MAP                MX0    -L.CRUSE                                                        MAP          929     A     
 MAP                BX7    -X0*X5      ISOLATE USAGE LETTER                                MAP          930     A     
 MAP                AX5    P.CRLIN                                                         MAP          931     A     
 MAP                MX0    -L.CRLIN                                                        MAP          932     A     
 MAP                BX1    -X0*X5      ISOLATE LINE NUMBER                                 MAP          933     A     
 MAP                RJ     CDD         CONVERT LINE NUMBER                                 MAP          934     A     
 MAP                SA3    FXRA                                                            MAP          935          I
          -FEAT155E 
 MAP                MX3    54                                                              FEAT155E     315     A     
 MAP                LX6    2*CHAR                                                          MAP          936     A     
 MAP                BX4    X6-X3                                                           MAP          937          I
          -FEAT155E 
 MAP                BX4    X3*X6                                                           FEAT155E     316     A     
 MAP                IX7    X7+X4       -----/LL U                                          MAP          938     A     
 MAP                AX5    P.TAG-P.CRLIN                                                   MAP          939     A     
 MAP                SX5    X5          ISOLATE LINK TO NEXT                                MAP          940     A     
 MAP                SA7    B5          STORE FORMATTED REFERENCE                           MAP          941     A     
 MAP                =B5    B5+1                                                            MAP          942     A     
 MAP                =B6    B6-1                                                            MAP          943     A     
 MAP                GT     B6,FXR2     IF LINE NOT FULL                                    MAP          944     A     
 MAP                EQ     EXIT.                                                           MAP          945     A     
 MAP                                                                                       MAP          946          I
          -FEAT155E 
 MAP       FXRA     VFD    30/0,CHAR/1R1&1R/,18/0,CHAR/1R                                  MAP          947          I
          -FEAT155E 
 MAP       LJS      SPACE  4,8                                                             MAP          948          I
          -FEAT155G 
 MAP      **        LJS -  LEFT JUSTIFY STATEMENT LABEL.                                   MAP          949          I
          -FEAT155G 
 MAP      *                                                                                MAP          950          I
          -FEAT155G 
 MAP      *         ENTRY  (X5) = DPC STATEMENT LABEL (0R FORMAT).                         MAP          951          I
          -FEAT155G 
 MAP      *         EXIT   (X6) = DPC STATEMENT LABEL (0H FORMAT).                         MAP          952          I
          -FEAT155G 
 MAP      *         USES   A1,A2,A3,A6  B2,B3,B7  X1,X2,X3,X5,X6                           MAP          953          I
          -FEAT155G 
 MAP      *         SAVES  A0,A4,A5,A7  B4,B5,B6  X0,X4,X7                                 MAP          954          I
          -FEAT155G 
 MAP      *         CALLS  SFN.                                                            MAP          955          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1614    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                                                                                       MAP          956          I
          -FEAT155G 
 MAP                                                                                       MAP          957          I
          -FEAT155G 
 MAP       LJS      SUBR               ENTRY/EXIT...                                       MAP          958          I
          -FEAT155G 
 MAP                                                                                       MAP          959          I
          -FEAT155G 
 MAP       .TEST    IFNE   TEST                                                            MAP          960          I
          -FEAT155G 
 MAP                NZ     X5,LJS2S                                                        MAP          961          I
          -FEAT155G 
 MAP       LJS      REG                IF ZERO -- SOMEBODY GOOFED                          MAP          962          I
          -FEAT155G 
 MAP                EQ     E.ZA                                                            MAP          963          I
          -FEAT155G 
 MAP       LJS2S    BSS    0                                                               MAP          964          I
          -FEAT155G 
 MAP       .TEST    ENDIF                                                                  MAP          965          I
          -FEAT155G 
 MAP                                                                                       MAP          966          I
          -FEAT155G 
 MAP                MX2    CHAR                                                            MAP          967          I
          -FEAT155G 
 MAP                SX3    2R.*-1R*                                                        MAP          968          I
          -FEAT155G 
 MAP       LJS4     BX6    X2*X5                                                           MAP          969          I
          -FEAT155G 
 MAP                LX5    CHAR                                                            MAP          970          I
          -FEAT155G 
 MAP                ZR     X6,LJS4     LEFT JUSTIFY LABEL                                  MAP          971          I
          -FEAT155G 
 MAP                BX1    X5+X3                                                           MAP          972          I
          -FEAT155G 
 MAP                LX1    -2*CHAR                                                         MAP          973          I
          -FEAT155G 
 MAP                RJ     SFN         SPACE FILL NAME                                     MAP          974          I
          -FEAT155G 
 MAP                EQ     EXIT.                                                           MAP          975          I
          -FEAT155G 
 MAP       LPS      SPACE  4,8                                                             MAP          976     A     
 MAP      **        LPS -  LIST PROGRAM-UNIT STATISTICS.                                   MAP          977          I
          -FEAT126A 
 MAP      **        LBS - LIST BLOCK STATISTICS.                                           FEAT126A     599          I
          -FEAT155G 
 MAP      *                                                                                MAP          978          I
          -FEAT155G 
 MAP      *         ENTRY  (X1) = MAX CORE REQUIRED BY THIS PROGRAM-UNIT                   MAP          979          I
          -FEAT126A -FEAT155G 
 MAP      *         EXIT   INTO *END*.                                                     MAP          980          I
          -FEAT155G 
 MAP                                                                                       MAP          981          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1615    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FEAT155G 
 MAP                                                                                       MAP          982          I
          -FEAT155G 
 MAP       LPS      BSS    0           ENTRY...                                            MAP          983          I
          -FEAT126A -FEAT155G 
 MAP                RJ     PIA         CONVERT MAX CORE                                    MAP          984          I
          -FEAT126A -FEAT155G 
 MAP                LX6    -3*CHAR                                                         MAP          985          I
          -FEAT126A -FEAT155G 
 MAP                SA6    LPS.MAX                                                         MAP          986          I
          -FEAT126A -FEAT155G 
 MAP                SA2    =XLOP=M                                                         MAP          987          I
          -FEAT126A -FEAT155G 
 MAP                ZR     X2,LPS7     IF R=0                                              MAP          988          I
          -FEAT126A -FEAT155G 
 MAP                                                                                       MAP          989          I
          -FEAT126A -FEAT155G 
 MAP                SA1    =1H                                                             MAP          990          I
          -FEAT126A -FEAT155G 
 MAP                BX6    X1          RESET SUB-TITLE                                     MAP          991          I
          -FEAT126A -FEAT155G 
 MAP                SA6    HDRSUB                                                          MAP          992          I
          -FEAT126A -FEAT155G 
 MAP                DUP    HDRSUBL-1,1                                                     MAP          993          I
          -FEAT126A -FEAT155G 
 MAP                =A6    A6+1                                                            MAP          994          I
          -FEAT126A -FEAT155G 
 MAP                                                                                       MAP          995          I
          -FEAT126A -FEAT155G 
 MAP                SA6    LINEBUF+1                                                       MAP          996          I
          -FEAT126A -FEAT155G 
 MAP       LBS      BSS    0           ENTRY                                               FEAT126A     600          I
          -FEAT155G 
 MAP                SA1    FAILSFT                                                         MAP          997          I
          -FEAT155G 
 MAP                NZ     X1,LPS6     IF TABLES ARE CRUMPED UP, BLOCKS ARE WRONG          MAP          998          I
          -FEAT126A -FEAT155G 
 MAP                NZ     X1,EXIT.    IF TABLES ARE CRUMBLES UP, BLOCKS ARE WRONG         FEAT126A     601          I
          -FEAT155G 
 MAP                                                                                       MAP          999          I
          -FEAT155G 
 MAP      **        PREPARE STATISTICS                                                     MAP         1000          I
          -FEAT155G 
 MAP                                                                                       MAP         1001          I
          -FEAT155G 
 MAP                                                                                       MAP         1002          I
          -FEAT126A -FEAT155G 
 MAP       ENDLINE. SET    0                                                               MAP         1003          I
          -FEAT126A -FEAT155G 
 MAP                                                                                       MAP         1004          I
          -FEAT126A -FEAT155G 
 MAP                SA3    LCNT                                                            MAP         1005          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1616    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FEAT155G 
 MAP                SB2    X3-EJECT+ENDLINES                                               MAP         1006          I
          -FEAT126A -FEAT155G 
 MAP                MI     B2,LPS2     IF SUFFICIENT ROOM LEFT ON THIS PAGE                MAP         1007          I
          -FEAT126A -FEAT155G 
 MAP                SB2    X3-EJECT+12                                                     FEAT126A     602          I
          -FEAT155G 
 MAP                LE     B2,LBS1     IF SUFFICIENT ROOM LEFT ON THIS PAGE                FEAT126A     603          I
          -FEAT155G 
 MAP                SX7    EJECT+1                                                         MAP         1008          I
          -FEAT155G 
 MAP                SA7    A3                                                              MAP         1009          I
          -FEAT155G 
 MAP       LPS2     PLINE  LPSB,3                                                          MAP         1010          I
          -FEAT126A -FEAT155G 
 MAP       ENDLINE. SET    4+ENDLINE.                                                      MAP         1011          I
          -FEAT126A -FEAT155G 
 MAP       LBS1     BX6    X6-X6                                                           FEAT126A     604          I
          -FEAT155G 
 MAP                SA4    CO.PW                                                           FEAT126A     605          I
          -FEAT155G 
 MAP                SA0    LINEBUF+2                                                       FEAT126A     606          I
          -FEAT155G 
 MAP                SA6    LINEBUF+5   STORE ZERO BYTE TERMINATOR                          FEAT126A     607          I
          -FEAT155G 
 MAP                SX1    LBSA                                                            FEAT126A     608          I
          -FEAT155G 
 MAP                SX2    3                                                               FEAT126A     609          I
          -FEAT155G 
 MAP                NZ     X4,LBS2     IF IN PW MODE                                       FEAT126A     610          I
          -FEAT155G 
 MAP                SA3    =10H                                                            FEAT126A     611          I
          -FEAT155G 
 MAP                SA2    X1          SHIFT TABLE HEADER FOR PW=0 FORMAT                  FEAT126A     612          I
          -FEAT155G 
 MAP                SA4    X1+B1                                                           FEAT126A     613          I
          -FEAT155G 
 MAP                SA0    LINEBUF                                                         FEAT126A     614          I
          -FEAT155G 
 MAP                BX7    X3                                                              FEAT126A     615          I
          -FEAT155G 
 MAP                SA5    A4+B1                                                           FEAT126A     616          I
          -FEAT155G 
 MAP                SA7    A0                                                              FEAT126A     617          I
          -FEAT155G 
 MAP                BX6    X2                                                              FEAT126A     618          I
          -FEAT155G 
 MAP                SA7    A7+B1                                                           FEAT126A     619          I
          -FEAT155G 
 MAP                SX1    A0                                                              FEAT126A     620          I
          -FEAT155G 
 MAP                SA6    A7+B1                                                           FEAT126A     621          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1617    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FEAT155G 
 MAP                BX7    X4                                                              FEAT126A     622          I
          -FEAT155G 
 MAP                BX6    X5                                                              FEAT126A     623          I
          -FEAT155G 
 MAP                SX2    6                                                               FEAT126A     624          I
          -FEAT155G 
 MAP                SA7    A6+B1                                                           FEAT126A     625          I
          -FEAT155G 
 MAP                SA6    A7+B1                                                           FEAT126A     626          I
          -FEAT155G 
 MAP       LBS2     PLINE  X1,X2,2     PRINT TABLE HEADER                                  FEAT126A     627          I
          -FEAT155G 
 MAP                                                                                       MAP         1012          I
          -FEAT155G 
 MAP                SA3    =A-ADDRESS-                                                     MAP         1013          I
          -FEAT126A -FEAT155G 
 MAP                SB4    BA.PRO                                                          MAP         1014          I
          -FEAT126A -FEAT155G 
 MAP                SB4    -B4                                                             MAP         1015          I
          -FEAT126A -FEAT155G 
 MAP                SB4    B4+BA.BUF                                                       MAP         1016          I
          -FEAT126A -FEAT155G 
 MAP                SB4    N.BLK                                                           FEAT126A     628          I
          -FEAT155G 
 MAP                LX7    X3                                                              MAP         1017          I
          -FEAT126A -FEAT155G 
 MAP                =X6                                                                    MAP         1018          I
          -FEAT155G 
 MAP                SB4    -B4                                                             FEAT126A     629          I
          -FEAT155G 
 MAP                SA7    LINEBUF                                                         MAP         1019          I
          -FEAT126A -FEAT155G 
 MAP                SA6    B4+LINEBUF+3                                                    MAP         1020          I
          -FEAT126A -FEAT155G 
 MAP       LPS4     SA1    BA.PRO+B4                                                       MAP         1021          I
          -FEAT126A -FEAT155G 
 MAP                RJ     PIA         CONVERT BLOCK ADDRESS                               MAP         1022          I
          -FEAT126A -FEAT155G 
 MAP                =B4    B4-1                                                            MAP         1023          I
          -FEAT126A -FEAT155G 
 MAP                =A6    A6-1                                                            MAP         1024          I
          -FEAT126A -FEAT155G 
 MAP                PL     B4,LPS4     IF MORE BLOCKS                                      MAP         1025          I
          -FEAT126A -FEAT155G 
 MAP                PLINE  LINEBUF                                                         MAP         1026          I
          -FEAT126A -FEAT155G 
 MAP       ENDLINE. SET    1+ENDLINE.                                                      MAP         1027          I
          -FEAT126A -FEAT155G 
 MAP                                                                                       MAP         1028          I
          -FEAT126A -FEAT155G 
 MAP                SA3    =A-LENGTH -                                                     MAP         1029          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1618    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FEAT126A -FEAT155G 
 MAP                SB4    BA.PRO                                                          MAP         1030          I
          -FEAT126A -FEAT155G 
 MAP                SB4    -B4                                                             MAP         1031          I
          -FEAT126A -FEAT155G 
 MAP                SB4    B4+BA.BUF                                                       MAP         1032          I
          -FEAT126A -FEAT155G 
 MAP                BX7    X3                                                              MAP         1033          I
          -FEAT126A -FEAT155G 
 MAP                SA7    LINEBUF                                                         MAP         1034          I
          -FEAT126A -FEAT155G 
 MAP       LPS5     SA3    BA.PRO+B4                                                       MAP         1035          I
          -FEAT126A -FEAT155G 
 MAP                =A2    A3+1                                                            MAP         1036          I
          -FEAT126A -FEAT155G 
 MAP                IX1    X2-X3                                                           MAP         1037          I
          -FEAT126A -FEAT155G 
 MAP                RJ     PIA         CONVERT BLOCK LENGTH                                MAP         1038          I
          -FEAT126A -FEAT155G 
 MAP                =B4    B4-1                                                            MAP         1039          I
          -FEAT126A -FEAT155G 
 MAP                SA6    B4+LINEBUF+3                                                    MAP         1040          I
          -FEAT126A -FEAT155G 
 MAP                PL     B4,LPS5     IF MORE BLOCKS                                      MAP         1041          I
          -FEAT126A -FEAT155G 
 MAP                PLINE  LINEBUF                                                         MAP         1042          I
          -FEAT126A -FEAT155G 
 MAP       ENDLINE. SET    1+ENDLINE.                                                      MAP         1043          I
          -FEAT126A -FEAT155G 
 MAP       LBS3     SA5    BA.PRO+8+B4 FORMAT AND PRINT TABLE                              FEAT126A     630          I
          -FEAT155G 
 MAP                BX1    X5                                                              FEAT126A     631          I
          -FEAT155G 
 MAP                PIA    ,LINEBUF+3  CONVERT BLOCK ADDRESS TO DPC                        FEAT126A     632          I
          -FEAT155G 
 MAP                SA4    A5+B1                                                           FEAT126A     633          I
          -FEAT155G 
 MAP                IX1    X4-X5                                                           FEAT126A     634          I
          -FEAT155G 
 MAP                PIA    ,LINEBUF+4  CONVERT BLOCK LENGTH TO DPC                         FEAT126A     635          I
          -FEAT155G 
 MAP                SA2    LBSB+8+B4                                                       FEAT126A     636          I
          -FEAT155G 
 MAP                BX7    X2                                                              FEAT126A     637          I
          -FEAT155G 
 MAP                SA7    LINEBUF+2                                                       FEAT126A     638          I
          -FEAT155G 
 MAP                SX2    A0-B1                                                           FEAT126A     639          I
          -FEAT155G 
 MAP                SX3    LINEBUF+5                                                       FEAT126A     640          I
          -FEAT155G 
 MAP                SB4    B4+B1                                                           FEAT126A     641          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1619    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          -FEAT155G 
 MAP                IX2    X3-X2                                                           FEAT126A     642          I
          -FEAT155G 
 MAP                PLINE  A0,X2                                                           FEAT126A     643          I
          -FEAT155G 
 MAP                MI     B4,LBS3     IF MORE BLOCKS                                      FEAT126A     644          I
          -FEAT155G 
 MAP                EQ     LBSX        EXIT TO END                                         FEAT126A     645          I
          -FEAT155G 
 MAP                SPACE  3,8                                                             FEAT126A     646          I
          -FEAT155G 
 MAP      **        LPS - LIST PROGRAM-UNIT STATISTICS.                                    FEAT126A     647     A     
 MAP      *                                                                                FEAT126A     648     A     
 MAP      *         ENTRY (X1) = MAX CORE REQUIRED BY THIS PROGRAM-UNIT                    FEAT126A     649          I
          -FEAT155G 
 MAP      *         ENTRY  NONE                                                            FEAT155G     413     A     
 MAP      *         EXIT INTO *END*                                                        FEAT126A     650     A     
 MAP                                                                                       FEAT126A     651     A     
 MAP                                                                                       FEAT126A     652     A     
 MAP       LPS      BSS    0           ENTRY                                               FEAT126A     653     A     
 MAP                SX7    B1                                                              FEAT155E     317     A     
 MAP                SX2    =XHDRBL                                                         FEAT155E     318     A     
 MAP                LX7    30                                                              FEAT155E     319     A     
 MAP                BX7    X7+X2                                                           FEAT155E     320     A     
 MAP                SA7    =XO.STITL   RESET SUBTITLE                                      FEAT155E     321     A     
 MAP                PIA                CONVERT MAX CORE                                    FEAT126A     654          I
          -FEAT155G 
 MAP                LX6    -2*CHAR                                                         FEAT126A     655          I
          -FEAT155G 
 MAP                SA5    =XLOP=M                                                         FEAT126A     656          I
          -FEAT155G 
 MAP                SA6    LPS.MAX                                                         FEAT126A     657          I
          -FEAT155G 
 MAP                ZR     X5,LPS7     IF NO MAP REQUESTED                                 FEAT126A     658          I
          -FEAT155G 
 MAP                SA1    =1H                                                             FEAT126A     659     A     
 MAP                BX6    X1          RESET SUB-TITLE                                     FEAT126A     660          I
          -FEAT155H 
 MAP                SA6    =XSTL.MAP                                                       FEAT126A     661          I
          -FEAT155H 
 MAP                DUP    HDRSUBL-1,1                                                     FEAT126A     662          I
          -FEAT155H 
 MAP                =A6    A6+1                                                            FEAT126A     663          I
          -FEAT155H 
 MAP                BX6    X1                                                              FEAT155H     128     A     
 MAP                SA6    LINEBUF+1                                                       FEAT126A     664     A     
 MAP                                                                                       FEAT126A     665     A     
 MAP      **        PREPARE STATISTICS                                                     FEAT126A     666     A     
 MAP                SA1    FAILSFT                                                         FCC0813       87     A     
 MAP                NZ     X1,LPS7     IF TABLES CRUMBLED                                  FCC0813       88          I
          -FEAT155G 
 MAP                NZ     X1,WVMX     IF TABLES CRUMBLED RETURN TO END                    FEAT155G     414     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1620    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                                                                                       FEAT126A     667          I
          -FEAT155G 
 MAP       ENDLINE. SET    0                                                               FEAT126A     668          I
          -FEAT155G 
 MAP                                                                                       FEAT126A     669          I
          -FEAT155G 
 MAP                                                                                       MAP         1044     A     
 MAP       LPS6     SA1    CARDS                                                           MAP         1045          I
          -FEAT126A 
 MAP                SA1    CARDS                                                           FEAT126A     670          I
          -FEAT155G 
 MAP                RJ     CDD         CONVERT NUMBER OF SOURCE CARDS                      MAP         1046          I
          -FEAT155G 
 MAP                LX6    CHAR                                                            MAP         1047          I
          -FEAT155G 
 MAP                SA6    LPS.SC                                                          MAP         1048          I
          -FEAT155G 
 MAP                                                                                       MAP         1049          I
          -FEAT155G 
 MAP                SA1    LOSTREF                                                         MAP         1050     A     
 MAP                RJ     CDD         CONVERT NUMBER OF REFENCENCES                       MAP         1051     A     
 MAP                LX6    CHAR                                                            MAP         1052     A     
 MAP                SA6    LPS.RF                                                          MAP         1053     A     
 MAP                                                                                       MAP         1054     A     
 MAP                PLINE  LPSD,1                                                          MAP         1055          I
          -FEAT126A 
 MAP                SA3    LCNT                                                            FEAT126A     671     A     
 MAP                SB2    X3-EJECT+ENDLINES                                               FEAT126A     672          I
          -FEAT155E 
 MAP                SA1    CO.PS                                                           FEAT155E     322          I
          -FEAT155EA
 MAP                SA1    CP.PS                                                           FEAT155EA     39          I
          -FCCA422
 MAP                SA1    LCP.PS                                                          FCCA422       53     A     
 MAP                IX7    X3-X1                                                           FEAT155E     323     A     
 MAP                SB2    X7+ENDLINES                                                     FEAT155E     324     A     
 MAP                MI     B2,LPS2     IF SUFFICIENT ROOM LEFT ON THIS PAGE                FEAT126A     673     A     
 MAP                SX7    EJECT+1                                                         FEAT126A     674          I
          -FEAT155E 
 MAP                =X7    X1+1                                                            FEAT155E     325     A     
 MAP                SA7    A3                                                              FEAT126A     675     A     
 MAP       LPS2     SA1    CO.PW                                                           FEAT126A     676          I
          -CP139FC
 MAP       LPS2     SA1    =XCP.PW                                                         CP139FC      219     A     
 MAP                ZR     X1,LPS4     IF NOT IN PW MODE                                   FEAT126A     677     A     
 MAP                MX6    0                                                               FEAT126A     678          I
          -FEAT155G 
 MAP                SA5    LPS.SY                                                          FEAT126A     679          I
          -FEAT155G 
 MAP                SA6    LPS.SY                                                          FEAT126A     680          I
          -FEAT155G 
 MAP                PLINE  LPSD,5,3                                                        FEAT126A     681     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1621    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SA1    LOP=R                                                           FCC1200       32     A     
 MAP                PL     X1,WVMX     EXIT                                                FCC1200       33     A     
 MAP                BX6    X5                                                              FEAT126A     682          I
          -FEAT155G 
 MAP                SA5    LPS.LR                                                          FEAT126A     683          I
          -FEAT155G 
 MAP                SX2    4                                                               FEAT126A     684          I
          -FEAT155G 
 MAP                SA6    LPS.SY                                                          FEAT126A     685          I
          -FEAT155G 
 MAP                ZR     X5,LPS3     IF NO LOST REFERENCES                               FEAT126A     686          I
          -FEAT155G 
 MAP                MX7    0                                                               FEAT126A     687          I
          -FEAT155G 
 MAP                SA7    A5                                                              FEAT126A     688          I
          -FEAT155G 
 MAP                PLINE  A6,X2                                                           FEAT126A     689          I
          -FEAT155G 
 MAP                BX7    X5                                                              FEAT126A     690          I
          -FEAT155G 
 MAP                SX2    3                                                               FEAT126A     691          I
          -FEAT155G 
 MAP                SA7    A5                                                              FEAT126A     692          I
          -FEAT155G 
 MAP       LPS3     PLINE  A6,X2                                                           FEAT126A     693          I
          -FEAT155G 
 MAP                EQ     LPS7                                                            FEAT126A     694          I
          -FEAT155G 
 MAP                                                                                       FEAT126A     695          I
          -FEAT155G 
 MAP       LPS4     SA3    LPS.LR                                                          FEAT126A     696          I
          -FEAT155G 
 MAP                SX2    10                                                              FEAT126A     697          I
          -FEAT155G 
 MAP                ZR     X3,LPS5     IF NO LOST REFERENCES                               FEAT126A     698          I
          -FEAT155G 
 MAP                SX2    12                                                              FEAT126A     699          I
          -FEAT155G 
 MAP                PLINE  LPS.RF,2                                                        FEAT155G     415     A     
 MAP                EQ     =XWVMX      EXIT TO END                                         FEAT155G     416     A     
 MAP                                                                                       FEAT155G     417     A     
 MAP       LPS4     SA1    LOP=R                                                           FEAT155G     418     A     
 MAP                SX2    5                                                               FEAT155G     419     A     
 MAP                PL     X1,LPS5     IF SHORT MAP                                        FEAT155G     420     A     
 MAP                SX2    2R                                                              FEAT155G     421     A     
 MAP                SA1    LPS.R0                                                          FEAT155G     422     A     
 MAP                BX6    X1+X2                                                           FEAT155G     423     A     
 MAP                SA6    A1                                                              FEAT155G     424     A     
 MAP                SX2    8                                                               FEAT155G     425     A     
 MAP       LPS5     PLINE  LPSD,X2,3                                                       FEAT126A     700     A     
 MAP       ENDLINE. SET    4+ENDLINE.                                                      FEAT126A     701          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1622    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                                                                                       MAP         1056          I
          -FEAT155G 
 MAP       LPS7     BSS    0                                                               MAP         1057          I
          -FEAT155G 
 MAP                EQ     =XWVMX      EXIT TO END                                         FEAT155G     426     A     
 MAP                                                                                       FEAT155G     427     A     
 MAP       TEST     IFNE   TEST,0                                                          FEAT155G     428     A     
 MAP       ENDLINES EQU    12                                                              FEAT155G     429     A     
 MAP       TEST     ELSE                                                                   FEAT155G     430     A     
 MAP       ENDLINES EQU    6                                                               FEAT155G     431     A     
 MAP       TEST     ENDIF                                                                  FEAT155G     432     A     
 MAP                                                                                       FEAT155G     433     A     
 MAP       TEST     IFNE   TEST        NUMBER OF TABLE CRASHES IN *TEST* MODE              MAP         1058          I
          -FEAT155G 
 MAP                SA1    =XMOVES                                                         MAP         1059          I
          -FEAT155G 
 MAP                ZR     X1,LPS6S    IF NO CRASHES                                       MAP         1060          I
          -FEAT155G 
 MAP                RJ     CDD                                                             MAP         1061          I
          -FEAT155G 
 MAP                SA6    A1                                                              MAP         1062          I
          -FEAT155G 
 MAP                PLINE  A1,1                                                            MAP         1063          I
          -FEAT126A -FEAT155G 
 MAP                PLINE  A1,3,1                                                          FEAT126A     702          I
          -FEAT155G 
 MAP       ENDLINE. SET    ENDLINE.+4                                                      MAP         1064          I
          -FEAT155G 
 MAP       LPS6S    SA1    =XPARSLEN                                                       MAP         1065          I
          -FEAT126A -FEAT155G 
 MAP                RJ     CDD                                                             MAP         1066          I
          -FEAT126A -FEAT155G 
 MAP       LPS6S    PIA    =XPARSLEN                                                       FEAT126A     703          I
          -FEAT155G 
 MAP                LX6    -2*CHAR                                                         FEAT126A     704          I
          -FEAT155G 
 MAP                SA6    A1                                                              MAP         1067          I
          -FEAT155G 
 MAP                PLINE  A1,1        OUTPUT LARGEST PARSED FILE LENGTH.                  MAP         1068          I
          -FEAT126A -FEAT155G 
 MAP                PLINE A1,4,1       OUTPUT LARGEST PARSED FILE LENGTH                   FEAT126A     705          I
          -FEAT155G 
 MAP       TEST     ENDIF                                                                  MAP         1069          I
          -FEAT155G 
 MAP                                                                                       MAP         1070          I
          -FEAT155G 
 MAP                SA2    =XTIME1                                                         MAP         1071          I
          -FEAT155G 
 MAP                RJ     CPTIM       ELAPSED TIME FOR SUBPROGRAM                         MAP         1072          I
          -FEAT155G 
 MAP                SA6    LPS.TM                                                          MAP         1073          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1623    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                RJ     =XTIMER                                                         MAP         1074          I
          -FEAT155G 
 MAP                SA6    =XTIME1     RESET TIME                                          MAP         1075          I
          -FEAT155G 
 MAP                PLINE  LPSE,1                                                          MAP         1076          I
          -FEAT126A -FEAT155G 
 MAP                SA1    CO.PW                                                           FEAT126A     706          I
          -FEAT155G 
 MAP                MX7    0                                                               FEAT126A     707          I
          -FEAT155G 
 MAP                ZR     X1,LPS8     IF NOT IN PW MODE                                   FEAT126A     708          I
          -FEAT155G 
 MAP                SA5    LPS.TM                                                          FEAT126A     709          I
          -FEAT155G 
 MAP                SA7    LPS.TM                                                          FEAT126A     710          I
          -FEAT155G 
 MAP                PLINE  LPSE,5,1                                                        FEAT126A     711          I
          -FEAT155G 
 MAP                BX6    X5                                                              FEAT126A     712          I
          -FEAT155G 
 MAP                SA6    A5                                                              FEAT126A     713          I
          -FEAT155G 
 MAP                PLINE  A5,2                                                            FEAT126A     714          I
          -FEAT155G 
 MAP                EQ     LPSX        EXIT                                                FEAT126A     715          I
          -FEAT155G 
 MAP                                                                                       FEAT126A     716          I
          -FEAT155G 
 MAP       LPS8     PLINE  LPSE,7,1                                                        FEAT126A     717          I
          -FEAT155G 
 MAP       ENDLINE. SET    ENDLINE.+3                                                      MAP         1077          I
          -FEAT126A -FEAT155G 
 MAP       ENDLINE. SET    ENDLINE.+2                                                      FEAT126A     718          I
          -FEAT155G 
 MAP                                                                                       MAP         1078          I
          -FEAT155G 
 MAP                EQ     LPSX        EXIT..                                              MAP         1079          I
          -FEAT155G 
 MAP                                                                                       MAP         1080          I
          -FEAT155G 
 MAP       ENDLINES EQU    ENDLINE.    LINE COUNT OF END STATISTICS.                       MAP         1081          I
          -FEAT155G 
 MAP                                                                                       MAP         1082          I
          -FEAT155G 
 MAP       LBSA     DATA   28C  BLOCK    ADDRESS    LENGTH                                 FEAT126A     719          I
          -FEAT155G 
 MAP      *                  1234567890                                                    MAP         1083          I
          -FEAT155G 
 MAP       LPSB     DIS    2,  BLOCK                                                       MAP         1084          I
          -FEAT126A -FEAT155G 
 MAP                DIS    1,    CODE  /                                                   MAP         1085          I
          -FEAT126A -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1624    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                DIS    1, LITERALS /                                                   MAP         1086          I
          -FEAT126A -FEAT155G 
 MAP                DIS    1,  FORMATS /                                                   MAP         1087          I
          -FEAT126A -FEAT155G 
 MAP                DIS    1,   TEMPS  /                                                   MAP         1088          I
          -FEAT126A -FEAT155G 
 MAP                DIS    1,   ARGS   /                                                   MAP         1089          I
          -FEAT126A -FEAT155G 
 MAP                DIS    1, NAMELIST /                                                   MAP         1090          I
          -FEAT126A -FEAT155G 
 MAP                DIS    1, VARIABLES/                                                   MAP         1091          I
          -FEAT126A -FEAT155G 
 MAP                DIS    ,, BUFFERS, /                                                   MAP         1092          I
          -FEAT126A -FEAT155G 
 MAP       LBSB     DIS    1,  CODE    /                                                   FEAT126A     720          I
          -FEAT155G 
 MAP                DIS    1,  LITERAL /                                                   FEAT126A     721          I
          -FEAT155G 
 MAP                DIS    1,  FORMAT  /                                                   FEAT126A     722          I
          -FEAT155G 
 MAP                DIS    1,  TEMP    /                                                   FEAT126A     723          I
          -FEAT155G 
 MAP                DIS    1,  ARG     /                                                   FEAT126A     724          I
          -FEAT155G 
 MAP                DIS    1,  NAMELIST/                                                   FEAT126A     725          I
          -FEAT155G 
 MAP                DIS    1,  VARIABLE/                                                   FEAT126A     726          I
          -FEAT155G 
 MAP                DIS    1,  BUFFER  /                                                   FEAT126A     727          I
          -FEAT155G 
 MAP                                                                                       MAP         1093          I
          -FEAT155G 
 MAP       LPSD     BSS    0                                                               MAP         1094     A     
 MAP       LPS.PL   DIS    1,(LOCAL)                                                       MAP         1095          I
          -FEAT155E 
 MAP       LPS.PL   DIS    1,     NULL                                                     FEAT155E     326     A     
 MAP                DIS    2,PROGRAM-UNIT LENGTH                                           MAP         1096     A     
 MAP       LPS.SC   DIS    1,(CARDS)                                                       MAP         1097          I
          -FEAT155G 
 MAP                DIS    1,STATEMENTS                                                    MAP         1098          I
          -FEAT155G 
 MAP       LPS.SY   DIS    1,(NR SYMS)                                                     MAP         1099     A     
 MAP       LPS.R0   DIS    1, SYMBOLS     END OF STATISTICS IF(R.LT.2)                     MAP         1100          I
          -FEAT155G 
 MAP       LPS.R0   DIS    ,/ SYMBOLS/ END OF STATISTICS (R.LT.2)                          FEAT155G     434     A     
 MAP       LPS.RF   DIS    1,(TT=REF)                                                      MAP         1101     A     
 MAP                DIS    1,REFERENCES                                                    MAP         1102     A     
 MAP       LPS.LR   CON    0 (LOSTREFS)      LINE TERMINATOR UNLESS REFS ARE LOST          MAP         1103          I
          -FEAT155G 
 MAP                DIS    ,, LOST REFERENCES,                                             MAP         1104          I
          -FEAT155G 
 MAP                CON    0           LINE TERMINATOR                                     FEAT155G     435     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1625    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                                                                                       MAP         1105          I
          -FEAT155G 
 MAP       LPSE     BSS    0                                                               MAP         1106          I
          -FEAT155G 
 MAP       LPS.MAX  DIS    1,(MAXCORE)                                                     MAP         1107          I
          -FEAT155G 
 MAP                DIS    2, CM STORAGE USED                                              MAP         1108          I
          -FCC0813  -FEAT155G 
 MAP                DIS    2, "SCM" STORAGE USED                                           FCC0813       89          I
          -FEAT155G 
 MAP       LPS.CP   DIS    1,(CPUTYPE)                                                     MAP         1109          I
          -FEAT155G 
 MAP                DIS    1,OMPILATION                                                    MAP         1110          I
          -FEAT155G 
 MAP       LPS.TM   DIS    1,(CPTIM)                                                       MAP         1111          I
          -FEAT155G 
 MAP                DIS    ,/ SECONDS/                                                     MAP         1112          I
          -FEAT155G 
 MAP       LSH      SPACE  4,15                                                            MAP         1113     A     
 MAP      **        LSH -  LIST SUB HEADING.                                               MAP         1114     A     
 MAP      *                                                                                MAP         1115     A     
 MAP      *         SETS UP NEW SUB-TITLE, AND THEN TRIES TO LIST 4 BLANK LINES,           MAP         1116     A     
 MAP      *                THE NEW SUB-HEADING, AND 2 MORE BLANKS.  IF THIS WOULD          MAP         1117     A     
 MAP      *                LEAVE LESS THAN (X7) USABLE LINES REMAINING ON THE              MAP         1118     A     
 MAP      *                PAGE, NO PRINTING TAKES PLACE BUT AN EJECT IS FORCED.           MAP         1119     A     
 MAP      *         ENTRY  (B4) _ FWA NEW SUB-TITLE (-C- FORMAT).                          MAP         1120     A     
 MAP      *                (X7) = NUMBER OF LINES REQUIRED.                                MAP         1121          I
          -FEAT126A 
 MAP      *                (X5) = NUMBER OF ENTRIES PER LINE                               FEAT126A     728     A     
 MAP      *                (X7) = NUMBER OF ENTRIES                                        FEAT126A     729     A     
 MAP      *         EXIT   (B4) PRESERVED.                                                 MAP         1122     A     
 MAP      *                (X2) = OUA.                                                     MAP         1123     A     
 MAP      *                SUB-TITLE RESET.                                                MAP         1124     A     
 MAP      *         IF (B4) = 0, SUB-TITLE IS NOT RESET AND NO PRINTING OCCURS.            MAP         1125          I
          -FEAT126A 
 MAP      *                ROUTINE THEN DEGENERATES INTO A SIMPLE CHECK TO                 MAP         1126          I
          -FEAT126A 
 MAP      *                GUARANTEE (X7) LINES REMAIN.                                    MAP         1127          I
          -FEAT126A 
 MAP      *                USES ONLY  A2,A3,A6  X7  B7  IN THIS CASE.                      MAP         1128          I
          -FEAT126A 
 MAP      *         IF (X7)  \ EJECT, WILL ALWAYS CAUSE PAGE EJECT.                        MAP         1129     A     
 MAP      *         IF (X7) @ -7, WILL NEVER PAGE EJECT.                                   MAP         1130     A     
 MAP      *                                                                                MAP         1131     A     
 MAP      *         USES   A1-A4,A6,A7  B2,B3,B5-B7                                        MAP         1132          I
          -FEAT126A 
 MAP      *         USES A1-A4,A6,A7  X5  B2,B3,B5-B7                                      FEAT126A     730     A     
 MAP      *         CALLS  WRITEC, WRITEW.                                                 MAP         1133     A     
 MAP                                                                                       MAP         1134     A     
 MAP                                                                                       MAP         1135     A     
 MAP       LSH7     SB7    X7-EJECT                                                        MAP         1136          I
          -FEAT126A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1626    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                MI     B7,LSHX     IF SUFFICIENT LINES LEFT                            MAP         1137          I
          -FEAT126A 
 MAP                                                                                       MAP         1138          I
          -FEAT126A 
 MAP       LSH8     SX6    EJECT+1     FORCE PAGE EJECT                                    MAP         1139          I
          -FEAT155E 
 MAP       LSH8     SA1    CO.PS                                                           FEAT155E     327          I
          -FEAT155EA
 MAP       LSH8     SA1    CP.PS                                                           FEAT155EA     40          I
          -FCCA422
 MAP       LSH8     SA1    LCP.PS                                                          FCCA422       54     A     
 MAP                =X6    X1+1                                                            FEAT155E     328     A     
 MAP                SA6    LCNT                                                            MAP         1140     A     
 MAP                ZR     X4,LSHX     IF NOT IN PW MODE                                   FEAT126A     731     A     
 MAP                PLINE  =XSTL.MAP,4                                                     FEAT126A     732          I
          -FEAT155H 
 MAP                PLINE  B4,B3                                                           FEAT155H     129     A     
 MAP                PLINE  ,,2                                                             FEAT126A     733     A     
 MAP                                                                                       MAP         1141     A     
 MAP       LSH      SUBR   X           ENTRY/EXIT..                                        MAP         1142     A     
 MAP                =X1    HDRSUBL-1         SUBTITLE LENGTH                               MAP         1143          I
          -FEAT155H 
 MAP                SA3    LCNT                                                            MAP         1144     A     
 MAP                SA2    B4+X1                                                           MAP         1145          I
          -FEAT155H 
 MAP                IX7    X3+X7                                                           MAP         1146          I
          -FEAT126A -FEAT155H 
 MAP                ZR     B4,LSH7     IF NO SUB-TITLE SPECIFIED                           MAP         1147          I
          -FEAT126A -FEAT155H 
 MAP                BX6    X2                                                              MAP         1148          I
          -FEAT155H 
 MAP                MX4    -1                                                              MAP         1149          I
          -FEAT155H 
 MAP                                                                                       MAP         1150          I
          -FEAT155H 
 MAP       LSH3     SA2    A2-B1                                                           MAP         1151          I
          -FEAT155H 
 MAP                SA6    X1+HDRSUB                                                       MAP         1152          I
          -FEAT126A -FEAT155H 
 MAP                SA6    X1+STL.MAP                                                      FEAT126A     734          I
          -FEAT155H 
 MAP                IX1    X1+X4                                                           MAP         1153          I
          -FEAT155H 
 MAP                BX6    X2                                                              MAP         1154          I
          -FEAT155H 
 MAP                PL     X1,LSH3     LOOP THRU SUBTITLE                                  MAP         1155          I
          -FEAT155H 
 MAP                                                                                       MAP         1156          I
          -FEAT155H 
 MAP                MX4    12                                                              FEAT155H     130     A     
 MAP                SX6    B1+B1                                                           FEAT155H     131     A     
 MAP                SA1    B4+B1                                                           FEAT155H     132     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1627    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                LX4    12                                                              FEAT155H     133     A     
 MAP                BX4    X4*X1                                                           FEAT155H     134     A     
 MAP                ZR     X4,LSH3     IF NOT LONG SUBTITLE                                FEAT155H     135     A     
 MAP                SX6    X6+B1                                                           FEAT155H     136     A     
 MAP       LSH3     SB3    X6                                                              FEAT155H     137     A     
 MAP                LX6    30                                                              FEAT155H     138     A     
 MAP                SX1    B4                                                              FEAT155H     139     A     
 MAP                IX6    X6+X1                                                           FEAT155H     140     A     
 MAP                SA6    =XO.STITL                                                       FEAT155H     141     A     
 MAP                SA4    CO.PW                                                           FEAT126AA     15          I
          -CP139FC
 MAP                SA4    =XCP.PW                                                         CP139FC      220     A     
 MAP                SB7    X7+5-EJECT                                                      MAP         1157          I
          -FEAT126A 
 MAP                PL     B7,LSH8     IF PAGE EJECT NECESSARY                             MAP         1158          I
          -FEAT126A 
 MAP                SX6    X3+5                                                            MAP         1159          I
          -FEAT126A 
 MAP                SA6    A3          UPDATE LINE COUNT                                   MAP         1160          I
          -FEAT126A 
 MAP                SX0    B4          SAVE (B4)                                           MAP         1161          I
          -FEAT126A 
 MAP                WRITEC F.OUT,HDRBL,1                                                   MAP         1162          I
          -FEAT126A 
 MAP                WRITEC F.OUT,HDRBL,1                                                   MAP         1163          I
          -FEAT126A 
 MAP                WRITEC F.OUT,HDRBL,1                                                   MAP         1164          I
          -FEAT126A 
 MAP                WRITEC F.OUT,=XSUBHDR,4+HDRSUBL                                        MAP         1165          I
          -FEAT126A 
 MAP                WRITEC F.OUT,HDRBL,1                                                   MAP         1166          I
          -FEAT126A 
 MAP                WRITEC F.OUT,HDRBL,1                                                   MAP         1167          I
          -FEAT126A 
 MAP                SB4    X0          RESTORE (B4)                                        MAP         1168          I
          -FEAT126A 
 MAP                SB6    X3+10-EJECT                                                     FEAT126A     735          I
          -FEAT155E 
 MAP                SA2    CO.PS                                                           FEAT155E     329          I
          -FEAT155EA
 MAP                SA2    CP.PS                                                           FEAT155EA     41          I
          -FCCA422
 MAP                SA2     LCP.PS                                                         FCCA422       55     A     
 MAP                IX1    X3-X2                                                           FEAT155E     330     A     
 MAP                SB6    X1+10                                                           FEAT155E     331     A     
 MAP                MI     B6,LSH4     IF MORE THAN 10 LINES REMAINING ON PAGE             FEAT126A     736     A     
 MAP                PX1    X7                                                              FEAT126A     737     A     
 MAP                PX5    X5                                                              FEAT126A     738     A     
 MAP                NX1    X1                                                              FEAT126A     739     A     
 MAP                NX5    X5                                                              FEAT126A     740     A     
 MAP                FX1    X1/X5                                                           FEAT126A     741     A     
 MAP                UX1    X1                                                              FEAT126A     742     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1628    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                IX7    X1+X3                                                           FEAT126A     743     A     
 MAP                SB7    X7+6-EJECT                                                      FEAT126A     744          I
          -FEAT155E 
 MAP                IX6    X7-X2                                                           FEAT155E     332     A     
 MAP                SB7    X6+6                                                            FEAT155E     333     A     
 MAP                MI     B7,LSH8     IF TABLE WILL NOT FIT ON PAGE                       FEAT126A     745          I
          -FEAT126AA
 MAP                PL     B7,LSH8     IF TABLE WILL NOT FIT ON PAGE                       FEAT126AA     16     A     
 MAP       LSH4     SA4    CO.PW                                                           FEAT126A     746          I
          -FEAT126AA
 MAP                SX1    =XSTL.MAP                                                       FEAT126A     747          I
          -FEAT126AA
 MAP       LSH4     SX1    STL.MAP                                                         FEAT126AA     17          I
          -FEAT155H 
 MAP                SX2    4                                                               FEAT126A     748          I
          -FEAT155H 
 MAP                NZ     X4,LSH5     IF IN PW MODE                                       FEAT126A     749          I
          -FEAT155H 
 MAP                SX1    =XO.STITL                                                       FEAT126A     750          I
          -FEAT155H 
 MAP                SX2    7                                                               FEAT126A     751          I
          -FEAT155H 
 MAP       LSH5     PLINE  X1,X2,2                                                         FEAT126A     752          I
          -FEAT155H 
 MAP       LSH4     PLINE  B4,B3,2                                                         FEAT155H     142     A     
 MAP                PLINE  ,,1                                                             FEAT126A     753     A     
 MAP                EQ     LSHX        EXIT..                                              MAP         1169     A     
 MAP       PRT      SPACE  4,8                                                             MAP         1170     A     
 MAP      **        PRT -  PREPARE REFERENCE TABLE.                                        MAP         1171     A     
 MAP      *                                                                                MAP         1172     A     
 MAP      *                                                                                MAP         1173     A     
 MAP      *         EXIT   REFERENCE LINKS SET UP (IF SELECTED).                           MAP         1174     A     
 MAP      *                TABLES SQUEEZED AND SORTED.                                     MAP         1175     A     
 MAP      *                                                                                MAP         1176     A     
 MAP      *         USES   ALL BUT A0.                                                     MAP         1177     A     
 MAP      *         CALLS  PST.                                                            MAP         1178     A     
 MAP                                                                                       MAP         1179     A     
 MAP                                                                                       MAP         1180     A     
 MAP       PRT      SUBR               ENTRY/EXIT...                                       MAP         1181     A     
 MAP                SA1    LOP=R                                                           MAP         1182     A     
 MAP                =X6    PASS=MAP                                                        MAP         1183     A     
 MAP                PL     X1,PRT2     IF REF-MAP NOT SELECTED                             MAP         1184     A     
 MAP                SA6    PASS                                                            MAP         1185     A     
 MAP                SA3    REFIO                                                           MAP         1186     A     
 MAP                ZR     X3,PRT2     IF TABLE IN CORE                                    MAP         1187     A     
 MAP                                                                                       MAP         1188     A     
 MAP      **        READ REFERENCE TABLE BACK INTO CORE                                    MAP         1189     A     
 MAP                                                                                       MAP         1190     A     
 MAP                SX0    B4          SAVE (B4)                                           MAP         1191     A     
 MAP                WRITER F.RMAP                                                          MAP         1192     A     
 MAP                REWIND F.RMAP                                                          MAP         1193     A     
 MAP                SB4    X0          RESTORE (B4)                                        MAP         1194     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1629    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SA2    LOSTREF                                                         MAP         1195     A     
 MAP                ALLOC  TT.REF,X2                                                       MAP         1196     A     
 MAP                                                                                       MAP         1197     A     
 MAP                IFNE   CP#RM,7,1                                                       MAP         1198     A     
 MAP                READ   F.RMAP                                                          MAP         1199     A     
 MAP                                                                                       MAP         1200     A     
 MAP                SA1    TT.REF                                                          MAP         1201     A     
 MAP                SA3    TT=REF                                                          MAP         1202     A     
 MAP                SX0    B4          SAVE (B4)                                           MAP         1203     A     
 MAP                READW  F.RMAP,X1,X3                                                    MAP         1204     A     
 MAP                SB4    X0          RESTORE (B4)                                        MAP         1205     A     
 MAP                                                                                       MAP         1206     A     
 MAP      **        PRE-LOAD REGISTERS, AND CLEAR LINKS FROM SYMBOL AND LABEL              MAP         1207     A     
 MAP      *                TABLES.                                                         MAP         1208     A     
 MAP                                                                                       MAP         1209     A     
 MAP       PRT2     SA1    TS.SYM                                                          MAP         1210     A     
 MAP                =X6    PASS=END                                                        MAP         1211     A     
 MAP                SA6    PASS                                                            MAP         1212     A     
 MAP                SA2    TS.STN                                                          MAP         1213     A     
 MAP                SA4    TS=SYM                                                          MAP         1214     A     
 MAP                SA3    X1                                                              MAP         1215     A     
 MAP                SB5    X1          (B5) = FWA SYMBOL TABLE                             MAP         1216     A     
 MAP                SB6    X2          (B6) = FWA LABEL  TABLE                             MAP         1217     A     
 MAP                MX0    L.SYM                                                           MAP         1218     A     
 MAP                =B2    2                                                               MAP         1219     A     
 MAP                SB7    X4          LENGTH SYM TAB                                      MAP         1220     A     
 MAP                BX6    X0*X3                                                           MAP         1221     A     
 MAP                                                                                       MAP         1222     A     
 MAP       PRT23    SA6    A3          CLEAR LINKS FROM SYM TAB                            MAP         1223     A     
 MAP                SA3    A3+B2                                                           MAP         1224     A     
 MAP                SB7    B7-B2                                                           MAP         1225     A     
 MAP                BX6    X0*X3                                                           MAP         1226     A     
 MAP                PL     B7,PRT23                                                        MAP         1227     A     
 MAP                                                                                       MAP         1228     A     
 MAP                SA3    B6                                                              MAP         1229     A     
 MAP                SA5    TS=STN                                                          MAP         1230     A     
 MAP                SB7    X5          LENGTH LAB TAB                                      MAP         1231     A     
 MAP                BX6    X0*X3                                                           MAP         1232     A     
 MAP                                                                                       MAP         1233     A     
 MAP       PRT26    SA6    A3          CLEAR LINKS FROM LAB TAB                            MAP         1234     A     
 MAP                SA3    A3+B2                                                           MAP         1235     A     
 MAP                SB7    B7-B2                                                           MAP         1236     A     
 MAP                BX6    X0*X3                                                           MAP         1237     A     
 MAP                PL     B7,PRT26                                                        MAP         1238     A     
 MAP                                                                                       MAP         1239     A     
 MAP      **        LINK SYMBOLS AND LABELS INTO  THE REFERENCES.                          MAP         1240     A     
 MAP                                                                                       MAP         1241     A     
 MAP                SA1    TT=REF      (X1) = LEN REF TABLE                                MAP         1242     A     
 MAP                SA4    TT.REF                                                          MAP         1243     A     
 MAP                ZR     X1,PRT5     IF REF TABLE EMPTY                                  MAP         1244     A     
 MAP                =X6    X1+1                                                            MAP         1245     A     
 MAP                =X7    X4-1                                                            MAP         1246     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1630    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                SB4    X7                                                              MAP         1247     A     
 MAP                MX0    L.TAG                                                           MAP         1248     A     
 MAP                SA6    A1                                                              MAP         1249     A     
 MAP                SB7    -C.STAT-1                                                       MAP         1250     A     
 MAP                SA7    A4          FAKE UP INITIAL ENTRY, TO PREVENT ZERO LINK         MAP         1251     A     
 MAP                SB5    B5+C.STAT-C.VAR                                                 MAP         1252     A     
 MAP                SA5    B4+X1                                                           MAP         1253     A     
 MAP                                                                                       MAP         1254     A     
 MAP       SNAP=R   IFNE   TEST        DMP REFERENCE TABLE                                 MAP         1255     A     
 MAP                SA3    CO.SNAP                                                         MAP         1256     A     
 MAP                LX3    1RR                                                             MAP         1257     A     
 MAP                PL     X3,PRT3S    IF REFERENCE SNAP NOT SELECTED                      MAP         1258     A     
 MAP                DUMPT  (TT.REF)                                                        MAP         1259     A     
 MAP       PRT3S    BSS    0                                                               MAP         1260     A     
 MAP       SNAP=R   ENDIF                                                                  MAP         1261     A     
 MAP                                                                                       MAP         1262     A     
 MAP       PRT4     BX6    -X0*X5                                                          MAP         1263     A     
 MAP                LX5    -P.TAG                                                          MAP         1264     A     
 MAP                SX3    X5+B7                                                           MAP         1265     A     
 MAP                SB3    X3+B6                                                           MAP         1266     A     
 MAP                PL     X3,PRT42    IF LABEL                                            MAP         1267     A     
 MAP                SB3    X3+B5                                                           MAP         1268     A     
 MAP       PRT42    SA2    B3          FETCH SYMBOL OR LABEL                               MAP         1269     A     
 MAP                SX4    X2          ISOLATE SYM LINK                                    MAP         1270     A     
 MAP                BX3    X2-X4                                                           MAP         1271     A     
 MAP                LX4    P.TAG                                                           MAP         1272     A     
 MAP                =A5    A5-1                                                            MAP         1273     A     
 MAP                IX6    X6+X4       LINK THIS REF TO PREVIOUS CHAIN                     MAP         1274     A     
 MAP                BX7    X3+X1       SYM/LAB LINKS TO THIS REF                           MAP         1275     A     
 MAP                SA6    B4+X1                                                           MAP         1276     A     
 MAP                SX1    A5-B4       (X1) = (X1) - 1                                     MAP         1277     A     
 MAP                SA7    A2                                                              MAP         1278     A     
 MAP                NZ     X1,PRT4     IF MORE REFERENCES                                  MAP         1279     A     
 MAP                                                                                       MAP         1280     A     
 MAP      **        SQUEEZE OUT EMPTY ENTRIES, AND SORT THE TABLES.                        MAP         1281     A     
 MAP                                                                                       MAP         1282     A     
 MAP       PRT5     SA1    TS.STN                                                          MAP         1283     A     
 MAP                RJ     PST         SQUEEZE AND SORT                                    MAP         1284     A     
 MAP                                                                                       MAP         1285     A     
 MAP                SA1    TS.SYM                                                          MAP         1286     A     
 MAP                RJ     PST         SQUEEZE AND SORT                                    MAP         1287     A     
 MAP                                                                                       MAP         1288     A     
 MAP                SA3    TS=SYM                                                          MAP         1289     A     
 MAP                SA2    TS=STN                                                          MAP         1290     A     
 MAP                IX0    X2+X3                                                           MAP         1291     A     
 MAP                AX1    X0,B1                                                           MAP         1292     A     
 MAP                RJ     CDD         CONVERT NUMBER OF SYMBOLS                           MAP         1293     A     
 MAP                SA6    LPS.SY                                                          MAP         1294     A     
 MAP                                                                                       MAP         1295     A     
 MAP       SNAP=R   IFNE   TEST        DUMP REFERENCE TABLE                                MAP         1296     A     
 MAP                SA3    CO.SNAP                                                         MAP         1297     A     
 MAP                LX3    1RR                                                             MAP         1298     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1631    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                PL     X3,PRT5S    IF REFERENCE SNAP NOT SELECTED                      MAP         1299     A     
 MAP                DUMPT  (TS.STN,TS.SYM)                                                 MAP         1300     A     
 MAP       PRT5S    BSS    0                                                               MAP         1301     A     
 MAP       SNAP=R   ENDIF                                                                  MAP         1302     A     
 MAP                EQ     EXIT.                                                           MAP         1303     A     
 MAP       PST      SPACE  4,8                                                             MAP         1304     A     
 MAP      **        PST -  PREPARE REFERENCE TABLE.                                        MAP         1305     A     
 MAP      *                                                                                MAP         1306     A     
 MAP      *         ENTRY  (A1) _ TABLE TO BE PREPARED (TS.SYM OR TS.STN).                 MAP         1307     A     
 MAP      *                (X1) = ((A1))                                                   MAP         1308     A     
 MAP      *                                                                                MAP         1309     A     
 MAP      *         EXIT   TABLE SQUEEZED AND SORTED.                                      MAP         1310     A     
 MAP      *                                                                                MAP         1311     A     
 MAP      *         USES   ALL BUT A0.                                                     MAP         1312     A     
 MAP      *         CALLS  DSRT.                                                           MAP         1313     A     
 MAP                                                                                       MAP         1314     A     
 MAP                                                                                       MAP         1315     A     
 MAP       PST4     BX7    X5                                                              MAP         1316     A     
 MAP                SA7    A2          RESET TABLE LENGTH                                  MAP         1317     A     
 MAP                RJ     DSRT                                                            MAP         1318     A     
 MAP                                                                                       MAP         1319     A     
 MAP       PST      SUBR               ENTRY/EXIT...                                       MAP         1320     A     
 MAP                SA2    A1+N.TABLE                                                      MAP         1321     A     
 MAP                =X0    2                                                               MAP         1322     A     
 MAP                =B2    2                                                               MAP         1323     A     
 MAP                SA3    X1-2                                                            MAP         1324     A     
 MAP                SB7    X2                                                              MAP         1325     A     
 MAP                BX6    X3                                                              MAP         1326     A     
 MAP                MX5    0                                                               MAP         1327     A     
 MAP                SA6    A3                                                              MAP         1328     A     
 MAP                                                                                       MAP         1329     A     
 MAP       PST3     SA3    A3+B2                                                           MAP         1330     A     
 MAP                ZR     B7,PST4     IF TABLE EXHAUSTED                                  MAP         1331     A     
 MAP                SB7    B7-B2                                                           MAP         1332     A     
 MAP                ZR     X3,PST3    IF NULL ENTRY, AVOID..                               MAP         1333     A     
 MAP                SA4    A3+B1                                                           MAP         1334     A     
 MAP                BX6    X3                                                              MAP         1335     A     
 MAP                IX5    X5+X0       COUNT VALID ENTRIES                                 MAP         1336     A     
 MAP                LX7    X4                                                              MAP         1337     A     
 MAP                SA6    A6+B2                                                           MAP         1338     A     
 MAP                SA7    A6+B1                                                           MAP         1339     A     
 MAP                EQ     PST3       LOOP..                                               MAP         1340     A     
 MAP       SFN      SPACE  4,12                                                            MAP         1341          I
          -FEAT155G 
 MAP      **        SFN -  SPACE FILL NAME.                                                MAP         1342          I
          -FEAT155G 
 MAP      *         AUTHOR (SOMEONE) AT PURDUE.                                            MAP         1343          I
          -FEAT155G 
 MAP      *         ENTRY  (X1) NAME LEFT JUSTIFIED 0 FILLED. (0L FORMAT)                  MAP         1344          I
          -FEAT155G 
 MAP      *         EXIT   (X6) 10H FORMAT OF (X1)                                         MAP         1345          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1632    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP      *         USES   A2  X3,X6,X7  B2                                                MAP         1346          I
          -FEAT155G 
 MAP                                                                                       MAP         1347          I
          -FEAT155G 
 MAP                                                                                       MAP         1348          I
          -FEAT155G 
 MAP       SFN      SUBR               ENTRY/EXIT...                                       MAP         1349          I
          -FEAT155G 
 MAP                SX7    B1                                                              MAP         1350          I
          -FEAT155G 
 MAP                SA2    =40404040404040404040B                                          MAP         1351          I
          -FEAT155G 
 MAP                IX7    X1-X7                                                           MAP         1352          I
          -FEAT155G 
 MAP                BX3    -X7+X1                                                          MAP         1353          I
          -FEAT155G 
 MAP                SB2    60-5                                                            MAP         1354          I
          -FEAT155G 
 MAP                BX7    X2*X3                                                           MAP         1355          I
          -FEAT155G 
 MAP                SA2    =1H                                                             MAP         1356          I
          -FEAT155G 
 MAP                LX3    B2,X7                                                           MAP         1357          I
          -FEAT155G 
 MAP                IX3    X7-X3                                                           MAP         1358          I
          -FEAT155G 
 MAP                IX7    X7+X3                                                           MAP         1359          I
          -FEAT155G 
 MAP                BX2    -X7*X2                                                          MAP         1360          I
          -FEAT155G 
 MAP                IX6    X1+X2                                                           MAP         1361          I
          -FEAT155G 
 MAP                LX6    54                                                              MAP         1362          I
          -FEAT155G 
 MAP                EQ     EXIT.                                                           MAP         1363          I
          -FEAT155G 
 MAP       WOD      SPACE  4,12                                                            MAP         1364          I
          -FEAT155G 
 MAP      **        WOD -  CONVERT A WORD TO OCTAL DISPLAY CODE                            MAP         1365          I
          -FEAT155G 
 MAP      *         AUTHOR CHRIS WILLIS, MINN.                                             MAP         1366          I
          -FEAT155G 
 MAP      *         ENTRY  (X1) = WORD TO CONVERT.                                         MAP         1367          I
          -FEAT155G 
 MAP      *         EXIT   (X6,X7) = CONVERTED WORD.                                       MAP         1368          I
          -FEAT155G 
 MAP      *         USES   A2,A3,A4,A5  X0,X1,X6,X7                                        MAP         1369          I
          -FEAT155G 
 MAP                                                                                       MAP         1370          I
          -FEAT155G 
 MAP                IFNE   TEST,,1                                                         MAP         1371          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1633    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                ENTRY  WOD                                                             MAP         1372          I
          -FEAT155G 
 MAP                                                                                       MAP         1373          I
          -FEAT155G 
 MAP       WOD      SUBR               ENTRY/EXIT...                                       MAP         1374          I
          -FEAT155G 
 MAP                                                                                       MAP         1375          I
          -FEAT155G 
 MAP      *         (X1) =             ABCDE FGHIJ KLMNO PQRST                             MAP         1376          I
          -FEAT155G 
 MAP                                                                                       MAP         1377          I
          -FEAT155G 
 MAP                SA2    WODA        7.... 7.... 7.... 7....                             MAP         1378          I
          -FEAT155G 
 MAP                BX7    X2*X1       A.... F.... K.... P....                             MAP         1379          I
          -FEAT155G 
 MAP                LX1    3           BCDEF GHIJK LMNOP QRSTA                             MAP         1380          I
          -FEAT155G 
 MAP                BX6    X2*X1       B.... G.... L.... Q....                             MAP         1381          I
          -FEAT155G 
 MAP                LX1    3           CDEFG HIJKL MNOPQ RSTAB                             MAP         1382          I
          -FEAT155G 
 MAP                LX7    9*3         .K... .P... .A... .F...                             MAP         1383          I
          -FEAT155G 
 MAP                BX0    X2*X1       C.... H.... M.... R....                             MAP         1384          I
          -FEAT155G 
 MAP                LX6    7*3         ...L. ...Q. ...B. ...G.                             MAP         1385          I
          -FEAT155G 
 MAP                LX1    3           DEFGH IJKLM NOPQR STABC                             MAP         1386          I
          -FEAT155G 
 MAP                IX7    X6+X7       .K.L. .P.Q. .A.B. .F.G.                             MAP         1387          I
          -FEAT155G 
 MAP                BX5    X2*X1       D.... I.... N.... S....                             MAP         1388          I
          -FEAT155G 
 MAP                LX1    3           EFGHI JKLMN OPQRS TABCD                             MAP         1389          I
          -FEAT155G 
 MAP                LX0    5*3         H.... M.... R.... C....                             MAP         1390          I
          -FEAT155G 
 MAP                BX6    X2*X1       E.... J.... O.... T....                             MAP         1391          I
          -FEAT155G 
 MAP                IX7    X7+X0       HK.L. MP.Q. RA.B. CF.G.                             MAP         1392          I
          -FEAT155G 
 MAP                LX5    3*3         ..I.. ..N.. ..S.. ..D..                             MAP         1393          I
          -FEAT155G 
 MAP                LX6    3           ....J ....O ....T ....E                             MAP         1394          I
          -FEAT155G 
 MAP                IX7    X7+X6       HK.LJ MP.QO RA.BT CF.GE                             MAP         1395          I
          -FEAT155G 
 MAP                SA4    A2+B1       .7.7. 7.7.7 ..... .....                             MAP         1396          I
          -FEAT155G 
 MAP                SA3    A4+B1       ..... .7.7. 7.7.7 .....                             MAP         1397          I
          -FEAT155G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1634    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
 MAP                BX7    X7+X5       HKILJ MPNQO RASBT CFDGE                             MAP         1398          I
          -FEAT155G 
 MAP                BX2    X7*X4       .K.L. M.N.O ..... .....                             MAP         1399          I
          -FEAT155G 
 MAP                SA5    A3+B1       00000 00000 00000 00000                             MAP         1400          I
          -FEAT155G 
 MAP                BX1    X7*X3       ..... .P.Q. R.S.T .....                             MAP         1401          I
          -FEAT155G 
 MAP                LX7    10*3        RASBT CFDGE HKILJ MPNQO                             MAP         1402          I
          -FEAT155G 
 MAP                IX2    X5+X2       .K.L. M.N.O 00000 00000                             MAP         1403          I
          -FEAT155G 
 MAP                BX0    X7*X4       .A.B. C.D.E ..... .....                             MAP         1404          I
          -FEAT155G 
 MAP                IX0    X0+X5       .A.B. C.D.E 00000 00000                             MAP         1405          I
          -FEAT155G 
 MAP                LX1    15*3        ..... ..... .P.Q. R.S.T                             MAP         1406          I
          -FEAT155G 
 MAP                BX3    X7*X3       ..... .F.G. H.I.J .....                             MAP         1407          I
          -FEAT155G 
 MAP                IX7    X1+X2       .K.L. M.N.O .P.Q. R.S.T                             MAP         1408          I
          -FEAT155G 
 MAP                LX3    15*3        ..... ..... .F.G. H.I.J                             MAP         1409          I
          -FEAT155G 
 MAP                IX6    X0+X3       .A.B. C.D.E .F.G. H.I.J                             MAP         1410          I
          -FEAT155G 
 MAP                EQ     EXIT.                                                           MAP         1411          I
          -FEAT155G 
 MAP                                                                                       MAP         1412          I
          -FEAT155G 
 MAP       WODA     CON    70000700007000070000B                                           MAP         1413          I
          -FEAT155G 
 MAP                CON    07070707070000000000B                                           MAP         1414          I
          -FEAT155G 
 MAP                CON    00000070707070700000B                                           MAP         1415          I
          -FEAT155G 
 MAP                CON    10H0000000000                                                   MAP         1416          I
          -FEAT155G 
 MAP       ENTRY    SPACE  4,8                                                             MAP         1417     A     
 MAP                LIST   D                                                               MAP         1418     A     
 MAP                END                                                                    MAP         1419          I
          -FEAT155G 
 MAP       FIN.OL   END                END OF (1,0) OVERLAY WHEN OBJECT LIST OFF           FEAT155G     436     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - MAP     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          MAP                       1419       680
          FCC0524                     15        15
          FCC0583                     19        19
          FCC0596                      3         0
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1635    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MAP     
  
          FEAT126A                   347       169
          FEAT126C                    17         6
          FEAT126AA                    5         3
          FCC0813                      8         1
          FCC0962                      2         0
          FEAT155E                    22        17
          FEAT155G                    34        34
          FEAT155H                    21        21
          CP139FC                     19        19
          FEAT155EA                    5         0
          FEAT155GA                    7         7
          FCC1200                      2         2
          FCC1495AX                    4         4
          FCCA422                      5         5
          FCCA597                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST     *DECK     LIST                                                                   LIST           1     A     
 LIST               IDENT  LIST                                                            LIST           2     A     
 LIST      LIST     SECT   (LISTING ROUTINES -- PASS 1 = OBJECT CODE.),1                   LIST           3     A     
 LIST                                                                                      LIST           4     A     
 LIST               SST    B,D,EXIT.                                                       LIST           5     A     
 LIST               NOREF  B,D,EXIT.                                                       LIST           6     A     
 LIST                                                                                      LIST           7     A     
 LIST      B=LIST   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             LIST           8     A     
 LIST                                                                                      LIST           9     A     
 LIST               ENTRY  PIK,KITA,KIT,KTX,PVF,KTY                                        LIST          10          I
          -FEAT155G 
 LIST               ENTRY  FIN,PFD,PID,PIK,WCL                                             FEAT155G     437     A     
 LIST                                                                                      LIST          11     A     
 LIST     *         IN FTN                                                                 LIST          12          I
          -FEAT155G 
 LIST               EXT    LOP=O                                                           LIST          13          I
          -FEAT155G 
 LIST                                                                                      LIST          14          I
          -FEAT155G 
 LIST     *         IN TABLES                                                              LIST          15     A     
 LIST               EXT    LINEBUF,TS.SYM,TS.STN                                           LIST          16     A     
 LIST               EXT    SFN                                                             FEAT155G     438     A     
 LIST               EXT    LOCAL,COMSIZ,MOD                                                FEAT155G     439     A     
 LIST     *         IN FTN                                                                 FEAT155G     440     A     
 LIST               EXT    CO.ER,LOP=O                                                     FEAT155G     441     A     
 LIST     *         IN MAP                                                                 FEAT155G     442     A     
 LIST               EXT    LPS.PL                                                          FEAT155G     443     A     
 LIST     *         IN ALLOC                                                               FEAT155G     444     A     
 LIST               EXT    IDENT                                                           FEAT155G     445     A     
 LIST                                                                                      LIST          17     A     
 LIST     *         IN PIG                                                                 LIST          18     A     
 LIST               EXT    PIK=TAG,PIK=I,PIK=J,PIK=XJP,PIK=BL,PIK=PI,PIK=PS,PIKX           LIST          19     A     
 LIST                                                                                      LIST          20     A     
 LIST     *         IN MAP                                                                 LIST          21          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1636    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
          -FEAT155G 
 LIST               EXT    SFN                                                             LIST          22          I
          -FEAT155G 
 LIST                                                                                      LIST          23          I
          -FEAT155G 
 LIST     *         IN MAIN                                                                LIST          24     A     
 LIST               EXT    WOF                                                             LIST          25     A     
 LIST                                                                                      LIST          26     A     
 LIST      KIT      SPACE  4,8                                                             LIST          27     A     
 LIST     **        KIT -  KONVERT INTERNAL TAG (TO DPC)                                   LIST          28     A     
 LIST     *         CONVERTS COMPILER-INVENTED TAGS (L, I, T, C, + F) TO HUMAN-            LIST          29     A     
 LIST     *                READABLE FORM.                                                  LIST          30     A     
 LIST     *         ENTRY  X3 = TAG (R-JUST)                                               LIST          31     A     
 LIST     *         EXIT   X6 = DPC TAG (0L FORMAT) OF AT MOST 7 CHARACTERS                LIST          32     A     
 LIST     *                            *T.NNNNN*                                           LIST          33     A     
 LIST     *                              *NNNNN* = DPC ORDINAL, LEADING ZERO SUPP          LIST          34     A     
 LIST     *                            *T*       = TAG-TYPE LETTER                         LIST          35     A     
 LIST     *                X0 = 7                                                          LIST          36     A     
 LIST     *         USES   A3  X1,X2                                                       LIST          37     A     
 LIST                                                                                      LIST          38     A     
 LIST                                                                                      LIST          39     A     
 LIST      KIT      SUBR               ENTRY/EXIT...                                       LIST          40     A     
 LIST               MX1    -L.PWF                                                          LIST          41     A     
 LIST               SX6    B0                                                              LIST          42     A     
 LIST               BX1    -X1*X3      ISOLATE ORDINAL                                     LIST          43     A     
 LIST               AX3    L.PWF         AND TYPE                                          LIST          44     A     
 LIST               SA3    X3+KITA-C.BASE/1S13                                             LIST          45     A     
 LIST               SX0    7                                                               LIST          46     A     
 LIST      KIT1     BX2    X0*X1       ISOLATE LOWEST OCTAL DIGIT                          LIST          47     A     
 LIST               AX1    3                                                               LIST          48     A     
 LIST               SX2    X2+1R0                                                          LIST          49     A     
 LIST               BX6    X6+X2                                                           LIST          50     A     
 LIST               LX6    -6                                                              LIST          51     A     
 LIST               NZ     X1,KIT1     IF NUMBER NOT FINISHED                              LIST          52     A     
 LIST               BX6    X6+X3                                                           LIST          53     A     
 LIST               LX6    -2*6                                                            LIST          54     A     
 LIST               EQ     EXIT.                                                           LIST          55     A     
 LIST                                                                                      LIST          56     A     
 LIST      KITA     DATA   2RV.        20  VARIABLE                                        LIST          57     A     
 LIST               DATA   2RV=        22  VARIABLE (MORE)                                 LIST          58     A     
 LIST               DATA   2RN.        24  STATEMENT LABEL                                 LIST          59     A     
 LIST               DATA   2RL.        26  INVENTED LABEL                                  LIST          60     A     
 LIST               DATA   2RV.        30  VAR-DIM                                         LIST          61     A     
 LIST               DATA   2RT.        32  TEMP/IND                                        LIST          62     A     
 LIST               DATA   2RC.        34  CONSTANT                                        LIST          63     A     
 LIST               DATA   2R*.        36  **** TEMP ****                                  LIST          64     A     
 LIST               DATA   2R*=        40  **** TEMP ****                                  LIST          65     A     
 LIST      KNT      SPACE  4,8                                                             LIST          66     A     
 LIST     **        KNT -  KONVERT *N* TAG TO DPC                                          LIST          67     A     
 LIST     *         ENTRY  X3 = N-TAG (R-JUST)                                             LIST          68     A     
 LIST     *         EXIT   X6 = DPC STATEMENT LABEL (0L FORMAT) WITH A PERIOD              LIST          69     A     
 LIST     *                            ADDED AS THE FIRST CHARACTER.                       LIST          70     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1637    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST     *                            AT MOST 6 CHARACTERS.                               LIST          71     A     
 LIST     *         USES   A1  X2  B7                                                      LIST          72     A     
 LIST                                                                                      LIST          73     A     
 LIST                                                                                      LIST          74     A     
 LIST      KNT      SUBR               ENTRY/EXIT...                                       LIST          75     A     
 LIST               SA1    TS.STN                                                          LIST          76     A     
 LIST               SB7    X3-C.STAT-1                                                     LIST          77     A     
 LIST               SA1    X1+B7       FETCH TS.STAT ENTRY                                 LIST          78     A     
 LIST               MX2    6                                                               LIST          79     A     
 LIST               AX1    P.STN       DISCARD LOW-ORDER GARBAGE                           LIST          80     A     
 LIST      KNT1     BX6    X2*X1       ISOLATE LEADING CHARACTER                           LIST          81     A     
 LIST               LX1    6                                                               LIST          82     A     
 LIST               ZR     X6,KNT1     IF NO SIGNIFICANT CHARACTER YET                     LIST          83     A     
 LIST               SX2    2R.*-1R*                                                        LIST          84     A     
 LIST               BX6    X1+X2                                                           LIST          85     A     
 LIST               LX6    -2*6                                                            LIST          86     A     
 LIST               EQ     EXIT.                                                           LIST          87     A     
 LIST      KTX      SPACE  4,8                                                             LIST          88     A     
 LIST     **        KTX -  KONVERT TAG TO EXTERNAL FORMAT                                  LIST          89     A     
 LIST     *         SIMILIAR TO *KIT*, BUT CONVERTS TO A PROGRAMMER SYMBOL WHERE           LIST          90     A     
 LIST     *                POSSIBLE.                                                       LIST          91     A     
 LIST     *         ENTRY  (X3) = TAG (R-JUST, ZERO FILL)                                  LIST          92     A     
 LIST     *         EXIT   (X6) = DPC CONVERSION (L-JUST, ZERO FILL, 9 CHAR MAX)           LIST          93     A     
 LIST     *                (X0) = 7.                                                       LIST          94     A     
 LIST     *         USES   A1,A2,A3,A6  B2,B7  X0,X4,X6                                    LIST          95     A     
 LIST                                                                                      LIST          96     A     
 LIST                                                                                      LIST          97     A     
 LIST      KTX      SUBR               ENTRY/EXIT...                                       LIST          98     A     
 LIST               LX3    -L.PWF                                                          LIST          99     A     
 LIST               SX0    7                                                               LIST         100     A     
 LIST               SB7    X3-C.BASE/1S13                                                  LIST         101     A     
 LIST               SX2    X3-C.END/1S13-1                                                 LIST         102     A     
 LIST               LX3    L.PWF       RESTORE X3                                          LIST         103     A     
 LIST               BX6    X3                                                              LIST         104     A     
 LIST               MI     B7,KTXK     IF SHORT CONSTANT (POSITIVE)                        LIST         105     A     
 LIST               PL     X2,KTXK     IF SHORT CONSTANT (NEGATIVE)                        LIST         106     A     
 LIST                                                                                      LIST         107     A     
 LIST               JP     B7+*+1                                                          LIST         108     A     
 LIST     *                       2 2 2 2 3 3 3 3 4                                        LIST         109     A     
 LIST     *                       0 2 4 6 0 2 4 6 0                                        LIST         110     A     
 LIST               ECHO   1,TYP=(V,V,N,L,A,T,C,Z,Z)                                       LIST         111     A     
 LIST               EQ     KTX_TYP                                                         LIST         112     A     
 LIST                                                                                      LIST         113     A     
 LIST     *         CONVERT AN INTERNAL TAG                                                LIST         114     A     
 LIST                                                                                      LIST         115     A     
 LIST      KTXZ     BSS    0           **** TEMP ****                                      LIST         116     A     
 LIST      KTXL     BSS    0           26                                                  LIST         117     A     
 LIST      KTXC     BSS    0           34                                                  LIST         118     A     
 LIST      KTXA     BSS    0           30                                                  LIST         119     A     
 LIST               RJ     KIT         KONVERT INVENTED TAG                                LIST         120     A     
 LIST               EQ     EXIT.       EXIT..                                              LIST         121     A     
 LIST                                                                                      LIST         122     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1638    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST                                                                                      LIST         123     A     
 LIST     **        CONVERT INDIRECT/TEMP TAGS   (30)                                      LIST         124     A     
 LIST     *                PREFIX THEM WITH *=S*.                                          LIST         125     A     
 LIST                                                                                      LIST         126     A     
 LIST                                                                                      LIST         127     A     
 LIST      KTXT     BSS    0           (30)                                                LIST         128     A     
 LIST               RJ     KIT         KONVERT INTERNAL TAG                                LIST         129     A     
 LIST               SX4    2R=S                                                            LIST         130     A     
 LIST               BX6    X6+X4                                                           LIST         131     A     
 LIST               LX6    -2*CHAR                                                         LIST         132     A     
 LIST               EQ     EXIT.       EXIT..                                              LIST         133     A     
 LIST                                                                                      LIST         134     A     
 LIST                                                                                      LIST         135     A     
 LIST     **        CONVERT VARIABLE TAG         (20, 22)                                  LIST         136     A     
 LIST     *                WILL PREFIX TAG WITH *=X* IF *EXT* BIT IS SET IN THE            LIST         137     A     
 LIST     *                SYMBOL TABLE ENTRY.                                             LIST         138     A     
 LIST                                                                                      LIST         139     A     
 LIST                                                                                      LIST         140     A     
 LIST      KTXV     SA1    TS.SYM                                                          LIST         141     A     
 LIST               SB2    X6-C.SYM-1  ORDINAL OF TAG                                      LIST         142     A     
 LIST               MX2    L.SYM                                                           LIST         143     A     
 LIST               SA3    X1+B2                                                           LIST         144     A     
 LIST               BX6    X2*X3      SYMBOL                                               LIST         145     A     
 LIST               SA2    A3+B1       TAG                                                 LIST         146     A     
 LIST               IFBIT  X2,-EXT,EXIT.                                                   LIST         147     A     
 LIST               SX1    2R=X                                                            LIST         148          I
          -FCC1163
 LIST               SA1    =XCO.TBK                                                        FCC1163        4     A     
 LIST               IFBIT  X2,-BEF/EXT,KTXV1  IF NOT BEF                                   FCC1163        5     A     
 LIST               MI     X1,KTXV1    IF TRACEBACK ON                                     FCC1163        6     A     
 LIST               MX0    -L.JPADF                                                        FCC1163        7     A     
 LIST               SBIT   X2,JPADF/BEF+1                                                  FCC1163        8     A     
 LIST               BX2    -X0*X2                                                          FCC1163        9     A     
 LIST               SB7    X2                                                              FCC1163       10     A     
 LIST               SX1    1R"EXT"                                                         FCC1163       11     A     
 LIST               LX2    X1,B7                                                           FCC1163       12     A     
 LIST               BX6    X6+X2       APPEND SPECIAL CHARACTER                            FCC1163       13     A     
 LIST      KTXV1    SX1    2R=X                                                            FCC1163       14     A     
 LIST               BX6    X1+X6                                                           LIST         149     A     
 LIST               LX6    -2*CHAR     PREFIX EXTERNALS WITH *=X*                          LIST         150     A     
 LIST               EQ     EXIT.       EXIT..                                              LIST         151     A     
 LIST                                                                                      LIST         152     A     
 LIST                                                                                      LIST         153     A     
 LIST     **        CONVERT STATEMENT LABEL TAG  (24).                                     LIST         154     A     
 LIST                                                                                      LIST         155     A     
 LIST                                                                                      LIST         156     A     
 LIST      KTXN     RJ     KNT         KONVERT *N* TAG                                     LIST         157     A     
 LIST               EQ     EXIT.       EXIT..                                              LIST         158     A     
 LIST                                                                                      LIST         159     A     
 LIST                                                                                      LIST         160     A     
 LIST     **        CONVERT SHORT CONSTANTS      (0-17,42-77)                              LIST         161     A     
 LIST                                                                                      LIST         162     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1639    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST                                                                                      LIST         163     A     
 LIST      KTXK     LX3    -18         SIGN EXTEND                                         LIST         164     A     
 LIST               AX3    -18                                                             LIST         165     A     
 LIST               RJ     KTY         CONVERT SHORT CONSTANT                              LIST         166     A     
 LIST               EQ     EXIT.                                                           LIST         167     A     
 LIST      KTY      SPACE  4,8                                                             LIST         168     A     
 LIST     **        KTY -  CONVERT SHORT CONSTANTS FOR OBJECT LIST.                        LIST         169     A     
 LIST     *                                                                                LIST         170     A     
 LIST     *                                                                                LIST         171     A     
 LIST     *         ENTRY  (X3) = CONSTANT, RIGHT JUSTIFIED IN BITS (23-00).               LIST         172     A     
 LIST     *                       IF BIT (2**23) IS SET, CONSTANT IS ASSUMED TO BE         LIST         173     A     
 LIST     *                       NEGATIVE, AND CONVERSION WILL HAVE A LEADING             LIST         174     A     
 LIST     *                       MINUS SIGN.                                              LIST         175     A     
 LIST     *                (X0) = 7.                                                       LIST         176     A     
 LIST     *                                                                                LIST         177     A     
 LIST     *         EXIT   (X6) = DPC CONVERSION (0L FORMAT).  WILL HAVE A                 LIST         178     A     
 LIST     *                       TRAILING *B* SUFFIX IF ABSOLUTE VALUE OF                 LIST         179     A     
 LIST     *                       THE CONSTANT IS .GT. EIGHT.                              LIST         180     A     
 LIST     *                (X3) .LT.0 IF CONSTANT WAS NEGATIVE.                            LIST         181     A     
 LIST     *                (X0) = 7.                                                       LIST         182     A     
 LIST     *                                                                                LIST         183     A     
 LIST     *         USES   X1-X3,X6                                                        LIST         184     A     
 LIST                                                                                      LIST         185     A     
 LIST                                                                                      LIST         186     A     
 LIST      KTY      SUBR               ENTRY/EXIT...                                       LIST         187     A     
 LIST               LX3    -L.LBIAS                                                        LIST         188     A     
 LIST               AX3    -L.LBIAS    SIGN EXTEND                                         LIST         189     A     
 LIST               BX2    X3                                                              LIST         190     A     
 LIST               AX2    L.LBIAS     MASK = (+0 IF POS), (-0 IF NEG)                     LIST         191     A     
 LIST               BX6    X2-X3       X6 = ABS (X3)                                       LIST         192     A     
 LIST               LX1    X6                                                              LIST         193     A     
 LIST               AX6    3                                                               LIST         194     A     
 LIST               ZR     X6,KTY6     IF ABS(X3) .LT. 8                                   LIST         195     A     
 LIST               =X6    1RB                                                             LIST         196     A     
 LIST                                                                                      LIST         197     A     
 LIST      KTY6     BX2    X0*X1       ISOLATE LOWEST OCTAL DIGIT                          LIST         198     A     
 LIST               AX1    3                                                               LIST         199     A     
 LIST               SX2    X2+1R0                                                          LIST         200     A     
 LIST               LX6    -CHAR                                                           LIST         201     A     
 LIST               BX6    X2+X6                                                           LIST         202     A     
 LIST               NZ     X1,KTY6     IF NUMBER NOT EXHAUSTED                             LIST         203     A     
 LIST                                                                                      LIST         204     A     
 LIST               LX6    -CHAR                                                           LIST         205     A     
 LIST               PL     X3,EXIT.    IF POSITIVE CONSTANT                                LIST         206     A     
 LIST               SX1    1R-                                                             LIST         207     A     
 LIST               BX6    X1+X6                                                           LIST         208     A     
 LIST               LX6    -CHAR                                                           LIST         209     A     
 LIST               EQ     EXIT.                                                           LIST         210     A     
 LIST      PFD      SPACE  4,8                                                             FEAT155G     446     A     
 LIST     **        PFD    - PRINT FILE DESCRIPTION MACROS                                 FEAT155G     447     A     
 LIST     *                                                                                FEAT155G     448     A     
 LIST     *         ENTRY  (A4) = TAG WORD                                                 FEAT155G     449     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1640    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST     *         EXIT   (X6) = FILE NAME                                                FEAT155G     450     A     
 LIST     *                (X4) = BITS 18-36 OF TAG - RIGHT JUSTIFIED                      FEAT155G     451     A     
 LIST     *                FILE DESCRIPTOR PRINTED                                         FEAT155G     452     A     
 LIST     *         USES   ALL                                                             FEAT155G     453     A     
 LIST      PFD      BSS    0                                                               FEAT155G     454     A     
 LIST               MI     X4,PFD20    IF EQUIVALENCED FILE                                FEAT155G     455     A     
 LIST               SX3    X4                                                              FEAT155G     456     A     
 LIST               RJ     KTX         CONVERT FILE BUFFER LENGTH                          FEAT155G     457     A     
 LIST               SA6    PFDA+3                                                          FEAT155G     458     A     
 LIST               SA2    A4+B1       FETCH RECORD DESCRIPTOR                             FEAT155G     459     A     
 LIST               MI     X2,PFD10    IF NO RECORD LENGTH SPECIFIED                       FEAT155G     460     A     
 LIST               SX3    X2                                                              FEAT155G     461     A     
 LIST               RJ     KTX         CONVERT RECORD LENGTH                               FEAT155G     462     A     
 LIST               SA6    PFDA+5                                                          FEAT155G     463     A     
 LIST               EQ     PFD30                                                           FEAT155G     464     A     
 LIST                                                                                      FEAT155G     465     A     
 LIST      PFD10    MX6    0                                                               FEAT155G     466     A     
 LIST               SA6    PFDA+5                                                          FEAT155G     467     A     
 LIST               EQ     PFD30                                                           FEAT155G     468     A     
 LIST                                                                                      FEAT155G     469     A     
 LIST      PFD20    SA2    =XT.FILE                                                        FEAT155G     470     A     
 LIST               SB7    X4                                                              FEAT155G     471     A     
 LIST               SA1    X2+B7       FETCH EQUIVALENCED NAME                             FEAT155G     472     A     
 LIST               MX7    0           NO RECORD LENGTH                                    FEAT155G     473     A     
 LIST               SA7    PFDA+5                                                          FEAT155G     474     A     
 LIST               BX6    X1                                                              FEAT155G     475     A     
 LIST               RJ     =XFFN       MANUFACTURE FILE NAME.                              FEAT155G     476     A     
 LIST               SA6    PFDA+3                                                          FEAT155G     477     A     
 LIST      PFD30    LX4    -2*18                                                           FEAT155G     478     A     
 LIST               SX3    X4                                                              FEAT155G     479     A     
 LIST               RJ     KIT         CONVERT BUFFER TAG                                  FEAT155G     480     A     
 LIST               LX4    18                                                              FEAT155G     481     A     
 LIST               SX1    X4                                                              FEAT155G     482     A     
 LIST               SA6    PFDA+1                                                          FEAT155G     483     A     
 LIST               PIA    ,LINEBUF    CONVERT FILE ADDRESS                                FEAT155G     484     A     
 LIST               MX3    LG.VAR*CHAR                                                     FEAT155G     485     A     
 LIST               BX6    X3*X5                                                           FEAT155G     486     A     
 LIST               SB4    X4                                                              FEAT155G     487     A     
 LIST               RJ     =XFFN       MANUFACTURE FILE NAME.                              FEAT155G     488     A     
 LIST               BX1    X6                                                              FEAT155G     489     A     
 LIST               LX5    X6                                                              FEAT155G     490     A     
 LIST               RJ     SFN         SPACE FILL                                          FEAT155G     491     A     
 LIST               SA2    PFDA                                                            FEAT155G     492     A     
 LIST               SA6    LINEBUF+1   STORE FILE NAME IN OUTPUT LINE                      FEAT155G     493     A     
 LIST               BX6    X2                                                              FEAT155G     494     A     
 LIST               SA2    A2+B1                                                           FEAT155G     495     A     
 LIST               RJ     PVF         PRINT FILE DESCRIPTOR                               FEAT155G     496     A     
 LIST               SX4    B4                                                              FEAT155G     497     A     
 LIST               BX6    X5                                                              FEAT155G     498     A     
 LIST               EQ     =XPFDX      EXIT TO HEADER                                      FEAT155G     499     A     
 LIST                                                                                      FEAT155G     500     A     
 LIST      PFDA     DATA   7RFILE                                                          FEAT155G     501     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1641    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               BSS    1           FILE NAME                                           FEAT155G     502     A     
 LIST               DATA   1L,                                                             FEAT155G     503     A     
 LIST               BSS    1           LENGTH OR EQUIVALENCE                               FEAT155G     504     A     
 LIST               DATA   1L,                                                             FEAT155G     505     A     
 LIST               BSS    1           RECORD LENGTH                                       FEAT155G     506     A     
 LIST               DATA   0                                                               FEAT155G     507     A     
 LIST      PID      SPACE  4,8                                                             FEAT155G     508     A     
 LIST     **        PID    - PRINT IDENT CARD                                              FEAT155G     509     A     
 LIST     *                                                                                FEAT155G     510     A     
 LIST     *         ENTRY  NONE                                                            FEAT155G     511     A     
 LIST     *         EXIT   IDENT CARD PRINTED                                              FEAT155G     512     A     
 LIST     *         USES   A1-3,A6 X1-3,X6                                                 FEAT155G     513     A     
 LIST     *         CALLS  PVF                                                             FEAT155G     514     A     
 LIST                                                                                      FEAT155G     515     A     
 LIST      PID      BSS    0                                                               FEAT155G     516     A     
 LIST               SA1    =1H                                                             FEAT155G     517     A     
 LIST               SA3    =7RIDENT                                                        FEAT155G     518     A     
 LIST               BX6    X1                                                              FEAT155G     519     A     
 LIST               SA6    LINEBUF                                                         FEAT155G     520     A     
 LIST               SA6    A6+B1                                                           FEAT155G     521     A     
 LIST               BX6    X3                                                              FEAT155G     522     A     
 LIST               SA2    =XIDENT                                                         FEAT155G     523     A     
 LIST               RJ     PVF         PRINT *IDENT* CARD                                  FEAT155G     524     A     
 LIST               EQ     =XPIDX      EXIT TO HEADER                                      FEAT155G     525     A     
 LIST      PIK      SPACE  4,10                                                            LIST         211     A     
 LIST     **        PIK -  PRINT INSTRUCTION KONVERSION                                    LIST         212     A     
 LIST     *         CALLED BY *PIG* TO CONVERT AND PRINT EACH OBJECT INSTRUCTION           LIST         213     A     
 LIST     *                IF SUCH A LISTING WAS REQUESTED.                                LIST         214     A     
 LIST     *                                                                                LIST         215     A     
 LIST     *         ENTRY  (X5) = INSTRUCTION.                                             LIST         216     A     
 LIST     *                (A5) = INSTRUCTION.                                             LIST         217     A     
 LIST                                                                                      LIST         218     A     
 LIST      PIK      BSS    0           ENTRY...  (EXIT INTO PIG)                           LIST         219     A     
 LIST               BX7    0                                                               LIST         220     A     
 LIST               BX1    X5                                                              LIST         221     A     
 LIST               MX2    L.LGH                                                           LIST         222     A     
 LIST               BX6    X2*X1                                                           LIST         223     A     
 LIST               SA7    PIK=TAG+1                                                       LIST         224     A     
 LIST               NZ     X6,PIK2     IF NO PSEUDO-INST                                   LIST         225     A     
 LIST               BX3    X1                                                              LIST         226     A     
 LIST               AX1    P.LI12                                                          LIST         227     A     
 LIST               SB7    X1                                                              LIST         228     A     
 LIST               JP     B7+*+1                                                          LIST         229     A     
 LIST               EQ     PIK1B       0  BSS                                              LIST         230     A     
 LIST               EQ     PIK1CL      1  CALL                                             LIST         231     A     
 LIST               EQ     PIK1RJ      2  RJ                                               LIST         232     A     
 LIST               EQ     PIK1JP      3  JP                                               LIST         233     A     
 LIST               EQ     PIK1EQ      4  EQ   (UNCONDITIONAL)                             LIST         234     A     
 LIST                                                                                      LIST         235     A     
 LIST     **  =0    PROCESS *BSS* - DEFINE LOCATION SYMBOL                                 LIST         236     A     
 LIST                                                                                      LIST         237     A     
 LIST      PIK1B    SX1    X3-C.BASE                                                       LIST         238     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1642    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               SA2    =1H                                                             LIST         239     A     
 LIST               BX6    X2                                                              LIST         240     A     
 LIST               MI     X1,PIK1B4   IF NO TAG                                           LIST         241     A     
 LIST               SX3    X3                                                              LIST         242     A     
 LIST               RJ     KTX         CONVERT TAG TO EXTERNAL REPRESENTATION              LIST         243     A     
 LIST               BX1    X6                                                              LIST         244     A     
 LIST               RJ     SFN         SPACE FILL                                          LIST         245     A     
 LIST                                                                                      LIST         246     A     
 LIST      PIK1B4   SA6    PIG=IG+1                                                        LIST         247          I
          -FEAT126A 
 LIST      PIK1B4   SA6    LINEBUF+1                                                       FEAT126A     401     A     
 LIST               BX1    X5                                                              LIST         248     A     
 LIST               AX1    P.LTAG                                                          LIST         249     A     
 LIST               SX3    X1                                                              LIST         250     A     
 LIST               RJ     KTX         CONVERT NUMBER OF BSS-ED WORDS                      LIST         251     A     
 LIST               SA1    =7RBSS                                                          LIST         252     A     
 LIST               SB2    3*CHAR                                                          LIST         253     A     
 LIST               LX7    X6                                                              LIST         254     A     
 LIST               BX6    X1                                                              LIST         255     A     
 LIST               SA7    PIK=TAG                                                         LIST         256     A     
 LIST               EQ     PIK4                                                            LIST         257     A     
 LIST                                                                                      LIST         258     A     
 LIST                                                                                      LIST         259     A     
 LIST     **  =1    PROCESS *CALL* - RJ WITH TRACEBACK                                     LIST         260     A     
 LIST                                                                                      LIST         261     A     
 LIST      PIK1CL   MX4    -L.TAG                                                          LIST         262     A     
 LIST               SX6    1RT                                                             LIST         263     A     
 LIST               AX3    P.LTAG                                                          LIST         264     A     
 LIST               SB5    PIK=PS+1                                                        LIST         265     A     
 LIST               SB5    B7-B5                                                           LIST         266     A     
 LIST               SB5    B5+PIK=PI                                                       LIST         267     A     
 LIST               BX3    -X4*X3      ISOLATE TAG                                         LIST         268     A     
 LIST               SA6    PIK=I+2                                                         LIST         269     A     
 LIST               EQ     PIK25                                                           LIST         270     A     
 LIST                                                                                      LIST         271     A     
 LIST                                                                                      LIST         272     A     
 LIST     **  =2    PROCESS *RJ*   - PLAIN RJ                                              LIST         273     A     
 LIST                                                                                      LIST         274     A     
 LIST      PIK1RJ   EQU    PIK1CL                                                          LIST         275     A     
 LIST                                                                                      LIST         276     A     
 LIST     **  =3    PROCESS *JP*   - INDEXED JUMP                                          LIST         277     A     
 LIST                                                                                      LIST         278     A     
 LIST      PIK1JP   SX6    X3+1R0                                                          LIST         279     A     
 LIST               SA6    PIK=I                                                           LIST         280     A     
 LIST               EQ     PIK1CL                                                          LIST         281     A     
 LIST                                                                                      LIST         282     A     
 LIST                                                                                      LIST         283     A     
 LIST     **  =4    PROCESS *EQ*   - UNCONDITIONAL JUMP                                    LIST         284     A     
 LIST                                                                                      LIST         285     A     
 LIST      PIK1EQ   EQU    PIK1CL                                                          LIST         286     A     
 LIST                                                                                      LIST         287     A     
 LIST      PIG=IG   EQU    LINEBUF                                                         LIST         288          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1643    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
          -FEAT126A 
 LIST                                                                                      LIST         289          I
          -FEAT126A 
 LIST                                                                                      LIST         290          I
          -FEAT126A 
 LIST     **        PIK1 - BREAK OUT THE *I*, *J* AND *K* DIGITS                           LIST         291     A     
 LIST                                                                                      LIST         292     A     
 LIST      PIK2     LX6    L.LGH                                                           LIST         293     A     
 LIST               SB5    X6          *GH*                                                LIST         294     A     
 LIST               SX0    7                                                               LIST         295     A     
 LIST     .1        ECHO   ,P1=(I,J,K),REG=(3,6,6),LOC=(PIK=I,,),SC=(9,3,3)                LIST         296     A     
 LIST               LX1    SC                                                              LIST         297     A     
 LIST               BX.REG X0*X1                                                           LIST         298     A     
 LIST               SX6    X.REG+1R0                                                       LIST         299     A     
 LIST               SA6    LOC  A6+B1  *P1*                                                LIST         300     A     
 LIST     .1        ENDD                                                                   LIST         301     A     
 LIST                                                                                      LIST         302     A     
 LIST      .76      IFEQ   .CPU,76                                                         LIST         303     A     
 LIST                                                                                      LIST         304     A     
 LIST               SX4    B5-B1                                                           LIST         305     A     
 LIST               NZ     X4,PIK22    IF NOT *01* OPCODE                                  LIST         306     A     
 LIST               SA3    PIK=I                                                           LIST         307     A     
 LIST               SX4    X3-1R4                                                          LIST         308     A     
 LIST               MI     X4,PIK22    IF I-FIELD LESS THAN *4*                            LIST         309     A     
 LIST               SX4    X3-1R6                                                          LIST         310     A     
 LIST               PL     X4,PIK22    IF I-FIELD GREATER THAN *5*                         LIST         311     A     
 LIST                                                                                      LIST         312     A     
 LIST     *         HERE IF R/W LCM                                                        LIST         313     A     
 LIST                                                                                      LIST         314     A     
 LIST               SA3    X3+=XPIK=LCM-1R4  FETCH INST SKELETON                           LIST         315     A     
 LIST               EQ     PIK23                                                           LIST         316     A     
 LIST                                                                                      LIST         317     A     
 LIST      PIK22    BSS    0                                                               LIST         318     A     
 LIST                                                                                      LIST         319     A     
 LIST      .76      ENDIF                                                                  LIST         320     A     
 LIST                                                                                      LIST         321     A     
 LIST               SA3    B5+PIK=PS   FETCH INST SKELETON                                 LIST         322     A     
 LIST      PIK23    PL     X3,PIK3     IF SHORT INSTRUCTION (15 BIT)                       LIST         323     A     
 LIST                                                                                      LIST         324     A     
 LIST     *         PRE-PROCESS AND CONVERT TAGS                                           LIST         325     A     
 LIST                                                                                      LIST         326     A     
 LIST               MX4    -L.TAG                                                          LIST         327     A     
 LIST               LX1    L.TAG-3                                                         LIST         328     A     
 LIST               BX3    -X4*X1      ISOLATE TAG                                         LIST         329     A     
 LIST      PIK25    SB3    B7          SAVE OP-CODE                                        LIST         330     A     
 LIST               RJ     KTX         CONVERT TAG TO EXTERNAL FORM                        LIST         331     A     
 LIST               SA6    PIK=TAG                                                         LIST         332     A     
 LIST               MX4    -L.LBIAS                                                        LIST         333     A     
 LIST               AX5    P.LBIAS                                                         LIST         334     A     
 LIST               BX3    -X4*X5                                                          LIST         335     A     
 LIST               ZR     X3,PIK3     IF NO OFFSET                                        LIST         336     A     
 LIST               EQ1    B3,PIK3     IF RJ WITH TRACEBACK IN BIAS FIELD                  LIST         337     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1644    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               RJ     KTY         CONVERT OFFSET                                      LIST         338     A     
 LIST               MI     X3,PIK27    IF NEGATIVE OFFSET                                  LIST         339     A     
 LIST               SX1    1R+                                                             LIST         340     A     
 LIST               BX6    X6+X1                                                           LIST         341     A     
 LIST               LX6    -CHAR                                                           LIST         342     A     
 LIST      PIK27    SA6    PIK=TAG+1                                                       LIST         343     A     
 LIST                                                                                      LIST         344     A     
 LIST                                                                                      LIST         345     A     
 LIST     **        PIK3 - DO ACTUAL INSTRUCTION SKELETION CONVERSION                      LIST         346     A     
 LIST                                                                                      LIST         347     A     
 LIST      PIK3     SA1    =1H                                                             LIST         348     A     
 LIST               SA3    PIK=I                                                           LIST         349     A     
 LIST                                                                                      LIST         350     A     
 LIST      .76      IFEQ   .CPU,76                                                         LIST         351     A     
 LIST                                                                                      LIST         352     A     
 LIST               SX4    B5-B1                                                           LIST         353     A     
 LIST               NZ     X4,PIK3B    IF NOT *01* OPCODE                                  LIST         354     A     
 LIST               SX4    X3-1R4                                                          LIST         355     A     
 LIST               MI     X4,PIK3B    IF I-FIELD LESS THAN *4*                            LIST         356     A     
 LIST               SX4    X3-1R6                                                          LIST         357     A     
 LIST               PL     X4,PIK3B    IF I-FIELD GREATER THAN *5*                         LIST         358     A     
 LIST                                                                                      LIST         359     A     
 LIST     *         HERE IF R/W LCM                                                        LIST         360     A     
 LIST                                                                                      LIST         361     A     
 LIST               SB5    PIK=PS+1R4                                                      LIST         362     A     
 LIST               SB5    -B5                                                             LIST         363     A     
 LIST               SB5    X3+B5                                                           LIST         364     A     
 LIST               SB5    B5+=XPIK=LCM                                                    LIST         365     A     
 LIST                                                                                      LIST         366     A     
 LIST      PIK3B    BSS    0                                                               LIST         367     A     
 LIST                                                                                      LIST         368     A     
 LIST      .76      ENDIF                                                                  LIST         369     A     
 LIST                                                                                      LIST         370     A     
 LIST               SX4    B5-3                                                            LIST         371     A     
 LIST               BX6    X1                                                              LIST         372     A     
 LIST               MX2    -2*CHAR                                                         LIST         373     A     
 LIST               SA6    PIG=IG+1                                                        LIST         374          I
          -FEAT126A 
 LIST               SA6    LINEBUF+1                                                       FEAT126A     402     A     
 LIST               NZ     X4,PIK3D    IF NO X-JUMP                                        LIST         375     A     
 LIST               SB5    PIK=PS+1R0                                                      LIST         376     A     
 LIST               SB5    -B5                                                             LIST         377     A     
 LIST               SB5    X3+B5                                                           LIST         378     A     
 LIST               SB5    B5+PIK=XJP                                                      LIST         379     A     
 LIST      PIK3D    SA3    B5+PIK=PS   FETCH SKELETON                                      LIST         380     A     
 LIST               BX4    -X2*X3      X4 = 2R<OP-MNEMONIC>                                LIST         381     A     
 LIST               LX3    59-58                                                           LIST         382     A     
 LIST               PL     X3,PIK3G    IF NO B-JUMP                                        LIST         383     A     
 LIST               SA1    PIK=J                                                           LIST         384     A     
 LIST               SX1    X1-1R0                                                          LIST         385     A     
 LIST               NZ     X1,PIK3G    IF *BJ* .NE. *B0*                                   LIST         386     A     
 LIST               SA4    B5-4+PIK=XJP                                                    LIST         387     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1645    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               BX4    -X2*X4                                                          LIST         388     A     
 LIST      PIK3G    LX4    4*6                                                             LIST         389     A     
 LIST               SA2    PIK=BL                                                          LIST         390     A     
 LIST               LX3    4+2                                                             LIST         391     A     
 LIST               IX6    X4+X2                                                           LIST         392     A     
 LIST               MX0    -4                                                              LIST         393     A     
 LIST               BX2    -X0*X3      ISOLATE FIRST DESCRIPTOR                            LIST         394     A     
 LIST               LX3    4                                                               LIST         395     A     
 LIST               SA2    PIK=I-1+X2                                                      LIST         396     A     
 LIST               LX2    4*6                                                             LIST         397     A     
 LIST               SB2    4*6                                                             LIST         398     A     
 LIST      PIK3L    LX6    6                                                               LIST         399     A     
 LIST               SB2    B2-6                                                            LIST         400     A     
 LIST               IX6    X6+X2                                                           LIST         401     A     
 LIST               NZ     B2,PIK3P    IF ASSEMBLY NOT FULL                                LIST         402     A     
 LIST               SA6    A6+B1                                                           LIST         403     A     
 LIST               SB2    10*6                                                            LIST         404     A     
 LIST               BX6    0                                                               LIST         405     A     
 LIST      PIK3P    BX1    -X0*X3                                                          LIST         406     A     
 LIST               SA2    X1+PIK=I-1                                                      LIST         407     A     
 LIST               LX3    4                                                               LIST         408     A     
 LIST               PL     X2,PIK3L    IF NO CONDITIONAL ITEM                              LIST         409     A     
 LIST               ZR     X1,PIK5     IF END OF SKELETON                                  LIST         410     A     
 LIST               NZ     X2,PIK4     IF 18-BIT *K* PORTION                               LIST         411     A     
 LIST               BX1    -X0*X3                                                          LIST         412     A     
 LIST               SA1    X1+PIK=I-1  FETCH CONDIT-REGISTER                               LIST         413     A     
 LIST               SX1    X1-1R0                                                          LIST         414     A     
 LIST               =X2    1RB                                                             LIST         415     A     
 LIST               NZ     X1,PIK3L    IF NOT *B0*                                         LIST         416     A     
 LIST               LX3    2*4         SKIP OVER REGISTER AND FOLLOWING SEP                LIST         417     A     
 LIST               EQ     PIK3P                                                           LIST         418     A     
 LIST                                                                                      LIST         419     A     
 LIST                                                                                      LIST         420     A     
 LIST     **        PIK4 - MERGE K-ADDRESS PORTION INTO ASSEMBLY                           LIST         421     A     
 LIST     *         ENTRY  (X6) = PARTIAL OUTPUT WORD (RIGHT JUST, ZERO FILL)              LIST         422     A     
 LIST     *                (B2) = 6 * (NUMBER OF EMPTY CHARS LEFT IN X6)                   LIST         423     A     
 LIST     *                (A6) _ LAST OUTPUT LINE STORE ADDRESS.                          LIST         424     A     
 LIST                                                                                      LIST         425     A     
 LIST      PIK4     SA2    PIK=TAG                                                         LIST         426     A     
 LIST               MX0    -CHAR                                                           LIST         427     A     
 LIST      PIK4A    LX2    CHAR                                                            LIST         428     A     
 LIST               SB0    0                                                               LIST         429     A     
 LIST               BX1    -X0*X2                                                          LIST         430     A     
 LIST      PIK4L    LX6    CHAR                                                            LIST         431     A     
 LIST               SB2    B2-CHAR                                                         LIST         432     A     
 LIST               LX2    CHAR                                                            LIST         433     A     
 LIST               IX6    X6+X1                                                           LIST         434     A     
 LIST               BX1    -X0*X2                                                          LIST         435     A     
 LIST               NZ     B2,PIK4P    IF ASSEMBLY NOT FULL                                LIST         436     A     
 LIST               SA6    A6+B1                                                           LIST         437     A     
 LIST               SB2    10*CHAR                                                         LIST         438     A     
 LIST               BX6    0                                                               LIST         439     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1646    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST      PIK4P    NZ     X1,PIK4L    IF MORE CHARACTERS                                  LIST         440     A     
 LIST               SA2    A2+B1                                                           LIST         441     A     
 LIST               NZ     X2,PIK4A    IF OFFSET EXISTS                                    LIST         442     A     
 LIST      PIK5     LX6    X6,B2       LEFT JUSTIFY ASSEMBLY                               LIST         443     A     
 LIST               SA6    A6+B1                                                           LIST         444     A     
 LIST               BX6    0                                                               LIST         445     A     
 LIST               SA6    A6+B1       INSURE AN END OF LINE                               LIST         446     A     
 LIST      PIK6     PLINE  PIG=IG                                                          LIST         447          I
          -FEAT126A 
 LIST      PIK6     SB3    LINEBUF-1                                                       FEAT126A     403     A     
 LIST               PLINE  LINEBUF,A6-B3                                                   FEAT126A     404     A     
 LIST               EQ     PIKX        EXIT..                                              LIST         448     A     
 LIST      PVF      SPACE  4,8                                                             LIST         449     A     
 LIST     **        PVF -  PACK VARIABLE FIELD FOR LISTING.                                LIST         450     A     
 LIST     *         ENTRY  X2 = (A2) = (FWA OF ITEMS TO BE PACKED)                         LIST         451     A     
 LIST     *                A6 _ FWA+1 TO WRITE FROM                                        LIST         452     A     
 LIST     *                X6 = 7R]OP-FIELD                                                LIST         453     A     
 LIST     *                ITEMS ARE IN 0L FORMAT, TERMINATED BY A ZERO WORD               LIST         454     A     
 LIST     *         USES   A1-A4,A6,A7  B2-B5,B6,B7                                        LIST         455     A     
 LIST                                                                                      LIST         456     A     
 LIST                                                                                      LIST         457     A     
 LIST      PVF      SUBR               ENTRY/EXIT...                                       LIST         458     A     
 LIST               SA1    LOP=O                                                           LIST         459          I
          -FEAT155G 
 LIST               SB2    3*CHAR                                                          LIST         460     A     
 LIST               MX4    -CHAR                                                           LIST         461     A     
 LIST               SB7    A6-B1                                                           LIST         462     A     
 LIST               PL     X1,EXIT.    IF NO OBJECT LISTING                                LIST         463          I
          -FEAT155G 
 LIST                                                                                      LIST         464          I
          -FEAT155G 
 LIST      PVF2     LX2    CHAR                                                            LIST         465     A     
 LIST               SB0    0                                                               LIST         466     A     
 LIST               BX1    -X4*X2                                                          LIST         467     A     
 LIST      PVF4     LX6    CHAR                                                            LIST         468     A     
 LIST               SB2    B2-CHAR                                                         LIST         469     A     
 LIST               LX2    CHAR                                                            LIST         470     A     
 LIST               IX6    X6+X1                                                           LIST         471     A     
 LIST               BX1    -X4*X2      ISOLATE NEXT CHARACTER                              LIST         472     A     
 LIST               NZ     B2,PVF6     IF ASSEMBLY NOT FULL                                LIST         473     A     
 LIST               SA6    A6+B1                                                           LIST         474     A     
 LIST               SB2    10*CHAR                                                         LIST         475     A     
 LIST               BX6    0                                                               LIST         476     A     
 LIST      PVF6     NZ     X1,PVF4     IF MORE CHARACTERS                                  LIST         477     A     
 LIST               SA2    A2+B1                                                           LIST         478     A     
 LIST               NZ     X2,PVF2     IF MORE ITEMS                                       LIST         479     A     
 LIST               LX6    X6,B2                                                           LIST         480     A     
 LIST               SA6    A6+B1                                                           LIST         481     A     
 LIST               BX6    0                                                               LIST         482     A     
 LIST               SA6    A6+B1                                                           LIST         483     A     
 LIST               PLINE  B7                                                              LIST         484          I
          -FEAT126A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1647    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               SB3    B7-B1                                                           FEAT126A     405     A     
 LIST               PLINE  B7,A6-B3                                                        FEAT126A     406     A     
 LIST               EQ     EXIT.                                                           LIST         485     A     
 LIST      WCL      EJECT                                                                  FEAT155G     526     A     
 LIST     **        WCL -  WRITE (PSEUDO) COMPASS LISTING.                                 FEAT155G     527     A     
 LIST     *         CALLED DURING *END* PROCESSING TO LIST EVERYTHING THAT GOES            FEAT155G     528     A     
 LIST     *         INTO THE BINARY THAT HASNT BEEN LISTED.                                FEAT155G     529     A     
 LIST                                                                                      FEAT155G     530     A     
 LIST                                                                                      FEAT155G     531     A     
 LIST      WCL      BSS    0           ENTRY...                                            FEAT155G     532     A     
 LIST      WCC      SPACE  4,8                                                             FEAT155G     533     A     
 LIST     **        WCC -  LIST CONSTANT ASSIGNMENTS.                                      FEAT155G     534     A     
 LIST                                                                                      FEAT155G     535     A     
 LIST                                                                                      FEAT155G     536     A     
 LIST               SA3    =XTS.CON                                                        FEAT155G     537     A     
 LIST               =B4    0           (B4) = ORDINAL IN CON TABLE                         FEAT155G     538     A     
 LIST               SA2    =XTS=CON                                                        FEAT155G     539     A     
 LIST               SA5    X3          FETCH FIRST CONSTANT                                FEAT155G     540     A     
 LIST               SA0    X2          A0 = LENGTH OF TABLE                                FEAT155G     541     A     
 LIST               SA3    =XCP.PW                                                         FEAT155G     542     A     
 LIST               SX7    8                                                               FEAT155G     543     A     
 LIST               ZR     X3,WCC1     IF NOT IN PW MODE                                   FEAT155G     544     A     
 LIST               SX7    6                                                               FEAT155G     545     A     
 LIST               SX6    1RB                                                             FEAT155G     546     A     
 LIST               LX6    9*CHAR                                                          FEAT155G     547     A     
 LIST               SA6    WCCA2A                                                          FEAT155G     548     A     
 LIST      WCC1     SA7    =XWVBD                                                          FEAT155G     549     A     
 LIST               ZR     X2,WCCX     IF NOT CONSTANTS                                    FEAT155G     550     A     
 LIST               PLINE  ,,1                                                             FEAT155G     551     A     
 LIST                                                                                      FEAT155G     552     A     
 LIST      WCC2     SX3    B4+C.CON                                                        FEAT155G     553     A     
 LIST               RJ     KIT         KONVERT TO EXTERNAL FORMAT                          FEAT155G     554     A     
 LIST               BX1    X6                                                              FEAT155G     555     A     
 LIST               RJ     SFN         SPACE FILL NAME.                                    FEAT155G     556     A     
 LIST               LX1    X5                                                              FEAT155G     557     A     
 LIST               SA6    WCCA1       +1 = TAG                                            FEAT155G     558     A     
 LIST               BX6    X5                                                              FEAT155G     559     A     
 LIST               SB5    A5+B1                                                           FEAT155G     560     A     
 LIST               SA6    WCCA3       +6 = DPC ECHO OF CON                                FEAT155G     561     A     
 LIST               RJ     =XWOD       CONVERT CONST TO DPC                                FEAT155G     562     A     
 LIST               SA5    B5                                                              FEAT155G     563     A     
 LIST               SA4    =XBA.CON                                                        FEAT155G     564     A     
 LIST               SA6    WCCA2       +3 = ABCDEFGHIJ                                     FEAT155G     565     A     
 LIST               SA7    A6+B1       +4 = KLMNOPQRST                                     FEAT155G     566     A     
 LIST               SX1    B4+X4                                                           FEAT155G     567     A     
 LIST               SB4    B4+B1                                                           FEAT155G     568     A     
 LIST               PIA    ,WCCA       CONVERT ADDRESS TO DPC                              FEAT155G     569     A     
 LIST               SA2    =XWVBD                                                          FEAT155G     570     A     
 LIST               PLINE  A6,X2                                                           FEAT155G     571     A     
 LIST               SB3    A0                                                              FEAT155G     572     A     
 LIST               LT     B4,B3,WCC2  IF MORE CONSTANTS                                   FEAT155G     573     A     
 LIST      WCCX     BSS    0           EXIT..                                              FEAT155G     574     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1648    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST      WCF      SPACE  4,8                                                             FEAT155G     575     A     
 LIST     **        WCF -  LIST *FORMATS*.                                                 FEAT155G     576     A     
 LIST                                                                                      FEAT155G     577     A     
 LIST                                                                                      FEAT155G     578     A     
 LIST               SA3    =XTP.FMT                                                        FEAT155G     579     A     
 LIST               SA2    =XTP=FMT                                                        FEAT155G     580     A     
 LIST               SA5    X3          FETCH 1ST FORMAT                                    FEAT155G     581     A     
 LIST               SA0    X2          A0 = LENGTH OF TABLE.                               FEAT155G     582     A     
 LIST               SB4    B0                                                              FEAT155G     583     A     
 LIST               ZR     X2,WCFX     IF NO FORMATS                                       FEAT155G     584     A     
 LIST               PLINE  ,,1                                                             FEAT155G     585     A     
 LIST                                                                                      FEAT155G     586     A     
 LIST     **        PROCESS 1ST WORD - STATEMENT NUMBER.                                   FEAT155G     587     A     
 LIST                                                                                      FEAT155G     588     A     
 LIST      WCF2     SA2    WCFC                                                            FEAT155G     589     A     
 LIST               MX0    L.STN                                                           FEAT155G     590     A     
 LIST               BX1    X0*X5                                                           FEAT155G     591     A     
 LIST               LX1    9*CHAR                                                          FEAT155G     592     A     
 LIST               BX6    X2+X1                                                           FEAT155G     593     A     
 LIST               SA6    WCCA1       +1 = TAG                                            FEAT155G     594     A     
 LIST                                                                                      FEAT155G     595     A     
 LIST     **        PROCESS CONTENTS OF FORMAT.                                            FEAT155G     596     A     
 LIST                                                                                      FEAT155G     597     A     
 LIST      WCF5     BX6    X5                                                              FEAT155G     598     A     
 LIST               SB5    A5                                                              FEAT155G     599     A     
 LIST               SA6    WCCA3       +6 = DPC ECHO OF CON                                FEAT155G     600     A     
 LIST               BX1    X5                                                              FEAT155G     601     A     
 LIST               RJ     =XWOD       CONVERT CONTENTS                                    FEAT155G     602     A     
 LIST               SA5    B5+B1                                                           FEAT155G     603     A     
 LIST               SA4    =XBA.FMT                                                        FEAT155G     604     A     
 LIST               SA6    WCCA2       +3 = ABCDEFGHIJ                                     FEAT155G     605     A     
 LIST               SA7    A6+B1       +4 = KLMNOPQRST                                     FEAT155G     606     A     
 LIST               SX1    B4+X4                                                           FEAT155G     607     A     
 LIST               PIA    ,WCCA       CONVERT ADDRESS TO DPC                              FEAT155G     608     A     
 LIST               SA2    =XWVBD                                                          FEAT155G     609     A     
 LIST               PLINE  A6,X2                                                           FEAT155G     610     A     
 LIST               SA1    =1H                                                             FEAT155G     611     A     
 LIST               MX0    8*CHAR                                                          FEAT155G     612     A     
 LIST               BX6    X1                                                              FEAT155G     613     A     
 LIST               BX3    -X0*X5                                                          FEAT155G     614     A     
 LIST               SA6    WCCA1       +1 = CLEAR TAG.                                     FEAT155G     615     A     
 LIST               SB4    B4+B1                                                           FEAT155G     616     A     
 LIST               SB3    A0                                                              FEAT155G     617     A     
 LIST               EQ     B4,B3,WCFX  IF NO MORE FORMATS                                  FEAT155G     618     A     
 LIST               NZ     X3,WCF5     IF MORE IN CURRENT FORMAT.                          FEAT155G     619     A     
 LIST               EQ     WCF2        CONTINUE                                            FEAT155G     620     A     
 LIST      WCFX     BSS    0                                                               FEAT155G     621     A     
 LIST      WCT      SPACE  4,8                                                             FEAT155G     622     A     
 LIST     **        WCT -  LIST OUT NUMBER OF TEMPORARIES.                                 FEAT155G     623     A     
 LIST                                                                                      FEAT155G     624     A     
 LIST                                                                                      FEAT155G     625     A     
 LIST               SA1    =XTEM.MAX                                                       FEAT155G     626     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1649    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               SA4    =XBA.TEM                                                        FEAT155G     627     A     
 LIST               SA5    =8L                                                             FEAT155G     628     A     
 LIST               SX0    7                                                               FEAT155G     629     A     
 LIST               SX3    X1-C.TEM                                                        FEAT155G     630     A     
 LIST               SA1    =H*BSSD*                                                        FEAT155G     631     A     
 LIST               BX6    X1                                                              FEAT155G     632     A     
 LIST               SA6    LINEBUF+2                                                       FEAT155G     633     A     
 LIST               ZR     X3,WCT2     IF NO TEMPS                                         FEAT155G     634     A     
 LIST                                                                                      FEAT155G     635     A     
 LIST               RJ     KTY         CONVERT NUMBER OF TEMPS                             FEAT155G     636     A     
 LIST               SA2    KITA-C.BASE/1S13+C.TEM/1S13                                     FEAT155G     637     A     
 LIST               SA6    LINEBUF+3                                                       FEAT155G     638     A     
 LIST               BX7    X2+X5                                                           FEAT155G     639     A     
 LIST               SX1    X4                                                              FEAT155G     640     A     
 LIST               LX7    -2*CHAR                                                         FEAT155G     641     A     
 LIST               =A7    LINEBUF+1                                                       FEAT155G     642     A     
 LIST               PIA                CONVERT OCTAL DIGITS TO DPC                         FEAT155G     643     A     
 LIST               =A6    A7-1                                                            FEAT155G     644     A     
 LIST               PLINE  A6,4,1                                                          FEAT155G     645     A     
 LIST               SA1    =XTEM.MAX                                                       FEAT155G     646     A     
 LIST               SA4    =XBA.TEM                                                        FCC1891        5     A     
 LIST               SX3    X1-C.TEM                                                        FEAT155G     647     A     
 LIST                                                                                      FEAT155G     648     A     
 LIST      WCT2     SA1    =XTG.VDIM                                                       FEAT155G     649     A     
 LIST               SX1    X1-C.VDIM                                                       FEAT155G     650     A     
 LIST               ZR     X1,WCTX     IF NO VAR-DIM CELLS                                 FEAT155G     651     A     
 LIST               IX4    X4+X3                                                           FEAT155G     652     A     
 LIST               BX3    X1                                                              FEAT155G     653     A     
 LIST               RJ     KTY         CONVERT NUMBER OF VAR-DIM CELLS                     FEAT155G     654     A     
 LIST               SA2    KITA-C.BASE/1S13+C.VDIM/1S13                                    FEAT155G     655     A     
 LIST               BX7    X2+X5                                                           FEAT155G     656     A     
 LIST               SA6    LINEBUF+3                                                       FEAT155G     657     A     
 LIST               LX7    -2*CHAR                                                         FEAT155G     658     A     
 LIST               BX1    X4                                                              FEAT155G     659     A     
 LIST               SA7    LINEBUF+1                                                       FEAT155G     660     A     
 LIST               PIA                CONVERT OCTAL DIGITS TO DPC                         FEAT155G     661     A     
 LIST               =A6    A7-1                                                            FEAT155G     662     A     
 LIST               PLINE  A6,4,1                                                          FEAT155G     663     A     
 LIST      WCTX     BSS    0                                                               FEAT155G     664     A     
 LIST      WCA      SPACE  4,8                                                             FEAT155G     665     A     
 LIST     **        WCA -  LIST AP-LISTS ACTUALLY COMPILED.                                FEAT155G     666     A     
 LIST                                                                                      FEAT155G     667     A     
 LIST                                                                                      FEAT155G     668     A     
 LIST               SA1    =XTP=APL                                                        FEAT155G     669     A     
 LIST               SA3    =XBA.APL                                                        FEAT155G     670     A     
 LIST               ZR     X1,WCAX     IF NO AP-LISTS                                      FEAT155G     671     A     
 LIST               SA0    X3                                                              FEAT155G     672     A     
 LIST               PLINE  ,,1                                                             FEAT155G     673     A     
 LIST                                                                                      FEAT155G     674     A     
 LIST               SA2    =XTG.APL                                                        FEAT155G     675     A     
 LIST               SHRINK =XTT=SCR                                                        FEAT155G     676     A     
 LIST               ALLOC  =XTT.SCR,X2-C.PRO+1                                             FEAT155G     677     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1650    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               SA3    =XTA.PRO                                                        FEAT155G     678     A     
 LIST               =B6    0                                                               FEAT155G     679     A     
 LIST               SB2    X2                                                              FEAT155G     680     A     
 LIST               =A4    X3-1        INITIALIZE TAG FETCH REGISTER                       FEAT155G     681     A     
 LIST               SA2    =XTP.APL                                                        FEAT155G     682     A     
 LIST               SB3    60-18                                                           FEAT155G     683     A     
 LIST               SA5    X2                                                              FEAT155G     684     A     
 LIST                                                                                      FEAT155G     685     A     
 LIST      WCA22    =A4    A4+1                                                            FEAT155G     686     A     
 LIST               LE     B2,WCA24    IF NO MORE TAGS                                     FEAT155G     687     A     
 LIST               =B2    B2-1                                                            FEAT155G     688     A     
 LIST               PL     X4,WCA22    IF NOT AN AP-TAG                                    FEAT155G     689     A     
 LIST               LX0    X4,B1                                                           FEAT155G     690     A     
 LIST               PL     X0,WCA22    IF NOT AN AP-TAG                                    FEAT155G     691     A     
 LIST               LX6    X4,B3                                                           FEAT155G     692     A     
 LIST               SA6    X1+B6                                                           FEAT155G     693     A     
 LIST               =B6    B6+1        COUNT UP AP-TAGS                                    FEAT155G     694     A     
 LIST               EQ     WCA22       LOOP..                                              FEAT155G     695     A     
 LIST                                                                                      FEAT155G     696     A     
 LIST      WCA24    SA3    =XTP=APL                                                        FEAT155G     697     A     
 LIST               LX3    -18                                                             FEAT155G     698     A     
 LIST               BX7    X3                                                              FEAT155G     699     A     
 LIST               =X6    B6+1                                                            FEAT155G     700     A     
 LIST               SA7    X1+B6                                                           FEAT155G     701     A     
 LIST               SHRINK =XTT=SCR,X6                                                     FEAT155G     702     A     
 LIST               RJ     =XSRT       SORT AP-TAGS IN ADDRESS ORDER                       FEAT155G     703     A     
 LIST                                                                                      FEAT155G     704     A     
 LIST      WCA3     SA1    =XTT.SCR                                                        FEAT155G     705     A     
 LIST               SA2    =XTT=SCR                                                        FEAT155G     706     A     
 LIST               MX0    -1                                                              FEAT155G     707     A     
 LIST               SA3    X1          FETCH AP-TAG                                        FEAT155G     708     A     
 LIST               =X6    X1+1                                                            FEAT155G     709     A     
 LIST               LX3    18                                                              FEAT155G     710     A     
 LIST               IX7    X2+X0       DECREMENT LENGTH                                    FEAT155G     711     A     
 LIST               SA6    A1                                                              FEAT155G     712     A     
 LIST               SB2    X3          ADDRESS OF THIS TAG                                 FEAT155G     713     A     
 LIST               SA7    A2                                                              FEAT155G     714     A     
 LIST               LX3    18                                                              FEAT155G     715     A     
 LIST               ZR     X7,WCAX     IF NO MORE AP-TAGS                                  FEAT155G     716     A     
 LIST               =A4    A3+1                                                            FEAT155G     717     A     
 LIST               LX4    18                                                              FEAT155G     718     A     
 LIST               SB7    X4          ADDRESS OF NEXT TAG                                 FEAT155G     719     A     
 LIST               SB4    B7-B2       LENGTH OF NEXT APLIST                               FEAT155G     720     A     
 LIST               SX3    X3-4S15                                                         FEAT155G     721     A     
 LIST               RJ     KTX         KONVERT TAG TO XTERNAL FORM                         FEAT155G     722     A     
 LIST               BX1    X6                                                              FEAT155G     723     A     
 LIST               RJ     SFN         SPACE FILL NAME (OF TAG)                            FEAT155G     724     A     
 LIST               SA2    =8LBSS    0                                                     FEAT155G     725     A     
 LIST               SA6    LINEBUF+1                                                       FEAT155G     726     A     
 LIST               NZ     B4,WCA4     IF NEXT TAG NOT AT SAME PLACE                       FEAT155G     727     A     
 LIST               BX7    X2                                                              FEAT155G     728     A     
 LIST               SX1    A0                                                              FEAT155G     729     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1651    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               =A7    A6+1                                                            FEAT155G     730     A     
 LIST               PIA                CONVERT ADDRESS TO DPC                              FEAT155G     731     A     
 LIST               =A6    A6-1                                                            FEAT155G     732     A     
 LIST               SB3    LINEBUF-1                                                       FEAT155G     733     A     
 LIST               PLINE  A6,A7-B3    * L.TAG  BSS  0*                                    FEAT155G     734     A     
 LIST               EQ     WCA3                                                            FEAT155G     735     A     
 LIST                                                                                      FEAT155G     736     A     
 LIST      WCA4     MX0    -L.ABIAS                                                        FEAT155G     737     A     
 LIST               BX1    X5                                                              FEAT155G     738     A     
 LIST               NZ     X5,WCA42    IF NOT AN END-OF-AP-LIST ENTRY                      FEAT155G     739     A     
 LIST               SX1    A0                                                              FEAT155G     740     A     
 LIST               PIA                CONVERT ADDRESS TO DPC                              FEAT155G     741     A     
 LIST               SX1    2R-0-2R0                                                        FEAT155G     742     A     
 LIST               SX2    2R0                                                             FEAT155G     743     A     
 LIST               BX3    X5*X1                                                           FEAT155G     744     A     
 LIST               IX7    X2+X3                                                           FEAT155G     745     A     
 LIST               SA6    LINEBUF                                                         FEAT155G     746     A     
 LIST               LX7    -2*CHAR                                                         FEAT155G     747     A     
 LIST               SX1    A6                                                              FEAT155G     748     A     
 LIST               SA7    LINEBUF+2                                                       FEAT155G     749     A     
 LIST               =A5    A5+1                                                            FEAT155G     750     A     
 LIST               PLINE  X1,3                                                            FEAT155G     751     A     
 LIST               =B4    B4-1                                                            FEAT155G     752     A     
 LIST               =A0    A0+1                                                            FEAT155G     753     A     
 LIST               EQ     WCA9                                                            FEAT155G     754     A     
 LIST                                                                                      FEAT155G     755     A     
 LIST      WCA42    AX1    P.ABIAS                                                         FEAT155G     756     A     
 LIST               BX7    -X0*X1      ISOLATE BIAS                                        FEAT155G     757     A     
 LIST               MX0    -L.ATAG                                                         FEAT155G     758     A     
 LIST               AX1    P.ATAG-P.ABIAS                                                  FEAT155G     759     A     
 LIST               BX3    -X0*X1      ISOLATE TAG                                         FEAT155G     760     A     
 LIST               RJ     KTX         CONVERT TAG                                         FEAT155G     761     A     
 LIST               SA6    WCAB                                                            FEAT155G     762     A     
 LIST               BX3    X7                                                              FEAT155G     763     A     
 LIST               RJ     KTY         CONVERT BIAS                                        FEAT155G     764     A     
 LIST               MI     X3,WCA5     IF BIAS IS NEGATIVE                                 FEAT155G     765     A     
 LIST               SX1    1R+                                                             FEAT155G     766     A     
 LIST               BX6    X6+X1                                                           FEAT155G     767     A     
 LIST               LX6    -CHAR                                                           FEAT155G     768     A     
 LIST      WCA5     SX1    X5                                                              FEAT155G     769     A     
 LIST               BX7    0                                                               FEAT155G     770     A     
 LIST               SA6    A6+B1                                                           FEAT155G     771     A     
 LIST               SA7    A6+B1                                                           FEAT155G     772     A     
 LIST               ZR     X1,WCA8     IF NORMAL (NOT I/O) ITEM                            FEAT155G     773     A     
 LIST               BX1    X5                                                              FEAT155G     774     A     
 LIST               SX7    1R,                                                             FEAT155G     775     A     
 LIST               LX1    P.IOLCM-P.ALCM   ISOLATE LCM BIT                                FEAT155G     776     A     
 LIST               LX7    -CHAR                                                           FEAT155G     777     A     
 LIST               SA7    A7                                                              FEAT155G     778     A     
 LIST               SX6    1R0                                                             FEAT155G     779     A     
 LIST               PL     X1,WCA6     IF NO LCM BIT                                       FEAT155G     780     A     
 LIST               SX6    1R1                                                             FEAT155G     781     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1652    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST      WCA6     LX6    -CHAR                                                           FEAT155G     782     A     
 LIST               SA6    A7+B1       PUT A LCM INDICATOR IN   WCAB+3                     FEAT155G     783     A     
 LIST            BX1    X5                                                                 FEAT155G     784     A     
 LIST               MX0    -L.ATYP                                                         FEAT155G     785     A     
 LIST               AX1    P.ATYP                                                          FEAT155G     786     A     
 LIST               BX3    -X0*X1      ISOLATE ATYP                                        FEAT155G     787     A     
 LIST               RJ     KTX         CONVERT ATYP                                        FEAT155G     788     A     
 LIST               SA6    WCAC        PUT ATYP IN    WCAB+5                               FEAT155G     789     A     
 LIST               MX0    -L.ASIZ                                                         FEAT155G     790     A     
 LIST               BX3    -X0*X5                                                          FEAT155G     791     A     
 LIST               RJ     KTX         CONVERT SIZE                                        FEAT155G     792     A     
 LIST               SA6    WCAD                                                            FEAT155G     793     A     
 LIST      WCA8     SX1    A0                                                              FEAT155G     794     A     
 LIST               SA0    A0+B1       ADVANCE ADDRESS                                     FEAT155G     795     A     
 LIST               PIA                CONVERT ADDRESS TO DPC                              FEAT155G     796     A     
 LIST               SA2    LINEBUF+1                                                       FEAT155G     797     A     
 LIST               SA3    =7RAPL                                                          FEAT155G     798     A     
 LIST               SB4    B4-B1                                                           FEAT155G     799     A     
 LIST               =A6    A2-1                                                            FEAT155G     800     A     
 LIST               BX6    X2                                                              FEAT155G     801     A     
 LIST               SA6    A2                                                              FEAT155G     802     A     
 LIST               BX6    X3                                                              FEAT155G     803     A     
 LIST               SA2    WCAB                                                            FEAT155G     804     A     
 LIST               SA5    A5+B1                                                           FEAT155G     805     A     
 LIST               RJ     PVF         PACK VARIABLE FIELD                                 FEAT155G     806     A     
 LIST                                                                                      FEAT155G     807     A     
 LIST      WCA9     SA2    =1H                                                             FEAT155G     808     A     
 LIST               BX7    X2                                                              FEAT155G     809     A     
 LIST               SA7    LINEBUF+1                                                       FEAT155G     810     A     
 LIST               NZ     B4,WCA4     IF MORE ITEMS IN THIS AP-LIST                       FEAT155G     811     A     
 LIST               EQ     WCA3                                                            FEAT155G     812     A     
 LIST      WCAX     BSS    0           EXIT..                                              FEAT155G     813     A     
 LIST      WCB      SPACE  4,8                                                             FEAT155G     814     A     
 LIST     **        WCB -  LIST I/O BUFFER ASSIGNMENTS.                                    FEAT155G     815     A     
 LIST                                                                                      FEAT155G     816     A     
 LIST                                                                                      FEAT155G     817     A     
 LIST               SA1    =XMOD                                                           FEAT155G     818     A     
 LIST               SA2    =XNARGS                                                         FEAT155G     819     A     
 LIST               IFBIT  X1,-PPRO,WCBX                                                   FEAT155G     820     A     
 LIST               ZR     X2,WCBX     IF NO BUFFERS                                       FEAT155G     821     A     
 LIST               SB4    X2                                                              FEAT155G     822     A     
 LIST               PLINE  ,,1                                                             FEAT155G     823     A     
 LIST               SA1    =XTA.PRO                                                        FEAT155G     824     A     
 LIST               SA3    =XT.FILE                                                        FEAT155G     825     A     
 LIST               SA0    X1                                                              FEAT155G     826     A     
 LIST               SA5    X3                                                              FEAT155G     827     A     
 LIST                                                                                      FEAT155G     828     A     
 LIST      WCB2     SA4    A5+B1                                                           FEAT155G     829     A     
 LIST               SB4    B4-B1                                                           FEAT155G     830     A     
 LIST               MX0    LG.VAR*CHAR                                                     FEAT155G     831     A     
 LIST               BX1    X0*X5                                                           FEAT155G     832     A     
 LIST               SA5    A4+2        A5 = A5+3                                           FEAT155G     833     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1653    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               MI     X4,WCB6     IF EQUIVALENCED FILE, AVOID..                       FEAT155G     834     A     
 LIST               RJ     SFN                                                             FEAT155G     835     A     
 LIST               SA6    WCBC3       FILE NAME                                           FEAT155G     836     A     
 LIST               SX1    X4                                                              FEAT155G     837     A     
 LIST               PIA                                                                    FEAT155G     838     A     
 LIST               SB2    B7-9*CHAR                                                       FEAT155G     839     A     
 LIST               AX6    B2                                                              FEAT155G     840     A     
 LIST               SA6    WCBC2       LEFT JUSTIFIED BUFFER LENGTH                        FEAT155G     841     A     
 LIST               AX4    2*18                                                            FEAT155G     842     A     
 LIST               SX3    X4                                                              FEAT155G     843     A     
 LIST               RJ     KTX                                                             FEAT155G     844     A     
 LIST               BX1    X6                                                              FEAT155G     845     A     
 LIST               RJ     SFN                                                             FEAT155G     846     A     
 LIST               SA6    WCBC1       L-TAG                                               FEAT155G     847     A     
 LIST               SB7    X4-C.PRO                                                        FEAT155G     848     A     
 LIST               SA2    B7+A0                                                           FEAT155G     849     A     
 LIST               SX1    X2                                                              FEAT155G     850     A     
 LIST               PIA    ,WCBC                                                           FEAT155G     851     A     
 LIST               PLINE A6,6                                                             FEAT155G     852     A     
 LIST                                                                                      FEAT155G     853     A     
 LIST      WCB6     NZ     B4,WCB2     IF MORE FILES                                       FEAT155G     854     A     
 LIST      WCBX     BSS    0           EXIT..                                              FEAT155G     855     A     
 LIST      WCE      SPACE  4,8                                                             FEAT155G     856     A     
 LIST     **        WCE    - LIST END LINE.                                                FEAT155G     857     A     
 LIST                                                                                      FEAT155G     858     A     
 LIST                                                                                      FEAT155G     859     A     
 LIST               SA1    =XLOCAL                                                         FEAT155G     860     A     
 LIST               SA2    =XCOMSIZ                                                        FEAT155G     861     A     
 LIST               IX1    X1+X2                                                           FEAT155G     862     A     
 LIST               PIA    ,=XLPS.PL                                                       FEAT155G     863     A     
 LIST               SA6    LINEBUF                                                         FEAT155G     864     A     
 LIST               SA3    LOP=O                                                           FEAT155G     865     A     
 LIST               PL     X3,WCE1     IF NO OBJECT LISTING                                FEAT155G     866     A     
 LIST               SA2    CO.ER                                                           FEAT155G     867     A     
 LIST               ZR     X2,WCE1     IF ER=0                                             FEAT155G     868     A     
 LIST               SA1    =10L LEN.                                                       FEAT155G     869     A     
 LIST               BX6    X1                                                              FEAT155G     870     A     
 LIST               SB2    A6                                                              FEAT155G     871     A     
 LIST               SA6    A6+B1                                                           FEAT155G     872     A     
 LIST               SA1    =7RBSS      PUT A  * LEN.  BSS   0 *  BEFORE  * END *           FEAT155G     873     A     
 LIST               LX1    CHAR                                                            FEAT155G     874     A     
 LIST               SA3    =1R0                                                            FEAT155G     875     A     
 LIST               IX7    X1+X3                                                           FEAT155G     876     A     
 LIST               LX7    2*CHAR                                                          FEAT155G     877     A     
 LIST               SA7    A6+B1                                                           FEAT155G     878     A     
 LIST               BX6    0                                                               FEAT155G     879     A     
 LIST               SA6    A7+B1                                                           FEAT155G     880     A     
 LIST               PLINE  B2,3        B2 = FWA OF LINE TO PRINT                           FEAT155G     881     A     
 LIST               SA3    LPS.PL                                                          FEAT155G     882     A     
 LIST               BX6    X3                                                              FEAT155G     883     A     
 LIST               SA6    LINEBUF                                                         FEAT155G     884     A     
 LIST      WCE1     SA3    MOD                                                             FEAT155G     885     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1654    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               SA2    =XIDENT                                                         FEAT155G     886     A     
 LIST               SA1    =7REND                                                          FEAT155G     887     A     
 LIST               SBIT   X3,PPRO                                                         FEAT155G     888     A     
 LIST               SA4    =1H                                                             FEAT155G     889     A     
 LIST               AX3    -0                                                              FEAT155G     890     A     
 LIST               BX6    X4                                                              FEAT155G     891     A     
 LIST               BX2    X2*X3                                                           FEAT155G     892     A     
 LIST               SA6    A6+B1                                                           FEAT155G     893     A     
 LIST               BX6    X1                                                              FEAT155G     894     A     
 LIST               RJ     PVF         PRINT *END* LINE                                    FEAT155G     895     A     
 LIST      WCS      SPACE  4,8                                                             FEAT155G     896     A     
 LIST     **        WCS - LIST BLOCK STATISTICS.                                           FEAT155G     897     A     
 LIST                                                                                      FEAT155G     898     A     
 LIST                                                                                      FEAT155G     899     A     
 LIST               SA1    =XFAILSFT                                                       FEAT155G     900     A     
 LIST               NZ     X1,EXIT.    IF TABLES ARE CRUMBLES UP, BLOCKS ARE WRONG         FEAT155G     901     A     
 LIST                                                                                      FEAT155G     902     A     
 LIST     **        PREPARE STATISTICS                                                     FEAT155G     903     A     
 LIST                                                                                      FEAT155G     904     A     
 LIST               SA3    =XLCNT                                                          FEAT155G     905     A     
 LIST               SA4    =XCO.PS     PAGE SIZE                                           FEAT155G     906          I
          -FEAT155EA
 LIST               SA4    =XCP.PS     PAGE;SIZE                                           FEAT155EA     42          I
          -FCCA422
 LIST               SA4     =XLCP.PS                                                       FCCA422       56     A     
 LIST               IX3    X3-X4                                                           FEAT155G     907     A     
 LIST               SB2    X3+12                                                           FEAT155G     908     A     
 LIST               LE     B2,WCS1     IF SUFFICIENT ROOM LEFT ON THIS PAGE                FEAT155G     909     A     
 LIST               SX7    X4+B1                                                           FEAT155G     910     A     
 LIST               SA7    A3                                                              FEAT155G     911     A     
 LIST      WCS1     BX6    X6-X6                                                           FEAT155G     912     A     
 LIST               SA4    =XCP.PW                                                         FEAT155G     913     A     
 LIST               SA0    LINEBUF+2                                                       FEAT155G     914     A     
 LIST               SA6    LINEBUF+5   STORE ZERO BYTE TERMINATOR                          FEAT155G     915     A     
 LIST               SX1    WCSA                                                            FEAT155G     916     A     
 LIST               SX2    3                                                               FEAT155G     917     A     
 LIST               NZ     X4,WCS2     IF IN PW MODE                                       FEAT155G     918     A     
 LIST               SA3    =10H                                                            FEAT155G     919     A     
 LIST               SA2    X1          SHIFT TABLE HEADER FOR PW=0 FORMAT                  FEAT155G     920     A     
 LIST               SA4    X1+B1                                                           FEAT155G     921     A     
 LIST               SA0    LINEBUF                                                         FEAT155G     922     A     
 LIST               BX7    X3                                                              FEAT155G     923     A     
 LIST               SA5    A4+B1                                                           FEAT155G     924     A     
 LIST               SA7    A0                                                              FEAT155G     925     A     
 LIST               BX6    X2                                                              FEAT155G     926     A     
 LIST               SA7    A7+B1                                                           FEAT155G     927     A     
 LIST               SX1    A0                                                              FEAT155G     928     A     
 LIST               SA6    A7+B1                                                           FEAT155G     929     A     
 LIST               BX7    X4                                                              FEAT155G     930     A     
 LIST               BX6    X5                                                              FEAT155G     931     A     
 LIST               SX2    6                                                               FEAT155G     932     A     
 LIST               SA7    A6+B1                                                           FEAT155G     933     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1655    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST               SA6    A7+B1                                                           FEAT155G     934     A     
 LIST      WCS2     PLINE  X1,X2,2     PRINT TABLE HEADER                                  FEAT155G     935     A     
 LIST                                                                                      FEAT155G     936     A     
 LIST               SB4    =XN.BLK                                                         FEAT155G     937     A     
 LIST               =X6                                                                    FEAT155G     938     A     
 LIST               SB4    -B4                                                             FEAT155G     939     A     
 LIST      WCS3     SA5    =XBA.PRO+8+B4 FORMAT AND PRINT TABLE                            FEAT155G     940     A     
 LIST               BX1    X5                                                              FEAT155G     941     A     
 LIST               PIA    ,LINEBUF+3  CONVERT BLOCK ADDRESS TO DPC                        FEAT155G     942     A     
 LIST               SA4    A5+B1                                                           FEAT155G     943     A     
 LIST               IX1    X4-X5                                                           FEAT155G     944     A     
 LIST               PIA    ,LINEBUF+4  CONVERT BLOCK LENGTH TO DPC                         FEAT155G     945     A     
 LIST               SA2    WCSB+8+B4                                                       FEAT155G     946     A     
 LIST               BX7    X2                                                              FEAT155G     947     A     
 LIST               SA7    LINEBUF+2                                                       FEAT155G     948     A     
 LIST               SX2    A0-B1                                                           FEAT155G     949     A     
 LIST               SX3    LINEBUF+5                                                       FEAT155G     950     A     
 LIST               SB4    B4+B1                                                           FEAT155G     951     A     
 LIST               IX2    X3-X2                                                           FEAT155G     952     A     
 LIST               PLINE  A0,X2                                                           FEAT155G     953     A     
 LIST               MI     B4,WCS3     IF MORE BLOCKS                                      FEAT155G     954     A     
 LIST               EQ     =XWCLX      EXIT..                                              FEAT155G     955     A     
 LIST                                                                                      FEAT155G     956     A     
 LIST                                                                                      FEAT155G     957     A     
 LIST      WCCA     DATA   10H 123456        ADDRESS                                       FEAT155G     958     A     
 LIST      WCCA1    DATA   10H C.01234       TAG                                           FEAT155G     959     A     
 LIST               DIS    1,CON                                                           FEAT155G     960     A     
 LIST      WCCA2    DATA   10H1234567890     VALUE, UPPER HALF                             FEAT155G     961     A     
 LIST               DATA   10H1234567890     VALUE, LOWER HALF                             FEAT155G     962     A     
 LIST      WCCA2A   DATA   10HB                                                            FEAT155G     963     A     
 LIST      WCCA3    DATA   10HABCDEFGHIJ     VALUE, EXPRESSED IN DPC                       FEAT155G     964     A     
 LIST               DATA   0                                                               FEAT155G     965     A     
 LIST                                                                                      FEAT155G     966     A     
 LIST      WCFC     VFD    CHAR/1R.,L.STN/0,24/4R                                          FEAT155G     967     A     
 LIST                                                                                      FEAT155G     968     A     
 LIST      WCAB     DATA   0LTAG                                                           FEAT155G     969     A     
 LIST               DATA   0LBIAS                                                          FEAT155G     970     A     
 LIST               DATA   1L,                                                             FEAT155G     971     A     
 LIST               DATA   1L0         LCM BIT.... 0 MEANS NO LCM                          FEAT155G     972     A     
 LIST               DATA   1L,                                                             FEAT155G     973     A     
 LIST      WCAC     DATA   1L0         TYP                                                 FEAT155G     974     A     
 LIST               DATA   1L,                                                             FEAT155G     975     A     
 LIST      WCAD     DATA   1L0         SIZ                                                 FEAT155G     976     A     
 LIST               DATA   0           END OF LIST                                         FEAT155G     977     A     
 LIST                                                                                      FEAT155G     978     A     
 LIST      WCBC     DIS    1, 123456         ADDRESS                                       FEAT155G     979     A     
 LIST      WCBC1    DIS    1, L.N            L-TAG                                         FEAT155G     980     A     
 LIST               DIS    1,BSS                                                           FEAT155G     981     A     
 LIST      WCBC2    DIS    1,NNNNB           LENGTH                                        FEAT155G     982     A     
 LIST      WCBC3    DIS    1, LFN                                                          FEAT155G     983     A     
 LIST               CON    0                                                               FEAT155G     984     A     
 LIST                                                                                      FEAT155G     985     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1656    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LIST    
  
 LIST      WCSA     DATA   28C  BLOCK    ADDRESS    LENGTH                                 FEAT155G     986     A     
 LIST      WCSB     DIS    1,  CODE    /                                                   FEAT155G     987     A     
 LIST               DIS    1,  LITERAL /                                                   FEAT155G     988     A     
 LIST               DIS    1,  FORMAT  /                                                   FEAT155G     989     A     
 LIST               DIS    1,  TEMP    /                                                   FEAT155G     990     A     
 LIST               DIS    1,  ARG     /                                                   FEAT155G     991     A     
 LIST               DIS    1,  NAMELIST/                                                   FEAT155G     992     A     
 LIST               DIS    1,  VARIABLE/                                                   FEAT155G     993     A     
 LIST               DIS    1,  BUFFER  /                                                   FEAT155G     994     A     
 LIST               LIST   D                                                               LIST         486     A     
 LIST               END                                                                    LIST         487          I
          -FEAT155G 
 LIST      FIN      END    FTN10       END OF (1,0) OVERLAY WHEN OBJECT LIST IS ON         FEAT155G     995     A     
 LIST     *WEOR,0                                                                          FEAT155G     996          I
          -FCCA589
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - LIST    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          LIST                       487       468
          FEAT126A                     6         6
          FEAT155G                   560       558
          FEAT155EA                    1         0
          FCC1163                     11        11
          FCC1891                      1         1
          FCCA422                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN WEOR5*  
  
 WEOR5*   *DECK WEOR5*                                                                     FCCA589       25     A     
 WEOR5*   *WEOR 0                                                                          FCCA589       26     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - WEOR5*  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FCCA589                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *BATCH* 
  
 *BATCH*  *DECK *BATCH*                                                                    *BATCH*        1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *BATCH* 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          *BATCH*                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO   *DECK     LSTPRO                                                                 LSTPRO         1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1657    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO             IDENT  LSTPRO                                                          LSTPRO         2     A     
 LSTPRO    LSTPRO   TITLE  LSTPRO -    BATCH CONTROL AND SYMBOL TABLE SEARCH               LSTPRO         3     A     
 LSTPRO   *CALL     SSTCALL                                                                LSTPRO         4     A     
 LSTPRO             SPACE  3                                                               LSTPRO         5     A     
 LSTPRO    B=LSTPR  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             LSTPRO         6     A     
 LSTPRO                                                                                    LSTPRO         7     A     
 LSTPRO                                                                                    LSTPRO         8     A     
 LSTPRO    O.SYMTAB EQU    12B               FWA OF THE SYMBOL TABLE                       LSTPRO         9     A     
 LSTPRO    L.SYMTAB EQU    13B               LWA+1 OF THE SYMBOL TABLE                     LSTPRO        10     A     
 LSTPRO    DUKE     =      RA.SSW+37B        CURRENT STATEMENT LINE NR (BINARY)            LSTPRO        11     A     
 LSTPRO             SPACE  3                                                               LSTPRO        12     A     
 LSTPRO             ENTRY  LABEL                                                           LSTPRO        13     A     
 LSTPRO             ENTRY  SYMBOL                                                          LSTPRO        14     A     
 LSTPRO             EXT    F.CMPS,F.IN,F.LGO,F.OPT,F.OUT,F.RLST,F.RMAP                     LSTPRO        15          I
          -FEAT155E 
 LSTPRO             EXT    CO.PD,CO.PS                                                     FEAT155E     334          I
          -FEAT155EA
 LSTPRO             EXT    CP.PD,CP.PS                                                     FEAT155EA     43          I
          -FCCA422
 LSTPRO             EXT    CP.PD,LCP.PS,PDFLAG                                             FCCA422       57     A     
 LSTPRO             EXT    RS.PD                                                           FCCA593       62     A     
 LSTPRO             EXT    FV.LGO,F.COMPS,F.IN,F.LGO,F.OPT                                 FEAT155E     335     A     
 LSTPRO             EXT    F.OUT,F.RLST,F.RMAP                                             FEAT155E     336     A     
 LSTPRO             EXT    GT1,GT2,GT3,GT4                                                 LSTPRO        16          I
          -FEAT155H 
 LSTPRO             EXT    L.TITL,O.TITL,TL.DATE,TL.PAGE,TL.TIME                           LSTPRO        17     A     
 LSTPRO             EXT    RSELECT,DFLAG,UFLAG                                             LSTPRO        18          I
          -FEAT155H 
 LSTPRO             EXT    DFLAG,MLOP=R,UFLAG                                              FEAT155H     143     A     
 LSTPRO    RCBUFS   TITLE  RLIST/LGO AND COMPS FILE BUFFERS OR HOLDING BUFFERS             RSM2763X       8     A     
 LSTPRO   *CALL     IOBUFL                                                                 RSM2763X       9     A     
 LSTPRO                                                                                    RSM2763X      10     A     
 LSTPRO    #RM      IFEQ   CP#RM,0                                                         RSM2763X      11     A     
 LSTPRO                                                                                    RSM2763X      12     A     
 LSTPRO    O.RLST   BSS    LC.RLST                                                         RSM2763X      13     A     
 LSTPRO    O.CMPS   BSS    LC.CMPS                                                         RSM2763X      14     A     
 LSTPRO                                                                                    RSM2763X      15     A     
 LSTPRO    #RM      ELSE                                                                   RSM2763X      16     A     
 LSTPRO                                                                                    RSM2763X      17     A     
 LSTPRO    O.CMPS   BSS    0                                                               RSM2763X      18     A     
 LSTPRO    O.RLST   BSS    LH.RLST                                                         RSM2763X      19     A     
 LSTPRO                                                                                    RSM2763X      20     A     
 LSTPRO    #RM      ENDIF                                                                  RSM2763X      21     A     
 LSTPRO                                                                                    RSM2763X      22     A     
 LSTPRO    O.LGO    EQU    O.RLST                                                          RSM2763X      23     A     
 LSTPRO    SYMBOL   TITLE  SYMBOL TABLE SEARCH ROUTINES                                    LSTPRO        19     A     
 LSTPRO   ***                                                                              LSTPRO        20     A     
 LSTPRO   *         SYMBOL AND LABEL ARE THE SEARCH-AND-ENTER ROUTINES FOR THE             LSTPRO        21     A     
 LSTPRO   *         SYMBOL TABLE. ENTRY IS MADE WITH THE SYMBOL (LABEL) FOR WHICH          LSTPRO        22     A     
 LSTPRO   *         THE TABLE IS TO BE SEARCHED IN X1.  THIS SYMBOL SHOULD BE              LSTPRO        23     A     
 LSTPRO   *         LEFT JUSTIFIED WITH BLANK FILL IN BITS 00-47.                          LSTPRO        24     A     
 LSTPRO   *                                         B7+1 AT ENTRY CONTAINS THE             LSTPRO        25     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1658    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO   *         ADDRESS TO WHICH CONTROL SHOULD BE RETURNED IN THE EVENT               LSTPRO        26     A     
 LSTPRO   *         THAT THE SYMBOL IS IN TABLE. B7 CONTAINS THE ADDRESS TO WHICH          LSTPRO        27     A     
 LSTPRO   *         CONTROL SHOULD BE RETURNED IN THE EVENT THAT THE SYMBOL IS             LSTPRO        28     A     
 LSTPRO   *         NOT IN THE TABLE. IN THE LATTER CASE A NEW ENTRY WILL BE MADE          LSTPRO        29     A     
 LSTPRO   *         FOR THE SYMBOL AND THE APPROPRIATE CHANGES AND ADDITIONS MADE          LSTPRO        30     A     
 LSTPRO   *         TO THE LINKING INFORMATION.                                            LSTPRO        31     A     
 LSTPRO   *                                                                                LSTPRO        32     A     
 LSTPRO   *         ON EXIT:                                                               LSTPRO        33     A     
 LSTPRO   *                A0 = FWA OF THE SYMBOL TABLE                                    LSTPRO        34     A     
 LSTPRO   *                A1,X1 = ADDRESS AND CONTENTS OF WORD 1 OF THE ENTRY             LSTPRO        35     A     
 LSTPRO   *                A2,X2 = ADDRESS AND CONTENTS OF WORD 2 OF THE ENTRY             LSTPRO        36     A     
 LSTPRO   *                B1 = ORDINAL OF THE ENTRY                                       LSTPRO        37     A     
 LSTPRO   *                B2 = 2*B1  AND  B5 = 1                                          LSTPRO        38     A     
 LSTPRO   *                                                                                LSTPRO        39     A     
 LSTPRO   *         IN ADDITION IF THIS IS THE FIRST OCCURANCE OF A NAME, THEN:            LSTPRO        40     A     
 LSTPRO   *                X7 = 0 AND X6 = NATURAL TYPE S P.TYP                            LSTPRO        41     A     
 LSTPRO   *                                                                                LSTPRO        42     A     
 LSTPRO   *         IN DEBUG MODE, REPEATED OCCURANCES OF A NAME WITH TYPE                 LSTPRO        43     A     
 LSTPRO   *         "T.DBG" ,  ( NAME FIRST MENTIONED IN A "DEBUG" STMT" )                 LSTPRO        44     A     
 LSTPRO   *                X2 = .NOT.MASK(48).A.WORDB  ( P- FIELD ONLY )                   LSTPRO        45     A     
 LSTPRO   *                X6 = SAVED NATURAL TYPE                                         LSTPRO        46     A     
 LSTPRO   *                X7 = THE DEBUG FIELD BITS IN WORD B ( " 0 )                     LSTPRO        47     A     
 LSTPRO   *                AND CONTROL IS RETURNED TO THE FIRST OCCURRANCE EXIT            LSTPRO        48     A     
 LSTPRO                                                                                    LSTPRO        49     A     
 LSTPRO                                                                                    LSTPRO        50     A     
 LSTPRO             TITLE              SYMBOL - SEARCH SYMBOL TABLE                        LSTPRO        51     A     
 LSTPRO    SYMBOL   LX1    12                LEFT JUSTIFY SYMBOL (BIT 59)                  LSTPRO        52     A     
 LSTPRO             BX4    X1                BEGIN HASHING IN X4                           LSTPRO        53     A     
 LSTPRO             SA3    SYMORD            .BEGIN LOAD OF CURRENT NEXT ORD               LSTPRO        54     A     
 LSTPRO             LX4    21                .HASH                                         LSTPRO        55     A     
 LSTPRO             SB1    7                 .  TWO                                        LSTPRO        56     A     
 LSTPRO             BX4    X1-X4             .    21-BIT                                   LSTPRO        57     A     
 LSTPRO             LX6    B1,X4             .      BYTES                                  LSTPRO        58     A     
 LSTPRO             SA2    O.SYMTAB          FWA OF SYMTAB                                 LSTPRO        59     A     
 LSTPRO             BX4    X6-X4             .HASH                                         LSTPRO        60     A     
 LSTPRO             LX7    B1,X6             .  THREE                                      LSTPRO        61     A     
 LSTPRO             SB1    X3                NEXT ORDINAL                                  LSTPRO        62     A     
 LSTPRO             BX4    X7-X4             .    7-BIT BYTES                              LSTPRO        63     A     
 LSTPRO             MX0    53                .      BYTES                                  LSTPRO        64     A     
 LSTPRO             LX4    7                 .                                             LSTPRO        65     A     
 LSTPRO             SB5    1                                                               LSTPRO        66     A     
 LSTPRO             SA0    X2                START OF SYMBOL TABLE TO A0                   LSTPRO        67     A     
 LSTPRO             BX4    -X0*X4            .X4 NOW HAS HEAD-OF-LIST POINTER              LSTPRO        68     A     
 LSTPRO             MX5    42                .42-BIT MASK IN X5                            LSTPRO        69     A     
 LSTPRO             SB2    B1+B1             2*NEXT ORDINAL                                LSTPRO        70     A     
 LSTPRO             SA2    X4+SLIST          .GET ORDINAL FOR HEAD OF LIST                 LSTPRO        71     A     
 LSTPRO    SLCOMM   SB3    A0-B2             CURRENT NEXT ADDRESS IN B3                    LSTPRO        72     A     
 LSTPRO             BX0    X1*X5             .MASK OFF SYMBOL IN X0                        LSTPRO        73     A     
 LSTPRO             MX3    48                .48-BIT MASK IN X3                            LSTPRO        74     A     
 LSTPRO             SB4    X2                .HEAD OF LIST ORDINAL IN B4                   LSTPRO        75     A     
 LSTPRO             NE     B4,PRETOP         .IF LIST NON-EMPTY,SEARCH                     LSTPRO        76     A     
 LSTPRO             SX7    B1                HEAD OF LIST                                  LSTPRO        77     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1659    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO    LSTSW1   BX6    X0                .P- BOTH EQUAL TO ZERO           LSTS         LSTPRO        78     A     
 LSTPRO             SB6    B1-4096           TEST MAXIMUM TABLE SIZE                       LSTPRO        79     A     
 LSTPRO             SA6    B3                STORE WORD A                                  LSTPRO        80     A     
 LSTPRO             SA7    A2                STORE LIST HEAD OR NEXT LINK                  LSTPRO        81     A     
 LSTPRO             ZR     B6,STFULL         IF SYMBOL TABLE FULL                          LSTPRO        82     A     
 LSTPRO             MX7    0                                                               LSTPRO        83     A     
 LSTPRO             SX6    A6-2              DECREASE SYMEND BY 2                          LSTPRO        84     A     
 LSTPRO             SA7    A6-B5             STORE WORD B                                  LSTPRO        85     A     
 LSTPRO             SA1    A0-B2             SETUP A1,X1 WITH WORD A                       LSTPRO        86     A     
 LSTPRO             SA6    L.SYMTAB          UPDATE SYMEND                                 LSTPRO        87     A     
 LSTPRO             SX6    B1+B5             INCREASE SYMORD BY 1                          LSTPRO        88     A     
 LSTPRO             SA2    A1-B5             SETUP A2,X2 WITH WORD B                       LSTPRO        89     A     
 LSTPRO             SA6    SYMORD                                                          LSTPRO        90     A     
 LSTPRO             NG     X1,RETRN1         IF A LABEL                                    LSTPRO        91     A     
 LSTPRO             RJ     NTYPE             GET THE NATURAL TYPE                          LSTPRO        92     A     
 LSTPRO    RETRN1   JP     B7                                                              LSTPRO        93     A     
 LSTPRO                                                                                    LSTPRO        94     A     
 LSTPRO   *                                                                                LSTPRO        95     A     
 LSTPRO   *         MAIN SEARCH LOOP TO SCAN DOWN A SYMBOL CHAIN                           LSTPRO        96     A     
 LSTPRO   *                                                                                LSTPRO        97     A     
 LSTPRO                                                                                    LSTPRO        98     A     
 LSTPRO    PRETOP   SB2    B4+B4             2*HEAD OF LIST ORDINAL                        LSTPRO        99     A     
 LSTPRO             SA2    A0-B2             LOAD THE FIRST SYMBOL                         LSTPRO       100     A     
 LSTPRO    TOP      BX4    X5*X2             EXTRACT THE SYMBOL                            LSTPRO       101     A     
 LSTPRO             IX6    X4-X0                                                           LSTPRO       102     A     
 LSTPRO             ZR     X6,FOUND          IF SYMBOLS ARE THE SAME                       LSTPRO       103     A     
 LSTPRO             BX7    -X3*X2            ISOLATE P+                                    LSTPRO       104     A     
 LSTPRO             SB4    X7                ORDINAL OF NEXT LINK                          LSTPRO       105     A     
 LSTPRO             ZR     X7,ENTER          IF END OF CHAIN                               LSTPRO       106     A     
 LSTPRO             SB2    B4+B4             2*ORDINAL                                     LSTPRO       107     A     
 LSTPRO             SA2    A0-B2             LOAD THE NEXT MEMBER OF CHAIN                 LSTPRO       108     A     
 LSTPRO             EQ     TOP                                                             LSTPRO       109     A     
 LSTPRO                                                                                    LSTPRO       110     A     
 LSTPRO   *         SETUP TO LINK A NEW SYMBOL ONTO THE CAHIN                              LSTPRO       111     A     
 LSTPRO                                                                                    LSTPRO       112     A     
 LSTPRO    ENTER    SX4    B1                NEXT ORDINAL                                  LSTPRO       113     A     
 LSTPRO             BX7    X2+X4             INSERT NEW LINK                               LSTPRO       114     A     
 LSTPRO             SB2    B1+B1             2*ORDINAL                                     LSTPRO       115     A     
 LSTPRO             EQ     LSTSW1            GO PERFORM REST OF PROCESSING                 LSTPRO       116     A     
 LSTPRO             TITLE              LABEL - LABEL SEARCH ROUTINE                        LSTPRO       117     A     
 LSTPRO   ***                                                                              LSTPRO       118     A     
 LSTPRO   *         LABEL - SEARCH AND ENTER ROUTINE FOR SYMBOLIC LABELS                   LSTPRO       119     A     
 LSTPRO   *                                                                                LSTPRO       120     A     
 LSTPRO    LABEL    LX1    12                LEFT JUSTIFY LABEL                            LSTPRO       121     A     
 LSTPRO             BX4    X1                BEGIN HASHING IN X4                           LSTPRO       122     A     
 LSTPRO             SA3    SYMORD            .BEGIN LOAD OF CURRENT NEXT ORD.              LSTPRO       123     A     
 LSTPRO             LX4    15                HASH BITS 24-53                               LSTPRO       124     A     
 LSTPRO             SB1    5                                                               LSTPRO       125     A     
 LSTPRO             BX4    X4-X1             INTO TWO 15-BIT                               LSTPRO       126     A     
 LSTPRO             LX6    B1,X4             CHUNKS                                        LSTPRO       127     A     
 LSTPRO             SA2    O.SYMTAB                                                        LSTPRO       128     A     
 LSTPRO             BX4    X6-X4             HASH THREE                                    LSTPRO       129     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1660    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO             LX7    B1,X6             5-BIT                                         LSTPRO       130     A     
 LSTPRO             SB1    X3                NEXT ORDINAL                                  LSTPRO       131     A     
 LSTPRO             BX4    X4-X7             BYTES.                                        LSTPRO       132     A     
 LSTPRO             SA0    X2                START OF SYMBOL TABLE TO A0                   LSTPRO       133     A     
 LSTPRO             SB5    1                                                               LSTPRO       134     A     
 LSTPRO             SB2    B1+B1             2*ORDINAL                                     LSTPRO       135     A     
 LSTPRO             MX0    55                MASK IN X0                                    LSTPRO       136     A     
 LSTPRO             LX4    11                                                              LSTPRO       137     A     
 LSTPRO             BX6    -X0*X4            HASHED 5-BIT SYMBOL (POINTER) IN X6           LSTPRO       138     A     
 LSTPRO             MX5    36                .36-BIT MASK IN X5                            LSTPRO       139     A     
 LSTPRO             SA2    LLIST+X6          LOAD HEAD OF LIST                             LSTPRO       140     A     
 LSTPRO             EQ     SLCOMM            .GO TO COMMON SEARCH ROUTINE                  LSTPRO       141     A     
 LSTPRO                                                                                    LSTPRO       142     A     
 LSTPRO   ***                                                                              LSTPRO       143     A     
 LSTPRO   *         ERROR EXIT                                                             LSTPRO       144     A     
 LSTPRO   *                                                                                LSTPRO       145     A     
 LSTPRO    STFULL   SB6    -54               (ERROR NO. 54 = SYMBOL TABLE OVERFLOW         LSTPRO       146     A     
 LSTPRO    LFER     ENTRY.                   JUMP TO FATALER IN ERPRO PLACED HERE          LSTPRO       147     A     
 LSTPRO             SPACE  3                                                               LSTPRO       148     A     
 LSTPRO   *         FOUND EXIT                                                             LSTPRO       149     A     
 LSTPRO                                                                                    LSTPRO       150     A     
 LSTPRO    FOUND    SA1    A2                SETUP WORD A A1,X1                            LSTPRO       151     A     
 LSTPRO             SB1    B4                ORDINAL                                       LSTPRO       152     A     
 LSTPRO             SA2    A1-B5             WORD B                                        LSTPRO       153     A     
 LSTPRO    LSTSW3   JP     B7+1                                                            LSTPRO       154     A     
 LSTPRO                                                                                    LSTPRO       155     A     
 LSTPRO   *         X4 = TYPE FIELD - T.UDV IF IN DEBUG MODE                               LSTPRO       156     A     
 LSTPRO                                                                                    LSTPRO       157     A     
 LSTPRO   +         ZR     X4,*+1            IF AN UNUSED DEBUG VARIABLE                   LSTPRO       158     A     
 LSTPRO             JP     B7+1                                                            LSTPRO       159     A     
 LSTPRO                                                                                    LSTPRO       160     A     
 LSTPRO             MX5    L.DBGI                                                          LSTPRO       161     A     
 LSTPRO             LX5    L.DBGI+P.DBGI                                                   LSTPRO       162     A     
 LSTPRO             BX7    X5*X2             X7 = DEBUG FIELD BITS                         LSTPRO       163     A     
 LSTPRO             MX3    48                                                              LSTPRO       164     A     
 LSTPRO             LX6    X2                                                              LSTPRO       165     A     
 LSTPRO             BX2    X2-X2             CLEAR WORD B                                  LSTPRO       166     A     
 LSTPRO             LX6    P.TYP-P.SNT                                                     LSTPRO       167     A     
 LSTPRO             BX6    X0*X6             X6 = SAVED NATURAL TYPE                       LSTPRO       168     A     
 LSTPRO             JP     B7                RETURN TO FIRST TIME EXIT                     LSTPRO       169     A     
 LSTPRO             TITLE              NTYPE - GET NATURAL TYPE OF A VARIABLE              LSTPRO       170     A     
 LSTPRO   ***                                                                              LSTPRO       171     A     
 LSTPRO   *         NTYPE - DETERMINE NATURAL TYPE OF A VARIABLE                           LSTPRO       172     A     
 LSTPRO   *                                                                                LSTPRO       173     A     
 LSTPRO   *         ON ENTRY:                                                              LSTPRO       174     A     
 LSTPRO   *                X1 = NAME LEFT JUSTIFIED                                        LSTPRO       175     A     
 LSTPRO   *                                                                                LSTPRO       176     A     
 LSTPRO   *         ON EXIT28                                                              LSTPRO       177     A     
 LSTPRO   *                X0 = TYPE , RIGHT ADJUSTED                                      LSTPRO       178     A     
 LSTPRO   *                X6 = TYPE S P.TYP                                               LSTPRO       179     A     
 LSTPRO   *                                                                                LSTPRO       180     A     
 LSTPRO   *         USES   A3,X3,B3                                                        LSTPRO       181     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1661    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO   *                                                                                LSTPRO       182     A     
 LSTPRO                                                                                    LSTPRO       183     A     
 LSTPRO    NTYPEX   SB3    P.TYP                                                           LSTPRO       184     A     
 LSTPRO             LX6    B3,X0             TYPE TO X6                                    LSTPRO       185     A     
 LSTPRO                                                                                    LSTPRO       186     A     
 LSTPRO    NTYPE    ENTRY.                                                                 LSTPRO       187     A     
 LSTPRO             SB3    54                                                              LSTPRO       188     A     
 LSTPRO             AX0    B3,X1             POSITION TO FIRST CHARACTER                   LSTPRO       189     A     
 LSTPRO             SA3    IMPTYP                                                          LSTPRO       190     A     
 LSTPRO             SB3    X0                                                              LSTPRO       191     A     
 LSTPRO             MX0    0                 SET TYPE TO LOGICAL                           LSTPRO       192     A     
 LSTPRO                                                                                    LSTPRO       193     A     
 LSTPRO    NTYPEL   LX3    B3,X3             SHIFT BIT TABLE BY CHARACTER                  LSTPRO       194     A     
 LSTPRO             NG     X3,NTYPEX         IF A HIT                                      LSTPRO       195     A     
 LSTPRO             SX0    X0+B5             BUMP TYPE                                     LSTPRO       196     A     
 LSTPRO             LX3    26                CHECK LOWER TYPE                              LSTPRO       197     A     
 LSTPRO             NG     X3,NTYPEX                                                       LSTPRO       198     A     
 LSTPRO             SA3    A3+B5             NEXT WORD                                     LSTPRO       199     A     
 LSTPRO             SX0    X0+B5                                                           LSTPRO       200     A     
 LSTPRO             EQ     NTYPEL                                                          LSTPRO       201     A     
 LSTPRO             SPACE  3                                                               LSTPRO       202     A     
 LSTPRO   ***                                                                              LSTPRO       203     A     
 LSTPRO   *         IMPTYP - IMPLICIT TYPE BIT TABLE                                       LSTPRO       204     A     
 LSTPRO   *                                                                                LSTPRO       205     A     
 LSTPRO                                                                                    LSTPRO       206     A     
 LSTPRO             ENTRY  IMPTYP                                                          LSTPRO       207     A     
 LSTPRO    IMPTYP   VFD    27/0              LOGICAL                                       LSTPRO       208     A     
 LSTPRO             VFD    8/0,6/77B,19/0    INTEGER                                       LSTPRO       209     A     
 LSTPRO             VFD    9/377B,6/0,12/7777B                                             LSTPRO       210     A     
 LSTPRO             VFD    33/0              DOUBLE                                        LSTPRO       211     A     
 LSTPRO             VFD    27/0              COMPLEX                                       LSTPRO       212     A     
 LSTPRO             VFD    33/0                                                            LSTPRO       213     A     
 LSTPRO                                                                                    LSTPRO       214     A     
 LSTPRO   ***                                                                              LSTPRO       215     A     
 LSTPRO   *         SAVE NATURAL REAL BITS                                                 LSTPRO       216     A     
 LSTPRO   *         IF NEEDED, NATURAL INTEGER BITS WILL BE COMPUTED IN LINE               LSTPRO       217     A     
 LSTPRO                                                                                    LSTPRO       218     A     
 LSTPRO             ENTRY  NRB                                                             LSTPRO       219     A     
 LSTPRO    NRB      VFD    9/377B,6/0,12/7777B,30/0                                        LSTPRO       220     A     
 LSTPRO    RSSW     EJECT                                                                  LSTPRO       221     A     
 LSTPRO   **        RSSW - PLUG SWITCHES IN *SYMBOL* FOR *LISTIO* AND *FAX*.               LSTPRO       222     A     
 LSTPRO   *                                                                                LSTPRO       223     A     
 LSTPRO   *         SET SWITCHS SO THAT SYMBOL AND LABEL DO NOT ADD AN ENTRY               LSTPRO       224     A     
 LSTPRO   *         TO SYMTAB IF THE NAME IS NOT FOUND.                                    LSTPRO       225     A     
 LSTPRO   *                                                                                LSTPRO       226     A     
 LSTPRO   *         THIS CODE IS NECESSARY SINCE THE NAMES OF THE BASIC EXTERNAL           LSTPRO       227     A     
 LSTPRO   *         FUNCTIONS ARE INITIALLY ENTERED IN "SYMTAB" WITHOUT                    LSTPRO       228     A     
 LSTPRO   *         A TRAILING DOLLAR SIGN OR PERIOD.                                      LSTPRO       229     A     
 LSTPRO   *         IF "LSTPRO" RETURNS TO THE NOT FOUND EXIT, THEN FAX WILL               LSTPRO       230     A     
 LSTPRO   *         SEARCH THE TABLE OF EXTERNAL NAMES THAT IT HAS CONSTRUCTED             LSTPRO       231     A     
 LSTPRO   *                                                                                LSTPRO       232     A     
 LSTPRO   *         KSSW - RESTORE SYMBOL CODE TO ORIGINAL PASS 1 STATE                    LSTPRO       233     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1662    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO   *                                                                                LSTPRO       234     A     
 LSTPRO    RSSW     ENTRY.                                                                 LSTPRO       235     A     
 LSTPRO             SX6    027B                                                            LSTPRO       236     A     
 LSTPRO             NO                                                                     LSTPRO       237     A     
 LSTPRO             LX6    51                FORM / JP B7 / INSTRUCTION                    LSTPRO       238     A     
 LSTPRO             PLUG   AT=LSTSW1,FROM=X6                                               LSTPRO       239     A     
 LSTPRO             EQ     RSSW                                                            LSTPRO       240     A     
 LSTPRO                                                                                    LSTPRO       241     A     
 LSTPRO    KSSW     ENTRY.                                                                 LSTPRO       242     A     
 LSTPRO             PLUG   AT=LSTSW1,FROM=KLS1N,FREG=3,SREG=7                              LSTPRO       243     A     
 LSTPRO             EQ     KSSW                                                            LSTPRO       244     A     
 LSTPRO                                                                                    LSTPRO       245     A     
 LSTPRO                                                                                    LSTPRO       246     A     
 LSTPRO                                                                                    LSTPRO       247     A     
 LSTPRO    KLS1N    BX6    X0                                                              LSTPRO       248     A     
 LSTPRO             SB6    B1-4096                                                         LSTPRO       249     A     
 LSTPRO             SA6    B3                                                              LSTPRO       250     A     
 LSTPRO                                                                                    LSTPRO       251     A     
 LSTPRO    KLS.D    MX0    L.TYP             PLUG FOR DEBUG MODE                           LSTPRO       252     A     
 LSTPRO             BX3    X0*X2                                                           LSTPRO       253     A     
 LSTPRO             IX4    X0-X3                                                           LSTPRO       254     A     
 LSTPRO             NO                                                                     LSTPRO       255     A     
 LSTPRO             SPACE  3                                                               LSTPRO       256     A     
 LSTPRO             TITLE  BATCH COMPILATION CONTROL                                       LSTPRO       257     A     
 LSTPRO    LSTPRO$  EJECT                                                                  LSTPRO       258     A     
 LSTPRO   *         IF (BREAK=20) WAS SELECTED, ENTRY TO OVERLAY(2,0) WILL BE TO           FEAT155F     213     A     
 LSTPRO   *         *FTN20-1* TO CALL THE COMPILE-TIME INTERACTIVE DEBUG PACKAGE.          FEAT155F     214     A     
 LSTPRO                                                                                    FEAT155F     215     A     
 LSTPRO    FTN20    BREAK                                                                  FEAT155F     216     A     
 LSTPRO                                                                                    FEAT155F     217     A     
 LSTPRO             ENTRY  FTN20                                                           LSTPRO       259     A     
 LSTPRO    FTN20    BSS    0           ** LOADER ENTRY POINT **                            LSTPRO       260     A     
 LSTPRO             SB1    1                                                               LSTPRO       261     A     
 LSTPRO                                                                                    LSTPRO       262     A     
 LSTPRO                                                                                    LSTPRO       263     A     
 LSTPRO   **        POST REPRIEVE REQUEST.                                                 LSTPRO       264     A     
 LSTPRO   *                                                                                LSTPRO       265     A     
 LSTPRO    .T       IFNE   TEST,0                                                          LSTPRO       266     A     
 LSTPRO             SA1    RA.SSW                                                          LSTPRO       267     A     
 LSTPRO             LX1    59-11                                                           LSTPRO       268     A     
 LSTPRO             MI     X1,LST2     IF SENSE SWITCH 6 ON, SKIP *RPV* REQUEST            LSTPRO       269     A     
 LSTPRO    .T       ENDIF                                                                  LSTPRO       270     A     
 LSTPRO                                                                                    LSTPRO       271     A     
 LSTPRO    #OS      IFEQ   .OS,0                                                           LSTPRO       272          I
          -FEAT126A 
 LSTPRO    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A    1083     A     
 LSTPRO    .T       IFEQ   TEST,0                                                          LSTPRO       273     A     
 LSTPRO             SYSTEM RPV,RCL,XJP,23BS6                                               LSTPRO       274     A     
 LSTPRO    .T       ELSE                                                                   LSTPRO       275     A     
 LSTPRO             SYSTEM RPV,RCL,XJP,37BS6                                               LSTPRO       276     A     
 LSTPRO    .T       ENDIF                                                                  LSTPRO       277     A     
 LSTPRO    #OS      ELSE                                                                   LSTPRO       278     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1663    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO             REPRIEVE  XJP      POST REPRIEVE REQUEST                               LSTPRO       279     A     
 LSTPRO    #OS      ENDIF                                                                  LSTPRO       280     A     
 LSTPRO                                                                                    LSTPRO       281     A     
 LSTPRO                                                                                    LSTPRO       282     A     
 LSTPRO   **        OPEN FILES.                                                            LSTPRO       283     A     
 LSTPRO   *                                                                                LSTPRO       284     A     
 LSTPRO    LST2     CALL   OPF         OPEN FILES                                          LSTPRO       285     A     
 LSTPRO             SA1    =XCOMRET                                                        FCCA519       14     A     
 LSTPRO             PL     X1,LST2A    IF FIRST TIME THROUGH                               FCCA519       15     A     
 LSTPRO             SA2    CP.CARD                                                         FCCA519       16     A     
 LSTPRO             ZR     X2,FTNEND   IF COMPASS DETECTED EOR                             FCCA519       17     A     
 LSTPRO                                                                                    FCCA519       18     A     
 LSTPRO    LST2A    BSS    0                                                               FCCA519       19     A     
 LSTPRO                                                                                    LSTPRO       286     A     
 LSTPRO    #RM      IFNE   CP#RM,7                                                         FCCA510        5     A     
 LSTPRO             SA1    =XPMDFLAG                                                       FEAT1070C     97     A     
 LSTPRO             ZR     X1,USKIP1                                                       FEAT1070C     98     A     
 LSTPRO             OPEN   ZZZZZSY,WRITENR,R                                               FEAT1070C     99     A     
 LSTPRO             SA5    =XFL                                                            FEAT1070C    100     A     
 LSTPRO             BX6    X5                                                              FEAT1070C    101     A     
 LSTPRO             SA6    ZZZZZSY+4   LIMIT = FL                                          FEAT1070C    102     A     
 LSTPRO             SX6    2                                                               FCCA562        6     A     
 LSTPRO             SA6    ZZZZZSY+1   FIRST = 2                                           FCCA562        7     A     
 LSTPRO    USKIP1   BSS    0                                                               FEAT1070C    103     A     
 LSTPRO    #RM      ENDIF                                                                  FCCA510        6     A     
 LSTPRO                                                                                    LSTPRO       287     A     
 LSTPRO                                                                                    LSTPRO       288     A     
 LSTPRO    LST3     BSS    0           ** BATCH COMPILATION RESTART ENTRY POINT **         LSTPRO       289     A     
 LSTPRO                                                                                    LSTPRO       290     A     
 LSTPRO                                                                                    LSTPRO       291     A     
 LSTPRO                                                                                    LSTPRO       292     A     
 LSTPRO   **        INITIALIZE INTERNAL OPT LEVEL CELL TO CONTROL CARD VALUE.              LSTPRO       293     A     
 LSTPRO   *                                                                                LSTPRO       294     A     
 LSTPRO             SA1    =XCO.OLVL                                                       LSTPRO       295     A     
 LSTPRO             BX6    X1                                                              LSTPRO       296     A     
 LSTPRO             AX7    B1,X1                                                           LSTPRO       297     A     
 LSTPRO             SA6    OPTLVL      OPTLVL = CO.OLVL                                    LSTPRO       298     A     
 LSTPRO             SA7    OPT2        OPT2 = OPTLVL / 2                                   LSTPRO       299     A     
 LSTPRO             SA1    =XCP.AFLS                                                       RSM2763X      24     A     
 LSTPRO             BX6    X1                                                              RSM2763X      25     A     
 LSTPRO             SA6    =XPR.MXFL   PR.MXFL = CP.AFLS                                   RSM2763X      26     A     
 LSTPRO                                                                                    LSTPRO       300     A     
 LSTPRO                                                                                    LSTPRO       301     A     
 LSTPRO   **        LOAD AND EXECUTE PASS 1.                                               LSTPRO       302     A     
 LSTPRO   *         SELECT (2,1) OVERLAY IF DEBUG OFF, OR (2,4) IF ON.                     LSTPRO       303     A     
 LSTPRO   *                                                                                LSTPRO       304     A     
 LSTPRO             SA1    DFLAG       (X1) = DEBUG OPTION CONTROL WORD                    LSTPRO       305     A     
 LSTPRO             ZR     X1,LST4     IF DEBUG (D) OPTION OFF                             LSTPRO       306     A     
 LSTPRO             PLUG   AT=LSTSW3,FROM=KLS.D                                            LSTPRO       307     A     
 LSTPRO             LOVER  OVL24       LOAD AND EXECUTE (2,4) OVERLAY                      LSTPRO       308     A     
 LSTPRO    LST4     LOVER  OVL21       LOAD AND EXECUTE (2,1) OVERLAY                      LSTPRO       309     A     
 LSTPRO    OPF      EJECT                                                                  LSTPRO       310     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1664    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO   **        OPF - OPEN FILES.                                                      LSTPRO       311     A     
 LSTPRO   *                                                                                LSTPRO       312     A     
 LSTPRO   *         OPENS CMPS, IN, OUT AND RLST FILES.  IF CONTROL CARD OPTIONS           LSTPRO       313     A     
 LSTPRO   *         ARE ON, OPENS LGO AND RMAP FILES.                                      LSTPRO       314     A     
 LSTPRO   *         THE OPT/DEBUG FILE IS OPENED BY THE (2,2)/(2,4) OVERLAY.               LSTPRO       315     A     
 LSTPRO   *         BUFFERS ARE ALLOCATED TO BLANK COMMON BEGINNING AT HIGH CORE           LSTPRO       316     A     
 LSTPRO   *         AND WORKING DOWN.                                                      LSTPRO       317     A     
 LSTPRO   *         (RECORD MANAGER ONLY) - FILE POSITIONING PARAMETERS ARE TAKEN          LSTPRO       318     A     
 LSTPRO   *         FROM THE FITS.  THOSE PARAMETERS AGREE WITH THE POSITIONING            LSTPRO       319     A     
 LSTPRO   *         REQUESTS ON THE -OPEN- CALLS BELOW.                                    LSTPRO       320     A     
 LSTPRO   *                                                                                LSTPRO       321     A     
 LSTPRO   *                                                                                LSTPRO       322     A     
 LSTPRO   *         ENTRY  FIT, FET AND PSEUDO-FET PARAMETERS CORRECTLY SET.               LSTPRO       323     A     
 LSTPRO   *                (B1) = 1                                                        LSTPRO       324     A     
 LSTPRO   *                                                                                LSTPRO       325     A     
 LSTPRO   *         EXIT   (B1) = 1                                                        LSTPRO       326     A     
 LSTPRO   *                FILES ARE OPEN.                                                 LSTPRO       327     A     
 LSTPRO   *                                                                                LSTPRO       328     A     
 LSTPRO   *         USES   A - 1, 2, 6                                                     LSTPRO       329     A     
 LSTPRO   *                X - 1, 2, 6                                                     LSTPRO       330     A     
 LSTPRO   *                B - 2, 3, 4                                                     LSTPRO       331     A     
 LSTPRO   *                                                                                LSTPRO       332     A     
 LSTPRO   *         CALLS  OPEN, CLOSE, SETFIL, READ                                       LSTPRO       333     A     
 LSTPRO                                                                                    LSTPRO       334     A     
 LSTPRO                                                                                    LSTPRO       335     A     
 LSTPRO    OPF      ENTRY. *           ** ENTRY/EXIT **                                    LSTPRO       336     A     
 LSTPRO                                                                                    LSTPRO       337     A     
 LSTPRO    .T       IFNE   TEST,0                                                          LSTPRO       338     A     
 LSTPRO             OPEN   F.TEST,ALTER      INTERNAL DEBUGGING FILE *SYMTAB*              LSTPRO       339          I
          -FCCA580
 LSTPRO             OPEN   F.TEST,ALTER,RCL  INTERNAL DEBUG FILE *SYMTAB*                  FCCA580       14     A     
 LSTPRO    .T       ENDIF                                                                  LSTPRO       340     A     
 LSTPRO                                                                                    LSTPRO       341     A     
 LSTPRO   *         IF RETURNING FROM *COMPASS* (CP.CARD = .NZ.), -IN-, -OUT-              LSTPRO       342     A     
 LSTPRO   *         AND -LGO- ARE  ALREADY OPEN.  BUFFERS ARE ALLOCATED FOR                LSTPRO       343     A     
 LSTPRO   *         -IN- AND -OUT- ONLY.                                                   LSTPRO       344     A     
 LSTPRO                                                                                    LSTPRO       345     A     
 LSTPRO    OPF2     SA1    =XCP.CARD                                                       LSTPRO       346          I
          -RSM2763X 
 LSTPRO             NZ     X1,OPF7     IF RETURNING FROM COMPASS                           LSTPRO       347          I
          -RSM2763X 
 LSTPRO             SA1    =XCP.NFLS   (X1) = LWA+1 OF UNALLOCATED BLANK COMMON            LSTPRO       348          I
          -RSM2763X 
 LSTPRO             SETFIL FILE=F.CMPS,MODE=INIT,LWA1=X1                                   LSTPRO       349          I
          -RSM2763X 
 LSTPRO             SETFIL FILE=F.RLST,MODE=INIT,LWA1=B2                                   LSTPRO       350          I
          -RSM2763X 
 LSTPRO             SA1    =XFV.LGO                                                        LSTPRO       351          I
          -RSM2763X 
 LSTPRO             ZR     X1,OPF3     IF BINARY OUTPUT OPTION OFF (B=0)                   LSTPRO       352          I
          -RSM2763X 
 LSTPRO             SETFIL FILE=F.LGO,MODE=INIT,LWA1=B3 LGO BUFFER = RLST BUFFER           LSTPRO       353          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1665    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
          -RSM2763X 
 LSTPRO             ECHO   1,Z=(RLST,CMPS,LGO)                                             RSM2763X      27     A     
 LSTPRO             SETFIL FILE==XF.Z,MODE=INIT,FWA==XO.Z                                  RSM2763X      28     A     
 LSTPRO             SA1    =XCP.CARD                                                       RSM2763X      29          I
          -FCCA519
 LSTPRO             SA1    COMRET                                                          FCCA519       20     A     
 LSTPRO             NZ     X1,OPF7     IF RETURNING FROM COMPASS                           RSM2763X      30     A     
 LSTPRO             SA1    =XCP.NFLS                                                       RSM2763X      31     A     
 LSTPRO             SB2    X1-4                                                            RSM2763X      32     A     
 LSTPRO    OPF3     SA2    RSELECT                                                         LSTPRO       354          I
          -FEAT155H 
 LSTPRO    OPF3     SA2    MLOP=R                                                          FEAT155H     144     A     
 LSTPRO             PL     X2,OPF4     IF SHORT REF MAP OPTION (R-OPTION .LT. 2)           LSTPRO       355     A     
 LSTPRO             SETFIL FILE=F.RMAP,MODE=INIT,LWA1=B2                                   LSTPRO       356     A     
 LSTPRO                                                                                    LSTPRO       357     A     
 LSTPRO   *         SET SYMBOL TABLE LWA+1 (TERMED AN INVERTED FWA, SINCE THE              LSTPRO       358     A     
 LSTPRO   *         SYMBOL TABLE GROWS DOWNWARD) TO LAST BUFFER FWA.                       LSTPRO       359     A     
 LSTPRO                                                                                    LSTPRO       360     A     
 LSTPRO    OPF4     SX6    B2-2                                                            LSTPRO       361     A     
 LSTPRO             SA6    O.SYMTAB    SET INVERTED FWA OF SYMBOL TABLE                    LSTPRO       362          I
          -FCC0761
 LSTPRO             SA1    =XDFLAG                                                         FCC0761       10     A     
 LSTPRO             IFEQ   TEST,0,1          ALLOW SLOP FOR SYMDMP IN TEST MODE            RSM2763X      33     A     
 LSTPRO             ZR     X1,OPF4A    IF NOT DEBUG MODE                                   FCC0761       11     A     
 LSTPRO             SX6    X6-100      ALLOCATE DEBUG FIXED AREA LIST                      FCC0761       12     A     
 LSTPRO                                                                                    FCC0761       13     A     
 LSTPRO    OPF4A    SA6    O.SYMTAB    INITIALIZE INVERTED FWA FOR SYMBOL TABLE            FCC0761       14     A     
 LSTPRO             SA6    =XGL.SYM    SAVE FOR RESTORE IN LSTPRO                          FCC0761       15     A     
 LSTPRO                                                                                    LSTPRO       363     A     
 LSTPRO   *         OPEN INPUT, OUTPUT AND LGO FILES.                                      LSTPRO       364     A     
 LSTPRO                                                                                    LSTPRO       365     A     
 LSTPRO    #RM      IFEQ   CP#RM,0                                                         LSTPRO       366     A     
 LSTPRO             OPEN   F.OUT,NR                                                        FCC1797X       5          I
          -FCCA580
 LSTPRO             OPEN   F.OUT,NR,RCL                                                    FCCA580       15     A     
 LSTPRO             READ   F.IN        FILL INPUT BUFFER                                   LSTPRO       367          I
          -FEAT155H 
 LSTPRO             SA1    =XCO.REW                                                        FEAT155H     145     A     
 LSTPRO             ZR     X1,OPF4C                                                        FEAT155H     146     A     
 LSTPRO             REWIND F.IN                                                            FEAT155H     147     A     
 LSTPRO    OPF4C    READ   F.IN        FILL INPUT BUFFER                                   FEAT155H     148     A     
 LSTPRO    #RM      ELSE                                                                   LSTPRO       368     A     
 LSTPRO             SA1    =XCO.REW                                                        FEAT155H     149     A     
 LSTPRO             ZR     X1,OPF4C                                                        FEAT155H     150     A     
 LSTPRO             OPEN   F.IN,ALTER                                                      FEAT155H     151          I
          -FCCA580
 LSTPRO             OPEN   F.IN,ALTER,RCL                                                  FCCA580       16     A     
 LSTPRO             REWIND F.IN                                                            FEAT155H     152     A     
 LSTPRO             EQ     OPF4D                                                           FEAT155H     153     A     
 LSTPRO                                                                                    FEAT155H     154     A     
 LSTPRO    OPF4C    BSS    0                                                               FEAT155H     155     A     
 LSTPRO             OPEN   F.IN,READNR                                                     LSTPRO       369          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1666    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
          -FCCA580
 LSTPRO             OPEN   F.IN,READNR,RCL                                                 FCCA580       17     A     
 LSTPRO    OPF4D    BSS    0                                                               FEAT155H     156     A     
 LSTPRO             STORE  X2,MRL=100D                                                     LSTPRO       370     A     
 LSTPRO             OPEN   F.OUT,WRITENR                                                   LSTPRO       371          I
          -FCCA580
 LSTPRO             OPEN   F.OUT,WRITENR,RCL                                               FCCA580       18     A     
 LSTPRO             OPEN   F.OPT,ALTER                                                     LSTPRO       372          I
          -FCCA580
 LSTPRO             OPEN   F.OPT,ALTER,RCL                                                 FCCA580       19     A     
 LSTPRO    #RM      ENDIF                                                                  LSTPRO       373     A     
 LSTPRO                                                                                    LSTPRO       374     A     
 LSTPRO             SA1    =XFV.LGO                                                        LSTPRO       375          I
          -FEAT155E 
 LSTPRO   *         INITIALIZE PAGE SIZE AND PRINT DENSITY.                                FEAT155E     337     A     
 LSTPRO                                                                                    FEAT155E     338     A     
 LSTPRO             SA2    CO.PD                                                           FEAT155E     339          I
          -FEAT155EA
 LSTPRO             SA1    CO.PS                                                           FEAT155E     340          I
          -FEAT155EA
 LSTPRO             SA2    CP.PD                                                           FEAT155EA     44     A     
 LSTPRO             SA1    CP.PS                                                           FEAT155EA     45          I
          -FCCA422
 LSTPRO             SA1    LCP.PS                                                          FCCA422       58     A     
 LSTPRO             SX6    2                                                               FEAT155E     341          I
          -FCC1200
 LSTPRO             IX6    X6-X1                                                           FEAT155E     342          I
          -FCC1200
 LSTPRO             BX6    -X1                                                             FCC1200       34     A     
 LSTPRO             SA6    A1                                                              FEAT155E     343     A     
 LSTPRO             ZR     X2,OPF4B    IF PD NOT FOUND ON CONTOL CARD                      FEAT155E     344          I
          -FEAT155EA
 LSTPRO             WRITEC F.OUT,CO.PD,1                                                   FEAT155E     345          I
          -FEAT155EA
 LSTPRO             ZR     X2,OPF4B    IF PD NOT FOUND ON CONTROL CARD                     FEAT155EA     46          I
          -FCC1797X 
 LSTPRO             WRITEC F.OUT,CP.PD,1                                                   FEAT155EA     47          I
          -FCC1797X 
 LSTPRO    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FCC1797X       6     A     
 LSTPRO             RECALL F.OUT                                                           FCC1797X       7     A     
 LSTPRO             SA3    F.OUT+I.DT                                                      FCC1797X       8     A     
 LSTPRO    #OS1     IFEQ   .OS,1       IF OPERATING SYSTEM IS NOS                          FCC1797X       9     A     
 LSTPRO             AX3    48          GET DEVICE TYPE FIELD                               FCC1797X      10     A     
 LSTPRO             SB2    X3-2RTT                                                         FCC1797X      11     A     
 LSTPRO    #OS1     ELSE                                                                   FCC1797X      12     A     
 LSTPRO             AX3    54                                                              FCC1797X      13     A     
 LSTPRO             SB2    X3+16B                                                          FCC1797X      14     A     
 LSTPRO    #OS1     ENDIF                                                                  FCC1797X      15     A     
 LSTPRO             NZ     B2,OPF4D.5  IF NOT A TERMINAL FILE                              FCC1797X      16     A     
 LSTPRO             MX7    0                                                               FCC1797X      17     A     
 LSTPRO             SA7    A2                                                              FCC1797X      18     A     
 LSTPRO             EQ     OPF4B                                                           FCC1797X      19     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1667    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO                                                                                    FCC1797X      20     A     
 LSTPRO    OPF4D.5  BSS    0                                                               FCC1797X      21     A     
 LSTPRO    #OS      ENDIF                                                                  FCC1797X      22     A     
 LSTPRO             WRITEC F.OUT,CP.PD,1                                                   FCC1797X      23          I
          -FCCA410
 LSTPRO                                                                                    FEAT155E     346     A     
 LSTPRO    OPF4B    SA1    FV.LGO                                                          FEAT155E     347     A     
 LSTPRO             ZR     X1,OPF5     IF BINARY OUTPUT OPTION OFF (B=0)                   LSTPRO       376     A     
 LSTPRO             OPEN   F.LGO,WRITENR,RCL                                               LSTPRO       377          I
          -FEAT155EB
 LSTPRO             SA1    =XCO.REW                                                        FEAT155H     157          I
          -FEAT155EB
 LSTPRO             ZR     X1,OPF5                                                         FEAT155H     158          I
          -FEAT155EB
 LSTPRO             REWIND F.LGO                                                           FEAT155H     159          I
          -FEAT155EB
 LSTPRO             SA1    =XCO.REW                                                        FEAT155EB      7     A     
 LSTPRO             ZR     X1,OPF4E    IF REW OPTION NOT SELECTED                          FEAT155EB      8     A     
 LSTPRO             OPEN F.LGO,WRITE,RCL                                                   FEAT155EB      9     A     
 LSTPRO             EQ     OPF5                                                            FEAT155EB     10     A     
 LSTPRO                                                                                    FEAT155EB     11     A     
 LSTPRO    OPF4E    OPEN F.LGO,WRITENR,RCL                                                 FEAT155EB     12     A     
 LSTPRO    OPF5     CLOSE  F.OPT,UNLOAD      INSURE NO FILE FROM PRIOR JOB STEP            LSTPRO       378     A     
 LSTPRO                                                                                    LSTPRO       379     A     
 LSTPRO   *         OPEN REMAINING FILES.                                                  LSTPRO       380     A     
 LSTPRO                                                                                    LSTPRO       381     A     
 LSTPRO    OPF6     OPEN   F.CMPS,ALTER,RCL                                                LSTPRO       382     A     
 LSTPRO             OPEN   F.RLST,ALTER,RCL                                                LSTPRO       383     A     
 LSTPRO             SA1    RSELECT                                                         LSTPRO       384          I
          -FEAT155H 
 LSTPRO             SA1    MLOP=R                                                          FEAT155H     160     A     
 LSTPRO             PL     X1,OPF      IF SHORT REF MAP, EXIT                              LSTPRO       385     A     
 LSTPRO             OPEN   F.RMAP,ALTER,RCL                                                LSTPRO       386     A     
 LSTPRO             EQ     OPF         EXIT                                                LSTPRO       387     A     
 LSTPRO                                                                                    LSTPRO       388     A     
 LSTPRO   *         HERE IF RETURNING FROM COMPASS.  RE-INITIALIZE FETS OR                 LSTPRO       389     A     
 LSTPRO   *         PSEUDO-FETS FOR -CMPS-, -RLST-, -RMAP- AND -LGO-.                      LSTPRO       390          I
          -RSM2763X 
 LSTPRO                                                                                    LSTPRO       391          I
          -RSM2763X 
 LSTPRO    OPF7     SETFIL FILE=F.CMPS,MODE=RESET                                          LSTPRO       392          I
          -RSM2763X 
 LSTPRO             SETFIL FILE=F.RLST,MODE=RESET                                          LSTPRO       393          I
          -RSM2763X 
 LSTPRO             SA1    =XRSELECT                                                       LSTPRO       394          I
          -FEAT155H -RSM2763X 
 LSTPRO             SA1    MLOP=R                                                          FEAT155H     161          I
          -RSM2763X 
 LSTPRO             PL     X1,OPF8     IF SHORT REF MAP                                    LSTPRO       395          I
          -RSM2763X 
 LSTPRO             SETFIL FILE=F.RMAP,MODE=RESET                                          LSTPRO       396          I
          -RSM2763X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1668    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO    OPF8     SA1    =XFV.LGO                                                        LSTPRO       397          I
          -RSM2763X 
 LSTPRO             ZR     X1,OPF9     IF BINARY OUTPUT OPTION OFF (B=0)                   LSTPRO       398          I
          -RSM2763X 
 LSTPRO             SETFIL FILE=F.LGO,MODE=RESET                                           LSTPRO       399          I
          -RSM2763X 
 LSTPRO    OPF9     EQ     OPF6        GO OPEN FILES                                       LSTPRO       400          I
          -RSM2763X 
 LSTPRO   *         PSEUDO-FETS FOR -RMAP-.                                                RSM2763X      34     A     
 LSTPRO                                                                                    RSM2763X      35     A     
 LSTPRO    OPF7     SA1    MLOP=R                                                          RSM2763X      36     A     
 LSTPRO             PL     X1,OPF8     IF SHORT REF MAP                                    RSM2763X      37     A     
 LSTPRO             SETFIL FILE=F.RMAP,MODE=RESET                                          RSM2763X      38     A     
 LSTPRO    OPF8     EQ     OPF6        GO OPEN FILES                                       RSM2763X      39     A     
 LSTPRO    FTNEND   EJECT                                                                  LSTPRO       401     A     
 LSTPRO   ***       FTNABT - ABORT COMPILATION IMMEDIATELY DUE TO A SYSTEM OR              LSTPRO       402     A     
 LSTPRO   *         HARDWARE ERROR.                                                        LSTPRO       403     A     
 LSTPRO   *                                                                                LSTPRO       404     A     
 LSTPRO   *         ENTRY  (X1) = ADDRESS OF ERROR MESSAGE TO BE DAYFILED                  LSTPRO       405     A     
 LSTPRO                                                                                    LSTPRO       406     A     
 LSTPRO             ENTRY  FTNABT                                                          LSTPRO       407     A     
 LSTPRO    FTNABT   MESSAGE  X1,,R     SEND DAYFILE MESSAGE                                LSTPRO       408     A     
 LSTPRO             SX6    B1                                                              LSTPRO       409     A     
 LSTPRO             MX7    0                                                               LSTPRO       410     A     
 LSTPRO             SA6    =XCO.ABT    CO.ABT = 1    */ FORCE ABORT                        LSTPRO       411          I
          -CP139FC
 LSTPRO             SA6    =XCP.ERCT   CP.ERCT = 1                                         LSTPRO       412     A     
 LSTPRO             SA7    =XCP.CARD   CP.CARD = 0   */ SIGNAL END OF INPUT                LSTPRO       413     A     
 LSTPRO             SA7    =XCAFLAG    DO NOT CALL COMPASS                                 CP139FC      229     A     
 LSTPRO             LX6    29                                                              CP139FC      230     A     
 LSTPRO             SA6    =XCO.ABT    FORCE ABORT                                         CP139FC      231     A     
 LSTPRO   *         EQ     FTNEND                                                          LSTPRO       414     A     
 LSTPRO             SPACE  2                                                               LSTPRO       415     A     
 LSTPRO   ***       FTNEND - TERMINATE COMPILATION.                                        LSTPRO       416     A     
 LSTPRO   *                                                                                LSTPRO       417     A     
 LSTPRO   *         CONTROL IS TRANSFERRED HERE WHEN EACH COMPILATION ENDS.                LSTPRO       418     A     
 LSTPRO                                                                                    LSTPRO       419     A     
 LSTPRO             ENTRY  FTNEND                                                          LSTPRO       420     A     
 LSTPRO    FTNEND   SB1    1                                                               LSTPRO       421     A     
 LSTPRO             RJ     MPP         MAINTAIN PAGE PARITY                                LSTPRO       422     A     
 LSTPRO   *         UPON RETURN FROM MPP, (X5) = CURRENT PAGE NO.                          FCCA410       25     A     
 LSTPRO                                                                                    LSTPRO       423     A     
 LSTPRO                                                                                    LSTPRO       424     A     
 LSTPRO                                                                                    LSTPRO       425     A     
 LSTPRO   **        CHECK IF MORE TO COMPILE.                                              LSTPRO       426     A     
 LSTPRO   *                                                                                LSTPRO       427     A     
 LSTPRO             SA1    =XCP.CARD                                                       LSTPRO       428     A     
 LSTPRO             NZ     X1,RST      IF MORE SOURCE LINES TO COMPILE                     LSTPRO       429     A     
 LSTPRO                                                                                    LSTPRO       430     A     
 LSTPRO                                                                                    LSTPRO       431     A     
 LSTPRO                                                                                    LSTPRO       432     A     
 LSTPRO   **        TERMINATE AND CLOSE FILES.                                             LSTPRO       433     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1669    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO   *                                                                                LSTPRO       434     A     
 LSTPRO             SA1    =XCP.LSTF                                                       FCCA534       19     A     
 LSTPRO             ZR     X1,END1     IF L = 0, DONOT OUTPUT PD                           FCCA534       20     A     
 LSTPRO             SA2    =XCP.LSTF                                                       FEAT155EB     13          I
          -FCC1200
 LSTPRO             ZR     X2,END2     IF L=0                                              FEAT155EB     14          I
          -FCC1200
 LSTPRO             WRITER F.OUT       FLUSH OUTPUT BUFFER                                 LSTPRO       435          I
          -FEAT155E 
 LSTPRO             SA1    CO.PD                                                           FEAT155E     348          I
          -FEAT155EA
 LSTPRO             SA1    CP.PD                                                           FEAT155EA     48          I
          -FCCA473
 LSTPRO             ZR     X1,END1     IF PD NOT FOUND ON CONTROL CARD                     FEAT155E     349          I
          -FCC1797X 
 LSTPRO             ZR     X1,END1     IF PRINT DENSITY NOT SET                            FCC1797X      24          I
          -FCCA473
 LSTPRO             MX6    1                                                               FCCA410       26          I
          -FCCA473
 LSTPRO             BX5    -X6*X5      REMOVE PROPAGATION BIT, IF PRESENT                  FCCA410       27          I
          -FCCA473
 LSTPRO             ZR     X5,END1     IF NO LINE HAS BEEN PRINTED                         FCCA410       28          I
          -FCCA473
 LSTPRO   #PD       IFEQ   IP.PD,6                                                         FEAT155E     350          I
          -FCCA473
 LSTPRO             SX6    1RS                                                             FEAT155E     351          I
          -FCC1964
 LSTPRO             SX6    2RS                                                             FCC1964       10          I
          -FCCA473
 LSTPRO   #PD       ELSE                                                                   FEAT155E     352          I
          -FCCA473
 LSTPRO             SX6    1RT                                                             FEAT155E     353          I
          -FCC1964
 LSTPRO             SX6    2RT                                                             FCC1964       11          I
          -FCCA473
 LSTPRO   #PD       ENDIF                                                                  FEAT155E     354          I
          -FCCA473
 LSTPRO             SA1    CP.PD                                                           FCCA473       46     A     
 LSTPRO             SA2    =23550000000000000000B                                          FCCA473       47          I
          -FCCA534
 LSTPRO             SA2    =24550000000000000000B                                          FCCA534       21          I
          -FCCA593
 LSTPRO             IX2    X1-X2                                                           FCCA473       48          I
          -FCCA593
 LSTPRO             ZR     X2,END1     IF PD = 6 DONOT OUTPUT PD                           FCCA473       49          I
          -FCCA534  -FCCA593
 LSTPRO             MI     X2,END1     IF PD = 6, DONOT OUTPUT PD                          FCCA534       22          I
          -FCCA593
 LSTPRO             SX6    2RS         REGARDLESS OF IP.PD OUTPUT 6                        FCCA473       50          I
          -FCCA593
 LSTPRO             LX6    -6                                                              FEAT155E     355          I
          -FCC1964  -FCCA593
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1670    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO             LX6    -12                                                             FCC1964       12          I
          -FCCA593
 LSTPRO             ZR     X1,END1     IF TTY FILE                                         FCCA593       63     A     
 LSTPRO                                                                                    FCCA593       64     A     
 LSTPRO             SA2    RS.PD       RESTORE *PD*                                        FCCA593       65     A     
 LSTPRO             BX6    X2-X1                                                           FCCA593       66     A     
 LSTPRO             ZR     X6,END1     IF USING DEFAULT *PD*                               FCCA593       67     A     
 LSTPRO                                                                                    FCCA593       68     A     
 LSTPRO             BX6    X2          ENTER JOB DEFAULT                                   FCCA593       69     A     
 LSTPRO             SA6    =XGT1                                                           FEAT155E     356     A     
 LSTPRO             WRITEC F.OUT,GT1,1 RESET DENSITY                                       FEAT155E     357     A     
 LSTPRO             MX6    1                                                               FCCA422       59          I
          -FCCA473
 LSTPRO             SA6    PDFLAG      RESET PDFLAG                                        FCCA422       60          I
          -FCCA473
 LSTPRO    END1     WRITER F.OUT       FLUSH OUTPUT BUFFER                                 FEAT155E     358          I
          -FCC1200
 LSTPRO    END1     BSS    0                                                               FCC1200       35     A     
 LSTPRO   #RM       IFEQ   CP#RM,0                                                         FCC1200       36     A     
 LSTPRO             SA1    F.OUT                                                           FCC1200       37     A     
 LSTPRO             SB2    X1                                                              FCC1200       38     A     
 LSTPRO             EQ     B1,B2,END1A IF FILE NOT ACTED UPON                              FCC1200       39     A     
 LSTPRO             SB3    34                                                              FCC1200       40     A     
 LSTPRO             LE     B2,B3,END1B IF NOT AN OPEN OR CLOSE                             FCC1200       41     A     
 LSTPRO    END1A    SA1    A1+2        GET IN POINTER                                      FCC1200       42     A     
 LSTPRO             SA2    A1+B1       GET OUT POINTER                                     FCC1200       43     A     
 LSTPRO             SB2    X1                                                              FCC1200       44     A     
 LSTPRO             SB3    X2                                                              FCC1200       45     A     
 LSTPRO             EQ     B2,B3,END2 IF BUFFER EMPTY                                      FCC1200       46     A     
 LSTPRO   #RM       ELSE                                                                   FCC1200       47     A     
 LSTPRO             FETCH  F.OUT,LOP,X5                                                    FCC1200       48     A     
 LSTPRO             SB3    X5                                                              FCC1200       49     A     
 LSTPRO             LE     B3,B1,END2 IF FILE NOT WRITTEN ON                               FCC1200       50     A     
 LSTPRO   #RM       ENDIF                                                                  FCC1200       51     A     
 LSTPRO    END1B    WRITER F.OUT       FLUSH OUTPUT BUFFER                                 FCC1200       52     A     
 LSTPRO             SA2    =XFV.LGO    FILE VECTOR                                         LSTPRO       436          I
          -FEAT155EB
 LSTPRO    END2     SA2    =XFV.LGO    FILE VECTOR                                         FEAT155EB     15     A     
 LSTPRO             ZR     X2,END3     IF BINARY OUTPUT SUPPRESSED (B=0)                   LSTPRO       437     A     
 LSTPRO             SA1    =XCAFLAG                                                        LSTPRO       438     A     
 LSTPRO             SA2    =XUFLAG                                                         LSTPRO       439     A     
 LSTPRO             BX6    X1+X2                                                           LSTPRO       440     A     
 LSTPRO             NZ     X6,END3     IF C- OR E-OPTION SELECTED                          LSTPRO       441     A     
 LSTPRO             WRITEF F.LGO                                                           LSTPRO       442     A     
 LSTPRO             BKSP   F.LGO       BACKSPACE OVER END-OF-FILE                          LSTPRO       443     A     
 LSTPRO    END3     BSS    0                                                               LSTPRO       444     A     
 LSTPRO                                                                                    LSTPRO       445     A     
 LSTPRO    #RM      IFEQ   CP#RM,0                                                         LSTPRO       446     A     
 LSTPRO                                                                                    LSTPRO       447     A     
 LSTPRO   *         EVICT SCRATCH FILES.                                                   LSTPRO       448     A     
 LSTPRO                                                                                    LSTPRO       449     A     
 LSTPRO             SA5    F.OPT+I.FIRST                                                   LSTPRO       450     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1671    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO             SA4    =XSCRTBL-1  INITIALIZE A4                                       LSTPRO       451     A     
 LSTPRO             SX7    X5          REMOVE RANDOM FILE BIT                              LSTPRO       452          I
          -RSM2763X 
 LSTPRO             SX7    200B                                                            RSM2763X      40     A     
 LSTPRO             SA7    A5          CLEAR FET SO NO ERROR FROM CIO                      RSM2763X      41     A     
 LSTPRO             SA7    A7+B1       IN CASE FET POINTERS ARE OUTSIDE                    RSM2763X      42     A     
 LSTPRO             SA7    A7+B1       PRESENT FL                                          RSM2763X      43     A     
 LSTPRO             LX7    1                                                               RSM2763X      44     A     
 LSTPRO             SA7    A7+B1                                                           RSM2763X      45     A     
 LSTPRO             SX0    377774B                                                         LSTPRO       453     A     
 LSTPRO             SA7    A5                                                              LSTPRO       454          I
          -RSM2763X 
 LSTPRO                                                                                    LSTPRO       455     A     
 LSTPRO    .T       IFEQ   TEST,0                                                          LSTPRO       456     A     
 LSTPRO                                                                                    LSTPRO       457     A     
 LSTPRO    END4     SA4    A4+B1       (X4) = FET ADDRESS FOR NEXT FILE TO EVICT           LSTPRO       458     A     
 LSTPRO             MI     X4,END5     IF ALL FILES EVICTED                                LSTPRO       459     A     
 LSTPRO             SA3    X4                                                              LSTPRO       460     A     
 LSTPRO             BX6    X0*X3       EXTRACT CIO CODE FIELD                              LSTPRO       461     A     
 LSTPRO             ZR     X6,END4     IF FILE UNUSED                                      LSTPRO       462     A     
 LSTPRO             CLOSE  X4,UNLOAD                                                       LSTPRO       463     A     
 LSTPRO             EQ     END4        LOOP FOR NEXT FILE                                  LSTPRO       464     A     
 LSTPRO                                                                                    LSTPRO       465     A     
 LSTPRO    .T       ELSE                                                                   LSTPRO       466     A     
 LSTPRO                                                                                    LSTPRO       467     A     
 LSTPRO             SA1    F.OPT                                                           LSTPRO       468     A     
 LSTPRO             BX6    X0*X1       EXTRACT CIO CODE FIELD                              LSTPRO       469     A     
 LSTPRO             ZR     X6,END5     IF FILE UNUSED                                      LSTPRO       470     A     
 LSTPRO             CLOSE  A1,UNLOAD                                                       LSTPRO       471     A     
 LSTPRO                                                                                    LSTPRO       472     A     
 LSTPRO    .T       ENDIF                                                                  LSTPRO       473     A     
 LSTPRO                                                                                    LSTPRO       474     A     
 LSTPRO    #RM      ENDIF                                                                  LSTPRO       475     A     
 LSTPRO                                                                                    LSTPRO       476     A     
 LSTPRO   *         TERMINATE AND REWIND -CMPS- IF *COMPASS* ASSEMBLY (C) OPTION           LSTPRO       477     A     
 LSTPRO   *         OR UPDATE/EDIT (E) OPTION IS SELECTED.                                 LSTPRO       478     A     
 LSTPRO                                                                                    LSTPRO       479     A     
 LSTPRO    END5     SA1    =XUFLAG                                                         LSTPRO       480     A     
 LSTPRO             SA2    =XCAFLAG                                                        LSTPRO       481     A     
 LSTPRO             BX6    X1+X2                                                           LSTPRO       482     A     
 LSTPRO             ZR     X6,END6     IF NEITHER OPTION SELECTED                          LSTPRO       483     A     
 LSTPRO             WRITER F.CMPS                                                          LSTPRO       484     A     
 LSTPRO             REWIND F.CMPS                                                          LSTPRO       485     A     
 LSTPRO    END6     BSS    0                                                               LSTPRO       486     A     
 LSTPRO                                                                                    LSTPRO       487     A     
 LSTPRO    #RM      IFGE   CP#RM,6                                                         LSTPRO       488     A     
 LSTPRO                                                                                    LSTPRO       489     A     
 LSTPRO             SX6    =XFVLEN-1   (X6) = FILE VECTOR TABLE OFFSET                     LSTPRO       490     A     
 LSTPRO    END7     SA2    RA.ARG+X6   (X2) = FIT ADDRESS FROM FILE VECTOR TABLE           LSTPRO       491     A     
 LSTPRO             SA6    GT1         TEMP SAVE OFFSET                                    LSTPRO       492     A     
 LSTPRO             ZR     X2,END8     IF FILE DESELECTED BY CONTROL CARD OPTION           LSTPRO       493     A     
 LSTPRO             RJ     FA=CLO                                                          LSTPRO       494     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1672    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO    END8     SA1    GT1                                                             LSTPRO       495     A     
 LSTPRO             SX6    X1-1        (X6) = OFFSET FOR NEXT FILE                         LSTPRO       496     A     
 LSTPRO             PL     X6,END7     IF MORE FILES TO CLOSE                              LSTPRO       497     A     
 LSTPRO                                                                                    LSTPRO       498     A     
 LSTPRO    .T       IFNE   TEST,0                                                          LSTPRO       499     A     
 LSTPRO             CLOSEM FI.TEST     INTERNAL DEBUGGING FILE *SYMTAB*                    LSTPRO       500     A     
 LSTPRO    .T       ENDIF                                                                  LSTPRO       501     A     
 LSTPRO                                                                                    LSTPRO       502     A     
 LSTPRO    #RM      ENDIF                                                                  LSTPRO       503     A     
 LSTPRO                                                                                    LSTPRO       504     A     
 LSTPRO                                                                                    LSTPRO       505     A     
 LSTPRO                                                                                    LSTPRO       506     A     
 LSTPRO   **        TURN -SPY- OFF (TEST COMPILER ON 6000-SERIES ONLY).                    LSTPRO       507     A     
 LSTPRO   *                                                                                LSTPRO       508     A     
 LSTPRO    .T       IFNE   TEST,0                                                          LSTPRO       509     A     
 LSTPRO    #OS      IFEQ   .OS,0                                                           LSTPRO       510          I
          -FEAT126A 
 LSTPRO    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A    1084     A     
 LSTPRO             CALL   OFFSPY                                                          LSTPRO       511     A     
 LSTPRO    #OS      ENDIF                                                                  LSTPRO       512     A     
 LSTPRO    .T       ENDIF                                                                  LSTPRO       513     A     
 LSTPRO                                                                                    LSTPRO       514     A     
 LSTPRO                                                                                    LSTPRO       515     A     
 LSTPRO                                                                                    LSTPRO       516     A     
 LSTPRO   **        WAIT FOR ALL FILE ACTIONS TO COMPLETE.                                 LSTPRO       517     A     
 LSTPRO   *                                                                                LSTPRO       518     A     
 LSTPRO    #RM      IFEQ   CP#RM,0                                                         LSTPRO       519     A     
 LSTPRO             SB2    RA.ARG                                                          LSTPRO       520     A     
 LSTPRO             SB3    RA.ARG+=XFVLEN                                                  LSTPRO       521     A     
 LSTPRO    END9     SA5    B2          (X5) = FILE VECTOR TABLE ENTRY                      LSTPRO       522     A     
 LSTPRO             SB2    B2+B1                                                           LSTPRO       523     A     
 LSTPRO             ZR     X5,END10    IF FILE DESELECTED BY CONTROL CARD OPTION           LSTPRO       524     A     
 LSTPRO             SX2    X5          (X2) = ADDRESS OF FET FOR FILE                      LSTPRO       525     A     
 LSTPRO             RECALL X2                                                              LSTPRO       526     A     
 LSTPRO    END10    LT     B2,B3,END9  IF MORE FILES TO CHECK                              LSTPRO       527     A     
 LSTPRO    #RM      ENDIF                                                                  LSTPRO       528     A     
 LSTPRO                                                                                    LSTPRO       529     A     
 LSTPRO                                                                                    LSTPRO       530     A     
 LSTPRO                                                                                    LSTPRO       531     A     
 LSTPRO   **        IF *COMPASS* ASSEMBLY (C) OPTION OFF, TERMINATE *FTN*.                 LSTPRO       532     A     
 LSTPRO   *                                                                                LSTPRO       533     A     
 LSTPRO             SA1    =XCAFLAG                                                        LSTPRO       534     A     
 LSTPRO             ZR     X1,=XENDFTN IF C-OPTION OFF                                     LSTPRO       535     A     
 LSTPRO                                                                                    LSTPRO       536     A     
 LSTPRO                                                                                    LSTPRO       537     A     
 LSTPRO                                                                                    LSTPRO       538     A     
 LSTPRO   **        PREPARE FOR *COMPASS* CALL.                                            LSTPRO       539     A     
 LSTPRO   *                                                                                LSTPRO       540     A     
 LSTPRO   *         (RECORD MGR OFF)   REWIND -COMPS- FILE AND MOVE ITS NAME TO            LSTPRO       541     A     
 LSTPRO   *                            THE INPUT FILE FET.                                 LSTPRO       542     A     
 LSTPRO   *         (RECORD MGR ON)    MOVE -COMPS- FILE NAME TO INPUT FILE FIT.           LSTPRO       543     A     
 LSTPRO   *                                                                                LSTPRO       544     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1673    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO             SX6    0                                                               LSTPRO       545     A     
 LSTPRO             SA6    =XCP.CARD   SIGNAL EMPTY INPUT WSA                              LSTPRO       546     A     
 LSTPRO             SA6    =XCAFLAG    CLEAR -CALL COMPASS- FLAG                           LSTPRO       547     A     
 LSTPRO                                                                                    LSTPRO       548     A     
 LSTPRO    #RM      IFEQ   CP#RM,0                                                         LSTPRO       549     A     
 LSTPRO                                                                                    LSTPRO       550     A     
 LSTPRO             SA1    F.CMPS                                                          LSTPRO       551     A     
 LSTPRO             BX6    X1                                                              LSTPRO       552     A     
 LSTPRO             SA6    F.IN        MOVE FILE NAME                                      LSTPRO       553     A     
 LSTPRO                                                                                    LSTPRO       554     A     
 LSTPRO    #RM      ELSE                                                                   LSTPRO       555     A     
 LSTPRO                                                                                    LSTPRO       556     A     
 LSTPRO             SA1    F.CMPS      (X1) = COMPS FILE FIT ADDR                          LSTPRO       557     A     
 LSTPRO             SA2    F.IN        (X2) = INPUT FILE FIT ADDR                          LSTPRO       558     A     
 LSTPRO             FETCH  X1,LFN,X3                                                       LSTPRO       559     A     
 LSTPRO             STORE  X2,LFN=X3                                                       LSTPRO       560     A     
 LSTPRO                                                                                    LSTPRO       561     A     
 LSTPRO             IFEQ   CP#RM,7,1                                                       LSTPRO       562     A     
 LSTPRO             SETFIT X2          COMPS FDT INFO TO INPUT FIT                         LSTPRO       563     A     
 LSTPRO                                                                                    LSTPRO       564     A     
 LSTPRO    #RM      ENDIF                                                                  LSTPRO       565     A     
 LSTPRO                                                                                    LSTPRO       566     A     
 LSTPRO             EQ     =XLDCOM     EXIT TO LOAD *COMPASS* (1,0) OVERLAY                LSTPRO       567     A     
 LSTPRO    RST      EJECT                                                                  LSTPRO       568     A     
 LSTPRO   ***       INITIALIZE COMPILER FOR PASS 1 RESTART.                                LSTPRO       569     A     
 LSTPRO                                                                                    LSTPRO       570     A     
 LSTPRO   **        INITIALIZE TABLES.                                                     LSTPRO       571     A     
 LSTPRO   *                                                                                LSTPRO       572     A     
 LSTPRO    RST      MX6    6                                                               LSTPRO       573     A     
 LSTPRO             SA1    NRB          NATURAL REAL BITS                                  LSTPRO       574     A     
 LSTPRO             LX6    24+1         NATURAL INTEGER BITS                               LSTPRO       575     A     
 LSTPRO             BX7    X1                                                              LSTPRO       576     A     
 LSTPRO             SA6    IMPTYP       RESET NATURAL TYPE TABLE                           LSTPRO       577     A     
 LSTPRO             SA7    A6+B1                                                           LSTPRO       578     A     
 LSTPRO             BX6    X6-X6                                                           LSTPRO       579     A     
 LSTPRO             SA6    A7+B1                                                           LSTPRO       580     A     
 LSTPRO             SETZERO  ORIGINS,NTBLS   CLEAR TABLE MANAGER ORIGINS VECTORS           LSTPRO       581     A     
 LSTPRO             SETZERO  O.BATCH,L.BATCH CLEAR BATCH CONTROL CELLS                     LSTPRO       582     A     
 LSTPRO                                                                                    LSTPRO       583     A     
 LSTPRO                                                                                    LSTPRO       584     A     
 LSTPRO                                                                                    LSTPRO       585     A     
 LSTPRO   **        INITIALIZE MISCELLANEOUS CELLS.                                        LSTPRO       586     A     
 LSTPRO   *                                                                                LSTPRO       587     A     
 LSTPRO             SX7    2R                                                              FCC0220        9     A     
 LSTPRO             SX6    B1                                                              LSTPRO       588     A     
 LSTPRO             MX7    -1                                                              LSTPRO       589          I
          -FCC0220
 LSTPRO             LX7    59-11                                                           FCC0220       10     A     
 LSTPRO             SA6    N.AP        N.AP = 1      */ NEXT AVAIL APLIST NUMBER           LSTPRO       590     A     
 LSTPRO             SA7    =XO.STITL   BLANK OUT SUBTITLE LINE                             FCC0220       11          I
          -FEAT155E 
 LSTPRO             SA7    O.STITL     BLANK OUT SUBTITLE LINE                             FEAT155E     359     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1674    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO             SA6    N.GL        N.GL = 1      */ NEXT AVAIL GL NUMBER               LSTPRO       591     A     
 LSTPRO             SA7    P2NOGO                                                          LSTPRO       592          I
          -FCC0220
 LSTPRO             SA6    O.CEP       O.CEP = 1                                           LSTPRO       593     A     
 LSTPRO             SA6    SYMORD                                                          LSTPRO       594     A     
 LSTPRO             SA6    L.STITL     L.STITL = 1   */ SUBTITLE LENGTH                    LSTPRO       595     A     
 LSTPRO                                                                                    FCC0761       16     A     
 LSTPRO   *         RESTORE O.SYMTAB BECAUSE OF POSSIBLE STORAGE MOVES IN DEBUG            FCC0761       17     A     
 LSTPRO   *         MODE DURING LAST COMPILATION.  (DEBUG ALLOCATES FIXED TABLES           FCC0761       18     A     
 LSTPRO   *         ABOVE SYMTAB).                                                         FCC0761       19     A     
 LSTPRO                                                                                    FCC0761       20     A     
 LSTPRO             SA1    GL.SYM                                                          FCC0761       21     A     
 LSTPRO             BX6    X1                                                              FCC0761       22     A     
 LSTPRO             SA6    O.SYMTAB                                                        FCC0761       23     A     
 LSTPRO             SX6    2R                                                              LSTPRO       596          I
          -FCC0220
 LSTPRO             LX6    59-11                                                           LSTPRO       597          I
          -FCC0220
 LSTPRO             NO                                                                     LSTPRO       598          I
          -FCC0220
 LSTPRO             SA6    =XO.STITL   BLANK OUT SUBTITLE LINE                             LSTPRO       599          I
          -FCC0220
 LSTPRO                                                                                    LSTPRO       600     A     
 LSTPRO                                                                                    LSTPRO       601     A     
 LSTPRO                                                                                    LSTPRO       602     A     
 LSTPRO   **        RESET *SYMBOL* TABLE SEARCH SWITCHES TO PASS 1 CONDITIONS.             LSTPRO       603     A     
 LSTPRO   *                                                                                LSTPRO       604     A     
 LSTPRO             CALL   KSSW                                                            LSTPRO       605     A     
 LSTPRO                                                                                    LSTPRO       606     A     
 LSTPRO                                                                                    LSTPRO       607     A     
 LSTPRO                                                                                    LSTPRO       608     A     
 LSTPRO   **        REWIND INTERNAL SCRATCH FILES.  RESTORE PASS 1 INITIAL                 LSTPRO       609     A     
 LSTPRO   *         CONDITIONS AND STORAGE ALLOCATIONS IN FETS, FITS, PSEUDO-FETS.         LSTPRO       610     A     
 LSTPRO   *                                                                                LSTPRO       611     A     
 LSTPRO    .T       IFNE   TEST,0                                                          LSTPRO       612     A     
 LSTPRO             REWIND F.TEST                                                          LSTPRO       613     A     
 LSTPRO    .T       ENDIF                                                                  LSTPRO       614     A     
 LSTPRO                                                                                    LSTPRO       615     A     
 LSTPRO             SA1    =XUFLAG     UPDATE/EDIT (E) OPTION FLAG                         LSTPRO       616     A     
 LSTPRO             SA2    =XCAFLAG    COMPASS-TO-ASSEMBLE (C) OPTION FLAG                 LSTPRO       617     A     
 LSTPRO             BX6    X1+X2                                                           LSTPRO       618     A     
 LSTPRO             NO                                                                     LSTPRO       619     A     
 LSTPRO             NZ     X6,RST2     IF EITHER OPTION ON (MUST SAVE -CMPS- FILE)         LSTPRO       620     A     
 LSTPRO             REWIND F.CMPS,RCL                                                      LSTPRO       621     A     
 LSTPRO             SETFIL FILE=F.CMPS,MODE=RESET                                          LSTPRO       622     A     
 LSTPRO    RST2     SA1    =XRSELECT   REFERENCE MAP OPTION FLAG                           LSTPRO       623          I
          -FEAT155H 
 LSTPRO    RST2     SA1    MLOP=R      REFERENCE MAP OPTION FLAG                           FEAT155H     162     A     
 LSTPRO             PL     X1,RST3     IF NO LONG REF MAP (R=0 OR =1)                      LSTPRO       624     A     
 LSTPRO             REWIND F.RMAP,RCL                                                      LSTPRO       625     A     
 LSTPRO             SETFIL FILE=F.RMAP,MODE=RESET                                          LSTPRO       626     A     
 LSTPRO    RST3     REWIND F.RLST,RCL                                                      LSTPRO       627     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1675    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO             SETFIL FILE=F.RLST,MODE=RESET                                          LSTPRO       628     A     
 LSTPRO             SA2    =XFV.LGO                                                        LSTPRO       629     A     
 LSTPRO             ZR     X2,LST3     IF BINARY OUTPUT SUPPRESSED (B=0), EXIT             LSTPRO       630     A     
 LSTPRO                                                                                    LSTPRO       631     A     
 LSTPRO    #RM      IFEQ   CP#RM,0                                                         LSTPRO       632     A     
 LSTPRO             SA1    X2          (X1) = FET WORD 1                                   LSTPRO       633     A     
 LSTPRO             LX1    59-0                                                            LSTPRO       634     A     
 LSTPRO             MI     X1,RST4     IF FILE NOT BUSY                                    LSTPRO       635     A     
 LSTPRO             RECALL X2          WAIT FOR FILE QUIET                                 LSTPRO       636     A     
 LSTPRO    RST4     BSS    0                                                               LSTPRO       637     A     
 LSTPRO    #RM      ENDIF                                                                  LSTPRO       638     A     
 LSTPRO                                                                                    LSTPRO       639     A     
 LSTPRO             SETFIL FILE=F.LGO,MODE=RESET                                           LSTPRO       640     A     
 LSTPRO             EQ     LST3        EXIT TO RESTART BATCH COMPILATION                   LSTPRO       641     A     
 LSTPRO             SPACE  4                                                               LSTPRO       642     A     
 LSTPRO             LIST   F,X                                                             LSTPRO       643     A     
 LSTPRO    CDD      SPACE  4                                                               LSTPRO       644     A     
 LSTPRO   *IF -DEF,EXTCOMC,1                                                               LSTPRO       645          I
          -FCCA589
 LSTPRO   *CALL COMCCDD                                                                    LSTPRO       646     A     
 LSTPRO   *IF DEF,EXTCOMC,1                                                                LSTPRO       647          I
          -FCCA589
 LSTPRO    "PLCOMC" XTEXT  COMCCDD                                                         LSTPRO       648          I
          -FCCA589
 LSTPRO             SPACE  4                                                               LSTPRO       649     A     
 LSTPRO             ENTRY  CDD                                                             LSTPRO       650     A     
 LSTPRO    COD      SPACE  4                                                               LSTPRO       651     A     
 LSTPRO   *IF -DEF,EXTCOMC,1                                                               LSTPRO       652          I
          -FCCA589
 LSTPRO   *CALL COMCCOD                                                                    LSTPRO       653     A     
 LSTPRO   *IF DEF,EXTCOMC,1                                                                LSTPRO       654          I
          -FCCA589
 LSTPRO    "PLCOMC" XTEXT  COMCCOD                                                         LSTPRO       655          I
          -FCCA589
 LSTPRO             SPACE  4                                                               LSTPRO       656     A     
 LSTPRO             ENTRY  COD                                                             LSTPRO       657     A     
 LSTPRO    DXB      SPACE  4                                                               LSTPRO       658     A     
 LSTPRO   *IF -DEF,EXTCOMC,1                                                               LSTPRO       659          I
          -FCCA589
 LSTPRO   *CALL COMCDXB                                                                    LSTPRO       660     A     
 LSTPRO   *IF DEF,EXTCOMC,1                                                                LSTPRO       661          I
          -FCCA589
 LSTPRO    "PLCOMC" XTEXT  COMCDXB                                                         LSTPRO       662          I
          -FCCA589
 LSTPRO             SPACE  4                                                               LSTPRO       663     A     
 LSTPRO             ENTRY  DXB                                                             LSTPRO       664     A     
 LSTPRO    MVE=     SPACE  4                                                               LSTPRO       665     A     
 LSTPRO   *IF -DEF,EXTCOMC,1                                                               LSTPRO       666          I
          -FCCA589
 LSTPRO   *CALL COMCMVE                                                                    LSTPRO       667     A     
 LSTPRO   *IF DEF,EXTCOMC,1                                                                LSTPRO       668          I
          -FCCA589
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1676    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO    "PLCOMC" XTEXT  COMCMVE                                                         LSTPRO       669          I
          -FCCA589
 LSTPRO             SPACE  4                                                               LSTPRO       670     A     
 LSTPRO             ENTRY  MVE=                                                            LSTPRO       671     A     
 LSTPRO   *CALL COMCSFN                                                                    FCC1328X     552     A     
 LSTPRO    SFN      SPACE  4,8                                                             FCC1328X     553     A     
 LSTPRO             ENTRY  SFN                                                             FCC1328X     554     A     
 LSTPRO             SPACE  4                                                               LSTPRO       672     A     
 LSTPRO    #RM      IFEQ   CP#RM,0                                                         LSTPRO       673     A     
 LSTPRO    CIO=     SPACE  4                                                               LSTPRO       674     A     
 LSTPRO   *IF -DEF,EXTCOMC,1                                                               LSTPRO       675          I
          -FCCA589
 LSTPRO   *CALL COMCCIO                                                                    LSTPRO       676     A     
 LSTPRO   *IF DEF,EXTCOMC,1                                                                LSTPRO       677          I
          -FCCA589
 LSTPRO    "PLCOMC" XTEXT  COMCCIO                                                         LSTPRO       678          I
          -FCCA589
 LSTPRO             SPACE  4                                                               LSTPRO       679     A     
 LSTPRO             ENTRY  CIO=                                                            LSTPRO       680     A     
 LSTPRO    RDC=     SPACE  4                                                               LSTPRO       681     A     
 LSTPRO   *IF -DEF,EXTCOMC,1                                                               LSTPRO       682          I
          -FCCA589
 LSTPRO   *CALL COMCRDC                                                                    LSTPRO       683     A     
 LSTPRO   *IF DEF,EXTCOMC,1                                                                LSTPRO       684          I
          -FCCA589
 LSTPRO    "PLCOMC" XTEXT  COMCRDC                                                         LSTPRO       685          I
          -FCCA589
 LSTPRO             SPACE  4                                                               LSTPRO       686     A     
 LSTPRO             ENTRY  RDC=                                                            LSTPRO       687     A     
 LSTPRO    RDW=     SPACE  4                                                               LSTPRO       688     A     
 LSTPRO   *IF -DEF,EXTCOMC,1                                                               LSTPRO       689          I
          -FCCA589
 LSTPRO   *CALL COMCRDW                                                                    LSTPRO       690     A     
 LSTPRO   *IF DEF,EXTCOMC,1                                                                LSTPRO       691          I
          -FCCA589
 LSTPRO    "PLCOMC" XTEXT  COMCRDW                                                         LSTPRO       692          I
          -FCCA589
 LSTPRO             SPACE  4                                                               LSTPRO       693     A     
 LSTPRO             ENTRY  RDW=                                                            LSTPRO       694     A     
 LSTPRO    WTC=     SPACE  4                                                               LSTPRO       695     A     
 LSTPRO   *IF -DEF,EXTCOMC,1                                                               LSTPRO       696          I
          -FCCA589
 LSTPRO   *CALL COMCWTC                                                                    LSTPRO       697     A     
 LSTPRO   *IF DEF,EXTCOMC,1                                                                LSTPRO       698          I
          -FCCA589
 LSTPRO    "PLCOMC" XTEXT  COMCWTC                                                         LSTPRO       699          I
          -FCCA589
 LSTPRO             SPACE  4                                                               LSTPRO       700     A     
 LSTPRO             ENTRY  WTC=                                                            LSTPRO       701     A     
 LSTPRO    WTW=     SPACE  4                                                               LSTPRO       702     A     
 LSTPRO   *IF -DEF,EXTCOMC,1                                                               LSTPRO       703          I
          -FCCA589
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1677    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO   *CALL COMCWTW                                                                    LSTPRO       704     A     
 LSTPRO   *IF DEF,EXTCOMC,1                                                                LSTPRO       705          I
          -FCCA589
 LSTPRO    "PLCOMC" XTEXT  COMCWTW                                                         LSTPRO       706          I
          -FCCA589
 LSTPRO             SPACE  4                                                               LSTPRO       707     A     
 LSTPRO             ENTRY  WTW=                                                            LSTPRO       708     A     
 LSTPRO             SPACE  4                                                               LSTPRO       709     A     
 LSTPRO    #RM      ENDIF                                                                  LSTPRO       710     A     
 LSTPRO    FA=LOL   TITLE  FA=LOL - LIST ONE LINE                                          LSTPRO       711     A     
 LSTPRO   **        FA=LOL - LIST ONE LINE.                                                LSTPRO       712     A     
 LSTPRO   *                                                                                LSTPRO       713     A     
 LSTPRO   *                                                                                LSTPRO       714     A     
 LSTPRO   *         ENTRY  (B1) = 1                                                        LSTPRO       715     A     
 LSTPRO   *                (B6) = LINE BUFFER ADDRESS.                                     LSTPRO       716     A     
 LSTPRO   *                (B7) = LINE LENGTH (WORDS).                                     LSTPRO       717     A     
 LSTPRO   *                                                                                LSTPRO       718     A     
 LSTPRO   *         EXIT   (B1) = 1                                                        LSTPRO       719     A     
 LSTPRO   *                                                                                LSTPRO       720     A     
 LSTPRO   *         USES   X - 1, 2, 6, 7                                                  LSTPRO       721     A     
 LSTPRO   *                A - 1, 2, 6, 7                                                  LSTPRO       722     A     
 LSTPRO   *                B - 6                                                           LSTPRO       723     A     
 LSTPRO   *                                                                                LSTPRO       724     A     
 LSTPRO   *         CALLS  NUPAGE, WRITEC                                                  LSTPRO       725     A     
 LSTPRO                                                                                    LSTPRO       726     A     
 LSTPRO                                                                                    LSTPRO       727     A     
 LSTPRO    #RM      IFEQ   CP#RM,0                                                         LSTPRO       728     A     
 LSTPRO                                                                                    LSTPRO       729     A     
 LSTPRO    LOL2     WRITEC F.OUT,B6                                                        LSTPRO       730     A     
 LSTPRO                                                                                    LSTPRO       731     A     
 LSTPRO    FA=LOL   ENTRY. **          ** ENTRY/EXIT **                                    LSTPRO       732     A     
 LSTPRO             SA1    N.LINES     COMPLEMENT OF UNFILLED LINE COUNT                   LSTPRO       733     A     
 LSTPRO             SX6    X1+B1       DECR COUNT                                          LSTPRO       734     A     
 LSTPRO             SA6    A1                                                              LSTPRO       735     A     
 LSTPRO             MI     X6,LOL2     IF PAGE NOT FULL                                    LSTPRO       736     A     
 LSTPRO             SX7    B6+                                                             LSTPRO       737     A     
 LSTPRO             SA7    LOLA        TEMP SAVE LINE ADDRESS                              LSTPRO       738     A     
 LSTPRO             NUPAGE             EJECT AND TITLE PAGE                                LSTPRO       739     A     
 LSTPRO             SA1    N.LINES                                                         LSTPRO       740          I
          -FCC1200
 LSTPRO             SA2    LOLA                                                            LSTPRO       741     A     
 LSTPRO             SX6    X1+B1       DECR COUNT                                          LSTPRO       742          I
          -FCC1200
 LSTPRO             NO                                                                     LSTPRO       743          I
          -FCC1200
 LSTPRO             SB6    X2                                                              LSTPRO       744     A     
 LSTPRO             SA6    A1                                                              LSTPRO       745          I
          -FCC1200
 LSTPRO             EQ     LOL2                                                            LSTPRO       746     A     
 LSTPRO                                                                                    LSTPRO       747     A     
 LSTPRO    #RM      ELSE                                                                   LSTPRO       748     A     
 LSTPRO                                                                                    LSTPRO       749     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1678    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO    LOL2     WRITEC F.OUT,B6,B7                                                     LSTPRO       750     A     
 LSTPRO                                                                                    LSTPRO       751     A     
 LSTPRO    FA=LOL   ENTRY. **          ** ENTRY/EXIT **                                    LSTPRO       752     A     
 LSTPRO                                                                                    LSTPRO       753     A     
 LSTPRO             IFNE   TEST,0,1                                                        LSTPRO       754          I
          -FEAT155F 
 LSTPRO             LE     B7,B0,*+1S17      IF LENGTH ERROR, ABORT JOB                    LSTPRO       755          I
          -FEAT155F 
 LSTPRO                                                                                    LSTPRO       756          I
          -FEAT155F 
 LSTPRO             SA1    N.LINES     COMPLEMENT OF UNFILLED LINE COUNT                   LSTPRO       757     A     
 LSTPRO             SX6    X1+B1       DECREMENT LINE COUNT                                LSTPRO       758     A     
 LSTPRO             SA6    A1                                                              LSTPRO       759     A     
 LSTPRO             MI     X6,LOL2     IF PAGE NOT FULL                                    LSTPRO       760     A     
 LSTPRO             SX7    B7                                                              LSTPRO       761     A     
 LSTPRO             SX6    B6                                                              LSTPRO       762     A     
 LSTPRO             LX7    18D                                                             LSTPRO       763     A     
 LSTPRO             BX6    X7+X6                                                           LSTPRO       764     A     
 LSTPRO             SA6    LOLA        TEMP SAVE LINE LENGTH AND FWA                       LSTPRO       765     A     
 LSTPRO             NUPAGE             EJECT AND TITLE PAGE                                LSTPRO       766     A     
 LSTPRO             SA2    LOLA                                                            LSTPRO       767     A     
 LSTPRO             SA1    N.LINES                                                         LSTPRO       768          I
          -FCC1200
 LSTPRO             SB6    X2                                                              LSTPRO       769     A     
 LSTPRO             SX6    X1+B1       DECREMENT LINE COUNT                                LSTPRO       770          I
          -FCC1200
 LSTPRO             AX2    18D                                                             LSTPRO       771     A     
 LSTPRO             SA6    A1                                                              LSTPRO       772          I
          -FCC1200
 LSTPRO             SB7    X2                                                              LSTPRO       773     A     
 LSTPRO             EQ     LOL2                                                            LSTPRO       774     A     
 LSTPRO                                                                                    LSTPRO       775     A     
 LSTPRO    #RM      ENDIF                                                                  LSTPRO       776     A     
 LSTPRO                                                                                    LSTPRO       777     A     
 LSTPRO                                                                                    LSTPRO       778     A     
 LSTPRO                                                                                    LSTPRO       779     A     
 LSTPRO    LOLA     BSS    1           LINE LENGTH AND FWA TEMP SAVED HERE                 LSTPRO       780     A     
 LSTPRO    FA=NPG   TITLE  FA=NPG - EJECT AND TITLE NEW PAGE                               LSTPRO       781     A     
 LSTPRO   **        FA=NPG - EJECT AND TITLE NEW PAGE.                                     LSTPRO       782     A     
 LSTPRO   *                                                                                LSTPRO       783     A     
 LSTPRO   *                IF *BL* OPTION ON, UNCONDITIONALLY EJECTS, TITLES AND           LSTPRO       784     A     
 LSTPRO   *         SUBTITLES NEW PAGE.                                                    LSTPRO       785     A     
 LSTPRO   *                IF *BL* OPTION OFF, AND 8 OR MORE LINES REMAIN ON               LSTPRO       786     A     
 LSTPRO   *         CURRENT PAGE, SPACES 4 AND LISTS SUBTITLE ONLY.  IF LESS THAN          LSTPRO       787     A     
 LSTPRO   *         8 LINES REMAIN, EJECTS, TITLES AND SUBTITLES NEW PAGE.                 LSTPRO       788     A     
 LSTPRO   *         BEHAVES LIKE COMPASS *SPACE 4,4* DIRECTIVE.                            LSTPRO       789     A     
 LSTPRO   *                                                                                LSTPRO       790     A     
 LSTPRO   *                                                                                LSTPRO       791     A     
 LSTPRO   *         ENTRY  (B1) = 1                                                        LSTPRO       792     A     
 LSTPRO   *                                                                                LSTPRO       793     A     
 LSTPRO   *         EXIT   PAGE SPACED OR EJECTED, AND TITLED.                             LSTPRO       794     A     
 LSTPRO   *                (N.LINES) ADJUSTED (IF SPACE 4) OR RESET (IF EJECT).            LSTPRO       795     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1679    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO   *                (CP.PAGE) INCREMENTED IF PAGE EJECTED.                          LSTPRO       796     A     
 LSTPRO   *                (B1) = 1                                                        LSTPRO       797     A     
 LSTPRO   *                                                                                LSTPRO       798     A     
 LSTPRO   *         USES   X - 1, 2, 6, 7                                                  LSTPRO       799     A     
 LSTPRO   *                A - 1, 2, 6, 7                                                  LSTPRO       800     A     
 LSTPRO   *                B - NONE.                                                       LSTPRO       801     A     
 LSTPRO   *                                                                                LSTPRO       802     A     
 LSTPRO   *         CALLS  CDD, WRITEC                                                     LSTPRO       803     A     
 LSTPRO                                                                                    LSTPRO       804     A     
 LSTPRO                                                                                    LSTPRO       805     A     
 LSTPRO    FA=NPG   ENTRY. **          ** ENTRY/EXIT **                                    LSTPRO       806     A     
 LSTPRO             SA1    =XO.STITL   SET DOUBLE SPACE CODE IN SUBTITLE                   LSTPRO       807          I
          -FEAT155E 
 LSTPRO             SA1    O.STITL     SET DOUBLE SPACE CODE IN SUBTITLE                   FEAT155E     360     A     
 LSTPRO             SX2    1R0                                                             LSTPRO       808     A     
 LSTPRO             MX6    6                                                               LSTPRO       809     A     
 LSTPRO             LX2    54                                                              LSTPRO       810     A     
 LSTPRO             BX1    -X6*X1                                                          LSTPRO       811     A     
 LSTPRO             IX6    X2+X1                                                           LSTPRO       812     A     
 LSTPRO             SA6    =XO.STITL   FWA OF SUBTITLE LINE                                LSTPRO       813          I
          -FEAT155E 
 LSTPRO             SA6    O.STITL     FWA OF SUBTITLE LINE                                FEAT155E     361     A     
 LSTPRO             SA1    =XCP.BLF                                                        LSTPRO       814     A     
 LSTPRO             NZ     X1,NPG2     IF BURSTABLE LISTING                                LSTPRO       815     A     
 LSTPRO             SA1    N.LINES     CHECK SPACE LEFT ON CURRENT PAGE                    LSTPRO       816     A     
 LSTPRO             SX6    X1+8-1                                                          LSTPRO       817     A     
 LSTPRO             PL     X6,NPG2     IF LESS THAN 8 LINES LEFT                           LSTPRO       818     A     
 LSTPRO                                                                                    LSTPRO       819     A     
 LSTPRO   *         SPACE 4 AND SUBTITLE CURRENT PAGE.                                     LSTPRO       820     A     
 LSTPRO                                                                                    LSTPRO       821     A     
 LSTPRO             SX6    X1+4+1                                                          LSTPRO       822     A     
 LSTPRO             SA6    A1          UPDATE *LINES REMAINING* COUNT                      LSTPRO       823     A     
 LSTPRO             WRITEC F.OUT,(=1C-),1    TRIPLE SPACE                                  LSTPRO       824     A     
 LSTPRO             EQ     NPG3                                                            LSTPRO       825     A     
 LSTPRO                                                                                    LSTPRO       826     A     
 LSTPRO   *         EJECT, TITLE AND SUBTITLE NEW PAGE.                                    LSTPRO       827     A     
 LSTPRO                                                                                    LSTPRO       828     A     
 LSTPRO    NPG2     SA1    =XCP.PAGE   LAST PAGE NUMBER (BINARY INTEGER)                   LSTPRO       829     A     
 LSTPRO             MX6    -1                                                              LSTPRO       830     A     
 LSTPRO             IX7    X1-X6       PAGE NUMBER + 1                                     LSTPRO       831     A     
 LSTPRO             SX1    X7          REMOVE PROPAGATION BIT, IF PRESENT                  LSTPRO       832     A     
 LSTPRO             SA7    A1                                                              LSTPRO       833     A     
 LSTPRO             CALL   CDD         RETURNS (X6) = PAGE NUMBER (DISPLAY CODE)           LSTPRO       834     A     
 LSTPRO             MX7    24                                                              LSTPRO       835     A     
 LSTPRO             BX6    -X7*X6                                                          LSTPRO       836     A     
 LSTPRO             NO                                                                     LSTPRO       837          I
          -FCCA410
 LSTPRO             SB3    X6-1A1      FOR TEST OF FIRST PAGE                              FCCA410       29     A     
 LSTPRO             LX6    24                                                              LSTPRO       838     A     
 LSTPRO             SA6    TL.PAGE     UPDATE PAGE NUMBER IN TITLE LINE                    LSTPRO       839     A     
 LSTPRO             NZ     B3,NPG21    IF NOT FIRST PAGE                                   FCCA410       30     A     
 LSTPRO             SA5    CP.PD                                                           FCCA410       31          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1680    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
          -FCCA473
 LSTPRO             ZR     X5,NPG21    IF PD NOT SET                                       FCCA410       32          I
          -FCCA473
 LSTPRO             SA4    PDFLAG                                                          FCCA422       61          I
          -FCCA473
 LSTPRO             PL     X4,NPG21    IF PDFLAG OFF                                       FCCA422       62          I
          -FCCA473
 LSTPRO             SA4    =XCP.LSTF                                                       FCCA473       51     A     
 LSTPRO             ZR     X4,NPG21    IF L = 0                                            FCCA473       52     A     
 LSTPRO             SA4    =XCP.PAGE                                                       FCCA473       53     A     
 LSTPRO             LX4    1                                                               FCCA473       54     A     
 LSTPRO             MI     X4,NPG21    IF PD ALREADY WRITTEN OUT TO OUTPUT                 FCCA473       55     A     
 LSTPRO             LX4    59                                                              FCCA473       56     A     
 LSTPRO             SX5    B5                                                              FCCA473       57     A     
 LSTPRO             LX5    58                                                              FCCA473       58     A     
 LSTPRO             BX6    X4+X5                                                           FCCA473       59     A     
 LSTPRO             SA6    =XCP.PAGE                                                       FCCA473       60     A     
 LSTPRO             SA4    CP.PD                                                           FCCA473       61          I
          -FCCA593
 LSTPRO             SA5    =23550000000000000000B                                          FCCA473       62          I
          -FCCA534  -FCCA593
 LSTPRO             SA5    =24550000000000000000B                                          FCCA534       23          I
          -FCCA593
 LSTPRO             IX5    X4-X5                                                           FCCA473       63          I
          -FCCA593
 LSTPRO             ZR     X5,NPG21    IF PD = 6 DONOT OUTPUT PD                           FCCA473       64          I
          -FCCA534  -FCCA593
 LSTPRO             MI     X5,NPG21    IF PD = 6, DONOT OUTPUT PD                          FCCA534       24          I
          -FCCA593
 LSTPRO             SA4    CP.PD                                                           FCCA593       70     A     
 LSTPRO             ZR     X4,NPG21    IF TTY OUTPUT FILE                                  FCCA593       71     A     
 LSTPRO             WRITEC F.OUT,CP.PD,1                                                   FCCA410       33     A     
 LSTPRO             MX6    0                                                               FCCA422       63          I
          -FCCA473
 LSTPRO             SA6    PDFLAG      SET PDFLAG OFF                                      FCCA422       64          I
          -FCCA473
 LSTPRO    NPG21    SA1    CP.PS                                                           FCCA410       34          I
          -FCCA422
 LSTPRO             BX6    X1                                                              FCCA410       35          I
          -FCCA422
 LSTPRO             SA6    N.LINES                                                         FCCA410       36          I
          -FCCA422
 LSTPRO             SX6    -L.PAGE+3-1                                                     LSTPRO       840          I
          -FEAT155E 
 LSTPRO             SA1    CO.PS                                                           FEAT155E     362          I
          -FEAT155EA
 LSTPRO             SA1    CP.PS                                                           FEAT155EA     49          I
          -FCCA422
 LSTPRO    NPG21    SA1     LCP.PS                                                         FCCA422       65     A     
 LSTPRO             BX6    X1                                                              FEAT155E     363     A     
 LSTPRO             SA6    N.LINES     RESET FULL PAGE LINE COUNT                          LSTPRO       841     A     
 LSTPRO                                                                                    LSTPRO       842     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1681    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO   *         LIST TITLE AND SUBTITLE LINES.                                         LSTPRO       843     A     
 LSTPRO                                                                                    LSTPRO       844     A     
 LSTPRO             WRITEC F.OUT,O.TITL,L.TITL     / MAIN TITLE /                          LSTPRO       845     A     
 LSTPRO    NPG3     SA1    L.STITL                                                         LSTPRO       846     A     
 LSTPRO             WRITEC F.OUT,O.STITL,X1        / SUBTITLE /                            LSTPRO       847     A     
 LSTPRO                                                                                    LSTPRO       848     A     
 LSTPRO             EQ     FA=NPG      EXIT                                                LSTPRO       849     A     
 LSTPRO                                                                                    LSTPRO       850     A     
 LSTPRO                                                                                    LSTPRO       851     A     
 LSTPRO                                                                                    LSTPRO       852     A     
 LSTPRO    L.STITL  ENTRY. 1           SUBTITLE LINE LENGTH (WORDS)                        LSTPRO       853     A     
 LSTPRO             SPACE  4                                                               LSTPRO       854     A     
 LSTPRO    #RM      IFGE   CP#RM,6                                                         LSTPRO       855     A     
 LSTPRO             SPACE  4                                                               LSTPRO       856          I
          -FEAT126C 
 LSTPRO    FA=CLO   TITLE  FA=CLO - CLOSE FILE                                             LSTPRO       857          I
          -FEAT126C 
 LSTPRO             ENTRY  FA=CLO                                                          LSTPRO       858          I
          -FEAT126C 
 LSTPRO   *CALL     FA=CLO                                                                 LSTPRO       859     A     
 LSTPRO    FA=EOF   TITLE  FA=EOF - WRITE END-OF-FILE/PARTITION                            LSTPRO       860          I
          -FEAT126C 
 LSTPRO             ENTRY  FA=EOF                                                          LSTPRO       861          I
          -FEAT126C 
 LSTPRO    CLO      SPACE  4                                                               FEAT126C     229     A     
 LSTPRO             ENTRY  FA=CLO                                                          FEAT126C     230     A     
 LSTPRO   *CALL     FA=EOF                                                                 LSTPRO       862     A     
 LSTPRO    FA=EOR   TITLE  FA=EOR - WRITE END-OF-RECORD/SECTION                            LSTPRO       863          I
          -FEAT126C 
 LSTPRO             ENTRY  FA=EOR                                                          LSTPRO       864          I
          -FEAT126C 
 LSTPRO    EOF      SPACE  4                                                               FEAT126C     231     A     
 LSTPRO             ENTRY  FA=EOF                                                          FEAT126C     232     A     
 LSTPRO   *CALL  FA=EOR                                                                    LSTPRO       865     A     
 LSTPRO    FA=FLSH  TITLE  FA=FLSH - FLUSH FILE HOLDING BUFFER                             LSTPRO       866          I
          -FEAT126C 
 LSTPRO    EOR      SPACE  4                                                               FEAT126C     233     A     
 LSTPRO             ENTRY  FA=EOR                                                          FEAT126C     234     A     
 LSTPRO   *CALL     FA=FLSH                                                                LSTPRO       867     A     
 LSTPRO    FA=OPE   TITLE  FA=OPE - OPEN FILE                                              LSTPRO       868          I
          -FEAT126C 
 LSTPRO             ENTRY  FA=OPE                                                          LSTPRO       869          I
          -FEAT126C 
 LSTPRO   *CALL     FA=OPE                                                                 LSTPRO       870     A     
 LSTPRO    FA=RDC   TITLE  FA=RDC - READ CODED LINE, -C- FORMAT                            LSTPRO       871          I
          -FEAT126C 
 LSTPRO             ENTRY  FA=RDC                                                          LSTPRO       872          I
          -FEAT126C 
 LSTPRO    OPE      SPACE  4                                                               FEAT126C     235     A     
 LSTPRO             ENTRY  FA=OPE                                                          FEAT126C     236     A     
 LSTPRO   *CALL     FA=RDC                                                                 LSTPRO       873     A     
 LSTPRO    #RMA     ENDIF                                                                  LSTPRO       874          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1682    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
          -FEAT126C 
 LSTPRO    FA=RDW   TITLE  FA=RDW - READ WORDS TO WORKING BUFFER                           LSTPRO       875          I
          -FEAT126C 
 LSTPRO             ENTRY  FA=RDW                                                          LSTPRO       876          I
          -FEAT126C 
 LSTPRO    RDC      SPACE  4                                                               FEAT126C     237     A     
 LSTPRO             ENTRY  FA=RDC                                                          FEAT126C     238     A     
 LSTPRO   *CALL     FA=RDW                                                                 LSTPRO       877     A     
 LSTPRO    FA=RWX   TITLE  FA=RWX - REWIND FILE (EXTENDED)                                 LSTPRO       878          I
          -FEAT126C 
 LSTPRO             ENTRY  FA=RWX                                                          LSTPRO       879          I
          -FEAT126C 
 LSTPRO    RDW      SPACE  4                                                               FEAT126C     239     A     
 LSTPRO             ENTRY  FA=RDW                                                          FEAT126C     240     A     
 LSTPRO   *CALL     FA=RWX                                                                 LSTPRO       880     A     
 LSTPRO    FA=WTC   TITLE  FA=WTC - WRITE CODED LINE, -C- FORMAT                           LSTPRO       881          I
          -FEAT126C 
 LSTPRO             ENTRY  FA=WTC                                                          LSTPRO       882          I
          -FEAT126C 
 LSTPRO    RWX      SPACE  4                                                               FEAT126C     241     A     
 LSTPRO             ENTRY  FA=RWX                                                          FEAT126C     242     A     
 LSTPRO   *CALL     FA=WTC                                                                 LSTPRO       883     A     
 LSTPRO    FA=WTW   TITLE  FA=WTW - WRITE WORDS FROM WORKING BUFFER                        LSTPRO       884          I
          -FEAT126C 
 LSTPRO             ENTRY  FA=WTW                                                          LSTPRO       885          I
          -FEAT126C 
 LSTPRO    WTC      SPACE  4                                                               FEAT126C     243     A     
 LSTPRO             ENTRY  FA=WTC                                                          FEAT126C     244     A     
 LSTPRO   *CALL     FA=WTW                                                                 LSTPRO       886     A     
 LSTPRO    #RMA     ENDIF                                                                  LSTPRO       887          I
          -FEAT126C 
 LSTPRO             SPACE  4                                                               LSTPRO       888          I
          -FEAT126C 
 LSTPRO    WTW      SPACE  4                                                               FEAT126C     245     A     
 LSTPRO             ENTRY  FA=WTW                                                          FEAT126C     246     A     
 LSTPRO             SPACE  4                                                               LSTPRO       889     A     
 LSTPRO    #RM      ENDIF                                                                  LSTPRO       890     A     
 LSTPRO   *CALL FA=SET                                                                     LSTPRO       891     A     
 LSTPRO             SPACE  4                                                               LSTPRO       892     A     
 LSTPRO             ENTRY  FA=SET                                                          LSTPRO       893     A     
 LSTPRO    MPP      SPACE  4,8                                                             LSTPRO       894     A     
 LSTPRO   **        MPP - MAINTAIN PAGE PARITY.                                            LSTPRO       895     A     
 LSTPRO   *                                                                                LSTPRO       896     A     
 LSTPRO   *         ENTRY  (B1) = 1                                                        LSTPRO       897     A     
 LSTPRO   *                                                                                LSTPRO       898     A     
 LSTPRO   *         EXIT   PAGE EJECTED IF NECESSARY TO MAINTAIN EVEN PARITY.              LSTPRO       899     A     
 LSTPRO   *                (B1) = 1                                                        LSTPRO       900     A     
 LSTPRO   *                                                                                LSTPRO       901     A     
 LSTPRO   *         USES   X - 1, 2, 3, 6, 7                                               LSTPRO       902     A     
 LSTPRO   *                A - 1, 2, 3, 6                                                  LSTPRO       903     A     
 LSTPRO   *                B - NONE.                                                       LSTPRO       904     A     
 LSTPRO   *                                                                                LSTPRO       905     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1683    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO   *         CALLS  WRITEC                                                          LSTPRO       906     A     
 LSTPRO                                                                                    LSTPRO       907     A     
 LSTPRO                                                                                    LSTPRO       908     A     
 LSTPRO    MPP      ENTRY. **          ** ENTRY/EXIT **                                    LSTPRO       909     A     
 LSTPRO             SA5    =XCP.PAGE                                                       FCCA410       37     A     
 LSTPRO             SA1    =XCP.PAGE                                                       LSTPRO       910     A     
 LSTPRO             SA2    =XCP.LSTF                                                       LSTPRO       911     A     
 LSTPRO             SA3    =XCP.BLF                                                        LSTPRO       912     A     
 LSTPRO             BX6    X2*X1                                                           LSTPRO       913     A     
 LSTPRO             BX7    X3*X6       (X7) = 1 IF EJECT NEEDED, = 0 IF NOT                LSTPRO       914     A     
 LSTPRO             IX6    X1+X7                                                           LSTPRO       915     A     
 LSTPRO             PL     X6,MPP2     IF PAGE PROPAGATION SELECTED (P OPTION)             LSTPRO       916     A     
 LSTPRO             MX6    1                                                               LSTPRO       917          I
          -FCCA473
 LSTPRO             LX5    1                                                               FCCA473       65     A     
 LSTPRO             PL     X5,MPP1     IF CP.PAGE IS NOT SET                               FCCA473       66     A     
 LSTPRO             MX6    2                                                               FCCA473       67     A     
 LSTPRO             EQ     MPP2                                                            FCCA473       68     A     
 LSTPRO    MPP1     MX6    1                                                               FCCA473       69     A     
 LSTPRO    MPP2     SA6    A1          UPDATE OR RESET PAGE NUMBER                         LSTPRO       918     A     
 LSTPRO             ZR     X7,MPP      IF (EVEN PAGE COUNT) OR (SHORT/NO LIST)             LSTPRO       919     A     
 LSTPRO             WRITEC F.OUT,(=1C1),1    EJECT PAGE TO MAINTAIN EVEN PARITY            LSTPRO       920     A     
 LSTPRO             EQ     MPP         EXIT                                                LSTPRO       921     A     
 LSTPRO    OUTUSE   TITLE  OUTPUT * USE BLKNAM * TO -COMPS-                                LSTPRO       922     A     
 LSTPRO   **        OUTUSE - OUTPUT * USE BLKNAM * TO -COMPS-.                             LSTPRO       923     A     
 LSTPRO   *                                                                                LSTPRO       924     A     
 LSTPRO   *         ENTRY  (X6) = ADDRESS OF NEW BLOCK NAME (IN TABLE BELOW)               LSTPRO       925     A     
 LSTPRO   *                (C.BLOCK) = ADDRESS OF CURRENT BLOCK NAME                       LSTPRO       926     A     
 LSTPRO   *                                                                                LSTPRO       927     A     
 LSTPRO   *         EXIT   *USE* WRITTEN, IF DIFFERENT FROM CURRENT BLOCK.                 LSTPRO       928     A     
 LSTPRO   *                (B1) = 1                                                        LSTPRO       929     A     
 LSTPRO   *                (B5) = 1                                                        LSTPRO       930     A     
 LSTPRO   *                (C.BLOCK) = ADDRESS OF NEW BLOCK NAME                           LSTPRO       931     A     
 LSTPRO   *                                                                                LSTPRO       932     A     
 LSTPRO   *         USES   X - 1, 2, 3, 6, 7                                               LSTPRO       933     A     
 LSTPRO   *                A - 1, 2, 3, 6, 7                                               LSTPRO       934     A     
 LSTPRO   *                B - 1, 5                                                        LSTPRO       935     A     
 LSTPRO   *                                                                                LSTPRO       936     A     
 LSTPRO   *         CALLS  WRITEC                                                          LSTPRO       937     A     
 LSTPRO                                                                                    LSTPRO       938     A     
 LSTPRO                                                                                    LSTPRO       939     A     
 LSTPRO    OUTUSE   ENTRY. **          ** ENTRY/EXIT **                                    LSTPRO       940     A     
 LSTPRO             SA1    C.BLOCK     (X1) = ADDRESS OF CURRENT BLOCK NAME                LSTPRO       941     A     
 LSTPRO             SB1    1                                                               LSTPRO       942     A     
 LSTPRO             SA2    A1+B1       (X2) = *  USE XXXX*                                 LSTPRO       943     A     
 LSTPRO             IX7    X6-X1                                                           LSTPRO       944     A     
 LSTPRO             SA3    X6          (X3) = NEW BLOCK NAME                               LSTPRO       945     A     
 LSTPRO             MX1    6*6                                                             LSTPRO       946     A     
 LSTPRO             ZR     X7,OUTUSE   IF NEW NAME = CURRENT NAME, EXIT                    LSTPRO       947     A     
 LSTPRO                                                                                    LSTPRO       948     A     
 LSTPRO   *         ASSEMBLE * USE NEWBLOK * AND WRITE TO -COMPS-.                         LSTPRO       949     A     
 LSTPRO                                                                                    LSTPRO       950     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1684    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO             BX2    X1*X2       REMOVE OLD NAME FROM *USE*                          LSTPRO       951     A     
 LSTPRO             SA6    A1          NEW NAME ADDRESS TO (C.BLOCK)                       LSTPRO       952     A     
 LSTPRO             BX7    X1*X3                                                           LSTPRO       953     A     
 LSTPRO             BX1    -X1*X3                                                          LSTPRO       954     A     
 LSTPRO             SA7    A2+B1                                                           LSTPRO       955     A     
 LSTPRO             IX6    X2+X1                                                           LSTPRO       956     A     
 LSTPRO             SA6    A2                                                              LSTPRO       957     A     
 LSTPRO             WRITEC =XF.CMPS,A2,2     *  USE BLKNAM* TO -COMPS-                     LSTPRO       958     A     
 LSTPRO             SB5    1                                                               LSTPRO       959     A     
 LSTPRO             EQ     OUTUSE      EXIT                                                LSTPRO       960     A     
 LSTPRO                                                                                    LSTPRO       961     A     
 LSTPRO                                                                                    LSTPRO       962     A     
 LSTPRO                                                                                    LSTPRO       963     A     
 LSTPRO    C.BLOCK  ENTRY. 0           ADDRESS OF CURRENT BLOCK NAME                       LSTPRO       964     A     
 LSTPRO             DATA   12C  USE BLKNAM   (POSITIONALLY DEPENDENT, SEE CODE)            LSTPRO       965     A     
 LSTPRO                                                                                    LSTPRO       966     A     
 LSTPRO                                                                                    LSTPRO       967     A     
 LSTPRO                                                                                    LSTPRO       968     A     
 LSTPRO   **        BLOCK - FORM BLOCK NAME TABLE ENTRY.                                   LSTPRO       969     A     
 LSTPRO   *                                                                                LSTPRO       970     A     
 LSTPRO    BLOCK    MACRO  BLKNAM                                                          LSTPRO       971     A     
 LSTPRO    BNAM     MICRO  1,6, BLKNAM                                                     LSTPRO       972     A     
 LSTPRO             ENTRY  U"BNAM"                                                         LSTPRO       973     A     
 LSTPRO    FIRST4   MICRO  1,4, BLKNAM                                                     LSTPRO       974     A     
 LSTPRO    REST     MICRO  5,, BLKNAM                                                      LSTPRO       975     A     
 LSTPRO    U"BNAM"  VFD    36/0L"REST",24/4L"FIRST4"                                       LSTPRO       976     A     
 LSTPRO    BLOCK    ENDM                                                                   LSTPRO       977     A     
 LSTPRO                                                                                    LSTPRO       978     A     
 LSTPRO                                                                                    LSTPRO       979     A     
 LSTPRO                                                                                    LSTPRO       980     A     
 LSTPRO   **        BLOCK NAME TABLE.                                                      LSTPRO       981     A     
 LSTPRO   *                                                                                LSTPRO       982     A     
 LSTPRO             BLOCK  START.                                                          LSTPRO       983     A     
 LSTPRO             BLOCK  VARDIM.                                                         LSTPRO       984     A     
 LSTPRO             BLOCK  ENTRY.                                                          LSTPRO       985     A     
 LSTPRO             BLOCK  CODE.                                                           LSTPRO       986     A     
 LSTPRO             BLOCK  DATA.                                                           LSTPRO       987     A     
 LSTPRO             BLOCK  DATA..                                                          LSTPRO       988     A     
 LSTPRO             BLOCK  HOL.                                                            LSTPRO       989     A     
 LSTPRO    RPV      TITLE  REPRIEVE PROCESSOR                                              LSTPRO       990     A     
 LSTPRO   **        RPV - REPRIEVE PROCESSOR.                                              LSTPRO       991     A     
 LSTPRO   *                                                                                LSTPRO       992     A     
 LSTPRO   *         IF COMPILATION IS ABORTED DUE TO COMPILER ERROR, *RPV* GAINS           LSTPRO       993     A     
 LSTPRO   *         CONTROL TO FLUSH THE OUTPUT BUFFER AND POST DAYFILE MESSAGES           LSTPRO       994     A     
 LSTPRO   *         THAT IDENTIFY THE PROGRAM UNIT BEING COMPILED AND WHERE THE            LSTPRO       995     A     
 LSTPRO   *         ERROR OCCURRED.  IF THE COMPILER HAS BEEN ASSEMBLED IN TEST            LSTPRO       996     A     
 LSTPRO   *         MODE, ALL FILES IN AN OUTPUT MODE ARE FLUSHED.  FINALLY, THE           LSTPRO       997     A     
 LSTPRO   *         ORIGINAL ERROR CONDITION IS RESTORED TO PERMIT NORMAL *EXIT*           LSTPRO       998     A     
 LSTPRO   *         CONDITION PROCESSING.                                                  LSTPRO       999     A     
 LSTPRO   *                                                                                LSTPRO      1000     A     
 LSTPRO   *         ENTRY  NO REQUIREMENTS.                                                LSTPRO      1001     A     
 LSTPRO   *                                                                                LSTPRO      1002     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1685    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO   *         EXIT   MESSAGES POSTED AND BUFFERS FLUSHED.  REINSTATES THE            LSTPRO      1003     A     
 LSTPRO   *                ERROR CONDITION AND RETURNS CONTROL TO THE OPERATING            LSTPRO      1004     A     
 LSTPRO   *                SYSTEM.                                                         LSTPRO      1005     A     
 LSTPRO   *                                                                                LSTPRO      1006     A     
 LSTPRO   *         USES   X - ALL                                                         LSTPRO      1007     A     
 LSTPRO   *                A - 1, 2, 3, 5, 6, 7                                            LSTPRO      1008     A     
 LSTPRO   *                B - 1, 2                                                        LSTPRO      1009     A     
 LSTPRO   *                                                                                LSTPRO      1010     A     
 LSTPRO   *         CALLS  CDD, SYSTEM (RPV), WRITER                                       LSTPRO      1011     A     
 LSTPRO                                                                                    LSTPRO      1012     A     
 LSTPRO                                                                                    LSTPRO      1013     A     
 LSTPRO    #OS      IFEQ   .OS,0                                                           LSTPRO      1014          I
          -FEAT126A 
 LSTPRO    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A    1085     A     
 LSTPRO    XJP      VFD    12/0,18/LWARPV,30/0                                             LSTPRO      1015     A     
 LSTPRO    #OS      ELSE                                                                   LSTPRO      1016     A     
 LSTPRO    .T       IFEQ   TEST,0                                                          LSTPRO      1017     A     
 LSTPRO    XJP      VFD    12/0,18/LWARPV,6/0,24/05470000B                                 LSTPRO      1018     A     
 LSTPRO    .T       ELSE                                                                   LSTPRO      1019     A     
 LSTPRO    XJP      VFD    12/0,18/LWARPV,6/0,24/77770014B                                 LSTPRO      1020     A     
 LSTPRO    .T       ENDIF                                                                  LSTPRO      1021     A     
 LSTPRO    #OS      ENDIF                                                                  LSTPRO      1022     A     
 LSTPRO                                                                                    LSTPRO      1023     A     
 LSTPRO                                                                                    LSTPRO      1024     A     
 LSTPRO             BSSZ   16          EXCHANGE PACKAGE AND RA+1                           LSTPRO      1025     A     
 LSTPRO                                                                                    LSTPRO      1026     A     
 LSTPRO             SB1    1           **  REPRIEVE ENTRY POINT **                         LSTPRO      1027     A     
 LSTPRO                                                                                    LSTPRO      1028     A     
 LSTPRO    .T       IFEQ   TEST,0                                                          LSTPRO      1029     A     
 LSTPRO                                                                                    LSTPRO      1030     A     
 LSTPRO             MESSAGE   =XCOMPMSG,,RCL *COMPILING NNNNNNN*                           LSTPRO      1031     A     
 LSTPRO                                                                                    LSTPRO      1032     A     
 LSTPRO    .T       ELSE                                                                   LSTPRO      1033     A     
 LSTPRO                                                                                    LSTPRO      1034     A     
 LSTPRO   *         SAVE CONTENTS OF ENTRY POINTS THAT *RPV* WILL USE.                     LSTPRO      1035     A     
 LSTPRO                                                                                    LSTPRO      1036     A     
 LSTPRO             SA1    CDD                                                             LSTPRO      1037     A     
 LSTPRO             SA2    COD                                                             LSTPRO      1038     A     
 LSTPRO             BX6    X1                                                              LSTPRO      1039     A     
 LSTPRO             LX7    X2                                                              LSTPRO      1040     A     
 LSTPRO             SA6    RPVG                                                            LSTPRO      1041          I
          -CP139FC
 LSTPRO             SA6    RPVE                                                            CP139FC      232     A     
 LSTPRO             SA7    A6+B1                                                           LSTPRO      1042     A     
 LSTPRO    #OS      IFEQ   .OS,0                                                           LSTPRO      1043          I
          -FEAT126A 
 LSTPRO    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A    1086     A     
 LSTPRO             SA1    =XSYS=                                                          LSTPRO      1044     A     
 LSTPRO             SA2    =XWNB=                                                          LSTPRO      1045     A     
 LSTPRO             SA3    =XMSG=                                                          LSTPRO      1046     A     
 LSTPRO             BX6    X1                                                              LSTPRO      1047     A     
 LSTPRO             LX7    X2                                                              LSTPRO      1048     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1686    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO             SA6    A7+B1                                                           LSTPRO      1049     A     
 LSTPRO             SA7    A6+B1                                                           LSTPRO      1050     A     
 LSTPRO             BX6    X3                                                              LSTPRO      1051     A     
 LSTPRO             SA6    A7+B1                                                           LSTPRO      1052     A     
 LSTPRO    #RM      IFEQ   CP#RM,0                                                         LSTPRO      1053     A     
 LSTPRO             SA1    CIO=                                                            LSTPRO      1054     A     
 LSTPRO             BX6    X1                                                              LSTPRO      1055     A     
 LSTPRO             SA6    A6+B1                                                           LSTPRO      1056     A     
 LSTPRO    #RM      ENDIF                                                                  LSTPRO      1057     A     
 LSTPRO    #OS      ENDIF                                                                  LSTPRO      1058     A     
 LSTPRO                                                                                    LSTPRO      1059     A     
 LSTPRO    .T       ENDIF                                                                  LSTPRO      1060     A     
 LSTPRO                                                                                    LSTPRO      1061     A     
 LSTPRO             SA5    XJP                                                             LSTPRO      1062     A     
 LSTPRO             MX0    -17                                                             LSTPRO      1063     A     
 LSTPRO             LX5    24                                                              LSTPRO      1064     A     
 LSTPRO             BX1    -X0*X5      EXTRACT P REGISTER                                  LSTPRO      1065     A     
 LSTPRO             SB2    X1                                                              LSTPRO      1066     A     
 LSTPRO             GT     B2,B1,RPV2  IF P-REGISTER NOT CLEARED                           LSTPRO      1067     A     
 LSTPRO             SA5    RA.SSW                                                          LSTPRO      1068     A     
 LSTPRO             LX5    59-47+18                                                        LSTPRO      1069     A     
 LSTPRO             BX1    -X0*X5      EXTRACT P FROM RA+0                                 LSTPRO      1070     A     
 LSTPRO    RPV2     BSS    0                                                               LSTPRO      1071     A     
 LSTPRO                                                                                    LSTPRO      1072     A     
 LSTPRO    .T       IFNE   TEST,0                                                          LSTPRO      1073     A     
 LSTPRO    #OS      IFNE   .OS,0                                                           LSTPRO      1074          I
          -FEAT126A 
 LSTPRO    #OS      IFEQ   .OS,2       IF SCOPE 2                                          FEAT126A    1087     A     
 LSTPRO             BX7    X1                                                              LSTPRO      1075     A     
 LSTPRO             SA7    ERRP=                                                           LSTPRO      1076     A     
 LSTPRO    #OS      ENDIF                                                                  LSTPRO      1077     A     
 LSTPRO    .T       ENDIF                                                                  LSTPRO      1078     A     
 LSTPRO                                                                                    LSTPRO      1079     A     
 LSTPRO             SB7    RPV3        (B7) = RETURN ADDRESS                               LSTPRO      1080     A     
 LSTPRO             EQ     FRA=        FIND RELATIVE ADDRESS                               LSTPRO      1081     A     
 LSTPRO                                                                                    LSTPRO      1082     A     
 LSTPRO    RPV3     SA6    RPVB+1      ADDRESS AND ROUTINE NAME TO MSG TEXT                LSTPRO      1083          I
          -CP139FC
 LSTPRO    RPV3     SA6    RPVC+1      ADDRESS AND ROUTINE NAME TO MSG TEXT                CP139FC      233     A     
 LSTPRO             SA7    A6+B1                                                           LSTPRO      1084     A     
 LSTPRO                                                                                    LSTPRO      1085     A     
 LSTPRO   *         INDICATE LAST OVERLAY LOADED.                                          LSTPRO      1086     A     
 LSTPRO                                                                                    LSTPRO      1087     A     
 LSTPRO             SA1    RA.ORG      (X1) = LOADER CALL PARAM LIST WORD 1                LSTPRO      1088     A     
 LSTPRO             MX0    -6                                                              LSTPRO      1089     A     
 LSTPRO             LX1    6                                                               LSTPRO      1090     A     
 LSTPRO             BX6    -X0*X1      PRIMARY LEVEL                                       LSTPRO      1091     A     
 LSTPRO             LX1    6                                                               LSTPRO      1092     A     
 LSTPRO             BX7    -X0*X1      SECONDARY LEVEL                                     LSTPRO      1093     A     
 LSTPRO             LX6    12                                                              LSTPRO      1094     A     
 LSTPRO             SB2    X7          (B2) = SECONDARY OVERLAY LEVEL NUMBER               LSTPRO      1095     A     
 LSTPRO             BX7    X6+X7                                                           LSTPRO      1096     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1687    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO             SA2    RPVC+2      * - (0,0)  *                                        LSTPRO      1097          I
          -CP139FC
 LSTPRO             SA2    RPVD+2      * - (0,0)  *                                        CP139FC      234     A     
 LSTPRO             LX7    18                                                              LSTPRO      1098     A     
 LSTPRO             IX6    X2+X7                                                           LSTPRO      1099     A     
 LSTPRO             SA6    A2                                                              LSTPRO      1100     A     
 LSTPRO                                                                                    LSTPRO      1101     A     
 LSTPRO   *         INDICATE LAST SOURCE STATEMENT PROCESSED.  ISSUED ONLY IF              LSTPRO      1102     A     
 LSTPRO   *         (2,1), (2,2) OR (2,4) OVERLAY WAS LAST LOADED, SINCE VALID             LSTPRO      1103     A     
 LSTPRO   *         LINE NUMBER INFORMATION IS NOT AVAILABLE AT OTHER TIMES.               LSTPRO      1104     A     
 LSTPRO                                                                                    LSTPRO      1105     A     
 LSTPRO             SX1    15B         SHIFT TEST MASK FOR 1, 2 AND 4                      LSTPRO      1106     A     
 LSTPRO             LX1    58-3                                                            LSTPRO      1107     A     
 LSTPRO             LX1    B2                                                              LSTPRO      1108     A     
 LSTPRO             PL     X1,RPV7     IF 2NDARY OVERLAY LEVEL NOT 1, 2 OR 4               LSTPRO      1109     A     
 LSTPRO             SB3    B1+B1                                                           LSTPRO      1110     A     
 LSTPRO             SA1    DUKE                                                            LSTPRO      1111     A     
 LSTPRO             NE     B2,B3,RPV6  IF NOT IN OVERLAY (1,2)                             LSTPRO      1112     A     
 LSTPRO             IFNE   TEST,0,1                                                        LSTPRO      1113     A     
 LSTPRO             EQ     DMPTBL=                                                         LSTPRO      1114     A     
 LSTPRO                                                                                    LSTPRO      1115     A     
 LSTPRO    RPV5     SA1    LINENR                                                          LSTPRO      1116     A     
 LSTPRO             SX1    X1                                                              LSTPRO      1117     A     
 LSTPRO    RPV6     MX0    -12                                                             LSTPRO      1118     A     
 LSTPRO             CALL   CDD                                                             LSTPRO      1119     A     
 LSTPRO             BX6    X0*X4       CREATE 12-BIT ZERO BYTE MSG TERMINATOR              LSTPRO      1120     A     
 LSTPRO             SA6    RPVA+3      LINE NR TO MESSAGE TEXT                             LSTPRO      1121          I
          -CP139FC
 LSTPRO             SA6    RPVB+3      LINE NR TO MESSAGE TEXT                             CP139FC      235     A     
 LSTPRO                                                                                    LSTPRO      1122     A     
 LSTPRO   *         ISSUE THE DAYFILE MESSAGES.                                            LSTPRO      1123     A     
 LSTPRO                                                                                    LSTPRO      1124     A     
 LSTPRO             MESSAGE   RPVA,,RCL      * LAST STATEMENT BEGAN AT LINE NNNN*          LSTPRO      1125          I
          -CP139FC
 LSTPRO    RPV7     MESSAGE   RPVB,,RCL      * ERROR AT XXXXXX IN YYYYYYY*                 LSTPRO      1126          I
          -CP139FC
 LSTPRO             MESSAGE   RPVC,,RCL      * LAST OVERLAY LOADED - (P,S)*                LSTPRO      1127          I
          -CP139FC
 LSTPRO             MESSAGE   RPVB,,RCL      * LAST STATEMENT BEGAN AT LINE NNNN*          CP139FC      236     A     
 LSTPRO    RPV7     MESSAGE   RPVC,,RCL      * ERROR AT XXXXXX IN YYYYYYY*                 CP139FC      237     A     
 LSTPRO             MESSAGE   RPVD,,RCL      * LAST OVERLAY LOADED - (P,S)*                CP139FC      238     A     
 LSTPRO                                                                                    LSTPRO      1128     A     
 LSTPRO   *         FLUSH FILE I/O BUFFERS (DIRECT CIO I/O ONLY).                          LSTPRO      1129     A     
 LSTPRO                                                                                    LSTPRO      1130     A     
 LSTPRO    #RM      IFEQ   CP#RM,0                                                         LSTPRO      1131     A     
 LSTPRO             SA1    F.OUT                                                           LSTPRO      1132     A     
 LSTPRO             SX6    B1                                                              LSTPRO      1133     A     
 LSTPRO             BX7    X1+X6                                                           LSTPRO      1134     A     
 LSTPRO             SA7    A1          INSURE CIO COMPLETE BIT IS ON                       LSTPRO      1135     A     
 LSTPRO             WRITER A1,,RCL                                                         LSTPRO      1136     A     
 LSTPRO    .T       IFNE   TEST,0                                                          LSTPRO      1137     A     
 LSTPRO             SX6    3           FLUSH COUNT - 1  (LGO, CMPS, RLST, RMAP)            LSTPRO      1138     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1688    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO    RPV8     SA2    =XFV.LGO+X6 (X2) = NEXT FILE FET ADDRESS                        LSTPRO      1139     A     
 LSTPRO             SA6    RPVF        TEMP SAVE VECTOR OFFSET                             LSTPRO      1140     A     
 LSTPRO             ZR     X2,RPV9     IF FILE DESELECTED BY CONTROL CARD OPTION           LSTPRO      1141     A     
 LSTPRO             SA1    X2          (X1) = FET WORD 1                                   LSTPRO      1142     A     
 LSTPRO             MX0    -6                                                              LSTPRO      1143     A     
 LSTPRO             SX6    B1                                                              LSTPRO      1144     A     
 LSTPRO             BX7    X1+X6                                                           LSTPRO      1145     A     
 LSTPRO             SA3    RPVE        (X3) = SHIFT TEST MASK FOR CIO CODE                 LSTPRO      1146          I
          -CP139FC
 LSTPRO             SA3    RPVA        (X3) = SHIFT TEST MASK FOR CIO CODE                 CP139FC      239     A     
 LSTPRO             AX1    2                                                               LSTPRO      1147     A     
 LSTPRO             BX0    -X0*X1      EXTRACT CIO CODE                                    LSTPRO      1148     A     
 LSTPRO             SB2    X0                                                              LSTPRO      1149     A     
 LSTPRO             LX3    B2                                                              LSTPRO      1150     A     
 LSTPRO             PL     X3,RPV9     IF LAST CIO OP NOT OPEN OR WRITE                    LSTPRO      1151     A     
 LSTPRO             SA7    A1          INSURE CIO COMPLETE BIT IS ON                       LSTPRO      1152     A     
 LSTPRO             WRITER A1,,RCL     FLUSH BUFFER                                        LSTPRO      1153     A     
 LSTPRO    RPV9     SA1    RPVF                                                            LSTPRO      1154     A     
 LSTPRO             SX6    X1-1        (X6) = NEXT FILE OFFSET IN VECTOR TABLE             LSTPRO      1155     A     
 LSTPRO             PL     X6,RPV8     IF MORE FILES TO FLUSH                              LSTPRO      1156     A     
 LSTPRO    .T       ENDIF                                                                  LSTPRO      1157     A     
 LSTPRO    #RM      ENDIF                                                                  LSTPRO      1158     A     
 LSTPRO                                                                                    LSTPRO      1159     A     
 LSTPRO   *         RESTORE SAVED ENTRY POINT CONTENTS.                                    LSTPRO      1160     A     
 LSTPRO                                                                                    LSTPRO      1161     A     
 LSTPRO    .T       IFNE   TEST,0                                                          LSTPRO      1162     A     
 LSTPRO             SA1    RPVG                                                            LSTPRO      1163          I
          -CP139FC
 LSTPRO             SA1    RPVE                                                            CP139FC      240     A     
 LSTPRO             SA2    A1+B1                                                           LSTPRO      1164     A     
 LSTPRO             BX6    X1                                                              LSTPRO      1165     A     
 LSTPRO             LX7    X2                                                              LSTPRO      1166     A     
 LSTPRO             SA6    CDD                                                             LSTPRO      1167     A     
 LSTPRO             SA7    COD                                                             LSTPRO      1168     A     
 LSTPRO    #OS      IFEQ   .OS,0                                                           LSTPRO      1169          I
          -FEAT126A 
 LSTPRO    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A    1088     A     
 LSTPRO             SA1    A2+2        (WILL RESTORE SYS= LATER)                           LSTPRO      1170     A     
 LSTPRO             SA2    A1+B1                                                           LSTPRO      1171     A     
 LSTPRO             BX6    X1                                                              LSTPRO      1172     A     
 LSTPRO             LX7    X2                                                              LSTPRO      1173     A     
 LSTPRO             SA6    =XWNB=                                                          LSTPRO      1174     A     
 LSTPRO             SA7    =XMSG=                                                          LSTPRO      1175     A     
 LSTPRO    #RM      IFEQ   CP#RM,0                                                         LSTPRO      1176     A     
 LSTPRO             SA1    A2+B1                                                           LSTPRO      1177     A     
 LSTPRO             BX6    X1                                                              LSTPRO      1178     A     
 LSTPRO             SA6    CIO=                                                            LSTPRO      1179     A     
 LSTPRO    #RM      ENDIF                                                                  LSTPRO      1180     A     
 LSTPRO    #OS      ENDIF                                                                  LSTPRO      1181     A     
 LSTPRO    .T       ENDIF                                                                  LSTPRO      1182     A     
 LSTPRO                                                                                    LSTPRO      1183     A     
 LSTPRO   *         REINSTATE THE ERROR CONDITON.                                          LSTPRO      1184     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1689    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO                                                                                    LSTPRO      1185     A     
 LSTPRO    #OS      IFEQ   .OS,0                                                           LSTPRO      1186          I
          -FEAT126A 
 LSTPRO    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A    1089     A     
 LSTPRO             SX1    B1                                                              LSTPRO      1187     A     
 LSTPRO             LX1    35-0                                                            LSTPRO      1188     A     
 LSTPRO             SYSTEM RPV,,X1                                                         LSTPRO      1189     A     
 LSTPRO    .T       IFNE   TEST,0                                                          LSTPRO      1190     A     
 LSTPRO             SA1    RPVG+2      (X1) = SAVED (SYS=)                                 LSTPRO      1191          I
          -CP139FC
 LSTPRO             SA1    RPVE+2      (X1) = SAVED (SYS=)                                 CP139FC      241     A     
 LSTPRO             BX6    X1                                                              LSTPRO      1192     A     
 LSTPRO             SA6    =XSYS=      RESTORE PREVIOUS CONTENTS                           LSTPRO      1193     A     
 LSTPRO    .T       ENDIF                                                                  LSTPRO      1194     A     
 LSTPRO    +        EQ     *           WAIT FOR OP SYS TO PICK UP ERROR                    LSTPRO      1195     A     
 LSTPRO    #OS      ELSE                                                                   LSTPRO      1196     A     
 LSTPRO                                                                                    LSTPRO      1197     A     
 LSTPRO    .T       IFNE   TEST,0                                                          LSTPRO      1198     A     
 LSTPRO             SA1    XJP                                                             LSTPRO      1199          I
          -FEAT155F 
 LSTPRO             SA1    =XXJP                                                           FEAT155F     218     A     
 LSTPRO             CALL   DXP=        DUMP EXCHANGE PACKAGE                               LSTPRO      1200     A     
 LSTPRO    .T       ENDIF                                                                  LSTPRO      1201     A     
 LSTPRO             ABORT              *** TEMPORARY UNTIL SCOPE 2.0 REPRIEVE              LSTPRO      1202     A     
 LSTPRO   *                            *** RESET METHOD IS AVAILABLE.                      LSTPRO      1203     A     
 LSTPRO    #OS      ENDIF                                                                  LSTPRO      1204     A     
 LSTPRO                                                                                    LSTPRO      1205     A     
 LSTPRO                                                                                    LSTPRO      1206     A     
 LSTPRO    RPVA     DIS    ,* LAST STATEMENT BEGAN AT LINE ........*                       LSTPRO      1207          I
          -CP139FC
 LSTPRO    RPVB     DIS    ,* ERROR AT 000000 IN XXXXXXX*                                  LSTPRO      1208          I
          -CP139FC
 LSTPRO    RPVC     DIS    ,* LAST OVERLAY LOADED - (0,0)*                                 LSTPRO      1209          I
          -CP139FC
 LSTPRO                                                                                    LSTPRO      1210          I
          -CP139FC
 LSTPRO    .T       IFNE   TEST,0                                                          LSTPRO      1211     A     
 LSTPRO                                                                                    LSTPRO      1212          I
          -CP139FC
 LSTPRO    #OS      IFEQ   .OS,0                                                           LSTPRO      1213          I
          -FEAT126A 
 LSTPRO    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A    1090     A     
 LSTPRO    RPVE     BSS    0                                                               LSTPRO      1214          I
          -CP139FC
 LSTPRO    RPVA     BSS    0                                                               CP139FC      242     A     
 LSTPRO             ECHO   2,CIOCODE=(4B,14B,104B,120B,144B,160B)                          LSTPRO      1215     A     
 LSTPRO             POS    60-CIOCODE_S-2                                                  LSTPRO      1216     A     
 LSTPRO             VFD    1/1                                                             LSTPRO      1217     A     
 LSTPRO             POS    0                                                               CP139FC      243     A     
 LSTPRO             BSS    0                                                               LSTPRO      1218     A     
 LSTPRO    RPVF     DATA   0                                                               LSTPRO      1219          I
          -CP139FC
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1690    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO    #OS      ENDIF                                                                  LSTPRO      1220     A     
 LSTPRO                                                                                    LSTPRO      1221          I
          -CP139FC
 LSTPRO    RPVG     BSSZ   2           TO SAVE (CDD) AND (COD)                             LSTPRO      1222          I
          -CP139FC
 LSTPRO    #OS      IFEQ   .OS,0                                                           LSTPRO      1223          I
          -FEAT126A 
 LSTPRO    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      FEAT126A    1091          I
          -CP139FC
 LSTPRO             BSSZ   3           TO SAVE (SYS=), (WNB=) AND (MSG=)                   LSTPRO      1224          I
          -CP139FC
 LSTPRO    #RM      IFEQ   CP#RM,0                                                         LSTPRO      1225          I
          -CP139FC
 LSTPRO             BSSZ   1           TO SAVE (CIO=)                                      LSTPRO      1226          I
          -CP139FC
 LSTPRO    #RM      ENDIF                                                                  LSTPRO      1227          I
          -CP139FC
 LSTPRO    #OS      ELSE                                                                   LSTPRO      1228          I
          -CP139FC
 LSTPRO                                                                                    LSTPRO      1229          I
          -CP139FC
 LSTPRO    ERRP=    ENTRY. 0           SAVE ERROR ADDRESS                                  LSTPRO      1230          I
          -CP139FC
 LSTPRO                                                                                    LSTPRO      1231          I
          -CP139FC
 LSTPRO    #OS      ENDIF                                                                  LSTPRO      1232          I
          -CP139FC
 LSTPRO                                                                                    LSTPRO      1233          I
          -CP139FC
 LSTPRO    .T       ENDIF                                                                  LSTPRO      1234     A     
 LSTPRO             EJECT                                                                  LSTPRO      1235     A     
 LSTPRO    FRA      SPACE  4,8                                                             LSTPRO      1236     A     
 LSTPRO   **        FRA - FIND RELATIVE ADDRESS.                                           LSTPRO      1237     A     
 LSTPRO   *                                                                                LSTPRO      1238     A     
 LSTPRO   *                GIVEN AN ABSOLUTE ADDRESS, *FRA* FINDS THE ROUTINE              LSTPRO      1239     A     
 LSTPRO   *         NAME AND RELATIVE ADDRESS BY SEARCHING THE TABLES INSTALLED            LSTPRO      1240     A     
 LSTPRO   *         ORIGINALLY FOR *RPV* PROCESSING.                                       LSTPRO      1241     A     
 LSTPRO   *                                                                                LSTPRO      1242     A     
 LSTPRO   *                *FRA* DOES NOT USE A RETURN JUMP CALLING SEQUENCE               LSTPRO      1243     A     
 LSTPRO   *         BECAUSE IT IS LOCATED IN CODE SPACE CHECKSUMMED BY *RPV*.              LSTPRO      1244     A     
 LSTPRO   *                                                                                LSTPRO      1245     A     
 LSTPRO   *                                                                                LSTPRO      1246     A     
 LSTPRO   *         ENTRY  (X1) = ADDRESS RELATIVE TO RA+0                                 LSTPRO      1247     A     
 LSTPRO   *                (B7) = EXIT ADDRESS                                             LSTPRO      1248     A     
 LSTPRO   *                                                                                LSTPRO      1249     A     
 LSTPRO   *         EXIT   TO (B7), WITH ...                                               LSTPRO      1250     A     
 LSTPRO   *                (X4) = ADDRESS RELATIVE TO ROUTINE ORIGIN, H FORMAT             LSTPRO      1251     A     
 LSTPRO   *                (X6) = RELATIVE ADDRESS, DPC, *NNNNNN IN *                      LSTPRO      1252     A     
 LSTPRO   *                (X7) = ROUTINE NAME, DPC, L FORMAT                              LSTPRO      1253     A     
 LSTPRO   *                                                                                LSTPRO      1254     A     
 LSTPRO   *         USES   X - 0, 1, 2, 3, 6, 7                                            LSTPRO      1255     A     
 LSTPRO   *                A - 2                                                           LSTPRO      1256     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1691    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO   *                B - 2, 3                                                        LSTPRO      1257     A     
 LSTPRO   *                                                                                LSTPRO      1258     A     
 LSTPRO   *         CALLS  COD                                                             LSTPRO      1259     A     
 LSTPRO                                                                                    LSTPRO      1260     A     
 LSTPRO                                                                                    LSTPRO      1261     A     
 LSTPRO             QUAL   FRA                                                             LSTPRO      1262     A     
 LSTPRO                                                                                    LSTPRO      1263     A     
 LSTPRO    FRA=     SA2    FRAA                                                            LSTPRO      1264          I
          -CP139FC
 LSTPRO    FRA=     SB3    =XLWA2.0+1+LDR.NN                                               CP139FC      244     A     
 LSTPRO             SB2    X1          (B2) = ADDRESS RELATIVE TO RA+0                     LSTPRO      1265     A     
 LSTPRO             SB3    X2                                                              LSTPRO      1266          I
          -CP139FC
 LSTPRO             LT     B2,B3,FRA3  IF ADDRESS BELOW (0,0) OVERLAY ORIGIN               LSTPRO      1267          I
          -CP139FC
 LSTPRO             SB3    =XFWA2.0                                                        LSTPRO      1268          I
          -CP139FC
 LSTPRO             SA2    A2+1                                                            LSTPRO      1269          I
          -CP139FC
 LSTPRO             LT     B2,B3,FRA3  IF IN (0,0)                                         LSTPRO      1270          I
          -CP139FC
 LSTPRO             SB3    =XLWA2.0                                                        LSTPRO      1271          I
          -CP139FC
 LSTPRO             SA2    B3                                                              CP139FC      245     A     
 LSTPRO             GE     B2,B3,FRA2  IF ADDRESS IN (2,N) OVERLAY                         CP139FC      246     A     
 LSTPRO             SA2    =XFWA2.0                                                        LSTPRO      1272     A     
 LSTPRO             LE     B2,B3,FRA2  IF IN (2,0)                                         LSTPRO      1273          I
          -CP139FC
 LSTPRO             SA2    =XLWA2.0+2                                                      LSTPRO      1274          I
          -CP139FC
 LSTPRO                                                                                    LSTPRO      1275     A     
 LSTPRO   *         SEARCH ADDRESS TABLE.                                                  LSTPRO      1276     A     
 LSTPRO                                                                                    LSTPRO      1277     A     
 LSTPRO    FRA2     ZR     X2,FRA3     IF END OF TABLE                                     LSTPRO      1278          I
          -CP139FC
 LSTPRO             SB3    X2+                                                             LSTPRO      1279          I
          -CP139FC
 LSTPRO             LT     B2,B3,FRA3  IF WE JUST PASSED THE RIGHT ROUTINE ENTRY           LSTPRO      1280          I
          -CP139FC
 LSTPRO             SA2    A2+1                                                            LSTPRO      1281          I
          -CP139FC
 LSTPRO             EQ     FRA2                                                            LSTPRO      1282          I
          -CP139FC
 LSTPRO    FRA2     BX6    X2                                                              CP139FC      247     A     
 LSTPRO             SA2    A2+1        NEXT TABLE ENTRY                                    CP139FC      248     A     
 LSTPRO             SB3    X2                                                              CP139FC      249     A     
 LSTPRO             ZR     X2,FRA3     IF END OF TABLE                                     CP139FC      250     A     
 LSTPRO             GE     B2,B3,FRA2  IF ABS ADDR BEYOND CURRENT ENTRY                    CP139FC      251     A     
 LSTPRO                                                                                    LSTPRO      1283     A     
 LSTPRO   *         EXTRACT ROUTINE NAME AND FORMAT RELATIVE ADDRESS.                      LSTPRO      1284     A     
 LSTPRO                                                                                    LSTPRO      1285     A     
 LSTPRO    FRA3     SA2    A2-1        (X2) = ROUTINE NAME / FIRST WORD ADDRESS            LSTPRO      1286          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1692    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
          -CP139FC
 LSTPRO             MX7    42                                                              LSTPRO      1287          I
          -CP139FC
 LSTPRO             SX3    X2          EXTRACT FWA                                         LSTPRO      1288          I
          -CP139FC
 LSTPRO             BX0    X7*X2                                                           LSTPRO      1289          I
          -CP139FC
 LSTPRO    FRA3     MX7    42                                                              CP139FC      252     A     
 LSTPRO             SX3    X6          EXTRACT FWA                                         CP139FC      253     A     
 LSTPRO             BX0    X7*X6       EXTRACT ROUTINE NAME                                CP139FC      254     A     
 LSTPRO             IX1    X1-X3       (X1) = ADDRESS RELATIVE TO ROUTINE ORIGIN           LSTPRO      1290     A     
 LSTPRO             RJ     COD         CONVERT TO OCTAL DISPLAY CODE                       LSTPRO      1291     A     
 LSTPRO             LX6    24D                                                             LSTPRO      1292     A     
 LSTPRO             SX3    2R  &2RIN                                                       LSTPRO      1293     A     
 LSTPRO             LX3    6                                                               LSTPRO      1294     A     
 LSTPRO             BX6    X6-X3       (X6) = RELATIVE ADDRESS, *NNNNNN IN *               LSTPRO      1295     A     
 LSTPRO             LX7    X0          (X7) = ROUTINE NAME, L FORMAT                       LSTPRO      1296     A     
 LSTPRO             JP     B7          EXIT ...                                            LSTPRO      1297     A     
 LSTPRO                                                                                    LSTPRO      1298          I
          -CP139FC
 LSTPRO                                                                                    LSTPRO      1299          I
          -CP139FC
 LSTPRO                                                                                    LSTPRO      1300          I
          -CP139FC
 LSTPRO             VFD    42/4LRA+0,18/0                                                  LSTPRO      1301          I
          -CP139FC
 LSTPRO    FRAA     VFD    42/3LFTN,18/RA.ORG+1                                            LSTPRO      1302          I
          -CP139FC
 LSTPRO             SPACE  4                                                               LSTPRO      1303     A     
 LSTPRO             QUAL   *                                                               LSTPRO      1304     A     
 LSTPRO                                                                                    LSTPRO      1305     A     
 LSTPRO    FRA=     =      /FRA/FRA=                                                       LSTPRO      1306     A     
 LSTPRO             ENTRY  FRA=                                                            LSTPRO      1307     A     
 LSTPRO             SPACE  4                                                               LSTPRO      1308          I
          -CP139FC
 LSTPRO    LWARPV   BSS    0           *** END OF CHECKSUMMED REPRIEVE CODE ***            LSTPRO      1309          I
          -CP139FC
 LSTPRO    RPV      SPACE  4,8                                                             CP139FC      255     A     
 LSTPRO             BSS    0                                                               CP139FC      256     A     
 LSTPRO    LWARPV   =      *-1         *** END OF CHECKSUMMED REPRIEVE CODE ***            CP139FC      257     A     
 LSTPRO    RPV      SPACE  4,8                                                             CP139FC      258     A     
 LSTPRO    RPVB     DIS    ,* LAST STATEMENT BEGAN AT LINE ........*                       CP139FC      259     A     
 LSTPRO    RPVC     DIS    ,* ERROR AT 000000 IN XXXXXXX*                                  CP139FC      260     A     
 LSTPRO    RPVD     DIS    ,* LAST OVERLAY LOADED - (0,0)*                                 CP139FC      261     A     
 LSTPRO                                                                                    CP139FC      262     A     
 LSTPRO    .T       IFNE   TEST,0                                                          CP139FC      263     A     
 LSTPRO                                                                                    CP139FC      264     A     
 LSTPRO    RPVE     BSSZ   2           TO SAVE (CDD) AND (COD)                             CP139FC      265     A     
 LSTPRO    #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      CP139FC      266     A     
 LSTPRO             BSSZ   3           TO SAVE (SYS=), (WNB=) AND (MSG=)                   CP139FC      267     A     
 LSTPRO    #RM      IFEQ   CP#RM,0                                                         CP139FC      268     A     
 LSTPRO             BSSZ   1           TO SAVE (CIO=)                                      CP139FC      269     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1693    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO    RPVF     BSSZ   1           COUNT-1 OF FILES TO FLUSH                           CP139FC      270     A     
 LSTPRO    #RM      ENDIF                                                                  CP139FC      271     A     
 LSTPRO    #OS      ELSE                                                                   CP139FC      272     A     
 LSTPRO    ERRP=    ENTRY. 0           SAVE ERROR ADDRESS                                  CP139FC      273     A     
 LSTPRO    #OS      ENDIF                                                                  CP139FC      274     A     
 LSTPRO                                                                                    CP139FC      275     A     
 LSTPRO    .T       ENDIF                                                                  CP139FC      276     A     
 LSTPRO    SETCORE  TITLE  SET BLOCK OF MEMORY TO A GIVEN VALUE                            LSTPRO      1310     A     
 LSTPRO   **        SETCORE - SET BLOCK OF MEMORY TO A GIVEN VALUE.                        LSTPRO      1311     A     
 LSTPRO   *                                                                                LSTPRO      1312     A     
 LSTPRO   *                                                                                LSTPRO      1313     A     
 LSTPRO   *         ENTRY  (X1) = BLOCK LENGTH                                             LSTPRO      1314     A     
 LSTPRO   *                (X6) = VALUE TO SET                                             LSTPRO      1315     A     
 LSTPRO   *                (A6) = BLOCK FWA (WORD 1 ALREADY STORED)                        LSTPRO      1316     A     
 LSTPRO   *                                                                                LSTPRO      1317     A     
 LSTPRO   *         EXIT   (X6) = UNCHANGED                                                LSTPRO      1318     A     
 LSTPRO   *                (X7) = (X6)                                                     LSTPRO      1319     A     
 LSTPRO   *                (A6) = BLOCK LWA                                                LSTPRO      1320     A     
 LSTPRO   *                (B1) = 1                                                        LSTPRO      1321     A     
 LSTPRO   *                                                                                LSTPRO      1322     A     
 LSTPRO   *         USES   X - 1, 2, 7                                                     LSTPRO      1323     A     
 LSTPRO   *                A - 6, 7                                                        LSTPRO      1324     A     
 LSTPRO   *                B - 1                                                           LSTPRO      1325     A     
 LSTPRO   *                                                                                LSTPRO      1326     A     
 LSTPRO   *         CALLS  NONE                                                            LSTPRO      1327     A     
 LSTPRO                                                                                    LSTPRO      1328     A     
 LSTPRO                                                                                    LSTPRO      1329     A     
 LSTPRO    SETC2    SA7    A6+1                                                            LSTPRO      1330     A     
 LSTPRO             IX1    X1-X2                                                           LSTPRO      1331     A     
 LSTPRO             SA6    A7+B1                                                           LSTPRO      1332     A     
 LSTPRO             PL     X1,SETC2    IF ALL OF BLOCK NOT SET                             LSTPRO      1333     A     
 LSTPRO                                                                                    LSTPRO      1334     A     
 LSTPRO    SETCORE  ENTRY. **          ** ENTRY/EXIT **                                    LSTPRO      1335     A     
 LSTPRO                                                                                    LSTPRO      1336     A     
 LSTPRO    .T       IFNE   TEST,0                                                          LSTPRO      1337     A     
 LSTPRO             SB1    X1                                                              LSTPRO      1338     A     
 LSTPRO             LE     B1,B0,*+1S17      IF LENGTH ERROR, ABORT JOB                    LSTPRO      1339     A     
 LSTPRO    .T       ENDIF                                                                  LSTPRO      1340     A     
 LSTPRO                                                                                    LSTPRO      1341     A     
 LSTPRO             SX2    1                                                               LSTPRO      1342     A     
 LSTPRO             NO                                                                     LSTPRO      1343     A     
 LSTPRO             BX7    -X1*X2      EXTRACT COMPLEMENT OF LSB                           LSTPRO      1344     A     
 LSTPRO             SB1    X7          (B1) = 1 IF LENGTH EVEN, = 0 IF ODD                 LSTPRO      1345     A     
 LSTPRO             SX1    X1-3        DECREMENT LENGTH                                    LSTPRO      1346     A     
 LSTPRO             SA6    A6+B1       SET 2ND WORD IF LENGTH WAS EVEN                     LSTPRO      1347     A     
 LSTPRO             LX2    1           (X2) = 2                                            LSTPRO      1348     A     
 LSTPRO             SB1    1                                                               LSTPRO      1349     A     
 LSTPRO             BX7    X6                                                              LSTPRO      1350     A     
 LSTPRO             PL     X1,SETC2    IF ALL OF BLOCK NOT SET                             LSTPRO      1351     A     
 LSTPRO             EQ     SETCORE     EXIT                                                LSTPRO      1352     A     
 LSTPRO             TITLE  STORAGE DECLARATIONS                                            LSTPRO      1353     A     
 LSTPRO   *         *COMPILING ...* MESSAGE FOR B-DISPLAY / PROGRAM UNIT NAME              FEAT155H     163     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1694    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO   *                                                                                FEAT155H     164     A     
 LSTPRO    COMPMSG  ENTRY. 10HCOMPILING                                                    FEAT155H     165     A     
 LSTPRO    PROGNAM  ENTRY. 0           PROGRAM UNIT NAME, 42/7H_NNN....,18/0               FEAT155H     166     A     
 LSTPRO                                                                                    FEAT155H     167     A     
 LSTPRO   *         WORKING COPY OF LISTING CONTROL FLAGS                                  FEAT155H     168     A     
 LSTPRO                                                                                    FEAT155H     169     A     
 LSTPRO    LSTWRKG  BSS    0                                                               FEAT155H     170     A     
 LSTPRO             ENTRY  LSTWRKG                                                         FEAT155H     171     A     
 LSTPRO    ANSI     ENTRY.                                                                 FEAT155H     172     A     
 LSTPRO    IEFLG    ENTRY.                                                                 FEAT155H     173     A     
 LSTPRO    LOP=M    ENTRY.                                                                 FEAT155H     174     A     
 LSTPRO    LOP=O    ENTRY.                                                                 FEAT155H     175     A     
 LSTPRO    LOP=R    ENTRY.                                                                 FEAT155H     176     A     
 LSTPRO    LOP=W    EQENT  IEFLG                                                           FEAT155H     177     A     
 LSTPRO    LOP=X    EQENT  ANSI                                                            FEAT155H     178     A     
 LSTPRO    OLIST    EQENT  LOP=O                                                           FEAT155H     179     A     
 LSTPRO    RSELECT  EQENT  LOP=R                                                           FEAT155H     180     A     
 LSTPRO    R=FLAG   ENTRY.                                                                 FEAT155H     181     A     
 LSTPRO                                                                                    FEAT155H     182     A     
 LSTPRO   *         SUBTITLE LINE                                                          FEAT155H     183     A     
 LSTPRO                                                                                    FEAT155H     184     A     
 LSTPRO    O.STITL  ENTRY. 2L                                                              FEAT155H     185     A     
 LSTPRO             DIS    6,                                                              FEAT155H     186     A     
 LSTPRO   *         SPACE FOR THE ERROR TABLE                                              LSTPRO      1354     A     
 LSTPRO   *                                                                                LSTPRO      1355     A     
 LSTPRO             USE    /TABLES/                                                        LSTPRO      1356     A     
 LSTPRO    SIZE     EQU    ERRMAX*2+2        SIZE OF THE ERROR TABLE                       LSTPRO      1357     A     
 LSTPRO             BSS    SIZE              THE ERROR TABLE                               LSTPRO      1358     A     
 LSTPRO             IFLT   SIZE,130,1                                                      LSTPRO      1359     A     
 LSTPRO             BSS    130-SIZE          THIS AREA IS ALSO USED BY JAMMER              LSTPRO      1360     A     
 LSTPRO   *                                  AND THE REFMAP AND THE THE ASSEMBLER          LSTPRO      1361     A     
 LSTPRO             USE    *                                                               LSTPRO      1362     A     
 LSTPRO                                                                                    LSTPRO      1363     A     
 LSTPRO    N.AP     ENTRY. 1           PASS 1 - NEXT AVAIL AP NUMBER                       LSTPRO      1364     A     
 LSTPRO    N.GL     ENTRY. 1           PASS 1 - NEXT GL NUMBER                             LSTPRO      1365     A     
 LSTPRO   *                            PASS 2 - NUMBER OF AP/GL"S                          LSTPRO      1366     A     
 LSTPRO                                                                                    LSTPRO      1367     A     
 LSTPRO   *         HASH TABLES FOR SYMBOL AND LABEL                                       LSTPRO      1368     A     
 LSTPRO                                                                                    LSTPRO      1369     A     
 LSTPRO    SYMORD   ENTRY.  1                LAST ORDINAL + 1                              LSTPRO      1370     A     
 LSTPRO    O.BATCH  =      *                 ** BEGIN BATCH CONTROL AREA **                LSTPRO      1371     A     
 LSTPRO    SLIST    BSSZ   128                                                             LSTPRO      1372     A     
 LSTPRO    LLIST    BSSZ   32                                                              LSTPRO      1373     A     
 LSTPRO                                                                                    LSTPRO      1374     A     
 LSTPRO    N.LINES  ENTRY. 0                 NR UNFILLED LINES ON PAGE (BINARY)            LSTPRO      1375     A     
 LSTPRO                                                                                    LSTPRO      1376     A     
 LSTPRO    N.COM    ENTRY.                   NUMBER OF COMMON BLOCKS                       LSTPRO      1377     A     
 LSTPRO                                                                                    LSTPRO      1378     A     
 LSTPRO    ORGTAB   ENTRY.                   42/7LNAME,18/LENGTH                           LSTPRO      1379     A     
 LSTPRO             BSSZ   M.NCB                                                           LSTPRO      1380     A     
 LSTPRO                                                                                    LSTPRO      1381     A     
 LSTPRO   *         THE FOLLOWING CELLS HOLD THE LENGTH OF LOCAL RELOCATION BASES          LSTPRO      1382     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1695    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO                                                                                    LSTPRO      1383     A     
 LSTPRO             ENTRY  O.LBLK                                                          LSTPRO      1384     A     
 LSTPRO    O.LBLK   EQU    *                 FWA OF LOCAL BLOCK TABLE                      LSTPRO      1385     A     
 LSTPRO    START.   ENTRY.                   START.                                        LSTPRO      1386     A     
 LSTPRO    VARDIM.  ENTRY.                   VARDIM.                                       LSTPRO      1387     A     
 LSTPRO    EPOINT.  ENTRY.                   ENTRY.                                        LSTPRO      1388     A     
 LSTPRO    CODE.    ENTRY.                   CODE.                                         LSTPRO      1389     A     
 LSTPRO    DATA.    ENTRY.                   DATA.                                         LSTPRO      1390     A     
 LSTPRO    DATA..   ENTRY.                   DATA..                                        LSTPRO      1391     A     
 LSTPRO    HOL.     ENTRY.                   HOL.                                          LSTPRO      1392     A     
 LSTPRO    N.LRB    EQU    *-O.LBLK          NUMBER OF LOCAL BLOCKS                        LSTPRO      1393     A     
 LSTPRO    SDATA.   ENTRY. 0                                                               LSTPRO      1394     A     
 LSTPRO                                                                                    LSTPRO      1395     A     
 LSTPRO   *         N.XX - NUMBER OF LOCATIONS TO ASSIGN TO XX.                            LSTPRO      1396     A     
 LSTPRO                                                                                    LSTPRO      1397     A     
 LSTPRO    N.ST     ENTRY. 0           STATEMENT TEMPORARIES ( FUNCTION CALLS )            LSTPRO      1398     A     
 LSTPRO    N.OT     ENTRY. 0           OPTIMIZING TEMPORARIES ( CODE GENERATOR )           LSTPRO      1399     A     
 LSTPRO    N.DO     ENTRY. 0           DO TEMPORARIES ( INDEX FUNCTIONS )                  LSTPRO      1400     A     
 LSTPRO    N.VD     ENTRY. 0           VARDIM TEMPS ( VARIABLE DIMENSION CALC )            LSTPRO      1401     A     
 LSTPRO    N.IT     ENTRY. 0           INTERMEDIATE TEMPS ( INVARIANT EXPRESSIONS )        LSTPRO      1402     A     
 LSTPRO                                                                                    LSTPRO      1403     A     
 LSTPRO    LINENR   ENTRY. 0           INITIAL LINE NUMBER OF STMT/SEQUENCE                LSTPRO      1404     A     
 LSTPRO   *                                  BEING PROCESSED ( PASS 1/2 ).                 LSTPRO      1405     A     
 LSTPRO    N.EXST   ENTRY. 0           N. EXECUTABLE STMTS / N. *BOS"S*                    LSTPRO      1406     A     
 LSTPRO    N.FILES  ENTRY.                   NUMBER OF FILES FOR A MAIN PROGRAM            LSTPRO      1407     A     
 LSTPRO    N.EQUF   ENTRY.             NR OF EQUIVALENCED FILES                            FCC2064        5     A     
 LSTPRO    IOAPLN   ENTRY.                   HOLDS I/O APLIST NUMBER                       LSTPRO      1408     A     
 LSTPRO    XFRNAME  ENTRY.                   XFER NAME OR 0                                LSTPRO      1409     A     
 LSTPRO    FUNTYPE  ENTRY. 0                 0 OR NUM OF WORDS IN FUNCTION RESULT          LSTPRO      1410     A     
 LSTPRO    N.FP     ENTRY.                   NUMBER OF FORMAL PARAMETERS                   LSTPRO      1411     A     
 LSTPRO    RETURNS  ENTRY. 0           "0 IF RETURNS S ON CALL PARAMETER LISTS             LSTPRO      1412     A     
 LSTPRO    FSTEX    ENTRY.                   LINE NUMBER OF FIRST EXECUTABLE STMT          LSTPRO      1413     A     
 LSTPRO    VARDIM   ENTRY.                   .NE. 0 IF F.P. S WITH VARIABLE DIMS           LSTPRO      1414     A     
 LSTPRO    LEVEL    ENTRY.                   .NE. 0 IF LEVEL STATEMENTS APPEARED           LSTPRO      1415     A     
 LSTPRO    LEVEL2   ENTRY. 0                 .NZ. IF LEVEL 2 STATEMENTS APPEARED           LSTPRO      1416          I
          -FCC0504
 LSTPRO    LEVEL2   ENTRY. 0           .NZ. IF LCM-RESIDENT SYMBOLS DECLARED               FCC0504        6     A     
 LSTPRO    N.TLAB   ENTRY.                   NUMBER OF LABELS BEING TRACED ( D OPT         LSTPRO      1417     A     
 LSTPRO                                                                                    LSTPRO      1418     A     
 LSTPRO   *         LOOP INFORMATION TABLE USED BY "REFMAP"                                LSTPRO      1419     A     
 LSTPRO                                                                                    LSTPRO      1420     A     
 LSTPRO    O.LOOP   ENTRY.                   FWA OF LOOP TABLE ( PASS 2 )                  LSTPRO      1421     A     
 LSTPRO    L.LOOP   ENTRY.                   LENGTH ( SET IN PASS 1 BY DOPROC )            LSTPRO      1422     A     
 LSTPRO                                                                                    LSTPRO      1423     A     
 LSTPRO   *         FLAGS ASSOCIATED WITH ERROR PROCESSING                                 LSTPRO      1424     A     
 LSTPRO                                                                                    LSTPRO      1425     A     
 LSTPRO    N.ERROR  ENTRY.                   NUMBER OF ERRORS                              LSTPRO      1426     A     
 LSTPRO    N.FERR   ENTRY.                   NUMBER OF FATAL ERRORS                        LSTPRO      1427     A     
 LSTPRO    E.UDEFL  ENTRY.                   NON ZERO IF MISSING LABELS                    LSTPRO      1428     A     
 LSTPRO    P2NOGO   ENTRY. 0                 DEBUG-MODE OBJECT CODE CONTROL FLAG           FCC0220       12     A     
 LSTPRO   *                                    1S59 = SUPPRESS, 0 = GENERATE CODE.         FCC0220       13     A     
 LSTPRO   *         (DURING PASS 1, SET IF ANY FATAL-TO-DEBUG-EXECUTION ERRORS             FCC0220       14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1696    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO   *         OCCUR.  AT END OF PASS 1, *NOGOFLG* VALUE IS MERGED INTO               FCC0220       15     A     
 LSTPRO   *         *P2NOGO*, WHICH THEN BECOMES THE PASS 2 MASTER CONTROL FLAG.)          FCC0220       16     A     
 LSTPRO                                                                                    LSTPRO      1429     A     
 LSTPRO   *         "SYMTAB" ORDINALS OF THE SPECIAL SYMBOLS                               LSTPRO      1430     A     
 LSTPRO                                                                                    LSTPRO      1431     A     
 LSTPRO             ENTRY  O.TSS,L.TSS                                                     LSTPRO      1432     A     
 LSTPRO    O.TSS    EQU    *                 FWA OF TABLE OF SPECIAL SYMBOLS               LSTPRO      1433     A     
 LSTPRO    TEMPA0.  ENTRY.                                                                 LSTPRO      1434     A     
 LSTPRO    VALUE.   ENTRY.                                                                 LSTPRO      1435     A     
 LSTPRO    TRACE.   ENTRY.                                                                 LSTPRO      1436     A     
 LSTPRO    ENTRY.   ENTRY.                                                                 LSTPRO      1437     A     
 LSTPRO    EXIT.    ENTRY.                                                                 LSTPRO      1438     A     
 LSTPRO    CON.     ENTRY.                                                                 LSTPRO      1439     A     
 LSTPRO    LABEL.   ENTRY.                                                                 LSTPRO      1440     A     
 LSTPRO    FTNNOP.  ENTRY.                                                                 LSTPRO      1441     A     
 LSTPRO    NOPS.    ENTRY.                                                                 LSTPRO      1442     A     
 LSTPRO    FP.      ENTRY.                                                                 LSTPRO      1443     A     
 LSTPRO    ST.      ENTRY.                                                                 LSTPRO      1444     A     
 LSTPRO    OT.      ENTRY.                                                                 LSTPRO      1445     A     
 LSTPRO    IT.      ENTRY.                                                                 LSTPRO      1446     A     
 LSTPRO    VD.      ENTRY.                                                                 LSTPRO      1447     A     
 LSTPRO    L.TSS    EQU    *                 LWA+1 OF TABLE                                LSTPRO      1448     A     
 LSTPRO                                                                                    LSTPRO      1449     A     
 LSTPRO   *         LOCATIONS USED BY THE TABLE MANAGER                                    LSTPRO      1450     A     
 LSTPRO                                                                                    LSTPRO      1451     A     
 LSTPRO    PHASE    ENTRY.                   0 - PHASE 1, 1 - DPCLOSE, 2 - PHASE 2         LSTPRO      1452     A     
 LSTPRO    NAF      ENTRY.                   30/N.ACTIVE TBLS,30/N.FIRST ACTIVE TB         LSTPRO      1453     A     
 LSTPRO    LTN      ENTRY.                   60/NUMBER OF LAST ACTIVE TABLE                LSTPRO      1454     A     
 LSTPRO                                                                                    LSTPRO      1455     A     
 LSTPRO    LOWCORE  ENTRY.                   FWA OF ACTIVE TABLES                          LSTPRO      1456     A     
 LSTPRO   *                                  LOWCORE .GE. O.COM                            LSTPRO      1457     A     
 LSTPRO    FWAWORK  ENTRY.                   FWA OF WORKING STORAGE ,                      LSTPRO      1458     A     
 LSTPRO   *                                  LWA+1 OF THE TABLES                           LSTPRO      1459     A     
 LSTPRO    LWAWORK  ENTRY.                   LWA+1 OF WORKING STORAGE                      LSTPRO      1460     A     
 LSTPRO                                                                                    LSTPRO      1461     A     
 LSTPRO   *         POINTERS TO THE PSEUDO SYMBOL TABLES FOR POSSIBLE FOWARD               LSTPRO      1462     A     
 LSTPRO   *         REFERENCES IN COMPASS PRODUCED BY THE COMPILER                         LSTPRO      1463     A     
 LSTPRO                                                                                    LSTPRO      1464     A     
 LSTPRO    O.GLT    ENTRY.             FWA OF GL DEFINATION TABLE                          LSTPRO      1465     A     
 LSTPRO    O.API    ENTRY.             FWA OF APLIST INDEX/DEFINATION TABLE                LSTPRO      1466     A     
 LSTPRO    O.IOT    ENTRY.             FWA OF IOLIST DEFINATION TABLE                      LSTPRO      1467     A     
 LSTPRO                                                                                    LSTPRO      1468     A     
 LSTPRO    L.BATCH  =      *-O.BATCH         ** END BATCH CONTROL AREA **                  LSTPRO      1469     A     
 LSTPRO                                                                                    LSTPRO      1470     A     
 LSTPRO    GOTOER.  ENTRY.                   DUMMY ENTRY POINT FOR COMPUTED GO TO          LSTPRO      1471     A     
 LSTPRO             EQ     GOTOER.+400000B   ERRORS                                        LSTPRO      1472     A     
 LSTPRO                                                                                    LSTPRO      1473     A     
 LSTPRO    O.CEP    ENTRY. 1                 SYMTAB ORDINAL OF CURRENT ENTRY POINT         LSTPRO      1474     A     
 LSTPRO    P2NOGO   ENTRY. -1                EXECUTE UNTIL FATAL ERROR FLAG                LSTPRO      1475          I
          -FCC0220
 LSTPRO                                                                                    LSTPRO      1476     A     
 LSTPRO                                                                                    LSTPRO      1477     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1697    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO                                                                                    LSTPRO      1478     A     
 LSTPRO   **        INTERNAL OPTIMIZATION LEVEL VALUE (BINARY).  INITIALIZED TO            LSTPRO      1479     A     
 LSTPRO   *         CONTROL CARD OPTION VALUE EACH TIME PASS 1 IS LOADED.  MAY BE          LSTPRO      1480     A     
 LSTPRO   *         CHANGED (PROBABLY LOWERED) DURING PASS 1 OR 2, DEPENDING ON            LSTPRO      1481     A     
 LSTPRO   *         COMPLEXITY OF SOURCE PROGRAM.                                          LSTPRO      1482     A     
 LSTPRO                                                                                    LSTPRO      1483     A     
 LSTPRO    OPTLVL   ENTRY. 0                                                               LSTPRO      1484     A     
 LSTPRO    OPT2     ENTRY. 0           OPTLVL/2 ( "0 IF OPT .GE. 2  )                      LSTPRO      1485     A     
 LSTPRO    STLTAB   SPACE  4,8                                                             F162FTNA     808     A     
 LSTPRO   **        STLTAB - DEFINE STATIC LOAD DECK NAME TABLE.                           F162FTNA     809     A     
 LSTPRO   *                                                                                F162FTNA     810     A     
 LSTPRO   *         WHEN THE *STATIC* OPTION IS SELECTED, FCL DECK NAMES ARE               F162FTNA     811     A     
 LSTPRO   *         SELECTED BY *LISTIO/IOCM*, FORMATTED AS *LDSET USE=STLXXX.*            F162FTNA     812     A     
 LSTPRO   *         DIRECTIVES AND WRITTEN TO *COMPS* BY *ENDPRO/OSL*, AND                 F162FTNA     813     A     
 LSTPRO   *         ASSEMBLED TO *LGO* BY *FAX/PID3*.  *PH1CTL/CTL1* CLEARS THE            F162FTNA     814     A     
 LSTPRO   *         DECK NAME SELECTION BITS AT THE BEGINNING OF EACH COMPILATION.         F162FTNA     815     A     
 LSTPRO   *                                                                                F162FTNA     816     A     
 LSTPRO   *                                                                                F162FTNA     817     A     
 LSTPRO   *         STLOAD    DECKNAM,PERMSEL                                              F162FTNA     818     A     
 LSTPRO   *                                                                                F162FTNA     819     A     
 LSTPRO   *         ARGS   *DECKNAM* = FCL DECK NAME.                                      F162FTNA     820     A     
 LSTPRO   *                *PERMSEL* = 1 IF DECK NAME PERMANENTLY SELECTED.                F162FTNA     821     A     
 LSTPRO   *                            MAY BE OMITTED OTHERWISE.                           F162FTNA     822     A     
 LSTPRO                                                                                    F162FTNA     823     A     
 LSTPRO                                                                                    F162FTNA     824     A     
 LSTPRO             PURGMAC               STLTAB                                           F162FTNA     825          I
          -FCCA408
 LSTPRO             PURGMAC STLTAB                                                         FCCA408      207     A     
 LSTPRO                                                                                    F162FTNA     826     A     
 LSTPRO    STLTAB   MACRO  DNAM,SEL                                                        F162FTNA     827     A     
 LSTPRO             VFD    1/SEL,17/0,42/0L_DNAM                                           F162FTNA     828     A     
 LSTPRO    STLTAB   ENDM                                                                   F162FTNA     829     A     
 LSTPRO                                                                                    F162FTNA     830     A     
 LSTPRO                                                                                    F162FTNA     831     A     
 LSTPRO             ENTRY  STLTAB                                                          F162FTNA     832     A     
 LSTPRO    STLTAB   BSS    0                                                               F162FTNA     833     A     
 LSTPRO             LOC    0                                                               F162FTNA     834     A     
 LSTPRO   *CALL,STLOAD                                                                     F162FTNA     835     A     
 LSTPRO             DATA   0           TERMINATE TABLE                                     F162FTNA     836     A     
 LSTPRO             LOC    *O                                                              F162FTNA     837     A     
 LSTPRO             TITLE              TABLE MACRO                                         LSTPRO      1486     A     
 LSTPRO   ***                                                                              LSTPRO      1487     A     
 LSTPRO   *         TABLE MACRO - FORM QUANITIES FOR A TABLE TO BE MANAGED                 LSTPRO      1488     A     
 LSTPRO   *                       BY THE TABLE MANAGER.                                    LSTPRO      1489     A     
 LSTPRO   *                                                                                LSTPRO      1490     A     
 LSTPRO   *         ARGUMENTS:                                                             LSTPRO      1491     A     
 LSTPRO   *         TNAME - TABLE NAME, MUST BE @ 5 CHARACTERS SINCE THE QUANITIES         LSTPRO      1492     A     
 LSTPRO   *                O.TNAM , L.TNAM AND Z.TNAM ARE ENTRY POINTS                     LSTPRO      1493     A     
 LSTPRO   *                NOTE THAT LOCF(L.TNAM) " LOCF(O.TNAME)+1                        LSTPRO      1494     A     
 LSTPRO   *                                                                                LSTPRO      1495     A     
 LSTPRO   *         TYPE                                                                   LSTPRO      1496     A     
 LSTPRO   *                FIT - FIXED INCREMENT TABLE                                     LSTPRO      1497     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1698    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO   *                AOR - ALLOCATE SPACE ON REQUEST                                 LSTPRO      1498     A     
 LSTPRO   *                                                                                LSTPRO      1499     A     
 LSTPRO   *         AOV    ACTION ON OVERFLOW                                              LSTPRO      1500     A     
 LSTPRO   *                IER - ISSUE FC ERROR MESSAGE AND QUIT  OR                       LSTPRO      1501     A     
 LSTPRO   *                RTC - RETURN TO CALLER WITH FLAG SET                            LSTPRO      1502     A     
 LSTPRO   *                                                                                LSTPRO      1503     A     
 LSTPRO   *         IAL    INITIAL ALLOCATION                                              LSTPRO      1504     A     
 LSTPRO   *                                                                                LSTPRO      1505     A     
 LSTPRO   *         INC    INCREMENT FOR FIXED INCREMENT TABLES                            LSTPRO      1506     A     
 LSTPRO   *                                                                                LSTPRO      1507     A     
 LSTPRO    AOR      EQU    0                                                               LSTPRO      1508     A     
 LSTPRO    FIT      EQU    1                 FIXED INCREMENT TABLE                         LSTPRO      1509     A     
 LSTPRO                                                                                    LSTPRO      1510     A     
 LSTPRO    IER      EQU    0                 ISSUE ERROR MESSAGE                           LSTPRO      1511     A     
 LSTPRO    RTC      EQU    1                 RETURN TO CALLER                              LSTPRO      1512     A     
 LSTPRO                                                                                    LSTPRO      1513     A     
 LSTPRO             MACRO  TABLE,TNAM,TYPE,AOV,IAC,INC                                     LSTPRO      1514     A     
 LSTPRO             LOCAL  INCR                                                            LSTPRO      1515     A     
 LSTPRO    Z.TNAM   EQU    NTBLS.            TABLE NUMBER                                  LSTPRO      1516     A     
 LSTPRO             ENTRY  Z.TNAM                                                          LSTPRO      1517     A     
 LSTPRO    NTBLS.   SET    NTBLS.+1                                                        LSTPRO      1518     A     
 LSTPRO             USE    ORIGINS                                                         LSTPRO      1519     A     
 LSTPRO    O.TNAM   ENTRY.                                                                 LSTPRO      1520     A     
 LSTPRO             USE    SIZES                                                           LSTPRO      1521     A     
 LSTPRO    L.TNAM   ENTRY.                                                                 LSTPRO      1522     A     
 LSTPRO             USE    ROOMS                                                           LSTPRO      1523     A     
 LSTPRO    S.TNAM   ENTRY.                                                                 LSTPRO      1524     A     
 LSTPRO             USE    TINFO                                                           LSTPRO      1525     A     
 LSTPRO    INCR     EQU    INC 40B           DEFAULTS TO 40B                               LSTPRO      1526     A     
 LSTPRO   +         VFD    1/TYPE,1/AOV,22/0,18/IAC,18/INCR                                LSTPRO      1527     A     
 LSTPRO             ENDM                                                                   LSTPRO      1528     A     
 LSTPRO             SPACE  3                                                               LSTPRO      1529     A     
 LSTPRO   *         "STBL" MACRO TO FORM A SHARED TABLE                                    LSTPRO      1530     A     
 LSTPRO                                                                                    LSTPRO      1531     A     
 LSTPRO             MACRO  STBL,TBL1,TBL2                                                  LSTPRO      1532     A     
 LSTPRO             ENTRY  Z.TBL1,O.TBL1,L.TBL1,S.TBL1                                     LSTPRO      1533     A     
 LSTPRO    Z.TBL1   EQU    Z.TBL2                                                          LSTPRO      1534     A     
 LSTPRO    O.TBL1   EQU    O.TBL2                                                          LSTPRO      1535     A     
 LSTPRO    L.TBL1   EQU    L.TBL2                                                          LSTPRO      1536     A     
 LSTPRO    S.TBL1   EQU    S.TBL2                                                          LSTPRO      1537     A     
 LSTPRO             ENDM                                                                   LSTPRO      1538     A     
 LSTPRO                                                                                    LSTPRO      1539     A     
 LSTPRO    NTBLS.   SET    0                                                               LSTPRO      1540     A     
 LSTPRO    LNTBS.   SET    0                                                               LSTPRO      1541     A     
 LSTPRO             TITLE              TABLES FOR PASS 1                                   LSTPRO      1542     A     
 LSTPRO    CTIP     MACRO  INCR              COUNT NUMBER OF TABLES IN A PHASE             LSTPRO      1543     A     
 LSTPRO             LOCAL  F,N                                                             LSTPRO      1544     A     
 LSTPRO    N        EQU    NTBLS.-LNTBS.                                                   LSTPRO      1545     A     
 LSTPRO    F        EQU    LNTBS.            FIRST ACTIVE ONE                              LSTPRO      1546     A     
 LSTPRO             IFC    NE,/INCR//,1                                                    LSTPRO      1547     A     
 LSTPRO    LNTBS.   SET    NTBLS.            INCREMENT NUMBER OF FIRST ACTIVE TBL          LSTPRO      1548     A     
 LSTPRO             USE    PHVECT                                                          LSTPRO      1549     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1699    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO   +         VFD    30/N,30/F                                                       LSTPRO      1550     A     
 LSTPRO             USE    *                                                               LSTPRO      1551     A     
 LSTPRO             ENDM                                                                   LSTPRO      1552     A     
 LSTPRO                                                                                    LSTPRO      1553     A     
 LSTPRO   *         ESTABLISH BLOCK ORDERING                                               LSTPRO      1554     A     
 LSTPRO                                                                                    LSTPRO      1555     A     
 LSTPRO             ENTRY  ORIGINS,SIZES,ROOMS,TINFO,NAFVEC                                LSTPRO      1556     A     
 LSTPRO             USE    ORIGINS                                                         LSTPRO      1557     A     
 LSTPRO    ORIGINS  BSS    0                 ORIGINS(I) = FWA OF TABLE I                   LSTPRO      1558     A     
 LSTPRO             USE    SIZES                                                           LSTPRO      1559     A     
 LSTPRO    SIZES    BSS    0                 SIZES(I) = LENGTH OF TABLE I                  LSTPRO      1560     A     
 LSTPRO             USE    ROOMS                                                           LSTPRO      1561     A     
 LSTPRO    ROOMS    BSS    0                 ROOMS(I) = SPACE ALLOCATED TO TABLE I         LSTPRO      1562     A     
 LSTPRO             USE    TINFO                                                           LSTPRO      1563     A     
 LSTPRO    TINFO    BSS    0                 TINFO(I) = MISC INFO ABOUT TABLE I            LSTPRO      1564     A     
 LSTPRO             USE    PHVECT                                                          LSTPRO      1565     A     
 LSTPRO    NAFVEC   BSS    0                 FWA OF NAF TBL                                LSTPRO      1566     A     
 LSTPRO             SPACE  2                                                               LSTPRO      1567     A     
 LSTPRO   *         TABLE DECLARATIONS                                                     LSTPRO      1568     A     
 LSTPRO                                                                                    LSTPRO      1569     A     
 LSTPRO    COM      TABLE  FIT,IER,300B,40B                                                LSTPRO      1570     A     
 LSTPRO    EQV      TABLE  FIT,IER,40B,40B                                                 LSTPRO      1571     A     
 LSTPRO    DIM      TABLE  FIT,IER,100B,40B                                                LSTPRO      1572     A     
 LSTPRO    DCON     TABLE  FIT,IER,0,20B     TEMPORARY DEBUG CONSTANT TABLE                LSTPRO      1573     A     
 LSTPRO             CTIP                                                                   LSTPRO      1574     A     
 LSTPRO                                                                                    LSTPRO      1575     A     
 LSTPRO    LAT      TABLE  AOR,IER                                                         LSTPRO      1576     A     
 LSTPRO    SCA      TABLE  AOR,IER                                                         LSTPRO      1577     A     
 LSTPRO    ECT      STBL   SCA               TEMPORARY EQUIVALENCE CLASS TABLE             LSTPRO      1578     A     
 LSTPRO    EOT      TABLE  AOR,IER     EQUIVALENCE OVERLAP TABLE                           FEAT129        5     A     
 LSTPRO             CTIP   INCR              END OF PHASE 1 TABLES                         LSTPRO      1579     A     
 LSTPRO                                                                                    LSTPRO      1580     A     
 LSTPRO    FPBL     TABLE                    F.P. BLOCK LENGTH TBL ( NAMELIST )            LSTPRO      1581     A     
 LSTPRO    ASF      TABLE  AOR,IER           ASF DEFINITIONS                               LSTPRO      1582     A     
 LSTPRO    ARLST    TABLE  AOR,IER           ARLIST BUFFER                                 LSTPRO      1583     A     
 LSTPRO                                                                                    LSTPRO      1584     A     
 LSTPRO    CON      TABLE  FIT,IER,50B,20B   BINARY LITERALS                               LSTPRO      1585     A     
 LSTPRO    DATA     TABLE  FIT,IER,20B,20B   USEAGE DEFINED VARS IN DATA STMTS             LSTPRO      1586     A     
 LSTPRO    DIL      TABLE  FIT,IER,20B,20B   DATA ITEM LIST TABLE                          LSTPRO      1587     A     
 LSTPRO    DIT      TABLE  FIT,IER,20B,40B   DATA ITEM TABLE                               LSTPRO      1588     A     
 LSTPRO    ENTR     TABLE  FIT,IER,1,10B     ENTRY POINTS                                  LSTPRO      1589     A     
 LSTPRO    NML      TABLE FIT,IER,10B,10B    NAMELIST ITEM TABLE                           LSTPRO      1590     A     
 LSTPRO    DOLST    TABLE  FIT,RTC,100B,20B  DO LIST                                       LSTPRO      1591     A     
 LSTPRO    IOLST    TABLE  FIT,IER,20B,10B   INPUT ORDINAL LIST TABLE                      LSTPRO      1592     A     
 LSTPRO    LTAB     TABLE  AOR,IER           GOTOPROC - LABEL TABLE                        LSTPRO      1593     A     
 LSTPRO                                                                                    LSTPRO      1594     A     
 LSTPRO    SCR      TABLE  AOR,IER           SCRATCH AREA FOR ASFREF , ETC                 LSTPRO      1595     A     
 LSTPRO    EXT      STBL   ASF               FORMED AT THE END OF PASS 1                   LSTPRO      1596     A     
 LSTPRO    UDV      STBL   FPBL              USEAGE DEFINED VARS - ENDPROC                 LSTPRO      1597     A     
 LSTPRO             CTIP                                                                   LSTPRO      1598     A     
 LSTPRO                                                                                    LSTPRO      1599     A     
 LSTPRO    NTBLS    EQU    NTBLS.            NUMBER OF TABLES                              LSTPRO      1600     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1700    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO             USE    0                                                               LSTPRO      1601     A     
 LSTPRO                                                                                    LSTPRO      1602     A     
 LSTPRO             ENTRY  T.FPBL                                                          LSTPRO      1603     A     
 LSTPRO    T.FPBL   EQU    TINFO+Z.FPBL                                                    LSTPRO      1604     A     
 LSTPRO             SPACE  3                                                               LSTPRO      1605     A     
 LSTPRO    SAVTBL   MICRO  1,,                                                             LSTPRO      1606     A     
 LSTPRO    STBIT    SET    60                                                              LSTPRO      1607     A     
 LSTPRO                                                                                    LSTPRO      1608     A     
 LSTPRO    SAVTBL   MACRO  TBL                                                             LSTPRO      1609     A     
 LSTPRO    SAVTBL   MICRO  1,,$"SAVTBL",6/Z.TBL+1$                                         LSTPRO      1610     A     
 LSTPRO    STBIT    SET    STBIT-6                                                         LSTPRO      1611     A     
 LSTPRO             IFLT   STBIT,0,1                                                       LSTPRO      1612     A     
 LSTPRO             ERR    10 TABLES IS MAX THAT MAY BE SAVED                              LSTPRO      1613     A     
 LSTPRO             ENDM                                                                   LSTPRO      1614     A     
 LSTPRO                                                                                    LSTPRO      1615     A     
 LSTPRO   ***                                                                              LSTPRO      1616     A     
 LSTPRO   *         LIST OF TABLES TO BE SAVED FOR PASS 2                                  LSTPRO      1617     A     
 LSTPRO   *         TABLES FIRST IN THE BELOW LIST WILL BE MOVED TO HIGH CORE LAST         LSTPRO      1618     A     
 LSTPRO                                                                                    LSTPRO      1619     A     
 LSTPRO             SAVTBL UDV                                                             LSTPRO      1620     A     
 LSTPRO             SAVTBL EXT                                                             LSTPRO      1621     A     
 LSTPRO             SAVTBL ENTR                                                            LSTPRO      1622     A     
 LSTPRO                                                                                    LSTPRO      1623     A     
 LSTPRO             ENTRY  SAVTBL                                                          LSTPRO      1624     A     
 LSTPRO    SAVTBL   VFD    STBIT/0"SAVTBL"                                                 LSTPRO      1625     A     
 LSTPRO             SPACE  4                                                               FEAT1070C    104     A     
 LSTPRO   ***       PUTTAB - DUMP A TABLE TO DISK                                          FEAT1070C    105     A     
 LSTPRO   *                                                                                FEAT1070C    106     A     
 LSTPRO             ENTRY  PUTTAB                                                          FEAT1070C    107     A     
 LSTPRO             SPACE  2                                                               FEAT1070C    108     A     
 LSTPRO   **        ENTRY CONDITIONS                                                       FEAT1070C    109     A     
 LSTPRO   *                X2 = FWA OF TABLE                                               FEAT1070C    110     A     
 LSTPRO   *                X3 = LENGTH OF TABLE                                            FEAT1070C    111     A     
 LSTPRO   *                X5 = 57/,1/ERFLAG,2/OPTLEVEL  (ONLY IF SYMBOL TABLE)            FEAT1070C    112     A     
 LSTPRO   *                X6 = TABLE TYPE                                                 FEAT1070C    113     A     
 LSTPRO   *                                                                                FEAT1070C    114     A     
 LSTPRO   *                TABLES ARE OUTPUT AS 1 RECORD.                                  FEAT1070C    115     A     
 LSTPRO   *                A TWO-WORD HEADER PRECEDES EACH TABLE                           FEAT1070C    116     A     
 LSTPRO   *                EMPTY TABLES ARE NOT DUMPED AT ALL                              FEAT1070C    117     A     
 LSTPRO   *         HEADER TABLE FORMAT                                                    FEAT1070C    118     A     
 LSTPRO   *                                                                                FEAT1070C    119     A     
 LSTPRO   *         WORD 1  42/7H_NAME,18/0                                                FEAT1070C    120     A     
 LSTPRO   *                                                                                FEAT1070C    121     A     
 LSTPRO   *         WORD 2                                                                 FEAT1070C    122     A     
 LSTPRO   *         6/     TABLE TYPE (SEE MANTRAPS IPARAMS)                               FEAT1070C    123     A     
 LSTPRO   *         30/    UNUSED                                                          FEAT1070C    124     A     
 LSTPRO   *         1/     1 IF ER OPTION ON  (ONLY IN SYMBOL ENTRY)                       FEAT1070C    125     A     
 LSTPRO   *         2/     COMPILATION OPT LEVEL (ONLY IN SYMBOL ENTRY)                    FEAT1070C    126     A     
 LSTPRO   *         3/     PROGTYPE (0:PROGRAM,1:SUBROUTINE,2:FUNCTION)                    FEAT1070C    127     A     
 LSTPRO   *         18/    TABLE LENGTH (EXCLUDING HEADER)                                 FEAT1070C    128     A     
 LSTPRO   *                                                                                FEAT1070C    129     A     
 LSTPRO    PUTTAB   BSS    1           ENTRY/EXIT                                          FEAT1070C    130     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1701    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO             SPACE  2                                                               FEAT1070C    131     A     
 LSTPRO   *         SET UP 2 HEADER WORDS IN FRONT OF TABLE                                FEAT1070C    132     A     
 LSTPRO             SA1    =XPMDFLAG                                                       FEAT1070C    133     A     
 LSTPRO             SA4    56B         PROGRAM TYPE                                        FEAT1070C    134     A     
 LSTPRO             ZR     X3,PUTTAB   IGNORE EMPTY TABLES                                 FEAT1070C    135     A     
 LSTPRO             ZR     X1,PUTTAB   IF MANTRAP DISABLED, RETURN                         FEAT1070C    136     A     
 LSTPRO             SA1    PROGNAM                                                         FEAT1070C    137     A     
 LSTPRO             ZR     X4,PUTTAB   IGNORE BLOCKDATA                                    FEAT1070C    138     A     
 LSTPRO             UX4    X4,B2       PROGRAM TYPE TO B2                                  FEAT1070C    139     A     
 LSTPRO             LX5    3                                                               FEAT1070C    140     A     
 LSTPRO             SX0    X5+B2       3/OPT,3/PROGTYPE                                    FEAT1070C    141     A     
 LSTPRO             LX0    18                                                              FEAT1070C    142     A     
 LSTPRO             SPACE  1                                                               FEAT1070C    143     A     
 LSTPRO             SA4    X2-2        FWA-2                                               FEAT1070C    144     A     
 LSTPRO             SA5    X2-1        FWA-1                                               FEAT1070C    145     A     
 LSTPRO             LX6    54                                                              FEAT1070C    146     A     
 LSTPRO             BX6    X6+X3                                                           FEAT1070C    147     A     
 LSTPRO             BX6    X0+X6                                                           FEAT1070C    148     A     
 LSTPRO             LX7    X1                                                              FEAT1070C    149     A     
 LSTPRO             SA6    A5          CORRUPT FWA-1                                       FEAT1070C    150     A     
 LSTPRO             SA7    A4          CORRUPT FWA-2                                       FEAT1070C    151     A     
 LSTPRO    #RM      IFEQ   CP#RM,7                                                         FCCA510        7     A     
 LSTPRO             OPENM  ZZZZZSY,OUTPUT,E                                                FCCA510        8     A     
 LSTPRO             SX3    X3+2         LENGTH = ORIG LENGTH + HEADER                      FCCA510        9     A     
 LSTPRO             SX7    A4           STARTING ADDRESS                                   FCCA510       10     A     
 LSTPRO             PUTW   ZZZZZSY,X7,X3                                                   FCCA510       11     A     
 LSTPRO             CLOSEM ZZZZZSY,R                                                       FCCA510       12     A     
 LSTPRO    #RM      ELSE                                                                   FCCA510       13     A     
 LSTPRO             IX6    X3+X2       LWA                                                 FEAT1070C    152     A     
 LSTPRO             SX7    A4          SET OUT=FWA-2                                       FEAT1070C    153     A     
 LSTPRO             SA6    ZZZZZSY+2   IN=LWA                                              FEAT1070C    154     A     
 LSTPRO             SA7    ZZZZZSY+3   OUT=FWA-2                                           FEAT1070C    155     A     
 LSTPRO             SPACE  1                                                               FEAT1070C    156     A     
 LSTPRO             WRITER ZZZZZSY,R   WRITE OUT TABLE                                     FEAT1070C    157     A     
 LSTPRO             SPACE  2                                                               FEAT1070C    158     A     
 LSTPRO   *         RELOAD FWA-2,FWA-1                                                     FEAT1070C    159     A     
 LSTPRO    #RM      ENDIF                                                                  FCCA510       14     A     
 LSTPRO             BX6    X4                                                              FEAT1070C    160     A     
 LSTPRO             LX7    X5                                                              FEAT1070C    161     A     
 LSTPRO             SA6    A4                                                              FEAT1070C    162     A     
 LSTPRO             SA7    A5                                                              FEAT1070C    163     A     
 LSTPRO             EQ     PUTTAB                                                          FEAT1070C    164     A     
 LSTPRO             SPACE  4                                                               FEAT1070C    165     A     
 LSTPRO   ZZZZZSY   FILEB  0,*                                                             FEAT1070C    166          I
          -FCCA510
 LSTPRO    #RM      IFEQ   CP#RM,0                                                         FCCA510       15     A     
 LSTPRO    ZZZZZSY  FILEB  0,*                                                             FCCA510       16          I
          -FCCA562
 LSTPRO    ZZZZZSY  FILEB  *,0         DUMMY FIRST,DUMMY IN,DUMMY OUT,DUMMY LIMIT          FCCA562        8     A     
 LSTPRO    #RM      ELSE                                                                   FCCA510       17     A     
 LSTPRO    ZZZZZSY  FILE   FO=SQ,OF=R,CF=R,EO=T,MRL=131071                                 FCCA510       18          I
          -FCCA536
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1702    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO    ZZZZZSY  FILE   FO=SQ,RT=U,OF=R,CF=R,EO=T,MRL=131071                            FCCA536        6     A     
 LSTPRO    #RM      ENDIF                                                                  FCCA510       19     A     
 LSTPRO             TITLE              ADDRESS FIELD DEFINITIONS                           LSTPRO      1626     A     
 LSTPRO   ***                                                                              LSTPRO      1627     A     
 LSTPRO   *         WORDB - DEFINE TYPE AND/OR ADDRESS DEFINITION FIELDS FOR WORD          LSTPRO      1628     A     
 LSTPRO   *         B OF SYMTAB ENTRY FOR SOME SPECIAL SYMBOLS                             LSTPRO      1629     A     
 LSTPRO   *                                                                                LSTPRO      1630     A     
 LSTPRO             MACRO  WORDB,LOC,A,B,C                                                 LSTPRO      1631          I
          -FCC1088
 LSTPRO             MACRO  WORDB,LOC,A,B,C,D                                               FCC1088        9     A     
 LSTPRO             LOCAL  NRL,NRB                                                         LSTPRO      1632     A     
 LSTPRO             ENTRY  LOC                                                             LSTPRO      1633     A     
 LSTPRO    TY=      SET    0                                                               LSTPRO      1634     A     
 LSTPRO    RL=      SET    0                                                               LSTPRO      1635     A     
 LSTPRO    RB=      SET    0                                                               LSTPRO      1636     A     
 LSTPRO             SPLIT= A                                                               LSTPRO      1637     A     
 LSTPRO             SPLIT= B                                                               LSTPRO      1638     A     
 LSTPRO             SPLIT= C                                                               LSTPRO      1639     A     
 LSTPRO    NRL      EQU    P.TYP-P.RL                                                      LSTPRO      1640     A     
 LSTPRO    NRB      EQU    P.RL-P.RB                                                       LSTPRO      1641     A     
 LSTPRO    LOC      VFD    L.TYP/TY=,NRL/RL=,NRB/RB=,P.RB/0                                LSTPRO      1642          I
          -FCC1088
 LSTPRO    LOC      VFD    L.TYP/TY=,NRL/RL=,NRB/RB=,P.RB/D                                FCC1088       10     A     
 LSTPRO             ENDM                                                                   LSTPRO      1643     A     
 LSTPRO                                                                                    LSTPRO      1644     A     
 LSTPRO    SPLIT=   MACRO  A                                                               LSTPRO      1645     A     
 LSTPRO             LOCAL  N,R                                                             LSTPRO      1646          I
          -FCC1088
 LSTPRO             IFC    NE,/A//,3                                                       LSTPRO      1647     A     
 LSTPRO    N        MICRO  1,3,/A/                                                         LSTPRO      1648     A     
 LSTPRO    R        MICRO  4,,/A/                                                          LSTPRO      1649     A     
 LSTPRO    "N"      SET    "R"                                                             LSTPRO      1650     A     
 LSTPRO             ENDM                                                                   LSTPRO      1651     A     
 LSTPRO                                                                                    LSTPRO      1652     A     
 LSTPRO    START.   MICRO  1,,/0/                                                          LSTPRO      1653     A     
 LSTPRO    ENTRY.   MICRO  1,,/2/                                                          LSTPRO      1654     A     
 LSTPRO    CODE.    MICRO  1,,/3/                                                          LSTPRO      1655     A     
 LSTPRO    DATA.    MICRO  1,,/4/                                                          LSTPRO      1656     A     
 LSTPRO    HOL.     MICRO  1,,/6/                                                          LSTPRO      1657     A     
 LSTPRO                                                                                    LSTPRO      1658     A     
 LSTPRO   *                                  POST - LABELS AND ENTRY POINTS                LSTPRO      1659     A     
 LSTPRO    WB.LAB   WORDB  RL=1,RB="CODE."   FAX - GL , AP AND VD LABELS                   LSTPRO      1660     A     
 LSTPRO                                                                                    LSTPRO      1661     A     
 LSTPRO   *                                  HEADER CARD PROCESSOR                         LSTPRO      1662     A     
 LSTPRO    WB.ESS   WORDB  TY=T.CGS,RL=1,RB="START."                                       LSTPRO      1663     A     
 LSTPRO    WB.LFN   WORDB  TY=T.LFN,RL=1,RB="START."                                       LSTPRO      1664     A     
 LSTPRO                                                                                    LSTPRO      1665     A     
 LSTPRO   *                                  ENTRY STMT PROCESSOR                          LSTPRO      1666     A     
 LSTPRO    WB.FTN   WORDB  TY=T.CGS,RL=1,RB="ENTRY."                                       LSTPRO      1667     A     
 LSTPRO    WB.NOP   WORDB  TY=T.CGS,RL=1,RB="DATA."                                        LSTPRO      1668     A     
 LSTPRO   *                                  CON. - SET IN DPCLOSE                         LSTPRO      1669     A     
 LSTPRO    WB.CON   WORDB  TY=T.CGS,RL=1,RB="DATA."                                        LSTPRO      1670          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1703    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
          -FCC1088
 LSTPRO    WB.CON   WORDB  TY=T.CGS,RL=1,RB="DATA.",V.LDO                                  FCC1088       11     A     
 LSTPRO   *                                  NAMELIST                                      LSTPRO      1671     A     
 LSTPRO    WB.NML   WORDB  TY=T.NML,RL=1,RB="DATA."                                        LSTPRO      1672     A     
 LSTPRO   *                                  FORMAT LABELS                                 LSTPRO      1673     A     
 LSTPRO    WB.FMT   WORDB  RL=1,RB="DATA."                                                 LSTPRO      1674     A     
 LSTPRO                                                                                    LSTPRO      1675     A     
 LSTPRO   *                                  HOL. - SET IN CONVERT                         LSTPRO      1676     A     
 LSTPRO    WB.HOL   WORDB  TY=T.CGS,RL=1,RB="HOL."                                         LSTPRO      1677          I
          -FCC1088
 LSTPRO    WB.HOL   WORDB  TY=T.CGS,RL=1,RB="HOL.",V.LDO                                   FCC1088       12     A     
 LSTPRO                                                                                    LSTPRO      1678     A     
 LSTPRO   *                                  ENDPROC                                       LSTPRO      1679     A     
 LSTPRO    WB.ECGS  WORDB  TY=T.CGS,RL=1,RB="CODE."                                        LSTPRO      1680     A     
 LSTPRO    WB.PROG  WORDB  RL=1,RB="CODE."                                                 LSTPRO      1681     A     
 LSTPRO    WB.FP    WORDB  RL=1,RB=7                                                       LSTPRO      1682     A     
 LSTPRO             TITLE              TABDMP - DUMP A TABLE TO DISK ( DEBUG RTN )         LSTPRO      1683     A     
 LSTPRO    .T       IFEQ   TEST,0                                                          LSTPRO      1684     A     
 LSTPRO                                                                                    LSTPRO      1685     A     
 LSTPRO    SYMDMP   ENTRY. **                                                              LSTPRO      1686     A     
 LSTPRO             EQ     SYMDMP      EXIT WITHOUT ACTION                                 LSTPRO      1687     A     
 LSTPRO                                                                                    LSTPRO      1688     A     
 LSTPRO    TABDMP   ENTRY. **                                                              LSTPRO      1689     A     
 LSTPRO             EQ     TABDMP      EXIT WITHOUT ACTION                                 LSTPRO      1690     A     
 LSTPRO                                                                                    LSTPRO      1691     A     
 LSTPRO    .T       ELSE                                                                   LSTPRO      1692     A     
 LSTPRO                                                                                    LSTPRO      1693     A     
 LSTPRO    #RM      IFEQ   CP#RM,0                                                         LSTPRO      1694     A     
 LSTPRO                                                                                    LSTPRO      1695     A     
 LSTPRO   ***                                                                              LSTPRO      1696     A     
 LSTPRO   *         TABDMP - DUMP CORE TO THE FILE "SYMTAB"                                LSTPRO      1697     A     
 LSTPRO   *                                                                                LSTPRO      1698     A     
 LSTPRO   *         ON ENTRY:                                                              LSTPRO      1699     A     
 LSTPRO   *                X1,X2 = PREFIX WORDS , BCD AND INDEX                            LSTPRO      1700     A     
 LSTPRO   *                X3,X4 = FWA,LWA+1 OF TABLE TO BE DUMPED                         LSTPRO      1701     A     
 LSTPRO   *                                                                                LSTPRO      1702     A     
 LSTPRO    TABDMP   ENTRY.                                                                 LSTPRO      1703     A     
 LSTPRO             SX7    X3-2              FWA-2                                         LSTPRO      1704     A     
 LSTPRO             SB1    1                                                               LSTPRO      1705     A     
 LSTPRO             SA7    F.TEST+I.FIRST    (FIRST) = PREFIX WORD ADDRESS                 LSTPRO      1706     A     
 LSTPRO             BX6    X4                                                              LSTPRO      1707     A     
 LSTPRO             SA6    A7+B1             (IN)    = LWA+1                               LSTPRO      1708     A     
 LSTPRO             SA7    A6+B1             (OUT)   = (FIRST)                             LSTPRO      1709     A     
 LSTPRO             SX6    77B                                                             LSTPRO      1710     A     
 LSTPRO             SA6    A7+B1             (LIMIT) = LWA+100B                            LSTPRO      1711     A     
 LSTPRO             SA4    X3-2                                                            LSTPRO      1712     A     
 LSTPRO             SA5    A4+B1                                                           LSTPRO      1713     A     
 LSTPRO             BX6    X4                                                              LSTPRO      1714     A     
 LSTPRO             LX7    X5                                                              LSTPRO      1715     A     
 LSTPRO             SA6    SAVE                                                            LSTPRO      1716     A     
 LSTPRO             SA7    A6+B1                                                           LSTPRO      1717     A     
 LSTPRO             BX6    X1                                                              LSTPRO      1718     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1704    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO             LX7    X2                                                              LSTPRO      1719     A     
 LSTPRO             SA6    A4                                                              LSTPRO      1720     A     
 LSTPRO             SA7    A5                                                              LSTPRO      1721     A     
 LSTPRO             WRITER F.TEST,RCL                                                      LSTPRO      1722     A     
 LSTPRO             SA1    SAVE                                                            LSTPRO      1723     A     
 LSTPRO             SA2    A1+B1                                                           LSTPRO      1724     A     
 LSTPRO             SA3    F.TEST+I.FIRST                                                  LSTPRO      1725     A     
 LSTPRO             BX6    X1                                                              LSTPRO      1726     A     
 LSTPRO             LX7    X2                                                              LSTPRO      1727     A     
 LSTPRO             SA6    X3                                                              LSTPRO      1728     A     
 LSTPRO             SA7    X3+B1                                                           LSTPRO      1729     A     
 LSTPRO             EQ     TABDMP                                                          LSTPRO      1730     A     
 LSTPRO                                                                                    LSTPRO      1731     A     
 LSTPRO    SAVE     BSSZ   2                 TO SAVE 2 WORDS                               LSTPRO      1732     A     
 LSTPRO    F.TEST   VFD    42/0LSYMTAB,18/3                                                LSTPRO      1733     A     
 LSTPRO             CON    *           DUMMY -FIRST-                                       LSTPRO      1734     A     
 LSTPRO             CON    *-1         DUMMY -IN-                                          LSTPRO      1735     A     
 LSTPRO             CON    *-2         DUMMY -OUT-                                         LSTPRO      1736     A     
 LSTPRO             CON    *           DUMMY -LIMIT-                                       LSTPRO      1737     A     
 LSTPRO             DATA   0           DUMMY FET WORD 5                                    LSTPRO      1738     A     
 LSTPRO             TITLE              SYMDMP - SYMTAB DUMP ROUTINE                        LSTPRO      1739     A     
 LSTPRO   ***                                                                              LSTPRO      1740     A     
 LSTPRO   *         SYMDMP - DUMP THE SYMBOL TABLE TO THE FILE "SYMTAB"                    LSTPRO      1741     A     
 LSTPRO   *                                                                                LSTPRO      1742     A     
 LSTPRO    SYMDMP   ENTRY.                                                                 LSTPRO      1743     A     
 LSTPRO             SA2    L.SYMTAB                                                        LSTPRO      1744     A     
 LSTPRO             SA3    O.SYMTAB                                                        LSTPRO      1745     A     
 LSTPRO             SB1    1                                                               LSTPRO      1746     A     
 LSTPRO             SX7    X3-1                                                            LSTPRO      1747     A     
 LSTPRO             SX6    X2+B1             FIRST                                         LSTPRO      1748     A     
 LSTPRO             SX2    F.TEST                                                          LSTPRO      1749     A     
 LSTPRO             SA6    X2+B1                                                           LSTPRO      1750     A     
 LSTPRO             SA7    A6+B1             IN                                            LSTPRO      1751     A     
 LSTPRO             SA6    A7+B1             OUT = FIRST                                   LSTPRO      1752     A     
 LSTPRO             SX7    X3+100B                                                         LSTPRO      1753     A     
 LSTPRO             SA7    A6+B1             LIMIT                                         LSTPRO      1754     A     
 LSTPRO             WRITER X2,RCL                                                          LSTPRO      1755     A     
 LSTPRO             EQ     SYMDMP                                                          LSTPRO      1756     A     
 LSTPRO                                                                                    LSTPRO      1757     A     
 LSTPRO    #RM      ELSE                                                                   LSTPRO      1758     A     
 LSTPRO                                                                                    LSTPRO      1759     A     
 LSTPRO    TABDMP   ENTRY. **                                                              LSTPRO      1760     A     
 LSTPRO             EQ     TABDMP                                                          LSTPRO      1761     A     
 LSTPRO                                                                                    LSTPRO      1762     A     
 LSTPRO   *         SYMDMP - DUMP THE SYMBOL TABLE USING RECORD MANAGER.                   LSTPRO      1763     A     
 LSTPRO                                                                                    LSTPRO      1764     A     
 LSTPRO    SYMDMP   ENTRY. **                                                              LSTPRO      1765     A     
 LSTPRO             SA2    L.SYMTAB                                                        LSTPRO      1766     A     
 LSTPRO             SA3    O.SYMTAB                                                        LSTPRO      1767     A     
 LSTPRO             IX4    X3-X2                                                           LSTPRO      1768     A     
 LSTPRO             SX5    X2+1                                                            LSTPRO      1769     A     
 LSTPRO             SX4    X4-2                                                            LSTPRO      1770     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1705    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
 LSTPRO             PUTW   FI.TEST,X5,X4                                                   LSTPRO      1771     A     
 LSTPRO             EQ     SYMDMP      EXIT                                                LSTPRO      1772     A     
 LSTPRO                                                                                    LSTPRO      1773     A     
 LSTPRO   *         DECLARE *SYMTAB* FIT AND ADDRESS POINTER.                              LSTPRO      1774     A     
 LSTPRO                                                                                    LSTPRO      1775     A     
 LSTPRO    FI.TEST  FILE   LFN=SYMTAB,FO=SQ,OF=R,CF=R,PD=IO,EO=T,RT=W,MRL=131071           LSTPRO      1776     A     
 LSTPRO    F.TEST   CON    FI.TEST                                                         LSTPRO      1777     A     
 LSTPRO                                                                                    LSTPRO      1778     A     
 LSTPRO    #RM      ENDIF                                                                  LSTPRO      1779     A     
 LSTPRO                                                                                    LSTPRO      1780     A     
 LSTPRO    .T       ENDIF                                                                  LSTPRO      1781     A     
 LSTPRO                                                                                    LSTPRO      1782     A     
 LSTPRO             IFNE   TEST,0,2                                                        LSTPRO      1783     A     
 LSTPRO    DMPTBL=  ENTRY. **          PLUGGED FROM *CLOSE2* TO *  RJ  PTC= *              LSTPRO      1784     A     
 LSTPRO   +         EQ     RPV5                                                            LSTPRO      1785     A     
 LSTPRO             SPACE  3                                                               LSTPRO      1786     A     
 LSTPRO             END    FTN20                                                           LSTPRO      1787     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - LSTPRO  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          LSTPRO                    1787      1607
          FCC0220                      8         7
          FCC0504                      1         1
          FCC0761                     14        14
          FEAT126A                     9         8
          FEAT126C                    18        18
          FEAT129                      1         1
          FEAT155E                    30        13
          FEAT155H                    44        39
          CP139FC                     48        48
          FEAT155EA                    7         1
          FEAT155F                     6         6
          FEAT155EB                    9         7
          FCC1088                      4         4
          FCC1200                     19        19
          RSM2763X                    38        37
          FCC1328X                     3         3
          FCC1797X                    20        17
          F162FTNA                    30        29
          FCCA408                      1         1
          FCCA410                     13         5
          FEAT1070C                   70        69
          FCCA422                      9         3
          FCC1964                      3         0
          FCC2064                      1         1
          FCCA510                     15        13
          FCCA519                      7         7
          FCCA473                     24        16
          FCCA534                      6         2
          FCCA536                      1         1
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1706    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LSTPRO  
  
          FCCA562                      3         3
          FCCA580                      6         6
          FCCA593                     10        10
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK   *COMDECK OUTPTK                                                                  OUTPTK         1     A     
 OUTPTK    OUTPTK   TITLE  OUTPTK -    COMBINED 'KODER'-'OUTPTC' FACILITY                  OUTPTK         2     A     
 OUTPTK             TITLE                  DESCRIPTION                                     OUTPTK         3          I
          -FCC1119
 OUTPTK    MACROS   SPACE  3                                                               OUTPTK         4          I
          -FCC1119
 OUTPTK                                                                                    FCC1119        4     A     
 OUTPTK             MACRO  FORM,NAME                                                       OUTPTK         5     A     
 OUTPTK   NAME      BSS    0                                                               OUTPTK         6     A     
 OUTPTK   NAME()    SET    *                                                               OUTPTK         7     A     
 OUTPTK    FORM     ENDM                                                                   OUTPTK         8     A     
 OUTPTK             SPACE  5                                                               OUTPTK         9          I
          -FCC1119
 OUTPTK                                                                                    FCC1119        5     A     
 OUTPTK   INVOKE    MACRO  FORM                                                            OUTPTK        10     A     
 OUTPTK             SB7    FORM                                                            OUTPTK        11     A     
 OUTPTK             RJ     RETURN                                                          OUTPTK        12     A     
 OUTPTK             RMT                                                                    OUTPTK        13     A     
 OUTPTK             IF     -DEF,FORM(),1                                                   OUTPTK        14     A     
 OUTPTK             ERR    FORM NOT INVOKABLE, CHECK CROSS REFERENCES AND CHANGE           OUTPTK        15     A     
 OUTPTK             RMT                                                                    OUTPTK        16     A     
 OUTPTK   INVOKE    ENDM                                                                   OUTPTK        17     A     
 OUTPTK    LOCN     SPACE  3                                                               OUTPTK        18     A     
 OUTPTK   LOCN      MACRO  CHAR,ADDRESS                                                    OUTPTK        19     A     
 OUTPTK   CHARNOW   MICRO  1,0, CHAR                                                       OUTPTK        20     A     
 OUTPTK   LASTCHAR  MICRO  2,1, CHAR                                                       OUTPTK        21     A     
 OUTPTK             IFC    EQ, "LASTCHAR"  ,1                                              OUTPTK        22     A     
 OUTPTK   CHARNOW   MICRO  1,0, 1R_CHAR                                                    OUTPTK        23     A     
 OUTPTK   *                                                                                OUTPTK        24     A     
 OUTPTK    .A       IFLE   "CHARNOW",LASTCHAR                                              OUTPTK        25     A     
 OUTPTK             ERR    (CHAR) - FORMAT CHARACTER OUT OF SEQUENCE "SEQUENCE".           OUTPTK        26     A     
 OUTPTK    .A       ELSE                                                                   OUTPTK        27     A     
 OUTPTK    .B       DUP    "CHARNOW"-LASTCHAR-1                                            OUTPTK        28     A     
 OUTPTK             IFEQ   $,59,2                                                          OUTPTK        29     A     
 OUTPTK             JP     ILLEGAL                                                         OUTPTK        30     A     
 OUTPTK             SKIP   1                                                               OUTPTK        31     A     
 OUTPTK   -         JP     ILLEGAL                                                         OUTPTK        32     A     
 OUTPTK    .B       ENDD                                                                   OUTPTK        33     A     
 OUTPTK    .A       ENDIF                                                                  OUTPTK        34     A     
 OUTPTK   *                                                                                OUTPTK        35     A     
 OUTPTK             IFEQ   $,59,2                                                          OUTPTK        36     A     
 OUTPTK             JP     ADDRESS                                                         OUTPTK        37     A     
 OUTPTK             SKIP   1                                                               OUTPTK        38     A     
 OUTPTK   -         JP     ADDRESS                                                         OUTPTK        39     A     
 OUTPTK   *                                                                                OUTPTK        40     A     
 OUTPTK    LASTCHAR SET    "CHARNOW"                                                       OUTPTK        41     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1707    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK    LOCN     ENDM                                                                   OUTPTK        42     A     
 OUTPTK                                                                                    OUTPTK        43     A     
 OUTPTK                                                                                    OUTPTK        44     A     
 OUTPTK                                                                                    OUTPTK        45          I
          -FCC1119
 OUTPTK   LASTCHAR  SET    -1                                                              OUTPTK        46     A     
 OUTPTK    BSS      OPSYN  BSSZ                                                            OUTPTK        47     A     
 OUTPTK             TITLE                  SYMBOL AND STORAGE DEFINITION                   OUTPTK        48     A     
 OUTPTK   DIGMASK   DATA   00000000077740000000B                                           OUTPTK        49     A     
 OUTPTK    NEEDW    BSS    0                                                               OUTPTK        50     A     
 OUTPTK             ECHO   2,L=(A,I,L,O,R,T,Z)                                             OUTPTK        51     A     
 OUTPTK             POS    60-1R_L                                                         OUTPTK        52     A     
 OUTPTK             VFD    1/1                                                             OUTPTK        53     A     
 OUTPTK             VFD    *P/0                                                            OUTPTK        54     A     
 OUTPTK   TEMPA0.   BSS    1                                                               OUTPTK        55     A     
 OUTPTK   APLIST    BSS    1                                                               OUTPTK        56     A     
 OUTPTK   R         BSS    1               FIELD DESCRIPTOR REPEAT COUNT                   OUTPTK        57     A     
 OUTPTK   W         BSS    1               WIDTH                                           OUTPTK        58     A     
 OUTPTK   GOCELL    BSS    1                                                               OUTPTK        59     A     
 OUTPTK   GRC       BSS    1               GROUP REPEAT COUNT FOR CURRENT GROUP            OUTPTK        60     A     
 OUTPTK   FORMAT    BSS    1                                                               OUTPTK        61     A     
 OUTPTK   LEVEL     BSS    1                                                               OUTPTK        62     A     
 OUTPTK   GROUPADR  BSS    1                                                               OUTPTK        63     A     
 OUTPTK   HCOUNT    BSS    1                                                               OUTPTK        64     A     
 OUTPTK   MAXLEVEL  EQU    2               THE MAXIMUM NUMBER OF GROUP LEVELS              OUTPTK        65     A     
 OUTPTK   LEVSTACK  BSS    MAXLEVEL+1      STORAGE FOR GROUP LEVEL STACK                   OUTPTK        66     A     
 OUTPTK   UNIT      BSS    1               HOLDS I/O UNIT DESIGNATION                      OUTPTK        67     A     
 OUTPTK   MAXCOUNT  BSS    1                                                               OUTPTK        68     A     
 OUTPTK    RESCAN   BSS    1               HOLDS LEVEL STACK INFORMATION FOR               OUTPTK        69     A     
 OUTPTK                                      RESCANNING THE FORMAT WHEN THE                OUTPTK        70     A     
 OUTPTK                                      TERMINAL RIGHT PARENTHESIS IS REACHED         OUTPTK        71     A     
 OUTPTK   PARENFLG  BSS    1                                                               OUTPTK        72     A     
 OUTPTK   RESETLIN  BSS    1                                                               OUTPTK        73     A     
 OUTPTK   RESETFMT  BSS    1                                                               OUTPTK        74     A     
 OUTPTK   RESETX3   BSS    1               TEMPORARY STORAGE USED BY 'SLASH'               OUTPTK        75     A     
 OUTPTK   RESETITM  BSS    1               TEMPORARY STORAGE USED BY 'SLASH'               OUTPTK        76     A     
 OUTPTK                                                                                    OUTPTK        77     A     
 OUTPTK   OUTADDR   VFD    60/BUFFER       BEGINNING OF OTUPUT LINE                        OUTPTK        78     A     
 OUTPTK             USE    /LINE/                                                          OUTPTK        79     A     
 OUTPTK    CONTINUE BSSZ   1           * EXPLICIT LINE TERMINATION MODE FLAG *             OUTPTK        80     A     
 OUTPTK             VFD    12/2000B,48/BUFFER        VALUE TO SET TO FOR CONT MODE         OUTPTK        81     A     
 OUTPTK   BUFFER    BSSZ   16                                                              OUTPTK        82     A     
 OUTPTK             USE    *                                                               OUTPTK        83     A     
 OUTPTK                                                                                    OUTPTK        84     A     
 OUTPTK   FORMS     BSS    0                                                               OUTPTK        85     A     
 OUTPTK             LOCN   A,AFORM         ALPHANUMERIC (LEFT JUSTIFIED)                   OUTPTK        86          I
          -FCC1119
 OUTPTK             LOCN   A,AFORMP        ALPHANUMERIC (LEFT JUSTIFIED)                   FCC1119        6     A     
 OUTPTK             LOCN   H,HFORM         HOLLERITH STRING PROCESSING (COUNT)             OUTPTK        87     A     
 OUTPTK             LOCN   I,IFORM         INTEGER CONVERSION                              OUTPTK        88     A     
 OUTPTK             LOCN   L,LFORM                                                         OUTPTK        89     A     
 OUTPTK             LOCN   O,OFORM         OCTAL CONVERSION                                OUTPTK        90     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1708    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK             LOCN   R,RFORM         ALPHANUMERIC (RIGHT JUSTIFIED)                  OUTPTK        91     A     
 OUTPTK             LOCN   T,TFORM         TABULATE (TEXT EDITING)                         OUTPTK        92     A     
 OUTPTK             LOCN   X,XFORM         SPACING  (TEXT EDITING)                         OUTPTK        93     A     
 OUTPTK             LOCN   Z,ZFORM     OCTAL CONVERSION ( LEADING BLANK FILL )             OUTPTK        94     A     
 OUTPTK             LOCN   *,DELIM         HOLERITH STRING (DELIMITED)                     OUTPTK        95     A     
 OUTPTK             LOCN   /,SLASH         TERMINATE CURRENT RECORD                        OUTPTK        96     A     
 OUTPTK             LOCN   1R(,LPFORM      BEGIN FIELD DESCRIPTOR GROUPING                 OUTPTK        97     A     
 OUTPTK             LOCN   1R),RPFORM      END FIELD DESCRIPTOR GROUPING                   OUTPTK        98     A     
 OUTPTK             LOCN   55B,RETURNX                                                     OUTPTK        99     A     
 OUTPTK             LOCN   (,),NEXTDESC    FIELD DESCRIPTOR SEPARATOR                      OUTPTK       100     A     
 OUTPTK             LOCN   64B,DELIM       HOLLERITH STRING (DELIMITED)                    OUTPTK       101     A     
 OUTPTK             TITLE                  INITIALIZATION INTERFACE                        OUTPTK       102     A     
 OUTPTK   ************************************************************************         OUTPTK       103     A     
 OUTPTK   *                                                                      *         OUTPTK       104     A     
 OUTPTK   *                                                                      *         OUTPTK       105     A     
 OUTPTK   *                                                                      *         OUTPTK       106     A     
 OUTPTK   *                O U T C I . -- INITIAL ENTRY POINT                    *         OUTPTK       107     A     
 OUTPTK   *                                                                      *         OUTPTK       108     A     
 OUTPTK   *                                                                      *         OUTPTK       109     A     
 OUTPTK   *                SAVE THE FORMAT ADDRESS, THE UNIT NUMBER AND SETUP    *         OUTPTK       110     A     
 OUTPTK   *             FOR PROCESSING THE BEGINNING OF AN I/O SEQUENCE.         *         OUTPTK       111     A     
 OUTPTK   *                                                                      *         OUTPTK       112     A     
 OUTPTK   *                                                                      *         OUTPTK       113     A     
 OUTPTK   ************************************************************************         OUTPTK       114     A     
 OUTPTK             SPACE  1                                                               OUTPTK       115     A     
 OUTPTK   OUTCI.    ENTRY.                                                                 OUTPTK       116     A     
 OUTPTK             SB1    1                                                               OUTPTK       117     A     
 OUTPTK             SX6    A0                                                              OUTPTK       118     A     
 OUTPTK             SA2    A1+B1           GET APLIST FORMAT WORD.                         OUTPTK       119     A     
 OUTPTK             SA6    TEMPA0.         SAVE FOR LATER RESTORATION.                     OUTPTK       120     A     
 OUTPTK             SX7    B1                                                              OUTPTK       121     A     
 OUTPTK             SX6    X2                                                              OUTPTK       122     A     
 OUTPTK             BX4    X6                                                              OUTPTK       123     A     
 OUTPTK             SA7    GRC             SET THE GROUP REPEAT COUNT 'GRC' TO ONE         OUTPTK       124     A     
 OUTPTK                                      FOR THE OUTER PARENTHESIS LEVEL.              OUTPTK       125     A     
 OUTPTK             SPACE  1                                                               OUTPTK       126     A     
 OUTPTK             SA6    FORMAT          SAVE THE FORMAT PARAMETER ADDRESS IN            OUTPTK       127     A     
 OUTPTK                                      'FORMAT'.                                     OUTPTK       128     A     
 OUTPTK             SPACE  1                                                               OUTPTK       129     A     
 OUTPTK             LX2    2               DETERMINE THE ADDRESS OF THE FIRST WORD         OUTPTK       130     A     
 OUTPTK             NG     X2,INIT.1         OF THE FORMAT FROM THE 'VAR' BIT IN           OUTPTK       131     A     
 OUTPTK             IX4    X6+X7             THE APLIST ENTRY.  IF THE BIT IS NOT          OUTPTK       132     A     
 OUTPTK                                      SET, THE ADDRESS IS INCREMENTED BY 1          OUTPTK       133     A     
 OUTPTK                                      TO YIELD THE TRUE FORMAT POINTER.             OUTPTK       134     A     
 OUTPTK             SPACE  1                                                               OUTPTK       135     A     
 OUTPTK   INIT.1    SX3    X1              DETERMINE THE UNIT NUMBER OF THE FILE           OUTPTK       136     A     
 OUTPTK             PL     X1,INIT.2         TO BE ACCESSED.  IF THE 'VAR' BIT IS          OUTPTK       137     A     
 OUTPTK             SA3    X1                SET, THE ADDRESS POINTS TO A WORD             OUTPTK       138     A     
 OUTPTK                                      CONTAINING THE UNIT NUMBER.                   OUTPTK       139     A     
 OUTPTK                                      OTHERWISE THE UNIT NUMBER IS                  OUTPTK       140     A     
 OUTPTK                                      CONTAINED IN THE APLIST WORD ENTRY.           OUTPTK       141     A     
 OUTPTK             SPACE  1                                                               OUTPTK       142     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1709    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK   INIT.2    SX6    A1+2                                                            OUTPTK       143     A     
 OUTPTK             SA6    APLIST          SAVE THE APLIST POINTER FOR LATER               OUTPTK       144     A     
 OUTPTK                                      PROCESSING OF THE LIST ITEMS.                 OUTPTK       145     A     
 OUTPTK             SPACE  1                                                               OUTPTK       146     A     
 OUTPTK             BX6    X3                                                              OUTPTK       147     A     
 OUTPTK             SX5    60-2*6          SET THE INITIAL SHIFT COUNT FOR THE             OUTPTK       148     A     
 OUTPTK             SB2    X5                FORMAT TO POINT JUST BEYOND THE               OUTPTK       149     A     
 OUTPTK                                      INITIAL LEFT PARENTHESIS.                     OUTPTK       150     A     
 OUTPTK             SA6    UNIT              (SAVE THE UNIT DESIGNATION.)                  OUTPTK       151     A     
 OUTPTK             LX5    18                                                              OUTPTK       152     A     
 OUTPTK             IX6    X5+X4                                                           OUTPTK       153     A     
 OUTPTK             SA2    X4              FETCH THE FIRST FORMAT WORD.                    OUTPTK       154     A     
 OUTPTK             SB6    60                                                              OUTPTK       155     A     
 OUTPTK             SA6    GROUPADR        SAVE THE POINTERS TO THE OUTER                  OUTPTK       156     A     
 OUTPTK                                      PARENTHESIS GROUP IN 'GROUPADR'.              OUTPTK       157     A     
 OUTPTK             SA5    OUTADDR                                                         OUTPTK       158     A     
 OUTPTK             LX6    18                                                              OUTPTK       159     A     
 OUTPTK             IX7    X6+X7                                                           OUTPTK       160     A     
 OUTPTK             SA7    LEVSTACK        SETUP THE INITIAL LEVEL STACK ENTRY--           OUTPTK       161     A     
 OUTPTK             SA7    RESCAN            THE LEVEL STACK CONTAINS THE                  OUTPTK       162     A     
 OUTPTK                                      NECESSARY INFORMATION FOR RESTARTING          OUTPTK       163     A     
 OUTPTK                                      THE FORMAT SCAN AT THE BEGINNING OF           OUTPTK       164     A     
 OUTPTK                                      A PARENTHESIS GROUP, THE ZERO LEVEL           OUTPTK       165     A     
 OUTPTK                                      ENTRY MUST THEREFORE CONTAIN THE              OUTPTK       166     A     
 OUTPTK                                      INFORMATION FOR RESTARTING THE FORM           OUTPTK       167     A     
 OUTPTK                                      SCAN WHEN THE FINAL RIGHT PARENTHESIS         OUTPTK       168     A     
 OUTPTK                                      IN THE FORMAT IS ENCOUNTERED.  THE            OUTPTK       169     A     
 OUTPTK                                      INFORMATION FOR THE ZERO ENTRY IS             OUTPTK       170     A     
 OUTPTK                                           SHIFTCT = 48, POSITION AFTER '('         OUTPTK       171     A     
 OUTPTK                                           WORD    = ADDRESS OF FIRST               OUTPTK       172     A     
 OUTPTK                                                     FORMAT WORD                    OUTPTK       173     A     
 OUTPTK                                           GRC    = 1, REMAINING REPEAT             OUTPTK       174     A     
 OUTPTK                                                     COUNT FOR GROUP                OUTPTK       175     A     
 OUTPTK             SA3    CONTINUE                                                        OUTPTK       176     A     
 OUTPTK             PX5    X5                                                              OUTPTK       177     A     
 OUTPTK             BX6    X6-X6                                                           OUTPTK       178     A     
 OUTPTK             SA6    LEVEL           INITIALIZE THE LEVEL NUMBER FOR THE             OUTPTK       179     A     
 OUTPTK                                      LEVEL STACK.                                  OUTPTK       180     A     
 OUTPTK             SPACE  1                                                               OUTPTK       181     A     
 OUTPTK             SB4    B0              SET THE ITEM COUNT TO ZERO                      OUTPTK       182     A     
 OUTPTK             SA6    PARENFLG        TURN OF THE TERMINAL RIGHT PAREN FLAG           OUTPTK       183     A     
 OUTPTK             SPACE  1                                                               OUTPTK       184     A     
 OUTPTK             ZR     X3,INIT.3       IF THE PROCESSING MODE IS 'EXPLICIT             OUTPTK       185     A     
 OUTPTK             SA4    MAXCOUNT          LINE TERMINATION' THEN CONTINUE THE           OUTPTK       186     A     
 OUTPTK             LX5    X3                LAST LINE WHERE THE PRECEDING WRITE           OUTPTK       187     A     
 OUTPTK             BX6    X4                STATEMENT FINISHED (I.E. IF                   OUTPTK       188     A     
 OUTPTK                                      'CONTINUE' IS NON-ZERO THEN IT                OUTPTK       189     A     
 OUTPTK                                      CONTAINS THE LINE INITIALIZING                OUTPTK       190     A     
 OUTPTK                                      INFORMATION, 'MAXCOUNT' SHOULD REMAIN         OUTPTK       191     A     
 OUTPTK                                      UNCHANGED IF 'CONTINUE' IS NON-ZERO).         OUTPTK       192     A     
 OUTPTK             SPACE  1                                                               OUTPTK       193     A     
 OUTPTK   INIT.3    SA6    MAXCOUNT        SET THE MAXIMUM LENGTH ATTAINED FOR THE         OUTPTK       194     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1710    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK                                      LINE (IF A TAB BACKWARD HAS OCCURRED)         OUTPTK       195     A     
 OUTPTK             SPACE  1                                                               OUTPTK       196     A     
 OUTPTK             UX0    X5,B3           SET THE LINE POSITION POINTERS AND THEN         OUTPTK       197     A     
 OUTPTK             ZR     NEXTDESC          GO TO 'NEXTDESC' TO BEGIN PORCESSING.         OUTPTK       198     A     
 OUTPTK             EJECT                                                                  OUTPTK       199     A     
 OUTPTK   **        OUTCR. - ITEM CONVERSION                                               OUTPTK       200     A     
 OUTPTK   *                                                                      *         OUTPTK       201     A     
 OUTPTK   *         REGISTER CONVENTIONS --                                      *         OUTPTK       202     A     
 OUTPTK   *                                                                      *         OUTPTK       203     A     
 OUTPTK   *         B0 -- 0             A0 -- UNUSED        X0 -- OUTPUT WORD    *         OUTPTK       204     A     
 OUTPTK   *         B1 -- 1             A1 -- DATA ADDRESS  X1 -- DATA ITEM      *         OUTPTK       205     A     
 OUTPTK   *         B2 -- FORMAT SHIFT  A2 -- FORMAT ADDR   X2 -- FORMAT WORD    *         OUTPTK       206     A     
 OUTPTK   *         B3 -- BITS FILLED   A3 -- SCRATCH       X3 -- SPECIAL HOLD   *         OUTPTK       207     A     
 OUTPTK   *         B4 -- ITEM COUNT    A4 -- SCRATCH       X4 -- SCRATCH        *         OUTPTK       208     A     
 OUTPTK   *         B5 -- SCRATCH       A5 -- SCRATCH       X5 -- SCRATCH        *         OUTPTK       209     A     
 OUTPTK   *         B6 -- 60            A6 -- SCRATCH       X6 -- SCRATCH        *         OUTPTK       210     A     
 OUTPTK   *         B7 -- SCRATCH       A7 -- SCRATCH       X7 -- SCRATCH        *         OUTPTK       211     A     
 OUTPTK             SPACE  1                                                               OUTPTK       212     A     
 OUTPTK   OUTPTCX   PX6    X0,B3           SAVE THE CURRENT POINTERS TO THE OUTPUT         OUTPTK       213     A     
 OUTPTK             SX5    A2                LINE AND THE FORMAT.                          OUTPTK       214     A     
 OUTPTK             SA6    RESETLIN                                                        OUTPTK       215     A     
 OUTPTK             PX7    X5,B2                                                           OUTPTK       216     A     
 OUTPTK             SB5    B1                                                              OUTPTK       217     A     
 OUTPTK             SA7    RESETFMT                                                        OUTPTK       218     A     
 OUTPTK             SA2    TEMPA0.                                                         OUTPTK       219     A     
 OUTPTK             SB2    B1                                                              OUTPTK       220     A     
 OUTPTK             SA0    X2                                                              OUTPTK       221     A     
 OUTPTK             SPACE  1                                                               OUTPTK       222     A     
 OUTPTK             SA2    APLIST                                                          OUTPTK       223     A     
 OUTPTK             SA3    X2              OBTAIN APLIST ITEM WORD ENTRY.                  OUTPTK       224     A     
 OUTPTK             SPACE  1                                                               OUTPTK       225     A     
 OUTPTK             SB1    -B1             PRESET IN CASE OF TERMINAL CALL.                OUTPTK       226     A     
 OUTPTK             NZ     X3,PRESET       IF NOT END OF I/O PARAMETER LIST.               OUTPTK       227     A     
 OUTPTK             PL     X3,PRESET.2       ELSE GO TO 'PRESET.2' TO HANDLE THE           OUTPTK       228     A     
 OUTPTK                                      END OF I/O LIST PROCESSING.                   OUTPTK       229     A     
 OUTPTK             EQ     OUTCI.                                                          OUTPTK       230     A     
 OUTPTK                                                                                    OUTPTK       231     A     
 OUTPTK    OUTCR.   ENTRY.                   ENTRY POINT FOR INTERRUPTED I/O LIST          OUTPTK       232     A     
 OUTPTK             SA2    APLIST          MAKE THINGS LOOK AS IF THERE WAS NOT AN         OUTPTK       233     A     
 OUTPTK             SA5    OUTCR.            INTERRUPTION.                                 OUTPTK       234     A     
 OUTPTK             LX7    X5                                                              OUTPTK       235     A     
 OUTPTK             SX2    A1                                                              OUTPTK       236     A     
 OUTPTK             SA7    OUTCI.                                                          OUTPTK       237     A     
 OUTPTK             BX3    X1                                                              OUTPTK       238     A     
 OUTPTK             SB1    -1                                                              OUTPTK       239     A     
 OUTPTK                                                                                    OUTPTK       240     A     
 OUTPTK                                                                                    OUTPTK       241     A     
 OUTPTK    PRESET   ZR     X3,PRESET.1       IF TERMINAL CALL                              OUTPTK       242     A     
 OUTPTK             IX4    X3+X3                                                           OUTPTK       243     A     
 OUTPTK             SB1    X3                (B1) = DATA ITEM ADDRESS                      OUTPTK       244     A     
 OUTPTK             PL     X4,PRESET.1       IF ITEM IS ^ F.P.                             OUTPTK       245     A     
 OUTPTK             SPACE  1                                                               OUTPTK       246     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1711    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK             AX4    1                                                               OUTPTK       247     A     
 OUTPTK             MX0    60-6                                                            OUTPTK       248     A     
 OUTPTK             BX6    -X0*X4                                                          OUTPTK       249     A     
 OUTPTK             LX4    60-6                                                            OUTPTK       250     A     
 OUTPTK             SB3    X6                                                              OUTPTK       251     A     
 OUTPTK             SA5    A0+B3           COMPUTE THE DATA ITEM ADDRESS BY ADDING         OUTPTK       252     A     
 OUTPTK             SB6    X4                THE FP OFFSET TO THE APPROPRIATE FP           OUTPTK       253     A     
 OUTPTK             SB1    X5+B6             ADDRESS IN THE SUBROUTINE APLIST.             OUTPTK       254     A     
 OUTPTK             SPACE  1                                                               OUTPTK       255     A     
 OUTPTK   PRESET.1  SX7    X2+1            INCREMENT THE APLIST POINTER, AND SET           OUTPTK       256     A     
 OUTPTK             AX3    24                THE ITEM COUNT INTO B2.  A ZERO ITEM          OUTPTK       257     A     
 OUTPTK             SA7    A2                COUNT WILL BE TREATED AS AN ITEM              OUTPTK       258     A     
 OUTPTK             SB2    X3                COUNT OF 1.                                   OUTPTK       259     A     
 OUTPTK             NZ     B2,PRESET.2                                                     OUTPTK       260     A     
 OUTPTK             SB2    1                                                               OUTPTK       261     A     
 OUTPTK             SPACE  1                                                               OUTPTK       262     A     
 OUTPTK   PRESET.2  SA5    RESETLIN                                                        OUTPTK       263     A     
 OUTPTK             SA4    RESETFMT                                                        OUTPTK       264     A     
 OUTPTK             PL     B1,SETUP.1      IF THIS IS NOT A FINAL ENTRY THEN GO            OUTPTK       265     A     
 OUTPTK             SB2    B1                TO 'SETUP.1', OTHERWISE SWITCH THE            OUTPTK       266     A     
 OUTPTK             SB1    -B1               FINAL INDICATOR FOR A LATER CHECK.            OUTPTK       267     A     
 OUTPTK             SPACE  1                                                               OUTPTK       268     A     
 OUTPTK   SETUP.1   SA1    B1-1            SET THE BASE DATA ITEM ADDRESS (I.E.            OUTPTK       269     A     
 OUTPTK                                      POINT TO THE WORD IMMEDIATELY PRIOR           OUTPTK       270     A     
 OUTPTK                                      TO THE SET OF DATA ITEMS).                    OUTPTK       271     A     
 OUTPTK             SPACE  1                                                               OUTPTK       272     A     
 OUTPTK             UX0    X5,B3           SETUP THE POINTERS TO THE LINE.                 OUTPTK       273     A     
 OUTPTK             SA2    X4              PICK UP THE CURRENT FORMAT WORD.                OUTPTK       274     A     
 OUTPTK             SB4    B2              SETUP THE COUNT OF THE NUMBER OF ITEMS          OUTPTK       275     A     
 OUTPTK                                      TO CONVERT.                                   OUTPTK       276     A     
 OUTPTK             SB1    1                                                               OUTPTK       277     A     
 OUTPTK             UX4    X4,B2           SETUP THE FORMAT SHIFT COUNT POINTER9           OUTPTK       278     A     
 OUTPTK             SB6    60                                                              OUTPTK       279     A     
 OUTPTK             SA5    PARENFLG                                                        OUTPTK       280     A     
 OUTPTK             PL     B4,INTER        IF THIS IS AN INTERMEDIATE ENTRY THEN           OUTPTK       281     A     
 OUTPTK                                      GO TO !INTER' TO ENTER THE                    OUTPTK       282     A     
 OUTPTK                                      PROCESSING CYCLE.                             OUTPTK       283     A     
 OUTPTK             SA5    CONTINUE                                                        OUTPTK       284     A     
 OUTPTK             SA4    OUTADDR                                                         OUTPTK       285     A     
 OUTPTK             NZ     X5,SETUP.2      IF THE PROCESSING MODE IS 'EXPLICIT             OUTPTK       286     A     
 OUTPTK                                      LINE TERMINATION' THEN GO TO                  OUTPTK       287     A     
 OUTPTK                                      'SETUP.2'.                                    OUTPTK       288     A     
 OUTPTK             SPACE  1                                                               OUTPTK       289     A     
 OUTPTK             SA5    MAXCOUNT        OTHERWISE INVOKE 'SLASH' TO DUMP THE            OUTPTK       290     A     
 OUTPTK             IX3    X0-X4             CURRENT OUTPUT LINE IF IT IS NOT              OUTPTK       291     A     
 OUTPTK             SX6    X3+B3             EMPTY.                                        OUTPTK       292     A     
 OUTPTK             BX7    X6+X5                                                           OUTPTK       293     A     
 OUTPTK             ZR     X7,OUTCI.       WHEN (IF NECESSARY) THE OUTPUT LINE HAS         OUTPTK       294     A     
 OUTPTK             INVOKE SLASH           BEEN DUMPED, RETURN TO THE CALLER.              OUTPTK       295     A     
 OUTPTK             EQ     OUTCI.                                                          OUTPTK       296     A     
 OUTPTK             SPACE  1                                                               OUTPTK       297     A     
 OUTPTK   SETUP.2   PX6    X0,B3           SINCE 'EXPLICIT LINE TERMINATION' IS IN         OUTPTK       298     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1712    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK             NO                       FORCE, SAVE THE CURRENT LINE POINTERS         OUTPTK       299     A     
 OUTPTK             SA6    CONTINUE          AND  RETURN TO THE CALLER.                    OUTPTK       300     A     
 OUTPTK             EQ     OUTCI.                                                          OUTPTK       301     A     
 OUTPTK             SPACE  1                                                               OUTPTK       302     A     
 OUTPTK   INTER     BX7    X7-X7                                                           OUTPTK       303     A     
 OUTPTK             SA7    A5              CLEAR THE PAREN FLAG.                           OUTPTK       304     A     
 OUTPTK             ZR     X5,IFNOMORE     GO TO 'IFNOMORE' IF THE LAST ENTRY WAS          OUTPTK       305     A     
 OUTPTK                                      NOT STOPPED BY THE TERMINAL PAREN,            OUTPTK       306     A     
 OUTPTK             EQ     NEXTDESC                                                        OUTPTK       307     A     
 OUTPTK             TITLE                  A -, R - FORMAT PROCESSING SECTIONS             OUTPTK       308     A     
 OUTPTK   ************************************************************************         OUTPTK       309     A     
 OUTPTK   *                                                                      *         OUTPTK       310     A     
 OUTPTK   *                       R - FORMAT PROCESSING                          *         OUTPTK       311     A     
 OUTPTK   *                                                                      *         OUTPTK       312     A     
 OUTPTK   *                CONVERT THE R-FORM DATA ITEM INTO A-FORM AND THEN USE *         OUTPTK       313     A     
 OUTPTK   *             THE A-FORMAT PROCESSING SECTION TO PROCESS THE ITEM.     *         OUTPTK       314     A     
 OUTPTK   *                                                                      *         OUTPTK       315     A     
 OUTPTK   ************************************************************************         OUTPTK       316     A     
 OUTPTK             SPACE  1                                                               OUTPTK       317     A     
 OUTPTK   RFORM     FORM                                                                   OUTPTK       318     A     
 OUTPTK             SB7    X6              CALCULATE THE SHIFT COUNT NECESSARY TO          OUTPTK       319          I
          -FCC1119
 OUTPTK             SB5    X6                IF THE FIELD WIDTH IS LESS THE ELEVEN PAR73   FCC1119        7     A     
 OUTPTK             LE     B5,B6,RFORM.1       CHARACTERS, THEN GO TO RFORM.1,     PAR73   FCC1119        8     A     
 OUTPTK             SX6    B5-B6             OTHERWISE CALL SPACE TO SPACE         PAR73   FCC1119        9     A     
 OUTPTK             CALL   SPACE               THE EXCESS NUMBER OF POSITIONS      PAR73   FCC1119       10     A     
 OUTPTK             SX6    B6                                                              FCC1119       11     A     
 OUTPTK   RFORM.1   SB7    X6                CALCULATE THE SHIFT COUNT NECESSARY T         FCC1119       12     A     
 OUTPTK             SB5    B6-B7             TRANSFORM THE DATA ITEM INTO A-FORM           OUTPTK       320     A     
 OUTPTK             LX1    X1,B5             AND THEN PERFORM THE TRANSFORMATION.          OUTPTK       321     A     
 OUTPTK             SPACE  5                                                               OUTPTK       322          I
          -FCC1119
 OUTPTK             EQ     AFORM                                                           FCC1119       13     A     
 OUTPTK                                                                                    FCC1119       14     A     
 OUTPTK   ************************************************************************ PAR73   FCC1119       15     A     
 OUTPTK   *                                                                      * PAR73   FCC1119       16     A     
 OUTPTK   *                       A - FORMAT PROCESSING                          * PAR73   FCC1119       17     A     
 OUTPTK   *                                                                      * PAR73   FCC1119       18     A     
 OUTPTK   *                IF THE NUMBER OF CHARACTERS TO BE TRANSMITTED IS      * PAR73   FCC1119       19     A     
 OUTPTK   *             GREATER THAN TEN, CALL SPACE TO INSERT THE CORRECT       * PAR73   FCC1119       20     A     
 OUTPTK   *             NUMBER OF BLANKS THEN GO TO AFORM.                       * PAR73   FCC1119       21     A     
 OUTPTK   *                THIS A FORMAT PROCESSOR IS CALLED ONLY WHEN THE       * PAR73   FCC1119       22     A     
 OUTPTK   *             A-FORMAT ACTUALLY APPEARS IN THE USER FORMAT.  THE OTHER * PAR73   FCC1119       23     A     
 OUTPTK   *             A-FORMAT PROCESSOR IS ONLY USED INTERNALLY.              * PAR73   FCC1119       24     A     
 OUTPTK                                                                                    FCC1119       25     A     
 OUTPTK    AFORMP   FORM                                                                   FCC1119       26     A     
 OUTPTK             SB5    X6                IF THE FIELD WIDTH IS LESS THE ELEVEN PAR73   FCC1119       27     A     
 OUTPTK             LE     B5,B6,AFORM         CHARACTERS, THEN GO TO AFORM,       PAR73   FCC1119       28     A     
 OUTPTK             SX6    B5-B6             OTHERWISE CALL SPACE TO SPACE         PAR73   FCC1119       29     A     
 OUTPTK             CALL   SPACE               THE EXCESS NUMBER OF POSITIONS      PAR73   FCC1119       30     A     
 OUTPTK             SX6    B6                                                              FCC1119       31     A     
 OUTPTK                                                                                    FCC1119       32     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1713    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK   ************************************************************************         OUTPTK       323     A     
 OUTPTK   *                                                                      *         OUTPTK       324     A     
 OUTPTK   *                       A - FORMAT PROCESSING                          *         OUTPTK       325     A     
 OUTPTK   *                                                                      *         OUTPTK       326     A     
 OUTPTK   *                IF THE NUMBER OF CHARACTERS TO BE TRANSMITTED FROM    *         OUTPTK       327     A     
 OUTPTK   *             THE A-FORM DATA WILL FIT INTO THE SPACE REMAINING IN THE *         OUTPTK       328     A     
 OUTPTK   *             CURRENT OUTPUT WORD, THEN THE SPACE IN THE OUTPUT WORD   *         OUTPTK       329     A     
 OUTPTK   *             NECESSARY TO ACCOMODATE THE A-FORM DATA IS CLEARED AND   *         OUTPTK       330     A     
 OUTPTK   *             THE A-FORM DATA INSERTED.  IF NOT ENOUGH SPACE IS        *         OUTPTK       331     A     
 OUTPTK   *             AVAILABLE IN THE CURRENT OUTPUT WORD FOR THE A-FORM      *         OUTPTK       332     A     
 OUTPTK   *             DATA, THEN THE DATA IS SPLIT TO OCCUPY THE END OF THE    *         OUTPTK       333     A     
 OUTPTK   *             CURRENT OUTPUT WORD AND THE BEGINNING OF THE NEXT        *         OUTPTK       334     A     
 OUTPTK   *             OUTPUT WORD.                                             *         OUTPTK       335     A     
 OUTPTK   *                                                                      *         OUTPTK       336     A     
 OUTPTK   ************************************************************************         OUTPTK       337     A     
 OUTPTK             SPACE  1                                                               OUTPTK       338     A     
 OUTPTK   AFORM     FORM                                                                   OUTPTK       339     A     
 OUTPTK             SB5    B6-B3           IF THE A-FORM DATA MUST BE SPLIT TO             OUTPTK       340     A     
 OUTPTK             SB7    X6                OCCUPY TWO OUTPUT WORDS THEN GO               OUTPTK       341     A     
 OUTPTK             LT     B5,B7,AFORM2WD    TO 'AFORM2WD'.                                OUTPTK       342     A     
 OUTPTK             SPACE  1                                                               OUTPTK       343     A     
 OUTPTK   AFORM.1   MX4    1               FORM THE MASK NECESSARY TO EXTRACT              OUTPTK       344     A     
 OUTPTK             SB7    B7-B1             THE A-FORM DATA AND INSERT IT INTO            OUTPTK       345     A     
 OUTPTK             SA5    X0                THE OUTPUT WORD.                              OUTPTK       346     A     
 OUTPTK             AX7    X4,B7                                                           OUTPTK       347     A     
 OUTPTK             BX6    X7*X1             (EXTRACT THE A-FORM DATA)                     OUTPTK       348     A     
 OUTPTK             LX5    X5,B3                                                           OUTPTK       349     A     
 OUTPTK             SB7    B3+B7                                                           OUTPTK       350     A     
 OUTPTK             BX4    -X7*X5            (CLEAR SPACE IN THE OUTPUT WORD)              OUTPTK       351     A     
 OUTPTK             SB3    B7+B1             (INCREMENT THE COUNT OF BITS IN THE           OUTPTK       352     A     
 OUTPTK                                      CURRENT OUTPUT WORD)                          OUTPTK       353     A     
 OUTPTK             SPACE  1                                                               OUTPTK       354     A     
 OUTPTK             BX6    X4+X6             (INSERT THE A-FORM DATA, THE BOOLEAN          OUTPTK       355     A     
 OUTPTK                                      UNIT MUST BE USED IN CASE AN ENTIRE           OUTPTK       356     A     
 OUTPTK                                      OUTPUT WORD CONSISTS OF SEMI-COLONS--         OUTPTK       357     A     
 OUTPTK                                      SINCE THE OUTPUT WORD WOULD BECOME            OUTPTK       358     A     
 OUTPTK                                      POSITIVE ZERO--NOT MINUS ZERO--IF             OUTPTK       359     A     
 OUTPTK                                      THE LONG ADD UNIT IS USED.)                   OUTPTK       360     A     
 OUTPTK             LX7    X6,B5                                                           OUTPTK       361     A     
 OUTPTK             SA7    A5                                                              OUTPTK       362     A     
 OUTPTK             ZR     RETURNX         GO TO 'RETURNX'.                                OUTPTK       363     A     
 OUTPTK             SPACE  2                                                               OUTPTK       364     A     
 OUTPTK   AFORM2WD  MX4    1               EXTRACT THE NUMBER OF CHARACTERS IN             OUTPTK       365     A     
 OUTPTK             SB3    B3-B1             A-FORM NECESSARY TO FILL THIS OUTPUT          OUTPTK       366     A     
 OUTPTK             LX1    X1,B5             WORD.                                         OUTPTK       367     A     
 OUTPTK             SB7    B7-B5                                                           OUTPTK       368     A     
 OUTPTK             SB5    B6                                                              OUTPTK       369     A     
 OUTPTK             SA5    X0                                                              OUTPTK       370     A     
 OUTPTK             AX7    X4,B3                                                           OUTPTK       371     A     
 OUTPTK             BX6    -X7*X1                                                          OUTPTK       372     A     
 OUTPTK             SB3    B0                                                              OUTPTK       373     A     
 OUTPTK             SX0    X0+B1                                                           OUTPTK       374     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1714    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK             BX5    X7*X5           CLEAR SPACE IN THE CURRENT OUTPUT WORD          OUTPTK       375     A     
 OUTPTK                                      TO ACCOMODATE THE AFORM DATA.                 OUTPTK       376     A     
 OUTPTK             SPACE  1                                                               OUTPTK       377     A     
 OUTPTK             BX6    X5+X6                                                           OUTPTK       378     A     
 OUTPTK             SA6    A5              APPEND THE AFORM DATA TO THE CURRENT            OUTPTK       379     A     
 OUTPTK             ZR     AFORM.1           OUTPUT WORD AND THEN GO TO 'AFORM.1'          OUTPTK       380     A     
 OUTPTK                                      TO PROCESS THE REMAINING CHARACTERS.          OUTPTK       381     A     
 OUTPTK             TITLE                  I - FORMAT PROCESSING SECTION                   OUTPTK       382     A     
 OUTPTK   ************************************************************************         OUTPTK       383     A     
 OUTPTK   *                                                                      *         OUTPTK       384     A     
 OUTPTK   *                       I - FORMAT PROCESSING                          *         OUTPTK       385     A     
 OUTPTK   *                                                                      *         OUTPTK       386     A     
 OUTPTK   *                CONVERT THE BINARY INTEGER DATA ITEM TO DECIMAL       *         OUTPTK       387     A     
 OUTPTK   *             REPRESENTATION, RIGHT-JUSTIFIED WITHIN THE SPECIFIED     *         OUTPTK       388     A     
 OUTPTK   *             FIELD (WITH BLANK FILL IF NECESSARY).  AFTER THE DECIMAL *         OUTPTK       389     A     
 OUTPTK   *             FORM HAS BEEN OBTAINED GO TO THE A-FORMAT PROCESSING     *         OUTPTK       390     A     
 OUTPTK   *             SECTION TO INSERT THE CHARACTERS INTO THE OUTPUT LINE.   *         OUTPTK       391     A     
 OUTPTK   *                                                                      *         OUTPTK       392     A     
 OUTPTK   ************************************************************************         OUTPTK       393     A     
 OUTPTK             SPACE  1                                                               OUTPTK       394     A     
 OUTPTK   IFORMCON  DATA   10H          ,10.0P0,0.100000000001P48                          OUTPTK       395     A     
 OUTPTK             SPACE  1                                                               OUTPTK       396     A     
 OUTPTK   IFORM     FORM                                                                   OUTPTK       397     A     
 OUTPTK             SB5    X6              IF THE FIELD WIDTH IS LESS THAN ELEVEN          OUTPTK       398     A     
 OUTPTK             LE     B5,B6,IFORM.1     CHARACTERS THEN GO TO 'IFORM.1',              OUTPTK       399     A     
 OUTPTK             SPACE  1                                                               OUTPTK       400     A     
 OUTPTK             SX6    B5-B6           OTHERWISE CALL 'SPACE' TO SPACE THE             OUTPTK       401     A     
 OUTPTK             CALL   SPACE             EXCESS NUMBER OF POSITIONS (I.E. IF           OUTPTK       402     A     
 OUTPTK             SB5    B6                THE FIELD WIDTH IS TWELVE CHARACTERS          OUTPTK       403     A     
 OUTPTK                                      THEN SPACE TWO CHARACTERS).                   OUTPTK       404     A     
 OUTPTK             SPACE  1                                                               OUTPTK       405     A     
 OUTPTK    IFORM.1  BSS    0                                                               OUTPTK       406     A     
 OUTPTK             PL     X1,IFORM.12     IF NEGATIVE NUMBER COMPLEMENT AND               OUTPTK       407     A     
 OUTPTK             BX1    -X1               CHANGE TO POSITIVE NUMBER                     OUTPTK       408     A     
 OUTPTK             SB6    B0                AND SET FLAG                                  OUTPTK       409     A     
 OUTPTK    IFORM.12 BSS    0                                                               OUTPTK       410     A     
 OUTPTK             PX1    X1              CONVERT THE INTEGER TO FLOATING                 OUTPTK       411     A     
 OUTPTK             SB7    B5                POINT FORM (UN-NORMALIZED) AND FETCH          OUTPTK       412     A     
 OUTPTK             SA5    IFORMCON          THE CONVERSION CONSTANTS.                     OUTPTK       413     A     
 OUTPTK             BX7    X5                                                              OUTPTK       414     A     
 OUTPTK             SA4    A5+B1                                                           OUTPTK       415     A     
 OUTPTK             SA5    A4+B1                                                           OUTPTK       416     A     
 OUTPTK             SPACE  1                                                               OUTPTK       417     A     
 OUTPTK   IFORM.2   DX6    X5*X1           CONVERT THE BINARY VALUE, FORMING THE           OUTPTK       418     A     
 OUTPTK             FX1    X5*X1             DECIMAL REPRESENTATION A DIGIT AT A           OUTPTK       419     A     
 OUTPTK             SB5    B5-6              TIME (FROM RIGHT TO LEFT).                    OUTPTK       420     A     
 OUTPTK             FX6    X4*X6             METHOD: LET 'B' BE THE BINARY VALUE           OUTPTK       421     A     
 OUTPTK             SX6    X6+1R0-1R           1)  XD = B*0.1   (FRACTIONAL PART)          OUTPTK       422     A     
 OUTPTK             IX7    X6+X7               2)  B  = B*0.1   (INTEGRAL PART)            OUTPTK       423     A     
 OUTPTK             NX6    X1                  3)  D  = XD*10.0 (DECIMAL DIGIT)            OUTPTK       424     A     
 OUTPTK             LX7    -6                                                              OUTPTK       425     A     
 OUTPTK             NZ     X6,IFORM.2                                                      OUTPTK       426     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1715    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK             NE     B6,B0,IFORM.3                                                   OUTPTK       427     A     
 OUTPTK             SX5    1R--1R                                                          OUTPTK       428     A     
 OUTPTK             SB6    60                RESTORE B6                                    OUTPTK       429     A     
 OUTPTK             IX7    X7+X5                                                           OUTPTK       430     A     
 OUTPTK    IFORM.3  BSS    0                                                               OUTPTK       431     A     
 OUTPTK             SPACE  1                                                               OUTPTK       432     A     
 OUTPTK             SX6    B7              CALL 'AFORM' TO APPEND THE PROPERLY             OUTPTK       433     A     
 OUTPTK             SB5    B6-B5             POSITIONED AND JUSTIFIED DIGITS.              OUTPTK       434     A     
 OUTPTK             LX1    X7,B5                                                           OUTPTK       435     A     
 OUTPTK             ZR     AFORM                                                           OUTPTK       436     A     
 OUTPTK             TITLE  L - FORMAT PROCESSING SECTION                                   OUTPTK       437     A     
 OUTPTK   ************************************************************************         OUTPTK       438     A     
 OUTPTK   *        L - FORMAT PROCESSING                                         *         OUTPTK       439     A     
 OUTPTK   *        PRINTS A T IF THE LOGICAL VARIABLE HAS A VALUE OF TRUE, ELSE  *         OUTPTK       440     A     
 OUTPTK   *        PRINTS A F IF THE LOGICAL VARIABLE HAS A VALUE OF FALSE       *         OUTPTK       441     A     
 OUTPTK   ************************************************************************         OUTPTK       442     A     
 OUTPTK    LFORM    FORM                                                                   OUTPTK       443     A     
 OUTPTK             SB5    X6              IF THE FIELD WIDTH IS LESS THAN                 OUTPTK       444     A     
 OUTPTK             LE     B5,B6,LFORM.1     ELEVEN CHARACTERS THEN GO TO LFORM.1          OUTPTK       445     A     
 OUTPTK                                                                                    OUTPTK       446     A     
 OUTPTK             SX6    B5-B6             OTHERWISE CALL SPACE TO SPACE THE             OUTPTK       447     A     
 OUTPTK             CALL   SPACE             EXCESS NUMBER OF POSITIONS                    OUTPTK       448     A     
 OUTPTK             SB5    B6                                                              OUTPTK       449     A     
 OUTPTK                                                                                    OUTPTK       450     A     
 OUTPTK    LFORM.1  BSS    0                                                               OUTPTK       451     A     
 OUTPTK             SA5    IFORMCON          FILL WORD WITH BLANKS                         OUTPTK       452     A     
 OUTPTK             SX6    1RF-1R            F                                             OUTPTK       453     A     
 OUTPTK             PL     X1,LFORM.2                                                      OUTPTK       454     A     
 OUTPTK             SX6    1RT-1R            T                                             OUTPTK       455     A     
 OUTPTK    LFORM.2  BSS    0                                                               OUTPTK       456     A     
 OUTPTK             SB7    B6-B5                                                           OUTPTK       457     A     
 OUTPTK             IX1    X6+X5                                                           OUTPTK       458     A     
 OUTPTK             LX1    X1,B7             SHIFT LETTER TO BOTTOM OF FIELD               OUTPTK       459     A     
 OUTPTK             SX6    B5                                                              OUTPTK       460     A     
 OUTPTK             EQ     AFORM                                                           OUTPTK       461     A     
 OUTPTK             TITLE                  O - FORMAT PROCESSING SECTION                   OUTPTK       462     A     
 OUTPTK   ************************************************************************         OUTPTK       463     A     
 OUTPTK   *                                                                      *         OUTPTK       464     A     
 OUTPTK   *                       O - FORMAT PROCESSING                          *         OUTPTK       465     A     
 OUTPTK   *                                                                      *         OUTPTK       466     A     
 OUTPTK   *                CONVERT THE BINARY DATA ITEM TO OCTAL FORM (ONLY THE  *         OUTPTK       467     A     
 OUTPTK   *             NUMBER OF DIGITS SPECIFIED THOUGH), BLANK FILLING IF     *         OUTPTK       468     A     
 OUTPTK   *             NECESSARY.                                               *         OUTPTK       469     A     
 OUTPTK   *                                                                      *         OUTPTK       470     A     
 OUTPTK   ************************************************************************         OUTPTK       471     A     
 OUTPTK             SPACE  1                                                               OUTPTK       472     A     
 OUTPTK   OFORMCON  DATA   10H0000000000,0                                                 OUTPTK       473     A     
 OUTPTK             SPACE  1                                                               OUTPTK       474     A     
 OUTPTK    ZFORM    SA4    =1H                                                             OUTPTK       475     A     
 OUTPTK             SX7    1R0-1R                                                          OUTPTK       476     A     
 OUTPTK             EQ     OFORM1                                                          OUTPTK       477     A     
 OUTPTK                                                                                    OUTPTK       478     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1716    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK    OFORM    SA4    =10H0000000000                                                  OUTPTK       479     A     
 OUTPTK             MX7    0                                                               OUTPTK       480     A     
 OUTPTK                                                                                    OUTPTK       481     A     
 OUTPTK    OFORM1   SA7    OFORMCON+1                                                      OUTPTK       482     A     
 OUTPTK             BX7    X4                                                              OUTPTK       483     A     
 OUTPTK             SA7    A7-B1                                                           OUTPTK       484     A     
 OUTPTK             SB7    X6                                                              OUTPTK       485     A     
 OUTPTK             SB5    B6+B6                                                           OUTPTK       486     A     
 OUTPTK             LE     B7,B6,OFORM.3   IF THE WIDTH OF THE OCTAL FORMAT IS             OUTPTK       487     A     
 OUTPTK                                      LESS THAN ELEVEN CHARACTERS THEN              OUTPTK       488     A     
 OUTPTK                                      GO TO 'OFORM.4'.                              OUTPTK       489     A     
 OUTPTK             SPACE  1                                                               OUTPTK       490     A     
 OUTPTK             LE     B7,B5,OFORM.1   IF THE WIDTH IS BETWEEN ELEVEN AND              OUTPTK       491     A     
 OUTPTK                                      TWENTY CHARACTERS THEN GO TO                  OUTPTK       492     A     
 OUTPTK                                      'OFORM.1',                                    OUTPTK       493     A     
 OUTPTK             SX6    B7-B5           OTHERWISE CALL 'SPACE' TO SKIP OVER             OUTPTK       494     A     
 OUTPTK             CALL   SPACE             THE EXCESS POSITIONS AND THEN                 OUTPTK       495     A     
 OUTPTK             SX6    B6+B6             PROCESS AS A TWENTY DIGIT CONVERSION.         OUTPTK       496     A     
 OUTPTK             SB7    B6+B6                                                           OUTPTK       497     A     
 OUTPTK             SPACE  1                                                               OUTPTK       498     A     
 OUTPTK   OFORM.1   SB5    B7-B6           CONVERT THE BINARY VALUE TO TWENTY              OUTPTK       499     A     
 OUTPTK             MX7    60-3              OCTAL DIGITS, EXTRACTING TWO DIGITS           OUTPTK       500     A     
 OUTPTK             BX4    X7                AT A TIME.                                    OUTPTK       501     A     
 OUTPTK             LX7    30                                                              OUTPTK       502     A     
 OUTPTK             BX4    X7*X4                                                           OUTPTK       503     A     
 OUTPTK             IX3    X3-X3                                                           OUTPTK       504     A     
 OUTPTK             MX5    0                                                               OUTPTK       505     A     
 OUTPTK             SB7    B6                                                              OUTPTK       506     A     
 OUTPTK             SPACE  1                                                               OUTPTK       507     A     
 OUTPTK   OFORM.2   BX7    -X4*X1          EXTRACT TWO OCTAL DIGITS (THIRTY BITS           OUTPTK       508     A     
 OUTPTK             AX1    3                 APART),                                       OUTPTK       509     A     
 OUTPTK             SX6    X7+1R0            CONVERT THE DIGITS TO DISPLAY CODE            OUTPTK       510     A     
 OUTPTK             IX3    X3+X6             AND APPEND THEM TO THE ACCUMULATED            OUTPTK       511     A     
 OUTPTK             AX7    30                DIGITS.                                       OUTPTK       512     A     
 OUTPTK             SX6    X7+1R0                                                          OUTPTK       513     A     
 OUTPTK             IX5    X5+X6                                                           OUTPTK       514     A     
 OUTPTK             LX3    -6                                                              OUTPTK       515     A     
 OUTPTK             SB7    B7-6                                                            OUTPTK       516     A     
 OUTPTK             LX5    -6                                                              OUTPTK       517     A     
 OUTPTK             GT     B7,B0,OFORM.2   CONTINUE UNTIL ALL DIGITS ARE PROCESSED         OUTPTK       518     A     
 OUTPTK             SPACE  1                                                               OUTPTK       519     A     
 OUTPTK             BX1    X5              CALL 'AFORM' TO PLACE THE APPROPRIATE           OUTPTK       520     A     
 OUTPTK             SX6    B5                DIGITS INTO THE OUTPUT LINE.                  OUTPTK       521     A     
 OUTPTK             INVOKE RFORM                                                           OUTPTK       522     A     
 OUTPTK             BX1    X3                                                              OUTPTK       523     A     
 OUTPTK             SX6    B6                                                              OUTPTK       524     A     
 OUTPTK             INVOKE AFORM                                                           OUTPTK       525     A     
 OUTPTK             ZR     NEXTELEM        RETURN FOR THE NEXT ELEMENT.                    OUTPTK       526     A     
 OUTPTK             SPACE  2                                                               OUTPTK       527     A     
 OUTPTK   OFORM.3   AX6    1               IF TEN OR FEWER DIGITS ARE TO BE                OUTPTK       528     A     
 OUTPTK             SB5    X6+B1             CONVERTED THEN PERFORM THE CONVERSION         OUTPTK       529     A     
 OUTPTK             SA5    OFORMCON          ONE DIGIT AT A TIME, FROM RIGHT TO            OUTPTK       530     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1717    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK             MX7    1                 LEFT.  LEADING ZERO DIGITS WILL BE            OUTPTK       531     A     
 OUTPTK             SB5    B6-B5             REPLACED BY THE CHARACTER WHICH IS            OUTPTK       532     A     
 OUTPTK             SA4    A5+B1             REPLICATED TEN TIMES IN 'OFORMCON'            OUTPTK       533     A     
 OUTPTK             AX7    X7,B5             (AND OF COURSE THIS MAY BE THE                OUTPTK       534     A     
 OUTPTK             BX1    -X7*X1            CHARACTER ZERO).  SEE THE DESCRIPTION         OUTPTK       535     A     
 OUTPTK             SB5    X4                ABOVE FOR FUTHER DETAILS.                     OUTPTK       536     A     
 OUTPTK             SX3    B7                                                              OUTPTK       537     A     
 OUTPTK             MX4    60-3                                                            OUTPTK       538     A     
 OUTPTK             SPACE  1                                                               OUTPTK       539     A     
 OUTPTK   OFORM.4   BX6    -X4*X1          EXTRACT ONE DIGIT.                              OUTPTK       540     A     
 OUTPTK             AX1    3               SHIFT VALUE TO POSITION THE NEXT DIGIT.         OUTPTK       541     A     
 OUTPTK             SX7    X6+B5           CONVERT THE DIGIT TO THE VALUE WHICH,           OUTPTK       542     A     
 OUTPTK             IX5    X5+X7             WHEN ADDED TO 'OFORMCON', WILL BE THE         OUTPTK       543     A     
 OUTPTK             SB7    B7-6              DISPLAY CODE FOR THE DIGIT.                   OUTPTK       544     A     
 OUTPTK             NO                       DECREMENT WIDTH.                              OUTPTK       545     A     
 OUTPTK             LX5    -6              POSITION THE OCNVERTED DIGITS.                  OUTPTK       546     A     
 OUTPTK             NZ     X1,OFORM.4      CONTINUE IF ANY NON-ZERO DIGITS REMAIN.         OUTPTK       547     A     
 OUTPTK             SPACE  1                                                               OUTPTK       548     A     
 OUTPTK             SB5    B6-B7           POSITION THE CONVERTED DIGITS AND               OUTPTK       549     A     
 OUTPTK             LX1    X5,B5             INVOKE 'AFORM' TO APPEND THE DIGITS           OUTPTK       550     A     
 OUTPTK             SX6    X3                TO THE OUTPUT LINE.                           OUTPTK       551     A     
 OUTPTK             INVOKE AFORM                                                           OUTPTK       552     A     
 OUTPTK             ZR     NEXTELEM        RETURN FOR THE NEXT ELEMENT.                    OUTPTK       553     A     
 OUTPTK             TITLE                  H - FORMAT PROCESSING SECITON                   OUTPTK       554     A     
 OUTPTK   ************************************************************************         OUTPTK       555     A     
 OUTPTK   *                                                                      *         OUTPTK       556     A     
 OUTPTK   *                                                                      *         OUTPTK       557     A     
 OUTPTK   *                       H - FORMAT PROCESSING                          *         OUTPTK       558     A     
 OUTPTK   *                                                                      *         OUTPTK       559     A     
 OUTPTK   *                                                                      *         OUTPTK       560     A     
 OUTPTK   ************************************************************************         OUTPTK       561     A     
 OUTPTK             SPACE  1                                                               OUTPTK       562     A     
 OUTPTK   HFORM     SB7    X6                                                              OUTPTK       563     A     
 OUTPTK             SB5    B2+6                                                            OUTPTK       564     A     
 OUTPTK             LE     B7,B5,HFORM.2   IF THE CURRENT FORMAT WORD CONTAINS             OUTPTK       565     A     
 OUTPTK                                      ALL OF THE HOLLERITH TEXT THEN GO             OUTPTK       566     A     
 OUTPTK                                      TO 'HFORM.2'.                                 OUTPTK       567     A     
 OUTPTK             SPACE  1                                                               OUTPTK       568     A     
 OUTPTK   HFORM.1   SX7    B7-B5           POSITION THE HOLLERITH TEXT IN A-FORM           OUTPTK       569     A     
 OUTPTK             SB7    B6-B5             FOR PROCESSING BY THE 'AFORM' SECTION         OUTPTK       570     A     
 OUTPTK             LX1    X2,B7             (ALSO SET THE LENGTH OF THE TEXT              OUTPTK       571     A     
 OUTPTK                                      PORTION FOR 'HFORM').                         OUTPTK       572     A     
 OUTPTK             SPACE  1                                                               OUTPTK       573     A     
 OUTPTK             SX6    B5              SET THE LENGTH OF THE CHARACTERS TO BE          OUTPTK       574     A     
 OUTPTK                                      PROCESSED BY THE 'AFORM' SECTION.             OUTPTK       575     A     
 OUTPTK             SPACE  1                                                               OUTPTK       576     A     
 OUTPTK             SA7    HCOUNT          SAVE THE LENGTH OF THE HOLLERITH STRING         OUTPTK       577     A     
 OUTPTK                                      WHICH REMAINS TO BE TRANSMITTED.              OUTPTK       578     A     
 OUTPTK             SPACE  1                                                               OUTPTK       579     A     
 OUTPTK             INVOKE AFORM           INVOKE THE 'AFORM' PROCESSING SECTION,          OUTPTK       580     A     
 OUTPTK                                      BUT RETURN HERE TO COMPLETE THE               OUTPTK       581     A     
 OUTPTK                                      H-FORMAT PROCESSING.                          OUTPTK       582     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1718    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK             SPACE  1                                                               OUTPTK       583     A     
 OUTPTK             SA2    A2+B1           FETCH THE NEXT FORMAT WORD AND SET THE          OUTPTK       584     A     
 OUTPTK             SB5    B6                AVAILABLE STRING LENGTH TO SIXTY BITS         OUTPTK       585     A     
 OUTPTK             SPACE  1                                                               OUTPTK       586     A     
 OUTPTK             SA5    HCOUNT          LOAD THE LENGTH OF THE REMAINING                OUTPTK       587     A     
 OUTPTK             SB7    X5                HOLLERITH TEXT TO BE TRANSMITTED AND          OUTPTK       588     A     
 OUTPTK             GT     B7,B5,HFORM.1     IF THIS FORMAT WORD WILL NOT                  OUTPTK       589     A     
 OUTPTK                                      COMPLETELY SATISFY THE TRANSFER TEHN          OUTPTK       590     A     
 OUTPTK                                      GO TO 'HFORM.1'.                              OUTPTK       591     A     
 OUTPTK             SPACE  1                                                               OUTPTK       592     A     
 OUTPTK   HFORM.2   SB2    B5-B7           RESET THE FORMAT SHIFT COUNT,                   OUTPTK       593     A     
 OUTPTK             SB5    B6-B5             POSITION THE LAST TEXT SECTION (AND           OUTPTK       594     A     
 OUTPTK             LX1    X2,B5           THE LENGTH OF THIS SECTION) AND                 OUTPTK       595     A     
 OUTPTK             SX6    B7              INVOKE THE 'AFORM' PROCESSING.                  OUTPTK       596     A     
 OUTPTK             SB2    B2-6                                                            OUTPTK       597     A     
 OUTPTK             INVOKE AFORM                                                           OUTPTK       598     A     
 OUTPTK             SPACE  1                                                               OUTPTK       599     A     
 OUTPTK             PL     B2,NEXTDESC     IF THE CURRENT FORMAT WORD HAS BEEN             OUTPTK       600     A     
 OUTPTK             SA2    A2+B1             EXHAUSTED THEN FETCH THE NEXT WORD            OUTPTK       601     A     
 OUTPTK             SB2    B6+B2             AND ADJUST THE FORMAT POINTERS BEFORE         OUTPTK       602     A     
 OUTPTK             ZR     NEXTDESC          RETURNING TO 'NEXTDESC'.                      OUTPTK       603     A     
 OUTPTK             TITLE                  DELIM -- HOLLERITH STRING PROCESSING (D         OUTPTK       604     A     
 OUTPTK   ,ELIMITER FORM)                                                                  OUTPTK       605     A     
 OUTPTK   ************************************************************************         OUTPTK       606     A     
 OUTPTK   *                                                                      *         OUTPTK       607     A     
 OUTPTK   *                                                                      *         OUTPTK       608     A     
 OUTPTK   *                HOLLERITH STRING PROCESSING (DELIMITER FORM)          *         OUTPTK       609     A     
 OUTPTK   *                                                                      *         OUTPTK       610     A     
 OUTPTK   *                                                                      *         OUTPTK       611     A     
 OUTPTK   ************************************************************************         OUTPTK       612     A     
 OUTPTK             SPACE  1                                                               OUTPTK       613     A     
 OUTPTK   DELIM     SX3    B5              PLACE THE STRING DELIMITER INTO                 OUTPTK       614     A     
 OUTPTK             SB5    6                 REGISTER X5 AND 6 INTO REGISTER               OUTPTK       615     A     
 OUTPTK                                      B5 FOR THE DURATION OF STRING                 OUTPTK       616     A     
 OUTPTK                                      PROCESSING.                                   OUTPTK       617     A     
 OUTPTK             SPACE  1                                                               OUTPTK       618     A     
 OUTPTK   DELIM.1   SB7    B6              INITIALIZE FOR ACCUMULATING UP TO TEN           OUTPTK       619     A     
 OUTPTK             BX1    X1-X1             HOLLERITH CHARACTERS AT A TIME BEFORE         OUTPTK       620     A     
 OUTPTK             MX7    60-6              INVOKING THE 'AFORM' PROCESSING.              OUTPTK       621     A     
 OUTPTK             SPACE  1                                                               OUTPTK       622     A     
 OUTPTK   DELIM.2   AX4    X2,B2           EXTRACT THE NEXT CHARACTER FROM THE             OUTPTK       623     A     
 OUTPTK             SB2    B2-B5             FORMAT, UPDATE THE FORMAT POINTERS,           OUTPTK       624     A     
 OUTPTK             BX5    -X7*X4            AND IF THE END OF THE HOLLERITH               OUTPTK       625     A     
 OUTPTK             IX6    X5-X3             STRING HAS BEEN REACHED THEN GO TO            OUTPTK       626     A     
 OUTPTK             PL     B2,DELIM.3        'DELIM.4'.                                    OUTPTK       627     A     
 OUTPTK             SB2    B2+B6             (RESET FORMAT POINTERS WHEN STEPPING          OUTPTK       628     A     
 OUTPTK             SA2    A2+B1             OVER A WORD BOUNDARY.)                        OUTPTK       629     A     
 OUTPTK   DELIM.3   ZR     X6,DELIM.4                                                      OUTPTK       630     A     
 OUTPTK             SPACE  1                                                               OUTPTK       631     A     
 OUTPTK             BX1    X5+X1           OTHERWISE APPEND THE CHARACTER TO THE           OUTPTK       632     A     
 OUTPTK             SB7    B7-B5             ACCUMULATED STRING AND GO TO                  OUTPTK       633     A     
 OUTPTK             LX1    6                 'DELIM.2' IF TEN CHARACTERS HAVE NOT          OUTPTK       634     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1719    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK             GT     B7,B0,DELIM.2     YET BEEN ACCUMULATED.                         OUTPTK       635     A     
 OUTPTK             SX6    B6              SET THE 'AFORM' COUNT TO TEN CHARACTERS         OUTPTK       636     A     
 OUTPTK             LX1    60-6              AND INVOKE THE 'AFORM' PROCESSING.            OUTPTK       637     A     
 OUTPTK             INVOKE AFORM                                                           OUTPTK       638     A     
 OUTPTK             SPACE  1                                                               OUTPTK       639     A     
 OUTPTK             SB5    6                                                               OUTPTK       640     A     
 OUTPTK             ZR     DELIM.1         REENTER THE CYCLE AT 'DELIM.1' TO               OUTPTK       641     A     
 OUTPTK                                      INITIALIZE.                                   OUTPTK       642     A     
 OUTPTK             SPACE  1                                                               OUTPTK       643     A     
 OUTPTK   DELIM.4  SX6     B6-B7           SET THE COUNT OF ACCUMULATED CHARACTERS         OUTPTK       644     A     
 OUTPTK            SB7     B7-B5                                                           OUTPTK       645     A     
 OUTPTK            LX1     X1,B7             AND INVOKE THE 'AFORM' PROCESSING IF          OUTPTK       646     A     
 OUTPTK            ZR      X6,NEXTELEM       THERE WERE ANY ACCUMULATED CHARACTERS         OUTPTK       647     A     
 OUTPTK             INVOKE AFORM                                                           OUTPTK       648     A     
 OUTPTK             SPACE  1                                                               OUTPTK       649     A     
 OUTPTK             ZR     NEXTDESC        AFTER PROCESSING THE CHARACTERS (IF             OUTPTK       650     A     
 OUTPTK                                      ANY) RETURN TO 'NEXTDESC' FOR THE             OUTPTK       651     A     
 OUTPTK                                      THE NEXT FORMAT FIELD DESCRIPTOR.             OUTPTK       652     A     
 OUTPTK             TITLE                  LEFT AND RIGHT PARENTHESIS PROCESSING S         OUTPTK       653     A     
 OUTPTK   ,ECTION                                                                          OUTPTK       654     A     
 OUTPTK   ************************************************************************         OUTPTK       655     A     
 OUTPTK   *                                                                      *         OUTPTK       656     A     
 OUTPTK   *                       LEFT PARENTHESIS PROCESSING                    *         OUTPTK       657     A     
 OUTPTK   *                                                                      *         OUTPTK       658     A     
 OUTPTK   *                SAVE THE PREVIOUS GROUP INFORMATION (BEGINNING GROUP  *         OUTPTK       659     A     
 OUTPTK   *             ADDRESS AND GROUP REPEAT COUNT) IN THE LEVEL STACK AND   *         OUTPTK       660     A     
 OUTPTK   *             SET THE CURRENT BEGINNING GROUP ADDRESS AND GROUP REPEAT *         OUTPTK       661     A     
 OUTPTK   *             COUNT.  (IF THIS IS A LEVEL-1 GROUP, THEN ALSO SAVE THE  *         OUTPTK       662     A     
 OUTPTK   *             CURRENT INFORMATION FOR RESTART PURPOSES WHEN THE END OF *         OUTPTK       663     A     
 OUTPTK   *             THE FORMAT IS REACHED.)                                  *         OUTPTK       664     A     
 OUTPTK   *                                                                      *         OUTPTK       665     A     
 OUTPTK   ************************************************************************         OUTPTK       666     A     
 OUTPTK             SPACE  1                                                               OUTPTK       667     A     
 OUTPTK   LPFORM    SA3    GROUPADR                                                        OUTPTK       668     A     
 OUTPTK             SA5    GRC                                                             OUTPTK       669     A     
 OUTPTK             SX4    B2                                                              OUTPTK       670     A     
 OUTPTK             LX3    18                                                              OUTPTK       671     A     
 OUTPTK             SX6    A2                                                              OUTPTK       672     A     
 OUTPTK             LX4    18                                                              OUTPTK       673     A     
 OUTPTK             BX7    X4+X6                                                           OUTPTK       674     A     
 OUTPTK             SA4    LEVEL           (THE LEVEL NUMBER STORED IN 'LEVEL' IS          OUTPTK       675     A     
 OUTPTK                                      ONE LESS THAN THE GROUP LEVEL.)               OUTPTK       676     A     
 OUTPTK             SPACE  1                                                               OUTPTK       677     A     
 OUTPTK             SA7    A3              SET THE BEGINNING ADDRESS OF THE                OUTPTK       678     A     
 OUTPTK                                      CURRENT FORMAT GROUP.                         OUTPTK       679     A     
 OUTPTK             BX6    X3+X5                                                           OUTPTK       680     A     
 OUTPTK             LX3    X7                                                              OUTPTK       681     A     
 OUTPTK             SA5    R                                                               OUTPTK       682     A     
 OUTPTK             SA6    LEVSTACK+1+X4   SAVE THE PREVIOUS GROUP INFORMATION.            OUTPTK       683     A     
 OUTPTK             BX7    X5                                                              OUTPTK       684     A     
 OUTPTK             SX6    X4+B1                                                           OUTPTK       685     A     
 OUTPTK             SA7    GRC             SET THE CURRENT GROUP REPEAT COUNT.             OUTPTK       686     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1720    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK             SB7    X6                                                              OUTPTK       687     A     
 OUTPTK             SA6    A4              INCREMENT THE CURRENT LEVEL NUMBER.             OUTPTK       688     A     
 OUTPTK             SPACE  1                                                               OUTPTK       689     A     
 OUTPTK             NE     B7,B1,NEXTDESC  IF THE NEW GROUP LEVEL IS NOT LEVEL ONE         OUTPTK       690     A     
 OUTPTK                                      THEN GO TO 'NEXTDESC',                        OUTPTK       691     A     
 OUTPTK             SPACE  1                                                               OUTPTK       692     A     
 OUTPTK             LX3    18              OTHERWISE SAVE THE NEW GROUP REPEAT             OUTPTK       693     A     
 OUTPTK             BX7    X3+X7             COUNT AND BEGINNING ADDRESS FOR               OUTPTK       694     A     
 OUTPTK             LX6    3*18              POSSIBLE USE AS A RESTART POSITION            OUTPTK       695     A     
 OUTPTK             IX7    X6+X7             WHEN THE END OF THE FORMAT STRING IS          OUTPTK       696     A     
 OUTPTK             SA7    RESCAN            REACHED                                       OUTPTK       697     A     
 OUTPTK             ZR     NEXTDESC                                                        OUTPTK       698          I
          -FCC1119
 OUTPTK                                      REACHED.                                      OUTPTK       699          I
          -FCC1119
 OUTPTK             EQ     NEXTDESC                                                        FCC1119       33     A     
 OUTPTK             EJECT                                                                  OUTPTK       700     A     
 OUTPTK   ************************************************************************         OUTPTK       701     A     
 OUTPTK   *                                                                      *         OUTPTK       702     A     
 OUTPTK   *                   RIGHT PARENTHESIS PROCESSING                       *         OUTPTK       703     A     
 OUTPTK   *                                                                      *         OUTPTK       704     A     
 OUTPTK   *                                                                      *         OUTPTK       705     A     
 OUTPTK   ************************************************************************         OUTPTK       706     A     
 OUTPTK             SPACE  1                                                               OUTPTK       707     A     
 OUTPTK   RPFORM    SA5    GRC                                                             OUTPTK       708     A     
 OUTPTK             MX7    59                                                              OUTPTK       709     A     
 OUTPTK             IX6    X5+X7                                                           OUTPTK       710     A     
 OUTPTK             ZR     X6,RPFORM.1     IF THE GROUP REPEAT COUNT IS EXHAUSTED          OUTPTK       711     A     
 OUTPTK                                      THEN GO TO 'RPFORM.1'.                        OUTPTK       712     A     
 OUTPTK             SPACE  1                                                               OUTPTK       713     A     
 OUTPTK             SA4    GROUPADR        OTHERWISE RESET THE FORMAT POINTERS TO          OUTPTK       714     A     
 OUTPTK             SA2    X4                THE BEGINNING OF THE CURRENT GROUP            OUTPTK       715     A     
 OUTPTK             AX4    18                                                              OUTPTK       716     A     
 OUTPTK             SA6    A5                                                              OUTPTK       717     A     
 OUTPTK             SB2    X4                                                              OUTPTK       718     A     
 OUTPTK             ZR     NEXTDESC        GO TO 'NEXTDESC' FOR HTE NEXT FORMAT            OUTPTK       719     A     
 OUTPTK                                      DESCRIPTOR.                                   OUTPTK       720     A     
 OUTPTK             SPACE  1                                                               OUTPTK       721     A     
 OUTPTK   RPFORM.1  SA3    LEVEL                                                           OUTPTK       722     A     
 OUTPTK             ZR     X3,RPFORM.2     IF THIS IS THE END OF THE FORMAT THEN           OUTPTK       723     A     
 OUTPTK                                      GO TO 'RPFORM.2'.                             OUTPTK       724     A     
 OUTPTK             SPACE  2                                                               OUTPTK       725     A     
 OUTPTK             SA4    LEVSTACK+X3     OTHERWISE RESET THE PARENTHESIS GROUP           OUTPTK       726     A     
 OUTPTK             IX6    X3+X7             INFORMATION AND DECREMENT THE LEVEL           OUTPTK       727     A     
 OUTPTK             SX7    X4                                                              OUTPTK       728     A     
 OUTPTK             SA6    A3                                                              OUTPTK       729     A     
 OUTPTK             AX4    18                                                              OUTPTK       730     A     
 OUTPTK             SA7    A5                                                              OUTPTK       731     A     
 OUTPTK             BX6    X4                                                              OUTPTK       732     A     
 OUTPTK             SA6    GROUPADR                                                        OUTPTK       733     A     
 OUTPTK             ZR     NEXTDESC        GO TO 'NEXTDESC' FOR THE NEXT FORMAT            OUTPTK       734     A     
 OUTPTK                                      DESCRIPTOR.                                   OUTPTK       735     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1721    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK             SPACE  1                                                               OUTPTK       736     A     
 OUTPTK    RPFORM.2 SA3    CONTINUE                                                        OUTPTK       737     A     
 OUTPTK             NZ     X3,RPFORM3  IF EXPLICIT CONTINUATION MODE                       OUTPTK       738     A     
 OUTPTK             INVOKE SLASH       OUTPUT THE CURRENT LINE                             OUTPTK       739     A     
 OUTPTK                                                                                    OUTPTK       740     A     
 OUTPTK    RPFORM3  SA3    RESCAN      RESET THE FORMAT POINTERS AND THE CURRENT           OUTPTK       741     A     
 OUTPTK             SX7    X3                CURRENT GROUP INFORMATION TO RESTART          OUTPTK       742     A     
 OUTPTK             AX3    18                THE FORMAT SCAN.                              OUTPTK       743     A     
 OUTPTK             SA2    X3                                                              OUTPTK       744     A     
 OUTPTK             BX6    X3                                                              OUTPTK       745     A     
 OUTPTK             SA7    GRC                                                             OUTPTK       746     A     
 OUTPTK             AX3    18                                                              OUTPTK       747     A     
 OUTPTK             SA6    GROUPADR                                                        OUTPTK       748     A     
 OUTPTK             SB2    X3                                                              OUTPTK       749     A     
 OUTPTK             AX3    18                                                              OUTPTK       750     A     
 OUTPTK             BX6    X3                                                              OUTPTK       751     A     
 OUTPTK             SA6    LEVEL                                                           OUTPTK       752     A     
 OUTPTK             GT     B4,B0,NEXTDESC  IF ANY MORE ITEMS REMAIN TO BE                  OUTPTK       753     A     
 OUTPTK                                      CONVERTED THEN GO TO 'NEXTDESC',              OUTPTK       754     A     
 OUTPTK             SA7    PARENFLG                                                        OUTPTK       755     A     
 OUTPTK             ZR     OUTPTCX         OTHERWISE EXIT.                                 OUTPTK       756     A     
 OUTPTK             TITLE                  T - FORMAT PROCESSING SECTION                   OUTPTK       757     A     
 OUTPTK   ************************************************************************         OUTPTK       758          I
          -FCC1119
 OUTPTK   *                                                                      *         OUTPTK       759          I
          -FCC1119
 OUTPTK   *                                                                      *         OUTPTK       760          I
          -FCC1119
 OUTPTK   *                       T - FORMAT PROCESSING                          *         OUTPTK       761          I
          -FCC1119
 OUTPTK   *                                                                      *         OUTPTK       762          I
          -FCC1119
 OUTPTK   *                                                                      *         OUTPTK       763          I
          -FCC1119
 OUTPTK   ************************************************************************         OUTPTK       764          I
          -FCC1119
 OUTPTK   **        T - FORMAT PROCESSING                                                  FCC1119       34     A     
 OUTPTK             SPACE  1                                                               OUTPTK       765     A     
 OUTPTK   TFORM     SA4    OUTADDR         CALCULATE THE CURRENT DISTANCE FROM THE         OUTPTK       766     A     
 OUTPTK             IX0    X0-X4             BEGINNING OF THE LINE (IN BITS).              OUTPTK       767     A     
 OUTPTK             LX7    X0,B1                                                           OUTPTK       768     A     
 OUTPTK             SA5    =60.0                                                           OUTPTK       769     A     
 OUTPTK             LX0    5                                                               OUTPTK       770     A     
 OUTPTK             IX7    X0-X7                                                           OUTPTK       771     A     
 OUTPTK             LX0    X7,B1                                                           OUTPTK       772     A     
 OUTPTK             SB3    X0+B3             (CURRENT DISTANCE.)                           OUTPTK       773     A     
 OUTPTK             SA4    MAXCOUNT                                                        OUTPTK       774     A     
 OUTPTK             SB5    X6                (POSITION TO TABULATE TO, IN BITS.)           OUTPTK       775     A     
 OUTPTK             BX3    X3-X3                                                           OUTPTK       776     A     
 OUTPTK             GT     B5,B3,TFORM.2   IF A TAB FORWARD THEN GO TO 'TFORM.2'.          OUTPTK       777     A     
 OUTPTK             SPACE  1                                                               OUTPTK       778     A     
 OUTPTK             SB7    X4              SINCE THIS IS A TAB BACKWARD, SET               OUTPTK       779     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1722    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK             LE     B5,B7,TFORM.1     'MAXCOUNT' TO THE MAXIMUM OF THE              OUTPTK       780          I
          -FCC1119
 OUTPTK             LE     B3,B7,TFORM.1     'MAXCOUNT' TO THE MAXIMUM OF THE              FCC1119       35     A     
 OUTPTK             SA6    A4                PREVIOUS VALUE OF 'MAXCOUNT' AND THE          OUTPTK       781     A     
 OUTPTK                                      CURRENT DISTANCE TO THE BEGINNING OF          OUTPTK       782     A     
 OUTPTK                                      THE LINE.                                     OUTPTK       783     A     
 OUTPTK             SPACE  1                                                               OUTPTK       784     A     
 OUTPTK   TFORM.1   PX4    X6              RESET THE LINE POINTERS TO REFLECT              OUTPTK       785     A     
 OUTPTK             FX7    X4/X5             THE POSITION TABULATED TO.                    OUTPTK       786     A     
 OUTPTK             SA4    OUTADDR                                                         OUTPTK       787     A     
 OUTPTK             UX5    X7,B7                                                           OUTPTK       788     A     
 OUTPTK             LX7    X5,B7                                                           OUTPTK       789     A     
 OUTPTK             IX0    X7+X4                                                           OUTPTK       790     A     
 OUTPTK             LX5    X7,B1                                                           OUTPTK       791     A     
 OUTPTK             IX4    X5+X5                                                           OUTPTK       792     A     
 OUTPTK             LX7    6                                                               OUTPTK       793     A     
 OUTPTK             IX4    X7-X4                                                           OUTPTK       794     A     
 OUTPTK             SB7    X4                                                              OUTPTK       795     A     
 OUTPTK             SB3    B5-B7                                                           OUTPTK       796     A     
 OUTPTK             ZR     X3,NEXTDESC     IF NO SPACING TO BE DONE THEN RETURN            OUTPTK       797     A     
 OUTPTK             BX6    X3              OTHERWISE CALL 'SPACE' TO COMPLETE THE          OUTPTK       798     A     
 OUTPTK             CALL   SPACE             TABULATION.                                   OUTPTK       799     A     
 OUTPTK             ZR     NEXTDESC        RETURN FOR THE NEXT FORMAT DESCRIPTOR.          OUTPTK       800     A     
 OUTPTK             SPACE  1                                                               OUTPTK       801     A     
 OUTPTK   TFORM.2   SB7    X4              IF THIS TAB FORWARD DOES NOT EXCEED THE         OUTPTK       802     A     
 OUTPTK             LE     B3,B7,TFORM.3     MAXIMUM PREVIOUS LINE LENGTH ATTAINED         OUTPTK       803     A     
 OUTPTK             SB7    B3                THEN GO TO 'IFORM.1' TO RESET THE             OUTPTK       804     A     
 OUTPTK    TFORM.3  LE     B5,B7,TFORM.1     LINE POINTERS.                                OUTPTK       805     A     
 OUTPTK             SPACE  1                                                               OUTPTK       806     A     
 OUTPTK             SX3    B5-B7           OTHERWISE PERFORM THE TAB BY HAVING THE         OUTPTK       807     A     
 OUTPTK             BX6    X4                LINE POINTERS RESET TO THE MAXIMUM            OUTPTK       808     A     
 OUTPTK             SB5    X4                LINE LENGTH AND THEN SPACING OUT TO           OUTPTK       809     A     
 OUTPTK             ZR TFORM.1               THE POSITION TO BE TABULATED TO.              OUTPTK       810          I
          -FCC1119
 OUTPTK             TITLE                  X - FORMAT PROCESSING SECTION                   OUTPTK       811          I
          -FCC1119
 OUTPTK   ************************************************************************         OUTPTK       812          I
          -FCC1119
 OUTPTK   *                                                                      *         OUTPTK       813          I
          -FCC1119
 OUTPTK   *                                                                      *         OUTPTK       814          I
          -FCC1119
 OUTPTK   *                       X - FORMAT PROCESSING                          *         OUTPTK       815          I
          -FCC1119
 OUTPTK   *                                                                      *         OUTPTK       816          I
          -FCC1119
 OUTPTK   *                                                                      *         OUTPTK       817          I
          -FCC1119
 OUTPTK   ************************************************************************         OUTPTK       818          I
          -FCC1119
 OUTPTK             EQ     TFORM.1           THE POSITION TO BE TABULATED TO               FCC1119       36     A     
 OUTPTK                                                                                    FCC1119       37     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1723    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK   **        X - FORMAT PROCESSING                                                  FCC1119       38     A     
 OUTPTK             SPACE  1                                                               OUTPTK       819     A     
 OUTPTK   XFORM     FORM                                                                   OUTPTK       820     A     
 OUTPTK             CALL   SPACE           CALL 'SPACE' TO SPACE THE SPECIFIED             OUTPTK       821     A     
 OUTPTK             ZR     NEXTDESC          NUMBER OF POSITIONS AND THE RETURN.           OUTPTK       822     A     
 OUTPTK             TITLE                  SLASH -- LINE OUTPUT PROCESSING                 OUTPTK       823     A     
 OUTPTK   ************************************************************************         OUTPTK       824     A     
 OUTPTK   *                                                                      *         OUTPTK       825     A     
 OUTPTK   *                                                                      *         OUTPTK       826     A     
 OUTPTK   *                S L A S H -- LINE OUTPUT PROCESSING                   *         OUTPTK       827     A     
 OUTPTK   *                                                                      *         OUTPTK       828     A     
 OUTPTK   *                                                                      *         OUTPTK       829     A     
 OUTPTK   ************************************************************************         OUTPTK       830     A     
 OUTPTK             SPACE  1                                                               OUTPTK       831     A     
 OUTPTK   SLASH     FORM                                                                   OUTPTK       832     A     
 OUTPTK             SX5    A2              SAVE THE CURRENT FORMAT POINTERS, THE           OUTPTK       833     A     
 OUTPTK             PX6    X5,B2             THE HOLD REGISTER (REGISTER X3),              OUTPTK       834     A     
 OUTPTK             BX7    X3              AND THE DATA ITEM POINTERS.                     OUTPTK       835     A     
 OUTPTK             SX4    A1                                                              OUTPTK       836     A     
 OUTPTK             SA6    RESETFMT                                                        OUTPTK       837     A     
 OUTPTK             SA7    RESETX3                                                         OUTPTK       838     A     
 OUTPTK             PX6    X4,B4                                                           OUTPTK       839     A     
 OUTPTK             SB4    8*6                                                             OUTPTK       840     A     
 OUTPTK             SA5    X0                                                              OUTPTK       841     A     
 OUTPTK             SA6    RESETITM                                                        OUTPTK       842     A     
 OUTPTK             SA4    OUTADDR                                                         OUTPTK       843     A     
 OUTPTK             IX7    X0-X4           IF THE CURRENT LINE POSITION IS NOT THE         OUTPTK       844     A     
 OUTPTK             SB5    B1+B1             MAXIMUM POSITION ATTAINED THEN RESET          OUTPTK       845     A     
 OUTPTK             LX6    X7,B5             THE LINE POINTERS TO POINT TO THE END         OUTPTK       846     A     
 OUTPTK             LX7    6                                                               OUTPTK       847     A     
 OUTPTK             SA3    MAXCOUNT          OF THE LINE.                                  OUTPTK       848     A     
 OUTPTK             IX5    X7-X6                                                           OUTPTK       849     A     
 OUTPTK             SX7    X5+B3                                                           OUTPTK       850     A     
 OUTPTK             IX6    X7-X3                                                           OUTPTK       851     A     
 OUTPTK             PX3    X3                                                              OUTPTK       852     A     
 OUTPTK             PL     X6,SLASH.1      GO TO 'SLASH.1' IF THE CURRENT POSITION         OUTPTK       853     A     
 OUTPTK                                      IS THE FARTHEST.                              OUTPTK       854     A     
 OUTPTK             SPACE  1                                                               OUTPTK       855     A     
 OUTPTK             SA5    =0.01666666667  (ONE SIXTIETH)                                  OUTPTK       856     A     
 OUTPTK             FX7    X5*X3             (INTEGRAL PORTION OF BITCOUNT/60)             OUTPTK       857     A     
 OUTPTK             DX6    X5*X3             (FRACTIONAL PART OF BITCOUNT/60)              OUTPTK       858     A     
 OUTPTK             SA5    =60.000000001   (SIXTY WITH A ROUND FACTOR.)                    OUTPTK       859     A     
 OUTPTK             IX3    X7+X4             (ADDRESS OF LAST WORD IN LINE)                OUTPTK       860     A     
 OUTPTK             SX0    X3                                                              OUTPTK       861     A     
 OUTPTK             FX6    X5*X6             (SET REMAINDER OF BITCOUNT/60)                OUTPTK       862     A     
 OUTPTK             SB3    X6                                                              OUTPTK       863     A     
 OUTPTK   SLASH.1   SA3    =8L                                                             OUTPTK       864     A     
 OUTPTK             SB6    X4              (B6) = LINE FWA                                 OUTPTK       865     A     
 OUTPTK             SA5    X0                                                              OUTPTK       866     A     
 OUTPTK             LE     B3,B4,SLASH.2   IF THE LAST WORD OF THE LINE CONTAINS           OUTPTK       867     A     
 OUTPTK                                      ENOUGH ROOM FOR THE LINE TERMINATOR           OUTPTK       868     A     
 OUTPTK                                      THEN GO TO 'SLASH.2'.                         OUTPTK       869     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1724    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK             SPACE  1                                                               OUTPTK       870     A     
 OUTPTK             MX7    60-6            OTHERWISE FILL OUT THE WORD WITH A              OUTPTK       871     A     
 OUTPTK             BX5    X7*X5             BLANK AND MOVE THE POINTERS TO THE            OUTPTK       872     A     
 OUTPTK             SX7    1R                NEXT WORD (INDICATING THAT IT IS              OUTPTK       873     A     
 OUTPTK             IX6    X5+X7             EMPTY OF COURSE).                             OUTPTK       874     A     
 OUTPTK             SA5    X0+B1                                                           OUTPTK       875     A     
 OUTPTK             SB3    B0                                                              OUTPTK       876     A     
 OUTPTK             SA6    X0                                                              OUTPTK       877     A     
 OUTPTK             SPACE  1                                                               OUTPTK       878     A     
 OUTPTK   SLASH.2   MX0    1               TERMINATE THE LINE WITH A ZERO BYTE AND         OUTPTK       879     A     
 OUTPTK             SB5    B3-B1             BLANK FILL (IF NECESSARY).                    OUTPTK       880     A     
 OUTPTK             AX0    X0,B5                                                           OUTPTK       881     A     
 OUTPTK             BX7    X0                                                              OUTPTK       882     A     
 OUTPTK             SB7    B6-B1                                                           OUTPTK       883     A     
 OUTPTK             AX7    59                                                              OUTPTK       884     A     
 OUTPTK             BX0    X7*X0                                                           OUTPTK       885     A     
 OUTPTK             BX5    X0*X5                                                           OUTPTK       886     A     
 OUTPTK             SB7    A5-B7           (B7) = LINE LENGTH (WORDS)                      OUTPTK       887     A     
 OUTPTK             BX3    -X0*X3                                                          OUTPTK       888     A     
 OUTPTK             IX6    X5+X3                                                           OUTPTK       889     A     
 OUTPTK             SA6    A5              (LAST WORD WITH TERMINATOR.)                    OUTPTK       890     A     
 OUTPTK                                                                                    OUTPTK       891     A     
 OUTPTK   *         WRITE LINE TO FILE.                                                    OUTPTK       892     A     
 OUTPTK   *         AT PRESENT, FILE IS RESTRICTED TO -OUTPUT-.                            OUTPTK       893     A     
 OUTPTK                                                                                    OUTPTK       894     A     
 OUTPTK             LISTL  B6,B7           LINE TO SOURCE LISTING FILE                     OUTPTK       895     A     
 OUTPTK                                                                                    OUTPTK       896     A     
 OUTPTK   SLASH.4   SA5    RESETFMT        RESET THE FORMAT POINTERS, THE DATA             OUTPTK       897     A     
 OUTPTK             UX7    X5,B2             POINTERS, THE SPECIAL REGISTER (X3),          OUTPTK       898     A     
 OUTPTK             SA2    X5                AND THE REGISTERS WITH CONSTANT VALUE         OUTPTK       899     A     
 OUTPTK             SA4    RESETITM                                                        OUTPTK       900     A     
 OUTPTK             SA5    TEMPA0.                                                         OUTPTK       901     A     
 OUTPTK             SA0    X5                                                              OUTPTK       902     A     
 OUTPTK             UX7    X4,B4                                                           OUTPTK       903     A     
 OUTPTK             SA1    X4                                                              OUTPTK       904     A     
 OUTPTK             SA3    RESETX3                                                         OUTPTK       905     A     
 OUTPTK             SB1    1                                                               OUTPTK       906     A     
 OUTPTK             SA5    OUTADDR                                                         OUTPTK       907     A     
 OUTPTK             SB6    60                                                              OUTPTK       908     A     
 OUTPTK             BX6    X6-X6                                                           OUTPTK       909     A     
 OUTPTK             SX0    X5                                                              OUTPTK       910     A     
 OUTPTK             SA6    MAXCOUNT                                                        OUTPTK       911     A     
 OUTPTK             SB3    B0                                                              OUTPTK       912     A     
 OUTPTK             ZR     RETURNX         RETURN TO THE CALLER.                           OUTPTK       913     A     
 OUTPTK             TITLE                  FORMAT ITEM-DATA ITEM CONTROL                   OUTPTK       914     A     
 OUTPTK   NEXTELEM  SA5    R               REDUCE THE FIELD DESCRIPTOR REPEAT              OUTPTK       915     A     
 OUTPTK             MX4    59                COUNT AND ALSO DECREMENT THE COUNT            OUTPTK       916     A     
 OUTPTK             IX7    X5+X4             OF THE NUMBER OF DATA ITEMS TO BE             OUTPTK       917     A     
 OUTPTK             SB4    B4-B1             CONVERTED.                                    OUTPTK       918     A     
 OUTPTK             SA7    A5                                                              OUTPTK       919     A     
 OUTPTK             NZ     X7,IFNOMORE     IF THE REPEAT COUNT FOR THE CURRENT             OUTPTK       920     A     
 OUTPTK                                      FIELD DESCRIPTOR HAS NOT BEEN                 OUTPTK       921     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1725    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK                                      EXHAUSTED THEN GO TO 'IFNOMORE'.              OUTPTK       922     A     
 OUTPTK             SPACE  1                                                               OUTPTK       923     A     
 OUTPTK   NEXTDESC  BSS    0               (ENTER HERE FOR NEXT FIELD DESCRIPTOR.)         OUTPTK       924     A     
 OUTPTK             SPACE  1                                                               OUTPTK       925     A     
 OUTPTK   NEXT.1    AX4    X2,B2           EXTRACT THE NEXT FORMAT CHARACTER (AND          OUTPTK       926     A     
 OUTPTK             SX6    B1                UPDATE THE FORMAT POINTERS).                  OUTPTK       927     A     
 OUTPTK             SA5    DIGMASK                                                         OUTPTK       928     A     
 OUTPTK             GT     B2,B0,NEXT.2                                                    OUTPTK       929     A     
 OUTPTK             SB2    B6                                                              OUTPTK       930     A     
 OUTPTK             SA2    A2+B1                                                           OUTPTK       931     A     
 OUTPTK   NEXT.2    MX7    60-6            USE THE FUNCTION 'DECIMAL' TO OBTAIN            OUTPTK       932     A     
 OUTPTK             BX4    -X7*X4            THE BINARY VALUE OF THE REPEAT COUNT          OUTPTK       933     A     
 OUTPTK             SB5    X4                (ASSUME A VALUE OF ONE IF NO REPEAT           OUTPTK       934     A     
 OUTPTK             LX3    X5,B5             COUNT IS PRESENT).                            OUTPTK       935     A     
 OUTPTK             SB2    B2-6                                                            OUTPTK       936     A     
 OUTPTK             PL     X3,NEXT.4                                                       OUTPTK       937     A     
 OUTPTK             SX6    X4-1R0                                                          OUTPTK       938     A     
 OUTPTK             RJ     DECIMAL                                                         OUTPTK       939     A     
 OUTPTK             GT     B2,B0,NEXT.3    (ADVANCE BEYOND THE CHARACTER WHICH             OUTPTK       940     A     
 OUTPTK             SB2    B6                TERMINATED THE DECIMAL CONVERSION.)           OUTPTK       941     A     
 OUTPTK             SA2    A2+B1                                                           OUTPTK       942     A     
 OUTPTK   NEXT.3    SB2    B2-6                                                            OUTPTK       943     A     
 OUTPTK             SPACE  1                                                               OUTPTK       944     A     
 OUTPTK   NEXT.4    SA5    NEEDW           IF THE FORMAT ELEMENT IS A FIELD                OUTPTK       945     A     
 OUTPTK             SA6    R                 DESCRIPTOR AND NEEDS A WIDTH VALUE            OUTPTK       946     A     
 OUTPTK             SA6    W                 (EG. A-FORMAT, I-FORMAT, ETC.) THEN           OUTPTK       947     A     
 OUTPTK             LX5    X5,B5             USE THE FUNCTION 'DECIMAL' AGAIN TO           OUTPTK       948     A     
 OUTPTK             LX4    -1                CONVERT THE NEEDED VALUE.                     OUTPTK       949     A     
 OUTPTK             SA3    FORMS+X4                                                        OUTPTK       950     A     
 OUTPTK             MI     X4,NEXT.5         (ALSO STORE AWAY THE ADDRESS OF THE           OUTPTK       951     A     
 OUTPTK             LX3    30                PROPER PROCESSING SECTION FOR THE             OUTPTK       952     A     
 OUTPTK   NEXT.5    BX6    X3                FORMAT DESCRIPTOR.)                           OUTPTK       953     A     
 OUTPTK             SA6    GOCELL                                                          OUTPTK       954     A     
 OUTPTK             PL     X5,NEXT.6         GO TO 'NEXT.6' IF NO DATA ITEM IS             OUTPTK       955     A     
 OUTPTK                                      REQUIRED (I.E. NO WIDTH VALUE NEEDED)         OUTPTK       956     A     
 OUTPTK             SPACE  1                                                               OUTPTK       957     A     
 OUTPTK             SA5    DIGMASK         SETUP DIGIT MASK FOR 'DECIMAL'                  OUTPTK       958     A     
 OUTPTK             SB7    B5                                                              OUTPTK       959     A     
 OUTPTK             BX6    X6-X6                                                           OUTPTK       960     A     
 OUTPTK             RJ     DECIMAL                                                         OUTPTK       961     A     
 OUTPTK             SA6    W                                                               OUTPTK       962     A     
 OUTPTK     SA5 GOCELL                                                                     OUTPTK       963     A     
 OUTPTK     SX6 X5-TFORM                                                                   OUTPTK       964     A     
 OUTPTK     ZR X6,NEXT.6                                                                   OUTPTK       965     A     
 OUTPTK             SPACE  2                                                               OUTPTK       966     A     
 OUTPTK   IFNOMORE  LE     B4,B0,OUTPTCX   IF NO MORE ITEMS ARE LEFT THEN RETURN.          OUTPTK       967     A     
 OUTPTK             SA1    A1+B1             (ELSE FETCH THE NEXT ITEM.)                   OUTPTK       968     A     
 OUTPTK             SPACE  1                                                               OUTPTK       969     A     
 OUTPTK   NEXT.6    SA5    W               CALL THE PROPER PROCESSING SECTION              OUTPTK       970     A     
 OUTPTK             IX6    X5+X5             WITH THE WIDTH VALUE (OR COUNT VALUE          OUTPTK       971     A     
 OUTPTK             LX4    X6,B1             IN THE CASE OF X-FORMAT, H-FORMAT,            OUTPTK       972     A     
 OUTPTK             SA5    GOCELL            ETC.) IN BITS IN REGISTER  X6  AND            OUTPTK       973     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1726    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK             IX6    X4+X6             THE DATA ITEM, IF ANY, IN REGISTER            OUTPTK       974     A     
 OUTPTK             SB7    X5                X1.                                           OUTPTK       975     A     
 OUTPTK             RJ     RETURN                                                          OUTPTK       976     A     
 OUTPTK             SPACE  2                                                               OUTPTK       977     A     
 OUTPTK             LT     B3,B6,NEXTELEM  UPON RETURN FROM THE PROCESSOR UPDATE           OUTPTK       978     A     
 OUTPTK             SX0    X0+B1             THE OUTPUT LINE POINTERS IF THE END           OUTPTK       979     A     
 OUTPTK             SB3    B0                OF A WORD BOUNDARY HAS BEEN REACHED,          OUTPTK       980     A     
 OUTPTK             ZR     NEXTELEM          THEN GO TO 'NEXTELEM'.                        OUTPTK       981     A     
 OUTPTK             EJECT                                                                  OUTPTK       982          I
          -FCC1119
 OUTPTK             SPACE  3                                                               FCC1119       39     A     
 OUTPTK   RETURNX   LT     B3,B6,RETURN    IF THE CURRENT OUTPUT WORD IS NOT FULL          OUTPTK       983     A     
 OUTPTK                                      THEN GO TO 'RETURN'.                          OUTPTK       984     A     
 OUTPTK             SPACE  1                                                               OUTPTK       985     A     
 OUTPTK             SX0    X0+B1             INCREMENT THE OUTPUT POINTERS.                OUTPTK       986     A     
 OUTPTK             SB3    B0                                                              OUTPTK       987     A     
 OUTPTK             SPACE  1                                                               OUTPTK       988     A     
 OUTPTK   RETURN    BSS    1               ENTRY/EXIT INFORMATION FOR INVOKED              OUTPTK       989     A     
 OUTPTK                                      PROCESSORS.                                   OUTPTK       990     A     
 OUTPTK             SPACE  1                                                               OUTPTK       991     A     
 OUTPTK             JP     B7              JUMP TO THE APPROPRIATE PROCESSOR.              OUTPTK       992     A     
 OUTPTK    ILLEGAL  SPACE  3                                                               FCC1119       40     A     
 OUTPTK   **        ILLEGAL - PROCESS ILLEGAL FORMAT SPECIFICATION                         FCC1119       41     A     
 OUTPTK                                                                                    FCC1119       42     A     
 OUTPTK    ILLEGAL  INVOKE SLASH                                                           FCC1119       43     A     
 OUTPTK             EQ     *+1S17      ABORT                                               FCC1119       44     A     
 OUTPTK             TITLE                  UTILITY: D E C I M A L                          OUTPTK       993     A     
 OUTPTK   ************************************************************************         OUTPTK       994     A     
 OUTPTK   *                                                                      *         OUTPTK       995     A     
 OUTPTK   *                       DECIMAL                                        *         OUTPTK       996     A     
 OUTPTK   *                                                                      *         OUTPTK       997     A     
 OUTPTK   *                THIS FUNCTION WILL CONVERT A STRING OF DECIMAL DIGITS *         OUTPTK       998     A     
 OUTPTK   *             (FROM THE FORMAT) TO BINARY.  CALLING SEQUENCE --        *         OUTPTK       999     A     
 OUTPTK   *                                                                      *         OUTPTK      1000     A     
 OUTPTK   *                                RJ  DECIMAL                           *         OUTPTK      1001     A     
 OUTPTK   *                                                                      *         OUTPTK      1002     A     
 OUTPTK   *             WHERE THE FOLLOWING REGISTERS HAVE BEEN SET:             *         OUTPTK      1003     A     
 OUTPTK   *                                X5 -- 'DIGMASK'                       *         OUTPTK      1004     A     
 OUTPTK   *                                X6 -- INITIAL VALUE OF NUMBER         *         OUTPTK      1005     A     
 OUTPTK   *                                X7 -- 7777 7777 7777 7777 7700B       *         OUTPTK      1006     A     
 OUTPTK   *                                                                      *         OUTPTK      1007     A     
 OUTPTK   *             UPON RETURN REGISTER  X6  WILL CONTAIN THE CONVERTED     *         OUTPTK      1008     A     
 OUTPTK   *             NUMBER AND REGISTER  X4  WILL CONTAIN THE TERMINATING    *         OUTPTK      1009     A     
 OUTPTK   *             (NON-DIGIT) CHARACTER, THE FORMAT POINTERS WILL NOT      *         OUTPTK      1010     A     
 OUTPTK   *             HAVE BEEN UPDATED TO REFLECT THE EXTRACTION OF THE       *         OUTPTK      1011     A     
 OUTPTK   *             TERMINATING CHARACTER.                                   *         OUTPTK      1012     A     
 OUTPTK   *                                                                      *         OUTPTK      1013     A     
 OUTPTK   ************************************************************************         OUTPTK      1014     A     
 OUTPTK             SPACE  1                                                               OUTPTK      1015     A     
 OUTPTK   DEC.1     IX3    X6+X6           MULTIPLY THE ACCUMULATED NUMBER BY TEN          OUTPTK      1016     A     
 OUTPTK             LX6    3                 AND ADD THE DIGIT JUST ENCOUNTERED.           OUTPTK      1017     A     
 OUTPTK             SX4    X4-1R0                                                          OUTPTK      1018     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1727    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK             IX3    X6+X3                                                           OUTPTK      1019     A     
 OUTPTK             SB2    B2-6                                                            OUTPTK      1020     A     
 OUTPTK             IX6    X3+X4                                                           OUTPTK      1021     A     
 OUTPTK             PL     B2,DEC.2                                                        OUTPTK      1022     A     
 OUTPTK             SB2    B6+B2                                                           OUTPTK      1023     A     
 OUTPTK             SA2    A2+B1                                                           OUTPTK      1024     A     
 OUTPTK   DEC.2     AX3    X2,B2           EXTRACT THE NEXT FORMAT CHARACTER AND           OUTPTK      1025     A     
 OUTPTK             BX4    -X7*X3          IF IT IS A DIGIT THE CYCLE.                     OUTPTK      1026     A     
 OUTPTK             SB5    X4                                                              OUTPTK      1027     A     
 OUTPTK             LX3    X5,B5                                                           OUTPTK      1028     A     
 OUTPTK             MI     X3,DEC.1                                                        OUTPTK      1029     A     
 OUTPTK                                      OTHERWISE RETURN.                             OUTPTK      1030     A     
 OUTPTK             SPACE  1                                                               OUTPTK      1031     A     
 OUTPTK   DECIMAL   BSS    1                                                               OUTPTK      1032     A     
 OUTPTK             AX3    X2,B2                                                           OUTPTK      1033     A     
 OUTPTK             BX4    -X7*X3                                                          OUTPTK      1034     A     
 OUTPTK             SB5    X4                                                              OUTPTK      1035     A     
 OUTPTK             LX3    X5,B5                                                           OUTPTK      1036     A     
 OUTPTK             MI     X3,DEC.1                                                        OUTPTK      1037     A     
 OUTPTK             ZR     DECIMAL                                                         OUTPTK      1038     A     
 OUTPTK             TITLE                  UTILITY:  S P A C E                             OUTPTK      1039     A     
 OUTPTK   ************************************************************************         OUTPTK      1040     A     
 OUTPTK   *                                                                      *         OUTPTK      1041     A     
 OUTPTK   *                       S P A C E                                      *         OUTPTK      1042     A     
 OUTPTK   *                                                                      *         OUTPTK      1043     A     
 OUTPTK   *                THIS ROUTINE WILL APPEND A DESIGNATED NUMBER OF       *         OUTPTK      1044     A     
 OUTPTK   *             SPACES TO THE CURRENT OUTPUT LINE AND RETURN WITH THE    *         OUTPTK      1045     A     
 OUTPTK   *             LINE POINTERS UPDATED.                                   *         OUTPTK      1046     A     
 OUTPTK   *                                                                      *         OUTPTK      1047     A     
 OUTPTK   *                CALLING SEQUENCE--                                    *         OUTPTK      1048     A     
 OUTPTK   *                                                                      *         OUTPTK      1049     A     
 OUTPTK   *                       CALL  SPACE                                    *         OUTPTK      1050     A     
 OUTPTK   *                                                                      *         OUTPTK      1051     A     
 OUTPTK   *             WHERE REGISTER X6 HAS BEEN SET TO THE NUMBER OF BITS TO  *         OUTPTK      1052     A     
 OUTPTK   *             BE FILLED BY BLANK CHARACTERS (I.E. SIX TIMES THE NUMBER *         OUTPTK      1053     A     
 OUTPTK   *             OF BLANK CHARACTERS TO BE APPENDED).                     *         OUTPTK      1054     A     
 OUTPTK   *                                                                      *         OUTPTK      1055     A     
 OUTPTK   *                REGISTERS USED--  X4, X5, X6, X7                      *         OUTPTK      1056     A     
 OUTPTK   *                                  A4, A5, A6                          *         OUTPTK      1057     A     
 OUTPTK   *                                      B5,     B7                      *         OUTPTK      1058     A     
 OUTPTK   *                                                                      *         OUTPTK      1059     A     
 OUTPTK   *             THE NORMAL 'OUTPTK' REGISTER USAGES ARE ASSUMED          *         OUTPTK      1060     A     
 OUTPTK   *             (I.E. B1=1, B6=60, X0=CURRENT OUTPUT WORD ADDRESS, ETC.).*         OUTPTK      1061     A     
 OUTPTK   *                                                                      *         OUTPTK      1062     A     
 OUTPTK   ************************************************************************         OUTPTK      1063     A     
 OUTPTK             SPACE  1                                                               OUTPTK      1064     A     
 OUTPTK   SPACE     ROUTINE                                                                OUTPTK      1065     A     
 OUTPTK             SB7    X6              (SET REGISTER B7 TO THE SPACE COUNT AND         OUTPTK      1066     A     
 OUTPTK             SB5    B6-B3             REGISTER X5 TO AN ALL BLANK WORD.)            OUTPTK      1067     A     
 OUTPTK             SA5    =10H                                                            OUTPTK      1068     A     
 OUTPTK             LT     B7,B5,SPACE.3   IF THE NUMBER OF COLUMNS TO SPACE LIES          OUTPTK      1069     A     
 OUTPTK                                      WITHIN THE CURRENT OUTPUT WORD BUT            OUTPTK      1070     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1728    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK                                      DOES NOT FILL IT, GO TO 'SPACE.3',            OUTPTK      1071     A     
 OUTPTK             MX4    1               OTHERWISE FILL OUT THE CURRENT OUTPUT           OUTPTK      1072     A     
 OUTPTK             SB7    B7-B5             WORD WITH BLANKS.                             OUTPTK      1073     A     
 OUTPTK             SB5    B3-B1                                                           OUTPTK      1074     A     
 OUTPTK             AX4    X4,B5                                                           OUTPTK      1075     A     
 OUTPTK             BX7    X4                                                              OUTPTK      1076     A     
 OUTPTK             AX4    59                                                              OUTPTK      1077     A     
 OUTPTK             BX7    X4*X7                                                           OUTPTK      1078     A     
 OUTPTK             BX6    -X7*X5                                                          OUTPTK      1079     A     
 OUTPTK             SA4    X0                                                              OUTPTK      1080     A     
 OUTPTK             BX7    X7*X4                                                           OUTPTK      1081     A     
 OUTPTK             IX6    X7+X6                                                           OUTPTK      1082     A     
 OUTPTK             SA6    X0                                                              OUTPTK      1083     A     
 OUTPTK             LT     B7,B6,SPACE.2   IF THE NUMBER OF BLANKS LEFT TO BE              OUTPTK      1084     A     
 OUTPTK                                      APPENDED WILL NOT FILL A COMPLETE             OUTPTK      1085     A     
 OUTPTK                                      WORD THEN GO TO 'SPACE.2',                    OUTPTK      1086     A     
 OUTPTK             SPACE  1                                                               OUTPTK      1087     A     
 OUTPTK             BX6    X5              OTHERWISE FILL AS MANY COMPLETE WORDS           OUTPTK      1088     A     
 OUTPTK   SPACE.1   SB7    B7-B6             AS NECESSARY UNTIL ONLY A PARTIAL             OUTPTK      1089     A     
 OUTPTK             SA6    A6+B1             (OR NO) WORD REMAINS.                         OUTPTK      1090     A     
 OUTPTK             GE     B7,B6,SPACE.1                                                   OUTPTK      1091     A     
 OUTPTK             SPACE  1                                                               OUTPTK      1092     A     
 OUTPTK   SPACE.2   SX0    A6+B1           UPDATE THE OUTPUT LINE POINTERS.                OUTPTK      1093     A     
 OUTPTK             SB3    B0                                                              OUTPTK      1094     A     
 OUTPTK             SPACE  1                                                               OUTPTK      1095     A     
 OUTPTK   SPACE.3   ZR     B7,SPACE        RETURN IF THERE ARE NO MORE SPACES TO           OUTPTK      1096     A     
 OUTPTK                                      APPEND,                                       OUTPTK      1097     A     
 OUTPTK             SB5    B6-B3           OTHERWISE APPEND THE SPACES, UPDATE THE         OUTPTK      1098     A     
 OUTPTK             MX4    1                 LINE POINTERS AND RETURN.                     OUTPTK      1099     A     
 OUTPTK             SB3    B3+B7                                                           OUTPTK      1100     A     
 OUTPTK             SB7    B7-B1                                                           OUTPTK      1101     A     
 OUTPTK             AX7    X4,B7                                                           OUTPTK      1102     A     
 OUTPTK             SA4    X0                                                              OUTPTK      1103     A     
 OUTPTK             LX7    X7,B5                                                           OUTPTK      1104     A     
 OUTPTK             BX5    X7*X5                                                           OUTPTK      1105     A     
 OUTPTK             BX4    -X7*X4                                                          OUTPTK      1106     A     
 OUTPTK             IX6    X4+X5                                                           OUTPTK      1107     A     
 OUTPTK             SA6    X0                                                              OUTPTK      1108     A     
 OUTPTK             ZR     SPACE                                                           OUTPTK      1109     A     
 OUTPTK    ILL      SPACE  3,10                                                            OUTPTK      1110          I
          -FCC1119
 OUTPTK   **        ILLEGAL - PROCESS ILLEGAL FORMAT SPECIFICATION                         OUTPTK      1111          I
          -FCC1119
 OUTPTK   ILLEGAL   INVOKE SLASH                                                           OUTPTK      1112          I
          -FCC1119
 OUTPTK             EQ     *+1S17                                                          OUTPTK      1113          I
          -FCC1119
 OUTPTK    SETST    SPACE  3,14                                                            OUTPTK      1114     A     
 OUTPTK   **        SETST - SET SUB TITLE LINE                                             OUTPTK      1115     A     
 OUTPTK   *                                                                                OUTPTK      1116     A     
 OUTPTK   *         CALL SETST( WDS , "SUBTITLE" )                                         OUTPTK      1117     A     
 OUTPTK                                                                                    OUTPTK      1118     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1729    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK    SETST0   SX6    1                                                               OUTPTK      1119     A     
 OUTPTK             SA6    =XL.STITL                                                       OUTPTK      1120     A     
 OUTPTK             SX7    2R0                                                             OUTPTK      1121     A     
 OUTPTK             LX7    48                                                              OUTPTK      1122     A     
 OUTPTK             SA7    =XO.STITL                                                       OUTPTK      1123     A     
 OUTPTK                                                                                    OUTPTK      1124     A     
 OUTPTK    SETST    ENTRY. **                                                              OUTPTK      1125     A     
 OUTPTK             SA4    X1                                                              OUTPTK      1126     A     
 OUTPTK             SB1    1                                                               OUTPTK      1127     A     
 OUTPTK             ZR     X4,SETST0   IF WDS = 0    */ NO SUBSTITLE                       OUTPTK      1128     A     
 OUTPTK             BX6    X4                                                              OUTPTK      1129     A     
 OUTPTK             SA6    L.STITL                                                         OUTPTK      1130     A     
 OUTPTK             SA2    A1+B1                                                           OUTPTK      1131     A     
 OUTPTK             MOVE   X4,X2,O.STITL                                                   OUTPTK      1132     A     
 OUTPTK             SA1    =XN.LINES                                                       OUTPTK      1133     A     
 OUTPTK             SX2    X1+4                                                            OUTPTK      1134     A     
 OUTPTK             MI     X2,SETST1   IF MORE THAN 4 LINES LEFT                           OUTPTK      1135     A     
 OUTPTK             NUPAGE                                                                 OUTPTK      1136     A     
 OUTPTK             EQ     SETST                                                           OUTPTK      1137     A     
 OUTPTK                                                                                    OUTPTK      1138     A     
 OUTPTK    SETST1   LISTL  (=2C  ),1                                                       OUTPTK      1139     A     
 OUTPTK             SA1    L.STITL                                                         OUTPTK      1140     A     
 OUTPTK             LISTL  O.STITL,X1                                                      OUTPTK      1141     A     
 OUTPTK             EQ     SETST                                                           OUTPTK      1142     A     
 OUTPTK    REMARK   SPACE  3,8                                                             OUTPTK      1143     A     
 OUTPTK    REMARK   ENTRY.                                                                 OUTPTK      1144     A     
 OUTPTK             MESSAGE  X1                                                            OUTPTK      1145          I
          -F7540FT
 OUTPTK             MESSAGE  X1,,RCL                                                       F7540FT       33     A     
 OUTPTK             EQ     REMARK                                                          OUTPTK      1146     A     
 OUTPTK    SPA=     TITLE  SPA=  -  SUBSTITUTE PARAMETER ADDRESSES.                        FCCT010        6     A     
 OUTPTK   ***       SPA= - SUBSTITUTE PARAMETER ADDRESSES.                                 FCCT010        7     A     
 OUTPTK   *                                                                                FCCT010        8     A     
 OUTPTK   *         L.D.HARE           CDC-SVLOPS     5/3/77.                              FCCT010        9     A     
 OUTPTK   *         M.A.HERBACH        CDC-SVLOPS     5/3/77.                              FCCT010       10     A     
 OUTPTK   *                                                                                FCCT010       11     A     
 OUTPTK   *            *SPA=* IS AN *FCL* RESIDENT RELOCATABLE ROUTINE WHOSE               FCCT010       12     A     
 OUTPTK   *         FUNCTION IS TO SUBSTITUTE ACTUAL PARAMETER ADDRESSES                   FCCT010       13     A     
 OUTPTK   *         INTO THOSE EXECUTABLE INSTRUCTIONS THAT REFERENCE THE                  FCCT010       14     A     
 OUTPTK   *         ASSOCIATED FORMAL PARAMETERS.  THIS PROCESS IS TERMED                  FCCT010       15     A     
 OUTPTK   *         THE *ADDSUB* FUNCTION.                                                 FCCT010       16     A     
 OUTPTK   *                                                                                FCCT010       17     A     
 OUTPTK   *            TO DETERMINE WHICH ADDRESSES GET ADDSUBBED, AND WITH                FCCT010       18     A     
 OUTPTK   *         WHICH ACTUAL PARAMETER ADDRESS, THE COMPILER GENERATES                 FCCT010       19     A     
 OUTPTK   *         *SUB* MACROS WHICH BUILD A BLOCK FOR EACH *FP*.                        FCCT010       20     A     
 OUTPTK   *         IN CORE THESE BLOCKS WOULD BE CONTIGUOUS FORMING THE *SUB*             FCCT010       21     A     
 OUTPTK   *         TABLE TERMINATED WITH A SINGLE WORD OF THE FORMAT *CON  1S58*.         FCCT010       22     A     
 OUTPTK   *                                                                                FCCT010       23     A     
 OUTPTK   *            EACH ENTRY IN THE *SUB* TABLE HAS THE FOLLOWING FORMAT:-            FCCT010       24     A     
 OUTPTK   *                                                                                FCCT010       25     A     
 OUTPTK   **T       12/SPOS,6/FP.NO.,6/0,18/CA,18/ADDRESS                                  FCCT010       26     A     
 OUTPTK   *                                                                                FCCT010       27     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1730    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK   *            WHERE:-                                                             FCCT010       28     A     
 OUTPTK   *                                                                                FCCT010       29     A     
 OUTPTK   *         SPOS     = INSTRUCTION PARCEL SHIFT COUNT + 2000B.                     FCCT010       30     A     
 OUTPTK   *                  = $+2001B - $/59*61                                           FCCT010       31     A     
 OUTPTK   *         SPOS     = POSITIVE FOR THE FIRST ENTRY FOR A PARAMETER,               FCCT010       32     A     
 OUTPTK   *                    OR IF A *DELAY* PRECEEDED THIS *SUB*.                       FCCT010       33     A     
 OUTPTK   *                    OTHERWISE  SPOS = SPOS * -1                                 FCCT010       34     A     
 OUTPTK   *         FP.NO.   = FORMAL PARAMETER NUMBER.                                    FCCT010       35     A     
 OUTPTK   *         CA       = CONSTANT ADDEND.                                            FCCT010       36     A     
 OUTPTK   *         ADDRESS  = ADDRESS OF INSTRUCTION TO *ADDSUB*.                         FCCT010       37     A     
 OUTPTK   *                                                                                FCCT010       38     A     
 OUTPTK   *            NOTE THAT A SHIFT OF -0 (1777B PACKED) IS GENERATED                 FCCT010       39     A     
 OUTPTK   *         INSTEAD OF A +0 SHIFT.  THIS INCREASES THE PROBABILITY                 FCCT010       40     A     
 OUTPTK   *         OF A USER ABORT IF HE WERE TO ACCIDENTALLY ACCESS THE                  FCCT010       41     A     
 OUTPTK   *         *SUB* TABLE WITH A BAD SUBSCRIPT.                                      FCCT010       42     A     
 OUTPTK   *                                                                                FCCT010       43     A     
 OUTPTK   *         ENTRY  A0 _ ACTUAL PARAMETER LIST.                                     FCCT010       44     A     
 OUTPTK   *                A3 _ FIRST *SUB* TABLE ENTRY (NEVER A DELAY).                   FCCT010       45     A     
 OUTPTK   *                X3 = FIRST *SUB* TABLE ENTRY.                                   FCCT010       46     A     
 OUTPTK   *                                                                                FCCT010       47     A     
 OUTPTK   *         EXIT   A0 _ ACTUAL PARAMETER LIST.                                     FCCT010       48     A     
 OUTPTK   *                                                                                FCCT010       49     A     
 OUTPTK   *         USES   B3,B5  A1,A2,A3,A6  X0,X1,X2,X3,X4,X5,X6                        FCCT010       50     A     
 OUTPTK   *                                                                                FCCT010       51     A     
 OUTPTK   *         CALLS  NONE.                                                           FCCT010       52     A     
 OUTPTK             SPACE  4,8                                                             FCCT010       53     A     
 OUTPTK    SPA.     ENTRY.             ENTRY/EXIT..                                        FCCT010       54     A     
 OUTPTK                                                                                    FCCT010       55     A     
 OUTPTK             UX4    B3,X3                                                           FCCT010       56     A     
 OUTPTK             SB5    A0                                                              FCCT010       57     A     
 OUTPTK             AX4    42          POSITION *FP* NUMBER                                FCCT010       58     A     
 OUTPTK             SA1    X4+B5       FIRST ACTUAL PARAMETER TO ADDSUB                    FCCT010       59     A     
 OUTPTK                                                                                    FCCT010       60     A     
 OUTPTK    SPA1     SA2    X3          NEXT INSTRUCTION TO ADDSUB                          FCCT010       61     A     
 OUTPTK             UX4    B3,X3                                                           FCCT010       62     A     
 OUTPTK             MX0    42                                                              FCCT010       63     A     
 OUTPTK             SB4    X1          ACTUAL PARAMETER ADDRESS                            FCCT010       64     A     
 OUTPTK                                                                                    FCCT010       65     A     
 OUTPTK    SPA2     AX4    18          SHIFT *CA* TO LOW ORDER POSITION                    FCCT010       66     A     
 OUTPTK             SA3    A3+1        PRELOAD NEXT *SUB* TABLE ENTRY                      FCCT010       67     A     
 OUTPTK             SX5    X4+B4       ADD IN *CA*                                         FCCT010       68     A     
 OUTPTK             LX1    B3,X0       POSITION MASK                                       FCCT010       69     A     
 OUTPTK             BX6    -X0*X5      CLEAR SIGN EXTENSION ON *FP* ADDRESS                FCCT010       70     A     
 OUTPTK             SB2    A2                                                              FCCT010       71     A     
 OUTPTK             LX5    B3,X6       POSITION *FP* ADDRESS                               FCCT010       72     A     
 OUTPTK             BX4    X1*X2       CLEAR ADDRESS FIELD IN INSTRUCTION                  FCCT010       73     A     
 OUTPTK             SA2    X3          PRELOAD NEXT INSTRUCTION TO *ADDSUB*                FCCT010       74     A     
 OUTPTK             BX6    X4+X5       INSERT *FP* ADDRESS                                 FCCT010       75     A     
 OUTPTK             UX4    B3,X3                                                           FCCT010       76     A     
 OUTPTK             SA6    B2+         RESTORE *SUBBED* INSTRUCTION                        FCCT010       77     A     
 OUTPTK             MI     X3,SPA2     IF NOT DELAY OR MORE THIS *FP*                      FCCT010       78     A     
 OUTPTK                                                                                    FCCT010       79     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1731    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPTK  
  
 OUTPTK             AX4    42          POSITION *FP* NUMBER                                FCCT010       80     A     
 OUTPTK             SA1    X4+B5       NEXT ACTUAL PARAMETER TO *ADDSUB*                   FCCT010       81     A     
 OUTPTK             NZ     B3,SPA1     IF MORE TO *ADDSUB*                                 FCCT010       82     A     
 OUTPTK             EQ     SPA.        EXIT..                                              FCCT010       83     A     
 OUTPTK             SPACE  4,5                                                             FCCT010       84     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - OUTPTK  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          OUTPTK                    1146      1114
          FCC1119                     41        41
          F7540FT                      1         1
          FCCT010                     79        79
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPK20 
  
 OUTPK20  *DECK OUTPK20                                                                    OUTPK20        1     A     
 OUTPK20            IDENT  OUTPK20                                                         OUTPK20        2     A     
 OUTPK20   B=OPK20  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             OUTPK20        3     A     
 OUTPK20  *CALL,SSTCALL                                                                    OUTPK20        4     A     
 OUTPK20   .TEST    IFNE   TEST,0                                                          OUTPK20        5     A     
 OUTPK20  *CALL OUTPTK                                                                     OUTPK20        6     A     
 OUTPK20   .TEST    ENDIF                                                                  OUTPK20        7     A     
 OUTPK20            END                                                                    OUTPK20        8     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - OUTPK20 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          OUTPK20                      8         8
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SNAP    
  
 SNAP     *DECK SNAP                                                                       SNAP           1     A     
 SNAP               IDENT  SNAP                                                            SNAP           2     A     
 SNAP               SST    A                                                               SNAP           3     A     
 SNAP                                                                                      SNAP           4     A     
 SNAP               TITLE  SNAP  TEST MODE SNAP PACKAGE.                                   SNAP           5     A     
 SNAP               LIST   F,X                                                             SNAP           6     A     
 SNAP                                                                                      SNAP           7     A     
 SNAP               NOREF  A                                                               SNAP           8     A     
 SNAP                                                                                      SNAP           9     A     
 SNAP      B=SNAP   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             SNAP          10     A     
 SNAP                                                                                      SNAP          11     A     
 SNAP      #SNAP    IFNE   TEST,0                                                          SNAP          12     A     
 SNAP                                                                                      SNAP          13     A     
 SNAP               EXT    FRA=,F.OUT                                                      SNAP          14     A     
 SNAP      F.BDO    SPACE  4,8                                                             SNAP          15     A     
 SNAP      F.BDO    =      F.OUT       DEFINE BATCH DEBUG OUTPUT FILE TO BE SAME           SNAP          16     A     
 SNAP     *                              AS NORMAL OUTPUT FILE AS DEFINED BY               SNAP          17     A     
 SNAP     *                              *L=* CC PARAMETER                                 SNAP          18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1732    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SNAP    
  
 SNAP      PRBDO    SPACE  4,8                                                             SNAP          19     A     
 SNAP     **        DEFINE BATCH DEBUG OUTPUT MACRO -- *PRBDO*.                            SNAP          20     A     
 SNAP                                                                                      SNAP          21     A     
 SNAP               PURGMAC PRBDO                                                          SNAP          22     A     
 SNAP                                                                                      SNAP          23     A     
 SNAP      PRBDO    OPSYN  LISTL                                                           SNAP          24     A     
 SNAP      FAA=     SPACE  4,8                                                             SNAP          25     A     
 SNAP     **        FAA - FIND ABSOLUTE ADDRESS.                                           SNAP          26     A     
 SNAP     *                                                                                SNAP          27     A     
 SNAP     *                                                                                SNAP          28     A     
 SNAP     *         ENTRY  (X0) = MX0 7*CHAR                                               SNAP          29     A     
 SNAP     *                (X1) = 42/0LNAME, 18/0                                          SNAP          30     A     
 SNAP     *                                                                                SNAP          31     A     
 SNAP     *         EXIT   (X6) .PL. IF ADBS ADDRESS ASSOCIATED WITH NAME                  SNAP          32     A     
 SNAP     *                     .MI. IF NO ADDR KNOWN FOR *NAME* (I.E. NO FIND)            SNAP          33     A     
 SNAP     *                                                                                SNAP          34     A     
 SNAP     *         USES   X - 2,3,6,7                                                     SNAP          35     A     
 SNAP     *                A - 2                                                           SNAP          36     A     
 SNAP     *                B - 6,7                                                         SNAP          37     A     
 SNAP     *                                                                                SNAP          38     A     
 SNAP     *         CALLS  /DBG=IDP/SKT                                                    SNAP          39     A     
 SNAP                                                                                      SNAP          40     A     
 SNAP      #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      SNAP          41     A     
 SNAP                                                                                      SNAP          42     A     
 SNAP      FAA=     SUBR               ** ENTRY/EXIT **                                    SNAP          43     A     
 SNAP               SB6    =XFWA2.0    (B6) = FWA OF (2,0) *RPV* TABLE                     SNAP          44     A     
 SNAP               RJ     /DBG=IDP/SKT  SEARCH FOR *NAME*                                 SNAP          45     A     
 SNAP               SX6    X2+                                                             SNAP          46     A     
 SNAP               NZ     X2,EXIT.    IF A FIND                                           SNAP          47     A     
 SNAP               SB6    =XLWA2.0+1+LDR.NN  (B6) = FWA OF (2,N) *RPV* TABLE              SNAP          48     A     
 SNAP               RJ     /DBG=IDP/SKT  SEARCH FOR *NAME*                                 SNAP          49     A     
 SNAP               SX6    X2                                                              SNAP          50     A     
 SNAP               NZ     X2,EXIT.    IF A FIND                                           SNAP          51     A     
 SNAP               MX6    1           SET TO *NO FIND*                                    SNAP          52     A     
 SNAP               EQ     EXIT.                                                           SNAP          53     A     
 SNAP      #OS      ENDIF                                                                  SNAP          54     A     
 SNAP      UIO=     SPACE  4,8                                                             SNAP          55     A     
 SNAP     **        UIO= - USER IDP OWNCODE.                                               SNAP          56     A     
 SNAP     *                                                                                SNAP          57     A     
 SNAP     *                                                                                SNAP          58     A     
 SNAP     *         ENTRY  (RA.ORG) =  12/LAST OVERLAY LOADED (0P0S FMT),48/OTHER          SNAP          59     A     
 SNAP     *                (UIOA)   =  48/0,12/LAST OVERLAY LOADED ON PREVIOUS             SNAP          60     A     
 SNAP     *                              IDP CALL (0P0S FMT)                               SNAP          61     A     
 SNAP     *                                                                                SNAP          62     A     
 SNAP     *         EXIT   (X1)     =  .MI., I.E. HONOR BREAK                              SNAP          63     A     
 SNAP     *                                                                                SNAP          64     A     
 SNAP     *                WARNING -- IF THE USER HAS NOT ALLOTTED ENOUGH SPACE            SNAP          65     A     
 SNAP     *                  FOR THE USER *SET* NAME TABLE *IDPSET* TO CONTAIN             SNAP          66     A     
 SNAP     *                  ALL THE DEFAULT *SET* NMAES, THEN *ADZ* (CALLED BY            SNAP          67     A     
 SNAP     *                  *IST*) WILL SENSE TABLE OVERFLOW AND XIT TO *IDP=ER*.         SNAP          68     A     
 SNAP     *                  THIS CONDITION SHOULD BE AVOIDED.                             SNAP          69     A     
 SNAP     *                                                                                SNAP          70     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1733    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SNAP    
  
 SNAP     *         USES   X - 0,1,2,3,6,7   (INCLUDES ALL CALLS)                          SNAP          71     A     
 SNAP     *                A - 1,2,6                                                       SNAP          72     A     
 SNAP     *                B - 6,7                                                         SNAP          73     A     
 SNAP     *                                                                                SNAP          74     A     
 SNAP     *         CALLS  CLZ,IST                                                         SNAP          75     A     
 SNAP                                                                                      SNAP          76     A     
 SNAP      #OS      IFNE   .OS,2                                                           FEAT155FA      6     A     
 SNAP                                                                                      SNAP          77     A     
 SNAP      UIO=     SUBR               ** ENTRY/EXIT **                                    SNAP          78     A     
 SNAP               SA2    RA.ORG                                                          SNAP          79     A     
 SNAP               SA3    UIOA                                                            SNAP          80     A     
 SNAP               MX1    1           SET TO *HONOR BREAK*                                SNAP          81     A     
 SNAP               AX2    48-0                                                            SNAP          82     A     
 SNAP               IX7    X2-X3                                                           SNAP          83     A     
 SNAP               BX6    X2                                                              SNAP          84     A     
 SNAP               ZR     X7,EXIT.    IF WE ARE STILL IN THE SAME OVERLAY                 SNAP          85     A     
 SNAP               SA6    A3                                                              SNAP          86     A     
 SNAP               SB6    IDPBA                                                           SNAP          87     A     
 SNAP               RJ     CLZ         CLEAR IDP TABLE -- BREAK ADDRESSES                  SNAP          88     A     
 SNAP               SB6    IDPSET                                                          SNAP          89     A     
 SNAP               RJ     CLZ         CLEAR IDP TABLE -- SET NAMES                        SNAP          90     A     
 SNAP               RJ     IST         (RE)INITIALIZE DEFAULT *SET* NAMES                  SNAP          91     A     
 SNAP               MX1    1           SET TO *HONOR BREAK*                                SNAP          92     A     
 SNAP               EQ     EXIT.                                                           SNAP          93     A     
 SNAP                                                                                      SNAP          94     A     
 SNAP                                                                                      SNAP          95     A     
 SNAP      UIOA     BSSZ   1           USED TO TELL WHETHER OR NOT A NEW OVERLAY           SNAP          96     A     
 SNAP     *                              HAS BEEN LOADED SINCE THE LAST *IDP*              SNAP          97     A     
 SNAP     *                              CALL-- CONTAINS THE MOST RECENT OVERLAY           SNAP          98     A     
 SNAP     *                              LOADED NR FROM *RA.ORG* -- 48/0,12/0P0S           SNAP          99     A     
 SNAP      #OS      ENDIF                                                                  FEAT155FA      7     A     
 SNAP      URO=     SPACE  4,8                                                             SNAP         100     A     
 SNAP     **        URO= - USER REG= OWNCODE.                                              SNAP         101     A     
 SNAP     *                                                                                SNAP         102     A     
 SNAP     *         ENTRY  NONE                                                            SNAP         103     A     
 SNAP     *                                                                                SNAP         104     A     
 SNAP     *         EXIT   (X1) = .MI. IF SNAP TO BE HONORED, ELSE .PL.                    SNAP         105     A     
 SNAP     *                                                                                SNAP         106     A     
 SNAP     *         USES   X - 1                                                           SNAP         107     A     
 SNAP     *                A - 1                                                           SNAP         108     A     
 SNAP     *                                                                                SNAP         109     A     
 SNAP     *         CALLS  NONE                                                            SNAP         110     A     
 SNAP                                                                                      SNAP         111     A     
 SNAP                                                                                      SNAP         112     A     
 SNAP      URO=     SUBR               ** ENTRY/EXIT **                                    SNAP         113     A     
 SNAP               SA1    =XCO.SNAP                                                       SNAP         114     A     
 SNAP               LX1    1RG                                                             SNAP         115     A     
 SNAP               BX1    -X1                                                             SNAP         116     A     
 SNAP               EQ     EXIT.                                                           SNAP         117     A     
 SNAP                                                                                      SNAP         118     A     
 SNAP                                                                                      SNAP         119     A     
 SNAP      USO=     =      URO=                                                            SNAP         120     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1734    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SNAP    
  
 SNAP      UFT=     SPACE  4,8                                                             SNAP         121     A     
 SNAP     **        UFT= - USER FILE NAME TABLE.                                           SNAP         122     A     
 SNAP                                                                                      SNAP         123     A     
 SNAP      #OS      IFNE   .OS,2       IF NOT SCOPE 2                                      SNAP         124     A     
 SNAP                                                                                      SNAP         125     A     
 SNAP      UFT=     BSS    0                                                               SNAP         126     A     
 SNAP               VFD    42/0LF.OUT,18/=XF.OUT                                           SNAP         127     A     
 SNAP               VFD    42/0LOUTPUT,18/=XF.OUT                                          FCCT001       14     A     
 SNAP               DATA   0           END OF TABLE MARK                                   SNAP         128     A     
 SNAP      #OS      ENDIF                                                                  SNAP         129     A     
 SNAP     *CALL DBG=IDP                                                                    SNAP         130     A     
 SNAP      DBG=IDP  SPACE  4,8                                                             SNAP         131     A     
 SNAP               ENTRY  DCM=                                                            SNAP         132     A     
 SNAP               ENTRY  IDP=                                                            SNAP         133     A     
 SNAP               ENTRY  IDPFLG                                                          SNAP         134     A     
 SNAP               ENTRY  REG=                                                            SNAP         135     A     
 SNAP               ENTRY  SOB                                                             FCCT001       15     A     
 SNAP               ENTRY  SNP=                                                            SNAP         136     A     
 SNAP                                                                                      SNAP         137     A     
 SNAP      CHAR     =      /DBG=IDP/CHAR                                                   SNAP         138     A     
 SNAP               IFNE   .OS,2,1     IF NOT SCOPE 2                                      SNAP         139     A     
 SNAP      CLZ      =      /DBG=IDP/CLZ                                                    SNAP         140     A     
 SNAP      DAR      =      /DBG=IDP/DAR                                                    SNAP         141     A     
 SNAP      DCM      =      /DBG=IDP/DCM                                                    SNAP         142     A     
 SNAP      DCM=     =      /DBG=IDP/DCM                                                    SNAP         143     A     
 SNAP               IFNE   .OS,2,1     IF NOT SCOPE 2                                      SNAP         144     A     
 SNAP      IDPBA    =      /DBG=IDP/IDPBA                                                  SNAP         145     A     
 SNAP      IDPFLG   =      /DBG=IDP/IDPFLG                                                 SNAP         146     A     
 SNAP               IFNE   .OS,2,1     IF NOT SCOPE 2                                      SNAP         147     A     
 SNAP      IDPSET   =      /DBG=IDP/IDPSET                                                 SNAP         148     A     
 SNAP               IFNE   .OS,2,1     IF NOT SCOPE 2                                      SNAP         149     A     
 SNAP      IST      =      /DBG=IDP/IST                                                    SNAP         150     A     
 SNAP      ROL      =      /DBG=IDP/ROL                                                    SNAP         151     A     
 SNAP      SNAPLNE  =      /DBG=IDP/SNAPLNE                                                SNAP         152     A     
 SNAP      SOB      =      /DBG=IDP/SOB                                                    FCCT001       16     A     
 SNAP      DXP=     SPACE  4,8                                                             SNAP         153     A     
 SNAP     **        DXP= - DUMP EXCHANGE PACKAGE.                                          SNAP         154     A     
 SNAP     *                                                                                SNAP         155     A     
 SNAP     *                                                                                SNAP         156     A     
 SNAP     *                BECAUSE SCOPE 2 REPRIEVE HAS NO RESET, THE SYSTEM DUMPS         SNAP         157     A     
 SNAP     *         ALL REGISTERS AS THEY WERE DURING REPRIEVE PROCESSING; AND             SNAP         158     A     
 SNAP     *         BECAUSE THIS IS NOT USEFUL, THIS ROUTINE DUMPS ALL REGISTERS           SNAP         159     A     
 SNAP     *         AS THEY WERE WHEN REPRIEVE WAS CALLED. IT ALSO DUMPS 100               SNAP         160     A     
 SNAP     *         WORDS EITHER SIDE OF WHAT THE -P- REGISTER WAS WHEN REPRIEVE           SNAP         161     A     
 SNAP     *         WAS CALLED.                                                            SNAP         162     A     
 SNAP     *                                                                                SNAP         163     A     
 SNAP     *         ENTRY  (A1,X1) = A + C OF 1ST WORD OF EXCHANGE PACKAGE                 SNAP         164     A     
 SNAP     *                                                                                SNAP         165     A     
 SNAP     *         EXIT   NONE                                                            SNAP         166     A     
 SNAP     *                                                                                SNAP         167     A     
 SNAP     *         USES   ALL BUT A0,A5,X5                                                SNAP         168     A     
 SNAP     *                                                                                SNAP         169     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1735    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SNAP    
  
 SNAP     *         CALLS  COD,DAR,DCM,PRIDP,TEX                                           SNAP         170     A     
 SNAP                                                                                      SNAP         171     A     
 SNAP      .OS      IFEQ   .OS,2       IF SCOPE 2                                          SNAP         172     A     
 SNAP                                                                                      SNAP         173     A     
 SNAP      DXP=     SUBR   =           ** ENTRY/EXIT **                                    SNAP         174     A     
 SNAP               RJ     TEX         TRANSFER EXCHANGE PACKAGE REGISTERS                 SNAP         175     A     
 SNAP                                                                                      SNAP         176     A     
 SNAP     *         DUMP P,RA,FL,EM,RE,FE, AND MA.                                         SNAP         177     A     
 SNAP                                                                                      SNAP         178     A     
 SNAP      DXP2     SA3    DXPB                                                            SNAP         179     A     
 SNAP               SX6    X3-6                                                            SNAP         180     A     
 SNAP               ZR     X6,DXP3     IF DONE                                             SNAP         181     A     
 SNAP               SX6    X3+B1                                                           SNAP         182     A     
 SNAP               SA6    A3                                                              SNAP         183     A     
 SNAP               SA2    DXPA+X3     (X2) = .......XX.   (.=BLANK(55B))                  SNAP         184     A     
 SNAP               SA1    HARDREG+X3  (X1) = SAVED CONTENTS OF HARDWARE REGISTER          SNAP         185     A     
 SNAP               BX6    X2                                                              SNAP         186     A     
 SNAP               SA6    =XSNAPLNE                                                       SNAP         187     A     
 SNAP               RJ     =XCOD       CONVERT BINARY TO OCTAL DPC                         SNAP         188     A     
 SNAP               LX6    3*CHAR      (X6) = .NNNNNN...                                   SNAP         189     A     
 SNAP               SA6    A6+B1                                                           SNAP         190     A     
 SNAP               MX7    0                                                               SNAP         191     A     
 SNAP               SA7    A6+B1       MARK EOL                                            SNAP         192     A     
 SNAP               PRIDP  SNAPLNE,3                                                       SNAP         193     A     
 SNAP               EQ     DXP2                                                            SNAP         194     A     
 SNAP                                                                                      SNAP         195     A     
 SNAP     *         HERE TO DUMP ALL REGISTERS.                                            SNAP         196     A     
 SNAP                                                                                      SNAP         197     A     
 SNAP      DXP3     RJ     DAR         DUMP ALL REGISTERS                                  SNAP         198     A     
 SNAP                                                                                      SNAP         199     A     
 SNAP     *         HERE TO DUMP 100B WORDS EITHER SIDE OF -P- REGISTER                    SNAP         200     A     
 SNAP                                                                                      SNAP         201     A     
 SNAP               SA1    HARDREG     (X1) = -P- REGISTER                                 SNAP         202     A     
 SNAP               SX4    200B        (X4) = NR OF WORDS TO DUMP (LEN)                    SNAP         203     A     
 SNAP               NZ     X1,DXP4     IF -P- REGISTER NONZERO                             SNAP         204     A     
 SNAP               SA1    B0          EXTRACT -P- FROM RA+0                               SNAP         205     A     
 SNAP               LX1    59-47+18                                                        SNAP         206     A     
 SNAP                                                                                      SNAP         207     A     
 SNAP      DXP4     MX0    -18                                                             SNAP         208     A     
 SNAP               BX1    -X0*X1                                                          SNAP         209     A     
 SNAP               SX2    X1-100B     (X2) = FWA TO DUMP                                  SNAP         210     A     
 SNAP               RJ     DCM         DUMP CENTRAL MEMORY                                 SNAP         211     A     
 SNAP               EQ     EXIT.                                                           SNAP         212     A     
 SNAP                                                                                      SNAP         213     A     
 SNAP                                                                                      SNAP         214     A     
 SNAP      DXPA     DATA   10H1       P  NNNNNN                                            SNAP         215     A     
 SNAP               DATA   10H       RA  NNNNNN                                            SNAP         216     A     
 SNAP               DATA   10H       FL  NNNNNN                                            SNAP         217     A     
 SNAP               DATA   10H       EM  NNNNNN                                            SNAP         218     A     
 SNAP               DATA   10H       RE  NNNNNN                                            SNAP         219     A     
 SNAP               DATA   10H       FE  NNNNNN                                            SNAP         220     A     
 SNAP               DATA   10H       MA  NNNNNN                                            SNAP         221     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1736    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SNAP    
  
 SNAP                                                                                      SNAP         222     A     
 SNAP      DXPB     BSSZ   1                                                               SNAP         223     A     
 SNAP      .OS      ENDIF                                                                  SNAP         224     A     
 SNAP      TEX      SPACE  4,8                                                             SNAP         225     A     
 SNAP     **        TEX - TRANSFER EXCHANGE PACKAGE REGISTERS.                             SNAP         226     A     
 SNAP     *                                                                                SNAP         227     A     
 SNAP     *                                                                                SNAP         228     A     
 SNAP     *                THIS ROUTINE WILL TRANSFER THE CONTENTS OF THE                  SNAP         229     A     
 SNAP     *         REGISTERS IN THE SAVED EXCHANGE PACKAGE TO THE REGISTER SAVE           SNAP         230     A     
 SNAP     *         AREA (SVB,SVA,SVX -- AS SET UP BY *COMCSVR*). A SUBSEQUENT             SNAP         231     A     
 SNAP     *         CALL TO *RSR=* WOULD RESTORE ALL REGISTERS TO THEIR VALUES             SNAP         232     A     
 SNAP     *         AT THE TIME OF THE EXCHANGE.                                           SNAP         233     A     
 SNAP     *                                                                                SNAP         234     A     
 SNAP     *         ENTRY  (A1,X1) = A + C OF 1ST WORD OF EXCHANGE PACKAGE                 SNAP         235     A     
 SNAP     *                                                                                SNAP         236     A     
 SNAP     *         EXIT   NONE                                                            SNAP         237     A     
 SNAP     *                                                                                SNAP         238     A     
 SNAP     *         USES   X - 0,1,6,7                                                     SNAP         239     A     
 SNAP     *                A - 1,6,7                                                       SNAP         240     A     
 SNAP     *                B - 2,3,4,5,7                                                   SNAP         241     A     
 SNAP     *                                                                                SNAP         242     A     
 SNAP     *         CALLS  NONE                                                            SNAP         243     A     
 SNAP                                                                                      SNAP         244     A     
 SNAP                                                                                      SNAP         245     A     
 SNAP      TEX      SUBR               ** ENTRY/EXIT **                                    SNAP         246     A     
 SNAP               SA1    A1+16-1     (X1) = LAST WORD OF 16 WORD EXCHANGE PKG            SNAP         247     A     
 SNAP               SB2    =XSVB                                                           SNAP         248     A     
 SNAP               SB3    =XSVA                                                           SNAP         249     A     
 SNAP               SB4    =XSVX                                                           SNAP         250     A     
 SNAP               SB5    HARDREG                                                         SNAP         251     A     
 SNAP               SB7    7           (B7) = LOOP COUNT -N-                               SNAP         252     A     
 SNAP               MX0    -18                                                             SNAP         253     A     
 SNAP                                                                                      SNAP         254     A     
 SNAP     *         RESTORE -X- REGISTERS.                                                 SNAP         255     A     
 SNAP                                                                                      SNAP         256     A     
 SNAP      TEX2     BX6    X1                                                              SNAP         257     A     
 SNAP               SA6    B4+B7                                                           SNAP         258     A     
 SNAP               SB7    B7-B1       N-1                                                 SNAP         259     A     
 SNAP               SA1    A1-B1                                                           SNAP         260     A     
 SNAP               GE     B7,B0,TEX2  IF MORE -X- REGS TO GO                              SNAP         261     A     
 SNAP                                                                                      SNAP         262     A     
 SNAP     *         RESTORE -B- AND -A- REGS, AND SAVE P,RA,FL,EM,RE,FE,MA.                SNAP         263     A     
 SNAP                                                                                      SNAP         264     A     
 SNAP               SB7    7           (B7) = LOOP COUNT -N-                               SNAP         265     A     
 SNAP                                                                                      SNAP         266     A     
 SNAP      TEX3     BX6    -X0*X1      (X6) = (B-N-)                                       SNAP         267     A     
 SNAP               LX1    -18                                                             SNAP         268     A     
 SNAP               BX7    -X0*X1      (X7) = (A-N-)                                       SNAP         269     A     
 SNAP               SA6    B2+B7                                                           SNAP         270     A     
 SNAP               SA7    B3+B7                                                           SNAP         271     A     
 SNAP               LX1    -18                                                             SNAP         272     A     
 SNAP               BX6    -X0*X1      (X6) = P,RA,FL,EM,RE,FE,OR MA                       SNAP         273     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1737    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SNAP    
  
 SNAP               SA6    B5+B7                                                           SNAP         274     A     
 SNAP               SB7    B7-B1       N-1                                                 SNAP         275     A     
 SNAP               SA1    A1-B1                                                           SNAP         276     A     
 SNAP               GE     B7,B0,TEX3  IF NOT DONE                                         SNAP         277     A     
 SNAP               EQ     EXIT.                                                           SNAP         278     A     
 SNAP                                                                                      SNAP         279     A     
 SNAP                                                                                      SNAP         280     A     
 SNAP      HARDREG  BSSZ   8           SAVED HARDWARE REGISTERS                            SNAP         281     A     
 SNAP     *         BSSZ   1           SAVED P                                             SNAP         282     A     
 SNAP     *         BSSZ   1           SAVED RA                                            SNAP         283     A     
 SNAP     *         BSSZ   1           SAVED FL                                            SNAP         284     A     
 SNAP     *         BSSZ   1           SAVED EM                                            SNAP         285     A     
 SNAP     *         BSSZ   1           SAVED RE                                            SNAP         286     A     
 SNAP     *         BSSZ   1           SAVED FE                                            SNAP         287     A     
 SNAP     *         BSSZ   1           SAVED MA                                            SNAP         288     A     
 SNAP     *         BSSZ   1           DUMMY FOR CONSISTENCY                               SNAP         289     A     
 SNAP     *CALL COMCSFN                                                                    FCCT007        5     A     
 SNAP     *CALL COMCSVR                                                                    SNAP         290     A     
 SNAP      SVR=     SPACE  4,8                                                             SNAP         291     A     
 SNAP               ENTRY  SVR=,RSR=                                                       SNAP         292     A     
 SNAP      SVR      =      SVR=                                                            SNAP         293     A     
 SNAP      RSR      =      RSR=                                                            SNAP         294     A     
 SNAP                                                                                      SNAP         295     A     
 SNAP      #SVR     IF     -DEF,#SVR   IF LOCAL REGISTER SAVE AREA                         SNAP         296     A     
 SNAP               ECHO   4,R=(B,A,X)                                                     SNAP         297     A     
 SNAP      SV_R     =      /COMCSVR/SVREG+/COMCSVR/SV_R                                    SNAP         298     A     
 SNAP      SAV.R    =      SV_R                                                            SNAP         299     A     
 SNAP               ENTRY  SV_R,SAV.R                                                      SNAP         300     A     
 SNAP               ENTRY  SV=R                                                            SNAP         301     A     
 SNAP      #SVR     ENDIF                                                                  SNAP         302     A     
 SNAP                                                                                      SNAP         303     A     
 SNAP               ENTRY  SAVE=,RESET=                                                    SNAP         304     A     
 SNAP      SAVE=    =      SVR=                                                            SNAP         305     A     
 SNAP      RESET=   =      RSR=                                                            SNAP         306     A     
 SNAP                                                                                      SNAP         307     A     
 SNAP      #SNAP    ENDIF                                                                  SNAP         308     A     
 SNAP                                                                                      SNAP         309     A     
 SNAP               USE    OVLEND                                                          SNAP         310     A     
 SNAP               ENTRY  LWA2.0                                                          SNAP         311     A     
 SNAP      LWA2.0   DATA   0           DEFINE LWA (2,0) OVERLAY FOR LOADER CALL            SNAP         312     A     
 SNAP                                                                                      SNAP         313     A     
 SNAP               LIST   D                                                               SNAP         314     A     
 SNAP               END                                                                    SNAP         315     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - SNAP    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          SNAP                       315       315
          FEAT155FA                    2         2
          FCCT001                      3         3
          FCCT007                      1         1
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1738    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SNAP    
  
0 
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *FTNMSG*
  
 *FTNMSG* *DECK *FTNMSG*                                                                   *FTNMSG*       1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *FTNMSG*
  
          IDENTIFIER               TOTAL    ACTIVE
  
          *FTNMSG*                     1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG   *DECK     FTNMSG                                                                 FTNMSG         1     A     
 FTNMSG             IDENT  FTNMSG                                                          FTNMSG         2     A     
 FTNMSG             TITLE              FTNMSG$ - ISSUE ERROR MESSAGES TO OUTPUT FI         FTNMSG         3     A     
 FTNMSG   ,LE                                                                              FTNMSG         4     A     
 FTNMSG   *CALL     SSTCALL                                                                FTNMSG         5     A     
 FTNMSG                                                                                    FTNMSG         6     A     
 FTNMSG             NOREF  ANSI,ASA,FC,FE,I                                                FTNMSG         7     A     
 FTNMSG             NOREF  LEN                                                             FTNMSG         8     A     
 FTNMSG             NOREF  ZZZZZZZZ                                                        FTNMSG         9     A     
 FTNMSG                                                                                    FTNMSG        10     A     
 FTNMSG             B1=1                                                                   FTNMSG        11     A     
 FTNMSG             SPACE  3                                                               FTNMSG        12     A     
 FTNMSG   ***                                                                              FTNMSG        13     A     
 FTNMSG   *         FTNMSG$ - FTN 1.3 OVERLAY. ISSUES ERROR MESSAGES TO THE OUTPUT         FTNMSG        14     A     
 FTNMSG   *         FILE AND EXITS TO LOAD PASS 2.                                         FTNMSG        15     A     
 FTNMSG   *                                                                                FTNMSG        16     A     
 FTNMSG             SPACE  3                                                               FTNMSG        17     A     
 FTNMSG    B=FTMSG  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             FTNMSG        18     A     
 FTNMSG                                                                                    FTNMSG        19     A     
 FTNMSG             USE    /TABLES/                                                        FTNMSG        20     A     
 FTNMSG    O.ERTAB  BSS    1                 FWA OF THE ERROR TABLE                        FTNMSG        21     A     
 FTNMSG             USE    *                                                               FTNMSG        22     A     
 FTNMSG                                                                                    FTNMSG        23     A     
 FTNMSG    PROGRAM  EQU    56B         SUBPROGRAM TYPE, =0 IF BLOCKDATA                    FTNMSG        24     A     
 FTNMSG                                                                                    FTNMSG        25     A     
 FTNMSG             EJECT                                                                  FTNMSG        26     A     
 FTNMSG   **        ERMSG - GENERATE ERROR MESSAGE TEXT AND INDEX TABLES.                  FTNMSG        27     A     
 FTNMSG   *                                                                                FTNMSG        28     A     
 FTNMSG   *                                                                                FTNMSG        29     A     
 FTNMSG   *         ERMSG     NAME,SEV,(TEXT)                                              FTNMSG        30     A     
 FTNMSG   *                                                                                FTNMSG        31     A     
 FTNMSG   *         ENTRY  *NAME* = ANY UNIQUE ADDRESS SYMBOL EXCEPT *ZZZZZZZZ*.           FTNMSG        32     A     
 FTNMSG   *                   DOES NOT APPEAR IN ERROR LISTING.  BEST USED TO              FTNMSG        33     A     
 FTNMSG   *                   GIVE CLUE TO INVOKING ROUTINE, E.G., ARITH25 OR              FTNMSG        34     A     
 FTNMSG   *                   GOTO7.                                                       FTNMSG        35     A     
 FTNMSG   *                *SEV*  = SEVERITY CODE.  NOT USED BY *ERMSG* MACRO,             FTNMSG        36     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1739    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG   *                   BUT REQUIRED FOR EXTERNAL PROGRAM THAT GENERATES             FTNMSG        37     A     
 FTNMSG   *                   ERROR MESSAGE LIST FOR PHOTO-REPRODUCTION IN FTN             FTNMSG        38     A     
 FTNMSG   *                   REFERENCE MANUAL.  (ACTUAL SEVERITY, AS LISTED IN            FTNMSG        39     A     
 FTNMSG   *                   ERROR OUTPUT, IS DETERMINED BY THE *ERPRO* CALLER.)          FTNMSG        40     A     
 FTNMSG   *                   ACCEPTABLE VALUES ARE --                                     FTNMSG        41     A     
 FTNMSG   *                            FC   - FATAL TO COMPILATON.                         FTNMSG        42     A     
 FTNMSG   *                            FE   - FATAL TO EXECUTION.                          FTNMSG        43     A     
 FTNMSG   *                            I    - INFORMATIVE.                                 FTNMSG        44     A     
 FTNMSG   *                            ANSI - ANSI VIOLATION.                              FTNMSG        45     A     
 FTNMSG   *                *TEXT* = ERROR MESSAGE TO BE LISTED.  SHOULD END WITH A         FTNMSG        46     A     
 FTNMSG   *                   PERIOD. (*ERMSG* WILL SUPPLY IF OMITTED.)  MUST NOT          FTNMSG        47     A     
 FTNMSG   *                   EXCEED 106 CHARACTERS, INCLUDING TERMINAL PERIOD.            FTNMSG        48     A     
 FTNMSG   *                   MUST NOT CONTAIN $.  MUST BE ENCLOSED IN PARENS.             FTNMSG        49     A     
 FTNMSG                                                                                    FTNMSG        50     A     
 FTNMSG             QUAL   SEVC                                                            FTNMSG        51     A     
 FTNMSG             ECHO   1,B=(FE,I,ASA,ANSI,FC)                                          FTNMSG        52     A     
 FTNMSG    B        =      1                                                               FTNMSG        53     A     
 FTNMSG             QUAL                                                                   FTNMSG        54     A     
 FTNMSG                                                                                    FTNMSG        55     A     
 FTNMSG                                                                                    FTNMSG        56     A     
 FTNMSG                                                                                    FTNMSG        57     A     
 FTNMSG    ERMSG    MACRO  NAME,SEV,TEXT                                                   FTNMSG        58     A     
 FTNMSG   ERNUMBER DECMIC "ERNUMBER"+1                                                     FTNMSG        59     A     
 FTNMSG     USE MSG                                                                        FTNMSG        60     A     
 FTNMSG   *                            VALIDATE SEVERITY CODE.                             FTNMSG        61     A     
 FTNMSG     IF -DEF,/SEVC/SEV,1                                                            FTNMSG        62     A     
 FTNMSG     ERR ILLEGAL SEVERITY CODE - SEV.  "SEQUENCE"                                   FTNMSG        63     A     
 FTNMSG   *                                                                                FTNMSG        64     A     
 FTNMSG   TXT MICRO 1,,$TEXT$                                                              FTNMSG        65     A     
 FTNMSG   *                            APPEND TERMINATING PERIOD IF MISSING.               FTNMSG        66     A     
 FTNMSG   LEN MICCNT TXT                                                                   FTNMSG        67     A     
 FTNMSG   PER MICRO LEN,1,$"TXT"$                                                          FTNMSG        68     A     
 FTNMSG     IFC NE,$"PER"$.$,4                                                             FTNMSG        69     A     
 FTNMSG   TXT MICRO 1,,$"TXT".$                                                            FTNMSG        70     A     
 FTNMSG   LEN SET LEN+1                                                                    FTNMSG        71     A     
 FTNMSG   *                            DEFINE TEXT IF PERIOD MISSING.                      FTNMSG        72     A     
 FTNMSG   NAME DIS ,$"TXT"$                                                                FTNMSG        73     A     
 FTNMSG     SKIP 1                                                                         FTNMSG        74     A     
 FTNMSG   *                            DEFINE TEXT IF PERIOD PRESENT.                      FTNMSG        75     A     
 FTNMSG   NAME DIS ,$TEXT$                                                                 FTNMSG        76     A     
 FTNMSG   *                            CHECK ERROR MESSAGE LENGTH.                         FTNMSG        77     A     
 FTNMSG     IFGT LEN,106,2                                                                 FTNMSG        78     A     
 FTNMSG   ERLEN DECMIC LEN-106                                                             FTNMSG        79     A     
 FTNMSG     ERR ERROR MESSAGE IS "ERLEN" CHARAC TOO LONG.  "SEQUENCE"                      FTNMSG        80     A     
 FTNMSG   *                                                                                FTNMSG        81     A     
 FTNMSG   ZZZZZZZZ SET *-NAME                                                              FTNMSG        82     A     
 FTNMSG     USE ERTAB                                                                      FTNMSG        83     A     
 FTNMSG     VFD 24/0,18/ZZZZZZZZ,18/NAME                                                   FTNMSG        84     A     
 FTNMSG             LIST   L           MESSAGE NR. "ERNUMBER"                              FTNMSG        85     A     
 FTNMSG     USE *                                                                          FTNMSG        86     A     
 FTNMSG    ERMSG    ENDM                                                                   FTNMSG        87     A     
 FTNMSG                                                                                    FTNMSG        88     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1740    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG                                                                                    FTNMSG        89     A     
 FTNMSG                                                                                    FTNMSG        90     A     
 FTNMSG    ERNUMBER MICRO  1,, 0                                                           FTNMSG        91     A     
 FTNMSG                                                                                    FTNMSG        92     A     
 FTNMSG    AVAIL    MICRO                                                                  FTNMSG        93     A     
 FTNMSG                                                                                    FTNMSG        94     A     
 FTNMSG    UNUSED   MACRO                    FOR UNUSED ERROR ORDINALS                     FTNMSG        95     A     
 FTNMSG   ERNUMBER DECMIC "ERNUMBER"+1                                                     FTNMSG        96     A     
 FTNMSG     USE ERTAB                                                                      FTNMSG        97     A     
 FTNMSG     VFD 42/0,1/1,17/"ERNUMBER"                                                     FTNMSG        98     A     
 FTNMSG             LIST   L           "ERNUMBER" IS UNUSED                                FTNMSG        99     A     
 FTNMSG     USE *                                                                          FTNMSG       100     A     
 FTNMSG   AVAIL MICRO 1,,$"AVAIL" "ERNUMBER"$                                              FTNMSG       101     A     
 FTNMSG    UNUSED   ENDM                                                                   FTNMSG       102     A     
 FTNMSG                                                                                    FTNMSG       103     A     
 FTNMSG    RESERVE  MACRO                    ERROR ORDINALS RESERVED FOR FUTURE EX         FTNMSG       104     A     
 FTNMSG   ERNUMBER DECMIC "ERNUMBER"+1                                                     FTNMSG       105     A     
 FTNMSG     USE ERTAB                                                                      FTNMSG       106     A     
 FTNMSG     VFD 42/0,1/1,17/"ERNUMBER"                                                     FTNMSG       107     A     
 FTNMSG             LIST   L           "ERNUMBER" IS RESERVED                              FTNMSG       108     A     
 FTNMSG     USE *                                                                          FTNMSG       109     A     
 FTNMSG    RESERVE  ENDM                                                                   FTNMSG       110     A     
 FTNMSG             SPACE  3                                                               FTNMSG       111     A     
 FTNMSG             USE    ERTAB                                                           FTNMSG       112     A     
 FTNMSG    ERTAB    BSS    0                 BASE OF THE POINTER TABLE                     FTNMSG       113     A     
 FTNMSG             USE    MSG                                                             FTNMSG       114     A     
 FTNMSG                                                                                    FTNMSG       115     A     
 FTNMSG    SEV      DATA   10H    FE                                                       FTNMSG       116     A     
 FTNMSG             DATA   10H    FC                                                       FTNMSG       117     A     
 FTNMSG             DATA   10H   ANSI                                                      FTNMSG       118     A     
 FTNMSG             DATA   10H    I                                                        FTNMSG       119     A     
 FTNMSG                                                                                    FTNMSG       120     A     
 FTNMSG    INDEX    BSSZ   1                 ERROR TABLE INDEX                             FTNMSG       121     A     
 FTNMSG                                                                                    FTNMSG       122     A     
 FTNMSG    ERBUF    BSSZ   14                ERROR MESSAGE BUFFER                          FTNMSG       123     A     
 FTNMSG                                                                                    FTNMSG       124     A     
 FTNMSG    O.ERHEAD DIS    ,*0 CARD NR. SEVERITY  DETAILS    DIAGNOSIS OF PROBLEM*         FTNMSG       125     A     
 FTNMSG    L.ERHEAD =      *-O.ERHEAD                                                      FTNMSG       126     A     
 FTNMSG                                                                                    FTNMSG       127     A     
 FTNMSG             USE    0                                                               FTNMSG       128     A     
 FTNMSG             EJECT                                                                  FTNMSG       129     A     
 FTNMSG   *         LOOP THROUGH THE ERROR TABLE AND PRINT OUT DIAGNOSTICS                 FTNMSG       130     A     
 FTNMSG                                                                                    FTNMSG       131     A     
 FTNMSG   *         IF (BREAK=23) WAS SELECTED, ENTRY TO OVERLAY(2,3) WILL BE TO           FEAT155F     219     A     
 FTNMSG   *         *FTN23-1* TO CALL THE COMPILE-TIME INTERACTIVE DEBUG PACKAGE.          FEAT155F     220     A     
 FTNMSG                                                                                    FEAT155F     221     A     
 FTNMSG    FTN23    BREAK                                                                  FEAT155F     222     A     
 FTNMSG                                                                                    FEAT155F     223     A     
 FTNMSG             ENTRY  FTN23                                                           FTNMSG       132     A     
 FTNMSG    FTN23    BSS    0                 ** LOADER ENTRY POINT **                      FTNMSG       133     A     
 FTNMSG             SA1    =XCP.LSTF                                                       FTNMSG       134     A     
 FTNMSG             SB1    1                                                               FTNMSG       135     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1741    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG             NZ     X1,MSG1           IF SOURCE LISTING ON (*L* .NZ.)               FTNMSG       136     A     
 FTNMSG             SA1    =1H-                                                            FTNMSG       137     A     
 FTNMSG             BX7    X1                                                              FTNMSG       138     A     
 FTNMSG             NO                                                                     FTNMSG       139     A     
 FTNMSG             SA7    =XTL.JECT         SET TITLE TO TRIPLE SPACE, NOT EJECT          FTNMSG       140     A     
 FTNMSG    MSG1     SX6    L.ERHEAD                                                        FTNMSG       141     A     
 FTNMSG             SA6    =XL.STITL                                                       FTNMSG       142     A     
 FTNMSG             MOVE   X6,O.ERHEAD,=XO.STITL                                           FTNMSG       143     A     
 FTNMSG             NUPAGE                                                                 FTNMSG       144     A     
 FTNMSG             LISTL  (=2C  ),1         SKIP LINE AFTER SUBHEADING                    FTNMSG       145     A     
 FTNMSG                                                                                    FTNMSG       146     A     
 FTNMSG   *         MAIN LOOP.                                                             FTNMSG       147     A     
 FTNMSG                                                                                    FTNMSG       148     A     
 FTNMSG    MSG2     SA1    INDEX                                                           FTNMSG       149     A     
 FTNMSG             SA2    =XN.ERROR         (X2) = ERROR COUNT                            FTNMSG       150     A     
 FTNMSG             IX3    X1-X2                                                           FTNMSG       151     A     
 FTNMSG             PL     X3,MSG5           IF ALL ERRORS LISTED                          FTNMSG       152     A     
 FTNMSG             SX6    X1+B1                                                           FTNMSG       153     A     
 FTNMSG             LX1    1                 *2                                            FTNMSG       154     A     
 FTNMSG             SA4    O.ERTAB+X1        FIRST WORD                                    FTNMSG       155     A     
 FTNMSG             MX0    2                                                               FTNMSG       156     A     
 FTNMSG             SA6    A1                UPDATE INDEX                                  FTNMSG       157     A     
 FTNMSG             BX0    X0*X4                                                           FTNMSG       158     A     
 FTNMSG             MX7    10                                                              FTNMSG       159     A     
 FTNMSG             LX0    2                 X0 = SEVERITY                                 FTNMSG       160     A     
 FTNMSG             LX7    60-2                                                            FTNMSG       161     A     
 FTNMSG             BX5    X7*X4                                                           FTNMSG       162     A     
 FTNMSG             MX2    12                                                              FTNMSG       163     A     
 FTNMSG             BX4    -X2*X4            EXTRACT MESSAGE FIELD                         FTNMSG       164     A     
 FTNMSG             AX5    48                X5 = ERROR ORDINAL                            FTNMSG       165     A     
 FTNMSG             SA1    A4+B1             (X1) = LINE NUMBER                            FTNMSG       166     A     
 FTNMSG                                                                                    FTNMSG       167     A     
 FTNMSG   *         BLANK FILL *DETAILS* COLUMN ENTRY.                                     FTNMSG       168     A     
 FTNMSG                                                                                    FTNMSG       169     A     
 FTNMSG             SA2    =40404040404040404040B                                          FTNMSG       170     A     
 FTNMSG             LX4    12          (X4) = LEFT JUSTIFY DETAIL                          FTNMSG       171     A     
 FTNMSG             SX6    B1                                                              FTNMSG       172     A     
 FTNMSG             IX7    X4-X6       BORROW RIPPLES LEFT TO 1ST NON-ZERO BYTE            FTNMSG       173     A     
 FTNMSG             BX3    -X4*X7      EXTRACT BORROWS                                     FTNMSG       174     A     
 FTNMSG             BX6    X2*X3       EXTRACT BORROW BYTES                                FTNMSG       175     A     
 FTNMSG             BX7    X6          DEVELOP BLANKS (55B-S) FOR FILL                     FTNMSG       176     A     
 FTNMSG             LX6    -2                                                              FTNMSG       177     A     
 FTNMSG             IX3    X7+X6                                                           FTNMSG       178     A     
 FTNMSG             BX7    X3                                                              FTNMSG       179     A     
 FTNMSG             LX3    -3                                                              FTNMSG       180     A     
 FTNMSG             IX6    X7+X3                                                           FTNMSG       181     A     
 FTNMSG             BX4    X4+X6       BLANK FILL THE DETAIL                               FTNMSG       182     A     
 FTNMSG                                                                                    FTNMSG       183     A     
 FTNMSG   *         WRITE ERROR MESSAGE TO OUTPUT FILE.                                    FTNMSG       184     A     
 FTNMSG                                                                                    FTNMSG       185     A     
 FTNMSG             SA2    SEV+X0      (X2) = SEVERITY CODE (DISPLAY CODE)                 FTNMSG       186     A     
 FTNMSG             BX6    X1                                                              FTNMSG       187     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1742    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG             LX7    X2                                                              FTNMSG       188     A     
 FTNMSG             SA1    ERTAB-1+X5        18/L.TEXT,18/FWA                              FTNMSG       189     A     
 FTNMSG             SA6    ERBUF                                                           FTNMSG       190     A     
 FTNMSG             SA7    A6+B1                                                           FTNMSG       191     A     
 FTNMSG             BX6    X4          (X6) = DETAILS COLUMN ENTRY                         FTNMSG       192     A     
 FTNMSG             SX2    X1                (X2) = CANNED TEXT FWA                        FTNMSG       193     A     
 FTNMSG             AX1    18                (X1) = CANNED TEXT LENGTH                     FTNMSG       194     A     
 FTNMSG             SA0    X1+3              (A0) = LISTING LINE LENGTH                    FTNMSG       195     A     
 FTNMSG             SA6    A7+B1                                                           FTNMSG       196     A     
 FTNMSG             MOVE   X1,X2,A6+B1       CANNED TEXT TO LISTING BUFFER                 FTNMSG       197     A     
 FTNMSG             LISTL  ERBUF,A0          LIST ERROR MESSAGE                            FTNMSG       198     A     
 FTNMSG             EQ     MSG2                                                            FTNMSG       199     A     
 FTNMSG                                                                                    FTNMSG       200     A     
 FTNMSG   *         HERE AFTER ALL ERRORS ARE LISTED.                                      FTNMSG       201     A     
 FTNMSG                                                                                    FTNMSG       202     A     
 FTNMSG    MSG5     SA1    =XR=FLAG                                                        FTNMSG       203     A     
 FTNMSG             SA2    =XQFLAG                                                         FTNMSG       204     A     
 FTNMSG             SA3    =XN.FERR                                                        FTNMSG       205     A     
 FTNMSG             SA4    =XP2NOGO                                                        FTNMSG       206     A     
 FTNMSG             SA5    =XDFLAG                                                         FTNMSG       207     A     
 FTNMSG             SX6    2R0                                                             FTNMSG       208     A     
 FTNMSG             SX7    B1+                                                             FTNMSG       209     A     
 FTNMSG             LX6    48                                                              FTNMSG       210     A     
 FTNMSG             SA6    =XO.STITL                                                       FTNMSG       211     A     
 FTNMSG             SA7    =XL.STITL                                                       FTNMSG       212     A     
 FTNMSG                                                                                    FTNMSG       213     A     
 FTNMSG    #OVL     IFEQ   .OVL,0                                                          FTNMSG       214     A     
 FTNMSG                                                                                    FTNMSG       215     A     
 FTNMSG             NZ     X1,MSG7     IF REFMAP REQUESTED                                 FTNMSG       216     A     
 FTNMSG             NZ     X3,MSG6     IF FATAL ERRORS OCCURRED                            FTNMSG       217          I
          -FCC1897
 FTNMSG             NZ     X3,MSG7     IF FATAL ERRORS OCCURRED                            FCC1897        5     A     
 FTNMSG             ZR     X2,MSG7     IF NOT IN Q MODE                                    FTNMSG       218     A     
 FTNMSG             EQ     =XFTNEND                                                        FTNMSG       219     A     
 FTNMSG                                                                                    FTNMSG       220     A     
 FTNMSG    MSG6     NZ     X5,MSG7     IF IN DEBUG                                         FTNMSG       221          I
          -FCC1897
 FTNMSG             NZ     X4,=XFTNEND IF P2NOGO SELECTED                                  FTNMSG       222          I
          -FCC1897
 FTNMSG                                                                                    FTNMSG       223     A     
 FTNMSG    MSG7     LOVER  OVL22       LOAD AND EXECUTE PASS2                              FTNMSG       224     A     
 FTNMSG                                                                                    FTNMSG       225     A     
 FTNMSG    #OVL     ELSE                                                                   FTNMSG       226     A     
 FTNMSG             NZ     X3,MSG7     IF FATAL ERRORS                                     FTNMSG       227     A     
 FTNMSG             NZ     X2,MSG8     IF Q MODE                                           FTNMSG       228     A     
 FTNMSG                                                                                    FTNMSG       229     A     
 FTNMSG    MSG6     SA5    PROGRAM                                                         FTNMSG       230     A     
 FTNMSG             ZR     X5,MSG8     IF PROGRAM = 0  */ BLOCK DATA SUBPROGRAM            FTNMSG       231     A     
 FTNMSG                                                                                    FTNMSG       232     A     
 FTNMSG             LOVER  OVL22       LOAD AND EXECUTE PASS 2                             FTNMSG       233     A     
 FTNMSG                                                                                    FTNMSG       234     A     
 FTNMSG    MSG7     ZR     X5,MSG8     IF NOT IN DEBUG                                     FTNMSG       235     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1743    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG             ZR     X4,MSG6     IF EXECUTING                                        FTNMSG       236     A     
 FTNMSG                                                                                    FTNMSG       237     A     
 FTNMSG    MSG8     LOVER  OVL25       LOAD AND EXECUTE PASS3                              FTNMSG       238     A     
 FTNMSG                                                                                    FTNMSG       239     A     
 FTNMSG    #OVL     ENDIF                                                                  FTNMSG       240     A     
 FTNMSG             TITLE              TABLE OF ERROR MESSAGES                             FTNMSG       241     A     
 FTNMSG   *         DOPROC MESSAGES                                                        FTNMSG       242     A     
 FTNMSG                                                                                    FTNMSG       243     A     
 FTNMSG             ERMSG  DO1,FE,(LOOPS ARE NESTED MORE THAN 50 DEEP)                     FTNMSG       244     A     
 FTNMSG                                                                                    FTNMSG       245     A     
 FTNMSG             ERMSG  DO2,FE,(MISSING, BAD, OR OUT OF RANGE LABEL ON DO STATE         FTNMSG       246     A     
 FTNMSG   ,MENT.)                                                                          FTNMSG       247     A     
 FTNMSG                                                                                    FTNMSG       248     A     
 FTNMSG             ERMSG  DO3,FE,(THE TERMINAL STATEMENT OF THIS DO PRECEDES IT)          FTNMSG       249     A     
 FTNMSG                                                                                    FTNMSG       250     A     
 FTNMSG             ERMSG  DO4,FE,(THE CONTROL VARIABLE OF A DO OR DO IMPLIED LOOP         FTNMSG       251     A     
 FTNMSG   , MUST BE A SIMPLE INTEGER VARIABLE)                                             FTNMSG       252     A     
 FTNMSG                                                                                    FTNMSG       253     A     
 FTNMSG             ERMSG  DO5,FE,(THE SYNTAX OF DO PARAMETERS MUST BE I=M1,M2,M3          FTNMSG       254     A     
 FTNMSG   ,OR I=M1,M2)                                                                     FTNMSG       255     A     
 FTNMSG                                                                                    FTNMSG       256     A     
 FTNMSG             ERMSG  DO6,FE,(A CONSTANT DO PARAMETER MUST BE GREATER THAN OR         FTNMSG       257     A     
 FTNMSG   , EQUAL TO 1 AND LESS THAN OR EQUAL TO 131071.)                                  FTNMSG       258          I
          -FCC2291
 FTNMSG   , EQUAL TO 1 AND LESS THAN OR EQUAL TO 131070.)                                  FCC2291       16     A     
 FTNMSG                                                                                    FTNMSG       259     A     
 FTNMSG             ERMSG  DO7,FE,(A DO PARAMETER MUST BE A POSITIVE INTEGER CONST         FTNMSG       260     A     
 FTNMSG   ,ANT OR AN INTEGER VARIABLE.)                                                    FTNMSG       261     A     
 FTNMSG                                                                                    FTNMSG       262     A     
 FTNMSG             ERMSG  DO8,FE,(DUPLICATE STATEMENT LABEL)                              FTNMSG       263     A     
 FTNMSG                                                                                    FTNMSG       264     A     
 FTNMSG             ERMSG  DO9,FE,(A PREVIOUS STATEMENT MAKES AN ILLEGAL TRANSFER          FTNMSG       265     A     
 FTNMSG   ,TO THIS LABEL)                                                                  FTNMSG       266     A     
 FTNMSG                                                                                    FTNMSG       267     A     
 FTNMSG             ERMSG  DO10,FE,(THIS STATEMENT MAKES AN ILLEGAL TRANSFER INTO          FTNMSG       268     A     
 FTNMSG   ,A PREVIOUS DO LOOP)                                                             FTNMSG       269     A     
 FTNMSG                                                                                    FTNMSG       270     A     
 FTNMSG             ERMSG  DO11,FE,(A DO LOOP MAY NOT TERMINATE ON THIS TYPE OF ST         FTNMSG       271     A     
 FTNMSG   ,ATEMENT)                                                                        FTNMSG       272     A     
 FTNMSG                                                                                    FTNMSG       273     A     
 FTNMSG             ERMSG  DO12,FE,(DO LOOPS TERMINATING ON THIS LABEL ARE IMPROPE         FTNMSG       274     A     
 FTNMSG   ,RLY NESTED)                                                                     FTNMSG       275     A     
 FTNMSG                                                                                    FTNMSG       276     A     
 FTNMSG             ERMSG  DO13,I,(THIS STATEMENT REDEFINES A CURRENT LOOP CONTROL         FTNMSG       277     A     
 FTNMSG   , VARIABLE OR PARAMETER)                                                         FTNMSG       278     A     
 FTNMSG                                                                                    FTNMSG       279     A     
 FTNMSG             ERMSG  DO14,FE,(ENTRY STATEMENTS MAY NOT OCCUR WITHIN THE RANG         FTNMSG       280     A     
 FTNMSG   ,E OF A DO STATEMENT)                                                            FTNMSG       281     A     
 FTNMSG                                                                                    FTNMSG       282     A     
 FTNMSG             ERMSG  DO15,FE,(DEBUG EXECUTION OPTION SUPPRESSED DUE TO NATUR         FTNMSG       283     A     
 FTNMSG   ,E OF ABOVE FATAL ERRORS)                                                        FTNMSG       284     A     
 FTNMSG                                                                                    FTNMSG       285     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1744    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG             ERMSG  DO16,FE,(LOOP BEGINNING AT THIS CARD NO IS ENTERED FROM         FTNMSG       286     A     
 FTNMSG   , OUTSIDE ITS RANGE AND HAS NO EXITS)                                            FTNMSG       287     A     
 FTNMSG                                                                                    FTNMSG       288     A     
 FTNMSG             ERMSG  DO17,FE,(UNDEFINED STATEMENT NUMBERS, SEE BELOW)                FTNMSG       289          I
          -FCC0220
 FTNMSG             ERMSG  DO17,FE,(UNDEFINED STATEMENT LABEL(S), SEE LIST BELOW.)         FCC0220       17     A     
 FTNMSG                                                                                    FTNMSG       290     A     
 FTNMSG             ERMSG  DO18,FE,(PRESENT USE OF THIS LABEL CONFLICTS WITH PREVI         FTNMSG       291     A     
 FTNMSG   ,OUS USES)                                                                       FTNMSG       292     A     
 FTNMSG                                                                                    FTNMSG       293     A     
 FTNMSG             ERMSG  DO19,I,(MORE STORAGE REQUIRED BY DO STATEMENT PROCESSOR         FTNMSG       294     A     
 FTNMSG   , FOR OPTIMIZATION)                                                              FTNMSG       295     A     
 FTNMSG                                                                                    FTNMSG       296     A     
 FTNMSG             ERMSG  DO20,I,(THE UPPER LIMIT AND CONTROL VARIABLES OF THIS D         FTNMSG       297     A     
 FTNMSG   ,O ARE THE SAME, PRODUCING A NON-TERMINATING LOOP.)                              FTNMSG       298     A     
 FTNMSG                                                                                    FTNMSG       299     A     
 FTNMSG             ERMSG  DO21,FC,(THIS SUBPROGRAM HAS TOO MANY DO LOOPS)                 FTNMSG       300     A     
 FTNMSG                                                                                    FTNMSG       301     A     
 FTNMSG             ERMSG  DO22,I,(LOWER LIMIT .GE. UPPER LIMIT, ONE TRIP LOOP)            FTNMSG       302     A     
 FTNMSG                                                                                    FTNMSG       303     A     
 FTNMSG   *         PROGRAM CARD PROCESSOR                                                 FTNMSG       304     A     
 FTNMSG                                                                                    FTNMSG       305     A     
 FTNMSG             ERMSG  HCSE,FE,(HEADER CARD SYNTAX ERROR)                              FTNMSG       306     A     
 FTNMSG                                                                                    FTNMSG       307     A     
 FTNMSG             ERMSG  PROG2,FE,(FILENAME IS GREATER THAN 6 CHARACTERS)                FTNMSG       308     A     
 FTNMSG                                                                                    FTNMSG       309     A     
 FTNMSG             ERMSG  PROG3,FE,(FILENAME PREVIOUSLY DEFINED)                          FTNMSG       310     A     
 FTNMSG                                                                                    FTNMSG       311     A     
 FTNMSG             ERMSG  UNITNO,FE,(UNIT NUMBER OR PARITY INDICATOR MUST BE AN I         FTNMSG       312     A     
 FTNMSG   ,NTEGER CONSTANT OR VARIABLE)                                                    FTNMSG       313     A     
 FTNMSG                                                                                    FTNMSG       314     A     
 FTNMSG             ERMSG  PROG5,FE,(EQUATED FILENAME NOT PREVIOUSLY DEFINED)              FTNMSG       315     A     
 FTNMSG                                                                                    FTNMSG       316     A     
 FTNMSG   *         SCANNER                                                                FTNMSG       317     A     
 FTNMSG                                                                                    FTNMSG       318     A     
 FTNMSG             ERMSG  SCAN1,FC,(TABLES OVERLAP, INCREASE FL)                          FTNMSG       319     A     
 FTNMSG                                                                                    FTNMSG       320     A     
 FTNMSG             ERMSG  SCAN2,FE,(UNRECOGNIZED STATEMENT)                               FTNMSG       321     A     
 FTNMSG                                                                                    FTNMSG       322     A     
 FTNMSG             ERMSG  S3,I,(ILLEGAL LABEL FIELD.)                                     FTNMSG       323          I
          -FCC1388
 FTNMSG             ERMSG  S3,FE,(ILLEGAL LABEL FIELD.)                                    FCC1388        5     A     
 FTNMSG                                                                                    FTNMSG       324     A     
 FTNMSG             ERMSG  SCAN4,FE,(STATEMENT TOO LONG)                                   FTNMSG       325     A     
 FTNMSG                                                                                    FTNMSG       326     A     
 FTNMSG             ERMSG  SCAN5,FE,(SYMBOLIC NAME HAS TOO MANY CHARACTERS.)               FTNMSG       327     A     
 FTNMSG                                                                                    FTNMSG       328     A     
 FTNMSG             ERMSG  SCAN6,FE,(UNMATCHED PARENTHESIS)                                FTNMSG       329     A     
 FTNMSG                                                                                    FTNMSG       330     A     
 FTNMSG             ERMSG  SCAN7,ASA,(7 CHARACTER SYMBOLIC NAME IS NON-ANSI)               FTNMSG       331     A     
 FTNMSG                                                                                    FTNMSG       332     A     
 FTNMSG             ERMSG  SCAN8,I,(NO END CARD, END LINE ASSUMED)                         FTNMSG       333     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1745    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG                                                                                    FTNMSG       334     A     
 FTNMSG             ERMSG  P1TM,FC,(TABLE OVERFLOW, INCREASE FL)                           FTNMSG       335     A     
 FTNMSG             ERMSG  SCNR10,FE,(ILLEGAL CHARACTER.  THE REMAINDER OF THIS ST         FTNMSG       336     A     
 FTNMSG   ,ATEMENT WILL NOT BE COMPILED.)                                                  FTNMSG       337     A     
 FTNMSG             ERMSG  SCNR11,ANSI,(THE FORMAT OF THIS END LINE DOES NOT CONFO         FTNMSG       338     A     
 FTNMSG   ,RM TO ANSI SPECIFICATIONS.)                                                     FTNMSG       339     A     
 FTNMSG                                                                                    FTNMSG       340     A     
 FTNMSG   *         PROGRAM CARD PROCESSOR                                                 FTNMSG       341     A     
 FTNMSG                                                                                    FTNMSG       342     A     
 FTNMSG             ERMSG  SUB1,FE,(RETURNS LIST ERROR)                                    FTNMSG       343     A     
 FTNMSG                                                                                    FTNMSG       344     A     
 FTNMSG             ERMSG  SUB2,FE,(DOUBLY DEFINED FORMAL PARAMETER)                       FTNMSG       345     A     
 FTNMSG                                                                                    FTNMSG       346     A     
 FTNMSG             ERMSG  BDA,FE,(THIS STATEMENT TYPE IS ILLEGAL IN BLOCK DATA SU         FTNMSG       347     A     
 FTNMSG   ,BPROGRAM)                                                                       FTNMSG       348     A     
 FTNMSG                                                                                    FTNMSG       349     A     
 FTNMSG   *         DECLARATIVE PROCESSORS                                                 FTNMSG       350     A     
 FTNMSG                                                                                    FTNMSG       351     A     
 FTNMSG             UNUSED                                                                 FTNMSG       352     A     
 FTNMSG                                                                                    FTNMSG       353     A     
 FTNMSG             ERMSG  DIM2,FE,(ARRAY HAS MORE THAN THREE SUBSCRIPTS)                  FTNMSG       354     A     
 FTNMSG                                                                                    FTNMSG       355     A     
 FTNMSG             ERMSG  DIM3,FE,(ARRAY WITH ILLEGAL SUBSCRIPTS)                         FTNMSG       356     A     
 FTNMSG                                                                                    FTNMSG       357     A     
 FTNMSG             ERMSG  DIM4,I,(PREVIOUSLY DIMENSIONED ARRAY. FIRST DIMENSIONS          FTNMSG       358     A     
 FTNMSG   ,WILL BE RETAINED)                                                               FTNMSG       359     A     
 FTNMSG                                                                                    FTNMSG       360     A     
 FTNMSG             ERMSG  DIM5,FE,(A VARIABLE DIMENSION OR THE ARRAY NAME WITH A          FTNMSG       361     A     
 FTNMSG   ,VARIABLE DIMENSION IS NOT A FORMAL PARAMETER)                                   FTNMSG       362     A     
 FTNMSG                                                                                    FTNMSG       363     A     
 FTNMSG             ERMSG  IMP1,I,(CHARACTER BOUNDS REVERSED IN IMPLICIT STATEMENT         FTNMSG       364     A     
 FTNMSG   ,.)                                                                              FTNMSG       365     A     
 FTNMSG                                                                                    FTNMSG       366     A     
 FTNMSG             ERMSG  CUN,FE,(RETURNS OR EXTERNAL NAMES MAY NOT APPEAR IN DEC         FTNMSG       367     A     
 FTNMSG   ,LARATIVE STATEMENTS)                                                            FTNMSG       368     A     
 FTNMSG                                                                                    FTNMSG       369     A     
 FTNMSG             ERMSG  TYPE1,I,(A TYPE WAS DECLARED PREVIOUSLY FOR THIS VARIAB         FTNMSG       370     A     
 FTNMSG   ,LE OR FUNCTION.  THIS DECLARATION IGNORED.)                                     FTNMSG       371     A     
 FTNMSG                                                                                    FTNMSG       372     A     
 FTNMSG   *         ASFPRO                                                                 FTNMSG       373     A     
 FTNMSG                                                                                    FTNMSG       374     A     
 FTNMSG             ERMSG  DDP,FE,(DUMMY PARAMETER IN ASF DEFINITION OCCURED TWICE         FTNMSG       375     A     
 FTNMSG   ,)                                                                               FTNMSG       376     A     
 FTNMSG                                                                                    FTNMSG       377     A     
 FTNMSG             ERMSG  ASFTMP,FE,(ASF HAS MORE DUMMY PARAMETERS THAN ALLOWED)          FTNMSG       378     A     
 FTNMSG                                                                                    FTNMSG       379     A     
 FTNMSG             ERMSG  ASFPLE,FE,(SYNTAX ERROR IN DUMMY ARGUMENT LIST OF STATE         FTNMSG       380     A     
 FTNMSG   ,MENT FUNCTION.)                                                                 FTNMSG       381     A     
 FTNMSG                                                                                    FTNMSG       382     A     
 FTNMSG             ERMSG  ASFMO,FC,(MEMORY OVERFLOW DURING ASF EXPANSION)                 FTNMSG       383     A     
 FTNMSG                                                                                    FTNMSG       384     A     
 FTNMSG             ERMSG  LSTPRO,FC,(SYMBOL TABLE OVERFLOW)                               FTNMSG       385     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1746    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG                                                                                    FTNMSG       386     A     
 FTNMSG   *         DECLARATIVE PROCESSORS                                                 FTNMSG       387     A     
 FTNMSG                                                                                    FTNMSG       388     A     
 FTNMSG             ERMSG  PROG7,FE,(HEADER CARD NOT FIRST STATEMENT)                      FTNMSG       389     A     
 FTNMSG                                                                                    FTNMSG       390     A     
 FTNMSG             ERMSG  DPCOM,FE,(ILLEGAL SYNTAX IN COMMON DECLARATION.)                FTNMSG       391     A     
 FTNMSG                                                                                    FTNMSG       392     A     
 FTNMSG             ERMSG  COM3,FE,(COMMON VARIABLE IS FORMAL PARAMETER OR PREVIOU         FTNMSG       393     A     
 FTNMSG   ,SLY DECLARED IN COMMON OR ILLEGAL NAME.)                                        FTNMSG       394     A     
 FTNMSG                                                                                    FTNMSG       395     A     
 FTNMSG             ERMSG  COM4,FE,(ILLEGAL BLOCK NAME)                                    FTNMSG       396     A     
 FTNMSG                                                                                    FTNMSG       397     A     
 FTNMSG             ERMSG  EXT1,FE,(ILLEGAL SEPARATOR IN EXTERNAL STATEMENT)               FTNMSG       398     A     
 FTNMSG   *         DEBUG OPTION PROCESSOR                                                 FTNMSG       399     A     
 FTNMSG                                                                                    FTNMSG       400     A     
 FTNMSG             ERMSG  DBG1,I,(MAY NOT USED IN A DEBUG STATEMENT)                      FTNMSG       401     A     
 FTNMSG                                                                                    FTNMSG       402     A     
 FTNMSG             ERMSG  DBG2,I,(PRESENT USE IN CONTEXT OF THIS NAME DOES NOT MA         FTNMSG       403     A     
 FTNMSG   ,TCH PREVIOUS OCCURRENCES IN DEBUG STMTS)                                        FTNMSG       404     A     
 FTNMSG                                                                                    FTNMSG       405     A     
 FTNMSG             ERMSG  IMP2,ASA,(IMPLICIT STATEMENT IS NON-ANSI.)                      FTNMSG       406     A     
 FTNMSG                                                                                    FTNMSG       407     A     
 FTNMSG   *         ASFPRO                                                                 FTNMSG       408     A     
 FTNMSG                                                                                    FTNMSG       409     A     
 FTNMSG             ERMSG  UNBAL,FE,(A REFERENCE TO THIS ARITHMETIC STATEMENT FUNC         FTNMSG       410     A     
 FTNMSG   ,TION HAS UNBALANCED PARENTHESIS WITHIN THE PARAMETER LIST)                      FTNMSG       411     A     
 FTNMSG                                                                                    FTNMSG       412     A     
 FTNMSG             ERMSG  UNMATCH,FE,(UNMATCHED PARAMETER COUNT IN A REFERENCE TO         FTNMSG       413     A     
 FTNMSG   , THIS STATEMENT FUNCTION)                                                       FTNMSG       414     A     
 FTNMSG                                                                                    FTNMSG       415     A     
 FTNMSG   *         CONVERT                                                                FTNMSG       416     A     
 FTNMSG                                                                                    FTNMSG       417     A     
 FTNMSG             ERMSG  IMP3,FE,(ILLEGAL CHARACTER BOUND IN IMPLICIT STATEMENT.         FTNMSG       418          I
          -FCC2285
 FTNMSG             ERMSG  IMP3,FE,(ILLEGAL CHARACTER FOUND IN IMPLICIT STATEMENT.         FCC2285        8     A     
 FTNMSG   ,)                                                                               FTNMSG       419     A     
 FTNMSG                                                                                    FTNMSG       420     A     
 FTNMSG             ERMSG  DECFX,FE,(A CONSTANT CANNOT BE CONVERTED.  CHECK CONSTA         FTNMSG       421     A     
 FTNMSG   ,NT FOR PROPER CONSTRUCT.)                                                       FTNMSG       422     A     
 FTNMSG                                                                                    FTNMSG       423     A     
 FTNMSG   *         RETURN STMT PROCESSOR                                                  FTNMSG       424     A     
 FTNMSG                                                                                    FTNMSG       425     A     
 FTNMSG             ERMSG  RTNMAIN,FE,(RETURN STATEMENT APPEARS IN MAIN PROGRAM)           FTNMSG       426     A     
 FTNMSG                                                                                    FTNMSG       427     A     
 FTNMSG             ERMSG  RTNFUNC,FE,(NON-STANDARD RETURN STATEMENT MAY NOT APPEA         FTNMSG       428     A     
 FTNMSG   ,R IN A FUNCTION SUBPROGRAM)                                                     FTNMSG       429     A     
 FTNMSG                                                                                    FTNMSG       430     A     
 FTNMSG             ERMSG  NSPARM,FE,(PARAMETER ON NON-STANDARD RETURN STATEMENT I         FTNMSG       431     A     
 FTNMSG   ,S NOT A RETURNS FORMAL PARAMETER)                                               FTNMSG       432     A     
 FTNMSG                                                                                    FTNMSG       433     A     
 FTNMSG             ERMSG  AR51,FE,(A CONSTANT ARITHMETIC OPERATION WILL GIVE AN I         FTNMSG       434     A     
 FTNMSG   ,NDEFINITE OR OUT-OF-RANGE RESULT.)                                              FTNMSG       435     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1747    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG                                                                                    FTNMSG       436     A     
 FTNMSG             ERMSG  IMP4,FE,(ILLEGAL TYPE SPECIFIED IN IMPLICIT STATEMENT.)         FTNMSG       437     A     
 FTNMSG                                                                                    FTNMSG       438     A     
 FTNMSG             ERMSG  NSASA,ASA,(THE NON-STANDARD RETURN STATEMENT IS NON-ANS         FTNMSG       439     A     
 FTNMSG   ,I)                                                                              FTNMSG       440     A     
 FTNMSG                                                                                    FTNMSG       441     A     
 FTNMSG             ERMSG  LISTIO,FE,(SYNTAX ERROR IN INPUT/OUTPUT STATEMENT.)             FTNMSG       442     A     
 FTNMSG                                                                                    FTNMSG       443     A     
 FTNMSG             ERMSG  FMTER,FE,(FORMAT REFERENCE ILLEGAL.)                            FTNMSG       444     A     
 FTNMSG                                                                                    FTNMSG       445     A     
 FTNMSG             ERMSG  LISTIOC,I,(ARRAY REFERENCE OUTSIDE DIMENSION BOUNDS)            FTNMSG       446     A     
 FTNMSG                                                                                    FTNMSG       447     A     
 FTNMSG             ERMSG  AR52,FE,(ECS/LCM REFERENCE MUST BE A STAND-ALONE ARGUME         FTNMSG       448     A     
 FTNMSG   ,NT TO AN EXTERNAL ROUTINE)                                                      FTNMSG       449     A     
 FTNMSG                                                                                    FTNMSG       450     A     
 FTNMSG             ERMSG  E.MIOL,I,(MISSING I/O LIST OR SPURIOUS COMMA)                   FTNMSG       451          I
          -FEAT155B 
 FTNMSG             ERMSG  E.LC,FE,(ONLY LIST DIRECTED OUTPUT STATEMENTS MAY END W         FEAT155B      32     A     
 FTNMSG   ,ITH A COMMA)                                                                    FEAT155B      33     A     
 FTNMSG                                                                                    FTNMSG       452     A     
 FTNMSG   *         ENTRY                                                                  FTNMSG       453     A     
 FTNMSG                                                                                    FTNMSG       454     A     
 FTNMSG             ERMSG  ENTRY1,FE,(ENTRY POINT NAMES MUST BE UNIQUE - THIS  ONE         FTNMSG       455     A     
 FTNMSG   , HAS BEEN PREVIOUSLY USED IN THIS SUBPROGRAM)                                   FTNMSG       456     A     
 FTNMSG                                                                                    FTNMSG       457     A     
 FTNMSG             ERMSG  ENTRY2,FE,(IMPROPER FORM OF ENTRY STATEMENT. ONLY ALLOW         FTNMSG       458     A     
 FTNMSG   ,ABLE FORM IS [  ENTRY NAME  ])                                                  FTNMSG       459     A     
 FTNMSG                                                                                    FTNMSG       460     A     
 FTNMSG             ERMSG  DO23,FE,(REFERENCED LABEL IS MORE THAN FIVE CHARACTERS)         FTNMSG       461     A     
 FTNMSG                                                                                    FTNMSG       462     A     
 FTNMSG             ERMSG  ENTRY3,FE,(ENTRY STATEMENT MAY NOT APPEAR IN A PROGRAM)         FTNMSG       463     A     
 FTNMSG                                                                                    FTNMSG       464     A     
 FTNMSG   *         NAMELIST                                                               FTNMSG       465     A     
 FTNMSG                                                                                    FTNMSG       466     A     
 FTNMSG             ERMSG  NML1,FE,(NAMELIST STATEMENT SYNTAX ERROR)                       FTNMSG       467     A     
 FTNMSG                                                                                    FTNMSG       468     A     
 FTNMSG             ERMSG  NML2,FE,(GROUP NAME PREVIOUSLY REFERENCED IN ANOTHER CO         FTNMSG       469     A     
 FTNMSG   ,NTEXT)                                                                          FTNMSG       470     A     
 FTNMSG                                                                                    FTNMSG       471     A     
 FTNMSG             ERMSG  NML3,FE,(GROUP NAME NOT SURROUNDED BY SLASHS)                   FTNMSG       472     A     
 FTNMSG                                                                                    FTNMSG       473     A     
 FTNMSG             ERMSG  NML4,FE,(APPEARED WHERE A VARIABLE WAS EXPECTED.)               FTNMSG       474     A     
 FTNMSG                                                                                    FTNMSG       475     A     
 FTNMSG             ERMSG  NML5,FE,(ILLEGAL NAMELIST VARIABLE.)                            FTNMSG       476     A     
 FTNMSG                                                                                    FTNMSG       477     A     
 FTNMSG             ERMSG  NML6,FE,(F.P. WITH VARIABLE DIMENSIONS NOT ALLOWED IN A         FTNMSG       478     A     
 FTNMSG   , NAMELIST STATEMENT)                                                            FTNMSG       479     A     
 FTNMSG                                                                                    FTNMSG       480     A     
 FTNMSG             ERMSG  ENTRY4,FE,(ENTRY STATEMENT MAY NOT BE LABELED)                  FTNMSG       481     A     
 FTNMSG                                                                                    FTNMSG       482     A     
 FTNMSG             ERMSG  IMP5,FE,(ILLEGAL SYNTAX IN IMPLICIT STATEMENT)                  FTNMSG       483     A     
 FTNMSG                                                                                    FTNMSG       484     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1748    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG   *         DP CLOSE AND EQUIV                                                     FTNMSG       485     A     
 FTNMSG                                                                                    FTNMSG       486     A     
 FTNMSG             ERMSG  EECS,FE,(LEVEL 3 VARIABLE MAY NOT APPEAR IN AN EQUIVALE         FTNMSG       487          I
          -FCC0390
 FTNMSG   ,NCE STATEMENT)                                                                  FTNMSG       488          I
          -FCC0390
 FTNMSG             UNUSED                                                                 FCC0390        4     A     
 FTNMSG                                                                                    FTNMSG       489     A     
 FTNMSG             ERMSG  EQVC,FE,(BAD SUBSCRIPT IN EQUIV STMT)                           FTNMSG       490     A     
 FTNMSG                                                                                    FTNMSG       491     A     
 FTNMSG             ERMSG  E92,FE,(ONLY ONE SYMBOLIC NAME IN EQUIVALENCE GROUP)            FTNMSG       492     A     
 FTNMSG                                                                                    FTNMSG       493     A     
 FTNMSG             ERMSG  E93,FE,(SYNTAX ERROR IN EQUIVALENCE STATEMENT)                  FTNMSG       494     A     
 FTNMSG                                                                                    FTNMSG       495     A     
 FTNMSG             ERMSG  IFP,FE,(FORMAL PARAMETERS MAY NOT APPEAR IN COMMON OR E         FTNMSG       496     A     
 FTNMSG   ,QUIV STMTS)                                                                     FTNMSG       497     A     
 FTNMSG                                                                                    FTNMSG       498     A     
 FTNMSG             ERMSG  E95,FE,(COMMON-EQUIVALENCE ERROR)                               FTNMSG       499          I
          -FCC1289X 
 FTNMSG             ERMSG  E95,I,(INVOLVED IN REDUNDANT EQUIVALENCING)                     FCC1289X      13     A     
 FTNMSG                                                                                    FTNMSG       500     A     
 FTNMSG             ERMSG  E96,FE,(NUMBER OF SUBSCRIPTS IS INCOMPATIBLE WITH THE N         FTNMSG       501     A     
 FTNMSG   ,UMBER OF DIMENSIONS DURING EQUIVALENCING.)                                      FTNMSG       502     A     
 FTNMSG                                                                                    FTNMSG       503     A     
 FTNMSG             ERMSG  EQVICE,FE,(ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN)            FTNMSG       504     A     
 FTNMSG                                                                                    FTNMSG       505     A     
 FTNMSG             ERMSG  EQVCE,FE,(INVOLVED IN CONTRADICTORY EQUIVALENCING)              FTNMSG       506     A     
 FTNMSG                                                                                    FTNMSG       507     A     
 FTNMSG             ERMSG  CUNE,FE,(ARRAY OR COMMON VARIABLE MAY NOT BE DECLARED E         FTNMSG       508     A     
 FTNMSG   ,XTERNAL)                                                                        FTNMSG       509     A     
 FTNMSG                                                                                    FTNMSG       510     A     
 FTNMSG             ERMSG  ASA1,ASA,(THIS FORM OF AN I/O STATEMENT DOES NOT CONFOR         FTNMSG       511     A     
 FTNMSG   ,M TO ANSI SPECIFICATIONS)                                                       FTNMSG       512     A     
 FTNMSG                                                                                    FTNMSG       513     A     
 FTNMSG   *         GOTO                                                                   FTNMSG       514     A     
 FTNMSG                                                                                    FTNMSG       515     A     
 FTNMSG             ERMSG  GOTO1,FE,(GO TO STATEMENT - SYNTAX ERROR)                       FTNMSG       516     A     
 FTNMSG                                                                                    FTNMSG       517     A     
 FTNMSG             ERMSG  GOTO2,FE,(MISSING OR SYNTAX ERROR IN LIST OF TRANSFER L         FTNMSG       518     A     
 FTNMSG   ,ABELS)                                                                          FTNMSG       519     A     
 FTNMSG                                                                                    FTNMSG       520     A     
 FTNMSG             ERMSG  GOTO3,ASA,(GO TO STATEMENT CONTAINS NON-ANSI USAGES)            FTNMSG       521     A     
 FTNMSG                                                                                    FTNMSG       522     A     
 FTNMSG             ERMSG  SCNR12,FE,(DEFECTIVE HOLLERITH CONSTANT.  CHECK FOR CHA         FTNMSG       523     A     
 FTNMSG   ,RACTER COUNT ERROR, MISSING " DELIMITER OR LOST CONTIN CARD.)                   FTNMSG       524     A     
 FTNMSG             ERMSG  DO24,FE,(A DO LOOP MAY NOT TERMINATE ON A FORMAT STATEM         FTNMSG       525     A     
 FTNMSG   ,ENT)                                                                            FTNMSG       526     A     
 FTNMSG             ERMSG  E.PL,I,(SINGLE WORD CONSTANT MATCHED WITH DOUBLE OR COM         FTNMSG       527     A     
 FTNMSG   ,PLEX VARIABLE. PRECISION LOST.)                                                 FTNMSG       528     A     
 FTNMSG                                                                                    FTNMSG       529     A     
 FTNMSG             ERMSG  CHAR,FE,(NUMBER OF CHARACTERS IN AN ENCODE/DECODE STATE         FTNMSG       530     A     
 FTNMSG   ,MENT MUST BE AN INTEGER CONSTANT OR VARIABLE)                                   FTNMSG       531     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1749    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG                                                                                    FTNMSG       532     A     
 FTNMSG             ERMSG  PRSUB,FE,(MORE THAN 50 FILES ON PROGRAM CARD OR 63 PARA         FTNMSG       533          I
          -FCC2246
 FTNMSG             ERMSG  PRSUB,FE,(MORE THAN 49 FILES ON PROGRAM CARD OR 63 PARA         FCC2246        7     A     
 FTNMSG   ,METERS ON A SUBROUTINE OR FUNCTION CARD)                                        FTNMSG       534     A     
 FTNMSG                                                                                    FTNMSG       535     A     
 FTNMSG             ERMSG  DECPH2,FE,(DECLARATIVE STATEMENT OUT OF SEQUENCE)               FTNMSG       536     A     
 FTNMSG                                                                                    FTNMSG       537     A     
 FTNMSG             ERMSG  ETABOV,FC,(ERROR TABLE OVERFLOW)                                FTNMSG       538     A     
 FTNMSG                                                                                    FTNMSG       539     A     
 FTNMSG             ERMSG  ASSING,FE,(THIS ASSIGN STATEMENT HAS IMPROPER FORMAT, O         FTNMSG       540     A     
 FTNMSG   ,NLY ALLOWABLE IS [ASSIGN  LABEL  TO  VARIABLE ])                                FTNMSG       541     A     
 FTNMSG             EJECT                                                                  FTNMSG       542     A     
 FTNMSG   *         DATA                                                                   FTNMSG       543     A     
 FTNMSG                                                                                    FTNMSG       544     A     
 FTNMSG             ERMSG  E.V>C,I,(DATA VARIABLE LIST EXCEEDS ITEM LIST, EXCESS V         FTNMSG       545     A     
 FTNMSG   ,ARIABLES NOT INITIALIZED)                                                       FTNMSG       546     A     
 FTNMSG                                                                                    FTNMSG       547     A     
 FTNMSG             ERMSG  E.C>V,I,(DATA ITEM LIST EXCEEDS VARIABLE LIST, EXCESS C         FTNMSG       548     A     
 FTNMSG   ,ONSTANTS IGNORED)                                                               FTNMSG       549     A     
 FTNMSG                                                                                    FTNMSG       550     A     
 FTNMSG             ERMSG  E.DNA,ASA,(NON-ANSI FORM OF DATA STATEMENT)                     FTNMSG       551     A     
 FTNMSG                                                                                    FTNMSG       552     A     
 FTNMSG             ERMSG  E.DSE,FE,(SYNTAX ERROR IN DATA STATEMENT)                       FTNMSG       553     A     
 FTNMSG                                                                                    FTNMSG       554     A     
 FTNMSG             ERMSG  E.DIL,FE,(SYNTAX ERROR IN DATA ITEM LIST)                       FTNMSG       555     A     
 FTNMSG                                                                                    FTNMSG       556     A     
 FTNMSG             ERMSG  E.DIL1,FE,(+ OR - SIGN MUST BE FOLLOWED BY A CONSTANT)          FTNMSG       557     A     
 FTNMSG                                                                                    FTNMSG       558     A     
 FTNMSG             ERMSG  E.DIL2,FE,(DATA ITEM LISTS MAY ONLY BE NESTED 1 DEEP)           FTNMSG       559     A     
 FTNMSG                                                                                    FTNMSG       560     A     
 FTNMSG             ERMSG  E.DIL3,FE,(CONSTANT DATA ITEM MUST BE FOLLOWED BY A , /         FTNMSG       561     A     
 FTNMSG   , OR RIGHT PAREN)                                                                FTNMSG       562     A     
 FTNMSG                                                                                    FTNMSG       563     A     
 FTNMSG             ERMSG  E.DCE1,FE,(DO LIMIT OR REP FACTOR MUST BE AN INTEGER OR         FTNMSG       564     A     
 FTNMSG   , OCTAL CONSTANT BETWEEN 1 AND 131K)                                             FTNMSG       565     A     
 FTNMSG                                                                                    FTNMSG       566     A     
 FTNMSG             ERMSG  E.DVL1,FE,(FOLLOWED BY AN ILLEGAL ITEM.)                        FTNMSG       567     A     
 FTNMSG                                                                                    FTNMSG       568     A     
 FTNMSG             ERMSG  E.DVL2,FE,(SYNTAX ERROR IN IMPLIED DO NEST)                     FTNMSG       569     A     
 FTNMSG                                                                                    FTNMSG       570     A     
 FTNMSG             ERMSG  E.DVL3,FE,(DATA VARIABLE LIST SYNTAX ERROR)                     FTNMSG       571     A     
 FTNMSG                                                                                    FTNMSG       572     A     
 FTNMSG             ERMSG  E.DVL4,FE,(DUPLICATE LOOP INDEX OR DOESNT MATCH ANY SUB         FTNMSG       573     A     
 FTNMSG   ,SCRIPT VARIABLE)                                                                FTNMSG       574     A     
 FTNMSG                                                                                    FTNMSG       575     A     
 FTNMSG             ERMSG  E.DVL5,FE,(VARIABLE SUBSCRIPTS MAY NOT APPEAR WITHOUT D         FTNMSG       576     A     
 FTNMSG   ,O LOOPS)                                                                        FTNMSG       577     A     
 FTNMSG                                                                                    FTNMSG       578     A     
 FTNMSG             ERMSG  E.DVL6,FE,(VALUE OF ARRAY SUBSCRIPT IS .LT. 1 OR .GT. D         FTNMSG       579     A     
 FTNMSG   ,IMENSIONALITY IN IMPLIED DO NEST)                                               FTNMSG       580     A     
 FTNMSG                                                                                    FTNMSG       581     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1750    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG             ERMSG  E.DVL7,FE,(NON DIMENSIONED NAME APPEARS FOLLOWED BY LEF         FTNMSG       582     A     
 FTNMSG   ,T PAREN)                                                                        FTNMSG       583     A     
 FTNMSG                                                                                    FTNMSG       584     A     
 FTNMSG             ERMSG  E.DVL8,FE,(SYNTAX ERROR IN SUBSCRIPT LIST,MUST BE OF FO         FTNMSG       585     A     
 FTNMSG   ,RM  CON1*IVAR+CON2)                                                             FTNMSG       586     A     
 FTNMSG                                                                                    FTNMSG       587     A     
 FTNMSG             ERMSG  E.DVL9,FE,(CONSTANT SUBSCRIPT VALUE EXCEEDS ARRAY DIMEN         FTNMSG       588     A     
 FTNMSG   ,SIONS)                                                                          FTNMSG       589     A     
 FTNMSG                                                                                    FTNMSG       590     A     
 FTNMSG             ERMSG  DO130,FE,(ZERO STATEMENT LABELS ARE ILLEGAL)                    FTNMSG       591     A     
 FTNMSG                                                                                    FTNMSG       592     A     
 FTNMSG             ERMSG  E.TRC,I,(CONSTANT LENGTH .GT. VARIABLE LENGTH, CONSTANT         FTNMSG       593     A     
 FTNMSG   , TRUNCATED)                                                                     FTNMSG       594     A     
 FTNMSG                                                                                    FTNMSG       595     A     
 FTNMSG             ERMSG  E.DVN1,FE,(MAY NOT BE FUNCTION, EXTERNAL, F.P. OR IN BL         FTNMSG       596     A     
 FTNMSG   ,ANK COMMON)                                                                     FTNMSG       597     A     
 FTNMSG                                                                                    FTNMSG       598     A     
 FTNMSG             ERMSG  E.DVN2,FE,(THIS NAME MAY NOT BE USED IN A DATA STMT)            FTNMSG       599     A     
 FTNMSG             TITLE              MESSAGES FROM ARITH, CALL, IF AND ASFPRO            FTNMSG       600     A     
 FTNMSG   *         ARITH                                                                  FTNMSG       601     A     
 FTNMSG                                                                                    FTNMSG       602     A     
 FTNMSG             ERMSG  AR00,ASA,(MULTIPLE REPLACEMENT STATEMENT IS NON-ANSI.)          FTNMSG       603     A     
 FTNMSG                                                                                    FTNMSG       604     A     
 FTNMSG             ERMSG  AR01,FE,(ILLEGAL USE OF THE EQUAL SIGN.)                        FTNMSG       605     A     
 FTNMSG                                                                                    FTNMSG       606     A     
 FTNMSG             ERMSG  AR02,FE,(SIMPLE VARIABLE OR CONSTANT FOLLOWED BY LEFT P         FTNMSG       607     A     
 FTNMSG   ,ARENTHESIS.)                                                                    FTNMSG       608     A     
 FTNMSG                                                                                    FTNMSG       609     A     
 FTNMSG             ERMSG  AR03,FE,(NO MATCHING RIGHT PARENTHESIS.)                        FTNMSG       610     A     
 FTNMSG                                                                                    FTNMSG       611     A     
 FTNMSG             ERMSG  AR04,FE,(NO MATCHING LEFT PARENTHESIS.)                         FTNMSG       612     A     
 FTNMSG                                                                                    FTNMSG       613     A     
 FTNMSG             ERMSG  AR05,FE,(THE OPERATOR INDICATED (-,+,*,/, OR **) MUST B         FTNMSG       614     A     
 FTNMSG   ,E FOLLOWED BY A CONSTANT, NAME, OR LEFT PARENTHESIS.)                           FTNMSG       615     A     
 FTNMSG                                                                                    FTNMSG       616     A     
 FTNMSG             ERMSG  AR06,FE,(A NAME MAY NOT BE FOLLOWED BY A CONSTANT.)             FTNMSG       617     A     
 FTNMSG                                                                                    FTNMSG       618     A     
 FTNMSG             ERMSG  AR07,FE,(MORE THAN 63 ARGUMENTS IN ARGUMENT LIST.)              FTNMSG       619     A     
 FTNMSG                                                                                    FTNMSG       620     A     
 FTNMSG             ERMSG  AR08,FE,(A CONSTANT MAY NOT BE FOLLOWED BY AN EQUAL SIG         FTNMSG       621     A     
 FTNMSG   ,N, NAME, OR ANOTHER CONSTANT.)                                                  FTNMSG       622     A     
 FTNMSG                                                                                    FTNMSG       623     A     
 FTNMSG             ERMSG  AR09,FE,(EXPRESSION TRANSLATOR TABLE (OPSTAK) OVERFLOWE         FTNMSG       624          I
          -FCC0587
 FTNMSG   ,D.  SIMPLIFY THE EXPRESSION.)                                                   FTNMSG       625          I
          -FCC0587
 FTNMSG             ERMSG  AR09,FE,(TABLE OVERFLOW (MXOSE) - SIMPLIFY EXPRESSION O         FCC0587        4     A     
 FTNMSG   ,R SEE ANALYST.)                                                                 FCC0587        5     A     
 FTNMSG                                                                                    FTNMSG       626     A     
 FTNMSG             ERMSG  AR10,FE,(LOGICAL OPERAND USED WITH NON-LOGICAL OPERATOR         FTNMSG       627     A     
 FTNMSG   ,S.)                                                                             FTNMSG       628     A     
 FTNMSG                                                                                    FTNMSG       629     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1751    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG             ERMSG  AR11,FE,(NO MATCHING RIGHT PARENTHESIS IN SUBSCRIPT.)           FTNMSG       630     A     
 FTNMSG                                                                                    FTNMSG       631     A     
 FTNMSG             ERMSG  AR12,FE,(BASIC EXTERNAL OR INTRINSIC FUNCTION CALLED WI         FTNMSG       632     A     
 FTNMSG   ,TH WRONG TYPE ARGUMENT)                                                         FTNMSG       633     A     
 FTNMSG                                                                                    FTNMSG       634     A     
 FTNMSG             ERMSG  AR13,I,(ARRAY NAME OPERAND NOT SUBSCRIPTED, FIRST ELEME         FTNMSG       635     A     
 FTNMSG   ,NT WILL BE USED)                                                                FTNMSG       636     A     
 FTNMSG                                                                                    FTNMSG       637     A     
 FTNMSG             ERMSG  AR14,FE,(INTRINSIC FUNCTION REFERENCE MAY NOT USE A FUN         FTNMSG       638     A     
 FTNMSG   ,CTION NAME AS AN ARGUMENT)                                                      FTNMSG       639     A     
 FTNMSG                                                                                    FTNMSG       640     A     
 FTNMSG             ERMSG  AR15,FE,(ARGUMENT NOT FOLLOWED BY COMMA OR RIGHT PARENT         FTNMSG       641     A     
 FTNMSG   ,HESIS.)                                                                         FTNMSG       642     A     
 FTNMSG                                                                                    FTNMSG       643     A     
 FTNMSG             ERMSG  AR16,FE,(A FUNCTION REFERENCE REQUIRES AN ARGUMENT LIST         FTNMSG       644     A     
 FTNMSG   ,.)                                                                              FTNMSG       645     A     
 FTNMSG                                                                                    FTNMSG       646     A     
 FTNMSG             UNUSED                                                                 FTNMSG       647          I
          -FCC0539
 FTNMSG             ERMSG  AR60,FE,(INTEGER CONSTANT FOR MULTIPLICATION OR DIVISIO         FCC0539      150     A     
 FTNMSG   ,N EXCEEDS 2**48-1.)                                                             FCC0539      151     A     
 FTNMSG                                                                                    FTNMSG       648     A     
 FTNMSG             ERMSG  AR18,FE,(EXPRESSION TRANSLATOR TABLE (FRSTB ) OVERFLOWE         FTNMSG       649          I
          -FCC0587
 FTNMSG   ,D.  SIMPLIFY THE EXPRESSION.)                                                   FTNMSG       650          I
          -FCC0587
 FTNMSG             ERMSG  AR18,FE,(TABLE OVERFLOW (MXFRSTB) - SIMPLIFY EXPRESSION         FCC0587        6     A     
 FTNMSG   , OR SEE ANALYST.)                                                               FCC0587        7     A     
 FTNMSG                                                                                    FTNMSG       651     A     
 FTNMSG             ERMSG  AR19,FE,(THIS OPERATOR (.NOT. OR A RELATIONAL) MUST BE          FTNMSG       652     A     
 FTNMSG   ,FOLLOWED BY A CONSTANT, NAME, LEFT PAREN, + OR -.)                              FTNMSG       653     A     
 FTNMSG                                                                                    FTNMSG       654     A     
 FTNMSG             UNUSED                                                                 FTNMSG       655          I
          -FCC1901
 FTNMSG             ERMSG  EQPO4,ANSI,(REDEFINITION OF PARAMETER USED AS DIMENSION         FCC1901       33     A     
 FTNMSG   , INDICATOR IS NON-ANSI.)                                                        FCC1901       34     A     
 FTNMSG                                                                                    FTNMSG       656     A     
 FTNMSG             ERMSG  AR21,FE,(BASIC OR INTRINSIC FUNCTION WITH AN INCORRECT          FTNMSG       657     A     
 FTNMSG   ,ARGUMENT COUNT)                                                                 FTNMSG       658     A     
 FTNMSG                                                                                    FTNMSG       659     A     
 FTNMSG             ERMSG  AR22,FE,(EXPRESSION TRANSLATOR TABLE (ARLIST) OVERFLOWE         FTNMSG       660          I
          -FCC0587
 FTNMSG   ,D.  SIMPLIFY THE EXPRESSION.)                                                   FTNMSG       661          I
          -FCC0587
 FTNMSG             ERMSG  AR22,FE,(TABLE OVERFLOW (ARLSZ) - SIMPLIFY EXPRESSION O         FCC0587        8     A     
 FTNMSG   ,R SEE ANALYST.)                                                                 FCC0587        9     A     
 FTNMSG                                                                                    FTNMSG       662     A     
 FTNMSG             ERMSG  AR23,ASA,(ARRAY NAME REFERENCED WITH FEWER SUBSCRIPTS T         FTNMSG       663     A     
 FTNMSG   ,HAN DIMENSIONALITY OF ARRAY.)                                                   FTNMSG       664     A     
 FTNMSG                                                                                    FTNMSG       665     A     
 FTNMSG             ERMSG  AR24,FE,(ILLEGAL LIST ITEM ENCOUNTERED IN AN I/O LIST S         FTNMSG       666     A     
 FTNMSG   ,EQUENCE.)                                                                       FTNMSG       667     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1752    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG                                                                                    FTNMSG       668     A     
 FTNMSG             ERMSG  AR25,FE,(RIGHT PARENTHESIS FOLLOWED BY A NAME, CONSTANT         FTNMSG       669     A     
 FTNMSG   ,, OR LEFT PARENTHESIS.)                                                         FTNMSG       670     A     
 FTNMSG                                                                                    FTNMSG       671     A     
 FTNMSG             ERMSG  AR26,FE,(MORE THAN ONE RELATIONAL OPERATOR IN A RELATIO         FTNMSG       672     A     
 FTNMSG   ,NAL EXPRESSION.)                                                                FTNMSG       673     A     
 FTNMSG                                                                                    FTNMSG       674     A     
 FTNMSG             ERMSG  AR27,FE,(A COMMA, LEFT PAREN., =,.OR., OR .AND. MUST BE         FTNMSG       675          I
          -FCC0787
 FTNMSG   , FOLLOWED BY A NAME, CONSTANT, LEFT PAREN.,-,.NOT., OR +.)                      FTNMSG       676          I
          -FCC0787
 FTNMSG             ERMSG  AR27,FE,(INCORRECT SYNTAX FOLLOWING INDICATED ELEMENT.)         FCC0787      129     A     
 FTNMSG                                                                                    FTNMSG       677     A     
 FTNMSG             ERMSG  AR28,FE,(AN ARRAY REFERENCE HAS TOO MANY SUBSCRIPTS.)           FTNMSG       678     A     
 FTNMSG                                                                                    FTNMSG       679     A     
 FTNMSG             ERMSG  AR29,FE,(NO MATCHING RIGHT PARENTHESIS IN ARGUMENT LIST         FTNMSG       680     A     
 FTNMSG   ,.)                                                                              FTNMSG       681     A     
 FTNMSG                                                                                    FTNMSG       682     A     
 FTNMSG             ERMSG  AR30,FE,(ILLEGAL FORM INVOLVING THE USE OF A COMMA.)            FTNMSG       683     A     
 FTNMSG                                                                                    FTNMSG       684     A     
 FTNMSG             ERMSG  AR31,FE,(LOGICAL AND NON-LOGICAL OPERANDS MAY NOT BE MI         FTNMSG       685     A     
 FTNMSG   ,XED)                                                                            FTNMSG       686     A     
 FTNMSG                                                                                    FTNMSG       687     A     
 FTNMSG             ERMSG  AR32,FE,(DIVISION BY CONSTANT ZERO.)                            FTNMSG       688     A     
 FTNMSG                                                                                    FTNMSG       689     A     
 FTNMSG             ERMSG  AR33,FE,(A COMPLEX BASE MAY ONLY BE RAISED TO AN INTEGE         FTNMSG       690     A     
 FTNMSG   ,R POWER)                                                                        FTNMSG       691     A     
 FTNMSG                                                                                    FTNMSG       692     A     
 FTNMSG             ERMSG  AR34,FE,(USE OF THIS PROGRAM OR SUBROUTINE NAME IN AN E         FTNMSG       693     A     
 FTNMSG   ,XPRESSION.)                                                                     FTNMSG       694     A     
 FTNMSG                                                                                    FTNMSG       695     A     
 FTNMSG             ERMSG  AR35,FE,(SUBROUTINE NAME REFERRED TO BY CALL IS USED EL         FTNMSG       696     A     
 FTNMSG   ,SEWHERE AS A NON-SUBROUTINE NAME.)                                              FTNMSG       697     A     
 FTNMSG                                                                                    FTNMSG       698     A     
 FTNMSG             ERMSG  AR36,I,(ARGUMENT COUNT INCONSISTENT WITH PRIOR USAGE.)          FTNMSG       699     A     
 FTNMSG                                                                                    FTNMSG       700     A     
 FTNMSG             ERMSG  CA00,FE,(ILLEGAL SYNTAX IN CALL STATEMENT.)                     FTNMSG       701     A     
 FTNMSG                                                                                    FTNMSG       702     A     
 FTNMSG             ERMSG  CA01,FE,(ILLEGAL RETURNS PARAMETER.)                            FTNMSG       703     A     
 FTNMSG                                                                                    FTNMSG       704     A     
 FTNMSG             ERMSG  IF00,FE,(ILLEGAL LABELS IN IF STATEMENT.)                       FTNMSG       705     A     
 FTNMSG                                                                                    FTNMSG       706     A     
 FTNMSG             ERMSG  IF01,FE,(LOGICAL EXPRESSION IN 3-BRANCH IF STATEMENT.)          FTNMSG       707     A     
 FTNMSG                                                                                    FTNMSG       708     A     
 FTNMSG             ERMSG  IF02,FE,(THE STATEMENT IN A LOGICAL IF MAY BE ANY EXECU         FTNMSG       709     A     
 FTNMSG   ,TABLE STATEMENT OTHER THAN A DO OR ANOTHER LOGICAL IF)                          FTNMSG       710     A     
 FTNMSG                                                                                    FTNMSG       711     A     
 FTNMSG             ERMSG  IF03,FE,(THE EXPRESSION IN A LOGICAL IF IS NOT TYPE LOG         FTNMSG       712     A     
 FTNMSG   ,ICAL)                                                                           FTNMSG       713     A     
 FTNMSG             TITLE              NON USAS USEAGES                                    FTNMSG       714     A     
 FTNMSG             ERMSG  DPROG2,FE,(RECORD LENGTH IS GREATER THAN 131,071.)              FTNMSG       715     A     
 FTNMSG                                                                                    FTNMSG       716     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1753    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG             ERMSG  GOTO88,I,(THERE IS NO PATH TO THIS STATEMENT)                   FTNMSG       717     A     
 FTNMSG                                                                                    FTNMSG       718     A     
 FTNMSG             ERMSG  ASSIGN2,FE,(VARIABLE IN ASSIGN OR ASSIGNED GO TO IS ILL         FTNMSG       719     A     
 FTNMSG   ,EGAL)                                                                           FTNMSG       720     A     
 FTNMSG                                                                                    FTNMSG       721     A     
 FTNMSG             ERMSG  NAML,ASA,(NAMELIST STATEMENT IS NON-ANSI)                       FTNMSG       722     A     
 FTNMSG                                                                                    FTNMSG       723     A     
 FTNMSG             ERMSG  ENTRYDV,ASA,(ENTRY STATEMENT IS NON-ANSI)                       FTNMSG       724     A     
 FTNMSG                                                                                    FTNMSG       725     A     
 FTNMSG             ERMSG  CA02,ASA,(RETURNS PARAMETERS IN CALL STATEMENT.)                FTNMSG       726     A     
 FTNMSG                                                                                    FTNMSG       727     A     
 FTNMSG             ERMSG  AR38,ASA,(HOLLERITH CONSTANT APPEARS OTHER THAN IN AN A         FTNMSG       728     A     
 FTNMSG   ,RGUMENT LIST OF A CALL STATEMENT OR IN A DATA STATEMENT.)                       FTNMSG       729     A     
 FTNMSG                                                                                    FTNMSG       730     A     
 FTNMSG             ERMSG  AR39,I,(A HOLLERITH CONSTANT IS AN OPERAND OF AN ARITHM         FTNMSG       731     A     
 FTNMSG   ,ETIC OPERATOR.)                                                                 FTNMSG       732     A     
 FTNMSG                                                                                    FTNMSG       733     A     
 FTNMSG             ERMSG  AR40,ASA,(NON-STANDARD SUBSCRIPT IS NON-ANSI.)                  FTNMSG       734          I
          -FCC0218
 FTNMSG             ERMSG  AR40,ASA,(SUBSCRIPT DOES NOT CONFORM TO ANSI STANDARD.)         FCC0218        5     A     
 FTNMSG                                                                                    FTNMSG       735     A     
 FTNMSG             ERMSG  AR41,ASA,(MASKING EXPRESSION IS NON-ANSI.)                      FTNMSG       736     A     
 FTNMSG                                                                                    FTNMSG       737     A     
 FTNMSG             ERMSG  AR42,ASA,(THE TYPE COMBINATION OF THE OPERANDS OF AN EX         FTNMSG       738     A     
 FTNMSG   ,PONENT OPERATOR IS NON-ANSI.)                                                   FTNMSG       739     A     
 FTNMSG                                                                                    FTNMSG       740     A     
 FTNMSG             ERMSG  AR43,ASA,(A RELATIONAL HAS A COMPLEX OPERAND.)                  FTNMSG       741     A     
 FTNMSG                                                                                    FTNMSG       742     A     
 FTNMSG             ERMSG  AR44,ASA,(THE TYPE COMBINATION OF THE OPERANDS OF A REL         FTNMSG       743     A     
 FTNMSG   ,ATIONAL OR ARITHMETIC OPERATOR (OTHER THAN **) IS NON-ANSI.)                    FTNMSG       744     A     
 FTNMSG                                                                                    FTNMSG       745     A     
 FTNMSG             ERMSG  AR45,ASA,(THE TYPE COMBINATION OF THE OPERANDS OF AN EQ         FTNMSG       746     A     
 FTNMSG   ,UAL-SIGN OPERATOR IS NON-ANSI.)                                                 FTNMSG       747     A     
 FTNMSG                                                                                    FTNMSG       748     A     
 FTNMSG             ERMSG  AR46,ASA,(TWO-BRANCH IF STATEMENT IS NON-ANSI.)                 FTNMSG       749     A     
 FTNMSG                                                                                    FTNMSG       750     A     
 FTNMSG             ERMSG  AR47,ASA,(THE EXPRESSION IN AN IF STATEMENT IS TYPE COM         FTNMSG       751     A     
 FTNMSG   ,PLEX.)                                                                          FTNMSG       752     A     
 FTNMSG                                                                                    FTNMSG       753     A     
 FTNMSG             TITLE                                                                  FTNMSG       754     A     
 FTNMSG             ERMSG  IF05,I,(THIS STATEMENT BRANCHES TO ITSELF.)                     FTNMSG       755     A     
 FTNMSG                                                                                    FTNMSG       756     A     
 FTNMSG             ERMSG  IFERR4,I,(THIS IF DEGENERATES INTO A SIMPLE TRANSFER TO         FTNMSG       757     A     
 FTNMSG   , THE LABEL INDICATED.)                                                          FTNMSG       758     A     
 FTNMSG                                                                                    FTNMSG       759     A     
 FTNMSG             ERMSG  AR48,FE,(TOO MANY SUBSCRIPTS IN ARRAY REFERENCE.)               FTNMSG       760     A     
 FTNMSG                                                                                    FTNMSG       761     A     
 FTNMSG             ERMSG  S,ASA,(LOGICAL OPERATOR OR CONSTANT USAGE IS NON-ANSI)          FTNMSG       762     A     
 FTNMSG                                                                                    FTNMSG       763     A     
 FTNMSG             ERMSG  SS,ASA,(OCTAL CONSTANT OR R,L FORMS OF HOLLERITH CONSTA         FTNMSG       764     A     
 FTNMSG   ,NT IS NON-ANSI)                                                                 FTNMSG       765     A     
 FTNMSG                                                                                    FTNMSG       766     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1754    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG             ERMSG  AR37,FE,(LEFT SIDE OF REPLACEMENT STATEMENT IS ILLEGAL.         FTNMSG       767     A     
 FTNMSG   ,)                                                                               FTNMSG       768     A     
 FTNMSG                                                                                    FTNMSG       769     A     
 FTNMSG             ERMSG  VACPAR,FE,(A REFERENCE TO THIS ASF HAS A PARAMETER MISS         FTNMSG       770     A     
 FTNMSG   ,ING)                                                                            FTNMSG       771     A     
 FTNMSG                                                                                    FTNMSG       772     A     
 FTNMSG             ERMSG  BSI,I,(I/O BUFFER LENGTH SPECIFICATION IS NOT MEANINGFU         FTNMSG       773     A     
 FTNMSG   ,L--VALUE IGNORED.)                                                              FTNMSG       774     A     
 FTNMSG                                                                                    FTNMSG       775     A     
 FTNMSG             ERMSG  DPCL2,FE,(A PREVIOUSLY MENTIONED ADJUSTABLE SUBSCRIPT I         FTNMSG       776     A     
 FTNMSG   ,S NOT TYPE INTEGER.)                                                            FTNMSG       777     A     
 FTNMSG                                                                                    FTNMSG       778     A     
 FTNMSG             ERMSG  DPCL3,FE,(ALL "LCM" ITEMS MUST APPEAR IN A COMMON BLOCK         FTNMSG       779          I
          -FCC0762
 FTNMSG   ,)                                                                               FTNMSG       780          I
          -FCC0762
 FTNMSG             ERMSG  DPCL3,FE,(ALL LEVEL 2 OR 3 ITEMS MUST BE FORMAL PARAMET         FCC0762        4     A     
 FTNMSG   ,ERS OR IN COMMON.)                                                              FCC0762        5     A     
 FTNMSG                                                                                    FTNMSG       781     A     
 FTNMSG                                                                                    FTNMSG       782     A     
 FTNMSG             ERMSG  AR49,FE,(THE TYPE OF THIS IDENTIFIER IS NOT LEGAL FOR A         FTNMSG       783     A     
 FTNMSG   ,NY EXPRESSION)                                                                  FTNMSG       784     A     
 FTNMSG                                                                                    FTNMSG       785     A     
 FTNMSG             ERMSG  AR50,FE,(A CONSTANT OPERAND OF A REAL OPERATION IS OUT          FTNMSG       786     A     
 FTNMSG   ,OF RANGE OR INDEFINITE.)                                                        FTNMSG       787     A     
 FTNMSG             ERMSG  NANC,ASA,(USE OF A NUMBER AS LABELED COMMON BLOCK NAME          FTNMSG       788     A     
 FTNMSG   ,IS NON-ANSI.)                                                                   FTNMSG       789     A     
 FTNMSG                                                                                    FTNMSG       790     A     
 FTNMSG             ERMSG  NOMORE,I,(*** DUE TO THE MANY ERRORS NOTED, ONLY THOSE          FTNMSG       791     A     
 FTNMSG   ,WHICH ARE FATAL WILL BE LISTED HEREAFTER.)                                      FTNMSG       792     A     
 FTNMSG                                                                                    FTNMSG       793     A     
 FTNMSG             ERMSG  CMTCD,ANSI,(A COMMENT LINE WITHIN A CONTINUED STATEMENT         FTNMSG       794     A     
 FTNMSG   , IS NON-ANSI.)                                                                  FTNMSG       795     A     
 FTNMSG                                                                                    FTNMSG       796     A     
 FTNMSG             ERMSG  NABC,ANSI,(NON-ANSI BLANK LINES OCCURRED IN THIS PROGRA         FTNMSG       797     A     
 FTNMSG   ,M UNIT.)                                                                        FTNMSG       798     A     
 FTNMSG                                                                                    FTNMSG       799     A     
 FTNMSG             ERMSG  SCANC,FE,(WAS LAST CHARACTER SEEN AFTER TROUBLE.  REMAI         FTNMSG       800     A     
 FTNMSG   ,NDER OF STATEMENT IGNORED.)                                                     FTNMSG       801     A     
 FTNMSG                                                                                    FTNMSG       802     A     
 FTNMSG             ERMSG  S210,ASA,(DOLLAR SIGN STATEMENT SEPARATOR IS NON-ANSI U         FTNMSG       803     A     
 FTNMSG   ,SAGE)                                                                           FTNMSG       804     A     
 FTNMSG                                                                                    FTNMSG       805     A     
 FTNMSG             ERMSG  LIOEXP,ASA,(AN EXPRESSION IN AN OUTPUT STATEMENT I/O LI         FTNMSG       806     A     
 FTNMSG   ,ST IS NON ANSI USAGE)                                                           FTNMSG       807     A     
 FTNMSG                                                                                    FTNMSG       808     A     
 FTNMSG             ERMSG  LIOBIO,FE,(FIRST WORD AND LAST WORD ADDRESSES OF DATA T         FTNMSG       809     A     
 FTNMSG   ,RANSMISSION BLOCK MUST BE IN THE SAME LEVEL)                                    FTNMSG       810     A     
 FTNMSG                                                                                    FTNMSG       811     A     
 FTNMSG             ERMSG  PARITY,FE,(THE VALUE OF THE PARITY INDICATOR IN A BUFFE         FTNMSG       812     A     
 FTNMSG   ,R I/O STATEMENT MUST BE 0 OR 1)                                                 FTNMSG       813     A     
 FTNMSG                                                                                    FTNMSG       814     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1755    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG             ERMSG  E214,ANSI,(ARRAY NAME OPERAND NOT SUBSCRIPTED.  FIRST E         FTNMSG       815     A     
 FTNMSG   ,LEMENT WILL BE USED.)                                                           FTNMSG       816     A     
 FTNMSG                                                                                    FTNMSG       817     A     
 FTNMSG             ERMSG  ARMASK,I,(MASK ARGUMENT MUST BE NONNEGATIVE AND LESS TH         FTNMSG       818     A     
 FTNMSG   ,AN 61.)                                                                         FTNMSG       819     A     
 FTNMSG                                                                                    FTNMSG       820     A     
 FTNMSG             ERMSG  ASFSE,FE,(SYNTAX ERROR IN ASF DEFINITION)                       FTNMSG       821     A     
 FTNMSG                                                                                    FTNMSG       822     A     
 FTNMSG             ERMSG  IHDR,I,(*PROGRAM START. (INPUT,OUTPUT)* ASSUMED WHEN HE         FTNMSG       823     A     
 FTNMSG   ,ADER STATEMENT IS DEFECTIVE OR OMITTED.)                                        FTNMSG       824     A     
 FTNMSG                                                                                    FTNMSG       825     A     
 FTNMSG             ERMSG  SIGD,I,(CONSTANT TOO LONG.  HIGH ORDER DIGITS RETAINED,         FTNMSG       826     A     
 FTNMSG   , BUT SOME PRECISION LOST.)                                                      FTNMSG       827     A     
 FTNMSG                                                                                    FTNMSG       828     A     
 FTNMSG             ERMSG  AR53,FE,(.NOT. MAY NOT BE PRECEDED BY NAME, CONSTANT, O         FTNMSG       829     A     
 FTNMSG   ,R RIGHT PARENS.)                                                                FTNMSG       830     A     
 FTNMSG                                                                                    FTNMSG       831     A     
 FTNMSG             ERMSG  P1,FE,(THE FIELD FOLLOWING STOP OR PAUSE MUST BE 5 OR L         FTNMSG       832     A     
 FTNMSG   ,ESS OCTAL DIGITS OR A QUOTE-DELIMITED STRING)                                   FTNMSG       833     A     
 FTNMSG                                                                                    FTNMSG       834     A     
 FTNMSG             ERMSG  NATYP,ASA,(NON-ANSI FORM OF TYPE DECLARATION)                   FTNMSG       835     A     
 FTNMSG                                                                                    FTNMSG       836     A     
 FTNMSG             ERMSG  SCAN10,FE,(ILLEGAL VARIABLE NAME FIELD IN ASSIGN OR ASS         FTNMSG       837     A     
 FTNMSG   ,IGNED GOTO)                                                                     FTNMSG       838     A     
 FTNMSG                                                                                    FTNMSG       839     A     
 FTNMSG             ERMSG  PRIN12,ASA,(THIS FORMAT DECLARATION IS NON-ANSI)                FTNMSG       840     A     
 FTNMSG                                                                                    FTNMSG       841     A     
 FTNMSG             ERMSG  LCC1,FE,(SYNTAX ERROR IN LOADER DIRECTIVE.)                     FTNMSG       842     A     
 FTNMSG                                                                                    FTNMSG       843     A     
 FTNMSG             ERMSG  E224,FC,(NOT ENOUGH ROOM IN WORKING STORAGE TO HOLD ALL         FTNMSG       844     A     
 FTNMSG   , OVERLAY CONTROL CARD INFORMATION)                                              FTNMSG       845     A     
 FTNMSG                                                                                    FTNMSG       846     A     
 FTNMSG             ERMSG  DOUN,I,(THIS STATEMENT MAY REDEFINE A CURRENT LOOP CONT         FTNMSG       847     A     
 FTNMSG   ,ROL VARIABLE OR PARAMETER, OPTIMIZATION INHIBITED.)                             FTNMSG       848     A     
 FTNMSG                                                                                    FTNMSG       849     A     
 FTNMSG             ERMSG  FRL,ASA,(END STATEMENT ACTING AS A RETURN IS NON-ANSI)          FTNMSG       850     A     
 FTNMSG                                                                                    FTNMSG       851     A     
 FTNMSG             ERMSG  NACMT,ASA,(OCCURRENCES OF ASTERISK OR DOLLAR SIGN NON-A         FTNMSG       852     A     
 FTNMSG   ,NSI COMMENT LINES.)                                                             FTNMSG       853     A     
 FTNMSG                                                                                    FTNMSG       854     A     
 FTNMSG             ERMSG  EI,I,(DIMENSIONAL RANGE IS EXTENDED FOR EQUIVALENCING P         FTNMSG       855     A     
 FTNMSG   ,URPOSES)                                                                        FTNMSG       856     A     
 FTNMSG                                                                                    FTNMSG       857     A     
 FTNMSG             ERMSG  C1.,FE,(TOO MANY LABELED COMMON BLOCKS, ONLY 125 BLOCKS         FTNMSG       858     A     
 FTNMSG   , ARE ALLOWED.)                                                                  FTNMSG       859     A     
 FTNMSG                                                                                    FTNMSG       860     A     
 FTNMSG             ERMSG  PRINTB,FE,(UNIT NUMBER MUST BE BETWEEN 1 AND 99 INCLUSI         FTNMSG       861     A     
 FTNMSG   ,VE.)                                                                            FTNMSG       862     A     
 FTNMSG                                                                                    FTNMSG       863     A     
 FTNMSG             ERMSG  FUNCT,FE,(FUNCTION NAME DOES NOT APPEAR AS A VARIABLE I         FTNMSG       864     A     
 FTNMSG   ,N THIS SUBPROGRAM)                                                              FTNMSG       865     A     
 FTNMSG                                                                                    FTNMSG       866     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1756    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG             ERMSG  TSUB,FE,(PROGRAM OR SUBROUTINE NAME MAY NOT BE REFERENC         FTNMSG       867     A     
 FTNMSG   ,ED IN A DECLARATIVE STATEMENT.)                                                 FTNMSG       868     A     
 FTNMSG                                                                                    FTNMSG       869     A     
 FTNMSG             ERMSG  DPROGI,I,(FILE LENGTH REQUESTED IS TOO LARGE.  STANDARD         FTNMSG       870          I
          -FCC1463X 
 FTNMSG   , LENGTH OF 2000B SUBSTITUTED.)                                                  FTNMSG       871          I
          -FCC1463X 
 FTNMSG             ERMSG  DPROGI,I,(FILE LENGTH REQUESTED EXCEEDS 360000B -- 3600         FCC1463X      20     A     
 FTNMSG   ,00B SUBSTITUTED.)                                                               FCC1463X      21     A     
 FTNMSG             TITLE              ERROR MESSAGES ISSUED BY THE FORMAT PROCESS         FTNMSG       872     A     
 FTNMSG   ,OR                                                                              FTNMSG       873     A     
 FTNMSG             ERMSG  I1,I,(SEPARATOR MISSING.  SEPARATOR ASSUMED HERE.)              FTNMSG       874     A     
 FTNMSG                                                                                    FTNMSG       875     A     
 FTNMSG             ERMSG  I2,I,(NO DIGIT PRECEDED X-FIELD.  1X ASSUMED.)                  FTNMSG       876     A     
 FTNMSG                                                                                    FTNMSG       877     A     
 FTNMSG             ERMSG  I3,I,(X-FIELD PRECEDED BY A ZERO.  NO SPACING OCCURS.)          FTNMSG       878     A     
 FTNMSG                                                                                    FTNMSG       879     A     
 FTNMSG             ERMSG  I4,I,(PRECEDING FIELD WIDTH IS ZERO.)                           FTNMSG       880     A     
 FTNMSG                                                                                    FTNMSG       881     A     
 FTNMSG             ERMSG  I5,I,(PRECEDING FIELD WIDTH SHOULD BE 7 OR MORE.)               FTNMSG       882     A     
 FTNMSG                                                                                    FTNMSG       883     A     
 FTNMSG             ERMSG  I6,I,(DECIMAL POINT SPECIFICATION MISSING FROM FLOATING         FTNMSG       884          I
          -FCC1300X 
 FTNMSG   , POINT DESCRIPTOR.)                                                             FTNMSG       885          I
          -FCC1300X 
 FTNMSG             ERMSG  I6,I,(FRACTIONAL DIGIT COUNT MISSING FROM CONVERSION DE         FCC1300X      36     A     
 FTNMSG   ,SCRIPTOR.  DEPENDING ON DESCRIPTOR, ONE OR ZERO ASSUMED.)                       FCC1300X      37     A     
 FTNMSG                                                                                    FTNMSG       886     A     
 FTNMSG             ERMSG  I7,I,(DECIMAL DIGITS EXPECTED AFTER DECIMAL POINT.  DEP         FTNMSG       887          I
          -FCC1300X 
 FTNMSG   ,ENDING ON THE DESCRIPTOR, A ONE OR A ZERO IS ASSUMED.)                          FTNMSG       888          I
          -FCC1300X 
 FTNMSG             RESERVE                  I7                                            FCC1300X      38     A     
 FTNMSG                                                                                    FTNMSG       889     A     
 FTNMSG             RESERVE                  I8                                            FTNMSG       890     A     
 FTNMSG                                                                                    FTNMSG       891     A     
 FTNMSG             ERMSG  I9,I,(FIELD WIDTH IS GREATER THAN 137 CHARACTERS.  IT M         FTNMSG       892     A     
 FTNMSG   ,AY EXCEED THE I/O DEVICE CAPACITY.)                                             FTNMSG       893     A     
 FTNMSG                                                                                    FTNMSG       894     A     
 FTNMSG             ERMSG  I10,I,(PRECEDING SCALE FACTOR EXCEEDS THE LIMIT OF REPR         FTNMSG       895     A     
 FTNMSG   ,ESENTATION WITHIN THE MACHINE.)                                                 FTNMSG       896     A     
 FTNMSG                                                                                    FTNMSG       897     A     
 FTNMSG             ERMSG  I11,I,(SUPERFLUOUS SCALE FACTOR ENCOUNTERED BEFORE THE          FTNMSG       898     A     
 FTNMSG   ,CURRENT SCALE FACTOR.)                                                          FTNMSG       899     A     
 FTNMSG                                                                                    FTNMSG       900     A     
 FTNMSG             ERMSG  I12,I,(TOTAL RECORD LENGTH IS GREATER THAN 137 CHARACTE         FTNMSG       901     A     
 FTNMSG   ,RS.  IT MAY EXCEED THE I/O DEVICE CAPACITY.)                                    FTNMSG       902     A     
 FTNMSG                                                                                    FTNMSG       903     A     
 FTNMSG             ERMSG  I13,I,(FIELD WIDTH OF A CONVERSION DESCRIPTOR SHOULD BE         FTNMSG       904     A     
 FTNMSG   , AS LARGE AS THE MINIMUM SPECIFIED FOR THAT DESCRIPTOR.)                        FTNMSG       905     A     
 FTNMSG                                                                                    FTNMSG       906     A     
 FTNMSG             ERMSG  I14,I,(NUMERIC FIELD FOLLOWING TAB SETTING DESIGNATOR I         FTNMSG       907     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1757    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG   ,S EQUAL TO ZERO.  COLUMN ONE WILL BE ASSUMED.)                                  FTNMSG       908     A     
 FTNMSG                                                                                    FTNMSG       909     A     
 FTNMSG             ERMSG  I15,I,(NUMERIC FIELD OMITTED FROM PRECEDING SCALE FACTO         FTNMSG       910     A     
 FTNMSG   ,R.  ZERO SCALE FACTOR ASSUMED.)                                                 FTNMSG       911     A     
 FTNMSG                                                                                    FTNMSG       912     A     
 FTNMSG             ERMSG  I16,I,(ILLEGAL CHARACTERS AFTER TERMINATING RIGHT PAREN         FTNMSG       913          I
          -FCC1385
 FTNMSG   ,THESIS IGNORED.)                                                                FTNMSG       914          I
          -FCC1385
 FTNMSG             RESERVE  I16                                                           FCC1385       13     A     
 FTNMSG                                                                                    FTNMSG       915     A     
 FTNMSG             ERMSG  I17,I,(TAB SETTING MAY EXCEED RECORD SIZE, DEPENDING ON         FTNMSG       916     A     
 FTNMSG   , USE.)                                                                          FTNMSG       917     A     
 FTNMSG                                                                                    FTNMSG       918     A     
 FTNMSG             RESERVE                  I18                                           FTNMSG       919     A     
 FTNMSG             RESERVE                  I19                                           FTNMSG       920     A     
 FTNMSG             RESERVE                  I20                                           FTNMSG       921     A     
 FTNMSG                                                                                    FTNMSG       922     A     
 FTNMSG             ERMSG  U1,ANSI,(PLUS SIGN IS A NON-ANSI CHARACTER.)                    FTNMSG       923     A     
 FTNMSG                                                                                    FTNMSG       924     A     
 FTNMSG             ERMSG  U2,ANSI,(PRECEDING FIELD DESCRIPTOR IS NON-ANSI.)               FTNMSG       925     A     
 FTNMSG                                                                                    FTNMSG       926     A     
 FTNMSG             ERMSG  U3,ANSI,(FLOATING POINT DESCRIPTOR EXPECTED AFTER SCALE         FTNMSG       927     A     
 FTNMSG   , FACTOR DESIGNATOR.)                                                            FTNMSG       928     A     
 FTNMSG                                                                                    FTNMSG       929     A     
 FTNMSG             ERMSG  U4,ANSI,(TAB SETTING DESIGNATOR IS NON-ANSI.)                   FTNMSG       930     A     
 FTNMSG                                                                                    FTNMSG       931     A     
 FTNMSG             ERMSG  U5,ANSI,(HOLLERITH STRING DELIMITED BY SYMBOLS IS NON-A         FTNMSG       932     A     
 FTNMSG   ,NSI.)                                                                           FTNMSG       933     A     
 FTNMSG                                                                                    FTNMSG       934     A     
 FTNMSG             ERMSG  U6,ANSI,(ONE OF THE FOLLOWING NON-ANSI FORMS HAS BEEN U         FTNMSG       935     A     
 FTNMSG   ,SED -- EW.DDE, EW.DEE, IW.Z, OW.Z.)                                             FTNMSG       936     A     
 FTNMSG                                                                                    FTNMSG       937     A     
 FTNMSG             ERMSG  U7,ANSI,(BACKING UP WITH X SPECIFICATION IS NON-ANSI.)          FTNMSG       938     A     
 FTNMSG                                                                                    FTNMSG       939     A     
 FTNMSG             ERMSG  U8,ANSI,(ATTEMPT TO BACK UP BEFORE COLUMN ONE CAUSES PO         FTNMSG       940     A     
 FTNMSG   ,SITIONING TO BE SET AT COLUMN ONE.)                                             FTNMSG       941     A     
 FTNMSG                                                                                    FTNMSG       942     A     
 FTNMSG             ERMSG  U9,ANSI,(OMISSION OF FIELD SEPARATOR AFTER HOLLERITH ST         FTNMSG       943     A     
 FTNMSG   ,RING IS NON-ANSI.)                                                              FTNMSG       944     A     
 FTNMSG                                                                                    FTNMSG       945     A     
 FTNMSG             RESERVE                  U10                                           FTNMSG       946     A     
 FTNMSG                                                                                    FTNMSG       947     A     
 FTNMSG             ERMSG  F1,FE,(PRECEDING CHARACTER ILLEGAL AT THIS POINT IN STR         FTNMSG       948     A     
 FTNMSG   ,ING.  ERROR SCAN FOR THIS FORMAT STOPS HERE.)                                   FTNMSG       949     A     
 FTNMSG                                                                                    FTNMSG       950     A     
 FTNMSG             ERMSG  F2,FE,(ILLEGAL CHARACTER FOLLOWS PRECEDING FLOATING POI         FTNMSG       951     A     
 FTNMSG   ,NT DESCRIPTOR.  ERROR SCAN FOR THIS FORMAT STOPS HERE.)                         FTNMSG       952     A     
 FTNMSG                                                                                    FTNMSG       953     A     
 FTNMSG             ERMSG  F3,FE,(ILLEGAL CHARACTER FOLLOWS PRECEDING A,I,L,O,R OR         FTNMSG       954     A     
 FTNMSG   , Z DESCRIPTOR.  ERROR SCAN FOR THIS FORMAT STOPS HERE.)                         FTNMSG       955     A     
 FTNMSG                                                                                    FTNMSG       956     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1758    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG             ERMSG  F4,FE,(ILLEGAL CHARACTER FOLLOWS TAB SETTING DESIGNATOR         FTNMSG       957     A     
 FTNMSG   ,.  ERROR SCAN FOR THIS FORMAT STOPS HERE.)                                      FTNMSG       958     A     
 FTNMSG                                                                                    FTNMSG       959     A     
 FTNMSG             ERMSG  F5,FE,(ILLEGAL CHARACTER FOLLOWS PRECEDING SIGN CHARACT         FTNMSG       960     A     
 FTNMSG   ,ER.  ERROR SCAN FOR THIS FORMAT STOPS HERE.)                                    FTNMSG       961     A     
 FTNMSG                                                                                    FTNMSG       962     A     
 FTNMSG             ERMSG  F6,FE,(PRECEDING CHARACTER ILLEGAL.  SCALE FACTOR EXPEC         FTNMSG       963     A     
 FTNMSG   ,TED.  ERROR SCAN FOR THIS FORMAT STOPS HERE.)                                   FTNMSG       964     A     
 FTNMSG                                                                                    FTNMSG       965     A     
 FTNMSG             ERMSG  F7,FE,(PRECEDING HOLLERITH COUNT IS EQUAL TO ZERO.  ERR         FTNMSG       966     A     
 FTNMSG   ,OR SCAN FOR THIS FORMAT STOPS HERE.)                                            FTNMSG       967     A     
 FTNMSG                                                                                    FTNMSG       968     A     
 FTNMSG             ERMSG  F8,FE,(FORMAT STATEMENT ENDS BEFORE LAST HOLLERITH COUN         FTNMSG       969     A     
 FTNMSG   ,T IS COMPLETE.  ERROR SCAN FOR THIS FORMAT STOPS AT H .)                        FTNMSG       970     A     
 FTNMSG                                                                                    FTNMSG       971     A     
 FTNMSG             ERMSG  F9,FE,(FORMAT STATEMENT ENDS BEFORE END OF HOLLERITH ST         FTNMSG       972     A     
 FTNMSG   ,RING.  ERROR SCAN FOR THIS FORMAT STOPS HERE.)                                  FTNMSG       973     A     
 FTNMSG                                                                                    FTNMSG       974     A     
 FTNMSG             ERMSG  F10,FE,(PRECEDING HOLLERITH INDICATOR IS NOT PRECEDED B         FTNMSG       975     A     
 FTNMSG   ,Y A COUNT. SCANNING STOPS HERE.)                                                FTNMSG       976     A     
 FTNMSG                                                                                    FTNMSG       977     A     
 FTNMSG             ERMSG  F11,FE,(ZERO LEVEL RIGHT PARENTHESIS MISSING.  SCANNING         FTNMSG       978     A     
 FTNMSG   , STOPS.)                                                                        FTNMSG       979     A     
 FTNMSG                                                                                    FTNMSG       980     A     
 FTNMSG             ERMSG  F12,FE,(MAXIMUM PARENTHESIS NESTING LEVEL EXCEEDED. ERR         FTNMSG       981     A     
 FTNMSG   ,OR SCAN FOR THIS FORMAT STOPS HERE.)                                            FTNMSG       982     A     
 FTNMSG                                                                                    FTNMSG       983     A     
 FTNMSG             ERMSG  F13,FE,(ZERO IS SPECIFIED AS REPEAT COUNT.  SCANNING ST         FTNMSG       984     A     
 FTNMSG   ,OPS.)                                                                           FTNMSG       985     A     
 FTNMSG                                                                                    FTNMSG       986     A     
 FTNMSG             RESERVE                  F14                                           FTNMSG       987          I
          -FCC1385
 FTNMSG             ERMSG  F14,FE,(ILLEGAL CHARACTERS AFTER TERMINATING RIGHT PARE         FCC1385       14     A     
 FTNMSG   ,NTHESIS.)                                                                       FCC1385       15     A     
 FTNMSG                                                                                    FTNMSG       988     A     
 FTNMSG             ERMSG  F15,FE,(WORKING STORAGE EXCEEDED.  FORMAT SCAN HALTED.)         FTNMSG       989     A     
 FTNMSG                                                                                    FTNMSG       990     A     
 FTNMSG             ERMSG  F16,FE,(FIELD WIDTH IS GREATER THAN 131,071.  SCANNING          FTNMSG       991     A     
 FTNMSG   ,STOPS.)                                                                         FTNMSG       992     A     
 FTNMSG                                                                                    FTNMSG       993     A     
 FTNMSG             ERMSG  F17,FE,(TOTAL RECORD LENGTH IS GREATER THAN 131,071.  S         FTNMSG       994     A     
 FTNMSG   ,CANNING STOPS.)                                                                 FTNMSG       995     A     
 FTNMSG                                                                                    FTNMSG       996     A     
 FTNMSG             ERMSG  F18,FE,(TAB SETTING IS GREATER THAN 131,071.  SCANNING          FTNMSG       997     A     
 FTNMSG   ,STOPS.)                                                                         FTNMSG       998     A     
 FTNMSG                                                                                    FTNMSG       999     A     
 FTNMSG             RESERVE                  F19                                           FTNMSG      1000     A     
 FTNMSG                                                                                    FTNMSG      1001     A     
 FTNMSG             ERMSG  EQDUP,I,(TRIVIAL EQUIVALENCE GROUP, IGNORED)                    FTNMSG      1002          I
          -FCC1289X 
 FTNMSG             UNUSED                                                                 FCC1289X      14     A     
 FTNMSG             SPACE  3                                                               FTNMSG      1003     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1759    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG   *         MISCELLANEOUS                                                          FTNMSG      1004     A     
 FTNMSG                                                                                    FTNMSG      1005     A     
 FTNMSG             ERMSG  TNOCOM,I,(COMMA MISSING BEFORE VARIABLE INDICATED.)             FTNMSG      1006     A     
 FTNMSG                                                                                    FTNMSG      1007     A     
 FTNMSG             ERMSG  BADSEP,FE,(ILLEGAL SEPARATOR ENCOUNTERED.)                      FTNMSG      1008     A     
 FTNMSG                                                                                    FTNMSG      1009     A     
 FTNMSG             ERMSG  BADSYN,FE,(BAD SYNTAX ENCOUNTERED.)                             FTNMSG      1010     A     
 FTNMSG                                                                                    FTNMSG      1011     A     
 FTNMSG             ERMSG  LENGTH,FE,(COMMON BLOCK LENGTH EXCEEDS 131071 WORDS.)           FTNMSG      1012     A     
 FTNMSG                                                                                    FTNMSG      1013     A     
 FTNMSG             ERMSG  SCANOFLO,FE,(CONSTANT TABLE CONSTORS OVERFLOWED-STATEME         FTNMSG      1014          I
          -FCC0587
 FTNMSG   ,NT TRUNCATED.ENLARGE TABLE OR SIMPLIFY STATEMENT)                               FTNMSG      1015          I
          -FCC0587
 FTNMSG             ERMSG  SCANOFLO,FE,(TABLE OVERFLOW (CONSTORS) - SIMPLIFY STATE         FCC0587       10     A     
 FTNMSG   ,MENT OR SEE ANALYST.)                                                           FCC0587       11     A     
 FTNMSG                                                                                    FTNMSG      1016     A     
 FTNMSG             ERMSG  LVL1,FE,(INVALID LEVEL NUMBER SPECIFIED)                        FTNMSG      1017     A     
 FTNMSG                                                                                    FTNMSG      1018     A     
 FTNMSG             ERMSG  LVL2,I,(LEVEL CONFLICTS WITH PREVIOUS DECLARATION. ORIG         FTNMSG      1019     A     
 FTNMSG   ,INAL LEVEL RETAINED.)                                                           FTNMSG      1020     A     
 FTNMSG                                                                                    FTNMSG      1021     A     
 FTNMSG             ERMSG  LVL3,FE,(CONFLICTING LEVEL DECLARATIONS EXIST IN THIS C         FTNMSG      1022     A     
 FTNMSG   ,OMMON BLOCK)                                                                    FTNMSG      1023     A     
 FTNMSG                                                                                    FTNMSG      1024     A     
 FTNMSG             ERMSG  LVL4,I,(NOT ALL ITEMS IN THIS COMMON BLOCK OCCUR IN LEV         FTNMSG      1025     A     
 FTNMSG   ,EL STATEMENTS)                                                                  FTNMSG      1026     A     
 FTNMSG                                                                                    FTNMSG      1027     A     
 FTNMSG             ERMSG  LVL5,FE,(ITEMS IN DIFFERENT LEVELS OF STORAGE MAY NOT B         FTNMSG      1028     A     
 FTNMSG   ,E EQUIVALENCED)                                                                 FTNMSG      1029     A     
 FTNMSG                                                                                    FTNMSG      1030     A     
 FTNMSG             ERMSG  DECPO,I,(THIS STATEMENT FORM IS OBSOLETE. USE A LEVEL 3         FTNMSG      1031     A     
 FTNMSG   , STATEMENT.)                                                                    FTNMSG      1032     A     
 FTNMSG                                                                                    FTNMSG      1033     A     
 FTNMSG             ERMSG  LOCF,FE,(ARG TO LOCF MAY NOT BE AN EXPRESSION)                  FTNMSG      1034     A     
 FTNMSG                                                                                    FTNMSG      1035     A     
 FTNMSG             ERMSG  ICS,FE,(INVALID USE OF A CHARACTER STRING.)                     FTNMSG      1036     A     
 FTNMSG                                                                                    FTNMSG      1037     A     
 FTNMSG             ERMSG    EQVLEN,FE,(EQUIVALENCED COMMON BLOCK EXCEEDS 131071 W         FTNMSG      1038     A     
 FTNMSG   ,ORDS.)                                                                          FTNMSG      1039     A     
 FTNMSG                                                                                    FTNMSG      1040     A     
 FTNMSG             ERMSG  ASAST,ANSI,(THIS STATEMENT TYPE IS NON-ANSI.)                   FTNMSG      1041     A     
 FTNMSG                                                                                    FTNMSG      1042     A     
 FTNMSG             ERMSG  ACALL,FE,(THIS PROGRAM UNIT CALLS ITSELF.)                      FTNMSG      1043     A     
 FTNMSG                                                                                    FTNMSG      1044     A     
 FTNMSG             ERMSG  DOCVCE,I,(CONTROL VARIABLE IN COMMON OR EQUIVALENCED, OP        FTNMSG      1045     A     
 FTNMSG   ,PTIMIZATION MAY BE INHIBITED)                                                   FTNMSG      1046     A     
 FTNMSG                                                                                    FTNMSG      1047     A     
 FTNMSG             ERMSG  ASHIFT,I,(SHIFT ARGUMENT MUST BE GREATER THAN -61 AND L         FTNMSG      1048     A     
 FTNMSG   ,ESS THAN 61.)                                                                   FTNMSG      1049     A     
 FTNMSG                                                                                    FTNMSG      1050     A     
 FTNMSG             ERMSG  AR58,FE,(ARITHMETIC STATEMENT FUNCTION REDEFINED.)              FTNMSG      1051     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1760    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG                                                                                    FTNMSG      1052     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1053          I
          -FCC0400
 FTNMSG             ERMSG  CONVRT,FE,(ABSOLUTE VALUE OF INTEGER CONSTANT GREATER T         FCC0400       68     A     
 FTNMSG   ,HAN 2**59-1 .)                                                                  FCC0400       69     A     
 FTNMSG                                                                                    FTNMSG      1054     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1055          I
          -FCC0825
 FTNMSG             ERMSG  E.DO305,ANSI,(OBJECT OF LOGICAL IF IS ILLEGAL DO TERMIN         FCC0825        6     A     
 FTNMSG   ,ATOR)                                                                           FCC0825        7     A     
 FTNMSG                                                                                    FTNMSG      1056     A     
 FTNMSG             ERMSG  DOEXT,FE,(NON-INNER LOOP BEGINNING AT THIS CARD IS ENTE         FTNMSG      1057          I
          -FCC1283
 FTNMSG   ,RED FROM OUTSIDE ITS RANGE.)                                                    FTNMSG      1058          I
          -FCC1283
 FTNMSG             ERMSG  DOEXT,I,(NON-INNER LOOP BEGINNING AT THIS CARD IS ENTER         FCC1283        8     A     
 FTNMSG   ,ED FROM OUTSIDE ITS RANGE.)                                                     FCC1283        9     A     
 FTNMSG                                                                                    FTNMSG      1059     A     
 FTNMSG             ERMSG  BUFIO,FE,(FWA AND LWA NOT IN SAME ARRAY, EQUIVALENCE CL         FTNMSG      1060          I
          -FCC0593
 FTNMSG   ,ASS, OR COMMON BLOCK.)                                                          FTNMSG      1061          I
          -FCC0593
 FTNMSG             UNUSED                                                                 FCC0593       25          I
          -FCC1638X 
 FTNMSG             ERMSG  FLOWER,ANSI,(CONTROL FLOW INTO END LINE NOT PERMITTED.)         FCC1638X     102     A     
 FTNMSG                                                                                    FTNMSG      1062     A     
 FTNMSG             ERMSG  BUFIO1,I,(FWA AND LWA NOT IN SAME ARRAY OR EQUIVALENCE          FTNMSG      1063          I
          -FCC0593
 FTNMSG   ,CLASS.)                                                                         FTNMSG      1064          I
          -FCC0593
 FTNMSG             ERMSG  BUFIO1,I,(FWA AND LWA NOT IN SAME ARRAY, EQUIVALENCE CL         FCC0593       26     A     
 FTNMSG   ,ASS, OR COMMON BLOCK.)                                                          FCC0593       27     A     
 FTNMSG                                                                                    FTNMSG      1065     A     
 FTNMSG             ERMSG  BUFIO2,FE,(EITHER OR BOTH OF FWA AND LWA ARE FORMAL PAR         FTNMSG      1066          I
          -FCC0593
 FTNMSG   ,AMETERS.)                                                                       FTNMSG      1067          I
          -FCC0593
 FTNMSG             UNUSED                                                                 FCC0593       28          I
          -FCC1670X 
 FTNMSG             ERMSG  E.IOND,I,(I/O FILE NOT DEFINED.)                                FCC1670X       6     A     
 FTNMSG                                                                                    FTNMSG      1068     A     
 FTNMSG             ERMSG  CDN.E4,FE,(ILLEGAL USE OF A FUNCTION NAME.)                     FTNMSG      1069     A     
 FTNMSG                                                                                    FTNMSG      1070     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1071     A     
 FTNMSG                                                                                    FTNMSG      1072     A     
 FTNMSG             ERMSG  GOTO,I,(AN IF STATEMENT MAY BE MORE EFFICIENT THAN A 2          FTNMSG      1073     A     
 FTNMSG   ,OR 3 BRANCH COMPUTED GO TO STATEMENT.)                                          FTNMSG      1074     A     
 FTNMSG                                                                                    FTNMSG      1075     A     
 FTNMSG             ERMSG  E313,FE,(ILLEGAL SYNTAX AFTER INITIAL KEYWORD OR NAME.)         FTNMSG      1076     A     
 FTNMSG                                                                                    FTNMSG      1077     A     
 FTNMSG             ERMSG  E314,I,(SPURIOUS CHARACTERS AFTER CONTINUE IGNORED.)            FTNMSG      1078     A     
 FTNMSG                                                                                    FTNMSG      1079     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1761    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG             ERMSG  LCC3,FE,(LOADER DIRECTIVE OUT OF SEQUENCE.  MUST PRECED         FTNMSG      1080     A     
 FTNMSG   ,E PROGRAM UNIT HEADER LINE.)                                                    FTNMSG      1081     A     
 FTNMSG                                                                                    FTNMSG      1082     A     
 FTNMSG             ERMSG  E316,FE,(ILLEGAL SYNTAX IN IF STATEMENT.)                       FTNMSG      1083     A     
 FTNMSG                                                                                    FTNMSG      1084     A     
 FTNMSG             ERMSG  RETPAR,FE,(NUMBER OF ACTUAL PARAMETERS PLUS RETURNS EXC         FTNMSG      1085     A     
 FTNMSG   ,EED 63)                                                                         FTNMSG      1086     A     
 FTNMSG                                                                                    FTNMSG      1087     A     
 FTNMSG             ERMSG  E318,ANSI,(AN EXPRESSION OF THE FORM A**B**C IS NON-ANS         FTNMSG      1088     A     
 FTNMSG   ,I, AND IS EVALUATED FROM LEFT TO RIGHT.)                                        FTNMSG      1089     A     
 FTNMSG                                                                                    FTNMSG      1090     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1091          I
          -FEAT121L 
 FTNMSG             ERMSG  E319,FE,(A C/ LIST DIRECTIVE MAY NOT BE FOLLOWED BY A C         FEAT121L      86     A     
 FTNMSG   ,ONTINUATION LINE.)                                                              FEAT121L      87     A     
 FTNMSG                                                                                    FTNMSG      1092     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1093          I
          -FCC0537
 FTNMSG             ERMSG  E.IHI,I,(HOLLERITH CONSTANT .GT. 10 CHARACTERS, EXCESS          FCC0537       10     A     
 FTNMSG   ,CHARACTERS INITIALIZED INTO SUCCEEDING WORDS.)                                  FCC0537       11     A     
 FTNMSG                                                                                    FTNMSG      1094     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1095          I
          -FCC1563X 
 FTNMSG             ERMSG  E.DTC,ANSI,(DATA VARIABLE TYPE DOES NOT MATCH CONSTANT.         FCC1563X      36     A     
 FTNMSG   ,)                                                                               FCC1563X      37     A     
 FTNMSG                                                                                    FTNMSG      1096     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1097          I
          -FCC1716X 
 FTNMSG             ERMSG  CA03,FE,(EXTERNAL NAME IN ARGUMENT LIST MUST APPEAR IN          FCC1716X      19     A     
 FTNMSG   ,EXTERNAL STATEMENT.)                                                            FCC1716X      20     A     
 FTNMSG                                                                                    FTNMSG      1098     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1099          I
          -FCC1998
 FTNMSG             ERMSG  DPBDA,ANSI,(NON-ANSI FORM OF BLOCK DATA STATEMENT.)             FCC1998       14     A     
 FTNMSG                                                                                    FTNMSG      1100     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1101          I
          -FCC1936
 FTNMSG             ERMSG  E324,FE,(UNRECOGNISED OPERATOR.)                                FCC1936        6          I
          -FCC2448
 FTNMSG             ERMSG  E324,FE,(UNRECOGNIZED OPERATOR.)                                FCC2448        5     A     
 FTNMSG                                                                                    FTNMSG      1102     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1103          I
          -FCCA435
 FTNMSG             ERMSG  E325,I,(SPURIOUS CHARACTERS AFTER END IGNORED.)                 FCCA435        5     A     
 FTNMSG                                                                                    FTNMSG      1104     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1105          I
          -FCC2292
 FTNMSG             ERMSG  E.DNC,FE,(VARIABLE NOT DECLARED IN LABEL COMMON)                FCC2292        8          I
          -FCCA549
 FTNMSG             ERMSG  E.DNC,I,(VARIABLE NOT DECLARED IN LABEL COMMON)                 FCCA549        5     A     
 FTNMSG                                                                                    FTNMSG      1106     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1107          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1762    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
          -FCC2285
 FTNMSG             ERMSG  E.PIL,FE,(ILLEGAL SYNTAX IN IMPLIED DO SPECIFICATION)           FCC2285        9     A     
 FTNMSG                                                                                    FTNMSG      1108     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1109          I
          -FCC2307
 FTNMSG             ERMSG  E328,ANSI,(SAME NAME USED AS FUNCTION AND SUBROUTINE)           FCC2307       16     A     
 FTNMSG                                                                                    FTNMSG      1110     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1111     A     
 FTNMSG                                                                                    FTNMSG      1112     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1113     A     
 FTNMSG                                                                                    FTNMSG      1114     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1115     A     
 FTNMSG                                                                                    FTNMSG      1116     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1117     A     
 FTNMSG                                                                                    FTNMSG      1118     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1119     A     
 FTNMSG                                                                                    FTNMSG      1120     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1121     A     
 FTNMSG                                                                                    FTNMSG      1122     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1123     A     
 FTNMSG                                                                                    FTNMSG      1124     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1125     A     
 FTNMSG                                                                                    FTNMSG      1126     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1127     A     
 FTNMSG                                                                                    FTNMSG      1128     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1129     A     
 FTNMSG                                                                                    FTNMSG      1130     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1131     A     
 FTNMSG                                                                                    FTNMSG      1132     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1133     A     
 FTNMSG                                                                                    FTNMSG      1134     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1135     A     
 FTNMSG                                                                                    FTNMSG      1136     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1137     A     
 FTNMSG                                                                                    FTNMSG      1138     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1139     A     
 FTNMSG                                                                                    FTNMSG      1140     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1141     A     
 FTNMSG                                                                                    FTNMSG      1142     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1143     A     
 FTNMSG                                                                                    FTNMSG      1144     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1145     A     
 FTNMSG                                                                                    FTNMSG      1146     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1147     A     
 FTNMSG                                                                                    FTNMSG      1148     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1149     A     
 FTNMSG                                                                                    FTNMSG      1150     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1151     A     
 FTNMSG                                                                                    FTNMSG      1152     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1153     A     
 FTNMSG                                                                                    FTNMSG      1154     A     
 FTNMSG             UNUSED                                                                 FTNMSG      1155     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1763    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNMSG  
  
 FTNMSG                                                                                    FTNMSG      1156     A     
 FTNMSG                                                                                    FTNMSG      1157     A     
 FTNMSG                                                                                    FTNMSG      1158     A     
 FTNMSG                                                                                    FTNMSG      1159     A     
 FTNMSG             LIST   A   ** LIST OF AVAILABLE ERROR NUMBERS **                       FTNMSG      1160     A     
 FTNMSG     LIST L  "AVAIL"                                                                FTNMSG      1161     A     
 FTNMSG                                                                                    FTNMSG      1162     A     
 FTNMSG             END    FTN23                                                           FTNMSG      1163     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FTNMSG  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FTNMSG                    1163      1106
          FCC0218                      1         1
          FCC0220                      1         1
          FCC0390                      1         1
          FEAT121L                     2         2
          FCC0400                      2         2
          FCC0537                      2         2
          FCC0539                      2         2
          FCC0593                      4         2
          FCC0587                      8         8
          FCC0762                      2         2
          FCC0787                      1         1
          FEAT155B                     2         2
          FEAT155F                     5         5
          FCC0825                      2         2
          FCC1283                      2         2
          FCC1385                      3         3
          FCC1388                      1         1
          FCC1300X                     3         3
          FCC1463X                     2         2
          FCC1289X                     2         2
          FCC1563X                     2         2
          FCC1638X                     1         1
          FCC1670X                     1         1
          FCC1716X                     2         2
          FCC1897                      1         1
          FCC1936                      1         0
          FCC1901                      2         2
          FCC1998                      1         1
          FCCA435                      1         1
          FCC2292                      1         0
          FCCA549                      1         1
          FCC2246                      1         1
          FCC2285                      2         2
          FCC2291                      1         1
          FCC2307                      1         1
          FCC2448                      1         1
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1764    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *PASS1* 
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *PASS1* 
  
 *PASS1*  *DECK     *PASS1*,COMPASS                                                        *PASS1*        1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *PASS1* 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          *PASS1*                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL   *DECK     PS1CTL                                                                 PS1CTL         1     A     
 PS1CTL             IDENT  PS1CTL                                                          PS1CTL         2     A     
 PS1CTL             TITLE              PS1CTL$ - PASS 1 , PHASE 2 CONTROLLER               PS1CTL         3     A     
 PS1CTL   *CALL     SSTCALL                                                                PS1CTL         4     A     
 PS1CTL             SPACE  4                                                               PS1CTL         5     A     
 PS1CTL   ***                                                                              PS1CTL         6     A     
 PS1CTL   *         PS1CTL$ IS THE INTERFACE ROUTINE BETWEEN SCANNER AND THE               PS1CTL         7     A     
 PS1CTL   *         STATEMENT PROCESSORS FOR ALL NON SPECIFICATION STATEMENTS              PS1CTL         8     A     
 PS1CTL   *                                                                                PS1CTL         9     A     
 PS1CTL                                                                                    PS1CTL        10     A     
 PS1CTL                                                                                    PS1CTL        11     A     
 PS1CTL    B=PS1CT  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             PS1CTL        12     A     
 PS1CTL             ENTRY  PH2CTL,PH2RETN,LDPS2                                            PS1CTL        13     A     
 PS1CTL                                                                                    PS1CTL        14     A     
 PS1CTL             EXT    RSELECT,OPTLVL,N.FERR,O.CBT,O.DIM                               PS1CTL        15     A     
 PS1CTL             EXT    DOLAB,DOLABCN,ERPRO,ERPROI,FORMAT,DFLAG                         PS1CTL        16     A     
 PS1CTL             EXT    OPSTAK,FSTEX                                                    PS1CTL        17     A     
 PS1CTL             EXT    O.ARLST,L.ARLST,S.ARLST                                         PS1CTL        18     A     
 PS1CTL             EXT    QFLAG,R=FLAG                                                    PS1CTL        19     A     
 PS1CTL                                                                                    PS1CTL        20     A     
 PS1CTL   *         ERROR MESSAGES ISSUED BY PS1CTL$                                       PS1CTL        21     A     
 PS1CTL                                                                                    PS1CTL        22     A     
 PS1CTL    E.CUL    EQU    18                CONFLICTING USE OF A LABEL                    PS1CTL        23     A     
 PS1CTL    E.BDA    EQU    41                STATEMENT ILLEGAL IN BLOCK DATA               PS1CTL        24     A     
 PS1CTL    E.HCNF   EQU    55           HEADER CARD NOT FIRST STATEMENT                    PS1CTL        25     A     
 PS1CTL    E.DECS   EQU    109               OUT OF SEQUENCE DECLARATIVE STMT              PS1CTL        26     A     
 PS1CTL    E.URS    EQU    178               NO PATH TO THIS STATEMENT                     PS1CTL        27     A     
 PS1CTL   *CALL,DBGCOM                                                                     PS1CTL        28     A     
 PS1CTL             EJECT                                                                  PS1CTL        29     A     
 PS1CTL   ***                                                                              PS1CTL        30     A     
 PS1CTL   *         JMP - FORM JUMP VECTOR FOR STATEMENT PROCESSING                        PS1CTL        31     A     
 PS1CTL   *                                                                                PS1CTL        32     A     
 PS1CTL   *         PROG IS THE NAME OF THE STATEMENT PROCESSOR                            PS1CTL        33     A     
 PS1CTL   *         LSFLAG IS TO BE SET FOR RETURN, GOTO OR ARITHMETIC IF STMTS            PS1CTL        34     A     
 PS1CTL   *                                                                                PS1CTL        35     A     
 PS1CTL    JMP      MACRO  PROG,LSFLAG,FSTX                                                PS1CTL        36     A     
 PS1CTL             IFC    EQ,//LSFLAG/                                                    PS1CTL        37     A     
 PS1CTL             SA6    B6                LS FLAG = 0                                   PS1CTL        38     A     
 PS1CTL             ELSE                                                                   PS1CTL        39     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1765    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL             SA7    B6                LS FLAG = 1                                   PS1CTL        40     A     
 PS1CTL             ENDIF                                                                  PS1CTL        41     A     
 PS1CTL             RJ     =X_PROG                                                         PS1CTL        42     A     
 PS1CTL             EQ     PH2RETN                                                         PS1CTL        43     A     
 PS1CTL             ENDM                                                                   PS1CTL        44     A     
 PS1CTL                                                                                    PS1CTL        45     A     
 PS1CTL                                                                                    PS1CTL        46     A     
 PS1CTL   *         EQU"S FOR RA CELLS USED BY THE COMPILER                                PS1CTL        47     A     
 PS1CTL                                                                                    PS1CTL        48     A     
 PS1CTL    SYM1     EQU    12B               FWA OF THE SYMBOL TABLE                       PS1CTL        49     A     
 PS1CTL    SYMEND   EQU    13B               LWA OF THE SYMBOL TABLE                       PS1CTL        50     A     
 PS1CTL    DIM1     EQU    17B               30/LENGTH,30/FWA OF DIM TABLE                 PS1CTL        51     A     
 PS1CTL    LTYPE    EQU    21B               TYPE OF LOGICAL IF                            PS1CTL        52     A     
 PS1CTL    CLABEL   EQU    23B               LABEL OF CURRENT STMT                         PS1CTL        53     A     
 PS1CTL    TYPE     EQU    24B               STATEMENT TYPE CODE ( 0 - 37 )                PS1CTL        54     A     
 PS1CTL    SELIST   EQU    32B               FWA OF E LIST                                 PS1CTL        55     A     
 PS1CTL    LELIST   EQU    34B               E LIST POINTER FOR LOGICAL IF                 PS1CTL        56     A     
 PS1CTL    DUKE     EQU    37B               BINARY LINE COUNT                             PS1CTL        57     A     
 PS1CTL    ATYPE    EQU    51B               ARITHMETICS FOR TYPES 3 AND 8 QQQQQQQ         PS1CTL        58     A     
 PS1CTL    PROGRAM  EQU    56B               E LIST OF SUBPROGRAM NAME                     PS1CTL        59     A     
 PS1CTL    NRLN     EQU    64B               NEXT AVAILABLE NUMBER FOR RI                  PS1CTL        60     A     
 PS1CTL                                                                                    PS1CTL        61     A     
 PS1CTL    CFMTN    ENTRY.                   NON ZERO IF TO CHECK FOR DELETED              PS1CTL        62          I
          -FCC0628
 PS1CTL   *                                  JUMP TO A FORMAT NUMBER                       PS1CTL        63          I
          -FCC0628
 PS1CTL                                                                                    PS1CTL        64          I
          -FCC0628
 PS1CTL    LSFLG    ENTRY.                   .NE. 0 IF LAST STMT WAS UNCONDITIONAL         PS1CTL        65     A     
 PS1CTL   *                                  JUMP ( ARITH IF , RETURN OR GOTO )            PS1CTL        66     A     
 PS1CTL                                                                                    PS1CTL        67     A     
 PS1CTL             USE    /DOLVL/                                                         PS1CTL        68     A     
 PS1CTL    DOFLAG   ENTRY.                   LEVEL OF NESTING                              PS1CTL        69     A     
 PS1CTL             USE    /STSORD/                                                        PS1CTL        70     A     
 PS1CTL    STSORD   BSSZ   1                 NUMBER OF STMT TEMPORARIES GENERATED          PS1CTL        71     A     
 PS1CTL             USE    *                 FOR A SINGLE STATEMENT                        PS1CTL        72     A     
 PS1CTL                                                                                    PS1CTL        73     A     
 PS1CTL             USE    /MACBUF/                                                        PS1CTL        74     A     
 PS1CTL    MACBUF   BSS    16                TEMPORARY STORAGE FOR VARIOUS ROUTINE         PS1CTL        75     A     
 PS1CTL             USE    0                                                               PS1CTL        76     A     
 PS1CTL                                                                                    PS1CTL        77     A     
 PS1CTL                                                                                    PS1CTL        78     A     
 PS1CTL                                                                                    PS1CTL        79     A     
 PS1CTL   *         R-LIST MACRO SKELETON FOR *RJ FTNERR.* (ISSUED IN DEBUG ONLY).         PS1CTL        80     A     
 PS1CTL                                                                                    PS1CTL        81     A     
 PS1CTL    RJ60     =      122B                                                            PS1CTL        82     A     
 PS1CTL    FERRMAC  RMHDR  RJ60,2      MACRO WORD 1                                        PS1CTL        83     A     
 PS1CTL             BSSZ   2           WORDS 2 AND 3                                       PS1CTL        84     A     
 PS1CTL             EJECT                                                                  PS1CTL        85     A     
 PS1CTL             TITLE              MAIN LOOP                                           PS1CTL        86     A     
 PS1CTL   **        PH2CTL - ENTRY POINT TO PHASE 2 FROM *DPCLOSE*                         PS1CTL        87     A     
 PS1CTL                                                                                    PS1CTL        88     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1766    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL    PH2CTL   SX7    2                                                               PS1CTL        89     A     
 PS1CTL             SA7    NRLN        NRLN = 2                                            PS1CTL        90     A     
 PS1CTL             EQ     D.PS4                                                           PS1CTL        91     A     
 PS1CTL             SPACE  2                                                               PS1CTL        92     A     
 PS1CTL   ***                                                                              PS1CTL        93     A     
 PS1CTL   *         IPH2 - INITIALIZE PHASE 2 FOR EXECUTABLE STMT PROCESSING               PS1CTL        94     A     
 PS1CTL   *                                                                                PS1CTL        95     A     
 PS1CTL    IPH2     ENTRY.                                                                 PS1CTL        96     A     
 PS1CTL             SA1    DUKE                                                            PS1CTL        97     A     
 PS1CTL             SA3    =XSPPFLAG                                                       PS1CTL        98     A     
 PS1CTL             ZR     X3,IPH2.0         IF SPP OPTION NOT SELECTED                    PS1CTL        99     A     
 PS1CTL             SA2    =XIFTLU.P+1                                                     PS1CTL       100     A     
 PS1CTL             BX6    X2                                                              PS1CTL       101     A     
 PS1CTL             SA6    A2-1                                                            PS1CTL       102     A     
 PS1CTL    IPH2.0   LX7    X1                                                              PS1CTL       103     A     
 PS1CTL             SA7    FSTEX             FSTEX = LINE NUM OF FIRST EXEC STMT           PS1CTL       104     A     
 PS1CTL             SA1    LWAWORK                                                         PS1CTL       105     A     
 PS1CTL             SA2    FWAWORK                                                         PS1CTL       106     A     
 PS1CTL             IX3    X1-X2             WORKING STORAGE AVAILABLE                     PS1CTL       107     A     
 PS1CTL             SX4    X3-400B           ENSURE AT LEAST 400B WORDS LEFT               PS1CTL       108     A     
 PS1CTL             NG     X4,CTBLOVL        ERROR IF NOT                                  PS1CTL       109     A     
 PS1CTL             SX5    ARLSZ             ARLIST BUFFER SIZE DEFAULT                    PS1CTL       110     A     
 PS1CTL             IX3    X5-X4                                                           PS1CTL       111     A     
 PS1CTL             NG     X3,IPH2.2         USE MINIMUM OF THE TWO SIZES                  PS1CTL       112     A     
 PS1CTL             SX5    X4                                                              PS1CTL       113     A     
 PS1CTL    IPH2.2   ALLOC  ARLST,X5          ALLOCATE ARLIST BUFFER SPACE                  PS1CTL       114     A     
 PS1CTL             SA2    S.ARLST           AMOUNT OF STORAGE ALLOCATED                   PS1CTL       115     A     
 PS1CTL             SA3    O.ARLST           ARLIST BUFFER BASE                            PS1CTL       116     A     
 PS1CTL             BX6    X2                                                              PS1CTL       117     A     
 PS1CTL             SB3    X3                FWA OF ARLIST BUFFER                          PS1CTL       118     A     
 PS1CTL             SA1    OPSTAK+1          BEGINNING OF ADDSUB INFORMATION               PS1CTL       119     A     
 PS1CTL             SA6    L.ARLST           AMOUNT OF ALLOCATION USED                     PS1CTL       120     A     
 PS1CTL             SB5    1                                                               PS1CTL       121     A     
 PS1CTL             MX0    60-18                                                           PS1CTL       122     A     
 PS1CTL             SB6    60                                                              PS1CTL       123     A     
 PS1CTL    LOOP     UX7    B7,X1             GET SHIFT COUNT AND ADDRESS                   PS1CTL       124     A     
 PS1CTL             SB4    B6-B7             COMPUTE SHIFT COUNT                           PS1CTL       125     A     
 PS1CTL             SA4    X7                TARGET WORD FOR ADDRESS SUBSTITUTION          PS1CTL       126     A     
 PS1CTL             LX1    B4,X4             POSITION INSTRUCTION                          PS1CTL       127     A     
 PS1CTL             LX7    B7,X0             POSITION MASK                                 PS1CTL       128     A     
 PS1CTL             SB2    X1                ADDRESS BIAS                                  PS1CTL       129     A     
 PS1CTL             BX1    X7*X4             CLEAR BIAS                                    PS1CTL       130     A     
 PS1CTL             SX3    B2+B3             ADD ARLIST BUFFER ADDRESS TO BIAS             PS1CTL       131     A     
 PS1CTL             LX5    B7,X3             POSITION RESULT                               PS1CTL       132     A     
 PS1CTL             BX6    X1+X5             INSERT ADDRESS INTO INSTRUCTION               PS1CTL       133     A     
 PS1CTL             SA1    A1+B5             NEXT ADDSUB INFORMATION WORD                  PS1CTL       134     A     
 PS1CTL             SA6    A4                RESTORE                                       PS1CTL       135     A     
 PS1CTL             NZ     X1,LOOP                                                         PS1CTL       136     A     
 PS1CTL             SA2    DFLAG                                                           PS1CTL       137     A     
 PS1CTL             ZR     X2,IPH2           IF D OPTION NOT SELECTED                      PS1CTL       138     A     
 PS1CTL             RJ     =XPOINTRS         SET UP POINTERS FOR BUGPRO                    PS1CTL       139     A     
 PS1CTL             CALLF  BUGPRO,B5         INIT FOR DEBUG PROCESSING                     PS1CTL       140     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1767    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL             SX3    DEBUG-1                                                         PS1CTL       141     A     
 PS1CTL             SA2    D.SSMTB                                                         PS1CTL       142     A     
 PS1CTL             IX6    X2+X3                                                           PS1CTL       143     A     
 PS1CTL             SA6    SYM1              UPDATE SYM1                                   PS1CTL       144     A     
 PS1CTL             SA2    D.ESMTB                                                         PS1CTL       145     A     
 PS1CTL             IX6    X2+X3                                                           PS1CTL       146     A     
 PS1CTL             SA6    SYMEND            UPDATE SYMEND                                 PS1CTL       147     A     
 PS1CTL             SA2    D.ELAST                                                         PS1CTL       148     A     
 PS1CTL             IX6    X2+X3                                                           PS1CTL       149     A     
 PS1CTL             SA6    LWAWORK           UPDATE LWAWORK                                PS1CTL       150     A     
 PS1CTL             SA2    D.ELIST                                                         PS1CTL       151     A     
 PS1CTL             IX6    X2+X3                                                           PS1CTL       152     A     
 PS1CTL             SA6    SELIST            UPDATE SELIST                                 PS1CTL       153     A     
 PS1CTL             SA2    NOACT                                                           PS1CTL       154     A     
 PS1CTL             NZ     X2,IPH2.1         NO PACKET INFORMATION                         PS1CTL       155     A     
 PS1CTL             MX6    0                                                               PS1CTL       156     A     
 PS1CTL             SA6    D.ON                                                            PS1CTL       157     A     
 PS1CTL             CALLF  BUGACT,B5         ACTIVATE OPTIONS                              PS1CTL       158     A     
 PS1CTL    IPH2.1   CALL   CVDB        ISSUE *COMPUTE VARDIM BOUNDS* R-MACRO               PS1CTL       159     A     
 PS1CTL             EQ     IPH2                                                            PS1CTL       160     A     
 PS1CTL             SPACE  3                                                               PS1CTL       161     A     
 PS1CTL   ***                                                                              PS1CTL       162     A     
 PS1CTL   *         PH2RETN - RETURN POINT FROM STMT PROCESSOR S                           PS1CTL       163     A     
 PS1CTL   *                                                                                PS1CTL       164     A     
 PS1CTL    PH2RETN  SA1    CLABEL                                                          PS1CTL       165     A     
 PS1CTL             SB5    1                                                               PS1CTL       166     A     
 PS1CTL             ZR     X1,PH2EL    IF NO LABEL                                         PS1CTL       167     A     
 PS1CTL             RJ     DOLAB             OUTPUT DOEND MACROS FOR LOOPS THAT            PS1CTL       168     A     
 PS1CTL   *                                  TERMINATE ON THIS STMT                        PS1CTL       169     A     
 PS1CTL                                                                                    PS1CTL       170     A     
 PS1CTL    PH2EL    SA5    RSELECT                                                         PS1CTL       171     A     
 PS1CTL             ZR     X5,PH2DB          R = 0                                         PS1CTL       172     A     
 PS1CTL             ADDREF B0                TERMINATE THE LINE OF REFERENCES              PS1CTL       173     A     
 PS1CTL                                                                                    PS1CTL       174     A     
 PS1CTL    PH2DB    SA3    DFLAG                                                           PS1CTL       175     A     
 PS1CTL             ZR     X3,PH2SCAN        IF NOT DEBUG MODE                             PS1CTL       176     A     
 PS1CTL             CALL   DOP         DEBUG OPTIONS PROCESSOR                             PS1CTL       177     A     
 PS1CTL             SB5    1                                                               PS1CTL       178     A     
 PS1CTL             EQ     D.PS4       CONTINUE MAIN *PS1CTL* LOOP                         PS1CTL       179     A     
 PS1CTL             EJECT                                                                  PS1CTL       180     A     
 PS1CTL   ***                                                                              PS1CTL       181     A     
 PS1CTL   *         PH2SCAN - START OF STATEMENT PROCESSING LOOP                           PS1CTL       182     A     
 PS1CTL   *                                                                                PS1CTL       183     A     
 PS1CTL    PH2SCAN  CALL   SCANNER     TYPE AND CONVERT STMT TO E-LIST                     PS1CTL       184     A     
 PS1CTL                                                                                    PS1CTL       185     A     
 PS1CTL    D.PS4    SA2    TYPE                                                            PS1CTL       186     A     
 PS1CTL             SX6    X2-12                                                           PS1CTL       187     A     
 PS1CTL             MI     X6,D.PS4A   IF NOT EXECUTABLE                                   PS1CTL       188     A     
 PS1CTL                                                                                    PS1CTL       189     A     
 PS1CTL             SA3    NRLN                                                            PS1CTL       190     A     
 PS1CTL             SA4    =XN.EXST                                                        PS1CTL       191     A     
 PS1CTL             SX6    X3-74000B                                                       PS1CTL       192     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1768    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL             SX7    X4+B5       N.EXST = N.EXST + 1                                 PS1CTL       193     A     
 PS1CTL             SA7    A4                                                              PS1CTL       194     A     
 PS1CTL             MI     X6,D.PSAA   IF NRLN < 74000B                                    PS1CTL       195     A     
 PS1CTL                                                                                    PS1CTL       196     A     
 PS1CTL             WRM    EOSM        *EOS* TO RLIST TO STOP SEQ ACCUMULATION             PS1CTL       197     A     
 PS1CTL             SX6    2                                                               PS1CTL       198     A     
 PS1CTL             SA6    NRLN        NRLN = 2                                            PS1CTL       199     A     
 PS1CTL                                                                                    PS1CTL       200     A     
 PS1CTL    D.PSAA   SA4    DUKE                                                            PS1CTL       201     A     
 PS1CTL             SA3    NRLN                                                            PS1CTL       202     A     
 PS1CTL             LX4    R1.INP                                                          PS1CTL       203     A     
 PS1CTL             SB3    OC.BOS                                                          PS1CTL       204     A     
 PS1CTL             IX5    X3+X4                                                           PS1CTL       205     A     
 PS1CTL             PX6    B3,X5                                                           PS1CTL       206     A     
 PS1CTL             SA6    MACBUF                                                          PS1CTL       207     A     
 PS1CTL             SB1    B5                                                              PS1CTL       208     A     
 PS1CTL             WRITEW =XF.RLST,A6,1                                                   PS1CTL       209     A     
 PS1CTL             SB5    B1                                                              PS1CTL       210     A     
 PS1CTL                                                                                    PS1CTL       211     A     
 PS1CTL    D.PS4A   SA2    TYPE                                                            PS1CTL       212     A     
 PS1CTL             SA1    CLABEL                                                          PS1CTL       213     A     
 PS1CTL             SA3    PROGRAM                                                         PS1CTL       214     A     
 PS1CTL             SB7    X2           SET TYPE IN B7                                     PS1CTL       215     A     
 PS1CTL             NZ     X3,PS2SC6         IF NOT BLOCK DATA                             PS1CTL       216     A     
 PS1CTL             SA2    BDTYPE                                                          PS1CTL       217     A     
 PS1CTL             LX2    X2,B7                                                           PS1CTL       218     A     
 PS1CTL             PL     X2,D.BDA          IF TYPE NOT ALLOWED IN BLK DATA               PS1CTL       219     A     
 PS1CTL             SB6    B7-2                                                            PS1CTL       220     A     
 PS1CTL             LT     B6,D.PS5          IF A HEADER CARD                              PS1CTL       221     A     
 PS1CTL             SB6    B6-10+2                                                         PS1CTL       222     A     
 PS1CTL             LT     B6,D.DEC          IF A DECLAR. OUT OF SEQUENCE                  PS1CTL       223     A     
 PS1CTL             EQ     PS2SC.S                                                         PS1CTL       224     A     
 PS1CTL                                                                                    PS1CTL       225     A     
 PS1CTL    PS2SC6   SB6    12                                                              PS1CTL       226     A     
 PS1CTL             GE     B7,B6,PS2SC3      IF NOT DECLARATIVE                            PS1CTL       227     A     
 PS1CTL             SB4    9                                                               PS1CTL       228     A     
 PS1CTL             GT     B7,B4,PS2SC.S     IF NOT A SPECIFICATION STMT                   PS1CTL       229     A     
 PS1CTL             EQ     B7,B4,PS2SC.F     IF A FORMAT STMT                              PS1CTL       230     A     
 PS1CTL             SPACE                                                                  PS1CTL       231     A     
 PS1CTL             GT     B7,B5,D.DEC  IF NOT A HEADER CARD                               PS1CTL       232     A     
 PS1CTL    D.PS5    SB6    -E.HCNF                                                         PS1CTL       233          I
          -FCC0628
 PS1CTL             SB7    PH2SCAN                                                         PS1CTL       234          I
          -FCC0628
 PS1CTL             EQ     ERPRO                                                           PS1CTL       235          I
          -FCC0628
 PS1CTL    D.DEC    SB6    -E.DECS      DECLARATIVE OUT OF SEQUENCE                        PS1CTL       236          I
          -FCC0628
 PS1CTL             SB7    PH2SCAN                                                         PS1CTL       237          I
          -FCC0628
 PS1CTL             EQ     ERPRO                                                           PS1CTL       238          I
          -FCC0628
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1769    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL                                                                                    PS1CTL       239          I
          -FCC0628
 PS1CTL    D.BDA    SB6    -E.BDA                                                          PS1CTL       240          I
          -FCC0628
 PS1CTL             SB7    PH2SCAN                                                         PS1CTL       241          I
          -FCC0628
 PS1CTL             EQ     ERPRO                                                           PS1CTL       242          I
          -FCC0628
 PS1CTL   *         CHECK FOR ERROR OF THE FORM:                                           PS1CTL       243          I
          -FCC0628
 PS1CTL   *                IF( EXPR ) N1,N2,N3                                             PS1CTL       244          I
          -FCC0628
 PS1CTL   *         N1     FORMAT(...)                                                     PS1CTL       245          I
          -FCC0628
 PS1CTL   *         WHERE THE IF PROCESSOR DELETED THE JUMP TO N1                          PS1CTL       246          I
          -FCC0628
 PS1CTL                                                                                    PS1CTL       247          I
          -FCC0628
 PS1CTL    PS2SC.F  SA3    CFMTN                                                           PS1CTL       248          I
          -FCC0628
 PS1CTL             MX6    0                                                               PS1CTL       249          I
          -FCC0628
 PS1CTL             SA6    A3                CLEAR FLAG                                    PS1CTL       250          I
          -FCC0628
 PS1CTL             ZR     X3,PS2SC2         IF LABEL NOT PREV REFED AS STMT NO            PS1CTL       251          I
          -FCC0628
 PS1CTL             SX4    B0                                                              PS1CTL       252          I
          -FCC0628
 PS1CTL             LX1    60-12                                                           PS1CTL       253          I
          -FCC0628
 PS1CTL             BX3    X1                X3 = LABEL                                    PS1CTL       254          I
          -FCC0628
 PS1CTL             SB6    E.CUL             CONFLICTING USE OF LABEL                      PS1CTL       255          I
          -FCC0628
 PS1CTL             SB7    PH2SCAN                                                         PS1CTL       256          I
          -FCC0628
 PS1CTL             EQ     ERPRO                                                           PS1CTL       257          I
          -FCC0628
 PS1CTL                                                                                    PS1CTL       258          I
          -FCC0628
 PS1CTL    PS2SC2   RJ     FORMAT                                                          PS1CTL       259          I
          -FCC0628
 PS1CTL                                                                                    FCC0628        9     A     
 PS1CTL    D.PS5    POSTER SEV=FE,NR=E.HCNF,RETURN=PH2SCAN  *HDR OUT OF SEQ*               FCC0628       10          I
          -FCC1768
 PS1CTL    D.PS5    POSTER SEV=FE,NR=E.HCNF *HDR OUT OF SEQ*                               FCC1768       17     A     
 PS1CTL             SA1    C$STMT                                                          FCC1768       18     A     
 PS1CTL             ZR     X1,PH2SCAN  IF NEXT STMT IS NOT C$DEBUG STMT                    FCC1768       19     A     
 PS1CTL             CALL   SCANNER     BURST NEXT STMT INTO A SBUFF                        FCC1768       20     A     
 PS1CTL             CALL   DBGINTX     PROCESS DEBUG STMT                                  FCC1768       21     A     
 PS1CTL             EQ     PH2SCAN     REJOIN NORMAL FLOW OF PROGRAM                       FCC1768       22     A     
 PS1CTL                                                                                    FCC0628       11     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1770    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL    D.DEC    POSTER SEV=FE,NR=E.DECS,RETURN=PH2SCAN  *DECL OUT OF SEQ*              FCC0628       12          I
          -FCC1768
 PS1CTL    D.DEC    POSTER SEV=FE,NR=E.DECS *DECL OUT OF SEQ*                              FCC1768       23     A     
 PS1CTL             SA1    C$STMT                                                          FCC1768       24     A     
 PS1CTL             ZR     X1,PH2SCAN  IF NEXT STMT IS NOT C$DEBUG STMT                    FCC1768       25     A     
 PS1CTL             CALL   SCANNER     BURST NEXT STMT INTO A SBUFF                        FCC1768       26     A     
 PS1CTL             CALL   DBGINTX     PROCESS DEBUG STMT                                  FCC1768       27     A     
 PS1CTL             EQ     PH2SCAN     REJOIN NORMAL FLOW OF PROGRAM                       FCC1768       28     A     
 PS1CTL                                                                                    FCC0628       13     A     
 PS1CTL    D.BDA    POSTER SEV=FE,NR=E.BDA,RETURN=PH2SCAN  *ILL STMT IN BLK DATA*          FCC0628       14     A     
 PS1CTL                                                                                    FCC0628       15     A     
 PS1CTL    PS2SC.F  CALL   FORMAT      PROCESS FORMAT STATEMENT                            FCC0628       16     A     
 PS1CTL             EQ     PH2EL                                                           PS1CTL       260     A     
 PS1CTL                                                                                    PS1CTL       261     A     
 PS1CTL   *         CHECK FOR UNREACHABLE STMTS                                            PS1CTL       262     A     
 PS1CTL                                                                                    PS1CTL       263     A     
 PS1CTL    PS2SC3   SA2    LSFLG                                                           PS1CTL       264     A     
 PS1CTL             MX6    0                                                               PS1CTL       265          I
          -FCC0628
 PS1CTL             SA6    CFMTN                                                           PS1CTL       266          I
          -FCC0628
 PS1CTL             ZR     X2,PS2SC4         IF LAST STMT WAS NOT AN UNCONDITIONAL         PS1CTL       267     A     
 PS1CTL   *                                  JUMP                                          PS1CTL       268     A     
 PS1CTL             NZ     X1,PS2SC4         IF THIS STMT HAS A LABEL                      PS1CTL       269     A     
 PS1CTL             SA3    JMPBIT            BIT VECTOR                                    PS1CTL       270     A     
 PS1CTL             LX4    B7,X3                                                           PS1CTL       271     A     
 PS1CTL             NG     X4,PS2SC.S        IF THIS STMT TERMINATES THE BLOCK             PS1CTL       272          I
          -FCC1425
 PS1CTL             MI     X4,PS2SC4   IF THIS STMT TERMINATES THE BLOCK                   FCC1425        5     A     
 PS1CTL             MX5    0                                                               PS1CTL       273     A     
 PS1CTL             CALL   WLABM       OUTPUT A LABEL MAC WITH IH = 0 FOR PASS 2           PS1CTL       274     A     
 PS1CTL                                                                                    PS1CTL       275     A     
 PS1CTL             SB6    -E.URS            UNREACHABLE STMT                              PS1CTL       276          I
          -FCC0628
 PS1CTL             SB7    PS2SC.S                                                         PS1CTL       277          I
          -FCC0628
 PS1CTL             EQ     ERPROI                                                          PS1CTL       278          I
          -FCC0628
 PS1CTL             POSTER SEV=INF,NR=E.URS,RETURN=PS2SC.S  *UNREACHABLE STMT*             FCC0628       17     A     
 PS1CTL                                                                                    PS1CTL       279     A     
 PS1CTL    PS2SC4   ZR     X1,PS2SC.S        IF NO LABEL                                   PS1CTL       280     A     
 PS1CTL             RJ     DOLABCN           PROCESS LABEL DEFINITION                      PS1CTL       281     A     
 PS1CTL                                                                                    PS1CTL       282     A     
 PS1CTL   *         CHECK AND RESET MISCELLANEOUS FLAGS                                    PS1CTL       283     A     
 PS1CTL                                                                                    PS1CTL       284     A     
 PS1CTL    PS2SC.S  SA3    STSORD            NUMBER OF ST. S USED FOR LAST STMT            PS1CTL       285     A     
 PS1CTL             SA4    =XN.ST                                                          PS1CTL       286     A     
 PS1CTL             MX6    0                                                               PS1CTL       287     A     
 PS1CTL             SA6    A3                RESET STSORD                                  PS1CTL       288     A     
 PS1CTL             IX5    X4-X3             STMAX-STSORD                                  PS1CTL       289     A     
 PS1CTL   +         PL     X5,*+1                                                          PS1CTL       290     A     
 PS1CTL             SX7    X3                                                              PS1CTL       291     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1771    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL             SA7    A4          N.ST = MAX( N.ST , STSORD )                         PS1CTL       292     A     
 PS1CTL                                                                                    PS1CTL       293     A     
 PS1CTL             SA1    TYPE                                                            PS1CTL       294     A     
 PS1CTL             SB7    X1                                                              PS1CTL       295     A     
 PS1CTL    DBG1     SA2    FSTEX                                                           PS1CTL       296     A     
 PS1CTL             NZ     X2,PS2SC.S1       IF EXECUTABLES APPEARED                       PS1CTL       297     A     
 PS1CTL                                                                                    PS1CTL       298     A     
 PS1CTL             SA3    BT.EXEC           BIT TABLE                                     PS1CTL       299     A     
 PS1CTL             LX4    B7,X3                                                           PS1CTL       300     A     
 PS1CTL             NG     X4,PS2SC.S1       IF STMT IS NOT EXECUTABLE                     PS1CTL       301     A     
 PS1CTL                                                                                    PS1CTL       302     A     
 PS1CTL             RJ     IPH2              INITIALIZE FOR PHASE 2                        PS1CTL       303     A     
 PS1CTL                                                                                    PS1CTL       304     A     
 PS1CTL             SA1    TYPE                                                            PS1CTL       305     A     
 PS1CTL             SB7    X1                                                              PS1CTL       306     A     
 PS1CTL                                                                                    PS1CTL       307     A     
 PS1CTL    PS2SC.S1 SB3    B7+B7             2*STMT TYPE                                   PS1CTL       308     A     
 PS1CTL             MX6    0                 X6 = 0                                        PS1CTL       309     A     
 PS1CTL             SX7    B5                X7 = 1                                        PS1CTL       310     A     
 PS1CTL             SB6    LSFLG                                                           PS1CTL       311     A     
 PS1CTL             JP     VTABL-2*10+B3     JUMP TO APPROPIATE STMT PROCESSOR             PS1CTL       312     A     
 PS1CTL    EOSM     VFD    12/2000B+OC.EOS,48/0                                            PS1CTL       313     A     
 PS1CTL             SPACE  3                                                               PS1CTL       314     A     
 PS1CTL   *         BIT 59-I ON IF STMT WITH TYPE I TERMINATES SUBPROGRAM                  PS1CTL       315     A     
 PS1CTL                                                                                    PS1CTL       316     A     
 PS1CTL    JMPBIT   VFD    13/0              0 - 12                                        PS1CTL       317     A     
 PS1CTL             VFD    1/-0              13                                            PS1CTL       318     A     
 PS1CTL             VFD    22/0              14 - 35                                       PS1CTL       319     A     
 PS1CTL             VFD    2/-0              36 - 37                                       PS1CTL       320     A     
 PS1CTL             VFD    32/0              38 - 59                                       PS1CTL       321     A     
 PS1CTL                                                                                    PS1CTL       322     A     
 PS1CTL   *         BIT 59-I SET IF STMT WITH TYPE CODE = I IS NOT EXECUTABLE              PS1CTL       323     A     
 PS1CTL                                                                                    PS1CTL       324     A     
 PS1CTL    BT.EXEC  VFD    14/-0             0 - 13 NOT EXECUTABLE                         PS1CTL       325          I
          -FCC0628
 PS1CTL             VFD    22/0        14 - 35                                             PS1CTL       326          I
          -FCC0628
 PS1CTL             VFD    34/-0             36 - 59                                       PS1CTL       327          I
          -FCC0628
 PS1CTL    BT.EXEC  VFD    14/-0        0 - 13                                             FCC0628       18     A     
 PS1CTL             VFD    4/0         14 - 17                                             FCC0628       19     A     
 PS1CTL             VFD    1/-0        18                                                  FCC0628       20     A     
 PS1CTL             VFD    17/0        19 - 35                                             FCC0628       21     A     
 PS1CTL             VFD    34/-0       36 - 59                                             FCC0628       22     A     
 PS1CTL   *         STATEMENT TYPE MASK FOR BLOCK DATA                                     PS1CTL       328     A     
 PS1CTL    BDTYPE   VFD    2/3,2/0           HEADER CARD TYPES                             PS1CTL       329     A     
 PS1CTL             VFD    5/33B             ALLOWABLE DECLARATIVES                        PS1CTL       330     A     
 PS1CTL             VFD    5/11B,23/0,1/1    ALLOWABLE EXECUTABLES(DATA, END)              PS1CTL       331     A     
 PS1CTL             VFD    22/0              ALL OTHERS ILLEGAL                            PS1CTL       332     A     
 PS1CTL             SPACE  3                                                               PS1CTL       333     A     
 PS1CTL   ***                                                                              PS1CTL       334     A     
 PS1CTL   *         JUMP TABLE FOR THE STATEMENT PROCESSORS                                PS1CTL       335     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1772    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL   *                                                                                PS1CTL       336     A     
 PS1CTL    VTABL    RJ     =XDATA            10 - DATA STMT                                PS1CTL       337     A     
 PS1CTL             EQ     PH2EL                                                           PS1CTL       338     A     
 PS1CTL                                                                                    PS1CTL       339     A     
 PS1CTL             RJ     =XNAMELST         11 - NAMELIST/GN/...                          PS1CTL       340     A     
 PS1CTL             EQ     PH2EL                                                           PS1CTL       341     A     
 PS1CTL                                                                                    PS1CTL       342     A     
 PS1CTL             JMP    ARITH,,NX         12- ASF OR V = E                              PS1CTL       343     A     
 PS1CTL                                                                                    PS1CTL       344     A     
 PS1CTL             RJ     END               13 - END CARD                                 PS1CTL       345     A     
 PS1CTL             EQ     LDPS2             LOAD PASS 2                                   PS1CTL       346     A     
 PS1CTL                                                                                    PS1CTL       347     A     
 PS1CTL             JMP    ASSIGN            14 - ASSIGN N TO I                            PS1CTL       348     A     
 PS1CTL                                                                                    PS1CTL       349     A     
 PS1CTL             JMP    GOTO,1            15 - GO TO I , ETC                            PS1CTL       350     A     
 PS1CTL                                                                                    PS1CTL       351     A     
 PS1CTL             JMP    IFE,1             16 - IF(E) N1,N2,N3                           PS1CTL       352     A     
 PS1CTL                                                                                    PS1CTL       353     A     
 PS1CTL             JMP    IFL               17 - IF(E) S                                  PS1CTL       354     A     
 PS1CTL                                                                                    PS1CTL       355     A     
 PS1CTL             MX6    0                 18 - BAD STATEMENT                            PS1CTL       356     A     
 PS1CTL             SA6    LSFLG                                                           PS1CTL       357     A     
 PS1CTL             EQ     PH2RETN                                                         PS1CTL       358     A     
 PS1CTL                                                                                    PS1CTL       359     A     
 PS1CTL             JMP    CALL              19 - CALL NAME...                             PS1CTL       360     A     
 PS1CTL                                                                                    PS1CTL       361     A     
 PS1CTL             JMP    RETURN,1          20 - RETURN                                   PS1CTL       362     A     
 PS1CTL                                                                                    PS1CTL       363     A     
 PS1CTL             JMP    CONT              21 - CONTINUE                                 PS1CTL       364     A     
 PS1CTL                                                                                    PS1CTL       365     A     
 PS1CTL             JMP    STOPP,1           22 - STOP  OR  STOP NNN                       PS1CTL       366     A     
 PS1CTL                                                                                    PS1CTL       367     A     
 PS1CTL             JMP    PAUSEP            23 - PAUSE                                    PS1CTL       368     A     
 PS1CTL                                                                                    PS1CTL       369     A     
 PS1CTL             JMP    DOPROC            24 - DO N I = N1,N2,N3                        PS1CTL       370     A     
 PS1CTL                                                                                    PS1CTL       371     A     
 PS1CTL             JMP    READ              25 - READ                                     PS1CTL       372     A     
 PS1CTL                                                                                    PS1CTL       373     A     
 PS1CTL             JMP    WRITE             26 - WRITE N,LIST  ETC                        PS1CTL       374     A     
 PS1CTL                                                                                    PS1CTL       375     A     
 PS1CTL             JMP    BUFIN             27 - BUFFER IN (U,K) (A,B)                    PS1CTL       376     A     
 PS1CTL                                                                                    PS1CTL       377     A     
 PS1CTL             JMP    BUFOUT            28 - BUFFER OUT (U,K) (A,B)                   PS1CTL       378     A     
 PS1CTL                                                                                    PS1CTL       379     A     
 PS1CTL             JMP    ENC               29 - ENCODE (N,F,A) K                         PS1CTL       380     A     
 PS1CTL                                                                                    PS1CTL       381     A     
 PS1CTL             JMP    DEC               30 - DECODE (N,F,A) K                         PS1CTL       382     A     
 PS1CTL                                                                                    PS1CTL       383     A     
 PS1CTL             JMP    REW               31 -REWIND U                                  PS1CTL       384     A     
 PS1CTL                                                                                    PS1CTL       385     A     
 PS1CTL             JMP    BKSP              32 - BACK SPACE U                             PS1CTL       386     A     
 PS1CTL                                                                                    PS1CTL       387     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1773    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL                                                                                    PS1CTL       388     A     
 PS1CTL             JMP    ENDFILE           33 - END FILE U                               PS1CTL       389     A     
 PS1CTL                                                                                    PS1CTL       390     A     
 PS1CTL             JMP    PRINT             34 - PRINT F,LIST                             PS1CTL       391     A     
 PS1CTL                                                                                    PS1CTL       392     A     
 PS1CTL             JMP    PUNCH             35 - PUNCH F,LIST                             PS1CTL       393     A     
 PS1CTL                                                                                    PS1CTL       394     A     
 PS1CTL             CALL ENTRY                                                             PS1CTL       395     A     
 PS1CTL             EQ     PH2RETN                                                         PS1CTL       396     A     
 PS1CTL                                                                                    PS1CTL       397     A     
 PS1CTL             RJ     =XEND             37 - EOF ( END CARD ASSUMED )                 PS1CTL       398     A     
 PS1CTL             EQ     LDPS2                                                           PS1CTL       399     A     
 PS1CTL             TITLE              TERMINATE PASS 1 , LOAD PASS 2                      PS1CTL       400     A     
 PS1CTL   ***                                                                              PS1CTL       401     A     
 PS1CTL   *         LDPS2 - LOAD PASS 2                                                    PS1CTL       402     A     
 PS1CTL   *                                                                                PS1CTL       403     A     
 PS1CTL    LDPS2    SA1    DFLAG                                                           PS1CTL       404     A     
 PS1CTL             ZR     X1,LDPS21         IF DEBUG NOT SELECTED                         PS1CTL       405     A     
 PS1CTL                                                                                    PS1CTL       406     A     
 PS1CTL   *         SCAN AREA LIST TABLE FOR ERRORS                                        PS1CTL       407     A     
 PS1CTL                                                                                    PS1CTL       408     A     
 PS1CTL             SA1    D.SFDIT           FWA OF AREA LIST                              PS1CTL       409     A     
 PS1CTL             SA2    D.EFDIT           LWA+1                                         PS1CTL       410     A     
 PS1CTL             SB2    X1                                                              PS1CTL       411     A     
 PS1CTL             SB3    X2                                                              PS1CTL       412     A     
 PS1CTL             EQ     B2,B3,LDPS21      IF NO ERRORS                                  PS1CTL       413     A     
 PS1CTL                                                                                    PS1CTL       414     A     
 PS1CTL             MX6    0                                                               PS1CTL       415     A     
 PS1CTL             SA6    D.NOERR           SET NO. OF ERRORS TO ZERO                     PS1CTL       416     A     
 PS1CTL                                                                                    PS1CTL       417     A     
 PS1CTL             CALLF  BUGSOUT,B5   GO CHECK FOR ERRORS                                PS1CTL       418     A     
 PS1CTL                                                                                    PS1CTL       419     A     
 PS1CTL    LDPS21   SB1    1                                                               PS1CTL       420     A     
 PS1CTL             WRITER =XF.RLST                                                        PS1CTL       421     A     
 PS1CTL             REWIND =XF.RLST                                                        PS1CTL       422     A     
 PS1CTL                                                                                    PS1CTL       423     A     
 PS1CTL   *         IF REFERENCE MAP OPTION SELECTED (R .NE. 0), TERMINATE THE             PS1CTL       424     A     
 PS1CTL   *         REFERENCES BLOCK (WRITTEN BY -ADDREF-) ON THE *REFMAP* FILE            PS1CTL       425     A     
 PS1CTL   *         AND COPY THE COMMON AND EQUIVALENCE TABLES TO THE FILE.                PS1CTL       426     A     
 PS1CTL   *         THE REFERENCES BLOCK TERMINATOR IS ONE OR MORE ZERO WORDS.             PS1CTL       427     A     
 PS1CTL   *         SINCE THE REFERENCES BUFFER *RBUF* IS CLEARED TO ZEROS AFTER           PS1CTL       428     A     
 PS1CTL   *         EACH WRITE TO *REFMAP*, AND SINCE -ADDREF- WRITES *RBUF* TO            PS1CTL       429     A     
 PS1CTL   *         *REFMAP* IMMEDIATELY WHEN FULL, THE BLOCK TERMINATOR IS                PS1CTL       430     A     
 PS1CTL   *         GUARANTEED AUTOMATICALLY BY DOING A FINAL WRITE OF *RBUF* TO           PS1CTL       431     A     
 PS1CTL   *         *REFMAP*.                                                              PS1CTL       432     A     
 PS1CTL                                                                                    PS1CTL       433     A     
 PS1CTL             SA1    RSELECT                                                         PS1CTL       434     A     
 PS1CTL             ZR     X1,LDPS2A         IF NO LONG MAP                                PS1CTL       435     A     
 PS1CTL                                                                                    PS1CTL       436     A     
 PS1CTL             ADDREF B0                TERMINATE THE CURRENT LINE                    PS1CTL       437     A     
 PS1CTL             WRITEW =XF.RMAP,RBUF,RBUFL     TERMINATE REFERENCES                    PS1CTL       438     A     
 PS1CTL             SA1    O.DIM                                                           PS1CTL       439     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1774    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL             SB6    =XO.CBT           (B6) = FWA COMMON BLOCK TABLE                 PS1CTL       440     A     
 PS1CTL             MX7    0                                                               PS1CTL       441     A     
 PS1CTL             SB2    X1+B1                                                           PS1CTL       442     A     
 PS1CTL             SA7    X1                ZERO LWA+1 OF EQV INFO                        PS1CTL       443     A     
 PS1CTL             SB7    B2-B6                                                           PS1CTL       444     A     
 PS1CTL             WRITEW =XF.RMAP,B6,B7                                                  PS1CTL       445     A     
 PS1CTL             WRITER =XF.RMAP                                                        PS1CTL       446     A     
 PS1CTL             REWIND =XF.RMAP                                                        PS1CTL       447     A     
 PS1CTL                                                                                    PS1CTL       448     A     
 PS1CTL   **        LOAD PASS 2                                                            PS1CTL       449     A     
 PS1CTL                                                                                    PS1CTL       450     A     
 PS1CTL    LDPS2A   SA1    =XN.ERROR                                                       PS1CTL       451     A     
 PS1CTL             NZ     X1,LDPS2C   IF ERRORS ( ANY TYPE )                              PS1CTL       452     A     
 PS1CTL    #OVL     IFNE   .OVL,0                                                          PS1CTL       453          I
          -FCC1211
 PS1CTL             SA4    PROGRAM                                                         PS1CTL       454          I
          -FCC1211
 PS1CTL             ZR     X4,LDPS2AA  IF BLOCK DATA                                       PS1CTL       455          I
          -FCC1211
 PS1CTL    #OVL     ENDIF                                                                  PS1CTL       456          I
          -FCC1211
 PS1CTL             SA2    QFLAG                                                           PS1CTL       457     A     
 PS1CTL             ZR     X2,LDPS2B   IF ^ Q MODE                                         PS1CTL       458     A     
 PS1CTL             SA3    R=FLAG                                                          PS1CTL       459     A     
 PS1CTL             ZR     X3,=XFTNEND IF R = 0  ( NO REFMAP )                             PS1CTL       460     A     
 PS1CTL                                                                                    PS1CTL       461     A     
 PS1CTL    #OVL     IFNE   .OVL,0                                                          PS1CTL       462     A     
 PS1CTL    LDPS2AA  LOVER  OVL25       LOAD AND EXECUTE REFMAP                             PS1CTL       463     A     
 PS1CTL    #OVL     ENDIF                                                                  PS1CTL       464     A     
 PS1CTL                                                                                    PS1CTL       465     A     
 PS1CTL    LDPS2B   LOVER  OVL22       LOAD AND EXECUTE PASS 2                             PS1CTL       466          I
          -FCC1211
 PS1CTL    LDPS2B   BSS    0                                                               FCC1211       11     A     
 PS1CTL                                                                                    FCC1211       12     A     
 PS1CTL    #OVL     IFNE   .OVL,0                                                          FCC1211       13     A     
 PS1CTL             SA1    PROGRAM                                                         FCC1211       14     A     
 PS1CTL             ZR     X1,LDPS2AA  IF BLOCKDATA, SKIP (2,2) OVERLAY...                 FCC1211       15     A     
 PS1CTL    #OVL     ENDIF                                                                  FCC1211       16     A     
 PS1CTL                                                                                    FCC1211       17     A     
 PS1CTL             LOVER  OVL22       LOAD AND EXECUTE PASS 2                             FCC1211       18     A     
 PS1CTL                                                                                    PS1CTL       467     A     
 PS1CTL    LDPS2C   LOVER  OVL23       LOAD ERROR MESSAGE OVERLAY                          PS1CTL       468          I
          -FEAT121L 
 PS1CTL    LDPS2C   SA1    =XN.FERR                                                        FEAT121L      88          I
          -FCC2126
 PS1CTL    LDPS2C   SA3    =XIMFLG     FC TYPE ERRORS                                      FCC2126        8     A     
 PS1CTL             ZR     X3,LDPS2D   IF NO FC TYPE ERROR                                 FCC2126        9     A     
 PS1CTL             MX6    0                                                               FCC2126       10     A     
 PS1CTL             SA1    =XR=FLAG                                                        FCC2126       11     A     
 PS1CTL             SX3    X1-3                                                            FCC2126       12     A     
 PS1CTL             NZ     X3,LDPS2D   IF NOT R=3                                          FCC2126       13     A     
 PS1CTL             SA6    =XL.COM     CHECKED BY REFMAP FOR FC TYPE ERRORS                FCC2126       14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1775    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL             SA6    =XL.EQV                                                         FCC2126       15     A     
 PS1CTL    LDPS2D   SA1    =XN.FERR                                                        FCC2126       16     A     
 PS1CTL             SA2    =XNOLIST                                                        FEAT121L      89     A     
 PS1CTL             BX6    X1+X2                                                           FEAT121L      90     A     
 PS1CTL             ZR     X6,LDPS2B   IF NO FE ERRS .AND. IN NOLIST MODE                  FEAT121L      91     A     
 PS1CTL                                                                                    FEAT121L      92     A     
 PS1CTL             LOVER  OVL23       LOAD ERROR MESSAGE OVERLAY                          FEAT121L      93     A     
 PS1CTL             TTL    P S 1 C T L  -  SUBROUTINES                                     PS1CTL       469     A     
 PS1CTL             TITLE              ADDREF - PASS 1 REF MAP ACCUMULATION                PS1CTL       470     A     
 PS1CTL   ***                                                                              PS1CTL       471     A     
 PS1CTL   *         ADDREF - ADD REFERENCE TO THE REFERENCE TABLE                          PS1CTL       472     A     
 PS1CTL   *                                                                                PS1CTL       473     A     
 PS1CTL   *         ON ENTRY:                                                              PS1CTL       474     A     
 PS1CTL   *                B1 = ORDINAL OF THE SYMBOL TO BE ADDED                          PS1CTL       475     A     
 PS1CTL   *                X2 = REFERENCE/DEFINITION BITS                                  PS1CTL       476     A     
 PS1CTL   *                                                                                PS1CTL       477     A     
 PS1CTL   *         NOTE: CALL ADDREF(0,0) TERMINATES A LINE                               PS1CTL       478     A     
 PS1CTL   *                                                                                PS1CTL       479     A     
 PS1CTL   *         ADDREF IS CALLED BY THE STATEMENT PROCESSORS WHEN THE R                PS1CTL       480     A     
 PS1CTL   *         OPTION IS SELECTED TO ADD A REFERENCE FOR A SYMBOL ( IN                PS1CTL       481     A     
 PS1CTL   *         SYMTAB ONLY ).  THE REFERENCES ARE COLLECTED INTO LINES AND            PS1CTL       482     A     
 PS1CTL   *         THE LINES ARE DUMPED TO THE REFMAP TABLE FOR PROCESSING AT             PS1CTL       483     A     
 PS1CTL   *         THE END OF PASS2 WHEN ALL LOCAL SYMBOLS HAVE BEEN ASSIGNED             PS1CTL       484     A     
 PS1CTL   *         ADDRESS"S.                                                             PS1CTL       485     A     
 PS1CTL   *                                                                                PS1CTL       486     A     
 PS1CTL   *         EACH LINE CONSISTS OF A NUMBER OF 15 BIT PARCELS TERMINATED            PS1CTL       487     A     
 PS1CTL   *         BY 1 OR MORE ZERO PARCELS TO FILL OUT THE LAST WORD.                   PS1CTL       488     A     
 PS1CTL   *         THE FIRST PARCEL HOLDS THE LINE NUMBER ( IN BINARY ),                  PS1CTL       489     A     
 PS1CTL   *                                                                                PS1CTL       490     A     
 PS1CTL   *         SUCEEDING PARCELS HAVE THE FORMAT:                                     PS1CTL       491     A     
 PS1CTL   *         1/0,2/REF,DEF CODE,12/SYMTAB ORDINAL                                   PS1CTL       492     A     
 PS1CTL   *                                                                                PS1CTL       493     A     
 PS1CTL   *         THE LOW ORDER PARCEL OF THE LAST WORD CONTAINS THE NUMBER OF           PS1CTL       494     A     
 PS1CTL   *         PARCELS IN THE LAST WORD IN THE FORMAT: 3/CPC,12/0                     PS1CTL       495     A     
 PS1CTL   *                                                                                PS1CTL       496     A     
 PS1CTL   *         REFERENCE LINES ARE ACCUMULATED IN *RBUF* UNTIL IT IS FULL.            PS1CTL       497     A     
 PS1CTL   *         THEN, A TERMINATOR IS PLACED IN THE 4TH PARCEL OF THE LAST             PS1CTL       498     A     
 PS1CTL   *         REFERENCE LINE (AS IF THE SOURCE LINE HAD ENDED) AND THE               PS1CTL       499     A     
 PS1CTL   *         BUFFER IS FLUSHED TO -REFMAP-.  -ADDREF- CONDITIONS ARE RESET          PS1CTL       500     A     
 PS1CTL   *         TO INITIAL.  ANY REMAINING REFERENCES IN THE CURRENT SOURCE            PS1CTL       501     A     
 PS1CTL   *         LINE ARE PROCESSED AS IF A NEW LINE HAD BEGUN.  THIS AVOIDS            PS1CTL       502     A     
 PS1CTL   *         SOME UNPLEASANT PROCESSING RESTART PROBLEMS IN PASS 2.                 PS1CTL       503     A     
 PS1CTL                                                                                    PS1CTL       504     A     
 PS1CTL                                                                                    PS1CTL       505     A     
 PS1CTL    ADDREF   ENTRY. **          ** ENTRY/EXIT **                                    PS1CTL       506     A     
 PS1CTL             LX2    1+12        POSITION REF/DEF BITS                               PS1CTL       507     A     
 PS1CTL             SX1    X2+B1       (X1) = 45/0, 2/REF/DEF, 1/0, 12/ORDINAL             PS1CTL       508     A     
 PS1CTL             SA4    RBUFN       (X4) = NR WORDS IN *RBUF*                           PS1CTL       509     A     
 PS1CTL             SA3    RBUFP       (X3) = CURRENT SHIFT COUNT                          PS1CTL       510     A     
 PS1CTL             SA5    RBUF+X4     (X5) = PARTIAL *RBUF* ENTRY                         PS1CTL       511     A     
 PS1CTL             SB1    1                                                               PS1CTL       512     A     
 PS1CTL             ZR     X1,ADD5     IF TERMINAL CALL                                    PS1CTL       513     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1776    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL             PL     X3,ADD2     IF INTERMEDIATE CALL                                PS1CTL       514     A     
 PS1CTL                                                                                    PS1CTL       515     A     
 PS1CTL   *         PROCESS INITIAL CALL (NEW SOURCE LINE OR *RBUF* EMPTY).                PS1CTL       516     A     
 PS1CTL                                                                                    PS1CTL       517     A     
 PS1CTL             SA2    DUKE        SOURCE LISTING LINE NUMBER (BINARY)                 PS1CTL       518     A     
 PS1CTL             SX3    30          INITIAL SHIFT COUNT                                 PS1CTL       519     A     
 PS1CTL             LX2    45                                                              PS1CTL       520     A     
 PS1CTL             BX5    X2          BEGIN NEW ENTRY                                     PS1CTL       521     A     
 PS1CTL                                                                                    PS1CTL       522     A     
 PS1CTL   *         PROCESS INTERMEDIATE CALL.                                             PS1CTL       523     A     
 PS1CTL                                                                                    PS1CTL       524     A     
 PS1CTL    ADD2     SB2    X3                                                              PS1CTL       525     A     
 PS1CTL             SX6    X3-15       SHIFT COUNT - 15                                    PS1CTL       526     A     
 PS1CTL             LX1    B2                                                              PS1CTL       527     A     
 PS1CTL             BX7    X5+X1       MERGE NEW REFERENCE                                 PS1CTL       528     A     
 PS1CTL             SB2    X6                                                              PS1CTL       529     A     
 PS1CTL             SA6    A3          UPDATE SHIFT COUNT                                  PS1CTL       530     A     
 PS1CTL             SA7    A5          NEW REFERENCE TO *RBUF*                             PS1CTL       531     A     
 PS1CTL             GT     B2,B0,ADDREF      IF NEW REF NOT IN PARCEL 3 OR 4, EXIT         PS1CTL       532     A     
 PS1CTL                                                                                    PS1CTL       533     A     
 PS1CTL   *         PROCESS PARCEL 3/4 ENTRIES.                                            PS1CTL       534     A     
 PS1CTL                                                                                    PS1CTL       535     A     
 PS1CTL             SX6    X4+B1       BUF WD COUNT + 1                                    PS1CTL       536     A     
 PS1CTL             PL     B2,ADD3     IF NEW REF IN PARCEL 3                              PS1CTL       537     A     
 PS1CTL                                                                                    PS1CTL       538     A     
 PS1CTL   *         NEW REF IN PARCEL 4 - UPDATE WORD COUNT AND RESET SHIFT COUNT.         PS1CTL       539     A     
 PS1CTL                                                                                    PS1CTL       540     A     
 PS1CTL             SX7    45                                                              PS1CTL       541     A     
 PS1CTL             SA6    A4          UPDATE WORD COUNT                                   PS1CTL       542     A     
 PS1CTL             SA7    A3          RESET SHIFT COUNT                                   PS1CTL       543     A     
 PS1CTL             EQ     ADDREF                                                          PS1CTL       544     A     
 PS1CTL                                                                                    PS1CTL       545     A     
 PS1CTL   *         NEW REF IN PARCEL 3 - CHECK FOR FULL BUFFER.                           PS1CTL       546     A     
 PS1CTL                                                                                    PS1CTL       547     A     
 PS1CTL    ADD3     AX6    6           BUF WD COUNT / (RBUFL=100B)                         PS1CTL       548     A     
 PS1CTL             NO                                                                     PS1CTL       549     A     
 PS1CTL             ZR     X6,ADDREF   IF BUFFER NOT FULL, EXIT                            PS1CTL       550     A     
 PS1CTL                                                                                    PS1CTL       551     A     
 PS1CTL   *         BUFFER IS FULL.  TERMINATE CURRENT REF/DEF ENTRY STRING.               PS1CTL       552     A     
 PS1CTL                                                                                    PS1CTL       553     A     
 PS1CTL             SX6    3S12        ACTIVE PARCEL COUNT = 3                             PS1CTL       554     A     
 PS1CTL             BX7    X7+X6                                                           PS1CTL       555     A     
 PS1CTL             SA7    A5                                                              PS1CTL       556     A     
 PS1CTL                                                                                    PS1CTL       557     A     
 PS1CTL   *         DUMP BUFFER TO *REFMAP*, AND SET ENTRY CONDITIONS *INITIAL*.           PS1CTL       558     A     
 PS1CTL                                                                                    PS1CTL       559     A     
 PS1CTL    ADD4     WRITEW =XF.RMAP,RBUF,RBUFL                                             PS1CTL       560     A     
 PS1CTL             SETZERO   RBUF,RBUFL+1   CLEAR *RBUF* AND WORD COUNT                   PS1CTL       561     A     
 PS1CTL             MX6    -1                                                              PS1CTL       562     A     
 PS1CTL             SB5    B1                                                              PS1CTL       563     A     
 PS1CTL             SA6    RBUFP       SET SHIFT COUNT TO *INITIAL*                        PS1CTL       564     A     
 PS1CTL             EQ     ADDREF      EXIT                                                PS1CTL       565     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1777    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL                                                                                    PS1CTL       566     A     
 PS1CTL   *         PROCESS TERMINAL CALL.                                                 PS1CTL       567     A     
 PS1CTL                                                                                    PS1CTL       568     A     
 PS1CTL    ADD5     MI     X3,ADDREF   IF NO ENTRIES FOR CURRENT LINE                      PS1CTL       569     A     
 PS1CTL             MX7    -1                                                              PS1CTL       570     A     
 PS1CTL             SX6    X4+B1       BUF WD COUNT + 1                                    PS1CTL       571     A     
 PS1CTL             SX1    3                                                               PS1CTL       572     A     
 PS1CTL             SA7    A3          SET SHIFT COUNT TO *INITIAL*                        PS1CTL       573     A     
 PS1CTL             IX3    X3+X1       SC+3                                                PS1CTL       574     A     
 PS1CTL             AX3    4           (SC+3)/16                                           PS1CTL       575     A     
 PS1CTL             IX1    X1-X3       3-(SC+3)/16 = ACTIVE REFS IN CURR ENTRY WRD         PS1CTL       576     A     
 PS1CTL             SA6    A4          UPDATE BUF WD COUNT                                 PS1CTL       577     A     
 PS1CTL             LX1    12                                                              PS1CTL       578     A     
 PS1CTL             BX7    X5+X1       MERGE PARCEL COUNT IN ENTRY                         PS1CTL       579     A     
 PS1CTL             AX6    6           BUF WD COUNT / (RBUFL=100B)                         PS1CTL       580     A     
 PS1CTL             SA7    A5          TERMINATED ENTRY TO *RBUF*                          PS1CTL       581     A     
 PS1CTL             ZR     X6,ADDREF   IF BUFFER NOT FULL, EXIT                            PS1CTL       582     A     
 PS1CTL             EQ     ADD4                                                            PS1CTL       583     A     
 PS1CTL                                                                                    PS1CTL       584     A     
 PS1CTL                                                                                    PS1CTL       585     A     
 PS1CTL    RBUFL    =      100B        LENGTH OF *RBUF*                                    PS1CTL       586     A     
 PS1CTL    RBUF     BSSZ   RBUFL       REFERENCES BUFFER                                   PS1CTL       587     A     
 PS1CTL    RBUFN    DATA   0           NUMBER OF WORDS IN *RBUF*                           PS1CTL       588     A     
 PS1CTL    RBUFP    DATA   -1          SHIFT COUNT FOR NEXT REF/DEF PARCEL ENTRY           PS1CTL       589     A     
 PS1CTL             TITLE              PASS 1 TABLE MANAGER                                PS1CTL       590     A     
 PS1CTL             EXT    PHASE,NAF,LTN,LOWCORE,FWAWORK,LWAWORK,T.FPBL,N.FP               PS1CTL       591     A     
 PS1CTL             EXT    ORIGINS,SIZES,ROOMS,TINFO,NAFVEC                                PS1CTL       592     A     
 PS1CTL             EXT    MOVE,FATALER                                                    PS1CTL       593     A     
 PS1CTL                                                                                    PS1CTL       594     A     
 PS1CTL    E.CTO    EQU    36                TABLE OVERFLOW                                PS1CTL       595     A     
 PS1CTL                                                                                    PS1CTL       596     A     
 PS1CTL    SLL      MACRO  XR                SET LOOP LIMITS FOR TABLE MANAGER             PS1CTL       597     A     
 PS1CTL             IF     -REG,XR,1                                                       PS1CTL       598     A     
 PS1CTL             SA5    NAF                                                             PS1CTL       599     A     
 PS1CTL             SB2    X5                N.FT                                          PS1CTL       600     A     
 PS1CTL             AX5    30                                                              PS1CTL       601     A     
 PS1CTL             SB3    B2+X5             N.LT + 1                                      PS1CTL       602     A     
 PS1CTL             ENDM                                                                   PS1CTL       603     A     
 PS1CTL                                                                                    PS1CTL       604     A     
 PS1CTL   ***                                                                              PS1CTL       605     A     
 PS1CTL   *         ALLOC - ADJUST TABLE ALLOCATION FOR TABLE N                            PS1CTL       606     A     
 PS1CTL   *         MAY MOVE TABLES UP OR DOWN IN CORE AND STRIP EXCESS                    PS1CTL       607     A     
 PS1CTL   *         ALLOCATIONS TO BUY SPACE.                                              PS1CTL       608     A     
 PS1CTL   *                                                                                PS1CTL       609     A     
 PS1CTL   *         ON ENTRY:                                                              PS1CTL       610     A     
 PS1CTL   *                A0 = TABLE NUMBER                                               PS1CTL       611     A     
 PS1CTL   *                X5 < 0 THEN L.TBL = S.TBL = -X5                                 PS1CTL       612     A     
 PS1CTL   *                X5 \ 0 THEN THE ALLOCATION WILL BE ADJUSTED SO THAT             PS1CTL       613     A     
 PS1CTL   *                S.TBL \ X5 + L.TBL  ON EXIT, IF THE SPACE IS AVAILABLE          PS1CTL       614     A     
 PS1CTL   *                                                                                PS1CTL       615     A     
 PS1CTL   *         ON EXIT:                                                               PS1CTL       616     A     
 PS1CTL   *                A0 = TABLE NUMBER                                               PS1CTL       617     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1778    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL   *                X7 " 0 IF SPACE ALLOCATED , ELSE 0                              PS1CTL       618     A     
 PS1CTL   *                                                                                PS1CTL       619     A     
 PS1CTL    ATA0     BX6    -X5                                                             PS1CTL       620     A     
 PS1CTL             SA6    SIZES+A0                                                        PS1CTL       621     A     
 PS1CTL             SA6    ROOMS+A0                                                        PS1CTL       622     A     
 PS1CTL    ALLOC    ENTRY.                                                                 PS1CTL       623     A     
 PS1CTL    ATA      EQU    ALLOC                                                           PS1CTL       624     A     
 PS1CTL                                                                                    PS1CTL       625     A     
 PS1CTL             NG     X5,ATA0           IF NEGATIVE                                   PS1CTL       626     A     
 PS1CTL             SA3    SIZES+A0                                                        PS1CTL       627     A     
 PS1CTL             SA4    ROOMS+A0                                                        PS1CTL       628     A     
 PS1CTL             IX6    X4-X3             UNUSED SPACE                                  PS1CTL       629     A     
 PS1CTL             IX5    X5-X6             REMOVE FROM REQUEST                           PS1CTL       630     A     
 PS1CTL             NG     X5,ATA            IF NOTHING TO DO                              PS1CTL       631     A     
 PS1CTL             SA1    FWAWORK                                                         PS1CTL       632     A     
 PS1CTL             SA2    LWAWORK                                                         PS1CTL       633     A     
 PS1CTL             SB6    X5                                                              PS1CTL       634     A     
 PS1CTL             FX7    X2-X1             SA = SPACE AVAILABLE ( IN WORKING STO         PS1CTL       635     A     
 PS1CTL             SX6    X4+B6             INCREMENT ROOMS                               PS1CTL       636     A     
 PS1CTL             IX0    X5-X7                                                           PS1CTL       637     A     
 PS1CTL             SA6    A4                                                              PS1CTL       638     A     
 PS1CTL             PL     X0,ATA2           IF SN \ SA                                    PS1CTL       639     A     
 PS1CTL                                                                                    PS1CTL       640     A     
 PS1CTL   *         SPACE IN WORKING STORAGE, MOVE TABLES ABOVE THIS ONE UP                PS1CTL       641     A     
 PS1CTL                                                                                    PS1CTL       642     A     
 PS1CTL    ATA1     SA3    LTN                                                             PS1CTL       643     A     
 PS1CTL             SB2    A0                                                              PS1CTL       644     A     
 PS1CTL             IX6    X5+X1             UPDATE FWAWORK                                PS1CTL       645     A     
 PS1CTL             SB3    X3                                                              PS1CTL       646     A     
 PS1CTL             SA6    A1                                                              PS1CTL       647     A     
 PS1CTL             EQ     B2,B3,ATA         IF THIS IS THE LAST TABLE                     PS1CTL       648     A     
 PS1CTL             RJ     MTU                                                             PS1CTL       649     A     
 PS1CTL             MX7    1                                                               PS1CTL       650     A     
 PS1CTL             EQ     ATA                                                             PS1CTL       651     A     
 PS1CTL                                                                                    PS1CTL       652     A     
 PS1CTL   *         COMPUTE EXCESS SPACE AVAILABLE                                         PS1CTL       653     A     
 PS1CTL   *         = FWAWORK - LOWCORE - SIGMA( ROOMS(I) ) + SIGMA( EXC(I) )              PS1CTL       654     A     
 PS1CTL   *         EXC(I) = 0 IF SIZES(I)+40B \ ROOMS(I) , ELSE = TO DIFF                 PS1CTL       655     A     
 PS1CTL                                                                                    PS1CTL       656     A     
 PS1CTL    ATA2     SA3    LOWCORE                                                         PS1CTL       657     A     
 PS1CTL             SLL    NAF                                                             PS1CTL       658     A     
 PS1CTL             IX5    X1-X3             F-LC                                          PS1CTL       659     A     
 PS1CTL             SB4    ROOMS                                                           PS1CTL       660     A     
 PS1CTL             SB1    SIZES                                                           PS1CTL       661     A     
 PS1CTL             SA2    B4+A0             ROOMS(N)                                      PS1CTL       662     A     
 PS1CTL             SA1    B1+A0             SIZES(N)                                      PS1CTL       663     A     
 PS1CTL             BX6    X2                                                              PS1CTL       664     A     
 PS1CTL             SA6    A1                SIZE(N) = ROOMS(N)                            PS1CTL       665     A     
 PS1CTL                                                                                    PS1CTL       666     A     
 PS1CTL    ATA3     SA4    B4+B2             ROOMS(I)                                      PS1CTL       667     A     
 PS1CTL             SA3    B1+B2             SIZES(I)                                      PS1CTL       668     A     
 PS1CTL             IX5    X5-X4                                                           PS1CTL       669     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1779    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL             SB2    B2+B5             I = I+1                                       PS1CTL       670     A     
 PS1CTL             SX6    X3+40B            SIZES(I)+40B                                  PS1CTL       671     A     
 PS1CTL             IX2    X6-X4                                                           PS1CTL       672     A     
 PS1CTL             PL     X2,ATA4           IF NOT ENOUGH OF AN EXCESS                    PS1CTL       673     A     
 PS1CTL             IX5    X5-X2                                                           PS1CTL       674     A     
 PS1CTL             SA6    A4                ADJUST R(I)                                   PS1CTL       675     A     
 PS1CTL    ATA4     LT     B2,B3,ATA3                                                      PS1CTL       676     A     
 PS1CTL             BX6    X1                RESTORE SIZES(N)                              PS1CTL       677     A     
 PS1CTL             SA6    A1                                                              PS1CTL       678     A     
 PS1CTL                                                                                    PS1CTL       679     A     
 PS1CTL             IX0    X7+X5                                                           PS1CTL       680     A     
 PS1CTL             NG     X0,ATAX           IF NOT ENOUGH SPACE AVAILABLE                 PS1CTL       681     A     
 PS1CTL                                                                                    PS1CTL       682     A     
 PS1CTL   *         SHRINK TABLES BELOW THIS ONE                                           PS1CTL       683     A     
 PS1CTL                                                                                    PS1CTL       684     A     
 PS1CTL             SB4    X5                - IF WE HAVE TO INCREMENT FWAWORK             PS1CTL       685     A     
 PS1CTL                                                                                    PS1CTL       686     A     
 PS1CTL             SA1    LOWCORE     FWA TABLE AREA                                      PS1CTL       687     A     
 PS1CTL             SLL    NAF                                                             PS1CTL       688     A     
 PS1CTL             BX6    X1                                                              PS1CTL       689     A     
 PS1CTL             SB6    B3          SAVE NR OF (LAST TABLE + 1)                         PS1CTL       690     A     
 PS1CTL             SB3    A0                                                              PS1CTL       691     A     
 PS1CTL             RJ     MTD         MOVE TABLES DOWN (0, TBLN, LOWCORE)                 PS1CTL       692     A     
 PS1CTL             SA1    FWAWORK     WSA ORIGIN                                          PS1CTL       693     A     
 PS1CTL             SX5    -B4         WSA LENGTH INCREMENT/DECREMENT                      PS1CTL       694     A     
 PS1CTL             IX7    X1+X5                                                           PS1CTL       695     A     
 PS1CTL             MI     B4,ATA1     IF WSA MUST BE SHRUNK                               PS1CTL       696     A     
 PS1CTL             SA7    A1          EXPAND WSA                                          PS1CTL       697     A     
 PS1CTL             SB2    A0+B5                                                           PS1CTL       698     A     
 PS1CTL             EQ     B2,B6,ATA   IF NO TABLES TO MOVE UP                             PS1CTL       699     A     
 PS1CTL   *                                                                                PS1CTL       700     A     
 PS1CTL   *         PACK UP TABLES ABOVE THIS ONE.                                         PS1CTL       701     A     
 PS1CTL   *                                                                                PS1CTL       702     A     
 PS1CTL             SB3    B6-B5       NR OF LAST TABLE                                    PS1CTL       703     A     
 PS1CTL             BX6    X1                                                              PS1CTL       704     A     
 PS1CTL             SB4    B3          SAVE LAST TABLE NR                                  PS1CTL       705     A     
 PS1CTL             RJ     MTU         MOVE TABLES UP (TBLN+1, NRTBLS,OLD FWAWORK)         PS1CTL       706     A     
 PS1CTL             SA1    ORIGINS+A0                                                      PS1CTL       707     A     
 PS1CTL             SA2    ROOMS+A0                                                        PS1CTL       708     A     
 PS1CTL             SB3    B4                                                              PS1CTL       709     A     
 PS1CTL             IX6    X1+X2                                                           PS1CTL       710     A     
 PS1CTL             RJ     MTD         MOVE TABLES DOWN (TBLN+1, NRTBLS,                   PS1CTL       711     A     
 PS1CTL   *                               ORIGINS(N) + ROOMS(N).                           PS1CTL       712     A     
 PS1CTL             MX7    1                                                               PS1CTL       713     A     
 PS1CTL             EQ     ATA                                                             PS1CTL       714     A     
 PS1CTL                                                                                    PS1CTL       715     A     
 PS1CTL   *         ERROR EXIT - INSUFFICIENT STORAGE                                      PS1CTL       716     A     
 PS1CTL                                                                                    PS1CTL       717     A     
 PS1CTL    ATAX     SA1    TINFO+A0                                                        PS1CTL       718     A     
 PS1CTL             MX7    0                                                               PS1CTL       719     A     
 PS1CTL             LX1    1                                                               PS1CTL       720     A     
 PS1CTL             NG     X1,ATA            IF RETURN TO CALLER TABLE                     PS1CTL       721     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1780    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL                                                                                    PS1CTL       722     A     
 PS1CTL             ENTRY  CTBLOVL           ENTRY FOR COMPILER TABLE OVERFLOW             PS1CTL       723     A     
 PS1CTL    CTBLOVL  SA2    PHASE                                                           PS1CTL       724     A     
 PS1CTL             SA3    ERVEC+X2          PHASE NAME                                    PS1CTL       725     A     
 PS1CTL             MX4    0                                                               PS1CTL       726     A     
 PS1CTL             SB6    E.CTO             COMPILER TABLE OBERFLOW                       PS1CTL       727     A     
 PS1CTL             AX2    1                                                               FCC0458        5     A     
 PS1CTL             NZ     X2,FATALER        IF NOT PROCESSING DECLARATIVES                FCC0458        6     A     
 PS1CTL             SX6    0                                                               FCC0458        7     A     
 PS1CTL             SA6    =XL.COM                                                         FCC0458        8     A     
 PS1CTL             SA6    =XL.EQV                                                         FCC0458        9     A     
 PS1CTL             EQ     FATALER                                                         PS1CTL       728     A     
 PS1CTL                                                                                    PS1CTL       729     A     
 PS1CTL    ERVEC    DATA   8R PHASE 1                                                      PS1CTL       730     A     
 PS1CTL             DATA   8R AUX TAB                                                      PS1CTL       731     A     
 PS1CTL             DATA   8R PHASE 2                                                      PS1CTL       732     A     
 PS1CTL             TITLE              MTU, MTD - MOVE TABLES UP OR DOWN                   PS1CTL       733     A     
 PS1CTL   ***                                                                              PS1CTL       734     A     
 PS1CTL   *         MTU - MOVE TABLES UP IN CORE                                           PS1CTL       735     A     
 PS1CTL   *                                                                                PS1CTL       736     A     
 PS1CTL   *         ON ENTRY:                                                              PS1CTL       737     A     
 PS1CTL   *                X6 = HIGH LIMIT OF MOVE                                         PS1CTL       738     A     
 PS1CTL   *                B2,B3 = LOOP LIMITS                                             PS1CTL       739     A     
 PS1CTL   *                                                                                PS1CTL       740     A     
 PS1CTL    MTU                                                                             PS1CTL       741     A     
 PS1CTL    MTU1     SA4    ROOMS+B3                                                        PS1CTL       742     A     
 PS1CTL             SA2    ORIGINS+B3                                                      PS1CTL       743     A     
 PS1CTL             SA1    SIZES+B3                                                        PS1CTL       744     A     
 PS1CTL             IX7    X6-X4                                                           PS1CTL       745     A     
 PS1CTL             SB3    B3-B5             DECREMENT INDEX                               PS1CTL       746     A     
 PS1CTL             SA7    A2                NEW ORIGIN                                    PS1CTL       747     A     
 PS1CTL             BX0    X7                                                              PS1CTL       748     A     
 PS1CTL             IX5    X7-X2             NEW ORGIN - OLD ORIGIN                        PS1CTL       749     A     
 PS1CTL             BX3    X7                                                              PS1CTL       750     A     
 PS1CTL             ZR     X1,MTU2           IF LENGTH = 0                                 PS1CTL       751     A     
 PS1CTL             ZR     X5,MTU2           SKIP GO NOWHERE MOVE                          PS1CTL       752     A     
 PS1CTL             MOVE   X1,X2,X3                                                        PS1CTL       753     A     
 PS1CTL    MTU2     BX6    X0                                                              PS1CTL       754     A     
 PS1CTL             GT     B3,B2,MTU1                                                      PS1CTL       755     A     
 PS1CTL             EQ     MTU                                                             PS1CTL       756     A     
 PS1CTL             SPACE  3                                                               PS1CTL       757     A     
 PS1CTL   ***                                                                              PS1CTL       758     A     
 PS1CTL   *         MTD - MOVE TABLES DOWN IN CORE                                         PS1CTL       759     A     
 PS1CTL   *                                                                                PS1CTL       760     A     
 PS1CTL   *         ON ENTRY:                                                              PS1CTL       761     A     
 PS1CTL   *                X6 = LOW CORE LIMIT                                             PS1CTL       762     A     
 PS1CTL   *                B2,B3 = LOOP LIMITS                                             PS1CTL       763     A     
 PS1CTL   *                                                                                PS1CTL       764     A     
 PS1CTL    MTD                                                                             PS1CTL       765     A     
 PS1CTL    MTD1     SA4    ROOMS+B2                                                        PS1CTL       766     A     
 PS1CTL             SA2    ORIGINS+B2                                                      PS1CTL       767     A     
 PS1CTL             SA1    SIZES+B2                                                        PS1CTL       768     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1781    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL             BX3    X6                                                              PS1CTL       769     A     
 PS1CTL             IX0    X4+X6             ADVANCE LOW                                   PS1CTL       770     A     
 PS1CTL             SA6    A2                                                              PS1CTL       771     A     
 PS1CTL             IX5    X3-X2             NEW ORIGIN - OLD ORIGIN                       PS1CTL       772     A     
 PS1CTL             ZR     X1,MTD2           SKIP EMPTY TABLE                              PS1CTL       773     A     
 PS1CTL             ZR     X5,MTD2           AVIOD NULL MOVE                               PS1CTL       774     A     
 PS1CTL             MOVE   X1,X2,X3                                                        PS1CTL       775     A     
 PS1CTL    MTD2     SB2    B2+B5                                                           PS1CTL       776     A     
 PS1CTL             BX6    X0                                                              PS1CTL       777     A     
 PS1CTL             LE     B2,B3,MTD1                                                      PS1CTL       778     A     
 PS1CTL             EQ     MTD                                                             PS1CTL       779     A     
 PS1CTL             TITLE              ROUTINES FOR TABLE ALLOCATION                       PS1CTL       780     A     
 PS1CTL   ***                                                                              PS1CTL       781     A     
 PS1CTL   *         ADDWD - ADD A WORD TO THE END OF A MANAGED TABLE                       PS1CTL       782     A     
 PS1CTL   *                                                                                PS1CTL       783     A     
 PS1CTL   *         ON ENTRY:                                                              PS1CTL       784     A     
 PS1CTL   *                A0 = TABLE NUMBER                                               PS1CTL       785     A     
 PS1CTL   *                X1 = WORD TO BE ADDED    ( AND B5 = 1 )                         PS1CTL       786     A     
 PS1CTL   *                                                                                PS1CTL       787     A     
 PS1CTL   *         ON EXIT:                                                               PS1CTL       788     A     
 PS1CTL   *                X6 = WORD THAT WAS ADDED                                        PS1CTL       789     A     
 PS1CTL   *                X7 = NEW TABLE LENGTH ( " 0 ) OR 0 IF NO SPACE AVAIL            PS1CTL       790     A     
 PS1CTL   *                                                                                PS1CTL       791     A     
 PS1CTL                                                                                    PS1CTL       792     A     
 PS1CTL    ADDWD1   IX0    X3+X4                                                           PS1CTL       793     A     
 PS1CTL             SX7    X4+B5             SIZES(I) = SIZES(I)+1                         PS1CTL       794     A     
 PS1CTL             SA6    X0                                                              PS1CTL       795     A     
 PS1CTL             SA7    A4                UPDATE LENGTH                                 PS1CTL       796     A     
 PS1CTL    ADDWD    ENTRY.                                                                 PS1CTL       797     A     
 PS1CTL             SA4    SIZES+A0                                                        PS1CTL       798     A     
 PS1CTL             SA5    ROOMS+A0                                                        PS1CTL       799     A     
 PS1CTL             BX6    X1                                                              PS1CTL       800     A     
 PS1CTL             IX2    X4-X5             S - R                                         PS1CTL       801     A     
 PS1CTL             SA3    ORIGINS+A0                                                      PS1CTL       802     A     
 PS1CTL             NG     X2,ADDWD1         IF SIZES(I) < ROOMS(I)                        PS1CTL       803     A     
 PS1CTL                                                                                    PS1CTL       804     A     
 PS1CTL   *         ALLOCATE MORE SPACE                                                    PS1CTL       805     A     
 PS1CTL                                                                                    PS1CTL       806     A     
 PS1CTL             SA5    TINFO+A0          INCREMENT FOR THIS TABLE                      PS1CTL       807     A     
 PS1CTL             SA6    ADDWDT            SAVE WORD                                     PS1CTL       808     A     
 PS1CTL             SX5    X5                                                              PS1CTL       809     A     
 PS1CTL             RJ     ATA               ADJUST ALLOCATION                             PS1CTL       810     A     
 PS1CTL                                                                                    PS1CTL       811     A     
 PS1CTL             SA1    ADDWDT                                                          PS1CTL       812     A     
 PS1CTL             SA3    ORIGINS+A0                                                      PS1CTL       813     A     
 PS1CTL             SA4    SIZES+A0                                                        PS1CTL       814     A     
 PS1CTL             BX6    X1                                                              PS1CTL       815     A     
 PS1CTL             NZ     X7,ADDWD1         IF WE GOT THE SPACE                           PS1CTL       816     A     
 PS1CTL             EQ     ADDWD                                                           PS1CTL       817     A     
 PS1CTL                                                                                    PS1CTL       818     A     
 PS1CTL    ADDWDT   BSS    1                                                               PS1CTL       819     A     
 PS1CTL             EJECT                                                                  PS1CTL       820     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1782    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL   ***                                                                              PS1CTL       821     A     
 PS1CTL   *         ALLAE - ALLOCATE ALMOST EVERYTHING FOR TABLE N                         PS1CTL       822     A     
 PS1CTL   *                                                                                PS1CTL       823     A     
 PS1CTL   *         ON ENTRY:                                                              PS1CTL       824     A     
 PS1CTL   *                A0 = TABLE NUMBER                                               PS1CTL       825     A     
 PS1CTL   *                                                                                PS1CTL       826     A     
 PS1CTL    ALLAE    ENTRY.                                                                 PS1CTL       827     A     
 PS1CTL             SA1    LOWCORE                                                         PS1CTL       828     A     
 PS1CTL             SA2    FWAWORK                                                         PS1CTL       829     A     
 PS1CTL             SA3    LWAWORK                                                         PS1CTL       830     A     
 PS1CTL             SLL    NAF                                                             PS1CTL       831     A     
 PS1CTL             IX0    X2-X1             AREA OCCUPIED BY THE TABLES                   PS1CTL       832     A     
 PS1CTL             IX3    X3-X2             SA IN WORKING STORAGE                         PS1CTL       833     A     
 PS1CTL             SB7    X3                B7 = L-F                                      PS1CTL       834     A     
 PS1CTL             SB4    ROOMS                                                           PS1CTL       835     A     
 PS1CTL             SB1    SIZES                                                           PS1CTL       836     A     
 PS1CTL             SA2    B4+A0                                                           PS1CTL       837     A     
 PS1CTL             SA1    B1+A0                                                           PS1CTL       838     A     
 PS1CTL             BX7    X2                                                              PS1CTL       839     A     
 PS1CTL             SA7    A1                                                              PS1CTL       840     A     
 PS1CTL             SX6    40B                                                             PS1CTL       841     A     
 PS1CTL                                                                                    PS1CTL       842     A     
 PS1CTL    ALLAE1   SA4    B4+B2             ROOMS(I)                                      PS1CTL       843     A     
 PS1CTL             SA3    B1+B2             SIZES(I)                                      PS1CTL       844     A     
 PS1CTL             IX0    X0-X4                                                           PS1CTL       845     A     
 PS1CTL             FX5    X3+X6             S(I)+40B                                      PS1CTL       846     A     
 PS1CTL             IX4    X5-X4                                                           PS1CTL       847     A     
 PS1CTL             IX2    X5-X4                                                           PS1CTL       848     A     
 PS1CTL             IX0    X0-X2                                                           PS1CTL       849     A     
 PS1CTL    ALLAE2   SB2    B2+B5                                                           PS1CTL       850     A     
 PS1CTL             LT     B2,B3,ALLAE1                                                    PS1CTL       851     A     
 PS1CTL                                                                                    PS1CTL       852     A     
 PS1CTL             BX6    X1                                                              PS1CTL       853     A     
 PS1CTL             SA6    A1                RESTORE SIZES(N)                              PS1CTL       854     A     
 PS1CTL                                                                                    PS1CTL       855     A     
 PS1CTL             SX5    B7-B5             (LWAWORK-FWAWORK) - 1                         PS1CTL       856     A     
 PS1CTL             SX7    X0-400B                                                         PS1CTL       857     A     
 PS1CTL             NG     X7,ALLAE3         IF WE CANT BUY AT LEAST 400B WORDS            PS1CTL       858     A     
 PS1CTL   *                                  DONT FORCE A REPACKING                        PS1CTL       859     A     
 PS1CTL             IX5    X5+X0                                                           PS1CTL       860     A     
 PS1CTL    ALLAE3   RJ     ATA               ADJUST ALLOCATION                             PS1CTL       861     A     
 PS1CTL             EQ     ALLAE                                                           PS1CTL       862     A     
 PS1CTL             TITLE              INITBL - INITIALIZE TABLES                          PS1CTL       863     A     
 PS1CTL   ***                                                                              PS1CTL       864     A     
 PS1CTL   *         INITBL - INITIALIZE TABLES FOR A PHASE                                 PS1CTL       865     A     
 PS1CTL   *         SETS LOWCORE,PHASE NUMBER AND INITIALIZES TABLE VECTORS                PS1CTL       866     A     
 PS1CTL   *                                                                                PS1CTL       867     A     
 PS1CTL   *         ON ENTRY:                                                              PS1CTL       868     A     
 PS1CTL   *                X6 = NEW LOW CORE LIMIT                                         PS1CTL       869     A     
 PS1CTL   *                                                                                PS1CTL       870     A     
 PS1CTL                                                                                    PS1CTL       871     A     
 PS1CTL    INITBL   ENTRY.                                                                 PS1CTL       872     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1783    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL             SA1    LOWCORE                                                         PS1CTL       873     A     
 PS1CTL             SA2    PHASE                                                           PS1CTL       874     A     
 PS1CTL             SA6    A1                SET NEW LOWCORE LIMIT                         PS1CTL       875     A     
 PS1CTL             ZR     X1,INIT0          IF START OF PHASE 1                           PS1CTL       876     A     
 PS1CTL             SX7    X2+B5                                                           PS1CTL       877     A     
 PS1CTL             SA7    A2                PHASE = PHASE+1                               PS1CTL       878     A     
 PS1CTL             ZR     X2,INIT1          IF START OF DPCLOSE                           PS1CTL       879     A     
 PS1CTL             RJ     PTD               PHASE 2 - PACK TABLES TO LOW CORE             PS1CTL       880     A     
 PS1CTL             SA6    LOWCORE           SET FWA OF ACTIVE TABLES ***                  PS1CTL       881     A     
 PS1CTL             EQ     INIT1                                                           PS1CTL       882     A     
 PS1CTL                                                                                    PS1CTL       883     A     
 PS1CTL    INIT0    SA6    FWAWORK                                                         PS1CTL       884     A     
 PS1CTL             SA4    N.FP                                                            PS1CTL       885     A     
 PS1CTL             BX7    X4                                                              PS1CTL       886     A     
 PS1CTL             LX7    18                                                              PS1CTL       887     A     
 PS1CTL             SA7    T.FPBL                                                          PS1CTL       888     A     
 PS1CTL                                                                                    PS1CTL       889     A     
 PS1CTL   *         INITIALIZE THE NEW TABLES                                              PS1CTL       890     A     
 PS1CTL                                                                                    PS1CTL       891     A     
 PS1CTL    INIT1    SA4    PHASE                                                           PS1CTL       892     A     
 PS1CTL             SA5    NAFVEC+X4                                                       PS1CTL       893     A     
 PS1CTL             BX7    X5                                                              PS1CTL       894     A     
 PS1CTL             SA7    NAF               NAF = NAFVEC(PHASE)                           PS1CTL       895     A     
 PS1CTL             SLL    X5                SET LOOP LIMITS                               PS1CTL       896     A     
 PS1CTL             SA4    FWAWORK                                                         PS1CTL       897     A     
 PS1CTL             BX6    X4                                                              PS1CTL       898     A     
 PS1CTL             SX7    B3-B5                                                           PS1CTL       899     A     
 PS1CTL             SA7    LTN               SAVE NUMBER OF LAST ACTIVE TABLE              PS1CTL       900     A     
 PS1CTL                                                                                    PS1CTL       901     A     
 PS1CTL    INTB1    SA1    ORIGINS+B2                                                      PS1CTL       902     A     
 PS1CTL             SA2    TINFO+B2                                                        PS1CTL       903     A     
 PS1CTL             SB2    B2+B5                                                           PS1CTL       904     A     
 PS1CTL             NZ     X1,INTB1          IF INITIALIZED                                PS1CTL       905     A     
 PS1CTL             SA6    A1                SET FWA                                       PS1CTL       906     A     
 PS1CTL             AX2    18                                                              PS1CTL       907     A     
 PS1CTL             SX7    X2                INITIAL ALLOC                                 PS1CTL       908     A     
 PS1CTL             SA7    ROOMS-1+B2                                                      PS1CTL       909     A     
 PS1CTL             IX6    X6+X7             UPDATE FWAWORK                                PS1CTL       910     A     
 PS1CTL             MX7    0                                                               PS1CTL       911     A     
 PS1CTL             SA7    SIZES-1+B2        SIZES(I) = 0                                  PS1CTL       912     A     
 PS1CTL             LT     B2,B3,INTB1                                                     PS1CTL       913     A     
 PS1CTL                                                                                    PS1CTL       914     A     
 PS1CTL             SA6    FWAWORK           UPDATE FWAWORK                                PS1CTL       915     A     
 PS1CTL             EQ     INITBL                                                          PS1CTL       916     A     
 PS1CTL             TITLE              PTU, PTD - PACK TABLES TO HIGH OR LOW CORE          PS1CTL       917     A     
 PS1CTL   ***                                                                              PS1CTL       918     A     
 PS1CTL   *         PTU - PACK TABLES UP TO HIGH CORE                                      PS1CTL       919     A     
 PS1CTL   *                                                                                PS1CTL       920     A     
 PS1CTL   *         ON ENTRY:                                                              PS1CTL       921     A     
 PS1CTL   *                X1 = NUMBERS OF TABLES TO BE SAVED                              PS1CTL       922     A     
 PS1CTL   *                IN FORMAT: 60-6*N/0,6/TBLN+1,...,6/TBL1+1                       PS1CTL       923     A     
 PS1CTL   *                                                                                PS1CTL       924     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1784    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL    PTU      ENTRY.                                                                 PS1CTL       925     A     
 PS1CTL             SA2    SYMEND                                                          PS1CTL       926     A     
 PS1CTL             BX0    X1                                                              PS1CTL       927     A     
 PS1CTL             SB6    X2                B6 = LWAWORK                                  PS1CTL       928     A     
 PS1CTL                                                                                    PS1CTL       929     A     
 PS1CTL    PTU1     MX7    60-6                                                            PS1CTL       930     A     
 PS1CTL             BX6    -X7*X0            TABLE NUMBER + 1                              PS1CTL       931     A     
 PS1CTL             AX0    6                                                               PS1CTL       932     A     
 PS1CTL             SX5    B6                                                              PS1CTL       933     A     
 PS1CTL             SA1    SIZES-1+X6                                                      PS1CTL       934     A     
 PS1CTL             SA2    ORIGINS-1+X6                                                    PS1CTL       935     A     
 PS1CTL             IX6    X5-X1             NEW ORIGIN                                    PS1CTL       936     A     
 PS1CTL             SA6    A2                                                              PS1CTL       937     A     
 PS1CTL             BX3    X6                                                              PS1CTL       938     A     
 PS1CTL             SB6    X6                                                              PS1CTL       939     A     
 PS1CTL             ZR     X1,PTU2           SKIP EMPTY TABLE                              PS1CTL       940     A     
 PS1CTL             MOVE   X1,X2,X3                                                        PS1CTL       941     A     
 PS1CTL    PTU2     NZ     X0,PTU1           IF MORE TO GO                                 PS1CTL       942     A     
 PS1CTL             SX6    B6-B5                                                           PS1CTL       943     A     
 PS1CTL             SA6    LWAWORK                                                         PS1CTL       944     A     
 PS1CTL             EQ     PTU                                                             PS1CTL       945     A     
 PS1CTL                                                                                    PS1CTL       946     A     
 PS1CTL   ***                                                                              PS1CTL       947     A     
 PS1CTL   *         PTD - PACK TABLES TO LOW CORE                                          PS1CTL       948     A     
 PS1CTL   *                                                                                PS1CTL       949     A     
 PS1CTL   *         ON ENTRY:                                                              PS1CTL       950     A     
 PS1CTL   *                X6 = LOW CORE LIMIT                                             PS1CTL       951     A     
 PS1CTL   *                                                                                PS1CTL       952     A     
 PS1CTL    PTD                                                                             PS1CTL       953     A     
 PS1CTL             SLL    NAF                                                             PS1CTL       954     A     
 PS1CTL             SB6    X6                B6 = LOW                                      PS1CTL       955     A     
 PS1CTL    PTD1     SA1    SIZES+B2                                                        PS1CTL       956     A     
 PS1CTL             SA2    ORIGINS+B2                                                      PS1CTL       957     A     
 PS1CTL             SX6    B6                                                              PS1CTL       958     A     
 PS1CTL             BX7    X1                                                              PS1CTL       959     A     
 PS1CTL             SA6    A2                NEW FWA                                       PS1CTL       960     A     
 PS1CTL             SB6    B6+X1             UPDATE LOW                                    PS1CTL       961     A     
 PS1CTL             SA7    ROOMS+B2          ROOMS(I) = SIZES(I)                           PS1CTL       962     A     
 PS1CTL             ZR     X1,PTD2           IF NOTHING TO MOVE                            PS1CTL       963     A     
 PS1CTL             IX0    X2-X6                                                           PS1CTL       964     A     
 PS1CTL             BX3    X6                                                              PS1CTL       965     A     
 PS1CTL             ZR     X0,PTD2           IF OLD ORG = NEW ORG                          PS1CTL       966     A     
 PS1CTL             MOVE   X1,X2,X3                                                        PS1CTL       967     A     
 PS1CTL    PTD2     SB2    B2+B5                                                           PS1CTL       968     A     
 PS1CTL             LT     B2,B3,PTD1                                                      PS1CTL       969     A     
 PS1CTL             SX6    B6                                                              PS1CTL       970     A     
 PS1CTL             SA6    FWAWORK           UPDATE FWAWORK                                PS1CTL       971     A     
 PS1CTL             EQ     PTD                                                             PS1CTL       972     A     
 PS1CTL                                                                                    PS1CTL       973     A     
 PS1CTL    WRM      SPACE  4,14                                                            PS1CTL       974     A     
 PS1CTL   **        WRM - WRITE R-MACRO CALL TO *RLIST* FILE.                              PS1CTL       975     A     
 PS1CTL   *                                                                                PS1CTL       976     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1785    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS1CTL  
  
 PS1CTL   *         INSERTS CURRENT VALUE OF *NRLN* IN HEADER WORD.                        PS1CTL       977     A     
 PS1CTL   *                                                                                PS1CTL       978     A     
 PS1CTL   *         ENTRY  (B7) = FWA OF R-MACRO CALL                                      PS1CTL       979     A     
 PS1CTL   *                                                                                PS1CTL       980     A     
 PS1CTL   *         EXIT   R-MACRO WRITTEN TO RLIST FILE.                                  PS1CTL       981     A     
 PS1CTL   *                                                                                PS1CTL       982     A     
 PS1CTL   *         USES   X - 0, 3, 4, 5, 6                                               PS1CTL       983     A     
 PS1CTL   *                                                                                PS1CTL       984     A     
 PS1CTL   *         CALLS  WRITEW                                                          PS1CTL       985     A     
 PS1CTL                                                                                    PS1CTL       986     A     
 PS1CTL    WRM      ENTRY. **                                                              PS1CTL       987     A     
 PS1CTL             SA4    B7                                                              PS1CTL       988     A     
 PS1CTL             MX0    -R1.RIL                                                         PS1CTL       989     A     
 PS1CTL             SA3    NRLN                                                            PS1CTL       990     A     
 PS1CTL             BX5    X0*X4                                                           PS1CTL       991     A     
 PS1CTL             AX4    R1.INP                                                          PS1CTL       992     A     
 PS1CTL             IX6    X3+X5       ADD CURRENT VALUE OF NRLN TO HEADER WORD            PS1CTL       993     A     
 PS1CTL             SA6    B7                                                              PS1CTL       994     A     
 PS1CTL             SB1    1                                                               PS1CTL       995     A     
 PS1CTL             WRITEW =XF.RLST,A4,X4+B1                                               PS1CTL       996     A     
 PS1CTL             SB5    1                                                               PS1CTL       997     A     
 PS1CTL             EQ     WRM                                                             PS1CTL       998     A     
 PS1CTL             END                                                                    PS1CTL       999     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PS1CTL  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PS1CTL                     999       954
          FCC0458                      5         5
          FEAT121L                     6         5
          FCC0628                     14        12
          FCC1211                      8         8
          FCC1425                      1         1
          FCC2126                      9         9
          FCC1768                     12        12
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COUNTMC 
  
 COUNTMC  *COMDECK  COUNTMC                                                                COUNTMC        1     A     
 COUNTMC  ***                                                                              COUNTMC        2     A     
 COUNTMC  *         COUNT - COUNT NUMBER OF PARAMETERS                                     COUNTMC        3     A     
 COUNTMC  *          SPECIAL MACRO USED BY "BASIC" AND "INTRIN" MACROS IN                  COUNTMC        4     A     
 COUNTMC  *          FORMING BEFTB AND INTRINSIC FUNCTION TABLES.                          COUNTMC        5     A     
 COUNTMC  *                                                                                COUNTMC        6     A     
 COUNTMC                                                                                   COUNTMC        7     A     
 COUNTMC   COUNT    MACRO  NPARAMS,NRS,TYPE,P1,P2                                          COUNTMC        8     A     
 COUNTMC            IFC    NE,//TYPE/                                                      COUNTMC        9     A     
 COUNTMC   .A       OCTMIC TYPE+1,2                                                        COUNTMC       10     A     
 COUNTMC   TYMIC    MICRO  1,,/"TYMIC"_".A"/                                               COUNTMC       11     A     
 COUNTMC   NPARAMS  SET    NPARAMS+1                                                       COUNTMC       12     A     
 COUNTMC   NRS      SET    NRS+1                                                           COUNTMC       13     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1786    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COUNTMC 
  
 COUNTMC            IFC    EQ,/TYPE/DOUBLE/,1                                              COUNTMC       14     A     
 COUNTMC   NRS      SET    NRS+1                                                           COUNTMC       15     A     
 COUNTMC            IFC    EQ,/TYPE/COMPLEX/,1                                             COUNTMC       16     A     
 COUNTMC   NRS      SET    NRS+1                                                           COUNTMC       17     A     
 COUNTMC            IFC    EQ,/TYPE/ANYDBL/,1                                              COUNTMC       18     A     
 COUNTMC   NRS      SET    NRS+1                                                           COUNTMC       19     A     
 COUNTMC            IFC    NE,/P1//                                                        COUNTMC       20     A     
 COUNTMC            COUNT  NPARAMS,NRS,P1,P2                                               COUNTMC       21     A     
 COUNTMC            ENDIF                                                                  COUNTMC       22     A     
 COUNTMC                                                                                   COUNTMC       23     A     
 COUNTMC   NPARAMS  DECMIC NPARAMS                                                         COUNTMC       24     A     
 COUNTMC   NRS      DECMIC NRS                                                             COUNTMC       25     A     
 COUNTMC            ENDM                                                                   COUNTMC       26     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COUNTMC 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COUNTMC                     26        26
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP    *DECK     STMTP                                                                  STMTP          1     A     
 STMTP              IDENT  STMTP                                                           STMTP          2     A     
 STMTP     STMTP    TITLE  STMTP -     MISCELLANEOUS STATEMENT PROCESSOR                   STMTP          3     A     
 STMTP    *CALL     SSTCALL                                                                STMTP          4     A     
 STMTP              LIST   F,X                                                             STMTP          5     A     
 STMTP                                                                                     STMTP          6     A     
 STMTP     B=STMTP  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             STMTP          7     A     
 STMTP     SYM1     EQU    12B                                                             STMTP          8     A     
 STMTP     DIM1     EQU    17B                                                             STMTP          9     A     
 STMTP     SELIST   EQU    32B                                                             STMTP         10     A     
 STMTP     DUKE     EQU    RA.SSW+37B                                                      STMTP         11     A     
 STMTP                                                                                     STMTP         12     A     
 STMTP     CLABEL   EQU    23B                                                             STMTP         13     A     
 STMTP     PROGRAM  EQU    56B                                                             STMTP         14     A     
 STMTP                                                                                     STMTP         15     A     
 STMTP              EXT    PSYM,WB.NML,VALUE.                                              STMTP         16     A     
 STMTP              EXT    DATA.,EPOINT.,WB.FTN,WB.NOP                                     STMTP         17     A     
 STMTP              EXT    SCHBET,O.CEP,ENTRY.,ENTRY.D                                     STMTP         18     A     
 STMTP              EXT    RSELECT                                                         STMTP         19     A     
 STMTP              EXT    FSTEX,DOFLAG,FTNNOP.,NOPS.                                      STMTP         20     A     
 STMTP              EXT    UDATA.,C.BLOCK                                                  STMTP         21     A     
 STMTP                                                                                     STMTP         22     A     
 STMTP              TABLES NML                                                             STMTP         23     A     
 STMTP              SPACE  3                                                               STMTP         24     A     
 STMTP    ***                                                                              STMTP         25     A     
 STMTP    *         STMTP - PROCESSORS FOR MISSCELLANEOUS STATEMENT TYPES                  STMTP         26     A     
 STMTP    *                                                                                STMTP         27     A     
 STMTP    *CALL     PARSEM                                                                 STMTP         28     A     
 STMTP    *CALL     FMACDEF                                                                STMTP         29     A     
 STMTP     CONT     TITLE  CONT - PROCESS CONTINUE STATEMENT.                              STMTP         30     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1787    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP    **        CONT - PROCESS *CONTINUE* STATEMENT.                                   STMTP         31     A     
 STMTP    *                                                                                STMTP         32     A     
 STMTP    *                                                                                STMTP         33     A     
 STMTP    *         ENTRY  NONE                                                            STMTP         34     A     
 STMTP    *                                                                                STMTP         35     A     
 STMTP    *         EXIT   NONE                                                            STMTP         36     A     
 STMTP    *                                                                                STMTP         37     A     
 STMTP    *         USES   NONE                                                            STMTP         38     A     
 STMTP    *                                                                                STMTP         39     A     
 STMTP    *         CALLS  GETE, IF., POSTER                                               STMTP         40     A     
 STMTP                                                                                     STMTP         41     A     
 STMTP                                                                                     STMTP         42     A     
 STMTP     E314     =      314         SPURIOUS CHARACTERS AFTER CONTINUE IGNORED          STMTP         43     A     
 STMTP                                                                                     STMTP         44     A     
 STMTP     CONT     SUBR   =           ** ENTRY/EXIT **                                    STMTP         45     A     
 STMTP              GETE                                                                   STMTP         46     A     
 STMTP              IF.EQ  EL.EOS,EXIT.  IF EOS                                            STMTP         47     A     
 STMTP                                                                                     STMTP         48     A     
 STMTP    *         POST INFORMATIVE ERROR FOR SPURIOUS CHARS AFTER *CONTINUE*.            STMTP         49     A     
 STMTP                                                                                     STMTP         50     A     
 STMTP              POSTER SEV=INF,NR=E314,FMT=ELIST,TXT=X4,RETURN=EXIT.                   STMTP         51     A     
 STMTP              TITLE              NAMELST - NAMELIST STATEMENT PROCESSOR              STMTP         52     A     
 STMTP    ***                                                                              STMTP         53     A     
 STMTP    *         NAMLIST - PROCESS NAMELIST STATEMENT                                   STMTP         54     A     
 STMTP    *                                                                                STMTP         55     A     
 STMTP                                                                                     STMTP         56     A     
 STMTP    *         ERROR NUMBERS                                                          STMTP         57     A     
 STMTP                                                                                     STMTP         58     A     
 STMTP     E.NSE    EQU    82                NAMELIST STMT SYNTAX ERROR                    STMTP         59     A     
 STMTP     E.BGN    EQU    83                BAD GROUP NAME                                STMTP         60     A     
 STMTP     E.GNE    EQU    84                GROUP NAME NOT IN SLASHS                      STMTP         61     A     
 STMTP     E.ONV    EQU    85                CURRENT E-LIST WAS NOT A VARIABLE             STMTP         62     A     
 STMTP     E.CUN    EQU    86                PRESENT USE CONFLICTS WITH PREVIOUS           STMTP         63     A     
 STMTP     E.VDIM   EQU    87                VARIABLE DIMENSIONS NOT ALLOWED               STMTP         64     A     
 STMTP     E.NASA   EQU    180               NAMELIST STMT IS NON USAS                     STMTP         65     A     
 STMTP                                                                                     STMTP         66     A     
 STMTP     NMLGN    BSS    1           GROUP NAME INFO, 42/INDEX TO NML TABLE              STMTP         67     A     
 STMTP    *                            18/ADDR OF WORD B                                   STMTP         68     A     
 STMTP     SYMORD   BSS    1           SYMTAB ORD OF NAMELIST VARIABLE                     STMTP         69     A     
 STMTP     PNITYPE  BSS    1           TYPE OF NAMELIST VARIABLE                           STMTP         70     A     
 STMTP     DEB      BSS    1           DIM/EQU FLAG                                        STMTP         71     A     
 STMTP     PNIEQU   BSS    1           24/0,18/BASE,18/BIAS OF EQU VAR.                    STMTP         72     A     
 STMTP                                                                                     STMTP         73     A     
 STMTP     DATA.CD  LIT    11C  DATA 0B                                                    STMTP         74     A     
 STMTP              SPACE  2                                                               STMTP         75     A     
 STMTP                                                                                     STMTP         76     A     
 STMTP     #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   STMTP         77     A     
 STMTP     IAF      ENTRY. 0                                                               STMTP         78     A     
 STMTP     #DAL     ENDIF                                                                  STMTP         79     A     
 STMTP                                                                                     STMTP         80     A     
 STMTP     NAMELST  ENTRY.                                                                 STMTP         81     A     
 STMTP              OUTUSE DATA.             GET IN THE RIGHT RB                           STMTP         82     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1788    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP                                                                                     STMTP         83     A     
 STMTP    *         PROCESS GROUP NAME                                                     STMTP         84     A     
 STMTP                                                                                     STMTP         85     A     
 STMTP              GETE                     FIRST E-LIST ELEMENT                          STMTP         86     A     
 STMTP              IF.NE  EL.SLASH,NML.E1   IF NOT A /                                    STMTP         87     A     
 STMTP                                                                                     STMTP         88     A     
 STMTP     NML1     NEXTE                                                                  STMTP         89     A     
 STMTP              IF.NE  NAME,NML.E4       IF NOT A NAME                                 STMTP         90     A     
 STMTP              UPDATE                                                                 STMTP         91     A     
 STMTP              SYMBOL                   GET SYMTAB ORDINAL                            STMTP         92     A     
 STMTP              EQ     NML2                                                            STMTP         93     A     
 STMTP                                                                                     STMTP         94     A     
 STMTP              SB6    E.BGN                                                           STMTP         95     A     
 STMTP              EQ     NML.E6A           PREVIOUS USEAGE IN ANOTHER CONTEXT            STMTP         96     A     
 STMTP                                                                                     STMTP         97     A     
 STMTP     NML2     ZR     X7,*+1            IF NO PREVIOUS USE  IN DEBUG STMTS            STMTP         98     A     
 STMTP              CALL   DBGCUN            ISSUE AN INFORMATIVE ERROR                    STMTP         99     A     
 STMTP              SA3    WB.NML            WORD B BITS                                   STMTP        100     A     
 STMTP              SA4    DATA.                                                           STMTP        101     A     
 STMTP              SX6    X4+B5             DATA. = DATA.+1                               STMTP        102     A     
 STMTP              SA6    A4                                                              STMTP        103     A     
 STMTP              LX4    P.RA                                                            STMTP        104     A     
 STMTP              IX0    X3+X4                                                           STMTP        105     A     
 STMTP              BX7    X0+X2             SET TYPE, RL,RA AND RB IN WORD B              STMTP        106     A     
 STMTP              SA7    A2                                                              STMTP        107     A     
 STMTP              SX6    B1                                                              STMTP        108     A     
 STMTP              SX7    A2                                                              STMTP        109     A     
 STMTP              SA6    GNORD             SAVE SYMTAB ORDINAL                           STMTP        110     A     
 STMTP              SA5    L.NML                                                           STMTP        111     A     
 STMTP              LX5    18                                                              STMTP        112     A     
 STMTP              BX6    X5+X7       42/INDEX TO NML,18/ADDR OF WORD B                   STMTP        113     A     
 STMTP              SA6    NMLGN                                                           STMTP        114     A     
 STMTP                                                                                     STMTP        115     A     
 STMTP              SA5    RSELECT                                                         STMTP        116     A     
 STMTP              ZR     X5,NML3           IF R = 0                                      STMTP        117     A     
 STMTP              ADDREF B1,DEF            DEFINITION OF THE NAME                        STMTP        118     A     
 STMTP                                                                                     STMTP        119     A     
 STMTP     NML3     SA1    GNORD                                                           STMTP        120     A     
 STMTP              BX6    X1                                                              STMTP        121     A     
 STMTP              F1AMAC GNAME             OUTPUT GROUP NAME DEFINITION                  STMTP        122     A     
 STMTP                                                                                     STMTP        123     A     
 STMTP              GETE                     NEXT AFTER THE NAME                           STMTP        124     A     
 STMTP              IF.NE  EL.SLASH,NML.E3   IF NO SECOND /                                STMTP        125     A     
 STMTP                                                                                     STMTP        126     A     
 STMTP    *         PROCESS THE LIST OF NAMES                                              STMTP        127     A     
 STMTP                                                                                     STMTP        128     A     
 STMTP     NML.L    NEXTE                                                                  STMTP        129     A     
 STMTP              IF.NE  NAME,NML.E4       IF NOT A NAME                                 STMTP        130     A     
 STMTP              UPDATE                                                                 STMTP        131     A     
 STMTP              RJ     PNV               PROCESS NAMELIST VARIABLE                     STMTP        132     A     
 STMTP              SA3    DATA.                                                           STMTP        133     A     
 STMTP              SX6    X3+2                                                            STMTP        134     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1789    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP              SA6    A3                DATA. = DATA. + 2                             STMTP        135     A     
 STMTP              GETE                     NEXT ELEMENT                                  STMTP        136     A     
 STMTP              IF.EQ  EL.COMMA,NML.L    LOOP IF A COMMA                               STMTP        137     A     
 STMTP              SB1    1                                                               STMTP        138     A     
 STMTP              WRITEC =XF.CMPS,DATA.CD,2                                              STMTP        139     A     
 STMTP              SA5    DATA.                                                           STMTP        140     A     
 STMTP              SB5    B1+                                                             STMTP        141     A     
 STMTP              SX6    X5+B5             DATA. = DATA. + 1                             STMTP        142     A     
 STMTP              SA6    A5                                                              STMTP        143     A     
 STMTP                                                                                     STMTP        144     A     
 STMTP              SA2    =XOPT2                                                          STMTP        145     A     
 STMTP              ZR     X2,NML4     IF NOT OPT=2                                        STMTP        146     A     
 STMTP              SA3    L.NML       NML ORD                                             STMTP        147     A     
 STMTP              SA4    NMLGN       42/INDEX TO NML,18/ADDR OF WORD B                   STMTP        148     A     
 STMTP              SA2    X4          WORD B                                              STMTP        149     A     
 STMTP              AX4    18                                                              STMTP        150     A     
 STMTP              IX1    X3-X4       NO. OF NAMELIST VARIABLES                           STMTP        151     A     
 STMTP              LX3    P.DIMP                                                          STMTP        152     A     
 STMTP              BX7    X2+X3       INSERT NML ORD INTO WORD B                          STMTP        153     A     
 STMTP              SA7    A2                                                              STMTP        154     A     
 STMTP                                                                                     STMTP        155     A     
 STMTP              ADDWD  NML,X1      ADD NO. OF VARIABLES TO TABLE                       STMTP        156     A     
 STMTP                                                                                     STMTP        157     A     
 STMTP     NML4     GETE               ELEMENT AFTER LAST NAME                             STMTP        158     A     
 STMTP              IF.EQ  EL.SLASH,NML1     LOOP FOR NEXT GROUP IF A /                    STMTP        159     A     
 STMTP                                                                                     STMTP        160     A     
 STMTP              IF.NE  EL.EOS,NML.E1     IF NOT END OF STMT                            STMTP        161     A     
 STMTP                                                                                     STMTP        162     A     
 STMTP              POSTER SEV=ANSI,NR=E.NASA,RETURN=NAMELST   *NON-ANSI STMT*             STMTP        163     A     
 STMTP                                                                                     STMTP        164     A     
 STMTP     GNORD    BSS    1                 ORDINAL OF GROUP NMAE                         STMTP        165     A     
 STMTP              SPACE  3                                                               STMTP        166     A     
 STMTP    *         ERROR EXITS                                                            STMTP        167     A     
 STMTP                                                                                     STMTP        168     A     
 STMTP     NML.E1   SB6    E.NSE             SYNTAX ERROR                                  STMTP        169     A     
 STMTP              EQ     NML.EX                                                          STMTP        170     A     
 STMTP                                                                                     STMTP        171     A     
 STMTP     NML.E2   SB6    E.BGN             BAD GROUP NAME                                STMTP        172     A     
 STMTP              EQ     NML.EX                                                          STMTP        173     A     
 STMTP                                                                                     STMTP        174     A     
 STMTP     NML.E3   SA2    GNORD                                                           STMTP        175     A     
 STMTP              RJ     PSYM                                                            STMTP        176     A     
 STMTP              SB6    E.GNE             GROUP NAME NOT IN // S                        STMTP        177     A     
 STMTP              EQ     NML.EX                                                          STMTP        178     A     
 STMTP                                                                                     STMTP        179     A     
 STMTP     NML.E4   SB6    E.ONV             CURRENT OBJECT NOT A VARIABLE                 STMTP        180     A     
 STMTP              EQ     NML.EX                                                          STMTP        181     A     
 STMTP                                                                                     STMTP        182     A     
 STMTP     NML.E5   SB6    E.CUN             BAD VARIABLE NAME ( SEMANTICS )               STMTP        183     A     
 STMTP              EQ     NML.E6A                                                         STMTP        184     A     
 STMTP                                                                                     STMTP        185     A     
 STMTP     NML.E6   SB6    E.VDIM            VARIABLE DIMS NO ALLOWED                      STMTP        186     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1790    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP                                                                                     STMTP        187     A     
 STMTP     NML.E6A  SX2    B1                SYMTAB ORDINAL                                STMTP        188     A     
 STMTP              RJ     PSYM              FORMAT NAME FOR ERPRO                         STMTP        189     A     
 STMTP                                                                                     STMTP        190     A     
 STMTP     NML.EX   POSTER SEV=FE,NR=**,RETURN=NAMELST                                     STMTP        191     A     
 STMTP              TITLE              PNV - PROCESS NAMELIST VARIABLE NAME                STMTP        192     A     
 STMTP     TBITN    MACRO  BIT,LABEL         IF( ^ BIT ) GO TO LABEL                       STMTP        193     A     
 STMTP              BX3    X1                                                              STMTP        194     A     
 STMTP              LX3    59-P.BIT                                                        STMTP        195     A     
 STMTP              PL     X3,LABEL                                                        STMTP        196     A     
 STMTP              ENDM                                                                   STMTP        197     A     
 STMTP                                                                                     STMTP        198     A     
 STMTP    ***                                                                              STMTP        199     A     
 STMTP    *         PNV - PROCESS NAMELIST VARIABLE                                        STMTP        200     A     
 STMTP    *                                                                                STMTP        201     A     
 STMTP    *         ON ENTRY:                                                              STMTP        202     A     
 STMTP    *                X1 = 8R_VARNAME                                                 STMTP        203     A     
 STMTP    *                                                                                STMTP        204     A     
 STMTP                                                                                     STMTP        205     A     
 STMTP    *         FIRST OCCURANCE - SET TYPE AND VN BIT                                  STMTP        206     A     
 STMTP                                                                                     STMTP        207     A     
 STMTP     PNV.F    ZR     X7,PNV.F1         IF NO PREVIOUS USE IN A DEBUG STMT            STMTP        208     A     
 STMTP              CFO    VAR               CHECK SETTING OF DEBUG BITS                   STMTP        209     A     
 STMTP                                                                                     STMTP        210     A     
 STMTP     PNV.F1   IX2    X6+X2             SET TYPE                                      STMTP        211     A     
 STMTP              SX0    B5                                                              STMTP        212     A     
 STMTP              LX0    P.VAR             AND VAR BIT                                   STMTP        213     A     
 STMTP              BX7    X0+X2                                                           STMTP        214     A     
 STMTP              SA7    A2                                                              STMTP        215     A     
 STMTP              LX2    X7                                                              STMTP        216     A     
 STMTP              EQ     PNV1                                                            STMTP        217     A     
 STMTP                                                                                     STMTP        218     A     
 STMTP     PNV                                                                             STMTP        219     A     
 STMTP              SYMBOL                   GET SYMTAB ORDINAL                            STMTP        220     A     
 STMTP              EQ     PNV.F                                                           STMTP        221     A     
 STMTP                                                                                     STMTP        222     A     
 STMTP    *         PREVIOUS OCCURANCES                                                    STMTP        223     A     
 STMTP                                                                                     STMTP        224     A     
 STMTP              NE     B1,B5,PNV1        IF NOT ORDINAL 1                              STMTP        225     A     
 STMTP              SA3    VALUE.                                                          STMTP        226     A     
 STMTP              ZR     X3,NML.E5         IF NOT A FUNCTION SUBPROGRAM                  STMTP        227     A     
 STMTP              SB1    X3                                                              STMTP        228     A     
 STMTP              SB2    B1+B1                                                           STMTP        229     A     
 STMTP              SA1    A0-B2             WORD A OF VALUE.                              STMTP        230     A     
 STMTP              SA2    A1-B5             WORD B                                        STMTP        231     A     
 STMTP                                                                                     STMTP        232     A     
 STMTP     PNV1     MX0    L.TYP                                                           STMTP        233     A     
 STMTP              BX3    X0*X2                                                           STMTP        234     A     
 STMTP              LX3    L.TYP                                                           STMTP        235     A     
 STMTP              SX4    X3-T.OCT                                                        STMTP        236     A     
 STMTP              PL     X4,NML.E5         ERROR IF TYPE ECS, RETURNS OF SUCH            STMTP        237     A     
 STMTP                                                                                     STMTP        238     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1791    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP              BX5    X1                                                              STMTP        239     A     
 STMTP              LX5    59-P.FUN                                                        STMTP        240     A     
 STMTP              BX3    X2                                                              STMTP        241     A     
 STMTP              LX3    59-P.EXT                                                        STMTP        242     A     
 STMTP              BX4    X3+X5                                                           STMTP        243     A     
 STMTP              NG     X4,NML.E5         IF FUNCTION OR EXTERNAL                       STMTP        244     A     
 STMTP                                                                                     STMTP        245     A     
 STMTP              SX0    V.DEF                                                           STMTP        246     A     
 STMTP              BX6    X0+X1                                                           STMTP        247     A     
 STMTP              MX3    1                                                               FCC0389        4     A     
 STMTP              LX3    1+P.VAR                                                         FCC0389        5     A     
 STMTP              BX7    X2+X3       SET VAR BIT                                         FCC0389        6     A     
 STMTP              LX2    X7                                                              FCC0389        7     A     
 STMTP              SA7    A2                                                              FCC0389        8     A     
 STMTP              SA6    A1                SET DEFINED BIT                               STMTP        248     A     
 STMTP                                                                                     STMTP        249     A     
 STMTP              BX3    X2                                                              STMTP        250     A     
 STMTP              MX0    60-L.DIMP                                                       STMTP        251     A     
 STMTP              AX3    P.DIMP                                                          STMTP        252     A     
 STMTP              BX4    -X0*X3                                                          STMTP        253     A     
 STMTP              SX3    V.DIM+V.EQU                                                     STMTP        254     A     
 STMTP              SB2    B0                                                              STMTP        255     A     
 STMTP              BX6    X3*X1                                                           STMTP        256     A     
 STMTP              SA6    DEB         SAVE DIM/EQU INFO                                   STMTP        257     A     
 STMTP              ZR     X6,PNV2     IF NOT DIMENSIONED OR EQUIV/ED                      STMTP        258     A     
 STMTP              SB2    X4                                                              STMTP        259     A     
 STMTP              SB2    B2+B2             INDEX TO DIM TABLE                            STMTP        260     A     
 STMTP              SA3    DIM1                                                            STMTP        261     A     
 STMTP              SB2    B2+X3             B2 = ADDRESS OF DIM ENTRY                     STMTP        262     A     
 STMTP                                                                                     STMTP        263     A     
 STMTP    *         THE REGISTERS NOW HOLD:                                                STMTP        264     A     
 STMTP    *         A1,X1,A2,X2 - WORD A AND WORD B OF SYMTAB ENTRY                        STMTP        265     A     
 STMTP    *         B1 = SYMTAB ORDINAL , B2 = ADDRESS OF DIM ENTRY OR 0                   STMTP        266     A     
 STMTP    *         DO NOT DESTROY THEM UNTIL AFTER THE ADDREF CALL                        STMTP        267     A     
 STMTP                                                                                     STMTP        268     A     
 STMTP     PNV2     SX6    B1                                                              STMTP        269     A     
 STMTP              SA6    SYMORD            SAVE SYMTAB ORD FOR PNI SUBROUTINE            STMTP        270     A     
 STMTP              SB7    B0                NUMBER OF ARGS                                STMTP        271     A     
 STMTP              SVARG  NAMEL,1     ARG 1 = VARIABLE NAME                               STMTP        272     A     
 STMTP                                                                                     STMTP        273     A     
 STMTP              BX6    X2                                                              STMTP        274     A     
 STMTP              AX6    P.TYP                                                           STMTP        275     A     
 STMTP              SA6    PNITYPE           SAVE TYPE FOR PNI SUBROUTINE                  STMTP        276     A     
 STMTP              SX6    X6+B5                                                           STMTP        277     A     
 STMTP                                                                                     STMTP        278     A     
 STMTP     #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   STMTP        279     A     
 STMTP              MX0    -L.LVL                                                          STMTP        280     A     
 STMTP              BX3    X2                                                              STMTP        281     A     
 STMTP              LX3    -P.LVL                                                          STMTP        282     A     
 STMTP              BX4    -X0*X3            EXTRACT THE LEVEL OF THE VARIABLE             STMTP        283     A     
 STMTP              SX4    X4-3                                                            STMTP        284     A     
 STMTP              ZR     X4,NML.E5   IF LEVEL 3 ERROR                                    STMTP        285     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1792    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP              LX3    P.LVL+59-P.LCM                                                  STMTP        286     A     
 STMTP              PL     X3,PNV3     IF NOT LCM RESIDENT                                 STMTP        287     A     
 STMTP              SA3    =XDIRECT                                                        STMTP        288     A     
 STMTP              BX7    X3                                                              STMTP        289     A     
 STMTP              SA7    IAF                                                             STMTP        290     A     
 STMTP              SX4    1S3                                                             STMTP        291     A     
 STMTP              BX6    X4+X6                                                           STMTP        292     A     
 STMTP     #DAL     ENDIF                                                                  STMTP        293     A     
 STMTP                                                                                     STMTP        294     A     
 STMTP     PNV3     SVARG  OCT,2             ARG 2 = TYPE                                  STMTP        295     A     
 STMTP                                                                                     STMTP        296     A     
 STMTP     #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   STMTP        297     A     
 STMTP              MX0    1                                                               STMTP        298     A     
 STMTP     #DAL     ENDIF                                                                  STMTP        299     A     
 STMTP                                                                                     STMTP        300     A     
 STMTP                                                                                     STMTP        301     A     
 STMTP              TBITN  EQU,PNV4          IF NOT EQUIVALENCED                           STMTP        302     A     
 STMTP              SA3    B2                WORD 1 OF DIM ENTRY                           STMTP        303     A     
 STMTP              AX3    18                                                              STMTP        304     A     
 STMTP              BX6    X3                                                              STMTP        305     A     
 STMTP              SB4    X3                SAVE BIAS                                     STMTP        306     A     
 STMTP              SA6    PNIEQU      SAVE FOR PNI IF OPT=2                               STMTP        307     A     
 STMTP              AX3    18                                                              STMTP        308     A     
 STMTP              SX6    X3                                                              STMTP        309     A     
 STMTP              SVARG  NAME,3            ARG 3 = BASE                                  STMTP        310     A     
 STMTP              SX6    B4                                                              STMTP        311     A     
 STMTP              SVARG  OCT,4             ARG 4 = BIAS                                  STMTP        312     A     
 STMTP                                                                                     STMTP        313     A     
 STMTP     #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   STMTP        314     A     
 STMTP              MX0    0                                                               STMTP        315     A     
 STMTP     #DAL     ENDIF                                                                  STMTP        316     A     
 STMTP                                                                                     STMTP        317     A     
 STMTP                                                                                     STMTP        318     A     
 STMTP     PNV4     TBITN  FP,PNV5           IF NOT AN F.P.                                STMTP        319     A     
 STMTP              SX6    B1-2              FP ORDINAL                                    STMTP        320     A     
 STMTP              SVARG  OCT,5             ARG 5 = FP ORDINAL                            STMTP        321     A     
 STMTP                                                                                     STMTP        322     A     
 STMTP     #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   STMTP        323     A     
 STMTP              MX0    0                                                               STMTP        324     A     
 STMTP              MX7    0                                                               STMTP        325     A     
 STMTP              SA7    IAF                                                             STMTP        326     A     
 STMTP     #DAL     ENDIF                                                                  STMTP        327     A     
 STMTP                                                                                     STMTP        328     A     
 STMTP                                                                                     STMTP        329     A     
 STMTP     PNV5     BSS    0                                                               STMTP        330     A     
 STMTP                                                                                     STMTP        331     A     
 STMTP     #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   STMTP        332     A     
 STMTP              SA3    =XDIRECT                                                        STMTP        333     A     
 STMTP              ZR     X4,PNV5.A   IF NOT LEVEL 2                                      STMTP        334     A     
 STMTP              ZR     X3,PNV5.A   IF NOT INDIRECT MODE                                STMTP        335     A     
 STMTP              ZR     X0,PNV5.A   IF F.P. OR EQUIVALENCED                             STMTP        336     A     
 STMTP              SX6    B1           SYMTAB ORDINAL                                     STMTP        337     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1793    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP              SVARG  NAME,3      BASE                                                STMTP        338     A     
 STMTP              MX6    0           KLUDGE ZERO BIAS FOR FMAC TO ADD TO                 STMTP        339     A     
 STMTP              SVARG  OCT,4        BIAS                                               STMTP        340     A     
 STMTP     #DAL     ENDIF                                                                  STMTP        341     A     
 STMTP                                                                                     STMTP        342     A     
 STMTP     PNV5.A   TBITN  DIM,PNV6    IF NOT DIMENSIONED                                  STMTP        343     A     
 STMTP              SA3    B2+B5             WORD 2 OF DIM ENTRY                           STMTP        344     A     
 STMTP              MX0    3                                                               STMTP        345     A     
 STMTP              BX4    X0*X3                                                           STMTP        346     A     
 STMTP              LX4    3                                                               STMTP        347     A     
 STMTP              SB4    X4                B4 = NUMBER OF DIMS                           STMTP        348     A     
 STMTP              BX6    X4                                                              STMTP        349     A     
 STMTP              SVARG  INT,6             ARG 6 = NUMBER OF DIMENSIONS                  STMTP        350     A     
 STMTP              LX0    3+54                                                            STMTP        351     A     
 STMTP              BX4    X0*X3                                                           STMTP        352     A     
 STMTP              NZ     X4,NML.E6         ERROR IF VARIABLE DIMENSIONS                  STMTP        353     A     
 STMTP                                                                                     STMTP        354     A     
 STMTP              SX6    X3                                                              STMTP        355     A     
 STMTP              SVARG  OCT,7             ARG 7 = DIM1                                  STMTP        356     A     
 STMTP              SB4    B4-B5                                                           STMTP        357     A     
 STMTP              ZR     B4,PNV6           IF ONLY 1 DIM                                 STMTP        358     A     
 STMTP              SA4    DATA.                                                           STMTP        359     A     
 STMTP              SX6    X4+B5                                                           STMTP        360     A     
 STMTP              SA6    A4                                                              STMTP        361     A     
 STMTP              SX0    X3                D1                                            STMTP        362     A     
 STMTP              AX3    18                                                              STMTP        363     A     
 STMTP              SX6    X3                                                              STMTP        364     A     
 STMTP              IX0    X0*X6             D1*D2                                         STMTP        365     A     
 STMTP              SVARG  OCT,8             ARG 8 = DIM2                                  STMTP        366     A     
 STMTP              SB4    B4-B5                                                           STMTP        367     A     
 STMTP              ZR     B4,PNV6           IF ONLY 2 DIMS                                STMTP        368     A     
 STMTP              AX3    18                                                              STMTP        369     A     
 STMTP              SX3    X3                PRODUCT(DIMS) * (SDPF+1)                      STMTP        370     A     
 STMTP              AX2    P.TYP             LAST ARG, DESTROY X2                          STMTP        371     A     
 STMTP              SX5    X2-T.DBL                                                        STMTP        372     A     
 STMTP              NG     X5,PNV5A          IF SINGLE PRECISION                           STMTP        373     A     
 STMTP              AX3    1                 /2                                            STMTP        374     A     
 STMTP     PNV5A    SB6    B7                SAVE B7                                       STMTP        375     A     
 STMTP              IX6    X3/X0             COMPUTE D3                                    STMTP        376     A     
 STMTP              SB7    B6                RESTORE ARG COUNT TO B7                       STMTP        377     A     
 STMTP              SVARG  OCT,9             ARG 9 = D3                                    STMTP        378     A     
 STMTP                                                                                     STMTP        379     A     
 STMTP     PNV6     NARGS= B7                SAVE NUMBER OF ARGS                           STMTP        380     A     
 STMTP                                                                                     STMTP        381     A     
 STMTP              SA5    RSELECT                                                         STMTP        382     A     
 STMTP              ZR     X5,PNV7           IF R = 0                                      STMTP        383     A     
 STMTP              ADDREF B1,REF            A REFERENCE FOR THE VARIABLE                  STMTP        384     A     
 STMTP                                                                                     STMTP        385     A     
 STMTP     PNV7     FMAC   NAME              OUTPUT NAME MACRO CALL                        STMTP        386     A     
 STMTP                                                                                     STMTP        387     A     
 STMTP    *         WHEN IN OPT=2, THE OPTIMIZATION INFORMATION ABOUT THE NAMELIST         STMTP        388     A     
 STMTP    *         VARIABLES WILL BE ENTERED IN THE NML TABLE .  FOR A NAMELIST           STMTP        389     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1794    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP    *         I/O, LISTIO WILL PUT THESE VARIABLES OUT IN THE PIO MACROS.            STMTP        390     A     
 STMTP                                                                                     STMTP        391     A     
 STMTP              SA2    =XOPT2                                                          STMTP        392     A     
 STMTP              ZR     X2,PNV      IF NOT IN OPT=2                                     STMTP        393     A     
 STMTP              SA1    SYMORD                                                          STMTP        394     A     
 STMTP              SA4    DEB         DIM/EQU INFO                                        STMTP        395     A     
 STMTP              LX1    AP.IHP      CA=0, IH                                            STMTP        396     A     
 STMTP              MX7    1           BIT USED FOR SETTING FLAGS                          STMTP        397     A     
 STMTP              LX4    59-P.EQU                                                        STMTP        398     A     
 STMTP              PL     X4,PNV8     IF NOT EQUIVED                                      STMTP        399     A     
 STMTP              SA3    PNIEQU      EQU INFO                                            STMTP        400     A     
 STMTP              SX6    X3          BIAS                                                STMTP        401     A     
 STMTP              AX3    18                                                              STMTP        402     A     
 STMTP              SX2    X3          BASE                                                STMTP        403     A     
 STMTP              LX6    AP.CAP                                                          STMTP        404     A     
 STMTP              BX1    X6+X2       CA,IH                                               STMTP        405     A     
 STMTP                                                                                     STMTP        406     A     
 STMTP     PNV8     LX4    P.EQU-P.DIM                                                     STMTP        407     A     
 STMTP              PL     X4,PNV9     IF NOT DIMENSIONED                                  STMTP        408     A     
 STMTP              LX7    1+AP.CRP                                                        STMTP        409     A     
 STMTP              BX1    X7+X1       CR,CA,IH                                            STMTP        410     A     
 STMTP              EQ     PNV10                                                           STMTP        411     A     
 STMTP                                                                                     STMTP        412     A     
 STMTP     PNV9     SA4    PNITYPE                                                         STMTP        413     A     
 STMTP              SX5    X4-T.DBL                                                        STMTP        414     A     
 STMTP              MI     X5,PNV10    IF SINGLE PRECISION                                 STMTP        415     A     
 STMTP              LX7    1+AP.P1P                                                        STMTP        416     A     
 STMTP              BX1    X7+X1       SET DOUBLE WORD BIT                                 STMTP        417     A     
 STMTP                                                                                     STMTP        418     A     
 STMTP     PNV10    ADDWD  NML,X1      ADD ENTRY TO TABLE                                  STMTP        419     A     
 STMTP              EQ     PNV                                                             STMTP        420     A     
 STMTP              TITLE              ENTRY STATEMENT PROCESSOR                           STMTP        421     A     
 STMTP    ***                                                                              STMTP        422     A     
 STMTP    *         ENTRY STATEMENT PROCESSOR                                              STMTP        423     A     
 STMTP    *                                                                                STMTP        424     A     
 STMTP    *         SYNTAX:   ENTRY <NAME> <EOS>                                           STMTP        425     A     
 STMTP    *         ELIST:          ------------                                           STMTP        426     A     
 STMTP    *                                                                                STMTP        427     A     
 STMTP                                                                                     STMTP        428     A     
 STMTP    *         ERROR NUMBERS                                                          STMTP        429     A     
 STMTP                                                                                     STMTP        430     A     
 STMTP     E.ENTD   EQU    14                ENTRY STMT IN A DO LOOP                       STMTP        431     A     
 STMTP     E.ENTA   EQU    181               ENTRY STMT IS NOT USASI                       STMTP        432     A     
 STMTP     E.ENT1   EQU    78                PREVIOUS USE OF NAME IN ANOTHER CONTE         STMTP        433     A     
 STMTP     E.ENT2   EQU    79                SYNTAX ERROR                                  STMTP        434     A     
 STMTP     E.ENTM   EQU    81                ENTRY STMT IN MAIN PROGRAM                    STMTP        435     A     
 STMTP     E.ENT4   EQU    88                LABELED ENTRY STMT                            STMTP        436     A     
 STMTP                                                                                     STMTP        437     A     
 STMTP     M.UCJ    EQU    105B                                                            STMTP        438     A     
 STMTP     M.ENT    RMEQU  103B        ENTRY STMT MACRO ORDINAL                            STMTP        439     A     
 STMTP              SPACE  3                                                               STMTP        440     A     
 STMTP     ENTM     RMHDR  M.ENT,1           RLIST MACRO HEADER WORD                       STMTP        441     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1795    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP              BSS    1                                                               STMTP        442     A     
 STMTP     UCJM     RMHDR  M.UCJ,1                                                         STMTP        443     A     
 STMTP              BSS    1                                                               STMTP        444     A     
 STMTP     NOPA.CD  LIT    34CFTNNOP. DATA 46000460004600046000B                           STMTP        445     A     
 STMTP     NOPB.CD  LIT    32CNOPS. DATA 46000460004600046000B                             STMTP        446     A     
 STMTP              SPACE  3                                                               STMTP        447     A     
 STMTP     ENTRY    ENTRY.                                                                 STMTP        448     A     
 STMTP              SA1    PROGRAM                                                         STMTP        449     A     
 STMTP              SA2    CLABEL                                                          STMTP        450     A     
 STMTP              SB6    -E.ENTM                                                         STMTP        451     A     
 STMTP              UX3    B1,X1                                                           STMTP        452     A     
 STMTP              NZ     B1,ENTRY1         IF NOT A MAIN PROGRAM                         STMTP        453     A     
 STMTP                                                                                     STMTP        454     A     
 STMTP     ENTRYX   POSTER SEV=FE,NR=**,RETURN=ENTRYXX                                     STMTP        455     A     
 STMTP                                                                                     STMTP        456     A     
 STMTP     ENTRY1   SB6    -E.ENT4                                                         STMTP        457     A     
 STMTP              NZ     X2,ENTRYX         IF STMT HAS A LABEL                           STMTP        458     A     
 STMTP                                                                                     STMTP        459     A     
 STMTP    *         PERFORM SYNTAX CHECK                                                   STMTP        460     A     
 STMTP                                                                                     STMTP        461     A     
 STMTP              SA5    SELIST                                                          STMTP        462     A     
 STMTP              SA4    X5                NAME                                          STMTP        463     A     
 STMTP              SA2    A4-B5             EOS                                           STMTP        464     A     
 STMTP              UX1    B1,X4             NAME                                          STMTP        465     A     
 STMTP              UX2    B2,X2                                                           STMTP        466     A     
 STMTP              SB6    -E.ENT2           SYNTAX ERROR                                  STMTP        467     A     
 STMTP              NE     B1,B5,ENTRYX      IF NOT A NAME                                 STMTP        468     A     
 STMTP              SB2    B2-EL.EOS                                                       STMTP        469     A     
 STMTP              NZ     B2,ENTRYX         IF NOT EOS                                    STMTP        470     A     
 STMTP                                                                                     STMTP        471     A     
 STMTP    *         ENTER NAME IN SYMTAB                                                   STMTP        472     A     
 STMTP                                                                                     STMTP        473     A     
 STMTP              SYMBOL                   ENTER NAME IN THE SYMBOL TABLE                STMTP        474     A     
 STMTP              EQ     ENTRYN                                                          STMTP        475     A     
 STMTP                                                                                     STMTP        476     A     
 STMTP              SB6    -E.ENT1           DUPLICATE USE OF THE NAME                     STMTP        477     A     
 STMTP              EQ     ENTRYX                                                          STMTP        478     A     
 STMTP                                                                                     STMTP        479     A     
 STMTP    *         NAME NOT IN THE TABLE                                                  STMTP        480     A     
 STMTP                                                                                     STMTP        481     A     
 STMTP     ENTRYN   ZR     X7,*+1            IF NO PREVIOUS USE IN DEBUG STMTS             STMTP        482     A     
 STMTP              CALL   DBGCUN            ISSUE ERROR MESSAGE                           STMTP        483     A     
 STMTP              SX0    T.ENT                                                           STMTP        484     A     
 STMTP              LX0    P.TYP                                                           STMTP        485     A     
 STMTP              BX6    X0+X2             SET TYPE                                      STMTP        486     A     
 STMTP              SA6    A2                                                              STMTP        487     A     
 STMTP              LX2    X6                                                              STMTP        488     A     
 STMTP                                                                                     STMTP        489     A     
 STMTP              SB7    ENTM                                                            STMTP        490     A     
 STMTP              SX7    B1                                                              STMTP        491     A     
 STMTP              SA7    B7+B5             STORE IN RLIST MACRO                          STMTP        492     A     
 STMTP              SA7    O.CEP             UPDATE CURRENT ENTRY PT ORD FOR RTNPR         STMTP        493     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1796    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP                                                                                     STMTP        494     A     
 STMTP              SA3    FSTEX                                                           STMTP        495     A     
 STMTP              ZR     X3,ENTRY5         IF NO EXECUTABLES YET                         STMTP        496     A     
 STMTP              SA2    =XLSFLG                                                         STMTP        497     A     
 STMTP              ZR     X2,ENTRYN0  IF NO UCJP BEFORE                                   STMTP        498     A     
 STMTP              MX7    0                                                               STMTP        499     A     
 STMTP              SA7    A2                                                              STMTP        500     A     
 STMTP              WRM    B7          OUTPUT ENTR. MACRO HEADER                           STMTP        501     A     
 STMTP              EQ     ENTRYN1                                                         STMTP        502     A     
 STMTP                                                                                     STMTP        503     A     
 STMTP     ENTRYN0  SA4    =XN.GL                                                          STMTP        504     A     
 STMTP              SX6    I.GL+X4                                                         STMTP        505     A     
 STMTP              SX7    X4+B5                                                           STMTP        506     A     
 STMTP              SA6    UCJM+1      UJP #GL                                             STMTP        507     A     
 STMTP              SA7    A4                                                              STMTP        508     A     
 STMTP              WRM    A6-B5       OUTPUT JUMP AROUND                                  STMTP        509     A     
 STMTP              WRM    ENTM        ENTRY. DEF                                          STMTP        510     A     
 STMTP              SA5    UCJM+1                                                          STMTP        511     A     
 STMTP              CALL   WLABM       LABEL DEF                                           STMTP        512     A     
 STMTP                                                                                     STMTP        513     A     
 STMTP     ENTRYN1  SA4    =XTEMPA0.                                                       STMTP        514     A     
 STMTP              ZR     X4,ENTRY2         IF NO F.P. S                                  STMTP        515     A     
 STMTP                                                                                     STMTP        516     A     
 STMTP     ENTRYN2  PLUG   AT=ENTRYN2,TO=ENTRY2    SEND DATA STMTS ONLY ONCE               STMTP        517     A     
 STMTP              SYMBOL =8RFTNNOP.        FTNNOP. TO SYMTAB                             STMTP        518     A     
 STMTP              SA3    EPOINT.           ENTRY. BLOCK                                  STMTP        519     A     
 STMTP              SX6    X3+B5             ENTRY. = ENTRY.+1                             STMTP        520     A     
 STMTP              SA6    A3                                                              STMTP        521     A     
 STMTP              SA4    WB.FTN            TYPE , RL AND RB                              STMTP        522     A     
 STMTP              LX3    P.RA                                                            STMTP        523     A     
 STMTP              IX5    X3+X4                                                           STMTP        524     A     
 STMTP              BX6    X5+X2             DEFINE THE ADDRESS                            STMTP        525     A     
 STMTP              SA6    A2                                                              STMTP        526     A     
 STMTP              SX7    B1                SAVE THE SYMTAB ORDINAL                       STMTP        527     A     
 STMTP              SA7    FTNNOP.                                                         STMTP        528     A     
 STMTP              SYMBOL =8RNOPS.          NOPS. TO SYMTAB                               STMTP        529     A     
 STMTP              SA3    DATA.                                                           STMTP        530     A     
 STMTP              SX6    X3+B5             DATA. = DATA.+1                               STMTP        531     A     
 STMTP              SA6    A3                                                              STMTP        532     A     
 STMTP              SA4    WB.NOP                                                          STMTP        533     A     
 STMTP              LX3    P.RA                                                            STMTP        534     A     
 STMTP              IX5    X3+X4                                                           STMTP        535     A     
 STMTP              BX6    X5+X2             DEFINE THE ADDRESS                            STMTP        536     A     
 STMTP              SA6    A2                                                              STMTP        537     A     
 STMTP              SX7    B1                SAVE THE SYMTAB ORDINAL                       STMTP        538     A     
 STMTP              SA7    NOPS.                                                           STMTP        539     A     
 STMTP              OUTUSE ENTRY.                                                          STMTP        540     A     
 STMTP              WRITEC =XF.CMPS,NOPA.CD,4                                              STMTP        541     A     
 STMTP              OUTUSE DATA.                                                           STMTP        542     A     
 STMTP              WRITEC =XF.CMPS,NOPB.CD,4                                              STMTP        543     A     
 STMTP              SB5    B1+                                                             STMTP        544     A     
 STMTP              SX6    UDATA.                                                          STMTP        545     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1797    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP              SA6    C.BLOCK           SET CURRENT BLOCK TO DATA.                    STMTP        546     A     
 STMTP                                                                                     STMTP        547     A     
 STMTP     ENTRY2   SA1    DOFLAG                                                          STMTP        548     A     
 STMTP              ZR     X1,ENTRY3         IF NOT INSIDE A LOOP                          STMTP        549     A     
 STMTP              POSTERR   NR=E.ENTD,SEV=FE,RETURN=ENTRY3   *ENTRY IN DO LOOP*          STMTP        550     A     
 STMTP                                                                                     STMTP        551     A     
 STMTP     ENTRY3   CALL   CVDB        ISSUE *COMPUTE VARDIM BOUNDS* R-MACRO               STMTP        552     A     
 STMTP              SA5    RSELECT                                                         STMTP        553     A     
 STMTP              ZR     X5,ENTRY4         IF R = 0                                      STMTP        554     A     
 STMTP              ADDREF ENTM+1,DEF        DEFINITION OF THE NAME                        STMTP        555     A     
 STMTP                                                                                     STMTP        556     A     
 STMTP     ENTRY4   ADDWD  ENTR,ENTM+1       SAVE SYMTAB ORDINAL IN ENTR TABLE             STMTP        557     A     
 STMTP     ENTRYXX  POSTERR   NR=E.ENTA,SEV=ANSI,RETURN=ENTRY  *ENTRY IS NON-ANSI*         STMTP        558     A     
 STMTP              SPACE  3                                                               STMTP        559     A     
 STMTP    ***                                                                              STMTP        560     A     
 STMTP    *         EXECUTABLE STMTS HAVE NOT YET APPEARED                                 STMTP        561     A     
 STMTP    *         MAKE THIS ENTRY POINT THE SAME AS THE MAIN ENTRY POINT                 STMTP        562     A     
 STMTP    *                                                                                STMTP        563     A     
 STMTP                                                                                     STMTP        564     A     
 STMTP     ENTRY5   SA3    ENTRY.D           WORD B OF ENTRY.                              STMTP        565     A     
 STMTP              BX7    X3+X2             DEFINE THE ADDRESS                            STMTP        566     A     
 STMTP              SA7    A2                                                              STMTP        567     A     
 STMTP                                                                                     STMTP        568     A     
 STMTP    *         OUTPUT "FEQU" MACRO CALL                                               STMTP        569     A     
 STMTP                                                                                     STMTP        570     A     
 STMTP              INTARG                                                                 STMTP        571     A     
 STMTP              SX6    B1                                                              STMTP        572     A     
 STMTP              SVARG  NAME,1            ARG 1 = ORD OF ENTRY POINT NAME               STMTP        573     A     
 STMTP              SA1    ENTRY.                                                          STMTP        574     A     
 STMTP              BX6    X1                                                              STMTP        575     A     
 STMTP              SVARG  NAME,2            ARG 2 = ORD(ENTRY.)                           STMTP        576     A     
 STMTP              NARGS= B7                                                              STMTP        577     A     
 STMTP              FMAC   FEQU                                                            STMTP        578     A     
 STMTP              EQ     ENTRY3                                                          STMTP        579     A     
 STMTP              TITLE              STOP AND PAUSE STATEMENT PROCESSORS                 STMTP        580     A     
 STMTP              USE    /MACBUF/                                                        STMTP        581     A     
 STMTP     TEMP                                                                            STMTP        582     A     
 STMTP              USE    *                                                               STMTP        583     A     
 STMTP                                                                                     STMTP        584     A     
 STMTP     E.STOP   EQU    220               BAD SYNTAX IN STOP OR PAUSE STMT              STMTP        585     A     
 STMTP                                                                                     STMTP        586     A     
 STMTP     M.STOP   RMEQU  102B        EQ END. MACRO ORDINAL                               STMTP        587     A     
 STMTP     M.PAUSE  RMEQU  124B        GENERAL EXT FUNC CALL MACRO ORDINAL                 STMTP        588     A     
 STMTP                                                                                     STMTP        589     A     
 STMTP     PAUSEMC  RMHDR  M.PAUSE,2                                                       STMTP        590     A     
 STMTP     STOPMC   RMHDR  M.STOP,2                                                        STMTP        591     A     
 STMTP                                                                                     STMTP        592     A     
 STMTP     RLBUF    BSS    3                                                               STMTP        593     A     
 STMTP     STOPP    SPACE  4                                                               STMTP        594     A     
 STMTP    **        STOPP - PROCESS "STOP" STATEMENT                                       STMTP        595     A     
 STMTP    *                                                                                STMTP        596     A     
 STMTP    *         SYNTAX:   STOP <EOS> OR  STOP <NNNNN> <EOS>                            STMTP        597     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1798    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP    *         ELIST:         -----          -------------                            STMTP        598     A     
 STMTP    *                                                                                STMTP        599     A     
 STMTP    *         <NNNNN>  MUST BE A STRING OF 1 TO 5 OCTAL DIGITS                       STMTP        600     A     
 STMTP    *                                                                                STMTP        601     A     
 STMTP     STOPP    ENTRY.                                                                 STMTP        602     A     
 STMTP              SA1    STOPMC                                                          STMTP        603     A     
 STMTP              BX7    X1                                                              STMTP        604     A     
 STMTP              SA7    RLBUF             MACRO HEADER TO BUFFER                        STMTP        605     A     
 STMTP              SA1    =8RSTOP.                                                        STMTP        606     A     
 STMTP              RJ     PSP               PROCESS STOP STMT                             STMTP        607     A     
 STMTP              EQ     STOPP                                                           STMTP        608     A     
 STMTP              SPACE  3                                                               STMTP        609     A     
 STMTP    ***                                                                              STMTP        610     A     
 STMTP    *         PAUSEP - PROCESS "PAUSE" STATEMENT                                     STMTP        611     A     
 STMTP    *                                                                                STMTP        612     A     
 STMTP    *         SYNTAX:   SAME AS THAT OF A STOP STATEMENT                             STMTP        613     A     
 STMTP    *                                                                                STMTP        614     A     
 STMTP     PAUSEP   ENTRY.                                                                 STMTP        615     A     
 STMTP              SA1    PAUSEMC                                                         STMTP        616     A     
 STMTP              BX7    X1                                                              STMTP        617     A     
 STMTP              SA7    RLBUF             MACRO HEADER TO BUFFER                        STMTP        618     A     
 STMTP              SA1    =8RPAUSE.                                                       STMTP        619     A     
 STMTP              RJ     PSP               PROCESS PAUSE STATEMENT                       STMTP        620     A     
 STMTP              EQ     PAUSEP                                                          STMTP        621     A     
 STMTP                                                                                     STMTP        622     A     
 STMTP              EJECT                                                                  STMTP        623     A     
 STMTP    ***                                                                              STMTP        624     A     
 STMTP    *         PSP - PROCESS "STOP" AND "PAUSE" STATEMENTS                            STMTP        625     A     
 STMTP    *                                                                                STMTP        626     A     
 STMTP    *         ON ENTRY:                                                              STMTP        627     A     
 STMTP    *                X1 = NAME OF SYMBOL TO BE ADDED TO SYMTAB                       STMTP        628     A     
 STMTP    *                                                                                STMTP        629     A     
 STMTP     PSP1     MX0    1                                                               STMTP        630     A     
 STMTP              LX0    1+P.EXT                                                         STMTP        631     A     
 STMTP              BX6    X0+X2             SET EXT BIT                                   STMTP        632     A     
 STMTP              SA6    A2                                                              STMTP        633     A     
 STMTP                                                                                     STMTP        634     A     
 STMTP              SX7    B1                                                              STMTP        635     A     
 STMTP              SA7    RLBUF+1           SAVE IH IN BUF                                STMTP        636     A     
 STMTP              SX6    A2                                                              STMTP        637     A     
 STMTP              SA6    TEMP              SAVE ADDR OF WORD B                           STMTP        638     A     
 STMTP                                                                                     STMTP        639     A     
 STMTP    *         CHECK FOR EOS OR CONSTANT                                              STMTP        640     A     
 STMTP                                                                                     STMTP        641     A     
 STMTP              SA2    SELIST                                                          STMTP        642     A     
 STMTP              SA3    X2                                                              STMTP        643     A     
 STMTP              UX6    B2,X3                                                           STMTP        644     A     
 STMTP              SB3    EL.EOS                                                          STMTP        645     A     
 STMTP              MX0    0                                                               STMTP        646     A     
 STMTP              PX1    X0                FORM ELIST ENTRY                              STMTP        647     A     
 STMTP              EQ     B2,B3,PSP3        IF EOS                                        STMTP        648     A     
 STMTP                                                                                     STMTP        649     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1799    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP              NZ     B2,PSPERR         IF NOT A CONSTANT                             STMTP        650     A     
 STMTP              BX1    X3                E LIST TO X1                                  STMTP        651     A     
 STMTP              SA3    A3-B5             NEXT ENTRY                                    STMTP        652     A     
 STMTP              UX4    B2,X3                                                           STMTP        653     A     
 STMTP              LX7    X1                                                              STMTP        654     A     
 STMTP              NE     B2,B3,PSPERR      IF NOT EOS                                    STMTP        655     A     
 STMTP                                                                                     STMTP        656     A     
 STMTP    *         CHECK FOR AN INTEGER CONSTANT OF < 6 DIGITS                            STMTP        657     A     
 STMTP                                                                                     STMTP        658     A     
 STMTP              MX0    57                                                              STMTP        659     A     
 STMTP              LX7    15                                                              STMTP        660     A     
 STMTP              BX2    -X0*X7            EXTRACT TYPE OF CONSTANT                      STMTP        661     A     
 STMTP              SB2    X2                                                              STMTP        662     A     
 STMTP              NE     B2,B5,PSP3        IF NOT TYPE INTEGER                           STMTP        663     A     
 STMTP              SX4    5                                                               STMTP        664     A     
 STMTP              IX7    X4+X7             CHANGE TO H FORM HOLLERITH TYPE               STMTP        665     A     
 STMTP              LX7    45-18             POSITION DIGIT COUNT                          STMTP        666     A     
 STMTP              SX2    X7-6                                                            STMTP        667     A     
 STMTP              PL     X2,PSPERR         IF MORE THAN 5 DIGITS                         STMTP        668     A     
 STMTP              LX7    18                REPOSITION                                    STMTP        669     A     
 STMTP              SA2    X7                FETCH CONSTANT                                STMTP        670     A     
 STMTP              BX1    X7                PLACE IN X1 FOR CONVERT                       STMTP        671     A     
 STMTP                                                                                     STMTP        672     A     
 STMTP              MX0    6                                                               STMTP        673     A     
 STMTP              SB2    1R                                                              STMTP        674     A     
 STMTP              SB3    1R8                                                             STMTP        675     A     
 STMTP                                                                                     STMTP        676     A     
 STMTP    *         CHECK FOR OCTAL DIGITS                                                 STMTP        677     A     
 STMTP                                                                                     STMTP        678     A     
 STMTP     PSPL     BX3    X0*X2             EXTRACT CHARACTER                             STMTP        679     A     
 STMTP              LX3    6                                                               STMTP        680     A     
 STMTP              SB4    X3                                                              STMTP        681     A     
 STMTP              LX2    6                 POSITION FOR NEXT CHARACTER                   STMTP        682     A     
 STMTP              EQ     B4,B2,PSP3        IF BLANK                                      STMTP        683     A     
 STMTP              LT     B4,B3,PSPL        LOOP IF OCTAL                                 STMTP        684     A     
 STMTP                                                                                     STMTP        685     A     
 STMTP    ***                                                                              STMTP        686     A     
 STMTP    *         ERROR EXIT - BAD "STOP" OR "PAUSE" STMT SYNTAX                         STMTP        687     A     
 STMTP    *                                                                                STMTP        688     A     
 STMTP     PSPERR   POSTER SEV=FE,NR=E.STOP,RETURN=PSP   *BAD SYNTAX*                      STMTP        689     A     
 STMTP              SPACE  3                                                               STMTP        690     A     
 STMTP     PSP3     SB1    B0                                                              STMTP        691     A     
 STMTP              CALL   CONVERT     CONVERT CONSTANT AND GET IH                         STMTP        692     A     
 STMTP                                                                                     STMTP        693     A     
 STMTP    *         FORM MACRO CALL                                                        STMTP        694     A     
 STMTP                                                                                     STMTP        695     A     
 STMTP              SB7    RLBUF             FWA OF BUFFER                                 STMTP        696     A     
 STMTP              LX1    30                12/I,18/H,30/CA                               STMTP        697     A     
 STMTP              SA2    B7+B5                                                           STMTP        698     A     
 STMTP              SX7    X1                                                              STMTP        699     A     
 STMTP              MX0    30                                                              STMTP        700     A     
 STMTP              SA4    DUKE        CURRENT LINE NUMBER                                 STMTP        701     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1800    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP              BX1    X0*X1                                                           STMTP        702     A     
 STMTP              IX6    X1+X2                                                           STMTP        703     A     
 STMTP              LX7    18                                                              STMTP        704     A     
 STMTP              SA6    A2                                                              STMTP        705     A     
 STMTP              BX7    X4+X7                                                           STMTP        706     A     
 STMTP              SA7    A6+B5                                                           STMTP        707     A     
 STMTP              WRM    B7          STOP / PAUSE MACRO TO RLIST                         STMTP        708     A     
 STMTP              CALL   DOCALL            MARK AN EXTERNAL REF                          STMTP        709     A     
 STMTP                                                                                     STMTP        710     A     
 STMTP     PSP      ENTRY. *                 ** ENTRY/EXIT **                              STMTP        711     A     
 STMTP              SYMBOL ,PSP1             ENTER NAME IN SYMBOL TABLE                    STMTP        712     A     
 STMTP                                                                                     STMTP        713     A     
 STMTP              TITLE              FMAC - FORMAT MACRO CALL                            STMTP        714     A     
 STMTP    ***                                                                              STMTP        715     A     
 STMTP    *         SVARG - SAVE MACRO ARGUMENT                                            STMTP        716     A     
 STMTP    *                                                                                STMTP        717     A     
 STMTP    *         ON ENTRY:                                                              STMTP        718     A     
 STMTP    *                B7 = NUMBER OF WORDS IN ARG BUFFER                              STMTP        719     A     
 STMTP    *                X6 = 12/2000B+CONVERSION CODE,6/0,42/ARG                        STMTP        720     A     
 STMTP    *                B6 = ARGUMENT NUMBER                                            STMTP        721     A     
 STMTP    *                SUCCESSIVE CALLS TO SVARG MUST HAVE ASCENDING ARG NUMS          STMTP        722     A     
 STMTP    *                                                                                STMTP        723     A     
 STMTP    *         USES:  X6,X7,B7,A7                                                     STMTP        724     A     
 STMTP    *                                                                                STMTP        725     A     
 STMTP     SVARG    ENTRY.                                                                 STMTP        726     A     
 STMTP              MX7    42+12                                                           STMTP        727     A     
 STMTP              LX7    42                                                              STMTP        728     A     
 STMTP              BX6    X7*X6             REMOVE BITS DUE TO NEGATIVE OCTAL NUM         STMTP        729     A     
 STMTP              SX7    B6                ARGNUM                                        STMTP        730     A     
 STMTP              LX7    42                                                              STMTP        731     A     
 STMTP              BX6    X6+X7             12/P(CONVERT),6/ARG.N,42/ARG                  STMTP        732     A     
 STMTP              SA6    ABUF+B7                                                         STMTP        733     A     
 STMTP              SB7    B7+B5             WC = WC+1                                     STMTP        734     A     
 STMTP              EQ     SVARG                                                           STMTP        735     A     
 STMTP              SPACE  3                                                               STMTP        736     A     
 STMTP    ***                                                                              STMTP        737     A     
 STMTP    *         F1AMAC - FORM AND OUTPUT A 1 ARGUMENT MACRO CALL                       STMTP        738     A     
 STMTP    *         WHOSE ARGUMENT IS A NAME IN SYMTAB                                     STMTP        739     A     
 STMTP    *                                                                                STMTP        740     A     
 STMTP    *         ON ENTRY:                                                              STMTP        741     A     
 STMTP    *                X1 = MACRO NAME                                                 STMTP        742     A     
 STMTP    *                X6 = SYMTAB ORDINAL                                             STMTP        743     A     
 STMTP    *                                                                                STMTP        744     A     
 STMTP     F1AMAC   ENTRY.                                                                 STMTP        745     A     
 STMTP              INTARG                                                                 STMTP        746     A     
 STMTP              NARGS= B5                SET FOR 1 ARG                                 STMTP        747     A     
 STMTP              SVARG  NAME,B5           ARG 1 = NAME                                  STMTP        748     A     
 STMTP              FMAC                     FORM AND OUTPUT THE CALL                      STMTP        749     A     
 STMTP              EQ     F1AMAC                                                          STMTP        750     A     
 STMTP              SPACE  3                                                               STMTP        751     A     
 STMTP    ***                                                                              STMTP        752     A     
 STMTP    *         FMAC - FORMAT MACRO STORED IN ABUF INTO BCD IMAGE AND OUTPUT           STMTP        753     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1801    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP    *         TO "COMPS" FILE                                                        STMTP        754     A     
 STMTP    *                                                                                STMTP        755     A     
 STMTP    *         ON ENTRY:                                                              STMTP        756     A     
 STMTP    *                X1 = 10H MACRO NAME CALL                                        STMTP        757     A     
 STMTP    *                NARGS = - NUMBER OF ARGUMENTS                                   STMTP        758     A     
 STMTP    *                ABUF(1) - ABUF(-NARGS) HOLD THE ARGUMENTS                       STMTP        759     A     
 STMTP    *                                                                                STMTP        760     A     
 STMTP                                                                                     STMTP        761     A     
 STMTP    *         REGISTER ASSIGNMENTS                                                   STMTP        762     A     
 STMTP                                                                                     STMTP        763     A     
 STMTP    *         A0 = ADDRESS OF MACRO BUFFER ( "MBUF" )                                STMTP        764     A     
 STMTP    *         A1,X1 - CURRENT ARGUMENT                                               STMTP        765     A     
 STMTP    *         X7 = CURRENT WORD BEING ACCUMULATED                                    STMTP        766     A     
 STMTP                                                                                     STMTP        767     A     
 STMTP     WC       MICRO  1,,/B1/           WORD COUNT                                    STMTP        768     A     
 STMTP     BC       MICRO  1,,/B3/           BIT COUNT ( 6*N.CHARS )                       STMTP        769     A     
 STMTP     AN       MICRO  1,,/B4/           CURRENT ARG NUMBER                            STMTP        770     A     
 STMTP     60       MICRO  1,,/B6/           CONSTANT 60                                   STMTP        771     A     
 STMTP     BL       MICRO  1,,/B7/           BITS LEFT                                     STMTP        772     A     
 STMTP     S1       MICRO  1,,/B2/           SCRATCH                                       STMTP        773     A     
 STMTP     S2       MICRO  1,,/B3/           SCRATCH ( ** BE CAREFUL ** )                  STMTP        774     A     
 STMTP                                                                                     STMTP        775     A     
 STMTP     FMACX    MX0    60-12                                                           STMTP        776     A     
 STMTP              BX6    X0*X6             MACRO NAME RESTRICTED TO 6 CHARS              STMTP        777     A     
 STMTP              SA6    A6                                                              STMTP        778     A     
 STMTP              SB1    1                                                               STMTP        779     A     
 STMTP              WRITEC =XF.CMPS,A0,1                                                   STMTP        780     A     
 STMTP              SB5    B1+                                                             STMTP        781     A     
 STMTP                                                                                     STMTP        782     A     
 STMTP     FMAC     ENTRY.                                                                 STMTP        783     A     
 STMTP              BX6    X1                                                              STMTP        784     A     
 STMTP              SA0    MBUF              A0 = BASE OF EXPANSION BUFFER                 STMTP        785     A     
 STMTP              SA6    A0                STORE MACRO NAME CALL WORD                    STMTP        786     A     
 STMTP              S"WC"  B5                WC = 1                                        STMTP        787     A     
 STMTP              S"60"  60                                                              STMTP        788     A     
 STMTP              S"BL"  "60"              BITS LEFT                                     STMTP        789     A     
 STMTP              S"AN"  B5                CURRENT ARG NUMBER                            STMTP        790     A     
 STMTP              SA1    ABUF              A1,X1 - CURRENT ARG                           STMTP        791     A     
 STMTP              MX7    0                 CLEAR ACCUMULATOR                             STMTP        792     A     
 STMTP                                                                                     STMTP        793     A     
 STMTP              SA2    NARGS                                                           STMTP        794     A     
 STMTP              ZR     X2,FMACX          IF NO ARGS                                    STMTP        795     A     
 STMTP                                                                                     STMTP        796     A     
 STMTP     FMAC.L   MX0    60-6                                                            STMTP        797     A     
 STMTP              BX2    X1                                                              STMTP        798     A     
 STMTP              AX2    42                                                              STMTP        799     A     
 STMTP              BX3    -X0*X2                                                          STMTP        800     A     
 STMTP              S"S1"  X3                                                              STMTP        801     A     
 STMTP              S"S2"  "S1"-"AN"         THIS ARG - LAST ARG                           STMTP        802     A     
 STMTP              S"AN"  "S1"              LAST ARG = THIS ARG                           STMTP        803     A     
 STMTP              ZR     "S2",FMAC1        IF EQUAL                                      STMTP        804     A     
 STMTP                                                                                     STMTP        805     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1802    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP    *         ADD N COMMA"S TO THE STRING                                            STMTP        806     A     
 STMTP                                                                                     STMTP        807     A     
 STMTP              SX3    "S2"                                                            STMTP        808     A     
 STMTP              IX4    X3+X3                                                           STMTP        809     A     
 STMTP              LX3    2                                                               STMTP        810     A     
 STMTP              IX5    X3+X4             6*DIFF                                        STMTP        811     A     
 STMTP              S"BC"  X5                                                              STMTP        812     A     
 STMTP              MX0    1                                                               STMTP        813     A     
 STMTP              S"S1"  "BC"-B5                                                         STMTP        814     A     
 STMTP              SA4    =10L,,,,,,,,,,                                                  STMTP        815     A     
 STMTP              AX0    "S1",X0           MASK(BC)                                      STMTP        816     A     
 STMTP              BX5    X0*X4                                                           STMTP        817     A     
 STMTP              RJ     ADDCH             ADD CHARACTERS                                STMTP        818     A     
 STMTP                                                                                     STMTP        819     A     
 STMTP     FMAC1    UX2    "S1",X1                                                         STMTP        820     A     
 STMTP              JP     FMAC2+"S1"        JUMP TO PROCESSOR                             STMTP        821     A     
 STMTP                                                                                     STMTP        822     A     
 STMTP     FMAC2    MX0    60          0 - NAME FROM SYMTAB                                STMTP        823     A     
 STMTP              EQ     FMAC.N                                                          STMTP        824     A     
 STMTP                                                                                     STMTP        825     A     
 STMTP              SA5    =7L000000B        1 - OCTAL CONVERSION                          STMTP        826     A     
 STMTP              EQ     FMAC.O                                                          STMTP        827     A     
 STMTP                                                                                     STMTP        828     A     
 STMTP              SX5    X1+1R0                                                          STMTP        829     A     
 STMTP              EQ     FMAC.I            2 - INTEGER CONVERSION ( 1 DIGIT )            STMTP        830     A     
 STMTP                                                                                     STMTP        831     A     
 STMTP              S"BC"  42                                                              STMTP        832          I
          -FCC1587X 
 STMTP              S"BC"  48                                                              FCC1587X       7     A     
 STMTP              EQ     FMAC.C            3 - CHARACTER CONVERSION                      STMTP        833     A     
 STMTP                                                                                     STMTP        834     A     
 STMTP              MX0    0           4 - NAME FROM SYMTAB, OVERIDE IAF                   STMTP        835     A     
 STMTP              EQ     FMAC.N                                                          STMTP        836     A     
 STMTP                                                                                     STMTP        837     A     
 STMTP     FMAC.A   RJ     ADDCH             ADD CHARS                                     STMTP        838     A     
 STMTP              SA2    NARGS                                                           STMTP        839     A     
 STMTP              SA1    A1+B5             NEXT                                          STMTP        840     A     
 STMTP              SX6    X2+B5                                                           STMTP        841     A     
 STMTP              SA6    A2                                                              STMTP        842     A     
 STMTP              NZ     X6,FMAC.L         IF NOT FINISHED                               STMTP        843     A     
 STMTP                                                                                     STMTP        844     A     
 STMTP    *         TERMINATE THE LINE AND DUMP THE BUFFER                                 STMTP        845     A     
 STMTP                                                                                     STMTP        846     A     
 STMTP              S"S1"  12                                                              STMTP        847     A     
 STMTP              EQ     "S1","BL",FMAC4   IF EXACTLY 12 BITS                            STMTP        848     A     
 STMTP                                                                                     STMTP        849     A     
 STMTP              SX2    "BL"-"S1"                                                       STMTP        850     A     
 STMTP              SX3    "BL"-"S1"                                                       STMTP        851     A     
 STMTP              AX2    59                                                              STMTP        852     A     
 STMTP              BX4    X2-X3             ABS(12-BL)                                    STMTP        853     A     
 STMTP              SA1    =10L                                                            STMTP        854     A     
 STMTP              S"BC"  X4                BIT COUNT                                     STMTP        855     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1803    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP              MX0    1                                                               STMTP        856     A     
 STMTP              S"S1"  "BC"-B5                                                         STMTP        857     A     
 STMTP              AX0    "S1",X0           MASK( ABS(12-BL) )                            STMTP        858     A     
 STMTP              BX5    X0*X1                                                           STMTP        859     A     
 STMTP              RJ     ADDCH                                                           STMTP        860     A     
 STMTP              SA5    =8L                                                             STMTP        861     A     
 STMTP              NZ     X7,FMAC4          IF MORE THAN 12 BITS WERE LEFT                STMTP        862     A     
 STMTP              BX7    X5                                                              STMTP        863     A     
 STMTP                                                                                     STMTP        864     A     
 STMTP     FMAC4    SA7    A0+"WC"                                                         STMTP        865     A     
 STMTP              SB7    B1+1        (B7) = WD CNT + 1 = LINE LENGTH                     STMTP        866     A     
 STMTP              SB1    1                                                               STMTP        867     A     
 STMTP              WRITEC =XF.CMPS,A0,B7                                                  STMTP        868     A     
 STMTP              SB5    B1+                                                             STMTP        869     A     
 STMTP              EQ     FMAC                                                            STMTP        870     A     
 STMTP                                                                                     STMTP        871     A     
 STMTP    *         NAME FROM SYMTAB                                                       STMTP        872     A     
 STMTP                                                                                     STMTP        873     A     
 STMTP     FMAC.N   SA2    SYM1                                                            STMTP        874     A     
 STMTP                                                                                     STMTP        875     A     
 STMTP     #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   STMTP        876     A     
 STMTP              SA5    IAF                                                             STMTP        877     A     
 STMTP     #DAL     ENDIF                                                                  STMTP        878     A     
 STMTP                                                                                     STMTP        879     A     
 STMTP              SX1    X1                                                              STMTP        880     A     
 STMTP              LX1    1                  2*ORD                                        STMTP        881     A     
 STMTP              IX3    X2-X1                                                           STMTP        882     A     
 STMTP              SB3    48                                                              STMTP        883     A     
 STMTP                                                                                     STMTP        884     A     
 STMTP     #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   STMTP        885     A     
 STMTP              BX5    X5*X0        OVERRIDE IAF IF /NAMEL/ ARG                        STMTP        886     A     
 STMTP     #DAL     ENDIF                                                                  STMTP        887     A     
 STMTP                                                                                     STMTP        888     A     
 STMTP              SA4    X3                WORD A OF NAME                                STMTP        889     A     
 STMTP                                                                                     STMTP        890     A     
 STMTP     #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   STMTP        891     A     
 STMTP              NZ     X5,FMAC.N1        IF LCM INDIRECT ADDRESS MODE                  STMTP        892     A     
 STMTP     #DAL     ENDIF                                                                  STMTP        893     A     
 STMTP                                                                                     STMTP        894     A     
 STMTP              MX5    L.NAME                                                          STMTP        895     A     
 STMTP              MX0    60-6                                                            STMTP        896     A     
 STMTP              BX1    X5*X4                                                           STMTP        897     A     
 STMTP                                                                                     STMTP        898     A     
 STMTP     FMAC.NL  S"BC"  "BC"-6                                                          STMTP        899     A     
 STMTP              LX2    "BC",X1                                                         STMTP        900     A     
 STMTP              BX3    -X0*X2                                                          STMTP        901     A     
 STMTP              SX4    X3-1R                                                           STMTP        902     A     
 STMTP              ZR     X4,FMAC.NL        LOOP IF A BLANK                               STMTP        903     A     
 STMTP              ZR     X3,FMAC.NL        OR A 0 CHAR ( STMT LABELS )                   STMTP        904     A     
 STMTP              MX0    1                                                               STMTP        905     A     
 STMTP              S"S1"  "BC"-B5                                                         STMTP        906     A     
 STMTP              AX0    "S1",X0           MASK(BC)                                      STMTP        907     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1804    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP              BX5    X0*X1                                                           STMTP        908     A     
 STMTP              EQ     FMAC.A                                                          STMTP        909     A     
 STMTP                                                                                     STMTP        910     A     
 STMTP     #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   STMTP        911     A     
 STMTP    *         INDIRECT LCM ADDRESS FOR NAME.                                         STMTP        912     A     
 STMTP                                                                                     STMTP        913     A     
 STMTP     FMAC.N1  SA4    A4-B5       WORD B                                              STMTP        914     A     
 STMTP              MX1    L.RB                                                            STMTP        915     A     
 STMTP              SX5    1R?                                                             STMTP        916     A     
 STMTP              LX4    -P.RB-L.RB  LEFT JUSTIFY RB FIELD                               STMTP        917     A     
 STMTP              BX1    X4*X1       (X1) = RB                                           STMTP        918     A     
 STMTP              SB3    B0                                                              STMTP        919     A     
 STMTP              LX1    58          MAKE RB FIELD 9 BITS                                STMTP        920     A     
 STMTP              SB2    3           LOOP COUNT                                          STMTP        921     A     
 STMTP     FMAC.N2  MX2    -3                                                              STMTP        922     A     
 STMTP              LX1    3                                                               STMTP        923     A     
 STMTP              BX2    -X2*X1      EXTRACT CHARACTER                                   STMTP        924     A     
 STMTP              SX0    X2+B3                                                           STMTP        925     A     
 STMTP              ZR     X0,FMAC.NA  IF A LEADING ZERO                                   STMTP        926     A     
 STMTP              LX5    6           POSITION FOR NEXT CHARACTER                         STMTP        927     A     
 STMTP              SB3    B3+6        BIT COUNT OF SYMBOLIC ORDINAL                       STMTP        928     A     
 STMTP              SX2    X2+1R0                                                          STMTP        929     A     
 STMTP              BX5    X5+X2                                                           STMTP        930     A     
 STMTP     FMAC.NA  SB2    B2-B5                                                           STMTP        931     A     
 STMTP              NZ     B2,FMAC.N2  IF NOT FINISHED                                     STMTP        932     A     
 STMTP              SB2    -B3                                                             STMTP        933     A     
 STMTP              SB2    B2+60-6                                                         STMTP        934     A     
 STMTP              LX5    B2          LCM BLOCK NAME                                      STMTP        935     A     
 STMTP              MX6    0                                                               STMTP        936     A     
 STMTP              SB3    B3+6        BIT COUNT OF NAME                                   STMTP        937     A     
 STMTP              SA6    IAF         ZERO INDIRECT ADDRESSEING MODE FLAG                 STMTP        938     A     
 STMTP              MX2    60-L.RA                                                         STMTP        939     A     
 STMTP              BX1    -X2*X4      (X1) = RA                                           STMTP        940     A     
 STMTP              SA3    A4+B5       WORD A                                              STMTP        941          I
          -FCC1206
 STMTP              SX0    V.DIM+V.EQU                                                     STMTP        942     A     
 STMTP              BX3    X0*X3                                                           STMTP        943          I
          -FCC1206
 STMTP              SX0    V.SCA                                                           STMTP        944     A     
 STMTP              LX4    P.RA        RESTORE WORD B                                      STMTP        945     A     
 STMTP              BX0    X0*X4       DIMP=SCAP BIT                                       STMTP        946     A     
 STMTP              LX4    -P.DIMP                                                         STMTP        947     A     
 STMTP              MX2    60-L.DIMP                                                       STMTP        948     A     
 STMTP              BX4    -X2*X4      (X4) = DIMP                                         STMTP        949     A     
 STMTP              ZR     X4,FMAC.NB  IF NO DIMP FIELD                                    STMTP        950          I
          -FCC2228
 STMTP              NZ    X0,FMAC.N3   IF DIMP=SCAP                                        FCC2228       14     A     
 STMTP              NZ     X0,FMAC.N3  IF DIMP=SCAP                                        STMTP        951          I
          -FCC2228
 STMTP              ZR    X4,FMAC.NB   IF NO DIMP FIELD                                    FCC2228       15     A     
 STMTP              ZR     X3,FMAC.NB  IF NON-DIMENSIONED HEAD OF EQUIV CLASS              STMTP        952          I
          -FCC1206
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1805    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP              SA2    =XO.DIM                                                         STMTP        953     A     
 STMTP              LX4    1                                                               STMTP        954     A     
 STMTP              SB2    X2-2                                                            STMTP        955     A     
 STMTP              SA2    X4+B2       WORD 1 OF DIMTAB ENTRY                              STMTP        956     A     
 STMTP              SX1    X2          (X1) = RA FROM DIM ENTRY                            STMTP        957     A     
 STMTP              EQ     FMAC.NB                                                         STMTP        958     A     
 STMTP                                                                                     STMTP        959     A     
 STMTP     FMAC.N3  SA3    =XO.SCA     SAVED COMMON ADDRESSES                              STMTP        960     A     
 STMTP              IX2    X3+X4                                                           STMTP        961     A     
 STMTP              SA3    X2          FETCH SCA ENTRY                                     STMTP        962     A     
 STMTP              SX1    X3          RA FROM SCA TABLE                                   STMTP        963     A     
 STMTP     FMAC.NB  ZR     X1,FMAC.A   IF RA = 0                                           STMTP        964     A     
 STMTP              SA4    NARGS                                                           STMTP        965     A     
 STMTP              SX6    X4+B5                                                           STMTP        966     A     
 STMTP              ZR     X6,FMAC.N4  IF ONE ARG IN ABUF                                  STMTP        967     A     
 STMTP                                                                                     STMTP        968     A     
 STMTP    *         ADD COMMON BLOCK BIAS TO ARG2 IN ABUF.                                 STMTP        969     A     
 STMTP                                                                                     STMTP        970     A     
 STMTP              SA4    A1+B5             GET ARG2                                      STMTP        971     A     
 STMTP              IX6    X4+X1             ADD COMMON BLOCK BIAS                         STMTP        972     A     
 STMTP              SA6    A4                STORE ARG2 IN ABUF                            STMTP        973     A     
 STMTP              EQ     FMAC.A                                                          STMTP        974     A     
 STMTP                                                                                     STMTP        975     A     
 STMTP    *         STORE SECOND ARGUMENT IN ABUF.                                         STMTP        976     A     
 STMTP                                                                                     STMTP        977     A     
 STMTP     FMAC.N4  SX6    -2                                                              STMTP        978     A     
 STMTP              MX4    1                                                               STMTP        979     A     
 STMTP              LX4    44          ARG COUNT = 2                                       STMTP        980     A     
 STMTP              SA6    NARGS                                                           STMTP        981     A     
 STMTP              BX1    X4+X1                                                           STMTP        982     A     
 STMTP              PX6    B5,X1                                                           STMTP        983     A     
 STMTP              SA6    A1+B5       ARG2 TO ABUF                                        STMTP        984     A     
 STMTP              EQ     FMAC.A                                                          STMTP        985     A     
 STMTP     #DAL     ENDIF                                                                  STMTP        986     A     
 STMTP                                                                                     STMTP        987     A     
 STMTP                                                                                     STMTP        988     A     
 STMTP                                                                                     STMTP        989     A     
 STMTP    *         OCTAL CONVERSION - NUMBER BETWEEN -377777B AND 377777B                 STMTP        990     A     
 STMTP                                                                                     STMTP        991     A     
 STMTP     FMAC.O   S"S1"  24                SHIFT COUNT                                   STMTP        992     A     
 STMTP              MX0    60-3                                                            STMTP        993     A     
 STMTP              LX1    42                                                              STMTP        994     A     
 STMTP              MX4    0                                                               STMTP        995     A     
 STMTP              AX1    42                                                              STMTP        996     A     
 STMTP              PL     X1,FMAC.O1        IF POSITIVE                                   STMTP        997     A     
 STMTP              BX1    -X1                                                             STMTP        998     A     
 STMTP              SX4    1R-                                                             STMTP        999     A     
 STMTP                                                                                     STMTP       1000     A     
 STMTP     FMAC.O1  BX2    -X0*X1                                                          STMTP       1001     A     
 STMTP              LX3    "S1",X2                                                         STMTP       1002     A     
 STMTP              IX5    X3+X5             ADD DIGIT TO STRING                           STMTP       1003     A     
 STMTP              AX1    3                                                               STMTP       1004     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1806    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP              S"S1"  "S1"+6                                                          STMTP       1005     A     
 STMTP              NZ     X1,*-1            IF MORE TO GO                                 STMTP       1006     A     
 STMTP                                                                                     STMTP       1007     A     
 STMTP              S"BC"  "S1"-18           BIT COUNT                                     STMTP       1008     A     
 STMTP              S"S1"  "60"-"S1"                                                       STMTP       1009     A     
 STMTP              LX5    "S1",X5           LEFT JUSTIFY                                  STMTP       1010     A     
 STMTP              MX0    1                                                               STMTP       1011     A     
 STMTP              AX0    "BC",X0           MASK(BC+1)                                    STMTP       1012     A     
 STMTP              BX5    X0*X5                                                           STMTP       1013     A     
 STMTP              ZR     X4,FMAC.A         IF POSITIVE                                   STMTP       1014     A     
 STMTP              BX5    X4+X5                                                           STMTP       1015     A     
 STMTP              LX5    54                 -NNNNB                                       STMTP       1016     A     
 STMTP              S"BC"  "BC"+6                                                          STMTP       1017     A     
 STMTP              EQ     FMAC.A                                                          STMTP       1018     A     
 STMTP                                                                                     STMTP       1019     A     
 STMTP     FMAC.I   LX5    60-6              1 DIGIT INTEGER CONVERSION                    STMTP       1020     A     
 STMTP              S"BC"  6                                                               STMTP       1021     A     
 STMTP              EQ     FMAC.A                                                          STMTP       1022     A     
 STMTP                                                                                     STMTP       1023     A     
 STMTP     FMAC.C   MX0    60-6              CHARACTER CONVERSION                          STMTP       1024     A     
 STMTP              LX2    18                MOVE STRING TO TOP OF WORD                    STMTP       1025     A     
 STMTP              BX1    X2                                                              STMTP       1026     A     
 STMTP              EQ     FMAC.NL           APPEND THE STRING                             STMTP       1027     A     
 STMTP              SPACE  3                                                               STMTP       1028     A     
 STMTP    ***                                                                              STMTP       1029     A     
 STMTP    *         ADDCH - ADD CHARACTERS TO ACCUMULATED STRING IN X7                     STMTP       1030     A     
 STMTP    *                                                                                STMTP       1031     A     
 STMTP    *         ON ENTRY:                                                              STMTP       1032     A     
 STMTP    *                "BC" SET TO BIT COUNT                                           STMTP       1033     A     
 STMTP    *                X5 = CHARACTERS TO BE ADDED                                     STMTP       1034     A     
 STMTP    *                                                                                STMTP       1035     A     
 STMTP                                                                                     STMTP       1036     A     
 STMTP     ADDCH1   LX5    "BL",X5           JUSTIFY STRING                                STMTP       1037     A     
 STMTP              BX7    X5+X7                                                           STMTP       1038     A     
 STMTP              S"BL"  "BL"-"BC"         UPDATE BIT COUNT                              STMTP       1039     A     
 STMTP              NZ     "BL",ADDCH        IF WORD IS NOT FILLED UP                      STMTP       1040     A     
 STMTP              SA7    A0+"WC"           STORE WORD                                    STMTP       1041     A     
 STMTP              S"WC"  "WC"+B5           WC = WC+1                                     STMTP       1042     A     
 STMTP              MX7    0                                                               STMTP       1043     A     
 STMTP              S"BL"  "60"              RESET BITS LEFT                               STMTP       1044     A     
 STMTP     ADDCH                                                                           STMTP       1045     A     
 STMTP              LE     "BC","BL",ADDCH1  IF BC @ BL                                    STMTP       1046     A     
 STMTP              MX2    1                                                               STMTP       1047     A     
 STMTP              S"S1"  "BL"-B5                                                         STMTP       1048     A     
 STMTP              AX3    "S1",X2           MASK(BL)                                      STMTP       1049     A     
 STMTP              BX4    X3*X5                                                           STMTP       1050     A     
 STMTP              LX6    "BL",X4                                                         STMTP       1051     A     
 STMTP              IX7    X6+X7             ACCUMULATE WORD                               STMTP       1052     A     
 STMTP              SA7    A0+"WC"           AND STORE                                     STMTP       1053     A     
 STMTP              BX5    -X3*X5                                                          STMTP       1054     A     
 STMTP              S"BC"  "BC"-"BL"                                                       STMTP       1055     A     
 STMTP              LX7    "BL",X5           POSITION REMAINING CHARS                      STMTP       1056     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1807    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN STMTP   
  
 STMTP              S"WC"  "WC"+B5                                                         STMTP       1057     A     
 STMTP              S"BL"  "60"-"BC"         UPDATE BITS LEFT                              STMTP       1058     A     
 STMTP              EQ     ADDCH                                                           STMTP       1059     A     
 STMTP                                                                                     STMTP       1060     A     
 STMTP              END                                                                    STMTP       1061     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - STMTP   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          STMTP                     1061      1055
          FCC0389                      5         5
          FCC1587X                     1         1
          FCC2228                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO   *DECK     ENDPRO                                                                 ENDPRO         1     A     
 ENDPRO             IDENT  ENDPRO                                                          ENDPRO         2     A     
 ENDPRO    ENDPRO   TITLE  ENDPRO -    PASS 1 END PROCESSOR                                ENDPRO         3     A     
 ENDPRO   *CALL     SSTCALL                                                                ENDPRO         4     A     
 ENDPRO             SPACE  4                                                               ENDPRO         5     A     
 ENDPRO    B=ENDPR  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             ENDPRO         6     A     
 ENDPRO                                                                                    ENDPRO         7     A     
 ENDPRO    SYM1     EQU    12B                                                             ENDPRO         8     A     
 ENDPRO    SYMEND   EQU    13B                                                             ENDPRO         9     A     
 ENDPRO    DUKE     EQU    37B               BINARY LINE COUNT                             ENDPRO        10     A     
 ENDPRO    PROGRAM  EQU    56B                                                             ENDPRO        11     A     
 ENDPRO    NRLN     EQU    64B                                                             ENDPRO        12     A     
 ENDPRO    CLABEL   EQU    RA.SSW+23B        NZ FOR LABELED END                            ENDPRO        13     A     
 ENDPRO                                                                                    ENDPRO        14     A     
 ENDPRO             EXT    DOEND=,SYMORD,ST.,CON.,DATA.,DATA..,O.CBT,N.FP                  ENDPRO        15     A     
 ENDPRO             EXT    DFLAG,MACFLAG,RSELECT,ERPRO,ERPROI,ASAER                        ENDPRO        16     A     
 ENDPRO             EXT    LWAWORK,WB.ECGS,WB.PROG,WB.FP,WB.FMT                            ENDPRO        17     A     
 ENDPRO             EXT    LSFLG,SAVTBL,PTU                                                ENDPRO        18     A     
 ENDPRO             EXT    N.TLAB,O.SCR,LABEL.                                             ENDPRO        19     A     
 ENDPRO                                                                                    ENDPRO        20     A     
 ENDPRO             TABLES DIM,SCA,FPBL,CON,DATA,EXT,UDV                                   ENDPRO        21     A     
 ENDPRO                                                                                    ENDPRO        22     A     
 ENDPRO    PEND     RMEQU  102B        EQ  END. MACRO                                      ENDPRO        23     A     
 ENDPRO    ENDMC    RMHDR  PEND,2                                                          ENDPRO        24     A     
 ENDPRO                                                                                    ENDPRO        25          I
          -FCC0220
 ENDPRO             SPACE  4,8                                                             FCC0220       18     A     
 ENDPRO   **        ERROR MESSAGE NUMBER DEFINITIONS.                                      FCC0220       19     A     
 ENDPRO                                                                                    FCC0220       20     A     
 ENDPRO    E15      =      15                DEBUG EXECUTION SUPPRESSED                    FCC0220       21     A     
 ENDPRO    E.NRS    EQU    227               END STMT ACTS AS RETURN ( USAS )              ENDPRO        26     A     
 ENDPRO    E.FND    EQU    232               FUNCTION NOT DEFINED                          ENDPRO        27     A     
 ENDPRO    E307     EQU    307         ANSI - CONTROL FLOW INTO END LINE NOT               FCC1638X     103     A     
 ENDPRO   *                            PERMITTED                                           FCC1638X     104     A     
 ENDPRO              SPACE 2                                                               ENDPRO        28          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1808    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
          -FCC0711
 ENDPRO                                                                                    FCC0711        6     A     
 ENDPRO                                                                                    FCC0711        7     A     
 ENDPRO             USE DEBUG                                                              FCC0711        8     A     
 ENDPRO                                                                                    FCC0711        9     A     
 ENDPRO              USE    CODE              FORCE LITERALS TO COME FIRST                 ENDPRO        29     A     
 ENDPRO             TITLE              MAIN LOOP                                           ENDPRO        30     A     
 ENDPRO    ENTR     MACRO  NAME              ENTER A COMPILER GENERATED SYMBOL             ENDPRO        31     A     
 ENDPRO             SA1    =8R_NAME.                                                       ENDPRO        32     A     
 ENDPRO             RJ     ECGS                                                            ENDPRO        33     A     
 ENDPRO             SX6    B1                                                              ENDPRO        34     A     
 ENDPRO             SA6    =X_NAME.                                                        ENDPRO        35     A     
 ENDPRO             ENDM                                                                   ENDPRO        36     A     
 ENDPRO                                                                                    ENDPRO        37     A     
 ENDPRO    END      ENTRY. **                ** ENTRY/EXIT **                              ENDPRO        38     A     
 ENDPRO                                                                                    FCC0220       22     A     
 ENDPRO             IFNE   TEST,0,1                                                        ENDPRO        39     A     
 ENDPRO             RJ     =XSYMDMP          *** DEBUG ***                                 ENDPRO        40     A     
 ENDPRO             SPACE  2                                                               FEAT1070C    167     A     
 ENDPRO   **        WRITE OUT THE DIMENSION TABLE                                          FEAT1070C    168     A     
 ENDPRO   *                                                                                FEAT1070C    169     A     
 ENDPRO             SA2    =XO.DIM                                                         FEAT1070C    170     A     
 ENDPRO             SA3    =XL.DIM                                                         FEAT1070C    171     A     
 ENDPRO             OUTSYM ZZ.DIM,X2,X3                                                    FEAT1070C    172     A     
 ENDPRO                                                                                    ENDPRO        41     A     
 ENDPRO             SB1    1                                                               F162FTNA     838     A     
 ENDPRO             RJ     OSL         OUTPUT STATIC LOAD *LDSET USE* DIRECTIVES           F162FTNA     839     A     
 ENDPRO             SB5    B1                                                              F162FTNA     840     A     
 ENDPRO             RJ     IAC               INSERT ADDRESS S INTO COMMON VARIABLE         ENDPRO        42     A     
 ENDPRO                                                                                    ENDPRO        43          I
          -F162FTNA 
 ENDPRO             RJ     PSS               PROCESS SPECIAL SYMBOLS                       ENDPRO        44     A     
 ENDPRO             RJ     DOEND=                                                          ENDPRO        45     A     
 ENDPRO                                                                                    ENDPRO        46     A     
 ENDPRO             WRM    =2000BS48         TERMINATE RLIST FILE WITH AN *EOQ*            ENDPRO        47     A     
 ENDPRO                                                                                    ENDPRO        48     A     
 ENDPRO             RJ     DCT               DUMP CON TABLE                                ENDPRO        49     A     
 ENDPRO                                                                                    ENDPRO        50          I
          -F162FTNA 
 ENDPRO             RJ     PST               PROCESS SYMBOL TABLE                          ENDPRO        51     A     
 ENDPRO                                                                                    ENDPRO        52     A     
 ENDPRO   *         INITIALIZE FOR PASS 2                                                  ENDPRO        53     A     
 ENDPRO                                                                                    ENDPRO        54     A     
 ENDPRO             ENTR   OT          ENTER SPECIAL SYMBOLS FOR PASS 2                    ENDPRO        55     A     
 ENDPRO             ENTR   IT                                                              ENDPRO        56     A     
 ENDPRO             ENTR   VD                                                              ENDPRO        57     A     
 ENDPRO                                                                                    ENDPRO        58     A     
 ENDPRO             OUTUSE CODE.             SET RELOCATION BASE FOR PASS 2                ENDPRO        59     A     
 ENDPRO                                                                                    ENDPRO        60     A     
 ENDPRO             SA5    RSELECT                                                         ENDPRO        61     A     
 ENDPRO             NZ     X5,END1           IF R .NE. 0                                   ENDPRO        62     A     
 ENDPRO             MX6    0                                                               ENDPRO        63     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1809    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO             SA6    L.UDV             DONT SAVE UDV TAB                             ENDPRO        64     A     
 ENDPRO                                                                                    ENDPRO        65     A     
 ENDPRO    END1     SA1    SAVTBL            PACK TABLES NEEDED FOR PASS 2                 ENDPRO        66     A     
 ENDPRO             RJ     PTU               UP TO HIGH CORE                               ENDPRO        67     A     
 ENDPRO             EQ     END                                                             ENDPRO        68          I
          -FCC0220
 ENDPRO                                                                                    FCC0220       23     A     
 ENDPRO   *         DETERMINE IF OBJECT CODE IS TO BE GENERATED.                           FCC0220       24     A     
 ENDPRO                                                                                    FCC0220       25     A     
 ENDPRO             SA1    =XN.FERR                                                        FCC0220       26     A     
 ENDPRO             ZR     X1,END      IF NO FATAL ERRORS, EXIT...                         FCC0220       27     A     
 ENDPRO             SA1    =XDFLAG                                                         FCC0220       28     A     
 ENDPRO             SA2    =XP2NOGO                                                        FCC0220       29     A     
 ENDPRO             MX6    1                                                               FCC0220       30     A     
 ENDPRO             SA6    A2          PRESET *SUPPRESS OBJECT CODE*                       FCC0220       31     A     
 ENDPRO             ZR     X1,END      IF DEBUG NOT SELECTED, EXIT...                      FCC0220       32     A     
 ENDPRO             ZR     X2,END2     IF NO FATAL-TO-DEBUG-EXECUTION ERRORS               FCC0220       33     A     
 ENDPRO             POSTER SEV=INF,NR=E15,RETURN=END     *DBG EXEC SUPPRESSED*             FCC0220       34     A     
 ENDPRO                                                                                    FCC0220       35     A     
 ENDPRO    END2     SA1    =XNOGOFLG                                                       FCC0220       36     A     
 ENDPRO             NZ     X1,END      IF C$-NOGO STMT FOUND, EXIT...                      FCC0220       37     A     
 ENDPRO             MX6    0                                                               FCC0220       38     A     
 ENDPRO             SA6    A6          SET *GENERATE OBJECT CODE*                          FCC0220       39     A     
 ENDPRO             EQ     END         EXIT...                                             FCC0220       40     A     
 ENDPRO             EJECT                                                                  ENDPRO        69     A     
 ENDPRO   ***                                                                              ENDPRO        70     A     
 ENDPRO   *         ECGS - ENTER COMPILER GENERATED SYMBOL                                 ENDPRO        71     A     
 ENDPRO   *         ENTERS SYMBOL IN SYMTAB, SETS TYPE TO T.CGS, RL = 1 AND RB TO          ENDPRO        72     A     
 ENDPRO   *         CODE.                                                                  ENDPRO        73     A     
 ENDPRO   *                                                                                ENDPRO        74     A     
 ENDPRO   *         ON ENTRY:                                                              ENDPRO        75     A     
 ENDPRO   *                X1 = 8R_NAME                                                    ENDPRO        76     A     
 ENDPRO   *                                                                                ENDPRO        77     A     
 ENDPRO                                                                                    ENDPRO        78     A     
 ENDPRO    ECGS1    SA3    WB.ECGS           TYPE RL AND RB                                ENDPRO        79     A     
 ENDPRO             BX7    X3+X2             RL+RB                                         ENDPRO        80     A     
 ENDPRO             SA7    A2                                                              ENDPRO        81     A     
 ENDPRO    ECGS     ENTRY. **                ** ENTRY/EXIT **                              ENDPRO        82     A     
 ENDPRO             SYMBOL ,ECGS1            ENTER NAME IN SYMTAB                          ENDPRO        83     A     
 ENDPRO             SPACE  3                                                               ENDPRO        84     A     
 ENDPRO   ***                                                                              ENDPRO        85     A     
 ENDPRO   *         DSS - DEFINE SPECIAL SYMBOL                                            ENDPRO        86     A     
 ENDPRO   *                                                                                ENDPRO        87     A     
 ENDPRO   *         ON ENTRY:                                                              ENDPRO        88     A     
 ENDPRO   *                X3 = WORD B BITS TO B SET                                       ENDPRO        89     A     
 ENDPRO   *                A2,X2 = LOCF(WORD B),WORD B                                     ENDPRO        90     A     
 ENDPRO   *                                                                                ENDPRO        91     A     
 ENDPRO    DSS      ENTRY. *                 ** ENTRY/EXIT **                              ENDPRO        92     A     
 ENDPRO             MX0    L.ADF                                                           ENDPRO        93     A     
 ENDPRO             LX0    L.ADF+P.ADF                                                     ENDPRO        94     A     
 ENDPRO             BX2    -X0*X2            CLEAR ADDRESS DEF FIELD                       ENDPRO        95     A     
 ENDPRO             BX6    X3+X2                                                           ENDPRO        96     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1810    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO             SA6    A2                 UPDATE WORD B                                ENDPRO        97     A     
 ENDPRO             EQ     DSS                                                             ENDPRO        98     A     
 ENDPRO                                                                                    ENDPRO        99     A     
 ENDPRO    ENTRY.D  ENTRY.                   RL,RA AND RB OF ENTRY. , SET BY PH1CT         ENDPRO       100     A     
 ENDPRO             TITLE              PSS - PROCESS SPECIAL SYMBOLS                       ENDPRO       101     A     
 ENDPRO   ***                                                                              ENDPRO       102     A     
 ENDPRO   *         PSS - PROCESS SPECIAL SYMBOLS                                          ENDPRO       103     A     
 ENDPRO   *                                                                                ENDPRO       104     A     
 ENDPRO    PSS      ENTRY. *                 ** ENTRY/EXIT **                              ENDPRO       105     A     
 ENDPRO             SA1    PROGRAM                                                         ENDPRO       106     A     
 ENDPRO             ZR     X1,PSS            EXIT IF A BLOCK DATA SUBPROGRAM               ENDPRO       107     A     
 ENDPRO             UX2    B1,X1                                                           ENDPRO       108     A     
 ENDPRO             NZ     B1,PSS1           IF NOT A PROGRAM                              ENDPRO       109     A     
 ENDPRO             RJ     ISE               ISSUE END MACRO                               ENDPRO       110          I
          -FCC0624
 ENDPRO             EQ     PSS                                                             ENDPRO       111          I
          -FCC0624
 ENDPRO                                                                                    ENDPRO       112     A     
 ENDPRO   *         MAIN PROGRAM                                                           ENDPRO       113     A     
 ENDPRO                                                                                    ENDPRO       114     A     
 ENDPRO    ISE      ENTRY. *                                                               ENDPRO       115          I
          -FCC0624
 ENDPRO             SA1    SYM1                                                            ENDPRO       116     A     
 ENDPRO             SA2    X1-3                                                            ENDPRO       117     A     
 ENDPRO             SA3    WB.PROG           RL AND RB                                     ENDPRO       118     A     
 ENDPRO             SA5    =XCO.ER                                                         FEAT155A      10     A     
 ENDPRO             LX5    1+P.RA                                                          FEAT155A      11     A     
 ENDPRO             IX3    X3+X5                                                           FEAT155A      12     A     
 ENDPRO             RJ     DSS               DEFINE PROGRAM NAME AS 0 IN CODE.             ENDPRO       119     A     
 ENDPRO             SA2    =XLSFLG                                                         ENDPRO       120     A     
 ENDPRO             SA3    CLABEL                                                          FCC1425        6     A     
 ENDPRO   +         NZ     X3,*+1      IF END STMT IS LABELED                              FCC1425        7     A     
 ENDPRO             NZ     X2,ISE      IF LAST STMT WAS A UNCONDITIONAL JUMP               ENDPRO       121          I
          -FCC0624
 ENDPRO                                                                                    ENDPRO       122          I
          -FCC0624
 ENDPRO             NZ     X2,PSS      IF LAST STMT WAS AN UNCONDITIONAL JUMP              FCC0624        5     A     
 ENDPRO             RJ     ISE         ISSUE MACRO FOR RETURN IN MAIN PROG                 FCC0624        6     A     
 ENDPRO             EQ     PSS                                                             FCC0624        7          I
          -FCC1638X 
 ENDPRO             POSTER SEV=ANSI,NR=E307,RETURN=PSS                                     FCC1638X     105     A     
 ENDPRO                                                                                    FCC0624        8     A     
 ENDPRO    ISE      ENTRY. *                                                               FCC0624        9     A     
 ENDPRO             ADEXTS =8REND.                                                         ENDPRO       123     A     
 ENDPRO             SA1    ENDMC             MACRO HEADER                                  ENDPRO       124     A     
 ENDPRO             SA2    NRLN              NEXT R NUMBER                                 ENDPRO       125     A     
 ENDPRO             SX5    B1                IH OF END.                                    ENDPRO       126     A     
 ENDPRO             BX6    X1+X2                                                           ENDPRO       127     A     
 ENDPRO             SA3    =XTRACE.          IH OF TRACE.                                  ENDPRO       128     A     
 ENDPRO             LX3    30                                                              ENDPRO       129     A     
 ENDPRO             BX7    X5+X3                                                           ENDPRO       130     A     
 ENDPRO             SA6    MACBUF                                                          ENDPRO       131     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1811    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO             SA7    A6+B5                                                           ENDPRO       132     A     
 ENDPRO             MX7    0                                                               ENDPRO       133     A     
 ENDPRO             SA7    A7+B5       K1,K2 = 0                                           ENDPRO       134     A     
 ENDPRO             WRM    MACBUF                                                          ENDPRO       135     A     
 ENDPRO             EQ     ISE                                                             ENDPRO       136     A     
 ENDPRO                                                                                    ENDPRO       137     A     
 ENDPRO   *         SUBPROGRAM                                                             ENDPRO       138     A     
 ENDPRO                                                                                    ENDPRO       139     A     
 ENDPRO    PSS1     SA1    SYM1                                                            ENDPRO       140     A     
 ENDPRO             SA0    X1                                                              ENDPRO       141     A     
 ENDPRO             SA2    A0-3              WORD B OF SUBPROGRAM NAME                     ENDPRO       142     A     
 ENDPRO             SA3    ENTRY.D                                                         ENDPRO       143     A     
 ENDPRO             RJ     DSS               SET ADDRESS DEFINITION FIELDS                 ENDPRO       144     A     
 ENDPRO             SA3    VALUE.                                                          ENDPRO       145     A     
 ENDPRO             NZ     X3,PSS.F          IF A FUNCTION                                 ENDPRO       146     A     
 ENDPRO                                                                                    ENDPRO       147     A     
 ENDPRO   *         SUBROUTINE SUBPROGRAM                                                  ENDPRO       148     A     
 ENDPRO                                                                                    ENDPRO       149     A     
 ENDPRO             SA2    CLABEL                                                          ENDPRO       150     A     
 ENDPRO             SA4    LSFLG                                                           ENDPRO       151     A     
 ENDPRO             NZ     X2,FTSUB2         IF LABELED END,                               ENDPRO       152     A     
 ENDPRO   *                                  FORCE ISSUE OF RLIST *END* MACRO              ENDPRO       153     A     
 ENDPRO             NZ     X4,PSS3           IF LAST STMT WAS RETURN,GOTO, ETC             ENDPRO       154     A     
 ENDPRO             EQ     FTSUB2                                                          ENDPRO       155     A     
 ENDPRO                                                                                    ENDPRO       156     A     
 ENDPRO   *         FUNCTION SUBPROGRAM                                                    ENDPRO       157     A     
 ENDPRO                                                                                    ENDPRO       158     A     
 ENDPRO    PSS.F    LX3    1                                                               ENDPRO       159     A     
 ENDPRO             SB2    X3                                                              ENDPRO       160     A     
 ENDPRO             SA1    A0-B2              WORD A OF VALUE.                             ENDPRO       161     A     
 ENDPRO             SX7    V.DEF                                                           ENDPRO       162     A     
 ENDPRO             BX7    X7+X1             SET DEFINED BIT                               ENDPRO       163     A     
 ENDPRO             SA7    A1                                                              ENDPRO       164     A     
 ENDPRO                                                                                    ENDPRO       165     A     
 ENDPRO             LX1    59-P.DEF                                                        ENDPRO       166     A     
 ENDPRO             NG     X1,FTSUB1         IF DEFINED                                    ENDPRO       167     A     
 ENDPRO                                                                                    ENDPRO       168     A     
 ENDPRO             SB6    -E.FND                                                          ENDPRO       169     A     
 ENDPRO             SB7    FTSUB1                                                          ENDPRO       170     A     
 ENDPRO             EQ     ERPRO             FLAG NO DEFINATION OF FUNCTION                ENDPRO       171     A     
 ENDPRO                                                                                    ENDPRO       172     A     
 ENDPRO    FTSUB1   SA4    LSFLG                                                           ENDPRO       173     A     
 ENDPRO             NZ     X4,PSS3           IF LAST STMT WAS AN UNCONDITIONAL JUM         ENDPRO       174     A     
 ENDPRO                                                                                    ENDPRO       175     A     
 ENDPRO    FTSUB2   RJ     RETURN            OUTPUT RLIST FOR A RETURN STMT                ENDPRO       176     A     
 ENDPRO             SB6    -E.NRS                                                          ENDPRO       177     A     
 ENDPRO             SB7    PSS3                                                            ENDPRO       178     A     
 ENDPRO             EQ     ASAER             INFO DIAGNOSTIC OF NO RETURN STMT             ENDPRO       179     A     
 ENDPRO                                                                                    ENDPRO       180     A     
 ENDPRO   *         MOVE F.P. BLOCK LENGTH ACCUMULATED DURING NAMELIST                     ENDPRO       181     A     
 ENDPRO   *         PROCESSING TO WORD B OF THE FORMAL PARAMETERS                          ENDPRO       182     A     
 ENDPRO   *         SET UP THE ADDRESS DEFINITION FIELDS FOR PASS 2                        ENDPRO       183     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1812    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO                                                                                    ENDPRO       184     A     
 ENDPRO    PSS3     SA1    O.FPBL                                                          ENDPRO       185     A     
 ENDPRO             SA2    L.FPBL                                                          ENDPRO       186     A     
 ENDPRO             ZR     X2,PSS            IF NO F.P. S                                  ENDPRO       187     A     
 ENDPRO             SB1    X1                                                              ENDPRO       188     A     
 ENDPRO             SB2    B1+X2             LWA+1                                         ENDPRO       189     A     
 ENDPRO             MX0    L.ADF                                                           ENDPRO       190     A     
 ENDPRO             LX0    L.ADF+P.ADF                                                     ENDPRO       191     A     
 ENDPRO             SA4    SYM1                                                            ENDPRO       192     A     
 ENDPRO             SA2    X4-5              WORD B OF FIRST F.P.                          ENDPRO       193     A     
 ENDPRO             SX7    1S"P.RB"                                                        ENDPRO       194     A     
 ENDPRO             SA5    WB.FP             RL = 1 AND RB = 7                             ENDPRO       195     A     
 ENDPRO             SA1    O.DIM                                                           ENDPRO       196     A     
 ENDPRO             SB4    X1-1              B4 = O.DIM-1                                  ENDPRO       197     A     
 ENDPRO             SB6    FAKE              ADDRESS OF FAKE SYMTAB ENTRY                  ENDPRO       198     A     
 ENDPRO             MX4    L.DIMP                                                          ENDPRO       199     A     
 ENDPRO             LX4    L.DIMP+P.DIMP                                                   ENDPRO       200     A     
 ENDPRO             SB3    B5+B5             B3 = 2                                        ENDPRO       201     A     
 ENDPRO                                                                                    ENDPRO       202     A     
 ENDPRO    PSS4     SA1    B1                F.P. BLOCK LENGTH                             ENDPRO       203     A     
 ENDPRO             BX3    -X0*X2            CLEAR DEFINITION AREA                         ENDPRO       204     A     
 ENDPRO             LX1    P.RA                                                            ENDPRO       205     A     
 ENDPRO             BX6    X5+X3             RL AND RB                                     ENDPRO       206     A     
 ENDPRO             SA2    A2-B3                                                           ENDPRO       207     A     
 ENDPRO             BX6    X1+X6             RA                                            ENDPRO       208     A     
 ENDPRO             SB1    B1+B5                                                           ENDPRO       209     A     
 ENDPRO             SA6    A2+B3                                                           ENDPRO       210     A     
 ENDPRO             IX5    X7+X5             ADVANCE RB                                    ENDPRO       211     A     
 ENDPRO             BX1    X4*X6                                                           ENDPRO       212     A     
 ENDPRO             ZR     X1,PSS5           IF NO DIM TBL ENTRY                           ENDPRO       213     A     
 ENDPRO             LX6    59-P.EXT                                                        ENDPRO       214     A     
 ENDPRO             AX1    P.DIMP-1                                                        ENDPRO       215     A     
 ENDPRO             MI     X6,PSS5           IF AN EXTERNAL                                ENDPRO       216     A     
 ENDPRO             SX6    B6                                                              ENDPRO       217     A     
 ENDPRO             SA6    X1+B4             STORE FAKE SYMTAB ADDR FOR PST6               ENDPRO       218     A     
 ENDPRO    PSS5     LT     B1,B2,PSS4                                                      ENDPRO       219     A     
 ENDPRO             EQ     PSS                                                             ENDPRO       220     A     
 ENDPRO                                                                                    ENDPRO       221     A     
 ENDPRO    FAKE     BSSZ   2                 FAKE SYMTAB ENTRY FOR F.P. S                  ENDPRO       222     A     
 ENDPRO   *                                  WITH DIMENSIONS                               ENDPRO       223     A     
 ENDPRO             TITLE              PST - PROCESS SYMBOL TABLE                          ENDPRO       224     A     
 ENDPRO   ***                                                                              ENDPRO       225     A     
 ENDPRO   *         PST - PROCESS SYMBOL TABLE                                             ENDPRO       226     A     
 ENDPRO   *         SCAN SYMBOL TABLE FOR:                                                 ENDPRO       227     A     
 ENDPRO   *                EXTERNAL SYMBOLS                                                ENDPRO       228     A     
 ENDPRO   *                SYMBOLS WITH DIMTAB ENTRIES                                     ENDPRO       229     A     
 ENDPRO   *                USEAGE DEFINED VARIABLES                                        ENDPRO       230     A     
 ENDPRO   *                                                                                ENDPRO       231     A     
 ENDPRO   *         FORM TEMPORARY TABLES FOR EXTERNAL SYMBOLS AND                         ENDPRO       232     A     
 ENDPRO   *         USEAGE DEFINED VARIABLES                                               ENDPRO       233     A     
 ENDPRO   *         LINK DIMTAB TO SYMTAB BY STORING ADDRESS OF SYMTAB ENTRY               ENDPRO       234     A     
 ENDPRO   *         IN APPROPIATE DIMTAB ENTRY                                             ENDPRO       235     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1813    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO   *                                                                                ENDPRO       236     A     
 ENDPRO   *         PROCESS THE TEMPORARY TABLES:                                          ENDPRO       237     A     
 ENDPRO   *         APPEND SPECIAL CHARACTERS TO EXTERNALS                                 ENDPRO       238     A     
 ENDPRO   *         DEFINE THE ADDRESS"S OF THE USEAGE DEFINED VARIABLES                   ENDPRO       239     A     
 ENDPRO   *         AND ISSUE STORAGE FOR THEM                                             ENDPRO       240     A     
 ENDPRO   *         DEFINE ALL SYMBOLS WITH DIMTAB ENTRIES                                 ENDPRO       241     A     
 ENDPRO   *         PROCESS USEAGE DEFINED VARIABLES IN DATA STMTS                         ENDPRO       242     A     
 ENDPRO   *                                                                                ENDPRO       243     A     
 ENDPRO                                                                                    ENDPRO       244     A     
 ENDPRO    PST      ENTRY. *                 ** ENTRY/EXIT **                              ENDPRO       245     A     
 ENDPRO             SA1    SYM1                                                            ENDPRO       246     A     
 ENDPRO             SA2    ST.                                                             ENDPRO       247     A     
 ENDPRO             SA3    SYMORD                                                          ENDPRO       248     A     
 ENDPRO             SA4    O.DIM                                                           ENDPRO       249     A     
 ENDPRO             SA5    L.DIM                                                           ENDPRO       250     A     
 ENDPRO                                                                                    ENDPRO       251     A     
 ENDPRO   *         SPACE NEEDED = SYMORD - ST. - L.DIM/2                                  ENDPRO       252     A     
 ENDPRO                                                                                    ENDPRO       253     A     
 ENDPRO             AX5    1                 NOTE THAT BECAUSE OF THE SIZE OF              ENDPRO       254     A     
 ENDPRO             IX6    X3-X2             PHASE 2 OF THE COMPILER AND THE               ENDPRO       255     A     
 ENDPRO             IX7    X6-X5             CONSTRAINT THAT SYMORD < 10000B               ENDPRO       256     A     
 ENDPRO             SA7    F.UDV-1           THIS SPACE WILL ALWAYS BE AVAILABLE           ENDPRO       257     A     
 ENDPRO             SB6    O.CBT             LWA+1 OF EXT TBL                              ENDPRO       258     A     
 ENDPRO                                                                                    ENDPRO       259     A     
 ENDPRO             SB7    A7+B5                                                           ENDPRO       260     A     
 ENDPRO             SB1    B7-B6             -(SPACE AVAIL)                                ENDPRO       261     A     
 ENDPRO             SX0    X7+B1             SPACE NEEDED - SPACE AVAIL                    ENDPRO       262     A     
 ENDPRO             PL     X0,=XCTBLOVL                                                    ENDPRO       263     A     
 ENDPRO                                                                                    ENDPRO       264     A     
 ENDPRO   *         SET UP THE REGISTERS                                                   ENDPRO       265     A     
 ENDPRO                                                                                    ENDPRO       266     A     
 ENDPRO             SA0    X1                A0 = SYM1                                     ENDPRO       267     A     
 ENDPRO             LX2    1                                                               ENDPRO       268     A     
 ENDPRO             SB1    X2                B1 = INDEX = 2*ORD(ST.)                       ENDPRO       269     A     
 ENDPRO             LX3    1                                                               ENDPRO       270     A     
 ENDPRO             SB2    X3                B2 = LIMIT = 2*(N.SYMBOLS+1)                  ENDPRO       271     A     
 ENDPRO             SB3    B5+B5                                                           ENDPRO       272     A     
 ENDPRO             SB4    X4-1              B4 = O.DIM-1                                  ENDPRO       273     A     
 ENDPRO             SB7    59-P.EXT                                                        ENDPRO       274     A     
 ENDPRO             SX4    T.LAB                                                           ENDPRO       275     A     
 ENDPRO             LX4    P.TYP                                                           ENDPRO       276     A     
 ENDPRO             MX3    L.DIMP                                                          ENDPRO       277     A     
 ENDPRO             LX3    L.DIMP+P.DIMP                                                   ENDPRO       278     A     
 ENDPRO             MX0    L.TYP                                                           ENDPRO       279     A     
 ENDPRO             EQ     PST.I                                                           ENDPRO       280     A     
 ENDPRO                                                                                    ENDPRO       281     A     
 ENDPRO    PST.E    ZR     X6,PST.I          IGNORE LABELS                                 ENDPRO       282     A     
 ENDPRO             SX6    B1-B3             2*ORD                                         ENDPRO       283     A     
 ENDPRO             SA6    B6-B5                                                           ENDPRO       284     A     
 ENDPRO             SB6    B6-B5                                                           ENDPRO       285     A     
 ENDPRO                                                                                    ENDPRO       286     A     
 ENDPRO    PST.I    SA1    A0-B1             WORD A                                        ENDPRO       287     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1814    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO             SA2    A1-B5             WORD B                                        ENDPRO       288     A     
 ENDPRO             GE     B1,B2,PST.2       IF FINISHED                                   ENDPRO       289     A     
 ENDPRO             BX5    X0*X2                                                           ENDPRO       290     A     
 ENDPRO             LX1    59-P.FUN                                                        ENDPRO       291     A     
 ENDPRO             IX6    X5-X4             TYPE - T.LAB                                  ENDPRO       292     A     
 ENDPRO             SB1    B1+B3                                                           ENDPRO       293     A     
 ENDPRO             LX5    B7,X2             SHIFT( WORD B , 59-P.EXT )                    ENDPRO       294     A     
 ENDPRO             BX7    -X6+X1                                                          ENDPRO       295     A     
 ENDPRO             NG     X5,PST.E          IF EXT OR LABEL WITH BIT SET                  ENDPRO       296     A     
 ENDPRO             NG     X7,PST.I          IGNORE TYPES 6-15B AND LOCAL FUNCTION         ENDPRO       297     A     
 ENDPRO                                                                                    ENDPRO       298     A     
 ENDPRO   *         MUST BE A VARIABLE OR ARRAY                                            ENDPRO       299     A     
 ENDPRO                                                                                    ENDPRO       300     A     
 ENDPRO             BX5    X3*X2             EXTRACT DIMP FIELD                            ENDPRO       301     A     
 ENDPRO             LX1    P.FUN-P.COM                                                     ENDPRO       302     A     
 ENDPRO             ZR     X5,PST.V          IF NOT DIMENSIONED                            ENDPRO       303     A     
 ENDPRO             AX5    P.DIMP-1                                                        ENDPRO       304     A     
 ENDPRO             SX6    A1                                                              ENDPRO       305     A     
 ENDPRO             SA6    X5+B4             SYMTAB ADDRESS TO WORD 2 OF DIM ENTRY         ENDPRO       306     A     
 ENDPRO             EQ     PST.I                                                           ENDPRO       307     A     
 ENDPRO                                                                                    ENDPRO       308     A     
 ENDPRO   *         USEAGE DEFINED VARIABLE - SAVE WC AND SYMORD IN UDV TBL                ENDPRO       309     A     
 ENDPRO                                                                                    ENDPRO       310     A     
 ENDPRO    PST.V    NG     X1,PST.I          IGNORE COMMON VARIABLES                       ENDPRO       311     A     
 ENDPRO             AX2    P.TYP                                                           ENDPRO       312     A     
 ENDPRO             SX5    B5                                                              ENDPRO       313     A     
 ENDPRO             SX1    X2-T.DBL                                                        ENDPRO       314     A     
 ENDPRO             AX1    L.TYP             -0 IF SINGLE PRECISION, ELSE 0                ENDPRO       315     A     
 ENDPRO             BX6    -X1*X5            0 OR 1                                        ENDPRO       316     A     
 ENDPRO             SX1    X6+B5             WC = 1 OR 2                                   ENDPRO       317     A     
 ENDPRO             SX7    B1-B3             2*ORD                                         ENDPRO       318     A     
 ENDPRO             LX1    36                                                              ENDPRO       319     A     
 ENDPRO             LX7    18-1                                                            ENDPRO       320     A     
 ENDPRO             BX7    X1+X7                                                           ENDPRO       321     A     
 ENDPRO             SA7    A7+B5             STORE ENTRY                                   ENDPRO       322     A     
 ENDPRO             EQ     PST.I                                                           ENDPRO       323     A     
 ENDPRO                                                                                    ENDPRO       324     A     
 ENDPRO   *         SAVE POINTERS TO THE TABLES                                            ENDPRO       325     A     
 ENDPRO                                                                                    ENDPRO       326     A     
 ENDPRO    PST.2    SX7    F.UDV                                                           ENDPRO       327     A     
 ENDPRO             SX5    A7+B5             LWA+1                                         ENDPRO       328     A     
 ENDPRO             IX6    X5-X7             LENGTH                                        ENDPRO       329     A     
 ENDPRO             SA7    O.UDV                                                           ENDPRO       330     A     
 ENDPRO             SA6    L.UDV                                                           ENDPRO       331     A     
 ENDPRO             SB7    O.CBT                                                           ENDPRO       332     A     
 ENDPRO             SX7    B7-B6                                                           ENDPRO       333     A     
 ENDPRO             SA7    L.EXT                                                           ENDPRO       334     A     
 ENDPRO             SX6    B6                                                              ENDPRO       335     A     
 ENDPRO             SA6    O.EXT                                                           ENDPRO       336     A     
 ENDPRO             SA6    LI                                                              ENDPRO       337     A     
 ENDPRO             SPACE  3                                                               ENDPRO       338     A     
 ENDPRO   *         APPEND SPECIAL CHARACTERS TO THE EXTERNAL SYMBOLS THAT                 ENDPRO       339     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1815    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO   *         ARE THE SAME AS THOSE IN THE LIBRARY                                   ENDPRO       340     A     
 ENDPRO                                                                                    ENDPRO       341     A     
 ENDPRO             ZR     X7,PST5           IF NONE                                       ENDPRO       342     A     
 ENDPRO             SB1    B6                FWA                                           ENDPRO       343     A     
 ENDPRO             SB2    B7                LWA+1                                         ENDPRO       344     A     
 ENDPRO             SX5    3                                                               ENDPRO       345     A     
 ENDPRO             MX0    L.NAME                                                          ENDPRO       346     A     
 ENDPRO             LX5    P.RL              RL = 3 FOR EXTERNALS                          ENDPRO       347     A     
 ENDPRO                                                                                    ENDPRO       348     A     
 ENDPRO    PST1     SA4    B1                                                              ENDPRO       349     A     
 ENDPRO             SB3    X4                                                              ENDPRO       350     A     
 ENDPRO             MX3    L.ADF                                                           ENDPRO       351     A     
 ENDPRO             SA1    A0-B3             WORD A                                        ENDPRO       352     A     
 ENDPRO             LX3    L.ADF+P.ADF                                                     ENDPRO       353     A     
 ENDPRO             SA2    A1-B5             WORD B                                        ENDPRO       354     A     
 ENDPRO             BX6    -X3*X2            CLEAR DEFINITION AREA                         ENDPRO       355     A     
 ENDPRO             IX7    X5+X6             SET RL = 3                                    ENDPRO       356     A     
 ENDPRO             SA7    A2                                                              ENDPRO       357     A     
 ENDPRO             BX6    X0*X1                                                           ENDPRO       358     A     
 ENDPRO             SB1    B1+B5             ADVANCE INDEX                                 ENDPRO       359     A     
 ENDPRO             LX1    59-P.FUN                                                        ENDPRO       360     A     
 ENDPRO             NG     X1,PST1A          IF A FUNCTION                                 ENDPRO       361     A     
 ENDPRO             NG     X2,PST3           IF A FILE NAME                                ENDPRO       362     A     
 ENDPRO                                                                                    ENDPRO       363     A     
 ENDPRO    PST1A    LX2    59-P.BEF                                                        ENDPRO       364     A     
 ENDPRO             PL     X2,PST2           IF NOT BASIC EXTERNAL                         ENDPRO       365     A     
 ENDPRO    #LIB     IFNE   .CDCLIB,0                                                       FEAT121A      40     A     
 ENDPRO             SA1    =XUOFLAG                                                        FEAT121A      41     A     
 ENDPRO             ZR     X1,PST1AA   IF *UO* NOT SELECTED                                FEAT121A      42     A     
 ENDPRO             BX1    X2                                                              FEAT121A      43     A     
 ENDPRO             LX1    1+P.BEF-P.RA                                                    FEAT121A      44     A     
 ENDPRO             SX1    X1                                                              FEAT121A      45     A     
 ENDPRO             LX1    P.RA                                                            FEAT121A      46     A     
 ENDPRO             BX7    X1+X7       B-REGS PRESERVED IN CASE OPT=2                      FEAT121A      47     A     
 ENDPRO             SA7    A7                                                              FEAT121A      48     A     
 ENDPRO    PST1AA   BSS    0                                                               FEAT121A      49     A     
 ENDPRO    #LIB     ENDIF                                                                  FEAT121A      50     A     
 ENDPRO             MX1    60-L.TYP                                                        ENDPRO       366     A     
 ENDPRO             LX2    1+P.BEF-P.TYP                                                   ENDPRO       367     A     
 ENDPRO             BX7    -X1*X2            TYPE FIELD                                    ENDPRO       368     A     
 ENDPRO             SX4    X7-T.CGS          CHECK FOR COMPILER GENERATED SYMBOL           ENDPRO       369     A     
 ENDPRO             ZR     X4,PST2                                                         ENDPRO       370     A     
 ENDPRO                                                                                    ENDPRO       371     A     
 ENDPRO             SX1    1R                                                              ENDPRO       372     A     
 ENDPRO             MX3    1                                                               ENDPRO       373     A     
 ENDPRO             LX1    24                                                              ENDPRO       374     A     
 ENDPRO             LX3    2+18                                                            ENDPRO       375     A     
 ENDPRO                                                                                    ENDPRO       376     A     
 ENDPRO    PST1B    BX7    X6*X1                                                           ENDPRO       377     A     
 ENDPRO             BX4    X7-X1                                                           ENDPRO       378     A     
 ENDPRO             NZ     X4,PST1C          SENSE NON BLANK CHARACTER                     ENDPRO       379     A     
 ENDPRO             LX1    6                                                               ENDPRO       380     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1816    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO             LX3    6                                                               ENDPRO       381     A     
 ENDPRO             EQ     PST1B                                                           ENDPRO       382     A     
 ENDPRO                                                                                    ENDPRO       383     A     
 ENDPRO    PST1C    BX6    X6-X3             APPEND A . TO THE NAME                        ENDPRO       384     A     
 ENDPRO                                                                                    ENDPRO       385     A     
 ENDPRO    PST2     SA1    A2+B5             WORD A                                        ENDPRO       386     A     
 ENDPRO             BX2    -X0*X1            SYMTAB BITS                                   ENDPRO       387     A     
 ENDPRO             IX6    X6+X2             NAME + SPECIAL CHAR                           ENDPRO       388     A     
 ENDPRO             SA6    A1                UPDATE SYMTAB ENTRY                           ENDPRO       389     A     
 ENDPRO    PST3     LT     B1,B2,PST1                                                      ENDPRO       390     A     
 ENDPRO                                                                                    ENDPRO       391     A     
 ENDPRO             SA5    MACFLAG                                                         ENDPRO       392     A     
 ENDPRO             ZR     X5,PST5           IF COMPS IMAGES NOT NECESSARY                 ENDPRO       393     A     
 ENDPRO                                                                                    ENDPRO       394     A     
 ENDPRO             SA1    LI                O.EXT                                         ENDPRO       395     A     
 ENDPRO    PST4     SA5    X1                                                              ENDPRO       396     A     
 ENDPRO             AX6    B5,X5             SYMTAB ORD                                    ENDPRO       397     A     
 ENDPRO             SA1    =10H  EXT                                                       ENDPRO       398     A     
 ENDPRO             RJ     =XF1AMAC          OUTPUT EXT STMT                               ENDPRO       399     A     
 ENDPRO             SA1    LI                                                              ENDPRO       400     A     
 ENDPRO             SX2    O.CBT                                                           ENDPRO       401     A     
 ENDPRO             SX6    X1+B5                                                           ENDPRO       402     A     
 ENDPRO             IX0    X6-X2             I - L                                         ENDPRO       403     A     
 ENDPRO             SA6    A1                                                              ENDPRO       404     A     
 ENDPRO             BX1    X6                                                              ENDPRO       405     A     
 ENDPRO             NG     X0,PST4           IF NOT FINISHED                               ENDPRO       406     A     
 ENDPRO             SPACE  3                                                               ENDPRO       407     A     
 ENDPRO   *         MOVE THE ADDRESS ASSIGNMENTS THAT WHERE MADE IN "DPCLOSE"              ENDPRO       408     A     
 ENDPRO   *         FROM THE DIM TABLE TO SYMTAB                                           ENDPRO       409     A     
 ENDPRO                                                                                    ENDPRO       410     A     
 ENDPRO    PST5     SA1    O.DIM                                                           ENDPRO       411     A     
 ENDPRO             SA2    L.DIM                                                           ENDPRO       412     A     
 ENDPRO             ZR     X2,PST7           IF NONE                                       ENDPRO       413     A     
 ENDPRO             SB1    X1                FWA                                           ENDPRO       414     A     
 ENDPRO             SB2    B1+X2             LWA+1                                         ENDPRO       415     A     
 ENDPRO             SA4    B1                WORD 1                                        ENDPRO       416     A     
 ENDPRO             SA5    B1+B5             WORD 2                                        ENDPRO       417     A     
 ENDPRO             SB3    B5+B5             B3 = 2                                        ENDPRO       418     A     
 ENDPRO             MX0    L.RL+L.RA                                                       ENDPRO       419     A     
 ENDPRO             SX7    V.COM                                                           ENDPRO       420     A     
 ENDPRO             LX0    L.RL+L.RA+P.RA      MASK TO CLEAR RL AND RA FIELDS              ENDPRO       421     A     
 ENDPRO                                                                                    ENDPRO       422     A     
 ENDPRO    PST6     SA1    X5                WORD A                                        ENDPRO       423     A     
 ENDPRO             SA2    A1-B5             WORD B                                        ENDPRO       424     A     
 ENDPRO             BX5    X7*X1             COMMON BIT                                    ENDPRO       425     A     
 ENDPRO             SX6    X4                RA                                            ENDPRO       426     A     
 ENDPRO             IX3    X5+X7             RL = 1 OR 2                                   ENDPRO       427     A     
 ENDPRO             LX6    P.RA                                                            ENDPRO       428     A     
 ENDPRO             NZ     X5,PST6A          IF IN COMMON                                  ENDPRO       429     A     
 ENDPRO             SX4    5S"P.RB"          RB FOR DATA..                                 ENDPRO       430     A     
 ENDPRO             IX6    X6+X4             RA + RB                                       ENDPRO       431     A     
 ENDPRO    PST6A    SB1    B1+B3                                                           ENDPRO       432     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1817    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO             BX2    -X0*X2            CLEAR RL,RA                                   ENDPRO       433     A     
 ENDPRO             SA4    B1                NEXT DIM WORD                                 ENDPRO       434     A     
 ENDPRO             LX3    P.RL-P.COM                                                      ENDPRO       435     A     
 ENDPRO             IX1    X6+X2             + RA                                          ENDPRO       436     A     
 ENDPRO             SA5    B1+B5                                                           ENDPRO       437     A     
 ENDPRO             BX6    X3+X1             + RL                                          ENDPRO       438     A     
 ENDPRO             SA6    A2                UPDATE WORD B                                 ENDPRO       439     A     
 ENDPRO             LT     B1,B2,PST6                                                      ENDPRO       440     A     
 ENDPRO             SPACE  3                                                               ENDPRO       441     A     
 ENDPRO   *         ASSIGN ADDRESS"S TO THE USEAGE DEFINED VARIABLES                       ENDPRO       442     A     
 ENDPRO                                                                                    ENDPRO       443     A     
 ENDPRO    PST7     SA2    L.UDV                                                           ENDPRO       444     A     
 ENDPRO             ZR     X2,PST9           IF NO USEAGE DEFINED VARIABLES                ENDPRO       445     A     
 ENDPRO             OUTUSE DATA.                                                           FCC0451        6     A     
 ENDPRO             SA2    L.UDV                                                           FCC0451        7     A     
 ENDPRO             SB1    F.UDV             FWA                                           ENDPRO       446     A     
 ENDPRO             SB2    B1+X2             LWA+1                                         ENDPRO       447     A     
 ENDPRO             MX0    L.ADF                                                           ENDPRO       448     A     
 ENDPRO             SA5    SYM1                                                            ENDPRO       449     A     
 ENDPRO             SA0    X5                A0 = SYM1                                     ENDPRO       450     A     
 ENDPRO             LX0    L.ADF+P.ADF                                                     ENDPRO       451     A     
 ENDPRO             SA4    DATA.             BLOCK LENGTH                                  ENDPRO       452     A     
 ENDPRO             BX7    X4                                                              ENDPRO       453     A     
 ENDPRO             SA1    B1                                                              ENDPRO       454     A     
 ENDPRO             SA5    WB.FMT                                                          ENDPRO       455     A     
 ENDPRO             SB7    P.RA                                                            ENDPRO       456     A     
 ENDPRO                                                                                    ENDPRO       457     A     
 ENDPRO    PST8     AX1    18-1                                                            ENDPRO       458     A     
 ENDPRO             SB4    X1+B5             2*ORD+1                                       ENDPRO       459     A     
 ENDPRO             AX1    36-17             WC                                            ENDPRO       460     A     
 ENDPRO             SA2    A0-B4             WORD B                                        ENDPRO       461     A     
 ENDPRO             SB1    B1+B5             I = I+1                                       ENDPRO       462     A     
 ENDPRO             BX3    -X0*X2            CLEAR DEFINITION AREA                         ENDPRO       463     A     
 ENDPRO             LX4    B7,X7                                                           ENDPRO       464     A     
 ENDPRO             BX6    X3+X5             + RL+RB                                       ENDPRO       465     A     
 ENDPRO             IX7    X7+X1             INCREMENT BLOCK LENGTH                        ENDPRO       466     A     
 ENDPRO             SA1    B1                NEXT WORD                                     ENDPRO       467     A     
 ENDPRO             BX6    X4+X6             + RA                                          ENDPRO       468     A     
 ENDPRO             SA6    A2                                                              ENDPRO       469     A     
 ENDPRO             LT     B1,B2,PST8        IF NOT FINISHED                               ENDPRO       470     A     
 ENDPRO             SA4    DATA.                                                           ENDPRO       471     A     
 ENDPRO             IX1    X7-X4             NUMBER OF NEW ADDITIONS TO DATA.              ENDPRO       472     A     
 ENDPRO             SA7    A4                                                              ENDPRO       473     A     
 ENDPRO                                                                                    ENDPRO       474     A     
 ENDPRO             SA2    MACFLAG                                                         ENDPRO       475     A     
 ENDPRO             ZR     X2,PST8A                                                        ENDPRO       476     A     
 ENDPRO             OUTUSE DATA.              SET RELOCATION BASE                          ENDPRO       477          I
          -FCC0451
 ENDPRO             SA2    L.UDV                                                           ENDPRO       478     A     
 ENDPRO             SX6    F.UDV             FWA                                           ENDPRO       479     A     
 ENDPRO             SA5    BSS.OP                                                          ENDPRO       480     A     
 ENDPRO             BX7    X2                                                              ENDPRO       481     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1818    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO             RJ     OSC               ISSUE STORAGE TO COMPS                        ENDPRO       482     A     
 ENDPRO             EQ     PST9                                                            ENDPRO       483     A     
 ENDPRO                                                                                    ENDPRO       484     A     
 ENDPRO   PST8A     SA5    BSS.OP                                                          ENDPRO       485     A     
 ENDPRO             SA2    =7L                                                             ENDPRO       486     A     
 ENDPRO             MX0    L.NAME                                                          ENDPRO       487     A     
 ENDPRO             BX6    X2                BLANK LABEL FOR THIS LINE                     ENDPRO       488     A     
 ENDPRO             RJ     WST                                                             ENDPRO       489     A     
 ENDPRO                                                                                    ENDPRO       490     A     
 ENDPRO             SPACE  3                                                               ENDPRO       491     A     
 ENDPRO   *         DEFINE THE ADDRESS"S OF USEAGE DEFINED VARIABLES THAT FIRST            ENDPRO       492     A     
 ENDPRO   *         APPEARED IN DATA STMTS                                                 ENDPRO       493     A     
 ENDPRO   *         ALSO ADD NAMES TO UDV TABLE FOR STRAY NAME SEARCH IN "REFMAP"          ENDPRO       494     A     
 ENDPRO                                                                                    ENDPRO       495     A     
 ENDPRO    PST9     SA1    O.DATA                                                          ENDPRO       496     A     
 ENDPRO             SA2    L.DATA                                                          ENDPRO       497     A     
 ENDPRO             ZR     X2,PST            IF NO USEAGE DEFINED DEFINED                  ENDPRO       498          I
          -FCC0711
 ENDPRO             ZR     X2,PST11    IF NO USAGE DEFINED DEFINED                         FCC0711       10     A     
 ENDPRO             SA5    SYM1              VARIABLES IN DATA STMTS                       ENDPRO       499     A     
 ENDPRO             SA0    X5                                                              ENDPRO       500     A     
 ENDPRO             MX0    L.ADF                                                           ENDPRO       501     A     
 ENDPRO             SB1    X2                LENGTH                                        ENDPRO       502     A     
 ENDPRO             LX0    L.ADF+P.ADF                                                     ENDPRO       503     A     
 ENDPRO             SA1    X1                FIRST MEMBER                                  ENDPRO       504     A     
 ENDPRO             SA3    L.UDV                                                           ENDPRO       505     A     
 ENDPRO             SX6    X3+B1             INCREMENT UDV LENGTH                          ENDPRO       506     A     
 ENDPRO             SB6    F.UDV+X3          B6 = UDV STORE ADDRESS                        ENDPRO       507     A     
 ENDPRO             SA6    A3                                                              ENDPRO       508     A     
 ENDPRO             SX4    V.COM                                                           ENDPRO       509     A     
 ENDPRO             SA5    WB.FMT            RL = 1 , RB = DATA.                           ENDPRO       510     A     
 ENDPRO                                                                                    ENDPRO       511     A     
 ENDPRO    PST10    BX6    X1                                                              ENDPRO       512     A     
 ENDPRO             SX7    X1                RA                                            ENDPRO       513     A     
 ENDPRO             AX1    18-1                                                            ENDPRO       514     A     
 ENDPRO             SA6    B6                                                              ENDPRO       515     A     
 ENDPRO             SB2    X1                2*ORD                                         ENDPRO       516     A     
 ENDPRO             LX7    P.RA                                                            ENDPRO       517     A     
 ENDPRO             SA3    A0-B2             WORD A                                        ENDPRO       518     A     
 ENDPRO             SA2    A3-B5             WORD B                                        ENDPRO       519     A     
 ENDPRO             BX6    -X4*X3            TURN OFF COMMON BIT                           ENDPRO       520     A     
 ENDPRO             SA6    A3                                                              ENDPRO       521     A     
 ENDPRO             SB1    B1-B5                                                           ENDPRO       522     A     
 ENDPRO             BX2    -X0*X2                                                          ENDPRO       523     A     
 ENDPRO             IX7    X5+X7             RL,RA,RB                                      ENDPRO       524     A     
 ENDPRO             SA1    A1+B5             NEXT                                          ENDPRO       525     A     
 ENDPRO             BX6    X7+X2                                                           ENDPRO       526     A     
 ENDPRO             SB6    B6+B5             ADVANCE UDV STORE ADDRESS                     ENDPRO       527     A     
 ENDPRO             SA6    A2                                                              ENDPRO       528     A     
 ENDPRO             NZ     B1,PST10          IF NOT FINISHED                               ENDPRO       529     A     
 ENDPRO             EQ     PST                                                             ENDPRO       530          I
          -FCC0711
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1819    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO             SPACE  3,8                                                             FCC0711       11     A     
 ENDPRO   *         PROPAGATE DEFINED BIT IN SYMTAB THROUGH NON-COMMON EQUIVALENCE         FCC0711       12     A     
 ENDPRO   *         CLASSES.                                                               FCC0711       13     A     
 ENDPRO                                                                                    FCC0711       14     A     
 ENDPRO    PST11    SA1    =XL.EQV                                                         FCC0711       15          I
          -FCC1924
 ENDPRO   PST11     SA1    SYM1                                                            FCC1924        7     A     
 ENDPRO             SA0    X1          A0 = BASE ADDRESS OF SYMBOL TABLE                   FCC1924        8     A     
 ENDPRO             SA1    =XL.EQV                                                         FCC1924        9     A     
 ENDPRO             ZR     X1,PST      IF NO EQUIVALENCE CLASSES                           FCC0711       16     A     
 ENDPRO             SA2    =XO.EQV                                                         FCC0711       17     A     
 ENDPRO             MX0    18                                                              FCC0711       18     A     
 ENDPRO             IX3    X1+X2                                                           FCC0711       19     A     
 ENDPRO             SA1    X2          PRELOAD EQUIV ENTRY                                 FCC0711       20     A     
 ENDPRO             LX0    18+18                                                           FCC0711       21     A     
 ENDPRO             SB1    X1+B5                                                           FCC0711       22     A     
 ENDPRO             SX7    V.DEF                                                           FCC0711       23     A     
 ENDPRO    PST12    EQ     B1,PST14    IF SCAN OF CLASS COMPLETE                           FCC0711       24     A     
 ENDPRO             BX5    X0*X1                                                           FCC0711       25     A     
 ENDPRO             SB1    B1-B5                                                           FCC0711       26     A     
 ENDPRO             AX5    18-1                                                            FCC0711       27     A     
 ENDPRO             SB2    X5                                                              FCC0711       28     A     
 ENDPRO             SA5    A0-B2       WORD A                                              FCC0711       29     A     
 ENDPRO             SA1    A1+B5                                                           FCC0711       30     A     
 ENDPRO             BX4    X7*X5                                                           FCC0711       31     A     
 ENDPRO             ZR     X4,PST12    IF NOT DEFINED                                      FCC0711       32     A     
 ENDPRO             SA1    X2                                                              FCC0711       33     A     
 ENDPRO             SB1    X1+B5                                                           FCC0711       34     A     
 ENDPRO    PST13    EQ     B1,PST14    IF UPDATE OF CLASS COMPLETE                         FCC0711       35     A     
 ENDPRO             BX5    X0*X1                                                           FCC0711       36     A     
 ENDPRO             SB1    B1-B5                                                           FCC0711       37     A     
 ENDPRO             AX5    18-1                                                            FCC0711       38     A     
 ENDPRO             SB2    X5                                                              FCC0711       39     A     
 ENDPRO             SA5    A0-B2       WORD A                                              FCC0711       40     A     
 ENDPRO             SA1    A1+B5                                                           FCC0711       41     A     
 ENDPRO             BX6    X7+X5       SET DEF BIT                                         FCC0711       42     A     
 ENDPRO             SA6    A5          UPDATE WORD A                                       FCC0711       43     A     
 ENDPRO             EQ     PST13                                                           FCC0711       44     A     
 ENDPRO                                                                                    FCC0711       45     A     
 ENDPRO    PST14    SX2    A1                                                              FCC0711       46     A     
 ENDPRO             SB1    X1+B5                                                           FCC0711       47     A     
 ENDPRO             IX4    X2-X3                                                           FCC0711       48     A     
 ENDPRO             MI     X2,PST12    IF NOT ALL CLASSES SCANNED                          FCC0711       49          I
          -FCC1313
 ENDPRO             MI     X4,PST12    IF NOT ALL CLASSES SCANNED                          FCC1313        6     A     
 ENDPRO             EQ     PST                                                             FCC0711       50     A     
 ENDPRO             EJECT                                                                  ENDPRO       531     A     
 ENDPRO   ***                                                                              ENDPRO       532     A     
 ENDPRO   *         OSC - OUTPUT STORAGE FOR SYMBOLS IN A TABLE                            ENDPRO       533     A     
 ENDPRO   *         ON ENTRY:                                                              ENDPRO       534     A     
 ENDPRO   *                X5 = PSEUDO OP WORD                                             ENDPRO       535     A     
 ENDPRO   *                X6 = FWA OF THE TBL, X7 = LENGTH                                ENDPRO       536     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1820    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO   *                ENTRIES IN THE TABLE FORMATTED AS:                              ENDPRO       537     A     
 ENDPRO   *                  6/J,18/WC,18/SYMORD,18/J                                      ENDPRO       538     A     
 ENDPRO   *                                                                                ENDPRO       539     A     
 ENDPRO    OSC      ENTRY. **                ** ENTRY/EXIT **                              ENDPRO       540     A     
 ENDPRO             SA6    LI                                                              ENDPRO       541     A     
 ENDPRO             IX7    X6+X7                                                           ENDPRO       542     A     
 ENDPRO             SA7    A6+B5             LIMIT                                         ENDPRO       543     A     
 ENDPRO             BX7    X5                                                              ENDPRO       544     A     
 ENDPRO             SA7    PSEUDO                                                          ENDPRO       545     A     
 ENDPRO                                                                                    ENDPRO       546     A     
 ENDPRO    OSC1     SA1    X6                6/J,18/WC,18/SYMORD,18/J                      ENDPRO       547     A     
 ENDPRO             SA2    SYM1                                                            ENDPRO       548     A     
 ENDPRO             AX1    18-1                                                            ENDPRO       549     A     
 ENDPRO             SX3    X1                                                              ENDPRO       550     A     
 ENDPRO             IX4    X2-X3                                                           ENDPRO       551     A     
 ENDPRO             SA2    X4                WORD A                                        ENDPRO       552     A     
 ENDPRO             AX1    36-17                                                           ENDPRO       553     A     
 ENDPRO             SX1    X1                X1 = WC                                       ENDPRO       554     A     
 ENDPRO             MX0    L.NAME                                                          ENDPRO       555     A     
 ENDPRO             BX6    X0*X2             X6 = 7L_NAME                                  ENDPRO       556     A     
 ENDPRO             SA5    PSEUDO                                                          ENDPRO       557     A     
 ENDPRO             RJ     WST                                                             ENDPRO       558     A     
 ENDPRO                                                                                    ENDPRO       559     A     
 ENDPRO             SA1    LI                                                              ENDPRO       560     A     
 ENDPRO             SA2    A1+B5             LIMIT                                         ENDPRO       561     A     
 ENDPRO             SX6    X1+B5             LI = LI+1                                     ENDPRO       562     A     
 ENDPRO             IX0    X6-X2             I - L                                         ENDPRO       563     A     
 ENDPRO             SA6    A1                                                              ENDPRO       564     A     
 ENDPRO             NG     X0,OSC1           IF MORE MEMBERS                               ENDPRO       565     A     
 ENDPRO             EQ     OSC                                                             ENDPRO       566     A     
 ENDPRO                                                                                    ENDPRO       567     A     
 ENDPRO    OSC.WD   DATA   7R      B                                                       ENDPRO       568     A     
 ENDPRO    BSS.OP   VFD    12/2LS ,30/48,18/3L BS                                          ENDPRO       569     A     
 ENDPRO             EJECT                                                                  ENDPRO       570     A     
 ENDPRO    LI       BSS    2                 LOOP INDEX AND LIMIT                          ENDPRO       571     A     
 ENDPRO    PSEUDO   BSS    1                 PSEUDO OP                                     ENDPRO       572     A     
 ENDPRO    CBUF     BSS    3                 3 WORD BUFFER FOR COMPS IMAGES                ENDPRO       573     A     
 ENDPRO                                                                                    ENDPRO       574     A     
 ENDPRO   ***                                                                              ENDPRO       575     A     
 ENDPRO   *         WST - WRITE STORAGE TO COMPS                                           ENDPRO       576     A     
 ENDPRO   *                                                                                ENDPRO       577     A     
 ENDPRO   *         ON ENTRY:                                                              ENDPRO       578     A     
 ENDPRO   *                X0 = MASK(42) , X1 = WORD COUNT IN BINARY                       ENDPRO       579     A     
 ENDPRO   *                X5 = PSEUDO OP WORD , X6 = 7L_NAME                              ENDPRO       580     A     
 ENDPRO   *                                                                                ENDPRO       581     A     
 ENDPRO    WST      ENTRY. **                ** ENTRY/EXIT **                              ENDPRO       582     A     
 ENDPRO             BX7    -X0*X5                                                          ENDPRO       583     A     
 ENDPRO             MX0    18                                                              ENDPRO       584     A     
 ENDPRO             IX6    X6+X7             FIRST 3 CHARS OF OP TO NAME                   ENDPRO       585     A     
 ENDPRO             BX7    X5*X0             REMAINER OF THE OP                            ENDPRO       586     A     
 ENDPRO             AX5    18                                                              ENDPRO       587     A     
 ENDPRO             SB6    X5                SHIFT COUNT                                   ENDPRO       588     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1821    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO             SA6    CBUF                                                            ENDPRO       589     A     
 ENDPRO             SB1    1                                                               ENDPRO       590     A     
 ENDPRO             SA5    OSC.WD            7R      B                                     ENDPRO       591     A     
 ENDPRO             SB2    6                                                               ENDPRO       592     A     
 ENDPRO             MX0    57                                                              ENDPRO       593     A     
 ENDPRO             BX6    X5                INITIALIZE RESULT                             ENDPRO       594     A     
 ENDPRO    WST1     BX2    -X0*X1                                                          ENDPRO       595     A     
 ENDPRO             AX1    3                                                               ENDPRO       596     A     
 ENDPRO             SX3    X2+1R0-1R                                                       ENDPRO       597     A     
 ENDPRO             LX4    B2,X3                                                           ENDPRO       598     A     
 ENDPRO             SB2    B2+6                                                            ENDPRO       599     A     
 ENDPRO             IX6    X4+X6             ADD DIGIT TO STRING                           ENDPRO       600     A     
 ENDPRO             NZ     X1,WST1                                                         ENDPRO       601     A     
 ENDPRO             SB3    59                                                              ENDPRO       602     A     
 ENDPRO             MX0    1                                                               ENDPRO       603     A     
 ENDPRO             SB3    B3-B2                                                           ENDPRO       604     A     
 ENDPRO             AX0    B3,X0             MASK(60-6*NCHAR)                              ENDPRO       605     A     
 ENDPRO             BX6    -X0*X6            REMOVE LEADING BLANKS                         ENDPRO       606     A     
 ENDPRO             SB6    B6-B2                                                           ENDPRO       607     A     
 ENDPRO             LX6    B6,X6             LEFT ADJUST                                   ENDPRO       608     A     
 ENDPRO             BX7    X7+X6                                                           ENDPRO       609     A     
 ENDPRO             SA7    A6+B1                                                           ENDPRO       610     A     
 ENDPRO             MX0    48                                                              ENDPRO       611     A     
 ENDPRO             SB7    B1+B1             (B7) = 2 = WORD COUNT                         ENDPRO       612     A     
 ENDPRO             BX5    -X0*X7                                                          ENDPRO       613     A     
 ENDPRO             SX6    B0                                                              ENDPRO       614     A     
 ENDPRO             ZR     X5,WST2           IF WE HAVE A ZERO BYTE                        ENDPRO       615     A     
 ENDPRO             SA6    A7+B1                                                           ENDPRO       616     A     
 ENDPRO             SB7    B7+B1             WORD COUNT = 3                                ENDPRO       617     A     
 ENDPRO    WST2     WRITEC =XF.CMPS,CBUF,B7  PSEUDO-OP TO -COMPS-                          ENDPRO       618     A     
 ENDPRO             SB5    B1+                                                             ENDPRO       619     A     
 ENDPRO             EQ     WST         EXIT                                                ENDPRO       620     A     
 ENDPRO             TITLE              DCT - DUMP THE CON TABLE                            ENDPRO       621     A     
 ENDPRO   ***                                                                              ENDPRO       622     A     
 ENDPRO   *         DCT - DUMP CON TABLE                                                   ENDPRO       623     A     
 ENDPRO   *                                                                                ENDPRO       624     A     
 ENDPRO    DCT      ENTRY. *                 ** ENTRY/EXIT **                              ENDPRO       625     A     
 ENDPRO             SA5    DATA.                                                           ENDPRO       626     A     
 ENDPRO             SA4    CON.              ORD(CON.)                                     ENDPRO       627     A     
 ENDPRO             SA3    SYM1                                                            ENDPRO       628     A     
 ENDPRO             LX4    1                                                               ENDPRO       629     A     
 ENDPRO             IX0    X3-X4                                                           ENDPRO       630     A     
 ENDPRO             SA2    X0-1              WORD B                                        ENDPRO       631     A     
 ENDPRO             LX5    P.RA                                                            ENDPRO       632     A     
 ENDPRO             BX6    X5+X2             INSTALL BLOCK RELATIVE ADDRESS                ENDPRO       633     A     
 ENDPRO             AX5    P.RA                                                            ENDPRO       634     A     
 ENDPRO             SA6    A2                UPDATE WORD B                                 ENDPRO       635     A     
 ENDPRO                                                                                    ENDPRO       636     A     
 ENDPRO             SA2    L.CON                                                           ENDPRO       637     A     
 ENDPRO             ZR     X2,DCT1           IF NO CONSTANTS                               ENDPRO       638     A     
 ENDPRO             IX6    X2+X5             UPDATE LENGTH OF DATA. BLOCK                  ENDPRO       639     A     
 ENDPRO             SA6    A5                                                              ENDPRO       640     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1822    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO             SA1    O.CON                                                           ENDPRO       641     A     
 ENDPRO             SA3    =18LCON. BSS 0B                                                 ENDPRO       642     A     
 ENDPRO             RJ     ODW               DUMP THE CON TABLE                            ENDPRO       643     A     
 ENDPRO                                                                                    ENDPRO       644     A     
 ENDPRO    DCT1     SA5    N.TLAB                                                          ENDPRO       645     A     
 ENDPRO             ZR     X5,DCT            IF NOT TRACING LABELS                         ENDPRO       646     A     
 ENDPRO             ALLOC  SCR,X5            GET SPACE                                     ENDPRO       647     A     
 ENDPRO                                                                                    ENDPRO       648     A     
 ENDPRO             SA3    SYM1                                                            ENDPRO       649     A     
 ENDPRO             SA4    LABEL.                                                          ENDPRO       650     A     
 ENDPRO             LX4    1                                                               ENDPRO       651     A     
 ENDPRO             IX0    X3-X4                                                           ENDPRO       652     A     
 ENDPRO             SA2    X0-1              WORD B                                        ENDPRO       653     A     
 ENDPRO             SA4    DATA.                                                           ENDPRO       654     A     
 ENDPRO             SA5    N.TLAB                                                          ENDPRO       655     A     
 ENDPRO             IX7    X4+X5             INCREMENT DATA. LENGTH                        ENDPRO       656     A     
 ENDPRO             SA7    A4                                                              ENDPRO       657     A     
 ENDPRO             LX4    P.RA                                                            ENDPRO       658     A     
 ENDPRO             BX6    X4+X2             INSTALL BLOCK RELATIVE ADDRESS                ENDPRO       659     A     
 ENDPRO             SA6    A2                                                              ENDPRO       660     A     
 ENDPRO                                                                                    ENDPRO       661     A     
 ENDPRO   *         SCAN THE SYMBOL TABLE FOR STATEMENT NUMBERS WITH                       ENDPRO       662     A     
 ENDPRO   *         TRACE ORDINALS AND FORM A TABLE OF VFD STMT OF THE FORM:               ENDPRO       663     A     
 ENDPRO   *         30/_NNNNN,30/BINARY LINE NUMBER THAT LABEL IS DEFINED ON               ENDPRO       664     A     
 ENDPRO                                                                                    ENDPRO       665     A     
 ENDPRO             SB7    X5                                                              ENDPRO       666     A     
 ENDPRO             SB6    X5                                                              ENDPRO       667     A     
 ENDPRO             SA5    O.SCR                                                           ENDPRO       668     A     
 ENDPRO             SB4    X5-1              B4 = FWA-1 OF TABLE OF VFD STMTS              ENDPRO       669     A     
 ENDPRO             SA1    SYM1                                                            ENDPRO       670     A     
 ENDPRO             SA2    SYMEND                                                          ENDPRO       671     A     
 ENDPRO             SA3    CON.                                                            ENDPRO       672     A     
 ENDPRO             LX3    1                                                               ENDPRO       673     A     
 ENDPRO             IX1    X1-X3                                                           ENDPRO       674     A     
 ENDPRO             SB1    X1                B1 = INDEX                                    ENDPRO       675     A     
 ENDPRO             SB2    X2                LWA+1                                         ENDPRO       676     A     
 ENDPRO                                                                                    ENDPRO       677     A     
 ENDPRO             MX0    L.TYP+1           MASK FOR TYPE AND GEN BIT                     ENDPRO       678     A     
 ENDPRO             SX3    T.LAB                                                           ENDPRO       679     A     
 ENDPRO             SB3    B5+B5                                                           ENDPRO       680     A     
 ENDPRO             MX5    30                                                              ENDPRO       681     A     
 ENDPRO             LX3    P.TYP             X3 = T.LAB S P.TYP                            ENDPRO       682     A     
 ENDPRO             MX7    60-L.TRO                                                        ENDPRO       683     A     
 ENDPRO                                                                                    ENDPRO       684     A     
 ENDPRO    DCT2     SA2    B1-B5             WORD B                                        ENDPRO       685     A     
 ENDPRO             SB1    B1-B3                                                           ENDPRO       686     A     
 ENDPRO             LT     B1,B2,DCT3        IF FINISHED                                   ENDPRO       687     A     
 ENDPRO             BX1    X0*X2             TYPE AND GEN LABEL BITS                       ENDPRO       688     A     
 ENDPRO             IX4    X1-X3                                                           ENDPRO       689     A     
 ENDPRO             NZ     X4,DCT2           IF NOT A STMT LABEL                           ENDPRO       690     A     
 ENDPRO             LX2    59-P.DSN                                                        ENDPRO       691     A     
 ENDPRO             PL     X2,DCT2           IF A FORMAT LABEL                             ENDPRO       692     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1823    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO             AX2    59-P.DSN+P.TRO                                                  ENDPRO       693     A     
 ENDPRO             SA1    A2+B5             WORD A                                        ENDPRO       694     A     
 ENDPRO             BX4    -X7*X2            LABEL TABLE ORDINAL                           ENDPRO       695     A     
 ENDPRO             ZR     X4,DCT2           IF NONE                                       ENDPRO       696     A     
 ENDPRO             LX1    6                                                               ENDPRO       697     A     
 ENDPRO             BX1    X5*X1             5L_NNNNN                                      ENDPRO       698     A     
 ENDPRO             AX2    P.DLN-P.TRO                                                     ENDPRO       699     A     
 ENDPRO             BX2    -X7*X2            LINE NUMBER OF DEF                            ENDPRO       700     A     
 ENDPRO             IX6    X1+X2                                                           ENDPRO       701     A     
 ENDPRO             SA6    X4+B4             STORE ENTRY                                   ENDPRO       702     A     
 ENDPRO             SB7    B7-B5                                                           ENDPRO       703     A     
 ENDPRO             NZ     B7,DCT2           IF MORE TO GO                                 ENDPRO       704     A     
 ENDPRO                                                                                    ENDPRO       705     A     
 ENDPRO    DCT3     SX1    B4+B5             FWA                                           ENDPRO       706     A     
 ENDPRO             SX2    B6                LENGTH                                        ENDPRO       707     A     
 ENDPRO             SA3    =18LLABEL. BSS 0B                                               ENDPRO       708     A     
 ENDPRO             RJ     ODW                                                             ENDPRO       709     A     
 ENDPRO             EQ     DCT                                                             ENDPRO       710     A     
 ENDPRO             SPACE  3                                                               ENDPRO       711     A     
 ENDPRO   ***                                                                              ENDPRO       712     A     
 ENDPRO   *         ODW - OUTPUT DATA WORDS                                                ENDPRO       713     A     
 ENDPRO   *         OUTPUTS LINE IMAGES OF THE FORM  "  DATA  WORDN" FOR                   ENDPRO       714     A     
 ENDPRO   *         EACH WORD IN THE TABLE DEFINED BY X1 AND X2                            ENDPRO       715     A     
 ENDPRO   *         ON ENTRY:                                                              ENDPRO       716     A     
 ENDPRO   *                X1,X2 = FWA AND LENGTH OF DATA TABLE                            ENDPRO       717     A     
 ENDPRO   *                A3 = FWA OF BCD FOR LABEL DEFINING TABLE                        ENDPRO       718     A     
 ENDPRO   *                                                                                ENDPRO       719     A     
 ENDPRO    ODW      ENTRY. *                 ** ENTRY/EXIT **                              ENDPRO       720     A     
 ENDPRO             SX7    A3                                                              ENDPRO       721     A     
 ENDPRO             BX6    X1                                                              ENDPRO       722     A     
 ENDPRO             SA7    CBUF              TEMP SAVE ADDR OF LABEL DEFINITION            ENDPRO       723     A     
 ENDPRO             SB1    1                                                               ENDPRO       724     A     
 ENDPRO             IX7    X1+X2             LWA+1                                         ENDPRO       725     A     
 ENDPRO             SA6    LI                                                              ENDPRO       726     A     
 ENDPRO             SA7    A6+B1                                                           ENDPRO       727     A     
 ENDPRO             OUTUSE DATA.             GET IN THE RIGHT RB                           ENDPRO       728     A     
 ENDPRO             SA1    CBUF                                                            ENDPRO       729     A     
 ENDPRO             WRITEC =XF.CMPS,X1,2     LABEL DEFINITION TO -COMPS-                   ENDPRO       730     A     
 ENDPRO             SA1    LI                                                              ENDPRO       731     A     
 ENDPRO             NO                                                                     ENDPRO       732     A     
 ENDPRO             BX6    X1                                                              ENDPRO       733     A     
 ENDPRO    ODW1     SA1    X6                TABLE ENTRY                                   ENDPRO       734     A     
 ENDPRO             RJ     BTOCT             CONVERT IT                                    ENDPRO       735     A     
 ENDPRO             MX0    18                                                              ENDPRO       736     A     
 ENDPRO             SA2    =7L  DATA                                                       ENDPRO       737     A     
 ENDPRO             BX3    -X0*X6            SAVE LOWEST 7                                 ENDPRO       738     A     
 ENDPRO             BX6    X0*X6                                                           ENDPRO       739     A     
 ENDPRO             LX6    3*6               RIGHT JUSTIFL HIGHEST 3                       ENDPRO       740     A     
 ENDPRO             BX6    X2+X6             FORM 1ST WORD                                 ENDPRO       741     A     
 ENDPRO             LX3    3*6               SHIFT LOWEST 7 TO HIGHEST 7                   ENDPRO       742     A     
 ENDPRO             BX4    -X0*X7            SAVE NEXT LOWEST 7                            ENDPRO       743     A     
 ENDPRO             BX7    X0*X7                                                           ENDPRO       744     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1824    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO             LX7    3*6               RIGHT JUSTIFY NEXT HIGHEST 3                  ENDPRO       745     A     
 ENDPRO             BX7    X3+X7             FORM 2ND WORD                                 ENDPRO       746     A     
 ENDPRO             SA6    CBUF              1ST WORD  *  DATA NNN*                        ENDPRO       747     A     
 ENDPRO             LX4    3*6                                                             ENDPRO       748     A     
 ENDPRO             SA7    A6+B1             2ND WORD                                      ENDPRO       749     A     
 ENDPRO             SX6    2S12              DIS B                                         ENDPRO       750     A     
 ENDPRO             BX6    X4+X6                                                           ENDPRO       751     A     
 ENDPRO             SA6    A7+B1             3RD WORD  *7123456B00*                        ENDPRO       752     A     
 ENDPRO             WRITEC =XF.CMPS,CBUF,3   *  DATA N...NB00* TO -COMPS-                  ENDPRO       753     A     
 ENDPRO             SA4    LI                                                              ENDPRO       754     A     
 ENDPRO             SA5    A4+B1             LWA+1                                         ENDPRO       755     A     
 ENDPRO             SX6    X4+B1                                                           ENDPRO       756     A     
 ENDPRO             IX0    X6-X5             I - L                                         ENDPRO       757     A     
 ENDPRO             SA6    A4                                                              ENDPRO       758     A     
 ENDPRO             NG     X0,ODW1           IF NOT FINISHED                               ENDPRO       759     A     
 ENDPRO             SB5    B1+                                                             ENDPRO       760     A     
 ENDPRO             EQ     ODW                                                             ENDPRO       761     A     
 ENDPRO             SPACE  3                                                               ENDPRO       762     A     
 ENDPRO   ***                                                                              ENDPRO       763     A     
 ENDPRO   *         BTOCT - CONVERT BINARY NUMBER TO OCTAL                                 ENDPRO       764     A     
 ENDPRO   *                                                                                ENDPRO       765     A     
 ENDPRO   *         ON ENTRY: X1 = NUMBER                                                  ENDPRO       766     A     
 ENDPRO   *         ON EXIT: X6,X7 OCTAL CONSTANT                                          ENDPRO       767     A     
 ENDPRO   *                                                                                ENDPRO       768     A     
 ENDPRO    BTOCT    ENTRY. **                ** ENTRY/EXIT **                              ENDPRO       769     A     
 ENDPRO             SB4    6                                                               ENDPRO       770     A     
 ENDPRO             SX5    1R0                                                             ENDPRO       771     A     
 ENDPRO             MX3    3                                                               ENDPRO       772     A     
 ENDPRO             SB2    60                                                              ENDPRO       773     A     
 ENDPRO             MX7    0                                                               ENDPRO       774     A     
 ENDPRO             SB6    B2+B2             B6 = 120                                      ENDPRO       775     A     
 ENDPRO                                                                                    ENDPRO       776     A     
 ENDPRO    BTOCTL   BX4    X1*X3             EXTRACT A DIGIT                               ENDPRO       777     A     
 ENDPRO             SB2    B2-B4             B2 = B2-6                                     ENDPRO       778     A     
 ENDPRO             LX4    3                                                               ENDPRO       779     A     
 ENDPRO             IX4    X4+X5                                                           ENDPRO       780     A     
 ENDPRO             SB6    B6-B4             B6 = B6-6                                     ENDPRO       781     A     
 ENDPRO             LX4    B2,X4             POSITION                                      ENDPRO       782     A     
 ENDPRO             BX7    X4+X7             OR IN                                         ENDPRO       783     A     
 ENDPRO             LX1    3                 NEXT DIGIT                                    ENDPRO       784     A     
 ENDPRO             NZ     B2,BTOCTL                                                       ENDPRO       785     A     
 ENDPRO                                                                                    ENDPRO       786     A     
 ENDPRO             ZR     B6,BTOCT          IF FINISHED                                   ENDPRO       787     A     
 ENDPRO             BX6    X7                SAVE FIRST 10 DIGITS                          ENDPRO       788     A     
 ENDPRO             SB2    B6                B2 = 60                                       ENDPRO       789     A     
 ENDPRO             MX7    0                                                               ENDPRO       790     A     
 ENDPRO             EQ     BTOCTL                                                          ENDPRO       791     A     
 ENDPRO             TITLE              IAC - INSERT ADDRESS S INTO COMMON VARIABLE         ENDPRO       792     A     
 ENDPRO   ,S                                                                               ENDPRO       793     A     
 ENDPRO   ***                                                                              ENDPRO       794     A     
 ENDPRO   *         IAC - INSERT ADDRESS"S INTO COMMON VARIABLES                           ENDPRO       795     A     
 ENDPRO   *                                                                                ENDPRO       796     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1825    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO   *         WHEN THE D OPTION IS SELECTED, THE ADDRESS"S OF COMMON VARIABL         ENDPRO       797     A     
 ENDPRO   *         WITHOUT A DIM ENTRY MUST BE SAVED IN A TEMPORARY TABLE UNTIL           ENDPRO       798     A     
 ENDPRO   *         THE END OF PASS 1 WHEN THE DEBUG PROCESSOR NO LONGER                   ENDPRO       799     A     
 ENDPRO   *         ACTIVE. AT THIS TIME THE ADDRESS"S CAN BE INSERTED INTO                ENDPRO       800     A     
 ENDPRO   *         THE SYMBOL TABLE ENTRIES.                                              ENDPRO       801     A     
 ENDPRO   *                                                                                ENDPRO       802     A     
 ENDPRO    IAC      ENTRY. *                 ** ENTRY/EXIT **                              ENDPRO       803     A     
 ENDPRO             SA1    O.SCA                                                           ENDPRO       804     A     
 ENDPRO             SA2    L.SCA                                                           ENDPRO       805     A     
 ENDPRO             ZR     X2,IAC            IF NO COMMON VARIABLES                        ENDPRO       806     A     
 ENDPRO                                                                                    ENDPRO       807     A     
 ENDPRO             SA5    SYM1                                                            ENDPRO       808     A     
 ENDPRO             SB1    X1                FWA                                           ENDPRO       809     A     
 ENDPRO             SB2    B1+X2             LWA+1                                         ENDPRO       810     A     
 ENDPRO             SA0    X5                A0 = SYM1                                     ENDPRO       811     A     
 ENDPRO             MX0    L.RL+L.RA                                                       ENDPRO       812     A     
 ENDPRO             SX5    B5+B5                                                           ENDPRO       813     A     
 ENDPRO             LX0    L.RL+L.RA+P.RA    POSITION MASK                                 ENDPRO       814     A     
 ENDPRO             SA1    B1                                                              ENDPRO       815     A     
 ENDPRO             LX5    P.RL              RL = 2                                        ENDPRO       816     A     
 ENDPRO                                                                                    ENDPRO       817     A     
 ENDPRO    IAC1     SX7    X1                RA                                            ENDPRO       818     A     
 ENDPRO             AX1    18-1                                                            ENDPRO       819     A     
 ENDPRO             SB3    X1+B5             2*ORD+1                                       ENDPRO       820     A     
 ENDPRO             LX7    P.RA                                                            ENDPRO       821     A     
 ENDPRO             SA2    A0-B3             WORD B                                        ENDPRO       822     A     
 ENDPRO             SB1    B1+B5                                                           ENDPRO       823     A     
 ENDPRO             BX3    -X0*X2            CLEAR DEFINITION AREA                         ENDPRO       824     A     
 ENDPRO             MX2    L.DIMP                                                          ENDPRO       825     A     
 ENDPRO             LX2    L.DIMP+P.DIMP                                                   ENDPRO       826     A     
 ENDPRO             IX4    X5+X7             RL + RA                                       ENDPRO       827     A     
 ENDPRO             SA1    B1                NEXT                                          ENDPRO       828     A     
 ENDPRO             BX6    X4+X3                                                           ENDPRO       829     A     
 ENDPRO             BX6    -X2*X6      CLEAR DIMP                                          ENDPRO       830     A     
 ENDPRO                                                                                    ENDPRO       831     A     
 ENDPRO             SA6    A2                                                              ENDPRO       832     A     
 ENDPRO             LT     B1,B2,IAC1                                                      ENDPRO       833     A     
 ENDPRO             EQ     IAC                                                             ENDPRO       834     A     
 ENDPRO    OSL      TITLE  OSL - OUTPUT STATIC LOAD DIRECTIVES                             F162FTNA     841     A     
 ENDPRO   **        OSL - OUTPUT STATIC LOAD DIRECTIVES.                                   F162FTNA     842     A     
 ENDPRO   *                                                                                F162FTNA     843     A     
 ENDPRO   *         SCANS STATIC LOAD TABLE (LSTPRO/STLTAB).  FORMATS EACH                 F162FTNA     844     A     
 ENDPRO   *         SELECTED DECK NAME AS A  *  LDSET USE=STLXYZ.* DIRECTIVE,              F162FTNA     845     A     
 ENDPRO   *         AND WRITES IT TO THE *COMPS* FILE.                                     F162FTNA     846     A     
 ENDPRO   *                                                                                F162FTNA     847     A     
 ENDPRO   *                                                                                F162FTNA     848     A     
 ENDPRO   *         ENTRY  (B1) = 1.                                                       F162FTNA     849     A     
 ENDPRO   *                STLTAB/LSTPRO - DECK NAME TABLE, FORMAT--                       F162FTNA     850     A     
 ENDPRO   *                            1/SELECT BIT, 17/0, 42/0L DECK NAME                 F162FTNA     851     A     
 ENDPRO   *                   WITH *SELECT*=1 FOR EACH DECK NAME TO BE OUTPUT.             F162FTNA     852     A     
 ENDPRO   *                   A ZERO WORD TERMINATES THE TABLE.                            F162FTNA     853     A     
 ENDPRO   *                                                                                F162FTNA     854     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1826    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO   *         EXIT   (B1) = 1.                                                       F162FTNA     855     A     
 ENDPRO   *                LDSET DIRECTIVES WRITTEN TO *COMPS* FILE.                       F162FTNA     856     A     
 ENDPRO   *                                                                                F162FTNA     857     A     
 ENDPRO   *         USES   ALL.                                                            F162FTNA     858     A     
 ENDPRO   *                                                                                F162FTNA     859     A     
 ENDPRO   *         CALLS  WRITEC.                                                         F162FTNA     860     A     
 ENDPRO                                                                                    F162FTNA     861     A     
 ENDPRO             QUAL   OSL                                                             F162FTNA     862     A     
 ENDPRO                                                                                    F162FTNA     863     A     
 ENDPRO                                                                                    F162FTNA     864     A     
 ENDPRO    OSL      SUBR               ** ENTRY/EXIT **                                    F162FTNA     865     A     
 ENDPRO             SA2    =XCO.STA                                                        F162FTNA     866     A     
 ENDPRO             SA3    PROGRAM                                                         F162FTNA     867     A     
 ENDPRO             SA1    =XSTLTAB-1                                                      F162FTNA     868     A     
 ENDPRO             ZR     X2,EXIT.    IF STATIC LOAD OPTION NOT SELECTED                  F162FTNA     869     A     
 ENDPRO             ZR     X3,EXIT.    IF BLOCK DATA SUBPROGRAM                            F162FTNA     870     A     
 ENDPRO             LX3    11                                                              FCCA535       17     A     
 ENDPRO             MX0    1        SELECTION BIT MASK                                     FCCA535       18     A     
 ENDPRO             MI     X3,OSL2  IF NOT MAIN PROGRAM                                    FCCA535       19     A     
 ENDPRO             SA2    A1+12    PICK UP LAST STLTAB ENTRY                              FCCA535       20     A     
 ENDPRO             IX6    X0+X2    SET SELECT BIT FOR CMM INTERFACE                       FCCA535       21     A     
 ENDPRO             SA6    A2                                                              FCCA535       22     A     
 ENDPRO    OSL2     SA1    A1+B1                                                           F162FTNA     871     A     
 ENDPRO             SX6    A1                                                              F162FTNA     872     A     
 ENDPRO             ZR     X1,EXIT.    IF END OF TABLE                                     F162FTNA     873     A     
 ENDPRO             PL     X1,OSL2     IF ENTRY NOT SELECTED                               F162FTNA     874     A     
 ENDPRO             SA6    OSLA        SAVE CURRENT TABLE ADDR FOR RESTART                 F162FTNA     875     A     
 ENDPRO             SA2    OSLB+1                                                          F162FTNA     876     A     
 ENDPRO             LX1    -1*6                                                            F162FTNA     877     A     
 ENDPRO             MX0    4*6                                                             F162FTNA     878     A     
 ENDPRO             BX2    X0*X2       EXTRACT *USE=*                                      F162FTNA     879     A     
 ENDPRO             BX0    -X0*X1      EXTRACT *STLXYZ*                                    F162FTNA     880     A     
 ENDPRO             IX6    X2+X0                                                           F162FTNA     881     A     
 ENDPRO             SA6    A2                                                              F162FTNA     882     A     
 ENDPRO             WRITEC =XF.CMPS,OSLB,3   *LDSET USE=STLXXX.* TO *COMPS* FILE           F162FTNA     883     A     
 ENDPRO             SA2    OSLA                                                            F162FTNA     884     A     
 ENDPRO             SA1    X2                                                              F162FTNA     885     A     
 ENDPRO             EQ     OSL2                                                            F162FTNA     886     A     
 ENDPRO                                                                                    F162FTNA     887     A     
 ENDPRO                                                                                    F162FTNA     888     A     
 ENDPRO    OSLA     BSS    1           SAVED CURRENT *STLTAB* WORKING ADDRESS              F162FTNA     889     A     
 ENDPRO    OSLB     DATA   10H  LDSET                                                      F162FTNA     890     A     
 ENDPRO             DATA   10HUSE=STLXYZ                                                   F162FTNA     891     A     
 ENDPRO             DATA   1C.                                                             F162FTNA     892     A     
 ENDPRO    OSL      SPACE  4,2                                                             F162FTNA     893     A     
 ENDPRO             QUAL   *                                                               F162FTNA     894     A     
 ENDPRO    OSL      =      /OSL/OSL                                                        F162FTNA     895     A     
 ENDPRO             TITLE                  BEFTB: BASIC EXTERNAL FUNCTION TABLE            ENDPRO       835     A     
 ENDPRO   *CALL     COUNTMC                                                                ENDPRO       836     A     
 ENDPRO             SPACE  3                                                               ENDPRO       837          I
          -FEAT121A 
 ENDPRO   ***                                                                              ENDPRO       838          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1827    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
          -FEAT121A 
 ENDPRO   *         BASIC - BASIC EXTERNAL FUNCTION TABLE MACRO                            ENDPRO       839          I
          -FEAT121A 
 ENDPRO   *         ARGUMENTS:                                                             ENDPRO       840          I
          -FEAT121A 
 ENDPRO   *          NAME - FUNCTION NAME                                                  ENDPRO       841          I
          -FEAT121A 
 ENDPRO   *          TYPE - TYPE OF THE FUNCTION ( INTEGER,REAL,ETC )                      ENDPRO       842          I
          -FEAT121A 
 ENDPRO   *          PARAMS - TYPES OF THE PARAMETERS                                      ENDPRO       843          I
          -FEAT121A 
 ENDPRO   *                                                                                ENDPRO       844          I
          -FEAT121A 
 ENDPRO                                                                                    ENDPRO       845          I
          -FEAT121A 
 ENDPRO             MACRO  BASIC,NAMEXXX,TYPE,PARAMS                                       ENDPRO       846          I
          -FEAT121A 
 ENDPRO             LOCAL  A,B,C,D,ARGCOUNT,DUMMY                                          ENDPRO       847          I
          -FEAT121A 
 ENDPRO    A        SET    P.TYP-P.EXT                                                     ENDPRO       848          I
          -FEAT121A 
 ENDPRO    B        SET    P.EXT-P.FARG                                                    ENDPRO       849          I
          -FEAT121A 
 ENDPRO    C        SET    P.FARG-P.LIB                                                    ENDPRO       850          I
          -FEAT121A 
 ENDPRO    D        SET    P.LIB-P.BEF                                                     ENDPRO       851          I
          -FEAT121A 
 ENDPRO    ARGCOUNT SET    0                                                               ENDPRO       852          I
          -FEAT121A 
 ENDPRO    DUMMY    SET    0                                                               ENDPRO       853          I
          -FEAT121A 
 ENDPRO    TYMIC    MICRO  1,,                                                             ENDPRO       854          I
          -FEAT121A 
 ENDPRO             COUNT  ARGCOUNT,DUMMY,PARAMS                                           ENDPRO       855          I
          -FEAT121A 
 ENDPRO             VFD    42/0H_NAMEXXX,18/V.FUN                                          ENDPRO       856          I
          -FEAT121A 
 ENDPRO             VFD    L.TYP/TYPE,A/1,B/"ARGCOUNT",C/1,D/1,P.BEF/0                     ENDPRO       857          I
          -FEAT121A 
 ENDPRO    .AA      SET    6*ARGCOUNT+6                                                    ENDPRO       858          I
          -FEAT121A 
 ENDPRO    .BB      SET    60-.AA                                                          ENDPRO       859          I
          -FEAT121A 
 ENDPRO             VFD    .AA/"TYMIC"_00B,.BB/0                                           ENDPRO       860          I
          -FEAT121A 
 ENDPRO             ENDM                                                                   ENDPRO       861          I
          -FEAT121A 
 ENDPRO    BASIC    SPACE  3,14                                                            FEAT121A      51     A     
 ENDPRO   **        BASIC - BASIC EXTERNAL FUNCTION ( *BEF* ) SPECIFICATION MACRO          FEAT121A      52     A     
 ENDPRO   *                                                                                FEAT121A      53     A     
 ENDPRO   * FNAME   BASIC  FTYP,(ARGTYPS),METHOD                                           FEAT121A      54     A     
 ENDPRO   *                                                                                FEAT121A      55     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1828    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO   *         ARGTYPS - ARGUMENT TYPES                                               FEAT121A      56     A     
 ENDPRO             NOREF  .1                                                              FEAT121A      57     A     
 ENDPRO                                                                                    FEAT121A      58     A     
 ENDPRO             MACRO  BASIC,FNAMEXX,FTYP,ARGS                                         FEAT121A      59     A     
 ENDPRO    .ACNT    SET    0                                                               FEAT121A      60     A     
 ENDPRO    .DUM     SET    0                                                               FEAT121A      61     A     
 ENDPRO    TYMIC    MICRO  1,,                                                             FEAT121A      62     A     
 ENDPRO             COUNT  .ACNT,.DUM,ARGS                                                 FEAT121A      63     A     
 ENDPRO   +         VFD    42/0H_FNAMEXX,18/V.FUN                                          FEAT121A      64     A     
 ENDPRO             VFD    L.TYP/FTYP                                                      FEAT121A      65     A     
 ENDPRO             POS    P.EXT+1                                                         FEAT121A      66     A     
 ENDPRO             VFD    1/1                                                             FEAT121A      67     A     
 ENDPRO             POS    P.FARG+6                                                        FEAT121A      68     A     
 ENDPRO             VFD    6/.ACNT                                                         FEAT121A      69     A     
 ENDPRO             POS    P.LIB+1                                                         FEAT121A      70     A     
 ENDPRO             VFD    1/1                                                             FEAT121A      71     A     
 ENDPRO             POS    P.BEF+1                                                         FEAT121A      72     A     
 ENDPRO             VFD    1/1                                                             FEAT121A      73     A     
 ENDPRO   *                                                                                FEAT121A      74     A     
 ENDPRO             IF     -DEF,.FNAMEXX,1                                                 FEAT121A      75     A     
 ENDPRO    .FNAMEXX EQU    0                                                               FEAT121A      76     A     
 ENDPRO   *                                                                                FEAT121A      77     A     
 ENDPRO             POS    P.RA+18                                                         FEAT121A      78     A     
 ENDPRO             VFD    18/.FNAMEXX,*P/0                                                FEAT121A      79     A     
 ENDPRO    .1       SET    6*.ACNT                                                         FEAT121A      80     A     
 ENDPRO             VFD    .1/"TYMIC"B,*P/0                                                FEAT121A      81     A     
 ENDPRO             ENDM                                                                   FEAT121A      82     A     
 ENDPRO                                                                                    ENDPRO       862     A     
 ENDPRO    LOGICAL  EQU    T.LOG                                                           ENDPRO       863     A     
 ENDPRO    INTEGER  EQU    T.INT                                                           ENDPRO       864     A     
 ENDPRO    REAL     EQU    T.REAL                                                          ENDPRO       865     A     
 ENDPRO    DOUBLE   EQU    T.DBL                                                           ENDPRO       866     A     
 ENDPRO    COMPLEX  EQU    T.CPLX                                                          ENDPRO       867     A     
 ENDPRO    OCTAL    EQU    T.OCT                                                           ENDPRO       868     A     
 ENDPRO    ANYSNGL  EQU    7                                                               ENDPRO       869     A     
 ENDPRO    ANYDBL   EQU    10B                                                             ENDPRO       870     A     
 ENDPRO             EJECT                                                                  ENDPRO       871          I
          -FEAT121A 
 ENDPRO   ***                                                                              ENDPRO       872          I
          -FEAT121A 
 ENDPRO   *                                                                      *         ENDPRO       873          I
          -FEAT121A 
 ENDPRO   *                B E F T B :  BASIC EXTERNAL FUNCTION TABLE            *         ENDPRO       874          I
          -FEAT121A 
 ENDPRO   *                                                                      *         ENDPRO       875          I
          -FEAT121A 
 ENDPRO   *              EACH ENTRY IN THE BASIC EXTERNAL FUNCTION TABLE CONSISTS*         ENDPRO       876          I
          -FEAT121A 
 ENDPRO   *         OF TWO WORDS:                                                *         ENDPRO       877          I
          -FEAT121A 
 ENDPRO   *                WORD 1 -- WORD 1 FORM OF SYMBOL TABLE ENTRY           *         ENDPRO       878          I
          -FEAT121A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1829    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO   *                WORD 2 -- WORD 2 FORM OF SYMBOL TABLE ENTRY           *         ENDPRO       879          I
          -FEAT121A 
 ENDPRO   *                WORD 3 -- ARGUMENT TYPE WORD (TYP N = ACTUAL TYPE+1)  *         ENDPRO       880          I
          -FEAT121A 
 ENDPRO   *                   VFD   6/TYP1,6/TYP2,...,6/TYP10                    *         ENDPRO       881          I
          -FEAT121A 
 ENDPRO   *                                                                      *         ENDPRO       882          I
          -FEAT121A 
 ENDPRO    BRP      SPACE  3,14                                                            FEAT121A      83     A     
 ENDPRO   **        BRP - SPECIFY LIST OF B-REGISTERS PRESERVED BY A *BEF*                 FEAT121A      84     A     
 ENDPRO   *                                                                                FEAT121A      85     A     
 ENDPRO   *         BRP    FNAME,(LIST)                                                    FEAT121A      86     A     
 ENDPRO   *                                                                                FEAT121A      87     A     
 ENDPRO   *         LIST - A LIST OF REGISTER NUMBERS, I.E. - (5,6,7) .                    FEAT121A      88     A     
 ENDPRO    BRP      MACRO  FNAME,LIST                                                      FEAT121A      89     A     
 ENDPRO    .1       SET    0                                                               FEAT121A      90     A     
 ENDPRO             IRP    LIST                                                            FEAT121A      91     A     
 ENDPRO    .1       SET    .1+1S_LIST                                                      FEAT121A      92     A     
 ENDPRO             IRP                                                                    FEAT121A      93     A     
 ENDPRO    .FNAME   EQU    .1                                                              FEAT121A      94     A     
 ENDPRO             ENDM                                                                   FEAT121A      95     A     
 ENDPRO    BRP      SPACE  2,14                                                            FEAT121A      96     A     
 ENDPRO             BRP    ASIN,(6,7)                                                      FEAT121A      97     A     
 ENDPRO             BRP    ACOS,(6,7)                                                      FEAT121A      98     A     
 ENDPRO             BRP    ALOG,(5,6,7)                                                    FEAT121A      99     A     
 ENDPRO             BRP    ALOG10,(5,6,7)                                                  FEAT121A     100     A     
 ENDPRO             BRP    ATAN,(5,6,7)                                                    FEAT121A     101     A     
 ENDPRO             BRP    ATAN2,(5,6,7)                                                   FEAT121A     102     A     
 ENDPRO             BRP    COS,(5,6,7)                                                     FEAT121A     103     A     
 ENDPRO             BRP    SIN,(5,6,7)                                                     FEAT121A     104     A     
 ENDPRO             BRP    EXP,(5,6,7)                                                     FEAT121A     105     A     
 ENDPRO             BRP    SQRT,(5,6,7)                                                    FEAT121A     106     A     
 ENDPRO             BRP    COSH,(5,6,7)                                                    FEAT121A     107     A     
 ENDPRO             BRP    SINH,(5,6,7)                                                    FEAT121A     108     A     
 ENDPRO             BRP    DEXP,(5,6,7)                                                    FEAT79CZ       7     A     
 ENDPRO             BRP    DTANH,(6,7)                                                     FEAT79CZ       8     A     
 ENDPRO             BRP    DCOSH,(6,7)                                                     FEAT79CZ       9     A     
 ENDPRO             BRP    DSINH,(6,7)                                                     FEAT79CZ      10     A     
 ENDPRO             BRP    DASIN,(6,7)                                                     F191FCC       16     A     
 ENDPRO             BRP    DACOS,(6,7)                                                     F191FCC       17     A     
 ENDPRO             BRP    ERF,(5,6,7)                                                     F191FCC       18     A     
 ENDPRO             BRP    ERFC,(5,6,7)                                                    F191FCC       19     A     
 ENDPRO             BRP    ATANH,(5,6,7)                                                   F191FCC       20     A     
 ENDPRO             BRP    SIND,(5,6,7)                                                    F191FCC       21     A     
 ENDPRO             BRP    COSD,(5,6,7)                                                    F191FCC       22     A     
 ENDPRO             BRP    TAND,(5,6,7)                                                    F191FCC       23     A     
 ENDPRO    DEFTB    TITLE  BEFTB - BASIC EXTERNAL FUNCTION TABLE                           FEAT121A     109     A     
 ENDPRO   **        BEFTB - BASIC EXTERNAL FUNCTION TABLE                                  FEAT121A     110     A     
 ENDPRO   *         EACH ENTRY CONSISTS OF 3 WORDS, THE FIRST 2 ARE WORDS A AND B          FEAT121A     111     A     
 ENDPRO   *         OF A PROTOTYPE SYMBOL TABLE ENTRY. THE THIRD WORD CONTAINS A           FEAT121A     112     A     
 ENDPRO   *         LIST OF THE FUNCTION ARGUMENT TYPES.                                   FEAT121A     113     A     
 ENDPRO             SPACE  1                                                               ENDPRO       883     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1830    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO             ENTRY  BEFTB,L.BEFTB     FWA AND LWA+1 OF BEFTB                        ENDPRO       884     A     
 ENDPRO   BEFTB     BSS    0               BASIC EXTERNAL FUNCTION TABLE                   ENDPRO       885     A     
 ENDPRO             LIST   -R                                                              FEAT121A     114     A     
 ENDPRO   EXP       BASIC  REAL,(REAL)                                                     ENDPRO       886     A     
 ENDPRO   DEXP      BASIC  DOUBLE,(DOUBLE)                                                 ENDPRO       887     A     
 ENDPRO   CEXP      BASIC  COMPLEX,(COMPLEX)                                               ENDPRO       888     A     
 ENDPRO   ALOG      BASIC  REAL,(REAL)                                                     ENDPRO       889     A     
 ENDPRO   DLOG      BASIC  DOUBLE,(DOUBLE)                                                 ENDPRO       890     A     
 ENDPRO   CLOG      BASIC  COMPLEX,(COMPLEX)                                               ENDPRO       891     A     
 ENDPRO   ALOG10    BASIC  REAL,(REAL)                                                     ENDPRO       892     A     
 ENDPRO   DLOG10    BASIC  DOUBLE,(DOUBLE)                                                 ENDPRO       893     A     
 ENDPRO   SIN       BASIC  REAL,(REAL)                                                     ENDPRO       894     A     
 ENDPRO   DSIN      BASIC  DOUBLE,(DOUBLE)                                                 ENDPRO       895     A     
 ENDPRO    DASIN    BASIC  DOUBLE,(DOUBLE)                                                 F191FCC       24     A     
 ENDPRO    SIND     BASIC  REAL,(REAL)                                                     F191FCC       25     A     
 ENDPRO   CSIN      BASIC  COMPLEX,(COMPLEX)                                               ENDPRO       896     A     
 ENDPRO   COS       BASIC  REAL,(REAL)                                                     ENDPRO       897     A     
 ENDPRO   DCOS      BASIC  DOUBLE,(DOUBLE)                                                 ENDPRO       898     A     
 ENDPRO    DACOS    BASIC  DOUBLE,(DOUBLE)                                                 F191FCC       26     A     
 ENDPRO    COSD     BASIC  REAL,(REAL)                                                     F191FCC       27     A     
 ENDPRO   CCOS      BASIC  COMPLEX,(COMPLEX)                                               ENDPRO       899     A     
 ENDPRO   TANH      BASIC  REAL,(REAL)                                                     ENDPRO       900     A     
 ENDPRO    ATANH    BASIC  REAL,(REAL)                                                     F191FCC       28     A     
 ENDPRO    DTANH    BASIC  DOUBLE,(DOUBLE)                                                 FEAT79CZ      11     A     
 ENDPRO   SQRT      BASIC  REAL,(REAL)                                                     ENDPRO       901     A     
 ENDPRO   DSQRT     BASIC  DOUBLE,(DOUBLE)                                                 ENDPRO       902     A     
 ENDPRO   CSQRT     BASIC  COMPLEX,(COMPLEX)                                               ENDPRO       903     A     
 ENDPRO   ATAN      BASIC  REAL,(REAL)                                                     ENDPRO       904     A     
 ENDPRO   DATAN     BASIC  DOUBLE,(DOUBLE)                                                 ENDPRO       905     A     
 ENDPRO   ATAN2     BASIC  REAL,(REAL,REAL)                                                ENDPRO       906     A     
 ENDPRO   DATAN2    BASIC  DOUBLE,(DOUBLE,DOUBLE)                                          ENDPRO       907     A     
 ENDPRO   DMOD      BASIC  DOUBLE,(DOUBLE,DOUBLE)                                          ENDPRO       908     A     
 ENDPRO   CABS      BASIC  REAL,(COMPLEX)                                                  ENDPRO       909     A     
 ENDPRO   ACOS      BASIC  REAL,(REAL)                                                     ENDPRO       910     A     
 ENDPRO   ASIN      BASIC  REAL,(REAL)                                                     ENDPRO       911     A     
 ENDPRO   TAN       BASIC  REAL,(REAL)                                                     ENDPRO       912     A     
 ENDPRO    TAND     BASIC  REAL,(REAL)                                                     F191FCC       29     A     
 ENDPRO    DTAN     BASIC  DOUBLE,(DOUBLE)                                                 F191FCC       30     A     
 ENDPRO    SINH     BASIC  REAL,(REAL)                                                     FEAT79BZ       6     A     
 ENDPRO    DSINH    BASIC  DOUBLE,(DOUBLE)                                                 FEAT79CZ      12     A     
 ENDPRO    COSH     BASIC  REAL,(REAL)                                                     FEAT79BZ       7     A     
 ENDPRO    DCOSH    BASIC  DOUBLE,(DOUBLE)                                                 FEAT79CZ      13     A     
 ENDPRO    ERF      BASIC  REAL,(REAL)                                                     F191FCC       31     A     
 ENDPRO    ERFC     BASIC  REAL,(REAL)                                                     F191FCC       32     A     
 ENDPRO    L.BEFTB  DATA   0                 END OF THE TABLE                              ENDPRO       913     A     
 ENDPRO             LIST   R                                                               FEAT121A     115     A     
 ENDPRO             TITLE              EXTERNAL NAME CHANGE TABLE                          ENDPRO       914     A     
 ENDPRO   ***                                                                              ENDPRO       915     A     
 ENDPRO   *                                                                                ENDPRO       916     A     
 ENDPRO   *         RETURN - "RETURN" STATEMENT PROCESSOR                                  ENDPRO       917     A     
 ENDPRO   *                                                                                ENDPRO       918     A     
 ENDPRO    SELIST   EQU    32B                                                             ENDPRO       919     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1831    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO                                                                                    ENDPRO       920     A     
 ENDPRO             EXT    TEMPA0.,ENTRY.,VALUE.                                           ENDPRO       921     A     
 ENDPRO                                                                                    ENDPRO       922     A     
 ENDPRO    M.RET    RMEQU  100B        SUBPROGRAM RETURN                                   ENDPRO       923     A     
 ENDPRO    M.NSR    RMEQU              NON-STANDARD RETURN                                 ENDPRO       924     A     
 ENDPRO                                                                                    ENDPRO       925     A     
 ENDPRO    E.RIM    EQU    67                RETURN STMT IN MAIN PROGRAM                   ENDPRO       926     A     
 ENDPRO    E.RSS    EQU    68                RETURNS STMT MUST BE IN A SUBROUTINE          ENDPRO       927     A     
 ENDPRO    E.RSNE   EQU    69                ILLEGAL NAME IN RETURNS STMT                  ENDPRO       928     A     
 ENDPRO    E.RSA    EQU    72                RETURNS STMT IS NOT USAS                      ENDPRO       929     A     
 ENDPRO             SPACE  3                                                               ENDPRO       930     A     
 ENDPRO    RETM     RMHDR  M.RET,1                                                         ENDPRO       931     A     
 ENDPRO             BSS    1                                                               ENDPRO       932     A     
 ENDPRO    RSMAC    RMHDR  M.NSR,3                                                         ENDPRO       933     A     
 ENDPRO                                                                                    ENDPRO       934     A     
 ENDPRO             USE    /MACBUF/                                                        ENDPRO       935     A     
 ENDPRO    MACBUF   BSS    4                                                               ENDPRO       936     A     
 ENDPRO             USE    *                                                               ENDPRO       937     A     
 ENDPRO             EXT    O.CEP             ORDINAL OF CURRENT ENTRY POINT                ENDPRO       938     A     
 ENDPRO             EJECT                                                                  ENDPRO       939     A     
 ENDPRO    ERTN     SB7    RETURN            B6 = ERROR NUMBER                             ENDPRO       940     A     
 ENDPRO             EQ     ERPRO                                                           ENDPRO       941     A     
 ENDPRO                                                                                    ENDPRO       942     A     
 ENDPRO    RETURN   ENTRY. **                ** ENTRY/EXIT **                              ENDPRO       943     A     
 ENDPRO             BX3    X3-X3                                                           ENDPRO       944          I
          -FCC1402X 
 ENDPRO             MX2    60                                                              ENDPRO       945          I
          -FCC1402X 
 ENDPRO             RJ     =XDOLABR          SET X AND M BIT IF IN DO LOOP                 ENDPRO       946          I
          -FCC1402X 
 ENDPRO             MX2    0                                                               FCC1402X       6     A     
 ENDPRO             RJ     =XDOLABR    INHIBIT OPTIMIZATION IF IN DO LOOP                  FCC1402X       7     A     
 ENDPRO             SA1    PROGRAM                                                         ENDPRO       947     A     
 ENDPRO             UX0    B4,X1                                                           ENDPRO       948     A     
 ENDPRO             ZR     B4,RTNS2          IF NOT A SUBPROGRAM                           ENDPRO       949     A     
 ENDPRO                                                                                    ENDPRO       950     A     
 ENDPRO             SA3    SELIST                                                          ENDPRO       951     A     
 ENDPRO             SA2    X3                FETCH FIRST ELEMENT                           ENDPRO       952     A     
 ENDPRO             UX1    B3,X2                                                           ENDPRO       953     A     
 ENDPRO             ZR     X1,RETRN          IF NOT A RETURNS STMT                         ENDPRO       954     A     
 ENDPRO                                                                                    ENDPRO       955     A     
 ENDPRO   *         PROCESS "RETURNS" STATEMENT                                            ENDPRO       956     A     
 ENDPRO                                                                                    ENDPRO       957     A     
 ENDPRO             SB6    -E.RSS            RETURNS STMT MUST BE IN A SUBROUTINE          ENDPRO       958     A     
 ENDPRO             NE     B4,B5,ERTN        IF NOT A SUBROUTINE                           ENDPRO       959     A     
 ENDPRO                                                                                    ENDPRO       960     A     
 ENDPRO             NE     B3,B5,ERTN1       IF NOT A NAME                                 ENDPRO       961     A     
 ENDPRO             SYMBOL                   FIND NAME OF THE PARAMETER IN SYMTAB          ENDPRO       962     A     
 ENDPRO                                                                                    ENDPRO       963     A     
 ENDPRO    ERTN1    SB6    -E.RSNE           RETURNS NAME ERROR                            ENDPRO       964     A     
 ENDPRO             EQ     ERTN                                                            ENDPRO       965     A     
 ENDPRO                                                                                    ENDPRO       966     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1832    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO             AX2    P.TYP                                                           ENDPRO       967     A     
 ENDPRO             MX0    60-L.TYP                                                        ENDPRO       968     A     
 ENDPRO             BX3    -X0*X2                                                          ENDPRO       969     A     
 ENDPRO             SX4    X3-T.RTN                                                        ENDPRO       970     A     
 ENDPRO             NZ     X4,ERTN1          IF TYPE .NE. RETURNS                          ENDPRO       971     A     
 ENDPRO                                                                                    ENDPRO       972     A     
 ENDPRO             SX7    B1-1                                                            ENDPRO       973     A     
 ENDPRO                                                                                    ENDPRO       974     A     
 ENDPRO   *         FORM RLIST MACRO REFERENCE                                             ENDPRO       975     A     
 ENDPRO                                                                                    ENDPRO       976     A     
 ENDPRO             SA3    RSMAC                                                           ENDPRO       977     A     
 ENDPRO             SA4    TEMPA0.                                                         ENDPRO       978     A     
 ENDPRO             SA5    NRLN                                                            ENDPRO       979     A     
 ENDPRO             BX6    X3                                                              ENDPRO       980     A     
 ENDPRO             SA6    MACBUF            RLIST MACRO HEADER WORD                       ENDPRO       981     A     
 ENDPRO             BX6    X4                WORD 1 = ORD OF TEMPA0.                       ENDPRO       982     A     
 ENDPRO             SA6    A6+B5                                                           ENDPRO       983     A     
 ENDPRO             BX6    X5                                                              ENDPRO       984     A     
 ENDPRO             SA6    A6+B5             WORD 2 = AN R NUMBER FOR THE REGISTER         ENDPRO       985     A     
 ENDPRO                                      STORE                                         ENDPRO       986     A     
 ENDPRO             SA7    A6+B5             WORD 3 = FP ORD                               ENDPRO       987     A     
 ENDPRO             SX6    X6+B5                                                           ENDPRO       988     A     
 ENDPRO             SA6    A5                NRLN = NRLN+1                                 ENDPRO       989     A     
 ENDPRO                                                                                    ENDPRO       990     A     
 ENDPRO             SA4    RSELECT                                                         ENDPRO       991     A     
 ENDPRO             ZR     X4,RTNS1          IF R = 0                                      ENDPRO       992     A     
 ENDPRO             ADDREF B1,REF            ADD A REFERENCE FOR THE PARAMETER             ENDPRO       993     A     
 ENDPRO    RTNS1    WRM    MACBUF      RETURNS MACRO TO RLIST                              ENDPRO       994     A     
 ENDPRO             SB7    RETURN            (B7) = -ERPRO- RETURN ADDRESS                 ENDPRO       995     A     
 ENDPRO             POSTERR   NR=E.RSA,SEV=ANSI,RETURN=B7    *RETURN IS NON-ANSI*          ENDPRO       996     A     
 ENDPRO                                                                                    ENDPRO       997     A     
 ENDPRO    RTNS2    SA3    SELIST                                                          ENDPRO       998     A     
 ENDPRO             SA2    X3                                                              ENDPRO       999     A     
 ENDPRO             UX1    B3,X2                                                           ENDPRO      1000     A     
 ENDPRO             SB6    -E.RSS            RETURNS STMT MUST BE IN A SUBPROGRAM          ENDPRO      1001     A     
 ENDPRO             NZ     X1,ERTN           IF A RETURNS STATEMENT                        ENDPRO      1002     A     
 ENDPRO             MX6    0                                                               ENDPRO      1003          I
          -FCC0624
 ENDPRO             SA6    =XLSFLG                                                         ENDPRO      1004          I
          -FCC0624
 ENDPRO             RJ     ISE                                                             ENDPRO      1005          I
          -FCC0624
 ENDPRO             SX6    B5                                                              ENDPRO      1006          I
          -FCC0624
 ENDPRO             SA6    =XLSFLG                                                         ENDPRO      1007          I
          -FCC0624
 ENDPRO             RJ     ISE         ISSUE MACRO FOR RETURN IN MAIN PROG                 FCC0624       10     A     
 ENDPRO             SB6    -E.RIM            RETURN STATEMENT IN A MAIN PROGRAM            ENDPRO      1008     A     
 ENDPRO             SB7    RETURN                                                          ENDPRO      1009     A     
 ENDPRO             EQ     ERPROI                                                          ENDPRO      1010     A     
 ENDPRO             SPACE  3                                                               ENDPRO      1011     A     
 ENDPRO   *         PROCESS STANDARD RETURN STATEMENT                                      ENDPRO      1012     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1833    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ENDPRO  
  
 ENDPRO                                                                                    ENDPRO      1013     A     
 ENDPRO    RETRN    SA1    =XEXIT.                                                         ENDPRO      1014     A     
 ENDPRO             BX6    X1                                                              ENDPRO      1015     A     
 ENDPRO             SA6    RETM+1                                                          ENDPRO      1016     A     
 ENDPRO             WRM    RETM        RETURN MACRO TO RLIST                               ENDPRO      1017     A     
 ENDPRO             SA5    RSELECT                                                         ENDPRO      1018     A     
 ENDPRO             ZR     X5,RETURN         IF R = 0                                      ENDPRO      1019     A     
 ENDPRO             ADDREF O.CEP,REF         A REFERENCE TO THE CURRENT ENTRY PT           ENDPRO      1020     A     
 ENDPRO             EQ     RETURN                                                          ENDPRO      1021     A     
 ENDPRO                                                                                    ENDPRO      1022     A     
 ENDPRO    F.UDV    END                                                                    ENDPRO      1023     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - ENDPRO  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          ENDPRO                    1023       965
          FCC0220                     23        23
          FCC0451                      2         2
          FEAT79BZ                     2         2
          FEAT121A                    76        76
          FCC0624                      6         5
          FCC0711                     45        43
          FEAT79CZ                     7         7
          FEAT155A                     3         3
          FCC1313                      1         1
          FCC1425                      2         2
          FCC1402X                     2         2
          FCC1638X                     3         3
          F191FCC                     17        17
          F162FTNA                    58        58
          FCC1924                      3         3
          FEAT1070C                    6         6
          FCCA535                      6         6
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *DECK,    SCANNER                                                                SCANNER        1     A     
 SCANNER            IDENT     SCANNER                                                      SCANNER        2     A     
 SCANNER            TITLE  SCANNER                                                         SCANNER        3     A     
 SCANNER  *CALL     SSTCALL                                                                SCANNER        4     A     
 SCANNER            LIST   F,X                                                             FCC1328X     555     A     
 SCANNER   B=SCANR  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             SCANNER        5     A     
 SCANNER   AUXT     SPACE  4,8                                                             SCANNER        6     A     
 SCANNER  **        AUXT - GENERATE AUXILIARY KEYWORD TABLE.                               SCANNER        7     A     
 SCANNER  *                                                                                SCANNER        8     A     
 SCANNER  *                GENERATES THE FIRST LETTER INDEX TABLE. THIS MACRO              SCANNER        9     A     
 SCANNER  *         IS CALLED ONLY FROM *KEYW* MACRO.                                      SCANNER       10     A     
 SCANNER  *                                                                                SCANNER       11     A     
 SCANNER  *         AUXT   STRING                                                          SCANNER       12     A     
 SCANNER  *                                                                                SCANNER       13     A     
 SCANNER  *         ENTRY  *STRING*  = THE FORTRAN KEYWORD.                                SCANNER       14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1834    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *                                                                                SCANNER       15     A     
 SCANNER  *         USES   NONE                                                            SCANNER       16     A     
 SCANNER  *                                                                                SCANNER       17     A     
 SCANNER  *         CALLS  NONE                                                            SCANNER       18     A     
 SCANNER                                                                                   SCANNER       19     A     
 SCANNER   AUXT     MACRO  STRING                                                          SCANNER       20     A     
 SCANNER   .F       MICRO  1,1,/STRING/                                                    SCANNER       21     A     
 SCANNER            IFC    GT,/".F"/".L"/,7                                                SCANNER       22     A     
 SCANNER   KW.".F"  BSS    0                                                               SCANNER       23     A     
 SCANNER            IF     DEF,KW.".L",4                                                   SCANNER       24     A     
 SCANNER            USE    SRCHA                                                           SCANNER       25     A     
 SCANNER            VFD    30/KW.".L",30/KW.".F"                                           SCANNER       26     A     
 SCANNER            BSSZ   1R".F"-1R".L"-1                                                 SCANNER       27     A     
 SCANNER            USE    *                                                               SCANNER       28     A     
 SCANNER   .L       MICRO  1,,/".F"/                                                       SCANNER       29     A     
 SCANNER   AUXT     ENDM                                                                   SCANNER       30     A     
 SCANNER   ELPUT    SPACE  4,8                                                             SCANNER       31     A     
 SCANNER  **        ELPUT - ENTER WORD IN E-LIST.                                          SCANNER       32     A     
 SCANNER  *                                                                                SCANNER       33     A     
 SCANNER  *         ELPUT  WORD                                                            SCANNER       34     A     
 SCANNER  *                                                                                SCANNER       35     A     
 SCANNER  *                                                                                SCANNER       36     A     
 SCANNER  *         ENTRY  *WORD* = X-REGISTER CONTAINING WORD FOR E-LIST, OR              SCANNER       37     A     
 SCANNER  *                         ADDRESS EXPRESSION FOR LOCATION OF WORD.               SCANNER       38     A     
 SCANNER  *                         SEE *XR=* MACRO IN *FTNTEXT* FOR VALID FORMS.          SCANNER       39     A     
 SCANNER  *                                                                                SCANNER       40     A     
 SCANNER  *         USES   X1, A1                                                          SCANNER       41     A     
 SCANNER  *                                                                                SCANNER       42     A     
 SCANNER  *         CALLS  AWE                                                             SCANNER       43     A     
 SCANNER                                                                                   SCANNER       44     A     
 SCANNER                                                                                   SCANNER       45     A     
 SCANNER            PURGMAC  ELPUT                                                         SCANNER       46     A     
 SCANNER                                                                                   SCANNER       47     A     
 SCANNER   ELPUT    MACRO  W                                                               SCANNER       48     A     
 SCANNER            XR=    X1,W                                                            SCANNER       49     A     
 SCANNER            RJ     AWE                                                             SCANNER       50     A     
 SCANNER   ELPUT    ENDM                                                                   SCANNER       51     A     
 SCANNER   JPC      SPACE  4,8                                                             SCANNER       52     A     
 SCANNER  **        JPC - JUMP ON CHARACTER.                                               SCANNER       53     A     
 SCANNER  *                                                                                SCANNER       54     A     
 SCANNER  *                MAKE AN ENTRY IN THE *LEX-N-* CHARACTER JUMP TABLE.             SCANNER       55     A     
 SCANNER  *                                                                                SCANNER       56     A     
 SCANNER  *         JPC    ADDR,ELIST                                                      SCANNER       57     A     
 SCANNER  *                                                                                SCANNER       58     A     
 SCANNER  *         ENTRY  *ADDR*   =  THE ADDRESS TO WHICH CONTROL IS TO BE               SCANNER       59     A     
 SCANNER  *                            TRANSFERRED FOR THIS CHARACTER UPON ENTRY           SCANNER       60     A     
 SCANNER  *                            INTO THIS *LEX-N-* ROUTINE.                         SCANNER       61     A     
 SCANNER  *                                                                                SCANNER       62     A     
 SCANNER  *                *ELIST*  =  IF PRESENT, THE ADDRESS OF AN *ELIST*               SCANNER       63     A     
 SCANNER  *                            ELEMENT SKELETON FOR THIS CHARACTER.                SCANNER       64     A     
 SCANNER  *                                                                                SCANNER       65     A     
 SCANNER  *         EXIT   NO CONDITIONS                                                   SCANNER       66     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1835    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *                                                                                SCANNER       67     A     
 SCANNER  *         USES   NONE                                                            SCANNER       68     A     
 SCANNER  *                                                                                SCANNER       69     A     
 SCANNER  *         CALLS  NONE                                                            SCANNER       70     A     
 SCANNER                                                                                   SCANNER       71     A     
 SCANNER   JPC      MACRO  ADDR,ELIST                                                      SCANNER       72     A     
 SCANNER            VFD    12/0,18/ELIST,12/0,18/ADDR                                      SCANNER       73     A     
 SCANNER   JPC      ENDM                                                                   SCANNER       74     A     
 SCANNER   KEYW     SPACE  4,8                                                             SCANNER       75     A     
 SCANNER  **        KEYW - GENERATE KEYWORD TABLES.                                        SCANNER       76     A     
 SCANNER  *                                                                                SCANNER       77     A     
 SCANNER  *                GENERATES THE VARIOUS TABLES ASSOCIATED WITH KEYWORD            SCANNER       78     A     
 SCANNER  *         PROCESSING.                                                            SCANNER       79     A     
 SCANNER  *                                                                                SCANNER       80     A     
 SCANNER  *  SUCC   KEYW   STRING,TYPE,ATYPE,CALLERS,ANSI                                  SCANNER       81     A     
 SCANNER  *                                                                                SCANNER       82     A     
 SCANNER  *         ENTRY  *SUCC*    = SUCCESS EXIT JUMP ADDRESS. IF A FIND IS             SCANNER       83     A     
 SCANNER  *                            MADE ON THIS KEYWORD STRING, CONTROL                SCANNER       84     A     
 SCANNER  *                            IS TRANSFERRED TO THE LABEL *SRCH_SUCC*.            SCANNER       85     A     
 SCANNER  *                            DEFAULT IS *SRCH*.                                  SCANNER       86     A     
 SCANNER  *                *STRING*  = THE FORTRAN KEYWORD.                                SCANNER       87     A     
 SCANNER  *                *TYPE*    = STATEMENT TYPE CODE FOR THIS KEYWORD.               SCANNER       88     A     
 SCANNER  *                *ATYPE*   = AUXILIARY STATEMENT TYPE CODE FOR THIS              SCANNER       89     A     
 SCANNER  *                            KEYWORD. DEFAULT IS -0.                             SCANNER       90     A     
 SCANNER  *                *CALLERS* = WHERE *CALLERS* IS A LIST OF LEGAL *SRCH*           SCANNER       91     A     
 SCANNER  *                            CALLERS, (CLR1,CLR2,...,CLRN). THIS LIST            SCANNER       92     A     
 SCANNER  *                            SPECIFIES THAT IT IS ONLY SYNTACTICALLY             SCANNER       93     A     
 SCANNER  *                            CORRECT TO FIND THIS KEYWORD FROM THE               SCANNER       94     A     
 SCANNER  *                            *SRCH* CALLER AT THE LABELS *LEX_CLR1,              SCANNER       95     A     
 SCANNER  *                            LEX_CLR2,...,LEX_CLRN*.                             SCANNER       96     A     
 SCANNER  *                *ANSI*    = IF NON-BLANK, SPECIFIES THAT THIS IS A              SCANNER       97     A     
 SCANNER  *                            NON-ANSI KEYWORD.                                   SCANNER       98     A     
 SCANNER  *                                                                                SCANNER       99     A     
 SCANNER  *         USES   NONE                                                            SCANNER      100     A     
 SCANNER  *                                                                                SCANNER      101     A     
 SCANNER  *         CALLS  NONE                                                            SCANNER      102     A     
 SCANNER  *                                                                                SCANNER      103     A     
 SCANNER            NOREF  .1,.2                                                           SCANNER      104     A     
 SCANNER   .L       MICRO                                                                  SCANNER      105     A     
 SCANNER                                                                                   SCANNER      106     A     
 SCANNER                                                                                   SCANNER      107     A     
 SCANNER            MACRO  KEYW,SUCC,STRING,TYPE,ATYPE,CALLERS,ANSI                        SCANNER      108     A     
 SCANNER  *                                                                                SCANNER      109     A     
 SCANNER  *         GENERATE 1ST LETTER INDEX TABLE.                                       SCANNER      110     A     
 SCANNER  *                                                                                SCANNER      111     A     
 SCANNER            AUXT   STRING                                                          SCANNER      112     A     
 SCANNER  *                                                                                SCANNER      113     A     
 SCANNER  *         GENERATE KEYWORD TABLE.                                                SCANNER      114     A     
 SCANNER  *                                                                                SCANNER      115     A     
 SCANNER   .1       MICRO  1,,/STRING/                                                     SCANNER      116     A     
 SCANNER   .1       MICCNT .1                                                              SCANNER      117     A     
 SCANNER   .2       SET    ATYPE 17B                                                       SCANNER      118     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1836    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            VFD    12/1777B+6*.1,18/SRCH_SUCC,4/.2,8/TYPE,18/=0L_STRING            SCANNER      119     A     
 SCANNER  *                                                                                SCANNER      120     A     
 SCANNER  *         SET BITS IN LEGAL CALLER TYPE SHIFT TABLE.                             SCANNER      121     A     
 SCANNER  *                                                                                SCANNER      122     A     
 SCANNER   #CL      IRP    CALLERS                                                         SCANNER      123     A     
 SCANNER            USE    CLR_CALLERS                                                     SCANNER      124     A     
 SCANNER            POS    1                                                               SCANNER      125     A     
 SCANNER            POS    60-TYPE                                                         SCANNER      126     A     
 SCANNER            VFD    1/1                                                             SCANNER      127     A     
 SCANNER            USE    *                                                               SCANNER      128     A     
 SCANNER   #CL      IRP                                                                    SCANNER      129     A     
 SCANNER  *                                                                                SCANNER      130     A     
 SCANNER  *         GENERATE NON-ANSI KEYWORD SHIFT WORD.                                  SCANNER      131     A     
 SCANNER  *                                                                                SCANNER      132     A     
 SCANNER            IFC    NE,/ANSI//,5                                                    SCANNER      133     A     
 SCANNER            USE    NANSI                                                           SCANNER      134     A     
 SCANNER            POS    1                                                               SCANNER      135     A     
 SCANNER            POS    60-TYPE                                                         SCANNER      136     A     
 SCANNER            VFD    1/1                                                             SCANNER      137     A     
 SCANNER            USE    *                                                               SCANNER      138     A     
 SCANNER  *                                                                                SCANNER      139     A     
 SCANNER   KEYW     ENDM                                                                   SCANNER      140     A     
 SCANNER   SRCH     SPACE  4,8                                                             SCANNER      141     A     
 SCANNER  **        SRCH - TRY TO TYPE THE STATEMENT.                                      SCANNER      142     A     
 SCANNER  *                                                                                SCANNER      143     A     
 SCANNER  *                TASKS PERFORMED --                                              SCANNER      144     A     
 SCANNER  *         1.     CALLS *SRCH* TO SEARCH THE INITIAL STRING FOR A                 SCANNER      145     A     
 SCANNER  *                MATCH OF THE LEADING KEYWORD.                                   SCANNER      146     A     
 SCANNER  *         2.     SETS UP THE CORRECT *USE* BLOCKS AND DEFINES THE                SCANNER      147     A     
 SCANNER  *                LEGAL TYPE SHIFT WORD ASSOCIATED WITH DETERMINING               SCANNER      148     A     
 SCANNER  *                WHETHER A KEYWORD IS SYNTACTICALLY LEGAL FROM THIS              SCANNER      149     A     
 SCANNER  *                *SRCH* CALLER.                                                  SCANNER      150     A     
 SCANNER  *                                                                                SCANNER      151     A     
 SCANNER  * LAB     SRCH   ERTN                                                            SCANNER      152     A     
 SCANNER  *                                                                                SCANNER      153     A     
 SCANNER  *         ENTRY  *LAB*   =   A *LEX* LABEL ASSOCIATED WITH THIS *SRCH*           SCANNER      154     A     
 SCANNER  *                            CALL. FOR EVERY KEYWORD THAT IS                     SCANNER      155     A     
 SCANNER  *                            SYNTACTICALLY LEGAL FROM THIS CALLER,               SCANNER      156     A     
 SCANNER  *                            A *LAB* ENTRY SHOULD BE MADE IN THE                 SCANNER      157     A     
 SCANNER  *                            *CALLERS* FIELD FOR THAT KEYWORD-S *KEYW*           SCANNER      158     A     
 SCANNER  *                            ENTRY.                                              SCANNER      159     A     
 SCANNER  *                *ERTN*  =   ERROR RETURN OR THE NEXT *LEX-N-* ROUTINE           SCANNER      160     A     
 SCANNER  *                            IN THE LEXICAL SCANNING PROCESS.                    SCANNER      161     A     
 SCANNER  *                                                                                SCANNER      162     A     
 SCANNER  *         EXIT   (B1)    =   NEXT *LEX-N-* ROUTINE.                              SCANNER      163     A     
 SCANNER  *                (X1)    =   LEGAL TYPE SHIFT WORD FOR THIS *SRCH*               SCANNER      164     A     
 SCANNER  *                            CALLER.                                             SCANNER      165     A     
 SCANNER  *                                                                                SCANNER      166     A     
 SCANNER  *         USES   X - 1                                                           SCANNER      167     A     
 SCANNER  *                A - 1                                                           SCANNER      168     A     
 SCANNER  *                B - 1                                                           SCANNER      169     A     
 SCANNER  *                                                                                SCANNER      170     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1837    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *         CALLS  SRCH                                                            SCANNER      171     A     
 SCANNER                                                                                   SCANNER      172     A     
 SCANNER            MACRO  SRCH,LAB,ERTN                                                   SCANNER      173     A     
 SCANNER            IFC    EQ,/LAB//,1                                                     SCANNER      174     A     
 SCANNER   P        ERR    *SRCH* REQUIRES A LABEL.                                        SCANNER      175     A     
 SCANNER   A        MICRO  4,,/LAB/                                                        SCANNER      176     A     
 SCANNER            USE    CLR_"A"                                                         SCANNER      177     A     
 SCANNER   LETS_"A" BSS    0                                                               SCANNER      178     A     
 SCANNER            USE    *                                                               SCANNER      179     A     
 SCANNER   LAB      SB1    ERTN        ERROR EXIT RETURN                                   SCANNER      180     A     
 SCANNER            RJ     SRCH        TRY TO TYPE STMT                                    SCANNER      181     A     
 SCANNER            SA1    LETS_"A"    LEGAL TYPE SHIFT FOR THIS CALLER                    SCANNER      182     A     
 SCANNER            NO                                                                     SCANNER      183     A     
 SCANNER   SRCH     ENDM                                                                   SCANNER      184     A     
 SCANNER   TYPER    SPACE  4,8                                                             SCANNER      185     A     
 SCANNER  **        TYPER - DEFINE STATEMENT TYPER.                                        SCANNER      186     A     
 SCANNER  *                                                                                SCANNER      187     A     
 SCANNER  *  LAB    TYPER  ADDR                                                            SCANNER      188     A     
 SCANNER  *                                                                                SCANNER      189     A     
 SCANNER  *         ENTRY  *LAB*  =  IF PRESENT, THE *LEX-N-* ROUTINE FOR WHICH            SCANNER      190     A     
 SCANNER  *                          WE ARE DEFINING A STATEMENT TYPER.                    SCANNER      191     A     
 SCANNER  *                          *LAB*=*+1                                             SCANNER      192     A     
 SCANNER  *                                                                                SCANNER      193     A     
 SCANNER  *                                                                                SCANNER      194     A     
 SCANNER  *                *ADDR* =  THE ADDRESS OF THE STATEMENT TYPE DETERMINER          SCANNER      195     A     
 SCANNER  *                          FOR THE *LEX-N-* ROUTINE AT *+1, NORMALLY             SCANNER      196     A     
 SCANNER  *                          *LAB*. IF A NEW STATEMENT IS FOUND BEFORE THE         SCANNER      197     A     
 SCANNER  *                          CURRENT STATEMENT HAS BEEN TYPED, *NEWS* WILL         SCANNER      198     A     
 SCANNER  *                          PICK UP *ADDR* FROM (B1)-1 AND THEN TRANSFER          SCANNER      199     A     
 SCANNER  *                          CONTROL TO *ADDR* TO TRY AND TYPE THE                 SCANNER      200     A     
 SCANNER  *                          STATEMENT.                                            SCANNER      201     A     
 SCANNER  *                                                                                SCANNER      202     A     
 SCANNER  *         EXIT   NO CONDITIONS                                                   SCANNER      203     A     
 SCANNER  *                                                                                SCANNER      204     A     
 SCANNER  *         USES   NONE                                                            SCANNER      205     A     
 SCANNER  *                                                                                SCANNER      206     A     
 SCANNER  *         CALLS  NONE                                                            SCANNER      207     A     
 SCANNER                                                                                   SCANNER      208     A     
 SCANNER            MACRO  TYPER,LAB,ADDR                                                  SCANNER      209     A     
 SCANNER            VFD    42/0,18/ADDR                                                    SCANNER      210     A     
 SCANNER   LAB      BSS    0                                                               SCANNER      211     A     
 SCANNER   TYPER    ENDM                                                                   SCANNER      212     A     
 SCANNER   ZERO     SPACE  4,8                                                             SCANNER      213     A     
 SCANNER  **        ZERO - DEFINE A CELL TO BE IN *ZERO* BLOCK.                            SCANNER      214     A     
 SCANNER  *                                                                                SCANNER      215     A     
 SCANNER  *                ALL CELLS THAT ARE DEFINED TO EXIST IN *ZERO* BLOCK             SCANNER      216     A     
 SCANNER  *         WILL BE SET TO ZERO EVERY TIME *SCANNER* IS ENTERED.                   SCANNER      217     A     
 SCANNER  *                                                                                SCANNER      218     A     
 SCANNER  * CELL    ZERO   NR,EPT                                                          SCANNER      219     A     
 SCANNER  *                                                                                SCANNER      220     A     
 SCANNER  *         ENTRY  *CELL*  =   NAME OF CELL TO BE PLACED IN *ZERO* BLOCK.          SCANNER      221     A     
 SCANNER  *                                                                                SCANNER      222     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1838    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *                *NR*    =   NR OF LOCATIONS TO BE RESERVED FOR *CELL*.          SCANNER      223     A     
 SCANNER  *                                                                                SCANNER      224     A     
 SCANNER  *                *EPT*   =   IF NON-BLANK, SPECIFIES THAT THIS CELL IS           SCANNER      225     A     
 SCANNER  *                              TO BE DECLARED AS AN ENTRY POINT.                 SCANNER      226     A     
 SCANNER  *                                                                                SCANNER      227     A     
 SCANNER  *         EXIT   NONE                                                            SCANNER      228     A     
 SCANNER  *                                                                                SCANNER      229     A     
 SCANNER  *         USES   NONE                                                            SCANNER      230     A     
 SCANNER  *                                                                                SCANNER      231     A     
 SCANNER  *         CALLS  NONE                                                            SCANNER      232     A     
 SCANNER                                                                                   SCANNER      233     A     
 SCANNER                                                                                   SCANNER      234     A     
 SCANNER            PURGMAC ZERO                                                           SCANNER      235     A     
 SCANNER                                                                                   SCANNER      236     A     
 SCANNER            MACRO  ZERO,CELL,NR,EPT                                                SCANNER      237     A     
 SCANNER            USE    ZERO                                                            SCANNER      238     A     
 SCANNER   CELL     BSS    NR                                                              SCANNER      239     A     
 SCANNER            USE    *                                                               SCANNER      240     A     
 SCANNER            IFC    NE,/EPT//,1                                                     SCANNER      241     A     
 SCANNER            ENTRY  CELL                                                            SCANNER      242     A     
 SCANNER   ZERO     ENDM                                                                   SCANNER      243     A     
 SCANNER            TITLE  EQU S AND LOWCORE CELLS                                         SCANNER      244     A     
 SCANNER            SPACE  3                                                               SCANNER      245     A     
 SCANNER   CHAR     =      6           NR OF BITS IN CYBER CHARACTER                       FCC1328X     556     A     
 SCANNER   SYMEND   EQU    13B               END OF SYMTAB                                 SCANNER      246     A     
 SCANNER   L.STBZ   EQU    40D         LENGTH OF SAFETY BUFFER ZONE BETWEEN                SCANNER      247     A     
 SCANNER  *                              FWA E-LIST AND LWA SYMTAB.                        SCANNER      248     A     
 SCANNER   SELIST   EQU    32B                                                             SCANNER      249     A     
 SCANNER   TYPE     EQU    24B               STMT TYPE                                     SCANNER      250     A     
 SCANNER   CLABEL   EQU    23B         CURRENT STATEMENT LABEL.  CONTENTS ARE              SCANNER      251     A     
 SCANNER                               (1) IF EMPTY OR ILLEGAL LABEL, .EQ. 0               SCANNER      252     A     
 SCANNER                               (2) IF LEGAL NON-EMPTY LABEL, CONTAINS IT           SCANNER      253     A     
 SCANNER                                    IN DISPLAY CODE, LEFT ADJ W/ BLNK FILL         SCANNER      254     A     
 SCANNER   NLABEL   EQU    60B         NEXT STATEMENT LABEL. SEE 'CLABEL' DESCRIP          SCANNER      255     A     
 SCANNER   ATYPE    EQU    51B               ARITHMETIC STMT TYPE FOR TYPES 3 AND          SCANNER      256     A     
 SCANNER   LELIST   EQU    34B                                                             SCANNER      257     A     
 SCANNER   LTYPE    EQU    21B                                                             SCANNER      258     A     
 SCANNER   DUKE     EQU    37B               BINARY LINE COUNT                             SCANNER      259     A     
 SCANNER   SCNT     EQU    46B               LINE NUMBER FOR ERPRO                         SCANNER      260     A     
 SCANNER            SPACE  4,8                                                             SCANNER      261     A     
 SCANNER  **        STATEMENT TYPE CODES.                                                  SCANNER      262     A     
 SCANNER                                                                                   SCANNER      263     A     
 SCANNER   ST.V=E   =      12          V=E (ASSIGNMENT)                                    FCC1328X     557     A     
 SCANNER   ST.END   =      13          END (NORMAL)                                        SCANNER      264     A     
 SCANNER   ST.ASG   =      14          ASSIGN                                              SCANNER      265     A     
 SCANNER   ST.LIF   =      17          LOGICAL IF                                          SCANNER      266     A     
 SCANNER   ST.BAD   =      18          BAD STATEMENT                                       SCANNER      267     A     
 SCANNER   ST.INV   =      37          END (INVENTED)                                      SCANNER      268     A     
 SCANNER            TITLE                                                                  SCANNER      269     A     
 SCANNER  **        ERROR MESSAGE NUMBER DEFINITIONS.                                      SCANNER      270     A     
 SCANNER                                                                                   SCANNER      271     A     
 SCANNER   E28      =      28          TABLES OVERLAP, INCREASE FIELD LENGTH               SCANNER      272     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1839    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER   E29      =      29          UNRECOGNIZED STATEMENT                              SCANNER      273     A     
 SCANNER   E30      =      30          ILLEGAL LABEL                                       SCANNER      274     A     
 SCANNER   E31      =      31          STATEMENT TOO LONG                                  SCANNER      275     A     
 SCANNER   E32      =      32          NAME TOO LONG                                       SCANNER      276     A     
 SCANNER   E33      =      33          UNBALANCED PARENTHESES                              SCANNER      277     A     
 SCANNER   E34      =      34          NON-ANSI 7-CHARACTER NAME                           SCANNER      278     A     
 SCANNER   E35      =      35          *END* MISSING, ASSUMED                              SCANNER      279     A     
 SCANNER   E37      =      37          ILLEGAL CHARACTER                                   SCANNER      280     A     
 SCANNER   E38      =      38          NON-ANSI *END* LINE FORMAT                          SCANNER      281     A     
 SCANNER   E80      =      80          LABEL REFERENCE HAS MORE THAN 5 DIGITS              SCANNER      282     A     
 SCANNER   E104     =      104         INCOMPLETE HOLLERITH CONSTANT                       SCANNER      283     A     
 SCANNER   E111     =      111         ILLEGAL SYNTAX IN ASSIGN STATEMENT                  SCANNER      284     A     
 SCANNER   E175     =      175         ILLEGAL STMT TYPE AFTER LOGICAL *IF*                SCANNER      285     A     
 SCANNER   E196     =      196         NON-ANSI LOGICAL OPERATOR                           SCANNER      286     A     
 SCANNER   E197     =      197         NON-ANSI OCTAL, R OR L CONSTANT                     SCANNER      287     A     
 SCANNER   E207     =      207         COMMENT LINE IN MIDDLE OF CONTIN LINES              SCANNER      288     A     
 SCANNER   E208     =      208         NON-ANSI BLANK LINE                                 SCANNER      289     A     
 SCANNER   E209     =      209         LAST CHARACTER SEEN AFTER TROUBLE                   SCANNER      290     A     
 SCANNER   E210     =      210         NON-ANSI $ STATEMENT SEPARATOR                      SCANNER      291     A     
 SCANNER   E325     =      325         SPURIOUS CHAR AFTER END IGNORED                     FCCA435        6     A     
 SCANNER   E221     =      221         NON-ANSI TYPE DECLARATION                           SCANNER      292     A     
 SCANNER   E228     =      228         NON-ANSI COMMENT LINE (COL 1 = $ OR *)              SCANNER      293     A     
 SCANNER   E259     =      259         NON-ANSI QUOTE-DELIMITED HOLLERITH STRING           SCANNER      294     A     
 SCANNER   E289     =      289         *CONSTOR* OVERFLOW                                  SCANNER      295     A     
 SCANNER   E297     =      297         INVALID USE OF CHARACTER STRING                     SCANNER      296     A     
 SCANNER   E299     =      299         THIS STATEMENT IS A NON-ANSI STATEMENT              SCANNER      297     A     
 SCANNER   E313     =      313         ILLEGAL SYNTAX IN KEYWORD                           SCANNER      298     A     
 SCANNER   E319     =      319         C/-LIST DIRECTIVE MAY NOT BREAK CONT STRING         FEAT121L      94     A     
 SCANNER   E323     =      323         DEBUG CARD INSIDE CONTINUATION LINES IN DEBUG MODE  FCC1872        6     A     
 SCANNER   E324     =      324         UNRECOGNISED OPERATOR                               FCC1936        7     A     
 SCANNER   USES     SPACE  4,8                                                             SCANNER      299     A     
 SCANNER                                                                                   SCANNER      300     A     
 SCANNER            USE    NANSI                                                           SCANNER      301     A     
 SCANNER   NANSI    BSS    0                                                               SCANNER      302     A     
 SCANNER            USE    *                                                               SCANNER      303     A     
 SCANNER                                                                                   SCANNER      304     A     
 SCANNER            USE    SRCHA                                                           SCANNER      305     A     
 SCANNER   SRCHA    BSS    0           FIRST LETTER INDEX TABLE                            SCANNER      306     A     
 SCANNER            USE    *                                                               SCANNER      307     A     
 SCANNER   O.VAR    ZERO   0           ORIGIN OF *ZERO* BLOCK                              SCANNER      308     A     
 SCANNER            SPACE  3                                                               SCANNER      309     A     
 SCANNER            EXT    FWAWORK,LWAWORK                                                 SCANNER      310     A     
 SCANNER   ELAST    EQU    LWAWORK                                                         SCANNER      311     A     
 SCANNER            EXT    DFLAG                                                           SCANNER      312     A     
 SCANNER            ENTRY  FEFLAG                                                          SCANNER      313     A     
 SCANNER                                                                                   SCANNER      314     A     
 SCANNER  *         BLANKS FOR BLANK FILL.                                                 SCANNER      315     A     
 SCANNER                                                                                   SCANNER      316     A     
 SCANNER   FILLTEN  LIT    10R          ,9R         ,8R        ,7R       ,6R               SCANNER      317     A     
 SCANNER  ,,5R     ,4R    ,3R   ,2R  ,1R ,0                                                SCANNER      318     A     
 SCANNER   FILL8R   =      FILLTEN+2                                                       SCANNER      319     A     
 SCANNER            SPACE  4,8                                                             SCANNER      320     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1840    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER   ENDL     DATA   10H      END      CHARACTERS FOR INVENTED END LINE              SCANNER      321     A     
 SCANNER            VFD    6/64B,54/7CABSENT"                                              SCANNER      322          I
          -FCC1328X 
 SCANNER            VFD    6/64B,54/9HABSENT"                                              FCC1328X     558     A     
 SCANNER   CONSTNTS SPACE  3,10                                                            SCANNER      323     A     
 SCANNER  *  SHIFT TEST MASKS FOR DISPLAY-CODED CHARACTER TESTS.                           SCANNER      324     A     
 SCANNER                                                                                   SCANNER      325     A     
 SCANNER   COL1MASK BSS    0           ? SHIFT TEST MASK FOR <C>, <*> OR <$> IN            SCANNER      326     A     
 SCANNER            POS    60-1-1RC    ? COLUMN 1.  MASK IS RIGHT SHIFTED 1 BIT            SCANNER      327     A     
 SCANNER            VFD    1/1         ? AND 1 WILL BE ADDED TO THE DISPLAY CODED          SCANNER      328     A     
 SCANNER            POS    60-1-1R*    ? CHARACTER VALUE DURING THE ACTUAL TEST.           SCANNER      329     A     
 SCANNER            VFD    1/1         ? THIS PREVENTS A <;>=63D FROM ALIASING AS          SCANNER      330     A     
 SCANNER            POS    60-1-1R$    ? <C>=03D DURING THE TEST, WHICH WOULD              SCANNER      331     A     
 SCANNER            VFD    1/1         ? OTHERWISE HAPPEN DUE TO THE MODULO 60             SCANNER      332     A     
 SCANNER            POS    0           .... (NOT 64) NATURE OF A SHIFT MASK TEST.          SCANNER      333     A     
 SCANNER   MASKS    SPACE  1,6                                                             SCANNER      334     A     
 SCANNER   ZRBLMASK BSS    0           ? SHIFT TEST MASK FOR <0> OR < >                    SCANNER      335     A     
 SCANNER            POS    60-1R0      ?                                                   SCANNER      336     A     
 SCANNER            VFD    1/1         ?                                                   SCANNER      337     A     
 SCANNER            POS    60-1R       ?                                                   SCANNER      338     A     
 SCANNER            VFD    1/1         ?                                                   SCANNER      339     A     
 SCANNER            POS    0           ....                                                SCANNER      340     A     
 SCANNER   CONSTNTS SPACE 1,8                                                              SCANNER      341     A     
 SCANNER   HLRMASK  BSS    0           ?  SHIFT TEST MASK FOR <H> <L> <R>                  SCANNER      342     A     
 SCANNER            POS    60-1RH      ?                                                   SCANNER      343     A     
 SCANNER            VFD    1/1         ?                                                   SCANNER      344     A     
 SCANNER            POS    60-1RL      ?                                                   SCANNER      345     A     
 SCANNER            VFD    1/1         ?                                                   SCANNER      346     A     
 SCANNER            POS    60-1RR      ?                                                   SCANNER      347     A     
 SCANNER            VFD    1/1         ?                                                   SCANNER      348     A     
 SCANNER            POS    0           ....                                                SCANNER      349     A     
 SCANNER   POINT    SPACE  4,8                                                             SCANNER      350     A     
 SCANNER  *  POINT TABLE 1 - CONTROLS 'PTBL2' SEARCH START/STOP ADDRESSES, BASED           SCANNER      351     A     
 SCANNER  *  ON NUMBER OF CHARACTERS IN OPERATOR STRING.  TABLE ENTRY FORMAT IS--          SCANNER      352     A     
 SCANNER  *                                                                                SCANNER      353     A     
 SCANNER  *         VFD    30/STOP ADDRESS,30/START ADDRESS                                SCANNER      354     A     
 SCANNER  *                                                                                SCANNER      355     A     
 SCANNER   PTBL1    VFD    30/PTBL2.5A,30/PTBL2.2A   *SPECIAL FOR 1-CHAR OPERATORS         SCANNER      356     A     
 SCANNER            VFD    30/PTBL2.3,30/PTBL2.2                                           SCANNER      357     A     
 SCANNER            VFD    30/PTBL2.4,30/PTBL2.3                                           SCANNER      358     A     
 SCANNER            VFD    30/PTBL2.5,30/PTBL2.4                                           SCANNER      359     A     
 SCANNER            VFD    30/PTBL2.5A,30/PTBL2.5                                          SCANNER      360     A     
 SCANNER            VFD    30/PTBLEND,30/PTBL2.5A                                          SCANNER      361     A     
 SCANNER                                                                                   SCANNER      362     A     
 SCANNER  *  POINT TABLE 2 - CONTAINS PICTURES OF ALL LEGAL OPERATORS, AND CORRES-         SCANNER      363     A     
 SCANNER  *  PONDING E-LIST ENTRY ELEMENT POINTER.  TABLE ENTRY FORMAT IS--                SCANNER      364     A     
 SCANNER  *                                                                                SCANNER      365     A     
 SCANNER  *         VFD    36/H*PICTURE*,6/0,18/ADDR OF E-LIST ENTRY ELEMENT               SCANNER      366     A     
 SCANNER  *                                                                                SCANNER      367     A     
 SCANNER   PTBL2.2  VFD    36/2HEQ,6/0,18/EQ                                               SCANNER      368     A     
 SCANNER            VFD    36/2HGE,6/0,18/GE                                               SCANNER      369     A     
 SCANNER            VFD    36/2HGT,6/0,18/GT                                               SCANNER      370     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1841    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            VFD    36/2HLE,6/0,18/LE                                               SCANNER      371     A     
 SCANNER            VFD    36/2HLT,6/0,18/LT                                               SCANNER      372     A     
 SCANNER            VFD    36/2HNE,6/0,18/NE                                               SCANNER      373     A     
 SCANNER   PTBL2.2A VFD    36/2HOR,6/0,18/OR                                               SCANNER      374     A     
 SCANNER   PTBL2.3  VFD    36/3HAND,6/0,18/AND                                             SCANNER      375     A     
 SCANNER            VFD    36/3HNOT,6/0,18/NOT                                             SCANNER      376     A     
 SCANNER   PTBL2.4  VFD    36/4HTRUE,6/0,18/TRUE                                           SCANNER      377     A     
 SCANNER   PTBL2.5  VFD    36/5HFALSE,6/0,18/FALSE                                         SCANNER      378     A     
 SCANNER   PTBL2.5A VFD    36/5HINDEF,6/0,18/INDEF                                         SCANNER      379     A     
 SCANNER            VFD    36/5HRANGE,6/0,18/RANGE                                         SCANNER      380     A     
 SCANNER            VFD    36/5HVALID,6/0,18/VALID                                         SCANNER      381     A     
 SCANNER   PTBLEND  BSS    0                                                               SCANNER      382     A     
 SCANNER   ELIST    SPACE  4,8                                                             SCANNER      383     A     
 SCANNER  *         *ELIST* ENTRY ELEMENTS.                                                SCANNER      384     A     
 SCANNER  *                                                                                SCANNER      385     A     
 SCANNER                                                                                   SCANNER      386     A     
 SCANNER   RP       VFD    12/2002B,48/0     )                                             SCANNER      387     A     
 SCANNER   COMMA    VFD    12/2003B,48/0     ,                                             SCANNER      388     A     
 SCANNER   EOS      VFD    12/2004B,48/0     END-OF-STMT                                   SCANNER      389     A     
 SCANNER   EQU      VFD    12/2005B,48/0     =                                             SCANNER      390     A     
 SCANNER   LP       VFD    12/2006B,48/0     (                                             SCANNER      391     A     
 SCANNER   OR       VFD    12/2007B,48/2     .OR.                                          SCANNER      392     A     
 SCANNER   AND      VFD    12/2010B,48/3     .AND.                                         SCANNER      393     A     
 SCANNER   NOT      VFD    12/2011B,48/4     .NOT.                                         SCANNER      394     A     
 SCANNER   LE       VFD    12/2012B,48/5     .LE.                                          SCANNER      395     A     
 SCANNER   LT       VFD    12/2013B,48/5     .LT.                                          SCANNER      396     A     
 SCANNER   GE       VFD    12/2014B,48/5     .GE.                                          SCANNER      397     A     
 SCANNER   GT       VFD    12/2015B,48/5     .GT.                                          SCANNER      398     A     
 SCANNER   NE       VFD    12/2016B,48/5     .NE.                                          SCANNER      399     A     
 SCANNER   EQ       VFD    12/2017B,48/5     .EQ.                                          SCANNER      400     A     
 SCANNER   MINUS    VFD    12/2020B,48/6     -                                             SCANNER      401     A     
 SCANNER   PLUS     VFD    12/2021B,48/6     +                                             SCANNER      402     A     
 SCANNER   STAR     VFD    12/2022B,48/7     *                                             SCANNER      403     A     
 SCANNER   SLASH    VFD    12/2023B,48/8     /                                             SCANNER      404     A     
 SCANNER   DSTAR    VFD    12/2024B,48/10    **                                            SCANNER      405     A     
 SCANNER   RANGE    VFD    12/2020B,48/5                                                   SCANNER      406     A     
 SCANNER   INDEF    VFD    12/2021B,48/5                                                   SCANNER      407     A     
 SCANNER   VALID    VFD    12/2022B,48/5                                                   SCANNER      408     A     
 SCANNER   TRUE     VFD    12/2000B,30/0,18/-1                                             SCANNER      409     A     
 SCANNER   FALSE    VFD    12/2000B,48/0                                                   SCANNER      410     A     
 SCANNER            TITLE                                                                  SCANNER      411     A     
 SCANNER   BADLABL  BSSZ   1           =1 IF BAD LABEL IN NEW STMT, ELSE =0                SCANNER      412     A     
 SCANNER   BLNKSTMT ZERO   1           .NZ. WHEN BLANK SOURCE STATEMENT (INITIAL           SCANNER      413     A     
 SCANNER  *                              LINE AND CONTINUATION LINES) ENCOUNTERED          SCANNER      414     A     
 SCANNER  *                            .ZR. WHEN NON-NULL LINE FOUND                       SCANNER      415     A     
 SCANNER   CAD      ZERO   1           CONSTANT PACK-IN-PROGRESS FLAG.  VALUES --          SCANNER      416     A     
 SCANNER  *                              .ZR. = NO CONSTANT PACK IN PROGRESS.              SCANNER      417     A     
 SCANNER  *                              .PL. = PACKING NUMERIC CONSTANT.                  SCANNER      418     A     
 SCANNER  *                              .MI. = PACKING HOLLERITH CONSTANT.                SCANNER      419     A     
 SCANNER   CARDS    BSSZ   1           NR OF CARDS THAT HAVE BEEN READ IN THIS             FCC1328X     559     A     
 SCANNER  *                              PROGRAM UNIT (SET BY /COMFRNC/).  THIS            FCC1328X     560     A     
 SCANNER  *                              CARD COUNT IS NOT USED BY THE OPTIMIZING          FCC1328X     561     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1842    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *                              COMPILER, AND IS HERE ONLY FOR /COMFRNC/          FCC1328X     562     A     
 SCANNER  *                              COMPATIBILITY (SEE *DUKE/DUKE1*).                 FCC1328X     563     A     
 SCANNER   CCSTO    BSSZ   1           POINTER TO CURRENT 'CONSTOR' ENTRY                  SCANNER      420     A     
 SCANNER   CD       ENTRY. 0                                                               SCANNER      421     A     
 SCANNER   COL      ENTRY. 0                                                               SCANNER      422     A     
 SCANNER   COLS     BSSZ   1           COLUMN POINTER, BIASED -7, SO 0 = COL 7             SCANNER      423     A     
 SCANNER   COMMON   BSSZ   1           HOLDS E-LIST ENTRY                                  SCANNER      424     A     
 SCANNER   CONTCNT  BSSZ   1           CONTINUATION CARD COUNT                             SCANNER      425     A     
 SCANNER   CSSTMT   BSSZ   1           1S59 IF C/-LIST,ALL                                 FEAT121L      95     A     
 SCANNER  *                             +1  IF C/-LIST,NONE                                FEAT121L      96     A     
 SCANNER  *                             +0  IF NOT A C/-LIST LINE                          FEAT121L      97     A     
 SCANNER   CTYPE    BSSZ   1           TYPE OF CONSTANT                                    SCANNER      426     A     
 SCANNER   DUKE1    ENTRY. 0           SOURCE LINE COUNT (BINARY)                          SCANNER      427     A     
 SCANNER   EXPEXP   ZERO   1           .NZ. WHEN EXPONENT EXPECTED, ELSE .ZR.              SCANNER      428     A     
 SCANNER   FCFLG    BSSZ   1           .NZ. IF FATAL TO COMPILATION ERROR                  SCANNER      429          I
          -FEAT121L 
 SCANNER   FEFLG    ZERO   1           .NZ. IF FATAL TO EXECUTION ERROR IN STMT            SCANNER      430          I
          -FEAT121L 
 SCANNER   FTNCNT   BSSZ   1           SOURCE CARD LINE NUMBER IN DISPLAY CODE             SCANNER      431     A     
 SCANNER   HANG.    ZERO   1           .NZ. UNTIL CHARACTER FOUND AFTER PERIOD             SCANNER      432     A     
 SCANNER   IDENTOK  ENTRY. 0           =0 WHEN *IDENT* OK (NO FORTRAN YET),                SCANNER      433     A     
 SCANNER  *                              = .NZ. WHEN ILLEGAL.                              SCANNER      434     A     
 SCANNER   IEF      CON    1S59        INIT ENTRY FLAG = 1S59 WHEN DEFERRING               SCANNER      435     A     
 SCANNER  *                              SOURCE LISTING BEFORE HEADER LINE FOUND           SCANNER      436     A     
 SCANNER  *                              (OR BEFORE 20 SOURCE LINES HAVE BEEN              SCANNER      437          I
          -FEAT121L 
 SCANNER  *                              SAVED, WHICHEVER OCCURS FIRST). ELSE = 0.         SCANNER      438          I
          -FEAT121L 
 SCANNER  *                              (OR 1. BEFORE 20 SOURCE LINES HAVE BEEN           FEAT121L      98     A     
 SCANNER  *                              FOUND, OR 2. BEFORE A C/-LIST,NONE STMT           FEAT121L      99     A     
 SCANNER  *                              IS FOUND, WHICHEVER OCCURS FIRST).                FEAT121L     100     A     
 SCANNER  *                              ELSE = 0                                          FEAT121L     101     A     
 SCANNER   IMPFLG   ZERO   1           .NZ. WHEN PACKING *IMPLICIT* TYPE KEYWORD           SCANNER      439     A     
 SCANNER                                                                                   SCANNER      440     A     
 SCANNER   KEYL     BSSZ   6           KEYWORD LEN, 12/2000B+NR CHARS, 48/NR WORDS         SCANNER      441     A     
 SCANNER   KEYW     =      KEYL+1      KEYWORD BUFFER                                      SCANNER      442     A     
 SCANNER                                                                                   SCANNER      443     A     
 SCANNER   LCON     BSSZ   1           WORD FOR PACKING LABEL IN *ADJ*                     SCANNER      444     A     
 SCANNER   LOCC     BSSZ   1           STARTING ADDR OF CONSTANT IN 'CONSTOR'              SCANNER      445     A     
 SCANNER   L.CARD   BSSZ   2           LENGTH OF SOURCE LINE (WORDS)                       SCANNER      446          I
          -FCC1328X 
 SCANNER   L.PLINE  =      L.CARD+1    LENGTH OF LISTING LINE (WORDS)                      SCANNER      447          I
          -FCC1328X 
 SCANNER  *                            (L.PLINE) = 0 IF LINE ALREADY LISTED.               SCANNER      448          I
          -FCC1328X 
 SCANNER   L.CARD   BSSZ   1           NR OF WORDS IN SOURCE LINE IMAGE AT                 FCC1328X     564     A     
 SCANNER  *                              (CP.CARD) ET EQ  (INCLUDES FULL ZERO              FCC1328X     565     A     
 SCANNER  *                              WORD EOL MARK)                                    FCC1328X     566     A     
 SCANNER   L.PLINE  BSSZ   1           NR OF WORDS IN PRINT LINE IMAGE AT                  FCC1328X     567     A     
 SCANNER  *                              (CP.FLIN) ET SEQ.                                 FCC1328X     568     A     
 SCANNER  *                              (L.PLINE) = 0 IF LINE ALREADY LISTED              FCC1328X     569     A     
 SCANNER   N        BSSZ   1           LENGTH OF CONSTANT STRING                           SCANNER      449     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1843    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER   NABC     BSSZ   1           NUMBER OF NON-ANSI BLANK LINES                      SCANNER      450     A     
 SCANNER   NACOM    BSSZ   1           NUMBER OF NON-ANSI COMMENT LINES                    SCANNER      451     A     
 SCANNER   NAFLG    ZERO   1           1S59 IF NON-ANSI TYPE DECLARATION OCCURRED          SCANNER      452     A     
 SCANNER   NOEND    BSSZ   1           =24D IF END CARD MISSING, ELSE =0                   SCANNER      453     A     
 SCANNER   NOLIST   ENTRY. 1S59        =1S59 IF C/-LIST, =0 IF C/-NOLIST ACTIVE            SCANNER      454     A     
 SCANNER   NULLSTMT ZERO   1           .ZR. UNTIL 1ST CHARACTER FOUND IN STATEMENT         SCANNER      455     A     
 SCANNER   NXCOMENT BSSZ   1           .EQ. 1 FOR COMMENT CARD; ELSE .EQ. 0                SCANNER      456     A     
 SCANNER   N.EQUAL  ZERO   1,EPT       NUMBER OF EQUAL SIGNS IN STATEMENT                  SCANNER      457     A     
 SCANNER   PAD      ZERO   1           .NZ. WHEN PACKING NAME (*PACK7* ACTIVE)             SCANNER      458     A     
 SCANNER   PARENS   ZERO   1           PARENTHESIS COUNT                                   SCANNER      459     A     
 SCANNER   REGS     BSSZ   7                                                               FEAT121L     102     A     
 SCANNER   REG=B1   =      REGS                                                            FEAT121L     103     A     
 SCANNER   REG=B2   =      REGS+1                                                          FEAT121L     104     A     
 SCANNER   REG=B3   =      REGS+2                                                          FEAT121L     105     A     
 SCANNER   REG=B6   =      REGS+3                                                          FEAT121L     106     A     
 SCANNER   REG=X3   =      REGS+4                                                          FEAT121L     107     A     
 SCANNER   REG=X5   =      REGS+5                                                          FEAT121L     108     A     
 SCANNER   REG=X6   =      REGS+6                                                          FEAT121L     109     A     
 SCANNER   RELFLAG  ZERO   1           .NZ. IF RELATIONAL OR BOOLEAN OPR EXPECTED          SCANNER      460     A     
 SCANNER   SBUFLG   BSSZ   1           *SBUFF* STATUS FLAG.  VALUES --                     SCANNER      461     A     
 SCANNER  *                              +0 = NEXT STMT NOT ALREADY IN *SBUFF*             SCANNER      462     A     
 SCANNER  *                              -1 = LAST STMT TERMINATED BY $                    SCANNER      463     A     
 SCANNER  *                              +1 = LAST STMT TERMINATED BY BY NEXT STMT         SCANNER      464     A     
 SCANNER   T1T      BSSZ      1                                                            SCANNER      465          I
          -FEAT121L 
 SCANNER   T2       BSSZ      1                                                            SCANNER      466          I
          -FEAT121L 
 SCANNER   T4       BSSZ      1                                                            SCANNER      467          I
          -FEAT121L 
 SCANNER   T5       BSSZ      1                                                            SCANNER      468          I
          -FEAT121L 
 SCANNER   T6       BSSZ      1                                                            SCANNER      469          I
          -FEAT121L 
 SCANNER   T7       BSSZ      1                                                            SCANNER      470          I
          -FEAT121L 
 SCANNER   T8       BSSZ      1                                                            SCANNER      471          I
          -FEAT121L 
 SCANNER            SPACE  4,8                                                             SCANNER      472     A     
 SCANNER            USE    ZERO                                                            SCANNER      473     A     
 SCANNER   L.VAR    EQU    *-O.VAR     LENGTH OF VARIABLE BLOCK TO BE ZEROED               SCANNER      474     A     
 SCANNER            USE    *                                                               SCANNER      475     A     
 SCANNER   CONSTOR  SPACE  4,8                                                             SCANNER      476     A     
 SCANNER            ENTRY  CONSTOR                                                         SCANNER      477     A     
 SCANNER   CONSTOR  BSSZ   CONSTORS                                                        SCANNER      478     A     
 SCANNER   DLBUF    SPACE  4,8                                                             SCANNER      479     A     
 SCANNER  **        DLBUF - DEFERRED LISTING BUFFER.                                       SCANNER      480     A     
 SCANNER  *                                                                                SCANNER      481     A     
 SCANNER  *         SOURCE LINES, PREFIXED WITH DPC LINE NUMBERS, ARE SAVED HERE           SCANNER      482     A     
 SCANNER  *         FOR DEFERRED LISTING.  BUFFER SIZE IS ADEQUATE FOR A COMPLETE          SCANNER      483     A     
 SCANNER  *         SOURCE STATEMENT OF 20 LINES, WITH 108 CHARACTERS PER LINE.            SCANNER      484     A     
 SCANNER                                                                                   SCANNER      485     A     
 SCANNER   DLBUFL   =      20*13       DEFERRED LISTING BUFFER LENGTH                      SCANNER      486     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1844    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER   DLBUF    BSSZ   DLBUFL      DEFERRED LISTING BUFFER                             SCANNER      487     A     
 SCANNER   SBUFF    SPACE  4,8                                                             SCANNER      488     A     
 SCANNER            BSSZ   1           NEED THIS CELL TO INIT A6 IN 'READCARD'             SCANNER      489     A     
 SCANNER   SBUFF    BSS    73-7+1      STRING BUFFER FOR CARD COLS 7_72 + E-O-L            SCANNER      490     A     
 SCANNER            ENTRY  SBUFF                                                           SCANNER      491     A     
 SCANNER  *CALL DBGCOM                                                                     SCANNER      492     A     
 SCANNER   SCANNER  TITLE  MAIN LOOP                                                       SCANNER      493     A     
 SCANNER  ***                                                                              SCANNER      494     A     
 SCANNER  *         SCANNER - TYPES AND TRANSFORMS STATEMENTS INTO E LIST                  SCANNER      495     A     
 SCANNER  *         ON EXIT                                                                SCANNER      496     A     
 SCANNER  *         TYPE AND B7 = STATEMENT TYPE                                           SCANNER      497     A     
 SCANNER  *         CLABEL = LABEL IN DISPLAY CODE, LEFT JUSTIFIED                         SCANNER      498     A     
 SCANNER  *         SELIST - FWA OF THE E LIST                                             SCANNER      499     A     
 SCANNER  *         ELAST - LWA OF E LIST    (  ELAST < SELIST )                           SCANNER      500     A     
 SCANNER  *         LTYPE - TYPE OF STMT AFTER A LOGICAL IF                                SCANNER      501     A     
 SCANNER  *         LELIST - LOCATION OF STMT AFTER LOGICAL IF                             SCANNER      502     A     
 SCANNER  *         DUKE - LINE COUNT IN BINARY                                            SCANNER      503     A     
 SCANNER                                                                                   SCANNER      504     A     
 SCANNER                                                                                   SCANNER      505     A     
 SCANNER   SCANNER  ENTRY. **          ** ENTRY/EXIT **                                    SCANNER      506     A     
 SCANNER                                                                                   SCANNER      507     A     
 SCANNER   SCANNER1 SX6    CONSTOR     _ FWA *CONSTOR*                                     SCANNER      508     A     
 SCANNER            SA1    SYMEND      _ LAST SYMBOL TABLE ENTRY                           SCANNER      509     A     
 SCANNER            SX7    X1-L.STBZ                                                       SCANNER      510     A     
 SCANNER            SA6    CCSTO       INITIALIZE 'CONSTOR' POINTER                        SCANNER      511     A     
 SCANNER            SB1    1                                                               SCANNER      512     A     
 SCANNER            SA7    SELIST      _ FWA E-LIST WORKING STORAGE                        SCANNER      513     A     
 SCANNER            SX6    X7+B1                                                           SCANNER      514     A     
 SCANNER            MX7    60                                                              SCANNER      515     A     
 SCANNER            SA6    ELAST                                                           SCANNER      516     A     
 SCANNER            SA7    TYPE        INITIALIZE *TYPE* TO UNTYPED (-0)                   SCANNER      517     A     
 SCANNER            SETZERO   O.VAR,L.VAR                                                  SCANNER      518     A     
 SCANNER            BX6    X6-X6                                                           SCANNER      519     A     
 SCANNER            MX7    0                                                               SCANNER      520     A     
 SCANNER            SA6    LTYPE                                                           SCANNER      521     A     
 SCANNER            SA7    LELIST                                                          SCANNER      522     A     
 SCANNER                                                                                   SCANNER      523     A     
 SCANNER   SCAN2    BSS    0           IN NON-DEBUG MODE, *EQ SCAN13* PLUGGED HERE         SCANNER      524     A     
 SCANNER            SA1    =XDFLAG                                                         SCANNER      525     A     
 SCANNER            SB2    SCAN2                                                           SCANNER      526     A     
 SCANNER            BSS    0           TERMINATE PLUG SITE                                 SCANNER      527     A     
 SCANNER                                                                                   SCANNER      528     A     
 SCANNER            ZR     X1,SCAN3    IF DEBUG OPTION NOT SELECTED                        SCANNER      529     A     
 SCANNER            SA1    D.COL                                                           SCANNER      530     A     
 SCANNER            MX6    0                                                               SCANNER      531     A     
 SCANNER            SA6    A1                                                              SCANNER      532     A     
 SCANNER            NZ     X1,SCAN4    IF DEBUG EXT PACKET JUST ENDED                      SCANNER      533     A     
 SCANNER            SB2    SCAN3                                                           SCANNER      534     A     
 SCANNER                                                                                   SCANNER      535     A     
 SCANNER   SCAN3    BSS    0           IF DEBUG MODE, *EQ SCAN13* PLUGGED HERE             SCANNER      536     A     
 SCANNER            PLUG   AT=B2,TO=SCAN10,VOID=NO                                         SCANNER      537          I
          -F2950F4
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1845    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            PLUG   AT=B2,TO=SCAN10                                                 F2950F4      110     A     
 SCANNER            BSS    0           TERMINATE PLUG SITE                                 SCANNER      538     A     
 SCANNER                                                                                   SCANNER      539     A     
 SCANNER   SCAN4    SX6    B0                                                              SCANNER      540     A     
 SCANNER            MX7    1                                                               SCANNER      541     A     
 SCANNER            SA6    DUKE1                                                           SCANNER      542     A     
 SCANNER            SA7    IEF         SET *DEFER LISTING* STATUS                          SCANNER      543     A     
 SCANNER            SA6    NLABEL                                                          SCANNER      544     A     
 SCANNER            SA1    =A.0.                                                           SCANNER      545     A     
 SCANNER            SA6    CARDS                                                           FCC1328X     570     A     
 SCANNER            BX6    X1                                                              SCANNER      546     A     
 SCANNER            SA6    FTNCNT                                                          SCANNER      547     A     
 SCANNER            SA6    SCNT                                                            SCANNER      548     A     
 SCANNER                                                                                   SCANNER      549     A     
 SCANNER  *  CHECK FOR AVAILABILITY OF FIRST SOURCE LINE IMAGE.                            SCANNER      550     A     
 SCANNER                                                                                   SCANNER      551     A     
 SCANNER            SA1    CP.CARD                                                         SCANNER      552     A     
 SCANNER            NZ     X1,SCAN5    IF NEW SOURCE LINE IN BUFFER                        SCANNER      553     A     
 SCANNER            PL     X1,SCAN8    IF NO LINE                                          SCANNER      554     A     
 SCANNER   SCAN5    BSS    0                                                               SCANNER      555     A     
 SCANNER                                                                                   SCANNER      556     A     
 SCANNER   #RM      IFEQ   CP#RM,0                                                         SCANNER      557     A     
 SCANNER                                                                                   SCANNER      558     A     
 SCANNER            SA1    =XCP.CARD                                                       SCANNER      559     A     
 SCANNER            MX6    -12                                                             SCANNER      560     A     
 SCANNER            SB6    A1          (B6) = LINE FWA                                     SCANNER      561     A     
 SCANNER   SCAN6    BX7    -X6*X1                                                          SCANNER      562     A     
 SCANNER            SA1    A1+B1                                                           SCANNER      563     A     
 SCANNER            NZ     X7,SCAN6    IF NO 12-BIT ZERO BYTE EOL TERMINATOR               SCANNER      564     A     
 SCANNER            SB6    A1-B6       (B6) = LINE LENGTH (WORDS)                          SCANNER      565     A     
 SCANNER                                                                                   SCANNER      566     A     
 SCANNER   #RM      ELSE                                                                   SCANNER      567     A     
 SCANNER                                                                                   SCANNER      568     A     
 SCANNER  *         TERMINATE SOURCE INPUT LINE WITH AT LEAST 12-BIT ZERO BYTE.            SCANNER      569     A     
 SCANNER                                                                                   SCANNER      570     A     
 SCANNER            SA2    =XF.IN      (X2) = ADDRESS OF INPUT FILE FIT                    SCANNER      571     A     
 SCANNER            FETCH  X2,RL,X1    RETURNS (X1) = RECORD LENGTH (CHARACTERS)           SCANNER      572     A     
 SCANNER            IX2    X1+X1                                                           SCANNER      573     A     
 SCANNER            CW     X3,X1                                                           SCANNER      574     A     
 SCANNER            LX1    X2,B1                                                           SCANNER      575     A     
 SCANNER            SB6    X3          (B6) = RECORD LENGTH (WORDS)                        SCANNER      576     A     
 SCANNER            IX2    X2+X1       RECORD LENGTH (BITS)                                SCANNER      577     A     
 SCANNER            BX4    X3                                                              SCANNER      578     A     
 SCANNER            LX3    6                                                               SCANNER      579     A     
 SCANNER            SA1    =XCP.CARD-1+B6    (X1) = LAST WORD OF LINE                      SCANNER      580          I
          -FCC2030
 SCANNER            NZ     B6,SCAN6A   IF RECORD LENGTH NOT ZERO                           FCC2030        7     A     
 SCANNER            SB6    B1                                                              FCC2030        8     A     
 SCANNER   SCAN6A   SA1    =XCP.CARD-1+B6 (X1) = LAST WORD OF LINE                         FCC2030        9     A     
 SCANNER            LX4    2                                                               SCANNER      581     A     
 SCANNER            IX3    X3-X4       60 * WORD COUNT = LINE LENGTH (BITS)                SCANNER      582     A     
 SCANNER            MX4    1                                                               SCANNER      583     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1846    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            IX3    X3-X2       UNUSED BIT COUNT                                    SCANNER      584     A     
 SCANNER            SB2    X3-59D                                                          SCANNER      585     A     
 SCANNER            AX4    -B2                                                             SCANNER      586     A     
 SCANNER            BX6    X4*X1       DISCARD UNUSED BITS                                 SCANNER      587     A     
 SCANNER            AX4    6                                                               SCANNER      588     A     
 SCANNER            SA6    A1                                                              SCANNER      589     A     
 SCANNER            NZ     X4,SCAN7    IF LINE TERMINATOR AT LEAST 12 BITS LONG            SCANNER      590     A     
 SCANNER            MX7    0                                                               SCANNER      591     A     
 SCANNER            SB6    B6+B1       INCREMENT RECORD LENGTH                             SCANNER      592     A     
 SCANNER            SA7    A6+B1       TERMINATE LINE WITH 60 ZERO BITS                    SCANNER      593     A     
 SCANNER   SCAN7    BSS    0                                                               SCANNER      594     A     
 SCANNER                                                                                   SCANNER      595     A     
 SCANNER   #RM      ENDIF                                                                  SCANNER      596     A     
 SCANNER                                                                                   SCANNER      597     A     
 SCANNER            SX6    B6                                                              SCANNER      598          I
          -FCC1328X 
 SCANNER  *         SIMULATE THE WAY /COMFRNC/ HANDLES END-OF-LINE BY GUARANTEEING         FCC1328X     571     A     
 SCANNER  *           THAT THE EOL MARK IS ON A WORD BOUNDARY BY APPROPRIATELY             FCC1328X     572     A     
 SCANNER  *           BLANK FILLING THE LAST WORD OF THE LINE IMAGE AND STORING            FCC1328X     573     A     
 SCANNER  *           A FULL WORD EOL MARK AFTER IT.                                       FCC1328X     574     A     
 SCANNER                                                                                   FCC1328X     575     A     
 SCANNER            SA1    =XCP.CARD+B6-1 (A1,X1) = A+C OF LAST WORD OF LINE IMAGE         FCC1328X     576     A     
 SCANNER            NZ     X1,SCAN7A   IF NOT FULL WORD EOL MARK                           FCC1328X     577     A     
 SCANNER            SA1    A1-B1                                                           FCC1328X     578     A     
 SCANNER            MX0    -6                                                              FCC1328X     579     A     
 SCANNER            BX2    -X0*X1                                                          FCC1328X     580     A     
 SCANNER            NZ     X2,SCAN7B   IF NOT 11 CHAR (66 BIT) EOL MARK, NO BLANK          FCC1328X     581     A     
 SCANNER  *                              FILL NEEDED...                                    FCC1328X     582     A     
 SCANNER            SB6    B6-B1                                                           FCC1328X     583     A     
 SCANNER                                                                                   FCC1328X     584     A     
 SCANNER   SCAN7A   SB6    B6+B1                                                           FCC1328X     585     A     
 SCANNER            RJ     =XSFN       SPACE FILL NAME                                     FCC1328X     586     A     
 SCANNER            BX7    X7-X7                                                           FCC1328X     587     A     
 SCANNER            SA6    A1                                                              FCC1328X     588     A     
 SCANNER            SA7    A6+B1       MARK FULL WORD EOL                                  FCC1328X     589     A     
 SCANNER                                                                                   FCC1328X     590     A     
 SCANNER   SCAN7B   SX6    B6                                                              FCC1328X     591     A     
 SCANNER            SX7    B6+2                                                            SCANNER      599     A     
 SCANNER            SA6    L.CARD      SOURCE LINE LENGTH                                  SCANNER      600     A     
 SCANNER            SA7    L.PLINE     LISTING LINE LENGTH                                 SCANNER      601     A     
 SCANNER            EQ     SCAN9                                                           SCANNER      602     A     
 SCANNER                                                                                   SCANNER      603     A     
 SCANNER   SCAN8    RJ     GNL         GET NEXT LINE                                       SCANNER      604          I
          -FCC1328X 
 SCANNER   SCAN8    RJ     RNC         READ NEXT CARD                                      FCC1328X     592     A     
 SCANNER            SX6    X7+2                                                            FCC1328X     593     A     
 SCANNER            SA6    L.PLINE                                                         FCC1328X     594     A     
 SCANNER            ZR     X1,SCAN9    IF NEW LINE FOUND                                   SCANNER      605     A     
 SCANNER            RJ     DSL         DUMP SAVED LINES                                    SCANNER      606     A     
 SCANNER            SX6    ST.INV      (X6) = *INVENTED END* STATEMENT TYPE CODE           SCANNER      607     A     
 SCANNER            MX7    0                                                               SCANNER      608     A     
 SCANNER            SB7    X6          (B7) = STATEMENT TYPE CODE RETURN                   SCANNER      609     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1847    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            SA6    TYPE                                                            SCANNER      610     A     
 SCANNER            SA7    C$STMT      MARK NEXT LINE *NOT DEBUG*                          SCANNER      611     A     
 SCANNER            EQ     SCANNER     EXIT ...                                            SCANNER      612     A     
 SCANNER                                                                                   SCANNER      613     A     
 SCANNER  *         CHECK FOR BLANK OR DEBUG LINES.                                        SCANNER      614          I
          -FEAT121L 
 SCANNER  *         CHECK FOR BLANK, DEBUG OR C/-LIST,NONE LINES.                          FEAT121L     110     A     
 SCANNER                                                                                   SCANNER      615     A     
 SCANNER   SCAN9    RJ     CBL         CLASSIFY AND BURST LINE                             SCANNER      616     A     
 SCANNER            NZ     X5,AFC3     IF COMMENT LINE                                     SCANNER      617     A     
 SCANNER            MI     X1,AFC1     IF COLUMNS 7-72 BLANK                               SCANNER      618     A     
 SCANNER            ZR     X3,SCAN10   IF NOT (A DEBUG LINE AND DEBUG MODE ON)             SCANNER      619          I
          -FEAT121L 
 SCANNER            NZ     X2,AFC2     IF A DEBUG CONTINUATION CARD -- ILLEGAL             SCANNER      620          I
          -FEAT121L 
 SCANNER            EQ     SCAN13                                                          SCANNER      621          I
          -FEAT121L 
 SCANNER            SA1    CSSTMT                                                          FEAT121L     111     A     
 SCANNER            BX6    X6-X6                                                           FEAT121L     112     A     
 SCANNER            MX0    1                                                               FEAT121L     113     A     
 SCANNER            SA6    BLNKSTMT    CLEAR *BLANK STATEMENT* FLAG                        FEAT121L     114     A     
 SCANNER            MI     X3,SCAN9B   IF A C$-DEBUG STATEMENT.AND.DEBUG MODE ON           FEAT121L     115     A     
 SCANNER            ZR     X1,SCAN10   IF NOT A C/-LIST DIRECTIVE                          FEAT121L     116     A     
 SCANNER            SA2    DUKE1                                                           FEAT121L     117     A     
 SCANNER            BX6    X1*X0       (X6) = 1S59 IF *LIST,ALL* OCCURRED                  FEAT121L     118     A     
 SCANNER  *                                 =   0  IF *LIST,NONE* OCCURRED                 FEAT121L     119     A     
 SCANNER            SB2    X2                                                              FEAT121L     120     A     
 SCANNER            NE     B2,B1,SCAN9A      IF C/-LIST DIRECTIVE WAS NOT LINE 1           FEAT121L     121     A     
 SCANNER            SA6    =XNOLIST    PRESET SO THAT IF THIS WAS A C/-LIST,NONE           FEAT121L     122     A     
 SCANNER  *                              DIRECTIVE OCCURRING AS LINE 1, IT WILL            FEAT121L     123     A     
 SCANNER  *                              NOT BE LISTED                                     FEAT121L     124     A     
 SCANNER            SA6    IEF         SET SO THAT IF THIS WAS A C/-LIST,NONE              FEAT121L     125     A     
 SCANNER  *                              DIRECTIVE OCCURRING AS LINE 1, SOURCE             FEAT121L     126     A     
 SCANNER  *                              LINES WILL NOT BE SAVED IN                        FEAT121L     127     A     
 SCANNER  *                              *BEFORE HEADER* MODE                              FEAT121L     128     A     
 SCANNER   SCAN9A   RJ     PLO         PROCESS C/-LIST OPTIONS                             FEAT121L     129     A     
 SCANNER            EQ     SCAN10      REJOIN NORMAL FLOW...                               FEAT121L     130     A     
 SCANNER                                                                                   FEAT121L     131     A     
 SCANNER   SCAN9B   MX4    1                                                               FEAT121L     132     A     
 SCANNER            BX6    X3*X4                                                           FEAT121L     133     A     
 SCANNER            LX6    1           (C$STMT) = +0 IF NEXT STMT IS NOT C$ DEBUG          FEAT121L     134     A     
 SCANNER  *                                     =  1 IF NEXT STMT IS C$ DEBUG              FEAT121L     135     A     
 SCANNER            SA6    A3                                                              FEAT121L     136     A     
 SCANNER            NZ     X2,AFC2     IF A DEBUG CONTINUATION CARD -- ILLEGAL             FEAT121L     137     A     
 SCANNER            EQ     SCAN13                                                          FEAT121L     138     A     
 SCANNER   AFC      SPACE  4,8                                                             SCANNER      622     A     
 SCANNER  *         ABNORMAL FIRST CARD(S).                                                SCANNER      623     A     
 SCANNER                                                                                   SCANNER      624     A     
 SCANNER   AFC1     BX4    X4+X2                                                           SCANNER      625     A     
 SCANNER            ZR     X4,AFC3     IF LABEL + CONTIN FIELDS EMPTY, BLANK LINE          SCANNER      626     A     
 SCANNER   AFC2     SA3    FTNCNT                                                          SCANNER      627     A     
 SCANNER            BX6    X6-X6                                                           SCANNER      628     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1848    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            LX7    X3                                                              SCANNER      629     A     
 SCANNER            SA6    BADLABL     CLEAR BAD LABEL FLAG                                SCANNER      630     A     
 SCANNER            SA7    SCNT        UPDATE ERROR MSG LINE NUMBER                        SCANNER      631     A     
 SCANNER            POSTERR   SEV=INF,NR=E29                                               SCANNER      632          I
          -FCC2111
 SCANNER            POSTER SEV=FE,NR=E29                                                   FCC2111        5     A     
 SCANNER            SB1    1                                                               SCANNER      633     A     
 SCANNER   AFC3     RJ     PBC         PROCESS BLANK OR COMMENT LINE                       SCANNER      634     A     
 SCANNER            RJ     PLR         PROCESS LISTING REQUEST                             SCANNER      635     A     
 SCANNER            EQ     SCAN8       LOOP FOR NEXT LINE                                  SCANNER      636     A     
 SCANNER   SCAN10   SPACE  4,8                                                             SCANNER      637     A     
 SCANNER  **        CHECK FOR COMPASS SUBPROGRAM.                                          SCANNER      638     A     
 SCANNER                                                                                   SCANNER      639     A     
 SCANNER   SCAN10   SA1    IDENTOK                                                         SCANNER      640     A     
 SCANNER            NZ     X1,SCAN11   IF PROGRAM UNIT HEADER FOUND OR INVENTED            SCANNER      641     A     
 SCANNER            CALL   CCS         CHECK FOR AND COPY COMPASS SOURCE INPUT             SCANNER      642     A     
 SCANNER            ZR     B7,SCAN13   IF NO *IDENT* LINE FOUND                            SCANNER      643     A     
 SCANNER            EQ     SCAN4       RE-INITIALIZE FOR NEW PROGRAM UNIT                  SCANNER      644     A     
 SCANNER                                                                                   SCANNER      645     A     
 SCANNER   SCAN11   SA1    =XDFLAG                                                         SCANNER      646     A     
 SCANNER            SB2    SCAN2                                                           SCANNER      647     A     
 SCANNER            ZR     X1,SCAN12   IF DEBUG OPTION NOT SELECTED                        SCANNER      648     A     
 SCANNER            SB2    SCAN3                                                           SCANNER      649     A     
 SCANNER   SCAN12   PLUG   AT=B2,TO=SCAN13,VOID=NO                                         SCANNER      650          I
          -F2950F4
 SCANNER   SCAN12   PLUG   AT=B2,TO=SCAN13                                                 F2950F4      111     A     
 SCANNER   SCAN13   SPACE  4,8                                                             SCANNER      651     A     
 SCANNER  **        BEGIN FORTRAN STATEMENT PROCESSING.                                    SCANNER      652     A     
 SCANNER                                                                                   SCANNER      653     A     
 SCANNER   SCAN13   SA1    FEFLAG                                                          SCANNER      654     A     
 SCANNER            MX6    0                                                               SCANNER      655     A     
 SCANNER            SA6    A1                                                              SCANNER      656     A     
 SCANNER            ZR     X1,SCAN14   IF NO FATAL ERROR IN LAST STATEMENT                 SCANNER      657     A     
 SCANNER            RJ     LSL         LIST SAVED STATEMENT                                SCANNER      658     A     
 SCANNER   SCAN14   RJ     PLR         PROCESS LISTING REQUEST (NEW STATEMENT)             SCANNER      659          I
          -FEAT121L 
 SCANNER   SCAN14   RJ     PLO         PROCESS C/-LIST OPTIONS                             FEAT121L     139     A     
 SCANNER            RJ     PLR         PROCESS LISTING REQUEST (NEW STATEMENT)             FEAT121L     140     A     
 SCANNER            SA1    SBUFLG                                                          SCANNER      660     A     
 SCANNER            SA3    BADLABL                                                         SCANNER      661     A     
 SCANNER            MX6    0                                                               SCANNER      662     A     
 SCANNER            SA6    A1                                                              SCANNER      663     A     
 SCANNER            PL     X1,SCAN15   IF LAST STMT NOT TERMINATED BY $                    SCANNER      664     A     
 SCANNER            SA6    CONTCNT     CLEAR CONTINUATION CARD COUNT                       SCANNER      665     A     
 SCANNER            EQ     SCAN16      BYPASS SOURCE LINE COUNT UPDATE                     SCANNER      666     A     
 SCANNER                                                                                   SCANNER      667     A     
 SCANNER   SCAN15   SA2    DUKE1       LINE COUNT (BINARY)                                 SCANNER      668     A     
 SCANNER            SA4    FTNCNT                                                          SCANNER      669     A     
 SCANNER            BX6    X2                                                              SCANNER      670     A     
 SCANNER            LX7    X4                                                              SCANNER      671     A     
 SCANNER            SA6    DUKE        UPDATE BINARY LINE COUNT                            SCANNER      672     A     
 SCANNER            SA7    SCNT        UPDATE START-OF-STMT LINE COUNT FOR 'ERPRO'         SCANNER      673     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1849    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER   SCAN16   ZR     X3,SCAN17   IF NO BAD LABEL                                     SCANNER      674     A     
 SCANNER            BX7    X7-X7                                                           SCANNER      675     A     
 SCANNER            SA7    A3                                                              SCANNER      676     A     
 SCANNER            POSTERR   SEV=INF,NR=E30                                               SCANNER      677          I
          -FCC1388
 SCANNER            POSTER SEV=FE,NR=E30                                                   FCC1388        6     A     
 SCANNER   SCAN17   SPACE  4,8                                                             SCANNER      678     A     
 SCANNER  **        LEXICALLY SCAN STATEMENT.                                              SCANNER      679     A     
 SCANNER                                                                                   SCANNER      680     A     
 SCANNER   SCAN17   RJ     LEX                                                             SCANNER      681     A     
 SCANNER   SCAN17   SPACE  4,8                                                             SCANNER      682     A     
 SCANNER  **        TERMINATE STATEMENT SCAN.                                              SCANNER      683     A     
 SCANNER                                                                                   SCANNER      684     A     
 SCANNER            ELPUT  EOS                                                             SCANNER      685     A     
 SCANNER            SA2    PARENS                                                          SCANNER      686     A     
 SCANNER            SA3    C$STMT                                                          SCANNER      687     A     
 SCANNER            MX4    1                                                               FEAT121L     141     A     
 SCANNER            BX6    X3*X4                                                           FEAT121L     142     A     
 SCANNER            LX6    1           (C$STMT) = +0 IF NEXT STMT IS NOT C$ DEBUG          FEAT121L     143     A     
 SCANNER  *                                     =  1 IF NEXT STMT IS C$ DEBUG              FEAT121L     144     A     
 SCANNER            SA6    A3                                                              FEAT121L     145     A     
 SCANNER            ZR     X2,SCAN18   IF PARENS ARE BALANCED                              SCANNER      688     A     
 SCANNER            NZ     X3,SCAN18   IF C$ DEBUG STATEMENT                               SCANNER      689     A     
 SCANNER            SX3    1R(                                                             SCANNER      690     A     
 SCANNER            AX2    59-0                                                            SCANNER      691     A     
 SCANNER            MX6    -1                                                              SCANNER      692     A     
 SCANNER            BX7    X2*X6       (X7) = -1 IF (PARENS) .MI.                          SCANNER      693     A     
 SCANNER  *                                 = +0 IF (PARENS) .PL.                          SCANNER      694     A     
 SCANNER            IX3    X3-X7                                                           SCANNER      695     A     
 SCANNER            LX3    48-6                                                            SCANNER      696     A     
 SCANNER            MX7    0                                                               SCANNER      697     A     
 SCANNER            SA7    A2                                                              SCANNER      698     A     
 SCANNER            POSTER SEV=FE,NR=E33,FMT=DPC,TXT=X3  *UNMATCHED PARENTHESIS*           SCANNER      699     A     
 SCANNER   SCAN18   SA4    TYPE                                                            SCANNER      700     A     
 SCANNER            SA1    LELIST                                                          SCANNER      701     A     
 SCANNER            PL     X4,SCAN19   IF TYPE WAS DETERMINED                              SCANNER      702     A     
 SCANNER                                                                                   SCANNER      703     A     
 SCANNER  *         SET TYPE *BAD* FOR ERRONEOUS STATEMENT SO THAT THE PHASE               SCANNER      704     A     
 SCANNER  *         CONTROLLER CAN PROCESS THE LABEL DEFINITION, IF ANY, AND               SCANNER      705     A     
 SCANNER  *         CAN TURN C$ DEBUG OPTIONS ON OR OFF.                                   SCANNER      706     A     
 SCANNER                                                                                   SCANNER      707     A     
 SCANNER            SX7    ST.BAD      *BAD* STATEMENT TYPE CODE                           SCANNER      708     A     
 SCANNER            BX4    X7                                                              SCANNER      709     A     
 SCANNER            SA7    A4                                                              SCANNER      710     A     
 SCANNER   SCAN19   ZR     X1,SCAN21   IF NOT ONE-BRANCH *IF*                              SCANNER      711     A     
 SCANNER            PL     X1,SCAN20   IF OBJECT OF *IF* ALREADY TYPED                     SCANNER      712     A     
 SCANNER            SA3    ELAST                                                           SCANNER      713     A     
 SCANNER            SA5    SELIST                                                          SCANNER      714     A     
 SCANNER            BX7    X4                                                              SCANNER      715     A     
 SCANNER            MX0    -1                                                              SCANNER      716     A     
 SCANNER            SX6    X3-2                                                            SCANNER      717     A     
 SCANNER            SA7    LTYPE                                                           SCANNER      718     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1850    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            SA6    A3                                                              SCANNER      719     A     
 SCANNER            BX7    X5                                                              SCANNER      720     A     
 SCANNER            IX6    X6+X0                                                           SCANNER      721     A     
 SCANNER            SA7    A1                                                              SCANNER      722     A     
 SCANNER            SA6    A5                                                              SCANNER      723     A     
 SCANNER            MX7    -0                                                              SCANNER      724     A     
 SCANNER            SA7    A4                                                              SCANNER      725     A     
 SCANNER            EQ     SCAN17      LEXICALLY SCAN OBJECT OF ONE-BRANCH *IF*            SCANNER      726     A     
 SCANNER                                                                                   SCANNER      727     A     
 SCANNER  *         UNSWITCH ONE BRANCH *IF* TYPE CODES AND POINTERS.                      SCANNER      728     A     
 SCANNER  *                                                                                SCANNER      729     A     
 SCANNER  *         (LELIST)=ADDR OF BEGINNING OF *ELIST* FOR ENTIRE STMT.                 SCANNER      730     A     
 SCANNER  *         (SELIST)=ADDR OF BEGINNING OF *ELIST* FOR OBJECT OF *IF*.              SCANNER      731     A     
 SCANNER  *         (LTYPE)=STMT TYPE CODE FOR 1ST *IF*.                                   SCANNER      732     A     
 SCANNER  *         (TYPE)=STMT TYPE CODE FOR OBJECT OF ONE BRANCH *IF*.                   SCANNER      733     A     
 SCANNER  *                                                                                SCANNER      734     A     
 SCANNER  *         E.G. - IF (A.EQ.B) GOTO  100                                           SCANNER      735     A     
 SCANNER  *                '  '         '    '                                             SCANNER      736     A     
 SCANNER  *           (LTYPE)(LELIST) (TYPE)(SELIST)                                       SCANNER      737     A     
 SCANNER  *                                                                                SCANNER      738     A     
 SCANNER   SCAN20   SA2    SELIST                                                          SCANNER      739     A     
 SCANNER            BX6    X1                                                              SCANNER      740     A     
 SCANNER            LX7    X2                                                              SCANNER      741     A     
 SCANNER            SA3    LTYPE                                                           SCANNER      742     A     
 SCANNER            SA6    A2                                                              SCANNER      743     A     
 SCANNER            BX6    X3                                                              SCANNER      744     A     
 SCANNER            SA7    A1                                                              SCANNER      745     A     
 SCANNER            LX7    X4                                                              SCANNER      746     A     
 SCANNER            SA6    A4                                                              SCANNER      747     A     
 SCANNER            SA7    A3                                                              SCANNER      748     A     
 SCANNER                                                                                   SCANNER      749     A     
 SCANNER   SCAN21   SB1    1                                                               SCANNER      750     A     
 SCANNER            CALL   TDI         TRANSFER DEBUG INFORMATION                          SCANNER      751     A     
 SCANNER                                                                                   SCANNER      752     A     
 SCANNER   .T       IFNE   TEST,0                                                          SCANNER      753     A     
 SCANNER            SA1    =XCO.SNAP                                                       SCANNER      754     A     
 SCANNER            SX7    B1          (X7) = *EOS* CHECK FLAG ON                          SCANNER      755     A     
 SCANNER            LX1    1RE                                                             SCANNER      756     A     
 SCANNER            PL     X1,SCAN22   IF SNAP=E NOT SELECTED                              SCANNER      757     A     
 SCANNER            AX1    59                                                              SCANNER      758     A     
 SCANNER            BX6    X1*X7       (X6) = LIST CONTROL FLAG                            SCANNER      759     A     
 SCANNER            RJ     DEL         DUMP E-LIST                                         SCANNER      760     A     
 SCANNER   SCAN22   BSS    0                                                               SCANNER      761     A     
 SCANNER   .T       ENDIF                                                                  SCANNER      762     A     
 SCANNER                                                                                   SCANNER      763     A     
 SCANNER            SA4    TYPE                                                            SCANNER      764     A     
 SCANNER            SA5    NANSI       NON-ANSI TYPE SHIFT WORD                            SCANNER      765     A     
 SCANNER            SA3    NAFLG                                                           SCANNER      766     A     
 SCANNER            SB7    X4+         (B7)=STMT TYPE CODE                                 SCANNER      767     A     
 SCANNER            LX0    B7,X5                                                           SCANNER      768     A     
 SCANNER            BX6    X3+X0                                                           SCANNER      769     A     
 SCANNER            PL     X6,SCANNER  IF NOT NON-ANSI KEYWORD, EXIT...                    SCANNER      770     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1851    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            POSTER SEV=ANSI,NR=E299   *THIS STMT IS A NON-ANSI STMT*               SCANNER      771     A     
 SCANNER            SA4    TYPE                                                            SCANNER      772     A     
 SCANNER            SB1    1                                                               SCANNER      773     A     
 SCANNER            SB7    X4                                                              SCANNER      774     A     
 SCANNER            EQ     SCANNER     EXIT...                                             SCANNER      775     A     
 SCANNER            TITLE  SUBROUTINES                                                     SCANNER      776     A     
 SCANNER   ADD1     SPACE  4,8                                                             SCANNER      777     A     
 SCANNER  ***                                                                              SCANNER      778     A     
 SCANNER  *         ADD1 - ADD WORD TO ELIST, GET NEXT CHARACTER, EXIT ON B1               SCANNER      779     A     
 SCANNER  *                                                                                SCANNER      780     A     
 SCANNER   ADD1     SA2    LWAWORK     ADDRESS OF LAST E-LIST ENTRY                        SCANNER      781     A     
 SCANNER            SA4    X1          FETCH WORD TO BE STORED IN E-LIST                   SCANNER      782     A     
 SCANNER            MX5    -1R.        SHIFT TEST MASK FOR ILLEG CHARS 00B, 60_77B         SCANNER      783     A     
 SCANNER            SA1    COLS        NEXT COLUMN COUNTER                                 SCANNER      784     A     
 SCANNER            SX6    X2-1        CURRENT E-LIST ENTRY ADDRESS                        SCANNER      785     A     
 SCANNER            SA3    FWAWORK     END ADDRESS (LOWEST) OF E-LIST                      SCANNER      786     A     
 SCANNER            BX7    X4                                                              SCANNER      787     A     
 SCANNER            SA6    A2          UPDATE ENTRY ADDRESS                                SCANNER      788     A     
 SCANNER            SA4    X1+SBUFF    GET NEXT COLUMN                                     SCANNER      789     A     
 SCANNER            IX0    X3-X6                                                           SCANNER      790     A     
 SCANNER            SA7    X6          STORE THE NEW ENTRY IN E-LIST                       SCANNER      791     A     
 SCANNER            MI     X0,ADD1.2   IF E-LIST SPACE NOT FULL                            SCANNER      792     A     
 SCANNER            EQ     ERP1                                                            SCANNER      793     A     
 SCANNER                                                                                   SCANNER      794     A     
 SCANNER   ADD1.2   SB7    X4+7777B    BIAS ILLEGAL CHAR TO 7777B OR 10057_10076B          SCANNER      795     A     
 SCANNER            AX0    B7,X5       B7 IS TRANSFERRED TO SHIFT UNIT MODULO 64           SCANNER      796     A     
 SCANNER            SB2    X4          SAVE CHARACTER FOR NEXT USER                        SCANNER      797     A     
 SCANNER            ZR     X0,ADD1.4   IF ILLEGAL CHARACTER OR E-O-L                       SCANNER      798     A     
 SCANNER            SX7    A4-SBUFF+1                                                      SCANNER      799     A     
 SCANNER   ADD1.3   SA7    COLS        UPDATE COLUMN POINTER                               SCANNER      800     A     
 SCANNER            JP     B1          EXIT TO NEXT STATE                                  SCANNER      801     A     
 SCANNER                                                                                   SCANNER      802     A     
 SCANNER   ADD1.4   RJ     PGCOM                                                           SCANNER      803     A     
 SCANNER            NZ     B4,ADD1.2   IF NOT STARTING DELIMITED HOLLERITH STRING          SCANNER      804     A     
 SCANNER            SX7    A4-SBUFF+1                                                      SCANNER      805     A     
 SCANNER            EQ     ADD1.3                                                          SCANNER      806     A     
 SCANNER   ADJ      TITLE  ADJ - REMOVE LEADING LABEL AND/OR VARIABLE FROM STRING.         SCANNER      807     A     
 SCANNER  **        ADJ - REMOVE LEADING LABEL AND/OR VARIABLE FROM STRING                 SCANNER      808     A     
 SCANNER  *                                                                                SCANNER      809     A     
 SCANNER  *                REMOVES A LABEL AND/OR A VARIABLE NAME FROM THE                 SCANNER      810     A     
 SCANNER  *         KEYWORD STRING AND MAKES THE APPROPRIATE *ELIST* ENTRIES FOR           SCANNER      811     A     
 SCANNER  *         THEM. CONSIDER THE STATEMENT --                                        SCANNER      812     A     
 SCANNER  *                                                                                SCANNER      813     A     
 SCANNER  *                DO100IV=1,10                                                    SCANNER      814     A     
 SCANNER  *                                                                                SCANNER      815     A     
 SCANNER  *                UPON ENTRY TO *ADJ*, *SRCH* WILL ALREADY HAVE STRIPPED          SCANNER      816     A     
 SCANNER  *         OFF THE KEYWORD *DO*. *ADJ* SPLITS *100IV* INTO *100* AND *IV*         SCANNER      817     A     
 SCANNER  *         AND MAKES THE *ELIST* ENTRIES FOR THEM.                                SCANNER      818     A     
 SCANNER  *                                                                                SCANNER      819     A     
 SCANNER  *         ENTRY  (KEYL) = 12/2000B+NR CHRS IN STRING,48/NR WDS IN STRING         SCANNER      820     A     
 SCANNER  *                (KEYW) = KEYWORD STRING, WITHOUT THE KEYWORD, LEFT              SCANNER      821     A     
 SCANNER  *                         JUSTIFIED, ZERO FILL.                                  SCANNER      822     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1852    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *                (B1)  =  NEXT *LEX-N-* JUMP ADDRESS.                            SCANNER      823     A     
 SCANNER  *                (B2)  =  NEXT CHARACTER IN STATEMENT.                           SCANNER      824     A     
 SCANNER  *         EXIT   (B1)  =  UNCHANGED                                              SCANNER      825     A     
 SCANNER  *                (B2)  =  UNCHANGED                                              SCANNER      826     A     
 SCANNER  *         USES   ALL REGISTERS EXCEPT B1,B2.                                     SCANNER      827     A     
 SCANNER  *                                                                                SCANNER      828     A     
 SCANNER  *         CALLS  PVN                                                             SCANNER      829     A     
 SCANNER  *                MCE                                                             SCANNER      830     A     
 SCANNER                                                                                   SCANNER      831     A     
 SCANNER   ADJ      SUBR               ** ENTRY/EXIT **                                    SCANNER      832     A     
 SCANNER            SA2    KEYL                                                            SCANNER      833     A     
 SCANNER            NO                                                                     SCANNER      834     A     
 SCANNER            UX2    B3,X2       (B3)=NR CHAR LEFT IN *KEYW*                         SCANNER      835     A     
 SCANNER            ZR     B3,EXIT.    IF NOTHING LEFT                                     SCANNER      836     A     
 SCANNER            SA1    KEYW                                                            SCANNER      837     A     
 SCANNER            SA2    =05050505050505050505B                                          SCANNER      838     A     
 SCANNER            SA4    =40404040404040404040B                                          SCANNER      839     A     
 SCANNER            IX3    X1+X2       (X3)=SIGN BIT FOR EACH CHAR THAT WAS DIGIT          SCANNER      840     A     
 SCANNER  *                              WILL BE ON.                                       SCANNER      841     A     
 SCANNER            SX7    0                                                               SCANNER      842     A     
 SCANNER            BX6    -X3*X4      EXTRACT *SIGN* BITS FOR LETTERS                     SCANNER      843     A     
 SCANNER            SA7    LCON                                                            SCANNER      844     A     
 SCANNER            PL     X3,ADJ3     IF A NAME                                           SCANNER      845     A     
 SCANNER                                                                                   SCANNER      846     A     
 SCANNER  *         EXTRACT LABEL FROM   LABEL ALPHANUMERIC.                               SCANNER      847     A     
 SCANNER                                                                                   SCANNER      848     A     
 SCANNER            AX6    12                                                              SCANNER      849     A     
 SCANNER            PX7    X6                                                              SCANNER      850     A     
 SCANNER            NO                                                                     SCANNER      851     A     
 SCANNER            NX0    B4,X7       (B4)=6*NR DIGITS IN LABEL                           SCANNER      852     A     
 SCANNER            ZR     X0,ERP9     IF MORE THAN 7 DIGITS IN LABEL                      SCANNER      853     A     
 SCANNER            SB6    B4-B5                                                           SCANNER      854     A     
 SCANNER            MX7    1                                                               SCANNER      855     A     
 SCANNER            AX0    B6,X7       (X0)=MASK(6*NR CHRS IN LABEL)                       SCANNER      856     A     
 SCANNER            BX4    X0*X4                                                           SCANNER      857     A     
 SCANNER            CX5    X4                                                              SCANNER      858     A     
 SCANNER            SB7    X5          (B7)=NR OF DIGITS IN LABEL                          SCANNER      859     A     
 SCANNER            BX2    X0*X1       EXTRACT LABEL                                       SCANNER      860     A     
 SCANNER            SA3    =10H                                                            SCANNER      861     A     
 SCANNER            BX4    -X0*X3      AND SPACE FILL IT                                   SCANNER      862     A     
 SCANNER            BX6    X2+X4                                                           SCANNER      863     A     
 SCANNER            SA6    LCON                                                            SCANNER      864     A     
 SCANNER                                                                                   SCANNER      865     A     
 SCANNER  *         LEFT JUSTIFY REST OF STRING.                                           SCANNER      866     A     
 SCANNER                                                                                   SCANNER      867     A     
 SCANNER            BX1    -X0*X1      MASK OFF LABEL FROM REST OF STRING                  SCANNER      868     A     
 SCANNER            SA2    A1+B5                                                           SCANNER      869     A     
 SCANNER            BX3    X0*X2                                                           SCANNER      870     A     
 SCANNER            IX0    X3+X1                                                           SCANNER      871     A     
 SCANNER            LX1    B4,X0                                                           SCANNER      872     A     
 SCANNER            SB3    B3-B7       ADJUST CHAR COUNT                                   SCANNER      873     A     
 SCANNER                                                                                   SCANNER      874     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1853    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *         FORM *ELIST* ENTRY FOR AN INTEGER LABEL.                               SCANNER      875     A     
 SCANNER                                                                                   SCANNER      876     A     
 SCANNER            SX3    B7                                                              SCANNER      877     A     
 SCANNER            SA2    ADJA                                                            SCANNER      878     A     
 SCANNER            SA5    CCSTO       (X5)=*CONSTOR* ADDR FOR LABEL                       SCANNER      879     A     
 SCANNER            LX3    18                                                              SCANNER      880     A     
 SCANNER            BX6    X2+X3                                                           SCANNER      881     A     
 SCANNER            SA4    SELIST                                                          SCANNER      882     A     
 SCANNER            IX6    X6+X5       12/2000,3/1,9/0,18/NR DGTS,18/(CCSTO)               SCANNER      883     A     
 SCANNER            ZR     B3,ADJ2     IF NO VARIABLE                                      SCANNER      884     A     
 SCANNER            SX4    X4+1                                                            SCANNER      885     A     
 SCANNER                                                                                   SCANNER      886     A     
 SCANNER  *         ADJUST (SELIST).                                                       SCANNER      887     A     
 SCANNER                                                                                   SCANNER      888     A     
 SCANNER   ADJ2     SA6    X4+B5                                                           SCANNER      889     A     
 SCANNER            SX7    A6          ADJUST ELIST START ADDRESS                          SCANNER      890     A     
 SCANNER            SA7    A4+                                                             SCANNER      891     A     
 SCANNER            ZR     B3,ADJ4     IF NOTHING LEFT                                     SCANNER      892     A     
 SCANNER            SA2    TYPE                                                            SCANNER      893     A     
 SCANNER            SX3    X2-ST.ASG                                                       SCANNER      894     A     
 SCANNER            NZ     X3,ADJ3     IF NOT AN *ASSIGN* STMT                             SCANNER      895     A     
 SCANNER                                                                                   SCANNER      896     A     
 SCANNER  *         PROCESS *ASSIGN* STATEMENT.                                            SCANNER      897     A     
 SCANNER                                                                                   SCANNER      898     A     
 SCANNER            MX0    12                                                              SCANNER      899     A     
 SCANNER            BX2    X0*X1                                                           SCANNER      900     A     
 SCANNER            NO                                                                     SCANNER      901     A     
 SCANNER            LX2    12                                                              SCANNER      902     A     
 SCANNER            SX3    X2-2RTO                                                         SCANNER      903     A     
 SCANNER            NZ     X3,ERP8     IF *TO* MISSING                                     SCANNER      904     A     
 SCANNER            SB3    B3-2        ADJUST CHAR COUNT                                   SCANNER      905     A     
 SCANNER            BX1    -X0*X1                                                          SCANNER      906     A     
 SCANNER            LX1    12                                                              SCANNER      907     A     
 SCANNER            ZR     B3,ERP8     IF NAME MISSING                                     SCANNER      908     A     
 SCANNER                                                                                   SCANNER      909     A     
 SCANNER  *         PROCESS VARIABLE NAME.                                                 SCANNER      910     A     
 SCANNER                                                                                   SCANNER      911     A     
 SCANNER   ADJ3     LX1    -12                                                             SCANNER      912     A     
 SCANNER            SB6    B3+         NR CHRS IN NAME                                     SCANNER      913     A     
 SCANNER            BX6    X1          12/0,48/NAME,DPC LEFT JUST, ZERO FILL               SCANNER      914     A     
 SCANNER            RJ     PVN         PROCESS VARIABLE NAME                               SCANNER      915     A     
 SCANNER            SA3    LCON                                                            SCANNER      916     A     
 SCANNER            SA4    SELIST                                                          SCANNER      917     A     
 SCANNER            ZR     X3,ADJ5     IF NO PRECEDING LABEL                               SCANNER      918     A     
 SCANNER            SA6    X4-1        NAME TO ELIST                                       SCANNER      919     A     
 SCANNER                                                                                   SCANNER      920     A     
 SCANNER  *         PROCESS LABEL.                                                         SCANNER      921     A     
 SCANNER                                                                                   SCANNER      922     A     
 SCANNER   ADJ4     SA3    LCON                                                            SCANNER      923     A     
 SCANNER            BX6    X3                                                              SCANNER      924     A     
 SCANNER            RJ     MCE         MAKE *CONSTOR* ENTRY                                SCANNER      925     A     
 SCANNER            EQ     EXIT.                                                           SCANNER      926     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1854    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER                                                                                   SCANNER      927     A     
 SCANNER   ADJ5     SA6    X4+B5       STORE NAME IN ELIST                                 SCANNER      928     A     
 SCANNER            SX7    X4+1        UPDATE *SELIST*                                     SCANNER      929     A     
 SCANNER            SA7    A4                                                              SCANNER      930     A     
 SCANNER            EQ     EXIT.                                                           SCANNER      931     A     
 SCANNER                                                                                   SCANNER      932     A     
 SCANNER  *         INTEGER LABEL *ELIST* ENTRY SKELETON.                                  SCANNER      933     A     
 SCANNER                                                                                   SCANNER      934     A     
 SCANNER   ADJA     VFD    12/2000B,3/1,27/0,18/0                                          SCANNER      935     A     
 SCANNER   ANSIERP  SPACE  4,8                                                             SCANNER      936     A     
 SCANNER  ***                                                                              SCANNER      937     A     
 SCANNER  *         ANSIERP - NON-ANSI DIAGNOSTIC REPORTING INTERFACE                      SCANNER      938     A     
 SCANNER  *                                                                                SCANNER      939     A     
 SCANNER  *         ON ENTRY - X0 = ERROR NUMBER                                           SCANNER      940     A     
 SCANNER  *                                                                                SCANNER      941     A     
 SCANNER  *         REGISTERS SAVED AND RESTORED -       X3,   X5,X6                       SCANNER      942     A     
 SCANNER  *                                        B1,B2,B3,      B6                       SCANNER      943     A     
 SCANNER                                                                                   SCANNER      944     A     
 SCANNER                                                                                   SCANNER      945     A     
 SCANNER   ANSIERP  SUBR               ** ENTRY/EXIT **                                    SCANNER      946     A     
 SCANNER            RJ     SCNSAVE     SAVE REGISTERS                                      SCANNER      947          I
          -FEAT121L 
 SCANNER            RJ     SAV         SAVE PACKING REGISTERS                              FEAT121L     146     A     
 SCANNER            SB6    X0          (B6) = ERROR MESSAGE NUMBER                         SCANNER      948     A     
 SCANNER            POSTER SEV=ANSI,NR=**                                                  SCANNER      949     A     
 SCANNER            RJ     RESTO       RESTORE REGISTERS                                   SCANNER      950          I
          -FEAT121L 
 SCANNER            RJ     RES         RESTORE PACKING REGISTERS                           FEAT121L     147     A     
 SCANNER            EQ     EXIT.                                                           SCANNER      951     A     
 SCANNER   AWE      SPACE  4,8                                                             SCANNER      952     A     
 SCANNER  **        AWE - ADD WORD TO E-LIST.                                              SCANNER      953     A     
 SCANNER  *                                                                                SCANNER      954     A     
 SCANNER  *                                                                                SCANNER      955     A     
 SCANNER  *         ENTRY  (X1) = WORD TO BE ADDED TO E-LIST                               SCANNER      956     A     
 SCANNER  *                                                                                SCANNER      957     A     
 SCANNER  *         USES   X - 2, 3, 6, 7                                                  SCANNER      958     A     
 SCANNER  *                A - 2, 3, 6, 7                                                  SCANNER      959     A     
 SCANNER  *                B - 3, 4                                                        SCANNER      960     A     
 SCANNER  *                                                                                SCANNER      961     A     
 SCANNER  *         CALLS  NONE                                                            SCANNER      962     A     
 SCANNER                                                                                   SCANNER      963     A     
 SCANNER                                                                                   SCANNER      964     A     
 SCANNER   AWE      SUBR               ** ENTRY/EXIT **                                    SCANNER      965     A     
 SCANNER            SA2    =XLWAWORK                                                       SCANNER      966     A     
 SCANNER            SA3    =XFWAWORK                                                       SCANNER      967     A     
 SCANNER            BX6    X1                                                              SCANNER      968     A     
 SCANNER            SB3    X2-1                                                            SCANNER      969     A     
 SCANNER            SB4    X3                                                              SCANNER      970     A     
 SCANNER            SA6    B3          WORD TO E-LIST                                      SCANNER      971     A     
 SCANNER            SX7    B3+                                                             SCANNER      972     A     
 SCANNER            SA7    A2          ADVANCE E-LIST POINTER                              SCANNER      973     A     
 SCANNER            GT     B3,B4,EXIT. IF E-LIST OVERFLOW NOT IMPENDING                    SCANNER      974     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1855    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            EQ     ERP1                                                            SCANNER      975     A     
 SCANNER   CBL      TITLE  CLASSIFY AND BURST LINE                                         SCANNER      976     A     
 SCANNER  **        CBL - CLASSIFY AND BURST LINE.                                         SCANNER      977     A     
 SCANNER  *                                                                                SCANNER      978     A     
 SCANNER  *                *CBL* DOES THE FOLLOWING FOR EACH SOURCE LINE ...               SCANNER      979     A     
 SCANNER  *         1.  UPDATES SOURCE LINE COUNT.                                         SCANNER      980     A     
 SCANNER  *         2.  CLASSIFIES THE LINE INTO ONE OF THESE CATEGORIES --                SCANNER      981     A     
 SCANNER  *             A.  COMMENT LINE.                                                  SCANNER      982     A     
 SCANNER  *             B.  INITIAL STATEMENT LINE.                                        SCANNER      983     A     
 SCANNER  *             C.  CONTINUATION LINE.                                             SCANNER      984     A     
 SCANNER  *             D.  C$ DEBUG LINE.                                                 SCANNER      985     A     
 SCANNER  *             E.  C/ LIST LINE.                                                  FEAT126BB      4     A     
 SCANNER  *         3.  UPDATES OR RESETS CONTINUATION LINE COUNT.                         SCANNER      986     A     
 SCANNER  *         4.  EXTRACTS LABEL.                                                    SCANNER      987     A     
 SCANNER  *         5.  BURSTS LINE TO *SBUFF*, ONE CHARACTER PER WORD, WITH               SCANNER      988     A     
 SCANNER  *             BLANKS SQUEEZED OUT.                                               SCANNER      989     A     
 SCANNER  *                                                                                SCANNER      990     A     
 SCANNER  *                                                                                SCANNER      991     A     
 SCANNER  *         ENTRY  (CP.CARD) ET SEQ = PACKED SOURCE LINE.                          SCANNER      992     A     
 SCANNER  *                (L.CARD) = SOURCE LINE LENGTH.                                  SCANNER      993          I
          -FCC1328X 
 SCANNER  *                (L.CARD) = SOURCE LINE LENGTH (INCLUDES FULL WORD EOL)          FCC1328X     595     A     
 SCANNER  *                (NLABEL) = LABEL OF LAST LINE.                                  SCANNER      994     A     
 SCANNER  *                                                                                SCANNER      995     A     
 SCANNER  *         EXIT   LINE COLUMNS 7-72 BURST TO STRING BUFFER *SBUFF*.               SCANNER      996     A     
 SCANNER  *                  BLANKS ARE SQUEEZED OUT.  LEADING BLANK COUNT (LBC)           SCANNER      997     A     
 SCANNER  *                  IS PACKED WITH NON-BLANK CHARACTER AS FOLLOWS --              SCANNER      998     A     
 SCANNER  *                            12/LBC+2001B, 42/0, 6/CHARACTER                     SCANNER      999     A     
 SCANNER  *                  *SBUFF* TERMINATOR FORMAT --                                  SCANNER     1000     A     
 SCANNER  *                            12/LBC+5776B, 48/-1                                 SCANNER     1001          I
          -FCC1328X 
 SCANNER  *                            12/-(LBC+2001B),48/-1                               FCC1328X     596     A     
 SCANNER  *                                                                                SCANNER     1002     A     
 SCANNER  *                LABEL PROCESSING FOR NON-CONTINUATION LINE --                   SCANNER     1003     A     
 SCANNER  *                  (CLABEL)  = LABEL OF LAST LINE FROM (NLABEL).                 SCANNER     1004     A     
 SCANNER  *                  (NLABEL)  = NEW LABEL, DPC, LEFT JUSTIFIED, BLANK             SCANNER     1005     A     
 SCANNER  *                              FILLED, LEADING ZEROS SQUEEZED OUT.               SCANNER     1006     A     
 SCANNER  *                            = .ZR. IF LABEL ABSENT OR NON-NUMERIC (BAD)         SCANNER     1007     A     
 SCANNER  *                  (BADLABL) = .MI. IF LABEL BAD, ELSE UNCHANGED.                SCANNER     1008     A     
 SCANNER  *                  IF CONTINUATION LINE, THE LABEL FIELD IS IGNORED.             SCANNER     1009     A     
 SCANNER  *                                                                                SCANNER     1010     A     
 SCANNER  *                REGISTER AND CELL CONTENTS --                                   SCANNER     1011     A     
 SCANNER  *                (A1,X1) = SBUFF,   1ST NON-BLANK CHAR IN STRING BUFFER.         SCANNER     1012     A     
 SCANNER  *                (A2,X2) = CONTCNT, UPDATED CONTINUATION LINE COUNT.             SCANNER     1013     A     
 SCANNER  *                (A3,X3) = DTYPE,   +1 IF C$ DEBUG LINE AND DEBUG ON.            SCANNER     1014     A     
 SCANNER  *                        =          +0 IF ELSE.                                  SCANNER     1015     A     
 SCANNER  *                (A4)    = NLABEL,  NEW LINE LABEL.                              SCANNER     1016     A     
 SCANNER  *                   (X4) =          (NLABEL) IF GOOD LABEL PRESENT.              SCANNER     1017     A     
 SCANNER  *                        =          .ZR. IF LABEL ABSENT.                        SCANNER     1018     A     
 SCANNER  *                        =          .NZ. IF LABEL BAD (NON-NUMERIC).             SCANNER     1019     A     
 SCANNER  *                (X5)    =          +1 IF COMMENT LINE, +0 IF NOT.               SCANNER     1020     A     
 SCANNER  *                (B1)    =          1                                            SCANNER     1021     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1856    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *                (B5)    =          1                                            SCANNER     1022     A     
 SCANNER  *                (COLS)  =          0                                            SCANNER     1023     A     
 SCANNER  *                                                                                SCANNER     1024     A     
 SCANNER  *         USES   ALL BUT A0.                                                     SCANNER     1025     A     
 SCANNER  *                                                                                SCANNER     1026     A     
 SCANNER  *         CALLS  CDD(COMCCDD), POSTERR.                                          SCANNER     1027          I
          -FCC1328X 
 SCANNER  *         CALLS  CDD,CLO,POSTERR                                                 FCC1328X     597     A     
 SCANNER                                                                                   SCANNER     1028     A     
 SCANNER                                                                                   SCANNER     1029     A     
 SCANNER   CBL      SUBR               ** ENTRY/EXIT **                                    SCANNER     1030     A     
 SCANNER                                                                                   SCANNER     1031     A     
 SCANNER  *         UPDATE SOURCE LINE NUMBERS.                                            SCANNER     1032     A     
 SCANNER                                                                                   SCANNER     1033     A     
 SCANNER            SA5    DUKE1       INCREMENT BINARY LINE NUMBER                        SCANNER     1034     A     
 SCANNER            SA2    FTNCNT      INCREMENT DISPLAY-CODED LINE NUMBER                 SCANNER     1035     A     
 SCANNER            MX6    -1                                                              SCANNER     1036     A     
 SCANNER            SB1    1                                                               SCANNER     1037     A     
 SCANNER            IX7    X5-X6                                                           SCANNER     1038     A     
 SCANNER            SA3    =1H                                                             SCANNER     1039     A     
 SCANNER            IX6    X2-X6       (X6) = DPC + 1                                      SCANNER     1040     A     
 SCANNER            MX4    -6                                                              SCANNER     1041     A     
 SCANNER            BX1    X7          (X1) = BIN + 1                                      SCANNER     1042     A     
 SCANNER            SX0    41B         (X0) = SHIFT TEST MASK FOR CHARS 5 AND +            SCANNER     1043     A     
 SCANNER            SA7    A5          UPDATE BINARY                                       SCANNER     1044     A     
 SCANNER                                                                                   SCANNER     1045     A     
 SCANNER   .T       IFNE   TEST,0                                                          SCANNER     1046     A     
 SCANNER            SA2    =XCO.SNAP                                                       SCANNER     1047     A     
 SCANNER            BX7    X2                                                              SCANNER     1048          I
          -FEAT155E 
 SCANNER            LX2    1RE                                                             SCANNER     1049          I
          -FEAT155E 
 SCANNER            LX7    1RN                                                             SCANNER     1050          I
          -FEAT155E 
 SCANNER            BX2    X2+X7                                                           SCANNER     1051          I
          -FEAT155E 
 SCANNER            PL     X2,CBL1     IF SNAP=E OR =N OPTION NOT SELECTED                 SCANNER     1052          I
          -FEAT155E 
 SCANNER            ZR     X2,CBL1           IF SNAP = 0                                   FEAT155E     364     A     
 SCANNER            CALL   CDD                                                             SCANNER     1053     A     
 SCANNER            BX7    X6                                                              SCANNER     1054     A     
 SCANNER            EQ     CBL3        NUMBER EACH SOURCE LINE UNCONDITIONALLY             SCANNER     1055     A     
 SCANNER                                                                                   SCANNER     1056     A     
 SCANNER   CBL1     BSS    0                                                               SCANNER     1057     A     
 SCANNER   .T       ENDIF                                                                  SCANNER     1058     A     
 SCANNER                                                                                   SCANNER     1059     A     
 SCANNER            BX2    -X4*X6                                                          SCANNER     1060     A     
 SCANNER            LX0    59-1R+                                                          SCANNER     1061     A     
 SCANNER            SB2    X2          (B2) = DPC UNITS POSITION CHARACTER                 SCANNER     1062     A     
 SCANNER            BX7    X3          (X7) = 10 BLANKS                                    SCANNER     1063     A     
 SCANNER            ZR     X5,CBL2     IF LINE 1, NUMBER IT UNCONDITIONALLY                SCANNER     1064     A     
 SCANNER            LX0    B2                                                              SCANNER     1065     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1857    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            PL     X0,CBL3     IF LINE NUMBER NOT MULTIPLE OF 5                    SCANNER     1066     A     
 SCANNER            LX0    1R+-1R5     CHECK 9-0 OVERFLOW (DPC ADD FAILS)                  SCANNER     1067     A     
 SCANNER            MI     X0,CBL2     IF UNITS CHARACTER = 5 (DPC ADD OK)                 SCANNER     1068     A     
 SCANNER            CALL   CDD         CONVERT (X1) BINARY TO (X6) DECIMAL DPC             SCANNER     1069     A     
 SCANNER   CBL2     BX7    X6          (X7) = DPC                                          SCANNER     1070     A     
 SCANNER   CBL3     SA6    FTNCNT      UPDATE DPC                                          SCANNER     1071     A     
 SCANNER            SA7    =XCP.FLIN   DPC OR 10 BLANKS TO SOURCE LISTING BUFFER           SCANNER     1072     A     
 SCANNER                                                                                   SCANNER     1073     A     
 SCANNER  *         INITIALIZE FOR CLASSIFYING LINE.                                       SCANNER     1074     A     
 SCANNER                                                                                   SCANNER     1075     A     
 SCANNER            SA1    =XCP.CARD   (X1) = SOURCE LINE COLS 1-10                        SCANNER     1076     A     
 SCANNER            SA2    L.CARD                                                          SCANNER     1077     A     
 SCANNER            SA4    =10H5555555555   SPECIAL CONSTANT FOR ZERO/BLANK FILL           SCANNER     1078          I
          -FCC1328X 
 SCANNER            SA5    =1H         (X5) = TEN BLANKS (THRU *BURST6*)                   SCANNER     1079     A     
 SCANNER            MX6    0           (X6) = 0 (THRU *CAT6*)                              SCANNER     1080     A     
 SCANNER            SX7    B1          (X7) = 1 (THRU *LABL3*)                             SCANNER     1081     A     
 SCANNER            SB6    X2                                                              SCANNER     1082          I
          -FCC1328X 
 SCANNER            SB6    X2-1        (B6) = NR OF USEABLE WORDS IN SOURCE LINE           FCC1328X     598     A     
 SCANNER  *                              I.E. DOES NOT INCLUDE FULL WORD EOL MARK          FCC1328X     599     A     
 SCANNER            MX2    -6          (X2) = 1-COL EXTRACT MASK (THRU *BURST6*)           SCANNER     1083     A     
 SCANNER            SB7    60-5        (B7) = SHIFT COUNT FOR SPACE FILL                   SCANNER     1084          I
          -FCC1328X 
 SCANNER            SA6    COLS        INITIALIZE COLUMN POINTER                           SCANNER     1085     A     
 SCANNER            SB6    B6-1        (B6) = SOURCE LINE LENGTH - 1                       SCANNER     1086          I
          -FCC1328X 
 SCANNER            SA6    DTYPE       INITIALIZE DEBUG LINE FLAG                          SCANNER     1087          I
          -FEAT121L -FCC1328X 
 SCANNER                                                                                   SCANNER     1088          I
          -FEAT121L -FCC1328X 
 SCANNER  *  BEGIN CLASSIFYING NEW CARD                                                    SCANNER     1089          I
          -FEAT121L -FCC1328X 
 SCANNER                                                                                   FEAT121L     148          I
          -FCC1328X 
 SCANNER  *         BEGIN CLASSIFYING LINE.                                                FEAT121L     149          I
          -FCC1328X 
 SCANNER                                                                                   SCANNER     1090          I
          -FCC1328X 
 SCANNER            NZ     B6,CAT1     IF NOT LAST WORD IN CARD                            SCANNER     1091          I
          -FCC1328X 
 SCANNER            IX3    X1-X7       ? REPLACE ZERO FILL WITH BLANK FILL                 SCANNER     1092          I
          -FCC1328X 
 SCANNER            BX0    -X1*X3      ?                                                   SCANNER     1093          I
          -FCC1328X 
 SCANNER            BX3    X4*X0       ?                                                   SCANNER     1094          I
          -FCC1328X 
 SCANNER            LX0    X3,B7       ?                                                   SCANNER     1095          I
          -FCC1328X 
 SCANNER            IX0    X3-X0       ?                                                   SCANNER     1096          I
          -FCC1328X 
 SCANNER            BX3    X3+X0       ?                                                   SCANNER     1097          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1858    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
          -FCC1328X 
 SCANNER            BX0    X3*X5       ?                                                   SCANNER     1098          I
          -FCC1328X 
 SCANNER            IX1    X1+X0       .... DONE                                           SCANNER     1099          I
          -FCC1328X 
 SCANNER                                                                                   SCANNER     1100     A     
 SCANNER  *  CHECK FOR COLUMNS 1_6 BLANK                                                   SCANNER     1101          I
          -FEAT121L 
 SCANNER  *         CHECK FOR COLUMNS 1-6 BLANK.                                           FEAT121L     150     A     
 SCANNER                                                                                   SCANNER     1102     A     
 SCANNER   CAT1     MX0    6*6                                                             SCANNER     1103          I
          -FCC1328X 
 SCANNER            MX0    6*6                                                             FCC1328X     600     A     
 SCANNER            BX3    X1-X5                                                           SCANNER     1104     A     
 SCANNER            LX1    6*6         RIGHT ADJ COL 6 FOR FALL-THRU TO 'BURST'            SCANNER     1105     A     
 SCANNER            BX3    X0*X3                                                           SCANNER     1106     A     
 SCANNER            NZ     X3,CAT2     IF COLUMNS 1_6 NOT ALL BLANK                        SCANNER     1107     A     
 SCANNER            SA6    CONTCNT     CLEAR CONTINUATION COUNT                            SCANNER     1108     A     
 SCANNER            EQ     LABL3       BYPASS FURTHER ANALYSIS; GO UPDATE LABEL            SCANNER     1109     A     
 SCANNER                                                                                   SCANNER     1110          I
          -FEAT121L 
 SCANNER  *  CHECK FOR DEBUG AND COMMENT CARDS                                             SCANNER     1111          I
          -FEAT121L 
 SCANNER                                                                                   SCANNER     1112          I
          -FEAT121L 
 SCANNER   CAT2     LX1    1*6-6*6     RIGHT ADJUST COLUMN 1                               SCANNER     1113          I
          -FEAT121L 
 SCANNER   #NL      IF     DEF,#NL                                                         FEAT121L     151          I
          -FEAT126B 
 SCANNER   #NL      IFNE   #NL,0                                                           FEAT126B     931     A     
 SCANNER                                                                                   FEAT121L     152     A     
 SCANNER  *         CHECK FOR C/ LINE.                                                     FEAT121L     153     A     
 SCANNER                                                                                   FEAT121L     154     A     
 SCANNER   CAT2     SA3    =6RC/                                                           FEAT121L     155     A     
 SCANNER            MX0    -6*6                                                            FEAT121L     156     A     
 SCANNER            BX3    X1-X3                                                           FEAT121L     157     A     
 SCANNER            NO                                                                     FEAT121L     158     A     
 SCANNER            BX3    -X0*X3                                                          FEAT121L     159     A     
 SCANNER            NZ     X3,CAT2A    IF NOT *C/    * LINE                                FEAT121L     160     A     
 SCANNER            SA6    CONTCNT     CLEAR CONTINUATION COUNT                            FEAT121L     161     A     
 SCANNER            SA7    CSSTMT      SET TO *C/ LINE OCCURRED*                           FEAT121L     162     A     
 SCANNER            EQ     LABL3       IGNORE LABEL...                                     FEAT121L     163          I
          -FEAT126BB
 SCANNER            EQ     BURST1      IGNORE LABEL...                                     FEAT126BB      5     A     
 SCANNER   #NL      ELSE                                                                   FEAT121L     164     A     
 SCANNER   CAT2     BSS    0                                                               FEAT121L     165     A     
 SCANNER   #NL      ENDIF                                                                  FEAT121L     166     A     
 SCANNER                                                                                   FEAT121L     167     A     
 SCANNER  *         CHECK FOR COMMENT (C $ * IN COL 1) LINE.                               FEAT121L     168     A     
 SCANNER                                                                                   FEAT121L     169     A     
 SCANNER   CAT2A    LX1    1*6-6*6     RIGHT JUSTIFY COLUMN 1                              FEAT121L     170     A     
 SCANNER            SA3    COL1MASK    SHIFT TEST MASK FOR C $ *                           SCANNER     1114     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1859    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            BX0    -X2*X1      COLUMN 1 ONLY                                       SCANNER     1115     A     
 SCANNER            SB5    X0+B1       PREVENT MODULO 60 PROBLEM, SEE *COL1MASK*           SCANNER     1116     A     
 SCANNER            SB2    X0-1RC                                                          SCANNER     1117     A     
 SCANNER            LX3    B5                                                              SCANNER     1118     A     
 SCANNER            PL     X3,CAT5     IF NOT ( C $ * ) IN COLUMN 1                        SCANNER     1119     A     
 SCANNER            ZR     B2,CAT2.1   IF ANSI COMMENT LINE (-C- IN COL 1)                 SCANNER     1120          I
          -FEAT121L 
 SCANNER            ZR     B2,CAT2B    IF -C- IN COL 1                                     FEAT121L     171     A     
 SCANNER                                                                                   FEAT121L     172     A     
 SCANNER  *         HERE IF NON-ANSI COMMENT LINE.                                         FEAT121L     173     A     
 SCANNER                                                                                   FEAT121L     174     A     
 SCANNER            SA3    NACOM       INCREMENT NON-ANSI COMMENT LINE COUNT               SCANNER     1121     A     
 SCANNER            SX6    X3+B1                                                           SCANNER     1122     A     
 SCANNER            SA6    A3                                                              SCANNER     1123     A     
 SCANNER   CAT2.1   SA3    DFLAG                                                           SCANNER     1124          I
          -FEAT121L 
 SCANNER                                                                                   FEAT121L     175     A     
 SCANNER  *         CHECK FOR C$ DEBUG LINE.                                               FEAT121L     176     A     
 SCANNER                                                                                   FEAT121L     177     A     
 SCANNER   CAT2B    SA3    DFLAG                                                           FEAT121L     178     A     
 SCANNER            ZR     X3,CAT3     IF DEBUG MODE OFF, IT IS A COMMENT CARD             SCANNER     1125     A     
 SCANNER            SA3    =5RC$                                                           SCANNER     1126     A     
 SCANNER            LX1    -1*6+5*6    RIGHT ADJUST COLUMN 5                               SCANNER     1127     A     
 SCANNER            BX3    X1-X3                                                           SCANNER     1128     A     
 SCANNER            MX0    5*6                                                             SCANNER     1129     A     
 SCANNER            BX3    -X0*X3                                                          SCANNER     1130     A     
 SCANNER            ZR     X3,CAT4     IF DEBUG CARD (AND DEBUG MODE ON)                   SCANNER     1131     A     
 SCANNER                                                                                   SCANNER     1132     A     
 SCANNER  *  PROCESS COMMENT CARD                                                          SCANNER     1133          I
          -FEAT121L 
 SCANNER  *         HERE IF COMMENT LINE.                                                  FEAT121L     179     A     
 SCANNER                                                                                   SCANNER     1134     A     
 SCANNER   CAT3     SA7    NXCOMENT    COMMENT LINE FLAG ON                                SCANNER     1135     A     
 SCANNER            EQ     CBL90       BYPASS FURTHER CLASSIFICATION AND BURSTING          SCANNER     1136     A     
 SCANNER                                                                                   SCANNER     1137     A     
 SCANNER  *  PROCESS DEBUG CARD                                                            SCANNER     1138          I
          -FEAT121L 
 SCANNER                                                                                   SCANNER     1139          I
          -FEAT121L 
 SCANNER   CAT4     SA7    DTYPE       DEBUG CARD FLAG ON                                  SCANNER     1140          I
          -FEAT121L 
 SCANNER            LX1    -5*6+1*6    RIGHT ADJUST COLUMN 1 FOR 'CAT5'                    SCANNER     1141          I
          -FEAT121L 
 SCANNER            BX7    X7-X7       CLEAR CONST FROM X7; FLAG DEBUG FOR 'CAT6'          SCANNER     1142          I
          -FEAT121L 
 SCANNER                                                                                   SCANNER     1143          I
          -FEAT121L 
 SCANNER  *  CHECK FOR CONTINUATION CARD                                                   SCANNER     1144          I
          -FEAT121L 
 SCANNER  *         HERE IF C$ DEBUG LINE.                                                 FEAT121L     180     A     
 SCANNER                                                                                   FEAT121L     181     A     
 SCANNER   CAT4     SA3    C$STMT                                                          FEAT121L     182     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1860    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            LX1    -5*6+1*6    RIGHT JUSTIFY COLUMN 1                              FEAT121L     183     A     
 SCANNER            BX7    -X3                                                             FEAT121L     184     A     
 SCANNER            SA7    A3+         SET TO *NEXT STATEMENT IS C$ DEBUG*                 FEAT121L     185     A     
 SCANNER            MX7    0           SET *THIS STMT IS C$-DEBUG* FLAG FOR *CAT6*         FEAT121L     186     A     
 SCANNER                                                                                   FEAT121L     187     A     
 SCANNER  *         CHECK FOR CONTINUATION LINE.                                           FEAT121L     188     A     
 SCANNER                                                                                   SCANNER     1145     A     
 SCANNER   CAT5     SA3    ZRBLMASK    SHIFT TEST MASK FOR /0/ OR / /                      SCANNER     1146     A     
 SCANNER            LX1    -1*6+6*6    RIGHT ADJUST COLUMN 6                               SCANNER     1147     A     
 SCANNER            BX0    -X2*X1                                                          SCANNER     1148     A     
 SCANNER            SB5    X0                                                              SCANNER     1149     A     
 SCANNER            LX0    X3,B5                                                           SCANNER     1150     A     
 SCANNER            MI     X0,CAT6     IF NOT A CONTINUATION CARD                          SCANNER     1151     A     
 SCANNER                                                                                   SCANNER     1152     A     
 SCANNER  *  PROCESS CONTINUATION CARD                                                     SCANNER     1153          I
          -FEAT121L 
 SCANNER                                                                                   SCANNER     1154          I
          -FEAT121L 
 SCANNER            SA3    CONTCNT     CONTINUATION CARD COUNT                             SCANNER     1155          I
          -FEAT121L 
 SCANNER            SX6    X3+B1                                                           SCANNER     1156          I
          -FEAT121L 
 SCANNER            SA6    A3          COUNT + 1                                           SCANNER     1157          I
          -FEAT121L 
 SCANNER            EQ     BURST1      IGNORE LABEL FIELD                                  SCANNER     1158          I
          -FEAT121L 
 SCANNER                                                                                   SCANNER     1159          I
          -FEAT121L 
 SCANNER  *  PROCESS NON-CONTINUATION CARD                                                 SCANNER     1160          I
          -FEAT121L 
 SCANNER  *         HERE IF CONTINUATION LINE.                                             FEAT121L     189     A     
 SCANNER                                                                                   FEAT121L     190     A     
 SCANNER            SA3    CONTCNT                                                         FEAT121L     191     A     
 SCANNER            SX6    X3+B1       CONTINUATION COUNT + 1                              FEAT121L     192     A     
 SCANNER            SA6    A3                                                              FEAT121L     193     A     
 SCANNER            SA3    C$STMT                                                          FEAT121L     194     A     
 SCANNER            BX0    X3                                                              FEAT121L     195          I
          -FCC2119
 SCANNER            AX0    59                                                              FEAT121L     196          I
          -FCC1872
 SCANNER            ZR     X3,CAT5.5   IF NOT PROCESSING C$-DEBUG                          FCC1872        7     A     
 SCANNER            ZR     X7,CAT5.5   IF C$-DEBUG WITH A C$ IN COLS 1-2                   FCC1872        8     A     
 SCANNER                                                                                   FCC1872        9     A     
 SCANNER            DBGERR (NON-DEBUG CONTINUATION STATEMENT)                              FCC1872       10     A     
 SCANNER            EQ     CBL90                                                           FCC1872       11     A     
 SCANNER                                                                                   FCC1872       12     A     
 SCANNER   CAT5.5   AX0    59                                                              FCC1872       13          I
          -FCC2119
 SCANNER            BX7    X3-X0       (X7) = ABSOLUTE VALUE OF (C$STMT)                   FEAT121L     197          I
          -FCC2119
 SCANNER            SA7    A3                                                              FEAT121L     198          I
          -FCC2119
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1861    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            EQ     BURST1      IGNORE LABEL FIELD...                               FEAT121L     199          I
          -FCC2119
 SCANNER   CAT5.5   PL     X3,BURST1   IF CONTINUATION LINE WITHOUT C$                     FCC2119        7     A     
 SCANNER            SA3    D.CURT                                                          FCC2119        8     A     
 SCANNER            MI     X3,BURST1   IF CURRENT STMT IS C$                               FCC2119        9     A     
 SCANNER            SX7    B1          SET COMMENT LINE FLAG                               FCC2119       10     A     
 SCANNER            EQ     CAT3        IT IS A COMMENT LINE                                FCC2119       11     A     
 SCANNER                                                                                   FEAT121L     200     A     
 SCANNER  *         HERE IF NON-CONTINUATION LINE.                                         FEAT121L     201     A     
 SCANNER                                                                                   SCANNER     1161     A     
 SCANNER   CAT6     SA6    CONTCNT     SET CONTINUATION COUNT TO ZERO                      SCANNER     1162     A     
 SCANNER            ZR     X7,LABL3    IF DEBUG CARD, NO LABEL - BYPASS PACKING            SCANNER     1163     A     
 SCANNER            BX0    X3          SAVE (X3)                                           FCC1469X      13     A     
 SCANNER            SA3    =XDFLAG                                                         FCC1469X      14     A     
 SCANNER            AX3    1                                                               FCC1469X      15     A     
 SCANNER            NZ     X3,BURST1   IF INPUT FILE= EXTERNAL DEBUG FILE ,IGNORE          FCC1469X      16     A     
 SCANNER            BX3    X0          RESTORE (X3)                                        FCC1469X      17     A     
 SCANNER                                                                                   SCANNER     1164     A     
 SCANNER  *  GET CARD LABEL - SUPPRESS BLANKS AND LEADING ZEROS - PACK, BLANK FILL         SCANNER     1165          I
          -FCC1328X 
 SCANNER  *         PACK LABEL IN COLS 1 THRU 5 TO (X6).  BLANKS AND LEADING               FCC1328X     601     A     
 SCANNER  *           ZEROES ARE IGNORED.                                                  FCC1328X     602     A     
 SCANNER                                                                                   SCANNER     1166     A     
 SCANNER            MX7    1R9-1R0+1   DIGIT SHIFT TEST MASK                               SCANNER     1167     A     
 SCANNER            SB5    5           (B5) = COLUMN COUNTER                               SCANNER     1168     A     
 SCANNER            LX7    -1R0        POSITION TEST MASK CORRECTLY                        SCANNER     1169     A     
 SCANNER            SB2    60          PACKING SHIFT COUNTER                               SCANNER     1170     A     
 SCANNER            LX1    -6*6+1*6    RIGHT ADJUST COLUMN 1                               SCANNER     1171     A     
 SCANNER                                                                                   SCANNER     1172     A     
 SCANNER  *  ????   BEGIN 6600 IN-STACK LOOP                                               SCANNER     1173     A     
 SCANNER                                                                                   SCANNER     1174     A     
 SCANNER   LABL1    ZR     B5,LABL2    IF COLUMNS 1-5 PROCESSED                            SCANNER     1175     A     
 SCANNER            BX0    -X2*X1      NEXT COLUMN                                         SCANNER     1176     A     
 SCANNER            LX1    1*6                                                             SCANNER     1177     A     
 SCANNER            SB4    X0                                                              SCANNER     1178     A     
 SCANNER            SB5    B5-1        COLUMN COUNT - 1                                    SCANNER     1179     A     
 SCANNER            LX0    X3,B4       ZERO/BLANK TEST MASK                                SCANNER     1180     A     
 SCANNER            MI     X0,LABL1    IF BLANK OR LEADING ZERO                            SCANNER     1181     A     
 SCANNER            LX0    X7,B4       DIGIT TEST MASK                                     SCANNER     1182     A     
 SCANNER            SX3    B4                                                              SCANNER     1183     A     
 SCANNER            SB2    B2-6        PACKING SHIFT COUNT - 6                             SCANNER     1184     A     
 SCANNER            LX3    B2,X3                                                           SCANNER     1185     A     
 SCANNER            BX6    X6+X3                                                           SCANNER     1186     A     
 SCANNER            SX3    1BS14       TURN OFF LEADING ZERO SUPPRESS BIT IN MASK          SCANNER     1187     A     
 SCANNER            MI     X0,LABL1    IF A LEGAL DIGIT                                    SCANNER     1188     A     
 SCANNER                                                                                   SCANNER     1189     A     
 SCANNER  *  ILLEGAL CHARACTER IN LABEL FIELD                                              SCANNER     1190     A     
 SCANNER                                                                                   SCANNER     1191     A     
 SCANNER            MX3    60          PREVENT FURTHER PACKING                             SCANNER     1192     A     
 SCANNER            BX6    X6-X6       CLEAR PACKING REGISTER                              SCANNER     1193     A     
 SCANNER            SA7    BADLABL     BAD LABEL FLAG ON                                   SCANNER     1194     A     
 SCANNER            EQ     LABL1       CONTINUE SCAN SO X1 POSITIONED CORRECTLY            SCANNER     1195     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1862    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER                                                                                   SCANNER     1196     A     
 SCANNER  *  ''''   END IN-STACK LOOP                                                      SCANNER     1197     A     
 SCANNER                                                                                   SCANNER     1198     A     
 SCANNER  *  FINAL LABEL PROCESSING                                                        SCANNER     1199     A     
 SCANNER                                                                                   SCANNER     1200     A     
 SCANNER   LABL2    ZR     X6,LABL3    IF BAD LABEL, BYPASS BLANK FILL                     SCANNER     1201          I
          -FCC1328X 
 SCANNER   LABL2    SA4    =40404040404040404040B                                          FCC1328X     603     A     
 SCANNER            SB7    60-5        (B7) = RIGHT CIRCULAR SHIFT 5 BITS                  FCC1328X     604     A     
 SCANNER            ZR     X6,LABL3    IF BAD LABEL, BYPASS BLANK FILL...                  FCC1328X     605     A     
 SCANNER            SX7    B1          REPLACE ZERO FILL WITH BLANK FILL                   SCANNER     1202     A     
 SCANNER            IX3    X6-X7       ?                                                   SCANNER     1203     A     
 SCANNER            BX0    -X6*X3      ?                                                   SCANNER     1204     A     
 SCANNER            NO                 ?                                                   SCANNER     1205     A     
 SCANNER            BX3    X4*X0       ?                                                   SCANNER     1206     A     
 SCANNER            LX0    X3,B7       ?                                                   SCANNER     1207     A     
 SCANNER            IX7    X3-X0       ?                                                   SCANNER     1208     A     
 SCANNER            BX3    X3+X7       ?                                                   SCANNER     1209     A     
 SCANNER            BX0    X3*X5       ?                                                   SCANNER     1210     A     
 SCANNER            IX6    X6+X0       .... DONE                                           SCANNER     1211     A     
 SCANNER                                                                                   SCANNER     1212     A     
 SCANNER   LABL3    SA3    NLABEL                                                          SCANNER     1213     A     
 SCANNER            SB0    B0+                                                             SCANNER     1214     A     
 SCANNER            BX7    X3                                                              SCANNER     1215     A     
 SCANNER            SA6    A3          NEW LABEL (NEXT CARD)                               SCANNER     1216     A     
 SCANNER            SA7    CLABEL      PREVIOUS LABEL                                      SCANNER     1217     A     
 SCANNER                                                                                   SCANNER     1218     A     
 SCANNER  *  BURST CARD COLUMNS 7-72 INTO STRING BUFFER; SQUEEZE OUT BLANKS                SCANNER     1219     A     
 SCANNER                                                                                   SCANNER     1220     A     
 SCANNER   BURST1   MX3    1           10-CHARACTER BURST SHIFT COUNTER                    SCANNER     1221     A     
 SCANNER            SB4    7                                                               SCANNER     1222     A     
 SCANNER            SB2    B0          BLANK COUNTER                                       SCANNER     1223     A     
 SCANNER            LX3    -4*6        INIT 10-CHR COUNTER FOR 4 COLUMNS (7_10)            SCANNER     1224     A     
 SCANNER            LE     B6,B4,BURST1A     IF LINE HAD 80 OR FEWER COLUMNS               SCANNER     1225     A     
 SCANNER            SB6    B4          LIMIT BURST TO 7 MORE WORDS                         SCANNER     1226     A     
 SCANNER   BURST1A  SB5    -1R         (B5) = COMPLEMENTED BLANK                           SCANNER     1227     A     
 SCANNER            SA6    SBUFF-1     INITIALIZE BUFFER STORE POINTER                     SCANNER     1228     A     
 SCANNER            SB3    70-7+1      COLS LEFT CNTR (INIT 2 LOW FOR COL 70 TEST)         SCANNER     1229          I
          -FCC1328X 
 SCANNER            SB3    72-7+1      (B3) = NR OF COLS REMAINING ON CARD/LINE            FCC1328X     606     A     
 SCANNER            SX7    1                                                               SCANNER     1230     A     
 SCANNER                                                                                   SCANNER     1231     A     
 SCANNER  *  ????   BEGIN 6600 IN-STACK LOOP                                               SCANNER     1232     A     
 SCANNER                                                                                   SCANNER     1233     A     
 SCANNER   BURST2   LX1    1*6         RIGHT JUSTIFY NEXT COLUMN                           SCANNER     1234     A     
 SCANNER            SB2    B2+B1       BLANK COUNT + 1                                     SCANNER     1235     A     
 SCANNER            BX6    -X2*X1                                                          SCANNER     1236     A     
 SCANNER            SB4    X6+B5                                                           SCANNER     1237     A     
 SCANNER            LX3    6           BURST COUNT MASK                                    SCANNER     1238     A     
 SCANNER            SB3    B3-B1       COLUMN COUNT - 1                                    SCANNER     1239     A     
 SCANNER            ZR     B4,BURST3   IF BLANK COLUMN, BYPASS STORING IN 'SBUFF'          SCANNER     1240     A     
 SCANNER            PX6    X6,B2       PACK COLUMN AND (LEADING BLANK COUNT + 1)           SCANNER     1241     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1863    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            SB2    B0+         LEADING BLANK COUNT = 0                             SCANNER     1242     A     
 SCANNER            SA6    A6+B1       NON-BLANK COLUMN TO STRING BUFFER                   SCANNER     1243     A     
 SCANNER   BURST3   PL     X3,BURST2   IF WORD NOT FULLY BURST                             SCANNER     1244     A     
 SCANNER            SB4    10          CONSTANT FOR 'BURST5'                               SCANNER     1245     A     
 SCANNER                                                                                   SCANNER     1246     A     
 SCANNER   BURST4   SB6    B6-B1       WORD COUNT - 1                                      SCANNER     1247     A     
 SCANNER            SA1    A1+B1       (X1) = NEXT 10 SOURCE COLUMNS                       SCANNER     1248     A     
 SCANNER            LE     B6,BURST6   IF LAST SOURCE WORD OR ONE BEYOND (FINIS)           SCANNER     1249     A     
 SCANNER                                                                                   SCANNER     1250     A     
 SCANNER   BURST5   IX0    X1-X5       SUBTRACT FULL WORD OF BLANKS                        SCANNER     1251     A     
 SCANNER            NZ     X0,BURST2   IF WORD NOT ALL BLANK                               SCANNER     1252     A     
 SCANNER            SB2    B2+B4       BLANK COUNT + 10                                    SCANNER     1253     A     
 SCANNER            SB3    B3-B4       COLUMN COUNT - 10                                   SCANNER     1254     A     
 SCANNER            EQ     BURST4      GET NEXT WORD                                       SCANNER     1255     A     
 SCANNER                                                                                   SCANNER     1256     A     
 SCANNER  *  ''''   END IN-STACK LOOP                                                      SCANNER     1257     A     
 SCANNER                                                                                   SCANNER     1258     A     
 SCANNER   BURST6   LT     B6,CRDEND   IF WORD JUST BURST WAS LAST WORD                    SCANNER     1259          I
          -FCC1328X 
 SCANNER            SB4    B2          TEMP SAVE B2                                        SCANNER     1260          I
          -FCC1328X 
 SCANNER            UX6    B2,X6       LAST COLUMN STORED                                  SCANNER     1261          I
          -FCC1328X 
 SCANNER            BX6    X1+X6       FINAL WORD + LAST COLUMN                            SCANNER     1262          I
          -FCC1328X 
 SCANNER            IX3    X1-X7       ?  REPLACE ZERO FILL WITH BLANK FILL                SCANNER     1263          I
          -FCC1328X 
 SCANNER            SB7    60-5        ?                                                   SCANNER     1264          I
          -FCC1328X 
 SCANNER            ZR     X6,CRDEND   IF E-O-L TERMINATOR SPLIT ACROSS LAST 2 WDS         SCANNER     1265          I
          -FCC1328X 
 SCANNER            SB2    B4          RESTORE B2                                          SCANNER     1266          I
          -FCC1328X 
 SCANNER            BX0    -X1*X3      ?                                                   SCANNER     1267          I
          -FCC1328X 
 SCANNER            BX3    X4*X0       ?                                                   SCANNER     1268          I
          -FCC1328X 
 SCANNER            LX0    X3,B7       ?                                                   SCANNER     1269          I
          -FCC1328X 
 SCANNER            IX6    X3-X0       ?                                                   SCANNER     1270          I
          -FCC1328X 
 SCANNER            BX3    X3+X6       ?                                                   SCANNER     1271          I
          -FCC1328X 
 SCANNER            BX0    X3*X5       ?                                                   SCANNER     1272          I
          -FCC1328X 
 SCANNER            IX1    X1+X0       .... DONE                                           SCANNER     1273          I
          -FCC1328X 
 SCANNER                                                                                   SCANNER     1274          I
          -FCC1328X 
 SCANNER  *  LIMIT BURST TO COLUMN 72                                                      SCANNER     1275          I
          -FCC1328X 
 SCANNER                                                                                   SCANNER     1276          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1864    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
          -FCC1328X 
 SCANNER            NZ     B3,BURST5   IF NEXT 10 COLUMNS ARE NOT 71_80                    SCANNER     1277          I
          -FCC1328X 
 SCANNER            MX0    2*6                                                             SCANNER     1278          I
          -FCC1328X 
 SCANNER            BX3    -X0+X3      FORCE BURST COUNTING MASK TO STOP AT COL 73         SCANNER     1279          I
          -FCC1328X 
 SCANNER            EQ     BURST2      (CANT USE ALL-BLANK CHECK; +10 INCR WRONG)          SCANNER     1280          I
          -FCC1328X 
 SCANNER                                                                                   SCANNER     1281          I
          -FCC1328X 
 SCANNER  *  END-OF-CARD PROCESSING - SET E-O-C SENTINEL (-1 WITH BLNK CNT PACK)           SCANNER     1282          I
          -FCC1328X 
 SCANNER                                                                                   SCANNER     1283          I
          -FCC1328X 
 SCANNER   CRDEND   SB3    B3+3        ADJUST COLS LEFT CNTR FOR COL 72 PLUS ONE           SCANNER     1284          I
          -FCC1328X 
 SCANNER            MX0    -1                                                              SCANNER     1285          I
          -FCC1328X 
 SCANNER            SB2    B2+B3       BLANK + COL CNT (BURST MAY STOP BEFORE C72)         SCANNER     1286          I
          -FCC1328X 
 SCANNER            PX6    X0,B2       PACK TRAILING BLANK COUNT WITH SENTINEL             SCANNER     1287          I
          -FCC1328X 
 SCANNER            SA6    A6-B6       STORE IN STRING BUFFER.  NOTE THAT B6               SCANNER     1288          I
          -FCC1328X 
 SCANNER  *                CONTAINS -1 IF THE 12-BIT ZERO BYTE LINE TERMINATOR WAS         SCANNER     1289          I
          -FCC1328X 
 SCANNER  *                COMPLETE IN ONE WORD.  IF, HOWEVER, THE ZERO BYTE WAS           SCANNER     1290          I
          -FCC1328X 
 SCANNER  *                SPLIT ACROSS A WORD BOUNDARY, B6 WILL CONTAIN 0.  THIS          SCANNER     1291          I
          -FCC1328X 
 SCANNER  *                INSTRUCTION WILL THEN OVERWRITE THE COLON (00B) THAT            SCANNER     1292          I
          -FCC1328X 
 SCANNER  *                WAS WRITTEN TO 'SBUFF' BY THE BURST LOOP AT 'BURST2'.           SCANNER     1293          I
          -FCC1328X 
 SCANNER  *         HERE IF NO MORE SOURCE WORDS TO BURST --                               FCC1328X     607     A     
 SCANNER  *           1. IF COLS 71-72 ARE AVAILABLE, GO BACK AND BURST THEM .OR.          FCC1328X     608     A     
 SCANNER  *           2. IF COLS 71-72 ARE NOT AVAILABLE (LINE ENDED BEFORE                FCC1328X     609     A     
 SCANNER  *                COL 71) OR HAVE ALREADY BEEN BURST, THEN DONE...                FCC1328X     610     A     
 SCANNER                                                                                   FCC1328X     611     A     
 SCANNER   BURST6   ZR     X1,CRDEND   IF EOL ENCOUNTERED, SOURCE LINE EXHAUSTED           FCC1328X     612     A     
 SCANNER            MI     B6,CRDEND   IF JUST FINISHED BURSTING COLS 71 AND 72            FCC1328X     613     A     
 SCANNER            LX3    -2*CHAR     LIMIT BURST TO 2 CHARS                              FCC1328X     614     A     
 SCANNER            EQ     BURST2      GO BACK FOR COLS 71-72                              FCC1328X     615     A     
 SCANNER                                                                                   FCC1328X     616     A     
 SCANNER  *         HERE TO MARK END-OF-STRING BUFFER.                                     FCC1328X     617     A     
 SCANNER                                                                                   FCC1328X     618     A     
 SCANNER   CRDEND   SB3    B3+B1       (B3) = NR OF COLS REMAINING ON LINE + 1             FCC1328X     619     A     
 SCANNER            MX0    -1                                                              FCC1328X     620     A     
 SCANNER            SB2    B2+B3       (B2) = NR OF BLANKS (55B) BETWEEN LAST NON-         FCC1328X     621     A     
 SCANNER  *                                     BLANK CHAR ON LINE AND COL 72  + 1         FCC1328X     622     A     
 SCANNER            PX6    B2,X0       (X6) = 12/-(LBC+2001B),48/-1                        FCC1328X     623     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1865    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            SA6    A6+B1                                                           FCC1328X     624     A     
 SCANNER                                                                                   SCANNER     1294     A     
 SCANNER  *  UPDATE BINARY AND DISPLAY-CODED LINE NUMBERS                                  SCANNER     1295          I
          -FEAT121L 
 SCANNER  *         CHECK C/ LINE FOR LIST DIRECTIVE.                                      FEAT121L     202     A     
 SCANNER                                                                                   FEAT121L     203     A     
 SCANNER            RJ     CLO         CHECK FOR C/-LIST OPTION                            FEAT121L     204     A     
 SCANNER                                                                                   SCANNER     1296     A     
 SCANNER  *         PREPARE FOR RETURN TO CALLER.                                          SCANNER     1297     A     
 SCANNER                                                                                   SCANNER     1298     A     
 SCANNER   CBL90    SA5    NXCOMENT                                                        SCANNER     1299          I
          -FCC2119
 SCANNER   CBL90    SA3    C$STMT                                                          FCC2119       12     A     
 SCANNER            BX6    X3                                                              FCC2119       13     A     
 SCANNER            SA6    D.CURT                                                          FCC2119       14     A     
 SCANNER            SA2    CONTCNT                                                         FCC2119       15     A     
 SCANNER            ZR     X2,CBL91    IF NOT CONTINUATION LINE                            FCC2119       16     A     
 SCANNER            BX0    X3                                                              FCC2119       17     A     
 SCANNER            AX0    59                                                              FCC2119       18     A     
 SCANNER            BX6    X3-X0       (X6) = ABSOULTE VALUE OF (DTYPE)                    FCC2119       19     A     
 SCANNER            SA6    A3                                                              FCC2119       20     A     
 SCANNER   CBL91    SA5    NXCOMENT                                                        FCC2119       21     A     
 SCANNER            MX6    60D                                                             SCANNER     1300     A     
 SCANNER            SA6    A5          TENTATIVELY SET *PRIOR COMMENT* STATUS              SCANNER     1301     A     
 SCANNER            NZ     X5,EXIT.    IF COMMENT LINE                                     SCANNER     1302     A     
 SCANNER            SA1    CONTCNT                                                         SCANNER     1303     A     
 SCANNER            MX6    0                                                               SCANNER     1304     A     
 SCANNER            SA6    A5          SET *NO PRIOR COMMENT* STATUS                       SCANNER     1305     A     
 SCANNER            ZR     X1,CBL95    IF NOT CONTINUATION LINE                            SCANNER     1306     A     
 SCANNER            PL     X5,CBL95    IF CONTINUATION NOT PRECEDED BY COMMENT             SCANNER     1307     A     
 SCANNER            POSTERR   SEV=ANSI,NR=E207                                             SCANNER     1308     A     
 SCANNER            SB1    1                                                               SCANNER     1309     A     
 SCANNER   CBL95    SA4    NLABEL                                                          SCANNER     1310     A     
 SCANNER            SA5    BADLABL                                                         SCANNER     1311     A     
 SCANNER            SA1    SBUFF                                                           SCANNER     1312     A     
 SCANNER            SA2    CONTCNT                                                         SCANNER     1313     A     
 SCANNER            SA3    DTYPE                                                           SCANNER     1314     A     
 SCANNER            BX4    X4+X5                                                           SCANNER     1315     A     
 SCANNER            MX5    0                                                               SCANNER     1316     A     
 SCANNER            SB5    1                                                               SCANNER     1317     A     
 SCANNER            EQ     EXIT.                                                           SCANNER     1318     A     
 SCANNER   CLO      SPACE  4,8                                                             FEAT121L     205     A     
 SCANNER   #NL      IF     DEF,#NL                                                         FEAT121L     206          I
          -FEAT126B 
 SCANNER   #NL      IFNE   #NL,0                                                           FEAT126B     932     A     
 SCANNER  **        CLO - CHECK FOR C/-LIST OPTION.                                        FEAT121L     207     A     
 SCANNER  *                                                                                FEAT121L     208     A     
 SCANNER  *                IF THIS LINE HAD A *C/    * IN COLUMNS 1-6,                     FEAT121L     209     A     
 SCANNER  *         PACK UP TO 10 CHARACTERS FROM THE STRING BUFFER (SBUFF) AND            FEAT121L     210     A     
 SCANNER  *         CHECK FOR THE OCCURRENCE OF --                                         FEAT121L     211     A     
 SCANNER  *         1) LIST,ALL                                                            FEAT121L     212     A     
 SCANNER  *         2) LIST,NONE                                                           FEAT121L     213     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1866    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *         FOLLOWED BY AN END-OF-LINE MARK.                                       FEAT121L     214     A     
 SCANNER  *                                                                                FEAT121L     215     A     
 SCANNER  *                                                                                FEAT121L     216     A     
 SCANNER  *         ENTRY  (CSSTMT)   = .NZ. IF C/ LINE OCCURRED, ELSE .ZR.                FEAT121L     217     A     
 SCANNER  *                (B1)       =  1                                                 FEAT121L     218     A     
 SCANNER  *                                                                                FEAT121L     219     A     
 SCANNER  *         EXIT   (CSSTMT)   = 1S59 IF C/-LIST,ALL OCCURRED                       FEAT121L     220     A     
 SCANNER  *                           =  1   IF C/-LIST,NONE OCCURRED                      FEAT121L     221     A     
 SCANNER  *                           = +0   IF C/ LINE DID NOT OCCUR OR IF LEGAL          FEAT121L     222     A     
 SCANNER  *                                    C/-LIST DIRECTIVE DID NOT OCCUR             FEAT121L     223     A     
 SCANNER  *                (NXCOMENT) =  1   IF LEGAL C/-LIST DIRECTIVE DID NOT            FEAT121L     224     A     
 SCANNER  *                                    OCCUR, THEN LINE BECOMES A LEGAL            FEAT121L     225     A     
 SCANNER  *                                    COMMENT.                                    FEAT121L     226     A     
 SCANNER  *                                                                                FEAT121L     227     A     
 SCANNER  *         USES   X - 0,1,2,3,4,6,7                                               FEAT121L     228     A     
 SCANNER  *                A - 1,2,3,4,6,7                                                 FEAT121L     229     A     
 SCANNER  *                B - 6                                                           FEAT121L     230     A     
 SCANNER  *                                                                                FEAT121L     231     A     
 SCANNER  *         CALLS  NONE                                                            FEAT121L     232     A     
 SCANNER                                                                                   FEAT121L     233     A     
 SCANNER                                                                                   FEAT121L     234     A     
 SCANNER   CLO      SUBR               ** ENTRY/EXIT **                                    FEAT121L     235     A     
 SCANNER            SA1    CSSTMT                                                          FEAT121L     236     A     
 SCANNER            SA2    SBUFF                                                           FEAT121L     237     A     
 SCANNER            ZR     X1,EXIT.    IF NOT A C/ LINE                                    FEAT121L     238     A     
 SCANNER            SB6    9                                                               FEAT121L     239     A     
 SCANNER            BX6    X6-X6       (X6) = PACKING REGISTER                             FEAT121L     240     A     
 SCANNER            SX7    1                                                               FEAT121L     241     A     
 SCANNER                                                                                   FEAT121L     242     A     
 SCANNER  *         PACK UP TO 10 CHARACTERS FROM *SBUFF* TO X6.                           FEAT121L     243     A     
 SCANNER                                                                                   FEAT121L     244     A     
 SCANNER   CLO2     MI     X2,CLO3     IF EOL SENTINEL                                     FEAT121L     245     A     
 SCANNER            SX2    X2+                                                             FEAT121L     246     A     
 SCANNER            LX6    6                                                               FEAT121L     247     A     
 SCANNER            SB6    B6-1                                                            FEAT121L     248     A     
 SCANNER            BX6    X6+X2                                                           FEAT121L     249     A     
 SCANNER            SA2    A2+1                                                            FEAT121L     250     A     
 SCANNER            PL     B6,CLO2     IF STILL ROOM IN PACKING REGISTER                   FEAT121L     251     A     
 SCANNER                                                                                   FEAT121L     252     A     
 SCANNER  *         CHECK FOR LEGAL LIST DIRECTIVE.                                        FEAT121L     253     A     
 SCANNER                                                                                   FEAT121L     254     A     
 SCANNER   CLO3     SA3    =R.LIST,ALL.                                                    FEAT121L     255     A     
 SCANNER            SA4    =R.LIST,NONE.                                                   FEAT121L     256     A     
 SCANNER            BX0    X6-X3                                                           FEAT121L     257     A     
 SCANNER            ZR     X0,CLO4     IF *LIST,ALL*                                       FEAT121L     258     A     
 SCANNER            BX0    X6-X4                                                           FEAT121L     259     A     
 SCANNER            ZR     X0,CLO5     IF *LIST,NONE*                                      FEAT121L     260     A     
 SCANNER                                                                                   FEAT121L     261     A     
 SCANNER  *         HERE IF COMMENT LINE.                                                  FEAT121L     262     A     
 SCANNER                                                                                   FEAT121L     263     A     
 SCANNER            SA7    NXCOMENT    SET TO *COMMENT LINE* STATUS                        FEAT121L     264     A     
 SCANNER            MX6    0                                                               FEAT121L     265     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1867    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            SA6    A1          SET TO *NOT A C/-LIST DIRECTIVE*                    FEAT121L     266     A     
 SCANNER            EQ     EXIT.                                                           FEAT121L     267     A     
 SCANNER                                                                                   FEAT121L     268     A     
 SCANNER  *         HERE IF *LIST,ALL* OCCURRED.                                           FEAT121L     269     A     
 SCANNER                                                                                   FEAT121L     270     A     
 SCANNER   CLO4     MX7    1                                                               FEAT121L     271     A     
 SCANNER            SA7    A1          SET TO *LIST,ALL OCCURRED*                          FEAT121L     272     A     
 SCANNER            EQ     EXIT.                                                           FEAT121L     273          I
          -FEAT126BB
 SCANNER            EQ     CLO6                                                            FEAT126BB      6     A     
 SCANNER                                                                                   FEAT121L     274     A     
 SCANNER  *         HERE IF *LIST,NONE* OCCURRED.                                          FEAT121L     275     A     
 SCANNER                                                                                   FEAT121L     276     A     
 SCANNER   CLO5     SA7    A1          SET TO *LIST,NONE OCCURRED*                         FEAT121L     277          I
          -FEAT126BB
 SCANNER            EQ     EXIT.                                                           FEAT121L     278          I
          -FEAT126BB
 SCANNER   CLO5     SX7    1                                                               FEAT126BB      7     A     
 SCANNER            SA7    A1+         SET TO *LIST,NONE OCCURRED*                         FEAT126BB      8     A     
 SCANNER                                                                                   FEAT126BB      9     A     
 SCANNER  *         HERE TO MAKE *NLABEL/CLABEL* TRANSFER.                                 FEAT126BB     10     A     
 SCANNER                                                                                   FEAT126BB     11     A     
 SCANNER   CLO6     SA1    NLABEL                                                          FEAT126BB     12     A     
 SCANNER            MX6    0                                                               FEAT126BB     13     A     
 SCANNER            BX7    X1                                                              FEAT126BB     14     A     
 SCANNER            SA6    A1+                                                             FEAT126BB     15     A     
 SCANNER            SA7    CLABEL                                                          FEAT126BB     16     A     
 SCANNER            EQ     EXIT.                                                           FEAT126BB     17     A     
 SCANNER   #NL      ELSE                                                                   FEAT121L     279     A     
 SCANNER   CLO      SUBR                                                                   FEAT121L     280     A     
 SCANNER            EQ     EXIT.                                                           FEAT121L     281     A     
 SCANNER   #NL      ENDIF                                                                  FEAT121L     282     A     
 SCANNER   DEL  SPACE   4,8                                                                SCANNER     1319     A     
 SCANNER  **        DEL - DUMP E-LIST.                                                     SCANNER     1320     A     
 SCANNER  *                                                                                SCANNER     1321     A     
 SCANNER  *                SETS UP PARAMETER LIST AND CALLS FORTRAN SUBROUTINE             SCANNER     1322     A     
 SCANNER  *         TO PRODUCE FORMATTED DUMP OF E-LIST.                                   SCANNER     1323     A     
 SCANNER  *                                                                                SCANNER     1324     A     
 SCANNER  *                                                                                SCANNER     1325     A     
 SCANNER  *         ENTRY  (X6) = 1 FOR FULL DUMP, = 0 FOR ERRORS DUMP ONLY                SCANNER     1326     A     
 SCANNER  *                (X7) = 1 TO REQUEST *EOS* PRESENCE TEST, ELSE = 0               SCANNER     1327     A     
 SCANNER  *                                                                                SCANNER     1328     A     
 SCANNER  *         EXIT   E-LIST DUMPED.                                                  SCANNER     1329     A     
 SCANNER  *                (B1) = 1                                                        SCANNER     1330     A     
 SCANNER  *                                                                                SCANNER     1331     A     
 SCANNER  *         USES   X - 1, 2, 3, 4, 6, 7                                            SCANNER     1332     A     
 SCANNER  *                A - 1, 2, 3, 6, 7                                               SCANNER     1333     A     
 SCANNER  *                B - 1                                                           SCANNER     1334     A     
 SCANNER  *                                                                                SCANNER     1335     A     
 SCANNER  *         CALLS  DMPELST                                                         SCANNER     1336     A     
 SCANNER                                                                                   SCANNER     1337     A     
 SCANNER                                                                                   SCANNER     1338     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1868    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER   .T       IFNE   TEST,0                                                          SCANNER     1339     A     
 SCANNER            QUAL   DEL                                                             SCANNER     1340     A     
 SCANNER                                                                                   SCANNER     1341     A     
 SCANNER   DEL      SUBR               ** ENTRY/EXIT **                                    SCANNER     1342     A     
 SCANNER            SA6    LISTCMD                                                         SCANNER     1343     A     
 SCANNER            SA7    EOSCHK                                                          SCANNER     1344     A     
 SCANNER            SA1    ELAST       (X1) = INVERTED LWA OF E-LIST                       SCANNER     1345     A     
 SCANNER            SA2    SELIST      (X2) = INVERTED FWA OF E-LIST                       SCANNER     1346     A     
 SCANNER            SA3    LELIST      (X3) = INVERTED FWA OF  LOG *IF* E-LIST             SCANNER     1347     A     
 SCANNER            BX6    X1                                                              SCANNER     1348     A     
 SCANNER            MX4    -1                                                              SCANNER     1349     A     
 SCANNER            SA6    FWAEL                                                           SCANNER     1350     A     
 SCANNER            IX1    X1+X4                                                           SCANNER     1351     A     
 SCANNER            IX7    X2-X1       (X7) = LENGTH OF ALL E-LIST                         SCANNER     1352     A     
 SCANNER            SA7    LENEL                                                           SCANNER     1353     A     
 SCANNER            IX6    X3-X1       (X6) = LENGTH OF E-LIST FOR LOG *IF* TARGET         SCANNER     1354     A     
 SCANNER            SA6    LENLEL                                                          SCANNER     1355     A     
 SCANNER            SA1    DELA        (A1,X1) = PARAMETER LIST                            SCANNER     1356     A     
 SCANNER            CALL   DMPELST     DUMP E-LIST                                         SCANNER     1357     A     
 SCANNER            SB1    1                                                               SCANNER     1358     A     
 SCANNER            EQ     EXIT.                                                           SCANNER     1359     A     
 SCANNER                                                                                   SCANNER     1360     A     
 SCANNER                                                                                   SCANNER     1361     A     
 SCANNER                                                                                   SCANNER     1362     A     
 SCANNER  *         PARAMETER LIST FOR FORTRAN SUBROUTINE *DMPELST*.                       SCANNER     1363     A     
 SCANNER                                                                                   SCANNER     1364     A     
 SCANNER   DELA     BSS    0                                                               SCANNER     1365     A     
 SCANNER            CON    TYPE                                                            SCANNER     1366     A     
 SCANNER            CON    ATYPE                                                           SCANNER     1367     A     
 SCANNER            CON    LTYPE                                                           SCANNER     1368     A     
 SCANNER            CON    CLABEL                                                          SCANNER     1369     A     
 SCANNER            CON    NLABEL                                                          SCANNER     1370     A     
 SCANNER   FWAEL    BSSZ   1           = (ELAST)                                           SCANNER     1371     A     
 SCANNER            CON    1           ADDR OF RA+1                                        SCANNER     1372     A     
 SCANNER            BSSZ   1                                                               FEAT121L     283     A     
 SCANNER                                                                                   SCANNER     1373     A     
 SCANNER            USE    /DMPEL/                                                         SCANNER     1374     A     
 SCANNER   EOSCHK   BSSZ   1                                                               SCANNER     1375     A     
 SCANNER   LENEL    BSSZ   1                                                               SCANNER     1376     A     
 SCANNER   LENLEL   BSSZ   1                                                               SCANNER     1377     A     
 SCANNER   LISTCMD  BSSZ   1                                                               SCANNER     1378     A     
 SCANNER            USE    *                                                               SCANNER     1379     A     
 SCANNER   SEL      SPACE  4,8                                                             SCANNER     1380     A     
 SCANNER  **        SEL - SNAP E-LIST.                                                     SCANNER     1381     A     
 SCANNER  *                                                                                SCANNER     1382     A     
 SCANNER  *                EXTENSION OF *DEL* FOR SNAPPING E-LIST WITH THE *ELIST*         SCANNER     1383     A     
 SCANNER  *         MACRO DEFINED IN *FTNTEXT*.  PROVIDES TRACEBACK TO THE ORIGIN          SCANNER     1384     A     
 SCANNER  *         OF THE SNAP CALL.  SAVES AND RESTORES ALL REGISTERS.                   SCANNER     1385     A     
 SCANNER  *                                                                                SCANNER     1386     A     
 SCANNER  *         ENTRY  NONE                                                            SCANNER     1387     A     
 SCANNER  *                                                                                SCANNER     1388     A     
 SCANNER  *         EXIT   NONE                                                            SCANNER     1389     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1869    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *                                                                                SCANNER     1390     A     
 SCANNER  *         USES   NONE.  ALL REGISTERS ARE SAVED AND RESTORED.                    SCANNER     1391     A     
 SCANNER  *                                                                                SCANNER     1392     A     
 SCANNER  *         CALLS  DEL, RESET=, SNAP=                                              SCANNER     1393     A     
 SCANNER                                                                                   SCANNER     1394     A     
 SCANNER                                                                                   SCANNER     1395     A     
 SCANNER   SEL      SUBR               ** ENTRY/EXIT **                                    SCANNER     1396     A     
 SCANNER            CALL   SAVE=       SAVE ALL REGISTERS                                  SCANNER     1397     A     
 SCANNER            SA1    EXIT.                                                           SCANNER     1398     A     
 SCANNER            SX6    1                                                               SCANNER     1399     A     
 SCANNER            SB1    X6                                                              SCANNER     1400     A     
 SCANNER            LX6    30                                                              SCANNER     1401     A     
 SCANNER            IX7    X1+X6       ADVANCE EXIT ADDRESS PAST BCD PARAMETER             SCANNER     1402     A     
 SCANNER            AX1    30                                                              SCANNER     1403     A     
 SCANNER            SA7    A1                                                              SCANNER     1404     A     
 SCANNER            SA2    X1          FETCH BCD                                           SCANNER     1405     A     
 SCANNER            SX1    X1-1        ADDRESS OF ORIGIN OF DUMP REQUEST                   SCANNER     1406     A     
 SCANNER            BX6    X2                                                              SCANNER     1407     A     
 SCANNER            NO                                                                     SCANNER     1408     A     
 SCANNER            SA6    SELB        BCD TO DUMP HEADER                                  SCANNER     1409     A     
 SCANNER            SB7    SEL2        (B7) = *FRA* RETURN ADDRESS                         SCANNER     1410     A     
 SCANNER            EQ     =XFRA=      FIND RELATIVE ADDRESS                               SCANNER     1411     A     
 SCANNER                                                                                   SCANNER     1412     A     
 SCANNER   SEL2     SA6    SELC                                                            SCANNER     1413     A     
 SCANNER            NO                                                                     SCANNER     1414     A     
 SCANNER            SA7    A6+B1                                                           SCANNER     1415     A     
 SCANNER            LISTL  SELA,L.SELA LIST ORIGIN OF CALL                                 SCANNER     1416     A     
 SCANNER            SX6    B1          REQUEST FULL DUMP                                   SCANNER     1417     A     
 SCANNER            MX7    0           REQUEST NO TEST FOR *EOS* PRESENCE                  SCANNER     1418     A     
 SCANNER            RJ     DEL         DUMP E-LIST                                         SCANNER     1419     A     
 SCANNER            CALL   RESET=      RESTORE REGISTERS                                   SCANNER     1420     A     
 SCANNER            EQ     EXIT.                                                           SCANNER     1421     A     
 SCANNER                                                                                   SCANNER     1422     A     
 SCANNER                                                                                   SCANNER     1423     A     
 SCANNER                                                                                   SCANNER     1424     A     
 SCANNER   SELA     DATA   H. .                                                            SCANNER     1425     A     
 SCANNER   SELB     DATA   H.CALLER BCD.                                                   SCANNER     1426     A     
 SCANNER            DATA   H. *** E-LIST DUMP AT.                                          SCANNER     1427     A     
 SCANNER   SELC     DATA   C.000000 IN XXXXXXX.                                            SCANNER     1428     A     
 SCANNER   L.SELA   =      *-SELA                                                          SCANNER     1429     A     
 SCANNER            SPACE  4,6                                                             SCANNER     1430     A     
 SCANNER            QUAL   *                                                               SCANNER     1431     A     
 SCANNER   DEL      =      /DEL/DEL                                                        SCANNER     1432     A     
 SCANNER            ENTRY  DEL                                                             SCANNER     1433     A     
 SCANNER   SEL      =      /DEL/SEL                                                        SCANNER     1434     A     
 SCANNER            ENTRY  SEL                                                             SCANNER     1435     A     
 SCANNER   .T       ENDIF                                                                  SCANNER     1436     A     
 SCANNER   DIGIT    TITLE  PROCESS NUMERIC CONSTANT                                        SCANNER     1437     A     
 SCANNER  * DIGIT WHEN A CONSTANT STARTS WITH A DIGIT                                      SCANNER     1438     A     
 SCANNER                                                                                   SCANNER     1439     A     
 SCANNER   DIGIT    SX7       1                                                            SCANNER     1440     A     
 SCANNER            SA7       CAD                                                          SCANNER     1441     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1870    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            SA7       CTYPE     SET TYPE TO INTEGER                                SCANNER     1442     A     
 SCANNER            SX7    B0           CONSTANT STRING COUNT STARTS AT 0                  SCANNER     1443     A     
 SCANNER            SA7       N                                                            SCANNER     1444     A     
 SCANNER   PK       RJ        PACKC     DIGIT TO STRING                                    SCANNER     1445     A     
 SCANNER            RJ        GET       NEXT NONBLANK CHARACTER                            SCANNER     1446     A     
 SCANNER            SB4       45B       +                                                  SCANNER     1447     A     
 SCANNER            LT  B2,B4,CFD       JUMP IF NOT SPECIAL                                SCANNER     1448     A     
 SCANNER            SA1    B2+CTAB-45B  LOAD ACTION ADDRESS                                SCANNER     1449     A     
 SCANNER            SB4    X1                                                              SCANNER     1450     A     
 SCANNER            JP     B4           JUMP TO ACTION                                     SCANNER     1451     A     
 SCANNER   DIGIT    SPACE  4                                                               SCANNER     1452     A     
 SCANNER   CTAB     VFD    60/TC,60/TC,60/TC,60/TC,60/TC,60/TC,60/TCS,60/TC                SCANNER     1453     A     
 SCANNER            CON    CERP                  SPECIAL HOLLERITH STRING DELIMITR         SCANNER     1454     A     
 SCANNER            CON    TC                    ,                                         SCANNER     1455     A     
 SCANNER            CON    KD                    .                                         SCANNER     1456     A     
 SCANNER   DIGIT    SPACE  4                                                               SCANNER     1457     A     
 SCANNER   CFD      SB4       33B       0                                                  SCANNER     1458     A     
 SCANNER            GE  B2,B4,PK        DIGIT                                              SCANNER     1459     A     
 SCANNER            SB4       5         E                                                  SCANNER     1460     A     
 SCANNER            EQ  B2,B4,REXPPP    REAL                                               SCANNER     1461     A     
 SCANNER            SB4       4         D                                                  SCANNER     1462     A     
 SCANNER            EQ  B2,B4,DEXPPP    DOUBLE                                             SCANNER     1463     A     
 SCANNER            SB4       2         B                                                  SCANNER     1464     A     
 SCANNER            EQ  B2,B4,OEXP      OCTAL CONSTANT                                     SCANNER     1465     A     
 SCANNER            SA1    HLRMASK     SHIFT TEST MASK FOR <H> <L> <R>                     SCANNER     1466     A     
 SCANNER            LX0    B2,X1                                                           SCANNER     1467     A     
 SCANNER            MI     X0,HOLLRTH  IF H(OLLERITH), L OR R                              SCANNER     1468     A     
 SCANNER            EQ        CERP      GARBAGE                                            SCANNER     1469     A     
 SCANNER   REXPPP   SB2       57B       PUT A DECIMAL POINT IN THE STRING                  SCANNER     1470     A     
 SCANNER            RJ        PACKC          WHEN AN E APPEARS AFTER DIGITS AND            SCANNER     1471     A     
 SCANNER            SB2       05B       NO DECIMAL POINT                                   SCANNER     1472     A     
 SCANNER            EQ        REXP                                                         SCANNER     1473     A     
 SCANNER   DEXPPP   SB2       57B       SAME FOR DOUBLE CONSTANTS                          SCANNER     1474     A     
 SCANNER            RJ        PACKC                                                        SCANNER     1475     A     
 SCANNER            SB2       04B                                                          SCANNER     1476     A     
 SCANNER            EQ        DEXP                                                         SCANNER     1477     A     
 SCANNER   REXP     SX7       2                                                            SCANNER     1478     A     
 SCANNER            SA7       CTYPE     REAL                                               SCANNER     1479     A     
 SCANNER            SA7       EXPEXP    SET EXPECTING EXPONENT FLAG                        SCANNER     1480     A     
 SCANNER            EQ        IIIIC     PUT E IN STRING AND LOOK AT EXPONENT               SCANNER     1481     A     
 SCANNER   DEXP     SX7       3                                                            SCANNER     1482     A     
 SCANNER            SA7       CTYPE     DOUBLE                                             SCANNER     1483     A     
 SCANNER            SA7       EXPEXP    SET EXPECTING EXPONENT FLAG                        SCANNER     1484     A     
 SCANNER            EQ        IIIIC     PUT D IN STRING AND LOOK AT EXPONENT               SCANNER     1485     A     
 SCANNER   TC       RJ        PACKT     CONSTANT TERMINATED BY THE CHARACTER               SCANNER     1486     A     
 SCANNER            JP        B1             CHARACTER IN B2                               SCANNER     1487     A     
 SCANNER   TCS      RJ     SCNSAVE                                                         SCANNER     1488          I
          -FEAT121L 
 SCANNER   TCS      RJ     SAV         SAVE PACKING REGISTERS                              FEAT121L     284     A     
 SCANNER            RJ     P$T         PROCESS $ TERMINATOR                                SCANNER     1489     A     
 SCANNER            EQ     NEWS                                                            SCANNER     1490     A     
 SCANNER                                                                                   SCANNER     1491     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1871    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER   KD       SA7       HANG.     TURN ON HANGING . BY SAVING COLUMN COUNTER         SCANNER     1492     A     
 SCANNER            RJ        GET       NEXT CHARACTER                                     SCANNER     1493     A     
 SCANNER            SX7    B0           TURN OFF HANGING .                                 SCANNER     1494     A     
 SCANNER            SA7       HANG.                                                        SCANNER     1495     A     
 SCANNER            SX5    B2                                                              SCANNER     1496     A     
 SCANNER            SB4       45B       +                                                  SCANNER     1497     A     
 SCANNER            LT  B2,B4,KDE       NOT SPECIAL                                        SCANNER     1498     A     
 SCANNER            SB2       57B       .                                                  SCANNER     1499     A     
 SCANNER            RJ        PACKC     . TO STRING                                        SCANNER     1500     A     
 SCANNER            SB2    X5                                                              SCANNER     1501     A     
 SCANNER            SX7       2         CONSTANT                                           SCANNER     1502     A     
 SCANNER            SA7       CTYPE     TYPE IS REAL                                       SCANNER     1503     A     
 SCANNER            EQ        IIICP                                                        SCANNER     1504     A     
 SCANNER   KDE      SB4       33B       0                                                  SCANNER     1505     A     
 SCANNER            LT  B2,B4,KDEQ      NOT DIGIT                                          SCANNER     1506     A     
 SCANNER            SB2       57B       .                                                  SCANNER     1507     A     
 SCANNER            RJ        PACKC     . TO STRING                                        SCANNER     1508     A     
 SCANNER            SX7       2                                                            SCANNER     1509     A     
 SCANNER            SA7       CTYPE     CONSTANT TYPE IS REAL                              SCANNER     1510     A     
 SCANNER            SB2    X5                                                              SCANNER     1511     A     
 SCANNER            EQ        IIIC                                                         SCANNER     1512     A     
 SCANNER   KDEQ     SB4       5         E                                                  SCANNER     1513     A     
 SCANNER            EQ  B2,B4,KDEQE     NOW CHECK FOR EXPONENT                             SCANNER     1514     A     
 SCANNER            SB4       4         D                                                  SCANNER     1515     A     
 SCANNER            NE  B2,B4,KDEQD     NOT D                                              SCANNER     1516     A     
 SCANNER            SB2       57B       .                                                  SCANNER     1517     A     
 SCANNER            RJ        PACKC     . TO STRING                                        SCANNER     1518     A     
 SCANNER            SB2    X5                                                              SCANNER     1519     A     
 SCANNER            EQ        DEXP                                                         SCANNER     1520     A     
 SCANNER   KDEQD    RJ        PACKT     TERMINATE CONSTANT                                 SCANNER     1521     A     
 SCANNER            SB2    X5                                                              SCANNER     1522     A     
 SCANNER            EQ        POINTT    CHECK FOR RELATIONAL                               SCANNER     1523     A     
 SCANNER   KDEQE    MX7       59                                                           SCANNER     1524     A     
 SCANNER            SA7       EXPEXP    EXPECTING SOMETHING                                SCANNER     1525     A     
 SCANNER            RJ        GET       AFTER DIGIT.E                                      SCANNER     1526     A     
 SCANNER            MX7       0                                                            SCANNER     1527     A     
 SCANNER            SA7       EXPEXP    GOT SOMETHING                                      SCANNER     1528     A     
 SCANNER            SB4       45B       +                                                  SCANNER     1529     A     
 SCANNER            GE  B2,B4,POM       SPECIAL                                            SCANNER     1530     A     
 SCANNER            SB4       33B       0                                                  SCANNER     1531     A     
 SCANNER            LT  B2,B4,KDEQQ                                                        SCANNER     1532     A     
 SCANNER   POMM     SX5    B2           DIGIT                                              SCANNER     1533     A     
 SCANNER            SB2       57B       .                                                  SCANNER     1534     A     
 SCANNER            RJ        PACKC     . TO STRING                                        SCANNER     1535     A     
 SCANNER            SB2       5                                                            SCANNER     1536     A     
 SCANNER            RJ        PACKC     E TO STRING                                        SCANNER     1537     A     
 SCANNER            SB2    X5                                                              SCANNER     1538     A     
 SCANNER            SX7       2         CONSTANT                                           SCANNER     1539     A     
 SCANNER            SA7       CTYPE     TYPE IS REAL                                       SCANNER     1540     A     
 SCANNER            EQ        VC        CONTINUE PACKING EXPONENT                          SCANNER     1541     A     
 SCANNER   POM      EQ  B2,B4,POMM      JUMP FOR +                                         SCANNER     1542     A     
 SCANNER            SB4       46B       -                                                  SCANNER     1543     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1872    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            EQ  B2,B4,POMM      JUMP FOR -                                         SCANNER     1544     A     
 SCANNER            EQ        CERP      NOT AN EXPONENT OR LOGICAL                         SCANNER     1545     A     
 SCANNER   KDEQQ    SA5       COLS      RESET                                              SCANNER     1546     A     
 SCANNER            SX7    X5-2         COLUMN                                             SCANNER     1547          I
          -FCC0566
 SCANNER            SA7    A5           COUNTER TO .                                       SCANNER     1548          I
          -FCC0566
 SCANNER            RJ        PACKT     TERMINATE THE INTEGER CONSTANT                     SCANNER     1549          I
          -FCC0566
 SCANNER            SB2       57B       . TO NEXT CHARACTER POSITION                       SCANNER     1550          I
          -FCC0566
 SCANNER            JP        B1             CONTINUE                                      SCANNER     1551          I
          -FCC0566
 SCANNER            SX7    X5-1        COLUMN COUNTER (COLS = COLS-1).                     FCC0566        6     A     
 SCANNER            SB2    1RE         START PROCESSING AT THE *E*.                        FCC0566        7     A     
 SCANNER            SA7    A5                                                              FCC0566        8     A     
 SCANNER            RJ     PACKT       TERMINATE THE INTEGER CONSTANT.                     FCC0566        9     A     
 SCANNER            EQ     POINTT                                                          FCC0566       10     A     
 SCANNER  * IIIC WHEN EITHER .DIGIT OR DIGITS.                                             SCANNER     1552     A     
 SCANNER   IIIC     RJ     PACKC        DIGIT OR . TO STRING                               SCANNER     1553     A     
 SCANNER            RJ        GET       NEXT NONBLANK CHARACTER                            SCANNER     1554     A     
 SCANNER            SB4       45B       +                                                  SCANNER     1555     A     
 SCANNER            LT  B2,B4,IIICT     NOT SPECIAL                                        SCANNER     1556     A     
 SCANNER   IIICP    SB4       60B                                                          SCANNER     1557     A     
 SCANNER            GE  B2,B4,CERP      BAD CHARACTER                                      SCANNER     1558     A     
 SCANNER            SA1    B2+RTAB-45B                                                     SCANNER     1559     A     
 SCANNER            SB4    X1                                                              SCANNER     1560     A     
 SCANNER            JP     B4           JUMP TO ACTION                                     SCANNER     1561     A     
 SCANNER   DIGIT    SPACE  4                                                               SCANNER     1562     A     
 SCANNER   RTAB     VFD    60/TC,60/TC,60/TC,60/TC,60/TC,60/TC,60/TCS,60/TC                SCANNER     1563     A     
 SCANNER            CON    CERP                  SPECIAL HOLLERITH STRING DELIMITR         SCANNER     1564     A     
 SCANNER            CON    TC                    ,                                         SCANNER     1565     A     
 SCANNER            CON    TC                    .                                         SCANNER     1566     A     
 SCANNER   DIGIT    SPACE  4                                                               SCANNER     1567     A     
 SCANNER   IIICT    SB4       33B       0                                                  SCANNER     1568     A     
 SCANNER            GE  B2,B4,IIIC      DIGIT TO STRING                                    SCANNER     1569     A     
 SCANNER            SB4       5         E                                                  SCANNER     1570     A     
 SCANNER            EQ  B2,B4,REXP                                                         SCANNER     1571     A     
 SCANNER            SB4       4         D                                                  SCANNER     1572     A     
 SCANNER            EQ  B2,B4,DEXP                                                         SCANNER     1573     A     
 SCANNER            EQ        CERP      GARBAGE                                            SCANNER     1574     A     
 SCANNER  * IIIIC WHEN EXPECTING AN EXPONENT                                               SCANNER     1575     A     
 SCANNER   IIIIC    RJ        PACKC     E OR D TO STRING                                   SCANNER     1576     A     
 SCANNER            RJ        GET       NEXT NON BLANK CHARACTER                           SCANNER     1577     A     
 SCANNER            SB4       46B       -                                                  SCANNER     1578     A     
 SCANNER            EQ  B2,B4,VC                                                           SCANNER     1579     A     
 SCANNER            SB4       45B       +                                                  SCANNER     1580     A     
 SCANNER            EQ  B2,B4,VC                                                           SCANNER     1581     A     
 SCANNER            GE  B2,B4,CERP      GARBAGE                                            SCANNER     1582     A     
 SCANNER            SB4       33B       0                                                  SCANNER     1583     A     
 SCANNER            LT  B2,B4,CERP      GARBAGE                                            SCANNER     1584     A     
 SCANNER            SX7    B0                                                              SCANNER     1585     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1873    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            SA7       EXPEXP    TURN OFF EXPECTING EXPONENT FLAG                   SCANNER     1586     A     
 SCANNER  * VC WHEN PACKING AN EXPONENT                                                    SCANNER     1587     A     
 SCANNER   VC       RJ        PACKC     + - OR DIGIT IN EXPONENT TO CONSTANT STRIN         SCANNER     1588     A     
 SCANNER            RJ        GET       NEXT NONBLANK CHARACTER                            SCANNER     1589     A     
 SCANNER            SB4       45B       +                                                  SCANNER     1590     A     
 SCANNER            LT  B2,B4,VCC       NOT SPECIAL                                        SCANNER     1591     A     
 SCANNER            SB4       60B                                                          SCANNER     1592     A     
 SCANNER            GE  B2,B4,CERP      ILLEGAL CHARACTER                                  SCANNER     1593     A     
 SCANNER            SA1    B2+RTAB-45B                                                     SCANNER     1594     A     
 SCANNER            SB4    X1                                                              SCANNER     1595     A     
 SCANNER            JP     B4           JUMP TO ACTION                                     SCANNER     1596     A     
 SCANNER   VCC      SB4       33B       0                                                  SCANNER     1597     A     
 SCANNER            LT  B2,B4,CERP      GARBAGE FOR EXPONENT                               SCANNER     1598     A     
 SCANNER            SX7    B0                                                              SCANNER     1599     A     
 SCANNER            SA7       EXPEXP    TURN OFF EXPECTING EXPONENT FLAG                   SCANNER     1600     A     
 SCANNER            EQ        VC        PACK THE DIGIT                                     SCANNER     1601     A     
 SCANNER   OEXP     SX7       5         CODE FOR OCTAL                                     SCANNER     1602     A     
 SCANNER            SA7       CTYPE                                                        SCANNER     1603     A     
 SCANNER            RJ        PACKC     B TO STRING                                        SCANNER     1604     A     
 SCANNER            RJ        PACKT     E-LIST AND CONSTOR ENTRIES                         SCANNER     1605     A     
 SCANNER            SX0    -E197       ERR MSG NR - *NON-ANSI CONSTANT TYPE*               SCANNER     1606     A     
 SCANNER            RJ     ANSIERP                                                         SCANNER     1607     A     
 SCANNER            SB5    1                                                               SCANNER     1608     A     
 SCANNER            RJ     GET         GET NEXT CHARACTER                                  SCANNER     1609     A     
 SCANNER            JP     B1          CONTINUE LEXICAL SCAN...                            SCANNER     1610     A     
 SCANNER   PCON     SPACE  4,8                                                             SCANNER     1611     A     
 SCANNER  * PCON WHEN . THEN DIGIT                                                         SCANNER     1612     A     
 SCANNER   PCON     SX7       2                                                            SCANNER     1613          I
          -FCC1086X 
 SCANNER   PCON     MX7    0                                                               FCC1086X       6     A     
 SCANNER            SA7    N           INITIALIZE LENGTH OF CONSTANT STRING                FCC1086X       7     A     
 SCANNER            SX7    2                                                               FCC1086X       8     A     
 SCANNER            SA7       CTYPE     TYPE TO REAL                                       SCANNER     1614     A     
 SCANNER            SA7       CAD       STARTING A CONSTANT                                SCANNER     1615     A     
 SCANNER            SX5    B2           SAVE DIGIT                                         SCANNER     1616     A     
 SCANNER            SB2       57B       .                                                  SCANNER     1617     A     
 SCANNER            RJ        PACKC     START STRING WITH .                                SCANNER     1618     A     
 SCANNER            SB2    X5           DIGIT TO B2                                        SCANNER     1619     A     
 SCANNER            EQ        IIIC      .DIGIT                                             SCANNER     1620     A     
 SCANNER   DSL      SPACE  4,8                                                             SCANNER     1621     A     
 SCANNER  **        DSL - DUMP SAVED LINES.                                                SCANNER     1622     A     
 SCANNER  *                                                                                SCANNER     1623     A     
 SCANNER  *                IF THE SOURCE LISTING OPTION IS ON (L .NZ.) AND                 SCANNER     1624     A     
 SCANNER  *         NO C/-NOLIST IS ACTIVE, CALLS *LSL* TO LIST SAVED LINES.               SCANNER     1625     A     
 SCANNER                                                                                   SCANNER     1626     A     
 SCANNER                                                                                   SCANNER     1627     A     
 SCANNER   DSL      SUBR   =           ** ENTRY/EXIT **                                    SCANNER     1628     A     
 SCANNER            SA1    =XSLIST                                                         SCANNER     1629     A     
 SCANNER            SA2    =XNOLIST                                                        SCANNER     1630     A     
 SCANNER            BX6    X1*X2                                                           SCANNER     1631          I
          -FEAT121L 
 SCANNER            ZR     X6,EXIT.    IF (L=0) OR C/-NOLIST ACTIVE                        SCANNER     1632          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1874    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
          -FEAT121L 
 SCANNER            MX6    0                                                               FEAT121L     285     A     
 SCANNER            BX7    X1*X2                                                           FEAT121L     286     A     
 SCANNER            SA6    IEF         *BEFORE HEADER* FLAG OFF                            FEAT121L     287     A     
 SCANNER            ZR     X7,EXIT.    IF (L=0) OR C/-LIST,NONE ACTIVE                     FEAT121L     288     A     
 SCANNER            RJ     LSL         LIST SAVED LINES                                    SCANNER     1633     A     
 SCANNER            EQ     EXIT.                                                           SCANNER     1634     A     
 SCANNER   ENDP     TITLE  END LINE PROCESSING                                             SCANNER     1635     A     
 SCANNER  **        ENDP - END LINE PROCESSING.                                            SCANNER     1636     A     
 SCANNER  *                                                                                SCANNER     1637     A     
 SCANNER  *                PERFORMS MISCELLANEOUS HOUSEKEEPING TASKS ASSOCIATED            SCANNER     1638     A     
 SCANNER  *         WITH *END* LINE PROCESSING.                                            SCANNER     1639     A     
 SCANNER  *                                                                                SCANNER     1640     A     
 SCANNER  *         ENTRY  KEYWORD VERIFIED TO BE *END*.                                   SCANNER     1641     A     
 SCANNER  *                                                                                SCANNER     1642     A     
 SCANNER  *         USES   X - 1, 2, 3, 6, 7                                               SCANNER     1643     A     
 SCANNER  *                A - 1, 2, 3, 6, 7                                               SCANNER     1644     A     
 SCANNER  *                B - 1                                                           SCANNER     1645     A     
 SCANNER  *                                                                                SCANNER     1646     A     
 SCANNER  *         CALLS  CDD, GNL, POSTERR.                                              SCANNER     1647          I
          -FEAT121L 
 SCANNER  *         CALLS  CDD,GNL,POSTER,SLO                                              FEAT121L     289          I
          -FCC1328X 
 SCANNER  *         CALLS  CDD,POSTER,RNC,SLO                                              FCC1328X     625     A     
 SCANNER                                                                                   SCANNER     1648     A     
 SCANNER                                                                                   SCANNER     1649     A     
 SCANNER   ENDP     SA1    LTYPE                                                           SCANNER     1650     A     
 SCANNER            SA2    NLABEL      LABEL ON *END* LINE, IF ONE                         SCANNER     1651     A     
 SCANNER            NZ     X1,ERP3     IF *END* IS OBJECT OF LOGICAL *IF*                  SCANNER     1652     A     
 SCANNER            MX6    0                                                               SCANNER     1653     A     
 SCANNER            BX7    X2                                                              SCANNER     1654     A     
 SCANNER            SA6    NLABEL                                                          SCANNER     1655     A     
 SCANNER            SA7    CLABEL                                                          SCANNER     1656     A     
 SCANNER            RJ     SLO         SET LIST OPTION FLAGS                               FEAT121L     290     A     
 SCANNER            SA1    NOEND                                                           SCANNER     1657     A     
 SCANNER            SA2    SBUFLG                                                          SCANNER     1658     A     
 SCANNER            ZR     X1,END1     IF *END* NOT INVENTED                               SCANNER     1659     A     
 SCANNER            SA6    =XCP.CARD   ERASE INVENTED *END*                                SCANNER     1660     A     
 SCANNER            SA6    L.CARD                                                          SCANNER     1661     A     
 SCANNER   END1     SX7    ST.END      *NORMAL END* STATEMENT TYPE CODE                    SCANNER     1662     A     
 SCANNER            SA7    TYPE                                                            SCANNER     1663     A     
 SCANNER            MI     X2,END2     IF $ TERMINATED *END*                               SCANNER     1664     A     
 SCANNER            NZ     X2,END3     IF NEXT LINE AVAILABLE (*END* CONTINUATION)         SCANNER     1665     A     
 SCANNER            ZR     X1,END2     IF *END* NOT INVENTED                               SCANNER     1666     A     
 SCANNER            SX7    ST.INV      *INVENTED END* STATEMENT TYPE CODE                  SCANNER     1667     A     
 SCANNER            SA7    TYPE                                                            SCANNER     1668     A     
 SCANNER            POSTERR   SEV=INF,NR=E35,RETURN=END4                                   SCANNER     1669     A     
 SCANNER                                                                                   SCANNER     1670     A     
 SCANNER   END2     RJ     GNL         GET NEXT LINE                                       SCANNER     1671          I
          -FCC1328X 
 SCANNER   END2     SB1    1                                                               FCC1328X     626     A     
 SCANNER            RJ     RNC         READ NEXT CARD                                      FCC1328X     627     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1875    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            SX6    X7+2                                                            FCC1328X     628     A     
 SCANNER            SA6    L.PLINE                                                         FCC1328X     629     A     
 SCANNER            SA1    CONTCNT                                                         SCANNER     1672     A     
 SCANNER            SA2    CLABEL                                                          SCANNER     1673     A     
 SCANNER            BX6    X1+X2                                                           SCANNER     1674     A     
 SCANNER            ZR     X6,END4     IF ANSI *END* LINE                                  SCANNER     1675     A     
 SCANNER   END3     POSTERR   SEV=ANSI,NR=E38                                              SCANNER     1676     A     
 SCANNER                                                                                   SCANNER     1677     A     
 SCANNER  *         POST NON-ANSI DIAGNOSTIC SUMMARIES.                                    SCANNER     1678     A     
 SCANNER                                                                                   SCANNER     1679     A     
 SCANNER   END4     SA1    NACOM                                                           SCANNER     1680     A     
 SCANNER            SB1    1                                                               SCANNER     1681     A     
 SCANNER            ZR     X1,END5     IF NO NON-ANSI COMMENT LINES                        SCANNER     1682     A     
 SCANNER            CALL   CDD                                                             SCANNER     1683     A     
 SCANNER            LX6    6                                                               SCANNER     1684     A     
 SCANNER            POSTERR   SEV=ANSI,NR=E228,FMT=DPC,TXT=X6                              SCANNER     1685     A     
 SCANNER   END5     SA1    NABC                                                            SCANNER     1686     A     
 SCANNER            SB1    1                                                               SCANNER     1687     A     
 SCANNER            ZR     X1,LEX      IF NO NON-ANSI BLANK LINES, EXIT...                 SCANNER     1688     A     
 SCANNER            CALL   CDD                                                             SCANNER     1689     A     
 SCANNER            LX6    6                                                               SCANNER     1690     A     
 SCANNER            POSTERR   SEV=ANSI,NR=E208,FMT=DPC,TXT=X6,RETURN=LEX                   SCANNER     1691     A     
 SCANNER   ERP      TITLE  ERP - COMMON ERROR PROCESSING.                                  SCANNER     1692     A     
 SCANNER   ERP1     MX6       30                                                           SCANNER     1693          I
          -FEAT121L 
 SCANNER            SA1    SBUFLG                                                          SCANNER     1694          I
          -FEAT121L 
 SCANNER            SA6    FCFLG       FATAL TO COMPILATION FLAG ON                        SCANNER     1695          I
          -FEAT121L 
 SCANNER            ZR     X1,NEXTS    IF NEXT CARD NOT IN *SBUFF*,STRIP CONT CRDS         SCANNER     1696          I
          -FEAT121L 
 SCANNER   ERP1A    BX6    X6-X6                                                           SCANNER     1697          I
          -FEAT121L 
 SCANNER            NO                                                                     SCANNER     1698          I
          -FEAT121L 
 SCANNER            SA6    FCFLG       FATAL TO COMPILATION FLAG OFF                       SCANNER     1699          I
          -FEAT121L 
 SCANNER            POSTERR   SEV=FC,NR=E28                                                SCANNER     1700          I
          -FEAT121L 
 SCANNER  **        ERP - COMMON ERROR PROCESSING.                                         FEAT121L     291     A     
 SCANNER                                                                                   FEAT121L     292     A     
 SCANNER                                                                                   FEAT121L     293     A     
 SCANNER   ERP1     SA1    SBUFLG                                                          FEAT121L     294     A     
 SCANNER            NZ     X1,ERP1B    IF NEXT LINE ALREADY IN *SBUFF*                     FEAT121L     295     A     
 SCANNER   ERP1A    RJ     NXT         REQUEST AND PROCESS NEXT SOURCE LINE                FEAT121L     296     A     
 SCANNER            ZR     X1,ERP1A    IF LINE IS CONTINUED, STRIP...                      FEAT121L     297     A     
 SCANNER   ERP1B    POSTER SEV=FC,NR=28  *TABLES OVERLAP, INCREASE FL*                     FEAT121L     298     A     
 SCANNER                                                                                   SCANNER     1701     A     
 SCANNER   ERP2     SA1    DTYPE                                                           SCANNER     1702     A     
 SCANNER            ZR     X1,D.SCN52  IF NOT A DEBUG STATEMENT                            SCANNER     1703     A     
 SCANNER            DBGERR   (ILLEGAL FORM)                                                SCANNER     1704     A     
 SCANNER            EQ     D.BADC                                                          SCANNER     1705     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1876    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER                                                                                   SCANNER     1706     A     
 SCANNER   D.SCN52  SB6    -E29        ERR MSG NR - *UNRECOGNIZED STATEMENT*               SCANNER     1707     A     
 SCANNER            EQ        PROE                                                         SCANNER     1708     A     
 SCANNER                                                                                   SCANNER     1709     A     
 SCANNER   ERP3     BX6    X6-X6                                                           SCANNER     1710     A     
 SCANNER            SB6    -E175       ERR MSG NR - *BAD LOGICAL IF*                       SCANNER     1711     A     
 SCANNER            SA6    LELIST                                                          SCANNER     1712     A     
 SCANNER            EQ     PROE                                                            SCANNER     1713     A     
 SCANNER                                                                                   SCANNER     1714     A     
 SCANNER   ERP4     SB6    E324        ERROR MSG NO. - UNRECOGNISED OPERATOR               FCC1936        8     A     
 SCANNER            EQ     ERP5B                                                           FCC1936        9     A     
 SCANNER                                                                                   FCC1936       10     A     
 SCANNER   ERP4     SB7    B7-1                                                            SCANNER     1715          I
          -FEAT121L 
 SCANNER            SA5    DTYPE                                                           SCANNER     1716          I
          -FEAT121L 
 SCANNER            PL     B7,NEXTS    IF ERR MSG ALREADY ISSUED                           SCANNER     1717          I
          -FEAT121L 
 SCANNER            SB6    -E31        ERR MSG NR - *STATEMENT TOO LONG*                   SCANNER     1718          I
          -FEAT121L 
 SCANNER            ZR     X5,PROE     IF NOT DEBUG STMT                                   SCANNER     1719          I
          -FEAT121L 
 SCANNER            DBGERR (TOO MANY CONTINUATION CARDS)                                   SCANNER     1720          I
          -FEAT121L 
 SCANNER            SX6    B0                                                              SCANNER     1721          I
          -FEAT121L 
 SCANNER            SA6    TYPE         SET BAD DEBUG CARD TO TYPE                         SCANNER     1722          I
          -FEAT121L 
 SCANNER            EQ     NEXTS                                                           SCANNER     1723          I
          -FEAT121L 
 SCANNER                                                                                   SCANNER     1724          I
          -FEAT121L 
 SCANNER   ERP5     SA6    PAD         TEMP SAVE CHARACTER STRING                          SCANNER     1725          I
          -FCC1936
 SCANNER   ERP5     SB6    E297        ERROR MSG NO.-*INVALID USE OF CHAR STRING*          FCC1936       11     A     
 SCANNER   ERP5B    SA6    PAD         TEMP SAVE CHARACTER STRING                          FCC1936       12     A     
 SCANNER            SA4    PAD                                                             SCANNER     1726     A     
 SCANNER            MX6    0                                                               SCANNER     1727     A     
 SCANNER            PX4    X4,B5       PACK UP CHARACTER STRING IN ELIST FORMAT            SCANNER     1728     A     
 SCANNER            SA6    A4          TURN OFF PACK IN PROGRESS FLAG                      SCANNER     1729     A     
 SCANNER            SA1    EXPEXP                                                          SCANNER     1730     A     
 SCANNER            SB6    E297        ERR MSG NR - *INVALID USE OF CHAR STRING*           SCANNER     1731          I
          -FCC1936
 SCANNER            NZ     X1,ERP5A    IF RELATIONAL PACK IN PROGRESS                      SCANNER     1732     A     
 SCANNER            SB6    E32         ERR MSG NR - *NAME TOO LONG*                        SCANNER     1733     A     
 SCANNER   ERP5A    SA6    A1          TURN OFF RELATIONAL FLAG                            SCANNER     1734     A     
 SCANNER            EQ     PROE                                                            SCANNER     1735     A     
 SCANNER                                                                                   SCANNER     1736     A     
 SCANNER   ERP6     SB6    -E37        ERR MSG NR *ILLEGAL CHARACTER*                      SCANNER     1737          I
          -FEAT121L 
 SCANNER   ERP6     SB6    E37         ERR MSG NR - *ILLEGAL CHARACTER*                    FEAT121L     299     A     
 SCANNER            EQ     ERP20                                                           SCANNER     1738     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1877    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER                                                                                   SCANNER     1739     A     
 SCANNER   ERP7     SB6    E313        ERR MSG NR - *ILL SYNTAX AFTER KEYWORD*             SCANNER     1740     A     
 SCANNER            EQ     ERP20                                                           SCANNER     1741     A     
 SCANNER                                                                                   SCANNER     1742     A     
 SCANNER   ERP8     SB6    -E111       ERR MSG NR - *ILL SYNTAX IN ASSIGN STMT*            SCANNER     1743     A     
 SCANNER            EQ     PROE                                                            SCANNER     1744     A     
 SCANNER                                                                                   SCANNER     1745     A     
 SCANNER   ERP9     SB6    -E80        ERR MSG NR - *LAB REF HAS MORE THAN 5 DGTS*         SCANNER     1746     A     
 SCANNER            EQ     PROE                                                            SCANNER     1747     A     
 SCANNER                                                                                   SCANNER     1748     A     
 SCANNER   ERP10    RJ     SRCH        TRY TO TYPE STMT                                    SCANNER     1749          I
          -FEAT121L 
 SCANNER                                                                                   SCANNER     1750          I
          -FEAT121L 
 SCANNER  *         RETURNS ONLY IF TYPED.                                                 SCANNER     1751          I
          -FEAT121L 
 SCANNER                                                                                   SCANNER     1752          I
          -FEAT121L 
 SCANNER   ERP10    RJ     SRCH        TRY TO TYPE STMT (RETURNS ONLY IF TYPED)            FEAT121L     300     A     
 SCANNER            EQ     ERP7                                                            SCANNER     1753     A     
 SCANNER                                                                                   SCANNER     1754     A     
 SCANNER   ERP11    RJ     P$T         PROCESS $ TERMINATOR                                SCANNER     1755     A     
 SCANNER            EQ     ERP7                                                            SCANNER     1756     A     
 SCANNER                                                                                   SCANNER     1757     A     
 SCANNER   ERP0     BSS    0                                                               SCANNER     1758          I
          -FEAT121L 
 SCANNER            BX4    X6          SAVE PACKED CHARACTER STRING                        SCANNER     1759          I
          -FEAT121L 
 SCANNER   ERP12    SA1    EXPEXP                                                          FEAT121L     301     A     
 SCANNER            SB6    -E29        ERR MSG NR - *UNRECOGNIZED STATEMENT*               SCANNER     1760     A     
 SCANNER            SA1    EXPEXP                                                          SCANNER     1761          I
          -FEAT121L 
 SCANNER            ZR     X1,PROE     IF NOT PROCESSING RELATIONAL PACK                   SCANNER     1762     A     
 SCANNER            MX4    0                                                               FEAT121L     302     A     
 SCANNER            BX3    X6                                                              FEAT121L     303     A     
 SCANNER            SB6    E297        ERR MSG NR - *INVALID USE OF CHAR STRING*           SCANNER     1763     A     
 SCANNER            EQ     PROE                                                            SCANNER     1764     A     
 SCANNER                                                                                   SCANNER     1765     A     
 SCANNER   CERP     SB6    E209        ERR MSG NR - *LAST CHAR SEEN AFTER TROUBLE*         SCANNER     1766     A     
 SCANNER            EQ     CERPCOM                                                         SCANNER     1767     A     
 SCANNER                                                                                   SCANNER     1768     A     
 SCANNER   CERP1    SB6    -E104       ERR MSG NR - *INCOMPLETE HOLL CONSTANT*             SCANNER     1769     A     
 SCANNER   CERPCOM  SA1    DTYPE       DEBUG STATEMENT TYPE                                SCANNER     1770     A     
 SCANNER            ZR     X1,ERP20    IF NOT A DEBUG STATEMENT                            SCANNER     1771     A     
 SCANNER            DBGERR   (BAD CONSTANT)                                                SCANNER     1772     A     
 SCANNER   D.BADC   SX6    B0                                                              SCANNER     1773     A     
 SCANNER            SA6    CAD               SET CONSTANT FINISHED FLAG                    SCANNER     1774     A     
 SCANNER            SA6    EXPEXP            TURN OFF EXPECTING EXPONENT                   SCANNER     1775     A     
 SCANNER            SA6    HANG.             TURN OFF HANG.                                SCANNER     1776     A     
 SCANNER            SA6    TYPE        STMT TYPE = *BAD DEBUG*                             SCANNER     1777     A     
 SCANNER            EQ     NEXTS       STRIP CONTINUATION LINES                            SCANNER     1778     A     
 SCANNER                                                                                   SCANNER     1779     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1878    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER   ERP20    SB7    1R                                                              SCANNER     1780     A     
 SCANNER            MX6    0                                                               SCANNER     1781     A     
 SCANNER            BX7    X7-X7                                                           SCANNER     1782     A     
 SCANNER            NE     B2,B7,ERP20A IF CHAR IS NOT *BLANK*                             SCANNER     1783     A     
 SCANNER            SB2    1R"         REPLACE TRUE CHARACTER                              SCANNER     1784     A     
 SCANNER   ERP20A   SA6    CAD         CLEAR *CONSTANT PACK-IN-PROGRESS* FLAG              SCANNER     1785     A     
 SCANNER            SA7    EXPEXP      CLEAR *HANGING EXPONENT* FLAG                       SCANNER     1786     A     
 SCANNER            BX4    X4-X4                                                           SCANNER     1787     A     
 SCANNER            SX3    B2                                                              SCANNER     1788     A     
 SCANNER            SA6    HANG.       CLEAR *HANGING PERIOD* FLAG                         SCANNER     1789     A     
 SCANNER            LX3    48-6                                                            SCANNER     1790     A     
 SCANNER            SA7    PAD         CLEAR *PACK7 PACK-IN-PROGRESS* FLAG                 SCANNER     1791     A     
 SCANNER            PL     B2,PROE     IF CHAR IS NOT *EOS*                                SCANNER     1792     A     
 SCANNER            SA3    =R.STMT-END.                                                    SCANNER     1793     A     
 SCANNER   PROE     POSTER SEV=FE,NR=**                                                    SCANNER     1794          I
          -FCC1852
 SCANNER   PROE     SA1    DBGPHCT                                                         FCC1852       11     A     
 SCANNER            NZ     X1,PROE2    IF IN DEBUG *EXT. PACKET* PROCESSING                FCC1852       12     A     
 SCANNER            POSTER SEV=FE,NR=**                                                    FCC1852       13     A     
 SCANNER   PROE2    SA1    SBUFLG                                                          SCANNER     1795     A     
 SCANNER            SX6    ST.BAD      SET STMT TYPE TO *BAD*                              SCANNER     1796     A     
 SCANNER            SX7    1           FATAL TO EXECUTION FLAG ON                          SCANNER     1797          I
          -FEAT121L 
 SCANNER            SA6    TYPE                                                            SCANNER     1798     A     
 SCANNER            SA7    FEFLG                                                           SCANNER     1799          I
          -FEAT121L 
 SCANNER            NZ     X1,LEX      IF NEXT LINE ALREADY IN *SBUFF*                     SCANNER     1800     A     
 SCANNER   NEXTS    RJ     NEXT        RETURNS ONLY IF NEXT CARD WAS CONTINUATION          SCANNER     1801          I
          -FEAT121L 
 SCANNER   NEXTS    RJ     NXT         REQUEST AND PROCESS NEXT SOURCE LINE                FEAT121L     304     A     
 SCANNER            NZ     X1,NEWS     IF NEW STATEMENT FOUND                              FEAT121L     305     A     
 SCANNER            EQ     NEXTS       CONTINUE STRIPPING CONTINUATION CARDS               SCANNER     1802     A     
 SCANNER   FORMAT   TITLE  PROCESS FORMAT STATEMENT                                        SCANNER     1803     A     
 SCANNER  * FORMAT PACKS 10 CHARACTERS/WORD                                                SCANNER     1804     A     
 SCANNER                                                                                   SCANNER     1805     A     
 SCANNER   FORMAT   SX6    B0+                                                             SCANNER     1806     A     
 SCANNER            SA6    PARENS      TO AVOID UNBALANCED PARENS DIAGNOSTIC               SCANNER     1807     A     
 SCANNER            SA1    CONTCNT                                                         SCANNER     1808     A     
 SCANNER            SA2    DUKE                                                            SCANNER     1809     A     
 SCANNER            SB1    1                                                               SCANNER     1810     A     
 SCANNER            SB2    SBUFF                                                           SCANNER     1811     A     
 SCANNER            IX6    X1+X2       NR OF CARD WHERE FORMAT BEGINS, FOR ERR MSG         SCANNER     1812     A     
 SCANNER            SA1    B2-B1       DUMMY READ TO INIT A1                               SCANNER     1813     A     
 SCANNER            SA4    COLS                                                            SCANNER     1814     A     
 SCANNER            SB2    B2+X4       ADDR OF FIRST CHAR AFTER LEFT PAREN                 SCANNER     1815     A     
 SCANNER            SA3    SELIST                                                          SCANNER     1816     A     
 SCANNER            SX7    -B1         'ERPRO' REQUIRES COL CNT INIT 1 LOW                 SCANNER     1817     A     
 SCANNER            SA6    CD          STORE CARD NR FOR 'ERPRO'                           SCANNER     1818     A     
 SCANNER            SB2    B2-B1       BACK ADDR UP TO LEFT PAREN                          SCANNER     1819     A     
 SCANNER                                                                                   SCANNER     1820     A     
 SCANNER  *  DETERMINE COLUMN OF FORMAT LEFT PAREN FOR ERROR MSG COMPUTATION               SCANNER     1821     A     
 SCANNER                                                                                   SCANNER     1822     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1879    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER   FORLOOP  SA1    A1+B1       GET NEXT CHARACTER                                  SCANNER     1823     A     
 SCANNER            SB3    A1                                                              SCANNER     1824     A     
 SCANNER            UX6,B4 X1          UNPACK LEADING BLANK AND CHARACTER COUNT            SCANNER     1825     A     
 SCANNER            SX7    X7+B4       SUM BLANK AND CHARACTER COUNT                       SCANNER     1826     A     
 SCANNER            LT     B3,B2,FORLOOP IF NOT ADVAN TO COLUMN WITH LEFT PAREN            SCANNER     1827     A     
 SCANNER            SA7    COL         STORE AS COLUMN COUNT FOR 'ERPRO'                   SCANNER     1828     A     
 SCANNER            SB2    8*6         INITIALIZE PACKING SHIFT COUNT                      SCANNER     1829     A     
 SCANNER            SB3    6                                                               SCANNER     1830     A     
 SCANNER            SX7    9                                                               SCANNER     1831     A     
 SCANNER            SX5    1R          DPC BLANK                                           SCANNER     1832     A     
 SCANNER            LX6    9*6         LEFT JUSTIFY THE LEFT PAREN IN PACKING REG          SCANNER     1833     A     
 SCANNER            SA7    TYPE        FORMAT STATEMENT TYPE IS 9                          SCANNER     1834     A     
 SCANNER                                                                                   SCANNER     1835     A     
 SCANNER  *  ????   BEGIN 6600 IN-STACK LOOP                                               SCANNER     1836     A     
 SCANNER                                                                                   SCANNER     1837     A     
 SCANNER   FORMAT1  SA1    A1+B1       GET NEXT CHARACTER TO PACK                          SCANNER     1838     A     
 SCANNER            BX0    X5          BLANK FOR PACKING                                   SCANNER     1839     A     
 SCANNER            SX4    X4+B1       COLUMN COUNT + 1                                    SCANNER     1840     A     
 SCANNER            UX2,B4 X1                                                              SCANNER     1841     A     
 SCANNER                                                                                   SCANNER     1842     A     
 SCANNER   FORMAT2  GT     B4,B1,FORMAT3  IF LEADING BLANK(S) TO INSERT                    SCANNER     1843     A     
 SCANNER            BX0    X2             CHARACTER FOR PACKING                            SCANNER     1844     A     
 SCANNER            MI     X2,FORMAT4     IF E-O-L SENTINEL                                SCANNER     1845     A     
 SCANNER            ZR     B4,FORMAT1     IF CHARACTER PACKED                              SCANNER     1846     A     
 SCANNER                                                                                   SCANNER     1847     A     
 SCANNER   FORMAT3  LX1    X0,B2       SHIFT CHAR/BLANK FOR PACKING                        SCANNER     1848     A     
 SCANNER            SB4    B4-B1       BLANK COUNT - 1                                     SCANNER     1849     A     
 SCANNER            SB2    B2-B3       PACKING SHIFT COUNT - 6                             SCANNER     1850     A     
 SCANNER            BX6    X6+X1       PACK CHAR/BLANK                                     SCANNER     1851     A     
 SCANNER            PL     B2,FORMAT2  IF PACKING REGISTER NOT FULL                        SCANNER     1852     A     
 SCANNER            SA6    X3          STORE PACKING REGISTER                              SCANNER     1853     A     
 SCANNER            SB2    54          RESET PACKING SHIFT COUNT                           SCANNER     1854     A     
 SCANNER            SX3    X3-1        DECR E-LIST STORE POINTER                           SCANNER     1855     A     
 SCANNER            BX6    X6-X6       CLEAR PACK REGISTER                                 SCANNER     1856     A     
 SCANNER            EQ     FORMAT2                                                         SCANNER     1857     A     
 SCANNER                                                                                   SCANNER     1858     A     
 SCANNER  *  ''''   END IN-STACK LOOP                                                      SCANNER     1859     A     
 SCANNER                                                                                   SCANNER     1860     A     
 SCANNER   FORMAT4  BX7    X7-X7                                                           SCANNER     1861     A     
 SCANNER            SA6    X3          LAST PACKED WORD TO E-LIST                          SCANNER     1862     A     
 SCANNER            SA7    A6-B1       STORE FORMAT LIST TERMINATOR                        SCANNER     1863     A     
 SCANNER            SX7    A7                                                              SCANNER     1864     A     
 SCANNER            SA7    ELAST       STORE LAST E-LIST ADDR USED                         SCANNER     1865     A     
 SCANNER            RJ     SCNSAVE                                                         SCANNER     1866          I
          -FEAT121L 
 SCANNER            RJ     SAV         SAVE PACKING REGISTERS                              FEAT121L     306     A     
 SCANNER            RJ     NEXT                                                            SCANNER     1867          I
          -FEAT121L 
 SCANNER            RJ     NXT         REQUEST AND PROCESS NEXT SOURCE LINE                FEAT121L     307     A     
 SCANNER            NZ     X1,NEWS     IF NEW STATEMENT FOUND                              FEAT121L     308     A     
 SCANNER            RJ     RESTO       RETURN TO HERE IF FORMAT CONTINUED                  SCANNER     1868          I
          -FEAT121L 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1880    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER                                                                                   SCANNER     1869          I
          -FEAT121L 
 SCANNER  *  'RESTO' RESTORES X3,X5,X6,B1,B2,B3 (AND UNUSED B6)                            SCANNER     1870          I
          -FEAT121L 
 SCANNER                                                                                   SCANNER     1871          I
          -FEAT121L 
 SCANNER            RJ     RES         RESTORE PACKING REGISTERS                           FEAT121L     309     A     
 SCANNER            SA1    SBUFF-1     DUMMY TO INITIALIZE A1                              SCANNER     1872     A     
 SCANNER            EQ     FORMAT1                                                         SCANNER     1873     A     
 SCANNER   GET      SPACE  4,8                                                             SCANNER     1874     A     
 SCANNER   GET2     SX7    A4-SBUFF+1                                                      SCANNER     1875     A     
 SCANNER            SA7    COLS        UPDATE COLUMN POINTER                               SCANNER     1876     A     
 SCANNER                                                                                   SCANNER     1877     A     
 SCANNER   GET      SUBR               ** ENTRY/EXIT **                                    SCANNER     1878     A     
 SCANNER   GET1     SA3    COLS        NEXT COLUMN COUNTER                                 SCANNER     1879     A     
 SCANNER            SA4    X3+SBUFF    NEXT CHARACTER                                      SCANNER     1880     A     
 SCANNER            MX5    -1R.        SHIFT TEST MASK FOR ILLEG CHARS 00B,60B_77B         SCANNER     1881     A     
 SCANNER            SB7    X4+7777B    BIAS ILLEGAL CHAR TO 7777B OR 10057B_10076B         SCANNER     1882     A     
 SCANNER            AX0    B7,X5       B7 IS TRANSFERRED TO SHIFT UNIT MODULO 64           SCANNER     1883     A     
 SCANNER            SB2    X4          PUT CHARACTER IN B2 FOR RETURN                      SCANNER     1884     A     
 SCANNER            NZ     X0,GET2     IF LEGAL CHARACTER                                  SCANNER     1885     A     
 SCANNER            RJ     PGCOM       GO CHECK CHAR AND LOOK FOR CONTINUATION             SCANNER     1886     A     
 SCANNER            NZ     B4,GET1     IF NOT STARTING DELIMITED HOLLERITH STRING          SCANNER     1887     A     
 SCANNER            EQ     GET2                                                            SCANNER     1888     A     
 SCANNER   GNL      SPACE  4,8                                                             SCANNER     1889          I
          -FCC1328X 
 SCANNER  **        GNL - GET NEXT LINE.                                                   SCANNER     1890          I
          -FCC1328X 
 SCANNER  *                                                                                SCANNER     1891          I
          -FCC1328X 
 SCANNER  *                TRANSFERS ONE LINE FROM SOURCE INPUT FILE TO LINE               SCANNER     1892          I
          -FCC1328X 
 SCANNER  *         IMAGE AREA AT *CP.CARD*.                                               SCANNER     1893          I
          -FCC1328X 
 SCANNER  *                                                                                SCANNER     1894          I
          -FCC1328X 
 SCANNER  *                                                                                SCANNER     1895          I
          -FCC1328X 
 SCANNER  *         ENTRY  FILE TABLES INITIALIZED.                                        SCANNER     1896          I
          -FCC1328X 
 SCANNER  *                CIO ONLY - INITIAL READ ISSUED.                                 SCANNER     1897          I
          -FCC1328X 
 SCANNER  *                RM ONLY  - FILE OPENED.                                         SCANNER     1898          I
          -FCC1328X 
 SCANNER  *                                                                                SCANNER     1899          I
          -FCC1328X 
 SCANNER  *         EXIT   (CP.CARD) ET SEQ - NEXT SOURCE LINE, IF ONE.                    SCANNER     1900          I
          -FCC1328X 
 SCANNER  *                (CP.CARD) = .ZR. - IF INPUT FILE AT EOS/EOP/EOI.                SCANNER     1901          I
          -FCC1328X 
 SCANNER  *                (L.CARD) = LINE LENGTH (WORDS).                                 SCANNER     1902          I
          -FCC1328X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1881    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *                (L.PLINE) = LINE LENGTH + 2, FOR LISTING CALLS.                 SCANNER     1903          I
          -FCC1328X 
 SCANNER  *                (X1) = .NZ. IF INPUT FILE AT EOS/EOP/EOI, ELSE .ZR.             SCANNER     1904          I
          -FCC1328X 
 SCANNER  *                (X7) = LINE LENGTH (WORDS).                                     SCANNER     1905          I
          -FCC1328X 
 SCANNER  *                (B1) = 1                                                        SCANNER     1906          I
          -FCC1328X 
 SCANNER  *                (B5) = 1                                                        SCANNER     1907          I
          -FCC1328X 
 SCANNER  *                (B6) = LINE LENGTH (WORDS).                                     SCANNER     1908          I
          -FCC1328X 
 SCANNER  *                (B7) = LINE FWA.                                                SCANNER     1909          I
          -FCC1328X 
 SCANNER  *                                                                                SCANNER     1910          I
          -FCC1328X 
 SCANNER  *         USES   X - 6, 7                                                        SCANNER     1911          I
          -FCC1328X 
 SCANNER  *                A - 6, 7                                                        SCANNER     1912          I
          -FCC1328X 
 SCANNER  *                B - 1, 5, 6, 7                                                  SCANNER     1913          I
          -FCC1328X 
 SCANNER  *                                                                                SCANNER     1914          I
          -FCC1328X 
 SCANNER  *         CALLS  READC                                                           SCANNER     1915          I
          -FCC1328X 
 SCANNER                                                                                   SCANNER     1916          I
          -FCC1328X 
 SCANNER                                                                                   SCANNER     1917          I
          -FCC1328X 
 SCANNER   GNL      SUBR               ** ENTRY/EXIT **                                    SCANNER     1918          I
          -FCC1328X 
 SCANNER            SB1    1                                                               SCANNER     1919          I
          -FCC1328X 
 SCANNER            READC  =XF.IN,=XCP.CARD,=XL.MAXCD                                      SCANNER     1920          I
          -FCC1328X 
 SCANNER            SB7    =XCP.CARD                                                       SCANNER     1921          I
          -FCC1328X 
 SCANNER            SX7    B6-B7       (X7) = LINE LENGTH (WORDS)                          SCANNER     1922          I
          -FCC1328X 
 SCANNER            SB6    B6-B7       (B6) = LINE LENGTH (WORDS)                          SCANNER     1923          I
          -FCC1328X 
 SCANNER            SX6    X7+2                                                            SCANNER     1924          I
          -FCC1328X 
 SCANNER            SA7    L.CARD                                                          SCANNER     1925          I
          -FCC1328X 
 SCANNER            SA6    A7+B1                                                           SCANNER     1926          I
          -FCC1328X 
 SCANNER            SB5    B1                                                              SCANNER     1927          I
          -FCC1328X 
 SCANNER            ZR     X1,EXIT.    IF TRANSFER COMPLETE                                SCANNER     1928          I
          -FCC1328X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1882    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            MX6    0                                                               SCANNER     1929          I
          -FCC1328X 
 SCANNER            SA6    B7          MARK EOS/EOP/EOI                                    SCANNER     1930          I
          -FCC1328X 
 SCANNER            EQ     EXIT.                                                           SCANNER     1931          I
          -FCC1328X 
 SCANNER   HOLLRTH  TITLE  PROCESS HOLLERITH CONSTANT                                      SCANNER     1932     A     
 SCANNER  ***                                                                              SCANNER     1933     A     
 SCANNER  *         HOLLRTH - ENTER HOLLERITH CONSTANT IN 'ELIST' AND 'CONSTOR'.           SCANNER     1934     A     
 SCANNER  *                                                                                SCANNER     1935     A     
 SCANNER  *         ON ENTRY - X6 = STRING LENGTH COUNT, LEFT-ADJ DPC, ZERO FILL.          SCANNER     1936     A     
 SCANNER  *                    B1 _ NEXT STATE.                                            SCANNER     1937     A     
 SCANNER  *                    B2 = <H>, <L> OR <R> IN DPC, RIGHT-ADJUSTED.                SCANNER     1938     A     
 SCANNER  *                                                                                SCANNER     1939     A     
 SCANNER  *         ON EXIT -  B1 _ NEXT STATE.                                            SCANNER     1940     A     
 SCANNER  *                    B5 = 1                                                      SCANNER     1941     A     
 SCANNER  *                    ALL OTHER REGISTERS DESTROYED.                              SCANNER     1942     A     
 SCANNER  *                                                                                SCANNER     1943     A     
 SCANNER  *         NORMAL EXIT - EQ BOSS                                                  SCANNER     1944     A     
 SCANNER  *         ERROR EXITS - CERP1, ERP2                                              SCANNER     1945     A     
 SCANNER  *                                                                                SCANNER     1946     A     
 SCANNER  *         SUBROUTINES CALLED - PACKC,PACKT,SCNSAVE,RESTO,NEXT,ANSIERP            SCANNER     1947     A     
 SCANNER  *                                                                                SCANNER     1948     A     
 SCANNER   HOLLRTH  SB5    1                                                               SCANNER     1949     A     
 SCANNER            SA5    N           NR CHARAC IN COUNT STRING                           SCANNER     1950     A     
 SCANNER            BX7    X7-X7       CLEAR BINARY ACCUMULATOR                            SCANNER     1951     A     
 SCANNER            LX6    6                                                               SCANNER     1952     A     
 SCANNER            SX5    X5-10                                                           SCANNER     1953     A     
 SCANNER            PL     X5,ERP2     IF TOO MANY CHARACTERS IN COUNT STRING              SCANNER     1954     A     
 SCANNER            MX0    -6          1-CHARACTER MASK                                    SCANNER     1955     A     
 SCANNER            BX4    X4-X4       CLEAR INTERMEDIATE HOLDING REGISTER                 SCANNER     1956     A     
 SCANNER                                                                                   SCANNER     1957     A     
 SCANNER  *  CONVERT DISPLAY CODED CHARACTER COUNT TO BINARY                               SCANNER     1958     A     
 SCANNER                                                                                   SCANNER     1959     A     
 SCANNER   HOLL1    IX2    X7+X7       * 2                                                 SCANNER     1960     A     
 SCANNER            LX7    3           * 8                                                 SCANNER     1961     A     
 SCANNER            BX3    -X0*X6      NEW DIGIT                                           SCANNER     1962     A     
 SCANNER            IX2    X2+X7       * 10                                                SCANNER     1963     A     
 SCANNER            LX6    6                                                               SCANNER     1964     A     
 SCANNER            IX7    X2+X4       MERGE NEW DIGIT                                     SCANNER     1965     A     
 SCANNER            SX4    X3-1R0      DPC TO BINARY                                       SCANNER     1966     A     
 SCANNER            PL     X4,HOLL1    IF NOT END OF DPC COUNT STRING                      SCANNER     1967     A     
 SCANNER            SB6    X7                                                              SCANNER     1968     A     
 SCANNER                                                                                   SCANNER     1969     A     
 SCANNER  *  PARTIALLY ASSEMBLE E-LIST ENTRY WORD FOR THE CONSTANT                         SCANNER     1970     A     
 SCANNER                                                                                   SCANNER     1971     A     
 SCANNER            SX1    B2-B5       TRANSFORMS H=07, L=13, R=21                         SCANNER     1972     A     
 SCANNER            ZR     B6,CERP1    IF ZERO-LENGTH HOLLERITH STRING                     SCANNER     1973     A     
 SCANNER            AX1    3           FINAL HOLL CONSTANT TYPE CODE H=0,L=1,R=2           SCANNER     1974     A     
 SCANNER            SX0    -E197       ERR MSG NR - *NON-ANSI CONSTANT TYPE*               SCANNER     1975     A     
 SCANNER                                                                                   SCANNER     1976     A     
 SCANNER   HOLL2    SX2    6           E-LIST TYPE CODE FOR HOLLERITH CONSTANT             SCANNER     1977     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1883    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            LX1    51                                                              SCANNER     1978     A     
 SCANNER            BX7    X1+X2                                                           SCANNER     1979     A     
 SCANNER            SA7    CTYPE       TEMP SAVE E-LIST ENTRY                              SCANNER     1980     A     
 SCANNER            ZR     X1,HOLL3    IF H(OLLERITH) TYPE STRING                          SCANNER     1981     A     
 SCANNER            RJ     ANSIERP     GO FILE NON-ANSI DIAGNOSTIC                         SCANNER     1982     A     
 SCANNER                                                                                   SCANNER     1983     A     
 SCANNER  *         INITIALIZE FOR PACKING LOOP.                                           SCANNER     1984     A     
 SCANNER                                                                                   SCANNER     1985     A     
 SCANNER   HOLL3    SB5    1                                                               SCANNER     1986     A     
 SCANNER            SA3    COLS                                                            SCANNER     1987     A     
 SCANNER            SB4    1R"         (B4) = STRING DELIMITER                             SCANNER     1988     A     
 SCANNER            MX6    0           (X6) = CONSTANT STRING PACKING REGISTER             SCANNER     1989     A     
 SCANNER            SB7    B0          (B7) = LEADING BLANK COUNT                          SCANNER     1990     A     
 SCANNER            SA4    X3+SBUFF-1  INITIALIZE CHARACTER FETCH POINTER                  SCANNER     1991     A     
 SCANNER            SX5    1R                                                              SCANNER     1992     A     
 SCANNER            SA6    N           CLEAR ACTUAL STRING LENGTH COUNTER                  SCANNER     1993     A     
 SCANNER                                                                                   SCANNER     1994     A     
 SCANNER  *  GET NEXT STRING CHARACTER                                                     SCANNER     1995     A     
 SCANNER                                                                                   SCANNER     1996     A     
 SCANNER   HOLL4    NZ     B7,HOLL5    IF CURRENT NON-BLANK CHARACTER NOT PACKED           SCANNER     1997     A     
 SCANNER            SA4    A4+B5       FETCH NEXT NON-BLANK CHARACTER                      SCANNER     1998     A     
 SCANNER            UX3,B7 X4          LEADING BLANK COUNT TO B7, NON-BLANK TO X3          SCANNER     1999     A     
 SCANNER                                                                                   SCANNER     2000     A     
 SCANNER   HOLL5    SB2    X5          BLANK FOR PACK (IF NEEDED)                          SCANNER     2001     A     
 SCANNER            NE     B7,B5,HOLL6 IF LEADING BLANK(S) TO RESTORE                      SCANNER     2002     A     
 SCANNER            SB2    X3          NON-BLANK CHARACTER FOR PACK                        SCANNER     2003     A     
 SCANNER                                                                                   SCANNER     2004     A     
 SCANNER   HOLL6    MI     B2,HOLL9    IF E-O-L SENTINEL                                   SCANNER     2005     A     
 SCANNER            SB6    B6-B5       HOLLERITH STRING COUNT - 1                          SCANNER     2006     A     
 SCANNER            SB7    B7-B5       LEADING BLANK COUNT - 1                             SCANNER     2007     A     
 SCANNER            PL     B6,HOLL7    IF NOT DELIMITED STRING                             SCANNER     2008     A     
 SCANNER            SX0    B6+1                                                            SCANNER     2009     A     
 SCANNER            EQ     B2,B4,DELIM1   IF STRING DELIMITER < " >                        SCANNER     2010     A     
 SCANNER            ZR     X0,DELIM2   IF PREVIOUS CHAR WAS DELIM, END OF STRING           SCANNER     2011     A     
 SCANNER                                                                                   SCANNER     2012     A     
 SCANNER  *  PACK CURRENT CHARACTER AND TEST FOR END-OF-STRING                             SCANNER     2013     A     
 SCANNER                                                                                   SCANNER     2014     A     
 SCANNER   HOLL7    RJ     PACKC       GO PACK CURRENT CHARACTER                           SCANNER     2015     A     
 SCANNER            NZ     B6,HOLL4    IF HOLL COUNT NOT EXHAUSTED                         SCANNER     2016     A     
 SCANNER                                                                                   SCANNER     2017     A     
 SCANNER  *  TERMINAL PROCESSING FOR NON-DELIMITED STRING                                  SCANNER     2018     A     
 SCANNER                                                                                   SCANNER     2019     A     
 SCANNER            SX7    A4-SBUFF    RECONSTRUCT 'SBUFF' ORDINAL                         SCANNER     2020     A     
 SCANNER            NZ     B7,HOLL8    IF CURRENT CHAR NOT PART OF HOLL STRING             SCANNER     2021     A     
 SCANNER            SX7    X7+1        ADV POINTER TO NEXT CHAR FOR 'COLS' UPDATE          SCANNER     2022     A     
 SCANNER                                                                                   SCANNER     2023     A     
 SCANNER   HOLL8    SA7    COLS        UPDATE ORDINAL                                      SCANNER     2024     A     
 SCANNER            RJ     PACKT       GO TERMINATE CONSTANT, MAKE E-LIST ENTRIES          SCANNER     2025     A     
 SCANNER            SB5    1                                                               SCANNER     2026     A     
 SCANNER            RJ     GET         GET NEXT CHARACTER                                  SCANNER     2027     A     
 SCANNER            JP     B1          CONTINUE LEXICAL SCAN...                            SCANNER     2028     A     
 SCANNER                                                                                   SCANNER     2029     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1884    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *  END OF CARD ENCOUNTERED                                                       SCANNER     2030     A     
 SCANNER                                                                                   SCANNER     2031     A     
 SCANNER   HOLL9    SX7    -1                                                              SCANNER     2032     A     
 SCANNER            SX0    B6                                                              SCANNER     2033     A     
 SCANNER   +        NZ     X0,*+1      IF NOT LOOKING FOR 2ND DELIMITER                    SCANNER     2034     A     
 SCANNER            SX7    *           SET P-I-P FLAG TO NON-HOLL (>0) TO AVOID            SCANNER     2035     A     
 SCANNER  *                              INCOMPLETE PACK ERR IF E-O-S ENCOUNTERED          SCANNER     2036     A     
 SCANNER            SA7    CAD         SET PACK-IN-PROGRESS FLAG                           SCANNER     2037     A     
 SCANNER            RJ     SCNSAVE                                                         SCANNER     2038          I
          -FEAT121L 
 SCANNER            RJ     SAV         SAVE PACKING REGISTERS                              FEAT121L     310     A     
 SCANNER            RJ     NEXT                                                            SCANNER     2039          I
          -FEAT121L 
 SCANNER            RJ     NXT         REQUEST AND PROCESS NEXT SOURCE LINE                FEAT121L     311     A     
 SCANNER            NZ     X1,NEWS     IF NEW STATEMENT FOUND                              FEAT121L     312     A     
 SCANNER            SB4    1R"                                                             SCANNER     2040     A     
 SCANNER            RJ     RESTO                                                           SCANNER     2041          I
          -FEAT121L 
 SCANNER            RJ     RES         RESTORE PACKING REGISTERS                           FEAT121L     313     A     
 SCANNER            SA4    SBUFF       INITIALIZE CHARACTER FETCH POINTER                  SCANNER     2042     A     
 SCANNER            SB5    1                                                               SCANNER     2043     A     
 SCANNER            UX3,B7 X4                                                              SCANNER     2044     A     
 SCANNER            EQ     HOLL5                                                           SCANNER     2045     A     
 SCANNER   DELIMH   SPACE  4,8                                                             SCANNER     2046     A     
 SCANNER  *  PROCESS DELIMITED HOLLERITH CONSTANT STRING                                   SCANNER     2047     A     
 SCANNER                                                                                   SCANNER     2048     A     
 SCANNER   DELIMH   SX0    -E259       ERR MSG NR                                          SCANNER     2049     A     
 SCANNER            SX1    4           (X1) = AUX TYPE CODE FOR DELIM CONSTANT             SCANNER     2050     A     
 SCANNER            SB6    -1          SET *DELIM STRING* STATUS                           SCANNER     2051     A     
 SCANNER            EQ     HOLL2                                                           SCANNER     2052     A     
 SCANNER                                                                                   SCANNER     2053     A     
 SCANNER  *  INTERMEDIATE PROCESSING FOR DELIMITED STRING                                  SCANNER     2054     A     
 SCANNER                                                                                   SCANNER     2055     A     
 SCANNER   DELIM1   ZR     X0,HOLL7    IF 2ND CONSEC DELIMITER FOUND, GO PACK ONE          SCANNER     2056     A     
 SCANNER            SB6    0           FLAG TO INDICATE ONE DELIMITER FOUND                SCANNER     2057     A     
 SCANNER            EQ     HOLL4       GO LOOK FOR 2ND CONSEC DELIMITER                    SCANNER     2058     A     
 SCANNER                                                                                   SCANNER     2059     A     
 SCANNER  *  TERMINAL PROCESSING FOR DELIMITED STRING                                      SCANNER     2060     A     
 SCANNER                                                                                   SCANNER     2061     A     
 SCANNER   DELIM2   SA1    N           STRING LENGTH                                       SCANNER     2062     A     
 SCANNER            SX7    A4-SBUFF    RECONSTRUCT COLUMN POINTER 'COLS'                   SCANNER     2063     A     
 SCANNER            NZ     X1,HOLL8    IF NOT ZERO-LENGTH STRING                           SCANNER     2064     A     
 SCANNER            EQ     CERP1                                                           SCANNER     2065     A     
 SCANNER   IMP      TITLE  IMP - IMPLICIT STATEMENT TYPE PROCESSOR                         SCANNER     2066     A     
 SCANNER  **        IMP - IMPLICIT STATEMENT TYPE PROCESSOR.                               SCANNER     2067     A     
 SCANNER  *                                                                                SCANNER     2068     A     
 SCANNER  *                THE *IMPLICIT* STATEMENT IS IRREGULAR IN ALLOWING THE           SCANNER     2069     A     
 SCANNER  *         15-CHARACTER STRING *DOUBLEPRECISION* TO APPEAR IN NON-KEYWORD         SCANNER     2070     A     
 SCANNER  *         POSITIONS.  SINCE *PACK7* CAN-T HANDLE A STRING THIS LONG,             SCANNER     2071     A     
 SCANNER  *         *LEX8* TRAPPED IT AND CALLED *PACK30* INSTEAD.  *IMP* ERROR            SCANNER     2072     A     
 SCANNER  *         CHECKS THE STRING, TRUNCATES IT TO *DOUBLE*, FORMATS AND               SCANNER     2073     A     
 SCANNER  *         STORES IT IN E-LIST.  OTHER, SHORTER STRINGS ARE JUST                  SCANNER     2074     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1885    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *         FORMATTED AND STORED.  *DECPRO/DPIMP* WILL CHECK THEM LATER.           SCANNER     2075     A     
 SCANNER  *                                                                                SCANNER     2076     A     
 SCANNER  *                                                                                SCANNER     2077     A     
 SCANNER  *         ENTRY  (B5) = 1                                                        SCANNER     2078     A     
 SCANNER  *                (B6) = TYPE KEYWORD STRING LENGTH (CHARACTERS)                  SCANNER     2079     A     
 SCANNER  *                                                                                SCANNER     2080     A     
 SCANNER  *         EXIT   (B5) = 1                                                        SCANNER     2081     A     
 SCANNER  *                (B6) = ADJUSTED LENGTH OF TYPE KEYWORD (CHARACTERS)             SCANNER     2082     A     
 SCANNER  *                8 OR FEWER CHARACTERS ARE STORED IN E-LIST AT (ELAST),          SCANNER     2083     A     
 SCANNER  *                IN STANDARD VARIABLE NAME FORMAT.                               SCANNER     2084     A     
 SCANNER  *                                                                                SCANNER     2085     A     
 SCANNER  *         USES   X - 1, 2, 3, 6                                                  SCANNER     2086     A     
 SCANNER  *                A - 1, 2, 3, 6                                                  SCANNER     2087     A     
 SCANNER  *                B - 3, 6                                                        SCANNER     2088     A     
 SCANNER  *                                                                                SCANNER     2089     A     
 SCANNER  *         CALLS  ELPUT.                                                          SCANNER     2090     A     
 SCANNER                                                                                   SCANNER     2091     A     
 SCANNER                                                                                   SCANNER     2092     A     
 SCANNER   IMP      SUBR               ** ENTRY/EXIT **                                    SCANNER     2093     A     
 SCANNER            SA1    KEYL                                                            SCANNER     2094     A     
 SCANNER            SA2    A1+B5       (X2) = KEYWORD CHARACTERS 1-10                      SCANNER     2095     A     
 SCANNER            UX1,B6 X1          (B6) = KEYWORD LENGTH (CHARACTERS)                  SCANNER     2096     A     
 SCANNER                                                                                   SCANNER     2097     A     
 SCANNER  *         CHECK FOR *DOUBLEPRECISION* LENGTH AND CHARACTER MATCH.                SCANNER     2098     A     
 SCANNER                                                                                   SCANNER     2099     A     
 SCANNER            SA3    =L*DOUBLEPRECISION*                                             SCANNER     2100     A     
 SCANNER            SA1    A2+B5       (X1) = KEYWORD CHARACTERS 11-20                     SCANNER     2101     A     
 SCANNER            IX6    X2-X3                                                           SCANNER     2102     A     
 SCANNER            NZ     X6,IMP2     IF MISMATCH                                         SCANNER     2103     A     
 SCANNER            SA3    A3+B5       (X3) = *ISION*, -L- FORMAT                          SCANNER     2104     A     
 SCANNER            IX6    X1-X3                                                           SCANNER     2105     A     
 SCANNER            NZ     X6,IMP2     IF MISMATCH                                         SCANNER     2106     A     
 SCANNER            MX1    6*6                                                             SCANNER     2107     A     
 SCANNER            BX2    X1*X2       TRUNCATE 1-10 TO *DOUBLE*                           SCANNER     2108     A     
 SCANNER            SB6    6           NR CHARACTERS IN *DOUBLE*                           SCANNER     2109     A     
 SCANNER                                                                                   SCANNER     2110     A     
 SCANNER  *         CONVERT STRING TO E-LIST FORMAT (MAX 8 CHARS) AND STORE.               SCANNER     2111     A     
 SCANNER                                                                                   SCANNER     2112     A     
 SCANNER   IMP2     SB3    8                                                               SCANNER     2113     A     
 SCANNER            LE     B6,B3,IMP3  IF LENGTH .LE. 8                                    SCANNER     2114     A     
 SCANNER            SB6    8                                                               SCANNER     2115     A     
 SCANNER   IMP3     SA1    FILL8R+B6   BLANK FILL                                          SCANNER     2116     A     
 SCANNER            AX2    12                                                              SCANNER     2117     A     
 SCANNER            SX6    B0                                                              SCANNER     2118     A     
 SCANNER            PX3    X2,B5                                                           SCANNER     2119     A     
 SCANNER            BX1    X3+X1       BLANK FILL                                          SCANNER     2120     A     
 SCANNER            SA6    IMPFLG      CLEAR *IMPLICIT-IN-PROGRESS* FLAG                   SCANNER     2121     A     
 SCANNER            ELPUT  X1                                                              SCANNER     2122     A     
 SCANNER            EQ     EXIT.                                                           SCANNER     2123     A     
 SCANNER   LEX      TITLE  LEX - BEGIN LEXICAL SCAN OF STATEMENT.                          SCANNER     2124     A     
 SCANNER  **        LEX - BEGIN LEXICAL SCAN OF STATEMENT.                                 SCANNER     2125     A     
 SCANNER  *                                                                                SCANNER     2126     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1886    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *                LEXICALLY SCANS AND GENERATES *ELIST* FOR A STATEMENT           SCANNER     2127     A     
 SCANNER  *         BY CHAINING THROUGH THE *LEX-N-* ROUTINES. IF POSSIBLE, THE            SCANNER     2128     A     
 SCANNER  *         STATEMENT IS ALSO TYPED.                                               SCANNER     2129     A     
 SCANNER  *                                                                                SCANNER     2130     A     
 SCANNER  *         ENTRY  INITIAL LINE OF STATEMENT IS BURST IN STRING BUFFER.            SCANNER     2131     A     
 SCANNER  *                                                                                SCANNER     2132     A     
 SCANNER  *         EXIT   (TYPE) = STATEMENT TYPE CODE.                                   SCANNER     2133     A     
 SCANNER  *                (SELIST) = ADDR OF 1ST *ELIST* ELEMENT OF STATEMENT.            SCANNER     2134     A     
 SCANNER  *                (ELAST) = ADDR OF LAST *ELIST* ELEMENT OF STATEMENT.            SCANNER     2135     A     
 SCANNER  *                *ELIST* IS AN INVERTED TABLE GROWING FROM A HIGH CORE           SCANNER     2136     A     
 SCANNER  *                ADDRESS TO A LOWER CORE ADDRESS.                                SCANNER     2137     A     
 SCANNER  *                THEREFORE, (SELIST).GE.(ELAST).                                 SCANNER     2138     A     
 SCANNER  *                                                                                SCANNER     2139     A     
 SCANNER                                                                                   SCANNER     2140     A     
 SCANNER  *         LEX TYPE DETERMINER.                                                   SCANNER     2141     A     
 SCANNER  *                                                                                SCANNER     2142     A     
 SCANNER            CON    SCANNER1                                                        SCANNER     2143     A     
 SCANNER                                                                                   SCANNER     2144     A     
 SCANNER                                                                                   SCANNER     2145     A     
 SCANNER   LEX      ENTRY. *           ** ENTRY/EXIT **                                    SCANNER     2146     A     
 SCANNER            SA1    LELIST                                                          SCANNER     2147     A     
 SCANNER            SB5    1                                                               SCANNER     2148     A     
 SCANNER            NZ     X1,LEX12    IF RESTARTING FOR OBJECT OF ONE-BRANCH *IF*         SCANNER     2149     A     
 SCANNER            RJ     GET         GET FIRST CHARACTER OF STMT                         SCANNER     2150     A     
 SCANNER            SX7    1                                                               SCANNER     2151     A     
 SCANNER            SA7    NULLSTMT    *NULL STATEMENT* FLAG OFF                           SCANNER     2152     A     
 SCANNER            SB6    1R0                                                             SCANNER     2153     A     
 SCANNER            SB7    1R$                                                             SCANNER     2154     A     
 SCANNER            LT     B2,B6,LEX12 IF STMT BEGINS WITH ALPHABETIC                      SCANNER     2155     A     
 SCANNER            NE     B2,B7,ERP2  IF STMT DOES NOT BEGIN WITH $                       SCANNER     2156     A     
 SCANNER            RJ     P$T         PROCESS $ TERMINATOR                                SCANNER     2157     A     
 SCANNER            EQ     SCANNER1    IGNORE NULL STMT                                    SCANNER     2158     A     
 SCANNER                                                                                   SCANNER     2159     A     
 SCANNER   LEX12    SA1    DTYPE                                                           SCANNER     2160     A     
 SCANNER            NZ     X1,LEX13    IF DEBUG STATEMENT                                  SCANNER     2161     A     
 SCANNER                                                                                   FCC1469X      18     A     
 SCANNER            SA1    =XDFLAG                                                         FCC1469X      19     A     
 SCANNER            AX1    1                                                               FCC1469X      20     A     
 SCANNER            ZR     X1,LEX12B   IF INPUT FILE IS NOT EXTERNAL DEBUG FILE            FCC1469X      21     A     
 SCANNER            SA1    SBUFLG                                                          FCC1469X      22     A     
 SCANNER            NZ     X1,LEX      IF NEXT LINE ALREADY IN *SBUFF*                     FCC1469X      23     A     
 SCANNER                                                                                   FCC1469X      24     A     
 SCANNER   LEX12A   RJ     NXT         REQUEST AND PROCESS NEXT LINE                       FCC1469X      25     A     
 SCANNER            ZR     X1,LEX12A   IF LINE CONTINUED, STRIP                            FCC1469X      26     A     
 SCANNER            EQ     LEX                                                             FCC1469X      27     A     
 SCANNER                                                                                   FCC1469X      28     A     
 SCANNER   LEX12B   SB1    LEX2                                                            FCC1469X      29     A     
 SCANNER            SB1    LEX2        NEXT LEXICAL SCANNING ROUTINE                       SCANNER     2162          I
          -FCC1469X 
 SCANNER            RJ     PACK30      PACK 1ST 30 CHARS OF STMT                           SCANNER     2163     A     
 SCANNER            EQ     LEX2        CONTINUE SCAN...                                    SCANNER     2164     A     
 SCANNER                                                                                   SCANNER     2165     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1887    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER   LEX13    CALL   ISITDBG     TRY TO TYPE DEBUG KEYWORD                           SCANNER     2166     A     
 SCANNER            SA1    TYPE                                                            SCANNER     2167     A     
 SCANNER            SB1    LEX8        NEXT LEXICAL SCANNING ROUTINE                       SCANNER     2168     A     
 SCANNER            NZ     X1,LEX8     IF TYPED, THEN CONTINUE SCAN...                     SCANNER     2169     A     
 SCANNER            RJ     NEXT        GET NEXT CARD                                       SCANNER     2170          I
          -FEAT121L 
 SCANNER            RJ     NXT         REQUEST AND PROCESS NEXT SOURCE LINE                FEAT121L     314     A     
 SCANNER            NZ     X1,NEWS     IF NEW STATEMENT FOUND                              FEAT121L     315     A     
 SCANNER            EQ     LEX8        CONTINUE SCAN...                                    SCANNER     2171          I
          -FCC1173X 
 SCANNER   LEX.1    RJ     NXT         REQUEST AND PROCESS NEXT SOURCE LINE                FCC1173X       8     A     
 SCANNER            ZR     X1,LEX.1    IF NO NEW STATEMENT, STRIP CONTINUATION             FCC1173X       9     A     
 SCANNER            EQ     NEWS                                                            FCC1173X      10     A     
 SCANNER   LEX2     TITLE  LEX2 - ALPHANUMERIC FOLLOWED BY NON-ALPHANUMERIC.               SCANNER     2172     A     
 SCANNER  *         LEX2 JUMP TABLE.                                                       SCANNER     2173     A     
 SCANNER  *                                                                                SCANNER     2174     A     
 SCANNER   LJT2     JPC    ERP10       +                                                   SCANNER     2175     A     
 SCANNER            JPC    ERP10       -                                                   SCANNER     2176     A     
 SCANNER            JPC    LEX22       *                                                   SCANNER     2177     A     
 SCANNER            JPC    LEX23       /                                                   SCANNER     2178     A     
 SCANNER            JPC    LEX24,LP    (                                                   SCANNER     2179     A     
 SCANNER            JPC    ERP10       )                                                   SCANNER     2180     A     
 SCANNER            JPC    LEX24A      $                                                   SCANNER     2181     A     
 SCANNER            JPC    LEX26,EQU   =                                                   SCANNER     2182     A     
 SCANNER            JPC    LEX28       SPECIAL HOLLERITH STRING DELIMITER                  SCANNER     2183     A     
 SCANNER            JPC    LEX27       ,                                                   SCANNER     2184     A     
 SCANNER            JPC    ERP10       .                                                   SCANNER     2185     A     
 SCANNER                                                                                   SCANNER     2186     A     
 SCANNER  *         LEX2 - ALPHANUMERIC FOLLOWED BY NON-ALPHANUMERIC.                      SCANNER     2187     A     
 SCANNER  *                                                                                SCANNER     2188     A     
 SCANNER   LEX2     TYPER  LEX25                                                           SCANNER     2189     A     
 SCANNER            SA1    B2+LJT2-1R+                                                     SCANNER     2190     A     
 SCANNER            SB3    X1                                                              SCANNER     2191     A     
 SCANNER            LX1    30                                                              SCANNER     2192     A     
 SCANNER            JP     B3                                                              SCANNER     2193     A     
 SCANNER                                                                                   SCANNER     2194     A     
 SCANNER  *         LEX22 - ALPHANUMERIC FOLLOWED BY *                                     SCANNER     2195     A     
 SCANNER  *                                                                                SCANNER     2196     A     
 SCANNER   LEX22    SRCH   LEX8        TRY TO TYPE STMT                                    SCANNER     2197     A     
 SCANNER            LX0    B4,X1                                                           SCANNER     2198     A     
 SCANNER            PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                            SCANNER     2199     A     
 SCANNER            RJ     ADJ         REMOVE LABEL AND/OR VARIABLE FROM STRING            SCANNER     2200     A     
 SCANNER            EQ     LEX8        CONTINUE LEXICAL SCAN...                            SCANNER     2201     A     
 SCANNER                                                                                   SCANNER     2202     A     
 SCANNER  *         LEX23 - ALPHANUMERIC FOLLOWED BY /                                     SCANNER     2203     A     
 SCANNER  *                                                                                SCANNER     2204     A     
 SCANNER   LEX23    SRCH   LEX8        TRY TO TYPE STMT                                    SCANNER     2205     A     
 SCANNER            LX0    B4,X1                                                           SCANNER     2206     A     
 SCANNER            PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                            SCANNER     2207     A     
 SCANNER            RJ     ADJ         REMOVE LABEL AND/OR VARIABLE                        SCANNER     2208     A     
 SCANNER            EQ     LEX8        CONTINUE LEXICAL SCAN...                            SCANNER     2209     A     
 SCANNER                                                                                   SCANNER     2210     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1888    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *         LEX24 - ALPHANUMERIC FOLLOWED BY (                                     SCANNER     2211     A     
 SCANNER  *                                                                                SCANNER     2212     A     
 SCANNER   LEX24    SA2    NLABEL                                                          SCANNER     2213     A     
 SCANNER            SX6    1                                                               SCANNER     2214     A     
 SCANNER            SB1    LEX3        RETURN ADDR                                         SCANNER     2215     A     
 SCANNER            SA6    PARENS      INITIALIZE PAREN COUNT                              SCANNER     2216     A     
 SCANNER            ZR     X2,ADD1     IF NOT LABELLED, THEN NOT *FORMAT*                  SCANNER     2217     A     
 SCANNER            SA2    =6LFORMAT                                                       SCANNER     2218     A     
 SCANNER            SA3    KEYW                                                            SCANNER     2219     A     
 SCANNER            NO                                                                     SCANNER     2220     A     
 SCANNER            BX7    X2-X3                                                           SCANNER     2221     A     
 SCANNER            ZR     X7,FORMAT   IF *FORMAT* STMT                                    SCANNER     2222     A     
 SCANNER            EQ     ADD1                                                            SCANNER     2223     A     
 SCANNER                                                                                   SCANNER     2224     A     
 SCANNER  *         LEX25 - ALPHANUMERIC FOLLOWED BY $ OR TERMINATED                       SCANNER     2225     A     
 SCANNER  *                 BY NEXT CARD.                                                  SCANNER     2226     A     
 SCANNER  *                                                                                SCANNER     2227     A     
 SCANNER   LEX24A   RJ     P$T         PROCESS $ TERMINATOR                                SCANNER     2228     A     
 SCANNER                                                                                   SCANNER     2229     A     
 SCANNER   LEX25    SRCH   LEX         TRY TO TYPE STMT                                    SCANNER     2230     A     
 SCANNER            LX0    B4,X1                                                           SCANNER     2231     A     
 SCANNER            PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                            SCANNER     2232     A     
 SCANNER            RJ     ADJ         REMOVE LABEL AND/OR VARIABLE                        SCANNER     2233     A     
 SCANNER            EQ     LEX         DONE, SO EXIT...                                    SCANNER     2234     A     
 SCANNER                                                                                   SCANNER     2235     A     
 SCANNER  *         LEX26 - ALPHANUMERIC FOLLOWED BY =                                     SCANNER     2236     A     
 SCANNER  *                                                                                SCANNER     2237     A     
 SCANNER   LEX26    SX6    1                                                               SCANNER     2238     A     
 SCANNER            SB1    LEX5        NEXT STATE                                          SCANNER     2239     A     
 SCANNER            SA6    N.EQUAL     NR OF =                                             SCANNER     2240     A     
 SCANNER            EQ     ADD1                                                            SCANNER     2241     A     
 SCANNER                                                                                   SCANNER     2242     A     
 SCANNER  *         LEX27 - ALPHANUMERIC FOLLOWED BY ,                                     SCANNER     2243     A     
 SCANNER  *                                                                                SCANNER     2244     A     
 SCANNER   LEX27    SRCH   LEX8        TRY TO TYPE STMT                                    SCANNER     2245     A     
 SCANNER            LX0    B4,X1                                                           SCANNER     2246     A     
 SCANNER            PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                            SCANNER     2247     A     
 SCANNER            RJ     ADJ         REMOVE LABEL AND/OR VARIABLE FROM STRING            SCANNER     2248     A     
 SCANNER            EQ     LEX8        CONTINUE LEXICAL SCAN...                            SCANNER     2249     A     
 SCANNER                                                                                   SCANNER     2250     A     
 SCANNER  *         LEX28 - ALPHANUMERIC FOLLOWED BY DELIMITED HOLLERITH STRING.           SCANNER     2251     A     
 SCANNER  *                                                                                SCANNER     2252     A     
 SCANNER   LEX28    SB1    LEX29       RETURN ADDR                                         SCANNER     2253     A     
 SCANNER            EQ     DELIMH                                                          SCANNER     2254     A     
 SCANNER                                                                                   SCANNER     2255     A     
 SCANNER            CON    LEX25       AUXILIARY TYPE DETERMINER FOR                       SCANNER     2256     A     
 SCANNER  *                            *STOP*,*PAUSE* STMTS                                SCANNER     2257     A     
 SCANNER                                                                                   SCANNER     2258     A     
 SCANNER   LEX29    SB4    1R$                                                             SCANNER     2259     A     
 SCANNER            EQ     B2,B4,LEX24A  IF STMT TERMINATED BY $                           SCANNER     2260     A     
 SCANNER            EQ     ERP10                                                           SCANNER     2261     A     
 SCANNER   LEX3     TITLE  LEX3 - SCANNING CONTINUES AFTER FIRST LEFT PARENTHESIS.         SCANNER     2262     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1889    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *         LEX3 JUMP TABLE.                                                       SCANNER     2263     A     
 SCANNER  *                                                                                SCANNER     2264     A     
 SCANNER   LJT3     JPC    ADD1,PLUS   +                                                   SCANNER     2265     A     
 SCANNER            JPC    ADD1,MINUS  -                                                   SCANNER     2266     A     
 SCANNER            JPC    LEX83       *                                                   SCANNER     2267     A     
 SCANNER            JPC    ADD1,SLASH  /                                                   SCANNER     2268     A     
 SCANNER            JPC    LEX33,LP    (                                                   SCANNER     2269     A     
 SCANNER            JPC    LEX34,RP    )                                                   SCANNER     2270     A     
 SCANNER            JPC    ERP11       $                                                   SCANNER     2271     A     
 SCANNER            JPC    LEX35,EQU   =                                                   SCANNER     2272     A     
 SCANNER            JPC    DELIMH      SPECIAL HOLLERITH STRING DELIMITER                  SCANNER     2273     A     
 SCANNER            JPC    ADD1,COMMA  ,                                                   SCANNER     2274     A     
 SCANNER            JPC    POINT       .                                                   SCANNER     2275     A     
 SCANNER                                                                                   SCANNER     2276     A     
 SCANNER  *         LEX3 - SCANNING CONTINUES AFTER FIRST LEFT PAREN.                      SCANNER     2277     A     
 SCANNER  *                                                                                SCANNER     2278     A     
 SCANNER   LEX3     TYPER  ERP10                                                           SCANNER     2279     A     
 SCANNER            SB3    1R0                                                             SCANNER     2280     A     
 SCANNER            LT     B2,B3,LEX32 IF ALPHABETIC                                       SCANNER     2281     A     
 SCANNER            SB3    1R+                                                             SCANNER     2282     A     
 SCANNER            LT     B2,B3,DIGIT  IF NUMERIC, PACK CONSTANT                          SCANNER     2283     A     
 SCANNER            SA1    B2+LJT3-1R+                                                     SCANNER     2284     A     
 SCANNER            SB3    X1                                                              SCANNER     2285     A     
 SCANNER            LX1    30                                                              SCANNER     2286     A     
 SCANNER            JP     B3                                                              SCANNER     2287     A     
 SCANNER                                                                                   SCANNER     2288     A     
 SCANNER  *         LEX32 - ALHANUMERIC(...   FOLLOWED BY ALPHABETIC.                      SCANNER     2289     A     
 SCANNER  *                                                                                SCANNER     2290     A     
 SCANNER   LEX32    RJ     PACK7       PACK SYMBOLIC NAME AND STORE IN *ELIST*             SCANNER     2291     A     
 SCANNER            EQ     LEX3        CONTINUE SCAN...                                    SCANNER     2292     A     
 SCANNER                                                                                   SCANNER     2293     A     
 SCANNER  *         LEX33 - ALPHANUMERIC(...   FOLLOWED BY (                               SCANNER     2294     A     
 SCANNER  *                                                                                SCANNER     2295     A     
 SCANNER   LEX33    SA2    PARENS                                                          SCANNER     2296     A     
 SCANNER            SX6    X2+1        PAREN COUNT+1                                       SCANNER     2297     A     
 SCANNER            SA6    A2                                                              SCANNER     2298     A     
 SCANNER            EQ     ADD1        MAKE ELIST ENTRY                                    SCANNER     2299     A     
 SCANNER                                                                                   SCANNER     2300     A     
 SCANNER  *         LEX34 - ALPHANUMERIC(...   FOLLOWED BY )                               SCANNER     2301     A     
 SCANNER  *                                                                                SCANNER     2302     A     
 SCANNER   LEX34    SA2    PARENS                                                          SCANNER     2303     A     
 SCANNER            SX6    X2-1        PAREN COUNT-1                                       SCANNER     2304     A     
 SCANNER            SA6    PARENS                                                          SCANNER     2305     A     
 SCANNER            NZ     X6,ADD1     IF PAREN COUNT NOT ZERO                             SCANNER     2306     A     
 SCANNER                                                                                   SCANNER     2307     A     
 SCANNER  *         WHEN PAREN COUNT HAS GONE TO ZERO.                                     SCANNER     2308     A     
 SCANNER                                                                                   SCANNER     2309     A     
 SCANNER            SB1    LEX4        RETURN ADDR                                         SCANNER     2310     A     
 SCANNER            EQ     ADD1        MAKE *ELIST* ENTRY...                               SCANNER     2311     A     
 SCANNER                                                                                   SCANNER     2312     A     
 SCANNER  *         LEX35 - ALPHANUMERIC(...   FOLLOWED BY =                               SCANNER     2313     A     
 SCANNER  *                                                                                SCANNER     2314     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1890    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER   LEX35    SA5    N.EQUAL                                                         SCANNER     2315     A     
 SCANNER            SX6    X5+1        NR EQUAL SIGNS+1                                    SCANNER     2316     A     
 SCANNER            SA6    A5                                                              SCANNER     2317     A     
 SCANNER            EQ     ADD1        MAKE *ELIST* ENTRY...                               SCANNER     2318     A     
 SCANNER   LEX4     TITLE  LEX4 - ALPHANUMERIC(...)     WHEN PAREN COUNT GOES TO Z         SCANNER     2319     A     
 SCANNER  ,ERO.                                                                            SCANNER     2320     A     
 SCANNER  *         LEX4 JUMP TABLE.                                                       SCANNER     2321     A     
 SCANNER  *                                                                                SCANNER     2322     A     
 SCANNER   LJT4     JPC    LEX44       +                                                   SCANNER     2323     A     
 SCANNER            JPC    LEX44       -                                                   SCANNER     2324     A     
 SCANNER            JPC    ERP10       *                                                   SCANNER     2325     A     
 SCANNER            JPC    LEX45       /                                                   SCANNER     2326     A     
 SCANNER            JPC    LEX46       (                                                   SCANNER     2327     A     
 SCANNER            JPC    ERP10       )                                                   SCANNER     2328     A     
 SCANNER            JPC    LEX46A      $                                                   SCANNER     2329     A     
 SCANNER            JPC    LEX48       =                                                   SCANNER     2330     A     
 SCANNER            JPC    LEX410      SPECIAL HOLLERITH STRING DELIMITER                  SCANNER     2331     A     
 SCANNER            JPC    LEX49       ,                                                   SCANNER     2332     A     
 SCANNER            JPC    LEX44       .                                                   SCANNER     2333     A     
 SCANNER                                                                                   SCANNER     2334     A     
 SCANNER  *         LEX4 - ALPHANUMERIC(...)     WHEN PAREN COUNT GOES TO ZERO.            SCANNER     2335     A     
 SCANNER  *                                                                                SCANNER     2336     A     
 SCANNER   LEX4     TYPER  LEX47                                                           SCANNER     2337     A     
 SCANNER            SB3    1R+                                                             SCANNER     2338     A     
 SCANNER            LT     B2,B3,LEX42 IF ALPHANUMERIC                                     SCANNER     2339     A     
 SCANNER            SA1    B2+LJT4-1R+                                                     SCANNER     2340     A     
 SCANNER            SB3    X1                                                              SCANNER     2341     A     
 SCANNER            LX1    30                                                              SCANNER     2342     A     
 SCANNER            JP     B3                                                              SCANNER     2343     A     
 SCANNER                                                                                   SCANNER     2344     A     
 SCANNER  *         LEX42 - ALPHANUMERIC(...)   FOLLOWED BY ALPHANUMERIC.                  SCANNER     2345     A     
 SCANNER  *                                                                                SCANNER     2346     A     
 SCANNER   LEX42    SRCH   LEX8        TRY TO TYPE STMT                                    SCANNER     2347     A     
 SCANNER            LX0    B4,X1                                                           SCANNER     2348     A     
 SCANNER            PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                            SCANNER     2349     A     
 SCANNER            RJ     ADJ         REMOVE LEADING LABEL AND/OR VARIABLE                SCANNER     2350     A     
 SCANNER            SA1    TYPE                                                            SCANNER     2351     A     
 SCANNER            SA2    LELIST                                                          SCANNER     2352     A     
 SCANNER            SB3    1R0                                                             SCANNER     2353     A     
 SCANNER            SX7    X1-ST.LIF                                                       SCANNER     2354     A     
 SCANNER            NZ     X7,LEX8     IF NOT *IF*, CONTINUE LEXICAL SCAN...               SCANNER     2355     A     
 SCANNER            GE     B2,B3,LEX43 IF STMT IS *IF(...)NUMERIC*                         SCANNER     2356     A     
 SCANNER                                                                                   SCANNER     2357     A     
 SCANNER  *         STMT IS *IF(...)ALPHABETIC*.                                           SCANNER     2358     A     
 SCANNER                                                                                   SCANNER     2359     A     
 SCANNER            NZ     X2,ERP3     IF STMT IS *IF(...)IF(...)NON-NUMERIC*              SCANNER     2360     A     
 SCANNER            MX6    -1                                                              SCANNER     2361     A     
 SCANNER            NO                                                                     SCANNER     2362     A     
 SCANNER            SA6    LELIST      SET TO *NEED TO TYPE OBJECT OF LOGICAL IF*          SCANNER     2363     A     
 SCANNER            EQ     LEX         EXIT...                                             SCANNER     2364     A     
 SCANNER                                                                                   SCANNER     2365     A     
 SCANNER  *         STMT IS *IF(...)NUMERIC*.                                              SCANNER     2366     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1891    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER                                                                                   SCANNER     2367     A     
 SCANNER   LEX43    SX6    16                                                              SCANNER     2368     A     
 SCANNER            SA6    TYPE                                                            SCANNER     2369     A     
 SCANNER            EQ     LEX8        CONTINUE LEXICAL SCAN...                            SCANNER     2370     A     
 SCANNER                                                                                   SCANNER     2371     A     
 SCANNER  *         LEX44 - ALPHANUMERIC(...)   FOLLOWED BY . + -                          SCANNER     2372     A     
 SCANNER  *                                                                                SCANNER     2373     A     
 SCANNER   LEX44    SRCH   LEX8        TRY TO TYPE STMT                                    SCANNER     2374     A     
 SCANNER            LX0    B4,X1                                                           SCANNER     2375     A     
 SCANNER            PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                            SCANNER     2376     A     
 SCANNER            EQ     LEX8        CONTINUE LEXICAL SCAN...                            SCANNER     2377     A     
 SCANNER                                                                                   SCANNER     2378     A     
 SCANNER  *         LEX45 - ALPHANUMERIC(...)   FOLLOWED BY /                              SCANNER     2379     A     
 SCANNER  *                                                                                SCANNER     2380     A     
 SCANNER   LEX45    SRCH   LEX8        TRY TO TYPE STMT                                    SCANNER     2381     A     
 SCANNER            LX0    B4,X1                                                           SCANNER     2382     A     
 SCANNER            PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                            SCANNER     2383     A     
 SCANNER            RJ     ADJ         REMOVE VARIABLE AND STORE IN *ELIST*                SCANNER     2384     A     
 SCANNER            EQ     LEX8        CONTINUE LEXICAL SCAN...                            SCANNER     2385     A     
 SCANNER                                                                                   SCANNER     2386     A     
 SCANNER  *         LEX46 - ALPHANUMERIC(...)   FOLLOWED BY (                              SCANNER     2387     A     
 SCANNER  *                                                                                SCANNER     2388     A     
 SCANNER   LEX46    SRCH   LEX8        TRY TO TYPE STMT                                    SCANNER     2389     A     
 SCANNER            LX0    B4,X1                                                           SCANNER     2390     A     
 SCANNER            PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                            SCANNER     2391     A     
 SCANNER            RJ     ADJ         REMOVE VARIABLE AND STORE IN *ELIST*                FCC1984       10     A     
 SCANNER            EQ     LEX8        CONTINUE LEXICAL SCAN...                            SCANNER     2392     A     
 SCANNER                                                                                   SCANNER     2393     A     
 SCANNER  *         LEX47 - ALPHANUMERIC(...)   FOLLOWED BY $ OR TERMINATED                SCANNER     2394     A     
 SCANNER  *                 BY NEXT CARD.                                                  SCANNER     2395     A     
 SCANNER  *                                                                                SCANNER     2396     A     
 SCANNER   LEX46A   RJ     P$T         PROCESS $ TERMINATOR                                SCANNER     2397     A     
 SCANNER                                                                                   SCANNER     2398     A     
 SCANNER   LEX47    SRCH   LEX         TRY TO TYPE STMT                                    SCANNER     2399     A     
 SCANNER            LX0    B4,X1                                                           SCANNER     2400     A     
 SCANNER            PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                            SCANNER     2401     A     
 SCANNER            RJ     ADJ         REMOVE VARIABLE AND STORE IN *ELIST*                SCANNER     2402     A     
 SCANNER            EQ     LEX         DONE, SO EXIT...                                    SCANNER     2403     A     
 SCANNER                                                                                   SCANNER     2404     A     
 SCANNER  *         LEX48 - ALPHANUMERIC(...)   FOLLOWED BY =                              SCANNER     2405     A     
 SCANNER  *               - TYPE IS   F(...)=   OR   V=C                                   SCANNER     2406     A     
 SCANNER  *                                                                                SCANNER     2407     A     
 SCANNER   LEX48    SX6    12          ASF OR REPLACEMENT                                  SCANNER     2408     A     
 SCANNER            SB1    LEX8        ERROR RETURN ADDR                                   SCANNER     2409     A     
 SCANNER            SA6    TYPE                                                            SCANNER     2410     A     
 SCANNER            RJ     ADJ         MAKE *ELIST* ENTRY FOR *F* OR *V*                   SCANNER     2411     A     
 SCANNER            EQ     LEX8        CONTINUE LEXICAL SCAN...                            SCANNER     2412     A     
 SCANNER                                                                                   SCANNER     2413     A     
 SCANNER  *         LEX49 - ALPHANUMERIC(...)   FOLLOWED BY ,                              SCANNER     2414     A     
 SCANNER  *                                                                                SCANNER     2415     A     
 SCANNER   LEX49    SRCH   LEX8        TRY TO TYPE STMT                                    SCANNER     2416     A     
 SCANNER            LX0    B4,X1                                                           SCANNER     2417     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1892    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            PL     X0,ERP7     IF ILL SYNTAX IN STMT                               SCANNER     2418     A     
 SCANNER            RJ     ADJ         REMOVE LEADING LABEL AND/OR VARIABLE                SCANNER     2419     A     
 SCANNER            EQ     LEX8        CONTINUE LEXICAL SCAN...                            SCANNER     2420     A     
 SCANNER                                                                                   SCANNER     2421     A     
 SCANNER  *         LEX410 - ALPHANUMERIC(...)   FOLLOWED BY SPECIAL HOLLERITH             SCANNER     2422     A     
 SCANNER  *                 STRING DELIMITER.                                              SCANNER     2423     A     
 SCANNER  *                                                                                SCANNER     2424     A     
 SCANNER   LEX410   SRCH   LEX8        TRY TO TYPE STMT                                    SCANNER     2425     A     
 SCANNER            LX0    B4,X1                                                           SCANNER     2426     A     
 SCANNER            PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                            SCANNER     2427     A     
 SCANNER            EQ     LEX8        CONTINUE LEXICAL SCAN...                            SCANNER     2428     A     
 SCANNER   LEX5     TITLE  LEX5 - SCANNING CONTINUES AFTER =                               SCANNER     2429     A     
 SCANNER  *         LEX5 JUMP TABLE.                                                       SCANNER     2430     A     
 SCANNER  *                                                                                SCANNER     2431     A     
 SCANNER   LJT5     JPC    LEX54       +                                                   SCANNER     2432     A     
 SCANNER            JPC    LEX54       -                                                   SCANNER     2433     A     
 SCANNER            JPC    ERP10       *                                                   SCANNER     2434     A     
 SCANNER            JPC    ERP10       /                                                   SCANNER     2435     A     
 SCANNER            JPC    LEX54       (                                                   SCANNER     2436     A     
 SCANNER            JPC    ERP10       )                                                   SCANNER     2437     A     
 SCANNER            JPC    ERP11       $                                                   SCANNER     2438     A     
 SCANNER            JPC    ERP10       =                                                   SCANNER     2439     A     
 SCANNER            JPC    LEX55       SPECIAL HOLLERITH STRING DELIMITER                  SCANNER     2440     A     
 SCANNER            JPC    ERP10       ,                                                   SCANNER     2441     A     
 SCANNER            JPC    LEX54       .                                                   SCANNER     2442     A     
 SCANNER                                                                                   SCANNER     2443     A     
 SCANNER  *         LEX5 - SCANNING CONTINUES AFTER =                                      SCANNER     2444     A     
 SCANNER  *                                                                                SCANNER     2445     A     
 SCANNER   LEX5     TYPER  ERP10                                                           SCANNER     2446     A     
 SCANNER            SB3    1R0                                                             SCANNER     2447     A     
 SCANNER            LT     B2,B3,LEX52  IF ALPHABETIC                                      SCANNER     2448     A     
 SCANNER            SB3    1R+                                                             SCANNER     2449     A     
 SCANNER            LT     B2,B3,LEX53  IF NUMERIC                                         SCANNER     2450     A     
 SCANNER            SA1    B2+LJT5-1R+                                                     SCANNER     2451     A     
 SCANNER            SB3    X1                                                              SCANNER     2452     A     
 SCANNER            JP     B3                                                              SCANNER     2453     A     
 SCANNER                                                                                   SCANNER     2454     A     
 SCANNER  *         LEX52 -  =  FOLLOWED BY ALPHABETIC.                                    SCANNER     2455     A     
 SCANNER  *                                                                                SCANNER     2456     A     
 SCANNER   LEX52    SB1    LEX6        ERROR RETURN                                        SCANNER     2457     A     
 SCANNER            RJ     PACK7       PACK SYMBOLIC NAME AND STORE IN ELIST               SCANNER     2458     A     
 SCANNER            EQ     LEX6        CONTINUE LEXICAL SCAN...                            SCANNER     2459     A     
 SCANNER                                                                                   SCANNER     2460     A     
 SCANNER  *         LEX53 -  =  FOLLOWED BY NUMERIC.                                       SCANNER     2461     A     
 SCANNER  *                                                                                SCANNER     2462     A     
 SCANNER   LEX53    SB1    LEX7        RETURN ADDR                                         SCANNER     2463     A     
 SCANNER            EQ     DIGIT       PACK CONSTANT AND MAKE *CONSTOR* ENTRY              SCANNER     2464     A     
 SCANNER                                                                                   SCANNER     2465     A     
 SCANNER  *         LEX54 - TYPE IS *V=E*.                                                 SCANNER     2466     A     
 SCANNER  *                                                                                SCANNER     2467     A     
 SCANNER   LEX54    SX7    12          *V=E*                                               SCANNER     2468          I
          -FCC1328X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1893    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER   LEX54    SX7    ST.V=E                                                          FCC1328X     630     A     
 SCANNER            SB1    LEX8        ERROR RETURN                                        SCANNER     2469     A     
 SCANNER            SA7    TYPE                                                            SCANNER     2470     A     
 SCANNER            RJ     ADJ         MAKE *ELIST* ENTRY FOR *V*                          SCANNER     2471     A     
 SCANNER            EQ     LEX8        CONTINUE LEXICAL SCAN...                            SCANNER     2472     A     
 SCANNER                                                                                   SCANNER     2473     A     
 SCANNER  *         LEX55 -  =  FOLLOWED BY DELIMITED HOLLERITH CONSTANT.                  SCANNER     2474     A     
 SCANNER  *                                                                                SCANNER     2475     A     
 SCANNER   LEX55    SB1    LEX7        RETURN ADDR                                         SCANNER     2476     A     
 SCANNER            EQ     DELIMH                                                          SCANNER     2477     A     
 SCANNER   LEX6     TITLE  LEX6 - ...=ALPHANUMERIC   FOLLOWED BY NON-ALPHANUMERIC.         SCANNER     2478     A     
 SCANNER  *         LEX6 JUMP TABLE.                                                       SCANNER     2479     A     
 SCANNER  *                                                                                SCANNER     2480     A     
 SCANNER   LJT6     JPC    LEX54       +                                                   SCANNER     2481     A     
 SCANNER            JPC    LEX54       -                                                   SCANNER     2482     A     
 SCANNER            JPC    LEX54       *                                                   SCANNER     2483     A     
 SCANNER            JPC    LEX54       /                                                   SCANNER     2484     A     
 SCANNER            JPC    LEX54       (                                                   SCANNER     2485     A     
 SCANNER            JPC    ERP10       )                                                   SCANNER     2486     A     
 SCANNER            JPC    LEX61       $                                                   SCANNER     2487     A     
 SCANNER            JPC    LEX54       =                                                   SCANNER     2488     A     
 SCANNER            JPC    ERP10       SPECIAL HOLLERITH STRING DELIMITER                  SCANNER     2489     A     
 SCANNER            JPC    LEX63       ,                                                   SCANNER     2490     A     
 SCANNER            JPC    LEX54       .                                                   SCANNER     2491     A     
 SCANNER                                                                                   SCANNER     2492     A     
 SCANNER  *         LEX6 -  ...=ALPHANUMERIC   FOLLOWED BY NON-ALPHANUMERIC                SCANNER     2493     A     
 SCANNER  *                                                                                SCANNER     2494     A     
 SCANNER   LEX6     TYPER  LEX62                                                           SCANNER     2495     A     
 SCANNER            SA1    B2+LJT6-1R+                                                     SCANNER     2496     A     
 SCANNER            SB3    X1                                                              SCANNER     2497     A     
 SCANNER            LX1    30                                                              SCANNER     2498     A     
 SCANNER            JP     B3                                                              SCANNER     2499     A     
 SCANNER                                                                                   SCANNER     2500     A     
 SCANNER  *         LEX62 - *V=E* FOLLOWED BY $ OR TERMINATED BY NEXT CARD.                SCANNER     2501     A     
 SCANNER  *                                                                                SCANNER     2502     A     
 SCANNER   LEX61    RJ     P$T         PROCESS $ TERMINATOR                                SCANNER     2503     A     
 SCANNER   LEX62    SX7    12          *V=E*                                               SCANNER     2504     A     
 SCANNER            SB0    46000B                                                          SCANNER     2505     A     
 SCANNER            SA7    TYPE                                                            SCANNER     2506     A     
 SCANNER            RJ     ADJ         MAKE *ELIST* ENTRY FOR *V*                          SCANNER     2507     A     
 SCANNER            SB3    1R$                                                             SCANNER     2508     A     
 SCANNER            NE     B2,B3,LEX   IF NEW STMT ON NEXT CARD, EXIT...                   SCANNER     2509     A     
 SCANNER            SX7    1R$                                                             SCANNER     2510     A     
 SCANNER            SA7    T6                                                              SCANNER     2511          I
          -FEAT121L 
 SCANNER            SA7    REG=B2                                                          FEAT121L     316     A     
 SCANNER            EQ     NEWS                                                            SCANNER     2512     A     
 SCANNER                                                                                   SCANNER     2513     A     
 SCANNER  *         LEX63 - ALPHANUMERIC=ALPHANUMERIC  FOLLOWED BY ,                       SCANNER     2514     A     
 SCANNER  *                                                                                SCANNER     2515     A     
 SCANNER   LEX63    SRCH   LEX8        TRY TO TYPE STMT                                    SCANNER     2516     A     
 SCANNER            LX0    B4,X1                                                           SCANNER     2517     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1894    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            PL     X0,ERP7     IF ILL SYNTAX IN KEYWORD                            SCANNER     2518     A     
 SCANNER            RJ     ADJ         REMOVE LABEL AND/OR VARIABLE FROM STRING            SCANNER     2519     A     
 SCANNER            EQ     LEX8        CONTINUE LEXICAL SCAN...                            SCANNER     2520     A     
 SCANNER   LEX7     TITLE  LEX7 - ...=CONSTANT   FOLLOWED BY NON-ALPHANUMERIC.             SCANNER     2521     A     
 SCANNER  *         LEX7  JUMP TABLE.                                                      SCANNER     2522     A     
 SCANNER  *                                                                                SCANNER     2523     A     
 SCANNER   LJT7     JPC    LEX54       +                                                   SCANNER     2524     A     
 SCANNER            JPC    LEX54       -                                                   SCANNER     2525     A     
 SCANNER            JPC    LEX54       *                                                   SCANNER     2526     A     
 SCANNER            JPC    LEX54       /                                                   SCANNER     2527     A     
 SCANNER            JPC    LEX54       (                                                   SCANNER     2528     A     
 SCANNER            JPC    ERP10       )                                                   SCANNER     2529     A     
 SCANNER            JPC    LEX61       $                                                   SCANNER     2530     A     
 SCANNER            JPC    ERP10       =                                                   SCANNER     2531     A     
 SCANNER            JPC    ERP10       SPECIAL HOLLERITH STRING DELIMITER                  SCANNER     2532     A     
 SCANNER            JPC    LEX63       ,                                                   SCANNER     2533     A     
 SCANNER            JPC    LEX54       .                                                   SCANNER     2534     A     
 SCANNER                                                                                   SCANNER     2535     A     
 SCANNER  *         LEX7  -  ...=CONSTANT   FOLLOWED BY NON-ALPHANUMERIC                   SCANNER     2536     A     
 SCANNER  *              OR  ...=DELIMITED HOLLERITH STRING  FOLLOWED BY ANYTHING.         SCANNER     2537     A     
 SCANNER  *                                                                                SCANNER     2538     A     
 SCANNER   LEX7     TYPER  LEX62                                                           SCANNER     2539     A     
 SCANNER            SA1    RELFLAG                                                         SCANNER     2540     A     
 SCANNER            ZR     X1,LEX72    IF NOT *CONSTANT* FOLLOWED BY *RELATIONAL*          SCANNER     2541     A     
 SCANNER            BX7    X7-X7                                                           SCANNER     2542     A     
 SCANNER            SA7    A1          TURN OFF *RELFLAG*                                  SCANNER     2543     A     
 SCANNER            EQ     LEX54       TYPE IS *V=E*                                       SCANNER     2544     A     
 SCANNER                                                                                   SCANNER     2545     A     
 SCANNER   LEX72    SB7    1R+                                                             SCANNER     2546     A     
 SCANNER            LT     B2,B7,ERP2  IF ALPHANUMERIC AFTER DELIMITED HOLL STR            SCANNER     2547     A     
 SCANNER            SA1    B2+LJT7-1R+                                                     SCANNER     2548     A     
 SCANNER            SB1    LEX8        NEXT *LEX-N-* ROUTINE                               SCANNER     2549     A     
 SCANNER            SB3    X1                                                              SCANNER     2550     A     
 SCANNER            LX1    30                                                              SCANNER     2551     A     
 SCANNER            JP     B3                                                              SCANNER     2552     A     
 SCANNER   LEX8     TITLE  LEX8 - STRAIGHT TRANSFORMATION.                                 SCANNER     2553     A     
 SCANNER  *         LEX8 JUMP TABLE.                                                       SCANNER     2554     A     
 SCANNER  *                                                                                SCANNER     2555     A     
 SCANNER   LJT8     JPC    ADD1,PLUS   +                                                   SCANNER     2556     A     
 SCANNER            JPC    ADD1,MINUS  -                                                   SCANNER     2557     A     
 SCANNER            JPC    LEX83       *                                                   SCANNER     2558     A     
 SCANNER            JPC    ADD1,SLASH  /                                                   SCANNER     2559     A     
 SCANNER            JPC    LEX33,LP    (                                                   SCANNER     2560     A     
 SCANNER            JPC    LEX82,RP    )                                                   SCANNER     2561     A     
 SCANNER            JPC    LEX89       $                                                   SCANNER     2562     A     
 SCANNER            JPC    LEX35,EQU   =                                                   SCANNER     2563     A     
 SCANNER            JPC    DELIMH      SPECIAL HOLLERITH STRING DELIMITER                  SCANNER     2564     A     
 SCANNER            JPC    ADD1,COMMA  ,                                                   SCANNER     2565     A     
 SCANNER            JPC    POINT       .                                                   SCANNER     2566     A     
 SCANNER                                                                                   SCANNER     2567     A     
 SCANNER  *         LEX8 - STRAIGHT TRANSFORMATION.                                        SCANNER     2568     A     
 SCANNER  *                                                                                SCANNER     2569     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1895    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER   LEX8     TYPER  LEX                                                             SCANNER     2570     A     
 SCANNER            SB3    1R0                                                             SCANNER     2571     A     
 SCANNER            LT     B2,B3,LEX85 IF ALPHABETIC                                       SCANNER     2572     A     
 SCANNER            SB3    1R+                                                             SCANNER     2573     A     
 SCANNER            LT     B2,B3,DIGIT IF NUMERIC                                          SCANNER     2574     A     
 SCANNER            SA1    B2+LJT8-1R+                                                     SCANNER     2575     A     
 SCANNER            SB3    X1                                                              SCANNER     2576     A     
 SCANNER            LX1    30          (X1)=30/(B3),30/*ELIST* ELEMENT ADDR                SCANNER     2577     A     
 SCANNER            JP     B3                                                              SCANNER     2578     A     
 SCANNER                                                                                   SCANNER     2579     A     
 SCANNER  *         LEX82 - )                                                              SCANNER     2580     A     
 SCANNER  *                                                                                SCANNER     2581     A     
 SCANNER   LEX82    SA2    PARENS                                                          SCANNER     2582     A     
 SCANNER            SX6    X2-1        PAREN COUNT - 1                                     SCANNER     2583     A     
 SCANNER            SA6    A2+                                                             SCANNER     2584     A     
 SCANNER            EQ     ADD1        MAKE ELIST ENTRY                                    SCANNER     2585     A     
 SCANNER                                                                                   SCANNER     2586     A     
 SCANNER  *         LEX83 - *                                                              SCANNER     2587     A     
 SCANNER  *                                                                                SCANNER     2588     A     
 SCANNER   LEX83    ELPUT  STAR        MAKE *ELIST* ENTRY                                  SCANNER     2589     A     
 SCANNER            RJ     GET         GET NEXT CHARACTER                                  SCANNER     2590     A     
 SCANNER            SA1    ELAST                                                           SCANNER     2591     A     
 SCANNER            SB3    1R*                                                             SCANNER     2592     A     
 SCANNER            EQ     B2,B3,LEX84 IF EXPONENTIAL  **  OPERATOR                        SCANNER     2593     A     
 SCANNER            JP     B1          CONTINUE LEXICAL SCAN...                            SCANNER     2594     A     
 SCANNER                                                                                   SCANNER     2595     A     
 SCANNER  *         LEX84 - **                                                             SCANNER     2596     A     
 SCANNER  *                                                                                SCANNER     2597     A     
 SCANNER   LEX84    SX6    X1+1        LOGICALLY ERASE 1ST  *                              SCANNER     2598     A     
 SCANNER            SX1    DSTAR                                                           SCANNER     2599     A     
 SCANNER            SA6    A1                                                              SCANNER     2600     A     
 SCANNER            EQ     ADD1        MAKE ELIST ENTRY                                    SCANNER     2601     A     
 SCANNER                                                                                   SCANNER     2602     A     
 SCANNER  *         LEX85 - ALPHABETIC                                                     SCANNER     2603     A     
 SCANNER  *                                                                                SCANNER     2604     A     
 SCANNER   LEX85    SA1    TYPE                                                            SCANNER     2605     A     
 SCANNER            SB4    X1-3                                                            SCANNER     2606     A     
 SCANNER            ZR     B4,LEX88    IF *IMPLICIT* STMT                                  SCANNER     2607     A     
 SCANNER   LEX86    RJ     PACK7       PACK NAME AND STORE IN *ELIST*                      SCANNER     2608     A     
 SCANNER   LEX87    SA1    DTYPE                                                           SCANNER     2609     A     
 SCANNER            SA2    TYPE                                                            SCANNER     2610     A     
 SCANNER            ZR     X1,LEX8     IF NOT A *DEBUG* STMT                               SCANNER     2611     A     
 SCANNER            NZ     X2,LEX8     IF A LEGAL NAME                                     SCANNER     2612     A     
 SCANNER            DBGERR  (VARIABLE TOO LONG)                                            SCANNER     2613     A     
 SCANNER            EQ     D.BADC      EXIT TO ERROR PROCESSOR                             SCANNER     2614     A     
 SCANNER                                                                                   SCANNER     2615     A     
 SCANNER  *         SPECIAL-CASE *IMPLICIT* STATEMENT. WE CAN-T USE *PACK7*,               SCANNER     2616     A     
 SCANNER  *         BECAUSE THE STMT MAY CONTAIN *DOUBLEPRECISION*, WHICH IS 15            SCANNER     2617     A     
 SCANNER  *         CHARACTERS LONG.  USE *PACK30* INSTEAD.                                SCANNER     2618     A     
 SCANNER                                                                                   SCANNER     2619     A     
 SCANNER   LEX88    SA1    PARENS                                                          SCANNER     2620     A     
 SCANNER            MX6    1                                                               SCANNER     2621     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1896    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            NZ     X1,LEX86    IF INSIDE PAREN NEST (D.P. IMPOSSIBLE)              SCANNER     2622     A     
 SCANNER            SA6    IMPFLG      *IMPLICIT PACK* FLAG ON                             SCANNER     2623     A     
 SCANNER            RJ     PACK30      PACK LONG TYPE KEYWORD                              SCANNER     2624     A     
 SCANNER            RJ     IMP         FORMAT AND (RE)STORE TYPE IN *ELIST*                SCANNER     2625     A     
 SCANNER            EQ     LEX87       REJOIN NORMAL PROCESSING FLOW                       SCANNER     2626     A     
 SCANNER  *         LEX89 - $                                                              SCANNER     2627     A     
 SCANNER  *                                                                                SCANNER     2628     A     
 SCANNER   LEX89    RJ     P$T         PROCESS $ TERMINATOR                                SCANNER     2629     A     
 SCANNER            SX7    1R$                                                             SCANNER     2630     A     
 SCANNER            SA7    T6                                                              SCANNER     2631          I
          -FEAT121L 
 SCANNER            SA7    REG=B2                                                          FEAT121L     317     A     
 SCANNER            EQ     NEWS                                                            SCANNER     2632     A     
 SCANNER   LSL      SPACE  4,8                                                             SCANNER     2633     A     
 SCANNER  **        LSL - LIST SAVED LINES.                                                SCANNER     2634     A     
 SCANNER  *                                                                                SCANNER     2635     A     
 SCANNER  *                LISTS SOURCE LINES PREVIOUSLY SAVED IN A DEFERRED               SCANNER     2636     A     
 SCANNER  *         LISTING BUFFER.                                                        SCANNER     2637     A     
 SCANNER  *                                                                                SCANNER     2638     A     
 SCANNER  *         ENTRY  (DLBUF) = SAVED LINES, FORMATTED FOR LISTING.                   SCANNER     2639     A     
 SCANNER  *                (L.SL) = TOTAL LENGTH IN WORDS OF SAVED LINES.                  SCANNER     2640     A     
 SCANNER  *                                                                                SCANNER     2641     A     
 SCANNER  *         EXIT   LINES LISTED.                                                   SCANNER     2642     A     
 SCANNER  *                (IEF) = 0                                                       SCANNER     2643     A     
 SCANNER  *                (L.SL) = 0                                                      SCANNER     2644     A     
 SCANNER  *                (B1) = 1                                                        SCANNER     2645     A     
 SCANNER  *                (B5) = 1                                                        SCANNER     2646     A     
 SCANNER  *                                                                                SCANNER     2647     A     
 SCANNER  *         USES   X - 1, 6, 7                                                     SCANNER     2648     A     
 SCANNER  *                A - 1, 6                                                        SCANNER     2649     A     
 SCANNER  *                B - 1, 2, 5, 6, 7                                               SCANNER     2650     A     
 SCANNER  *                                                                                SCANNER     2651     A     
 SCANNER  *         CALLS  LISTL                                                           SCANNER     2652     A     
 SCANNER                                                                                   SCANNER     2653     A     
 SCANNER                                                                                   SCANNER     2654     A     
 SCANNER   LSL      SUBR   =           ** ENTRY/EXIT **                                    SCANNER     2655     A     
 SCANNER            SA1    L.SL                                                            SCANNER     2656     A     
 SCANNER            SB1    1                                                               SCANNER     2657     A     
 SCANNER            MX6    0                                                               SCANNER     2658     A     
 SCANNER            SB6    DLBUF       (B6) = FWA OF NEXT LINE TO BE LISTED                SCANNER     2659     A     
 SCANNER            SB5    B1                                                              SCANNER     2660     A     
 SCANNER            SB2    X1+         (B2) = TOTAL LENGTH OF REMAINING LINES              SCANNER     2661     A     
 SCANNER            SA6    IEF         *BEFORE HEADER* FLAG OFF                            SCANNER     2662     A     
 SCANNER   LSL2     ZR     B2,EXIT.    IF NO MORE TO LIST                                  SCANNER     2663     A     
 SCANNER            SA1    B6          (X1) = FIRST WORD OF LINE                           SCANNER     2664     A     
 SCANNER            MX6    -12                                                             SCANNER     2665     A     
 SCANNER   LSL3     BX7    -X6*X1                                                          SCANNER     2666     A     
 SCANNER            SA1    A1+B1                                                           SCANNER     2667     A     
 SCANNER            NZ     X7,LSL3     IF NOT ZERO BYTE LINE TERMINATOR                    SCANNER     2668     A     
 SCANNER            SB7    A1-B6       (B7) = LINE LENGTH (WORDS)                          SCANNER     2669     A     
 SCANNER            SX7    A1          (X7) = FWA NEXT LINE                                SCANNER     2670     A     
 SCANNER            SX6    B2-B7       (X6) = TOTAL LENGTH OF REMAINING LINES              SCANNER     2671     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1897    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            LX7    18D                                                             SCANNER     2672     A     
 SCANNER            BX6    X7+X6                                                           SCANNER     2673     A     
 SCANNER            NO                                                                     SCANNER     2674     A     
 SCANNER            SA6    L.SL        TEMP SAVE NEXT FWA, LENGTH                          SCANNER     2675     A     
 SCANNER            LISTL  B6,B7       ONE LINE TO -OUTPUT-                                SCANNER     2676     A     
 SCANNER            SA1    L.SL        RESTORE REGISTERS                                   SCANNER     2677     A     
 SCANNER            MX6    0                                                               SCANNER     2678     A     
 SCANNER            SB5    B1                                                              SCANNER     2679     A     
 SCANNER            SB2    X1                                                              SCANNER     2680     A     
 SCANNER            AX1    18D                                                             SCANNER     2681     A     
 SCANNER            SB6    X1                                                              SCANNER     2682     A     
 SCANNER            SA6    A1                                                              SCANNER     2683     A     
 SCANNER            EQ     LSL2        LOOP FOR NEXT LINE                                  SCANNER     2684     A     
 SCANNER                                                                                   SCANNER     2685     A     
 SCANNER                                                                                   SCANNER     2686     A     
 SCANNER                                                                                   SCANNER     2687     A     
 SCANNER   L.SL     BSSZ   1           ON ENTRY TO *LSL*, TOTAL STMT LEN (WORDS).          SCANNER     2688     A     
 SCANNER  *                            *LSL* USES *L.SL* TO SAVE NEW FWA AND LEN.          SCANNER     2689     A     
 SCANNER   MCE      SPACE  4,8                                                             SCANNER     2690     A     
 SCANNER  **        MCE - MAKE *CONSTOR* ENTRY.                                            SCANNER     2691     A     
 SCANNER  *                                                                                SCANNER     2692     A     
 SCANNER  *         ENTRY  (X6) = DPC *CONSTOR* ENTRY, LEFT JUSTIFIED, BLANK FILL          SCANNER     2693     A     
 SCANNER  *                                                                                SCANNER     2694     A     
 SCANNER  *         USES   X - 1,6,7                                                       SCANNER     2695     A     
 SCANNER  *                A - 1,6,7                                                       SCANNER     2696     A     
 SCANNER  *                B - 3                                                           SCANNER     2697     A     
 SCANNER  *         CALLS  PROE                                                            SCANNER     2698     A     
 SCANNER  *                                                                                SCANNER     2699     A     
 SCANNER                                                                                   SCANNER     2700     A     
 SCANNER   MCE      SUBR               ** ENTRY/EXIT **                                    SCANNER     2701     A     
 SCANNER            SA1    CCSTO       (X1)=ADDR OF NEXT AVAIL *CONSTOR* LOC               SCANNER     2702     A     
 SCANNER            SX7    X1+1                                                            SCANNER     2703     A     
 SCANNER            SA6    X1          MAKE *CONSTOR* ENTRY                                SCANNER     2704     A     
 SCANNER            SB3    X1-CONSTOR-CONSTORS+1                                           SCANNER     2705     A     
 SCANNER            SA7    A1                                                              SCANNER     2706     A     
 SCANNER            MI     B3,EXIT.    IF TABLE OVERFLOW NOT IMPENDING                     SCANNER     2707     A     
 SCANNER            POSTER SEV=FE,NR=E289,RETURN=PROE2   *CONSTOR OVERFLOW*                SCANNER     2708     A     
 SCANNER   NEWS     TITLE  NEWS - NEW STATEMENT FOUND.                                     FEAT121L     318     A     
 SCANNER  **        NEWS - NEW STATEMENT FOUND.                                            FEAT121L     319     A     
 SCANNER  *                                                                                FEAT121L     320     A     
 SCANNER                                                                                   FEAT121L     321     A     
 SCANNER                                                                                   FEAT121L     322     A     
 SCANNER   NEWS     BSS    0           ** ENTRY **                                         FEAT121L     323     A     
 SCANNER            SA1    SBUFLG                                                          FEAT121L     324     A     
 SCANNER            SX0    1                                                               FEAT121L     325     A     
 SCANNER            BX7    X7-X7                                                           FEAT121L     326     A     
 SCANNER            AX1    59          (X1) = -0 IF STMT TERMINATED BY $                   FEAT121L     327     A     
 SCANNER  *                                 = +0 IF STMT TERMINATED BY NEXT STMT           FEAT121L     328     A     
 SCANNER            BX6    X0-X1       (X6) = -1 IF STMT TERMINATED BY $                   FEAT121L     329     A     
 SCANNER  *                                 = +1 IF STMT TERMINATED BY NEXT STMT           FEAT121L     330     A     
 SCANNER            SA6    A1                                                              FEAT121L     331     A     
 SCANNER            RJ     RES         RESTORE INTERUPTED PACK REGISTERS                   FEAT121L     332     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1898    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER                                                                                   FEAT121L     333     A     
 SCANNER            SA2    PAD                                                             FEAT121L     334     A     
 SCANNER            SA3    CAD                                                             FEAT121L     335     A     
 SCANNER            SA4    IMPFLG                                                          FEAT121L     336     A     
 SCANNER            SA5    HANG.                                                           FEAT121L     337     A     
 SCANNER                                                                                   FEAT121L     338     A     
 SCANNER            NZ     X2,NEWS3    IF AN INTERUPTED *PACK7* PACK                       FEAT121L     339     A     
 SCANNER            MI     X3,CERP1    IF INCOMPLETE HOLLERITH CONSTANT PACK               FEAT121L     340     A     
 SCANNER            NZ     X3,NEWS4    IF AN INTERUPTED CONSTANT PACK                      FEAT121L     341     A     
 SCANNER            NZ     X4,NEWS6    IF PROCESSING *IMPLICIT* TYPE KEYWORD               FEAT121L     342     A     
 SCANNER            NZ     X5,ERP12    IF A HANGING PERIOD                                 FEAT121L     343     A     
 SCANNER                                                                                   FEAT121L     344     A     
 SCANNER   NEWS2    RJ     RES         (RE) RESTORE INTERUPTED PACKING REGISTERS           FEAT121L     345     A     
 SCANNER            SA1    =XFEFLAG                                                        FEAT121L     346     A     
 SCANNER            SA2    NULLSTMT                                                        FEAT121L     347     A     
 SCANNER            SA3    CLABEL                                                          FEAT121L     348     A     
 SCANNER            SA4    TYPE                                                            FEAT121L     349     A     
 SCANNER            NZ     X1,LEX      IF FATAL TO EXECUTION ERROR FOUND, EXIT...          FEAT121L     350     A     
 SCANNER            ZR     X2,NEWS7    IF EMPTY STATEMENT                                  FEAT121L     351     A     
 SCANNER            PL     X4,LEX      IF STATEMENT HAS ALREADY BEEN TYPED,EXIT...         FEAT121L     352     A     
 SCANNER            SA5    B1-1                                                            FEAT121L     353     A     
 SCANNER            SB4    X5          (B4)=ADDR OF *LEX-N-* TYPER FOR THIS KEYWRD         FEAT121L     354     A     
 SCANNER            JP     B4                                                              FEAT121L     355     A     
 SCANNER                                                                                   FEAT121L     356     A     
 SCANNER  *         HERE IF INTERUPTED *PACK7* PACK.                                       FEAT121L     357     A     
 SCANNER                                                                                   FEAT121L     358     A     
 SCANNER   NEWS3    SA1    EXPEXP                                                          FEAT121L     359     A     
 SCANNER            ZR     X6,NEWS2    IF PACKING REGISTER EMPTY, NOTHING TO STORE         FEAT121L     360     A     
 SCANNER            NZ     X1,ERP12    IF INCOMPLETE RELATIONAL PACK                       FEAT121L     361     A     
 SCANNER            RJ     PVN         PROCESS VARIABLE NAME                               FEAT121L     362     A     
 SCANNER            ZR     X6,NEWS8    IF NAME TOO LONG IN C$ DEBUG STATEMENT              FEAT121L     363     A     
 SCANNER            ELPUT  X6          MAKE *ELIST* ENTRY                                  FEAT121L     364     A     
 SCANNER            EQ     NEWS2       REJOIN NORMAL FLOW...                               FEAT121L     365     A     
 SCANNER                                                                                   FEAT121L     366     A     
 SCANNER  *         HERE IF INTERUPTED CONSTANT PACK.                                      FEAT121L     367     A     
 SCANNER                                                                                   FEAT121L     368     A     
 SCANNER   NEWS4    SA1    EXPEXP                                                          FEAT121L     369     A     
 SCANNER            SA2    HANG.                                                           FEAT121L     370     A     
 SCANNER            NZ     X1,ERP12    IF HANGING EXPONENT                                 FEAT121L     371     A     
 SCANNER            ZR     X2,NEWS5    IF NO HANGING PERIOD                                FEAT121L     372     A     
 SCANNER            SA7    A1+         CLEAR *HANGING PERIOD* FLAG                         FEAT121L     373     A     
 SCANNER            SB2    1R.                                                             FEAT121L     374     A     
 SCANNER            RJ     PACKC       ADD . TO CONSTANT                                   FEAT121L     375     A     
 SCANNER            SX7    2                                                               FEAT121L     376     A     
 SCANNER            SA7    CTYPE       CONSTANT TYPE = REAL                                FEAT121L     377     A     
 SCANNER   NEWS5    RJ     PACKT       TERMINATE THE CONSTANT PACK                         FEAT121L     378     A     
 SCANNER            EQ     NEWS2       REJOIN NORMAL FLOW...                               FEAT121L     379     A     
 SCANNER                                                                                   FEAT121L     380     A     
 SCANNER  *         HERE IF PROCESSING *IMPLICIT* TYPE KEYWORD.                            FEAT121L     381     A     
 SCANNER                                                                                   FEAT121L     382     A     
 SCANNER   NEWS6    RJ     IMP         FORMAT AND (RE)STORE TYPE IN ELIST                  FEAT121L     383     A     
 SCANNER            EQ     NEWS2       REJOIN NORMAL FLOW...                               FEAT121L     384     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1899    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER                                                                                   FEAT121L     385     A     
 SCANNER  *         HERE IF EMPTY STATEMENT.                                               FEAT121L     386     A     
 SCANNER                                                                                   FEAT121L     387     A     
 SCANNER   NEWS7    NZ     X3,ERP2     IF EMPTY STMT CONTAINS A VALID LABEL                FEAT121L     388     A     
 SCANNER            SA1    =XDFLAG                                                         FEAT121L     389     A     
 SCANNER            AX1    1                                                               FEAT121L     390     A     
 SCANNER            ZR     X1,SCANNER1  IF NOT PROCESSING DBG EXT PACKET FILE              FEAT121L     391     A     
 SCANNER            EQ     LEX                                                             FEAT121L     392     A     
 SCANNER                                                                                   FEAT121L     393     A     
 SCANNER  *         HERE IF NAME TOO LONG (.GT. 7 CHARS) IN C$ DEBUG STATEMENT.            FEAT121L     394     A     
 SCANNER                                                                                   FEAT121L     395     A     
 SCANNER   NEWS8    SA6    TYPE        SET TO *BAD DEBUG STATEMENT*                        FEAT121L     396     A     
 SCANNER            DBGERR (KEYWORD OR VARIABLE TOO LONG.)                                 FEAT121L     397     A     
 SCANNER            EQ     LEX         EXIT...                                             FEAT121L     398     A     
 SCANNER   NEXT     TITLE  REQUEST NEXT SOURCE CARD                                        SCANNER     2709     A     
 SCANNER  **        NEXT - PROCESS NEXT SOURCE LINE.                                       SCANNER     2710          I
          -FEAT121L 
 SCANNER  *                                                                                SCANNER     2711          I
          -FEAT121L 
 SCANNER   NXT      TITLE  NXT - REQUEST AND PROCESS NEXT SOURCE LINE.                     FEAT121L     399     A     
 SCANNER  **        NXT - REQUEST AND PROCESS NEXT SOURCE LINE.                            FEAT121L     400     A     
 SCANNER  *                                                                                FEAT121L     401     A     
 SCANNER  *                TASKS PERFORMED --                                              FEAT121L     402     A     
 SCANNER  *         1) CALLS *GNL* TO READ NEXT LINE FROM INPUT INTO (CP.CARD)             FEAT121L     403          I
          -FCC1328X 
 SCANNER  *         1) CALLS *RNC* TO READ NEXT LINE FROM INPUT INTO (CP.CARD)             FCC1328X     631     A     
 SCANNER  *              ET SEQ.                                                           FEAT121L     404     A     
 SCANNER  *         2) CALLS *CBL* TO CLASSIFY AND BURST LINE AT (CP.CARD) ET SEQ.         FEAT121L     405     A     
 SCANNER  *         3A) IF A BLANK OR COMMENT LINE, CALLS *PBC* TO PROCESS IT AND          FEAT121L     406     A     
 SCANNER  *               *PLR* TO LIST IT.                                                FEAT121L     407     A     
 SCANNER  *          B) IF A CONTINUATION LINE, CALLS *PLR* TO LIST IT.                    FEAT121L     408     A     
 SCANNER  *          C) IF AN EOR/EOF IS ENCOUNTERED ON INPUT FILE, PLACES THE             FEAT121L     409     A     
 SCANNER  *               CHARACTERS *END ABSENT* INTO (CP.CARD) AND CALLS *CBL*           FEAT121L     410     A     
 SCANNER  *               TO CLASSIFY AND BURST IT.                                        FEAT121L     411     A     
 SCANNER  *                                                                                FEAT121L     412     A     
 SCANNER  *         ENTRY  NONE                                                            FEAT121L     413     A     
 SCANNER  *                                                                                FEAT121L     414     A     
 SCANNER  *         EXIT   NEW LINE CLASSIFIED AND BURST.                                  FEAT121L     415     A     
 SCANNER  *                (X1) = .NZ. IF A NEW STATEMENT WAS FOUND                        FEAT121L     416     A     
 SCANNER  *                     = .ZR. IF A CONTINUATION OF CURRENT STATEMENT              FEAT121L     417     A     
 SCANNER  *                              WAS FOUND                                         FEAT121L     418     A     
 SCANNER  *                                                                                FEAT121L     419     A     
 SCANNER  *         USES   ALL                                                             FEAT121L     420     A     
 SCANNER  *                                                                                FEAT121L     421     A     
 SCANNER  *         CALLS  CBL,D.IDSP,GNL,PBC,PLR,POSTER                                   FEAT121L     422          I
          -FCC1328X 
 SCANNER  *         CALLS  CBL,D.IDSP,PBC,PLR,POSTER,RNC                                   FCC1328X     632     A     
 SCANNER  *                                                                                FEAT121L     423     A     
 SCANNER  *                                                                                FEAT121L     424     A     
 SCANNER                                                                                   SCANNER     2712     A     
 SCANNER                                                                                   SCANNER     2713     A     
 SCANNER   NEXT     SUBR               ** ENTRY/EXIT **                                    SCANNER     2714          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1900    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
          -FEAT121L 
 SCANNER   NXT      SUBR               ** ENTRY/EXIT **                                    FEAT121L     425     A     
 SCANNER   NXT2     RJ     GNL         GET NEXT SOURCE LINE                                SCANNER     2715          I
          -FCC1328X 
 SCANNER   NXT2     SB1    1                                                               FCC1328X     633     A     
 SCANNER            RJ     RNC         READ NEXT CARD                                      FCC1328X     634     A     
 SCANNER            SX6    X7+2                                                            FCC1328X     635     A     
 SCANNER            SA6    L.PLINE                                                         FCC1328X     636     A     
 SCANNER            NZ     X1,NXT6     IF INPUT FILE EMPTY                                 SCANNER     2716     A     
 SCANNER   NXT3     RJ     CBL         CLASSIFY AND BURST LINE                             SCANNER     2717     A     
 SCANNER            NZ     X5,NXT4     IF COMMENT                                          SCANNER     2718     A     
 SCANNER            NZ     X2,NXT5     IF CONTINUATION                                     SCANNER     2719     A     
 SCANNER                                                                                   SCANNER     2720     A     
 SCANNER  *         HERE IF INITIAL LINE.                                                  SCANNER     2721     A     
 SCANNER                                                                                   SCANNER     2722     A     
 SCANNER            PL     X1,NEWS     IF COLUMNS 7-72 NOT BLANK                           SCANNER     2723          I
          -FEAT121L 
 SCANNER            NZ     X4,NEWS     IF LABELLED                                         SCANNER     2724          I
          -FEAT121L 
 SCANNER            PL     X1,NXT8     IF COLUMNS 7-72 NOT BLANK                           FEAT121L     426     A     
 SCANNER            NZ     X4,NXT8     IF LABELLED                                         FEAT121L     427     A     
 SCANNER                                                                                   SCANNER     2725     A     
 SCANNER  *         HERE IF BLANK OR COMMENT.                                              SCANNER     2726     A     
 SCANNER                                                                                   SCANNER     2727     A     
 SCANNER   NXT4     RJ     PBC         PROCESS BLANK OR COMMENT                            SCANNER     2728     A     
 SCANNER            RJ     PLR         PROCESS LISTING REQUEST                             SCANNER     2729     A     
 SCANNER            EQ     NXT2        LOOP FOR NEXT LINE                                  SCANNER     2730     A     
 SCANNER                                                                                   SCANNER     2731     A     
 SCANNER  *         HERE IF CONTINUATION.                                                  SCANNER     2732     A     
 SCANNER                                                                                   SCANNER     2733     A     
 SCANNER   NXT5     RJ     PLR         PROCESS LISTING REQUEST                             SCANNER     2734     A     
 SCANNER            SA1    CONTCNT                                                         SCANNER     2735     A     
 SCANNER            SB7    X1-20                                                           SCANNER     2736     A     
 SCANNER            PL     B7,ERP4     IF MORE THAN 19 CONTINUATION LINES                  SCANNER     2737          I
          -FEAT121L 
 SCANNER            PL     B7,NXT9     IF MORE THAN 19 CONTINUATION LINES                  FEAT121L     428     A     
 SCANNER            SA1    DFLAG                                                           SCANNER     2738     A     
 SCANNER            ZR     X1,NXT5A    IF DEBUG OPTION NOT SELECTED                        SCANNER     2739     A     
 SCANNER            CALL   D.IDSP      SAVE UPDATE IDENT                                   SCANNER     2740     A     
 SCANNER   NXT5A    SA1    BLNKSTMT                                                        SCANNER     2741     A     
 SCANNER            SA2    =XFEFLAG                                                        FEAT121L     429     A     
 SCANNER            NZ     X2,NXT2     IF FATAL ERROR OCCURRED, STRIP CONTINUATION         FEAT121L     430     A     
 SCANNER            ZR     X1,EXIT.    IF PRIOR LINE(S) OF THIS STMT NON-BLANK             SCANNER     2742     A     
 SCANNER  *                            (MAY BE PACKING A HOLLERITH STRING).                SCANNER     2743     A     
 SCANNER            SA1    SBUFF                                                           SCANNER     2744     A     
 SCANNER            MI     X1,NXT2     IF COLUMNS 7-72 BLANK                               SCANNER     2745     A     
 SCANNER                                                                                   FCC1059X      11     A     
 SCANNER  *         HERE IF NON-BLANK CONTINUATION LINE FOLLOWS BLANK INITIAL              FCC1059X      12     A     
 SCANNER  *         LINE.  UNDO *PBC*-S REVERSE CLABEL-TO-NLABEL TRANSFER.                 FCC1059X      13     A     
 SCANNER                                                                                   FCC1059X      14     A     
 SCANNER            MX6    0                                                               FCC1059X      15     A     
 SCANNER            SA6    NLABEL                                                          FCC1059X      16     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1901    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            EQ     NEWS        PROCESS AS INITIAL LINE                             SCANNER     2746          I
          -FEAT121L 
 SCANNER            EQ     NXT8        PROCESS AS INITIAL LINE                             FEAT121L     431     A     
 SCANNER                                                                                   SCANNER     2747     A     
 SCANNER  *         HERE IF INPUT FILE EMPTY.                                              SCANNER     2748     A     
 SCANNER                                                                                   SCANNER     2749     A     
 SCANNER   NXT6     SA1    =XDFLAG                                                         SCANNER     2750     A     
 SCANNER            AX1    1                                                               SCANNER     2751     A     
 SCANNER            NZ     X1,NXT7     IF INPUT FILE = EXTERNAL DEBUG FILE                 SCANNER     2752     A     
 SCANNER            SA1    ENDL        INVENT *END* LINE                                   SCANNER     2753     A     
 SCANNER            SA2    A1+B1                                                           SCANNER     2754     A     
 SCANNER            BX6    X1                                                              SCANNER     2755     A     
 SCANNER            LX7    X2                                                              SCANNER     2756     A     
 SCANNER            SA6    =XCP.CARD                                                       SCANNER     2757     A     
 SCANNER            SA7    A6+B1                                                           SCANNER     2758     A     
 SCANNER            SX6    B1+B1       LINE LENGTH = 2 WORDS                               SCANNER     2759          I
          -FCC1328X 
 SCANNER            IX7    X6+X6                                                           SCANNER     2760          I
          -FCC1328X 
 SCANNER            BX6    X6-X6                                                           FCC1328X     637     A     
 SCANNER            SA6    A7+B1       MARK FULL WORD EOL                                  FCC1328X     638     A     
 SCANNER            SB2    B1+B1                                                           FCC1328X     639     A     
 SCANNER            SX6    B2+B1       (X6) = NR OF WORDS IN LINE = 3                      FCC1328X     640     A     
 SCANNER            SX7    X6+B2       (X7) = NR OF WORDS IN PRINT LINE = 5                FCC1328X     641     A     
 SCANNER            SA6    L.CARD                                                          SCANNER     2761     A     
 SCANNER            SA7    L.PLINE                                                         SCANNER     2762     A     
 SCANNER            SX6    ST.INV-ST.END                                                   SCANNER     2763     A     
 SCANNER            SA6    NOEND       SET *END MISSING*                                   SCANNER     2764     A     
 SCANNER            EQ     NXT3        GO PROCESS INVENTED *END*                           SCANNER     2765     A     
 SCANNER                                                                                   SCANNER     2766     A     
 SCANNER   NXT7     MX6    1                                                               SCANNER     2767     A     
 SCANNER            SX7    B0                                                              SCANNER     2768     A     
 SCANNER            SA6    IEF         RESET *INITIAL ENTRY* STATUS FOR MAIN PROG          SCANNER     2769     A     
 SCANNER            SA7    C$STMT                                                          SCANNER     2770     A     
 SCANNER                                                                                   FEAT121L     432     A     
 SCANNER  *         HERE IF NEW STATEMENT FOUND.                                           FEAT121L     433     A     
 SCANNER                                                                                   FEAT121L     434     A     
 SCANNER   NXT8     SX1    B1          SET TO *NEW STATEMENT FOUND*                        FEAT121L     435     A     
 SCANNER            EQ     EXIT.                                                           FEAT121L     436     A     
 SCANNER                                                                                   FEAT121L     437     A     
 SCANNER  *         HERE IF MORE THAN 19 CONTINUATION LINES -- ERROR.                      FEAT121L     438     A     
 SCANNER                                                                                   FEAT121L     439     A     
 SCANNER   NXT9     SB7    B7-B1                                                           FEAT121L     440     A     
 SCANNER            SA1    C$STMT                                                          FEAT121L     441     A     
 SCANNER            MX6    0                                                               FEAT121L     442     A     
 SCANNER            PL     B7,NXT2     IF ERROR MSG ALREADY ISSUED                         FEAT121L     443     A     
 SCANNER            NZ     X1,NXT10    IF ERROR WAS IN C$-DEBUG STATEMENT                  FEAT121L     444     A     
 SCANNER            SX6    ST.BAD                                                          FEAT121L     445     A     
 SCANNER            SA6    TYPE        SET TO *BAD STATEMENT*                              FEAT121L     446     A     
 SCANNER            POSTER SEV=FE,NR=E31,RETURN=NXT2  *STATEMENT TOO LONG*                 FEAT121L     447     A     
 SCANNER                                                                                   FEAT121L     448     A     
 SCANNER   NXT10    SA6    TYPE        SET TO *BAD C$-DEBUG STATEMENT*                     FEAT121L     449     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1902    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            DBGERR (TOO MANY CONTINUATION LINES.)                                  FEAT121L     450     A     
 SCANNER            EQ     NXT2                                                            FEAT121L     451     A     
 SCANNER   NEWSS    TITLE  NEW STATEMENT FOUND; BEGIN WRAPUP ON CURRENT STMT               SCANNER     2771          I
          -FEAT121L 
 SCANNER   NEWS     SA1    SBUFLG                                                          SCANNER     2772          I
          -FEAT121L 
 SCANNER            SX0    1                                                               SCANNER     2773          I
          -FEAT121L 
 SCANNER            AX1    59          (X1) = -0 IF STMT TERMINATED BY $                   SCANNER     2774          I
          -FEAT121L 
 SCANNER  *                                 = +0 IF STMT TERMINATED BY NEXT STMT           SCANNER     2775          I
          -FEAT121L 
 SCANNER            BX6    X0-X1       (X6) = -1 IF STMT TERMINATED BY $                   SCANNER     2776          I
          -FEAT121L 
 SCANNER  *                                 = +1 IF STMT TERMINATED BY NEXT STMT           SCANNER     2777          I
          -FEAT121L 
 SCANNER            MX7    0                                                               SCANNER     2778          I
          -FEAT121L 
 SCANNER            SA6    A1                                                              SCANNER     2779          I
          -FEAT121L 
 SCANNER            SA2    FCFLG                                                           SCANNER     2780          I
          -FEAT121L 
 SCANNER            SA1    PAD                                                             SCANNER     2781          I
          -FEAT121L 
 SCANNER            NZ     X2,ERP1A    IF FATAL TO COMPILATION FLAG ON                     SCANNER     2782          I
          -FEAT121L 
 SCANNER            ZR     X1,NEWS.20  IF NO INCOMPLETE PACK                               SCANNER     2783          I
          -FEAT121L 
 SCANNER            RJ        RESTO     GET READY TO TERMINATE                             SCANNER     2784          I
          -FEAT121L 
 SCANNER            ZR     X6,AROUND    NOTHING TO STORE                                   SCANNER     2785          I
          -FEAT121L 
 SCANNER            SB7    7                                                               SCANNER     2786          I
          -FEAT121L 
 SCANNER            LE     B6,B7,NEWS.13     IF NAME LENGTH LEGAL                          SCANNER     2787          I
          -FEAT121L 
 SCANNER            SA1    =XDFLAG     DEBUG MODE FLAG                                     SCANNER     2788          I
          -FEAT121L 
 SCANNER            ZR     X1,ERP5     IF NOT IN DEBUG MODE                                SCANNER     2789          I
          -FEAT121L 
 SCANNER            SA1    TYPE                                                            SCANNER     2790          I
          -FEAT121L 
 SCANNER            MI     X1,ERP5     IF UNTYPED NON-DEBUG STATEMENT                      SCANNER     2791          I
          -FEAT121L 
 SCANNER            NZ     X1,NEWS.12  IF NOT AN UNTYPED DEBUG STATEMENT                   SCANNER     2792          I
          -FEAT121L 
 SCANNER   NEWS.11  BX6    X6-X6                                                           SCANNER     2793          I
          -FEAT121L 
 SCANNER            SA6    A1          CLEAR TYPE (BAD DEBUG CARD)                         SCANNER     2794          I
          -FEAT121L 
 SCANNER            DBGERR   (KEYWORD OR VARIABLE TOO LONG.)                               SCANNER     2795          I
          -FEAT121L 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1903    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            EQ     LEX         EXIT...                                             SCANNER     2796          I
          -FEAT121L 
 SCANNER  *                                                                                SCANNER     2797          I
          -FEAT121L 
 SCANNER   NEWS.12  SX1    X1-DBGFSTT                                                      SCANNER     2798          I
          -FEAT121L 
 SCANNER            PL     X1,NEWS.11  IF A TYPED DEBUG STATEMENT                          SCANNER     2799          I
          -FEAT121L 
 SCANNER            EQ     ERP5                                                            SCANNER     2800          I
          -FEAT121L 
 SCANNER                                                                                   SCANNER     2801          I
          -FEAT121L 
 SCANNER   NEWS.13  RJ     PVN         PROCESS VARIABLE NAME                               SCANNER     2802          I
          -FEAT121L 
 SCANNER            SA1    EXPEXP                                                          SCANNER     2803          I
          -FEAT121L 
 SCANNER            NZ     X1,AFLAT     INCOMPLETE RELATIONAL OR LOGICAL OPERATOR          SCANNER     2804          I
          -FEAT121L 
 SCANNER            ELPUT  X6                                                              SCANNER     2805          I
          -FEAT121L 
 SCANNER            EQ        AROUND                                                       SCANNER     2806          I
          -FEAT121L 
 SCANNER                                                                                   SCANNER     2807          I
          -FEAT121L 
 SCANNER   NEWS.20  SA1    IMPFLG                                                          SCANNER     2808          I
          -FEAT121L 
 SCANNER            ZR     X1,NEWS.30  IF NOT PROCESSING *IMPLICIT* TYPE KEYWORD           SCANNER     2809          I
          -FEAT121L 
 SCANNER            RJ     IMP         FORMAT AND (RE)STORE TYPE IN E-LIST                 SCANNER     2810          I
          -FEAT121L 
 SCANNER            EQ     AROUND                                                          SCANNER     2811          I
          -FEAT121L 
 SCANNER                                                                                   SCANNER     2812          I
          -FEAT121L 
 SCANNER   NEWS.30  SA2    CAD                                                             SCANNER     2813          I
          -FEAT121L 
 SCANNER            SA1    HANG.                                                           SCANNER     2814          I
          -FEAT121L 
 SCANNER            ZR     X2,TFAD     IF NO INCOMPLETE CONSTANT                           SCANNER     2815          I
          -FEAT121L 
 SCANNER            RJ        RESTO                                                        SCANNER     2816          I
          -FEAT121L 
 SCANNER            SA1    HANG.                                                           SCANNER     2817          I
          -FEAT121L 
 SCANNER            ZR     X1,NEWS.40  IF NO HANGING PERIOD                                SCANNER     2818          I
          -FEAT121L 
 SCANNER            SA7    HANG.       TURN HANGING PERIOD FLAG OFF                        SCANNER     2819          I
          -FEAT121L 
 SCANNER            SB2       57B       PUT . IN                                           SCANNER     2820          I
          -FEAT121L 
 SCANNER            RJ        PACKC     CONSTANT STRING AND                                SCANNER     2821          I
          -FEAT121L 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1904    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            SX7       2         SET CONSTANT                                       SCANNER     2822          I
          -FEAT121L 
 SCANNER            SA7       CTYPE     TYPE TO REAL                                       SCANNER     2823          I
          -FEAT121L 
 SCANNER   NEWS.40  RJ     PACKT       FINISH CONSTANT E-LIST ENTRY                        SCANNER     2824          I
          -FEAT121L 
 SCANNER            SA1    EXPEXP                                                          SCANNER     2825          I
          -FEAT121L 
 SCANNER            SA2    CAD                                                             SCANNER     2826          I
          -FEAT121L 
 SCANNER            NZ     X1,ERP0     IF EXPONENT HANGING                                 SCANNER     2827          I
          -FEAT121L 
 SCANNER            PL     X2,AROUND   IF NOT INCOMPLETE HOLL CONSTANT PACK                SCANNER     2828          I
          -FEAT121L 
 SCANNER            SB6    -E104                                                           SCANNER     2829          I
          -FEAT121L 
 SCANNER            EQ     PROE                                                            SCANNER     2830          I
          -FEAT121L 
 SCANNER                                                                                   SCANNER     2831          I
          -FEAT121L 
 SCANNER   TFAD     ZR     X1,AROUND   IF NO HANGING PERIOD                                SCANNER     2832          I
          -FEAT121L 
 SCANNER            SA2    TYPE                                                            SCANNER     2833          I
          -FEAT121L 
 SCANNER            ZR     X2,DAFT1    IF UNTYPED DEBUG STATEMENT                          SCANNER     2834          I
          -FEAT121L 
 SCANNER            SX2    X2-DBGFSTT                                                      SCANNER     2835          I
          -FEAT121L 
 SCANNER            PL     X2,DAFT1    IF DEBUG STATEMENT                                  SCANNER     2836          I
          -FEAT121L 
 SCANNER            EQ     ERP0                                                            SCANNER     2837          I
          -FEAT121L 
 SCANNER                                                                                   SCANNER     2838          I
          -FEAT121L 
 SCANNER   DAFT1    SA2    =XDFLAG                                                         SCANNER     2839          I
          -FEAT121L 
 SCANNER            ZR     X2,ERP0     IF DEBUG MODE OFF                                   SCANNER     2840          I
          -FEAT121L 
 SCANNER            DBGERR (ILLEGAL FORM)                                                  SCANNER     2841          I
          -FEAT121L 
 SCANNER            SX6    0                                                               SCANNER     2842          I
          -FEAT121L 
 SCANNER            SA6    TYPE        SIGNAL FOR BAD DEBUG CARD                           SCANNER     2843          I
          -FEAT121L 
 SCANNER   AROUND   SA1    FEFLG                                                           SCANNER     2844          I
          -FEAT121L 
 SCANNER            SA2    NULLSTMT                                                        SCANNER     2845          I
          -FEAT121L 
 SCANNER            NZ     X1,LEX      IF FE ERR IN STMT, EXIT...                          SCANNER     2846          I
          -FEAT121L 
 SCANNER            NZ     X2,AFLAT    IF NOT EMPTY STATEMENT                              SCANNER     2847          I
          -FEAT121L 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1905    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            SA1    CLABEL                                                          SCANNER     2848          I
          -FEAT121L 
 SCANNER            NZ     X1,ERP2     IF EMPTY STMT CONTAINS A VALID LABEL                SCANNER     2849          I
          -FEAT121L 
 SCANNER            SA1    =XDFLAG                                                         SCANNER     2850          I
          -FEAT121L 
 SCANNER            AX1    1                                                               SCANNER     2851          I
          -FEAT121L 
 SCANNER            ZR     X1,SCANNER1 IF NOT PROCESSING DBG EXT PACKET FILE               SCANNER     2852          I
          -FEAT121L 
 SCANNER            EQ     LEX                                                             SCANNER     2853          I
          -FEAT121L 
 SCANNER                                                                                   SCANNER     2854          I
          -FEAT121L 
 SCANNER   AFLAT    SA4    T6          RESTORE TERMINATING CHARACTER                       SCANNER     2855          I
          -FEAT121L 
 SCANNER            SB2    X4                                                              SCANNER     2856          I
          -FEAT121L 
 SCANNER            SA1       EXPEXP                                                       SCANNER     2857          I
          -FEAT121L 
 SCANNER            SA4       TYPE      STATEMENT TYPE CODE                                SCANNER     2858          I
          -FEAT121L 
 SCANNER            NZ     X1,ERP0                                                         SCANNER     2859          I
          -FEAT121L 
 SCANNER            PL     X4,LEX      IF STMT HAS BEEN TYPED, EXIT...                     SCANNER     2860          I
          -FEAT121L 
 SCANNER            SA4    T4          GET STATE ADDRESS (NORMALLY IN B1)                  SCANNER     2861          I
          -FEAT121L 
 SCANNER            SB1    LEX                                                             SCANNER     2862          I
          -FEAT121L 
 SCANNER            SA4    X4-1        STATE TYPE DETERMINER IS IN (STATEN-1)              SCANNER     2863          I
          -FEAT121L 
 SCANNER            SB3    X4           TYPE DETERMINER                                    SCANNER     2864          I
          -FEAT121L 
 SCANNER            JP     B3           JUMP TO TYPER                                      SCANNER     2865          I
          -FEAT121L 
 SCANNER   PACKC    SPACE  4,8                                                             SCANNER     2866     A     
 SCANNER  ***                                                                              SCANNER     2867     A     
 SCANNER  *         PACKC - PACKS TEN DPC CHARACTERS PER WORD AND STORES IT                SCANNER     2868     A     
 SCANNER  *                 IN 'CONSTOR'.                                                  SCANNER     2869     A     
 SCANNER  *                                                                                SCANNER     2870     A     
 SCANNER  *                ONE CHARACTER IS PASSED IN B2 TO 'PACKC' PER RJ CALL.           SCANNER     2871     A     
 SCANNER  *                SUCCESSIVE CHARACTERS ARE PACKED IN X6, LEFT TO RIGHT.          SCANNER     2872     A     
 SCANNER  *                WHEN A FULL WORD OF TEN CHARACTERS HAS ACCUMULATED IN           SCANNER     2873     A     
 SCANNER  *                X6, 'PACKC' CALLS 'CKCSTOR' TO ENTER THE WORD IN                SCANNER     2874     A     
 SCANNER  *                'CONSTOR'.                                                      SCANNER     2875     A     
 SCANNER  *                                                                                SCANNER     2876     A     
 SCANNER  *  ON ENTRY - B2 = NEW CHARACTER TO PACK                                         SCANNER     2877     A     
 SCANNER  *             B3 = PACKING SHIFT COUNT                                           SCANNER     2878     A     
 SCANNER  *             X6 = PACKING REGISTER                                              SCANNER     2879     A     
 SCANNER  *                                                                                SCANNER     2880     A     
 SCANNER  *  ON EXIT  - B3 AND X6 ARE UPDATED                                              SCANNER     2881     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1906    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *                                                                                SCANNER     2882     A     
 SCANNER  *         REGISTERS ALTERED (INCLUDING CALLS TO 'CKCSTOR') -                     SCANNER     2883     A     
 SCANNER  *                X0,X1,X2,   X5,X6,X7                                            SCANNER     2884     A     
 SCANNER  *                   A1,A2,   A5,A6,A7                                            SCANNER     2885     A     
 SCANNER  *                         B3                                                     SCANNER     2886     A     
 SCANNER  *                                                                                SCANNER     2887     A     
 SCANNER   PACKC    EQ     *+1S17      ENTRY/EXIT                                          SCANNER     2888     A     
 SCANNER            SA1       N         STRING LENGTH                                      SCANNER     2889     A     
 SCANNER            SA2    CCSTO       NEXT VACANT LOCATION IN 'CONSTOR'                   SCANNER     2890     A     
 SCANNER            NZ     X1,NOTF      JUMP IF STRING ALREADY STARTED                     SCANNER     2891     A     
 SCANNER            SB3       54        INITIALIZE FOR NEW STRING, SHIFT COUNT             SCANNER     2892     A     
 SCANNER            BX7    X2                                                              SCANNER     2893     A     
 SCANNER            MX6    0           CLEAR PACKING REGISTER                              SCANNER     2894     A     
 SCANNER            SA7       LOCC      POINTER FOR E-LIST ENTRY                           SCANNER     2895     A     
 SCANNER                                                                                   SCANNER     2896     A     
 SCANNER   NOTF     SX0    B2           CHARACTER TO X0                                    SCANNER     2897     A     
 SCANNER            SX7    X1+1         NEW CHARACTER COUNT                                SCANNER     2898     A     
 SCANNER            LX0    X0,B3                                                           SCANNER     2899     A     
 SCANNER            BX6    X6+X0        OR INTO STRING                                     SCANNER     2900     A     
 SCANNER            SB3    B3-6         NEXT SHIFT COUNT                                   SCANNER     2901     A     
 SCANNER            SA7    A1           STORE IN N                                         SCANNER     2902     A     
 SCANNER            PL     B3,PACKC     RETURN                                             SCANNER     2903     A     
 SCANNER            RJ     MCE         MAKE *CONSTOR* ENTRY                                SCANNER     2904     A     
 SCANNER            SX6    0           CLEAR PACKING REGISTER                              SCANNER     2905     A     
 SCANNER            SB3       54                                                           SCANNER     2906     A     
 SCANNER            EQ        PACKC     READY FOR NEXT CHARACTER                           SCANNER     2907     A     
 SCANNER   PACKT    TITLE  BLANK FILL LAST WORD AND STORE IN E-LIST                        SCANNER     2908     A     
 SCANNER  * PACKT FILLS LAST WORD WITH BLANKS, MAKES E-LIST ENTRY                          SCANNER     2909     A     
 SCANNER                                                                                   SCANNER     2910     A     
 SCANNER   PACKT    EQ     *+1S17      ENTRY/EXIT                                          SCANNER     2911     A     
 SCANNER            SA1       LOCC      POINTER FOR E-LIST ENTRY                           SCANNER     2912     A     
 SCANNER            SA2       CTYPE     CONSTANT TYPE                                      SCANNER     2913     A     
 SCANNER            SA3    N                                                               SCANNER     2914     A     
 SCANNER            BX7    X7-X7                                                           SCANNER     2915     A     
 SCANNER            LX2    45                                                              SCANNER     2916     A     
 SCANNER            SA7    A3                                                              SCANNER     2917     A     
 SCANNER            BX1    X1+X2                                                           SCANNER     2918     A     
 SCANNER            LX3    18                                                              SCANNER     2919     A     
 SCANNER            IX2    X1+X3                                                           SCANNER     2920     A     
 SCANNER            SA7    CAD         PACK-IN-PROGRESS FLAG -OFF-                         SCANNER     2921     A     
 SCANNER            SB7    54                                                              SCANNER     2922     A     
 SCANNER            PX7    X2,B0       12/2000B,3/TYPE,9/0,18/LEN,18/*CONSTOR* LOC         SCANNER     2923     A     
 SCANNER            MX0    1                                                               SCANNER     2924     A     
 SCANNER            SA1    =10H              10 BLANKS FOR FILL                            SCANNER     2925     A     
 SCANNER            SA7    COMMON                                                          SCANNER     2926     A     
 SCANNER            EQ     B3,B7,PKT2  IF PACKING REGISTER IS EMPTY                        SCANNER     2927     A     
 SCANNER                                                                                   SCANNER     2928     A     
 SCANNER  *         BLANK FILL AND STORE THE FINAL WORD OF THE STRING.                     SCANNER     2929     A     
 SCANNER                                                                                   SCANNER     2930     A     
 SCANNER            SB3    B3-54+1     - (LENGTH OF FILL MASK COMPLEMENT) + 1              SCANNER     2931     A     
 SCANNER            LX0    X0,B3       BECOMES RIGHT SHIFT SINCE B3 IS NEGATIVE            SCANNER     2932     A     
 SCANNER            BX1    -X0*X1                                                          SCANNER     2933     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1907    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            IX6    X6+X1       MERGE STRING AND BLANK FILL                         SCANNER     2934     A     
 SCANNER            RJ     MCE         MAKE *CONSTOR* ENTRY                                SCANNER     2935     A     
 SCANNER                                                                                   SCANNER     2936     A     
 SCANNER   PKT2     ELPUT  COMMON                                                          SCANNER     2937     A     
 SCANNER            EQ        PACKT                                                        SCANNER     2938     A     
 SCANNER   PACK30   TITLE  PACK SYMBOLIC IDENT (30 CHARAC) AND STORE IN E-LIST             SCANNER     2939     A     
 SCANNER   PACK30.1 SX6    A4-SBUFF                                                        SCANNER     2940     A     
 SCANNER            SA6    COLS        UPDATE POINTER TO NEXT COLUMN                       SCANNER     2941     A     
 SCANNER                                                                                   SCANNER     2942     A     
 SCANNER   PACK30   SUBR               ** ENTRY/EXIT **                                    SCANNER     2943     A     
 SCANNER            SA3    COLS        GET NEXT COLUMN NUMBER                              SCANNER     2944     A     
 SCANNER            SB5    1                                                               SCANNER     2945     A     
 SCANNER            SA4    X3+SBUFF    GET NEXT COLUMN                                     SCANNER     2946     A     
 SCANNER            BX6    X6-X6       CLEAR PACKING REGISTER                              SCANNER     2947     A     
 SCANNER            SX1    B2                                                              SCANNER     2948     A     
 SCANNER            MX3    -1R.        SHIFT TEST MASK FOR ILLEG CHARS 00B,60B_77B         SCANNER     2949     A     
 SCANNER            SB6    B0          (B6) = KEYWORD STRING LENGTH                        SCANNER     2950     A     
 SCANNER            SA6    KEYL        INITIALIZE KEYWORD LENGTH = 0                       SCANNER     2951     A     
 SCANNER            SB3    54          INITIALIZE PACKING SHIFT COUNTER                    SCANNER     2952     A     
 SCANNER            SB4    7777B+1R+                                                       SCANNER     2953     A     
 SCANNER            SA0    -6                                                              SCANNER     2954     A     
 SCANNER                                                                                   SCANNER     2955     A     
 SCANNER  *  ????   BEGIN 6600 IN-STACK LOOP                                               SCANNER     2956     A     
 SCANNER                                                                                   SCANNER     2957     A     
 SCANNER   PACK30.2 LX2    B3,X1       SHIFT CHARACTER FOR PACKING                         SCANNER     2958     A     
 SCANNER            SB6    B6+B5       STRING LENGTH + 1                                   SCANNER     2959     A     
 SCANNER            SB3    A0+B3       PACKING SHIFT COUNT - 6                             SCANNER     2960     A     
 SCANNER            BX6    X6+X2       PACK THE CHARACTER                                  SCANNER     2961     A     
 SCANNER   PACK30.3 MI     B3,PACK30.4 IF PACKING REGISTER FULL                            SCANNER     2962     A     
 SCANNER            SB7    X4+7777B    BIAS ILLEGAL CHAR TO 7777B OR 10057B_10076B         SCANNER     2963     A     
 SCANNER            AX0    B7,X3       B7 IS TRANSFERRED TO SHIFT UNIT MODULO 64           SCANNER     2964     A     
 SCANNER            SX1    X4          STRIP EXPONENT FOR PACKING                          SCANNER     2965     A     
 SCANNER            ZR     X0,PACK30.4 IF ILLEGAL CHARACTER OR END-OF-LINE                 SCANNER     2966     A     
 SCANNER            SA4    A4+1        GET NEXT CHARACTER                                  SCANNER     2967     A     
 SCANNER            LT     B7,B4,PACK30.2 IF NOT STRING TERMINATING CHARACTER              SCANNER     2968     A     
 SCANNER                                                                                   SCANNER     2969     A     
 SCANNER  *  ''''   END IN-STACK LOOP                                                      SCANNER     2970     A     
 SCANNER                                                                                   SCANNER     2971     A     
 SCANNER   PACK30.4 SB2    30                                                              SCANNER     2972     A     
 SCANNER            SA2    KEYL                                                            SCANNER     2973     A     
 SCANNER            GT     B6,B2,ERP2  IF KEYWORD LONGER THAN 30 CHARACTERS                SCANNER     2974     A     
 SCANNER            SX2    X2+B5                                                           SCANNER     2975     A     
 SCANNER            PX7    X2,B6       12/2000B + NR CHARACTERS, 48/NR WORDS               SCANNER     2976     A     
 SCANNER            SA6    KEYW-1+X2   PACKING REGISTER TO KEYWORD BUFFER                  SCANNER     2977     A     
 SCANNER            SB2    X1          (B2) = KEYWORD TERMINATOR                           SCANNER     2978     A     
 SCANNER            SA7    A2          UPDATE LENGTHS                                      SCANNER     2979     A     
 SCANNER            MX7    0                                                               SCANNER     2980     A     
 SCANNER            SA7    A6+B5                                                           SCANNER     2981     A     
 SCANNER            ZR     X0,PACK30.5 IF ILLEGAL CHARACTER OR END-OF-LINE                 SCANNER     2982     A     
 SCANNER            GE     B7,B4,PACK30.1  IF STRING TERMINATING CHARACTER FOUND           SCANNER     2983     A     
 SCANNER            SB3    54          RESET PACKING SHIFT COUNTER                         SCANNER     2984     A     
 SCANNER            SX6    0           CLEAR PACKING REGISTER                              SCANNER     2985     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1908    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            EQ     PACK30.3                                                        SCANNER     2986     A     
 SCANNER                                                                                   SCANNER     2987     A     
 SCANNER   PACK30.5 SB7    3                                                               SCANNER     2988     A     
 SCANNER            NE     B6,B7,PACK30.6    IF KEYWORD NOT 3 CHARACTERS LONG              SCANNER     2989     A     
 SCANNER            SA1    =3LEND                                                          SCANNER     2990     A     
 SCANNER            SA5    CONTCNT                                                         SCANNER     2991     A     
 SCANNER            SB4    LEX8                                                            SCANNER     2992     A     
 SCANNER            BX2    X6-X1                                                           SCANNER     2993     A     
 SCANNER            NZ     X2,PACK30.6 IF KEYWORD NOT *END*                                SCANNER     2994     A     
 SCANNER            SA1    LTYPE                                                           SCANNER     2995     A     
 SCANNER            NZ     X5,PACK30.6 IF CONTINUATION LINE                                SCANNER     2996     A     
 SCANNER            EQ     B1,B4,PACK30.6    IF CALLED FROM *LEX8*                         SCANNER     2997     A     
 SCANNER            NZ     X1,PACK30.6 IF *END* IS OBJECT OF A LOGICAL *IF*                SCANNER     2998     A     
 SCANNER            MI     B2,ENDP     IF KEYWORD TERMINATED BY E-O-L SENTINEL             SCANNER     2999     A     
 SCANNER            SA1    NOEND                                                           SCANNER     3000     A     
 SCANNER            NZ     X1,ENDP     IF *END* WAS INVENTED                               SCANNER     3001     A     
 SCANNER   PACK30.6 RJ     PGCOM                                                           SCANNER     3002     A     
 SCANNER            SA5    KEYL                                                            SCANNER     3003     A     
 SCANNER            SA0    -6                                                              SCANNER     3004     A     
 SCANNER            MX2    -1                                                              SCANNER     3005     A     
 SCANNER            IX7    X5+X2                                                           SCANNER     3006     A     
 SCANNER            SA7    A5          BACK UP KEYWORD BUFFER POINTER                      SCANNER     3007     A     
 SCANNER            NZ     B4,PACK30.3 IF NOT STARTING DELIMITED HOLLERITH STRING          SCANNER     3008     A     
 SCANNER            SA4    A4+1        ADVANCE COLUMN POINTER                              SCANNER     3009     A     
 SCANNER            EQ     PACK30.1                                                        SCANNER     3010     A     
 SCANNER   PACK7    TITLE  PACK SYMBOLIC NAME (7 CHARAC) AND STORE IN E-LIST               SCANNER     3011     A     
 SCANNER   PACK7.1  SA2    ELAST                                                           SCANNER     3012     A     
 SCANNER            SA3    FWAWORK                                                         SCANNER     3013     A     
 SCANNER            SX7    X2-1        INCREMENT INVERTED E-LIST POINTER                   SCANNER     3014     A     
 SCANNER            IX2    X3-X7                                                           SCANNER     3015     A     
 SCANNER            SA7    A2          UPDATE E-LIST POINTER                               SCANNER     3016     A     
 SCANNER            PL     X2,ERP1     IF E-LIST SPACE FULL                                SCANNER     3017     A     
 SCANNER            SA6    X7          PACKED NAME TO E-LIST                               SCANNER     3018     A     
 SCANNER   PACK7.2  SX6    B0+                                                             SCANNER     3019     A     
 SCANNER            SA6    PAD         TURN PACK IN PROGRESS FLAG OFF                      SCANNER     3020     A     
 SCANNER                                                                                   SCANNER     3021     A     
 SCANNER   PACK7    SUBR   =           ** ENTRY/EXIT **                                    SCANNER     3022     A     
 SCANNER            SA3    COLS        GET NEXT COLUMN NUMBER                              SCANNER     3023     A     
 SCANNER            SB5    1                                                               SCANNER     3024     A     
 SCANNER            SA4    X3+SBUFF    GET NEXT COLUMN                                     SCANNER     3025     A     
 SCANNER            SX7    B5                                                              SCANNER     3026     A     
 SCANNER            BX6    X6-X6       CLEAR PACKING REGISTER                              SCANNER     3027     A     
 SCANNER            SA7    PAD         SET FLAG TO *PACK7-IN-PROGRESS*                     SCANNER     3028     A     
 SCANNER            SX1    B2                                                              SCANNER     3029     A     
 SCANNER            MX3    -1R.        SHIFT TEST MASK FOR ILLEG CHARS 00B,60B_77B         SCANNER     3030     A     
 SCANNER            SB3    42          INITIALIZE PACKING SHIFT COUNTER                    SCANNER     3031     A     
 SCANNER            SB4    7777B+1R+                                                       SCANNER     3032     A     
 SCANNER            SB6    0           INITIALIZE STRING LENGTH COUNTER                    SCANNER     3033     A     
 SCANNER            SA0    -6                                                              SCANNER     3034     A     
 SCANNER                                                                                   SCANNER     3035     A     
 SCANNER  *  ????   BEGIN 6600 IN-STACK LOOP                                               SCANNER     3036     A     
 SCANNER                                                                                   SCANNER     3037     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1909    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER   PACK7.3  LX1    X1,B3       SHIFT CHARACTER FOR PACKING                         SCANNER     3038     A     
 SCANNER            SB6    B6+B5       STRING LENGTH + 1                                   SCANNER     3039     A     
 SCANNER            SB3    A0+B3       PACKING SHIFT COUNT - 6                             SCANNER     3040     A     
 SCANNER            BX6    X6+X1       PACK THE CHARACTER                                  SCANNER     3041     A     
 SCANNER   PACK7.4  SB7    X4+7777B    BIAS ILLEGAL CHAR TO 7777B OR 10057B_10076B         SCANNER     3042     A     
 SCANNER            AX0    B7,X3       B7 IS TRANSFERRED TO SHIFT UNIT MODULO 64           SCANNER     3043     A     
 SCANNER            SX1    X4          STRIP EXPONENT FOR PACKING                          SCANNER     3044     A     
 SCANNER            ZR     X0,PACK7.5  IF ILLEGAL CHAR OR END-OF-LINE SENTINEL             SCANNER     3045     A     
 SCANNER            SA4    A4+1        GET NEXT CHARACTER                                  SCANNER     3046     A     
 SCANNER   PACK7.H  LT     B7,B4,PACK7.3  IF NOT STRING TERMINATING CHARACTER              SCANNER     3047     A     
 SCANNER                                                                                   SCANNER     3048     A     
 SCANNER  *  ''''   END IN-STACK LOOP                                                      SCANNER     3049     A     
 SCANNER                                                                                   SCANNER     3050     A     
 SCANNER            SX7    A4-SBUFF                                                        SCANNER     3051     A     
 SCANNER            SB2    X1+         (B2) = STRING TERMINATING CHARACTER                 SCANNER     3052     A     
 SCANNER            SA7    COLS        UPDATE POINTER TO NEXT COLUMN                       SCANNER     3053     A     
 SCANNER            RJ     PVN         PROCESS VARIABLE NAME                               SCANNER     3054     A     
 SCANNER            NZ     X6,PACK7.1  IF NAME LENGTH LEGAL                                SCANNER     3055     A     
 SCANNER            EQ     PACK7.2     (HERE ONLY IF C$ DEBUG STATEMENT ERROR)             SCANNER     3056     A     
 SCANNER                                                                                   SCANNER     3057     A     
 SCANNER   PACK7.5  SB2    X1          SAVE SPECIAL CHAR THAT TERMINATED STRING            SCANNER     3058     A     
 SCANNER            RJ     PGCOM       GO CHECK CHAR AND LOOK FOR CONTINUATION             SCANNER     3059     A     
 SCANNER            SA0    -6                                                              SCANNER     3060     A     
 SCANNER            NZ     B4,PACK7.4  IF NOT STARTING DELIMITED HOLLERITH STRING          SCANNER     3061     A     
 SCANNER            SA4    A4+1        ADVANCE COLUMN POINTER                              SCANNER     3062     A     
 SCANNER            EQ     PACK7.H                                                         SCANNER     3063     A     
 SCANNER   PBC      SPACE  4,8                                                             SCANNER     3064     A     
 SCANNER  **        PBC - PROCESS BLANK AND COMMENT LINES.                                 SCANNER     3065     A     
 SCANNER  *                                                                                SCANNER     3066     A     
 SCANNER  *         ENTRY  (X5) = .NZ. IF COMMENT LINE.                                    SCANNER     3067     A     
 SCANNER  *                                                                                SCANNER     3068     A     
 SCANNER  *         USES   X - 1, 2, 6, 7                                                  SCANNER     3069     A     
 SCANNER  *                A - 1, 2, 6, 7                                                  SCANNER     3070     A     
 SCANNER  *                B - NONE.                                                       SCANNER     3071     A     
 SCANNER  *                                                                                SCANNER     3072     A     
 SCANNER  *         CALLS  D.IDSP                                                          SCANNER     3073     A     
 SCANNER                                                                                   SCANNER     3074     A     
 SCANNER                                                                                   SCANNER     3075     A     
 SCANNER   PBC      SUBR               ** ENTRY/EXIT **                                    SCANNER     3076     A     
 SCANNER            NZ     X5,PBC2     IF COMMENT LINE                                     SCANNER     3077     A     
 SCANNER            SA1    NABC                                                            SCANNER     3078     A     
 SCANNER            SA2    CLABEL                                                          SCANNER     3079     A     
 SCANNER            SX6    1                                                               SCANNER     3080     A     
 SCANNER            IX7    X1+X6                                                           SCANNER     3081     A     
 SCANNER            SA7    A1          INCREMENT NON-ANSI BLANK LINE COUNT                 SCANNER     3082     A     
 SCANNER            SA6    BLNKSTMT    BLANK STATEMENT (SO FAR) FLAG ON                    SCANNER     3083     A     
 SCANNER            BX7    X2                                                              SCANNER     3084     A     
 SCANNER            SA7    NLABEL      RETAIN LABEL OF LAST NON-BLANK STATEMENT            SCANNER     3085     A     
 SCANNER   PBC2     SA1    DFLAG                                                           SCANNER     3086     A     
 SCANNER            ZR     X1,EXIT.    IF DEBUG OFF                                        SCANNER     3087     A     
 SCANNER            CALL   D.IDSP      SAVE UPDATE IDENT                                   SCANNER     3088     A     
 SCANNER            SB1    1                                                               SCANNER     3089     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1910    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            EQ     EXIT.                                                           SCANNER     3090     A     
 SCANNER   PGCOM    SPACE  4,8                                                             SCANNER     3091     A     
 SCANNER  **        PGCOM - COMMON ILLEGAL CHARACTER PROCESSOR.                            FEAT121L     452     A     
 SCANNER  *                                                                                FEAT121L     453     A     
 SCANNER  *                                                                                FEAT121L     454     A     
 SCANNER  *                ENTERED IF AN ILLEGAL CHARACTER IS ENCOUNTERED                  FEAT121L     455     A     
 SCANNER  *         IN *SBUFF*.                                                            FEAT121L     456     A     
 SCANNER                                                                                   FEAT121L     457     A     
 SCANNER                                                                                   FEAT121L     458     A     
 SCANNER   PGCOM1   RJ     SCNSAVE                                                         SCANNER     3092          I
          -FEAT121L 
 SCANNER   PGCOM1   RJ     SAV         SAVE PACKING REGISTERS                              FEAT121L     459     A     
 SCANNER            RJ     NEXT                                                            SCANNER     3093          I
          -FEAT121L 
 SCANNER            RJ     NXT         REQUEST AND PROCESS NEXT SOURCE LINE                FEAT121L     460     A     
 SCANNER            NZ     X1,NEWS     IF NEW STATEMENT FOUND                              FEAT121L     461     A     
 SCANNER            RJ     RESTO                                                           SCANNER     3094          I
          -FEAT121L 
 SCANNER            RJ     RES         RESTORE PACKING REGISTERS                           FEAT121L     462     A     
 SCANNER            SA4    SBUFF       GET FIRST CHARAC FROM NEW LINE                      SCANNER     3095     A     
 SCANNER            SB4    7777B+1R+   RESTORE TEST CONSTANT                               SCANNER     3096     A     
 SCANNER                                                                                   SCANNER     3097     A     
 SCANNER   PGCOM    SUBR               ** ENTRY/EXIT **                                    SCANNER     3098     A     
 SCANNER            MI     X4,PGCOM1   IF E-O-L SENTINEL                                   SCANNER     3099     A     
 SCANNER            SB4    B2-1R"                                                          SCANNER     3100     A     
 SCANNER            NZ     B4,ERP6     IF NOT HOLLERITH STRING DELIM, ILLEGAL CHAR         SCANNER     3101     A     
 SCANNER            SB2    1R          CHANGE DELIM CHAR <"> (64B) TO < > (55B) TO         SCANNER     3102     A     
 SCANNER  *                             CONSERVE SPACE IN THE 'STATE' JUMP TABLES.         SCANNER     3103     A     
 SCANNER  *                             THIS AVOIDS ADDING 5 WORDS PER TABLE.              SCANNER     3104     A     
 SCANNER            SX1    B2          FOR 'PACK7' AND 'PACK30', WHO SET B2=X1             SCANNER     3105     A     
 SCANNER            EQ     EXIT.       RETURN WITH B4=0 TO SIGNAL DELIM HOLL STRNG         SCANNER     3106     A     
 SCANNER   PLO      SPACE  4,8                                                             FEAT121L     463     A     
 SCANNER   #NL      IF     DEF,#NL                                                         FEAT121L     464          I
          -FEAT126B 
 SCANNER   #NL      IFNE   #NL,0                                                           FEAT126B     933     A     
 SCANNER  **        PLO - PROCESS C/-LIST OPTIONS.                                         FEAT121L     465     A     
 SCANNER  *                                                                                FEAT121L     466     A     
 SCANNER  *                                                                                FEAT121L     467     A     
 SCANNER  *         ENTRY  (CSSTMT) = 1S59 IF *LIST,ALL* OCCURRED                          FEAT121L     468     A     
 SCANNER  *                         =  +1  IF *LIST,NONE* OCCURRED                         FEAT121L     469     A     
 SCANNER  *                         =  +0  IF C/-LIST DIRECTIVE DID NOT OCCUR              FEAT121L     470     A     
 SCANNER  *                (FTNCNT) = DPC LINE NUMBER FOR THIS STATEMENT                   FEAT121L     471     A     
 SCANNER  *                (NOLIST) = 1S59 IF IN *LIST,ALL* MODE                           FEAT121L     472     A     
 SCANNER  *                         =  +0  IF IN *LIST,NONE* MODE                          FEAT121L     473     A     
 SCANNER  *                                                                                FEAT121L     474     A     
 SCANNER  *         EXIT                                                                   FEAT121L     475     A     
 SCANNER  *                IF C/-LIST DIRECTIVE OCCURRED --                                FEAT121L     476     A     
 SCANNER  *                (CSSTMT)  = +0                                                  FEAT121L     477     A     
 SCANNER  *                (C$STMT)  = .ZR. IF NEXT STATEMENT IS NOT C$-DEBUG              FEAT121L     478     A     
 SCANNER  *                          = .NZ. IF NEXT STATEMENT IS C$-DEBUG                  FEAT121L     479     A     
 SCANNER  *                (SCNT)    = DPC LINE NUMBER FOR THIS STATEMENT                  FEAT121L     480     A     
 SCANNER  *                                                                                FEAT121L     481     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1911    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *                IF NEW C/-LIST DIRECTIVE .NE. CURRENT LISTING MODE --           FEAT121L     482     A     
 SCANNER  *                (CP.FLIN) = DPC LINE NUMBER FOR THIS STATEMENT                  FEAT121L     483     A     
 SCANNER  *                (NOLIST)  = SET TO NEW LISTING MODE                             FEAT121L     484     A     
 SCANNER  *                                                                                FEAT121L     485     A     
 SCANNER  *         USES   ALL                                                             FEAT121L     486     A     
 SCANNER  *                                                                                FEAT121L     487     A     
 SCANNER  *         CALLS  LSL,NXT,PLR,POSTER                                              FEAT121L     488     A     
 SCANNER                                                                                   FEAT121L     489     A     
 SCANNER                                                                                   FEAT121L     490     A     
 SCANNER   PLO      SUBR   =           ** ENTRY/EXIT **                                    FEAT121L     491     A     
 SCANNER   PLO2     SA1    CSSTMT                                                          FEAT121L     492     A     
 SCANNER            SA2    NOLIST                                                          FEAT121L     493     A     
 SCANNER            SA3    FTNCNT                                                          FEAT121L     494     A     
 SCANNER            ZR     X1,EXIT.    IF C/-LIST DIRECTIVE DID NOT OCCUR                  FEAT121L     495     A     
 SCANNER            BX6    X3                                                              FEAT121L     496     A     
 SCANNER            AX1    59          (X1) = +0 IF C/-LIST,NONE IS NEW MODE               FEAT121L     497     A     
 SCANNER  *                                 = -0 IF C/-LIST,ALL IS NEW MODE                FEAT121L     498     A     
 SCANNER            BX7    X7-X7                                                           FEAT121L     499     A     
 SCANNER            AX2    59          (X2) = +0 IF C/-LIST,NONE IS CURRENT MODE           FEAT121L     500     A     
 SCANNER  *                                 = -0 IF C/-LIST,ALL IS CURRENT MODE            FEAT121L     501     A     
 SCANNER            BX0    X1-X2       (X0) = +0 IF NEW MODE.EQ.CURRENT MODE               FEAT121L     502     A     
 SCANNER  *                                 = -0 IF NEW MODE.NE.CURRENT MODE               FEAT121L     503     A     
 SCANNER            SA6    SCNT                                                            FEAT121L     504     A     
 SCANNER            SA7    A1          (CSSTMT) = +0                                       FEAT121L     505     A     
 SCANNER                                                                                   FEAT126BC     12     A     
 SCANNER  .T        IFNE   TEST,0                                                          FEAT126BC     13     A     
 SCANNER            SA4    =XCO.SNAP                                                       FEAT126BC     14     A     
 SCANNER            LX4    1RU                                                             FEAT126BC     15     A     
 SCANNER            MI     X4,PLO4     IF (SNAP=U), IGNORE C/-LIST LINES                   FEAT126BC     16     A     
 SCANNER  .T        ENDIF                                                                  FEAT126BC     17     A     
 SCANNER                                                                                   FEAT126BC     18     A     
 SCANNER            MI     X0,PLO3     IF NEW MODE .NE. CURRENT MODE                       FEAT121L     506     A     
 SCANNER                                                                                   FEAT121L     507     A     
 SCANNER  *         HERE IF NEW MODE .EQ. CURRENT MODE.                                    FEAT121L     508     A     
 SCANNER                                                                                   FEAT121L     509     A     
 SCANNER            RJ     PLR         PROCESS LISTING REQUEST (C/ LINE)                   FEAT121L     510     A     
 SCANNER            EQ     PLO5                                                            FEAT121L     511     A     
 SCANNER                                                                                   FEAT121L     512     A     
 SCANNER   PLO3     SA6    =XCP.FLIN                                                       FEAT121L     513     A     
 SCANNER            MI     X1,PLO4     IF NEW MODE IS *LIST,ALL*                           FEAT121L     514     A     
 SCANNER                                                                                   FEAT121L     515     A     
 SCANNER  *         HERE IF C/ LIST,NONE OCCURRED.                                         FEAT121L     516     A     
 SCANNER                                                                                   FEAT121L     517     A     
 SCANNER            RJ     DSL         DMP SAVED LINES (ONLY LISTS IF BEFORE HDR)          FEAT121L     518     A     
 SCANNER            RJ     PLR         PROCESS LISTING REQUEST (C/-LIST,NONE LINE)         FEAT121L     519     A     
 SCANNER            MX6    0                                                               FEAT121L     520     A     
 SCANNER            NO                                                                     FEAT121L     521     A     
 SCANNER            SA6    NOLIST      SET TO *LIST,NONE* STATUS                           FEAT121L     522     A     
 SCANNER            EQ     PLO5                                                            FEAT121L     523     A     
 SCANNER                                                                                   FEAT121L     524     A     
 SCANNER  *         HERE IF C/ LIST,ALL OCCURRED.                                          FEAT121L     525     A     
 SCANNER                                                                                   FEAT121L     526     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1912    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER   PLO4     MX6    1                                                               FEAT121L     527     A     
 SCANNER            SA6    A2          SET TO *LIST,ALL* STATUS                            FEAT121L     528     A     
 SCANNER            RJ     PLR         PROCESS LISTING REQUEST (C/-LIST,ALL LINE)          FEAT121L     529     A     
 SCANNER                                                                                   FEAT121L     530     A     
 SCANNER   PLO5     RJ     NXT         REQUEST AND PROCESS NEXT SOURCE LINE                FEAT121L     531     A     
 SCANNER            SA3    C$STMT                                                          FEAT121L     532     A     
 SCANNER            SA2    CSSTMT                                                          FEAT121L     533     A     
 SCANNER            MX4    1                                                               FEAT121L     534     A     
 SCANNER            BX6    X3*X4                                                           FEAT121L     535     A     
 SCANNER            LX6    1           (X6) = +0 IF NEXT STATEMENT IS NOT C$-DEBUG         FEAT121L     536     A     
 SCANNER  *                                 =  1 IF NEXT STATEMENT IS C$-DEBUG             FEAT121L     537     A     
 SCANNER            BX7    X7-X7                                                           FCC1013        9     A     
 SCANNER            SA6    A3                                                              FEAT121L     538     A     
 SCANNER            SA7    BLNKSTMT    CLEAR *BLANK STMT SO FAR* FLAG                      FCC1013       10     A     
 SCANNER            NZ     X2,PLO2     IF C/ LINE FOLLOWED BY ANOTHER C/ LINE              FEAT121L     539     A     
 SCANNER            NZ     X1,EXIT.    IF C/ LINE NOT FOLLOWED BY CONTINUATION             FEAT121L     540     A     
 SCANNER                                                                                   FEAT121L     541     A     
 SCANNER  *         HERE IF C/-LIST DIRECTIVE FOLLOWED BY CONTINUATION LINE --             FEAT121L     542     A     
 SCANNER  *           POST ERROR AND STRIP CONTINUATION LINES.                             FEAT121L     543     A     
 SCANNER                                                                                   FEAT121L     544     A     
 SCANNER   PLO6     POSTER SEV=FE,NR=E319                                                  FEAT121L     545     A     
 SCANNER            RJ     NXT         STRIP CONTINUATION LINES                            FEAT121L     546     A     
 SCANNER            RJ     LSL         LIST SAVED LINES (C/ STMT IN ERR IF NOLIST)         FEAT121L     547     A     
 SCANNER            BX6    X6-X6                                                           FEAT121L     548     A     
 SCANNER            MX7    60                                                              FEAT121L     549     A     
 SCANNER            SA6    =XFEFLAG    CLEAR *FATAL ERROR OCCURRED* FLAG                   FEAT121L     550     A     
 SCANNER            SA7    TYPE        SET TO *UNTYPED*                                    FEAT121L     551     A     
 SCANNER            SA6    BLNKSTMT    CLEAR *BLANK STMT SO FAR* FLAG                      FCC1328X     642     A     
 SCANNER            EQ     PLO2        CHECK NEW STATEMENT...                              FEAT121L     552     A     
 SCANNER   #NL      ELSE                                                                   FEAT121L     553     A     
 SCANNER   PLO      SUBR   =                                                               FEAT121L     554     A     
 SCANNER            EQ     EXIT.                                                           FEAT121L     555     A     
 SCANNER   #NL      ENDIF                                                                  FEAT121L     556     A     
 SCANNER   PLR      SPACE  4,8                                                             SCANNER     3107     A     
 SCANNER  **        PLR - PROCESS LISTING REQUEST.                                         SCANNER     3108     A     
 SCANNER  *                                                                                SCANNER     3109     A     
 SCANNER  *                PROCESSES A REQUEST TO LIST A SOURCE LINE.                      SCANNER     3110     A     
 SCANNER  *         OPERATES IN ONE OF THREE MODES, AS FOLLOWS --                          SCANNER     3111     A     
 SCANNER  *         (1)  IF THE SOURCE LISTING OPTION IS OFF (L=0) OR A C/-NOLIST          SCANNER     3112     A     
 SCANNER  *         IS ACTIVE, SAVES EACH FULL STATEMENT (INITIAL LINE PLUS                SCANNER     3113     A     
 SCANNER  *         CONTINUATION LINES) IN A BUFFER FOR POSSIBLE ERROR LISTING.            SCANNER     3114     A     
 SCANNER  *         IN THIS MODE, COMMENT LINES ARE DISCARDED.                             SCANNER     3115     A     
 SCANNER  *         (2)  IF NOT IN MODE (1), BUT A VALID HEADER LINE HAS NOT BEEN          SCANNER     3116     A     
 SCANNER  *         FOUND, SAVES ALL LINES IN AN ATTEMPT TO LIST THE PROGRAM UNIT          SCANNER     3117     A     
 SCANNER  *         NAME AND TYPE IN THE HEADER OF THE FIRST PAGE.  IF THE BUFFER          SCANNER     3118     A     
 SCANNER  *         FILLS UP, LISTS ITS CONTENTS AND REVERTS TO NORMAL MODE (3).           SCANNER     3119     A     
 SCANNER  *         (3)  IF NOT IN MODE (1) OR (2), LISTS EACH LINE IMMEDIATELY.           SCANNER     3120     A     
 SCANNER  *                                                                                SCANNER     3121     A     
 SCANNER  *                                                                                SCANNER     3122     A     
 SCANNER  *         ENTRY  (CP.FLIN) ET SEQ = FORMATTED PRINT LINE IMAGE.                  SCANNER     3123     A     
 SCANNER  *                (L.PLINE) = LINE LENGTH IN WORDS.                               SCANNER     3124     A     
 SCANNER  *                (IEF) = BEFORE/AFTER HEADER STATUS FLAG.                        SCANNER     3125     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1913    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *                (NOLIST) = C/-LIST-NOLIST FLAG.                                 SCANNER     3126     A     
 SCANNER  *                (NXCOMENT) = .MI. IF COMMENT LINE, ELSE .PL.                    SCANNER     3127     A     
 SCANNER  *                (SLIST) = SOURCE LISTING OPTION FLAG.                           SCANNER     3128     A     
 SCANNER  *                                                                                SCANNER     3129     A     
 SCANNER  *         EXIT   LINE LISTED OR SAVED.                                           SCANNER     3130     A     
 SCANNER  *                (L.PLINE) = 0                                                   SCANNER     3131     A     
 SCANNER  *                (B1) = 1                                                        SCANNER     3132     A     
 SCANNER  *                (B5) = 1                                                        SCANNER     3133     A     
 SCANNER  *                                                                                SCANNER     3134     A     
 SCANNER  *         USES   X - 1, 2, 3, 4, 6, 7                                            SCANNER     3135     A     
 SCANNER  *                A - 1, 2, 3, 4, 6, 7                                            SCANNER     3136     A     
 SCANNER  *                B - 1, 5, 7                                                     SCANNER     3137     A     
 SCANNER  *                                                                                SCANNER     3138     A     
 SCANNER  *         CALLS  LISTL, LSL, MOVE                                                SCANNER     3139     A     
 SCANNER                                                                                   SCANNER     3140     A     
 SCANNER                                                                                   SCANNER     3141     A     
 SCANNER   PLR      SUBR               ** ENTRY/EXIT **                                    SCANNER     3142     A     
 SCANNER   PLR2     SA1    L.PLINE                                                         SCANNER     3143     A     
 SCANNER            SA2    =XSLIST                                                         SCANNER     3144     A     
 SCANNER            SA3    =XNOLIST                                                        SCANNER     3145     A     
 SCANNER            SA4    IEF                                                             SCANNER     3146     A     
 SCANNER            SB1    1                                                               SCANNER     3147     A     
 SCANNER            BX6    X2*X3                                                           SCANNER     3148     A     
 SCANNER            SB5    B1                                                              SCANNER     3149     A     
 SCANNER            ZR     X1,EXIT.    IF LINE ALREADY PROCESSED                           SCANNER     3150     A     
 SCANNER            ZR     X6,PLR3     IF (L=0) OR C/-NOLIST ACTIVE                        SCANNER     3151     A     
 SCANNER            NZ     X4,PLR4     IF BEFORE HEADER LINE                               SCANNER     3152     A     
 SCANNER                                                                                   SCANNER     3153     A     
 SCANNER  *         LIST LINE IMMEDIATELY.                                                 SCANNER     3154     A     
 SCANNER                                                                                   SCANNER     3155     A     
 SCANNER            LISTL  =XCP.FLIN,X1                                                    SCANNER     3156     A     
 SCANNER            MX6    0                                                               FEAT121L     557     A     
 SCANNER            SA6    L.SL                                                            FEAT121L     558     A     
 SCANNER            EQ     PLR6                                                            SCANNER     3157     A     
 SCANNER                                                                                   SCANNER     3158     A     
 SCANNER  *         PROCESS SOURCE LISTING OFF (L=0) OR C/-NOLIST ON.                      SCANNER     3159     A     
 SCANNER                                                                                   SCANNER     3160     A     
 SCANNER   PLR3     SA1    NXCOMENT                                                        SCANNER     3161     A     
 SCANNER            SA2    BLNKSTMT                                                        SCANNER     3162     A     
 SCANNER            SA3    CONTCNT                                                         SCANNER     3163     A     
 SCANNER            SA4    FTNCNT                                                          SCANNER     3164     A     
 SCANNER            MI     X1,PLR6     IF COMMENT, IGNORE                                  SCANNER     3165     A     
 SCANNER            NZ     X2,PLR6     IF BLANK, IGNORE                                    SCANNER     3166     A     
 SCANNER            NZ     X3,PLR4     IF CONTINUATION LINE                                SCANNER     3167     A     
 SCANNER            MX6    0                                                               SCANNER     3168     A     
 SCANNER            BX7    X4                                                              SCANNER     3169     A     
 SCANNER            SA6    L.SL        ERASE OLD SAVED LINES BY CLEARING LENGTH            SCANNER     3170     A     
 SCANNER            SA7    =XCP.FLIN   SAVE INITIAL LINE NUMBER (MAY NOT BE *5)            SCANNER     3171     A     
 SCANNER                                                                                   SCANNER     3172     A     
 SCANNER  *         SAVE NEW LINE FOR (POSSIBLE) DEFERRED LISTING.                         SCANNER     3173     A     
 SCANNER                                                                                   SCANNER     3174     A     
 SCANNER   PLR4     SA1    L.PLINE     (X1) = NEW LINE LENGTH                              SCANNER     3175     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1914    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            SA3    L.SL        (X3) = TOTAL LENGTH OF OLD SAVED LINES              SCANNER     3176     A     
 SCANNER            IX6    X3+X1                                                           SCANNER     3177     A     
 SCANNER            SB7    X6-DLBUFL                                                       SCANNER     3178     A     
 SCANNER            LE     B7,B0,PLR5  IF BUFFER HAS ROOM FOR NEW LINE                     SCANNER     3179     A     
 SCANNER            RJ     LSL         LIST SAVED LINES (DUMP FULL BUFFER)                 SCANNER     3180     A     
 SCANNER            EQ     PLR2        LOOP TO RECHECK *IEF*                               SCANNER     3181     A     
 SCANNER                                                                                   SCANNER     3182     A     
 SCANNER   PLR5     SA6    A3          UPDATE SAVED LINE(S) LENGTH                         SCANNER     3183     A     
 SCANNER            MOVE   X1,=XCP.FLIN,DLBUF+X3                                           SCANNER     3184     A     
 SCANNER   PLR6     MX6    0                                                               SCANNER     3185     A     
 SCANNER            SB5    B1                                                              SCANNER     3186     A     
 SCANNER            SA6    L.PLINE     MARK NEW LINE *PROCESSED*                           SCANNER     3187     A     
 SCANNER            EQ     EXIT.                                                           SCANNER     3188     A     
 SCANNER   POINT    TITLE  PROCESS STRING AFTER A PERIOD <.>                               SCANNER     3189     A     
 SCANNER  * CHECKS FOR CONSTANT OR A RELATIONAL OR LOGICAL OPERATOR AND MAKES              SCANNER     3190     A     
 SCANNER  *  APPROPRIATE E-LIST AND CONSTOR ENTRIES.                                       SCANNER     3191     A     
 SCANNER                                                                                   SCANNER     3192     A     
 SCANNER   POINT    SX7    *           TURN ON HANGING . FLAG                              SCANNER     3193     A     
 SCANNER            SA7    HANG.                                                           SCANNER     3194     A     
 SCANNER            RJ     GET         RETURNS (B2) = NEXT CHARACTER                       SCANNER     3195     A     
 SCANNER            SX7    0                                                               SCANNER     3196     A     
 SCANNER            SA7    HANG.       HANGING . FLAG OFF                                  SCANNER     3197     A     
 SCANNER   POINTT   SB3    1R+                                                             SCANNER     3198     A     
 SCANNER            GE     B2,B3,CERP  IF NEXT CHARACTER NOT ALPHA OR DIGIT                SCANNER     3199     A     
 SCANNER            SB3    1R0                                                             SCANNER     3200     A     
 SCANNER            GE     B2,B3,PCON  IF BEGINNING A CONSTANT STRING                      SCANNER     3201     A     
 SCANNER            SX7    3RREL                                                           SCANNER     3202     A     
 SCANNER            SA7    EXPEXP      HANGING EXPONENT FLAG ON                            SCANNER     3203     A     
 SCANNER            SA7    RELFLAG     RELATIONAL OPR PACK FLAG ON                         SCANNER     3204     A     
 SCANNER            RJ     PACK7                                                           SCANNER     3205     A     
 SCANNER            SA1    ELAST                                                           SCANNER     3206     A     
 SCANNER            SB3    1R.                                                             SCANNER     3207     A     
 SCANNER            SX7    X1+1                                                            SCANNER     3208     A     
 SCANNER            SA2    X1          (X2) = CHAR STRING AFTER POINT                      SCANNER     3209     A     
 SCANNER            SA7    A1          BACK UP ELIST POINTER                               SCANNER     3210     A     
 SCANNER            BX6    X2          SAVE STRING FOR POSSIBLE *ERPRO* CALL               SCANNER     3211     A     
 SCANNER            NE     B2,B3,ERP5  IF NO POINT AFTER STRING                            SCANNER     3212     A     
 SCANNER            SB3    5                                                               SCANNER     3213     A     
 SCANNER            LX2    12          LEFT JUSTIFY STRING                                 SCANNER     3214     A     
 SCANNER            GT     B6,B3,ERP5  IF STRING TOO LONG FOR RELATIONAL OPERATOR          SCANNER     3215     A     
 SCANNER            NE     B6,B3,POINT1      IF NOT 5-CHARACTER STRING                     SCANNER     3216     A     
 SCANNER            SA3    TYPE                                                            SCANNER     3217     A     
 SCANNER            SX0    X3-DBGFSTT                                                      SCANNER     3218     A     
 SCANNER            MI     X0,POINT1   IF NOT A DEBUG STATEMENT                            SCANNER     3219     A     
 SCANNER            SB6    B6+1        CHAR COUNT + 1 FOR SPECIAL DEBUG SEARCH             SCANNER     3220     A     
 SCANNER   POINT1   SA3    PTBL1-1+B6  (X3) = TABLE 2 CONTROL WORD                         SCANNER     3221     A     
 SCANNER            MX4    6*6         LIMITS PICTURE MATCHING TO 6 CHARACTERS             SCANNER     3222     A     
 SCANNER            SA1    X3          GET FIRST PICTURE                                   SCANNER     3223     A     
 SCANNER            SB3    X3          B3 = PICTURE POINTER                                SCANNER     3224     A     
 SCANNER            LX3    30                                                              SCANNER     3225     A     
 SCANNER            SB7    X3          SEARCH STOP ADDRESS                                 SCANNER     3226     A     
 SCANNER            NE     B6,B5,POINT2      IF NOT 1-CHARACTER OPERATOR                   SCANNER     3227     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1915    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            MX4    1*6         LIMIT PICTURE MATCHING TO 1 CHARACTER               SCANNER     3228     A     
 SCANNER   POINT2   BX3    X2-X1       STRING - PICTURE                                    SCANNER     3229     A     
 SCANNER            BX0    X4*X3                                                           SCANNER     3230     A     
 SCANNER            ZR     X0,POINT3   IF STRING MATCHED PICTURE                           SCANNER     3231     A     
 SCANNER            SB3    B3+B5       PICTURE POINTER + 1                                 SCANNER     3232     A     
 SCANNER            SA1    B3                                                              SCANNER     3233     A     
 SCANNER            LT     B3,B7,POINT2  IF SEARCH TABLE NOT EXHAUSTED                     SCANNER     3234     A     
 SCANNER            EQ     ERP5        NOT A RELATIONAL OPERATOR                           SCANNER     3235          I
          -FCC1936
 SCANNER            EQ     ERP4        NOT A RELATIONAL OPERATOR                           FCC1936       13     A     
 SCANNER                                                                                   SCANNER     3236     A     
 SCANNER   POINT3   SX6    0                                                               SCANNER     3237     A     
 SCANNER            SA6    EXPEXP      TURN OFF RELATIONAL FLAG                            SCANNER     3238     A     
 SCANNER            NE     B6,B5,ADD1  IF NOT 1-CHARACTER STRING                           SCANNER     3239     A     
 SCANNER            BX3    X1          'SCNSAVE' WILL PRESERVE X3                          SCANNER     3240     A     
 SCANNER            SX0    -E196       ERR MSG NR - *NON-ANSI LOGICAL OPR*                 SCANNER     3241     A     
 SCANNER            RJ     ANSIERP                                                         SCANNER     3242     A     
 SCANNER            BX1    X3          RESTORE X1                                          SCANNER     3243     A     
 SCANNER            EQ     ADD1        GO MAKE E-LIST ENTRY                                SCANNER     3244     A     
 SCANNER   PVN      SPACE  4,8                                                             SCANNER     3245     A     
 SCANNER  **        PVN - PROCESS VARIABLE NAME.                                           SCANNER     3246     A     
 SCANNER  *                                                                                SCANNER     3247     A     
 SCANNER  *                TASKS PERFORMED --                                              SCANNER     3248     A     
 SCANNER  *         1.  SUFFIXES NAMES THAT DUPLICATE HARDWARE REGISTERS (A0-A7,           SCANNER     3249     A     
 SCANNER  *             B0-B7, X0-X7) WITH A $ FOR UNIQUENESS.  THIS IS NECESSARY          SCANNER     3250     A     
 SCANNER  *             FOR POSSIBLE *COMPASS* OBJECT CODE ASSEMBLY.                       SCANNER     3251     A     
 SCANNER  *         2.  BLANK FILLS NAME.                                                  SCANNER     3252     A     
 SCANNER  *         3.  PREFIXES NAME WITH E-LIST TYPE CODE FOR *VARIABLE*(2001B).         SCANNER     3253     A     
 SCANNER  *         4.  IF 7-CHARACTER NAME, POSTS NON-ANSI DIAGNOSTIC.                    SCANNER     3254     A     
 SCANNER  *         5.  IF .GT. 7-CHAR NAME, PROCESSES ERROR CONDITION.                    SCANNER     3255     A     
 SCANNER  *                                                                                SCANNER     3256     A     
 SCANNER  *                                                                                SCANNER     3257     A     
 SCANNER  *         ENTRY  (X6) = NAME, LEFT ADJUSTED TO BIT 47.                           SCANNER     3258     A     
 SCANNER  *                (B6) = NAME LENGTH (CHARACTERS).                                SCANNER     3259     A     
 SCANNER  *                                                                                SCANNER     3260     A     
 SCANNER  *         EXITS  NORMAL --                                                       SCANNER     3261     A     
 SCANNER  *                (X6) = 12/2001B, 48/NAME FORMATTED AS ABOVE.                    SCANNER     3262     A     
 SCANNER  *                (B5) = 1                                                        SCANNER     3263     A     
 SCANNER  *                (B6) = NAME LENGTH (CHARACTERS), ADJUSTED FOR $ IF ANY.         SCANNER     3264     A     
 SCANNER  *                ABNORMAL (NAME LONGER THAN 7 CHARACTERS) --                     SCANNER     3265     A     
 SCANNER  *                IF C$ DEBUG LINE, RETURNS TO CALLER WITH (X6) = 0.              SCANNER     3266     A     
 SCANNER  *                IF OTHER LINE, EXITS TO *ERP5*.                                 SCANNER     3267     A     
 SCANNER  *                                                                                SCANNER     3268     A     
 SCANNER  *         USES   X - 2, 3, 4, 6, 7                                               SCANNER     3269     A     
 SCANNER  *                A - 2                                                           SCANNER     3270     A     
 SCANNER  *                B - 5, 6, 7                                                     SCANNER     3271     A     
 SCANNER  *                                                                                SCANNER     3272     A     
 SCANNER  *         CALLS  ANSIERP                                                         SCANNER     3273     A     
 SCANNER                                                                                   SCANNER     3274     A     
 SCANNER                                                                                   SCANNER     3275     A     
 SCANNER   PVN      SUBR               ** ENTRY/EXIT **                                    SCANNER     3276     A     
 SCANNER            SB5    1                                                               SCANNER     3277     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1916    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            BX7    X6                                                              SCANNER     3278     A     
 SCANNER            SB7    B5+B5                                                           SCANNER     3279     A     
 SCANNER                                                                                   SCANNER     3280     A     
 SCANNER  *         SUFFIX WITH $ IF HARDWARE REGISTER NAME.                               SCANNER     3281     A     
 SCANNER                                                                                   SCANNER     3282     A     
 SCANNER            NE     B6,B7,PVN2  IF NOT 2-CHARACTER NAME                             SCANNER     3283     A     
 SCANNER            SA2    PVNA        SHIFT TEST MASK FOR *ABX*                           SCANNER     3284     A     
 SCANNER            MX4    -1*6                                                            SCANNER     3285     A     
 SCANNER            LX7    -7*6                                                            SCANNER     3286     A     
 SCANNER            BX3    -X4*X7      EXTRACT 1ST CHARACTER                               SCANNER     3287     A     
 SCANNER            SB7    X3                                                              SCANNER     3288     A     
 SCANNER            LX2    B7                                                              SCANNER     3289     A     
 SCANNER            PL     X2,PVN2     IF 1ST CHARACTER NOT A, B OR X                      SCANNER     3290     A     
 SCANNER            LX7    1*6                                                             SCANNER     3291     A     
 SCANNER            MX2    1R7-1R0+1   FORM SHIFT TEST MASK FOR *01234567*                 SCANNER     3292     A     
 SCANNER            BX3    -X4*X7      EXTRACT 2ND CHARACTER                               SCANNER     3293     A     
 SCANNER            SX4    1R$                                                             SCANNER     3294     A     
 SCANNER            LX2    -1R0                                                            SCANNER     3295     A     
 SCANNER            SB7    X3                                                              SCANNER     3296     A     
 SCANNER            LX4    5*6                                                             SCANNER     3297     A     
 SCANNER            LX2    B7                                                              SCANNER     3298     A     
 SCANNER            PL     X2,PVN2     IF 2ND CHARACTER NOT 0-7                            SCANNER     3299     A     
 SCANNER            BX6    X6+X4       APPEND $                                            SCANNER     3300     A     
 SCANNER            SB6    B6+B5       (B6) = STRING LENGTH + 1                            SCANNER     3301     A     
 SCANNER                                                                                   SCANNER     3302     A     
 SCANNER  *         PREFIX WITH E-LIST TYPE CODE AND BLANK FILL.                           SCANNER     3303     A     
 SCANNER                                                                                   SCANNER     3304     A     
 SCANNER   PVN2     SB7    7                                                               SCANNER     3305     A     
 SCANNER            SA2    FILL8R+B6                                                       SCANNER     3306     A     
 SCANNER            GT     B6,B7,PVN3  IF NAME TOO LONG                                    SCANNER     3307     A     
 SCANNER            PX7    X6,B5       PREFIX E-LIST TYPE CODE (2001B)                     SCANNER     3308     A     
 SCANNER            BX6    X7+X2       BLANK FILL                                          SCANNER     3309     A     
 SCANNER            NE     B6,B7,EXIT. IF NOT 7-CHARACTER NAME                             SCANNER     3310     A     
 SCANNER            BX4    X6                                                              SCANNER     3311     A     
 SCANNER            SX0    E34         ERR MSG NR - *7-CHAR NAME IS NON-ANSI*              SCANNER     3312     A     
 SCANNER            RJ     ANSIERP     POST NON-ANSI ERROR MESSAGE                         SCANNER     3313     A     
 SCANNER            SB5    1                                                               SCANNER     3314     A     
 SCANNER            EQ     EXIT.                                                           SCANNER     3315     A     
 SCANNER                                                                                   SCANNER     3316     A     
 SCANNER  *         ERROR PROCESSING - NAME LONGER THAN 7 CHARACTERS.                      SCANNER     3317     A     
 SCANNER                                                                                   SCANNER     3318     A     
 SCANNER   PVN3     SA2    DTYPE                                                           SCANNER     3319     A     
 SCANNER            ZR     X2,ERP5     IF NOT DEBUG STATEMENT                              SCANNER     3320     A     
 SCANNER            SX6    0                                                               SCANNER     3321     A     
 SCANNER            SA6    TYPE        SET *BAD DEBUG* STATEMENT                           SCANNER     3322     A     
 SCANNER            EQ     EXIT.                                                           SCANNER     3323     A     
 SCANNER                                                                                   SCANNER     3324     A     
 SCANNER                                                                                   SCANNER     3325     A     
 SCANNER                                                                                   SCANNER     3326     A     
 SCANNER   PVNA     BSS    0           SHIFT TEST MASK FOR *ABX*                           SCANNER     3327     A     
 SCANNER            ECHO   2,BIT=(A,B,X)                                                   SCANNER     3328     A     
 SCANNER            POS    60-1R_BIT                                                       SCANNER     3329     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1917    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            VFD    1/1                                                             SCANNER     3330     A     
 SCANNER            POS    0                                                               SCANNER     3331     A     
 SCANNER   P$T      SPACE  4,8                                                             SCANNER     3332     A     
 SCANNER  **        P$T - PROCESS $ TERMINATOR.                                            SCANNER     3333     A     
 SCANNER  *                                                                                SCANNER     3334     A     
 SCANNER  *                TASKS PERFORMED --                                              SCANNER     3335     A     
 SCANNER  *         1.  MAKE THE (CLABEL) = (NLABEL) TRANSFER.                             SCANNER     3336     A     
 SCANNER  *         2.  POST NON-ANSI ERROR MESSAGE FOR $ TERMINATOR.                      SCANNER     3337     A     
 SCANNER  *                                                                                SCANNER     3338     A     
 SCANNER  *         ENTRY  (NLABEL) = IF THIS STATEMENT CONTAINS A LEGAL,                  SCANNER     3339     A     
 SCANNER  *                           NON-EMPTY LABEL, CONTAINS IT IN DPC,                 SCANNER     3340     A     
 SCANNER  *                           LEFT JUSTIFIED WITH BLANK FILL.                      SCANNER     3341     A     
 SCANNER  *                           OTHERWISE, .EQ. 0.                                   SCANNER     3342     A     
 SCANNER  *                                                                                SCANNER     3343     A     
 SCANNER  *         EXIT   (CLABEL) = OLD (NLABEL)                                         SCANNER     3344     A     
 SCANNER  *                (NLABEL) = 0                                                    SCANNER     3345     A     
 SCANNER  *                (SBUFLG) = -1, $ TERMINATOR FLAG ON.                            SCANNER     3346     A     
 SCANNER  *                                                                                SCANNER     3347     A     
 SCANNER  *         USES   A - 2,6,7                                                       SCANNER     3348     A     
 SCANNER  *                X - 2,6,7                                                       SCANNER     3349     A     
 SCANNER  *                B - 6,7                                                         SCANNER     3350     A     
 SCANNER  *                                                                                SCANNER     3351     A     
 SCANNER  *         CALLS  ANSIERP     SAVES AND RESTORES X - 3,5,6                        SCANNER     3352     A     
 SCANNER  *                                               B - 1,2,3,6                      SCANNER     3353     A     
 SCANNER                                                                                   SCANNER     3354     A     
 SCANNER   P$T      SUBR               ** ENTRY/EXIT **                                    SCANNER     3355     A     
 SCANNER            SA2    NLABEL                                                          SCANNER     3356     A     
 SCANNER            BX6    X6-X6                                                           SCANNER     3357     A     
 SCANNER            MX7    -1                                                              SCANNER     3358     A     
 SCANNER            SA6    A2                                                              SCANNER     3359     A     
 SCANNER            SA7    SBUFLG                                                          SCANNER     3360     A     
 SCANNER            BX6    X2                                                              SCANNER     3361     A     
 SCANNER            SA6    CLABEL                                                          SCANNER     3362     A     
 SCANNER            POSTERR  SEV=ANSI,NR=E210,RETURN=EXIT.                                 SCANNER     3363     A     
 SCANNER   SCNSAVE  TITLE  SAVE AND RESTORE REGISTERS                                      SCANNER     3364          I
          -FEAT121L 
 SCANNER  ***                                                                              SCANNER     3365          I
          -FEAT121L 
 SCANNER  *         SCNSAVE -  SAVE REGISTERS X3,X5,X6,B1,B2,B3,B6                         SCANNER     3366          I
          -FEAT121L 
 SCANNER  *                                                                                SCANNER     3367          I
          -FEAT121L 
 SCANNER   SCNSAVE  EQ     *+1S17      ENTRY/EXIT                                          SCANNER     3368          I
          -FEAT121L 
 SCANNER            BX7    X3                                                              SCANNER     3369          I
          -FEAT121L 
 SCANNER            SA6       T1T       X6                                                 SCANNER     3370          I
          -FEAT121L 
 SCANNER            SA7       T2        X3                                                 SCANNER     3371          I
          -FEAT121L 
 SCANNER            SX7    B1                                                              SCANNER     3372          I
          -FEAT121L 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1918    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            SA7       T4        B1                                                 SCANNER     3373          I
          -FEAT121L 
 SCANNER            BX6    X5                                                              SCANNER     3374          I
          -FEAT121L 
 SCANNER            SX7    B2                                                              SCANNER     3375          I
          -FEAT121L 
 SCANNER            SA6       T5        X5                                                 SCANNER     3376          I
          -FEAT121L 
 SCANNER            SA7       T6        B2                                                 SCANNER     3377          I
          -FEAT121L 
 SCANNER            SX6    B3                                                              SCANNER     3378          I
          -FEAT121L 
 SCANNER            SX7    B6                                                              SCANNER     3379          I
          -FEAT121L 
 SCANNER            SA6       T7        B3                                                 SCANNER     3380          I
          -FEAT121L 
 SCANNER            SA7       T8        B6                                                 SCANNER     3381          I
          -FEAT121L 
 SCANNER            EQ     SCNSAVE                                                         SCANNER     3382          I
          -FEAT121L 
 SCANNER  ***                                                                              SCANNER     3383          I
          -FEAT121L 
 SCANNER  *         RESTO - RESTORE REGISTERS X3,X5,X6,B1,B2,B3,B6                         SCANNER     3384          I
          -FEAT121L 
 SCANNER  *                                                                                SCANNER     3385          I
          -FEAT121L 
 SCANNER   RESTO    EQ     *+1S17      ENTRY/EXIT                                          SCANNER     3386          I
          -FEAT121L 
 SCANNER            SA1       T1T                                                          SCANNER     3387          I
          -FEAT121L 
 SCANNER            SA3       T2        REGISTERS                                          SCANNER     3388          I
          -FEAT121L 
 SCANNER            BX6    X1           AND                                                SCANNER     3389          I
          -FEAT121L 
 SCANNER            SA1       T4        TO                                                 SCANNER     3390          I
          -FEAT121L 
 SCANNER            SA5       T5        CALLER                                             SCANNER     3391          I
          -FEAT121L 
 SCANNER            SB1    X1                                                              SCANNER     3392          I
          -FEAT121L 
 SCANNER            SA1       T6                                                           SCANNER     3393          I
          -FEAT121L 
 SCANNER            SA2       T7                                                           SCANNER     3394          I
          -FEAT121L 
 SCANNER            SB2    X1                                                              SCANNER     3395          I
          -FEAT121L 
 SCANNER            SB3    X2                                                              SCANNER     3396          I
          -FEAT121L 
 SCANNER            SA1       T8                                                           SCANNER     3397          I
          -FEAT121L 
 SCANNER            SB6    X1                                                              SCANNER     3398          I
          -FEAT121L 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1919    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            EQ        RESTO                                                        SCANNER     3399          I
          -FEAT121L 
 SCANNER   RES      SPACE  4,8                                                             FEAT121L     559     A     
 SCANNER  **        RES - RESTORE CRITICAL PACKING REGISTERS.                              FEAT121L     560     A     
 SCANNER  *                                                                                FEAT121L     561     A     
 SCANNER  *                                                                                FEAT121L     562     A     
 SCANNER  *         RESTORES  X - 3,5,6                                                    FEAT121L     563     A     
 SCANNER  *                   A - NONE                                                     FEAT121L     564     A     
 SCANNER  *                   B - 1,2,3,6                                                  FEAT121L     565     A     
 SCANNER  *                                                                                FEAT121L     566     A     
 SCANNER  *         USES   X - 3,5,6                                                       FEAT121L     567     A     
 SCANNER  *                A - 3,5                                                         FEAT121L     568     A     
 SCANNER  *                B - 1,2,3,6                                                     FEAT121L     569     A     
 SCANNER  *                                                                                FEAT121L     570     A     
 SCANNER  *         CALLS  NONE                                                            FEAT121L     571     A     
 SCANNER                                                                                   FEAT121L     572     A     
 SCANNER                                                                                   FEAT121L     573     A     
 SCANNER   RES      SUBR               ** ENTRY/EXIT **                                    FEAT121L     574     A     
 SCANNER            SA3    REG=B1                                                          FEAT121L     575     A     
 SCANNER            SA5    REG=B2                                                          FEAT121L     576     A     
 SCANNER            SB1    X3                                                              FEAT121L     577     A     
 SCANNER            SB2    X5                                                              FEAT121L     578     A     
 SCANNER            SA3    REG=B3                                                          FEAT121L     579     A     
 SCANNER            SA5    REG=B6                                                          FEAT121L     580     A     
 SCANNER            SB3    X3                                                              FEAT121L     581     A     
 SCANNER            SB6    X5                                                              FEAT121L     582     A     
 SCANNER            SA3    REG=X6                                                          FEAT121L     583     A     
 SCANNER            SA5    REG=X5                                                          FEAT121L     584     A     
 SCANNER            BX6    X3                                                              FEAT121L     585     A     
 SCANNER            SA3    REG=X3                                                          FEAT121L     586     A     
 SCANNER            EQ     EXIT.                                                           FEAT121L     587     A     
 SCANNER  *CALL COMFRNC                                                                    FCC1328X     643     A     
 SCANNER   SAV      SPACE  4,8                                                             FEAT121L     588     A     
 SCANNER  **        SAV - SAVE CRITICAL PACKING REGISTERS.                                 FEAT121L     589     A     
 SCANNER  *                                                                                FEAT121L     590     A     
 SCANNER  *                                                                                FEAT121L     591     A     
 SCANNER  *         SAVES     X - 3,5,6                                                    FEAT121L     592     A     
 SCANNER  *                   A - NONE                                                     FEAT121L     593     A     
 SCANNER  *                   B - 1,2,3,6                                                  FEAT121L     594     A     
 SCANNER  *                                                                                FEAT121L     595     A     
 SCANNER  *         USES   X - 6,7                                                         FEAT121L     596     A     
 SCANNER  *                A - 6,7                                                         FEAT121L     597     A     
 SCANNER  *                B - NONE                                                        FEAT121L     598     A     
 SCANNER  *                                                                                FEAT121L     599     A     
 SCANNER  *         CALLS  NONE                                                            FEAT121L     600     A     
 SCANNER                                                                                   FEAT121L     601     A     
 SCANNER                                                                                   FEAT121L     602     A     
 SCANNER   SAV      SUBR               ** ENTRY/EXIT **                                    FEAT121L     603     A     
 SCANNER            SA6    REG=X6                                                          FEAT121L     604     A     
 SCANNER            BX7    X3                                                              FEAT121L     605     A     
 SCANNER            LX6    X5                                                              FEAT121L     606     A     
 SCANNER            SA7    REG=X3                                                          FEAT121L     607     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1920    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            SA6    REG=X5                                                          FEAT121L     608     A     
 SCANNER            SX7    B1                                                              FEAT121L     609     A     
 SCANNER            SX6    B2                                                              FEAT121L     610     A     
 SCANNER            SA7    REG=B1                                                          FEAT121L     611     A     
 SCANNER            SA6    REG=B2                                                          FEAT121L     612     A     
 SCANNER            SX7    B3                                                              FEAT121L     613     A     
 SCANNER            SX6    B6                                                              FEAT121L     614     A     
 SCANNER            SA7    REG=B3                                                          FEAT121L     615     A     
 SCANNER            SA6    REG=B6                                                          FEAT121L     616     A     
 SCANNER            EQ     EXIT.                                                           FEAT121L     617     A     
 SCANNER   SLO      SPACE  4,8                                                             FEAT121L     618     A     
 SCANNER   #NL      IF     DEF,#NL                                                         FEAT121L     619          I
          -FEAT126B 
 SCANNER   #NL      IFNE   #NL,0                                                           FEAT126B     934     A     
 SCANNER  **        SLO - SET LIST OPTION FLAGS.                                           FEAT121L     620     A     
 SCANNER  *                                                                                FEAT121L     621     A     
 SCANNER  *                                                                                FEAT121L     622     A     
 SCANNER  *         ENTRY  (NOLIST) = 1S59 IF IN *LIST,ALL* MODE                           FEAT121L     623     A     
 SCANNER  *                         =  +0  IF IN *LIST,NONE* MODE                          FEAT121L     624     A     
 SCANNER  *                (X6)     =  +0                                                  FEAT121L     625     A     
 SCANNER  *                                                                                FEAT121L     626     A     
 SCANNER  *         EXIT   (ANSI)   =  +0                                                  FEAT121L     627     A     
 SCANNER  *                (IEFLG)  =  +0                                                  FEAT121L     628     A     
 SCANNER  *                (LOP=O)  =  +0                                                  FEAT121L     629     A     
 SCANNER  *                (LOP=R)  =  +0                                                  FEAT121L     630     A     
 SCANNER  *                (R=FLAG) =  +0                                                  FEAT121L     631     A     
 SCANNER  *                                                                                FEAT121L     632     A     
 SCANNER  *         USES   X - 1,7                                                         FEAT121L     633     A     
 SCANNER  *                A - 1,6,7                                                       FEAT121L     634     A     
 SCANNER  *                B - NONE                                                        FEAT121L     635     A     
 SCANNER  *                                                                                FEAT121L     636     A     
 SCANNER  *         CALLS  NONE                                                            FEAT121L     637     A     
 SCANNER                                                                                   FEAT121L     638     A     
 SCANNER                                                                                   FEAT121L     639     A     
 SCANNER   SLO      SUBR               ** ENTRY/EXIT **                                    FEAT121L     640     A     
 SCANNER            SA1    NOLIST                                                          FEAT121L     641     A     
 SCANNER            MI     X1,EXIT.    IF IN *LIST,ALL* MODE AT END LINE TIME              FEAT121L     642     A     
 SCANNER                                                                                   FEAT121L     643     A     
 SCANNER  *         HERE IF IN *LIST,NONE* MODE AT END LINE TIME.                          FEAT121L     644     A     
 SCANNER                                                                                   FEAT121L     645     A     
 SCANNER            SA6    =XANSI      SET TO *DO NOT LIST ANSI ERRORS*                    FEAT121L     646     A     
 SCANNER            SA6    =XIEFLG     SET TO *DO NOT LIST INFORMATIVE ERRORS*             FEAT121L     647     A     
 SCANNER            SA6    =XLOP=O     SET TO *DO NOT GENERATE OBJECT LIST*                FEAT121L     648     A     
 SCANNER            SA6    =XLOP=R     SET TO *DO NOT LIST REFMAP*                         FEAT121L     649     A     
 SCANNER            SA6    =XR=FLAG    SET TO *R=0*                                        FEAT121L     650     A     
 SCANNER            EQ     EXIT.                                                           FEAT121L     651     A     
 SCANNER   #NL      ELSE                                                                   FEAT121L     652     A     
 SCANNER   SLO      SUBR                                                                   FEAT121L     653     A     
 SCANNER            EQ     EXIT.                                                           FEAT121L     654     A     
 SCANNER   #NL      ENDIF                                                                  FEAT121L     655     A     
 SCANNER   SRCH     TITLE  SRCH - SEARCH FOR MATCH OF LEADING KEYWORD.                     SCANNER     3400     A     
 SCANNER  **        SRCH - SEARCH INITIAL STRING FOR MATCH OF LEADING KEYWORD.             SCANNER     3401     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1921    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER  *                                                                                SCANNER     3402     A     
 SCANNER  *         ENTRY  (KEYL) = 12/2000B+CHARCNT,48/WORD COUNT                         SCANNER     3403     A     
 SCANNER  *                (KEYW) = KEYWORD, LEFT JUSTIFIED, ZERO FILL.                    SCANNER     3404     A     
 SCANNER  *         EXIT   (B1) = NEXT *STATE* JUMP ADDRESS.                               SCANNER     3405     A     
 SCANNER  *                (B2) = CHARACTER THAT TERMINATED ALPHANUMERIC STRING.           SCANNER     3406     A     
 SCANNER  *                (B3) = NR OF CHARS REMAINING IN FIXED KEYWORD BUFFER.           SCANNER     3407     A     
 SCANNER  *                (B4) = STATEMENT TYPE CODE.                                     SCANNER     3408     A     
 SCANNER  *                (B5) = 1                                                        SCANNER     3409     A     
 SCANNER  *                (A7),(X7) = ADDR AND CONTENTS OF *KEYL* AFTER REMOVING          SCANNER     3410     A     
 SCANNER  *                            KEYWORD FROM STRING.                                SCANNER     3411     A     
 SCANNER  *                                                                                SCANNER     3412     A     
 SCANNER  *         USES - ALL REGISTERS                                                   SCANNER     3413     A     
 SCANNER                                                                                   SCANNER     3414     A     
 SCANNER                                                                                   SCANNER     3415     A     
 SCANNER   SRCH     SUBR               ** ENTRY/EXIT **                                    SCANNER     3416     A     
 SCANNER                                                                                   SCANNER     3417     A     
 SCANNER  *         INITIALIZATION.                                                        SCANNER     3418     A     
 SCANNER                                                                                   SCANNER     3419     A     
 SCANNER            SA1    KEYW        GET FIRST CHAR OF SET SEARCH LIMITS                 SCANNER     3420     A     
 SCANNER            MX0    6                                                               SCANNER     3421     A     
 SCANNER            BX2    X0*X1                                                           SCANNER     3422     A     
 SCANNER            LX2    6                                                               SCANNER     3423     A     
 SCANNER            SA3    SRCHA-1+X2                                                      SCANNER     3424     A     
 SCANNER            SB7    X3          (B7) = LIMIT                                        SCANNER     3425     A     
 SCANNER            AX3    30                                                              SCANNER     3426     A     
 SCANNER            SB6    X3          (B6) = INDEX                                        SCANNER     3427     A     
 SCANNER            SB5    1                                                               SCANNER     3428     A     
 SCANNER            MX7    60                                                              SCANNER     3429     A     
 SCANNER            SA0    B2          SAVE B2                                             SCANNER     3430     A     
 SCANNER            SA7    ATYPE                                                           SCANNER     3431     A     
 SCANNER            ZR     B6,ERP2     IF NO KEYWORD BEGINS WITH FIRST LETTER              SCANNER     3432     A     
 SCANNER                                                                                   SCANNER     3433     A     
 SCANNER  *         MAIN SEARCH LOOP.                                                      SCANNER     3434     A     
 SCANNER                                                                                   SCANNER     3435     A     
 SCANNER                                                                                   SCANNER     3436     A     
 SCANNER   SRCH1    SA1    KEYL                                                            SCANNER     3437     A     
 SCANNER            MX7    1                                                               SCANNER     3438     A     
 SCANNER            SA2    A1+B5       (X2) = FIRST WORD OF INITIAL CHAR STRING            SCANNER     3439     A     
 SCANNER            UX1    B3,X1       (B3) = CHARS IN INITIAL STRING                      SCANNER     3440     A     
 SCANNER                                                                                   SCANNER     3441     A     
 SCANNER  *         SEARCH FOR MATCH OF KEYWORD                                            SCANNER     3442     A     
 SCANNER                                                                                   SCANNER     3443     A     
 SCANNER   SRCH2    SA3    B6          KEYWORD DESCRIPTOR                                  SCANNER     3444     A     
 SCANNER            UX0    B4,X3                                                           SCANNER     3445     A     
 SCANNER            SA4    X3          KEYWORD CHAR STRING                                 SCANNER     3446     A     
 SCANNER            AX5    B4,X7       (X5)=MASK(LEN OF KEYWORD)                           SCANNER     3447     A     
 SCANNER            SB2    60                                                              SCANNER     3448     A     
 SCANNER            LT     B4,B2,SRCH3 IF LEN OF KEYWORD .LT. 10                           SCANNER     3449     A     
 SCANNER            MX5    60                                                              SCANNER     3450     A     
 SCANNER   SRCH3    SB6    B6+B5                                                           SCANNER     3451     A     
 SCANNER            BX6    X5*X2       EXTRACT KEYWORD FROM (KEYW)                         SCANNER     3452     A     
 SCANNER            GT     B6,B7,ERP2  IF END OF THE TABLE                                 SCANNER     3453     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1922    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            BX4    X4-X6       PICTURE-STRING                                      SCANNER     3454     A     
 SCANNER            NZ     X4,SRCH2    IF NO MATCH                                         SCANNER     3455     A     
 SCANNER            SB2    -B5                                                             SCANNER     3456     A     
 SCANNER            SX6    B4-54                                                           SCANNER     3457     A     
 SCANNER            MI     X6,SRCH4    IF LEN(KEYWD) @ 9 CHARS                             SCANNER     3458     A     
 SCANNER            SB4    B4-60                                                           SCANNER     3459     A     
 SCANNER            MI     B4,SRCH4    IF LEN(KEYWD) = 10 CHARS                            SCANNER     3460     A     
 SCANNER                                                                                   SCANNER     3461     A     
 SCANNER  *         HERE IF KEYWORD .GT. 10 CHARACTERS                                     SCANNER     3462     A     
 SCANNER                                                                                   SCANNER     3463     A     
 SCANNER            SB2    -2          WORD INDEX = 2                                      SCANNER     3464     A     
 SCANNER            SA3    A2+B5                                                           SCANNER     3465     A     
 SCANNER            AX5    B4,X7                                                           SCANNER     3466     A     
 SCANNER            SA4    A4+1                                                            SCANNER     3467     A     
 SCANNER            BX3    X5*X3                                                           SCANNER     3468     A     
 SCANNER            IX6    X4-X3                                                           SCANNER     3469     A     
 SCANNER            NZ     X6,SRCH2    IF NO MATCH OF REST OF KEYWORD                      SCANNER     3470     A     
 SCANNER            SB3    B3-10       REDUCE CHAR COUNT                                   SCANNER     3471     A     
 SCANNER                                                                                   SCANNER     3472     A     
 SCANNER  *         EXTRACT *TYPE* AND *ATYPE* FROM *KEYW* TABLE.                          SCANNER     3473     A     
 SCANNER                                                                                   SCANNER     3474     A     
 SCANNER   SRCH4    SA3    =40404040404040404040B                                          SCANNER     3475     A     
 SCANNER            AX0    18                                                              SCANNER     3476     A     
 SCANNER            MX4    -8                                                              SCANNER     3477     A     
 SCANNER            BX6    -X4*X0      EXTRACT STMT TYPE CODE                              SCANNER     3478     A     
 SCANNER            AX0    8                                                               SCANNER     3479     A     
 SCANNER            MX4    -4                                                              SCANNER     3480     A     
 SCANNER            BX7    X4+X0                                                           SCANNER     3481     A     
 SCANNER            ZR     X7,SRCH5    IF *ATYPE* NOT TO BE SET                            SCANNER     3482     A     
 SCANNER            BX7    -X4*X0                                                          SCANNER     3483     A     
 SCANNER            SA7    ATYPE                                                           SCANNER     3484     A     
 SCANNER                                                                                   SCANNER     3485     A     
 SCANNER  *         REMOVE KEYWORD FROM LEADING STRING.                                    SCANNER     3486     A     
 SCANNER                                                                                   SCANNER     3487     A     
 SCANNER   SRCH5    SA6    TYPE                                                            SCANNER     3488     A     
 SCANNER            BX3    X3*X5                                                           SCANNER     3489     A     
 SCANNER            SA2    A1-B2       (X2)=1ST WORD TO BE MOVED                           SCANNER     3490     A     
 SCANNER            AX0    4                                                               SCANNER     3491     A     
 SCANNER            SB7    X0          (B7) = SUCCESS EXIT                                 SCANNER     3492     A     
 SCANNER            CX3    X3                                                              SCANNER     3493     A     
 SCANNER            SB6    X3                                                              SCANNER     3494     A     
 SCANNER            SB3    B3-B6       (B3)=(KEYW) CHAR CNT WITHOUT KEYWORD                SCANNER     3495     A     
 SCANNER            SA7    A1          PRESTORE                                            SCANNER     3496     A     
 SCANNER            SB4    B4+B5                                                           SCANNER     3497     A     
 SCANNER            SB2    X1+B2                                                           SCANNER     3498     A     
 SCANNER                                                                                   SCANNER     3499     A     
 SCANNER  *         LEFT JUSTIFY REST OF CHARACTER STRING IN (KEYW).                       SCANNER     3500     A     
 SCANNER                                                                                   SCANNER     3501     A     
 SCANNER   SRCH6    BX3    -X5*X2                                                          SCANNER     3502     A     
 SCANNER            SA2    A2+B5                                                           SCANNER     3503     A     
 SCANNER            BX4    X5*X2                                                           SCANNER     3504     A     
 SCANNER            SB2    B2-B5                                                           SCANNER     3505     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1923    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            IX0    X4+X3                                                           SCANNER     3506     A     
 SCANNER            LX7    B4,X0                                                           SCANNER     3507     A     
 SCANNER            SA7    A7+1                                                            SCANNER     3508     A     
 SCANNER            PL     B2,SRCH6    IF NOT DONE                                         SCANNER     3509     A     
 SCANNER                                                                                   SCANNER     3510     A     
 SCANNER  *         SET UP EXIT CONDITIONS AND JUMP...                                     SCANNER     3511     A     
 SCANNER                                                                                   SCANNER     3512     A     
 SCANNER            SB4    A1          ADJUST *KEYL*                                       SCANNER     3513     A     
 SCANNER            SX2    A7-B4                                                           SCANNER     3514     A     
 SCANNER            SB2    A0          (B2)=CHAR THAT TERMINATED ALPHANUMERIC STR          SCANNER     3515     A     
 SCANNER            PX7    B3,X2                                                           SCANNER     3516     A     
 SCANNER            SB4    X6          (B4)=STMT TYPE CODE                                 SCANNER     3517     A     
 SCANNER            SA7    A1                                                              SCANNER     3518     A     
 SCANNER            JP     B7          SUCCESS EXIT...                                     SCANNER     3519     A     
 SCANNER                                                                                   SCANNER     3520     A     
 SCANNER  *         *TYPE*  - CONTINUE SEARCH                                              SCANNER     3521     A     
 SCANNER                                                                                   SCANNER     3522     A     
 SCANNER   SRCH7    SB6    KW.TY                                                           SCANNER     3523     A     
 SCANNER            SB7    KW.TYI                                                          SCANNER     3524     A     
 SCANNER            MX6    1                                                               SCANNER     3525     A     
 SCANNER            NO                                                                     SCANNER     3526     A     
 SCANNER            SA6    NAFLG       SET *NON-ANSI TYPE DECL OCCURRED* FLAG              SCANNER     3527     A     
 SCANNER            EQ     SRCH1                                                           SCANNER     3528     A     
 SCANNER                                                                                   SCANNER     3529     A     
 SCANNER  *         MODE DECLARATION - *LOGICAL*, *INTEGER*,...                            SCANNER     3530     A     
 SCANNER                                                                                   SCANNER     3531     A     
 SCANNER   SRCH8    SB6    7                                                               SCANNER     3532     A     
 SCANNER            LE     B3,B6,EXIT. IF CHAR COUNT .LE. 7, SUCCESS                       SCANNER     3533     A     
 SCANNER            SB6    KW.FN       CHECK FOR *FUNCTION* ONLY                           SCANNER     3534     A     
 SCANNER            SB7    B6+1                                                            SCANNER     3535     A     
 SCANNER            EQ     SRCH1                                                           SCANNER     3536     A     
 SCANNER                                                                                   SCANNER     3537     A     
 SCANNER  *         IMPLICIT - GO BACK FOR FIRST TYPE                                      SCANNER     3538     A     
 SCANNER                                                                                   SCANNER     3539     A     
 SCANNER   SRCH9    SB6    KW.TYI                                                          SCANNER     3540     A     
 SCANNER            SB7    KW.TYIL                                                         SCANNER     3541     A     
 SCANNER            EQ     SRCH1                                                           SCANNER     3542     A     
 SCANNER                                                                                   SCANNER     3543     A     
 SCANNER  *         PROCESS KEYWORD *DOUBLE* SO THAT *SCAN22* CAN DIAGNOSE AS              SCANNER     3544     A     
 SCANNER  *         NON-ANSI.                                                              SCANNER     3545     A     
 SCANNER                                                                                   SCANNER     3546     A     
 SCANNER   SRCH11   MX6    1                                                               SCANNER     3547     A     
 SCANNER            NO                                                                     SCANNER     3548     A     
 SCANNER            SA6    NAFLG       SET *NON-ANSI TYPE DECL OCCURRED* FLAG              SCANNER     3549     A     
 SCANNER            EQ     SRCH8       REJOIN NORMAL FLOW...                               SCANNER     3550     A     
 SCANNER                                                                                   SCANNER     3551     A     
 SCANNER  *         PROCESS KEYWORD *END*.                                                 SCANNER     3552     A     
 SCANNER                                                                                   SCANNER     3553     A     
 SCANNER   SRCH12   ZR     B3,ENDP     IF NO EXTRANEOUS CHARACTERS                         SCANNER     3554          I
          -FCCA435
 SCANNER   SRCH12   PL     B2,SRCH13   IF NOT NORMAL EOS                                   FCCA435        7     A     
 SCANNER            ZR     B3,ENDP     IF NO EXTRANEOUS CHARACTERS                         FCCA435        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1924    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
 SCANNER            EQ     ERP2                                                            FCCA435        9     A     
 SCANNER                                                                                   FCCA435       10     A     
 SCANNER   SRCH13   SA4    SBUFF+3                                                         FCCA435       11     A     
 SCANNER            SA2    =7R                                                             FCCA435       12     A     
 SCANNER            SX4    X4                                                              FCCA435       13     A     
 SCANNER            LX2    CHAR                                                            FCCA435       14     A     
 SCANNER            BX4    X4+X2                                                           FCCA435       15     A     
 SCANNER            POSTER SEV=INF,NR=E325,FMT=DPC,TXT=X4,RETURN=ENDP                      FCCA435       16     A     
 SCANNER            EQ     ERP2                                                            SCANNER     3555     A     
 SCANNER   KEYW     TITLE  FORTRAN STATEMENT KEYWORD TABLE.                                SCANNER     3556     A     
 SCANNER  **        FORTRAN STATEMENT KEYWORD TABLE                                        SCANNER     3557     A     
 SCANNER  *                                                                                SCANNER     3558     A     
 SCANNER  *         KEYWORDS ARE ORDERED IN THE TABLE BY THEIR FIRST LETTERS.              SCANNER     3559     A     
 SCANNER  *         WITHIN A FIRST LETTER GROUP, KEYWORDS SUCH AS *DOUBLE*,                SCANNER     3560     A     
 SCANNER  *         WHICH ARE SUBSTRINGS OF OTHER KEYWORDS, MUST COME AFTER THE            SCANNER     3561     A     
 SCANNER  *         STRINGS INCLUDING THEM.                                                SCANNER     3562     A     
 SCANNER                                                                                   SCANNER     3563     A     
 SCANNER            KEYW   ASSIGN,14,,(25)                                                 SCANNER     3564     A     
 SCANNER            KEYW   BUFFERIN,27,,(46)                                               SCANNER     3565     A     
 SCANNER            KEYW   BUFFEROUT,28,,(46)                                              SCANNER     3566     A     
 SCANNER            KEYW   BACKSPACE,32,,(25)                                              SCANNER     3567     A     
 SCANNER            KEYW   BLOCKDATA,0,0,(25)                                              SCANNER     3568     A     
 SCANNER            KEYW   CALL,19,,(25,27,47,49)                                          SCANNER     3569     A     
 SCANNER            KEYW   CONTINUE,21,,(25)                                               SCANNER     3570     A     
 SCANNER            KEYW   COMMON,4,,(23,25,27,45,47,49)                                   SCANNER     3571     A     
 SCANNER   8        KEYW   COMPLEX,8,4,(25,27,47,49)                                       SCANNER     3572     A     
 SCANNER            KEYW   DATA,10,,(23,27,45,47,49)                                       SCANNER     3573     A     
 SCANNER            KEYW   DIMENSION,5,,(47,49)                                            SCANNER     3574     A     
 SCANNER            KEYW   DECODE,30,,(42,46,47)                                           SCANNER     3575     A     
 SCANNER   8        KEYW   DOUBLEPRECISION,8,3,(25,27,47,49)                               SCANNER     3576     A     
 SCANNER   11       KEYW   DOUBLE,8,3,(25,27,47,49)                                        SCANNER     3577     A     
 SCANNER            KEYW   DO,24,,(63)                                                     SCANNER     3578     A     
 SCANNER            KEYW   ENCODE,29,,(42,46,47)                                           SCANNER     3579          I
          -FCC0569
 SCANNER            KEYW   ENCODE,29,,(42,44,46,47,410)                                    FCC0569        5     A     
 SCANNER            KEYW   ENDFILE,33,,(25)                                                SCANNER     3580     A     
 SCANNER            KEYW   EXTERNAL,6,,(25,27)                                             SCANNER     3581     A     
 SCANNER            KEYW   EQUIVALENCE,7,,(47,49)                                          SCANNER     3582     A     
 SCANNER            KEYW   ENTRY,36,,(25)                                                  SCANNER     3583     A     
 SCANNER   12       KEYW   END,13,,(25)                                                    SCANNER     3584     A     
 SCANNER   8        KEYW   ECS,8,5,(25,27,47,49)                                           SCANNER     3585     A     
 SCANNER   KW.FN    BSS    0                                                               SCANNER     3586     A     
 SCANNER            KEYW   FUNCTION,1,,(47)                                                SCANNER     3587     A     
 SCANNER            KEYW   GOTO,15,,(25,27,42,44,46,47,49)                                 SCANNER     3588     A     
 SCANNER            KEYW   IF,17,,(42)                                                     SCANNER     3589     A     
 SCANNER   8        KEYW   INTEGER,8,1,(25,27,47,49)                                       SCANNER     3590     A     
 SCANNER   9        KEYW   IMPLICIT,3,,(47,49),NA                                          SCANNER     3591     A     
 SCANNER   8        KEYW   LOGICAL,8,0,(25,27,47,49)                                       SCANNER     3592     A     
 SCANNER            KEYW   LEVEL,2,,(27)                                                   SCANNER     3593     A     
 SCANNER            KEYW   NAMELIST,11,,(23)                                               SCANNER     3594     A     
 SCANNER            KEYW   OVERLAY,0,3,(47)                                                SCANNER     3595     A     
 SCANNER            KEYW   PRINT,34,,(22,25,27,42,410,46,47,49)                            SCANNER     3596          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1925    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
          -FCC0787
 SCANNER            KEYW   PUNCH,35,,(22,25,27,42,410,46,47,49)                            SCANNER     3597          I
          -FCC0787
 SCANNER            KEYW   PRINT,34,,(22,25,27,42,44,410,46,47,49)                         FCC0787      130     A     
 SCANNER            KEYW   PUNCH,35,,(22,25,27,42,44,410,46,47,49)                         FCC0787      131     A     
 SCANNER            KEYW   PAUSE,23,,(25)                                                  SCANNER     3598     A     
 SCANNER            KEYW   PROGRAM,0,2,(25,47)                                             SCANNER     3599     A     
 SCANNER            KEYW   READ,25,,(22,25,27,42,410,46,47,49)                             SCANNER     3600     A     
 SCANNER            KEYW   REWIND,31,,(25)                                                 SCANNER     3601     A     
 SCANNER            KEYW   RETURN,20,,(25)                                                 SCANNER     3602     A     
 SCANNER   8        KEYW   REAL,8,2,(25,27,49)                                             SCANNER     3603     A     
 SCANNER            KEYW   STOP,22,,(25)                                                   SCANNER     3604     A     
 SCANNER            KEYW   SUBROUTINE,0,1,(25,27,47,49)                                    SCANNER     3605     A     
 SCANNER   7        KEYW   TYPE,8,,(25,27,47,49)                                           SCANNER     3606     A     
 SCANNER            KEYW   WRITE,26,,(22,25,27,42,410,46,47,49)                            SCANNER     3607          I
          -FCC0787
 SCANNER            KEYW   WRITE,26,,(22,25,27,42,44,410,46,47,49)                         FCC0787      132     A     
 SCANNER            AUXT   0           TERMINATE AUX SEARCH TABLE                          SCANNER     3608     A     
 SCANNER   AUXT     OPSYN  NIL                                                             SCANNER     3609     A     
 SCANNER            LIST   -G                                                              SCANNER     3610     A     
 SCANNER                                                                                   SCANNER     3611     A     
 SCANNER   KW.TY    BSS    0                                                               SCANNER     3612     A     
 SCANNER            ECHO   1,T=(LOGICAL,INTEGER,REAL,DOUBLEPRECISION,DOUBLE,COMPLE         SCANNER     3613     A     
 SCANNER  ,X,ECS),V=(0,1,2,3,3,4,5)                                                        SCANNER     3614     A     
 SCANNER            KEYW   T,8,V                                                           SCANNER     3615     A     
 SCANNER                                                                                   SCANNER     3616     A     
 SCANNER   KW.TYI   BSS    0                                                               SCANNER     3617     A     
 SCANNER            ECHO   1,T=(LOGICAL,INTEGER,REAL,DOUBLEPRECISION),V=(0,1,2,3)          SCANNER     3618     A     
 SCANNER            KEYW   T,3,V                                                           SCANNER     3619     A     
 SCANNER            KEYW   DOUBLE,3,3                                                      SCANNER     3620     A     
 SCANNER            KEYW   COMPLEX,3,4                                                     SCANNER     3621     A     
 SCANNER            KEYW   ECS,3,5                                                         SCANNER     3622     A     
 SCANNER   KW.TYIL  CON    0           SEARCH TERMINATOR                                   SCANNER     3623     A     
 SCANNER                                                                                   SCANNER     3624     A     
 SCANNER                                                                                   SCANNER     3625     A     
 SCANNER            ECHO   3,NR=(22,23,25,27,42,44,410,45,46,47,49,63)                     SCANNER     3626     A     
 SCANNER            USE    CLR_NR                                                          SCANNER     3627     A     
 SCANNER            POS    0                                                               SCANNER     3628     A     
 SCANNER            USE    *                                                               SCANNER     3629     A     
 SCANNER                                                                                   SCANNER     3630     A     
 SCANNER            USE    NANSI                                                           SCANNER     3631     A     
 SCANNER            POS    0                                                               SCANNER     3632     A     
 SCANNER            USE    *                                                               SCANNER     3633     A     
 SCANNER            SPACE  4,8                                                             SCANNER     3634     A     
 SCANNER            LIST   D                                                               SCANNER     3635     A     
 SCANNER            END                                                                    SCANNER     3636     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - SCANNER 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          SCANNER                   3636      3267
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1926    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SCANNER 
  
          FEAT121L                   562       544
          FCC0569                      1         1
          FEAT126B                     4         4
          FEAT126BB                   14        14
          FEAT126BC                    7         7
          FCC0566                      5         5
          FCC0787                      3         3
          FCC1013                      2         2
          FEAT155E                     1         1
          FCC1388                      1         1
          FCC1059X                     6         6
          FCC1086X                     3         3
          FCC1173X                     3         3
          FCC1328X                    89        89
          FCC1469X                    17        17
          FCC1852                      3         3
          FCC1872                      8         7
          FCC1936                      7         7
          FCC1984                      1         1
          FCCA435                     11        11
          FCC2030                      3         3
          FCC2111                      1         1
          FCC2119                     15        15
          F2950F4                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DMPELST 
  
 DMPELST  *DECK,DMPELST                                                                    DMPELST        1     A     
 DMPELST  *IF -DEF,TESTFTN                                                                 DMPELST        2          I
          -FCCA589
 DMPELST  *IF -DEF,TEST                                                                    FCCA589       27     A     
 DMPELST            IDENT DMPELST                                                          DMPELST        3     A     
 DMPELST                                                                                   DMPELST        4     A     
 DMPELST  *                THIS DUMMY DECK GENERATES A 77-TABLE FOR *DMPELST*              DMPELST        5     A     
 DMPELST  *         IN A SYSTEM-MODE COMPILER.  ITS PURPOSE IS TO KEEP THE                 DMPELST        6     A     
 DMPELST  *         RELOCATABLE BINARY STRUCTURE IDENTICAL IN SYSTEM- OR                   DMPELST        7     A     
 DMPELST  *         TEST-MODE COMPILER CONFIGURATION.                                      DMPELST        8     A     
 DMPELST                                                                                   DMPELST        9     A     
 DMPELST                                                                                   DMPELST       10     A     
 DMPELST                                                                                   DMPELST       11     A     
 DMPELST   DMPELST  BSS    0                                                               DMPELST       12     A     
 DMPELST            ENTRY  DMPELST                                                         DMPELST       13     A     
 DMPELST                                                                                   DMPELST       14     A     
 DMPELST                                                                                   DMPELST       15     A     
 DMPELST                                                                                   DMPELST       16     A     
 DMPELST            END                                                                    DMPELST       17     A     
 DMPELST  *ENDIF                                                                           DMPELST       18     A     
 DMPELST  *IF DEF,TESTFTN                                                                  DMPELST       19          I
          -FCCA589
 DMPELST  *IF DEF,TEST                                                                     FCCA589       28     A     
 DMPELST        SUBROUTINE DMPELST (TYPE,ATYPE,LTYPE,CLABEL,NLABEL,FWAEL,RA1)              DMPELST       20     A     
 DMPELST                                                                                   DMPELST       21     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1927    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DMPELST 
  
 DMPELST                                                                                   DMPELST       22     A     
 DMPELST  C         PRODUCES FORMATTED DUMP OF E-LIST, PLUS STATEMENT TYPE AND             DMPELST       23     A     
 DMPELST  C     LABEL INFORMATION GENERATED BY *SCANNER*.                                  DMPELST       24     A     
 DMPELST                                                                                   DMPELST       25     A     
 DMPELST        IMPLICIT INTEGER (A-Z)                                                     DMPELST       26     A     
 DMPELST                                                                                   DMPELST       27     A     
 DMPELST        COMMON /DMPEL/  EOSCHK, LENEL, LENLEL, LISTCMD                             DMPELST       28     A     
 DMPELST                                                                                   DMPELST       29     A     
 DMPELST        DIMENSION FWAEL(1), RA1(1)                                                 DMPELST       30     A     
 DMPELST        DIMENSION AUXCODE(3), CONCODE(7), ELCODE(21), HOLCODE(5)                   DMPELST       31     A     
 DMPELST                                                                                   DMPELST       32     A     
 DMPELST        DATA AUXCODE / 5HRANGE, 5HINDEF, 5HVALID /                                 DMPELST       33     A     
 DMPELST        DATA CONCODE / 3HLOG, 3HINT, 4HREAL, 3HDBL, 4HCPLX, 3HOCT, 3HHOL /         DMPELST       34     A     
 DMPELST        DATA ELCODE/ 5HCON  ,                                                      DMPELST       35     A     
 DMPELST       .   5HNAME ,  5H)    ,  5H,    ,  5H*EOS*,  5H=    ,                        DMPELST       36     A     
 DMPELST       .   5H(    ,  5H.OR. ,  5H.AND.,  5H.NOT.,  5H.LE. ,                        DMPELST       37     A     
 DMPELST       .   5H.LT. ,  5H.GE. ,  5H.GT. ,  5H.NE. ,  5H.EQ. ,                        DMPELST       38     A     
 DMPELST       .   5H-    ,  5H+    ,  5H*    ,  5H/    ,  5H**                  /         DMPELST       39     A     
 DMPELST        DATA HOLCODE / 5HHOL-H, 5HHOL-L, 5HHOL-R, 5H*ILL*, 5HHOL"" /               DMPELST       40     A     
 DMPELST                                                                                   DMPELST       41     A     
 DMPELST                                                                                   DMPELST       42     A     
 DMPELST                                                                                   DMPELST       43     A     
 DMPELST  C         INITIALIZE.                                                            DMPELST       44     A     
 DMPELST                                                                                   DMPELST       45     A     
 DMPELST        LIST = LISTCMD                                                             DMPELST       46     A     
 DMPELST                                                                                   DMPELST       47     A     
 DMPELST  C         DON-T CHECK FOR ERRORS IF STATEMENT IS *BAD* (TYPE = 18)               DMPELST       48     A     
 DMPELST  C         AND LISTING IS OFF.  PREVENTS SPURIOUS ERROR MESSAGES WHEN             DMPELST       49     A     
 DMPELST  C         MAKING ROUTINE END-OF-STMT CHECKS IN TEST-MODE COMPILER.               DMPELST       50     A     
 DMPELST                                                                                   DMPELST       51     A     
 DMPELST        IF (LIST .EQ. 0 .AND. TYPE .EQ. 18)  GO TO 999                             DMPELST       52     A     
 DMPELST                                                                                   DMPELST       53     A     
 DMPELST                                                                                   DMPELST       54     A     
 DMPELST   10   ERRCNT = 0                                                                 DMPELST       55     A     
 DMPELST        LIFFLG = 0                                                                 DMPELST       56     A     
 DMPELST        LOOPCT = LENEL                                                             DMPELST       57     A     
 DMPELST                                                                                   DMPELST       58     A     
 DMPELST  C         FORMAT LABEL INFO.                                                     DMPELST       59     A     
 DMPELST                                                                                   DMPELST       60     A     
 DMPELST        CLABL = CLABEL                                                             DMPELST       61     A     
 DMPELST        NLABL = NLABEL                                                             DMPELST       62     A     
 DMPELST        IF (CLABL .EQ. 0)  CLABL = " "                                             DMPELST       63     A     
 DMPELST        IF (NLABL .EQ. 0)  NLABL = " "                                             DMPELST       64     A     
 DMPELST                                                                                   DMPELST       65     A     
 DMPELST  C         MAIN LOOP.                                                             DMPELST       66     A     
 DMPELST                                                                                   DMPELST       67     A     
 DMPELST   100  CONTINUE                                                                   DMPELST       68     A     
 DMPELST                                                                                   DMPELST       69     A     
 DMPELST  C         SPECIAL-CASE *FORMAT*.                                                 DMPELST       70     A     
 DMPELST                                                                                   DMPELST       71     A     
 DMPELST        IF (TYPE .NE. 9)  GO TO 120                                                DMPELST       72     A     
 DMPELST        IF (LIST .NE. 0)  PRINT 111, FWAEL(LOOPCT), FWAEL(LOOPCT)                  DMPELST       73     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1928    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DMPELST 
  
 DMPELST   111  FORMAT (28X, A10, 6X, O20)                                                 DMPELST       74     A     
 DMPELST        GO TO 600                                                                  DMPELST       75     A     
 DMPELST                                                                                   DMPELST       76     A     
 DMPELST   120  CONTINUE                                                                   DMPELST       77     A     
 DMPELST                                                                                   DMPELST       78     A     
 DMPELST  C         E-LIST DUMP LOOP.                                                      DMPELST       79     A     
 DMPELST                                                                                   DMPELST       80     A     
 DMPELST        DO 500 N = 1,LOOPCT                                                        DMPELST       81     A     
 DMPELST        ERR = " "                                                                  DMPELST       82     A     
 DMPELST        EDPC = " "                                                                 DMPELST       83     A     
 DMPELST                                                                                   DMPELST       84     A     
 DMPELST        EL = FWAEL(LOOPCT+1-N)                                                     DMPELST       85     A     
 DMPELST        ELU = SHIFT( (EL .A. MASK(12)), -48 )                                      DMPELST       86     A     
 DMPELST        ELL = EL .A. .N. MASK(12)                                                  DMPELST       87     A     
 DMPELST        ECODE = ELU - 2000B                                                        DMPELST       88     A     
 DMPELST        IF ( ECODE .LT. 0  .OR.  ECODE .GT. 24B )  GO TO 300                       DMPELST       89     A     
 DMPELST        E48 = EL .A. .N. MASK(12)                                                  DMPELST       90     A     
 DMPELST                                                                                   DMPELST       91     A     
 DMPELST  C         SPECIAL CASE ITEMS WITH SAME E-LIST CODE, BUT DIFFERENT                DMPELST       92     A     
 DMPELST  C         CONTENTS OF BITS 47-0.                                                 DMPELST       93     A     
 DMPELST                                                                                   DMPELST       94     A     
 DMPELST        EDPC = ELCODE(ECODE+1)                                                     DMPELST       95     A     
 DMPELST        IF ( ECODE .NE. 0 )  GO TO 220                                             DMPELST       96     A     
 DMPELST                                                                                   DMPELST       97     A     
 DMPELST  C         PROCESS TYPE CODE = 0.                                                 DMPELST       98     A     
 DMPELST                                                                                   DMPELST       99     A     
 DMPELST        IF ( E48 .NE. 0 )  GO TO 201                                               DMPELST      100     A     
 DMPELST        EDPC = ".F."                                                               DMPELST      101     A     
 DMPELST        GO TO 400                                                                  DMPELST      102     A     
 DMPELST                                                                                   DMPELST      103     A     
 DMPELST   201  IF ( E48 .NE. 777776B )  GO TO 202                                         DMPELST      104     A     
 DMPELST        EDPC = ".T."                                                               DMPELST      105     A     
 DMPELST        GO TO 400                                                                  DMPELST      106     A     
 DMPELST                                                                                   DMPELST      107     A     
 DMPELST  C         PROCESS CONSTANT (TYPE CODE = 0, LOWER 48 BITS .PL.).                  DMPELST      108     A     
 DMPELST  C         ONLY THE 1ST TEN CHARS OF *CONSTOR* ENTRY WILL BE LISTED.              DMPELST      109     A     
 DMPELST                                                                                   DMPELST      110     A     
 DMPELST   202  CONTYPE = SHIFT(EL,-45) .A. .N. MASK(57)                                   DMPELST      111     A     
 DMPELST        EDPC = "* BAD TYPE"                                                        DMPELST      112     A     
 DMPELST        IF ( CONTYPE .GT. 6 )  GO TO 310                                           DMPELST      113     A     
 DMPELST        CONTYPE = CONCODE(CONTYPE+1)                                               DMPELST      114     A     
 DMPELST        CONLEN = SHIFT(EL,-18) .A. .N. MASK(48)                                    DMPELST      115     A     
 DMPELST        EDPC = "* BAD LEN"                                                         DMPELST      116     A     
 DMPELST        IF ( CONLEN .LE. 0  .OR. CONLEN .GT. 1320 )  GO TO 310                     DMPELST      117     A     
 DMPELST        CONADDR = EL .A. .N. MASK(42)                                              DMPELST      118     A     
 DMPELST        EDPC = "* BAD ADDR"                                                        DMPELST      119     A     
 DMPELST        IF ( CONADDR .LT. 7000B  .OR.  CONADDR .GT. 32000B )  GO TO 310            DMPELST      120     A     
 DMPELST        CON = RA1(CONADDR)                                                         DMPELST      121     A     
 DMPELST        IF ( CONTYPE .NE. "HOL" )  GO TO 410                                       DMPELST      122     A     
 DMPELST                                                                                   DMPELST      123     A     
 DMPELST  C         CHECK FOR VALID HOLLERITH CONSTANT TYPE CODES 0, 1, 2, 4.              DMPELST      124     A     
 DMPELST                                                                                   DMPELST      125     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1929    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DMPELST 
  
 DMPELST        HCONTYP = SHIFT(EL,-36) .A. .N. MASK(51)                                   DMPELST      126     A     
 DMPELST        EDPC = "**BAD HOLL"                                                        DMPELST      127     A     
 DMPELST        IF ( (56B .A. SHIFT(1,HCONTYP+1)) .EQ. 0 )  GO TO 310                      DMPELST      128     A     
 DMPELST        CONTYPE = HOLCODE(HCONTYP+1)                                               DMPELST      129     A     
 DMPELST        GO TO 410                                                                  DMPELST      130     A     
 DMPELST                                                                                   DMPELST      131     A     
 DMPELST  C         PROCESS VARIABLE NAME (TYPE CODE = 1).                                 DMPELST      132     A     
 DMPELST                                                                                   DMPELST      133     A     
 DMPELST   220  IF ( ECODE .NE. 1 )  GO TO 230                                             DMPELST      134     A     
 DMPELST        EDPC = SHIFT(E48,12) .O. 2R                                                DMPELST      135     A     
 DMPELST        GO TO 400                                                                  DMPELST      136     A     
 DMPELST                                                                                   DMPELST      137     A     
 DMPELST  C         PROCESS TYPE CODES 2 - 24B.                                            DMPELST      138     A     
 DMPELST                                                                                   DMPELST      139     A     
 DMPELST   230  IF ( ECODE .LT. 20B  .OR.  ECODE .GT. 22B )  GO TO 400                     DMPELST      140     A     
 DMPELST        IF (E48 .NE. 5 )  GO TO 400                                                DMPELST      141     A     
 DMPELST        EDPC = AUXCODE(ECODE-20B+1)                                                DMPELST      142     A     
 DMPELST        GO TO 400                                                                  DMPELST      143     A     
 DMPELST                                                                                   DMPELST      144     A     
 DMPELST  C         PROCESS BAD E-LIST ENTRY.                                              DMPELST      145     A     
 DMPELST                                                                                   DMPELST      146     A     
 DMPELST   300  EDPC = " "                                                                 DMPELST      147     A     
 DMPELST        GO TO 390                                                                  DMPELST      148     A     
 DMPELST                                                                                   DMPELST      149     A     
 DMPELST   310  CONTINUE                                                                   DMPELST      150     A     
 DMPELST                                                                                   DMPELST      151     A     
 DMPELST   390  IF ( LIST .NE. 0 )  GO TO 391                                              DMPELST      152     A     
 DMPELST        LIST = 1                                                                   DMPELST      153     A     
 DMPELST        GO TO 10                                                                   DMPELST      154     A     
 DMPELST                                                                                   DMPELST      155     A     
 DMPELST   391  ERR = "** ERROR *"                                                         DMPELST      156     A     
 DMPELST        ERRCNT = ERRCNT + 1                                                        DMPELST      157     A     
 DMPELST        IF ( ERRCNT .LT. 11 )  GO TO 402                                           DMPELST      158     A     
 DMPELST        PRINT 392                                                                  DMPELST      159     A     
 DMPELST   392  FORMAT (///, 1X, 56H***** MORE THAN 10 E-LIST ERRORS IN THIS STATE         DMPELST      160     A     
 DMPELST       .MENT *****, ///)                                                           DMPELST      161     A     
 DMPELST        GO TO 600                                                                  DMPELST      162     A     
 DMPELST                                                                                   DMPELST      163     A     
 DMPELST  C         PRINT FORMATTED E-LIST.                                                DMPELST      164     A     
 DMPELST                                                                                   DMPELST      165     A     
 DMPELST   400  IF ( LIST .EQ. 0 )  GO TO 404                                              DMPELST      166     A     
 DMPELST   402  PRINT 403, EDPC, ELU, ELL, ERR                                             DMPELST      167     A     
 DMPELST   403  FORMAT (28X, A10, 6X, O4, 1X, O16, 55X, A10)                               DMPELST      168     A     
 DMPELST   404  IF ( ECODE - 4 )  500, 600, 500                                            DMPELST      169     A     
 DMPELST                                                                                   DMPELST      170     A     
 DMPELST   410  IF (LIST .NE. 0)  PRINT 411, CON, ELU, ELL, CONLEN, CONTYPE, ERR           DMPELST      171     A     
 DMPELST   411  FORMAT (28X, A10, 6X, O4, 1X, O16, 3X, *LEN = *, I4,                       DMPELST      172     A     
 DMPELST       . 3X, *TYPE = *, A5, 29X, A10)                                              DMPELST      173     A     
 DMPELST                                                                                   DMPELST      174     A     
 DMPELST   500  CONTINUE                                                                   DMPELST      175     A     
 DMPELST                                                                                   DMPELST      176     A     
 DMPELST  C         PRINT STATEMENT SUMMARY INFO.                                          DMPELST      177     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1930    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DMPELST 
  
 DMPELST                                                                                   DMPELST      178     A     
 DMPELST   600  IF (LIFFLG .NE. 0)  GO TO 620                                              DMPELST      179     A     
 DMPELST        IF (LIST .NE. 0)  PRINT 601, TYPE, ATYPE, CLABL, NLABL                     DMPELST      180     A     
 DMPELST   601  FORMAT (30X, *(TYPE) = *, I2, 3X, *(ATYPE) = *, I2, 3X,                    DMPELST      181     A     
 DMPELST       . *(CLABEL) = *, A8, *(NLABEL) = *, A8)                                     DMPELST      182     A     
 DMPELST                                                                                   DMPELST      183     A     
 DMPELST  C         REPEAT E-LIST DUMP FOR LOGICAL *IF* TARGET.                            DMPELST      184     A     
 DMPELST                                                                                   DMPELST      185     A     
 DMPELST        IF ( TYPE .NE. 17 )  GO TO 900                                             DMPELST      186     A     
 DMPELST        IF (LIST .EQ. 0 .AND. LTYPE .EQ. 18)  GO TO 999                            DMPELST      187     A     
 DMPELST        LIFFLG = 1                                                                 DMPELST      188     A     
 DMPELST        LOOPCT = LENLEL                                                            DMPELST      189     A     
 DMPELST        GO TO 100                                                                  DMPELST      190     A     
 DMPELST                                                                                   DMPELST      191     A     
 DMPELST   620  IF ( LIST .NE. 0 )  PRINT 621, LTYPE, ATYPE                                DMPELST      192     A     
 DMPELST   621  FORMAT (29X, *(LTYPE) = *, I2, 3X, *(ATYPE) = *, I2)                       DMPELST      193     A     
 DMPELST                                                                                   DMPELST      194     A     
 DMPELST  C         FINAL PROCESSING.                                                      DMPELST      195     A     
 DMPELST                                                                                   DMPELST      196     A     
 DMPELST   900  IF ( LIST .NE. 0 )  PRINT 901                                              DMPELST      197     A     
 DMPELST   901  FORMAT (2X)                                                                DMPELST      198     A     
 DMPELST                                                                                   DMPELST      199     A     
 DMPELST        IF ( EOSCHK .NE. 0  .A.  ECODE .NE. 4 )  PRINT 911                         DMPELST      200     A     
 DMPELST   911  FORMAT ( 24H ***** EOS MISSING ***** )                                     DMPELST      201     A     
 DMPELST        EOSCHK = 0                                                                 DMPELST      202     A     
 DMPELST                                                                                   DMPELST      203     A     
 DMPELST        IF ( ERRCNT .NE. 0 )  PRINT 921, ERRCNT                                    DMPELST      204     A     
 DMPELST   921  FORMAT ( 6H *****, I10, 23H ERRORS IN E-LIST ***** )                       DMPELST      205     A     
 DMPELST                                                                                   DMPELST      206     A     
 DMPELST   999  RETURN                                                                     DMPELST      207     A     
 DMPELST        END                                                                        DMPELST      208     A     
 DMPELST  *ENDIF                                                                           DMPELST      209     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DMPELST 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DMPELST                    209       207
          FCCA589                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONVERT 
  
 CONVERT  *DECK,    CONVERT                                                                CONVERT        1     A     
 CONVERT            IDENT     CONVERT                                                      CONVERT        2     A     
 CONVERT            TITLE              CONVERT - CONVERT CONSTANT TO BINARY                CONVERT        3     A     
 CONVERT            SST                                                                    CONVERT        4     A     
 CONVERT   B=CNVRT  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             CONVERT        5     A     
 CONVERT            TABLES CON                                                             CONVERT        6     A     
 CONVERT                                                                                   CONVERT        7     A     
 CONVERT                                                                                   CONVERT        8     A     
 CONVERT  ***       CONVERT  -  CONVERT CONSTANT TO BINARY.                                CONVERT        9     A     
 CONVERT  *                                                                                CONVERT       10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1931    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONVERT 
  
 CONVERT  *                                                                                CONVERT       11     A     
 CONVERT  *         L.D.HARE - CDC/SUNNYVALE - DECEMBER 1974.                              CONVERT       12     A     
 CONVERT  *                                                                                CONVERT       13     A     
 CONVERT  *                UPDATE FLOATING CONVERSION FOR                                  CONVERT       14     A     
 CONVERT  *                COMPATIBILITY WITH FCL.                                         CONVERT       15     A     
 CONVERT  *                                                                                CONVERT       16     A     
 CONVERT  *         ENTRY  (B1) = 0, CONVERT CONSTANT AND STORE.                           CONVERT       17     A     
 CONVERT  *                (X1) = ELIST ENTRY.                                             CONVERT       18     A     
 CONVERT  *                                                                                CONVERT       19     A     
 CONVERT  *         EXIT   (X1) = 30/CA,30/IH.                                             CONVERT       20     A     
 CONVERT  *                                                                                CONVERT       21     A     
 CONVERT  *         ENTRY  (B1) .LT. 0, CONVERT CONSTANT ONLY.                             CONVERT       22     A     
 CONVERT  *                (X1) = ELIST ENTRY.                                             CONVERT       23     A     
 CONVERT  *                                                                                CONVERT       24     A     
 CONVERT  *         EXIT   (X1) = HIGH ORDER BITS CONVERTED CONSTANT.                      CONVERT       25     A     
 CONVERT  *                (X2) = LOW ORDER BITS CONVERTED CONSTANT                        CONVERT       26     A     
 CONVERT  *                       FOR DOUBLE PRECISION.                                    CONVERT       27     A     
 CONVERT  *                                                                                CONVERT       28     A     
 CONVERT  *         ENTRY  (B1) = 1 OR 2, STORE ONLY USER CONVERTED CONSTANT.              CONVERT       29     A     
 CONVERT  *                (X1) = HIGH ORDER BITS CONVERTED CONSTANT.                      CONVERT       30     A     
 CONVERT  *                (X2) = LOW ORDER BITS CONVERTED CONSTANT                        CONVERT       31     A     
 CONVERT  *                       IF (B1) = 2.                                             CONVERT       32     A     
 CONVERT  *                                                                                CONVERT       33     A     
 CONVERT  *         EXIT   (X1) = 30/CA,30/IH.                                             CONVERT       34     A     
 CONVERT  *                                                                                CONVERT       35     A     
 CONVERT  *         USES REGISTER CONVENTION B1=1.                                         CONVERT       36     A     
 CONVERT  *         RETURNS B5=1 FOR COMPATIBILITY WITH EARLIER VERSIONS.                  CONVERT       37     A     
 CONVERT  *                                                                                CONVERT       38     A     
 CONVERT  *         USES   ALL.                                                            CONVERT       39     A     
 CONVERT  *                                                                                CONVERT       40     A     
 CONVERT  *         CALLS  ERPROI,ERPRO,ADDWD.                                             CONVERT       41     A     
 CONVERT                                                                                   CONVERT       42     A     
 CONVERT                                                                                   CONVERT       43     A     
 CONVERT  ****      ERROR MESSAGES.                                                        CONVERT       44     A     
 CONVERT                                                                                   CONVERT       45     A     
 CONVERT   E.CCE    EQU    66          CONVERSION ERROR                                    CONVERT       46     A     
 CONVERT   E.TMD    EQU    218         TOO MANY DIGITS (INFORMATIVE)                       CONVERT       47     A     
 CONVERT   E.ICO    EQU    304         INTEGER OVERFLOW                                    CONVERT       48     A     
 CONVERT                                                                                   CONVERT       49     A     
 CONVERT  ****                                                                             CONVERT       50     A     
 CONVERT                                                                                   CONVERT       51     A     
 CONVERT            TITLE  WORKING CONSTANTS AND STORAGE.                                  CONVERT       52     A     
 CONVERT  *         WORKING STORAGE.                                                       CONVERT       53     A     
 CONVERT                                                                                   CONVERT       54     A     
 CONVERT   CCBA     BSS    1           TYPE OF CALL, (B1) AT ENTRY                         CONVERT       55     A     
 CONVERT   CCBB     BSS    1           NUMBER OF CHARACTERS IN CONSTANT                    CONVERT       56     A     
 CONVERT   CCBC     BSS    1           ELIST VALUE IN CASE OF ERROR                        CONVERT       57     A     
 CONVERT   CCBD     BSS    1           SIGN OF REAL NUMBER                                 CONVERT       58     A     
 CONVERT   CCBE     BSS    1           ORIGINAL CONSTOR ADDRESS                            CONVERT       59     A     
 CONVERT   CCBF     BSS    1           CONSTANT TYPE                                       CONVERT       60     A     
 CONVERT   CCBG     BSS    1           SCRATCH                                             CONVERT       61     A     
 CONVERT   CCBH     BSS    1           2*NT WORD DP STORAGE                                CONVERT       62     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1932    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONVERT 
  
 CONVERT   CCBI     BSSZ   1           INFORMATIVE ERROR FLAG                              CONVERT       63     A     
 CONVERT            SPACE  4                                                               CONVERT       64     A     
 CONVERT                                                                                   CONVERT       65     A     
 CONVERT  *         CRACK CALLING PARAMETERS AND SET UP REGISTERS.                         CONVERT       66     A     
 CONVERT                                                                                   CONVERT       67     A     
 CONVERT   CONVERT  ENTRY. **          ENTRY/EXIT                                          CONVERT       68     A     
 CONVERT            BX6    X1                                                              CONVERT       69     A     
 CONVERT            SX7    B1+                                                             CONVERT       70     A     
 CONVERT            SB3    B1                                                              CONVERT       71     A     
 CONVERT            SA6    CCBG        X1 FOR DISPLAY                                      CONVERT       72     A     
 CONVERT            SB1    1                                                               CONVERT       73     A     
 CONVERT            SA7    CCBA        (CCBA) = CLM = CALLING MODE                         CONVERT       74     A     
 CONVERT            GT     B3,B0,SBC   IF CLM .EQ. 1 OR 2 STORE ONLY                       CONVERT       75     A     
 CONVERT                                                                                   CONVERT       76     A     
 CONVERT            BX7    X1                                                              CONVERT       77     A     
 CONVERT            UX1    X1                                                              CONVERT       78     A     
 CONVERT            SA7    CCBC        (CCBC) = ELT = ELIST AT ENTRY                       CONVERT       79     A     
 CONVERT            SB5    X1          (B5) = CAD = ORIGINAL CONSTOR ADDRESS               CONVERT       80     A     
 CONVERT            AX1    18                                                              CONVERT       81     A     
 CONVERT            SX6    B5                                                              CONVERT       82     A     
 CONVERT            SB7    X1          (B7) = NCH = NUMBER OF CHARACTERS                   CONVERT       83     A     
 CONVERT            SA6    CCBE                                                            CONVERT       84     A     
 CONVERT            AX1    45-18                                                           CONVERT       85     A     
 CONVERT            SX7    B7                                                              CONVERT       86     A     
 CONVERT            BX6    X1                                                              CONVERT       87     A     
 CONVERT            SA7    CCBB        (CCBB) = NCH                                        CONVERT       88     A     
 CONVERT            SB2    X1          (B2) = CTP = CONSTANT TYPE                          CONVERT       89     A     
 CONVERT            SA6    CCBF        (CCBF) = CTP                                        CONVERT       90     A     
 CONVERT            JP     B2+CCB.JT   JP CCB.JT(TYPE)                                     CONVERT       91     A     
 CONVERT                                                                                   CONVERT       92     A     
 CONVERT  *         CONVERT JUMP TABLE.                                                    CONVERT       93     A     
 CONVERT                                                                                   CONVERT       94     A     
 CONVERT   CCB.JT   BSS    0                                                               CONVERT       95     A     
 CONVERT            LOC    0                                                               CONVERT       96     A     
 CONVERT            SX1    B5                                                              CONVERT       97     A     
 CONVERT            EQ     CCB4        T.LOG                                               CONVERT       98     A     
 CONVERT            EQ     CDC         T.INT                                               CONVERT       99     A     
 CONVERT            EQ     CDC         T.REAL                                              CONVERT      100     A     
 CONVERT            EQ     CDC         T.DBL                                               CONVERT      101     A     
 CONVERT            EQ     *+4S15      T.CPLX  (COMPILER ERROR)                            CONVERT      102     A     
 CONVERT            EQ     COC         T.OCT                                               CONVERT      103     A     
 CONVERT            EQ     DISPLAY     T.HOL                                               CONVERT      104     A     
 CONVERT            LOC    *O                                                              CONVERT      105     A     
 CONVERT                                                                                   CONVERT      106     A     
 CONVERT  *         ERROR MESSAGE POSTER MACROS.                                           CONVERT      107     A     
 CONVERT                                                                                   CONVERT      108     A     
 CONVERT   CCB1     POSTER NR=E.CCE,SEV=FE,FMT=ELIST,TXT=CCBC,RETURN=CONVERT               CONVERT      109     A     
 CONVERT                                                                                   CONVERT      110     A     
 CONVERT   CCB2     POSTER NR=E.ICO,SEV=FE,FMT=ELIST,TXT=CCBC,RETURN=CONVERT               CONVERT      111     A     
 CONVERT                                                                                   CONVERT      112     A     
 CONVERT   CCB3     SA3    CCBI                                                            CONVERT      113     A     
 CONVERT            ZR     X3,CCB4                                                         CONVERT      114     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1933    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONVERT 
  
 CONVERT            BX6    X2          SAVE RESULTS                                        CONVERT      115     A     
 CONVERT            BX7    X1                                                              CONVERT      116     A     
 CONVERT            SA6    A3-B1                                                           CONVERT      117     A     
 CONVERT            SA7    A6-B1                                                           CONVERT      118     A     
 CONVERT            POSTER NR=E.TMD,SEV=INF                                                CONVERT      119     A     
 CONVERT            SA1    CCBG        RETURN CONVERTED VALUES AFTER POSTER                CONVERT      120     A     
 CONVERT            SA2    CCBH                                                            CONVERT      121     A     
 CONVERT            SX6    0                                                               CONVERT      122     A     
 CONVERT            SA6    CCBI        ZERO INFORMATIVE ERROR FLAG                         CONVERT      123     A     
 CONVERT                                                                                   CONVERT      124     A     
 CONVERT   CCB4     SA4    CCBA                                                            CONVERT      125     A     
 CONVERT            SB5    1                                                               CONVERT      126     A     
 CONVERT            MI     X4,CONVERT  IF CONVERT AND NO STORE                             CONVERT      127     A     
 CONVERT            EQ     SBC         STORE                                               CONVERT      128     A     
 CONVERT            TITLE  CDC - CONVERT DECIMAL CONSTANT                                  CONVERT      129     A     
 CONVERT  **        CDC  -  CONVERT DECIMAL CONSTANT.                                      CONVERT      130     A     
 CONVERT  *                                                                                CONVERT      131     A     
 CONVERT  *         ENTRY  (B5) = CAD, ORIGINAL CONSTOR ADDRESS.                           CONVERT      132     A     
 CONVERT  *                (B2) = CONSTANT TYPE.                                           CONVERT      133     A     
 CONVERT  *                                                                                CONVERT      134     A     
 CONVERT  *         EXIT   IF CONSTANT TYPE = T.INT                                        CONVERT      135     A     
 CONVERT  *                (X1) = BINARY INTEGER.                                          CONVERT      136     A     
 CONVERT  *                                                                                CONVERT      137     A     
 CONVERT  *                IF CONSTANT TYPE = T.REAL OR T.DBL                              CONVERT      138     A     
 CONVERT  *                (X1) = HIGH ORDER BITS DP BINARY CONSTANT.                      CONVERT      139     A     
 CONVERT  *                (X2) = LOW ORDER BITS DP BINARY CONSTANT.                       CONVERT      140     A     
 CONVERT  *                (B5) = 1                                                        CONVERT      141     A     
 CONVERT  *                                                                                CONVERT      142     A     
 CONVERT  *         ACTION 1.  CONVERT DISPLAY TO BINARY INTEGER CREATING                  CONVERT      143     A     
 CONVERT  *                    EXPONENT TO THE BASE 10 AS NECESSARY AND                    CONVERT      144     A     
 CONVERT  *                    PROCESS OVERFLOW CONDITION IF IT OCCURS.                    CONVERT      145     A     
 CONVERT  *                2.  CONVERT POST RADIX EXPONENT IF ENCOUNTERED.                 CONVERT      146     A     
 CONVERT  *                3.  CHECK CONVERTED CONSTANT TYPE FOR LEGALITY                  CONVERT      147     A     
 CONVERT  *                    AND ISSUE FATAL ERROR/RETURN OR SET INFORMATIVE             CONVERT      148     A     
 CONVERT  *                    ERROR FLAG IF REQUIRED.                                     CONVERT      149     A     
 CONVERT  *                4.  CALL FSCALE IF TYPE IS T.DBL OR T.REAL, RETURN              CONVERT      150     A     
 CONVERT  *                    IF T.INT.                                                   CONVERT      151     A     
 CONVERT  *                                                                                CONVERT      152     A     
 CONVERT  *         USES   ALL.                                                            CONVERT      153     A     
 CONVERT                                                                                   CONVERT      154     A     
 CONVERT   CDC      SX7    1R+                                                             CONVERT      155     A     
 CONVERT            SA2    CCBB                                                            CONVERT      156     A     
 CONVERT            SA7    CCBD        (CCBD) = 1R+      SIGN OF RESULT                    CONVERT      157     A     
 CONVERT            MX4    5           CRM = MASK(5)     CARRY MASK                        CONVERT      158     A     
 CONVERT            SA0    B0          ECT = 0           EXPONENT COUNT                    CONVERT      159     A     
 CONVERT            SB3    1R0                                                             CONVERT      160     A     
 CONVERT            SB4    10          WCT = 10          CHARACTER PER WORD COUNT          CONVERT      161     A     
 CONVERT            SB6    B0          EXT = 0           EXPONENT FLAG                     CONVERT      162     A     
 CONVERT            SB7    X2          NDG = CCBB        NUMBER OF CHARACTERS              CONVERT      163     A     
 CONVERT            MX3    10                                                              CONVERT      164     A     
 CONVERT            LX3    60-1R0      DLS               DIGIT LEFT SHIFT MASK             CONVERT      165     A     
 CONVERT            SA2    B5          CDI = CAD(I)      I = 1                             CONVERT      166     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1934    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONVERT 
  
 CONVERT            MX1    0           LO = 0            LO BITS INT. CONVERSION           CONVERT      167     A     
 CONVERT            SX0    B0+         HI = 0            HI BITS INT. CONVERSION           CONVERT      168     A     
 CONVERT                                                                                   CONVERT      169     A     
 CONVERT  *         DIGIT CONVERSION LOOP.                                                 CONVERT      170     A     
 CONVERT                                                                                   CONVERT      171     A     
 CONVERT   CDC1     LX2    6           CON = SHIFT(CDI,6)                                  CONVERT      172     A     
 CONVERT            MX5    -6          MSK = 77B                                           CONVERT      173     A     
 CONVERT            BX7    -X5*X2      CHAR = CON .A. MSK                                  CONVERT      174     A     
 CONVERT            SB2    X7                                                              CONVERT      175     A     
 CONVERT            LX5    B2,X3                                                           CONVERT      176     A     
 CONVERT            PL     X5,CDC3     IF SHIFT(DLS,CHAR) .GE. 0  NOT A DIGIT              CONVERT      177     A     
 CONVERT            BX5    X4*X0       OVER = CRM .A. HI                                   CONVERT      178     A     
 CONVERT            NZ     X5,CDC5     IF OVER .NE. 0  T.DBL OVERFLOW                      CONVERT      179     A     
 CONVERT            SA0    A0+B6       ECT = ECT+EXT                                       CONVERT      180     A     
 CONVERT            SX7    B2-B3       DIG = CHAR-1R0                                      CONVERT      181     A     
 CONVERT            IX5    X1+X1       LO1 = LO*2                                          CONVERT      182     A     
 CONVERT            LX1    3           LO = LO*8                                           CONVERT      183     A     
 CONVERT            IX5    X5+X7       LO2 = LO1+DIG                                       CONVERT      184     A     
 CONVERT            LX6    B1,X0       HI1 = HI*2                                          CONVERT      185     A     
 CONVERT            IX5    X5+X1       LO2 = LO2+LO                                        CONVERT      186     A     
 CONVERT            LX0    3           HI = HI*8                                           CONVERT      187     A     
 CONVERT            BX1    -X4*X5      LO = LO2*COMP(CRM)                                  CONVERT      188     A     
 CONVERT            AX5    55          CARRY = SHIFT(LO2,-55)                              CONVERT      189     A     
 CONVERT                                                                                   CONVERT      190     A     
 CONVERT   CDC2     IX6    X5+X6       HI = HI1+CARRY  (NB AT ENTRY CDC2 X5=X6=0)          CONVERT      191     A     
 CONVERT            SB7    B7-B1       NDG = NDG-1                                         CONVERT      192     A     
 CONVERT            IX0    X6+X0       HI = HI+HI1                                         CONVERT      193     A     
 CONVERT            SB4    B4-B1       WCT = WCT-1                                         CONVERT      194     A     
 CONVERT            ZR     B7,CDC8     IF NDG .EQ. 0  INTEGER FINISHED                     CONVERT      195     A     
 CONVERT            NZ     B4,CDC1     IF MORE DIGITS                                      CONVERT      196     A     
 CONVERT            SB5    B5+B1       I = I+1                                             CONVERT      197     A     
 CONVERT            SA2    B5          CDI = CAD(2)                                        CONVERT      198     A     
 CONVERT            SB4    10          WCT = 10                                            CONVERT      199     A     
 CONVERT            EQ     CDC1                                                            CONVERT      200     A     
 CONVERT                                                                                   CONVERT      201     A     
 CONVERT  *         CHECK CHARACTER FOR DECIMAL POINT, E OR D.                             CONVERT      202     A     
 CONVERT                                                                                   CONVERT      203     A     
 CONVERT   CDC3     MX6    0           FOR POSSIBLE  EQ CDC2                               CONVERT      204     A     
 CONVERT            SB2    B2-1RF                                                          CONVERT      205     A     
 CONVERT            MX7    0           CLEAR X7                                            CONVERT      206     A     
 CONVERT            MI     B2,CDC9     IF CHAR-1RF .LT. 0  MUST BE EXPONENT                CONVERT      207     A     
 CONVERT            SB2    B2+1RF-1R.                                                      CONVERT      208     A     
 CONVERT            ZR     B2,CDC4     IF CHAR-1R. .EQ. 0  MUST BE 1R.                     CONVERT      209     A     
 CONVERT            SA7    CCBD        MUST BE + OR -  STORE SIGN AND IGNORE               CONVERT      210     A     
 CONVERT            EQ     CDC2        LOOP                                                CONVERT      211     A     
 CONVERT                                                                                   CONVERT      212     A     
 CONVERT   CDC4     SB2    B6                                                              CONVERT      213     A     
 CONVERT            SB6    B0                                                              CONVERT      214     A     
 CONVERT            NZ     B2,CDC7     IF PREVIOUS T.DBL OVERFLOW                          CONVERT      215     A     
 CONVERT            SB6    -B1                                                             CONVERT      216     A     
 CONVERT            IX5    X5-X5       FOR POSSIBLE  EQ CDC2                               CONVERT      217     A     
 CONVERT            EQ     CDC2                                                            CONVERT      218     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1935    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONVERT 
  
 CONVERT                                                                                   CONVERT      219     A     
 CONVERT  *         PROCESS T.DBL OVERFLOW.                                                CONVERT      220     A     
 CONVERT                                                                                   CONVERT      221     A     
 CONVERT   CDC5     SB2    B6          EXH = EXT                                           CONVERT      222     A     
 CONVERT            SB6    B6+B1       EXT = EXT+1                                         CONVERT      223     A     
 CONVERT            ZR     B2,CDC7     IF EXH .EQ. 0  EXP. REQUIRED                        CONVERT      224          I
          -FCC1142
 CONVERT            EQ     CDC7                                                            FCC1142        8     A     
 CONVERT                                                                                   CONVERT      225     A     
 CONVERT   CDC6     MX5    -6                                                              CONVERT      226     A     
 CONVERT            LX2    6           CON = SHIFT(CON,6)                                  CONVERT      227     A     
 CONVERT            BX7    -X5*X2      CHAR = CON .A. 77B                                  CONVERT      228     A     
 CONVERT            SB2    X7                                                              CONVERT      229     A     
 CONVERT            LX6    B2,X3                                                           CONVERT      230     A     
 CONVERT            PL     X6,CDC3     IF SHIFT(DLS,CHAR) .GE. 0  NOT A DIGIT              CONVERT      231     A     
 CONVERT                                                                                   CONVERT      232     A     
 CONVERT  *         SKIP REMAINING DIGITS LOOKING FOR E OR D.                              CONVERT      233     A     
 CONVERT                                                                                   CONVERT      234     A     
 CONVERT   CDC7     SB7    B7-B1       NDG = NDG-1                                         CONVERT      235     A     
 CONVERT            SA0    A0+B6       ECT = ECT+EXT                                       CONVERT      236     A     
 CONVERT            ZR     B7,CDC8     IF NDG .EQ. 0  FINISHED                             CONVERT      237     A     
 CONVERT            SB4    B4-B1       WCT = WCT-1                                         CONVERT      238     A     
 CONVERT            NZ     B4,CDC6     IF WCT .EQ. 0  MORE DIGITS                          CONVERT      239     A     
 CONVERT            SB5    B5+B1       I = I+1                                             CONVERT      240     A     
 CONVERT            SB4    10          WCT = 10                                            CONVERT      241     A     
 CONVERT            SA2    B5+         CON = CAD(I)                                        CONVERT      242     A     
 CONVERT            EQ     CDC6        LOOP                                                CONVERT      243     A     
 CONVERT                                                                                   CONVERT      244     A     
 CONVERT  *         CHECK IF INTEGER CONSTANT OR REAL CONSTANT WITHOUT P-RADIX.            CONVERT      245     A     
 CONVERT                                                                                   CONVERT      246     A     
 CONVERT   CDC8     SA2    CCBF                                                            CONVERT      247     A     
 CONVERT            SX6    B0          CLEAR X6                                            CONVERT      248     A     
 CONVERT            MX7    0           CLEAR X7                                            CONVERT      249     A     
 CONVERT            SX5    X2-T.INT                                                        CONVERT      250     A     
 CONVERT            NZ     X5,CDC12    IF .NOT. T.INT                                      CONVERT      251     A     
 CONVERT                                                                                   CONVERT      252     A     
 CONVERT  *         CHECK IF LEGAL INTEGER CONSTANT AND SET SIGN.                          CONVERT      253     A     
 CONVERT                                                                                   CONVERT      254     A     
 CONVERT            MX4    -4          MSK = 17B                                           CONVERT      255     A     
 CONVERT            BX5    -X4*X0      HI6 = HI .A. MSK                                    CONVERT      256     A     
 CONVERT            LX5    55          HI6 = SHIFT(HI6,55)                                 CONVERT      257     A     
 CONVERT            BX1    X1+X5       INT = HI6+LO                                        CONVERT      258     A     
 CONVERT            SB5    B1                                                              CONVERT      259     A     
 CONVERT            AX0    5                                                               CONVERT      260     A     
 CONVERT            NZ     X0,CCB2     INTEGER OVERFLOW - FATAL ERROR                      CONVERT      261     A     
 CONVERT            SA5    CCBD        SIGN = 1R+ OR 1R-                                   CONVERT      262     A     
 CONVERT            LX5    -2          SIGN = SHIFT(SIGN,58)                               CONVERT      263     A     
 CONVERT            AX5    60          SIGN = SHIFT(SIGN,-60)                              CONVERT      264     A     
 CONVERT            BX1    X1-X5       INT = INT .XOR. SIGN                                CONVERT      265     A     
 CONVERT            EQ     CCB3        EXIT...                                             CONVERT      266     A     
 CONVERT                                                                                   CONVERT      267     A     
 CONVERT  *         EXPONENT PROCESSOR.                                                    CONVERT      268     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1936    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONVERT 
  
 CONVERT                                                                                   CONVERT      269     A     
 CONVERT   CDC9     SB7    B7-B1       NDG = NDG-1                                         CONVERT      270     A     
 CONVERT            MX3    -6          MSK = 77B                                           CONVERT      271     A     
 CONVERT            ZR     B7,CDC12    IF NDG .EQ. 0  FINISHED                             CONVERT      272     A     
 CONVERT            SB4    B4-1        WCT = WCT-1                                         CONVERT      273     A     
 CONVERT            NZ     B4,CDC10    IF WCT .NE. 0                                       CONVERT      274     A     
 CONVERT            SB5    B5+B1       I = I+1                                             CONVERT      275     A     
 CONVERT            SA2    B5          CON = CAD(I)                                        CONVERT      276     A     
 CONVERT            SB4    10          WCT = 10                                            CONVERT      277     A     
 CONVERT                                                                                   CONVERT      278     A     
 CONVERT   CDC10    LX2    6           CON = SHIFT(CON,6)                                  CONVERT      279     A     
 CONVERT            BX5    -X3*X2      CHAR = CON .A. MSK                                  CONVERT      280     A     
 CONVERT            SB2    X5-1R+      DIG1 = CHAR-1R+                                     CONVERT      281     A     
 CONVERT            MI     B2,CDC11    IF DIG1 .LT. 0  IT IS A DIGIT                       CONVERT      282     A     
 CONVERT            SX7    -B2         MUST BE + OR -                                      CONVERT      283     A     
 CONVERT            AX7    B1,X7       SET X7 .T. FOR +, .F. FOR -                         CONVERT      284     A     
 CONVERT            EQ     CDC9        LOOP                                                CONVERT      285     A     
 CONVERT                                                                                   CONVERT      286     A     
 CONVERT   CDC11    SB2    X5                                                              CONVERT      287     A     
 CONVERT            LX5    B1,X6       EXP1 = EXP*2                                        CONVERT      288     A     
 CONVERT            LX6    3           EXP = EXP*8                                         CONVERT      289     A     
 CONVERT            IX6    X5+X6       EXP = EXP+EXP1  (= EXP*10)                          CONVERT      290     A     
 CONVERT            SX5    B2-B3       DIG = CHAR-1R0                                      CONVERT      291     A     
 CONVERT            IX6    X5+X6       EXP = EXP+DIG                                       CONVERT      292     A     
 CONVERT            EQ     CDC9        LOOP                                                CONVERT      293     A     
 CONVERT                                                                                   CONVERT      294     A     
 CONVERT  *         SET FLAG FOR T.REAL OR T.OCT OVERFLOW, CALL FSCALE.                    CONVERT      295     A     
 CONVERT                                                                                   CONVERT      296     A     
 CONVERT   CDC12    BX7    X6-X7       FLG = FLG .XOR. EXP                                 CONVERT      297     A     
 CONVERT            SB3    A0          EXPC = EXT                                          CONVERT      298     A     
 CONVERT            SB3    B3+X7       EXPC = EXPC+FLG                                     CONVERT      299     A     
 CONVERT            BX6    X4*X0       DCK = HI .A. CRM                                    CONVERT      300     A     
 CONVERT            SB2    48          SCT = 48                                            CONVERT      301     A     
 CONVERT            NO                                                                     CONVERT      302     A     
 CONVERT            AX4    B2,X1       RCK = SHIFT(LO,SCT)                                 CONVERT      303     A     
 CONVERT            SA2    CCBF                                                            CONVERT      304     A     
 CONVERT            SA5    CCBD                                                            CONVERT      305     A     
 CONVERT            SX3    X2-T.DBL    TPE = TYP-T.DBL                                     CONVERT      306     A     
 CONVERT            NZ     X6,CDC13    IF DCK .NE. 0  T.DBL OVERFLOW                       CONVERT      307     A     
 CONVERT            ZR     X4,CDC14    IF RCK .EQ. 0  NO T.REAL OVERFLOW                   CONVERT      308     A     
 CONVERT            ZR     X3,CDC14    IF TPE .EQ. 0  T.REAL OVERFLOW BUT T.DBL            CONVERT      309     A     
 CONVERT                                                                                   CONVERT      310     A     
 CONVERT   CDC13    SX7    -1          SET INFORMATIVE ERROR FLAG                          CONVERT      311     A     
 CONVERT            SA7    CCBI                                                            CONVERT      312     A     
 CONVERT                                                                                   CONVERT      313     A     
 CONVERT   CDC14    SB4    X2-2                                                            CONVERT      314     A     
 CONVERT   -        RJ     FSCALE      GO AND CONVERT                                      CONVERT      315     A     
 CONVERT            ZR     B4,CCB3     IF NO ERROR ENCOUNTERED IN FSCALE                   CONVERT      316     A     
 CONVERT            EQ     CCB1                                                            CONVERT      317     A     
 CONVERT            TITLE  SBC - STORE BINARY CONSTANT                                     CONVERT      318     A     
 CONVERT  **        SBC  -  STORE BINARY CONSTANT.                                         CONVERT      319     A     
 CONVERT  *                                                                                CONVERT      320     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1937    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONVERT 
  
 CONVERT  *         ENTRY  (X1) = INTEGER CONSTANT OR                                      CONVERT      321     A     
 CONVERT  *                       HIGH ORDER BITS DP CONSTANT.                             CONVERT      322     A     
 CONVERT  *                (X2) = UNDEFINED OR                                             CONVERT      323     A     
 CONVERT  *                       LOW ORDER BITS DP CONSTANT.                              CONVERT      324     A     
 CONVERT  *                (B1) = 1                                                        CONVERT      325     A     
 CONVERT  *                                                                                CONVERT      326     A     
 CONVERT  *         EXIT   (X1) = 30/CA,30/IH.                                             CONVERT      327     A     
 CONVERT  *                (B5) = 1                                                        CONVERT      328     A     
 CONVERT  *                                                                                CONVERT      329     A     
 CONVERT  *         ACTION 1.  LOOK FOR MATCH OF (X1) IN CONTAB, IF FOUND                  CONVERT      330     A     
 CONVERT  *                    CHECK FOR TWO STORE AND MATCH (X2) WITH                     CONVERT      331     A     
 CONVERT  *                    FOLLOWING CONTAB ENTRY.                                     CONVERT      332     A     
 CONVERT  *                2.  REPEAT 1. UNTIL MATCH OR CONTAB END.                        CONVERT      333     A     
 CONVERT  *                3.  ON SUCCESSFUL MATCH SET (X1) AND RETURN.                    CONVERT      334     A     
 CONVERT  *                4.  ON LAST WORD CONTAB MATCH (X1) AND IT IS A                  CONVERT      335     A     
 CONVERT  *                    TWO WORD STORE, STORE ONLY (X2) AND GO TO 3.                CONVERT      336     A     
 CONVERT  *                5.  ON CONTAB END AND NO MATCH, STORE ONLY THEN 3.              CONVERT      337     A     
 CONVERT  *                                                                                CONVERT      338     A     
 CONVERT  *         USES   A. -,-,-,3,4,5,6,7                                              CONVERT      339     A     
 CONVERT  *                B. -,1,2,3,4,5,6,-                                              CONVERT      340     A     
 CONVERT  *                X. 0,1,-,3,4,5,6,7                                              CONVERT      341     A     
 CONVERT  *                                                                                CONVERT      342     A     
 CONVERT  *         CALLS  ADDWD.                                                          CONVERT      343     A     
 CONVERT                                                                                   CONVERT      344     A     
 CONVERT   SBC      SA3    CCBF        ENTRY.                                              CONVERT      345     A     
 CONVERT            SA4    O.CON                                                           CONVERT      346     A     
 CONVERT            SA5    L.CON                                                           CONVERT      347     A     
 CONVERT            SB6    X3-T.DBL    IF T.DBL  WD2 = 0                                   CONVERT      348     A     
 CONVERT            SB2    X5+                                                             CONVERT      349     A     
 CONVERT            SA3    CCBA                                                            CONVERT      350     A     
 CONVERT            SB4    X3-2        IF 2 WORD STORE  WW2=0                              CONVERT      351     A     
 CONVERT            SB5    -B1         CA = -1                                             CONVERT      352     A     
 CONVERT            SA3    X4          I = 1,  CLE = O.CON(I)                              CONVERT      353     A     
 CONVERT                                                                                   CONVERT      354     A     
 CONVERT  *         SEARCH *CON* FOR MATCH, DETERMINE 2 WORD STORE.                        CONVERT      355     A     
 CONVERT                                                                                   CONVERT      356     A     
 CONVERT   SBC1     SB5    B5+1        CA = CA+1                                           CONVERT      357     A     
 CONVERT            GE     B5,B2,SBC6  IF CA .GE. L.CON  END OF CONLIST                    CONVERT      358     A     
 CONVERT            BX0    X1-X3                                                           CONVERT      359     A     
 CONVERT            SA3    A3+B1       I = I+1, CLE = O.CON(I)                             CONVERT      360     A     
 CONVERT            NZ     X0,SBC1     IF CLE-CON .NE. 0  LOOP                             CONVERT      361     A     
 CONVERT            MI     X0,SBC1     IF CLE-CON .EQ. -0  LOOP                            CONVERT      362     A     
 CONVERT            SX4    B5+                                                             CONVERT      363     A     
 CONVERT            ZR     B6,SBC3     IF WD2 .EQ. 0  THEN TYPE .EQ. T.DBL                 CONVERT      364     A     
 CONVERT            ZR     B4,SBC3     IF WW2 .EQ. 0  THEN CCBA .EQ. 2                     CONVERT      365     A     
 CONVERT                                                                                   CONVERT      366     A     
 CONVERT  *         SET UP CA,I AND H FIELDS - RETURN.                                     CONVERT      367     A     
 CONVERT                                                                                   CONVERT      368     A     
 CONVERT   SBC2     SA5    =XCON.                                                          CONVERT      369     A     
 CONVERT            LX4    30                                                              CONVERT      370     A     
 CONVERT            BX1    X4+X5       (X1) = 30/CA,30/IH                                  CONVERT      371     A     
 CONVERT            SB5    B1                                                              CONVERT      372     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1938    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONVERT 
  
 CONVERT            EQ     CONVERT     EXIT.                                               CONVERT      373     A     
 CONVERT                                                                                   CONVERT      374     A     
 CONVERT  *         2 WORD STORE - DETERMINE MATCH OR NO MATCH NEXT WORD.                  CONVERT      375     A     
 CONVERT                                                                                   CONVERT      376     A     
 CONVERT   SBC3     SB3    B5+B1                                                           CONVERT      377     A     
 CONVERT            GE     B3,B2,SBC4  IF CONLIST FINISHED                                 CONVERT      378     A     
 CONVERT            BX0    X2-X3                                                           CONVERT      379     A     
 CONVERT            NZ     X0,SBC1     IF NO MATCH 2*ND WORD                               CONVERT      380     A     
 CONVERT            MI     X0,SBC1     IF NO MATCH 2*ND WORD                               CONVERT      381     A     
 CONVERT            EQ     SBC2        2*ND WORD MATCH                                     CONVERT      382     A     
 CONVERT                                                                                   CONVERT      383     A     
 CONVERT  *         FIRST WORD OF TWO WORD CONSTANT AT END OF TABLE,                       CONVERT      384     A     
 CONVERT  *         ADD SECOND WORD.                                                       CONVERT      385     A     
 CONVERT                                                                                   CONVERT      386     A     
 CONVERT   SBC4     BX6    X2          SAVE 2*ND WORD AND CA                               CONVERT      387     A     
 CONVERT            SX7    B5                                                              CONVERT      388     A     
 CONVERT            SA6    CCBH                                                            CONVERT      389     A     
 CONVERT            SA7    CCBG                                                            CONVERT      390     A     
 CONVERT            SB5    1                                                               CONVERT      391     A     
 CONVERT                                                                                   CONVERT      392     A     
 CONVERT  *         STORE SECOND WORD.                                                     CONVERT      393     A     
 CONVERT                                                                                   CONVERT      394     A     
 CONVERT   SBC5     ADDWD  CON,CCBH                                                        CONVERT      395     A     
 CONVERT            SA4    CCBG                                                            CONVERT      396     A     
 CONVERT            EQ     SBC2                                                            CONVERT      397     A     
 CONVERT                                                                                   CONVERT      398     A     
 CONVERT  *         ADD WORD TO *CON*.                                                     CONVERT      399     A     
 CONVERT                                                                                   CONVERT      400     A     
 CONVERT   SBC6     SX6    B2          CA = L.CON                                          CONVERT      401     A     
 CONVERT            SB5    B1          B5 = 1                                              CONVERT      402     A     
 CONVERT            SA6    CCBG        STORE PNT                                           CONVERT      403     A     
 CONVERT            BX7    X2                                                              CONVERT      404     A     
 CONVERT            SA7    A6+B1       STORE 2*NT WORD                                     CONVERT      405     A     
 CONVERT            ADDWD  CON,X1      ADD 1*ST WORD TO CONTAB                             CONVERT      406     A     
 CONVERT            SA4    CCBA        T1 = TYPE OF CALL                                   CONVERT      407     A     
 CONVERT            SA5    CCBF        T2 = TYPE OF CONSTANT                               CONVERT      408     A     
 CONVERT            SX6    X4-2        T1F = T1-2                                          CONVERT      409     A     
 CONVERT            SX7    X5-T.DBL    T2F = T2-T.DBL                                      CONVERT      410     A     
 CONVERT            ZR     X6,SBC5     IF CTP .EQ. 2  ADD 2*NT WORD                        CONVERT      411     A     
 CONVERT            ZR     X7,SBC5     IF TYPE .EQ. T.DBL  ADD 2*NT WORD                   CONVERT      412     A     
 CONVERT            SA4    CCBG                                                            CONVERT      413     A     
 CONVERT            EQ     SBC2                                                            CONVERT      414     A     
 CONVERT            TITLE  COC - CONVERT OCTAL CONSTANT                                    CONVERT      415     A     
 CONVERT  **        COC  -  CONVERT OCTAL CONSTANT.                                        CONVERT      416     A     
 CONVERT  *                                                                                CONVERT      417     A     
 CONVERT  *         ENTRY  (B5) = CAD, ORIGINAL CONSTOR ADDRESS.                           CONVERT      418     A     
 CONVERT  *                                                                                CONVERT      419     A     
 CONVERT  *         EXIT   (X1) = OCTAL CONSTANT.                                          CONVERT      420     A     
 CONVERT  *                                                                                CONVERT      421     A     
 CONVERT  *         ACTION 1.  SET MAX NUMBER OF DIGITS TO 20.                             CONVERT      422     A     
 CONVERT  *                2.  CONVERT CHECKING FOR CHARACTER LEGALITY.                    CONVERT      423     A     
 CONVERT  *                3.  IF FROM 2. ILLEGAL CHARACTER = 1RB, RETURN.                 CONVERT      424     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1939    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONVERT 
  
 CONVERT  *                4.  CHECK LENGTH GIVEN WITHIN LEGAL BOUNDS.                     CONVERT      425     A     
 CONVERT  *                5.  SET INFORMATIVE FLAG IF 4. IS FALSE.                        CONVERT      426     A     
 CONVERT  *                                                                                CONVERT      427     A     
 CONVERT  *         USES   A. -,1,2,-,4,-,6,-                                              CONVERT      428     A     
 CONVERT  *                B. -,1,2,3,4,5,-,7                                              CONVERT      429     A     
 CONVERT  *                X. 0,1,2,3,4,-,6,-                                              CONVERT      430     A     
 CONVERT                                                                                   CONVERT      431     A     
 CONVERT   COC      MX6    0           OCT = 0                                             CONVERT      432     A     
 CONVERT            SB2    10          WCT = 10                                            CONVERT      433     A     
 CONVERT            MX0    -6          MSK = 77B                                           CONVERT      434     A     
 CONVERT            SA1    B5          CON = CAD(I)                                        CONVERT      435     A     
 CONVERT            SB7    B2+B2       NCH = 20, NUMBER OF CHARACTERS PERMITTED            CONVERT      436     A     
 CONVERT            MX4    8                                                               CONVERT      437     A     
 CONVERT            LX4    60-1R0      ODL = OCTAL DIGIT LEFT SHIFT MASK                   CONVERT      438     A     
 CONVERT                                                                                   CONVERT      439     A     
 CONVERT  *         MAIN OCTAL CONVERSION PROCESSING LOOP  (IN STACK).                     CONVERT      440     A     
 CONVERT                                                                                   CONVERT      441     A     
 CONVERT   COC1     LX1    6           CON = SHIFT(CON,6)                                  CONVERT      442     A     
 CONVERT            BX2    -X0*X1      EXTRACT CHARACTER                                   CONVERT      443     A     
 CONVERT            SB3    X2                                                              CONVERT      444     A     
 CONVERT            LX3    B3,X4                                                           CONVERT      445     A     
 CONVERT            PL     X3,COC2     IF CHAR IS NOT AN OCTAL DIGIT                       CONVERT      446     A     
 CONVERT            SX2    B3-1R0      DIG = CHAR-1R0                                      CONVERT      447     A     
 CONVERT            LX6    3           OCT = SHIFT(OCT,3)                                  CONVERT      448     A     
 CONVERT            BX6    X2+X6       OCT = OCT+DIG                                       CONVERT      449     A     
 CONVERT            SB7    B7-B1       NDG = NDG-1                                         CONVERT      450     A     
 CONVERT            SB2    B2-B1       WCT = WCT-1                                         CONVERT      451     A     
 CONVERT            ZR     B7,COC2     IF NDG .EQ. 0  FINISHED                             CONVERT      452     A     
 CONVERT            NZ     B2,COC1     IF WCT .NE. 0  LOOP                                 CONVERT      453     A     
 CONVERT            SA1    A1+B1       I = I+1, CON = CAD(I)                               CONVERT      454     A     
 CONVERT            SB2    10          WCT = 10                                            CONVERT      455     A     
 CONVERT            EQ     COC1        LOOP                                                CONVERT      456     A     
 CONVERT                                                                                   CONVERT      457     A     
 CONVERT  *         CHECK IF LEGAL CONSTANT.                                               CONVERT      458     A     
 CONVERT                                                                                   CONVERT      459     A     
 CONVERT   COC2     BX1    X6                                                              CONVERT      460     A     
 CONVERT            SA2    CCBB                                                            CONVERT      461     A     
 CONVERT            BX7    X1                                                              CONVERT      462     A     
 CONVERT            SB4    B3-1RB                                                          CONVERT      463     A     
 CONVERT            ZR     B4,CCB3     IF CHAR .EQ. 1RB  FINISHED                          CONVERT      464     A     
 CONVERT            LX3    B3,X4                                                           CONVERT      465     A     
 CONVERT            PL     X3,CCB1     IF CHAR .NE. 1RB  FATAL ERROR                       CONVERT      466     A     
 CONVERT            SB5    B1                                                              CONVERT      467     A     
 CONVERT            SX3    X2-22                                                           CONVERT      468     A     
 CONVERT            MI     X3,CCB3     IF NDG .LE. 20  LEGAL CONSTANT                      CONVERT      469     A     
 CONVERT            SA7    CCBI                                                            CONVERT      470     A     
 CONVERT            EQ     CCB3        POST INFORMATIVE ERROR                              CONVERT      471     A     
 CONVERT            TITLE              DISPLAY                                             CONVERT      472     A     
 CONVERT  **        CHC  -  CONVERT HOLLERITH CONSTANT.                                    CONVERT      473     A     
 CONVERT  *                                                                                CONVERT      474     A     
 CONVERT  *         ENTRY  (B1) = 1                                                        CONVERT      475     A     
 CONVERT  *                                                                                CONVERT      476     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1940    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONVERT 
  
 CONVERT  *         EXIT   (B1) = 1                                                        CONVERT      477     A     
 CONVERT  *                (B5) = 1                                                        CONVERT      478     A     
 CONVERT  *                                                                                CONVERT      479     A     
 CONVERT  *         ACTION 1.  TEST FOR CONVERT ONLY OR CONVERT AND STORE.                 CONVERT      480     A     
 CONVERT  *                2.  IF CONVERT ONLY, CONVERT AND RETURN WITH                    CONVERT      481     A     
 CONVERT  *                    CONSTANT IN X1.                                             CONVERT      482     A     
 CONVERT  *                3.  IF CONVERT AND STORE, CONVERT AND CALL OHC                  CONVERT      483     A     
 CONVERT  *                    FOR OUTPUT OF CONSTANT TO  COMPS FILE.                      CONVERT      484     A     
 CONVERT  *                                                                                CONVERT      485     A     
 CONVERT  *         USES   A. -,1,2,3,-,-,6,7                                              CONVERT      486     A     
 CONVERT  *                B. 0,1,2,3,-,5,6,7                                              CONVERT      487     A     
 CONVERT  *                X. 0,1,2,3,4,5,6,7                                              CONVERT      488     A     
 CONVERT  *                                                                                CONVERT      489     A     
 CONVERT  *         CALLS  OUTUSE,SYMBOL,FA=WTC.                                           CONVERT      490     A     
 CONVERT                                                                                   CONVERT      491     A     
 CONVERT   DISPLAY  SA2    CCBA                                                            CONVERT      492     A     
 CONVERT            SA1    CCBG                                                            CONVERT      493     A     
 CONVERT            SB5    X2                                                              CONVERT      494     A     
 CONVERT            ZR     X2,DSP1     IF CONVERT AND STORE                                CONVERT      495     A     
 CONVERT                                                                                   CONVERT      496     A     
 CONVERT  *         CONVERT ONLY, RETURN CONSTANT IN X1.                                   CONVERT      497     A     
 CONVERT                                                                                   CONVERT      498     A     
 CONVERT            BX0    X1                                                              CONVERT      499     A     
 CONVERT            SA1    X1          FIRST WORD = 10HXXXXXXX                             CONVERT      500     A     
 CONVERT            AX0    18                                                              CONVERT      501     A     
 CONVERT            SX2    X0          N CHARACTERS                                        CONVERT      502     A     
 CONVERT            AX0    18                                                              CONVERT      503     A     
 CONVERT            MX7    60-2        MASK FOR ONLY PART OF TYPE FIELD                    CONVERT      504     A     
 CONVERT            SB2    X2-10                                                           CONVERT      505     A     
 CONVERT            BX3    -X7*X0      TYPE = 0 FOR H, 1 FOR L, 2 FOR R                    CONVERT      506     A     
 CONVERT            PL     B2,CONVERT  EXIT IF MORE THAN 9 CHARACTERS                      CONVERT      507     A     
 CONVERT            ZR     X3,CONVERT  EXIT  IF  H FORM                                    CONVERT      508     A     
 CONVERT                                                                                   CONVERT      509     A     
 CONVERT            IX4    X2+X2                                                           CONVERT      510     A     
 CONVERT            LX2    2                                                               CONVERT      511     A     
 CONVERT            SB3    X3          TYPE                                                CONVERT      512     A     
 CONVERT            IX5    X4+X2       N*6                                                 CONVERT      513     A     
 CONVERT            SB6    X5                                                              CONVERT      514     A     
 CONVERT            MX7    1                                                               CONVERT      515     A     
 CONVERT            SB7    B6-B1                                                           CONVERT      516     A     
 CONVERT            AX7    B7,X7       MASK(6*N)                                           CONVERT      517     A     
 CONVERT            BX1    X7*X1       REMOVE TRAILING BLANKS                              CONVERT      518     A     
 CONVERT            EQ     B3,B1,CONVERT  IF L FORM                                        CONVERT      519     A     
 CONVERT            LX1    B6,X1       RIGHT JUSTIFY                                       CONVERT      520     A     
 CONVERT            EQ     CONVERT                                                         CONVERT      521     A     
 CONVERT                                                                                   CONVERT      522     A     
 CONVERT  *         CONVERT AND STORE HOLLERITH CONSTANT.                                  CONVERT      523     A     
 CONVERT                                                                                   CONVERT      524     A     
 CONVERT   DSP1     OUTUSE HOL.                                                            CONVERT      525     A     
 CONVERT            SA1    DSPB                                                            CONVERT      526     A     
 CONVERT            NZ     X1,DSP2     IF  HOL. ALREADY IN SYMBOL TABLE                    CONVERT      527     A     
 CONVERT            SYMBOL =8RHOL.                                                         CONVERT      528     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1941    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONVERT 
  
 CONVERT            SA3    =XWB.HOL    TYPE, RL AND RB                                     CONVERT      529     A     
 CONVERT            BX7    X3+X2       TYPE = T.CGS, RL = 1, RA = 0, RB =  6               CONVERT      530     A     
 CONVERT            SA7    A2                                                              CONVERT      531     A     
 CONVERT            SX6    B1                                                              CONVERT      532     A     
 CONVERT            SA6    DSPB                                                            CONVERT      533     A     
 CONVERT            SB1    1                                                               CONVERT      534     A     
 CONVERT            WRITEC =XF.CMPS,DSPC,2                                                 CONVERT      535     A     
 CONVERT                                                                                   CONVERT      536     A     
 CONVERT  *         CALCULATE WORD COUNT AND NUMBER  OF REMAINING CHARACTERS.              CONVERT      537     A     
 CONVERT                                                                                   CONVERT      538     A     
 CONVERT   DSP2     SA1    CCBG        ELIST FOR THE CON                                   CONVERT      539     A     
 CONVERT            BX4    X1                                                              CONVERT      540     A     
 CONVERT            AX1    18                                                              CONVERT      541     A     
 CONVERT            SX2    X1          CHARACTER COUNT (CC)                                CONVERT      542     A     
 CONVERT            SX0    10D                                                             CONVERT      543     A     
 CONVERT            IX5    X2/X0       WORD COUNT (CC/10)                                  CONVERT      544     A     
 CONVERT            SX0    10D                                                             CONVERT      545     A     
 CONVERT            SB2    X5          NUMBER OF FULL WORDS                                CONVERT      546     A     
 CONVERT            IX6    X0*X5       10*(CC/10)                                          CONVERT      547     A     
 CONVERT            SX2    X1                                                              CONVERT      548     A     
 CONVERT            IX5    X2-X6       CHARACTERS REMAINING                                CONVERT      549     A     
 CONVERT            SA1    DSPB                                                            CONVERT      550     A     
 CONVERT            ZR     X5,DSP3     NO CHARACTERS REMAINING                             CONVERT      551     A     
 CONVERT            SB2    B2+B1                                                           CONVERT      552     A     
 CONVERT                                                                                   CONVERT      553     A     
 CONVERT   DSP3     SA3    =XHOL.                                                          CONVERT      554     A     
 CONVERT            SB3    B2+B1                                                           CONVERT      555     A     
 CONVERT            SX7    X3+B3       INCREASE HOL. BLOCK LENGTH                          CONVERT      556     A     
 CONVERT            LX3    30                                                              CONVERT      557     A     
 CONVERT            BX6    X3+X1                                                           CONVERT      558     A     
 CONVERT            SA7    A3                                                              CONVERT      559     A     
 CONVERT            SA6    DSPA        SAVE EXIT CONDITION                                 CONVERT      560     A     
 CONVERT            CALL   OHC         OUTPUT CONSTANT                                     CONVERT      561     A     
 CONVERT            WRITEC =XF.CMPS,DSPD,2   TERMINAL ZERO TO COMPS                        CONVERT      562     A     
 CONVERT            SB5    1                                                               CONVERT      563     A     
 CONVERT            SA1    DSPA                                                            CONVERT      564     A     
 CONVERT            EQ     CONVERT                                                         CONVERT      565     A     
 CONVERT                                                                                   CONVERT      566     A     
 CONVERT   DSPA     BSSZ   1           30/CA,30/ORD(HOL.)                                  CONVERT      567     A     
 CONVERT   DSPB     BSSZ   1           ORDINAL OF HOL.                                     CONVERT      568     A     
 CONVERT   DSPC     LIT    11CHOL. BSS 0B                                                  CONVERT      569     A     
 CONVERT   DSPD     LIT    11C  DATA 0B                                                    CONVERT      570     A     
 CONVERT   OHC      TITLE  OHC - OUTPUT HOLLERITH CONSTANT                                 CONVERT      571     A     
 CONVERT  **        OHC  -  OUTPUT HOLLERITH CONSTANT TO COMPS FILE.                       CONVERT      572     A     
 CONVERT  *                                                                                CONVERT      573     A     
 CONVERT  *         ENTRY  (B2) = NUMBER OF WHOLE WORDS TO BE OUTPUT.                      CONVERT      574     A     
 CONVERT  *                (X4) = ELIST ENTRY FOR CONSTANT.                                CONVERT      575     A     
 CONVERT  *                (X5) = NUMBER OF CHARACTERS IN LAST WORD .LT. 10.               CONVERT      576     A     
 CONVERT  *                                                                                CONVERT      577     A     
 CONVERT  *         EXIT   (B1) = 1                                                        CONVERT      578     A     
 CONVERT  *                (B5) = 1                                                        CONVERT      579     A     
 CONVERT  *                                                                                CONVERT      580     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1942    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONVERT 
  
 CONVERT  *         ACTION 1.  TRANSFER WORDS TO INTERMEDIATE BUFFER.                      CONVERT      581     A     
 CONVERT  *                2.  OUTPUT FULL WORDS, IF ANY, TO COMPS FILE.                   CONVERT      582     A     
 CONVERT  *                3.  OUTPUT PARTIAL WORD, IF ANY, TO COMPS FILE.                 CONVERT      583     A     
 CONVERT  *                                                                                CONVERT      584     A     
 CONVERT  *         USES   A. -,1,2,-,-,-,6,7                                              CONVERT      585     A     
 CONVERT  *                B. -,1,2,3,4,5,-,-                                              CONVERT      586     A     
 CONVERT  *                X. 0,1,2,3,4,5,6,7                                              CONVERT      587     A     
 CONVERT  *                                                                                CONVERT      588     A     
 CONVERT  *         CALLS  FA=WTC                                                          CONVERT      589     A     
 CONVERT                                                                                   CONVERT      590     A     
 CONVERT   OHC      ENTRY.                                                                 CONVERT      591     A     
 CONVERT            SB1    1                                                               CONVERT      592     A     
 CONVERT            BX6    X5                                                              CONVERT      593     A     
 CONVERT            SB5    X4          B5 = FWA OF  CON                                    CONVERT      594     A     
 CONVERT            SA6    OHCC                                                            CONVERT      595     A     
 CONVERT            ZR     X5,OHC1     IF NO PARTIAL WORD                                  CONVERT      596     A     
 CONVERT                                                                                   CONVERT      597     A     
 CONVERT            AX4    36                                                              CONVERT      598     A     
 CONVERT            MX0    60-2        MASK FOR ONLY PART OF TYPE FIELD                    CONVERT      599     A     
 CONVERT            LX5    6                                                               CONVERT      600     A     
 CONVERT            BX4    -X0*X4      HOLLERITH TYPE CODE                                 CONVERT      601     A     
 CONVERT            SA1    OHCD+X4     *  HOL  0X*  WHERE X = H, L OR R                    CONVERT      602     A     
 CONVERT            SB2    B2-B1                                                           CONVERT      603     A     
 CONVERT            SA2    B5+B2       FETCH PARTIAL WORD                                  CONVERT      604     A     
 CONVERT            IX6    X1+X5                                                           CONVERT      605     A     
 CONVERT            BX7    X2          SAVE PARTIAL WORD IN BUFFER                         CONVERT      606     A     
 CONVERT            SA6    A6                                                              CONVERT      607     A     
 CONVERT            SA7    A6+B1                                                           CONVERT      608     A     
 CONVERT                                                                                   CONVERT      609     A     
 CONVERT   OHC1     ZR     B2,OHC5     IF NO FULL WORDS                                    CONVERT      610     A     
 CONVERT            SB2    B5+B2       B2 = LWA+1 OF FULL WORDS                            CONVERT      611     A     
 CONVERT                                                                                   CONVERT      612     A     
 CONVERT  *         OUTPUT "  DIS   N,XXXX" STATEMENTS FOR THE FULL WORDS                  CONVERT      613     A     
 CONVERT                                                                                   CONVERT      614     A     
 CONVERT   OHC2     SB3    OHCB+1      FWA OF WORD BUFFER                                  CONVERT      615     A     
 CONVERT            SB4    OHCB+6      LWA+1 OF WORD BUFFER                                CONVERT      616     A     
 CONVERT                                                                                   CONVERT      617     A     
 CONVERT   OHC3     SA1    B5          MOVE WORDS TO DIS BUFFER                            CONVERT      618     A     
 CONVERT            SB5    B5+B1                                                           CONVERT      619     A     
 CONVERT            BX6    X1                                                              CONVERT      620     A     
 CONVERT            SA6    B3                                                              CONVERT      621     A     
 CONVERT            SB3    B3+B1                                                           CONVERT      622     A     
 CONVERT            GE     B5,B2,OHC4  IF END OF CONSTANT                                  CONVERT      623     A     
 CONVERT            LT     B3,B4,OHC3  IF .LT. 5 WORDS TRANSFERED                          CONVERT      624     A     
 CONVERT                                                                                   CONVERT      625     A     
 CONVERT   OHC4     SA1    =18L  DIS   0,                                                  CONVERT      626     A     
 CONVERT            SA2    A1+B1                                                           CONVERT      627     A     
 CONVERT            BX6    X2                                                              CONVERT      628     A     
 CONVERT            SA6    A6+B1                                                           CONVERT      629     A     
 CONVERT            SX3    B3-OHCB-1   NUMBER OF WORDS TRANSFERED                          CONVERT      630     A     
 CONVERT            LX3    6                                                               CONVERT      631     A     
 CONVERT            IX7    X1+X3                                                           CONVERT      632     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1943    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CONVERT 
  
 CONVERT            SA7    OHCB        STORE HEADER WORD                                   CONVERT      633     A     
 CONVERT            SX6    B5                                                              CONVERT      634     A     
 CONVERT            SX7    B2                                                              CONVERT      635     A     
 CONVERT            SA6    OHCA        SAVE CONSTANT LIMITS                                CONVERT      636     A     
 CONVERT            SA7    A6+B1                                                           CONVERT      637     A     
 CONVERT            WRITEC =XF.CMPS,OHCB,B3-OHCB+1                                         CONVERT      638     A     
 CONVERT            SA1    OHCA                                                            CONVERT      639     A     
 CONVERT            SA2    OHCA+1                                                          CONVERT      640     A     
 CONVERT            SB5    X1                                                              CONVERT      641     A     
 CONVERT            SB2    X2          RESTORE CONSTANT LIMITS                             CONVERT      642     A     
 CONVERT            LT     B5,B2,OHC2  IF MORE TO GO                                       CONVERT      643     A     
 CONVERT                                                                                   CONVERT      644     A     
 CONVERT  *         OUTPUT PARTIAL WORD                                                    CONVERT      645     A     
 CONVERT                                                                                   CONVERT      646     A     
 CONVERT   OHC5     SA1    OHCC                                                            CONVERT      647     A     
 CONVERT            SB5    1                                                               CONVERT      648     A     
 CONVERT            ZR     X1,OHC      IF NO PARTIAL WORD EXISTS                           CONVERT      649     A     
 CONVERT            WRITEC =XF.CMPS,A1,3  PARTIAL WORD OUTPUT                              CONVERT      650     A     
 CONVERT            SB5    1                                                               CONVERT      651     A     
 CONVERT            EQ     OHC                                                             CONVERT      652     A     
 CONVERT                                                                                   CONVERT      653     A     
 CONVERT   OHCA     BSS    2           TO SAVE THE CONSTANT LIMITS                         CONVERT      654     A     
 CONVERT   OHCB     BSS    6           7 WORD BUFFER FOR DIS N,XXX STATEMENTS              CONVERT      655     A     
 CONVERT            DATA   8L                                                              CONVERT      656     A     
 CONVERT   OHCC     DATA   28L  HOL   NX123456789                                          CONVERT      657     A     
 CONVERT   OHCD     DATA   10L  HOL   0H                                                   CONVERT      658     A     
 CONVERT            DATA   10L  HOL   0L                                                   CONVERT      659     A     
 CONVERT            DATA   10L  HOL   0R                                                   CONVERT      660     A     
 CONVERT  *CALL FSCALE                                                                     CONVERT      661     A     
 CONVERT            END                                                                    CONVERT      662     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CONVERT 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CONVERT                    662       661
          FCC1142                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA     *DECK     DATA                                                                   DATA           1     A     
 DATA               IDENT  DATA                                                            DATA           2     A     
 DATA               TITLE              DATA - PROCESS DATA STATEMENTS                      DATA           3     A     
 DATA     *CALL     SSTCALL                                                                DATA           4     A     
 DATA                                                                                      DATA           5     A     
 DATA     *         AUTHOR - S.I. JASIK - CDC/SUNNYVALE - JUNE/70                          DATA           6     A     
 DATA                                                                                      DATA           7     A     
 DATA     ***                                                                              DATA           8     A     
 DATA     *         DATA - DATA STATEMENT PROCESSOR                                        DATA           9     A     
 DATA     *                                                                                DATA          10     A     
 DATA     *         SYNTAX:                                                                DATA          11     A     
 DATA     *                DATA <DIL>,...,<DIL>                                            DATA          12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1944    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA     *                 WHERE DIL IS A DATA INITIALIZATION LIST                        DATA          13     A     
 DATA     *                <DIL> := <DVL> / <DIL> / OR ( <DVL> = <DIL> )                   DATA          14     A     
 DATA     *                 WHERE <DVL> IS A DATA VARIABLE LIST                            DATA          15     A     
 DATA     *                 AND   <DIL> IS A DATA ITEM LIST ( CONSTANTS )                  DATA          16     A     
 DATA     *                 THE SECOND SYNTAX WHICH IS NOT ANSI STANDARD IS                DATA          17     A     
 DATA     *                 REFERED TO AS THE ALTERNATE SYNTAX .                           DATA          18     A     
 DATA     *                                                                                DATA          19     A     
 DATA     *         THE SYNTAX OF THE DATA ITEM LIST ( CONSTANTS ) IS:                     DATA          20     A     
 DATA     *                                                                                DATA          21     A     
 DATA     *                <DIL> := <DIG>,...,<DIG>                                        DATA          22     A     
 DATA     *                <DIG> := <CONL> OR <RF>*(<CONL>) OR <RF>(<CONL>)                DATA          23     A     
 DATA     *                OR (<CONL>) OR <RF>*<CON>                                       DATA          24     A     
 DATA     *                <CONL> := <CON>,,,<CON>                                         DATA          25     A     
 DATA     *                <CON> := <CONSTANT> OR (<REAL CON>,<REAL CON>)                  DATA          26     A     
 DATA     *                NOTES:                                                          DATA          27     A     
 DATA     *                 (1.,2.) IS A COMPLEX CONSTANT                                  DATA          28     A     
 DATA     *                 2*(1.,2.) # 1.,2.,1.,2.                                        DATA          29     A     
 DATA     *                 2*((1.,2.)) IS 2 COMPLEX CONSTANTS                             DATA          30     A     
 DATA     *                                                                                DATA          31     A     
 DATA     *         THE SYNTAX OF A DATA VARIABLE LIST IS:                                 DATA          32     A     
 DATA     *                <DVL> := <DVG>,...,<DVG>                                        DATA          33     A     
 DATA     *                <DVG> := <VARNAME> OR <ARRAY>(<CON SUBSC>)                      DATA          34     A     
 DATA     *                OR <ARRAY> OR <DOLIST>                                          DATA          35     A     
 DATA     *                WHERE:                                                          DATA          36     A     
 DATA     *                 <VARNAME> IS THE NAME OF A SIMPLE VARIABLE                     DATA          37     A     
 DATA     *                 <ARRAY> IS THE NAME OF AN ARRAY                                DATA          38     A     
 DATA     *                 <CON SUBSC> IS A CONSTANT SUBSCRIPT EXPRESSION                 DATA          39     A     
 DATA     *                 OF THE FORM C1,C2,C3                                           DATA          40     A     
 DATA     *                 <DOLIST> IS A NEST OF DO LOOPS HAVING THE                      DATA          41     A     
 DATA     *                 SAME SYNTAX AS THOSE APPEARING IN AN I/O LIST, EXCEPT          DATA          42     A     
 DATA     *                 THAT SUBSCRIPTS ARE LIMITED TO THE FORM C1*IVAR+C2             DATA          43     A     
 DATA     *                 AND ONLY 1 NAME MAY APPEAR IN THE GROUP.                       DATA          44     A     
 DATA     *                                                                                DATA          45     A     
 DATA                                                                                      DATA          46     A     
 DATA      B=DATA   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             DATA          47     A     
 DATA               EXT    ORGTAB,ERPROI,ERPRO,ASAER,DATA.                                 DATA          48     A     
 DATA               EXT    FWAWORK,LWAWORK,RSELECT                                         DATA          49     A     
 DATA               EXT    C.BLOCK,UDATA.                                                  DATA          50     A     
 DATA               EXT    O.DIL,O.DIT,L.DIL,L.DIT                                         DATA          51     A     
 DATA                                                                                      DATA          52     A     
 DATA      DIM1     EQU    17B                                                             DATA          53     A     
 DATA      SELIST   EQU    32B                                                             DATA          54     A     
 DATA      PROGRAM  EQU    56B         PROGRAM UNIT TYPE                                   DATA          55     A     
 DATA               EJECT                                                                  DATA          56     A     
 DATA     ***                                                                              DATA          57     A     
 DATA     *         ERROR MESSAGE ORDINALS                                                 DATA          58     A     
 DATA     *                                                                                DATA          59     A     
 DATA                                                                                      DATA          60     A     
 DATA      E.CTO    EQU    36                TABLE OVERFLOW - AN FE ERROR ( ADIT )         DATA          61     A     
 DATA      E.PL     EQU    106               DBL VAR MATCH W/ SNGL CON, PREC LOST          FCC0418        6     A     
 DATA                                                                                      FCC0418        7     A     
 DATA      BEN      EQU    112               BASE ERROR NUMBER                             DATA          62     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1945    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA                                                                                      DATA          63     A     
 DATA      E.V>C    EQU    BEN         I     VAR LIST LONGER THAN CON LIST                 DATA          64     A     
 DATA      E.C>V    EQU    BEN+1       I     CON LIST LONGER THAN VAR LIST                 DATA          65     A     
 DATA      E.DNA    EQU    BEN+2             NON ANSI FORM OF DATA STMT                    DATA          66     A     
 DATA      E.DSE    EQU    BEN+3             SYNTAX ERROR ( IN RAS OR STD )                DATA          67     A     
 DATA      E.DIL    EQU    BEN+4             SYNTAX ERROR IN ITEM LIST ( BIT )             DATA          68     A     
 DATA      E.DIL1   EQU    BEN+5             ILLEGAL ITEM FOLLOWING + OR -                 DATA          69     A     
 DATA      E.DIL2   EQU    BEN+6             REP LISTS NESTED 2 DEEP                       DATA          70     A     
 DATA      E.DIL3   EQU    BEN+7             ILLEGAL SEP FOLLOWING DATA ITEM               DATA          71     A     
 DATA      E.DCE    EQU    BEN+8             ERROR IN SMALL CONSTANT ( CHKSC )             DATA          72     A     
 DATA      E.DVL1   EQU    BEN+9             ILLEGAL SEP AFTER A NAME  ( BVT )             DATA          73     A     
 DATA      E.DVL2   EQU    BEN+10            SYNTAX ERROR IN IMPLIED DO NEST               DATA          74     A     
 DATA      E.DVL3   EQU    BEN+11            DATA VAR LIST SYNTAX ERROR                    DATA          75     A     
 DATA      E.DVL4   EQU    BEN+12            NO MATCH OF LOOP INDEX AND SUBSC VAR          DATA          76     A     
 DATA      E.DVL5   EQU    BEN+13            VAR SUBS APPEARED WITHOUT LOOPS               DATA          77     A     
 DATA      E.DVL6   EQU    BEN+14            C1*IVAR+C2 .LT. 1 OR .GT. DIM(I)              DATA          78     A     
 DATA      E.DVL7   EQU    BEN+15            VAR( , VAR NOT DIMENSIONED  ( PSS )           DATA          79     A     
 DATA      E.DVL8   EQU    BEN+16            SUBSCRIPT LIST SYNTAX ERROR                   DATA          80     A     
 DATA      E.DVL9   EQU    BEN+17            A(C1,C2,C3) EXCEEDS STORAGE LIMS              DATA          81     A     
 DATA      E.TRC    EQU    BEN+19      I     CON TO LONG, TRUNCATED      ( ODI )           DATA          82     A     
 DATA      E.DVN1   EQU    BEN+20            VAR IS F.P., EXT, FUN, OR // COM              DATA          83     A     
 DATA      E.DVN2   EQU    BEN+21            ILLEGAL NAME APPEARS IN DATA STMT             DATA          84     A     
 DATA      E.DNC    EQU    326         DATA VARIABLE NOT DECLARED IN LABEL COMMON          FCC2292        9     A     
 DATA      E.IHI    EQU    320         I     HOLLERITH CONSTANT .GT. 10 CHARACTERS         FCC0537       12     A     
 DATA      E.DTC    EQU    321         A     VARIABLE/CONSTANT TYPE CONFLICT               FCC1563X      38     A     
 DATA               SPACE  2                                                               DATA          85     A     
 DATA     ***                                                                              DATA          86     A     
 DATA     *         DATA.E - FE ERROR EXIT                                                 DATA          87     A     
 DATA     *                                                                                DATA          88     A     
 DATA     *         ON ENTRY:                                                              DATA          89     A     
 DATA     *                B6 = ERROR NUMBER                                               DATA          90     A     
 DATA     *                X4 = ELIST ITEM                                                 DATA          91     A     
 DATA     *                                                                                DATA          92     A     
 DATA                                                                                      DATA          93     A     
 DATA      DTO.E    EREXIT E.CTO             NOT ENOUGH SPACE                              DATA          94     A     
 DATA               SA4    =10LPA   DATA                                                   DATA          95     A     
 DATA                                                                                      DATA          96     A     
 DATA      DATA.E   SB7    DATA3             SET RETURN ADDRESS                            DATA          97     A     
 DATA               EQ     ERPRO                                                           DATA          98     A     
 DATA                                                                                      DATA          99     A     
 DATA      DATA.N   SA4    SNAME             X4 = NAME OF LAST VARIABLE PROCESSED          DATA         100     A     
 DATA               EQ     DATA.E                                                          DATA         101     A     
 DATA               TITLE              MACROS AND LOCAL VARIABLES                          DATA         102     A     
 DATA     ***                                                                              DATA         103     A     
 DATA     *                NON ANSI EXTENSION TO THE DATA STATEMENT:                       DATA         104     A     
 DATA     *                                                                                DATA         105     A     
 DATA     *         DO LOOPS AND SUBSCRIPTS OF THE FORM C1*I+C2                            DATA         106     A     
 DATA     *                                                                                DATA         107     A     
 DATA     *         A, WHERE "A" IS AN ARRAY IS EQUIVALENT TO (A(I),I=1,PI DIMS)           DATA         108     A     
 DATA     *                                                                                DATA         109     A     
 DATA     *         HOLLERITH CONSTANTS MAY BE LONGER THAN ITEM LENGTH ( 1 OR 2            DATA         110     A     
 DATA     *         WORDS ).                                                               DATA         111     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1946    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA     *                                                                                DATA         112     A     
 DATA     *         ( VARLIST = DATALIST )  SYNTAX                                         DATA         113     A     
 DATA     *                                                                                DATA         114     A     
 DATA     *         RF*(C1,...,CN) FOR REPETITION OF A LIST OF ITEMS                       DATA         115     A     
 DATA     *                                                                                DATA         116     A     
 DATA     *         VARIABLES IN LABELED COMMON MAY BE INITIALIZED OUTSIDE A               DATA         117     A     
 DATA     *         BLOCK DATA SUBPROGRAM.                                                 DATA         118     A     
 DATA     *                                                                                DATA         119     A     
 DATA     *         THE RANGE OF AN ARRAY MAY BE EXTENDED BY EQUIVALENCING                 DATA         120     A     
 DATA     *         TO THE LENGTH OF THE EQUIVALENCE CLASS - THE ARRAY BIAS .              DATA         121     A     
 DATA     *                                                                                DATA         122     A     
 DATA      NONANSI                           NON ANSI USEAGES FLAG                         DATA         123     A     
 DATA               SPACE  3                                                               DATA         124     A     
 DATA      TBITN    MACRO  BIT,LABEL         IF( ^ BIT ) GO TO LABEL                       DATA         125     A     
 DATA               BX0    X1                                                              DATA         126     A     
 DATA               LX0    59-P.BIT                                                        DATA         127     A     
 DATA               PL     X0,LABEL                                                        DATA         128     A     
 DATA               ENDM                                                                   DATA         129     A     
 DATA                                                                                      DATA         130     A     
 DATA     ***                                                                              DATA         131     A     
 DATA     *         BMASK - FORM A BIT MASK OF ELEMENTS IN A SET FOR A LEFT SHIFT          DATA         132     A     
 DATA     *         TEST.                                                                  DATA         133     A     
 DATA     *         EXAMPLE:                                                               DATA         134     A     
 DATA     *BITMASK  BMASK  (1RC,1R$,1R*)     BIT MASK FOR C $ AND *                        DATA         135     A     
 DATA     *         SA1    BITMASK           BIT MASK FOR ELEMENTS                         DATA         136     A     
 DATA     *         SB1    ELEMENT                                                         DATA         137     A     
 DATA     *         LX1    B1,X1                                                           DATA         138     A     
 DATA     *         NG     X1,IN.SET         IF ELEMENT IS IN THE SET                      DATA         139     A     
 DATA     *                                                                                DATA         140     A     
 DATA                                                                                      DATA         141     A     
 DATA               MACRO  BMASK,LOC,P                                                     DATA         142     A     
 DATA               USE    MASKS                                                           DATA         143     A     
 DATA      LOC      BSS    0                                                               DATA         144     A     
 DATA               IRP    P                                                               DATA         145     A     
 DATA               POS    60-P                                                            DATA         146     A     
 DATA               VFD    1/1                                                             DATA         147     A     
 DATA               IRP                                                                    DATA         148     A     
 DATA               POS    0                                                               DATA         149     A     
 DATA               BSS    0                                                               DATA         150     A     
 DATA               USE    *                                                               DATA         151     A     
 DATA               ENDM                                                                   DATA         152     A     
 DATA               EJECT                                                                  DATA         153     A     
 DATA     *CALL     PARSEM                                                                 DATA         154     A     
 DATA     *CALL     FMACDEF                                                                DATA         155     A     
 DATA               TITLE              STORAGE AND FLAGS                                   DATA         156     A     
 DATA               USE    /DAT.FMT/                                                       DATA         157     A     
 DATA     ***                                                                              DATA         158     A     
 DATA     *         TABLE FORMATS                                                          DATA         159     A     
 DATA     *                                                                                DATA         160     A     
 DATA     *                                                                                DATA         161     A     
 DATA     *         DIL - DATA INITIALIZATION LIST POINTERS                                DATA         162     A     
 DATA     *          FORMAT:  24/0,18/FWA OF DVL,18/FWA OF DIL                             DATA         163     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1947    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA     *         BUILT BY A BACKWARDS SCAN OF THE DATA STATEMENT                        DATA         164     A     
 DATA     *                                                                                DATA         165     A     
 DATA                                                                                      DATA         166     A     
 DATA      O.CELLS  BSS    0                 FWA OF CONTROL CELLS FOR A LIST               DATA         167     A     
 DATA      REPFLAG                           REP FLAG                                      DATA         168     A     
 DATA      CLOSREP                           CLOSE REP FLAG                                DATA         169     A     
 DATA      N.ITEM                            NUMBER OF DATA ITEMS                          DATA         170     A     
 DATA      PL                                PAREN LEVEL                                   DATA         171     A     
 DATA                                                                                      DATA         172     A     
 DATA     *         GNI                                                                    DATA         173     A     
 DATA                                                                                      DATA         174     A     
 DATA      I.DIT    BSS    3                 1 - ORDINAL OF NEXT I]EM IN DIT               DATA         175     A     
 DATA     *                            2 - NUMBER OF ITEMS REMAINING IN REP LIST           DATA         176     A     
 DATA     *                            3 - ORDINAL OF FIRST DATA I]EM IN REP LIST          DATA         177     A     
 DATA                                                                                      FCC0537       13     A     
 DATA      WC.HOL   BSS    1                 HOL. CONSTANT .GT. 1 FLAG                     FCC0537       14     A     
 DATA      TC.HOL   BSS    1                 TRUNCATE HOL. FLAG                            FCC0537       15     A     
 DATA      EL.HOL   BSS    1                 ELIST ADDRESS FOR CONSTANT                    FCC0537       16     A     
 DATA      EL.CNS   BSS    1                 ELIST ENTRY FOR CONSTANT                      FCC0537       17     A     
 DATA      LI.HOL   BSS    1                 LAST ISSUE HOLLERITH FLAG                     FCC0537       18     A     
 DATA      N.CELLS  EQU    *-O.CELLS                                                       DATA         178     A     
 DATA                                                                                      DATA         179     A     
 DATA      TEMP     BSS    2                 SOME TEMPORARIES                              DATA         180          I
          -FCC0537
 DATA      TEMP     BSS    3                 SOME TEMPORARIES                              FCC0537       19     A     
 DATA                                                                                      DATA         181     A     
 DATA     *         BVT                                                                    DATA         182     A     
 DATA                                                                                      DATA         183     A     
 DATA      DVT      BSS    2                 DVT WORDS - SET BY PDV                        DATA         184     A     
 DATA      LPINF    BSS    3                 DO LOOP INDEX INFO                            DATA         185     A     
 DATA      BIAS                              ACCUMULATED BIAS DUE TO SUBSC CALC            DATA         186     A     
 DATA      LL                                LOWER LIMIT                                   DATA         187     A     
 DATA      UL                                UPPER LIMIT                                   DATA         188     A     
 DATA      INC                               INCREMENT                                     DATA         189     A     
 DATA      SUBN                              NUMBER OF SUBSCRIPT IN ARRAY                  DATA         190     A     
 DATA                                                                                      DATA         191     A     
 DATA     *         PSS                                                                    DATA         192     A     
 DATA                                                                                      DATA         193     A     
 DATA      SST      BSS    0                                                               DATA         194     A     
 DATA      CON1     BSS    3                 CON1(I) - CONSTANT MULTIPLIERS                DATA         195     A     
 DATA      INDX     BSS    3                 IVAR(I)                                       DATA         196     A     
 DATA      CON2     BSS    3                 CON2(I) - CONSTANT ADDENDS                    DATA         197     A     
 DATA      SIGN     BSS    3                 SIGN(I)                                       DATA         198     A     
 DATA      LSST     EQU    *-SST                                                           DATA         199     A     
 DATA      N.SUBS                            NUMBER OF SUBSCRIPTS                          DATA         200     A     
 DATA      N.VSUB                            NUMBER OF VARIABLE SUBS                       DATA         201     A     
 DATA               EJECT                                                                  DATA         202     A     
 DATA     *         MDL                                                                    DATA         203     A     
 DATA                                                                                      DATA         204     A     
 DATA      ORGI                              ORG COUNTER INCREMENT                         DATA         205     A     
 DATA     *                                  = NUMBER OF DATA WORDS PUT OUT BY ODI         DATA         206     A     
 DATA                                                                                      DATA         207     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1948    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA     *         OIC                                                                    DATA         208     A     
 DATA                                                                                      DATA         209     A     
 DATA      B                                 LOCAL COPY OF BIAS                            DATA         210     A     
 DATA      DA                                ADDRESS DIFFERENCE                            DATA         211     A     
 DATA      T                                 TRIP COUNT                                    DATA         212     A     
 DATA      MP                                MULTIPLIER ( DA*RL )                          DATA         213     A     
 DATA      RL                                NUMBER OF ITEMS IN A REP LIST                 DATA         214     A     
 DATA      N                                 NUMBER OF TIMES WE CAN TRAVERSE A             DATA         215     A     
 DATA     *                                  REP LIST                                      DATA         216     A     
 DATA      LI       BSSZ   3                 TEMPORARIES USED AS LOOP INDICES              DATA         217     A     
 DATA      TMP      BSS    2                 2 TEMPORARIES                                 DATA         218     A     
 DATA      DLEN     EQU    TMP+1                                                           DATA         219     A     
 DATA               USE    *                                                               DATA         220     A     
 DATA               SPACE  3                                                               DATA         221     A     
 DATA     *         PDV                                                                    DATA         222     A     
 DATA                                                                                      DATA         223     A     
 DATA      SNAME                             ELIST OF LAST VARIABLE PROCESSED              DATA         224     A     
 DATA      ORD                               VALUE OF SYMTAB ORDINAL                       DATA         225     A     
 DATA      SDPF                              0 IF SINGLE PRECISION , 1 IF DOUBLE           DATA         226     A     
 DATA      EEL                               EQUIVALENCE EXTENDED LENGTH                   DATA         227     A     
 DATA     *                                  = CLASS LENGTH - ARRAY BIAS                   DATA         228     A     
 DATA      N.DIMS                            NUMBER OF DIMENSIONS                          DATA         229     A     
 DATA      DIM      BSS    3                 DIM1,DIM2,DIM3                                DATA         230     A     
 DATA                                                                                      DATA         231     A     
 DATA      DIM.MUL  DATA   1,0               1 , DIM1 , DIM1*DIM2                          DATA         232     A     
 DATA      D1D2                              DIM1*DIM2 ( SET IF N.DIMS = 3 )               DATA         233     A     
 DATA                                                                                      DATA         234     A     
 DATA     *         NOTE:  ELEMENTS OF THE ARRAY DIM.MUL ARE FREQUENTLY                    DATA         235     A     
 DATA     *         REFERED TO AS "DM(J)" . THE DM(J) ARE THE DIMENSIONAL                  DATA         236     A     
 DATA     *         MULTIPLIERS FOR SUBSCRIPT CALCULATIONS.                                DATA         237     A     
 DATA      INFDIAG  BSS    1           FLAG FOR POSTPONED INF DIAG                         FCCA549        6     A     
 DATA               TITLE              MAIN LOOP                                           DATA         238     A     
 DATA      DATA     ENTRY.                                                                 DATA         239     A     
 DATA               RJ     RAS               REMOVE ALTERNATE SYNTAX  (V=C)                DATA         240     A     
 DATA     *                                  AND INITIALIZE                                DATA         241     A     
 DATA                                                                                      DATA         242     A     
 DATA      DATA1    SA1    O.DIL                                                           DATA         243     A     
 DATA               SX7    -N.CELLS                                                        DATA         244     A     
 DATA               MX6    0                                                               DATA         245     A     
 DATA               SA6    O.CELLS           CLEAR OUT CONTROL CELLS                       DATA         246     A     
 DATA     +         SA6    A6+B5                                                           DATA         247     A     
 DATA               SX7    X7+B5                                                           DATA         248     A     
 DATA               NG     X7,*                                                            DATA         249     A     
 DATA               SA6    L.DIT                                                           DATA         250     A     
 DATA                                                                                      DATA         251     A     
 DATA     *         CONVERT THE ITEM LIST TO INTERNAL FORM                                 DATA         252     A     
 DATA                                                                                      DATA         253     A     
 DATA               SA2    L.DIL                                                           DATA         254     A     
 DATA               IX3    X1+X2             TOP OF STACK + 1                              DATA         255     A     
 DATA               SA5    X3-1              VAR AND CON LIST POINTERS                     DATA         256     A     
 DATA               SA4    X5                INITIALIZE FOR CON LIST PROCESSING            DATA         257     A     
 DATA               AX5    18                                                              DATA         258     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1949    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SX6    X5                                                              DATA         259     A     
 DATA               SA6    TMP               SAVE VAR LIST POINTER                         DATA         260     A     
 DATA               SA5    SELIST                                                          DATA         261     A     
 DATA               RJ     BIT               BUILD DATA ITEM ( CON ) TABLE                 DATA         262     A     
 DATA                                                                                      DATA         263     A     
 DATA     *         PROCESS THE VARIABLE LIST AND MATCH IT UP WITH THE ITEM LIST           DATA         264     A     
 DATA                                                                                      DATA         265     A     
 DATA               SA3    TMP                                                             DATA         266     A     
 DATA               SA5    SELIST                                                          DATA         267     A     
 DATA               BX6    X6-X6                                                           DATA         268     A     
 DATA               SA4    X3                INITIALIZE POINTERS                           DATA         269     A     
 DATA               SA6    I.DIT                                                           DATA         270     A     
 DATA               RJ     BVT               PROCESS VARIABLE LIST                         DATA         271     A     
 DATA                                                                                      DATA         272     A     
 DATA     *         ISSUE INFORMATIVE DIAGNOSTICS IF LISTS NOT THE SAME LENGTH             DATA         273     A     
 DATA                                                                                      DATA         274     A     
 DATA               SA1    N.ITEM                                                          DATA         275          I
          -FCC0537
 DATA               ZR     X1,DATA2          IF LISTS MATCH                                DATA         276          I
          -FCC0537
 DATA               SB7    DATA2                                                           DATA         277          I
          -FCC0537
 DATA               SB6    -E.V>C                                                          DATA         278          I
          -FCC0537
 DATA               NG     X1,ERPROI         IF MORE VARIABLES THEN CONSTANTS              DATA         279          I
          -FCC0537
 DATA               SB6    -E.C>V                                                          DATA         280          I
          -FCC0537
 DATA               EQ     ERPROI            FLAG FACT THAT CON LIST > VAR LIST            DATA         281          I
          -FCC0537
 DATA               SA1    LI.HOL                                                          FCC0537       20     A     
 DATA               SA2    WC.HOL                                                          FCC0537       21     A     
 DATA               SA3    TC.HOL                                                          FCC0537       22     A     
 DATA               PL     X1,DATA1A         IF HOLLERITH NOT LAST ISSUE                   FCC0537       23     A     
 DATA               ZR     X2,DATA1A         IF NO ILLEGAL HOLL. INITIALIZATION            FCC0537       24     A     
 DATA               PL     X3,DATA4          IF NO TRUNCATE MESSAGE ISSUED                 FCC0537       25     A     
 DATA                                                                                      FCC0537       26     A     
 DATA      DATA1A   SA3    N.ITEM                                                          FCC0537       27     A     
 DATA               SA4    WC.HOL                                                          FCC0537       28     A     
 DATA               IX5    X3+X4                                                           FCC0537       29     A     
 DATA               ZR     X3,DATA2          IF LISTS MATCH                                FCC0537       30     A     
 DATA               ZR     X5,DATA2          IF INITIALIZED BY DEFAULT                     FCC0537       31     A     
 DATA               MI     X3,DATA5          IF MORE VARIABLES THAN CONSTANTS              FCC0537       32     A     
 DATA               SA1    EL.HOL            GET FIRST UNINITIALIZED CONSTANT              FCC0537       33     A     
 DATA               SA2    X1-2                                                            FCC0537       34          I
          -FCC0732
 DATA               SA2    X1                                                              FCC0732        5     A     
 DATA               BX7    X2                                                              FCC0537       35     A     
 DATA               SA7    EL.CNS                                                          FCC0537       36     A     
 DATA               EQ     DATA6             MORE CONSTANTS THAN VARIABLES                 FCC0537       37     A     
 DATA                                                                                      DATA         282     A     
 DATA      DATA2    SA1    L.DIL                                                           DATA         283     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1950    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SX6    X1-1              L.DIL = L.DIL - 1                             DATA         284     A     
 DATA               SA6    A1                                                              DATA         285     A     
 DATA               NZ     X6,DATA1          IF MORE DIL"S TO GO                           DATA         286     A     
 DATA                                                                                      DATA         287     A     
 DATA      DATA3    SA1    NONANSI                                                         DATA         288     A     
 DATA               BX6    X6-X6                                                           DATA         289     A     
 DATA               SA6    L.DIL             FREE ANY TABLE SPACE LEFT                     DATA         290     A     
 DATA               ZR     X1,DATA           IF NO NON ANSI USEAGES                        DATA         291     A     
 DATA               SB6    -E.DNA                                                          DATA         292     A     
 DATA               SB7    DATA              FLAG NON ANSI USEAGES                         DATA         293     A     
 DATA               EQ     ASAER                                                           DATA         294     A     
 DATA                                                                                      FCC0537       38     A     
 DATA      DATA4    POSTER NR=E.IHI,SEV=INF,FMT=ELIST,TXT=EL.CNS,RETURN=DATA1A             FCC0537       39     A     
 DATA                                                                                      FCC0537       40     A     
 DATA      DATA5    POSTER NR=E.V>C,SEV=INF,FMT=ELIST,TXT=SNAME,RETURN=DATA2               FCC0537       41     A     
 DATA                                                                                      FCC0537       42     A     
 DATA      DATA6    POSTER NR=E.C>V,SEV=INF,FMT=ELIST,TXT=EL.CNS,RETURN=DATA2              FCC0537       43     A     
 DATA               TITLE              RAS - REMOVE ALTERNATE SYNTAX                       DATA         295     A     
 DATA      EL.LP    EQU    EL.(              LEFT PAREN                                    DATA         296     A     
 DATA      EL.RP    EQU    EL.)                                                            DATA         297     A     
 DATA      EL.BOS   EQU    EL.EOS            BEGINNING OF STMT MARKER                      DATA         298     A     
 DATA      EL.PLUS  EQU    EL.MINUS+1        USED BY BIT TO MAP SIGN INTO -0 OR 0          DATA         299     A     
 DATA                                                                                      DATA         300     A     
 DATA      SCANTO   MACRO  DELIM                                                           DATA         301     A     
 DATA               LOCAL  X                                                               DATA         302     A     
 DATA      X        BMASK  (DELIM)                                                         DATA         303     A     
 DATA               SA5    X                                                               DATA         304     A     
 DATA               RJ     STD                                                             DATA         305     A     
 DATA               ENDM                                                                   DATA         306     A     
 DATA                                                                                      DATA         307     A     
 DATA               PURGMAC   REPLACE                                                      DATA         308     A     
 DATA      REPLACE  MACRO  OP                                                              DATA         309     A     
 DATA               SX6    OP+2000B                                                        DATA         310     A     
 DATA               LX6    48                                                              DATA         311     A     
 DATA               SA6    A4                                                              DATA         312     A     
 DATA               ENDM                                                                   DATA         313     A     
 DATA                                                                                      DATA         314     A     
 DATA     ***                                                                              DATA         315     A     
 DATA     *         RAS - REMOVE ALTERNATE SYNTAX                                          DATA         316     A     
 DATA     *                SCAN DATA STMT BACKWARD AND FORM TABLE OF FWA OF DIL            DATA         317     A     
 DATA     *                AND DVL"S. CHANGE DATA INITIALIZATION LISTS OF THE              DATA         318     A     
 DATA     *                FORM "( DVL = DIL )" TO "DVL / DIL /" .                         DATA         319     A     
 DATA     *                INITIALIZE TABLE POINTERS, ETC FOR FURTHER PROCESSING.          DATA         320     A     
 DATA     *                                                                                DATA         321     A     
 DATA     *         NOTE:  THIS SUBROUTINE IS A MISTAKE. I ORIGINALLY THOUGHT              DATA         322     A     
 DATA     *         THAT ONE COULD FIND THE BEGINNING OF THE CON AND VAR LISTS BY          DATA         323     A     
 DATA     *         A SIMPLE BACKWARDS SCAN OF THE STMT. TO SEE THAT THIS IS NOT           DATA         324     A     
 DATA     *         TRUE CONSIDER:  DATA (A=1),B/2/ .                                      DATA         325     A     
 DATA     *         HENCE THE PRESENT VERSION DISALLOWS INTERMIXING SYNTAXS.               DATA         326     A     
 DATA     *                                                                                DATA         327     A     
 DATA                                                                                      DATA         328     A     
 DATA      RAS      ENTRY. *                                                               DATA         329     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1951    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               BX6    X6-X6                                                           DATA         330     A     
 DATA               SA6    L.DIT                                                           DATA         331     A     
 DATA               SA6    L.DIL             RESET TABLE LENGTHS                           DATA         332     A     
 DATA               SA2    LWAWORK                                                         DATA         333     A     
 DATA               SA3    SELIST                                                          DATA         334     A     
 DATA               SX7    2000B+EL.BOS                                                    DATA         335     A     
 DATA               LX7    48                                                              DATA         336     A     
 DATA               SA7    X3+B5             (SELIST+1) = BEGIN OF STMT OPERATOR           DATA         337     A     
 DATA               SA4    X2                A4,X4 = NEXT ITEM PTR AND NEXT ITEM           DATA         338     A     
 DATA               MX6    0                                                               DATA         339     A     
 DATA               SA6    NONANSI           CLEAR NON ANSI USEAGE FLAG                    DATA         340     A     
 DATA                                                                                      DATA         341     A     
 DATA      RAS1     SA4    A4+B5                                                           DATA         342     A     
 DATA               UX1    B2,X4             NEXTE                                         DATA         343     A     
 DATA               IF.NE  EL.SLASH,RAS3     IF NOT A /                                    DATA         344     A     
 DATA                                                                                      DATA         345     A     
 DATA     *         STANDARD SYNTAX                                                        DATA         346     A     
 DATA                                                                                      DATA         347     A     
 DATA               SA5    M.SLASH                                                         DATA         348     A     
 DATA               RJ     STD         SCAN TO SLASH                                       DATA         349     A     
 DATA               SX7    A4                                                              DATA         350     A     
 DATA               SA7    SW1               SAVE A4                                       DATA         351     A     
 DATA               ADDWD  DIL,X7            ADD THE ADDRESS TO THE DIL                    DATA         352     A     
 DATA               SA5    SW1                                                             DATA         353     A     
 DATA               SA4    X5                RESTORE A4                                    DATA         354     A     
 DATA               SA5    M.BOVL                                                          DATA         355     A     
 DATA               RJ     STD         SCAN TO BOS OR SLASH                                DATA         356     A     
 DATA               SB6    B5                                                              DATA         357     A     
 DATA               IF.NE  EL.BOS,RAS2       IF NOT BOS                                    DATA         358     A     
 DATA               SB6    B0                                                              DATA         359     A     
 DATA      RAS2     SX7    A4-B6             POINTER TO BEGIN OF VAR LIST                  DATA         360     A     
 DATA               LX7    18                                                              DATA         361     A     
 DATA               BX6    X7+X6             DVL, CON LIST TO DIT                          DATA         362     A     
 DATA               SA6    A6                REPLACE THE DIT ENTRY                         DATA         363     A     
 DATA               SA4    A4-B5             BACKE  1                                      DATA         364     A     
 DATA               UX1    B2,X4                                                           DATA         365     A     
 DATA               ZR     B6,RAS1           IF BOS                                        DATA         366     A     
 DATA               IF.EQ  EL.COMMA,RAS1     LOOP IF A ,                                   DATA         367     A     
 DATA               BX2    X4          SAVE OFFENDING ITEM                                 DATA         368     A     
 DATA               SA4    A4+B5       BACK TO SLASH                                       DATA         369     A     
 DATA               EQ     RAS.E2                                                          DATA         370     A     
 DATA                                                                                      DATA         371     A     
 DATA      RAS3     IF.NE  EL.),RAS4         IF NO )                                       DATA         372     A     
 DATA                                                                                      DATA         373     A     
 DATA     *         ALTERNATE SYNTAX - CONVERT TO STANDARD SYNTAX                          DATA         374     A     
 DATA                                                                                      DATA         375     A     
 DATA               REPLACE  EL.SLASH        REPLACE ) WITH /                              DATA         376     A     
 DATA               SCANTO EL.=              FIND BEGINNING OF CON LIST                    DATA         377     A     
 DATA               SX7    A4                                                              DATA         378     A     
 DATA               SA7    SW1               SAVE A4                                       DATA         379     A     
 DATA               SA7    NONANSI           SET NON ANSI USEAGE FLAG                      DATA         380     A     
 DATA               REPLACE  EL.SLASH        REPLACE = "S WITH /                           DATA         381     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1952    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               ADDWD  DIL,X7            ADD TO THE DIL                                DATA         382     A     
 DATA               SA5    SW1                                                             DATA         383     A     
 DATA               SA4    X5                RESTORE A4                                    DATA         384     A     
 DATA               SCANTO EL.LP             FIND BEGINNING OF VAR LIST                    DATA         385     A     
 DATA               SX7    A4                                                              DATA         386     A     
 DATA               LX7    18                                                              DATA         387     A     
 DATA               BX6    X7+X6                                                           DATA         388     A     
 DATA               SA6    A6                REPLACE DIT ENTRY                             DATA         389     A     
 DATA               SA4    A4+B5                                                           DATA         390     A     
 DATA               UX1    B2,X4             NEXTE                                         DATA         391     A     
 DATA               IF.EQ  EL.COMMA,RAS1     LOOP IF A COMMA                               DATA         392     A     
 DATA               IF.EQ  EL.BOS,RAS        EXIT IF BOS                                   DATA         393     A     
 DATA                                                                                      DATA         394     A     
 DATA      RAS.E    EREXIT E.DSE             DATA STMT SYNTAX ERROR                        DATA         395     A     
 DATA               EQ     DATA.E                                                          DATA         396     A     
 DATA                                                                                      DATA         397     A     
 DATA      RAS.E2   SA5    M.SLASH                                                         DATA         398     A     
 DATA               RJ     STD         SCAN TO SLASH                                       DATA         399     A     
 DATA               SA5    M.BOVL                                                          DATA         400     A     
 DATA               RJ     STD         SCAN TO BOS OR SLASH                                DATA         401     A     
 DATA               IF.NE  EL.BOS,RAS.E2     IF MORE LISTS TO PROCESS                      DATA         402     A     
 DATA               BX4    X2          ERROR IS MISSING COMMA                              DATA         403     A     
 DATA               EQ     BVT.E3      SYNTAX ERROR IN VARIABLE LIST                       DATA         404     A     
 DATA                                                                                      DATA         405     A     
 DATA      RAS4     IF.NE  EL.BOS,RAS.E      ERROR IF NOT BOS                              DATA         406     A     
 DATA               SA3    L.DIL                                                           DATA         407     A     
 DATA               NZ     X3,RAS            IF NOT AN EMPTY DATA STMT                     DATA         408     A     
 DATA                                                                                      DATA         409     A     
 DATA      RAS5     EREXIT -E.DSE                                                          DATA         410     A     
 DATA               EQ     DATA.E                                                          DATA         411     A     
 DATA                                                                                      DATA         412     A     
 DATA      M.SLASH  BMASK  (EL.SLASH)                                                      DATA         413     A     
 DATA      M.BOVL   BMASK  (EL.BOS,EL.SLASH)     BEGINNING OF VARIABLE LIST                DATA         414     A     
 DATA               EJECT                                                                  DATA         415          I
          -FCC0537
 DATA      STD      SPACE  3,4                                                             FCC0537       44     A     
 DATA     ***                                                                              DATA         416     A     
 DATA     *         STD - SCAN TO DELIMETER, PERFORM A PARENTHESIS CHECK                   DATA         417     A     
 DATA     *                                                                                DATA         418     A     
 DATA     *         ENTRY:                                                                 DATA         419     A     
 DATA     *                X5 = DELIMETER BIT MASK                                         DATA         420     A     
 DATA     *                A4 = FWA-1 OF LIST                                              DATA         421     A     
 DATA     *                                                                                DATA         422     A     
 DATA     *         EXIT:                                                                  DATA         423     A     
 DATA     *                A4 = POINTER TO DELIMETER                                       DATA         424     A     
 DATA     *                B2 = ELIST OPCODE OF DELIMETER                                  DATA         425     A     
 DATA     *                                                                                DATA         426     A     
 DATA      STD      ENTRY. *                                                               DATA         427     A     
 DATA                                                                                      DATA         428     A     
 DATA               SB3    EL.(                                                            DATA         429     A     
 DATA               SB4    EL.)                                                            DATA         430     A     
 DATA               SB6    EL.BOS                                                          DATA         431     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1953    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SB1    B0                B1 = PAREN COUNT                              DATA         432     A     
 DATA                                                                                      DATA         433     A     
 DATA      STD1     SA4    A4+B5                                                           DATA         434     A     
 DATA               UX1    B2,X4             NEXTE                                         DATA         435     A     
 DATA               LE     B2,B5,STD1        SKIP CONS AND VARS                            DATA         436     A     
 DATA               NE     B2,B4,STD2        IF NOT A )                                    DATA         437     A     
 DATA               SB1    B1+B5             PC = PC+1                                     DATA         438     A     
 DATA               EQ     STD1                                                            DATA         439     A     
 DATA                                                                                      DATA         440     A     
 DATA      STD2     LX3    B2,X5             POSITION DELIMETER MASK                       DATA         441     A     
 DATA               NE     B2,B3,STD3        IF NOT A (                                    DATA         442     A     
 DATA               SB1    B1-B5             PC = PC-1                                     DATA         443     A     
 DATA               PL     B1,STD1           LOOP IF PC \ 0                                DATA         444     A     
 DATA               NG     X3,STD            EXIT IF ( IS A DELIMETER                      DATA         445     A     
 DATA               EQ     RAS.E             SYNTAX ERROR ( NEGATIVE PAREN COUNT )         DATA         446     A     
 DATA                                                                                      DATA         447     A     
 DATA      STD3     PL     X3,STD4           IF NOT THE DELIM WE WANT                      DATA         448     A     
 DATA               ZR     B1,STD            EXIT IF PAREN COUNT = 0                       DATA         449     A     
 DATA               EQ     RAS.E             GO FLAG ERROR                                 DATA         450     A     
 DATA                                                                                      DATA         451     A     
 DATA      STD4     NE     B2,B6,STD1        LOOP IF NOT BOS                               DATA         452     A     
 DATA               EQ     RAS5              GO FLAG THE ERROR                             DATA         453     A     
 DATA               TITLE              BIT - BUILD DATA ITEM TABLE                         DATA         454     A     
 DATA     ***                                                                              DATA         455     A     
 DATA     *         BIT - BUILD DATA ITEM TABLE                                            DATA         456     A     
 DATA     *                SCAN THE ITEM LIST AND CONVERT IT INTO INTERNAL FORMAT:         DATA         457     A     
 DATA     *                                                                                DATA         458     A     
 DATA     *                CONSTANTS ARE REPRESENTATED AS:                                 DATA         459     A     
 DATA     *                 1/0,1/HOL FLAG,22/0,18/INDEX,18/WORD COUNT                     DATA         460          I
          -FCC0537
 DATA     *                 1/0,1/HF,18/EA,4/NC,18/IX,18/WC                                FCC0537       45     A     
 DATA     *                 WHERE:-    HF - HOLLERITH FLAG.                                FCC0537       46     A     
 DATA     *                            EA - ELIST ADDRESS OF ITEM.                         FCC0537       47     A     
 DATA     *                            NC - NUMBER OF CHARACTERS IN LAST WORD.             FCC0537       48          I
          -FCC1563X 
 DATA     *                            NC - HF = 1, NUMBER OF CHARS IN LAST WORD.          FCC1563X      39     A     
 DATA     *                                 HF = 0, CONSTANT TYPE.                         FCC1563X      40     A     
 DATA     *                            IX - INDEX.                                         FCC0537       49     A     
 DATA     *                            WC - WORD COUNT.                                    FCC0537       50     A     
 DATA     *                 FOLLOWED BY WC WORDS OF DATA FOR NON HOLLERITH CONSTAN         DATA         461     A     
 DATA     *                 FOR HOL CONSTANTS THE NEXT WORD CONTAINS THE ELIST             DATA         462     A     
 DATA     *                                                                                DATA         463     A     
 DATA     *                REPETITION COUNTS ARE REPRESENTED AS:                           DATA         464     A     
 DATA     *                 1/1,5/CIF,18/RL,18/INDEX TO NEXT GROUP,18/REP COUNT            DATA         465     A     
 DATA     *                 CIF = 1 OR 2 IF ALL ITEMS ARE THE SAME LENGTH, AND             DATA         466     A     
 DATA     *                 LENGTH IS 1 OR 2 WORDS , ELSE 0                                DATA         467     A     
 DATA     *                 RL = NUMBER OF ITEMS IN THE REP LIST                           DATA         468     A     
 DATA     *                                                                                DATA         469     A     
 DATA                                                                                      DATA         470     A     
 DATA      BIT      ENTRY. *                                                               DATA         471     A     
 DATA                                                                                      DATA         472     A     
 DATA      BIT.L    NEXTE                    NEXT ELIST ITEM                               DATA         473     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1954    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SA3    M.CON                                                           DATA         474     A     
 DATA               MX6    0                                                               FCC0537       51     A     
 DATA               LX7    B2,X3                                                           DATA         475     A     
 DATA               SA6    WC.HOL            CLEAR HOLLERITH WORD COUNT                    FCC0537       52     A     
 DATA               PL     X7,BIT.E          IF NOT CON + - OR (                           DATA         476     A     
 DATA               SB1    B2                                                              DATA         477     A     
 DATA               ZR     B1,BIT2           IF A CONSTANT                                 DATA         478     A     
 DATA               SB3    EL.(                                                            DATA         479     A     
 DATA               EQ     B1,B3,BIT6        IF A (                                        DATA         480     A     
 DATA                                                                                      DATA         481     A     
 DATA     *         + OR - SIGN                                                            DATA         482     A     
 DATA                                                                                      DATA         483     A     
 DATA               NEXTE                    NEXT ELIST ITEM                               DATA         484     A     
 DATA               IF.NE  CON,BIT.E1        IF NO CONSTANT FOLLOWING                      DATA         485     A     
 DATA               SX7    B1-EL.PLUS        0 IF + , -1 IF -                              DATA         486     A     
 DATA               AX7    1                 0 IF + , -0 IF - SIGN                         DATA         487     A     
 DATA                                                                                      DATA         488     A     
 DATA      BIT1     RJ     ADDCON            ADD CONSTANT TO DIT                           DATA         489     A     
 DATA               SA3    N.ITEM                                                          DATA         490     A     
 DATA               SX6    X3+B5             N.ITEM = N.ITEM+1                             DATA         491     A     
 DATA               SA6    A3                                                              DATA         492     A     
 DATA               EQ     BIT.S                                                           DATA         493     A     
 DATA                                                                                      DATA         494     A     
 DATA     *         CONSTANT                                                               DATA         495     A     
 DATA                                                                                      DATA         496     A     
 DATA      BIT2     SA2    A4-B5             LOOK AHEAD                                    DATA         497     A     
 DATA               SA3    M.SEP                                                           DATA         498     A     
 DATA               UX0    B2,X2                                                           DATA         499     A     
 DATA               MX7    0                                                               DATA         500     A     
 DATA               LX6    B2,X3                                                           DATA         501     A     
 DATA               NG     X6,BIT1           IF NEXT IS , ) OR /                           DATA         502     A     
 DATA               SA3    REPFLAG                                                         DATA         503     A     
 DATA               NZ     X3,BIT.E          IF WE ARE WITHIN A REP LOOP                   DATA         504     A     
 DATA                                                                                      DATA         505     A     
 DATA               SX7    B5                SET TO CLOSE ON )                             DATA         506     A     
 DATA               IF.NE  EL.STAR,BIT3      IF NOT CON*                                   DATA         507     A     
 DATA                                                                                      DATA         508     A     
 DATA               NEXTE  2                 LOOK PAST *                                   DATA         509     A     
 DATA               IF.EQ  EL.(,BIT4         IF A (                                        DATA         510     A     
 DATA               SX7    -B5               SET FOR SINGLE ELEMENT REP                    DATA         511     A     
 DATA               EQ     BIT5                                                            DATA         512     A     
 DATA                                                                                      DATA         513     A     
 DATA      BIT3     IF.NE  EL.(,BIT.E        SYNTAX ERROR IF NOT A (                       DATA         514     A     
 DATA      BIT4     SA7    NONANSI           SET NON ANSI USEAGE FLAG                      DATA         515     A     
 DATA                                                                                      DATA         516     A     
 DATA      BIT5     SX6    A2+B5             BACKOFF AND SAVE ELIST POINTER                DATA         517     A     
 DATA               SA6    A5                                                              DATA         518     A     
 DATA               SA7    CLOSREP                                                         DATA         519     A     
 DATA               RJ     CHKSC             CHECK CONSTANT AND CONVERT                    DATA         520     A     
 DATA                                                                                      DATA         521     A     
 DATA               MX0    1                                                               DATA         522     A     
 DATA               BX6    X0+X6             CONSTRUCT ENTRY FOR ADIT                      DATA         523     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1955    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SB1    B0                                                              DATA         524     A     
 DATA               RJ     ADIT                                                            DATA         525     A     
 DATA                                                                                      DATA         526     A     
 DATA               SA1    N.ITEM                                                          DATA         527     A     
 DATA               SA2    L.DIT                                                           DATA         528     A     
 DATA               SX6    X2                                                              DATA         529     A     
 DATA               LX1    18                                                              DATA         530     A     
 DATA               BX6    X1+X6                                                           DATA         531     A     
 DATA               SA6    REPFLAG           SAVE ITEM COUNT AND POINTER                   DATA         532     A     
 DATA               MX7    0                                                               DATA         533     A     
 DATA               SA7    A1                CLEAR ITEM FLAG                               DATA         534     A     
 DATA               GETE                     RESTORE REGISTERS                             DATA         535     A     
 DATA               EQ     BIT.L             AND LOOP TO PROCESS REP LIST                  DATA         536     A     
 DATA                                                                                      DATA         537     A     
 DATA     *         ( - START OF A REPEATED DATA LIST OR A COMPLEX CONSTANT                DATA         538     A     
 DATA                                                                                      DATA         539     A     
 DATA      BIT6     SA1    PL                PARENTHESIS LEVEL                             DATA         540     A     
 DATA               SA2    CLOSREP                                                         DATA         541     A     
 DATA               SX7    X1+B5             PL = PL+1                                     DATA         542     A     
 DATA               SA7    A1                                                              DATA         543     A     
 DATA               IX3    X2-X7                                                           DATA         544     A     
 DATA               ZR     X3,BIT.L          IF ( IS A REP BRACKET                         DATA         545     A     
 DATA                                                                                      DATA         546     A     
 DATA     *         CHECK FOR A COMPLEX CONSTANT                                           DATA         547     A     
 DATA                                                                                      DATA         548     A     
 DATA               RJ     CFCD              CHECK FOR A COMPLEX CONSTANT                  DATA         549     A     
 DATA               ZR     X0,BIT7           IF IT IS                                      DATA         550     A     
 DATA               SA1    PL                                                              DATA         551     A     
 DATA               AX2    B5,X1                                                           DATA         552     A     
 DATA               ZR     X2,BIT.L          IF A MEANINGLESS PAREN                        DATA         553     A     
 DATA               EQ     BIT.E2            ERROR - 2 NESTED PAREN GROUPS                 DATA         554     A     
 DATA                                                                                      DATA         555     A     
 DATA      BIT7     SA3    DIT.CMPX          DIT HEADER WORD                               DATA         556     A     
 DATA               SA4    SELIST                                                          FCC0732        6     A     
 DATA               SX7    X4+4                                                            FCC0732        7     A     
 DATA               SA4    PL                                                              DATA         557     A     
 DATA               BX6    X3                                                              DATA         558          I
          -FCC0732
 DATA               LX7    40                                                              FCC0732        8     A     
 DATA               BX6    X3+X7                                                           FCC0732        9     A     
 DATA               SX7    X4-1              DECREMENT PAREN COUNT                         DATA         559     A     
 DATA               SA7    A4                                                              DATA         560     A     
 DATA               SB1    B5+B5                                                           DATA         561     A     
 DATA               RJ     ADIT              ADD CONSTANT TO DIT                           DATA         562     A     
 DATA               SA1    N.ITEM                                                          DATA         563     A     
 DATA               SX6    X1+B5             N.ITEM = N.ITEM+1                             DATA         564     A     
 DATA               SA6    A1                                                              DATA         565     A     
 DATA               GETE                     POINT PAST )                                  DATA         566     A     
 DATA     *         EQ     BIT.S             PROCESS SEPERATOR                             DATA         567     A     
 DATA                                                                                      DATA         568     A     
 DATA     *         PROCESS SEPERATOR AFTER CONSTANT                                       DATA         569     A     
 DATA                                                                                      DATA         570     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1956    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA                                                                                      DATA         571     A     
 DATA      BIT.S    SA1    CLOSREP                                                         DATA         572     A     
 DATA               PL     X1,BIT.S1         IF NO SINGLE ELEMENT REP OUTSTANDING          DATA         573     A     
 DATA               RJ     CRL                                                             DATA         574     A     
 DATA                                                                                      DATA         575     A     
 DATA      BIT.S1   IF.EQ  EL.COMMA,BIT.L    LOOP IF A ,                                   DATA         576     A     
 DATA               IF.EQ  EL.SLASH,BIT      EXIT IF A /                                   DATA         577     A     
 DATA               IF.NE  EL.),BIT.E3       ERROR IF NOT A )                              DATA         578     A     
 DATA               MX7    0                                                               DATA         579     A     
 DATA               SA7    PL                CLEAR PAREN LEVEL                             DATA         580     A     
 DATA               SA1    CLOSREP                                                         FCC0522        9     A     
 DATA               ZR     X1,BIT.S2         IF NO REP LIST TO CLOSE                       DATA         581     A     
 DATA               RJ     CRL               CLOSE IT                                      DATA         582     A     
 DATA                                                                                      DATA         583     A     
 DATA      BIT.S2   NEXTE                    NEXT ELEMENT                                  DATA         584     A     
 DATA               EQ     BIT.S                                                           DATA         585     A     
 DATA               SPACE  3                                                               DATA         586     A     
 DATA      DIT.CMPX VFD    24/0,18/3,18/2                                                  DATA         587     A     
 DATA      HOL.DIT  VFD    2/1,22/0,18/2,18/0                                              DATA         588     A     
 DATA      M.SEP    BMASK  (EL.COMMA,EL.RP,EL.SLASH)   , ) AND /                           DATA         589     A     
 DATA      M.CON    BMASK  (0,EL.LP,EL.MINUS,EL.PLUS)  CON ( + AND -                       DATA         590     A     
 DATA               SPACE  3                                                               DATA         591     A     
 DATA     *         BIT ERROR EXITS                                                        DATA         592     A     
 DATA                                                                                      DATA         593     A     
 DATA      BIT.E    EREXIT E.DIL             SYNTAX ERROR                                  DATA         594     A     
 DATA               EQ     DATA.E                                                          DATA         595     A     
 DATA                                                                                      DATA         596     A     
 DATA      BIT.E1   EREXIT E.DIL1            ILLEGAL ITEM FOLLOWING + OR -                 DATA         597     A     
 DATA               EQ     DATA.E                                                          DATA         598     A     
 DATA                                                                                      DATA         599     A     
 DATA      BIT.E2   EREXIT E.DIL2            2 NESTED REP LISTS                            DATA         600     A     
 DATA               EQ     DATA.E                                                          DATA         601     A     
 DATA                                                                                      DATA         602     A     
 DATA      BIT.E3   EREXIT E.DIL3            ILLEGAL ITEM FOLLOWING CON                    DATA         603     A     
 DATA               EQ     DATA.E                                                          DATA         604     A     
 DATA      CRL      EJECT                                                                  DATA         605     A     
 DATA     ***                                                                              DATA         606     A     
 DATA     *         CRL - CLOSE OUT REP LIST                                               DATA         607     A     
 DATA     *                                                                                DATA         608     A     
 DATA     *         ON ENTRY:                                                              DATA         609     A     
 DATA     *                A1,X1 = CLOSREP                                                 DATA         610     A     
 DATA     *                                                                                DATA         611     A     
 DATA      CRL2     SX0    B4                                                              DATA         612     A     
 DATA               LX0    54                POSITION ITEM LENGTH                          DATA         613     A     
 DATA               BX6    X0+X6                                                           DATA         614     A     
 DATA               SA6    A6                STORE UPDATED REP WORD IN DIT                 DATA         615     A     
 DATA                                                                                      DATA         616     A     
 DATA      CRL      ENTRY. *                                                               DATA         617     A     
 DATA               SA2    REPFLAG                                                         DATA         618     A     
 DATA               MX7    0                                                               DATA         619     A     
 DATA               SA7    A1                CLEAR FLAGS                                   DATA         620     A     
 DATA               SA7    A2                                                              DATA         621     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1957    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA                                                                                      DATA         622     A     
 DATA               SA3    O.DIT                                                           DATA         623     A     
 DATA               IX2    X2+X3             ADD DIT BASE TO ORDINAL                       DATA         624     A     
 DATA               SA1    X2-1              WORD 1 OF REP ENTRY IN DIT                    DATA         625     A     
 DATA               SA3    N.ITEM            NUMBER OF ITEMS IN REP LIST                   DATA         626     A     
 DATA               AX2    18                SAVED TOTAL OF ITEMS                          DATA         627     A     
 DATA               SB6    X3                B6 = NUMBER OF ITEMS IN LIST                  DATA         628     A     
 DATA               PX7    X3                                                              DATA         629          I
          -FCC0522
 DATA               SX0    X1                REMOVE REP FLAG BIT                           DATA         630          I
          -FCC0522
 DATA               PX6    X0                                                              DATA         631          I
          -FCC0522
 DATA               DX6    X6*X7             RF * N.ITEMS                                  DATA         632          I
          -FCC0522
 DATA               UX6    X6                                                              DATA         633          I
          -FCC0522
 DATA               SX0    X1                REMOVE REP FLAG BIT                           FCC0522       10     A     
 DATA               IX6    X0*X3             RF * N.ITEMS                                  FCC0522       11     A     
 DATA               IX7    X6+X2                                                           DATA         634     A     
 DATA               SA7    A3                                                              DATA         635     A     
 DATA                                                                                      DATA         636     A     
 DATA               LX3    36                                                              DATA         637     A     
 DATA               BX6    X3+X1             ADD NUMBER OF ITEMS TO WORD 1                 DATA         638     A     
 DATA                                                                                      DATA         639     A     
 DATA               SA2    O.DIT                                                           DATA         640     A     
 DATA               SA3    L.DIT                                                           DATA         641     A     
 DATA               IX2    X2+X3                                                           DATA         642     A     
 DATA               SX0    A1                                                              DATA         643     A     
 DATA               IX7    X2-X0                                                           DATA         644     A     
 DATA               LX7    18                SHIFT INDEX TO NEXT GROUP                     DATA         645     A     
 DATA               BX6    X7+X6                                                           DATA         646     A     
 DATA               SA6    A1                UPDATE WORD 1                                 DATA         647     A     
 DATA                                                                                      DATA         648     A     
 DATA     *         SEARCH FOR AND MARK REP LISTS WHERE ALL ITEMS ARE THE SAME             DATA         649     A     
 DATA     *         LENGTH AND LENGTH = 1 OR 2 .                                           DATA         650     A     
 DATA                                                                                      DATA         651     A     
 DATA               SA2    A1+B5                                                           DATA         652     A     
 DATA               SB4    X2                NUMBER OF WORDS IN FIRST ITEM                 DATA         653     A     
 DATA               SB3    B4-B5                                                           DATA         654     A     
 DATA               GT     B3,B5,CRL         IF WC > 2                                     DATA         655     A     
 DATA                                                                                      DATA         656     A     
 DATA      CRL1     AX2    18                                                              DATA         657     A     
 DATA               SB6    B6-B5                                                           DATA         658     A     
 DATA               ZR     B6,CRL2           IF END OF REP LIST                            DATA         659     A     
 DATA               SB2    X2                                                              DATA         660          I
          -FCC0522
 DATA               SA2    A2+B2             FIRST WORD OF NEXT ITEM                       DATA         661          I
          -FCC0522
 DATA               SB3    X2                                                              FCC0522       12     A     
 DATA               SA2    A2+B3                                                           FCC0522       13     A     
 DATA               SB3    X2                                                              DATA         662     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1958    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               EQ     B3,B4,CRL1        LOOP IF ITEMS HAVE THE SAME LENGTH            DATA         663     A     
 DATA               EQ     CRL                                                             DATA         664     A     
 DATA      CFCD     EJECT                                                                  DATA         665     A     
 DATA     ***                                                                              DATA         666     A     
 DATA     *         CFCD - CHECK FOR COMPLEX DATA ITEM                                     DATA         667     A     
 DATA     *                                                                                DATA         668     A     
 DATA     *         ON ENTRY:                                                              DATA         669     A     
 DATA     *                A4 - POINTS TO (                                                DATA         670     A     
 DATA     *                                                                                DATA         671     A     
 DATA     *         ON EXIT:                                                               DATA         672     A     
 DATA     *                X0 = 0 IF A COMPLEX CON IS DETECTED AND                         DATA         673     A     
 DATA     *                X1,X2 = REAL AND IMAGINARY PARTS OF CONVERTED CONSTANT          DATA         674     A     
 DATA     *                SELIST POINTER UPDATED TO POINT PAST )                          DATA         675     A     
 DATA     *                X0 " 0 IF NOT AND A4,X4 UNTOUCHED                               DATA         676     A     
 DATA     *                                                                                DATA         677     A     
 DATA                                                                                      DATA         678     A     
 DATA      CFCD     ENTRY. *                                                               DATA         679          I
          -FCC0787
 DATA      CFCD     ENTRY. **                                                              FCC0787      133     A     
 DATA               SA3    A4-B5                                                           DATA         680     A     
 DATA               MX0    1                 SET FOR FAILURE                               DATA         681     A     
 DATA               UX1    B2,X3                                                           DATA         682     A     
 DATA               MX7    0                 SET FOR + SIGN                                DATA         683     A     
 DATA               SB4    B2-EL.MINUS                                                     DATA         684     A     
 DATA               EQ     B4,B5,CFCD1       IF +                                          DATA         685     A     
 DATA               NZ     B4,CFCD2          IF NOT -                                      DATA         686     A     
 DATA               MX7    60                                                              DATA         687     A     
 DATA      CFCD1    NEXTE  3                 NEXT ITEM                                     DATA         688     A     
 DATA      CFCD2    IF.NE  CON,CFCD          EXIT IF NOT A CON                             DATA         689     A     
 DATA               AX1    45                                                              DATA         690     A     
 DATA               BX6    X3                                                              DATA         691     A     
 DATA               SX2    X1-T.REAL                                                       DATA         692     A     
 DATA               NZ     X2,CFCD           IF NOT A REAL CONSTANT                        DATA         693     A     
 DATA               NEXTE  3                                                               DATA         694     A     
 DATA               IF.NE  EL.COMMA,CFCD     IF NOT A ,                                    DATA         695     A     
 DATA               SA6    TEMP              SAVE ELIST FOR REAL PART                      DATA         696     A     
 DATA               SA7    A6+B5             AND SIGN                                      DATA         697     A     
 DATA               NEXTE  3                                                               DATA         698     A     
 DATA               MX7    0                                                               DATA         699     A     
 DATA               IF.EQ  EL.PLUS,CFCD3     IF A +                                        DATA         700     A     
 DATA               IF.NE  EL.MINUS,CFCD4    IF NOT -                                      DATA         701     A     
 DATA               MX7    60                                                              DATA         702     A     
 DATA      CFCD3    NEXTE  3                                                               DATA         703     A     
 DATA      CFCD4    IF.NE  CON,CFCD          IF NOT A CONSTANT                             DATA         704     A     
 DATA               AX1    45                                                              DATA         705     A     
 DATA               SX2    X1-T.REAL                                                       DATA         706     A     
 DATA               NZ     X2,CFCD           IF NOT A REAL CONSTANT                        DATA         707     A     
 DATA               NEXTE  3                                                               DATA         708     A     
 DATA               IF.NE  EL.),CFCD         IF NO )                                       DATA         709     A     
 DATA                                                                                      DATA         710     A     
 DATA               UPDATE 3                 SUCCESS, UPDATE ELIST POINTER                 DATA         711          I
          -FCC0787
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1959    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SX6    A3-B5                                                           FCC0787      134     A     
 DATA               SA6    SELIST      SUCCESS, UPDATE ELIST POINTER                       FCC0787      135     A     
 DATA               SA1    TEMP              CON                                           DATA         712     A     
 DATA               SA7    A1                SAVE SIGN OF SECOND                           DATA         713     A     
 DATA               SB1    -B5                                                             DATA         714     A     
 DATA               CALL   CONVERT           CONVERT REAL PART TO BINARY                   DATA         715     A     
 DATA               SA2    TEMP+1            SIGN OF FIRST                                 DATA         716     A     
 DATA               BX6    X1-X2                                                           DATA         717     A     
 DATA               SA6    A2                SAVE REAL PART                                DATA         718     A     
 DATA               SA3    SELIST                                                          DATA         719     A     
 DATA               SA1    X3+2              IMAGINARY PART                                DATA         720     A     
 DATA               SB1    -B5                                                             DATA         721     A     
 DATA               CALL   CONVERT                                                         DATA         722     A     
 DATA               SA3    TEMP                                                            DATA         723     A     
 DATA               BX2    X1-X3             ADD SIGN                                      DATA         724     A     
 DATA               SA1    A3+B5             REAL PART                                     DATA         725     A     
 DATA               MX0    0                 SET FLAG                                      DATA         726     A     
 DATA               EQ     CFCD                                                            DATA         727     A     
 DATA      CHKSC    SPACE  3                                                               DATA         728     A     
 DATA     ***                                                                              DATA         729     A     
 DATA     *         CHKSC - CHECK SMALL CONSTANT                                           DATA         730     A     
 DATA     *                CHECKS CONSTANT FOR PROPER TYPE (INTEGER OR OCTAL )             DATA         731     A     
 DATA     *                AND MAGNITUDE ( 0 < CON < 2**17 )                               DATA         732     A     
 DATA     *                                                                                DATA         733     A     
 DATA     *         ON ENTRY:                                                              DATA         734     A     
 DATA     *                X4 = ELIST FOR CONSTANT                                         DATA         735     A     
 DATA     *                                                                                DATA         736     A     
 DATA     *         ON EXIT:                                                               DATA         737     A     
 DATA     *                X6 = CONVERTED CONSTANT                                         DATA         738     A     
 DATA     *                                                                                DATA         739     A     
 DATA                                                                                      DATA         740     A     
 DATA      CHKSC    ENTRY. *                                                               DATA         741     A     
 DATA               UX6    X4                                                              DATA         742     A     
 DATA               SA6    TEMP                                                            DATA         743     A     
 DATA               AX6    45                POSITION TYPE FIELD                           DATA         744     A     
 DATA               SB2    X6                                                              DATA         745     A     
 DATA               EQ     B2,B5,CHKSC1      IF TYPE INTEGER                               DATA         746     A     
 DATA               SB3    B2-T.OCT                                                        DATA         747     A     
 DATA               NZ     B3,CHKSC.E        IF NOT OCTAL                                  DATA         748     A     
 DATA                                                                                      DATA         749     A     
 DATA      CHKSC1   SB1    -B5                                                             DATA         750     A     
 DATA               BX1    X4                                                              DATA         751     A     
 DATA               CALL   CONVERT                                                         DATA         752     A     
 DATA               BX6    X1                                                              DATA         753     A     
 DATA               AX1    17                                                              DATA         754     A     
 DATA               ZR     X6,CHKSC.E        IF 0                                          DATA         755     A     
 DATA               ZR     X1,CHKSC          EXIT IF .LT. 2**17-1                          DATA         756     A     
 DATA                                                                                      DATA         757     A     
 DATA      CHKSC.E  EREXIT E.DCE             CON NOT TYPE INTEGER OR OCT OR                DATA         758     A     
 DATA               SA3    TEMP              CON = 0 OR .GT. 2**17-1                       DATA         759     A     
 DATA               PX4    X3                                                              DATA         760     A     
 DATA               EQ     DATA.E                                                          DATA         761     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1960    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA      ADDCON   EJECT                                                                  DATA         762     A     
 DATA     ***                                                                              DATA         763     A     
 DATA     *         ADDCON - ADD CONSTANT TO "DIT"                                         DATA         764     A     
 DATA     *                                                                                DATA         765     A     
 DATA     *         ON ENTRY:                                                              DATA         766     A     
 DATA     *                X1,X4,A4,A5 SET UP TO CONSTANT BY MACRO "NEXTE"                 DATA         767     A     
 DATA     *                X7 = -0 IF CON PRECEEDED BY - SIGN , ELSE 0                     DATA         768     A     
 DATA     *                                                                                DATA         769     A     
 DATA     *         ON EXIT:                                                               DATA         770     A     
 DATA     *                X1,X4,A4,A5 RESTORED BY A CALL TO MACRO "GETE"                  DATA         771     A     
 DATA     *                                                                                DATA         772     A     
 DATA                                                                                      DATA         773     A     
 DATA      ADDCON1  SX6    X1-T.DBL                                                        DATA         774          I
          -FCC1563X 
 DATA      ADDCON1  SX6    X1                                                              FCC1563X      41     A     
 DATA               SA6    TEMP              SAVE CONSTANT TYPE                            DATA         775     A     
 DATA               SA7    A6+B5             AND SIGN                                      DATA         776     A     
 DATA               BX1    X4                                                              DATA         777     A     
 DATA               CALL   CONVERT           CONVERT TO BINARY                             DATA         778     A     
 DATA               SA3    TEMP                                                            DATA         779     A     
 DATA               SA4    A3+B5             SIGN                                          DATA         780     A     
 DATA               BX1    X1-X4                                                           DATA         781     A     
 DATA               SX7    X3-T.DBL                                                        FCC1563X      42     A     
 DATA               SX6    B5                WORD COUNT                                    DATA         782     A     
 DATA               LX3    36          POSITION CONSTANT TYPE                              FCC1563X      43     A     
 DATA               SA7    A3          RESET TEMP                                          FCC1563X      44     A     
 DATA               NZ     X3,ADDCON2        IF NOT DOUBLE                                 DATA         783          I
          -FCC1563X 
 DATA               NZ     X7,ADDCON2  IF NOT DOUBLE                                       FCC1563X      45     A     
 DATA               SX6    B5+B5             WC = 2                                        DATA         784     A     
 DATA               BX2    X2-X4                                                           DATA         785     A     
 DATA      ADDCON2  SX0    X6+B5             INDEX = WC+1                                  DATA         786     A     
 DATA               BX6    X6+X3       ADD IN CONSTANT TYPE                                FCC1563X      46     A     
 DATA               LX0    18                                                              DATA         787     A     
 DATA               SA3    EL.HOL            SET ELIST POINTER IN BIT FIELD                FCC0537       53     A     
 DATA               BX6    X0+X6                                                           DATA         788     A     
 DATA               LX3    40                                                              FCC0537       54     A     
 DATA               SB1    X6                WORD COUNT FOR ADIT                           DATA         789     A     
 DATA               BX6    X6+X3                                                           FCC0537       55     A     
 DATA                                                                                      DATA         790     A     
 DATA      ADDCON3  RJ     ADIT              ADD X6,X1 AND X2 TO CON TABLE                 DATA         791     A     
 DATA               GETE                     RESTORE REGISTERS                             DATA         792     A     
 DATA      ADDCON   ENTRY. *                                                               DATA         793     A     
 DATA               UPDATE                                                                 DATA         794     A     
 DATA               AX1    45                POSITION CON TYPE                             DATA         795     A     
 DATA               SB1    -B5                                                             DATA         796     A     
 DATA               SX2    X1-T.HOL                                                        DATA         797     A     
 DATA               SX6    A4                STORE ELIST ADDRESS TEMPORARILY               FCC0537       56     A     
 DATA               SA6    EL.HOL                                                          FCC0537       57     A     
 DATA               NZ     X2,ADDCON1        IF NOT HOLLERITH                              DATA         798     A     
 DATA                                                                                      DATA         799     A     
 DATA               BX1    X4                PROCESS HOLLERITH CONSTANT                    DATA         800     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1961    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               AX4    18                                                              DATA         801     A     
 DATA               SB1    9                                                               DATA         802     A     
 DATA               SX2    X4+B1                                                           DATA         803     A     
 DATA               SX0    B1+B5                                                           DATA         804     A     
 DATA               SA3    HOL.DIT           DIT HEADER WORD                               DATA         805     A     
 DATA               IX2    X2/X0             WC = (CC+9)/10                                DATA         806     A     
 DATA               SB7    X7                                                              FCC0537       58          I
          -FCC1512X 
 DATA               SB7    X7-0                                                            FCC1512X       7     A     
 DATA               SX7    A4                                                              FCC0537       59     A     
 DATA               BX6    X3+X2                                                           DATA         807     A     
 DATA               LX7    40                                                              FCC0537       60     A     
 DATA               BX6    X6+X7                                                           FCC0537       61     A     
 DATA               SX7    X2-1                                                            FCC0537       62     A     
 DATA               SX4    X4                CHAR COUNT                                    DATA         808     A     
 DATA               SX0    B1+B5                                                           DATA         809     A     
 DATA               SA7    WC.HOL            SET WC.HOL FLAG                               FCC0537       63     A     
 DATA               IX2    X0*X2                                                           DATA         810     A     
 DATA               IX5    X4-X2             CC-10*WC                                      DATA         811     A     
 DATA               SB1    B5                                                              DATA         812     A     
 DATA               NG     X7,ADDCONH        IF CON IS PRECEEDED BY A - SIGN               DATA         813          I
          -FCC0537
 DATA               MI     B7,ADDCONH        IF CON IS PRECEDED BY A - SIGN                FCC0537       64     A     
 DATA               ZR     X5,ADDCON3        IF CC IS A MULTIPLE OF 10                     DATA         814     A     
 DATA               SX5    X5+10D                                                          DATA         815     A     
 DATA               LX5    36                                                              DATA         816     A     
 DATA               BX6    X5+X6             SAVE NUMBER OF CHARS IN LAST WORD             DATA         817     A     
 DATA               EQ     ADDCON3                                                         DATA         818     A     
 DATA                                                                                      DATA         819     A     
 DATA     *         -CON - COMPLEMENT CONSTOR ENTRY AND ADJUST LAST WORD                   DATA         820     A     
 DATA                                                                                      DATA         821     A     
 DATA      ADDCONH  SB2    X1                FWA OF CON                                    DATA         822     A     
 DATA               BX4    X1                                                              DATA         823     A     
 DATA               SB3    B2+X6             LWA+1                                         DATA         824     A     
 DATA               MX0    60-2        MASK FOR ONLY PART OF TYPE FIELD                    DATA         825     A     
 DATA     +         SA2    B2                                                              DATA         826     A     
 DATA               BX7    -X2                                                             DATA         827     A     
 DATA               SB2    B2+B5             I = I+1                                       DATA         828     A     
 DATA               SA7    A2                                                              DATA         829     A     
 DATA               LT     B2,B3,*-1                                                       DATA         830     A     
 DATA               ZR     X5,ADDCON3        IF NO PARTIAL WORD                            DATA         831     A     
 DATA                                                                                      DATA         832     A     
 DATA               AX4    36                                                              DATA         833     A     
 DATA               BX3    -X0*X4            HOL TYPE                                      DATA         834     A     
 DATA               ZR     X3,ADDCON3        IF H FORMAT                                   DATA         835     A     
 DATA               SX5    X5+10D                                                          DATA         836     A     
 DATA               LX5    1                                                               DATA         837     A     
 DATA               SB4    X3                                                              DATA         838     A     
 DATA               LX7    B5,X5                                                           DATA         839     A     
 DATA               MX0    1                                                               DATA         840     A     
 DATA               IX4    X5+X7             6*CHAR IN LAST WORD                           DATA         841     A     
 DATA               SB3    X4-1                                                            DATA         842     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1962    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               AX0    B3,X0                                                           DATA         843     A     
 DATA               BX2    X0*X2             REMOVE TRAILING BLANKS                        DATA         844     A     
 DATA               EQ     B4,B5,ADDCONH1    IF L FORMAT                                   DATA         845     A     
 DATA               SB3    B3+B5                                                           DATA         846     A     
 DATA               LX2    B3,X2             R FORMAT - RIGHT JUSTIFY LAST WORD            DATA         847     A     
 DATA      ADDCONH1 BX7    -X2                                                             DATA         848     A     
 DATA               SA7    A7                                                              DATA         849     A     
 DATA               EQ     ADDCON3                                                         DATA         850     A     
 DATA               SPACE  3                                                               DATA         851     A     
 DATA     ***                                                                              DATA         852     A     
 DATA     *         ADIT - ADD WORDS TO DIT TABLE                                          DATA         853     A     
 DATA     *                                                                                DATA         854     A     
 DATA     *         ON ENTRY:                                                              DATA         855     A     
 DATA     *                X6,X1,X2 = WORDS TO BE ADDED                                    DATA         856     A     
 DATA     *                B1 = NUMBER OF WORDS - 1 TO BE ADDED                            DATA         857     A     
 DATA     *                X6 IS ALWAYS ADDED                                              DATA         858     A     
 DATA     *                                                                                DATA         859     A     
 DATA                                                                                      DATA         860     A     
 DATA      ADIT     ENTRY. *                                                               DATA         861     A     
 DATA               BX7    X1                                                              DATA         862     A     
 DATA               SA7    SW1               SAVE WORD 2                                   DATA         863     A     
 DATA               BX1    X6                SETUP FOR ADDWD CALL                          DATA         864     A     
 DATA               LX6    X2                                                              DATA         865     A     
 DATA               SA6    SW2               SAVE WORD 3                                   DATA         866     A     
 DATA               SX7    B1                                                              DATA         867     A     
 DATA               SA7    SW3               SAVE WORD COUNT                               DATA         868     A     
 DATA               ADDWD  DIT               ADD THE FIRST WORD TO THE DIT                 DATA         869     A     
 DATA               SA2    SW3                                                             DATA         870     A     
 DATA               ZR     X2,ADIT           IF ONE WORD TO ADD                            DATA         871     A     
 DATA               SA1    SW1                                                             DATA         872     A     
 DATA               ADDWD  DIT               ADD 2ND WORD TO DIT                           DATA         873     A     
 DATA               SA2    SW3                                                             DATA         874     A     
 DATA               AX2    1                                                               DATA         875     A     
 DATA               ZR     X2,ADIT           IF 2 WORDS REQUESTED                          DATA         876     A     
 DATA               SA1    SW2                                                             DATA         877     A     
 DATA               ADDWD  DIT               ADD WORD 3 TO DIT                             DATA         878     A     
 DATA               EQ     ADIT                                                            DATA         879     A     
 DATA                                                                                      DATA         880     A     
 DATA               USE    /MACBUF/                                                        DATA         881     A     
 DATA      SW1      BSS    1                 SAVED WORDS FOR ADIT                          DATA         882     A     
 DATA      SW2      BSS    1                                                               DATA         883     A     
 DATA      SW3      BSS    1                                                               DATA         884     A     
 DATA               USE    *                                                               DATA         885     A     
 DATA               TITLE  BVT - PROCESS DATA VARIABLE LIST                                DATA         886     A     
 DATA     ***                                                                              DATA         887     A     
 DATA     *         BVT - PROCESS DATA VARIABLE LIST                                       DATA         888     A     
 DATA     *                SCANS DATA VARIABLE LIST AND BUILDS A "DVT" ENTRY FOR           DATA         889     A     
 DATA     *                ITEM, FORMAT:                                                   DATA         890     A     
 DATA     *                 1/0,1/SDPF,1/ORGF,1/DDD,20/0,18/SYMORD,18/EQUIV BIAS           DATA         891          I
          -FCC1563X 
 DATA     *                 24/0,18/LENGTH,18/ITEM COUNT                                   DATA         892          I
          -FCC1563X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1963    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA     *                                                                                FCC1563X      47     A     
 DATA     *         1/0,1/SDPF,1/ORGF,1/DDD,14/0,6/CTYP,18/SYMORD,18/EQUIV BIAS            FCC1563X      48     A     
 DATA     *         24/0,18/LENGTH,18/ITEM COUNT                                           FCC1563X      49     A     
 DATA     *                                                                                DATA         893     A     
 DATA     *                WHERE:                                                          DATA         894     A     
 DATA     *                 SDPF = 0 IF SINGLE PRECISION , ELSE 1                          DATA         895     A     
 DATA     *                 ORGF = 1 IF WE ISSUED STORAGE IN DPCLOSE FOR THE VAR           DATA         896     A     
 DATA     *                 DDD = 1 IF PREVIOUS APPEARENCES IN A DATA STMT                 DATA         897     A     
 DATA     *                 LENGTH = AMOUNT OF STORAGE ASSIGNED TO THE VAR                 DATA         898     A     
 DATA     *                 ITEM COUNT = NUMBER OF ITEMS                                   DATA         899     A     
 DATA     *                                                                                DATA         900     A     
 DATA     *                IN THE CASE THAT EXPLICIT DO LOOPS APPEAR, THEY ARE             DATA         901     A     
 DATA     *                REDUCED TO THE FORM:                                            DATA         902     A     
 DATA     *                 6/P,18/M(P),18/T(I),18/DIM(P)                                  DATA         903     A     
 DATA     *                (((A(M1*I1,M2*I2,M3*I3),I = 1,T1),J = 1,T2),K = 1,T3)           DATA         904     A     
 DATA     *                WHERE I1 I2 I3 IS SOME PERMUTATION OF I,J AND K .               DATA         905     A     
 DATA     *                THE ADDITIONAL BIAS IS STORED IN THE BIAS FIELD                 DATA         906     A     
 DATA     *                AND SUBSCRIPT WORDS OF THE FORM:                                DATA         907     A     
 DATA     *                ARE APPENDED, WHERE:                                            DATA         908     A     
 DATA     *                 P = ORDER OF APPEARENCE IN SUBSCRIPT EXPR                      DATA         909     A     
 DATA     *                 M(P) = MULTIPLIER                                              DATA         910     A     
 DATA     *                 T(I) = UPPER LIMIT = TRIP COUNT FOR LOOP                       DATA         911     A     
 DATA     *                 DIM(P) = P"TH DIMENSION OF THE ARRAY                           DATA         912     A     
 DATA     *                                                                                DATA         913     A     
 DATA     *                                                                                DATA         914     A     
 DATA     *         IF THE DATA VARIABLE LIST IS LONGER THAN THE DATA ITEM LIST,           DATA         915     A     
 DATA     *         -BVT- RETURNS TO THE CALLER AFTER ISSUING AN INFORMATIVE               DATA         916     A     
 DATA     *         DIAGNOSTIC.  N.ITEM IS ZEROED TO PREVENT ISSUING THE MESSAGE           DATA         917     A     
 DATA     *         -VAR LIST .GT. CON LIST- TWICE.  THE -DATA.- BLOCK LENGTH IS           DATA         918     A     
 DATA     *         NOT INCREMENTED, NOR IS STORAGE ISSUED TO -COMPS-, FOR THOSE           DATA         919     A     
 DATA     *         VARIABLES WITHOUT MATCHING DATA ITEMS.  ON EXIT, -SELIST- HAS          DATA         920     A     
 DATA     *         NOT BEEN UPDATED TO SKIP OVER THE UNMATCHED VARIABLES IN               DATA         921     A     
 DATA     *         E-LIST.  STATEMENT PROCESSING MAY BE RESUMED AT THE NEXT               DATA         922     A     
 DATA     *         VARIABLE/CONSTANT SUBLIST PAIR BY FETCHING THE NEXT -DIL-              DATA         923     A     
 DATA     *         TABLE ENTRY, WHICH WILL CONTAIN THE FWA OF THE NEXT VARIABLE           DATA         924     A     
 DATA     *         LIST STRING IN E-LIST.                                                 DATA         925     A     
 DATA                                                                                      DATA         926     A     
 DATA      P.SDPF   EQU    58                SINGLE/DOUBLE PRECISION FLAG                  DATA         927     A     
 DATA      P.ORGF   EQU    57                ORG/NO ORG FLAG                               DATA         928     A     
 DATA      P.DDD    EQU    56                SECOND DEFINITION IN A DATA STMT              DATA         929     A     
 DATA      P.LCMI   EQU    55          LCM INDIRECT ADD. FLAG                              DATA         930     A     
 DATA      P.SYMORD EQU    18                SYMTAB ORD IN BITS 18-35                      DATA         931     A     
 DATA      P.CTYP   EQU    36          CONSTANT TYPE FIELD POSITION                        FCC1563X      50     A     
 DATA                                                                                      DATA         932     A     
 DATA      BVT      ENTRY. *                                                               DATA         933     A     
 DATA                                                                                      DATA         934     A     
 DATA      BVT1     NEXTE                    NEXT ELEMENT                                  DATA         935     A     
 DATA               SA3    N.ITEM                                                          DATA         936     A     
 DATA               MX6    0                                                               DATA         937     A     
 DATA               SB7    X3                                                              DATA         938     A     
 DATA               SA6    BIAS                                                            DATA         939     A     
 DATA               SA6    N.VSUB                                                          DATA         940     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1964    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               IF.NE  NAME,BVT3         IF NOT A NAME                                 DATA         941     A     
 DATA               LE     B7,B0,BVT.E10     IF MORE DATA VARS THAN CON LIST ITEMS         DATA         942     A     
 DATA               RJ     PDV               PROCESS NAME                                  DATA         943     A     
 DATA               SA3    M.SEP1            , / OR (                                      DATA         944     A     
 DATA               LX7    B2,X3                                                           DATA         945     A     
 DATA               PL     X7,BVT.E1         IF ILLEGAL ITEM FOLLOWING NAME                DATA         946     A     
 DATA               IF.EQ  EL.(,BVT1A        IF NAME(                                      DATA         947     A     
 DATA               SA3    N.DIMS                                                          DATA         948     A     
 DATA               ZR     X3,BVT2           IF A SIMPLE VARIABLE                          DATA         949     A     
 DATA               SA7    NONANSI           SET NON ANSI USEAGE FLAG                      DATA         950     A     
 DATA               EQ     BVT2                                                            DATA         951     A     
 DATA                                                                                      DATA         952     A     
 DATA     *         PROCESS A(C1,C2,C3)                                                    DATA         953     A     
 DATA                                                                                      DATA         954     A     
 DATA      BVT1A    RJ     PSS               PROCESS SUBSCRIPT LIST                        DATA         955     A     
 DATA               NZ     B7,BVT.E5         IF VARIABLE SUBS APPEARED                     DATA         956     A     
 DATA                                                                                      DATA         957     A     
 DATA     *         COMPUTE BIAS OF A(C1,C2,C3)                                            DATA         958     A     
 DATA                                                                                      DATA         959     A     
 DATA               SA2    N.SUBS                                                          DATA         960     A     
 DATA               SA1    CON2                                                            DATA         961     A     
 DATA               SB1    X2                                                              DATA         962     A     
 DATA               SB3    -B5               B3 = -1                                       DATA         963     A     
 DATA               SX6    X1+B3             C1-1                                          DATA         964     A     
 DATA               EQ     B1,B5,BVT1B       IF ONLY 1 SUBSCRIPT                           DATA         965     A     
 DATA               SA1    A1+B5             C2                                            DATA         966     A     
 DATA               SA2    DIM.MUL+1         DIM1                                          DATA         967     A     
 DATA               SB1    B1-B5                                                           DATA         968     A     
 DATA               SX1    X1+B3             C2-1                                          DATA         969     A     
 DATA               IX3    X2*X1             DIM1*(C2-1)                                   DATA         970     A     
 DATA               IX6    X3+X6                                                           DATA         971     A     
 DATA               EQ     B1,B5,BVT1B       IF 2 SUBS                                     DATA         972     A     
 DATA               SA1    A1+B5             C3                                            DATA         973     A     
 DATA               SA2    A2+B5             DIM1*DIM2                                     DATA         974     A     
 DATA               SX1    X1+B3                                                           DATA         975     A     
 DATA               IX3    X2*X1             DIM1*DIM2*(C3-1)                              DATA         976     A     
 DATA               IX6    X3+X6                                                           DATA         977     A     
 DATA      BVT1B    SA3    SDPF                                                            DATA         978     A     
 DATA               SB3    X3                                                              DATA         979     A     
 DATA               LX6    B3,X6             *2 IF 2 WORDS /ENTRY                          DATA         980     A     
 DATA               SA6    BIAS                                                            DATA         981     A     
 DATA                                                                                      DATA         982     A     
 DATA      BVT1C    SA2    DVT+1             ADJUST SECOND WORD OF DVT ENTRY               DATA         983     A     
 DATA               AX2    18                WORD LENGTH OF ARRAY                          DATA         984     A     
 DATA               IX2    X2-X6             REDUCE BY BIAS                                DATA         985     A     
 DATA               NG     X2,BVT.E9         IF LOCF(A(C1,C2,C3)) IS OUT OF RANGE          DATA         986     A     
 DATA               ZR     X2,BVT.E9   IF OUT OF RANGE                                     FCCA476       11     A     
 DATA               LX2    18                (FOR PROPER HANDLING OF HOLLERITH CON         DATA         987     A     
 DATA               SX0    B5                SET ITEM COUNT = 1                            DATA         988     A     
 DATA               BX6    X0+X2                                                           DATA         989     A     
 DATA               SA6    A2                                                              DATA         990     A     
 DATA               GETE                     GET SEPERATOR                                 DATA         991     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1965    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               IF.EQ  EL.COMMA,BVT2     IF A ,                                        DATA         992     A     
 DATA               IF.NE  EL.SLASH,BVT.E1   IF NO /                                       DATA         993     A     
 DATA                                                                                      DATA         994     A     
 DATA      BVT2     SX5    B0                                                              DATA         995     A     
 DATA               RJ     MDL               MATCH UP LISTS                                DATA         996     A     
 DATA               GETE                     RESTORE SEPERATOR                             DATA         997     A     
 DATA               IF.NE  EL.SLASH,BVT1     LOOP IF NOT END OF VAR LIST                   DATA         998     A     
 DATA               EQ     BVT                                                             DATA         999     A     
 DATA                                                                                      DATA        1000     A     
 DATA     *         PROCESS EXPLICIT DO LOOPS                                              DATA        1001     A     
 DATA                                                                                      DATA        1002     A     
 DATA      BVT3     IF.NE  EL.(,BVT.E3       IF NO (                                       DATA        1003     A     
 DATA               SX7    B0                                                              DATA        1004     A     
 DATA      BVT4     NEXTE                    NEXT ELIST ELEMENT                            DATA        1005     A     
 DATA               SX7    X7+B5             INCREMENT PAREN COUNT                         DATA        1006     A     
 DATA               EQ     B2,B3,BVT4        LOOP IF A (                                   DATA        1007     A     
 DATA               IF.NE  NAME,BVT.E3       ERROR IF NEXT IS NOT A NAME                   DATA        1008     A     
 DATA               LE     B7,B0,BVT.E10     IF MORE DATA VARS THAN CON LIST ITEMS         DATA        1009     A     
 DATA               SA7    PL                SAVE PAREN LEVEL                              DATA        1010     A     
 DATA               SA7    NONANSI           SET NON ASNI USEAGE FLAG                      DATA        1011     A     
 DATA               RJ     PDV               PROCESS ARRAY NAME                            DATA        1012     A     
 DATA               IF.NE  EL.(,BVT.E2       ERROR IF NOT NAME(                            DATA        1013     A     
 DATA               RJ     PSS               PROCESS SUBSCRIPT LIST                        DATA        1014     A     
 DATA               SA1    PL                                                              DATA        1015     A     
 DATA               SB6    X1                                                              DATA        1016     A     
 DATA               GT     B7,B6,BVT.E2      ERR IF MORE VARIABLE SUBS THEN LOOPS          DATA        1017     A     
 DATA                                                                                      DATA        1018     A     
 DATA     *         SYNTAX CHECK DO INDICES AND CONVERT LOOP TO CANONICAL FORM             DATA        1019     A     
 DATA                                                                                      DATA        1020     A     
 DATA               SB1    B0                LOOP INDEX                                    DATA        1021     A     
 DATA               MX6    0                                                               DATA        1022     A     
 DATA               SA6    N.VSUB            CLEAR LOOP COUNTER                            DATA        1023     A     
 DATA                                                                                      DATA        1024     A     
 DATA      BVT5     GETE                                                                   DATA        1025     A     
 DATA               IF.NE  EL.COMMA,BVT.E2   IF NO ,                                       DATA        1026     A     
 DATA               NEXTE                                                                  DATA        1027     A     
 DATA               IF.NE  NAME,BVT.E2       IF NO INDEX VARIABLE                          DATA        1028     A     
 DATA                                                                                      DATA        1029     A     
 DATA     *         SEARCH SUBSCRIPT TABLE FOR MATCH OF INDEX VARIABLE                     DATA        1030     A     
 DATA                                                                                      DATA        1031     A     
 DATA               SA2    N.SUBS                                                          DATA        1032     A     
 DATA               SB2    B0                INDEX                                         DATA        1033     A     
 DATA               SB3    X2                LIMIT                                         DATA        1034     A     
 DATA      BVT6     SA3    INDX+B2           SUBSCRIPT VARIABLE                            DATA        1035     A     
 DATA               SB2    B2+B5             P = P+1                                       DATA        1036     A     
 DATA               IX5    X4-X3                                                           DATA        1037     A     
 DATA               ZR     X5,BVT7           IF A MATCH                                    DATA        1038     A     
 DATA               LT     B2,B3,BVT6        IF MORE SUBS TO GO                            DATA        1039     A     
 DATA               EQ     BVT.E4            IF LOOP INDEX DOESN"T MATCH SUBSC VAR         DATA        1040     A     
 DATA                                                                                      DATA        1041     A     
 DATA      BVT7     SX6    B1+B5                                                           DATA        1042     A     
 DATA               SA6    A3                INDX(P) = I                                   DATA        1043     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1966    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SX7    B2-B5                                                           DATA        1044     A     
 DATA               SA7    SUBN              SUBN = P                                      DATA        1045     A     
 DATA                                                                                      DATA        1046     A     
 DATA               NEXTE                                                                  DATA        1047     A     
 DATA               IF.NE  EL.=,BVT.E2       IF NO = SIGN                                  DATA        1048     A     
 DATA               NEXTE                                                                  DATA        1049     A     
 DATA               IF.NE  CON,BVT.E2        IF NO LOWER LIMIT                             DATA        1050     A     
 DATA               BX6    X4                                                              DATA        1051     A     
 DATA               SA6    LL                                                              DATA        1052     A     
 DATA               NEXTE                                                                  DATA        1053     A     
 DATA               IF.NE  EL.COMMA,BVT.E2   IF NO ,                                       DATA        1054     A     
 DATA               NEXTE                                                                  DATA        1055     A     
 DATA               IF.NE  CON,BVT.E2        IF NO UPPER LIMIT                             DATA        1056     A     
 DATA               BX6    X4                                                              DATA        1057     A     
 DATA               SA6    UL                                                              DATA        1058     A     
 DATA               NEXTE                                                                  DATA        1059     A     
 DATA               MX6    0                                                               DATA        1060     A     
 DATA               SA6    INC                                                             DATA        1061     A     
 DATA               IF.NE  EL.COMMA,BVT8                                                   DATA        1062     A     
 DATA               NEXTE                                                                  DATA        1063     A     
 DATA               IF.NE  CON,BVT.E2        IF NO INCREMENT                               DATA        1064     A     
 DATA               BX6    X4                                                              DATA        1065     A     
 DATA               SA6    A6                SAVE INCREMENT                                DATA        1066     A     
 DATA               NEXTE                                                                  DATA        1067     A     
 DATA      BVT8     IF.NE  EL.),BVT.E2       IF NO )                                       DATA        1068     A     
 DATA               UPDATE                   SAVE ELIST POINTER                            DATA        1069     A     
 DATA                                                                                      DATA        1070     A     
 DATA               SA4    LL                                                              DATA        1071     A     
 DATA               RJ     CHKSC             CONVERT LOWER LIMIT                           DATA        1072     A     
 DATA               SA6    LL                                                              DATA        1073     A     
 DATA               SA4    UL                                                              DATA        1074     A     
 DATA               RJ     CHKSC             CONVERT UPPER LIMIT                           DATA        1075     A     
 DATA               SA6    UL                                                              DATA        1076     A     
 DATA               SA4    INC                                                             DATA        1077     A     
 DATA               SX6    B5                                                              DATA        1078     A     
 DATA               ZR     X4,BVT9           IF NO INCREMENT                               DATA        1079     A     
 DATA               RJ     CHKSC             CONVERT                                       DATA        1080     A     
 DATA      BVT9     SA6    INC                                                             DATA        1081     A     
 DATA                                                                                      DATA        1082     A     
 DATA     *         TEST FOR LOWER LIMIT OF SUBSCRIPT OUTSIDE OF DIM RANGE                 DATA        1083     A     
 DATA                                                                                      DATA        1084     A     
 DATA               SA5    SUBN                                                            DATA        1085     A     
 DATA               SB2    X5                B2 = J                                        DATA        1086     A     
 DATA               SA1    CON1+B2           CON1(J)                                       DATA        1087     A     
 DATA               SA2    LL                                                              DATA        1088     A     
 DATA               SA3    CON2+B2           CON2(J)                                       DATA        1089     A     
 DATA               IX0    X1*X2                                                           DATA        1090     A     
 DATA               IX7    X0+X3             X7 = V = C1*LL+C2                             DATA        1091     A     
 DATA               SX6    X7-1                                                            DATA        1092     A     
 DATA               NG     X6,BVT.E6         IF SUBSC VALUE < 1                            DATA        1093     A     
 DATA                                                                                      DATA        1094     A     
 DATA     *         TEST FOR DEGENERATE LOOP ( A 1 TRIP LOOP )                             DATA        1095     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1967    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA                                                                                      DATA        1096     A     
 DATA               SA5    N.VSUB                                                          DATA        1097     A     
 DATA               SA1    UL                                                              DATA        1098     A     
 DATA               SB1    X5                B1 = LOOP NUMBER                              DATA        1099     A     
 DATA               SX2    X2                LL                                            DATA        1100     A     
 DATA               IX0    X2-X1             LL-UL                                         DATA        1101     A     
 DATA               PL     X0,BVT10          IF DEGENERATE ( LL \ UL )                     DATA        1102     A     
 DATA                                                                                      DATA        1103     A     
 DATA               SA3    INC                                                             DATA        1104     A     
 DATA               IX0    X3-X0             UL-LL+INC                                     DATA        1105     A     
 DATA               IX6    X0/X3             TRIP COUNT = X0/INC                           DATA        1106     A     
 DATA               SB6    X6                                                              DATA        1107     A     
 DATA               NE     B6,B5,BVT11       IF NOT DEGENREATE                             DATA        1108     A     
 DATA                                                                                      DATA        1109     A     
 DATA     *         1 TRIP LOOP - CHANGE TO CONSTANT SUBSCRIPT                             DATA        1110     A     
 DATA                                                                                      DATA        1111     A     
 DATA      BVT10    MX6    0                                                               DATA        1112     A     
 DATA               SA6    INDX+B2           INDX(J) = 0                                   DATA        1113     A     
 DATA               SA7    CON2+B2           CON2(J) = V                                   DATA        1114     A     
 DATA               EQ     BVT12                                                           DATA        1115     A     
 DATA                                                                                      DATA        1116     A     
 DATA     *         NORMAL CASE - ADJUST C1 AND C2  SO LOOP TAKES THE FORM                 DATA        1117     A     
 DATA     *                ( A( ,C1*I+C2, ) , I = 1,TC )                                   DATA        1118     A     
 DATA                                                                                      DATA        1119     A     
 DATA      BVT11    SA1    INC                                                             DATA        1120     A     
 DATA               SA2    CON1+B2                                                         DATA        1121     A     
 DATA               SA3    CON2+B2                                                         DATA        1122     A     
 DATA               SA4    LL                                                              DATA        1123     A     
 DATA               IX5    X4-X1                                                           DATA        1124     A     
 DATA               IX6    X1*X2                                                           DATA        1125     A     
 DATA               SA6    A2                C1 = C1*INC                                   DATA        1126     A     
 DATA               IX4    X2*X5                                                           DATA        1127     A     
 DATA               IX7    X3+X4                                                           DATA        1128     A     
 DATA               SA7    A3                C2 = C2+C1*(LL-INC)                           DATA        1129     A     
 DATA                                                                                      DATA        1130     A     
 DATA     *         COMBINE AND STORE P, C1(P) , TC AND DIM(P) IN LPINF(I)                 DATA        1131     A     
 DATA                                                                                      DATA        1132     A     
 DATA               LX6    36                C1                                            DATA        1133     A     
 DATA               SA4    DIM+B2                                                          DATA        1134     A     
 DATA               BX6    X4+X6                                                           DATA        1135     A     
 DATA               SX0    B2                P                                             DATA        1136     A     
 DATA               LX0    54                                                              DATA        1137     A     
 DATA               BX6    X0+X6                                                           DATA        1138     A     
 DATA               SX7    B6                TC                                            DATA        1139     A     
 DATA               LX7    18                                                              DATA        1140     A     
 DATA               BX6    X7+X6                                                           DATA        1141     A     
 DATA               SA6    LPINF+B1          SAVE SUBSCRIPT INFO                           DATA        1142     A     
 DATA               SX7    B1+B5                                                           DATA        1143     A     
 DATA               SB1    B1+B5                                                           DATA        1144     A     
 DATA               SA7    N.VSUB            ADVANCE INDEX AND SAVE                        DATA        1145     A     
 DATA                                                                                      DATA        1146     A     
 DATA     *         ADJUST BIAS TO ELIMINATE CONSTANT ADDEND ( C2(J) )                     DATA        1147     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1968    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA                                                                                      DATA        1148     A     
 DATA               SA1    BIAS                                                            DATA        1149     A     
 DATA               SA2    DIM.MUL+B2        DIM.MUL(J)                                    DATA        1150     A     
 DATA               SA3    CON2+B2                                                         DATA        1151     A     
 DATA               SA5    SDPF                                                            DATA        1152     A     
 DATA               SB4    X5                                                              DATA        1153     A     
 DATA               IX4    X2*X3                                                           DATA        1154     A     
 DATA               LX5    B4,X4             *2**SDPF                                      DATA        1155     A     
 DATA               IX6    X5+X1             BIAS = BIAS+DIM.MUL(J)*C2(J)*2**SDPF          DATA        1156     A     
 DATA               SA6    A1                                                              DATA        1157     A     
 DATA                                                                                      DATA        1158     A     
 DATA      BVT12    SA5    PL                                                              DATA        1159     A     
 DATA               SX6    X5-1                                                            DATA        1160     A     
 DATA               SA6    A5                PL = PL-1                                     DATA        1161     A     
 DATA               NZ     X6,BVT5           LOOP IF MORE TO GO                            DATA        1162     A     
 DATA                                                                                      DATA        1163     A     
 DATA     *         ADD TO THE BIAS THE CONTRIBUTION DUE TO CONSTANT SUBSCRIPTS            DATA        1164     A     
 DATA     *         I.E. - A( ,C2, )                                                       DATA        1165     A     
 DATA                                                                                      DATA        1166     A     
 DATA               SA2    N.SUBS                                                          DATA        1167     A     
 DATA               SA3    SDPF                                                            DATA        1168     A     
 DATA               SA5    BIAS                                                            DATA        1169     A     
 DATA               SB1    B0                INDEX                                         DATA        1170     A     
 DATA               SB2    X2                LIMIT                                         DATA        1171     A     
 DATA               SB4    X3                SDPF                                          DATA        1172     A     
 DATA               SB3    -B5               -1                                            DATA        1173     A     
 DATA               BX6    X5                                                              DATA        1174     A     
 DATA                                                                                      DATA        1175     A     
 DATA      BVT13    SA1    INDX+B1                                                         DATA        1176     A     
 DATA               NZ     X1,BVT14          IF A DO INDEXED SUBSCRIPT                     DATA        1177     A     
 DATA               SA2    CON2+B1                                                         DATA        1178     A     
 DATA               SA3    DIM.MUL+B1                                                      DATA        1179     A     
 DATA               SX2    X2+B3                                                           DATA        1180     A     
 DATA               IX4    X3*X2                                                           DATA        1181     A     
 DATA               LX5    B4,X4                                                           DATA        1182     A     
 DATA               IX6    X5+X6             BIAS = BIAS+DM(I)*(C2(I)-1)*2**SDPF           DATA        1183     A     
 DATA      BVT14    SB1    B1+B5                                                           DATA        1184     A     
 DATA               LT     B1,B2,BVT13       IF MORE TO GO                                 DATA        1185     A     
 DATA               SA6    A5                UPDATE BIAS                                   DATA        1186     A     
 DATA                                                                                      DATA        1187     A     
 DATA     *         COLLAPSE INNERMOST LOOPS IF THE SUBSCRIPTS ARE IN STANDARD             DATA        1188     A     
 DATA     *         ORDER ( IJK )                                                          DATA        1189     A     
 DATA                                                                                      DATA        1190     A     
 DATA               SA2    N.VSUB            NUMBER OF LOOPS                               DATA        1191     A     
 DATA               ZR     X2,BVT1C          IF ALL LOOPS ARE DEGENERATE                   DATA        1192     A     
 DATA               SB1    B0                INDEX                                         DATA        1193     A     
 DATA               SB2    X2                LIMIT                                         DATA        1194     A     
 DATA               EQ     B2,B5,BVT18       IF ONLY 1 LOOP                                DATA        1195     A     
 DATA                                                                                      DATA        1196     A     
 DATA      BVT15    SA1    LPINF+B1          LOOP INFORMATION WORD                         DATA        1197     A     
 DATA               SX4    X1                DIM(P)                                        DATA        1198     A     
 DATA               AX1    18                                                              DATA        1199     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1969    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SX3    X1                TC                                            DATA        1200     A     
 DATA               AX1    18                                                              DATA        1201     A     
 DATA               SB3    X1                M                                             DATA        1202     A     
 DATA               AX1    18                                                              DATA        1203     A     
 DATA               SB4    X1                P                                             DATA        1204     A     
 DATA               NE     B4,B1,BVT18       IF NOT IJK ORDER                              DATA        1205     A     
 DATA               NE     B3,B5,BVT17       IF M " 1                                      DATA        1206     A     
 DATA               IX5    X3-X4                                                           DATA        1207     A     
 DATA               SB1    B1+B5                                                           DATA        1208     A     
 DATA               NG     X5,BVT17          IF TC < DIM                                   DATA        1209     A     
 DATA               LT     B1,B2,BVT15                                                     DATA        1210     A     
 DATA                                                                                      DATA        1211     A     
 DATA     *         SUCCESS - REDUCE TO A SINGLE LOOP                                      DATA        1212     A     
 DATA                                                                                      DATA        1213     A     
 DATA      BVT16    SA1    LPINF-1+B2        LAST LOOP INFO WORD                           DATA        1214     A     
 DATA               SA2    DIM.MUL-1+B2                                                    DATA        1215     A     
 DATA               AX1    18                                                              DATA        1216     A     
 DATA               SX1    X1                TC FOR LAST LOOP                              DATA        1217     A     
 DATA               IX3    X1*X2                                                           DATA        1218     A     
 DATA               SA4    DVT+1                                                           DATA        1219     A     
 DATA               SX4    X4                PI DIMS                                       DATA        1220     A     
 DATA               SX7    B5                                                              DATA        1221     A     
 DATA               SA7    N.VSUB            NUMBER OF LOOPS                               DATA        1222     A     
 DATA               LX3    18                                                              DATA        1223     A     
 DATA               BX6    X3+X4                                                           DATA        1224     A     
 DATA               LX7    36                M = 1                                         DATA        1225     A     
 DATA               IX7    X7+X6                                                           DATA        1226     A     
 DATA               SA7    LPINF             UPDATE LOOP INFO WORD                         DATA        1227     A     
 DATA               EQ     BVT18                                                           DATA        1228     A     
 DATA                                                                                      DATA        1229     A     
 DATA     *         PARTIAL SUCCESS - COLLAPSE INNERMOST LOOPS                             DATA        1230     A     
 DATA                                                                                      DATA        1231     A     
 DATA      BVT17    LE     B1,B5,BVT18       IF WE CAN"T COLLAPSE AT LEAST 2 LOOPS         DATA        1232     A     
 DATA               EQ     B1,B2,BVT16       IF COMPLETE REDUCTION                         DATA        1233     A     
 DATA                                                                                      DATA        1234     A     
 DATA               SA1    LPINF             MERGE FIRST AND SECOND LOOPS                  DATA        1235     A     
 DATA               SA2    A1+B5                                                           DATA        1236     A     
 DATA               AX1    18                                                              DATA        1237     A     
 DATA               SX1    X1                                                              DATA        1238     A     
 DATA               AX2    18                                                              DATA        1239     A     
 DATA               SX2    X2                                                              DATA        1240     A     
 DATA               IX3    X1*X2             TC1*TC2                                       DATA        1241     A     
 DATA               SX7    B5                                                              DATA        1242     A     
 DATA               LX7    36                M = 1                                         DATA        1243     A     
 DATA               SA4    DIM.MUL+2         DIM1*DIM2                                     DATA        1244     A     
 DATA               LX3    18                                                              DATA        1245     A     
 DATA               BX6    X3+X4                                                           DATA        1246     A     
 DATA               IX7    X7+X6                                                           DATA        1247     A     
 DATA               SA7    A1                UPDATE FIRST LOOP INFO WORD                   DATA        1248     A     
 DATA               SX6    B2-B5                                                           DATA        1249     A     
 DATA               SA6    N.VSUB            UPDATE N.VSUB                                 DATA        1250     A     
 DATA               SA5    A2+B5                                                           DATA        1251     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1970    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               BX7    X5                MOVE LAST LOOP INFO WORD DOWN                 DATA        1252     A     
 DATA               SA7    A2                                                              DATA        1253     A     
 DATA                                                                                      DATA        1254     A     
 DATA     *         COMPUTE A(M1*T1,M2*T2,M3,T3) AND SEE IF IT IS WITHIN                   DATA        1255     A     
 DATA     *         THE ARRAY BOUNDS                                                       DATA        1256     A     
 DATA                                                                                      DATA        1257     A     
 DATA      BVT18    SA5    N.VSUB            NUMBER OF LOOPS                               DATA        1258     A     
 DATA               SB1    B0                INDEX                                         DATA        1259     A     
 DATA               SB2    X5                LIMIT                                         DATA        1260     A     
 DATA               SA4    SDPF                                                            DATA        1261     A     
 DATA               SB3    -B5               B3 = -1                                       DATA        1262     A     
 DATA               SB4    X4                B4 = SDPF                                     DATA        1263     A     
 DATA               SA3    BIAS                                                            DATA        1264     A     
 DATA               AX6    B4,X3                                                           DATA        1265     A     
 DATA                                                                                      DATA        1266     A     
 DATA      BVT19    SA4    LPINF+B1                                                        DATA        1267     A     
 DATA               AX4    18                                                              DATA        1268     A     
 DATA               SX1    X4                T(I)                                          DATA        1269     A     
 DATA               AX4    18                                                              DATA        1270     A     
 DATA               SX2    X4                M(I)                                          DATA        1271     A     
 DATA               AX4    18                P                                             DATA        1272     A     
 DATA               SA3    DIM.MUL+X4        DM(P)                                         DATA        1273     A     
 DATA               IX0    X1*X2                                                           DATA        1274     A     
 DATA               SX1    X0+B3             M*T-1                                         DATA        1275     A     
 DATA               IX2    X3*X1             DM*( M*T-1 )                                  DATA        1276     A     
 DATA               IX6    X2+X6                                                           DATA        1277     A     
 DATA               SB1    B1+B5                                                           DATA        1278     A     
 DATA               LT     B1,B2,BVT19       IF MORE TO GO                                 DATA        1279     A     
 DATA               LX6    B4,X6             *2**SDPF                                      DATA        1280     A     
 DATA               SA2    DVT+1                                                           DATA        1281     A     
 DATA               AX2    18                ARRAY LENGTH                                  DATA        1282     A     
 DATA               IX3    X6-X2             BIAS - LEN                                    DATA        1283     A     
 DATA               NG     X3,BVT20          IF IN RANGE                                   DATA        1284     A     
 DATA               SA4    EEL               EQUIV EXTENDED LENGTH                         DATA        1285     A     
 DATA               IX7    X6-X4                                                           DATA        1286     A     
 DATA               PL     X7,BVT.E6         IF OUT OF RANGE                               DATA        1287     A     
 DATA               SX7    B5                                                              DATA        1288     A     
 DATA               SA7    NONANSI           SET NON ANSI USEAGE FLAG                      DATA        1289     A     
 DATA                                                                                      DATA        1290     A     
 DATA      BVT20    RJ     MDL               MATCH UP LISTS                                DATA        1291     A     
 DATA               GETE                     SEPERATOR                                     DATA        1292     A     
 DATA               IF.EQ  EL.COMMA,BVT1     LOOP FOR NEXT IF A ,                          DATA        1293     A     
 DATA               IF.EQ  EL.SLASH,BVT                                                    DATA        1294     A     
 DATA               EQ     BVT.E1                                                          DATA        1295     A     
 DATA               SPACE  2                                                               DATA        1296     A     
 DATA      M.SEP1   BMASK  (EL.COMMA,EL.LP,EL.SLASH)                                       DATA        1297     A     
 DATA               SPACE  3                                                               DATA        1298     A     
 DATA     *         ERROR EXITS FOR BVT AND PSS                                            DATA        1299     A     
 DATA                                                                                      DATA        1300     A     
 DATA      BVT.E1   EREXIT E.DVL1            ILLEGAL ITEM FOLLOWING NAME                   DATA        1301     A     
 DATA               EQ     DATA.N                                                          DATA        1302     A     
 DATA                                                                                      DATA        1303     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1971    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA      BVT.E2   EREXIT E.DVL2            SYNTAX ERROR IN DO NEST                       DATA        1304     A     
 DATA               EQ     DATA.N                                                          DATA        1305     A     
 DATA                                                                                      DATA        1306     A     
 DATA      BVT.E3   EREXIT E.DVL3            VAR LIST SYNTAX ERROR                         DATA        1307     A     
 DATA               EQ     DATA.E                                                          DATA        1308     A     
 DATA                                                                                      DATA        1309     A     
 DATA      BVT.E4   EREXIT E.DVL4            NO MATCH OF LOOP INDEX                        DATA        1310     A     
 DATA               EQ     DATA.E                                                          DATA        1311     A     
 DATA                                                                                      DATA        1312     A     
 DATA      BVT.E5   EREXIT E.DVL5            A(IVAR) AND NO LOOPS                          DATA        1313     A     
 DATA               EQ     DATA.N                                                          DATA        1314     A     
 DATA                                                                                      DATA        1315     A     
 DATA      BVT.E6   EREXIT E.DVL6            ARRAY SUBSC OUTSIDE OF DIM RANGE              DATA        1316     A     
 DATA               EQ     DATA.N                                                          DATA        1317     A     
 DATA                                                                                      DATA        1318     A     
 DATA      PSS.E1   EREXIT E.DVL7            VAR(                                          DATA        1319     A     
 DATA               EQ     DATA.N                                                          DATA        1320     A     
 DATA                                                                                      DATA        1321     A     
 DATA      PSS.E2   EREXIT E.DVL8            SUB LIST SYNTAX ERROR                         DATA        1322     A     
 DATA               EQ     DATA.N                                                          DATA        1323     A     
 DATA                                                                                      DATA        1324     A     
 DATA      BVT.E9   EREXIT E.DVL9            LOCF(A(C1,C2,C3)) OUT OF BOUNDS               DATA        1325     A     
 DATA               EQ     DATA.N                                                          DATA        1326     A     
 DATA     *                                                                                DATA        1327     A     
 DATA      BVT.E10  BX7    X7-X7                                                           DATA        1328     A     
 DATA               SB6    E.V>C       -VAR LIST LONGER THAN CON LIST-                     DATA        1329     A     
 DATA               SA7    A3          N.ITEM = 0 TO INHIBIT DUPL V>C ERR MSG              DATA        1330     A     
 DATA               SB7    BVT         RETURN ADDR                                         DATA        1331     A     
 DATA               EQ     ERPROI                                                          DATA        1332     A     
 DATA     *                                                                                DATA        1333          I
          -FCC0537
 DATA     *                                                                                DATA        1334          I
          -FCC0537
 DATA      PSS      EJECT                                                                  DATA        1335     A     
 DATA     ***                                                                              DATA        1336     A     
 DATA     *         PSS - PROCESS SUBSCRIPTS                                               DATA        1337     A     
 DATA     *                ALLOWED FORM IS C1*IVAR+C2                                      DATA        1338     A     
 DATA     *                                                                                DATA        1339     A     
 DATA     *         ON ENTRY:                                                              DATA        1340     A     
 DATA     *                A4 POINTS TO (                                                  DATA        1341     A     
 DATA     *                                                                                DATA        1342     A     
 DATA     *         ON EXIT:                                                               DATA        1343     A     
 DATA     *                B7 = NUMBER OF VARIABLE SUBSCRIPTS                              DATA        1344     A     
 DATA     *                ELIST POINTER ADVANCED PAST ) AND SAVED IN "SELIST"             DATA        1345     A     
 DATA     *                SUBSCRIPT INFO IN BLOCK STARTING AT "SST"                       DATA        1346     A     
 DATA     *                                                                                DATA        1347     A     
 DATA                                                                                      DATA        1348     A     
 DATA      SAVE     MACRO  X,OP              SAVE AN ELIST WORD IN PROPER ARRAY            DATA        1349     A     
 DATA     *                                  AND GET NEXT ELIST ITEM                       DATA        1350     A     
 DATA               IFC    NE,//OP/                                                        DATA        1351     A     
 DATA               SX7    B2-OP                                                           DATA        1352     A     
 DATA               ELSE   1                                                               DATA        1353     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1972    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               BX7    X4                                                              DATA        1354     A     
 DATA               SA4    A4-B5             NEXT ITEM                                     DATA        1355     A     
 DATA               UX1    B2,X4                                                           DATA        1356     A     
 DATA               SA7    X+B4                                                            DATA        1357     A     
 DATA               ENDM                                                                   DATA        1358     A     
 DATA                                                                                      DATA        1359     A     
 DATA      PSS      ENTRY. *                                                               DATA        1360     A     
 DATA               SA1    N.DIMS                                                          DATA        1361     A     
 DATA               ZR     X1,PSS.E1         IF NAME IS NOT DIMENSIONED                    DATA        1362     A     
 DATA                                                                                      DATA        1363     A     
 DATA               SB1    X1                B1 = N.DIMS                                   DATA        1364     A     
 DATA               SB4    B0                B4 = NUMBER OF SUBSCRIPTS                     DATA        1365     A     
 DATA               SB6    B0                B6 = VARIABLE SUBSCRIPT FLAG                  DATA        1366     A     
 DATA               MX7    0                                                               DATA        1367     A     
 DATA               SA7    SST                                                             DATA        1368     A     
 DATA               SX6    -LSST                                                           DATA        1369     A     
 DATA                                                                                      DATA        1370     A     
 DATA     +         SA7    A7+B5             CLEAR OUT CONTROL CELLS                       DATA        1371     A     
 DATA               SX6    X6+B5                                                           DATA        1372     A     
 DATA               NG     X6,*                                                            DATA        1373     A     
 DATA                                                                                      DATA        1374     A     
 DATA     *         SYNTAX CHECK AND SAVE SUBSCRIPT LIST                                   DATA        1375     A     
 DATA                                                                                      DATA        1376     A     
 DATA      PSS1     NEXTE                    NEXT ITEM                                     DATA        1377     A     
 DATA               IF.NE  CON,PSS2          IF NOT A CONSTANT                             DATA        1378     A     
 DATA               SAVE   CON2                                                            DATA        1379     A     
 DATA               IF.NE  EL.STAR,PSS4      IF NO *                                       DATA        1380     A     
 DATA               NEXTE                                                                  DATA        1381     A     
 DATA               SA7    CON1+B4           SAVE AS MULTIPLIER                            DATA        1382     A     
 DATA               MX6    0                                                               DATA        1383     A     
 DATA               SA6    CON2+B4           CLEAR ADDEND                                  DATA        1384     A     
 DATA                                                                                      DATA        1385     A     
 DATA      PSS2     IF.NE  NAME,PSS.E2       IF NO VARIABLE                                DATA        1386     A     
 DATA               SB6    B6+B5             INCREMENT NUMBER OF VARS                      DATA        1387     A     
 DATA               SAVE   INDX                                                            DATA        1388     A     
 DATA               IF.EQ  EL.PLUS,PSS3      IF A +                                        DATA        1389     A     
 DATA               IF.NE  EL.MINUS,PSS4     IF NOT A -                                    DATA        1390     A     
 DATA      PSS3     SAVE   SIGN,EL.PLUS      SAVE ELIST CODE AND GET NEXT ITEM             DATA        1391     A     
 DATA               IF.NE  CON,PSS.E2        IF NOT A CONSTANT                             DATA        1392     A     
 DATA               SAVE   CON2                                                            DATA        1393     A     
 DATA                                                                                      DATA        1394     A     
 DATA      PSS4     SB4    B4+B5             INCREMENT NUMBER OF SUBS                      DATA        1395     A     
 DATA               EQ     B1,B4,PSS5        IF IT MUST BE A )                             DATA        1396     A     
 DATA               IF.EQ  EL.COMMA,PSS1     LOOP IF A ,                                   DATA        1397     A     
 DATA                                                                                      DATA        1398     A     
 DATA      PSS5     IF.NE  EL.),PSS.E2       ERROR IF NO )                                 DATA        1399     A     
 DATA               UPDATE                   SAVE ELIST POINTER                            DATA        1400     A     
 DATA               SX7    B4                                                              DATA        1401     A     
 DATA               SX6    B6                                                              DATA        1402     A     
 DATA               SA7    N.SUBS                                                          DATA        1403     A     
 DATA               SA6    N.VSUB            SAVE NUMBER OF VARIABLE SUBS                  DATA        1404     A     
 DATA                                                                                      DATA        1405     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1973    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA     *         PROCESS C1"S - CONSTANT MULTIPLIERS                                    DATA        1406     A     
 DATA                                                                                      DATA        1407     A     
 DATA               MX7    0                                                               DATA        1408     A     
 DATA               SA7    LI                LI = 0                                        DATA        1409     A     
 DATA      PSS6     SA4    CON1+X7           CON1(I)                                       DATA        1410     A     
 DATA               SX6    B5                                                              DATA        1411     A     
 DATA               ZR     X4,PSS7           IF NO CONSTANT                                DATA        1412     A     
 DATA               RJ     CHKSC             CHECK AND CONVERT                             DATA        1413     A     
 DATA      PSS7     SA1    LI                                                              DATA        1414     A     
 DATA               SA2    N.SUBS                                                          DATA        1415     A     
 DATA               SX7    X1+B5                                                           DATA        1416     A     
 DATA               SA6    CON1+X1           SAVE CONVERTED CON                            DATA        1417     A     
 DATA               IX5    X7-X2             I - L                                         DATA        1418     A     
 DATA               SA7    A1                                                              DATA        1419     A     
 DATA               NG     X5,PSS6           IF MORE TO GO                                 DATA        1420     A     
 DATA                                                                                      DATA        1421     A     
 DATA     *         PROCESS C2"S - CONSTANT ADDENDS                                        DATA        1422     A     
 DATA                                                                                      DATA        1423     A     
 DATA               MX7    0                                                               DATA        1424     A     
 DATA               SA7    A1                LI = 0                                        DATA        1425     A     
 DATA      PSS8     SA4    CON2+X7           CON2(I)                                       DATA        1426     A     
 DATA               MX6    0                                                               DATA        1427     A     
 DATA               ZR     X4,PSS9           IF NO ADDEND                                  DATA        1428     A     
 DATA               RJ     CHKSC             CONVERT AND CHECK                             DATA        1429     A     
 DATA      PSS9     SA1    LI                                                              DATA        1430     A     
 DATA               SA2    N.SUBS                                                          DATA        1431     A     
 DATA               ZR     X6,PSS10          IF NO CONSTANT                                DATA        1432     A     
 DATA               SA3    SIGN+X1           SIGN(I)                                       DATA        1433     A     
 DATA               AX4    B5,X3             MAP SIGN ONTO 0 OR -0                         DATA        1434     A     
 DATA               BX6    X4-X6                                                           DATA        1435     A     
 DATA               SA6    CON2+X1                                                         DATA        1436     A     
 DATA      PSS10    SX7    X1+B5             I = I+1                                       DATA        1437     A     
 DATA               IX5    X7-X2             I - L                                         DATA        1438     A     
 DATA               SA7    A1                                                              DATA        1439     A     
 DATA               NG     X5,PSS8                                                         DATA        1440     A     
 DATA                                                                                      DATA        1441     A     
 DATA     *         ELIMINATE MULTIPLE APPEARENCES OF AN INDEX VARIABLE                    DATA        1442     A     
 DATA                                                                                      DATA        1443     A     
 DATA               SA4    N.SUBS                                                          DATA        1444     A     
 DATA               SA5    N.VSUB                                                          DATA        1445     A     
 DATA               SB6    X4                B6 = N.SUBS                                   DATA        1446     A     
 DATA               SB7    X5                B7 = N.VSUB                                   DATA        1447     A     
 DATA               LE     B7,B5,PSS         EXIT IF < 2 VARIABLE SUBS                     DATA        1448     A     
 DATA               MX0    60-3                                                            DATA        1449     A     
 DATA               SX5    213231B           A(IIJ) , A(JII) , A(IJI)                      DATA        1450     A     
 DATA                                                                                      DATA        1451     A     
 DATA      PSS11    BX3    -X0*X5            J       ( SMALLER )                           DATA        1452     A     
 DATA               AX5    3                                                               DATA        1453     A     
 DATA               BX4    -X0*X5            I       ( I > J )                             DATA        1454     A     
 DATA               AX5    3                                                               DATA        1455     A     
 DATA               SA1    INDX-1+X3                                                       DATA        1456     A     
 DATA               SA2    INDX-1+X4                                                       DATA        1457     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1974    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               IX6    X1-X2                                                           DATA        1458     A     
 DATA               SB4    X4                                                              DATA        1459     A     
 DATA               NZ     X6,PSS13          IF NO MATCH                                   DATA        1460     A     
 DATA                                                                                      DATA        1461     A     
 DATA               SA6    A2                INDX(I) = 0                                   DATA        1462     A     
 DATA               NE     B4,B6,PSS12       IF( I = N.SUB ) N.SUB = N.SUB-1               DATA        1463     A     
 DATA               SB6    B6-B5                                                           DATA        1464     A     
 DATA      PSS12    SB7    B7-B5             N.VSUB = N.VSUB-1                             DATA        1465     A     
 DATA               SB3    X3                                                              DATA        1466     A     
 DATA               SA1    CON1-1+B3                                                       DATA        1467     A     
 DATA               SA2    CON1-1+B4                                                       DATA        1468     A     
 DATA               SA3    DIM.MUL-1+B4                                                    DATA        1469     A     
 DATA               IX4    X2*X3                                                           DATA        1470     A     
 DATA               IX6    X1+X4             C1(J) = C1(J)+DIM.MUL(I)*C1(I)                DATA        1471     A     
 DATA               SA6    A1                                                              DATA        1472     A     
 DATA                                                                                      DATA        1473     A     
 DATA               SA2    CON2-1+B4                                                       DATA        1474     A     
 DATA               SA1    CON2-1+B3                                                       DATA        1475     A     
 DATA               SX2    X2-1                                                            DATA        1476     A     
 DATA               IX4    X3*X2                                                           DATA        1477     A     
 DATA               IX6    X4+X1             C2(J) = C2(J)+DIM.MUL(I)*(C2(I)-1)            DATA        1478     A     
 DATA               SA6    A1                                                              DATA        1479     A     
 DATA               SX7    B5                                                              DATA        1480     A     
 DATA               SA7    A2                C2(I) = 1                                     DATA        1481     A     
 DATA                                                                                      DATA        1482     A     
 DATA      PSS13    EQ     B7,B5,PSS14       IF ONLY 1 VARIABLE SUB LEFT                   DATA        1483     A     
 DATA               NZ     X5,PSS11          IF MORE COMBINATIONS TO TEST                  DATA        1484     A     
 DATA                                                                                      DATA        1485     A     
 DATA      PSS14    SX6    B6                                                              DATA        1486     A     
 DATA               SX7    B7                                                              DATA        1487     A     
 DATA               SA6    A4                UPDATE N.SUB AND N.VSUB                       DATA        1488     A     
 DATA               SA7    A5                                                              DATA        1489     A     
 DATA               EQ     PSS                                                             DATA        1490     A     
 DATA      MDL      TITLE  MDL - MATCH DATA LISTS                                          DATA        1491     A     
 DATA     ***                                                                              DATA        1492     A     
 DATA     *         MDL - MATCH DATA LISTS                                                 DATA        1493     A     
 DATA     *                MATCHS A VARIABLE TO DATA ITEM LIST                             DATA        1494     A     
 DATA     *                                                                                DATA        1495     A     
 DATA     *         ON ENTRY:                                                              DATA        1496     A     
 DATA     *                X5 = NUMBER OF EXPLICIT LOOPS                                   DATA        1497     A     
 DATA     *                "DVT" AND SUBSCRIPT INFO BLOCK SET UP BY "BVT"                  DATA        1498     A     
 DATA     *                                                                                DATA        1499     A     
 DATA                                                                                      DATA        1500     A     
 DATA     *         ADJUST "C.BLOCK" SO THAT WE ARE IN THE RIGHT RELOCATION BASE           DATA        1501     A     
 DATA                                                                                      DATA        1502     A     
 DATA      MDLX     SA1    DVT                                                             DATA        1503     A     
 DATA               TBITN  DDD,MDLX1         IF NOT SECOND DEF OF A UDV IN A DATA          DATA        1504     A     
 DATA               INTARG                                                                 DATA        1505     A     
 DATA               NARGS= B7                                                              DATA        1506     A     
 DATA               FMAC   ORG               OUTPUT ORG MACRO WITHOUT ARGS TO              DATA        1507     A     
 DATA               SX6    UDATA.            RESTORE SAVED DATA. ADDRESS                   DATA        1508     A     
 DATA               SA6    C.BLOCK                                                         DATA        1509     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1975    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               EQ     MDL                                                             DATA        1510     A     
 DATA                                                                                      DATA        1511     A     
 DATA      MDLX1    LX1    59-P.ORGF                                                       DATA        1512     A     
 DATA               SX5    UDATA.            CLEAR C.BLOCK IF WE ISSUED STORAGE            DATA        1513     A     
 DATA               AX1    59                FOR THIS SYMBOL IN DPCLOSE                    DATA        1514     A     
 DATA               BX6    -X1*X5                                                          DATA        1515     A     
 DATA               SA6    C.BLOCK                                                         DATA        1516     A     
 DATA                                                                                      DATA        1517     A     
 DATA      MDL      ENTRY. *                                                               DATA        1518     A     
 DATA               SA4    N.ITEM            NUMBER OF ITEMS LEFT IN DATA LIST             DATA        1519     A     
 DATA               SX6    X4-1                                                            DATA        1520     A     
 DATA               PL     X6,MDL1           IF > 0                                        DATA        1521     A     
 DATA               SA6    A4                                                              DATA        1522     A     
 DATA               EQ     MDL                                                             DATA        1523     A     
 DATA                                                                                      DATA        1524     A     
 DATA      MDL1     SA2    DVT+1                                                           DATA        1525     A     
 DATA               SA1    SDPF              X1 = SDPF                                     DATA        1526     A     
 DATA               MX7    0                                                               DATA        1527     A     
 DATA               SB2    X2                NUMBER OF VARS TO BE INITIALIZED              DATA        1528     A     
 DATA               SA7    ORGI              ORGI = 0                                      DATA        1529     A     
 DATA               NZ     X5,MDL4           IF EXPLICIT LOOPS                             DATA        1530     A     
 DATA               GT     B2,B5,MDL2        IF NOT A SINGLE ITEM                          DATA        1531     A     
 DATA                                                                                      DATA        1532     A     
 DATA     *         PROCESS A SINGLE ELEMENT                                               DATA        1533     A     
 DATA                                                                                      DATA        1534     A     
 DATA               SA3    BIAS                                                            DATA        1535     A     
 DATA               SA6    A4                UPDATE N.ITEM                                 DATA        1536     A     
 DATA               RJ     ODV               OUTPUT ORG FOR FWA                            DATA        1537     A     
 DATA               RJ     GNI               GET NEXT DATA ITEM                            DATA        1538     A     
 DATA               SA1    DVT+1                                                           DATA        1539     A     
 DATA               AX1    18                                                              DATA        1540     A     
 DATA               SB1    X1                WORD LIMIT                                    DATA        1541     A     
 DATA               RJ     ODI               OUTPUT IT                                     DATA        1542     A     
 DATA               SA1    DVT                                                             DATA        1543     A     
 DATA               BX0    X1                                                              DATA        1544     A     
 DATA               LX0    59-P.ORGF                                                       DATA        1545     A     
 DATA               NG     X0,MDLX           IF NOT FIRST DEF OF USEAGE DEFINED VA         DATA        1546     A     
 DATA                                                                                      DATA        1547     A     
 DATA               AX1    P.SYMORD                                                        DATA        1548     A     
 DATA               SX2    X1              SYMORD                                          DATA        1549     A     
 DATA               AX1    P.SDPF-P.SYMORD                                                 DATA        1550     A     
 DATA               SB2    X1+B5                                                           DATA        1551     A     
 DATA               EQ     B1,B2,MDLX        IF DATA ITEM LEN = VARIABLE LEN               DATA        1552     A     
 DATA                                                                                      DATA        1553     A     
 DATA     *         WHEN REAL MATCHED WITH DOUBLE, SEND *  DATA 0B* TO -COMPS-,            DATA        1554     A     
 DATA     *         TO MAINTAIN THE CORRECT -ORG- COUNTER VALUE.                           DATA        1555     A     
 DATA                                                                                      DATA        1556     A     
 DATA               CALL   PSYM              RETURNS (X3) = VAR NAME                       FCC0418        8     A     
 DATA               POSTERR   NR=E.PL,SEV=INF,FMT=DPC,TXT=X3                               DATA        1557     A     
 DATA               SB1    1                                                               DATA        1558     A     
 DATA               WRITEC =XF.CMPS,DATA.CD,2                                              DATA        1559     A     
 DATA               SB5    1                                                               DATA        1560     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1976    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               EQ     MDLX              MAINTAIN THE ORG COUNTER                      DATA        1561     A     
 DATA                                                                                      DATA        1562     A     
 DATA     *         PROCESS REFERENCE TO WHOLE ARRAY - A # (A(I),I = 1,PI DIMS)            DATA        1563     A     
 DATA                                                                                      DATA        1564     A     
 DATA      MDL2     SX6    X1+B5             ADDRESS DIFFERENCE                            DATA        1565     A     
 DATA               SX7    X2                TRIP COUNT                                    DATA        1566     A     
 DATA               SA5    BIAS                                                            DATA        1567     A     
 DATA      MDL3     RJ     OIC               OUTPUT INITIALIZATION CODE                    DATA        1568     A     
 DATA               EQ     MDLX                                                            DATA        1569     A     
 DATA                                                                                      DATA        1570     A     
 DATA     *         PROCESS EXPLICIT DO INDEXING                                           DATA        1571     A     
 DATA                                                                                      DATA        1572     A     
 DATA      MDL4     SB4    X5                B4 = NUMBER OF LOOPS                          DATA        1573     A     
 DATA               GT     B4,B5,MDL5        IF MORE THAN 1 LOOP                           DATA        1574     A     
 DATA               SB1    X1                SDPF                                          DATA        1575     A     
 DATA               SA2    LPINF             LOOP INFO WORD                                DATA        1576     A     
 DATA               AX2    18                                                              DATA        1577     A     
 DATA               SX7    X2                TRIP COUNT                                    DATA        1578     A     
 DATA               AX2    18                                                              DATA        1579     A     
 DATA               SX3    X2                M                                             DATA        1580     A     
 DATA               AX2    18                P                                             DATA        1581     A     
 DATA               SA4    DIM.MUL+X2                                                      DATA        1582     A     
 DATA               SA5    BIAS                                                            DATA        1583     A     
 DATA               LX4    B1,X4                                                           DATA        1584     A     
 DATA               IX6    X3*X4             ADDRESS DIFF = DM(P)*M(P)*2**SDPF             DATA        1585     A     
 DATA               SX4    X4                                                              DATA        1586     A     
 DATA               IX0    X6-X4             DM(P)*( M(P)-1 )*2**SDPF                      DATA        1587     A     
 DATA               IX5    X0+X5                                                           DATA        1588     A     
 DATA               EQ     MDL3                                                            DATA        1589     A     
 DATA                                                                                      DATA        1590     A     
 DATA      MDL5     BSS    0                                                               DATA        1591     A     
 DATA                                                                                      DATA        1592     A     
 DATA     *         IRREDUCEABLE NEST OF LOOPS                                             DATA        1593     A     
 DATA                                                                                      DATA        1594     A     
 DATA      MDL10    SA2    LPINF                                                           DATA        1595     A     
 DATA               SA1    SDPF                                                            DATA        1596     A     
 DATA               SB1    X1                                                              DATA        1597     A     
 DATA               AX2    36                                                              DATA        1598     A     
 DATA               SX3    X2                M(P)                                          DATA        1599     A     
 DATA               AX2    18                P                                             DATA        1600     A     
 DATA               SA4    DIM.MUL+X2                                                      DATA        1601     A     
 DATA               LX4    B1,X4             DM(P)*2**SDPF                                 DATA        1602     A     
 DATA               IX7    X3*X4                                                           DATA        1603     A     
 DATA               SA7    DA                SAVE ADDRESS DIFFERENCE                       DATA        1604     A     
 DATA               UX4    X4                                                              DATA        1605     A     
 DATA               SA5    BIAS                                                            DATA        1606     A     
 DATA               IX0    X7-X4                                                           DATA        1607     A     
 DATA               IX7    X0+X5             BIAS = BIAS+DA-DM(P)*2**SDPF                  DATA        1608     A     
 DATA               SA7    A5                                                              DATA        1609     A     
 DATA               SX6    B5                                                              DATA        1610     A     
 DATA               SA6    LI+1              LI(2) = 1                                     DATA        1611     A     
 DATA               SA6    A6+B5             LI(3) = 1                                     DATA        1612     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1977    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA                                                                                      DATA        1613     A     
 DATA     *         CALCULATE BIAS                                                         DATA        1614     A     
 DATA                                                                                      DATA        1615     A     
 DATA      MDL11    SA4    N.VSUB                                                          DATA        1616     A     
 DATA               SA5    BIAS                                                            DATA        1617     A     
 DATA               SA3    SDPF                                                            DATA        1618     A     
 DATA               SB1    B5                INDEX                                         DATA        1619     A     
 DATA               SB2    X4                LIMIT                                         DATA        1620     A     
 DATA               SB3    X3                SDPF                                          DATA        1621     A     
 DATA               MX7    0                                                               DATA        1622     A     
 DATA               SA7    ORGI              ORGI = 0                                      DATA        1623     A     
 DATA                                                                                      DATA        1624     A     
 DATA      MDL12    SA1    LPINF+B1          LPINF(J)                                      DATA        1625     A     
 DATA               AX1    36                                                              DATA        1626     A     
 DATA               SX2    X1                M(P)                                          DATA        1627     A     
 DATA               AX1    18                P                                             DATA        1628     A     
 DATA               SA3    LI+B1             LI(J)                                         DATA        1629     A     
 DATA               SA1    DIM.MUL+X1        DM(P)                                         DATA        1630     A     
 DATA               IX4    X2*X3                                                           DATA        1631     A     
 DATA               SX6    X4-1                                                            DATA        1632     A     
 DATA               IX0    X1*X6             DM(P)*(M(P)*LI(J)-1)                          DATA        1633     A     
 DATA               LX7    B3,X0                                                           DATA        1634     A     
 DATA               IX5    X5+X7                                                           DATA        1635     A     
 DATA               SB1    B1+B5                                                           DATA        1636     A     
 DATA               LT     B1,B2,MDL12                                                     DATA        1637     A     
 DATA                                                                                      DATA        1638     A     
 DATA               SA1    DA                                                              DATA        1639     A     
 DATA               SA2    LPINF                                                           DATA        1640     A     
 DATA               BX6    X1                ADDRESS DIFFERENCE                            DATA        1641     A     
 DATA               AX2    18                                                              DATA        1642     A     
 DATA               SX7    X2                TC(1)                                         DATA        1643     A     
 DATA               RJ     OIC               MATCH UP LISTS                                DATA        1644     A     
 DATA                                                                                      DATA        1645     A     
 DATA     *         INCREMENT INDICES                                                      DATA        1646     A     
 DATA                                                                                      DATA        1647     A     
 DATA               SA4    N.VSUB                                                          DATA        1648     A     
 DATA               SB1    B5                                                              DATA        1649     A     
 DATA               SB2    X4                                                              DATA        1650     A     
 DATA                                                                                      DATA        1651     A     
 DATA      MDL13    SA1    LI+B1             LI(J)                                         DATA        1652     A     
 DATA               SA2    LPINF+B1                                                        DATA        1653     A     
 DATA               SX6    X1+B5             LI(J) = LI(J)+1                               DATA        1654     A     
 DATA               AX2    18                                                              DATA        1655     A     
 DATA               SX3    X2                TC(J)                                         DATA        1656     A     
 DATA               SA6    A1                                                              DATA        1657     A     
 DATA               IX0    X1-X3             I - L                                         DATA        1658     A     
 DATA               NG     X0,MDL14          IF LI(J) @ TC(J)                              DATA        1659     A     
 DATA               SX6    B5                LI(J) = 1                                     DATA        1660     A     
 DATA               SA6    A6                                                              DATA        1661     A     
 DATA               SB1    B1+B5                                                           DATA        1662     A     
 DATA               LT     B1,B2,MDL13       LOOP IF J @ N.VSUB                            DATA        1663     A     
 DATA               EQ     MDLX                                                            DATA        1664     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1978    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA                                                                                      DATA        1665     A     
 DATA      MDL14    SA1    N.ITEM                                                          DATA        1666     A     
 DATA               SX2    X1-1                                                            DATA        1667     A     
 DATA               PL     X2,MDL11          IF MORE ITEMS TO GO                           DATA        1668     A     
 DATA               EQ     MDLX                                                            DATA        1669     A     
 DATA                                                                                      DATA        1670     A     
 DATA                                                                                      DATA        1671     A     
 DATA                                                                                      DATA        1672     A     
 DATA      DATA.CD  LIT    11C  DATA 0B                                                    DATA        1673     A     
 DATA      E.PL     =      106D        ERR MSG *PRECISION LOST*                            DATA        1674          I
          -FCC0418
 DATA      OIC      TITLE  OIC - OUTPUT INITIALIZATION CODE                                DATA        1675     A     
 DATA     ***                                                                              DATA        1676     A     
 DATA     *         OIC - OUTPUT INITIALIZATION CODE FOR A SEQUENCE OF ELEMENTS            DATA        1677     A     
 DATA     *         OF AN ARRAY WITH A CONSTANT ADDRESS DIFFERENCE BETWEEN THEM.           DATA        1678     A     
 DATA     *         THAT IS, THIS SUBROUTINE OUTPUTS THE INITIALIZATION CODE FOR           DATA        1679     A     
 DATA     *         THE STATEMENT:                                                         DATA        1680     A     
 DATA     *                ( A(M*I),I = 1,T) / DATA ITEM LIST /                            DATA        1681     A     
 DATA     *         THE ADDRESS DIFFERENCE BETWEEN THE ELEMENTS IS:                        DATA        1682     A     
 DATA     *         A(M*(I+1))-A(M*I) = DM(J)*M*2**SDPF                                    DATA        1683     A     
 DATA     *                                                                                DATA        1684     A     
 DATA     *         ON ENTRY:                                                              DATA        1685     A     
 DATA     *                X5 = ANY ADDITIONAL BIAS                                        DATA        1686     A     
 DATA     *                X6 = DA - THE ADDRESS DIFFERENCE                                DATA        1687     A     
 DATA     *                X7 = T - TRIP COUNT                                             DATA        1688     A     
 DATA     *                                                                                DATA        1689     A     
 DATA                                                                                      DATA        1690     A     
 DATA      OIC      ENTRY. *                                                               DATA        1691     A     
 DATA               SA6    DA                SAVE PARAMETERS                               DATA        1692     A     
 DATA               SA7    T                                                               DATA        1693     A     
 DATA               BX6    X5                                                              DATA        1694     A     
 DATA               SA6    B                                                               DATA        1695     A     
 DATA                                                                                      DATA        1696     A     
 DATA      OIC1     SA3    REPFLAG                                                         DATA        1697     A     
 DATA               SA5    I.DIT                                                           DATA        1698     A     
 DATA               SA2    O.DIT                                                           DATA        1699     A     
 DATA               IX1    X2+X5             NEXT DIT ADDRESS                              DATA        1700     A     
 DATA               ZR     X3,OIC2           IF NOT IN THE MIDDLE OF A REP                 DATA        1701     A     
 DATA                                                                                      DATA        1702     A     
 DATA     *         IN THE MIDDLE OF A REP , ADJUST REP COUNT DECREMENT ( DEC )            DATA        1703     A     
 DATA                                                                                      DATA        1704     A     
 DATA               BX2    X3                                                              DATA        1705     A     
 DATA               AX2    36                                                              DATA        1706     A     
 DATA               SB4    X2                RL                                            DATA        1707     A     
 DATA               MX7    0                 DEC = 0                                       DATA        1708     A     
 DATA               EQ     B4,B5,OIC3        IF RL = 1                                     DATA        1709     A     
 DATA               SA4    I.DIT+2           ORDINAL OF START OF DATA IN REP LIST          DATA        1710     A     
 DATA               IX5    X4-X5             NEG IF NOT AT THE BEGINNING                   DATA        1711     A     
 DATA               MX0    59                                                              DATA        1712     A     
 DATA               AX5    59                                                              DATA        1713     A     
 DATA               BX7    X5*X0             DEC = 0 IF AT THE START                       DATA        1714     A     
 DATA               EQ     OIC3                                                            DATA        1715     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1979    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA                                                                                      DATA        1716     A     
 DATA      OIC2     SA3    X1                DIT WORD                                      DATA        1717     A     
 DATA               PL     X3,OIC12          IF NOT THE START OF A REP                     DATA        1718     A     
 DATA               MX7    0                 DEC = 0                                       DATA        1719     A     
 DATA                                                                                      DATA        1720     A     
 DATA     *         REP LIST ENCOUNTERED - SEE IF WE CAN OUTPUT "REPI" MACROS              DATA        1721     A     
 DATA     *         A3,X3 - REP LIST INFO WORD - DO NOT DESTROY UNTIL UPDATED              DATA        1722     A     
 DATA                                                                                      DATA        1723     A     
 DATA      OIC3     LX4    B5,X3                                                           DATA        1724     A     
 DATA               AX4    54+1              POSITION CONSTANT ITEM LENGTH FLAG            DATA        1725     A     
 DATA               ZR     X4,OIC12          IF ALL ITEMS ARE NOT THE SAME LENGTH          DATA        1726     A     
 DATA                                                                                      DATA        1727     A     
 DATA     *         N = MIN(RF+DEC,T/RL) = NUMBER OF TIMES WE CAN REP THE DATA             DATA        1728     A     
 DATA                                                                                      DATA        1729     A     
 DATA               SA5    T                                                               DATA        1730     A     
 DATA               SB4    X4                B4 = CIL FLAG                                 DATA        1731     A     
 DATA               SX0    X3                X0 = RF                                       DATA        1732     A     
 DATA               BX2    X3                                                              DATA        1733     A     
 DATA               AX2    36                                                              DATA        1734     A     
 DATA               SX6    X2                RL                                            DATA        1735     A     
 DATA               SB2    X2                B2 = RL                                       DATA        1736     A     
 DATA               SA6    RL                                                              DATA        1737     A     
 DATA               IX0    X0+X7             RF+DEC                                        DATA        1738     A     
 DATA               IX5    X5/X6             T/RL                                          DATA        1739     A     
 DATA               MX6    X5/X0             MIN OF THE 2                                  DATA        1740          I
          -FEAT155D 
 DATA               MX6    X5-X0       MIN OF THE TWO                                      FEAT155D     137     A     
 DATA               SB6    X6                                                              DATA        1741     A     
 DATA               LE     B6,B5,OIC12       IF WE CAN"T REP IT AT LEAST 2 TIMES           DATA        1742     A     
 DATA               SA5    SDPF                                                            DATA        1743     A     
 DATA               SB3    X5+B5             WORDS/ELEMENT                                 DATA        1744     A     
 DATA               GT     B4,B3,OIC12       IF DATA ITEMS LONGER THAN VAR ELEMENT         DATA        1745     A     
 DATA                                                                                      DATA        1746     A     
 DATA               SA6    N                 SAVE REP COUNT                                DATA        1747     A     
 DATA               SX5    X6-1              DECREMENT REP LIST COUNT BY N-1 FOR           DATA        1748     A     
 DATA               IX6    X3-X5             GNI SINCE WE WILL CALL IT ONLY ONCE           DATA        1749     A     
 DATA               SA6    A3                TO OUTPUT THE DATA ITEMS N TIMES              DATA        1750     A     
 DATA                                                                                      DATA        1751     A     
 DATA               SA1    DA                                                              DATA        1752     A     
 DATA               SX2    B2                RL                                            DATA        1753     A     
 DATA               SB6    B4-B5             CIL FLAG - 1                                  DATA        1754     A     
 DATA               LX7    B6,X2             RL*CIF                                        DATA        1755     A     
 DATA               IX5    X7-X1                                                           DATA        1756     A     
 DATA               IX6    X1*X2                                                           DATA        1757     A     
 DATA               SA6    MP                MP = DA*RL                                    DATA        1758     A     
 DATA               NE     B3,B4,OIC7        IF 1 WORD ITEMS AND 2 WD/ELE VARS             DATA        1759     A     
 DATA               EQ     B2,B5,OIC5        IF RL = 1                                     DATA        1760     A     
 DATA               SB7    X1                DA                                            DATA        1761     A     
 DATA               NE     B7,B4,OIC7        IF DA " CIL                                   DATA        1762     A     
 DATA                                                                                      DATA        1763     A     
 DATA     *         RL = 1 OR DA = CIL - OUTPUT THE DATA AND A SINGLE REPI                 DATA        1764     A     
 DATA                                                                                      DATA        1765     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1980    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA      OIC5     SA7    DLEN              SAVE LENGTH OF DATA LIST ( *CIL )             DATA        1766     A     
 DATA               SA3    B                                                               DATA        1767     A     
 DATA               RJ     ODV               OUTPUT ORG TO SET DATA PLACEMENT ADDR         DATA        1768     A     
 DATA               SA1    RL                                                              DATA        1769     A     
 DATA               BX6    -X1                                                             DATA        1770     A     
 DATA                                                                                      DATA        1771     A     
 DATA      OIC6     SA6    LI                                                              DATA        1772     A     
 DATA               RJ     GNI               GET NEXT ITEM                                 DATA        1773     A     
 DATA               SA1    SDPF                                                            DATA        1774     A     
 DATA               SB1    X1+B5             WORD LIMIT                                    DATA        1775     A     
 DATA               RJ     ODI               OUTPUT DATA ITEM                              DATA        1776     A     
 DATA               SA1    LI                                                              DATA        1777     A     
 DATA               SX6    X1+B5             DECREMENT INDEX                               DATA        1778     A     
 DATA               NZ     X6,OIC6                                                         DATA        1779     A     
 DATA                                                                                      DATA        1780     A     
 DATA               SA1    N                 REP COUNT                                     DATA        1781     A     
 DATA               SA2    MP                FWA INCR                                      DATA        1782     A     
 DATA               SA4    DLEN              NUMBER OF DATA WORDS                          DATA        1783     A     
 DATA               LX3    X2                DESTIN OFFSET                                 DATA        1784     A     
 DATA               BX6    X4                                                              DATA        1785     A     
 DATA               RJ     ORP               OUTPUT REPI MACRO CALL                        DATA        1786     A     
 DATA               EQ     OIC9                                                            DATA        1787     A     
 DATA                                                                                      DATA        1788     A     
 DATA     *         RL > 1 AND DA " CIL - PUT OUT A REP FOR EACH DATA ITEM                 DATA        1789     A     
 DATA                                                                                      DATA        1790     A     
 DATA      OIC7     SA3    B                                                               DATA        1791     A     
 DATA               SX7    -B2                                                             DATA        1792     A     
 DATA               BX6    X3                                                              DATA        1793     A     
 DATA               SA7    TMP                                                             DATA        1794     A     
 DATA               SA6    A7+B5             AND COPY OF BIAS                              DATA        1795     A     
 DATA                                                                                      DATA        1796     A     
 DATA      OIC8     RJ     ODV               OUTPUT ORG TO SET DATA PLACEMENT ADDR         DATA        1797     A     
 DATA               RJ     GNI               GET DATA LIST POINTER                         DATA        1798     A     
 DATA               SA1    SDPF                                                            DATA        1799     A     
 DATA               SB1    X1+B5             SET WORD LIMIT                                DATA        1800     A     
 DATA               RJ     ODI               OUTPUT DATA STMT                              DATA        1801     A     
 DATA               SA1    N                 REP COUNT + 1                                 DATA        1802     A     
 DATA               SA2    MP                I                                             DATA        1803     A     
 DATA               BX3    X2                D                                             DATA        1804     A     
 DATA               SX6    B1                B                                             DATA        1805     A     
 DATA               RJ     ORP               OUTPUT REPI MACRO                             DATA        1806     A     
 DATA               SA1    TMP               LOOP INDEX                                    DATA        1807     A     
 DATA               SA2    DA                                                              DATA        1808     A     
 DATA               SA3    A1+B5             BIAS                                          DATA        1809     A     
 DATA               IX6    X2+X3             B = B+DA ( ADVANCE BIAS )                     DATA        1810     A     
 DATA               SA6    A3                                                              DATA        1811     A     
 DATA               BX3    X6                                                              DATA        1812     A     
 DATA               SX7    X1+B5             DECREMENT LOOP INDEX                          DATA        1813     A     
 DATA               SA7    A1                                                              DATA        1814     A     
 DATA               NG     X7,OIC8                                                         DATA        1815     A     
 DATA                                                                                      DATA        1816     A     
 DATA     *         END OF REP OUTPUT - UPDATE COUNTERS ( N.ITEM,T AND B )                 DATA        1817     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1981    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA                                                                                      DATA        1818     A     
 DATA      OIC9     SA1    N                                                               DATA        1819     A     
 DATA               SA2    RL                                                              DATA        1820     A     
 DATA               SA3    B                                                               DATA        1821     A     
 DATA               SA4    N.ITEM                                                          DATA        1822     A     
 DATA               IX0    X1*X2             N*RL = NUMBER OF ELEMENTS PROCESSED           DATA        1823     A     
 DATA               SA2    DA                                                              DATA        1824     A     
 DATA               SA5    T                                                               DATA        1825     A     
 DATA               MX7    0                                                               DATA        1826     A     
 DATA               SA7    ORGI              ORGI = 0                                      DATA        1827     A     
 DATA               IX1    X0*X2                                                           DATA        1828     A     
 DATA               IX7    X3+X1             B = B+DA*(N*RL)                               DATA        1829     A     
 DATA               SA7    A3                                                              DATA        1830     A     
 DATA               UX0    X0                                                              DATA        1831     A     
 DATA               IX6    X4-X0             DECREMENT NUMBER OF ITEMS LEFT                DATA        1832     A     
 DATA               SA6    A4                                                              DATA        1833     A     
 DATA               IX7    X5-X0             AND NUMBER OF VARS LEFT                       DATA        1834     A     
 DATA               SA7    A5                                                              DATA        1835     A     
 DATA               ZR     X6,OIC10          IF DATA LIST IS EXHAUSTED                     DATA        1836     A     
 DATA               NZ     X7,OIC1           IF MORE VARIABLES TO GO                       DATA        1837     A     
 DATA                                                                                      DATA        1838     A     
 DATA      OIC10    IX6    X6-X7             N.ITEM = N.ITEM-T                             DATA        1839     A     
 DATA               SA6    A6                FORCE AN INFORMATIVE ERROR IF T " 0           DATA        1840     A     
 DATA               EQ     OIC                                                             DATA        1841     A     
 DATA                                                                                      DATA        1842     A     
 DATA     *         NOT AT THE START OF A REP OR CANNOT REP WITH THIS ITEM LIST            DATA        1843     A     
 DATA     *         OUTPUT ITEMS UNTIL WE HIT THE START OF THE NEXT REP OR                 DATA        1844     A     
 DATA     *         T = 0 OR N.ITEM = 0                                                    DATA        1845     A     
 DATA                                                                                      DATA        1846     A     
 DATA      OIC12    SA2    DVT+1                                                           DATA        1847     A     
 DATA               AX2    18                                                              DATA        1848     A     
 DATA               SX7    X2                SAVE WORD LIMIT                               DATA        1849     A     
 DATA               SA7    TMP                                                             DATA        1850     A     
 DATA                                                                                      DATA        1851     A     
 DATA      OIC14    SA1    DA                                                              DATA        1852     A     
 DATA               SA2    ORGI                                                            DATA        1853     A     
 DATA               IX0    X1-X2                                                           DATA        1854     A     
 DATA               ZR     X0,OIC15          IF WE DON"T NEED AN ORG                       DATA        1855     A     
 DATA               SA3    B                                                               DATA        1856     A     
 DATA               RJ     ODV               SET DATA PLACEMENT ADDRESS                    DATA        1857     A     
 DATA      OIC15    RJ     GNI               GET NEXT DATA ITEM                            DATA        1858     A     
 DATA               SA1    TMP                                                             DATA        1859     A     
 DATA               SA2    B                                                               DATA        1860     A     
 DATA               SA4    DA                                                              DATA        1861     A     
 DATA               IX3    X1-X2                                                           DATA        1862     A     
 DATA               SB1    X3                WORD LIMIT FOR THIS ELEMENT                   DATA        1863     A     
 DATA               IX7    X4+X2             B = B+DA ( ADVANCE BIAS  )                    DATA        1864     A     
 DATA               SA7    A2                                                              DATA        1865     A     
 DATA               RJ     ODI               OUTPUT A DATA ITEM                            DATA        1866     A     
 DATA               SX6    B1                                                              DATA        1867     A     
 DATA               SA6    ORGI              SAVE ORG COUNTER INCREMENT                    DATA        1868     A     
 DATA                                                                                      DATA        1869     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1982    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               MX0    59                                                              DATA        1870     A     
 DATA               SA4    N.ITEM                                                          DATA        1871     A     
 DATA               SA5    T                                                               DATA        1872     A     
 DATA               IX6    X4+X0             DECREMENT NUMBER OF ITEMS LEFT                DATA        1873     A     
 DATA               SA6    A4                                                              DATA        1874     A     
 DATA               IX7    X5+X0             AND NUMBER OF VARIABLES LEFT                  DATA        1875     A     
 DATA               SA7    A5                                                              DATA        1876     A     
 DATA               ZR     X6,OIC10          IF NO MORE DATA ITEMS LEFT                    DATA        1877     A     
 DATA               ZR     X7,OIC            IF FINISHED WITH THE VARS                     DATA        1878     A     
 DATA                                                                                      DATA        1879     A     
 DATA               SA1    I.DIT                                                           DATA        1880     A     
 DATA               SA2    O.DIT                                                           DATA        1881     A     
 DATA               IX1    X1+X2              BASE ADDRESS + ORDINAL                       DATA        1882     A     
 DATA               SA3    X1                NEXT DIT WORD                                 DATA        1883     A     
 DATA               MX7    0                                                               DATA        1884     A     
 DATA               PL     X3,OIC14          IF NOT THE START OF A REP                     DATA        1885     A     
 DATA               EQ     OIC3                                                            DATA        1886     A     
 DATA      ODV      TITLE   OUTPUT ROUTINES                                                DATA        1887     A     
 DATA     ***                                                                              DATA        1888     A     
 DATA     *         ODV - OUTPUT DATA VARIABLE ADDRESS                                     DATA        1889     A     
 DATA     *         OUTPUTS AN "ORG" MACRO CALL TO SET THE FWA FOR DATA PLACEMENT          DATA        1890     A     
 DATA     *                                                                                DATA        1891     A     
 DATA     *         ON ENTRY:                                                              DATA        1892     A     
 DATA     *                X3 = ANY ADDITIONAL BIAS DUE TO SUBSCRIPT CALCULATIONS,         DATA        1893     A     
 DATA     *                                                                                DATA        1894     A     
 DATA                                                                                      DATA        1895     A     
 DATA      ODV      ENTRY. *                                                               DATA        1896     A     
 DATA               SA1    DVT                                                             DATA        1897     A     
 DATA                                                                                      DATA        1898     A     
 DATA      #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   DATA        1899     A     
 DATA               BX2    X1                                                              DATA        1900     A     
 DATA               LX2    59-P.LCMI                                                       DATA        1901     A     
 DATA               PL     X2,ODV.1    IF NOT LCM INDIRECT ADDRESS MODE                    DATA        1902     A     
 DATA               SX6    B5                                                              DATA        1903     A     
 DATA               SA6    =XIAF       FOR FMAC                                            DATA        1904     A     
 DATA      ODV.1    BSS    0                                                               DATA        1905     A     
 DATA      #DAL     ENDIF                                                                  DATA        1906     A     
 DATA                                                                                      DATA        1907     A     
 DATA               INTARG                   INITIALIZE FOR FMAC CALL                      DATA        1908     A     
 DATA               SX2    X1                SAVE BIAS DUE TO EQUIVALENCING                DATA        1909     A     
 DATA               AX1    18                                                              DATA        1910     A     
 DATA               SX6    X1                                                              DATA        1911     A     
 DATA               SVARG  NAME,B5           ARG1 = VARIABLE NAME                          DATA        1912     A     
 DATA               IX6    X2+X3                                                           DATA        1913     A     
 DATA               ZR     X6,ODV1           IF NO BIAS                                    DATA        1914     A     
 DATA               SVARG  OCT,B5+B5         ARG2 = BIAS                                   DATA        1915     A     
 DATA                                                                                      DATA        1916     A     
 DATA      ODV1     LX1    59-P.DDD+18                                                     DATA        1917     A     
 DATA               PL     X1,ODV2           IF NOT SECOND APPEARENCE OF UDV IN            DATA        1918     A     
 DATA               SX6    B5                DATA STMT                                     DATA        1919     A     
 DATA               SVARG  INT,3             ARG3 = FLAG                                   DATA        1920     A     
 DATA      ODV2     NARGS= B7                SAVE ARGS                                     DATA        1921     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1983    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               FMAC   ORG               FORM MACRO CALL                               DATA        1922     A     
 DATA               EQ     ODV                                                             DATA        1923     A     
 DATA      ORP      SPACE  3                                                               DATA        1924     A     
 DATA     ***                                                                              DATA        1925     A     
 DATA     *         ORP - OUTPUT "REPI" MACRO CALL                                         DATA        1926     A     
 DATA     *                                                                                DATA        1927     A     
 DATA     *         ON ENTRY:                                                              DATA        1928     A     
 DATA     *                X6 = DATA BLOCK LENGTH ( NUMBER OF WORDS TO BE REPPED )         DATA        1929     A     
 DATA     *                X1 = REP COUNT + 1                                              DATA        1930     A     
 DATA     *                X2 = FWA INCREMENT BETWEEN REPS                                 DATA        1931     A     
 DATA     *                X3 = DESTINATION ADDRESS OFFSET                                 DATA        1932     A     
 DATA     *                                                                                DATA        1933     A     
 DATA                                                                                      DATA        1934     A     
 DATA      ORP      ENTRY. *                                                               DATA        1935     A     
 DATA               INTARG                   INITIALIZE FOR FMAC CALL                      DATA        1936     A     
 DATA               IX0    X6-X2                                                           DATA        1937     A     
 DATA               IX4    X3-X6                                                           DATA        1938     A     
 DATA               SVARG  OCT,B5            ARG1 = DLEN                                   DATA        1939     A     
 DATA               SX6    X1-1                                                            DATA        1940     A     
 DATA               SVARG  OCT,B5+B5         ARG2 = REPLICATION COUNT                      DATA        1941     A     
 DATA               ZR     X0,ORP1           IF THIRD ARG IS NOT NECESSARY                 DATA        1942     A     
 DATA               BX6    X2                                                              DATA        1943     A     
 DATA               SVARG  OCT,B7+B5         ARG3 = FWA INCREMENT                          DATA        1944     A     
 DATA      ORP1     ZR     X4,ORP2           IF FOURTH ARG NOT NECESSARY                   DATA        1945     A     
 DATA               BX6    X3                                                              DATA        1946     A     
 DATA               SVARG  OCT,4             ARG4 = DESTIN ADDRESS - LOCF(S.)              DATA        1947     A     
 DATA                                                                                      DATA        1948     A     
 DATA      ORP2     NARGS= B7                SAVE ARGUMENT COUNT                           DATA        1949     A     
 DATA               FMAC   REPI              OUTPUT REPI MACRO CALL                        DATA        1950     A     
 DATA               EQ     ORP                                                             DATA        1951     A     
 DATA      ODI      EJECT                                                                  DATA        1952     A     
 DATA     ***                                                                              DATA        1953     A     
 DATA     *         ODI - OUTPUT DATA ITEM                                                 DATA        1954     A     
 DATA     *                                                                                DATA        1955     A     
 DATA     *         ON ENTRY:                                                              DATA        1956     A     
 DATA     *                B1 = MAX NUMBER OF DATA WORDS THAT MAY BE ISSUED                DATA        1957     A     
 DATA     *                A5,X5 = FWA OF DIT ENTRY                                        DATA        1958     A     
 DATA     *                                                                                DATA        1959     A     
 DATA     *         ON EXIT:                                                               DATA        1960     A     
 DATA     *                B1 = NUMBER OF DATA WORDS THAT WE ISSUED                        DATA        1961     A     
 DATA     *                     ( ORG COUNTER INCREMENT )                                  DATA        1962     A     
 DATA     *                                                                                DATA        1963     A     
 DATA                                                                                      DATA        1964     A     
 DATA      ODI      ENTRY. *                                                               DATA        1965     A     
 DATA               BX6    X5                STORE THIS CONSTANTS*S ELIST ENTRY            FCC0537       65     A     
 DATA               AX6    40                                                              FCC0537       66     A     
 DATA               SA2    X6                                                              FCC0537       67     A     
 DATA               BX7    X2                                                              FCC0537       68     A     
 DATA               SA6    EL.HOL                                                          FCC0537       69     A     
 DATA               SA7    EL.CNS                                                          FCC0537       70     A     
 DATA               MX6    0                                                               FCC0537       71     A     
 DATA               SB2    X5                NUMBER OF WORDS IN DATA ITEM                  DATA        1966     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1984    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SA6    TC.HOL            CLEAR TRUNCATE FLAG                           FCC0537       72     A     
 DATA               LX0    B5,X5                                                           DATA        1967     A     
 DATA               SA6    LI.HOL            CLEAR LAST ISSUE FLAG                         FCC0537       73     A     
 DATA               SX6    B1-B2             < 0 IF WC(D) > WORD LIMIT                     DATA        1968     A     
 DATA               SX7    A5+B5                                                           DATA        1969     A     
 DATA               LX7    18                                                              DATA        1970     A     
 DATA               SX4    B2                                                              DATA        1971     A     
 DATA               SA6    TEMP                                                            DATA        1972     A     
 DATA               BX7    X4+X7             SAVE DATA WORD ADDR AND WC(D)                 DATA        1973     A     
 DATA               SA7    A6+B5                                                           DATA        1974     A     
 DATA               NG     X0,ODI1           IF A HOLLERITH CONSTANT                       DATA        1975     A     
 DATA                                                                                      DATA        1976     A     
 DATA     *         PROCESS 1 OR 2 WORD CONSTANT                                           DATA        1977     A     
 DATA                                                                                      DATA        1978     A     
 DATA               SA5    A5+B5             FIRST WORD OF CON                             DATA        1979          I
          -FCC1563X 
 DATA               SA1    DVT         CHECK CONSTANT TYPE                                 FCC1563X      51     A     
 DATA               MX0    4                                                               FCC1563X      52     A     
 DATA               BX6    X1-X5                                                           FCC1563X      53     A     
 DATA               LX0    P.CTYP+L.TYP      POSITION MASK                                 FCC1563X      54     A     
 DATA               BX6    X0*X6                                                           FCC1563X      55     A     
 DATA               ZR     X6,ODI0     IF NO TYPE CONFLICT                                 FCC1563X      56     A     
 DATA                                                                                      FCC1563X      57     A     
 DATA               POSTER NR=E.DTC,SEV=ANSI,FMT=ELIST,TXT=SNAME                           FCC1563X      58     A     
 DATA                                                                                      FCC1563X      59     A     
 DATA      ODI0     SA5    A5+B5       FIRST WORD OF CON                                   FCC1563X      60     A     
 DATA               RJ     IDW               ISSUE TO COMPS FILE                           DATA        1980     A     
 DATA               SA2    TEMP+1                                                          DATA        1981     A     
 DATA               SA1    A2-B5                                                           DATA        1982     A     
 DATA               SB1    X2                                                              DATA        1983     A     
 DATA               EQ     B1,B5,ODI         EXIT IF ONLY 1 DATA WORD                      DATA        1984          I
          -FCC2229
 DATA               SA1   DVT                                                              FCC2229       26     A     
 DATA               LX1   2                                                                FCC2229       27     A     
 DATA               PL    X1,ODI00    IF NOT DIM COMPLEX VAR WITH DELAY STORE              FCC2229       28     A     
 DATA               SA1   SDPF                                                             FCC2229       29     A     
 DATA               ZR    X1,ODI00    IF NOT COMPLEX VAR                                   FCC2229       30     A     
 DATA               SA1   N.SUBS                                                           FCC2229       31     A     
 DATA               ZR    X1,ODI00    IF NOT DIM VAR                                       FCC2229       32     A     
 DATA               NE     B1,B5,ODI00 IF OUTPUT MORE THAN ONE WORD                        FCC2229       33     A     
 DATA               SB1   B1+B1                                                            FCC2229       34     A     
 DATA               SX5   0                                                                FCC2229       35     A     
 DATA               RJ    IDW         OUTPUT SECOND DATA WORD                              FCC2229       36     A     
 DATA               SA2   TEMP+1                                                           FCC2229       37     A     
 DATA               SA1   A2-B5                                                            FCC2229       38     A     
 DATA               SX7   0                                                                FCC2229       39     A     
 DATA               SA7   SDPF                                                             FCC2229       40     A     
 DATA               SA7   N.SUBS                                                           FCC2229       41     A     
 DATA               EQ    ODI                                                              FCC2229       42     A     
 DATA      ODI00    SA2   TEMP+1                                                           FCC2229       43     A     
 DATA               SA1   A2-B5                                                            FCC2229       44     A     
 DATA               EQ    B1,B5,ODI                                                        FCC2229       45     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1985    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               NG     X1,ODI.IE         IF 2 WORDS OF DATA FOR A 1 WORD ITEM          DATA        1985          I
          -FCC0537
 DATA               MI     X1,ODI4           IF 2 WORDS OF DATA FOR 1 WORD ITEM            FCC0537       74     A     
 DATA                                                                                      DATA        1986     A     
 DATA               AX2    18                                                              DATA        1987     A     
 DATA               SA5    X2+B5                                                           DATA        1988     A     
 DATA               RJ     IDW               OUTPUT SECOND DATA WORD                       DATA        1989     A     
 DATA               SB1    B5+B5                                                           DATA        1990     A     
 DATA               EQ     ODI                                                             DATA        1991     A     
 DATA                                                                                      DATA        1992     A     
 DATA     *         OUTPUT HOLLERITH CONSTANT                                              DATA        1993     A     
 DATA                                                                                      DATA        1994     A     
 DATA      ODI1     SA1    SDPF                                                            DATA        1995     A     
 DATA               SB3    X1+B5                                                           DATA        1996     A     
 DATA               LE     B2,B3,ODI2        IF HOL CONST < ELEMENT LENGTH                 DATA        1997     A     
 DATA               SA7    NONANSI           SET NON ANSI USEAGE FLAG                      DATA        1998     A     
 DATA                                                                                      DATA        1999     A     
 DATA      ODI2     AX5    36                CHARS IN LAST WORD                            DATA        2000     A     
 DATA               BX6    X5                                                              FCC0537       75     A     
 DATA               AX6    4                                                               FCC0537       76     A     
 DATA               SX6    X6                                                              FCC0537       77     A     
 DATA               SA6    TEMP+2                                                          FCC0537       78     A     
 DATA               LE     B2,B1,ODI3        IF CON LEN @ WORD LIMIT                       DATA        2001     A     
 DATA               SX7    B1                ORGC INC = WORD LIMIT                         DATA        2002     A     
 DATA               SA7    TEMP+1                                                          DATA        2003          I
          -FCC0537
 DATA               SA7    A6-B5                                                           FCC0537       79     A     
 DATA               MX5    0                 NO CHARS IN LAST WORD                         DATA        2004     A     
 DATA               SB2    B1                                                              DATA        2005     A     
 DATA                                                                                      DATA        2006     A     
 DATA      ODI3     SA4    A5+B5             ELIST FOR THE CON                             DATA        2007     A     
 DATA               SX5    X5                                                              DATA        2008          I
          -FCC0537
 DATA               MX7    -4                                                              FCC0537       80     A     
 DATA               BX5    -X7*X5                                                          FCC0537       81     A     
 DATA               CALL   OHC               OUTPUT IT                                     DATA        2009     A     
 DATA               SA2    TEMP+1                                                          DATA        2010          I
          -FCC0537
 DATA               SA1    A2-B5                                                           DATA        2011          I
          -FCC0537
 DATA               SB1    X2                ORGC INC                                      DATA        2012          I
          -FCC0537
 DATA               PL     X1,ODI            IF CON LENGTH @ WORD LIMIT                    DATA        2013          I
          -FCC0537
 DATA               MX1    0                                                               DATA        2014          I
          -FCC0537
 DATA                                                                                      DATA        2015          I
          -FCC0537
 DATA     *         ISSUE ERROR MESSAGE - CONSTANT LEN > ITEM LENGTH, CON TRUNCATE         DATA        2016          I
          -FCC0537
 DATA                                                                                      DATA        2017          I
          -FCC0537
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1986    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA      ODI.IE   EREXIT E.TRC                                                           DATA        2018          I
          -FCC0537
 DATA               SB1    B1+X1             ORGI = WC(D)+(LIM-WC(D)) = LIM                DATA        2019          I
          -FCC0537
 DATA               SA4    SNAME                                                           DATA        2020          I
          -FCC0537
 DATA               SB7    ODI                                                             DATA        2021          I
          -FCC0537
 DATA               EQ     ERPROI                                                          DATA        2022          I
          -FCC0537
 DATA               SA4    TEMP+2                                                          FCC0537       82     A     
 DATA               MX6    1                                                               FCC0537       83     A     
 DATA               SA3    X4-1              LOOK AHEAD                                    FCC0537       84     A     
 DATA               SA6    LI.HOL            SET LAST ISSUE FLAG                           FCC0537       85     A     
 DATA               UX7    B3,X3                                                           FCC0537       86     A     
 DATA               SA4    X4                                                              FCC0537       87     A     
 DATA               SA2    TEMP+1                                                          FCC0537       88     A     
 DATA               AX4    18                                                              FCC0537       89     A     
 DATA               SA1    A2-B5                                                           FCC0537       90     A     
 DATA               SB4    X4-11                                                           FCC0537       91     A     
 DATA               SB1    X2                ORG COUNT INCREMENT                           FCC0537       92     A     
 DATA               SB3    B3-EL.COMMA                                                     FCC0537       93     A     
 DATA               BX7    X1                                                              FCC0537       94     A     
 DATA               MX1    0                                                               FCC0537       95     A     
 DATA               MI     B4,ODI            IF .LE. 10 HOLL. CHARACTERS                   FCC0537       96     A     
 DATA               ZR     B3,ODI4           IF OTHER CONSTANTS                            FCC0537       97     A     
 DATA               PL     X7,ODI            IF CON. LENGTH .LE. WORD LIMIT                FCC0537       98     A     
 DATA                                                                                      FCC0537       99     A     
 DATA     *         ISSUE INF. DIAGNOSTIC - CON. LEN. .GT. ITEM LEN., TRUNCATED.           FCC0537      100     A     
 DATA                                                                                      FCC0537      101     A     
 DATA      ODI4     SB1    B1+X1             ORG COUNT INC.=WC(D)+(LIM-WC(D))=LIM          FCC0537      102     A     
 DATA               MX7    1                                                               FCC0537      103     A     
 DATA               SA7    TC.HOL            SET TRUNCATE FLAG                             FCC0537      104     A     
 DATA               POSTER NR=E.TRC,SEV=INF,FMT=ELIST,TXT=EL.CNS,RETURN=ODI                FCC0537      105     A     
 DATA      IDW      SPACE  3                                                               DATA        2023     A     
 DATA     ***       IDW - ISSUE A DATA WORD TO THE COMPS FILE                              DATA        2024     A     
 DATA     *                                                                                DATA        2025     A     
 DATA     *         ON ENTRY:                                                              DATA        2026     A     
 DATA     *                X5 = DATA WORD                                                  DATA        2027     A     
 DATA     *                                                                                DATA        2028     A     
 DATA                                                                                      DATA        2029     A     
 DATA      IDW1     INTARG                   INITIALIZE FOR FMAC CALL                      DATA        2030     A     
 DATA               SVARG  OCT,B5                                                          DATA        2031     A     
 DATA               NARGS= B7                                                              DATA        2032     A     
 DATA               FMAC   DATA              OUTPUT DATA WORD                              DATA        2033     A     
 DATA                                                                                      DATA        2034     A     
 DATA      IDW      ENTRY. *                                                               DATA        2035     A     
 DATA               MX0    43                                                              DATA        2036     A     
 DATA               BX1    X0*X5                                                           DATA        2037     A     
 DATA               AX1    17                                                              DATA        2038     A     
 DATA               BX6    X5                                                              DATA        2039     A     
 DATA               ZR     X1,IDW1           IF A SMALL CONSTANT                           DATA        2040     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1987    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               BX1    X5                                                              DATA        2041     A     
 DATA               CALL   BTOCT             CONVERT ALL 20 DIGITS TO OCTAL                DATA        2042     A     
 DATA               SA6    IDW.D+1                                                         DATA        2043     A     
 DATA               SA7    A6+B5                                                           DATA        2044     A     
 DATA               SB1    1                                                               DATA        2045     A     
 DATA               WRITEC =XF.CMPS,IDW.D,4  DATA LINE TO -COMPS-                          DATA        2046     A     
 DATA               SB5    1                                                               DATA        2047     A     
 DATA               EQ     IDW         EXIT                                                DATA        2048     A     
 DATA                                                                                      DATA        2049     A     
 DATA                                                                                      DATA        2050     A     
 DATA                                                                                      DATA        2051     A     
 DATA      IDW.D    DATA   31C  DATA    12345678901234567890B                              DATA        2052     A     
 DATA      GNI      EJECT                                                                  DATA        2053     A     
 DATA     ***                                                                              DATA        2054          I
          -FCC0537
 DATA     *         GNI - GET ADDRESS OF NEXT DATA ITEM                                    DATA        2055          I
          -FCC0537
 DATA     *                                                                                DATA        2056          I
          -FCC0537
 DATA     *         ON EXIT:                                                               DATA        2057          I
          -FCC0537
 DATA     *                A5,X5 = ADDRESS AND CONTENTS OF FIRST WORD OF NEXT              DATA        2058          I
          -FCC0537
 DATA     *                DATA ITEM FROM "DIT"                                            DATA        2059          I
          -FCC0537
 DATA     *                                                                                DATA        2060          I
          -FCC0537
 DATA     **        GNI  -  GET ADDRESS OF NEXT DATA ITEM.                                 FCC0537      106     A     
 DATA     *                                                                                FCC0537      107     A     
 DATA     *         EXIT   A5,X5 = ADDRESS AND CONTENTS OF FIRST WORD OF NEXT              FCC0537      108     A     
 DATA     *                        DATA ITEM FROM *DIT*.                                   FCC0537      109     A     
 DATA                                                                                      DATA        2061     A     
 DATA      GNI      ENTRY. *                                                               DATA        2062     A     
 DATA               SA1    I.DIT                                                           DATA        2063     A     
 DATA               SA2    O.DIT                                                           DATA        2064     A     
 DATA               IX6    X1+X2                                                           DATA        2065     A     
 DATA               SA5    X6                NEXT WORD FROM DIT                            DATA        2066     A     
 DATA               SA2    A1+B5             REP COUNT REMAINDER                           DATA        2067     A     
 DATA               PL     X5,GNI1           IF NOT THE START OF A REP LIST                DATA        2068     A     
 DATA                                                                                      DATA        2069     A     
 DATA     *         INITIALIZE REP LIST PROCESSING                                         DATA        2070     A     
 DATA                                                                                      DATA        2071     A     
 DATA               BX6    X5                                                              DATA        2072     A     
 DATA               SX7    X1+B5                                                           DATA        2073     A     
 DATA               SA6    REPFLAG                                                         DATA        2074     A     
 DATA               SA7    A2+B5             SAVE ORDINAL OF REP LIST START                DATA        2075     A     
 DATA               AX6    36                                                              DATA        2076     A     
 DATA               BX7    -X6                                                             DATA        2077     A     
 DATA               SA7    A2                SET REMAINDER = -N.ITEMS IN REP LIST          DATA        2078     A     
 DATA               BX2    X7                                                              DATA        2079     A     
 DATA               SA5    A5+B5             GET FIRST DATA WORD                           DATA        2080     A     
 DATA               SX1    X1+B5             ADVANCE INDEX PAST REP WORD                   DATA        2081     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1988    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA                                                                                      DATA        2082     A     
 DATA     *         ADVANCE I.DIT TO POINT TO NEXT ITEM AND SEE IF WE ARE IN A             DATA        2083     A     
 DATA     *         REP LIST                                                               DATA        2084     A     
 DATA                                                                                      DATA        2085     A     
 DATA      GNI1     BX0    X5                                                              DATA        2086     A     
 DATA               AX0    18                                                              DATA        2087     A     
 DATA               IX7    X0+X1             UPDATE INDEX                                  DATA        2088     A     
 DATA               SA7    A1                                                              DATA        2089     A     
 DATA               ZR     X2,GNI            IF NO REPETITION                              DATA        2090     A     
 DATA               SX7    X2+B5                                                           DATA        2091     A     
 DATA               SA7    A2                UPDATE REMAINDER                              DATA        2092     A     
 DATA               NZ     X7,GNI            EXIT IF MORE TO GO                            DATA        2093     A     
 DATA                                                                                      DATA        2094     A     
 DATA     *         DECREMENT REP COUNT AND START BACK AT START OF REP LIST IF RC          DATA        2095     A     
 DATA                                                                                      DATA        2096     A     
 DATA               SA3    REPFLAG                                                         DATA        2097     A     
 DATA               SX0    B5                                                              DATA        2098     A     
 DATA               IX7    X3-X0             DECREMENT REP COUNT                           DATA        2099     A     
 DATA               SA7    A3                                                              DATA        2100     A     
 DATA               SB7    X7                                                              DATA        2101     A     
 DATA               ZR     B7,GNI2           IF FINISHED                                   DATA        2102     A     
 DATA               AX3    36                                                              DATA        2103     A     
 DATA               BX7    -X3               RESET REMAINDER                               DATA        2104     A     
 DATA               SA7    A2                                                              DATA        2105     A     
 DATA               SA4    A2+B5             ADDRESS OF FIRST DATA ITEM IN REP LIS         DATA        2106     A     
 DATA               BX7    X4                                                              DATA        2107     A     
 DATA               SA7    A1                RESET I.DIT FOR NEXT ENTRY                    DATA        2108     A     
 DATA               EQ     GNI                                                             DATA        2109     A     
 DATA                                                                                      FCC0537      110     A     
 DATA      GNI2     MX7    0                                                               DATA        2110     A     
 DATA               SA7    A7                REPFLAG = 0                                   DATA        2111     A     
 DATA               EQ     GNI                                                             DATA        2112     A     
 DATA               TITLE              PDV- PROCESS DATA VARIABLE                          DATA        2113     A     
 DATA      PDV.E1   EREXIT E.DVN1            NAME IS F.P. FUN , EXT OR IN // COM           DATA        2114     A     
 DATA               EQ     DATA.N                                                          DATA        2115     A     
 DATA                                                                                      DATA        2116     A     
 DATA      PDV.E2   EREXIT E.DVN2            AN ILLEGAL TYPE ( ECS VAR , ETC )             DATA        2117     A     
 DATA               EQ     DATA.N                                                          DATA        2118     A     
 DATA                                                                                      DATA        2119     A     
 DATA     ***                                                                              DATA        2120     A     
 DATA     *         PDV - PROCESS DATA VARIABLE                                            DATA        2121     A     
 DATA     *         PROCESS"S VARIABLE NAME MENTIONED IN A DATA STMT                       DATA        2122     A     
 DATA     *                                                                                DATA        2123     A     
 DATA     *         ON ENTRY:                                                              DATA        2124     A     
 DATA     *                X1 = 8R_NAME                                                    DATA        2125     A     
 DATA     *                                                                                DATA        2126     A     
 DATA     *         ON EXIT:                                                               DATA        2127     A     
 DATA     *                SEMANTICS CHECK FOR LEGAL NAME PERFORMED                        DATA        2128     A     
 DATA     *                ENTRY MADE IN DATA TBL IF FIRST APPEARENCE OF NAME              DATA        2129     A     
 DATA     *                IN SUBPROGRAM                                                   DATA        2130     A     
 DATA     *                REGISTERS RESTORED BY A CALL TO MACRO "GETE"                    DATA        2131     A     
 DATA     *                                                                                DATA        2132     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1989    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA                                                                                      DATA        2133     A     
 DATA     *         FIRST OCCURANCE OF THE NAME - SET TYPE                                 DATA        2134     A     
 DATA                                                                                      DATA        2135     A     
 DATA      PDV.F    ZR     X7,PDV.F1         IF NO PREVIOUS OCCURANCES IN DEBUG ST         DATA        2136     A     
 DATA               CFO    VAR               CHECK SETTING OF DEBUG BITS                   DATA        2137     A     
 DATA      PDV.F1   IX2    X6+X2             SET TYPE                                      DATA        2138     A     
 DATA               EQ     PDV1                                                            DATA        2139     A     
 DATA                                                                                      DATA        2140     A     
 DATA      PDV      ENTRY. *                                                               DATA        2141     A     
 DATA               UPDATE                   SAVE ELIST POINTER                            DATA        2142     A     
 DATA               BX7    X4                                                              DATA        2143     A     
 DATA               SA7    SNAME             SAVE NAME IN CASE OF ERRORS                   DATA        2144     A     
 DATA               SYMBOL                   GET SYMTAB ORDINAL                            DATA        2145     A     
 DATA               EQ     PDV.F             FIST OCCURANCE                                DATA        2146     A     
 DATA                                                                                      DATA        2147     A     
 DATA     *         PREVIOUS OCCURANCES - CHECK FOR A LEGAL VARIABLE                       DATA        2148     A     
 DATA                                                                                      DATA        2149     A     
 DATA               EQ     B1,B5,PDV.E2      IF THE SUBPROGRAM NAME                        DATA        2150     A     
 DATA               BX4    X2                                                              DATA        2151     A     
 DATA               LX4    59-P.EXT                                                        DATA        2152     A     
 DATA               BX3    X1                                                              DATA        2153     A     
 DATA               LX3    59-P.FP                                                         DATA        2154     A     
 DATA               BX4    X3+X4                                                           DATA        2155     A     
 DATA               LX3    P.FP-P.FUN                                                      DATA        2156     A     
 DATA               BX4    X3+X4                                                           DATA        2157     A     
 DATA               NG     X4,PDV.E1         IF FP , FUN OR EXT                            DATA        2158     A     
 DATA                                                                                      DATA        2159     A     
 DATA      PDV1     MX0    L.TYP                                                           DATA        2160     A     
 DATA               SX7    B1                                                              DATA        2161     A     
 DATA               BX4    X2                                                              DATA        2162     A     
 DATA               SA7    ORD                                                             DATA        2163     A     
 DATA               LX4    59-P.LCM                                                        DATA        2164     A     
 DATA               LX7    P.SYMORD                                                        DATA        2165     A     
 DATA               PL     X4,PDV1.A   IF NOT LCM                                          DATA        2166     A     
 DATA               SA5    =XDIRECT                                                        DATA        2167     A     
 DATA               ZR     X5,PDV1.A   IF NOT INDIRECT MODE                                DATA        2168     A     
 DATA               SX5    B5                                                              DATA        2169     A     
 DATA               LX5    P.LCMI                                                          DATA        2170     A     
 DATA               BX7    X7+X5                                                           DATA        2171     A     
 DATA      PDV1.A   BSS    0                                                               DATA        2172     A     
 DATA               BX4    X0*X2                                                           DATA        2173     A     
 DATA               LX4    L.TYP             POSITION TYPE FIELD                           DATA        2174     A     
 DATA               SX5    X4-T.OCT                                                        DATA        2175     A     
 DATA               BX6    X4                                                              FCC1563X      61     A     
 DATA               LX6    P.CTYP      POSITION CONSTANT TYPE                              FCC1563X      62     A     
 DATA               BX7    X7+X6                                                           FCC1563X      63     A     
 DATA               PL     X5,PDV.E2         IF AN ILLEGAL TYPE                            DATA        2176     A     
 DATA                                                                                      DATA        2177     A     
 DATA               SB2    B0                B2 " 0 IF VARIABLE IS IN COMMON               DATA        2178     A     
 DATA               SX5    X4-T.DBL                                                        DATA        2179     A     
 DATA               SX0    B5                                                              DATA        2180     A     
 DATA               AX5    L.TYP                                                           DATA        2181     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1990    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               BX6    -X5*X0            0 IF SINGLE , 1 IF 2 WORDS/ELEMENT            DATA        2182     A     
 DATA               SA6    SDPF                                                            DATA        2183     A     
 DATA               SB7    X6                B7 = SDPF                                     DATA        2184     A     
 DATA               LX6    P.SDPF                                                          DATA        2185     A     
 DATA               BX7    X6+X7                                                           DATA        2186     A     
 DATA                                                                                      DATA        2187     A     
 DATA     *         CHECK FOR VARIABLE IN BLANK COMMON OR SECOND DEF IN DATA STMT          DATA        2188     A     
 DATA                                                                                      DATA        2189     A     
 DATA               TBITN  COM,PDV3          IF NOT IN COMMON                              DATA        2190          I
          -FCC2292
 DATA               BX4    X2                                                              DATA        2191          I
          -FCC2292
 DATA               TBITN  COM,PDV1.A1 IF NOT IN COMMON                                    FCC2292       10          I
          -FCCA549
 DATA               EQ     PDV1.A2                                                         FCC2292       11          I
          -FCCA549
 DATA      PDV1.A1  SA4    PROGRAM                                                         FCC2292       12          I
          -FCCA549
 DATA               NZ     X4,PDV3     IF NOT IN BLOCK DATA MODE PROCESSING                FCC2292       13          I
          -FCCA549
 DATA               EREXIT E.DNC       DATA ITEMS NOT DECLARED IN LABELED                  FCC2292       14          I
          -FCCA549
 DATA               EQ     DATA.N      COMMON IN BLOCK DATA SUBPROGRAM IS ILLEGAL          FCC2292       15          I
          -FCCA549
 DATA      PDV1.A2  BX4    X2                                                              FCC2292       16          I
          -FCCA549
 DATA               MX0   0                                                                FCCA549        7          I
          -FCC2419
 DATA               MX6    0                                                               FCC2419        7     A     
 DATA               SA6    INFDIAG                                                         FCCA549        8     A     
 DATA               BX3    X1                                                              FCCA549        9     A     
 DATA               LX3    59-P.COM                                                        FCCA549       10     A     
 DATA               NG     X3,PDV1A    IF VAR IS IN COMMON                                 FCCA549       11     A     
 DATA               SA4    PROGRAM                                                         FCCA549       12     A     
 DATA               NZ     X4,PDV3     IF NOT IN BLOCK DATA                                FCCA549       13     A     
 DATA               MX6    1                                                               FCCA549       14     A     
 DATA               SA6    INFDIAG                                                         FCCA549       15     A     
 DATA      PDV1A    BX4    X2                                                              FCCA549       16     A     
 DATA               MX0    60-L.RB                                                         DATA        2192     A     
 DATA               AX4    P.RB                                                            DATA        2193     A     
 DATA               BX5    -X0*X4                                                          DATA        2194     A     
 DATA               NZ     X5,PDV2           IF REALLY IN COMMON                           DATA        2195     A     
 DATA               SX6    B5                                                              DATA        2196     A     
 DATA               LX6    P.DDD                                                           DATA        2197     A     
 DATA               BX7    X6+X7             FLAG VAR DOUBLY DEFINED IN DATA STMT          DATA        2198     A     
 DATA               EQ     PDV3                                                            DATA        2199     A     
 DATA                                                                                      DATA        2200     A     
 DATA      PDV2     SA3    ORGTAB-1+X5       BLOCK NAME                                    DATA        2201     A     
 DATA               MX0    60-17                                                           DATA        2202     A     
 DATA               BX4    -X0*X3                                                          DATA        2203     A     
 DATA               SB2    X4                                                              DATA        2204     A     
 DATA               AX3    54                                                              DATA        2205     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1991    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               SX4    X3+77B-1R                                                       DATA        2206     A     
 DATA               ZR     X4,PDV.E1         IF IN BLANK COMMON                            DATA        2207     A     
 DATA               SA3    PROGRAM                                                         DATA        2208     A     
 DATA               BX6    X3                                                              DATA        2209     A     
 DATA               ZR     X3,PDV3                                                         DATA        2210     A     
 DATA               SA6    NONANSI     NON ANSI IF NOT IN BLOCK DATA                       DATA        2211     A     
 DATA                                                                                      DATA        2212     A     
 DATA     *         SET ORGF BIT IN DVT IF "DPCLOSE" ISSUED STORAGE FOR THIS VAR           DATA        2213     A     
 DATA                                                                                      DATA        2214     A     
 DATA      PDV3     BX3    X2                                                              DATA        2215     A     
 DATA               MX0    60-L.DIMP                                                       DATA        2216     A     
 DATA               AX3    P.DIMP                                                          DATA        2217     A     
 DATA               BX4    -X0*X3                                                          DATA        2218     A     
 DATA               SX3    V.SCA                                                           DATA        2219     A     
 DATA               LX5    X4,B5                                                           DATA        2220     A     
 DATA               BX0    X3*X2       SCA BIT                                             DATA        2221     A     
 DATA               LX0    59-P.SCA                                                        DATA        2222     A     
 DATA               AX0    59          EXTEND SCA BIT                                      DATA        2223     A     
 DATA               BX5    -X0*X5      ZERO X5 IF DIMP POINTS TO SCA TABLE                 DATA        2224     A     
 DATA               SB6    X5          B6 = INDEX TO DIM TABLE                             DATA        2225     A     
 DATA               SX0    V.COM                                                           DATA        2226     A     
 DATA               BX3    X0*X1             COMMON BIT                                    DATA        2227     A     
 DATA               IX4    X3+X5             X4 " 0 IF WE ISSUED STORAGE FOR THIS          DATA        2228     A     
 DATA               NZ     X4,PDV4           VARIABLE IN DPCLOSE                           DATA        2229     A     
 DATA               BX1    X0+X1             SET COMMON BIT                                DATA        2230     A     
 DATA               SX0    B0                CLEAR ORG FLAG                                DATA        2231     A     
 DATA                                                                                      DATA        2232     A     
 DATA      PDV4     LX0    P.ORGF-P.COM                                                    DATA        2233     A     
 DATA               BX7    X0+X7             SAVE ORG/NO ORG FLAG                          DATA        2234     A     
 DATA               SA7    DVT               SAVE WORD 1 OF DVT ENTRY                      DATA        2235     A     
 DATA                                                                                      DATA        2236     A     
 DATA     *         SET DEFINED AND VAR BITS IN SYMTAB ENTRY                               DATA        2237     A     
 DATA                                                                                      DATA        2238     A     
 DATA               SX0    V.DEF                                                           DATA        2239     A     
 DATA               BX6    X0+X1             SET DEFINED BIT                               DATA        2240     A     
 DATA               SA6    A1                                                              DATA        2241     A     
 DATA               LX0    P.VAR-P.DEF                                                     DATA        2242     A     
 DATA               BX6    X0+X2             SET VAR BIT                                   DATA        2243     A     
 DATA               SA6    A2                UPDATE SYMTAB ENTRY                           DATA        2244     A     
 DATA                                                                                      DATA        2245     A     
 DATA               SB4    B5+B7             B4 = WORD COUNT ( STORAGE ASSIGNED )          DATA        2246     A     
 DATA               MX6    0                                                               DATA        2247     A     
 DATA               SA6    EEL                                                             DATA        2248     A     
 DATA               SA6    A6+B5             N.DIMS = 0                                    DATA        2249     A     
 DATA               ZR     B6,PDV6           IF NO DIM ENTRY                               DATA        2250     A     
 DATA               SA3    DIM1                                                            DATA        2251     A     
 DATA               SB6    X3+B6             ADDRESS OF IT                                 DATA        2252     A     
 DATA                                                                                      DATA        2253     A     
 DATA     *         SAVE DIMENSION INFO                                                    DATA        2254     A     
 DATA                                                                                      DATA        2255     A     
 DATA               TBITN  DIM,PDV5          IF NO DIMENSIONS                              DATA        2256     A     
 DATA               SA3    B6+B5             WORD 2 OF DIM ENTRY                           DATA        2257     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1992    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               MX0    3                                                               DATA        2258     A     
 DATA               BX6    X0*X3                                                           DATA        2259     A     
 DATA               LX6    3                                                               DATA        2260     A     
 DATA               SA6    N.DIMS            SAVE NUMBER OF DIMENSIONS                     DATA        2261     A     
 DATA               SX0    X6-3                                                            DATA        2262     A     
 DATA               SX6    X3                                                              DATA        2263     A     
 DATA               SA6    DIM.MUL+1                                                       DATA        2264     A     
 DATA               SA6    DIM                                                             DATA        2265     A     
 DATA               AX3    18                                                              DATA        2266     A     
 DATA               SX7    X3                DIM2                                          DATA        2267     A     
 DATA               SA7    A6+B5                                                           DATA        2268     A     
 DATA               AX3    18                                                              DATA        2269     A     
 DATA               SB4    X3                WORDS OF STORAGE                              DATA        2270     A     
 DATA               SX3    X3                                                              DATA        2271     A     
 DATA               AX4    B7,X3             NUMBER OF ITEMS                               DATA        2272     A     
 DATA               NG     X0,PDV5           IF < 3 DIMS                                   DATA        2273     A     
 DATA               IX6    X6*X7             DIM1*DIM2                                     DATA        2274     A     
 DATA               SA6    D1D2                                                            DATA        2275     A     
 DATA               IX7    X4/X6             (PI DIMS)/(DIM1*DIM2)                         DATA        2276     A     
 DATA               SA7    A7+B5             STORE DIM3                                    DATA        2277     A     
 DATA                                                                                      DATA        2278     A     
 DATA     *         EQUIVALENCED - SUBSTITUTE ORD OF BASE AND A BIAS                       DATA        2279     A     
 DATA                                                                                      DATA        2280     A     
 DATA      PDV5     TBITN  EQU,PDV6          IF NOT EQUIVALENCED                           DATA        2281     A     
 DATA               SA3    B6                WORD 1 OF DIM ENTRY                           DATA        2282     A     
 DATA               SA5    DVT                                                             DATA        2283     A     
 DATA               AX3    18                                                              DATA        2284     A     
 DATA               MX0    6                                                               DATA        2285          I
          -FCC1967
 DATA               MX0    60-36                                                           FCC1967        7     A     
 DATA               BX7    X0*X5             REMOVE SYMORD FROM DVT ENTRY                  DATA        2286     A     
 DATA               MX0    60-36                                                           DATA        2287          I
          -FCC1967
 DATA               BX3    -X0*X3            SAVE BASE AND BIAS                            DATA        2288     A     
 DATA               BX7    X3+X7                                                           DATA        2289     A     
 DATA               SA7    A5                                                              DATA        2290     A     
 DATA                                                                                      DATA        2291     A     
 DATA      PDV6     SA2    PL                                                              DATA        2292     A     
 DATA               ZR     X2,PDV7           IF NOT IN A DO NEST                           DATA        2293     A     
 DATA               TBITN  DIM,PDV7          IF NOT DIMENSIONED                            DATA        2294     A     
 DATA                                                                                      DATA        2295     A     
 DATA     *         IF NAME IS IN AN EQUIVALENCE CLASS, THEN                               DATA        2296     A     
 DATA     *                EEL = CLASS LENGTH - ARRAY BIAS                                 DATA        2297     A     
 DATA                                                                                      DATA        2298     A     
 DATA               BX0    X1                                                              DATA        2299     A     
 DATA               LX0    59-P.EQU                                                        DATA        2300     A     
 DATA               NG     X0,PDV6A          IF A NON BASE MEMBER                          DATA        2301     A     
 DATA               SA3    B6                WORD 1 OF DIM ENTRY                           DATA        2302     A     
 DATA               PL     X3,PDV7           IF NOT THE BASE MEMBER OF THE CLASS           DATA        2303     A     
 DATA               SB3    B0                BIAS = 0                                      DATA        2304     A     
 DATA               AX3    36                CLASS LEN OR 0 IF IN COMMON                   DATA        2305     A     
 DATA               SB2    B2+X3                                                           DATA        2306     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1993    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               EQ     PDV6B                                                           DATA        2307     A     
 DATA                                                                                      DATA        2308     A     
 DATA      PDV6A    SB3    X3                BIAS                                          DATA        2309     A     
 DATA               NZ     B2,PDV6B          IF IN COMMON                                  DATA        2310     A     
 DATA               AX3    18-1                                                            DATA        2311     A     
 DATA               SB2    X3+B5             2*ORD(BASE)+1                                 DATA        2312     A     
 DATA               SA2    A0-B2             WORD B OF BASE                                DATA        2313     A     
 DATA               MX0    60-L.DIMP                                                       DATA        2314     A     
 DATA               AX2    P.DIMP                                                          DATA        2315     A     
 DATA               BX1    -X0*X2                                                          DATA        2316     A     
 DATA               SA4    DIM1                                                            DATA        2317     A     
 DATA               LX3    B5,X1             DIMP INDEX                                    DATA        2318     A     
 DATA               IX5    X3+X4                                                           DATA        2319     A     
 DATA               SA1    X5                WORD 1 OF DIM ENTRY OF CLASS BASE             DATA        2320     A     
 DATA               AX1    18                                                              DATA        2321     A     
 DATA               SB2    X1                CLASS LENGTH                                  DATA        2322     A     
 DATA      PDV6B    SX6    B2-B3             CLASS LEN - ARRAY BIAS                        DATA        2323     A     
 DATA               SA6    EEL               SAVE EXTENDED ARRAY LENGTH                    DATA        2324     A     
 DATA                                                                                      DATA        2325     A     
 DATA      PDV7     SA1    DVT                                                             DATA        2326     A     
 DATA               BX0    X1                                                              DATA        2327     A     
 DATA               AX0    P.SDPF                                                          DATA        2328     A     
 DATA               SB7    X0                                                              DATA        2329     A     
 DATA               SX6    B4                NUMBER OF WORDS                               DATA        2330     A     
 DATA               AX5    B7,X6             NUMBER OF ITEMS                               DATA        2331     A     
 DATA               LX6    18                                                              DATA        2332     A     
 DATA               BX6    X5+X6                                                           DATA        2333     A     
 DATA               SA6    A1+B5             SAVE SECOND WORD OF DVT                       DATA        2334     A     
 DATA               LX1    59-P.ORGF                                                       DATA        2335     A     
 DATA               NG     X1,PDV8           IF NO DATA TABLE ENTRY NECESSARY              DATA        2336     A     
 DATA                                                                                      DATA        2337     A     
 DATA     *         FIRST OCCURANCE OR USEAGE DEFINED VAR - SAVE ADDR AND SYMORD           DATA        2338     A     
 DATA     *         IN DATA TABLE SO "ENDPRO" CAN DEFINE ITS ADDRESS                       DATA        2339     A     
 DATA                                                                                      DATA        2340     A     
 DATA               SA2    DATA.                                                           DATA        2341     A     
 DATA               SX7    X2+B4             INCREMENT DATA. LENGTH                        DATA        2342     A     
 DATA               SA7    A2                                                              DATA        2343     A     
 DATA               SX6    B1                                                              DATA        2344     A     
 DATA               LX6    18                                                              DATA        2345     A     
 DATA               BX1    X6+X2             24/0,18/SYMORD,18/RA                          DATA        2346     A     
 DATA               ADDWD  DATA,X1           SAVE ORDINAL AND ADDR IN DATA TABLE           DATA        2347     A     
 DATA               SA1    ORD                                                             DATA        2348     A     
 DATA               SB1    X1                RESTORE B1                                    DATA        2349     A     
 DATA                                                                                      DATA        2350     A     
 DATA      PDV8     SA5    RSELECT                                                         DATA        2351     A     
 DATA               ZR     X5,PDV9           IF NO LONG MAP                                DATA        2352     A     
 DATA               ADDREF B1,DEF            A DEFINITION FOR THE NAME                     DATA        2353     A     
 DATA                                                                                      DATA        2354     A     
 DATA      PDV9     GETE                     RESTORE REGISTERS                             DATA        2355          I
          -FCCA549
 DATA      PDV9     SA1    INFDIAG                                                         FCCA549       17     A     
 DATA               ZR     X1,PDV10                                                        FCCA549       18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1994    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DATA    
  
 DATA               POSTER NR=E.DNC,SEV=INF,TXT=SNAME,FMT=ELIST                            FCCA549       19     A     
 DATA      PDV10    GETE               RESTORE REGISTERS                                   FCCA549       20     A     
 DATA               EQ     PDV                                                             DATA        2356     A     
 DATA                                                                                      DATA        2357     A     
 DATA               END                                                                    DATA        2358     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DATA    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DATA                      2358      2299
          FCC0418                      3         3
          FCC0522                      5         5
          FCC0537                     99        96
          FCC0732                      5         5
          FCC0787                      3         3
          FEAT155D                     1         1
          FCC1512X                     1         1
          FCC1563X                    26        26
          FCC1967                      1         1
          FCCA476                      1         1
          FCC2229                     20        20
          FCC2292                      8         1
          FCCA549                     15        14
          FCC2419                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO    *DECK,    ERPRO                                                                  ERPRO          1     A     
 ERPRO              IDENT  ERPRO                                                           ERPRO          2     A     
 ERPRO              TITLE              ERPRO - PASS 1 ERROR PROCESSOR                      ERPRO          3     A     
 ERPRO    *CALL     SSTCALL                                                                ERPRO          4     A     
 ERPRO     B=ERPRO  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             ERPRO          5     A     
 ERPRO                                                                                     ERPRO          6     A     
 ERPRO              EXT    DIGMASK,TRANSIT,NODE2,MASKS,CD,COL                              ERPRO          7     A     
 ERPRO              EXT    WB.FMT,DATA.                                                    ERPRO          8     A     
 ERPRO              EXT    N.ERROR,N.FERR                                                  ERPRO          9     A     
 ERPRO              EXT    LDPS2,SCANNER,RSELECT,NASAFLG                                   ERPRO         10     A     
 ERPRO              EXT    LWAWORK                                                         ERPRO         11     A     
 ERPRO                                                                                     ERPRO         12     A     
 ERPRO     TYPE     EQU    24B               CURRENT STMT TYPE                             ERPRO         13     A     
 ERPRO     SELIST   EQU    32B                                                             ERPRO         14     A     
 ERPRO     CLABEL   EQU    23B                                                             ERPRO         15     A     
 ERPRO     SCNT     EQU    46B                                                             ERPRO         16     A     
 ERPRO                                                                                     ERPRO         17     A     
 ERPRO     E.ETOF   EQU    110               ERROR TABLE OVERFLOW                          ERPRO         18     A     
 ERPRO     E.TMIE   EQU    206               TOO MANY INFORMATIVE ERRORS                   ERPRO         19     A     
 ERPRO              EJECT                                                                  ERPRO         20     A     
 ERPRO    ***                                                                              ERPRO         21     A     
 ERPRO    *         PASS 1 ERROR PROCESSOR                                                 ERPRO         22     A     
 ERPRO    *                                                                                ERPRO         23     A     
 ERPRO    *         ACCUMULATES INFORMATION IN THE ERROR TABLE FOR PRINTING DURING         ERPRO         24     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1995    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO    *         PASS 2                                                                 ERPRO         25     A     
 ERPRO    *                                                                                ERPRO         26     A     
 ERPRO    *         ENTRY CONDITIONS:                                                      ERPRO         27     A     
 ERPRO    *                B7 = RETURN ADDRESS                                             ERPRO         28     A     
 ERPRO    *                B6 = ERROR NUMBER                                               ERPRO         29     A     
 ERPRO    *                                                                                ERPRO         30     A     
 ERPRO    *         IF B6 > 0 , THEN X4 OR X3 HOLD AN 8 CHARACTER MESSAGE                  ERPRO         31     A     
 ERPRO    *                                                                                ERPRO         32     A     
 ERPRO    *         IF X4 = 0 THEN X3 HOLDS A BCD MESSAGE                                  ERPRO         33     A     
 ERPRO    *          ELSE X4 HOLDS AN E LIST ITEM TO BE ADDED TO THE ERROR MESSAGE         ERPRO         34     A     
 ERPRO    *                                                                                ERPRO         35     A     
 ERPRO              SPACE  3                                                               ERPRO         36     A     
 ERPRO    ***                                                                              ERPRO         37     A     
 ERPRO    *         THE FORMAT OF AN ERROR TABLE ENTRY IS:                                 ERPRO         38     A     
 ERPRO    *                                                                                ERPRO         39     A     
 ERPRO    *         2/SEVERITY CODE,10/ERROR ORDINAL,48/MESSAGE                            ERPRO         40     A     
 ERPRO    *         60/10H LINE NUMBER                                                     ERPRO         41     A     
 ERPRO    *                                                                                ERPRO         42     A     
 ERPRO    *         THE ERROR CODES ARE:                                                   ERPRO         43     A     
 ERPRO    *                0 - FATAL TO EXECUTION                                          ERPRO         44     A     
 ERPRO    *                1 - FATAL TO COMPILATION                                        ERPRO         45     A     
 ERPRO    *                2 - ASA                                                         ERPRO         46     A     
 ERPRO    *                3 - INFORMATIVE                                                 ERPRO         47     A     
 ERPRO              SPACE  3                                                               ERPRO         48     A     
 ERPRO              ENTRY  ASAER,ERPROI,FATALER,ERPRO,INFORM                               ERPRO         49     A     
 ERPRO              ENTRY  IMFLG       EXAMINED IN PS1CTL FOR FC TYPE ERRORS               FCC2126       17     A     
 ERPRO                                                                                     ERPRO         50     A     
 ERPRO              USE    /TABLES/                                                        ERPRO         51     A     
 ERPRO     O.ERTAB  BSS    1                 FWA OF ERROR TABLE                            ERPRO         52     A     
 ERPRO              USE    *                                                               ERPRO         53     A     
 ERPRO                                                                                     ERPRO         54     A     
 ERPRO     IMFLG    BSSZ   1                                                               ERPRO         55     A     
 ERPRO     FCFLAG   BSSZ   1                 .NZ. IF FC ERROR HAS OCCURED                  ERPRO         56     A     
 ERPRO              TITLE              ERROR EXITS                                         ERPRO         57     A     
 ERPRO    ***                                                                              ERPRO         58     A     
 ERPRO    *         ASAER  ACCUMULATE NON ASA USAGE DIAGNOSTICS                            ERPRO         59     A     
 ERPRO    *                                                                                ERPRO         60     A     
 ERPRO     ASAER    SX0    2                                                               ERPRO         61     A     
 ERPRO              EQ     INFORM                                                          ERPRO         62     A     
 ERPRO              SPACE  3                                                               ERPRO         63     A     
 ERPRO    ***                                                                              ERPRO         64     A     
 ERPRO    *         ERPROI - ACCUMULATE INFORMATIVE ERRORS                                 ERPRO         65     A     
 ERPRO    *                                                                                ERPRO         66     A     
 ERPRO     ERPROI   SX0    3                                                               ERPRO         67     A     
 ERPRO                                                                                     ERPRO         68     A     
 ERPRO     INFORM   SA1    N.ERROR                                                         ERPRO         69     A     
 ERPRO              SX2    X1-ERRMAX+12                                                    ERPRO         70     A     
 ERPRO              NG     X2,ERPRO.1        IF ROOM FOR 12 ERRORS                         ERPRO         71     A     
 ERPRO                                                                                     ERPRO         72     A     
 ERPRO              SB6    -E.TMIE                                                         ERPRO         73     A     
 ERPRO              SX0    3                                                               FCC2111        6     A     
 ERPRO              SX7    027B                                                            ERPRO         74     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1996    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO              LX7    51                JP  B7 INSTRUCTION                            ERPRO         75     A     
 ERPRO              SA7    INFORM                                                          ERPRO         76     A     
 ERPRO              EQ     ERPRO.1                                                         ERPRO         77     A     
 ERPRO              SPACE  3                                                               ERPRO         78     A     
 ERPRO    ***                                                                              ERPRO         79     A     
 ERPRO    *         FATALER - PROCESS FATAL ERROR ( TO COMPILATION )                       ERPRO         80     A     
 ERPRO    *                                                                                ERPRO         81     A     
 ERPRO     FATALER  MX6    59                                                              ERPRO         82     A     
 ERPRO              SA1    FCFLAG                                                          ERPRO         83     A     
 ERPRO              BX0    -X6               X0 = 1                                        ERPRO         84     A     
 ERPRO              SA6    IMFLG                                                           ERPRO         85     A     
 ERPRO              NZ    X1,ERPROL          IF PREVIOUS FC ERROR, DO NOT ISSUE            ERPRO         86     A     
 ERPRO                                       REDUNDANT DIAGNOSTIC                          ERPRO         87     A     
 ERPRO              SA6    A1                SET TO FC ERROR HAS OCCURED                   ERPRO         88     A     
 ERPRO              EQ     ERPRO1                                                          ERPRO         89     A     
 ERPRO              SPACE  3                                                               ERPRO         90     A     
 ERPRO    ***                                                                              ERPRO         91     A     
 ERPRO    *         ERPRO - ACCUMULATE ERRORS FOR PASS 2                                   ERPRO         92     A     
 ERPRO    *                                                                                ERPRO         93     A     
 ERPRO     ERPRO    MX6    59                                                              ERPRO         94     A     
 ERPRO              SA6    =XFEFLAG     SET FATAL ERROR FLAG FOR SCANNER                   ERPRO         95     A     
 ERPRO              SX0    B0           X0 = SEVERITY CODE                                 ERPRO         96     A     
 ERPRO                                                                                     ERPRO         97     A     
 ERPRO     ERPRO1   SA1    N.FERR                                                          ERPRO         98     A     
 ERPRO              SX6    X1+1                                                            ERPRO         99     A     
 ERPRO              SA6    A1                INCREMENT COUNT OF FATAL ERRORS               ERPRO        100     A     
 ERPRO                                                                                     ERPRO        101     A     
 ERPRO     ERPRO.1  SB5    1                                                               ERPRO        102     A     
 ERPRO              SA1    N.ERROR           ERROR COUNT                                   ERPRO        103     A     
 ERPRO              SX2    X1-ERRMAX                                                       ERPRO        104     A     
 ERPRO              PL     X2,ERTOV          IF THE TABLE IS FULL                          ERPRO        105     A     
 ERPRO                                                                                     ERPRO        106     A     
 ERPRO     LASTER   SX6    X1+B5             INCREMENT ERROR COUNT                         ERPRO        107     A     
 ERPRO              SA6    A1                                                              ERPRO        108     A     
 ERPRO                                                                                     ERPRO        109     A     
 ERPRO              PL     B6,ERPRO2         IF X4 OR X3 HAS A MESSAGE                     ERPRO        110     A     
 ERPRO              MX5    0                                                               ERPRO        111     A     
 ERPRO              SB6    -B6                                                             ERPRO        112     A     
 ERPRO              EQ     ERPRO4                                                          ERPRO        113     A     
 ERPRO                                                                                     ERPRO        114     A     
 ERPRO     ERPRO2   BX5    X3                                                              ERPRO        115     A     
 ERPRO              ZR     X4,ERPRO4   IF X3 CONTAINS *DETAILS* ENTRY                      ERPRO        116     A     
 ERPRO              BX5    X1          (X5) = SAVED (X1)                                   ERPRO        117     A     
 ERPRO              LX1    X4                                                              ERPRO        118     A     
 ERPRO              RJ     CED         CONVERT E-LIST TO DISPLAY CODE                      ERPRO        119     A     
 ERPRO              LX6    -12                                                             ERPRO        120     A     
 ERPRO              BX1    X5          RESTORE (X1)                                        ERPRO        121     A     
 ERPRO              LX5    X6                                                              ERPRO        122     A     
 ERPRO                                                                                     ERPRO        123     A     
 ERPRO    *         FORM THE ERROR TABLE ENTRY                                             ERPRO        124     A     
 ERPRO                                                                                     ERPRO        125     A     
 ERPRO     ERPRO4   LX0    10                                                              ERPRO        126     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1997    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO              SX0    X0+B6             SEVERITY CODE AND ORDINAL                     ERPRO        127     A     
 ERPRO              SA2    SCNT        LINE NUMBER IN DPC                                  ERPRO        128     A     
 ERPRO              MX3    12                                                              ERPRO        129     A     
 ERPRO              BX5    -X3*X5      REMOVE POSSIBLE GARBAGE FROM BITS 59_48             ERPRO        130     A     
 ERPRO              LX0    48                                                              ERPRO        131     A     
 ERPRO              BX6    X0+X5             FIRST WORD                                    ERPRO        132     A     
 ERPRO              LX1    1                 2*N.ERRORS                                    ERPRO        133     A     
 ERPRO              BX7    X2                                                              ERPRO        134     A     
 ERPRO              SA6    O.ERTAB+X1                                                      ERPRO        135     A     
 ERPRO              SA1    IMFLG                                                           ERPRO        136     A     
 ERPRO              SA7    A6+1                                                            ERPRO        137     A     
 ERPRO              NZ     X1,ERPROK   IF FATAL-TO-COMPILATION ERROR                       ERPRO        138     A     
 ERPRO     ERPROE   JP     B7          EXIT                                                ERPRO        139     A     
 ERPRO                                                                                     ERPRO        140     A     
 ERPRO    *         FC ERROR - IGNORE THE REST OF THE PROGRAM                              ERPRO        141     A     
 ERPRO                                                                                     ERPRO        142     A     
 ERPRO     ERPROK   MX7    0                                                               ERPRO        143     A     
 ERPRO              SA7    A1          CLEAR CURRENT-FC-ERROR FLAG                         ERPRO        144     A     
 ERPRO              SA7    =XS.SCR     RESET MANAGED SCRATCH TABLE SIZE TO ZERO            ERPRO        145     A     
 ERPRO              SA5    =XO.SCR                                                         ERPRO        146     A     
 ERPRO              ZR     X5,ERPROL   IF SCRATCH TABLE NOT INITIALIZED (PHASE 1)          ERPRO        147     A     
 ERPRO              BX6    X5                                                              ERPRO        148     A     
 ERPRO              SA6    =XFWAWORK   EXPAND AVAILABLE WORKING STORAGE                    ERPRO        149     A     
 ERPRO     ERPROL   SA3    TYPE                                                            ERPRO        150     A     
 ERPRO              SB7    X3                TYPE TO B7                                    ERPRO        151     A     
 ERPRO                                                                                     ERPRO        152     A     
 ERPRO              SB4    B7-13                                                           ERPRO        153     A     
 ERPRO              SB3    B7-37                                                           ERPRO        154     A     
 ERPRO              ZR     B4,ERPROF         IF END CARD                                   ERPRO        155     A     
 ERPRO              ZR     B3,ERPROF         IF ASSUMED EOF                                ERPRO        156     A     
 ERPRO              RJ     SCANNER           SCAN NEXT STMT                                ERPRO        157     A     
 ERPRO                                                                                     ERPRO        158     A     
 ERPRO     ERPROP   EQ     ERPROL            LOOP ( USED AS A PLUG )                       ERPRO        159     A     
 ERPRO                                                                                     ERPRO        160     A     
 ERPRO    ERPROF    MX6    0                                                               ERPRO        161          I
          -FCC0220
 ERPRO     ERPROF   SX6    B0                                                              FCC0220       41     A     
 ERPRO              MX7    1                                                               FCC0220       42     A     
 ERPRO              SA6    =XL.UDV       CLEAR UDV TABLE                                   ERPRO        162     A     
 ERPRO              SA7    =XP2NOGO    SET *SUPPRESS OBJECT CODE GENERATION*               FCC0220       43     A     
 ERPRO              SA1    =XPROGNAM                                                       ERPRO        163     A     
 ERPRO              NZ     X1,=XLDPS2  IF PROGRAM NAME FOUND, LOAD PASS 2                  ERPRO        164     A     
 ERPRO              EQ     =XPROGC     GENERATE *PROGRAM START.*                           ERPRO        165     A     
 ERPRO     ERTOV    SPACE  4,8                                                             ERPRO        166     A     
 ERPRO    *         ERROR TABLE OVERFLOW                                                   ERPRO        167     A     
 ERPRO                                                                                     ERPRO        168     A     
 ERPRO     ERTOV    SA2    ERPROE            PLUG FOR THE ENTRY POINT                      ERPRO        169     A     
 ERPRO              SA3    IMFLG                                                           ERPRO        170     A     
 ERPRO    +         ZR     X3,*+1            IF NOT AN FC ERROR                            ERPRO        171     A     
 ERPRO              SA2    ERPROP                                                          ERPRO        172     A     
 ERPRO                                                                                     ERPRO        173     A     
 ERPRO              BX7    X2                                                              ERPRO        174     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1998    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO              SA7    ERPRO.1           PLUG THE ENTRY POINT                          ERPRO        175     A     
 ERPRO              SA7    IMFLG             SET FLAG                                      ERPRO        176     A     
 ERPRO              SB6    -E.ETOF                                                         ERPRO        177     A     
 ERPRO              SB7    ERPROL            RETURN ADDRESS                                ERPRO        178     A     
 ERPRO              SX0    1                                                               FCC2111        7     A     
 ERPRO              EQ     LASTER                                                          ERPRO        179     A     
 ERPRO     CED      TITLE  CONVERT E-LIST TO DISPLAY CODE                                  ERPRO        180     A     
 ERPRO    **        CED - CONVERT E-LIST TO DISPLAY CODE.                                  ERPRO        181     A     
 ERPRO    *                                                                                ERPRO        182     A     
 ERPRO    *                                                                                ERPRO        183     A     
 ERPRO    *         ENTRY  (X1) = E-LIST ENTRY                                             ERPRO        184     A     
 ERPRO    *                                                                                ERPRO        185     A     
 ERPRO    *         EXIT   (X6) = CONVERTED ENTRY, 10L FORMAT.  (IF A CONSTANT,            ERPRO        186     A     
 ERPRO    *                       FIRST OR LEFTMOST TEN DIGITS ONLY.)                      ERPRO        187     A     
 ERPRO    *                                                                                ERPRO        188     A     
 ERPRO    *         USES   X - 2, 6, 7                                                     ERPRO        189     A     
 ERPRO    *                A - 2                                                           ERPRO        190     A     
 ERPRO    *                B - 2                                                           ERPRO        191     A     
 ERPRO    *                                                                                ERPRO        192     A     
 ERPRO    *         CALLS  NONE                                                            ERPRO        193     A     
 ERPRO                                                                                     ERPRO        194     A     
 ERPRO                                                                                     ERPRO        195     A     
 ERPRO              QUAL   CED                                                             ERPRO        196     A     
 ERPRO                                                                                     ERPRO        197     A     
 ERPRO     CED      SUBR               ** ENTRY/EXIT **                                    ERPRO        198     A     
 ERPRO              UX6,B2 X1          (B2) = E-LIST TYPE CODE                             ERPRO        199     A     
 ERPRO              SX7    B2-1                                                            ERPRO        200     A     
 ERPRO              ZR     X7,CED3     IF A NAME                                           ERPRO        201     A     
 ERPRO              SA2    ELOPTBL-2+B2      (X2) = PREFETCH DPC FOR E-LIST OPR            ERPRO        202     A     
 ERPRO              NZ     B2,CED4     IF NOT A CONSTANT                                   ERPRO        203     A     
 ERPRO                                                                                     ERPRO        204     A     
 ERPRO    *         PROCESS CONSTANT.                                                      ERPRO        205     A     
 ERPRO                                                                                     ERPRO        206     A     
 ERPRO              SB2    X1-1                                                            ERPRO        207     A     
 ERPRO              MI     B2,CED2     IF A LOGICAL CONSTANT                               ERPRO        208     A     
 ERPRO              SA2    X1                                                              ERPRO        209     A     
 ERPRO              BX6    X2          RETURN (X6) = FIRST TEN CHARS OF CONSTANT           ERPRO        210     A     
 ERPRO              EQ     EXIT.                                                           ERPRO        211     A     
 ERPRO                                                                                     ERPRO        212     A     
 ERPRO     CED2     SA2    LCONTBL+1+X1      (X2) = DPC FOR LOGICAL CONSTANT               ERPRO        213     A     
 ERPRO              EQ     CED4                                                            ERPRO        214     A     
 ERPRO                                                                                     ERPRO        215     A     
 ERPRO    *         PROCESS NAME.                                                          ERPRO        216     A     
 ERPRO                                                                                     ERPRO        217     A     
 ERPRO     CED3     MX7    -6                                                              ERPRO        218     A     
 ERPRO              BX2    X6                                                              ERPRO        219     A     
 ERPRO              AX6    30                                                              ERPRO        220     A     
 ERPRO              BX7    -X7*X6      (X7) = 3RD CHAR OF NAME                             ERPRO        221     A     
 ERPRO              SX6    X7-1R$                                                          ERPRO        222     A     
 ERPRO              SX7    1R &1R$                                                         ERPRO        223     A     
 ERPRO              NZ     X6,CED4     IF NO TRAILING $ (NOT REGISTER NAME)                ERPRO        224     A     
 ERPRO              LX7    30                                                              ERPRO        225     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE1999    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO              BX2    X2-X7       CHANGE $ TO BLANK                                   ERPRO        226     A     
 ERPRO                                                                                     ERPRO        227     A     
 ERPRO    *         EXTRACT 8R CHARACTERS, LEFT JUSTIFY, BLANK FILL AND EXIT.              ERPRO        228     A     
 ERPRO                                                                                     ERPRO        229     A     
 ERPRO     CED4     LX2    12                                                              ERPRO        230     A     
 ERPRO              SX6    2R                                                              ERPRO        231     A     
 ERPRO              MX7    8*6                                                             ERPRO        232     A     
 ERPRO              BX2    X7*X2                                                           ERPRO        233     A     
 ERPRO              IX6    X2+X6                                                           ERPRO        234     A     
 ERPRO              EQ     EXIT.                                                           ERPRO        235     A     
 ERPRO     EDT      SPACE  4,8                                                             ERPRO        236     A     
 ERPRO    **        EDT - E-LIST TO DISPLAY CODE CONVERSION TABLE.                         ERPRO        237     A     
 ERPRO    *                                                                                ERPRO        238     A     
 ERPRO    *  TAG    EDT    DPC                                                             ERPRO        239     A     
 ERPRO    *                                                                                ERPRO        240     A     
 ERPRO    *                                                                                ERPRO        241     A     
 ERPRO    *         ENTRY  *DPC* = DISPLAY CODE, MAX 8 CHARACTERS                          ERPRO        242     A     
 ERPRO                                                                                     ERPRO        243     A     
 ERPRO                                                                                     ERPRO        244     A     
 ERPRO              PURGMAC   EDT                                                          ERPRO        245     A     
 ERPRO                                                                                     ERPRO        246     A     
 ERPRO              MACRO  EDT,T,D                                                         ERPRO        247     A     
 ERPRO     T        VFD    12/0,48/8H_D                                                    ERPRO        248     A     
 ERPRO     EDT      ENDM                                                                   ERPRO        249     A     
 ERPRO                                                                                     ERPRO        250     A     
 ERPRO                                                                                     ERPRO        251     A     
 ERPRO                                                                                     ERPRO        252     A     
 ERPRO    **        E-LIST LOGICAL CONSTANT CONVERSION TABLE.                              ERPRO        253     A     
 ERPRO                                                                                     ERPRO        254     A     
 ERPRO     LCONTBL  BSS    0                                                               ERPRO        255     A     
 ERPRO     TRUE     EDT    .TRUE.                                                          ERPRO        256     A     
 ERPRO     FALSE    EDT    .FALSE.                                                         ERPRO        257     A     
 ERPRO                                                                                     ERPRO        258     A     
 ERPRO                                                                                     ERPRO        259     A     
 ERPRO                                                                                     ERPRO        260     A     
 ERPRO    **        E-LIST OPERATOR CONVERSION TABLE.                                      ERPRO        261     A     
 ERPRO                                                                                     ERPRO        262     A     
 ERPRO     ELOPTBL  BSS    0                                                               ERPRO        263     A     
 ERPRO              LOC    2                                                               ERPRO        264     A     
 ERPRO                                                                                     ERPRO        265     A     
 ERPRO     RP       EDT    )                                                               ERPRO        266     A     
 ERPRO     COMMA    EDT    (,)                                                             ERPRO        267     A     
 ERPRO     EOS      EDT    END-STMT                                                        ERPRO        268     A     
 ERPRO     EQU      EDT    =                                                               ERPRO        269     A     
 ERPRO     LP       EDT    ()(                                                             ERPRO        270     A     
 ERPRO     OR       EDT    .OR                                                             ERPRO        271     A     
 ERPRO     AND      EDT    .AND.                                                           ERPRO        272     A     
 ERPRO     NOT      EDT    .NOT.                                                           ERPRO        273     A     
 ERPRO     LE       EDT    .LE.                                                            ERPRO        274     A     
 ERPRO     LT       EDT    .LT.                                                            ERPRO        275     A     
 ERPRO     GE       EDT    .GE.                                                            ERPRO        276     A     
 ERPRO     GT       EDT    .GT.                                                            ERPRO        277     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2000    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO     NE       EDT    .NE.                                                            ERPRO        278     A     
 ERPRO     EQ       EDT    .EQ.                                                            ERPRO        279     A     
 ERPRO     MINUS    EDT    -                                                               ERPRO        280     A     
 ERPRO     PLUS     EDT    +                                                               ERPRO        281     A     
 ERPRO     STAR     EDT    *                                                               ERPRO        282     A     
 ERPRO     SLASH    EDT    /                                                               ERPRO        283     A     
 ERPRO     DSTAR    EDT    **                                                              ERPRO        284     A     
 ERPRO                                                                                     ERPRO        285     A     
 ERPRO              LOC    *O                                                              ERPRO        286     A     
 ERPRO                                                                                     ERPRO        287     A     
 ERPRO                                                                                     ERPRO        288     A     
 ERPRO                                                                                     ERPRO        289     A     
 ERPRO              QUAL   *                                                               ERPRO        290     A     
 ERPRO     CED      =      /CED/CED                                                        ERPRO        291     A     
 ERPRO              ENTRY  CED                                                             ERPRO        292     A     
 ERPRO     TEM      TITLE  TRACE ERROR MESSAGE ORIGINATOR                                  ERPRO        293     A     
 ERPRO    **        TEM - TRACE ERROR MESSAGE ORIGINATOR.                                  ERPRO        294     A     
 ERPRO    *                                                                                ERPRO        295     A     
 ERPRO    *                INTERCEPTS *ERPRO* CALL AND LISTS THE ERROR MESSAGE             ERPRO        296     A     
 ERPRO    *         NUMBER, WITH ORIGINATOR-S DECK NAME AND DECK-RELATIVE ADDRESS,         ERPRO        297     A     
 ERPRO    *         INTERSPERSED WITH SOURCE PROGRAM LISTING.  ACTIVATED ONLY IN           ERPRO        298     A     
 ERPRO    *         A TEST MODE COMPILER, WHEN SNAP=M SELECTED.                            ERPRO        299     A     
 ERPRO    *                                                                                ERPRO        300     A     
 ERPRO    *                                                                                ERPRO        301     A     
 ERPRO    *         ENTRY  (B4) = *ERPRO* ENTRY ADDRESS.                                   ERPRO        302     A     
 ERPRO    *                (B6) = ERROR MESSAGE NUMBER, OR ITS COMPLEMENT.                 ERPRO        303     A     
 ERPRO    *                                                                                ERPRO        304     A     
 ERPRO    *         EXIT   TO (B4) - DESIRED *ERPRO* SUBROUTINE.                           ERPRO        305     A     
 ERPRO    *                                                                                ERPRO        306     A     
 ERPRO    *         USES   X - 1, 6    (OTHER REGISTERS ARE SAVED AND RESTORED)            ERPRO        307     A     
 ERPRO    *                A - 1, 6                                                        ERPRO        308     A     
 ERPRO    *                B - NONE                                                        ERPRO        309     A     
 ERPRO    *                                                                                ERPRO        310     A     
 ERPRO    *         CALLS  CDD, FRA, LISTL                                                 ERPRO        311     A     
 ERPRO                                                                                     ERPRO        312     A     
 ERPRO                                                                                     ERPRO        313     A     
 ERPRO     .T       IFNE   TEST,0                                                          ERPRO        314     A     
 ERPRO              QUAL   TEM                                                             ERPRO        315     A     
 ERPRO                                                                                     ERPRO        316     A     
 ERPRO     TEM      SUBR               ** ENTRY/EXIT **                                    ERPRO        317     A     
 ERPRO              SA1    =XCO.SNAP   CHECK CONTROL CARD SNAP= OPTION                     ERPRO        318     A     
 ERPRO              LX1    1RM                                                             ERPRO        319     A     
 ERPRO              MI     X1,TEM2     IF SNAP=M SELECTED                                  ERPRO        320     A     
 ERPRO              JP     B4          CONTINUE WITHOUT TRACEBACK ...                      ERPRO        321     A     
 ERPRO                                                                                     ERPRO        322     A     
 ERPRO    *         BEGIN TRACEBACK PROCESSING.                                            ERPRO        323     A     
 ERPRO                                                                                     ERPRO        324     A     
 ERPRO     TEM2     SX6    B6          (X6) = ERROR MESSAGE NUMBER                         ERPRO        325     A     
 ERPRO              SX1    B6                                                              ERPRO        326     A     
 ERPRO              AX6    59-0                                                            ERPRO        327     A     
 ERPRO              BX6    X1-X6       (X6) = ABS (ERROR MESSAGE NUMBER)                   ERPRO        328     A     
 ERPRO              SA6    TEMA                                                            ERPRO        329     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2001    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO              CALL   SAVE=       SAVE ALL REGISTERS                                  ERPRO        330     A     
 ERPRO              SA2    EXIT.                                                           ERPRO        331     A     
 ERPRO              SB1    1                                                               ERPRO        332     A     
 ERPRO              AX2    30                                                              ERPRO        333     A     
 ERPRO              SX1    X2-1        (X1) = ADDRESS OF ORIGIN OF CALL                    ERPRO        334     A     
 ERPRO              SB7    TEM3        (B7) = RETURN ADDRESS                               ERPRO        335     A     
 ERPRO              EQ     =XFRA=      FIND RELATIVE ADDRESS                               ERPRO        336     A     
 ERPRO                                                                                     ERPRO        337     A     
 ERPRO     TEM3     SA6    TEMB                                                            ERPRO        338     A     
 ERPRO              SA7    A6+1                                                            ERPRO        339     A     
 ERPRO              SA1    TEMA        (X1) = ABS (ERROR MESSAGE NUMBER)                   ERPRO        340     A     
 ERPRO              CALL   CDD         CONVERT BINARY TO DECIMAL DISPLAY CODE              ERPRO        341     A     
 ERPRO              BX6    X4                                                              ERPRO        342     A     
 ERPRO              SA6    TEMA                                                            ERPRO        343     A     
 ERPRO              LISTL  TEMSG,TEMSGL                                                    ERPRO        344     A     
 ERPRO              CALL   RESET=      RESTORE ALL REGISTERS                               ERPRO        345     A     
 ERPRO              JP     B4          CONTINUE ...                                        ERPRO        346     A     
 ERPRO                                                                                     ERPRO        347     A     
 ERPRO                                                                                     ERPRO        348     A     
 ERPRO                                                                                     ERPRO        349     A     
 ERPRO     TEMSG    DATA   H.          .                                                   ERPRO        350     A     
 ERPRO              DATA   H.     *** ERR MSG NR.                                          ERPRO        351     A     
 ERPRO     TEMA     DATA   H.NNN.                  ABS (ERROR MESSAGE NUMBER )             ERPRO        352     A     
 ERPRO              DATA   H.POSTED BY.                                                    ERPRO        353     A     
 ERPRO     TEMB     DATA   C.000000 IN XXXXXXX.                                            ERPRO        354     A     
 ERPRO     TEMSGL   =      *-TEMSG                                                         ERPRO        355     A     
 ERPRO              SPACE  4                                                               ERPRO        356     A     
 ERPRO              QUAL   *                                                               ERPRO        357     A     
 ERPRO     TEM      =      /TEM/TEM                                                        ERPRO        358     A     
 ERPRO              ENTRY  TEM                                                             ERPRO        359     A     
 ERPRO              SPACE  4                                                               ERPRO        360     A     
 ERPRO     .T       ENDIF                                                                  ERPRO        361     A     
 ERPRO              TITLE    ERPRO                                                         ERPRO        362     A     
 ERPRO              TITLE  MACRO DEFINITIONS                                               ERPRO        363     A     
 ERPRO    LOOK     MACRO     XN                   TO LOOK AT NEXT CHAR IN STRING           ERPRO        364     A     
 ERPRO             A_XN      X1,B2                WITHOUT UPDATING POINTERS                ERPRO        365     A     
 ERPRO             B_XN      -X0*XN               MASK RTMOST CHAR INTO XN                 ERPRO        366     A     
 ERPRO             ENDM                                                                    ERPRO        367     A     
 ERPRO    STEPIN   MACRO                          TO MOVE POINTERS TO NEXT CHARACT         ERPRO        368     A     
 ERPRO             LOCAL     NEXT                 ER IN STRING -PACKED 10 CHAR PER         ERPRO        369     A     
 ERPRO             SB2       B2-6                 WORD.  DECREMENT SHIFT COUNT             ERPRO        370     A     
 ERPRO             PL        B2,NEXT              COUNT LEGAL-JUMP OUT                     ERPRO        371     A     
 ERPRO             SA1       A1-1                 NO. POINT TO NEXT WORD                   ERPRO        372     A     
 ERPRO             SB2       54                   RESET TO MAX SHIFT COUNT                 ERPRO        373     A     
 ERPRO    NEXT     BSS       0                    AND RETURN.                              ERPRO        374     A     
 ERPRO             ENDM                                                                    ERPRO        375     A     
 ERPRO    STEPBK   MACRO                          TO MOVE POINTERS BACK                    FCCA402        7     A     
 ERPRO             LOCAL  BACK                    ONE CHARACTER                            FCCA402        8     A     
 ERPRO             SB2    B2-54                   CHECK SHIFT COUNT                        FCCA402        9     A     
 ERPRO             MI     B2,BACK                 IF SHIFT COUNT NOT OUT OF RANGE          FCCA402       10     A     
 ERPRO             SA1    A1+1                    POINT TO PREVIOUS WORD                   FCCA402       11     A     
 ERPRO             SB2    -60                     SET TO ZERO SHIFT COUNT                  FCCA402       12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2002    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO    BACK     SB2    B2+60                   SET TO ZERO OR INCREMENT                 FCCA402       13     A     
 ERPRO    *                                       SHIFT COUNT                              FCCA402       14     A     
 ERPRO             ENDM                                                                    FCCA402       15     A     
 ERPRO    GETCH    MACRO     XN                   TO FETCH NEXT CHARACTER IN               ERPRO        376     A     
 ERPRO             LOCAL     LBL                  STRING   CHARACTERS PACKED               ERPRO        377     A     
 ERPRO             A_XN      X1,B2                10 PER WORD.  SHIFT TO RT JSTFY          ERPRO        378     A     
 ERPRO             B_XN      -X0*XN               MASK OUT ALL BUT RTMOST CHAR             ERPRO        379     A     
 ERPRO             GT        B2,B0,LBL            MORE CHARS IN WORD  GO TO LBL            ERPRO        380     A     
 ERPRO             SA1       A1-1                 WORD EMPTY. POINT TO NEXT WORD           ERPRO        381     A     
 ERPRO             SB2       60                   RESET SHIFT COUNT                        ERPRO        382     A     
 ERPRO    LBL      SB2       B2-6                 DECREMENT SHIFT CT FOR NEXT CHAR         ERPRO        383     A     
 ERPRO             ENDM                                                                    ERPRO        384     A     
 ERPRO    PUTCH    MACRO     XN,XM                TO STORE AWAY CHARACTER STRING           ERPRO        385     A     
 ERPRO             LOCAL     LBL,M                PACKED 10 CHARACTERS PER WORD.           ERPRO        386     A     
 ERPRO    M        MICRO     2,1, XM                                                       ERPRO        387     A     
 ERPRO             BX6       XN                   OUTPUT STORAGE IS ONE CHARACTER          ERPRO        388     A     
 ERPRO             SA"M"     SAVECHAR             BEHIND, HOLDING MOST RECENT CHAR         ERPRO        389     A     
 ERPRO             L_XM      XM,B7                IN LOC SAVECHAR.                         ERPRO        390     A     
 ERPRO             BX7       X7+XM                SHIFT OUTPUT WORD TO APPEND CHAR         ERPRO        391     A     
 ERPRO             SB7       B7-6                 UPDATE SHIFT COUNT                       ERPRO        392     A     
 ERPRO             SA6       A"M"                 STORE NEW SAVECHAR                       ERPRO        393     A     
 ERPRO             PL        B7,LBL               WORD NOT FULL. GO TO LBL                 ERPRO        394     A     
 ERPRO             SA7       A7-1                 STORE FULL WORD + UPDATE POINTER         ERPRO        395     A     
 ERPRO              SA"M"  =XFWAWORK                                                       ERPRO        396     A     
 ERPRO              SB7    XM                                                              ERPRO        397     A     
 ERPRO              S_XM   A7-B7                                                           ERPRO        398     A     
 ERPRO              SB7    54                                                              ERPRO        399     A     
 ERPRO              MX7    0                                                               ERPRO        400     A     
 ERPRO              PL     XM,LBL                                                          ERPRO        401     A     
 ERPRO              SX3    45                                                              ERPRO        402     A     
 ERPRO              EQ     FERROR                                                          ERPRO        403     A     
 ERPRO    LBL      BSS       0                    AND RETURN.                              ERPRO        404     A     
 ERPRO             ENDM                                                                    ERPRO        405     A     
 ERPRO              TITLE    FORMAT SCANNING PROCESSOR                                     ERPRO        406     A     
 ERPRO     E.DDSN   EQU    8                 DOUBLY DEFINED STMT LABEL                     ERPRO        407     A     
 ERPRO     E.CLU    EQU    18                LABEL PREVIOUSLY USED AS STMT NUMBER          ERPRO        408     A     
 ERPRO                                                                                     ERPRO        409     A     
 ERPRO     MINMAX   EQU    137                                                             ERPRO        410     A     
 ERPRO     PMAX     EQU    615                                                             ERPRO        411     A     
 ERPRO     LEVMAX   EQU    9           MAX LEVEL OF PARENS                                 ERPRO        412     A     
 ERPRO     LASTERR  EQU    234                                                             ERPRO        413     A     
 ERPRO                                                                                     ERPRO        414     A     
 ERPRO    ***                                                                              ERPRO        415     A     
 ERPRO    *         FORMAT PROCESSOR                                                       ERPRO        416     A     
 ERPRO    *                                                                                ERPRO        417     A     
 ERPRO    *         SYNTAX:  LABEL FORMAT(......)                                          ERPRO        418     A     
 ERPRO    *                                                                                ERPRO        419     A     
 ERPRO     FORMAT   ENTRY.                                                                 ERPRO        420     A     
 ERPRO              OUTUSE DATA.             GET IN THE RIGHT RB                           ERPRO        421     A     
 ERPRO              SA1    CLABEL                                                          ERPRO        422     A     
 ERPRO              SB1    1                 NO LEADING ZEROS                              ERPRO        423     A     
 ERPRO    +         SB7    *+1                                                             ERPRO        424     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2003    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO              EQ     =XLABCON          GO ENTER NAME IN SYMTAB                       ERPRO        425     A     
 ERPRO                                                                                     ERPRO        426     A     
 ERPRO              EQ     FMT1              NOT IN THE TALBE                              ERPRO        427          I
          -FCC0628
 ERPRO                                                                                     ERPRO        428          I
          -FCC0628
 ERPRO              SB7    FORMAT            ERROR RETURN ADDRESS                          ERPRO        429          I
          -FCC0628
 ERPRO              SA3    CLABEL                                                          ERPRO        430          I
          -FCC0628
 ERPRO              LX3    60-18             LEFT JUSTIFY TO BIT 42                        ERPRO        431          I
          -FCC0628
 ERPRO              MX0    12                                                              ERPRO        432          I
          -FCC0628
 ERPRO              BX3    -X0*X3                                                          ERPRO        433          I
          -FCC0628
 ERPRO              MX4    0                                                               ERPRO        434          I
          -FCC0628
 ERPRO              SX5    M.FNCHK                                                         ERPRO        435          I
          -FCC0628
 ERPRO              LX5    P.FNCHK           DSN , RAS AND DLT BITS                        ERPRO        436          I
          -FCC0628
 ERPRO              BX6    X5*X2                                                           ERPRO        437          I
          -FCC0628
 ERPRO              SB6    E.CLU                                                           ERPRO        438          I
          -FCC0628
 ERPRO              NZ     X6,ERPRO          IF PREVIOUS REFS AS STMT LABEL                ERPRO        439          I
          -FCC0628
 ERPRO              MX0    2                                                               ERPRO        440          I
          -FCC0628
 ERPRO              LX0    2+P.DFN                                                         ERPRO        441          I
          -FCC0628
 ERPRO              BX5    X0*X2                                                           ERPRO        442          I
          -FCC0628
 ERPRO              SB6    E.DDSN            DOUBLY DEFINED STMT LABEL                     ERPRO        443          I
          -FCC0628
 ERPRO              NZ     X5,ERPRO          IF PREVIOUSLY DEFINED                         ERPRO        444          I
          -FCC0628
 ERPRO                                                                                     ERPRO        445          I
          -FCC0628
 ERPRO     DFN      BIT    P.TYP-P.DFN                                                     ERPRO        446          I
          -FCC0628
 ERPRO     FMT1     SX0    T.LAB*DFN+1                                                     ERPRO        447          I
          -FCC0628
 ERPRO    *         HERE IF FORMAT LABEL WAS NOT ALREADY IN *SYMTAB*.                      FCC0628       23     A     
 ERPRO                                                                                     FCC0628       24     A     
 ERPRO              EQ     FMT1A                                                           FCC0628       25     A     
 ERPRO                                                                                     FCC0628       26     A     
 ERPRO    *         HERE IF FORMAT LABEL ALREADY IN *SYMTAB*.                              FCC0628       27     A     
 ERPRO                                                                                     FCC0628       28     A     
 ERPRO              SA3    CLABEL                                                          FCC0628       29     A     
 ERPRO              SB7    A1-1        SAVE THE SYM TAB ENTRY                              FCC2202       26     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2004    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO              SX6    B7          FORMAT ADDR INTO A TMP                              FCC2202       27     A     
 ERPRO              SA6    SAVADR      STORAGE (WORD-B)                                    FCC2202       28     A     
 ERPRO              SX0    M.FNCHK                                                         FCC0628       30     A     
 ERPRO              LX3    -18                                                             FCC0628       31     A     
 ERPRO              LX0    P.FNCHK                                                         FCC0628       32     A     
 ERPRO              BX6    X0*X2       EXTRACT *DSN,RAS, AND DLT* BITS FROM WORD B         FCC0628       33     A     
 ERPRO              SB7    FORMAT      (B7) = *ERPRO* RETURN ADDRESS                       FCC0628       34     A     
 ERPRO              ZR     X6,FMT1     IF FMT LAB NOT PREVIOUSLY REFD AS STMT LAB          FCC0628       35     A     
 ERPRO              POSTER SEV=FE,NR=E.CLU,FMT=DPC,TXT=X3,RETURN=B7 *LAB USE CONF*         FCC0628       36     A     
 ERPRO                                                                                     FCC0628       37     A     
 ERPRO     FMT1     MX0    2                                                               FCC0628       38     A     
 ERPRO              LX0    2+P.DFN                                                         FCC0628       39     A     
 ERPRO              BX6    X0*X2                                                           FCC0628       40     A     
 ERPRO              ZR     X6,FMT1A    IF FMT LAB NOT PREVIOUSLY DEFD AS FMT LAB           FCC0628       41     A     
 ERPRO              POSTER SEV=FE,NR=E.DDSN,FMT=DPC,TXT=X3,RETURN=B7 *DBLY DEF LB*         FCC0628       42     A     
 ERPRO                                                                                     FCC0628       43     A     
 ERPRO    *         HERE TO PROCESS *FORMAT* STATEMENT.                                    FCC0628       44     A     
 ERPRO                                                                                     FCC0628       45     A     
 ERPRO     DFN      BIT    P.TYP-P.DFN                                                     FCC0628       46     A     
 ERPRO                                                                                     FCC0628       47     A     
 ERPRO     FMT1A    SX0    T.LAB*DFN+1                                                     FCC0628       48     A     
 ERPRO              LX0    P.DFN                                                           ERPRO        448     A     
 ERPRO              BX6    X0+X2                                                           ERPRO        449     A     
 ERPRO              SA3    DATA.                                                           ERPRO        450     A     
 ERPRO              SA4    WB.FMT            RL AND RB FOR FORMAT LABEL                    ERPRO        451     A     
 ERPRO              LX3    P.RA                                                            ERPRO        452     A     
 ERPRO              IX5    X3+X4             +RA                                           ERPRO        453     A     
 ERPRO              BX6    X6+X5             DEFINE THE ADDRESS                            ERPRO        454     A     
 ERPRO              SA6    A2                UPDATE WORD 2 OF SYMTAB                       ERPRO        455     A     
 ERPRO                                                                                     ERPRO        456     A     
 ERPRO              SX6    B1                                                              ERPRO        457     A     
 ERPRO              SA6    TA1               SAVE B1                                       ERPRO        458     A     
 ERPRO              SA1    =10H  FMT                                                       ERPRO        459     A     
 ERPRO              CALL   F1AMAC            OUTPUT FORMAT MACRO CALL                      ERPRO        460     A     
 ERPRO                                                                                     ERPRO        461     A     
 ERPRO              SA5    RSELECT                                                         ERPRO        462     A     
 ERPRO              ZR     X5,FMT2           IF R = 0                                      ERPRO        463     A     
 ERPRO              ADDREF TA1,DEF           DEFINTION OF THE FORMAT LABEL                 ERPRO        464     A     
 ERPRO                                                                                     ERPRO        465     A     
 ERPRO     FMT2     BSS    0                                                               ERPRO        466     A     
 ERPRO              SPACE  3                                                               ERPRO        467     A     
 ERPRO    *         INITIALIZE THE FORMAT PROCESSOR                                        ERPRO        468     A     
 ERPRO                                                                                     ERPRO        469     A     
 ERPRO              SX5    -N.CELLS                                                        ERPRO        470     A     
 ERPRO              MX6    0                                                               ERPRO        471     A     
 ERPRO              SX7    B5                                                              ERPRO        472     A     
 ERPRO              SA6    O.CELLS           CLEAR FIRST CELL                              ERPRO        473     A     
 ERPRO    +         SA6    A6+B5             CLEAR CONTROL CELLS                           ERPRO        474     A     
 ERPRO              SX5    X5+B5                                                           ERPRO        475     A     
 ERPRO              NG     X5,*                                                            ERPRO        476     A     
 ERPRO              SA7    NUMN              NUMN = 1                                      ERPRO        477     A     
 ERPRO                                                                                     ERPRO        478     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2005    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO              SB1    1                 B1 = 1                                        ERPRO        479     A     
 ERPRO             SB2       54                   INITIALIZE INPUT SHIFT COUNT             ERPRO        480     A     
 ERPRO             SA4       SELIST               FETCH ADDR OF FIRST PACKED WORD          ERPRO        481     A     
 ERPRO             SA1       X4                   SET INPUT ADDR AND WORD                  ERPRO        482     A     
 ERPRO              SA3    LWAWORK                                                         ERPRO        483     A     
 ERPRO              SA2    X3                                                              ERPRO        484     A     
 ERPRO             BX7       X2                   TRANSFER                                 ERPRO        485     A     
 ERPRO              SA7    A2                                                              ERPRO        486     A     
 ERPRO             SB7       54                   INITIALIZE OUTPUT SHIFT COUNT            ERPRO        487     A     
 ERPRO             SB3       NODE2                                                         ERPRO        488     A     
 ERPRO             SA0       MASKS                                                         ERPRO        489     A     
 ERPRO             BX7       X7-X7                                                         ERPRO        490     A     
 ERPRO             MX0       60-6                                                          ERPRO        491     A     
 ERPRO             GETCH     X2                                                            ERPRO        492     A     
 ERPRO             BX6       X2                                                            ERPRO        493     A     
 ERPRO             SA6       SAVECHAR                                                      ERPRO        494     A     
 ERPRO              EQ     TRANSIT                                                         ERPRO        495     A     
 ERPRO              SPACE  3                                                               ERPRO        496     A     
 ERPRO              USE    /DAT.FMT/                                                       ERPRO        497     A     
 ERPRO     O.CELLS  BSS    0                                                               ERPRO        498     A     
 ERPRO    PUSHDOWN BSSZ      LEVMAX+1                                                      ERPRO        499     A     
 ERPRO    NUMD     DATA      0                                                             ERPRO        500     A     
 ERPRO    NUMN     DATA      1                                                             ERPRO        501     A     
 ERPRO    NUMW     DATA      0                                                             ERPRO        502     A     
 ERPRO     SPESFLG  DATA   0           =3,-1,1,-3 FOR V,E,(I,O),(D,G) SPECIFICATIO         ERPRO        503     A     
 ERPRO    COLCNT   DATA      0                                                             ERPRO        504     A     
 ERPRO    LEVEL    DATA      0                                                             ERPRO        505     A     
 ERPRO    SAVECHAR DATA      0                                                             ERPRO        506     A     
 ERPRO             ENTRY     SAVECHR                                                       ERPRO        507     A     
 ERPRO    SAVECHR  EQU       SAVECHAR                                                      ERPRO        508     A     
 ERPRO    RANB4    DATA      0                                                             ERPRO        509     A     
 ERPRO    FLDX3    DATA      0                                                             ERPRO        510     A     
 ERPRO    FLDB4    DATA      0                                                             ERPRO        511     A     
 ERPRO    TEMPNW   DATA      0                                                             ERPRO        512     A     
 ERPRO    WIDB4    DATA      0                                                             ERPRO        513     A     
 ERPRO    WIDX3    DATA      0                                                             ERPRO        514     A     
 ERPRO     DECB4    EQU    FLDB4                                                           ERPRO        515     A     
 ERPRO     XB4      EQU    WIDB4                                                           ERPRO        516     A     
 ERPRO     TSAB4    EQU    WIDB4                                                           ERPRO        517     A     
 ERPRO     TCOB4    EQU    WIDB4                                                           ERPRO        518     A     
 ERPRO     SPESB4   EQU    WIDB4                                                           ERPRO        519     A     
 ERPRO     NULB4    EQU    RANB4                                                           ERPRO        520     A     
 ERPRO     HCOB4    EQU    WIDB4                                                           ERPRO        521     A     
 ERPRO     HSTB4    EQU    WIDB4                                                           ERPRO        522     A     
 ERPRO     SLAB4    EQU    WIDB4                                                           ERPRO        523     A     
 ERPRO     RECB4    EQU    FLDB4                                                           ERPRO        524     A     
 ERPRO     RECX3    EQU    FLDX3                                                           ERPRO        525     A     
 ERPRO     RITEB4   EQU    WIDB4                                                           ERPRO        526     A     
 ERPRO     FLAGPON  DATA   0           FLAG FOR SCALE FACTOR                               ERPRO        527     A     
 ERPRO     HDELIM   DATA   0           CONTAINS HOLL STRING DELIMITER                      ERPRO        528     A     
 ERPRO     COLTEMP  DATA   0           TEMPORARY FOR COLUMN COUNT                          ERPRO        529     A     
 ERPRO     XWORD    DATA   0           NONZERO IF MINUS SIGN                               ERPRO        530     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2006    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO     MORECH   DATA   0                                                               ERPRO        531     A     
 ERPRO     STRING   DATA   0                                                               ERPRO        532     A     
 ERPRO    FE       DATA      0                                                             ERPRO        533     A     
 ERPRO     N.CELLS  EQU    *-O.CELLS         END OF CELLS THAT ARE INITIALIZED             ERPRO        534     A     
 ERPRO    TA1      DATA      0                                                             ERPRO        535     A     
 ERPRO    TB2      DATA      0                                                             ERPRO        536     A     
 ERPRO    TX2      DATA      0                                                             ERPRO        537     A     
 ERPRO     TTA7     EQU    TX2                                                             ERPRO        538     A     
 ERPRO    TB3      DATA      0                                                             ERPRO        539     A     
 ERPRO    TB4      DATA      0                                                             ERPRO        540     A     
 ERPRO    TX4      DATA      0                                                             ERPRO        541     A     
 ERPRO    TB7      DATA      0                                                             ERPRO        542     A     
 ERPRO    TA7      DATA      0                                                             ERPRO        543     A     
 ERPRO    TX7      DATA      0                                                             ERPRO        544     A     
 ERPRO     MYFIRST  DATA   0                                                               ERPRO        545     A     
 ERPRO     MYLAST   DATA   0                                                               ERPRO        546     A     
 ERPRO              USE    *                                                               ERPRO        547     A     
 ERPRO     SAVADR   DATA   0           CONTAINS SYM TAB ENT OF FORMAT ADDR                 FCC2202       29     A     
 ERPRO              SPACE  3                                                               ERPRO        548     A     
 ERPRO    TENMU    DATA      17170631463146314632B     BINARY_DISPLAY CONSTANT             ERPRO        549     A     
 ERPRO              TITLE  LOCAL PROCESSORS CALLED BY TRANSITION DIAGRAM PROCESSOR         ERPRO        550     A     
 ERPRO             TITLE     NUMBER                                                        ERPRO        551     A     
 ERPRO             ENTRY     NUMBER                                                        ERPRO        552     A     
 ERPRO    NUMBER   SB6       X3                   SAVE INPUT PARAMETER                     ERPRO        553     A     
 ERPRO             BX3       X3-X3                CLEAR OUT TEMP SAVE AREA                 ERPRO        554     A     
 ERPRO             SA4       DIGMASK                                                       ERPRO        555     A     
 ERPRO              SX5    X2-1R=                                                          ERPRO        556     A     
 ERPRO              ZR     X5,NUMB1    IF =, SPECIAL SYMBOL FOR A NUMBER                   ERPRO        557     A     
 ERPRO             EQ        ACCUM                                                         ERPRO        558     A     
 ERPRO    MOVEIN   STEPIN                         POINT TO NEXT CHAR TO STORE              ERPRO        559     A     
 ERPRO             PUTCH     X2,X5                STORE CHAR IN OUTPUT STRING              ERPRO        560     A     
 ERPRO    ACCUM    LX5       X3,B1                2*ACCUM                                  ERPRO        561     A     
 ERPRO             SX2       X2-1R0               REMOVE DISPLAY CODE FROM DIGIT           ERPRO        562     A     
 ERPRO             LX3       3                    8*ACCUM                                  ERPRO        563     A     
 ERPRO             IX3       X5+X3                10*ACCUM                                 ERPRO        564     A     
 ERPRO             IX3       X3+X2                ADD CURRENT DIGIT TO ACCUM               ERPRO        565     A     
 ERPRO    ADVCHAR  LOOK      X2                   FETCH NEXT CHAR                          ERPRO        566     A     
 ERPRO             SB5       X2                   SET UP CONDITIONS                        ERPRO        567     A     
 ERPRO             LX5       X4,B5                FOR DIGIT RECOGNITION                    ERPRO        568     A     
 ERPRO             MI        X5,MOVEIN            YES,DIGIT. STORE AND CONTINUE            ERPRO        569     A     
 ERPRO             SX2       X2-1R                SUBTRACT DISPLAY CODE BLANK              ERPRO        570     A     
 ERPRO             NZ        X2,NONDIG            NOT BLANK. EXIT.                         ERPRO        571     A     
 ERPRO             STEPIN                         BLANK. MOVE UP INPUT POINTER.            ERPRO        572     A     
 ERPRO             EQ        ADVCHAR              GO,GET NEXT CHARACTER.                   ERPRO        573     A     
 ERPRO    NONDIG   BX6       X3                   RETREIVE BINARY NUMBER                   ERPRO        574     A     
 ERPRO             SX3       B6                   RESTORE INPUT PARAMETER                  ERPRO        575     A     
 ERPRO             SA6       B6+NUMN              STORE CONVERTED BINARY NUMBER.           ERPRO        576     A     
 ERPRO             JP        B4        RETURN TO CALLING PROGRAM                           ERPRO        577     A     
 ERPRO     NUMB1    MX6    60                                                              ERPRO        578          I
          -FCC2202
 ERPRO     NUMB1    SA3    SAVADR      PICK UP WORD-B OF SYM TAB ENT OF FMT                FCC2202       30     A     
 ERPRO              SA3    X3                                                              FCC2202       31     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2007    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO              MX6    73B         SET UP MASK TO SET THE V OR = FLAG                  FCC2202       32     A     
 ERPRO              BX3    -X6+X3      SET THE V OR = FLAG                                 FCC2202       33     A     
 ERPRO              BX6    X3                                                              FCC2202       34     A     
 ERPRO              SA6    A3          UPDATE WORD-B OF SYM TAB ENT OF FMT                 FCC2202       35     A     
 ERPRO              MX6    60                                                              FCC2202       36     A     
 ERPRO              SA6    B6+NUMN     -0 FOR = SIGN ENCOUNTERED                           ERPRO        579     A     
 ERPRO              SX3    22          NON-ANSI SYMBOL                                     ERPRO        580     A     
 ERPRO     NUMB2    LOOK   X2                                                              ERPRO        581     A     
 ERPRO              SX2    X2-1R                                                           ERPRO        582     A     
 ERPRO              NZ     X2,UERROR   IF ALL TRAILING BLANKS ARE REMOVED                  ERPRO        583     A     
 ERPRO              STEPIN                                                                 ERPRO        584     A     
 ERPRO              EQ     NUMB2                                                           ERPRO        585     A     
 ERPRO              EQ     UERROR                                                          ERPRO        586     A     
 ERPRO             TITLE     RANGE                                                         ERPRO        587     A     
 ERPRO             ENTRY     RANGE                                                         ERPRO        588     A     
 ERPRO    RANGE    SB6       X3                   SAVE INPUT PARAMETER                     ERPRO        589     A     
 ERPRO             SX6       B4                   FETCH RETURN ADDRESS                     ERPRO        590     A     
 ERPRO             SA6       RANB4                STORE RETURN ADDRESS IN RANB4            ERPRO        591     A     
 ERPRO             SB4       RANREST              SET RETURN-IN-RANGE ADDRESS              ERPRO        592     A     
 ERPRO             NE        B6,B1,ZERTEST        WIDTH RANGE TEST, IF NO J ZERTES         ERPRO        593     A     
 ERPRO             SA5       NUMW                 GET WIDTH VALUE                          ERPRO        594     A     
 ERPRO             SX3       9                                                             ERPRO        595     A     
 ERPRO             SX6       X5-MINMAX-1          SUBTRACT INSIDE MAX                      ERPRO        596     A     
 ERPRO              MI     X6,RANREST  IF WIDTH IS INSIDE MAX                              ERPRO        597     A     
 ERPRO              AX5    17                                                              ERPRO        598     A     
 ERPRO              ZR     X5,IERROR   IF WIDTH IS NOT MORE THAN 17 BITS                   ERPRO        599     A     
 ERPRO              SX3    46                                                              ERPRO        600     A     
 ERPRO              EQ     FERROR                                                          ERPRO        601     A     
 ERPRO    RANREST  SA5       RANB4                RESTORE RETURN PARAMETER                 ERPRO        602     A     
 ERPRO             SB4       X5                                                            ERPRO        603     A     
 ERPRO             SX3       B6                                                            ERPRO        604     A     
 ERPRO             JP        B4        RETURN TO CALLING PROGRAM                           ERPRO        605     A     
 ERPRO    ZERTEST  NE        B6,B0,PTEST          NONZERO TEST, IF NO,J PTEST              ERPRO        606     A     
 ERPRO             SA5       NUMN                 GET NUMBER VALUE                         ERPRO        607     A     
 ERPRO             NZ        X5,RANREST           IF NONZERO J TO RETURN CODE              ERPRO        608     A     
 ERPRO              MI     X5,RANREST  IF REPEAT COUNT INDICATED BY =                      ERPRO        609     A     
 ERPRO              SX3    43                                                              ERPRO        610     A     
 ERPRO              EQ     FERROR                                                          ERPRO        611     A     
 ERPRO                                                                                     ERPRO        612     A     
 ERPRO    PTEST    SA4       FLAGPON              FETCH SCALE-ON FLAG                      ERPRO        613     A     
 ERPRO             MX6       1                    TURN ON                                  ERPRO        614     A     
 ERPRO             SA6       A4                   NEW SCALE-ON FLAG                        ERPRO        615     A     
 ERPRO             NZ        X4,PONERR            P-FLAG ALREADY ON  ERROR                 ERPRO        616     A     
 ERPRO    RPTRTN   SA5       NUMN                 GET SCALE VALUE                          ERPRO        617     A     
 ERPRO             SX6       B1                   RESTORE                                  ERPRO        618     A     
 ERPRO             SA6       NUMN                 NUMN TO ONE                              ERPRO        619     A     
 ERPRO             SX6       X5-PMAX-1            SUBTRACT MAX FROM SCALE VALUE            ERPRO        620     A     
 ERPRO             PL        X6,PNUMERR           IF OUT OF RANGE, CALL ERROR              ERPRO        621     A     
 ERPRO             ZR        RANREST              J TO RETURN CODE                         ERPRO        622     A     
 ERPRO    PONERR   SX3       11                   IF FLAG WAS                              ERPRO        623     A     
 ERPRO             SB4       RPTRTN               ALREADY ON                               ERPRO        624     A     
 ERPRO             ZR        IERROR               PRODUCE AN INFORMATIVE ERROR             ERPRO        625     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2008    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO    PNUMERR  SX3       10                   P-SCALE                                  ERPRO        626     A     
 ERPRO             SB4       RANREST              OUT OF RANGE                             ERPRO        627     A     
 ERPRO             ZR        IERROR                                                        ERPRO        628     A     
 ERPRO             TITLE     FLDCHEK                                                       ERPRO        629     A     
 ERPRO             ENTRY     FLDCHEK                                                       ERPRO        630     A     
 ERPRO    FLDCHEK  SX6       B4                   FETCH RETURN ADDRESS                     ERPRO        631     A     
 ERPRO             SA6       FLDB4                STORE RETURN ADDRESS IN FLDB4            ERPRO        632     A     
 ERPRO             BX6       X3                   FETCH INPUT PARAMETER                    ERPRO        633     A     
 ERPRO             SA4       NUMN                 FETCH NUMN                               ERPRO        634     A     
 ERPRO             SA6       FLDX3                STORE INPUT PARAMETER IN FLDX3           ERPRO        635     A     
 ERPRO             ZR        X3,FLDCALL           NUMN FIELD ALL TO CHECK FLDCALL          ERPRO        636     A     
 ERPRO             SA5       NUMW                 MULTIPLY                                 ERPRO        637     A     
 ERPRO             PX6       X4                   NO                                       ERPRO        638     A     
 ERPRO             PX5       X5                   INTEGERS                                 ERPRO        639     A     
 ERPRO             DX4       X6*X5                NUMN*NUMW                                ERPRO        640     A     
 ERPRO    FLDCALL  SX3       B1                   SET PARAMETER TO 1                       ERPRO        641     A     
 ERPRO             SX6       X4                   GET VALUE TO BE CHECKED                  ERPRO        642     A     
 ERPRO             SA6       NUMW                 STORE VALUE IN NUMW                      ERPRO        643     A     
 ERPRO             SB4       FLDRTN               SET RETURN ADDRESS                       ERPRO        644     A     
 ERPRO             ZR        RANGE                GO TO RANGE-CHECKING ROUTINE             ERPRO        645     A     
 ERPRO     FLDRTN   BSS    0                                                               ERPRO        646     A     
 ERPRO             SA3       COLCNT               FETCH CURRENT RECORD COUNT ADDR          ERPRO        647     A     
 ERPRO             SA5       NUMW                 AND NUMW ADDRESS                         ERPRO        648     A     
 ERPRO             IX6       X3+X5                ADD NUMW TO CURRENT RECORD COUNT         ERPRO        649     A     
 ERPRO             SA4       LEVEL                GET CURRENT PARENTHESES LEVEL            ERPRO        650     A     
 ERPRO             SA4       X4+PUSHDOWN          GET ADDR OF PUSHDOWN WORD,LEVEL          ERPRO        651     A     
 ERPRO              MI     X5,FLDMI    IF BACKSPACING                                      ERPRO        652     A     
 ERPRO     FLDPL    SA6    A3          CURRENT RECORD COUNT                                ERPRO        653     A     
 ERPRO             PL        X4,PDSET             NO SLASH LEAVE IN N1 POSN                ERPRO        654     A     
 ERPRO             LX5       18                   SHIFT P.D. WORD INTO PROP POS-N          ERPRO        655     A     
 ERPRO    PDSET    IX6       X4+X5                ADD NEW CT TO PUSHDOWN(LEVEL)            ERPRO        656     A     
 ERPRO             SA6       A4                   STORE MODIFIED PUSH-WORD                 ERPRO        657     A     
 ERPRO    WSET     SA5       FLDB4                RESTORE B4                               ERPRO        658     A     
 ERPRO             SB4       X5                                                            ERPRO        659     A     
 ERPRO             SX6       B0                   ZERO OUT                                 ERPRO        660     A     
 ERPRO             SA6       NUMW                 NUMW                                     ERPRO        661     A     
 ERPRO             SA3       FLDX3                RESTORE X3                               ERPRO        662     A     
 ERPRO             JP        B4        RETURN TO CALLING PROGRAM                           ERPRO        663     A     
 ERPRO     FLDMI    BX2    X4                                                              ERPRO        664     A     
 ERPRO              PL     X4,FLDMI1   IF NO SLASH                                         ERPRO        665     A     
 ERPRO              LX2    -18                                                             ERPRO        666     A     
 ERPRO     FLDMI1   MX3    42                                                              ERPRO        667     A     
 ERPRO              BX2    -X3*X2                                                          ERPRO        668     A     
 ERPRO              IX2    X2+X5                                                           ERPRO        669     A     
 ERPRO              LX3    18                                                              ERPRO        670     A     
 ERPRO              PL     X2,FLDPL    IF BACKSPACING + CNT IN PUSHDOWN                    ERPRO        671     A     
 ERPRO              SB4    WSET        RETURN POINT                                        ERPRO        672     A     
 ERPRO              BX4    X4*X3       CNT IN PUSHDOWN CLEARED                             ERPRO        673     A     
 ERPRO              PL     X6,FLDMI2   IF BACKSPACING + RECORD CNT                         ERPRO        674     A     
 ERPRO              BX6    X6-X6                                                           ERPRO        675     A     
 ERPRO     FLDMI2   SA6    A3          CURRENT RECORD COUNT                                ERPRO        676     A     
 ERPRO              MX3    1                                                               ERPRO        677     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2009    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO              BX6    X3+X4       SLASH FLAG SET                                      ERPRO        678     A     
 ERPRO              SA6    A4          COUNT IN PUSHDOWN                                   ERPRO        679     A     
 ERPRO              SX3    28          BACKSPACING TOO LARGE                               ERPRO        680     A     
 ERPRO              ZR     UERROR                                                          ERPRO        681     A     
 ERPRO             TITLE     WIDTH                                                         ERPRO        682     A     
 ERPRO             ENTRY     WIDTH                                                         ERPRO        683     A     
 ERPRO    WIDTH    SX6       B4                   FETCH RETURN PARAMETER                   ERPRO        684     A     
 ERPRO             SA6       WIDB4                STORE R P IN WIDB4                       ERPRO        685     A     
 ERPRO             BX6       X3                   FETCH INPUT PARAMETER                    ERPRO        686     A     
 ERPRO             SA6       WIDX3                STORE I P IN WIDX3                       ERPRO        687     A     
 ERPRO             SB4       WNRTN                SET RETURN ADDRESS                       ERPRO        688     A     
 ERPRO             SX3       B1                   SET NUM PARAM EQ 1                       ERPRO        689     A     
 ERPRO             ZR        NUMBER               AND GO TO  NUMBER(1)                     ERPRO        690     A     
 ERPRO    WNRTN    SA3       NUMW                 FETCH CONVERTED NUMW                     ERPRO        691     A     
 ERPRO              BX6    X3                                                              ERPRO        692     A     
 ERPRO              SA6    TEMPNW                                                          ERPRO        693     A     
 ERPRO              MI     X3,WIDREST  IF WIDTH WAS INDICATED BY A =                       ERPRO        694     A     
 ERPRO              NZ     X3,NWOK     IF WIDTH WAS > 0                                    ERPRO        695     A     
 ERPRO             SX3       4                    SET ERROR NO                             ERPRO        696     A     
 ERPRO             SB4       WIDREST              SET RETURN PT                            ERPRO        697     A     
 ERPRO             ZR        IERROR               GO TO ERROR PROCESSOR                    ERPRO        698     A     
 ERPRO    NWOK     SB4       WRRTN                SET RETURN ADDRESS                       ERPRO        699     A     
 ERPRO             SX3       B1                   SET RANGE PARAM                          ERPRO        700     A     
 ERPRO             ZR        RANGE                GO TO RANGE(1)                           ERPRO        701     A     
 ERPRO     WRRTN    BSS    0                                                               ERPRO        702     A     
 ERPRO             SB4       WFRTN                SET RETURN POINT                         ERPRO        703     A     
 ERPRO             SX3       B1                   SET FLDCHEK PARAM                        ERPRO        704     A     
 ERPRO             ZR        FLDCHEK              GO TO FLDCHEK ROUTINE                    ERPRO        705     A     
 ERPRO     WFRTN    SA4    SPESFLG                                                         ERPRO        706     A     
 ERPRO              PL     X4,WIDREST  IF NOT (D,E,G) SPECIFICATION                        ERPRO        707     A     
 ERPRO             SA5       TEMPNW               FETCH NUMW FOR CHECH ON WIDTH            ERPRO        708     A     
 ERPRO             SX5       X5-6                                                          ERPRO        709     A     
 ERPRO             PL        X5,WIDREST           IF RANGE OK  GO TO EXIT CODE             ERPRO        710     A     
 ERPRO             SX3       5                    SET ERROR PARAMETER                      ERPRO        711     A     
 ERPRO             SB4       WIDREST              SET RETURN POINT                         ERPRO        712     A     
 ERPRO             ZR        IERROR               GO TO ERROR ROUTINE                      ERPRO        713     A     
 ERPRO    WIDREST  SA4       WIDB4                                                         ERPRO        714     A     
 ERPRO             SA3       WIDX3                                                         ERPRO        715     A     
 ERPRO             SB4       X4                                                            ERPRO        716     A     
 ERPRO             NZ        X3,WRTN              IS THIS DECIMAL-WIDTH CALL               ERPRO        717     A     
 ERPRO             BX6       X6-X6                IF SO                                    ERPRO        718     A     
 ERPRO             SA6       FLAGPON              TURN ON SCALE-ON FLAG                    ERPRO        719     A     
 ERPRO    WRTN     JP        B4        RETURN TO CALLING PROGRAM                           ERPRO        720     A     
 ERPRO             TITLE     DECIM-FLAGW7D-ONECNT                                          ERPRO        721     A     
 ERPRO             ENTRY     DECIM                                                         ERPRO        722     A     
 ERPRO    DECIM    SX6       B4                   FETCH RETURN PARAMETER                   ERPRO        723     A     
 ERPRO             SA6       DECB4                STORE IN DECB4                           ERPRO        724     A     
 ERPRO              SX6    X3                                                              ERPRO        725     A     
 ERPRO              SA6    WIDX3       SAVE INPUT PARAMETER                                ERPRO        726     A     
 ERPRO             SX3       -B1                  SET NUMD  PARAM                          ERPRO        727     A     
 ERPRO             SB4       DNRET                SET DECIM RETURN PT                      ERPRO        728     A     
 ERPRO             ZR        NUMBER               GO TO NUMBER ROUTINE                     ERPRO        729     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2010    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO     DNRET    SA3    WIDX3                                                           ERPRO        730     A     
 ERPRO              SA4    TEMPNW                                                          ERPRO        731     A     
 ERPRO              SA5    NUMD                                                            ERPRO        732     A     
 ERPRO              MI     X4,DECREST  IF = SPECIFIED AS WIDTH, NO CHECKS MADE             FCC0511        4     A     
 ERPRO              IX6    X4-X5       WIDTH - DECIMAL DIGITS                              ERPRO        733     A     
 ERPRO              SA6    A4                                                              ERPRO        734     A     
 ERPRO              ZR     X3,DECIM2   IF I,O,V SPEC.                                      ERPRO        735     A     
 ERPRO              PL     X3,DECIM1   IF E SPEC.                                          ERPRO        736     A     
 ERPRO              SX6    X6-2                                                            ERPRO        737     A     
 ERPRO              SA3    SPESFLG                                                         ERPRO        738     A     
 ERPRO              ZR     X3,DECIM2   IF F SPEC.                                          ERPRO        739     A     
 ERPRO     DECIM1   SX6    X6-4                                                            ERPRO        740     A     
 ERPRO     DECIM2   PL     X6,DECREST  IF WIDTH IS LARGE ENOUGH                            ERPRO        741     A     
 ERPRO             SX3       13                   SET ERROR PARAM                          ERPRO        742     A     
 ERPRO             SB4       DECREST              SET DECIM RETURN POINT                   ERPRO        743     A     
 ERPRO             ZR        IERROR               GO TO ERROR ROUTINE                      ERPRO        744     A     
 ERPRO    DECREST  SA4       DECB4                FETCH RETURN POINT                       ERPRO        745     A     
 ERPRO             SA3       NUMD                                                          ERPRO        746     A     
 ERPRO             SB4       X4                   STORE R P IN B4                          ERPRO        747     A     
 ERPRO             JP        B4        RETURN TO CALLING PROGRAM                           ERPRO        748     A     
 ERPRO              ENTRY  SPESSET                                                         ERPRO        749     A     
 ERPRO     SPESSET  BX6    X3                                                              ERPRO        750     A     
 ERPRO              SA6    SPESFLG     SPECIFICATION FLAG SET                              ERPRO        751     A     
 ERPRO              SX4    X2-1RO                                                          ERPRO        752     A     
 ERPRO              ZR     X4,SPESS1   IF O SPEC.                                          ERPRO        753          I
          -FCCA556
 ERPRO              ZR     X4,SPESS2   IF O SPEC                                           FCCA556        7     A     
 ERPRO              SX5    X2-1RV                                                          ERPRO        754     A     
 ERPRO              ZR     X5,SPESS1   IF V SPEC.                                          ERPRO        755     A     
 ERPRO              JP     B4                                                              ERPRO        756     A     
 ERPRO     SPESS1   SX3    22          NON-ANSI SYMBOL                                     ERPRO        757          I
          -FCC2202
 ERPRO     SPESS1   SA3    SAVADR      PICK UP WORD-B OF SYM TAB ENT OF FMT                FCC2202       37     A     
 ERPRO              SA3    X3                                                              FCC2202       38     A     
 ERPRO              MX6    73B         SET UP MASK TO SET THE V OR = FLAG                  FCC2202       39     A     
 ERPRO              BX3    -X6+X3      SET THE V OR = FLAG                                 FCC2202       40     A     
 ERPRO              BX6    X3                                                              FCC2202       41     A     
 ERPRO              SA6    A3          UPDATE WORD-B OF SYM TAB ENT OF FMT                 FCC2202       42     A     
 ERPRO              SX3    22          NON-ANSI SYMBOL                                     FCC2202       43          I
          -FCCA556
 ERPRO     SPESS2   SX3    22          NON-ANSI SYMBOL                                     FCCA556        8     A     
 ERPRO              EQ     UERROR                                                          ERPRO        758     A     
 ERPRO             ENTRY     ONECNT                                                        ERPRO        759     A     
 ERPRO    ONECNT   SX6       B1                   ROUTINE INITIALIZES                      ERPRO        760     A     
 ERPRO             SA6       NUMN                 NUMN=1                                   ERPRO        761     A     
 ERPRO             BX6       X6-X6                                                         ERPRO        762     A     
 ERPRO             SA6       NUMW                 NUMW=0                                   ERPRO        763     A     
 ERPRO             SA6       NUMD                 NUMD=0                                   ERPRO        764     A     
 ERPRO              SA6    SPESFLG     CLEAR SPEC. FLAG                                    ERPRO        765     A     
 ERPRO              SA6    XWORD       CLEAR MINUS SIGN FLAG                               ERPRO        766     A     
 ERPRO             JP        B4        RETURN TO CALLING PROGRAM                           ERPRO        767     A     
 ERPRO              TITLE  XPROC-TSASI-TCODE                                               ERPRO        768     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2011    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO              ENTRY XPROC                                                            ERPRO        769     A     
 ERPRO     XPROC    SX6    B4                                                              ERPRO        770     A     
 ERPRO              SA6    XB4         SAVE RETURN POINT                                   ERPRO        771     A     
 ERPRO              NZ     X3,XPROC1   IF THERE WAS A NUMBER IN X-FIELD                    ERPRO        772     A     
 ERPRO              SX3    B1+B1       A BLANK IN X-FIELD                                  ERPRO        773     A     
 ERPRO              SB4    XPROC1                                                          ERPRO        774     A     
 ERPRO              ZR     IERROR                                                          ERPRO        775     A     
 ERPRO     XPROC1   SA5    XWORD                                                           ERPRO        776     A     
 ERPRO              SA4    NUMN                                                            ERPRO        777     A     
 ERPRO              PL     X5,XPROC2   IF FORWARD SPACING                                  ERPRO        778     A     
 ERPRO              SX3    27                                                              ERPRO        779     A     
 ERPRO              BX6    -X4                                                             ERPRO        780     A     
 ERPRO              SB4    XPROC2                                                          ERPRO        781     A     
 ERPRO              BX4    X6                                                              ERPRO        782     A     
 ERPRO              SA6    A4                                                              ERPRO        783     A     
 ERPRO              ZR     UERROR                                                          ERPRO        784     A     
 ERPRO     XPROC2   BX3    X3-X3                                                           ERPRO        785     A     
 ERPRO              SB4    XPROC3                                                          ERPRO        786     A     
 ERPRO              NZ     X4,FLDCHEK  IF NUMBER TO SPACE WAS NOT 0 OR =                   ERPRO        787     A     
 ERPRO              MI     X4,XPROC3   IF = WAS SPACING INDICATOR                          ERPRO        788     A     
 ERPRO              SX3    3                                                               ERPRO        789     A     
 ERPRO              ZR     IERROR                                                          ERPRO        790     A     
 ERPRO     XPROC3   SA4    XB4                                                             ERPRO        791     A     
 ERPRO              SB4    X4                                                              ERPRO        792     A     
 ERPRO              JP     B4                                                              ERPRO        793     A     
 ERPRO              ENTRY  NEGSET                                                          ERPRO        794     A     
 ERPRO     NEGSET   MX6    1                                                               ERPRO        795     A     
 ERPRO              SA6    XWORD       SETS FLAG FOR MINUS SIGN                            ERPRO        796     A     
 ERPRO              JP     B4                                                              ERPRO        797     A     
 ERPRO             ENTRY     TSASI                                                         ERPRO        798     A     
 ERPRO    TSASI    SX6       B4                   ROUTINE SAVES RETURN POINT               ERPRO        799     A     
 ERPRO             SA6       TSAB4                + CALLS DELCOM                           ERPRO        800     A     
 ERPRO             SB4       TSDRTN               TO SQUEEZE OUT                           ERPRO        801     A     
 ERPRO             ZR        DELCOM               REDUNDANT COMMAS                         ERPRO        802     A     
 ERPRO    TSDRTN   SX3       24                   TSASI THEN CALLS                         ERPRO        803     A     
 ERPRO             SB4       TSURTN               UERROR - TO NOTE                         ERPRO        804     A     
 ERPRO             ZR        UERROR               TAB SETTING AS NON-USASI                 ERPRO        805     A     
 ERPRO    TSURTN   SA4       TSAB4                RETURN PARAMETER                         ERPRO        806     A     
 ERPRO             SB4       X4                   IS RESTORED                              ERPRO        807     A     
 ERPRO             JP        B4        RETURN TO CALLING PROGRAM                           ERPRO        808     A     
 ERPRO             ENTRY     TCODE                                                         ERPRO        809     A     
 ERPRO    TCODE    SX6       B4                   ROUTINE SAVES RETURN POINT               ERPRO        810     A     
 ERPRO             BX3       X3-X3                TO BINARY                                ERPRO        811     A     
 ERPRO             SA6       TCOB4                THEN CONVERTS                            ERPRO        812     A     
 ERPRO             SB4       TNRTN                DISPLAY CODE TAB SETTING                 ERPRO        813     A     
 ERPRO             ZR        NUMBER               VIA NUMBER ROUTINE                       ERPRO        814     A     
 ERPRO    TNRTN    SA4       NUMN                 IF COLUMN SETTING                        ERPRO        815     A     
 ERPRO              NZ     X4,TCODE1   IF TAB SET WAS NOT AT COLUMN 0                      ERPRO        816     A     
 ERPRO              SX6    B1          DEFAULT TAB SET                                     ERPRO        817     A     
 ERPRO              SA6    A4                                                              ERPRO        818     A     
 ERPRO              MI     X4,TCODE1   IF = WAS TAB SET                                    ERPRO        819     A     
 ERPRO              SB4    TCODE1                                                          ERPRO        820     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2012    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO             SX3       14                   ERROR CODE                               ERPRO        821     A     
 ERPRO              EQ     IERROR                                                          ERPRO        822     A     
 ERPRO     TCODE1   BSS    0                                                               ERPRO        823     A     
 ERPRO             SX3       B1                   OTHERWISE RECORD SIZE IS CHECKED         ERPRO        824     A     
 ERPRO              SB4    TCIRTN                                                          ERPRO        825     A     
 ERPRO             ZR        RECCHEK              FOR MAX + TAB RESET IN RECCHEK           ERPRO        826     A     
 ERPRO    TCIRTN   SA4       TCOB4                RETURN POINT                             ERPRO        827     A     
 ERPRO             SB4       X4                   IS RESTORED                              ERPRO        828     A     
 ERPRO             JP        B4        RETURN TO CALLING PROGRAM                           ERPRO        829     A     
 ERPRO              TITLE  SPES-NULLP-DELCOM                                               ERPRO        830     A     
 ERPRO              ENTRY  SPES                                                            ERPRO        831     A     
 ERPRO     SPES     SX6    B4                                                              ERPRO        832     A     
 ERPRO              SA6    SPESB4                                                          ERPRO        833     A     
 ERPRO              MX5    60-2                                                            ERPRO        834     A     
 ERPRO              SA4    SPESFLG                                                         ERPRO        835     A     
 ERPRO              BX6    -X5*X4                                                          ERPRO        836     A     
 ERPRO              NZ     X6,SPES1    IF V,E,I,O SPEC.                                    ERPRO        837     A     
 ERPRO              SX3    31                                                              ERPRO        838     A     
 ERPRO              EQ     FERROR                                                          ERPRO        839     A     
 ERPRO     SPES1    SX4    X3          SAVE INPUT PARAMETER                                ERPRO        840     A     
 ERPRO              SX3    26                                                              ERPRO        841     A     
 ERPRO              SB4    SPES2                                                           ERPRO        842     A     
 ERPRO              ZR     UERROR                                                          ERPRO        843     A     
 ERPRO     SPES2    SX3    X4          INPUT PARAMETER                                     ERPRO        844     A     
 ERPRO              SA4    SPESB4                                                          ERPRO        845     A     
 ERPRO              SB4    X4                                                              ERPRO        846     A     
 ERPRO              SA4    DIGMASK     DIGIT MASK                                          ERPRO        847     A     
 ERPRO     SPES3    GETCH  X2                                                              ERPRO        848          I
          -FCC1300X 
 ERPRO     SPES3    LOOK   X2                                                              FCC1300X      39     A     
 ERPRO              SB5    X2                                                              ERPRO        849     A     
 ERPRO              LX5    X4,B5                                                           ERPRO        850     A     
 ERPRO              MI     X5,SPES4    IF A DIGIT                                          ERPRO        851     A     
 ERPRO              SX4    X2-1R=                                                          ERPRO        852          I
          -FCC1300X 
 ERPRO              ZR     X4,SPES4    IF A = SIGN                                         ERPRO        853          I
          -FCC1300X 
 ERPRO              SX6    X2-1R=                                                          FCC1300X      40     A     
 ERPRO              ZR     X6,SPES4    IF A = SIGN                                         FCC1300X      41     A     
 ERPRO              SX2    X2-1R                                                           ERPRO        854     A     
 ERPRO              ZR     X2,SPES3    IF A BLANK                                          ERPRO        855          I
          -FCC1300X 
 ERPRO              SX3    7                                                               ERPRO        856          I
          -FCC1300X 
 ERPRO              NZ     X2,SPES35   IF NOT A BLANK                                      FCC1300X      42     A     
 ERPRO              STEPIN                                                                 FCC1300X      43     A     
 ERPRO              EQ     SPES3       STRIP BLANK                                         FCC1300X      44     A     
 ERPRO                                                                                     FCC1300X      45     A     
 ERPRO     SPES35   SX3    6                                                               FCC1300X      46     A     
 ERPRO              EQ     IERROR                                                          ERPRO        857     A     
 ERPRO     SPES4    PUTCH  X2,X5                                                           ERPRO        858          I
          -FCC1300X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2013    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO     SPES4    STEPIN                                                                 FCC1300X      47     A     
 ERPRO              PUTCH  X2,X5                                                           FCC1300X      48     A     
 ERPRO              EQ     DECIM                                                           ERPRO        859     A     
 ERPRO             ENTRY     NULLP                                                         ERPRO        860     A     
 ERPRO    NULLP    SX6       B4                   ROUTINE HANDLES NULL SCALE FACTO         ERPRO        861     A     
 ERPRO             SA6       NULB4                SAVES RETURN POINT                       ERPRO        862     A     
 ERPRO              SX3    15                                                              ERPRO        863     A     
 ERPRO             SB4       NPIRTN               TO INFORM PROGRAMMER                     ERPRO        864     A     
 ERPRO             ZR        IERROR               OF OMISSION                              ERPRO        865     A     
 ERPRO    NPIRTN   SA4       FLAGPON              UPON RETURN,SCALE FLAG IS SET ON         ERPRO        866     A     
 ERPRO             MX6       1                    AND FORMER SCALE                         ERPRO        867     A     
 ERPRO             SA6       A4                   IS CHECKED FOR STATUS                    ERPRO        868     A     
 ERPRO              SX3    11                                                              ERPRO        869     A     
 ERPRO             SB4       N2IRTN                                                        ERPRO        870     A     
 ERPRO             NZ        X4,IERROR            AN INFORMATIVE ERROR IS PROD-D           ERPRO        871     A     
 ERPRO    N2IRTN   SA4       NULB4                RETURN POINT                             ERPRO        872     A     
 ERPRO             SB4       X4                   IS RESTORED                              ERPRO        873     A     
 ERPRO             JP        B4        RETURN TO CALLING PROGRAM                           ERPRO        874     A     
 ERPRO             ENTRY     DELCOM                                                        ERPRO        875     A     
 ERPRO    DELCOM   SA4       SAVECHAR             FETCH LAST CHARACTER IN OUTPUT           ERPRO        876     A     
 ERPRO             SX4       X4-1R,               STRING. IF IT WAS A COMMA,               ERPRO        877     A     
 ERPRO             NZ        X4,DELEXIT           DELETE IT . IF NOT GO TO DELEXIT         ERPRO        878     A     
 ERPRO             BX6       X2                   WAS COMMA. FETCH CURRENT CHAR            ERPRO        879     A     
 ERPRO             SA6       A4                   AND STORE OVER REDUNDANT COMMA.          ERPRO        880     A     
 ERPRO    DELEXIT  JP        B4        RETURN TO CALLING PROGRAM                           ERPRO        881     A     
 ERPRO             TITLE     HCOUNTR-HSTRNGR                                               ERPRO        882     A     
 ERPRO             ENTRY     HCOUNTR                                                       ERPRO        883     A     
 ERPRO    HCOUNTR  SX6       B4                   ROUTINE SAVES RETURN POINT               ERPRO        884     A     
 ERPRO             BX3       X3-X3                SET PARAMETERS                           ERPRO        885     A     
 ERPRO             SA6       HCOB4                THEN FETCHES                             ERPRO        886     A     
 ERPRO             SA4       NUMN                 HOLLERITH COUNT                          ERPRO        887     A     
 ERPRO             ZR        X4,HCOFAT            ZERO COUNT CAUSES FATAL ERROR            ERPRO        888     A     
 ERPRO    FETCH    GETCH     X2                   COUNT OK  GETCH 1ST H-CHAR               ERPRO        889     A     
 ERPRO              NZ     X2,FETCH1                                                       ERPRO        890     A     
 ERPRO              SA3    A1                                                              ERPRO        891     A     
 ERPRO              ZR     X3,HCEFAT                                                       ERPRO        892     A     
 ERPRO              BX3    X3-X3                                                           ERPRO        893     A     
 ERPRO     FETCH1   BSS    0                                                               ERPRO        894     A     
 ERPRO             PUTCH     X2,X5                CHAR OK  STORE IN OUTPUT STRING          ERPRO        895     A     
 ERPRO             SX4       X4-1                 SUBTRACT 1 FROM H-COUNT                  ERPRO        896     A     
 ERPRO             NZ        X4,FETCH             COUNT EMPTY-IF NO FETCH NEXTCHAR         ERPRO        897     A     
 ERPRO             SB4       HCFCOM                                                        ERPRO        898     A     
 ERPRO             ZR        FLDCHEK              FOR VALID FLD LENGTH +INCR COLCT         ERPRO        899     A     
 ERPRO    HCOFAT   SX3       37                   0H COUNT INVALID                         ERPRO        900     A     
 ERPRO             ZR        FERROR               SCANNING CANNOT CONTINUE                 ERPRO        901     A     
 ERPRO    HCEFAT   SX3       38                   END OF STATEMENT CHAR W NH INCOM         ERPRO        902     A     
 ERPRO             SX6       B1                                                            ERPRO        903     A     
 ERPRO             SA6       STRING                                                        ERPRO        904     A     
 ERPRO             EQ        FERROR                                                        ERPRO        905     A     
 ERPRO     HCFCOM  LOOK      X4                                                            ERPRO        906     A     
 ERPRO             SX5       X4-1R,                                                        ERPRO        907     A     
 ERPRO             ZR        X5,HCFRTN           IF NEXT CHARACTER NOT A COMMA             ERPRO        908     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2014    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO             SX6       X4-1R)              OR RIGHT PARENTHESIS                      ERPRO        909     A     
 ERPRO             ZR        X6,HCFRTN                                                     ERPRO        910     A     
 ERPRO              SX5    X4-1R/                                                          ERPRO        911     A     
 ERPRO              ZR     X5,HCFRTN   IF NOT SLASH                                        ERPRO        912          I
          -FCC0525
 ERPRO              SX6    X4-1R                                                           FCC0525        5     A     
 ERPRO              ZR     X5,HCFRTN   IF SEPARATOR IS A SLASH                             FCC0525        6     A     
 ERPRO              ZR     X6,HCFRTN   IF SEPARATOR IS A BLANK                             FCC0525        7     A     
 ERPRO             SX3       29                  LIST AS NON-ANSI                          ERPRO        913     A     
 ERPRO             SB4       HCFRTN                                                        ERPRO        914     A     
 ERPRO             EQ        UERROR                                                        ERPRO        915     A     
 ERPRO    HCFRTN   SA4       HCOB4                RESTORE                                  ERPRO        916     A     
 ERPRO             SB4       X4                   RETURN POINT                             ERPRO        917     A     
 ERPRO             JP        B4        RETURN TO CALLING PROGRAM                           ERPRO        918     A     
 ERPRO             ENTRY     HSTRNGR                                                       ERPRO        919     A     
 ERPRO    HSTRNGR  SX6       B4                   ROUTINE SAVES RETURN POINT               ERPRO        920     A     
 ERPRO             SA6       HSTB4                AND CHECKS ENTRY-TYPE                    ERPRO        921     A     
 ERPRO             BX6       X2                   SAVE HOLLERITH STRING DELIMITER          ERPRO        922     A     
 ERPRO             SA6       HDELIM                                                        ERPRO        923     A     
 ERPRO             NZ        X3,NONUH             IF HSTRNGR(0)-CALL                       ERPRO        924     A     
 ERPRO             SB4       NONUH                CALL DELCOM                              ERPRO        925     A     
 ERPRO             ZR        DELCOM               TO DELETE REDUNDANT COMMAS               ERPRO        926     A     
 ERPRO    NONUH    SB4       BHSCAN               THEN PRODUCE                             ERPRO        927     A     
 ERPRO             SX3       25                   NON-USASI DIAGNOSTIC                     ERPRO        928     A     
 ERPRO             ZR        UERROR               IN UERROR                                ERPRO        929     A     
 ERPRO    BHSCAN   SB5       B0                   CLEAR OUT HOLLERITH COUNTER              ERPRO        930     A     
 ERPRO              MX6    0                                                               FCCA402       16     A     
 ERPRO             SA4       HDELIM               FETHC HOLLERITH DELIMITER                ERPRO        931     A     
 ERPRO              SA6    MORECH                                                          FCCA402       17     A     
 ERPRO             SB4       X4                   AND SAVE IN B4                           ERPRO        932     A     
 ERPRO              SX6    1R,                                                             ERPRO        933     A     
 ERPRO              SX2    1RH                                                             ERPRO        934     A     
 ERPRO              SA6    SAVECHAR    REPLACE HOLL DELIMITER                              ERPRO        935     A     
 ERPRO              PUTCH  X2,X5                                                           ERPRO        936     A     
 ERPRO              SX6    B7                                                              ERPRO        937     A     
 ERPRO              SA6    TB7         B7, BYTE IN OUTPUT WORD SAVED                       ERPRO        938     A     
 ERPRO              SX6    A7-B1                                                           ERPRO        939     A     
 ERPRO              SA6    TA7         A7, ADDRESS OF OUTPUT STRING SAVED                  ERPRO        940     A     
 ERPRO              SB7    B7-12                                                           ERPRO        941     A     
 ERPRO              PL     B7,CHSCAN   IF 4 BYTES ARE FREE IN OUTPUT WORD                  ERPRO        942     A     
 ERPRO              SA7    X6          UPDATE OUTPUT WORD                                  ERPRO        943     A     
 ERPRO              MX7    0                                                               ERPRO        944     A     
 ERPRO              SB7    B7+60       UPDATE OUTPUT BYTE                                  ERPRO        945     A     
 ERPRO              EQ     CHSCAN                                                          ERPRO        946     A     
 ERPRO     CHSC0    PUTCH  X2,X5                                                           ERPRO        947          I
          -FCCA402
 ERPRO     CHSC0    SA4    MORECH                                                          FCCA402       18     A     
 ERPRO              ZR     X4,CHSC05   IF NO PREVIOUS 99                                   FCCA402       19     A     
 ERPRO              SB6    X2                                                              FCCA402       20     A     
 ERPRO              EQ     B6,B4,CHSC01 IF LAST CHARACTER LOOKED AT IS A DELIM             FCCA402       21     A     
 ERPRO              PUTCH  X2,X5                                                           FCCA402       22     A     
 ERPRO              STEPBK                                                                 FCCA402       23     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2015    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO              EQ     CHSC04                                                          FCCA402       24     A     
 ERPRO                                                                                     FCCA402       25     A     
 ERPRO     CHSC01   STEPBK                                                                 FCCA402       26     A     
 ERPRO              LE     B5,B0,CHSC03 IF POINTERS MOVED BACK TO END OF                   FCCA402       27     A     
 ERPRO    *                            PREVIOUS 99                                         FCCA402       28     A     
 ERPRO              SB5    B5-B1                                                           FCCA402       29     A     
 ERPRO              EQ     CHSC01                                                          FCCA402       30     A     
 ERPRO                                                                                     FCCA402       31     A     
 ERPRO     CHSC03   PUTCH  X2,X5                                                           FCCA402       32     A     
 ERPRO     CHSC04   SX6    2R99                                                            FCCA402       33     A     
 ERPRO              EQ     CHSC2A      PROCESS 99                                          FCCA402       34     A     
 ERPRO                                                                                     FCCA402       35     A     
 ERPRO     CHSC05   PUTCH  X2,X5                                                           FCCA402       36     A     
 ERPRO              SX4    B5-99                                                           ERPRO        948     A     
 ERPRO              ZR     X4,CHSC1B                                                       ERPRO        949     A     
 ERPRO    CHSCAN   GETCH     X2                   HOLLERITH-CHAR-SCAN LOOP/GET CH          ERPRO        950     A     
 ERPRO              NZ     X2,CHSC1                                                        ERPRO        951     A     
 ERPRO              SA3    A1                                                              ERPRO        952     A     
 ERPRO              ZR     X3,HSTFAT   IF E-O-S                                            ERPRO        953     A     
 ERPRO     CHSC1    BSS    0                                                               ERPRO        954     A     
 ERPRO             SB5       B5+B1                NOT E-O-S,INCR H-COUNT                   ERPRO        955     A     
 ERPRO             SB6       X2                   MOVE H-CHAR FOR E-O-STRING TEST          ERPRO        956     A     
 ERPRO              NE     B6,B4,CHSC0 IF NOT YET HOLL DELIMITER                           ERPRO        957     A     
 ERPRO              SX4    B4-1R"                                                          ERPRO        958          I
          -FCCA402
 ERPRO              SB6    B6-1R*                                                          FCCA402       37     A     
 ERPRO              NZ     B6,CHSC1D   IF DELIMITER NOT AN *                               FCCA402       38     A     
 ERPRO              SB6    B5-1                                                            FCCA402       39     A     
 ERPRO              NZ     B6,CHSC1D   IF COUNT GREATER THEN ONE                           FCCA402       40     A     
 ERPRO              SA4    MORECH                                                          FCCA402       41     A     
 ERPRO              NZ     X4,CHSC1D   IF PREVIOUS 99                                      FCCA402       42     A     
 ERPRO              SX3    37          ERROR NUMBER                                        FCCA402       43     A     
 ERPRO              EQ     HSTFA       FATAL ERROR - NO CHARACTERS IN ASTERISK             FCCA402       44     A     
 ERPRO    *                            DELIMITED HOLLERITH STRING.                         FCCA402       45     A     
 ERPRO                                                                                     FCCA402       46     A     
 ERPRO     CHSC1D   SX4    B4-1R"                                                          FCCA402       47     A     
 ERPRO              NZ     X4,CHSC1A   IF HOLL DELIMITER NOT "                             ERPRO        959     A     
 ERPRO              LOOK   X2                                                              ERPRO        960     A     
 ERPRO              SB6    X2                                                              ERPRO        961     A     
 ERPRO              NE     B6,B4,CHSC1A IF NO "" IN HOLL STRING                            ERPRO        962          I
          -FCCA402
 ERPRO              STEPIN                                                                 ERPRO        963          I
          -FCCA402
 ERPRO              EQ     B6,B4,CHSC1E IF "" IN HOLLERITH STRING                          FCCA402       48     A     
 ERPRO              SB6    B5-1                                                            FCCA402       49     A     
 ERPRO              NZ     B6,CHSC1A   IF COUNT GREATER THEN ONE                           FCCA402       50     A     
 ERPRO              SA4    MORECH                                                          FCCA402       51     A     
 ERPRO              NZ     X4,CHSC1A   IF PREVIOUS 99                                      FCCA402       52     A     
 ERPRO              SX3    37          ERROR NUMBER                                        FCCA402       53     A     
 ERPRO              EQ     HSTFA       FATAL ERROR - NO CHARACTERS IN " DELIMITED          FCCA402       54     A     
 ERPRO    *                            HOLLERITH STRING.                                   FCCA402       55     A     
 ERPRO                                                                                     FCCA402       56     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2016    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO     CHSC1E   STEPIN                                                                 FCCA402       57     A     
 ERPRO              EQ     CHSC0                                                           ERPRO        964     A     
 ERPRO     CHSC1B   SA6    MORECH                                                          ERPRO        965          I
          -FCC0490
 ERPRO     CHSC1B   MX6    10                                                              FCC0490        6     A     
 ERPRO              SA6    MORECH                                                          FCC0490        7     A     
 ERPRO              SX6    B5                                                              ERPRO        966     A     
 ERPRO              SA6    NUMN                                                            ERPRO        967     A     
 ERPRO              PUTCH  X2,X5                                                           ERPRO        968          I
          -FCCA402
 ERPRO              SX6    2R99                                                            ERPRO        969          I
          -FCCA402
 ERPRO              EQ     CHSC2A                                                          ERPRO        970          I
          -FCCA402
 ERPRO              SB5    B0                                                              FCCA402       58     A     
 ERPRO              EQ     CHSCAN      CONTINUE UNTIL ANOTHER CHARACTER IS TO              FCCA402       59     A     
 ERPRO    *                            STORED - THEN PROCESS PREVIOUS 99                   FCCA402       60     A     
 ERPRO     CHSC1A   SX6    B5-B1                                                           ERPRO        971          I
          -FCCA402
 ERPRO     CHSC1A   SA4    MORECH                                                          FCCA402       61     A     
 ERPRO              MX6    0                                                               FCCA402       62     A     
 ERPRO              SA6    A4                                                              FCCA402       63     A     
 ERPRO              ZR     X4,CHSC1C   IF NO PREVIOUS 99 CHARACTERS TO PROCESS             FCCA402       64     A     
 ERPRO              EQ     CHSC04                                                          FCCA402       65     A     
 ERPRO                                                                                     FCCA402       66     A     
 ERPRO     CHSC1C   SX6    B5-B1                                                           FCCA402       67     A     
 ERPRO              SA6    NUMN                                                            ERPRO        972     A     
 ERPRO              SX6    A7                                                              ERPRO        973     A     
 ERPRO              SA6    TTA7                                                            ERPRO        974     A     
 ERPRO              SA7    TX7                                                             ERPRO        975     A     
 ERPRO              SX6    A1                                                              ERPRO        976     A     
 ERPRO              SA6    TA1                                                             ERPRO        977     A     
 ERPRO              SX7    B2                                                              ERPRO        978     A     
 ERPRO              SA7    TB2                                                             ERPRO        979     A     
 ERPRO              SX6    B3                                                              ERPRO        980     A     
 ERPRO              SX7    B4                                                              ERPRO        981     A     
 ERPRO              SA6    TB3                                                             ERPRO        982     A     
 ERPRO              SA7    TB4                                                             ERPRO        983     A     
 ERPRO              SX1    B5-B1                                                           ERPRO        984     A     
 ERPRO              RJ     =XCDD                                                           ERPRO        985     A     
 ERPRO              SA2    TA1                                                             ERPRO        986     A     
 ERPRO              SA3    TB2                                                             ERPRO        987     A     
 ERPRO              SA1    X2                                                              ERPRO        988     A     
 ERPRO              SB2    X3                                                              ERPRO        989     A     
 ERPRO              SA4    TTA7                                                            ERPRO        990     A     
 ERPRO              SA5    X4                                                              ERPRO        991     A     
 ERPRO              BX7    X5                                                              ERPRO        992     A     
 ERPRO              SA2    TB3                                                             ERPRO        993     A     
 ERPRO              SA7    X4                                                              ERPRO        994     A     
 ERPRO              SB3    X2                                                              ERPRO        995     A     
 ERPRO              SA3    TB4                                                             ERPRO        996     A     
 ERPRO              SB4    X3                                                              ERPRO        997     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2017    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO              SA5    TX7                                                             ERPRO        998     A     
 ERPRO              BX7    X5                                                              ERPRO        999     A     
 ERPRO     CHSC2A   SA3    TB7                                                             ERPRO       1000     A     
 ERPRO              SA2    TA7                                                             ERPRO       1001     A     
 ERPRO              SB5    X3          SAVED B7 IN B5                                      ERPRO       1002     A     
 ERPRO              SB5    B5-6                                                            ERPRO       1003     A     
 ERPRO              MX5    60-12                                                           ERPRO       1004     A     
 ERPRO              BX4    -X5*X6                                                          ERPRO       1005     A     
 ERPRO              SA2    X2          SAVED A7 IN A2                                      ERPRO       1006     A     
 ERPRO              LX3    B5,X4                                                           ERPRO       1007     A     
 ERPRO              BX6    X2+X3       END OF SAVED OUTPUT WORD FILLED                     ERPRO       1008     A     
 ERPRO              SA6    A2                                                              ERPRO       1009     A     
 ERPRO              SB4    A7-B1                                                           ERPRO       1010     A     
 ERPRO              SX6    A2-B4                                                           ERPRO       1011     A     
 ERPRO              NZ     X6,CHSC2B                                                       ERPRO       1012     A     
 ERPRO              BX7    X7+X3                                                           ERPRO       1013     A     
 ERPRO     CHSC2B   PL     B5,CHSC3    IF 4 BYTES WERE FREE IN OUTPUT WORD                 ERPRO       1014     A     
 ERPRO              LX4    54                                                              ERPRO       1015     A     
 ERPRO              BX3    X5*X4                                                           ERPRO       1016     A     
 ERPRO              SA2    A2-B1                                                           ERPRO       1017     A     
 ERPRO              BX6    X2+X3                                                           ERPRO       1018     A     
 ERPRO              SA6    A2          DIGITS SAVED ON NEXT OUTPUT WORD                    ERPRO       1019     A     
 ERPRO              SX5    A2-B4                                                           ERPRO       1020     A     
 ERPRO              NZ     X5,CHSC3                                                        ERPRO       1021     A     
 ERPRO              BX7    X7+X3                                                           ERPRO       1022     A     
 ERPRO     CHSC3    BX3    X3-X3                                                           ERPRO       1023     A     
 ERPRO             SB4       HSREST               FLDCHEK(0) TO CHECK FOR VALID            ERPRO       1024     A     
 ERPRO             ZR        FLDCHEK              FIELD LENGTH + INCR RECORD COUNT         ERPRO       1025     A     
 ERPRO     HSREST   SA3    MORECH                                                          ERPRO       1026     A     
 ERPRO              MX6    0                                                               ERPRO       1027     A     
 ERPRO              SA6    A3                                                              ERPRO       1028     A     
 ERPRO              NZ     X3,BHSCAN                                                       ERPRO       1029     A     
 ERPRO              SA4    HSTB4                                                           ERPRO       1030     A     
 ERPRO             SB4       X4                   RETURN POINT                             ERPRO       1031     A     
 ERPRO             JP        B4        RETURN TO CALLING PROGRAM                           ERPRO       1032     A     
 ERPRO    HSTFAT   SX3       39                                                            ERPRO       1033     A     
 ERPRO             SX6       B1                                                            ERPRO       1034          I
          -FCCA402
 ERPRO     HSTFA    SX6    B1                                                              FCCA402       68     A     
 ERPRO             SA6       STRING                                                        ERPRO       1035     A     
 ERPRO             ZR        FERROR                                                        ERPRO       1036     A     
 ERPRO              TITLE     SLASH                                                        ERPRO       1037     A     
 ERPRO              ENTRY     SLASH                                                        ERPRO       1038     A     
 ERPRO    SLASH     SX6       B4                  ROUTINE SAVES RETURN POINT               ERPRO       1039     A     
 ERPRO              SA6       SLAB4               IN LOC SLASH                             ERPRO       1040     A     
 ERPRO              NZ        X3,SLDRTN           IF ENTRY IS SLASH(0)                     ERPRO       1041     A     
 ERPRO              SB4       SLDRTN              CALL DELCOM                              ERPRO       1042     A     
 ERPRO              ZR        DELCOM              AND DELETE REDUNDANT COMMA               ERPRO       1043     A     
 ERPRO    SLDRTN    SB4       SLFRTN              FOR ALL ENTRIES                          ERPRO       1044     A     
 ERPRO              SX3       B0                  CALL RECCHEK(0) FOR CHECK OF             ERPRO       1045     A     
 ERPRO              ZR        RECCHEK             VALID RECORD LENGTH                      ERPRO       1046     A     
 ERPRO    SLFRTN    SA4       LEVEL               RETRIEVE PUSHDOWN WORD ENTRY             ERPRO       1047     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2018    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO              SA4       X4+PUSHDOWN         FOR LEVEL                                ERPRO       1048     A     
 ERPRO              MX3       60-18               CREATE MASK                              ERPRO       1049     A     
 ERPRO              SA5       SLAB4               FETCH RETURN POINT                       ERPRO       1050     A     
 ERPRO              SB4       X5                  TO RETURN REGISTER                       ERPRO       1051     A     
 ERPRO              LX3       18                  POSITION MASK W NO NL                    ERPRO       1052     A     
 ERPRO              BX6       X3*X4               MASK OUT NL                              ERPRO       1053     A     
 ERPRO              MX3       1                   CREATE SLASH BIT                         ERPRO       1054     A     
 ERPRO              BX6       X3+X6               TURN ON SLASH BIT                        ERPRO       1055     A     
 ERPRO              SA6       A4                  STORE MODIFIED PUSH-WORD                 ERPRO       1056     A     
 ERPRO              IX6       X6-X6               ZERO OUT                                 ERPRO       1057     A     
 ERPRO              SA6       COLCNT              COLCNT                                   ERPRO       1058     A     
 ERPRO             JP        B4        RETURN TO CALLING PROGRAM                           ERPRO       1059     A     
 ERPRO              TITLE     RECCHEK                                                      ERPRO       1060     A     
 ERPRO              ENTRY     RECCHEK                                                      ERPRO       1061     A     
 ERPRO    RECCHEK   SX6       B4                  ROUTINE SAVES RETURN POINT               ERPRO       1062     A     
 ERPRO              SA6       RECB4               IN LOC RECB4                             ERPRO       1063     A     
 ERPRO              BX6       X3                                                           ERPRO       1064     A     
 ERPRO              SA6       RECX3               IN LOC RECX3                             ERPRO       1065     A     
 ERPRO              SA4       COLCNT              FETCH CURRENT COLUMN COUNT               ERPRO       1066     A     
 ERPRO              SX5       X4-MINMAX-1         IF LESS THAN INSIDE MAX                  ERPRO       1067     A     
 ERPRO              MI        X5,RERRTN           GO TO RERRTN                             ERPRO       1068     A     
 ERPRO              SB4       RERRTN              ELSE, SET RETURN FLAG                    ERPRO       1069     A     
 ERPRO              SX3       12                                                           ERPRO       1070     A     
 ERPRO              AX5    17                                                              ERPRO       1071     A     
 ERPRO              ZR     X5,IERROR   IF REC LENGTH IS NOT MORE THAN 17 BITS              ERPRO       1072     A     
 ERPRO              SX3       47                                                           ERPRO       1073     A     
 ERPRO              ZR        FERROR              ELSE, PRODUCE A FATAL ERROR              ERPRO       1074     A     
 ERPRO    RERRTN    SA4       RECX3               FETCH INPUT PARAMETER                    ERPRO       1075     A     
 ERPRO              ZR        X4,REREST           IF (0) ENTRY -GO TO RESTORE CODE         ERPRO       1076     A     
 ERPRO              MI        X4,FINISH           (-1) ENTRY -GO TO EXIT CODE              ERPRO       1077     A     
 ERPRO              SA4       NUMN                (1)-T-ENTRY                              ERPRO       1078     A     
 ERPRO             SX6       X4-1                                                          ERPRO       1079     A     
 ERPRO             SA6       A4                                                            ERPRO       1080     A     
 ERPRO              SX5       X4-MINMAX-1         IF TAB SETTING LT INSIDE MAX             ERPRO       1081     A     
 ERPRO              MI        X5,RTENTN           GO TO RTENTN                             ERPRO       1082     A     
 ERPRO              SB4       RTERTN              ELSE SET RETURN POINT                    ERPRO       1083     A     
 ERPRO              SX3       17                                                           ERPRO       1084     A     
 ERPRO              AX5    17                                                              ERPRO       1085     A     
 ERPRO              ZR     X5,IERROR   IF TAB SET IS NOT MORE THAN 17 BITS                 ERPRO       1086     A     
 ERPRO              SX3       48                                                           ERPRO       1087     A     
 ERPRO             ZR        FERROR               ELSE PRODUCE FATAL ERROR                 ERPRO       1088     A     
 ERPRO    RTERTN    SX6       B1                  ERROR RETURN POINT.COLCNT=1              ERPRO       1089     A     
 ERPRO              ZR        RSTCCT              GO STORE PT                              ERPRO       1090     A     
 ERPRO    RTENTN    SA4       NUMN                FETCH NUMN FOR COLCNT                    ERPRO       1091     A     
 ERPRO              BX6       X4                                                           ERPRO       1092     A     
 ERPRO    RSTCCT    SA6       COLCNT              RESET COLCNT                             ERPRO       1093     A     
 ERPRO              SA4       LEVEL               FETCH PUSHDOWN(LEVEL)-WORD               ERPRO       1094     A     
 ERPRO              SA5       X4+PUSHDOWN         FOR INDICATOR TEST                       ERPRO       1095     A     
 ERPRO              MX4       60-18               FORM MASK                                ERPRO       1096     A     
 ERPRO              LX4    18                POSITION MASK                                 ERPRO       1097     A     
 ERPRO              BX6    X4*X5             CLEAR NL FIELD                                ERPRO       1098     A     
 ERPRO              MX5    1                                                               ERPRO       1099     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2019    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO              BX6    X5+X6             OR IN COLCNT                                  ERPRO       1100     A     
 ERPRO              SA6       A5                  STORE IN ADDR PUSHDOWN(LEVEL)            ERPRO       1101     A     
 ERPRO    REREST    SA4       RECB4               RESTORE                                  ERPRO       1102     A     
 ERPRO              SB4       X4                  RETURN POINT                             ERPRO       1103     A     
 ERPRO              SA3       RECX3               AND INPUT PARAMETER                      ERPRO       1104     A     
 ERPRO              JP        B4       RETURN TO CALLING PROGRAM                           ERPRO       1105     A     
 ERPRO             TITLE     LEFTPAR                                                       ERPRO       1106     A     
 ERPRO             ENTRY     LEFTPAR                                                       ERPRO       1107     A     
 ERPRO    LEFTPAR  SA4       LEVEL                PUSHDOWN WORD FOR LAST LEVEL             ERPRO       1108     A     
 ERPRO             SX5       X4-LEVMAX            SUBTRACT MAXLEVEL                        ERPRO       1109     A     
 ERPRO             PL        X5,LEVERR            IF INVALID LEVEL PROCESS ERROR           ERPRO       1110     A     
 ERPRO             SX6       X4+B1                INCREMENT TO CURRENT LEVEL               ERPRO       1111     A     
 ERPRO             SA6       A4                   VALID LEVEL,STORE IN COUNTER             ERPRO       1112     A     
 ERPRO             SA5       X6+PUSHDOWN          FETCH PUSHDOWN WORD                      ERPRO       1113     A     
 ERPRO             SA4       NUMN                 FETCH NUMN,TO SET=GP(LEVEL)              ERPRO       1114     A     
 ERPRO              PL     X4,LEFT1    IF = WAS NOT REPT COUNT                             ERPRO       1115     A     
 ERPRO              SX4    1                                                               ERPRO       1116     A     
 ERPRO     LEFT1    BSS    0                                                               ERPRO       1117     A     
 ERPRO             LX4       60-6-18              SHIFT NUMN INTO POSITION                 ERPRO       1118     A     
 ERPRO             IX6       X5+X4                ADD NUMN TO P(WORD)                      ERPRO       1119     A     
 ERPRO             SA6       A5                   STORE IN PUSHDOWN(LEVEL)                 ERPRO       1120     A     
 ERPRO             JP        B4        RETURN TO CALLING PROGRAM                           ERPRO       1121     A     
 ERPRO    LEVERR    SX3    42                ERROR-MAX PAREN LEVEL EXCEEDED                ERPRO       1122     A     
 ERPRO             ZR        FERROR               FATAL ERROR                              ERPRO       1123     A     
 ERPRO             TITLE     RITEPAR                                                       ERPRO       1124     A     
 ERPRO             ENTRY     RITEPAR                                                       ERPRO       1125     A     
 ERPRO    RITEPAR  SX6       B4                   ROUTINE SAVES RETURN POINT               ERPRO       1126     A     
 ERPRO             SA6       RITEB4               IN RITEB4                                ERPRO       1127     A     
 ERPRO             SB5       X3                   MOVES INPUT PARAM TO TEST REG            ERPRO       1128     A     
 ERPRO             NE        B5,B0,LEVTEST        IF INPUT PARAM =0,                       ERPRO       1129     A     
 ERPRO             SB4       LEVTEST              DELETE PREV COMMA                        ERPRO       1130     A     
 ERPRO             ZR        DELCOM               BY CALL TO DELCOM                        ERPRO       1131     A     
 ERPRO    LEVTEST  SA4       LEVEL                FETCH LEVEL                              ERPRO       1132     A     
 ERPRO             SX3       -B1                  IF LEVEL=0, GO TO END PROCESSING         ERPRO       1133     A     
 ERPRO             ZR        X4,RECCHEK           IN RECCHEK                               ERPRO       1134     A     
 ERPRO             SA5       X4+PUSHDOWN          LEVEL NE 0  FETCH PUSHDOWN WORD          ERPRO       1135     A     
 ERPRO             LX5       24                   SHIFT WORD SO GP IS RTMOST 18-BI         ERPRO       1136     A     
 ERPRO             SX4       X5                   SAVE GP(LEVEL) FOR TESTS                 ERPRO       1137     A     
 ERPRO              SX3    43                                                              ERPRO       1138     A     
 ERPRO              ZR     X4,FERROR   IF REPEAT COUNT IS ZERO                             ERPRO       1139     A     
 ERPRO             LX5       60-24                SHIFT P-WORD BACK TO NORMAL POSN         ERPRO       1140     A     
 ERPRO             SB4       X4                   MOVE GP(LEVEL) TO TEST REGISTER          ERPRO       1141     A     
 ERPRO             PL        X5,SLOFF             SL(LEVEL) OFF,GO TO SLOFF CODE           ERPRO       1142     A     
 ERPRO             EQ        B4,B1,LEVDECR        GP=1, GO TO LEVDECR CODE                 ERPRO       1143     A     
 ERPRO             SA3       COLCNT               FETCH CURRENT COLCNT                     ERPRO       1144     A     
 ERPRO             BX6       X3                   MOVE COLCNT TO OUTPUT REG                ERPRO       1145     A     
 ERPRO             SX4       X5                   MOVE N1 FOR ADD TO COLCNT                ERPRO       1146     A     
 ERPRO             SA6       COLTEMP              FOR STORAGE IN TEMP-SAVE                 ERPRO       1147     A     
 ERPRO             IX6       X3+X4                ADD N1 +COLCNT                           ERPRO       1148     A     
 ERPRO             BX3       X3-X3                SET CALLING PARAM + RETURN POINT         ERPRO       1149     A     
 ERPRO             SA6       COLCNT               STORE IN COLCNT                          ERPRO       1150     A     
 ERPRO             SB4       RIRERTN              FOR CALL TO RECCHEK(0) TO CHECK          ERPRO       1151     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2020    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO             ZR        RECCHEK              FOR VALID RECORD LENGTH                  ERPRO       1152     A     
 ERPRO    RIRERTN  SA4       COLTEMP              FETCH OLD COLCNT                         ERPRO       1153     A     
 ERPRO             BX6       X4                   AND RESTORE VALUE                        ERPRO       1154     A     
 ERPRO             SA6       COLCNT               IN COLCNT WORD                           ERPRO       1155     A     
 ERPRO                                                                                     ERPRO       1156     A     
 ERPRO     LEVDECR  SA3       LEVEL                                                        ERPRO       1157     A     
 ERPRO              SX6       X3-1                                                         ERPRO       1158     A     
 ERPRO              SA4       X3+PUSHDOWN          PD(LEVEL)                               ERPRO       1159     A     
 ERPRO              SA5       A4-B1                PD(LEVEL-1)                             ERPRO       1160     A     
 ERPRO              SA6       A3                   DECREMENT LEVEL                         ERPRO       1161     A     
 ERPRO              MX3       42                                                           ERPRO       1162     A     
 ERPRO              BX6       X6-X6                                                        ERPRO       1163     A     
 ERPRO              LX3       18                                                           ERPRO       1164     A     
 ERPRO              SA6       A4                   CLEAR PD(LEVEL)                         ERPRO       1165     A     
 ERPRO              BX6       X3*X5                                                        ERPRO       1166     A     
 ERPRO              AX5       60                   EXTEND SLASH(LEVEL-1) BIT               ERPRO       1167     A     
 ERPRO              NO                                                                     ERPRO       1168     A     
 ERPRO              BX3       -X3*X4                                                       ERPRO       1169     A     
 ERPRO              BX4       -X5*X4               PD(LEVEL) IF SLASH(LEVEL-1) OFF         ERPRO       1170     A     
 ERPRO              IX5       X6+X3                NL(LEVEL) REPLACES NL(LEVEL-1)          ERPRO       1171     A     
 ERPRO              MX3       1+18                                                         ERPRO       1172     A     
 ERPRO              NO                                                                     ERPRO       1173     A     
 ERPRO              LX3       18                                                           ERPRO       1174     A     
 ERPRO              BX4       X3*X4                KEEP SLASH(LEVEL) AND N1(LEVEL)         ERPRO       1175     A     
 ERPRO              EQ        RPEND                                                        ERPRO       1176     A     
 ERPRO                                                                                     ERPRO       1177     A     
 ERPRO    SLOFF    PX4       X4                   PACK GP FOR INTEGER MULTIPLY             ERPRO       1178     A     
 ERPRO             SX3       X5                   ISOLATE N1(LEVEL)                        ERPRO       1179     A     
 ERPRO             PX3       X3                   PACK N1 FOR INTEGER MULTIPLY             ERPRO       1180     A     
 ERPRO             DX4       X4*X3                INT MPY GP(LEVEL)*N1(LEVEL)              ERPRO       1181     A     
 ERPRO             SX4       X4                   STRIP OFF EXPONENT                       ERPRO       1182     A     
 ERPRO             SA3       LEVEL                FETCH LEVEL                              ERPRO       1183     A     
 ERPRO             BX6       X6-X6                CREATE ZERO WORD                         ERPRO       1184     A     
 ERPRO             SA6       X3+PUSHDOWN          ZERO OUT OLD LEVEL                       ERPRO       1185     A     
 ERPRO             SX6       X3-1                 DECREASE LEVEL BY 1                      ERPRO       1186     A     
 ERPRO             SA6       LEVEL                AND STORE BACK IN LEVEL-WORD             ERPRO       1187     A     
 ERPRO             SA5       X6+PUSHDOWN          FETCH P-WORD FOR NEW LEVEL               ERPRO       1188     A     
 ERPRO              PL        X5,RPEND             IF SLASH(LEVEL-1) BIT OFF               ERPRO       1189     A     
 ERPRO              LX4       18                   MOVE TOTAL WIDTH TO NL FIELD            ERPRO       1190     A     
 ERPRO                                                                                     ERPRO       1191     A     
 ERPRO     RPEND    IX6       X4+X5                UPDATE PD(LEVEL-1)                      ERPRO       1192     A     
 ERPRO              SA6       A5                                                           ERPRO       1193     A     
 ERPRO              SA4       RITEB4               CALLER-S RETURN ADDRESS                 ERPRO       1194     A     
 ERPRO              PL        X6,RPEND2            IF SLASH(LEVEL-1) BIT OFF               ERPRO       1195     A     
 ERPRO              LX6       60-18                NL(LEVEL-1) TO BITS 17-0                ERPRO       1196     A     
 ERPRO                                                                                     ERPRO       1197     A     
 ERPRO     RPEND2   SX6       X6                   ISOLATE N1/NL FIELD                     ERPRO       1198     A     
 ERPRO              SB4       X4                                                           ERPRO       1199     A     
 ERPRO              SA6       COLCNT               UPDATE CURRENT RECORD LENGTH            ERPRO       1200     A     
 ERPRO              JP        B4                   RETURN TO CALLER                        ERPRO       1201     A     
 ERPRO             TITLE     ERROR                                                         ERPRO       1202     A     
 ERPRO             ENTRY     UERROR                                                        ERPRO       1203     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2021    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO     UERROR   SA5    =XANSI                                                          ERPRO       1204     A     
 ERPRO              SB5    ASAER                                                           ERPRO       1205     A     
 ERPRO              NZ     X5,ERROR    IF FLAG IS ON                                       ERPRO       1206     A     
 ERPRO             JP        B4                   FLAG OFF  RETURN TO CONT PROCESS         ERPRO       1207     A     
 ERPRO             ENTRY     IERROR                                                        ERPRO       1208     A     
 ERPRO    IERROR   SB5       ERPROI               INFORMATIVE ERROR ENTRY                  ERPRO       1209     A     
 ERPRO             ZR        X2,FERROR                                                     ERPRO       1210     A     
 ERPRO             ZR        ERROR                                                         ERPRO       1211     A     
 ERPRO             ENTRY     FERROR                                                        ERPRO       1212     A     
 ERPRO     NORPAR   SX3    41                                                              ERPRO       1213     A     
 ERPRO              ZR     ERROR                                                           ERPRO       1214     A     
 ERPRO    FERROR   SB5       ERPRO                FATAL ERROR ENTRY                        ERPRO       1215     A     
 ERPRO             SX6       B1                                                            ERPRO       1216     A     
 ERPRO              BX4    X4-X4                                                           ERPRO       1217     A     
 ERPRO             SA6       FE                                                            ERPRO       1218     A     
 ERPRO              SB4    FINISH      SCANNING STOPS FOR THIS FORMAT                      ERPRO       1219     A     
 ERPRO              NZ     X2,ERROR    NOT AT END OF STMT                                  ERPRO       1220     A     
 ERPRO              SA2    COL                                                             ERPRO       1221     A     
 ERPRO             SX6       X2-1                                                          ERPRO       1222     A     
 ERPRO             SA6       A2                                                            ERPRO       1223     A     
 ERPRO              SA5    STRING                                                          ERPRO       1224     A     
 ERPRO              ZR     X5,NORPAR   IF NO RIGHT PARENS                                  ERPRO       1225     A     
 ERPRO             BX6       X6-X6                                                         ERPRO       1226     A     
 ERPRO              SA6    A5                                                              ERPRO       1227     A     
 ERPRO    ERROR    SX6       A7                   TEMP SAVE AREA:                          ERPRO       1228     A     
 ERPRO             SA6       TA7                                 X7  OUT WORD              ERPRO       1229     A     
 ERPRO             SX6       B7                                                            ERPRO       1230     A     
 ERPRO             SA7       TX7                                                           ERPRO       1231     A     
 ERPRO             SA6       TB7                                 B7  SHIFT OUT             ERPRO       1232     A     
 ERPRO             SX7       B4                                                            ERPRO       1233     A     
 ERPRO             SA7       TB4                                 B4  RETURN POINT          ERPRO       1234     A     
 ERPRO             SX6       B3                                                            ERPRO       1235     A     
 ERPRO             SA6       TB3                                 B3  NODE ADDRESS          ERPRO       1236     A     
 ERPRO             BX7       X2                                                            ERPRO       1237     A     
 ERPRO             SX6       B2                                                            ERPRO       1238     A     
 ERPRO             SA7       TX2                                 X2  CHARACTER             ERPRO       1239     A     
 ERPRO             SA6       TB2                                 B2                        ERPRO       1240     A     
 ERPRO             BX7       X4                                                            ERPRO       1241     A     
 ERPRO             SA7       TX4                                                           ERPRO       1242     A     
 ERPRO             SX7       A1                                                            ERPRO       1243     A     
 ERPRO             SA7       TA1                                 X1  IN WORD               ERPRO       1244     A     
 ERPRO             SB6       X3+LASTERR           CALCULATE ERROR NUMBER                   ERPRO       1245     A     
 ERPRO             SX2       A1                   COMPUTE CURRENT COLUMN POINTER N         ERPRO       1246     A     
 ERPRO             SA3       SELIST                                                        ERPRO       1247     A     
 ERPRO             IX5       X3-X2                FWAFORMAT-(A1)                           ERPRO       1248     A     
 ERPRO             LX3       X5,B1                X5*2                                     ERPRO       1249     A     
 ERPRO             LX5       3                    X5*8                                     ERPRO       1250     A     
 ERPRO             SX4       6                                                             ERPRO       1251     A     
 ERPRO             IX5       X5+X3                X5*10                                    ERPRO       1252     A     
 ERPRO             SB3       60                                                            ERPRO       1253     A     
 ERPRO             SX3       B3-B2                60-(B2)                                  ERPRO       1254     A     
 ERPRO             PX3       X3                                                            ERPRO       1255     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2022    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO             PX4       X4                                                            ERPRO       1256     A     
 ERPRO             NX4       X4                                                            ERPRO       1257     A     
 ERPRO             FX4       X3/X4                                                         ERPRO       1258     A     
 ERPRO             UX4       X4,B7                                                         ERPRO       1259     A     
 ERPRO             LX4       X4,B7                60-(B2)/6                                ERPRO       1260     A     
 ERPRO             IX5       X5+X4                N=(FWA-(A1))*10+(60-(B2))/6=(X5)         ERPRO       1261     A     
 ERPRO             SA4       COL                  FETCH COL                                ERPRO       1262     A     
 ERPRO             SX1       X4-2                 COL - 2                                  ERPRO       1263     A     
 ERPRO             IX1       X1+X5                COL-1+N                                  ERPRO       1264     A     
 ERPRO             SX2       66                   COMPUTE WORD ERROR IS IN                 ERPRO       1265     A     
 ERPRO             PX1       X1                                                            ERPRO       1266     A     
 ERPRO             PX2       X2                                                            ERPRO       1267     A     
 ERPRO             NX2       X2                                                            ERPRO       1268     A     
 ERPRO             FX2       X1/X2                                                         ERPRO       1269     A     
 ERPRO             UX2       X2,B7                                                         ERPRO       1270     A     
 ERPRO             LX2       X2,B7                WD=(COL-1+N)/66 = (X2)                   ERPRO       1271     A     
 ERPRO             SA3       CD                   FETCH CD                                 ERPRO       1272     A     
 ERPRO             IX3       X3+X2                CDNO=(CD)+WD = (X3)                      ERPRO       1273     A     
 ERPRO             IX1       X4+X5                COL+N                                    ERPRO       1274     A     
 ERPRO             SX0       66                                                            ERPRO       1275     A     
 ERPRO             PX0       X0                                                            ERPRO       1276     A     
 ERPRO             PX2       X2                   P(WD)                                    ERPRO       1277     A     
 ERPRO             DX5       X0*X2                66*WD                                    ERPRO       1278     A     
 ERPRO             SX5       X5                                                            ERPRO       1279     A     
 ERPRO             SX1       X1+5                 COLNO=COL+N+5                            ERPRO       1280     A     
 ERPRO             IX1       X1-X5                COLNO=COL+N+5-(66*WD)                    ERPRO       1281     A     
 ERPRO             PX1       X1                                                            ERPRO       1282     A     
 ERPRO             SX0       10                                                            ERPRO       1283     A     
 ERPRO             SA2       TENMU                                                         ERPRO       1284     A     
 ERPRO             PX0       X0                                                            ERPRO       1285     A     
 ERPRO             BX5       X3                                                            ERPRO       1286     A     
 ERPRO             SB4       B1+B1                                                         ERPRO       1287     A     
 ERPRO             IX6       X6-X6                                                         ERPRO       1288     A     
 ERPRO             SB2       COLSTOR                                                       ERPRO       1289     A     
 ERPRO    CDLOOP   DX3       X1*X2                T1 IN X3 = N * TENMU (L)                 ERPRO       1290     A     
 ERPRO             FX1       X1*X2                T2 IN X1 = N * TENMU (U)                 ERPRO       1291     A     
 ERPRO             FX3       X0*X3                DIGIT = T1 * P(10)                       ERPRO       1292     A     
 ERPRO             SX3       X3                   ELIMINATE EXPONENT                       ERPRO       1293     A     
 ERPRO             BX6       X6+X3                APPEND DIGIT TO STRING                   ERPRO       1294     A     
 ERPRO             LX6       54                   LEFT JUSTIFY DIGIT STRING                ERPRO       1295     A     
 ERPRO             SB4       B4-B1                REDUCE  DIGIT COUNT                      ERPRO       1296     A     
 ERPRO             NZ        B4,CDLOOP                                                     ERPRO       1297     A     
 ERPRO             JP        B2                   RETURN TO PROCESSING                     ERPRO       1298     A     
 ERPRO    COLSTOR  SX7       2R00                 SAVE L-JUSTIFIED COLUMN COUNT            ERPRO       1299     A     
 ERPRO             LX7       60-12                                                         ERPRO       1300     A     
 ERPRO             IX7       X7+X6                                                         ERPRO       1301     A     
 ERPRO             LX7       48                                                            ERPRO       1302     A     
 ERPRO             SB4       4                    SET B4 FOR CARD COUNT                    ERPRO       1303     A     
 ERPRO             IX6       X6-X6                CLEAR TEMP COUNT-SAVE AREA               ERPRO       1304     A     
 ERPRO             PX1       X5                   FETCH BINARY CARD COUNT                  ERPRO       1305     A     
 ERPRO             SB2       CDSTOR               SET RETURN POINT                         ERPRO       1306     A     
 ERPRO             ZR        CDLOOP               GO TO DC CONVERT LOOP                    ERPRO       1307     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2023    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO    CDSTOR   SA3       =6RCD0000            CREATE DISPLAY CODE FOR CD               ERPRO       1308     A     
 ERPRO             SB2       B0                   INITIAL SHIFT COUNT                      ERPRO       1309     A     
 ERPRO    LZLOOP   BX1       X6                   SHIFT DIGITS INTO TEMP LOC               ERPRO       1310     A     
 ERPRO             LX1       X1,B2                LEFT JUSTIFY CURRENT DIGIT               ERPRO       1311     A     
 ERPRO             AX1       54                   RIGHT JUSTIFY AND ISOLATE                ERPRO       1312     A     
 ERPRO             NZ        X1,OKNZ              NONZERO DIGIT. JUMP OUT OF LOOP.         ERPRO       1313     A     
 ERPRO             SB2       B2+6                 INCREMENT SHIFT COUNT                    ERPRO       1314     A     
 ERPRO             ZR        LZLOOP               CONTINUE LOOPING                         ERPRO       1315     A     
 ERPRO    OKNZ     LX6       X6,B2                REMOVE ZERO DIGITS FROM STRING           ERPRO       1316     A     
 ERPRO             SB4       B2+36                CALCULATE SHIFT COUNT                    ERPRO       1317     A     
 ERPRO             AX6       X6,B4                RIGHT JUSTIFY NON-ZERO DIGITS            ERPRO       1318     A     
 ERPRO             ZR        B2,MERGE             FOUR DIGITS. GO TO MERGE CODE.           ERPRO       1319     A     
 ERPRO             SX4       1R -1R0              CREATE BLANK FILL CHARACTER              ERPRO       1320     A     
 ERPRO             LX4       18                   SHIFT INTO MERGE POSITION                ERPRO       1321     A     
 ERPRO    BLOOP    IX3       X3+X4                MERGE BLANK INTO NUMBER                  ERPRO       1322     A     
 ERPRO             SB2       B2-6                 DECREMENT SHIFT COUNT                    ERPRO       1323     A     
 ERPRO             ZR        B2,MERGE             ALL DIGITS TREATED- MERGE                ERPRO       1324     A     
 ERPRO             SX4       1R                                                            ERPRO       1325     A     
 ERPRO             AX3       6                    SHIFT FILL CHARS FOR NEXT ADDN           ERPRO       1326     A     
 ERPRO             LX4       5*6                                                           ERPRO       1327     A     
 ERPRO             ZR        BLOOP                CONTINUE BLANK FILL LOOP                 ERPRO       1328     A     
 ERPRO    MERGE    IX6       X6+X3                MERGE CD+FILL+ CDNO                      ERPRO       1329     A     
 ERPRO             BX3       X6+X7                MERGE COLNO+CD+FILL+CDNO                 ERPRO       1330     A     
 ERPRO             IX4       X4-X4                SET X4 FOR DISPLAY CODE MESSAGE          ERPRO       1331     A     
 ERPRO             SB7       ERESTOR              SET RETURN POINT                         ERPRO       1332     A     
 ERPRO             JP        B5                   GO TO APPROPRIATE ERROR ENTRY            ERPRO       1333     A     
 ERPRO    ERESTOR  SA0       MASKS                                                         ERPRO       1334     A     
 ERPRO             SB1       1                                     B1=1                    ERPRO       1335     A     
 ERPRO             MX0       60-6                                  X0                      ERPRO       1336     A     
 ERPRO             SA2       TA1                                   A1                      ERPRO       1337     A     
 ERPRO             SA1       X2                                    X1                      ERPRO       1338     A     
 ERPRO             SA2       TX2                                   X2                      ERPRO       1339     A     
 ERPRO             SA3       TB2                                   B2                      ERPRO       1340     A     
 ERPRO             SB2       X3                                                            ERPRO       1341     A     
 ERPRO             SA3       TB3                                   B3                      ERPRO       1342     A     
 ERPRO             SB3       X3                                                            ERPRO       1343     A     
 ERPRO             SA4       TB4                                   B4                      ERPRO       1344     A     
 ERPRO             SA5       TB7                                   B7                      ERPRO       1345     A     
 ERPRO             SB4       X4                                                            ERPRO       1346     A     
 ERPRO             SB7       X5                                                            ERPRO       1347     A     
 ERPRO             SA4       TA7                                                           ERPRO       1348     A     
 ERPRO             SA5       X4                                                            ERPRO       1349     A     
 ERPRO             BX7       X5                                    X7                      ERPRO       1350     A     
 ERPRO             SA7       X4                                    A7                      ERPRO       1351     A     
 ERPRO             SA4       TX4                                                           ERPRO       1352     A     
 ERPRO             SA5       TX7                                                           ERPRO       1353     A     
 ERPRO             BX7       X5                                                            ERPRO       1354     A     
 ERPRO             SX3       B6                                                            ERPRO       1355     A     
 ERPRO             JP        B4        RETURN TO CALLING PROGRAM                           ERPRO       1356     A     
 ERPRO             TITLE     FORMAT PACKING PROCESSOR                                      ERPRO       1357     A     
 ERPRO             ENTRY     FINISH                                                        ERPRO       1358     A     
 ERPRO    FINISH   PL        X4,FORMOUT           IF ABNORMAL EXIT, DONT PROCESS           ERPRO       1359     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2024    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO             MX0       6                    CREATE 1 CHARACTER MASK                  ERPRO       1360     A     
 ERPRO             AX0       X0,B2                EXTEND MASK TO NO.CHARS REMAIN.          ERPRO       1361     A     
 ERPRO             LX0       6                    EXTEND SHIFT CT TO POSN MASK             ERPRO       1362     A     
 ERPRO             LX0       X0,B2                POSITION MASK OVER REMAIN CHARS.         ERPRO       1363     A     
 ERPRO             ZR        X1,PACKPAR                                                    ERPRO       1364     A     
 ERPRO             BX1       X0*X1                IN X1 CREATE ZEROES+REMAIN CHARS         ERPRO       1365     A     
 ERPRO             SA2       BLANK                FETCH BLANKS FOR MASKING CHARS           ERPRO       1366     A     
 ERPRO             BX3       -X0*X2               MASK BLANKS IN GOOD CHARS                ERPRO       1367     A     
 ERPRO             IX1       X1+X3                ADD LEADING BLANKS TO LAST WORD          ERPRO       1368     A     
 ERPRO    LOOPZ    BX4       X1-X2                SUBTRACT WORD OF BLANKS                  ERPRO       1369     A     
 ERPRO             NZ        X4,GARBAG            EXTRANEOUS CHARS AT END OF FORMT         ERPRO       1370     A     
 ERPRO             SB2       54                                                            ERPRO       1371     A     
 ERPRO             SA1       A1-B1                NO, FETCH NEXT WORD                      ERPRO       1372     A     
 ERPRO             NZ        X1,LOOPZ             NOT ZERO-WORD. CONTINUE SEARCH           ERPRO       1373     A     
 ERPRO    PACKPAR  SA5       FE                   FETCH FATAL-TO-EXECUTION FLAG            ERPRO       1374     A     
 ERPRO             NZ        X5,FORMOUT           IF E FE DONT OUTPUT COMPASS IMAG         ERPRO       1375     A     
 ERPRO             SA2       BLANK                                                         ERPRO       1376     A     
 ERPRO             SA3       SAVECHAR             FETCH LAST GOOD CHARACTER.               ERPRO       1377     A     
 ERPRO             LX3       X3,B7                POSN CHARACTER FOR OUTPUT WORD           ERPRO       1378     A     
 ERPRO             BX7       X7+X3                OR CHARACTER INTO OUTPUT WORD.           ERPRO       1379     A     
 ERPRO             ZR        B7,LASTOK            OUT-WORD FULL. GO,INSERT ZERO WD         ERPRO       1380     A     
 ERPRO             SB7       B7-6                 MODIFY OUT-WORD SHIFT FOR NXT CH         ERPRO       1381     A     
 ERPRO             MX0       6                    CREATE ONE CHARACTER MASK                ERPRO       1382     A     
 ERPRO             AX0       X0,B7                EXTEND MASK TO NO.CHARS TO FILL          ERPRO       1383     A     
 ERPRO             LX0       6                    EXTEND SHIFT TO POSN MASK                ERPRO       1384     A     
 ERPRO             LX0       X0,B7                                                         ERPRO       1385     A     
 ERPRO             BX3       X0*X2                CREATE BLANK FILL CHARACTERS             ERPRO       1386     A     
 ERPRO             BX7       X7+X3                OR FILL-CHARS INTO OUTPUT WORD.          ERPRO       1387     A     
 ERPRO    LASTOK   SA7       A7-B1                STORE LAST WORD OF FORMAT STRING         ERPRO       1388     A     
 ERPRO              SA4    LWAWORK                                                         ERPRO       1389     A     
 ERPRO             SX6       A7                   SAVE LAST ADDRESS                        ERPRO       1390     A     
 ERPRO              SA6    A4                                                              ERPRO       1391     A     
 ERPRO             SA5       DATA.                                                         ERPRO       1392     A     
 ERPRO             SX7       A7-B1                                                         ERPRO       1393     A     
 ERPRO              SX6    X4-1                                                            ERPRO       1394     A     
 ERPRO             SX5       X5+B1                INCR -DATA.- LEN FOR FMT LABEL           ERPRO       1395     A     
 ERPRO              IX0    X6-X7                                                           ERPRO       1396     A     
 ERPRO             SA7       MYLAST               OUTPUT FORMAT INVERTED LWA+1             ERPRO       1397     A     
 ERPRO             SA6       MYFIRST              OUTPUT FORMAT INVERTED FWA               ERPRO       1398     A     
 ERPRO             IX7       X5+X0                                                         ERPRO       1399     A     
 ERPRO             SB0       0                                                             ERPRO       1400     A     
 ERPRO             SA7       A5                   UPDATE LENGTH OF -DATA.- BLOCK           ERPRO       1401     A     
 ERPRO                                                                                     ERPRO       1402     A     
 ERPRO    *         WRITE COMPRESSED FORMAT TO *COMPS* FILE AS ONE OR MORE *DIS*           ERPRO       1403     A     
 ERPRO    *         PSEUDO-OP LINES.  EACH LINE CONTAINS, AT MOST, 6 WORDS OF THE          ERPRO       1404     A     
 ERPRO    *         FORMAT, AND IS PREFACED WITH THE *DIS* PSEUDO AND WORD COUNT.          ERPRO       1405     A     
 ERPRO                                                                                     ERPRO       1406     A     
 ERPRO     FIN2     SA3    MYLAST      (X3) = OUTPUT FORMAT INVERTED LWA+1                 ERPRO       1407     A     
 ERPRO              SA2    MYFIRST     (X2) = OUTPUT FORMAT INVERTED FWA                   ERPRO       1408     A     
 ERPRO              SA5    =H*  DIS   0,*                                                  ERPRO       1409     A     
 ERPRO              SX0    6           MAX LINE LENGTH, EXCLUDING *DIS* PSEUDO             ERPRO       1410     A     
 ERPRO              IX3    X2-X3       (X3) = TOTAL REMAINING FORMAT LENGTH                ERPRO       1411     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2025    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
 ERPRO              ZR     X3,FORMOUT  IF NO MORE FORMAT TO WRITE                          ERPRO       1412     A     
 ERPRO              MX4    X3/X0       (X4) = MIN (REMAINING FMT LEN, MAX LEN)             ERPRO       1413          I
          -FEAT155D 
 ERPRO              MX4    X3-X0       (X4) = (REMAINING FMT LEN,MAX LEN)                  FEAT155D     138     A     
 ERPRO              SB6    FBUF        (B6) = OUTPUT LINE FWA                              ERPRO       1414     A     
 ERPRO              SA1    X2          (X1) = FIRST WORD OF REMAINING FORMAT               ERPRO       1415     A     
 ERPRO              SB2    X4          (B2) = OUTPUT LINE LENGTH, EXCL *DIS* WORD          ERPRO       1416     A     
 ERPRO              LX4    6                                                               ERPRO       1417     A     
 ERPRO              IX7    X5+X4       ADD LENGTH TO *DIS* PSEUDO (DPC)                    ERPRO       1418     A     
 ERPRO              NO                                                                     ERPRO       1419     A     
 ERPRO              SA7    B6          *DIS* PSEUDO TO OUTPUT BUFFER                       ERPRO       1420     A     
 ERPRO     FIN3     BX7    X1                                                              ERPRO       1421     A     
 ERPRO              SA1    A1-B1       (X1) = NEXT FORMAT WORD                             ERPRO       1422     A     
 ERPRO              SB2    B2-B1                                                           ERPRO       1423     A     
 ERPRO              SA7    A7+B1                                                           ERPRO       1424     A     
 ERPRO              GT     B2,B0,FIN3  IF *DIS* LINE NOT COMPLETE                          ERPRO       1425     A     
 ERPRO              BX6    X6-X6                                                           ERPRO       1426     A     
 ERPRO              SX7    A1                                                              ERPRO       1427     A     
 ERPRO              SA6    A7+B1       ZERO WORD LINE TERMINATOR TO BUFFER                 ERPRO       1428     A     
 ERPRO              SB7    A6+B1       OUTPUT LINE LWA+1                                   ERPRO       1429     A     
 ERPRO              SA7    A2          UPDATE FWA                                          ERPRO       1430     A     
 ERPRO              SB7    B7-B6       OUTPUT LINE LENGTH                                  ERPRO       1431     A     
 ERPRO              WRITEC =XF.CMPS,B6,B7    *DIS* LINE TO *COMPS* FILE                    ERPRO       1432     A     
 ERPRO              EQ     FIN2        LOOP FOR MORE OUTPUT                                ERPRO       1433     A     
 ERPRO                                                                                     ERPRO       1434     A     
 ERPRO    *         HERE IF EXTRANEOUS CHARACTERS AFTER CLOSING RIGHT PARENTHESIS.         ERPRO       1435     A     
 ERPRO                                                                                     ERPRO       1436     A     
 ERPRO    GARBAG   SX3       16                   EXTRANEOUS INFO FOLLS 0-LEV-).           ERPRO       1437          I
          -FCC1385
 ERPRO     GARBAG   SX3    44          EXTRANEOUS INFO FOLLS 0-LEV-).                      FCC1385       16     A     
 ERPRO             SX5       1R                                                            ERPRO       1438     A     
 ERPRO             MX0       54                                                            ERPRO       1439     A     
 ERPRO    GETIT    GETCH     X2                                                            ERPRO       1440     A     
 ERPRO             BX4       X5-X2                                                         ERPRO       1441     A     
 ERPRO             ZR        X4,GETIT                                                      ERPRO       1442     A     
 ERPRO             ZR        X2,PACKPAR                                                    ERPRO       1443     A     
 ERPRO             SB4       PACKPAR              SET RETURN POINT TO PACK SAVECH.         ERPRO       1444     A     
 ERPRO             ZR        IERROR               CALL INFORM ERROR PROCESSOR              ERPRO       1445          I
          -FCC1385
 ERPRO              ZR     FERROR      ANNOUNCE FATAL ERROR                                FCC1385       17     A     
 ERPRO    FORMOUT  SB5       1                    RESTORE UNIT-REGISTER                    ERPRO       1446     A     
 ERPRO             ZR        FORMAT               RETURN COMPLETED FORMAT TO CALLR         ERPRO       1447     A     
 ERPRO              SPACE  3                                                               ERPRO       1448     A     
 ERPRO     BLANK    DATA   10H                                                             ERPRO       1449     A     
 ERPRO     FBUF     BSSZ   8           FORMAT STATEMENT OUTPUT BUFFER                      ERPRO       1450     A     
 ERPRO              END                                                                    ERPRO       1451     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - ERPRO   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          ERPRO                     1451      1406
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2026    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ERPRO   
  
          FCC0220                      3         3
          FCC0490                      2         2
          FCC0511                      1         1
          FCC0525                      3         3
          FCC0628                     26        26
          FEAT155D                     1         1
          FCC1385                      2         2
          FCC1300X                    10        10
          FCCA402                     62        62
          FCC2111                      2         2
          FCC2126                      1         1
          FCC2202                     18        17
          FCCA556                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLY     
  
 FLY      *DECK,FLY                                                                        FLY            1     A     
 FLY                IDENT FLY ME TO THE MOON                                               FLY            2     A     
 FLY      *CALL,SSTCALL                                                                    FLY            3     A     
 FLY                NOREF  CALLBIT                                                         FLY            4     A     
 FLY                NOREF  I                                                               FLY            5     A     
 FLY                NOREF  MPT                                                             FLY            6     A     
 FLY                NOREF  MSKCHBIT                                                        FLY            7     A     
 FLY                NOREF  OTHER                                                           FLY            8     A     
 FLY                NOREF  SKIPBIT                                                         FLY            9     A     
 FLY                NOREF  TESTBIT                                                         FLY           10     A     
 FLY                NOREF  TESTV                                                           FLY           11     A     
 FLY                NOREF  VALID                                                           FLY           12     A     
 FLY                TITLE  TRANSITION DIAGRAM ORIENTED PROCESSING                          FLY           13     A     
 FLY       B=FLY    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             FLY           14     A     
 FLY                TITLE  --MACRO NODEFN-- MACRO TO DEFINE TRANSITION NODE MACRO          FLY           15     A     
 FLY      LIST      OPSYN  NIL                                                             FLY           16     A     
 FLY                LIST   G,M,D,A                                                         FLY           17     A     
 FLY      NODEFN    MACRO  NODE,Y,CODETYPE                                                 FLY           18     A     
 FLY       ^        MICRO  1,0,/NODEMS 1/                                                  FLY           19     A     
 FLY       [        MICRO  1,0,/NODEMS 0/                                                  FLY           20     A     
 FLY       =        MICRO  1,0,/NODECH 0,0/                                                FLY           21     A     
 FLY       @        MICRO  1,0,/NODECH 1,1/                                                FLY           22     A     
 FLY       <        MICRO  1,0,/NODECH 1,0/                                                FLY           23     A     
 FLY       /        MICRO  1,0,/NODEGO/                                                    FLY           24     A     
 FLY                MACRO  NODE,LBL,MICR,ROUTINE,PAR                                       FLY           25     A     
 FLY                IFC    EQ,Y_LBL_Y_Y,1                                                  FLY           26     A     
 FLY                 ERR    MISSING LABEL                                                  FLY           27     A     
 FLY       LBL      BSS    0                                                               FLY           28     A     
 FLY                IFC    NE,Y_ROUTINE_Y_Y,1                                              FLY           29     A     
 FLY                 CODE1  ROUTINE,(PAR)                                                  FLY           30     A     
 FLY       MIC      MICRO  1,0,Y"MICR"Y                                                    FLY           31     A     
 FLY       MPT      SET 1                                                                  FLY           32     A     
 FLY       OTHER    SET    0                                                               FLY           33     A     
 FLY      BLUFF     DUP    127                                                             FLY           34     A     
 FLY       VALID     SET    0                                                              FLY           35     A     
 FLY                 BLANKS MIC,MPT,C                                                      FLY           36     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2027    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLY     
  
 FLY      STOP       IFC    EQ,Y"C"Y_Y                                                     FLY           37     A     
 FLY       VALID      SET    1                                                             FLY           38     A     
 FLY                  STOPDUP                                                              FLY           39     A     
 FLY      STOP       ELSE                                                                  FLY           40     A     
 FLY       MPT        SET    MPT+1                                                         FLY           41     A     
 FLY       D          MICRO  1,0,"C"^[=@</"C"                                              FLY           42     A     
 FLY      STOP        IFC    NE,Y"D"Y_^[@</Y                                               FLY           43     A     
 FLY       C           MICEQU "C"                                                          FLY           44     A     
 FLY       SKIPBIT     SET    0                                                            FLY           45     A     
 FLY                   "C"                                                                 FLY           46     A     
 FLY       C           MICRO  MPT,1,Y"MIC"Y                                                FLY           47     A     
 FLY       MPT         SET    MPT+1                                                        FLY           48     A     
 FLY                   IFC    EQ,Y"C"Y,Y,2                                                 FLY           49     A     
 FLY                    SKIPTO (:),MIC,MPT,C                                               FLY           50     A     
 FLY       SKIPBIT      SET    1                                                           FLY           51     A     
 FLY       VALID       SET    0                                                            FLY           52     A     
 FLY      STOP         IFC    EQ,Y"C"Y_:_Y                                                 FLY           53     A     
 FLY       VALID        SET    1                                                           FLY           54     A     
 FLY       NODENM       NAME   MIC,MPT,C                                                   FLY           55     A     
 FLY                    IFEQ   OTHER,1,1                                                   FLY           56     A     
 FLY       NODENM        MICRO  1,0, -"NODENM"                                             FLY           57     A     
 FLY       CALLBIT      SET    0                                                           FLY           58     A     
 FLY                    IFC    EQ,Y"C"Y,Y,5                                                FLY           59     A     
 FLY       CALLBIT       SET    1                                                          FLY           60     A     
 FLY       CALLNM        NAME   MIC,MPT,C                                                  FLY           61     A     
 FLY       PARAM         MICRO  1,1, 0                                                     FLY           62     A     
 FLY                     IFC    EQ,Y"C"Y(Y,1                                               FLY           63     A     
 FLY       PARAM          SCANTO ),MIC,MPT,C                                               FLY           64     A     
 FLY                    CODE                                                               FLY           65     A     
 FLY      STOP       ENDIF                                                                 FLY           66     A     
 FLY                 IFEQ   VALID,0,1                                                      FLY           67     A     
 FLY                  STOPDUP                                                              FLY           68     A     
 FLY      BLUFF     ENDD                                                                   FLY           69     A     
 FLY                IFEQ   VALID,0,5                                                       FLY           70     A     
 FLY       C         MICRO  1,MPT,Y"MICR"Y                                                 FLY           71     A     
 FLY                 LIST   A                                                              FLY           72     A     
 FLY                 ERR    ILLEGAL MICRO DEFINITION FOR THIS CALL TO NODE                 FLY           73     A     
 FLY      ,                 THE PORTION OF THE MICRO SCANNED FOLLOWS--                     FLY           74     A     
 FLY                 ERR   Y"C"Y                                                           FLY           75     A     
 FLY      NODE      ENDM                                                                   FLY           76     A     
 FLY      NODECH    MACRO  T,ADDEND                                                        FLY           77     A     
 FLY       MSKCHBIT SET    0                                                               FLY           78     A     
 FLY       TESTBIT  SET    T                                                               FLY           79     A     
 FLY       VALID    SET    1                                                               FLY           80     A     
 FLY       I        SET    MPT                                                             FLY           81     A     
 FLY       MPT      SET    MPT+1                                                           FLY           82     A     
 FLY       CH       SCANBK (,:),MIC,MPT,C                                                  FLY           83     A     
 FLY                IFC    EQ,Y"C"Y_Y                                                      FLY           84     A     
 FLY       VALID     SET    0                                                              FLY           85     A     
 FLY                ELSE                                                                   FLY           86     A     
 FLY       D         MICRO  I,1,Y"MIC"Y                                                    FLY           87     A     
 FLY       CH        MICRO 1,0,Y"D""CH"Y                                                   FLY           88     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2028    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLY     
  
 FLY                 IFEQ   I+2,MPT,1                                                      FLY           89     A     
 FLY       CH         MICRO  1,0,Y_1R"CH"Y                                                 FLY           90     A     
 FLY       TESTV     MICRO  1,0,Y"CH"+ADDEND_Y                                             FLY           91     A     
 FLY                ENDIF                                                                  FLY           92     A     
 FLY       MPT      SET    MPT-1                                                           FLY           93     A     
 FLY      NODECH    ENDM                                                                   FLY           94     A     
 FLY      NODEMS    MACRO  T                                                               FLY           95     A     
 FLY       VALID    SET    1                                                               FLY           96     A     
 FLY       MSKCHBIT SET    1                                                               FLY           97     A     
 FLY       TESTBIT  SET    T                                                               FLY           98     A     
 FLY       MPT      SET    MPT+TESTBIT                                                     FLY           99     A     
 FLY                MASKC  MIC,MPT,C,TESTV                                                 FLY          100     A     
 FLY       TESTV    DECMIC TESTV                                                           FLY          101     A     
 FLY                IFC    EQ,Y"C"Y_Y,1                                                    FLY          102     A     
 FLY       VALID     SET    0                                                              FLY          103     A     
 FLY      NODEMS    ENDM                                                                   FLY          104     A     
 FLY      NODEGO    MACRO                                                                  FLY          105     A     
 FLY                IFEQ   OTHER,0,2                                                       FLY          106     A     
 FLY       OTHER     SET    1                                                              FLY          107     A     
 FLY       VALID     SET    1                                                              FLY          108     A     
 FLY       TESTV    MICRO  1,4,/177B/                                                      FLY          109     A     
 FLY       MSKCHBIT SET    0                                                               FLY          110     A     
 FLY       TESTBIT  SET    1                                                               FLY          111     A     
 FLY       SKIPBIT  SET    1                                                               FLY          112     A     
 FLY                SKIPTO (:),MIC,MPT,C                                                   FLY          113     A     
 FLY       MPT      SET    MPT-1                                                           FLY          114     A     
 FLY      NODEGO    ENDM                                                                   FLY          115     A     
 FLY                                                                                       FLY          116     A     
 FLY                PURGMAC  CODE                                                          FLY          117     A     
 FLY                                                                                       FLY          118     A     
 FLY      GENCODE   IFC    EQ,/CODETYPE/CODE/                                              FLY          119     A     
 FLY      CODE       MACRO                                                                 FLY          120     A     
 FLY                 LOCAL  BACK,FAIL                                                      FLY          121     A     
 FLY      CHARTEST   IFEQ   MSKCHBIT,0                                                     FLY          122     A     
 FLY                  SB3    X2-"TESTV"                                                    FLY          123     A     
 FLY                  IFEQ   TESTBIT,0,1                                                   FLY          124     A     
 FLY                   NZ     B3,FAIL                                                      FLY          125     A     
 FLY                  IFEQ   TESTBIT,1,1                                                   FLY          126     A     
 FLY                   PL     B3,FAIL                                                      FLY          127     A     
 FLY      CHARTEST   ELSE                                                                  FLY          128     A     
 FLY                  SA3    A0+"TESTV"                                                    FLY          129     A     
 FLY                  SB3    X2                                                            FLY          130     A     
 FLY                  LX3    X3,B3                                                         FLY          131     A     
 FLY                  IFEQ   TESTBIT,0,1                                                   FLY          132     A     
 FLY                   PL     X3,FAIL                                                      FLY          133     A     
 FLY                  IFEQ   TESTBIT,1,1                                                   FLY          134     A     
 FLY                   MI     X3,FAIL                                                      FLY          135     A     
 FLY      CHARTEST   ENDIF                                                                 FLY          136     A     
 FLY                 IFNE   SKIPBIT,1,1                                                    FLY          137     A     
 FLY                  PUTCH  X2,X3                                                         FLY          138     A     
 FLY                 IFEQ   CALLBIT,1,4                                                    FLY          139     A     
 FLY                  SX3    "PARAM"                                                       FLY          140     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2029    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLY     
  
 FLY                  SB4    BACK                                                          FLY          141     A     
 FLY                  JP     =X"CALLNM"                                                    FLY          142     A     
 FLY       BACK       BSS    0                                                             FLY          143     A     
 FLY       D         MICRO  1,1,Y"NODENM"Y                                                 FLY          144     A     
 FLY                 IFC    EQ,Y"D"Y_Y,1                                                   FLY          145     A     
 FLY       NODENM     MICRO  2,0,Y"NODENM"Y                                                FLY          146     A     
 FLY                 IFC    NE,Y"D"Y_Y,1                                                   FLY          147     A     
 FLY                  GETCH  X2                                                            FLY          148     A     
 FLY                 ZR    "NODENM"                                                        FLY          149     A     
 FLY       FAIL      BSS    0                                                              FLY          150     A     
 FLY      CODE       ENDM                                                                  FLY          151     A     
 FLY      CODE1      MACRO  ROUTINE,PAR                                                    FLY          152     A     
 FLY                 LOCAL  BACK                                                           FLY          153     A     
 FLY                 SX3    PAR                                                            FLY          154     A     
 FLY                 SB4    BACK                                                           FLY          155     A     
 FLY                 ZR     ROUTINE                                                        FLY          156     A     
 FLY       BACK      BSS    0                                                              FLY          157     A     
 FLY      CODE1      ENDM                                                                  FLY          158     A     
 FLY      GENCODE   ELSE                                                                   FLY          159     A     
 FLY      CODE1      MACRO  ROUTINE,PAR                                                    FLY          160     A     
 FLY                 VFD    1/1,29/0,12/PAR,18/ROUTINE                                     FLY          161     A     
 FLY      CODE1      ENDM                                                                  FLY          162     A     
 FLY      CODE       MACRO                                                                 FLY          163     A     
 FLY                 VFD    2/CALLBIT,1/SKIPBIT,1/TESTBIT,1/MSKCHBIT,7/"TESTV"             FLY          164     A     
 FLY                 VFD    18/"NODENM"                                                    FLY          165     A     
 FLY                 IFEQ   CALLBIT,1,1                                                    FLY          166     A     
 FLY                  VFD    12/"PARAM",18/=X"CALLNM"                                      FLY          167     A     
 FLY      CODE       ENDM                                                                  FLY          168     A     
 FLY      GENCODE   ENDIF                                                                  FLY          169     A     
 FLY      BLANKS    MACRO  MIC,MPT,C                                                       FLY          170     A     
 FLY       MPT      SET    MPT-10                                                          FLY          171     A     
 FLY                DUP    900                                                             FLY          172     A     
 FLY       MPT       SET    MPT+10                                                         FLY          173     A     
 FLY       C         MICRO  MPT,10,Y"MIC"Y                                                 FLY          174     A     
 FLY                 IFC    NE,Y"C"Y          Y,1                                          FLY          175     A     
 FLY                  STOPDUP                                                              FLY          176     A     
 FLY                ENDD                                                                   FLY          177     A     
 FLY       C        MICRO  MPT,5,Y"MIC"Y                                                   FLY          178     A     
 FLY                IFC    EQ,Y"C"Y     Y,1                                                FLY          179     A     
 FLY       MPT       SET    MPT+5                                                          FLY          180     A     
 FLY       MPT      SET    MPT-1                                                           FLY          181     A     
 FLY                DUP    5                                                               FLY          182     A     
 FLY       MPT       SET    MPT+1                                                          FLY          183     A     
 FLY       C         MICRO  MPT,1,Y"MIC"Y                                                  FLY          184     A     
 FLY                 IFC    NE,Y"C"Y Y,1                                                   FLY          185     A     
 FLY                  STOPDUP                                                              FLY          186     A     
 FLY                ENDD                                                                   FLY          187     A     
 FLY      BLANKS    ENDM                                                                   FLY          188     A     
 FLY                MACRO  MICEQU,RESULT,MIC                                               FLY          189     A     
 FLY       RESULT   MICRO  1,0,Y"MIC"Y                                                     FLY          190     A     
 FLY      MICEQU    ENDM                                                                   FLY          191     A     
 FLY      NODEFN    ENDM                                                                   FLY          192     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2030    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLY     
  
 FLY      MASKS     MACRO  MASKS,Y,LEFTRITE                                                FLY          193     A     
 FLY                LOCAL  BORDER,C,I,NMASKS,OLD,POWER,VSET,VORDER,V1,V2,V3                FLY          194     A     
 FLY       NMASKS   SET    0                                                               FLY          195     A     
 FLY                USE    MASKS                                                           FLY          196     A     
 FLY      MASKS     BSS    0                                                               FLY          197     A     
 FLY                USE    *                                                               FLY          198     A     
 FLY                IFC    EQ,/LEFTRITE/RIGHT/                                             FLY          199     A     
 FLY       VORDER    MICRO  1,0,/V3_V2_V1_V3/                                              FLY          200     A     
 FLY       BORDER    MACRO  1,0,/0 1 2 3 4 5 6 7 8 9 10111213141516171819/                 FLY          201     A     
 FLY                ELSE                                                                   FLY          202     A     
 FLY       VORDER    MICRO  1,0,/V1_V2_V3_V1/                                              FLY          203     A     
 FLY       BORDER    MICRO  1,0,/191817161514131211109 8 7 6 5 4 3 2 1 0 /                 FLY          204     A     
 FLY                ENDIF                                                                  FLY          205     A     
 FLY                MACRO  MASKC,LBL,MIC,MPT,C,ORD                                         FLY          206     A     
 FLY       V1       SET    0                                                               FLY          207     A     
 FLY       V2       SET    0                                                               FLY          208     A     
 FLY       V3       SET    0                                                               FLY          209     A     
 FLY       C        MICRO  MPT,1,Y"MIC"Y                                                   FLY          210     A     
 FLY                DUP    64                                                              FLY          211     A     
 FLY       MPT       SET    MPT+1                                                          FLY          212     A     
 FLY       I         SET    1R"C"/20                                                       FLY          213     A     
 FLY       VSET      MICRO  8*I+1,8,Y"VORDER"Y                                             FLY          214     A     
 FLY       I         SET    1R"C"-I*20                                                     FLY          215     A     
 FLY       POWER     MICRO  2*I+1,2,Y"BORDER"Y                                             FLY          216     A     
 FLY       "VSET"    SET    "VSET"+1S"POWER"                                               FLY          217     A     
 FLY       C         MICRO  MPT,1,Y"MIC"Y                                                  FLY          218     A     
 FLY                 IFC    NE,Y"C"Y_Y,1                                                   FLY          219     A     
 FLY                  IFC    EQ,Y"C"Y_]_Y,1                                                FLY          220     A     
 FLY                   STOPDUP                                                             FLY          221     A     
 FLY                ENDD                                                                   FLY          222     A     
 FLY       MPT      SET    MPT+1                                                           FLY          223     A     
 FLY       I        MICRO  1,0, -1                                                         FLY          224     A     
 FLY       OLD      SET    0                                                               FLY          225     A     
 FLY                DUP    NMASKS                                                          FLY          226     A     
 FLY       I         DECMIC "I"+1                                                          FLY          227     A     
 FLY                 IFEQ   MV1"I".,V1,4                                                   FLY          228     A     
 FLY                  IFEQ   MV2"I".,V2,3                                                  FLY          229     A     
 FLY                   IFEQ   MV3"I".,V3,2                                                 FLY          230     A     
 FLY                    STOPDUP                                                            FLY          231     A     
 FLY       OLD          SET    1                                                           FLY          232     A     
 FLY                ENDD                                                                   FLY          233     A     
 FLY                IFEQ   OLD,0                                                           FLY          234     A     
 FLY                 USE    MASKS                                                          FLY          235     A     
 FLY                 VFD    20/V1,20/V2,20/V3                                              FLY          236     A     
 FLY                 USE    *                                                              FLY          237     A     
 FLY       NMASKS    SET    NMASKS+1                                                       FLY          238     A     
 FLY       I         DECMIC NMASKS-1                                                       FLY          239     A     
 FLY       MV1"I".   SET    V1                                                             FLY          240     A     
 FLY       MV2"I".   SET    V2                                                             FLY          241     A     
 FLY       MV3"I".   SET    V3                                                             FLY          242     A     
 FLY                ENDIF                                                                  FLY          243     A     
 FLY                IFC    NE,//ORD/,1                                                     FLY          244     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2031    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLY     
  
 FLY       ORD       SET    "I"                                                            FLY          245     A     
 FLY                IFC    NE,//LBL/,1                                                     FLY          246     A     
 FLY       LBL       EQU    MASKS+"I"                                                      FLY          247     A     
 FLY      MASKC     ENDM                                                                   FLY          248     A     
 FLY                MACRO  MASK,LBL,PARAM                                                  FLY          249     A     
 FLY                LOCAL  MIC,MPT,C                                                       FLY          250     A     
 FLY       MIC      MICRO  1,0,Y_PARAM_Y                                                   FLY          251     A     
 FLY       MPT      SET    2                                                               FLY          252     A     
 FLY       LBL      MASKC  MIC,MPT,C                                                       FLY          253     A     
 FLY       MASK     ENDM                                                                   FLY          254     A     
 FLY      MASKS     ENDM                                                                   FLY          255     A     
 FLY                MASKS  MASKS,#,LEFT                                                    FLY          256     A     
 FLY                TITLE  --MACRO SKIPTO--SKIP TO DELIMITER IN MICRO                      FLY          257     A     
 FLY      SKIPTO    MACRO  DELIM,S,M,D                                                     FLY          258     A     
 FLY                DUP    -1                                                              FLY          259     A     
 FLY      D         MICRO  M,1,#"S"#                                                       FLY          260     A     
 FLY      M         SET    M+1                                                             FLY          261     A     
 FLY                IFC    EQ,#"D"#_DELIM_#,1                                              FLY          262     A     
 FLY                STOPDUP                                                                FLY          263     A     
 FLY                IFC    EQ,#"D"##,2                                                     FLY          264     A     
 FLY                STOPDUP                                                                FLY          265     A     
 FLY      M         SET    M-1                                                             FLY          266     A     
 FLY                ENDD                                                                   FLY          267     A     
 FLY      SKIPTO    ENDM                                                                   FLY          268     A     
 FLY                TITLE  --MACRO SCANTO--SCAN UNTIL DELIMITER IN MICRO                   FLY          269     A     
 FLY                MACRO  SCANTO,RESULT,DELIM,S,M,D                                       FLY          270     A     
 FLY                LOCAL  I                                                               FLY          271     A     
 FLY      RESULT    MICRO  1,0,                                                            FLY          272     A     
 FLY      I         SET    M                                                               FLY          273     A     
 FLY                SKIPTO DELIM,S,I,D                                                     FLY          274     A     
 FLY      I         SET    I-M                                                             FLY          275     A     
 FLY                IFNE   I,0,1                                                           FLY          276     A     
 FLY                IFC    EQ,#"D"#_DELIM_#,1                                              FLY          277     A     
 FLY      RESULT    MICRO  M,I-1,#"S"#                                                     FLY          278     A     
 FLY                IFC    NE,#"D"#_DELIM_#,1                                              FLY          279     A     
 FLY      RESULT    MICRO  M,I,#"S"#                                                       FLY          280     A     
 FLY      M         SET    M+I                                                             FLY          281     A     
 FLY      SCANTO    ENDM                                                                   FLY          282     A     
 FLY                TITLE  --MACRO NAME--SCAN OFF NAME IN MICRO                            FLY          283     A     
 FLY                MACRO  NAME,RESULT,S,M,D                                               FLY          284     A     
 FLY      RESULT    MICRO  1,0,                                                            FLY          285     A     
 FLY      D         MICRO  M,1,#"S"#                                                       FLY          286     A     
 FLY      M         SET    M+1                                                             FLY          287     A     
 FLY                IFC    NE,#"D"##                                                       FLY          288     A     
 FLY                IFGE   1R"D",1RA                                                       FLY          289     A     
 FLY                IFLE   1R"D",1RZ                                                       FLY          290     A     
 FLY                DUP    8                                                               FLY          291     A     
 FLY      RESULT    MICRO  1,0,#"RESULT""D"#                                               FLY          292     A     
 FLY      D         MICRO  M,1,#"S"#                                                       FLY          293     A     
 FLY      M         SET    M+1                                                             FLY          294     A     
 FLY                IFC    EQ,#"D"##,2                                                     FLY          295     A     
 FLY      M         SET    M-1                                                             FLY          296     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2032    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLY     
  
 FLY                STOPDUP                                                                FLY          297     A     
 FLY                IFLT   1R"D",1RA,1                                                     FLY          298     A     
 FLY                STOPDUP                                                                FLY          299     A     
 FLY                IFGT   1R"D",1R9,3                                                     FLY          300     A     
 FLY                IFC    NE,#"D"#.#,2                                                    FLY          301     A     
 FLY                IFC    NE,#"D"#$#,1                                                    FLY          302     A     
 FLY                STOPDUP                                                                FLY          303     A     
 FLY                ENDD                                                                   FLY          304     A     
 FLY                ENDIF                                                                  FLY          305     A     
 FLY      NAME      ENDM                                                                   FLY          306     A     
 FLY                TITLE  --MACRO NUMBX--SCAN OFF NUMERIC EXPRESSION IN MICRO             FLY          307     A     
 FLY                MACRO  NUMBX,RESULT,S,M,D                                              FLY          308     A     
 FLY      RESULT    MICRO                                                                  FLY          309     A     
 FLY      D         MICRO  M,1,#"S"#                                                       FLY          310     A     
 FLY                IFC    NE,#"D"##                                                       FLY          311     A     
 FLY      M         SET    M+1                                                             FLY          312     A     
 FLY                IFGE   1R"D",1RA                                                       FLY          313     A     
 FLY                IFLE   1R"D",1R9                                                       FLY          314     A     
 FLY                DUP    -1                                                              FLY          315     A     
 FLY      RESULT    MICRO  1,0,#"RESULT""D"#                                               FLY          316     A     
 FLY      D         MICRO  M,1,#"S"#                                                       FLY          317     A     
 FLY      M         SET    M+1                                                             FLY          318     A     
 FLY                IFC    EQ,#"D"##,2                                                     FLY          319     A     
 FLY      M         SET    M-1                                                             FLY          320     A     
 FLY                STOPDUP                                                                FLY          321     A     
 FLY                IFC    EQ,#"D"#,#,1                                                    FLY          322     A     
 FLY                STOPDUP                                                                FLY          323     A     
 FLY                ENDD                                                                   FLY          324     A     
 FLY                ENDIF                                                                  FLY          325     A     
 FLY      NUMBX     ENDM                                                                   FLY          326     A     
 FLY                TITLE  --MACRO SCANBK--SCAN TO ANY OF A SET OF BREAKS IN MICRO         FLY          327     A     
 FLY                MACRO  SCANBK,RESULT,BREAKS,STRING,SPT,DELIM                           FLY          328     A     
 FLY                LOCAL  CHK,I                                                           FLY          329     A     
 FLY      RESULT    MICRO                                                                  FLY          330     A     
 FLY      I         SET    SPT-1                                                           FLY          331     A     
 FLY                DUP    -1                                                              FLY          332     A     
 FLY      I         SET    I+1                                                             FLY          333     A     
 FLY      DELIM     MICRO  I,1,#"STRING"#                                                  FLY          334     A     
 FLY                IFC    NE,##"DELIM"#,4                                                 FLY          335     A     
 FLY      CHK       MICRO  1,0,"DELIM"BREAKS"DELIM"                                        FLY          336     A     
 FLY                IFC    NE,#_BREAKS_#"CHK"#,1                                           FLY          337     A     
 FLY                STOPDUP                                                                FLY          338     A     
 FLY                IFEQ   1,0,2                                                           FLY          339     A     
 FLY      I         SET    I-1                                                             FLY          340     A     
 FLY                STOPDUP                                                                FLY          341     A     
 FLY                ENDD                                                                   FLY          342     A     
 FLY      I         SET    I+1                                                             FLY          343     A     
 FLY                IFNE   I-1,SPT,1                                                       FLY          344     A     
 FLY      RESULT    MICRO  SPT,I-SPT-1,#"STRING"#                                          FLY          345     A     
 FLY      SPT       SET    I                                                               FLY          346     A     
 FLY      SCANBK    ENDM                                                                   FLY          347     A     
 FLY                TITLE  MACROS TO LOAD + STORE CHARACTERS                               FLY          348     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2033    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLY     
  
 FLY               EXT       SAVECHR                                                       FLY          349     A     
 FLY      SAVECHAR EQU       SAVECHR                                                       FLY          350     A     
 FLY               EXT       FINISH                                                        FLY          351     A     
 FLY      GETCH    MACRO     XN                   TO FETCH NEXT CHARACTER IN               FLY          352     A     
 FLY               LOCAL     LBL                  STRING   CHARACTERS PACKED               FLY          353     A     
 FLY               A_XN      X1,B2                10 PER WORD.  SHIFT TO RT JSTFY          FLY          354     A     
 FLY               B_XN      -X0*XN               MASK OUT ALL BUT RTMOST CHAR             FLY          355     A     
 FLY               GT        B2,B0,LBL            MORE CHARS IN WORD  GO TO LBL            FLY          356     A     
 FLY               SA1       A1-1                 WORD EMPTY. POINT TO NEXT WORD           FLY          357     A     
 FLY               SB2       60                   RESET SHIFT COUNT                        FLY          358     A     
 FLY      LBL      SB2       B2-6                 DECREMENT SHIFT CT FOR NEXT CHAR         FLY          359     A     
 FLY               ENDM                                                                    FLY          360     A     
 FLY      PUTCH    MACRO     XN,XM                TO STORE AWAY CHARACTER STRING           FLY          361     A     
 FLY               LOCAL     LBL,M                PACKED 10 CHARACTERS PER WORD.           FLY          362     A     
 FLY      M        MICRO     2,1, XM                                                       FLY          363     A     
 FLY               BX6       XN                   OUTPUT STORAGE IS ONE CHARACTER          FLY          364     A     
 FLY               SA"M"     SAVECHAR             BEHIND, HOLDING MOST RECENT CHAR         FLY          365     A     
 FLY               L_XM      XM,B7                IN LOC SAVECHAR.                         FLY          366     A     
 FLY               BX7       X7+XM                SHIFT OUTPUT WORD TO APPEND CHAR         FLY          367     A     
 FLY               SB7       B7-6                 UPDATE SHIFT COUNT                       FLY          368     A     
 FLY               SA6       A"M"                 STORE NEW SAVECHAR                       FLY          369     A     
 FLY               PL        B7,LBL               WORD NOT FULL. GO TO LBL                 FLY          370     A     
 FLY               SA7       A7-1                 STORE FULL WORD + UPDATE POINTER         FLY          371     A     
 FLY               SB7       54                   RESET TO MAX SHIFT COUNT                 FLY          372     A     
 FLY               MX7       0                    CLEAR OUT OUTPUT WORD                    FLY          373     A     
 FLY      LBL      BSS       0                    AND RETURN.                              FLY          374     A     
 FLY               ENDM                                                                    FLY          375     A     
 FLY                ENTRY DIGMASK,TRANSIT,NODE2,MASKS                                      FLY          376     A     
 FLY       DIGMASK  MASK   [0123456789]                                                    FLY          377     A     
 FLY                TITLE  TRANSITION DIAGRAM TABLE PROCESSOR                              FLY          378     A     
 FLY      *                                                                                FLY          379     A     
 FLY      *           BIT POSITION DEFINITIONS FOR TRANSITION DIAGRAM TABLE                FLY          380     A     
 FLY      *                  (BIT N REPRESENTS THE 2**NTH BIT)                             FLY          381     A     
 FLY      *                                                                                FLY          382     A     
 FLY       CALLPO   SET    28                CALL ROUTINE BIT POSITION                     FLY          383     A     
 FLY       SKIPCHPO SET    27                SKIP CHARACTER BIT POSITION                   FLY          384     A     
 FLY       TESTPO   SET    26                TEST IDENTIFIER BIT POSITION                  FLY          385     A     
 FLY       MSKCHPO  SET    25                MASK OR CHARACTER TEST BIT POSITION           FLY          386     A     
 FLY       TESTVPO  SET    18                LOW ORDER BIT POSITION OF TEST VALUE          FLY          387     A     
 FLY                SPACE  2                                                               FLY          388     A     
 FLY       TRANSIT  SX6    TRANTCH           INITIAL ENTRY--SET SWITCH TO GET THE          FLY          389     A     
 FLY                SA6    TSWITCHT            NEXT CHARACTER.                             FLY          390     A     
 FLY       TRETURNT SA4    TSWITCHT          FETCH SWITCH VALUE.                           FLY          391     A     
 FLY                SB4    X4                                                              FLY          392     A     
 FLY       TCYCLET  SA3    B3                BEGIN PROCESSING OF NODE.                     FLY          393     A     
 FLY                PL     X3,TRANT01        BRANCH IF A ROUTINE IS NOT TO BE              FLY          394     A     
 FLY                SB5    X3                  CALLED, ELSE EXTRACT THE ADDRESS OF         FLY          395     A     
 FLY                LX3    60-12-18            THE ROUTINE AND POSITION THE                FLY          396     A     
 FLY                SB3    B3+1                PARAMETER (RIGHT JUSTIFIED WITH             FLY          397     A     
 FLY                AX3    60-12               SIGN-EXTENSION) IN  X3  AND JUMP TO         FLY          398     A     
 FLY                SX6    B4                                                              FLY          399     A     
 FLY                SA6    TSWITCHT                                                        FLY          400     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2034    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLY     
  
 FLY                JP     B5                  THE ROUTINE.                                FLY          401     A     
 FLY       TRANT01  JP     B4                *SWITCH* (EITHER TRANTCH OR TRANTGO)          FLY          402     A     
 FLY       TRANTCH  GETCH  X2                PLACE THE NEXT INPUT CHAR INTO X2.            FLY          403     A     
 FLY       TRANTGO  SB4    X2                PUT CHARACTER INTO B4 FOR LATER TEST.         FLY          404     A     
 FLY                SB5    30                OBTAIN THE NEXT NODE HALF-WORD                FLY          405     A     
 FLY                SX3    B3                  DESCRIPTOR, RIGHT-JUSTIFIED IN X3.          FLY          406     A     
 FLY                SB3    -B3                 UPDATE THE POINTER IN  B3.  (IF  B3         FLY          407     A     
 FLY                PL     X3,TRANT02          IS NEGATIVE THEN USE RIGHT HALF OF          FLY          408     A     
 FLY                BX3    -X3                 WORD AT ADDRESS  (-B3), ELSE USE            FLY          409     A     
 FLY                SB5    B0                  THE LEFT HALF OF THE WORD AT                FLY          410     A     
 FLY                SB3    B3+1                ADDRESS (B3)).                              FLY          411     A     
 FLY       TRANT02  SA3    X3                                                              FLY          412     A     
 FLY                LX3    X3,B5                                                           FLY          413     A     
 FLY                LX4    X3                REPLICATE THE DESCRIPTOR SEVERAL              FLY          414     A     
 FLY                BX5    X3                  TIMES AND POSITION THE COPIES OF            FLY          415     A     
 FLY                LX5    59-TESTVPO+1        THE DESCRIPTOR WITH THE SIGNIFICANT         FLY          416     A     
 FLY                MX6    60-7                BITS AT BIT 59 FOR SIGN BIT TESTS.          FLY          417     A     
 FLY                BX6    -X6*X5              ALSO EXTRACT THE TEST VALUE AND             FLY          418     A     
 FLY                LX4    59-MSKCHPO          PLACE IT IN  B5.                            FLY          419     A     
 FLY                SB5    X6                                                              FLY          420     A     
 FLY                LX5    TESTVPO-1-CALLPO                                                FLY          421     A     
 FLY                BX6    X3                                                              FLY          422     A     
 FLY                LX6    59-TESTPO                                                       FLY          423     A     
 FLY                NG     X4,TRANT07        BRANCH IF A MASK TEST, ELSE A CHAR            FLY          424     A     
 FLY                NG     X6,TRANT03          TEST--BRANCH IF A LESS-THAN TEST.           FLY          425     A     
 FLY                LX6    TESTPO-SKIPCHPO     NO, POSITION THE SKIP CHARACTER BIT         FLY          426     A     
 FLY                EQ     B4,B5,TRANT.T       AND BRANCH IF  CHAR=TEST VALUE              FLY          427     A     
 FLY       TRANT.F  PL     X5,TRANTGO        BRANCH FAILED--BRANCH IF NO ROUTINE           FLY          428     A     
 FLY                SB3    -B3                 INFORMATION EXPECTED (IF SO SKIP            FLY          429     A     
 FLY                NG     B3,TRANTGO          THE NEXT HALF-WORD WHICH CONTAINS           FLY          430     A     
 FLY                SB3    B3+1                THE INFORMATION AND BRANCH TO               FLY          431     A     
 FLY                ZR     TRANTGO           TRANTGO  TO CONTINUE PROCESSING).             FLY          432     A     
 FLY       TRANT03  GE     B4,B5,TRANT.F     IF  CHAR\TEST VALUE  GO TO TRANT.F            FLY          433     A     
 FLY                LX6    TESTPO-SKIPCHPO   POSITION SKIP-CHARACTER BIT.                  FLY          434     A     
 FLY       TRANT.T  SX4    B3                BRANCH SUCCEEDED--SAVE CURRENT NODE           FLY          435     A     
 FLY                SB3    X3                  POINTER AND SET NEW NODE POINTER.           FLY          436     A     
 FLY                NG     X6,TRANT04          BRANCH IF CHARACTER TO BE SKIPPED,          FLY          437     A     
 FLY                PUTCH X2,X3                ELSE PUT AWAY THE CHARACTER.                FLY          438     A     
 FLY       TRANT04  SB4    TRANTCH             SET THE SWITCH (SEE TRANT01) TO             FLY          439     A     
 FLY                PL     B3,TRANT05          FETCH THE NEXT INPUT CHARACTER              FLY          440     A     
 FLY                SB4    TRANTGO             UNLESS THIS IS AN -OTHER- BRANCH,           FLY          441     A     
 FLY                SB3    -B3                 (IE THE CURRENT CHAR IS TO BE USED)         FLY          442     A     
 FLY       TRANT05  PL     X5,TCYCLET          RETURN TO PROCESS NEXT NODE UNLESS          FLY          443     A     
 FLY                SB5    30                  A ROUTINE IS TO BE CALLED, IN WHICH         FLY          444     A     
 FLY                PL     X4,TRANT06          CASE FETCH THE NEXT HALFWORD AFTER          FLY          445     A     
 FLY                BX4    -X4                 THE SUCCESSFUL BRANCH AND EXTRACT           FLY          446     A     
 FLY                SB5    B0                  THE ADDRESS OF THE ROUTINE TO BE            FLY          447     A     
 FLY       TRANT06  SA3    X4                  CALLED AND PUT IT INTO  B5.                 FLY          448     A     
 FLY                LX3    X3,B5               POSITION THE 12-BIT PARAMETER IN            FLY          449     A     
 FLY                SB5    X3                  X3  (RIGHT-JUSTIFIED WITH SIGN              FLY          450     A     
 FLY                LX3    60-12-18            EXTENSION) AND JUMP TO THE ROUTINE          FLY          451     A     
 FLY                AX3    60-12               AFTER SAVING THE SWITCH VALUE.              FLY          452     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2035    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLY     
  
 FLY                SX6    B4                                                              FLY          453     A     
 FLY                SA6    TSWITCHT                                                        FLY          454     A     
 FLY                SB4    TRETURNT            SET RETURN ADDRESS.                         FLY          455     A     
 FLY                JP     B5                                                              FLY          456     A     
 FLY       TRANT07  SA4    A0+B5             MASK TEST--LOAD THE MASK AND SHIFT            FLY          457     A     
 FLY                LX4    X4,B4               THE BIT CORRESPONDING TO THE CHAR           FLY          458     A     
 FLY                BX4    X4-X6               INTO THE SIGN BIT (COMPLEMENT THE           FLY          459     A     
 FLY                LX6    TESTPO-SKIPCHPO     BIT IF A NOT-PRESENT TEST.                  FLY          460     A     
 FLY                NG     X4,TRANT.T          BRANCH TO  TRANT.T  IF THE TEST IS          FLY          461     A     
 FLY                ZR     TRANT.F             SUCCESSFUL, ELSO GO TO  TRANT.F             FLY          462     A     
 FLY                SPACE  2                                                               FLY          463     A     
 FLY      *                                                                                FLY          464     A     
 FLY      *                STORAGE DEFINITION LOCAL TO  TRANSIT                            FLY          465     A     
 FLY      *                                                                                FLY          466     A     
 FLY       TSWITCHT BSS    1                 STORAGE FOR SWITCH USED AT  TRANT01           FLY          467     A     
 FLY                                           (VALUE EITHER TRANTCH OR TRANTGO)           FLY          468     A     
 FLY                TITLE  MICRO DEFINITIONS FOR FORMAT TRANSITION DIAGRAM                 FLY          469     A     
 FLY       N1      MICRO  1,0,#        = ,NOPACK:NODE1                                     FLY          470     A     
 FLY      ,                            =,:NODE2                                            FLY          471     A     
 FLY      ,                            =/:NODE2,SLASH(1)                                   FLY          472     A     
 FLY      ,                            =):NODE2,RITEPAR(1)                                 FLY          473     A     
 FLY      ,                            [*"]:NODE2,HSTRNGR(1)                               FLY          474     A     
 FLY      ,                            =T:NODE9,TSASI                                      FLY          475     A     
 FLY      ,                            /ELSE:NODE2,IERROR(1)                     #         FLY          476     A     
 FLY       N2      MICRO  1,0,#        /ELSE:NODE2P,ONECNT                       #         FLY          477     A     
 FLY       N2P     MICRO  1,0,#        [ ,],NOPACK:NODE2P                                  FLY          478     A     
 FLY      ,                            =/:NODE2,SLASH(0)                                   FLY          479     A     
 FLY      ,                            =X:NODE2,XPROC(0)  =):NODE2,RITEPAR(0)              FLY          480     A     
 FLY      ,                            [0123456789=]:NODE3,NUMBER(0)                       FLY          481     A     
 FLY      ,                            =T:NODE9,TSASI                                      FLY          482     A     
 FLY      ,                            =P:NODE12,NULLP                                     FLY          483     A     
 FLY      ,                            =-:NODE10,NEGSET  =+:NODE10,UERROR(21)              FLY          484     A     
 FLY      ,                            [*"]:NODE2,HSTRNGR(0)                               FLY          485     A     
 FLY      ,                            =H:FATAL,FERROR(40) /ELSE:NODE3 #                   FLY          486     A     
 FLY       N3      MICRO  1,0,#        =P:NODE12,RANGE(-1)                                 FLY          487     A     
 FLY      ,                            =X:NODE2,XPROC(1)                                   FLY          488     A     
 FLY      ,                            /ELSE:NODE4,RANGE(0)                      #         FLY          489     A     
 FLY       N4       MICRO  1,0,#       [DG]:NODE5,SPESSET(-3)                              FLY          490     A     
 FLY      ,                            =E:NODE5,SPESSET(-1)                                FLY          491     A     
 FLY      ,                            =F:NODE5                                            FLY          492     A     
 FLY      ,                            [AL]:NODE8  [IO]:NODE8,SPESSET(1)                   FLY          493     A     
 FLY      ,                            =V:NODE4A,SPESSET(3)  [RZ]:NODE8,UERROR(22)         FLY          494     A     
 FLY      ,                            =/:NODE2P,SLASH(1)                                  FLY          495          I
          -FCC1456X 
 FLY      ,                            =H:NODE2,HCOUNTR                                    FLY          496     A     
 FLY      ,                            =(:NODE2,LEFTPAR                                    FLY          497     A     
 FLY      ,                            /ELSE:FATAL,FERROR(31)                    #         FLY          498     A     
 FLY       N4A      MICRO  1,0,#       = ,NOPACK:NODE4A                                    FLY          499     A     
 FLY      ,                            [0123456789=]:NODE6,WIDTH(1)                        FLY          500          I
          -FCC1300X 
 FLY      ,                            [0123456789=]:NODE4B,WIDTH(1)                       FCC1300X      49     A     
 FLY      ,                            /ELSE:NODE2                               #         FLY          501     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2036    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLY     
  
 FLY       N4B      MICRO  1,0,#       = ,NOPACK:NODE4B                                    FCC1300X      50     A     
 FLY      ,                            =.:NODE4C                                           FCC1300X      51     A     
 FLY      ,                            /ELSE:NODE1                               #         FCC1300X      52     A     
 FLY       N4C      MICRO  1,0,#       = ,NOPACK:NODE4C                                    FCC1300X      53     A     
 FLY      ,                            [0123456789=]:NODE7A,DECIM(0)                       FCC1300X      54     A     
 FLY      ,                            /ELSE:NODE1,IERROR(6)                     #         FCC1300X      55     A     
 FLY       N5      MICRO  1,0,#        = ,NOPACK:NODE5                                     FLY          502     A     
 FLY      ,                            [0123456789=]:NODE6,WIDTH(0)                        FLY          503     A     
 FLY      ,                            /ELSE:FATAL,FERROR(32)                    #         FLY          504     A     
 FLY       N6      MICRO  1,0,#        =.:NODE7                                            FLY          505     A     
 FLY      ,                            /ELSE:NODE1,IERROR(6)                     #         FLY          506     A     
 FLY       N7      MICRO  1,0,#        = ,NOPACK:NODE7                                     FLY          507     A     
 FLY      ,                            [0123456789=]:NODE7A,DECIM(-1)                      FLY          508     A     
 FLY      ,                            /ELSE:NODE1,IERROR(7)                     #         FLY          509          I
          -FCC1300X 
 FLY      ,                            /ELSE:NODE1,IERROR(6)                     #         FCC1300X      56     A     
 FLY       #T       IFNE   TEST,0                                                          FCC1300X      57     A     
 FLY       N7A      MICRO  1,0,#       = ,NOPACK:NODE7A                                    FCCT003        4     A     
 FLY      ,                            [DET]:NODE1,SPES(1)                                 FCCT003        5     A     
 FLY      ,                            /ELSE:NODE1                               #         FCCT003        6     A     
 FLY       #T       ELSE                                                                   FCCT003        7     A     
 FLY       N7A      MICRO  1,0,#       = ,NOPACK:NODE7A                                    FLY          510     A     
 FLY      ,                            [DE]:NODE1,SPES(1)                                  FLY          511     A     
 FLY      ,                            /ELSE:NODE1                               #         FLY          512     A     
 FLY       #T       ENDIF                                                                  FCCT003        8     A     
 FLY       N8      MICRO  1,0,#        = ,NOPACK:NODE8                                     FLY          513     A     
 FLY      ,                            [0123456789=]:NODE8A,WIDTH(1)                       FLY          514     A     
 FLY      ,                            /ELSE:FATAL,FERROR(33)                    #         FLY          515     A     
 FLY       N8A      MICRO  1,0,#       =.:NODE1,SPES(0)                                    FLY          516     A     
 FLY      ,                            /ELSE:NODE1                               #         FLY          517     A     
 FLY       N9      MICRO  1,0,#        = ,NOPACK:NODE9                                     FLY          518     A     
 FLY      ,                            [0123456789=]:NODE1,TCODE                           FLY          519     A     
 FLY      ,                            /ELSE:FATAL,FERROR(34)                    #         FLY          520     A     
 FLY       N10     MICRO  1,0,#        = ,NOPACK:NODE10                                    FLY          521     A     
 FLY      ,                            =P:NODE12,NULLP                                     FLY          522     A     
 FLY      ,                            =X:NODE2,XPROC(0)                                   FLY          523     A     
 FLY      ,                            =V:NODE2,UERROR(22)                                 FLY          524     A     
 FLY      ,                            [0123456789=]:NODE11,NUMBER(0)                      FLY          525     A     
 FLY      ,                            /ELSE:FATAL,FERROR(35)                    #         FLY          526     A     
 FLY       N11      MICRO  1,0,#       =P:NODE12,RANGE(-1)                                 FLY          527     A     
 FLY      ,                            =X:NODE2,XPROC(1)                                   FLY          528     A     
 FLY      ,                            =V:NODE2,UERROR(22)                                 FLY          529     A     
 FLY      ,                            /ELSE:FATAL,FERROR(36)                    #         FLY          530     A     
 FLY       N12     MICRO  1,0,#        = ,NOPACK:NODE12                                    FLY          531     A     
 FLY      ,                            [DG]:NODE5,SPESSET(-3)                              FLY          532     A     
 FLY      ,                            =E:NODE5,SPESSET(-1)                                FLY          533     A     
 FLY      ,                            =V:NODE5,SPESSET(3)                                 FLY          534     A     
 FLY      ,                            =F:NODE5                                            FLY          535     A     
 FLY      ,                            [0123456789=]:NODE13,NUMBER(0)                      FLY          536     A     
 FLY      ,                            /ELSE:NODE2,UERROR(23)                    #         FLY          537     A     
 FLY       N13      MICRO  1,0,#       [DG]:NODE14,SPESSET(-3)                             FLY          538     A     
 FLY      ,                            =E:NODE14,SPESSET(-1)                               FLY          539     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2037    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FLY     
  
 FLY      ,                            =F:NODE14                                           FLY          540     A     
 FLY      ,                            =V:NODE5,SPESSET(3)                                 FLY          541     A     
 FLY      ,                            /ELSE:NODE3,UERROR(23)                    #         FLY          542     A     
 FLY       N14     MICRO  1,0,#        /ELSE:NODE5,RANGE(0)                      #         FLY          543     A     
 FLY                TITLE  TABLE GENERATING MACRO CALLS FOR TRANSITION DIAGRAM             FLY          544     A     
 FLY                NODEFN NODE,#                                                          FLY          545     A     
 FLY       NODE1    NODE   N1                                                              FLY          546     A     
 FLY       NODE2    NODE   N2                                                              FLY          547     A     
 FLY       NODE2P   NODE   N2P                                                             FLY          548     A     
 FLY       NODE3    NODE   N3                                                              FLY          549     A     
 FLY       NODE4    NODE   N4                                                              FLY          550     A     
 FLY       NODE4A   NODE   N4A                                                             FLY          551     A     
 FLY       NODE4B   NODE   N4B                                                             FCC1300X      58     A     
 FLY       NODE4C   NODE   N4C                                                             FCC1300X      59     A     
 FLY       NODE5    NODE   N5                                                              FLY          552     A     
 FLY       NODE6    NODE   N6                                                              FLY          553     A     
 FLY       NODE7    NODE   N7                                                              FLY          554     A     
 FLY       NODE7A   NODE   N7A                                                             FLY          555     A     
 FLY       NODE8    NODE   N8                                                              FLY          556     A     
 FLY       NODE8A   NODE   N8A                                                             FLY          557     A     
 FLY       NODE9    NODE   N9                                                              FLY          558     A     
 FLY       NODE10   NODE   N10                                                             FLY          559     A     
 FLY       NODE11   NODE   N11                                                             FLY          560     A     
 FLY       NODE12   NODE   N12                                                             FLY          561     A     
 FLY       NODE13   NODE   N13                                                             FLY          562     A     
 FLY       NODE14   NODE   N14                                                             FLY          563     A     
 FLY       FATAL    BSS    0                                                               FLY          564     A     
 FLY                SPACE  5                                                               FLY          565     A     
 FLY                END                                                                    FLY          566     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FLY     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FLY                        566       563
          FCCT003                      5         5
          FCC1300X                    11        11
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO   *DECK     LISTIO                                                                 LISTIO         1     A     
 LISTIO             IDENT  LISTIO                                                          LISTIO         2     A     
 LISTIO    LISTIO   TITLE  LISTIO -    I/O STATEMENT PROCESSOR                             LISTIO         3     A     
 LISTIO   *CALL     SSTCALL                                                                LISTIO         4     A     
 LISTIO             SPACE  3                                                               LISTIO         5     A     
 LISTIO   **        LISTIO - LIST DIRECTED I/O STATEMENT PROCESSOR.                        LISTIO         6     A     
 LISTIO             SPACE  3                                                               LISTIO         7     A     
 LISTIO    B=LSTIO  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             LISTIO         8     A     
 LISTIO             ENTRY  DOITX,DONEX                                                     LISTIO         9     A     
 LISTIO    IXFNCL   ENTRY.                                                                 LISTIO        10     A     
 LISTIO                                                                                    LISTIO        11     A     
 LISTIO             EXT    DOCALL,DOIT,DONE,DODEF,DOGOOF,INTVAR,ERPROI                     LISTIO        12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2038    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             EXT    IXFN,CONVERT,ERPRO,PH2RETN,RSELECT                              LISTIO        13     A     
 LISTIO             EXT    LABCON,VTYPE,PSYM,CONDEC,F.LFN                                  LISTIO        14     A     
 LISTIO             EXT    DATA.,DIRECT,IOAPLN,L.IOLST,NCA,SAVDAN,ST.                      LISTIO        15     A     
 LISTIO             EXT    O.IOLST                                                         LISTIO        16     A     
 LISTIO             EXT    KSSW,NTYPE,RSSW                                                 LISTIO        17     A     
 LISTIO             TABLES NML                                                             LISTIO        18     A     
 LISTIO                                                                                    LISTIO        19     A     
 LISTIO    SYM1     EQU    12B                                                             LISTIO        20     A     
 LISTIO    DIM1     EQU    17B                                                             LISTIO        21     A     
 LISTIO    SELIST   EQU    32B                                                             LISTIO        22     A     
 LISTIO    CDCNT    EQU    37B                                                             LISTIO        23     A     
 LISTIO    PROGRAM  EQU    56B               PROGRAM/SUBPROGRAM FLAG                       LISTIO        24     A     
 LISTIO    NRLN     EQU    64B                                                             LISTIO        25     A     
 LISTIO                                                                                    LISTIO        26     A     
 LISTIO             USE    /STSORD/          ST. STORE ORDINAL                             LISTIO        27     A     
 LISTIO    STSORD   BSS    1                                                               LISTIO        28     A     
 LISTIO             USE    *                                                               LISTIO        29     A     
 LISTIO                                                                                    LISTIO        30     A     
 LISTIO    APLRST   ENTRY.                                                                 LISTIO        31     A     
 LISTIO    BLEXP    ENTRY.                                                                 LISTIO        32     A     
 LISTIO    HOLCON   ENTRY.                                                                 LISTIO        33     A     
 LISTIO    INDFG    ENTRY.                                                                 LISTIO        34     A     
 LISTIO    IOEXP    ENTRY. 0           AP. FORMAT, 24/P1,18/CA,18/IH                       LISTIO        35     A     
 LISTIO    IONAME   ENTRY.                                                                 LISTIO        36     A     
 LISTIO    ITEMCT   ENTRY.                                                                 LISTIO        37     A     
 LISTIO    PARCNT   ENTRY.                                                                 LISTIO        38     A     
 LISTIO    TYPEFG   ENTRY.                                                                 LISTIO        39     A     
 LISTIO    LDFLAG   ENTRY.             LIST-DIRECTED-I/O FLAG                              LISTIO        40     A     
 LISTIO    BIO      ENTRY.                   BUFFER I/O FLAG                               LISTIO        41     A     
 LISTIO    CPLXC    ENTRY.             FLAGS CPLX CONST IN I/O LIST                        FCC0787      136     A     
 LISTIO             EJECT                                                                  LISTIO        42     A     
 LISTIO    E.CUL    EQU    18                CONFLICTING USE OF A NAME                     LISTIO        43     A     
 LISTIO    E.DO13   EQU    13                                                              LISTIO        44     A     
 LISTIO    E.BUN    EQU    26                BAD UNIT NUMBER                               LISTIO        45     A     
 LISTIO    E.IOSE   EQU    73                I/O STMT SYNTAX ERROR                         LISTIO        46     A     
 LISTIO    E.BFN    EQU    74                FORMAT NUMBER SYNTAX ERROR                    LISTIO        47     A     
 LISTIO    E.MIOL   EQU    77                MISSING I/O LIST OR SPURIOUS COMMA            LISTIO        48          I
          -FEAT155B 
 LISTIO    E.LC     EQU    77                BAD SPEC FOR LINE CONTROL                     FEAT155B      34     A     
 LISTIO    E.IONASA EQU    100               NON USAS I/O STMT                             LISTIO        49     A     
 LISTIO    E.EDC    EQU    107               CHAR COUNT ERROR IN EN/DECODE STMT            LISTIO        50     A     
 LISTIO    E.IOEXP  EQU    211               I/O EXPRESSIONS ARE NON ANSI                  LISTIO        51     A     
 LISTIO    E.BIO    EQU    212               BUFFER I/O BETWEEN SCM AND LCM                LISTIO        52     A     
 LISTIO    E.BIOA   EQU    307               FATAL FWA AND LWA ERROR IN BUFFER I/O         LISTIO        53          I
          -FCC0593
 LISTIO    E.BIO1   EQU    308               INFO FWA AND LWA ERROR IN BUFFER I/O          LISTIO        54     A     
 LISTIO    E.BIO2   EQU    309                                                             LISTIO        55          I
          -FCC0593
 LISTIO    E.PIE    EQU    213               PARITY NUMBER MUST BE 0 OR 1                  LISTIO        56     A     
 LISTIO    E.FNASA  EQU    223               FORMAT SPEC IS NON USAS                       LISTIO        57     A     
 LISTIO    E.IOND   EQU    309         I/O FILE NOT DEFINED                                FCC1670X       7     A     
 LISTIO    E.UNNIR  EQU    231               UNIT NUMBER NOT BETWEEN 1 AND 99              LISTIO        58     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2039    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO    DO4      EQU    4                 DO CONTROL VARIABLE MUST B SIMP INTGR         LISTIO        59     A     
 LISTIO    DO7      EQU    7                 DO PARM MUST BE INT CONST OR VARIABLE         LISTIO        60     A     
 LISTIO    LISTIOC  EQU    75                ARRAY REFERENCE OUTSIDE DIM BIUNDS            LISTIO        61     A     
 LISTIO    ARTH136  EQU    136               VARIABLE FOLLOWED BY  (                       LISTIO        62     A     
 LISTIO    ARTH157  EQU    157               ARRAY REFERENCED WITH FEWER SUBSCRPTS         LISTIO        63     A     
 LISTIO    ARTH195  EQU    195               TOO MANY SUBSCRIPTS IN ARRAY REFEREN          LISTIO        64     A     
 LISTIO    ARTH145  EQU    145               NO MATCHING RIGHT PARENTHESIS                 LISTIO        65     A     
 LISTIO    E.PIL    EQU    327         ILLEGAL SYNTAX IN IMPLIED DO SPEC                   FCC2285       10     A     
 LISTIO                                                                                    LISTIO        66     A     
 LISTIO    CONLOC   DIS    1,1                                                             LISTIO        67     A     
 LISTIO    CON1     VFD    12/2000B,3/1,17/0,10/1,18/CONLOC                                LISTIO        68     A     
 LISTIO    PLUS     VFD    12/2021B,48/6     + SIGN IN ELIST FOR MACRO IN COLAPR7          LISTIO        69     A     
 LISTIO             SPACE  2                                                               LISTIO        70     A     
 LISTIO   *         EQU"S FOR THE RLIST MACROS TO CALL THE EXECUTION TIME I/O              LISTIO        71     A     
 LISTIO   *         ROUTINES                                                               LISTIO        72     A     
 LISTIO                                                                                    LISTIO        73     A     
 LISTIO    PIO      RMEQU  12B         I/O USE/DEF MACRO                                   LISTIO        74     A     
 LISTIO    M.SXIT   RMEQU  6           IXFN SET                                            LISTIO        75     A     
 LISTIO    PIOMAX   EQU    29D         MAX NO. OF PARAMS IN PIO MACRO                      LISTIO        76     A     
 LISTIO    BEFCALL  RMEQU  121B        BASIC EXT FUNC CALL MACRO ORDINAL                   LISTIO        77     A     
 LISTIO    GEFWOTR  RMEQU  123B        EXT CALL WITHOUT TRACEBACK MACRO ORDINAL            LISTIO        78     A     
 LISTIO    GEFMC    RMEQU  124B        GENERAL EXT FUNC CALL MACRO ORDINAL                 LISTIO        79     A     
 LISTIO    STAPL    RMEQU  127B        STORE TO APLIST MACRO ORDINAL                       LISTIO        80     A     
 LISTIO    M.IOAPL  RMEQU  343B        I/O APLIST COMBINER                                 LISTIO        81     A     
 LISTIO    SSORI    RMEQU              SET, SHIFT OR                                       LISTIO        82     A     
 LISTIO    MSORI    RMEQU              MASK-SHIFT-OR MACRO ORDINAL                         LISTIO        83     A     
 LISTIO    M.V1     RMEQU              BASE OF PRODUCT DIMENSIONS R-MACROS                 LISTIO        84     A     
 LISTIO    M.IOLWC  RMEQU  354B        BASE OF COLLAPSED I/O LIST WORD COUNT MACROS        LISTIO        85     A     
 LISTIO    M.INDLD  RMEQU  415B        INDIRECT MODE LOAD MACRO ORDINAL                    LISTIO        86     A     
 LISTIO                                                                                    LISTIO        87     A     
 LISTIO    GEFCM    RMHDR  GEFMC,2                                                         LISTIO        88     A     
 LISTIO    RJBEF    RMHDR  BEFCALL,1         MACRO HEADER FOR 30 BIT RJ                    LISTIO        89     A     
 LISTIO    STRAPL   RMHDR  STAPL,3                                                         LISTIO        90     A     
 LISTIO    SETTYPE  RMHDR  SSORI,2                                                         LISTIO        91     A     
 LISTIO    SETVAR   RMHDR  MSORI,2                                                         LISTIO        92     A     
 LISTIO    GEFNT    RMHDR  GEFWOTR,2                                                       LISTIO        93     A     
 LISTIO                                                                                    LISTIO        94     A     
 LISTIO    PARAMS   SPACE  4                                                               LISTIO        95     A     
 LISTIO   *         FOLLOWING LOCATIONS ARE USED TO HOLD THE VALUES OF THE                 LISTIO        96     A     
 LISTIO   *         PARAMETERS THAT ARE PACKED BY "MACOUT" TO FORM THE RLIST MACRO         LISTIO        97     A     
 LISTIO                                                                                    LISTIO        98     A     
 LISTIO    MACLS1                            ORDINAL OF EXECUTION TIME ROUTINE             LISTIO        99     A     
 LISTIO    MACLS2                            ORDINAL OF LFN OR UNIT NUMBER                 LISTIO       100     A     
 LISTIO    MACLS3                            ORDINAL OF FORMAT NUMBER/NAMELIST GR          LISTIO       101     A     
 LISTIO    MACLS4                                                                          LISTIO       102     A     
 LISTIO                                                                                    LISTIO       103     A     
 LISTIO    MACLP1                            VARIABLE PARITY                               LISTIO       104     A     
 LISTIO    MACLP2                            VARIABLE UNIT NUMBER                          LISTIO       105     A     
 LISTIO    MACLP3                            VARIABLE FORMAT NUMBER                        LISTIO       106     A     
 LISTIO    MACLP4                                                                          LISTIO       107     A     
 LISTIO    MACLP5                                                                          LISTIO       108     A     
 LISTIO    MACLP6                                                                          LISTIO       109     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2040    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO                                                                                    LISTIO       110     A     
 LISTIO    MACLK1                            -1 FOR FINAL CALL OR PARITY FOR BUFFI         LISTIO       111     A     
 LISTIO    MACLK2                            WORD COUNT FOR INTERMEDIATE CALLS             LISTIO       112     A     
 LISTIO    MACLK3                            BINARY LINE COUNT ( FIRST CALL )              LISTIO       113     A     
 LISTIO    MACLK4                            TYPE OF THE SYMBOL                            LISTIO       114     A     
 LISTIO    MACROS   SPACE  3                                                               LISTIO       115     A     
 LISTIO   *         MP= - GENERATE AN R-NUMBER FOR A PARAMETER                             LISTIO       116     A     
 LISTIO   *         OR SET THE VALUE OF A PARAMETER TO THE CONTENTS OF A                   LISTIO       117     A     
 LISTIO   *         REGISTER OR A MEMORY CELL                                              LISTIO       118     A     
 LISTIO                                                                                    LISTIO       119     A     
 LISTIO    MP=      MACRO  MP,EXP                                                          LISTIO       120     A     
 LISTIO             LOCAL  MIC                                                             LISTIO       121     A     
 LISTIO             IFC    EQ,//EXP/,1                                                     LISTIO       122     A     
 LISTIO             ERR    MACRO MUST HAVE A SECOND PARAMETER                              LISTIO       123     A     
 LISTIO    R        IFC    EQ,/EXP/NRLN/                                                   LISTIO       124     A     
 LISTIO                                                                                    LISTIO       125     A     
 LISTIO   *         EXP = NRLN, GENERATE AN R NUMBER FOR THE PARAMETER                     LISTIO       126     A     
 LISTIO                                                                                    LISTIO       127     A     
 LISTIO             SA5    NRLN                                                            LISTIO       128     A     
 LISTIO             BX6    X5                                                              LISTIO       129     A     
 LISTIO             SX7    X5+B5                                                           LISTIO       130     A     
 LISTIO             SA6    MACL_MP           MP = NRLN                                     LISTIO       131     A     
 LISTIO             SA7    A5                ADVANCE NRLN                                  LISTIO       132     A     
 LISTIO    R        ELSE                                                                   LISTIO       133     A     
 LISTIO    C        IF     REG,EXP                                                         LISTIO       134     A     
 LISTIO                                                                                    LISTIO       135     A     
 LISTIO   *         EXP IS A REGISTER NAME                                                 LISTIO       136     A     
 LISTIO                                                                                    LISTIO       137     A     
 LISTIO    MIC      MICRO  1,1,/EXP/                                                       LISTIO       138     A     
 LISTIO    RT       IFC    NE,/"MIC"/X/                                                    LISTIO       139     A     
 LISTIO             SX6    EXP                                                             LISTIO       140     A     
 LISTIO    MIC      MICRO  1,,/6/                                                          LISTIO       141     A     
 LISTIO    RT       ELSE                                                                   LISTIO       142     A     
 LISTIO    MIC      MICRO  2,1,/EXP/                                                       LISTIO       143     A     
 LISTIO             IFLT   "MIC",6,2                                                       LISTIO       144     A     
 LISTIO             BX6    EXP                                                             LISTIO       145     A     
 LISTIO    MIC      MICRO  1,,/6/                                                          LISTIO       146     A     
 LISTIO    RT       ENDIF                                                                  LISTIO       147     A     
 LISTIO             SA"MIC"  MACL_MP         MP = EXP                                      LISTIO       148     A     
 LISTIO    C        ELSE                                                                   LISTIO       149     A     
 LISTIO                                                                                    LISTIO       150     A     
 LISTIO   *         EXP IS A CONSTANT                                                      LISTIO       151     A     
 LISTIO                                                                                    LISTIO       152     A     
 LISTIO             SA5    EXP               LOAD IT                                       LISTIO       153     A     
 LISTIO             BX6    X5                                                              LISTIO       154     A     
 LISTIO             SA6    MACL_MP           MP = EXP                                      LISTIO       155     A     
 LISTIO    C        ENDIF                                                                  LISTIO       156     A     
 LISTIO    R        ENDIF                                                                  LISTIO       157     A     
 LISTIO             ENDM                                                                   LISTIO       158     A     
 LISTIO             SPACE  2                                                               LISTIO       159     A     
 LISTIO   *         MACRO TO FETCH AND STORE THE ARGUMENT COUNT BEFORE AND AFTER           LISTIO       160     A     
 LISTIO   *         EACH SVARG CALL TO PROCESS AN ARGUMENT                                 LISTIO       161     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2041    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO   *                                                                                LISTIO       162     A     
 LISTIO    FORMARG  MACRO  TYPE,ARGNUM                                                     LISTIO       163     A     
 LISTIO             SA3    ARGCNT                                                          LISTIO       164     A     
 LISTIO             SB7    X3                                                              LISTIO       165     A     
 LISTIO             SVARG  TYPE,ARGNUM                                                     LISTIO       166     A     
 LISTIO             SX7    B7                                                              LISTIO       167     A     
 LISTIO             SA7    ARGCNT                                                          LISTIO       168     A     
 LISTIO             ENDM                                                                   LISTIO       169     A     
 LISTIO             SPACE  2                                                               LISTIO       170     A     
 LISTIO   *         MACRO TO PERFORM FMAC CALL, RESET THE ARGUMENT COUNT, AND              LISTIO       171     A     
 LISTIO   *         UPDATE THE DATA. BLOCK COUNT                                           LISTIO       172     A     
 LISTIO   *                                                                                LISTIO       173     A     
 LISTIO    FORMMAC  MACRO  MACNAME                                                         LISTIO       174     A     
 LISTIO             OUTUSE DATA.                                                           LISTIO       175     A     
 LISTIO             SA2    ARGCNT                                                          LISTIO       176     A     
 LISTIO             SA3    DATA.                                                           LISTIO       177     A     
 LISTIO             BX7    -X2                                                             LISTIO       178     A     
 LISTIO             SX6    X3+B5                                                           LISTIO       179     A     
 LISTIO             SA7    NARGS                                                           LISTIO       180     A     
 LISTIO             SA6    A3                                                              LISTIO       181     A     
 LISTIO             MX7    0                                                               LISTIO       182     A     
 LISTIO             SA3    PARCNT                                                          LISTIO       183     A     
 LISTIO             SA7    A2                                                              LISTIO       184     A     
 LISTIO             SX6    X3+B5                                                           LISTIO       185     A     
 LISTIO             SA6    A3                                                              LISTIO       186     A     
 LISTIO             FMAC   MACNAME                                                         LISTIO       187     A     
 LISTIO             ENDM                                                                   LISTIO       188     A     
 LISTIO             EJECT                                                                  LISTIO       189     A     
 LISTIO   *         SETS MACOP TO THE VALUE OF ARG                                         LISTIO       190     A     
 LISTIO   *         OR INCREMENTS MACOP IF ARG IS OF THE FORM:                             LISTIO       191     A     
 LISTIO   *         MACOP+XXX                                                              LISTIO       192     A     
 LISTIO                                                                                    LISTIO       193     A     
 LISTIO    MACOP=   MACRO  ARG                                                             LISTIO       194     A     
 LISTIO             LOCAL  MIC                                                             LISTIO       195     A     
 LISTIO    MIC      MICRO  1,6,/ARG/                                                       LISTIO       196     A     
 LISTIO                                                                                    LISTIO       197     A     
 LISTIO    M        IFC    EQ,/"MIC"/MACOP+/                                               LISTIO       198     A     
 LISTIO             SA3    MACOP                                                           LISTIO       199     A     
 LISTIO    MIC      MICRO  7,,/ARG/                                                        LISTIO       200     A     
 LISTIO             IFC    EQ,/"MIC"/1/,1                                                  LISTIO       201     A     
 LISTIO    MIC      MICRO  1,,/B5/                                                         LISTIO       202     A     
 LISTIO             SX7    X3+"MIC"                                                        LISTIO       203     A     
 LISTIO             SA7    A3                UPDATE MACOP                                  LISTIO       204     A     
 LISTIO                                                                                    LISTIO       205     A     
 LISTIO    M        ELSE                                                                   LISTIO       206     A     
 LISTIO             SX7    ARG                                                             LISTIO       207     A     
 LISTIO             SA7    MACOP                                                           LISTIO       208     A     
 LISTIO    M        ENDIF                                                                  LISTIO       209     A     
 LISTIO             ENDM                                                                   LISTIO       210     A     
 LISTIO                                                                                    LISTIO       211     A     
 LISTIO   *         IXFN - MACRO TO CALL "IXFN" IN "ARITH"                                 LISTIO       212     A     
 LISTIO   *                                                                                LISTIO       213     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2042    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO   *         "IXFN" IS CALLED THE THE I/O STATEMENT PROCESSOR TO LOAD THE           LISTIO       214     A     
 LISTIO   *         ADDRESS OF A SYMBOL ( UNSUBSCRIPTED OR SUBSCRIPTED )                   LISTIO       215     A     
 LISTIO   *                                                                                LISTIO       216     A     
 LISTIO    NOREF=   MICRO  1,,/MX2   60/     NO REFERENCE FLAG FOR IXFN                    LISTIO       217     A     
 LISTIO                                                                                    LISTIO       218     A     
 LISTIO    IXFN     MACRO  FLAG              CALL IXFN                                     LISTIO       219     A     
 LISTIO    O        IFC    NE,//FLAG/                                                      LISTIO       220     A     
 LISTIO    I        IF     DEF,FLAG                                                        LISTIO       221     A     
 LISTIO             SA2    FLAG                                                            LISTIO       222     A     
 LISTIO    I        ELSE                                                                   LISTIO       223     A     
 LISTIO             "FLAG="                                                                LISTIO       224     A     
 LISTIO    I        ENDIF                                                                  LISTIO       225     A     
 LISTIO    O        ENDIF                                                                  LISTIO       226     A     
 LISTIO             RJ     IXFNL                                                           LISTIO       227     A     
 LISTIO             ENDM                                                                   LISTIO       228     A     
 LISTIO                                                                                    LISTIO       229     A     
 LISTIO    ASAERR   MACRO                    POST ASA ERROR FOR NON USAS I/O STMT          LISTIO       230     A     
 LISTIO             SB6    -E.IONASA                                                       LISTIO       231     A     
 LISTIO   +         SB7    *+1                                                             LISTIO       232     A     
 LISTIO             EQ     =XASAER                                                         LISTIO       233     A     
 LISTIO             ENDM                                                                   LISTIO       234     A     
 LISTIO                                                                                    LISTIO       235     A     
 LISTIO    FMT      MICRO  1,,/B5/           1S0 - FORMATTED I/O                           LISTIO       236     A     
 LISTIO    ^FMT     MICRO  1,,/B5+B5/        1S1                                           LISTIO       237     A     
 LISTIO    BUF      MICRO  1,,/1S2/          BUFFER I/O                                    LISTIO       238     A     
 LISTIO    NAML     MICRO  1,,/1S3/          NAMELIST I/O                                  LISTIO       239     A     
 LISTIO    FREE     MICRO  1,,/1S4/          FREE FORM I/O                                 LISTIO       240     A     
 LISTIO                                                                                    LISTIO       241     A     
 LISTIO    FMODE    MACRO  MODE              SET FILE MODE                                 LISTIO       242     A     
 LISTIO             SX5    "MODE"                                                          LISTIO       243     A     
 LISTIO             RJ     SFMODE                                                          LISTIO       244     A     
 LISTIO             ENDM                                                                   LISTIO       245     A     
 LISTIO   *CALL     PARSEM                                                                 LISTIO       246     A     
 LISTIO   *CALL     FMACDEF                                                                LISTIO       247     A     
 LISTIO    STORAGE  SPACE  3                                                               LISTIO       248     A     
 LISTIO    NAME     MACRO  N                                                               LISTIO       249          I
          -F162FTNA 
 LISTIO             DATA   8R_N                                                            LISTIO       250          I
          -F162FTNA 
 LISTIO             ENDM                                                                   LISTIO       251          I
          -F162FTNA 
 LISTIO    TABLES   SPACE  3                                                               LISTIO       252          I
          -F162FTNA 
 LISTIO                                                                                    F162FTNA     896     A     
 LISTIO   **                                                                               F162FTNA     897     A     
 LISTIO             PURGMAC STLTAB                                                         FCCA408      208     A     
 LISTIO    STLTAB   MACRO  DNAM                                                            F162FTNA     898     A     
 LISTIO    DNAM     =      .STL                                                            F162FTNA     899     A     
 LISTIO    .STL     SET    .STL+1                                                          F162FTNA     900     A     
 LISTIO    STLTAB   ENDM                                                                   F162FTNA     901     A     
 LISTIO                                                                                    F162FTNA     902     A     
 LISTIO    .STL     SET    0                                                               F162FTNA     903     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2043    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO                                                                                    F162FTNA     904     A     
 LISTIO   *CALL,STLOAD                                                                     F162FTNA     905     A     
 LISTIO                                                                                    F162FTNA     906     A     
 LISTIO                                                                                    F162FTNA     907     A     
 LISTIO   **        TABLE OF NAMES OF THE EXECUTION TIME ROUTINES                          LISTIO       253     A     
 LISTIO   *         ONE SHOULD NOTE THAT THIS TABLE IS INDEXED INTO BY USING               LISTIO       254     A     
 LISTIO   *         THE VALUE OF THE INPUT/OUTPUT FLAG ( "IOFLAG" ) AND                    LISTIO       255     A     
 LISTIO   *         THE BINARY/CODED OP FLAG                                               LISTIO       256     A     
 LISTIO                                                                                    LISTIO       257     A     
 LISTIO    IOTAB    NAME   OUTBI.            BINARY OUTPUT                                 LISTIO       258          I
          -F162FTNA 
 LISTIO    NAME     MACRO  EPT,DNAM                                                        F162FTNA     908     A     
 LISTIO             LOCAL  D                                                               F162FTNA     909     A     
 LISTIO    D        SET    DNAM  -2                                                        F162FTNA     910     A     
 LISTIO             VFD    12/2000B+D,48/8R_EPT                                            F162FTNA     911     A     
 LISTIO    NAME     ENDM                                                                   F162FTNA     912     A     
 LISTIO                                                                                    F162FTNA     913     A     
 LISTIO                                                                                    F162FTNA     914     A     
 LISTIO    IOTAB    NAME   OUTBI.,STLOBI.    BINARY OUTPUT                                 F162FTNA     915     A     
 LISTIO             NAME   OUTBR.                                                          LISTIO       259     A     
 LISTIO                                                                                    LISTIO       260     A     
 LISTIO             NAME   OUTCI.            CODED OUTPUT                                  LISTIO       261          I
          -F162FTNA 
 LISTIO             NAME   OUTCI.,STLOCO.    CODED OUTPUT                                  F162FTNA     916     A     
 LISTIO             NAME   OUTCR.                                                          LISTIO       262     A     
 LISTIO                                                                                    LISTIO       263     A     
 LISTIO             NAME   OUTFI.            FREE FORM OUTPUT                              LISTIO       264          I
          -F162FTNA 
 LISTIO             NAME   OUTFI.,STLOCO.    LIST-DIRECTED OUTPUT                          F162FTNA     917     A     
 LISTIO             NAME   OUTFR.                                                          LISTIO       265     A     
 LISTIO                                                                                    LISTIO       266     A     
 LISTIO             NAME   INPBI.            BINARY INPUT                                  LISTIO       267          I
          -F162FTNA 
 LISTIO             NAME   INPBI.,STLIBI.    BINARY INPUT                                  F162FTNA     918     A     
 LISTIO             NAME   INPBR.                                                          LISTIO       268     A     
 LISTIO                                                                                    LISTIO       269     A     
 LISTIO             NAME   INPCI.            CODED INPUT                                   LISTIO       270          I
          -F162FTNA 
 LISTIO             NAME   INPCI.,STLICO.    CODED INPUT                                   F162FTNA     919     A     
 LISTIO             NAME   INPCR.                                                          LISTIO       271     A     
 LISTIO                                                                                    LISTIO       272     A     
 LISTIO             NAME   INPFI.            FREE FORM INPUT                               LISTIO       273          I
          -F162FTNA 
 LISTIO             NAME   INPFI.,STLICO.    LIST-DIRECTED INPUT                           F162FTNA     920     A     
 LISTIO             NAME   INPFR.                                                          LISTIO       274     A     
 LISTIO                                                                                    LISTIO       275     A     
 LISTIO    EDTAB    NAME   ENCODI.           ENCODE                                        LISTIO       276     A     
 LISTIO             NAME   ENCODR.                                                         LISTIO       277     A     
 LISTIO                                                                                    LISTIO       278     A     
 LISTIO             NAME   DECODI.           DECODE                                        LISTIO       279     A     
 LISTIO             NAME   DECODR.                                                         LISTIO       280     A     
 LISTIO                                                                                    LISTIO       281     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2044    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO    NAMLTAB  NAME   NAMOUT.           NAMELIST                                      LISTIO       282          I
          -F162FTNA 
 LISTIO             NAME   NAMIN.                                                          LISTIO       283          I
          -F162FTNA 
 LISTIO                                                                                    LISTIO       284          I
          -F162FTNA 
 LISTIO    BUFFTAB  NAME   BUFOUT.           BUFFER I/O                                    LISTIO       285          I
          -F162FTNA 
 LISTIO             NAME   BUFIN.                                                          LISTIO       286          I
          -F162FTNA 
 LISTIO                                                                                    LISTIO       287          I
          -F162FTNA 
 LISTIO    NAMLTAB  NAME   NAMOUT.,STLOCO.   NAMELIST OUTPUT                               F162FTNA     921     A     
 LISTIO             NAME   NAMIN.,STLICO.    NAMELIST INPUT                                F162FTNA     922     A     
 LISTIO                                                                                    F162FTNA     923     A     
 LISTIO    BUFFTAB  NAME   BUFOUT.,STLOBU.   BUFFER OUT                                    F162FTNA     924     A     
 LISTIO             NAME   BUFIN.,STLIBU.    BUFFER IN                                     F162FTNA     925     A     
 LISTIO                                                                                    F162FTNA     926     A     
 LISTIO    ENDFTAB  NAME   ENDFIL.,STLENF.   ENDFILE                                       F162FTNA     927     A     
 LISTIO    REWTAB   NAME   REWIND.,STLREW.   REWIND                                        F162FTNA     928     A     
 LISTIO    BKSPTAB  NAME   BACKSP.,STLBAK.   BACKSPACE                                     F162FTNA     929     A     
 LISTIO             SPACE  4                                                               F162FTNA     930     A     
 LISTIO    IOFLAG                            0 FOR A WRITE                                 LISTIO       288     A     
 LISTIO   *                                  1S59 FOR A READ                               LISTIO       289     A     
 LISTIO   *                                  1 FOR A POSITIONING ROUTINE                   LISTIO       290     A     
 LISTIO                                                                                    LISTIO       291     A     
 LISTIO    PIOFLAG  BSS    1           + IF ITEM DEFINED,- IF ITEM USED                    LISTIO       292     A     
 LISTIO   *                            ^0 IF ENTER NAME IN IOLST,0 OTHERWISE               LISTIO       293     A     
 LISTIO    PIOBUF   BSS    1           TEMP FOR INDEX TO IOLST TABLE                       LISTIO       294     A     
 LISTIO    SYMORD   BSS    1           TEMP FOR SYMTAB ORD                                 LISTIO       295     A     
 LISTIO    FMTORD   DATA   0           TEMP FOR FORMAT SYMTAB ORD                          FCC2202       44     A     
 LISTIO    TINDX    BSS    1           INDEX TO IOLST (OR NML) TABLE                       LISTIO       296     A     
 LISTIO    TLEN     EQU    PIOBUF      COUNT FOR NO. OF PARAMS IN NML                      LISTIO       297     A     
 LISTIO    CRFLAG   ENTRY. 0           ^0 IF AN ARRAY REF S/B CLASS REF                    LISTIO       298     A     
 LISTIO    END=                              DEFAULT EOF LABEL CELL                        LISTIO       299     A     
 LISTIO    TEMP                              A GENERAL TEMPORARY                           LISTIO       300     A     
 LISTIO    TEMPA                             SECOND GENERAL TEMPORARY                      LISTIO       301     A     
 LISTIO    ARGCNT   BSS    1                 ARGUMENT COUNT FOR IOM MACRO                  LISTIO       302     A     
 LISTIO                                                                                    LISTIO       303     A     
 LISTIO    MACOP                             VALUE OF CURRENT MACRO OP                     LISTIO       304     A     
 LISTIO    MACBUF   BSS    18                MACRO BUFFER FOR RLIST                        LISTIO       305     A     
 LISTIO                                                                                    LISTIO       306     A     
 LISTIO    MACOPC   BSSZ   1                 COLLAPSE CODE MACRO NUMBER                    LISTIO       307     A     
 LISTIO    MACSYM   BSSZ   1                 MACRO SYMBOL STORAGE LOCATION                 LISTIO       308          I
          -FCC0544
 LISTIO    LCMFG    BSSZ   2                 LEVEL FLAGS FOR BUFFER I/O                    LISTIO       309     A     
 LISTIO    COLAPL   BSSZ   1                 COLLAPSE LOOP ITERATION NO.                   LISTIO       310     A     
 LISTIO    ARYADD   BSSZ   1                 ARRAY ADDRESS                                 LISTIO       311     A     
 LISTIO    NAMDEX   BSSZ   3                 STORES THE INDICES...I,J,K                    LISTIO       312     A     
 LISTIO    TENCOL   BSSZ   1                 TENATIVE COLLAPSE LEVEL                       LISTIO       313     A     
 LISTIO    NOCAL    BSSZ   1                 ADDRESS OF A NON COLLAPSIBLE ARRAY            LISTIO       314     A     
 LISTIO    COLLAPS  BSSZ   1                 ( COUNT = POSSIBLE COLLAPSE LEVEL             LISTIO       315     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2045    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO    ARNAM    BSSZ   1                 ARRAY NAME                                    LISTIO       316     A     
 LISTIO    DIMWRD   BSSZ   1                 WORD 2  OF THE DIM TABLE                      LISTIO       317     A     
 LISTIO    DIMVAL   BSSZ   1                 DIMENSION SPECIFICATION VARIABLE              LISTIO       318     A     
 LISTIO    INDX     BSSZ   12                HOLDS I,I1,I2,I3,...ETC.                      LISTIO       319     A     
 LISTIO    SAVELIS  BSSZ   1                 SAVE THE ELIS ADDRESS                         LISTIO       320     A     
 LISTIO    NODIMS   BSSZ   1                 NUMBER OF ARRAY DIMENSIONS AS DEFINED         LISTIO       321     A     
 LISTIO    TEMP1    EQU    MACBUF      SYMTAB ORD FOR REF MAP                              FCC0544        4     A     
 LISTIO    MACSYM   BSSZ   1           COUNT OF VARIABLE PARAMS IN I/O LOOP                FCC0544        5     A     
 LISTIO    COLAP    BSS    4           (EQUIVED) BASE OF ARRAY AND INDICES                 FCC0544        6     A     
 LISTIO    TEMPB    BSSZ   1           TEMPORARY FOR SUBSCRIPTS W/O INDIC5S                LISTIO       322     A     
 LISTIO    VFFLAG   BSSZ   1           VARIABLE FORMAT FLAG                                FCC2202       45     A     
 LISTIO    TEMPBI   EQU    MACBUF+2    TEMPORARY FOR SUBSCRIPT BIAS                        LISTIO       323     A     
 LISTIO    TEMPBA   EQU    MACBUF+7    TEMPORARY FOR SUBSCRIPT BASE                        LISTIO       324     A     
 LISTIO    SNTI     BSS    1           NAME TABLE INDEX TEMP FOR PROFL                     LISTIO       325     A     
 LISTIO    UNITLIM  EQU    100         MAXIMUM UNIT NUMBER-1 ALLOWED                       FCC1286        5     A     
 LISTIO             TITLE              SUBROUTINES                                         LISTIO       326     A     
 LISTIO   ***                                                                              LISTIO       327     A     
 LISTIO   *         IXFNL - LOCAL VERSION OF IXFN                                          LISTIO       328     A     
 LISTIO   *                                                                                LISTIO       329     A     
 LISTIO   *         ENTRY  X2 = REFMAP REFERENCE TYPE FLAG                                 LISTIO       330     A     
 LISTIO   *                X3 = EXPRESSION FLAG                                            LISTIO       331     A     
 LISTIO   *                                                                                LISTIO       332     A     
 LISTIO   *         EXIT                                                                   LISTIO       333     A     
 LISTIO   *                A0,A1,A2,X1,X2,B1,B2 SET AS IF EXITED FROM "SYMBOL"             LISTIO       334     A     
 LISTIO   *                X0 = V.DEF BIT                                                  LISTIO       335     A     
 LISTIO   *                X6 = NRLN-1  ( RESULT NUMBER FOR THE LOAD )                     LISTIO       336     A     
 LISTIO   *                                                                                LISTIO       337     A     
 LISTIO    IXFNL    ENTRY. *                 ** ENTRY/EXIT **                              LISTIO       338     A     
 LISTIO             BX6    X2                                                              LISTIO       339     A     
 LISTIO             CALL   IXFN                                                            LISTIO       340     A     
 LISTIO             RJ     PLI                                                             LISTIO       341     A     
 LISTIO             SA3    SYM1                                                            LISTIO       342     A     
 LISTIO             SB5    1                                                               LISTIO       343     A     
 LISTIO             SA0    X3                                                              LISTIO       344     A     
 LISTIO             SB1    X2                B1 = SYMTAB ORDINAL                           LISTIO       345     A     
 LISTIO             SB2    B1+B1                                                           LISTIO       346     A     
 LISTIO             SA1    A0-B2                                                           LISTIO       347     A     
 LISTIO             SA2    A1-B5                                                           LISTIO       348     A     
 LISTIO             SA4    NRLN                                                            LISTIO       349     A     
 LISTIO             SX6    X4-1                                                            LISTIO       350     A     
 LISTIO             SX0    V.DEF                                                           LISTIO       351     A     
 LISTIO             EQ     IXFNL                                                           LISTIO       352     A     
 LISTIO             SPACE  2                                                               LISTIO       353     A     
 LISTIO   ***                                                                              LISTIO       354     A     
 LISTIO   *         IOSETUP - SETUP ROUTINE FOR I/O PROCESSING                             LISTIO       355     A     
 LISTIO   *                                                                                LISTIO       356     A     
 LISTIO    IOSETUP  ENTRY. *                 ** ENTRY/EXIT **                              LISTIO       357     A     
 LISTIO             OUTUSE DATA.                                                           LISTIO       358     A     
 LISTIO             SA1    IOAPLN            I/O APLIST NUMBER                             LISTIO       359     A     
 LISTIO             SX2    X1+B5             INCREMENT TO X2 FOR NUMBER CALL               LISTIO       360     A     
 LISTIO             BX6    X2                                                              LISTIO       361     A     
 LISTIO             SA6    A1                                                              LISTIO       362     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2046    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO                                                                                    LISTIO       363     A     
 LISTIO             SA4    =3R]IO                                                          LISTIO       364     A     
 LISTIO             BX7    X4                SET UP RESULT FIELD                           LISTIO       365     A     
 LISTIO             SB1    42                SHIFT COUNT                                   LISTIO       366     A     
 LISTIO             RJ     CNVT                                                            LISTIO       367     A     
 LISTIO             SA4    =6LBSS 0B                                                       LISTIO       368     A     
 LISTIO             SX6    1R                BLANK FILL CHARACTER                          LISTIO       369     A     
 LISTIO    FILL     LX7    6                                                               LISTIO       370     A     
 LISTIO             SB1    B1-6              DECREMENT SHIFT COUNT                         LISTIO       371     A     
 LISTIO             IX7    X7+X6             ADD FILL CHARACTER                            LISTIO       372     A     
 LISTIO             NZ     B1,FILL           MORE FILL NEEDED                              LISTIO       373     A     
 LISTIO                                                                                    LISTIO       374     A     
 LISTIO             SB1    1                                                               LISTIO       375     A     
 LISTIO             BX6    X4                                                              LISTIO       376     A     
 LISTIO             SA7    MACBUF                                                          LISTIO       377     A     
 LISTIO             SA6    A7+B5                                                           LISTIO       378     A     
 LISTIO             WRITEC =XF.CMPS,MACBUF,2                                               LISTIO       379     A     
 LISTIO                                                                                    LISTIO       380     A     
 LISTIO             SX7    B0                                                              LISTIO       381     A     
 LISTIO             SB5    B1                                                              LISTIO       382     A     
 LISTIO             SA7    ARGCNT            RUNNING COUNT OF FORMARG CALLS                LISTIO       383     A     
 LISTIO             SA7    PARCNT            RUNNING COUNT OF I/O PARAMETERS               LISTIO       384     A     
 LISTIO             SA7    PEDT        ENCODE-FLAG FOR *IOL*                               FCC0413        6     A     
 LISTIO             EQ     IOSETUP                                                         LISTIO       385     A     
 LISTIO             SPACE  3                                                               LISTIO       386     A     
 LISTIO   ***                                                                              LISTIO       387     A     
 LISTIO   *         CNVT - CONVERTS BINARY NUMBER IN X2 TO BCD,                            LISTIO       388     A     
 LISTIO   *         LEAVING RESULT IN X7 UPON EXIT                                         LISTIO       389     A     
 LISTIO   *         ON ENTRY B1 CONTAINS AN APPROPRIATE SHIFT COUNT                        LISTIO       390     A     
 LISTIO   *                                                                                LISTIO       391     A     
 LISTIO    CNVT     ENTRY.                                                                 LISTIO       392     A     
 LISTIO             SX4    1R0                                                             LISTIO       393     A     
 LISTIO             SB2    6                 MAX CHARACTERS                                LISTIO       394     A     
 LISTIO             LX2    42                POSITION BINARY NUMBER                        LISTIO       395     A     
 LISTIO             MX5    57                                                              LISTIO       396     A     
 LISTIO             SX6    B0                                                              LISTIO       397     A     
 LISTIO    N1       SB2    B2-B5             CHARACTER COUNT                               LISTIO       398     A     
 LISTIO             NG     B2,CNVT           IF SIX CHARACTERS ALREADY PROCESSED           LISTIO       399     A     
 LISTIO             LX2    3                 POSITION NEXT 3 BITS OF NUMBER                LISTIO       400     A     
 LISTIO             BX3    -X5*X2            EXTRACT BITS                                  LISTIO       401     A     
 LISTIO             NZ     X6,N2             IF NON ZERO CHARACTER                         LISTIO       402     A     
 LISTIO             ZR     X3,N1             IF LEADING ZERO                               LISTIO       403     A     
 LISTIO    N2       IX3    X4+X3             CONVERT TO DISPLAY CODE                       LISTIO       404     A     
 LISTIO             LX7    6                 POSITION RESULT WORD                          LISTIO       405     A     
 LISTIO             SB1    B1-6              DECREMENT SHIFT COUNT                         LISTIO       406     A     
 LISTIO             IX7    X7+X3             ADD NEW CHARACTER                             LISTIO       407     A     
 LISTIO             SX6    B5                SET NON ZERO CHARACTER FOUND                  LISTIO       408     A     
 LISTIO             EQ     N1                                                              LISTIO       409     A     
 LISTIO             EJECT                                                                  LISTIO       410     A     
 LISTIO   ***                                                                              LISTIO       411     A     
 LISTIO   *         CFSIV - CHECK FOR SIMPLE INTEGER VARIABLE                              LISTIO       412     A     
 LISTIO   *                                                                                LISTIO       413     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2047    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO   *         ON ENTRY:                                                              LISTIO       414     A     
 LISTIO   *                B6 = ERROR NUMBER                                               LISTIO       415     A     
 LISTIO   *                X1,X2 = WORDS A AND B OF SYMTAB ENTRY                           LISTIO       416     A     
 LISTIO   *                                                                                LISTIO       417     A     
 LISTIO   *         EXITS WITH X3 = 0 IF SYMBOL IS A SIMPLE INTEGER VARIABLE               LISTIO       418     A     
 LISTIO   *         ELSE IT EXITS TO ERPRO                                                 LISTIO       419     A     
 LISTIO   *                                                                                LISTIO       420     A     
 LISTIO    CFSIV    ENTRY. *                 ** ENTRY/EXIT **                              LISTIO       421     A     
 LISTIO             BX0    X1                                                              LISTIO       422     A     
 LISTIO             LX0    59-P.DIM                                                        LISTIO       423     A     
 LISTIO             NG     X0,CFSIV1         ERROR IF DIMENSIONED                          LISTIO       424     A     
 LISTIO             BX0    X2                                                              LISTIO       425     A     
 LISTIO             AX0    P.TYP                                                           LISTIO       426     A     
 LISTIO             SX3    X0-T.INT                                                        LISTIO       427     A     
 LISTIO             ZR     X3,CFSIV          EXIT IF INTEGER                               LISTIO       428     A     
 LISTIO                                                                                    LISTIO       429     A     
 LISTIO    CFSIV1   SX2    B1                                                              LISTIO       430     A     
 LISTIO             RJ     PSYM              SET UP X3 AND X4                              LISTIO       431     A     
 LISTIO    IOERRX   SB7    PH2RETN                                                         LISTIO       432     A     
 LISTIO             EQ     ERPRO                                                           LISTIO       433     A     
 LISTIO                                                                                    LISTIO       434     A     
 LISTIO    CFSIV    MACRO  ERNUM             MACRO TO CALL CFSIV                           LISTIO       435     A     
 LISTIO             SB6    ERNUM                                                           LISTIO       436     A     
 LISTIO             RJ     CFSIV                                                           LISTIO       437     A     
 LISTIO             ENDM                                                                   LISTIO       438     A     
 LISTIO             SPACE  3                                                               LISTIO       439     A     
 LISTIO   ***                                                                              LISTIO       440     A     
 LISTIO   *         NAMLIST - PROCESS NAMLIST I/O                                          LISTIO       441     A     
 LISTIO   *                                                                                LISTIO       442     A     
 LISTIO   *         ON ENTRY:                                                              LISTIO       443     A     
 LISTIO   *                B1 = SYMTAB ORDINAL OF THE NAMELIST GROUP NAME                  LISTIO       444     A     
 LISTIO   *                X2 = WORD B OF GROUP NAME                                       LISTIO       445     A     
 LISTIO   *                                                                                LISTIO       446     A     
 LISTIO    NAMLIST  ENTRY. *                 ** ENTRY/EXIT **                              LISTIO       447     A     
 LISTIO             GETE                                                                   LISTIO       448     A     
 LISTIO             IF.NE  EL.EOS,IOERR  IF NOT *EOS*                                      LISTIO       449     A     
 LISTIO             RJ     ONI         OUTPUT NAMELIST ITEMS TO RLIST                      LISTIO       450     A     
 LISTIO             SX6    B1                                                              LISTIO       451     A     
 LISTIO             SA6    TEMP                                                            LISTIO       452     A     
 LISTIO             FORMARG NAME,1                                                         LISTIO       453     A     
 LISTIO             FORMMAC IOM              ISSUE MACRO TO COMPS FILE                     LISTIO       454     A     
 LISTIO                                                                                    LISTIO       455     A     
 LISTIO             SA5    RSELECT                                                         LISTIO       456     A     
 LISTIO             ZR     X5,NAMLIST1       IF R = 0                                      LISTIO       457     A     
 LISTIO             ADDREF TEMP,REF          ADD REFERENCE FOR THE GROUP NAME              LISTIO       458     A     
 LISTIO                                                                                    LISTIO       459     A     
 LISTIO    NAMLIST1 FMODE  NAML              SET THE FILE MODE                             LISTIO       460     A     
 LISTIO             SA3    IOFLAG                                                          LISTIO       461     A     
 LISTIO             LX3    1                                                               LISTIO       462     A     
 LISTIO             SA1    NAMLTAB+X3        FETCH NAME OF EXECUTION TIME ROUTINE          LISTIO       463     A     
 LISTIO             RJ     IOLIST                                                          LISTIO       464     A     
 LISTIO             EQ     NAMLIST                                                         LISTIO       465     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2048    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             TITLE  PVARNAM - PROCESS VARIABLE NAMES                                LISTIO       466     A     
 LISTIO   ***                                                                              LISTIO       467     A     
 LISTIO   *         PVARNAM - PROCESS VARIABLES USED AS FILE, PARITY                       LISTIO       468     A     
 LISTIO   *         INDICATOR, FORMAT, OR CHAR COUNT NAMES                                 LISTIO       469     A     
 LISTIO   *         ISSUE APPROPRIATE IOM MACRO FOR THE NAME                               LISTIO       470     A     
 LISTIO   *                                                                                LISTIO       471     A     
 LISTIO   *         ON ENTRY -  B4 - 0 IF FILE/PARITY NAME                                 LISTIO       472     A     
 LISTIO   *                          1 IF FMT, CHAR COUNT NAME                             LISTIO       473     A     
 LISTIO   *                     X1 - WORD A OF SYMTAB ENTRY FOR NAME                       LISTIO       474     A     
 LISTIO   *                     X2 - WORD B                                                LISTIO       475     A     
 LISTIO   *                                                                                LISTIO       476     A     
 LISTIO    PVARNAM  ENTRY. *                 ** ENTRY/EXIT **                              LISTIO       477     A     
 LISTIO             BX7    X2                                                              LISTIO       478     A     
 LISTIO             LX2    -P.LCM      LCM/ECS RESIDENT FLAG                               LISTIO       479     A     
 LISTIO             MX6    -1                                                              LISTIO       480     A     
 LISTIO             BX6    -X6*X2                                                          LISTIO       481     A     
 LISTIO             LX2    P.LCM       REPOSITION                                          LISTIO       482     A     
 LISTIO             SB3    X6          LCM INDICATOR                                       LISTIO       483     A     
 LISTIO             SA7    LCMFG+B7                                                        LISTIO       484     A     
 LISTIO             SB2    59-P.FP                                                         LISTIO       485     A     
 LISTIO             LX0    B2,X1                                                           LISTIO       486     A     
 LISTIO             ZR     B3,PVN0     IF NOT LCM                                          LISTIO       487     A     
 LISTIO             ZR     B4,PVN3     IF FILE NAME OR PARITY INDICATOR                    LISTIO       488     A     
 LISTIO    PVN0     PL     X0,PVN3     IF NOT F.P.                                         LISTIO       489     A     
 LISTIO             SX6    B1-2              F.P. OFFSET                                   LISTIO       490     A     
 LISTIO             FORMARG OCT,2                                                          LISTIO       491     A     
 LISTIO             NZ     B4,PVN1           IF NOT A FILE/PARITY NAME                     LISTIO       492     A     
 LISTIO             SX6    B5                                                              LISTIO       493     A     
 LISTIO             FORMARG INT,5                                                          LISTIO       494     A     
 LISTIO             SA3    LDFLAG                                                          LISTIO       495     A     
 LISTIO             SX6    X3          1 IF WRITE OR PUNCH, 0 OTHERWISE                    LISTIO       496     A     
 LISTIO             ZR     X6,PVARNAM  IF NOT WRITE OR PUNCH                               LISTIO       497     A     
 LISTIO             FORMARG INT,6                                                          LISTIO       498     A     
 LISTIO             EQ     PVARNAM                                                         LISTIO       499     A     
 LISTIO    PVN1     ZR     B3,PVN2           IF NOT AN LCM VARIABLE                        LISTIO       500     A     
 LISTIO             SX6    B5                                                              LISTIO       501     A     
 LISTIO             FORMARG INT,5                                                          LISTIO       502     A     
 LISTIO    PVN2     SX6    B5                                                              LISTIO       503     A     
 LISTIO             FORMARG INT,6                                                          LISTIO       504     A     
 LISTIO             SA1    NCA               CONSTANT ADDEND                               LISTIO       505     A     
 LISTIO             BX6    X1                                                              LISTIO       506     A     
 LISTIO             FORMARG OCT,7                                                          LISTIO       507     A     
 LISTIO             EQ     PVARNAM                                                         LISTIO       508     A     
 LISTIO    PVN3     BSS    0                                                               LISTIO       509     A     
 LISTIO    #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   LISTIO       510     A     
 LISTIO             ZR     B3,PVN5           IF NOT AN LCM VARIABLE                        LISTIO       511     A     
 LISTIO             NZ     B4,PVN4           IF NOT FILE/PARITY NAME                       LISTIO       512     A     
 LISTIO             MX7    0                                                               LISTIO       513     A     
 LISTIO             SA7    MACSYM            REQUIRED FOR EQUIVP CALL                      LISTIO       514     A     
 LISTIO             RJ     EQUIVP            SEE IF EQUIVALENCED                           LISTIO       515     A     
 LISTIO             MP=    S1,X6             SYMTAB ORDINAL TO S1                          LISTIO       516     A     
 LISTIO             MP=    K1,X7             CA TO K1                                      LISTIO       517     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2049    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             MP=    P1,NRLN           RESULT NUMBER TO P1                           LISTIO       518     A     
 LISTIO             SA1    ST.               ORDINAL OF ST.                                LISTIO       519     A     
 LISTIO             BX6    X1                                                              LISTIO       520     A     
 LISTIO             MP=    S2,X6             PLACE IN S2                                   LISTIO       521     A     
 LISTIO             FORMARG NAME,1                                                         LISTIO       522     A     
 LISTIO             SA1    STSORD            CA FOR ST.                                    LISTIO       523     A     
 LISTIO             BX6    X1                                                              LISTIO       524     A     
 LISTIO             SX7    X1+B5                                                           LISTIO       525     A     
 LISTIO             SA7    A1                RESTORE INCREMENTED VALUE                     LISTIO       526     A     
 LISTIO             MP=    K2,X6             PLACE IN K2                                   LISTIO       527     A     
 LISTIO             FORMARG OCT,2                                                          LISTIO       528     A     
 LISTIO             SX6    B5                                                              LISTIO       529     A     
 LISTIO             FORMARG INT,5            SET VAR BIT                                   LISTIO       530     A     
 LISTIO             SA3    LDFLAG                                                          LISTIO       531     A     
 LISTIO             SX6    X3          1 IF WRITE OR PUNCH, 0 OTHERWISE                    LISTIO       532     A     
 LISTIO             ZR     X6,PVN3A    IF NOT WRITE OR PUNCH                               LISTIO       533     A     
 LISTIO             FORMARG INT,6                                                          LISTIO       534     A     
 LISTIO                                                                                    LISTIO       535     A     
 LISTIO    PVN3A    BSS    0                                                               LISTIO       536     A     
 LISTIO             MX6    0                                                               LISTIO       537     A     
 LISTIO             SA6    MACOPC                                                          LISTIO       538     A     
 LISTIO             MACOP= M.INDLD     INDIRECT MODE LOAD                                  LISTIO       539     A     
 LISTIO             RJ     MACOUT            ISSUE MACRO                                   LISTIO       540     A     
 LISTIO             EQ     PVARNAM                                                         LISTIO       541     A     
 LISTIO    PVN4     SA3    DIRECT                                                          LISTIO       542     A     
 LISTIO             ZR     X3,PVN5           IF DIRECT MODE                                LISTIO       543     A     
 LISTIO                                                                                    LISTIO       544     A     
 LISTIO             RJ     FII         FORM INDIRECT-MODE IOM ITEM                         LISTIO       545     A     
 LISTIO             SX6    B5                                                              LISTIO       546     A     
 LISTIO             FORMARG INT,5            SET LCM BIT                                   LISTIO       547     A     
 LISTIO             SX6    B5                                                              LISTIO       548     A     
 LISTIO             FORMARG INT,6            SET VAR BIT                                   LISTIO       549     A     
 LISTIO             EQ     PVARNAM                                                         LISTIO       550     A     
 LISTIO    #DAL     ENDIF                                                                  LISTIO       551     A     
 LISTIO                                                                                    LISTIO       552     A     
 LISTIO    PVN5     MX7    0                                                               LISTIO       553          I
          -FCC0544
 LISTIO             SA7    MACSYM            REQUIRED FOR EQUIVP CALL                      LISTIO       554          I
          -FCC0544
 LISTIO             RJ     EQUIVP            SEE IF EQUIVALENCED                           LISTIO       555          I
          -FCC0544
 LISTIO    PVN5     RJ     EQUIVP      FIND BASE AND BIAS OF NAME                          FCC0544        7     A     
 LISTIO             SB2    X7                                                              LISTIO       556     A     
 LISTIO             FORMARG NAME,1                                                         LISTIO       557     A     
 LISTIO             SA1    NCA               CONSTANT ADDEND                               LISTIO       558     A     
 LISTIO             SX6    X1+B2             CA + EQUIV BIAS                               LISTIO       559     A     
 LISTIO             FORMARG OCT,2                                                          LISTIO       560     A     
 LISTIO    PVN6     ZR     B4,PVN7           IF A FILE/PARITY NAME                         LISTIO       561     A     
 LISTIO             ZR     B3,PVN8           IF NOT AN LCM VARIABLE                        LISTIO       562     A     
 LISTIO    PVN7     SX6    B5                                                              LISTIO       563     A     
 LISTIO             FORMARG INT,5                                                          LISTIO       564     A     
 LISTIO             NZ     B4,PVN8     IF NOT FILE/PARITY NAME                             LISTIO       565     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2050    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SA3    LDFLAG                                                          LISTIO       566     A     
 LISTIO             SX6    X3          1 IF WRITE OR PUNCH, 0 OTHERWISE                    LISTIO       567     A     
 LISTIO             ZR     X6,PVARNAM  IF NOT WRITE OR PUNCH                               LISTIO       568     A     
 LISTIO    PVN8     SX6    B5                                                              LISTIO       569     A     
 LISTIO             FORMARG INT,6                                                          LISTIO       570     A     
 LISTIO             EQ     PVARNAM                                                         LISTIO       571     A     
 LISTIO    FII      TITLE  FORM INDIRECT MODE LCM IOM ITEM.                                LISTIO       572     A     
 LISTIO   **        FII--FORM INDIRECT MODE IOM ITEM.                                      LISTIO       573     A     
 LISTIO   *                                                                                LISTIO       574     A     
 LISTIO   *         FII FORMS FIRST TWO ARGUMENTS (BASE AND BIAS) OF AN IOM                LISTIO       575     A     
 LISTIO   *         MACRO FOR AN LCM VARIABLE IN INDIRECT MODE.  THESE ARGUMENTS           LISTIO       576     A     
 LISTIO   *         REPRESENT BASE AND BIAS RESPECTIVELY.                                  LISTIO       577     A     
 LISTIO   *                                                                                LISTIO       578     A     
 LISTIO   *         ENTRY - (X1) = SYMTAB WORD A OF ITEM.                                  LISTIO       579     A     
 LISTIO   *                 (X2) =        WORD B OF ITEM.                                  LISTIO       580     A     
 LISTIO   *                                                                                LISTIO       581     A     
 LISTIO    #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   LISTIO       582     A     
 LISTIO    FII      ENTRY. *                                                               LISTIO       583     A     
 LISTIO             SX6    1                                                               LISTIO       584     A     
 LISTIO             SA6    =XIAF       FOR FMAC                                            LISTIO       585     A     
 LISTIO             SX6    B1          SYMTAB ORDINAL                                      LISTIO       586     A     
 LISTIO             FORMARG  NAME,1                                                        LISTIO       587     A     
 LISTIO             SA3    NCA                                                             LISTIO       588     A     
 LISTIO             BX6    X3                                                              LISTIO       589     A     
 LISTIO             FORMARG OCT,2                                                          LISTIO       590     A     
 LISTIO             EQ     FII                                                             LISTIO       591     A     
 LISTIO    #DAL     ENDIF                                                                  LISTIO       592     A     
 LISTIO             TITLE              FMTNO - PROCESS FORMAT NUMBER                       LISTIO       593     A     
 LISTIO    ASAFLAG                                                                         LISTIO       594     A     
 LISTIO   ***                                                                              LISTIO       595     A     
 LISTIO   *         FMTNO - PROCESS FORMAT NUMBER                                          LISTIO       596     A     
 LISTIO   *                                                                                LISTIO       597     A     
 LISTIO   *         ON ENTRY:                                                              LISTIO       598     A     
 LISTIO   *                SELIST POINTS TO FORMAT NUMBER                                  LISTIO       599     A     
 LISTIO   *                                                                                LISTIO       600     A     
 LISTIO   *         ON EXIT:                                                               LISTIO       601     A     
 LISTIO   *                B1 = SYMTAB ORDINAL OF FORMAT NUMBER OR GROUP NAME              LISTIO       602     A     
 LISTIO   *                X3 = INDEX INTO I/O NAME TABLE                                  LISTIO       603     A     
 LISTIO   *                                                                                LISTIO       604     A     
 LISTIO                                                                                    LISTIO       605     A     
 LISTIO    FMTNOX   SA5    RSELECT                                                         LISTIO       606     A     
 LISTIO             ZR     X5,FMTNOX1        IF NO LONG MAP                                LISTIO       607     A     
 LISTIO             SA2    TEMP                                                            LISTIO       608     A     
 LISTIO             ADDREF X2,REF            ADD A REFERENCE FOR THE NAME                  LISTIO       609     A     
 LISTIO                                                                                    LISTIO       610     A     
 LISTIO    FMTNOX1  FMODE  FMT               SET FILE MODE                                 LISTIO       611     A     
 LISTIO             SX3    2                 INDEX TO I/O TABLE                            LISTIO       612     A     
 LISTIO                                                                                    LISTIO       613     A     
 LISTIO             SA1    TEMP              SYMTAB ORDINAL                                LISTIO       614     A     
 LISTIO             SB1    X1                                                              LISTIO       615     A     
 LISTIO             MX0    59                                                              LISTIO       616     A     
 LISTIO                                                                                    LISTIO       617     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2051    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO    FMTNO    ENTRY. *                 ** ENTRY/EXIT **                              LISTIO       618     A     
 LISTIO             ADVIN                    GET CURRENT ELEMENT                           LISTIO       619     A     
 LISTIO             MX6    0                                                               LISTIO       620     A     
 LISTIO             SA6    LDFLAG      CLEAR LIST-DIRECTED FLAG                            LISTIO       621     A     
 LISTIO             IF.NE  NAME,FMTNO.C      IF NOT A NAME                                 LISTIO       622     A     
 LISTIO             SYMBOL                   SEARCH SYMTAB FOR THE NAME                    LISTIO       623     A     
 LISTIO             EQ     FMTNO.F           FIRST OCCURANCE                               LISTIO       624     A     
 LISTIO                                                                                    LISTIO       625     A     
 LISTIO    FMTNO1   MX0    L.TYP                                                           LISTIO       626     A     
 LISTIO             BX3    X0*X2                                                           LISTIO       627     A     
 LISTIO             LX3    L.TYP                                                           LISTIO       628     A     
 LISTIO             SX0    X3-T.NML                                                        LISTIO       629     A     
 LISTIO             ZR     X0,FMTNO          EXIT IF NAMELIST                              LISTIO       630     A     
 LISTIO                                                                                    LISTIO       631     A     
 LISTIO             BACKE                    BACK UP E-LIST POINTER                        LISTIO       632     A     
 LISTIO                                                                                    LISTIO       633     A     
 LISTIO             SX7    B5                                                              LISTIO       634     A     
 LISTIO             SA7    CRFLAG      SPECIAL CASE CLASS REF CHECK                        LISTIO       635     A     
 LISTIO             SX3    B5                NO EXPRESSION FLAG                            LISTIO       636     A     
 LISTIO             MX6    59                                                              LISTIO       637     A     
 LISTIO             SA6    IXFNCL      SIGNAL VARIABLE FORMAT                              LISTIO       638     A     
 LISTIO             SA6    VFFLAG      SET VARIABLE FORMAT FLAG                            FCC2202       46     A     
 LISTIO             IXFN   REF               PROCESS NAME                                  LISTIO       639     A     
 LISTIO             SX0    V.DIM                                                           FCC0529        4     A     
 LISTIO             SX7    B1                                                              LISTIO       640     A     
 LISTIO             BX0    X0*X1                                                           FCC0529        5     A     
 LISTIO             SA7    TEMP                                                            LISTIO       641     A     
 LISTIO             IX7    X0+X3                                                           FCC0529        6          I
          -FCC0888
 LISTIO             BX7    X0                                                              FCC0888        4     A     
 LISTIO             SA4    APLRST                                                          LISTIO       642     A     
 LISTIO             SA7    ASAFLAG           NON-ZERO IF DIM                               FCC0529        7     A     
 LISTIO             ZR     X4,FMTNO1A        STORE TO APLIST NOT NEEDED                    LISTIO       643     A     
 LISTIO             SA1    SETVAR            MACRO TO SET VAR BIT FOR FORMAT WORD          LISTIO       644     A     
 LISTIO             SA3    NRLN              NEXT AVAILABLE R NUMBER                       LISTIO       645     A     
 LISTIO             LX6    16                RF NUMBER FROM ARRAY LOAD                     LISTIO       646     A     
 LISTIO             BX7    X1+X3             MACRO HEADER                                  LISTIO       647     A     
 LISTIO             BX6    X6+X3             R NUMBERS                                     LISTIO       648     A     
 LISTIO             SX1    B5                MASK VALUE                                    LISTIO       649     A     
 LISTIO             SA7    MACBUF                                                          LISTIO       650     A     
 LISTIO             SX4    58                SHIFT COUNT                                   LISTIO       651     A     
 LISTIO             SA6    A7+B5                                                           LISTIO       652     A     
 LISTIO             LX4    18                                                              LISTIO       653     A     
 LISTIO             BX7    X4+X1             CONSTANT NUMBERS                              LISTIO       654     A     
 LISTIO             SX6    X3+B5             INCREMENT R NUMBER                            LISTIO       655     A     
 LISTIO             SA7    A6+B5                                                           LISTIO       656     A     
 LISTIO             SB4    3                 MACRO WORD COUNT                              LISTIO       657     A     
 LISTIO             SA6    A3                                                              LISTIO       658     A     
 LISTIO             BX6    X3                RESULT NAME FOR STORE TO APLIST               LISTIO       659     A     
 LISTIO             RJ     PSTAPL            GENERATE STORE TO APLIST MACROS               LISTIO       660     A     
 LISTIO             RJ     STIOM             ISSUE -1 APLIST MACRO WORD                    LISTIO       661     A     
 LISTIO             EQ     FMTNO3                                                          LISTIO       662     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2052    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO                                                                                    LISTIO       663     A     
 LISTIO    FMTNO1A  SB4    B5                SET FOR FMT NAME                              LISTIO       664     A     
 LISTIO             SB7    B5                                                              LISTIO       665     A     
 LISTIO             RJ     PVARNAM           PROCESS FORMAT NAME                           LISTIO       666     A     
 LISTIO             FORMMAC IOM              ISSUE MACRO TO COMPS FILE                     LISTIO       667     A     
 LISTIO                                                                                    LISTIO       668     A     
 LISTIO    FMTNO3   SA3    ASAFLAG                                                         LISTIO       669     A     
 LISTIO             MX6    0                                                               LISTIO       670          I
          -FCC0529
 LISTIO             SA6    A3                                                              LISTIO       671          I
          -FCC0529
 LISTIO             SX0    V.DIM                                                           LISTIO       672          I
          -FCC0529
 LISTIO             BX4    X0*X1             EXTRACT DIM BIT                               LISTIO       673          I
          -FCC0529
 LISTIO             IX5    X3+X4                                                           LISTIO       674          I
          -FCC0529
 LISTIO             NZ     X5,FMTNOX1        IF DIM OR PREVIOUS OCCURANCES                 LISTIO       675          I
          -FCC0529
 LISTIO             NZ     X3,FMTNOX1        IF DIM                                        FCC0529        8     A     
 LISTIO                                                                                    LISTIO       676     A     
 LISTIO             SB6    -E.FNASA          NON-ANSI VARIABLE FORMAT                      LISTIO       677     A     
 LISTIO             SB7    FMTNOX1                                                         LISTIO       678     A     
 LISTIO             EQ     ASAER                                                           LISTIO       679     A     
 LISTIO                                                                                    LISTIO       680     A     
 LISTIO    FMTNO.F  ZR     X7,FMTNO.F1       IN NO PREVIOUS USE IN DEBUG STMTS             LISTIO       681     A     
 LISTIO             CFO    VAR               CHECK SETTING OF DEBUG BITS                   LISTIO       682     A     
 LISTIO                                                                                    LISTIO       683     A     
 LISTIO    FMTNO.F1 SX0    B5                                                              LISTIO       684     A     
 LISTIO             IX2    X6+X2             SET TYPE                                      LISTIO       685     A     
 LISTIO             LX0    P.VAR                                                           LISTIO       686     A     
 LISTIO             BX7    X0+X2             SET VAR BIT                                   LISTIO       687     A     
 LISTIO             SA7    A2                                                              LISTIO       688     A     
 LISTIO             SA7    ASAFLAG           SET ASAFLAG                                   LISTIO       689          I
          -FCC0529
 LISTIO             EQ     FMTNO1                                                          LISTIO       690     A     
 LISTIO                                                                                    LISTIO       691     A     
 LISTIO   *         PROCESS CONSTANT FORMAT NUMBER                                         LISTIO       692     A     
 LISTIO                                                                                    LISTIO       693     A     
 LISTIO    FMTNO.C  SB6    -E.BFN            BAD FORMAT NUMBER                             LISTIO       694     A     
 LISTIO             IF.NE  CON,FMTNO.FF      IF NOT A CONSTANT                             LISTIO       695     A     
 LISTIO             AX1    45                                                              LISTIO       696     A     
 LISTIO             SX2    X1-T.INT                                                        LISTIO       697     A     
 LISTIO             SA1    X4                FETCH CONSTANT                                LISTIO       698     A     
 LISTIO             AX4    18                                                              LISTIO       699     A     
 LISTIO             SB1    X4                CHARACTER COUNT                               LISTIO       700     A     
 LISTIO             SB2    B1-6                                                            LISTIO       701     A     
 LISTIO             NZ     X2,IOERRX         IF NOT AN INTEGER CONSTANT                    LISTIO       702     A     
 LISTIO             PL     B2,IOERRX         IF MORE THAN 5 DIGITS                         LISTIO       703     A     
 LISTIO                                                                                    LISTIO       704     A     
 LISTIO   +         SB7    *+1                                                             LISTIO       705     A     
 LISTIO             EQ     LABCON            GO CONVERT NUMBER AND ENTER IN SYMTAB         LISTIO       706     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2053    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             EQ     FMTNO2            FIRST OCCURANCE                               LISTIO       707     A     
 LISTIO                                                                                    LISTIO       708     A     
 LISTIO             SX0    M.FNCHK                                                         LISTIO       709     A     
 LISTIO             LX0    P.FNCHK           DSN , RAS AND DLT                             LISTIO       710     A     
 LISTIO             BX3    X0*X2                                                           LISTIO       711     A     
 LISTIO             SB6    E.CUL                                                           LISTIO       712     A     
 LISTIO             NZ     X3,CFSIV1         IF PREVIOUSLY USED AS A STMT LABEL            LISTIO       713     A     
 LISTIO                                                                                    LISTIO       714     A     
 LISTIO    SLAB     BIT    P.TYP-P.RFN                                                     LISTIO       715     A     
 LISTIO    FMTNO2   SX0    T.LAB*SLAB+1                                                    LISTIO       716     A     
 LISTIO             LX0    P.RFN                                                           LISTIO       717     A     
 LISTIO             BX7    X0+X2             SET TYPE AND RFN BITS                         LISTIO       718     A     
 LISTIO             SA7    A2                                                              LISTIO       719     A     
 LISTIO             SX6    B1                SYMTAB ORDINAL                                LISTIO       720     A     
 LISTIO             FORMARG NAME,1                                                         LISTIO       721     A     
 LISTIO             SX7    B1                                                              LISTIO       722     A     
 LISTIO             SA7    TEMP                                                            LISTIO       723     A     
 LISTIO             SA7    FMTORD      SAVE FORMAT SYM ORD FOR RLIST                       FCC2202       47     A     
 LISTIO             FORMMAC IOM              ISSUE MACRO TO COMPS FILE                     LISTIO       724     A     
 LISTIO             EQ     FMTNOX            GO ADD A REFERENCE FOR THIS LABEL             LISTIO       725     A     
 LISTIO                                                                                    LISTIO       726     A     
 LISTIO    FMTNO.FF IF.NE  EL.STAR,IOERRX                                                  LISTIO       727     A     
 LISTIO             FMODE  FREE              SET FILE MODE                                 LISTIO       728     A     
 LISTIO             SB6    -E.FNASA                                                        LISTIO       729     A     
 LISTIO   +         SB7    *+1         RETURN ADDRESS                                      LISTIO       730     A     
 LISTIO             EQ     ASAER       LIST-DIRECTED FORMAT NON-ANSI                       LISTIO       731     A     
 LISTIO             MX6    1                                                               LISTIO       732     A     
 LISTIO             SA6    LDFLAG      LIST-DIRECTED FORMAT                                LISTIO       733     A     
 LISTIO             MX0    59                                                              LISTIO       734     A     
 LISTIO             SX3    4                 INDEX TO I/O TABLE                            LISTIO       735     A     
 LISTIO             EQ     FMTNO                                                           LISTIO       736     A     
 LISTIO             SPACE  3                                                               LISTIO       737     A     
 LISTIO    TAPEN    VFD    12/0,48/4LTAPE                                                  LISTIO       738     A     
 LISTIO    UNITF                             UNIT/PARITY INDICATOR                         LISTIO       739     A     
 LISTIO                                                                                    LISTIO       740     A     
 LISTIO    UNITN.E  SB6    -E.BUN            BAD UNIT NUMBER                               LISTIO       741     A     
 LISTIO             EQ     IOERRX                                                          LISTIO       742     A     
 LISTIO    UNITN.B  SB6    -E.UNNIR          UNIT NUMBER OUT OF RANGE                      LISTIO       743     A     
 LISTIO             EQ     IOERRX                                                          LISTIO       744     A     
 LISTIO             TITLE              UNITN - PROCESS UNIT NUMBER                         LISTIO       745     A     
 LISTIO   ***                                                                              LISTIO       746     A     
 LISTIO   *         UNITN - PROCESS UNIT NUMBER OR PARITY INDICATOR                        LISTIO       747     A     
 LISTIO   *         ON ENTRY:                                                              LISTIO       748     A     
 LISTIO   *                X7 = 0 IF UNIT/ 1 IF PARITY                                     LISTIO       749     A     
 LISTIO   *                                                                                LISTIO       750     A     
 LISTIO   *         ON EXIT:                                                               LISTIO       751     A     
 LISTIO   *                X3 = 0 IF VARIABLE PARITY, ELSE X1 = BINARY NUMBER              LISTIO       752     A     
 LISTIO   *                                                                                LISTIO       753     A     
 LISTIO    UNITN    ENTRY. *                 ** ENTRY/EXIT **                              LISTIO       754     A     
 LISTIO             SA7    UNITF             SAVE UNIT/PARITY FLAG                         LISTIO       755     A     
 LISTIO             GETE                     GET E LIST ELEMENT                            LISTIO       756     A     
 LISTIO             IF.EQ  CON,UNITN.C       IF A CONSTANT                                 LISTIO       757     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2054    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             IF.NE  NAME,UNITN.E      IF NOT A NAME                                 LISTIO       758     A     
 LISTIO                                                                                    LISTIO       759     A     
 LISTIO   *         PROCESS VARIABLE UNIT/PARITY INDICATOR                                 LISTIO       760     A     
 LISTIO                                                                                    LISTIO       761     A     
 LISTIO             NEXTE                    GET NEXT E                                    LISTIO       762     A     
 LISTIO             IF.EQ  EL.),UNITN1                                                     LISTIO       763     A     
 LISTIO             IF.NE  EL.COMMA,UNITN.E  IF NOT A ) OR ,                               LISTIO       764     A     
 LISTIO                                                                                    LISTIO       765     A     
 LISTIO    UNITN1   SX7    B5                                                              LISTIO       766     A     
 LISTIO             SX3    B5                                                              LISTIO       767     A     
 LISTIO             SA7    IXFNCL      PROCESSING UNIT NAME IN READ/WRITE                  LISTIO       768     A     
 LISTIO             IXFN   FREF              PROCESS NAME                                  LISTIO       769     A     
 LISTIO             CFSIV  E.BUN             CHECK FOR A SIMPLE INTEGER VARIABLE           LISTIO       770     A     
 LISTIO             SB4    B0                SET FOR FILE/PARITY NAME                      LISTIO       771     A     
 LISTIO             SB7    B5                                                              LISTIO       772     A     
 LISTIO             RJ     PVARNAM           PROCESS FILE/PARITY NAME                      LISTIO       773     A     
 LISTIO             FORMMAC IOM              ISSUE MACRO TO COMPS FILE                     LISTIO       774     A     
 LISTIO             MX3    0                 RESULT OF CFSIV CALL                          LISTIO       775     A     
 LISTIO             EQ     UNITN             EXIT IF OK                                    LISTIO       776     A     
 LISTIO                                                                                    LISTIO       777     A     
 LISTIO   *         PROCESS CONSTANT UNIT/PARITY INDICATOR                                 LISTIO       778     A     
 LISTIO   *         UNIT NUMBER - CONVERT FILE NAME TO TAPEN# AND CALL PLFN                LISTIO       779     A     
 LISTIO                                                                                    LISTIO       780     A     
 LISTIO    UNITN.C  UPDATE                   ADVANCE E-LIST POINTER                        LISTIO       781     A     
 LISTIO             AX1    45                                                              LISTIO       782     A     
 LISTIO             SX2    X1-T.INT                                                        LISTIO       783     A     
 LISTIO             NZ     X2,UNITN.E        IF NOT TYPE INTEGER                           LISTIO       784     A     
 LISTIO             BX1    X4                                                              LISTIO       785     A     
 LISTIO             SB1    -B5                                                             LISTIO       786     A     
 LISTIO             RJ     CONVERT           CONVERT TO BINARY                             LISTIO       787     A     
 LISTIO             SA3    UNITF                                                           LISTIO       788     A     
 LISTIO             NZ     X3,UNITN          EXIT IF PARITY                                LISTIO       789     A     
 LISTIO             SX2    X1-100                                                          LISTIO       790          I
          -FCC1286
 LISTIO             PL     X2,UNITN.B        ERROR IF NUMBER \ 99                          LISTIO       791          I
          -FCC1286
 LISTIO             =X2    UNITLIM                                                         FCC1286        6     A     
 LISTIO             IX2    X1-X2                                                           FCC1286        7     A     
 LISTIO             PL     X2,UNITN.B  IF UNIT NUMBER .GT. 99 (ERROR)                      FCC1286        8     A     
 LISTIO             SB1    1                                                               LISTIO       792     A     
 LISTIO             CALL   CDD               RETURNS (X6) = DPC CONVERTED INTEGER          LISTIO       793     A     
 LISTIO             SA2    TAPEN                                                           LISTIO       794     A     
 LISTIO             SX7    1R"C"-1R                                                        LISTIO       795     A     
 LISTIO             SB5    B1                                                              LISTIO       796     A     
 LISTIO             LX6    6                                                               LISTIO       797     A     
 LISTIO             SB3    18                                                              LISTIO       798     A     
 LISTIO             IX6    X6+X7             NN"C"                                         LISTIO       799     A     
 LISTIO             SB4    B3-B2                                                           LISTIO       800     A     
 LISTIO             LX5    B4,X6             POSITION TO BIT 24                            LISTIO       801     A     
 LISTIO             MX0    36                                                              LISTIO       802     A     
 LISTIO             BX4    -X0*X5            4R NN"C"                                      LISTIO       803     A     
 LISTIO             BX1    X2+X4             8RTAPENN"C"                                   LISTIO       804     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2055    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             RJ     PLFN              PROCESS THE FILE NAME                         LISTIO       805     A     
 LISTIO             EQ     UNITN                                                           LISTIO       806     A     
 LISTIO             EJECT                                                                  LISTIO       807     A     
 LISTIO   ***                                                                              LISTIO       808     A     
 LISTIO   *         PLFN - PROCESS FILE NAME                                               LISTIO       809     A     
 LISTIO   *                                                                                LISTIO       810     A     
 LISTIO   *         ON ENTRY:                                                              LISTIO       811     A     
 LISTIO   *                X1 = 8R_FILE NAME                                               LISTIO       812     A     
 LISTIO   *                                                                                LISTIO       813     A     
 LISTIO                                                                                    LISTIO       814     A     
 LISTIO    PLFN1    SA3    F.LFN             FILE NAME BITS                                LISTIO       815     A     
 LISTIO             BX7    X3+X2                                                           LISTIO       816     A     
 LISTIO             SA7    A2                UPDATE WORD B OF SYMTAB                       LISTIO       817     A     
 LISTIO                                                                                    LISTIO       818     A     
 LISTIO             SX6    A2                                                              LISTIO       819          I
          -FCC1670X 
 LISTIO             SA6    LFNA              SAVE ADDRESS OF WORD B                        LISTIO       820          I
          -FCC1670X 
 LISTIO             SX7    A2                                                              FCC1670X       8     A     
 LISTIO             SA7    LFNA        SAVE ADDRESS OF WORD B                              FCC1670X       9     A     
 LISTIO             SA6    LFNB        SAVE I/O FILE NAME                                  FCC1670X      10     A     
 LISTIO                                                                                    LISTIO       821     A     
 LISTIO             SA3    F.LFN                                                           LISTIO       822     A     
 LISTIO             SA4    PROGRAM                                                         LISTIO       823     A     
 LISTIO             LX3    59-P.EXT                                                        LISTIO       824     A     
 LISTIO             UX0    B7,X4                                                           LISTIO       825     A     
 LISTIO             NG     X3,PLFN2          IF FILES OPTION NOT SELECTED                  LISTIO       826     A     
 LISTIO                                                                                    LISTIO       827     A     
 LISTIO   *         FILES OPTION - ENTER FILE NAME IN CON TABLE                            LISTIO       828     A     
 LISTIO                                                                                    LISTIO       829     A     
 LISTIO             MP=    S2,B1             SAVE SYMTAB ORDINAL                           LISTIO       830     A     
 LISTIO                                                                                    LISTIO       831     A     
 LISTIO             MX0    1                 DELETE TRAILING BLANKS FROM THE NAME          LISTIO       832     A     
 LISTIO             SB7    18                                                              LISTIO       833     A     
 LISTIO             MX7    60-6                                                            LISTIO       834     A     
 LISTIO   +         AX2    B7,X1                                                           LISTIO       835     A     
 LISTIO             BX3    -X7*X2                                                          LISTIO       836     A     
 LISTIO             SX4    X3-1R                                                           LISTIO       837     A     
 LISTIO             SB7    B7+6                                                            LISTIO       838     A     
 LISTIO             ZR     X4,*-1            LOOP IF A BLANK                               LISTIO       839     A     
 LISTIO             SB7    B7-59             DELETE TRAILING "C" CHARACTER                 LISTIO       840     A     
 LISTIO             LX0    B7,X0             MASK(LNAME)                                   LISTIO       841     A     
 LISTIO             BX1    X0*X1             EXTRACT NAME                                  LISTIO       842     A     
 LISTIO             SB1    B5                                                              LISTIO       843     A     
 LISTIO             CALL   CONVERT           ENTER IN THE CONTABLE                         LISTIO       844     A     
 LISTIO             SX6    X1                SYMTAB ORD                                    LISTIO       845     A     
 LISTIO             FORMARG NAME,1                                                         LISTIO       846     A     
 LISTIO             AX1    30                                                              LISTIO       847     A     
 LISTIO             SX6    X1                CA                                            LISTIO       848     A     
 LISTIO             FORMARG OCT,2                                                          LISTIO       849     A     
 LISTIO             SX6    B5                                                              LISTIO       850     A     
 LISTIO             FORMARG INT,5                                                          LISTIO       851     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2056    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SA3    LDFLAG                                                          LISTIO       852     A     
 LISTIO             SX6    X3          1 IF WRITE OR PUNCH, 0 OTHERWISE                    LISTIO       853     A     
 LISTIO             ZR     X6,PLFN1A   IF NOT WRITE OR PUNCH                               LISTIO       854     A     
 LISTIO             FORMARG INT,6                                                          LISTIO       855     A     
 LISTIO                                                                                    LISTIO       856     A     
 LISTIO    PLFN1A   BSS    0                                                               LISTIO       857     A     
 LISTIO             SA1    MACLS2                                                          LISTIO       858     A     
 LISTIO             SB1    X1                RESTORE B1                                    LISTIO       859     A     
 LISTIO             EQ     PLFN3                                                           LISTIO       860     A     
 LISTIO                                                                                    LISTIO       861     A     
 LISTIO    PLFN2    SX6    B1                SYMTAB ORDINAL                                LISTIO       862     A     
 LISTIO             FORMARG NAME,1                                                         LISTIO       863     A     
 LISTIO             SA3    LDFLAG                                                          LISTIO       864     A     
 LISTIO             SX6    X3          1 IF WRITE OR PUNCH, 0 OTHERWISE                    LISTIO       865     A     
 LISTIO             ZR     X6,PLFN3    IF NOT WRITE OR PUNCH                               LISTIO       866     A     
 LISTIO             FORMARG INT,6                                                          LISTIO       867     A     
 LISTIO                                                                                    LISTIO       868     A     
 LISTIO    PLFN3    SA5    RSELECT                                                         LISTIO       869     A     
 LISTIO             ZR     X5,PLFN4          IF R = 0                                      LISTIO       870     A     
 LISTIO             SA2    IOFLAG            READ/WRITE/POS FLAG                           LISTIO       871     A     
 LISTIO             RJ     ADDREF            ADD A REFERENCE TO THE FILE                   LISTIO       872     A     
 LISTIO                                                                                    LISTIO       873     A     
 LISTIO    PLFN4    FORMMAC IOM              ISSUE MACRO TO COMPS FILE                     LISTIO       874     A     
 LISTIO             SA3    PROGRAM                                                         FCC1670X      11     A     
 LISTIO             UX6    B7,X3                                                           FCC1670X      12     A     
 LISTIO             NZ     B7,PLFN     IF NOT A MAIN PROGRAM                               FCC1670X      13     A     
 LISTIO             SA3    LFNB                                                            FCC1670X      14     A     
 LISTIO             ZR     X3,PLFN     IF I/O FILE DEFINED                                 FCC1670X      15     A     
 LISTIO             POSTER NR=E.IOND,SEV=INF,FMT=DPC,TXT=X3                                FCC1670X      16     A     
 LISTIO                                                                                    LISTIO       875     A     
 LISTIO    PLFN     ENTRY. *                 ** ENTRY/EXIT **                              LISTIO       876     A     
 LISTIO             SYMBOL ,PLFN1            GET THE SYMTAB ORD                            LISTIO       877          I
          -FCC1670X 
 LISTIO             SYMBOL   ,PLFN5                                                        FCC1670X      17     A     
 LISTIO    PLFN5    EQ     PLFN6                                                           FCC1670X      18     A     
 LISTIO                                                                                    FCC1670X      19     A     
 LISTIO    +        EQ     PLFN7                                                           FCC1670X      20     A     
 LISTIO                                                                                    FCC1670X      21     A     
 LISTIO    PLFN6    BX3    X1                                                              FCC1670X      22     A     
 LISTIO             AX3    18                                                              FCC1670X      23     A     
 LISTIO             SA4    =3L                                                             FCC1670X      24     A     
 LISTIO             BX6    X4+X3       (X6) = TAPE NUMBER                                  FCC1670X      25     A     
 LISTIO             EQ     PLFN1                                                           FCC1670X      26     A     
 LISTIO                                                                                    FCC1670X      27     A     
 LISTIO    PLFN7    MX6    0                                                               FCC1670X      28     A     
 LISTIO             EQ     PLFN1+1                                                         FCC1670X      29     A     
 LISTIO                                                                                    FCC1670X      30     A     
 LISTIO                                                                                    LISTIO       878     A     
 LISTIO    LFNA                              ADDRESS OF WORD B                             LISTIO       879          I
          -FCC1670X 
 LISTIO    LFNA     DATA   0           ADDRESS OF WORD B                                   FCC1670X      31     A     
 LISTIO    LFNB     DATA   0           I/O DEVICE NUMBER(H FORMAT)                         FCC1670X      32     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2057    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO   ***                                                                              LISTIO       880     A     
 LISTIO   *         SFMODE - SET FILE MODE BITS                                            LISTIO       881     A     
 LISTIO   *         ON ENTRY:   X5 = BIT TO BE SET RIGHT JUSTIFIED                         LISTIO       882     A     
 LISTIO   *                                                                                LISTIO       883     A     
 LISTIO    SFMODE   ENTRY. *                 ** ENTRY/EXIT **                              LISTIO       884     A     
 LISTIO             SA4    LFNA                                                            LISTIO       885     A     
 LISTIO             ZR     X4,SFMODE         EXIT IF LAST OP USED A VARIABLE UNITN         LISTIO       886     A     
 LISTIO             SA4    X4                                                              LISTIO       887     A     
 LISTIO             LX5    P.FMODE                                                         LISTIO       888     A     
 LISTIO             BX6    X5+X4                                                           LISTIO       889     A     
 LISTIO             SA6    A4                                                              LISTIO       890     A     
 LISTIO             EQ     SFMODE                                                          LISTIO       891     A     
 LISTIO    IOCM     SPACE  3,14                                                            LISTIO       892     A     
 LISTIO   **        IOCM - OUTPUT CALL TO I/O ROUTINE                                      LISTIO       893     A     
 LISTIO   *         ENTRY  (X1) = 8R NAME OF EXECUTION TIME I/O ROUTINE                    LISTIO       894          I
          -F162FTNA 
 LISTIO   *                                                                                F162FTNA     931     A     
 LISTIO   *         ENTRY  (X1) = 12/2000B+STLTAB ORD, 48/8R RUN-TIME I/O ROUTINE          F162FTNA     932     A     
 LISTIO                                                                                    LISTIO       895     A     
 LISTIO    IOCMA    VFD    L.TYP/T.CGS                                                     LISTIO       896     A     
 LISTIO             POS    P.EXT+1                                                         LISTIO       897     A     
 LISTIO             VFD    1/1                                                             LISTIO       898     A     
 LISTIO             POS    P.IOF+1                                                         LISTIO       899     A     
 LISTIO             VFD    1/1,*P/0                                                        LISTIO       900     A     
 LISTIO                                                                                    LISTIO       901     A     
 LISTIO    IOCM     ENTRY. *                                                               LISTIO       902     A     
 LISTIO             SYMBOL                                                                 LISTIO       903          I
          -F162FTNA 
 LISTIO             UX1,B2 X1                                                              F162FTNA     933     A     
 LISTIO             MI     B2,IOCM2    IF *LDSET USE=* NOT NEEDED                          F162FTNA     934     A     
 LISTIO             MX6    1           SELECT DECK NAME FOR STATIC LOAD DIRECTIVE          F162FTNA     935     A     
 LISTIO             SA2    =XSTLTAB+B2                                                     F162FTNA     936     A     
 LISTIO             BX6    X6+X2                                                           F162FTNA     937     A     
 LISTIO             SA6    A2                                                              F162FTNA     938     A     
 LISTIO    IOCM2    SYMBOL                                                                 F162FTNA     939     A     
 LISTIO             SA3    IOCMA                                                           LISTIO       904     A     
 LISTIO             BX7    X3+X2       SET EXT AND IOF BITS                                LISTIO       905     A     
 LISTIO             SA7    A2                                                              LISTIO       906     A     
 LISTIO             SA3    IONAME                                                          LISTIO       907     A     
 LISTIO             AX3    18                                                              LISTIO       908     A     
 LISTIO             SA1    X3                MACRO HEADER                                  LISTIO       909     A     
 LISTIO             SA4    IOAPLN                                                          LISTIO       910     A     
 LISTIO             BX6    X1                                                              LISTIO       911     A     
 LISTIO             SA6    MACBUF             BUFFER FOR MACRO                             LISTIO       912     A     
 LISTIO             SX1    B1                                                              LISTIO       913     A     
 LISTIO             SX3    X4+I.IO                                                         LISTIO       914     A     
 LISTIO             SA2    CDCNT             LINE NUMBER                                   LISTIO       915     A     
 LISTIO             LX3    30                                                              LISTIO       916     A     
 LISTIO             BX7    X3+X1                                                           LISTIO       917     A     
 LISTIO             SA7    A6+B5             WORD 1 OF MACRO                               LISTIO       918     A     
 LISTIO             BX7    X2                                                              LISTIO       919     A     
 LISTIO             SA7    A7+B5                                                           LISTIO       920     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2058    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             WRM    MACBUF      I/O CALL MACRO TO RLIST                             LISTIO       921     A     
 LISTIO             EQ     IOCM                                                            LISTIO       922     A     
 LISTIO             TITLE              ENDFILE, BACKSPACE AND REWIND STMT PROCESSI         LISTIO       923     A     
 LISTIO   ,NG                                                                              LISTIO       924     A     
 LISTIO   *         ENDFILE - PROCESS "ENDFILE" STATEMENT                                  LISTIO       925     A     
 LISTIO                                                                                    LISTIO       926     A     
 LISTIO    ENDFILE  ENTRY.                                                                 LISTIO       927     A     
 LISTIO             RJ     IOSETUP                                                         LISTIO       928     A     
 LISTIO             SA1    =8RENDFIL.                                                      LISTIO       929          I
          -F162FTNA 
 LISTIO             SA1    ENDFTAB                                                         F162FTNA     940     A     
 LISTIO             RJ     PERB                                                            LISTIO       930     A     
 LISTIO             EQ     ENDFILE                                                         LISTIO       931     A     
 LISTIO                                                                                    LISTIO       932     A     
 LISTIO   *         REW - PROCESS "REWIND" STATEMENT                                       LISTIO       933     A     
 LISTIO                                                                                    LISTIO       934     A     
 LISTIO    REW      ENTRY.                                                                 LISTIO       935     A     
 LISTIO             RJ     IOSETUP                                                         LISTIO       936     A     
 LISTIO             SA1    =8RREWIND.                                                      LISTIO       937          I
          -F162FTNA 
 LISTIO             SA1    REWTAB                                                          F162FTNA     941     A     
 LISTIO             RJ     PERB                                                            LISTIO       938     A     
 LISTIO             EQ     REW                                                             LISTIO       939     A     
 LISTIO                                                                                    LISTIO       940     A     
 LISTIO   *         BKSP - PROCESS "BACKSPACE" STATEMENT                                   LISTIO       941     A     
 LISTIO                                                                                    LISTIO       942     A     
 LISTIO    BKSP     ENTRY.                                                                 LISTIO       943     A     
 LISTIO             RJ     IOSETUP                                                         LISTIO       944     A     
 LISTIO             SA1    =8RBACKSP.                                                      LISTIO       945          I
          -F162FTNA 
 LISTIO             SA1    BKSPTAB                                                         F162FTNA     942     A     
 LISTIO             RJ     PERB                                                            LISTIO       946     A     
 LISTIO             EQ     BKSP                                                            LISTIO       947     A     
 LISTIO             SPACE  3                                                               LISTIO       948     A     
 LISTIO   ***                                                                              LISTIO       949     A     
 LISTIO   *         PERB - COMMON PROCESSOR FOR ENDFILE,REWIND AND BACKSPACE               LISTIO       950     A     
 LISTIO   *         STATEMENTS                                                             LISTIO       951     A     
 LISTIO   *                                                                                LISTIO       952     A     
 LISTIO   *         ON ENTRY:                                                              LISTIO       953     A     
 LISTIO   *                X1 = NAME OF EXECUTION TIME ROUTINE                             LISTIO       954     A     
 LISTIO   *                                                                                LISTIO       955     A     
 LISTIO    PERB     ENTRY. *                 ** ENTRY/EXIT **                              LISTIO       956     A     
 LISTIO             MX6    0                                                               LISTIO       957     A     
 LISTIO             SA6    LDFLAG      CLEAR LIST-DIRECTED FLAG                            LISTIO       958     A     
 LISTIO             BX7    X1                                                              LISTIO       959     A     
 LISTIO             SA7    TEMP              SAVE NAME OF ROUTINE                          LISTIO       960     A     
 LISTIO             SX6    B5                                                              LISTIO       961     A     
 LISTIO             SA6    IOFLAG            SET FOR POSITIONING REF                       LISTIO       962     A     
 LISTIO             RJ     DOCALL            INFORM DO PROCESSOR OF EXT CALL               LISTIO       963     A     
 LISTIO                                                                                    LISTIO       964     A     
 LISTIO             SA5    SELIST                                                          LISTIO       965     A     
 LISTIO             SA4    X5-1                                                            LISTIO       966     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2059    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             UX1    B2,X4                                                           LISTIO       967     A     
 LISTIO             IF.NE  EL.EOS,IOERR      IF NOT AN EOS AFTER FILE NAME/NUMBER          LISTIO       968     A     
 LISTIO             SX6    2000B+EL.)                                                      LISTIO       969     A     
 LISTIO             LX6    48                                                              LISTIO       970     A     
 LISTIO             SA6    A4                FUDGE IT FOR UNITN                            LISTIO       971     A     
 LISTIO             MX7    0                                                               LISTIO       972     A     
 LISTIO             MX6    60                                                              LISTIO       973     A     
 LISTIO             SA6    PIOFLAG                                                         LISTIO       974     A     
 LISTIO             RJ     UNITN             PROCESS THE UNIT NUMBER                       LISTIO       975     A     
 LISTIO             RJ     IIR         SHOW USE OF VAR UNIT NUMBER                         FCC0728        9     A     
 LISTIO             SA1    TEMP              ROUTINE NAME                                  LISTIO       976     A     
 LISTIO             SX6    GEFCM             MACRO HEADER ADDRESS                          LISTIO       977     A     
 LISTIO             LX6    18                                                              LISTIO       978     A     
 LISTIO             SA6    IONAME                                                          LISTIO       979     A     
 LISTIO             RJ     IOCM              GO OUTPUT MACRO TO RLIST                      LISTIO       980     A     
 LISTIO             MX6    0                                                               LISTIO       981     A     
 LISTIO             SA6    IONAME            CLEAR FOR NEXT I/O STMT                       LISTIO       982     A     
 LISTIO             EQ     PERB                                                            LISTIO       983     A     
 LISTIO                                                                                    LISTIO       984     A     
 LISTIO             TITLE  PRINT AND PUNCH STMT PROCESSING                                 FCC0544        8     A     
 LISTIO   *         THE FOLLOWING ARE CONSIDERED TO BE ALTERNATE FORMS.                    LISTIO       985     A     
 LISTIO   *           PRINT( )                                                             LISTIO       986     A     
 LISTIO   *           PUNCH( )                                                             LISTIO       987     A     
 LISTIO                                                                                    LISTIO       988     A     
 LISTIO             TITLE              PRINT AND PUNCH STMT PROCESSING                     LISTIO       989          I
          -FCC0544
 LISTIO   *         PUNCH N,LIST                                                           LISTIO       990     A     
 LISTIO                                                                                    LISTIO       991     A     
 LISTIO    PUNCH.L  MX7    2                                                               LISTIO       992     A     
 LISTIO             LX7    1           PUNCH AND ALTERNATE FORM BITS ARE SET               LISTIO       993     A     
 LISTIO             SA7    LDFLAG                                                          LISTIO       994     A     
 LISTIO             ASAERR             PUNCH( ) NON-ANSI                                   LISTIO       995     A     
 LISTIO             MX6    0                                                               LISTIO       996     A     
 LISTIO             RJ     PRORW                                                           LISTIO       997     A     
 LISTIO                                                                                    LISTIO       998     A     
 LISTIO    PUNCH    ENTRY.                                                                 LISTIO       999     A     
 LISTIO             RJ     IOSETUP                                                         LISTIO      1000     A     
 LISTIO             GETE                                                                   LISTIO      1001     A     
 LISTIO             IF.EQ  EL.(,PUNCH.L                                                    LISTIO      1002     A     
 LISTIO             SX7    B5          PUNCH BIT SET                                       LISTIO      1003     A     
 LISTIO             SA7    LDFLAG                                                          LISTIO      1004     A     
 LISTIO             SA1    =8RPUNCH"C"       FILE NAME                                     LISTIO      1005     A     
 LISTIO             RJ     PROFL                                                           LISTIO      1006     A     
 LISTIO             EQ     PUNCH                                                           LISTIO      1007     A     
 LISTIO                                                                                    LISTIO      1008     A     
 LISTIO   *         PRINT N,LIST                                                           LISTIO      1009     A     
 LISTIO                                                                                    LISTIO      1010     A     
 LISTIO    PRINT.L  ASAERR             PRINT( ) NON-ANSI                                   LISTIO      1011     A     
 LISTIO             MX7    1                                                               LISTIO      1012     A     
 LISTIO             SA7    LDFLAG      ALTERNATE FORM BIT SET                              LISTIO      1013     A     
 LISTIO             MX6    0                                                               LISTIO      1014     A     
 LISTIO             RJ     PRORW                                                           LISTIO      1015     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2060    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO                                                                                    LISTIO      1016     A     
 LISTIO    PRINT    ENTRY.                                                                 LISTIO      1017     A     
 LISTIO             RJ     IOSETUP                                                         LISTIO      1018     A     
 LISTIO             GETE                                                                   LISTIO      1019     A     
 LISTIO             IF.EQ  EL.(,PRINT.L                                                    LISTIO      1020     A     
 LISTIO             MX6    0                                                               LISTIO      1021     A     
 LISTIO             SA6    LDFLAG      CLEAR LIST-DIRECTED FLAG                            LISTIO      1022     A     
 LISTIO             SA1    =8ROUTPUT"C"      FILE NAME                                     LISTIO      1023     A     
 LISTIO             RJ     PROFL                                                           LISTIO      1024     A     
 LISTIO             EQ     PRINT                                                           LISTIO      1025     A     
 LISTIO             SPACE  3                                                               LISTIO      1026     A     
 LISTIO   **        PROFL - PROCESS I/O STMTS OF THE FORM  "KEYWORD" N,LIST                LISTIO      1027     A     
 LISTIO   *         ENTRY  (X1) = 12/IOFLAG,48/8R_NAME OF ASSOC FILE                       LISTIO      1028     A     
 LISTIO                                                                                    LISTIO      1029     A     
 LISTIO    PROFL.N  RJ     NAMLIST                                                         LISTIO      1030     A     
 LISTIO                                                                                    LISTIO      1031     A     
 LISTIO    PROFL    ENTRY. *                 ** ENTRY/EXIT **                              LISTIO      1032     A     
 LISTIO             MX0    12                                                              LISTIO      1033     A     
 LISTIO             BX6    X0*X1                                                           LISTIO      1034     A     
 LISTIO             SA6    IOFLAG            SET I/O FLAG                                  LISTIO      1035     A     
 LISTIO             SA6    END=                                                            LISTIO      1036     A     
 LISTIO             MX7    60                                                              LISTIO      1037     A     
 LISTIO             SA7    PIOFLAG                                                         LISTIO      1038     A     
 LISTIO             RJ     PLFN              PROCESS THE FILE NAME                         LISTIO      1039     A     
 LISTIO             ASAERR                   FLAG NON USAS USEAGE                          LISTIO      1040     A     
 LISTIO             RJ     DOCALL                                                          LISTIO      1041     A     
 LISTIO             SA4    COMMA                                                           LISTIO      1042     A     
 LISTIO             SA5    SELIST            STORE COMMA IN SELIST-1 TO AVOID              LISTIO      1043     A     
 LISTIO             BX6    X4                GETTING UNWANTED INFORMATIVE                  LISTIO      1044     A     
 LISTIO             SA6    X5+B5             DIAGNOSTIC FROM ARITH                         LISTIO      1045     A     
 LISTIO             RJ     FMTNO             PROCESS THE FORMAT NUMBER                     LISTIO      1046     A     
 LISTIO             ZR     X0,PROFL.N        IF NAMELIST                                   LISTIO      1047     A     
 LISTIO             BX6    X3                                                              LISTIO      1048     A     
 LISTIO             SA6    SNTI        SAVE NAME-TABLE INDEX                               LISTIO      1049     A     
 LISTIO                                                                                    LISTIO      1050     A     
 LISTIO             GETE                     GET NEXT E-LIST ELEMENT                       LISTIO      1051     A     
 LISTIO             IF.EQ  EL.EOS,PROFL1     IF EOS                                        LISTIO      1052          I
          -FCC1068
 LISTIO             IF.NE  EL.EOS,PROFL1  IF NOT EOS                                       FCC1068        6     A     
 LISTIO             SA2    LDFLAG                                                          FCC1068        7     A     
 LISTIO             ZR     X2,PROFL2   IF NO IOLIST, AND NOT LIST DIRECTED IO              FCC1068        8     A     
 LISTIO             EQ     IOERR       IF NO IOLIST, AND LIST DIR IO.                      FCC1068        9     A     
 LISTIO    PROFL1   IF.NE  EL.COMMA,IOERR  ERROR IF NOT A ,                                FCC1068       10     A     
 LISTIO             IF.NE  EL.COMMA,IOERR    ERROR IF NOT A ,                              LISTIO      1053     A     
 LISTIO             UPDATE                                                                 LISTIO      1054     A     
 LISTIO             GETE                                                                   LISTIO      1055     A     
 LISTIO             IF.EQ  EL.EOS,PROFL2                                                   LISTIO      1056          I
          -FEAT155B 
 LISTIO             IF.EQ  EL.EOS,IOERR                                                    FEAT155B      35     A     
 LISTIO             IF.EQ  EL.COMMA,IOERR    IF A COMMA PRECEDING LIST                     LISTIO      1057     A     
 LISTIO                                                                                    LISTIO      1058     A     
 LISTIO    PROFL1   SA2    IOFLAG                                                          LISTIO      1059          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2061    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
          -FCC1068
 LISTIO    PROFL2   SA2    IOFLAG                                                          FCC1068       11     A     
 LISTIO             SA3    SNTI                                                            LISTIO      1060     A     
 LISTIO             LX2    3                 0 OR 4                                        LISTIO      1061     A     
 LISTIO             AX7    B5,X2             0 OR 2                                        LISTIO      1062     A     
 LISTIO             BX2    X2+X7             0 OR 6                                        LISTIO      1063     A     
 LISTIO             IX0    X2+X3                                                           LISTIO      1064     A     
 LISTIO             SA1    IOTAB+X0          ADDRESS OF ROUTINE NAMES                      LISTIO      1065     A     
 LISTIO             RJ     IOLIST            PROCESS THE I/O LIST                          LISTIO      1066     A     
 LISTIO             EQ     PROFL                                                           LISTIO      1067     A     
 LISTIO                                                                                    LISTIO      1068          I
          -FEAT155B 
 LISTIO    PROFL2   SB6    -E.MIOL                                                         LISTIO      1069          I
          -FEAT155B 
 LISTIO             SB7    PROFL1                                                          LISTIO      1070          I
          -FEAT155B 
 LISTIO             EQ     ERPROI                                                          LISTIO      1071          I
          -FEAT155B 
 LISTIO             TITLE              READ AND WRITE STMT PROCESSING                      LISTIO      1072     A     
 LISTIO    INPUTF   VFD    12/1S11,48/8RINPUT"C"                                           LISTIO      1073     A     
 LISTIO    COMMA    VFD    12/2003B,48/0     ELIST REPRESENTATION FOR A COMMA              LISTIO      1074     A     
 LISTIO                                                                                    LISTIO      1075     A     
 LISTIO   ***                                                                              LISTIO      1076     A     
 LISTIO   *         READ - PROCESS READ STATEMENTS                                         LISTIO      1077     A     
 LISTIO   *                                                                                LISTIO      1078     A     
 LISTIO   *         SYNTAX:                                                                LISTIO      1079     A     
 LISTIO   *                READ N,LIST       CODED READ OF INPUT                           LISTIO      1080     A     
 LISTIO   *                READ (U) LIST     BINARY                                        LISTIO      1081     A     
 LISTIO   *                READ (U,N) LIST   CODED                                         LISTIO      1082     A     
 LISTIO   *                READ (U,X)        NAMELIST READ                                 LISTIO      1083     A     
 LISTIO   *                                                                                LISTIO      1084     A     
 LISTIO                                                                                    LISTIO      1085     A     
 LISTIO    READ.F   SA1    INPUTF            FILE NAME AND FLAG                            LISTIO      1086     A     
 LISTIO             RJ     PROFL                                                           LISTIO      1087     A     
 LISTIO    READ     ENTRY.                                                                 LISTIO      1088     A     
 LISTIO             RJ     IOSETUP                                                         LISTIO      1089     A     
 LISTIO             MX6    0                                                               LISTIO      1090     A     
 LISTIO             SA6    LDFLAG      CLEAR LIST-DIRECTED FLAG                            LISTIO      1091     A     
 LISTIO             GETE                     GET FIRST E-LIST ELEMENT                      LISTIO      1092     A     
 LISTIO             IF.NE  EL.(,READ.F       IF FIRST IS NOT A (                           LISTIO      1093     A     
 LISTIO             MX6    1                                                               LISTIO      1094     A     
 LISTIO             RJ     PRORW                                                           LISTIO      1095     A     
 LISTIO             EQ     READ                                                            LISTIO      1096     A     
 LISTIO             SPACE  3                                                               LISTIO      1097     A     
 LISTIO   ***                                                                              LISTIO      1098     A     
 LISTIO   *         WRITE - PROCESS WRITE STATEMENTS                                       LISTIO      1099     A     
 LISTIO   *                                                                                LISTIO      1100     A     
 LISTIO   *         SYNTAX:                                                                LISTIO      1101     A     
 LISTIO   *                WRITE (U) LIST    BINARY WRITE                                  LISTIO      1102     A     
 LISTIO   *                WRITE (U,F) LIST  CODED WRITE                                   LISTIO      1103     A     
 LISTIO   *                WRITE (U,X)       NAMELIST WRITE                                LISTIO      1104     A     
 LISTIO                                                                                    LISTIO      1105     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2062    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO    WRITE.L  SX7    1           WRITE BIT SET                                       LISTIO      1106     A     
 LISTIO             SA1    =8ROUTPUT"C"                                                    LISTIO      1107     A     
 LISTIO             SA7    LDFLAG                                                          LISTIO      1108     A     
 LISTIO             RJ     PROFL                                                           LISTIO      1109     A     
 LISTIO                                                                                    LISTIO      1110     A     
 LISTIO    WRITE    ENTRY.                                                                 LISTIO      1111     A     
 LISTIO             RJ     IOSETUP                                                         LISTIO      1112     A     
 LISTIO             GETE                                                                   LISTIO      1113     A     
 LISTIO             IF.NE  EL.(,WRITE.L                                                    LISTIO      1114     A     
 LISTIO             SX7    B5          WRITE BIT SET                                       LISTIO      1115     A     
 LISTIO             SA7    LDFLAG                                                          LISTIO      1116     A     
 LISTIO             MX6    0                                                               LISTIO      1117     A     
 LISTIO             RJ     PRORW                                                           LISTIO      1118     A     
 LISTIO             EQ     WRITE                                                           LISTIO      1119     A     
 LISTIO             EJECT                                                                  LISTIO      1120     A     
 LISTIO   ***                                                                              LISTIO      1121     A     
 LISTIO   *         PRORW - PROCESS I/O STMTS OF THE FORM "KEYWORD" ( ), LIST              LISTIO      1122     A     
 LISTIO   *                                                                                LISTIO      1123     A     
 LISTIO   *         ON ENTRY:                                                              LISTIO      1124     A     
 LISTIO   *                X6 = VALUE OF IOFLAG ( 0 OR 1S59 )                              LISTIO      1125     A     
 LISTIO   *                                                                                LISTIO      1126     A     
 LISTIO                                                                                    LISTIO      1127     A     
 LISTIO    PRORW.N  RJ     NAMLIST           PROCESS NAMLIST I/O                           LISTIO      1128     A     
 LISTIO             ASAERR                                                                 LISTIO      1129     A     
 LISTIO                                                                                    LISTIO      1130     A     
 LISTIO    PRORW    ENTRY. *                 ** ENTRY/EXIT **                              LISTIO      1131     A     
 LISTIO             SA6    IOFLAG                                                          LISTIO      1132     A     
 LISTIO             SA6    END=                                                            LISTIO      1133     A     
 LISTIO             MX7    60                                                              LISTIO      1134     A     
 LISTIO             SA7    PIOFLAG                                                         LISTIO      1135     A     
 LISTIO             RJ     DOCALL            INFORM DO PROCESSOR OF EXT CALL               LISTIO      1136     A     
 LISTIO             ADVIN                    ADVANCE E-LIST POINTER                        LISTIO      1137     A     
 LISTIO             IF.NE  EL.(,IOERR        ERROR IF NOT A (                              LISTIO      1138     A     
 LISTIO             MX7    0                                                               LISTIO      1139     A     
 LISTIO             SA7    LFNA                                                            LISTIO      1140     A     
 LISTIO             RJ     UNITN             PROCESS UNIT NUMBER                           LISTIO      1141     A     
 LISTIO                                                                                    LISTIO      1142     A     
 LISTIO             ADVIN                                                                  LISTIO      1143     A     
 LISTIO             IF.EQ  EL.),PRORW.B      IF A BINARY OPERATION                         LISTIO      1144     A     
 LISTIO             IF.NE  EL.COMMA,IOERR    ERROR IF NOT A ,                              LISTIO      1145     A     
 LISTIO             RJ     FMTNO             PROCESS FORMAT NUMBER                         LISTIO      1146     A     
 LISTIO                                                                                    LISTIO      1147     A     
 LISTIO             ADVIN                    ADVANCE E-LIST POINTER                        LISTIO      1148     A     
 LISTIO             IF.NE  EL.),IOERR        ERROR IF NOT A )                              LISTIO      1149     A     
 LISTIO             ZR     X0,PRORW.N        IF A NAMELIST OP                              LISTIO      1150     A     
 LISTIO                                                                                    LISTIO      1151     A     
 LISTIO             SA2    IOFLAG                                                          LISTIO      1152     A     
 LISTIO    PRORW1   LX2    3                 0 OR 4                                        LISTIO      1153     A     
 LISTIO             AX7    B5,X2             0 OR 2                                        LISTIO      1154     A     
 LISTIO             BX2    X2+X7             0 OR 6                                        LISTIO      1155     A     
 LISTIO             IX0    X2+X3                                                           LISTIO      1156     A     
 LISTIO             GETE                                                                   LISTIO      1157     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2063    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             IF.EQ  EL.COMMA,IOERR    IF A COMMA PRECEDING LIST                     LISTIO      1158     A     
 LISTIO             SA1    IOTAB+X0          ADDRESS OF ROUTINE NAMES                      LISTIO      1159     A     
 LISTIO             RJ     IOLIST                                                          LISTIO      1160     A     
 LISTIO             EQ     PRORW                                                           LISTIO      1161     A     
 LISTIO                                                                                    LISTIO      1162     A     
 LISTIO    PRORW.B  SA3    LDFLAG                                                          LISTIO      1163     A     
 LISTIO             MI     X3,IOERR    IF OF ALTERNATE FORM                                LISTIO      1164     A     
 LISTIO             FMODE  ^FMT        SET THE FILE MODE                                   LISTIO      1165     A     
 LISTIO             SA2    IOFLAG                                                          LISTIO      1166     A     
 LISTIO             MX3    0                                                               LISTIO      1167     A     
 LISTIO             EQ     PRORW1                                                          LISTIO      1168     A     
 LISTIO             TITLE              BUFFER IN/OUT STMT PROCESSING                       LISTIO      1169     A     
 LISTIO   *         BUFIN - PROCESS "BUFFER IN" STATEMENT                                  LISTIO      1170     A     
 LISTIO                                                                                    LISTIO      1171     A     
 LISTIO    BUFIN    ENTRY.                                                                 LISTIO      1172     A     
 LISTIO             RJ     IOSETUP                                                         LISTIO      1173     A     
 LISTIO             MX7    1                                                               LISTIO      1174     A     
 LISTIO             RJ     PBUF                                                            LISTIO      1175     A     
 LISTIO             EQ     BUFIN                                                           LISTIO      1176     A     
 LISTIO                                                                                    LISTIO      1177     A     
 LISTIO   *         BUFOUT - PROCESS "BUFFER OUT" STATEMENT                                LISTIO      1178     A     
 LISTIO                                                                                    LISTIO      1179     A     
 LISTIO    BUFOUT   ENTRY.                                                                 LISTIO      1180     A     
 LISTIO             RJ     IOSETUP                                                         LISTIO      1181     A     
 LISTIO             MX7    0                                                               LISTIO      1182     A     
 LISTIO             RJ     PBUF                                                            LISTIO      1183     A     
 LISTIO             EQ     BUFOUT                                                          LISTIO      1184     A     
 LISTIO             SPACE  3                                                               LISTIO      1185     A     
 LISTIO   ***                                                                              LISTIO      1186     A     
 LISTIO   *         PBUF - COMMON PROCESSOR FOR BUFFER IN/OUT STATEMENTS                   LISTIO      1187     A     
 LISTIO   *                                                                                LISTIO      1188     A     
 LISTIO   *         SYNTAX:                                                                LISTIO      1189     A     
 LISTIO   *                BUFFER XX (U,P) (FWA,LWA)                                       LISTIO      1190     A     
 LISTIO   *                                                                                LISTIO      1191     A     
 LISTIO                                                                                    LISTIO      1192     A     
 LISTIO    PBUF     ENTRY. *                 ** ENTRY/EXIT **                              LISTIO      1193     A     
 LISTIO             MX6    0                                                               LISTIO      1194     A     
 LISTIO             SA6    LDFLAG      CLEAR LIST-DIRECTED FLAG                            LISTIO      1195     A     
 LISTIO             SA7    IOFLAG            SET I/O FLAG                                  LISTIO      1196     A     
 LISTIO             MX6    60                                                              LISTIO      1197     A     
 LISTIO             SA6    PIOFLAG                                                         LISTIO      1198     A     
 LISTIO             RJ     DOCALL            INFORM DO PROCESSOR                           LISTIO      1199     A     
 LISTIO             ASAERR                   FLAG NON USAS STMT                            LISTIO      1200     A     
 LISTIO             ADVIN                    SKIP LEADING (                                LISTIO      1201     A     
 LISTIO                                                                                    LISTIO      1202     A     
 LISTIO             MX7    0                                                               LISTIO      1203     A     
 LISTIO             SA7    LFNA                                                            LISTIO      1204     A     
 LISTIO             RJ     UNITN             PROCESS THE UNIT NUMBER                       LISTIO      1205     A     
 LISTIO             FMODE  BUF               SET THE FILE MODE                             LISTIO      1206     A     
 LISTIO                                                                                    LISTIO      1207     A     
 LISTIO             ADVIN                                                                  LISTIO      1208     A     
 LISTIO             IF.NE  EL.COMMA,IOERR    ERROR IF NOT A ,                              LISTIO      1209     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2064    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SX7    1                                                               LISTIO      1210     A     
 LISTIO             RJ     UNITN             PROCESS PARITY                                LISTIO      1211     A     
 LISTIO             ZR     X3,PBUF1          IF VARIABLE PARITY                            LISTIO      1212     A     
 LISTIO             SX2    X1-2                                                            LISTIO      1213     A     
 LISTIO             SB6    -E.PIE                                                          LISTIO      1214     A     
 LISTIO             PL     X2,IOERRX         IF PARITY \ 2                                 LISTIO      1215     A     
 LISTIO             SB1    B5                                                              LISTIO      1216     A     
 LISTIO             RJ     CONVERT           PLACE PARITY INDICATOR IN CON TABLE           LISTIO      1217     A     
 LISTIO             SX6    X1                SYMTAB ORDIANL                                LISTIO      1218     A     
 LISTIO             FORMARG NAME,1                                                         LISTIO      1219     A     
 LISTIO             AX1    30                                                              LISTIO      1220     A     
 LISTIO             SX6    X1                CA                                            LISTIO      1221     A     
 LISTIO             FORMARG OCT,2                                                          LISTIO      1222     A     
 LISTIO             FORMMAC IOM              ISSUE MACRO TO COMPS FILE                     LISTIO      1223     A     
 LISTIO                                                                                    LISTIO      1224     A     
 LISTIO    PBUF1    ADVIN                    GET NEXT E                                    LISTIO      1225          I
          -FCC0614
 LISTIO    PBUF1    GETE               GET NEXT E                                          FCC0614        6     A     
 LISTIO             IF.NE  EL.),IOERR        IF NOT A )                                    LISTIO      1226     A     
 LISTIO             RJ     IIR               ISSUE IOLST TABLE TO RLIST IF OPT=2           LISTIO      1227          I
          -FCC0614
 LISTIO             ADVIN                                                                  LISTIO      1228          I
          -FCC0614
 LISTIO             NEXTE                                                                  FCC0614        7     A     
 LISTIO             UPDATE                                                                 FCC0614        8     A     
 LISTIO             IF.NE  EL.(,IOERR        IF NOT A (                                    LISTIO      1229     A     
 LISTIO             SA2    IOFLAG                                                          LISTIO      1230     A     
 LISTIO             MX7    2                                                               FCC0614        9     A     
 LISTIO             LX7    1                                                               FCC0614       10     A     
 LISTIO             ZR     X2,PBUF1A   IF BUFFER OUT                                       LISTIO      1231     A     
 LISTIO             MX6    0                                                               LISTIO      1232     A     
 LISTIO             SA6    PIOFLAG           FLAG WILL INDICATE DEF                        LISTIO      1233     A     
 LISTIO                                                                                    LISTIO      1234     A     
 LISTIO    PBUF1A   SX3    B5          NO EXPRESSION FLAG                                  LISTIO      1235     A     
 LISTIO             SX6    B5                                                              LISTIO      1236     A     
 LISTIO             SA6    BIO               FLAG BUFFER FWA                               LISTIO      1237          I
          -FCC0614
 LISTIO             SA7    BIO         FLAG BUFFER FWA                                     FCC0614       11     A     
 LISTIO             SA6    CRFLAG      SPECIAL CASE CLASS REF CHECK                        LISTIO      1238     A     
 LISTIO             IXFN   IOFLAG            CALL IXFN TO OUTPUT A LOAD FOR FWA            LISTIO      1239     A     
 LISTIO             SX7    B1                SYMTAB ORD                                    LISTIO      1240     A     
 LISTIO             SA3    IOFLAG                                                          LISTIO      1241     A     
 LISTIO             SA7    TEMP                                                            LISTIO      1242     A     
 LISTIO             ZR     X3,PBUF2          IF NOT AN INPUT OP                            LISTIO      1243     A     
 LISTIO             BX7    X1+X0             SET DEFINED BIT                               LISTIO      1244     A     
 LISTIO             SA7    A1                                                              LISTIO      1245     A     
 LISTIO                                                                                    LISTIO      1246     A     
 LISTIO    PBUF2    SA4    APLRST                                                          LISTIO      1247     A     
 LISTIO             ZR     X4,PBUF2A         STORE TO APLIST NOT NEEDED                    LISTIO      1248     A     
 LISTIO             BX7    X2                                                              LISTIO      1249     A     
 LISTIO             SA7    LCMFG+1                                                         LISTIO      1250     A     
 LISTIO             SB4    B0                WORD COUNT FOR WRITE CALL                     LISTIO      1251     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2065    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SA7    MACBUF-1          INITIALIZE A7 FOR STORES                      LISTIO      1252     A     
 LISTIO             RJ     PSTAPL            GENERATE STORE TO APLIST MACROS               LISTIO      1253     A     
 LISTIO             RJ     STIOM             ISSUE -1 APLIST MACRO WORD                    LISTIO      1254     A     
 LISTIO             EQ     PBUF2B                                                          LISTIO      1255     A     
 LISTIO                                                                                    LISTIO      1256     A     
 LISTIO    PBUF2A   SB4    B5                                                              LISTIO      1257     A     
 LISTIO             SB7    B5                                                              LISTIO      1258     A     
 LISTIO             RJ     PVARNAM           PROCESS AS IF FORMAT NAME                     LISTIO      1259     A     
 LISTIO             FORMMAC IOM              ISSUE MACRO TO COMPS FILE                     LISTIO      1260     A     
 LISTIO                                                                                    LISTIO      1261     A     
 LISTIO    PBUF2B   ADVIN                                                                  LISTIO      1262     A     
 LISTIO             IF.NE  EL.COMMA,IOERR    IF NOT A ,                                    LISTIO      1263     A     
 LISTIO             SX3    B5                NO EXPRESSION FLAG                            LISTIO      1264     A     
 LISTIO             MX6    1                                                               LISTIO      1265     A     
 LISTIO             SA6    BIO               FLAG BUFFER LWA                               LISTIO      1266     A     
 LISTIO             IXFN   IOFLAG            CALL IXFN TO LOAD LWA+1                       LISTIO      1267     A     
 LISTIO             SX7    B1          SYMTAB ORD                                          LISTIO      1268     A     
 LISTIO             SA3    IOFLAG                                                          LISTIO      1269     A     
 LISTIO             SA7    TEMPA                                                           LISTIO      1270     A     
 LISTIO             ZR     X3,PBUF3          IF NOT AN INPUT OP                            LISTIO      1271     A     
 LISTIO             BX7    X0+X1                                                           LISTIO      1272     A     
 LISTIO             SA7    A1                                                              LISTIO      1273     A     
 LISTIO                                                                                    LISTIO      1274     A     
 LISTIO    PBUF3    SA4    APLRST                                                          LISTIO      1275     A     
 LISTIO             ZR     X4,PBUF3A         STORE TO APLIST NOT NEEDED                    LISTIO      1276     A     
 LISTIO             BX7    X2                                                              LISTIO      1277     A     
 LISTIO             SA7    LCMFG                                                           LISTIO      1278     A     
 LISTIO             SB4    B0                WORD COUNT FOR WRITE CALL                     LISTIO      1279     A     
 LISTIO             SA7    MACBUF-1          INITIALIZE A7 FOR STORES                      LISTIO      1280     A     
 LISTIO             RJ     PSTAPL            GENERATE STORE TO APLIST MACROS               LISTIO      1281     A     
 LISTIO             RJ     STIOM             ISSUE -1 APLIST MACRO WORD                    LISTIO      1282     A     
 LISTIO             EQ     PBUF3C                                                          LISTIO      1283     A     
 LISTIO                                                                                    LISTIO      1284     A     
 LISTIO    PBUF3A   SB4    B5                                                              LISTIO      1285     A     
 LISTIO             SB7    B0                                                              LISTIO      1286     A     
 LISTIO             RJ     PVARNAM           PROCESS AS IF FORMAT NAME                     LISTIO      1287     A     
 LISTIO             FORMMAC  IOM       OUTPUT IOM TO COMPS                                 LISTIO      1288     A     
 LISTIO                                                                                    LISTIO      1289     A     
 LISTIO    PBUF3C   SA1    LCMFG                                                           LISTIO      1290     A     
 LISTIO             SA2    A1+B5                                                           LISTIO      1291     A     
 LISTIO             BX6    X1-X2                                                           LISTIO      1292     A     
 LISTIO             LX6    59-P.LCM                                                        LISTIO      1293     A     
 LISTIO             PL     X6,PBUF4    IF LEVEL OF FWA AND LWA AGREE                       LISTIO      1294     A     
 LISTIO             SB6    -E.BIO            ERROR IF FWA/LWA IN DIFFERENT LEVELS          LISTIO      1295     A     
 LISTIO             SB7    PH2RETN                                                         LISTIO      1296     A     
 LISTIO             EQ     ERPRO                                                           LISTIO      1297     A     
 LISTIO                                                                                    LISTIO      1298     A     
 LISTIO    PBUF4    ADVIN                                                                  LISTIO      1299     A     
 LISTIO             IF.NE  EL.),IOERR        IF NOT A )                                    LISTIO      1300     A     
 LISTIO             NEXTE                                                                  LISTIO      1301     A     
 LISTIO             IF.NE  EL.EOS,IOERR      IF NOT EOS                                    LISTIO      1302     A     
 LISTIO                                                                                    LISTIO      1303     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2066    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             RJ     IIR         ISSUE IOLIST TABLE TO RLIST IF OPT=2                LISTIO      1304     A     
 LISTIO             SA3    IOFLAG                                                          LISTIO      1305     A     
 LISTIO             SX6    GEFCM             MACRO HEADER ADDRESS                          LISTIO      1306     A     
 LISTIO             LX3    1                                                               LISTIO      1307     A     
 LISTIO             SA1    BUFFTAB+X3        NAME OF OBJECT ROUTINE                        LISTIO      1308     A     
 LISTIO             LX6    18                                                              LISTIO      1309     A     
 LISTIO             SA6    IONAME                                                          LISTIO      1310     A     
 LISTIO             RJ     IOCM              OUTPUT MACRO                                  LISTIO      1311     A     
 LISTIO             SA5    TEMP        SYMTAB ORD OF FWA                                   LISTIO      1312     A     
 LISTIO             SA3    TEMPA       SYMTAB ORD OF LWA                                   LISTIO      1313          I
          -FCC1664X 
 LISTIO             MX6    0                                                               LISTIO      1314     A     
 LISTIO             BX0    X5-X3                                                           LISTIO      1315          I
          -FCC1664X 
 LISTIO             SA6    IONAME      CLEAR FOR NEXT I/O PROCESSOR                        LISTIO      1316     A     
 LISTIO             ZR     X0,PBUF     IF IHS EQUAL, DONT CHECK FOR ERRORS                 LISTIO      1317          I
          -FCC1664X 
 LISTIO             SA2    SYM1                                                            LISTIO      1318     A     
 LISTIO             LX0    X5,B5       2*SYMTAB ORD                                        LISTIO      1319     A     
 LISTIO             SB1    X5                                                              LISTIO      1320     A     
 LISTIO             IX6    X2-X0                                                           LISTIO      1321     A     
 LISTIO             SA1    X6          WORD A OF FWA                                       LISTIO      1322     A     
 LISTIO             SA6    TEMP                                                            LISTIO      1323     A     
 LISTIO             MX7    0                                                               LISTIO      1324          I
          -FCC0544
 LISTIO             SA2    A1-B5       WORD B                                              LISTIO      1325     A     
 LISTIO             SA7    MACSYM                                                          LISTIO      1326          I
          -FCC0544
 LISTIO             RJ     EQUIVP      RETURN IH OF FWA                                    LISTIO      1327     A     
 LISTIO             SA3    IOFLAG                                                          FCC1664X       7     A     
 LISTIO             SA6    MACLS2      BASE OF FWA                                         FCC0544        9     A     
 LISTIO             SA3    TEMPA       SYMTAB ORD OF LWA                                   LISTIO      1328          I
          -FCC1664X 
 LISTIO             SA2    SYM1                                                            FCC1664X       8     A     
 LISTIO             LX6    1                                                               FCC1664X       9     A     
 LISTIO             SX6    X6+B5                                                           FCC1664X      10     A     
 LISTIO             LX3    1+P.LOCF                                                        FCC1664X      11     A     
 LISTIO             IX6    X2-X6                                                           FCC1664X      12     A     
 LISTIO             SA1    X6          WORDB OF BASE OF FWA                                FCC1664X      13     A     
 LISTIO             BX6    X1+X3       SET LOCF BIT TO INHIBIT OPTIMAZATION FOR            FCC1664X      14     A     
 LISTIO             SA6    A1          INPUT OPERATION                                     FCC1664X      15     A     
 LISTIO             SA3    TEMPA       SYMTAB ORD OF LWA                                   FCC1664X      16     A     
 LISTIO             IX5    X3-X5                                                           FCC1664X      17     A     
 LISTIO             ZR     X5,PBUF     IF SYMTAB ORD(FWA)  EQ  SYMTAB ORD(LWA)             FCC1664X      18     A     
 LISTIO             SA2    SYM1                                                            LISTIO      1329     A     
 LISTIO             LX0    X3,B5       2*SYMTAB ORD                                        LISTIO      1330     A     
 LISTIO             SB1    X3                                                              LISTIO      1331     A     
 LISTIO             IX6    X2-X0                                                           LISTIO      1332     A     
 LISTIO             SA1    X6          WORD A OF LWA                                       LISTIO      1333     A     
 LISTIO             SA6    A3                                                              LISTIO      1334     A     
 LISTIO             SA2    A1-B5       WORD B                                              LISTIO      1335     A     
 LISTIO             RJ     EQUIVP      RETURNS IH OF LWA                                   LISTIO      1336     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2067    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SA5    MACLS2      IH OF FWA, STORED BY EQUIVP                         LISTIO      1337     A     
 LISTIO             MX0    1                                                               LISTIO      1338     A     
 LISTIO             IX6    X5-X6                                                           LISTIO      1339     A     
 LISTIO             ZR     X6,PBUF     IF IHS EQUAL                                        LISTIO      1340     A     
 LISTIO             SA3    MACBUF+1    SYMTAB ORD OF OBJECT ROUTINE NAME                   LISTIO      1341     A     
 LISTIO             SA2    SYM1                                                            LISTIO      1342     A     
 LISTIO             SX5    X3                                                              LISTIO      1343     A     
 LISTIO             LX5    1                                                               LISTIO      1344     A     
 LISTIO             IX1    X2-X5                                                           LISTIO      1345     A     
 LISTIO             SA2    X1-1        WORD B OF SYMTAB ENTRY                              LISTIO      1346     A     
 LISTIO             LX0    P.IOF+1                                                         LISTIO      1347     A     
 LISTIO             BX6    -X0*X2      CLEAR IOF BIT IN WORD B                             LISTIO      1348     A     
 LISTIO             SA6    A2                                                              LISTIO      1349     A     
 LISTIO             SA4    TEMPA                                                           LISTIO      1350     A     
 LISTIO             SA2    TEMP                                                            LISTIO      1351     A     
 LISTIO             SA3    X4          WORD A OF LWA                                       LISTIO      1352     A     
 LISTIO             SA1    X2          WORD A OF FWA                                       LISTIO      1353     A     
 LISTIO             SB6    -E.BIO2                                                         LISTIO      1354          I
          -FCC0593
 LISTIO             BX6    X1+X3                                                           LISTIO      1355          I
          -FCC0593
 LISTIO             BX6    X1*X3                                                           FCC0593       29     A     
 LISTIO             LX6    59-P.FP                                                         LISTIO      1356     A     
 LISTIO             MI     X6,IOERRX   FATAL IF EITHER IS A FP                             LISTIO      1357          I
          -FCC0593
 LISTIO             MI     X6,PBUF     IF FWA AND LWA ARE F.P.                             FCC0593       30     A     
 LISTIO             SB6    -E.BIOA                                                         LISTIO      1358          I
          -FCC0593
 LISTIO             BX0    X1*X3                                                           LISTIO      1359          I
          -FCC0593
 LISTIO             LX0    59-P.COM                                                        LISTIO      1360          I
          -FCC0593
 LISTIO             PL     X0,IOERRX   FATAL IF EITHER NOT IN COMMON BLOCK                 LISTIO      1361          I
          -FCC0593
 LISTIO             LX6    P.FP-P.COM                                                      FCC0593       31     A     
 LISTIO             PL     X6,BUFERR   IF EITHER NOT IN COMMON BLOCK                       FCC0593       32     A     
 LISTIO             SA2    A1-B5       WORD B OF FWA                                       LISTIO      1362     A     
 LISTIO             SA4    A3-B5       WORD B OF LWA                                       LISTIO      1363     A     
 LISTIO             MX6    -L.RB                                                           LISTIO      1364     A     
 LISTIO             BX5    X2-X4                                                           LISTIO      1365     A     
 LISTIO             LX6    P.RB                                                            LISTIO      1366     A     
 LISTIO             BX0    -X6*X5                                                          LISTIO      1367     A     
 LISTIO             NZ     X0,IOERRX   FATAL IF COMMON BLOCK NO. NOT SAME                  LISTIO      1368          I
          -FCC0593
 LISTIO             POSTERR   NR=E.BIO1,SEV=INF,RETURN=PBUF                                LISTIO      1369          I
          -FCC0593
 LISTIO             ZR     X0,PBUF     IF SAME COMMON BLOCK                                FCC0593       33     A     
 LISTIO    BUFERR   POSTERR   NR=E.BIO1,SEV=INF,RETURN=PBUF                                FCC0593       34     A     
 LISTIO    PSTAPL   TITLE  PROCESS STORE TO APLIST MACROS                                  LISTIO      1370     A     
 LISTIO             SPACE  2                                                               LISTIO      1371     A     
 LISTIO   ***                                                                              LISTIO      1372     A     
 LISTIO   *         PSTAPL - PROCESS STORE TO APLIST MACROS                                LISTIO      1373     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2068    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO   *                                                                                LISTIO      1374     A     
 LISTIO   *         ON ENTRY - X2 - WORD B OF VARIABLE LOADED                              LISTIO      1375     A     
 LISTIO   *                    B4 - MACRO BUFFER WORD COUNT.                               LISTIO      1376     A     
 LISTIO   *                    X6 - RESULT NUMBER OF LOAD FROM IXFN                        LISTIO      1377     A     
 LISTIO   *                    A7 - NEXT RLIST STORE ADDRESS                               LISTIO      1378     A     
 LISTIO   *                                                                                LISTIO      1379     A     
 LISTIO    PSTAPL   ENTRY. *                 ** ENTRY/EXIT **                              LISTIO      1380     A     
 LISTIO             SA1    STRAPL      STORE TO APLIST MACRO HEADER                        LISTIO      1381     A     
 LISTIO             SA3    IOAPLN                                                          LISTIO      1382     A     
 LISTIO             BX7    X1+X6                                                           LISTIO      1383     A     
 LISTIO             SA7    A7+B5                                                           LISTIO      1384     A     
 LISTIO             SX7    X3+I.IO                                                         LISTIO      1385     A     
 LISTIO             SA7    A7+B5             IH FOR I/O APLIST                             LISTIO      1386     A     
 LISTIO             SA6    A7+B5             RESULT NUMBER                                 LISTIO      1387     A     
 LISTIO             SA1    PARCNT            PARAMETER COUNT                               LISTIO      1388     A     
 LISTIO             SX7    X1                                                              LISTIO      1389     A     
 LISTIO             SA7    A6+B5             BIAS FOR STORE                                LISTIO      1390     A     
 LISTIO             SB4    B4+4              ADJUST WORD COUNT                             LISTIO      1391     A     
 LISTIO             SB1    1                                                               LISTIO      1392     A     
 LISTIO             WRITEW =XF.RLST,MACBUF,B4      MACRO TO -RLIST-                        LISTIO      1393     A     
 LISTIO             SX6    0                                                               LISTIO      1394     A     
 LISTIO             SB5    1                                                               LISTIO      1395     A     
 LISTIO             SA6    APLRST            CLEAR FLAG                                    LISTIO      1396     A     
 LISTIO             EQ     PSTAPL                                                          LISTIO      1397     A     
 LISTIO    STIOM    SPACE  4,8                                                             LISTIO      1398     A     
 LISTIO   **        STIOM - FORM MACRO TO INDICATE A STORE TO AN APLIST WORD               LISTIO      1399     A     
 LISTIO                                                                                    LISTIO      1400     A     
 LISTIO    STIOM    ENTRY. *                 ** ENTRY/EXIT **                              LISTIO      1401     A     
 LISTIO             SB1    1                                                               LISTIO      1402     A     
 LISTIO             WRITEC =XF.CMPS,IOM.CD,2                                               LISTIO      1403     A     
 LISTIO             SA2    DATA.                                                           LISTIO      1404     A     
 LISTIO             SA1    PARCNT                                                          LISTIO      1405     A     
 LISTIO             SB5    1                                                               LISTIO      1406     A     
 LISTIO             SX7    X2+B5                                                           LISTIO      1407     A     
 LISTIO             SX6    X1+B5                                                           LISTIO      1408     A     
 LISTIO             SA7    A2                INCREMENT BLOCK SIZE                          LISTIO      1409     A     
 LISTIO             SA6    A1                INCREMENT PARAMETER COUNT                     LISTIO      1410     A     
 LISTIO             EQ     STIOM                                                           LISTIO      1411     A     
 LISTIO    IOM.CD   LIT    13C  IOM     -1B                                                LISTIO      1412     A     
 LISTIO             TITLE              ENCODE/DECODE STMT PROCESSING                       LISTIO      1413     A     
 LISTIO   *         DEC - PROCESS "DECODE" STATEMENT                                       LISTIO      1414     A     
 LISTIO                                                                                    LISTIO      1415     A     
 LISTIO    DEC      ENTRY.                                                                 LISTIO      1416     A     
 LISTIO             RJ     IOSETUP                                                         LISTIO      1417     A     
 LISTIO             MX7    1                                                               LISTIO      1418     A     
 LISTIO             RJ     PED                                                             LISTIO      1419     A     
 LISTIO             EQ     DEC                                                             LISTIO      1420     A     
 LISTIO                                                                                    LISTIO      1421     A     
 LISTIO   *         ENC - PROCESS "ENCODE" STATEMENT                                       LISTIO      1422     A     
 LISTIO                                                                                    LISTIO      1423     A     
 LISTIO    ENC      ENTRY.                                                                 LISTIO      1424     A     
 LISTIO             RJ     IOSETUP                                                         LISTIO      1425     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2069    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             MX7    0                                                               LISTIO      1426     A     
 LISTIO             RJ     PED                                                             LISTIO      1427     A     
 LISTIO             EQ     ENC                                                             LISTIO      1428     A     
 LISTIO             SPACE  3                                                               LISTIO      1429     A     
 LISTIO    PED.E    SB6    -E.EDC            BAD CHARACTER COUNT                           LISTIO      1430     A     
 LISTIO             EQ     IOERRX                                                          LISTIO      1431     A     
 LISTIO                                                                                    LISTIO      1432     A     
 LISTIO   ***                                                                              LISTIO      1433     A     
 LISTIO   *         PED - COMMON PROCESSOR FOR ENCODE AND DECODE STMTS                     LISTIO      1434     A     
 LISTIO   *                                                                                LISTIO      1435     A     
 LISTIO   *         SYNTAX:                                                                LISTIO      1436     A     
 LISTIO   *                XXCODE (C,N,V) LIST                                             LISTIO      1437     A     
 LISTIO   *                                                                                LISTIO      1438          I
          -FCC0413
 LISTIO                                                                                    FCC0413        7     A     
 LISTIO    PEDT     BSS    1           IOLST ENTRY FOR ENCODE *V*                          FCC0413        8     A     
 LISTIO                                                                                    FCC0413        9     A     
 LISTIO    PED      ENTRY. *                 ** ENTRY/EXIT **                              LISTIO      1439     A     
 LISTIO             MX6    0                                                               LISTIO      1440     A     
 LISTIO             SA6    LDFLAG      CLEAR LIST-DIRECTED FLAG                            LISTIO      1441     A     
 LISTIO             SA7    IOFLAG                                                          LISTIO      1442     A     
 LISTIO             MX6    60                                                              LISTIO      1443     A     
 LISTIO             SA6    PIOFLAG                                                         LISTIO      1444     A     
 LISTIO             RJ     DOCALL            INFORM DO PROCESSOR                           LISTIO      1445     A     
 LISTIO             ASAERR                   FLAG NON USAS STMT                            LISTIO      1446     A     
 LISTIO             ADVIN                    SKIP LEFT PAREN                               LISTIO      1447     A     
 LISTIO             GETE                     GET NEXT                                      LISTIO      1448     A     
 LISTIO             IF.NE  CON,PED.VC        IF CHAR COUNT IS NOT A CONSTANT               LISTIO      1449     A     
 LISTIO                                                                                    LISTIO      1450     A     
 LISTIO   *         PROCESS CONSTANT CHAR COUNT                                            LISTIO      1451     A     
 LISTIO                                                                                    LISTIO      1452     A     
 LISTIO             UPDATE                                                                 LISTIO      1453     A     
 LISTIO             AX1    45                                                              LISTIO      1454     A     
 LISTIO             SX2    X1-T.INT                                                        LISTIO      1455     A     
 LISTIO             NZ     X2,PED.E          IF NOT TYPE INTEGER                           LISTIO      1456     A     
 LISTIO             SB1    -B5                                                             LISTIO      1457     A     
 LISTIO             BX1    X4                                                              LISTIO      1458     A     
 LISTIO             RJ     CONVERT           CONVERT CHAR COUNT TO BINARY                  LISTIO      1459     A     
 LISTIO             ZR     X1,PED.E          IF ZERO                                       LISTIO      1460     A     
 LISTIO             SB1    B5                                                              LISTIO      1461     A     
 LISTIO             RJ     CONVERT           PLACE CHAR COUNT IN CON TABLE                 LISTIO      1462     A     
 LISTIO             SX6    X1                SYMTAB ORDINAL                                LISTIO      1463     A     
 LISTIO             FORMARG NAME,1                                                         LISTIO      1464     A     
 LISTIO             AX1    30                                                              LISTIO      1465     A     
 LISTIO             SX6    X1                CA                                            LISTIO      1466     A     
 LISTIO             FORMARG OCT,2                                                          LISTIO      1467     A     
 LISTIO             FORMMAC IOM              ISSUE MACRO TO COMPS FILE                     LISTIO      1468     A     
 LISTIO             EQ     PED1                                                            LISTIO      1469     A     
 LISTIO                                                                                    LISTIO      1470     A     
 LISTIO   *         VARIABLE CHAR COUNT                                                    LISTIO      1471     A     
 LISTIO                                                                                    LISTIO      1472     A     
 LISTIO    PED.VC   IF.NE  NAME,PED.E        IF NOT A NAME                                 LISTIO      1473     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2070    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             NEXTE                    GET NEXT E                                    LISTIO      1474     A     
 LISTIO             IF.NE  EL.COMMA,PED.E    IF NOT A ,                                    LISTIO      1475     A     
 LISTIO                                                                                    LISTIO      1476     A     
 LISTIO             SX3    B5                NO EXPRESSION FLAG                            LISTIO      1477     A     
 LISTIO             IXFN   REF               PROCESS NAME                                  LISTIO      1478     A     
 LISTIO             CFSIV  E.EDC             CHECK FOR A SIMPLE INTEGER VARIABLE           LISTIO      1479     A     
 LISTIO             SB4    B5                SET FOR CHAR COUNT NAME                       LISTIO      1480     A     
 LISTIO             SB7    B5                                                              LISTIO      1481     A     
 LISTIO             RJ     PVARNAM           PROCESS CHAR COUNT NAME                       LISTIO      1482     A     
 LISTIO             FORMMAC IOM              ISSUE MACRO TO COMPS FILE                     LISTIO      1483     A     
 LISTIO                                                                                    LISTIO      1484     A     
 LISTIO    PED1     ADVIN                    ADVANCE E-LIST POINTER                        LISTIO      1485     A     
 LISTIO             IF.NE  EL.COMMA,IOERR    IF NOT A ,                                    LISTIO      1486     A     
 LISTIO             GETE                                                                   LISTIO      1487     A     
 LISTIO             IF.EQ  EL.STAR,IOERR                                                   LISTIO      1488     A     
 LISTIO             MX7    0                                                               LISTIO      1489     A     
 LISTIO             SA7    LFNA                                                            LISTIO      1490     A     
 LISTIO             RJ     FMTNO             PROCESS FORMAT NUMBER                         LISTIO      1491     A     
 LISTIO             ZR     X0,IOERR          NAMELIST NOT ALLOWED                          LISTIO      1492     A     
 LISTIO                                                                                    LISTIO      1493     A     
 LISTIO             ADVIN                                                                  LISTIO      1494     A     
 LISTIO             IF.NE  EL.COMMA,IOERR    IF NOT A ,                                    LISTIO      1495     A     
 LISTIO             SA1    IOFLAG                                                          LISTIO      1496     A     
 LISTIO             NZ     X1,PED1A          IF DECODE                                     LISTIO      1497     A     
 LISTIO             MX7    0                                                               LISTIO      1498     A     
 LISTIO             SA7    PIOFLAG           +0 IF ENCODE                                  LISTIO      1499     A     
 LISTIO    PED1A    MX0    1                                                               LISTIO      1500     A     
 LISTIO             BX2    -X1*X0            SET FLAG FOR IXFN                             LISTIO      1501     A     
 LISTIO             SX3    B5                NO EXPRESSION FLAG                            LISTIO      1502     A     
 LISTIO             MX6    59                                                              LISTIO      1503     A     
 LISTIO             SA6    IXFNCL      SIGNAL VARIABLE FORMAT                              LISTIO      1504     A     
 LISTIO             SX6    B5                                                              LISTIO      1505     A     
 LISTIO             SA6    BIO         FLAG ENCODE/DECODE                                  FCC0614       12     A     
 LISTIO             SA6    CRFLAG      SPECIAL CASE CLASS REF CHECK                        LISTIO      1506     A     
 LISTIO             IXFN                     GET ADDR OF V                                 LISTIO      1507     A     
 LISTIO             SA3    PIOFLAG                                                         LISTIO      1508     A     
 LISTIO             MI     X3,PED2           IF A DECODE STMT                              LISTIO      1509     A     
 LISTIO             BX7    -X3                                                             LISTIO      1510     A     
 LISTIO             SA7    A3                                                              LISTIO      1511     A     
 LISTIO             BX7    X0+X1                                                           LISTIO      1512     A     
 LISTIO             SA7    A1                SET DEFINED BIT                               LISTIO      1513     A     
 LISTIO                                                                                    FCC0413       10     A     
 LISTIO   *         FILING OF *DEF* ENTRY IN *IOLST* FOR V IS DEFERRED UNTIL               FCC0413       11     A     
 LISTIO   *         THE LIST IS PROCESSED SO THAT USES WILL NOT BE LOST.                   FCC0413       12     A     
 LISTIO                                                                                    FCC0413       13     A     
 LISTIO             SA3    =XOPT2                                                          FCC0784        4     A     
 LISTIO             ZR     X3,PED2     IF OPT .NE. 2                                       FCC0784        5     A     
 LISTIO             SA3    L.IOLST                                                         FCC0413       14     A     
 LISTIO             SA4    O.IOLST                                                         FCC0413       15     A     
 LISTIO             SB4    X3-1                                                            FCC0413       16     A     
 LISTIO             SX7    B4                                                              FCC0413       17     A     
 LISTIO             SA4    X4+B4                                                           FCC0413       18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2071    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SA7    A3          L.IOLST = L.IOLST - 1                               FCC0413       19     A     
 LISTIO             BX7    X4                                                              FCC0413       20     A     
 LISTIO             SA7    PEDT        HOLDS IOLST ENTRY FOR *V* UNTIL IOL                 FCC0413       21     A     
 LISTIO                                                                                    LISTIO      1514     A     
 LISTIO    PED2     SA4    APLRST                                                          LISTIO      1515     A     
 LISTIO             ZR     X4,PED2A          STORE TO APLIST NOT NEEDED                    LISTIO      1516     A     
 LISTIO             SB4    B0                WORD COUNT FOR WRITE CALL                     LISTIO      1517     A     
 LISTIO             SA7    MACBUF-1          INITIALIZE A7 FOR STORES                      LISTIO      1518     A     
 LISTIO             RJ     PSTAPL            GENERATE STORE TO APLIST MACROS               LISTIO      1519     A     
 LISTIO             RJ     STIOM             ISSUE -1 APLIST MACRO WORD                    LISTIO      1520     A     
 LISTIO             EQ     PED2B                                                           LISTIO      1521     A     
 LISTIO                                                                                    LISTIO      1522     A     
 LISTIO    PED2A    SB4    B5                                                              LISTIO      1523     A     
 LISTIO             SB7    B5                                                              LISTIO      1524     A     
 LISTIO             RJ     PVARNAM           PROCESS AS IF FORMAT NAME                     LISTIO      1525     A     
 LISTIO             FORMMAC IOM              ISSUE MACRO TO COMPS FILE                     LISTIO      1526     A     
 LISTIO                                                                                    LISTIO      1527     A     
 LISTIO    PED2B    ADVIN                                                                  LISTIO      1528     A     
 LISTIO             IF.NE  EL.),IOERR        IF NOT A )                                    LISTIO      1529     A     
 LISTIO                                                                                    LISTIO      1530     A     
 LISTIO             SA3    IOFLAG                                                          LISTIO      1531     A     
 LISTIO             LX3    2                 0 OR 2                                        LISTIO      1532     A     
 LISTIO             SA1    EDTAB+X3                                                        LISTIO      1533     A     
 LISTIO             RJ     IOLIST            PROCESS THE I/O LIST                          LISTIO      1534     A     
 LISTIO             EQ     PED                                                             LISTIO      1535     A     
 LISTIO             SPACE  2                                                               LISTIO      1536     A     
 LISTIO    IOERR    SB6    E.IOSE            I/O STMT SYNTAX ERROR                         LISTIO      1537     A     
 LISTIO             SB7    DOGOOF                                                          LISTIO      1538     A     
 LISTIO             MX6    0                                                               LISTIO      1539     A     
 LISTIO             SA6    IONAME            CLEAR FOR NEXT I/O STMT                       LISTIO      1540     A     
 LISTIO             EQ     ERPRO                                                           LISTIO      1541     A     
 LISTIO             TITLE              IOLIST - I/O LIST PROCESSING                        LISTIO      1542     A     
 LISTIO    SERF                              SINGLE ELE REF FLAG. 0 IF NEXT IS (           LISTIO      1543     A     
 LISTIO                                                                                    LISTIO      1544     A     
 LISTIO   ***                                                                              LISTIO      1545     A     
 LISTIO   *         IOLIST - I/O LIST PROCESSOR                                            LISTIO      1546     A     
 LISTIO   *           PROCESSES THE I/O LIST AND OUTPUTS MACROS TO RLIST TO CALL           LISTIO      1547     A     
 LISTIO   *           THE EXECUTION TIME ROUTINES TO TRANSFER THE DATA TO/FROM             LISTIO      1548     A     
 LISTIO   *           THE I/O DEVICES                                                      LISTIO      1549     A     
 LISTIO   *                                                                                LISTIO      1550     A     
 LISTIO   *         ON ENTRY:                                                              LISTIO      1551     A     
 LISTIO   *                A1 = ADDRESS OF 2 WORDS CONTAINING NAMES OF EXECUTION           LISTIO      1552     A     
 LISTIO   *                TIME ROUTINES                                                   LISTIO      1553     A     
 LISTIO   *                SELIST POINTS TO FIRST ELEMENT OF LIST                          LISTIO      1554     A     
 LISTIO   *                MACLS1 - MACLK3 SET FOR FIRST CALL                              LISTIO      1555     A     
 LISTIO   *                                                                                LISTIO      1556     A     
 LISTIO    IOLIST   ENTRY. *                 ** ENTRY/EXIT **                              LISTIO      1557     A     
 LISTIO             SX7    GEFCM             MACRO HEADER ADDRESS                          LISTIO      1558     A     
 LISTIO             SX6    A1                                                              LISTIO      1559     A     
 LISTIO             LX7    18                                                              LISTIO      1560     A     
 LISTIO             BX6    X6+X7                                                           LISTIO      1561     A     
 LISTIO             MX7    0                                                               LISTIO      1562     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2072    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SA6    IONAME            ADDRESS OF OBJECT ROUTINE NAMES               LISTIO      1563     A     
 LISTIO             SA7    HOLCON      CLEAR FLAG IN CASE SET BY PREVIOUS I/O STMT         LISTIO      1564     A     
 LISTIO             SA3    IOFLAG                                                          LISTIO      1565     A     
 LISTIO             ZR     X3,IOLIST1        IF ^INPUT                                     LISTIO      1566     A     
 LISTIO             SX6    1                                                               LISTIO      1567     A     
 LISTIO             SA6    PIOFLAG           + FOR ITEMS DEFINED                           LISTIO      1568     A     
 LISTIO                                                                                    LISTIO      1569     A     
 LISTIO    IOLIST1  RJ     IIR               ISSUE IOLST TABLE TO RLIST IF OPT=2           LISTIO      1570          I
          -FCC1882
 LISTIO                                                                                    LISTIO      1571          I
          -FCC1882
 LISTIO             SA1    END=                                                            LISTIO      1572          I
          -FCC1882
 LISTIO    IOLIST1  SA1    END=                                                            FCC1882        6     A     
 LISTIO             ZR     X1,IOL.L          IF NOT A READ STATEMENT                       LISTIO      1573     A     
 LISTIO             SA2    =XN.GL      NEXT #GL NUMBER                                     LISTIO      1574     A     
 LISTIO             SA4    =3R#GL                                                          LISTIO      1575     A     
 LISTIO             SB1    24                SHIFT COUNT                                   LISTIO      1576     A     
 LISTIO             BX7    X4                                                              LISTIO      1577     A     
 LISTIO             RJ     CNVT              CONVERT TO BCD STRING                         LISTIO      1578     A     
 LISTIO             LX6    B1,X7                                                           LISTIO      1579     A     
 LISTIO             FORMARG CHAR,1                                                         LISTIO      1580     A     
 LISTIO             FORMMAC IOM              ISSUE MACRO TO COMPS FILE                     LISTIO      1581     A     
 LISTIO             SPACE  2                                                               LISTIO      1582     A     
 LISTIO   *         MAIN LOOP                                                              LISTIO      1583     A     
 LISTIO                                                                                    LISTIO      1584     A     
 LISTIO    IOL.L    GETE                     GET E LIST ELEMENT                            LISTIO      1585     A     
 LISTIO    IOL.MM   IF.EQ  NAME,IOL.N    IF A NAME                                         LISTIO      1586          I
          -FEAT155B 
 LISTIO             IF.EQ  NAME,IOL.N  IF A NAME                                           FEAT155B      36     A     
 LISTIO             IF.EQ  EL.(,IOL.C                                                      LISTIO      1587     A     
 LISTIO             IF.NE  EL.EOS,IOL.N      IF NOT AN END OF STATEMENT                    LISTIO      1588     A     
 LISTIO             SPACE  3                                                               LISTIO      1589     A     
 LISTIO   *         END OF STMT - ISSUE TERMINAL CALL                                      LISTIO      1590     A     
 LISTIO                                                                                    LISTIO      1591     A     
 LISTIO    IOL.E    RJ     IIR         ISSUE IOLST TABLE TO RLIST IF OPT=2                 LISTIO      1592          I
          -FCC0413
 LISTIO    IOL.E    SA1    PEDT                                                            FCC0413       22          I
          -FEAT155B 
 LISTIO    IOL.E    SA4    A4+B5       PREVIOUS ELIST ELEMENT                              FEAT155B      37     A     
 LISTIO             MX6    0                                                               FCC2202       48     A     
 LISTIO             SA6    VFFLAG      RESET VARIABLE FORMAT FLAG                          FCC2202       49     A     
 LISTIO             UX1    B2,X4                                                           FEAT155B      38     A     
 LISTIO             IF.NE  EL.COMMA,IOL.E0   IF NOT LINE CONTROL                           FEAT155B      39     A     
 LISTIO             SA2    LDFLAG                                                          FEAT155B      40     A     
 LISTIO             SB6    -E.LC       LINE CONTROL SPEC                                   FEAT155B      41     A     
 LISTIO             SA1    IOFLAG                                                          FEAT155B      42     A     
 LISTIO             PL     X2,IOERRX   LINE CONTROL ALLOWED ONLY FOR * FORMAT              FEAT155B      43     A     
 LISTIO             NZ     X1,IOERRX   NOT ALLOWED FOR INPUT STMT                          FEAT155B      44     A     
 LISTIO             SX6    1           SIGNAL ENTRY WITH NO BASE                           FEAT155B      45     A     
 LISTIO             FORMARG OCT,1                                                          FEAT155B      46     A     
 LISTIO             SX6    7           TYPE = 7 FOR LINE CONTROL                           FEAT155B      47     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2073    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             FORMARG OCT,3                                                          FEAT155B      48     A     
 LISTIO             FORMMAC IOM                                                            FEAT155B      49     A     
 LISTIO    IOL.E0   SA1    PEDT                                                            FEAT155B      50     A     
 LISTIO             ZR     X1,IOL.E1   IF NOT ENCODE                                       FCC0413       23     A     
 LISTIO             ADDWD  IOLST,X1    FILE *DEF* ENTRY FOR *V*                            FCC0413       24     A     
 LISTIO                                                                                    FCC0413       25     A     
 LISTIO    IOL.E1   RJ     IIR         ISSUE IOLST TABLE TO RLIST                          FCC0413       26     A     
 LISTIO             SB1    1                                                               LISTIO      1593     A     
 LISTIO             WRITEC =XF.CMPS,EIOP.CD,2                                              LISTIO      1594     A     
 LISTIO             SA2    DATA.                                                           LISTIO      1595     A     
 LISTIO             SB5    1                                                               LISTIO      1596     A     
 LISTIO             SX6    X2+B5             INCREMENT BLOCK SIZE                          LISTIO      1597     A     
 LISTIO             SA6    A2                                                              LISTIO      1598     A     
 LISTIO             SA4    IONAME                                                          LISTIO      1599     A     
 LISTIO             MX6    0                                                               LISTIO      1600     A     
 LISTIO             SA1    X4                                                              LISTIO      1601     A     
 LISTIO             SA6    L.IOLST           RESET TABLE LENGTH                            LISTIO      1602     A     
 LISTIO             RJ     IOCM                                                            LISTIO      1603     A     
 LISTIO             MX6    0                                                               LISTIO      1604     A     
 LISTIO             SA6    IONAME            CLEAR FOR NEXT I/O STMT                       LISTIO      1605     A     
 LISTIO                                                                                    LISTIO      1606     A     
 LISTIO             SA2    END=                                                            LISTIO      1607     A     
 LISTIO             ZR     X2,IOLIST         IF NOT A READ STATEMENT                       LISTIO      1608     A     
 LISTIO             SA6    A2                CLEAR                                         LISTIO      1609     A     
 LISTIO             SA2    N.GL                                                            LISTIO      1610     A     
 LISTIO             SX7    X2+B5       N.GL = N.GL + 1                                     LISTIO      1611     A     
 LISTIO             SA7    A2                                                              LISTIO      1612     A     
 LISTIO             SX5    X2+I.GL                                                         LISTIO      1613     A     
 LISTIO             CALL   WLABM       WRITE LABEL DEF TO RLIST                            LISTIO      1614     A     
 LISTIO             EQ     IOLIST                                                          LISTIO      1615     A     
 LISTIO                                                                                    LISTIO      1616     A     
 LISTIO                                                                                    LISTIO      1617     A     
 LISTIO    EIOP.CD  LIT    12C  EIO     0B                                                 LISTIO      1618     A     
 LISTIO    IOL.N    SPACE  3                                                               LISTIO      1619     A     
 LISTIO   *         PROCESS NAME                                                           LISTIO      1620     A     
 LISTIO                                                                                    LISTIO      1621     A     
 LISTIO    IOL.N    NEXTE                    GET NEXT ELEMENT                              LISTIO      1622     A     
 LISTIO             IF.EQ  EL.=,DOEND        IF =, THEN CLOSE OUT THE LOOP                 LISTIO      1623     A     
 LISTIO             SX7    B2-EL.(                                                         LISTIO      1624     A     
 LISTIO             SA7    SERF              SAVE SINGLE ELEMENT REF FLAG                  LISTIO      1625     A     
 LISTIO                                                                                    LISTIO      1626     A     
 LISTIO             SX3    B0                EXPRESSION FLAG                               LISTIO      1627          I
          -FCC0733
 LISTIO             SA3    IOFLAG      ^0 IF INPUT, USED AS EXPRESSION FLAG                FCC0733        4     A     
 LISTIO             IXFN   IOFLAG            CALL IXFN TO LOAD THE ADDR                    LISTIO      1628     A     
 LISTIO             MP=    P1,X6             P1 = R NUMBER OF RESULT OF LOAD               LISTIO      1629     A     
 LISTIO                                                                                    LISTIO      1630     A     
 LISTIO             SA3    IOFLAG                                                          LISTIO      1631     A     
 LISTIO             ZR     X3,IOL.N1         IF NOT AN INPUT OP                            LISTIO      1632     A     
 LISTIO             BX6    X0+X1             SET DEFINED BIT                               LISTIO      1633     A     
 LISTIO             SA6    A1                                                              LISTIO      1634     A     
 LISTIO             SX7    A1                                                              LISTIO      1635     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2074    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SX6    B1                                                              LISTIO      1636     A     
 LISTIO             SA7    TEMP              SAVE ADDRESS OF WORD A                        LISTIO      1637     A     
 LISTIO             SA6    TEMPA             SAVE SYMTAB ORDINAL                           LISTIO      1638     A     
 LISTIO             RJ     DODEF             INFORM DO OF VARIABLE REDEFINITION            LISTIO      1639     A     
 LISTIO             SA3    TEMP                                                            LISTIO      1640     A     
 LISTIO             SA1    X3                RESTORE SYMTAB ENTRY                          LISTIO      1641     A     
 LISTIO             SA2    A1-B5                                                           LISTIO      1642     A     
 LISTIO             SA4    TEMPA                                                           LISTIO      1643     A     
 LISTIO             SA3    MACLP1                                                          LISTIO      1644     A     
 LISTIO             BX6    X3                RESTORE RESULT NUMBER                         LISTIO      1645     A     
 LISTIO             SB1    X4                RESTORE SYMTAB ORDINAL                        LISTIO      1646     A     
 LISTIO                                                                                    LISTIO      1647     A     
 LISTIO   *         EXTRACT TYPE AND SET SDPF ( SINGLE/DOUBLE PRECISION FLAG )             LISTIO      1648     A     
 LISTIO                                                                                    LISTIO      1649     A     
 LISTIO    IOL.N1   SA4    APLRST                                                          LISTIO      1650     A     
 LISTIO             NZ     X4,LSTARR         IF ARRAY STORE TO APLIST                      LISTIO      1651     A     
 LISTIO             SA5    IOEXP                                                           LISTIO      1652     A     
 LISTIO             NZ     X5,LSTEXP         IF LIST EXPRESSION                            LISTIO      1653     A     
 LISTIO             SA4    HOLCON                                                          LISTIO      1654     A     
 LISTIO             NZ     X4,LSTCON         IF HOLLERITH CONSTANT                         LISTIO      1655     A     
 LISTIO             SA3    TYPEFG            TYPE WORD                                     LISTIO      1656     A     
 LISTIO             SX6    X3+B5             TYPE + 1                                      LISTIO      1657     A     
 LISTIO             SA6    MACLK4            SAVE IN PARAMETER K4                          LISTIO      1658     A     
 LISTIO             MX4    1                                                               LISTIO      1659     A     
 LISTIO             BX7    X4*X3             SINGLE/DOUBLE PRECISION BIT                   LISTIO      1660     A     
 LISTIO             LX7    1                                                               LISTIO      1661     A     
 LISTIO             SB3    X7                SDPF                                          LISTIO      1662     A     
 LISTIO                                                                                    LISTIO      1663     A     
 LISTIO   *         COMPUTE THE WORD COUNT FOR THE TRANSFER                                LISTIO      1664     A     
 LISTIO                                                                                    LISTIO      1665     A     
 LISTIO             SA3    SERF                                                            LISTIO      1666     A     
 LISTIO             SX6    B5                ITEM COUNT = 1                                LISTIO      1667     A     
 LISTIO             ZR     X3,IOL.N2         IF NEXT WAS A (                               LISTIO      1668     A     
 LISTIO                                                                                    LISTIO      1669     A     
 LISTIO             SB2    59-P.DIM                                                        LISTIO      1670     A     
 LISTIO             LX0    B2,X1                                                           LISTIO      1671     A     
 LISTIO             PL     X0,IOL.N3         IF NOT DIMENSIONED                            LISTIO      1672     A     
 LISTIO                                                                                    LISTIO      1673     A     
 LISTIO   *         GET DIM ENTRY AND CHECK FOR VARIABLE DIMENSIONS                        LISTIO      1674     A     
 LISTIO                                                                                    LISTIO      1675     A     
 LISTIO             BX7    X2                                                              LISTIO      1676     A     
 LISTIO             SA7    TEMP              SAVE WORD B OF SYMTAB ENTRY                   LISTIO      1677     A     
 LISTIO             MX0    60-L.DIMP                                                       LISTIO      1678     A     
 LISTIO             LX2    60-P.DIMP                                                       LISTIO      1679     A     
 LISTIO             SA4    DIM1                                                            LISTIO      1680     A     
 LISTIO             BX5    -X0*X2            EXTRACT DIMP ORDINAL                          LISTIO      1681     A     
 LISTIO             LX5    1                                                               LISTIO      1682     A     
 LISTIO             SB4    X5+B5                                                           LISTIO      1683     A     
 LISTIO             LX2    P.DIMP            REPOSITION                                    LISTIO      1684     A     
 LISTIO             SA5    X4+B4             SECOND WORD OF DIM ENTRY                      LISTIO      1685     A     
 LISTIO             MX0    3                                                               LISTIO      1686     A     
 LISTIO             BX3    X0*X5                                                           LISTIO      1687     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2075    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             LX0    60-3                                                            LISTIO      1688     A     
 LISTIO             BX4    X0*X5             VAR DIM FLAG V(ABC)                           LISTIO      1689     A     
 LISTIO             LX3    3                 X3 = NUMBER OF DIMENSIONS                     LISTIO      1690     A     
 LISTIO             NZ     X4,IOL.VAX        IF VARIABLE DIMENSIONS                        LISTIO      1691     A     
 LISTIO             AX5    36                                                              LISTIO      1692     A     
 LISTIO             SX6    X5                X6 = PRODUCT OF DIMENSIONS                    LISTIO      1693     A     
 LISTIO             SA3    TYPEFG                                                          LISTIO      1694     A     
 LISTIO             PL     X3,IOL.N2         IF SINGLE WORD ARRAY                          LISTIO      1695     A     
 LISTIO             AX6    1                 ITEM COUNT = WORD COUNT/2                     LISTIO      1696     A     
 LISTIO                                                                                    LISTIO      1697     A     
 LISTIO    IOL.N2   SA6    ITEMCT            SAVE THE ITEM COUNT                           LISTIO      1698     A     
 LISTIO                                                                                    LISTIO      1699     A     
 LISTIO             RJ     LSTITM            PROCESS LIST ITEM                             LISTIO      1700     A     
 LISTIO             EQ     IOL.NE                                                          LISTIO      1701     A     
 LISTIO                                                                                    LISTIO      1702     A     
 LISTIO    IOL.N3   SA4    IOFLAG                                                          LISTIO      1703     A     
 LISTIO             ZR     X4,IOL.N2         IF NOT AN INPUT STATEMENT                     LISTIO      1704     A     
 LISTIO             SA3    TEMP              RESTORE SYMTAB ENTRY                          LISTIO      1705     A     
 LISTIO             SA4    TEMPA             RESTORE SYMTAB ORDINAL                        LISTIO      1706     A     
 LISTIO             SA1    X3                                                              LISTIO      1707     A     
 LISTIO             SB1    X4                                                              LISTIO      1708     A     
 LISTIO             SA2    A1-B5                                                           LISTIO      1709     A     
 LISTIO             SX6    B5                ITEM COUNT = 1                                LISTIO      1710     A     
 LISTIO             EQ     IOL.N2                                                          LISTIO      1711     A     
 LISTIO             SPACE  3                                                               LISTIO      1712     A     
 LISTIO   *         GET NEXT ELEMENT                                                       LISTIO      1713     A     
 LISTIO                                                                                    LISTIO      1714     A     
 LISTIO    IOL.NE   ADVIN                    GET NEXT AND ADVANCE E-LIST POINTER           LISTIO      1715     A     
 LISTIO             IF.EQ  EL.COMMA,IOL.KK   IF COMMA                                      LISTIO      1716          I
          -FEAT155B 
 LISTIO             IF.EQ  EL.COMMA,IOL.L    IF COMMA                                      FEAT155B      51     A     
 LISTIO             IF.EQ  EL.EOS,IOL.E      IF EOS                                        LISTIO      1717     A     
 LISTIO             IF.NE  EL.S),IOERR       IF NOT A SPECIAL PAREN                        LISTIO      1718     A     
 LISTIO             EQ     IOL.NE            LOOP                                          LISTIO      1719     A     
 LISTIO    IOL.KK   GETE                                                                   LISTIO      1720          I
          -FEAT155B 
 LISTIO             IF.EQ  EL.EOS,IOERR                                                    LISTIO      1721          I
          -FEAT155B 
 LISTIO             EQ     IOL.MM                                                          LISTIO      1722          I
          -FEAT155B 
 LISTIO             SPACE  3                                                               LISTIO      1723     A     
 LISTIO                                                                                    LISTIO      1724     A     
 LISTIO    IOL.VAX  SB3    B0          FORCE SINGLE PRECISION FOR ITEM COUNT               LISTIO      1725     A     
 LISTIO             MX7    1                                                               LISTIO      1726     A     
 LISTIO             RJ     WWC         GENERATE RMACRO TO COMPUTE WORD COUNT               LISTIO      1727     A     
 LISTIO             SA2    TEMP              RESTORE WORD B                                LISTIO      1728     A     
 LISTIO             SA7    MACBUF-1          INITIALIZE A7 FOR STORES                      LISTIO      1729     A     
 LISTIO             SA3    NRLN                                                            LISTIO      1730     A     
 LISTIO             SB4    B0                WORD COUNT FOR WRITE CALL                     LISTIO      1731     A     
 LISTIO             SX6    X3-1              RESULT NUMBER OF LAST MACRO                   LISTIO      1732     A     
 LISTIO             RJ     PSTAPL            GENERATE STORE TO APLIST MACROS               LISTIO      1733     A     
 LISTIO             RJ     STIOM             ISSUE -1 APLIST MACRO WORD                    LISTIO      1734     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2076    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             EQ     IOL.NE                                                          LISTIO      1735     A     
 LISTIO             SPACE  3                                                               LISTIO      1736     A     
 LISTIO    DOITX    EQU    IOL.L             RETURN POINT FOR DOPROC AFTER                 LISTIO      1737     A     
 LISTIO   *                                  PROCESSING THE BEGINNING OF AN                LISTIO      1738     A     
 LISTIO   *                                  IMPLIED LOOP.                                 LISTIO      1739     A     
 LISTIO             SPACE  3                                                               LISTIO      1740     A     
 LISTIO   *         SET UP STORE TO APLIST ENTRY WITH TYPE FIELD                           LISTIO      1741     A     
 LISTIO                                                                                    LISTIO      1742     A     
 LISTIO    LSTARR   SA7    MACBUF-1          INITIALIZE A7 FOR STORES                      LISTIO      1743     A     
 LISTIO             LX0    X6                                                              LISTIO      1744     A     
 LISTIO             MX6    0                                                               LISTIO      1745     A     
 LISTIO             SA6    A4                CLEAR FLAG                                    LISTIO      1746     A     
 LISTIO             SB4    B0                WORD COUNT FOR WRITE CALL                     LISTIO      1747     A     
 LISTIO             SA1    SETTYPE           MACRO HEADER                                  LISTIO      1748     A     
 LISTIO             SA3    NRLN              NEXT AVAILABLE RESULT NUMBER                  LISTIO      1749     A     
 LISTIO             LX0    16                                                              LISTIO      1750     A     
 LISTIO             BX7    X1+X3                                                           LISTIO      1751     A     
 LISTIO             SA7    A7+B5                                                           LISTIO      1752     A     
 LISTIO             BX6    X0+X3                                                           LISTIO      1753     A     
 LISTIO             SA6    A7+B5             RESULT NUMBERS                                LISTIO      1754     A     
 LISTIO             SX5    48                SHIFT COUNT                                   LISTIO      1755     A     
 LISTIO             SA1    TYPEFG            TYPE WORD                                     LISTIO      1756     A     
 LISTIO             LX5    18                                                              LISTIO      1757     A     
 LISTIO             SX4    X1+B5             ADJUST FOR APLIST ENTRY                       LISTIO      1758     A     
 LISTIO             BX7    X5+X4                                                           LISTIO      1759     A     
 LISTIO             SA7    A6+B5             CONSTANT NUMBERS                              LISTIO      1760     A     
 LISTIO             SX6    X3+B5             INCREMENT RESULT NUMBER                       LISTIO      1761     A     
 LISTIO             SB4    B4+3              ADJUST WORD COUNT                             LISTIO      1762     A     
 LISTIO             SA6    A3                                                              LISTIO      1763     A     
 LISTIO             BX6    X3                RESULT NAME FOR STORE TO APLIST               LISTIO      1764     A     
 LISTIO             RJ     PSTAPL            GENERATE STORE TO APLIST MACROS               LISTIO      1765     A     
 LISTIO             RJ     STIOM             ISSUE -1 APLIST MACRO WORD                    LISTIO      1766     A     
 LISTIO             EQ     IOL.NE                                                          LISTIO      1767     A     
 LISTIO             SPACE  3                                                               LISTIO      1768     A     
 LISTIO   *         SET UP APLIST ENTRY FOR LIST EXPRESSION                                LISTIO      1769     A     
 LISTIO                                                                                    LISTIO      1770     A     
 LISTIO    LSTEXP   SX6    B1                SYMTAB ORDINAL                                LISTIO      1771     A     
 LISTIO             MX7    0                                                               LISTIO      1772     A     
 LISTIO             SA7    A5                CLEAR FLAG                                    LISTIO      1773     A     
 LISTIO             AX5    18                                                              LISTIO      1774     A     
 LISTIO             FORMARG NAME,1                                                         LISTIO      1775     A     
 LISTIO             SX6    X5                ST. BIAS                                      LISTIO      1776     A     
 LISTIO             FORMARG OCT,2                                                          LISTIO      1777     A     
 LISTIO             SA1    TYPEFG                                                          LISTIO      1778     A     
 LISTIO             SX2    X1-T.OCT                                                        LISTIO      1779     A     
 LISTIO             NG     X2,LSTEXP1        NOT OCTAL OR HOLLERITH EXPRESSION             LISTIO      1780     A     
 LISTIO             SX1    B5                FORCE TYPE INTEGER                            LISTIO      1781     A     
 LISTIO                                                                                    LISTIO      1782     A     
 LISTIO    LSTEXP1  SX6    X1+B5             ADJUST FOR APLIST                             LISTIO      1783     A     
 LISTIO             FORMARG OCT,3                                                          LISTIO      1784     A     
 LISTIO             SX6    B5                ITEM COUNT                                    LISTIO      1785     A     
 LISTIO             FORMARG OCT,4                                                          LISTIO      1786     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2077    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             FORMMAC IOM              ISSUE MACRO TO COMPS FILE                     LISTIO      1787     A     
 LISTIO                                                                                    LISTIO      1788     A     
 LISTIO             SA1    TYPEFG                                                          LISTIO      1789     A     
 LISTIO             SA2    NRLN                                                            LISTIO      1790     A     
 LISTIO             PL     X1,LSTEXP2        IF TYPE OF RESULT IS NOT DBL OR CMPLX         LISTIO      1791     A     
 LISTIO             SX6    X2+B5                                                           LISTIO      1792     A     
 LISTIO             SA6    A2                                                              LISTIO      1793     A     
 LISTIO    LSTEXP2  SA5    SELIST            GET NAME FOR MESSAGE                          LISTIO      1794     A     
 LISTIO             SA4    X5+B5                                                           LISTIO      1795     A     
 LISTIO             SB6    E.IOEXP           I/O EXPRESSIONS ARE NON ANSI                  LISTIO      1796     A     
 LISTIO             SB7    IOL.NE                                                          LISTIO      1797     A     
 LISTIO             EQ     ASAER                                                           LISTIO      1798     A     
 LISTIO             SPACE  3                                                               LISTIO      1799     A     
 LISTIO   *         SET UP APLIST ENTRY FOR HOLLERITH CONSTANT                             LISTIO      1800     A     
 LISTIO                                                                                    LISTIO      1801     A     
 LISTIO    LSTCON   SX6    X4                SYMTAB ORDINAL                                LISTIO      1802     A     
 LISTIO             MX7    0                                                               LISTIO      1803     A     
 LISTIO             SA7    A4                CLEAR FLAG                                    LISTIO      1804     A     
 LISTIO             FORMARG NAME,1                                                         LISTIO      1805     A     
 LISTIO             AX4    18                                                              LISTIO      1806     A     
 LISTIO             SX6    X4                BIAS FIELD                                    LISTIO      1807     A     
 LISTIO             AX4    18                                                              LISTIO      1808     A     
 LISTIO             FORMARG OCT,2                                                          LISTIO      1809     A     
 LISTIO             MX0    57                                                              LISTIO      1810     A     
 LISTIO             BX6    -X0*X4      TYPE OF HOL STRING                                  LISTIO      1811     A     
 LISTIO             FORMARG OCT,3                                                          LISTIO      1812     A     
 LISTIO             AX4    6                                                               LISTIO      1813     A     
 LISTIO             SX6    X4          WORD COUNT OR CHAR. COUNT                           LISTIO      1814     A     
 LISTIO             FORMARG OCT,4                                                          LISTIO      1815     A     
 LISTIO             FORMMAC IOM              ISSUE MACRO TO COMPS FILE                     LISTIO      1816     A     
 LISTIO             EQ     IOL.NE                                                          LISTIO      1817     A     
 LISTIO             SPACE  3                                                               LISTIO      1818     A     
 LISTIO   *         SET UP APLIST ENTRY FOR I/O LIST ITEM                                  LISTIO      1819     A     
 LISTIO                                                                                    LISTIO      1820     A     
 LISTIO    LSTITM   ENTRY. *                 ** ENTRY/EXIT **                              LISTIO      1821     A     
 LISTIO    #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   LISTIO      1822     A     
 LISTIO             LX2    -P.LCM      LCM/ECS RESIDENT FLAG                               LISTIO      1823     A     
 LISTIO             MX7    -1                                                              LISTIO      1824     A     
 LISTIO             BX6    -X7*X2                                                          LISTIO      1825     A     
 LISTIO             LX2    P.LCM       REPOSITION                                          LISTIO      1826     A     
 LISTIO             SB3    X6                LCM INDICATOR                                 LISTIO      1827     A     
 LISTIO    #DAL     ELSE                                                                   LISTIO      1828     A     
 LISTIO             SB3    B0                *** SIMULATE NON LCM MDOE ***                 LISTIO      1829     A     
 LISTIO    #DAL     ENDIF                                                                  LISTIO      1830     A     
 LISTIO             SB7    59-P.FP                                                         LISTIO      1831     A     
 LISTIO             LX0    B7,X1                                                           LISTIO      1832     A     
 LISTIO             AX0    59                SIGN EXTEND                                   LISTIO      1833     A     
 LISTIO             SB4    X0-0              FP INDICATOR                                  LISTIO      1834     A     
 LISTIO             PL     X0,LSTITM1        IF NOT A FORMAL PARAMETER                     LISTIO      1835     A     
 LISTIO             SX6    B1-2              F.P. OFFSET                                   LISTIO      1836     A     
 LISTIO             FORMARG OCT,2                                                          LISTIO      1837     A     
 LISTIO             EQ     LSTITM3                                                         LISTIO      1838     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2078    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO                                                                                    LISTIO      1839     A     
 LISTIO    LSTITM1  BSS    0                                                               LISTIO      1840     A     
 LISTIO    #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   LISTIO      1841     A     
 LISTIO             ZR     B3,LSTITM2        IF NOT AN LCM VARIABLE                        LISTIO      1842     A     
 LISTIO             SA3    DIRECT                                                          LISTIO      1843     A     
 LISTIO             ZR     X3,LSTITM2        IF DIRECT MODE                                LISTIO      1844     A     
 LISTIO             RJ     FII         FORM INDIRECT-MODE IOM ITEM IH,CA                   LISTIO      1845     A     
 LISTIO             EQ     LSTITM3                                                         LISTIO      1846     A     
 LISTIO    #DAL     ENDIF                                                                  LISTIO      1847     A     
 LISTIO                                                                                    LISTIO      1848     A     
 LISTIO    LSTITM2  MX7    0                                                               LISTIO      1849          I
          -FCC0544
 LISTIO             SA7    MACSYM            REQUIRED FOR EQUIVP CALL                      LISTIO      1850          I
          -FCC0544
 LISTIO             RJ     EQUIVP            SEE IF EQUIVALENCED                           LISTIO      1851          I
          -FCC0544
 LISTIO    LSTITM2  RJ     EQUIVP      FIND BASE AND BIAS OF NAME                          FCC0544       10     A     
 LISTIO             SB2    X7                                                              LISTIO      1852     A     
 LISTIO             FORMARG NAME,1                                                         LISTIO      1853     A     
 LISTIO             SA1    NCA               CONSTANT ADDEND                               LISTIO      1854     A     
 LISTIO             SX6    X1+B2             CA + EQUIV BIAS                               LISTIO      1855     A     
 LISTIO             FORMARG OCT,2                                                          LISTIO      1856     A     
 LISTIO                                                                                    LISTIO      1857     A     
 LISTIO    LSTITM3  SA3    TYPEFG            TYPE WORD                                     LISTIO      1858     A     
 LISTIO             SX4    X3-T.OCT                                                        LISTIO      1859     A     
 LISTIO             NG     X4,LSTITM3A       IF NOT GREATER THAN TYPE DOUBLE               LISTIO      1860     A     
 LISTIO             SX3    B5                FORCE TYPE INTEGER                            LISTIO      1861     A     
 LISTIO                                                                                    LISTIO      1862     A     
 LISTIO    LSTITM3A SX6    X3+B5             INCREMENT FOR APLIST                          LISTIO      1863     A     
 LISTIO             FORMARG OCT,3                                                          LISTIO      1864     A     
 LISTIO             SA4    ITEMCT            ITEM COUNT                                    LISTIO      1865     A     
 LISTIO             MX7    0                                                               LISTIO      1866     A     
 LISTIO             BX6    X4                                                              LISTIO      1867     A     
 LISTIO             SA7    A4                CLEAR                                         LISTIO      1868     A     
 LISTIO             FORMARG OCT,4                                                          LISTIO      1869     A     
 LISTIO             ZR     B3,LSTITM4        IF NOT AN LCM VARIABLE                        LISTIO      1870     A     
 LISTIO             SX6    B5                LCM BIT                                       LISTIO      1871     A     
 LISTIO             FORMARG INT,5                                                          LISTIO      1872     A     
 LISTIO                                                                                    LISTIO      1873     A     
 LISTIO    LSTITM4  SA4    INDFG             INDIRECT INDICATOR                            LISTIO      1874     A     
 LISTIO             ZR     X4,LSTITM5                                                      LISTIO      1875     A     
 LISTIO             MX7    0                                                               LISTIO      1876     A     
 LISTIO             SX6    B5                INDIRECT BIT                                  LISTIO      1877     A     
 LISTIO             SA7    A4                CLEAR                                         LISTIO      1878     A     
 LISTIO             FORMARG INT,6                                                          LISTIO      1879     A     
 LISTIO             SX6    X4                INDIRECT BASE FIELD                           LISTIO      1880     A     
 LISTIO             FORMARG NAME,7                                                         LISTIO      1881     A     
 LISTIO             EQ     LSTITM6                                                         LISTIO      1882     A     
 LISTIO                                                                                    LISTIO      1883     A     
 LISTIO    LSTITM5  PL     B4,LSTITM6        IF NOT A FORMAL PARAMETER                     LISTIO      1884     A     
 LISTIO             SA1    NCA               CONSTANT ADDEND                               LISTIO      1885     A     
 LISTIO             ZR     X1,LSTITM6        NO CA FIELD                                   LISTIO      1886     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2079    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             BX6    X1                                                              LISTIO      1887     A     
 LISTIO             FORMARG OCT,7                                                          LISTIO      1888     A     
 LISTIO                                                                                    LISTIO      1889     A     
 LISTIO    LSTITM6  FORMMAC IOM              ISSUE MACRO TO COMPS FILE                     LISTIO      1890     A     
 LISTIO             EQ     LSTITM                                                          LISTIO      1891     A     
 LISTIO    WWC      EJECT                                                                  LISTIO      1892     A     
 LISTIO   **        WWC - WRITE WORD COUNT.                                                LISTIO      1893     A     
 LISTIO   *                                                                                LISTIO      1894     A     
 LISTIO   *         ARRAY TRANSFER WITH VARIABLE DIMENSIONS.                               LISTIO      1895     A     
 LISTIO   *         FORM RLIST MACROS TO COMPUTE THE SIZE, OR ITEM COUNT,                  LISTIO      1896     A     
 LISTIO   *         OF THE ARRAY.                                                          LISTIO      1897     A     
 LISTIO   *                                                                                LISTIO      1898     A     
 LISTIO   *         ENTRY  (X3) = NUMBER OF DIMENSIONS                                     LISTIO      1899     A     
 LISTIO   *                (X4) = VARIABLE DIMENSION FLAGS - P(ABC)                        LISTIO      1900     A     
 LISTIO   *                (X5) = SECOND WORD OF DIM ENTRY                                 LISTIO      1901     A     
 LISTIO   *                (X7) = IOF = 0 IF NO IOAPL MACRO TO BE OUTPUT                   LISTIO      1902     A     
 LISTIO   *                (B3) = SDPF,  =0 TO FORCE ITEM COUNT CALCULATION                LISTIO      1903     A     
 LISTIO                                                                                    LISTIO      1904     A     
 LISTIO    WWC      ENTRY. **                                                              LISTIO      1905     A     
 LISTIO             CX6    X4          (X6) = NUMBER OF VARIABLE DIMENSIONS                LISTIO      1906     A     
 LISTIO             SA7    WWCA                                                            LISTIO      1907     A     
 LISTIO             IX2    X6-X3                                                           LISTIO      1908     A     
 LISTIO             SB6    MACBUF                                                          LISTIO      1909     A     
 LISTIO             AX2    59          (X2) = SIGN(N.VDIMS - N.DIMS)                       LISTIO      1910     A     
 LISTIO             SX0    B5                                                              LISTIO      1911     A     
 LISTIO             BX7    X2*X0                                                           LISTIO      1912     A     
 LISTIO             SX1    B3          SDPF                                                LISTIO      1913     A     
 LISTIO             BX7    X7+X1       CONF = 1 IF CONSTANT DIM OR DOUBLE WORD             LISTIO      1914     A     
 LISTIO   *                            ARRAY; ELSE 0                                       LISTIO      1915     A     
 LISTIO             IX2    X7+X7                                                           LISTIO      1916     A     
 LISTIO             SX0    4                                                               LISTIO      1917     A     
 LISTIO             IX2    X7+X2       3*CONF                                              LISTIO      1918     A     
 LISTIO             IX2    X2+X6                                                           LISTIO      1919     A     
 LISTIO             SB2    X2+M.V1-1   RMACRO NUMBER = BASE + N.VD + 3*CONF                LISTIO      1920     A     
 LISTIO                                                                                    LISTIO      1921     A     
 LISTIO             LX0    30          IN FIELD = N.WORDS IN MACRO BODY                    LISTIO      1922     A     
 LISTIO             SB2    -B2                                                             LISTIO      1923     A     
 LISTIO             PX7    B2,X0                                                           LISTIO      1924     A     
 LISTIO             SA7    B6          RMACRO HEADER WORD                                  LISTIO      1925     A     
 LISTIO                                                                                    LISTIO      1926     A     
 LISTIO   *         STORE SYMTAB ORDINALS IN THE MACRO CALL.                               LISTIO      1927     A     
 LISTIO                                                                                    LISTIO      1928     A     
 LISTIO             SX2    X6-3                                                            LISTIO      1929     A     
 LISTIO             MI     X2,WWC1     LESS THAN 3 VARIABLE DIMENSIONS                     LISTIO      1930     A     
 LISTIO             SX6    X5                                                              LISTIO      1931     A     
 LISTIO             AX5    18                                                              LISTIO      1932     A     
 LISTIO             SX1    X5                                                              LISTIO      1933     A     
 LISTIO             LX1    RM.IHL                                                          LISTIO      1934     A     
 LISTIO             BX6    X1+X6       30/IH(DIM2),30/IM(DIM1)                             LISTIO      1935     A     
 LISTIO             AX5    18                                                              LISTIO      1936     A     
 LISTIO             SX7    X5          30/IH(DIM3)                                         LISTIO      1937     A     
 LISTIO             SA6    B6+B5       STORE SYMTAB ORDINALS                               LISTIO      1938     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2080    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SA7    A6+B5                                                           LISTIO      1939     A     
 LISTIO             MX7    0           NO CONTANTS NEEDED                                  LISTIO      1940     A     
 LISTIO             EQ     WWC5                                                            LISTIO      1941     A     
 LISTIO                                                                                    LISTIO      1942     A     
 LISTIO    WWC1     SX7    B5+B3                                                           LISTIO      1943     A     
 LISTIO             SB4    X3          NUMBER OF DIMENSIONS                                LISTIO      1944     A     
 LISTIO             MX6    0           INITIALIZE RESULT REGISTERS                         LISTIO      1945     A     
 LISTIO             PX7    X7                                                              LISTIO      1946     A     
 LISTIO             LX4    2           POSITION VARIABLE DIM BITS                          LISTIO      1947     A     
 LISTIO             SB2    0           SHIFT COUNT                                         LISTIO      1948     A     
 LISTIO                                                                                    LISTIO      1949     A     
 LISTIO   *         PACK ARGUMENTS FOR RLIST MACRO.                                        LISTIO      1950     A     
 LISTIO                                                                                    LISTIO      1951     A     
 LISTIO    WWC2     SX1    X5          EXTRACT DIM                                         LISTIO      1952     A     
 LISTIO             LX4    1                                                               LISTIO      1953     A     
 LISTIO             SB4    B4-B5       DECREMENT THE NUMBER OF DIMS                        LISTIO      1954     A     
 LISTIO             AX5    18                                                              LISTIO      1955     A     
 LISTIO             MI     X4,WWC3     IF VARIABLE DIM                                     LISTIO      1956     A     
 LISTIO             PX0    X1                                                              LISTIO      1957     A     
 LISTIO             DX7    X7*X0       ACCUMULATED PRODUCT OF CONSTANT DIMS                LISTIO      1958     A     
 LISTIO             NZ     B4,WWC2                                                         LISTIO      1959     A     
 LISTIO             EQ     WWC4                                                            LISTIO      1960     A     
 LISTIO                                                                                    LISTIO      1961     A     
 LISTIO    WWC3     LX1    B2,X1       POSITION SYMTAB ORDINAL                             LISTIO      1962     A     
 LISTIO             BX6    X1+X6                                                           LISTIO      1963     A     
 LISTIO             SB2    B2+RM.IHL                                                       LISTIO      1964     A     
 LISTIO             NZ     B4,WWC2     LOOP IF MORE DIMS                                   LISTIO      1965     A     
 LISTIO                                                                                    LISTIO      1966     A     
 LISTIO    WWC4     SA6    B6+B5       WORDS 1 AND 2 = SYMTAB ORDINALS                     LISTIO      1967     A     
 LISTIO             MX6    0                                                               LISTIO      1968     A     
 LISTIO             SA6    A6+B5                                                           LISTIO      1969     A     
 LISTIO             SX7    X7                                                              LISTIO      1970     A     
 LISTIO    WWC5     SA7    B6+4        WORD 4 = PRODUCT OF CONSTANT DIMS                   LISTIO      1971     A     
 LISTIO                                                                                    LISTIO      1972     A     
 LISTIO             SA5    NRLN                                                            LISTIO      1973     A     
 LISTIO             BX7    X5                                                              LISTIO      1974     A     
 LISTIO             SA7    A7-B5       WORD 3 = NRLN */ R-NUMBER OF RESULT                 LISTIO      1975     A     
 LISTIO             SX6    X5+B5       NRLN = NRLN + 1                                     LISTIO      1976     A     
 LISTIO             SA6    A5                                                              LISTIO      1977     A     
 LISTIO             SB1    B5                                                              LISTIO      1978     A     
 LISTIO             WRM    B6          OUTPUT PI DIMS MACRO                                LISTIO      1979     A     
 LISTIO             SA1    WWCA                                                            LISTIO      1980     A     
 LISTIO             ZR     X1,WWC      IF IOF = 0    */ ITEM COUNT COMPUTATION             LISTIO      1981     A     
 LISTIO                                                                                    LISTIO      1982     A     
 LISTIO             SA5    NRLN                                                            LISTIO      1983     A     
 LISTIO             BX6    X5          RESULT R-NUMBER                                     LISTIO      1984     A     
 LISTIO             SX1    X5-1        ITEM COUNT R-NUMBER = NRLN - 1                      LISTIO      1985     A     
 LISTIO             SX7    X5+B5       NRLN = NRLN + 1                                     LISTIO      1986     A     
 LISTIO             SA7    A5                                                              LISTIO      1987     A     
 LISTIO             SA2    MACLP1      RESULT R-NUMBER FROM IXFN CALL                      LISTIO      1988     A     
 LISTIO             LX6    RM.RIL                                                          LISTIO      1989     A     
 LISTIO             BX7    X6+X2                                                           LISTIO      1990     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2081    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             LX7    RM.RIL                                                          LISTIO      1991     A     
 LISTIO             BX7    X7+X1                                                           LISTIO      1992     A     
 LISTIO             SA7    WWCA                                                            LISTIO      1993     A     
 LISTIO             SA1    MACLK4      ARRAY TYPE                                          LISTIO      1994     A     
 LISTIO             BX6    X1                                                              LISTIO      1995     A     
 LISTIO             SA6    A7+B5                                                           LISTIO      1996     A     
 LISTIO             WRM    IOAPL       OUTPUT IOAPL MACRO                                  LISTIO      1997     A     
 LISTIO             EQ     WWC                                                             LISTIO      1998     A     
 LISTIO                                                                                    LISTIO      1999     A     
 LISTIO    IOAPL    RMHDR  M.IOAPL,2                                                       LISTIO      2000     A     
 LISTIO    WWCA     BSS    2                                                               LISTIO      2001     A     
 LISTIO             SPACE  4                                                               LISTIO      2002     A     
 LISTIO             TITLE              IMPLIED DO PROCESSING                               LISTIO      2003     A     
 LISTIO    BI=      MACRO  BI,ECODE          SBI  ECODE                                    LISTIO      2004     A     
 LISTIO             S_BI   ECODE                                                           LISTIO      2005     A     
 LISTIO    ECODE    MICRO  1,,/BI/                                                         LISTIO      2006     A     
 LISTIO             ENDM                                                                   LISTIO      2007     A     
 LISTIO             SPACE  2                                                               LISTIO      2008     A     
 LISTIO   ***                                                                              LISTIO      2009     A     
 LISTIO   *         IMPLIED DO LOOP PROCESSING                                             LISTIO      2010     A     
 LISTIO   *                                                                                LISTIO      2011     A     
 LISTIO   *         THIS CODE ATTEMPTS TO COLLAPSE STATEMENTS OF THE FORM...               LISTIO      2012     A     
 LISTIO   *         (((V(I,J,K),I=I1,I2,I3),J=J1,J2,J3),K=K1,K2,K3)                        LISTIO      2013     A     
 LISTIO   *         THIS CODE DOES NOT COLLAPSE STATEMENTS WHICH CONTAIN...                LISTIO      2014     A     
 LISTIO   *         INDICES WHICH ARE EXPRESSIONS OR  CONSTANT INDEX  IN INDEX1            LISTIO      2015     A     
 LISTIO   *                                                                                LISTIO      2016     A     
 LISTIO   *         SUBSCRIPTS AND THEIR INDICES ARE STORED IN THE INDX TABLE              LISTIO      2017     A     
 LISTIO   *                                                                                LISTIO      2018     A     
 LISTIO   *                                             ?  ?  ?  =  SUBSCRIPTS             LISTIO      2019     A     
 LISTIO   *                                  A(I,J,K),I=I1,I2,I3),J=...                    LISTIO      2020     A     
 LISTIO   *                                                                                LISTIO      2021     A     
 LISTIO   *                                           ?           ?  = INDICES             LISTIO      2022     A     
 LISTIO   *                                  A(I,J,K),I=I1,I2,I3),J=...                    LISTIO      2023     A     
 LISTIO   *                                                                                LISTIO      2024     A     
 LISTIO   *         SPECIFIED DIMENSIONS ARE STORED IN THE NAMDEX TABLE                    LISTIO      2025     A     
 LISTIO   *                                                                                LISTIO      2026     A     
 LISTIO   *                                    ? ? ?  =  SPECIFIED DIMENSIONS              LISTIO      2027     A     
 LISTIO   *                                  A(I,J,K),I=I1,I2,I3),J=...                    LISTIO      2028     A     
 LISTIO   *                                                                                LISTIO      2029     A     
 LISTIO    EL.(     MICRO  1,,/B3/           FROM TEST AT IOL.L                            LISTIO      2030     A     
 LISTIO    IOL.C    SB6    B0                                                              LISTIO      2031     A     
 LISTIO             SB1    2                                                               LISTIO      2032     A     
 LISTIO             SB4    B0                B4 = 0                                        LISTIO      2033     A     
 LISTIO                                                                                    LISTIO      2034     A     
 LISTIO   *                                  012                                           LISTIO      2035     A     
 LISTIO   *                                  ???                                           LISTIO      2036     A     
 LISTIO   *                                  (((A(I,J,K),I=I1,I2,I3),...)                  LISTIO      2037     A     
 LISTIO   *                                  DETERMINE THE POSSIBLE COLLAPSE LEVEL         LISTIO      2038     A     
 LISTIO    IOL.CP   NEXTE                                                                  LISTIO      2039     A     
 LISTIO             NE     B2,"EL.(",IOL.CA                                                LISTIO      2040     A     
 LISTIO             SB4    B4+B5             B4  =  ( COUNT                                LISTIO      2041     A     
 LISTIO             NE     B4,B1,IOL.CP                                                    LISTIO      2042     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2082    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             NEXTE                                                                  LISTIO      2043     A     
 LISTIO                                                                                    LISTIO      2044     A     
 LISTIO   *                                     ?                                          LISTIO      2045     A     
 LISTIO   *                                  (((A(I,J,K),I=I1,I2,I3),...)                  LISTIO      2046     A     
 LISTIO    IOL.CA   NE     B2,B5,IOL.D       NOT A NAME                                    LISTIO      2047     A     
 LISTIO             SX7    B4                ( COUNT TO COLLAPS                            LISTIO      2048     A     
 LISTIO             SA7    COLLAPS           SAVE THE PAREN CNT                            LISTIO      2049     A     
 LISTIO             SA5    NOCAL             FETCH FORMER STATEMENT NO.                    LISTIO      2050     A     
 LISTIO             SA2    CDCNT             CURRENT STMT NUMBER                           LISTIO      2051     A     
 LISTIO             SX7    A4                SAVE ARRAY ADDRESS                            LISTIO      2052     A     
 LISTIO             BX3    X7                ARYADD IN X3                                  LISTIO      2053     A     
 LISTIO             LX3    18                                                              LISTIO      2054     A     
 LISTIO             BX2    X2+X3             CARDCNT + ARYADD                              LISTIO      2055     A     
 LISTIO             MX0    1                                                               LISTIO      2056     A     
 LISTIO             BX6    -X0*X5                                                          LISTIO      2057     A     
 LISTIO             BX0    X6-X2                                                           LISTIO      2058     A     
 LISTIO             NZ     X0,IOL.CAZ                                                      LISTIO      2059     A     
 LISTIO             NG     X5,IOL.D                                                        LISTIO      2060     A     
 LISTIO             EQ     COLAPR8                                                         LISTIO      2061     A     
 LISTIO   *         ZERO OUT STORAGE AND INITIALIZE VARIABLES                              LISTIO      2062     A     
 LISTIO    IOL.CAZ  BSS    0                                                               LISTIO      2063     A     
 LISTIO             SA2    COLLAPS           PAREN COUNT                                   LISTIO      2064     A     
 LISTIO             SA7    ARYADD                                                          LISTIO      2065     A     
 LISTIO             MX7    0                                                               LISTIO      2066     A     
 LISTIO             BX6    X7                                                              LISTIO      2067     A     
 LISTIO             SA7    NAMDEX            I = 0                                         LISTIO      2068     A     
 LISTIO             SA6    A7+B5             J = 0                                         LISTIO      2069     A     
 LISTIO             SA7    A6+B5             K= 0                                          LISTIO      2070     A     
 LISTIO             SB1    3                 B1 = 3                                        LISTIO      2071     A     
 LISTIO             SA6    COLAPL                                                          LISTIO      2072     A     
 LISTIO             SA7    TEMPB       COUNT OF UN-INDEXED DIMENSIONS                      FCC0544       11     A     
 LISTIO             SA6    TENCOL                                                          LISTIO      2073     A     
 LISTIO             SA7    INDX+B1           I3 = 0                                        LISTIO      2074     A     
 LISTIO             SA6    A7+B5             J  = 0                                        LISTIO      2075     A     
 LISTIO             SA7    A6+B1             J3 = 0                                        LISTIO      2076     A     
 LISTIO             SA6    A7+B5             K  = 0                                        LISTIO      2077     A     
 LISTIO             SA7    A6+B1             K3 = 0                                        LISTIO      2078     A     
 LISTIO             SA7    MACOPC                                                          LISTIO      2079     A     
 LISTIO             BX6    X1                SAVE ARRAY NAME                               LISTIO      2080     A     
 LISTIO             SA6    ARNAM                                                           LISTIO      2081     A     
 LISTIO             NEXTE                                                                  LISTIO      2082     A     
 LISTIO             IF.NE  EL.(,NOCOLAP      NOT AN ARRAY REFERENCE                        LISTIO      2083     A     
 LISTIO             BX1    X6                RESTORE ARRAY NAME FOR SYMBOL CALL(X1         LISTIO      2084     A     
 LISTIO             RJ     RSSW              SHUT DOWN SYMBOL TABLE                        LISTIO      2085     A     
 LISTIO             SYMBOL                                                                 LISTIO      2086     A     
 LISTIO             EQ     IOL.NF            NOT FOUND EXIT                                LISTIO      2087     A     
 LISTIO                                                                                    LISTIO      2088     A     
 LISTIO   *                                  COLLECT ARRAY INFO...DIMENSION,TYPE           LISTIO      2089     A     
 LISTIO             RJ     KSSW              RESTORE SYMBOL TABLE CODE                     LISTIO      2090     A     
 LISTIO             LX1    59-P.DIM                                                        LISTIO      2091     A     
 LISTIO             MX0    L.TYP                                                           LISTIO      2092          I
          -FCC0544
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2083    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SB6    ARTH136                                                         LISTIO      2093     A     
 LISTIO             PL     X1,NOCOLAP        IF A FUNCTION                                 LISTIO      2094     A     
 LISTIO             LX1    P.DIM+1                                                         FCC0544       12     A     
 LISTIO             RJ     EQUIVP      FIND (EQUIVED) BASE OF ARRAY                        FCC0544       13     A     
 LISTIO             SA6    COLAP                                                           FCC0544       14     A     
 LISTIO             SA2    A2                                                              FCC0544       15     A     
 LISTIO             MX0    L.TYP                                                           FCC0544       16     A     
 LISTIO             BX3    X0*X2                                                           LISTIO      2095     A     
 LISTIO             LX3    L.TYP                                                           LISTIO      2096     A     
 LISTIO             SX6    X3+B5                                                           LISTIO      2097     A     
 LISTIO             SA6    MACLK4            K4 = TYPE + 1                                 LISTIO      2098     A     
 LISTIO             MX0    -L.DIMP                                                         LISTIO      2099     A     
 LISTIO             AX2    P.DIMP                                                          LISTIO      2100     A     
 LISTIO             SA3    DIM1                                                            LISTIO      2101     A     
 LISTIO             BX5    -X0*X2                                                          LISTIO      2102     A     
 LISTIO             LX5    1                 INDEX TO DIM TBL                              LISTIO      2103     A     
 LISTIO             SB7    X5+B5                                                           LISTIO      2104     A     
 LISTIO             SA5    X3+B7             WORD TWO OF THE DIM ENTRY                     LISTIO      2105     A     
 LISTIO             MX0    60-3                                                            LISTIO      2106     A     
 LISTIO             SB1    3                                                               LISTIO      2107     A     
 LISTIO             LX6    B1,X5                                                           LISTIO      2108     A     
 LISTIO             BX2    -X0*X6                                                          LISTIO      2109     A     
 LISTIO             SB4    X2              B4 = NUMBER OF ARRAY DIMENSIONS                 LISTIO      2110     A     
 LISTIO             BX6    X5                                                              LISTIO      2111     A     
 LISTIO             SB7    B0                                                              LISTIO      2112     A     
 LISTIO             SA6    DIMWRD                                                          LISTIO      2113     A     
 LISTIO             SA6    DIMVAL                                                          LISTIO      2114     A     
 LISTIO             SX7    B4                SAVE NO. ARRAY DIMS FOR COLAPM2               LISTIO      2115     A     
 LISTIO             SA7    NODIMS                                                          LISTIO      2116     A     
 LISTIO             SA3    ARYADD            RESTORE A4                                    LISTIO      2117     A     
 LISTIO             SA4    X3-1                                                            LISTIO      2118     A     
 LISTIO                                                                                    LISTIO      2119     A     
 LISTIO   *         STORE THE INDICES + THEIR SUBSCRIPTS IN THE INDX TABLE                 LISTIO      2120     A     
 LISTIO   *         I,I1,I2,I3,J,J1,J2,J3,K,K1,K2,K3                                       LISTIO      2121     A     
 LISTIO   *                                  B7 = 0 1 2                                    LISTIO      2122     A     
 LISTIO   *                                       ? ? ?                                    LISTIO      2123     A     
 LISTIO   *                                  (((A(I,J,K),I=I1,I2,I3),...)                  LISTIO      2124     A     
 LISTIO    IOL.CIN  NEXTE                                                                  LISTIO      2125     A     
 LISTIO             BX7    X1                                                              LISTIO      2126     A     
 LISTIO             ZR     B2,IOL.CIW                                                      LISTIO      2127     A     
 LISTIO             NE     B2,B5,IOL.CS                                                    LISTIO      2128     A     
 LISTIO             SA7    NAMDEX+B7                                                       LISTIO      2129     A     
 LISTIO    IOL.CIW  BSS    0                                                               LISTIO      2130     A     
 LISTIO             NEXTE                                                                  LISTIO      2131     A     
 LISTIO             SB7    B7+B5                                                           LISTIO      2132     A     
 LISTIO   *                                  B1  =  EL.COMMA...3                           LISTIO      2133     A     
 LISTIO   *                                        ? ?                                     LISTIO      2134     A     
 LISTIO   *                                  (((A(I,J,K),I=I1,I2,I3),...)                  LISTIO      2135     A     
 LISTIO             NE     B2,B1,IOL.CS                                                    LISTIO      2136     A     
 LISTIO             LT     B7,B4,IOL.CIN     LOOP INCREMENT < ARRAY DIMS                   LISTIO      2137     A     
 LISTIO             SB6    ARTH195                                                         LISTIO      2138     A     
 LISTIO                                                                                    LISTIO      2139     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2084    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO   *         ARRAY NAME ERROR EXIT - B6 = ERROR NUMBER                              LISTIO      2140     A     
 LISTIO                                                                                    LISTIO      2141     A     
 LISTIO    IOERR2   SA3    ARNAM             ARRAY NAME                                    LISTIO      2142     A     
 LISTIO             PX4    B5,X3                                                           LISTIO      2143     A     
 LISTIO             SB7    PH2RETN                                                         LISTIO      2144     A     
 LISTIO             EQ     ERPRO                                                           LISTIO      2145     A     
 LISTIO                                                                                    LISTIO      2146     A     
 LISTIO   *         NOT FOUND PATH FROM SYMBOL CALL                                        LISTIO      2147     A     
 LISTIO   *                                                                                LISTIO      2148     A     
 LISTIO    IOL.NF   RJ     KSSW              RESTORE SYMBOL TABLE CODE                     LISTIO      2149     A     
 LISTIO             EQ     NOCOLAP           BECAUSE A FUNCTION REFERENCE                  LISTIO      2150     A     
 LISTIO                                                                                    LISTIO      2151     A     
 LISTIO   *                                            ?                                   LISTIO      2152     A     
 LISTIO   *                                  (((A(I,J,K),I=I1,I2,I3),...)                  LISTIO      2153     A     
 LISTIO   IOL.CS    IF.NE  EL.),NOCOLAP                                                    LISTIO      2154     A     
 LISTIO             SX6    B5                INITIALIZE MULTIPLY FACTOR TO 1               LISTIO      2155     A     
 LISTIO             MX0    0                                                               FCC0544       17     A     
 LISTIO             NZ     B7,IOL.CS1                                                      LISTIO      2156     A     
 LISTIO             SB6    ARTH157           A( )                                          LISTIO      2157     A     
 LISTIO             EQ     IOERR2                                                          LISTIO      2158     A     
 LISTIO                                                                                    LISTIO      2159     A     
 LISTIO    IOL.CS1  SX2    B1+B5             X2 = 4                                        LISTIO      2160     A     
 LISTIO             SA6    MACLK1            INITIALIZE  MULTIPLY FACTOR                   LISTIO      2161     A     
 LISTIO             SA5    NAMDEX            INDEX I                                       LISTIO      2162          I
          -FCC0544
 LISTIO             SA3    A5+B5             INDEX J                                       LISTIO      2163          I
          -FCC0544
 LISTIO             IX0    X5-X3                                                           LISTIO      2164          I
          -FCC0544
 LISTIO             ZR     X0,NOCOLAP        IF INDEX I SAME AS INDEX J                    LISTIO      2165          I
          -FCC0544
 LISTIO             SA1    A3+B5             INDEX K                                       LISTIO      2166          I
          -FCC0544
 LISTIO             IX0    X5-X1                                                           LISTIO      2167          I
          -FCC0544
 LISTIO             ZR     X0,NOCOLAP        IF INDEX I SAME AS INDEX K                    LISTIO      2168          I
          -FCC0544
 LISTIO             NE     B7,B1,IOL.CS2     IF NDIMS .NE. 3                               LISTIO      2169          I
          -FCC0544
 LISTIO             IX3    X3-X1                                                           LISTIO      2170          I
          -FCC0544
 LISTIO             ZR     X3,NOCOLAP        IF INDEX J SAME AS INDEX K                    LISTIO      2171          I
          -FCC0544
 LISTIO    IOL.CS2  SB7    INDX                                                            LISTIO      2172          I
          -FCC0544
 LISTIO             MX0    0                                                               LISTIO      2173          I
          -FCC0544
 LISTIO             SB4    4                                                               LISTIO      2174          I
          -FCC0544
 LISTIO             SB7    INDX                                                            FCC0544       18     A     
 LISTIO             SA5    COLLAPS                                                         LISTIO      2175     A     
 LISTIO                                                                                    LISTIO      2176     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2085    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO   *                                  STORE THE INDICES + THEIR SUBSCRPTS           LISTIO      2177     A     
 LISTIO   *                                             ?                                  LISTIO      2178     A     
 LISTIO   *                                  (((A(I,J,K),I=I1,I2,I3),...)                  LISTIO      2179     A     
 LISTIO    INDXST   NEXTE                                                                  LISTIO      2180     A     
 LISTIO             IF.NE  EL.COMMA,NOCOLAP                                                LISTIO      2181     A     
 LISTIO             NEXTE                                                                  LISTIO      2182     A     
 LISTIO                                                                                    LISTIO      2183     A     
 LISTIO   *                                              ?                                 LISTIO      2184     A     
 LISTIO   *                                  (((A(I,J,K),I=I1,I2,I3),...)                  LISTIO      2185     A     
 LISTIO             NE     B2,B5,NOCOLAP     NOT A NAME                                    LISTIO      2186     A     
 LISTIO             BX7    X1                                                              LISTIO      2187     A     
 LISTIO             SA7    X0+B7             SAVE NAME IN INDX + X0                        LISTIO      2188     A     
 LISTIO             SX0    X0+B5                                                           LISTIO      2189     A     
 LISTIO             NEXTE                                                                  LISTIO      2190     A     
 LISTIO                                                                                    LISTIO      2191     A     
 LISTIO   *                                               ?                                LISTIO      2192     A     
 LISTIO   *                                  (((A(I,J,K),I=I1,I2,I3),...)                  LISTIO      2193     A     
 LISTIO             IF.NE  EL.=,NOCOLAP                                                    LISTIO      2194     A     
 LISTIO                                                                                    LISTIO      2195     A     
 LISTIO   *                                                ?  ?  ?                         LISTIO      2196     A     
 LISTIO   *                                  (((A(I,J,K),I=I1,I2,I3),...)                  LISTIO      2197     A     
 LISTIO             SB6    DO7                                                             LISTIO      2198     A     
 LISTIO    INDXST0  NEXTE                                                                  LISTIO      2199     A     
 LISTIO             BX7    X4                PICK UP ENTIRE ELIST WORD                     LISTIO      2200     A     
 LISTIO             GT     B2,B5,IOERRX      NOT A NAME OR A CONSTANT                      LISTIO      2201     A     
 LISTIO             SA7    X0+B7                                                           LISTIO      2202     A     
 LISTIO             SX0    X0+B5                                                           LISTIO      2203     A     
 LISTIO                                                                                    LISTIO      2204     A     
 LISTIO   *                                                  ?  ?                          LISTIO      2205     A     
 LISTIO   *                                  (((A(I,J,K),I=I1,I2,I3),...)                  LISTIO      2206     A     
 LISTIO             NEXTE                                                                  LISTIO      2207     A     
 LISTIO             NE     B2,B1,INDXST2     NOT A COMMA                                   LISTIO      2208     A     
 LISTIO             IX6    X0-X2             CURRENT LOOP INCREMENT - 4...MAX DIM          LISTIO      2209     A     
 LISTIO             NG     X6,INDXST0                                                      LISTIO      2210     A     
 LISTIO             SB6    ARTH145                                                         LISTIO      2211     A     
 LISTIO             EQ     IOERR2                                                          LISTIO      2212     A     
 LISTIO                                                                                    LISTIO      2213     A     
 LISTIO   *                                                        ?                       LISTIO      2214     A     
 LISTIO   *                                  (((A(I,J,K),I=I1,I2,I3),...)                  LISTIO      2215     A     
 LISTIO    INDXST2  SX6    X0-3                                                            LISTIO      2216     A     
 LISTIO             MI     X6,IOERRX         LIMIT OF DO INDEX MISSING                     LISTIO      2217     A     
 LISTIO             IF.NE  EL.),IOERR                                                      LISTIO      2218     A     
 LISTIO             SX5    X5-1              DECREMENT PAREN CNT.                          LISTIO      2219     A     
 LISTIO             MX0    0                                                               LISTIO      2220     A     
 LISTIO             SB7    B7+B4                                                           LISTIO      2221          I
          -FCC0544
 LISTIO             SB7    X2+B7             INCREMENT TABLE INDX BY 4                     FCC0544       19     A     
 LISTIO             PL     X5,INDXST                                                       LISTIO      2222     A     
 LISTIO             BX3    X3-X3                                                           FCC0544       20     A     
 LISTIO    IOL.CS2  SA2    X3+NAMDEX                                                       FCC0544       21     A     
 LISTIO             ZR     X2,COLAPR   IF CONSTANT SUBSCRIPT                               FCC0544       22     A     
 LISTIO             SX6    X3+B5                                                           FCC0544       23     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2086    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             PX2    B5,X2                                                           FCC0544       24     A     
 LISTIO             SA6    TEMP1       COUNT OF I-TH SUBSCRIPT PROCESSING                  FCC0544       25     A     
 LISTIO             SX7    DO7                                                             FCC0544       26     A     
 LISTIO             RJ     DOVAR                                                           FCC0544       27          I
          -FCC1252X 
 LISTIO             RJ     EQUIVP      FIND BASE AND BIAS OF INDEX                         FCC0544       28          I
          -FCC1252X 
 LISTIO             SA7    DOVART      SAVE ERROR NUMBER                                   FCC1252X       7     A     
 LISTIO             BX6    X2          X2 = ELIST VARIABLE                                 FCC1252X       8     A     
 LISTIO             SA6    A7+B5       SAVE ELIST VARIABLE                                 FCC1252X       9     A     
 LISTIO             CALL   INTVAR      CHECK OUT SUBSCRIPT                                 FCC1252X      10     A     
 LISTIO   *                                                                                FCC1252X      11     A     
 LISTIO   *         RETURN HERE IF ERROR                                                   FCC1252X      12     A     
 LISTIO   *                                                                                FCC1252X      13     A     
 LISTIO             PL     B2,DOVAR15  IF ERROR(BUT NOT TYPE INTEGER ER) REPORT IT         FCC1252X      14     A     
 LISTIO   *                                                                                FCC1252X      15     A     
 LISTIO   *         RETURN HERE IF NO ERROR                                                FCC1252X      16     A     
 LISTIO   *                                                                                FCC1252X      17     A     
 LISTIO    +        RJ     EQUIVP      FIND BASE AND BIAS OF INDEX                         FCC1252X      18     A     
 LISTIO             SA3    COLAP       TABLE OF ARRAY NAME AND PROCESSED INDICES           FCC0544       29     A     
 LISTIO             SA5    TEMP1       COUNT OF ELEMENTS IN COLAP                          FCC0544       30     A     
 LISTIO    CAI1     SX3    X3                                                              FCC0544       31     A     
 LISTIO             BX0    X3-X6                                                           FCC0544       32     A     
 LISTIO             ZR     X0,NOCOLAP  IF CURRENT INDEX IS SAME AS ENTRY IN TABLE          FCC0544       33     A     
 LISTIO             SX5    X5-1                                                            FCC0544       34     A     
 LISTIO             SA3    A3+B5                                                           FCC0544       35     A     
 LISTIO             NZ     X5,CAI1     IF MORE IN TABLE                                    FCC0544       36     A     
 LISTIO             SA3    A5                                                              FCC0544       37     A     
 LISTIO             LX7    18                                                              FCC0544       38     A     
 LISTIO             BX6    X7+X6                                                           FCC0544       39     A     
 LISTIO             SX0    X3-3                                                            FCC0544       40     A     
 LISTIO             SA6    X3+COLAP    ADD SUBSCRIPT TO COLAP                              FCC0544       41     A     
 LISTIO             MI     X0,IOL.CS2  IF NOT ALL SUBSCRIPT PROCESSED                      FCC0544       42     A     
 LISTIO   *         BEGIN COLLAPSE PROCESSING...                                           LISTIO      2223     A     
 LISTIO   *         A(I,J,K),  I=I1,I2,I3),...ETC.                                         LISTIO      2224     A     
 LISTIO   *           '        '                                                           LISTIO      2225     A     
 LISTIO   *         NAMDEX  -  INDX                                                        LISTIO      2226     A     
 LISTIO   *         CHECK SPECIFIED DIMENSION(NAMDEX) AGAINST INDICES(INDX)                LISTIO      2227     A     
 LISTIO    COLAPR   BSS    0                                                               LISTIO      2228     A     
 LISTIO             MX7    0                                                               LISTIO      2229     A     
 LISTIO             SA7    MACSYM                                                          LISTIO      2230     A     
 LISTIO             SA7    TEMPB       INITIALIZE SUBSCRIPT COUNT                          LISTIO      2231          I
          -FCC0544
 LISTIO             SA5    COLAPL            MAKE SURE THAT THE CONTROL VARIABLE           LISTIO      2232     A     
 LISTIO             SA2    NAMDEX+X5         IS PROPER.                                    LISTIO      2233     A     
 LISTIO             ZR     X2,COLAPR9        END OF ROAD...SPECDIM A CONSTANT              LISTIO      2234     A     
 LISTIO             SB6    B5+B5       B6 = 2                                              FCC2150        6     A     
 LISTIO             LX7    X5,B6                                                           FCC2150        7     A     
 LISTIO             SA3    INDX+X7     FETCH CORRESPND INDEX                               FCC2150        8     A     
 LISTIO             IX6    X2-X3       CAN NOT HANDLE DIM NOT EQUAL INDEX                  FCC2150        9     A     
 LISTIO             NZ     X6,COLAPR9                                                      FCC2150       10     A     
 LISTIO             PX2    B5,X2             ELIST FORM                                    LISTIO      2235     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2087    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SX7    DO7                                                             LISTIO      2236     A     
 LISTIO             RJ     DOVAR             CHECK VARIABLE                                LISTIO      2237     A     
 LISTIO             SX7    B1                SAVE THE ORDINAL FOR A POSSIBLE LATER         LISTIO      2238     A     
 LISTIO             SA7    TEMP1             REFERENCE                                     LISTIO      2239     A     
 LISTIO             SX3    B1+B1             TABLE ENTRY FOR THE CONTROL VARIABLE          LISTIO      2240          I
          -FCC0544
 LISTIO             SA2    SYM1              TURN ON THE DEFINED BIT IN THE SYMBOL         LISTIO      2241          I
          -FCC0544
 LISTIO             IX4    X2-X3                                                           LISTIO      2242          I
          -FCC0544
 LISTIO             SA5    X4                                                              LISTIO      2243          I
          -FCC0544
 LISTIO             SX7    V.DEF                                                           LISTIO      2244     A     
 LISTIO             BX6    X5+X7                                                           LISTIO      2245          I
          -FCC0544
 LISTIO             SA6    A5                                                              LISTIO      2246          I
          -FCC0544
 LISTIO    TEMP1    EQU    MACBUF                                                          LISTIO      2247          I
          -FCC0544
 LISTIO             BX6    X1+X7       SET DEFINED BIT FOR INDEX                           FCC0544       43     A     
 LISTIO             SA6    A2+B5                                                           FCC0544       44     A     
 LISTIO             SB1    3                                                               LISTIO      2248     A     
 LISTIO             SA5    COLAPL                                                          LISTIO      2249          I
          -FCC2150
 LISTIO             SB6    B5+B5             B6 = 2                                        LISTIO      2250          I
          -FCC2150
 LISTIO             LX7    X5,B6                                           ?               LISTIO      2251          I
          -FCC2150
 LISTIO             SA2    NAMDEX+X5         FETCH CURRENT DIMENSION...A(I,J,K)            LISTIO      2252          I
          -FCC2150
 LISTIO             SA3    INDX+X7           FETCH CORRESPND INDEX                         LISTIO      2253          I
          -FCC2150
 LISTIO             IX6    X2-X3             CAN NOT HANDLE DIM NOT EQUAL INDEX            LISTIO      2254          I
          -FCC2150
 LISTIO             NZ     X6,COLAPR9                                                      LISTIO      2255          I
          -FCC2150
 LISTIO             SA5    COLAPL      REFORM A3 AFTER IT BEING DESTORYED                  FCC2150       11     A     
 LISTIO             SB6    B5+B5       A3 CONTAINS THE ADDRESS OF INDEX                    FCC2150       12     A     
 LISTIO             LX7    X5,B6       OF IMPLIED DO LOOP                                  FCC2150       13     A     
 LISTIO             SA3    INDX+X7                                                         FCC2150       14     A     
 LISTIO   *                                  PROCESS SUBSCRIPT INCREMENT...I3              LISTIO      2256     A     
 LISTIO   *                                                      ?                         LISTIO      2257     A     
 LISTIO   *                                  (((A(I,J,K),I=I1,I2,I3),...)                  LISTIO      2258     A     
 LISTIO   *                                  I3 HAS TO BE A 1 OR NOT SPECIFIED             LISTIO      2259     A     
 LISTIO             SA1    A3+B1             CHECK I3 FOR 1                                LISTIO      2260     A     
 LISTIO             ZR     X1,COLAPR1        I3 NOT SPECIFIED                              LISTIO      2261     A     
 LISTIO             UX1    B2,X1                                                           LISTIO      2262     A     
 LISTIO             NZ     B2,COLAPR9        I3 VARIABLE...NO COLLAPSE                     LISTIO      2263     A     
 LISTIO             RJ     VALTYP                                                          LISTIO      2264     A     
 LISTIO             REGS   2                                                               LISTIO      2265          I
          -FEAT155F 
 LISTIO             AX1    1                                                               LISTIO      2266     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2088    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             NZ     X1,COLAPR9        I3 NOT = 1                                    LISTIO      2267     A     
 LISTIO   *                                  PROCESS SUBSCRIPT START...I1                  LISTIO      2268     A     
 LISTIO   *                                                ?                               LISTIO      2269     A     
 LISTIO   *                                  (((A(I,J,K),I=I1,I2,I3),...)                  LISTIO      2270     A     
 LISTIO   *                                  MACOPC = 0...I1 = CONSTANT                    LISTIO      2271     A     
 LISTIO    COLAPR1  BSS    0                                                               LISTIO      2272     A     
 LISTIO             SA1    TEMP1                                                           LISTIO      2273     A     
 LISTIO             SB1    X1                                                              LISTIO      2274     A     
 LISTIO             RJ     DODEF             NOTIFY DO OF THE VARIABLE DEF                 LISTIO      2275     A     
 LISTIO             SA2    =XRSELECT        IF NOT ACCUMULATING REFERENCES THEN GO         LISTIO      2276     A     
 LISTIO             ZR     X2,NOREFSA        TO 'NOREFSA'.                                 LISTIO      2277     A     
 LISTIO             SA1    TEMP1             OTHERWISE ADD A DEFINITION AND A              LISTIO      2278     A     
 LISTIO             ADDREF X1,DEF            REFERENCE (SINCE THE CONTROL VARIABLE         LISTIO      2279     A     
 LISTIO             SA1    TEMP1             OCCURS TWO PLACES)                            LISTIO      2280     A     
 LISTIO             ADDREF X1,REF                                                          LISTIO      2281     A     
 LISTIO    NOREFSA  BSS    0                                                               LISTIO      2282     A     
 LISTIO             SA5    COLAPL                                                          LISTIO      2283     A     
 LISTIO             LX5    2                                                               LISTIO      2284     A     
 LISTIO             SX6    X5+B5                                                           LISTIO      2285     A     
 LISTIO             SA2    INDX+X6           FETCH I1                                      LISTIO      2286     A     
 LISTIO             UX1    B2,X2                                                           LISTIO      2287     A     
 LISTIO             REGS   3                                                               LISTIO      2288          I
          -FEAT155F 
 LISTIO             NZ     B2,COLAPRC        I1 NOT CONSTANT                               LISTIO      2289     A     
 LISTIO             RJ     VALTYP            RETURNS CONSTANT IN X1                        LISTIO      2290     A     
 LISTIO             BX7    X1                                                              LISTIO      2291     A     
 LISTIO             SA7    MACLK3            STORE I1 IN MACRO BUFFER                      LISTIO      2292     A     
 LISTIO             REGS   4                                                               LISTIO      2293          I
          -FEAT155F 
 LISTIO             AX1    1                                                               LISTIO      2294     A     
 LISTIO             ZR     X1,COLAPR2        I1 = 1...FULL COLLAPSE POSSIBLE               LISTIO      2295     A     
 LISTIO             MX7    59                                                              LISTIO      2296     A     
 LISTIO             SA7    TENCOL            SET NO FURTHER COLLAPSE FLAG                  LISTIO      2297     A     
 LISTIO             EQ     COLAPR2                                                         LISTIO      2298     A     
 LISTIO                                                                                    LISTIO      2299     A     
 LISTIO    COLAPRC  MX6    59                                                              LISTIO      2300     A     
 LISTIO             SA6    TENCOL                                                          LISTIO      2301     A     
 LISTIO             SX7    B5+B5                                                           LISTIO      2302     A     
 LISTIO             SA3    MACOPC                                                          LISTIO      2303     A     
 LISTIO             SX1    X3-5                                                            LISTIO      2304     A     
 LISTIO             ZR     X1,COLAPRC1       IF VARDIM                                     LISTIO      2305     A     
 LISTIO             SA7    A3                MACOPC = 2 ... I1 = VARIABLE                  LISTIO      2306     A     
 LISTIO   *                                                                                LISTIO      2307     A     
 LISTIO    COLAPRC1 SX7    DO7                                                             LISTIO      2308     A     
 LISTIO             RJ     DOVAR                                                           LISTIO      2309     A     
 LISTIO             RJ     EQUIVP            STORE EQUIV BIAS(MACLK2),BASE(MACLS2)         LISTIO      2310     A     
 LISTIO             SA6    MACLS2      BASE OF I1                                          FCC0544       45     A     
 LISTIO             SA7    MACLK2      BIAS OF I1                                          FCC0544       46     A     
 LISTIO             SX7    B5                                                              FCC0544       47     A     
 LISTIO             SA7    MACSYM      COUNT OF VARIABLE PARAMS                            FCC0544       48     A     
 LISTIO                                                                                    FCC0544       49     A     
 LISTIO   *                                  PROCESS SUBSCRIPT LIMIT...I2                  LISTIO      2311     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2089    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO   *                                                   ?                            LISTIO      2312     A     
 LISTIO   *                                  (((A(I,J,K),I=I1,I2,I3),...)                  LISTIO      2313     A     
 LISTIO    COLAPR2  BSS    0                                                               LISTIO      2314     A     
 LISTIO             SA2    DIMWRD                                                          LISTIO      2315     A     
 LISTIO             SA5    COLAPL                                                          LISTIO      2316     A     
 LISTIO             BX6    X2                                                              LISTIO      2317     A     
 LISTIO             SA3    DIMVAL                                                          LISTIO      2318     A     
 LISTIO             AX6    18                SET  THE DIM WRD FOR NEXT TIME                LISTIO      2319     A     
 LISTIO             SB6    3+X5                                                            LISTIO      2320     A     
 LISTIO             SA6    A2                DIMWRD                                        LISTIO      2321     A     
 LISTIO             LX7    X3,B6                                                           LISTIO      2322     A     
 LISTIO             SB1    2                                                               LISTIO      2323     A     
 LISTIO             LX5    2                                                               LISTIO      2324     A     
 LISTIO             SX4    X5+B1                                                           LISTIO      2325     A     
 LISTIO             SA1    X4+INDX           PICK UP I2                                    LISTIO      2326     A     
 LISTIO             SX6    X2                SAVE DIM CONSTANT VALUE                       LISTIO      2327     A     
 LISTIO             SA6    TEMP                                                            LISTIO      2328     A     
 LISTIO             REGS   5                                                               LISTIO      2329          I
          -FEAT155F 
 LISTIO             NG     X7,COLAPRV        ARRAY IS VARIABLY DIMENSIONED                 LISTIO      2330     A     
 LISTIO             UX1    B2,X1                                                           LISTIO      2331     A     
 LISTIO             NZ     B2,COLAPR4        I2 IS VARIABLE                                LISTIO      2332     A     
 LISTIO    COLAPR3  BSS    0                                                               LISTIO      2333     A     
 LISTIO             RJ     VALTYP            RETURNS CONSTANT IN X1                        LISTIO      2334     A     
 LISTIO             SA3    MACLK1                                                          LISTIO      2335     A     
 LISTIO             SA2    COLAPL                                                          LISTIO      2336     A     
 LISTIO             LX2    2                                                               LISTIO      2337     A     
 LISTIO             SA2    X2+INDX+1         FETCH I1                                      LISTIO      2338     A     
 LISTIO             UX7    X2,B2                                                           LISTIO      2339     A     
 LISTIO             REGS   6                                                               LISTIO      2340          I
          -FEAT155F 
 LISTIO             ZR     B2,COLAPRS                                                      LISTIO      2341     A     
 LISTIO             SX7    X1+B5                                                           LISTIO      2342     A     
 LISTIO             SA7    MACLK3                                                          LISTIO      2343     A     
 LISTIO             EQ     COLAPR8                                                         LISTIO      2344     A     
 LISTIO   *                                  PROCESS CONSTANT,CONSTANT CASE                LISTIO      2345     A     
 LISTIO   *                                  I = 1,05)                                     LISTIO      2346     A     
 LISTIO    COLAPRS  BSS    0                                                               LISTIO      2347     A     
 LISTIO             SA5    MACLK3            I1                                            LISTIO      2348     A     
 LISTIO             IX6    X1-X5             I2 - I1                                       LISTIO      2349     A     
 LISTIO             SX7    X6+B5             (I2 - I1) + 1                                 LISTIO      2350     A     
 LISTIO             PX6    X7,B0                                                           LISTIO      2351     A     
 LISTIO             PX4    X3,B0                                                           LISTIO      2352     A     
 LISTIO             DX6    X6*X4            ((I2 - I1)  + 1)  * PREVIOUS CALCULTN          LISTIO      2353     A     
 LISTIO             SX7    X6                                                              LISTIO      2354     A     
 LISTIO             ZR     X7,COLAPRS1       IF WORD COUNT IS 0 OR - SET TO                LISTIO      2355     A     
 LISTIO             PL     X7,COLAPRS2       A VALUE OF 1 FOR SINGLE ARRAYS AND            LISTIO      2356     A     
 LISTIO    COLAPRS1 SX7    B5                ITEM COUNT = 1                                LISTIO      2357     A     
 LISTIO             SX7    X2+B5                                                           LISTIO      2358          I
          -FCC0728
 LISTIO    COLAPRS2 BSS    0                                                               LISTIO      2359     A     
 LISTIO             SA7    A3                RESULT TO MACLK1 FOR NEXT TIME THRU           LISTIO      2360     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2090    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             REGS   7                                                               LISTIO      2361          I
          -FEAT155F 
 LISTIO             MX7    0                                                               LISTIO      2362     A     
 LISTIO             SA7    MACLK3                                                          LISTIO      2363     A     
 LISTIO   *                                       ?                    ?                   LISTIO      2364     A     
 LISTIO   *                                  A(10,10,10) - A(...),J=J1,05,J3)...           LISTIO      2365     A     
 LISTIO             SA2    TEMP              RETRIEVE DIM VALUE                            LISTIO      2366     A     
 LISTIO             IX6    X2-X1             CORRESPND ARRY DIM  -  CURRENT LIMIT          LISTIO      2367     A     
 LISTIO             REGS   8                                                               LISTIO      2368          I
          -FEAT155F 
 LISTIO             ZR     X6,COLAPR8        STILL COLLAPSABLE                             LISTIO      2369     A     
 LISTIO             MX7    59                                                              LISTIO      2370     A     
 LISTIO             SA7    TENCOL                                                          LISTIO      2371     A     
 LISTIO             PL     X6,COLAPR8        CURRENT SPEC WITHIN DEFINED BOUNDS            LISTIO      2372     A     
 LISTIO             SB6    -LISTIOC          REQUESTED DIM GREATER THAN DEFINED            LISTIO      2373     A     
 LISTIO             SB7    COLAPR8                                                         LISTIO      2374     A     
 LISTIO             EQ     ERPROI                                                          LISTIO      2375     A     
 LISTIO                                                                                    LISTIO      2376     A     
 LISTIO   *                                  PROCESS I2 VARIABLE, I1 CONSTANT              LISTIO      2377     A     
 LISTIO   *                                  I = 1,LL)                                     LISTIO      2378     A     
 LISTIO    COLAPR4  BSS    0                                                               LISTIO      2379     A     
 LISTIO             SA2    MACOPC            UPDATE PROSPECTIVE MACRO NUMBER               LISTIO      2380     A     
 LISTIO             NZ     X2,COLAPT                                                       LISTIO      2381     A     
 LISTIO             SA3    MACLK3                                                          LISTIO      2382     A     
 LISTIO             SX7    X3-1                                                            LISTIO      2383     A     
 LISTIO             SA7    A3                                                              LISTIO      2384     A     
 LISTIO             SA3    TENCOL                                                          LISTIO      2385     A     
 LISTIO             NZ     X3,COLAPT                                                       LISTIO      2386     A     
 LISTIO             REGS   9                                                               LISTIO      2387          I
          -FEAT155F 
 LISTIO             SX2    X2+3              SET MACOPC FOR SPECIAL CASE...C*V             LISTIO      2388     A     
 LISTIO    COLAPT   BSS    0                                                               LISTIO      2389     A     
 LISTIO             SX6    X2-5                                                            LISTIO      2390     A     
 LISTIO             ZR     X6,COLAPT1        IF VARDIM DO NOT INCREMENT                    LISTIO      2391          I
          -FCC0544
 LISTIO             SX7    X2+B5             MACOPC + 1 ...I1S VALUE + 1                   LISTIO      2392     A     
 LISTIO             PX2    B5,X1       ELIST OF I2                                         FCC0544       50     A     
 LISTIO             ZR     X6,COLAPRW  IF VARDIM                                           FCC0544       51     A     
 LISTIO             SA7    A2                                                              LISTIO      2393     A     
 LISTIO   COLAPT1   MX6    59                                                              LISTIO      2394          I
          -FCC0544
 LISTIO             SA6    A3                TENCOL = -...NO FARTHER COLLAPSE              LISTIO      2395          I
          -FCC0544
 LISTIO             PX2    B5,X1             I2 TO X2 FOR INTVAR                           LISTIO      2396          I
          -FCC0544
 LISTIO             SX7    DO7                                                             LISTIO      2397          I
          -FCC0544
 LISTIO             RJ     DOVAR                                                           LISTIO      2398          I
          -FCC0544
 LISTIO             SX7    B1                SAVE ORDINAL FOR POSSIBLE LATER REF           LISTIO      2399          I
          -FCC0544
 LISTIO             SA7    TEMP1                                                           LISTIO      2400          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2091    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
          -FCC0544
 LISTIO             RJ     EQUIVP            STORE EQUIV BIAS(MACLK2),BASE(MACLS2)         LISTIO      2401          I
          -FCC0544
 LISTIO             SA2    =XRSELECT         IF NOT ACCUMULATING REFERENCES THEN           LISTIO      2402          I
          -FCC0544
 LISTIO             ZR     X2,COLAPR8        GO TO 'COLAPR8'.                              LISTIO      2403          I
          -FCC0544
 LISTIO             SA1    TEMP1             ELSE ADD A REFERENCE                          LISTIO      2404          I
          -FCC0544
 LISTIO             ADDREF X1,REF                                                          LISTIO      2405          I
          -FCC0544
 LISTIO             EQ     COLAPR8           GO TO 'COLAPR8'                               LISTIO      2406          I
          -FCC0544
 LISTIO             EQ     COLAPRW                                                         FCC0544       52     A     
 LISTIO             SPACE  2                                                               LISTIO      2407     A     
 LISTIO    COLAPRV  SX7    5                                                               LISTIO      2408     A     
 LISTIO             SA7    MACOPC                                                          LISTIO      2409     A     
 LISTIO             SA2    TEMP              FETCH DIM VALUE                               LISTIO      2410     A     
 LISTIO             LX2    1                                                               LISTIO      2411     A     
 LISTIO             SA5    SYM1              PROCESS VARIABLE DIM                          LISTIO      2412     A     
 LISTIO             IX3    X5-X2             SYM1 - ORDINAL                                LISTIO      2413     A     
 LISTIO             SA5    X3                PICK UP SYMBOL NAME                           LISTIO      2414     A     
 LISTIO             AX5    P.NAME                                                          LISTIO      2415     A     
 LISTIO             UX7    B2,X1                                                           LISTIO      2416     A     
 LISTIO             NZ     B2,COLAPR5        I2 IS A VARIABLE                              LISTIO      2417     A     
 LISTIO             BX6    X5                SIGN BIT CLEAR FOR SUBTRACTION AT             LISTIO      2418     A     
 LISTIO   *                                  COLAPR3 WHEN TESTING FOR ARRAY BOUND          LISTIO      2419     A     
 LISTIO             SA6    A2                STORE NEW VALUE FOR COLAPR3                   LISTIO      2420     A     
 LISTIO             MX7    59                                                              LISTIO      2421     A     
 LISTIO             SA7    TENCOL                                                          LISTIO      2422     A     
 LISTIO             REGS   11                                                              LISTIO      2423          I
          -FEAT155F 
 LISTIO             EQ     COLAPR3                                                         LISTIO      2424     A     
 LISTIO    COLAPR5  BSS    0                                                               LISTIO      2425     A     
 LISTIO             BX2    X1                I2 TO X2 FOR INTVAR                           LISTIO      2426     A     
 LISTIO             UX1    B2,X1                                                           LISTIO      2427     A     
 LISTIO             AX1    6                 SET UP FOR COMPARISON                         LISTIO      2428     A     
 LISTIO             IX0    X5-X1             DIM SYMBOL - SPECIFIED SYMBOL                 LISTIO      2429     A     
 LISTIO             REGS   12                                                              LISTIO      2430          I
          -FEAT155F 
 LISTIO             ZR     X0,COLAPRU                                                      LISTIO      2431     A     
 LISTIO             MX7    59                                                              LISTIO      2432          I
          -FCC0544
 LISTIO    COLAPRW  MX7    59                                                              FCC0544       53     A     
 LISTIO             SA7    TENCOL            NO FARTHER COLLAPSE POSSIBLE                  LISTIO      2433     A     
 LISTIO                                                                                    LISTIO      2434     A     
 LISTIO    COLAPRU  SX7    DO7                                                             LISTIO      2435     A     
 LISTIO             RJ     DOVAR                                                           LISTIO      2436     A     
 LISTIO             SX7    B1               SAVE ORDINAL FOR POSSIBLE LATER REF            LISTIO      2437     A     
 LISTIO             SA7    TEMP1                                                           LISTIO      2438     A     
 LISTIO             RJ     EQUIVP            STORE EQUIV BIAS(MACLK2),BASE(MACLS2)         LISTIO      2439     A     
 LISTIO             SA3    MACSYM                                                          FCC0544       54     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2092    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SA6    X3+MACLS2   BASE OF I2                                          FCC0544       55     A     
 LISTIO             SA7    X3+MACLK2   BIAS OF I2                                          FCC0544       56     A     
 LISTIO             SX6    X3+B5       UPDATE COUNT OF VARIABLE PARAMS                     FCC0544       57     A     
 LISTIO             SA6    A3                                                              FCC0544       58     A     
 LISTIO             SA1    =XRSELECT         IF NOT COLLECTING REFERENCES GO TO            LISTIO      2440     A     
 LISTIO             ZR     X1,COLAPR8        'COLAPR8'.                                    LISTIO      2441     A     
 LISTIO             SA1    TEMP1            OTHERWISE ADD A REFERENCE.                     LISTIO      2442     A     
 LISTIO             ADDREF X1,REF                                                          LISTIO      2443     A     
 LISTIO                                                                                    LISTIO      2444     A     
 LISTIO   *         TRY AND COLLAPSE REMAINING LEVELS...IF ANY                             LISTIO      2445     A     
 LISTIO   *         CHECK CURRENT COLLAPSE EFFORT AGAINST MAX COLLAPSABLE EFFORT           LISTIO      2446     A     
 LISTIO                                                                                    LISTIO      2447     A     
 LISTIO    COLAPR8  SA1    CDCNT             CURRENT STMT NUMBER                           LISTIO      2448     A     
 LISTIO             SA2    ARYADD                                                          LISTIO      2449     A     
 LISTIO             LX2    18                                                              LISTIO      2450     A     
 LISTIO             BX7    X1+X2                                                           LISTIO      2451     A     
 LISTIO             SA7    NOCAL                                                           LISTIO      2452     A     
 LISTIO             SA3    TENCOL                                                          LISTIO      2453     A     
 LISTIO             SA5    COLAPL                                                          LISTIO      2454     A     
 LISTIO             SA2    COLLAPS                                                         LISTIO      2455     A     
 LISTIO             IX7    X2-X5             TOTAL COLLAPSE LEVEL - CURRENT LEVEL          LISTIO      2456     A     
 LISTIO             REGS   13                                                              LISTIO      2457          I
          -FEAT155F 
 LISTIO             ZR     X7,COLAPC         READY TO ISSUE THE MACROS                     LISTIO      2458     A     
 LISTIO             NG     X3,COLPD          IF NO FURTHER COLLAPSE                        LISTIO      2459     A     
 LISTIO                                                                                    LISTIO      2460     A     
 LISTIO   *         CIRCULATE PARENTHESIS LEVELS UNTIL COLLAPSABLE LEVEL CURRENT           LISTIO      2461     A     
 LISTIO             SX6    X5+1              UPDATE THE CURRENT COLLAPSE LEVEL             LISTIO      2462     A     
 LISTIO             SA6    COLAPL                                                          LISTIO      2463     A     
 LISTIO             EQ     COLAPR                                                          LISTIO      2464     A     
 LISTIO    COLPD    MX4    59                NON-FULL COLLAPSE FLAG                        LISTIO      2465     A     
 LISTIO             RJ     CKINDX            CHECK FOR LEGAL DO INDICES                    LISTIO      2466     A     
 LISTIO             EQ     IOL.D             PROCESS NON-COLLAPSIBLE DO                    LISTIO      2467     A     
 LISTIO                                                                                    LISTIO      2468     A     
 LISTIO                                                                                    LISTIO      2469     A     
 LISTIO    COLAPR9  BSS    0                 CANNOT COLLAPSE THIS LEVEL...                 LISTIO      2470     A     
 LISTIO             SA5    COLAPL                                                          LISTIO      2471     A     
 LISTIO             REGS   14                                                              LISTIO      2472          I
          -FEAT155F 
 LISTIO             ZR     X5,NOCOLAP        THIS LEVEL = LEVEL 1                          LISTIO      2473     A     
 LISTIO             MX7    59                                                              LISTIO      2474     A     
 LISTIO             SA7    TENCOL            SET NO FARTHER COLLAPSE FLAG                  LISTIO      2475     A     
 LISTIO             SX6    X5-1              DECREMENT COLLAPSE LEVEL...                   LISTIO      2476     A     
 LISTIO             SA6    A5                                                              LISTIO      2477     A     
 LISTIO             EQ     COLAPR8           CHECK FOR TIME TO ISSUE MACROS                LISTIO      2478     A     
 LISTIO                                                                                    LISTIO      2479     A     
 LISTIO                                                                                    LISTIO      2480     A     
 LISTIO   ***                                                                              LISTIO      2481     A     
 LISTIO   *         CALL IXFN FOR THE ADDRESS REFERENCE AND CONSTRUCT THE CORRECT          LISTIO      2482     A     
 LISTIO   *         MACRO.  TWO DISTINCT ARRAY REFERENCES EXIST IN THIS CODE...            LISTIO      2483     A     
 LISTIO   *         THE FIRST IS THE ORIGINAL REFERENCE PASSED BY SCANNER.                 LISTIO      2484     A     
 LISTIO   *         THE SECOND IS CONSTRUCTED BY THE CODE USING STORAGE BEGINNING          LISTIO      2485     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2093    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO   *         AT I2 IN THE INDX TABLE AND PROCEEDING THROUGH THE NAMDEX TAB.         LISTIO      2486     A     
 LISTIO   *         THE CONSTRUCTED REFERENCE IS A HYBRID OF THE ORIGINAL INDICES          LISTIO      2487     A     
 LISTIO   *         AND THEIR SUBSCRIPTS DEPENDING UPON THE COLLAPSABILITY.                LISTIO      2488     A     
 LISTIO                                                                                    LISTIO      2489     A     
 LISTIO   *         B6,B7 COUNTING SCHEMA... 123 4567 8 901                                LISTIO      2490     A     
 LISTIO   *                                  ??? ???? ? ???                                LISTIO      2491     A     
 LISTIO   *                                  A(I2+1,J2,K2),                                LISTIO      2492     A     
 LISTIO                                                                                    LISTIO      2493     A     
 LISTIO   *         FIRST CHECK TO DETERMINE WHETHER A RESTART CALL IS NEEDED              LISTIO      2494     A     
 LISTIO   *         IN CASE ONE OF THE INDICES WAS ALSO DEFINED IN THE SAME                LISTIO      2495     A     
 LISTIO   *         STATEMENT IF IT WERE AN INPUT STATEMENT.                               LISTIO      2496     A     
 LISTIO                                                                                    LISTIO      2497     A     
 LISTIO    COLAPC   SA3    IOFLAG                                                          LISTIO      2498     A     
 LISTIO             ZR     X3,COLAPM         IF NOT AN INPUT STATEMENT                     LISTIO      2499     A     
 LISTIO             SA4    PARCNT                                                          LISTIO      2500     A     
 LISTIO             ZR     X4,COLAPM         IF NOTHING TO OUTPUT                          LISTIO      2501     A     
 LISTIO             SA1    L.IOLST                                                         LISTIO      2502     A     
 LISTIO             ZR     X1,COLAPM         IF NOTHING IN ORDINAL TABLE                   LISTIO      2503     A     
 LISTIO    COLAPC4  SA2    NODIMS      NO. OF DIMS SPECIFIED                               LISTIO      2504     A     
 LISTIO             SX5    X5+B5       NO. OF DIMS PROCESSED                               LISTIO      2505     A     
 LISTIO             IX3    X2-X5                                                           LISTIO      2506     A     
 LISTIO             ZR     X3,COLAPC5  IF ALL SUBSCRIPTS PROCESSED                         LISTIO      2507     A     
 LISTIO             SA2    X5+NAMDEX   FIRST UNPROCESSED SUBSCRIPT LEFT                    LISTIO      2508     A     
 LISTIO             ZR     X2,COLAPC4  IF A CONSTANT                                       LISTIO      2509          I
          -FCC0544
 LISTIO             BX6    X5                                                              LISTIO      2510          I
          -FCC0544
 LISTIO             PX2    B5,X2       FIND THE BASE AND BIAS OF NAME                      LISTIO      2511          I
          -FCC0544
 LISTIO             SA6    TEMP1                                                           LISTIO      2512          I
          -FCC0544
 LISTIO             SX7    DO7                                                             LISTIO      2513          I
          -FCC0544
 LISTIO             SA3    TEMPB                                                           LISTIO      2514          I
          -FCC0544
 LISTIO             SX6    X3+B5       INCREASE SUBSCRIPT COUNT                            LISTIO      2515          I
          -FCC0544
 LISTIO             SA6    A3                                                              LISTIO      2516          I
          -FCC0544
 LISTIO             RJ     DOVAR                                                           LISTIO      2517          I
          -FCC0544
 LISTIO             RJ     EQUIVP                                                          LISTIO      2518          I
          -FCC0544
 LISTIO             SA5    TEMP1                                                           LISTIO      2519          I
          -FCC0544
 LISTIO             SA1    L.IOLST                                                         LISTIO      2520          I
          -FCC0544
 LISTIO             ZR     X2,COLAPC5  IF A CONSTANT                                       FCC0544       59     A     
 LISTIO             SA3    TEMPB                                                           FCC0544       60     A     
 LISTIO             SA2    X5+COLAP+1                                                      FCC0544       61     A     
 LISTIO             SX6    X2                                                              FCC0544       62     A     
 LISTIO             AX2    18                                                              FCC0544       63     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2094    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SX7    X2                                                              FCC0544       64     A     
 LISTIO             SA6    X3+TEMPBA   BASE OF UNPROCESSED SUBSCRIPT                       FCC0544       65     A     
 LISTIO             SA7    X3+TEMPBI   BIAS OF UNPROCESSED SUBSCRIPT                       FCC0544       66     A     
 LISTIO             SX6    X3+B5                                                           FCC0544       67     A     
 LISTIO             SA6    A3                                                              FCC0544       68     A     
 LISTIO             EQ     COLAPC4                                                         LISTIO      2521     A     
 LISTIO                                                                                    LISTIO      2522     A     
 LISTIO    COLAPC5  BSS    0                                                               LISTIO      2523     A     
 LISTIO             SA4    MACSYM                                                          LISTIO      2524     A     
 LISTIO             SB6    X1                TABLE LENGTH                                  LISTIO      2525     A     
 LISTIO             SA3    O.IOLST           TABLE ORIGIN                                  LISTIO      2526     A     
 LISTIO             SA5    TEMPB                                                           LISTIO      2527     A     
 LISTIO             SB3    X3          FWA OF TABLE                                        LISTIO      2528     A     
 LISTIO             MX3    -AP.IHL                                                         LISTIO      2529     A     
 LISTIO             NZ     X5,COLAPC7  IF THERE ARE SUBSCRIPTS W/O INDICES                 LISTIO      2530     A     
 LISTIO    COLAPC6  ZR     X4,COLAPM   IF NO INDICES TO CHECK FOR RESTART CALLS            LISTIO      2531     A     
 LISTIO             SB4    X4                                                              LISTIO      2532     A     
 LISTIO             MX4    0           CLEAR FLAG FOR EXIT                                 LISTIO      2533     A     
 LISTIO             SA1    MACLS2            FIRST INDEX BASE                              LISTIO      2534     A     
 LISTIO             SA5    MACLK2            FIRST INDEX BIAS                              LISTIO      2535     A     
 LISTIO                                                                                    LISTIO      2536     A     
 LISTIO    COLAPC1  SA2    B3          FIRST TABLE ENTRY                                   LISTIO      2537     A     
 LISTIO             SB2    B6                INITIALIZE COUNTER                            LISTIO      2538     A     
 LISTIO                                                                                    LISTIO      2539     A     
 LISTIO    COLAPC2  BX6    -X3*X2                                                          LISTIO      2540     A     
 LISTIO             IX0    X6-X1                                                           LISTIO      2541     A     
 LISTIO             NZ     X0,COLAPC8  IF IH DO NOT MATCH                                  LISTIO      2542     A     
 LISTIO             LX2    59-AP.CRP                                                       LISTIO      2543     A     
 LISTIO             MI     X2,COLAPC3  CLASS REF, FORCE RESTART                            LISTIO      2544     A     
 LISTIO             LX2    AP.CRP+1-AP.CAP                                                 LISTIO      2545     A     
 LISTIO             BX6    -X3*X2                                                          LISTIO      2546     A     
 LISTIO             IX0    X6-X5                                                           LISTIO      2547     A     
 LISTIO             ZR     X0,COLAPC3  IF IH,CA MATCH, FORCE RESTART                       LISTIO      2548     A     
 LISTIO                                                                                    LISTIO      2549     A     
 LISTIO    COLAPC8  SA2    A2+B5       NEXT TABLE ENTRY                                    LISTIO      2550     A     
 LISTIO             SB2    B2-B5             DECREMENT ITEM COUNT                          LISTIO      2551     A     
 LISTIO             NZ     B2,COLAPC2        IF LIST NOT EXHAUSTED                         LISTIO      2552     A     
 LISTIO             SB4    B4-B5             DECREMENT INDEX COUNT                         LISTIO      2553     A     
 LISTIO             ZR     B4,COLAPC6  IF ALL INDICES EXHAUSTED                            LISTIO      2554     A     
 LISTIO             SA1    A1+B5             NEXT INDEX BASE                               LISTIO      2555     A     
 LISTIO             SA5    A5+B5             NEXT INDEX BIAS                               LISTIO      2556     A     
 LISTIO             EQ     COLAPC1                                                         LISTIO      2557     A     
 LISTIO                                                                                    LISTIO      2558     A     
 LISTIO    COLAPC7  SA1    TEMPBA      BASE OF SUBSCRIPT                                   LISTIO      2559     A     
 LISTIO             SB4    X5          NUMBER OF SUBSCRIPTS W/O INDICES                    LISTIO      2560     A     
 LISTIO             IX4    X4-X5                                                           LISTIO      2561          I
          -FCC0544
 LISTIO             SA5    TEMPBI      BIAS OF SUBSCRIPT                                   LISTIO      2562     A     
 LISTIO             EQ     COLAPC1                                                         LISTIO      2563     A     
 LISTIO                                                                                    LISTIO      2564     A     
 LISTIO    COLAPC3  RJ     IARC              ISSUE RESTART CODE                            LISTIO      2565     A     
 LISTIO             MX7    0                                                               LISTIO      2566     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2095    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SA7    L.IOLST           CLEAR LIST LENGTH                             LISTIO      2567     A     
 LISTIO                                                                                    LISTIO      2568     A     
 LISTIO    COLAPM   BX4    X4-X4             FULL COLLAPSE FLAG                            LISTIO      2569     A     
 LISTIO             RJ     CKINDX                                                          LISTIO      2570     A     
 LISTIO             SB3    3                                                               LISTIO      2571     A     
 LISTIO             SA2    NODIMS                                                          LISTIO      2572     A     
 LISTIO             SB1    X2                B1 = NUMBER OF DEFINED ARRAY DIMS             LISTIO      2573     A     
 LISTIO             SA1    MACOPC                                                          LISTIO      2574     A     
 LISTIO             SB4    B5+B3             B4 = 4                                        LISTIO      2575     A     
 LISTIO             SB7    B5                  B7 = 1                                      LISTIO      2576     A     
 LISTIO             SB6    B3-B5             B6 = 2                                        LISTIO      2577     A     
 LISTIO             SX6    M.IOLWC                                                         LISTIO      2578     A     
 LISTIO             IX7    X6+X1             IOLP1C + MACOPC                               LISTIO      2579     A     
 LISTIO             REGS   15                                                              LISTIO      2580          I
          -FEAT155F 
 LISTIO             SA7    MACOP                                                           LISTIO      2581     A     
 LISTIO             SA2    COLAPL                                                          LISTIO      2582     A     
 LISTIO             SX0    B4+B5             X0 = 5                                        LISTIO      2583     A     
 LISTIO             IX6    X0-X1             5 - MACRO NO.(0...5)                          LISTIO      2584     A     
 LISTIO             ZR     X6,COLAPM2                                                      LISTIO      2585     A     
 LISTIO             SA5    NRLN                                                            LISTIO      2586     A     
 LISTIO             BX7    X5                                                              LISTIO      2587     A     
 LISTIO             SA7    MACLP1            RESULT NUMBER                                 LISTIO      2588     A     
 LISTIO             SA7    TEMPA                                                           LISTIO      2589     A     
 LISTIO             SX6    X5+B5             INCREMENT NRLN                                LISTIO      2590     A     
 LISTIO             SA6    A5                                                              LISTIO      2591     A     
 LISTIO             EQ     COLAPM8           GO TO 'COLAPM8' TO FINISH UP.                 LISTIO      2592     A     
 LISTIO    COLAPM2  BSS    0                 PROCESS THE DOUBLE IXFN CALL (VARDIM)         LISTIO      2593     A     
 LISTIO             SA3    ARYADD                                                          LISTIO      2594     A     
 LISTIO             SA2    INDX+1            FETCH I1 TO PRESERVE FROM CLOBBERING          LISTIO      2595     A     
 LISTIO             BX7    X2                                                              LISTIO      2596     A     
 LISTIO             SA3    X3                FETCH THE ARRAY ELIST NAME                    LISTIO      2597     A     
 LISTIO             SA7    TEMP              SAVE I1                                       LISTIO      2598     A     
 LISTIO             SA5    A2+B5             I2                                            LISTIO      2599     A     
 LISTIO             BX7    X3                                                              LISTIO      2600     A     
 LISTIO             SA7    A2+B6                                                           LISTIO      2601     A     
 LISTIO             SX6    A2+B6                                                           LISTIO      2602     A     
 LISTIO             SA6    SELIST                                                          LISTIO      2603     A     
 LISTIO             SA1    A3-B5             FETCH (                                       LISTIO      2604     A     
 LISTIO             BX6    X1                                                              LISTIO      2605     A     
 LISTIO             SA6    A7-B5                                                           LISTIO      2606     A     
 LISTIO             BX7    X5                INDX + 2                                      LISTIO      2607     A     
 LISTIO             SA7    A6-B5             A(I2                                          LISTIO      2608     A     
 LISTIO             SA3    PLUS                                                            LISTIO      2609     A     
 LISTIO             BX6    X3                                                              LISTIO      2610     A     
 LISTIO             SA6    A7-B5             A(I2+                                         LISTIO      2611     A     
 LISTIO             SA3    CON1                                                            LISTIO      2612     A     
 LISTIO             BX7    X3                                                              LISTIO      2613     A     
 LISTIO             SA7    A6-B5             A(I2+1                                        LISTIO      2614     A     
 LISTIO             SA1    A1-B6             FETCH THE COMMA                               LISTIO      2615     A     
 LISTIO             BX7    X1                                                              LISTIO      2616     A     
 LISTIO             SA7    A7-B5             A(I2+1,                                       LISTIO      2617     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2096    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO   *         CHECK NOW FOR THE CORRECT NO. OF SUBSCRIPTS TO REPLACE                 LISTIO      2618     A     
 LISTIO             SA2    COLAPL                                                          LISTIO      2619     A     
 LISTIO             SB1    B1+B3                                                           LISTIO      2620     A     
 LISTIO             ZR     X2,COLAPM5                                                      LISTIO      2621     A     
 LISTIO    COLAPM4  BSS    0                                                               LISTIO      2622     A     
 LISTIO             AX2    1                                 ?                             LISTIO      2623     A     
 LISTIO             SA4    A5+B4             I,I1,I2,I3,J,J1,J2,J3,K,K1,K2,K3              LISTIO      2624     A     
 LISTIO             BX6    X4                                                              LISTIO      2625     A     
 LISTIO             SB4    B4+B4             B4  =  8                                      LISTIO      2626     A     
 LISTIO             SA6    A7-B5             J1  _  J PLACE OF THE ARRAY REF               LISTIO      2627     A     
 LISTIO             SA1    A1-B6             SKIP THE NEXT INDEX AND GET , OR )            LISTIO      2628     A     
 LISTIO             BX7    X1                                                              LISTIO      2629     A     
 LISTIO             SA7    A6-B5             A(I2+1,J2,                                    LISTIO      2630     A     
 LISTIO             SB7    B7+B5                                                           LISTIO      2631     A     
 LISTIO             NZ     X2,COLAPM4                                                      LISTIO      2632     A     
 LISTIO    COLAPM5  BSS    0                                                               LISTIO      2633     A     
 LISTIO             SA1    A1-B5                                                           LISTIO      2634     A     
 LISTIO             BX7    X1                                                              LISTIO      2635     A     
 LISTIO             SA7    A7-B5                                                           LISTIO      2636     A     
 LISTIO             SB7    B7+B5                                                           LISTIO      2637     A     
 LISTIO             NE     B7,B1,COLAPM5     B7 NOT EQUAL TO DEFINED NO. ARRY DIMS         LISTIO      2638     A     
 LISTIO                                                                                    LISTIO      2639     A     
 LISTIO             SA5    NRLN                                                            LISTIO      2640     A     
 LISTIO             BX7    X5                                                              LISTIO      2641     A     
 LISTIO             SX6    X5+B5                                                           LISTIO      2642     A     
 LISTIO             SA7    MACLP1            RESULT NUMBER                                 LISTIO      2643     A     
 LISTIO             SA6    A5                                                              LISTIO      2644     A     
 LISTIO             SA7    TEMPA                                                           LISTIO      2645     A     
 LISTIO             MX6    1                                                               LISTIO      2646     A     
 LISTIO             SX3    B5                NO EXPRESSION FLAG                            LISTIO      2647     A     
 LISTIO             SA6    SAVDAN      FORCE CODE FLUSHING BY ARITH                        LISTIO      2648     A     
 LISTIO             IXFN   NOREF                                                           LISTIO      2649     A     
 LISTIO             MP=    P3,X6                                                           LISTIO      2650     A     
 LISTIO             SA2    TEMP              PICK UP STORED I1 AND PUT                     LISTIO      2651     A     
 LISTIO             BX6    X2                IT BACK WHERE IT BELONGS AT I1                LISTIO      2652     A     
 LISTIO             SA3    MACLK4            TYPE+1 OF ARRAY                               LISTIO      2653     A     
 LISTIO             SX4    B5                                                              LISTIO      2654     A     
 LISTIO             SX0    X3-T.DBL-1  UNBIAS TYPE VALUE                                   LISTIO      2655     A     
 LISTIO             AX0    59                                                              LISTIO      2656     A     
 LISTIO             BX5    X0*X4             0 IF DBL OR CPLX, 1 IF SINGLE                 LISTIO      2657     A     
 LISTIO             SX7    X5+23                                                           LISTIO      2658     A     
 LISTIO             SA6    INDX+1                                                          LISTIO      2659     A     
 LISTIO             SA7    MACLK1            23 IF DBL OR CPLX, 24 IF SINGLE               LISTIO      2660     A     
 LISTIO             SA2    COLAPL                                                          LISTIO      2661     A     
 LISTIO             SB6    B5+B5                                                           LISTIO      2662     A     
 LISTIO             SB4    B6+B6           B4 = 4                                          LISTIO      2663     A     
 LISTIO             SX6    B5                                                              FCC1479X       7     A     
 LISTIO             SA6    BIO         MARK NO RESTART CALL FOR THIS IXFN                  FCC1479X       8     A     
 LISTIO    COLAPM8  RJ     ARYCONS                                                         LISTIO      2664     A     
 LISTIO             MX6    1                                                               LISTIO      2665     A     
 LISTIO             SX3    B5                NO EXPRESSION FLAG                            LISTIO      2666     A     
 LISTIO             SA6    SAVDAN            TO FORCE CODE FLUSHING BY ARITH               LISTIO      2667     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2097    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SA6    CRFLAG      ARRAY REF IS A CLASS REF                            LISTIO      2668     A     
 LISTIO             SX6    B5                                                              FCC0994        5          I
          -FCC1479X 
 LISTIO             SA6    BIO         MARK NO RESTART CALL FOR THIS IXFN                  FCC0994        6          I
          -FCC1479X 
 LISTIO             IXFN   IOFLAG                                                          LISTIO      2669     A     
 LISTIO             SA5    MACOP                                                           LISTIO      2670     A     
 LISTIO             SX4    X5-M.IOLWC                                                      LISTIO      2671     A     
 LISTIO             ZR     X4,COLAPAL        SEE IF ALL LEVELS COLLAPSABLE                 LISTIO      2672     A     
 LISTIO    COLAPM9  BX7    X2                                                              LISTIO      2673     A     
 LISTIO             SA7    TEMP              SAVE WORD B OF ENTRY                          LISTIO      2674     A     
 LISTIO             MP=    P2,X6                                                           LISTIO      2675     A     
 LISTIO             RJ     MACOUT            ISSUE COLLAPSE MACRO                          LISTIO      2676     A     
 LISTIO                                                                                    LISTIO      2677     A     
 LISTIO             SA7    MACBUF-1          INITIALIZE A7 FOR STORES                      LISTIO      2678     A     
 LISTIO             SA2    TEMP              RESTORE WORD B                                LISTIO      2679     A     
 LISTIO             SA3    TEMPA                                                           LISTIO      2680     A     
 LISTIO             SB4    B0                WORD COUNT FOR WRITE CALL                     LISTIO      2681     A     
 LISTIO             BX6    X3                RESULT NUMBER OF LAST MACRO                   LISTIO      2682     A     
 LISTIO             RJ     PSTAPL            GENERATE STORE TO APLIST MACROS               LISTIO      2683     A     
 LISTIO             RJ     STIOM             ISSUE -1 APLIST MACRO WORD                    LISTIO      2684     A     
 LISTIO                                                                                    LISTIO      2685     A     
 LISTIO                                                                                    LISTIO      2686     A     
 LISTIO    COLAPMW  BSS    0                 RESTORE THE CORRECT SELIST AND MOVE _         LISTIO      2687     A     
 LISTIO             SA5    SAVELIS                                                         LISTIO      2688     A     
 LISTIO             SX6    X5                                                              LISTIO      2689     A     
 LISTIO             SA6    SELIST            UPDATE ELIST POINTER                          LISTIO      2690     A     
 LISTIO             BX7    X7-X7                                                           LISTIO      2691     A     
 LISTIO             SA7    NOCAL           CLEAR REPROCESS FLAG                            LISTIO      2692     A     
 LISTIO             REGS   1                                                               LISTIO      2693          I
          -FEAT155F 
 LISTIO             EQ     IOL.NE            PROCESS THE NEXT ELIST ITEM                   LISTIO      2694     A     
 LISTIO    ARYCONS  SPACE  4,8                                                             LISTIO      2695     A     
 LISTIO   **        ARYCONS - CONSTRUCT AN ARRAY REFERENCE FOR THE IXFN, USING             LISTIO      2696     A     
 LISTIO   *         THE E-LIST ARRAY REFERENCE GENERATED BY *SCANNER*.  THIS REF           LISTIO      2697     A     
 LISTIO   *         WILL REPLACE THE ORIGINAL.                                             LISTIO      2698     A     
 LISTIO                                                                                    LISTIO      2699     A     
 LISTIO    ARYCONS  ENTRY. *                 ** ENTRY/EXIT **                              LISTIO      2700     A     
 LISTIO             SA3    ARYADD                                                          LISTIO      2701     A     
 LISTIO             SB3    B0                                                              LISTIO      2702     A     
 LISTIO             SB1    X2+B6             COLAPL + 2                                    LISTIO      2703     A     
 LISTIO             SB7    EL.)                                                            LISTIO      2704     A     
 LISTIO             SA4    X3-2                                                            LISTIO      2705     A     
 LISTIO    ARYCON1  UX1    B2,X4                                                           LISTIO      2706     A     
 LISTIO             SA4    A4-B5             UPDATE ELIST ADDRESS POINTER                  LISTIO      2707     A     
 LISTIO             NE     B2,B7,ARYCON1     CURRENT ELEMENT NOT EQ )                      LISTIO      2708     A     
 LISTIO             REGS   18                                                              LISTIO      2709          I
          -FEAT155F 
 LISTIO             SB3    B3+B5             INCREMENT RIGHT PAREN COUNT                   LISTIO      2710     A     
 LISTIO             NE     B3,B1,ARYCON1     CURRENT PAREN NOT EQ COLLAPSE PAREN           LISTIO      2711     A     
 LISTIO             SX6    A4                                                              LISTIO      2712     A     
 LISTIO             REGS   19                                                              LISTIO      2713          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2098    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
          -FEAT155F 
 LISTIO             SA6    SAVELIS                                                         LISTIO      2714     A     
 LISTIO             SA5    INDX+B5           I1                                            LISTIO      2715     A     
 LISTIO             BX7    X5                                                              LISTIO      2716     A     
 LISTIO             SA7    X3-2              A(I1                                          LISTIO      2717     A     
 LISTIO             BX6    X3                SET UP SELIST FOR IXFN                        LISTIO      2718     A     
 LISTIO             SA6    SELIST                                                          LISTIO      2719     A     
 LISTIO             ZR     X2,ARYCONS        NO MORE COLLAPSABLE SUBSCRIPTS                LISTIO      2720     A     
 LISTIO                                                                                    LISTIO      2721     A     
 LISTIO   *         THIS ROUTINE REPLACES THE INDICES THAT ARE COLLAPSABLE WITH            LISTIO      2722     A     
 LISTIO   *         THEIR RESPECTIVE STARTING SUBSCRIPTS...                                LISTIO      2723     A     
 LISTIO                                                                                    LISTIO      2724     A     
 LISTIO   *                                    ?<<<<<<<<?                                  LISTIO      2725     A     
 LISTIO   *                                  A(I,J,K),I=I1,I2,I3),J=J1,J2(J3),...          LISTIO      2726     A     
 LISTIO                                                                                    LISTIO      2727     A     
 LISTIO    ARYCON0  BSS    0                                                               LISTIO      2728     A     
 LISTIO             AX2    1                              ?                                LISTIO      2729     A     
 LISTIO             SA4    A5+B4             I,I1,I2,I3,J,J1,J2,J3,K,K1,K2,K3              LISTIO      2730     A     
 LISTIO             BX6    X4                                                              LISTIO      2731     A     
 LISTIO             SB4    B4+B4             B4 = 8                                        LISTIO      2732     A     
 LISTIO             SA6    A7-B6             J1 _  J                                       LISTIO      2733     A     
 LISTIO             SB6    B6+B6                                                           LISTIO      2734     A     
 LISTIO             NZ     X2,ARYCON0        ALL THE LEVELS ARE COLLAPSABLE                LISTIO      2735     A     
 LISTIO             EQ     ARYCONS                                                         LISTIO      2736     A     
 LISTIO                                                                                    LISTIO      2737     A     
 LISTIO                                                                                    LISTIO      2738     A     
 LISTIO   *         GENERATE APLIST ITEM WORD WHEN ALL LOOP LEVELS ARE COLLAPSABLE         LISTIO      2739     A     
 LISTIO                                                                                    LISTIO      2740     A     
 LISTIO    COLAPAL  SA5    APLRST                                                          LISTIO      2741     A     
 LISTIO             AX5    1                                                               LISTIO      2742     A     
 LISTIO             ZR     X5,COLAPM9        IF IXFN MACRO WAS OUTPUTTED LAST              LISTIO      2743     A     
 LISTIO             SA4    MACLK1                                                          LISTIO      2744     A     
 LISTIO             BX6    X4                                                              LISTIO      2745     A     
 LISTIO             BX7    X0-X0                                                           LISTIO      2746     A     
 LISTIO             SA6    ITEMCT            SET UP ITEM COUNT                             LISTIO      2747     A     
 LISTIO             SA7    A5                CLEAR FLAG                                    LISTIO      2748     A     
 LISTIO             RJ     LSTITM            ISSUE APLIST WORD                             LISTIO      2749     A     
 LISTIO             EQ     COLAPMW                                                         LISTIO      2750     A     
 LISTIO                                                                                    LISTIO      2751     A     
 LISTIO                                                                                    LISTIO      2752     A     
 LISTIO   *         NOCOLAP - FAIL EXIT                                                    LISTIO      2753     A     
 LISTIO                                                                                    LISTIO      2754     A     
 LISTIO    NOCOLAP  SA5    CDCNT             CURRENT STATEMENT NUMBER                      LISTIO      2755     A     
 LISTIO             MX0    1                                                               LISTIO      2756     A     
 LISTIO             SA3    ARYADD                                                          LISTIO      2757     A     
 LISTIO             LX3    18                                                              LISTIO      2758     A     
 LISTIO             BX6    X0+X5             NO COLLAPSE = -                               LISTIO      2759     A     
 LISTIO             BX7    X6+X3             NOCAL = -...ARYADD,CARDCNT                    LISTIO      2760     A     
 LISTIO             SA7    NOCAL             STORE ARRAY ADDRESS FOR FUTURE TEST           LISTIO      2761     A     
 LISTIO             EQ     IOL.D             EXIT TO STANDARD DO LOOP PROCESSING           LISTIO      2762     A     
 LISTIO    CKINDX   SPACE  3,6                                                             LISTIO      2763     A     
 LISTIO   **        CKINDX - CHECK THE INDICES OF A NEST OF I/O LOOPS FOR                  LISTIO      2764     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2099    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO   *         REDEFINITION OF DO VARIABLES OF OUTER LOOPS.                           LISTIO      2765     A     
 LISTIO   *         ENTRY  (X4) = - IF NON FULL COLLAPSE CALL                              LISTIO      2766     A     
 LISTIO   *                       + IF FULL COLLAPSE ENTRY                                 LISTIO      2767     A     
 LISTIO                                                                                    LISTIO      2768     A     
 LISTIO    CKINDX   ENTRY. *                 ** ENTRY/EXIT **                              LISTIO      2769     A     
 LISTIO             SA3    COLLAPS                                                         LISTIO      2770     A     
 LISTIO             ZR     X3,CKINDX         IF ONLY ONE LEVEL                             LISTIO      2771     A     
 LISTIO                                                                                    LISTIO      2772     A     
 LISTIO             LX3    2                 4 * NO. OF PAREN LEVELS                       LISTIO      2773     A     
 LISTIO             SB3    X3+INDX+4         UPPER LIMIT FOR SCAN                          LISTIO      2774     A     
 LISTIO             SA5    INDX              CONTROL VARIABLE I                            LISTIO      2775     A     
 LISTIO             RJ     DOINDX            CHECK FOR REDEFINITION                        LISTIO      2776     A     
 LISTIO                                                                                    LISTIO      2777     A     
 LISTIO             SA2    COLAPL                                                          LISTIO      2778     A     
 LISTIO             AX2    1                                                               LISTIO      2779     A     
 LISTIO             ZR     X2,CKINDX         IF ONLY ONE LEVEL COLLAPSED                   LISTIO      2780     A     
 LISTIO             SA5    INDX+4            CONTROL VARIABLE J                            LISTIO      2781     A     
 LISTIO             RJ     DOINDX            CHECK FOR REDEFINITION                        LISTIO      2782     A     
 LISTIO             EQ     CKINDX                                                          LISTIO      2783     A     
 LISTIO    DOINDX   SPACE  4,8                                                             LISTIO      2784     A     
 LISTIO    DOINDX   ENTRY. *                 ** ENTRY/EXIT **                              LISTIO      2785     A     
 LISTIO             SB6    A5+4              STARTING INDEX ADDRESS                        LISTIO      2786     A     
 LISTIO             MX0    12                                                              LISTIO      2787     A     
 LISTIO    DOI1     GE     B6,B3,DOINDX      IF THE SCAN IS DONE                           LISTIO      2788     A     
 LISTIO             SA3    B6                INDX ENTRY                                    LISTIO      2789     A     
 LISTIO             BX6    -X0*X3                                                          LISTIO      2790     A     
 LISTIO             BX7    X6-X5                                                           LISTIO      2791     A     
 LISTIO             SB6    B6+B5                                                           LISTIO      2792     A     
 LISTIO             NZ     X7,DOI1           IF INDEX ENTRY .NE. CONTROL VAR               LISTIO      2793     A     
 LISTIO                                                                                    LISTIO      2794     A     
 LISTIO             SB2    A3                                                              LISTIO      2795     A     
 LISTIO             SB6    E.DO13            ERROR MESSAGE NO.                             LISTIO      2796     A     
 LISTIO             BX3    X5                                                              LISTIO      2797     A     
 LISTIO             SB1    INDX+8            CONTROL VAR K                                 LISTIO      2798     A     
 LISTIO             SB7    DOINDX            RETURN ADDRESS                                LISTIO      2799     A     
 LISTIO             NG     X4,DOINDX         IF NOT FULL COLLAPSE, EXIT                    LISTIO      2800     A     
 LISTIO    DOI2     BX4    X4-X4                                                           LISTIO      2801     A     
 LISTIO             EQ     B2,B1,ERPRO       IF A CONTROL VARIABLE                         LISTIO      2802     A     
 LISTIO             SB1    INDX+4                                                          LISTIO      2803     A     
 LISTIO             EQ     B2,B1,ERPRO       IF A CONTROL VARIABLE REDEF                   LISTIO      2804     A     
 LISTIO             EQ     ERPROI            ONLY A LOOP LIMIT REDEF                       LISTIO      2805     A     
 LISTIO                                                                                    LISTIO      2806     A     
 LISTIO             SPACE  3                                                               LISTIO      2807     A     
 LISTIO   ***                                                                              LISTIO      2808     A     
 LISTIO   *         VALTYP - CHECK CONSTANT TYPE AND RETURN VALUE                          LISTIO      2809     A     
 LISTIO   *                                                                                LISTIO      2810     A     
 LISTIO   *         ON ENTRY:                                                              LISTIO      2811     A     
 LISTIO   *                X1 = LOWER 48 BITS OF ELIST FOR CONSTANT                        LISTIO      2812     A     
 LISTIO   *                                                                                LISTIO      2813     A     
 LISTIO   *         ON EXIT:                                                               LISTIO      2814     A     
 LISTIO   *                X1 = VALUE                                                      LISTIO      2815     A     
 LISTIO   *                                                                                LISTIO      2816     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2100    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO    VALTYP1  SB1    -B5               CONVERT ONLY                                  LISTIO      2817     A     
 LISTIO             BX1    X4                                                              LISTIO      2818     A     
 LISTIO             CALL   CONVERT                                                         LISTIO      2819     A     
 LISTIO                                                                                    LISTIO      2820     A     
 LISTIO    VALTYP   ENTRY. *                 ** ENTRY/EXIT **                              LISTIO      2821     A     
 LISTIO             PX4    X1                                                              LISTIO      2822     A     
 LISTIO             SX0    134B                                                            LISTIO      2823     A     
 LISTIO             AX1    45                                                              LISTIO      2824     A     
 LISTIO             SB7    X1+59-6                                                         LISTIO      2825     A     
 LISTIO             LX6    B7,X0                                                           LISTIO      2826     A     
 LISTIO             PL     X6,VALTYP1        IF INTEGER,OCTAL OR HOLERITH                  LISTIO      2827     A     
 LISTIO                                                                                    LISTIO      2828     A     
 LISTIO             SB6    DO7               BAD DO LIMIT                                  LISTIO      2829     A     
 LISTIO             EQ     IOERRX                                                          LISTIO      2830     A     
 LISTIO             SPACE  3                                                               LISTIO      2831     A     
 LISTIO   ***                                                                              LISTIO      2832     A     
 LISTIO   *         DOVAR - CALL INTVAR IN DOPROC TO CHECK FOR PROPER DO VARIABLE          LISTIO      2833     A     
 LISTIO   *                                                                                LISTIO      2834     A     
 LISTIO   *         ON ENTRY:                                                              LISTIO      2835     A     
 LISTIO   *                X2 = ELIST FOR VARIABLE                                         LISTIO      2836     A     
 LISTIO   *                X7 = ERROR NUMBER                                               LISTIO      2837     A     
 LISTIO   *                                                                                LISTIO      2838     A     
 LISTIO                                                                                    LISTIO      2839     A     
 LISTIO    DOVAR1   BX6    X2                                                              LISTIO      2840     A     
 LISTIO             SA6    A7+B5             AND VARIABLE                                  LISTIO      2841     A     
 LISTIO             CALL   INTVAR                                                          LISTIO      2842     A     
 LISTIO             SA5    DOVART                                                          LISTIO      2843          I
          -FCC1252X 
 LISTIO    DOVAR15  SA5    DOVART                                                          FCC1252X      19     A     
 LISTIO             EQ     DOVAR2                                                          LISTIO      2844     A     
 LISTIO                                                                                    LISTIO      2845     A     
 LISTIO    DOVAR    ENTRY. *                 ** ENTRY/EXIT **                              LISTIO      2846     A     
 LISTIO             SA7    DOVART            SAVE ERROR NUMBER                             LISTIO      2847     A     
 LISTIO             EQ     DOVAR1                                                          LISTIO      2848     A     
 LISTIO                                                                                    LISTIO      2849     A     
 LISTIO    DOVAR2   SA4    A5+B5             VARIABLE                                      LISTIO      2850     A     
 LISTIO             SB6    X5                                                              LISTIO      2851     A     
 LISTIO             EQ     IOERRX                                                          LISTIO      2852     A     
 LISTIO                                                                                    LISTIO      2853     A     
 LISTIO    DOVART   BSS    2                 2 TEMPORARIES FOR DOVAR                       LISTIO      2854     A     
 LISTIO             SPACE  3                                                               LISTIO      2855     A     
 LISTIO   **        EQUIVP - RETURN BASE/BIAS OF SYMBOL                                    LISTIO      2856     A     
 LISTIO                                                                                    LISTIO      2857          I
          -FCC0544
 LISTIO    EQUIVP1  SA3    TEMPB       SUBSCRIPTS COUNT                                    LISTIO      2858          I
          -FCC0544
 LISTIO             ZR     X3,EQUIVP2  IF STORES INTO INDEX BUFFER                         LISTIO      2859          I
          -FCC0544
 LISTIO             SA7    X3+TEMPBI-1 BIAS TO TEMP SUBSCRIPT CELLS                        LISTIO      2860          I
          -FCC0544
 LISTIO             SA6    X3+TEMPBA-1 BASE TO TEMP SUBSCRIPT CELLS                        LISTIO      2861          I
          -FCC0544
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2101    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             EQ     EQUIVP                                                          LISTIO      2862          I
          -FCC0544
 LISTIO    EQUIVP2  SA7    MACLK2+B7   BIAS TO MACRO BUFFER                                LISTIO      2863          I
          -FCC0544
 LISTIO             SA6    MACLS2+B7   BASE TO MACRO BUFFER                                LISTIO      2864          I
          -FCC0544
 LISTIO   *         ENTRY  X1 = WORD A OF SYMBOL                                           FCC0544       69     A     
 LISTIO   *                A2 _ WORD B OF SYMBOL                                           FCC0544       70     A     
 LISTIO   *                B1 = SYMTAB ORDINAL                                             FCC0544       71     A     
 LISTIO   *         EXIT   X6 = BASE                                                       FCC0544       72     A     
 LISTIO   *                X7 = BIAS                                                       FCC0544       73     A     
 LISTIO   *         SAVE   A2                                                              FCC0544       74     A     
 LISTIO    EQUIVP   ENTRY. *                 ** ENTRY/EXIT **                              LISTIO      2865     A     
 LISTIO             SA3    MACSYM            SYMBOL STORAGE INCREMENT                      LISTIO      2866          I
          -FCC0544
 LISTIO             LX1    59-P.EQU                                                        LISTIO      2867     A     
 LISTIO             SX7    X3+B5                                                           LISTIO      2868          I
          -FCC0544
 LISTIO             SB7    X3                                                              LISTIO      2869          I
          -FCC0544
 LISTIO             SA7    A3                                                              LISTIO      2870          I
          -FCC0544
 LISTIO             SX6    B1                SYMTAB ORDINAL                                LISTIO      2871     A     
 LISTIO             SX7    B0                                                              LISTIO      2872     A     
 LISTIO             PL     X1,EQUIVP1  IF NOT EQUIVALENCED                                 LISTIO      2873          I
          -FCC0544
 LISTIO             PL     X1,EQUIVP   IF NOT EQUIVALENCED                                 FCC0544       75     A     
 LISTIO             SA2    A2          WORD B                                              LISTIO      2874     A     
 LISTIO             MX0    -L.DIMP                                                         LISTIO      2875     A     
 LISTIO             LX2    -P.DIMP                                                         LISTIO      2876     A     
 LISTIO             SA1    DIM1                                                            LISTIO      2877     A     
 LISTIO             BX6    -X0*X2                                                          LISTIO      2878     A     
 LISTIO             SB2    X1                                                              LISTIO      2879     A     
 LISTIO             LX6    1           2*ORD(DIM)                                          LISTIO      2880     A     
 LISTIO             SA3    X6+B2       WORD 1 OF DIMTAB ENTRY                              LISTIO      2881     A     
 LISTIO             AX3    18                                                              LISTIO      2882     A     
 LISTIO             SX7    X3                BIAS                                          LISTIO      2883     A     
 LISTIO             AX3    18                                                              LISTIO      2884     A     
 LISTIO             SX6    X3                BASE                                          LISTIO      2885     A     
 LISTIO                                                                                    LISTIO      2886          I
          -FCC0544
 LISTIO             EQ     EQUIVP1                                                         LISTIO      2887          I
          -FCC0544
 LISTIO             EQ     EQUIVP                                                          FCC0544       76     A     
 LISTIO                                                                                    LISTIO      2888     A     
 LISTIO                                                                                    LISTIO      2889     A     
 LISTIO   *         FIRST OCCURANCE OF NAME AS ARRAY IN IMPLIED DO LOOP                    LISTIO      2890     A     
 LISTIO                                                                                    LISTIO      2891     A     
 LISTIO    IOERR1   BX2    X0+X2             SET VAR BIT                                   LISTIO      2892     A     
 LISTIO             IX7    X6+X2             AND TYPE                                      LISTIO      2893     A     
 LISTIO             SA7    A2                                                              LISTIO      2894     A     
 LISTIO             SB6    ARTH136                                                         LISTIO      2895     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2102    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             EQ     CFSIV1            GO ISSUE ERROR MESSAGE                        LISTIO      2896     A     
 LISTIO             TITLE              IMPLIED DO PROCESSING - NO COLLAPSE CASE            LISTIO      2897     A     
 LISTIO   ***                                                                              LISTIO      2898     A     
 LISTIO   *         IMPLIED DO PROCESSING - WHERE LIST IS NOT COLLAPSABLE                  LISTIO      2899     A     
 LISTIO   *                                                                                LISTIO      2900     A     
 LISTIO                                                                                    LISTIO      2901     A     
 LISTIO    IOL.D    ADVIN                                                                  LISTIO      2902     A     
 LISTIO             BI=    B4,EL.)                                                         LISTIO      2903     A     
 LISTIO             BI=    B3,EL.(                                                         LISTIO      2904     A     
 LISTIO             BI=    B6,EL.=                                                         LISTIO      2905     A     
 LISTIO             BI=    B7,EL.EOS                                                       LISTIO      2906     A     
 LISTIO             SB1    B0                B1 = ADDRESS OF = SIGN AT LEVEL 0             LISTIO      2907     A     
 LISTIO             MX0    0                 PAREN COUNT                                   LISTIO      2908     A     
 LISTIO             SB2    EL.S)                                                           LISTIO      2909     A     
 LISTIO             PX7    B2,X0             X7 = ELIST FOR SPECIAL PAREN                  LISTIO      2910     A     
 LISTIO             SX2    B5                                                              LISTIO      2911     A     
 LISTIO                                                                                    LISTIO      2912     A     
 LISTIO   *         SCAN FOR = SIGN AT LEVEL 0 AND ) AT LEVEL -1                           LISTIO      2913     A     
 LISTIO                                                                                    LISTIO      2914     A     
 LISTIO    IMDS     NEXTE                                                                  LISTIO      2915     A     
 LISTIO             LE     B2,B5,IMDS        IGNORE CONSTANTS AND NAMES                    LISTIO      2916     A     
 LISTIO             NE     B2,"EL.(",IMDS1                                                 LISTIO      2917     A     
 LISTIO             IX0    X0+X2             INCREMENT PAREN COUNT                         LISTIO      2918     A     
 LISTIO             EQ     IMDS                                                            LISTIO      2919     A     
 LISTIO                                                                                    LISTIO      2920     A     
 LISTIO    IMDS1    NE     B2,"EL.=",IMDS2                                                 LISTIO      2921     A     
 LISTIO             NZ     X0,IMDS           IGNORE INNER LOOPS                            LISTIO      2922          I
          -FCC2285
 LISTIO             SA4    A4+2        TRY TO LOCATE LEFT PARENTHESIS                      FCC2285       11     A     
 LISTIO             UX1    B2,X4       IN ORDER TO DETECT IMPLIED DO SPEC                  FCC2285       12     A     
 LISTIO             NE     B2,"EL.(",IMDS1A  ERROR, IF NOT LEFT PARENTHESIS                FCC2285       13     A     
 LISTIO             SB6    -E.PIL                                                          FCC2285       14     A     
 LISTIO             EQ     IOERRX      IO SYNTAX ERROR OCCURS                              FCC2285       15     A     
 LISTIO   IMDS1A    SA4    A4-2        BACKUP TOKE LIST                                    FCC2285       16     A     
 LISTIO             NZ     X0,IMDS     IGNOR INNER LOOP                                    FCC2285       17     A     
 LISTIO             NZ     B1,IOERR          IF MORE THAN ONE OUTERMOST LOOP               LISTIO      2923     A     
 LISTIO             SB1    A4                SAVE ADDRESS                                  LISTIO      2924     A     
 LISTIO             EQ     IMDS                                                            LISTIO      2925     A     
 LISTIO                                                                                    LISTIO      2926     A     
 LISTIO    IMDS2    EQ     B2,"EL.)",IMDS3                                                 LISTIO      2927     A     
 LISTIO             NE     B2,"EL.EOS",IMDS                                                LISTIO      2928     A     
 LISTIO             EQ     IOERR                                                           LISTIO      2929     A     
 LISTIO                                                                                    LISTIO      2930     A     
 LISTIO    IMDS3    IX0    X0-X2             DECREMENT PAREN COUNT                         LISTIO      2931     A     
 LISTIO             PL     X0,IMDS           IF NOT OUTER MOST                             LISTIO      2932     A     
 LISTIO             ZR     B1,IMDS4          IF NO = SIGN FOUND                            LISTIO      2933     A     
 LISTIO             SA7    A4                STORE SPECIAL PAREN                           LISTIO      2934     A     
 LISTIO             EQ     DOBEGIN                                                         LISTIO      2935     A     
 LISTIO                                                                                    LISTIO      2936     A     
 LISTIO    IMDS4    NEXTE                    ELEMENT AFTER ZERO LEVEL PAREN                LISTIO      2937     A     
 LISTIO             LE     B2,"EL.(",IMDS5   NOT FOLLOWED BY AN OPERATOR                   LISTIO      2938     A     
 LISTIO             SB1    EL.S)                                                           LISTIO      2939     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2103    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             EQ     B2,B1,IMDS5       IF FOLLOWED BY SPECIAL PAREN                  LISTIO      2940     A     
 LISTIO             BACKE                    BACK OVER THE OPENING PAREN                   LISTIO      2941     A     
 LISTIO             EQ     IOL.N                                                           LISTIO      2942     A     
 LISTIO                                                                                    LISTIO      2943     A     
 LISTIO    IMDS5    SA7    A4+B5             STORE SPECIAL PAREN                           LISTIO      2944          I
          -FCC0787
 LISTIO    IMDS5    LX6    18                                                              FCC0787      137     A     
 LISTIO             SX3    A4+B5       ADDRESS OF ELIST FOR )                              FCC0787      138     A     
 LISTIO             BX7    X6+X3                                                           FCC0787      139     A     
 LISTIO             SA4    X5          ELIST FOR (                                         FCC0787      140     A     
 LISTIO             SA7    CPLXC       24/0,18/SELIST,18/EPOINT FOR )                      FCC0787      141     A     
 LISTIO             CALL   CFCD        CHECK FOR COMPLEX DATA                              FCC0787      142     A     
 LISTIO             SA5    CPLXC                                                           FCC0787      143     A     
 LISTIO             ZR     X0,IMDS5A   IF CPLX CONST                                       FCC0787      144     A     
 LISTIO             MX7    0                                                               FCC0787      145     A     
 LISTIO             SB2    EL.S)                                                           FCC0787      146     A     
 LISTIO             PX6    B2,X7                                                           FCC0787      147     A     
 LISTIO             SA7    A5                                                              FCC0787      148     A     
 LISTIO             SA6    X5          STORE SPECIAL PAREN                                 FCC0787      149     A     
 LISTIO             EQ     IOL.L                                                           FCC0787      150     A     
 LISTIO                                                                                    FCC0787      151     A     
 LISTIO    IMDS5A   BX6    X1                                                              FCC0787      152     A     
 LISTIO             LX7    X2                                                              FCC0787      153     A     
 LISTIO             SA6    =XCONST     REAL PART                                           FCC0787      154     A     
 LISTIO             SA7    A6+1        IMAGINARY PART                                      FCC0787      155     A     
 LISTIO             SA3    SELIST                                                          FCC0787      156     A     
 LISTIO             AX5    18                                                              FCC0787      157     A     
 LISTIO             BX7    X5                                                              FCC0787      158     A     
 LISTIO             LX6    X3                                                              FCC0787      159     A     
 LISTIO             SA7    A3          RESTORE ELIST POINTER                               FCC0787      160     A     
 LISTIO             SA6    A5          FLAG CPLX CONST                                     FCC0787      161     A     
 LISTIO             EQ     IOL.L                                                           LISTIO      2945     A     
 LISTIO                                                                                    LISTIO      2946     A     
 LISTIO   *         DONEX - RETURN FROM DOPROC AFTER PROCESSING END OF LOOP                LISTIO      2947     A     
 LISTIO                                                                                    LISTIO      2948     A     
 LISTIO    DONEX    GETE                     GET FIRST E-LIST ELEMENT                      LISTIO      2949     A     
 LISTIO             BI=    B3,EL.EOS                                                       LISTIO      2950     A     
 LISTIO             SB4    EL.S)                                                           LISTIO      2951     A     
 LISTIO                                                                                    LISTIO      2952     A     
 LISTIO    DONEX.L  NEXTE                    NEXT ELEMENT                                  LISTIO      2953     A     
 LISTIO             EQ     B2,"EL.EOS",IOERR     IF WE HIT END OF STMT                     LISTIO      2954     A     
 LISTIO             NE     B2,B4,DONEX.L     LOOP IF NOT A SPECIAL PAREN                   LISTIO      2955     A     
 LISTIO                                                                                    LISTIO      2956     A     
 LISTIO             UPDATE                   UPDATE E-LIST POINTER                         LISTIO      2957     A     
 LISTIO             EQ     IOL.NE            GO GET NEXT ELEMENT                           LISTIO      2958     A     
 LISTIO                                                                                    LISTIO      2959     A     
 LISTIO                                                                                    LISTIO      2960     A     
 LISTIO   *         ISSUE I/O CALL BEFORE GENERATION OF DO-BEGIN LOOP CODE                 LISTIO      2961     A     
 LISTIO                                                                                    LISTIO      2962     A     
 LISTIO    DOBEGIN  SA4    PARCNT                                                          LISTIO      2963     A     
 LISTIO             ZR     X4,DOIT           IF NOTHING TO OUTPUT                          LISTIO      2964     A     
 LISTIO             SX6    B1                                                              LISTIO      2965     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2104    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SA6    TEMP              SAVE INFORMATION FOR DOPROC                   LISTIO      2966     A     
 LISTIO             RJ     ARIOCM            ISSUE RESTART CODE                            LISTIO      2967     A     
 LISTIO             SA1    TEMP                                                            LISTIO      2968     A     
 LISTIO             SB1    X1                RESTORE ELIST POINTER FOR DOPROC              LISTIO      2969     A     
 LISTIO             SA4    IONAME                                                          LISTIO      2970     A     
 LISTIO             NG     X4,DOIT           IF NO ADJUSTMENTS NECESSARY                   LISTIO      2971     A     
 LISTIO             SX5    GEFNT             MACRO HEADER ADDRESS                          LISTIO      2972     A     
 LISTIO             SX6    X4+B5             ADJUST ADDRESS OF OBJECT NAME                 LISTIO      2973     A     
 LISTIO             LX5    18                                                              LISTIO      2974     A     
 LISTIO             MX0    1                                                               LISTIO      2975     A     
 LISTIO             IX3    X5+X6                                                           LISTIO      2976     A     
 LISTIO             BX7    X0+X3                                                           LISTIO      2977     A     
 LISTIO             SA7    A4                                                              LISTIO      2978     A     
 LISTIO             EQ     DOIT              PROCESS LOOP                                  LISTIO      2979     A     
 LISTIO                                                                                    LISTIO      2980     A     
 LISTIO                                                                                    LISTIO      2981     A     
 LISTIO   *         ISSUE I/O CALL BEFORE GENERATION OF DO-END LOOP CODE                   LISTIO      2982     A     
 LISTIO                                                                                    LISTIO      2983     A     
 LISTIO    DOEND    SA4    PARCNT                                                          LISTIO      2984     A     
 LISTIO             ZR     X4,DONE           IF NOTHING TO OUTPUT                          LISTIO      2985     A     
 LISTIO             RJ     ARIOCM            ISSUE RESTART CODE                            LISTIO      2986     A     
 LISTIO             EQ     DONE              GENERATE DO-END LOOP CODE                     LISTIO      2987     A     
 LISTIO    ARIOCM   SPACE  4,8                                                             LISTIO      2988     A     
 LISTIO   **        ARIOCM - ISSUE I/O APLIST RESTART CALL MACRO.                          LISTIO      2989     A     
 LISTIO                                                                                    LISTIO      2990     A     
 LISTIO    ARIOCM   ENTRY. *                 ** ENTRY/EXIT **                              LISTIO      2991     A     
 LISTIO             RJ     IIR         ISSUE IOLST TABLE TO RLIST IF OPT=2                 LISTIO      2992     A     
 LISTIO             SB1    1                                                               LISTIO      2993     A     
 LISTIO             WRITEC =XF.CMPS,EIOM.CD,2                                              LISTIO      2994     A     
 LISTIO             SA2    DATA.                                                           LISTIO      2995     A     
 LISTIO             SB5    1                                                               LISTIO      2996     A     
 LISTIO             SX6    X2+B5                                                           LISTIO      2997     A     
 LISTIO             SA6    A2                INCREMENT BLOCK SIZE                          LISTIO      2998     A     
 LISTIO             SA4    IONAME                                                          LISTIO      2999     A     
 LISTIO             SA1    X4                OBJECT ROUTINE NAME                           LISTIO      3000     A     
 LISTIO             RJ     IOCM              ISSUE I/O CALL                                LISTIO      3001     A     
 LISTIO             RJ     IOSETUP           BEGIN NEW APLIST                              LISTIO      3002     A     
 LISTIO             EQ     ARIOCM                                                          LISTIO      3003     A     
 LISTIO                                                                                    LISTIO      3004     A     
 LISTIO                                                                                    LISTIO      3005     A     
 LISTIO    EIOM.CD  LIT    13C  EIO     -0B                                                LISTIO      3006     A     
 LISTIO                                                                                    LISTIO      3007     A     
 LISTIO                                                                                    LISTIO      3008     A     
 LISTIO   *         IARC - ISSUE INPUT APLIST RESTART CALL                                 LISTIO      3009     A     
 LISTIO                                                                                    LISTIO      3010     A     
 LISTIO    IARC     ENTRY.                                                                 LISTIO      3011     A     
 LISTIO             RJ     ARIOCM            ISSUE RESTART CODE                            LISTIO      3012     A     
 LISTIO             SA4    IONAME                                                          LISTIO      3013     A     
 LISTIO             NG     X4,IARC           IF NO ADJUSTMENT NECESSARY                    LISTIO      3014     A     
 LISTIO             SX5    GEFNT             MACRO HEADER ADDRESS                          LISTIO      3015     A     
 LISTIO             SX6    X4+B5             ADJUST ADDRESS OF OBJECT NAME                 LISTIO      3016     A     
 LISTIO             LX5    18                                                              LISTIO      3017     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2105    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             MX0    1                                                               LISTIO      3018     A     
 LISTIO             IX3    X5+X6                                                           LISTIO      3019     A     
 LISTIO             BX7    X0+X3                                                           LISTIO      3020     A     
 LISTIO             SA7    A4                                                              LISTIO      3021     A     
 LISTIO             EQ     IARC                                                            LISTIO      3022     A     
 LISTIO    PLI      TITLE  PLI - PROCESS LIST ITEMS                                        LISTIO      3023     A     
 LISTIO   **        PLI - PROCESS LIST ITEMS                                               LISTIO      3024     A     
 LISTIO   *                                                                                LISTIO      3025     A     
 LISTIO   *         I/O LIST ITEMS IN INPUT STMTS ARE PUT IN THE IOLST TABLE TO            LISTIO      3026     A     
 LISTIO   *         CHECK FOR NECESSARY RESTART CALLS OR, IF IN OPT=2, ALL ITEMS           LISTIO      3027     A     
 LISTIO   *         ARE PUT IN THE IOLST TABLE AND THEN THE TABLE ISSUED AS A              LISTIO      3028     A     
 LISTIO   *         RMACRO FOR OPTIMIZATION PURPOSES.                                      LISTIO      3029     A     
 LISTIO   *                                                                                LISTIO      3030     A     
 LISTIO   *         ENTRY  (X2) = SYMTAB ORD OF ITEM TO BE ADDED TO THE TABLE              LISTIO      3031     A     
 LISTIO   *                (B5) = 1                                                        LISTIO      3032     A     
 LISTIO   *                                                                                LISTIO      3033     A     
 LISTIO   *         EXIT   (X2) = SYMTAB ORD OF ITEM                                       LISTIO      3034     A     
 LISTIO                                                                                    LISTIO      3035     A     
 LISTIO    PLI      ENTRY. *           ENTRY/EXIT                                          LISTIO      3036     A     
 LISTIO             SA3    =XOPT2                                                          LISTIO      3037     A     
 LISTIO             NZ     X3,PLI1     IF OPT=2                                            LISTIO      3038     A     
 LISTIO             SA4    PIOFLAG                                                         LISTIO      3039     A     
 LISTIO             ZR     X4,PLI      IF NOT A LIST ITEM IN AN INPUT STMT                 LISTIO      3040     A     
 LISTIO                                                                                    LISTIO      3041     A     
 LISTIO    PLI1     SA3    HOLCON                                                          LISTIO      3042          I
          -FCC1088
 LISTIO             NZ     X3,PLI      IF HOLL CON, EXIT                                   LISTIO      3043          I
          -FCC1088
 LISTIO             SA1    IOEXP                                                           LISTIO      3044          I
          -FCC1088
 LISTIO             BX6    X2                                                              LISTIO      3045          I
          -FCC1088
 LISTIO             SB1    X2                                                              LISTIO      3046          I
          -FCC1088
 LISTIO    PLI1     SA1    SYM1                                                            FCC1088       13     A     
 LISTIO             BX6    X2                                                              FCC1088       14     A     
 LISTIO             LX3    B5,X2                                                           FCC1088       15     A     
 LISTIO             SB3    X3+B5                                                           FCC1088       16     A     
 LISTIO             SA0    X1                                                              FCC1088       17     A     
 LISTIO             SA3    A0-B3       WORDB                                               FCC1088       18     A     
 LISTIO             LX3    59-P.LDO                                                        FCC1088       19     A     
 LISTIO             MI     X3,PLI      IF LOAD ONLY    ( CON. , HOL. )                     FCC1088       20     A     
 LISTIO             SA1    IOEXP                                                           FCC1088       21     A     
 LISTIO             SA6    SYMORD      SAVE FOR RESTORE AT EXIT                            LISTIO      3047     A     
 LISTIO             NZ     X1,PLI8     IF RESULT OF EXPRESSION                             LISTIO      3048     A     
 LISTIO                                                                                    LISTIO      3049     A     
 LISTIO             SA2    =XRL2TS     FIRST WORD OF LAST ARLIST                           LISTIO      3050     A     
 LISTIO             SA1    X2+2        RMACRO HDR WORD                                     LISTIO      3051     A     
 LISTIO             MX0    -AP.IHL     SAME MASK IS USED FOR CA                            LISTIO      3052     A     
 LISTIO             SA5    CRFLAG      ENSURE A CLEARED CRFLAG                             LISTIO      3053     A     
 LISTIO             MX7    0                                                               LISTIO      3054     A     
 LISTIO             UX1    B2,X1                                                           LISTIO      3055     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2106    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SA3    A1+B5       IH IN HDR WORD + 1                                  LISTIO      3056     A     
 LISTIO             SX4    B2+M.SXIT                                                       LISTIO      3057     A     
 LISTIO             BX1    -X0*X3      IH IS EXTRACTED                                     LISTIO      3058     A     
 LISTIO             SA7    A5                                                              LISTIO      3059     A     
 LISTIO             LX1    AP.IHP                                                          LISTIO      3060     A     
 LISTIO             ZR     X4,PLI5     IF INDEX FUN RMACRO                                 LISTIO      3061     A     
 LISTIO                                                                                    LISTIO      3062     A     
 LISTIO   *         IH IN HDR + 1, CA IN HDR + 3 GENERALLY                                 LISTIO      3063     A     
 LISTIO                                                                                    LISTIO      3064     A     
 LISTIO             SA4    A1+3        CA IN HDR WORD + 3                                  LISTIO      3065     A     
 LISTIO             BX2    -X0*X4      CA IS EXTRACTED                                     LISTIO      3066     A     
 LISTIO             LX2    AP.CAP                                                          LISTIO      3067     A     
 LISTIO             BX1    X2+X1       CA,IH                                               LISTIO      3068     A     
 LISTIO             ZR     X5,PLI3     IF NOT SPECIAL CASE CLASS REF CHECK                 LISTIO      3069     A     
 LISTIO             MI     X5,PLI6     IF ARRAY REF IS A CLASS REF                         LISTIO      3070     A     
 LISTIO                                                                                    LISTIO      3071     A     
 LISTIO   *         FOR VAR FORMAT, VAR NAME OF ENC/DEC, OR FWA OF BUFIO, NAME IS          LISTIO      3072     A     
 LISTIO   *         A CLASS REF IF AN ARRAY OR EQUIVED.                                    LISTIO      3073     A     
 LISTIO                                                                                    LISTIO      3074     A     
 LISTIO             SA3    SYM1                                                            LISTIO      3075          I
          -FCC1088
 LISTIO             SB2    B1+B1                                                           LISTIO      3076          I
          -FCC1088
 LISTIO             SA0    X3                                                              LISTIO      3077          I
          -FCC1088
 LISTIO             SB2    B3-B5                                                           FCC1088       22     A     
 LISTIO             SA2    A0-B2       WORD A                                              LISTIO      3078     A     
 LISTIO             LX2    59-P.DIM                                                        LISTIO      3079     A     
 LISTIO             MI     X2,PLI6     IF DIMENSIONED, IS A CLASS REF                      LISTIO      3080     A     
 LISTIO             LX2    P.DIM-P.EQU                                                     LISTIO      3081     A     
 LISTIO             MI     X2,PLI6     IF EQUIVED, IS A CLASS REF                          LISTIO      3082     A     
 LISTIO                                                                                    LISTIO      3083     A     
 LISTIO   *         IF RF > 0, SET CLASS REF BIT                                           LISTIO      3084     A     
 LISTIO                                                                                    LISTIO      3085     A     
 LISTIO    PLI3     SA2    A1+2        RF IN HDR WORD + 2                                  LISTIO      3086     A     
 LISTIO             MX5    -RM.RIL                                                         LISTIO      3087     A     
 LISTIO             LX2    -RM.RIL                                                         LISTIO      3088     A     
 LISTIO             BX3    -X5*X2      RF IS EXTRACTED                                     LISTIO      3089     A     
 LISTIO             SB2    X3                                                              LISTIO      3090     A     
 LISTIO             GE     B2,B5,PLI6  RF ON, SET CR BIT                                   LISTIO      3091     A     
 LISTIO                                                                                    LISTIO      3092     A     
 LISTIO   *         SET P1 BIT IF DOUBLE WORD RESULT                                       LISTIO      3093     A     
 LISTIO                                                                                    LISTIO      3094     A     
 LISTIO    PLI4     SA5    TYPEFG                                                          LISTIO      3095     A     
 LISTIO             PL     X5,PLI7     IF NOT  DOUBLE WORD                                 LISTIO      3096     A     
 LISTIO             MX2    1                                                               LISTIO      3097     A     
 LISTIO             LX2    1+AP.P1P                                                        LISTIO      3098     A     
 LISTIO             BX1    X2+X1       P1,CA,IH                                            LISTIO      3099     A     
 LISTIO             EQ     PLI7                                                            LISTIO      3100     A     
 LISTIO                                                                                    LISTIO      3101     A     
 LISTIO   *         IH, CA IN HDR + 1 FOR INDEX FUN RMACRO                                 LISTIO      3102     A     
 LISTIO                                                                                    LISTIO      3103     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2107    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO    PLI5     LX3    -AP.IHL                                                         LISTIO      3104     A     
 LISTIO             BX5    -X0*X3      CA IS EXTRACTED                                     LISTIO      3105     A     
 LISTIO             LX5    AP.CAP                                                          LISTIO      3106     A     
 LISTIO             BX1    X5+X1       CA,IH                                               LISTIO      3107     A     
 LISTIO                                                                                    LISTIO      3108     A     
 LISTIO   *         SET CLASS REF BIT                                                      LISTIO      3109     A     
 LISTIO                                                                                    LISTIO      3110     A     
 LISTIO    PLI6     MX2    1                                                               LISTIO      3111     A     
 LISTIO             LX2    1+AP.CRP                                                        LISTIO      3112     A     
 LISTIO             BX1    X2+X1       CR,CA,IH                                            LISTIO      3113     A     
 LISTIO                                                                                    LISTIO      3114     A     
 LISTIO   *         SET IO BIT IF INPUT                                                    LISTIO      3115     A     
 LISTIO                                                                                    LISTIO      3116     A     
 LISTIO    PLI7     SA2    PIOFLAG                                                         LISTIO      3117     A     
 LISTIO             MI     X2,PLI8     IF ITEM USED                                        LISTIO      3118     A     
 LISTIO             SA3    LDFLAG                                                          FCC0789        9     A     
 LISTIO             MX5    1                                                               LISTIO      3119     A     
 LISTIO             MI     X3,PLI7A    IF LIST-DIRECTED I/O                                FCC0789       10     A     
 LISTIO             LX5    1+AP.IOP                                                        LISTIO      3120     A     
 LISTIO             SA3    VFFLAG                                                          FCC2202       50     A     
 LISTIO             NZ     X3,PLI8     IF VAR FMT DONNOT SET DEFINED BIT                   FCC2202       51          I
          -FCC2450
 LISTIO             NZ     X3,PLI7A    SET USE/DEF BITS IF VAR FMT IO                      FCC2450        6     A     
 LISTIO             BX1    X5+X1       IO,P1,CR,CA,IH                                      LISTIO      3121     A     
 LISTIO             EQ     PLI8                                                            FCC0789       11     A     
 LISTIO                                                                                    FCC0789       12     A     
 LISTIO   *         SET USE/DEF BITS IF LIST-DIRECTED INPUT                                FCC0789       13     A     
 LISTIO                                                                                    FCC0789       14     A     
 LISTIO    PLI7A    MX5    2                                                               FCC0789       15     A     
 LISTIO             LX5    2+AP.USEP                                                       FCC0789       16     A     
 LISTIO             BX1    X5+X1                                                           FCC0789       17     A     
 LISTIO                                                                                    LISTIO      3122     A     
 LISTIO    PLI8     ADDWD  IOLST,X1    ADD ENTRY TO TABLE                                  LISTIO      3123     A     
 LISTIO                                                                                    LISTIO      3124     A     
 LISTIO             SA2    SYMORD      RESTORE SYMTAB ORD                                  LISTIO      3125     A     
 LISTIO             EQ     PLI         EXIT                                                LISTIO      3126     A     
 LISTIO                                                                                    LISTIO      3127     A     
 LISTIO    IIR      TITLE  ISSUE IOLST TO RLIST                                            LISTIO      3128     A     
 LISTIO   *         IIR - ISSUE IOLST TO RLIST                                             LISTIO      3129     A     
 LISTIO   *                                                                                LISTIO      3130     A     
 LISTIO   *         WHEN IN OPT=2, ISSUE USE/DEF INFORMATION IN IOLST TO RLIST.            LISTIO      3131     A     
 LISTIO   *                                                                                LISTIO      3132     A     
 LISTIO                                                                                    LISTIO      3133     A     
 LISTIO    IIRA     SA3    PIOBUF                                                          LISTIO      3134     A     
 LISTIO             SA4    O.IOLST                                                         LISTIO      3135     A     
 LISTIO             BX6    X3                                                              LISTIO      3136     A     
 LISTIO             MX7    0                                                               LISTIO      3137     A     
 LISTIO             SA6    X4-1        RESTORE WORD AT (O.IOLST) -1                        LISTIO      3138     A     
 LISTIO             SA7    L.IOLST     CLEAR LENGTH OF PARAMS FLAG                         LISTIO      3139     A     
 LISTIO                                                                                    LISTIO      3140     A     
 LISTIO    IIR      ENTRY. *           ENTRY/EXIT                                          LISTIO      3141     A     
 LISTIO             SA2    =XOPT2                                                          LISTIO      3142     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2108    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             ZR     X2,IIR      EXIT IF NOT OPT=2                                   LISTIO      3143     A     
 LISTIO             SA1    O.IOLST                                                         LISTIO      3144     A     
 LISTIO             SA3    X1-1                                                            LISTIO      3145     A     
 LISTIO             BX6    X3                                                              LISTIO      3146     A     
 LISTIO             MX7    0                                                               LISTIO      3147     A     
 LISTIO             SA6    PIOBUF      SAVE WORD AT (O.IOLST) -1                           LISTIO      3148     A     
 LISTIO             SA7    TINDX       INITIALIZE INDEX TO TABLE                           LISTIO      3149     A     
 LISTIO             SA4    L.IOLST                                                         LISTIO      3150     A     
 LISTIO                                                                                    LISTIO      3151     A     
 LISTIO    IIR1     SA5    TINDX                                                           LISTIO      3152     A     
 LISTIO             IX0    X4-X5       NO. OF  WORDS  IN IOLST                             LISTIO      3153     A     
 LISTIO             ZR     X0,IIRA     IF TABLE EMPTY                                      LISTIO      3154     A     
 LISTIO             SX2    PIOMAX                                                          LISTIO      3155     A     
 LISTIO             IX4    X0-X2       LEN = MIN(DIFF,MAX)                                 LISTIO      3156     A     
 LISTIO             PL     X4,IIR2     IF MORE WORDS IN TABLE THAN MAX                     LISTIO      3157     A     
 LISTIO             BX2    X0                                                              LISTIO      3158     A     
 LISTIO                                                                                    LISTIO      3159     A     
 LISTIO    IIR2     IX6    X5+X2       INCREASE INDEX BY LEN                               LISTIO      3160     A     
 LISTIO             SA3    O.IOLST                                                         LISTIO      3161     A     
 LISTIO             SA6    A5                                                              LISTIO      3162     A     
 LISTIO             IX0    X3+X5       ADDR OF CURRENT FIRST ITEM                          LISTIO      3163     A     
 LISTIO             SB3    -PIO                                                            LISTIO      3164     A     
 LISTIO             LX2    R1.INP                                                          LISTIO      3165     A     
 LISTIO             PX7    B3,X2                                                           LISTIO      3166     A     
 LISTIO             SA1    FMTORD      SYMTAB ORDINAL FOR FORMAT LABEL                     FCC2202       52     A     
 LISTIO             LX1    R1.SOP                                                          FCC2202       53     A     
 LISTIO             BX7    X7+X1       INSERT FORMAT OR ZERO                               FCC2202       54     A     
 LISTIO             SB7    X0-1        ADDR OF HDR WORD                                    LISTIO      3167     A     
 LISTIO             SA7    B7                                                              LISTIO      3168     A     
 LISTIO             MX6    0                                                               FCC2202       55     A     
 LISTIO             SA6    FMTORD      CLEAR FMTORD                                        FCC2202       56     A     
 LISTIO                                                                                    LISTIO      3169     A     
 LISTIO             WRM    B7          OUTPUT IO USE/DEF TABLE TO RLIST                    LISTIO      3170     A     
 LISTIO                                                                                    LISTIO      3171     A     
 LISTIO             SA4    L.IOLST                                                         LISTIO      3172     A     
 LISTIO             EQ     IIR1        CHECK FOR MORE ITEMS                                LISTIO      3173     A     
 LISTIO                                                                                    LISTIO      3174     A     
 LISTIO    ONI      TITLE  ONI - OUTPUT NAMELIST ITEMS                                     LISTIO      3175     A     
 LISTIO   **        ONI - OUTPUT NAMELIST ITEMS                                            LISTIO      3176     A     
 LISTIO   *         IF OPT=2 WHEN A NAMELIST GROUP NAME IS SPECIFIED AS THE FORMAT         LISTIO      3177     A     
 LISTIO   *         THE NAMELIST VARIABLES ASSOCIATED WITH THAT GROUP NAME IS              LISTIO      3178     A     
 LISTIO   *         TRANSFERRED TO THE IOLST TABLE.  A CALL TO SUBROUTINE IIR              LISTIO      3179     A     
 LISTIO   *         WILL RESULT IN OUTPUT OF THE VARIABLES TO RLIST.                       LISTIO      3180     A     
 LISTIO   *         THE NAMELIST VARIABLES WILL HAVE BEEN SET UP IN THE NML TABLE          LISTIO      3181     A     
 LISTIO   *         BY THE NAMELIST PROCESSOR.                                             LISTIO      3182     A     
 LISTIO   *                                                                                LISTIO      3183     A     
 LISTIO   *         ENTRY  (X2) = SYMTAB WORD B OF GROUP NAME                              LISTIO      3184     A     
 LISTIO   *                (B1) = SYMTAB ORD OF GROUP NAME                                 LISTIO      3185     A     
 LISTIO   *                (B5) = 1                                                        LISTIO      3186     A     
 LISTIO   *                                                                                LISTIO      3187     A     
 LISTIO   *         EXIT   (B1) = SYMTAB ORD OF GROUP NAME                                 LISTIO      3188     A     
 LISTIO                                                                                    LISTIO      3189     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2109    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO    ONIA     RJ     IIR         ISSUE IOLST TO RLIST                                LISTIO      3190     A     
 LISTIO             SA3    SYMORD      SYMTAB ORD                                          LISTIO      3191     A     
 LISTIO             SB1    X3          RESTORE B1                                          LISTIO      3192     A     
 LISTIO                                                                                    LISTIO      3193     A     
 LISTIO    ONI      ENTRY. *           ENTRY/EXIT                                          LISTIO      3194     A     
 LISTIO             SA3    =XOPT2                                                          LISTIO      3195     A     
 LISTIO             ZR     X3,ONI      EXIT IF NOT IN OPT=2                                LISTIO      3196     A     
 LISTIO             MX0    -L.DIMP                                                         LISTIO      3197     A     
 LISTIO             LX2    -P.DIMP                                                         LISTIO      3198     A     
 LISTIO             SA1    O.NML                                                           LISTIO      3199     A     
 LISTIO             BX4    -X0*X2      ORDINAL TO NML TABLE                                LISTIO      3200     A     
 LISTIO             ZR     X4,ONI      EXIT, ERROR IN NAMELIST STMT                        LISTIO      3201     A     
 LISTIO             IX3    X1+X4                                                           LISTIO      3202     A     
 LISTIO             SA5    X3          HDR WORD                                            LISTIO      3203     A     
 LISTIO             ZR     X5,ONI      EXIT, NO NAMELIST VARIABLES                         LISTIO      3204     A     
 LISTIO             SX6    B1                                                              LISTIO      3205     A     
 LISTIO             SA6    SYMORD      SAVE TO BE RESTORED AT EXIT                         LISTIO      3206     A     
 LISTIO             IX7    X4-X5       INDEX TO FIRST VARIABLE                             LISTIO      3207     A     
 LISTIO             SX6    X5          LENGTH OF VARIABLES                                 LISTIO      3208     A     
 LISTIO             SA7    TINDX                                                           LISTIO      3209     A     
 LISTIO             SA6    TLEN                                                            LISTIO      3210     A     
 LISTIO                                                                                    LISTIO      3211     A     
 LISTIO             ALLOC  IOLST,X5    ALLOC FOR TRANSFER FROM NML                         LISTIO      3212     A     
 LISTIO                                                                                    LISTIO      3213     A     
 LISTIO             SA2    TINDX       INDEX TO NML TABLE                                  LISTIO      3214     A     
 LISTIO             SA1    IOFLAG                                                          LISTIO      3215     A     
 LISTIO             MX7    0                                                               LISTIO      3216     A     
 LISTIO             SA5    TLEN        NO. OF NAMELIST VARIABLES                           FCC0789       18     A     
 LISTIO             ZR     X1,ONI1     IF NOT INPUT STMT                                   LISTIO      3217     A     
 LISTIO             MX7    1                                                               LISTIO      3218          I
          -FCC0789
 LISTIO             MX7    2                                                               FCC0789       19     A     
 LISTIO             LX7    2+AP.USEP   SHOW USE/DEF                                        FCC0789       20     A     
 LISTIO                                                                                    LISTIO      3219     A     
 LISTIO    ONI1     SA1    L.IOLST                                                         LISTIO      3220     A     
 LISTIO             SA5    TLEN        NO. OF NAMELIST VARIABLES                           LISTIO      3221          I
          -FCC0789
 LISTIO             IX6    X1+X5       UPDATE LENGTH FOR NAMELIST VARIABLES                LISTIO      3222     A     
 LISTIO             SA4    O.NML                                                           LISTIO      3223     A     
 LISTIO             SA6    A1                                                              LISTIO      3224     A     
 LISTIO             IX2    X2+X4       ADDR OF FIRST ENTRY IN NML                          LISTIO      3225     A     
 LISTIO             SA3    O.IOLST                                                         LISTIO      3226     A     
 LISTIO             IX1    X1+X3       ADDR OF FIRST SPACE IN IOLST                        LISTIO      3227     A     
 LISTIO             SB6    X5-1        COUNTER FOR TRANSFER                                LISTIO      3228     A     
 LISTIO                                                                                    LISTIO      3229     A     
 LISTIO    ONI2     SA3    X2+B6       FETCH NML ENTRY                                     LISTIO      3230     A     
 LISTIO             BX6    X7+X3       OR IN IO BIT                                        LISTIO      3231     A     
 LISTIO             SA6    X1+B6       STORE IN IOLST                                      LISTIO      3232     A     
 LISTIO             SB6    B6-B5                                                           LISTIO      3233     A     
 LISTIO             PL     B6,ONI2     IF MORE ITEMS TO TRANSFER                           LISTIO      3234     A     
 LISTIO             EQ     ONIA                                                            LISTIO      3235     A     
 LISTIO                                                                                    LISTIO      3236     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2110    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             TITLE              MACOUT - OUTPUT RLIST MACRO                         LISTIO      3237     A     
 LISTIO   **        MACOUT - OUTPUT I/O MACRO TO RLIST                                     LISTIO      3238     A     
 LISTIO   *         PACKS PARAMETERS STORED IN MACLS1 TO MACLK3 INTO                       LISTIO      3239     A     
 LISTIO   *         RLIST MACRO FORMAT , OUTPUTS MACRO TO RLIST  AND                       LISTIO      3240     A     
 LISTIO   *         AND CLEAR OUT THE AREA FROM MACLS2 - MACLK3                            LISTIO      3241     A     
 LISTIO                                                                                    LISTIO      3242     A     
 LISTIO    MACOUT1  SA1    A3+B5             PACK THE RNUMBERS AND CONS                    LISTIO      3243     A     
 LISTIO             SA2    A1+B5                                                           LISTIO      3244     A     
 LISTIO             SB2    X5                                                              LISTIO      3245     A     
 LISTIO             LX2    B2,X2                                                           LISTIO      3246     A     
 LISTIO             SA3    A2+B5                                                           LISTIO      3247     A     
 LISTIO             SB3    B2+B2                                                           LISTIO      3248     A     
 LISTIO             BX4    X2+X1                                                           LISTIO      3249     A     
 LISTIO             LX3    B3,X3                                                           LISTIO      3250     A     
 LISTIO             BX7    X3+X4                                                           LISTIO      3251     A     
 LISTIO             AX5    18                                                              LISTIO      3252     A     
 LISTIO             SA7    A7+B5                                                           LISTIO      3253     A     
 LISTIO             NZ     X5,MACOUT1        LOOP FOR 3 WORDS                              LISTIO      3254     A     
 LISTIO             SA3    A3+B5             COPY MACLK4                                   LISTIO      3255     A     
 LISTIO             BX7    X3                                                              LISTIO      3256     A     
 LISTIO             SA7    A7+B5                                                           LISTIO      3257     A     
 LISTIO                                                                                    LISTIO      3258     A     
 LISTIO             SB7    B1                                                              LISTIO      3259     A     
 LISTIO             SB1    1                                                               LISTIO      3260     A     
 LISTIO             WRITEW =XF.RLST,MACBUF,B7                                              LISTIO      3261     A     
 LISTIO             SB5    1                                                               LISTIO      3262     A     
 LISTIO             SA5    MACOPC                                                          LISTIO      3263     A     
 LISTIO             ZR     X5,COLAPXX  SKIP IF FIRST                                       LISTIO      3264     A     
 LISTIO             SX6    X5-5                                                            LISTIO      3265     A     
 LISTIO             ZR     X6,COLAPXX  SKIP IF LAST                                        LISTIO      3266     A     
 LISTIO                                                                                    LISTIO      3267     A     
 LISTIO             SA5    NRLN                                                            LISTIO      3268     A     
 LISTIO             BX6    X5          RESULT R NUMBER                                     LISTIO      3269     A     
 LISTIO             SA6    TEMPA                                                           LISTIO      3270     A     
 LISTIO             SX7    X5+B5       NRLN=NRLN+1                                         LISTIO      3271     A     
 LISTIO             SA7    A5                                                              LISTIO      3272     A     
 LISTIO             SA2    MACLP2      FWA                                                 LISTIO      3273     A     
 LISTIO             SA1    MACLP1      ITEM COUNT                                          LISTIO      3274     A     
 LISTIO             LX6    RM.RIL                                                          LISTIO      3275     A     
 LISTIO             BX7    X6+X2                                                           LISTIO      3276     A     
 LISTIO             LX7    RM.RIL                                                          LISTIO      3277     A     
 LISTIO             BX7    X7+X1                                                           LISTIO      3278     A     
 LISTIO             SA7    WWCA                                                            LISTIO      3279     A     
 LISTIO             SA1    MACLK4      TYPE                                                LISTIO      3280     A     
 LISTIO             BX6    X1                                                              LISTIO      3281     A     
 LISTIO             SA6    A7+B5                                                           LISTIO      3282     A     
 LISTIO             WRM    IOAPL       OUTPUT IOAPL MACRO                                  LISTIO      3283     A     
 LISTIO                                                                                    LISTIO      3284     A     
 LISTIO    COLAPXX  SB3    MACLS2                                                          LISTIO      3285     A     
 LISTIO             SB4    A3+B5             LWA+1                                         LISTIO      3286     A     
 LISTIO             MX6    0                                                               LISTIO      3287     A     
 LISTIO   +         SA6    B3                CLEAR OUT MACRO PARAMETER BUFFER              LISTIO      3288     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2111    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
 LISTIO             SB3    B3+B5                                                           LISTIO      3289     A     
 LISTIO             LT     B3,B4,*                                                         LISTIO      3290     A     
 LISTIO             SB5    1                                                               LISTIO      3291     A     
 LISTIO                                                                                    LISTIO      3292     A     
 LISTIO    MACOUT   ENTRY. *                 ** ENTRY/EXIT **                              LISTIO      3293     A     
 LISTIO             SA5    MACOP                                                           LISTIO      3294     A     
 LISTIO             SB7    MACBUF            FWA OF BUFFER                                 LISTIO      3295     A     
 LISTIO             SX0    6                 (4+1)/2 + (6+2)/3 + (4+2)/3                   LISTIO      3296     A     
 LISTIO             SB1    X0+B5                                                           LISTIO      3297     A     
 LISTIO             SB2    X5                                                              LISTIO      3298     A     
 LISTIO             LX0    30                                                              LISTIO      3299     A     
 LISTIO             SA4    NRLN                                                            LISTIO      3300     A     
 LISTIO             BX0    X0+X4                                                           LISTIO      3301     A     
 LISTIO             SB3    -B2                                                             LISTIO      3302     A     
 LISTIO             PX6    B3,X0                                                           LISTIO      3303     A     
 LISTIO             SA6    B7                RMACRO HEADER WORD                            LISTIO      3304     A     
 LISTIO                                                                                    LISTIO      3305     A     
 LISTIO             SA5    SHIFTWD           SHIFT COUNT FOR RNUMBERS AND CONS             LISTIO      3306     A     
 LISTIO             SA1    MACLS1                                                          LISTIO      3307     A     
 LISTIO             SA2    A1+B5                                                           LISTIO      3308     A     
 LISTIO             SA4    A2+B5             SYM3                                          LISTIO      3309     A     
 LISTIO             LX2    30                                                              LISTIO      3310     A     
 LISTIO             SA3    A4+B5                                                           LISTIO      3311     A     
 LISTIO             BX6    X2+X1                                                           LISTIO      3312     A     
 LISTIO             LX3    30                                                              LISTIO      3313     A     
 LISTIO             BX7    X3+X4                                                           LISTIO      3314     A     
 LISTIO             SA6    A6+B5             STORE SYM S                                   LISTIO      3315     A     
 LISTIO             SA7    A6+B5                                                           LISTIO      3316     A     
 LISTIO             EQ     MACOUT1                                                         LISTIO      3317     A     
 LISTIO                                                                                    LISTIO      3318     A     
 LISTIO    SHIFTWD  VFD    6/0,18/18,18/16,18/16                                           LISTIO      3319     A     
 LISTIO                                                                                    LISTIO      3320     A     
 LISTIO             END                                                                    LISTIO      3321     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - LISTIO  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          LISTIO                    3321      3136
          FCC0413                     21        20
          FCC0529                      5         4
          FCC0544                     73        71
          FCC0593                      6         6
          FCC0614                      7         7
          FCC0728                      1         1
          FCC0733                      1         1
          FCC0784                      2         2
          FCC0789                     12        12
          FCC0787                     26        26
          FCC0888                      1         1
          FCC0994                      2         0
          FEAT155B                    18        18
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2112    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN LISTIO  
  
          FCC1068                      6         6
          FCC1088                     10        10
          FCC1286                      4         4
          FCC1252X                    13        13
          FCC1479X                     2         2
          FCC1664X                    12        12
          FCC1670X                    26        26
          F162FTNA                    47        47
          FCC1882                      1         1
          FCCA408                      1         1
          FCC2150                      9         9
          FCC2202                     13        12
          FCC2285                      8         8
          FCC2450                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    *DECK,    ARITH                                                                  ARITH          1     A     
 ARITH              IDENT  ARITH                                                           ARITH          2     A     
 ARITH     ARITH    TITLE  ARITH -     ARITHMETIC STATEMENT PROCESSOR                      ARITH          3     A     
 ARITH    *CALL     SSTCALL                                                                ARITH          4     A     
 ARITH     B=ARITH  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             ARITH          5     A     
 ARITH              SPACE  4                                                               ARITH          6     A     
 ARITH    **        LISTING CONTROLS.                                                      ARITH          7     A     
 ARITH    *                                                                                ARITH          8     A     
 ARITH    *         ALSO SEE AUTOMATIC NOREFS GENERATED FOR NAMES OF *IF* MACROS           ARITH          9     A     
 ARITH    *         WITHIN THE DEFINITION OF THE MACRO *RMACRO*.  THIS DEFINITION          ARITH         10     A     
 ARITH    *         IS LOCATED AT THE BEGINNING OF THREE- AND TWO-BRANCH *IF*              ARITH         11     A     
 ARITH    *         PROCESSING.  SEE CODE AFTER DEFINITION OF THE SYMBOL *IFERR1*.         ARITH         12     A     
 ARITH                                                                                     ARITH         13     A     
 ARITH              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     A     
 ARITH              NOREF  .A                                                              ARITH         15     A     
 ARITH              NOREF  .B                                                              ARITH         16     A     
 ARITH     MACROS   SPACE  4,8                                                             ARITH         17     A     
 ARITH              MACRO  ARLIST,LABEL,LIMIT                                              ARITH         18          I
          -FEAT155F 
 ARITH     .SLIM    SET    LIMIT 100                                                       ARITH         19          I
          -FEAT155F 
 ARITH              SNAP   -O.ARLST,,-ARLPT,1,.SLIM,1,LABEL.ARL                            ARITH         20          I
          -FEAT155F 
 ARITH              ENDIF                                                                  ARITH         21          I
          -FEAT155F 
 ARITH    ARLIST    ENDM                                                                   ARITH         22          I
          -FEAT155F 
 ARITH              MACRO  OPSTACK,LABEL,LIMIT                                             ARITH         23          I
          -FCC0564  -FEAT155F 
 ARITH              IFC    NE, LIMIT                                                       ARITH         24          I
          -FCC0564  -FEAT155F 
 ARITH              SNAP   OPSTACK+1,,-OSPTR,1,LIMIT,1,LABEL.OPS                           ARITH         25          I
          -FCC0564  -FEAT155F 
 ARITH              ELSE                                                                   ARITH         26          I
          -FCC0564  -FEAT155F 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2113    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SNAP   OPSTACK+1,,-OSPTR,1,100,1,LABEL.OPS                             ARITH         27          I
          -FCC0564  -FEAT155F 
 ARITH              ENDIF                                                                  ARITH         28          I
          -FCC0564  -FEAT155F 
 ARITH                                                                                     FCC0564       11          I
          -FEAT155F 
 ARITH              MACRO  OPSTACK,LABEL,LIMIT                                             FCC0564       12          I
          -FEAT155F 
 ARITH     .SLIM    SET    LIMIT 100                                                       FCC0564       13          I
          -FEAT155F 
 ARITH              SNAP   OPSTAK+1,,-OSPTR,1,.SLIM,1,LABEL.OPS                            FCC0564       14          I
          -FEAT155F 
 ARITH    OPSTACK   ENDM                                                                   ARITH         29          I
          -FEAT155F 
 ARITH              MACRO  ARLIST,LBL,LIM                                                  FEAT155F     224     A     
 ARITH     .SLIM    SET    LIM 100                                                         FEAT155F     225     A     
 ARITH     LBL.ARL  SNAP   *O.ARLST,,*ARLPT,,1,.SLIM,1                                     FEAT155F     226     A     
 ARITH     ARLIST   ENDM                                                                   FEAT155F     227     A     
 ARITH     OPSTACK  SPACE  4,8                                                             FEAT155F     228     A     
 ARITH              MACRO  OPSTACK,LBL,LIM                                                 FEAT155F     229     A     
 ARITH     .SLIM    SET    LIM 100                                                         FEAT155F     230     A     
 ARITH     LBL.OPS  SNAP   OPSTAK+1,,*OSPTR,,1,.SLIM,1                                     FEAT155F     231     A     
 ARITH     OPSTACK  ENDM                                                                   FEAT155F     232     A     
 ARITH              SPACE  5                                                               ARITH         30     A     
 ARITH    ************************************************************************         ARITH         31     A     
 ARITH    *                                                                      *         ARITH         32     A     
 ARITH    *                DIAGNOSTIC ISSUANCE MACROS                            *         ARITH         33     A     
 ARITH    *                                                                      *         ARITH         34     A     
 ARITH    *         'IDM'        ISSUE INFORMATIVE DIAGNOSTIC                    *         ARITH         35     A     
 ARITH    *                                                                      *         ARITH         36     A     
 ARITH    *         'USASDM'     ISSUE 'USAS' SPECIFICATION VIOLATION DIAGNOSTIC *         ARITH         37     A     
 ARITH    *                                                                      *         ARITH         38     A     
 ARITH    *         'EERR'       ISSUE FATAL TO EXECUTION DIAGNOSTIC             *         ARITH         39     A     
 ARITH    *                                                                      *         ARITH         40     A     
 ARITH    *         'FCERR'      ISSUE FATAL TO COMPILATION DIAGNOSTIC           *         ARITH         41     A     
 ARITH    *                                                                      *         ARITH         42     A     
 ARITH    ************************************************************************         ARITH         43     A     
 ARITH              SPACE  1                                                               ARITH         44     A     
 ARITH    IDM       MACRO  MSGNUM                                                          ARITH         45     A     
 ARITH              IF     -DEF,IDCOUNT                                                    ARITH         46     A     
 ARITH    IDCOUNT   SET    0                                                               ARITH         47     A     
 ARITH              RMT                                                                    ARITH         48     A     
 ARITH    IDMX      SA1    EPOINT                                                          ARITH         49     A     
 ARITH              SB1    X1+1                                                            ARITH         50     A     
 ARITH    IDM       BSS    1                                                               ARITH         51     A     
 ARITH              SB7    IDMX                                                            ARITH         52     A     
 ARITH              SA1    EPOINT                                                          ARITH         53     A     
 ARITH              SA4    X1+1                                                            ARITH         54     A     
 ARITH              ZR     ERPROI                                                          ARITH         55     A     
 ARITH              RMT                                                                    ARITH         56     A     
 ARITH              ENDIF                                                                  ARITH         57     A     
 ARITH    IDCOUNT   SET    IDCOUNT+1                                                       ARITH         58     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2114    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SB6    MSGNUM                                                          ARITH         59     A     
 ARITH     .T       IFNE   TEST,0                                                          FCC0418        9     A     
 ARITH              SB4    *+2-*P/60D                                                      FCC0418       10     A     
 ARITH              CALL   TEM                                                             FCC0418       11     A     
 ARITH     .T       ENDIF                                                                  FCC0418       12     A     
 ARITH              RJ     IDM                                                             ARITH         60     A     
 ARITH    IDM       ENDM                                                                   ARITH         61     A     
 ARITH              SPACE  2                                                               ARITH         62     A     
 ARITH    USASDM    MACRO  MSGNUM                                                          ARITH         63     A     
 ARITH              IF     -DEF,USASCT                                                     ARITH         64     A     
 ARITH    USASCT    SET    0                                                               ARITH         65     A     
 ARITH    USASER    EQU    ASAER                                                           ARITH         66     A     
 ARITH              RMT                                                                    ARITH         67     A     
 ARITH    USASDMX   SA1    EPOINT                                                          ARITH         68     A     
 ARITH              SB1    X1+1                                                            ARITH         69     A     
 ARITH    USASDM    BSS    1                                                               ARITH         70     A     
 ARITH              SB7    USASDMX                                                         ARITH         71     A     
 ARITH              SA1    EPOINT                                                          ARITH         72     A     
 ARITH              SA4    X1+1                                                            ARITH         73     A     
 ARITH              ZR     USASER                                                          ARITH         74     A     
 ARITH              RMT                                                                    ARITH         75     A     
 ARITH              ENDIF                                                                  ARITH         76     A     
 ARITH    USASCT    SET    USASCT+1                                                        ARITH         77     A     
 ARITH              SB6    MSGNUM                                                          ARITH         78     A     
 ARITH     .T       IFNE   TEST,0                                                          FCC0418       13     A     
 ARITH              SB4    *+2-*P/60D                                                      FCC0418       14     A     
 ARITH              CALL   TEM                                                             FCC0418       15     A     
 ARITH     .T       ENDIF                                                                  FCC0418       16     A     
 ARITH              RJ     USASDM                                                          ARITH         79     A     
 ARITH    USASDM    ENDM                                                                   ARITH         80     A     
 ARITH              SPACE  2                                                               ARITH         81     A     
 ARITH    EERR      MACRO  MSGNUM                                                          ARITH         82     A     
 ARITH              SB6    MSGNUM                                                          ARITH         83     A     
 ARITH    *                                                                                ARITH         84     A     
 ARITH     .T       IFNE   TEST,0                                                          ARITH         85     A     
 ARITH              SB4    ERROUT                                                          ARITH         86     A     
 ARITH              CALL   TEM         TRACE ERROR MESSAGE                                 ARITH         87     A     
 ARITH     .T       ELSE                                                                   ARITH         88     A     
 ARITH              EQ     ERROUT                                                          ARITH         89     A     
 ARITH     .T       ENDIF                                                                  ARITH         90     A     
 ARITH    *                                                                                ARITH         91     A     
 ARITH    EERR      ENDM                                                                   ARITH         92     A     
 ARITH              SPACE  2                                                               ARITH         93     A     
 ARITH    FCERR     MACRO  MSGNUM                                                          ARITH         94     A     
 ARITH              POSTER SEV=FC,NR=MSGNUM,FMT=ELIST,TXT=X1+1                             ARITH         95     A     
 ARITH    FCERR     ENDM                                                                   ARITH         96     A     
 ARITH              SPACE  5                                                               ARITH         97     A     
 ARITH    ***                                                                              ARITH         98     A     
 ARITH    *        E X P O N  -  MACRO                                                     ARITH         99     A     
 ARITH    *                                                                                ARITH        100     A     
 ARITH    *      THIS MACRO IS USED TO MAKE ENTRIES IN THE EXPONENT TABLE.                 ARITH        101     A     
 ARITH    *      THIS TABLE CONSISTS OF ALL POSSIBLE CONFIGURATIONS OF                     ARITH        102     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2115    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    *      EXPONENTIATION.                                                           ARITH        103     A     
 ARITH    *                                                                                ARITH        104     A     
 ARITH     EXPON    MACRO  TYPE,ANS,EXPR                                                   ARITH        105     A     
 ARITH     P1       MICRO  1,1,/EXPR/                                                      ARITH        106     A     
 ARITH     P2       MICRO  4,1,/EXPR/                                                      ARITH        107     A     
 ARITH              IFC    EQ,/ILLEGAL/ANS/,2                                              ARITH        108     A     
 ARITH              VFD    60/0              ILLEGAL ENTRY                                 ARITH        109     A     
 ARITH     A1       DUP    0                                                               ARITH        110     A     
 ARITH     A        SET    0                                                               ARITH        111     A     
 ARITH              IFC    NE,/ANSI/ANS/,1                                                 ARITH        112     A     
 ARITH     A        SET    1                                                               ARITH        113     A     
 ARITH              VFD    4/TYPE,8/A,48/8H"P1"TO"P2".                                     ARITH        114     A     
 ARITH     A1       ENDD                                                                   ARITH        115     A     
 ARITH     EXPON    ENDM                                                                   ARITH        116     A     
 ARITH              SPACE  5                                                               ARITH        117     A     
 ARITH    ***                                                                              ARITH        118     A     
 ARITH    *                R O U N D -- MACRO                                              ARITH        119     A     
 ARITH    *                                                                                ARITH        120     A     
 ARITH    *         THIS MACRO IS USED TO MAKE ENTRIES IN THE ROUNDED OPERATION            ARITH        121     A     
 ARITH    *         TABLE.  THE TABLE WILL CONSIST OF ALL MACROS WHICH MAY BE              ARITH        122     A     
 ARITH    *         SELECTED TO BE ROUNDED AND THE OPERATOR WHICH SELECTS THE              ARITH        123     A     
 ARITH    *         ROUNDED OPTION.                                                        ARITH        124     A     
 ARITH    *                                                                                ARITH        125     A     
 ARITH     ROUNDMAC MACRO                                                                  ARITH        126     A     
 ARITH     A        SET    0                                                               ARITH        127     A     
 ARITH     ROUND    MACRO  OP,MAC,ROUNDMAC                                                 ARITH        128     A     
 ARITH              VFD    2/1,10/1R_OP,18/ROUNDMAC,30/MAC                                 ARITH        129     A     
 ARITH              IFLE   MAC,A,1                                                         ARITH        130     A     
 ARITH               ERR   ROUND TABLE MUST BE IN ASCENDING NORMAL MACRO ORDER             ARITH        131     A     
 ARITH              ENDM                                                                   ARITH        132     A     
 ARITH              ROUNDMAC                                                               ARITH        133     A     
 ARITH              SPACE  5                                                               ARITH        134     A     
 ARITH    ************************************************************************         ARITH        135     A     
 ARITH    *                                                                      *         ARITH        136     A     
 ARITH    *                I N T R I N :   INTRINSIC FUNCTION TABLE ENTRY        *         ARITH        137     A     
 ARITH    *                                                                      *         ARITH        138     A     
 ARITH    ************************************************************************         ARITH        139     A     
 ARITH              SPACE  1                                                               ARITH        140     A     
 ARITH              MACRO  INTRIN,NAMEXXX,TYPE,PARAMS,MACROOP,MODECHAN,RNM,MXTYP           ARITH        141     A     
 ARITH              LOCAL  NPARAMS,NRS                                                     ARITH        142     A     
 ARITH              LOCAL  SP1,SP2,SP3                                                     ARITH        143     A     
 ARITH    NPARAMS   SET    0                                                               ARITH        144     A     
 ARITH    NRS       SET    0                                                               ARITH        145     A     
 ARITH     TYMIC    MICRO  1,,                                                             ARITH        146     A     
 ARITH              COUNT  NPARAMS,NRS,PARAMS                                              ARITH        147     A     
 ARITH    NRS       SET    NRS+1                                                           ARITH        148     A     
 ARITH              IFC    EQ, TYPE DOUBLE ,1                                              ARITH        149     A     
 ARITH    NRS       SET    NRS+1                                                           ARITH        150     A     
 ARITH              IFC    EQ, TYPE COMPLEX ,1                                             ARITH        151     A     
 ARITH    NRS       SET    NRS+1                                                           ARITH        152     A     
 ARITH              IFC    EQ, TYPE ANYDBL ,1                                              ARITH        153     A     
 ARITH    NRS       SET    NRS+1                                                           ARITH        154     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2116    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    NRS       DECMIC NRS                                                             ARITH        155     A     
 ARITH     SP1      SET    P.NAME-P.FUN                                                    ARITH        156     A     
 ARITH     SP2      SET    P.TYP-P.FARG                                                    ARITH        157     A     
 ARITH     SP3      SET    P.FARG-P.INF                                                    ARITH        158     A     
 ARITH              VFD    L.NAME/0H_NAMEXXX,SP1/1,P.FUN/0,L.TYP/TYPE,SP2/"NPARAMS         ARITH        159     A     
 ARITH    ,",SP3/1,P.INF/RNM                                                               ARITH        160     A     
 ARITH     NPAR     IFNE   NPARAMS,0                                                       ARITH        161     A     
 ARITH     .A       SET    6*NPARAMS+6                                                     ARITH        162     A     
 ARITH     .B       SET    60-.A                                                           ARITH        163     A     
 ARITH              VFD    .A/"TYMIC"_00B,.B/0                                             ARITH        164     A     
 ARITH     MACRO    IFC    EQ,/MACROOP//,3                                                 ARITH        165     A     
 ARITH     .N       MICRO  1,8, MD.NAMEXXX                                                 ARITH        166     A     
 ARITH              VFD    1/1,29/".N",30/A_NAMEXXX                                        ARITH        167     A     
 ARITH     MACRO    ELSE   1                                                               ARITH        168     A     
 ARITH              ARMAC  MACROOP,0,"NRS",0                                               ARITH        169     A     
 ARITH     NPAR     ELSE                                                                   ARITH        170     A     
 ARITH     .A       OCTMIC MXTYP+1,2                                                       ARITH        171     A     
 ARITH              DUP    10,1                                                            ARITH        172     A     
 ARITH              VFD    6/".A"_B                                                        ARITH        173     A     
 ARITH              VFD    30/MODECHAN,30/MACROOP                                          ARITH        174     A     
 ARITH              ENDIF                                                                  ARITH        175     A     
 ARITH    INTRIN    ENDM                                                                   ARITH        176     A     
 ARITH              SPACE  5                                                               ARITH        177     A     
 ARITH    ************************************************************************         ARITH        178     A     
 ARITH    *                                                                      *         ARITH        179     A     
 ARITH    *                A R M A C :  GENERATE 'ARITH'S MACRO DESCRIPTOR       *         ARITH        180     A     
 ARITH    *                                                                      *         ARITH        181     A     
 ARITH    ************************************************************************         ARITH        182     A     
 ARITH              SPACE  1                                                               ARITH        183     A     
 ARITH              MACRO  ARMAC,LABEL,OPCODE,NCONS,NRS,NSYMS                              ARITH        184     A     
 ARITH    A         SET    NSYMS+1                                                         ARITH        185     A     
 ARITH     B        SET    A/2                                                             ARITH        186     A     
 ARITH    A         SET    NRS+2                                                           ARITH        187     A     
 ARITH    A         SET    A/3                                                             ARITH        188     A     
 ARITH     B        SET    B+A                                                             ARITH        189     A     
 ARITH    A         SET    NCONS+2                                                         ARITH        190     A     
 ARITH    A         SET    A/3                                                             ARITH        191     A     
 ARITH     NWDS     DECMIC B+A                                                             ARITH        192     A     
 ARITH              IFC    NE, LABEL                                                       ARITH        193     A     
 ARITH    LABEL     VFD    2/1,10/OPCODE,12/"NWDS",12/NCONS,12/NRS,12/NSYMS                ARITH        194     A     
 ARITH              ELSE                                                                   ARITH        195     A     
 ARITH              VFD    2/1,10/OPCODE,12/"NWDS",12/NCONS,12/NRS,12/NSYMS                ARITH        196     A     
 ARITH              ENDIF                                                                  ARITH        197     A     
 ARITH    ARMAC     ENDM                                                                   ARITH        198     A     
 ARITH              SPACE  5                                                               ARITH        199     A     
 ARITH    *CALL     COUNTMC                                                                ARITH        200     A     
 ARITH              SPACE  5                                                               ARITH        201     A     
 ARITH    ***                                                                              ARITH        202     A     
 ARITH    *         SUB -  ADDRESS SUBSTITUTION MACRO                                      ARITH        203     A     
 ARITH    *                COLLECTS ARLIST REFERENCES SO THAT ADDRESS SUBSTITUTION         ARITH        204     A     
 ARITH    *                CAN BE PERFORMED FOR THE BASE OF THE ARLIST BUFFER              ARITH        205     A     
 ARITH                                                                                     ARITH        206     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2117    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     SUB      MACRO                                                                  ARITH        207     A     
 ARITH     A        SET    $+1                                                             ARITH        208     A     
 ARITH     B        SET    *-$/59D                                                         ARITH        209     A     
 ARITH              USE    OPSTAK                                                          ARITH        210     A     
 ARITH              VFD    12/2000B+A,30/,18/B                                             ARITH        211     A     
 ARITH              USE    *                                                               ARITH        212     A     
 ARITH              ENDM                                                                   ARITH        213     A     
 ARITH    *CALL PARSEM                                                                     ARITH        214     A     
 ARITH              TITLE              SYSTEM EQU"S                                        ARITH        215     A     
 ARITH              SPACE  5                                                               ARITH        216     A     
 ARITH              EJECT                                                                  ARITH        217     A     
 ARITH              EJECT                                                                  ARITH        218     A     
 ARITH    *     SYSTEM EQU"S                                                               ARITH        219     A     
 ARITH     RA       EQU       0                                                            ARITH        220     A     
 ARITH     SYM1     EQU       RA+12B    START.ADR.OF SYMTAB                                ARITH        221     A     
 ARITH     DIM1     EQU       RA+17B    ADR.OF DIMEN.INFO.TABLE                            ARITH        222     A     
 ARITH     TYPE     EQU       RA+24B    TYPE CODE OF CURRENT STATEM..                      ARITH        223     A     
 ARITH     SELIST   EQU       RA+32B    ADR.OF NEXT E-LIST ELEMENT TO PROCESS.             ARITH        224     A     
 ARITH     CDCNT    EQU       RA+37B    THE CARD NO.OF THE 1ST CARD OF THIS STATE.         ARITH        225     A     
 ARITH     PROGRAM  EQU    56B                                                             ARITH        226     A     
 ARITH     NRLN     EQU       RA+64B                                                       ARITH        227     A     
 ARITH    *                                                                                ARITH        228     A     
 ARITH    *                                                                                ARITH        229     A     
 ARITH    *                                                                                ARITH        230     A     
 ARITH     EPOINT   EQU       SELIST                                                       ARITH        231     A     
 ARITH     NARN     EQU       NRLN                                                         ARITH        232     A     
 ARITH                                                                                     ARITH        233     A     
 ARITH              NOREF     MACNUM                                                       ARITH        234     A     
 ARITH              SPACE 3                                                                ARITH        235     A     
 ARITH    *     CONSTANT EQU"S                                                             ARITH        236     A     
 ARITH     LOGICAL  EQU    T.LOG                                                           ARITH        237     A     
 ARITH     INTEGER  EQU    T.INT                                                           ARITH        238     A     
 ARITH     REAL     EQU    T.REAL                                                          ARITH        239     A     
 ARITH     DOUBLE   EQU    T.DBL                                                           ARITH        240     A     
 ARITH     COMPLEX  EQU    T.CPLX                                                          ARITH        241     A     
 ARITH     OCTAL    EQU    T.OCT                                                           ARITH        242     A     
 ARITH     ANYSNGL  EQU    7                                                               ARITH        243     A     
 ARITH    *ANYDBL   EQU    10B                                                             ARITH        244     A     
 ARITH     ANY      EQU    11B                                                             ARITH        245     A     
 ARITH    *      SOME OF THE OP CODES AS USED IN OPSTACK WORKS.                            ARITH        246     A     
 ARITH     RMINOC   EQU       27                                                           ARITH        247     A     
 ARITH     RDVDOC   EQU       28                                                           ARITH        248     A     
 ARITH     MLTOP    EQU    18           *                                                  ARITH        249     A     
 ARITH     MLTSOP   EQU    29           */  MULT-SLASH OP                                  ARITH        250     A     
 ARITH     UMOP     EQU    26           U-                                                 ARITH        251     A     
 ARITH     RPOSO    EQU    2            )                                                  ARITH        252     A     
 ARITH     DVDORD   EQU    19           /                                                  ARITH        253     A     
 ARITH     SFLPOC   EQU       30        STATE.FUN.LEFT PARENS OP CODE                      ARITH        254     A     
 ARITH     XFLP     EQU       31        IXFN LP                                            ARITH        255     A     
 ARITH    *      MISC.EQU"S                                                                ARITH        256     A     
 ARITH     MXARGS   EQU       63        MAX.NO.OF ARGS.IN FUNCTION ARG.LIST.               ARITH        257     A     
 ARITH    * - ALLOWED, AND MAX.NO.OF NESTED FUNCTION CALLS.                                ARITH        258     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2118    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     RPLST    EQU    12           CODE SCANNER GIVES TO REPLACEMENT STATES.          ARITH        259     A     
 ARITH     R-OPC    TITLE  RLIST MACRO OPCODES                                             ARITH        260     A     
 ARITH    *         R-LIST MACRO OP CODES                                                  ARITH        261     A     
 ARITH                                                                                     ARITH        262     A     
 ARITH     APLMC    RMEQU  1           APLIST ENTRY                                        ARITH        263     A     
 ARITH     STLMAC   RMEQU  4           IXFN LD                                             ARITH        264     A     
 ARITH     SSSXA    RMEQU  6           IXFN SETX                                           ARITH        265     A     
 ARITH     M.EXM    RMEQU  8           INLINE EXPONENTIAL MACRO                            ARITH        266     A     
 ARITH     M.SFR    RMEQU  9           SAVE FUNCTION RESULT                                ARITH        267     A     
 ARITH                                                                                     ARITH        268     A     
 ARITH     DEFMC    RMEQU  111B        ORDINAL OF 1ST OF 8 REG STORE MACROS FOR            ARITH        269     A     
 ARITH    *                            BASIC EXT CALLS.  LAST 4 ARE USED IF ARG IS         ARITH        270     A     
 ARITH    *                            NOT RESULT OF FUNC (XMIT NOT NECESSARY)             ARITH        271     A     
 ARITH     BEFMC    RMEQU  121B        BASIC EXT FUNC CALL MACRO ORDINAL                   ARITH        272     A     
 ARITH     RJ60MC   RMEQU  122B        60-BIT RJ, NO APLIST                                ARITH        273     A     
 ARITH     GEFMC    RMEQU  124B        GENERAL EXT FUNC CALL MACRO ORDINAL                 ARITH        274     A     
 ARITH     DFRMC    RMEQU  125B        ORDINAL OF 1ST OF 2 REG DEFINITION MACROS           ARITH        275     A     
 ARITH     TSMACC   RMEQU  127B        STORE TO TEMP                                       ARITH        276     A     
 ARITH                                                                                     ARITH        277     A     
 ARITH     DLMACO   RMEQU  131B        DBL LOAD MACRO ORDINAL                              ARITH        278     A     
 ARITH     SLMACO   RMEQU  133B        SINGLE LOAD MACRO ORDINAL                           ARITH        279     A     
 ARITH     XMITOP   RMEQU  135B        TRANSMIT MACRO ORDINAL                              ARITH        280     A     
 ARITH                                                                                     ARITH        281     A     
 ARITH     SETMC    RMEQU  142B        SET R TO CONSTANT                                   ARITH        282     A     
 ARITH     SXTAMC   RMEQU  143B        SET RI = IH + CA + RF                               ARITH        283     A     
 ARITH     P2TON    RMEQU  144B        P2 = (2**K1)*P1  ( P1 INTEGER )                     ARITH        284     A     
 ARITH     MZMC     RMEQU  145B        MXI 0 (ZERO MASK)                                   ARITH        285     A     
 ARITH     MZZMC    RMEQU  146B        DBL ZERO MASK                                       ARITH        286     A     
 ARITH     SDLMC    RMEQU  147B        SINGLE TO DBL LOAD (2ND WD=0)                       ARITH        287     A     
 ARITH     MIZMC    RMEQU  150B        MXI 60                                              ARITH        288     A     
 ARITH     DLTSMC   RMEQU  151B        DBL TO SINGLE LOAD                                  ARITH        289     A     
 ARITH     MCHMCB   RMEQU  152B        ORDINAL BASE OF MODE CHANGE MACROS                  ARITH        290     A     
 ARITH                                                                                     ARITH        291     A     
 ARITH     MAC      RMEQU  157B        BASE ORDINAL OF OPSWTB MACROS                       ARITH        292     A     
 ARITH     NOTMC    RMEQU  161B        .NOT.                                               ARITH        293     A     
 ARITH     LORELM   RMEQU  162B        .LS. (LESS THAN)                                    ARITH        294     A     
 ARITH     HIRELM   RMEQU  211B        .GT. (GREATER THAN)                                 ARITH        295     A     
 ARITH     M.SUB    RMEQU  212B        BASE ORDINAL OF SUBTRACT MACROS                     ARITH        296     A     
 ARITH     MPY.INT  RMEQU  223B        INTEGER MULT. MACRO ORDINAL                         ARITH        297     A     
 ARITH     DIV.INT  RMEQU  227B        INTEGER DIVIDE                                      ARITH        298     A     
 ARITH     DIVCR    RMEQU  241B        COMPLEX / REAL                                      ARITH        299     A     
 ARITH                                                                                     ARITH        300     A     
 ARITH     RSUB     RMEQU  244B        BASE ORDINAL OF ROUND OPERATIONS MACROS             ARITH        301     A     
 ARITH     CRSUB    RMEQU                                                                  ARITH        302     A     
 ARITH     RADD     RMEQU                                                                  ARITH        303     A     
 ARITH     CRADD    RMEQU                                                                  ARITH        304     A     
 ARITH     RMLT     RMEQU                                                                  ARITH        305     A     
 ARITH     CRMLT    RMEQU                                                                  ARITH        306     A     
 ARITH     RDIV     RMEQU                                                                  ARITH        307     A     
 ARITH     CRDIV    RMEQU                                                                  ARITH        308     A     
 ARITH     RRSUB    RMEQU                                                                  ARITH        309     A     
 ARITH     CRRSUB   RMEQU                                                                  ARITH        310     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2119    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     RRDIV    RMEQU                                                                  ARITH        311     A     
 ARITH     CRRDIV   RMEQU                                                                  ARITH        312     A     
 ARITH                                                                                     ARITH        313     A     
 ARITH    *         MARCOX MACRO CODES FOR INLINE FUNCTIONS                                ARITH        314     A     
 ARITH                                                                                     ARITH        315     A     
 ARITH     IFMCB    RMEQU  260B        BASE ORDINAL OF INTRINSIC FUNC MACROS               ARITH        316     A     
 ARITH     M.AND    RMEQU  IFMCB+26B         BOOLEAN AND                                   ARITH        317     A     
 ARITH     M.OR     RMEQU  IFMCB+27B         BOOLEAN OR                                    ARITH        318     A     
 ARITH     M.COMPL  RMEQU  IFMCB+30B         BOOLEAN COMPLEMENT                            ARITH        319     A     
 ARITH     MXMNMC   RMEQU  335B        BASE ORDINAL OF MIN/MAX MACROS                      ARITH        320     A     
 ARITH     M.MOD    RMEQU  267B        MOD(I,J)                                            ARITH        321     A     
 ARITH     M.MODP2  RMEQU  273B        MOD(I,2**K)                                         ARITH        322     A     
 ARITH     M.SHIFT  RMEQU  305B        VARIABLE SHIFT MACRO ORDINAL                        ARITH        323     A     
 ARITH     M.MASK   RMEQU  311B        VARIABLE MASK MACRO ORDINAL                         ARITH        324     A     
 ARITH     M.MASKC  RMEQU  312B        CONSTANT MASK MACRO ORDINAL                         ARITH        325     A     
 ARITH     M.CSHFT  RMEQU  313B        CONSTANT LEFT SHIFT MACRO ORDINAL                   ARITH        326     A     
 ARITH                                                                                     ARITH        327     A     
 ARITH     M.XOR    RMEQU  316B        EXCLUSIVE OR                                        ARITH        328     A     
 ARITH     M.COUNT  RMEQU              COUNT NUMBER OF BITS                                ARITH        329     A     
 ARITH     M.UPE    RMEQU              UNPACK EXPONENT                                     ARITH        330     A     
 ARITH     M.UPC    RMEQU              UNPACK COEFFICIENT                                  ARITH        331     A     
 ARITH     M.PACK   RMEQU              Y=PACK(EXP,COE)                                     ARITH        332     A     
 ARITH     M.RANF   RMEQU              RANF(0)                                             ARITH        333     A     
 ARITH     M.SXKXJ  RMEQU              18-BIT EXTRACT (SXI XK)                             ARITH        334     A     
 ARITH     M.DMULT  RMEQU              DBL MULT                                            ARITH        335     A     
 ARITH     M.NORM   RMEQU              NORMALIZE ARGUMENT                                  ARITH        336     A     
 ARITH     M.NORMC  RMEQU              RETURN VALUE OF NORMALIZATION COUNT                 ARITH        337     A     
 ARITH     M.IFTHEN RMEQU              Y=IF L THEN A ELSE B                                ARITH        338     A     
 ARITH     M.FADD   RMEQU              FLOATING ADD                                        ARITH        339     A     
 ARITH     M.RADD   RMEQU              ROUNDED FLOATING ADD                                ARITH        340     A     
 ARITH     M.FSUB   RMEQU              FLOATING SUBTRACT                                   ARITH        341     A     
 ARITH     M.RSUB   RMEQU              ROUNDED FLOATING SUBTRACT                           ARITH        342     A     
 ARITH     #T       IFNE   TEST,0                                                          FCCT003        9     A     
 ARITH     M.FMULT  RMEQU  417B        FLOATING MULTIPLY                                   FCCT003       10     A     
 ARITH     M.RMULT  RMEQU              ROUNDED FLOATING MULTIPLY                           FCCT003       11     A     
 ARITH     M.FDIV   RMEQU              FLOATING DIVIDE                                     FCCT003       12     A     
 ARITH     M.DADD   RMEQU              FLOATING DOUBLE ADD                                 FCCT003       13     A     
 ARITH     M.DSUB   RMEQU              FLOATING DOUBLE SUBTRACT                            FCCT003       14     A     
 ARITH     M.RNORM  RMEQU              ROUNDED NORMALIZE                                   FCCT003       15     A     
 ARITH     M.DSUMH  RMEQU              QUICK DOUBLE PREC. ADD                              FCCT003       16     A     
 ARITH     M.DDIFH  RMEQU              QUICK DOUBLE PREC. SUBTRACT                         FCCT003       17     A     
 ARITH     M.DDIVH  RMEQU              QUICK DOUBLE PREC. DIVIDE                           FCCT003       18     A     
 ARITH     M.DMULH  RMEQU              QUICK DOUBLE PREC. MULTIPLY                         FCCT003       19     A     
 ARITH     M.BOOL   RMEQU              BOOLEAN (TYPELESS) TRANSMIT                         FCCT003       20     A     
 ARITH     #T       ENDIF                                                                  FCCT003       21     A     
 ARITH              SPACE  3                                                               ARITH        343     A     
 ARITH              SPACE  4,8                                                             ARITH        344     A     
 ARITH    *      ERROR MESSAGE ASSIGNMENTS:                                                ARITH        345     A     
 ARITH     ERMSG52  EQU    76                ECS REF MUST APPEAR AS A STAND ALONE          ARITH        346     A     
 ARITH    *                                  ARGUMENT IN A PARAM LIST                      ARITH        347     A     
 ARITH     ERMSG    EQU       134                                                          ARITH        348     A     
 ARITH     ERMSG0   EQU    ERMSG+0      MORE THAN ONE =SIGN                                ARITH        349     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2120    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     ERMSG1   EQU    ERMSG+1      ILLEGAL USE OF =SIGN                               ARITH        350     A     
 ARITH     ERMSG2   EQU    ERMSG+2      VARIABLE FOLLOWED BY (                             ARITH        351     A     
 ARITH     ERMSG3   EQU    ERMSG+3      NO MATCHING RIGHT PARENS                           ARITH        352     A     
 ARITH     ERMSG4   EQU    ERMSG+4      NO MATCHING LEFT PARENS                            ARITH        353     A     
 ARITH     ERMSG5   EQU       ERMSG4+1  FE: THE OPERATOR INDICATED(-,+,*,1, OR **)         ARITH        354     A     
 ARITH    *            MUST BE FOLLOWED BY A CON, ID, OR (.                                ARITH        355     A     
 ARITH     ERMSG6   EQU       ERMSG5+1  A NAME MAY NOT BE FOLLOWED BY A CONSTANT.          ARITH        356     A     
 ARITH     ERMSG7   EQU    ERMSG+7      MORE THAN 63 ARGUMENTS IN ARG.LIST.                ARITH        357     A     
 ARITH     ERMSG8   EQU       ERMSG7+1  A CONST MAYNT BE FOLOWD BY =, NAME, OR CON         ARITH        358     A     
 ARITH     ERMSG9   EQU    ERMSG+9      OPSTACK FILLED: TOO MANY UNRESOLVED OPERA-         ARITH        359     A     
 ARITH     ERMSG10  EQU    ERMSG+10     LOGICAL OPERAND USED WITH NON-        TORS         ARITH        360     A     
 ARITH    *                                        LOGICAL OPERATORS.                      ARITH        361     A     
 ARITH     ERMSG11  EQU       ERMSG+11  NO MATCHING RT PARENS IN SUBSCRIPT                 ARITH        362     A     
 ARITH     ERMSG13  EQU    ERMSG+13     INFORMATIVE: ARRAY NAME NOT SUBSCRIPTED,           ARITH        363     A     
 ARITH                                       FIRST WORD USED.                              ARITH        364     A     
 ARITH     ERMSG14  EQU       ERMSG+14  NON-EXT FUN.MAY NOT USE FUN.NAME AS AC.ARG         ARITH        365     A     
 ARITH     ERMSG15  EQU       ERMSG+15  ARG.NOT FOLLOWED BY , OR )                         ARITH        366     A     
 ARITH     ERMSG16  EQU       ERMSG+16  THIS FUNC.REF REQUIRES ARG.LIST                    ARITH        367     A     
 ARITH     ERMSG60  EQU    151D        CONSTANT EXCEEDS 2**48-1 FOR * OR /                 FCC0539      152     A     
 ARITH     ERMSG17  EQU       171D      ILLEGAL CALL FORMAT                                ARITH        368     A     
 ARITH     ERMSG18  EQU       ERMSG+18  ARITHS FUN-RES-SAVE TB HAS OVERFLOWED              ARITH        369     A     
 ARITH     ERMSG19  EQU       ERMSG18+1 FE: THE OPERATOR INDICATED (A .NOT. OR A           ARITH        370     A     
 ARITH    *            RELATIONAL) MUST BE FOLLOWED BY A CONSTANT, ID, (, -, OR +.         ARITH        371     A     
 ARITH    ERMSG21  EQU        ERMSG+21  BASIC OR INT FUN WITH INCORRECT ARG CNT            ARITH        372     A     
 ARITH     ERMSG22  EQU       ERMSG+22  ARITH ARLIST BLOK OVERFLOWED. EXPR TOO LNG         ARITH        373     A     
 ARITH     ERMSG23  EQU       ERMSG+23  ASA: FEWER SUBSCRIPTS THAN DIMESIONALITY           ARITH        374     A     
 ARITH     ERMSG24  EQU       ERMSG+24  ILLEGAL I/O ADDRESS                                ARITH        375     A     
 ARITH     ERMSG25  EQU       ERMSG+25  RIGHT PARENS FOLLOWED BY ID, CONST, OR (           ARITH        376     A     
 ARITH     ERMSG26  EQU       ERMSG+26  MORE THAN 1 REL OP IN THIS REL EXPR                ARITH        377     A     
 ARITH     ERMSG27  EQU       ERMSG26+1 FE: THE ELEMENT INDICATED ( A COMMA, =, (,         ARITH        378          I
          -FCC0787
 ARITH    *            .OR., OR .AND.) MUST BE FOLLOWED BY A NAME, CON, (, -, +,           ARITH        379          I
          -FCC0787
 ARITH    *            OR .NOT..                                                           ARITH        380          I
          -FCC0787
 ARITH     ERMSG27  EQU    ERMSG+27    INCORRECT SYNTAX FOLLOWS INDICATED ELEMENT          FCC0787      162     A     
 ARITH     ERMSG28  EQU       ERMSG+28  TOO MANY SUBSCRIPT EXPRESSIONS                     ARITH        381     A     
 ARITH     ERMSG29  EQU       ERMSG+29  NO MATCHING RT PARENS IN ARG LIST                  ARITH        382     A     
 ARITH     ERMSG30  EQU       ERMSG+30  ILLEGAL FORM INVOLVING THE USE OF A COMMA          ARITH        383     A     
 ARITH     ERMSG31  EQU       ERMSG+31  LOGCL AND NON-LOGCL OPDS MAY NOT BE MIXED          ARITH        384     A     
 ARITH     ERMSG32  EQU       ERMSG+32  DIVISION BY CONSTANT 0                             ARITH        385     A     
 ARITH     ERMSG33  EQU       ERMSG+33  CMPX BASE MAY ONLY BE EPONENTIATED BY INTG         ARITH        386     A     
 ARITH     ERMSG34  EQU       ERMSG+34  USE OF THIS PROGRAM,SUBROUTINE,OR BLOCK-           ARITH        387     A     
 ARITH    *            DATA NAME IN AN EXPRESSION.                                         ARITH        388     A     
 ARITH     ERMSG35  EQU       ERMSG34+1 SUBR.NAME REF.BY CALL IS USE OTHERWISE             ARITH        389     A     
 ARITH     ERMSG36  EQU       ERMSG35+1 SUBR REF USES DIFFERENT NO.OF ARGS.                ARITH        390     A     
 ARITH    *  ERMSG37 EQU 306B=198                                                          ARITH        391     A     
 ARITH     ERMSG38  EQU       183       ASA: HOL CON                                       ARITH        392     A     
 ARITH     ERMSG39  EQU       ERMSG38+1 I  :HOL CON AND ARITH OR REL OP                    ARITH        393     A     
 ARITH     ERMSG40  EQU       ERMSG39+1 ASA:NON STD SUB                                    ARITH        394     A     
 ARITH     ERMSG41  EQU       ERMSG40+1 ASA:MASKING EXPR                                   ARITH        395     A     
 ARITH     ERMSG42  EQU       ERMSG41+1 ASA:EXPONENT OPD COMBINATION                       ARITH        396     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2121    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     ERMSG43  EQU       ERMSG42+1 ASA:RELATIONAL AND CPX OPD                         ARITH        397     A     
 ARITH     ERMSG44  EQU       ERMSG43+1 ASA:ARITH OR REL OPD COMBINATION                   ARITH        398     A     
 ARITH     ERMSG45  EQU       ERMSG44+1 ASA:EQUAL SIGN OPD COMBINATION                     ARITH        399     A     
 ARITH     ERMSG46  EQU       ERMSG45+1 ASA:TWO BRANCH IF                                  ARITH        400     A     
 ARITH     ERMSG47  EQU       ERMSG46+1 ASA:COMPLEX EXPR IN IF STATE.                      ARITH        401     A     
 ARITH     ERMSG37  EQU       198       LEFT SIDE OF REPLACEMENT STATE. IS ILLEGAL         ARITH        402     A     
 ARITH     ERMSG49  EQU       203       FE: NAME NOT LEGAL TYPE FOR ANY EXPRESSION         ARITH        403     A     
 ARITH     ERMSG50  EQU       ERMSG49+1 CONST OPD FOR REAL OP O.R. OR INDEF.               ARITH        404     A     
 ARITH     ERMSG51  EQU       70        THIS STATEMENT CONTAINS A CONSTANT ARITHME         ARITH        405     A     
 ARITH    * TIC OPERATION WHICH WILL GIVE AN INDEFINITE OR OUT-OF-RANGE RESULT.            ARITH        406     A     
 ARITH    *ERMSG52  SEE 1ST ENTRY ABOVE                                                    ARITH        407     A     
 ARITH     ERMSG53  EQU       219       .NOT. MUSNT BE PRECDD BY ID, CON, OR ).            ARITH        408     A     
 ARITH     ERMSG54  EQU    215               MASK OUT OF RANGE                             ARITH        409     A     
 ARITH     ERMSG56  EQU    302         SHIFT ARG OUT OF BOUNDS                             ARITH        410     A     
 ARITH     ERMSG55  EQU    146         INF OR BEF CALLED WITH WRONG TYPE                   ARITH        411     A     
 ARITH     ERMSG57  EQU    300               THIS PROGRAM UNIT CALLS ITSELF                ARITH        412     A     
 ARITH     ERMSG58  EQU    303         ASF REDEFINITION                                    ARITH        413     A     
 ARITH     ERMSG59  EQU    318         A**B**C IS NON ANSI                                 ARITH        414     A     
 ARITH     ERMSG61  EQU    322         EXTERNAL IN ARGLIST MUST BE IN EXT STMT             FCC1716X      21     A     
 ARITH     ERMSG.LF EQU    296               BAD ARG TO LOCF                               ARITH        415     A     
 ARITH     ERMSG62  EQU    154         REDEFINITION OF FPS IS NON-ANSI                     FCC1901       35     A     
 ARITH     E328     EQU    328         SAME NAME USED AS FUNCTION AND SUBROUTINE           FCC2307       17     A     
 ARITH              TITLE                                                                  ARITH        416     A     
 ARITH              EJECT                                                                  ARITH        417     A     
 ARITH    *     BSS"S  (NON-COMMON)                                                        ARITH        418     A     
 ARITH    *     SEE DECISIONS FILE RE SIZE OF ARLIST                                       ARITH        419     A     
 ARITH     ARLIST   EQU    0                 SET TO ZERO FOR ADDSUB PURPOSES               ARITH        420     A     
 ARITH              ENTRY  OPSTAK            NEEDED FOR ADDSUB CODE                        ARITH        421     A     
 ARITH     SAVDAN   ENTRY.                   VARIABLE DIMENSION ARRAY NAME FLAG            ARITH        422     A     
 ARITH     CONST    ENTRY.             ENTRIES FOR CONVERTED CONSTANTS                     FCC0787      163     A     
 ARITH              BSS    1                                                               FCC0787      164     A     
 ARITH     IDORDL   ENTRY.                   SYMTAB ORD OF ID NAME                         ARITH        423     A     
 ARITH     NAMFWA   ENTRY.                   ADDRESS OF WORD A OF SYMTAB ENTRY             ARITH        424     A     
 ARITH    EQCOUNT   ENTRY.                   EQUAL SIGN COUNTER CELL                       ARITH        425     A     
 ARITH    *                               NAME IN SYMTAB.                                  ARITH        426     A     
 ARITH     NCA      ENTRY.                   NEW CONSTANT ADDEND                           ARITH        427     A     
 ARITH     NCAD     ENTRY.             CA FOR DODEF                                        ARITH        428     A     
 ARITH     NRFD     ENTRY.             RF FOR DODEF                                        ARITH        429     A     
 ARITH     OP       ENTRY.                   HOLDS CURRENT ELIST OP                        ARITH        430     A     
 ARITH     ARLST    BSS    1            FWA FOR BUFFER FLUSHING                            ARITH        431     A     
 ARITH    *     PARAMS HOLDS PARAMS FOR CURRENTLY FORMINE MACRO.  MAX NO PARAME-           ARITH        432     A     
 ARITH    *  TERS NOW BEING USED IS 6 + 4 SAFETY BUFFER.                                   ARITH        433     A     
 ARITH    PARAMS    BSS    10+4                                                            ARITH        434     A     
 ARITH     RL1      BSSZ   1                                                               ARITH        435     A     
 ARITH     RL2      BSS    1  ARLIST). (  11   11 LAST           11     11  11             ARITH        436     A     
 ARITH     SMACD    BSS    1    11  ).  SAVES MACRO CODE DURING MOP.                       ARITH        437     A     
 ARITH     SVRL2    BSS       1         SAVE RL2                                           ARITH        438     A     
 ARITH     IDORDLTS BSS    2                 HOLDS ORDINAL FOR EQUIV VARIABLE              ARITH        439     A     
 ARITH     CRNTOP   BSS    1                 CURRENT OPERATOR                              ARITH        440     A     
 ARITH     FRLW     BSSZ      MXARGS+6  PTS TO 1ST ARLIST WD OF FUNC SEQ                   ARITH        441     A     
 ARITH     FNAD     EQU       FRLW+1    FUN.ADR.IN SYMTAB                                  ARITH        442     A     
 ARITH     ACNT     EQU       FNAD+1    ARG.CNT=NO.OF ARGS SCANNED                         ARITH        443     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2122    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              ENTRY  STAPLC                                                          ARITH        444     A     
 ARITH     STAPLC   EQU    ACNT+1            STAPL CHAIN POINTER                           ARITH        445     A     
 ARITH     SSFRSTB  EQU    STAPLC+1          SAVED SFRSTB                                  ARITH        446     A     
 ARITH     RNTBC    EQU       SSFRSTB+1                                                    ARITH        447     A     
 ARITH     RNTB     EQU       RNTBC+1   R-NAME TBL.HOLDS NAMES OF RESULT REGS.HOL-         ARITH        448     A     
 ARITH    *     -DING THE ARGUMENTS FOR INTRINSIC FUNCS.                                   ARITH        449     A     
 ARITH    *     TWO WORDS FOR DBL, CPX ARGS                                                ARITH        450     A     
 ARITH    *     FORMAT OF FRSTB ENTRIES: B58=1 IF DBL LENGTH SAVE                          ARITH        451     A     
 ARITH    *                              B33-16=TEMP STO ORD (STORD)                       ARITH        452     A     
 ARITH    *                              B15-0 =NAME OF RESULT SAVED                       ARITH        453     A     
 ARITH     FRSTB    BSS       MXFRSTB   FUNC RESULTS SAVED TBL (EXTERNALS)                 ARITH        454     A     
 ARITH     SSSFRSTB BSS    1           SAVE SSFRSTB                                        FCC0623        8     A     
 ARITH     CONST    BSS       1                                                            ARITH        455          I
          -FCC0787
 ARITH     FRN      BSS       1                                                            ARITH        456     A     
 ARITH     FNTYP    BSS       1         FUN.TYPE                                           ARITH        457     A     
 ARITH     TS1      BSS       3+5       LEVEL A TEMP STO. USED BY NON-SUBROUTINES          ARITH        458     A     
 ARITH     LBTS     BSS       3+5       LEVEL B. USED BY 1ST LEVEL SUBROUTINES.            ARITH        459     A     
 ARITH     OPDTYP   BSS       1         OPERAND TYPE. NEEDED FOR RELATIONAL OPS.           ARITH        460     A     
 ARITH     TYPEWD   BSS    1            HOLDS TYPE OF RESULT CODE                          ARITH        461     A     
 ARITH     CA       BSS    1            CONSTANT ADDEND FOR A SUBSCRIPT                    ARITH        462     A     
 ARITH     NAME     BSS    2            THE SYMTAB ENTRY FOR THIS NAME                     ARITH        463     A     
 ARITH     DIMINF   BSSZ   1                 DIMENSION INFO FOR ARRAY                      ARITH        464     A     
 ARITH     ARORD    BSSZ   1                 ORDINAL OF ARRAY                              ARITH        465     A     
 ARITH     SDIMIN   BSS    1                                                               ARITH        466     A     
 ARITH     TYADR    DATA   0                 POINTER TO ARGUMENT TYPES WORD                ARITH        467     A     
 ARITH     SARORD   BSS    1                                                               ARITH        468     A     
 ARITH     SPARLEV  BSS    1           SUBSCRIPT-PAREN LEVEL                               FCC0394        5     A     
 ARITH    SAVELEFT  BSS    1               SYMBOL TABLE ORDINAL OF VARIABLE ON             ARITH        469     A     
 ARITH                                       THE LEFT-HAND SIDE OF A REPLACEMENT           ARITH        470     A     
 ARITH                                       STATEMENT.                                    ARITH        471     A     
 ARITH     EXPFNE   BSS       1         HOLDS THE NAME OF THE CURRENT EXPONENT FUN         ARITH        472     A     
 ARITH     EXRL1    BSS       1         HOLDS RL1 AFTER ** POPPED                          ARITH        473     A     
 ARITH     EXRL2    BSS       1               RL2                                          ARITH        474     A     
 ARITH     VCA      BSS       1                                                            ARITH        475     A     
 ARITH     MCOPDA   BSS       1         MODE-CHANGE-OPERAND ADDRESS (MODCH)                ARITH        476     A     
 ARITH     MCTYP    BSS       1         MODE-CHANGE TYPE                                   ARITH        477     A     
 ARITH     MCHTS    BSS       2         MODCH TEMP.STO.                                    ARITH        478     A     
 ARITH     FMADR    BSS       2         FINAL-MACRO ADR                                    ARITH        479     A     
 ARITH     RNCNT    BSS       1                                                            ARITH        480     A     
 ARITH     EXPRIA   BSS       1         EXPRESSION RESULT INSTRUCTION ADDRESS.             ARITH        481     A     
 ARITH     ARN      BSS       1                                                            ARITH        482     A     
 ARITH     EXPCON   BSS    1           TEMP CELL USED IN EXPON PROCESSING                  ARITH        483     A     
 ARITH     FFRTSTS  BSS       1         FFRTS T.S.(SAVES NARN)                             ARITH        484     A     
 ARITH     ARGP1TS  BSS       6+2       ARP1RT TEMP STO                                    ARITH        485     A     
 ARITH     STAPL    BSS    1                 TEMPORARY FOR SAVING STAPLC                   ARITH        486     A     
 ARITH     EXPSTB   BSS       1                                                            ARITH        487     A     
 ARITH     EXPNSF   BSS       1         HOLDS SFRSTB AT START OF ** ARG LIST               ARITH        488     A     
 ARITH     NSFR     BSS       1         <0 IF DOESNT HOLD SFRSTB AT START OF BASE-         ARITH        489     A     
 ARITH     RNFIB    BSS       1         R NAME OF 1ST INSTR IN START OF BASE OF  -         ARITH        490     A     
 ARITH     MACDES   BSS    1           HOLDS SHIFT/MASK MACRO DESCRIPTOR                   ARITH        491     A     
 ARITH    *                                   EXTERNAL **.                                 ARITH        492     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2123    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    *                                                            OF **.              ARITH        493     A     
 ARITH              USE    OPSTAK       ENSURE THAT VFD PRECEDES BLOCK                     ARITH        494     A     
 ARITH     OPSTAK   VFD    12/2004B,48/0          EOS OPERATOR                             ARITH        495     A     
 ARITH              USE    *                                                               ARITH        496     A     
 ARITH              RMT                                                                    ARITH        497     A     
 ARITH              USE    OPSTAK                                                          ARITH        498     A     
 ARITH              BSSZ   OPSTAK+MXOSE-*    ALLOCATE REMAINDER OF OPSTAK SPACE            ARITH        499     A     
 ARITH              USE    *                                                               ARITH        500     A     
 ARITH              RMT                                                                    ARITH        501     A     
 ARITH    *     BSSZ"S                                                                     ARITH        502     A     
 ARITH     FNDPF    BSSZ      1         =0 IF NOT A GPTU CALL ON FNDOP                     ARITH        503          I
          -FCC0418
 ARITH     EQFLG    BSSZ   1            =0 IF NO =SIGN YET                                 ARITH        504     A     
 ARITH     ROFG     BSSZ      1         REVERSE OPD.FLG.IS NEGATIVE IF RL,S RVRSD          ARITH        505     A     
 ARITH     LEFRN    BSSZ      1         =LAST EXTERNAL FUNC RESULT NAME, OK ZERO -         ARITH        506     A     
 ARITH    *     - IF NONE.  B58=1 IF DBL LENGTH RESULT.                                    ARITH        507     A     
 ARITH     SFRSTB   BSSZ      1         SIZE OF FRSTB                                      ARITH        508     A     
 ARITH     OSPTR    BSSZ      1         OPSTAK POINTER=NO.OF WDS IN OPSTAK                 ARITH        509     A     
 ARITH     CC       BSSZ   1            COMMA COUNT                                        ARITH        510     A     
 ARITH     IXFNFG   BSSZ      1         IXFN-ROUTINE FLAG=0 IF NOT IN IXFN MODE            ARITH        511     A     
 ARITH     ITFFG    BSSZ      1                                                            ARITH        512     A     
 ARITH     RNMFG    BSSZ      1         =0 IF THIS INTR FUN MACRO ISNT RNM-OP TYPE         ARITH        513     A     
 ARITH     EQPO5F   BSSZ      1         FLAG TO AVOID MORE  THAN 1 XMIT FOR =,S            ARITH        514     A     
 ARITH     OCTHO    BSSZ   1           =0 IF A REPLACED ELEMENT IS NOT OF O OR H M         ARITH        515     A     
 ARITH              TITLE  MACRO DESCRIPTOR WORDS                                          ARITH        516     A     
 ARITH    SETMAC    ARMAC  SETMC,1,1,0       SET RI=IN                                     ARITH        517     A     
 ARITH    DLMAC     ARMAC  DLMACO,2,3,1      DOUBLE LOAD MACRO                             ARITH        518     A     
 ARITH    DZRMD     ARMAC  MZZMC,0,2,0                                                     ARITH        519     A     
 ARITH    ZRMD      ARMAC  MZMC,0,1,0        FMA P1,0      (FORM MASK OF 0)                ARITH        520     A     
 ARITH    SDLMD     ARMAC  SDLMC,1,2,1                                                     ARITH        521     A     
 ARITH    MZMD      ARMAC  MIZMC,0,1,0       FMA P1,60  (FORM MASK OF 60, -0)              ARITH        522     A     
 ARITH    SLDMAC    ARMAC  SLMACO,1,2,1      SINGLE LOAD MACRO                             ARITH        523     A     
 ARITH     RJ60MD   ARMAC  RJ60MC,1,0,1      60-BIT RJ MACRO, NO APLIST                    ARITH        524     A     
 ARITH              SPACE  1                                                               ARITH        525     A     
 ARITH    *              DEFINITION/REGISTER STORE MACROS                        *         ARITH        526     A     
 ARITH              SPACE  1                                                               ARITH        527     A     
 ARITH    DEFMD     ARMAC  DEFMC+0,0,1,0     DEFINE X1=RI                                  ARITH        528     A     
 ARITH              ARMAC  DEFMC+1,0,1,0     DEFINE X3=RI                                  ARITH        529     A     
 ARITH              ARMAC  DEFMC+2,0,1,0     DEFINE X2=RI                                  ARITH        530     A     
 ARITH              ARMAC  DEFMC+3,0,1,0     DEFINE X4=RI                                  ARITH        531     A     
 ARITH              ARMAC  DEFMC+4,0,1,0     REGISTER STORE X1=P1 (NO TRANSMIT)            ARITH        532     A     
 ARITH              ARMAC  DEFMC+5,0,1,0     REGISTER STORE X3=P1 (NO TRANSMIT)            ARITH        533     A     
 ARITH              ARMAC  DEFMC+6,0,1,0     REGISTER STORE X2=P1 (NO TRANSMIT)            ARITH        534     A     
 ARITH              ARMAC  DEFMC+7,0,1,0     REGISTER STORE X4=P1 (NO TRANSMIT)            ARITH        535     A     
 ARITH    DFRMD     ARMAC  DFRMC+0,0,1,0     DEFINE X6=RI                                  ARITH        536     A     
 ARITH              ARMAC  DFRMC+1,0,1,0     DEFINE X7=RI                                  ARITH        537     A     
 ARITH              SPACE  1                                                               ARITH        538     A     
 ARITH    XMIT      ARMAC  XMITOP+0,0,2,0  SINGLE PRECISION TRANSMIT                       ARITH        539     A     
 ARITH              ARMAC  XMITOP+1,0,4,0  DOUBLE PRECISION TRANSMIT                       ARITH        540     A     
 ARITH              SPACE  1                                                               ARITH        541     A     
 ARITH     GEFMD    ARMAC  GEFMC,2,0,2       GENERAL EXTERNAL FUNCTION MACRO               ARITH        542     A     
 ARITH                                       DESCRIPTOR ('GEFMD' PARAMETERS:               ARITH        543     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2124    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH                                       'IH' OF FUNCTION, 'IH' OF APLIST)             ARITH        544     A     
 ARITH              SPACE  1                                                               ARITH        545     A     
 ARITH    BEFMD     ARMAC  BEFMC,0,0,1       BASIC EXTERNAL FUNCTION MACRO                 ARITH        546     A     
 ARITH                                                                                     ARITH        547     A     
 ARITH     APLMD    ARMAC  APLMC,1,0,0 APLIST MACRO DESCRIPTOR                             ARITH        548     A     
 ARITH              SPACE  1                                                               ARITH        549     A     
 ARITH    TSMAC     ARMAC  TSMACC,1,1,1    TEMPORARY STORE MACRO                           ARITH        550     A     
 ARITH                                                                                     ARITH        551     A     
 ARITH     EXPIN    ARMAC  M.EXM,2,2,0       INLINE EXPONENTIAL EVALUATION MACRO           ARITH        552     A     
 ARITH                                                                                     ARITH        553     A     
 ARITH    *                                                                                ARITH        554     A     
 ARITH    *         OTHER CONSTANT DATA                                                    ARITH        555     A     
 ARITH     JNEXTE   EQ        NEXTE                                                        ARITH        556     A     
 ARITH    *                                                                                ARITH        557     A     
 ARITH    *     OPSTACK CODES:                                                             ARITH        558     A     
 ARITH    *                                                                                ARITH        559     A     
 ARITH     MLTEOP   VFD       2/1,10/MLTOP,48/7   *                                        ARITH        560     A     
 ARITH     UMIOP    VFD    2/1,10/UMOP,48/6       U-                                       ARITH        561     A     
 ARITH     INTEDVD  VFD       2/1,10/DVDORD,48/7  INT DVD FOR =* HEIRARCHY                 ARITH        562     A     
 ARITH     MLTDOP   VFD    2/1,10/MLTSOP,48/9     */                                       ARITH        563     A     
 ARITH     LPSUB    VFD    2/1,10/22,48/0         (S                                       ARITH        564     A     
 ARITH     ARGLP    VFD       2/1,10/21,48/0      (A                                       ARITH        565     A     
 ARITH     CMASUB   VFD    2/1,10/23,48/1,2/1,10/24,48/1    ,S1 AND ,S2                    ARITH        566     A     
 ARITH     ARGCMA   VFD    2/1,10/25,48/1         ,A                                       ARITH        567     A     
 ARITH     RMIOP    VFD       2/1,10/RMINOC,48/6                                           ARITH        568     A     
 ARITH     SUBRLP   VFD       2/1,10/32,48/0  (SUBR ARG LIST                               ARITH        569     A     
 ARITH              EJECT                                                                  ARITH        570     A     
 ARITH    ***                                                                              ARITH        571     A     
 ARITH    *         XPNMT:HOLDS THE NAMES OF THE EXPONENT FUNCTIONS FOR CALL BY            ARITH        572     A     
 ARITH    *     NAME IN ORDER OF LOW BASE FIRST, THEN LOW POWER FIRST.                     ARITH        573     A     
 ARITH    *         CALL BY VALUE NAME IS OBTAINED BY ADDING -.- TO END OF NAME.           ARITH        574     A     
 ARITH    *     THIS IS DONE BY THE END PROC FOR ALL NAMES IN SYMTAB WITH BASIC            ARITH        575     A     
 ARITH    *     EXTERNAL FLAG.                                                             ARITH        576     A     
 ARITH    *     AN ENTRY WITH B48 NON-ZERO IS A NON-ASA COMBINATION.                       ARITH        577     A     
 ARITH    *                                                                                ARITH        578     A     
 ARITH                                                                                     ARITH        579     A     
 ARITH     TYPEXT   EQU    P.TYP-P.EXT                                                     ARITH        580     A     
 ARITH     EXTARG   EQU    P.EXT-P.FARG      WORD B BITS SET FOR EXP FUN                   ARITH        581     A     
 ARITH     WB.EXP   VFD    L.TYP/T.CGS,TYPEXT/1,EXTARG/2,P.FARG/0                          ARITH        582     A     
 ARITH                                                                                     ARITH        583     A     
 ARITH     XPNMT    EXPON  INTEGER,ANSI,I**J                                               ARITH        584     A     
 ARITH              EXPON  REAL,NONANSI,I**X                                               ARITH        585     A     
 ARITH              EXPON  DOUBLE,NONANSI,I**D                                             ARITH        586     A     
 ARITH              EXPON  COMPLEX,NONANSI,I**Z                                            ARITH        587     A     
 ARITH              EXPON  REAL,ANSI,X**I                                                  ARITH        588     A     
 ARITH              EXPON  REAL,ANSI,X**Y                                                  ARITH        589     A     
 ARITH              EXPON  DOUBLE,ANSI,X**D                                                ARITH        590     A     
 ARITH              EXPON  COMPLEX,NONANSI,X**Z                                            ARITH        591     A     
 ARITH              EXPON  DOUBLE,ANSI,D**I                                                ARITH        592     A     
 ARITH              EXPON  DOUBLE,ANSI,D**X                                                ARITH        593     A     
 ARITH              EXPON  DOUBLE,ANSI,D**D                                                ARITH        594     A     
 ARITH              EXPON  COMPLEX,NONANSI,D**Z                                            ARITH        595     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2125    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              EXPON  COMPLEX,ANSI,Z**I                                               ARITH        596     A     
 ARITH              EXPON  COMPLEX,ILLEGAL,C**R                                            ARITH        597     A     
 ARITH              EXPON  COMPLEX,ILLEGAL,C**D                                            ARITH        598     A     
 ARITH              EXPON  COMPLEX,ILLEGAL,C**C                                            ARITH        599     A     
 ARITH    *     END OF XPNMT (ALWAYS 16 WDS LONG)                                          ARITH        600     A     
 ARITH    *                                                                                ARITH        601     A     
 ARITH     ROUNDTBL ROUND  -,MAC+27,RSUB     REAL SUBTRACT                                 ARITH        602     A     
 ARITH              ROUND  -,MAC+30,CRSUB    COMPLEX SUBTRACT                              ARITH        603     A     
 ARITH              ROUND  +,MAC+31,RADD     REALL ADD                                     ARITH        604     A     
 ARITH              ROUND  +,MAC+34,CRADD    COMPLEX ADD                                   ARITH        605     A     
 ARITH              ROUND  *,MAC+35,RMLT     REAL MULTIPLY                                 ARITH        606     A     
 ARITH              ROUND  *,MAC+38,CRMLT    COMPLEX MULTIPLY                              ARITH        607     A     
 ARITH              ROUND  /,MAC+39,RDIV     REAL DIVIDE                                   ARITH        608     A     
 ARITH              ROUND  /,MAC+42,CRDIV    COMPLEX DIVIDE                                ARITH        609     A     
 ARITH              ROUND  -,MAC+45,RRSUB    REAL REVERSE SUBTRACT                         ARITH        610     A     
 ARITH              ROUND  -,MAC+48,CRRSUB   COMPLEX REVERSE SUBTRACT                      ARITH        611     A     
 ARITH              ROUND  /,MAC+49,RRDIV    REAL REVERSE DIVIDE                           ARITH        612     A     
 ARITH              ROUND  /,MAC+52,CRRDIV   COMPLEX REVERSE DIVIDE                        ARITH        613     A     
 ARITH              DATA   -1                END OF TABLE                                  ARITH        614     A     
 ARITH              TITLE  INTRINSIC FUNCTION TABLE AND MACROS                             ARITH        615     A     
 ARITH    **        MAX/MIN INTRINSIC FUNCTION MACRO DESCRIPTORS                           ARITH        616     A     
 ARITH                                                                                     ARITH        617     A     
 ARITH    MXINT     ARMAC  MXMNMC+0,0,3,0                                                  ARITH        618     A     
 ARITH    MXREL     ARMAC  MXMNMC+1,0,3,0                                                  ARITH        619     A     
 ARITH    MXDBL     ARMAC  MXMNMC+2,0,6,0                                                  ARITH        620     A     
 ARITH    MNINT     ARMAC  MXMNMC+3,0,3,0                                                  ARITH        621     A     
 ARITH    MNREL     ARMAC  MXMNMC+4,0,3,0                                                  ARITH        622     A     
 ARITH    MNDBL     ARMAC  MXMNMC+5,0,6,0                                                  ARITH        623     A     
 ARITH              SPACE  1                                                               ARITH        624     A     
 ARITH    INTREL    ARMAC  MCHMCB+0,0,2,0                                                  ARITH        625     A     
 ARITH    RELINT    ARMAC  MCHMCB+2,0,2,0                                                  ARITH        626     A     
 ARITH    NCHSGL    DATA   -1                                                              ARITH        627     A     
 ARITH    NCHDBL    EQU    NCHSGL                                                          ARITH        628     A     
 ARITH                                                                                     ARITH        629     A     
 ARITH    *         ARLIST DESCRIPTORS FOR SOME SPECIAL INLINE FUNCTIONS                   ARITH        630     A     
 ARITH                                                                                     ARITH        631     A     
 ARITH     MD.LOCF  EQU    0                 NO MACRO DESCRIPTOR                           ARITH        632     A     
 ARITH     MD.MOD   ARMAC  M.MOD,0,3,0                                                     ARITH        633     A     
 ARITH     MD.MODP2 ARMAC  M.MODP2,1,2,0                                                   ARITH        634     A     
 ARITH     MD.SHIFT ARMAC  M.SHIFT,0,3,0     VARIABLE SHIFT                                ARITH        635     A     
 ARITH     MD.COMPL ARMAC  M.COMPL,0,2,0     BOOLEAN COMPLEMENT                            ARITH        636     A     
 ARITH     MD.MASK  ARMAC  M.MASK,0,2,0      VARIABLE MASK                                 ARITH        637     A     
 ARITH     MD.MASKC ARMAC  M.MASKC,1,1,0     CONSTANT MASK                                 ARITH        638     A     
 ARITH                                                                                     ARITH        639     A     
 ARITH     MD.CSFT  ARMAC  M.CSHFT,1,2,0     CONSTANT LEFT SHIFT                           ARITH        640     A     
 ARITH              ARMAC  M.CSHFT+1,1,2,0     CONSTANT RIGHT SHIFT                        ARITH        641     A     
 ARITH     MD.RANF  ARMAC  M.RANF,0,1,1      RANF MACRO DESCRIPTOR                         ARITH        642     A     
 ARITH                                                                                     ARITH        643     A     
 ARITH    *         VARIABLE ARG INTRINSIC FUNCTION MACRO DESCRIPTORS                      ARITH        644     A     
 ARITH                                                                                     ARITH        645     A     
 ARITH     MD.AND   ARMAC  M.AND,0,3,0       BOOLEAN AND                                   ARITH        646     A     
 ARITH     MD.OR    ARMAC  M.OR,0,3,0        BOOLEAN OR                                    ARITH        647     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2126    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     MD.XOR   ARMAC  M.XOR,0,3,0       EXCLUSIVE OR                                  ARITH        648     A     
 ARITH              EJECT                                                                  ARITH        649     A     
 ARITH    ***                                                                              ARITH        650     A     
 ARITH    *         INTFTB - INTRINSIC FUNCTION TABLE                                      ARITH        651     A     
 ARITH    *                                                                                ARITH        652     A     
 ARITH    *         FORMAT:                                                                ARITH        653     A     
 ARITH    *                WORDS 1 AND 2 - WORDS A AND B OF SYMBOL TABLE ENTRY             ARITH        654     A     
 ARITH    *                WORD 3 -- ARGUMENT TYPE WORD (TYP N = ACTUAL TYPE+1 ) *         ARITH        655     A     
 ARITH    *                   VFD    6/TYP1,6/TYP2,...,6/TYP10                   *         ARITH        656     A     
 ARITH    *                WORD 4 - "ARLIST" MACOUT DESCRIPTOR OR FLAG AND                 ARITH        657     A     
 ARITH    *                POINTER TO SUCH IF FUNCTION IS SPECIAL CASED IN ARGP1RT         ARITH        658     A     
 ARITH    *                                                                                ARITH        659     A     
 ARITH              SPACE  1                                                               ARITH        660     A     
 ARITH    INTFTB    BSS    0               BEGINNING OF INTRINSIC TABLE                    ARITH        661     A     
 ARITH    ABS       INTRIN REAL,(REAL),IFMCB+00                                            ARITH        662     A     
 ARITH    IABS      INTRIN INTEGER,(INTEGER),IFMCB+00                                      ARITH        663     A     
 ARITH    DABS      INTRIN DOUBLE,(DOUBLE),IFMCB+02                                        ARITH        664     A     
 ARITH    AINT      INTRIN REAL,(REAL),IFMCB+03                                            ARITH        665     A     
 ARITH    INT       INTRIN INTEGER,(REAL),IFMCB+04                                         ARITH        666     A     
 ARITH    IDINT     INTRIN INTEGER,(DOUBLE),IFMCB+05                                       ARITH        667     A     
 ARITH    AMOD      INTRIN REAL,(REAL,REAL),IFMCB+06                                       ARITH        668     A     
 ARITH    MOD       INTRIN INTEGER,(INTEGER,INTEGER)                                       ARITH        669     A     
 ARITH    FLOAT     INTRIN REAL,(INTEGER),IFMCB+08                                         ARITH        670     A     
 ARITH    IFIX      INTRIN INTEGER,(REAL),IFMCB+09                                         ARITH        671     A     
 ARITH    SIGN      INTRIN REAL,(REAL,REAL),IFMCB+10                                       ARITH        672     A     
 ARITH    ISIGN     INTRIN INTEGER,(INTEGER,INTEGER),IFMCB+10                              ARITH        673     A     
 ARITH    DSIGN     INTRIN DOUBLE,(DOUBLE,DOUBLE),IFMCB+12                                 ARITH        674     A     
 ARITH    DIM       INTRIN REAL,(REAL,REAL),IFMCB+13                                       ARITH        675     A     
 ARITH    IDIM      INTRIN INTEGER,(INTEGER,INTEGER),IFMCB+14                              ARITH        676     A     
 ARITH    SNGL      INTRIN REAL,(DOUBLE),IFMCB+15,RENAME                                   ARITH        677     A     
 ARITH    REAL      INTRIN REAL,(COMPLEX),IFMCB+16,RENAME                                  ARITH        678     A     
 ARITH    AIMAG     INTRIN REAL,(COMPLEX),IFMCB+17,RENAME                                  ARITH        679     A     
 ARITH    DBLE      INTRIN DOUBLE,(REAL),IFMCB+18,RENAME                                   ARITH        680     A     
 ARITH    CMPLX     INTRIN COMPLEX,(REAL,REAL),IFMCB+19,RENAME                             ARITH        681     A     
 ARITH    CONJG     INTRIN COMPLEX,(COMPLEX),IFMCB+20,RENAME                               ARITH        682     A     
 ARITH    AND       INTRIN OCTAL,(),MD.AND,NCHSGL,,ANY                                     ARITH        683     A     
 ARITH    OR        INTRIN OCTAL,(),MD.OR,NCHSGL,,ANY                                      ARITH        684     A     
 ARITH    XOR       INTRIN OCTAL,(),MD.XOR,NCHSGL,,ANY                                     ARITH        685     A     
 ARITH    COMPL     INTRIN OCTAL,(ANY)                                                     ARITH        686     A     
 ARITH    AMAX0     INTRIN REAL,(),MXINT,INTREL,,INTEGER                                   ARITH        687     A     
 ARITH    AMAX1     INTRIN REAL,(),MXREL,NCHSGL,,REAL                                      ARITH        688     A     
 ARITH    MAX0      INTRIN INTEGER,(),MXINT,NCHSGL,,INTEGER                                ARITH        689     A     
 ARITH    MAX1      INTRIN INTEGER,(),MXREL,RELINT,,REAL                                   ARITH        690     A     
 ARITH    DMAX1     INTRIN DOUBLE,(),MXDBL,NCHDBL,,DOUBLE                                  ARITH        691     A     
 ARITH    AMIN0     INTRIN REAL,(),MNINT,INTREL,,INTEGER                                   ARITH        692     A     
 ARITH    AMIN1     INTRIN REAL,(),MNREL,NCHSGL,,REAL                                      ARITH        693     A     
 ARITH    MIN0      INTRIN INTEGER,(),MNINT,NCHSGL,,INTEGER                                ARITH        694     A     
 ARITH    MIN1      INTRIN INTEGER,(),MNREL,RELINT,,REAL                                   ARITH        695     A     
 ARITH    DMIN1     INTRIN DOUBLE,(),MNDBL,NCHDBL,,DOUBLE                                  ARITH        696     A     
 ARITH    SHIFT     INTRIN OCTAL,(ANY,INTEGER)                                             ARITH        697     A     
 ARITH    MASK      INTRIN OCTAL,(INTEGER)                                                 ARITH        698     A     
 ARITH    LOCF      INTRIN INTEGER,(ANY)                                                   ARITH        699     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2127    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    RANF      INTRIN REAL,(ANY)                                                      ARITH        700     A     
 ARITH     L.INFT   EQU    *                 LWA+1 OF BASIC INTRINSIC FUNCTION TB          ARITH        701     A     
 ARITH                                                                                     ARITH        702     A     
 ARITH    *         START OF EXTENDED INTRINSIC FUNCTION TABLE                             ARITH        703     A     
 ARITH    *         THE BELOW FUNCTIONS ARE COMPILED INLINE ONLY WHEN                      ARITH        704     A     
 ARITH    *         THE "SPP" OPTION IS SELECTED ON THE CONTROL CARD                       ARITH        705     A     
 ARITH                                                                                     ARITH        706     A     
 ARITH    IFTHEN    INTRIN OCTAL,(LOGICAL,ANYSNGL,ANYSNGL),M.IFTHEN                        ARITH        707     A     
 ARITH    COUNT     INTRIN INTEGER,(ANYSNGL),M.COUNT                                       ARITH        708     A     
 ARITH     SETX     INTRIN INTEGER,(ANYSNGL),M.SXKXJ                                       ARITH        709     A     
 ARITH    UNPEXP    INTRIN INTEGER,(ANYSNGL),M.UPE                                         ARITH        710     A     
 ARITH    UNPCOE    INTRIN OCTAL,(ANYSNGL),M.UPC                                           ARITH        711     A     
 ARITH    PACK      INTRIN OCTAL,(ANYSNGL,ANYSNGL),M.PACK                                  ARITH        712     A     
 ARITH    DMULT     INTRIN OCTAL,(ANYSNGL,ANYSNGL),M.DMULT                                 ARITH        713     A     
 ARITH    NORM      INTRIN REAL,(ANYSNGL),M.NORM                                           ARITH        714     A     
 ARITH    NORMC     INTRIN OCTAL,(ANYSNGL),M.NORMC                                         ARITH        715     A     
 ARITH    FADD      INTRIN REAL,(REAL,REAL),M.FADD                                         ARITH        716     A     
 ARITH    RADD      INTRIN REAL,(REAL,REAL),M.RADD                                         ARITH        717     A     
 ARITH    FSUB      INTRIN REAL,(REAL,REAL),M.FSUB                                         ARITH        718     A     
 ARITH    RSUB      INTRIN REAL,(REAL,REAL),M.RSUB                                         ARITH        719     A     
 ARITH     #T       IFNE   TEST,0                                                          FCCT003       22     A     
 ARITH     SHSNGL   INTRIN REAL,(DOUBLE),IFMCB+17                                          FCCT003       23     A     
 ARITH     DBLEE    INTRIN DOUBLE,(REAL,REAL),IFMCB+19                                     FCCT003       24     A     
 ARITH     FMULT    INTRIN REAL,(REAL,REAL),M.FMULT                                        FCCT003       25     A     
 ARITH     RMULT    INTRIN REAL,(REAL,REAL),M.RMULT                                        FCCT003       26     A     
 ARITH     FDIV     INTRIN REAL,(REAL,REAL),M.FDIV                                         FCCT003       27     A     
 ARITH     DADD     INTRIN REAL,(REAL,REAL),M.DADD                                         FCCT003       28     A     
 ARITH     DSUB     INTRIN REAL,(REAL,REAL),M.DSUB                                         FCCT003       29     A     
 ARITH     RNORM    INTRIN REAL,(REAL),M.RNORM                                             FCCT003       30     A     
 ARITH     DSUMH    INTRIN DOUBLE,(DOUBLE,DOUBLE),M.DSUMH                                  FCCT003       31     A     
 ARITH     DDIFH    INTRIN DOUBLE,(DOUBLE,DOUBLE),M.DDIFH                                  FCCT003       32     A     
 ARITH     DDIVH    INTRIN DOUBLE,(DOUBLE,DOUBLE),M.DDIVH                                  FCCT003       33     A     
 ARITH     DMULH    INTRIN DOUBLE,(DOUBLE,DOUBLE),M.DMULH                                  FCCT003       34     A     
 ARITH     BOOL     INTRIN OCTAL,(ANYSNGL),M.BOOL                                          FCCT003       35     A     
 ARITH     #T       ENDIF                                                                  FCCT003       36     A     
 ARITH     L.INFTE  BSSZ   1                 LWA+1 OF EXTENDED INTRINSIC FUNCTION          ARITH        720     A     
 ARITH    *                                  TABLE                                         ARITH        721     A     
 ARITH              SPACE  3                                                               ARITH        722     A     
 ARITH     STBASE   DATA     -1         <0 OR HOLDS ORDL OF START OF EXPONENT              ARITH        723     A     
 ARITH    *   BASE EVALUATION IN ARLIST.  SEE FILE DESCRIBING STBASE USE.                  ARITH        724     A     
 ARITH     FF       DATA   -1           FLIP-FLOF FLG FOR *-OP=-1 IF NOT TO POP            ARITH        725     A     
 ARITH     LASTR    DATA   0            HOLDS ADR OF LAST ARLIST ENTRY                     ARITH        726     A     
 ARITH     EMODE    DATA   1            EXPRESSION (TRANSLATION) MODE. INDICATES           ARITH        727     A     
 ARITH    *         THE TYPE OF PART NOW BEING TRANSLATED. =4,2,1 IF IN SUBSCRIPT,         ARITH        728     A     
 ARITH    *         ARGUMENT, OR NORMAL MODE.  NEEDED FOR CORRECT TREATMENT OF             ARITH        729     A     
 ARITH    *         COMMAS, AND ARRAY REFERENCES.                                          ARITH        730     A     
 ARITH              SPACE  3                                                               ARITH        731     A     
 ARITH              USE       /STSORD/  STATE.TEMP.STO.ORD  (I=1)                          ARITH        732     A     
 ARITH     STSORD   BSS       1        INITIALIZED BY PS1CTL FOR EACH STATEM.              ARITH        733     A     
 ARITH              USE       /CLNFO/   CALL INFO                                          ARITH        734     A     
 ARITH     SUBFWA   BSS       1         ADDRESS OF SUBR NAME ENTRY IN SYMTAB               ARITH        735     A     
 ARITH     SUBH     BSS       1         H ORDL OF SUBR NAME                                ARITH        736     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2128    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     ARGCNT   BSS       1         NO.OF ARGS IN LIST                                 ARITH        737     A     
 ARITH     NARGSF   BSSZ      1         NON ZERO IF NO ARG LIST                            ARITH        738     A     
 ARITH     SUBNAME  BSS       1         NAME OF SUBR IN ELIST FORM. SET BY CALL.           ARITH        739     A     
 ARITH     ARLPT    ENTRY. 0                 ARLIST POINTER ( NUMBER OF WORDS )            ARITH        740     A     
 ARITH              USE       0                                                            ARITH        741     A     
 ARITH              USE    //                                                              ARITH        742     A     
 ARITH     DEBUG    BSS    1            USED AS DEBUG BASE ADDRESS                         ARITH        743     A     
 ARITH              USE    *                                                               ARITH        744     A     
 ARITH                                                                                     ARITH        745     A     
 ARITH              ENTRY   DBGEXT                                                         ARITH        746     A     
 ARITH     DBGEXT   BSS    0           SET DEBUG EXTERNAL BITS                             ARITH        747     A     
 ARITH              VFD     4/T.CGS                                                        ARITH        748     A     
 ARITH              POS     P.EXT+1                                                        ARITH        749     A     
 ARITH              VFD     1/1,*P/0                                                       ARITH        750     A     
 ARITH              TITLE                                                                  ARITH        751     A     
 ARITH              TITLE              EXTERNALS                                           ARITH        752     A     
 ARITH    *     EXTERNAL ROUTINES                                                          ARITH        753     A     
 ARITH              EXT    O.GCON,FSTEX,VALUE.                                             ARITH        754     A     
 ARITH              EXT    DOFLAG                                                          ARITH        755     A     
 ARITH              EXT       ERPRO                                                        ARITH        756     A     
 ARITH              EXT       CBNFLG                                                       ARITH        757     A     
 ARITH              EXT       PH2RETN                                                      ARITH        758     A     
 ARITH              EXT       SYMBOL                                                       ARITH        759     A     
 ARITH              EXT       ASAER                                                        ARITH        760     A     
 ARITH              EXT       CONVERT                                                      ARITH        761     A     
 ARITH              EXT       ASFDEF                                                       ARITH        762     A     
 ARITH              EXT       ASFREF                                                       ARITH        763     A     
 ARITH              EXT       DOCALL                                                       ARITH        764     A     
 ARITH              EXT       DODEF                                                        ARITH        765     A     
 ARITH              EXT       ERPROI                                                       ARITH        766     A     
 ARITH              EXT       DOGOOF                                                       ARITH        767     A     
 ARITH              EXT       IGCALL                                                       ARITH        768     A     
 ARITH              EXT       ST.                                                          ARITH        769     A     
 ARITH              EXT       FP.                                                          ARITH        770     A     
 ARITH              EXT       ALLARR                                                       ARITH        771     A     
 ARITH              EXT    ALLCALL                                                         ARITH        772     A     
 ARITH              EXT       ALLFUNC                                                      ARITH        773     A     
 ARITH              EXT       CON.                                                         ARITH        774     A     
 ARITH              EXT       TRACEL                                                       ARITH        775     A     
 ARITH              EXT       LABEL.                                                       ARITH        776     A     
 ARITH              EXT       DFLAG                                                        ARITH        777     A     
 ARITH              EXT       D.SAASI                                                      ARITH        778     A     
 ARITH              EXT    BEFTB,L.BEFTB                                                   ARITH        779     A     
 ARITH              EXT       L.IOLST,O.IOLST                                              ARITH        780     A     
 ARITH                                                                                     ARITH        781     A     
 ARITH              TABLES CON,ARLST                                                       ARITH        782     A     
 ARITH              SPACE  3                                                               ARITH        783     A     
 ARITH    SLBMD     ARMAC  0,0,3,0         SINGLE LOAD TEMPLATE                            ARITH        784     A     
 ARITH                                       'SLBMD' IS USED FOR VARIOUS MACROS            ARITH        785     A     
 ARITH                                       THAT USE UP TO THREE R-PARAMETERS             ARITH        786     A     
 ARITH                                       ONLY.                                         ARITH        787     A     
 ARITH              SPACE  1                                                               ARITH        788     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2129    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    DLBMD     ARMAC  0,0,6,0         DOUBLE LOAD                                     ARITH        789     A     
 ARITH                                       'DLBMD' IS THE DOUBLE WORD ANALOGY            ARITH        790     A     
 ARITH                                       OF 'SLBMD'.                                   ARITH        791     A     
 ARITH              SPACE  1                                                               ARITH        792     A     
 ARITH              TITLE                  N E X T E :  NEXT ELEMENT CONTROL               ARITH        793     A     
 ARITH    ************************************************************************         ARITH        794     A     
 ARITH    *                                                                      *         ARITH        795     A     
 ARITH    *                N E X T E :  NEXT ELEMENT CONTROL                     *         ARITH        796     A     
 ARITH    *                                                                      *         ARITH        797     A     
 ARITH    *              'NEXTE' BEGINS THE CYCLE OF PROCESSING THE NEXT E-LIST  *         ARITH        798     A     
 ARITH    *         ELEMENT.  THE APPROPRIATE PROCESSOR FOR THE NEXT E-LIST      *         ARITH        799     A     
 ARITH    *         ELEMENT IS JUMPED TO AFTER THE FOLLOWING INFORMATION HAS     *         ARITH        800     A     
 ARITH    *         BEEN SET:                                                    *         ARITH        801     A     
 ARITH    *                                                                      *         ARITH        802     A     
 ARITH    *                REGISTERS --    B1 = ADDRESS OF THIS E-LIST ELEMENT   *         ARITH        803     A     
 ARITH    *                                B2 = OP CODE OF THIS E-LIST ELEMENT   *         ARITH        804     A     
 ARITH    *                                B4 = OP CODE OF NEXT E-LIST ELEMENT   *         ARITH        805     A     
 ARITH    *                                X1 = THIS E-LIST ELEMENT              *         ARITH        806     A     
 ARITH    *                                X2 = NEXT E-LIST ELEMENT              *         ARITH        807     A     
 ARITH    *                MEMORY --       'OP'     = THIS E-LIST ELEMENT        *         ARITH        808     A     
 ARITH    *                                'EPOINT' = ADDRESS OF NEXT E-LIST     *         ARITH        809     A     
 ARITH    *                                           ELEMENT                    *         ARITH        810     A     
 ARITH    *                                                                      *         ARITH        811     A     
 ARITH    ************************************************************************         ARITH        812     A     
 ARITH              SPACE  1                                                               ARITH        813     A     
 ARITH    NEXTE     SA3    EPOINT                                                          ARITH        814     A     
 ARITH              SA1    X3                                                              ARITH        815     A     
 ARITH              BX7    X1                                                              ARITH        816     A     
 ARITH              UX0    X1,B2                                                           ARITH        817     A     
 ARITH              SX6    X3-1                                                            ARITH        818     A     
 ARITH              SA2    X6                                                              ARITH        819     A     
 ARITH              SA6    A3                                                              ARITH        820     A     
 ARITH              SA7    OP                                                              ARITH        821     A     
 ARITH              SB1    X3                                                              ARITH        822     A     
 ARITH              UX3    X2,B4                                                           ARITH        823     A     
 ARITH              SX6    B4                                                              ARITH        824     A     
 ARITH              SA6    BSAV              SAVE B-FOUR                                   ARITH        825     A     
 ARITH              JP     B2+EJTB                                                         ARITH        826     A     
 ARITH     EJTB     ZR        CON       CON                                                ARITH        827          I
          -FCC1590X 
 ARITH                                                                                     FCC1590X       6     A     
 ARITH     EJTB     BSS    0                                                               FCC1590X       7     A     
 ARITH              LOC    0                                                               FCC1590X       8     A     
 ARITH              EQ        CON       CON                                                FCC1590X       9     A     
 ARITH              EQ        ID        ID                                                 ARITH        828     A     
 ARITH              EQ        RTPRN     )                                                  ARITH        829     A     
 ARITH              EQ        COMMA     ,                                                  ARITH        830     A     
 ARITH              ZR        CMPARE    EOS (COMPARE OP WITH OS)                           ARITH        831     A     
 ARITH              EQ        EQSIGN    =                                                  ARITH        832     A     
 ARITH              EQ        LTPRN     (                                                  ARITH        833     A     
 ARITH              EQ        SSERR4    .OR.  (FIRST EXPLICIT OPERATOR)                    ARITH        834     A     
 ARITH              EQ        SSERR4    .AND.                                              ARITH        835     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2130    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              EQ        SSERR2    .NOT.                                              ARITH        836     A     
 ARITH              EQ        SSERR5    .LE.                                               ARITH        837     A     
 ARITH              ZR        SSERR5    .LT.                                               ARITH        838     A     
 ARITH              ZR        SSERR5    .GE.                                               ARITH        839     A     
 ARITH              ZR        SSERR5    .GT.                                               ARITH        840     A     
 ARITH              ZR        SSERR5    .NE.                                               ARITH        841     A     
 ARITH              ZR        SSERR5    .EQ.                                               ARITH        842     A     
 ARITH              EQ        MINUS     -                                                  ARITH        843     A     
 ARITH              EQ        PLUS      +                                                  ARITH        844     A     
 ARITH              ZR        MULTOP   *                                                   ARITH        845     A     
 ARITH              ZR        DIVIOP   /                                                   ARITH        846     A     
 ARITH              ZR        SSERR7    **                                                 ARITH        847     A     
 ARITH              ZR        RJWRP     21  ROGER WANGER,S RIGHT PARENS                    ARITH        848     A     
 ARITH              LOC    *O                                                              FCC1590X      10     A     
 ARITH    *                                                                                ARITH        849     A     
 ARITH     LOWOP    EQU    EL.OR                                                           ARITH        850     A     
 ARITH              TITLE  DEBUG INFORMATION CELLS                                         ARITH        851     A     
 ARITH              EJECT                                                                  ARITH        852     A     
 ARITH    ***                                                                              ARITH        853     A     
 ARITH    *         DEBUG INFORMATION WORDS AND TEMPORARIES                                ARITH        854     A     
 ARITH    *                                                                                ARITH        855     A     
 ARITH              ENTRY  DBGAPL                                                          ARITH        856     A     
 ARITH     DBGAPL   BSSZ   5                 TABLE TO HOLD ARG LIST INFORMATION            ARITH        857     A     
 ARITH                                                                                     ARITH        858     A     
 ARITH     RL1TS    BSS    1                 TEMP STORAGE FOR RL1                          ARITH        859     A     
 ARITH     RL2TS    ENTRY. 0                                                               ARITH        860     A     
 ARITH     LASTRTS  BSS    1                 TEMP STORAGE FOR LASTR                        ARITH        861     A     
 ARITH                                                                                     ARITH        862     A     
 ARITH     FTRFLG   BSS    1                 FUNCTION TRACE FLAG                           ARITH        863     A     
 ARITH     TRCFLG   BSS    1                 TRACE FLAG FOR IF PROCESSOR                   ARITH        864     A     
 ARITH     WLSTR    BSS    1                 WAS LAST STORE TRACED FLAG                    ARITH        865     A     
 ARITH                                                                                     ARITH        866     A     
 ARITH     P.FCS    EQU    30                FREQUENCY COUNT                               ARITH        867     A     
 ARITH     L.FCS    EQU    9                                                               ARITH        868     A     
 ARITH     P.RO     EQU    27                RELATIONAL OPCODE                             ARITH        869     A     
 ARITH     L.RO     EQU    3                                                               ARITH        870     A     
 ARITH     P.CONST  EQU    30                CONSTANT TYPE, FLAG, ORDINAL                  ARITH        871     A     
 ARITH     L.CONST  EQU    18                                                              ARITH        872     A     
 ARITH     P.LINKI  EQU    12                ORDINAL FIELD FOR LINKED LIST                 ARITH        873     A     
 ARITH     P.COV    EQU    13                CONSTANT/VARIABLE FLAG BIT                    ARITH        874     A     
 ARITH     P.GCF    EQU    14                GLOBAL CONSTANT FLAG BIT                      ARITH        875     A     
 ARITH     L.CORD   EQU    14                CONSTANT TABLE ORDINAL FIELD                  ARITH        876     A     
 ARITH     P.LINK   EQU    42                ADDRESS FIELD FOR LINKED LIST                 ARITH        877     A     
 ARITH     P.USED   EQU    45                USED BIT FOR RLIST MACROS                     ARITH        878     A     
 ARITH                                                                                     ARITH        879     A     
 ARITH     DV.STO   EQU    5B                DEBUG VALUE FOR STORE CHECKING                ARITH        880     A     
 ARITH     DV.FUN   EQU    7B                DEBUG VALUE FOR FUNC TRACING                  ARITH        881     A     
 ARITH     DV.CLL   EQU    13B               DEBUG VALUE FOR CALL TRACING                  ARITH        882     A     
 ARITH     DV.ARR   EQU    11B               DEBUG VALUE FOR SUBSCRIPT CHECKING            ARITH        883     A     
 ARITH     DV.AAS   EQU    15B               DEBUG VALUE FOR SUBSCRIPT AND STORE           ARITH        884     A     
 ARITH                                         CHECKING                                    ARITH        885     A     
 ARITH              TITLE  CON - CONSTANT PROCESSING                                       ARITH        886     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2131    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              EJECT                                                                  ARITH        887     A     
 ARITH    *     CON IF CONST IN E-LIST                                                     ARITH        888     A     
 ARITH     CON      SB2    EL.=                                                            ARITH        889     A     
 ARITH              SB3    EL.ID                                                           ARITH        890     A     
 ARITH              EQ  B4,B2,SSERR1    IF CON FOLLOWED BY =                               ARITH        891     A     
 ARITH              LE  B4,B3,SSERR1    IF CON FOLOWD BY CON OR NAME                       ARITH        892     A     
 ARITH              SB3    EL.(                                                            ARITH        893     A     
 ARITH              EQ     B4,B3,IDER2       ERROR, CONSTANT FOLLOWED BY (                 ARITH        894     A     
 ARITH              SA1    B1                                                              ARITH        895     A     
 ARITH              SB1      -1                                                            ARITH        896     A     
 ARITH              RJ        CONVERT                                                      ARITH        897     A     
 ARITH              BX6    X1                                                              ARITH        898     A     
 ARITH              BX7    X2                                                              ARITH        899     A     
 ARITH              SA6       CONST                                                        ARITH        900     A     
 ARITH              SA7       CONST+1                                                      ARITH        901     A     
 ARITH              SA1       EPOINT                                                       ARITH        902     A     
 ARITH              SB1    X1+1                                                            ARITH        903     A     
 ARITH              SA1    B1           IS CONST TINT -                                    ARITH        904     A     
 ARITH              MX0       60-3                                                         ARITH        905     A     
 ARITH              LX1       15                                                           ARITH        906     A     
 ARITH              BX6   -X0*X1                                                           ARITH        907     A     
 ARITH     CON4     SX3    X6-T.HOL                                                        ARITH        908     A     
 ARITH              NZ     X3,CON4A     IF CONST NOT TYPE HOL                              ARITH        909     A     
 ARITH              SA1    B1-1                                                            ARITH        910     A     
 ARITH              SA2    B1+1                                                            ARITH        911     A     
 ARITH              UX0    B2,X2             E - 1                                         ARITH        912     A     
 ARITH              SB3    EL.MINUS                                                        ARITH        913     A     
 ARITH              UX0    B4,X1             E + 1                                         ARITH        914     A     
 ARITH              SB5    EL.S)                                                           ARITH        915     A     
 ARITH              GE  B2,B3,CON4B     IF HOL CONST OPD                                   ARITH        916     A     
 ARITH              EQ     B4,B5,CON4D       IF SPECIAL RIGHT PAREN                        ARITH        917     A     
 ARITH              GE  B4,B3,CON4B     11 11                                              ARITH        918     A     
 ARITH              SA1       TYPE                                                         ARITH        919     A     
 ARITH     CON4D    BSS    0                                                               ARITH        920     A     
 ARITH              SX2    X1-19                                                           ARITH        921     A     
 ARITH              ZR     X2,CON4A     IF HOL CON IN CALL STATE                           ARITH        922     A     
 ARITH              USASDM ERMSG38         HOLERITH CONSTANT OTHER THAN CALL ARG           ARITH        923     A     
 ARITH              ZR        CON4C                                                        ARITH        924     A     
 ARITH     CON4B    IDM       ERMSG39   HOL CON OPD                                        ARITH        925     A     
 ARITH     CON4C    SX6    T.HOL                                                           ARITH        926     A     
 ARITH     CON4A    BSS       0                                                            ARITH        927     A     
 ARITH              SA1    OSPTR                                                           ARITH        928     A     
 ARITH              SB2    EL.SLASH                                                        ARITH        929     A     
 ARITH              SA2    X1+OPSTAK                                                       ARITH        930     A     
 ARITH              UX0    B3,X2                                                           ARITH        931     A     
 ARITH              NE     B2,B3,CON2  IF OP BEFORE CONST NOT /                            ARITH        932     A     
 ARITH              SA1    CONST                                                           ARITH        933     A     
 ARITH              SA2    B1-1                                                            ARITH        934     A     
 ARITH              SB2    X6-T.LOG                                                        ARITH        935     A     
 ARITH              ZR     B2,MOP1     IF LOGICAL CONST, ERROR                             ARITH        936     A     
 ARITH              SB2    X6-T.CPLX                                                       ARITH        937     A     
 ARITH              ZR     B2,CON4E    IF COMPLEX CONST, CANT USE SIMPLE /0 TEST           ARITH        938     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2132    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              ZR     X1,CON7     IF DIVIDE BY CONST ZERO, ERROR                      ARITH        939     A     
 ARITH              EQ     CON2                                                            FCC0570        5     A     
 ARITH     CON4E    BSS    0                                                               ARITH        940     A     
 ARITH                                                                                     ARITH        941     A     
 ARITH     XYZ      IFEQ   NOINVERT,0                                                      ARITH        942     A     
 ARITH                                                                                     ARITH        943     A     
 ARITH              SB2    X6          (B2) = CONSTANT TYPE CODE                           ARITH        944          I
          -FCC0570
 ARITH              SB5    T.OCT                                                           ARITH        945          I
          -FCC0570
 ARITH    *         ONLY COMPLEX CONSTANT DIVISORS CAN BE INVERTED AT THIS POINT.          FCC0570        6     A     
 ARITH    *         / CHANGED TO *. OTHER TYPES DEPENDS ON MODE OF OPERATION.              FCC0570        7     A     
 ARITH              UX0    B4,X2                                                           ARITH        946     A     
 ARITH              GE     B2,B5,CON2  IF CONSTANT TYPE .GE. *OCTAL*                       ARITH        947          I
          -FCC0570
 ARITH              SB5    EL.DSTR                                                         ARITH        948     A     
 ARITH              EQ     B4,B5,CON2  IF ** AFTER CONST                                   ARITH        949     A     
 ARITH              JP     B2+XYZTAB-1                                                     ARITH        950          I
          -FCC0570
 ARITH                                                                                     ARITH        951          I
          -FCC0570
 ARITH     XYZTAB   EQ     CON2        TYPE INTEGER                                        ARITH        952          I
          -FCC0570
 ARITH              EQ     CON5        TYPE REAL                                           ARITH        953          I
          -FCC0570
 ARITH    *         EQ     CON6        TYPE DOUBLE                                         ARITH        954          I
          -FCC0570
 ARITH              EQ     CON2        TYPE DOUBLE ( *** TEMP UNTIL DBL DIVIDE )           ARITH        955          I
          -FCC0570
 ARITH                                                                                     ARITH        956     A     
 ARITH    *     CON4F IF /COMPLEX CONST                                                    ARITH        957     A     
 ARITH    *     (C+DI)**-1=(C/(C**2+D**2)+(-D/C**2+D**2)I)                                 ARITH        958     A     
 ARITH                                                                                     ARITH        959     A     
 ARITH    *CON4F    BSS    0                                                               ARITH        960     A     
 ARITH              SA2    CONST+1                                                         ARITH        961     A     
 ARITH              FX3    X1*X1               C**2                                        ARITH        962     A     
 ARITH              FX4    X2*X2               D**2                                        ARITH        963     A     
 ARITH              FX5    X3+X4                                                           ARITH        964     A     
 ARITH              NX6 B0,X5                  C**2+D**2                                   ARITH        965     A     
 ARITH              ZR     X6,CON7      IF DIVISION BY ZERO                                ARITH        966     A     
 ARITH              FX1    X1/X6               C/(C**2+D**2)                               ARITH        967     A     
 ARITH              MX0       0                                                            ARITH        968     A     
 ARITH              FX3    X0-X2              -D                                           ARITH        969     A     
 ARITH              FX2    X3/X6              -D/(C**2+D**2)                               ARITH        970     A     
 ARITH              SB1       2                                                            ARITH        971     A     
 ARITH              RJ        CONVERT   B1 NEED NOT BE RESET TO EPOINT+1                   ARITH        972     A     
 ARITH              SX6    T.CPLX                                                          ARITH        973     A     
 ARITH              ZR        CON8                                                         ARITH        974          I
          -FCC0570
 ARITH                                                                                     ARITH        975          I
          -FCC0570
 ARITH    *     CON5 IF /REAL CONST                                                        ARITH        976          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2133    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
          -FCC0570
 ARITH                                                                                     ARITH        977          I
          -FCC0570
 ARITH     CON5     SA2    =1.0                                                            ARITH        978          I
          -FCC0570
 ARITH              SB1    1                                                               ARITH        979          I
          -FCC0570
 ARITH              RX1    X2/X1                                                           ARITH        980          I
          -FCC0570
 ARITH              RJ        CONVERT                                                      ARITH        981          I
          -FCC0570
 ARITH              SX6    T.REAL                                                          ARITH        982          I
          -FCC0570
 ARITH              ZR        CON8                                                         ARITH        983          I
          -FCC0570
 ARITH    *                                                                                ARITH        984          I
          -FCC0570
 ARITH    *     CON6 IF /DBL CONST  (TAKE OFF *,S WHEN DDVDR READY)                        ARITH        985          I
          -FCC0570
 ARITH    *CON6     SA3       CONST                                                        ARITH        986          I
          -FCC0570
 ARITH    *         SA4       CONST+1                                                      ARITH        987          I
          -FCC0570
 ARITH    *         SA1       =1.0EE0                                                      ARITH        988          I
          -FCC0570
 ARITH    *         SA2       =1.0EE0+1                                                    ARITH        989          I
          -FCC0570
 ARITH    *         RJ        DDVDR     DBL DIVIDE ROUTINE                                 ARITH        990          I
          -FCC0570
 ARITH    *         SB1       2                                                            ARITH        991          I
          -FCC0570
 ARITH    *         RJ        CONVERT                                                      ARITH        992          I
          -FCC0570
 ARITH    *         SX6    T.DBL                                                           ARITH        993          I
          -FCC0570
 ARITH     CON8     RJ        CFETCH                                                       ARITH        994          I
          -FCC0570
 ARITH              RJ     CFETCH                                                          FCC0570        8     A     
 ARITH              SA1       MLTEOP    CHANGE OM TO *                                     ARITH        995     A     
 ARITH              SA2       OSPTR                                                        ARITH        996     A     
 ARITH              SA3    X2+OPSTAK                                                       ARITH        997     A     
 ARITH              MX6       30                                                           ARITH        998     A     
 ARITH              LX6       18+30                                                        ARITH        999     A     
 ARITH              BX3    X6*X3        SAVE ALL OF OM EXCEPT OP CODE AND HEIRCHY          ARITH       1000     A     
 ARITH              BX6    X3+X1                                                           ARITH       1001     A     
 ARITH              SA3       FF        INVERT FF                                          ARITH       1002     A     
 ARITH              SA6    X2+OPSTAK                                                       ARITH       1003     A     
 ARITH              BX7    -X3                                                             ARITH       1004     A     
 ARITH              SA7       FF                                                           ARITH       1005     A     
 ARITH              ZR        NEXTE                                                        ARITH       1006     A     
 ARITH    *                                                                                ARITH       1007     A     
 ARITH    *     CON2 IF CONST IN E NOT PRECEDED BY /.  ENTER WITH TYPE IN X6.              ARITH       1008     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2134    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     XYZ      ENDIF                                                                  ARITH       1009     A     
 ARITH     CON2     SA6       TYPEWD                                                       ARITH       1010     A     
 ARITH              SA1       EMODE     SEE IF CONST IS STAND ALONE ARG                    ARITH       1011     A     
 ARITH              SX2    X1-2                                                            ARITH       1012     A     
 ARITH              NZ     X2,CON2F     IF NOT IN ARG MODE                                 ARITH       1013     A     
 ARITH              SA1       EPOINT                                                       ARITH       1014     A     
 ARITH              SA2    X1           E+1                                                ARITH       1015     A     
 ARITH              SA3    X1+2         E-1                                                ARITH       1016     A     
 ARITH              UX0 B2,X2                                                              ARITH       1017     A     
 ARITH              SB4       LOWOP                                                        ARITH       1018     A     
 ARITH              GE  B2,B4,CON2F     IF NOT STD ALONE ARG                               ARITH       1019     A     
 ARITH              UX0 B2,X3                                                              ARITH       1020     A     
 ARITH              GE  B2,B4,CON2F     '                                                  ARITH       1021     A     
 ARITH    *     HERE IF STAND ALONE CONST ARG.  FORCE LOAD FROM CONLIST.                   ARITH       1022     A     
 ARITH    *     -UNLESS AN INTR FUNC ARG                                                   ARITH       1023     A     
 ARITH              SA1       FNAD                                                         ARITH       1024     A     
 ARITH              SA2    X1-1                                                            ARITH       1025     A     
 ARITH              LX2    59-P.INF                                                        ARITH       1026     A     
 ARITH              PL     X2,CON2AA   IF NOT IN AN INTRINSIC FUNCTION ARGLIST             ARITH       1027     A     
 ARITH              SA1    =7LLOCF                                                         ARITH       1028     A     
 ARITH              SA2    A2+1                                                            ARITH       1029     A     
 ARITH              BX1    X1-X2                                                           ARITH       1030     A     
 ARITH              AX1    18                                                              ARITH       1031     A     
 ARITH              NZ     X1,CON2F    IF NOT LOCF                                         ARITH       1032     A     
 ARITH     CON2AA   SB1    2                                                               ARITH       1033     A     
 ARITH              SA1       CONST                                                        ARITH       1034     A     
 ARITH              SA2       CONST+1                                                      ARITH       1035     A     
 ARITH              SX3    X6-T.DBL                                                        ARITH       1036     A     
 ARITH              ZR     X3,CON2D     IF DBL                                             ARITH       1037     A     
 ARITH              SX3    X6-T.CPLX                                                       ARITH       1038     A     
 ARITH              ZR     X3,CON2D     IF CPX                                             ARITH       1039     A     
 ARITH              SX3    X6-T.HOL                                                        ARITH       1040     A     
 ARITH              ZR     X3,CON2G     IF HOL                                             ARITH       1041     A     
 ARITH              SB1       1                                                            ARITH       1042     A     
 ARITH              ZR        CON2D     IF REAL,INT OR OCT                                 ARITH       1043     A     
 ARITH     CON2F    SX5    X6-T.HOL                                                        ARITH       1044     A     
 ARITH              ZR     X5,CON2H          IF HOL                                        ARITH       1045     A     
 ARITH              SX1    X6-T.DBL                                                        ARITH       1046          I
          -FCC0564
 ARITH     CON2F1   SX1    X6-T.DBL                                                        FCC0564       15     A     
 ARITH              ZR     X1,CON2A     CON2A IF DBL WD CONST TO LOAD                      ARITH       1047     A     
 ARITH              SX1    X6-T.CPLX                                                       ARITH       1048     A     
 ARITH              ZR     X1,CON2A                                                        ARITH       1049     A     
 ARITH              SA1       CONST                                                        ARITH       1050     A     
 ARITH              ZR     X1,CON2B     IF CONST=0 OR -0                                   ARITH       1051     A     
 ARITH              MI     X1,CON2D1   IF CONSTANT .LT. 0                                  ARITH       1052     A     
 ARITH              MX0       60-17     B17 WOULD BE EXTENDED ON AN SXI                    ARITH       1053     A     
 ARITH              BX5    X0*X1                                                           ARITH       1054     A     
 ARITH              ZR     X5,CON2C     IF CON < 400000B                                   ARITH       1055     A     
 ARITH     CON2E    SB1       1                                                            ARITH       1056     A     
 ARITH     CON2D    RJ        CONVERT                                                      ARITH       1057     A     
 ARITH              SA2       TYPEWD                                                       ARITH       1058     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2135    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              BX6    X2                                                              ARITH       1059     A     
 ARITH              RJ        CFETCH                                                       ARITH       1060     A     
 ARITH              ZR        NEXTE                                                        ARITH       1061     A     
 ARITH                                                                                     ARITH       1062     A     
 ARITH    *         SPECIAL-CASE CONSTANT VALUE OF -1, AS WILL BE PRODUCED BY              ARITH       1063     A     
 ARITH    *         LOGICAL CONSTANT .TRUE. .                                              ARITH       1064     A     
 ARITH                                                                                     ARITH       1065     A     
 ARITH     CON2D1   NZ     X6,CON2E    IF TYPE .NE. T.LOG                                  ARITH       1066     A     
 ARITH              SA3    MD.MASKC                                                        ARITH       1067     A     
 ARITH              SX6    59                                                              ARITH       1068     A     
 ARITH              SA6    PARAMS+1                                                        ARITH       1069     A     
 ARITH              SA2    NARN                                                            ARITH       1070     A     
 ARITH              MX5    0           TYPE = T.LOG                                        ARITH       1071     A     
 ARITH              BX7    X2                                                              ARITH       1072     A     
 ARITH              SA7    PARAMS                                                          ARITH       1073     A     
 ARITH              SX7    X2+1                                                            ARITH       1074     A     
 ARITH              SA7    A2                                                              ARITH       1075     A     
 ARITH              RJ     MACOUT      ISSUE MASK 59 MACRO                                 ARITH       1076     A     
 ARITH              MX0    1                                                               ARITH       1077     A     
 ARITH              LX0    1+47                                                            ARITH       1078     A     
 ARITH              SA2    X7                                                              ARITH       1079     A     
 ARITH              BX6    X0+X2                                                           ARITH       1080     A     
 ARITH              SA6    A2          SET CONSTANT BIT                                    ARITH       1081     A     
 ARITH              EQ     NEXTE                                                           ARITH       1082     A     
 ARITH                                                                                     ARITH       1083     A     
 ARITH     CON2G    SA2       EPOINT    GET E FOR CONST IN X1.                             ARITH       1084     A     
 ARITH              SA1    X2+1                                                            ARITH       1085     A     
 ARITH              SB1    B0                                                              ARITH       1086     A     
 ARITH              ZR        CON2D                                                        ARITH       1087     A     
 ARITH                                                                                     ARITH       1088     A     
 ARITH    *         HERE IF HOLLERITH CONSTANT                                             ARITH       1089     A     
 ARITH     CON2H    SA3    IXFNFG                                                          ARITH       1090     A     
 ARITH              ZR     X3,CON2F+1        IF NOT IN I/O LIST                            ARITH       1091     A     
 ARITH              SA4    EMODE                                                           ARITH       1092     A     
 ARITH              SX3    X4-2                                                            ARITH       1093     A     
 ARITH              ZR     X3,CON2F+1        IF IN ARGUMENT MODE                           ARITH       1094          I
          -FCC0564
 ARITH              ZR     X3,CON2F1         IF IN ARGUMENT MODE                           FCC0564       16     A     
 ARITH              SA1    OSPTR                                                           FCC0564       17     A     
 ARITH              SB4    XFLP                                                            FCC0564       18     A     
 ARITH              SA2    OPSTAK+X1                                                       FCC0564       19     A     
 ARITH              UX3    B2,X2                                                           FCC0564       20     A     
 ARITH              NE     B2,B4,CON2F1      IF TOP OF STACK NOT A IXFN (                  FCC0564       21     A     
 ARITH              SA2    EPOINT                                                          ARITH       1095     A     
 ARITH              SA1    X2                E+1                                           ARITH       1096     A     
 ARITH              SB4    LOWOP                                                           ARITH       1097     A     
 ARITH              UX0    B2,X1                                                           ARITH       1098     A     
 ARITH              SA3    X2+2              E-1                                           ARITH       1099     A     
 ARITH              GE     B2,B4,CON2F+1     NOT STAND ALONE                               ARITH       1100     A     
 ARITH              UX0    B3,X3                                                           ARITH       1101     A     
 ARITH              GE     B3,B4,CON2F+1                                                   ARITH       1102     A     
 ARITH              SA1    X2+1              ELIST ITEM FOR CONSTANT                       ARITH       1103     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2136    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              BX0    X1                                                              ARITH       1104     A     
 ARITH              SB1    B0                                                              ARITH       1105     A     
 ARITH              SA3    LDFLAG      LIST-DIRECTED-I/O FLAG                              ARITH       1106     A     
 ARITH              LX0    21          CHAR. STRING INDICATOR IN B59                       ARITH       1107     A     
 ARITH              BX4    X3*X0                                                           ARITH       1108     A     
 ARITH              SX3    6           TYPE IF CHAR. STRING                                ARITH       1109     A     
 ARITH              LX0    21                                                              ARITH       1110     A     
 ARITH              SX5    X0          CHAR. COUNT OF HOL STRING                           ARITH       1111     A     
 ARITH              MI     X4,CON2H1   IF CHAR. STRING IN LIST-DIRECTED IOLIST             ARITH       1112     A     
 ARITH              SX4    9           ROUNDING FACTOR                                     ARITH       1113     A     
 ARITH              SA2    =0.1000000001P48                                                ARITH       1114     A     
 ARITH              IX6    X5+X4                                                           ARITH       1115     A     
 ARITH              PX0    X6                                                              ARITH       1116     A     
 ARITH              SX3    2           TYPE FOR HOL CONSTANT                               ARITH       1117     A     
 ARITH              FX4    X0*X2       CONVERT TO WORD COUNT                               ARITH       1118     A     
 ARITH              SX5    X4                                                              ARITH       1119     A     
 ARITH     CON2H1   LX5    6                                                               ARITH       1120     A     
 ARITH              IX6    X3+X5                                                           ARITH       1121     A     
 ARITH              LX6    36          18/COUNT,6/TYPE,36/0                                ARITH       1122     A     
 ARITH              SA6    HOLCON                                                          ARITH       1123     A     
 ARITH              RJ     CONVERT           CONVERT AND ENTER IN TABLE                    ARITH       1124     A     
 ARITH              SA2    HOLCON                                                          ARITH       1125     A     
 ARITH              SX0    X1          (X1)=12/0,18/CA,18/0,12/IH OF HOL. ENTRY            ARITH       1126     A     
 ARITH              AX1    12                                                              ARITH       1127     A     
 ARITH              IX3    X1+X0       24/0,18/CA,18/IH                                    ARITH       1128     A     
 ARITH              BX7    X2+X3                                                           ARITH       1129     A     
 ARITH              SA7    A2                PACKED DATA WORD                              ARITH       1130     A     
 ARITH              EQ     NEXTE                                                           ARITH       1131     A     
 ARITH    *                                                                                ARITH       1132     A     
 ARITH    *     CON2A IF DBL WD CONST TO LOAD                                              ARITH       1133     A     
 ARITH     CON2A    SA1       CONST                                                        ARITH       1134     A     
 ARITH              SB1       2                                                            ARITH       1135     A     
 ARITH              SA2       CONST+1                                                      ARITH       1136     A     
 ARITH              NZ     X2,CON2D    IF LOWER HALF " 0                                   ARITH       1137     A     
 ARITH                                                                                     ARITH       1138     A     
 ARITH              RJ     DLDSU       SETUP MXI 0/MXI 0 OR  LD CON.+CA/MXI 0              ARITH       1139     A     
 ARITH              SA5    TYPEWD                                                          ARITH       1140     A     
 ARITH              RJ     MACOUT                                                          ARITH       1141     A     
 ARITH              SA1    RL2                                                             ARITH       1142     A     
 ARITH              SA3    X1                                                              ARITH       1143     A     
 ARITH              MX0    1                                                               ARITH       1144     A     
 ARITH              LX0    1+47        SET CON BIT FOR MACRO                               ARITH       1145     A     
 ARITH              BX7    X0+X3                                                           ARITH       1146     A     
 ARITH              SA7    A3                                                              ARITH       1147     A     
 ARITH              EQ     NEXTE                                                           ARITH       1148     A     
 ARITH                                                                                     ARITH       1149     A     
 ARITH    *         CON2B - CON = 0 OR -0                                                  ARITH       1150     A     
 ARITH                                                                                     ARITH       1151     A     
 ARITH     CON2B    SA2       NARN      SET UP FOR CALL TO MACOUT                          ARITH       1152     A     
 ARITH              BX6    X2                                                              ARITH       1153     A     
 ARITH              SX7    X2+1                                                            ARITH       1154     A     
 ARITH              SA6       PARAMS                                                       ARITH       1155     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2137    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA7       NARN                                                         ARITH       1156     A     
 ARITH              SA5    TYPEWD                                                          ARITH       1157     A     
 ARITH              SA3    MZMD                                                            ARITH       1158     A     
 ARITH              MI     X1,CON2B1   IF -0                                               ARITH       1159     A     
 ARITH              SA3    ZRMD                                                            ARITH       1160     A     
 ARITH     CON2B1   RJ        MACOUT                                                       ARITH       1161     A     
 ARITH              SA1    X7           TURN ON CONST BIT                                  ARITH       1162     A     
 ARITH              MX0       1                                                            ARITH       1163     A     
 ARITH              LX0       48                                                           ARITH       1164     A     
 ARITH              BX6    X1+X0                                                           ARITH       1165     A     
 ARITH              SA6    X7                                                              ARITH       1166     A     
 ARITH              ZR        NEXTE                                                        ARITH       1167     A     
 ARITH    *                                                                                ARITH       1168     A     
 ARITH    *     CON2C IF CON< 400000B                                                      ARITH       1169     A     
 ARITH     CON2C    SX2    X6-T.INT          WOULD NEED EXTRA COMPILER CODE FOR            ARITH       1170     A     
 ARITH    *                  OTHER THAN INT, OCT, OR HOL.                                  ARITH       1171     A     
 ARITH              ZR     X2,CON2C1                                                       ARITH       1172     A     
 ARITH    *                NOW BSAV IS USED AS A FLAG TO STCON                             ARITH       1173     A     
 ARITH    *                 BSAV = 773B IMPLIES  TREAT THIS CONST AS NORMAL                ARITH       1174     A     
 ARITH              SX2    X6-T.OCT                                                        ARITH       1175     A     
 ARITH              ZR     X2,CON2C1                                                       ARITH       1176     A     
 ARITH              SX2    X6-T.HOL                                                        ARITH       1177     A     
 ARITH              NZ     X2,CON2E                                                        ARITH       1178     A     
 ARITH     CON2C1   BX5    X1                                                              ARITH       1179     A     
 ARITH              SX6    773B                                                            ARITH       1180     A     
 ARITH              SA6    BSAV                                                            ARITH       1181     A     
 ARITH              RJ        STCON                                                        ARITH       1182     A     
 ARITH              SA1       TYPEWD    SET TYPE OF CONST                                  ARITH       1183     A     
 ARITH              SB2    X1                                                              ARITH       1184     A     
 ARITH              PX6    B2,X6                                                           ARITH       1185     A     
 ARITH              SA6    A6                                                              ARITH       1186     A     
 ARITH              ZR        NEXTE                                                        ARITH       1187     A     
 ARITH                                                                                     ARITH       1188     A     
 ARITH     BSAV     BSSZ   1                                                               ARITH       1189     A     
 ARITH                                                                                     ARITH       1190     A     
 ARITH     CON7     EERR   ERMSG32     ILLEGAL DIVIDE BY CONSTANT ZERO                     ARITH       1191     A     
 ARITH              TITLE              ID - IDENTIFIER PROCESSING                          ARITH       1192     A     
 ARITH     ID.E34   EERR   ERMSG34           ILLEGAL USE OF SUBPROGRAM NAME                ARITH       1193     A     
 ARITH                                                                                     ARITH       1194     A     
 ARITH    *     ID IF E IS IDENTIFIER. FROM EJTB.  X1 HOLDS E.                             ARITH       1195     A     
 ARITH     ID       SB2    EL.ID                                                           ARITH       1196     A     
 ARITH              SB3    EL.DSTR                                                         ARITH       1197     A     
 ARITH              NE     B4,B3,ID0                                                       ARITH       1198     A     
 ARITH              SA3    ARLPT                                                           ARITH       1199     A     
 ARITH              BX6    X3                                                              ARITH       1200     A     
 ARITH              SA6    STBASE            SAVE ADDRESS OF ** BASE                       ARITH       1201     A     
 ARITH     ID0      BSS    0                                                               ARITH       1202     A     
 ARITH              SPACE  1                                                               ARITH       1203     A     
 ARITH              SB7       ID1       SET RETURN-FROM-SYMBOL ADR                         ARITH       1204     A     
 ARITH              GT     B4,B2,SYMBOL      IF NAME NOT FOLLOWED BY NAME OR CONS          ARITH       1205     A     
 ARITH              EERR      ERMSG6                                                       ARITH       1206     A     
 ARITH     ID1      EQ     ID.F        FIRST OCCURANCE                                     ARITH       1207     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2138    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              EQ     ID2               PREVIOUS OCCURANCES                           ARITH       1208     A     
 ARITH                                                                                     ARITH       1209     A     
 ARITH    *         FIRST OCCURANCE - CHECK SETTING OF DEBUG BITS AND ADD TYPE             ARITH       1210     A     
 ARITH                                                                                     ARITH       1211     A     
 ARITH     ID.F     ZR     X7,ID.F2          IF NO PREVIOUS MENTION IN DEBUG STMTS         ARITH       1212     A     
 ARITH              SA5    EPOINT                                                          ARITH       1213     A     
 ARITH              SA4    X5                                                              ARITH       1214     A     
 ARITH              SB4    EL.(                                                            ARITH       1215     A     
 ARITH              UX3    B3,X4                                                           ARITH       1216     A     
 ARITH              MX0    0                                                               ARITH       1217     A     
 ARITH              NE     B3,B4,ID.F1       IF NEXT IS NOT A (                            ARITH       1218     A     
 ARITH              SX0    B5                ASSUME A FUNCTION REFERENCE                   ARITH       1219     A     
 ARITH     ID.F1    CALL   CFO               CHECK SETTING OF DEBUG BITS                   ARITH       1220     A     
 ARITH     ID.F2    IX2    X7+X2             ADD DEBUG BITS                                ARITH       1221     A     
 ARITH              BX6    X6+X2             AND TYPE                                      ARITH       1222     A     
 ARITH              SA6    A2                                                              ARITH       1223     A     
 ARITH              SB7    B0                SET B7 TO 0 TO FLAG THE FIRST OCCURAN         ARITH       1224     A     
 ARITH              LX2    X6                                                              ARITH       1225     A     
 ARITH              EQ     ID3                                                             ARITH       1226     A     
 ARITH                                                                                     ARITH       1227     A     
 ARITH     ID2      NE     B1,B5,ID3         IF NOT ORDINAL 1                              ARITH       1228     A     
 ARITH              SA3    VALUE.                                                          ARITH       1229     A     
 ARITH              ZR     X3,ID.E34         IF NOT A FUNCTION SUBPROGRAM                  ARITH       1230     A     
 ARITH              SB1    X3                                                              ARITH       1231     A     
 ARITH              SB2    B1+B1                                                           ARITH       1232     A     
 ARITH              SA1    A0-B2             WORD A OF VALUE.                              ARITH       1233     A     
 ARITH              SA2    A1-B5             WORD B                                        ARITH       1234     A     
 ARITH                                                                                     ARITH       1235     A     
 ARITH     ID3      SA5    REFSELCT        (REFERENCE MAP SELECTION--LOCAL COPY SO         ARITH       1236     A     
 ARITH                                       THAT FOR AN 'IXFN' CALL FOR LWA+1             ARITH       1237     A     
 ARITH                                       'ARITH' WILL NOT ACCUMULATE ANY REFS)         ARITH       1238     A     
 ARITH              SX6    B1                                                              ARITH       1239     A     
 ARITH              SX7    A1                                                              ARITH       1240     A     
 ARITH              SA6    IDORDL            SAVE SYMTAB ORDINAL                           ARITH       1241     A     
 ARITH              SA7    NAMFWA            ADDRESS OF WORD A OF SYMTAB ENTRY             ARITH       1242     A     
 ARITH              SA6    IDORDLTS                                                        ARITH       1243     A     
 ARITH              ZR     X5,IDREF3   IF NO LONG REFERENCE MAP                            ARITH       1244     A     
 ARITH              SX6    B7                (ALSO SAVE THE 'FIRST TIME SYMBOL             ARITH       1245     A     
 ARITH              SA4    EQCOUNT                                                         ARITH       1246     A     
 ARITH              SA6    =SFIRSTFLG                                                      ARITH       1247     A     
 ARITH              PL     X4,IDREF        IF NOT FIRST IXFN ID GO TO !IDREF!              ARITH       1248     A     
 ARITH              BX6    X6-X6                                                           ARITH       1249     A     
 ARITH              SA6    A4                                                              ARITH       1250     A     
 ARITH              ADDREF B1,REFTYPE      ADD A REFERENCE OF THE TYPE PREVIOUSLY          ARITH       1251     A     
 ARITH              ZR     IDREF2            DETERMINED BY THE CALLER.                     ARITH       1252     A     
 ARITH     IDREF    SA5    PARLEVEL        IF THE PARENTHESIS LEVEL IS NON-ZERO OR         ARITH       1253     A     
 ARITH              BX0    X0-X0             IF ALL THE EQUAL SIGNS HAVE BEEN              ARITH       1254     A     
 ARITH              IX1    X0-X5             PASSED, THEN THIS IS A REFERENCE              ARITH       1255     A     
 ARITH              IX2    X0-X4             ENCOUNTERED FLAG')                            ARITH       1256     A     
 ARITH              BX3    -X2+X1                                                          ARITH       1257     A     
 ARITH              MI     X3,IDREF1         GO TO 'IDREF1' TO FLAG REFERENCE.             ARITH       1258     A     
 ARITH              SPACE  1               OTHERWISE IT IS A DEFINITION.                   ARITH       1259     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2139    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              ADDREF B1,DEF          NOTE THE DEFINITION                             ARITH       1260     A     
 ARITH              ZR     IDREF2                                                          ARITH       1261     A     
 ARITH              SPACE  1                                                               ARITH       1262     A     
 ARITH    IDREF1    ADDREF B1,REF          NOTE THE REFERENCE                              ARITH       1263     A     
 ARITH     IDREF2   SA4    FIRSTFLG                                                        ARITH       1264     A     
 ARITH              SA3    NAMFWA                                                          ARITH       1265     A     
 ARITH              SA1    X3                WORD A                                        ARITH       1266     A     
 ARITH              SA2    A1-B5             WORD B                                        ARITH       1267     A     
 ARITH              SB7    X4                                                              ARITH       1268     A     
 ARITH     IDREF3   SA5    EPOINT          SET REGISTER B1 TO E+1                          ARITH       1269     A     
 ARITH              SB1    X5+1        RESTORE REGISTER B1 (POINSE TO NEXT E)              ARITH       1270     A     
 ARITH              BX6    X1                                                              ARITH       1271     A     
 ARITH              LX7    X2                                                              ARITH       1272     A     
 ARITH              SA6    NAME              SAVE SYMTAB ENTRY                             ARITH       1273     A     
 ARITH              SA7    A6+B5                                                           ARITH       1274     A     
 ARITH              ZR     B7,NIT          IF FIRST TIME SYMBOL ENCOUNTERED                ARITH       1275     A     
 ARITH    **        X1,X6 -- WORD 1 OF SYMBOL TABLE ENTRY FOR NAME                         ARITH       1276     A     
 ARITH    **        X2,X7 -- WORD 2 OF SYMBOL TABLE ENTRY FOR NAME                         ARITH       1277     A     
 ARITH                                                                                     ARITH       1278     A     
 ARITH    *         PREVIOUS OCCURANCES                                                    ARITH       1279     A     
 ARITH                                                                                     ARITH       1280     A     
 ARITH              MX0    L.TYP                                                           ARITH       1281     A     
 ARITH              BX3    X0*X2                                                           ARITH       1282     A     
 ARITH              LX3    L.TYP                                                           ARITH       1283     A     
 ARITH              SX4    X3-T.OCT-1                                                      ARITH       1284     A     
 ARITH              PL     X4,ID12           IF AN ILLEGAL TYPE                            ARITH       1285     A     
 ARITH                                                                                     ARITH       1286     A     
 ARITH              LX6    59-P.FUN                                                        ARITH       1287     A     
 ARITH              NG     X6,ID8A           IF A FUNCTION                                 ARITH       1288     A     
 ARITH              MX0    -L.LVL                                                          ARITH       1289     A     
 ARITH              LX2    -P.LVL                                                          ARITH       1290     A     
 ARITH              BX3    -X0*X2            OBTAIN LEVEL NUMBER OF VARIABLE               ARITH       1291     A     
 ARITH              LX2    P.LVL                                                           ARITH       1292     A     
 ARITH              SX4    X3-3                                                            ARITH       1293     A     
 ARITH              ZR     X4,LEVEL          IF LEVEL 3 VARIABLE                           ARITH       1294     A     
 ARITH     IDREF.3  LX6    P.FUN-P.DIM                                                     ARITH       1295     A     
 ARITH              NG     X6,ARRAY          IF AN ARRAY                                   ARITH       1296     A     
 ARITH                                                                                     ARITH       1297     A     
 ARITH              SA3    B1-B5             E+1                                           ARITH       1298     A     
 ARITH              UX4    B2,X3                                                           ARITH       1299     A     
 ARITH              SB3    EL.(                                                            ARITH       1300     A     
 ARITH              LX7    59-P.VAR                                                        ARITH       1301     A     
 ARITH              PL     X7,ID4            IF NO PREVIOUS USEAGE AS A VARIABLE           ARITH       1302     A     
 ARITH                                                                                     ARITH       1303     A     
 ARITH              NE     B2,B3,VR3         IF NOT A (                                    ARITH       1304     A     
 ARITH     IDER2    EERR   ERMSG2            SIMPLE VAR FOLLOWED BY (                      ARITH       1305     A     
 ARITH                                                                                     ARITH       1306     A     
 ARITH     ID4      NE     B2,B3,VR4         IF NEXT IS NOT A (                            ARITH       1307     A     
 ARITH              LX1    59-P.FP                                                         ARITH       1308     A     
 ARITH              LX2    59-P.EXT                                                        ARITH       1309     A     
 ARITH              BX3    X1+X2                                                           ARITH       1310     A     
 ARITH              NG     X3,ID6            IF F.P. OR EXT                                ARITH       1311     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2140    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SB7    ID5               NOT FOUND ADDR                                ARITH       1312     A     
 ARITH              RJ     BEFTLU            CHECK BASIC EXT FUN TBL                       ARITH       1313     A     
 ARITH              EQ     ID10              IF FOUND                                      ARITH       1314     A     
 ARITH                                                                                     ARITH       1315     A     
 ARITH    *     ID5 IF NOT IN BASIC EXT. SEE IF IN INTRINSIC TBL                           ARITH       1316     A     
 ARITH     ID5      SB7       ID6                                                          ARITH       1317     A     
 ARITH              RJ        IFTLU                                                        ARITH       1318     A     
 ARITH     ID10     SA1       NAME+1    SEE IF SAME TYPE                                   ARITH       1319     A     
 ARITH              BX2    X1-X5                                                           ARITH       1320     A     
 ARITH              AX2    60-L.TYP                                                        ARITH       1321     A     
 ARITH              NZ     X2,ID6       IF NOT SAME TYPE                                   ARITH       1322     A     
 ARITH     ID8      SA1       NAME      HERE IF FUN INT OR BASIC.  ENTER INTO SYMT         ARITH       1323     A     
 ARITH              SA2       NAME+1    SAVE POINTERS                                      ARITH       1324     A     
 ARITH              MX0    L.DIF                                                           ARITH       1325     A     
 ARITH              LX0    1+P.AC                                                          ARITH       1326     A     
 ARITH              BX7    X0*X2             GET DEBUG BITS                                ARITH       1327     A     
 ARITH              MX0       60-12                                                        ARITH       1328     A     
 ARITH              BX1   -X0*X1                                                           ARITH       1329     A     
 ARITH              BX2   -X0*X2                                                           ARITH       1330     A     
 ARITH              BX5    X0*X5        IN CASE RNM FLAG ON (SOME INTR FUNCS)              ARITH       1331     A     
 ARITH              BX6    X1+X4                                                           ARITH       1332     A     
 ARITH              BX5    X5+X7             FUNC + DEBUG BITS                             ARITH       1333     A     
 ARITH              BX7    X2+X5                                                           ARITH       1334     A     
 ARITH              SA1       NAMFWA                                                       ARITH       1335     A     
 ARITH              SA6    X1                                                              ARITH       1336     A     
 ARITH              SA7    X1-1                                                            ARITH       1337     A     
 ARITH              SX6    A4                                                              ARITH       1338     A     
 ARITH              SA6    TYADR             ADDRESS OF FUNCTION TABLE ENTRY               ARITH       1339     A     
 ARITH              EQ     FUNC                                                            ARITH       1340     A     
 ARITH     ID8A     LX2    59-P.LIB                                                        ARITH       1341     A     
 ARITH              MI     X2,ID8C           IF A BASIC EXTERNAL                           ARITH       1342     A     
 ARITH              LX2    P.LIB-P.INF                                                     ARITH       1343     A     
 ARITH              PL     X2,FUNC           IF NOT AN INTRINSIC FUNCTION                  ARITH       1344     A     
 ARITH              RJ     IFTLU                                                           ARITH       1345     A     
 ARITH     ID8B     SX6    A4                                                              ARITH       1346     A     
 ARITH              SA6    TYADR             SAVE FUNCTION TABLE ADDRESS                   ARITH       1347     A     
 ARITH              EQ     FUNC                                                            ARITH       1348     A     
 ARITH                                                                                     ARITH       1349     A     
 ARITH     ID8C     RJ     BEFTLU                                                          ARITH       1350     A     
 ARITH              EQ     ID8B                                                            ARITH       1351     A     
 ARITH                                                                                     ARITH       1352     A     
 ARITH    *         FIRST OCCURANCE                                                        ARITH       1353     A     
 ARITH                                                                                     ARITH       1354     A     
 ARITH     NIT      SA3    B1-B5             E+1                                           ARITH       1355     A     
 ARITH              UX0    B2,X3                                                           ARITH       1356     A     
 ARITH              SB3    EL.(                                                            ARITH       1357     A     
 ARITH              EQ     B2,B3,ID7         IF USED AS A FUNCTION                         ARITH       1358     A     
 ARITH              SX0    B5                                                              ARITH       1359     A     
 ARITH              LX0    P.VAR                                                           ARITH       1360     A     
 ARITH              BX7    X0+X2             SET VAR BIT                                   ARITH       1361     A     
 ARITH              SA7    A2                                                              ARITH       1362     A     
 ARITH              EQ     VR3                                                             ARITH       1363     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2141    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    *     VR4 IF ID HAS ONLY APPEARED IN TYPE STATE. AND/OR DMY ARG LIST AND         ARITH       1364     A     
 ARITH    *  NOT FOLLOWED BY L.P.                                                          ARITH       1365     A     
 ARITH    *  OR IF 1ST APPEARANCE OF VARIABLE IS AS 1ST ELEMENT IN A REPLACEMENT           ARITH       1366     A     
 ARITH    *  STATEMENT. (TYPE SET AT ARITH4)                                               ARITH       1367     A     
 ARITH     VR4      SA3       NAMFWA    ENTER VAR FG BIT IF NOT EXT PROC.NAME.             ARITH       1368     A     
 ARITH              MX0       1                                                            ARITH       1369     A     
 ARITH              SA2       NAME+1                                                       ARITH       1370     A     
 ARITH              LX0    1+P.VAR                                                         ARITH       1371     A     
 ARITH              BX6    X2+X0                                                           ARITH       1372     A     
 ARITH              LX2    59-P.EXT          CHECK EXTERNAL BIT                            ARITH       1373     A     
 ARITH              NG     X2,FUNC      IF EXT PROCD NAME (MUST BE DMY ARG)                ARITH       1374     A     
 ARITH              LX2    P.EXT-59                                                        ARITH       1375     A     
 ARITH              SA6    X3-1                                                            ARITH       1376     A     
 ARITH              ZR        VR3                                                          ARITH       1377     A     
 ARITH    *                                                                                ARITH       1378     A     
 ARITH    *     ID7 IF 1ST APPEARANCE OF FUN NAME                                          ARITH       1379     A     
 ARITH     ID7      SB7       ID9       SET NOT-FOUND ADR                                  ARITH       1380     A     
 ARITH              RJ        BEFTLU                                                       ARITH       1381     A     
 ARITH              ZR        ID8                                                          ARITH       1382     A     
 ARITH     ID9      SB7       ID6                                                          ARITH       1383     A     
 ARITH              RJ        IFTLU                                                        ARITH       1384     A     
 ARITH              ZR        ID8                                                          ARITH       1385     A     
 ARITH    *                                                                                ARITH       1386     A     
 ARITH    *     ID6 IF ID IS GEN.EXT.FUN                                                   ARITH       1387     A     
 ARITH     ID6      MX0       1         TURN ON EXT BIT IN SYMTAB ENTRY                    ARITH       1388     A     
 ARITH              LX0    1+P.EXT                                                         ARITH       1389     A     
 ARITH              SA2       NAME+1                                                       ARITH       1390     A     
 ARITH              SA3       NAMFWA                                                       ARITH       1391     A     
 ARITH              BX6    X2+X0                                                           ARITH       1392     A     
 ARITH              SA6       NAME+1                                                       ARITH       1393     A     
 ARITH              SA6    X3-1                                                            ARITH       1394     A     
 ARITH              SA1       NAME      TURN ON FUN BIT                                    ARITH       1395     A     
 ARITH              LX0    P.FUN-P.EXT                                                     ARITH       1396     A     
 ARITH              BX7    X1+X0                                                           ARITH       1397     A     
 ARITH              SA7    A6+1                                                            ARITH       1398     A     
 ARITH              LX6    59-P.FCALL                                                      FCC2307       18     A     
 ARITH              PL     X6,FUNC1    IF NOT ALSO USED AS SUBROUTINE                      FCC2307       19     A     
 ARITH              USASDM  E328       SAME NAME USED AS FUNCTION AND SUBROUTINE           FCC2307       20     A     
 ARITH              EQ     FUNC1                                                           FCC2307       21     A     
 ARITH              EQ     FUNC1                                                           ARITH       1399     A     
 ARITH                                                                                     ARITH       1400     A     
 ARITH    **        LDVRB - OUTPUT LOAD FOR A VARIABLE                                     ARITH       1401     A     
 ARITH                                                                                     ARITH       1402     A     
 ARITH     VR3      MX7    0                                                               ARITH       1403     A     
 ARITH              SB7       LDVRB1    LDVRB1 IF NOT EQUIVED                              ARITH       1404     A     
 ARITH              SA7       VCA       CLEAR                                              ARITH       1405     A     
 ARITH              SA7    IDORDLTS+1                                                      ARITH       1406     A     
 ARITH              RJ        EQUIVR                                                       ARITH       1407     A     
 ARITH              SA6       VCA       HERE IF EQUIVALECED                                ARITH       1408     A     
 ARITH              SA7       IDORDL                                                       ARITH       1409     A     
 ARITH     LDVRB1   SA1       VCA                                                          ARITH       1410     A     
 ARITH              SB7    X1           CA                                                 ARITH       1411     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2142    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SB6    B0           RF                                                 ARITH       1412     A     
 ARITH              SA5    IDORDL       H                                                  ARITH       1413     A     
 ARITH              RJ        FETCH     OUTPUT NORMAL VARIABLE LOAD MACRO                  ARITH       1414     A     
 ARITH              EQ     NEXTE                                                           ARITH       1415     A     
 ARITH                                                                                     ARITH       1416     A     
 ARITH     ID12     EERR      ERMSG49   FE: ILLEGAL OPD TYPE                               ARITH       1417     A     
 ARITH     SSP      TITLE  SSP - STANDARD SUBSCRIPT PROCESSOR.                             ARITH       1418     A     
 ARITH     ERMSG75  EQU    75          CONSTANT ARRAY REFERENCE OUT-OF-BOUNDS              ARITH       1419     A     
 ARITH     LEV      OCTMIC P.LVL                                                           FCC0385        4     A     
 ARITH     V.LEV3   EQU    3S"LEV"                                                         FCC0385        5     A     
 ARITH                                                                                     ARITH       1420     A     
 ARITH     MVARS    EQU    2           VARIABLES ALLOWED IN TERM OF IXFN                   ARITH       1421     A     
 ARITH     DCF      BSS    1           DOUBLE/COMPLEX FLAG                                 ARITH       1422     A     
 ARITH     TARLPT   BSS    1           TEMPORARY ARLIST POINTER                            ARITH       1423     A     
 ARITH     REFTEMP  BSS    1           TEMP CELL FOR ADDREF LOOP                           ARITH       1424     A     
 ARITH     INC      CON    1           INCREMENT FOR ADDRESSING IXFN TERMS                 ARITH       1425     A     
 ARITH     TEP      BSS    1           TEMP E-LIST POINTER                                 ARITH       1426     A     
 ARITH     NDIMS    BSS    1           ARRAY DIMENSIONALITY                                ARITH       1427     A     
 ARITH     OBR      BSS    1           OUT-OF-BOUNDS REF FLAG                              ARITH       1428     A     
 ARITH                                                                                     ARITH       1429     A     
 ARITH    *         STORAGE BETWEEN O.TTS AND L.TTS IS INITIALIZED AT THE                  ARITH       1430     A     
 ARITH    *         START OF EACH TERM OF A STANDARD SUBSCRIPT.                            ARITH       1431     A     
 ARITH                                                                                     ARITH       1432     A     
 ARITH     O.TTS    BSS    0                                                               ARITH       1433     A     
 ARITH     ACT      BSS    1           ADDITIVE CONSTANT                                   ARITH       1434     A     
 ARITH     COMP     BSS    1           COMPLEMENT FLAG                                     ARITH       1435     A     
 ARITH     CONSTT   BSS    1           CONSTANT TEMP                                       ARITH       1436     A     
 ARITH     IDF      BSS    1           ID ENCOUNTERED FLAG                                 ARITH       1437     A     
 ARITH     PMF      BSS    1           PLUS-OR-MINUS-ENCOUNTERED FLAG                      ARITH       1438     A     
 ARITH     VAR      BSS    MVARS       VARIABLE IH,CA ARRAY                                ARITH       1439     A     
 ARITH     VARS     BSS    1           VARIABLE-IN-TERM ORDINAL                            ARITH       1440     A     
 ARITH     L.TTS    EQU    *-O.TTS                                                         ARITH       1441     A     
 ARITH                                                                                     ARITH       1442     A     
 ARITH     MC       BSS    MVARS+1     MULTIPLICATIVE CONSTANTS                            ARITH       1443     A     
 ARITH                                                                                     ARITH       1444     A     
 ARITH    *         FOLLOWING CELLS ARE INITIALIZED (TO ZERO) AT THE START                 ARITH       1445     A     
 ARITH    *         OF IXFN PROCESSING ONLY.                                               ARITH       1446     A     
 ARITH                                                                                     ARITH       1447     A     
 ARITH     TERM     BSS    1           CURRENT TERM WITHIN IXFN                            ARITH       1448     A     
 ARITH     NANSI    BSS    1           NON-ANSI IXFN FLAG                                  ARITH       1449     A     
 ARITH     DAF      BSS    1           DEBUG ARRAYS CHECK FLAG                             ARITH       1450     A     
 ARITH                                                                                     ARITH       1451     A     
 ARITH    *         FORM BIT MASK OF E-LIST OP-CODES THAT ARE ELEMENTS OF                  ARITH       1452     A     
 ARITH    *         STANDARD SUBSCRIPTS.                                                   ARITH       1453     A     
 ARITH                                                                                     ARITH       1454     A     
 ARITH     EL.RP    EQU    EL.)                                                            ARITH       1455     A     
 ARITH     IMASK    BSS    0                                                               ARITH       1456     A     
 ARITH              ECHO   2,P=(CON,ID,RP,COMMA,PLUS,MINUS,STAR)                           ARITH       1457     A     
 ARITH              POS    60-EL.P                                                         ARITH       1458     A     
 ARITH              VFD    1/1                                                             ARITH       1459     A     
 ARITH              VFD    *P/0                                                            ARITH       1460     A     
 ARITH                                                                                     ARITH       1461     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2143    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     ARRAY    SB5    1                                                               ARITH       1462     A     
 ARITH              SA2    IDORDL                                                          ARITH       1463     A     
 ARITH              BX6    X2                                                              ARITH       1464     A     
 ARITH              SA6    SARORD      FOR SSP.NS                                          ARITH       1465     A     
 ARITH              SA1    NAME+1      WORD B OF SYMTAB ENTRY FOR ARRAY                    ARITH       1466     A     
 ARITH              MX0    -L.DIMP                                                         ARITH       1467     A     
 ARITH              LX1    -P.DIMP                                                         ARITH       1468     A     
 ARITH              BX2    -X0*X1                                                          ARITH       1469     A     
 ARITH              SA3    DIM1                                                            ARITH       1470     A     
 ARITH              LX2    1                                                               ARITH       1471     A     
 ARITH              SB2    X3+B5                                                           ARITH       1472     A     
 ARITH              SA1    X2+B2       WORD 2 OF DIM ENTRY                                 ARITH       1473     A     
 ARITH              BX6    X1                                                              ARITH       1474     A     
 ARITH              SA6    SDIMIN      SAVE DIMENSION INFO                                 ARITH       1475     A     
 ARITH              SA1    EPOINT                                                          ARITH       1476     A     
 ARITH              LX6    3                                                               ARITH       1477     A     
 ARITH              MX0    -3                                                              ARITH       1478     A     
 ARITH              BX7    -X0*X6                                                          ARITH       1479     A     
 ARITH              SA2    X1                                                              ARITH       1480     A     
 ARITH              SA7    NDIMS       NUMBER OF DIMENSIONS FOR THIS ARRAY                 ARITH       1481     A     
 ARITH              UX0    B2,X2                                                           ARITH       1482     A     
 ARITH              SB3    B2-EL.(                                                         ARITH       1483     A     
 ARITH              NZ     B3,NSAN     IF NEXTE .NE. (                                     ARITH       1484     A     
 ARITH              BX6    X1                                                              ARITH       1485     A     
 ARITH              SA6    TEP         TEMP ELIST POINTER AT LEFT PAREN                    ARITH       1486     A     
 ARITH              SA1    X1-1                                                            ARITH       1487     A     
 ARITH              UX0    B4,X1       B4 = OC(NEXTE)                                      ARITH       1488     A     
 ARITH              CALL   SSERR3      CHECK NEXTE SYNTAX FOR (                            ARITH       1489     A     
 ARITH              SETZERO  O.TTS,L.TTS   INITIALIZE TERM-TEMP CELLS                      ARITH       1490     A     
 ARITH              MX7    0                                                               ARITH       1491     A     
 ARITH              SA7    TERM        TERM = 0                                            ARITH       1492     A     
 ARITH              SA7    NANSI       NANSI = 0                                           ARITH       1493     A     
 ARITH              SA7    DAF         DAF = 0                                             ARITH       1494     A     
 ARITH              SX6    B5                                                              ARITH       1495     A     
 ARITH              SA6    MC          MC(1) = 1                                           ARITH       1496     A     
 ARITH              SA6    A6+B5       MC(2) = 1                                           ARITH       1497     A     
 ARITH              SA6    A6+B5       MC(3) = 1                                           ARITH       1498     A     
 ARITH                                                                                     ARITH       1499     A     
 ARITH              SA1    =XDFLAG                                                         ARITH       1500     A     
 ARITH              SA2    NAME+1      WORD B                                              ARITH       1501     A     
 ARITH              ZR     X1,ARRAY1   IF NOT DEBUG MODE                                   ARITH       1502     A     
 ARITH              SA4    =XALLARR                                                        ARITH       1503     A     
 ARITH              MX0    -L.DIF                                                          ARITH       1504     A     
 ARITH              LX2    -P.DIF                                                          ARITH       1505     A     
 ARITH              BX3    -X0*X2                                                          ARITH       1506     A     
 ARITH              BX6    X3+X4                                                           ARITH       1507     A     
 ARITH              SA6    DAF         .NE. 0 IF ANY DEBUGGING ON FOR THIS ARRAY           ARITH       1508     A     
 ARITH              LX2    P.DIF       RESTORE WORD B                                      ARITH       1509     A     
 ARITH                                                                                     ARITH       1510     A     
 ARITH     ARRAY1   SA1    ARLPT       NEXT ARLIST ENTRY LOCATION                          ARITH       1511     A     
 ARITH              MX0    -L.TYP                                                          ARITH       1512     A     
 ARITH              LX2    -P.TYP                                                          ARITH       1513     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2144    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              BX6    -X0*X2      ARRAY TYPE                                          ARITH       1514     A     
 ARITH              SB7    X6-T.DBL                                                        ARITH       1515     A     
 ARITH              MX6    0                                                               ARITH       1516     A     
 ARITH              MI     B7,ARRAY2   IF ARRAY TYPE .LT. T.DBLE                           ARITH       1517     A     
 ARITH              GT     B7,B5,ARRAY2  IF ARRAY TYPE .GT. T.CPLX                         ARITH       1518     A     
 ARITH              SX6    B5                                                              ARITH       1519     A     
 ARITH                                                                                     ARITH       1520     A     
 ARITH     ARRAY2   SA6    DCF         STORE DOUBLE/COMPLEX FLAG                           ARITH       1521     A     
 ARITH              SA2    NDIMS                                                           ARITH       1522     A     
 ARITH              LX3    X2,B5                                                           ARITH       1523     A     
 ARITH              SX7    X1+5                                                            ARITH       1524     A     
 ARITH              IX5    X2+X3                                                           ARITH       1525     A     
 ARITH              SA7    TARLPT      POINTS TO START OF TERM INFO                        ARITH       1526     A     
 ARITH              SX6    X5+6-ARLSZ  WORDS POSSIBLY REQUIRED = 3*NDIMS + 6               ARITH       1527     A     
 ARITH              IX2    X1+X6                                                           ARITH       1528     A     
 ARITH              PL     X2,ARLOVER  IF INSUFFICIENT ROOM IN ARLIST                      ARITH       1529     A     
 ARITH     SSP0     EJECT                                                                  ARITH       1530     A     
 ARITH    *         MAIN LOOP FOR STANDARD SUBSCRIPT E-LIST CRACKING.                      ARITH       1531     A     
 ARITH                                                                                     ARITH       1532     A     
 ARITH     SSP0     SA5    TEP         E-LIST POINTER WITHIN SSP                           ARITH       1533     A     
 ARITH              SA4    X5-1        TEP = TEP + 1                                       ARITH       1534     A     
 ARITH              UX1    B2,X4       B2 = OC(TEP) , X1 = ELIST(TEP)                      ARITH       1535     A     
 ARITH              SA3    A4-B5                                                           ARITH       1536     A     
 ARITH              UX2    B4,X3       B4 = OC(TEP+1) , X2 = ELIST(TEP+1)                  ARITH       1537     A     
 ARITH              SX6    A4                                                              ARITH       1538     A     
 ARITH              SA3    IMASK                                                           ARITH       1539     A     
 ARITH              SA6    A5          UPDATE TEP                                          ARITH       1540     A     
 ARITH              LX4    B2,X3                                                           ARITH       1541     A     
 ARITH              PL     X4,SSP.NS   IF ELIST(TEP) NOT STAND. SUB. ELEMENT               ARITH       1542     A     
 ARITH              SB3    B2-EL.MINUS                                                     ARITH       1543     A     
 ARITH              MI     B3,SSP01    IF OC(TEP) .LT. EL.MINUS                            ARITH       1544     A     
 ARITH              SB2    B2-EL.MINUS+EL.COMMA+1                                          ARITH       1545     A     
 ARITH                                                                                     ARITH       1546     A     
 ARITH     SSP01    JP     SSP.JT+B2                                                       ARITH       1547     A     
 ARITH     SSP.JT   BSS    0                                                               ARITH       1548     A     
 ARITH              LOC    EL.CON                                                          ARITH       1549     A     
 ARITH              EQ     PSC         OC(TEP) = EL.CON                                    ARITH       1550     A     
 ARITH              EQ     PSI                   EL.ID                                     ARITH       1551     A     
 ARITH              EQ     PSR                   EL.)                                      ARITH       1552     A     
 ARITH              EQ     PCO                   EL.COMMA                                  ARITH       1553     A     
 ARITH              LOC    EL.MINUS                                                        ARITH       1554     A     
 ARITH              EQ     PSM                   EL.MINUS                                  ARITH       1555     A     
 ARITH              EQ     PSP                   EL.PLUS                                   ARITH       1556     A     
 ARITH              EQ     PSS                   EL.STAR                                   ARITH       1557     A     
 ARITH              LOC    *O                                                              ARITH       1558     A     
 ARITH     PSC      SPACE  4,5                                                             ARITH       1559     A     
 ARITH    **        PSC - PROCESS SUBSCRIPT CONSTANTS.                                     ARITH       1560     A     
 ARITH                                                                                     ARITH       1561     A     
 ARITH     PSC      CALL   ECON                                                            ARITH       1562     A     
 ARITH              SA6    CONSTT                                                          ARITH       1563     A     
 ARITH              EQ     SSP0                                                            ARITH       1564     A     
 ARITH     ECON     SPACE  3,8                                                             ARITH       1565     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2145    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    **        ECON- PROCESS E-LIST CONSTANTS FOR STANDARD SUBSCRIPT                  ARITH       1566     A     
 ARITH    *         PROCESSING.                                                            ARITH       1567     A     
 ARITH    *                                                                                ARITH       1568     A     
 ARITH    *         ENTRY  (X1) = ELIST FOR CONSTANT                                       ARITH       1569     A     
 ARITH    *                                                                                ARITH       1570     A     
 ARITH    *         EXITS TO SSP.NS IF CONSTANT .GE. 1S17 OR IF IT IS NOT                  ARITH       1571     A     
 ARITH    *         TYPE INTEGER OR OCTAL.                                                 ARITH       1572     A     
 ARITH    *         OTHERWISE, RETURNS THROUGH ENTRY POINT WITH (X6) = CONVERTED           ARITH       1573     A     
 ARITH    *         CONSTANT.                                                              ARITH       1574     A     
 ARITH                                                                                     ARITH       1575     A     
 ARITH     ECON     ENTRY. *                                                               ARITH       1576     A     
 ARITH              BX2    X1          X2 = X1 = ELIST                                     ARITH       1577     A     
 ARITH              LX2    15                                                              ARITH       1578     A     
 ARITH              MX0    -3                                                              ARITH       1579     A     
 ARITH              BX3    -X0*X2                                                          ARITH       1580     A     
 ARITH              SX7    X3-T.INT                                                        ARITH       1581     A     
 ARITH              SX4    X3-T.OCT                                                        ARITH       1582     A     
 ARITH              ZR     X7,ECON1    IF TYPE(CON) = T.INT                                ARITH       1583     A     
 ARITH              NZ     X4,SSP.NS   IF TYPE(CON) .NE. T.OCT                             ARITH       1584     A     
 ARITH              SA7    NANSI                                                           ARITH       1585     A     
 ARITH                                                                                     ARITH       1586     A     
 ARITH     ECON1    SB1    -B5                                                             ARITH       1587     A     
 ARITH              CALL   CONVERT                                                         ARITH       1588     A     
 ARITH              BX6    X1                                                              ARITH       1589     A     
 ARITH              AX1    17          CONSTANT IS POSITIVE                                ARITH       1590     A     
 ARITH              NZ     X1,SSP.NS   IF CON .GE. 1S17                                    ARITH       1591     A     
 ARITH              SA5    COMP                                                            ARITH       1592     A     
 ARITH              ZR     X5,ECON     IF COMPLEMENT FLAG OFF                              ARITH       1593     A     
 ARITH              MX7    0                                                               ARITH       1594     A     
 ARITH              BX6    -X6                                                             ARITH       1595     A     
 ARITH              SA7    A5          TURN OFF COMPLEMENT FLAG                            ARITH       1596     A     
 ARITH              EQ     ECON                                                            ARITH       1597     A     
 ARITH     PSI      SPACE  4,8                                                             ARITH       1598     A     
 ARITH    **        PSI - PROCESS SUBSCRIPT ID/S.                                          ARITH       1599     A     
 ARITH                                                                                     ARITH       1600     A     
 ARITH     PSI      SA3    VARS        NUMBER OF VARIABLES IN CURRENT TERM                 ARITH       1601     A     
 ARITH              SB1    EL.(                                                            ARITH       1602     A     
 ARITH              EQ     B4,B1,SSP.NS  IF NEXTE IS LEFT PAREN.                           ARITH       1603     A     
 ARITH                                                                                     ARITH       1604     A     
 ARITH    *         FOLLOWING TEST IS NECESSARY TO PREVENT FILING A FUNCTION               ARITH       1605     A     
 ARITH    *         AS VARIABLE IF FIRST OCCURANCE.                                        ARITH       1606     A     
 ARITH                                                                                     ARITH       1607     A     
 ARITH              SX5    X3-MVARS                                                        ARITH       1608     A     
 ARITH              SX6    X3+B5                                                           ARITH       1609     A     
 ARITH              PL     X5,SSP.NS   IF MORE VARIABLES IN TERM THAN ALLOWED              ARITH       1610     A     
 ARITH              SA6    A3          VARS = VARS + 1                                     ARITH       1611     A     
 ARITH              SA6    IDF         FLAG ID ENCOUNTERED IN TERM                         ARITH       1612     A     
 ARITH              SYMBOL                                                                 ARITH       1613     A     
 ARITH              IX5    X7+X2                                                           ARITH       1614     A     
 ARITH              BX6    X5+X6                                                           ARITH       1615     A     
 ARITH              SA6    A2          UPDATE WORD B                                       ARITH       1616     A     
 ARITH              LX2    X6                                                              ARITH       1617     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2146    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              NE     B1,B5,PSI1  IF ORD .NE. 1                                       ARITH       1618     A     
 ARITH              SA3    =XVALUE.                                                        ARITH       1619     A     
 ARITH              ZR     X3,SSP.NS   IF NOT FUNCTION SUBPROGRAM                          ARITH       1620     A     
 ARITH              SB1    X3                                                              ARITH       1621     A     
 ARITH              SB2    B1+B1                                                           ARITH       1622     A     
 ARITH              SA1    A0-B2                                                           ARITH       1623     A     
 ARITH              SA2    A1-B5                                                           ARITH       1624     A     
 ARITH                                                                                     ARITH       1625     A     
 ARITH     PSI1     SX6    V.FUN+V.DIM                                                     ARITH       1626     A     
 ARITH              SX0    V.LEV3                                                          FCC0385        6     A     
 ARITH              BX4    X6*X1                                                           ARITH       1627     A     
 ARITH              BX3    -X2*X0                                                          FCC0385        7     A     
 ARITH              SX0    B5                                                              ARITH       1628     A     
 ARITH              NZ     X4,SSP.NS   IF TYPE FUNCTION OR DIMENSIONED                     ARITH       1629     A     
 ARITH              ZR     X3,SSP.NS   IF LEVEL = 3                                        FCC0385        8     A     
 ARITH              LX0    P.VAR                                                           ARITH       1630     A     
 ARITH              BX6    X0+X2                                                           ARITH       1631     A     
 ARITH              LX2    59-P.EXT                                                        ARITH       1632     A     
 ARITH              MI     X2,SSP.NS   IF EXTERNAL                                         ARITH       1633     A     
 ARITH              SA6    A2          SET VAR BIT                                         ARITH       1634     A     
 ARITH              AX6    P.TYP                                                           ARITH       1635     A     
 ARITH              SX3    X6-T.INT                                                        ARITH       1636     A     
 ARITH              SX6    B1                                                              ARITH       1637     A     
 ARITH              NZ     X3,SSP.NS   IF NOT INTEGER                                      ARITH       1638     A     
 ARITH              SA3    VARS        NUMBER OF VARIABLES IN TERM                         ARITH       1639     A     
 ARITH              SA6    X3+VAR-1    VAR(VARS) = IH                                      ARITH       1640     A     
 ARITH              EQ     SSP0                                                            ARITH       1641     A     
 ARITH     PSR      SPACE  4,8                                                             ARITH       1642     A     
 ARITH    **        PSR - PROCESS SUBSCRIPT RIGHT PARENTHESIS.                             ARITH       1643     A     
 ARITH                                                                                     ARITH       1644     A     
 ARITH     PSR      SA3    TERM                                                            ARITH       1645     A     
 ARITH              SX6    X3+B5                                                           ARITH       1646     A     
 ARITH              SA6    A3          TERM = TERM + 1                                     ARITH       1647     A     
 ARITH              SB3    EL.(                                                            ARITH       1648     A     
 ARITH              LE     B4,B5,SSP.NS  IF OC(NEXTE) .LE. OC.ID                           ARITH       1649     A     
 ARITH              EQ     B4,B3,SSP.NS  IF OC(NEXTE) .EQ. EL.(                            ARITH       1650     A     
 ARITH              CALL   DIT         DUMP IXFN TERM TO ARLIST                            ARITH       1651     A     
 ARITH              SA1    TARLPT                                                          ARITH       1652     A     
 ARITH              MX7    60                                                              ARITH       1653     A     
 ARITH              SA7    X1+ARLIST   ARLIST(TERM + 1) = -0                               ARITH       1654     A     
 ARITH              SUB                                                                    ARITH       1655     A     
 ARITH              EQ     PIM         PROCESS IXFN MACRO                                  ARITH       1656     A     
 ARITH     PCO      SPACE  3,8                                                             ARITH       1657     A     
 ARITH    **        PCO - PROCESS SUBSCRIPT COMMA.                                         ARITH       1658     A     
 ARITH                                                                                     ARITH       1659     A     
 ARITH     PCO      SA3    TERM                                                            ARITH       1660          I
          -FCC1226
 ARITH     PCO      RJ     SSERR3                                                          FCC1226        4     A     
 ARITH              SA3    TERM                                                            FCC1226        5     A     
 ARITH              SA4    NDIMS                                                           ARITH       1661     A     
 ARITH              SX6    X3+B5       T = TERM + 1                                        ARITH       1662     A     
 ARITH              IX5    X4-X6                                                           ARITH       1663     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2147    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              ZR     X5,SSP.NS   IF T .EQ. NDIMS                                     ARITH       1664     A     
 ARITH              SA6    A3          TERM = T                                            ARITH       1665     A     
 ARITH              CALL   DIT         DUMP IXFN TERM TO ARLIST                            ARITH       1666     A     
 ARITH              SETZERO  O.TTS,L.TTS   INITIALIZE TERM-TEMP CELLS                      ARITH       1667     A     
 ARITH              SX6    B5                                                              ARITH       1668     A     
 ARITH              SA6    MC          MC(1) = 1                                           ARITH       1669     A     
 ARITH              SA6    A6+B5       MC(2) = 1                                           ARITH       1670     A     
 ARITH              SA6    A6+B5       MC(3) = 1                                           ARITH       1671     A     
 ARITH              EQ     SSP0                                                            ARITH       1672     A     
 ARITH     PSM      SPACE  4,8                                                             ARITH       1673     A     
 ARITH    **        PSM - PROCESS SUBSCRIPT MINUS SIGN.                                    ARITH       1674     A     
 ARITH                                                                                     ARITH       1675     A     
 ARITH     PSM      CALL   PPM         COMMON PLUS-MINUS PROCESSING                        ARITH       1676     A     
 ARITH              MX7    59                                                              ARITH       1677     A     
 ARITH              ZR     B4,PSM1     IF NEXTE IS CONSTANT                                ARITH       1678     A     
 ARITH              NE     B4,B5,SSP.NS      IF NEXTE IS NOT ID                            ARITH       1679     A     
 ARITH              SA3    VARS        VARIABLES IN THIS TERM SO FAR                       ARITH       1680     A     
 ARITH              SA7    X3+MC       MC(VARS+1) = -1                                     ARITH       1681     A     
 ARITH              EQ     SSP0                                                            ARITH       1682     A     
 ARITH                                                                                     ARITH       1683     A     
 ARITH     PSM1     SA7    COMP        COMPLEMENT FLAG .NE. 0                              ARITH       1684     A     
 ARITH              EQ     SSP0                                                            ARITH       1685     A     
 ARITH     PSP      SPACE  3,8                                                             ARITH       1686     A     
 ARITH    **        PSP - PROCESS SUBSCRIPT PLUS SIGN.                                     ARITH       1687     A     
 ARITH                                                                                     ARITH       1688     A     
 ARITH     PSP      CALL   PPM         COMMON PLUS-MINUS PROCESSING                        ARITH       1689     A     
 ARITH              EQ     SSP0                                                            ARITH       1690     A     
 ARITH     PPM      SPACE  3,8                                                             ARITH       1691     A     
 ARITH    **        PPM - PROCESS PLUS OR MINUS.                                           ARITH       1692     A     
 ARITH    *         PPM CHECKS FOR VALID SYNTAX AND ANSI COMPATABILITY.                    ARITH       1693     A     
 ARITH    *         IT ALSO ADDS THE CURRENT CONTENTS OF THE TEMP CONSTANT                 ARITH       1694     A     
 ARITH    *         BUFFER, CONST, TO THE ACCUMULATED ADDITIVE CONSTANT IN                 ARITH       1695     A     
 ARITH    *         ACT.  THE ID-ENCOUNTERED FLAG, IDF, AND THE CONST BUFFER               ARITH       1696     A     
 ARITH    *         ARE THEN BOTH ZEROED.                                                  ARITH       1697     A     
 ARITH                                                                                     ARITH       1698     A     
 ARITH     PPM      ENTRY. *                                                               ARITH       1699     A     
 ARITH              CALL   SSERR6      CHECK THIS-NEXT SYNTAX                              ARITH       1700     A     
 ARITH              MX7    1                                                               ARITH       1701     A     
 ARITH              ZR     B4,PPM1     IF NEXTE IS CONSTANT                                ARITH       1702     A     
 ARITH              SA7    NANSI       NON-ANSI USE                                        ARITH       1703     A     
 ARITH              EQ     PPM3                                                            ARITH       1704     A     
 ARITH                                                                                     ARITH       1705     A     
 ARITH     PPM1     SA3    TEP                                                             ARITH       1706     A     
 ARITH              SA4    X3+B5                                                           ARITH       1707     A     
 ARITH              UX0    B7,X4                                                           ARITH       1708     A     
 ARITH              EQ     B7,B5,PPM2  IF PREVIOUS ELIST IS ID                             ARITH       1709     A     
 ARITH              SA7    NANSI       NON-ANSI USAGE                                      ARITH       1710     A     
 ARITH              EQ     PPM3                                                            ARITH       1711     A     
 ARITH                                                                                     ARITH       1712     A     
 ARITH     PPM2     SA3    PMF                                                             ARITH       1713     A     
 ARITH              ZR     X3,PPM3     IF NO + OR - PRECEDING IN THIS TERM                 ARITH       1714     A     
 ARITH              SA7    NANSI       NON-ANSI USAGE                                      ARITH       1715     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2148    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH                                                                                     ARITH       1716     A     
 ARITH     PPM3     SA7    PMF         PLUS OR MINUS FLAG                                  ARITH       1717     A     
 ARITH              SA3    ACT         ADDITIVE CONSTANT SUM                               ARITH       1718     A     
 ARITH              SA4    CONSTT                                                          ARITH       1719     A     
 ARITH              MX6    0                                                               ARITH       1720     A     
 ARITH              IX7    X3+X4                                                           ARITH       1721     A     
 ARITH              SA6    IDF         IDFLAG = 0                                          ARITH       1722     A     
 ARITH              SA7    A3          ACT = ACT + CONST                                   ARITH       1723     A     
 ARITH              SA6    A4          CONST = 0                                           ARITH       1724     A     
 ARITH              EQ     PPM                                                             ARITH       1725     A     
 ARITH     PSS      EJECT                                                                  ARITH       1726     A     
 ARITH    **        PSS - PROCESS SUBSCRIPT STAR.                                          ARITH       1727     A     
 ARITH                                                                                     ARITH       1728     A     
 ARITH     PSS      ZR     B4,PSS2     IF NEXTE IS CONSTANT                                ARITH       1729     A     
 ARITH              NE     B4,B5,SSP.NS  IF NEXTE IS NOT ID                                ARITH       1730     A     
 ARITH              SA3    IDF         ID-IN-TERM-ENCOUNTERED FLAG                         ARITH       1731     A     
 ARITH              NZ     X3,SSP.NS   IF ID1*ID2  OR  ID1*CON*ID2, ETC.                   ARITH       1732     A     
 ARITH              SA5    TEP         TEMP ELIST POINTER                                  ARITH       1733     A     
 ARITH              SB3    EL.(                                                            ARITH       1734     A     
 ARITH              SA4    X5+B5                                                           ARITH       1735          I
          -FCC0578
 ARITH              SA4    X5+2                                                            FCC0578        5     A     
 ARITH              UX0    B7,X4                                                           ARITH       1736     A     
 ARITH              MX7    1                                                               ARITH       1737     A     
 ARITH              EQ     B7,B3,PSS1  IF CON PRECEDED BY (                                ARITH       1738     A     
 ARITH              SB3    EL.COMMA                                                        ARITH       1739     A     
 ARITH              EQ     B7,B3,PSS1  IF CON PRECEDED BY COMMA                            ARITH       1740     A     
 ARITH              SA7    NANSI       NON-ANSI USAGE                                      ARITH       1741     A     
 ARITH                                                                                     ARITH       1742     A     
 ARITH     PSS1     SA3    VARS        (X3) = NO OF VARIABLES IN TERM SO FAR               ARITH       1743     A     
 ARITH              SA2    CONSTT      C = CONSTT                                          ARITH       1744     A     
 ARITH              MX7    0                                                               ARITH       1745     A     
 ARITH              SA7    A2          CONST = 0                                           ARITH       1746     A     
 ARITH              SA1    X3+MC       X1 = MC(VARS+1)                                     ARITH       1747     A     
 ARITH              IX6    X1*X2                                                           ARITH       1748     A     
 ARITH              SX4    X6                                                              ARITH       1749     A     
 ARITH              BX3    X6-X4                                                           ARITH       1750     A     
 ARITH              NZ     X3,SSP.NS   IF PRODUCT .GE. 1S17                                ARITH       1751     A     
 ARITH              SA6    A1          MC(VARS+1) = MC(VARS+1) * C                         ARITH       1752     A     
 ARITH              EQ     SSP0                                                            ARITH       1753     A     
 ARITH                                                                                     ARITH       1754     A     
 ARITH     PSS2     MX7    1                                                               ARITH       1755     A     
 ARITH              SA7    NANSI       *CON NON-ANSI IN SUBSCRIPT                          ARITH       1756     A     
 ARITH              BX1    X2          (X1) = ELIST(CON)                                   ARITH       1757     A     
 ARITH              CALL   ECON        GET CONSTANT AND CHECK FOR ANSI USAGE               ARITH       1758     A     
 ARITH              SA5    IDF                                                             ARITH       1759     A     
 ARITH              SA2    CONSTT      (X2) = PREVIOUS CONST BUFFER                        ARITH       1760     A     
 ARITH              LX1    X6          (X1) = CON                                          ARITH       1761     A     
 ARITH              ZR     X5,PSS3     IF NO ID IN TERM YET                                ARITH       1762     A     
 ARITH              SA3    VARS                                                            ARITH       1763     A     
 ARITH              SA2    X3+MC-1     (X2) = MC(VARS)                                     ARITH       1764     A     
 ARITH                                                                                     ARITH       1765     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2149    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     PSS3     IX6    X1*X2                                                           ARITH       1766     A     
 ARITH              SX4    X6                                                              ARITH       1767     A     
 ARITH              BX3    X6-X4                                                           ARITH       1768     A     
 ARITH              NZ     X3,SSP.NS   IF PRODUCT .GE. 1S17                                ARITH       1769     A     
 ARITH              SA1    TEP                                                             ARITH       1770     A     
 ARITH              SX7    X1-1                                                            ARITH       1771     A     
 ARITH              SA6    A2          MC(VARS) = MC(VARS) * CON  OR                       ARITH       1772     A     
 ARITH    *                            CONST = CONST * CON                                 ARITH       1773     A     
 ARITH              SA7    A1          ADVANCE EPOINT OVER CONSTANT                        ARITH       1774     A     
 ARITH              EQ     SSP0                                                            ARITH       1775     A     
 ARITH     DIT      SPACE  4,8                                                             ARITH       1776     A     
 ARITH    **        DUMP INFORMATION PERTAINING TO ONE TERM OF SUBSCRIPT TO                ARITH       1777     A     
 ARITH    *         ARLIST BUFFER.                                                         ARITH       1778     A     
 ARITH                                                                                     ARITH       1779     A     
 ARITH     DIT      ENTRY. *                                                               ARITH       1780     A     
 ARITH              SA3    ACT                                                             ARITH       1781     A     
 ARITH              SA4    CONSTT                                                          ARITH       1782     A     
 ARITH              IX6    X3+X4                                                           ARITH       1783     A     
 ARITH              SX7    X6-1                                                            ARITH       1784     A     
 ARITH              MX0    -IX.MCL                                                         ARITH       1785     A     
 ARITH              SA7    A3          ACT = ACT + CONST - 1                               ARITH       1786     A     
 ARITH              SA2    TERM                                                            ARITH       1787     A     
 ARITH              SA5    DCF                                                             ARITH       1788     A     
 ARITH              SA1    TARLPT      POINTER WITHIN ARLIST BLOCK                         ARITH       1789     A     
 ARITH              LX2    IX.SUBP                                                         ARITH       1790     A     
 ARITH              SA3    MC                                                              ARITH       1791     A     
 ARITH              SB6    X5          (B6) = DOUBLE/COMPLEX FLAG                          ARITH       1792     A     
 ARITH              LX3    B6          MULTIPLY MC * 2 FOR 2 WORD ARRAYS                   ARITH       1793     A     
 ARITH              SA4    VAR                                                             ARITH       1794     A     
 ARITH              BX3    -X0*X3                                                          ARITH       1795     A     
 ARITH              LX3    IX.MCP                                                          ARITH       1796     A     
 ARITH              BX6    X2+X3                                                           ARITH       1797     A     
 ARITH              LX4    IX.IHP                                                          ARITH       1798     A     
 ARITH              BX7    X6+X4                                                           ARITH       1799     A     
 ARITH              SA7    ARLIST+X1                                                       ARITH       1800     A     
 ARITH              SUB                                                                    ARITH       1801     A     
 ARITH                                                                                     ARITH       1802     A     
 ARITH              SA3    A3+B5       MC(2)                                               ARITH       1803     A     
 ARITH              LX3    B6                                                              ARITH       1804     A     
 ARITH              BX3    -X0*X3                                                          ARITH       1805     A     
 ARITH              LX3    IX.MCP                                                          ARITH       1806     A     
 ARITH              SA4    A4+B5       VAR(2)                                              ARITH       1807     A     
 ARITH              BX6    X2+X3                                                           ARITH       1808     A     
 ARITH              LX4    IX.IHP                                                          ARITH       1809     A     
 ARITH              BX7    X6+X4                                                           ARITH       1810     A     
 ARITH              SA7    A7+B5       STORE SECOND VARIABLE INFORMATION                   ARITH       1811     A     
 ARITH                                                                                     ARITH       1812     A     
 ARITH              SA3    ACT                                                             ARITH       1813     A     
 ARITH              LX6    X3,B6       ADDITIVE CONSTANT = ACT S DCF                       ARITH       1814     A     
 ARITH              SA6    A7+B5       ADDITIVE CONSTANT WORD                              ARITH       1815     A     
 ARITH              SX7    X1+3                                                            ARITH       1816     A     
 ARITH              SA7    A1          UPDATE ARLPT                                        ARITH       1817     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2150    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              EQ     DIT         RETURN                                              ARITH       1818     A     
 ARITH     PIM      SPACE  4,8                                                             ARITH       1819     A     
 ARITH    **        PIM - PROCESS IXFN MACRO.                                              ARITH       1820     A     
 ARITH    *                                                                                ARITH       1821     A     
 ARITH    *         OUTPUT STANDARD SUBSCRIPT MACRO TO ARLIST.                             ARITH       1822     A     
 ARITH                                                                                     ARITH       1823     A     
 ARITH     PIM      SA1    NANSI                                                           ARITH       1824     A     
 ARITH              SA2    SAVDAN                                                          FCC0218        6     A     
 ARITH              NZ     X2,PIM0A    IF CALLED FROM LISTIO COLLAPSE                      FCC0218        7     A     
 ARITH              ZR     X1,PIM0A    IF NO NON-ANSI ASPECTS TO IXFN                      ARITH       1825     A     
 ARITH              USASDM ERMSG40     NON-STANDARD SUBSCRIPT                              ARITH       1826     A     
 ARITH                                                                                     ARITH       1827     A     
 ARITH     PIM0A    SA1    TERM                                                            ARITH       1828     A     
 ARITH              SA2    NDIMS                                                           ARITH       1829     A     
 ARITH              IX6    X2-X1                                                           ARITH       1830     A     
 ARITH              ZR     X6,PIM0B    IF TERM = NDIMS                                     ARITH       1831     A     
 ARITH              USASDM ERMSG23     FEWER SUBSCRIPTS THAN DIMENSIONS                    ARITH       1832     A     
 ARITH                                                                                     ARITH       1833     A     
 ARITH     PIM0B    SA3    DCF                                                             ARITH       1834     A     
 ARITH              SB6    X3          (B6) = DOUBLE/ COMPLEX FLAG                         ARITH       1835     A     
 ARITH              CALL   DIL         OUTPUT SIMPLE LOAD IF SUBSCRIPT IS CONSTANT         ARITH       1836     A     
 ARITH              SA1    TEP                                                             ARITH       1837     A     
 ARITH              SX7    X1-1                                                            ARITH       1838     A     
 ARITH              SA2    DAF                                                             ARITH       1839     A     
 ARITH              NZ     X2,SSP.NS1  IF DEBUGGING ON FOR THIS ARRAY                      ARITH       1840     A     
 ARITH              SA7    EPOINT      SET EPOINT BEYOND )                                 ARITH       1841     A     
 ARITH              SA1    ARLPT       INDEX TO FIRST AVAILABLE ARLIST WORD                ARITH       1842     A     
 ARITH              MX4    0                                                               ARITH       1843     A     
 ARITH              ZR     X1,PIM1     IF NO ENTRIES IN ARLIST YET                         ARITH       1844     A     
 ARITH              SA2    LASTR       HEADER OF LAST ENTRY                                ARITH       1845     A     
 ARITH              SA3    X2                                                              ARITH       1846     A     
 ARITH              BX0    X3                                                              ARITH       1847     A     
 ARITH              AX0    59                                                              ARITH       1848     A     
 ARITH              BX3    X0-X3                                                           ARITH       1849     A     
 ARITH              LX3    -18                                                             ARITH       1850     A     
 ARITH              SX4    X3          NUMBER OF WORDS IN PREVIOUS ENTRY                   ARITH       1851     A     
 ARITH                                                                                     ARITH       1852     A     
 ARITH     PIM1     SA5    TERM        (X5) = NUMBER OF TERMS IN PROCESSED IXFN            ARITH       1853     A     
 ARITH              LX2    X5,B5                                                           ARITH       1854     A     
 ARITH              IX3    X2+X5       (X3) = 3 * TERMS                                    ARITH       1855     A     
 ARITH              SX5    X3+5        (X5) = NUMBER OF WORDS IN ARLIST ENTRY              ARITH       1856     A     
 ARITH              SX2    X3+2        (X2) = NUMBER WORDS FOLLOWING FOR HEADER            ARITH       1857     A     
 ARITH              LX5    18                                                              ARITH       1858     A     
 ARITH              BX4    X4+X5                                                           ARITH       1859     A     
 ARITH              SA3    NAME+1      WORD B OF ARRAY                                     ARITH       1860     A     
 ARITH              LX2    30                                                              ARITH       1861     A     
 ARITH              MX0    -L.TYP                                                          ARITH       1862     A     
 ARITH              LX3    -P.TYP                                                          ARITH       1863     A     
 ARITH              BX0    -X0*X3      TYPE OF ARRAY                                       ARITH       1864     A     
 ARITH              SB1    X0                                                              ARITH       1865     A     
 ARITH              PX6    B1,X4                                                           ARITH       1866     A     
 ARITH              SA5    EQCOUNT     EQUAL SIGN COUNT                                    ARITH       1867     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2151    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SX4    X5                                                              ARITH       1868     A     
 ARITH              LX4    37                                                              ARITH       1869     A     
 ARITH              BX7    X6+X4                                                           ARITH       1870     A     
 ARITH              SA7    X1+ARLIST   ARLIST HEADER WORD                                  ARITH       1871     A     
 ARITH              SUB                                                                    ARITH       1872     A     
 ARITH                                                                                     ARITH       1873     A     
 ARITH              SA4    IDORDL                                                          ARITH       1874     A     
 ARITH              BX7    X4                                                              ARITH       1875     A     
 ARITH              SA7    A7+B5       IH OF ARRAY TO SECOND WORD OF ENTRY                 ARITH       1876     A     
 ARITH                                                                                     ARITH       1877     A     
 ARITH              SA3    NARN                                                            ARITH       1878     A     
 ARITH              SB2    -STLMAC     IXFN MACRO OP CODE                                  ARITH       1879     A     
 ARITH              BX2    X3+X2       (X2) = 30/NWF,30/RI                                 ARITH       1880     A     
 ARITH              SX0    B6          (X0) = DOUBLE WORD ARRAY FLAG                       ARITH       1881     A     
 ARITH              LX0    RM.RIL      POSITION ARRAY TYPE                                 ARITH       1882     A     
 ARITH              BX7    X2+X0       (X6) = 30/NWF,14/TYPE,16/RI                         ARITH       1883     A     
 ARITH              PX7    B2,X7                                                           ARITH       1884     A     
 ARITH              SA7    A7+B5     WORD 1 OF IXFN = 12/P(OC),18/NWF,14/TYP,16/RI         ARITH       1885     A     
 ARITH                                                                                     ARITH       1886     A     
 ARITH              SX6    X3+B5                                                           ARITH       1887     A     
 ARITH              SX6    X6+B6       NARNT = NARN + 1 + DOUBLE WORD BIT                  ARITH       1888     A     
 ARITH              SA6    A3          NARN = NARNT                                        ARITH       1889     A     
 ARITH              BX7    X4          (X7) = ORDINAL OF ARRAY                             ARITH       1890     A     
 ARITH              SB7    PIM2                                                            ARITH       1891     A     
 ARITH              SA6    SAVENARN                                                        ARITH       1892     A     
 ARITH              CALL   EQUIVR                                                          ARITH       1893     A     
 ARITH              LX6    IX.CAP                                                          ARITH       1894     A     
 ARITH              BX7    X6+X7       IH,CA OF EQUIVALENCED ARRAY                         ARITH       1895     A     
 ARITH     PIM2     SA7    A7+B5       WORD 2 OF IXFN = IH,CA OF ARRAY                     ARITH       1896     A     
 ARITH                                                                                     ARITH       1897     A     
 ARITH              SA2    SDIMIN                                                          ARITH       1898     A     
 ARITH              BX7    X2                                                              ARITH       1899     A     
 ARITH              SA7    A7+B5       WORD 3 OF IXFN = DIMENSION INFO                     ARITH       1900     A     
 ARITH                                                                                     ARITH       1901     A     
 ARITH              SA2    REFSELCT    LOCAL COPY OF LONG MAP FLAG                         ARITH       1902     A     
 ARITH              ZR     X2,PIM4     IF NO LONG MAP                                      ARITH       1903     A     
 ARITH              SA1    ARLPT                                                           ARITH       1904     A     
 ARITH              SX6    X1+ARLIST+3                                                     ARITH       1905     A     
 ARITH              SUB                                                                    ARITH       1906     A     
 ARITH              SA6    REFTEMP                                                         ARITH       1907     A     
 ARITH                                                                                     ARITH       1908     A     
 ARITH     PIM3     SA1    INC         INCREMENT FOR MACRO TERM ACCESS                     ARITH       1909     A     
 ARITH              SX0    3                                                               ARITH       1910     A     
 ARITH                                                                                     ARITH       1911     A     
 ARITH    *         TOGGLE INDEX INCREMENT BETWEEN 1 AND 2.  THIS CAUSES EVERY             ARITH       1912     A     
 ARITH    *         THIRD WORD OF MACRO (WHICH CONTAINS ADDITIVE CONSTANT                  ARITH       1913     A     
 ARITH    *         INFORMATION) TO BE SKIPPED.                                            ARITH       1914     A     
 ARITH                                                                                     ARITH       1915     A     
 ARITH              IX6    X0-X1                                                           ARITH       1916     A     
 ARITH              SA2    REFTEMP                                                         ARITH       1917     A     
 ARITH              IX7    X2+X6       NEXT VARIABLE INFO WORD                             ARITH       1918     A     
 ARITH              SA3    X7                                                              ARITH       1919     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2152    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              MI     X3,PIM4     IF VARIABLE WORD .LT. 0                             ARITH       1920     A     
 ARITH              SA6    A1          STORE TOGGLED INCREMENT                             ARITH       1921     A     
 ARITH              SA7    A2          REFTEMP = ADDRESS OF CURRENT VARIABLE WORD          ARITH       1922     A     
 ARITH              LX3    -IX.IHP                                                         ARITH       1923     A     
 ARITH              SB1    X3                                                              ARITH       1924     A     
 ARITH              ZR     B1,PIM3     IF THIS VARIABLE DID NOT APPEAR                     ARITH       1925     A     
 ARITH              ADDREF B1,REF      NOTE REFERENCE                                      ARITH       1926     A     
 ARITH              EQ     PIM3                                                            ARITH       1927     A     
 ARITH                                                                                     ARITH       1928     A     
 ARITH     PIM4     SB7    PIM6                                                            ARITH       1929     A     
 ARITH              SA2    ARLPT                                                           ARITH       1930     A     
 ARITH              MX0    -IX.CAIHL                                                       ARITH       1931     A     
 ARITH              SB6    B5+B5       (B6) = IXFN ACCESS INCREMENT = 2                    ARITH       1932     A     
 ARITH              SA1    SYM1                                                            ARITH       1933     A     
 ARITH              SB3    B6+B5       (B3) = 3                                            ARITH       1934     A     
 ARITH              SA0    X1                                                              ARITH       1935     A     
 ARITH              SA3    X2+ARLIST+3                                                     ARITH       1936     A     
 ARITH              SUB                                                                    ARITH       1937     A     
 ARITH                                                                                     ARITH       1938     A     
 ARITH     PIM5     SA3    A3+B6       NEXT VARIABLE TERM FROM MACRO                       ARITH       1939     A     
 ARITH              MI     X3,PIM7     IF VARIABLE WORD .LT. 0                             ARITH       1940     A     
 ARITH              LX3    -IX.IHP                                                         ARITH       1941     A     
 ARITH              BX6    -X0*X3      SYMTAB ORDINAL                                      ARITH       1942     A     
 ARITH              ZR     X6,PIM6A    IF THIS VARIABLE DID NOT APPEAR                     ARITH       1943     A     
 ARITH              IX1    X6+X6                                                           ARITH       1944     A     
 ARITH              SB4    X1                                                              ARITH       1945     A     
 ARITH              SA1    A0-B4       WORD A OF VARIABLE/S SYMTAB ENTRY                   ARITH       1946     A     
 ARITH              SA2    A1-B5       WORD B                                              ARITH       1947     A     
 ARITH              BX6    X1                                                              ARITH       1948     A     
 ARITH              LX7    X2                                                              ARITH       1949     A     
 ARITH              SA6    NAME                                                            ARITH       1950     A     
 ARITH              SA7    A6+B5                                                           ARITH       1951     A     
 ARITH              BX6    -X0*X3                                                          ARITH       1952     A     
 ARITH              CALL   EQUIVR                                                          ARITH       1953     A     
 ARITH              LX6    IX.CAP                                                          ARITH       1954     A     
 ARITH              BX6    X6+X7                                                           ARITH       1955     A     
 ARITH                                                                                     ARITH       1956     A     
 ARITH     PIM6     LX3    IX.IHP                                                          ARITH       1957     A     
 ARITH              MX0    -IX.CAIHL                                                       ARITH       1958     A     
 ARITH              BX1    X0*X3       CLEAR IH,CA                                         ARITH       1959     A     
 ARITH              LX6    -IX.IHP                                                         ARITH       1960     A     
 ARITH              BX7    X6+X1                                                           ARITH       1961     A     
 ARITH              SA7    A3          RESET EQUIVALENCED IH,CA                            ARITH       1962     A     
 ARITH                                                                                     ARITH       1963     A     
 ARITH     PIM6A    SB6    B3-B6       TOGGLE INCREMENT                                    ARITH       1964     A     
 ARITH              EQ     PIM5                                                            ARITH       1965     A     
 ARITH                                                                                     ARITH       1966     A     
 ARITH     PIM7     SA3    ARLPT                                                           ARITH       1967     A     
 ARITH              SA1    TARLPT                                                          ARITH       1968     A     
 ARITH              SA2    RL2                                                             ARITH       1969     A     
 ARITH              BX6    X1                                                              ARITH       1970     A     
 ARITH              LX7    X2                                                              ARITH       1971     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2153    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA6    A3          ARLPT = TARLPT                                      ARITH       1972     A     
 ARITH              SA7    RL1         RL1 = RL2                                           ARITH       1973     A     
 ARITH              SX6    ARLIST+X3                                                       ARITH       1974     A     
 ARITH              SUB                                                                    ARITH       1975     A     
 ARITH              SA6    A2          RL2 = HEAD OF IXFN JUST OUTPUT                      ARITH       1976     A     
 ARITH              SA6    LASTR       LASTR = RL2                                         ARITH       1977     A     
 ARITH                                                                                     ARITH       1978     A     
 ARITH    *         OUTPUT IO RESTART CALL IF IN AN INPUT STATEMENT WHICH                  ARITH       1979     A     
 ARITH    *         PREVIOUSLY CONTAINED A VARIABLE THAT IS IN A TERM OF THIS              ARITH       1980     A     
 ARITH    *         IXFN.                                                                  ARITH       1981     A     
 ARITH                                                                                     ARITH       1982     A     
 ARITH              SA2    IXFNFG                                                          ARITH       1983     A     
 ARITH              ZR     X2,NEXTE    IF NOT IN AN I/O LIST                               ARITH       1984     A     
 ARITH              SA3    REFTYPE                                                         ARITH       1985     A     
 ARITH              PL     X3,NEXTE    IF NOT INPUT                                        ARITH       1986     A     
 ARITH              SA4    PARCNT                                                          ARITH       1987     A     
 ARITH              ZR     X4,NEXTE    IF NOTHING TO OUTPUT                                ARITH       1988     A     
 ARITH              SA5    SAVDAN                                                          ARITH       1989          I
          -FCC1479X 
 ARITH              NZ     X5,NEXTE    IF CALLED FROM LISTIO COLLAPSE CODE                 ARITH       1990          I
          -FCC1479X 
 ARITH              SA5    =XIONAME                                                        FCC1479X       9     A     
 ARITH              ZR     X5,NEXTE    IF LIST NOT BEING PROCESSED YET                     FCC1479X      10     A     
 ARITH              SA1    L.IOLST                                                         ARITH       1991     A     
 ARITH              ZR     X1,NEXTE    IF NO PRECEDING INTEGER VARIABLES                   ARITH       1992     A     
 ARITH              SA3    ABIO                                                            FCC0614       13     A     
 ARITH              NZ     X3,NEXTE    IF BUFFER I/O OR ENCODE/DECODE VARIABLE             FCC0614       14     A     
 ARITH              SA2    LASTR       POINTS TO HEADER OF IXFN JUST OUTPUT                ARITH       1993     A     
 ARITH              SA3    O.IOLST     TABLE ORIGIN                                        ARITH       1994     A     
 ARITH              SB6    X1          TABLE LENGTH                                        ARITH       1995     A     
 ARITH              SA1    X2+5-2      FIRST VARIABLE IH,CA WORD IN IXFN                   ARITH       1996     A     
 ARITH              MX0    -IX.IHL                                                         ARITH       1997     A     
 ARITH              MX7    -IX.CAL                                                         ARITH       1998     A     
 ARITH              SB7    B5+B5       B7 = IXFN INDEX INCREMENT = 2                       ARITH       1999     A     
 ARITH              SA0    B7+B5       A0 = 3                                              ARITH       2000     A     
 ARITH                                                                                     ARITH       2001     A     
 ARITH     PIM8     SA1    A1+B7       NEXT IXFN VARIABLE                                  ARITH       2002     A     
 ARITH              MI     X1,NEXTE    IF END OF IXFN                                      ARITH       2003     A     
 ARITH              SB2    B6          L.IOLST                                             ARITH       2004     A     
 ARITH              SA2    X3-1        FWA OF IOLST - 1                                    ARITH       2005     A     
 ARITH              SB7    A0-B7       TOGGLE INCREMENT                                    ARITH       2006     A     
 ARITH                                                                                     ARITH       2007     A     
 ARITH     PIM9     ZR     B2,PIM8     IF END OF IOLST                                     ARITH       2008     A     
 ARITH              SA2    A2+B5       NEXT IOLST ENTRY                                    ARITH       2009     A     
 ARITH              LX1    -IX.IHP                                                         ARITH       2010     A     
 ARITH              BX4    -X0*X1                                                          ARITH       2011     A     
 ARITH              LX2    -AP.IHP                                                         ARITH       2012     A     
 ARITH              BX5    -X0*X2                                                          ARITH       2013     A     
 ARITH              IX6    X4-X5                                                           ARITH       2014     A     
 ARITH              SB2    B2-B5                                                           ARITH       2015     A     
 ARITH              LX2    AP.IHP+59-AP.CRP                                                ARITH       2016     A     
 ARITH              NZ     X6,PIM9     IF NO MATCH ON IH                                   ARITH       2017     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2154    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              MI     X2,PIM10    IF PREVIOUS USE WAS CLASS REFERENCE                 ARITH       2018     A     
 ARITH              LX1    IX.IHP-IX.CAP                                                   ARITH       2019     A     
 ARITH              BX4    -X7*X1      EXTRACT CA FROM IXFN TERM                           ARITH       2020     A     
 ARITH              LX2    AP.CRP-59-AP.CAP                                                ARITH       2021     A     
 ARITH              BX5    -X7*X2      EXTRACT CA FROM IOLST ENTRY                         ARITH       2022     A     
 ARITH              IX6    X4-X5                                                           ARITH       2023     A     
 ARITH              NZ     X6,PIM9     IF NO MATCH ON CA                                   ARITH       2024     A     
 ARITH                                                                                     ARITH       2025     A     
 ARITH     PIM10    MX0    -RM.RIL                                                         ARITH       2026     A     
 ARITH              SA2    LASTR                                                           ARITH       2027     A     
 ARITH              SA5    X2+2        MACRO HEADER                                        ARITH       2028     A     
 ARITH              SX3    B5                                                              ARITH       2029     A     
 ARITH              BX6    -X0*X5      RESULT NUMBER                                       ARITH       2030     A     
 ARITH              IX7    X3+X5       INCREMENT RESULT NUMBER                             ARITH       2031     A     
 ARITH              SA6    NARN        FOR RESTART CALL                                    ARITH       2032     A     
 ARITH              SA7    A5                                                              ARITH       2033     A     
 ARITH              CALL   IARC        OUTPUT RESTART CALL                                 ARITH       2034     A     
 ARITH              SA2    SAVENARN                                                        ARITH       2035     A     
 ARITH              MX7    0                                                               ARITH       2036     A     
 ARITH              SX6    X2+B5                                                           ARITH       2037     A     
 ARITH              SA7    L.IOLST                                                         ARITH       2038     A     
 ARITH              SA6    NARN                                                            ARITH       2039     A     
 ARITH              EQ     NEXTE                                                           ARITH       2040     A     
 ARITH     DIL      SPACE  4,8                                                             ARITH       2041     A     
 ARITH    **        DIL - DEGENERATE IXFN TO LOAD.                                         ARITH       2042     A     
 ARITH    *         OUTPUT SIMPLE LOAD (IH,CA) IF SUBSCRIPT VALUE IS A CONSTANT            ARITH       2043     A     
 ARITH    *         AT COMPILE TIME.                                                       ARITH       2044     A     
 ARITH                                                                                     ARITH       2045     A     
 ARITH     DIL      ENTRY. *                                                               ARITH       2046     A     
 ARITH              SA3    SDIMIN      DIMENSION INFO                                      ARITH       2047     A     
 ARITH              MX0    3                                                               ARITH       2048     A     
 ARITH              LX0    -3                                                              ARITH       2049     A     
 ARITH              BX6    X0*X3       EXTRACT P(ABC) (VARIABLE DIMENSION BITS)            ARITH       2050     A     
 ARITH              LX6    2                                                               ARITH       2051     A     
 ARITH              SA1    ARLPT                                                           ARITH       2052     A     
 ARITH              MX7    0           CA = 0                                              ARITH       2053     A     
 ARITH              SX5    B5          MULT = 1                                            ARITH       2054     A     
 ARITH              MX0    -IH.IHL                                                         ARITH       2055     A     
 ARITH              SB7    ARLIST+X1+5   FIRST TERM WORD                                   ARITH       2056     A     
 ARITH              SUB                                                                    ARITH       2057     A     
 ARITH                                                                                     ARITH       2058     A     
 ARITH     DIL1     SA1    B7                                                              ARITH       2059     A     
 ARITH              ZR     X1,DIL2     IF TERM IS EMPTY                                    ARITH       2060     A     
 ARITH              MI     X6,DIL      IF DIM(TERM-1) IS VARIABLE                          ARITH       2061     A     
 ARITH              LX1    -IH.IHP                                                         ARITH       2062     A     
 ARITH              BX2    -X0*X1                                                          ARITH       2063     A     
 ARITH              NZ     X2,DIL      IF TERM CONTAINS VARIABLE                           ARITH       2064     A     
 ARITH              SA2    B7+2        ADDITIVE CONSTANT                                   ARITH       2065     A     
 ARITH              LX6    1           POSITION NEXT VARIABLE DIMENSION BIT                ARITH       2066     A     
 ARITH              IX4    X5*X2                                                           ARITH       2067     A     
 ARITH              SB7    A2+B5       INCREMENT TERM COUNTER                              ARITH       2068     A     
 ARITH              SX1    X3                                                              ARITH       2069     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2155    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              IX7    X4+X7       CA = CA + MULT * (AC - 1)                           ARITH       2070     A     
 ARITH              IX5    X5*X1       MULT = MULT * DIM(I - 1)                            ARITH       2071     A     
 ARITH              AX3    18          I = I + 1                                           ARITH       2072     A     
 ARITH              EQ     DIL1                                                            ARITH       2073     A     
 ARITH                                                                                     ARITH       2074     A     
 ARITH     DIL2     SA1    IDORDL                                                          ARITH       2075     A     
 ARITH              SA7    NCA                                                             ARITH       2076     A     
 ARITH              AX7    B6                                                              ARITH       2077          I
          -FCC0654
 ARITH              SA3    A3          RELOAD DIM INFO                                     ARITH       2078     A     
 ARITH              BX0    X6                                                              ARITH       2079     A     
 ARITH              AX3    36                                                              ARITH       2080     A     
 ARITH              SX2    X3-1        PRODUCT OF DIMENSIONS -  1                          ARITH       2081     A     
 ARITH              IX6    X2-X7                                                           ARITH       2082     A     
 ARITH              BX6    X7+X6       .LT. 0 IFF REF OUT OF BOUNDS                        ARITH       2083     A     
 ARITH              SA2    DAF                                                             ARITH       2084     A     
 ARITH              ZR     X0,DIL2A    IF NO DIMENSIONS VARIABLE                           ARITH       2085     A     
 ARITH              BX6    X7          DIAGNOSE SUBSCRIPTS .LT. 1 ONLY                     ARITH       2086     A     
 ARITH                                                                                     ARITH       2087     A     
 ARITH     DIL2A    ZR     X2,DIL3     IF NO DEBUGGING ON FOR THIS ARRAY                   ARITH       2088     A     
 ARITH              PL     X6,SSP.NS1  IF ARRAY REF IN DIMENSION BOUNDS                    ARITH       2089          I
          -FCC0654
 ARITH              IDM    ERMSG75                                                         ARITH       2090          I
          -FCC0654
 ARITH              MI     X6,DIL2B    IF OUT OF BOUNDS                                    FCC0654        5     A     
 ARITH              ZR     X0,DIL3     IF NO VARIABLE DIMENSIONS                           FCC0654        6     A     
 ARITH              EQ     SSP.NS1     GO COMPILE EXECUTION CHECK CODE                     FCC0654        7     A     
 ARITH                                                                                     FCC0654        8     A     
 ARITH     DIL2B    IDM    ERMSG75     CONSTANT SUBSCRIPT OUT OF RANGE                     FCC0654        9     A     
 ARITH              EQ     SSP.NS1                                                         ARITH       2091     A     
 ARITH                                                                                     ARITH       2092     A     
 ARITH     DIL3     SA6    OBR                                                             ARITH       2093     A     
 ARITH              SA7    IDORDLTS+1  RAW CA FOR FETCH                                    ARITH       2094     A     
 ARITH              MX6    0                                                               ARITH       2095     A     
 ARITH              BX7    X1                                                              ARITH       2096     A     
 ARITH              SA7    IDORDLTS    RAW IH FOR FETCH                                    ARITH       2097     A     
 ARITH              SB7    DIL4        RETURN IF NON-EQ1IVALENCED                          ARITH       2098     A     
 ARITH              CALL   EQUIVR                                                          ARITH       2099     A     
 ARITH                                                                                     ARITH       2100     A     
 ARITH     DIL4     SA1    NCA         CA FROM SUBSCRIPT                                   ARITH       2101     A     
 ARITH              SX5    X7          EQIVALENCED IH                                      ARITH       2102     A     
 ARITH              IX3    X6+X1                                                           ARITH       2103     A     
 ARITH              SB6    B0          RF FOR FETCH                                        ARITH       2104     A     
 ARITH              SB7    X3          CA INCLUDING EQUIV. INFO                            ARITH       2105     A     
 ARITH              CALL   FETCH                                                           ARITH       2106     A     
 ARITH              SA1    OBR                                                             ARITH       2107     A     
 ARITH              PL     X1,DIL5     IF REF WITHIN DIMENSION BOUNDS                      ARITH       2108     A     
 ARITH              IDM    ERMSG75                                                         ARITH       2109     A     
 ARITH                                                                                     ARITH       2110     A     
 ARITH     DIL5     SA1    TEP                                                             ARITH       2111     A     
 ARITH              SX7    X1-1                                                            ARITH       2112     A     
 ARITH              SA7    EPOINT      SET EPOINT BEYOND )                                 ARITH       2113     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2156    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              EQ     NEXTE       EXIT TO MAIN LOOP                                   ARITH       2114     A     
 ARITH     SSP.NS   SPACE  4,8                                                             ARITH       2115     A     
 ARITH    *         NON-STANDARD SUBSCRIPT ENCOUNTERED.                                    ARITH       2116     A     
 ARITH                                                                                     ARITH       2117     A     
 ARITH     SSP.NS   USASDM ERMSG40     NON-ANSI SUBSCRIPT                                  ARITH       2118     A     
 ARITH     SSP.NS1  SA1    PARLEVEL                                                        ARITH       2119     A     
 ARITH              SA2    EPOINT                                                          ARITH       2120     A     
 ARITH              SX7    X2-1                                                            ARITH       2121     A     
 ARITH              SA7    A2                                                              ARITH       2122     A     
 ARITH              SX6    X1+1                                                            ARITH       2123     A     
 ARITH              SA6    A1          INCREMENT PAREN COUNT                               ARITH       2124     A     
 ARITH              SA2    IXFNFG                                                          ARITH       2125     A     
 ARITH              ZR     X2,NSSETUP0       IF NOT IN AN I/O LIST                         ARITH       2126     A     
 ARITH              SA3    REFTYPE                                                         ARITH       2127     A     
 ARITH              PL     X3,NSSETUP0       IF NOT AN INPUT STATEMENT                     ARITH       2128     A     
 ARITH              SA4    PARCNT                                                          ARITH       2129     A     
 ARITH              ZR     X4,NSSETUP0       IF NOTHING TO OUTPUT                          ARITH       2130     A     
 ARITH              SA2    =XIONAME                                                        ARITH       2131     A     
 ARITH              ZR     X2,NSSETUP0       IF LIST NOT BEING PROCESSED YET               ARITH       2132     A     
 ARITH              SA3    L.IOLST                                                         ARITH       2133     A     
 ARITH              ZR     X3,NSSETUP0       IF THIS IS THE FIRST LIST ITEM                ARITH       2134     A     
 ARITH              SA4    ABIO                                                            FCC0614       15     A     
 ARITH              NZ     X4,NSSETUP0 IF BUFFER I/O OR ENCODE/DECODE VAR                  FCC0614       16     A     
 ARITH              RJ     IARC              ISSUE RESTART CALL                            ARITH       2135     A     
 ARITH              MX7    0                                                               FCC0994        7     A     
 ARITH              SA7    L.IOLST                                                         FCC0994        8     A     
 ARITH     NSSETUP0 SA1    OSPTR       SAVE PREVIOUS (IF ANY) ARRAY REFERENCES             ARITH       2136     A     
 ARITH              SB2    X1-MXOSE+4   +4 FOR ADDING 4 WDS TO STAK                        ARITH       2137     A     
 ARITH              PL     B2,ERR03     IF OPSTAK FULL                                     ARITH       2138     A     
 ARITH              SA2    ARORD                                                           ARITH       2139     A     
 ARITH              SA3    DIMINF                                                          ARITH       2140     A     
 ARITH              BX6    X2                                                              ARITH       2141     A     
 ARITH              BX7    X3                                                              ARITH       2142     A     
 ARITH              SA6    X1+OPSTAK+2  ARORD                                              ARITH       2143     A     
 ARITH              SA7    X1+OPSTAK+3  DIMINF                                             ARITH       2144     A     
 ARITH              SA3    SFRSTB      COUNT OF FUNCTION RESULT SAVED                      ARITH       2145     A     
 ARITH              SA2       ARLPT     SAVE START OF SUBS EXP INCASE ** FOLLOWS.          ARITH       2146     A     
 ARITH              LX3    18                                                              ARITH       2147     A     
 ARITH              BX7    X3+X2                                                           ARITH       2148     A     
 ARITH              SA7    X1+OPSTAK+1                                                     ARITH       2149     A     
 ARITH              SA2       CC                                                           ARITH       2150     A     
 ARITH              BX6    X2                                                              ARITH       2151     A     
 ARITH              SA6    X1+OPSTAK+4                                                     ARITH       2152     A     
 ARITH              SX6    X1+4                                                            ARITH       2153     A     
 ARITH              SA6       OSPTR                                                        ARITH       2154     A     
 ARITH              SA1    SARORD       INITIALIZE ARORD AND DIMINF FOR THIS ARRAY         ARITH       2155     A     
 ARITH              SA2    SDIMIN                                                          ARITH       2156     A     
 ARITH              BX6    X1                                                              ARITH       2157     A     
 ARITH              BX7    X2                                                              ARITH       2158     A     
 ARITH              SA6    ARORD                                                           ARITH       2159     A     
 ARITH              SA7    DIMINF                                                          ARITH       2160     A     
 ARITH              MX6       0                                                            ARITH       2161     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2157    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA6       CC                                                           ARITH       2162     A     
 ARITH    *     SET UP LEFT-PARENS-PREDEDING-SUBSCRIPT OP FOR ADDITION TO THE OP-          ARITH       2163     A     
 ARITH    ** STACK.  INCLUDE THE CURRENT MODE OF EXPRESSION WE,RE IN (ARG.LIST,            ARITH       2164     A     
 ARITH    ** SUB, OR NORMAL) IN THE OP AND SET EMODE TO SUBSCRIPT MODE.                    ARITH       2165     A     
 ARITH              SA2    EMODE        GET CURRENT MODE (4,2,1 IF SUB,ARG,EXP)            ARITH       2166     A     
 ARITH              SA1    SPARLEV                                                         FCC0394        6     A     
 ARITH              SX6    X1+1                                                            FCC0394        7     A     
 ARITH              SA6    A1          SPARLEV = SPARLEV + 1                               FCC0394        8     A     
 ARITH              SA1    LPSUB        GET LP-SUBSCRIPT OP.                               ARITH       2167     A     
 ARITH              LX2    19           POSITION FOR ORING INTO B21-19                     ARITH       2168     A     
 ARITH              BX6    X1+X2                                                           ARITH       2169     A     
 ARITH              SA1    SFRSTB                                                          ARITH       2170     A     
 ARITH              LX1    30                                                              ARITH       2171     A     
 ARITH              BX6    X1+X6             SAVE SFRSTB IN (S OPSTAK WORD                 ARITH       2172     A     
 ARITH              SX7    4            SET EMODE TO SUBSCRIPT MODE.                       ARITH       2173     A     
 ARITH              SA6    OP                                                              ARITH       2174     A     
 ARITH              SA7    EMODE                                                           ARITH       2175     A     
 ARITH              SA1    LEFRN                                                           ARITH       2176     A     
 ARITH              ZR     X1,ADDOP    IF NO SAVED FUNCTION RESULTS                        ARITH       2177     A     
 ARITH              SA2    DFLAG                                                           ARITH       2178     A     
 ARITH              ZR     X2,ADDOP    IF NOT DEBUG MODE                                   ARITH       2179     A     
 ARITH              SA1    ALLARR                                                          ARITH       2180     A     
 ARITH              NZ     X1,NSSETUP1       BRANCH IF UNCONDITIONAL TRACING               ARITH       2181     A     
 ARITH              SA3    ARORD             ARRAY ORDINAL                                 ARITH       2182     A     
 ARITH              SA4    SYM1              START OF SYMBOL TABLE                         ARITH       2183     A     
 ARITH              LX3    1                                                               ARITH       2184     A     
 ARITH              IX5    X4-X3             COMPUTE ADDRESS OF ARRAY ENTRY                ARITH       2185     A     
 ARITH              SA2    X5-1              WORD B OF ENTRY                               ARITH       2186     A     
 ARITH              MX0    60-L.DIF                                                        ARITH       2187     A     
 ARITH              LX2    60-P.DIF                                                        ARITH       2188     A     
 ARITH              BX7    -X0*X2            MASK OUT DEBUG INFORMATION BITS               ARITH       2189     A     
 ARITH              SX6    X7-DV.ARR         IS ARRAY CHECKING TO BE DONE                  ARITH       2190     A     
 ARITH              SX7    X7-DV.AAS         ARE ARRAYS AND STORES ON                      ARITH       2191     A     
 ARITH              ZR     X6,NSSETUP1       IF YES                                        ARITH       2192     A     
 ARITH              NZ     X7,ADDOP    IF ARRAYS AND STORES ARE OFF                        ARITH       2193     A     
 ARITH     NSSETUP1 SA1    LEFRN                                                           ARITH       2194          I
          -FCC0623
 ARITH              SX4    04B               JUMP OP CODE                                  ARITH       2195          I
          -FCC0623
 ARITH              SA3    SSFRSTB                                                         ARITH       2196          I
          -FCC0623
 ARITH              LX4    24                                                              ARITH       2197          I
          -FCC0623
 ARITH              BX7    X3                                                              ARITH       2198          I
          -FCC0623
 ARITH              SX5    NSSETUP2          RETURN ADDRESS                                ARITH       2199          I
          -FCC0623
 ARITH              SA7    =SSSSFRSTB        SAVE CURRENT SSFRSTB                          ARITH       2200          I
          -FCC0623
 ARITH              BX6    X4+X5             FORM JUMP INSTRUCTION                         ARITH       2201          I
          -FCC0623
 ARITH              LX6    30                                                              ARITH       2202          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2158    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
          -FCC0623
 ARITH              SA6    FUNC5RT           PLACE IN FUNCTION ENTRY POINT                 ARITH       2203          I
          -FCC0623
 ARITH              ZR     FUNC9A            SIMULATE FUNCTION PROCESSING                  ARITH       2204          I
          -FCC0623
 ARITH     NSSETUP2 SA1    SSSFRSTB                                                        ARITH       2205          I
          -FCC0623
 ARITH              MX0    1                                                               ARITH       2206          I
          -FCC0623
 ARITH              BX6    X1                                                              ARITH       2207          I
          -FCC0623
 ARITH                                                                                     FCC0623        9     A     
 ARITH     NSSETUP1 RJ     FUNC8       PROCESS ANY SAVED FUNCTION RESULT                   FCC0623       10     A     
 ARITH              MX0    1                                                               FCC0623       11     A     
 ARITH              SA3    OP                (S WORD TO BE PLACED IN THE OPSTAK            ARITH       2208     A     
 ARITH              LX0    1+30                                                            ARITH       2209     A     
 ARITH              IX7    X3+X0             INCREMENT SAVED SFRSTB VALUE                  ARITH       2210     A     
 ARITH              SA6    SSFRSTB           RESTORE SAVED VALUE                           ARITH       2211          I
          -FCC0623
 ARITH              SA7    A3                RETURN TO OP WORD                             ARITH       2212     A     
 ARITH              EQ     ADDOP       ADD (S TO OPSTAK AND PROCESS NEXTE                  ARITH       2213     A     
 ARITH    *                                                                                ARITH       2214     A     
 ARITH    *     NSAN IF ID IS NON-SUBSCRIPTED ARRAY NAME                                   ARITH       2215     A     
 ARITH     NSAN     SA1       EMODE                                                        ARITH       2216     A     
 ARITH              SX2    X1-2                                                            ARITH       2217     A     
 ARITH              ZR     X2,NSAN1     IF IN AN ARG LIST                                  ARITH       2218     A     
 ARITH              SA1       IXFNFG                                                       ARITH       2219     A     
 ARITH              NZ     X1,NSAN1     IF IN IXFN MODE                                    ARITH       2220     A     
 ARITH     NSAN2    IDM       ERMSG13   INF: ARRAY NAME NOT SUBSCRIPTED,1ST EL USD         ARITH       2221     A     
 ARITH              ZR        VR3                                                          ARITH       2222     A     
 ARITH     NSAN1    SA1    B1+1         WAS E-1 AN OP-                                     ARITH       2223     A     
 ARITH              SB3       LOWOP                                                        ARITH       2224     A     
 ARITH              UX0 B2,X1                                                              ARITH       2225     A     
 ARITH              GE  B2,B3,NSAN2     IF YES                                             ARITH       2226     A     
 ARITH              SA1    B1-1         IS E+1 AN OP-                                      ARITH       2227     A     
 ARITH              UX0 B2,X1                                                              ARITH       2228     A     
 ARITH              NZ     X0,NSAN2     IF YES                                             ARITH       2229     A     
 ARITH              SA1    ABIO                                                            ARITH       2230     A     
 ARITH              NZ     X1,NSAN2          IF PROCESSING BUFFER FWA OR LWA               ARITH       2231          I
          -FCC0614
 ARITH              MI     X1,NSAN2    IF BUFFER FWA OR LWA                                FCC0614       17     A     
 ARITH              SA2       IXFNFG                                                       ARITH       2232     A     
 ARITH              SA1       FNAD      FUN ADR IN SYMTAB                                  ARITH       2233     A     
 ARITH              NZ     X2,NSAN3          IF IN IXFN MODE                               ARITH       2234     A     
 ARITH              SA2    X1-1         IS IT AN EXT FUN-                                  ARITH       2235     A     
 ARITH              LX2    59-P.EXT                                                        ARITH       2236     A     
 ARITH              NG     X2,VR3       IF YES                                             ARITH       2237     A     
 ARITH              ZR        NSAN2                                                        ARITH       2238          I
          -FCC0768
 ARITH              LX2    P.EXT-P.INF                                                     FCC0768        5     A     
 ARITH              PL     X2,NSAN2    IF NOT INTRINSIC                                    FCC0768        6     A     
 ARITH              USASDM ERMSG13                                                         FCC0768        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2159    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              EQ     VR3                                                             FCC0768        8     A     
 ARITH     NSAN3    MX0    3                                                               ARITH       2239     A     
 ARITH              SA1    SDIMIN            DIM INFORMATION WORD                          ARITH       2240     A     
 ARITH              LX0    -3                                                              ARITH       2241     A     
 ARITH              BX6    X0*X1             P(ABC) FIELD                                  ARITH       2242     A     
 ARITH              SA6    SAVDAN            NON ZERO IF VARIABLE DIMENSIONS               ARITH       2243     A     
 ARITH              MX7    10                                                              ARITH       2244     A     
 ARITH              SA7    =XCRFLAG    USED BY I/O PROCESSOR                               ARITH       2245     A     
 ARITH              EQ     VR3                                                             ARITH       2246     A     
 ARITH                                                                                     ARITH       2247     A     
 ARITH    *     GTOUT: IF EOS POPPED OUT.  SHOULD BE A GO TO STATEMENT.  IF NOT,           ARITH       2248     A     
 ARITH    * IDAG.  IF TYPE OF EXPR IS NOT INT, OUTPUT ARLIST TO CONVERT TO TINT.           ARITH       2249     A     
 ARITH    * THEN J  OUT.                                                                   ARITH       2250     A     
 ARITH     GTOUT    SA5       RL2                                                          ARITH       2251     A     
 ARITH              SB5    T.INT                                                           ARITH       2252     A     
 ARITH              RJ        MODCH     CONVERT, IF NECESSARY, RL2 TO INT                  ARITH       2253     A     
 ARITH              ZR        OUT                                                          ARITH       2254     A     
 ARITH    ***                                                                              ARITH       2255     A     
 ARITH    *         HERE IF VARIABLE NAMED IN LEVEL OR ECS STATEMENT                       ARITH       2256     A     
 ARITH    *         ECS VARIABLE TREATED AS LEVEL 3 TYPE                                   ARITH       2257     A     
 ARITH    *         REFERENCE MUST BE STAND-ALONG, AND IN ARGUMENT MODE                    ARITH       2258     A     
 ARITH     LEVEL    SA2    EMODE                                                           ARITH       2259     A     
 ARITH              SX3    X2-2              TEST FOR ARGUMENT MODE                        ARITH       2260     A     
 ARITH              NZ     X3,LVLERR1        NOT AN ARGUMENT                               ARITH       2261     A     
 ARITH              SA1    B1-1              NEXT E-LIST ITEM                              ARITH       2262     A     
 ARITH              UX0    B2,X1                                                           ARITH       2263     A     
 ARITH              SB3    LOWOP                                                           ARITH       2264     A     
 ARITH              GE     B2,B3,LVLERR1     NOT A STAND-ALONG ARGUMENT                    ARITH       2265     A     
 ARITH              SB4    EL.(                                                            ARITH       2266     A     
 ARITH              SA1    FNAD                                                            ARITH       2267     A     
 ARITH              SA2    =7LLOCF                                                         FCC0385        9     A     
 ARITH              SA3    X1                                                              FCC0385       10     A     
 ARITH              BX2    X2-X3                                                           FCC0385       11     A     
 ARITH              AX2    18                                                              FCC0385       12     A     
 ARITH              ZR     X2,LEVEL1   IF LOCF(LEVEL3)                                     FCC0385       13     A     
 ARITH              SA2    X1-1                                                            ARITH       2268     A     
 ARITH              LX2    59-P.EXT                                                        ARITH       2269     A     
 ARITH              PL     X2,LVLERR1        NOT IN EXT ARG LIST                           ARITH       2270     A     
 ARITH              LX2    P.EXT-P.LIB                                                     ARITH       2271          I
          -FCC0385
 ARITH              MI     X2,LVLERR1  IF IN BEF ARG LIST                                  ARITH       2272          I
          -FCC0385
 ARITH              NE     B2,B4,IDREF.3  PROCESS ARGUMENT AS NORMAL VARIABLE              ARITH       2273          I
          -FCC0385
 ARITH                                                                                     FCC0385       14     A     
 ARITH     LEVEL1   NE     B2,B4,IDREF.3   IF VARIABLE                                     FCC0385       15     A     
 ARITH              SA1    NAME                                                            ARITH       2274     A     
 ARITH              LX1    59-P.DIM                                                        ARITH       2275     A     
 ARITH              NG     X1,ARRAY          LCM ARRAY ITEM                                ARITH       2276     A     
 ARITH              EERR   ERMSG2            SIMPLE VARIABLE FOLLOWED BY A (               ARITH       2277     A     
 ARITH                                                                                     ARITH       2278     A     
 ARITH     LVLERR1  EERR   ERMSG52           NOT STAND-ALONG ARGUMENT                      ARITH       2279     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2160    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              TITLE              FUNCTION PROCESSING                                 ARITH       2280     A     
 ARITH    *     FUNC IF ID IS NAME OF FUN                                                  ARITH       2281     A     
 ARITH     FUNC     SA1    B1-1         IS E+1 (                                           ARITH       2282     A     
 ARITH              UX0 B2,X1                                                              ARITH       2283     A     
 ARITH              SB3    EL.(                                                            ARITH       2284     A     
 ARITH              EQ  B2,B3,FUNC1     IF YES                                             ARITH       2285     A     
 ARITH              SA2       NAMFWA    IS IT A STATE.OR INTR.FUN-                         ARITH       2286     A     
 ARITH              SA1       X2-1      GET 2ND WD OF SYMTAB ENTRY                         ARITH       2287     A     
 ARITH              BX3    X1                                                              FCC1716X      22     A     
 ARITH              LX1    59-P.ASF                                                        ARITH       2288     A     
 ARITH              NG     X1,FUNC3     IF STATE FUN                                       ARITH       2289     A     
 ARITH              LX1    P.ASF-P.EXT                                                     ARITH       2290     A     
 ARITH              PL     X1,FUNC3     IF NOT EXT (THEN INTR)                             ARITH       2291     A     
 ARITH              LX1    P.EXT-P.BEF                                                     FCC0718       16     A     
 ARITH              MI     X1,FUNC3    IF A BASIC EXTERNAL                                 FCC0718       17     A     
 ARITH              SA1       EMODE     ARE WE IN ARG LIST MODE-                           ARITH       2292     A     
 ARITH              SX2    X1-2                                                            ARITH       2293     A     
 ARITH              NZ     X2,FUNC3     IF NO                                              ARITH       2294     A     
 ARITH              SA1    B1+1         IS E-1 AN EXPLICIT OP-                             ARITH       2295     A     
 ARITH              UX0 B2,X1                                                              ARITH       2296     A     
 ARITH              SB3       LOWOP                                                        ARITH       2297     A     
 ARITH              GE  B2,B3,FUNC3     IF YES                                             ARITH       2298     A     
 ARITH              SA1    B1-1         IS E+1 AN OP-                                      ARITH       2299     A     
 ARITH              UX0 B2,X1                                                              ARITH       2300     A     
 ARITH              SB3       LOWOP                                                        ARITH       2301     A     
 ARITH              GE  B2,B3,FUNC3     IF YES                                             ARITH       2302     A     
 ARITH              SA1       FNAD      ARE WE IN AN EXT FUN ARG LIST-                     ARITH       2303     A     
 ARITH              SA2    X1-1         GET 2ND WD SYMTAB ENTRY                            ARITH       2304     A     
 ARITH              LX2    59-P.EXT                                                        ARITH       2305     A     
 ARITH              NG     X2,ASAL      IF IN AN EXT FUN ARG LIST                          ARITH       2306          I
          -FCC1716X 
 ARITH              SA3    X1                                                              ARITH       2307          I
          -FCC1716X 
 ARITH              PL     X2,ASAL7    IF NOT IN AN EXT FUN                                FCC1716X      23     A     
 ARITH              LX3    59-P.EST    ARG LIST                                            FCC1716X      24     A     
 ARITH              MI     X3,ASAL     IF ARGUMENT SPECIFIED IN EXTERNAL                   FCC1716X      25     A     
 ARITH              EERR   ERMSG61     EXTERNAL IN ARGLIST MUST BE IN EXT STMT             FCC1716X      26     A     
 ARITH                                                                                     FCC1716X      27     A     
 ARITH     ASAL7    SA3    X1                                                              FCC1716X      28     A     
 ARITH              SA4    =7LLOCF                                                         ARITH       2308     A     
 ARITH              BX5    X3-X4                                                           ARITH       2309     A     
 ARITH              AX5    18                                                              ARITH       2310     A     
 ARITH              NZ     X5,ASAL0    IF NOT LOCF(EXT)                                    ARITH       2311     A     
 ARITH              SA5    IDORDL                                                          ARITH       2312     A     
 ARITH              SB6    B0                                                              ARITH       2313     A     
 ARITH              SB7    B0                                                              ARITH       2314     A     
 ARITH              RJ     FETCH             OUTPUT A LOAD                                 ARITH       2315     A     
 ARITH              EQ     NEXTE                                                           ARITH       2316     A     
 ARITH                                                                                     ARITH       2317     A     
 ARITH     ASAL0    EERR   ERMSG14           INTRIN(EXT) NOT ALLOWED                       ARITH       2318     A     
 ARITH    *                                                                                ARITH       2319     A     
 ARITH     ASAL     MX1    0           ST = 0                                              ARITH       2320     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2161    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA2    IDORDL                                                          ARITH       2321     A     
 ARITH              MX3    0           CA = 0                                              ARITH       2322     A     
 ARITH              MX4    0           NO DIM CHECK                                        ARITH       2323     A     
 ARITH              RJ        APLRT                                                        ARITH       2324     A     
 ARITH              SA1       ACNT                                                         ARITH       2325     A     
 ARITH              SX6    X1+1                                                            ARITH       2326     A     
 ARITH              SA6       ACNT                                                         ARITH       2327     A     
 ARITH              SA1    B1-1         IS E+1 A , :                                       ARITH       2328     A     
 ARITH              SB3    EL.COMMA                                                        ARITH       2329     A     
 ARITH              UX0 B2,X1                                                              ARITH       2330     A     
 ARITH              EQ  B2,B3,ASAL2     IF YES                                             ARITH       2331     A     
 ARITH              SB3    EL.)                                                            ARITH       2332     A     
 ARITH              EQ  B2,B3,ASAL2     IF E+1 IS A )                                      ARITH       2333     A     
 ARITH              EERR      ERMSG15   ARG NOT FOLLOWED BY ) OR ,                         ARITH       2334     A     
 ARITH     ASAL2    SA1       OSPTR     TAKE ,P OUT OF STAK                                ARITH       2335     A     
 ARITH              SX6    X1-1                                                            ARITH       2336     A     
 ARITH              SA6       OSPTR                                                        ARITH       2337     A     
 ARITH              EQ     NEXTE                                                           ARITH       2338     A     
 ARITH    *                                                                                ARITH       2339     A     
 ARITH     FUNC3    EERR      ERMSG16   THIS FUN REF REQUIRES ARG LIST                     ARITH       2340     A     
 ARITH     FUNC1    SPACE  4,8                                                             ARITH       2341     A     
 ARITH    *     FUNC1 IF FUNC( IN ELIST                                                    ARITH       2342     A     
 ARITH     FUNC1    SA2       EPOINT    MOVE EPOINT BEYOND (                               ARITH       2343     A     
 ARITH              SA1    X2-1                                                            ARITH       2344     A     
 ARITH              UX7 B4,X1                                                              ARITH       2345     A     
 ARITH              RJ        SSERR3    CHECK SYNTAX AFTER LEFT PAR                        ARITH       2346     A     
 ARITH              SA1    PARLEVEL                                                        ARITH       2347     A     
 ARITH              SX6    X1+1                                                            ARITH       2348     A     
 ARITH              SA6    A1                                                              ARITH       2349     A     
 ARITH              SA1       NAME+1    IS FUN A STATE FUN -                               ARITH       2350     A     
 ARITH              SX7    X2-1                                                            ARITH       2351     A     
 ARITH              LX1    59-P.ASF                                                        ARITH       2352     A     
 ARITH              SA7       EPOINT                                                       ARITH       2353     A     
 ARITH              PL     X1,FUNC5     IF NO                                              ARITH       2354     A     
 ARITH              MX0    60-L.TYP                                                        ARITH       2355     A     
 ARITH              SB2       SFLPOC    S.F.LP OPCODE EQU 30                               ARITH       2356     A     
 ARITH              BX2   -X0*X1                                                           ARITH       2357     A     
 ARITH              SA3       EMODE     SAVE CURRENT MODE                                  ARITH       2358     A     
 ARITH              LX2       44        POSITION SF TYPE                                   ARITH       2359     A     
 ARITH              LX3       19        POSITION MODE                                      ARITH       2360     A     
 ARITH              BX0    X2+X3                                                           ARITH       2361     A     
 ARITH              PX6    B2,X0                                                           ARITH       2362     A     
 ARITH              SX7       1         SET EMODE TO EXPR                                  ARITH       2363     A     
 ARITH              SA4       OSPTR                                                        ARITH       2364     A     
 ARITH              SB2    X4-MXOSE+2                                                      ARITH       2365     A     
 ARITH              SA7       EMODE                                                        ARITH       2366     A     
 ARITH              PL     B2,ERR03     IFOPSTAK FULL                                      ARITH       2367     A     
 ARITH              SX7    X4+2         UP OSPTR                                           ARITH       2368     A     
 ARITH              SA6    X4+OPSTAK+2  STORE SF LP- (SF                                   ARITH       2369     A     
 ARITH              SA1       ARLPT                                                        ARITH       2370     A     
 ARITH              SA7       OSPTR                                                        ARITH       2371     A     
 ARITH              SA2       SFRSTB                                                       ARITH       2372     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2162    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              LX2       18                                                           ARITH       2373     A     
 ARITH              BX6    X2+X1                                                           ARITH       2374     A     
 ARITH              SA1       EPOINT    FIX EPOINT TO POINT TO ASF NAME                    ARITH       2375     A     
 ARITH              SA6    X4+OPSTAK+1  STORE ARLPT FOR POSSIBLE USE BY EXPOP.             ARITH       2376     A     
 ARITH              SX6    X1+2                                                            ARITH       2377     A     
 ARITH              SA6       EPOINT                                                       ARITH       2378     A     
 ARITH              RJ        ASFREF                                                       ARITH       2379     A     
 ARITH              EQ     NEXTE                                                           ARITH       2380     A     
 ARITH     FUNC5RT  SPACE  4,8                                                             ARITH       2381     A     
 ARITH     FUNC5RT  DATA      0                                                            ARITH       2382     A     
 ARITH              SA1       RNTBC     ENTER (A IN OPSTAK PRECEDED BY ARGLIST   -         ARITH       2383     A     
 ARITH              SA2       OSPTR        INFO OF A POSSIBLY PRECEDING AND IN-  -         ARITH       2384     A     
 ARITH              IX3    X1+X2           COMPLETE FUNC REF.                              ARITH       2385     A     
 ARITH              SB2    X3-MXOSE+9   SEE IF ROOM FOR RNTBL + 9 OTHER WDS OF INF         ARITH       2386     A     
 ARITH              PL     B2,ERR03                                                        ARITH       2387     A     
 ARITH              SA4    FTRFLG                                                          ARITH       2388     A     
 ARITH              SA3    FRLW                                                            ARITH       2389     A     
 ARITH              LX4    -1                                                              ARITH       2390     A     
 ARITH              BX6    X3+X4                                                           ARITH       2391     A     
 ARITH              SA6    A3                SAVE FUNCTION TRACE FLAG                      ARITH       2392     A     
 ARITH              SB2    X1+6         B2=NO.WORDS TO MOVE                                ARITH       2393     A     
 ARITH              SB3    B0           B3 WILL COUNT                                      ARITH       2394     A     
 ARITH              SB4    X2+OPSTAK    B4=FWA-1 TO STORE TO                               ARITH       2395     A     
 ARITH     FUNC6    SA1    B3+FRLW      FRLW IS 1ST WD IN BLOK                             ARITH       2396     A     
 ARITH              BX6    X1                                                              ARITH       2397     A     
 ARITH              SB3    B3+1                                                            ARITH       2398     A     
 ARITH              SA6    B3+B4        1ST WD GOES INTO X2+OPSTAK+1                       ARITH       2399     A     
 ARITH              NE  B3,B2,FUNC6     IF MORE TO MOVE                                    ARITH       2400     A     
 ARITH    *                                                                                ARITH       2401     A     
 ARITH              SB2    B2+1                                                            ARITH       2402     A     
 ARITH              SX7    B2                                                              ARITH       2403     A     
 ARITH              SA7    B2+B4        STORE CNT OF WORDS PRECEDING (A                    ARITH       2404     A     
 ARITH              SX6    X2+B2        UPDATE OSPTR                                       ARITH       2405     A     
 ARITH              SA6       OSPTR                                                        ARITH       2406     A     
 ARITH    *     SET UP FRLW BLOK FOR THIS FUN                                              ARITH       2407     A     
 ARITH              SA2       ARLPT                                          FUNC.         ARITH       2408     A     
 ARITH              MX6    0                                                               ARITH       2409     A     
 ARITH              SA1    TYADR       ADDRESS OF ARGUMENT TYPES WORD                      ARITH       2410     A     
 ARITH              LX1    18                                                              ARITH       2411     A     
 ARITH              BX7    X1+X2                                                           ARITH       2412     A     
 ARITH              SA6    STAPLC                                                          ARITH       2413     A     
 ARITH              SA7       FRLW                                                         ARITH       2414     A     
 ARITH              SA1       NAMFWA                                                       ARITH       2415     A     
 ARITH              MX7       0                                                            ARITH       2416     A     
 ARITH              BX6    X1                                                              ARITH       2417     A     
 ARITH              SA7       RNTBC                                                        ARITH       2418     A     
 ARITH              SA6       FNAD                                                         ARITH       2419     A     
 ARITH              SA7       ACNT                                                         ARITH       2420     A     
 ARITH              SA1       SFRSTB                                                       ARITH       2421     A     
 ARITH              BX6    X1                                                              ARITH       2422     A     
 ARITH              SA6       SSFRSTB                                                      ARITH       2423     A     
 ARITH              SA1       EMODE                                                        ARITH       2424     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2163    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA2       ARGLP                                                        ARITH       2425     A     
 ARITH              LX1       19                                                           ARITH       2426     A     
 ARITH              SA3       OSPTR                                                        ARITH       2427     A     
 ARITH              BX6    X1+X2                                                           ARITH       2428     A     
 ARITH              SA6    X3+OPSTAK+1  (A                                                 ARITH       2429     A     
 ARITH              SA1       ARGCMA                                                       ARITH       2430     A     
 ARITH              BX7    X1                                                              ARITH       2431     A     
 ARITH              SX6    X3+2                                                            ARITH       2432     A     
 ARITH              SA7    X3+OPSTAK+2  ,A                                                 ARITH       2433     A     
 ARITH              SA6       OSPTR                                                        ARITH       2434     A     
 ARITH              SX7       2         SET CURRENT MODE TO ARG.LIST MODE                  ARITH       2435     A     
 ARITH              SA7       EMODE                                                        ARITH       2436     A     
 ARITH              SA1       FNAD      IS THIS FUNC INTR OR BASIC EXT-                    ARITH       2437     A     
 ARITH              SA2    X1-1                                                            ARITH       2438     A     
 ARITH              LX2    59-P.INF                                                        ARITH       2439     A     
 ARITH              MI     X2,FUNC5RT  IF AN INTRINSIC FUNCTION                            ARITH       2440     A     
 ARITH                                                                                     ARITH       2441     A     
 ARITH              CALL   DOCALL      INFORM *DOPROC* OF EXTERNAL REFERENCE               ARITH       2442     A     
 ARITH    *         (WILL ALSO REACH THIS POINT FOR ** FUNCTION CALLS)                     ARITH       2443     A     
 ARITH              SA1       LEFRN     IS THERE AN UNSAVED RESULT NAME IN LEFRN -         ARITH       2444     A     
 ARITH              ZR     X1,FUNC5RT   IF NOT                                             ARITH       2445     A     
 ARITH              SA2       EXRL1                                                        ARITH       2446     A     
 ARITH              SA3       EXRL2                                                        ARITH       2447     A     
 ARITH              ZR     X2,FUNC9A    IF THIS ISNT A ** FUNCTION CALL.                   ARITH       2448          I
          -FCC0623
 ARITH              ZR     X2,FUNC7    IF NOT PROCESSING **                                FCC0623       12     A     
 ARITH              SA2    EXPSTB       GET R NAME OF FIRST ISSTR OF BASE                  ARITH       2449     A     
 ARITH              SA3    X2+ARLIST+2                                                     ARITH       2450     A     
 ARITH              SUB                                                                    ARITH       2451     A     
 ARITH              MX0       60-16                                                        ARITH       2452     A     
 ARITH              BX4    -X0*X1                                                          ARITH       2453     A     
 ARITH              BX6  -X0*X3                                                            ARITH       2454     A     
 ARITH              IX2    X4-X6                                                           ARITH       2455     A     
 ARITH              SA6       RNFIB     SAVE RNAME OF FIRST INSTR IN BASE                  ARITH       2456     A     
 ARITH              PL     X2,FUNC5RT   IF THE LAST FUNC RESULT IS PART OF THE             ARITH       2457     A     
 ARITH    *                  BASE OR POWER OF THIS **.                                     ARITH       2458     A     
 ARITH              SA3       EXPNSF                                                       ARITH       2459     A     
 ARITH              SX6    X3+1                                                            ARITH       2460     A     
 ARITH              SA6       EXPNSF                                                       ARITH       2461     A     
 ARITH     FUNC9A   RJ        FRTS      OUTPUT TEMP STO OF PREVIOUS FUN RESULT TO-         ARITH       2462          I
          -FCC0623
 ARITH              SA3       STSORD                             RLIST (NOT ARLST)         ARITH       2463          I
          -FCC0623
 ARITH              SA2       LEFRN     INSERT ORD OF TS IN LEFRN                          ARITH       2464          I
          -FCC0623
 ARITH              SX3    X3-1                                                            ARITH       2465          I
          -FCC0623
 ARITH              LX2       1                                                            ARITH       2466          I
          -FCC0623
 ARITH              PL     X2,FUNC9A1   IF NOT DBL                                         ARITH       2467          I
          -FCC0623
 ARITH              SX3    X3-1                                                            ARITH       2468          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2164    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
          -FCC0623
 ARITH     FUNC9A1  LX3       16                                                           ARITH       2469          I
          -FCC0623
 ARITH              LX2    -1                                                              ARITH       2470          I
          -FCC0623
 ARITH              BX6    X2+X3                                                           ARITH       2471          I
          -FCC0623
 ARITH              SA6       LEFRN                                                        ARITH       2472          I
          -FCC0623
 ARITH              SA1    SFRSTB       ADD LEFRN TO FRSTB                                 ARITH       2473          I
          -FCC0623
 ARITH              SA2       LEFRN                                                        ARITH       2474          I
          -FCC0623
 ARITH              SX3    X1-MXFRSTB                                                      ARITH       2475          I
          -FCC0623
 ARITH              NG     X3,FUNC8     IF TABLE NOT OVERFLOWED                            ARITH       2476          I
          -FCC0623
 ARITH              EERR      ERMSG18                                                      ARITH       2477          I
          -FCC0623
 ARITH     FUNC8    BX6    X2                                                              ARITH       2478          I
          -FCC0623
 ARITH              SA6    X1+FRSTB                                                        ARITH       2479          I
          -FCC0623
 ARITH              SX7    X1+1                                                            ARITH       2480          I
          -FCC0623
 ARITH              SA7       SFRSTB                                                       ARITH       2481          I
          -FCC0623
 ARITH              SA7       SSFRSTB   RESET                                              ARITH       2482          I
          -FCC0623
 ARITH              MX6       0                                                            ARITH       2483          I
          -FCC0623
 ARITH              SA6       LEFRN                                                        ARITH       2484          I
          -FCC0623
 ARITH              ZR        FUNC5RT                                                      ARITH       2485          I
          -FCC0623
 ARITH    *    END OF FUNC5RT                                                              ARITH       2486          I
          -FCC0623
 ARITH    *                                                                                ARITH       2487          I
          -FCC0623
 ARITH    *                                                                                ARITH       2488          I
          -FCC0623
 ARITH    *                                                                                ARITH       2489          I
          -FCC0623
 ARITH                                                                                     FCC0623       13     A     
 ARITH     FUNC7    RJ     FUNC8       OUTPUT ANY SAVED FUNCTION RESULT                    FCC0623       14     A     
 ARITH              SA7    SSFRSTB     RESET BASE FOR NEXT EXTERNAL                        FCC0623       15     A     
 ARITH              EQ     FUNC5RT                                                         FCC0623       16     A     
 ARITH              SPACE  4,8                                                             FCC0623       17     A     
 ARITH    **        FUNC8 - OUTPUT ANY SAVED FUNCTION RESULT.                              FCC0623       18     A     
 ARITH    *                                                                                FCC0623       19     A     
 ARITH    *         EXIT   (X7) = (SFRSTB), UPDATED IF A *SFR* WAS PROCESSED.              FCC0623       20     A     
 ARITH    *                                                                                FCC0623       21     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2165    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     FUNC8    ENTRY. *                                                               FCC0623       22     A     
 ARITH              SA1    LEFRN                                                           FCC0623       23     A     
 ARITH              ZR     X1,FUNC8    IF NO SAVED RESULTS                                 FCC0623       24     A     
 ARITH              RJ     FRTS        OUTPUT TEMP-STORE AS *SFR* MACRO                    FCC0623       25     A     
 ARITH              SA3    STSORD      CA = (STSORD)                                       FCC0623       26     A     
 ARITH              SA2    LEFRN                                                           FCC0623       27     A     
 ARITH              SX3    X3-1                                                            FCC0623       28     A     
 ARITH              MX0    59                                                              FCC0623       29     A     
 ARITH              LX2    -58         *DOUBLE* BIT TO BIT 0                               FCC0623       30     A     
 ARITH              BX0    -X0*X2                                                          FCC0623       31     A     
 ARITH              LX2    58                                                              FCC0623       32     A     
 ARITH              IX3    X3-X0       CA = CA-1 (CA-2 IF DOUBLE)                          FCC0623       33     A     
 ARITH              LX3    16                                                              FCC0623       34     A     
 ARITH              MX6    0                                                               FCC0623       35     A     
 ARITH              SA1    SFRSTB                                                          FCC0623       36     A     
 ARITH              SA6    A2          LEFRN = 0                                           FCC0623       37     A     
 ARITH              SX4    X1-MXFRSTB                                                      FCC0623       38     A     
 ARITH              MI     X4,FUNC8A   IF NO OVERFLOW                                      FCC0623       39     A     
 ARITH              EERR   ERMSG18                                                         FCC0623       40     A     
 ARITH                                                                                     FCC0623       41     A     
 ARITH     FUNC8A   BX6    X2+X3                                                           FCC0623       42     A     
 ARITH              SX7    X1+1                                                            FCC0623       43     A     
 ARITH              SA6    X1+FRSTB    FRSTB(SFRSTB) = LEFRN                               FCC0623       44     A     
 ARITH              SA7    A1          SFRSTB = SFRSTB + 1                                 FCC0623       45     A     
 ARITH              EQ     FUNC8                                                           FCC0623       46     A     
 ARITH              SPACE  4,8                                                             FCC0623       47     A     
 ARITH     FUNC5    RJ        FUNC5RT                                                      ARITH       2490     A     
 ARITH    *         GEN EXT FUN REF. OUTPUT GEN  EXT MACRO WITH NAME (IH) OF               ARITH       2491     A     
 ARITH    *         FUN AND NAME (IH) OF APLIST AS PARAMS.                                 ARITH       2492     A     
 ARITH                                                                                     ARITH       2493     A     
 ARITH              SA2    DFLAG                                                           ARITH       2494     A     
 ARITH              ZR     X2,FUNC5B         BRANCH IF NOT IN DEBUG MODE                   ARITH       2495     A     
 ARITH              SA1    IXFNFG                                                          ARITH       2496     A     
 ARITH              NZ     X1,FUNC5B         IF IN AN I/O LIST                             ARITH       2497     A     
 ARITH              SA3    EXRL1                                                           ARITH       2498     A     
 ARITH              NZ     X3,FUNC5B         IF PROCESSING ** CALL                         ARITH       2499     A     
 ARITH              SA1    FNAD                                                            ARITH       2500     A     
 ARITH              SA2    X1-1              WORD 2 OF SYMTAB ENTRY                        ARITH       2501     A     
 ARITH              SA1    X1                WORD 1 OF SYMTAB ENTRY                        ARITH       2502     A     
 ARITH              BX7    X2                                                              ARITH       2503     A     
 ARITH              LX7    59-P.INF                                                        ARITH       2504     A     
 ARITH              MX6    0                                                               ARITH       2505     A     
 ARITH    REQUEST   SA6    FTRFLG      INITIALIZE FLAG                                     ARITH       2506     A     
 ARITH              MI     X7,FUNC5B   IF INTRINSIC FUNCTION                               ARITH       2507     A     
 ARITH              SA3    ALLFUNC                                                         ARITH       2508     A     
 ARITH              NZ     X3,FUNC5A         IF ALL FUNCTIONS TO BE TRACED                 ARITH       2509     A     
 ARITH              BX3    X2                                                              ARITH       2510     A     
 ARITH              LX3    60-P.DIF          SHIFT DEBUG BITS                              ARITH       2511     A     
 ARITH              MX0    60-L.DIF                                                        ARITH       2512     A     
 ARITH              BX7    -X0*X3            MASK OUT DEBUG BITS                           ARITH       2513     A     
 ARITH              SX6    X7-DV.FUN         IS FUNCTION TRACING TO BE DONE                ARITH       2514     A     
 ARITH              NZ     X6,FUNC5B         IF NOT                                        ARITH       2515     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2166    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     FUNC5A   RJ     FNPP              FUNCTION PREPROCESSOR                         ARITH       2516          I
          -FCC0822
 ARITH     FUNC5A   SX7    1                                                               FCC0822        5     A     
 ARITH              SA7    FTRFLG      SIGNAL TRACING ON FOR THIS FUNCTION                 FCC0822        6     A     
 ARITH     FUNC5B   BSS    0                                                               ARITH       2517     A     
 ARITH              ZR        NEXTE                                                        ARITH       2518     A     
 ARITH              EJECT                                                                  ARITH       2519     A     
 ARITH    *     SIMPLE SYNTAX (THIS E : NEXT E) CHECKING.                                  ARITH       2520     A     
 ARITH     SSERR1   EERR      ERMSG8                                                       ARITH       2521     A     
 ARITH     SSERR2   SA1    B1+1         GET PRECEDING E-ITEM                               ARITH       2522     A     
 ARITH              UX0 B2,X1                                                              ARITH       2523     A     
 ARITH              SB3    EL.)                                                            ARITH       2524     A     
 ARITH              GT  B2,B3,SSERR5                                                       ARITH       2525     A     
 ARITH              EERR      ERMSG53   .NOT. MUSNT BE PRECEDED BY ID, CON, OR ).          ARITH       2526     A     
 ARITH    *                                                                                ARITH       2527     A     
 ARITH     SSERR3   DATA      0         HERE IF E IS A COMMA, =, (, .OR., OR .AND.         ARITH       2528     A     
 ARITH    *     DONT DESTROY X2                                                            ARITH       2529     A     
 ARITH              SB2    EL.ID                                                           ARITH       2530     A     
 ARITH              SB3    EL.(                                                            ARITH       2531     A     
 ARITH              LE  B4,B2,SSERR3    IF FOLLOWED BY ID OR CONST                         ARITH       2532     A     
 ARITH              EQ  B4,B3,SSERR3    BY (                                               ARITH       2533     A     
 ARITH              SB2    EL.MINUS                                                        ARITH       2534     A     
 ARITH              SB3    EL.NOT                                                          ARITH       2535     A     
 ARITH              EQ  B4,B2,SSERR3    -                                                  ARITH       2536     A     
 ARITH              EQ  B4,B3,SSERR3    .NOT.                                              ARITH       2537     A     
 ARITH              SB2    EL.PLUS                                                         ARITH       2538     A     
 ARITH              EQ  B4,B2,SSERR3    +                                                  ARITH       2539     A     
 ARITH    *     HERE IF E NOT FOLLOWED BY CON,ID,(,NOT,-,+                                 ARITH       2540     A     
 ARITH              EERR      ERMSG27                                                      ARITH       2541     A     
 ARITH    *                                                                                ARITH       2542     A     
 ARITH    *     SSERR4 IF .OR. OR .AND. IN ELIST                                           ARITH       2543     A     
 ARITH     SSERR4   RJ        SSERR3                                                       ARITH       2544     A     
 ARITH              ZR        CMPARE                                                       ARITH       2545     A     
 ARITH    *                                                                                ARITH       2546     A     
 ARITH     SSERR5   SB2    EL.ID                                                           ARITH       2547     A     
 ARITH              SB3    EL.(                                                            ARITH       2548     A     
 ARITH              LE  B4,B2,CMPARE    IF FOLLOWED BY CON OR ID                           ARITH       2549     A     
 ARITH              EQ  B4,B3,CMPARE    BY (                                               ARITH       2550     A     
 ARITH              SB2    EL.MINUS                                                        ARITH       2551     A     
 ARITH              SB3    EL.PLUS                                                         ARITH       2552     A     
 ARITH              EQ  B4,B2,CMPARE    -                                                  ARITH       2553     A     
 ARITH              EQ  B4,B3,CMPARE    +                                                  ARITH       2554     A     
 ARITH              EERR      ERMSG19                                                      ARITH       2555     A     
 ARITH    *                                                                                ARITH       2556     A     
 ARITH    *     SSERR6 IF A -,+,*,/, OR ** IN E-LIST                                       ARITH       2557     A     
 ARITH     SSERR6   DATA      0                                                            ARITH       2558     A     
 ARITH              SB2    EL.ID                                                           ARITH       2559     A     
 ARITH              SB3    EL.(                                                            ARITH       2560     A     
 ARITH              LE  B4,B2,SSERR6    IF FOLLOWED BY CON OR ID                           ARITH       2561     A     
 ARITH              EQ  B4,B3,SSERR6    BY (                                               ARITH       2562     A     
 ARITH              EERR      ERMSG5                                                       ARITH       2563     A     
 ARITH    *                                                                                ARITH       2564     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2167    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     SSERR7   RJ        SSERR6                                                       ARITH       2565     A     
 ARITH    *     HERE (*-1) IF **                                                           ARITH       2566     A     
 ARITH              ZR        CMPARE                                                       ARITH       2567     A     
 ARITH    *                                                                                ARITH       2568     A     
 ARITH    *     END OF SSERR CODING                                                        ARITH       2569     A     
 ARITH              EJECT                                                                  ARITH       2570     A     
 ARITH    *     CARPO IF A ,A POPPED OUT                                                   ARITH       2571     A     
 ARITH     CARGPO   BSS       0                                                            ARITH       2572     A     
 ARITH              RJ        CARGPORT                                                     ARITH       2573     A     
 ARITH              ZR        CMPARE                                                       ARITH       2574     A     
 ARITH    *                                                                                ARITH       2575     A     
 ARITH    *                                                                                ARITH       2576     A     
 ARITH    *                                                                                ARITH       2577     A     
 ARITH    *                                                                                ARITH       2578     A     
 ARITH     CARGPORT DATA      0                                                            ARITH       2579     A     
 ARITH              SA1       ACNT      UP ARG CNT                                         ARITH       2580     A     
 ARITH              SA2       FNAD      ARE WE IN BASIC EXT ARG LIST-                      ARITH       2581     A     
 ARITH              SB2    X1-MXARGS                                                       ARITH       2582     A     
 ARITH              SX6    X1+1                                                            ARITH       2583     A     
 ARITH              NG     B2,CARGP6    IF NOT TOO MANY ARGS IN ARG LIST                   ARITH       2584     A     
 ARITH              EERR      ERMSG7    TOO MANY ARGS IN ARG LIST                          ARITH       2585     A     
 ARITH     CARGP6   SA3    X2-1                                                            ARITH       2586     A     
 ARITH              SA6       ACNT                                                         ARITH       2587     A     
 ARITH              LX3    59-P.BEF                                                        ARITH       2588     A     
 ARITH              NG     X3,CRGP10    IF WE ARE IN BASIC EXT ARG LIST                    ARITH       2589     A     
 ARITH              LX3    P.BEF-P.INF                                                     ARITH       2590     A     
 ARITH              NG     X3,CRGP20    IF YES                                             ARITH       2591     A     
 ARITH    *     HERE IF A ,A POPPED DURING SCAN OF GEN EXT FUN ARG LST                     ARITH       2592     A     
 ARITH              LX3    P.INF-P.LIB                                                     ARITH       2593     A     
 ARITH              PL     X3,CRGP0          IF NOT BEF CALL BY NAME                       ARITH       2594     A     
 ARITH              SA1    RL2                                                             ARITH       2595     A     
 ARITH              SA2    X1                SET UP FOR CALL TO CHKARG                     ARITH       2596     A     
 ARITH              UX1    B2,X2             (B2) = TYPE OF ACTUAL ARGUMENT                ARITH       2597     A     
 ARITH              RJ     CHKARG                                                          ARITH       2598     A     
 ARITH     CRGP0    SA1    RL2               IF LAST UNUSED R-LINE A FETCH-                ARITH       2599     A     
 ARITH              SA2    X1+2         (1ST WD OF MACRO)                                  ARITH       2600     A     
 ARITH              UX0 B2,X2                                                              ARITH       2601     A     
 ARITH              SB3    -SLMACO                                                         ARITH       2602     A     
 ARITH              EQ  B2,B3,CRGP1     IF YES                                             ARITH       2603     A     
 ARITH              SB3      -STLMAC                                                       ARITH       2604     A     
 ARITH              EQ     B2,B3,CRGP6  IF YES                                             ARITH       2605     A     
 ARITH              SB3      -DLMACO                                                       ARITH       2606     A     
 ARITH              EQ  B2,B3,CRGP1     IF YES                                             ARITH       2607     A     
 ARITH              MX2    10          FLAG FOR POSITIONING RL2,RL1 BACK 1 ARLIST          ARITH       2608     A     
 ARITH              RJ     OTS         OUTPUT TEMP STORES                                  ARITH       2609     A     
 ARITH              BX1    X4                                                              ARITH       2610     A     
 ARITH              LX1    AP.P1P                                                          ARITH       2611     A     
 ARITH              MX4    0                                                               ARITH       2612     A     
 ARITH     CRGP5    RJ     APLRT       OUTPUT APLIST                                       ARITH       2613     A     
 ARITH              SA1       EPOINT    SET B1 UP TO POINT TO CURRENT E                    ARITH       2614     A     
 ARITH              SB1    X1+1                                                            ARITH       2615     A     
 ARITH              ZR        CARGPORT                                                     ARITH       2616     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2168    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     CRGP1    RJ     SDFINE      SET DEFINE BIT, (X6) = WORD A                       ARITH       2617     A     
 ARITH              SA3    EXRL1                                                           ARITH       2618     A     
 ARITH              ZR     X3,CRGP1B   IF NOT PROCESSING ** ARGS                           ARITH       2619     A     
 ARITH              BX6    X4                                                              ARITH       2620     A     
 ARITH              SA6    A6                                                              ARITH       2621     A     
 ARITH     CRGP1B   LX6    59-P.FP                                                         ARITH       2622     A     
 ARITH              MI     X6,CRGP4                                                        ARITH       2623     A     
 ARITH              SA3    X1+4                                                            ARITH       2624     A     
 ARITH              MX0    -RM.RIL                                                         ARITH       2625     A     
 ARITH              AX3    RM.RIL                                                          ARITH       2626     A     
 ARITH              BX3    -X0*X3                                                          ARITH       2627     A     
 ARITH              NZ     X3,CRGP4     IF AN INDEXED FETCH                                ARITH       2628     A     
 ARITH              SA1    X1           NO-OP THE FETCH                                    ARITH       2629     A     
 ARITH              BX6   -X1                                                              ARITH       2630     A     
 ARITH              SA6    A1                                                              ARITH       2631     A     
 ARITH              SA3    A1+5         GET CA                                             ARITH       2632     A     
 ARITH              SA2    A1+3         GET IH                                             ARITH       2633     A     
 ARITH              SA1       RL1       RESET RL2                                          ARITH       2634     A     
 ARITH              SA4    A2-2        IDORD FOR DIM CHECK                                 ARITH       2635     A     
 ARITH              BX6    X1                                                              ARITH       2636     A     
 ARITH              MX1    0                                                               ARITH       2637     A     
 ARITH              SA5    EXRL1                                                           ARITH       2638     A     
 ARITH              SA6    RL2                                                             ARITH       2639     A     
 ARITH              NZ     X5,CRGP5    IF PROCESSING ** ARGS                               ARITH       2640     A     
 ARITH              SA5    NARN                                                            ARITH       2641     A     
 ARITH              SX7    X5-1        DECREMENT NARN TO CONSERVE R-NUMBERS                ARITH       2642     A     
 ARITH              SA7    A5                                                              ARITH       2643     A     
 ARITH              EQ     CRGP5                                                           ARITH       2644     A     
 ARITH                                                                                     ARITH       2645     A     
 ARITH     CRGP4    SA2    X1+2         GET 1ST WD OF FETCH MACRO TO SET MACRO             ARITH       2646     A     
 ARITH    *                                CODE TO A SET XI BA+CA+RF  MACRO.               ARITH       2647     A     
 ARITH              SB2      -SXTAMC                                                       ARITH       2648     A     
 ARITH     CRGP7    PX6    B2,X2                                                           ARITH       2649     A     
 ARITH              SA6    X1+2                                                            ARITH       2650     A     
 ARITH              SA1    RL2                                                             ARITH       2651     A     
 ARITH              SA2    X1                                                              ARITH       2652     A     
 ARITH              UX0 B2,X2                                                              ARITH       2653     A     
 ARITH              SB3    T.DBL                                                           ARITH       2654     A     
 ARITH              SB4    T.CPLX                                                          ARITH       2655     A     
 ARITH              EQ  B2,B3,CRGP7A    IF DBL LENGTH LOAD                                 ARITH       2656     A     
 ARITH              NE  B2,B4,CRGP7B    IF SNGL LENGTH LOAD                                ARITH       2657     A     
 ARITH     CRGP7A   SA5    NARN                                                            ARITH       2658     A     
 ARITH              SX6    X5-1        ADJUST NARN FOR STALR                               ARITH       2659     A     
 ARITH              SA6    A5+                                                             ARITH       2660     A     
 ARITH     CRGP7B   BX7    X1          SAVE RL2 FOR STALR                                  ARITH       2661     A     
 ARITH              SA7    CRGPA                                                           ARITH       2662     A     
 ARITH              RJ     CHKOFF                                                          ARITH       2663     A     
 ARITH              SA1    CRGPA                                                           ARITH       2664     A     
 ARITH              RJ        STALR     GO OUTPUT STORE-TO-APLIST INSTR                    ARITH       2665     A     
 ARITH              ZR        CARGPORT                                                     ARITH       2666     A     
 ARITH    *                                                                                ARITH       2667     A     
 ARITH     CRGP6    RJ        SDFINE    WONT DESTROY X1 OR X2                              ARITH       2668     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2169    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SB2      -SSSXA                                                        ARITH       2669     A     
 ARITH              EQ        CRGP7                                                        ARITH       2670     A     
 ARITH                                                                                     ARITH       2671     A     
 ARITH     CRGPA    BSS    1                                                               ARITH       2672     A     
 ARITH    *                                                                                ARITH       2673     A     
 ARITH    *                                                                                ARITH       2674     A     
 ARITH    *     CRGP10 IF ,P POPPED OUT OF BASIC EXT ARG LIST.  OUTPUT PSUEDO-OP           ARITH       2675     A     
 ARITH    *  TO DEFINE REGISTER TO PLACE ARG IN.                                           ARITH       2676     A     
 ARITH     CRGP10   SA1       ACNT                                                         ARITH       2677     A     
 ARITH              SX6       1                                                            ARITH       2678     A     
 ARITH              IX2    X1-X6                                                           ARITH       2679     A     
 ARITH              ZR     X2,CRGP11    IF 1ST ARG                                         ARITH       2680     A     
 ARITH              SX6       2                                                            ARITH       2681     A     
 ARITH     CRGP11   SA6       TS1                                                          ARITH       2682     A     
 ARITH              MX0       60-16                                                        ARITH       2683     A     
 ARITH              SA1       RL2       IS IT DBL WD ARG-                                  ARITH       2684     A     
 ARITH              SA2    X1+2         GET R NAME                                         ARITH       2685     A     
 ARITH              BX6   -X0*X2                                                           ARITH       2686     A     
 ARITH              SA6       TS1+2     SAVE                                               ARITH       2687     A     
 ARITH              BX7    X0*X2                                                           ARITH       2688     A     
 ARITH              MX2       12                                                           ARITH       2689     A     
 ARITH              BX0    X7-X2                                                           ARITH       2690     A     
 ARITH              ZR     X0,CRGP11A   IF ARG IS A FUNC RESULT                            ARITH       2691     A     
 ARITH              SA3    X1                                                              ARITH       2692     A     
 ARITH              LX3    59-44                                                           ARITH       2693     A     
 ARITH              MI     X3,CRGP11A        IF *XMT* BIT SET                              ARITH       2694     A     
 ARITH              SA2       TS1       USE NON-XMIT REG DEFS                              ARITH       2695     A     
 ARITH              SX7    X2+4                                                            ARITH       2696     A     
 ARITH              SA7       TS1                                                          ARITH       2697     A     
 ARITH     CRGP11A  BSS       0                                                            ARITH       2698     A     
 ARITH              SX7       2                                                            ARITH       2699     A     
 ARITH              SA2    X1                                                              ARITH       2700     A     
 ARITH              UX0 B2,X2                                                              ARITH       2701     A     
 ARITH              SB3    T.DBL                                                           ARITH       2702     A     
 ARITH              EQ  B2,B3,CRGP12    IF DBL WD                                          ARITH       2703     A     
 ARITH              SB3    T.CPLX                                                          ARITH       2704     A     
 ARITH              EQ    B2,B3,CRGP12                                                     ARITH       2705     A     
 ARITH              SX7       1                                                            ARITH       2706     A     
 ARITH     CRGP12   SA7       TS1+1                                                        ARITH       2707     A     
 ARITH              RJ     CHKARG      CHECK ARGUMENT TYPE                                 ARITH       2708     A     
 ARITH              RJ        CHKOFF    CHKOFF RL2 ENTRY                                   ARITH       2709     A     
 ARITH              SA2       TS1+2     GET NAME OF ARG                                    ARITH       2710     A     
 ARITH              BX6    X2                                                              ARITH       2711     A     
 ARITH              SA6       PARAMS                                                       ARITH       2712     A     
 ARITH              SA1       TS1                                                          ARITH       2713     A     
 ARITH              SA3    X1+DEFMD-1   GET CORRECT DEFINE MAC DESC                        ARITH       2714     A     
 ARITH              RJ        MACOUT                                                       ARITH       2715     A     
 ARITH              RJ        CHKOFF                                                       ARITH       2716     A     
 ARITH              SA1       TS1+1     DBL WD ARG-                                        ARITH       2717     A     
 ARITH              SB2    X1-1                                                            ARITH       2718     A     
 ARITH              ZR     B2,CARGPORT                                                     ARITH       2719     A     
 ARITH              SA2       TS1+2                                                        ARITH       2720     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2170    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SX6    X2+1                                                            ARITH       2721     A     
 ARITH              SA6       PARAMS                                                       ARITH       2722     A     
 ARITH              SA1       TS1                                                          ARITH       2723     A     
 ARITH              SA3    X1+DEFMD+1                                                      ARITH       2724     A     
 ARITH              RJ        MACOUT                                                       ARITH       2725     A     
 ARITH              RJ        CHKOFF                                                       ARITH       2726     A     
 ARITH              ZR        CARGPORT                                                     ARITH       2727     A     
 ARITH    *                                                                                ARITH       2728     A     
 ARITH    *                                                                                ARITH       2729     A     
 ARITH    *     CRGP20 IF ,A POPPED OUT OF INTRINSIC FUN ARG LIST                          ARITH       2730     A     
 ARITH     CRGP20   SA1       RL2       SAVE LAST UNCHECKED R-LIST RESULT NAME IN          ARITH       2731     A     
 ARITH              SA2       RNTBC                                    THE RNTB.           ARITH       2732     A     
 ARITH              SA3    X1+2         GET RN LINE                                        ARITH       2733     A     
 ARITH              SA4    X1           GET TYPE                                           ARITH       2734     A     
 ARITH              SX7    X2+1         UP RNTBC (ARG MAX ALREADY CHECKED - CRGP7)         ARITH       2735     A     
 ARITH              MX0       60-16                                                        ARITH       2736     A     
 ARITH              BX6   -X0*X3                                                           ARITH       2737     A     
 ARITH              SA6    X2+RNTB                                                         ARITH       2738     A     
 ARITH              UX0 B2,X4                                                              ARITH       2739     A     
 ARITH              SB3    T.DBL                                                           ARITH       2740     A     
 ARITH              SB4    T.CPLX                                                          ARITH       2741     A     
 ARITH              EQ  B2,B3,CRGP20A   IF DBL                                             ARITH       2742     A     
 ARITH              NE  B2,B4,CRGP20B   IF NOT CPX                                         ARITH       2743     A     
 ARITH     CRGP20A  MX0    1                                                               ARITH       2744     A     
 ARITH              BX6    X0+X6       SET FLAG THAT ARG IS DOUBLE WORD                    ARITH       2745     A     
 ARITH              SA6    A6                                                              ARITH       2746     A     
 ARITH     CRGP20B  SA7       RNTBC                                                        ARITH       2747     A     
 ARITH              RJ     CHKARG      CHECK ARGUMENT TYPE                                 ARITH       2748     A     
 ARITH              RJ        CHKOFF                                                       ARITH       2749     A     
 ARITH              EQ     CARGPORT                                                        ARITH       2750     A     
 ARITH              SPACE  1                                                               ARITH       2751     A     
 ARITH    *     ARGPO IF (A POPPED                                                         ARITH       2752     A     
 ARITH     ARGPO    SA1       OP        IS OP=) -                                          ARITH       2753     A     
 ARITH              SB2    EL.)                                                            ARITH       2754     A     
 ARITH              UX0 B3,X1                                                              ARITH       2755     A     
 ARITH              EQ  B2,B3,ARGP1     IF YES                                             ARITH       2756     A     
 ARITH              EERR      ERMSG29   NO MATCHING RP FOR ARG LIST                        ARITH       2757     A     
 ARITH     ARGP1    RJ        ARGP1RT                                                      ARITH       2758     A     
 ARITH              SA2    IXFNFG                                                          ARITH       2759     A     
 ARITH              SA1    EPOINT                                                          ARITH       2760     A     
 ARITH              ZR     X2,NEXTE    IF NOT IN AN I/O LIST                               ARITH       2761     A     
 ARITH              SB2    EL.)                                                            ARITH       2762     A     
 ARITH              SA3    X1          E + 1                                               ARITH       2763     A     
 ARITH              UX0    X3,B3                                                           ARITH       2764     A     
 ARITH              SB4    EL.(                                                            ARITH       2765     A     
 ARITH              LT     B3,B2,RTPRN4      IF E + 1 IS ID OR CON                         ARITH       2766     A     
 ARITH              EQ     B3,B4,RTPRN4      IF E + 1  =  LEFT PAREN                       ARITH       2767     A     
 ARITH              EQ     NEXTE                                                           ARITH       2768     A     
 ARITH                                                                                     ARITH       2769     A     
 ARITH    *         DEBUG PROCESSOR FOR FUNCTION TRACING                                   ARITH       2770     A     
 ARITH    *                                                                                ARITH       2771     A     
 ARITH     FN0.     SA1    DBGAPL+4    ADDR OF FUNC NAME IN SYMTAB                         ARITH       2772     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2171    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA1    X1                                                              ARITH       2773     A     
 ARITH              SA2    ARLPT                                                           ARITH       2774     A     
 ARITH              BX6    X2                                                              ARITH       2775     A     
 ARITH              SA6    DBGAPL+4          SAVE BUFFER POINTER                           ARITH       2776     A     
 ARITH              SA2    RL1                                                             ARITH       2777     A     
 ARITH              SA3    RL2                                                             ARITH       2778     A     
 ARITH              BX6    X2                                                              ARITH       2779     A     
 ARITH              LX7    X3                                                              ARITH       2780     A     
 ARITH              SA6    RL1TS                                                           ARITH       2781     A     
 ARITH              SA7    RL2TS                                                           ARITH       2782     A     
 ARITH              SA2    LASTR                                                           ARITH       2783     A     
 ARITH              BX6    X2                                                              ARITH       2784     A     
 ARITH              SA6    LASTRTS                                                         ARITH       2785     A     
 ARITH              MX0    60-18                                                           ARITH       2786     A     
 ARITH              BX6    X0*X1             GET FUNCTION NAME                             ARITH       2787     A     
 ARITH              SA2    FNTYP             GET FUNCTION TYPE                             ARITH       2788     A     
 ARITH              MX7    0                                                               ARITH       2789     A     
 ARITH              SB2    X2                                                              ARITH       2790     A     
 ARITH              SB3    T.DBL                                                           ARITH       2791     A     
 ARITH              SB1    T.CPLX                                                          ARITH       2792     A     
 ARITH              EQ     B2,B3,FN1.        DBL WORD FUNCTION RESULT                      ARITH       2793     A     
 ARITH              EQ     B2,B1,FN1.        DBL WORD FUNCTION RESULT                      ARITH       2794     A     
 ARITH              MX7    10                                                              ARITH       2795     A     
 ARITH     FN1.     SA7    TS1                                                             ARITH       2796     A     
 ARITH              BX1    X2+X6                                                           ARITH       2797     A     
 ARITH              RJ     STRIP             CHECK FOR TRAILING $ IN NAME                  ARITH       2798     A     
 ARITH              SB1    1                                                               ARITH       2799     A     
 ARITH              RJ     CONVERT           PLACE IN CONS TABLE                           ARITH       2800     A     
 ARITH              BX6    X1                                                              ARITH       2801     A     
 ARITH              SA6    DBGAPL            BEGIN BUILDING ARGLIST TABLE                  ARITH       2802     A     
 ARITH              MX7    0                                                               ARITH       2803     A     
 ARITH              SA7    DBGAPL+2                                                        ARITH       2804     A     
 ARITH              SX6    =8RBUGFUN                                                       ARITH       2805     A     
 ARITH              SA6    DBGAPL+3                                                        ARITH       2806     A     
 ARITH              SA1    RL2TS                                                           ARITH       2807     A     
 ARITH              MX2    0                                                               ARITH       2808     A     
 ARITH              RJ     OTS         OUTPUT TEMP STORE                                   ARITH       2809     A     
 ARITH              LX3    30                                                              ARITH       2810     A     
 ARITH              BX6    X3+X2       30/CA(ST.), 30/ORD(ST.)                             ARITH       2811     A     
 ARITH              SA1    DBGAPL      START OF ARGLIST TABLE                              ARITH       2812     A     
 ARITH              SA6    DBGAPL+1    SET UP FOR APLIST PROCESSOR                         ARITH       2813     A     
 ARITH              SA2    =XN.AP                                                          ARITH       2814     A     
 ARITH              BX6    X2                                                              ARITH       2815     A     
 ARITH              SX7    X2+1                                                            ARITH       2816     A     
 ARITH              SA7    A2                UPDATED APLIST NUMBER                         ARITH       2817     A     
 ARITH              RJ     IGCALL            GENERATE CALL MACROS                          ARITH       2818     A     
 ARITH              SA1    =8RBUGFUN                                                       ARITH       2819     A     
 ARITH              SB7    *+1                                                             ARITH       2820     A     
 ARITH              EQ     SYMBOL            WILL ALWAYS RETURN TO FOUND ADDRESS           ARITH       2821     A     
 ARITH              SX6    T.CGS             PLACE TYPE CGS IN SYMTAB WORD                 ARITH       2822     A     
 ARITH              LX6    P.TYP                SO REFERENCE WONT APPEAR IN                ARITH       2823     A     
 ARITH              BX7    X6+X2                THE REFERENCE MAP                          ARITH       2824     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2172    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA7    A2                                                              ARITH       2825     A     
 ARITH              SB6    B0                                                              ARITH       2826     A     
 ARITH              SA2    STSORD                                                          ARITH       2827     A     
 ARITH              SX6    B0                                                              ARITH       2828     A     
 ARITH              SA6    IDORDLTS                                                        ARITH       2829     A     
 ARITH              SA6    A6+1                                                            ARITH       2830     A     
 ARITH              SB7    X2-1              FOR SINGLE LOAD                               ARITH       2831     A     
 ARITH              SA5    ST.               IH OF ST.                                     ARITH       2832     A     
 ARITH              SA1    TS1               GET TYPE FLAG,  0 IF DBL                      ARITH       2833     A     
 ARITH              NZ     X1,FN3.                                                         ARITH       2834     A     
 ARITH              SB7    B7-1              FOR DBL LOAD                                  ARITH       2835     A     
 ARITH     FN3.     SA1    FNTYP             GET TYPE                                      ARITH       2836     A     
 ARITH              LX1    60-4                                                            ARITH       2837     A     
 ARITH              BX6    X1                                                              ARITH       2838     A     
 ARITH              SA6    NAME+1            SET WORD FOR CALL                             ARITH       2839     A     
 ARITH              RJ     FETCH             GENERATE LOAD(S)                              ARITH       2840     A     
 ARITH              SA1    RL2                                                             ARITH       2841     A     
 ARITH              SA5    X1+2              LAST MACRO WORD                               ARITH       2842     A     
 ARITH              MX0    60-16                                                           ARITH       2843     A     
 ARITH              BX4    -X0*X5            RESULT NUMBER                                 ARITH       2844     A     
 ARITH              SA2    NARN              NEXT R NUMBER                                 ARITH       2845     A     
 ARITH              BX6    X2                                                              ARITH       2846     A     
 ARITH              LX7    X4                                                              ARITH       2847     A     
 ARITH              SA6    PARAMS            NARN                                          ARITH       2848     A     
 ARITH              SA5    EQCOUNT                                                         ARITH       2849     A     
 ARITH              SX5    X5                                                              ARITH       2850     A     
 ARITH              LX5    34                                                              ARITH       2851     A     
 ARITH              BX6    X5+X6             INSERT EQUAL SIGN COUNT                       ARITH       2852     A     
 ARITH              SA6    LEFRN                                                           ARITH       2853     A     
 ARITH              SA7    PARAMS+1          RESULT                                        ARITH       2854     A     
 ARITH              SA3    XMIT                                                            ARITH       2855     A     
 ARITH              SX7    X2+1              INCREMENT R NUMBER                            ARITH       2856     A     
 ARITH              SB3    B0                                                              ARITH       2857     A     
 ARITH              SA1    TS1                                                             ARITH       2858     A     
 ARITH              NZ     X1,FN4.           0 IF DBL                                      ARITH       2859     A     
 ARITH              SA3    LEFRN                                                           ARITH       2860     A     
 ARITH              MX0    1                                                               ARITH       2861     A     
 ARITH              LX0    59                                                              ARITH       2862     A     
 ARITH              BX6    X0+X3                                                           ARITH       2863     A     
 ARITH              SA6    A3                                                              ARITH       2864     A     
 ARITH              SA3    XMIT+1                                                          ARITH       2865     A     
 ARITH              SA7    PARAMS+2          NARN+1                                        ARITH       2866     A     
 ARITH              SX6    X4+1                                                            ARITH       2867     A     
 ARITH              SA6    PARAMS+3          RESULT+1                                      ARITH       2868     A     
 ARITH              SX7    X7+1              INCREMENT R NUMBER                            ARITH       2869     A     
 ARITH     FN4.     SX5    B3                                                              ARITH       2870     A     
 ARITH              SA7    A2                                                              ARITH       2871     A     
 ARITH              RJ     MACOUT            OUTPUT XMIT                                   ARITH       2872     A     
 ARITH              RJ     CHKOFF                                                          ARITH       2873     A     
 ARITH              SA4    DBGAPL+4                                                        ARITH       2874     A     
 ARITH              SA5    ARLPT             END OF FUNC BLOCK                             ARITH       2875     A     
 ARITH              BX6    X4                                                              ARITH       2876     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2173    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA6    A5                START=END                                     ARITH       2877     A     
 ARITH              RJ     DARLIST           FLUSH BUFFER                                  ARITH       2878     A     
 ARITH              SA1    LASTR                                                           ARITH       2879     A     
 ARITH              SA2    X1+2                                                            ARITH       2880     A     
 ARITH              MX0    60-16                                                           ARITH       2881     A     
 ARITH              BX5    -X0*X2            R RESULT                                      ARITH       2882     A     
 ARITH              SA3    RL2TS             FORMER RESULT MACRO                           ARITH       2883     A     
 ARITH              SA4    X3+2                                                            ARITH       2884     A     
 ARITH              BX6    X0*X4                                                           ARITH       2885     A     
 ARITH              BX6    X6+X5             INSERT NEW R NUMBER                           ARITH       2886     A     
 ARITH              SA6    A4                                                              ARITH       2887     A     
 ARITH              BX6    X3                                                              ARITH       2888     A     
 ARITH              SA6    RL2               RESTORE NEW VALUE                             ARITH       2889     A     
 ARITH              SA1    RL1TS                                                           ARITH       2890     A     
 ARITH              SA2    LASTRTS                                                         ARITH       2891     A     
 ARITH              BX6    X1                                                              ARITH       2892     A     
 ARITH              LX7    X2                                                              ARITH       2893     A     
 ARITH              SA6    RL1               RESTORE VALUE                                 ARITH       2894     A     
 ARITH              SA7    LASTR             RESTORE VALUE                                 ARITH       2895     A     
 ARITH              EQ     ARGP1RT                                                         ARITH       2896     A     
 ARITH                                                                                     ARITH       2897     A     
 ARITH                                                                                     ARITH       2898     A     
 ARITH    *         DEBUG FUNCTION PREPROCESSOR                                            ARITH       2899     A     
 ARITH    *                                                                                ARITH       2900     A     
 ARITH     FNPP     DATA   0                                                               ARITH       2901          I
          -FCC0822
 ARITH     SARGLST  ENTRY. *                                                               FCC0822        7     A     
 ARITH              SA1    FNAD                                                            FCC0822        8     A     
 ARITH              SA2    X1-1                                                            FCC0822        9     A     
 ARITH              SA1    X1                                                              FCC0822       10     A     
 ARITH              MX0    60-18                                                           ARITH       2902     A     
 ARITH              BX6    X0*X1             GET FUNCTION NAME                             ARITH       2903     A     
 ARITH              MX0    60-L.TYP                                                        ARITH       2904     A     
 ARITH              LX2    60-P.TYP                                                        ARITH       2905     A     
 ARITH              BX2    -X0*X2            GET FUNCTION TYPE                             ARITH       2906     A     
 ARITH              BX1    X6+X2                                                           ARITH       2907     A     
 ARITH              RJ     STRIP             CHECK FOR TRAILING $ IN NAME                  ARITH       2908     A     
 ARITH              SB1    1                                                               ARITH       2909     A     
 ARITH              RJ     CONVERT           PLACE IN CONS TABLE                           ARITH       2910     A     
 ARITH              BX6    X1                                                              ARITH       2911     A     
 ARITH              SA6    DBGAPL            START BUILDING ARGLIST TABLE                  ARITH       2912     A     
 ARITH              MX7    0                                                               ARITH       2913     A     
 ARITH              SA7    DBGAPL+1                                                        ARITH       2914     A     
 ARITH              SX6    =8RBUGFNN                                                       ARITH       2915     A     
 ARITH              SA6    DBGAPL+2                                                        ARITH       2916     A     
 ARITH              SA1    DBGAPL            START OF ARGLIST TABLE                        ARITH       2917     A     
 ARITH              SA2    N.AP                                                            ARITH       2918     A     
 ARITH              BX6    X2                                                              ARITH       2919     A     
 ARITH              SX7    X2+1              INCREMENT APLIST NUMBER                       ARITH       2920     A     
 ARITH              SA7    A2                                                              ARITH       2921     A     
 ARITH              RJ     IGCALL            OUTPUT CALL MACRO                             ARITH       2922     A     
 ARITH              SA1    =8RBUGFNN                                                       ARITH       2923     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2174    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SB7    *+1                                                             ARITH       2924     A     
 ARITH              EQ     SYMBOL            WILL ALWAYS RETURN TO FOUND ADDRESS           ARITH       2925     A     
 ARITH              SX6    T.CGS             PLACE TYPE CGS IN SYMTAB WORD                 ARITH       2926     A     
 ARITH              LX6    P.TYP                SO REFERENCE WONT APPEAR IN                ARITH       2927     A     
 ARITH              BX7    X6+X2                THE REFERENCE MAP                          ARITH       2928     A     
 ARITH              SA7    A2                                                              ARITH       2929     A     
 ARITH              SX7    1                                                               ARITH       2930          I
          -FCC0822
 ARITH              SA7    FTRFLG             SET TRACE FLAG                               ARITH       2931          I
          -FCC0822
 ARITH              EQ     FNPP                                                            ARITH       2932          I
          -FCC0822
 ARITH              EQ     SARGLST                                                         FCC0822       11     A     
 ARITH              EJECT                                                                  ARITH       2933     A     
 ARITH     ARGP1RT  DATA      0                                                            ARITH       2934     A     
 ARITH              SA1       FNAD      CHECK NO.OF ARGS                                   ARITH       2935     A     
 ARITH              SA3       ACNT                                                         ARITH       2936     A     
 ARITH              SA2    X1-1                                                            ARITH       2937     A     
 ARITH              MX0    60-L.FARG                                                       ARITH       2938     A     
 ARITH              LX2    60-P.FARG                                                       ARITH       2939     A     
 ARITH              BX4    -X0*X2                                                          ARITH       2940     A     
 ARITH              IX5    X3-X4                                                           ARITH       2941     A     
 ARITH              NZ     X4,ARGP2     IF NO.OF ARGS.IS OR HAS BEEN ESTABLISHED.          ARITH       2942     A     
 ARITH              LX2    P.FARG-P.INF-1    IS INTRIN BIT SET                             ARITH       2943     A     
 ARITH              NG     X2,ARGP10    IF YES (INTR FUN WITH NO ARG CNT SPECIFYD)         ARITH       2944     A     
 ARITH              LX2    P.INF-59                                                        ARITH       2945     A     
 ARITH              LX3    P.FARG                                                          ARITH       2946     A     
 ARITH              BX6    X2+X3                                                           ARITH       2947     A     
 ARITH              SA6    A2           STORE 2ND WD OF SYMTAB ENTRY WITH NO.OF            ARITH       2948     A     
 ARITH              ZR        ARGP3                                     ARGS SET           ARITH       2949     A     
 ARITH    *                                                                                ARITH       2950     A     
 ARITH     ARGP2    ZR     X5,ARGP3     IF NO. OF ARGS USED SAME AS ESTABLISHED NO         ARITH       2951     A     
 ARITH              LX2    P.FARG-P.LIB-1                                                  ARITH       2952     A     
 ARITH              NG     X2,ARGP5          IF BASIC EXTERNAL                             ARITH       2953     A     
 ARITH              LX2    P.LIB-P.INF                                                     ARITH       2954     A     
 ARITH              PL     X2,ARGP5A   IF NOT INTRINSIC                                    ARITH       2955     A     
 ARITH     ARGP5    EERR   -ERMSG21    WRONG NO. OF ARGS FOR INT OR BEF FUNC               ARITH       2956     A     
 ARITH                                                                                     ARITH       2957     A     
 ARITH     ARGP5A   IDM    ERMSG36     INCONSISTENT ARGUMENT COUNT                         ARITH       2958     A     
 ARITH                                                                                     ARITH       2959     A     
 ARITH     ARGP3    SA1    FNAD                                                            ARITH       2960     A     
 ARITH              SA2    X1-1                                                            ARITH       2961     A     
 ARITH              LX2    59-P.BEF                                                        ARITH       2962     A     
 ARITH              NG     X2,ARGP4     IF BASIC EXT                                       ARITH       2963     A     
 ARITH              LX2    P.BEF-P.INF                                                     ARITH       2964     A     
 ARITH              NG     X2,ARGP10    IF INTR.                                           ARITH       2965     A     
 ARITH              SA2    FNAD              SET UP IH OF FUN NAME                         ARITH       2966          I
          -FCC0822
 ARITH              SA1    FTRFLG                                                          FCC0822       12     A     
 ARITH              ZR     X1,ARGP3A   IF NOT DEBUG-TRACING THIS FUNCTION                  FCC0822       13     A     
 ARITH              RJ     FUNC8       STORE ANY FUNCTION RESULT ACROSS *BUGFNN*           FCC0822       14     A     
 ARITH              SA5    ARLPT                                                           FCC0822       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2175    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              BX6    X5                                                              FCC0822       16     A     
 ARITH              SA6    TS1         SAVE ARLIST POINTER                                 FCC0822       17     A     
 ARITH              RJ     SARGLST     GENERATE *RJ BUGFNN*                                FCC0822       18     A     
 ARITH              SA4    TS1                                                             FCC0822       19     A     
 ARITH              BX6    X4                                                              FCC0822       20     A     
 ARITH              SA5    ARLPT                                                           FCC0822       21     A     
 ARITH              SA6    A5          RESTORE ARLIST POINTER                              FCC0822       22     A     
 ARITH              RJ     DARLIST     FLUSH *RJ BUGFNN*                                   FCC0822       23     A     
 ARITH                                                                                     FCC0822       24     A     
 ARITH     ARGP3A   SA2    FNAD                                                            FCC0822       25     A     
 ARITH              SA3    SYM1              START OF SYMTAB                               ARITH       2967     A     
 ARITH              IX2    X3-X2                                                           ARITH       2968     A     
 ARITH              AX2    1                 IH OF FUNCTION                                ARITH       2969     A     
 ARITH              SA4    STAPLC                                                          ARITH       2970     A     
 ARITH              SA1    N.AP                                                            ARITH       2971     A     
 ARITH              SX6    X1+1                                                            ARITH       2972     A     
 ARITH              SA6    A1                                                              ARITH       2973     A     
 ARITH              SA3    CDCNT             LINE COUNT                                    ARITH       2974     A     
 ARITH              RJ     GEFCM                                                           ARITH       2975     A     
 ARITH              RJ        ARGP8CR                                                      ARITH       2976     A     
 ARITH              ZR        ARGP8A                                                       ARITH       2977     A     
 ARITH                                                                                     ARITH       2978     A     
 ARITH     ARGP8CR  DATA      0                                                            ARITH       2979     A     
 ARITH     ARGP8C   SA1       SSFRSTB   SIZE OF FRSTB AT START OF THIS FUNC                ARITH       2980     A     
 ARITH              SA2       SFRSTB    SIZE AT END OF FUNC                                ARITH       2981     A     
 ARITH              IX3    X2-X1                                                           ARITH       2982     A     
 ARITH              ZR    X3,ARGP8CR    IF NO (MORE) FUNCS SAVED IN THIS ARG LIST.         ARITH       2983     A     
 ARITH              SA1    X2+FRSTB-1   GET LAST ENTRY                                     ARITH       2984     A     
 ARITH              SX6    X2-1                                                            ARITH       2985     A     
 ARITH              SA6       SFRSTB    REDUCE SIZE                                        ARITH       2986     A     
 ARITH              SA4       NARN      X4=I1 (INTERMEDIATE RESULT 1)                      ARITH       2987     A     
 ARITH              MX0       60-16                                                        ARITH       2988     A     
 ARITH              BX7   -X0*X1        X7,P1(FINAL RESULT 1)                              ARITH       2989     A     
 ARITH              SA3       EXRL1                                                        ARITH       2990     A     
 ARITH              SA2       RNFIB     R NAME OF 1ST INSTR IN BASE                        ARITH       2991     A     
 ARITH              ZR     X3,ARGP8C1   IF NOT PROCESSING ** CALL                          ARITH       2992     A     
 ARITH              IX3    X7-X2                                                           ARITH       2993     A     
 ARITH              PL     X3,ARGP8C1   IF THIS FUNC IS PART OF THIS **                    ARITH       2994     A     
 ARITH              SA3       SFRSTB                                                       ARITH       2995     A     
 ARITH              SX6    X3+1                                                            ARITH       2996     A     
 ARITH              SA6       SFRSTB                                                       ARITH       2997     A     
 ARITH              ZR        ARGP8CR                                                      ARITH       2998     A     
 ARITH     ARGP8C1  BSS       0                                                            ARITH       2999     A     
 ARITH              BX6    X4                                                              ARITH       3000     A     
 ARITH              LX6    16                                                              ARITH       3001     A     
 ARITH              BX6    X6+X7                                                           ARITH       3002     A     
 ARITH              MX0    60-18                                                           ARITH       3003     A     
 ARITH              SA6    ARGP1TS+5         NARN AND RESULT                               ARITH       3004     A     
 ARITH              SB2    -SLMACO                                                         ARITH       3005     A     
 ARITH              MX3    1                                                               ARITH       3006     A     
 ARITH              LX3    31                                                              ARITH       3007     A     
 ARITH              SB3    -XMITOP                                                         ARITH       3008     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2176    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              BX6    X3+X7                                                           ARITH       3009     A     
 ARITH              PX6    B3,X6             FORM MACRO WORD                               ARITH       3010     A     
 ARITH              SA6    ARGP1TS+4         MACRO WORD                                    ARITH       3011     A     
 ARITH              SX3    3                                                               ARITH       3012     A     
 ARITH              LX3    30                                                              ARITH       3013     A     
 ARITH              BX6    X3+X4                                                           ARITH       3014     A     
 ARITH              PX6    B2,X6             FORM MACRO WORD                               ARITH       3015     A     
 ARITH              SA3    ST.                                                             ARITH       3016     A     
 ARITH              BX7    X3                                                              ARITH       3017     A     
 ARITH              SA6    ARGP1TS           MACRO WORD                                    ARITH       3018     A     
 ARITH              LX1    60-16                                                           ARITH       3019     A     
 ARITH              BX6    -X0*X1            TS ORD                                        ARITH       3020     A     
 ARITH              SA7    ARGP1TS+1         IH OF ST.                                     ARITH       3021     A     
 ARITH              SA6    ARGP1TS+3         TS ORD                                        ARITH       3022     A     
 ARITH              BX7    X4                                                              ARITH       3023     A     
 ARITH              SA7    ARGP1TS+2         NARN                                          ARITH       3024     A     
 ARITH              LX1    59-58+16                                                        ARITH       3025     A     
 ARITH              SX6    X4+1                                                            ARITH       3026     A     
 ARITH              PL     X1,ARGP8B         IF NOT DBL                                    ARITH       3027     A     
 ARITH              MX7    0                                                               ARITH       3028     A     
 ARITH              SX6    X6+1                                                            ARITH       3029     A     
 ARITH     ARGP8B   SA7    ARGP1TS+7                                                       ARITH       3030     A     
 ARITH              SA6    NARN                                                            ARITH       3031     A     
 ARITH              SB1    1                                                               ARITH       3032     A     
 ARITH              WRITEW =XF.RLST,ARGP1TS,6      MACROS TO -RLIST-                       ARITH       3033     A     
 ARITH              SA1    ARGP1TS+7                                                       ARITH       3034     A     
 ARITH              SB5    1                                                               ARITH       3035     A     
 ARITH              NZ     X1,ARGP8C                                                       ARITH       3036     A     
 ARITH              SX1    1                                                               ARITH       3037     A     
 ARITH              SA2    ARGP1TS                                                         ARITH       3038     A     
 ARITH              SA3    ARGP1TS+2                                                       ARITH       3039     A     
 ARITH              IX6    X2+X1             UP NARN IN MACRO WORD                         ARITH       3040     A     
 ARITH              IX7    X3+X1             UP NARN IN MACRO                              ARITH       3041     A     
 ARITH              SA6    A2                                                              ARITH       3042     A     
 ARITH              SA7    A3                                                              ARITH       3043     A     
 ARITH              SA2    ARGP1TS+3                                                       ARITH       3044     A     
 ARITH              SA3    ARGP1TS+4                                                       ARITH       3045     A     
 ARITH              IX6    X2+X1             UP ST ORD                                     ARITH       3046     A     
 ARITH              IX7    X3+X1             UP NARN IN MACRO WORD                         ARITH       3047     A     
 ARITH              SA6    A2                                                              ARITH       3048     A     
 ARITH              SA7    A3                                                              ARITH       3049     A     
 ARITH              SA2    ARGP1TS+5                                                       ARITH       3050     A     
 ARITH              IX2    X2+X1             UP RESULT IN MACRO                            ARITH       3051     A     
 ARITH              LX2    60-16                                                           ARITH       3052     A     
 ARITH              IX6    X2+X1             UP NARN IN MACRO                              ARITH       3053     A     
 ARITH              LX6    16                                                              ARITH       3054     A     
 ARITH              SA6    A2                                                              ARITH       3055     A     
 ARITH              WRITEW =XF.RLST,ARGP1TS,6      MACROS TO -RLIST-                       ARITH       3056     A     
 ARITH              SB5    1                                                               ARITH       3057     A     
 ARITH              EQ     ARGP8C                                                          ARITH       3058     A     
 ARITH                                                                                     ARITH       3059     A     
 ARITH     ARGP8A   BSS       0                                                            ARITH       3060     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2177    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA1       FNAD      GET FNTYP                                          ARITH       3061     A     
 ARITH              BX6    X1                                                              ARITH       3062     A     
 ARITH              SA6    DBGAPL+4          SAVE ADDR OF FUNC NAME                        ARITH       3063     A     
 ARITH              MX0    60-L.TYP                                                        ARITH       3064     A     
 ARITH              SA2    X1-1                                                            ARITH       3065     A     
 ARITH              LX2    60-P.TYP                                                        ARITH       3066     A     
 ARITH              BX7   -X0*X2                                                           ARITH       3067     A     
 ARITH              SX6    X7-T.CGS                                                        ARITH       3068     A     
 ARITH              ZR     X6,ARGP15         BRANCH IF EXPONENTIAL FUNCTION                ARITH       3069     A     
 ARITH     ARGP8D   SA7    FNTYP             SAVE FUNCTION TYPE                            ARITH       3070     A     
 ARITH              BX5    X7           X5=TYPE FOR MACOUT                                 ARITH       3071     A     
 ARITH              SA2       NARN                                                         ARITH       3072     A     
 ARITH              BX6    X2                                                              ARITH       3073     A     
 ARITH              SA6       PARAMS    NAME OF RESULT OF FUN                              ARITH       3074     A     
 ARITH              SA6       FRN                                                          ARITH       3075     A     
 ARITH              SX6    X2+1                                                            ARITH       3076     A     
 ARITH              SA6       NARN                                                         ARITH       3077     A     
 ARITH              SA3       DFRMD                                                        ARITH       3078     A     
 ARITH              RJ        MACOUT    OUTPUT REG DEFINE OP RN=X6                         ARITH       3079     A     
 ARITH              RJ        CHKOFF                                                       ARITH       3080     A     
 ARITH              SA3    FNTYP                                                           ARITH       3081     A     
 ARITH              SX4    X3-T.DBL                                                        ARITH       3082     A     
 ARITH              ZR     X4,ARGP6     IF DBL WD FUN                                      ARITH       3083     A     
 ARITH              SX4    X3-T.CPLX                                                       ARITH       3084     A     
 ARITH              NZ     X4,ARGP7     IF SNGL WD FUN                                     ARITH       3085     A     
 ARITH     ARGP6    SA2       NARN                                                         ARITH       3086     A     
 ARITH              BX6    X2                                                              ARITH       3087     A     
 ARITH              SA6       PARAMS                                                       ARITH       3088     A     
 ARITH              SX7    X2+1                                                            ARITH       3089     A     
 ARITH              SA7       NARN                                                         ARITH       3090     A     
 ARITH              SA3       DFRMD+1                                                      ARITH       3091     A     
 ARITH              RJ        MACOUT                                                       ARITH       3092     A     
 ARITH              RJ        CHKOFF                                                       ARITH       3093     A     
 ARITH              SA1       FRN                                                          ARITH       3094     A     
 ARITH              MX0       1                                                            ARITH       3095     A     
 ARITH              LX0       59                                                           ARITH       3096     A     
 ARITH              BX6    X1+X0                                                           ARITH       3097     A     
 ARITH              SA6       FRN                                                          ARITH       3098     A     
 ARITH     ARGP7    SA1       FRN                                                          ARITH       3099     A     
 ARITH              BX6    X1                                                              ARITH       3100     A     
 ARITH              SA5    EQCOUNT                                                         ARITH       3101     A     
 ARITH              SX5    X5                                                              ARITH       3102     A     
 ARITH              LX5    34                                                              ARITH       3103     A     
 ARITH              BX6    X5+X6             INSERT EQUAL SIGN COUNT                       ARITH       3104     A     
 ARITH              SA6       LEFRN                                                        ARITH       3105     A     
 ARITH              SA5       ARLPT     CALL DARLIST. FRLW AND ARLPT ARE BOUNDS OF         ARITH       3106     A     
 ARITH              SA4       FRLW        ARLIST OT SEND TO RLIST.                         ARITH       3107     A     
 ARITH              SX7    X4                                                              ARITH       3108     A     
 ARITH              SA7       ARLPT                                                        ARITH       3109     A     
 ARITH              RJ        DARLIST                                                      ARITH       3110     A     
 ARITH    *     RESET LASTR                                                                ARITH       3111     A     
 ARITH              SA1       ARLPT                                                        ARITH       3112     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2178    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA2    X1+ARLIST    A2=ADR OF 1ST ENTRY OUTPUT BY DARLIST              ARITH       3113     A     
 ARITH              SUB                                                                    ARITH       3114     A     
 ARITH              PL     X2,ARGP7A    IF NOT NO-OPED                                     ARITH       3115     A     
 ARITH              BX2   -X2                                                              ARITH       3116     A     
 ARITH     ARGP7A   SB2    X2           B2=NO.WDS IN PRECEDING ENTRY                       ARITH       3117     A     
 ARITH              SX6    A2-B2                                                           ARITH       3118     A     
 ARITH              SA6       LASTR                                                        ARITH       3119     A     
 ARITH              SA2       FRN       FUNCTION RESULTNAME                                ARITH       3120     A     
 ARITH              SA5       FNTYP     FUN TYPE                                           ARITH       3121     A     
 ARITH              MX3       0         OUTPUT PSUEDO-OP TO ARLIST NAMING FRN AS -         ARITH       3122     A     
 ARITH              RJ        MACOUT                               AN OPERAND.             ARITH       3123     A     
 ARITH              SA1       RL2       TURN ON NO-OP BIT IN MACRO                         ARITH       3124     A     
 ARITH              SA2    X1+2                                                            ARITH       3125     A     
 ARITH              MX0       1                                                            ARITH       3126     A     
 ARITH              BX6    X0+X2                                                           ARITH       3127     A     
 ARITH              SA6    X1+2                                                            ARITH       3128     A     
 ARITH     ARGP21   SA1       EPOINT    IS NEXT E A ** -                                   ARITH       3129     A     
 ARITH              SB3    EL.DSTR                                                         ARITH       3130     A     
 ARITH              SA2    X1                                                              ARITH       3131     A     
 ARITH              UX0 B2,X2                                                              ARITH       3132     A     
 ARITH              NE B2,B3,ARGP22     IF NOT                                             ARITH       3133     A     
 ARITH              SA1       ITFFG     IS THIS INTR FUN-                                  ARITH       3134     A     
 ARITH              ZR     X1,ARGP22    IF NOT                                             ARITH       3135     A     
 ARITH              SA1       FRLW      SET UP START OF BASE IN ARLIST FOR ** OP           ARITH       3136     A     
 ARITH              SA3    SSFRSTB     COUNT OF FUNCTION RESULT SAVED                      ARITH       3137     A     
 ARITH              SX7    X1                                                              ARITH       3138     A     
 ARITH              BX6    X3                                                              ARITH       3139     A     
 ARITH              SA7       STBASE                                                       ARITH       3140     A     
 ARITH              SA6    NSFR                                                            ARITH       3141     A     
 ARITH     ARGP22   MX6       0                                                            ARITH       3142     A     
 ARITH              SA6       ITFFG                                                        ARITH       3143     A     
 ARITH              SA1       OSPTR                                                        ARITH       3144     A     
 ARITH              MX0       60-3      RESET EMODE                                        ARITH       3145     A     
 ARITH              SA2    X1+OPSTAK+1                                                     ARITH       3146     A     
 ARITH              AX2       19                                                           ARITH       3147     A     
 ARITH              BX6   -X0*X2                                                           ARITH       3148     A     
 ARITH              SA6       EMODE                                                        ARITH       3149     A     
 ARITH              SA2    X1+OPSTAK    GET NO.OF WORDS TO MOVE TO FRLWBLOK                ARITH       3150     A     
 ARITH              IX6    X1-X2        REDUCE OSPTR ACCORDINGLY                           ARITH       3151     A     
 ARITH              SA6       OSPTR                                                        ARITH       3152     A     
 ARITH              SB2    X2-1         B2=NO.OF WORDS TO MOVE TO FRLW BLOK                ARITH       3153     A     
 ARITH              SB3    B0                                                              ARITH       3154     A     
 ARITH              SB4       1                                                            ARITH       3155     A     
 ARITH     ARGP20   SA3    A2-B2        MOVE FROM OPSTAK TO FRLW                           ARITH       3156     A     
 ARITH              BX6    X3                                                              ARITH       3157     A     
 ARITH              SA6    B3+FRLW                                                         ARITH       3158     A     
 ARITH              SB2    B2-B4                                                           ARITH       3159     A     
 ARITH              SB3    B3+B4                                                           ARITH       3160     A     
 ARITH              NZ     B2,ARGP20    IF MORE TO MOVE                                    ARITH       3161     A     
 ARITH              SA3    FRLW                                                            ARITH       3162     A     
 ARITH              MX6    1                                                               ARITH       3163     A     
 ARITH              BX7    X6*X3       RECOVER FUNCTION TRACE FLAG                         ARITH       3164     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2179    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA2    FTRFLG                                                          ARITH       3165     A     
 ARITH              LX7    1                                                               ARITH       3166     A     
 ARITH              SA7    A2                                                              ARITH       3167     A     
 ARITH              BX6    -X6*X3            IGNORE FUNCTION TRACE FLAG                    ARITH       3168     A     
 ARITH              SA6    A3                                                              ARITH       3169     A     
 ARITH              AX6    18                                                              ARITH       3170     A     
 ARITH              SA6    TYADR                                                           ARITH       3171     A     
 ARITH              NZ     X2,FN0.     IF TO PROCESS DEBUG FUNCTION TRACING                ARITH       3172     A     
 ARITH              ZR        ARGP1RT                                                      ARITH       3173     A     
 ARITH    *                                                                                ARITH       3174     A     
 ARITH    *     ARGP4 IF BASIC EXT FUN (A POPPED                                           ARITH       3175     A     
 ARITH     ARGP4    SA1       FNAD      SET UP IH OF FUN                                   ARITH       3176     A     
 ARITH              SA2       SYM1                                                         ARITH       3177     A     
 ARITH              IX6    X2-X1                                                           ARITH       3178     A     
 ARITH              AX6       1                                                            ARITH       3179     A     
 ARITH              SA6       PARAMS    IH OF FUN                                          ARITH       3180     A     
 ARITH              SA3       BEFMD                                                        ARITH       3181     A     
 ARITH              SA2    NARN                                                            ARITH       3182     A     
 ARITH              MX5    0                                                               ARITH       3183     A     
 ARITH              RJ     MACOUT                                                          ARITH       3184     A     
 ARITH              RJ     CHKOFF                                                          ARITH       3185     A     
 ARITH              RJ     ARGP8CR                                                         ARITH       3186     A     
 ARITH              EQ     ARGP8A                                                          ARITH       3187     A     
 ARITH                                                                                     ARITH       3188     A     
 ARITH    *     ARGP10 IF INTRINSIC FUN (A POPPED                                          ARITH       3189     A     
 ARITH    ARGP10    LX2    -1              IF THE ARG COUNT IS 0 ITS A MAX OR MIN          ARITH       3190     A     
 ARITH              SX7       10        SET INTR FUN FLG FOR ARGP21                        ARITH       3191     A     
 ARITH              MX0    60-L.FARG                                                       ARITH       3192     A     
 ARITH              SA7       ITFFG                                                        ARITH       3193     A     
 ARITH              BX5   -X0*X2                                                           ARITH       3194     A     
 ARITH              SA1       FNAD      GET MAC DESC WD                                    ARITH       3195     A     
 ARITH              BX6    X1                                                              ARITH       3196     A     
 ARITH              SA6    DBGAPL+4          SAVE SYMTAB ADDRESS                           ARITH       3197     A     
 ARITH              SA2    X1           GET NAME OF FUN IN E LIST FORMAT                   ARITH       3198     A     
 ARITH              MX0    L.NAME                                                          ARITH       3199     A     
 ARITH              BX6    X0*X2                                                           ARITH       3200     A     
 ARITH              AX6    P.NAME-6                                                        ARITH       3201     A     
 ARITH              SX2       1R        SET X2=BLANK                                       ARITH       3202     A     
 ARITH              BX6    X6+X2                                                           ARITH       3203     A     
 ARITH              SA6       OP                                                           ARITH       3204     A     
 ARITH              SX7    B0          INITIALIZE BIAS OF PARAMS                           ARITH       3205     A     
 ARITH              ZR     X5,MXMNF                                                        ARITH       3206     A     
 ARITH              SB5    1                                                               ARITH       3207     A     
 ARITH              SA2    RNTB-1      MOVE RNTB TO PARAMS                                 ARITH       3208     A     
 ARITH              SA1    RNTBC                                                           ARITH       3209     A     
 ARITH     ARGP10A  SA2    A2+B5                                                           ARITH       3210     A     
 ARITH              SX1    X1-1                                                            ARITH       3211     A     
 ARITH              SX6    X2                                                              ARITH       3212     A     
 ARITH              SA6    X7+PARAMS                                                       ARITH       3213     A     
 ARITH              SX7    X7+B5                                                           ARITH       3214     A     
 ARITH              SX6    X6+B5                                                           ARITH       3215     A     
 ARITH              PL     X2,ARGP10B  IF NOT DBL WORD                                     ARITH       3216     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2180    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA6    A6+B5                                                           ARITH       3217     A     
 ARITH              SX7    X7+B5                                                           ARITH       3218     A     
 ARITH     ARGP10B  NZ     X1,ARGP10A  IF MORE TO MOVE                                     ARITH       3219     A     
 ARITH              SA7    RNTBC                                                           ARITH       3220     A     
 ARITH              SA2    TYADR                                                           ARITH       3221     A     
 ARITH              SA4    X2                WORD 1 OF FUNCTION TABLE ENTRY                ARITH       3222     A     
 ARITH              SA5    X2+1              2ND WORD OF ENTRY                             ARITH       3223     A     
 ARITH              SA3    X2+3              4TH WORD OF ENTRY                             ARITH       3224     A     
 ARITH              SX2    X5-1         SEE IF RNM TYPE FUNC                               ARITH       3225     A     
 ARITH              NZ     X2,ARGP11A   IF NOT RNM TYPE                                    ARITH       3226     A     
 ARITH              MX6       10                                                           ARITH       3227     A     
 ARITH              SA6       RNMFG                                                        ARITH       3228     A     
 ARITH                                                                                     ARITH       3229     A     
 ARITH    *         RNTBC = PARAMS INDEX TO STORE R NUMBER OF RESULT                       ARITH       3230     A     
 ARITH    *         X3 = MACRO DESCRIPTOR WORD FOR "MACOUT"                                ARITH       3231     A     
 ARITH                                                                                     ARITH       3232     A     
 ARITH    ARGP11B   MX0    L.TYP                                                           ARITH       3233     A     
 ARITH              SA2       FNAD                                                         ARITH       3234     A     
 ARITH              BX6    X2                                                              ARITH       3235     A     
 ARITH              SA6    DBGAPL+4          SAVE ADDRESS OF FUNC NAME                     ARITH       3236     A     
 ARITH              SA5    X2-1                                                            ARITH       3237     A     
 ARITH              BX5    X0*X5                                                           ARITH       3238     A     
 ARITH              LX5    L.TYP                                                           ARITH       3239     A     
 ARITH              SA4       RNTBC                                                        ARITH       3240     A     
 ARITH              SA2       NARN                                                         ARITH       3241     A     
 ARITH              SB2    X5-T.DBL                                                        ARITH       3242     A     
 ARITH              BX6    X2                                                              ARITH       3243     A     
 ARITH              SA6    X4+PARAMS                                                       ARITH       3244     A     
 ARITH              ZR     B2,ARGP12                                                       ARITH       3245     A     
 ARITH              SB2    X5-T.CPLX                                                       ARITH       3246     A     
 ARITH              NZ     B2,ARGP14   IF SINGLE WD RESULT                                 ARITH       3247     A     
 ARITH     ARGP12   SX6    X6+1                                                            ARITH       3248     A     
 ARITH              SA6    X4+PARAMS+1                                                     ARITH       3249     A     
 ARITH     ARGP14   SX6    X6+1                                                            ARITH       3250     A     
 ARITH              SA6       NARN                                                         ARITH       3251     A     
 ARITH              RJ        MACOUT    X2,X3,X5 ALL SET                                   ARITH       3252     A     
 ARITH              SA1       RNMFG     SEE IF RNM TYPE FUNC                               ARITH       3253     A     
 ARITH              ZR     X1,ARGP21    IF NOT                                             ARITH       3254     A     
 ARITH              SA1       LASTR     SET XMT BIT IN ARLIST                              ARITH       3255     A     
 ARITH              MX6       0                                                            ARITH       3256     A     
 ARITH              SA2    X1                                                              ARITH       3257     A     
 ARITH              SA6       RNMFG                                                        ARITH       3258     A     
 ARITH              MX0       1                                                            ARITH       3259     A     
 ARITH              LX0       45                                                           ARITH       3260     A     
 ARITH              BX7    X0+X2                                                           ARITH       3261     A     
 ARITH              SA7    A2                                                              ARITH       3262     A     
 ARITH              ZR        ARGP21    GO RESTORE FRLW,EMODE,ETC., TO PREVIOUS FN         ARITH       3263     A     
 ARITH                                                                                     ARITH       3264     A     
 ARITH    *         GET TYPE OF EXPONENTIAL FUNCTION                                       ARITH       3265     A     
 ARITH                                                                                     ARITH       3266     A     
 ARITH     ARGP15   SA1    EXPFNE            FUNCTION NAME AND TYPE                        ARITH       3267     A     
 ARITH              LX1    60-P.TYP                                                        ARITH       3268     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2181    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              BX7    -X0*X1            EXP FUNC TYPE                                 ARITH       3269     A     
 ARITH              EQ     ARGP8D                                                          ARITH       3270     A     
 ARITH                                                                                     ARITH       3271     A     
 ARITH     ARGP11A  PL     X3,ARGP11B        IF THIS INTRIN DOESNT NEED SPECIAL            ARITH       3272     A     
 ARITH    *                                  PROCESSING                                    ARITH       3273     A     
 ARITH              SA2    LASTR                                                           ARITH       3274     A     
 ARITH              SB3    X3                JUMP ADDRESS OF PROCESSOR                     ARITH       3275     A     
 ARITH              AX3    30                                                              ARITH       3276     A     
 ARITH              SA1    X2                ARLIST HEADER WORD                            ARITH       3277     A     
 ARITH              BX4    X1                                                              ARITH       3278     A     
 ARITH              SA3    X3                FETCH DEFAULT MACRO DESCRIPTOR                ARITH       3279     A     
 ARITH              LX4    59-47             POSITION CONSTANT/VAR BIT                     ARITH       3280     A     
 ARITH              JP     B3                                                              ARITH       3281     A     
 ARITH                                                                                     ARITH       3282     A     
 ARITH    *         COMPL(WORD) - PASS ONLY ONE ARG IN RLIST                               ARITH       3283     A     
 ARITH                                                                                     ARITH       3284     A     
 ARITH     ACOMPL   SX7    B5                                                              ARITH       3285     A     
 ARITH              SA7    A7          FORCE RNTBC TO BE 1                                 ARITH       3286     A     
 ARITH              EQ     ARGP11B                                                         ARITH       3287     A     
 ARITH                                                                                     ARITH       3288     A     
 ARITH    *         SHIFT(WORD,SC) - SPECIAL CASE CONSTANT SHIFT COUNT                     ARITH       3289     A     
 ARITH                                                                                     ARITH       3290     A     
 ARITH     ASHIFT   SA5    RNTB+1            CORRECT PARAMS IF SHIFT WORD IS DBL           ARITH       3291     A     
 ARITH              SX7    B5+B5                                                           ARITH       3292     A     
 ARITH              BX6    X5                                                              ARITH       3293     A     
 ARITH              SA7    RNTBC                                                           ARITH       3294     A     
 ARITH              SA6    PARAMS+1                                                        ARITH       3295     A     
 ARITH              PL     X4,ARGP11B        IF 2ND ARG NOT CONSTANT                       ARITH       3296     A     
 ARITH              RJ     NEWCON            GET THE CONSTANT                              ARITH       3297     A     
 ARITH              SX7    B5                                                              ARITH       3298     A     
 ARITH              SX6    X6                TRUNCATE CONSTANT                             ARITH       3299     A     
 ARITH              SA7    RNTBC             SET INDEX FOR NRLN  STORE                     ARITH       3300     A     
 ARITH              ZR     X6,ASHIFT1        IF SC = 0                                     ARITH       3301     A     
 ARITH              NG     X6,ASHIFT0        IF NEG COUNT                                  ARITH       3302     A     
 ARITH              AX3    B5,X6                                                           ARITH       3303     A     
 ARITH              ZR     X3,ASHIFT2        IF CONSTANT SHIFT OF + 1                      ARITH       3304     A     
 ARITH              SB4    X6-60                                                           ARITH       3305     A     
 ARITH              ZR     B4,ASHIFT1  IF SC = 60                                          ARITH       3306     A     
 ARITH     ASHIFT0  MX0    1                                                               ARITH       3307     A     
 ARITH              BX5    X0*X6             GET SIGN OF CONSTANT                          ARITH       3308     A     
 ARITH              LX7    B5,X5                                                           ARITH       3309     A     
 ARITH              AX5    59                                                              ARITH       3310     A     
 ARITH              BX6    X6-X5             ABS(SC)                                       ARITH       3311     A     
 ARITH              SA3    MD.CSFT+X7        CONSTANT SHIFT MACRO DESCRIPTOR               ARITH       3312     A     
 ARITH              SA6    PARAMS+2                                                        ARITH       3313     A     
 ARITH              SA6    RNMFG             INDICATE XMT NEEDED BEFORE STORE              ARITH       3314     A     
 ARITH              SX0    X6-61                                                           ARITH       3315     A     
 ARITH              MI     X0,ARGP11B  IF S.C. IN RANGE, ABS(S.C.) .LE. 60                 ARITH       3316     A     
 ARITH              LX7    X3                                                              ARITH       3317     A     
 ARITH              SA7    MACDES                                                          ARITH       3318     A     
 ARITH              IDM    -ERMSG56    SHIFT ARG OUT OF RANGE                              ARITH       3319     A     
 ARITH              SA3    MACDES                                                          ARITH       3320     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2182    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              EQ     ARGP11B                                                         ARITH       3321     A     
 ARITH                                                                                     ARITH       3322     A     
 ARITH    *         SHIFT(WORD,0) - RENAME THE RESULT                                      ARITH       3323     A     
 ARITH                                                                                     ARITH       3324     A     
 ARITH     ASHIFT1  SB7    MCHMCB+4          RENAME OPCODE                                 ARITH       3325     A     
 ARITH              SA4    SLBMD             DESCRIPTOR WORD                               ARITH       3326     A     
 ARITH              PX3    B7,X4                                                           ARITH       3327     A     
 ARITH              EQ     ARGP11B                                                         ARITH       3328     A     
 ARITH                                                                                     ARITH       3329     A     
 ARITH    *         SHIFT(WORD,1) - GENERATE INTEGER ADD                                   ARITH       3330     A     
 ARITH                                                                                     ARITH       3331     A     
 ARITH     ASHIFT2  SA1    PARAMS                                                          ARITH       3332     A     
 ARITH              BX6    X1                                                              ARITH       3333     A     
 ARITH              SA6    A1+1                                                            ARITH       3334     A     
 ARITH              SA6    A1+2                                                            ARITH       3335     A     
 ARITH              MX7    0                                                               ARITH       3336     A     
 ARITH              SA7    RNTBC                                                           ARITH       3337     A     
 ARITH              SB7    MAC+32                                                          ARITH       3338     A     
 ARITH              SA4    SLBMD                                                           ARITH       3339     A     
 ARITH              PX3    B7,X4                                                           ARITH       3340     A     
 ARITH              EQ     ARGP11B                                                         ARITH       3341     A     
 ARITH                                                                                     ARITH       3342     A     
 ARITH    *         MASK(N) - SPECIAL CASE CONSTANT MASK COUNT                             ARITH       3343     A     
 ARITH                                                                                     ARITH       3344     A     
 ARITH     AMASK    PL     X4,ARGP11B        IF NOT A CONSTANT MASK                        ARITH       3345     A     
 ARITH              RJ     NEWCON            GET THE CONSTANT                              ARITH       3346     A     
 ARITH              SX7    B0                                                              ARITH       3347     A     
 ARITH              SA7    RNTBC             SET PARAM STORE INDEX                         ARITH       3348     A     
 ARITH              SX6    X6          TRUNCATE N                                          ARITH       3349     A     
 ARITH              SA3    MD.MASKC    MACRO DESCRIPTOR                                    ARITH       3350     A     
 ARITH              SA6    PARAMS+1    STORE N                                             ARITH       3351     A     
 ARITH              MI     X6,AMASK2   IF N .LT. 0                                         ARITH       3352     A     
 ARITH              SX0    X6-61                                                           ARITH       3353     A     
 ARITH              MI     X0,ARGP11B  IF N IN RANGE,N .GE. 0 .AND. N .LE. 60              ARITH       3354     A     
 ARITH     AMASK2   LX7    X3                                                              ARITH       3355     A     
 ARITH              SA7    MACDES                                                          ARITH       3356     A     
 ARITH              IDM    -ERMSG54    MASK ARG OUT OF RANGE                               ARITH       3357     A     
 ARITH              SA3    MACDES                                                          ARITH       3358     A     
 ARITH              EQ     ARGP11B                                                         ARITH       3359     A     
 ARITH                                                                                     ARITH       3360     A     
 ARITH    *         MOD(I,J) - SEE IF J IS A POWER OF 2                                    ARITH       3361     A     
 ARITH                                                                                     ARITH       3362     A     
 ARITH     AMOD     PL     X4,ARGP11B  IF SECOND ARG NOT CONSTANT                          ARITH       3363     A     
 ARITH              SA1    LASTR                                                           ARITH       3364     A     
 ARITH              RJ     CHKP2                                                           ARITH       3365     A     
 ARITH              SA3    MD.MOD                                                          ARITH       3366     A     
 ARITH              NZ     X7,ARGP11B  IF CON NOT A POWER OF 2                             ARITH       3367     A     
 ARITH              SA3    MD.MODP2                                                        ARITH       3368     A     
 ARITH              SX5    60                                                              ARITH       3369     A     
 ARITH              IX6    X5-X6       MASK COUNT = 60-K                                   ARITH       3370     A     
 ARITH              SX7    B5                                                              ARITH       3371     A     
 ARITH              SA6    PARAMS+2                                                        ARITH       3372     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2183    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA7    RNTBC       RESULT R-NUM = P2                                   ARITH       3373     A     
 ARITH              EQ     ARGP11B                                                         ARITH       3374     A     
 ARITH                                                                                     ARITH       3375     A     
 ARITH    *         RANF(0) - GET SYMTAB ORDINAL OF SEED                                   ARITH       3376     A     
 ARITH                                                                                     ARITH       3377     A     
 ARITH     ARANF    SYMBOL =8RRANDOM.        GET SYMTAB ORDINAL OF RANDOM. / RANN          ARITH       3378     A     
 ARITH              SX0    V.COM                                                           ARITH       3379     A     
 ARITH              BX6    X0+X1       SET COMMON BIT FOR OPT=2 USE/DEF INFO               ARITH       3380     A     
 ARITH              SA6    A1                                                              ARITH       3381     A     
 ARITH              SA3    WB.EXP                                                          ARITH       3382     A     
 ARITH              BX7    X3+X2             SET TYPE = CGD AND EXT BIT                    ARITH       3383     A     
 ARITH              SA7    A2                                                              ARITH       3384     A     
 ARITH              SA3    MD.RANF           MACRO DESCRIPTOR                              ARITH       3385     A     
 ARITH              SX6    B1                                                              ARITH       3386     A     
 ARITH              SX7    B5                                                              ARITH       3387     A     
 ARITH              SA6    PARAMS                                                          ARITH       3388     A     
 ARITH              SA7    RNTBC             SET INDEX FOR NRLN STORE                      ARITH       3389     A     
 ARITH              EQ     ARGP11B                                                         ARITH       3390     A     
 ARITH                                                                                     ARITH       3391     A     
 ARITH    *         LOCF(A) - CHANGE LAST LOAD TO A SET                                    ARITH       3392     A     
 ARITH                                                                                     ARITH       3393     A     
 ARITH     ALOCF    SA2    A1+2        RLIST MACRO HEADER WORD                             ARITH       3394     A     
 ARITH              SA3    IXFN.TAB                                                        ARITH       3395     A     
 ARITH              UX0    B2,X2                                                           ARITH       3396     A     
 ARITH                                                                                     ARITH       3397     A     
 ARITH    *         CHECK TO SEE IF LAST OP WAS A LOAD                                     ARITH       3398     A     
 ARITH                                                                                     ARITH       3399     A     
 ARITH     ALOCF1   SX4    B2+X3                                                           ARITH       3400     A     
 ARITH              ZR     X4,ALOCF3         IF A MATCH                                    ARITH       3401     A     
 ARITH              SA3    A3+B5                                                           ARITH       3402     A     
 ARITH              NZ     X3,ALOCF1         IF MORE TO GO                                 ARITH       3403     A     
 ARITH              EERR   ERMSG.LF    BAD ARGUMENT TO LOCF                                ARITH       3404     A     
 ARITH                                                                                     ARITH       3405     A     
 ARITH    *         LOCF(LOCAL OR COMMON SYMBOL OR ARRAY) - CHANGE TO SX MACRO             ARITH       3406     A     
 ARITH                                                                                     ARITH       3407     A     
 ARITH     ALOCF3   UX3    B3,X3                                                           ARITH       3408     A     
 ARITH              PX6    B3,X0       CHANGE LOAD TO SET X MACRO                          ARITH       3409     A     
 ARITH              UX1    B2,X1       (B2) = TYPE OF RESULT                               ARITH       3410     A     
 ARITH              PX7    B5,X1       RESET TYPE TO INTEGER                               ARITH       3411     A     
 ARITH              SA7    A1                                                              ARITH       3412     A     
 ARITH              SA6    A2                                                              ARITH       3413     A     
 ARITH              MX6    0                                                               FCC0412        5     A     
 ARITH              SA6    A1+1        CLEAR IH WORD                                       FCC0412        6     A     
 ARITH              SA3    A2+1        IH OF SYM , BASE IF EQUIVED                         FCC0807        6     A     
 ARITH              SA5    SYM1                                                            FCC0807        7     A     
 ARITH              SX3    X3                                                              FCC0807        8     A     
 ARITH              LX3    1                                                               FCC0807        9     A     
 ARITH              IX6    X5-X3                                                           FCC0807       10     A     
 ARITH              MX0    1                                                               FCC0807       11     A     
 ARITH              SA4    X6-1        WORDB                                               FCC0807       12     A     
 ARITH              LX0    1+P.LOCF                                                        FCC0807       13     A     
 ARITH              BX6    X4+X0       SET LOCF REF BIT IN WORDB                           FCC0807       14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2184    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA6    A4                                                              FCC0807       15     A     
 ARITH              SB4    T.CPLX                                                          ARITH       3414     A     
 ARITH              SB3    T.DBL                                                           ARITH       3415     A     
 ARITH              LT     B2,B3,ALOCF4      IF SINGLE PRECISION                           ARITH       3416     A     
 ARITH              GT     B2,B4,ALOCF4      IF NOT DOUBLE OR COMPLEX                      ARITH       3417     A     
 ARITH              SA5    NRLN                                                            ARITH       3418     A     
 ARITH              SX6    X5-1              BACK OFF NRLN                                 ARITH       3419     A     
 ARITH              SA6    A5                                                              ARITH       3420     A     
 ARITH     ALOCF4   SA2    LASTR                                                           ARITH       3421     A     
 ARITH              MX0    1                                                               ARITH       3422     A     
 ARITH              SA1    X2                                                              ARITH       3423     A     
 ARITH              LX0    1+P.USED                                                        ARITH       3424     A     
 ARITH              BX6    X2          RL2 = LASTR                                         ARITH       3425     A     
 ARITH              SA6    RL2                                                             ARITH       3426     A     
 ARITH              BX7    -X0*X1      CLEAR USED BIT                                      ARITH       3427     A     
 ARITH              SA7    A1                                                              ARITH       3428     A     
 ARITH              RJ     FNDOP       FIND A NEW RL1                                      ARITH       3429     A     
 ARITH              SA6    RL1                                                             ARITH       3430     A     
 ARITH              EQ     ARGP21                                                          ARITH       3431     A     
 ARITH                                                                                     ARITH       3432          I
          -FCC0807
 ARITH              EJECT                                                                  ARITH       3433          I
          -FCC0807
 ARITH              SPACE  2                                                               FCC0807       16     A     
 ARITH    *         MXMNF -- PROCESSES MAX/MIN AND OTHER INTRINSIC FUNCTIONS WITH          ARITH       3434     A     
 ARITH    *         VARIABLE NUMBER OF ARGUMENTS.  SUCCESSIVE FUNCTION RMACROS ARE         ARITH       3435     A     
 ARITH    *         PROCESSED, EACH WITH 2 ARGS, UNTIL ALL THE ARGS ARE PROCESSED.         ARITH       3436     A     
 ARITH    *         THE FIRST RMACRO USES THE FIRST 2 ARGS FROM RNTB.  THE NEXT            ARITH       3437     A     
 ARITH    *         RMACRO USES AS ARGS THE RESULT FROM THE PRECEDING RMACRO AND           ARITH       3438     A     
 ARITH    *         THE NEXT ARG FROM RNTB.  THIS CONTINUES UNTIL RNTB IS                  ARITH       3439     A     
 ARITH    *         EXHAUSTED.                                                             ARITH       3440     A     
 ARITH                                                                                     ARITH       3441     A     
 ARITH     MXMNF    RJ        IFTLU     GET INFO FOR THIS FUNC                             ARITH       3442     A     
 ARITH              AX5    60-L.TYP                                                        ARITH       3443     A     
 ARITH              BX6    X5                                                              ARITH       3444     A     
 ARITH              SA6       TYPEWD                                                       ARITH       3445     A     
 ARITH              SA1    RNTBC                                                           ARITH       3446     A     
 ARITH              SX6    X5-T.DBL                                                        ARITH       3447     A     
 ARITH              AX1    1                                                               ARITH       3448     A     
 ARITH              BX7    X3                                                              ARITH       3449     A     
 ARITH              SA7       FMADR     FINAL-MACRO ADR                                    ARITH       3450     A     
 ARITH              SA6    FMADR+1                                                         ARITH       3451     A     
 ARITH              NZ     X1,MXMN1    IF AT LEAST 2 ARGS                                  ARITH       3452     A     
 ARITH              EERR   -ERMSG21    WRONG NO. OF ARGS FOR INT OR BEF FUNC               ARITH       3453     A     
 ARITH                                                                                     ARITH       3454     A     
 ARITH     MXMN1    SA1    RNTB                                                            ARITH       3455     A     
 ARITH              SB5    1                                                               ARITH       3456     A     
 ARITH              SX7    B5                                                              ARITH       3457     A     
 ARITH              SX1    X1          1ST ARG                                             ARITH       3458     A     
 ARITH              SA7    RNCNT       INITIALIZE TO 1                                     ARITH       3459     A     
 ARITH                                                                                     ARITH       3460     A     
 ARITH    *         MXMN2 - MXMN5 CONSIST OF LOOP TO OUTPUT RMACRO                         ARITH       3461     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2185    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH                                                                                     ARITH       3462     A     
 ARITH     MXMN2    SA3    FMADR+1                                                         ARITH       3463     A     
 ARITH              SA4    RNCNT                                                           ARITH       3464     A     
 ARITH              SB5    1                                                               ARITH       3465     A     
 ARITH              SA5    TYPEWD                                                          ARITH       3466     A     
 ARITH              BX6    X1          1ST ARG                                             ARITH       3467     A     
 ARITH              SX7    X4+B5       INCREMENT RNCNT                                     ARITH       3468     A     
 ARITH              SA6    PARAMS                                                          ARITH       3469     A     
 ARITH              NZ     X3,MXMN3    IF NOT DBL WORD                                     ARITH       3470     A     
 ARITH              SX6    X6+B5       UPDATE 1ST ARG                                      ARITH       3471     A     
 ARITH              SA6    A6+B5                                                           ARITH       3472     A     
 ARITH     MXMN3    SA1    X4+RNTB     2ND ARG                                             ARITH       3473     A     
 ARITH              SX6    X1                                                              ARITH       3474     A     
 ARITH              SA6    A6+B5                                                           ARITH       3475     A     
 ARITH              NZ     X3,MXMN4    IF NOT DBL WORD                                     ARITH       3476     A     
 ARITH              SX6    X6+B5       UPDATE 2ND ARG                                      ARITH       3477     A     
 ARITH              SA6    A6+B5                                                           ARITH       3478     A     
 ARITH     MXMN4    SA2    NARN                                                            ARITH       3479     A     
 ARITH              SA7    A4          UPDATE RNCNT                                        ARITH       3480     A     
 ARITH              BX6    X2                                                              ARITH       3481     A     
 ARITH              LX7    X2                                                              ARITH       3482     A     
 ARITH              SA6    A6+B5                                                           ARITH       3483     A     
 ARITH              SA7    ARN         1ST ARG FOR NEXT MACRO                              ARITH       3484     A     
 ARITH              NZ     X3,MXMN5    IF NOT DBL WORD                                     ARITH       3485     A     
 ARITH              SX6    X6+B5       UPDATE RESULT                                       ARITH       3486     A     
 ARITH              SA6    A6+B5                                                           ARITH       3487     A     
 ARITH     MXMN5    SX6    X6+B5       UPDATE NARN                                         ARITH       3488     A     
 ARITH              SA1    FMADR                                                           ARITH       3489     A     
 ARITH              SA6    A2                                                              ARITH       3490     A     
 ARITH              SA3    X1                                                              ARITH       3491     A     
 ARITH              RJ        MACOUT    (X5 CAN CONTAIN GARBAGE)                           ARITH       3492     A     
 ARITH              SA1       RNTBC     GET NO.OF WDS IN RNTBC                             ARITH       3493     A     
 ARITH              SA2       RNCNT     GET NO.OF WDS MOVED FROM RNTB                      ARITH       3494     A     
 ARITH              IX3    X2-X1                                                           ARITH       3495     A     
 ARITH              PL     X3,MXMN8     IF NO MORE ARGS                                    ARITH       3496     A     
 ARITH              RJ        CHKOFF    CHKOFF LAST MX/MN MAC                              ARITH       3497     A     
 ARITH              SA1    ARN         1ST ARG                                             ARITH       3498     A     
 ARITH              EQ     MXMN2                                                           ARITH       3499     A     
 ARITH                                                                                     ARITH       3500     A     
 ARITH    *         IF THE RESULT OF THE FUNCTION IS OF A DIFFERENT TYPE THAN THE          ARITH       3501     A     
 ARITH    *         ARGS, A TYPE CONVERSION RMACRO MUST BE OUTPUT SINCE THE                ARITH       3502     A     
 ARITH    *         FUNCTION RMACRO OUTPUT HAVE BEEN ASSUMED TO BE OF THE SAME             ARITH       3503     A     
 ARITH    *         TYPE AS THE ARGS.  PRESENTLY THESE CONVERSIONS ARE ONLY OF THE         ARITH       3504     A     
 ARITH    *         SINGLE TYPE; E.G. INTEGER TO REAL, REAL TO INTEGER.                    ARITH       3505     A     
 ARITH                                                                                     ARITH       3506     A     
 ARITH     MXMN8    SA2       FMADR                                                        ARITH       3507     A     
 ARITH              LX2    30                                                              ARITH       3508     A     
 ARITH              SA3    X2                                                              ARITH       3509     A     
 ARITH              NG     X3,MXMN10    IF NO MODE CHANGE NEEDED.                          ARITH       3510     A     
 ARITH              RJ        CHKOFF    CHK LAST MX MN MAC                                 ARITH       3511     A     
 ARITH              SA1    ARN                                                             ARITH       3512     A     
 ARITH              SA2    NARN                                                            ARITH       3513     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2186    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SB5    1                                                               ARITH       3514     A     
 ARITH              BX6    X1                                                              ARITH       3515     A     
 ARITH              SX7    X2+B5                                                           ARITH       3516     A     
 ARITH              SA6    PARAMS                                                          ARITH       3517     A     
 ARITH              SA5    TYPEWD                                                          ARITH       3518     A     
 ARITH              BX6    X2                                                              ARITH       3519     A     
 ARITH              SA7    A2          UPDATE NARN                                         ARITH       3520     A     
 ARITH              SA1    FMADR                                                           ARITH       3521     A     
 ARITH              SA6    A6+B5                                                           ARITH       3522     A     
 ARITH              LX1    30                                                              ARITH       3523     A     
 ARITH              SA3    X1          MACRO DESCRIPTOR                                    ARITH       3524     A     
 ARITH              RJ     MACOUT      X2,3,5 INITIALIZED                                  ARITH       3525     A     
 ARITH     MXMN10   SA1       JNEXTE                                                       ARITH       3526     A     
 ARITH              BX6    X1                                                              ARITH       3527     A     
 ARITH              SA6       ARGP1RT                                                      ARITH       3528     A     
 ARITH              ZR        ARGP21                                                       ARITH       3529     A     
 ARITH    *     END OF MXMNF                                                               ARITH       3530          I
          -FCC0807
 ARITH    *     END OF (A-POPPED CODING                                                    ARITH       3531          I
          -FCC0807
 ARITH              TITLE              EXPONENTIAL PROCESSING                              ARITH       3532     A     
 ARITH    *     EXPOP                                                                      ARITH       3533     A     
 ARITH    *         HERE IF ** POPPED FROM OPSTAK                                          ARITH       3534     A     
 ARITH     EXPOP    SA2    OP          GET OP BEING SCANNED                                ARITH       3535     A     
 ARITH              SB1    EL.DSTR                                                         ARITH       3536     A     
 ARITH              UX2    B2,X2                                                           ARITH       3537     A     
 ARITH              NE     B1,B2,EXP0  IF OP .NE. **                                       ARITH       3538     A     
 ARITH              USASDM ERMSG59     A**B**C IS NON ANSI                                 ARITH       3539     A     
 ARITH              SA2    OSPTR                                                           ARITH       3540     A     
 ARITH              BX6    X2          RESTORE X6 TO CONTENTS BEFORE USASDM CLLL           ARITH       3541     A     
 ARITH                                                                                     ARITH       3542     A     
 ARITH     EXP0     SA2    X6+OPSTAK   GET STBASE                                          ARITH       3543     A     
 ARITH              SX6    X6-1         REDUCE OSPTR 1 MORE                                ARITH       3544     A     
 ARITH              SA6       OSPTR                                                        ARITH       3545     A     
 ARITH              SX7    X2                                                              ARITH       3546     A     
 ARITH              AX2       18        SAVE SFRSTB AT START OF **                         ARITH       3547     A     
 ARITH              BX6    X2                                                              ARITH       3548     A     
 ARITH              SA6       EXPNSF                                                       ARITH       3549     A     
 ARITH              SA7       EXPSTB                                                       ARITH       3550     A     
 ARITH              SA4    RL1                                                             ARITH       3551     A     
 ARITH              SA3    RL2                                                             ARITH       3552     A     
 ARITH              SA1    X4                                                              ARITH       3553     A     
 ARITH              SA2    X3                                                              ARITH       3554     A     
 ARITH              UX0    B1,X1                                                           ARITH       3555     A     
 ARITH              SB7    T.OCT                                                           ARITH       3556     A     
 ARITH              UX7    B2,X2                                                           ARITH       3557     A     
 ARITH              ZR     B1,MOP1     ERROR IF BASE LOGICAL                               ARITH       3558     A     
 ARITH              ZR     B2,MOP1     ERROR IF EXPON LOGICAL                              ARITH       3559     A     
 ARITH              SB3    T.INT                                                           ARITH       3560     A     
 ARITH              LT     B1,B7,EXP1  IF BASE NOT OCT OR HOLL                             ARITH       3561     A     
 ARITH              PX6    B3,X1       BASE CONVERTED TO INT TYPE                          ARITH       3562     A     
 ARITH              SA6    A1                                                              ARITH       3563     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2187    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SB1    B3                                                              ARITH       3564     A     
 ARITH                                                                                     ARITH       3565     A     
 ARITH     EXP1     LT     B2,B7,EXP2  IF EXPON NOT OCT OR HOLL                            ARITH       3566     A     
 ARITH              PX6    B3,X2       EXPON CONVERTED TO INT TYPE                         ARITH       3567     A     
 ARITH              SA6    A2                                                              ARITH       3568     A     
 ARITH              SB2    B3                                                              ARITH       3569     A     
 ARITH                                                                                     ARITH       3570     A     
 ARITH    *         FIRST CHECK SPECIAL-CASE-EXPONENTIATION                                ARITH       3571     A     
 ARITH                                                                                     ARITH       3572     A     
 ARITH     EXP2     MX6    0           CLEAR FLAG FOR ADJUSTING TYPE OF RESULT             ARITH       3573     A     
 ARITH              SX7    B1-1                                                            ARITH       3574     A     
 ARITH              LX2    59-47                                                           ARITH       3575     A     
 ARITH              SA6    EXPCON                                                          ARITH       3576     A     
 ARITH              SA7    TS1         TYPE-1 OF RL1                                       ARITH       3577     A     
 ARITH              PL     X2,EXP3B    IF EXPON IS NOT A CONST                             ARITH       3578     A     
 ARITH              SB6    T.REAL                                                          ARITH       3579     A     
 ARITH              GT     B2,B6,EXP3B IF EXPON NOT INT OR REAL                            ARITH       3580     A     
 ARITH              LT     B2,B6,EXP2B IF EXPON IS INT                                     ARITH       3581     A     
 ARITH                                                                                     ARITH       3582     A     
 ARITH    *         CHECK IF EXPONENT IS FLOAT(N), N AN INTEGER                            ARITH       3583     A     
 ARITH                                                                                     ARITH       3584     A     
 ARITH              SA1    A2          FWA OF ARLIST FOR EXPON                             ARITH       3585     A     
 ARITH              RJ     NEWCON                                                          ARITH       3586     A     
 ARITH              MI     X6,EXP3BA   IF NEG CONST                                        ARITH       3587     A     
 ARITH              ZR     X6,EXP3BA   IF CONST 0                                          ARITH       3588     A     
 ARITH              UX4    B1,X6                                                           ARITH       3589     A     
 ARITH              LX5    B1,X4       INT VALUE IF EXPON IS FLOAT(N)                      ARITH       3590     A     
 ARITH              PX3    X5                                                              ARITH       3591     A     
 ARITH              NX4    X3                                                              ARITH       3592     A     
 ARITH              BX0    X6-X4                                                           ARITH       3593     A     
 ARITH              NZ     X0,EXP3BA   IF EXPON NOT FLOAT(N)                               ARITH       3594     A     
 ARITH              BX6    X5                                                              ARITH       3595     A     
 ARITH              AX5    17                                                              ARITH       3596     A     
 ARITH              SA6    EXPCON      TEMP STORE FOR CONST EXPON                          ARITH       3597     A     
 ARITH              NZ     X5,EXP3BA   IF N\400000B                                        ARITH       3598     A     
 ARITH              SA3    RL1                                                             ARITH       3599     A     
 ARITH              SB6    T.REAL                                                          ARITH       3600     A     
 ARITH              SA2    X3                                                              ARITH       3601     A     
 ARITH              UX0    B2,X2                                                           ARITH       3602     A     
 ARITH              GE     B2,B6,EXP2A IF BASE IS NOT INT                                  ARITH       3603     A     
 ARITH              MX0    1                                                               ARITH       3604     A     
 ARITH              BX6    X0+X6       SET FLAG FOR RESULT IS INT, S/B REAL                ARITH       3605     A     
 ARITH              SA6    EXPCON                                                          ARITH       3606     A     
 ARITH                                                                                     ARITH       3607     A     
 ARITH     EXP2A    SX5    X6          PARAMETER FOR STCON                                 ARITH       3608     A     
 ARITH              SX6    773B                                                            ARITH       3609     A     
 ARITH              BX7    X3          SWITCH (RL1) INTO (RL2) FOR STCON CALL              ARITH       3610     A     
 ARITH              SA6    BSAV        TREAT THIS CONST AS NORMAL                          ARITH       3611     A     
 ARITH              SA7    RL2                                                             ARITH       3612     A     
 ARITH              RJ     STCON       CREAT ARLIST FOR CONST N                            ARITH       3613     A     
 ARITH              SA3    RL1                                                             ARITH       3614     A     
 ARITH              SA4    RL2                                                             ARITH       3615     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2188    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SB6    T.REAL                                                          ARITH       3616     A     
 ARITH              SA1    X3                                                              ARITH       3617     A     
 ARITH              SA2    X4                                                              ARITH       3618     A     
 ARITH              UX0    B1,X1                                                           ARITH       3619     A     
 ARITH              SA5    EXPCON                                                          ARITH       3620     A     
 ARITH              EQ     EXP2C                                                           ARITH       3621     A     
 ARITH                                                                                     ARITH       3622     A     
 ARITH    *         EXPON IS CONST INTEGER                                                 ARITH       3623     A     
 ARITH                                                                                     ARITH       3624     A     
 ARITH     EXP2B    SA3    A2+2                                                            ARITH       3625     A     
 ARITH              SB7    -SETMC                                                          ARITH       3626     A     
 ARITH              LX2    47+1        RESTORE ARLIST HDR WORD FOR EXPON                   ARITH       3627     A     
 ARITH              UX0    B3,X3                                                           ARITH       3628     A     
 ARITH              NE     B3,B7,EXP3B IF CONST\400000B                                    ARITH       3629     A     
 ARITH              SA5    A2+4                                                            ARITH       3630     A     
 ARITH                                                                                     ARITH       3631     A     
 ARITH    *         CHECK FOR  C**2 OR D**2                                                ARITH       3632     A     
 ARITH                                                                                     ARITH       3633     A     
 ARITH     EXP2C    LE     B1,B6,EXP2F IF BASE IS INT OR REAL                              ARITH       3634     A     
 ARITH              SX6    B1-T.CPLX                                                       ARITH       3635     A     
 ARITH              SA4    EXPCON                                                          ARITH       3636     A     
 ARITH              NZ     X6,EXP2D    IF BASE IS NOT COMPLEX TYPE                         ARITH       3637     A     
 ARITH              ZR     X4,EXP2D    IF EXPON NOT FLOAT(N)                               ARITH       3638     A     
 ARITH              EERR   ERMSG33     FATAL WHEN EXPON OF C NOT INTEGER                   ARITH       3639     A     
 ARITH     EXP2D    SX0    X5-2                                                            ARITH       3640     A     
 ARITH              NZ     X0,EXP3B    IF EXPON IS NOT 2                                   ARITH       3641     A     
 ARITH              SA3    OP                                                              ARITH       3642     A     
 ARITH              SB4    EL.DSTR                                                         ARITH       3643     A     
 ARITH              UX0    B3,X3                                                           ARITH       3644     A     
 ARITH              NE     B3,B4,EXP2E IF THIS ** NOT POPPED BY **                         ARITH       3645     A     
 ARITH              SA4    EXPNSF                                                          ARITH       3646     A     
 ARITH              SA3    EXPSTB                                                          ARITH       3647     A     
 ARITH              BX6    X4                                                              ARITH       3648     A     
 ARITH              LX7    X3                                                              ARITH       3649     A     
 ARITH              SA6    NSFR                                                            ARITH       3650     A     
 ARITH              SA7    STBASE                                                          ARITH       3651     A     
 ARITH                                                                                     ARITH       3652     A     
 ARITH    *         CHANGE C**2 TO C*C OR D**2 TO D*D                                      ARITH       3653     A     
 ARITH                                                                                     ARITH       3654     A     
 ARITH     EXP2E    SX7    A1          CHANGE EXPON  TO LOAD OF C OR D                     ARITH       3655     A     
 ARITH              BX6    -X2                                                             ARITH       3656     A     
 ARITH              SA7    RL2                                                             ARITH       3657     A     
 ARITH              SA6    A2          NOOP ORIGINAL RL2 (EXPON)                           ARITH       3658     A     
 ARITH              SA3    OSPTR                                                           ARITH       3659     A     
 ARITH              SA5    MLTEOP      INSERT * IN  OPSTAK                                 ARITH       3660     A     
 ARITH              SX7    X3+1                                                            ARITH       3661     A     
 ARITH              BX6    X5                                                              ARITH       3662     A     
 ARITH              SA7    A3                                                              ARITH       3663     A     
 ARITH              SA6    X3+OPSTAK+1                                                     ARITH       3664     A     
 ARITH              EQ     POP1                                                            ARITH       3665     A     
 ARITH                                                                                     ARITH       3666     A     
 ARITH    *         OUTPUT INLINE EXPONENTIATION FOR I**K, X**K, K .LT. 17                 ARITH       3667     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2189    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH                                                                                     ARITH       3668     A     
 ARITH     EXP2F    SB2    17          MAX INLINE EXP+1                                    ARITH       3669     A     
 ARITH              SB3    X5          VALUE OF CONST POWER                                ARITH       3670     A     
 ARITH              SB4    1                                                               ARITH       3671     A     
 ARITH              GE     B3,B2,EXP3B IF EXPON\ 17                                        ARITH       3672     A     
 ARITH              LE  B3,B4,EXP3B     IF @1                                              ARITH       3673     A     
 ARITH                                                                                     ARITH       3674     A     
 ARITH    *         OUTPUT SPECIAL MACRO FOR INLINE EVALUATION OF EXPONENTIAL              ARITH       3675     A     
 ARITH                                                                                     ARITH       3676     A     
 ARITH              SX5    B1          TYPE OF RESULT                                      ARITH       3677     A     
 ARITH              BX6    -X2         NO-OP CONSTANT                                      ARITH       3678     A     
 ARITH              SA6    A2                                                              ARITH       3679     A     
 ARITH              SX7    B3                                                              ARITH       3680     A     
 ARITH              SA7    PARAMS+2    K1 = EXPONENT                                       ARITH       3681     A     
 ARITH              SX0    X5-T.INT                                                        ARITH       3682     A     
 ARITH              SX6    OC.IM                                                           ARITH       3683     A     
 ARITH              ZR     X0,EXP3A1   IF TYPE = INTEGER                                   ARITH       3684     A     
 ARITH              SA2    =XROPFLAG                                                       ARITH       3685     A     
 ARITH              SX6    OC.FM                                                           ARITH       3686     A     
 ARITH              LX2    1R*                                                             ARITH       3687     A     
 ARITH              PL     X2,EXP3A1   IF MULTIPLICATION NOT ROUNDED                       ARITH       3688     A     
 ARITH              SX6    OC.RFM                                                          ARITH       3689     A     
 ARITH     EXP3A1   SA1    RL1                                                             ARITH       3690     A     
 ARITH              SA2    NARN                                                            ARITH       3691     A     
 ARITH              SA6    PARAMS+3    K2 = OPCODE                                         ARITH       3692     A     
 ARITH              SX7    X2+1                                                            ARITH       3693     A     
 ARITH              SA7    A2          NRLN = NRLN + 1                                     ARITH       3694     A     
 ARITH              BX6    X2                                                              ARITH       3695     A     
 ARITH              SA6    PARAMS      R1 = NRLN - 1                                       ARITH       3696     A     
 ARITH              MX0    1                                                               ARITH       3697     A     
 ARITH              SA4    X1                                                              ARITH       3698     A     
 ARITH              LX0    1+45                                                            ARITH       3699     A     
 ARITH              BX7    X0+X4       SET USED BIT FOR RL1                                ARITH       3700     A     
 ARITH              SA7    A4                                                              ARITH       3701     A     
 ARITH              SA4    X1+2                                                            ARITH       3702     A     
 ARITH              MX0    -R1.RIL                                                         ARITH       3703     A     
 ARITH              BX7    -X0*X4      R2 = RI OF OPERAND                                  ARITH       3704     A     
 ARITH              SA7    PARAMS+1                                                        ARITH       3705     A     
 ARITH              SA3    EXPIN                                                           ARITH       3706     A     
 ARITH              RJ     MACOUT      OUTPUT INLINE ** MACRO                              ARITH       3707     A     
 ARITH              RJ     FNDOP                                                           ARITH       3708     A     
 ARITH              SA6    RL1                                                             ARITH       3709     A     
 ARITH              SA4    EXPCON                                                          ARITH       3710     A     
 ARITH              PL     X4,EXP3A2   IF TYPE OF RESULT NEED NOT BE ADJUSTED              ARITH       3711     A     
 ARITH              USASDM ERMSG42     NON-ANSI IF I**FLOAT(N)                             ARITH       3712     A     
 ARITH              SA5    RL2         RESULT INT, S/B REAL                                ARITH       3713     A     
 ARITH              SB5    T.REAL                                                          ARITH       3714     A     
 ARITH              RJ     MODCH                                                           ARITH       3715     A     
 ARITH              SA6    RL2                                                             ARITH       3716     A     
 ARITH     EXP3A2   SA1    OP          HERE TO EXP3B TO ATKE SPECIAL ACTION IF             ARITH       3717     A     
 ARITH              UX0 B2,X1               THISS ** POPPED BY **                          ARITH       3718     A     
 ARITH              SX2    B2-EL.SLASH TEST WHETHER OP=/                                   ARITH       3719     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2190    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SB3    EL.DSTR                                                         ARITH       3720     A     
 ARITH              NE  B2,B3,EXP3AB    IF THIS INLINE ** NOT POPPED BY **                 ARITH       3721     A     
 ARITH              SA1       EXPNSF                                                       ARITH       3722     A     
 ARITH              SA2       EXPSTB                                                       ARITH       3723     A     
 ARITH              BX6    X1                                                              ARITH       3724     A     
 ARITH              LX7    X2                                                              ARITH       3725     A     
 ARITH              SA6       NSFR                                                         ARITH       3726     A     
 ARITH              SA7       STBASE                                                       ARITH       3727     A     
 ARITH     EXP3AB   BSS       0                                                            ARITH       3728     A     
 ARITH              SA1    EPOINT                                                          ARITH       3729     A     
 ARITH              SB1    X1+1                                                            ARITH       3730     A     
 ARITH              NZ     X2,CMPARE   IF OP IS NOT /                                      ARITH       3731     A     
 ARITH              ZR     DIVX                                                            ARITH       3732     A     
 ARITH    *                                                                                ARITH       3733     A     
 ARITH     EXP3BA   BX6    X1          RESTORE ARLIST HDR WORD NOPED BY NEWCON             ARITH       3734     A     
 ARITH              SA6    A1                                                              ARITH       3735     A     
 ARITH    *                                                                                ARITH       3736     A     
 ARITH    *                                                                                ARITH       3737     A     
 ARITH     EXP3B    SA1       RL1       SAVE RL1 AND RL2 FOR THIS ** OP                    ARITH       3738     A     
 ARITH              SA2       RL2                                                          ARITH       3739     A     
 ARITH              AX6    B0,X1                                                           ARITH       3740     A     
 ARITH              BX7    X2                                                              ARITH       3741     A     
 ARITH              SA6       EXRL1                                                        ARITH       3742     A     
 ARITH    *  (EXRL1 ALSO NOW ACTS AS FLAG FOR FUNC5RT. IF REACH THIS POINT, MUST           ARITH       3743     A     
 ARITH    *   ALWAYS GET TO EXP10 IF FINISH EXPRESSION.)                                   ARITH       3744     A     
 ARITH              SA7       EXRL2                                                        ARITH       3745     A     
 ARITH              SA1       SFRSTB    SEE IF OPDS ADDRESS A SAVED FUNCTION RSLT          ARITH       3746     A     
 ARITH    *                              (IT COULD ONLY BE THE LAST FUNCT SAVED.)          ARITH       3747     A     
 ARITH              ZR     X1,EXP3E     IF NO PREVIOUS FUNCS SAVED                         ARITH       3748     A     
 ARITH              SA3    X6+2         GET RL1 NAME                                       ARITH       3749     A     
 ARITH              SA4    X1+FRSTB-1   GET LAST FUNC RESULT SAVED                         ARITH       3750     A     
 ARITH              MX0       60-16                                                        ARITH       3751     A     
 ARITH              BX3    X3-X4                                                           ARITH       3752     A     
 ARITH              SA2       RL2                                                          ARITH       3753     A     
 ARITH              BX5   -X0*X3                                                           ARITH       3754     A     
 ARITH              SA3    X2+2                                                            ARITH       3755     A     
 ARITH              NZ     X5,EXP3C     IF RL1 NOT NAME OF SAVED FUNC                      ARITH       3756     A     
 ARITH    *     HERE: OUTPUT LOAD OF TS VALUE SAVED FOR RL1 OPD                            ARITH       3757     A     
 ARITH              SA1       RL1                                                          ARITH       3758     A     
 ARITH              SA2    X1                                                              ARITH       3759     A     
 ARITH              BX6   -X2                                                              ARITH       3760     A     
 ARITH              UX0 B2,X2                                                              ARITH       3761     A     
 ARITH              SA6    X1           NO-OP THE RL1 ENTRY                                ARITH       3762     A     
 ARITH              RJ        FFRTS     OUTPUT FETCH OF SAVED FUNC.  GO WITH B2=           ARITH       3763     A     
 ARITH    *          TYPE AND X4=FRSTB ENTRY.  RETURN AFTER OUTPUT THE INSTR               ARITH       3764     A     
 ARITH              SA1       RL2                                                          ARITH       3765     A     
 ARITH              SA2       EXRL2                                                        ARITH       3766     A     
 ARITH              BX6    X1                                                              ARITH       3767     A     
 ARITH              AX7    B0,X2                                                           ARITH       3768     A     
 ARITH              SA6       EXRL1                                                        ARITH       3769     A     
 ARITH              SA6       RL1                                                          ARITH       3770     A     
 ARITH              SA7       RL2                                                          ARITH       3771     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2191    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              ZR     EXP3E                                                           ARITH       3772     A     
 ARITH    *                                                                                ARITH       3773     A     
 ARITH    *                                                                                ARITH       3774     A     
 ARITH     EXP3C    BX3    X3-X4                                                           ARITH       3775     A     
 ARITH              BX5   -X0*X3                                                           ARITH       3776     A     
 ARITH              NZ     X5,EXP3E    IF RL2 NOT A SAVED FUNC                             ARITH       3777     A     
 ARITH              SA1       RL2       OUTPUT FETCH(SEE SEQUENCE ABOVE)                   ARITH       3778     A     
 ARITH              SA2    X1                                                              ARITH       3779     A     
 ARITH              BX6   -X2                                                              ARITH       3780     A     
 ARITH              UX0 B2,X2                                                              ARITH       3781     A     
 ARITH              SA6    X1                                                              ARITH       3782     A     
 ARITH              RJ        FFRTS                                                        ARITH       3783     A     
 ARITH              SA1       RL2                                                          ARITH       3784     A     
 ARITH              BX6    X1                                                              ARITH       3785     A     
 ARITH              SA6       EXRL2                                                        ARITH       3786     A     
 ARITH     EXP3E    BSS       0                                                            ARITH       3787     A     
 ARITH              SA1       RL1       SET UP FOR POINT TO ** FUNC NAME                   ARITH       3788     A     
 ARITH              SA2       RL2                                                          ARITH       3789     A     
 ARITH              SA3    X1                                                              ARITH       3790     A     
 ARITH              SA4    X2                                                              ARITH       3791     A     
 ARITH              UX1 B3,X3                                                              ARITH       3792     A     
 ARITH              UX2 B2,X4           B2=TYPE OF POWER                                   ARITH       3793     A     
 ARITH              SX1    B3-1         X1=TYPE-1 OF BASE                                  ARITH       3794     A     
 ARITH              SX2    B2-1                                                            ARITH       3795     A     
 ARITH              LX1       2                                                            ARITH       3796     A     
 ARITH              BX3    X1+X2     X3:B3,2=BASE TYPE-1, B1,0=POWER TYPE-1                ARITH       3797     A     
 ARITH              SA1    X3+XPNMT                                                        ARITH       3798     A     
 ARITH              BX6    X1                                                              ARITH       3799     A     
 ARITH              SA6       EXPFNE                                                       ARITH       3800     A     
 ARITH              NZ     X1,EXP5                                                         ARITH       3801     A     
 ARITH              EERR      ERMSG33   CMPX BASE ** NON-INT                               ARITH       3802     A     
 ARITH     EXP5     LX6       59-48                                                        ARITH       3803     A     
 ARITH              PL     X6,EXP5A     IF AN ASA COMB                                     ARITH       3804     A     
 ARITH              USASDM ERMSG42         NON-USAS EXPONENTIATION COMBINATION.            ARITH       3805     A     
 ARITH              SA1    EXPFNE            REFETCH NAME                                  ARITH       3806     A     
 ARITH                                                                                     ARITH       3807     A     
 ARITH     EXP5A    SA4    CBNFLG                                                          ARITH       3808     A     
 ARITH              ZR     X4,EXP5B          IF CALL BY VALUE                              ARITH       3809     A     
 ARITH              SX2    1R$-1R.                                                         ARITH       3810     A     
 ARITH              LX2    18                                                              ARITH       3811     A     
 ARITH              IX1    X1+X2             CHANGE . TO A $                               ARITH       3812     A     
 ARITH                                                                                     ARITH       3813     A     
 ARITH     EXP5B    SYMBOL                                                                 ARITH       3814     A     
 ARITH              SA3    WB.EXP            WORD B BITS                                   ARITH       3815     A     
 ARITH              SB7    0                                                               ARITH       3816     A     
 ARITH              NZ     B7,EXP7           IF NOT THE FIRST TIME                         ARITH       3817     A     
 ARITH              SA4    CBNFLG                                                          ARITH       3818     A     
 ARITH              SX7    B5                                                              ARITH       3819     A     
 ARITH              LX7    P.LIB             SET LIB FLAG                                  ARITH       3820     A     
 ARITH              IX3    X3+X7                                                           ARITH       3821     A     
 ARITH              SX5    B5                                                              ARITH       3822     A     
 ARITH              ZR     X4,EXP6           IF CALL BY VALUE                              ARITH       3823     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2192    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              MX5    0                                                               ARITH       3824     A     
 ARITH     EXP6     LX5    P.BEF                                                           ARITH       3825     A     
 ARITH              IX3    X3+X5                                                           ARITH       3826     A     
 ARITH              BX7    X3+X2             SET WORD B BITS                               ARITH       3827     A     
 ARITH              SA7    A2                                                              ARITH       3828     A     
 ARITH              SX0    V.FUN                                                           ARITH       3829     A     
 ARITH              BX6    X0+X1                                                           ARITH       3830     A     
 ARITH              SA6    A1                UPDATE SYMTAB ENTRY                           ARITH       3831     A     
 ARITH                                                                                     ARITH       3832     A     
 ARITH     EXP7     SX7    A1                                                              ARITH       3833     A     
 ARITH              SA7    NAMFWA            SAVE ADDR OF SYMTAB ENTRY                     ARITH       3834     A     
 ARITH              RJ     FUNC5RT                                                         ARITH       3835     A     
 ARITH              SA1       EXRL1     SET UP BASE AS NEXT ARG.  PUT ITS ADR IN -         ARITH       3836     A     
 ARITH              BX6    X1           -RL2                                               ARITH       3837     A     
 ARITH              SA6       RL2                                                          ARITH       3838     A     
 ARITH              RJ        FNDOP                                                        ARITH       3839     A     
 ARITH              SA6       RL1                                                          ARITH       3840     A     
 ARITH              SA1      CBNFLG                                                        ARITH       3841     A     
 ARITH              ZR       X1,NOTINTM  JUMP IF NORMAL MODE                               ARITH       3842     A     
 ARITH              SA1    NARN            DECREMENT NARN IN CASE THIS IS A                ARITH       3843     A     
 ARITH              SA2    EXRL1             POINTER TO BASE OF **                         ARITH       3844     A     
 ARITH              BX6    X1                                                              ARITH       3845     A     
 ARITH              SA3    X2                HEADER WORD OF MACRO                          ARITH       3846     A     
 ARITH              SA4    X2+2              FIRST WORD OF MACRO                           ARITH       3847     A     
 ARITH              SA6    =SSAVENARN                                                      ARITH       3848     A     
 ARITH              MX0    60-16                                                           ARITH       3849     A     
 ARITH              SB2    T.DBL                                                           ARITH       3850     A     
 ARITH              BX1    -X0*X4            GET R NUMBER OF BASE MACRO                    ARITH       3851     A     
 ARITH              SB3    T.CPLX                                                          ARITH       3852     A     
 ARITH              UX0    B1,X3             TYPE OF BASE TO B1                            ARITH       3853     A     
 ARITH              SX6    X1+2              ASSUME DOUBLE WORD BASE                       ARITH       3854     A     
 ARITH              EQ     B1,B2,EXP11                                                     ARITH       3855     A     
 ARITH              EQ     B1,B3,EXP11                                                     ARITH       3856     A     
 ARITH              SX6    X6-1              ADJUST FOR SINGLE WORD BASE                   ARITH       3857     A     
 ARITH     EXP11    SA6    NARN                                                            ARITH       3858     A     
 ARITH    NOTINTM   BSS      0                                                             ARITH       3859     A     
 ARITH              RJ        CARGPORT                                                     ARITH       3860     A     
 ARITH              SA1      CBNFLG                                                        ARITH       3861     A     
 ARITH              ZR       X1,NOTINAG                                                    ARITH       3862     A     
 ARITH              SA1    SAVENARN                                                        ARITH       3863     A     
 ARITH              BX6    X1                                                              ARITH       3864     A     
 ARITH              SA6    NARN              RESTORE SAVED R VALUE                         ARITH       3865     A     
 ARITH    NOTINAG  BSS       0                                                             ARITH       3866     A     
 ARITH              SA2    FTRFLG                                                          FCC2240        9     A     
 ARITH              BX7    X2                                                              FCC2240       10     A     
 ARITH              SA7    EXPA        SAVE CURRENT FUNCTION TRACE FLAG                    FCC2240       11     A     
 ARITH              MX7    0                                                               FCC2240       12     A     
 ARITH              SA7    A2          TURN OFF FUNCTION TRACING FOR **                    FCC2240       13     A     
 ARITH              SA2       EXRL2                                                        ARITH       3867     A     
 ARITH              AX7    B0,X2                                                           ARITH       3868     A     
 ARITH              SA7       RL2                                                          ARITH       3869     A     
 ARITH              RJ        FNDOP                                                        ARITH       3870     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2193    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA6       RL1                                                          ARITH       3871     A     
 ARITH              RJ        CARGPORT                                                     ARITH       3872     A     
 ARITH              SA1       EXPSTB                                                       ARITH       3873     A     
 ARITH              BX6    X1                                                              ARITH       3874     A     
 ARITH              SA6       FRLW      FIRST RLIST WORD (ORDL OF-)                        ARITH       3875     A     
 ARITH              SA2       OSPTR     CHANGE OSPTR TO POINT BEFORE THE (A ,A OPS         ARITH       3876     A     
 ARITH              SX6    X2-2                                                            ARITH       3877     A     
 ARITH              SA6       OSPTR                                                        ARITH       3878     A     
 ARITH              SA1       EXPNSF                                                       ARITH       3879     A     
 ARITH              BX7    X1                                                              ARITH       3880     A     
 ARITH              SA7       SSFRSTB                                                      ARITH       3881     A     
 ARITH              RJ        ARGP1RT                                                      ARITH       3882     A     
 ARITH              SA4    EXPCON                                                          ARITH       3883     A     
 ARITH              PL     X4,EXP12    IF TYPE OF RESULT NEED NOT BE ADJUSTED              ARITH       3884     A     
 ARITH              USASDM ERMSG42     NON-ANSI IF I**FLOAT(N)                             ARITH       3885     A     
 ARITH              SA5    RL2         RESULT INT, S/B REAL                                ARITH       3886     A     
 ARITH              SB5    T.REAL                                                          ARITH       3887     A     
 ARITH              RJ     MODCH                                                           ARITH       3888     A     
 ARITH              SA6    RL2                                                             ARITH       3889     A     
 ARITH     EXP12    BSS    0                                                               ARITH       3890     A     
 ARITH              MX6       0                                                            ARITH       3891     A     
 ARITH              SA6       EXRL1     CLEAR FUNC5RT FLAG                                 ARITH       3892     A     
 ARITH              SA1       OP        HERE TO EXP10A TO TAKE SPECIAL ACTION IF           ARITH       3893     A     
 ARITH              UX0 B2,X1               THISS ** POPPED BY **                          ARITH       3894     A     
 ARITH              SA1    EPOINT                                                          ARITH       3895     A     
 ARITH              SB1    X1+1                                                            ARITH       3896     A     
 ARITH              SX2    B2-EL.SLASH                                                     ARITH       3897     A     
 ARITH              ZR     X2,DIVX     IF OP=/                                             ARITH       3898     A     
 ARITH              SB3    EL.DSTR                                                         ARITH       3899     A     
 ARITH              SA1    EXPA                                                            FCC2240       14     A     
 ARITH              BX6    X1                                                              FCC2240       15     A     
 ARITH              SA6    FTRFLG      RESET FUNCTION TRACE FLAG                           FCC2240       16     A     
 ARITH              NE  B2,B3,CMPARE    IF THIS ** NOT POPPED BY **                        ARITH       3900     A     
 ARITH              SA1       EXPNSF                                                       ARITH       3901     A     
 ARITH              SA2       EXPSTB                                                       ARITH       3902     A     
 ARITH              BX6    X1                                                              ARITH       3903     A     
 ARITH              LX7    X2                                                              ARITH       3904     A     
 ARITH              SA6       NSFR                                                         ARITH       3905     A     
 ARITH              SA7       STBASE                                                       ARITH       3906     A     
 ARITH              ZR        CMPARE    NORMAL EXIT FROM EXPOP CODING                      ARITH       3907     A     
 ARITH                                                                                     FCC2240       17     A     
 ARITH     EXPA     BSS    1           HOLD FTRFLG ACROSS CARGPORT/ARG1PRT                 FCC2240       18     A     
 ARITH              TITLE                                                                  ARITH       3908     A     
 ARITH    *     COMMA FROM EJTB                                                            ARITH       3909     A     
 ARITH     COMMA    SA3    IXFNFG                                                          ARITH       3910     A     
 ARITH              PL     X3,CMMAB    IF NOT I/O UNIT NOR VAR FORMAT                      ARITH       3911          I
          -FCC0787
 ARITH              SX2    X3+2                                                            ARITH       3912          I
          -FCC0787
 ARITH              ZR     X2,CMMA2    IF PROCESSING UNIT NUMBER                           ARITH       3913          I
          -FCC0787
 ARITH              NZ     X3,CMMA2    IF IN IXFN MODE                                     FCC0787      165     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2194    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH                                                                                     ARITH       3914     A     
 ARITH     CMMAB    RJ     SSERR3                                                          ARITH       3915     A     
 ARITH                                                                                     ARITH       3916     A     
 ARITH     CMMA2    BSS    0                                                               ARITH       3917     A     
 ARITH              SA1       EMODE     ARE WE IN EXPRESSION MODE:                         ARITH       3918     A     
 ARITH              SB2    X1-1                                                            ARITH       3919     A     
 ARITH              ZR     B2,CMMA1     IF YES (MUST BE COMPLEX CONST.)                    ARITH       3920     A     
 ARITH              SB2   X1-4          ARE WE IN SUBS MODE-                               ARITH       3921     A     
 ARITH              NZ     B2,CMMA3     IF NO                                              ARITH       3922     A     
 ARITH              SA1    CC           GET COMMA CNT                                      ARITH       3923     A     
 ARITH              SA2    DIMINF       GET DIMENSIONALITY                                 ARITH       3924     A     
 ARITH              SX6    X1+1                                                            ARITH       3925     A     
 ARITH              AX2    57                                                              ARITH       3926     A     
 ARITH              SA6    CC           CC NOW=NO.OF SUBS.EXPS.SCANNED                     ARITH       3927     A     
 ARITH              IX1    X6-X2        IS CC< DIMENSIONALITY:                             ARITH       3928     A     
 ARITH              NG     X1,CMMA4     IF YES                                             ARITH       3929     A     
 ARITH              EERR      ERMSG28   TOO MANY SUBSCRIPT EXPRS.                          ARITH       3930     A     
 ARITH     CMMA4    SA1    X6+CMASUB-1  X6=1 OR 2.  LOAD ,S1 OR ,S2 OP.                    ARITH       3931     A     
 ARITH              BX6    X1                                                              ARITH       3932     A     
 ARITH              SA6    OP                                                              ARITH       3933     A     
 ARITH              ZR        CMPARE                                                       ARITH       3934     A     
 ARITH    *     CMMA3 IF , IN ARG.MODE                                                     ARITH       3935     A     
 ARITH     CMMA3    SA1    ARGCMA                                                          ARITH       3936          I
          -FCC2338
 ARITH     CMMA3    RJ     SSERR3      SIMPLE SYNTAX CHECKING                              FCC2338        6     A     
 ARITH              SA1    ARGCMA                                                          FCC2338        7     A     
 ARITH              BX6    X1                                                              ARITH       3937     A     
 ARITH              SA6    OP                                                              ARITH       3938     A     
 ARITH              ZR        CMPARE                                                       ARITH       3939     A     
 ARITH    *     CMMA1 IF COMMA IN NORMAL EXPR MODE.  MUST BE IN COMPLEX CONST              ARITH       3940     A     
 ARITH     CMMA1    BSS       0                                                            ARITH       3941     A     
 ARITH              SA2    ARORD                                                           ARITH       3942     A     
 ARITH              SA1    FNAD                                                            ARITH       3943     A     
 ARITH              BX0    X1+X2             .NE. 0 IF IN FUNC OR ARRAY REF                ARITH       3944          I
          -FCC0787
 ARITH              NZ     X0,CMMA1.8        DO NOT CHECK I/O FLAG                         ARITH       3945          I
          -FCC0787
 ARITH              SA2       IXFNFG                                                       ARITH       3946          I
          -FCC0787
 ARITH              NZ     X2,CMPARE    IF IN IXFN MODE                                    ARITH       3947          I
          -FCC0787
 ARITH                                                                                     ARITH       3948          I
          -FCC0787
 ARITH     CMMA1.8  SB1    B1+1              SCAN BACKWARDS FROM COMMA                     ARITH       3949          I
          -FCC0787
 ARITH              SA1    B1                                                              ARITH       3950          I
          -FCC0787
 ARITH              UX0 B2,X1                                                              ARITH       3951          I
          -FCC0787
 ARITH              NZ     B2,CMMA1A    IF E-1 NOT A CONST                                 ARITH       3952          I
          -FCC0787
 ARITH              MX1       15                                                           ARITH       3953          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2195    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
          -FCC0787
 ARITH              BX0    X1*X0                                                           ARITH       3954          I
          -FCC0787
 ARITH              LX0       15                                                           ARITH       3955          I
          -FCC0787
 ARITH              SX1    X0-T.REAL                                                       ARITH       3956          I
          -FCC0787
 ARITH              NZ     X1,CMMA1A    IF E-1 NOT REAL                                    ARITH       3957          I
          -FCC0787
 ARITH              SB1    B1+1                                                            ARITH       3958          I
          -FCC0787
 ARITH              SA1    B1                                                              ARITH       3959          I
          -FCC0787
 ARITH              UX0 B2,X1                                                              ARITH       3960          I
          -FCC0787
 ARITH              SB3    EL.(                                                            ARITH       3961          I
          -FCC0787
 ARITH              SB4    EL.MINUS                                                        ARITH       3962          I
          -FCC0787
 ARITH              EQ  B2,B3,CMMA1.1   IF E-1 IS A (                                      ARITH       3963          I
          -FCC0787
 ARITH              EQ  B2,B4,CMMA1.2   IF E-1 IS A -                                      ARITH       3964          I
          -FCC0787
 ARITH              SB3    EL.PLUS                                                         ARITH       3965          I
          -FCC0787
 ARITH              NE  B3,B2,CMMA1A    IF E-1 NOT (, -, OR +.                             ARITH       3966          I
          -FCC0787
 ARITH     CMMA1.2  SB1    B1+1         HERE IF 1ST CONST IS SIGNED.                       ARITH       3967          I
          -FCC0787
 ARITH              SA1    B1                                                              ARITH       3968          I
          -FCC0787
 ARITH              UX0 B2,X1                                                              ARITH       3969          I
          -FCC0787
 ARITH              SB3    EL.(                                                            ARITH       3970          I
          -FCC0787
 ARITH              NE  B2,B3,CMMA1A    IF E-1 NOT (                                       ARITH       3971          I
          -FCC0787
 ARITH    *     CMMA1.1: START FORWARD SCAN OF CPX CON.  THE REAL PART IS ERROR            ARITH       3972          I
          -FCC0787
 ARITH    *             FREE.  CHECK BEYOND COMMA FOR ERRORS.                              ARITH       3973          I
          -FCC0787
 ARITH     CMMA1.1  SB1    B1-1                                                            ARITH       3974          I
          -FCC0787
 ARITH              SA1    B1                                                              ARITH       3975          I
          -FCC0787
 ARITH              UX0 B2,X1                                                              ARITH       3976          I
          -FCC0787
 ARITH              ZR     B2,CMMA1.3   IF 1ST ITEM A CONST (ELSE A SIGN)                  ARITH       3977          I
          -FCC0787
 ARITH              SB1    B1-1                                                            ARITH       3978          I
          -FCC0787
 ARITH     CMMA1.3  SA1    B1           PREPARE FOR CONVERT CALL                           ARITH       3979          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2196    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
          -FCC0787
 ARITH              SX6    B1                                                              ARITH       3980          I
          -FCC0787
 ARITH              SB1      -1                                                            ARITH       3981          I
          -FCC0787
 ARITH              SA6       EPOINT    SAVE CURRENT POINT                                 ARITH       3982          I
          -FCC0787
 ARITH              RJ        CONVERT                                                      ARITH       3983          I
          -FCC0787
 ARITH              BX6    X1                                                              ARITH       3984          I
          -FCC0787
 ARITH              SA1       EPOINT                                                       ARITH       3985          I
          -FCC0787
 ARITH              SA2    X1+1                                                            ARITH       3986          I
          -FCC0787
 ARITH              UX0 B1,X2                                                              ARITH       3987          I
          -FCC0787
 ARITH              SB2    EL.MINUS                                                        ARITH       3988          I
          -FCC0787
 ARITH              NE  B2,B1,CMMA1.4   IF CONST NOT PRECEDED BY -                         ARITH       3989          I
          -FCC0787
 ARITH              SA2       OSPTR     REMOVE U- FROM OPSTAK                              ARITH       3990          I
          -FCC0787
 ARITH              SX7    X2-1                                                            ARITH       3991          I
          -FCC0787
 ARITH              SA7       OSPTR                                                        ARITH       3992          I
          -FCC0787
 ARITH              BX6   -X6           COMPLEMENT CONSTANT                                ARITH       3993          I
          -FCC0787
 ARITH     CMMA1.4  SA6       CONST                                                        ARITH       3994          I
          -FCC0787
 ARITH              SX1    X1-2         SKIP OVER COMMA                                    ARITH       3995          I
          -FCC0787
 ARITH              SA2    X1                                                              ARITH       3996          I
          -FCC0787
 ARITH              UX0 B1,X2                                                              ARITH       3997          I
          -FCC0787
 ARITH              SB2    EL.MINUS                                                        ARITH       3998          I
          -FCC0787
 ARITH              SB3    EL.PLUS                                                         ARITH       3999          I
          -FCC0787
 ARITH              EQ  B2,B1,CMMA1.5   IF SIGNED CONST                                    ARITH       4000          I
          -FCC0787
 ARITH              NE  B3,B1,CMMA1.6   IF NOT SIGNED CONST                                ARITH       4001          I
          -FCC0787
 ARITH     CMMA1.5  SX1    X1-1                                                            ARITH       4002          I
          -FCC0787
 ARITH              SA2    X1                                                              ARITH       4003          I
          -FCC0787
 ARITH              UX0 B1,X2                                                              ARITH       4004          I
          -FCC0787
 ARITH     CMMA1.6  NZ     B1,CMMA1A    IF NOT A CONST                                     ARITH       4005          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2197    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
          -FCC0787
 ARITH              MX2       15                                                           ARITH       4006          I
          -FCC0787
 ARITH              BX0    X2*X0                                                           ARITH       4007          I
          -FCC0787
 ARITH              LX0       15                                                           ARITH       4008          I
          -FCC0787
 ARITH              SX2    X0-T.REAL                                                       ARITH       4009          I
          -FCC0787
 ARITH              NZ     X2,CMMA1A    IF NOT REAL                                        ARITH       4010          I
          -FCC0787
 ARITH              SX6    X1           PREPARE FOR CALL TO CONVERT                        ARITH       4011          I
          -FCC0787
 ARITH              SA1    X1                                                              ARITH       4012          I
          -FCC0787
 ARITH              SB1      -1                                                            ARITH       4013          I
          -FCC0787
 ARITH              SA6       EPOINT    SAVE ADR OF IMAG CONST ELEMENT                     ARITH       4014          I
          -FCC0787
 ARITH              RJ        CONVERT                                                      ARITH       4015          I
          -FCC0787
 ARITH              SA2       EPOINT                                                       ARITH       4016          I
          -FCC0787
 ARITH              SA3    X2+1                                                            ARITH       4017          I
          -FCC0787
 ARITH              UX0 B1,X3                                                              ARITH       4018          I
          -FCC0787
 ARITH              SB2    EL.MINUS                                                        ARITH       4019          I
          -FCC0787
 ARITH              NE  B1,B2,CMMA1.7   IF CONST NOT PRECEDED BY -                         ARITH       4020          I
          -FCC0787
 ARITH              BX1   -X1                                                              ARITH       4021          I
          -FCC0787
 ARITH     CMMA1.7  BX6    X1                                                              ARITH       4022          I
          -FCC0787
 ARITH              SA6       CONST+1                                                      ARITH       4023          I
          -FCC0787
 ARITH              SA3    X2-1                                                            ARITH       4024          I
          -FCC0787
 ARITH              UX0 B1,X3                                                              ARITH       4025          I
          -FCC0787
 ARITH              SB2    EL.)                                                            ARITH       4026          I
          -FCC0787
 ARITH              NE  B1,B2,CMMA1A    IF 2ND CONST NOT FOLLOWED BY ).                    ARITH       4027          I
          -FCC0787
 ARITH              SA3    X2-2        GET NEXT E AFTER CPLX CONST                         ARITH       4028          I
          -FCC0787
 ARITH              UX0    B1,X3                                                           ARITH       4029          I
          -FCC0787
 ARITH              SB2    EL.ID                                                           ARITH       4030          I
          -FCC0787
 ARITH              SB3    EL.(                                                            FCC0787      166     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2198    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA4    B1+2        SKIP OVER CONST                                     FCC0787      167     A     
 ARITH              UX0    B4,X4                                                           FCC0787      168     A     
 ARITH              EQ     B4,B3,CMMA6 IF FOUND LEFT PAREN                                 FCC0787      169     A     
 ARITH              SA4    A4+1        ALLOW FOR SIGN PRECEDING CONST                      FCC0787      170     A     
 ARITH              BX0    X1+X2                                                           FCC0787      171     A     
 ARITH              UX4    B1,X4                                                           FCC0787      172     A     
 ARITH              EQ     B1,B3,CMMA5 IF LEFT PAREN FOUND                                 FCC0787      173     A     
 ARITH              SA2    IXFNFG                                                          FCC0787      174     A     
 ARITH              NZ     X0,CMMA1A   IF IN FUNC OR ARRAY                                 FCC0787      175     A     
 ARITH              NZ     X2,CMPARE   IF IN IXFN MODE                                     FCC0787      176     A     
 ARITH              EQ     CMMA1A                                                          FCC0787      177     A     
 ARITH                                                                                     FCC0787      178     A     
 ARITH     CMMA5    SB2    EL.MINUS                                                        FCC0787      179     A     
 ARITH              NE     B4,B2,CMMA6 IF NOT U-                                           FCC0787      180     A     
 ARITH              SA2    OSPTR                                                           FCC0787      181     A     
 ARITH              SX7    X2-1        REMOVE U-                                           FCC0787      182     A     
 ARITH              SA7    OSPTR                                                           FCC0787      183     A     
 ARITH     CMMA6    SB5    1                                                               FCC0787      184     A     
 ARITH              CALL   CFCD        CHECK FOR COMPLEX DATA                              FCC0787      185     A     
 ARITH              SA3    IXFNFG                                                          FCC0787      186     A     
 ARITH              ZR     X0,CMMA7    IF CPLX CONST                                       FCC0787      187     A     
 ARITH              NZ     X3,CMPARE   IF IN IXFN MODE                                     FCC0787      188     A     
 ARITH              EQ     CMMA1A      ERROR IF NOT CPLX CONST                             FCC0787      189     A     
 ARITH                                                                                     FCC0787      190     A     
 ARITH     CMMA7    BX6    X1                                                              FCC0787      191     A     
 ARITH              LX7    X2                                                              FCC0787      192     A     
 ARITH              SA6    CONST                                                           FCC0787      193     A     
 ARITH              SA7    CONST+1                                                         FCC0787      194     A     
 ARITH              SA3    EPOINT      POINTS PAST )                                       FCC0787      195     A     
 ARITH              SB2    EL.ID                                                           FCC0787      196     A     
 ARITH              SA1    X3                                                              FCC0787      197     A     
 ARITH              UX0    B1,X1                                                           FCC0787      198     A     
 ARITH              GE     B2,B1,CMMA1B IF NEXT E IS ID OR CONST                           ARITH       4031     A     
 ARITH              SB2    EL.(                                                            ARITH       4032     A     
 ARITH              EQ     B2,B1,CMMA1B IF NEXT E IS (                                     ARITH       4033     A     
 ARITH              SX6    A3                                                              ARITH       4034          I
          -FCC0787
 ARITH              SA6       EPOINT    MAKE EPOINT ADR 1ST E AFTER CPX CONST.             ARITH       4035          I
          -FCC0787
 ARITH              SA1       RL2       NO-OP LOAD OF 1ST REAL CONST                       ARITH       4036     A     
 ARITH              SA2    X1                                                              ARITH       4037     A     
 ARITH              BX6   -X2                                                              ARITH       4038     A     
 ARITH              SA6    X1                                                              ARITH       4039     A     
 ARITH              SA1       RL1       RESET RL2                                          ARITH       4040     A     
 ARITH              BX6    X1                                                              ARITH       4041     A     
 ARITH              SA6       RL2                                                          ARITH       4042     A     
 ARITH              RJ        FNDOP                                                        ARITH       4043     A     
 ARITH              SA6       RL1                                                          ARITH       4044     A     
 ARITH              SA1       OSPTR     REMOVE (E AND SAVED ARLPT FROM OPSTAK              ARITH       4045     A     
 ARITH              SX7    X1-2                                                            ARITH       4046     A     
 ARITH              SA1    X1+OPSTAK    RESTORE PREVIOUS MODE                              ARITH       4047     A     
 ARITH              MX0       60-3                                                         ARITH       4048     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2199    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              AX1       19                                                           ARITH       4049     A     
 ARITH              BX6   -X0*X1                                                           ARITH       4050     A     
 ARITH              SA6       EMODE                                                        ARITH       4051     A     
 ARITH              SA7       OSPTR                                                        ARITH       4052     A     
 ARITH              SX6    T.CPLX                                                          ARITH       4053     A     
 ARITH              ZR        CON4                                                         ARITH       4054     A     
 ARITH    *                                                                                ARITH       4055     A     
 ARITH     CMMA1A   EERR      ERMSG30                                                      ARITH       4056     A     
 ARITH                                                                                     ARITH       4057     A     
 ARITH     CMMA1B   SX6    X2-3        MOVE EPOINT SO ID, CON, OR ( WILL BE LISTED         ARITH       4058          I
          -FCC2004
 ARITH     CMMA1B   SX6    X3-1        MOVE EPOINT SO ID, CON, OR ( WILL BE LISTED         FCC2004        5     A     
 ARITH              SA6    EPOINT                                                          ARITH       4059     A     
 ARITH              EERR   ERMSG25     ) FOLLOWED BY ID, CON, OR (                         ARITH       4060     A     
 ARITH              TITLE              SUBSCRIPT PROCESSING                                ARITH       4061     A     
 ARITH    *                                                                                ARITH       4062     A     
 ARITH    *     CS1PO IF COMMA-AFTER SUBSC.-NO. 1 POPPED OUT                               ARITH       4063     A     
 ARITH     CS1PO    SA5    RL2          IS LAST SUBS.RESULT TYPE INT:                      ARITH       4064     A     
 ARITH              SA2    X5                                                              ARITH       4065     A     
 ARITH              SB5    T.INT                                                           ARITH       4066     A     
 ARITH              UX0 B2,X2                                                              ARITH       4067     A     
 ARITH              EQ  B2,B5,CS1P1     IF YES                                             ARITH       4068     A     
 ARITH              RJ        MODCH     CONVERT TO TYPE INT.                               ARITH       4069     A     
 ARITH              SA6    RL2          STORE NEW START ADR.                               ARITH       4070     A     
 ARITH     CS1P1    SA5    RL1          IS R(*-2) INT:                                     ARITH       4071     A     
 ARITH              SA2    X5                                                              ARITH       4072     A     
 ARITH              SB5    T.INT                                                           ARITH       4073     A     
 ARITH              UX0 B2,X2                                                              ARITH       4074     A     
 ARITH              EQ  B2,B5,CS1P2     IF YES                                             ARITH       4075     A     
 ARITH              RJ        MODCH                                                        ARITH       4076     A     
 ARITH              SA6    RL1          STORE NEW RL1                                      ARITH       4077     A     
 ARITH     CS1P2    SX5    1            RN+1=1 TO ARLIST                                   ARITH       4078     A     
 ARITH              MX7    0                                                               ARITH       4079     A     
 ARITH              SA7    BSAV                                                            ARITH       4080     A     
 ARITH              RJ     STCON             (A MXI 59 INSTRUCTION WILL BE FORMED)         ARITH       4081     A     
 ARITH              SX6    MAC+32            ADD A NEGATIVE ONE                            ARITH       4082     A     
 ARITH              SX5    T.INT                                                           ARITH       4083     A     
 ARITH              SA6    SMACD                                                           ARITH       4084     A     
 ARITH              RJ        INGEN                                                        ARITH       4085     A     
 ARITH              SA5    DIMINF                                                          ARITH       4086     A     
 ARITH              LX5    3            IS 1ST DIMEN CONSTANT:                             ARITH       4087     A     
 ARITH              NG     X5,CS1P3     IF NOT                                             ARITH       4088     A     
 ARITH     CS1P5    AX5       3                                                            ARITH       4089     A     
 ARITH              SX7    773B                                                            ARITH       4090     A     
 ARITH              SA7    BSAV              MAKE SURE NO SPECIAL CONSTANT FORMED          ARITH       4091     A     
 ARITH              RJ     STCON                                                           ARITH       4092     A     
 ARITH     CS1P4    SX6    MPY.INT                                                         ARITH       4093     A     
 ARITH              SX5    T.INT                                                           ARITH       4094     A     
 ARITH              SA6    SMACD                                                           ARITH       4095     A     
 ARITH              RJ     INGEN                                                           ARITH       4096     A     
 ARITH              SX6       MAC+32    INT +.                                             ARITH       4097     A     
 ARITH              SX5    T.INT                                                           ARITH       4098     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2200    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA6    SMACD                                                           ARITH       4099     A     
 ARITH              RJ     INGEN                                                           ARITH       4100     A     
 ARITH              ZR        CMPARE                                                       ARITH       4101     A     
 ARITH    *                                                                                ARITH       4102     A     
 ARITH    *     CS1P3 IF 1ST DIMEN VARIABLE                                                ARITH       4103     A     
 ARITH     CS1P3    MX0    60-18        GET SYMTAB ENTRY FOR 1ST DIMEN.TO GET ORD          ARITH       4104     A     
 ARITH              AX5    3                           OF DIMEN.IN ARG.LIST.               ARITH       4105     A     
 ARITH              BX1    -X0*X5       X5=DIMIN=                                          ARITH       4106     A     
 ARITH              RJ        DALV                                                         ARITH       4107     A     
 ARITH              ZR        CS1P4                                                        ARITH       4108     A     
 ARITH    *                                                                                ARITH       4109     A     
 ARITH    *                                                                                ARITH       4110     A     
 ARITH    *     CS2PO IF COMMA-AFTER SUBSC.-NO. 2 POPPED OUT                               ARITH       4111     A     
 ARITH     CS2PO    SA5    RL2          IS LAST SUBS RESULT TYPE INT:                      ARITH       4112     A     
 ARITH              SA2    X5                                                              ARITH       4113     A     
 ARITH              SB5    T.INT                                                           ARITH       4114     A     
 ARITH              UX0 B2,X2                                                              ARITH       4115     A     
 ARITH              EQ  B2,B5,CS2P1     IF YES                                             ARITH       4116     A     
 ARITH              RJ        MODCH     CONVERT TO TYPE INT                                ARITH       4117     A     
 ARITH              SA6    RL2          STORE NEW RL2                                      ARITH       4118     A     
 ARITH     CS2P1    SX5    1                                                               ARITH       4119     A     
 ARITH              MX7    0                                                               ARITH       4120     A     
 ARITH              SA7    BSAV              ALLOW SPECIAL CONSTANT                        ARITH       4121     A     
 ARITH              RJ     STCON             (A MXI 59 WILL BE FORMED)                     ARITH       4122     A     
 ARITH              SX6    MAC+32            ADD A NEGATIVE ONE                            ARITH       4123     A     
 ARITH              SX5    T.INT                                                           ARITH       4124     A     
 ARITH              SA6    SMACD                                                           ARITH       4125     A     
 ARITH              RJ        INGEN                                                        ARITH       4126     A     
 ARITH              SA5    DIMINF                                                          ARITH       4127     A     
 ARITH              LX5    3                                                               ARITH       4128     A     
 ARITH              NG     X5,CS2P2     IF I IS VARIABLE                                   ARITH       4129     A     
 ARITH              AX5    3                                                               ARITH       4130     A     
 ARITH              SX7    773B              INHIBIT SPECIAL CONSTANTS                     ARITH       4131     A     
 ARITH              SA7    BSAV                                                            ARITH       4132     A     
 ARITH              RJ     STCON                                                           ARITH       4133     A     
 ARITH     CS2P4    SX6    MPY.INT                                                         ARITH       4134     A     
 ARITH              SX5    T.INT                                                           ARITH       4135     A     
 ARITH              SA6    SMACD                                                           ARITH       4136     A     
 ARITH              RJ        INGEN                                                        ARITH       4137     A     
 ARITH              SA5    DIMINF                                                          ARITH       4138     A     
 ARITH              SB2       4                                                            ARITH       4139     A     
 ARITH              LX4    B2,X5                                                           ARITH       4140     A     
 ARITH              AX5       18-3                                                         ARITH       4141     A     
 ARITH              PL     X4,CS1P5     IF 2ND DIM IS CONST.                               ARITH       4142     A     
 ARITH              ZR        CS1P3                                                        ARITH       4143     A     
 ARITH     CS2P2    MX0    60-18                                                           ARITH       4144     A     
 ARITH              AX5    3                                                               ARITH       4145     A     
 ARITH              BX1    -X0*X5                                                          ARITH       4146     A     
 ARITH              RJ        DALV                                                         ARITH       4147     A     
 ARITH              ZR        CS2P4                                                        ARITH       4148     A     
 ARITH    *                                                                                ARITH       4149     A     
 ARITH    *                                                                                ARITH       4150     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2201    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    *                                                                                ARITH       4151     A     
 ARITH    *     SUBPO IF SUBSCRIPT LEFT PARENS (S POPPED OUT                               ARITH       4152     A     
 ARITH     SUBPO    SA1       OP                                                           ARITH       4153     A     
 ARITH              SA5    RL2                                                             ARITH       4154     A     
 ARITH              UX0 B2,X1                                                              ARITH       4155     A     
 ARITH              SB3    2            2=CODE FOR )                                       ARITH       4156     A     
 ARITH              EQ  B2,B3,SUBP3     IF (S WAS POPPED BY R.P.                           ARITH       4157     A     
 ARITH              EERR   ERMSG11      ILLEGAL SUBS.                                      ARITH       4158     A     
 ARITH     SUBP3    SA1    X5                                                              ARITH       4159     A     
 ARITH              SB5    T.INT                                                           ARITH       4160     A     
 ARITH              UX0 B2,X1                                                              ARITH       4161     A     
 ARITH              EQ B2,B5,SUBP4      IF TYPE OF SUBS.VALUE IS INT.                      ARITH       4162     A     
 ARITH              RJ        MODCH     CONVERT TO INT                                     ARITH       4163     A     
 ARITH              SA6    RL2                                                             ARITH       4164     A     
 ARITH     SUBP4    SA1    ARORD        IS ARRAY TYPE DBL OR CMPX:                         ARITH       4165     A     
 ARITH              MX0    60-L.TYP                                                        ARITH       4166     A     
 ARITH              BX6    X1                                                              ARITH       4167     A     
 ARITH              SA6    IDORDLTS                                                        ARITH       4168     A     
 ARITH              LX1    1                                                               ARITH       4169     A     
 ARITH              MX7    0                                                               ARITH       4170     A     
 ARITH              SA7    TS1               SET TYPE FLAG                                 ARITH       4171     A     
 ARITH              SA7    IDORDLTS+1                                                      ARITH       4172     A     
 ARITH              SA2    SYM1                                                            ARITH       4173     A     
 ARITH              SB2    X1+1         GET 2ND WD OF ENTRY                                ARITH       4174     A     
 ARITH              SB2    -B2                                                             ARITH       4175     A     
 ARITH              SA3    X2+B2        LOAD 2ND WD OF SYMTAB ENTRY                        ARITH       4176     A     
 ARITH              SA4    A3+1         LOAD 1ST WD                                        ARITH       4177     A     
 ARITH              BX7    X4                                                              ARITH       4178     A     
 ARITH              SA7       NAME                                                         ARITH       4179     A     
 ARITH              BX7    X3                                                              ARITH       4180     A     
 ARITH              LX3    60-P.TYP                                                        ARITH       4181     A     
 ARITH              SA7       NAME+1    USED BY FETCH                                      ARITH       4182     A     
 ARITH              BX4    -X0*X3                                                          ARITH       4183     A     
 ARITH              SB4    T.DBL                                                           ARITH       4184     A     
 ARITH              SB3    X4                                                              ARITH       4185     A     
 ARITH              MX0    60-L.LVL                                                        ARITH       4186     A     
 ARITH              LX7    60-P.LVL                                                        ARITH       4187     A     
 ARITH              BX4    -X0*X7            OBTAIN LEVEL NUMBER OF VARIABLE               ARITH       4188     A     
 ARITH              SB6    X4-3                                                            ARITH       4189     A     
 ARITH              NZ     B6,SUBP4A         NOT A LEVEL 3 ARRAY                           ARITH       4190     A     
 ARITH              SA3    EPOINT                                                          ARITH       4191     A     
 ARITH              SA4    X3                                                              ARITH       4192     A     
 ARITH              UX0    X4,B2                                                           ARITH       4193     A     
 ARITH              SB2    B2-LOWOP                                                        ARITH       4194     A     
 ARITH              PL     B2,LVLERR1        NOT A STAND-ALONG ARGUMRNT                    ARITH       4195     A     
 ARITH    SUBP4A    BSS    0                                                               ARITH       4196     A     
 ARITH              MX6      59                                                            ARITH       4197     A     
 ARITH              SA6      CA        CA=-1                                               ARITH       4198     A     
 ARITH              SB2    T.CPLX                                                          ARITH       4199     A     
 ARITH              EQ  B4,B3,SUBP5     IF TYPE DBL                                        ARITH       4200     A     
 ARITH              NE  B2,B3,SUBP6     IF NOT TYPE CMPX                                   ARITH       4201     A     
 ARITH     SUBP5    SX6    -2           SET CA=-2                                          ARITH       4202     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2202    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA6    CA                                                              ARITH       4203     A     
 ARITH              SA6    TS1               SET NONZERO FOR DBL WRD TYPE                  ARITH       4204     A     
 ARITH              SA1    RL2          DBL RESULT OF IX.FN.CALC.                          ARITH       4205     A     
 ARITH              BX7    X1                                                              ARITH       4206     A     
 ARITH              SX6       MAC+31+1  INT +                                              ARITH       4207     A     
 ARITH              SA7    RL1                                                             ARITH       4208     A     
 ARITH              SX5    T.INT                                                           ARITH       4209     A     
 ARITH              SA6    SMACD                                                           ARITH       4210     A     
 ARITH              RJ        INGEN                                                        ARITH       4211     A     
 ARITH     SUBP6    SA3    RL2                                                             ARITH       4212     A     
 ARITH              SA5    X3+2                                                            ARITH       4213     A     
 ARITH              LX6    X5                                                              ARITH       4214     A     
 ARITH              SA6    SVRL2       RESULT OF SUBSCRIPT CALCULATION                     ARITH       4215     A     
 ARITH              RJ     CHKOFF                                                          ARITH       4216     A     
 ARITH              SB7       SUBP7     RETURN ADR.FROM EQUIVR IF NOT EQUIVED              ARITH       4217     A     
 ARITH              RJ        EQUIVR                                                       ARITH       4218     A     
 ARITH              SA1       CA        HERE IF EQUIVALENCED ARRAY                         ARITH       4219     A     
 ARITH              IX6    X6+X1        ADD BIAS TO CA                                     ARITH       4220     A     
 ARITH              SA7       ARORD     STORE BASE ORDINAL                                 ARITH       4221     A     
 ARITH              SA6       CA                                                           ARITH       4222     A     
 ARITH     SUBP7    BSS       0                                                            ARITH       4223     A     
 ARITH              SA2    DFLAG                                                           ARITH       4224     A     
 ARITH              ZR     X2,SUBP7.         BRANCH IF NOT IN DEBUG MODE                   ARITH       4225     A     
 ARITH              SA3    IXFNFG                                                          ARITH       4226     A     
 ARITH              NZ     X3,SUBP7.         IF IN AN I/O LIST                             ARITH       4227     A     
 ARITH              SA1    ALLARR                                                          ARITH       4228     A     
 ARITH              NZ     X1,TALARR         BRANCH IF UNCONDITIONAL TRACING               ARITH       4229     A     
 ARITH              SA2    NAME+1            WORD 2 OF SYMTAB ENTRY                        ARITH       4230     A     
 ARITH              LX2    60-P.DIF          SHIFT DEBUG BITS                              ARITH       4231     A     
 ARITH              MX0    60-L.DIF                                                        ARITH       4232     A     
 ARITH              BX7    -X0*X2            MASK OUT DEBUG BITS                           ARITH       4233     A     
 ARITH              SX6    X7-DV.ARR         IS ARRAY CHECKING TO BE DONE                  ARITH       4234     A     
 ARITH              SX5    X7-DV.AAS         IS ARRAY/STORE CHECKING TO BE DONE            ARITH       4235     A     
 ARITH              ZR     X5,TALARR         IF YES                                        ARITH       4236     A     
 ARITH              NZ     X6,SUBP7.         IF NOT                                        ARITH       4237     A     
 ARITH     TALARR   RJ     ARR               SUBSCRIPT CHECK PROCESSOR                     ARITH       4238     A     
 ARITH     SUBP7.   SA1    SVRL2                                                           ARITH       4239     A     
 ARITH              SA2    CA                                                              ARITH       4240     A     
 ARITH              SB6    X1          RF NAME                                             ARITH       4241     A     
 ARITH              SB7    X2                                                              ARITH       4242     A     
 ARITH              SA5    ARORD                                                           ARITH       4243     A     
 ARITH              RJ     FETCH                                                           ARITH       4244     A     
 ARITH              SA1    OSPTR        GET PREVIOUS MODE SETTING FROM (S                  ARITH       4245     A     
 ARITH              SA2       X1+OPSTAK+1   GET  (S WORD FROM STAK                         ARITH       4246     A     
 ARITH              MX0    60-3                                                            ARITH       4247     A     
 ARITH              AX2    19                                                              ARITH       4248     A     
 ARITH              SX7    X1-4         UPDATE FOR 4 MORE WDS                              ARITH       4249     A     
 ARITH              SA7       OSPTR                                                        ARITH       4250     A     
 ARITH              BX6    -X0*X2                                                          ARITH       4251     A     
 ARITH              SA6    EMODE                                                           ARITH       4252     A     
 ARITH              SA3    A2-2         GET PREVIOUS DIMINF                                ARITH       4253     A     
 ARITH              SA4    A2-3                      ARORD                                 ARITH       4254     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2203    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              BX6    X3                                                              ARITH       4255     A     
 ARITH              BX7    X4                                                              ARITH       4256     A     
 ARITH              SA6    DIMINF                                                          ARITH       4257     A     
 ARITH              SA7    ARORD                                                           ARITH       4258     A     
 ARITH              SA3    A2-1                                                            ARITH       4259     A     
 ARITH              BX6    X3                                                              ARITH       4260     A     
 ARITH              SA6       CC                                                           ARITH       4261     A     
 ARITH              SA4    PARLEVEL          IS PAREN LEVEL ZERO                           ARITH       4262          I
          -FCC0394
 ARITH              NZ     X4,SUBP8          IF NOT                                        ARITH       4263          I
          -FCC0394
 ARITH              SA4    SPARLEV                                                         FCC0394        9     A     
 ARITH              SX6    X4-1                                                            FCC0394       10     A     
 ARITH              SA6    A4          SPARLEV = SPARLEV - 1                               FCC0394       11     A     
 ARITH              NZ     X6,SUBP8    IF SPARLEV .NE. 0  NOT OUTERMOST REF                FCC0394       12     A     
 ARITH              SX0    1                                                               ARITH       4264     A     
 ARITH              SA1    LASTR             POINTER TO MACRO                              ARITH       4265     A     
 ARITH              LX0    36                POSITION THE NSL BIT                          ARITH       4266     A     
 ARITH              SA3    X1                MACRO HEADER WORD                             ARITH       4267     A     
 ARITH              BX6    X3+X0             INSERT MARKING BIT                            ARITH       4268     A     
 ARITH              SA6    X1                RESTORE TO BUFFER                             ARITH       4269     A     
 ARITH     SUBP8    BSS    0                                                               ARITH       4270     A     
 ARITH    *         SEE IF STBASE SHOULD BE SET                                            ARITH       4271     A     
 ARITH              SA3    A2-4         SAVED ARLPT                                        ARITH       4272     A     
 ARITH              SA1       EPOINT    IS NEXT E A ** -                                   ARITH       4273     A     
 ARITH              SB3    EL.DSTR                                                         ARITH       4274     A     
 ARITH              SA2    X1                                                              ARITH       4275     A     
 ARITH              UX0 B2,X2                                                              ARITH       4276     A     
 ARITH              NE  B2,B3,NEXTE     IF NEXTE NOT A **                                  ARITH       4277     A     
 ARITH              SX7    X3                                                              ARITH       4278     A     
 ARITH              AX3    18                                                              ARITH       4279     A     
 ARITH              BX6    X3                                                              ARITH       4280     A     
 ARITH              SA7       STBASE                                                       ARITH       4281     A     
 ARITH              SA6    NSFR                                                            ARITH       4282     A     
 ARITH              ZR        NEXTE                                                        ARITH       4283     A     
 ARITH    *     END OF NSSP                                                                ARITH       4284     A     
 ARITH    * ****             ****                 ****                                     ARITH       4285     A     
 ARITH              EJECT                                                                  ARITH       4286     A     
 ARITH    *         DEBUG PROCESSOR FOR SUBSCRIPT CHECKING                                 ARITH       4287     A     
 ARITH    *                                                                                ARITH       4288     A     
 ARITH     ARR      DATA   0                                                               ARITH       4289     A     
 ARITH              SA1    RL1                                                             ARITH       4290     A     
 ARITH              SA2    RL2                                                             ARITH       4291     A     
 ARITH              BX6    X1                                                              ARITH       4292     A     
 ARITH              LX7    X2                                                              ARITH       4293     A     
 ARITH              SA6    RL1TS             SAVE VALUE                                    ARITH       4294     A     
 ARITH              SA7    RL2TS             SAVE VALUE                                    ARITH       4295     A     
 ARITH              SA1    NAME                                                            ARITH       4296     A     
 ARITH              MX0    L.NAME                                                          ARITH       4297     A     
 ARITH              BX1    X0*X1             GET ARRAY NAME                                ARITH       4298     A     
 ARITH              RJ     STRIP             CHECK FOR TRAILING $ IN NAME                  ARITH       4299     A     
 ARITH              SB1    1                                                               ARITH       4300     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2204    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              RJ     CONVERT           PLACE IN CONS TABLE                           ARITH       4301     A     
 ARITH              BX6    X1                                                              ARITH       4302     A     
 ARITH              SA6    DBGAPL            BEGIN BUILDING ARGLIST TABLE                  ARITH       4303     A     
 ARITH              SA2    NAME+1                                                          ARITH       4304     A     
 ARITH              LX2    60-P.DIMP         POSITION DIMP FIELD                           ARITH       4305     A     
 ARITH              MX0    60-L.DIMP                                                       ARITH       4306     A     
 ARITH              BX3    -X0*X2            GET DIMP FIELD                                ARITH       4307     A     
 ARITH              MX0    60-3                                                            ARITH       4308     A     
 ARITH              SA1    DIM1                                                            ARITH       4309     A     
 ARITH              LX3    1                                                               ARITH       4310     A     
 ARITH              SB4    X1+1              FWA+1 OF DIMTAB                               ARITH       4311     A     
 ARITH              SA1    B4+X3             WORD 2 OF DIMTAB ENTRY FOR ARRAY              ARITH       4312     A     
 ARITH              LX1    6                                                               ARITH       4313     A     
 ARITH              BX2    -X0*X1            GET P-ABC FIELD                               ARITH       4314     A     
 ARITH              NZ     X2,AR1.           IF VARIABLE DIMENSION                         ARITH       4315     A     
 ARITH              LX1    18                                                              ARITH       4316     A     
 ARITH              MX0    60-18                                                           ARITH       4317     A     
 ARITH              BX1    -X0*X1            GET ARRAY BOUND                               ARITH       4318     A     
 ARITH              SB1    1                                                               ARITH       4319     A     
 ARITH              RJ     CONVERT           PLACE IN CONS TABLE                           ARITH       4320     A     
 ARITH              BX6    X1                                                              ARITH       4321     A     
 ARITH              SA6    DBGAPL+1          BOUND TO ARGLIST TABLE                        ARITH       4322     A     
 ARITH              EQ     AR2.                                                            ARITH       4323     A     
 ARITH     AR1.     SA1    ARORD             ORDINAL OF ARRAY                              ARITH       4324     A     
 ARITH              SX2    X1-2              COMPUTE CA FIELD                              ARITH       4325     A     
 ARITH              SA3    FP.               SYMTAB ORDINAL FOR FP.                        ARITH       4326     A     
 ARITH              LX2    30                POSITION CA                                   ARITH       4327     A     
 ARITH              BX6    X2+X3                                                           ARITH       4328     A     
 ARITH              SA6    DBGAPL+1          FP. ORD TO ARGLIST TABLE                      ARITH       4329     A     
 ARITH     AR2.     MX7    0                                                               ARITH       4330     A     
 ARITH              SA7    DBGAPL+3          ZERO TO ARGLIST TABLE                         ARITH       4331     A     
 ARITH              SX6    =8RBUGARR                                                       ARITH       4332     A     
 ARITH              SA6    DBGAPL+4          ADDRESS TO ARGLIST TABLE                      ARITH       4333     A     
 ARITH              SA1    LASTR             LAST MACRO                                    ARITH       4334     A     
 ARITH              SA2    X1+2              1ST WORD OF MACRO                             ARITH       4335     A     
 ARITH              UX0    B2,X2                                                           ARITH       4336     A     
 ARITH              SB3    -SLMACO           IS LAST MACRO A LOAD                          ARITH       4337     A     
 ARITH              NE     B2,B3,AR3.        BRANCH IF NOT                                 ARITH       4338     A     
 ARITH              SA3    X1                                                              ARITH       4339     A     
 ARITH              MX0    1                                                               ARITH       4340     A     
 ARITH              LX0    44+1                                                            ARITH       4341     A     
 ARITH              BX7    X3+X0       SET XMIT BIT IN HDR WORD                            ARITH       4342     A     
 ARITH              SA7    X1                                                              ARITH       4343     A     
 ARITH     AR3.     MX2    0                                                               ARITH       4344     A     
 ARITH              RJ     OTS         OUTPUT TEMP STORE                                   ARITH       4345     A     
 ARITH              LX3    30                                                              ARITH       4346     A     
 ARITH              BX6    X3+X2       30/CA(ST.), 30/ORD(ST.)                             ARITH       4347     A     
 ARITH              SA1    OSPTR                                                           ARITH       4348     A     
 ARITH              SA6    DBGAPL+2    SET UP FOR APLIST PROCESSOR                         ARITH       4349     A     
 ARITH              SA2    X1+OPSTAK+1       (S WORD FROM OPSTAK                           ARITH       4350     A     
 ARITH              SA3    SSFRSTB                                                         ARITH       4351     A     
 ARITH              LX2    30                                                              ARITH       4352     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2205    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              BX6    X3                                                              ARITH       4353     A     
 ARITH              SX7    X2                EXTRACT SAVED SFRSTB                          ARITH       4354     A     
 ARITH              SA6    SSSFRSTB          SAVE CURRENT SSFRSTB                          ARITH       4355     A     
 ARITH              SA7    A3                RESET SSFRSTB                                 ARITH       4356     A     
 ARITH              RJ     ARGP8CR           PROCESS ANY SAVED FUNCTION RESULTS            ARITH       4357     A     
 ARITH              SA1    SSSFRSTB                                                        ARITH       4358     A     
 ARITH              BX6    X1                                                              ARITH       4359     A     
 ARITH              SA6    SSFRSTB           RESTORE SAVED VALUE                           ARITH       4360     A     
 ARITH              SA1    DBGAPL                                                          ARITH       4361     A     
 ARITH              SA2    N.AP                                                            ARITH       4362     A     
 ARITH              SA3    STAPLC                                                          ARITH       4363     A     
 ARITH              MX7    0                 ZERO CHAIN WORD FOR THIS FUNCTION             ARITH       4364     A     
 ARITH              BX6    X3                                                              ARITH       4365     A     
 ARITH              SA7    A3                                                              ARITH       4366     A     
 ARITH              SA6    STAPL                                                           ARITH       4367     A     
 ARITH              SX7    X2+1                                                            ARITH       4368     A     
 ARITH              BX6    X2                                                              ARITH       4369     A     
 ARITH              SA7    A2                UPDATED APLIST NUMBER                         ARITH       4370     A     
 ARITH              RJ     IGCALL            GENERATE CALL MACRO                           ARITH       4371     A     
 ARITH              SA1    =8RBUGARR                                                       ARITH       4372     A     
 ARITH              SB7    *+1                                                             ARITH       4373     A     
 ARITH              EQ     SYMBOL            WILL ALWAYS RETURN TO FOUND ADDRESS           ARITH       4374     A     
 ARITH              SX6    T.CGS             PLACE TYPE CGS IN SYMTAB WORD                 ARITH       4375     A     
 ARITH              LX6    P.TYP                SO REFERENCE WONT APPEAR IN                ARITH       4376     A     
 ARITH              BX7    X6+X2                THE REFERENCE MAP                          ARITH       4377     A     
 ARITH              SA3    STAPL                                                           ARITH       4378     A     
 ARITH              SA7    A2                                                              ARITH       4379     A     
 ARITH              BX6    X3                                                              ARITH       4380     A     
 ARITH              SA6    STAPLC            RESTORE STORE-TO-APLIST CHAIN                 ARITH       4381     A     
 ARITH              SA2    NARN              NEXT AVAILABLE R NUMBER                       ARITH       4382     A     
 ARITH              BX6    X2                                                              ARITH       4383     A     
 ARITH              SX7    X2+1              INCREMENT R NUMBER                            ARITH       4384     A     
 ARITH              SA7    A2                                                              ARITH       4385     A     
 ARITH              MX5    0                                                               ARITH       4386     A     
 ARITH              SA6    PARAMS                                                          ARITH       4387     A     
 ARITH              SA3    DFRMD                                                           ARITH       4388     A     
 ARITH              SA4    EQCOUNT                                                         ARITH       4389     A     
 ARITH              SX4    X4                                                              ARITH       4390     A     
 ARITH              LX4    34                                                              ARITH       4391     A     
 ARITH              BX6    X4+X6             INSERT EQUAL SIGN COUNT                       ARITH       4392     A     
 ARITH              SA6    LEFRN             INDICATE AN UNSAVED FUNCTION RESULT           ARITH       4393     A     
 ARITH              RJ     MACOUT            OUTPUT REG DEFINE RN=X6                       ARITH       4394     A     
 ARITH              SA3    RL2                                                             ARITH       4395     A     
 ARITH              SA5    X3+2                                                            ARITH       4396     A     
 ARITH              BX6    X5                                                              ARITH       4397     A     
 ARITH              SA6    SVRL2       FOR ISSUANCE OF INDEXED FETCH                       ARITH       4398     A     
 ARITH              RJ     CHKOFF                                                          ARITH       4399     A     
 ARITH              SA1    OSPTR             OPSTACK POINTER                               ARITH       4400     A     
 ARITH              SA4    X1+OPSTAK-3       FWA OF SUBSCRIPT CODE                         ARITH       4401     A     
 ARITH              SA5    ARLPT             LWA OF SUBSCRIPT CODE                         ARITH       4402     A     
 ARITH              SX6    X4                                                              ARITH       4403     A     
 ARITH              SA6    A5                START = END                                   ARITH       4404     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2206    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              RJ     DARLIST           FLUSH SUBSCRIPT CODE                          ARITH       4405     A     
 ARITH              SA1    ARLPT                                                           ARITH       4406     A     
 ARITH              SA2    X1+ARLIST                                                       ARITH       4407     A     
 ARITH              SUB                                                                    ARITH       4408     A     
 ARITH              BX3    X2                                                              ARITH       4409     A     
 ARITH              AX2    59                                                              ARITH       4410     A     
 ARITH              BX2    X2-X3                                                           ARITH       4411     A     
 ARITH              BX3    X2                                                              ARITH       4412     A     
 ARITH              AX2    59                                                              ARITH       4413     A     
 ARITH              BX2    X2-X3                                                           ARITH       4414     A     
 ARITH              SB2    X2                                                              ARITH       4415     A     
 ARITH              SX6    A2-B2                                                           ARITH       4416     A     
 ARITH              SA6    LASTR                                                           ARITH       4417     A     
 ARITH              SA1    RL1TS                                                           ARITH       4418     A     
 ARITH              SA2    RL2TS                                                           ARITH       4419     A     
 ARITH              BX6    X1                                                              ARITH       4420     A     
 ARITH              LX7    X2                                                              ARITH       4421     A     
 ARITH              SA6    RL1                                                             ARITH       4422     A     
 ARITH              SA7    RL2                                                             ARITH       4423     A     
 ARITH              SA2   NARN                                                             ARITH       4424     A     
 ARITH              SX2    X2-1              RN OF FUNCTION RESULT                         ARITH       4425     A     
 ARITH              SX5   1                                                                ARITH       4426     A     
 ARITH              MX3   0                  OUTPUT PSUEDO-OP TO ARLST                     ARITH       4427     A     
 ARITH              RJ     MACOUT            WITH FUNCTION RESULT AS OPERAND               ARITH       4428     A     
 ARITH              SA2   RL2                                                              ARITH       4429     A     
 ARITH              SA3   X2+2                                                             ARITH       4430     A     
 ARITH              MX0   1                                                                ARITH       4431     A     
 ARITH              BX7   X0+X3              TURN ON NO-OP BIT                             ARITH       4432     A     
 ARITH              SA7    A3                                                              ARITH       4433     A     
 ARITH              RJ     CHKOFF                                                          ARITH       4434     A     
 ARITH              EQ     ARR                                                             ARITH       4435     A     
 ARITH              TITLE                                                                  ARITH       4436     A     
 ARITH     MULTOP   SPACE  4,8                                                             ARITH       4437     A     
 ARITH     MULTOP   RJ     SSERR6                                                          ARITH       4438     A     
 ARITH              SA1    FF          TOGGLE FLIP FLOP                                    ARITH       4439     A     
 ARITH              BX6    -X1                                                             ARITH       4440     A     
 ARITH              SA6    FF                                                              ARITH       4441     A     
 ARITH              ZR        CMPARE                                                       ARITH       4442     A     
 ARITH    *                                                                                ARITH       4443     A     
 ARITH    *     FROM EJTB                                                                  ARITH       4444     A     
 ARITH    RTPRN     SA5    PARLEVEL        DECREMENT THE PARENTHESIS LEVEL                 ARITH       4445     A     
 ARITH              SX6    X5-1                                                            ARITH       4446     A     
 ARITH              SA6    A5                                                              ARITH       4447     A     
 ARITH              SB2    B4-EL.STAR                                                      ARITH       4448     A     
 ARITH              SB7    EL.ID                                                           ARITH       4449     A     
 ARITH              ZR     B2,CMPARE    IF E+1 IS *                                        ARITH       4450     A     
 ARITH              SB2    EL.DSTR                                                         ARITH       4451     A     
 ARITH              EQ  B2,B4,CMPARE    IF E+1 IS **                                       ARITH       4452     A     
 ARITH              GE  B7,B4,RTPRN1    IF NEXT E IS ID OR CONST                           ARITH       4453     A     
 ARITH              SB7    EL.(                                                            ARITH       4454     A     
 ARITH              EQ  B7,B4,RTPRN2    IF NEXT E IS (                                     ARITH       4455     A     
 ARITH              SA1       EMODE                                                        ARITH       4456     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2207    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SX2    X1-1                                                            ARITH       4457     A     
 ARITH              NZ     X2,CMPARE    IF NOT EXP. MODE.                                  ARITH       4458     A     
 ARITH              SA5       RL2       IS LAST OPD TYPE INT -                             ARITH       4459     A     
 ARITH              SA4       X5                                                           ARITH       4460     A     
 ARITH              SB7    T.INT                                                           ARITH       4461     A     
 ARITH              UX0 B6,X4                                                              ARITH       4462     A     
 ARITH              EQ  B6,B7,CMPARE    IF YES                                             ARITH       4463     A     
 ARITH              SA2    B1-1         GET E+1                                            ARITH       4464     A     
 ARITH              MX0    1            SET GP FLG IN E+1 (B46)                            ARITH       4465     A     
 ARITH              LX0    19                                                              ARITH       4466     A     
 ARITH              BX6    X0+X2                                                           ARITH       4467     A     
 ARITH              SA6    B1-1                                                            ARITH       4468     A     
 ARITH              ZR        CMPARE                                                       ARITH       4469     A     
 ARITH     RTPRN1   SA1       TYPE                                                         ARITH       4470     A     
 ARITH              SX2    X1-16                                                           ARITH       4471     A     
 ARITH              ZR     X2,RTPRN3    IF 2 OR 3 BRAN IF                                  ARITH       4472     A     
 ARITH              SX2    X1-17                                                           ARITH       4473     A     
 ARITH              NZ     X2,RTPRN2    IF NOT IN IF STATE.                                ARITH       4474     A     
 ARITH              SA5    PARLEVEL                                                        FCC1124        4     A     
 ARITH              NZ     X5,RTPRN4   NOT AT FINAL ) FOR IF                               FCC1124        5     A     
 ARITH     RTPRN3   SA1       IFRPF                                                        ARITH       4475     A     
 ARITH              MX6       10                                                           ARITH       4476     A     
 ARITH              NZ     X1,RTPRN2    IF )CONST HAS ALREADY APPEARED FOR THIS IF         ARITH       4477     A     
 ARITH              SA6       IFRPF     SET )CONST FLAG (INITIALIZED IN IF)                ARITH       4478     A     
 ARITH              ZR        CMPARE                                                       ARITH       4479     A     
 ARITH    *                                                                                ARITH       4480     A     
 ARITH     RTPRN2   SA2    IXFNFG                                                          ARITH       4481     A     
 ARITH              SA1    PARLEVEL                                                        FCC1925       10     A     
 ARITH              PL     X1,RTPRN4   IF I/O UNIT OR VAR FORMAT AND 0-LVL PARN            FCC1925       11     A     
 ARITH              MI     X2,CMPARE   IF I/O UNIT OR VAR FORMAT                           ARITH       4482     A     
 ARITH     RTPRN4   BSS    0                                                               ARITH       4483     A     
 ARITH              SA1       EPOINT    MOVE EPOINT SO ID,CON, OR ( WILL BE LISTED         ARITH       4484     A     
 ARITH              SX6    X1-1                                                            ARITH       4485     A     
 ARITH              SA6       EPOINT                                                       ARITH       4486     A     
 ARITH              EERR      ERMSG25   ) FOLLOWED BY ID, CON, OR (                        ARITH       4487     A     
 ARITH    *                                                                                ARITH       4488     A     
 ARITH    *                                                                                ARITH       4489     A     
 ARITH    *     HERE FROM EJTB FOR WANGERS RIGHT PARENS                                    ARITH       4490     A     
 ARITH     RJWRP    SB2    EL.)                                                            ARITH       4491     A     
 ARITH              MX0       0                                                            ARITH       4492     A     
 ARITH              PX6    B2,X0                                                           ARITH       4493     A     
 ARITH              SA6       OP                                                           ARITH       4494     A     
 ARITH              ZR        CMPARE                                                       ARITH       4495     A     
 ARITH    *                                                                                ARITH       4496     A     
 ARITH    *                                                                                ARITH       4497     A     
 ARITH    *                                                                                ARITH       4498     A     
 ARITH    *     HERE IF ( IN E-LIST                                                        ARITH       4499     A     
 ARITH    *         X2=E+1                                                                 ARITH       4500     A     
 ARITH     LTPRN    RJ        SSERR3                                                       ARITH       4501     A     
 ARITH              SB4    EL.)                                                            ARITH       4502     A     
 ARITH              NE  B3,B4,LTPRN1    IF NOT )                                           ARITH       4503     A     
 ARITH              EERR   ERMSG8       EMPTY PAREN.EXP.                                   ARITH       4504     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2208    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    *                                                                                ARITH       4505     A     
 ARITH     LTPRN1   SA1       OSPTR     SAVE ARLPT. (SEE STBASE)                           ARITH       4506     A     
 ARITH              SB2    X1-MXOSE+1                                                      ARITH       4507     A     
 ARITH              PL     B2,ERR03     IF OPSTAK FULL                                     ARITH       4508     A     
 ARITH              SA2       ARLPT                                                        ARITH       4509     A     
 ARITH              SA3       SFRSTB    IN CASE SAVED FUNC RESULTS IN BASE OR PWR          ARITH       4510     A     
 ARITH              LX3       18                                                           ARITH       4511     A     
 ARITH              BX6    X2+X3                                                           ARITH       4512     A     
 ARITH              SA6    X1+OPSTAK+1                                                     ARITH       4513     A     
 ARITH              SX7    X1+1                                                            ARITH       4514     A     
 ARITH              SA7       OSPTR                                                        ARITH       4515     A     
 ARITH              SA1       EMODE     SAVE CURRENT MODE IN B21-19                        ARITH       4516     A     
 ARITH              SB2    EL.(                                                            ARITH       4517     A     
 ARITH              LX1    19                                                              ARITH       4518     A     
 ARITH              PX6    B2,X1                                                           ARITH       4519     A     
 ARITH              SX7    1            SET MODE TO NORM.EXP.MODE                          ARITH       4520     A     
 ARITH              SA6    OP                                                              ARITH       4521     A     
 ARITH              SA7    EMODE                                                           ARITH       4522     A     
 ARITH              SA1    PARLEVEL        INCREMENT THE PARENTHESIS LEVEL                 ARITH       4523     A     
 ARITH              SX6    X1+1                                                            ARITH       4524     A     
 ARITH              SA6    A1                                                              ARITH       4525     A     
 ARITH              ZR        ADDOP                                                        ARITH       4526     A     
 ARITH    *                                                                                ARITH       4527     A     
 ARITH              EJECT               END OF ID PROCESSING                               ARITH       4528     A     
 ARITH    *     EQSIGN IF = IN E-LIST (FROM EJTB)                                          ARITH       4529     A     
 ARITH     EQSIGN   RJ        SSERR3    SYNTAX CHK                                         ARITH       4530     A     
 ARITH              SA5    EQCOUNT         DECREMENT THE COUNT OF EQUAL SIGNS              ARITH       4531     A     
 ARITH              SX6    X5-1                                                            ARITH       4532     A     
 ARITH              SA6    A5                                                              ARITH       4533     A     
 ARITH              SA4    NARN                                                            ARITH       4534     A     
 ARITH              SX6    X4-1        MAKE R-NUMBER IN LAST LOAD AVAIL FOR REUSE          ARITH       4535     A     
 ARITH              SA6    A4                                                              ARITH       4536     A     
 ARITH              SA1       TYPE                                                         ARITH       4537     A     
 ARITH              SA2    EQFLG                                                           ARITH       4538     A     
 ARITH              SB2    X1-RPLST                                                        ARITH       4539     A     
 ARITH              NZ     X2,EQS1      IF AN =SIGN HAS ALREADY APPEARED.                  ARITH       4540     A     
 ARITH              NZ     B2,EQS2      IF NOT A REPLACEMENT STATEMENT                     ARITH       4541     A     
 ARITH              MX6    10           SET EQFLG                                          ARITH       4542     A     
 ARITH              SA6    EQFLG                                                           ARITH       4543     A     
 ARITH              ZR        ADDOP                                                        ARITH       4544     A     
 ARITH    EQS1      USASDM ERMSG0          MORE THAN ONE = SIGN (NON-USAS)                 ARITH       4545     A     
 ARITH              SA1       OSPTR     SEE IF EXPRESSION IN BETWEEN = SIGNS.              ARITH       4546     A     
 ARITH              SB3    EL.=                                                            ARITH       4547     A     
 ARITH              SA2    X1+OPSTAK                                                       ARITH       4548     A     
 ARITH              UX0    B2,X2                                                           ARITH       4549     A     
 ARITH              NE  B2,B3,EQS2      IF LAST OP IN OPSTAK NOT = SIGN                    ARITH       4550     A     
 ARITH              SA1       RL2       LAST OPD MUST BE A LOAD                            ARITH       4551     A     
 ARITH              SA2    X1+2                                                            ARITH       4552     A     
 ARITH              SA3    IXFN.TAB                                                        ARITH       4553     A     
 ARITH              UX0    B2,X2                                                           ARITH       4554     A     
 ARITH     EQS1A    SB3    X3+B2                                                           ARITH       4555     A     
 ARITH              SA3    A3+1                                                            ARITH       4556     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2209    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              ZR     B3,ADDOP          IF A LOAD MACRO                               ARITH       4557     A     
 ARITH              NZ     X3,EQS1A          IF MORE TO CHECK                              ARITH       4558     A     
 ARITH                                                                                     ARITH       4559     A     
 ARITH     EQS2     EERR   ERMSG1            ILLEGAL USE OF = SIGN                         ARITH       4560     A     
 ARITH    ERROUT    SA1    TYPE            IF THIS WAS A REPLACEMENT STATEMENT             ARITH       4561     A     
 ARITH              MX7    0                                                               FCC0611        6     A     
 ARITH              SA7    IXFNCL                                                          FCC0611        7     A     
 ARITH              SX2    X1-RPLST          THEN CALL 'DODEF' IN CASE A CURRENT           ARITH       4562     A     
 ARITH              NZ     X2,ERROUT.1       DO-LOOP PARAMETER WAS ALSO REDEFINED.         ARITH       4563     A     
 ARITH              SA1    SAVELEFT                                                        ARITH       4564     A     
 ARITH              SB1    X1                                                              ARITH       4565     A     
 ARITH              SX6    B6              SAVE THE ERROR NUMBER.                          ARITH       4566     A     
 ARITH              SA6    A1                                                              ARITH       4567     A     
 ARITH              RJ     DODEF                                                           ARITH       4568     A     
 ARITH              SA1    SAVELEFT                                                        ARITH       4569     A     
 ARITH              SB6    X1              RESTORE THE ERROR NUMBER.                       ARITH       4570     A     
 ARITH     ERROUT.1 SB7    PH2RETN                                                         ARITH       4571     A     
 ARITH              SA1    EPOINT                                                          ARITH       4572     A     
 ARITH              SA4    X1+1         LOAD LAST E PROCESSED                              ARITH       4573     A     
 ARITH              SA2    IXFNFG                                                          ARITH       4574     A     
 ARITH              ZR     X2,ERPRO          IF NOT IN IXFN MODE                           ARITH       4575     A     
 ARITH              SB7    =XDOGOOF          IN CASE WE ARE IN THE MIDDLE OF               ARITH       4576     A     
 ARITH              EQ     ERPRO             AN I/O LOOP                                   ARITH       4577     A     
 ARITH    *                                                                                ARITH       4578     A     
 ARITH    *     FROM EJTB. IF -                                                            ARITH       4579     A     
 ARITH     MINUS    RJ        SSERR6                                                       ARITH       4580     A     
 ARITH              SA1    B1+1                                                            ARITH       4581     A     
 ARITH              UX0 B2,X1                                                              ARITH       4582     A     
 ARITH              SB3    EL.)                                                            ARITH       4583     A     
 ARITH              LE  B2,B3,RSFF      IF E-1 IS A ), ID, OR CON.                         ARITH       4584     A     
 ARITH              SA1    UMIOP        HERE IF U-                                         ARITH       4585     A     
 ARITH              BX6    X1                                                              ARITH       4586     A     
 ARITH              SA6    OP                                                              ARITH       4587     A     
 ARITH              ZR        RSFF                                                         ARITH       4588     A     
 ARITH                                                                                     ARITH       4589     A     
 ARITH    *         DIVIDE OPERATOR                                                        ARITH       4590     A     
 ARITH                                                                                     ARITH       4591     A     
 ARITH     DIVIOP   SA3    RL2                                                             ARITH       4592     A     
 ARITH              SA4    X3                                                              ARITH       4593     A     
 ARITH              UX0 B3,X4                                                              ARITH       4594     A     
 ARITH              SB5    T.INT                                                           ARITH       4595     A     
 ARITH              SB6    T.OCT                                                           ARITH       4596     A     
 ARITH              EQ  B3,B5,DIVIDE1   IF INT /                                           ARITH       4597     A     
 ARITH              LT  B3,B6,DIVD      IF NOT A POSSIBLE INT /                            ARITH       4598     A     
 ARITH     DIVIDE1  SA3       INTEDVD                                                      ARITH       4599     A     
 ARITH              BX6    X3                                                              ARITH       4600     A     
 ARITH              SA6       OP                                                           ARITH       4601     A     
 ARITH     DIVD     RJ        SSERR6                                                       ARITH       4602     A     
 ARITH              SA2       FF        SO IF A=B/C*D*E WILL GET (B/C)*(D*E)               ARITH       4603     A     
 ARITH              BX6   -X2                                                              ARITH       4604     A     
 ARITH              SA6    A2                                                              ARITH       4605     A     
 ARITH     DIVX     SA1    RL2                                                             ARITH       4606     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2210    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA2    X1                                                              ARITH       4607     A     
 ARITH              SB2    T.INT                                                           ARITH       4608     A     
 ARITH              UX0 B3,X2                                                              ARITH       4609     A     
 ARITH              SX4    B3                                                              ARITH       4610     A     
 ARITH              EQ  B2,B3,CMPARE    IF TYPE OF LAST OPD WAS INT                        ARITH       4611     A     
 ARITH              SB2    T.OCT                                                           FCC1731X       5     A     
 ARITH              EQ     B2,B3,CMPARE      IF TYPE OF LAST OPND WAS OCTAL                FCC1731X       6     A     
 ARITH              SA2    OSPTR                                                           ARITH       4612     A     
 ARITH              SA1    OP                                                              ARITH       4613     A     
 ARITH              SA3    X2+OPSTAK                                                       ARITH       4614     A     
 ARITH              AX1    3           ASSURES THAT THE HIERARCHY IS NOT THAT OF I         ARITH       4615     A     
 ARITH              UX0    B3,X3                                                           ARITH       4616     A     
 ARITH              LX1    60-1                                                            ARITH       4617     A     
 ARITH              MX2    57                                                              ARITH       4618     A     
 ARITH              PL     X1,DIVX1    IF HIERARCHY IS OF INT/                             ARITH       4619     A     
 ARITH              LX1    60-15                                                           ARITH       4620     A     
 ARITH              PL     X1,DIVD1     IF GP FLG NOT ON IN OP                             ARITH       4621     A     
 ARITH              LX1    60-4                                                            ARITH       4622     A     
 ARITH                                                                                     ARITH       4623     A     
 ARITH     DIVX2    BX1    X2*X1                                                           ARITH       4624     A     
 ARITH              BX6    X4+X1       ADD TYPE OF LAST OPD                                ARITH       4625     A     
 ARITH              LX6    23                                                              ARITH       4626     A     
 ARITH              SA6    A1          RESTORE INTO OP                                     ARITH       4627     A     
 ARITH              SB2    B3-EL.STAR                                                      ARITH       4628     A     
 ARITH              ZR     B2,TM3B                                                         ARITH       4629     A     
 ARITH     DIVD1    SB2    B3-EL.SLASH                                                     ARITH       4630     A     
 ARITH              SB4    MLTSOP                                                          ARITH       4631     A     
 ARITH              ZR     B2,DIVD2                                                        ARITH       4632     A     
 ARITH              NE     B3,B4,CMPARE                                                    ARITH       4633     A     
 ARITH     DIVD2    SA1    MLTDOP                                                          ARITH       4634     A     
 ARITH              BX6    X1                                                              ARITH       4635     A     
 ARITH              SA6    OP                                                              ARITH       4636     A     
 ARITH              ZR        CMPARE                                                       ARITH       4637     A     
 ARITH                                                                                     ARITH       4638     A     
 ARITH     DIVX1    MX0    1                                                               ARITH       4639     A     
 ARITH              BX3    X1+X0       HIERARCHY CHANGED TO 10B                            ARITH       4640     A     
 ARITH              LX3    60-15                                                           ARITH       4641     A     
 ARITH              BX1    X3+X0       GP BIT TURNED ON                                    ARITH       4642     A     
 ARITH              LX1    60-4                                                            ARITH       4643     A     
 ARITH              EQ     DIVX2                                                           ARITH       4644     A     
 ARITH    *                                                                                ARITH       4645     A     
 ARITH    *     PLUS IF + SIGN IN E-LIST                                                   ARITH       4646     A     
 ARITH     PLUS     RJ        SSERR6                                                       ARITH       4647     A     
 ARITH              SA1    B1+1                                                            ARITH       4648     A     
 ARITH              UX0 B3,X1                                                              ARITH       4649     A     
 ARITH              SB2    EL.)                                                            ARITH       4650     A     
 ARITH              GT  B3,B2,NEXTE     IF NOT PRECEDED BY CON, ID, OR ) (U+)              ARITH       4651     A     
 ARITH    *     RSFF IF + OR -                                                             ARITH       4652     A     
 ARITH     RSFF     MX6    10           RESET FF TO <0                                     ARITH       4653     A     
 ARITH              SA6    FF                                                              ARITH       4654     A     
 ARITH     CMPARE   SA1    OSPTR        OPSTACK PTR                                        ARITH       4655     A     
 ARITH              SB2    X1                                                              ARITH       4656     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2211    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA2    OPSTAK+B2    LAST ENTRY                                         ARITH       4657     A     
 ARITH              SA3    OP           GET OP                                             ARITH       4658     A     
 ARITH              SB6    X2           COMPARE HEIRARCHIES                                ARITH       4659     A     
 ARITH              UX0 B3,X2                                                              ARITH       4660     A     
 ARITH              SB7    X3                                                              ARITH       4661     A     
 ARITH              UX0 B4,X3                                                              ARITH       4662     A     
 ARITH              GT  B7,B6,ADDOP1    IF H(OP)>H(OM)                                     ARITH       4663     A     
 ARITH              EQ  B7,B6,TM3       IF H(OP)=H(OM)                                     ARITH       4664     A     
 ARITH              SA5       RL2       IS LAST OPD TYPE INT -                             ARITH       4665     A     
 ARITH              SA4       X5                                                           ARITH       4666     A     
 ARITH              SB7    T.INT                                                           ARITH       4667     A     
 ARITH              UX0 B6,X4                                                              ARITH       4668     A     
 ARITH              EQ B6,B7,POPOP      IF YES                                             ARITH       4669     A     
 ARITH              MX0    1            SET GP FLG IN OP                                   ARITH       4670     A     
 ARITH              SX1    B6                TYPE                                          ARITH       4671     A     
 ARITH              LX0    19           IN B18                                             ARITH       4672     A     
 ARITH              BX6    X0+X3                                                           ARITH       4673     A     
 ARITH              LX1    23                                                              ARITH       4674     A     
 ARITH              BX6    X6+X1             ADD TYPE                                      ARITH       4675     A     
 ARITH              SA6    OP                                                              ARITH       4676     A     
 ARITH    *     POPOP IF AN OPERATOR IS TO BE POPPED OUT OF OPSTAK                         ARITH       4677     A     
 ARITH     POPOP    LX2       59-22                                                        ARITH       4678     A     
 ARITH              PL     X2,POP1      IF CGP BIT OFF IN OM                               ARITH       4679     A     
 ARITH              MX6       10                                                           ARITH       4680          I
          -FCC0418
 ARITH              SA6       FNDPF     SET FLAG FOR GPTU CALL TO FNDOP                    ARITH       4681          I
          -FCC0418
 ARITH              RJ        FNDOP     CLEAR GPTU BIT IN LAST GPTU LINE                   ARITH       4682          I
          -FCC0418
 ARITH              RJ     CLGP        CLEAR GPTU BIT IN LAST GPTU ENTRY                   FCC0418       17     A     
 ARITH                                                                                     ARITH       4683     A     
 ARITH     POP1     SA5    OSPTR                                                           ARITH       4684     A     
 ARITH              SA4    X5+OPSTAK                                                       ARITH       4685     A     
 ARITH              SA1    RL1                                                             ARITH       4686     A     
 ARITH              UX0    B3,X4                                                           ARITH       4687     A     
 ARITH              SA2    RL2                                                             ARITH       4688     A     
 ARITH              SX6    X5-1              DECREMENT OPSTACK PTR                         ARITH       4689     A     
 ARITH              BX7    X4                                                              ARITH       4690     A     
 ARITH              SA3    X1                (RL1)                                         ARITH       4691     A     
 ARITH              SA7    CRNTOP            CURRENT OPERATOR                              ARITH       4692     A     
 ARITH              SA4    X2                (RL2)                                         ARITH       4693     A     
 ARITH              SA6    A5                                                              ARITH       4694     A     
 ARITH              JP     B3+OPSWTB-4  LOWEST OP=4                                        ARITH       4695     A     
 ARITH     OPSWTB   ZR        EOSPO     EOS PSEUDO-OP                                      ARITH       4696          I
          -FCC1590X 
 ARITH                                                                                     FCC1590X      11     A     
 ARITH     OPSWTB   BSS    0                                                               FCC1590X      12     A     
 ARITH              LOC    4                                                               FCC1590X      13     A     
 ARITH              EQ        EOSPO     END-OF-STMT PSEUDO OP                              FCC1590X      14     A     
 ARITH              ZR        EQPO      =                                                  ARITH       4697     A     
 ARITH              ZR        LPAR      (                                                  ARITH       4698     A     
 ARITH              SX6       MAC+0     .OR.                                               ARITH       4699     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2212    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              ZR        AOOP      .AND.  .OR. OP PROCESSOR                           ARITH       4700     A     
 ARITH              SX6       MAC+1     .AND.                                              ARITH       4701     A     
 ARITH              ZR        AOOP                                                         ARITH       4702     A     
 ARITH              SX6       MAC+2     .NOT.                                              ARITH       4703     A     
 ARITH              ZR        NOTOPR                                                       ARITH       4704     A     
 ARITH              SX6    MAC+3        LE    MAC+3 IF REAL                                ARITH       4705     A     
 ARITH    *                                      +4 IF INT                                 ARITH       4706     A     
 ARITH    *                                      +5 IF DBL                                 ARITH       4707     A     
 ARITH    *                                      +6 IF CMPX (ONLY REALS USED)              ARITH       4708     A     
 ARITH              ZR        ROP                                                          ARITH       4709     A     
 ARITH              SX6       MAC+7     LT                                                 ARITH       4710     A     
 ARITH              ZR        ROP                                                          ARITH       4711     A     
 ARITH              SX6       MAC+11    GE                                                 ARITH       4712     A     
 ARITH              ZR        ROP                                                          ARITH       4713     A     
 ARITH              SX6       MAC+15    GT                                                 ARITH       4714     A     
 ARITH              ZR        ROP                                                          ARITH       4715     A     
 ARITH              SX6       MAC+19    NE                                                 ARITH       4716     A     
 ARITH              ZR        ROP                                                          ARITH       4717     A     
 ARITH              SX6       MAC+23    EQ                                                 ARITH       4718     A     
 ARITH              ZR        ROP                                                          ARITH       4719     A     
 ARITH    *     ANY CHANGE TO -,+,*,/ OP NO,S WILL REQUIRE CHANGE TO BOPSTB                ARITH       4720     A     
 ARITH              SX6       MAC+27    -                                                  ARITH       4721     A     
 ARITH              ZR        MOP                                                          ARITH       4722     A     
 ARITH              SX6       MAC+31    +                                                  ARITH       4723     A     
 ARITH              ZR        MOP                                                          ARITH       4724     A     
 ARITH              SX6       MAC+35    *                                                  ARITH       4725     A     
 ARITH              ZR     MOPA                                                            ARITH       4726     A     
 ARITH              SX6       MAC+39    /     MAC+39 IF REAL                               ARITH       4727     A     
 ARITH    *                                       40    INT                                ARITH       4728     A     
 ARITH    *                                       41    DBL                                ARITH       4729     A     
 ARITH    *                                       42    CMPX                               ARITH       4730     A     
 ARITH              ZR     MOPB                                                            ARITH       4731     A     
 ARITH              ZR        EXPOP     **                                                 ARITH       4732     A     
 ARITH              ZR        ARGPO     (A  LEFT PAREN PRECEDING ARG LIST                  ARITH       4733     A     
 ARITH              ZR        SUBPO     (S  LEFT PAREN PRECEDING NSSP                      ARITH       4734     A     
 ARITH              ZR        CS1PO     ,S1  COMMA AFTER SUBSCRIPT ONE                     ARITH       4735     A     
 ARITH              ZR        CS2PO     ,S2  COMMA AFTER SUBSCRIPT TWO                     ARITH       4736     A     
 ARITH              ZR        CARGPO    ,A  COMMA FOLLOWING ARGUMENT                       ARITH       4737     A     
 ARITH    *     ANY CHANGE TO U- WILL REQUIRE CHANGE IN UINGEN.                            ARITH       4738     A     
 ARITH              SX6       MAC+43    U-                                                 ARITH       4739     A     
 ARITH              ZR        MOP15                                                        ARITH       4740     A     
 ARITH              SX6       MAC+45    R-    INT CASE ONLY WHEN U- FOLLOWED BY +          ARITH       4741     A     
 ARITH              ZR        MOP                                                          ARITH       4742     A     
 ARITH              SX6       MAC+49    R/    NO INT CASE                                  ARITH       4743     A     
 ARITH              ZR        MOP                                                          ARITH       4744     A     
 ARITH              SX6       MAC+35    */    NO INT CASE                                  ARITH       4745     A     
 ARITH              ZR        MOP                                                          ARITH       4746     A     
 ARITH              ZR        SFLPR     (SF  STATE FUN.LP ROUTINE                          ARITH       4747     A     
 ARITH              ZR        IXFN2     (X   IXFN LP ROUTINE                               ARITH       4748     A     
 ARITH              ZR        ACAL7     (SUBR.LP                                           ARITH       4749     A     
 ARITH    *     END OF OPSWTB                                                              ARITH       4750     A     
 ARITH              LOC    *O                                                              FCC1590X      15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2213    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    *     ADDOP TO PUT OP IN OPSTAK                                                  ARITH       4751     A     
 ARITH     ADDOP    SA1    OSPTR        OSPTR=NO.OF OPS IN STAK-1 (LAST=EOS OP)            ARITH       4752     A     
 ARITH              SB2    X1                                                              ARITH       4753     A     
 ARITH              SA3    OP                                                              ARITH       4754     A     
 ARITH     ADDOP1   ZR     B2,ADDOP2    IF NO OPS IN STACK                                 ARITH       4755     A     
 ARITH              SB3    B2-MXOSE+1   TEST SIZE OF STAK                                  ARITH       4756     A     
 ARITH              NG     B3,ADDOP3    IF OPSTAK NOT FULL                                 ARITH       4757     A     
 ARITH     ERR03    EERR      ERMSG9                                                       ARITH       4758     A     
 ARITH    *                                                                                ARITH       4759     A     
 ARITH     ADDOP3   BX6    X3                                                              ARITH       4760     A     
 ARITH              UX0 B3,X3           SEE IF ** OP                                       ARITH       4761     A     
 ARITH              SB4    EL.DSTR                                                         ARITH       4762     A     
 ARITH              EQ  B3,B4,ADDOP4    IF **                                              ARITH       4763     A     
 ARITH     ADDOP6   SA6    B2+OPSTAK+1  STORE OP IN OPSTAK                                 ARITH       4764     A     
 ARITH              SX7    B2+1         UP OSPTR                                           ARITH       4765     A     
 ARITH              SA7    OSPTR                                                           ARITH       4766     A     
 ARITH              ZR        NEXTE                                                        ARITH       4767     A     
 ARITH     ADDOP2   UX0 B3,X3           SEE IF OP IS )                                     ARITH       4768     A     
 ARITH              SX1    B3-EL.)                                                         ARITH       4769     A     
 ARITH              NZ     X1,ADDOP3    IF NOT )                                           ARITH       4770     A     
 ARITH              EERR   ERMSG4                                                          ARITH       4771     A     
 ARITH    *         (DONT DESTROY X6 OR B2                                                 ARITH       4772     A     
 ARITH     ADDOP4   SA1       STBASE                                                       ARITH       4773     A     
 ARITH              PL     X1,ADDOP5    IF X1=POINT TO START OF BASE                       ARITH       4774     A     
 ARITH              SA1       RL2       COMPUTE POINT TO START OF BASE                     ARITH       4775     A     
 ARITH              SX2    ARLIST                                                          ARITH       4776     A     
 ARITH              SUB                                                                    ARITH       4777     A     
 ARITH              IX1    X1-X2                                                           ARITH       4778     A     
 ARITH     ADDOP5   BX7    X1                                                              ARITH       4779     A     
 ARITH              SA2       NSFR                                                         ARITH       4780     A     
 ARITH              PL     X2,ADDOP5A                                                      ARITH       4781     A     
 ARITH              SA2       SFRSTB                                                       ARITH       4782     A     
 ARITH     ADDOP5A  LX2       18                                                           ARITH       4783     A     
 ARITH              BX7    X2+X7                                                           ARITH       4784     A     
 ARITH              SA7    B2+OPSTAK+1  STORE STBASE                                       ARITH       4785     A     
 ARITH              SB2    B2+1                                                            ARITH       4786     A     
 ARITH              SB3    B2-MXOSE+1                                                      ARITH       4787     A     
 ARITH              MX7    10                                                              ARITH       4788     A     
 ARITH              SA7    NSFR                                                            ARITH       4789     A     
 ARITH              SA7    STBASE                                                          ARITH       4790     A     
 ARITH              NG     B3,ADDOP6    IF OPSTAK NOT FULL                                 ARITH       4791     A     
 ARITH              ZR        ERR03                                                        ARITH       4792     A     
 ARITH     AOOP     SPACE  4,8                                                             ARITH       4793     A     
 ARITH    *         AOOP - AND , OR OP POPPED FROM STACK                                   ARITH       4794     A     
 ARITH                                                                                     ARITH       4795     A     
 ARITH     AOOP     UX0    B2,X3                                                           ARITH       4796     A     
 ARITH              SA6    SMACD             SAVE MACRO NUMBER                             ARITH       4797     A     
 ARITH              UX7    B3,X4                                                           ARITH       4798     A     
 ARITH              SB4    T.LOG                                                           ARITH       4799     A     
 ARITH              SX5    B2+B3                                                           ARITH       4800     A     
 ARITH              ZR     X5,AOOP3          IF BOTH OPERANDS ARE TYPE LOGICAL             ARITH       4801     A     
 ARITH              ZR     B2,AOOP1          IF RL1 IS LOGICAL                             ARITH       4802     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2214    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              NZ     B3,AOOP2          IF RL2 IS NOT TYPE LOGICAL                    ARITH       4803     A     
 ARITH     AOOP1    EERR   ERMSG31           LOG AND NON LOG OPNDS MAY NOT BE MIXE         ARITH       4804     A     
 ARITH                                                                                     ARITH       4805     A     
 ARITH     AOOP2    RJ     SNGLR             CHANGE RL1 TO SINGLE LOAD                     ARITH       4806     A     
 ARITH              SA1    RL2                                                             ARITH       4807     A     
 ARITH              RJ     SNGLR             CHANGE RL2 TO SINGLE LOAD                     ARITH       4808     A     
 ARITH              USASDM ERMSG41           MASKING EXPR                                  ARITH       4809     A     
 ARITH              SB4    T.OCT                                                           ARITH       4810     A     
 ARITH                                                                                     ARITH       4811     A     
 ARITH     AOOP3    SX5    B4                                                              ARITH       4812     A     
 ARITH              RJ     INGEN             OUTPUT MACRO                                  ARITH       4813     A     
 ARITH              EQ     CMPARE                                                          ARITH       4814     A     
 ARITH     NOTOPR   SPACE  4,8                                                             ARITH       4815     A     
 ARITH    *         NOTOPR - .NOT. OP POPPED                                               ARITH       4816     A     
 ARITH                                                                                     ARITH       4817     A     
 ARITH     NOTOPR   UX0    B2,X4             MODE OF RL2                                   ARITH       4818     A     
 ARITH              BX1    X2                X1 = RL2                                      ARITH       4819     A     
 ARITH              SB3    T.LOG                                                           ARITH       4820     A     
 ARITH              EQ     B2,B3,NOTOPR1     IF TYPE LOGICAL                               ARITH       4821     A     
 ARITH              RJ     SNGLR             CHANGE TO SINGLE LOAD                         ARITH       4822     A     
 ARITH              USASDM ERMSG41           *MASKING EXPR IS NON-ANSI*                    ARITH       4823     A     
 ARITH              SA1    RL2                                                             ARITH       4824     A     
 ARITH              SB2    T.OCT                                                           ARITH       4825     A     
 ARITH              SA2    X1                                                              ARITH       4826     A     
 ARITH              SX6    NOTMC                                                           ARITH       4827     A     
 ARITH              PX7    B2,X2             CHANGE TYPE TO OCT                            ARITH       4828     A     
 ARITH              SA7    A2                                                              ARITH       4829     A     
 ARITH     NOTOPR1  RJ     UINGEN            OUTPUT MACRO                                  ARITH       4830     A     
 ARITH              MX6    0                                                               ARITH       4831     A     
 ARITH              EQ     CMPARE                                                          ARITH       4832     A     
 ARITH     MOPA     SPACE  4,8                                                             ARITH       4833     A     
 ARITH    *         * OPERATOR, SPECIAL CASE 2*X TO X+X                                    ARITH       4834     A     
 ARITH                                                                                     ARITH       4835     A     
 ARITH     MOPA     UX0    B3,X3       RL1                                                 ARITH       4836          I
          -FCC0539
 ARITH     MOPA     BX7    X3+X4                                                           FCC0539      153     A     
 ARITH              LX7    59-47                                                           FCC0539      154     A     
 ARITH              PL     X7,MOPA0    IF NEITHER OPERAND IS A CONST                       FCC0539      155     A     
 ARITH              RJ     CLC         CHECK FOR LARGE CONSTANTS                           FCC0539      156     A     
 ARITH     MOPA0    UX0    B3,X3                                                           FCC0539      157     A     
 ARITH              SB6    T.DBL                                                           ARITH       4837     A     
 ARITH              LX3    59-47                                                           ARITH       4838     A     
 ARITH              UX0    B4,X4       RL2                                                 ARITH       4839     A     
 ARITH              SB7    T.CPLX                                                          ARITH       4840     A     
 ARITH              LX4    59-47                                                           ARITH       4841     A     
 ARITH              ZR     B3,MOP1     IF RL1 TYPE LOGICAL, ERROR                          FCC0708        4     A     
 ARITH              ZR     B4,MOP1     IF RL2 TYPE LOGICAL, ERROR                          FCC0708        5     A     
 ARITH              PL     X3,MOPA1    IF RL1 NOT A CONST                                  ARITH       4842     A     
 ARITH              LT     B3,B6,MOPA2 IF RL1 IS INT OR REAL                               ARITH       4843     A     
 ARITH                                                                                     ARITH       4844     A     
 ARITH     MOPA1    PL     X4,MOP      IF RL2 NOT A CONST                                  ARITH       4845     A     
 ARITH              GE     B4,B6,MOP   IF RL2 IS NOT INT OR REAL                           ARITH       4846     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2215    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              GT     B3,B7,MOP   IF RL1 IS OCT OR HOLL                               ARITH       4847     A     
 ARITH              SA1    RL1                                                             FCC0539      158     A     
 ARITH              SA2    RL2                                                             FCC0539      159     A     
 ARITH              BX6    X1          SWITCH (RL1) AND (RL2) IF RL2 IS CONST              ARITH       4848     A     
 ARITH              LX7    X2          RL2                                                 ARITH       4849     A     
 ARITH              SA6    RL2                                                             ARITH       4850     A     
 ARITH              SA7    RL1                                                             ARITH       4851     A     
 ARITH              SA3    A4                                                              ARITH       4852     A     
 ARITH              UX0    B3,X3                                                           ARITH       4853     A     
 ARITH              EQ     MOPA3                                                           ARITH       4854     A     
 ARITH                                                                                     ARITH       4855     A     
 ARITH     MOPA2    GT     B4,B7,MOP   IF RL2 OCT OR HOLL                                  ARITH       4856     A     
 ARITH              PL     X4,MOPA3    IF RL1 CONST AND RL2 NOT                            ARITH       4857     A     
 ARITH              EQ     B4,B6,MOPA3 IF NOT POSSIBLE COMPILE-TIME EVAL.                  ARITH       4858     A     
 ARITH              NE     B4,B7,MOP   IF POSSIBLE COMPILE-TIME EVAL.                      ARITH       4859     A     
 ARITH                                                                                     ARITH       4860     A     
 ARITH    *         RL1 CAN BE INT OR REAL, RL2 CAN BE INT,REAL,DBL,OR CMPLX               FCC0708        6     A     
 ARITH     MOPA3    SA1    A3          RL1                                                 ARITH       4861     A     
 ARITH              RJ     NEWCON      GET VALUE OF CONST                                  ARITH       4862     A     
 ARITH              SA2    RL2                                                             ARITH       4863     A     
 ARITH              SB2    T.REAL                                                          ARITH       4864     A     
 ARITH              SA4    X2                                                              ARITH       4865          I
          -FCC0708
 ARITH              SX0    X6-2                                                            ARITH       4866          I
          -FCC0708
 ARITH              UX5    B4,X4                                                           ARITH       4867          I
          -FCC0708
 ARITH              LT     B4,B2,MOPA4 IF INT VAR, CAN ONLY HAVE INT CONST                 ARITH       4868          I
          -FCC0708
 ARITH              NE     B3,B2,MOPA4 IF NOT TYPE REAL CONST                              ARITH       4869          I
          -FCC0708
 ARITH              SX7    2                                                               FCC0708        7     A     
 ARITH              SA4    X2                                                              FCC0708        8     A     
 ARITH              IX0    X7-X6                                                           FCC0708        9     A     
 ARITH              UX5    B4,X4                                                           FCC0708       10     A     
 ARITH              NE     B3,B2,MOPA4 IF TYPE INTEGER CONSTANT                            FCC0708       11     A     
 ARITH              LT     B4,B2,MOPA5 NO REDUCTION IF INT VAR AND REAL CONST              FCC0708       12     A     
 ARITH              SX0    2./1S45                                                         ARITH       4870     A     
 ARITH              LX6    15                                                              ARITH       4871     A     
 ARITH              IX0    X0-X6       TEST IF FLOATING POINT 2                            ARITH       4872     A     
 ARITH                                                                                     ARITH       4873     A     
 ARITH     MOPA4    NZ     X0,MOPA5    IF NOT CONST 2                                      ARITH       4874     A     
 ARITH              SA5    =XROPFLAG                                                       ARITH       4875          I
          -FCC1545X 
 ARITH              LX5    1R*                                                             ARITH       4876          I
          -FCC1545X 
 ARITH              MI     X5,MOPA5    IF ROUNDED *                                        ARITH       4877          I
          -FCC1545X 
 ARITH                                                                                     ARITH       4878     A     
 ARITH    *         CHANGE 2*X TO X+X                                                      ARITH       4879     A     
 ARITH                                                                                     ARITH       4880     A     
 ARITH              BX7    X2          RL1 CHANGED TO SAME AS RL2                          ARITH       4881     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2216    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA1    RL1                                                             ARITH       4882     A     
 ARITH              SA3    X1                                                              ARITH       4883     A     
 ARITH              UX0    B3,X3                                                           ARITH       4884     A     
 ARITH              SA7    A1                                                              ARITH       4885     A     
 ARITH              EQ     B3,B2,MOPA4B IF CONST IS TYPE REAL, ANSI COMBINATION            ARITH       4886     A     
 ARITH              SB6    B3-B4                                                           ARITH       4887     A     
 ARITH              NZ     B6,MOPA4A   IF NON-ANSI COMBINATION                             ARITH       4888     A     
 ARITH              LT     B3,B2,MOPA4B IF INT * INT                                       ARITH       4889     A     
 ARITH     MOPA4A   USASDM ERMSG42     ISSUE NON-ANSI COMBINATION MSG                      ARITH       4890     A     
 ARITH     MOPA4B   SX6    MAC+31      MACRO CODE CHANGED TO +                             ARITH       4891     A     
 ARITH              EQ     MOP                                                             ARITH       4892     A     
 ARITH                                                                                     ARITH       4893     A     
 ARITH     MOPA5    SX6    MAC+35      RESTORE * MACRO CODE                                ARITH       4894     A     
 ARITH              BX7    X1          RESTORE ARLIST HDR WORD NOOPED BY NEWCON            ARITH       4895     A     
 ARITH              SA7    A1                                                              ARITH       4896     A     
 ARITH              EQ     MOP                                                             ARITH       4897     A     
 ARITH                                                                                     ARITH       4898     A     
 ARITH    *         / OPERATOR, SPECIAL CASE C/R                                           ARITH       4899     A     
 ARITH    *         CONSTANT DIVISORS MAY BE INVERTED AND OPERATION CHANGED TO *.          FCC0570        9     A     
 ARITH                                                                                     ARITH       4900     A     
 ARITH     MOPB     SA2    =XROPFLAG                                                       ARITH       4901          I
          -FCC0539
 ARITH     MOPB     BX7    X3+X4                                                           FCC0539      160     A     
 ARITH              LX7    59-47                                                           FCC0539      161     A     
 ARITH              PL     X7,MOPB1    IF NEITHER OPERAND IS A CONST                       FCC0539      162     A     
 ARITH              RJ     CLC         CHECK FOR LARGE CONSTANTS                           FCC0539      163     A     
 ARITH     MOPB1    SA2    =XROPFLAG                                                       FCC0539      164     A     
 ARITH              UX0    B3,X3                                                           ARITH       4902          I
          -FCC0570
 ARITH              LX2    1R/                                                             ARITH       4903          I
          -FCC0570
 ARITH              MI     X2,MOP      IF ROUNDED /                                        ARITH       4904          I
          -FCC0570
 ARITH              SX2    B3-T.CPLX                                                       ARITH       4905          I
          -FCC0570
 ARITH              UX5    B4,X4                                                           ARITH       4906          I
          -FCC0570
 ARITH              NZ     X2,MOP      IF DIVIDEND NOT COMPLEX                             ARITH       4907          I
          -FCC0570
 ARITH              SX7    B3                                                              ARITH       4908          I
          -FCC0570
 ARITH              SX5    B4-T.REAL                                                       ARITH       4909          I
          -FCC0570
 ARITH              NZ     X5,MOP      IF DIVISOR NOT REAL                                 ARITH       4910          I
          -FCC0570
 ARITH              UX0    B4,X4       DIVISOR                                             FCC0570       10     A     
 ARITH              LX4    59-47                                                           FCC0570       11     A     
 ARITH              SB2    B4-T.REAL                                                       FCC0570       12     A     
 ARITH              UX0    B3,X3       DIVIDEND                                            FCC0570       13     A     
 ARITH              LX2    1R/                                                             FCC0570       14     A     
 ARITH              NZ     B2,MOP      IF DIVISOR NOT REAL                                 FCC0570       15     A     
 ARITH              MI     X4,MOPB2    IF DIVISOR IS CONST                                 FCC0570       16     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2217    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SB6    B3-T.CPLX                                                       FCC0570       17     A     
 ARITH              MI     X2,MOP      IF ROUNDED /                                        FCC0570       18     A     
 ARITH              NZ     B6,MOP      IF DIVIDEND NOT COMPLEX                             FCC0570       19     A     
 ARITH              SX7    B3                                                              FCC0570       20     A     
 ARITH              SX6    DIVCR       C/R MACRO CODE                                      ARITH       4911     A     
 ARITH              SA7    TYPEWD      RESULT IS TYPE COMPLEX                              ARITH       4912     A     
 ARITH              SA6    SMACD                                                           ARITH       4913     A     
 ARITH              EQ     MOP18       OUTPUT MACRO                                        ARITH       4914     A     
 ARITH                                                                                     FCC0570       21     A     
 ARITH     MOPB2    BSS    0                                                               FCC0570       22     A     
 ARITH                                                                                     FCC0570       23     A     
 ARITH              IFEQ   NOINVERT,0                                                      FCC0570       24     A     
 ARITH                                                                                     FCC0570       25     A     
 ARITH    *         REAL CONSTANT DIVISORS CAN BE INVERTED IF DIVIDEND IS NOT              FCC0570       26     A     
 ARITH    *         TYPE DOUBLE. / CHANGED TO *.                                           FCC0570       27     A     
 ARITH              SB6    B3-T.DBL                                                        FCC0570       28     A     
 ARITH              ZR     B6,MOP      IF DIVIDEND IS DBL, NO INVERT                       FCC0570       29     A     
 ARITH              SA1    RL1                                                             FCC0570       30     A     
 ARITH              SA2    RL2                                                             FCC0570       31     A     
 ARITH              SA5    A2          A5,X5 MUST BE PRESERVED IN CASE ARLIST              FCC1972        5     A     
 ARITH    *                            POINTER IS  RESTORED.                               FCC1972        6     A     
 ARITH              BX6    X1                                                              FCC0570       32     A     
 ARITH              SA1    X2                                                              FCC0570       33     A     
 ARITH              SA6    A2          REPLACE (RL2) WITH (RL1) FOR CFETCH                 FCC0570       34     A     
 ARITH              RJ     NEWCON      FETCH VALUE OF CONST                                FCC0570       35     A     
 ARITH              ZR     X6,CON7     IF DIVIDE BY 0, ERROR                               FCC0570       36     A     
 ARITH              SA2    =1.0                                                            FCC0570       37     A     
 ARITH              SA4    =XROPFLAG                                                       FCC1972        7     A     
 ARITH              BX0    X4                                                              FCC1972        8     A     
 ARITH              FX3    X2/X6                                                           FCC1972        9     A     
 ARITH              LX4    1R/                                                             FCC1972       10     A     
 ARITH              PL     X4,MOPB3    IF ROUNDED DIVIDE NOT SELECTED                      FCC1972       11     A     
 ARITH              RX3    X2/X6                                                           FCC1972       12     A     
 ARITH     MOPB3    OR     X3,MOPB5    IF CONSTANT INFINITE                                FCC1972       13     A     
 ARITH              ID     X3,MOPB5    IF CONSTANT INDEFINITE                              FCC1972       14     A     
 ARITH              FX4    X3*X6                                                           FCC1972       15     A     
 ARITH              LX0    1R*                                                             FCC1972       16     A     
 ARITH              PL     X0,MOPB4    IF ROUNDED MULTIPLY NOT SELECTED                    FCC1972       17     A     
 ARITH              RX4    X3*X6                                                           FCC1972       18     A     
 ARITH     MOPB4    OR     X4,MOPB5    IF CONSTANT INFINITE                                FCC1972       19     A     
 ARITH              ID     X4,MOPB5    IF CONSTANT INDEFINITE                              FCC1972       20     A     
 ARITH              IX3    X4-X2                                                           FCC1972       21     A     
 ARITH              ZR     X3,MOPB6    IF(1/CON)*CON.EQ.1) -    INVERT                     FCC1972       22     A     
 ARITH     MOPB5    BX6    X5                                                              FCC1972       23     A     
 ARITH              BX7    X1                                                              FCC1972       24     A     
 ARITH              SA6    A5          RESTORE RLIST POINTER                               FCC1972       25     A     
 ARITH              SA7    A1          RESTORE ARLIST HDR WORD NOOPED BY NEWCON            FCC1972       26     A     
 ARITH              SX6    MAC+39      / MACRO CODE                                        FCC1972       27     A     
 ARITH              EQ     MOP                                                             FCC1972       28     A     
 ARITH                                                                                     FCC1972       29     A     
 ARITH              SB1    1                                                               FCC0570       38          I
          -FCC1972
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2218    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     MOPB6    SB1    1                                                               FCC1972       30     A     
 ARITH              RX1    X2/X6                                                           FCC0570       39     A     
 ARITH              RJ     CONVERT                                                         FCC0570       40     A     
 ARITH              SX6    T.REAL                                                          FCC0570       41     A     
 ARITH              RJ     CFETCH                                                          FCC0570       42     A     
 ARITH              SX6    MAC+35      * MACRO CODE                                        FCC0570       43     A     
 ARITH                                                                                     FCC0570       44     A     
 ARITH              ENDIF                                                                  FCC0570       45     A     
 ARITH                                                                                     FCC0570       46     A     
 ARITH              EQ     MOP                                                             FCC0570       47     A     
 ARITH              TITLE  MOP                                                             ARITH       4915          I
          -FCC0887
 ARITH    *     HERE IF +,-,*,/,R-,R/,OR RELATIONAL OP HAS BEEN POPPED FROM STAK           ARITH       4916          I
          -FCC0887
 ARITH    *         X6 HOLDS MACRO CODE FOR THE POPPED OP                                  ARITH       4917          I
          -FCC0887
 ARITH              TITLE  CLC - CHECK FOR LARGE INTEGER CONSTANTS                         FCC0887        5     A     
 ARITH     CLC      SPACE  4,8                                                             FCC0539      165     A     
 ARITH    **        CLC - CHECK FOR LARGE INTEGER CONSTANTS                                FCC0539      166     A     
 ARITH    *         INTEGER CONSTANTS USED AS OPERANDS OF MULTIPLICATION OR                FCC0539      167     A     
 ARITH    *         DIVISION ARE CHECKED FOR VALUES EXCEEDING 2**48-1.                     FCC0539      168     A     
 ARITH    *         A FATAL ERROR IS GIVEN FOR SUCH USAGES.                                FCC0539      169     A     
 ARITH    *         ENTRY  A3 _ (RL1)                                                      FCC0539      170     A     
 ARITH    *                A4 _ (RL2)                                                      FCC0539      171     A     
 ARITH    *         EXIT   A3 AND A4 SAME AS ON ENTRY                                      FCC0539      172     A     
 ARITH    *         SAVES  X6                                                              FCC0539      173     A     
 ARITH                                                                                     FCC0539      174     A     
 ARITH     CLC      ENTRY. *                                                               FCC0539      175     A     
 ARITH              SA1    RL1         SET UP FOR CHKP2 CALL                               FCC0539      176     A     
 ARITH              UX0    B3,X3                                                           FCC0539      177     A     
 ARITH              BX7    X4          OTHER OPERAND                                       FCC0539      178     A     
 ARITH              SA6    MCHTS+1                                                         FCC0539      179     A     
 ARITH              LX0    59-47                                                           FCC0539      180     A     
 ARITH              SA7    MCHTS       TEMP FOR RL2 INFO                                   FCC0539      181     A     
 ARITH              MI     X0,CLC2     IF RL1 IS A CONST                                   FCC0539      182     A     
 ARITH     CLC1     LX7    59-47                                                           FCC0539      183     A     
 ARITH              PL     X7,CLC      IF RL2 ALSO IS NOT A CONST, EXIT                    FCC0539      184     A     
 ARITH              UX0    B3,X4                                                           FCC0539      185     A     
 ARITH              MX7    0                                                               FCC0539      186     A     
 ARITH              SA7    MCHTS                                                           FCC0539      187     A     
 ARITH              SA1    RL2         SET UP FOR CHKP2 CALL                               FCC0539      188     A     
 ARITH              LX7    X3          OTHER OPERAND                                       FCC0539      189     A     
 ARITH     CLC2     SB2    T.INT                                                           FCC0539      190     A     
 ARITH              SB6    T.OCT                                                           FCC0539      191     A     
 ARITH              SB7    T.HOL                                                           FCC0887        6     A     
 ARITH              EQ     B3,B2,CLC4  IF OPERAND IS INTEGER, CHECK VALUE                  FCC0539      192     A     
 ARITH              EQ     B3,B6,CLC3  IF OPERAND IS OCTAL,CHECK TYPE OF OPERATION         FCC0539      193     A     
 ARITH              EQ     B3,B7,CLC3  IF OPERAND IS HOLL, CHECK TYPE OF OPERATION         FCC0887        7     A     
 ARITH              SA5    MCHTS                                                           FCC0539      194     A     
 ARITH              ZR     X5,CLC      IF BOTH OPERANDS CHECKED                            FCC0539      195     A     
 ARITH              EQ     CLC1                                                            FCC0539      196     A     
 ARITH     CLC3     UX0    B4,X7                                                           FCC0539      197     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2219    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              EQ     B4,B2,CLC4  IF INTEGER                                          FCC0539      198     A     
 ARITH              SB7    T.HOL                                                           FCC0539      199          I
          -FCC0887
 ARITH              EQ     B4,B6,CLC4  IF OCTAL                                            FCC0539      200     A     
 ARITH              NE     B4,B7,CLC   IF NOT HOLL                                         FCC0539      201     A     
 ARITH     CLC4     SA1    X1                                                              FCC0539      202     A     
 ARITH              BX1    -X1                                                             FCC0539      203     A     
 ARITH              RJ     NEWCON                                                          FCC0539      204     A     
 ARITH              AX6    48                                                              FCC0539      205     A     
 ARITH              NZ     X6,CLCE     IF LARGE CONST.                                     FCC0539      206     A     
 ARITH              SA4    MCHTS                                                           FCC0539      207     A     
 ARITH              ZR     X4,CLC5     IF BOTH OPERANDS PROCESSED                          FCC0539      208     A     
 ARITH              UX0    B4,X4                                                           FCC0539      209     A     
 ARITH              LX4    59-47                                                           FCC0539      210     A     
 ARITH              PL     X4,CLC5     IF NOT A CONST                                      FCC0539      211     A     
 ARITH              MX6    0                                                               FCC0539      212     A     
 ARITH              SB2    T.INT                                                           FCC0539      213     A     
 ARITH              SA6    A4                                                              FCC0539      214     A     
 ARITH              SB6    T.OCT                                                           FCC0539      215     A     
 ARITH              SA1    RL2                                                             FCC0539      216     A     
 ARITH              EQ     B4,B2,CLC4  IF INTEGER                                          FCC0539      217     A     
 ARITH              EQ     B4,B6,CLC4  IF OCTAL                                            FCC0539      218     A     
 ARITH              SB7    T.HOL                                                           FCC0887        8     A     
 ARITH              EQ     B4,B7,CLC4  IF HOLL                                             FCC0887        9     A     
 ARITH     CLC5     SA1    RL1         SET EXIT REGISTERS                                  FCC0539      219     A     
 ARITH              SA2    RL2                                                             FCC0539      220     A     
 ARITH              SA3    X1                                                              FCC0539      221     A     
 ARITH              SA5    MCHTS+1                                                         FCC0539      222     A     
 ARITH              SA4    X2                                                              FCC0539      223     A     
 ARITH              BX6    X5                                                              FCC0539      224     A     
 ARITH              EQ     CLC                                                             FCC0539      225     A     
 ARITH     CLCE     EERR   -ERMSG60    INT CONST .GE. 2**48                                FCC0539      226     A     
 ARITH              TITLE  MOP                                                             FCC0887       10     A     
 ARITH    *         ARITHMETIC OPERATION IS POPPED FROM STACK. R-LIST IS TO BE             FCC0887       11     A     
 ARITH    *         OUTPUT.                                                                FCC0887       12     A     
 ARITH    *         ENTRY  (X6) = MACRO CODE                                               FCC0887       13     A     
 ARITH    *     MOP OUTPUTS R-LIST FOR THE POPPED OP                                       ARITH       4918     A     
 ARITH     MOP      SA6    SMACD        SAVE MACRO CODE                                    ARITH       4919     A     
 ARITH              SA1    RL1          GET LOC OF NEXT TO LAST UNUSED R-ENTRY             ARITH       4920     A     
 ARITH              SA2    RL2                     LAST                                    ARITH       4921     A     
 ARITH              SA3    X1           GET 1ST WORD OF PENULT.ENTRY                       ARITH       4922     A     
 ARITH              SA4    X2                            LAST                              ARITH       4923     A     
 ARITH              UX0 B4,X3           IS EITHER TYPE LOGICAL                             ARITH       4924     A     
 ARITH              UX0 B5,X4                                                              ARITH       4925     A     
 ARITH              SB6    B4-T.LOG                                                        ARITH       4926     A     
 ARITH              SB7    B5-T.LOG                                                        ARITH       4927     A     
 ARITH              ZR     B6,MOP1      IF TYPE LOG.(ERR.)                                 ARITH       4928     A     
 ARITH              ZR     B7,MOP1      11      11                                         ARITH       4929     A     
 ARITH              SB6    X6           SEE IF REL WITH CPX OPD                            ARITH       4930     A     
 ARITH              SB7       HIRELM    HIGHEST REL MAC                                    ARITH       4931     A     
 ARITH              GT  B6,B7,MOP2      IF NOT REL                                         ARITH       4932     A     
 ARITH              SB7       LORELM    LOWEST REL MAC                                     ARITH       4933     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2220    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              LT  B6,B7,MOP2      IF NOT REL                                         ARITH       4934     A     
 ARITH              SB6    T.CPLX                                                          ARITH       4935     A     
 ARITH              EQ  B6,B4,MOP2A     IF CPX                                             ARITH       4936     A     
 ARITH              NE  B6,B5,MOP2      IF NOT CPX                                         ARITH       4937     A     
 ARITH    MOP2A     USASDM ERMSG43         A RELATIONAL OP HAS A COMPLEX OPERAND           ARITH       4938     A     
 ARITH              SA1       RL1                                                          ARITH       4939     A     
 ARITH              SA2       RL2                                                          ARITH       4940     A     
 ARITH              SA3    X1                                                              ARITH       4941     A     
 ARITH              SA4    X2                                                              ARITH       4942     A     
 ARITH              UX0 B4,X3                                                              ARITH       4943     A     
 ARITH              UX0 B5,X4                                                              ARITH       4944     A     
 ARITH     MOP2     SB6    B4-B5        ARE OPD TYPES DIFFERENTY                           ARITH       4945     A     
 ARITH              SX7    B4                                                              ARITH       4946     A     
 ARITH              SA7    TYPEWD       (SAVE TYPE IN CASE THE SAME)                       ARITH       4947     A     
 ARITH              ZR     B6,MOP5A          IF NO                                         ARITH       4948     A     
 ARITH              SB7    T.OCT                                                           ARITH       4949     A     
 ARITH              GE  B4,B7,MOP28     IF RL1 IS OCT OR HOL                               ARITH       4950     A     
 ARITH              GE  B5,B7,MOP29     IF RL2 IS OCT OR HOL                               ARITH       4951     A     
 ARITH              NG     B6,MOP6      YES.  IF RL1 POINTS TO LOWER TYPE.                 ARITH       4952     A     
 ARITH              MX6       1         SET REVERSE-OPDS FG                                ARITH       4953     A     
 ARITH              SA6       ROFG                                                         ARITH       4954     A     
 ARITH              SX7    X1           REVERSE RL1 AND RL2                                ARITH       4955     A     
 ARITH              SX6    X2                                                              ARITH       4956     A     
 ARITH              SA7    RL2                                                             ARITH       4957     A     
 ARITH              SA6    RL1                                                             ARITH       4958     A     
 ARITH     MOP6     SA3       RL1                                                          ARITH       4959     A     
 ARITH              SA4       RL2                                                          ARITH       4960     A     
 ARITH              SA1    X3                                                              ARITH       4961     A     
 ARITH              SA2    X4                                                              ARITH       4962     A     
 ARITH              UX0 B2,X1                                                              ARITH       4963     A     
 ARITH              SB3    T.REAL                                                          ARITH       4964     A     
 ARITH              UX7 B4,X2                                                              ARITH       4965     A     
 ARITH              EQ  B2,B3,MOP6A     IF LOW TYPE REAL (IN WHICH CASE HIGH TYPE          ARITH       4966     A     
 ARITH    *      WOULD HAVE TO BE DBL OR CPX AT THIS POINT.)                               ARITH       4967     A     
 ARITH              USASDM ERMSG44         TYPE COMBINATION NOT USAS                       ARITH       4968     A     
 ARITH     MOP6A    SA1       RL1       IS LOWER TYPE A CONST--                            ARITH       4969     A     
 ARITH              SA2       RL2                                                          ARITH       4970     A     
 ARITH              BX7    X2                                                              ARITH       4971     A     
 ARITH              SA2    X2                                                              ARITH       4972     A     
 ARITH              SA7       SVRL2     SAVE RL2                                           ARITH       4973     A     
 ARITH              UX0 B3,X2                                                              ARITH       4974     A     
 ARITH              SX6    B3                                                              ARITH       4975     A     
 ARITH              SA6       TYPEWD                                                       ARITH       4976     A     
 ARITH     MOP6B    SA1    X1                                                              ARITH       4977     A     
 ARITH              UX0 B3,X1           GET TYPE IN B3                                     ARITH       4978     A     
 ARITH              LX1    12           CONSTANT FLG BIT                                   ARITH       4979     A     
 ARITH              PL     X1,MOP7      IF NO                                              ARITH       4980     A     
 ARITH    *     HERE IF MIXED MODE, RL1 (LOW TYPE) IS CONST, AND NEITHER RL1 NOR -         ARITH       4981     A     
 ARITH    *       - RL2 IS OCT OR HOL.                                                     ARITH       4982     A     
 ARITH              LX1    -12             NO-OP RL1 ENTRY (LOW CONST)                     ARITH       4983     A     
 ARITH              RJ     NEWCON       ENTER WITH X1=1ST WD OF ARLIST ENTRY, A1=          ARITH       4984     A     
 ARITH    *                               ADR OF THAT ENTRY.  LEAVE WITH CONST             ARITH       4985     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2221    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    *                               SET UP WITH VALUE OF CONST, OLD ENTRY            ARITH       4986     A     
 ARITH    *                               NO-OPED. LEAVE B3 AS BEFORE RJ NEWCON            ARITH       4987     A     
 ARITH              SB4    T.INT                                                           ARITH       4988     A     
 ARITH              EQ  B3,B4,MOP10                                                        ARITH       4989     A     
 ARITH     MOP14    RJ        DLDSU     CALL DOUBLE LOAD SET-UP ROUTINE (TP CMPX)          ARITH       4990     A     
 ARITH              SA5       TYPEWD                                                       ARITH       4991     A     
 ARITH              RJ        MACOUT    MACOUT OUTPUTS RLIST ENTRY MACRO                   ARITH       4992     A     
 ARITH              SA1       RL2       SET CONST BIT IN LOAD INSTR                        ARITH       4993     A     
 ARITH              MX0       1                                                            ARITH       4994     A     
 ARITH              LX0       48                                                           ARITH       4995     A     
 ARITH              SA2    X1                                                              ARITH       4996     A     
 ARITH              BX6    X0+X2                                                           ARITH       4997     A     
 ARITH              SA6    A2                                                              ARITH       4998     A     
 ARITH              ZR        MOP8                                                         ARITH       4999     A     
 ARITH    *                                                                                ARITH       5000     A     
 ARITH    *     MOP28 IF RL1 IS OCT OR HOL                                                 ARITH       5001     A     
 ARITH     MOP28    GE  B5,B7,MOP30     IF RL2 IS ALSO OCT OR HOL                          ARITH       5002     A     
 ARITH     MOP31    SB7    T.DBL                                                           ARITH       5003     A     
 ARITH              SX6    B5                                                              ARITH       5004     A     
 ARITH              SA6       TYPEWD                                                       ARITH       5005     A     
 ARITH              LT  B5,B7,MOP5      IF RL2 IS NOT DBL OR CMPX                          ARITH       5006     A     
 ARITH              SA1    RL1                                                             ARITH       5007     A     
 ARITH              EQ     MOP6B                                                           ARITH       5008     A     
 ARITH    *                                                                                ARITH       5009     A     
 ARITH    *     MOP30 IF RL1 AND RL2 ARE OCT OR HOL CONSTS                                 ARITH       5010     A     
 ARITH     MOP30    SX6    T.INT                                                           ARITH       5011     A     
 ARITH              SA6       TYPEWD                                                       ARITH       5012     A     
 ARITH              ZR        MOP5                                                         ARITH       5013     A     
 ARITH    *                                                                                ARITH       5014     A     
 ARITH    *     MOP29 IF RL2 IS OCT OR HOL BUT RL1 IS NOT.                                 ARITH       5015     A     
 ARITH     MOP29    MX6       1         SET REVERSE-OPDS FG                                ARITH       5016     A     
 ARITH              SA6       ROFG                                                         ARITH       5017     A     
 ARITH              BX7    X1                                                              ARITH       5018     A     
 ARITH              AX6    B0,X2                                                           ARITH       5019     A     
 ARITH              SA7       RL2                                                          ARITH       5020     A     
 ARITH              SA6       RL1                                                          ARITH       5021     A     
 ARITH              SB7    B4           REVERSE B4 AND B5                                  ARITH       5022     A     
 ARITH              SB4    B5                                                              ARITH       5023     A     
 ARITH              SB5    B7                                                              ARITH       5024     A     
 ARITH              ZR        MOP31                                                        ARITH       5025     A     
 ARITH    *                                                                                ARITH       5026     A     
 ARITH    *                                                                                ARITH       5027     A     
 ARITH    *     MOP10 IF LOW TYPE IS INT CONST (HIGH ISNT OCT OR HOL)                      ARITH       5028     A     
 ARITH     MOP10    SA1       CONST     CONVERT TO REAL                                    ARITH       5029     A     
 ARITH              SA3       TYPEWD                                                       ARITH       5030     A     
 ARITH              PX2    X1                                                              ARITH       5031     A     
 ARITH              NX6 B0,X2                                                              ARITH       5032     A     
 ARITH              SX0    X3-T.REAL                                                       ARITH       5033     A     
 ARITH              ZR     X0,MOP11     IF HIGH TYPE IS REAL                               ARITH       5034     A     
 ARITH              SA6       CONST     MUST BE DBL WD                                     ARITH       5035     A     
 ARITH              ZR        MOP14                                                        ARITH       5036     A     
 ARITH    *                                                                                ARITH       5037     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2222    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     MOP11    BX1    X6                                                              ARITH       5038     A     
 ARITH              SB1       1                                                            ARITH       5039     A     
 ARITH              ZR     X6,MOP11A   IF CONST ZERO                                       ARITH       5040     A     
 ARITH              RJ        CONVERT                                                      ARITH       5041     A     
 ARITH              SA5       EPOINT                                                       ARITH       5042     A     
 ARITH              SB1    X5+1                                                            ARITH       5043     A     
 ARITH              SX6    T.REAL            FOR CALL TO FETCH                             ARITH       5044     A     
 ARITH              RJ        CFETCH    CALL CON. FETCH ROUTINE                            ARITH       5045     A     
 ARITH              ZR        MOP8                                                         ARITH       5046     A     
 ARITH     MOP11A   SA3    RL1         RESTORE OLD ENTRY OF MASK ZERO                      ARITH       5047     A     
 ARITH              SA1    X3                                                              ARITH       5048     A     
 ARITH              BX7    -X1                                                             ARITH       5049     A     
 ARITH              SA7    X3                                                              ARITH       5050     A     
 ARITH              EQ     MOP5                                                            ARITH       5051     A     
 ARITH                                                                                     ARITH       5052     A     
 ARITH    *         MOP5A IF OPERANDS SAME TYPE WHEN MOP ENTERED                           ARITH       5053     A     
 ARITH     MOP5A    SA1    CRNTOP            CURRENT OPERATOR                              ARITH       5054     A     
 ARITH              UX0    B5,X1             UNPACK OPERATOR                               ARITH       5055     A     
 ARITH              SX2    B5-EL.SLASH                                                     ARITH       5056     A     
 ARITH              NZ     X2,MOP5           IF NOT A / OPERATOR                           ARITH       5057     A     
 ARITH              LX1    59-18                                                           ARITH       5058     A     
 ARITH              PL     X1,MOP5           GP BIT NOT SET                                ARITH       5059     A     
 ARITH              SA2    TYPEWD            OPERAND TYPE                                  ARITH       5060     A     
 ARITH              AX1    4                                                               ARITH       5061     A     
 ARITH              MX0    60-L.TYP                                                        ARITH       5062     A     
 ARITH              BX6    -X0*X1            FETCH TYPE                                    ARITH       5063     A     
 ARITH              IX0    X2-X6                                                           ARITH       5064     A     
 ARITH              ZR     X0,MOP5           IF SAME TYPE                                  ARITH       5065     A     
 ARITH              PL     X0,MOP5B    IF OPERAND TYPE .GT. TYPE                           ARITH       5066     A     
 ARITH              SX5    X6-T.OCT                                                        ARITH       5067     A     
 ARITH              PL     X5,MOP5     IF TYPE IS OCTAL OR HOLL                            ARITH       5068     A     
 ARITH              SA6    TYPEWD            RESET                                         ARITH       5069     A     
 ARITH              SA5    RL1                                                             ARITH       5070     A     
 ARITH              SB5    X6                                                              ARITH       5071     A     
 ARITH              RJ     MODCH             CONVERT TO HIGHER TYPE                        ARITH       5072     A     
 ARITH              SA6    RL1                                                             ARITH       5073     A     
 ARITH              SA1    TYPEWD                                                          ARITH       5074     A     
 ARITH              SA5    RL2                                                             ARITH       5075     A     
 ARITH              SB5    X1                                                              ARITH       5076     A     
 ARITH              RJ     MODCH             CONVERT TO HIGHER TYPE                        ARITH       5077     A     
 ARITH              SA6    RL2                                                             ARITH       5078     A     
 ARITH              EQ     MOP5                                                            ARITH       5079     A     
 ARITH                                                                                     ARITH       5080     A     
 ARITH     MOP5B    SX5    X2-T.OCT                                                        ARITH       5081     A     
 ARITH              MI     X5,MOP5     IF OPERAND NOT TYPE OCTAL OR HOLL                   ARITH       5082     A     
 ARITH              SA6    TYPEWD                                                          ARITH       5083     A     
 ARITH                                                                                     ARITH       5084     A     
 ARITH    *     MOP5 WHEN READY TO OUTPUT RLIST FOR POPPED OP                              ARITH       5085     A     
 ARITH     MOP5     SA1    TYPEWD       IS TYPE REALY                                      ARITH       5086     A     
 ARITH              SX2    X1-T.REAL                                                       ARITH       5087     A     
 ARITH              NZ     X2,MOP17     IF NO                                              ARITH       5088     A     
 ARITH     MOPROUND SA2    ROPFLAG           IF NO ROUNDED ARITHMETIC IS TO BE             ARITH       5089     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2223    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              ZR     X2,MOP12            PERFORMED GO TO 'MOP12'.                    ARITH       5090     A     
 ARITH              SA3    ROUNDTBL          SEE IF THE MACRO INVOLVED IS AMONG            ARITH       5091     A     
 ARITH              SX5    X3                  THE POSSIBLE ROUNDED MACROS                 ARITH       5092     A     
 ARITH              UX0    X3,B7                                                           ARITH       5093     A     
 ARITH              SA1    SMACD                                                           ARITH       5094     A     
 ARITH              SPACE  1                                                               ARITH       5095     A     
 ARITH     MOPR1    IX6    X1-X5                                                           ARITH       5096     A     
 ARITH              LX3    30                                                              ARITH       5097     A     
 ARITH              ZR     X6,MOPR2                                                        ARITH       5098     A     
 ARITH              SA3    A3+1                                                            ARITH       5099     A     
 ARITH              MI     X6,MOP12                                                        ARITH       5100     A     
 ARITH              SX5    X3                                                              ARITH       5101     A     
 ARITH              UX0    X3,B7                                                           ARITH       5102     A     
 ARITH              NZ     X3,MOPR1                                                        ARITH       5103     A     
 ARITH              ZR     MOP12             IF NOT GO TO 'MOP12'                          ARITH       5104     A     
 ARITH    ***                                                                              ARITH       5105     A     
 ARITH    *         IF A POSSIBLY ROUNDED MACRO SEE IF THE OPERATOR WHICH CAUSED           ARITH       5106     A     
 ARITH    *         THE MACRO TO BE GENERATED IS SELECTED FOR ROUNDED OPERATIONS           ARITH       5107     A     
 ARITH    *                                                                                ARITH       5108     A     
 ARITH     MOPR2    LX6    X2,B7                                                           ARITH       5109     A     
 ARITH              PL     X6,MOP12                                                        ARITH       5110     A     
 ARITH              SX6    X3                IF SO CHANGE THE MACRO CODE.                  ARITH       5111     A     
 ARITH              SA6    SMACD                                                           ARITH       5112     A     
 ARITH              SPACE  1                                                               ARITH       5113     A     
 ARITH     MOP12    SA1    SMACD                                                           ARITH       5114     A     
 ARITH              SX2    X1-HIRELM-1  IS OP A RELATIONAL -                               ARITH       5115     A     
 ARITH              PL     X2,MOP18     IF NO                                              ARITH       5116     A     
 ARITH              SX2    X1-LORELM    MAYBE                                              ARITH       5117     A     
 ARITH              NG     X2,MOP18     IF NO                                              ARITH       5118     A     
 ARITH              SX6    T.LOG                                                           ARITH       5119     A     
 ARITH              SA6    TYPEWD                                                          ARITH       5120     A     
 ARITH     MOP18   SA5        TYPEWD    OUTPUT MAC FOR BIN OP                              ARITH       5121     A     
 ARITH              RJ        INGEN                                                        ARITH       5122     A     
 ARITH              SA1    OP           IS OP=/:                                           ARITH       5123     A     
 ARITH              UX0 B7,X1                                                              ARITH       5124     A     
 ARITH              SX2    B7-EL.SLASH                                                     ARITH       5125     A     
 ARITH              NZ     X2,CMPARE    IF NO                                              ARITH       5126     A     
 ARITH              SA3       EPOINT                                                       ARITH       5127     A     
 ARITH              SA2    X3                                                              ARITH       5128     A     
 ARITH              UX3 B4,X2                                                              ARITH       5129     A     
 ARITH              ZR        DIVD                                                         ARITH       5130     A     
 ARITH    *                                                                                ARITH       5131     A     
 ARITH    *                                                                                ARITH       5132     A     
 ARITH    *     MOP15 IF U- POPPED OUT                                                     ARITH       5133     A     
 ARITH     MOP15    SA1       RL2       IS TYPE LOG-                                       ARITH       5134     A     
 ARITH              SA2    X1                                                              ARITH       5135     A     
 ARITH              UX0 B2,X2                                                              ARITH       5136     A     
 ARITH              SB3    B2-T.LOG                                                        ARITH       5137     A     
 ARITH              ZR     B3,MOP1      IF YES                                             ARITH       5138     A     
 ARITH              RJ        UINGEN                                                       ARITH       5139     A     
 ARITH              ZR        CMPARE                                                       ARITH       5140     A     
 ARITH    *                                                                                ARITH       5141     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2224    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    *                                                                                ARITH       5142     A     
 ARITH    *     INGEN: COME WITH RL1,RL2,SMACD SET TO INDICATE TWO OPERANDS      -         ARITH       5143     A     
 ARITH    ** OF SAME TYPE AND MACRO CODE.  OUTPUT MACRO INTR. AND UPDATE RL,S ETC          ARITH       5144     A     
 ARITH    *         X5=TYPE OF RESULT                                                      ARITH       5145     A     
 ARITH     INGEN    DATA   0                                                               ARITH       5146     A     
 ARITH              SA1    RL1          GET RN NOS                                         ARITH       5147     A     
 ARITH              SA2    RL2                                                             ARITH       5148     A     
 ARITH              SA3    X1                                                              ARITH       5149     A     
 ARITH              UX0 B2,X3                                                              ARITH       5150     A     
 ARITH              SX6    B2                                                              ARITH       5151     A     
 ARITH              SA6       OPDTYP                                                       ARITH       5152     A     
 ARITH    *  COMPILE TIME EVALUATION CODING RUNS FROM HERE TO INGEN2.                      ARITH       5153     A     
 ARITH              BX6    X5           SEE IF CONSTANT OPERATION                          ARITH       5154     A     
 ARITH              SA6       TYPEWD    SAVE TYPE OF RESULT                                ARITH       5155     A     
 ARITH              LX0       59-47                                                        ARITH       5156     A     
 ARITH              SA4    X2                                                              ARITH       5157     A     
 ARITH              PL     X0,INGEN2    IF RL1 NOT CONST                                   ARITH       5158     A     
 ARITH              LX4       59-47                                                        ARITH       5159     A     
 ARITH              PL     X4,INGEN2    IF RL2 NOT CONST                                   ARITH       5160     A     
 ARITH              SA4       SMACD     IS MACRO CODE AMONG THOSE ACCEPTABLE-              ARITH       5161     A     
 ARITH              SB2       BOPSTS    (BINARY OPS TBL SIZE)                              ARITH       5162     A     
 ARITH              SB3    B0                                                              ARITH       5163     A     
 ARITH              MX0       60-12                                                        ARITH       5164     A     
 ARITH     INGEN4   SA5    B3+BOPSTB                                                       ARITH       5165     A     
 ARITH              BX6    X4-X5                                                           ARITH       5166     A     
 ARITH              SB3    B3+1                                                            ARITH       5167     A     
 ARITH              BX6   -X0*X6                                                           ARITH       5168     A     
 ARITH              ZR     X6,INGEN1    IF HAVE FOUND THE MACRO CODE IN BOPSTB             ARITH       5169     A     
 ARITH              LT  B3,B2,INGEN4    IF MORE BOPSTB ENTRIES TO LOOK AT                  ARITH       5170     A     
 ARITH              ZR        INGEN2    IF NOT ACCEPTABLE OP                               ARITH       5171     A     
 ARITH     INGEN1   BX7    X5           SAVE BRANCH POINT                                  ARITH       5172     A     
 ARITH              SA7       BRPNT                                                        ARITH       5173     A     
 ARITH              SA2       RL2                                                          ARITH       5174     A     
 ARITH              SA1    X2                                                              ARITH       5175     A     
 ARITH              RJ        NEWCON    NO-OP RL2 AND RETURN WITH -                        ARITH       5176     A     
 ARITH              SA6       CONST+1   VALUE OF 2ND CONST.                                ARITH       5177     A     
 ARITH              SA2       RL1                                                          ARITH       5178     A     
 ARITH              SA1    X2                                                              ARITH       5179     A     
 ARITH              PL    X1,INGEN3     IF NOT NO-OPED (INCASE RL1=RL2 - SUBP5)            ARITH       5180     A     
 ARITH              BX1   -X1                                                              ARITH       5181     A     
 ARITH     INGEN3   RJ        NEWCON    RETURN WITH VALUE OF 1ST CONST IN CONST            ARITH       5182     A     
 ARITH              SA2       CONST+1                                                      ARITH       5183     A     
 ARITH              BX1    X6                                                              ARITH       5184     A     
 ARITH              SA4       TYPEWD                                                       ARITH       5185     A     
 ARITH              SB2    X4-T.REAL                                                       ARITH       5186     A     
 ARITH              NZ     B2,INGEN6    IF OPERATION NOT REAL                              ARITH       5187     A     
 ARITH              OR     X1,INGEN7    IF OPD OUT OF RANGE                                ARITH       5188     A     
 ARITH              OR     X2,INGEN7                                                       ARITH       5189     A     
 ARITH              ID     X1,INGEN7                                                       ARITH       5190     A     
 ARITH              ID     X2,INGEN7                                                       ARITH       5191     A     
 ARITH     INGEN6   SA3       ROFG                                                         ARITH       5192     A     
 ARITH              PL     X3,BRPNT     IF OPDS WERENT REVERSED                            ARITH       5193     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2225    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              BX1    X2                                                              ARITH       5194     A     
 ARITH              SA2       CONST                                                        ARITH       5195     A     
 ARITH              MX6       0                                                            ARITH       5196     A     
 ARITH              SA6       ROFG      CLEAR FLAG                                         ARITH       5197     A     
 ARITH              ZR        BRPNT                                                        ARITH       5198     A     
 ARITH    *                                                                                ARITH       5199     A     
 ARITH    *                                                                                ARITH       5200     A     
 ARITH     BRPNT    BSS       1         HOLDS ENTRY SELECTED FROM BOPSTB                   ARITH       5201     A     
 ARITH    *                                                                                ARITH       5202     A     
 ARITH    *                                                                                ARITH       5203     A     
 ARITH    ***                                                                              ARITH       5204     A     
 ARITH    *         B O P S T B -- BINARY OPERATIONS WHICH MAY BE PERFORMED AT             ARITH       5205     A     
 ARITH    *         COMPILE TIME.                                                          ARITH       5206     A     
 ARITH    *                                                                                ARITH       5207     A     
 ARITH    *                                                                                ARITH       5208     A     
 ARITH     BOPSTB   BX2    -X2         - REAL                                              ARITH       5209     A     
 ARITH              EQ     INGN01                                                          ARITH       5210     A     
 ARITH     -        VFD    15/MAC+27                                                       ARITH       5211     A     
 ARITH              SPACE  1                                                               ARITH       5212     A     
 ARITH              IX6    X1-X2       - INTEGER                                           ARITH       5213     A     
 ARITH              EQ     INGEN5                                                          ARITH       5214     A     
 ARITH     -        VFD    15/MAC+28                                                       ARITH       5215     A     
 ARITH              SPACE  1                                                               ARITH       5216     A     
 ARITH              EQ     INGN01      + REAL                                              ARITH       5217     A     
 ARITH     -        VFD    30/MAC+31                                                       ARITH       5218     A     
 ARITH              SPACE  1                                                               ARITH       5219     A     
 ARITH              IX6    X1+X2       + INTEGER                                           ARITH       5220     A     
 ARITH              EQ     INGEN5                                                          ARITH       5221     A     
 ARITH     -        VFD    15/MAC+32                                                       ARITH       5222     A     
 ARITH              SPACE  1                                                               ARITH       5223     A     
 ARITH              FX6    X1*X2       * REAL                                              ARITH       5224     A     
 ARITH              EQ     INGEN5                                                          ARITH       5225     A     
 ARITH     -        VFD    15/MAC+35                                                       ARITH       5226     A     
 ARITH              SPACE  1                                                               ARITH       5227     A     
 ARITH              EQ     INGN02      * INTEGER                                           ARITH       5228     A     
 ARITH     -        VFD    30/MAC+36                                                       ARITH       5229     A     
 ARITH              SPACE  1                                                               ARITH       5230     A     
 ARITH              FX6    X1/X2       / REAL                                              ARITH       5231     A     
 ARITH              EQ     INGEN5                                                          ARITH       5232     A     
 ARITH     -        VFD    15/MAC+39                                                       ARITH       5233     A     
 ARITH              SPACE  1                                                               ARITH       5234     A     
 ARITH              EQ     INGN03      / INTEGER                                           ARITH       5235     A     
 ARITH     -        VFD    30/MAC+40                                                       ARITH       5236     A     
 ARITH              SPACE  1                                                               ARITH       5237     A     
 ARITH              BX2    -X2         ROUNDED- REAL                                       ARITH       5238     A     
 ARITH              EQ     INGN04                                                          ARITH       5239     A     
 ARITH     -        VFD    15/RSUB                                                         ARITH       5240     A     
 ARITH              SPACE  1                                                               ARITH       5241     A     
 ARITH              EQ     INGN04      ROUNDED+ REAL                                       ARITH       5242     A     
 ARITH     -        VFD    30/RADD                                                         ARITH       5243     A     
 ARITH              SPACE  1                                                               ARITH       5244     A     
 ARITH              RX6    X1*X2       ROUNDED* REAL                                       ARITH       5245     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2226    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              EQ     INGEN5                                                          ARITH       5246     A     
 ARITH     -        VFD    15/RMLT                                                         ARITH       5247     A     
 ARITH              SPACE  1                                                               ARITH       5248     A     
 ARITH              RX6    X1/X2       ROUNDED/ REAL                                       ARITH       5249     A     
 ARITH              EQ     INGEN5                                                          ARITH       5250     A     
 ARITH     -        VFD    15/RDIV                                                         ARITH       5251     A     
 ARITH              SPACE  1                                                               ARITH       5252     A     
 ARITH     BOPSTS   EQU    *-BOPSTB                                                        ARITH       5253     A     
 ARITH              SPACE  2                                                               ARITH       5254     A     
 ARITH     INGEN7   EERR   ERMSG50     CONSTANT OUT-OF-RANGE OR INDEFINITE                 ARITH       5255     A     
 ARITH              SPACE  1                                                               ARITH       5256     A     
 ARITH     INGN01   FX3    X1+X2       + OR - REAL                                         ARITH       5257     A     
 ARITH              NX6    X3                                                              ARITH       5258     A     
 ARITH              ZR     INGEN5                                                          ARITH       5259     A     
 ARITH              SPACE  1                                                               ARITH       5260     A     
 ARITH     INGN02   PX2    X2          * INTEGER                                           ARITH       5261     A     
 ARITH              PX1    X1                                                              ARITH       5262     A     
 ARITH              DX3    X1*X2                                                           ARITH       5263     A     
 ARITH              UX6    X3                                                              ARITH       5264     A     
 ARITH              ZR     INGEN5                                                          ARITH       5265     A     
 ARITH              SPACE  1                                                               ARITH       5266     A     
 ARITH     INGN03   PX2    X2          / INTEGER                                           ARITH       5267     A     
 ARITH              PX1    X1                                                              ARITH       5268     A     
 ARITH              NX2    X2                                                              ARITH       5269     A     
 ARITH              FX1    X1/X2                                                           ARITH       5270     A     
 ARITH              UX2    X1,B2                                                           ARITH       5271     A     
 ARITH              LX6    X2,B2                                                           ARITH       5272     A     
 ARITH              ZR     INGEN5                                                          ARITH       5273     A     
 ARITH              SPACE  1                                                               ARITH       5274     A     
 ARITH     INGN04   RX3    X1+X2       ROUNDED + OR - REAL                                 ARITH       5275     A     
 ARITH              NX6    X3                                                              ARITH       5276     A     
 ARITH              SPACE  1                                                               ARITH       5277     A     
 ARITH    *                                                                                ARITH       5278     A     
 ARITH    *                                                                                ARITH       5279     A     
 ARITH    *    (ALSO FALLS THRU FROM INGN04)                                               ARITH       5280     A     
 ARITH     INGEN5   SA1    TYPEWD                                                          ARITH       5281     A     
 ARITH              SB2    X1-T.REAL                                                       ARITH       5282     A     
 ARITH              NZ     B2,INGEN5A        IF NOT TYPE REAL GO TO 'INGEN5A'              ARITH       5283     A     
 ARITH              OR     X6,INGEN5B        OTHERWISE CHECK FOR OUT-OF-RANGE OR           ARITH       5284     A     
 ARITH              ID     X6,INGEN5B        INDEFINITE VALUES.                            ARITH       5285     A     
 ARITH     INGEN5A  RJ     OPNCON            GO OTUPUT A NEW CONSTANT (RL-S WILL           ARITH       5286     A     
 ARITH    *                                  BE RESET)                                     ARITH       5287     A     
 ARITH              ZR        INGEN                                                        ARITH       5288     A     
 ARITH     INGEN5B  EERR      ERMSG51                                                      ARITH       5289     A     
 ARITH    *    END OF COMPILE TIME EVALUATION CODING.                                      ARITH       5290     A     
 ARITH    *                                                                                ARITH       5291     A     
 ARITH    *                                                                                ARITH       5292     A     
 ARITH     INGEN2   SA5    SMACD                                                           ARITH       5293     A     
 ARITH              SB7    X5-DIV.INT                                                      ARITH       5294     A     
 ARITH              NZ     B7,INGEN2B        IF NOT AN INTEGER DIVIDE                      ARITH       5295     A     
 ARITH              SA1    ROFG              *** TEMPORARY ***                             ARITH       5296     A     
 ARITH              NZ     X1,INGEN2B        IF OPERANDS REVERSED                          ARITH       5297     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2227    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA1    RL2                                                             ARITH       5298     A     
 ARITH              RJ     CHKP2             SEE IF RL2 = 2**N                             ARITH       5299     A     
 ARITH              NZ     X7,INGEN2Z        IF NOT                                        ARITH       5300     A     
 ARITH              SA1    RL1                                                             ARITH       5301     A     
 ARITH              SA3    MD.CSFT+1         CHANGE TO CONSTANT RIGHT SHIFT                ARITH       5302     A     
 ARITH              EQ     INGEN2D           GO OUTPUT SHIFT MACRO                         ARITH       5303     A     
 ARITH                                                                                     ARITH       5304     A     
 ARITH     INGEN2B  SB7    X5-MPY.INT                                                      ARITH       5305     A     
 ARITH              NZ     B7,INGEN2Z        IF NOT AN INTEGER MULTIPLY                    ARITH       5306     A     
 ARITH              SA1    RL2                                                             ARITH       5307     A     
 ARITH              RJ     CHKP2             SEE IF RL2 A POWER OF2                        ARITH       5308     A     
 ARITH              SA1    RL1                                                             ARITH       5309     A     
 ARITH              ZR     X7,INGEN2C        IF YES                                        ARITH       5310     A     
 ARITH              RJ     CHKP2             TRY RL1                                       ARITH       5311     A     
 ARITH              NZ     X7,INGEN2Z        IF NOT                                        ARITH       5312     A     
 ARITH              SA1    RL2                                                             ARITH       5313     A     
 ARITH     INGEN2C  SA3    MD.CSFT           CONSTANT LEFT SHIFT                           ARITH       5314     A     
 ARITH                                                                                     ARITH       5315     A     
 ARITH    *         OUTPUT SHIFT MACRO                                                     ARITH       5316     A     
 ARITH                                                                                     ARITH       5317     A     
 ARITH     INGEN2D  SA2    X1                                                              ARITH       5318     A     
 ARITH              NZ     X6,INGEN2D1       IF SHIFT COUNT " 0                            ARITH       5319     A     
 ARITH              BX6    X1                                                              ARITH       5320          I
          -FCC0412
 ARITH                                                                                     FCC0412        7     A     
 ARITH    *         OUTPUT XMIT IF MULTIPLY BY 1 OF LCM QUANTITY SO THAT ST. WILL          FCC0412        8          I
          -FCC1091
 ARITH    *         BE GENERATED IF WE ARE IN ARGUMENT LIST.                               FCC0412        9          I
          -FCC1091
 ARITH                                                                                     FCC0412       10          I
          -FCC1091
 ARITH              SA4    X1+1                                                            FCC0412       11          I
          -FCC1091
 ARITH              ZR     X4,INGEN2E  IF NOT LOAD OR IXFN                                 FCC0412       12          I
          -FCC1091
 ARITH              LX4    1                                                               FCC0412       13          I
          -FCC1091
 ARITH              SA5    SYM1                                                            FCC0412       14          I
          -FCC1091
 ARITH              SB2    X4                                                              FCC0412       15          I
          -FCC1091
 ARITH              SA0    X5-1                                                            FCC0412       16          I
          -FCC1091
 ARITH              SA4    A0-B2                                                           FCC0412       17          I
          -FCC1091
 ARITH              LX4    59-P.LCM                                                        FCC0412       18          I
          -FCC1091
 ARITH              PL     X4,INGEN2E  IF NOT LCM                                          FCC0412       19          I
          -FCC1091
 ARITH    *         OUTPUT XMIT FOR MULTIPLY BY 1 SO THAT ST. WILL BE GENER-               FCC1091        4     A     
 ARITH    *         ATED FOR ARGUMENT.                                                     FCC1091        5     A     
 ARITH                                                                                     FCC0412       20     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2228    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              MX0    1                                                               FCC0412       21     A     
 ARITH              SA4    X1+2                                                            FCC0412       22     A     
 ARITH              LX0    1+45                                                            FCC0412       23     A     
 ARITH              BX7    X0+X2                                                           FCC0412       24     A     
 ARITH              SA3    XMIT                                                            FCC0412       25     A     
 ARITH              SA7    A2          SET USED BIT                                        FCC0412       26     A     
 ARITH              MX0    -16                                                             FCC0412       27     A     
 ARITH              BX6    -X0*X4                                                          FCC0412       28     A     
 ARITH              SA2    NRLN                                                            FCC0412       29     A     
 ARITH              SA6    PARAMS+1                                                        FCC0412       30     A     
 ARITH              BX7    X2                                                              FCC0412       31     A     
 ARITH              SX6    X2+1                                                            FCC0412       32     A     
 ARITH              SA7    PARAMS                                                          FCC0412       33     A     
 ARITH              SA6    A2          NRLN = NRLN + 1                                     FCC0412       34     A     
 ARITH              SX5    T.INT                                                           FCC0412       35     A     
 ARITH              RJ     MACOUT                                                          FCC0412       36     A     
 ARITH              MX7    0                                                               FCC0412       37          I
          -FCC1091
 ARITH              SA7    ROFG                                                            FCC0412       38          I
          -FCC1091
 ARITH              EQ     INGEN2D2                                                        FCC0412       39          I
          -FCC1091
 ARITH                                                                                     FCC0412       40          I
          -FCC1091
 ARITH     INGEN2E  BX6    X1                                                              FCC0412       41          I
          -FCC1091
 ARITH              SA6    RL2                                                             ARITH       5321          I
          -FCC1091
 ARITH              SB2    T.INT                                                           ARITH       5322          I
          -FCC1091
 ARITH              PX7    B2,X2       SET TYPE = INTEGER                                  ARITH       5323          I
          -FCC1091
 ARITH              SA7    A2                                                              ARITH       5324          I
          -FCC1091
 ARITH              EQ     INGEN2D2                                                        ARITH       5325     A     
 ARITH                                                                                     ARITH       5326     A     
 ARITH     INGEN2D1 MX0    1                                                               ARITH       5327     A     
 ARITH              SA4    X1+2              GET RI OF RLI                                 ARITH       5328     A     
 ARITH              LX0    1+45                                                            ARITH       5329     A     
 ARITH              BX7    X0+X2             SET USED BIT                                  ARITH       5330     A     
 ARITH              SA7    A2                                                              ARITH       5331     A     
 ARITH              MX0    60-16                                                           ARITH       5332     A     
 ARITH              SA6    PARAMS+2          STORE SHIFT COUNT                             ARITH       5333     A     
 ARITH              BX6    -X0*X4                                                          ARITH       5334     A     
 ARITH              SA2    NRLN                                                            ARITH       5335     A     
 ARITH              SA6    PARAMS                                                          ARITH       5336     A     
 ARITH              BX7    X2                                                              ARITH       5337     A     
 ARITH              SX6    X2+1              NRLN = NRLN+1                                 ARITH       5338     A     
 ARITH              SA7    PARAMS+1          STORE R NUMBER OF RESULT                      ARITH       5339     A     
 ARITH              SA6    A2                                                              ARITH       5340     A     
 ARITH              SX5    T.INT                                                           ARITH       5341     A     
 ARITH              RJ     MACOUT            OUTPUT MACRO                                  ARITH       5342     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2229    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA1    LASTR                                                           ARITH       5343     A     
 ARITH              MX0    1                                                               ARITH       5344     A     
 ARITH              SA2    X1                                                              ARITH       5345     A     
 ARITH              LX0    1+44        SET XMT BIT IN HEADER WORD                          ARITH       5346     A     
 ARITH              BX6    X0+X2                                                           ARITH       5347     A     
 ARITH              SA6    A2                                                              ARITH       5348     A     
 ARITH              BX7    X7-X7                                                           ARITH       5349          I
          -FCC1091
 ARITH                                                                                     FCC1091        6     A     
 ARITH     INGEN2D2 BX7    X7-X7                                                           FCC1091        7     A     
 ARITH              SA7    ROFG              CLEAR REVERSE OPERAND FLAG                    ARITH       5350     A     
 ARITH     INGEN2D2 RJ     FNDOP             FIND AN UNUSED OP                             ARITH       5351          I
          -FCC1091
 ARITH              RJ     FNDOP                                                           FCC1091        8     A     
 ARITH              SA6    RL1                                                             ARITH       5352     A     
 ARITH              EQ     INGEN                                                           ARITH       5353     A     
 ARITH              SPACE  3                                                               ARITH       5354     A     
 ARITH     INGEN2Z  SA1    RL1                                                             ARITH       5355     A     
 ARITH              SA2       RL2                                                          ARITH       5356     A     
 ARITH              SA3    X1                                                              ARITH       5357     A     
 ARITH              MX0       1                                                            ARITH       5358     A     
 ARITH              SA4    X2                                                              ARITH       5359     A     
 ARITH              LX0       46        TURN ON USED BIT IN OPD                            ARITH       5360     A     
 ARITH              BX6    X3+X0                                                           ARITH       5361     A     
 ARITH              BX7      X4+X0           SET USED BIT FOR RL2                          ARITH       5362     A     
 ARITH              SA6    A3                                                              ARITH       5363     A     
 ARITH              SA7    A4                                                              ARITH       5364     A     
 ARITH              SA3    X1+2         GET RN,S OF OPDS                                   ARITH       5365     A     
 ARITH              MX0    60-16                                                           ARITH       5366     A     
 ARITH              SA4    X2+2                                                            ARITH       5367     A     
 ARITH              BX6    -X0*X3                                                          ARITH       5368     A     
 ARITH              BX7    -X0*X4                                                          ARITH       5369     A     
 ARITH              SA1    ROFG                                                            ARITH       5370     A     
 ARITH              PL     X1,MOP22     IF OPDS WERENT REVERSED                            ARITH       5371     A     
 ARITH              MX7    0                                                               ARITH       5372     A     
 ARITH              BX6   -X0*X4                                                           ARITH       5373     A     
 ARITH              SA7    ROFG         RESET ROFG                                         ARITH       5374     A     
 ARITH              BX7   -X0*X3                                                           ARITH       5375     A     
 ARITH     MOP22    SA6    PARAMS+1     RJ                                                 ARITH       5376     A     
 ARITH              SA7    PARAMS+2     RK                                                 ARITH       5377     A     
 ARITH              SX6    X6+1         IN CASE DBL LNGTH                                  ARITH       5378     A     
 ARITH              SA6       PARAMS+4                                                     ARITH       5379     A     
 ARITH              SX7    X7+1                                                            ARITH       5380     A     
 ARITH              SA7       PARAMS+5                                                     ARITH       5381     A     
 ARITH              SA2       NARN                                                         ARITH       5382     A     
 ARITH              BX6    X2                                                              ARITH       5383     A     
 ARITH              SA6       PARAMS                                                       ARITH       5384     A     
 ARITH              SX7    X2+1                                                            ARITH       5385     A     
 ARITH              SA7       PARAMS+3                                                     ARITH       5386     A     
 ARITH              SA1       OPDTYP                                                       ARITH       5387     A     
 ARITH              SA3       SLBMD                                                        ARITH       5388     A     
 ARITH              SB2    X1-T.DBL                                                        ARITH       5389     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2230    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              ZR     B2,MOP25     IF DBL                                             ARITH       5390     A     
 ARITH              SB2    X1-T.CPLX                                                       ARITH       5391     A     
 ARITH              NZ     B2,MOP26     IF SNGL                                            ARITH       5392     A     
 ARITH     MOP25    SX7    X7+1                                                            ARITH       5393     A     
 ARITH              SA3       DLBMD                                                        ARITH       5394     A     
 ARITH     MOP26    SA7       NARN                                                         ARITH       5395     A     
 ARITH              SA1    SMACD                                                           ARITH       5396     A     
 ARITH              SB2    X1                                                              ARITH       5397     A     
 ARITH              PX3    B2,X3        X3 NOW=ARITH,S MACRO DESCRIPTOR WORD               ARITH       5398     A     
 ARITH              SA5       TYPEWD                                                       ARITH       5399     A     
 ARITH              RJ        MACOUT                                                       ARITH       5400     A     
 ARITH              RJ        FNDOP     FIND UNUSED OP PRECEDING RL2. RETURN WITH          ARITH       5401     A     
 ARITH              SA6    RL1            ADR IN X6                                        ARITH       5402     A     
 ARITH              ZR        INGEN                                                        ARITH       5403     A     
 ARITH    *     END OF INGEN                                                               ARITH       5404     A     
 ARITH    *                                                                                ARITH       5405     A     
 ARITH    *                                                                                ARITH       5406     A     
 ARITH    *     MOP1 IF LOGICAL OPERANDS AND NON-LOG.OPERATOR                              ARITH       5407     A     
 ARITH     MOP1     EERR      ERMSG10                                                      ARITH       5408     A     
 ARITH    *                                                                                ARITH       5409     A     
 ARITH    *     MOP17 IF OPDS NOT TYPE REAL                                                ARITH       5410     A     
 ARITH     MOP17    SX2    X1-T.INT                                                        ARITH       5411     A     
 ARITH              SA3       SMACD                                                        ARITH       5412     A     
 ARITH              SX6    X3+1                                                            ARITH       5413     A     
 ARITH              ZR    X2,MOP24      IF TINT                                            ARITH       5414     A     
 ARITH              SX2    X1-T.OCT                                                        ARITH       5415     A     
 ARITH              PL     X2,MOP30     IF BOTH OPDS ARE OCT OR HOL                        ARITH       5416     A     
 ARITH              SX2    X1-T.DBL                                                        ARITH       5417     A     
 ARITH              SX6    X6+1                                                            ARITH       5418     A     
 ARITH              ZR     X2,MOP24     IF TDBL                                            ARITH       5419     A     
 ARITH              SX6    X6+1         HERE IF TYPE CMPX                                  ARITH       5420     A     
 ARITH              SA6    SMACD                                                           ARITH       5421     A     
 ARITH              BX1    X6                                                              ARITH       5422     A     
 ARITH              ZR     MOPROUND          CHECK FOR POSSIBLE COMPLEX ROUND              ARITH       5423     A     
 ARITH     MOP24    SA6       SMACD     SAVE NEW MACRO CODE                                ARITH       5424     A     
 ARITH              ZR        MOP12                                                        ARITH       5425     A     
 ARITH    *                                                                                ARITH       5426     A     
 ARITH    *     MOP7 IF MIXED MODE OPERANDS, LOWER TYPE NOT CONST.                         ARITH       5427     A     
 ARITH     MOP7     SA1       TYPEWD                                                       ARITH       5428     A     
 ARITH              SA5       RL1       X5=ADR OF R-ENTRY TO BE CONVERTED                  ARITH       5429     A     
 ARITH              SB5    X1           B5=TYPE TO CONVERT TO                              ARITH       5430     A     
 ARITH              RJ        MODCH                                                        ARITH       5431     A     
 ARITH              SA6       RL1                                                          ARITH       5432     A     
 ARITH              ZR        MOP5                                                         ARITH       5433     A     
 ARITH    *                                                                                ARITH       5434     A     
 ARITH    *                                                                                ARITH       5435     A     
 ARITH     MOP8     SA1       ROFG      RL1 AND RL2 HAVE IN EFFECT BEEN REVERSED           ARITH       5436     A     
 ARITH              BX6   -X1           MIGHT HAVE PREVIOUSLY BEEN REVERSED                ARITH       5437     A     
 ARITH              SA6       ROFG                                                         ARITH       5438     A     
 ARITH              ZR        MOP5                                                         ARITH       5439     A     
 ARITH    *                                                                                ARITH       5440     A     
 ARITH    *                                                                                ARITH       5441     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2231    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    *     TM3 FROM CMPARE IF H(OP)=H(OM).                                            ARITH       5442     A     
 ARITH     TM3      SB5    B3-UMOP      IS OM U-Y                                          ARITH       5443     A     
 ARITH              SB7    B6-2                                                            ARITH       5444     A     
 ARITH              ZR     B5,TM3A      IF YES                                             ARITH       5445     A     
 ARITH              NG     B7,POPOP     IF HIERARCHY IS L2                                 ARITH       5446     A     
 ARITH              LX3    59-18        PUT B18 OF OP IN B0                                ARITH       5447     A     
 ARITH              NG     X3,TM3B      IF GP FLG BIT ON                                   ARITH       5448     A     
 ARITH              SB5    B4-EL.STAR                                                      ARITH       5449     A     
 ARITH              ZR     B5,TM3C      IF *                                               ARITH       5450     A     
 ARITH              SB5    B4-MLTSOP                                                       ARITH       5451     A     
 ARITH              NZ     B5,POPOP     IF NO                                              ARITH       5452     A     
 ARITH     TM3C     SB5    B3-EL.SLASH                                                     ARITH       5453     A     
 ARITH              ZR       B5,POPOP  IF INTEGER DIVIDE                                   ARITH       5454     A     
 ARITH              SA1      FF                                                            ARITH       5455     A     
 ARITH              NG     X1,POPOP     IF YES                                             ARITH       5456     A     
 ARITH              ZR        ADDOP     NO                                                 ARITH       5457     A     
 ARITH    *     TM3B ENTERED WITH B3=OM OP CODE                                            ARITH       5458     A     
 ARITH     TM3B     SB5    B3-RMINOC                                                       ARITH       5459     A     
 ARITH              ZR     B5,POPOP      POP OPERATOR IF OP IS REVERSE MINUS OR            ARITH       5460     A     
 ARITH              SB5    B3-RDVDOC         REVERSE DIVIDE.                               ARITH       5461     A     
 ARITH              ZR     B5,POPOP                                                        ARITH       5462     A     
 ARITH              SA1    RL2           TURN ON GPTU BIT IN LAST RL.                      ARITH       5463     A     
 ARITH              SX6    B3                                                              ARITH       5464     A     
 ARITH              SA2    X1                                                              ARITH       5465     A     
 ARITH              MX3    1                                                               ARITH       5466     A     
 ARITH              SA6       TS1                                                          ARITH       5467     A     
 ARITH              LX3    47                                                              ARITH       5468     A     
 ARITH              BX6    X2+X3                                                           ARITH       5469     A     
 ARITH              SA6    A2                                                              ARITH       5470     A     
 ARITH              SA1       RL1       RESET RLS                                          ARITH       5471     A     
 ARITH              BX7    X1                                                              ARITH       5472     A     
 ARITH              SA7       RL2                                                          ARITH       5473     A     
 ARITH              SA1       OP        SET CGP BIT IN OP (CONFIRMED GP BIT)               ARITH       5474     A     
 ARITH              MX0       1                                                            ARITH       5475     A     
 ARITH              LX0       23                                                           ARITH       5476     A     
 ARITH              BX6    X0+X1                                                           ARITH       5477     A     
 ARITH              SA6       OP                                                           ARITH       5478     A     
 ARITH              RJ        FNDOP                                                        ARITH       5479     A     
 ARITH              SA1       TS1                                                          ARITH       5480     A     
 ARITH              SA6       RL1                                                          ARITH       5481     A     
 ARITH              SB3    X1                                                              ARITH       5482     A     
 ARITH              SB5    B3-EL.MINUS       IS OM = -Y                                    ARITH       5483     A     
 ARITH              NZ     B5,TM3D      IF NO                                              ARITH       5484     A     
 ARITH              SB2       RMINOC                                                       ARITH       5485     A     
 ARITH     TM3E     SA1    OSPTR                                                           ARITH       5486     A     
 ARITH              SA2    X1+OPSTAK                                                       ARITH       5487     A     
 ARITH              PX6    B2,X2                                                           ARITH       5488     A     
 ARITH              SA6    A2                                                              ARITH       5489     A     
 ARITH              ZR        ADDOP                                                        ARITH       5490     A     
 ARITH     TM3D     SB5    B3-EL.SLASH       IS ON = /Y                                    ARITH       5491     A     
 ARITH              NZ     B5,ADDOP     IF NO                                              ARITH       5492     A     
 ARITH              SB2       RDVDOC                                                       ARITH       5493     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2232    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              ZR        TM3E                                                         ARITH       5494     A     
 ARITH    *                                                                                ARITH       5495     A     
 ARITH    *     TM3A IF OM=U- AND H(OP) =H(OM)                                             ARITH       5496     A     
 ARITH     TM3A     SB7    B4-EL.PLUS                                                      ARITH       5497     A     
 ARITH              EQ     B7,B0,TM3A2       PLUS                                          ARITH       5498     A     
 ARITH              SA1    OSPTR                                                           ARITH       5499     A     
 ARITH              SB2    X1                                                              ARITH       5500     A     
 ARITH              SA2    B2+OPSTAK                                                       ARITH       5501     A     
 ARITH              EQ    POPOP                                                            ARITH       5502     A     
 ARITH    TM3A2     BSS    0                                                               ARITH       5503     A     
 ARITH              SA1    OSPTR             REMOVE U- FROM  OS                            ARITH       5504     A     
 ARITH              SA2    RMIOP        PUT R- IN OP                                       ARITH       5505     A     
 ARITH              SX6    X1-1                                                            ARITH       5506     A     
 ARITH              BX7    X2                                                              ARITH       5507     A     
 ARITH              SA6    OSPTR                                                           ARITH       5508     A     
 ARITH              SA7    OP                                                              ARITH       5509     A     
 ARITH              EQ     ADDOP                                                           ARITH       5510     A     
 ARITH              TITLE  ROP - RELATIONAL OP POPPED FROM STACK                           ARITH       5511     A     
 ARITH    *         ROP - RELATIONAL OP POPPED                                             ARITH       5512     A     
 ARITH                                                                                     ARITH       5513     A     
 ARITH     ROP      SA5    OP                OP THAT POPPED THE RELATIONAL                 ARITH       5514     A     
 ARITH              SB7    EL.LE                                                           ARITH       5515     A     
 ARITH              SB3    B3-B7             CHANGE ELIST CODE TO ORDINAL                  ARITH       5516     A     
 ARITH              UX0    B6,X5       B6 = ELIST CODE(OP)                                 ARITH       5517     A     
 ARITH              SX7    X5-5                                                            ARITH       5518     A     
 ARITH              NZ     X7,ROP1           IF NOT AN RELATIONAL OP                       ARITH       5519     A     
 ARITH              EERR   ERMSG26           SYNTAX ERROR                                  ARITH       5520     A     
 ARITH                                                                                     ARITH       5521     A     
 ARITH    *         ISSUE A DIAGNOSTIC IF EITHER OPERAND IS TYPE LOGICAL.                  ARITH       5522     A     
 ARITH                                                                                     ARITH       5523     A     
 ARITH     ROP1     UX3    B4,X3             B4 = MODE(RL1)                                ARITH       5524     A     
 ARITH              SB2    T.LOG                                                           ARITH       5525     A     
 ARITH              UX4    B7,X4             B7 = MODE(RL2)                                ARITH       5526     A     
 ARITH              EQ     B2,B4,MOP1  IF MODE(RL1) = LOGICAL                              ARITH       5527     A     
 ARITH              EQ     B2,B7,MOP1  IF MODE(RL2) = LOGICAL                              ARITH       5528     A     
 ARITH                                                                                     ARITH       5529     A     
 ARITH    *         ISSUE AN ANSI DIAGNOSTIC IF EITHER OPERAND IS COMPLEX.                 ARITH       5530     A     
 ARITH                                                                                     ARITH       5531     A     
 ARITH              SB2    T.CPLX                                                          ARITH       5532     A     
 ARITH              EQ     B4,B2,ROP2        IF TYPE COMPLEX                               ARITH       5533     A     
 ARITH              NE     B7,B2,ROP3        IF NOT                                        ARITH       5534     A     
 ARITH                                                                                     ARITH       5535     A     
 ARITH     ROP2     PX6    B3,X6             SAVE OP CODE AND MACRO NUMBER                 ARITH       5536     A     
 ARITH              SA6    SMACD                                                           ARITH       5537     A     
 ARITH              USASDM ERMSG43           ISSUE DIAGNOSTIC                              ARITH       5538     A     
 ARITH              SA1    SMACD                                                           ARITH       5539     A     
 ARITH              UX6    B3,X1             RESTORE REGISTERS                             ARITH       5540     A     
 ARITH              SA5    OP                                                              ARITH       5541     A     
 ARITH              UX0    B6,X5                                                           ARITH       5542     A     
 ARITH                                                                                     ARITH       5543     A     
 ARITH    *         SEE IF THIS IS THE ONLY RELATIONAL EXPR IN A IF STMT                   ARITH       5544     A     
 ARITH    *         AND IF SO, OPTIMIZE IT BY CHANGING THE RELATIONAL INTO                 ARITH       5545     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2233    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    *         A SUBTRACT.                                                            ARITH       5546     A     
 ARITH                                                                                     ARITH       5547     A     
 ARITH     ROP3     SB7    EL.)                                                            ARITH       5548     A     
 ARITH              NE     B6,B7,MOP         IF RELATIONAL OP NOT POPPED BY A )            ARITH       5549     A     
 ARITH              SA5    OSPTR                                                           ARITH       5550     A     
 ARITH              SX7    X5-2                                                            ARITH       5551     A     
 ARITH              NZ     X7,MOP            IF OPSTACK CONATINS MORE THAN A )             ARITH       5552     A     
 ARITH              SA5    TRCFLG                                                          ARITH       5553     A     
 ARITH              PL     X5,MOP      IF DEBUG TRACING ON BYPASS OPTIMIZATION             ARITH       5554     A     
 ARITH              SA5    TYPE                                                            ARITH       5555     A     
 ARITH              SX7    X5-16                                                           ARITH       5556     A     
 ARITH              SX5    X5-17                                                           ARITH       5557     A     
 ARITH              ZR     X7,ROP4           IF AN IF STMT                                 ARITH       5558     A     
 ARITH              NZ     X5,MOP            IF NOT AN IF STMT                             ARITH       5559     A     
 ARITH                                                                                     ARITH       5560     A     
 ARITH    *         SET IFRELOP TO  1   2   3   4   5   6                                  ARITH       5561     A     
 ARITH    *                         GT  EQ  GE  LT  NE  LE                                 ARITH       5562     A     
 ARITH                                                                                     ARITH       5563     A     
 ARITH     ROP4     SB4    B3+B3                                                           ARITH       5564     A     
 ARITH              SX5    251346B           CONVERSION TABLE                              ARITH       5565     A     
 ARITH              MX0    60-3                                                            ARITH       5566     A     
 ARITH              SB4    B3+B4             3*ORD                                         ARITH       5567     A     
 ARITH              AX5    B4,X5                                                           ARITH       5568     A     
 ARITH              BX7    -X0*X5                                                          ARITH       5569     A     
 ARITH              SA7    IFRELOP                                                         ARITH       5570     A     
 ARITH                                                                                     ARITH       5571     A     
 ARITH    *         CHANGE GT TO LT AND LE TO GE BY SWAPPING OPERANDS                      ARITH       5572     A     
 ARITH    *         THIS IS DONE BECAUSE LT AND GE ARE MACHINE INSTRUCTIONS                ARITH       5573     A     
 ARITH                                                                                     ARITH       5574     A     
 ARITH              SX5    X7-1                                                            ARITH       5575     A     
 ARITH              SB7    4                                                               ARITH       5576     A     
 ARITH              ZR     X5,ROP5           CHANGE GT TO LT                               ARITH       5577     A     
 ARITH              SX5    X7-6                                                            ARITH       5578     A     
 ARITH              NZ     X5,ROP6           CHANGE LE TO GE                               ARITH       5579     A     
 ARITH              SB7    3                                                               ARITH       5580     A     
 ARITH     ROP5     SA1    RL1                                                             ARITH       5581     A     
 ARITH              SA2    RL2                                                             ARITH       5582     A     
 ARITH              SX7    B7                                                              ARITH       5583     A     
 ARITH              SA7    A7                UPDATE IFRELOP                                ARITH       5584     A     
 ARITH              BX6    X2                                                              ARITH       5585     A     
 ARITH              LX7    X1                SWAP( RL1 , RL2 )                             ARITH       5586     A     
 ARITH              SA6    A1                                                              ARITH       5587     A     
 ARITH              SA7    A2                                                              ARITH       5588     A     
 ARITH                                                                                     ARITH       5589     A     
 ARITH    *         OPTIMIZE EXPRESSIONS OF THE FORM:                                      ARITH       5590          I
          -FCC0514
 ARITH    *          1) EXPR.RO.0 BY ELIMINATING THE LOAD OF 0 AND THE SUBTRACT            ARITH       5591          I
          -FCC0514
 ARITH    *          2) FLAGGING EXPRESSIONS OF THE FORM EXPR.RO.CON WHERE                 ARITH       5592          I
          -FCC0514
 ARITH    *             ABS(CON) " 0 SINCE THE RESULT OF EXPR-CON CAN NEVER BE -0          ARITH       5593          I
          -FCC0514
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2234    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH                                                                                     ARITH       5594          I
          -FCC0514
 ARITH     ROP6     SA5    RL2                                                             ARITH       5595          I
          -FCC0514
 ARITH              SX0    31B                                                             ARITH       5596          I
          -FCC0514
 ARITH              SA1    X5                                                              ARITH       5597          I
          -FCC0514
 ARITH              LX0    54                BIT MASK FOR INTEGER,REAL,OCTAL MODES         ARITH       5598          I
          -FCC0514
 ARITH              UX7    B2,X1                                                           ARITH       5599          I
          -FCC0514
 ARITH              LX2    B2,X0                                                           ARITH       5600          I
          -FCC0514
 ARITH              LX7    59-47             POSITION CON BIT                              ARITH       5601          I
          -FCC0514
 ARITH              BX4    X7*X2                                                           ARITH       5602          I
          -FCC0514
 ARITH              PL     X4,ROP9           IF RL2 NOT AN INT,REAL,OCTAL CONSTANT         ARITH       5603          I
          -FCC0514
 ARITH              BX1    -X1                                                             ARITH       5604          I
          -FCC0514
 ARITH              RJ     NEWCON            GET VALUE OF CON                              ARITH       5605          I
          -FCC0514
 ARITH              NZ     X6,ROP7           IF CON " 0                                    ARITH       5606          I
          -FCC0514
 ARITH              NG     X6,ROP9           IF CON = -0                                   ARITH       5607          I
          -FCC0514
 ARITH                                                                                     ARITH       5608          I
          -FCC0514
 ARITH    *         LOAD OF 0 - NO OP THE MACRO AND FORGET ABOUT THE SUBTRACT              ARITH       5609          I
          -FCC0514
 ARITH                                                                                     ARITH       5610          I
          -FCC0514
 ARITH              UX0    B2,X1                                                           ARITH       5611          I
          -FCC0514
 ARITH              BX7    -X1               NO OP THE MACRO                               ARITH       5612          I
          -FCC0514
 ARITH              SA2    IFRELOP                                                         ARITH       5613          I
          -FCC0514
 ARITH              MX0    1                                                               ARITH       5614          I
          -FCC0514
 ARITH              SA3    RL1                                                             ARITH       5615          I
          -FCC0514
 ARITH              SA5    X3                                                              ARITH       5616          I
          -FCC0514
 ARITH              BX6    X0+X2             SET NO SUBTRACT FLAG FOR IF PROC              ARITH       5617          I
          -FCC0514
 ARITH              SA7    A1                                                              ARITH       5618          I
          -FCC0514
 ARITH              UX5    B1,X5                                                           ARITH       5619          I
          -FCC0514
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2235    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA6    A2                                                              ARITH       5620          I
          -FCC0514
 ARITH              BX6    X3                                                              ARITH       5621          I
          -FCC0514
 ARITH              SA6    RL2               RL2 = RL1                                     ARITH       5622          I
          -FCC0514
 ARITH              MX7    0                                                               ARITH       5623          I
          -FCC0514
 ARITH              SA7    A3                RL1 = 0                                       ARITH       5624          I
          -FCC0514
 ARITH              EQ     B1,B2,CMPARE                                                    ARITH       5625          I
          -FCC0514
 ARITH              POSTERR   NR=ERMSG44,SEV=ANSI,RETURN=CMPARE                            ARITH       5626          I
          -FCC0514
 ARITH                                                                                     ARITH       5627          I
          -FCC0514
 ARITH     ROP7     SA5    IFRELOP                                                         ARITH       5628          I
          -FCC0514
 ARITH              MX0    1                                                               ARITH       5629          I
          -FCC0514
 ARITH              LX0    1+58                                                            ARITH       5630          I
          -FCC0514
 ARITH              BX7    X0+X5             SET BIT 58 TO INDICATE CANNOT HAVE -0         ARITH       5631          I
          -FCC0514
 ARITH              SA7    A5                                                              ARITH       5632          I
          -FCC0514
 ARITH     ROP8     SX6    M.SUB                                                           ARITH       5633          I
          -FCC0514
 ARITH              EQ     MOP               GO OUTPUT THE SUBTRACT                        ARITH       5634          I
          -FCC0514
 ARITH                                                                                     ARITH       5635          I
          -FCC0514
 ARITH     ROP9     SA5    RL1                                                             ARITH       5636          I
          -FCC0514
 ARITH              SA1    X5                                                              ARITH       5637          I
          -FCC0514
 ARITH              UX7    B2,X1                                                           ARITH       5638          I
          -FCC0514
 ARITH              LX2    B2,X0                                                           ARITH       5639          I
          -FCC0514
 ARITH              LX7    59-47                                                           ARITH       5640          I
          -FCC0514
 ARITH              BX4    X7*X2                                                           ARITH       5641          I
          -FCC0514
 ARITH              PL     X4,ROP8           IF RL1 NOT AN INT,REAL,OCTAL CON              ARITH       5642          I
          -FCC0514
 ARITH              BX1    -X1                                                             ARITH       5643          I
          -FCC0514
 ARITH              RJ     NEWCON            GET VALUE OF CON                              ARITH       5644          I
          -FCC0514
 ARITH              NZ     X6,ROP7           IF CON " 0                                    ARITH       5645          I
          -FCC0514
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2236    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              NG     X6,ROP8           IF CON = -0                                   ARITH       5646          I
          -FCC0514
 ARITH                                                                                     ARITH       5647          I
          -FCC0514
 ARITH    *         LOAD OF 0 NO OP THE MACRO AND ELIMINATE THE SUBTRACT                   ARITH       5648          I
          -FCC0514
 ARITH                                                                                     ARITH       5649          I
          -FCC0514
 ARITH              UX0    B1,X1                                                           ARITH       5650          I
          -FCC0514
 ARITH              SA4    IFRELOP                                                         ARITH       5651          I
          -FCC0514
 ARITH              BX7    -X1                                                             ARITH       5652          I
          -FCC0514
 ARITH              SA5    RL2                                                             ARITH       5653          I
          -FCC0514
 ARITH              MX6    0                                                               ARITH       5654          I
          -FCC0514
 ARITH              SA2    X5                                                              ARITH       5655          I
          -FCC0514
 ARITH              SA6    RL1               RL1 = 0                                       ARITH       5656          I
          -FCC0514
 ARITH              SX4    X4-1                                                            ARITH       5657          I
          -FCC0514
 ARITH              UX2    B2,X2                                                           ARITH       5658          I
          -FCC0514
 ARITH              SA7    A1                NO OP THE MACRO                               ARITH       5659          I
          -FCC0514
 ARITH              SB4    X4                COMPLEMENT MAGNITUDE COMPARISION OPS          ARITH       5660          I
          -FCC0514
 ARITH              LX4    1                                                               ARITH       5661          I
          -FCC0514
 ARITH              SB4    B4+X4                                                           ARITH       5662          I
          -FCC0514
 ARITH              SX5    351624B                                                         ARITH       5663          I
          -FCC0514
 ARITH              MX0    60-3                                                            ARITH       5664          I
          -FCC0514
 ARITH              AX5    B4,X5                                                           ARITH       5665          I
          -FCC0514
 ARITH              BX7    -X0*X5                                                          ARITH       5666          I
          -FCC0514
 ARITH              MX1    1                                                               ARITH       5667          I
          -FCC0514
 ARITH              BX6    X1+X7             SET NO SUBTRACT BIT                           ARITH       5668          I
          -FCC0514
 ARITH              SA6    A4                                                              ARITH       5669          I
          -FCC0514
 ARITH              EQ     B1,B2,CMPARE                                                    ARITH       5670          I
          -FCC0514
 ARITH              POSTERR   NR=ERMSG44,SEV=ANSI,RETURN=CMPARE                            ARITH       5671          I
          -FCC0514
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2237    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     ROP6     SX6    M.SUB                                                           FCC0514        6     A     
 ARITH              EQ     MOP                                                             FCC0514        7     A     
 ARITH              TITLE                                                                  ARITH       5672     A     
 ARITH    *         SFLPR - STATEMENT FUNCTION ( POPPED                                    ARITH       5673     A     
 ARITH     SFLPR    UX7    B2,X4             B2 = MODE OF RESULT                           ARITH       5674     A     
 ARITH              BX5    X2                                                              ARITH       5675     A     
 ARITH              AX0    44                                                              ARITH       5676     A     
 ARITH              SB5    X0                B5 = TYPE OF ASF                              ARITH       5677     A     
 ARITH              EQ     B2,B5,LPAR        IF TYPES THE SAME                             ARITH       5678     A     
 ARITH              SB6    T.OCT                                                           ARITH       5679          I
          -FCC1983
 ARITH              NE     B2,B6,SFLPR1      IF MODE OF RESULT ISNT OCTAL                  ARITH       5680          I
          -FCC1983
 ARITH              PX7    B5,X4                                                           ARITH       5681          I
          -FCC1983
 ARITH              SA7    A4                CHANGE MODE OF RESULT TO THAT OF ASF          ARITH       5682          I
          -FCC1983
 ARITH     SFLPR1   RJ     MODCH             CHANGE TYPE TO THAT OF ASF                    ARITH       5683          I
          -FCC1983
 ARITH              SA1    OSPTR                                                           ARITH       5684          I
          -FCC1983
 ARITH              MX7    1                                                               FCC1983        9     A     
 ARITH              SA7    ASFMF       STATEMENT FUNCTION FLAG                             FCC1983       10     A     
 ARITH              RJ     MODCH       CHANGE TYPE TO THAT OF ASF                          FCC1983       11     A     
 ARITH              MX7    0                                                               FCC1983       12     A     
 ARITH              SA7    ASFMF       RESET STATEMENT FUNCTION FLAG                       FCC1983       13     A     
 ARITH              SA1    MCOPDA      MODE CHANGE - OPERAND ADDRESS                       FCC1983       14     A     
 ARITH              SA2    X1                                                              FCC1983       15     A     
 ARITH              UX7    B2,X2                                                           FCC1983       16     A     
 ARITH              SB6    T.OCT                                                           FCC1983       17     A     
 ARITH              NE     B2,B6,SFLPR1 IF MODE OF RESULT ISNT OCTAL                       FCC1983       18     A     
 ARITH              SA1    MCTYP       MODE CHANGE TYPE                                    FCC1983       19     A     
 ARITH              SB5    X1                                                              FCC1983       20     A     
 ARITH              PX7    B5,X7       UPDATE                                              FCC1983       21     A     
 ARITH              SA7    A2          SAVE                                                FCC1983       22     A     
 ARITH     SFLPR1   SA1    OSPTR                                                           FCC1983       23     A     
 ARITH              SA2    OPSTAK+1+X1       LOAD SF( AND FALL THROUGH                     ARITH       5685     A     
 ARITH              SA6    RL2                                                             ARITH       5686     A     
 ARITH     LPAR     SA3       OP        RESTORE PREVIOUS MODE                              ARITH       5687     A     
 ARITH              SA1    OSPTR                                                           ARITH       5688     A     
 ARITH              SA2    OPSTAK+1+X1                                                     ARITH       5689     A     
 ARITH              SB2    EL.)                                                            ARITH       5690     A     
 ARITH              MX0    60-3                                                            ARITH       5691     A     
 ARITH              AX2    19                                                              ARITH       5692     A     
 ARITH              BX6   -X0*X2                                                           ARITH       5693     A     
 ARITH              UX0 B3,X3                                                              ARITH       5694     A     
 ARITH              SA6    EMODE                                                           ARITH       5695     A     
 ARITH              NE  B2,B3,LPAR1     IF -(- NOT POPPED BY -)-                           ARITH       5696     A     
 ARITH              SA1       OSPTR     TAKE CARE OF SAVED ARLPT                           ARITH       5697     A     
 ARITH              SA2       TYPE      SEE IF END OF IF EXPRESSION                        ARITH       5698     A     
 ARITH              SX6    X1-1         REDUCE OSPTR FOR SAVED ARLPT                       ARITH       5699     A     
 ARITH              NZ     X6,LPAR2     IF OPSTAK NOT EMPTY                                ARITH       5700     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2238    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SB2    X2-16                                                           ARITH       5701     A     
 ARITH              SB3    X2-17                                                           ARITH       5702     A     
 ARITH              ZR     B2,OUT3      IF END OF IF EXPR                                  ARITH       5703     A     
 ARITH              ZR     B3,OUT3      '                                                  ARITH       5704     A     
 ARITH     LPAR2    SA2       EPOINT                                                       ARITH       5705     A     
 ARITH              SA3    X2                                                              ARITH       5706     A     
 ARITH              SA6       OSPTR                                                        ARITH       5707     A     
 ARITH              UX0 B2,X3                                                              ARITH       5708     A     
 ARITH              SB3    EL.DSTR                                                         ARITH       5709     A     
 ARITH              NE  B2,B3,NEXTE     IF STATE FUN OR PAREN EXPR NOT FLWD BY **          ARITH       5710     A     
 ARITH              SA1    X6+OPSTAK+1  GET SAVED ARLPT                                    ARITH       5711     A     
 ARITH              SX7    X1                                                              ARITH       5712     A     
 ARITH              AX1       18                                                           ARITH       5713     A     
 ARITH              SA7       STBASE                                                       ARITH       5714     A     
 ARITH              BX6    X1                                                              ARITH       5715     A     
 ARITH              SA6       NSFR                                                         ARITH       5716     A     
 ARITH              ZR        NEXTE                                                        ARITH       5717     A     
 ARITH    *                                                                                ARITH       5718     A     
 ARITH     LPAR1    EERR      ERMSG3    NO MATCHING RT PARENS                              ARITH       5719     A     
 ARITH    *                                                                                ARITH       5720     A     
 ARITH    *     EOSPO IF (OPERATOR BUFFER CLOSED OUT) END OF STATEMENT OP POPPED           ARITH       5721     A     
 ARITH     EOSPO    SA1    OP           IS OP=)   (FROM OPSWTB)                            ARITH       5722     A     
 ARITH              UX0 B3,X1                                                              ARITH       5723     A     
 ARITH              SB1    B3-EL.)                                                         ARITH       5724     A     
 ARITH              ZR     B1,EQPO1     IF YES                                             ARITH       5725     A     
 ARITH              SA1       TYPE      GET STATE TYPE                                     ARITH       5726     A     
 ARITH              SB2    X1-RPLST                                                        ARITH       5727     A     
 ARITH              ZR     B2,OUT       IF REPL STATE                                      ARITH       5728     A     
 ARITH              ZR        GTOUT                                                        ARITH       5729     A     
 ARITH              TITLE              STORES PROCESSING                                   ARITH       5730     A     
 ARITH     EQPO1    EERR   ERMSG4       NO MATCHING LEFT PAREN.                            ARITH       5731     A     
 ARITH    *                                                                                ARITH       5732     A     
 ARITH    *     EQPO IF =SIGN POPPED.                                                      ARITH       5733     A     
 ARITH     EQPO     SA1    OP           IS OP THE EOS OP Y                                 ARITH       5734     A     
 ARITH              SB2    EL.EOS                                                          ARITH       5735     A     
 ARITH              UX0 B3,X1                                                              ARITH       5736     A     
 ARITH              NE  B2,B3,EQPO1     IF NO                                              ARITH       5737     A     
 ARITH              SA5    EQCOUNT                                                         ARITH       5738     A     
 ARITH              SX7    X5+1                                                            ARITH       5739     A     
 ARITH              SA7    A5                INCREMENT EQUAL SIGN COUNTER                  ARITH       5740     A     
 ARITH              SA1    SFRSTB                                                          ARITH       5741     A     
 ARITH              ZR     X1,EQPO4.         IF NO SAVED FUNCTION RESULTS                  ARITH       5742     A     
 ARITH              SA3    NARN                                                            ARITH       5743     A     
 ARITH              BX6    X3                                                              ARITH       5744     A     
 ARITH              SA6    SAVENARN          SAVE CURRENT R NUMBER                         ARITH       5745     A     
 ARITH     EQPO1.   SA2    X1+FRSTB-1        FUNCTION RESULT INFORMATION WORD              ARITH       5746     A     
 ARITH              SX6    X1-1                                                            ARITH       5747     A     
 ARITH              BX3    X2                                                              ARITH       5748     A     
 ARITH              SA6    TS1+2             SAVE DECREMENTED COUNT                        ARITH       5749     A     
 ARITH              AX3    34                                                              ARITH       5750     A     
 ARITH              SA5    EQCOUNT                                                         ARITH       5751     A     
 ARITH              SX4    X3                IF THE EQUAL SIGN COUNTER AND THE             ARITH       5752     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2239    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              IX6    X5-X4                 INFORMATION FIELD MATCH, WE NEED          ARITH       5753     A     
 ARITH              NG     X6,EQPO3.             TO OUTPUT A LOAD OF THE SAVED             ARITH       5754     A     
 ARITH              NZ     X6,EQPO2.             FUNCTION RESULT                           ARITH       5755     A     
 ARITH              BX3    X2                                                              ARITH       5756     A     
 ARITH              MX0    60-16                                                           ARITH       5757     A     
 ARITH              AX2    58                POSITION SINGLE/DOUBLE BIT                    ARITH       5758     A     
 ARITH              BX7    -X0*X3            R NAME                                        ARITH       5759     A     
 ARITH              SX6    X2+T.REAL         REAL IF SINGLE, DBL IF DOUBLE                 ARITH       5760     A     
 ARITH              SB6    B0                                                              ARITH       5761     A     
 ARITH              LX6    P.TYP             POSITION IN TYPE FIELD                        ARITH       5762     A     
 ARITH              SA7    NARN              RESET                                         ARITH       5763     A     
 ARITH              SA6    NAME+1            NEEDED FOR FETCH CALL                         ARITH       5764     A     
 ARITH              AX3    16                                                              ARITH       5765     A     
 ARITH              SA5    ST.               ST. ORDINAL                                   ARITH       5766     A     
 ARITH              SB7    X3                STATEMENT TEMPORARY ORDINAL                   ARITH       5767     A     
 ARITH              SX6    B0                                                              ARITH       5768     A     
 ARITH              SA6    IDORDLTS                                                        ARITH       5769     A     
 ARITH              SA6    A6+1                                                            ARITH       5770     A     
 ARITH              RJ     FETCH             OUTPUT LOAD OF FUNCTION RESULT                ARITH       5771     A     
 ARITH              RJ     CHKOFF                                                          ARITH       5772     A     
 ARITH     EQPO2.   SA1    TS1+2                                                           ARITH       5773     A     
 ARITH              NZ     X1,EQPO1.         IF MORE FUNCTION RESULTS                      ARITH       5774     A     
 ARITH     EQPO3.   SA3    SAVENARN                                                        ARITH       5775     A     
 ARITH              BX6    X3                                                              ARITH       5776     A     
 ARITH              SA6    NARN              RESTORE NARN VALUE                            ARITH       5777     A     
 ARITH     EQPO4.   BSS    0                                                               ARITH       5778     A     
 ARITH              SA1       RL1       SET DEFINED BIT IN SYMTAB FOR VARIABLE             ARITH       5779     A     
 ARITH              SA3    X1+1                                                            ARITH       5780     A     
 ARITH              SB1    X3                                                              ARITH       5781     A     
 ARITH              AX3    18                                                              ARITH       5782     A     
 ARITH              SX6    X3                                                              ARITH       5783     A     
 ARITH              SA6    NCAD        STORE CA FOR DODEF                                  ARITH       5784     A     
 ARITH              SA3    A3+3                                                            ARITH       5785     A     
 ARITH              MX0    -R1.RIL                                                         ARITH       5786     A     
 ARITH              LX3    -R1.RIL                                                         ARITH       5787     A     
 ARITH              BX6    -X0*X3                                                          ARITH       5788     A     
 ARITH              SA6    NRFD        RF OF LOAD                                          ARITH       5789     A     
 ARITH              SA3    X1+2        RMACRO HEADER                                       ARITH       5790     A     
 ARITH              UX1    B6,X3                                                           ARITH       5791     A     
 ARITH              SB6    B6+STLMAC                                                       ARITH       5792     A     
 ARITH              NZ     B6,EQPO4.1  IF NOT AN IXFN                                      ARITH       5793     A     
 ARITH              MX6    1                                                               ARITH       5794     A     
 ARITH              SA6    NRFD        SET RF .NE. 0                                       ARITH       5795     A     
 ARITH     EQPO4.1  BSS    0                                                               ARITH       5796     A     
 ARITH              SX3    B1+B1                                                           ARITH       5797     A     
 ARITH              SA4       SYM1      GET ADR OF SYMTAB                                  ARITH       5798     A     
 ARITH              IX5    X4-X3        COMPUTE ADR.                                       ARITH       5799     A     
 ARITH              MX0       1                                                            ARITH       5800     A     
 ARITH              SA3    X5           GET 1ST WD                                         ARITH       5801     A     
 ARITH              LX0       17        POSITION DEFINED BIT (B16)                         ARITH       5802     A     
 ARITH              BX6    X3+X0                                                           ARITH       5803     A     
 ARITH              SA6    X5           STORE BACK IN SYMTAB                               ARITH       5804     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2240    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA4    X5-1        GET WORD B FOR THIS SYMBOL                          FCC1901       36     A     
 ARITH              LX4    59-P.FPB                                                        FCC1901       37     A     
 ARITH              PL     X4,EQPO4.2  IF NOT FP                                           FCC1901       38     A     
 ARITH              LX4    P.FPB-P.RL                                                      FCC1901       39     A     
 ARITH              PL     X4,EQPO4.2  IF NOT RL                                           FCC1901       40     A     
 ARITH              SA5    X5                                                              FCC1901       41     A     
 ARITH              MX3    L.NAME                                                          FCC1901       42     A     
 ARITH              BX3    X3*X5      EXTRACT SYMBOL                                       FCC1901       43     A     
 ARITH              LX3    60-12                                                           FCC1901       44     A     
 ARITH              SX2    1R                                                              FCC1901       45     A     
 ARITH              BX3    X3+X2      ADD BLANK FILL                                       FCC1901       46     A     
 ARITH              POSTER SEV=ANSI,NR=ERMSG62,FMT=DPC,TXT=X3                              FCC1901       47     A     
 ARITH              SA1    RL1                                                             FCC1901       48     A     
 ARITH              SA3    X1+1                                                            FCC1901       49     A     
 ARITH              SB1    X3          RESTORE B1                                          FCC1901       50     A     
 ARITH     EQPO4.2  BSS    0                                                               FCC1901       51     A     
 ARITH              RJ        DODEF                                                        ARITH       5805     A     
 ARITH              SA1       EPOINT    RESTORE B1                                         ARITH       5806     A     
 ARITH              SB1    X1+1                                                            ARITH       5807     A     
 ARITH    *     ARE TYPES THE SAME-                                                        ARITH       5808     A     
 ARITH              SA1    WLSTR                                                           ARITH       5809     A     
 ARITH              MX7    0                                                               ARITH       5810     A     
 ARITH              SA7    NCAD                                                            ARITH       5811     A     
 ARITH              SA7    NRFD                                                            ARITH       5812     A     
 ARITH              ZR     X1,EQPO7C         LAST STORE NOT TRACED                         ARITH       5813     A     
 ARITH              SA7    A1                CLEAR FLAG                                    ARITH       5814     A     
 ARITH              SA7    EQPO5F            CLEAR XMIT FLAG                               ARITH       5815     A     
 ARITH              SA2    TS1+1             NAME AND TYPE                                 ARITH       5816     A     
 ARITH              SA1    DBGAPL+1          IH, CA INFORMATION                            ARITH       5817     A     
 ARITH              SX6    X2                GET TYPE                                      ARITH       5818     A     
 ARITH              SX5    X1                IH FIELD                                      ARITH       5819     A     
 ARITH              LX6    P.TYP                                                           ARITH       5820     A     
 ARITH              LX1    30                                                              ARITH       5821     A     
 ARITH              SB7    X1                CA FIELD                                      ARITH       5822     A     
 ARITH              SA6    NAME+1            NEEDED FOR FETCH                              ARITH       5823     A     
 ARITH              SB6    B0                                                              ARITH       5824     A     
 ARITH              SA1    RL1               POINTS TO REPLACEMENT MACRO                   ARITH       5825     A     
 ARITH              MX0    1                                                               ARITH       5826     A     
 ARITH              LX0    1+P.USED                                                        ARITH       5827     A     
 ARITH              SA2    RL2               POINTS TO RESULT MACRO                        ARITH       5828     A     
 ARITH              SA3    X2                HEADER WORD                                   ARITH       5829     A     
 ARITH              BX7    X0+X3             SET USED BIT IN RESULT MACRO                  ARITH       5830     A     
 ARITH              BX6    X1                                                              ARITH       5831     A     
 ARITH              SA7    A3                                                              ARITH       5832     A     
 ARITH              SA6    RL1TS             SAVE POINTER                                  ARITH       5833     A     
 ARITH              RJ     FETCH             OUTPUT LOAD MACRO                             ARITH       5834     A     
 ARITH              SA2    RL1TS                                                           ARITH       5835     A     
 ARITH              BX6    X2                                                              ARITH       5836     A     
 ARITH              SA6    RL1               RESTORE POINTER                               ARITH       5837     A     
 ARITH     EQPO7C   SA1    RL1                                                             ARITH       5838     A     
 ARITH              SA5       RL2       X5=ADR OF RESULT OF EXPR.                          ARITH       5839     A     
 ARITH              SA3    X1                                                              ARITH       5840     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2241    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA4    X5                                                              ARITH       5841     A     
 ARITH              UX0 B5,X3           (B5=TYPE OF REPLACEMENT ELEMENT)                   ARITH       5842     A     
 ARITH              UX6 B2,X4                                                              ARITH       5843     A     
 ARITH              EQ  B2,B5,EQPO2     IF TYPES ARE THE SAME                              ARITH       5844     A     
 ARITH              SB3    T.CPLX                                                          ARITH       5845     A     
 ARITH              EQ  B3,B2,EQPO7A    IF CPX OPD                                         ARITH       5846     A     
 ARITH              NE  B3,B5,EQPO7B    IF NEITHER OPD CMPX                                ARITH       5847     A     
 ARITH    EQPO7A    USASDM ERMSG45         NON-USAS COMBINATION                            ARITH       5848     A     
 ARITH              SA1       RL1                                                          ARITH       5849     A     
 ARITH              SA5       RL2                                                          ARITH       5850     A     
 ARITH              SA3    X1                                                              ARITH       5851     A     
 ARITH              UX0 B5,X3                                                              ARITH       5852     A     
 ARITH     EQPO7B   BSS       0                                                            ARITH       5853     A     
 ARITH              RJ        MODCH     CONVERT RESULT TO TYPE OF REPLACEMENT-             ARITH       5854     A     
 ARITH              SA6    RL2                                        -ELEMENT.            ARITH       5855     A     
 ARITH              BX2    X6-X5                                                           ARITH       5856     A     
 ARITH              NZ     X2,EQPO2          IF CONVERSION TOOK PLACE                      ARITH       5857     A     
 ARITH              SA6    OCTHO             TURN ON OCTAL-HOLLERITH FLAG                  ARITH       5858     A     
 ARITH     EQPO2    SA1       RL2       SEE IF LAST OP WAS LOAD.  (A=B TYPE STATE)         ARITH       5859     A     
 ARITH              SA3    X1                                                              ARITH       5860     A     
 ARITH              SA2    X1+2         IF SO, OUTPUT BX6=XI                               ARITH       5861     A     
 ARITH              LX3       59-44                                                        ARITH       5862     A     
 ARITH              UX0 B3,X2                                                              ARITH       5863     A     
 ARITH              NG     X3,EQPO5     IF XMT FLAG ON                                     ARITH       5864     A     
 ARITH    *             XMT SET BY MODCH, LDVRPRT                                          ARITH       5865     A     
 ARITH    *         AND FOR RNM TYPE INTRINSICS                                            ARITH       5866     A     
 ARITH              SB2    B3+SLMACO                                                       ARITH       5867     A     
 ARITH              ZR     B2,EQPO5     IF LOAD                                            ARITH       5868     A     
 ARITH              SB2    B3+DLMACO                                                       ARITH       5869     A     
 ARITH              ZR     B2,EQPO5     IF LOAD                                            ARITH       5870     A     
 ARITH              SB2    B3+STLMAC     STD SUBSLD)                                       ARITH       5871     A     
 ARITH              NZ     B2,EQPO6     IF NOT A LOAD                                      ARITH       5872     A     
 ARITH    *     REPLACE XMITOP WITH NEW MACRO IF A NEW RLIST OP IS DEFINED TO              ARITH       5873     A     
 ARITH    *  TRANSMIT ONLY IF PREVIOUS OP A LOAD.                                          ARITH       5874     A     
 ARITH     EQPO5    SX6       XMITOP    OUTPUT TRANSMIT MACRO                              ARITH       5875     A     
 ARITH              SA1       EQPO5F                                                       ARITH       5876     A     
 ARITH              NZ     X1,EQPO6     IF HAVE ALREADY OUTPUT A XMIT                      ARITH       5877     A     
 ARITH              SA6       EQPO5F                                                       ARITH       5878     A     
 ARITH    *     IF DBL LENGTH, UINGEN WILL SX6=X6+1                                        ARITH       5879     A     
 ARITH              RJ        UINGEN                                                       ARITH       5880     A     
 ARITH     EQPO6    BSS    0                 SUPPOSE A=B IS STMT                           ARITH       5881     A     
 ARITH              SA4    OCTHO             OCTAL-HOLL FLAG                               ARITH       5882     A     
 ARITH              SA1    RL1               REPLACEMENT ELEMENT,/A/                       ARITH       5883     A     
 ARITH              SA5    RL2               REPLACED ELEMENT,/B/                          ARITH       5884     A     
 ARITH              ZR     X4,EQPO6A         IF /B/ NOT OCTAL OR HOLL                      ARITH       5885     A     
 ARITH              SA2    X5                HEADER WORD OF /B/                            ARITH       5886     A     
 ARITH              SA3    X1                HEADER WORD OF /A/                            ARITH       5887     A     
 ARITH              MX6    0                                                               ARITH       5888     A     
 ARITH              UX4    X2                                                              ARITH       5889     A     
 ARITH              SA6    A4                CLEAR OCTAL-HOLLERITH FLAG                    ARITH       5890     A     
 ARITH              UX0,B4 X3                                                              ARITH       5891     A     
 ARITH              PX7    B4,X4             NEW HEADER WORD OF /B/   -                    ARITH       5892     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2242    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA7    X5                                                              ARITH       5893     A     
 ARITH                                                                                     ARITH       5894     A     
 ARITH     EQPO6A   SA2    X5+2              1ST WORD OF RLIST INSTR OF /B/                ARITH       5895     A     
 ARITH              MX3    60-16                                                           ARITH       5896     A     
 ARITH              BX4    -X3*X2       X4=RN                                              ARITH       5897     A     
 ARITH              SA2    X1+2         CHANGE MACRO CODE AND RI                           ARITH       5898     A     
 ARITH              UX0 B2,X2                                                              ARITH       5899     A     
 ARITH              SB2    B2-1         CHANGE CODE TO A STORE                             ARITH       5900     A     
 ARITH              BX2    X3*X2        INSERT NAME OF RESULT                              ARITH       5901     A     
 ARITH              BX2    X2+X4                                                           ARITH       5902     A     
 ARITH              PX6    B2,X2                                                           ARITH       5903     A     
 ARITH              SA6    A2                                                              ARITH       5904     A     
 ARITH              SB3      -STLMAC-1                                                     ARITH       5905     A     
 ARITH              EQ  B2,B3,EQPO4     IF STD SUBS STORE                                  ARITH       5906     A     
 ARITH              SA5    A2+2         CHANGE R-PARAMETERWORD                             ARITH       5907     A     
 ARITH              BX2    X3*X5                                                           ARITH       5908     A     
 ARITH              BX6    X4+X2                                                           ARITH       5909     A     
 ARITH              SX4    X4+1         JUST IN CASE A DOUBLE STORE                        ARITH       5910     A     
 ARITH              LX6    -32                                                             ARITH       5911     A     
 ARITH              BX6    X3*X6                                                           ARITH       5912     A     
 ARITH              BX6    X4+X6                                                           ARITH       5913     A     
 ARITH              LX6       32                                                           ARITH       5914     A     
 ARITH              SA6    A5                                                              ARITH       5915     A     
 ARITH     EQPO4    SA4    X1                                                              ARITH       5916     A     
 ARITH              LX4    59-36                                                           ARITH       5917     A     
 ARITH              NG     X4,EQPO10         IF NON STD SUB ARRAY LOAD                     ARITH       5918     A     
 ARITH              SA2    X1                HEADER WORD                                   ARITH       5919     A     
 ARITH              SA0    B0                NEEDED FOR LASTR ADJUSTMENT                   ARITH       5920     A     
 ARITH     EQPO4A   BSS    0                                                               ARITH       5921     A     
 ARITH              AX2       18                                                           ARITH       5922     A     
 ARITH              SB2    X2                                                              ARITH       5923     A     
 ARITH              SA2    ARLPT        MOVE STORE INSTR TO ARLIST. NOP OLD RLIST          ARITH       5924     A     
 ARITH              SB3    X2+B2                                                           ARITH       5925     A     
 ARITH              SB4    B3-ARLSZ                                                        ARITH       5926     A     
 ARITH              PL     B4,MAC1D     IF ARLIST BLOK FULL                                ARITH       5927     A     
 ARITH              SA3    X1           VOID THE LOAD ENTRY                                ARITH       5928     A     
 ARITH              MX0       1         SET USED BIT OF STORE INSTR IN CASE A=B=C=         ARITH       5929     A     
 ARITH              BX6   -X3                                                              ARITH       5930     A     
 ARITH              LX0       46                                                           ARITH       5931     A     
 ARITH              SA6    X1                                                              ARITH       5932     A     
 ARITH              BX3    X0+X3                                                           ARITH       5933     A     
 ARITH              SA4       LASTR     GET CORRECT PREVIOUS ENTRY SIZE AND INSERT         ARITH       5934     A     
 ARITH              MX0       60-18     -IN NEW ENTRY                                      ARITH       5935     A     
 ARITH              SA5    X4                                                              ARITH       5936     A     
 ARITH              SB7    X2+ARLIST                                                       ARITH       5937     A     
 ARITH              SUB                                                                    ARITH       5938     A     
 ARITH              PL     X5,EQPO9     IF LAST ENTRY NOT NO-OPED                          ARITH       5939     A     
 ARITH              BX5   -X5                                                              ARITH       5940     A     
 ARITH     EQPO9    BSS       0                                                            ARITH       5941     A     
 ARITH              BX3    X0*X3                                                           ARITH       5942     A     
 ARITH              AX5       18                                                           ARITH       5943     A     
 ARITH              BX4    X3                                                              ARITH       5944     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2243    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              AX4    59                                                              ARITH       5945     A     
 ARITH              BX4    X4-X5       SIGN OF LENGTH MATCHES HEADER                       ARITH       5946     A     
 ARITH              BX4    -X0*X4      EXTRACT SIGNED LENGTH                               ARITH       5947     A     
 ARITH              BX3    X3+X4                                                           ARITH       5948     A     
 ARITH              SX7    B7+A0             POINT TO LAST MACRO MOVED                     ARITH       5949     A     
 ARITH              SA7       LASTR                                                        ARITH       5950     A     
 ARITH     EQPO3    BX6    X3                                                              ARITH       5951     A     
 ARITH              SA6    X2+ARLIST    STORE IN NEW LOC.                                  ARITH       5952     A     
 ARITH              SUB                                                                    ARITH       5953     A     
 ARITH              SX1    X1+1                                                            ARITH       5954     A     
 ARITH              SX2    X2+1                                                            ARITH       5955     A     
 ARITH              SB2    B2-1                                                            ARITH       5956     A     
 ARITH              SA3    X1                                                              ARITH       5957     A     
 ARITH              NZ     B2,EQPO3                                                        ARITH       5958     A     
 ARITH              BX6    X2                                                              ARITH       5959     A     
 ARITH              SA6       ARLPT                                                        ARITH       5960     A     
 ARITH              SA2    DFLAG                                                           ARITH       5961     A     
 ARITH              ZR     X2,EQPO3A         BRANCH IF NOT IN DEBUG MODE                   ARITH       5962     A     
 ARITH              SA1    LASTR                                                           ARITH       5963     A     
 ARITH              SA2    X1+1              ORDINAL OF NAME                               ARITH       5964     A     
 ARITH              BX7    X2                                                              ARITH       5965     A     
 ARITH              SX2    X2          REMOVE ALL BUT LOWER 18 BITS                        ARITH       5966     A     
 ARITH              SA3    X1+3              ORDINAL OF VARIABLE                           ARITH       5967     A     
 ARITH              SA4    X1+5              BIAS FOR VARIABLE                             ARITH       5968     A     
 ARITH              LX4    30                                                              ARITH       5969     A     
 ARITH              LX2    1                                                               ARITH       5970     A     
 ARITH              BX6    X4+X3                                                           ARITH       5971     A     
 ARITH              SA6    DBGAPL+1          USED IN DEBUG CODE                            ARITH       5972     A     
 ARITH              SA3    SYM1              START OF SYMTAB                               ARITH       5973     A     
 ARITH              IX4    X3-X2                                                           ARITH       5974     A     
 ARITH              SA1    X4                WORD A                                        ARITH       5975     A     
 ARITH              LX1    59-P.FP           IS THIS A FORMAL PARAMETER STORE              ARITH       5976     A     
 ARITH              PL     X1,EQPO3B         IF NOT                                        ARITH       5977     A     
 ARITH              SA7    A6                RESET TABLE WORD                              ARITH       5978     A     
 ARITH     EQPO3B   BSS    0                                                               ARITH       5979     A     
 ARITH              SA2    X4-1              WORD B OF ENTRY                               ARITH       5980     A     
 ARITH              MX0    60-L.DIF+1        ONLY NEED BOTTOM BITS                         ARITH       5981     A     
 ARITH              LX2    60-P.DIF          SHIFT DEBUG BITS                              ARITH       5982     A     
 ARITH              BX7    -X0*X2            MASK OUT DEBUG BITS                           ARITH       5983     A     
 ARITH              SX6    X7-DV.STO         IS STORES CHECKING TO BE DONE                 ARITH       5984     A     
 ARITH              NZ      X6,EQPO3A        IF NOT                                        ARITH       5985     A     
 ARITH              RJ     STRCK             PROCESS DEBUG STORES                          ARITH       5986     A     
 ARITH     EQPO3A   RJ     FNDOP                                                           ARITH       5987     A     
 ARITH              SA6       RL1       ADR OF NEXT REP.VAR.                               ARITH       5988     A     
 ARITH              EQ     CMPARE                                                          ARITH       5989     A     
 ARITH                                                                                     ARITH       5990     A     
 ARITH    *         THIS CODE ALLOWS FOR NON STANDARD SUBSCRIPT CALCULATION MACROS         ARITH       5991     A     
 ARITH    *         TO BE MOVED ALONG WITH THE LOAD MACRO AS ONE LARGE MACRO BLOCK         ARITH       5992     A     
 ARITH     EQPO10   LX4    1+36              REPOSITION WORD                               ARITH       5993     A     
 ARITH              SX0    B0                INITIALIZE                                    ARITH       5994     A     
 ARITH              SX6    X4                WORD COUNT OF PREVIOUS MACRO, IF ANY          ARITH       5995     A     
 ARITH              AX4    18                                                              ARITH       5996     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2244    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              IX3    X1-X6             ADDRESS OF PREVIOUS MACRO                     ARITH       5997     A     
 ARITH              SB7    X4                WORD SIZE OF LOAD MACRO                       ARITH       5998     A     
 ARITH              ZR     X6,EQPO14         IF AT BEGINNING OF BUFFER                     ARITH       5999     A     
 ARITH     EQPO11   SA4    X3                MACRO HEADER                                  ARITH       6000     A     
 ARITH              PL     X4,EQPO12         IF NOT NO OPED                                ARITH       6001     A     
 ARITH              BX4    -X4                                                             ARITH       6002     A     
 ARITH     EQPO12   LX4    59-36             IS THIS A NON STD SUB ARRAY LOAD              ARITH       6003     A     
 ARITH              NG     X4,EQPO13         IF YES                                        ARITH       6004     A     
 ARITH              MX7    60-7                                                            ARITH       6005     A     
 ARITH              SA5    EQCOUNT           EQUAL SIGN COUNTER                            ARITH       6006     A     
 ARITH              BX7    -X7*X4            EQUAL SIGN COUNT FOR MACRO                    ARITH       6007     A     
 ARITH              IX2    X5-X7                                                           ARITH       6008     A     
 ARITH              NZ     X2,EQPO13         IF PREVIOUS GROUP REACHED                     ARITH       6009     A     
 ARITH              LX4    1+36                                                            ARITH       6010     A     
 ARITH              SX5    X4                WORD COUNT OF PREVIOUS MACRO, IF ANY          ARITH       6011     A     
 ARITH              ZR     X5,EQPO14         IF AT BEGINNING OF BUFFER                     ARITH       6012     A     
 ARITH              IX3    X3-X5             ADDRESS OF PREVIOUS MACRO                     ARITH       6013     A     
 ARITH              IX0    X0+X6             ADD WORD COUNT TO BLOCK LENGTH                ARITH       6014     A     
 ARITH              BX6    X5                SAVE CURRENT MACRO SIZE                       ARITH       6015     A     
 ARITH              EQ     EQPO11                                                          ARITH       6016     A     
 ARITH     EQPO13   IX3    X3+X6             CORRECT MACRO POINTER                         ARITH       6017     A     
 ARITH              SX6    B0                CLEAR                                         ARITH       6018     A     
 ARITH     EQPO14   IX0    X0+X6             ADD WORD COUNT TO BLOCK LENGTH                ARITH       6019     A     
 ARITH              SA2    X1                ORIGINAL LOAD MACRO                           ARITH       6020     A     
 ARITH              SX4    X0+B7             TOTAL BLOCK LENGTH                            ARITH       6021     A     
 ARITH              LX2    42                                                              ARITH       6022     A     
 ARITH              MX5    1                                                               ARITH       6023     A     
 ARITH              SB6    X2                SIZE OF LOAD MACRO                            ARITH       6024     A     
 ARITH              SB2    X1+B7             POINT BEYOND LOAD MACRO                       ARITH       6025     A     
 ARITH              LX2    18                REPOSITION                                    ARITH       6026     A     
 ARITH              SA0    X4                                                              ARITH       6027     A     
 ARITH              LX5    1+45              POSITION USED BIT                             ARITH       6028     A     
 ARITH              BX6    X5+X2             SET USED BIT IN CASE OF MULTIPLE =            ARITH       6029     A     
 ARITH              LX4    18                                                              ARITH       6030     A     
 ARITH              SA0    A0-B6             NEEDED FOR LASTR ADJUSTMENT                   ARITH       6031     A     
 ARITH              SA2    ARLIST            START OF ARLIST BUFFER                        ARITH       6032     A     
 ARITH              SUB                                                                    ARITH       6033     A     
 ARITH              SA6    X1                RESTORE TO BUFFER                             ARITH       6034     A     
 ARITH              SB3    A2                                                              ARITH       6035     A     
 ARITH              BX1    X3                ADJUST POINTER FOR AFTER RETURN               ARITH       6036     A     
 ARITH              SA2    ARLST             RELATIVE POINTER AFTER ENTIRE BLOCK           ARITH       6037     A     
 ARITH              SX6    B2-B3             RELATIVE POSITION OF MACRO AFTER LOAD         ARITH       6038     A     
 ARITH              IX5    X6-X2                                                           ARITH       6039     A     
 ARITH              BX2    X4                                                              ARITH       6040     A     
 ARITH              NG     X5,EQPO4A         EFFECTIVELY EXIT IF ALREADY SET               ARITH       6041     A     
 ARITH              SA6    A2                REALLY ONLY SET ONCE FOR MULTIPLE =           ARITH       6042     A     
 ARITH              EQ     EQPO4A            ARLST SET SO OLD BLOCK NOT FLUSHED            ARITH       6043     A     
 ARITH     STRCK    SPACE  4,8                                                             ARITH       6044     A     
 ARITH    *         DEBUG PROCESSOR FOR STORES CHECKING                                    ARITH       6045     A     
 ARITH    *                                                                                ARITH       6046     A     
 ARITH     STRCK    DATA   0                                                               ARITH       6047     A     
 ARITH              SA1    RL1                                                             ARITH       6048     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2245    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA3    RL2                                                             ARITH       6049     A     
 ARITH              BX6    X1                                                              ARITH       6050     A     
 ARITH              LX7    X3                                                              ARITH       6051     A     
 ARITH              SA6    RL1TS             SAVE CURRENT VALUES                           ARITH       6052     A     
 ARITH              SA7    RL2TS                                                           ARITH       6053     A     
 ARITH              SA1    A2+1              WORD A OF ENTRY                               ARITH       6054     A     
 ARITH              MX0    L.NAME                                                          ARITH       6055     A     
 ARITH              BX5    X0*X1             VARIABLE NAME                                 ARITH       6056     A     
 ARITH              LX2    P.DIF-P.TYP                                                     ARITH       6057     A     
 ARITH              MX0    60-L.TYP                                                        ARITH       6058     A     
 ARITH              BX7    -X0*X2            VARIABLE TYPE                                 ARITH       6059     A     
 ARITH              SA7    TS1+3             TYPE WORD                                     ARITH       6060     A     
 ARITH              BX6    X5+X7                                                           ARITH       6061     A     
 ARITH              SA6    TS1+1             NAME AND TYPE                                 ARITH       6062     A     
 ARITH              BX7    X2                                                              ARITH       6063     A     
 ARITH              SA7    NAME+1            SAVE WORD B                                   ARITH       6064     A     
 ARITH              LX1    59-P.DIM          ID VARIABLE DIMENSIONED                       ARITH       6065     A     
 ARITH              PL     X1,STRCK0.        IF NOT                                        ARITH       6066     A     
 ARITH              SA1    LASTR             ADDRESS OF LAST STORE MACRO                   ARITH       6067     A     
 ARITH              MX2    0                                                               ARITH       6068     A     
 ARITH              RJ     OTS         OUTPUT TEMP STORE                                   ARITH       6069     A     
 ARITH              LX3    30                                                              ARITH       6070     A     
 ARITH              BX6    X3+X2       30/CA(ST.), 30/ORD(ST.)                             ARITH       6071     A     
 ARITH              SA6    DBGAPL+1    SET UP FOR APLIST PROCESSOR                         ARITH       6072     A     
 ARITH     STRCK0.  SA2    NAME+1            RESTORE WORD B                                ARITH       6073     A     
 ARITH              MX6    0                                                               ARITH       6074     A     
 ARITH              SA6    DBGAPL+3          ZERO TO ARGLIST TABLE                         ARITH       6075     A     
 ARITH              SX7    =8RBUGSTO                                                       ARITH       6076     A     
 ARITH              SA7    A6+1              ADDRESS TO ARGLIST TABLE                      ARITH       6077     A     
 ARITH              SA3    D.SAASI           BASE OF AS TABLE                              ARITH       6078     A     
 ARITH              LX2    P.TYP-P.DTO                                                     ARITH       6079     A     
 ARITH              MX0    60-L.DTO                                                        ARITH       6080     A     
 ARITH              BX4    -X0*X2            GET DEBUG TABLE ORDINAL                       ARITH       6081     A     
 ARITH              IX4    X3+X4             BASE + ORDINAL                                ARITH       6082     A     
 ARITH              SA1    DEBUG-1                                                         ARITH       6083     A     
 ARITH              SB2    X4                                                              ARITH       6084     A     
 ARITH              SA3    A1+B2             DEBUG TABLE WORD                              ARITH       6085     A     
 ARITH              MX0    60-L.FCS                                                        ARITH       6086     A     
 ARITH              LX3    60-P.FCS                                                        ARITH       6087     A     
 ARITH              BX6    -X0*X3            FREQUENCY COUNT                               ARITH       6088     A     
 ARITH              ZR     X6,STRCK3.                                                      ARITH       6089     A     
 ARITH              SX5    9                 HERE IF NO STORES TEST                        ARITH       6090     A     
 ARITH              SA6    TS1+2             MORE TO LINK FLAG                             ARITH       6091     A     
 ARITH              MX7    0                                                               ARITH       6092     A     
 ARITH              SA7    TS1+5             NEEDED TO EXIT LOOP                           ARITH       6093     A     
 ARITH     STRCK1.  LX5    3                                                               ARITH       6094     A     
 ARITH              SA4    TS1+1             NAME AND TYPE                                 ARITH       6095     A     
 ARITH              BX1    X4+X5             INSERT RELOP                                  ARITH       6096     A     
 ARITH              RJ     STRIP             CHECK FOR TRAILING $ IN NAME                  ARITH       6097     A     
 ARITH              SB1    1                                                               ARITH       6098     A     
 ARITH              RJ     CONVERT           PLACE IN CONS TABLE                           ARITH       6099     A     
 ARITH              BX6    X1                                                              ARITH       6100     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2246    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA6    DBGAPL            FORM ARGLIST TABLE                            ARITH       6101     A     
 ARITH              SA1    DBGAPL+3                                                        ARITH       6102     A     
 ARITH              SA2    A1+B5                                                           ARITH       6103     A     
 ARITH              BX6    X1                                                              ARITH       6104     A     
 ARITH              LX7    X2                                                              ARITH       6105     A     
 ARITH              SA6    A1-B5             COLLAPSE ARGLIST TABLE TO AVOID               ARITH       6106     A     
 ARITH              SA7    A1                UNNECESSARY APLIST PARAMETER                  ARITH       6107     A     
 ARITH     STRCK2.  SA1    DBGAPL                                                          ARITH       6108     A     
 ARITH              SA3    STAPLC                                                          ARITH       6109     A     
 ARITH              MX7    0                 ZERO CHAIN WORD FOR THIS FUNCTION             ARITH       6110     A     
 ARITH              BX6    X3                                                              ARITH       6111     A     
 ARITH              SA7    A3                                                              ARITH       6112     A     
 ARITH              SA6    STAPL                                                           ARITH       6113     A     
 ARITH              SA2    N.AP                                                            ARITH       6114     A     
 ARITH              BX6    X2                                                              ARITH       6115     A     
 ARITH              SX7    X2+1              INCREMENT APLIST NUMBER                       ARITH       6116     A     
 ARITH              SA7    A2                                                              ARITH       6117     A     
 ARITH              RJ     IGCALL            GENERATE CALL MACRO                           ARITH       6118     A     
 ARITH              SA1    =8RBUGSTO                                                       ARITH       6119     A     
 ARITH              SB7    *+1                                                             ARITH       6120     A     
 ARITH              EQ     SYMBOL            WILL ALWAYS RETURN TO FOUND ADDRESS           ARITH       6121     A     
 ARITH              SX6    T.CGS             PLACE TYPE CGS IN SYMTAB WORD                 ARITH       6122     A     
 ARITH              LX6    P.TYP                SO REFERENCE WONT APPEAR IN                ARITH       6123     A     
 ARITH              BX7    X6+X2                THE REFERENCE MAP                          ARITH       6124     A     
 ARITH              SA3    STAPL                                                           ARITH       6125     A     
 ARITH              SA1    TS1+2             IS THERE MORE TO LINK                         ARITH       6126     A     
 ARITH              BX6    X3                                                              ARITH       6127     A     
 ARITH              SA7    A2                                                              ARITH       6128     A     
 ARITH              SA6    STAPLC            RESTORE STORE-TO-APLIST CHAIN                 ARITH       6129     A     
 ARITH              NZ     X1,STRCK7.        EXIT IF NOT                                   ARITH       6130     A     
 ARITH              SA2    TS1+3             CURRENT LINK WORD                             ARITH       6131     A     
 ARITH              SX7    X2                GET LINK                                      ARITH       6132     A     
 ARITH              ZR     X7,STRCK7.        EXIT IF AT LAST LINK                          ARITH       6133     A     
 ARITH              SA5    TS1+4             RELOCATION ADDRESS                            ARITH       6134     A     
 ARITH              MX6    0                                                               ARITH       6135     A     
 ARITH              IX7    X5+X7             NEXT LINK ADDRESS                             ARITH       6136     A     
 ARITH              SA6    DBGAPL+3                                                        ARITH       6137     A     
 ARITH              EQ     STRCK4.                                                         ARITH       6138     A     
 ARITH     STRCK3.  LX3    P.FCS-P.LINK                                                    ARITH       6139     A     
 ARITH              MX6    0                                                               ARITH       6140     A     
 ARITH              SX7    X3                TABLE ADDRESS                                 ARITH       6141     A     
 ARITH              SA6    TS1+2             LINK FLAG                                     ARITH       6142     A     
 ARITH              ZR     X7,STRCK8.                                                      ARITH       6143     A     
 ARITH              SA2    DEBUG-1                                                         ARITH       6144     A     
 ARITH              SX6    A2                RELOCATION ADDRESS                            ARITH       6145     A     
 ARITH              SB3    X7                TABLE ADDRESS                                 ARITH       6146     A     
 ARITH              SA6    TS1+4                                                           ARITH       6147     A     
 ARITH              SX7    A2+B3             NEXT LINK ADDRESS                             ARITH       6148     A     
 ARITH              BX6    X3                                                              ARITH       6149     A     
 ARITH              SA6    TS1+5             SAVE LINK WORD                                ARITH       6150     A     
 ARITH              EQ     STRCK4.                                                         ARITH       6151     A     
 ARITH     STRCK8.  LX3    P.LINK-P.LINKI                                                  ARITH       6152     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2247    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              MX7    0                                                               ARITH       6153     A     
 ARITH              SX6    X3                TABLE ORDINAL                                 ARITH       6154     A     
 ARITH              SA7    TS1+5             WILL TERMINATE LOOP                           ARITH       6155     A     
 ARITH              ZR     X6,STRCK7.        IF DONE                                       ARITH       6156     A     
 ARITH              SA2    DEBUG-1                                                         ARITH       6157     A     
 ARITH              SA3    D.SAASI           BASE OF AS TABLE                              ARITH       6158     A     
 ARITH              IX4    X3+X6             ORDINAL + BASE                                ARITH       6159     A     
 ARITH              SB2    X3                                                              ARITH       6160     A     
 ARITH              SX6    A2+B2             RELOCATION ADDRESS                            ARITH       6161     A     
 ARITH              SB3    X4                                                              ARITH       6162     A     
 ARITH              SA6    TS1+4                                                           ARITH       6163     A     
 ARITH              SX7    A2+B3             NEXT LINK ADDRESS                             ARITH       6164     A     
 ARITH              MX6    0                                                               ARITH       6165     A     
 ARITH              SA6    TS1+5             WILL TERMINATE LOOP                           ARITH       6166     A     
 ARITH     STRCK4.  SA2    X7                GET NEXT LINK ENTRY                           ARITH       6167     A     
 ARITH              MX0    60-L.RO                                                         ARITH       6168     A     
 ARITH              BX6    X2                                                              ARITH       6169     A     
 ARITH              SA6    TS1+3             SAVE LINK WORD                                ARITH       6170     A     
 ARITH              LX2    60-P.RO                                                         ARITH       6171     A     
 ARITH              BX5    -X0*X2            GET RELOP                                     ARITH       6172     A     
 ARITH              SB2    X5                                                              ARITH       6173     A     
 ARITH              EQ     B0,B2,STRCK1.     INDEF RELOP                                   ARITH       6174     A     
 ARITH              SB3    7                                                               ARITH       6175     A     
 ARITH              EQ     B3,B2,STRCK1.     RANGE RELOP                                   ARITH       6176     A     
 ARITH              LX5    3                                                               ARITH       6177     A     
 ARITH              SA4    TS1+1             NAME AND TYPE                                 ARITH       6178     A     
 ARITH              BX1    X4+X5                                                           ARITH       6179     A     
 ARITH              RJ     STRIP             CHECK FOR TRAILING $ IN NAME                  ARITH       6180     A     
 ARITH              SB1    1                                                               ARITH       6181     A     
 ARITH              RJ     CONVERT           PLACE IN CONS TABLE                           ARITH       6182     A     
 ARITH              BX6    X1                                                              ARITH       6183     A     
 ARITH              SA6    DBGAPL            FORM ARGLIST TABLE                            ARITH       6184     A     
 ARITH              SA3    TS1+3             LINK WORD                                     ARITH       6185     A     
 ARITH              MX0    60-L.CONST                                                      ARITH       6186     A     
 ARITH              LX3    60-P.CONST                                                      ARITH       6187     A     
 ARITH              BX4    -X0*X3            GET CONSTANT FIELD                            ARITH       6188     A     
 ARITH              MX0    60-L.CORD                                                       ARITH       6189     A     
 ARITH              BX3    -X0*X4            GET CONSTANT ORDINAL                          ARITH       6190     A     
 ARITH              LX4    59-P.COV                                                        ARITH       6191     A     
 ARITH              NG     X4,STRCK9.        BRANCH IF VARIABLE AFTER RELATIONAL           ARITH       6192     A     
 ARITH              LX4    P.COV-P.GCF                                                     ARITH       6193     A     
 ARITH              PL     X4,STRCK6.        BRANCH IF CONS IN REAL TABLE                  ARITH       6194     A     
 ARITH              MX0    60-L.TYP                                                        ARITH       6195     A     
 ARITH              BX7    -X0*X4            GET CONSTANT TYPE                             ARITH       6196     A     
 ARITH              SB1    B5                                                              ARITH       6197     A     
 ARITH              SA2    O.GCON            START OF GLOBAL CONS TABLE                    ARITH       6198     A     
 ARITH              SB3    X3                                                              ARITH       6199     A     
 ARITH              SA1    X2+B3             LOAD CONSTANT                                 ARITH       6200     A     
 ARITH              SB4    X7-T.DBL                                                        ARITH       6201     A     
 ARITH              SB3    X7-T.CPLX                                                       ARITH       6202     A     
 ARITH              NZ     B4,STRCK5.        IF NOT DOUBLE WORD                            ARITH       6203     A     
 ARITH              NZ     B3,STRCK5.        IF NOT DOUBLE WORD                            ARITH       6204     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2248    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SB1    B5+B5             IF DOUBLE WORD CONSTANT                       ARITH       6205     A     
 ARITH              SA2    A1+B5             SECOND HALF OF CONSTANT                       ARITH       6206     A     
 ARITH     STRCK5.  RJ     CONVERT           PLACE IN CONS TABLE                           ARITH       6207     A     
 ARITH              BX6    X1                                                              ARITH       6208     A     
 ARITH              SA6    DBGAPL+2          FORM ARGLIST TABLE                            ARITH       6209     A     
 ARITH              MX7    0                                                               ARITH       6210     A     
 ARITH              SA7    A6+B5                                                           ARITH       6211     A     
 ARITH              EQ     STRCK2.                                                         ARITH       6212     A     
 ARITH     STRCK6.  SA1    CON.              CONSTANT TABLE ORDINAL                        ARITH       6213     A     
 ARITH              LX3    30                                                              ARITH       6214     A     
 ARITH              BX6    X3+X1             IH OF CONSTANT                                ARITH       6215     A     
 ARITH              SA6    DBGAPL+2          FORM ARGLIST TABLE                            ARITH       6216     A     
 ARITH              MX7    0                                                               ARITH       6217     A     
 ARITH              SA7    A6+B5                                                           ARITH       6218     A     
 ARITH              EQ     STRCK2.                                                         ARITH       6219     A     
 ARITH     STRCK7.  SA3    TS1+5                                                           ARITH       6220     A     
 ARITH              NZ     X3,STRCK8.        IF MORE TO LINK                               ARITH       6221     A     
 ARITH              SA1    RL1TS                                                           ARITH       6222     A     
 ARITH              SA2    RL2TS                                                           ARITH       6223     A     
 ARITH              BX6    X1                                                              ARITH       6224     A     
 ARITH              LX7    X2                                                              ARITH       6225     A     
 ARITH              SA6    RL1               RESTORE SAVED VALUES                          ARITH       6226     A     
 ARITH              SA7    RL2                                                             ARITH       6227     A     
 ARITH              SA6    WLSTR             SET FLAG NON ZERO                             ARITH       6228     A     
 ARITH              EQ     STRCK                                                           ARITH       6229     A     
 ARITH     STRCK9.  MX0    60-12                                                           ARITH       6230     A     
 ARITH              BX6    -X0*X3            VARIABLE ORDINAL                              ARITH       6231     A     
 ARITH              SA6    DBGAPL+2          FORM ARGLIST TABLE                            ARITH       6232     A     
 ARITH              MX7    0                                                               ARITH       6233     A     
 ARITH              SA7    A6+B5                                                           ARITH       6234     A     
 ARITH              EQ     STRCK2.                                                         ARITH       6235     A     
 ARITH              TITLE                                                                  ARITH       6236     A     
 ARITH              EJECT                                                                  ARITH       6237     A     
 ARITH     OUT3     SA1       RL2                                                          ARITH       6238     A     
 ARITH              BX6    X1                                                              ARITH       6239     A     
 ARITH              SA6       EXPRIA    SAVE ADR OF EXPR RESULT INSTR                      ARITH       6240     A     
 ARITH    *     OUT IF NORMAL ARITH EXIT                                                   ARITH       6241     A     
 ARITH     OUT      SA1       SFRSTB                                                       ARITH       6242     A     
 ARITH              ZR     X1,OUT1      IF NO FUNCTION RESULTS SAVED                       ARITH       6243          I
          -FCC1590X 
 ARITH              ZR     X1,OUT6     IF NO FUNCTION RESULTS SAVED                        FCC1590X      16     A     
 ARITH              SA3       NARN                                                         ARITH       6244     A     
 ARITH              SA2       ARLPT                                                        ARITH       6245     A     
 ARITH              BX6    X3                                                              ARITH       6246     A     
 ARITH              AX7    B0,X2                                                           ARITH       6247     A     
 ARITH              SA6       TS1       SAVED NARN                                         ARITH       6248     A     
 ARITH              SA7       TS1+1       11  ARLPT                                        ARITH       6249     A     
 ARITH     OUT2     SA2    X1+FRSTB-1                                                      ARITH       6250     A     
 ARITH              SX6    X1-1                                                            ARITH       6251     A     
 ARITH              BX3    X2           PREPARE FOR CALL OF FETCH                          ARITH       6252     A     
 ARITH              SA6       TS1+2     FUNC RESULT CNT                                    ARITH       6253     A     
 ARITH              AX2    34                                                              ARITH       6254     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2249    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SX7    X2                EQUAL SIGN COUNT                              ARITH       6255     A     
 ARITH              NZ     X7,OUT4           FUNCTION RESULT NOT FROM MAIN EXPSSON         ARITH       6256     A     
 ARITH              BX2    X3                                                              ARITH       6257     A     
 ARITH              AX2       58        RIGHT ADJ.DBL WD EL FLAG BIT                       ARITH       6258     A     
 ARITH              SX6    X2+T.REAL         REAL IF SINGLE, DBL IF DOUBLE                 ARITH       6259     A     
 ARITH              LX6    P.TYP             PLACE IN TYPE FIELD                           ARITH       6260     A     
 ARITH              SA6       NAME+1                                                       ARITH       6261     A     
 ARITH              MX0       60-16     SET UP NAME OF RESULT SAVED                        ARITH       6262     A     
 ARITH              BX7   -X0*X3                                                           ARITH       6263     A     
 ARITH              SA7       NARN                                                         ARITH       6264     A     
 ARITH              SB6    B0                                                              ARITH       6265     A     
 ARITH              AX3    16                                                              ARITH       6266     A     
 ARITH              SB7    X3                CA OF ST.                                     ARITH       6267     A     
 ARITH              SA5    ST.               IH OF ST.                                     ARITH       6268     A     
 ARITH              SX6    B0                                                              ARITH       6269     A     
 ARITH              SA6    IDORDLTS                                                        ARITH       6270     A     
 ARITH              SA6    A6+1                                                            ARITH       6271     A     
 ARITH              RJ        FETCH                                                        ARITH       6272     A     
 ARITH              SA1       TS1+2                                                        ARITH       6273     A     
 ARITH              NZ     X1,OUT2      IF MORE FRSTB ENTRIES                              ARITH       6274     A     
 ARITH     OUT4     BSS    0                                                               ARITH       6275     A     
 ARITH              SA4       TS1+1     OUTPUT THE LOADS TO RLIST                          ARITH       6276     A     
 ARITH              SA5       ARLPT                                                        ARITH       6277     A     
 ARITH              BX6    X4                                                              ARITH       6278     A     
 ARITH              SA6       ARLPT                                                        ARITH       6279     A     
 ARITH              RJ        DARLIST                                                      ARITH       6280     A     
 ARITH              SA1       TS1                                                          ARITH       6281     A     
 ARITH              BX6    X1                                                              ARITH       6282     A     
 ARITH              SA6       NARN                                                         ARITH       6283     A     
 ARITH     OUT1     BSS       0                                                            ARITH       6284          I
          -FCC1590X 
 ARITH              SA1    ARITH                                                           ARITH       6285          I
          -FCC1590X 
 ARITH              SA2    ACALL                                                           ARITH       6286          I
          -FCC1590X 
 ARITH              IX3    X1-X2                                                           ARITH       6287          I
          -FCC1590X 
 ARITH              NZ     X3,OUT6           IF NOT FROM CALL                              ARITH       6288          I
          -FCC1590X 
 ARITH              MX6    0                                                               ARITH       6289          I
          -FCC1590X 
 ARITH              SA6    A2                                                              ARITH       6290          I
          -FCC1590X 
 ARITH              SA2    DFLAG                                                           ARITH       6291          I
          -FCC1590X 
 ARITH              SX6    1                                                               ARITH       6292          I
          -FCC1590X 
 ARITH              ZR     X2,OUT5           BRANCH IF NOT IN DEBUG MODE                   ARITH       6293          I
          -FCC1590X 
 ARITH              SA1    ALLCALL                                                         ARITH       6294          I
          -FCC1590X 
 ARITH              SX6    B0                                                              ARITH       6295          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2250    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
          -FCC1590X 
 ARITH              NZ     X1,OUT5           IF ALL CALLS TO BE TRACED                     ARITH       6296          I
          -FCC1590X 
 ARITH              SA3    SUBH                                                            ARITH       6297          I
          -FCC1590X 
 ARITH              SA4    SYM1                                                            ARITH       6298          I
          -FCC1590X 
 ARITH              LX3    1                                                               ARITH       6299          I
          -FCC1590X 
 ARITH              IX1    X4-X3             COMPUTE SYMTAB ADDRESS                        ARITH       6300          I
          -FCC1590X 
 ARITH              SA2    X1-1              WORD B OF ENTRY                               ARITH       6301          I
          -FCC1590X 
 ARITH              LX2    60-P.DIF          SHIFT DEBUG BITS                              ARITH       6302          I
          -FCC1590X 
 ARITH              MX0    60-L.DIF                                                        ARITH       6303          I
          -FCC1590X 
 ARITH              BX7    -X0*X2            GET DEBUG BITS                                ARITH       6304          I
          -FCC1590X 
 ARITH              SX6    X7-DV.CLL         DETERMINE IF SUB TRACING IS TO BE DNE         ARITH       6305          I
          -FCC1590X 
 ARITH     OUT5     SA6    TRCFLG            0 IF TRACING                                  ARITH       6306          I
          -FCC1590X 
 ARITH              NZ     X6,ARITH                                                        ARITH       6307          I
          -FCC1590X 
 ARITH              MX6    0                                                               ARITH       6308          I
          -FCC1590X 
 ARITH              SA6    =XTYPECLL                                                       ARITH       6309          I
          -FCC1590X 
 ARITH              SA5    ARLPT                                                           ARITH       6310          I
          -FCC1590X 
 ARITH              BX6    X5                                                              ARITH       6311          I
          -FCC1590X 
 ARITH              SA6    TS1               SAVE APLIST POINTER OF SUBROUTINE APL         ARITH       6312          I
          -FCC1590X 
 ARITH              RJ     FUNC8       SAVE ANY FUNCTION RESULT                            FCC0623       48          I
          -FCC1590X 
 ARITH              RJ     =XFARGLST         CREATE APL AND RJ RMACROS FOR BUGCLL          ARITH       6313          I
          -FCC1590X 
 ARITH              SA4    TS1                                                             ARITH       6314          I
          -FCC1590X 
 ARITH              BX6    X4                                                              ARITH       6315          I
          -FCC1590X 
 ARITH              SA5    ARLPT                                                           ARITH       6316          I
          -FCC1590X 
 ARITH              SA6    A5                                                              ARITH       6317          I
          -FCC1590X 
 ARITH              RJ     DARLIST           PUT OUT APL AND RJ FOR BUGCLL                 ARITH       6318          I
          -FCC1590X 
 ARITH              RJ     ARGP8CR     LOAD ANY SAVED FUNCTION RESULTS                     FCC0623       49          I
          -FCC1590X 
 ARITH              SA1    TRCFLG                                                          ARITH       6319          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2251    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
          -FCC1590X 
 ARITH              BX6    X1                                                              ARITH       6320          I
          -FCC1590X 
 ARITH              EQ     ARITH                                                           ARITH       6321          I
          -FCC1590X 
 ARITH     OUT6     SA4    ARLST             RESET APL POINTER FOR SUBROUTINE APL          ARITH       6322     A     
 ARITH              SA5       ARLPT                                                        ARITH       6323     A     
 ARITH              RJ        DARLIST                                                      ARITH       6324     A     
 ARITH              SA2    IXFNFG                                                          ARITH       6325     A     
 ARITH              NZ     X2,IXFN7          RETURN TO IXFN PROCESSOR                      ARITH       6326     A     
 ARITH              ZR        ARITH                                                        ARITH       6327     A     
 ARITH     FNDOP    TITLE  SUBROUTINES                                                     ARITH       6328     A     
 ARITH    **        FNDOP - FIND UNUSED OP PRECEEDING THE ONE POINTED TO BY RL2.           ARITH       6329          I
          -FCC0418
 ARITH    *         CANT FIND ONE, SET X6=0.  OTHERWISE, SET X6= START ADR. OF OP.         ARITH       6330          I
          -FCC0418
 ARITH    *         ALSO USED (IF FNDPF"0) TO CLEAR GPTU BIT IN LAST GPTU ENTRY            ARITH       6331          I
          -FCC0418
 ARITH    *         DONT DESTROY B1                                                        ARITH       6332          I
          -FCC0418
 ARITH     FNDP4    SA6       FNDPF     RESET TO 0.                                        ARITH       6333          I
          -FCC0418
 ARITH     FNDOP    DATA   0                                                               ARITH       6334          I
          -FCC0418
 ARITH              SA1    RL2          X1=ADR OF 1ST WORD OF ENTRY                        ARITH       6335          I
          -FCC0418
 ARITH              ZR     X1,FNDP5     IF NO PRECEDING ENTRY (CAN HAPPEN IF ILLE-         ARITH       6336          I
          -FCC0418
 ARITH    *                                                    GAL SOURCE.)                ARITH       6337          I
          -FCC0418
 ARITH              SA2    X1           GET 1ST WORD OF ENTRY                              ARITH       6338          I
          -FCC0418
 ARITH              SB2    59-45                                                           ARITH       6339          I
          -FCC0418
 ARITH              SA4       FNDPF                                                        ARITH       6340          I
          -FCC0418
 ARITH              MX0    60-18                                                           ARITH       6341          I
          -FCC0418
 ARITH              SB3       59-46                                                        ARITH       6342          I
          -FCC0418
 ARITH              PL     X2,FNDP1     IF NOT NO-OPED                                     ARITH       6343          I
          -FCC0418
 ARITH              BX2   -X2                                                              ARITH       6344          I
          -FCC0418
 ARITH     FNDP1    BX6   -X0*X2        SAVE B17-B0 (NO.OF WORDS IN PRECEDING ENT)         ARITH       6345          I
          -FCC0418
 ARITH              ZR     X6,FNDP4     IF NO PRECEDING UNUSED (OR GP) ENTRIES.            ARITH       6346          I
          -FCC0418
 ARITH              IX1    X1-X6                                                           ARITH       6347          I
          -FCC0418
 ARITH              SA2    X1                                                              ARITH       6348          I
          -FCC0418
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2252    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              PL     X2,FNDP2     IF ENTRY NOT NO-OPED                               ARITH       6349          I
          -FCC0418
 ARITH              BX2    -X2                                                             ARITH       6350          I
          -FCC0418
 ARITH              ZR        FNDP1                                                        ARITH       6351          I
          -FCC0418
 ARITH     FNDP2    NZ     X4,FNDP3     IF LOOKING FOR LAST GPTU LINE.                     ARITH       6352          I
          -FCC0418
 ARITH              LX3    B2,X2        IS USED BIT ON -                                   ARITH       6353          I
          -FCC0418
 ARITH              NG     X3,FNDP1     IF YES                                             ARITH       6354          I
          -FCC0418
 ARITH              LX3       59                                                           ARITH       6355          I
          -FCC0418
 ARITH              NG     X3,FNDP1     IF GPTU BIT ON                                     ARITH       6356          I
          -FCC0418
 ARITH     FNDP5    BX6    X1                                                              ARITH       6357          I
          -FCC0418
 ARITH              ZR        FNDOP                                                        ARITH       6358          I
          -FCC0418
 ARITH     FNDP3    LX3    B3,X2                                                           ARITH       6359          I
          -FCC0418
 ARITH              PL     X3,FNDP1     IF GPTU BIT NOT ON                                 ARITH       6360          I
          -FCC0418
 ARITH              MX4       59        TURN OFF GPTU BIT                                  ARITH       6361          I
          -FCC0418
 ARITH              IX6    X0-X0                                                           ARITH       6362          I
          -FCC0418
 ARITH              LX4       46                                                           ARITH       6363          I
          -FCC0418
 ARITH              BX7    X2*X4                                                           ARITH       6364          I
          -FCC0418
 ARITH              SA7    X1                                                              ARITH       6365          I
          -FCC0418
 ARITH              ZR        FNDP4                                                        ARITH       6366          I
          -FCC0418
 ARITH    **        FNDOP - FIND FIRST UNUSED OPERAND PRECEDING RL2.                       FCC0418       18     A     
 ARITH    *         OPERANDS WITH GPTU BIT SET, AS WELL AS THOSE WHICH HAVE BEEN           FCC0418       19     A     
 ARITH    *         NO-OPED, ARE PASSED OVER.                                              FCC0418       20     A     
 ARITH    *                                                                                FCC0418       21     A     
 ARITH    *         EXIT   X6 - ADDRESS OF FOUND OPERAND, OR 0 IF NONE EXISTS.             FCC0418       22     A     
 ARITH    *                                                                                FCC0418       23     A     
 ARITH    *         PRESERVES  B1.                                                         FCC0418       24     A     
 ARITH                                                                                     FCC0418       25     A     
 ARITH     FNDOP    ENTRY. *           ** ENTRY/EXIT **                                    FCC0418       26     A     
 ARITH              SA1    RL2                                                             FCC0418       27     A     
 ARITH              SA3    FNDOPA                                                          FCC0418       28     A     
 ARITH              MX6    0                                                               FCC0418       29     A     
 ARITH              SA2    X1                                                              FCC0418       30     A     
 ARITH              SB2    X1                                                              FCC0418       31     A     
 ARITH              BX2    -X2         SIMULATE NO-OP FOR RL2                              FCC0418       32     A     
 ARITH                                                                                     FCC0418       33     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2253    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     FNDOP1   ZR     B2,FNDOP    IF NO PRECEDING ENTRY                               FCC0418       34     A     
 ARITH              BX0    X2                                                              FCC0418       35     A     
 ARITH              AX2    59                                                              FCC0418       36     A     
 ARITH              BX1    X2-X0                                                           FCC0418       37     A     
 ARITH              SB2    X1+         LENGTH OF PRECEDING ENTRY                           FCC0418       38     A     
 ARITH              BX0    X3*X0                                                           FCC0418       39     A     
 ARITH              SA2    A2-B2       LOAD HEADER OF PRECEDING ENTRY                      FCC0418       40     A     
 ARITH              NZ     X0,FNDOP1   IF ENTRY NO-OPED, USED OR GPTU                      FCC0418       41     A     
 ARITH              SX6    A2+B2       RESTORE ADDRESS OF NEXT ENTRY                       FCC0418       42     A     
 ARITH              EQ     FNDOP                                                           FCC0418       43     A     
 ARITH                                                                                     FCC0418       44     A     
 ARITH     FNDOPA   CON    1S59+1S46+1S45    NO-OP .OR. USED .OR. GPTU BITS                FCC0418       45     A     
 ARITH              SPACE  4,8                                                             FCC0418       46     A     
 ARITH    **        CLGP - CLEAR GPTU BIT.                                                 FCC0418       47     A     
 ARITH    *         CLEAR GPTU BIT OF FIRST ENTRY IN ARLIST PRECEDING RL2 WITH             FCC0418       48     A     
 ARITH    *         THAT BIT SET.                                                          FCC0418       49     A     
 ARITH                                                                                     FCC0418       50     A     
 ARITH     CLGP1    ZR     B3,CLGP     IF NO PRECEDING ENTRY                               FCC0418       51     A     
 ARITH              BX0    X2                                                              FCC0418       52     A     
 ARITH              AX2    59                                                              FCC0418       53     A     
 ARITH              BX6    -X2-X0                                                          FCC0418       54     A     
 ARITH              SB3    X6          LENGTH OF PRECEDING ENTRY                           FCC0418       55     A     
 ARITH              LX6    59-46                                                           FCC0418       56     A     
 ARITH              BX3    X6+X0                                                           FCC0418       57     A     
 ARITH              SA2    A2+B3       HEADER OF PRECEDING ENTRY                           FCC0418       58     A     
 ARITH              MI     X3,CLGP1    IF ENTRY NO-OPED OR NOT GPTU                        FCC0418       59     A     
 ARITH                                                                                     FCC0418       60     A     
 ARITH    *         CLEAR GPTU BIT.                                                        FCC0418       61     A     
 ARITH                                                                                     FCC0418       62     A     
 ARITH              MX4    1                                                               FCC0418       63     A     
 ARITH              LX4    1+46                                                            FCC0418       64     A     
 ARITH              BX7    -X4*X0                                                          FCC0418       65     A     
 ARITH              SA7    A2-B3                                                           FCC0418       66     A     
 ARITH                                                                                     FCC0418       67     A     
 ARITH     CLGP     ENTRY. *           ** ENTRY/EXIT **                                    FCC0418       68     A     
 ARITH              SA1    RL2                                                             FCC0418       69     A     
 ARITH              SA2    X1+                                                             FCC0418       70     A     
 ARITH              BX2    -X2         SIMULATE NO-OP FOR RL2                              FCC0418       71     A     
 ARITH              SB3    X1                                                              FCC0418       72     A     
 ARITH              EQ     CLGP1                                                           FCC0418       73     A     
 ARITH     CHKOFF   SPACE  3                                                               ARITH       6367     A     
 ARITH     CHKOFF   ENTRY. *                 ** ENTRY/EXIT **                              ARITH       6368     A     
 ARITH              SA1       RL2       TURN ON USED BIT OF ENTRY AT RL2                   ARITH       6369     A     
 ARITH              MX0       1                                                            ARITH       6370     A     
 ARITH              SA2    X1                                                              ARITH       6371     A     
 ARITH              LX0       46                                                           ARITH       6372     A     
 ARITH              BX7    X0+X2                                                           ARITH       6373     A     
 ARITH              SA7    X1                                                              ARITH       6374     A     
 ARITH              SA2       RL1       ADJUST RLS                                         ARITH       6375     A     
 ARITH              BX6    X2                                                              ARITH       6376     A     
 ARITH              SA6       RL2                                                          ARITH       6377     A     
 ARITH              RJ        FNDOP                                                        ARITH       6378     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2254    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA6       RL1                                                          ARITH       6379     A     
 ARITH              ZR        CHKOFF                                                       ARITH       6380     A     
 ARITH              EJECT                                                                  ARITH       6381     A     
 ARITH    *     UINGEN: OUTPUTS UNARY OPERATORS WITH RL2 INDICATING OPERAND.  TYPE         ARITH       6382     A     
 ARITH    ** OF RESULT WILL BE SAME AS OPD,S.   COME WITH X6=MACRO CODE                    ARITH       6383     A     
 ARITH    ** IF OPD TYPE IS DBL/CMPX, UINGEN ADDS 1 TO MAC CODE IN S6.                     ARITH       6384     A     
 ARITH    *  IF .NOT. HAS A DBL OPD, IT WILL BE CHANGED TO SNGL BEFORE CALL UINGEN         ARITH       6385     A     
 ARITH     UINGEN   ENTRY. *                 ** ENTRY/EXIT **                              ARITH       6386     A     
 ARITH              SA1       RL2                                                          ARITH       6387     A     
 ARITH              SA2    X1                                                              ARITH       6388     A     
 ARITH              UX0 B2,X2                                                              ARITH       6389     A     
 ARITH              LX2       59-47                                                        ARITH       6390     A     
 ARITH              PL     X2,UINGN3    IF NOT CONST OPD                                   ARITH       6391     A     
 ARITH              SX7    B2                                                              ARITH       6392     A     
 ARITH              SB3    X6-MAC-43                                                       ARITH       6393     A     
 ARITH              NZ     B3,UINGN3         NOT U-                                        ARITH       6394     A     
 ARITH              SB3    T.DBL                                                           ARITH       6395     A     
 ARITH              SB4    T.CPLX                                                          ARITH       6396     A     
 ARITH              EQ  B2,B3,UINGN3    IF DBL U-                                          ARITH       6397     A     
 ARITH              EQ  B2,B4,UINGN3    IF CPX U-                                          ARITH       6398     A     
 ARITH              SA7       TYPEWD    HERE FOR COMPILE TIME U-                           ARITH       6399     A     
 ARITH              SA1    X1                                                              ARITH       6400     A     
 ARITH              RJ        NEWCON    NO-OP OLD CONST AND GET VALUE                      ARITH       6401     A     
 ARITH              BX6   -X6                                                              ARITH       6402     A     
 ARITH              RJ     OPNCON       OUTPUT NEW CONSTANT                                ARITH       6403     A     
 ARITH              ZR        UINGEN                                                       ARITH       6404     A     
 ARITH     UINGN3   SA1       RL2                                                          ARITH       6405     A     
 ARITH              MX0       1                                                            ARITH       6406     A     
 ARITH              SA2    X1           TURN ON USED BIT                                   ARITH       6407     A     
 ARITH              LX0       46                                                           ARITH       6408     A     
 ARITH              BX7    X2+X0                                                           ARITH       6409     A     
 ARITH              UX0 B2,X2           GET TYPE IN X5                                     ARITH       6410     A     
 ARITH              SA7    X1                                                              ARITH       6411     A     
 ARITH              SX5    B2                                                              ARITH       6412     A     
 ARITH              SA2    X1+2         GET RN OF OPD                                      ARITH       6413     A     
 ARITH              MX0    60-16                                                           ARITH       6414     A     
 ARITH              BX7   -X0*X2                                                           ARITH       6415     A     
 ARITH              SA7    PARAMS+1                                                        ARITH       6416     A     
 ARITH              SX7    X7+1         IN CASE DBL LENGTH                                 ARITH       6417     A     
 ARITH              SA7       PARAMS+3                                                     ARITH       6418     A     
 ARITH              SA2    NARN         GET RESULT NO.                                     ARITH       6419     A     
 ARITH              BX7    X2                                                              ARITH       6420     A     
 ARITH              SA7    PARAMS       RI                                                 ARITH       6421     A     
 ARITH              SX7    X2+1         UPDATE RN                                          ARITH       6422     A     
 ARITH              SA3       SLBMD                                                        ARITH       6423     A     
 ARITH              SA7       PARAMS+2                                                     ARITH       6424     A     
 ARITH              SB3    T.DBL                                                           ARITH       6425     A     
 ARITH              SB4    T.CPLX                                                          ARITH       6426     A     
 ARITH              EQ  B2,B3,UINGN2                                                       ARITH       6427     A     
 ARITH              NE  B2,B4,UINGN1                                                       ARITH       6428     A     
 ARITH     UINGN2   SX7    X7+1                                                            ARITH       6429     A     
 ARITH              SA3       DLBMD                                                        ARITH       6430     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2255    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SX6    X6+1                                                            ARITH       6431     A     
 ARITH     UINGN1   SA7       NARN                                                         ARITH       6432     A     
 ARITH              SB2    X6                                                              ARITH       6433     A     
 ARITH              PX3    B2,X3                                                           ARITH       6434     A     
 ARITH              RJ        MACOUT                                                       ARITH       6435     A     
 ARITH              RJ        FNDOP                                                        ARITH       6436     A     
 ARITH              SA6    RL1                                                             ARITH       6437     A     
 ARITH              ZR        UINGEN    END OF UINGEN                                      ARITH       6438     A     
 ARITH              TITLE                  MACOUT--OUTPUT R-LIST MACROS TO 'ARLIST         ARITH       6439     A     
 ARITH    ,' BUFFER                                                                        ARITH       6440     A     
 ARITH    ************************************************************************         ARITH       6441     A     
 ARITH    *                                                                      *         ARITH       6442     A     
 ARITH    *                M  A  C  O  U  T                                      *         ARITH       6443     A     
 ARITH    *                                                                      *         ARITH       6444     A     
 ARITH    *              THIS ROUTINE WILL OUTPUT A DESIGNATED R-LIST MACRO TO   *         ARITH       6445     A     
 ARITH    *         THE 'ARLIST' BUFFER AREA, PACKING THE PARAMETERS SUPPLIED IN *         ARITH       6446     A     
 ARITH    *         THE 'PARAM' AREA (ONE PER WORD, RIGHT-JUSTIFIED).  UPON      *         ARITH       6447     A     
 ARITH    *         ENTRY TO  'MACOUT' THE FOLLOWING REGISTERS MUST HAVE BEEN    *         ARITH       6448     A     
 ARITH    *         SETUP:                                                       *         ARITH       6449     A     
 ARITH    *                                                                      *         ARITH       6450     A     
 ARITH    *                X2      -- RI                                         *         ARITH       6451     A     
 ARITH    *                X3      -- 'ARITH'S MACRO DESCRIPTOR WORD             *         ARITH       6452     A     
 ARITH    *                X5      -- TYPE OF RESULT                             *         ARITH       6453     A     
 ARITH    *                PARAMS -- MACRO PARAMETERS (ONE PER WORD)             *         ARITH       6454     A     
 ARITH    *                                A)  SYMBOLS   (IF ANY)                *         ARITH       6455     A     
 ARITH    *                                B)  R-S       (IF ANY)                *         ARITH       6456     A     
 ARITH    *                                C)  CONSTANTS (IF ANY)                *         ARITH       6457     A     
 ARITH    *                                                                      *         ARITH       6458     A     
 ARITH    *              UPON EXIT FROM 'MACOUT' THE FOLLOWING INFORMATION WILL  *         ARITH       6459     A     
 ARITH    *         BE AVAILABLE:                                                *         ARITH       6460     A     
 ARITH    *                                                                      *         ARITH       6461     A     
 ARITH    *                X7      -- ADDRESS OF R-LIST MACRO ENTRY IN 'ARLIST'  *         ARITH       6462     A     
 ARITH    *                B1      -- CONTENTS UNDISTURBED                       *         ARITH       6463     A     
 ARITH    *                RL1     -- UPDATED                                    *         ARITH       6464     A     
 ARITH    *                RL2     -- UPDATED                                    *         ARITH       6465     A     
 ARITH    *                ARLPT   -- UPDATED                                    *         ARITH       6466     A     
 ARITH    *                LASTR   -- UPDATED                                    *         ARITH       6467     A     
 ARITH    *                                                                      *         ARITH       6468     A     
 ARITH    ************************************************************************         ARITH       6469     A     
 ARITH              SPACE  1                                                               ARITH       6470     A     
 ARITH    MACOUT    BSS    1                                                               ARITH       6471     A     
 ARITH              UX4    X3,B2           EXTRACT THE R-LIST MACRO OPCODE AND THE         ARITH       6472     A     
 ARITH              MX0    60-12             NUMBER OF PARAMETER WORDS WHICH WILL          ARITH       6473     A     
 ARITH              LX4    24                FOLLOW (IN PACKED FORM).                      ARITH       6474     A     
 ARITH              BX6    -X0*X4                                                          ARITH       6475     A     
 ARITH              SB4    X6-ARLSZ                                                        ARITH       6476     A     
 ARITH              SA1    ARLPT           LOAD THE CURRENT 'ARLIST' POINTER.              ARITH       6477     A     
 ARITH              SB2    -B2             (COMPLEMENT THE MACRO OPCODE)                   ARITH       6478     A     
 ARITH              LX6    30                                                              ARITH       6479     A     
 ARITH              IX4    X6+X2                                                           ARITH       6480     A     
 ARITH              PX7    X4,B2                                                           ARITH       6481     A     
 ARITH              SB7    X1+3                                                            ARITH       6482     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2256    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SB4    B4+B7                                                           ARITH       6483     A     
 ARITH              BX1    -X0*X3          (EXTRACT THE NUMBER OF SYMBOLIC                 ARITH       6484     A     
 ARITH              SB6    X1                PARAMETERS FOR THIS MACRO.)                   ARITH       6485     A     
 ARITH              PL     B4,ARLOVER      IF THE 'ARLIST' BUFFER WILL OVERFLOW            ARITH       6486     A     
 ARITH              SA7    B7+ARLIST-1     STORE THE MACRO HEADER WORD INTO THE            ARITH       6487     A     
 ARITH                                       'ARLIST' AREA.                                ARITH       6488     A     
 ARITH              SUB                                                                    ARITH       6489     A     
 ARITH              SB5    1               (SET A CONSTANT ONE FOR THE  REMAINDER          ARITH       6490     A     
 ARITH                                       OF THIS ROUTINE ONLY.)                        ARITH       6491     A     
 ARITH              SB2    PARAMS                                                          ARITH       6492     A     
 ARITH              SB4    48                                                              ARITH       6493     A     
 ARITH              ZR     X1,MACOUT.4     IF THERE ARE NO SYMBOLIC PARAMETERS             ARITH       6494     A     
 ARITH    MACOUT.1  MX1    60-30           FORM A MASK TO EXTRACT SYMBOLIC FIELDS.         ARITH       6495     A     
 ARITH              BX6    X6-X6           CLEAR THE PACKED PARAMETER ACCUMULATOR.         ARITH       6496     A     
 ARITH              SB3    B0              INITIALIZE THE SHIFT COUNT.                     ARITH       6497     A     
 ARITH    MACOUT.2  SA2    B2              FETCH THE NEXT PARAMETER.                       ARITH       6498     A     
 ARITH              SB6    B6-B5           DECREMENT THE NUMBER OF SYMBOLS.                ARITH       6499     A     
 ARITH              BX7    -X1*X2          EXTRACT THE SYMBOL FIELD.                       ARITH       6500     A     
 ARITH              LX2    X7,B3           POSITION THE SYMBOL FOR PACKING.                ARITH       6501     A     
 ARITH              SB2    B2+B5           INCREMENT THE 'PARAM' ADDRESS.                  ARITH       6502     A     
 ARITH              BX6    X2+X6           PACK IN THESYMBOL.                              ARITH       6503     A     
 ARITH              SB3    B3+30           INCREMENT THE SHIFT COUNT.                      ARITH       6504     A     
 ARITH              ZR     B6,MACOUT.3     IF NO MORE SYMBOLS                              ARITH       6505     A     
 ARITH              LT     B3,B4,MACOUT.2  IF ROOM FOR MORE IN CURRENT PARAM WORD          ARITH       6506     A     
 ARITH    MACOUT.3  SA6    B7+ARLIST       STORE THE PACKED PARAMETER WORD.                ARITH       6507     A     
 ARITH              SUB                                                                    ARITH       6508     A     
 ARITH              SB7    B7+B5           INCREMENT THE 'ARLIST' POINTER ADDRESS.         ARITH       6509     A     
 ARITH              NZ     B6,MACOUT.1     IF MORE SYMBOLS                                 ARITH       6510     A     
 ARITH    MACOUT.4  AX3    12              EXTRACT THE NUMBER OF R-S.                      ARITH       6511     A     
 ARITH              BX1    -X0*X3                                                          ARITH       6512     A     
 ARITH              SB6    X1                                                              ARITH       6513     A     
 ARITH              AX3    12                                                              ARITH       6514     A     
 ARITH              BX3    -X0*X3                                                          ARITH       6515     A     
 ARITH              ZR     X1,MACOUT.8     IF NO R-PARAMETERS                              ARITH       6516     A     
 ARITH              MX1    60-16                                                           ARITH       6517     A     
 ARITH    MACOUT.5  BX6    X6-X6           CLEAR THE PARAMETER ACCUMULATOR.                ARITH       6518     A     
 ARITH              SB3    B0              INITIALIZE THE SHIFT COUNT.                     ARITH       6519     A     
 ARITH    MACOUT.6  SA2    B2              FETCH THE NEXT R-PARAMETER.                     ARITH       6520     A     
 ARITH              SB6    B6-B5           DECREMENT THE COUNT OF R-PARAMETERS             ARITH       6521     A     
 ARITH              BX7    -X1*X2          EXTRACT THE R-PARMAETER.                        ARITH       6522     A     
 ARITH              LX2    X7,B3                                                           ARITH       6523     A     
 ARITH              IX6    X6+X2                                                           ARITH       6524     A     
 ARITH              SB2    B2+B5           INCREMENT THE 'PARAM' ADDRESS.                  ARITH       6525     A     
 ARITH              SB3    B3+16           INCREMENT THE SHIFT COUNT.                      ARITH       6526     A     
 ARITH              ZR     B6,MACOUT.7     IF NO MORE R-PARAMETERS                         ARITH       6527     A     
 ARITH              LT     B3,B4,MACOUT.6  IF ROOM FOR MORE R-PARAMETERS                   ARITH       6528     A     
 ARITH    MACOUT.7  SA6    B7+ARLIST       STORE THE PACKED PARAMETER WORD.                ARITH       6529     A     
 ARITH              SUB                                                                    ARITH       6530     A     
 ARITH              SB7    B7+B5           INCREMENT THE 'ARLIST' POINTER.                 ARITH       6531     A     
 ARITH              NZ     B6,MACOUT.5     IF MORE R-PARAMETERS                            ARITH       6532     A     
 ARITH     MACOUT.8 ZR     X3,MACOUT.C     IF NO CONSTANT PARAMETERS                       ARITH       6533     A     
 ARITH              SB6    X3                                                              ARITH       6534     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2257    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              MX1    60-18           SET UP MASK TO EXTRACT CONSTANTS.               ARITH       6535     A     
 ARITH    MACOUT.9  BX6    X6-X6           CLEAR THEPACKED PARAMETER ACCUMULATOR.          ARITH       6536     A     
 ARITH              SB3    B0              INITIALIZE THE SHIFT COUNT.                     ARITH       6537     A     
 ARITH    MACOUT.A  SA2    B2              FETCH THE NEXT CONSTANT PARAMETER.              ARITH       6538     A     
 ARITH              SB6    B6-B5           DECREMENT THE COUNT OF CONSTANT                 ARITH       6539     A     
 ARITH                                       PARAMETRS.                                    ARITH       6540     A     
 ARITH              BX7    -X1*X2          EXTRACT THE CONSTANT                            ARITH       6541     A     
 ARITH              LX2    X7,B3           POSITION THE CONSTANT FOR PACKING.              ARITH       6542     A     
 ARITH              IX6    X6+X2             (AND PACK IT)                                 ARITH       6543     A     
 ARITH              SB2    B2+B5           INCREMENT THE 'PARAM' ADDRESS.                  ARITH       6544     A     
 ARITH              SB3    B3+18           INCREMENT THE SHIFT COUNT.                      ARITH       6545     A     
 ARITH              ZR     B6,MACOUT.B     IF NO CONSTANTS PARAMETERS REMAIN               ARITH       6546     A     
 ARITH              LT     B3,B4,MACOUT.A  IF MORE ROOM REMAINS FOR CONSTANTS THEN         ARITH       6547     A     
 ARITH    MACOUT.B  SA6    B7+ARLIST       STORE THE  PACKED CONSTANT PARAMETERS.          ARITH       6548     A     
 ARITH              SUB                                                                    ARITH       6549     A     
 ARITH              SB7    B7+B5           INCREMENT THE 'ARLIST' POINTER ADDRESS.         ARITH       6550     A     
 ARITH              NZ     B6,MACOUT.9     IF MORE CONSTANTS THEN GO TO 'MACOUT.9'         ARITH       6551     A     
 ARITH    MACOUT.C  SA1    ARLPT                                                           ARITH       6552     A     
 ARITH              SX7    B7              (CURRENT 'ARLIST' POINTER)                      ARITH       6553     A     
 ARITH              IX6    X7-X1           (NUMBER OF WORDS IN 'ARLIST' ENTRY.)            ARITH       6554     A     
 ARITH              SA2    LASTR           PICKUP THE FIRST WORD OF THE LAST ENTRY         ARITH       6555     A     
 ARITH              SA4    X2                                                              ARITH       6556     A     
 ARITH              SA7    A1              UPDATE THE VALUE OF 'ARLPT'.                    ARITH       6557     A     
 ARITH              NZ     X1,MACOUT.D     IF THIS IS NOT THE FIRST 'ARLIST' ENTRY         ARITH       6558     A     
 ARITH              BX4    X4-X4           (OTHERWISE SET THE WORD COUNT TO ZERO.)         ARITH       6559     A     
 ARITH    MACOUT.D  BX2    X4                                                              ARITH       6560     A     
 ARITH              AX2    59                                                              ARITH       6561     A     
 ARITH              BX4    X2-X4           MAKE SURE THE WORD IS POSITIVE (INCASE          ARITH       6562     A     
 ARITH                                       THE LAST ENTRY WAS NO-OPED)                   ARITH       6563     A     
 ARITH              AX4    18              EXTRACT THE NUMBER OF WORDS IN THE              ARITH       6564     A     
 ARITH              BX4    -X0*X4            PRECEEDING ENTRY.                             ARITH       6565     A     
 ARITH              LX6    18                                                              ARITH       6566     A     
 ARITH              BX4    X4+X6                                                           ARITH       6567     A     
 ARITH              SB6    X5                                                              ARITH       6568     A     
 ARITH              SA2    EQCOUNT           EQUAL SIGN COUNTER                            ARITH       6569     A     
 ARITH              SX3    X2                                                              ARITH       6570     A     
 ARITH              LX3    37                                                              ARITH       6571     A     
 ARITH              BX4    X4+X3             INSERT IN HEADER WORD                         ARITH       6572     A     
 ARITH              PX6    X4,B6           PACK THE TYPE OF RESULT INTO THE                ARITH       6573     A     
 ARITH              SA6    X1+ARLIST         'ARLIST' HEADER WORD AND STORE IT.            ARITH       6574     A     
 ARITH              SUB                                                                    ARITH       6575     A     
 ARITH              BX7    X7-X7                                                           ARITH       6576     A     
 ARITH              SA7    X1+ARLIST+1     (STORE ZERO INTO THE SECOND WORD OF THE         ARITH       6577     A     
 ARITH                                       'ARLIST' ENTRY.)                              ARITH       6578     A     
 ARITH              SUB                                                                    ARITH       6579     A     
 ARITH              SX7    A6              UPDATE THE RL-S (REGISTER X6 WILL               ARITH       6580     A     
 ARITH              SA2    RL2               CONTAIN THE ADDRESS OF THE NEW                ARITH       6581     A     
 ARITH              SA7    RL2               'ARLIST' ENTRY.)                              ARITH       6582     A     
 ARITH              BX6    X2                                                              ARITH       6583     A     
 ARITH              SA6    RL1                                                             ARITH       6584     A     
 ARITH              SA7    LASTR           UPDATE 'LASTR'.                                 ARITH       6585     A     
 ARITH              EQ     MACOUT      EXIT                                                ARITH       6586     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2258    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH                                                                                     ARITH       6587     A     
 ARITH    ARLOVER   BSS    0                                                               ARITH       6588     A     
 ARITH    MAC1D     EQU    ARLOVER                                                         ARITH       6589     A     
 ARITH              EERR   ERMSG22         'ARITH'S 'ARLIST' BLOCK FULL                    ARITH       6590     A     
 ARITH     FETCH    EJECT                                                                  ARITH       6591     A     
 ARITH    **        FETCH - OUTPUT A LOAD MACRO FOR A VARIABLE                             ARITH       6592     A     
 ARITH    *         ENTRY  (B6) = RF                                                       ARITH       6593     A     
 ARITH    *                (B7) = CA                                                       ARITH       6594     A     
 ARITH    *                (X5) = IH ( SYMTAB ORD )                                        ARITH       6595     A     
 ARITH    *                IDLORTS = 60/IH,60/CA                                           ARITH       6596     A     
 ARITH    *                UPDATES NARN                                                    ARITH       6597     A     
 ARITH                                                                                     ARITH       6598     A     
 ARITH     FETCH    ENTRY. *                 ** ENTRY/EXIT **                              ARITH       6599     A     
 ARITH              BX6    X5                                                              ARITH       6600     A     
 ARITH              SA6       PARAMS    (I,H)                                              ARITH       6601     A     
 ARITH              SX7    B6                                                              ARITH       6602     A     
 ARITH              SA7    PARAMS+2     RF                                                 ARITH       6603     A     
 ARITH              SX6    B7                                                              ARITH       6604     A     
 ARITH              SA2    NARN         NEXT AVAILABLE RN                                  ARITH       6605     A     
 ARITH              BX7    X2                                                              ARITH       6606     A     
 ARITH              MX0    60-L.TYP                                                        ARITH       6607     A     
 ARITH              SA7    PARAMS+1     RI                                                 ARITH       6608     A     
 ARITH              SA1    NAME+1       GET 2ND WD OF ID TO SEE IF DBL WD ELEMENT          ARITH       6609     A     
 ARITH              LX1    60-P.TYP                                                        ARITH       6610     A     
 ARITH              BX5    -X0*X1       X5 NOW HOLDS TYPE OF OPD                           ARITH       6611     A     
 ARITH              SX1    X5-T.DBL                                                        ARITH       6612     A     
 ARITH              SX0    X5-T.CPLX                                                       ARITH       6613     A     
 ARITH              ZR     X1,FECH2     IF DOUBLE                                          ARITH       6614     A     
 ARITH              ZR     X0,FECH2     IF CMPX                                            ARITH       6615     A     
 ARITH              SA6    PARAMS+3    CA                                                  ARITH       6616     A     
 ARITH              SA3    SLDMAC       SINGLE LOAD MACRO DESCRIPTOR.                      ARITH       6617     A     
 ARITH     FECH3    SX7    X7+1         UPDATE NARN                                        ARITH       6618     A     
 ARITH              SA7    NARN                                                            ARITH       6619     A     
 ARITH              RJ        MACOUT                                                       ARITH       6620     A     
 ARITH              SA2    IDORDLTS+1                                                      ARITH       6621     A     
 ARITH              MX1    -18                                                             ARITH       6622     A     
 ARITH              BX2    -X1*X2                                                          ARITH       6623     A     
 ARITH              SA1    LASTR                                                           ARITH       6624     A     
 ARITH              LX2    18                                                              ARITH       6625     A     
 ARITH              SA3    A2-1                                                            ARITH       6626     A     
 ARITH              BX6    X2+X3                                                           ARITH       6627     A     
 ARITH              SA6    X1+1              SAVE ORIGINAL IH,CA IN MACRO HEADER           ARITH       6628     A     
 ARITH              ZR        FETCH                                                        ARITH       6629     A     
 ARITH    *     FECH2 IF DOUBLE WORD ELEMENT                                               ARITH       6630     A     
 ARITH     FECH2    SA6    PARAMS+4     CA                                                 ARITH       6631     A     
 ARITH              SX7    X7+1                                                            ARITH       6632     A     
 ARITH              SA7    PARAMS+3     RII                                                ARITH       6633     A     
 ARITH              SX6    X6+1                                                            ARITH       6634     A     
 ARITH              SA6    PARAMS+5     CA+1                                               ARITH       6635     A     
 ARITH              SA3    DLMAC                                                           ARITH       6636     A     
 ARITH              ZR        FECH3                                                        ARITH       6637     A     
 ARITH              EJECT                                                                  ARITH       6638     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2259    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    *                                                                                ARITH       6639     A     
 ARITH    *         ROUTINE TO SEE IF CONST CAN BE EXPRESSED                               ARITH       6640     A     
 ARITH    *         IS OF THE FORM -(2**N - 1)                                             ARITH       6641     A     
 ARITH    *                COME WITH CONST IN X5                                           ARITH       6642     A     
 ARITH    *                LEAVE WITH B3 = 0 IF SPECIAL CON                                ARITH       6643     A     
 ARITH    *                                                                                ARITH       6644     A     
 ARITH    SPCON     DATA   0                                                               ARITH       6645     A     
 ARITH              CX6    X5           COUNT ONES                                         ARITH       6646     A     
 ARITH              SX0    59                                                              ARITH       6647     A     
 ARITH              IX2    X0-X6                                                           ARITH       6648     A     
 ARITH              SB3    X2                                                              ARITH       6649     A     
 ARITH              MX0    1                                                               ARITH       6650     A     
 ARITH              BX0    -X0                                                             ARITH       6651     A     
 ARITH              AX0    B3,X0                                                           ARITH       6652     A     
 ARITH              IX2    X5-X0        IS THIS A SPECIAL CONST                            ARITH       6653     A     
 ARITH              SX0    60                                                              ARITH       6654     A     
 ARITH              SB3    X0                                                              ARITH       6655     A     
 ARITH              NZ     X2,SPCON          NO SPECIAL CONSTANT                           ARITH       6656     A     
 ARITH              IX6    X0-X6             NUMBER OF BITS IN MASK                        ARITH       6657     A     
 ARITH              SB3    0                                                               ARITH       6658     A     
 ARITH              ZR     SPCON                                                           ARITH       6659     A     
 ARITH     CHKARG   TITLE  CHKARG - CHECK ARGUMENT TYPE                                    ARITH       6660     A     
 ARITH    ***                                                                              ARITH       6661     A     
 ARITH    *         CHKARG - CHECK ARGUMENT TYPE.                                          ARITH       6662     A     
 ARITH    *                                                                                ARITH       6663     A     
 ARITH    *         CHECKS TO ENSURE THAT THE ARGUMENT TYPE IN THE CALL TO A               ARITH       6664     A     
 ARITH    *         BASIC EXTERNAL FUNCTION OR AN INTRINSIC FUNCTION MATCHES THE           ARITH       6665     A     
 ARITH    *         REQUIRED ARGUMENT TYPE.                                                ARITH       6666     A     
 ARITH    *                                                                                ARITH       6667     A     
 ARITH    *         ENTRY - B2 = TYPE OF ACTUAL ARGUMENT.                                  ARITH       6668     A     
 ARITH    *                 X2 = WORD 1 OF ARLIST ENTRY OF ACTUAL ARGUMENT.                ARITH       6669     A     
 ARITH    *                ACNT = ARGUMENT NUMBER.                                         ARITH       6670     A     
 ARITH    *                TYADR = HOLDS POINTER TO INF OR BEF TABLE ENTRY                 ARITH       6671     A     
 ARITH    *                                                                                ARITH       6672     A     
 ARITH    *         EXIT - A FATAL ERROR IS ISSUED IF TYPES FAIL TO MATCH.                 ARITH       6673     A     
 ARITH    *                                                                                ARITH       6674     A     
 ARITH    *         USES - X0,A1,X1,B3,B4.                                                 ARITH       6675     A     
 ARITH                                                                                     ARITH       6676     A     
 ARITH                                                                                     ARITH       6677     A     
 ARITH     CHKARG   JP     *+1S17                                                          ARITH       6678     A     
 ARITH              SA1    ACNT                                                            ARITH       6679     A     
 ARITH              SB3    X1                SAVE ACTUAL NUMBER OF ARGUMENTS               ARITH       6680     A     
 ARITH              SA1    FNAD              RETRIEVE NUMBER OF ARGS FOR THIS BEF          ARITH       6681     A     
 ARITH              SA1    X1-1                                                            ARITH       6682     A     
 ARITH              MX0    -L.FARG                                                         ARITH       6683     A     
 ARITH              LX1    -P.FARG                                                         ARITH       6684     A     
 ARITH              BX0    -X0*X1            EXTRACT EXPECTED NUMBER OF ARGUMENTS          ARITH       6685     A     
 ARITH              SB4    X0                SAVE NUMBER OF ARGUMENTS EXPECTED             ARITH       6686     A     
 ARITH              GE     B4,B3,CHKA0       IF NOT TOO MANY ARGUMENTS                     ARITH       6687     A     
 ARITH              NZ     B4,CHKA7          IF NUMBER OF ARGS EXPECTED .NE. 0             ARITH       6688     A     
 ARITH              LX1    P.FARG-P.INF-1                                                  ARITH       6689     A     
 ARITH              PL     X1,CHKA7          IF NOT INTRINSIC FUNCTION                     ARITH       6690     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2260    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     CHKA0    MX0    -3                                                              ARITH       6691     A     
 ARITH    *                                  FOR INTRINSIC FUNCTIONS WITH MORE             ARITH       6692     A     
 ARITH    *                                  THAN 4 ARGUMENTS, ALL ARGUMENTS MUST          ARITH       6693     A     
 ARITH    *                                  BE THE SAME TYPE.  THEREFORE, THE             ARITH       6694     A     
 ARITH    *                                  ARGUMENT NUMBER MAY BE TREATED MOD 4          ARITH       6695     A     
 ARITH    *                                  FOR PURPOSES OF TYPE CHECKING.                ARITH       6696     A     
 ARITH              SX1    B3+B3                                                           ARITH       6697     A     
 ARITH              BX1    -X0*X1                                                          ARITH       6698     A     
 ARITH              IX0    X1+X1                                                           ARITH       6699     A     
 ARITH              IX0    X0+X1                                                           ARITH       6700     A     
 ARITH              SB3    X0          (B3) = 6*ACNT                                       ARITH       6701     A     
 ARITH              MX0    60-6                                                            ARITH       6702     A     
 ARITH              SA1    EXRL1                                                           ARITH       6703     A     
 ARITH              NZ     X1,CHKARG   IF AN EXPONENTIAL DUMMY FUNCTION                    ARITH       6704     A     
 ARITH              SA1    TYADR                                                           ARITH       6705     A     
 ARITH              SA1    X1+2              TYPE WORD OF FUNCTION ENTRY                   ARITH       6706     A     
 ARITH              LX1    B3,X1                                                           ARITH       6707     A     
 ARITH              BX0    -X0*X1      EXTRACT EXPECTED TYPE                               ARITH       6708     A     
 ARITH              SB4    X0-1        UNBIAS TYPE                                         ARITH       6709     A     
 ARITH              EQ     B2,B4,CHKARG      IF CORRECT TYPE                               ARITH       6710     A     
 ARITH              SX0    B4-ANYSNGL                                                      ARITH       6711     A     
 ARITH              NG     X0,CHKA3    IF A SPECIFIC TYPE NEEDED                           ARITH       6712     A     
 ARITH              SB3    B4-ANY                                                          ARITH       6713     A     
 ARITH              ZR     B3,CHKARG   IF TYPE ANY, NO NEED TO CHECK                       ARITH       6714     A     
 ARITH              SB4    B2-DOUBLE                                                       ARITH       6715     A     
 ARITH              ZR     B4,CHKA1    IF DOUBLE                                           ARITH       6716     A     
 ARITH              SB4    B2-COMPLEX                                                      ARITH       6717     A     
 ARITH              ZR     B4,CHKA1    IF COMPLEX                                          ARITH       6718     A     
 ARITH              ZR     X0,CHKARG   IF ANYSNGL AND NOT DBL/CMPLX                        ARITH       6719     A     
 ARITH              EQ     CHKA2                                                           ARITH       6720     A     
 ARITH     CHKA1    NZ     X0,CHKARG   IF DBL/CMPLX AND ANYDBL                             ARITH       6721     A     
 ARITH     CHKA2    SB6    -ERMSG55    WRONG TYPE ARG FOR INT OR BEF                       ARITH       6722          I
          -FCC0418
 ARITH              SB7    CHKARG                                                          ARITH       6723          I
          -FCC0418
 ARITH              EQ     ERPRO                                                           ARITH       6724          I
          -FCC0418
 ARITH     CHKA2    EERR   -ERMSG55                                                        FCC0418       74     A     
 ARITH              EQ     CHKARG                                                          FCC0418       75     A     
 ARITH                                                                                     FCC0418       76     A     
 ARITH     CHKA3    SB3    B4-DOUBLE                                                       ARITH       6725     A     
 ARITH              ZR     B3,CHKA5    IF EXPECTED TYPE IS DOUBLE                          ARITH       6726          I
          -FCC0418
 ARITH              ZR     B3,CHKA2    IF DOUBLE EXPECTED                                  FCC0418       77     A     
 ARITH              SB3    B4-COMPLEX                                                      ARITH       6727     A     
 ARITH              ZR     B3,CHKA6    IF EXPECTED TYPE IS COMPLEX                         ARITH       6728          I
          -FCC0418
 ARITH              SB3    B2-DOUBLE                                                       ARITH       6729          I
          -FCC0418
 ARITH              ZR     B3,CHKA2          IF DBLE PREC AND SINGLE ARG EXPECTED          ARITH       6730          I
          -FCC0418
 ARITH              SB3    B2-COMPLEX                                                      ARITH       6731          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2261    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
          -FCC0418
 ARITH              ZR     B3,CHKA2          IF COMPLEX ARG AND SINGLE EXPECTED            ARITH       6732          I
          -FCC0418
 ARITH              SB3    B2-T.OCT                                                        ARITH       6733          I
          -FCC0418
 ARITH              NZ     B3,CHKA4                                                        ARITH       6734          I
          -FCC0418
 ARITH              LX2    12                IF NOT OCTAL CONSTANT,                        ARITH       6735          I
          -FCC0418
 ARITH              PL     X2,CHKARG            BUT RESULT OF MASKED FUNCTION              ARITH       6736          I
          -FCC0418
 ARITH     CHKA4    EERR   -ERMSG55                                                        ARITH       6737          I
          -FCC0418
 ARITH              EQ     CHKARG                                                          ARITH       6738          I
          -FCC0418
 ARITH     CHKA5    SB3    B2-COMPLEX                                                      ARITH       6739          I
          -FCC0418
 ARITH              ZR     B3,CHKA4    IF WRONG DOUBLE TYPE                                ARITH       6740          I
          -FCC0418
 ARITH              EQ     CHKA2       IF SINGLE SUPPLIED AND DOUBLE EXPECTED              ARITH       6741          I
          -FCC0418
 ARITH     CHKA6    SB3    B2-DOUBLE                                                       ARITH       6742          I
          -FCC0418
 ARITH              ZR     B3,CHKA4    IF WRONG DOUBLE WORD TYPE                           ARITH       6743          I
          -FCC0418
 ARITH              EQ     CHKA2       SINGLE SUPPLIED AND DOUBLE WORD NEEDED              ARITH       6744          I
          -FCC0418
 ARITH              ZR     B3,CHKA2    IF COMPLEX EXPECTED                                 FCC0418       78     A     
 ARITH              SB3    B2-T.OCT                                                        FCC0418       79     A     
 ARITH              ZR     B3,CHKARG   IF TYPE OCTAL                                       FCC0418       80     A     
 ARITH              SB3    B2-T.HOL                                                        FCC0418       81     A     
 ARITH              ZR     B3,CHKARG   IF TYPE HOLLERITH                                   FCC0418       82     A     
 ARITH              EQ     CHKA2                                                           FCC0418       83     A     
 ARITH                                                                                     ARITH       6745     A     
 ARITH     CHKA7    EERR   -ERMSG21          TOO MANY ARGS FOR BEF OR INTRINSIC            ARITH       6746     A     
 ARITH     DLDSU    SPACE  4,8                                                             ARITH       6747     A     
 ARITH    ***                                                                              ARITH       6748     A     
 ARITH    *         DLDSU -- TO SET UP A DOUBLE LOAD R-LIST MACRO FOR                      ARITH       6749     A     
 ARITH    *         'MACOUT'.  THE VALUE TO LOAD IS IN 'CONST'.  BEFORE CALLING            ARITH       6750     A     
 ARITH    *         'MACOUT', SET TYPE PARAM.                                              ARITH       6751     A     
 ARITH    *                                                                                ARITH       6752     A     
 ARITH     DLSU1    SA2    NARN              FORM A DOUBLE-ZERO MACRO REFERENCE            ARITH       6753     A     
 ARITH              BX6    X2                                                              ARITH       6754     A     
 ARITH              SA6    PARAMS                                                          ARITH       6755     A     
 ARITH              SX7    X2+1                                                            ARITH       6756     A     
 ARITH              SA7    PARAMS+1                                                        ARITH       6757     A     
 ARITH              SPACE  1                                                               ARITH       6758     A     
 ARITH    DLSU2     SX6    X2+2              UPDATE R-NUMBER                               ARITH       6759     A     
 ARITH              SA6    NARN                                                            ARITH       6760     A     
 ARITH     DLDSU    JP     *                                                               ARITH       6761     A     
 ARITH              SA1    CONST                                                           ARITH       6762     A     
 ARITH              SA3    DZRMD                                                           ARITH       6763     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2262    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              ZR     X1,DLSU1          IF THE CONSTANT IS ZERO GO TO 'DLSU1'         ARITH       6764     A     
 ARITH              SPACE  1                                                               ARITH       6765     A     
 ARITH              SB1    1                 GO ENTER THE CONSTANT INTO THE CON            ARITH       6766     A     
 ARITH              RJ     CONVERT           TABLE.                                        ARITH       6767     A     
 ARITH              SA5    EPOINT            (RESTORE E-LIST POINTER)                      ARITH       6768     A     
 ARITH              SB1    X5+1                                                            ARITH       6769     A     
 ARITH              SX7    X1                                                              ARITH       6770     A     
 ARITH              SA7    PARAMS            CONLIST ORDINAL                               ARITH       6771     A     
 ARITH              AX1    30                                                              ARITH       6772     A     
 ARITH              BX6    X1                                                              ARITH       6773     A     
 ARITH              SA6    PARAMS+3          CONSTANT 'CA'                                 ARITH       6774     A     
 ARITH              SA3    SDLMD             (SINGLE-TO-DOUBLE LOAD)                       ARITH       6775     A     
 ARITH              SA2    NARN              GET THE NEXT R-NUMBER                         ARITH       6776     A     
 ARITH              BX6    X2                                                              ARITH       6777     A     
 ARITH              SA6    PARAMS+1                                                        ARITH       6778     A     
 ARITH              SX7    X2+1                                                            ARITH       6779     A     
 ARITH              SA7    PARAMS+2                                                        ARITH       6780     A     
 ARITH              ZR     DLSU2             GO TO 'DLSU2' TO FINISH UP                    ARITH       6781     A     
 ARITH              TITLE                                                                  ARITH       6782     A     
 ARITH              EJECT                                                                  ARITH       6783     A     
 ARITH    *     STCON: CAUSES AN R-LIST INSTR TO BE OUTPUT TO SET A REG.TO AN 18-          ARITH       6784     A     
 ARITH    ** BIT CONST.  COME WITH CONST.IN B17-B0 OF X5                                   ARITH       6785     A     
 ARITH    *      THE TYPE ARLIST INSTR OUTPUT IS SET TO TINT.                              ARITH       6786     A     
 ARITH    *     LEAVE WITH X6,A6=1ST WD OF MACOUT ENTRY, FWA ---. (THIS INFO USED          ARITH       6787     A     
 ARITH    *     BY CON2C1.)                                                                ARITH       6788     A     
 ARITH     STCON    DATA   0                                                               ARITH       6789     A     
 ARITH              SA3    SETMAC            GUESS SET MAC                                 ARITH       6790     A     
 ARITH              SA2    BSAV                                                            ARITH       6791     A     
 ARITH              NZ       X5,ACT2         NOT A ZERO CONST                              ARITH       6792     A     
 ARITH              SA3      ZRMD            PLUS ZERO                                     ARITH       6793     A     
 ARITH              PL     X5,ACT3                                                         ARITH       6794     A     
 ARITH              SA3    MZMD                                                            ARITH       6795     A     
 ARITH              EQ     ACT3                                                            ARITH       6796     A     
 ARITH     PRENORM  BX5    -X5                                                             ARITH       6797     A     
 ARITH              RJ     SPCON                                                           ARITH       6798     A     
 ARITH              BX5    -X5               (IN CASE CON IS NOT 2**N-1)                   ARITH       6799     A     
 ARITH              SA3    SETMAC                                                          ARITH       6800     A     
 ARITH              NZ     B3,ACT5                                                         ARITH       6801     A     
 ARITH              ZR     ACT4                                                            ARITH       6802     A     
 ARITH     ACT2     SX2    X2-773B                                                         ARITH       6803     A     
 ARITH              ZR     X2,PRENORM        IF INHIBIT FORMATION OF -CON                  ARITH       6804     A     
 ARITH              RJ     SPCON                                                           ARITH       6805     A     
 ARITH              NZ     B3,ACT5     IF -CON CANT BE FORMED BY A MASK                    ARITH       6806     A     
 ARITH     ACT4     SA3    MD.MASKC          MACOUT DESCRIPTOR WORD                        ARITH       6807     A     
 ARITH              SX5    X6                PLACE MASK COUNT                              ARITH       6808     A     
 ARITH     ACT5     MX0    -18                                                             ARITH       6809     A     
 ARITH              BX6    -X0*X5                                                          ARITH       6810     A     
 ARITH              SA6      PARAMS+1        AND STORE IT                                  ARITH       6811     A     
 ARITH     ACT3     SX5    T.INT                                                           ARITH       6812     A     
 ARITH              SA2    NARN                                                            ARITH       6813     A     
 ARITH              BX7    X2                                                              ARITH       6814     A     
 ARITH              SA7       PARAMS                                                       ARITH       6815     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2263    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SX7    X2+1              INCR NARN                                     ARITH       6816     A     
 ARITH              SA7    NARN                                                            ARITH       6817     A     
 ARITH              RJ       MACOUT                                                        ARITH       6818     A     
 ARITH    *     TURN ON CONST FLAG BIT                                                     ARITH       6819     A     
 ARITH              MX0       1                                                            ARITH       6820     A     
 ARITH              LX0       48                                                           ARITH       6821     A     
 ARITH              SA2    X7                                                              ARITH       6822     A     
 ARITH              BX6    X0+X2                                                           ARITH       6823     A     
 ARITH              SA6    A2                                                              ARITH       6824     A     
 ARITH              ZR        STCON     END OF STCON                                       ARITH       6825     A     
 ARITH     APLRT    SPACE  3,14                                                            ARITH       6826     A     
 ARITH    **        APLRT - OUTPUT APLIST R-MACRO                                          ARITH       6827     A     
 ARITH    *         ENTRY  (X1) = ST APL FLAG  ( 1S59 OR 0 )                               ARITH       6828     A     
 ARITH    *                (X2) = IH                                                       ARITH       6829     A     
 ARITH    *                (X3) = CA                                                       ARITH       6830     A     
 ARITH    *                (X4) = IDORD OF SYM OR 0                                        ARITH       6831     A     
 ARITH                                                                                     ARITH       6832     A     
 ARITH     APLRT    ENTRY. **                                                              ARITH       6833     A     
 ARITH              SA5    =XOPT2                                                          ARITH       6834     A     
 ARITH              MX0    -RM.CAL                                                         ARITH       6835     A     
 ARITH              BX3    -X0*X3                                                          ARITH       6836     A     
 ARITH              LX2    AP.IHP                                                          ARITH       6837     A     
 ARITH              LX3    AP.CAP                                                          ARITH       6838     A     
 ARITH              BX6    X1+X2                                                           ARITH       6839     A     
 ARITH              SB4    X4                                                              ARITH       6840     A     
 ARITH              IX7    X3+X6                                                           ARITH       6841     A     
 ARITH              ZR     X5,APLRT2   IF NOT OPT=2                                        ARITH       6842     A     
 ARITH              ZR     X4,APLRT2   IF NO ORD                                           ARITH       6843     A     
 ARITH              SA5    SYM1                                                            ARITH       6844     A     
 ARITH              SB4    B4+B4                                                           ARITH       6845     A     
 ARITH              SA0    X5                                                              ARITH       6846     A     
 ARITH              SA1    A0-B4       WORD A                                              ARITH       6847     A     
 ARITH              MX0    1                                                               ARITH       6848     A     
 ARITH              LX1    59-P.DIM                                                        ARITH       6849     A     
 ARITH              PL     X1,APLRT1   IF ^DIM                                             ARITH       6850     A     
 ARITH              LX0    1+AP.CRP    SET CLASS REFERENCE BIT                             ARITH       6851     A     
 ARITH              BX7    X0+X7                                                           ARITH       6852     A     
 ARITH              EQ     APLRT2                                                          ARITH       6853     A     
 ARITH                                                                                     ARITH       6854     A     
 ARITH     APLRT1   SA2    A1-1        WORDB                                               ARITH       6855     A     
 ARITH              SX4    30B                                                             ARITH       6856     A     
 ARITH              MX5    -L.TYP                                                          ARITH       6857     A     
 ARITH              LX2    -P.TYP                                                          ARITH       6858     A     
 ARITH              BX3    -X5*X2                                                          ARITH       6859     A     
 ARITH              SB4    X3                                                              ARITH       6860     A     
 ARITH              AX4    B4,X4                                                           ARITH       6861     A     
 ARITH              LX4    59                                                              ARITH       6862     A     
 ARITH              PL     X4,APLRT2   IF NOT DOUBLE OR COMPLEX                            ARITH       6863     A     
 ARITH              LX0    1+AP.P1P    SET DOUBLE INDICATOR                                ARITH       6864     A     
 ARITH              BX7    X0+X7                                                           ARITH       6865     A     
 ARITH                                                                                     ARITH       6866     A     
 ARITH     APLRT2   SA2    NARN                                                            ARITH       6867     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2264    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA3    APLMD                                                           ARITH       6868     A     
 ARITH              SX2    X2-1                                                            ARITH       6869     A     
 ARITH              SA7    PARAMS                                                          ARITH       6870     A     
 ARITH              MX5    0                                                               ARITH       6871     A     
 ARITH              RJ     MACOUT      OUTPUT MACRO                                        ARITH       6872     A     
 ARITH              SA5    PARAMS                                                          ARITH       6873     A     
 ARITH              BX6    X5                                                              ARITH       6874     A     
 ARITH              SA6    X7+3        STORE INFO IN ARLIST BUFFER                         ARITH       6875     A     
 ARITH              RJ     CHKOFF                                                          ARITH       6876     A     
 ARITH              EQ     APLRT                                                           ARITH       6877     A     
 ARITH     STALR    SPACE  3,14                                                            ARITH       6878     A     
 ARITH    **        STALR - OUTPUT STORE TO APLIST                                         ARITH       6879     A     
 ARITH    *         ENTRY  (X1) = ADDR OF LOAD R-MACRO                                     ARITH       6880     A     
 ARITH                                                                                     ARITH       6881     A     
 ARITH     STALR    ENTRY. *                                                               ARITH       6882     A     
 ARITH              SA5    X1+2                                                            ARITH       6883     A     
 ARITH              SA2    X1+3        IH                                                  ARITH       6884     A     
 ARITH              MX3    0           CA = 0                                              ARITH       6885     A     
 ARITH              SA4    X1+1        IDORD                                               ARITH       6886     A     
 ARITH              LX5    -R1.INP                                                         ARITH       6887     A     
 ARITH              SX6    X5-3                                                            ARITH       6888     A     
 ARITH              NZ     X6,STALR1   IF AN IXFN MACRO                                    ARITH       6889     A     
 ARITH              SA3    X1+5                                                            ARITH       6890     A     
 ARITH     STALR1   MX1    1                                                               ARITH       6891     A     
 ARITH              LX1    1+AP.STP                                                        ARITH       6892     A     
 ARITH              RJ     APLRT       OUTPUT APLIST WORD FOR -0                           ARITH       6893     A     
 ARITH              SA3    NARN                                                            ARITH       6894     A     
 ARITH              SX6    X3-1                                                            ARITH       6895     A     
 ARITH              SA4    ACNT                                                            ARITH       6896     A     
 ARITH              SA6    PARAMS+1          RI OF REG WITH ADDRESS                        ARITH       6897     A     
 ARITH              SX7    X4-1        ORD OF ARG IN LIST                                  ARITH       6898     A     
 ARITH              SA7    PARAMS+2                                                        ARITH       6899     A     
 ARITH              MX6    0                                                               ARITH       6900     A     
 ARITH              SA6    PARAMS      IH OF APLIST                                        ARITH       6901     A     
 ARITH              SX2    X3-1                                                            ARITH       6902     A     
 ARITH              SA3    TSMAC                                                           ARITH       6903     A     
 ARITH                                                                                     ARITH       6904     A     
 ARITH              RJ     MACOUT                                                          ARITH       6905     A     
 ARITH              SA1    STAPLC                                                          ARITH       6906     A     
 ARITH              BX6    X1                                                              ARITH       6907     A     
 ARITH              SX7    X7+1                                                            ARITH       6908     A     
 ARITH              SA6    X7                [LASTR + 1] = APLS                            ARITH       6909     A     
 ARITH              SA7    A1                APLS = LASTR + 1                              ARITH       6910     A     
 ARITH              RJ     CHKOFF                                                          ARITH       6911     A     
 ARITH              EQ     STALR                                                           ARITH       6912     A     
 ARITH     OTS      SPACE  3                                                               ARITH       6913     A     
 ARITH    **        OTS - OUTPUT TEMPORARY STORES                                          ARITH       6914     A     
 ARITH    *         ENTRY  (X1) = ADDRESS OF ARLIST MACRO TO BE STORED                     ARITH       6915     A     
 ARITH    *                (X2) = NON-ZERO IF RL2, RL1 NEED TO BE POSITIONED               ARITH       6916     A     
 ARITH    *         EXIT   (X2) = ORD(ST.)                                                 ARITH       6917     A     
 ARITH    *                (X3) = CA OF TEMP STORE                                         ARITH       6918     A     
 ARITH    *                (X4) = N.STORES - 1 ( 0 OR 1 )                                  ARITH       6919     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2265    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH                                                                                     ARITH       6920     A     
 ARITH     OTS0     SA2    ST.                                                             ARITH       6921     A     
 ARITH              SA3    STSORD                                                          ARITH       6922     A     
 ARITH              IX3    X3-X4                                                           ARITH       6923     A     
 ARITH              SX4    X4-1                                                            ARITH       6924     A     
 ARITH     OTS      ENTRY. *           ** ENTRY/EXIT **                                    ARITH       6925     A     
 ARITH              ZR     X2,OTS1A    IF NO NEED TO POSITION RL2, RL1                     ARITH       6926     A     
 ARITH              BX7    X1                                                              ARITH       6927     A     
 ARITH              SA7    OTSB        TEMP FOR RL2                                        ARITH       6928     A     
 ARITH              RJ     CHKOFF      REPOSITION RL2, RL1                                 ARITH       6929     A     
 ARITH              SA1    OTSB                                                            ARITH       6930     A     
 ARITH     OTS1A    SA3    X1          ARLIST HDR WORD                                     ARITH       6931     A     
 ARITH              SX0    06B         BIT MASK FOR DBL/CMPLX TYPES                        ARITH       6932     A     
 ARITH              UX7    B2,X3                                                           ARITH       6933     A     
 ARITH              LX0    54                                                              ARITH       6934     A     
 ARITH              SA2    X1+2        MACRO HEADER WORD                                   ARITH       6935     A     
 ARITH              LX7    B2,X0                                                           ARITH       6936     A     
 ARITH              MX0    -R1.RIL                                                         ARITH       6937     A     
 ARITH              BX2    -X0*X2                                                          ARITH       6938     A     
 ARITH              PL     X7,OTS1     IF A SINGLE WORD RESULT                             ARITH       6939     A     
 ARITH                                                                                     ARITH       6940     A     
 ARITH              SX7    X2+1                                                            ARITH       6941     A     
 ARITH              SA7    OTSA                                                            ARITH       6942     A     
 ARITH              RJ     AVTS        OUTPUT TEMP STORE                                   ARITH       6943     A     
 ARITH              SA2    OTSA                                                            ARITH       6944     A     
 ARITH              RJ     AVTS                                                            ARITH       6945     A     
 ARITH              SX4    2                                                               ARITH       6946     A     
 ARITH              EQ     OTS0                                                            ARITH       6947     A     
 ARITH     OTS1     LX3    59-44                                                           ARITH       6948     A     
 ARITH              PL     X3,OTS2     IF XMT BIT NOT SET                                  ARITH       6949     A     
 ARITH              BX6    X2                                                              ARITH       6950     A     
 ARITH              SA2    NARN                                                            ARITH       6951     A     
 ARITH              BX7    X2                                                              ARITH       6952     A     
 ARITH              SA7    PARAMS                                                          ARITH       6953     A     
 ARITH              SA6    PARAMS+1                                                        ARITH       6954     A     
 ARITH              SX6    X2+1                                                            ARITH       6955     A     
 ARITH              SA6    A2                                                              ARITH       6956     A     
 ARITH              MX5    0                                                               ARITH       6957     A     
 ARITH              SA3    XMIT                                                            ARITH       6958     A     
 ARITH              RJ     MACOUT                                                          ARITH       6959     A     
 ARITH              RJ     CHKOFF                                                          ARITH       6960     A     
 ARITH              SA3    NARN                                                            ARITH       6961     A     
 ARITH              SX2    X3-1                                                            ARITH       6962     A     
 ARITH     OTS2     RJ     AVTS                                                            ARITH       6963     A     
 ARITH              SX4    1                                                               ARITH       6964     A     
 ARITH              EQ     OTS0                                                            ARITH       6965     A     
 ARITH                                                                                     ARITH       6966     A     
 ARITH     OTSA     BSS    1                                                               ARITH       6967     A     
 ARITH     OTSB     BSS    1           TEMPORARY ADDRESS OF RL2                            ARITH       6968     A     
 ARITH     AVTS     SPACE  3                                                               ARITH       6969     A     
 ARITH    *     AVTS TO OUTPUT INSTR TO DO TEMP STO OF RESULT NAMED IN X2.                 ARITH       6970     A     
 ARITH    *         OUTPUT TO ARLIST                                                       ARITH       6971     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2266    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH                                                                                     ARITH       6972     A     
 ARITH     AVTS     ENTRY. *                 ** ENTRY/EXIT **                              ARITH       6973     A     
 ARITH              SA1    STSORD            H1                                            ARITH       6974     A     
 ARITH              SA3    ST.               SYMTAB ORDINAL                                ARITH       6975     A     
 ARITH              SX6    X1+1              INCREMENT H1                                  ARITH       6976     A     
 ARITH              SA6    A1                                                              ARITH       6977     A     
 ARITH              BX7    X3                                                              ARITH       6978     A     
 ARITH              BX6    X1                                                              ARITH       6979     A     
 ARITH              SA6    PARAMS+2          CA OF ST.                                     ARITH       6980     A     
 ARITH              BX6    X2                                                              ARITH       6981     A     
 ARITH              SA6    PARAMS+1          RI                                            ARITH       6982     A     
 ARITH              SA7    PARAMS            IH OF ST.                                     ARITH       6983     A     
 ARITH              SA3    TSMAC                                                           ARITH       6984     A     
 ARITH              RJ     MACOUT                                                          ARITH       6985     A     
 ARITH              RJ     CHKOFF                                                          ARITH       6986     A     
 ARITH              EQ     AVTS                                                            ARITH       6987     A     
 ARITH     GEFCM    SPACE  3                                                               ARITH       6988     A     
 ARITH    **        GEFCM - OUTPUT GENERAL EXTERNAL FUNCTION CALL                          ARITH       6989     A     
 ARITH    *          ENTRY (X1) = N.AP OR 0                                                ARITH       6990     A     
 ARITH    *                (X2) = IH OF FUNCTION                                           ARITH       6991     A     
 ARITH    *                (X3) = LINE COUNT                                               ARITH       6992     A     
 ARITH    *                (X4) = STAPL CHAIN POINTER                                      ARITH       6993     A     
 ARITH    *                (X5) = CA (IF N.ARG .EQ. 0 AND ZFLAG .NE. 0)                    ARITH       6994     A     
 ARITH                                                                                     ARITH       6995     A     
 ARITH     GEFCM1   SA6    PARAMS+1          LINE COUNT                                    ARITH       6996     A     
 ARITH              SA3    RJ60MD            RJ CALL WITHOUT APLIST                        ARITH       6997     A     
 ARITH     GEFCM2   MX5    0                                                               ARITH       6998     A     
 ARITH              RJ     MACOUT                                                          ARITH       6999     A     
 ARITH              RJ     CHKOFF                                                          ARITH       7000     A     
 ARITH                                                                                     ARITH       7001     A     
 ARITH     GEFCM    ENTRY. **                ENTRY/EXIT                                    ARITH       7002     A     
 ARITH              BX7    X2                                                              ARITH       7003     A     
 ARITH              BX6    X3                                                              ARITH       7004     A     
 ARITH              SA7    PARAMS            STORE IH OF FUNCTION                          ARITH       7005     A     
 ARITH              ZR     X1,GEFCM1         NO APLIST REQUIRED                            ARITH       7006     A     
 ARITH              SX7    I.AP+X1                                                         ARITH       7007     A     
 ARITH              SA6    A7+2              STORE LINE COUNT                              ARITH       7008     A     
 ARITH              SA7    A7+1              STORE AP NUMBER                               ARITH       7009     A     
 ARITH              MX6    0                                                               ARITH       7010     A     
 ARITH              PL     X1,GEFCM3A  IF N.ARG.NE.0 .OR. ZFLAG.EQ.0                       ARITH       7011     A     
 ARITH              BX6    X5                                                              ARITH       7012     A     
 ARITH     GEFCM3A  SA6    A6+1                                                            ARITH       7013     A     
 ARITH              ZR     X4,GEFCM4         IF STAPLC = 0                                 ARITH       7014     A     
 ARITH     GEFCM3   SA7    X4+2                                                            ARITH       7015     A     
 ARITH              SA4    X4                                                              ARITH       7016     A     
 ARITH              NZ     X4,GEFCM3                                                       ARITH       7017     A     
 ARITH                                                                                     ARITH       7018     A     
 ARITH     GEFCM4   SA3    GEFMD                                                           ARITH       7019     A     
 ARITH              EQ     GEFCM2                                                          ARITH       7020     A     
 ARITH              EJECT                                                                  ARITH       7021     A     
 ARITH    *     FRTS: FUNCTION RESULT TEMP-STO-INSTR OUTPUT                                ARITH       7022     A     
 ARITH    *     COME WITH X1=RNAME OF RESULT TO BE SAVED.                                  ARITH       7023     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2267    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    *     AND B58=1 IF DBL LENGTH                                                    ARITH       7024     A     
 ARITH                                                                                     ARITH       7025     A     
 ARITH     FRTS     ENTRY. *                 ** ENTRY/EXIT **                              ARITH       7026     A     
 ARITH              MX0    18                                                              ARITH       7027     A     
 ARITH              LX0    18+34                                                           ARITH       7028     A     
 ARITH              BX1    -X0*X1            MASK OUT EQUAL SIGN COUNT                     ARITH       7029     A     
 ARITH              SB2    -M.SFR            SAVED FUNCTION RESULT MACRO                   ARITH       7030     A     
 ARITH              SB7    4           (B7) = *RLIST* WORD COUNT                           ARITH       7031     A     
 ARITH              SA2    STSORD            CA OF ST.                                     ARITH       7032     A     
 ARITH              BX7    X2                                                              ARITH       7033     A     
 ARITH              SX6    X1                                                              ARITH       7034     A     
 ARITH              SA7    LBTS+3            SAVE CA                                       ARITH       7035     A     
 ARITH              SA6    LBTS+2            SAVE RNAME                                    ARITH       7036     A     
 ARITH              SA4    ST.               IH OF ST.                                     ARITH       7037     A     
 ARITH              SX3    3                                                               ARITH       7038     A     
 ARITH              LX3    30                                                              ARITH       7039     A     
 ARITH              BX3    X3+X1             FORM PART OF MACRO WORD                       ARITH       7040     A     
 ARITH              BX6    X4                                                              ARITH       7041     A     
 ARITH              PX7    B2,X3             FORM MACRO WORD                               ARITH       7042     A     
 ARITH              SA6    LBTS+1            SAVE IH                                       ARITH       7043     A     
 ARITH              SA7    LBTS              SAVE MACRO WORD                               ARITH       7044     A     
 ARITH              SX6    X2+1              INCREMENT STSORD                              ARITH       7045     A     
 ARITH              LX1    59-58                                                           ARITH       7046     A     
 ARITH              PL     X1,FRTS1          IF NOT DBL                                    ARITH       7047     A     
 ARITH              SA6    LBTS+7            SAVE CA+1                                     ARITH       7048     A     
 ARITH              SX6    X6+1              INCREMENT STSORD                              ARITH       7049     A     
 ARITH              SX2    1                                                               ARITH       7050     A     
 ARITH              SA3    LBTS                                                            ARITH       7051     A     
 ARITH              IX7    X3+X2             ADD 1 TO MACRO NAME                           ARITH       7052     A     
 ARITH              SA7    LBTS+4            SAVE 2ND MACRO WORD                           ARITH       7053     A     
 ARITH              SA3    LBTS+1                                                          ARITH       7054     A     
 ARITH              SA4    LBTS+2                                                          ARITH       7055     A     
 ARITH              BX7    X3                                                              ARITH       7056     A     
 ARITH              IX5    X4+X2                                                           ARITH       7057     A     
 ARITH              SA7    LBTS+5            SAVE IH                                       ARITH       7058     A     
 ARITH              BX7    X5                                                              ARITH       7059     A     
 ARITH              SA7    LBTS+6            SAVE RNAME+1                                  ARITH       7060     A     
 ARITH              SB7    8           (B7) = *RLIST* WORD COUNT                           ARITH       7061     A     
 ARITH     FRTS1    BSS       0                                                            ARITH       7062     A     
 ARITH              SA6       STSORD                                                       ARITH       7063     A     
 ARITH              SB1    1                                                               ARITH       7064     A     
 ARITH              WRITEW =XF.RLST,LBTS,B7                                                ARITH       7065     A     
 ARITH              SB5    1                                                               ARITH       7066     A     
 ARITH              EQ     FRTS              EXIT                                          ARITH       7067     A     
 ARITH              EJECT                                                                  ARITH       7068     A     
 ARITH    *     DARLIST: DUMP ARLIST: SENDS CLEAN R-LIST TO RLIST FROM ARLIST.             ARITH       7069     A     
 ARITH    *  ENTER WITH X4= POINT(+ARLIST) TO 1ST WD OF AREA IN ARLIST AND                 ARITH       7070     A     
 ARITH    *             X5= POINT(+ARLIST) TO LAST WD+1 IN ARLIST TO SEND TO RLST          ARITH       7071     A     
 ARITH    *                                                                                ARITH       7072     A     
 ARITH    *     ONE OF THE 1ST IMPROVEMENTS (ONE OF MANY THAT SHOULD BE MADE) OF           ARITH       7073     A     
 ARITH    *  ARITH SHOULD BE IN RE-WRITING DARLIST SO THAT WRLST NEED NOT BE               ARITH       7074     A     
 ARITH    *  CALLED FOR EACH R-LIST MACRO OR INSTRUCTION.                                  ARITH       7075     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2268    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH                                                                                     ARITH       7076     A     
 ARITH     DARLIST  ENTRY. **          ** ENTRY/EXIT **                                    ARITH       7077     A     
 ARITH              SB2    X4+ARLIST    FWA                                                ARITH       7078     A     
 ARITH              SUB                                                                    ARITH       7079     A     
 ARITH              SB3    X5+ARLIST    LWA+1                                              ARITH       7080     A     
 ARITH              SUB                                                                    ARITH       7081     A     
 ARITH              EQ     B2,B3,DARLIST     EXIT IF NOTHING TO DUMP OUT                   ARITH       7082     A     
 ARITH     DRLST2   SA1    B2           GET NXT WD                                         ARITH       7083     A     
 ARITH              SA2    B2+2                                                            ARITH       7084     A     
 ARITH              BX7    X1+X2                                                           ARITH       7085     A     
 ARITH              SB4    18                                                              ARITH       7086     A     
 ARITH              MI     X7,DRLST1         IF NOOPED OR GARBAGE                          ARITH       7087     A     
 ARITH              AX6    B4,X1        GET SIZE OF ENTRY                                  ARITH       7088     A     
 ARITH              SA6       LBTS      SAVE                                               ARITH       7089     A     
 ARITH              SB7    X6-2              (B7) = MACRO LENGTH = SIZE - 2                ARITH       7090     A     
 ARITH              SX6    B2                                                              ARITH       7091     A     
 ARITH              SX7    B3                                                              ARITH       7092     A     
 ARITH              SA6       LBTS+1                                                       ARITH       7093     A     
 ARITH              SA7       LBTS+2                                                       ARITH       7094     A     
 ARITH              SB1    1                                                               ARITH       7095     A     
 ARITH              WRITEW =XF.RLST,B2+2,B7                                                ARITH       7096     A     
 ARITH              SA2    LBTS+1                                                          ARITH       7097     A     
 ARITH              SB5    1                                                               ARITH       7098     A     
 ARITH              SA3    A2+B5                                                           ARITH       7099     A     
 ARITH              SA1    A2-B5                                                           ARITH       7100     A     
 ARITH              SB2    X2                                                              ARITH       7101     A     
 ARITH              SB3    X3                                                              ARITH       7102     A     
 ARITH     DRLST3   SB2    X1+B2        SET NEW FWA                                        ARITH       7103     A     
 ARITH              NE  B2,B3,DRLST2    IF MORE TO OUTPUT                                  ARITH       7104     A     
 ARITH              EQ     DARLIST                                                         ARITH       7105     A     
 ARITH                                                                                     ARITH       7106     A     
 ARITH     DRLST1   BX6    -X1                                                             ARITH       7107     A     
 ARITH              AX1    B4,X6                                                           ARITH       7108     A     
 ARITH              PL     X6,DRLST3         IF NOOPED                                     ARITH       7109     A     
 ARITH              BX1    -X1                                                             ARITH       7110     A     
 ARITH              EQ     DRLST3                                                          ARITH       7111     A     
 ARITH     DALV     EJECT                                                                  ARITH       7112     A     
 ARITH    **        DALV - OUTPUT F.P. LOAD                                                ARITH       7113     A     
 ARITH    *         ENTRY  (X1) = SYMTAB ORD                                               ARITH       7114     A     
 ARITH                                                                                     ARITH       7115     A     
 ARITH     DALV     ENTRY. *           ** ENTRY/EXIT **                                    ARITH       7116     A     
 ARITH              SA2    SYM1                                                            ARITH       7117     A     
 ARITH              BX5    X1                                                              ARITH       7118     A     
 ARITH              LX1    1                                                               ARITH       7119     A     
 ARITH              SB2    X1+1                                                            ARITH       7120     A     
 ARITH              SB3    -B2                                                             ARITH       7121     A     
 ARITH              SA2    X2+B3       WORD B OF SYMTAB ENTRY                              ARITH       7122     A     
 ARITH              BX6    X2                                                              ARITH       7123     A     
 ARITH              SB6    B0          RF = 0                                              ARITH       7124     A     
 ARITH              SB7    B0          CA = 0                                              ARITH       7125     A     
 ARITH              SA6    NAME+1                                                          ARITH       7126     A     
 ARITH              RJ     FETCH                                                           ARITH       7127     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2269    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              EQ     DALV                                                            ARITH       7128     A     
 ARITH     CFETCH   SPACE  3                                                               ARITH       7129     A     
 ARITH    **        CFETCH - OUTPUT LOAD OF A CONSTANT                                     ARITH       7130     A     
 ARITH    *         ENTRY  (X1) = 30/CA,30/SYMTAB ORD                                      ARITH       7131     A     
 ARITH    *                (X6) = TYPE                                                     ARITH       7132     A     
 ARITH                                                                                     ARITH       7133     A     
 ARITH     CFETCH   ENTRY. *           ** ENTRY/EXIT **                                    ARITH       7134     A     
 ARITH              SB6    B0           RF NAME                                            ARITH       7135     A     
 ARITH              SX5    X1           IH                                                 ARITH       7136     A     
 ARITH              AX1       30                                                           ARITH       7137     A     
 ARITH              SB7    X1           CA                                                 ARITH       7138     A     
 ARITH              BX7    X1                                                              ARITH       7139     A     
 ARITH              LX6    P.TYP                                                           ARITH       7140     A     
 ARITH              SA7    NCA               SAVE FOR POSSIBLE USE BY LISTIO               ARITH       7141     A     
 ARITH              SA6       NAME+1                                                       ARITH       7142     A     
 ARITH              BX7    X5                                                              ARITH       7143     A     
 ARITH              SA7    IDORDLTS                                                        ARITH       7144     A     
 ARITH              SX6    B7                                                              ARITH       7145     A     
 ARITH              SA6    A7+1                                                            ARITH       7146     A     
 ARITH              RJ        FETCH                                                        ARITH       7147     A     
 ARITH              SA1       RL2                                                          ARITH       7148     A     
 ARITH              SA3    X1                                                              ARITH       7149     A     
 ARITH              MX0       1                                                            ARITH       7150     A     
 ARITH              LX0       48                                                           ARITH       7151     A     
 ARITH              BX7    X0+X3        SET CONST BIT IN FETCH OP                          ARITH       7152     A     
 ARITH              SA7    A3                                                              ARITH       7153     A     
 ARITH              EQ     CFETCH                                                          ARITH       7154     A     
 ARITH              TITLE  CHKP2                                                           ARITH       7155     A     
 ARITH    ***                                                                              ARITH       7156     A     
 ARITH    *         CHKP2 - CHECK ARLIST MACRO TO SEE IF IT IS A CONSTANT                  ARITH       7157     A     
 ARITH    *                THAT IS A POWER OF 2                                            ARITH       7158     A     
 ARITH    *                                                                                ARITH       7159     A     
 ARITH    *         ON ENTRY:                                                              ARITH       7160     A     
 ARITH    *                X1 = ADDRESS OF ARLIST ENTRY                                    ARITH       7161     A     
 ARITH    *                                                                                ARITH       7162     A     
 ARITH    *         ON EXIT:                                                               ARITH       7163     A     
 ARITH    *                X7 = 0 IF A POWER OF 2                                          ARITH       7164     A     
 ARITH    *                X6 = SHIFT COUNT  ( CON = 2**X6 )                               ARITH       7165     A     
 ARITH    *                                                                                ARITH       7166     A     
 ARITH                                                                                     ARITH       7167     A     
 ARITH     CHKP2X   SA2    A1                RESTORE ARLIST ENTRY                          ARITH       7168     A     
 ARITH              BX6    -X2                                                             ARITH       7169     A     
 ARITH              SA6    A2                                                              ARITH       7170     A     
 ARITH                                                                                     ARITH       7171     A     
 ARITH     CHKP2    ENTRY. *                 ** ENTRY/EXIT **                              ARITH       7172     A     
 ARITH              SA1    X1                                                              ARITH       7173     A     
 ARITH              MX7    1                                                               ARITH       7174     A     
 ARITH              BX2    X1                                                              ARITH       7175     A     
 ARITH              LX2    59-47                                                           ARITH       7176     A     
 ARITH              PL     X2,CHKP2          IF NOT A CONSTANT                             ARITH       7177     A     
 ARITH              RJ     NEWCON            GET VALUE                                     ARITH       7178     A     
 ARITH              CX7    X6                                                              ARITH       7179          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2270    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
          -FCC0539
 ARITH              PX6    X6                                                              ARITH       7180          I
          -FCC0539
 ARITH              SX7    X7-1                                                            ARITH       7181          I
          -FCC0539
 ARITH              BX7    X6                                                              FCC0539      227     A     
 ARITH              CX5    X6                                                              FCC0539      228     A     
 ARITH              AX7    48                                                              FCC0539      229     A     
 ARITH              PX6    X6                                                              FCC0539      230     A     
 ARITH              NZ     X7,CHKP2X   IF CONST TOO LARGE                                  FCC0539      231     A     
 ARITH              SX7    X5-1                                                            FCC0539      232     A     
 ARITH              NZ     X7,CHKP2X         IF NOT A POWER OF 2                           ARITH       7182     A     
 ARITH              SB6    47                                                              ARITH       7183     A     
 ARITH              NX5    B7,X6                                                           ARITH       7184     A     
 ARITH              SX6    B6-B7             SC = LOG2(CON)                                ARITH       7185     A     
 ARITH              EQ     CHKP2                                                           ARITH       7186     A     
 ARITH              TITLE  NEWCON                                                          ARITH       7187     A     
 ARITH     CHKOP    MACRO  CODE,LABEL                                                      ARITH       7188     A     
 ARITH              SX4    B2+CODE                                                         ARITH       7189     A     
 ARITH              ZR     X4,LABEL                                                        ARITH       7190     A     
 ARITH              ENDM                                                                   ARITH       7191     A     
 ARITH                                                                                     ARITH       7192     A     
 ARITH    ***                                                                              ARITH       7193     A     
 ARITH    *         NEWCON - RETURN VALUE OF CONSTANT                                      ARITH       7194     A     
 ARITH    *                                                                                ARITH       7195     A     
 ARITH    *         ON ENTRY:                                                              ARITH       7196     A     
 ARITH    *                A1,X1 - ADDR AND ARLIST WORD TO SET UP CONSTANT                 ARITH       7197     A     
 ARITH    *                                                                                ARITH       7198     A     
 ARITH    *         ON EXIT:                                                               ARITH       7199     A     
 ARITH    *                (CONST) = X6 = VALUE OF CONSTANT                                ARITH       7200     A     
 ARITH    *                CONSTANT LOAD OR SET MACRO NOOPED IN ARLIST BUFFER              ARITH       7201     A     
 ARITH    *                B3 AND A1 SAME AS ON ENTRY                                      ARITH       7202     A     
 ARITH    *                X1 IS ARLIST HDR WORD                                           ARITH       7203     A     
 ARITH    *                                                                                ARITH       7204     A     
 ARITH                                                                                     ARITH       7205     A     
 ARITH    *         GET VALUE OF CONSTANT FROM CON TABLE                                   ARITH       7206     A     
 ARITH                                                                                     ARITH       7207     A     
 ARITH     NEWCON1  SA4    A1+5              CON TAB ORDINAL                               ARITH       7208     A     
 ARITH              IX7    X2+X4                                                           ARITH       7209     A     
 ARITH              SA3    X7                FETCH CONSTANT                                ARITH       7210     A     
 ARITH              BX6    X3                                                              ARITH       7211     A     
 ARITH     NEWCONX  SA6    CONST                                                           ARITH       7212     A     
 ARITH                                                                                     ARITH       7213     A     
 ARITH     NEWCON   ENTRY. *                 ** ENTRY/EXIT **                              ARITH       7214     A     
 ARITH              SA2    A1+2              RLIST MACRO HEADER WORD                       ARITH       7215     A     
 ARITH              SA3    A1+4              POSSIBLE CONSTANT                             ARITH       7216     A     
 ARITH              MX6    1                                                               ARITH       7217     A     
 ARITH              LX6    1+45              POSITION USED BIT                             ARITH       7218     A     
 ARITH              BX1    X1+X6             INSERT BIT IN HEADER                          ARITH       7219     A     
 ARITH              BX7    -X1                                                             ARITH       7220     A     
 ARITH              UX2    B2,X2                                                           ARITH       7221     A     
 ARITH              SA7    A1                NO OP RLIST CONSTANT LOAD OR SET              ARITH       7222     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2271    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SX6    X3                SIGN EXTEND                                   ARITH       7223     A     
 ARITH                                                                                     ARITH       7224     A     
 ARITH              CHKOP  SETMC,NEWCONX     IF A SXI CON                                  ARITH       7225     A     
 ARITH              MX6    0                                                               ARITH       7226     A     
 ARITH              CHKOP  MZMC,NEWCONX      IF A MXI 0                                    ARITH       7227     A     
 ARITH              CHKOP  MZZMC,NEWCONX     IF A DOUBLE MASK 0                            ARITH       7228     A     
 ARITH              MX6    60                                                              ARITH       7229     A     
 ARITH              CHKOP  MIZMC,NEWCONX     IF A MXI 60                                   ARITH       7230     A     
 ARITH              SX4    B2+M.MASKC                                                      ARITH       7231     A     
 ARITH              SA2    O.CON                                                           ARITH       7232     A     
 ARITH              NZ     X4,NEWCON1        IF NOT A CONSTANT MASK MACRO                  ARITH       7233     A     
 ARITH                                                                                     ARITH       7234     A     
 ARITH              SB2    X3-1              FORM MASK AS THE CONSTANT                     ARITH       7235     A     
 ARITH              MX4    1                                                               ARITH       7236     A     
 ARITH              AX6    B2,X4                                                           ARITH       7237     A     
 ARITH              EQ     NEWCONX                                                         ARITH       7238     A     
 ARITH              TITLE  SNGLR                                                           ARITH       7239     A     
 ARITH    ***                                                                              ARITH       7240     A     
 ARITH    *     SNGLR: SINGLE ROUTINE.  IF ARLIST INSTR ADDRESSED BY X1 IS A               ARITH       7241     A     
 ARITH    *  DLMACO, CHANGE OP CODE TO DLTSMC (DBL LD TO SNGL) AND SET TYPE TO OCT         ARITH       7242     A     
 ARITH                                                                                     ARITH       7243     A     
 ARITH     SNGLR    ENTRY. *           ** ENTRY/EXIT **                                    ARITH       7244     A     
 ARITH              SA2    X1                                                              ARITH       7245     A     
 ARITH              UX3    B3,X2                                                           ARITH       7246     A     
 ARITH              SB4    T.DBL                                                           ARITH       7247     A     
 ARITH              SB6    T.CPLX                                                          ARITH       7248     A     
 ARITH              EQ  B3,B4,SNGLR1    IF OPD TDBL                                        ARITH       7249     A     
 ARITH              NE  B3,B6,SNGLR     IF OPD NOT CPX OR DBL                              ARITH       7250     A     
 ARITH     SNGLR1   SA2    X1           CHANGE OPD TYPE TO OCT                             ARITH       7251     A     
 ARITH              SB4    T.OCT                                                           ARITH       7252     A     
 ARITH              PX6    B4,X2                                                           ARITH       7253     A     
 ARITH              SA6    X1                                                              ARITH       7254     A     
 ARITH              SA2    X1+2                                                            ARITH       7255     A     
 ARITH              SB2      -DLMACO                                                       ARITH       7256     A     
 ARITH              UX0 B3,X2                                                              ARITH       7257     A     
 ARITH              NE  B2,B3,SNGLR     IF INSTR NOT DLMACO                                ARITH       7258     A     
 ARITH              SB2      -DLTSMC    DBL LOAD TO SNGL LOAD INSTR                        ARITH       7259     A     
 ARITH              PX6    B2,X2                                                           ARITH       7260     A     
 ARITH              SA6    A2                                                              ARITH       7261     A     
 ARITH              ZR        SNGLR                                                        ARITH       7262     A     
 ARITH              TITLE  INFTLU AND BEFTLU - FUNCTION TABLE LOOKUP ROUTINES              ARITH       7263     A     
 ARITH    **        IFTLU AND BEFTLU - INTRINSIC AND BASIC EXTERNAL FUNCTION               ARITH       7264     A     
 ARITH    *                            TABLE LOOKUP SUBROUTINES.                           ARITH       7265     A     
 ARITH    *                                                                                ARITH       7266     A     
 ARITH    *         ENTRY  (B7) = *NOT FOUND* RETURN ADDRESS.                              ARITH       7267     A     
 ARITH    *                (OP) = FUNCTION NAME, E-LIST FORMAT.                            ARITH       7268     A     
 ARITH    *                                                                                ARITH       7269     A     
 ARITH    *         EXIT   IF LOOKUP SUCCESSFUL --                                         ARITH       7270     A     
 ARITH    *                (X4,X5) = TABLE ENTRY WORDS 1 AND 2.  MAY BE ENTERED            ARITH       7271     A     
 ARITH    *                          IN SYMBOL TABLE WORDS A AND B.                        ARITH       7272     A     
 ARITH    *                (X3) = WORD 4 OF INTRINSIC FUNCTION TABLE ENTRY.                ARITH       7273     A     
 ARITH                                                                                     ARITH       7274     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2272    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     IFTLU    ENTRY. **                ** ENTRY/EXIT **                              ARITH       7275     A     
 ARITH              SA5    IFTLU.P                                                         ARITH       7276     A     
 ARITH              RJ     FTLU              LOOK FOR FUNCTION NAME                        ARITH       7277     A     
 ARITH              SA3    A4+3              4TH WORD                                      ARITH       7278     A     
 ARITH              EQ     IFTLU                                                           ARITH       7279     A     
 ARITH                                                                                     ARITH       7280     A     
 ARITH     BEFTLU   ENTRY. **                ** ENTRY/EXIT **                              ARITH       7281     A     
 ARITH              SA5    BEFTLU.P                                                        ARITH       7282     A     
 ARITH              RJ     FTLU              GO LOOK FOR NAME                              ARITH       7283     A     
 ARITH              ZR     X1,BEFTLU         IF NOT T MODE                                 ARITH       7284     A     
 ARITH              SX0    B5                                                              ARITH       7285          I
          -FEAT121A 
 ARITH              LX0    P.BEF                                                           ARITH       7286          I
          -FEAT121A 
 ARITH              BX5    -X0*X5            TURN OFF BEF BIT                              ARITH       7287          I
          -FEAT121A 
 ARITH              EQ     BEFTLU                                                          ARITH       7288          I
          -FEAT121A 
 ARITH              SA1    BEFTLUA                                                         FEAT121A     116     A     
 ARITH              BX5    -X1*X5      CLEAR BEF AND *BRP* FIELDS                          FEAT121A     117     A     
 ARITH              EQ     BEFTLU                                                          FEAT121A     118     A     
 ARITH                                                                                     FEAT121A     119     A     
 ARITH     BEFTLUA  BSS    0                                                               FEAT121A     120     A     
 ARITH              POS    P.BEF+1                                                         FEAT121A     121     A     
 ARITH              VFD    1/1                                                             FEAT121A     122     A     
 ARITH              POS    P.RA+L.RA                                                       FEAT121A     123     A     
 ARITH              VFD    L.RA/-0,*P/0                                                    FEAT121A     124     A     
 ARITH                                                                                     ARITH       7289     A     
 ARITH              ENTRY  IFTLU.P                                                         ARITH       7290     A     
 ARITH     IFTLU.P  VFD    12/4,18/INTFTB,30/L.INFT                                        ARITH       7291     A     
 ARITH              VFD    12/4,18/INTFTB,30/L.INFTE                                       ARITH       7292     A     
 ARITH     BEFTLU.P VFD    12/3,18/BEFTB,30/L.BEFTB                                        ARITH       7293     A     
 ARITH     FTLUX    SA4    A4-B4             WORD 1                                        ARITH       7294     A     
 ARITH              SA1    CBNFLG            X1 = CBNFLG                                   ARITH       7295     A     
 ARITH              SA5    A4+B5             X5 = WORD 2 OF TABLE ENTRY                    ARITH       7296     A     
 ARITH     FTLU     ENTRY. *                 ** ENTRY/EXIT **                              ARITH       7297     A     
 ARITH              SB3    X5                LWA+1 OF TABLE                                ARITH       7298     A     
 ARITH              AX5    30                                                              ARITH       7299     A     
 ARITH              SA4    X5                FETCH FIRST NAME                              ARITH       7300     A     
 ARITH              AX5    18                                                              ARITH       7301     A     
 ARITH              SB4    X5                INCREMENT                                     ARITH       7302     A     
 ARITH              SA2    OP                FUNCTION NAME                                 ARITH       7303     A     
 ARITH              UX7    X2                                                              ARITH       7304     A     
 ARITH              SB6    60-L.NAME                                                       ARITH       7305     A     
 ARITH              LX7    12                POSITION NAME                                 ARITH       7306     A     
 ARITH              SA7    B3                STORE SEARCH TERMINATOR                       ARITH       7307     A     
 ARITH              SB5    1                                                               ARITH       7308     A     
 ARITH     FTLU1    BX5    X4-X7                                                           ARITH       7309     A     
 ARITH              AX6    B6,X5             REMOVE GARBAGE IN LOWER BITS                  ARITH       7310     A     
 ARITH              SA4    A4+B4             NEXT                                          ARITH       7311     A     
 ARITH              NZ     X6,FTLU1          IF NO MATCH                                   ARITH       7312     A     
 ARITH              SB2    A4-B4                                                           ARITH       7313     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2273    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA6    B3                CLEAR TABLE TERMINATOR                        ARITH       7314     A     
 ARITH              LT     B2,B3,FTLUX       IF A MATCH IN THE TABLE                       ARITH       7315     A     
 ARITH              JP     B7                GO TO NOT FOUND EXIT                          ARITH       7316     A     
 ARITH              TITLE                                                                  ARITH       7317     A     
 ARITH     EQUIVR   SPACE  4,8                                                             ARITH       7318     A     
 ARITH    ***                                                                              ARITH       7319     A     
 ARITH    *         EQUIVR - RETURN BASE AND BIAS OF EQUIVALENCED VARIABLE                 ARITH       7320     A     
 ARITH    *                                                                                ARITH       7321     A     
 ARITH    *         ON ENTRY:                                                              ARITH       7322     A     
 ARITH    *                NAME,NAME+1 = WORD A AND B OF SYMTAB ENTRY                      ARITH       7323     A     
 ARITH    *                B7 = RETURN EXIT IF VAR IS NOT EQUIVALENCED                     ARITH       7324     A     
 ARITH    *                                                                                ARITH       7325     A     
 ARITH    *         EXIT:  EQUIVALENCED CASE                                               ARITH       7326     A     
 ARITH    *                X6 = BIAS                                                       ARITH       7327     A     
 ARITH    *                X7 = SYMTAB ORDINAL OF BASE                                     ARITH       7328     A     
 ARITH    *                                                                                ARITH       7329     A     
 ARITH                                                                                     ARITH       7330     A     
 ARITH     EQUIVR1  SA4    NAME+1            WORD B                                        ARITH       7331     A     
 ARITH              SA5    DIM1                                                            ARITH       7332     A     
 ARITH              AX4    P.DIMP                                                          ARITH       7333     A     
 ARITH              BX6    -X0*X4            DIMP ORD                                      ARITH       7334     A     
 ARITH              LX6    1                                                               ARITH       7335     A     
 ARITH              SB2    X5                                                              ARITH       7336     A     
 ARITH              SA2    X6+B2             WORD 1 OF DIM ENTRY                           ARITH       7337     A     
 ARITH              AX2    18                                                              ARITH       7338     A     
 ARITH              SX6    X2                X6 = BIAS                                     ARITH       7339     A     
 ARITH              AX2    18                                                              ARITH       7340     A     
 ARITH              SX7    X2                X7 = SYMORD OF BASE                           ARITH       7341     A     
 ARITH                                                                                     ARITH       7342     A     
 ARITH     EQUIVR   ENTRY. *                 ** ENTRY/EXIT **                              ARITH       7343     A     
 ARITH              SA1    NAME              WORD A                                        ARITH       7344     A     
 ARITH              LX1    59-P.EQU                                                        ARITH       7345     A     
 ARITH              MX0    60-L.DIMP                                                       ARITH       7346     A     
 ARITH              NG     X1,EQUIVR1        IF EQUIVALENCED                               ARITH       7347     A     
 ARITH              JP     B7                                                              ARITH       7348     A     
 ARITH              EJECT                                                                  ARITH       7349     A     
 ARITH    *     MODCH: USED TO GENERATE RLIST TO CONVERT FROM ONE DATA MODE TO             ARITH       7350     A     
 ARITH    *           ANOTHER.  CONVERTS FROM HIGH TO LOW (E.G. INT=REAL), OR LOW          ARITH       7351     A     
 ARITH    *           TO HIGH.  ENTER WITH X5=ADR OF ARLIST ENTRY TO BE CONVERTED,         ARITH       7352     A     
 ARITH    *                                B5=TYPE TO CONVERT TO.                          ARITH       7353     A     
 ARITH    *         IF DONT CONVERT, EXIT WITH X6=X5.  IF CONVERT, EXIT WITH X6=           ARITH       7354     A     
 ARITH    *     ADDRESS OF CONVERT MACRO, (X5) USED BIT TURNED ON, RL1,RL2 SAME AS         ARITH       7355     A     
 ARITH    *     ON ENTRY.                                                                  ARITH       7356     A     
 ARITH    * (LATER IMPROVEMENT: CONVERT CONSTANTS AT COMPILE TIME.)                        ARITH       7357     A     
 ARITH                                                                                     ARITH       7358     A     
 ARITH     MODCH    ENTRY. *           ** ENTRY/EXIT **                                    ARITH       7359     A     
 ARITH              BX6    X5           SAVE                                               ARITH       7360     A     
 ARITH              SA6       MCOPDA     MODE-CHANGE-OPERAND ADDRESS                       ARITH       7361     A     
 ARITH              SX7    B5           SAVE                                               ARITH       7362     A     
 ARITH              SA7       MCTYP      MODE CHANGE TYPE                                  ARITH       7363     A     
 ARITH              SA1    X5           GET TYPE OF (X5)                                   ARITH       7364     A     
 ARITH              UX0 B2,X1                                                              ARITH       7365     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2274    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SB3    T.LOG                                                           ARITH       7366     A     
 ARITH              EQ  B5,B3,MCH1      IF TLOG                                            ARITH       7367     A     
 ARITH              EQ  B2,B3,MCH2      IF TLOG                                            ARITH       7368     A     
 ARITH              LX1    59-47                                                           ARITH       7369     A     
 ARITH              SX6    X5                                                              ARITH       7370     A     
 ARITH              PL     X1,NOTCON         BRANCH IF OPERAND IS NOT A CONSTANT           ARITH       7371     A     
 ARITH              SA1    X5+2              DO NOT CONVERT A ZERO CONSTANT IF             ARITH       7372     A     
 ARITH              UX0    X1,B3             A SINGLE WORD ITEM                            ARITH       7373     A     
 ARITH              SX2    B3+MZMC                                                         ARITH       7374     A     
 ARITH              ZR     X2,MDISCON                                                      ARITH       7375     A     
 ARITH              SB3    B3+MIZMC                                                        ARITH       7376     A     
 ARITH              NZ     B3,NOTCON                                                       ARITH       7377     A     
 ARITH     MDISCON  SB3    T.REAL                                                          ARITH       7378     A     
 ARITH              LE     B5,B3,MODCH                                                     ARITH       7379     A     
 ARITH              JP     B5+MDCHTB+5 CONVERT 0 CONST TO DBL WORD                         ARITH       7380     A     
 ARITH     NOTCON   BSS    0                                                               ARITH       7381     A     
 ARITH              SB2    B2-1         (X5) TYPE   COMPUTE POINT TO MDCHTB                ARITH       7382     A     
 ARITH              SB5    B5-1                                                            ARITH       7383     A     
 ARITH              SB2    B2+B2        MULTIPLY B2 BY 6                                   ARITH       7384     A     
 ARITH              SB4    B2+B2        4*B2                                               ARITH       7385     A     
 ARITH              SB2    B2+B4        6*B2                                               ARITH       7386     A     
 ARITH              SB4    B2+B5                                                           ARITH       7387     A     
 ARITH              JP        B4+MDCHTB                                                    ARITH       7388     A     
 ARITH    *                             (X5) TYPE TO B5 TYPE                               ARITH       7389     A     
 ARITH     MDCHTB   SX6    X5           INT         INT                                    ARITH       7390     A     
 ARITH              EQ        MODCH                                                        ARITH       7391     A     
 ARITH              SB7       MCHMCB    INT         REAL                                   ARITH       7392     A     
 ARITH              EQ        MCH3                                                         ARITH       7393     A     
 ARITH              SB7       MCHMCB+1  INT         DBL                                    ARITH       7394     A     
 ARITH              EQ        MCH4                                                         ARITH       7395     A     
 ARITH              SB7       MCHMCB+1  INT         CMPX                                   ARITH       7396     A     
 ARITH              EQ        MCH4                                                         ARITH       7397     A     
 ARITH              SX6    X5           INT         OCT                                    ARITH       7398     A     
 ARITH              EQ        MODCH                                                        ARITH       7399     A     
 ARITH              SX6    X5           INT         HOL                                    ARITH       7400     A     
 ARITH              EQ        MODCH                                                        ARITH       7401     A     
 ARITH              SB7       MCHMCB+2  REAL        INT                                    ARITH       7402     A     
 ARITH              EQ        MCH3                                                         ARITH       7403     A     
 ARITH              SX6    X5           REAL        REAL                                   ARITH       7404     A     
 ARITH              EQ        MODCH                                                        ARITH       7405     A     
 ARITH              SB7       MCHMCB+3  REAL        DBL                                    ARITH       7406     A     
 ARITH              EQ        MCH4                                                         ARITH       7407     A     
 ARITH              SB7       MCHMCB+3  REAL        CMPX                                   ARITH       7408     A     
 ARITH              EQ        MCH4                                                         ARITH       7409     A     
 ARITH              SX6    X5           REAL        OCT                                    ARITH       7410     A     
 ARITH              EQ        MODCH                                                        ARITH       7411     A     
 ARITH              SX6    X5           REAL        HOL                                    ARITH       7412     A     
 ARITH              EQ        MODCH                                                        ARITH       7413     A     
 ARITH              SB7       MCHMCB+2  DBL         INT                                    ARITH       7414     A     
 ARITH              EQ        MCH3                                                         ARITH       7415     A     
 ARITH              SB7       MCHMCB+4  DBL         REAL                                   ARITH       7416     A     
 ARITH              EQ        MCH3                                                         ARITH       7417     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2275    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SX6    X5           DBL         DBL                                    ARITH       7418     A     
 ARITH              EQ        MODCH                                                        ARITH       7419     A     
 ARITH              SB7       MCHMCB+3  DBL         CMPX                                   ARITH       7420     A     
 ARITH              EQ     MCH4                                                            ARITH       7421     A     
 ARITH              SB7       MCHMCB+4  DBL         OCT                                    ARITH       7422     A     
 ARITH              EQ        MCH3                                                         ARITH       7423     A     
 ARITH              SB7       MCHMCB+4  DBL         HOL                                    ARITH       7424     A     
 ARITH              EQ        MCH3                                                         ARITH       7425     A     
 ARITH              SB7       MCHMCB+2  CMPX        INT                                    ARITH       7426     A     
 ARITH              EQ        MCH3                                                         ARITH       7427     A     
 ARITH              SB7       MCHMCB+4  CMPX        REAL                                   ARITH       7428     A     
 ARITH              EQ        MCH3                                                         ARITH       7429     A     
 ARITH              SB7       MCHMCB+3  CMPX        DBL                                    ARITH       7430     A     
 ARITH              EQ     MCH4                                                            ARITH       7431     A     
 ARITH              SX6    X5           CMPX        CMPX                                   ARITH       7432     A     
 ARITH              EQ        MODCH                                                        ARITH       7433     A     
 ARITH              SB7       MCHMCB+4  CMPX        OCT                                    ARITH       7434     A     
 ARITH              EQ        MCH3                                                         ARITH       7435     A     
 ARITH              SB7       MCHMCB+4  CMPX        HOL                                    ARITH       7436     A     
 ARITH              EQ        MCH3                                                         ARITH       7437     A     
 ARITH              SX6    X5           OCT         INT                                    ARITH       7438     A     
 ARITH              EQ        MODCH                                                        ARITH       7439     A     
 ARITH              SX6    X5           OCT         REAL                                   ARITH       7440     A     
 ARITH              EQ        MODCH                                                        ARITH       7441     A     
 ARITH              SB7       MCHMCB+3  OCT         DBL                                    ARITH       7442     A     
 ARITH              EQ        MCH4                                                         ARITH       7443     A     
 ARITH              SB7       MCHMCB+3  OCT         CMPX                                   ARITH       7444     A     
 ARITH              EQ        MCH4                                                         ARITH       7445     A     
 ARITH              SX6    X5           OCT         OCT                                    ARITH       7446     A     
 ARITH              EQ        MODCH                                                        ARITH       7447     A     
 ARITH              SX6    X5           OCT         HOL                                    ARITH       7448     A     
 ARITH              EQ        MODCH                                                        ARITH       7449     A     
 ARITH              SX6    X5           HOL         INT                                    ARITH       7450     A     
 ARITH              EQ        MODCH                                                        ARITH       7451     A     
 ARITH              SX6    X5           HOL         REAL                                   ARITH       7452     A     
 ARITH              EQ        MODCH                                                        ARITH       7453     A     
 ARITH              SB7       MCHMCB+3  HOL         DBL                                    ARITH       7454     A     
 ARITH              EQ        MCH4                                                         ARITH       7455     A     
 ARITH              SB7       MCHMCB+3  HOL         CMPX                                   ARITH       7456     A     
 ARITH              EQ        MCH4                                                         ARITH       7457     A     
 ARITH              SX6    X5           HOL         OCT                                    ARITH       7458     A     
 ARITH              EQ        MODCH                                                        ARITH       7459     A     
 ARITH              SX6    X5           HOL         HOL                                    ARITH       7460     A     
 ARITH              EQ        MODCH                                                        ARITH       7461     A     
 ARITH                                                                                     ARITH       7462     A     
 ARITH    *     MCH1 IF B5 IS TLOG                                                         ARITH       7463     A     
 ARITH     MCH1     SX6    X5                                                              ARITH       7464     A     
 ARITH              SA1    ASFMF                                                           FCC1983       24     A     
 ARITH              NZ     X1,MCH6     IF HERE FROM SFLPR - STATEMENT FUNCTION             FCC1983       25     A     
 ARITH    *                            PROCESSING                                          FCC1983       26     A     
 ARITH              NE  B2,B3,MCH2      IF LOG MIXED WITH NON-LOG                          ARITH       7465     A     
 ARITH              EQ        MODCH     RETURN                                             ARITH       7466     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2276    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     MCH2     EERR      ERMSG31   LOG MIXED WITH NON-LOG                             ARITH       7467          I
          -FCC1983
 ARITH     MCH2     MX7    0                                                               FCC1983       27     A     
 ARITH              SA7    ASFMF       RESET STATEMENT FUNCTION FLAG                       FCC1983       28     A     
 ARITH              EERR   ERMSG31     FE - LOG MIXED WITH NON-LOG                         FCC1983       29     A     
 ARITH                                                                                     ARITH       7468     A     
 ARITH     MCH3     SA2    NARN         HERE FOR TWO PARAMETER MACROS                      ARITH       7469     A     
 ARITH     MCH5     SA1       MCOPDA    GET RI OF OPD:                                     ARITH       7470     A     
 ARITH              SA3    X1+2         LOAD 1ST WD OF RLIST MACRO                         ARITH       7471     A     
 ARITH              MX0       60-16                                                        ARITH       7472     A     
 ARITH              BX7   -X0*X3                                                           ARITH       7473     A     
 ARITH              AX6    B0,X2                                                           ARITH       7474     A     
 ARITH              SA7       PARAMS    STORE RI OF OPD                                    ARITH       7475     A     
 ARITH              SA6       PARAMS+1  NARN TO PARAMS+1                                   ARITH       7476     A     
 ARITH              SA1    A3-2         TURN ON USED-BIT IN (X5)                           ARITH       7477     A     
 ARITH              MX0       1                                                            ARITH       7478     A     
 ARITH              LX0       46                                                           ARITH       7479     A     
 ARITH              BX7    X0+X1                                                           ARITH       7480     A     
 ARITH              SA7    A1                                                              ARITH       7481     A     
 ARITH              SA4       NARN      UPDATE NARN                                        ARITH       7482     A     
 ARITH              SX7    X4+1                                                            ARITH       7483     A     
 ARITH              SA7       NARN                                                         ARITH       7484     A     
 ARITH              SA1       SLBMD     FOR MACRO DESCRIPTOR WORD                          ARITH       7485     A     
 ARITH              PX3    B7,X1        (ONLY 2 OF THE THREE R,S PACKED FOR SLBMD          ARITH       7486     A     
 ARITH              SA5       MCTYP       WILL BE USED BY MCH3 TYPE MACROS. MCH4           ARITH       7487     A     
 ARITH              SA1       RL1         HAS ALREADY PLACED A 3RD)                        ARITH       7488     A     
 ARITH              SA4       RL2       SAVE RL1,2                                         ARITH       7489     A     
 ARITH              BX6    X1                                                              ARITH       7490     A     
 ARITH              AX7    B0,X4                                                           ARITH       7491     A     
 ARITH              SA6       MCHTS                                                        ARITH       7492     A     
 ARITH              SA7       MCHTS+1                                                      ARITH       7493     A     
 ARITH              RJ        MACOUT    OUTPUT MODE CHANGE MACRO                           ARITH       7494     A     
 ARITH              SA1    X7+2         SEE IF RNM TYPE MAC                                ARITH       7495     A     
 ARITH              SB2      -MCHMCB-3                                                     ARITH       7496     A     
 ARITH              UX0 B3,X1                                                              ARITH       7497     A     
 ARITH              EQ  B2,B3,MCH5A     IF SO                                              ARITH       7498     A     
 ARITH              SB2      -MCHMCB-4                                                     ARITH       7499     A     
 ARITH              NE  B2,B3,MCH5B     IF NOT                                             ARITH       7500     A     
 ARITH     MCH5A    MX0       1         TURN ON XMT BIT IN FIRST WD OF ARLIST ENTY         ARITH       7501     A     
 ARITH              SA1    X7                                                              ARITH       7502     A     
 ARITH              LX0       45                                                           ARITH       7503     A     
 ARITH              BX6    X0+X1                                                           ARITH       7504     A     
 ARITH              SA6    X7                                                              ARITH       7505     A     
 ARITH     MCH5B    SA1    MCHTS                                                           ARITH       7506     A     
 ARITH              SA2       MCHTS+1                                                      ARITH       7507     A     
 ARITH              BX6    X1                                                              ARITH       7508     A     
 ARITH              AX7    B0,X2                                                           ARITH       7509     A     
 ARITH              SA3       RL2                                                          ARITH       7510     A     
 ARITH              SA6       RL1                                                          ARITH       7511     A     
 ARITH              SA7       RL2                                                          ARITH       7512     A     
 ARITH              BX6    X3           SET X6 TO ADR OF CONVERT MACRO                     ARITH       7513     A     
 ARITH              EQ     MODCH                                                           ARITH       7514     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2277    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH                                                                                     ARITH       7515     A     
 ARITH     MCH4     SA2    NARN         HERE FOR THREE PARAMETER MACROS                    ARITH       7516     A     
 ARITH              SX7    X2+1                                                            ARITH       7517     A     
 ARITH              SA7       PARAMS+2                                                     ARITH       7518     A     
 ARITH              SA7       NARN                                                         ARITH       7519     A     
 ARITH              EQ        MCH5                                                         ARITH       7520     A     
 ARITH                                                                                     FCC1983       30     A     
 ARITH     MCH6     SA6    ASFMF       SAVE CURRENT ARLIST ADDRESS                         FCC1983       31     A     
 ARITH              IDM    ERMSG31     WARNING - LOG MIXED WITH NON LOG                    FCC1983       32     A     
 ARITH              SA5    ASFMF                                                           FCC1983       33     A     
 ARITH              BX6    X5          RESTORE CURRENT ARLIST ADDRESS                      FCC1983       34     A     
 ARITH              EQ     MODCH       RETURN                                              FCC1983       35     A     
 ARITH                                                                                     FCC1983       36     A     
 ARITH     ASFMF    CON    0                                                               FCC1983       37     A     
 ARITH              EJECT                                                                  ARITH       7521     A     
 ARITH    *     FFRTS: OUTPUTS FETCH OF SAVED FUNCTION RESULT.  ENTER WITH B2=TYPE         ARITH       7522     A     
 ARITH    *           OF FUNC, AND X4=FRSTB ENTRY.                                         ARITH       7523     A     
 ARITH                                                                                     ARITH       7524     A     
 ARITH     FFRTS    ENTRY. *           ** ENTRY/EXIT **                                    ARITH       7525     A     
 ARITH              SA1       SFRSTB                                                       ARITH       7526     A     
 ARITH              SX6    X1-1                                                            ARITH       7527     A     
 ARITH              SA6       SFRSTB                                                       ARITH       7528     A     
 ARITH              SA1       NARN      SAVE NARN                                          ARITH       7529     A     
 ARITH              BX6    X1                                                              ARITH       7530     A     
 ARITH              SA6       FFRTSTS                                                      ARITH       7531     A     
 ARITH              SX7    B2           PREPARE FOR CALL TO FETCH                          ARITH       7532     A     
 ARITH              LX7    P.TYP                                                           ARITH       7533     A     
 ARITH              SA7       NAME+1    SET UP TYPE                                        ARITH       7534     A     
 ARITH              MX0       60-16                                                        ARITH       7535     A     
 ARITH              BX6   -X0*X4                                                           ARITH       7536     A     
 ARITH              SA6       NARN      SET NAME OF RESULT                                 ARITH       7537     A     
 ARITH              SB6    B0           RF                                                 ARITH       7538     A     
 ARITH              AX4    16                POSITION ST NUMBER                            ARITH       7539     A     
 ARITH              SB7    X4                CA                                            ARITH       7540     A     
 ARITH              SA5    ST.               IH OF ST.                                     ARITH       7541     A     
 ARITH              SX6    B0                                                              ARITH       7542     A     
 ARITH              SA6    IDORDLTS                                                        ARITH       7543     A     
 ARITH              SA6    A6+1                                                            ARITH       7544     A     
 ARITH              RJ        FETCH     B6,7,X5 SET                                        ARITH       7545     A     
 ARITH              SA1       FFRTSTS                                                      ARITH       7546     A     
 ARITH              BX6    X1                                                              ARITH       7547     A     
 ARITH              SA6       NARN                                                         ARITH       7548     A     
 ARITH              ZR        FFRTS                                                        ARITH       7549     A     
 ARITH              EJECT                                                                  ARITH       7550     A     
 ARITH    *     OPNCON: ENTER WITH CONST IN X6, AND TYPEWD SET.  OUTPUT NEW CONST          ARITH       7551     A     
 ARITH    *            FETCH OR SET, AND RESET RL,S.                                       ARITH       7552     A     
 ARITH     OPNCN3   RJ        FNDOP                                                        ARITH       7553     A     
 ARITH              SA6       RL1                                                          ARITH       7554     A     
 ARITH                                                                                     ARITH       7555     A     
 ARITH     OPNCON   ENTRY. *           ** ENTRY/EXIT **                                    ARITH       7556     A     
 ARITH              MX0       60-17                                                        ARITH       7557     A     
 ARITH              BX1    X0*X6                                                           ARITH       7558     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2278    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              ZR     X1,OPNCN1    IF CON< 400000B                                    ARITH       7559     A     
 ARITH              ZR     X6,OPNCN1                                                       ARITH       7560     A     
 ARITH              BX1    -X6*X0                                                          ARITH       7561     A     
 ARITH              ZR     X1,OPNCN1    IF -CON< 400000B                                   ARITH       7562     A     
 ARITH     OPNCN2   BX1    X6                                                              ARITH       7563     A     
 ARITH              SB1       1                                                            ARITH       7564     A     
 ARITH              RJ        CONVERT   ENTER CONST IN CONLIST                             ARITH       7565     A     
 ARITH              SA2    EPOINT                                                          ARITH       7566     A     
 ARITH              SB1    X2+1                                                            ARITH       7567     A     
 ARITH              SA2       TYPEWD                                                       ARITH       7568     A     
 ARITH              BX6    X2                                                              ARITH       7569     A     
 ARITH              RJ        CFETCH    OUTPUT CONST LOAD.                                 ARITH       7570     A     
 ARITH              ZR        OPNCN3                                                       ARITH       7571     A     
 ARITH    *                                                                                ARITH       7572     A     
 ARITH     OPNCN1   SA1       TYPEWD                                                       ARITH       7573     A     
 ARITH              SB2    X1-T.REAL                                                       ARITH       7574     A     
 ARITH              ZR     X6,OPNCN4                                                       ARITH       7575     A     
 ARITH              ZR     B2,OPNCN2    IF REAL CONST, FORCE FETCH                         ARITH       7576     A     
 ARITH     OPNCN4   BX5    X6                                                              ARITH       7577     A     
 ARITH              SX7    773B              INHIBIT FORMATION OF -CON                     ARITH       7578     A     
 ARITH              SA7    BSAV              IF CON IS OF FORM -(2**N - 1)                 ARITH       7579     A     
 ARITH              RJ     STCON                                                           ARITH       7580     A     
 ARITH              SA1       TYPEWD                                                       ARITH       7581     A     
 ARITH              SB2    X1                                                              ARITH       7582     A     
 ARITH              PX6    B2,X6                                                           ARITH       7583     A     
 ARITH              SA6    A6                                                              ARITH       7584     A     
 ARITH              ZR        OPNCN3                                                       ARITH       7585     A     
 ARITH     SDFINE   SPACE  3                                                               ARITH       7586     A     
 ARITH    **        SDFINE - SET DEFINE BIT IN SYMTAB                                      ARITH       7587     A     
 ARITH    *         ENTRY  (X1) = ADDRESS OF ARLIST ENTRY                                  ARITH       7588     A     
 ARITH    *         EXIT   (X6) = WORD A OF SYMTAB ENTRY                                   ARITH       7589     A     
 ARITH    *                (A6) = ADDRESS OF WORD A                                        ARITH       7590     A     
 ARITH    *                (X4) = WORD A BEFORE DEFINE BIT WAS SET                         ARITH       7591     A     
 ARITH    *         PRESERVES X1,X2                                                        ARITH       7592     A     
 ARITH                                                                                     ARITH       7593     A     
 ARITH     SDFINE   ENTRY. *           ** ENTRY/EXIT **                                    ARITH       7594     A     
 ARITH              SA4    X1+3                                                            ARITH       7595     A     
 ARITH              SX6    X4-I.GL                                                         ARITH       7596     A     
 ARITH              PL     X6,SDFINE   IF NOT IN SYMTAB                                    ARITH       7597     A     
 ARITH              SA3    SYM1                                                            ARITH       7598     A     
 ARITH              SX4    X4                                                              ARITH       7599     A     
 ARITH              LX4    1                                                               ARITH       7600     A     
 ARITH              IX6    X3-X4                                                           ARITH       7601     A     
 ARITH              SA4    X6                WORD A                                        ARITH       7602     A     
 ARITH              SX0    V.DEF                                                           ARITH       7603     A     
 ARITH              BX6    X0+X4       SET DEF BIT FOR THIS SYMBOL                         ARITH       7604     A     
 ARITH              SA6    A4                                                              ARITH       7605     A     
 ARITH              EQ     SDFINE                                                          ARITH       7606     A     
 ARITH     CVDB     TITLE                                                                  ARITH       7607     A     
 ARITH    **        CVDB - ISSUE R-MACRO TO COMPUTE VARIABLE DIM ARRAY BOUNDS.             ARITH       7608     A     
 ARITH                                                                                     ARITH       7609     A     
 ARITH     CVDB     ENTRY. **          ** ENTRY/EXIT **                                    ARITH       7610     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2279    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA1    =XDFLAG                                                         ARITH       7611     A     
 ARITH              SA2    =XVARDIM                                                        ARITH       7612     A     
 ARITH              ZR     X1,CVDB     IF DEBUG OFF, EXIT ...                              ARITH       7613     A     
 ARITH              ZR     X2,CVDB     IF NO VARDIM FORMAL PARAMS, EXIT ...                ARITH       7614     A     
 ARITH              SA4    SYM1                                                            ARITH       7615     A     
 ARITH              SX5    2           SYMBOL TABLE ORDINAL OF FIRST F.P.                  ARITH       7616     A     
 ARITH              SA2    =XFP.                                                           ARITH       7617     A     
 ARITH              SB5    1                                                               ARITH       7618     A     
 ARITH              SA0    X4                                                              ARITH       7619     A     
 ARITH              BX7    X2                                                              ARITH       7620     A     
 ARITH              SA7    CVDBB+1                                                         ARITH       7621     A     
 ARITH     CVD1     LX6    B5,X5                                                           ARITH       7622     A     
 ARITH              SB2    X6                                                              ARITH       7623     A     
 ARITH              SA1    A0-B2       WORDA                                               ARITH       7624     A     
 ARITH              LX1    59-P.FP                                                         ARITH       7625     A     
 ARITH              PL     X1,CVDB     IF NOT AN F.P.                                      ARITH       7626     A     
 ARITH              LX1    P.FP-P.DIM                                                      ARITH       7627     A     
 ARITH              SX5    X5+B5                                                           ARITH       7628     A     
 ARITH              PL     X1,CVD1     IF NOT DIMENSIONED                                  ARITH       7629     A     
 ARITH              SA2    A1-B5       WORDB                                               ARITH       7630     A     
 ARITH              BX6    X5                                                              ARITH       7631     A     
 ARITH              MX0    -L.TYP                                                          ARITH       7632     A     
 ARITH              SA6    CVDA        SAVE SYMBOL TABLE ORDINAL                           ARITH       7633     A     
 ARITH              LX2    -P.TYP                                                          ARITH       7634     A     
 ARITH              BX3    -X0*X2                                                          ARITH       7635     A     
 ARITH              SB6    X3-T.DBL                                                        ARITH       7636     A     
 ARITH              LX2    P.TYP-P.DIMP                                                    ARITH       7637     A     
 ARITH              MX0    -L.DIMP                                                         ARITH       7638     A     
 ARITH              BX2    -X0*X2                                                          ARITH       7639     A     
 ARITH              SA1    DIM1                                                            ARITH       7640     A     
 ARITH              LX2    1                                                               ARITH       7641     A     
 ARITH              SB2    X1+B5                                                           ARITH       7642     A     
 ARITH              MX0    3                                                               ARITH       7643     A     
 ARITH              SA5    B2+X2       DIM INFO WORD                                       ARITH       7644     A     
 ARITH              LX0    -3                                                              ARITH       7645     A     
 ARITH              BX4    X0*X5                                                           ARITH       7646     A     
 ARITH              ZR     X4,CVD3     IF P(ABC) = 0 */ NOT VARDIM                         ARITH       7647     A     
 ARITH              SX6    X6-3                                                            ARITH       7648     A     
 ARITH              SA6    CVDBB+3     CA OF STORE                                         ARITH       7649     A     
 ARITH              BX3    X5                                                              ARITH       7650     A     
 ARITH              AX3    57                                                              ARITH       7651     A     
 ARITH              SB3    B0                                                              ARITH       7652     A     
 ARITH              MI     B6,CVD2     IF SINGLE PRECISION                                 ARITH       7653     A     
 ARITH              SB3    B5                                                              ARITH       7654     A     
 ARITH     CVD2     MX7    0                                                               ARITH       7655     A     
 ARITH              CALL   WWC         OUTPUT BOUNDS COMPUTATION MACRO                     ARITH       7656     A     
 ARITH              SA1    NRLN                                                            ARITH       7657     A     
 ARITH              SX6    X1-1                                                            ARITH       7658     A     
 ARITH              SA6    CVDBB+2                                                         ARITH       7659     A     
 ARITH              WRM    CVDBB       OUTPUT STORE MACRO                                  ARITH       7660     A     
 ARITH     CVD3     SA5    CVDA                                                            ARITH       7661     A     
 ARITH              SA4    SYM1                                                            ARITH       7662     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2280    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA0    X4                                                              ARITH       7663     A     
 ARITH              EQ     CVD1                                                            ARITH       7664     A     
 ARITH                                                                                     ARITH       7665     A     
 ARITH     CVDA     CON    2           ORD OF FIRST F.P.                                   ARITH       7666     A     
 ARITH     CVDBB    RMHDR  TSMACC,3                                                        ARITH       7667     A     
 ARITH              BSS    3                                                               ARITH       7668     A     
 ARITH     STRIP    SPACE  4,8                                                             ARITH       7669     A     
 ARITH    ***                                                                              ARITH       7670     A     
 ARITH    *         ROUTINE TO STRIP OFF A TRAILING $ FROM A NAME                          ARITH       7671     A     
 ARITH    *           ENTRY: NAME IN UPPER 42 BITS OF X1                                   ARITH       7672     A     
 ARITH    *           EXIT: SAME AS ENTRY, BUT WITHOUT $ IF ONE FOUND                      ARITH       7673     A     
 ARITH    *                                                                                ARITH       7674     A     
 ARITH     STRIP    ENTRY. **                ** ENTRY/EXIT **                              ARITH       7675     A     
 ARITH              SB1    18                INITIAL SHIFT COUNT                           ARITH       7676     A     
 ARITH              SB2    6                 SHIFT INCREMENT                               ARITH       7677     A     
 ARITH              SX2    1R                BLANK CHARACTER                               ARITH       7678     A     
 ARITH              BX6    X1                SAVE ORIGINAL COPY                            ARITH       7679     A     
 ARITH              MX0    60-6              CHARACTER MASK                                ARITH       7680     A     
 ARITH              AX1    18                POSITION LAST CHARACTER FIELD OF NAME         ARITH       7681     A     
 ARITH     STRIP0   BX3    -X0*X1            GET CHARACTER                                 ARITH       7682     A     
 ARITH              IX4    X3-X2             IS CHARACTER A BLANK                          ARITH       7683          I
          -FCC1289X 
 ARITH              ZR     X4,STRIP1         YES                                           ARITH       7684          I
          -FCC1289X 
 ARITH              IX7    X3-X2       IS CHARACTER A BLANK                                FCC1289X      15     A     
 ARITH              ZR     X7,STRIP1   YES                                                 FCC1289X      16     A     
 ARITH              SX5    X3-1R$            IS CHARACTER A $                              ARITH       7685     A     
 ARITH              ZR     X5,STRIP2         YES                                           ARITH       7686     A     
 ARITH              BX1    X6                SET UP EXIT CONDITION                         ARITH       7687     A     
 ARITH              EQ     STRIP             EXIT                                          ARITH       7688     A     
 ARITH     STRIP1   SB1    B1+B2             INCREMENT SHIFT COUNT                         ARITH       7689     A     
 ARITH              LX1    60-6              POSITION NEXT CHARACTER                       ARITH       7690     A     
 ARITH              EQ     STRIP0                                                          ARITH       7691     A     
 ARITH     STRIP2   LX7    B1,X4                                                           ARITH       7692          I
          -FCC1289X 
 ARITH     STRIP2   LX7    B1                                                              FCC1289X      17     A     
 ARITH              IX6    X6-X7             CONVERT THE $ TO A BLANK                      ARITH       7693     A     
 ARITH              BX1    X6                SET UP EXIT CONDITION                         ARITH       7694     A     
 ARITH              EQ     STRIP             EXIT                                          ARITH       7695     A     
 ARITH                                                                                     ARITH       7696     A     
 ARITH                                                                                     ARITH       7697     A     
 ARITH    *         ENTRY POINT FOR FORTRAN CALLS                                          ARITH       7698     A     
 ARITH     FSTRIP   ENTRY. **                ** ENTRY/EXIT **                              ARITH       7699     A     
 ARITH              SA1    X1                GET FUNCTION PARAMETER                        ARITH       7700     A     
 ARITH              PLUG   AT=STRIP,FROM=FSTRIP,FREG=2                                     ARITH       7701     A     
 ARITH              EQ     STRIP+1           BEGIN EXECUTION                               ARITH       7702     A     
 ARITH              TITLE              IXFN -GENERATE LOADS FOR I/O PROCESSOR              ARITH       7703     A     
 ARITH    ***                                                                              ARITH       7704     A     
 ARITH    *         IXFN - SET UP ADDRESS OF SYMBOL SBI  LOCF(EXPR) FOR                    ARITH       7705     A     
 ARITH    *         I/O LIST PROCESSOR                                                     ARITH       7706     A     
 ARITH    *                                                                                ARITH       7707     A     
 ARITH    *         ON ENTRY:                                                              ARITH       7708     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2281    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    *                SELIST POINTS TO FIRST ITEM IN LIST                             ARITH       7709     A     
 ARITH    *                X3 = EXPRESSION FLAG                                            ARITH       7710     A     
 ARITH    *                X6 = REFMAP REFERENCE TYPE FLAG                                 ARITH       7711     A     
 ARITH    *                                                                                ARITH       7712     A     
 ARITH    *         ON EXIT:                                                               ARITH       7713     A     
 ARITH    *                SELIST POINTS PAST EXPRESSION ( TO A , OR EOS )                 ARITH       7714     A     
 ARITH    *                X2 = SYMTAB ORDINAL OF NAME                                     ARITH       7715     A     
 ARITH    *                                                                                ARITH       7716     A     
 ARITH                                                                                     ARITH       7717     A     
 ARITH     REFTYPE  BSS    1                 REFERENCE TYPE FOR FIRST REFERENCE            ARITH       7718     A     
 ARITH     EXPFLAG  BSS    1           ZERO IF EXPRESSIONS ALLOWED, NON-ZERO OTHER         ARITH       7719     A     
 ARITH     IXFN.SN  BSSZ   1                 SAVED VALUE OF NAME                           ARITH       7720     A     
 ARITH     ABIO     BSS    1                 + FOR BUFFER FWA, - FOR BUFFER LWA            ARITH       7721          I
          -FCC0614
 ARITH    *                                  ZERO FOR NON-BUFFER IXFN                      ARITH       7722          I
          -FCC0614
 ARITH     ABIO     BSS    1           ^0 FOR NO CHECKS FOR RESTART CALLS                  FCC0614       18          I
          -FCC1092
 ARITH    *                            ELSE + IS ENCODE/DECODE, - IS BUFFER I/O            FCC0614       19          I
          -FCC1092
 ARITH    *         ALLOCATE LOCAL *BIO* FLAG WITH FOLLOWING MEANINGS..                    FCC1092        5     A     
 ARITH    *         ABIO .NZ. MEANS NO RESTART CALLS FOR THAT ITEM.                        FCC1092        6     A     
 ARITH    *         ABIO .MI. MEANS UNQUALIFIED ARRAY NAME SYNTACTICALLY ACCEP-            FCC1092        7     A     
 ARITH    *         TABLE.                                                                 FCC1092        8     A     
 ARITH    *         ABIO .MI. AND SET(ABIO) .NZ. FURTHER MEANS THAT THIS IS A              FCC1092        9     A     
 ARITH    *         BUFFER I/O LWA ITEM, AND ADDRESS MUST BE INCREMENTED IF DOUBLE         FCC1092       10     A     
 ARITH    *         WORD.                                                                  FCC1092       11     A     
 ARITH                                                                                     FCC1092       12     A     
 ARITH     ABIO     BSS    1                                                               FCC1092       13     A     
 ARITH                                                                                     ARITH       7723     A     
 ARITH              EXT    IXFNCL                                                          ARITH       7724     A     
 ARITH              EXT    APLRST,HOLCON,IARC,IOEXP,PARCNT,TYPEFG                          ARITH       7725     A     
 ARITH              EXT    LDFLAG                                                          ARITH       7726     A     
 ARITH                                                                                     ARITH       7727     A     
 ARITH     IXFN     ENTRY. **                ** ENTRY/EXIT **                              ARITH       7728     A     
 ARITH              SA5    SELIST                                                          ARITH       7729          I
          -FCC0787
 ARITH              BX7    X3                                                              ARITH       7730          I
          -FCC0787
 ARITH              SA4    X5                FIRST ELEMENT                                 ARITH       7731          I
          -FCC0787
 ARITH              SA7    EXPFLAG     SAVE EXPRESSION FLAG                                ARITH       7732          I
          -FCC0787
 ARITH              UX5    B1,X4                                                           ARITH       7733          I
          -FCC0787
 ARITH              BX7    X4                                                              ARITH       7734          I
          -FCC0787
 ARITH              ZR     X3,IXFN0          IF EXPRESSIONS ALLOWED                        ARITH       7735          I
          -FCC0787
 ARITH              NE     B1,B5,IXFN5       IF NOT A NAME                                 ARITH       7736          I
          -FCC0787
 ARITH     IXFN0    SA7    IXFN.SN           SAVE NAME FOR POSSIBLE ERROR LATER            ARITH       7737          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2282    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
          -FCC0787
 ARITH              SB3    EL.COMMA          PLACE A COMMA PRIOR TO LIST ITEM              ARITH       7738          I
          -FCC0787
 ARITH              PX7    B3,X3               SO THAT A UNARY MINUS WILL BE               ARITH       7739          I
          -FCC0787
 ARITH              SA7    A4+B5               INTERPRETED PROPERLY                        ARITH       7740          I
          -FCC0787
 ARITH              BX7    X3                                                              FCC0787      199     A     
 ARITH              SA7    EXPFLAG     EXPRESSION FLAG                                     FCC0787      200     A     
 ARITH              SA6    REFTYPE           SAVE REFERENCE MAP REFERENCE TYPE             ARITH       7741     A     
 ARITH              SA5    =XRSELECT         FOR AN 'IXFN' CALL SET THE LOCAL              ARITH       7742     A     
 ARITH              NZ     X6,IXFN1           COPY OF THE REFERENCE-SELECTION-FLAG         ARITH       7743     A     
 ARITH              PL     X6,IXFN1          EQUAL TO THE EXTERNAL VALUE UNLESS            ARITH       7744     A     
 ARITH              BX5    X5-X5             THIS IS A SPECIAL CALL (I.E. 'IXFN'           ARITH       7745     A     
 ARITH                                       FLAG IS -0), IN WHICH CASE SET THE            ARITH       7746     A     
 ARITH                                       FLAG SO THAT NO REFERENCES WILL BE            ARITH       7747     A     
 ARITH                                       COLLECTED.                                    ARITH       7748     A     
 ARITH     IXFN1    BX6    X5                                                              ARITH       7749     A     
 ARITH              MX7    1                                                               ARITH       7750     A     
 ARITH              SA6    REFSELCT                                                        ARITH       7751     A     
 ARITH              SA7    EQCOUNT           SET IXFN FLAG FOR ID/REFMAP PROC              ARITH       7752     A     
 ARITH              RJ     INITR             INITIALIZE ARITH                              ARITH       7753     A     
 ARITH              SA2    IXFNCL                                                          ARITH       7754     A     
 ARITH              MX7    0                                                               ARITH       7755     A     
 ARITH              SA7    A2                                                              ARITH       7756     A     
 ARITH              ZR     X2,IXFN1A   IF NOT I/O UNIT OR VAR FORMAT                       ARITH       7757     A     
 ARITH              SX6    -1          INDICATES VAR FORMAT                                ARITH       7758          I
          -FCC0787
 ARITH              MI     X2,IXFN1A   IF VARIABLE FORMAT                                  ARITH       7759          I
          -FCC0787
 ARITH              SX6    -2          INDICATES I/O UNIT                                  ARITH       7760          I
          -FCC0787
 ARITH              BX6    -X6                                                             FCC0787      201     A     
 ARITH                                                                                     ARITH       7761     A     
 ARITH     IXFN1A   SA6    IXFNFG      NON-ZERO VALUES ARE USED IF FROM IXFN               ARITH       7762     A     
 ARITH              SA2    =XBIO                                                           ARITH       7763     A     
 ARITH              BX6    X2                                                              ARITH       7764     A     
 ARITH              SA6    ABIO                                                            ARITH       7765     A     
 ARITH              MX6    0                                                               FCC0599        5     A     
 ARITH              SA6    A2                                                              FCC0599        6          I
          -FCC0787
 ARITH              SA3    EXPFLAG                                                         FCC0787      202     A     
 ARITH              SA5    SELIST                                                          FCC0787      203     A     
 ARITH              SA6    A2                                                              FCC0787      204     A     
 ARITH              SA4    X5                                                              FCC0787      205     A     
 ARITH              UX5    B4,X4                                                           FCC0787      206     A     
 ARITH              BX7    X4                                                              FCC0787      207     A     
 ARITH              ZR     X3,IXFN1B   IF EXPRESSIONS ALLOWED                              FCC0787      208     A     
 ARITH              NE     B4,B5,IXFN5 IF NOT A NAME, ERROR                                FCC0787      209     A     
 ARITH     IXFN1B   SA7    IXFN.SN     SAVE NAME FOR POSSIBLE ERROR                        FCC0787      210     A     
 ARITH              RJ     SSERR3      CHECK SYNTAX OF ITEM, B4_ITEM                       FCC0787      211     A     
 ARITH              SA5    SELIST                                                          FCC0787      212     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2283    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SB3    EL.COMMA                                                        FCC0787      213     A     
 ARITH              PX6    B3,X3                                                           FCC0787      214     A     
 ARITH              SA6    X5+B5       FOR CORRECT UNARY MINUS PROCESSING                  FCC0787      215     A     
 ARITH              SX7    2000B+XFLP                                                      ARITH       7766     A     
 ARITH              LX7    48                                                              ARITH       7767     A     
 ARITH              SX6    B5                                                              ARITH       7768     A     
 ARITH              SA7    OPSTAK+1          SET A IXFN ( IN THE OPSTACK                   ARITH       7769     A     
 ARITH              SA6    OSPTR       OSPTR = 1                                           ARITH       7770     A     
 ARITH              EQ     NEXTE             GO TO THE MAIN LOOP                           ARITH       7771          I
          -FCC0787
 ARITH              SA3    =XCPLXC                                                         FCC0787      216     A     
 ARITH              MX7    0                                                               FCC0787      217     A     
 ARITH              SA7    A3                                                              FCC0787      218     A     
 ARITH              ZR     X3,NEXTE    IF NOT PROCESSED CPLX CONST                         FCC0787      219     A     
 ARITH              SX7    T.CPLX                                                          FCC0787      220     A     
 ARITH              BX6    X3                                                              FCC0787      221     A     
 ARITH              SA7    TYPEWD                                                          FCC0787      222     A     
 ARITH              SA6    A5          POINT PAST )                                        FCC0787      223     A     
 ARITH              EQ     CON2A                                                           FCC0787      224     A     
 ARITH                                                                                     ARITH       7772     A     
 ARITH    *         IXFN ( POPPED FROM THE STACK                                           ARITH       7773     A     
 ARITH                                                                                     ARITH       7774     A     
 ARITH     IXFN2    SA2    HOLCON                                                          ARITH       7775          I
          -FCC1082
 ARITH     IXFN2    OUTUSE DATA.       IN CASE HOL. CON WAS OUTPUT                         FCC1082        4     A     
 ARITH              SA2    HOLCON                                                          FCC1082        5     A     
 ARITH              SX6    0                                                               ARITH       7776     A     
 ARITH              SA6    IXFNCL                                                          ARITH       7777     A     
 ARITH              SB5    1                                                               ARITH       7778     A     
 ARITH              ZR     X2,IXFN2A         IF NOT STAND ALONE HOLLERITH CONSTANT         ARITH       7779     A     
 ARITH              SA5    REFTYPE                                                         ARITH       7780     A     
 ARITH              SA4    IXFN.SN           IN CASE OF AN ERROR                           ARITH       7781     A     
 ARITH              NG     X5,IXFN5          IF CONSTANT IN A READ STMT                    ARITH       7782     A     
 ARITH              EQ     IXFN9                                                           ARITH       7783     A     
 ARITH                                                                                     ARITH       7784     A     
 ARITH     IXFN2A   SA1    RL2                                                             ARITH       7785     A     
 ARITH              SA2    X1                LAST RLIST OP                                 ARITH       7786     A     
 ARITH              UX0    B2,X2                                                           ARITH       7787     A     
 ARITH              BX6    X1                                                              ARITH       7788     A     
 ARITH              SA6    RL2TS             SAVE ADDRESS OF LAST MACRO                    ARITH       7789     A     
 ARITH              SX7    B2                                                              ARITH       7790     A     
 ARITH              SA7    TYPEFG            SAVE LAST MACRO TYPE                          ARITH       7791     A     
 ARITH              SB3    T.DBL                                                           ARITH       7792     A     
 ARITH              LT     B2,B3,IXFN3       IF SINGLE PRECISION                           ARITH       7793     A     
 ARITH              SB4    T.CPLX                                                          ARITH       7794     A     
 ARITH              GT     B2,B4,IXFN3       IF NOT DOUBLE OR COMPLEX                      ARITH       7795     A     
 ARITH              SA3    NRLN                                                            ARITH       7796     A     
 ARITH              SX6    X3-1              DOUBLE PRECISION, BACK OFF NRLN               ARITH       7797     A     
 ARITH              SA6    A3                                                              ARITH       7798     A     
 ARITH              MX0    1                                                               ARITH       7799     A     
 ARITH              BX7    X0+X7             SET TOP BIT IF DOUBLE WORD                    ARITH       7800     A     
 ARITH              SA7    A7                                                              ARITH       7801     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2284    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     IXFN3    SA2    X1+2              GET FIRST RLIST WORD                          ARITH       7802     A     
 ARITH              UX0    B2,X2                                                           ARITH       7803     A     
 ARITH              MX6    0                                                               ARITH       7804     A     
 ARITH                                                                                     ARITH       7805     A     
 ARITH    *         SEE IF THE LAST MACRO IS A LOAD, AND IF SO REPLACE IT WITH             ARITH       7806     A     
 ARITH    *         THE CORRESPONDING SET MACRO                                            ARITH       7807     A     
 ARITH                                                                                     ARITH       7808     A     
 ARITH              SA3    IXFN.TAB-1                                                      ARITH       7809     A     
 ARITH              SB5    1                                                               ARITH       7810     A     
 ARITH     IXFN4    SA3    A3+B5             TABLE ENTRY                                   ARITH       7811     A     
 ARITH              SX4    X3+B2                                                           ARITH       7812     A     
 ARITH              ZR     X4,IXFN6          IF A MATCH                                    ARITH       7813     A     
 ARITH              NZ     X3,IXFN4          IF NOT END OF THE TABLE                       ARITH       7814     A     
 ARITH              SA5    EXPFLAG                                                         ARITH       7815     A     
 ARITH              ZR     X5,IXFN5A   IF EXPRESSIONS ARE ALLOWED                          ARITH       7816     A     
 ARITH              SA4    IXFN.SN                                                         ARITH       7817     A     
 ARITH     IXFN5    SB6    ERMSG24           ILLEGAL I/O ADDRESS                           ARITH       7818     A     
 ARITH              SB7    DOGOOF                                                          ARITH       7819     A     
 ARITH              MX6    0                                                               ARITH       7820          I
          -FCC0599
 ARITH              SA6    =XBIO                                                           ARITH       7821          I
          -FCC0599
 ARITH              EQ     ERPRO                                                           ARITH       7822     A     
 ARITH     IXFN5A   MX2    10                                                              ARITH       7823     A     
 ARITH              RJ     OTS         OUTPUT TEMP STORES                                  ARITH       7824     A     
 ARITH              LX2    AP.IHP                                                          ARITH       7825     A     
 ARITH              LX3    AP.CAP                                                          ARITH       7826     A     
 ARITH              BX2    X2+X3                                                           ARITH       7827     A     
 ARITH              LX4    AP.P1P                                                          ARITH       7828     A     
 ARITH              IX7    X2+X4       IOEXP = AP(P1,CA,IH)                                ARITH       7829     A     
 ARITH              SA7    IOEXP             SET NONZERO                                   ARITH       7830     A     
 ARITH              EQ     OUT               OUTPUT EXPRESSION                             ARITH       7831     A     
 ARITH                                                                                     ARITH       7832     A     
 ARITH     IXFN6    SA4    SAVDAN                                                          ARITH       7833     A     
 ARITH              ZR     X4,IXFN6D         IF NOT EXPLICIT CODE FLUSHING                 ARITH       7834     A     
 ARITH              MX7    0                                                               ARITH       7835     A     
 ARITH              SA7    A4                CLEAR FLAG                                    ARITH       7836     A     
 ARITH              SA7    APLRST            ENSURE A ZERO FLAG                            ARITH       7837     A     
 ARITH              PL     X4,IXFN6C                                                       ARITH       7838     A     
 ARITH              SX6    B5+B5                                                           ARITH       7839     A     
 ARITH     IXFN6D   SA4    X1                MACRO HEADER                                  ARITH       7840     A     
 ARITH              LX4    59-36             SHIFT NON STANDARD LOAD BIT                   ARITH       7841     A     
 ARITH              SA5    ABIO                                                            ARITH       7842     A     
 ARITH              PL     X4,IXFN6A         IF NOT NON STANDARD LOAD                      ARITH       7843          I
          -FCC1092
 ARITH              MX7    0                                                               FCC1092       14     A     
 ARITH              PL     X4,IXFN6D1  IF NOT NON-STANDARD LOAD                            FCC1092       15     A     
 ARITH              SX6    B0-B5                                                           ARITH       7844     A     
 ARITH              PL     X5,IXFN6B         IF NOT BUFFER LWA                             ARITH       7845          I
          -FCC0614
 ARITH              PL     X5,IXFN6B   IF NOT BUFFER I/O                                   FCC0614       20          I
          -FCC1092
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2285    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SX4    X5                                                              FCC0614       21          I
          -FCC1092
 ARITH              NZ     X4,IXFN6B   IF NOT BUFFER LWA                                   FCC0614       22          I
          -FCC1092
 ARITH              SA5    TYPEFG                                                          ARITH       7846          I
          -FCC1092
 ARITH              PL     X5,IXFN6B   IF NOT DOUBLE WORD ITEM                             ARITH       7847          I
          -FCC1092
 ARITH     IXFN6D1  PL     X5,IXFN6D2  IF NOT BUFFER I/O                                   FCC1092       16     A     
 ARITH              SX5    X5                                                              FCC1092       17     A     
 ARITH              NZ     X5,IXFN6D2  IF NOT LWA                                          FCC1092       18     A     
 ARITH              SA5    TYPEFG                                                          FCC1092       19     A     
 ARITH              PL     X5,IXFN6D2  IF NOT DOUBLE WORD ITEM                             FCC1092       20     A     
 ARITH              MX7    1                                                               FCC1092       21     A     
 ARITH              PL     X4,IXFN6A   IF NOT NON-STANDARD LOAD                            FCC1092       22     A     
 ARITH              SA5    X1+2+3                                                          ARITH       7848     A     
 ARITH              MX4    -18                                                             ARITH       7849     A     
 ARITH              SX7    X5+B5                                                           ARITH       7850     A     
 ARITH              BX5    X4*X5                                                           ARITH       7851     A     
 ARITH              BX7    -X4*X7                                                          ARITH       7852     A     
 ARITH              BX7    X7+X5                                                           ARITH       7853     A     
 ARITH              SA7    A5          CA = CA + 1                                         ARITH       7854     A     
 ARITH              EQ     IXFN6B                                                          ARITH       7855     A     
 ARITH                                                                                     ARITH       7856     A     
 ARITH     IXFN6A   SX7    B2+STLMAC         ADD STANDARD SUBSCRIPT OP CODE                ARITH       7857          I
          -FCC1092
 ARITH              SA4    TYPEFG                                                          ARITH       7858          I
          -FCC1092
 ARITH              NZ     X7,IXFN6B1  IF NOT IXFN MACRO                                   ARITH       7859          I
          -FCC1092
 ARITH              SX6    B5                                                              ARITH       7860          I
          -FCC1092
 ARITH              BX4    X4*X5                                                           ARITH       7861          I
          -FCC1092
 ARITH              PL     X4,IXFN6B         IF NOT DOUBLE WORD BUFFER LWA                 ARITH       7862          I
          -FCC1092
 ARITH     IXFN6D2  PL     X4,IXFN6A   IF NOT NON-STD LOAD                                 FCC1092       23     A     
 ARITH              EQ     IXFN6B                                                          FCC1092       24     A     
 ARITH                                                                                     FCC1092       25     A     
 ARITH     IXFN6A   SX4    B2+STLMAC                                                       FCC1092       26     A     
 ARITH              NZ     X4,IXFN6B1  IF NOT IXFN MACRO                                   FCC1092       27     A     
 ARITH              SX6    B5                                                              FCC1092       28     A     
 ARITH              PL     X7,IXFN6B   IF NOT DOUBLE WORD BUFFER LWA                       FCC1092       29     A     
 ARITH              SA5    X1+2+1            IH,CA OF ARRAY                                ARITH       7863     A     
 ARITH              MX4    -IX.CAL                                                         ARITH       7864     A     
 ARITH              LX5    -IX.CAP                                                         ARITH       7865     A     
 ARITH              SX7    X5+B5                                                           ARITH       7866     A     
 ARITH              BX7    -X4*X7                                                          ARITH       7867     A     
 ARITH              BX5    X4*X5                                                           ARITH       7868     A     
 ARITH              BX7    X7+X5                                                           ARITH       7869     A     
 ARITH              LX7    IX.CAP                                                          ARITH       7870     A     
 ARITH              SA7    A5                CA = CA + 1                                   ARITH       7871     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2286    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              EQ     IXFN6B                                                          ARITH       7872     A     
 ARITH                                                                                     ARITH       7873     A     
 ARITH     IXFN6B1  BX4    X4*X5                                                           ARITH       7874          I
          -FCC1092
 ARITH              PL     X4,IXFN6B         IF NOT DOUBLE WORD BUFFER LWA                 ARITH       7875          I
          -FCC1092
 ARITH     IXFN6B1  PL     X7,IXFN6B   IF NOT DOUBLE WORD BUFFER LWA                       FCC1092       30     A     
 ARITH              SA5    NCA                                                             ARITH       7876     A     
 ARITH              SX7    X5+B5                                                           ARITH       7877     A     
 ARITH              SA7    A5                NCA = NCA + 1                                 ARITH       7878     A     
 ARITH     IXFN6B   SA6    APLRST      APLIST RESTART FLAG                                 ARITH       7879     A     
 ARITH              ZR     X6,IXFN7          ONLY DUMP ARRAY REFERENCES                    ARITH       7880     A     
 ARITH     IXFN6C   UX4    B2,X3             GET SET X MACRO OP                            ARITH       7881     A     
 ARITH              PX7    B2,X0             REPLACE SA WITH SX MACRO                      ARITH       7882     A     
 ARITH              SA7    A2                                                              ARITH       7883     A     
 ARITH              EQ     OUT                                                             ARITH       7884     A     
 ARITH                                                                                     ARITH       7885     A     
 ARITH     IXFN7    SA3    IOEXP                                                           ARITH       7886     A     
 ARITH              ZR     X3,IXFN8          IF NOT AN I/O EXPRESSION                      ARITH       7887     A     
 ARITH              SA2    ST.               NEEDED FOR LISTIO PROCESSING                  ARITH       7888     A     
 ARITH              EQ     IXFN9                                                           ARITH       7889     A     
 ARITH                                                                                     ARITH       7890     A     
 ARITH     IXFN8    SA1    RL2TS                                                           ARITH       7891     A     
 ARITH              SA2    X1+1              SYMTAB ORDINAL OF THE FIRST ITEM              ARITH       7892     A     
 ARITH     IXFN9    SA5    SELIST                                                          ARITH       7893     A     
 ARITH              SX6    X5+B5             ADVANCE SELIST                                ARITH       7894     A     
 ARITH              SA6    A5                                                              ARITH       7895     A     
 ARITH              SA4    REFTYPE           IF THIS WAS A READ TYPE I/O-LIST THEN         ARITH       7896     A     
 ARITH              PL     X4,IXFN           SET THE DEFINED BIT, OTHERWISE EXIT.          ARITH       7897     A     
 ARITH              SA4    SYM1                                                            ARITH       7898     A     
 ARITH              LX7    X2,B5                                                           ARITH       7899     A     
 ARITH              SX3    X7                                                              ARITH       7900     A     
 ARITH              IX7    X4-X3                                                           ARITH       7901     A     
 ARITH              SA4    X7                                                              ARITH       7902     A     
 ARITH              SX3    V.DEF                                                           ARITH       7903     A     
 ARITH              BX7    X4+X3                                                           ARITH       7904     A     
 ARITH              SA7    A4                                                              ARITH       7905     A     
 ARITH              EQ     IXFN                                                            ARITH       7906     A     
 ARITH              SPACE  3                                                               ARITH       7907     A     
 ARITH    ***                                                                              ARITH       7908     A     
 ARITH    *         IXFN MACRO EQUIVALENCE TABLE                                           ARITH       7909     A     
 ARITH    *         NOTE THAT THE TRANSFORMATIONS PERFORMED BY IXFN ARE                    ARITH       7910     A     
 ARITH    *         DEPENDENT ON THE FACT THAT THE EQUIVALENT MACROS HAVE THE              ARITH       7911     A     
 ARITH    *         SAME PARAMETERS, AND HENCE ARE THE SAME LENGTH, ETC.                   ARITH       7912     A     
 ARITH                                                                                     ARITH       7913     A     
 ARITH              MACRO  IXME,LOADOP,SETOP   IXFN RLIST MACRO EQUIVALENCE                ARITH       7914     A     
 ARITH              LOCAL  X                                                               ARITH       7915     A     
 ARITH     X        SET    SETOP                                                           ARITH       7916     A     
 ARITH              VFD    12/1777B-X,48/LOADOP                                            ARITH       7917     A     
 ARITH              ENDM                                                                   ARITH       7918     A     
 ARITH                                                                                     ARITH       7919     A     
 ARITH     IXFN.TAB BSS    0                                                               ARITH       7920     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2287    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     SLMACO   IXME   SXTAMC                                                          ARITH       7921     A     
 ARITH     DLMACO   IXME   SXTAMC                                                          ARITH       7922     A     
 ARITH     STLMAC   IXME   SSSXA             STD SUBS                                      ARITH       7923     A     
 ARITH              BSSZ   1                 TABLE TERMINATOR                              ARITH       7924     A     
 ARITH              TITLE              ACALL - CALL PROCESSOR                              ARITH       7925     A     
 ARITH    ***                                                                              ARITH       7926     A     
 ARITH    *         ACALL - PROCESS SUBROUTINE NAME AND ARGUMENT LIST                      ARITH       7927     A     
 ARITH    *                                                                                ARITH       7928     A     
 ARITH    *         ON ENTRY:                                                              ARITH       7929     A     
 ARITH    *                NARGSF " 0 IF NO ARGS, ELSE = 0                                 ARITH       7930     A     
 ARITH    *                SELIST POINTS PAST NAME                                         ARITH       7931     A     
 ARITH    *                SUBNAME = NAME IN ELIST FORMAT                                  ARITH       7932     A     
 ARITH                                                                                     ARITH       7933     A     
 ARITH    *         FORM MASK OF ATTRIBUTES THAT CONFLICT WITH SUBROUTINE REF.             FCC0407        5     A     
 ARITH                                                                                     FCC0407        6     A     
 ARITH     P.ASF    DECMIC P.ASF                                                           FCC0407        7     A     
 ARITH     P.BEF    DECMIC P.BEF                                                           FCC0407        8     A     
 ARITH     P.INF    DECMIC P.INF                                                           FCC0407        9     A     
 ARITH     P.VAR    DECMIC P.VAR                                                           FCC0407       10     A     
 ARITH     CMASK    CON    1S"P.ASF"+1S"P.BEF"+1S"P.INF"+1S"P.VAR"                         FCC0407       11     A     
 ARITH     ACALLD   CFO    EXT               CHECK SETTING OF DEBUG BITS                   ARITH       7934     A     
 ARITH              IX2    X6+X2             SET TYPE                                      ARITH       7935     A     
 ARITH              EQ     ACALL2                                                          ARITH       7936     A     
 ARITH                                                                                     ARITH       7937     A     
 ARITH     ACALL    ENTRY. **                ** ENTRY/EXIT **                              ARITH       7938     A     
 ARITH              SA2    =XRSELECT         REFERENCE COLLECTION FLAG                     ARITH       7939     A     
 ARITH              MX7    0                                                               ARITH       7940     A     
 ARITH              BX6    X2                                                              ARITH       7941     A     
 ARITH              SA7    EQCOUNT           INITIALIZE                                    ARITH       7942     A     
 ARITH              SA6    REFSELCT          SAVE IN LOCAL COPY                            ARITH       7943     A     
 ARITH              SA5    NARGSF                                                          ARITH       7944     A     
 ARITH              NZ     X5,ACALL1         IF NO ARGS                                    ARITH       7945     A     
 ARITH              SA2    SELIST                                                          ARITH       7946     A     
 ARITH              SA1    X2                FIRST AFTER NAME                              ARITH       7947     A     
 ARITH              UX0    B4,X1                                                           ARITH       7948     A     
 ARITH              RJ     SSERR3            CHECK ( SYNTAX                                ARITH       7949     A     
 ARITH     ACALL1   MX7    0                                                               ARITH       7950     A     
 ARITH              SA7    ACNT                                                            ARITH       7951     A     
 ARITH              SYMBOL SUBNAME           GET SYMTAB ORDINAL                            ARITH       7952     A     
 ARITH              NZ     X7,ACALLD         IF PREVIOUS IN DEBUG STMTS                    ARITH       7953     A     
 ARITH              IX2    X6+X2             SET TYPE                                      ARITH       7954     A     
 ARITH                                                                                     ARITH       7955     A     
 ARITH    +         BX3    X2                                                              ARITH       7956          I
          -FCC0407
 ARITH              LX3    59-P.VAR                                                        ARITH       7957          I
          -FCC0407
 ARITH              NG     X3,ACALL4         IF PREVIOUS USE AS A VARIABLE                 ARITH       7958          I
          -FCC0407
 ARITH              SA3    CMASK                                                           FCC0407       12     A     
 ARITH              BX0    X3*X2                                                           FCC0407       13     A     
 ARITH              NZ     X0,ACALL4   IF CONFLICTING PREVIOUS USE                         FCC0407       14     A     
 ARITH              MX0    L.TYP                                                           ARITH       7959     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2288    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              BX3    X0*X2                                                           ARITH       7960     A     
 ARITH              LX3    L.TYP                                                           ARITH       7961     A     
 ARITH              SX4    X3-T.ILL                                                        ARITH       7962     A     
 ARITH              MI     X4,ACALL2         IF LEGAL TYPE                                 ARITH       7963     A     
 ARITH              SX4    X3-T.ENT                                                        ARITH       7964     A     
 ARITH              ZR     X4,ACALL6         IF THIS IS AN ENTRY POINT                     ARITH       7965     A     
 ARITH              EQ     ACALL4            NAME USED OTHER THAN AS SUBR NAME             ARITH       7966     A     
 ARITH                                                                                     ARITH       7967     A     
 ARITH     ACALL2   SX0    B5                                                              ARITH       7968     A     
 ARITH              LX0    P.EXT             SET EXT BIT                                   ARITH       7969     A     
 ARITH              BX7    X0+X2                                                           ARITH       7970     A     
 ARITH              SA7    A2                                                              ARITH       7971     A     
 ARITH              SX6    B1                                                              ARITH       7972     A     
 ARITH              SX7    A1                                                              ARITH       7973     A     
 ARITH              SA6       SUBH                                                         ARITH       7974     A     
 ARITH              SA7       SUBFWA                                                       ARITH       7975     A     
 ARITH              SA7       FNAD                                                         ARITH       7976     A     
 ARITH              MX6       0                                                            ARITH       7977     A     
 ARITH              SA6       SSFRSTB                                                      ARITH       7978     A     
 ARITH              SA1       NARGSF                                                       ARITH       7979     A     
 ARITH              SA6    STAPLC                                                          ARITH       7980     A     
 ARITH              NZ     X1,ACAL7     IF NO ARG LIST                                     ARITH       7981     A     
 ARITH              SA1       SUBRLP                                                       ARITH       7982     A     
 ARITH              SX7       2         SET EMODE TO ARG                                   ARITH       7983     A     
 ARITH              SA2       ARGCMA                                                       ARITH       7984     A     
 ARITH              BX6    X1                                                              ARITH       7985     A     
 ARITH              SA7       EMODE                                                        ARITH       7986     A     
 ARITH              SA6       OPSTAK+1  STORE (SUBR                                        ARITH       7987     A     
 ARITH              BX7    X2                                                              ARITH       7988     A     
 ARITH              SA7       OPSTAK+2  ,A                                                 ARITH       7989     A     
 ARITH              SX6       2         SET OSPTR UP                                       ARITH       7990     A     
 ARITH              SA6       OSPTR                                                        ARITH       7991     A     
 ARITH              EQ     NEXTE                                                           ARITH       7992     A     
 ARITH                                                                                     ARITH       7993     A     
 ARITH     ACALL4   SB6    ERMSG35                                                         ARITH       7994     A     
 ARITH     ACALL5   SA2    NARGSF                                                          ARITH       7995     A     
 ARITH              SA1    EPOINT                                                          ARITH       7996     A     
 ARITH              NZ     X2,ACALL5A        IF NO ARGUMENTS                               ARITH       7997     A     
 ARITH              SX6    X1+B5                                                           ARITH       7998     A     
 ARITH              SA6    A1           RESET *EPOINT* TO ADDR OF SUBROUTINE NAME          ARITH       7999     A     
 ARITH     ACALL5A  EQ     ERROUT                                                          ARITH       8000     A     
 ARITH                                                                                     ARITH       8001     A     
 ARITH     ACALL6   SB6    ERMSG57                                                         ARITH       8002     A     
 ARITH              EQ     ACALL5                                                          ARITH       8003     A     
 ARITH                                                                                     ARITH       8004     A     
 ARITH    *     ACAL7 ALSO ENTERED DIRECTLY FROM OPSWTB WHEN (C POPPED.                    ARITH       8005     A     
 ARITH     ACAL7    RJ        ARGP8CR   SEE IF ANY SAVED FUNCS IN ARG LIST.                ARITH       8006          I
          -FCC1590X 
 ARITH              MX7    0                                                               ARITH       8007          I
          -FCC1590X 
 ARITH              SA1       ACNT      MOVE ACNT TO ARGCNT                                ARITH       8008          I
          -FCC1590X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2289    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              BX6    X1                                                              ARITH       8009          I
          -FCC1590X 
 ARITH              SA6       ARGCNT                                                       ARITH       8010          I
          -FCC1590X 
 ARITH              SA1       SUBFWA    IS ARG CNT IN SYMTAB=0 -                           ARITH       8011          I
          -FCC1590X 
 ARITH              SA2    X1-1          (GET 2ND WD OF ENTRY)                             ARITH       8012          I
          -FCC1590X 
 ARITH              MX0    60-L.FARG                                                       ARITH       8013          I
          -FCC1590X 
 ARITH              LX2    60-P.FARG                                                       ARITH       8014          I
          -FCC1590X 
 ARITH              SA7    FNAD              RESET                                         ARITH       8015          I
          -FCC1590X 
 ARITH              BX2   -X0*X2                                                           ARITH       8016          I
          -FCC1590X 
 ARITH              ZR     X2,ACAL8     IF YES.  GO WITH A2,X6 SET                         ARITH       8017          I
          -FCC1590X 
 ARITH              SA1       ACNT      IS ARG CNT THE SAME-                               ARITH       8018          I
          -FCC1590X 
 ARITH              BX1    X1-X2                                                           ARITH       8019          I
          -FCC1590X 
 ARITH              ZR     X1,ACAL9     IF YES                                             ARITH       8020          I
          -FCC1590X 
 ARITH              IDM       ERMSG36   INF DIAG:SUBR REF DOESNT USE SAME NO.ARGS          ARITH       8021          I
          -FCC1590X 
 ARITH     ACAL9    SA1       ACALL                                                        ARITH       8022          I
          -FCC1590X 
 ARITH              BX6    X1                                                              ARITH       8023          I
          -FCC1590X 
 ARITH              SA6       ARITH                                                        ARITH       8024          I
          -FCC1590X 
 ARITH              ZR        OUT                                                          ARITH       8025          I
          -FCC1590X 
 ARITH    *     ACALL,S NORMAL EXIT IF ARGS                                                ARITH       8026          I
          -FCC1590X 
 ARITH    *                                                                                ARITH       8027          I
          -FCC1590X 
 ARITH    *     ACAL8 IF FIRST REF TO SUBR WITH ARGS.  ENTER ARG CNT IN SYMTAB.            ARITH       8028          I
          -FCC1590X 
 ARITH    *    ENTER WITH A2=ADR OF 2ND WD OF ENTRY, X6=ARG CNT.                           ARITH       8029          I
          -FCC1590X 
 ARITH     ACAL8    SA2    A2           GET 2ND WD OF ENTRY                                ARITH       8030          I
          -FCC1590X 
 ARITH              LX6    P.FARG                                                          ARITH       8031          I
          -FCC1590X 
 ARITH              BX7    X2+X6                                                           ARITH       8032          I
          -FCC1590X 
 ARITH              SA7    A2                                                              ARITH       8033          I
          -FCC1590X 
 ARITH              NZ     X6,ACAL9     IF ARGS                                            ARITH       8034          I
          -FCC1590X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2290    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA1       NARGSF    SHOULD THERE HAVE BEEN SOME ARGS -                 ARITH       8035          I
          -FCC1590X 
 ARITH              NZ     X1,ACAL9          IF NOT - NORMAL EXIT                          ARITH       8036          I
          -FCC1590X 
 ARITH              EERR      ERMSG17   ILLEGAL CALL FORMAT                                ARITH       8037          I
          -FCC1590X 
 ARITH                                                                                     FCC1590X      17     A     
 ARITH     ACAL7    RJ     ACALA       CHECK DEBUG STATUS                                  FCC1590X      18     A     
 ARITH              ZR     X6,ACAL8    IF CALL TO BE TRACED                                FCC1590X      19     A     
 ARITH              RJ     ARGP8CR                                                         FCC1590X      20     A     
 ARITH     ACAL8    SA5    ACNT                                                            FCC1590X      21          I
          -FCC2307
 ARITH     ACAL8    SA1    SUBFWA                                                          FCC2307       22     A     
 ARITH              SA3    X1                                                              FCC2307       23     A     
 ARITH              LX3    59-P.FUN                                                        FCC2307       24     A     
 ARITH              PL     X3,ACAL8A   IF NOT ALSO USED AS A FUNCTION                      FCC2307       25     A     
 ARITH              USASDM  E328       SAME NAME USED AS A FUNCTION AND AS A SUB           FCC2307       26     A     
 ARITH     ACAL8A   SA5    ACNT                                                            FCC2307       27     A     
 ARITH              MX6    0                                                               FCC1590X      22     A     
 ARITH              BX7    X5                                                              FCC1590X      23     A     
 ARITH              SA6    FNAD                                                            FCC1590X      24     A     
 ARITH              SA7    ARGCNT                                                          FCC1590X      25     A     
 ARITH              SA1    SUBFWA                                                          FCC1590X      26     A     
 ARITH              SA2    X1-1                                                            FCC1590X      27     A     
 ARITH              MX0    -L.FARG                                                         FCC1590X      28     A     
 ARITH              BX3    X2                                                              FCC1590X      29     A     
 ARITH              LX3    -P.FARG                                                         FCC1590X      30     A     
 ARITH              BX6    -X0*X3                                                          FCC1590X      31     A     
 ARITH              NZ     X6,ACAL9    IF ARG COUNT KNOWN (NOT 1ST REF)                    FCC1590X      32          I
          -FCC2305
 ARITH              BX4    X2                                                              FCC2305       14     A     
 ARITH              LX4    59-P.FCALL                                                      FCC2305       15     A     
 ARITH              NG     X4,ACAL9    IF NOT THE FIRST CALL                               FCC2305       16     A     
 ARITH              SX4    1                                                               FCC2305       17     A     
 ARITH              LX4    P.FCALL     MARK FIRST CALL IN WORD B                           FCC2305       18     A     
 ARITH              BX2    X2+X4                                                           FCC2305       19     A     
 ARITH              LX5    P.FARG                                                          FCC1590X      33     A     
 ARITH              BX6    X2+X5                                                           FCC1590X      34     A     
 ARITH              SA6    A2          ARG COUNT TO SYMTAB WORD B                          FCC1590X      35     A     
 ARITH              NZ     X5,ACAL10   IF ARG COUNT .NZ.                                   FCC1590X      36     A     
 ARITH              SA1    NARGSF                                                          FCC1590X      37     A     
 ARITH              NZ     X1,ACAL10   IF NO ARGS EXPECTED                                 FCC1590X      38     A     
 ARITH              EERR   ERMSG17     *ILLEGAL CALL FORMAT*                               FCC1590X      39     A     
 ARITH                                                                                     FCC1590X      40     A     
 ARITH     ACAL9    BX6    X6-X5                                                           FCC1590X      41     A     
 ARITH              ZR     X6,ACAL10   IF CURRENT AND PREVIOUS ARG COUNTS MATCH            FCC1590X      42     A     
 ARITH              IDM    ERMSG36     *SUBR REF DOESN-T USE SAME NR ARGS*                 FCC1590X      43     A     
 ARITH                                                                                     FCC1590X      44     A     
 ARITH     ACAL10   RJ     ACALA       CHECK DEBUG STATUS                                  FCC1590X      45     A     
 ARITH              SA6    TRCFLG                                                          FCC1590X      46     A     
 ARITH              NZ     X6,ACALL    IF CALL TRACE NOT REQUIRED, EXIT ...                FCC1590X      47     A     
 ARITH              SA1    ARLPT                                                           FCC1590X      48     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2291    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              MX6    0                                                               FCC1590X      49     A     
 ARITH              BX7    X1                                                              FCC1590X      50     A     
 ARITH              SA6    =XTYPECLL                                                       FCC1590X      51     A     
 ARITH              SA7    TS1         TEMP SAVE SUBR APLIST POINTER                       FCC1590X      52     A     
 ARITH              RJ     FUNC8       ISSUE ANY SAVED FUNCTION RESULTS                    FCC1590X      53     A     
 ARITH              RJ     =XFARGLST   CREATE *BUGCLL* APL AND RJ R-MACROS                 FCC1590X      54     A     
 ARITH              SA4    TS1         (X4) = FWA SUBR APL                                 FCC1590X      55     A     
 ARITH              SA5    ARLPT       (X5) = LWA+1                                        FCC1590X      56     A     
 ARITH              BX6    X4                                                              FCC1590X      57     A     
 ARITH              SA6    A5                                                              FCC1590X      58     A     
 ARITH              RJ     DARLIST     APL AND RJ TO *RLIST* FILE                          FCC1590X      59     A     
 ARITH              RJ     ARGP8CR                                                         FCC1590X      60     A     
 ARITH              SA1    TRCFLG                                                          FCC1590X      61     A     
 ARITH              BX6    X1          (X6) = EXIT WITH SAVED TRACE FLAG                   FCC1590X      62     A     
 ARITH              EQ     ACALL       EXIT ...                                            FCC1590X      63     A     
 ARITH     ACALA    SPACE  4,8                                                             FCC1590X      64     A     
 ARITH    **        ACALA - OBTAIN *CALL* DEBUG STATUS.                                    FCC1590X      65     A     
 ARITH    *                                                                                FCC1590X      66     A     
 ARITH    *         EXIT   (X6) = .ZR. IF DEBUG SELECTED FOR CURRENT *CALL*.               FCC1590X      67     A     
 ARITH    *                     = .NZ. IF NOT SELECTED.                                    FCC1590X      68     A     
 ARITH    *                                                                                FCC1590X      69     A     
 ARITH    *         USES   X - 0,1,2,6.   A - 1,2.   B - NONE.                             FCC1590X      70     A     
 ARITH                                                                                     FCC1590X      71     A     
 ARITH                                                                                     FCC1590X      72     A     
 ARITH     ACALA    JP     *+4S15      ** ENTRY/EXIT **                                    FCC1590X      73     A     
 ARITH              SA1    =XDFLAG                                                         FCC1590X      74     A     
 ARITH              SX6    *           PRESET *NOT SELECTED* STATUS RETURN                 FCC1590X      75     A     
 ARITH              ZR     X1,ACALA    IF NOT DEBUG MODE                                   FCC1590X      76     A     
 ARITH              SA1    =XALLCALL                                                       FCC1590X      77     A     
 ARITH              BX6    X6-X6       PRESET *DEBUG SELECTED* STATUS RETURN               FCC1590X      78     A     
 ARITH              MX0    -L.DIF                                                          FCC1590X      79     A     
 ARITH              NZ     X1,ACALA    IF ALL CALLS TO BE TRACED                           FCC1590X      80     A     
 ARITH              SA1    SUBFWA                                                          FCC1590X      81     A     
 ARITH              SA2    X1-1                                                            FCC1590X      82     A     
 ARITH              LX2    -P.DIF                                                          FCC1590X      83     A     
 ARITH              BX1    -X0*X2                                                          FCC1590X      84     A     
 ARITH              SX6    X1-DV.CLL   SET STATUS RETURN                                   FCC1590X      85     A     
 ARITH              EQ     ACALA       EXIT ...                                            FCC1590X      86     A     
 ARITH              EJECT                                                                  ARITH       8038     A     
 ARITH    ***                                                                              ARITH       8039     A     
 ARITH    *         ARITH - ARITHMETIC EXPRESSION TRANSLATOR                               ARITH       8040     A     
 ARITH    *                                                                                ARITH       8041     A     
 ARITH                                                                                     ARITH       8042     A     
 ARITH     ARITH    ENTRY. **                ** ENTRY/EXIT **                              ARITH       8043     A     
 ARITH              SA5    TYPE                                                            ARITH       8044     A     
 ARITH              SX4    X5-RPLST                                                        ARITH       8045     A     
 ARITH              SA3    =XRSELECT        COPY THE EXTERNAL REFMAP FLAG TO THE           ARITH       8046     A     
 ARITH              BX7    X3                LOCAL CELL.                                   ARITH       8047     A     
 ARITH              SA7    =SREFSELCT                                                      ARITH       8048     A     
 ARITH              BX6    X6-X6           ZERO THE COUNT OF EQUAL SIGNS WHICH             ARITH       8049     A     
 ARITH              SA6    EQCOUNT           OCCUR IN THIS STATEMENT.                      ARITH       8050     A     
 ARITH              NZ     X4,ARITH9         IF NOT A REPLCAEMENT STMT                     ARITH       8051     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2292    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA1    =XN.EQUAL       PLACE THE NUMBER OF EQUAL SIGNS WHICH           ARITH       8052     A     
 ARITH              BX6    X1                OCCUR IN THIS STATEMENT INTO A LOCAL          ARITH       8053     A     
 ARITH              SA6    =SEQCOUNT         CELL.                                         ARITH       8054     A     
 ARITH              SA2    EPOINT                                                          ARITH       8055     A     
 ARITH              SA1    X2                                                              ARITH       8056     A     
 ARITH              SYMBOL                   GET SYMTAB ORDINAL OF FIRST ENTRY             ARITH       8057     A     
 ARITH              EQ     ARITH.N           IF FIRST OCCURANCE                            ARITH       8058     A     
 ARITH                                                                                     ARITH       8059     A     
 ARITH              NE     B1,B5,ARITH2      IF NOT ORDINAL 1                              ARITH       8060     A     
 ARITH              SA3    VALUE.                                                          ARITH       8061     A     
 ARITH              ZR     X3,ARITH3         IF NOT A FUNCTION SUBPROGRAM                  ARITH       8062     A     
 ARITH              SB1    X3                                                              ARITH       8063     A     
 ARITH              SB2    B1+B1             2*ORD                                         ARITH       8064     A     
 ARITH              SA1    A0-B2             WORD A OF VALUE.                              ARITH       8065     A     
 ARITH              SA2    A1-B5                                                           ARITH       8066     A     
 ARITH                                                                                     ARITH       8067     A     
 ARITH     ARITH2   BX3    X1                                                              ARITH       8068     A     
 ARITH              LX3    59-P.DIM                                                        ARITH       8069     A     
 ARITH              NG     X3,ARITH4         IF AN ARRAY                                   ARITH       8070     A     
 ARITH              SA5    EPOINT                                                          ARITH       8071     A     
 ARITH              SA4    X5-1                                                            ARITH       8072     A     
 ARITH              UX3    B3,X4                                                           ARITH       8073     A     
 ARITH              SB4    EL.(                                                            ARITH       8074     A     
 ARITH              NE     B3,B4,ARITH4      IF NEXT IS NOT A (                            ARITH       8075     A     
 ARITH                                                                                     ARITH       8076     A     
 ARITH              SA3    FSTEX                                                           ARITH       8077     A     
 ARITH              NZ     X3,ARITH3         IF IT CANT BE AN ASF                          ARITH       8078     A     
 ARITH                                                                                     ARITH       8079     A     
 ARITH    *         CHECK FOR ASF DEFINITION                                               ARITH       8080     A     
 ARITH                                                                                     ARITH       8081     A     
 ARITH              BX4    X2                                                              ARITH       8082     A     
 ARITH              MX0    60-L.TYP                                                        ARITH       8083     A     
 ARITH              LX4    L.TYP                                                           ARITH       8084     A     
 ARITH              BX6    -X0*X4            EXTRACT TYPE                                  ARITH       8085     A     
 ARITH              PL     X4,ARITH2A        IF NO ASF REDEFINITION                        ARITH       8086     A     
 ARITH              SA4    X5                X5 = ADDR OF ASF NAME (ELIST)                 ARITH       8087     A     
 ARITH              POSTERR NR=ERMSG58,SEV=FE,FMT=ELIST,TXT=X4,RETURN=PH2RETN              ARITH       8088     A     
 ARITH     ARITH2A  BX3    X1                                                              ARITH       8089     A     
 ARITH              LX4    59-P.EXT-L.TYP                                                  ARITH       8090     A     
 ARITH              LX3    59-P.FP                                                         ARITH       8091     A     
 ARITH              BX3    X4+X3                                                           ARITH       8092     A     
 ARITH              LX4    P.EXT-P.VAR                                                     ARITH       8093     A     
 ARITH              BX3    X4+X3                                                           ARITH       8094     A     
 ARITH              NG     X3,ARITH3         IF FP , EXT OR VAR                            ARITH       8095     A     
 ARITH              SX7    X6-T.ILL                                                        ARITH       8096     A     
 ARITH              PL     X7,ARITH3         IF AN ILLEGAL TYPE                            ARITH       8097     A     
 ARITH                                                                                     ARITH       8098     A     
 ARITH              SX0    V.FUN                                                           ARITH       8099     A     
 ARITH              BX6    X0+X1             SET FUNCTION BIT                              ARITH       8100     A     
 ARITH              SA6    A1                                                              ARITH       8101     A     
 ARITH              MX5    L.DBGI                                                          ARITH       8102     A     
 ARITH              LX5    L.DBGI+P.DBGI                                                   ARITH       8103     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2293    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              BX2    -X5*X2            CLEAR DEBUG FIELD                             ARITH       8104     A     
 ARITH              LX0    P.ASF-P.FUN                                                     ARITH       8105     A     
 ARITH              BX7    X0+X2             SET FUNCTION TYPE                             ARITH       8106     A     
 ARITH              SA7    A2                                                              ARITH       8107     A     
 ARITH              EQ     ASFDEF            GO PROCESS THE DEFINITION                     ARITH       8108     A     
 ARITH                                                                                     ARITH       8109     A     
 ARITH     ARITH3   SA1    EPOINT                                                          ARITH       8110     A     
 ARITH              SX6    X1-1                                                            ARITH       8111     A     
 ARITH              SA6    A1                MOVE EPOINT BACK FOR ERROUT                   ARITH       8112     A     
 ARITH              SX7    B1                                                              ARITH       8113     A     
 ARITH              SA7    SAVELEFT                                                        ARITH       8114     A     
 ARITH              EERR   ERMSG37           LEFT SIDE OF REPL STMT IS ILLEGAL             ARITH       8115     A     
 ARITH                                                                                     ARITH       8116     A     
 ARITH    *         FIRST OCCURANCE - SET TYPE                                             ARITH       8117     A     
 ARITH                                                                                     ARITH       8118     A     
 ARITH     ARITH.N  ZR     X7,ARITH.N1       IF NO PREVIOUS USE IN DEBUG STMTS             ARITH       8119     A     
 ARITH              CFO    VAR               CHECK SETTING OF DEBUG BITS                   ARITH       8120     A     
 ARITH     ARITH.N1 IX5    X7+X2                                                           ARITH       8121     A     
 ARITH              BX6    X6+X5             ADD TYPE                                      ARITH       8122     A     
 ARITH              SA6    A2                                                              ARITH       8123     A     
 ARITH              LX2    X6                                                              ARITH       8124     A     
 ARITH              EQ     ARITH2                                                          ARITH       8125     A     
 ARITH                                                                                     ARITH       8126     A     
 ARITH    *         INITIALIZE FOR ASSIGNMENT STMT PROCESSING                              ARITH       8127     A     
 ARITH                                                                                     ARITH       8128     A     
 ARITH     ARITH4   SX0    V.DEF                                                           ARITH       8129     A     
 ARITH              BX6    X0+X1                                                           ARITH       8130     A     
 ARITH              SA6    A1                SET DEFINED BIT                               ARITH       8131     A     
 ARITH              SX7    B1                                                              ARITH       8132     A     
 ARITH              SA7    SAVELEFT                                                        ARITH       8133     A     
 ARITH                                                                                     ARITH       8134     A     
 ARITH     ARITH9   SA2    FSTEX                                                           ARITH       8135     A     
 ARITH              NZ     X2,ARITH10        IF NOT THE FIRST EXECUTABLE STMT              ARITH       8136     A     
 ARITH              CALL   IPH2              INITIALIZE FOR PHASE 2                        ARITH       8137     A     
 ARITH                                                                                     ARITH       8138     A     
 ARITH     ARITH10  RJ     INITR                                                           ARITH       8139     A     
 ARITH              EQ     NEXTE                                                           ARITH       8140     A     
 ARITH              SPACE  3                                                               ARITH       8141     A     
 ARITH    ***                                                                              ARITH       8142     A     
 ARITH    *     INITR INITIALIZES ARITH AND LEAVES WITH X6 NOT=0                           ARITH       8143     A     
 ARITH    *         SOME WORDS ARE INITIALIZED BECAUSE IF FATAL DIAG IS GIVEN, THE         ARITH       8144     A     
 ARITH    *        WORD MIGHT NOT HAVE BEEN RESET, AND TROUBLES MIGHT RESULT IN            ARITH       8145     A     
 ARITH    *        NEXT ARITH CALL.                                                        ARITH       8146     A     
 ARITH                                                                                     ARITH       8147     A     
 ARITH     INITR    ENTRY. **                ** ENTRY/EXIT **                              ARITH       8148     A     
 ARITH              MX6       0                                                            ARITH       8149     A     
 ARITH              SA6    WLSTR                                                           ARITH       8150     A     
 ARITH              IX7    X0-X0                                                           ARITH       8151     A     
 ARITH              SA7    ARLST                                                           ARITH       8152     A     
 ARITH              SA6    NCA                                                             ARITH       8153     A     
 ARITH              SA7    NCAD                                                            ARITH       8154     A     
 ARITH              SA6    NRFD                                                            ARITH       8155     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2294    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA7    ACALL       FOR TEST IN *OUT*                                   FCC0611        8     A     
 ARITH              SA7       FTRFLG                                                       ARITH       8156     A     
 ARITH              SA6       EQFLG                                                        ARITH       8157     A     
 ARITH              SA7       OSPTR                                                        ARITH       8158     A     
 ARITH              SA6       ARLPT                                                        ARITH       8159     A     
 ARITH              SA7       SFRSTB                                                       ARITH       8160     A     
 ARITH              SA6       RNTBC                                                        ARITH       8161     A     
 ARITH              SA7       IXFNFG    CLEARED HERE BECAUSE WOULD NOT RETURN TO           ARITH       8162     A     
 ARITH    *                              IXFN IF FATAL DIAGNOSIC GIVEN.                    ARITH       8163     A     
 ARITH              SA6       ARLIST                                                       ARITH       8164     A     
 ARITH              SUB                                                                    ARITH       8165     A     
 ARITH              SA7       LEFRN                                                        ARITH       8166     A     
 ARITH              SA6    STAPLC                                                          FCC0435        5     A     
 ARITH              SA7       CC                                                           ARITH       8167     A     
 ARITH              SA7       ITFFG                                                        ARITH       8168     A     
 ARITH              SA6       EQPO5F                                                       ARITH       8169     A     
 ARITH              SA7       EXRL1     USED AS FLAG BY FUNC5RT                            ARITH       8170     A     
 ARITH              SA7    =SPARLEVEL      ZERO THE PARENTHESIS LEVEL                      ARITH       8171     A     
 ARITH              SA7    SPARLEV                                                         FCC0394       13     A     
 ARITH              SA6       ROFG                                                         ARITH       8172     A     
 ARITH              SA7    ARORD                                                           ARITH       8173     A     
 ARITH              SA6    FNAD                                                            ARITH       8174     A     
 ARITH              SA7    ABIO                                                            ARITH       8175     A     
 ARITH              MX6       59        SET X6=-1                                          ARITH       8176     A     
 ARITH              SX7       ARLIST                                                       ARITH       8177     A     
 ARITH              SUB                                                                    ARITH       8178     A     
 ARITH              SA6       FF                                                           ARITH       8179     A     
 ARITH              SA6       STBASE                                                       ARITH       8180     A     
 ARITH              SA6       NSFR                                                         ARITH       8181     A     
 ARITH              SA7       LASTR                                                        ARITH       8182     A     
 ARITH              BX6   -X6           SET X6=1                                           ARITH       8183     A     
 ARITH              SA7       RL2                                                          ARITH       8184     A     
 ARITH              SA6       EMODE                                                        ARITH       8185     A     
 ARITH    *     IXFN COUNTS ON X6 BEING NON-ZERO AT THIS POINT.                            ARITH       8186     A     
 ARITH              ZR        INITR                                                        ARITH       8187     A     
 ARITH              ZR        NEXTE                                                        ARITH       8188     A     
 ARITH              TITLE  *IF* STATEMENT PROCESSING                                       ARITH       8189     A     
 ARITH    *     THREE AND TWO BRANCH IF                                                    ARITH       8190     A     
 ARITH    *                                                                                ARITH       8191     A     
 ARITH     LTYPE    EQU       RA+21B    TYPE OF S IN LOG IF                                ARITH       8192     A     
 ARITH     CLABEL   EQU       RA+23B    CURRENT STATE.LABEL                                ARITH       8193     A     
 ARITH     LELIST   EQU       RA+34B    START OF S IN LOG IF                               ARITH       8194     A     
 ARITH     NLABEL   EQU       RA+60B    NEXT STATE.LABEL                                   ARITH       8195     A     
 ARITH                                                                                     ARITH       8196     A     
 ARITH    *         ERROR NUMBERS.                                                         ARITH       8197     A     
 ARITH                                                                                     ARITH       8198     A     
 ARITH     E173     =      173         ILLEGAL LABELS IN IF STATEMENT                      ARITH       8199     A     
 ARITH     E174     =      174         LOGICAL EXPRESSION IN 3 BRANCH IF                   ARITH       8200     A     
 ARITH     E193     =      193         THIS STATEMENT BRANCHES TO ITSELF                   ARITH       8201     A     
 ARITH     E194     =      194         THIS IF DEGENERATES INTO A SIMPLE TRANSFER          ARITH       8202     A     
 ARITH     E316     =      316         ILLEGAL SYNTAX IN IF STATEMENT                      ARITH       8203     A     
 ARITH                                                                                     ARITH       8204     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2295    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH     IFTS1    BSS    6                 TEMPORARY STORAGE                             ARITH       8205     A     
 ARITH     IFTS2    BSS    2                                                               ARITH       8206     A     
 ARITH     IFRPF    BSSZ   1           IF -)CONST- FLAG .NZ. FOR CONSTANT FOUND            ARITH       8207     A     
 ARITH     IFRELOP  BSSZ   1                 SET TO RELOP CODE IF A SIMPLE IF STMT         ARITH       8208     A     
 ARITH     IFETYPE  BSS    1                 MODE OF EXPRESSION IN IF STMT                 ARITH       8209     A     
 ARITH     IFRETURN BSS    1                 RETURN ADDR ( AFTER OUTPUTTING JUMPS          ARITH       8210     A     
 ARITH     LIFTS1   BSS    1                 ORDINAL OF FALSE BRANCH LABEL                 ARITH       8211     A     
 ARITH     BRANCHNO BSS    1                 BRANCH NUMBER                                 ARITH       8212     A     
 ARITH     K1       BSS    1                 BRANCH ORDINALS AS SET BY 'IFBRT'             ARITH       8213     A     
 ARITH     K2       BSS    1                                                               ARITH       8214     A     
 ARITH     K3       BSS    1                                                               ARITH       8215     A     
 ARITH     DOT      BSS    1           CURRENT STATEMENT DO TERMINATOR FLAG                FCC0960        5     A     
 ARITH                                                                                     ARITH       8216     A     
 ARITH     M.UJP    RMEQU   105B                                                           ARITH       8217     A     
 ARITH              SPACE  1                                                               ARITH       8218     A     
 ARITH              ENTRY  APLST                                                           ARITH       8219     A     
 ARITH     APLST    RMHDR  APLMC,1     APLIST MACRO FOR DEBUG                              ARITH       8220     A     
 ARITH              BSS    1                                                               ARITH       8221     A     
 ARITH     GEFM     RMHDR  GEFMC,2                                                         ARITH       8222     A     
 ARITH     UJPM     RMHDR   M.UJP,1                                                        ARITH       8223     A     
 ARITH              BSS     1                                                              ARITH       8224     A     
 ARITH     IFMC     ARMAC  0,0,2,3           IF MACRO TEMPLATE                             ARITH       8225     A     
 ARITH                                                                                     ARITH       8226     A     
 ARITH              MACRO  RMACRO,NAME,BASE                                                ARITH       8227     A     
 ARITH              NOREF  NAME                                                            ARITH       8228     A     
 ARITH     NAME     =      BASE  MACNUM                                                    ARITH       8229     A     
 ARITH     MACNUM   SET    NAME+1                                                          ARITH       8230     A     
 ARITH    RMACRO    ENDM                                                                   ARITH       8231     A     
 ARITH                                                                                     ARITH       8232     A     
 ARITH     IFTABLE  MACRO  T1,A,B,C                                                        ARITH       8233     A     
 ARITH              IRP    T1                                                              ARITH       8234     A     
 ARITH    CHAR      MICRO  1,1, T1                                                         ARITH       8235     A     
 ARITH              IFGE   IF("CHAR")A_B_C,0,2                                             ARITH       8236     A     
 ARITH              VFD    12/2000B+IF("CHAR")A_B_C,12/T1,2/A,2/B,2/C                      ARITH       8237     A     
 ARITH              SKIP   1                                                               ARITH       8238     A     
 ARITH              VFD    12/1777B+IF("CHAR")A_B_C,12/T1,2/A,2/B,2/C                      ARITH       8239     A     
 ARITH              IRP                                                                    ARITH       8240     A     
 ARITH     IFTABLE  ENDM                                                                   ARITH       8241     A     
 ARITH     N        EQU    0                 CODE FOR NEXT LABEL IN IFTAB MACROS           ARITH       8242     A     
 ARITH     SPECIAL  EQU    6                 CODE FOR SPECIAL PROCESSING                   ARITH       8243          I
          -FCC0514
 ARITH                                                                                     ARITH       8244     A     
 ARITH    *         RLIST MACRO NUMBERS OF THE IF MACROS                                   ARITH       8245     A     
 ARITH                                                                                     ARITH       8246     A     
 ARITH     IF(R)123 RMACRO 362B        BASE RMACRO NUMBER FOR IF MACROS                    ARITH       8247     A     
 ARITH    IF(I)123  RMACRO IF(R)123                                                        ARITH       8248     A     
 ARITH     IF(D)123 RMACRO IF(R)123                                                        ARITH       8249     A     
 ARITH    IF(R)122  RMACRO                                                                 ARITH       8250     A     
 ARITH     IF(D)122 RMACRO IF(R)122                                                        ARITH       8251     A     
 ARITH    IF(I)122  RMACRO                                                                 ARITH       8252     A     
 ARITH    IF(R)113  RMACRO                                                                 ARITH       8253     A     
 ARITH     IF(D)113 RMACRO IF(R)113                                                        ARITH       8254     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2296    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    IF(I)113  RMACRO                                                                 ARITH       8255     A     
 ARITH     IF(S)113 RMACRO IF(I)113                                                        ARITH       8256          I
          -FCC0514
 ARITH    IF(R)121  RMACRO                                                                 ARITH       8257     A     
 ARITH     IF(D)121 RMACRO IF(R)121                                                        ARITH       8258     A     
 ARITH    IF(I)121  RMACRO IF(R)121                                                        ARITH       8259     A     
 ARITH    IF(R)N23  RMACRO                                                                 ARITH       8260     A     
 ARITH     IF(D)N23 RMACRO IF(R)N23                                                        ARITH       8261     A     
 ARITH    IF(I)N23  RMACRO IF(R)N23                                                        ARITH       8262     A     
 ARITH    IF(R)1N3  RMACRO                                                                 ARITH       8263     A     
 ARITH     IF(D)1N3 RMACRO IF(R)1N3                                                        ARITH       8264     A     
 ARITH    IF(I)1N3  RMACRO                                                                 ARITH       8265     A     
 ARITH    IF(R)12N  RMACRO                                                                 ARITH       8266     A     
 ARITH     IF(D)12N RMACRO IF(R)12N                                                        ARITH       8267     A     
 ARITH    IF(I)12N  RMACRO IF(R)12N                                                        ARITH       8268     A     
 ARITH    IF(R)N22  RMACRO                                                                 ARITH       8269     A     
 ARITH     IF(D)N22 RMACRO IF(R)N22                                                        ARITH       8270     A     
 ARITH    IF(I)N22  RMACRO                                                                 ARITH       8271     A     
 ARITH    IF(R)1NN  RMACRO                                                                 ARITH       8272     A     
 ARITH     IF(D)1NN RMACRO IF(R)1NN                                                        ARITH       8273     A     
 ARITH    IF(I)1NN  RMACRO                                                                 ARITH       8274     A     
 ARITH    IF(R)NN3  RMACRO                                                                 ARITH       8275     A     
 ARITH     IF(D)NN3 RMACRO IF(R)NN3                                                        ARITH       8276     A     
 ARITH    IF(I)NN3  RMACRO                                                                 ARITH       8277     A     
 ARITH     IF(S)NN3 RMACRO IF(I)NN3                                                        ARITH       8278          I
          -FCC0514
 ARITH    IF(R)11N  RMACRO                                                                 ARITH       8279     A     
 ARITH     IF(D)11N RMACRO IF(R)11N                                                        ARITH       8280     A     
 ARITH    IF(I)11N  RMACRO                                                                 ARITH       8281     A     
 ARITH     IF(S)11N RMACRO IF(I)11N                                                        ARITH       8282          I
          -FCC0514
 ARITH    IF(R)N2N  RMACRO                                                                 ARITH       8283     A     
 ARITH     IF(D)N2N RMACRO IF(R)N2N                                                        ARITH       8284     A     
 ARITH    IF(I)N2N  RMACRO IF(R)N2N                                                        ARITH       8285     A     
 ARITH    IF(R)1N1  RMACRO                                                                 ARITH       8286     A     
 ARITH     IF(D)1N1 RMACRO IF(R)1N1                                                        ARITH       8287     A     
 ARITH    IF(I)1N1  RMACRO IF(R)1N1                                                        ARITH       8288     A     
 ARITH    IF(L)12   RMACRO                                                                 ARITH       8289     A     
 ARITH    IF(L)N2   RMACRO                                                                 ARITH       8290     A     
 ARITH    IF(L)1N   RMACRO                                                                 ARITH       8291     A     
 ARITH    IF(C)121  RMACRO                                                                 ARITH       8292     A     
 ARITH    IF(C)N2N  RMACRO                                                                 ARITH       8293     A     
 ARITH    IF(C)1N1  RMACRO                                                                 ARITH       8294     A     
 ARITH     IFFLAG1  RMACRO                                                                 ARITH       8295     A     
 ARITH    IFFLAGN   RMACRO                                                                 ARITH       8296     A     
 ARITH    IF(R)111  EQU    -IFFLAG1                                                        ARITH       8297     A     
 ARITH    IF(R)NNN  EQU    -IFFLAGN                                                        ARITH       8298     A     
 ARITH    IF(I)111  RMACRO IF(R)111                                                        ARITH       8299     A     
 ARITH    IF(D)111  RMACRO IF(R)111                                                        ARITH       8300     A     
 ARITH    IF(C)111  RMACRO IF(R)111                                                        ARITH       8301     A     
 ARITH    IF(L)11   RMACRO IF(R)111                                                        ARITH       8302     A     
 ARITH    IF(I)NNN  RMACRO IF(R)NNN                                                        ARITH       8303     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2297    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    IF(D)NNN  RMACRO IF(R)NNN                                                        ARITH       8304     A     
 ARITH    IF(C)NNN  RMACRO IF(R)NNN                                                        ARITH       8305     A     
 ARITH    IF(L)NN   RMACRO IF(R)NNN                                                        ARITH       8306     A     
 ARITH     IF(S)121 RMACRO IF(I)121          EQ                                            ARITH       8307          I
          -FCC0514
 ARITH     IF(S)1N1 RMACRO IF(R)1N1          NE                                            ARITH       8308          I
          -FCC0514
 ARITH     IF(S)N2N RMACRO IF(R)N2N          EQ                                            ARITH       8309          I
          -FCC0514
 ARITH     IF(S)122 RMACRO 417B                                                            ARITH       8310          I
          -FCC0514
 ARITH     IF(S)N22 RMACRO                                                                 ARITH       8311          I
          -FCC0514
 ARITH     IF(S)1NN RMACRO                                                                 ARITH       8312          I
          -FCC0514
 ARITH              SPACE  2,10                                                            FCC0514        8     A     
 ARITH    **        IFTABLE - FOR LOOKING UP *IF* R-MACRO NUMBER, GIVEN THE                ARITH       8313     A     
 ARITH    *                   EXPRESSION MODE AND BRANCH PATTERN.                          ARITH       8314     A     
 ARITH                                                                                     ARITH       8315     A     
 ARITH    IFTABLE   BSS    0                                                               ARITH       8316     A     
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE),1,2,3                                   ARITH       8317     A     
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE,SPECIAL),1,2,2                           ARITH       8318          I
          -FCC0514
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE,SPECIAL),1,2,1                           ARITH       8319          I
          -FCC0514
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE,SPECIAL),1,1,3                           ARITH       8320          I
          -FCC0514
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE),1,2,2                                   FCC0514        9     A     
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE),1,2,1                                   FCC0514       10     A     
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE),1,1,3                                   FCC0514       11     A     
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE),1,2,N                                   ARITH       8321     A     
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE),1,N,3                                   ARITH       8322     A     
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE),N,2,3                                   ARITH       8323     A     
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE,SPECIAL),1,N,N                           ARITH       8324          I
          -FCC0514
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE,SPECIAL),N,2,2                           ARITH       8325          I
          -FCC0514
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE,SPECIAL),1,N,1                           ARITH       8326          I
          -FCC0514
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE,SPECIAL),N,2,N                           ARITH       8327          I
          -FCC0514
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE,SPECIAL),1,1,N                           ARITH       8328          I
          -FCC0514
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE,SPECIAL),N,N,3                           ARITH       8329          I
          -FCC0514
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE),1,N,N                                   FCC0514       12     A     
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE),N,2,2                                   FCC0514       13     A     
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE),1,N,1                                   FCC0514       14     A     
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE),N,2,N                                   FCC0514       15     A     
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE),1,1,N                                   FCC0514       16     A     
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE),N,N,3                                   FCC0514       17     A     
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE,COMPLEX),1,1,1                           ARITH       8330     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2298    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              IFTABLE  (INTEGER,REAL,DOUBLE,COMPLEX),N,N,N                           ARITH       8331     A     
 ARITH              IFTABLE  (COMPLEX),1,2,1                                               ARITH       8332     A     
 ARITH              IFTABLE  (COMPLEX),1,N,1                                               ARITH       8333     A     
 ARITH              IFTABLE  (COMPLEX),N,2,N                                               ARITH       8334     A     
 ARITH              IFTABLE  (LOGICAL),1,2                                                 ARITH       8335     A     
 ARITH              IFTABLE  (LOGICAL),1,N                                                 ARITH       8336     A     
 ARITH              IFTABLE  (LOGICAL),N,2                                                 ARITH       8337     A     
 ARITH              IFTABLE  (LOGICAL),1,1                                                 ARITH       8338     A     
 ARITH              IFTABLE  (LOGICAL),N,N                                                 ARITH       8339     A     
 ARITH              SPACE  2                                                               FCC0514       18     A     
 ARITH    **        IF1.TBL AND IF2.TBL - SET BRANCH PATTERN FOR 1- AND 2-BRANCH           ARITH       8340     A     
 ARITH    *         IF STMT WHEN THEY CAN BE REDUCED TO AN ARITHMETIC IF                   ARITH       8341     A     
 ARITH    *         BECAUSE THEY CONTAIN ONLY A SINGLE RELATIONAL EXPRESSION.              ARITH       8342     A     
 ARITH                                                                                     ARITH       8343     A     
 ARITH     IFBP     MACRO  B1,B2,B3          IF BRANCH PATTERN MACRO                       ARITH       8344     A     
 ARITH              VFD    2/B1,2/B2,2/B3                                                  ARITH       8345     A     
 ARITH              ENDM                                                                   ARITH       8346     A     
 ARITH                                                                                     ARITH       8347     A     
 ARITH     IF1.TBL  IFBP   N,N,3             GT                                            ARITH       8348     A     
 ARITH              IFBP   N,2,N             EQ                                            ARITH       8349     A     
 ARITH              IFBP   N,2,2             GE                                            ARITH       8350     A     
 ARITH              IFBP   1,N,N             LT                                            ARITH       8351     A     
 ARITH              IFBP   1,N,1             NE                                            ARITH       8352     A     
 ARITH              IFBP   1,1,N             LE                                            ARITH       8353     A     
 ARITH     IF2.TBL  IFBP   1,1,3             GT  * MUST SWAP LABELS                        ARITH       8354     A     
 ARITH              IFBP   1,2,1             EQ  *                                         ARITH       8355     A     
 ARITH              IFBP   1,2,2             GE  *                                         ARITH       8356     A     
 ARITH              IFBP   1,2,2             LT                                            ARITH       8357     A     
 ARITH              IFBP   1,2,1             NE                                            ARITH       8358     A     
 ARITH              IFBP   1,1,3             LE                                            ARITH       8359     A     
 ARITH     IF       TITLE  IFE - IF STATEMENT PROCESSING                                   ARITH       8360     A     
 ARITH    **        PIE - PROCESS IF STATEMENT.                                            ARITH       8361     A     
 ARITH    *                IF STATEMENT INITIAL PROCESSING.                                ARITH       8362     A     
 ARITH                                                                                     ARITH       8363     A     
 ARITH                                                                                     ARITH       8364     A     
 ARITH     PIE      ENTRY. *                 ** ENTRY/EXIT **                              ARITH       8365     A     
 ARITH              BX6    X6-X6                                                           ARITH       8366     A     
 ARITH              MX7    0                                                               ARITH       8367     A     
 ARITH              SA6    IFRPF             CLEAR *CONSTANT AFTER RT PAREN* FLAG          ARITH       8368     A     
 ARITH              SA7    IFRELOP     CLEAR *SINGLE RELTNL EXPR ONLY* FLAG                ARITH       8369     A     
 ARITH              SA6    K2                                                              ARITH       8370     A     
 ARITH              SA1    TRACEL                                                          ARITH       8371     A     
 ARITH              SA2    DOFLAG                                                          ARITH       8372     A     
 ARITH              IX7    X1-X2                                                           ARITH       8373     A     
 ARITH              SA7    TRCFLG            NEG IF NO FLOW TRACING                        ARITH       8374     A     
 ARITH              GETE                                                                   ARITH       8375     A     
 ARITH              IF.NE  EL.(,IF.ERR3      IF NOT LEFT PAREN                             ARITH       8376     A     
 ARITH              RJ     ARITH             PARSE IF EXPRESSION                           ARITH       8377     A     
 ARITH              BX6    X6-X6                                                           ARITH       8378     A     
 ARITH              SA6    ARLPT             RESET THE ARLIST BUFFER POINTER               ARITH       8379     A     
 ARITH              SA6    RL2                 AND LAST OPERAND POINTER                    ARITH       8380     A     
 ARITH              SA5    EXPRIA            EXAMINE THE EXPRESSION RESULT AND             ARITH       8381     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2299    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA3    X5+2              EXTRACT THE RESULT 'RI' NUMBER AND            ARITH       8382     A     
 ARITH              SA2    X5                RESULT EXPRESSION TYPE                        ARITH       8383     A     
 ARITH              SB5    1                                                               ARITH       8384     A     
 ARITH              UX0    X2,B1                                                           ARITH       8385     A     
 ARITH              SX7    X3                                                              ARITH       8386     A     
 ARITH              SA7    PARAMS+3          PLACE THE 'RI' OF THE RESULT IN THE           ARITH       8387     A     
 ARITH              SX6    B1                'PARAMS' BUFFER                               ARITH       8388     A     
 ARITH              SX7    X7+B5                                                           ARITH       8389     A     
 ARITH              SA6    IFETYPE           SAVE THE EXPRESSION TYPE                      ARITH       8390     A     
 ARITH              SA7    A7+B5             ALSO PLACE 'RI'+1 INTO THE 'PARAMS'           ARITH       8391     A     
 ARITH    *                                  BUFFER IN CASE THE RESULT IS A                ARITH       8392     A     
 ARITH    *                                  DOUBLE WORD ITEM.                             ARITH       8393     A     
 ARITH              EQ     PIE                                                             ARITH       8394     A     
 ARITH              SPACE  4,8                                                             ARITH       8395     A     
 ARITH    **        IFE - IF STMT PROCESSING FOR IF(E) N1,N2 AND IF(E) N1,N2,N3            ARITH       8396     A     
 ARITH                                                                                     ARITH       8397     A     
 ARITH     IF.ERR1  EERR   E173              ERR MSG NR - *ILL LABELS IN IF STMT*          ARITH       8398     A     
 ARITH     IF.ERR3  UPDATE                                                                 ARITH       8399     A     
 ARITH              EERR   E316              ERR MSG NR - *ILL SYNTAX IN IF STMT*          ARITH       8400     A     
 ARITH     IF.ERR4  EERR   E174              ERR MSG NR - *LOG EXP IN 3 BRANCH IF*         ARITH       8401     A     
 ARITH                                                                                     ARITH       8402     A     
 ARITH     IFE      ENTRY. **                ** ENTRY/EXIT **                              ARITH       8403     A     
 ARITH              BX6    X6-X6                                                           ARITH       8404     A     
 ARITH              SA6    IFRETURN          SET *RETURN THROUGH -IFE-* FLAG               ARITH       8405     A     
 ARITH              RJ     PIE               PROCESS *IF* EXPR                             ARITH       8406     A     
 ARITH              SX6    B5                                                              ARITH       8407     A     
 ARITH              SA6    BRANCHNO          SET BRANCHNO TO 1                             ARITH       8408     A     
 ARITH              RJ     IFBRT           CALL 'IFBRT' TO PROCESS BRANCH ONE.             ARITH       8409     A     
 ARITH              NZ     X7,IF.ERR1      IF ONLY ONE BRANCH THEN GO TO 'IF.ERR1'         ARITH       8410     A     
 ARITH                                       TO FLAG THE ERROR.                            ARITH       8411     A     
 ARITH              SA6    K1              SAVE THE BRANCH INDICATOR IN 'K1' AND           ARITH       8412     A     
 ARITH              SA6    K3                'K3' IN CASE THIS IS A TWO-BRANCH             ARITH       8413     A     
 ARITH              SA1    PARAMS            ARITHMETIC 'IF' STATEMENT.  (ALSO             ARITH       8414     A     
 ARITH              BX7    X1                REPLICATE THE BRANCH 'IH' INFORMATION         ARITH       8415     A     
 ARITH              SA7    PARAMS+2          IN THE 'PARAMS' BUFFER.)                      ARITH       8416     A     
 ARITH              SA5    EPOINT          UPDATE 'EPOINT' TO POINT TO THE NEXT            ARITH       8417     A     
 ARITH              SX6    X5-2              WOULD BE LABEL                                ARITH       8418     A     
 ARITH              SA6    A5                                                              ARITH       8419     A     
 ARITH              RJ     IFBRT           CALL 'IFBRT' TO PROCESS BRANCH TWO.             ARITH       8420     A     
 ARITH              SA6    K2              SAVE THE SECOND BRANCH INDICATOR IN             ARITH       8421     A     
 ARITH              NZ     X7,IFTWOBR        'K2' AND GO TO 'IFTWOBR' IF THERE ARE         ARITH       8422     A     
 ARITH                                       ONLY TWO BRANCHES.                            ARITH       8423     A     
 ARITH              SA5    EPOINT          UPDATE 'EPOINT' TO POINT TO THE NEXT            ARITH       8424     A     
 ARITH              SX6    X5-2              WOULD BE LABEL                                ARITH       8425     A     
 ARITH              SA6    A5                                                              ARITH       8426     A     
 ARITH              RJ     IFBRT           CALL 'IFBRT' TO PROCESS BRANCH THREE.           ARITH       8427     A     
 ARITH              ZR     X7,IF.ERR1      IF THE THIRD BRANCH WAS NOT FOLLOWED BY         ARITH       8428     A     
 ARITH                                       AN END-OF-STATEMENT GO TO 'IF.ERR1'           ARITH       8429     A     
 ARITH                                       TO FLAG THE ERROR.                            ARITH       8430     A     
 ARITH              SA6    K3              SAVE THE THIRD BRANCH INDICATOR IN 'K3'         ARITH       8431     A     
 ARITH              SA1    IFRELOP                                                         ARITH       8432     A     
 ARITH              NZ     X1,IF.ERR4        IF THREE BRANCH LOGICAL IF                    ARITH       8433     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2300    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH    IF.1      SA5    IFETYPE                                                         ARITH       8434     A     
 ARITH              SX1    X5-T.CPLX                                                       ARITH       8435     A     
 ARITH              NZ     X1,IF.2         IF THE EXPRESSION WAS NOT TYPE COMPLEX          ARITH       8436     A     
 ARITH              USASDM ERMSG47           THEN GO TO 'IF.2', OTHERWISE ISSUE            ARITH       8437     A     
 ARITH                                       A 'USAS' DIAGNOSTIC.                          ARITH       8438     A     
 ARITH              SX6    T.REAL          CHANGE THE EFFECTIVE EXPRESSION TYPE TO         ARITH       8439     A     
 ARITH              SA6    IFETYPE           REAL.                                         ARITH       8440     A     
 ARITH    IF.2      SA5    IFETYPE                                                         ARITH       8441     A     
 ARITH              SX4    X5-T.LOG                                                        ARITH       8442     A     
 ARITH              ZR     X4,IF.ERR4        IF TYPE LOGICAL                               ARITH       8443     A     
 ARITH                                                                                     ARITH       8444     A     
 ARITH     IF.3     SA4    K1                                                              ARITH       8445     A     
 ARITH              SA3    A4+B5             K2                                            ARITH       8446     A     
 ARITH              LX4    4                                                               ARITH       8447     A     
 ARITH              SA2    A3+B5             K3                                            ARITH       8448     A     
 ARITH              LX3    2                                                               ARITH       8449     A     
 ARITH              IX6    X2+X3                                                           ARITH       8450     A     
 ARITH              BX4    X4+X6             FORM BRANCH PATTERN                           ARITH       8451     A     
 ARITH              SA5    IFETYPE                                                         ARITH       8452     A     
 ARITH    *                                                                                FCC0558        6     A     
 ARITH    *         (X4) = BRANCH PATTERN                                                  FCC0558        7     A     
 ARITH    *         (X5) = IFETYPE                                                         FCC0558        8     A     
 ARITH    *                                                                                FCC0558        9     A     
 ARITH     IF.4     SX7    X5-T.OCT                                                        ARITH       8453     A     
 ARITH              NZ     X7,IF.4A          IF EXPR MODE NOT OCTAL                        ARITH       8454          I
          -FCC0558
 ARITH              MI     X7,IF.4A          IF EXPR TYPE NOT OCTAL OR HOLL                FCC0558       10     A     
 ARITH              SX5    T.INT             CHANGE TO INTEGER                             ARITH       8455     A     
 ARITH     IF.4A    LX5    6                                                               ARITH       8456     A     
 ARITH              IX0    X4+X5             X0 = SEARCH PATTERN                           ARITH       8457     A     
 ARITH    *                                     = 4/EXPR MODE,2/K1,2/K2,2/K3               ARITH       8458     A     
 ARITH              BX1    -X0                                                             ARITH       8459     A     
 ARITH              SB3    X1              (REGISTER B3 NOW CONTAINS THE                   ARITH       8460     A     
 ARITH              SA1    IFTABLE           COMPLEMENT OF THE SEARCH KEY.)                ARITH       8461     A     
 ARITH    IF.5      UX0    X1,B2                                                           ARITH       8462     A     
 ARITH              SX3    X1+B3                                                           ARITH       8463     A     
 ARITH              LX1    30                                                              ARITH       8464     A     
 ARITH              SX2    X1+B3                                                           ARITH       8465     A     
 ARITH              ZR     X2,IF.6         IF THE 'IFTABLE' ENTRY IN THE TOP HALF          ARITH       8466     A     
 ARITH                                       OF THE WORD MATCHES THEN GO TO 'IF.6'         ARITH       8467     A     
 ARITH              UX0    X1,B2                                                           ARITH       8468     A     
 ARITH              SA1    A1+B5             (FETCH THE NEXT TABLE WORD.)                  ARITH       8469     A     
 ARITH              NZ     X3,IF.5         IF THE 'IFTABLE' ENTRY IN THE BOTTOM            ARITH       8470     A     
 ARITH                                       HALF OF THE WORD DOES NOT MATCH THEN          ARITH       8471     A     
 ARITH                                       CONTINUE WITH THE SEARCH.                     ARITH       8472     A     
 ARITH     IF.6     PL     B2,IF.6A        IF THE STATEMENT DID NOT DEGENERATE TO          ARITH       8473     A     
 ARITH                                       A SIMPLE 'GO TO' THEN GO TO 'IF.6A'           ARITH       8474     A     
 ARITH              SX7    -B2             OTHERWISE SAVE THE MACRO CODE AND ISSUE         ARITH       8475     A     
 ARITH              SA7    IFTS2             AN INFORMATIVE DIAGNOSTIC.                    ARITH       8476     A     
 ARITH              SA1    EPOINT          SET EPOINT TO POINT AT THE LABEL                ARITH       8477     A     
 ARITH              SX6    X1-1                                                            ARITH       8478     A     
 ARITH              SA6    A1                                                              ARITH       8479     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2301    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              IDM    E194              ERR MSG NR - *DEGENERATES TO SMPL TR*         ARITH       8480     A     
 ARITH              SA4    IFTS2           RESTORE THE MACRO CODE AND CONTINUE.            ARITH       8481     A     
 ARITH              SB2    X4                                                              ARITH       8482     A     
 ARITH              SX6    X4-IFFLAGN                                                      ARITH       8483     A     
 ARITH              ZR     X6,IF.6C    IF  IF(E)NNN CASE                                   ARITH       8484     A     
 ARITH     IF.6A    SA1    TRCFLG                                                          ARITH       8485     A     
 ARITH              MI     X1,IF.6B        GO TO 'IF.6B' IF NO FLOW TRACING.               ARITH       8486     A     
 ARITH              SA1    DBGAPL            TRANSFER GL NUMBERS FROM                      ARITH       8487     A     
 ARITH              SA2    A1+1                THE TEMPORARY BUFFER TO                     ARITH       8488     A     
 ARITH              BX6    X1                  THE PARAMS BUFFER FOR                       ARITH       8489     A     
 ARITH              LX7    X2                  THE MACOUT CALL                             ARITH       8490     A     
 ARITH              SA6    PARAMS                                                          ARITH       8491     A     
 ARITH              SA1    A2+1                                                            ARITH       8492     A     
 ARITH              SA7    A6+1                                                            ARITH       8493     A     
 ARITH              BX6    X1                                                              ARITH       8494     A     
 ARITH              SA6    A7+1                                                            ARITH       8495     A     
 ARITH     IF.6B    SA4    IFMC            PICKUP THE 'IF' MACRO TEMPLATE AND              ARITH       8496     A     
 ARITH              PX3    X4,B2             INSERT THE APPROPRIATE R-LIST MACRO           ARITH       8497     A     
 ARITH              SA2    NARN                                                            ARITH       8498     A     
 ARITH              MX5    0                                                               ARITH       8499     A     
 ARITH              RJ     MACOUT          CALL 'MACOUT' TO ISSUE THE R-LIST MACRO         ARITH       8500     A     
 ARITH              SA5    ARLPT                                                           ARITH       8501     A     
 ARITH              BX4    X4-X4                                                           ARITH       8502     A     
 ARITH              RJ     DARLIST         CALL 'DARLIST' TO DUMP THE ACCUMULATED          ARITH       8503     A     
 ARITH              BX6    X6-X6                                                           ARITH       8504     A     
 ARITH              SA6    ARLPT       RESET THE ARLIST POINTER                            ARITH       8505     A     
 ARITH     IF.6C    SA5    IFRETURN                                                        ARITH       8506     A     
 ARITH              ZR     X5,IF.7           TO THE CALLER.                                ARITH       8507     A     
 ARITH              SB7    X5                                                              ARITH       8508     A     
 ARITH              JP     B7                                                              ARITH       8509     A     
 ARITH              SPACE  1                                                               ARITH       8510     A     
 ARITH    IF.7      SA1    TRCFLG                                                          ARITH       8511     A     
 ARITH              NG     X1,IFE            EXIT IF NO FLOW TRACING                       ARITH       8512     A     
 ARITH              SX7    B5                INITIALIZE TO 1                               ARITH       8513     A     
 ARITH              SA1    IFTS1+5           USED AS TABLE COUNTER                         ARITH       8514     A     
 ARITH    IF.8      SA2    IFTS1+X7          FETCH TABLE WORD                              ARITH       8515     A     
 ARITH              ZR     X2,IF.9           ZERO IF END OF TABLE                          ARITH       8516     A     
 ARITH              SA7    A1                SAVE COUNTER                                  ARITH       8517     A     
 ARITH              SA5    IFTS1+5     TABLE COUNTER                                       ARITH       8518     A     
 ARITH              SA1    LABEL.                                                          ARITH       8519     A     
 ARITH              SA2    IFTS1+X5                                                        ARITH       8520     A     
 ARITH              SX3    X2-1        LABTAB ORD - 1                                      ARITH       8521     A     
 ARITH              LX3    AP.CAP                                                          ARITH       8522     A     
 ARITH              AX2    18                                                              ARITH       8523     A     
 ARITH              BX7    X2                                                              ARITH       8524     A     
 ARITH              SA7    UJPM+1      USE AS TEMPORARY STORAGE                            ARITH       8525     A     
 ARITH              BX6    X1+X3                                                           ARITH       8526     A     
 ARITH              SA6    APLST+1                                                         ARITH       8527     A     
 ARITH              WRM    APLST       APLIST FOR LABEL. + CA                              ARITH       8528     A     
 ARITH              SA4    UJPM+1                                                          ARITH       8529     A     
 ARITH              BX6    X4                                                              ARITH       8530     A     
 ARITH              AX6    18                ISOLATE LABEL IH                              ARITH       8531     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2302    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA6    A4                                                              ARITH       8532     A     
 ARITH              SX5    X4+I.GL           SET GL IH                                     ARITH       8533     A     
 ARITH              CALL   WLABM                                                           ARITH       8534     A     
 ARITH              SYMBOL =8RBUGTRU                                                       ARITH       8535     A     
 ARITH              SA3    =XDBGEXT                                                        ARITH       8536     A     
 ARITH              BX7    X2+X3             SET CGS AND EXT BITS                          ARITH       8537     A     
 ARITH              SA7    A2                                                              ARITH       8538     A     
 ARITH              SA1    =XN.AP                                                          ARITH       8539     A     
 ARITH              SX7    X1+B5             INCREMENT N.AP                                ARITH       8540     A     
 ARITH              SA7    A1                                                              ARITH       8541     A     
 ARITH              SX2    I.AP+X1                                                         ARITH       8542     A     
 ARITH              LX2    RM.IHL                                                          ARITH       8543     A     
 ARITH              SA5    GEFM                                                            ARITH       8544     A     
 ARITH              SX3    B1                                                              ARITH       8545     A     
 ARITH              SA4    CDCNT                                                           ARITH       8546     A     
 ARITH              BX7    X5                                                              ARITH       8547     A     
 ARITH              BX6    X2+X3             CREATE 1ST WORD OF GEF PARAMETERS             ARITH       8548     A     
 ARITH              SA7    DBGAPL            STORE GEF MACRO HEADER                        ARITH       8549     A     
 ARITH              BX7    X4                                                              ARITH       8550     A     
 ARITH              SA6    A7+B5                                                           ARITH       8551     A     
 ARITH              SA7    A6+B5                                                           ARITH       8552     A     
 ARITH              WRM    DBGAPL                                                          ARITH       8553     A     
 ARITH              WRM    UJPM                                                            ARITH       8554     A     
 ARITH              SA1    IFTS1+5           TABLE COUNTER                                 ARITH       8555     A     
 ARITH              SB5    1                                                               ARITH       8556     A     
 ARITH              SX7    X1+B5             INCREMENT POINTER                             ARITH       8557     A     
 ARITH              EQ     IF.8                                                            ARITH       8558     A     
 ARITH     IF.9     SA3    =XN.GL                                                          ARITH       8559     A     
 ARITH              IX6    X3+X1             UPDATE GL NUMBER                              ARITH       8560     A     
 ARITH              SA6    A3                                                              ARITH       8561     A     
 ARITH              EQ     IFE               EXIT IF PROCESSOR                             ARITH       8562     A     
 ARITH                                                                                     ARITH       8563     A     
 ARITH    *         2 BRANCH IF STMT PROCESSING - IF(EXPR) 1,2                             ARITH       8564     A     
 ARITH                                                                                     ARITH       8565     A     
 ARITH     IFTWOBR  SA3    IFRELOP                                                         ARITH       8566          I
          -FCC0481
 ARITH     IFTWOBR  USASDM ERMSG46     *TWO-BRANCH IF NON-ANSI*                            FCC0481        9     A     
 ARITH              SA3    IFRELOP                                                         FCC0481       10     A     
 ARITH              NZ     X3,IFTWO1         IF EXPR IS A SIMPLE RELATIONAL                ARITH       8567     A     
 ARITH              SA5    IFETYPE                                                         ARITH       8568     A     
 ARITH              SX6    X5-T.LOG          IF EXPR IS NOT LOGICAL, THEN                  ARITH       8569     A     
 ARITH              NZ     X6,IF.1           PROCESS AS IF IF(EXPR) 1,2,1                  ARITH       8570     A     
 ARITH              SA6    K3                                                              ARITH       8571     A     
 ARITH              EQ     IF.3              GO OUTPUT BRANCH CODE                         ARITH       8572     A     
 ARITH                                                                                     ARITH       8573     A     
 ARITH     IFTWO1   SA1    K1                                                              ARITH       8574     A     
 ARITH              SA2    A1+B5             K2                                            ARITH       8575     A     
 ARITH              IX0    X1-X2                                                           ARITH       8576     A     
 ARITH              BX6    X2                                                              ARITH       8577     A     
 ARITH              SA6    A2+B5             K3 = K1                                       ARITH       8578     A     
 ARITH              ZR     X0,IF.3           IF DEGENERATE                                 ARITH       8579     A     
 ARITH              IX7    X1+X2                                                           ARITH       8580     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2303    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SB7    X7                                                              ARITH       8581     A     
 ARITH              JP     B7+IFTWO.J-1      JUMP TO APPROPIATE PROCESSOR                  ARITH       8582     A     
 ARITH                                                                                     ARITH       8583     A     
 ARITH     IFTWO.J  EQ     IFTWO7            IF(E) 1,N                                     ARITH       8584     A     
 ARITH              EQ     IFTWO6            IF(E) N,2                                     ARITH       8585     A     
 ARITH                                                                                     ARITH       8586     A     
 ARITH    +         SX4    X3-4              IF(E) 1,2                                     ARITH       8587     A     
 ARITH              PL     X4,IFTWO2         IF NOT NEC TO SWAP LABELS                     ARITH       8588     A     
 ARITH              SA1    PARAMS                                                          ARITH       8589     A     
 ARITH              SA2    A1+B5             SWAP( LAB1 , LAB2 )                           ARITH       8590     A     
 ARITH              BX7    X1                                                              ARITH       8591     A     
 ARITH              LX6    X2                                                              ARITH       8592     A     
 ARITH              SA6    A1                                                              ARITH       8593     A     
 ARITH              SA7    A2                                                              ARITH       8594     A     
 ARITH     IFTWO2   SA1    IF2.TBL           BRANCH PATTERN TABLE                          ARITH       8595     A     
 ARITH              SA5    PARAMS+1                                                        FCC0558       11     A     
 ARITH              BX7    X5                                                              FCC0558       12     A     
 ARITH              SA7    A5+B5                                                           FCC0558       13     A     
 ARITH                                                                                     ARITH       8596     A     
 ARITH    *         X1 = IF BRANCH PATTERN TABLE                                           ARITH       8597     A     
 ARITH    *         X3 = IFRELOP                                                           ARITH       8598     A     
 ARITH                                                                                     ARITH       8599     A     
 ARITH     IFTWO3   SA2    =XSPPFLAG                                                       ARITH       8600          I
          -FCC0514
 ARITH              NZ     X2,IFTWO4         IF SPP OPTION SELECTED                        ARITH       8601          I
          -FCC0514
 ARITH              NG     X3,IFTWO5         IF NO SUBTRACT GENERATED                      ARITH       8602          I
          -FCC0514
 ARITH              LX4    B5,X3                                                           ARITH       8603          I
          -FCC0514
 ARITH              NG     X4,IFTWO4         IF A SUBTRACT OF A CON " 0                    ARITH       8604          I
          -FCC0514
 ARITH              SA2    IFETYPE                                                         ARITH       8605          I
          -FCC0514
 ARITH              SX7    X2-T.REAL                                                       ARITH       8606          I
          -FCC0514
 ARITH              NZ     X7,IFTWO5         IF NOT A FLOATING PT SUBTRACT                 ARITH       8607          I
          -FCC0514
 ARITH     IFTWO4   SX6    SPECIAL                                                         ARITH       8608          I
          -FCC0514
 ARITH              SA6    IFETYPE           SET MODE FOR NO -0 CHECK CODE                 ARITH       8609          I
          -FCC0514
 ARITH     IFTWO5   SX3    X3                REMOVE FLAG BITS                              ARITH       8610          I
          -FCC0514
 ARITH     IFTWO3   SX3    X3          REMOVE ANY FLAG BITS                                FCC0514       19     A     
 ARITH              MX0    60-6              DETERMINE BRANCH PATTERN FROM TABLE A         ARITH       8611     A     
 ARITH              IX6    X3+X3                                                           ARITH       8612     A     
 ARITH              LX3    2                 AND IFRELOP                                   ARITH       8613     A     
 ARITH              IX7    X3+X6                                                           ARITH       8614     A     
 ARITH              SB2    X7                6*IFRELOP                                     ARITH       8615     A     
 ARITH              LX1    B2,X1                                                           ARITH       8616     A     
 ARITH              BX4    -X0*X1            X4 = BRANCH PATTERN                           ARITH       8617     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2304    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA5    IFETYPE                                                         ARITH       8618     A     
 ARITH              SX6    X5-T.CPLX                                                       ARITH       8619     A     
 ARITH              NZ     X6,IF.4           IF EXPR MODE NOT COMPLEX                      ARITH       8620     A     
 ARITH              SX0    X3-2S2            .EQ. OP                                       ARITH       8621     A     
 ARITH              SX7    X3-5S2            .NE. OP                                       ARITH       8622     A     
 ARITH              ZR     X0,IF.4           IF EQ OP                                      ARITH       8623     A     
 ARITH              ZR     X7,IF.4           IF .NE. OP                                    ARITH       8624     A     
 ARITH              SX5    T.REAL            CHANGE EXPR MODE TO REAL FOR                  ARITH       8625     A     
 ARITH              EQ     IF.4              COMPARISION OPS LT , LE , GT  AND GE          ARITH       8626     A     
 ARITH                                                                                     ARITH       8627     A     
 ARITH     IFTWO6   SX0    7                 IF(E) N,2 - COMPLEMENT IFRELOP                ARITH       8628     A     
 ARITH              BX4    -X0*X3            SAVE SIGN BIT                                 ARITH       8629     A     
 ARITH              SX3    X3                                                              ARITH       8630     A     
 ARITH              IX5    X0-X3             IFRELOP = 7-IFRELOP                           ARITH       8631     A     
 ARITH              BX3    X4+X5                                                           ARITH       8632     A     
 ARITH     IFTWO7   SA2    PARAMS-1+B7       ACTIVE LABEL                                  ARITH       8633     A     
 ARITH              SA1    IF1.TBL                                                         ARITH       8634     A     
 ARITH              BX6    X2                                                              ARITH       8635     A     
 ARITH              SA6    PARAMS            REPLICATE LABEL IN PARAMS BUFFER              ARITH       8636     A     
 ARITH              SA6    A6+B5                                                           ARITH       8637     A     
 ARITH              SA6    A6+B5                                                           ARITH       8638     A     
 ARITH              SA2    DBGAPL-1+B7       ALSO REPEAT IN THE DBGAPL TABLE               ARITH       8639     A     
 ARITH              BX6    X2                                                              ARITH       8640     A     
 ARITH              SA6    DBGAPL                                                          ARITH       8641     A     
 ARITH              SA6    A6+B5                                                           ARITH       8642     A     
 ARITH              SA6    A6+B5                                                           ARITH       8643     A     
 ARITH              EQ     IFTWO3            GET BRANCH PATTERN AND OUTPUT JUMPS           ARITH       8644     A     
 ARITH     ARITH    TITLE                  IFBRT - 'IF' BRANCH PROCESSING                  ARITH       8645     A     
 ARITH    **        IFBRT - PROCESS REFERENCE TO A LABEL IN AN IF STMT                     ARITH       8646     A     
 ARITH    *                EPOINT -- 'E-LIST' ADDRESS OF LABEL TO BE PROCESSED   *         ARITH       8647     A     
 ARITH    *                BRANCHNO -- NUMBER OF 'IF' BRANCH (1 FOR FIRST, ETC.) *         ARITH       8648     A     
 ARITH    *         RETURNS:                                                     *         ARITH       8649     A     
 ARITH    *                PARAMS-1+[BRANCHNO] -- 'IH' OF LABEL                  *         ARITH       8650     A     
 ARITH    *                BRANCHNO -- BRANCHNO + 1                              *         ARITH       8651     A     
 ARITH    *                X6       -- 0 (LABEL IS THE SAME AS THE LABEL ON THE  *         ARITH       8652     A     
 ARITH    *                               NEXT STATEMENT)                        *         ARITH       8653     A     
 ARITH    *                            1 (LABEL IS THE SAME AS THE FIRST BRANCH) *         ARITH       8654     A     
 ARITH    *                            2 (LABEL IS THE SAME AS THE SECOND BRANCH)*         ARITH       8655     A     
 ARITH    *                            3 (LABEL IS THE SAME AS THE THIRD BRANCH) *         ARITH       8656     A     
 ARITH    *                X7       -- .EQ. 0 (LABEL FOLLOWED BY A COMMA)        *         ARITH       8657     A     
 ARITH    *                            .NE. 0 (LABEL FOLLOWED BY EOS)            *         ARITH       8658     A     
 ARITH                                                                                     ARITH       8659     A     
 ARITH     IFBRT    ENTRY. *                 ** ENTRY/EXIT **                              ARITH       8660     A     
 ARITH              SA5    CLABEL                                                          FCC0960        6     A     
 ARITH              MX6    0                                                               FCC0960        7     A     
 ARITH              ZR     X5,IFBRT1   IF CURRENT STATEMENT NOT LABELLED                   FCC0960        8     A     
 ARITH              SA1    =XLORD                                                          FCC0960        9     A     
 ARITH              SA2    SYM1                                                            FCC0960       10     A     
 ARITH              IX0    X1+X1                                                           FCC0960       11     A     
 ARITH              IX3    X2-X0                                                           FCC0960       12     A     
 ARITH              SA4    X3-1        WORD B OF CURRENT LABEL                             FCC0960       13     A     
 ARITH              LX4    59-P.DLT                                                        FCC0960       14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2305    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              BX6    X4                                                              FCC0960       15     A     
 ARITH                                                                                     FCC0960       16     A     
 ARITH     IFBRT1   SA6    DOT                                                             FCC0960       17     A     
 ARITH              SA1    EPOINT            IF NEXTE IS NOT AN                            ARITH       8661     A     
 ARITH              SA2    X1                INTEGER CONSTANT THEN GO TO 'IF.ERR1'         ARITH       8662     A     
 ARITH              UX0    X2,B2             TO ISSUE A FATAL DIAGNOSTIC.                  ARITH       8663     A     
 ARITH              NZ     B2,IF.ERR1                                                      ARITH       8664     A     
 ARITH              AX0    45                                                              ARITH       8665     A     
 ARITH              SA4    A2-B5             (OBTAIN NEXT 'E-LIST' ELEMENT.)               ARITH       8666     A     
 ARITH              SA3    X2                (OBTAIN THE LABEL IN HOLLERITH FORM.)         ARITH       8667     A     
 ARITH              MX6    60-3                                                            ARITH       8668     A     
 ARITH              SA5    CLABEL            (CURRENT LABEL IN HOLLERITH FORM.)            ARITH       8669          I
          -FCC0960
 ARITH              BX0    -X6*X0                                                          ARITH       8670     A     
 ARITH              SX7    X0-T.INT                                                        ARITH       8671     A     
 ARITH              UX0    X4,B2                                                           ARITH       8672     A     
 ARITH              NZ     X7,IF.ERR1                                                      ARITH       8673     A     
 ARITH              SX7    B2-EL.COMMA                                                     ARITH       8674     A     
 ARITH              IX1    X3-X5                                                           ARITH       8675     A     
 ARITH              BX6    X3                                                              ARITH       8676     A     
 ARITH              ZR     X7,IFBRT.1      IF THE LABEL IS NOT FOLLOWED BY A COMMA         ARITH       8677     A     
 ARITH              SB2    B2-EL.EOS         OR END-OF-STATEMENT, THEN GO TO               ARITH       8678     A     
 ARITH              NZ     B2,IF.ERR1        'IF.ERR1' TI ISSUE A FATAL DIAGNOSTIC         ARITH       8679     A     
 ARITH    IFBRT.1   SA7    IFTS2           (SAVE THE TERMINATING ELEMENT INDICATOR         ARITH       8680     A     
 ARITH              SA6    IFTS2+1           AND THE HOLLERITH FORM OF THE LABEL.)         ARITH       8681          I
          -FCC1668X 
 ARITH              NZ     X1,IFBRT.2                                                      ARITH       8682     A     
 ARITH              IDM    E193              ERR MSG NR - *STMT BRNCHES TO ITSELF*         ARITH       8683          I
          -FCC0418
 ARITH              IDM    -E193             ERR MSG- *STMT BRANCHES TO ITSELF*            FCC0418       84     A     
 ARITH              SA1    EPOINT                                                          ARITH       8684     A     
 ARITH              SA2    X1                                                              ARITH       8685     A     
 ARITH              SPACE  1                                                               ARITH       8686     A     
 ARITH     IFBRT.2  CALL   DOLABR            INFORM DO OF THE LABEL REF                    ARITH       8687     A     
 ARITH              SA7    IFTS2+1     SAVE THE HOLLERITH FORM OF THE LABEL                FCC1668X       7     A     
 ARITH              SA1    TRCFLG                                                          ARITH       8688     A     
 ARITH              NG     X1,IFBRT.2A       BRANCH IF NO FLOW TRACING                     ARITH       8689     A     
 ARITH              MX0    60-L.TRO                                                        ARITH       8690     A     
 ARITH              LX2    60-P.TRO                                                        ARITH       8691     A     
 ARITH              BX7    -X0*X2            LABEL TABLE ORDINAL                           ARITH       8692     A     
 ARITH              SA7    IFTS1             SAVE IN TEMPORARY                             ARITH       8693     A     
 ARITH              EQ     IFBRT.3                                                         ARITH       8694     A     
 ARITH              SPACE  1                                                               ARITH       8695     A     
 ARITH    IFBRT.2A  SA5    IFTS2+1         IF THE BRANCH LABEL IS THE SAME AS THE          ARITH       8696          I
          -FCC0960
 ARITH     IFBRT.2A SA1    DOT                                                             FCC0960       18     A     
 ARITH              MI     X1,IFBRT.3  IF CURRENT STATEMENT DO TERM.                       FCC0960       19     A     
 ARITH              SA5    IFTS2+1     IF THE BRANCH LABEL IS THE SAME AS THE              FCC0960       20     A     
 ARITH              SA3    NLABEL            LABEL OF THE NEXT STATEMENT THEN              ARITH       8697     A     
 ARITH              BX6    X5-X3             REMOVE THE 'RSN' BIT FROM THE                 ARITH       8698     A     
 ARITH              NZ     X6,IFBRT.3        LABEL ATTRIBUTES IF THIS WAS THE              ARITH       8699     A     
 ARITH              SX0    B5                FIRST REFERENCE TO THE LABEL.  (THIS          ARITH       8700     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2306    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              LX0    P.RSN             WILL KEEP THE LABEL FROM BEING ACTIVE         ARITH       8701     A     
 ARITH              BX6    -X0*X2            WHILE NOT CAUSING THE LABEL TO APPEAR         ARITH       8702     A     
 ARITH              BX7    X6+X4             TO BE REFERENCED SINCE 'DOLABR'               ARITH       8703     A     
 ARITH              SA7    A2                WILL ALSO TURN ON THE 'DIN' BIT.)             ARITH       8704     A     
 ARITH              SPACE  1                                                               ARITH       8705     A     
 ARITH    IFBRT.3   SA1    BRANCHNO        INSERT THE 'IH' OF THE LABEL INTO THE           ARITH       8706     A     
 ARITH              SX7    B1                'PARAMS' BUFFER IN THE APPROPRIATE            ARITH       8707     A     
 ARITH              SX6    X1+B5             POSITION.  INCREMENT THE BRANCH               ARITH       8708     A     
 ARITH              SA7    PARAMS-1+X1       NUMBER.                                       ARITH       8709     A     
 ARITH              SA6    BRANCHNO                                                        ARITH       8710     A     
 ARITH              SA4    DOT                                                             FCC0960       21     A     
 ARITH              MI     X4,IFBRT.3A IF CURRENT STATEMENT DO TERM.                       FCC0960       22     A     
 ARITH              SA4    TRCFLG                                                          ARITH       8711     A     
 ARITH              PL     X4,IFBRT.3A       BRANCH IF FLOW TRACING                        ARITH       8712     A     
 ARITH              SA5    NLABEL          RETURN WITH THE FOLLOWING INFORMATION:          ARITH       8713     A     
 ARITH              SA4    IFTS2+1           X6-- 0 (LABEL = NEXT STATEMENT LABEL)         ARITH       8714     A     
 ARITH              IX6    X4-X5                  1 (LABEL = FIRST BRANCH LABEL)           ARITH       8715     A     
 ARITH              ZR     X6,IFBRT.5             2 (LABEL = SECOND BRANCH LABEL)          ARITH       8716     A     
 ARITH    IFBRT.3A  BX6    X6-X6                  3 (LABEL = THIRD BRANCH LABEL)           ARITH       8717     A     
 ARITH    IFBRT.4   SA4    PARAMS+X6                                                       ARITH       8718     A     
 ARITH              BX0    X7-X4                                                           ARITH       8719     A     
 ARITH              SX6    X6+B5                                                           ARITH       8720     A     
 ARITH              NZ     X0,IFBRT.4                                                      ARITH       8721     A     
 ARITH              SA4    TRCFLG                                                          ARITH       8722     A     
 ARITH              NG     X4,IFBRT.5        BRANCH IF NO FLOW TRACING                     ARITH       8723     A     
 ARITH              SA3    N.GL                                                            ARITH       8724     A     
 ARITH              SX4    X6-1              COMPENSATE FOR BIAS                           ARITH       8725     A     
 ARITH              SB6    X6                WILL BE RESTORED LATER                        ARITH       8726     A     
 ARITH              IX2    X3+X4             DEBUG GL FOR LABEL                            ARITH       8727     A     
 ARITH              SX0    X2+I.GL                                                         ARITH       8728     A     
 ARITH              SA3    IFTS1             LABEL TABLE ORDINAL                           ARITH       8729     A     
 ARITH              LX2    18                                                              ARITH       8730     A     
 ARITH              SX5    B1                ORIGINAL LABEL ORDINAL                        ARITH       8731     A     
 ARITH              BX4    X2+X3             GL AND LABTAB ORD                             ARITH       8732     A     
 ARITH              LX5    36                                                              ARITH       8733     A     
 ARITH              BX7    X5+X4             ADD ORD FOR LABEL                             ARITH       8734     A     
 ARITH              IX4    X1-X6                                                           ARITH       8735     A     
 ARITH              BX6    X0                                                              ARITH       8736     A     
 ARITH              SA6    DBGAPL-1+X1       TEMPORARY BUFFER                              ARITH       8737     A     
 ARITH              SX6    B6                                                              ARITH       8738     A     
 ARITH              NZ     X4,IFBRT.5        BRANCH IF LABEL ALREADY IN LIST               ARITH       8739     A     
 ARITH              SA5    K2                                                              ARITH       8740     A     
 ARITH              SX3    X5-1              IS SECOND LABEL SAME AS FIRST                 ARITH       8741     A     
 ARITH              NZ     X3,IFBRT.4A       BRANCH IF NOT                                 ARITH       8742     A     
 ARITH              SX4    B5                                                              ARITH       8743     A     
 ARITH              IX6    X0-X4             ADJUST GL NUMBER                              ARITH       8744     A     
 ARITH              LX4    18                                                              ARITH       8745     A     
 ARITH              IX7    X7-X4             ADJUST GL NUMBER                              ARITH       8746     A     
 ARITH              SA6    A6                SAVE ADJUSTED INFORMATION                     ARITH       8747     A     
 ARITH              SX1    X1-1              ADJUST ARRAY POINTER                          ARITH       8748     A     
 ARITH              SX6    B6                                                              ARITH       8749     A     
 ARITH    IFBRT.4A  SA7    IFTS1+X1          ADD INFORMATION TO LIST                       ARITH       8750     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2307    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              MX7    0                                                               ARITH       8751     A     
 ARITH              SA7    A7+B5             ZERO WORD TO TERMINATE LIST                   ARITH       8752     A     
 ARITH    IFBRT.5   SA5    IFTS2             X7-- .EQ. 0 (LABEL FOLLOWED BY COMMA)         ARITH       8753     A     
 ARITH              BX7    X5                     .NE. 0 (LABEL FOLLOWED BY EOS)           ARITH       8754     A     
 ARITH              ZR     IFBRT           RETURN.                                         ARITH       8755     A     
 ARITH     IFL      TITLE  IFL - LOGICAL IF PROCESSING                                     ARITH       8756     A     
 ARITH    **        IFL - PROCESS LOGICAL IF STMTS     IF(L) STMT                          ARITH       8757     A     
 ARITH                                                                                     ARITH       8758     A     
 ARITH     E175     =      175         STMT IN LOGICAL IF MAY BE ANY EXECUTABLE            ARITH       8759     A     
 ARITH    *                              OTHER THAN DO OR ANOTHER LOGICAL IF               ARITH       8760     A     
 ARITH     E176     =      176         EXPR IN LOGICAL IF IS NOT TYPE LOGICAL              ARITH       8761     A     
 ARITH                                                                                     ARITH       8762     A     
 ARITH     IFL.ERR1 EERR   E175                                                            ARITH       8763          I
          -FCC0418
 ARITH     IFL.ERR2 EERR   E176                                                            ARITH       8764          I
          -FCC0418
 ARITH     IFL.ERR1 EERR   -E175                                                           FCC0418       85     A     
 ARITH     IFL.ERR2 EERR   -E176                                                           FCC0418       86     A     
 ARITH                                                                                     ARITH       8765     A     
 ARITH     IFL      ENTRY. **                ** ENTRY/EXIT **                              ARITH       8766     A     
 ARITH              RJ     PIE               PROCESS *IF* EXPRESSION                       ARITH       8767     A     
 ARITH              SA5    IFRELOP                                                         ARITH       8768     A     
 ARITH              NZ     X5,IFL.0          IF A SINGLE RELATIONAL OP                     ARITH       8769     A     
 ARITH              NZ     X6,IFL.ERR2       IF EXPR IN IF NOT LOGICAL                     ARITH       8770     A     
 ARITH                                                                                     ARITH       8771     A     
 ARITH     IFL.0    SA1    TRCFLG                                                          ARITH       8772     A     
 ARITH              PL     X1,IFL.2    IF IN DEBUG MODE                                    ARITH       8773     A     
 ARITH              SA1    LTYPE                                                           ARITH       8774     A     
 ARITH              SA2    LELIST                                                          ARITH       8775     A     
 ARITH              SA3    X2                                                              ARITH       8776     A     
 ARITH              UX7    B1,X3                                                           ARITH       8777     A     
 ARITH              SX0    X1-20                                                           ARITH       8778     A     
 ARITH              NZ     X0,IFL.1    IF NOT  IF(L) RETURN                                ARITH       8779     A     
 ARITH              NZ     X7,IFL.2    IF RETURNS                                          ARITH       8780     A     
 ARITH              SA3    PROGRAM                                                         ARITH       8781     A     
 ARITH              UX2    B3,X3                                                           ARITH       8782     A     
 ARITH              ZR     B3,IFL.2    IF A MAIN PROGRAM                                   ARITH       8783     A     
 ARITH              MX2    60                                                              ARITH       8784          I
          -FCC1402X 
 ARITH              SX3    B0                                                              ARITH       8785          I
          -FCC1402X 
 ARITH              CALL   DOLABR      INFORM DO OF RETURN STMT                            ARITH       8786          I
          -FCC1402X 
 ARITH              MX2    0                                                               FCC1402X       8     A     
 ARITH              RJ     =XDOLABR    INHIBIT OPTIMIZATION IF IN DO LOOP                  FCC1402X       9     A     
 ARITH              SA1    =XO.CEP                                                         ARITH       8787     A     
 ARITH              ADDREF X1,REF                                                          ARITH       8788     A     
 ARITH              SA3    =XEXIT.                                                         ARITH       8789     A     
 ARITH              BX7    X3                                                              ARITH       8790     A     
 ARITH              SX6    B5                                                              ARITH       8791     A     
 ARITH              SA7    PARAMS      ORD(N1) = ORD(EXIT.)                                ARITH       8792     A     
 ARITH              EQ     IFL.1B                                                          ARITH       8793     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2308    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH                                                                                     ARITH       8794     A     
 ARITH     IFL.1    SX0    X1-15                                                           ARITH       8795     A     
 ARITH              NZ     X0,IFL.2          IF NOT   IF(L) GOTO N                         ARITH       8796     A     
 ARITH              NZ     B1,IFL.2          IF NOT A CONSTANT                             ARITH       8797     A     
 ARITH              MX5    -3                                                              ARITH       8798     A     
 ARITH              AX7    45                                                              ARITH       8799     A     
 ARITH              BX5    -X5*X7                                                          ARITH       8800     A     
 ARITH              SX0    X5-T.INT                                                        ARITH       8801     A     
 ARITH              SA3    X2-1                                                            ARITH       8802     A     
 ARITH              UX7    X3,B1                                                           ARITH       8803     A     
 ARITH              BX6    X2                                                              ARITH       8804     A     
 ARITH              SX5    B1-EL.EOS                                                       ARITH       8805     A     
 ARITH              BX0    X0+X5                                                           ARITH       8806     A     
 ARITH              SX7    B5                                                              ARITH       8807     A     
 ARITH              NZ     X0,IFL.2        (NOT A PROPER 'GO TO LABEL' OR LABEL            ARITH       8808     A     
 ARITH                                       NOT FOLLOWED BY AN END-OF-STATEMENT.)         ARITH       8809     A     
 ARITH              SPACE  1                                                               ARITH       8810     A     
 ARITH              SA6    EPOINT                                                          ARITH       8811     A     
 ARITH              SA7    BRANCHNO                                                        ARITH       8812     A     
 ARITH              RJ     IFBRT           CALL 'IFBRT' TO PROCESS THE LABEL               ARITH       8813     A     
 ARITH     IFL.1B   SA3    IFRELOP                                                         ARITH       8814     A     
 ARITH              SX7    IFL               SET RETURN ADDR                               ARITH       8815     A     
 ARITH              SA7    IFRETURN                                                        ARITH       8816     A     
 ARITH              SB7    B5                                                              ARITH       8817     A     
 ARITH              ZR     X6,IFL.1A         IF DEGENERATE CASE                            ARITH       8818     A     
 ARITH              NZ     X3,IFTWO7         IF SPECIAL PROCESSING IS NECESSARY            ARITH       8819     A     
 ARITH     IFL.1A   SA6    K1                SAVE THE TRUE BRANCH INDICATOR.               ARITH       8820     A     
 ARITH              BX7    X7-X7                                                           ARITH       8821     A     
 ARITH              SA7    A6+B5           SET THE FALSE BRANCH INDICATOR (AND THE         ARITH       8822     A     
 ARITH              SA7    A7+B5             UNUSED INDICATOR) TO SPECIFY THE NEXT         ARITH       8823     A     
 ARITH                                       STATEMENT.                                    ARITH       8824     A     
 ARITH              SPACE  1                                                               ARITH       8825     A     
 ARITH              SA7    PARAMS+1        CLEAR OUT THE UNUSED 'IH' ENTRIES IN            ARITH       8826     A     
 ARITH              SA7    A7+B5                                                           ARITH       8827     A     
 ARITH              EQ     IF.3              GO OUTPUT BRANCHS                             ARITH       8828     A     
 ARITH              SPACE  2                                                               ARITH       8829     A     
 ARITH     IFL.2    SA1    N.GL                                                            ARITH       8830     A     
 ARITH              SX7    X1+B5             NGLN = NGLN + 1                               ARITH       8831     A     
 ARITH              SX6    X1+I.GL           IH = GL(NLGN)                                 ARITH       8832     A     
 ARITH              SA7    A1                                                              ARITH       8833     A     
 ARITH              SA6    PARAMS+1        STORE THE 'IH' FOR THE FALSE BRANCH             ARITH       8834     A     
 ARITH              BX7    X7-X7             INTO THE 'PARAMS' BUFFER AND CLEAR            ARITH       8835     A     
 ARITH              SA7    A6-B5             THE OTHER BRANCH 'IH' INFORMATION.            ARITH       8836     A     
 ARITH              SA7    A6+B5                                                           ARITH       8837     A     
 ARITH              SA6    DBGAPL+1        SAVE IN TEMPORARY BUFFER FOR                    ARITH       8838     A     
 ARITH              SA7    A6-B5             POSSIBLE LATER USE IF IN                      ARITH       8839     A     
 ARITH              SA7    A6+B5             DEBUG MODE                                    ARITH       8840     A     
 ARITH              SA6    LIFTS1          (SAVE THE FALSE BRANCH 'IH')                    ARITH       8841     A     
 ARITH              SX6    B5+B5                                                           ARITH       8842     A     
 ARITH              SA6    K2              SET THE FALSE BRANCH INDICATOR TO 2             ARITH       8843     A     
 ARITH              SA7    A6-B5             (SECOND BRANCH) AND THE OTHER BRANCH          ARITH       8844     A     
 ARITH              SA7    A6+B5             INDICATORS TO 0 (NEXT STATEMENT).             ARITH       8845     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2309    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH              SA3    IFRELOP                                                         ARITH       8846     A     
 ARITH              SX6    IFL.3             SET RETURN ADDR                               ARITH       8847     A     
 ARITH              SA6    IFRETURN                                                        ARITH       8848     A     
 ARITH              ZR     X3,IF.3           IF NO SPECIAL PROCESSING                      ARITH       8849     A     
 ARITH              SB7    B5+B5             SET BRANCH ORDINAL                            ARITH       8850     A     
 ARITH              EQ     IFTWO6            AND GO SPECIAL CASE                           ARITH       8851     A     
 ARITH              SPACE  2                                                               ARITH       8852     A     
 ARITH    IFL.3     SA1    TRCFLG                                                          ARITH       8853     A     
 ARITH              NG     X1,IFL.3A         BRANCH IF NO FLOW TRACING                     ARITH       8854     A     
 ARITH              MX7    0                                                               ARITH       8855     A     
 ARITH              SX6    =8RBUGTRT                                                       ARITH       8856     A     
 ARITH              SA7    DBGAPL            FORM ARGLIST TABLE                            ARITH       8857     A     
 ARITH              SA6    A7+B5                                                           ARITH       8858     A     
 ARITH              SA1    A7                                                              ARITH       8859     A     
 ARITH              RJ     IGCALL            OUTPUT MACRO                                  ARITH       8860     A     
 ARITH              SA1    =8RBUGTRT                                                       ARITH       8861     A     
 ARITH              SB7    *+1                                                             ARITH       8862     A     
 ARITH              EQ     SYMBOL            WILL ALWAYS RETURN TO FOUND ADDRESS           ARITH       8863     A     
 ARITH              SX6    T.CGS             PLACE TYPE CGS IN SYMTAB WORD                 ARITH       8864     A     
 ARITH              LX6    P.TYP               SO THE REFE RENCE WONT APPEAR               ARITH       8865     A     
 ARITH              BX7    X6+X2             IN THE REFERENCE MAP                          ARITH       8866     A     
 ARITH              SA7    A2                                                              ARITH       8867     A     
 ARITH    IFL.3A    SA5    ARLPT                                                           ARITH       8868     A     
 ARITH              BX4    X4-X4                                                           ARITH       8869     A     
 ARITH              RJ     DARLIST                                                         ARITH       8870     A     
 ARITH              SA1    LELIST                                                          ARITH       8871     A     
 ARITH              SA2    LTYPE                                                           ARITH       8872     A     
 ARITH              BX6    X1                                                              ARITH       8873     A     
 ARITH              LX7    X2                                                              ARITH       8874     A     
 ARITH              SA6    SELIST                                                          ARITH       8875     A     
 ARITH              SA7    TYPE                                                            ARITH       8876     A     
 ARITH              SX2    X2-12                                                           ARITH       8877     A     
 ARITH              MI     X2,IFL.ERR1     IF THE STATEMENT IS NOT EXECUTABLE THEN         ARITH       8878     A     
 ARITH                                       GO TO 'IFL.ERR1' TO FLAG THE ERROR.           ARITH       8879     A     
 ARITH              IX2    X2+X2                                                           ARITH       8880     A     
 ARITH              SB1    X2                                                              ARITH       8881     A     
 ARITH              JP     IFSTMTGO+B1     JUMP TO THE CORRECT STATEMENT PROCESSOR         ARITH       8882     A     
 ARITH              EJECT                                                                  ARITH       8883     A     
 ARITH    **        IFSTMTGO - IF STATEMENT JUMP TABLE                                     ARITH       8884     A     
 ARITH    *         THIS JUMP TABLE PROVIDES THE DIRECTION FOR PROCESSING THE              ARITH       8885     A     
 ARITH    *         STATEMENT PROTION OF A LOGICAL IF.  UNLESS THE STATEMENT               ARITH       8886     A     
 ARITH    *         IS ILLEGAL A PROCESSING ROUTINE IS CALLED AND THEN THE                 ARITH       8887     A     
 ARITH    *         PROCESSING OF THE LOGICAL IF RESUMES AT 'IFL.4'.                       ARITH       8888     A     
 ARITH                                                                                     ARITH       8889     A     
 ARITH     STMT     MACRO  ROUTINE,KIND                                                    ARITH       8890     A     
 ARITH              LOCAL  BEGIN                                                           ARITH       8891     A     
 ARITH    EMPTY     IFC    EQ,  KIND                                                       ARITH       8892     A     
 ARITH               RJ     =X_ROUTINE                                                     ARITH       8893     A     
 ARITH               ZR     IFL.4                                                          ARITH       8894     A     
 ARITH    EMPTY     ELSE                                                                   ARITH       8895     A     
 ARITH    ERROR      IFC    EQ, KIND ERROR                                                 ARITH       8896     A     
 ARITH     BEGIN      EERR   ROUTINE                                                       ARITH       8897     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2310    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
 ARITH               BSS     2+BEGIN-*                                                     ARITH       8898     A     
 ARITH    ERROR     ELSE                                                                   ARITH       8899     A     
 ARITH               ZR      IFL.4                                                         ARITH       8900     A     
 ARITH               BSS     1                                                             ARITH       8901     A     
 ARITH              ENDIF                                                                  ARITH       8902     A     
 ARITH     STMT     ENDM                                                                   ARITH       8903     A     
 ARITH              SPACE 1                                                                ARITH       8904     A     
 ARITH              SPACE  2                                                               ARITH       8905     A     
 ARITH     IFSTMTGO STMT   ARITH             ARITHMETIC REPLACEMENT STATEMENT   12         ARITH       8906     A     
 ARITH              STMT   E175,ERROR        END                                13         ARITH       8907          I
          -FCC0418
 ARITH              STMT   -E175,ERROR       END                                13         FCC0418       87     A     
 ARITH              STMT   ASSIGN            ASSIGN                             14         ARITH       8908     A     
 ARITH              STMT   GOTO              GO TO                              15         ARITH       8909     A     
 ARITH              STMT   IFE               ARITHMETIC IF                      16         ARITH       8910     A     
 ARITH              STMT   E175,ERROR        LOGICAL IF                         17         ARITH       8911          I
          -FCC0418
 ARITH              STMT   E175,ERROR        BAD STATEMENT                      18         ARITH       8912          I
          -FCC0418
 ARITH              STMT   -E175,ERROR       LOGICAL IF                         17         FCC0418       88     A     
 ARITH              STMT   -E175,ERROR       BAD STATEMENT                      18         FCC0418       89     A     
 ARITH              STMT   CALL              CALL                               19         ARITH       8913     A     
 ARITH              STMT   RETURN            RETURN                             20         ARITH       8914     A     
 ARITH              STMT   IFL.4,NOCALL      CONTINUE                           21         ARITH       8915          I
          -FCC1636X 
 ARITH              STMT   CONT        CONTINUE                                            FCC1636X      17     A     
 ARITH              STMT   STOPP             STOP                               22         ARITH       8916     A     
 ARITH              STMT   PAUSEP            PAUSE                              23         ARITH       8917     A     
 ARITH              STMT   E175,ERROR        DO                                 24         ARITH       8918          I
          -FCC0418
 ARITH              STMT   -E175,ERROR       DO                                 24         FCC0418       90     A     
 ARITH              STMT   READ              READ                               25         ARITH       8919     A     
 ARITH              STMT   WRITE             WRITE                              26         ARITH       8920     A     
 ARITH              STMT   BUFIN             BUFFER IN                          27         ARITH       8921     A     
 ARITH              STMT   BUFOUT            BUFFER OUT                         28         ARITH       8922     A     
 ARITH              STMT   ENC               ENCODE                             29         ARITH       8923     A     
 ARITH              STMT   DEC               DECODE                             30         ARITH       8924     A     
 ARITH              STMT   REW               REWIND                             31         ARITH       8925     A     
 ARITH              STMT   BKSP              BACKSPACE                          32         ARITH       8926     A     
 ARITH              STMT   ENDFILE           ENDIFLE                            33         ARITH       8927     A     
 ARITH              STMT   PRINT             PRINT                              34         ARITH       8928     A     
 ARITH              STMT   PUNCH             PUNCH                              35         ARITH       8929     A     
 ARITH                                                                                     ARITH       8930     A     
 ARITH     IFL.4    SA5    LIFTS1                                                          ARITH       8931     A     
 ARITH              CALL   WLABM       #GL NNN LABEL DEF MACRO TO RLIST                    ARITH       8932     A     
 ARITH              SX6    17D                                                             ARITH       8933     A     
 ARITH              SA6    TYPE        RESTORE STATEMENT TYPE FOR DO PROCESSOR             ARITH       8934     A     
 ARITH              EQ     IFL                                                             ARITH       8935     A     
 ARITH              END                                                                    ARITH       8936     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2311    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - ARITH   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          ARITH                     8936      8378
          FCC0218                      2         2
          FCC0385                     12        12
          FCC0394                      9         9
          FCC0407                     10        10
          FCC0412                     37        20
          FCC0418                     82        82
          FCC0435                      1         1
          FCC0481                      2         2
          FEAT121A                     9         9
          FCC0514                     14        14
          FCC0558                      8         8
          FCC0564                     11         7
          FCC0539                     81        80
          FCC0570                     43        42
          FCC0599                      2         1
          FCC0611                      3         3
          FCC0614                     10         5
          FCC0623                     42        40
          FCC0578                      1         1
          FCC0654                      5         5
          FCC0708                      9         9
          FCC0718                      2         2
          FCC0768                      4         4
          FCC0787                     63        63
          FCC0822                     21        21
          FCC0887                      9         9
          FCC0960                     18        18
          FCC0994                      2         2
          FEAT155F                     9         9
          FCC0807                     11        11
          FCC1082                      2         2
          FCC1091                      5         5
          FCC1092                     26        26
          FCC1124                      2         2
          FCC1226                      2         2
          FCCT003                     28        28
          FCC1402X                     2         2
          FCC1479X                     2         2
          FCC1636X                     1         1
          FCC1289X                     3         3
          FCC1590X                    81        79
          FCC1668X                     1         1
          FCC1716X                     8         8
          FCC1731X                     2         2
          FCC1925                      2         2
          FCC1901                     17        17
          FCC1972                     26        26
          FCC1983                     29        29
          FCC2004                      1         1
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2312    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ARITH   
  
          FCC2240                     10        10
          FCC2305                      6         6
          FCC2307                     11        11
          FCC2338                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASFPRO  
  
 ASFPRO   *DECK     ASFPRO                                                                 ASFPRO         1     A     
 ASFPRO             IDENT  ASFPRO                                                          ASFPRO         2     A     
 ASFPRO             TITLE              ASFPRO - ARITHMETIC STMT FUNCTION PROCESSOR         ASFPRO         3     A     
 ASFPRO   *CALL     SSTCALL                                                                ASFPRO         4     A     
 ASFPRO   ***                                                                              ASFPRO         5     A     
 ASFPRO   *         ASFPRO - ASF DEFINITION AND REFERENCE PROCESSING                       ASFPRO         6     A     
 ASFPRO   *                                                                                ASFPRO         7     A     
 ASFPRO                                                                                    ASFPRO         8     A     
 ASFPRO    B=ASFPR  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             ASFPRO         9     A     
 ASFPRO             EXT    ERPRO,RSELECT,PH2RETN,IDORDL,NAMFWA,PSYM,RSELECT                ASFPRO        10     A     
 ASFPRO             EXT    FWAWORK,LWAWORK,S.SCR                                           ASFPRO        11     A     
 ASFPRO             TABLES ASF,SCR                                                         ASFPRO        12     A     
 ASFPRO                                                                                    ASFPRO        13     A     
 ASFPRO    SELIST   EQU    32B                                                             ASFPRO        14     A     
 ASFPRO    LELIST   EQU    34B               FWA OF STMT FOLLOWING LOGICAL IF              ASFPRO        15     A     
 ASFPRO                                                                                    ASFPRO        16     A     
 ASFPRO    EL.PC    EQU    77B               E-LIST PARAMETER CODE                         ASFPRO        17     A     
 ASFPRO    M.FP     EQU    63                MAX NUMBER OF ARGS IN AN ASF DEFINITI         ASFPRO        18     A     
 ASFPRO                                                                                    ASFPRO        19     A     
 ASFPRO    LEFT(    EQU    2000B+EL.(                                                      ASFPRO        20     A     
 ASFPRO    RIGHT(   EQU    2000B+EL.)                                                      ASFPRO        21     A     
 ASFPRO                                                                                    ASFPRO        22     A     
 ASFPRO   *         ERROR NUMBERS                                                          ASFPRO        23     A     
 ASFPRO                                                                                    ASFPRO        24     A     
 ASFPRO    E.DDP    EQU    50                DOUBLY DEFINED PARAMETER                      ASFPRO        25     A     
 ASFPRO    E.TMP    EQU    51                TOO MANY PARAMETERS                           ASFPRO        26     A     
 ASFPRO    E.PLE    EQU    52                ASF PARAMETER LIST ERROR                      ASFPRO        27     A     
 ASFPRO    E.RSE    EQU    53                MEMORY OVERFLOW ON ASF EXPANSION              ASFPRO        28     A     
 ASFPRO    E.BADA   EQU    216               BAD STMT FUNCTION ARG                         ASFPRO        29     A     
 ASFPRO                                                                                    ASFPRO        30     A     
 ASFPRO    E.UBP    EQU    63                UNBALENCED PARENS                             ASFPRO        31     A     
 ASFPRO    E.UML    EQU    64                N.ACT PARAMS .NE. N.PARAMS IN DEF             ASFPRO        32     A     
 ASFPRO    E.EAP    EQU    199               EMPTY ACTUAL PARAMETER                        ASFPRO        33     A     
 ASFPRO                                                                                    ASFPRO        34     A     
 ASFPRO   *         LOCAL STORAGE                                                          ASFPRO        35     A     
 ASFPRO                                                                                    ASFPRO        36     A     
 ASFPRO    ASFT     BSS    4                 TEMPORARY STORAGE FOR ASFPRO                  ASFPRO        37     A     
 ASFPRO                                                                                    ASFPRO        38     A     
 ASFPRO    WORDB    EQU    ASFT              SYMTAB ADDRESS OF WORD B OF ASF NAME          ASFPRO        39     A     
 ASFPRO    N.PAR    EQU    ASFT+1            NUMBER OF PARAMS                              ASFPRO        40     A     
 ASFPRO    FWA      EQU    ASFT+2            FWA AND LENGTH OF TEXT OF ASF DEF             ASFPRO        41     A     
 ASFPRO    CLEN     EQU    ASFT+2            LENGTH AND NUMBER OF CONSTANTS IN DEF         ASFPRO        42     A     
 ASFPRO                                                                                    ASFPRO        43     A     
 ASFPRO    IASF     EQU    ASFT              INDEX TO ASF DEF IN ASFTAB                    ASFPRO        44     A     
 ASFPRO    O.REM    EQU    ASFT+2            FWA OF REMAINDER OF STMT                      ASFPRO        45     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2313    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASFPRO  
  
 ASFPRO    L.REM    EQU    O.REM+1           LENGTH                                        ASFPRO        46     A     
 ASFPRO                                                                                    ASFPRO        47     A     
 ASFPRO    DMASK    DATA   144BS51           MASK FOR ( ) , DELIMITERS                     ASFPRO        48     A     
 ASFPRO   *CALL     PARSEM                                                                 ASFPRO        49     A     
 ASFPRO             TITLE              ASFDEF - PROCESS ASF DEFINITION                     ASFPRO        50     A     
 ASFPRO   ***                                                                              ASFPRO        51     A     
 ASFPRO   *         ASFDEF- PROCESS ASF DEFINITION                                         ASFPRO        52     A     
 ASFPRO   *                                                                                ASFPRO        53     A     
 ASFPRO   *         SAVES RIGHT HAND SIDE OF ASF STMT IN ASFTAB                            ASFPRO        54     A     
 ASFPRO   *         IN E-LIST FORMAT WITH DUMMY PARAMETERS REPLACED BY                     ASFPRO        55     A     
 ASFPRO   *         SUBSTITUTION FLAGS OF THE FORM:  12/2000B+EL.PC,48/PARAM NUM           ASFPRO        56     A     
 ASFPRO   *         AND ALL CONSTANTS APPEARING IN THE DEFINITION ARE MOVED                ASFPRO        57     A     
 ASFPRO   *         FROM CONSTOR AREA TO ASFTAB, ABOVE THE DEFINITION.                     ASFPRO        58     A     
 ASFPRO   *                                                                                ASFPRO        59     A     
 ASFPRO   *         THE NUMBER OF PARAMETERS AND AN INDEX TO ASFTAB ARE                    ASFPRO        60     A     
 ASFPRO   *         PLACED IN WORD B OF THE SYMTAB ENTRY FOR THE ASF NAME.                 ASFPRO        61     A     
 ASFPRO   *                                                                                ASFPRO        62     A     
 ASFPRO                                                                                    ASFPRO        63     A     
 ASFPRO             ENTRY  ASFDEF                                                          ASFPRO        64     A     
 ASFPRO    ASFDEF   SX6    B1                                                              ASFPRO        65     A     
 ASFPRO             SX7    A2                                                              ASFPRO        66     A     
 ASFPRO             SA6    IDORDL            SYMORD                                        ASFPRO        67     A     
 ASFPRO             SA7    WORDB             ADDRESS OF WORD B                             ASFPRO        68     A     
 ASFPRO             SB3    EL.COMMA                                                        ASFPRO        69     A     
 ASFPRO             SA5    SELIST                                                          ASFPRO        70     A     
 ASFPRO             SA4    X5-1                                                            ASFPRO        71     A     
 ASFPRO             SB4    B0                N.PAR = 0                                     ASFPRO        72     A     
 ASFPRO             SB6    A4-B5             B6 = FWA OF PARAM LIST                        ASFPRO        73     A     
 ASFPRO                                                                                    ASFPRO        74     A     
 ASFPRO   *         SYNTAX CHECK ARG LIST                                                  ASFPRO        75     A     
 ASFPRO                                                                                    ASFPRO        76     A     
 ASFPRO    ASFD1    NEXTE                                                                  ASFPRO        77     A     
 ASFPRO             IF.NE  NAME,ASF.E1       IF NOT A NAME                                 ASFPRO        78     A     
 ASFPRO             SB4    B4+B5             N.PAR = N.PAR+1                               ASFPRO        79     A     
 ASFPRO             NEXTE                                                                  ASFPRO        80     A     
 ASFPRO             EQ     B2,B3,ASFD1       LOOP IF A ,                                   ASFPRO        81     A     
 ASFPRO                                                                                    ASFPRO        82     A     
 ASFPRO             IF.NE  EL.),ASF.E1       IF NO )                                       ASFPRO        83     A     
 ASFPRO             NEXTE                                                                  ASFPRO        84     A     
 ASFPRO             IF.NE  EL.=,ASF.E1       IF NO = S                                     ASFPRO        85     A     
 ASFPRO             SB7    A4-B5             B7 = FWA OF TEXT                              ASFPRO        86     A     
 ASFPRO                                                                                    ASFPRO        87     A     
 ASFPRO             SX6    B4                                                              ASFPRO        88     A     
 ASFPRO             SA6    N.PAR             SAVE NUMBER OF PARAMS                         ASFPRO        89     A     
 ASFPRO             SX7    X6-M.FP-1                                                       ASFPRO        90     A     
 ASFPRO             PL     X7,ASF.E2         IF TOO MANY PARAMS                            ASFPRO        91     A     
 ASFPRO                                                                                    ASFPRO        92     A     
 ASFPRO   *         REPLACE ALL REFERENCES TO PARAMETERS WITH SUBSTITUTION FLAGS           ASFPRO        93     A     
 ASFPRO   *         CHECK FOR DOUBLY DEFINED PARAMETERS                                    ASFPRO        94     A     
 ASFPRO                                                                                    ASFPRO        95     A     
 ASFPRO             SX0    B5                PARAMETER ORDINAL                             ASFPRO        96     A     
 ASFPRO             SB1    EL.PC                                                           ASFPRO        97     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2314    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASFPRO  
  
 ASFPRO             SB4    -B4               -N.PAR                                        ASFPRO        98     A     
 ASFPRO             PX7    B1,X0             SUBSTITUTION FLAG                             ASFPRO        99     A     
 ASFPRO             SB3    EL.EOS                                                          ASFPRO       100     A     
 ASFPRO                                                                                    ASFPRO       101     A     
 ASFPRO    ASFD2    SA3    B6                PARAMETER                                     ASFPRO       102     A     
 ASFPRO             SB6    B6-2                                                            ASFPRO       103     A     
 ASFPRO             SA4    B6                FIRST ITEM OF INTEREST                        ASFPRO       104     A     
 ASFPRO             UX1    B2,X4                                                           ASFPRO       105     A     
 ASFPRO             SB4    B4+B5             DECREMENT NUMBER OF ARGS TO GO                ASFPRO       106     A     
 ASFPRO                                                                                    ASFPRO       107     A     
 ASFPRO    ASFD3    EQ     B2,B3,ASFD4       IF EOS                                        ASFPRO       108     A     
 ASFPRO             IX2    X3-X4             PARAM - ELIST                                 ASFPRO       109     A     
 ASFPRO             NEXTE                                                                  ASFPRO       110     A     
 ASFPRO             NZ     X2,ASFD3          IF NO MATCH                                   ASFPRO       111     A     
 ASFPRO             LE     B2,B5,ASF.E3      IF DUMMY ARG FOLLOWED BY CON OR NAME          ASFPRO       112     A     
 ASFPRO                                                                                    ASFPRO       113     A     
 ASFPRO             SB1    A4-B7                                                           ASFPRO       114     A     
 ASFPRO             PL     B1,ASF.E4         IF DOUBLY DEFINED PARAMETER                   ASFPRO       115     A     
 ASFPRO             SA7    A4+B5             REPLACE WITH PARAMETER MARKER                 ASFPRO       116     A     
 ASFPRO             EQ     ASFD3                                                           ASFPRO       117     A     
 ASFPRO                                                                                    ASFPRO       118     A     
 ASFPRO    ASFD4    IX7    X7+X0             ADVANCE SUBSTITUTION FLAG ORDINAL             ASFPRO       119          I
          -FCC0396
 ASFPRO             NG     B4,ASFD2          IF NOT FINISHED                               ASFPRO       120          I
          -FCC0396
 ASFPRO    ASFD4    SX6    A4-B7                                                           FCC0396       21     A     
 ASFPRO             ZR     X6,ASF.E5         IF FWA OF TEXT = EOS (I.E., NO TEXT).         FCC0396       22     A     
 ASFPRO             IX7    X7+X0             ADVANCE SUBSTITUTION FLAG ORDINAL             FCC0396       23     A     
 ASFPRO             MI     B4,ASFD2          IF NOT FINISHED.                              FCC0396       24     A     
 ASFPRO                                                                                    ASFPRO       121     A     
 ASFPRO   *         SCAN TEXT AGAIN TO FIND FORMAL PARAMS THAT ARE SURROUNDED BY           ASFPRO       122     A     
 ASFPRO   *         PARENS OR COMMA AND MARK THEM SPECIALLY ( EL.PCS = EL.PC+1 )           ASFPRO       123     A     
 ASFPRO   *         SO WE DO NOT SURROUND THE ACTUAL ARGS WITH REDUNDANT PARENS            ASFPRO       124     A     
 ASFPRO   *         DURING EXPANSION                                                       ASFPRO       125     A     
 ASFPRO                                                                                    ASFPRO       126     A     
 ASFPRO             SA4    B6                INTIIALIZE SCAN                               ASFPRO       127     A     
 ASFPRO             SA2    DMASK             DELIMTER MASK FOR ( ) AND ,                   ASFPRO       128     A     
 ASFPRO             SB7    B2+B5             EL.PCS = EL.PC+1                              ASFPRO       129     A     
 ASFPRO             SB1    EL.PC                                                           ASFPRO       130     A     
 ASFPRO             SB7    B1+B5             EL.PCS = EL.PC+1                              ASFPRO       131     A     
 ASFPRO    ASFD4A   NEXTE                                                                  ASFPRO       132     A     
 ASFPRO             EQ     B2,B3,ASFD4B      IF EOS                                        ASFPRO       133     A     
 ASFPRO             NE     B2,B1,ASFD4A      IF NOT A DUMMY ARG                            ASFPRO       134     A     
 ASFPRO             SA3    A4+B5             LASTE                                         ASFPRO       135     A     
 ASFPRO             UX1    B2,X3                                                           ASFPRO       136     A     
 ASFPRO             LX0    B2,X2                                                           ASFPRO       137     A     
 ASFPRO             PL     X0,ASFD4A         IF NOT ( ) OR ,                               ASFPRO       138     A     
 ASFPRO             SA3    A4-B5             NEXTE                                         ASFPRO       139     A     
 ASFPRO             UX1    B2,X3                                                           ASFPRO       140     A     
 ASFPRO             LX0    B2,X2                                                           ASFPRO       141     A     
 ASFPRO             PL     X0,ASFD4A         IF NOT ( ) OR ,                               ASFPRO       142     A     
 ASFPRO             PX6    B7,X4                                                           ASFPRO       143     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2315    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASFPRO  
  
 ASFPRO             SA6    A4                UPDATE PARAM REFERENCE                        ASFPRO       144     A     
 ASFPRO             EQ     ASFD4A                                                          ASFPRO       145     A     
 ASFPRO                                                                                    ASFPRO       146     A     
 ASFPRO   *         MOVE TEXT TO ASF AREA                                                  ASFPRO       147     A     
 ASFPRO                                                                                    ASFPRO       148     A     
 ASFPRO    ASFD4B   SX6    A4                FWA OF TEXT ( EOS )                           ASFPRO       149     A     
 ASFPRO             SX0    B6                LWA+1 ( = )                                   ASFPRO       150     A     
 ASFPRO             IX7    X0-X6                                                           ASFPRO       151     A     
 ASFPRO             SA6    FWA                                                             ASFPRO       152     A     
 ASFPRO             SA7    A6+B5                                                           ASFPRO       153     A     
 ASFPRO             ALLOC  ASF,X7            GET SPACE                                     ASFPRO       154     A     
 ASFPRO             SA3    O.ASF                                                           ASFPRO       155     A     
 ASFPRO             SA4    L.ASF                                                           ASFPRO       156     A     
 ASFPRO             SA2    FWA                                                             ASFPRO       157     A     
 ASFPRO             SA1    A2+B5             LENGTH                                        ASFPRO       158     A     
 ASFPRO             IX3    X3+X4             DESTINATION ADDRESS                           ASFPRO       159     A     
 ASFPRO             IX7    X1+X4                                                           ASFPRO       160     A     
 ASFPRO             SA7    A4                UPDATE ASFTAB LENGTH                          ASFPRO       161     A     
 ASFPRO             LX7    P.RA                                                            ASFPRO       162     A     
 ASFPRO             SA5    N.PAR                                                           ASFPRO       163     A     
 ASFPRO             LX5    P.FARG                                                          ASFPRO       164     A     
 ASFPRO             BX7    X5+X7                                                           ASFPRO       165     A     
 ASFPRO             SA5    WORDB                                                           ASFPRO       166     A     
 ASFPRO             SA4    X5                WORD B OF ASF ENTRY                           ASFPRO       167     A     
 ASFPRO             BX7    X7+X4             SAVE NUMBER OF ARGS AND INDEX                 ASFPRO       168     A     
 ASFPRO             SA7    A4                TO ASFTAB IN WORD B                           ASFPRO       169     A     
 ASFPRO             MOVE   X1,X2,X3    TEXT TO ASF AREA                                    ASFPRO       170     A     
 ASFPRO                                                                                    ASFPRO       171     A     
 ASFPRO   *         MOVE NON LOGICAL CONSTANTS IN ASF DEFINITION TO ASFTAB                 ASFPRO       172     A     
 ASFPRO                                                                                    ASFPRO       173     A     
 ASFPRO   *         PHASE 1 - DETERMINE HOW MUCH SPACE WE NEED AND BUILD A                 ASFPRO       174     A     
 ASFPRO   *         TEMPORARY TABLE WHICH OVERLAYS THE E-LIST.                             ASFPRO       175     A     
 ASFPRO   *         FORMAT:  12/2000B+WC,48/ASFTAB ORD OF CONSTOR ENTRY                    ASFPRO       176     A     
 ASFPRO                                                                                    ASFPRO       177     A     
 ASFPRO             SA1    O.ASF                                                           ASFPRO       178     A     
 ASFPRO             SA2    L.ASF                                                           ASFPRO       179     A     
 ASFPRO             SA5    SELIST                                                          ASFPRO       180     A     
 ASFPRO             SB3    EL.EOS                                                          ASFPRO       181     A     
 ASFPRO             SB7    X5                B7 = FWA OF TEMP TBL                          ASFPRO       182     A     
 ASFPRO             SB6    B0                B6 = LENGTH                                   ASFPRO       183     A     
 ASFPRO             SA0    X1                                                              ASFPRO       184     A     
 ASFPRO             SB4    X2                B4 = INDEX TO ASFTAB                          ASFPRO       185     A     
 ASFPRO             MX7    0                 WC = 0                                        ASFPRO       186     A     
 ASFPRO             SX1    10                                                              ASFPRO       187     A     
 ASFPRO             PX1    X1                                                              ASFPRO       188     A     
 ASFPRO             NX1    X1                X1 = 10.                                      ASFPRO       189     A     
 ASFPRO             MX0    10                                                              ASFPRO       190     A     
 ASFPRO             LX0    10+18             X0 = MASK FOR CHAR COUNT                      ASFPRO       191     A     
 ASFPRO                                                                                    ASFPRO       192     A     
 ASFPRO    ASFD5    SB4    B4-B5                                                           ASFPRO       193     A     
 ASFPRO             SA4    A0+B4             ASFTAB ENTRY                                  ASFPRO       194     A     
 ASFPRO             UX6    B2,X4                                                           ASFPRO       195     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2316    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASFPRO  
  
 ASFPRO             BX5    X0*X4                                                           ASFPRO       196     A     
 ASFPRO             EQ     B2,B3,ASFD6       IF EOS                                        ASFPRO       197     A     
 ASFPRO             NZ     B2,ASFD5          IF NOT A CONSTANT                             ASFPRO       198     A     
 ASFPRO             ZR     X5,ASFD5          IF A LOGICAL CON ( N = 0 )                    ASFPRO       199     A     
 ASFPRO                                                                                    ASFPRO       200     A     
 ASFPRO             AX5    18                                                              ASFPRO       201     A     
 ASFPRO             SX6    X5+9                                                            ASFPRO       202     A     
 ASFPRO             PX4    X6                                                              ASFPRO       203     A     
 ASFPRO             FX3    X4/X1             (N+9)/10                                      ASFPRO       204     A     
 ASFPRO             UX2    X3,B1                                                           ASFPRO       205     A     
 ASFPRO             LX6    B1,X2             WC                                            ASFPRO       206     A     
 ASFPRO             SB2    X6                                                              ASFPRO       207     A     
 ASFPRO             IX7    X6+X7             ADVANCE SUM                                   ASFPRO       208     A     
 ASFPRO             SX2    B4                                                              ASFPRO       209     A     
 ASFPRO             PX6    B2,X2                                                           ASFPRO       210     A     
 ASFPRO             SA6    B7-B6             STORE ENTRY IN TEMP TBL                       ASFPRO       211     A     
 ASFPRO             SB6    B6+B5             LEN = LEN+1                                   ASFPRO       212     A     
 ASFPRO             EQ     ASFD5                                                           ASFPRO       213     A     
 ASFPRO                                                                                    ASFPRO       214     A     
 ASFPRO    ASFD6    ZR     B6,ASFD9          IF NO CONSTANTS                               ASFPRO       215     A     
 ASFPRO             SA7    CLEN                                                            ASFPRO       216     A     
 ASFPRO             SX6    B6                                                              ASFPRO       217     A     
 ASFPRO             SA6    A7+B5             NUMBER OF CONS                                ASFPRO       218     A     
 ASFPRO             ALLOC  ASF,X7            GET SPACE                                     ASFPRO       219     A     
 ASFPRO                                                                                    ASFPRO       220     A     
 ASFPRO   *         PHASE 2 - MOVE THE CONSTANTS TO ASFTAB                                 ASFPRO       221     A     
 ASFPRO                                                                                    ASFPRO       222     A     
 ASFPRO             SA1    O.ASF                                                           ASFPRO       223     A     
 ASFPRO             SA2    L.ASF                                                           ASFPRO       224     A     
 ASFPRO             SA5    SELIST                                                          ASFPRO       225     A     
 ASFPRO             SA3    CLEN                                                            ASFPRO       226     A     
 ASFPRO             SA4    A3+B5             NUMBER OF CONS                                ASFPRO       227     A     
 ASFPRO             MX0    60-18                                                           ASFPRO       228     A     
 ASFPRO             SB7    X5+B5             LWA+1 OF TBL                                  ASFPRO       229     A     
 ASFPRO             SB6    X4                                                              ASFPRO       230     A     
 ASFPRO             IX7    X3+X2                                                           ASFPRO       231     A     
 ASFPRO             SA7    A2                UPDATE ASFTAB LENGTH                          ASFPRO       232     A     
 ASFPRO             IX6    X1+X2                                                           ASFPRO       233     A     
 ASFPRO             SB4    X6                B4 = ASFTAB STORE ADDRESS                     ASFPRO       234     A     
 ASFPRO                                                                                    ASFPRO       235     A     
 ASFPRO    ASFD7    SA5    B7-B6             ENTRY FROM TEMP TBL                           ASFPRO       236     A     
 ASFPRO             SB6    B6-B5                                                           ASFPRO       237     A     
 ASFPRO             UX3    B2,X5             B2 = WC , X3 = ASFTAB INDEX                   ASFPRO       238     A     
 ASFPRO             IX4    X1+X3                                                           ASFPRO       239     A     
 ASFPRO             SA5    X4                E-LIST FOR CON                                ASFPRO       240     A     
 ASFPRO             BX6    X0*X5                                                           ASFPRO       241     A     
 ASFPRO             IX7    X6+X2             INSTALL LOCAL POINTER                         ASFPRO       242     A     
 ASFPRO             IX7    X1+X7             *** MAKE THE ADDRESS ABSOLUTE ***             ASFPRO       243     A     
 ASFPRO             SA7    A5                                                              ASFPRO       244     A     
 ASFPRO             IX3    X1+X2             STORE ADDR                                    ASFPRO       245     A     
 ASFPRO             SX2    X2+B2             UPDATE LEN                                    ASFPRO       246     A     
 ASFPRO             SA5    X5                                                              ASFPRO       247     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2317    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASFPRO  
  
 ASFPRO    ASFD8    SB2    B2-B5             MOVE CONSTANT TO ASFTAB                       ASFPRO       248     A     
 ASFPRO             BX6    X5                                                              ASFPRO       249     A     
 ASFPRO             SA6    B4                                                              ASFPRO       250     A     
 ASFPRO             SB4    B4+B5                                                           ASFPRO       251     A     
 ASFPRO             SA5    A5+B5                                                           ASFPRO       252     A     
 ASFPRO             NZ     B2,ASFD8                                                        ASFPRO       253     A     
 ASFPRO             NZ     B6,ASFD7          IF MORE CONSTANTS                             ASFPRO       254     A     
 ASFPRO                                                                                    ASFPRO       255     A     
 ASFPRO    ASFD9    SA5    RSELECT                                                         ASFPRO       256     A     
 ASFPRO             ZR     X5,PH2RETN        IF R = 0                                      ASFPRO       257     A     
 ASFPRO             ADDREF IDORDL,DEF        DEFINTION OF THE ASF                          ASFPRO       258     A     
 ASFPRO             EQ     PH2RETN                                                         ASFPRO       259     A     
 ASFPRO             SPACE  3                                                               ASFPRO       260     A     
 ASFPRO   *         ERROR EXITS                                                            ASFPRO       261     A     
 ASFPRO                                                                                    ASFPRO       262     A     
 ASFPRO    ASF.E1   SB6    E.PLE             PARAMETER LIST SYNTAX ERROR                   ASFPRO       263     A     
 ASFPRO             EQ     ASF.EX                                                          ASFPRO       264     A     
 ASFPRO                                                                                    ASFPRO       265     A     
 ASFPRO    ASF.E2   SB6    E.TMP             TOO MANY PARAMETERS                           ASFPRO       266     A     
 ASFPRO             EQ     ASF.EX0                                                         ASFPRO       267     A     
 ASFPRO                                                                                    ASFPRO       268     A     
 ASFPRO    ASF.E3   SB6    E.BADA            DUMMY ARG FOLLOWED BY CON OR NAME             ASFPRO       269     A     
 ASFPRO             SA4    A4+B5                                                           ASFPRO       270     A     
 ASFPRO             EQ     ASF.EX                                                          ASFPRO       271     A     
 ASFPRO                                                                                    ASFPRO       272     A     
 ASFPRO    ASF.E4   SB6    E.DDP             DOUBLY DEFINED PARAM                          ASFPRO       273     A     
 ASFPRO             SA4    A4+B5                                                           ASFPRO       274     A     
 ASFPRO             EQ     ASF.EX                                                          ASFPRO       275     A     
 ASFPRO                                                                                    ASFPRO       276     A     
 ASFPRO    ASF.E5   SB6    E.BADA            SYNTAX ERROR IN ASF.                          FCC0396       25     A     
 ASFPRO             EQ     ASF.EX                                                          FCC0396       26     A     
 ASFPRO    ASF.EX0  SA2    IDORDL                                                          ASFPRO       277     A     
 ASFPRO             RJ     PSYM              FORMAT NAME                                   ASFPRO       278     A     
 ASFPRO                                                                                    ASFPRO       279     A     
 ASFPRO    ASF.EX   SB7    PH2RETN                                                         ASFPRO       280          I
          -FCC0396
 ASFPRO             SA5    O.SCR             RESET THE SCRATCH TABLE TO ZERO SPACE         ASFPRO       281          I
          -FCC0396
 ASFPRO    ASF.EX   SA5    O.SCR             RESET SCRATCH TABLE TO ZERO SPACE.            FCC0396       27     A     
 ASFPRO             BX7    X7-X7                                                           ASFPRO       282     A     
 ASFPRO             LX6    X5                                                              ASFPRO       283     A     
 ASFPRO             SA7    S.SCR                                                           ASFPRO       284     A     
 ASFPRO             SA6    FWAWORK                                                         ASFPRO       285     A     
 ASFPRO             EQ     ERPRO                                                           ASFPRO       286          I
          -FCC0396
 ASFPRO             POSTER SEV=FE,NR=**,RETURN=PH2RETN                                     FCC0396       28     A     
 ASFPRO             SPACE  3                                                               ASFPRO       287     A     
 ASFPRO    ASFR.E1  SB6    E.UBP             UNBALANCED PARENS                             ASFPRO       288     A     
 ASFPRO             EQ     ASF.EX0                                                         ASFPRO       289     A     
 ASFPRO                                                                                    ASFPRO       290     A     
 ASFPRO    ASFR.E2  SB6    E.EAP             EMPTY ACTUAL PARAMETER                        ASFPRO       291     A     
 ASFPRO             EQ     ASF.EX0                                                         ASFPRO       292     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2318    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASFPRO  
  
 ASFPRO                                                                                    ASFPRO       293     A     
 ASFPRO    ASFR.E3  SB6    E.RSE             MEMORY OVERFLOW ON EXAPNSION                  ASFPRO       294          I
          -FCC0396
 ASFPRO             SA2    IDORDL                                                          ASFPRO       295          I
          -FCC0396
 ASFPRO    ASFR.E3  SA2    IDORDL            MEMORY OVERFLOW ON EXPANSION.                 FCC0396       29     A     
 ASFPRO             RJ     PSYM                                                            ASFPRO       296     A     
 ASFPRO             EQ     =XFATALER         FATAL TO COMPILATION ERROR                    ASFPRO       297          I
          -FCC0396
 ASFPRO             POSTER SEV=FC,NR=E.RSE   * TABLE OVERFLOW *                            FCC0396       30     A     
 ASFPRO                                                                                    ASFPRO       298     A     
 ASFPRO    ASFR.E4  SB6    E.UML             N.ACT PARAMS .NE. N.PARAMS IN DEF             ASFPRO       299     A     
 ASFPRO             EQ     ASF.EX0                                                         ASFPRO       300     A     
 ASFPRO             TITLE              ASFREF - EXPAND ASF REFERENCE                       ASFPRO       301     A     
 ASFPRO   ***                                                                              ASFPRO       302     A     
 ASFPRO   *         ASFREF- EXPAND ASF REFERENCE                                           ASFPRO       303     A     
 ASFPRO   *                                                                                ASFPRO       304     A     
 ASFPRO                                                                                    ASFPRO       305     A     
 ASFPRO    ASFREF   ENTRY.                                                                 ASFPRO       306     A     
 ASFPRO             SB5    1                                                               ASFPRO       307     A     
 ASFPRO             SA3    NAMFWA                                                          ASFPRO       308     A     
 ASFPRO             SA2    X3-1              WORD B OF ASF                                 ASFPRO       309     A     
 ASFPRO             AX2    P.RA                                                            ASFPRO       310     A     
 ASFPRO             MX0    60-L.FARG                                                       ASFPRO       311     A     
 ASFPRO             SX7    X2                INDEX TO ASFTAB                               ASFPRO       312     A     
 ASFPRO             AX2    P.FARG-P.RA                                                     ASFPRO       313     A     
 ASFPRO             BX6    -X0*X2                                                          ASFPRO       314     A     
 ASFPRO             SA6    N.PAR             NUMBER OF PARAMS                              ASFPRO       315     A     
 ASFPRO             SA7    IASF              INDEX                                         ASFPRO       316     A     
 ASFPRO             ALLAE  SCR               GET SPACE FOR SCRATCH INFO                    ASFPRO       317     A     
 ASFPRO                                                                                    ASFPRO       318     A     
 ASFPRO   *         SYNTAX CHECK THE ARG LIST AND FORM AN ARG SUBSTITUTION                 ASFPRO       319     A     
 ASFPRO   *         TABLE IN THE SCRATCH AREA.                                             ASFPRO       320     A     
 ASFPRO   *         FORMAT:  24/0,18/FWA,18/LEN                                            ASFPRO       321     A     
 ASFPRO   *         SAVE THE ACTUAL PARAMETERS ABOVE THE TABLE IN THE SCRATCH AREA         ASFPRO       322     A     
 ASFPRO                                                                                    ASFPRO       323     A     
 ASFPRO             SA1    O.SCR                                                           ASFPRO       324     A     
 ASFPRO             SA2    S.SCR             ALLOCATION                                    ASFPRO       325     A     
 ASFPRO             SA5    SELIST                                                          ASFPRO       326     A     
 ASFPRO             SA4    N.PAR                                                           ASFPRO       327     A     
 ASFPRO             SA0    X1                A0 = O.SCR                                    ASFPRO       328     A     
 ASFPRO             SB7    X2                B7 = S.SCR                                    ASFPRO       329     A     
 ASFPRO             SB6    X4                B6 = INDEX TO ACTUAL PARAMS                   ASFPRO       330     A     
 ASFPRO             MX0    0                 X0 = ARG NUMBER - 1                           ASFPRO       331     A     
 ASFPRO             SB1    B5                B1 = PAREN COUNT                              ASFPRO       332     A     
 ASFPRO             SA4    X5-1              A4 = E-LIST POINTER                           ASFPRO       333     A     
 ASFPRO             SX5    A4-B5             X5 = FWA OF ARG                               ASFPRO       334     A     
 ASFPRO                                                                                    ASFPRO       335     A     
 ASFPRO    ASFR2    NEXTE                                                                  ASFPRO       336     A     
 ASFPRO             NZ     X1,ASFR2          SKIP CONS , NAMES AND OPS WITH PRECED         ASFPRO       337     A     
 ASFPRO             ZR     B2,ASFR2          IF LOGICAL CONSTANT .FALSE.                   ASFPRO       338     A     
 ASFPRO             IF.NE  EL.(,ASFR3                                                      ASFPRO       339     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2319    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASFPRO  
  
 ASFPRO             SB1    B1+B5             PC = PC+1                                     ASFPRO       340     A     
 ASFPRO             EQ     ASFR2                                                           ASFPRO       341     A     
 ASFPRO    ASFR3    IF.EQ  EL.EOS,ASFR.E1    ERROR IF EOS                                  ASFPRO       342     A     
 ASFPRO             EQ     B1,B5,ASFR4       IF PC = 1                                     ASFPRO       343     A     
 ASFPRO             IF.NE  EL.),ASFR2                                                      ASFPRO       344     A     
 ASFPRO             SB1    B1-B5             PC = PC-1                                     ASFPRO       345     A     
 ASFPRO             EQ     ASFR2                                                           ASFPRO       346     A     
 ASFPRO                                                                                    ASFPRO       347     A     
 ASFPRO   *         OP MUST BE COMMA OR )                                                  ASFPRO       348     A     
 ASFPRO                                                                                    ASFPRO       349     A     
 ASFPRO    ASFR4    SX4    A4                                                              ASFPRO       350     A     
 ASFPRO             IX3    X5-X4             PARAMETER LEN                                 ASFPRO       351     A     
 ASFPRO             ZR     X3,ASFR.E2        IF EMPTY PARAMETER                            ASFPRO       352     A     
 ASFPRO                                                                                    ASFPRO       353     A     
 ASFPRO             SB6    B6+X3             NEW INDEX                                     ASFPRO       354     A     
 ASFPRO             SB4    B6-B5             FWA OF TEXT                                   ASFPRO       355     A     
 ASFPRO             SX2    B4+A0                                                           ASFPRO       356     A     
 ASFPRO             LX2    18                                                              ASFPRO       357     A     
 ASFPRO             BX6    X2+X3             24/0,18/FWA,18/LEN                            ASFPRO       358     A     
 ASFPRO             SB1    X0                                                              ASFPRO       359     A     
 ASFPRO             SA6    A0+B1             STORE ENTRY IN SCRATCH AREA                   ASFPRO       360     A     
 ASFPRO             SX0    X0+B5             ADVANCE PARAMETER ORDINAL                     ASFPRO       361     A     
 ASFPRO             GE     B4,B7,ASFR.E3     IF NOT ENOUGH SPACE                           ASFPRO       362     A     
 ASFPRO                                                                                    ASFPRO       363     A     
 ASFPRO             SA1    X5                                                              ASFPRO       364     A     
 ASFPRO             SB1    X3                LEN                                           ASFPRO       365     A     
 ASFPRO    ASFR5    BX6    X1                MOVE TEXT TO SCR TBL AREA                     ASFPRO       366     A     
 ASFPRO             SA1    A1-B5             NEXT                                          ASFPRO       367     A     
 ASFPRO             SB1    B1-B5                                                           ASFPRO       368     A     
 ASFPRO             SA6    A0+B4                                                           ASFPRO       369     A     
 ASFPRO             SB4    B4-B5                                                           ASFPRO       370     A     
 ASFPRO             NZ     B1,ASFR5                                                        ASFPRO       371     A     
 ASFPRO                                                                                    ASFPRO       372     A     
 ASFPRO             SB1    B5                RESTORE B1                                    ASFPRO       373     A     
 ASFPRO             SX5    A4-B5                                                           ASFPRO       374     A     
 ASFPRO             IF.EQ  EL.COMMA,ASFR2    LOOP FOR NEXT ARG                             ASFPRO       375     A     
 ASFPRO                                                                                    ASFPRO       376     A     
 ASFPRO             SA1    N.PAR                                                           ASFPRO       377     A     
 ASFPRO             IX0    X1-X0                                                           ASFPRO       378     A     
 ASFPRO             NZ     X0,ASFR.E4        IF NUM OF PARAMS .NE. TO NUM IN DEF           ASFPRO       379     A     
 ASFPRO                                                                                    ASFPRO       380     A     
 ASFPRO             SA2    LWAWORK           FWA OF REMAINDER OF STMT                      ASFPRO       381     A     
 ASFPRO             SX4    A4+B5           LWA+1  ( INCLUDING CLOSING PAREN )              ASFPRO       382     A     
 ASFPRO             IX1    X4-X2             LENGTH                                        ASFPRO       383     A     
 ASFPRO             BX6    X1                                                              ASFPRO       384     A     
 ASFPRO             SX7    B6+A0                                                           ASFPRO       385     A     
 ASFPRO             BX3    X7                                                              ASFPRO       386     A     
 ASFPRO             SB6    B6+X1             INCREMENT LENGTH OF SCRATCH AREA              ASFPRO       387     A     
 ASFPRO             SA6    L.REM                                                           ASFPRO       388     A     
 ASFPRO             SA7    O.REM                                                           ASFPRO       389     A     
 ASFPRO             GE     B6,B7,ASFR.E3     IF NOT ENOUGH SPACE                           ASFPRO       390     A     
 ASFPRO                                                                                    ASFPRO       391     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2320    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASFPRO  
  
 ASFPRO             SX6    B6+A0                                                           ASFPRO       392     A     
 ASFPRO             SA6    FWAWORK                                                         ASFPRO       393     A     
 ASFPRO             MOVE   X1,X2,X3    REST OF STMT TO SCRATCH AREA                        ASFPRO       394     A     
 ASFPRO                                                                                    ASFPRO       395     A     
 ASFPRO   *         EXPAND THE ASF                                                         ASFPRO       396     A     
 ASFPRO                                                                                    ASFPRO       397     A     
 ASFPRO    STW      MACRO                    STORE TEXT WORD                               ASFPRO       398     A     
 ASFPRO             SA7    A7-B5                                                           ASFPRO       399     A     
 ASFPRO             ENDM                                                                   ASFPRO       400     A     
 ASFPRO                                                                                    ASFPRO       401     A     
 ASFPRO             SA1    O.ASF                                                           ASFPRO       402     A     
 ASFPRO             SA2    IASF              INDEX TO TEXT IN ASFTAB                       ASFPRO       403     A     
 ASFPRO             SA4    FWAWORK                                                         ASFPRO       404     A     
 ASFPRO             SA5    SELIST                                                          ASFPRO       405     A     
 ASFPRO             SX7    EL.(+2000B        SIMULATE FULLY PARENTHESIZED STMT             ASFPRO       406     A     
 ASFPRO             LX7    48                (SELIST WILL POINT AHEAD SINCE                ASFPRO       407     A     
 ASFPRO                                      ARITH HAS ALREADY PROCESSED A (               ASFPRO       408     A     
 ASFPRO             SB6    X4                B6 = FWAWORK ( LOWER BOUND )                  ASFPRO       409     A     
 ASFPRO             SA7    X5                PRESTORE                                      ASFPRO       410     A     
 ASFPRO             SX6    A7-B5             SELIST = SELIST-1                             ASFPRO       411     A     
 ASFPRO             SA6    A5                DECREMENTING SELIST BY 1 INSURES              ASFPRO       412     A     
 ASFPRO   *                                  THAT A RECURSIVE ASF WILL GENERATE            ASFPRO       413     A     
 ASFPRO   *                                  AN FC ERROR.                                  ASFPRO       414     A     
 ASFPRO                                                                                    ASFPRO       415     A     
 ASFPRO             SA3    O.SCR                                                           ASFPRO       416     A     
 ASFPRO             SB1    X3-1              B1 = O.SCR-1 ( INDEX TO PARAM INFO )          ASFPRO       417     A     
 ASFPRO             IX0    X1+X2                                                           ASFPRO       418     A     
 ASFPRO             SA4    X0                INITIALIZE A4 TO FWA OF ASF TEXT + 1          ASFPRO       419     A     
 ASFPRO                                                                                    ASFPRO       420     A     
 ASFPRO    ASFR6    NEXTE                                                                  ASFPRO       421     A     
 ASFPRO             SB3    B2-EL.PC                                                        ASFPRO       422     A     
 ASFPRO             PL     B3,ASFR8          IF A PARAMETER REF                            ASFPRO       423     A     
 ASFPRO             BX7    X4                                                              ASFPRO       424     A     
 ASFPRO             STW                                                                    ASFPRO       425     A     
 ASFPRO             IF.EQ  EL.EOS,ASFR11     IF END OF ASF TEXT                            ASFPRO       426     A     
 ASFPRO    ASFR6A   SB7    A7                                                              ASFPRO       427     A     
 ASFPRO             GT     B7,B6,ASFR6       IF NO OVERFLOW                                ASFPRO       428     A     
 ASFPRO             EQ     ASFR.E3                                                         ASFPRO       429     A     
 ASFPRO                                                                                    ASFPRO       430     A     
 ASFPRO    ASFR8    SA1    B1+X1             PARAMETER INFO WORD                           ASFPRO       431     A     
 ASFPRO             SB2    X1                LEN                                           ASFPRO       432     A     
 ASFPRO             AX1    18                                                              ASFPRO       433     A     
 ASFPRO             SA2    X1                FIRST WORD                                    ASFPRO       434     A     
 ASFPRO             NZ     B3,ASFR10         IF NO NEED TO ENCLOSE EXPR IN () S            ASFPRO       435     A     
 ASFPRO             NE     B2,B5,ASFR9       IF AN EXPRESSION                              ASFPRO       436     A     
 ASFPRO             BX7    X2                                                              ASFPRO       437     A     
 ASFPRO             STW                                                                    ASFPRO       438     A     
 ASFPRO             EQ     ASFR6A                                                          ASFPRO       439     A     
 ASFPRO                                                                                    ASFPRO       440     A     
 ASFPRO    ASFR9    SX7    LEFT(                                                           ASFPRO       441     A     
 ASFPRO             LX7    48                                                              ASFPRO       442     A     
 ASFPRO             STW                                                                    ASFPRO       443     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2321    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN ASFPRO  
  
 ASFPRO                                                                                    ASFPRO       444     A     
 ASFPRO    ASFR10   BX7    X2                STORE ARGUMENT                                ASFPRO       445     A     
 ASFPRO             SA2    A2-B5                                                           ASFPRO       446     A     
 ASFPRO             SB2    B2-B5                                                           ASFPRO       447     A     
 ASFPRO             STW                                                                    ASFPRO       448     A     
 ASFPRO             NZ     B2,ASFR10                                                       ASFPRO       449     A     
 ASFPRO             NZ     B3,ASFR6A         IF NO NEED FOR A CLOSING PAREN                ASFPRO       450     A     
 ASFPRO                                                                                    ASFPRO       451     A     
 ASFPRO             SX7    RIGHT(                                                          ASFPRO       452     A     
 ASFPRO             LX7    48                                                              ASFPRO       453     A     
 ASFPRO             STW                                                                    ASFPRO       454     A     
 ASFPRO             EQ     ASFR6A                                                          ASFPRO       455     A     
 ASFPRO                                                                                    ASFPRO       456     A     
 ASFPRO   *         END OF EXPANSION - MOVE THE REST OF THE STATEMENT UP                   ASFPRO       457     A     
 ASFPRO                                                                                    ASFPRO       458     A     
 ASFPRO    ASFR11   SA1    L.REM                                                           ASFPRO       459     A     
 ASFPRO             SA2    O.REM                                                           ASFPRO       460     A     
 ASFPRO             SX4    A7+B5                                                           ASFPRO       461     A     
 ASFPRO             IX3    X4-X1             DESTIN ADD ( NEW LWAWORK )                    ASFPRO       462     A     
 ASFPRO                                                                                    ASFPRO       463     A     
 ASFPRO             SA5    LWAWORK           OLD LWAWORK                                   ASFPRO       464     A     
 ASFPRO             SA4    LELIST                                                          ASFPRO       465     A     
 ASFPRO             IX0    X3-X5             NEW - OLD                                     ASFPRO       466     A     
 ASFPRO             IX7    X0+X4                                                           ASFPRO       467     A     
 ASFPRO             SA7    A4                UPDATE LELIST                                 ASFPRO       468     A     
 ASFPRO             BX6    X3                                                              ASFPRO       469     A     
 ASFPRO             SA6    A5                AND LWAWORK                                   ASFPRO       470     A     
 ASFPRO                                                                                    ASFPRO       471     A     
 ASFPRO             MX7    0                                                               ASFPRO       472     A     
 ASFPRO             SB2    X6                                                              ASFPRO       473     A     
 ASFPRO             SA7    S.SCR             CLEAR SCRATCH TABLE ALLOC                     ASFPRO       474     A     
 ASFPRO             LT     B2,B1,ASFR.E3     IF LWAWORK < O.SCR-1                          ASFPRO       475     A     
 ASFPRO                                                                                    ASFPRO       476     A     
 ASFPRO             SX7    B1+B5                                                           ASFPRO       477     A     
 ASFPRO             SA7    FWAWORK                                                         ASFPRO       478     A     
 ASFPRO             MOVE   X1,X2,X3    REST OF STMT BACK                                   ASFPRO       479     A     
 ASFPRO             EQ     ASFREF                                                          ASFPRO       480     A     
 ASFPRO                                                                                    ASFPRO       481     A     
 ASFPRO             END                                                                    ASFPRO       482     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - ASFPRO  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          ASFPRO                     482       474
          FCC0396                     10        10
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CALL    
  
 CALL     *DECK,CALL                                                                       CALL           1     A     
 CALL               IDENT  CALL                                                            CALL           2     A     
 CALL               TITLE              CALL - CALL STATEMENT PROCESSOR                     CALL           3     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2322    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CALL    
  
 CALL     *CALL     SSTCALL                                                                CALL           4     A     
 CALL               SPACE  3                                                               CALL           5     A     
 CALL     ***                                                                              CALL           6     A     
 CALL     *         CALL - CALL STATEMENT PROCESSOR                                        CALL           7     A     
 CALL     *                                                                                CALL           8     A     
 CALL     *         SYNTAX:     CALL NAME                                                  CALL           9     A     
 CALL     *                     CALL NAME(ARG1,ARG2,...,ARGN)                              CALL          10     A     
 CALL     *                     CALL NAME(ARG1,ARG2,...,ARGN),RETURNS(LABEL1,...)          CALL          11     A     
 CALL     *                                                                                CALL          12     A     
 CALL               SPACE  3                                                               CALL          13     A     
 CALL      B=CALL   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             CALL          14     A     
 CALL                                                                                      CALL          15     A     
 CALL               EXT       APLRT,CONVERT,DBGAPL,GEFCM,INITR,DARLIST                     CALL          16     A     
 CALL               EXT       LABEL.,TRACEL,DFLAG,ALLCALL,STRIP                            CALL          17          I
          -FCC0418
 CALL               EXT    ACALL                                                           CALL          18     A     
 CALL               EXT    DOCALL                                                          CALL          19     A     
 CALL               EXT    DOLABR                                                          CALL          20     A     
 CALL               EXT    PH2RETN                                                         CALL          21     A     
 CALL               EXT    RSELECT                                                         CALL          22     A     
 CALL               EXT       ZFLAG                                                        CALL          23     A     
 CALL                                                                                      CALL          24     A     
 CALL      SELIST   EQU    32B               POINTS TO NEXT ELIST ELEMENT                  CALL          25     A     
 CALL      CDCNT    EQU    37B         CARD NO. OF 2ST CARD OF PRESENT STATEMENT           CALL          26     A     
 CALL      NRLN     EQU    64B               NEXT AVAILABLE RESULT NAME                    CALL          27          I
          -FCC0418
 CALL      SYM1     EQU    12B               START ADDR OF SYMTABLE                        CALL          28          I
          -FCC0418
 CALL      MXARGS   EQU    63          MAXIMUM NUMBER OF ARGUMENTS INCLUDING RETS          CALL          29     A     
 CALL                                                                                      CALL          30     A     
 CALL      IDOP     EQU    1                 ID                                            CALL          31     A     
 CALL                                                                                      CALL          32     A     
 CALL     *         DEFINE ERROR MESSAGE NUMBERS.                                          CALL          33     A     
 CALL                                                                                      CALL          34     A     
 CALL      E317     =      317         TOO MANY ARGUMENTS INCLUDING RETURNS                CALL          35     A     
 CALL      E171     =      171         ILL SYNTAX IN CALL STMT                             CALL          36     A     
 CALL      E172     =      172         ILL RETURNS PARAMETER                               CALL          37     A     
 CALL      E182     =      182         RETURNS PARAM IN CALL STMT (NON-ANSI)               CALL          38     A     
 CALL                                                                                      CALL          39     A     
 CALL     *         RLIST MACRO NUMBER AND HEADER WORD                                     CALL          40     A     
 CALL                                                                                      CALL          41     A     
 CALL      M.UCJ    RMEQU  105B        UNCONDITIONAL JUMP MACRO ORDINAL                    CALL          42     A     
 CALL      GEFMC    RMEQU  124B                                                            CALL          43     A     
 CALL                                                                                      CALL          44     A     
 CALL      UCJM     RMHDR  M.UCJ,1                                                         CALL          45     A     
 CALL               BSS    1                                                               CALL          46     A     
 CALL      GEFM     RMHDR  GEFMC,2                                                         CALL          47     A     
 CALL               TITLE                                                                  CALL          48     A     
 CALL     *         LOCAL AND COMMON STORAGE                                               CALL          49     A     
 CALL                                                                                      CALL          50     A     
 CALL      TS1      BSSZ   2                 MACRO BUFFER                                  CALL          51     A     
 CALL      LOCA                              ADDRESS OF CURRENT ARG                        CALL          52     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2323    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CALL    
  
 CALL      CALN                              TEMP FOR CURRENT APLIST NUMBER                CALL          53          I
          -FCC0418
 CALL      JUMP     DATA   0400000000B       30 BIT JUMP INSTRUCTION                       CALL          54          I
          -FCC0418
 CALL      TYPECLL  ENTRY. 1                                                               CALL          55     A     
 CALL      TRCFLG   DATA   1                 TRACE FLAG                                    CALL          56     A     
 CALL      SRLIST   DATA   0                 START OF RETURNS LIST                         CALL          57     A     
 CALL      TRCTS    DATA   0                 HOLDS TRACEL INFORMATION                      CALL          58     A     
 CALL                                                                                      CALL          59     A     
 CALL               USE    /CLNFO/           CALL INFO COMMON WITH ARITH,S ACALL.          CALL          60     A     
 CALL      SUBFWA   BSS    1                 ADR OF ENTRY IN SYMTAB OF SUBR CALLED         CALL          61     A     
 CALL      SUBH     BSS    1                 H-ORDINAL OF SUBRNAME                         CALL          62     A     
 CALL      ARGCNT   BSS    1                 HOLDS THE NUMBER OF ARGUMENTS IN LIST         CALL          63     A     
 CALL      NARGSF   BSSZ   1                 =0 IF THERE IS AN ARGUMENT LIST               CALL          64     A     
 CALL      SUBNAME  BSS    1                 NAME OF CALLED SUBR IN E FORM                 CALL          65     A     
 CALL      ARLPT    BSSZ      1              ARLIST POINT = NO. OF WORDS IN ARLIST         CALL          66     A     
 CALL               USE    *                                                               CALL          67     A     
 CALL                                                                                      CALL          68     A     
 CALL      RETS     VFD    12/2000B+IDOP,48/8HRETURNS                                      CALL          69     A     
 CALL      ACNT     BSS    1                                                               CALL          70     A     
 CALL                                                                                      CALL          71     A     
 CALL               EJECT                                                                  CALL          72     A     
 CALL      CALL     ENTRY.                                                                 CALL          73     A     
 CALL               RJ     INITR                                                           CALL          74     A     
 CALL               RJ     DOCALL                                                          CALL          75     A     
 CALL               MX7    0                                                               CALL          76     A     
 CALL               SA7    NARGSF            INITIALIZE                                    CALL          77     A     
 CALL               SB5    1                                                               CALL          78     A     
 CALL               SA2    SELIST            FETCH ADDRESS OF ELIST                        CALL          79     A     
 CALL               SA1    X2                FETCH FIRST ELIST ELEMENT                     CALL          80     A     
 CALL               UX1    B1,X1                                                           CALL          81     A     
 CALL               NE     B1,B5,CALLE1 IF NOT A NAME                                      CALL          82     A     
 CALL               SX6    X2-1              ADVANCE POINTER                               CALL          83     A     
 CALL               SA6    SELIST            POINT BEYOND NAME                             CALL          84     A     
 CALL               BX7    X1                                                              CALL          85     A     
 CALL               SA7    SUBNAME           SAVE SUB NAME                                 CALL          86     A     
 CALL               SA1    SELIST            ITEM AFTER NAME                               CALL          87     A     
 CALL               SA2    X1                                                              CALL          88     A     
 CALL               UX0    B1,X2                                                           CALL          89     A     
 CALL               SX6    X1-1                                                            CALL          90     A     
 CALL               SB2    EL.(                                                            CALL          91     A     
 CALL               SB3    EL.EOS                                                          CALL          92     A     
 CALL               EQ     B1,B2,CALL1       IF (                                          CALL          93     A     
 CALL               EQ     B1,B3,CALL0       IF EOS                                        CALL          94     A     
 CALL               SB2    EL.COMMA                                                        CALL          95     A     
 CALL               EQ     B1,B2,CALL0       IF ,                                          CALL          96     A     
 CALL               EQ     CALLE1                                                          CALL          97     A     
 CALL                                                                                      CALL          98     A     
 CALL      CALL0    SA6    NARGSF            SET NO ARGS FLAG                              CALL          99     A     
 CALL               EQ     CALL2                                                           CALL         100     A     
 CALL      CALL1    SA6    SELIST            POINT BEYOND (                                CALL         101     A     
 CALL      CALL2    RJ     ACALL                                                           CALL         102     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2324    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CALL    
  
 CALL               SA6    TRCFLG                                                          CALL         103     A     
 CALL               SA1    SELIST            WHAT IS NEXT E -                              CALL         104     A     
 CALL               SB2    EL.EOS                                                          CALL         105     A     
 CALL               SA2    X1                                                              CALL         106     A     
 CALL               SB3    EL.COMMA                                                        CALL         107     A     
 CALL               UX0    B1,X2                                                           CALL         108     A     
 CALL               SX6    X1-1              UP SELIST                                     CALL         109     A     
 CALL               SA6    SELIST                                                          CALL         110     A     
 CALL               EQ     B1,B2,CALL30      IF END OF STATE.                              CALL         111     A     
 CALL               NE     B1,B3,CALLE2 IF NOT A COMMA                                     CALL         112     A     
 CALL                                                                                      CALL         113     A     
 CALL     *         OUTPUT RLIST OP TO ASSEMBLE A FULL WORD OF ZERO IN APLIST              CALL         114     A     
 CALL                                                                                      CALL         115     A     
 CALL      ADDZ     MX1    1                                                               CALL         116          I
          -FCC0418
 CALL               MX1    1                                                               FCC0418       91     A     
 CALL               LX1    1+AP.STP                                                        CALL         117     A     
 CALL               MX2    0                                                               CALL         118     A     
 CALL               IX3    X3-X3                                                           CALL         119     A     
 CALL               MX4    0                                                               CALL         120     A     
 CALL               CALL   APLRT       OUTPUT A -0 APLIST WORD                             CALL         121     A     
 CALL                                                                                      CALL         122     A     
 CALL               SA1    SELIST            IS NEXT E RETURN -                            CALL         123     A     
 CALL               SA2    X1                                                              CALL         124     A     
 CALL               SA3    RETS                                                            CALL         125     A     
 CALL               IX4    X2-X3                                                           CALL         126     A     
 CALL               NZ     X4,CALLE1   IF NOT *RETURNS*                                    CALL         127     A     
 CALL               BX6    X3                                                              CALL         128     A     
 CALL               SA3    ARGCNT                                                          CALL         129     A     
 CALL               BX7    X3                                                              CALL         130     A     
 CALL               SA6    A3                                                              CALL         131     A     
 CALL               SA7    ACNT                                                            CALL         132     A     
 CALL               SA6    =XRETURNS         SET FLAG FOR PASS 2                           CALL         133     A     
 CALL               SA2    A2-1              NEXT E ( -                                    CALL         134     A     
 CALL               SB2    EL.(                                                            CALL         135     A     
 CALL               UX0    B1,X2                                                           CALL         136     A     
 CALL               NE     B1,B2,CALLE3 IF NOT A LEFT PAREN                                CALL         137     A     
 CALL               SX7    A2-1                                                            CALL         138     A     
 CALL               SA7    SRLIST            SAVE START OF LABELS ADDRESS                  CALL         139     A     
 CALL      CALL44   SA2    A2-1              IS NEXTE A LABEL (CONST) -                    CALL         140     A     
 CALL               UX0    B1,X2                                                           CALL         141     A     
 CALL               NZ     B1,CALLE4   IF NOT A CONSTANT                                   CALL         142     A     
 CALL               SA3    ACNT                                                            CALL         143     A     
 CALL               SX7    X3+1                                                            CALL         144     A     
 CALL               SA7    A3                                                              CALL         145     A     
 CALL               SX6    A2                A2 POINTS TO LABEL                            CALL         146     A     
 CALL               AX0    48-3              IS TYPE INT -                                 CALL         147     A     
 CALL               MX1    60-3                                                            CALL         148     A     
 CALL               SA6    SELIST                                                          CALL         149     A     
 CALL               BX3    -X1*X0                                                          CALL         150     A     
 CALL               SX0    X3-T.INT                                                        CALL         151     A     
 CALL               ZR     X0,CALL43   IF TYPE INTEGER                                     CALL         152     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2325    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CALL    
  
 CALL                                                                                      CALL         153     A     
 CALL               POSTERR  NR=E172,SEV=FE,FMT=ELIST,TXT=X2,RETURN=PH2RETN                CALL         154     A     
 CALL                                                                                      CALL         155     A     
 CALL     *         FORM RLIST INSTR TO MAKE APLIST ENTRY FOR THIS LABEL                   CALL         156     A     
 CALL                                                                                      CALL         157     A     
 CALL      CALL43   SA1    TRCFLG                                                          CALL         158     A     
 CALL               NZ     X1,CALL42         BRANCH IF NO TRACING                          CALL         159     A     
 CALL               SA1    TRACEL                                                          CALL         160          I
          -FCC0418
 CALL               SA1    =XTRACEL                                                        FCC0418       92     A     
 CALL               MX7    0                                                               CALL         161     A     
 CALL               BX6    X1                                                              CALL         162     A     
 CALL               SA7    A1                TEMPORARY TRACEL VALUE                        CALL         163     A     
 CALL               SA6    TRCTS             SAVE TRACEL INFORMATION                       CALL         164     A     
 CALL               RJ     DOLABR            GO PROCESS LABEL                              CALL         165     A     
 CALL               MX0    60-L.TRO                                                        CALL         166     A     
 CALL               LX2    60-P.TRO          POSITION LABEL TABLE ORDINAL                  CALL         167     A     
 CALL               BX7    -X0*X2            USED FOR EQ VFD WORD                          CALL         168     A     
 CALL               SX1    B1                ORDINAL FOR LABEL                             CALL         169     A     
 CALL               LX7    18                                                              CALL         170     A     
 CALL               BX7    X7+X1             BUILD INFORMATION WORD FOR LATER              CALL         171     A     
 CALL               SA1    =XN.GL                                                          CALL         172     A     
 CALL               SX2    X1+I.GL     IH  = GL(NGLN)                                      CALL         173     A     
 CALL               LX7    18                                                              CALL         174     A     
 CALL               SX6    X1+B5             INCREMENT NGLN                                CALL         175     A     
 CALL               BX7    X7+X1             BUILD INFORMATION WORD FOR LATER              CALL         176     A     
 CALL               SA6    A1                                                              CALL         177     A     
 CALL               SA3    TRCTS                                                           CALL         178     A     
 CALL               BX6    X3                                                              CALL         179     A     
 CALL               SA6    TRACEL            RESTORE OLD VALUE                             CALL         180     A     
 CALL               SA4    SELIST                                                          CALL         181     A     
 CALL               SA7    X4                SAVE INFORMATION WORD                         CALL         182     A     
 CALL               SB1    X2                                                              CALL         183     A     
 CALL               EQ     CALL45                                                          CALL         184     A     
 CALL                                                                                      CALL         185     A     
 CALL      CALL42   CALL   DOLABR                                                          CALL         186     A     
 CALL                                                                                      CALL         187     A     
 CALL      CALL45   MX1    0           ST = 0                                              CALL         188     A     
 CALL               SX2    B1          IH                                                  CALL         189     A     
 CALL               MX3    0           CA = 0                                              CALL         190     A     
 CALL               IX4    X4-X4       NO DIM CHECK                                        CALL         191     A     
 CALL               CALL   APLRT       APLIST FOR RETURNS LABEL                            CALL         192     A     
 CALL                                                                                      CALL         193     A     
 CALL               SA1    SELIST            IS NEXT EA , -                                CALL         194     A     
 CALL               SA2    X1-1                                                            CALL         195     A     
 CALL               UX0    B1,X2                                                           CALL         196     A     
 CALL               SB2    EL.COMMA                                                        CALL         197     A     
 CALL               SB3    EL.)                                                            CALL         198     A     
 CALL               EQ     B1,B2,CALL44      IF YES (A2 USED BY CALL44)                    CALL         199     A     
 CALL               NE     B1,B3,CALLE3  IF NOT LEFT PARENTHESIS                           CALL         200     A     
 CALL               SA1    A2-1              IS NEXT E EOS -                               CALL         201     A     
 CALL               SB1    EL.EOS                                                          CALL         202     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2326    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CALL    
  
 CALL               UX0    B2,X1                                                           CALL         203     A     
 CALL               NE     B1,B2,CALLE4  IF NOT EOS                                        CALL         204     A     
 CALL               SA4    SELIST                                                          CALL         205     A     
 CALL               SA5    ACNT                                                            CALL         206     A     
 CALL               SX7    X5-MXARGS-1                                                     CALL         207     A     
 CALL               PL     X7,CALLE6   IF MORE THAN MXARGS ARGUMENTS                       CALL         208     A     
 CALL               POSTER SEV=ANSI,NR=E182,FMT=ELIST,TXT=X4+1                             CALL         209     A     
 CALL                                                                                      CALL         210     A     
 CALL      CALL30   SA5    RSELECT                                                         CALL         211     A     
 CALL               ZR     X5,CALL31                                                       CALL         212     A     
 CALL               ADDREF SUBH,REF          ADD A REFERENCE FOR THE NAME                  CALL         213     A     
 CALL                                                                                      CALL         214     A     
 CALL      CALL31   MX6    0                                                               CALL         215     A     
 CALL               SA6    DBGAPL                                                          CALL         216     A     
 CALL               SX7    SUBNAME                                                         CALL         217     A     
 CALL               SA7    A6+1                                                            CALL         218     A     
 CALL               SA1    A6                                                              CALL         219     A     
 CALL               SA3    JUMP                                                            CALL         220          I
          -FCC0418
 CALL               SX7    RTNS              ADDRESS TO RETURN TO                          CALL         221          I
          -FCC0418
 CALL               BX6    X3+X7             FORM 04 JUMP                                  CALL         222          I
          -FCC0418
 CALL               LX6    30                                                              CALL         223          I
          -FCC0418
 CALL               SA6    IGCALL                                                          CALL         224          I
          -FCC0418
 CALL               PLUG   AT=IGCALL,TO=RTNS,VOID=NO                                       FCC0418       93          I
          -F2950F4
 CALL               PLUG   AT=IGCALL,TO=RTNS                                               F2950F4      112     A     
 CALL               SA2    ARGCNT                                                          CALL         225     A     
 CALL               ZR     X2,CALL32                                                       CALL         226          I
          -FCC0418
 CALL               ZR     X2,IGCALL3        IF NO ARGS, GO OUTPUT 60-BIT RJ               FCC0418       94     A     
 CALL                                                                                      CALL         227     A     
 CALL               SA2    =XN.AP                                                          CALL         228     A     
 CALL               SX6    X2+1                                                            CALL         229     A     
 CALL               BX7    X2                                                              CALL         230     A     
 CALL               SA6    A2                                                              CALL         231     A     
 CALL               SA7    TS1                                                             CALL         232     A     
 CALL               EQ     IGCALL4                                                         CALL         233     A     
 CALL                                                                                      CALL         234          I
          -FCC0418
 CALL     *         OUTPUT CODE FOR 60 BIT RJ                                              CALL         235          I
          -FCC0418
 CALL                                                                                      CALL         236          I
          -FCC0418
 CALL      CALL32   EQ     IGCALL3                                                         CALL         237          I
          -FCC0418
 CALL                                                                                      CALL         238     A     
 CALL     *         RETURN TO PROCESS RETURN                                               CALL         239     A     
 CALL                                                                                      CALL         240     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2327    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CALL    
  
 CALL      RTNS     SA1    TYPECLL                                                         CALL         241     A     
 CALL               NZ     X1,RTNS.                                                        CALL         242     A     
 CALL               SX6    1                                                               CALL         243     A     
 CALL               SA6    A1                                                              CALL         244     A     
 CALL               SA1    CDCNT                                                           CALL         245     A     
 CALL               SX7    X1+1              INCREMENT LINE NUMBER FOR RETURNS             CALL         246     A     
 CALL               SA7    A1                                                              CALL         247     A     
 CALL               RJ     FARGLST           FORM DEBUG ARG LIST                           CALL         248     A     
 CALL               SA1    CDCNT                                                           CALL         249     A     
 CALL               SX7    X1-1              RESTORE FORMER LINE COUNT                     CALL         250     A     
 CALL               SA7    A1                                                              CALL         251     A     
 CALL      RTNS.    MX4    0                                                               CALL         252     A     
 CALL               SA5    ARLPT                                                           CALL         253     A     
 CALL               RJ     DARLIST           WRITE MACRO ONTO RLIST FILE                   CALL         254     A     
 CALL                                                                                      CALL         255     A     
 CALL     *         PROCESS RETURNS LIST FOR DEBUG MODE                                    CALL         256     A     
 CALL                                                                                      CALL         257     A     
 CALL               SA1    SRLIST                                                          CALL         258     A     
 CALL               ZR     X1,CALL           EXIT IF NO RETURNS LIST                       CALL         259     A     
 CALL               SA2    TRCFLG                                                          CALL         260     A     
 CALL               NZ     X2,RESET          EXIT IF NO TRACING                            CALL         261     A     
 CALL               SA3    DBGAPL                                                          CALL         262     A     
 CALL               BX6    X3                                                              CALL         263     A     
 CALL               SA6    TS1               SAVE SUBNAME ORDINAL                          CALL         264     A     
 CALL               SA2    N.GL                                                            CALL         265     A     
 CALL               SX6    X2+I.GL     IH = GL(NGLN)                                       CALL         266     A     
 CALL               SA6    UCJM+1                                                          CALL         267     A     
 CALL               WRM    UCJM        OUTPUT UJP MACRO TO RLIST                           CALL         268     A     
 CALL                                                                                      CALL         269     A     
 CALL      NXTLAB   SA1    TS1                                                             CALL         270     A     
 CALL               SX2    X1          IH(CON.)                                            CALL         271     A     
 CALL               AX1    30                                                              CALL         272     A     
 CALL               LX1    AP.CAP                                                          CALL         273     A     
 CALL               BX6    X1+X2                                                           CALL         274     A     
 CALL               SA6    =XAPLST+1                                                       CALL         275     A     
 CALL               WRM    APLST                                                           CALL         276     A     
 CALL               SA1    SRLIST                                                          CALL         277     A     
 CALL               SA3    LABEL.                                                          CALL         278          I
          -FCC0418
 CALL               SA3    =XLABEL.                                                        FCC0418       95     A     
 CALL               SA2    X1                                                              CALL         279     A     
 CALL               LX2    -36                                                             CALL         280     A     
 CALL               SX4    X2-1        CA                                                  CALL         281     A     
 CALL               LX4    AP.CAP                                                          CALL         282     A     
 CALL               BX6    X3+X4                                                           CALL         283     A     
 CALL               SA6    =XAPLST+1                                                       CALL         284     A     
 CALL               WRM    APLST                                                           CALL         285     A     
 CALL               SA3    SRLIST                                                          CALL         286     A     
 CALL               SA4    X3                                                              CALL         287     A     
 CALL               BX6    X4                                                              CALL         288     A     
 CALL               AX6    18          POSITION RN OF DESTINATION LABEL                    CALL         289     A     
 CALL               SX5    X4+I.GL                                                         CALL         290     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2328    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CALL    
  
 CALL               SA6    UCJM+1                                                          CALL         291     A     
 CALL               CALL   WLABM                                                           CALL         292     A     
 CALL               SYMBOL =8RBUGCLR                                                       CALL         293     A     
 CALL               SA3    =XDBGEXT                                                        CALL         294     A     
 CALL               BX7    X2+X3       SET CGS AND EXT BITS                                CALL         295     A     
 CALL               SA7    A2                                                              CALL         296     A     
 CALL               SA1    =XN.AP                                                          CALL         297     A     
 CALL               SX3    B1                                                              CALL         298     A     
 CALL               SX7    X1+B5       INCREMENT N.AP                                      CALL         299     A     
 CALL               SX2    X1+I.AP                                                         CALL         300     A     
 CALL               SA5    GEFM                                                            CALL         301     A     
 CALL               LX2    RM.IHL                                                          CALL         302     A     
 CALL               SA7    A1                                                              CALL         303     A     
 CALL               BX7    X5                                                              CALL         304     A     
 CALL               SA4    CDCNT                                                           CALL         305     A     
 CALL               SA7    DBGAPL      STORE GEF MACRO HEADER                              CALL         306     A     
 CALL               BX6    X2+X3       CREATE 1ST WORD OF GEF PARAMETERS                   CALL         307     A     
 CALL               BX7    X4                                                              CALL         308     A     
 CALL               SA6    A7+B5                                                           CALL         309     A     
 CALL               SA7    A6+B5                                                           CALL         310     A     
 CALL               WRM    DBGAPL                                                          CALL         311     A     
 CALL               WRM    UCJM                                                            CALL         312     A     
 CALL               SA1    SRLIST                                                          CALL         313     A     
 CALL               SA2    X1-1              GET NEXT ELEMENT                              CALL         314     A     
 CALL               SB5    1                                                               CALL         315     A     
 CALL               UX0    B1,X2                                                           CALL         316     A     
 CALL               SB2    EL.)                                                            CALL         317     A     
 CALL               EQ     B1,B2,LABEL       ADD LABEL IF FINISHED                         CALL         318     A     
 CALL               SX6    A2-B5                                                           CALL         319     A     
 CALL               SA6    SRLIST            UPDATE POINTER                                CALL         320     A     
 CALL               EQ     NXTLAB            GO PROCESS NEXT LABEL                         CALL         321     A     
 CALL                                                                                      CALL         322     A     
 CALL      LABEL    SA2    N.GL                                                            CALL         323     A     
 CALL               SX7    X2+B5       NGLN = NGLN + 1                                     CALL         324     A     
 CALL               SA7    A2                                                              CALL         325     A     
 CALL               SX5    X2+I.GL                                                         CALL         326     A     
 CALL               CALL   WLABM       #GLNNN LABEL DEF TO RLIST                           CALL         327     A     
 CALL      RESET    MX6    0                                                               CALL         328     A     
 CALL               SA6    SRLIST            RESET POINTER                                 CALL         329     A     
 CALL               EQ     CALL              EXIT                                          CALL         330     A     
 CALL                                                                                      CALL         331     A     
 CALL     *         ERROR PROCESSING.                                                      CALL         332     A     
 CALL                                                                                      CALL         333     A     
 CALL      CALLE1   SB4    0           (SELIST) POINTS AT ERROR                            CALL         334     A     
 CALL               EQ     CALLE5                                                          CALL         335     A     
 CALL                                                                                      CALL         336     A     
 CALL      CALLE2   SB4    1           (SELIST) POINTS PAST ERROR                          CALL         337     A     
 CALL               EQ     CALLE5                                                          CALL         338     A     
 CALL                                                                                      CALL         339     A     
 CALL      CALLE3   SB4    -1          (SELIST) POINTS BEFORE ERROR                        CALL         340     A     
 CALL               EQ     CALLE5                                                          CALL         341     A     
 CALL                                                                                      CALL         342     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2329    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CALL    
  
 CALL      CALLE4   SB4    -2          (SELIST) POINTS 2 BEFORE ERROR                      CALL         343     A     
 CALL                                                                                      CALL         344     A     
 CALL      CALLE5   SA1    SELIST                                                          CALL         345     A     
 CALL               POSTER SEV=FE,NR=E171,FMT=ELIST,TXT=X1+B4,RETURN=PH2RETN               CALL         346     A     
 CALL                                                                                      CALL         347     A     
 CALL      CALLE6   POSTER SEV=FE,NR=E317,FMT=ELIST,TXT=X4+1,RETURN,PH2RETN                CALL         348          I
          -FCCA537
 CALL      CALLE6   POSTER SEV=FE,NR=E317,FMT=ELIST,TXT=X4+1,RETURN=PH2RETN                FCCA537        6     A     
 CALL               EJECT                                                                  CALL         349     A     
 CALL     ***                                                                              CALL         350     A     
 CALL     *         FARGLST: FORM ARGLIST FOR DEBUG CALLS                                  CALL         351     A     
 CALL     *                  TYPECLL = 0 FOR CALL TRACING                                  CALL         352     A     
 CALL     *                            1 FOR NORMAL RETURNS TRACING                        CALL         353     A     
 CALL     *                                                                                CALL         354     A     
 CALL                                                                                      FCC0623       50     A     
 CALL      FLA      BSS    1                                                               FCC0623       51     A     
 CALL                                                                                      FCC0623       52     A     
 CALL      FARGLST  ENTRY. **                ENTRY/EXIT                                    CALL         355     A     
 CALL               SA1    SUBNAME           SUBNAME IN E-LIST FORM                        CALL         356     A     
 CALL               LX1    12                POSITION AT TOP OF REGISTER                   CALL         357     A     
 CALL               RJ     STRIP             CHECK FOR TRAILING $ IN NAME                  CALL         358          I
          -FCC0418
 CALL               CALL   STRIP             REMOVE POSSIBLE TRAILING $                    FCC0418       96     A     
 CALL               SB1    1                                                               CALL         359     A     
 CALL               RJ     CONVERT           PLACE WORD IN CONS TABLE                      CALL         360     A     
 CALL               BX6    X1                                                              CALL         361     A     
 CALL               SA6    DBGAPL            BEGIN BUILDING ARG LIST TABLE                 CALL         362     A     
 CALL               MX7    0                                                               FCC1588X       9     A     
 CALL               SA1    TYPECLL                                                         CALL         363     A     
 CALL               SB1    1                                                               CALL         364          I
          -FCC1588X 
 CALL               RJ     CONVERT           PLACE SECOND WORD IN CONS TABLE               CALL         365          I
          -FCC1588X 
 CALL               BX6    X1                                                              CALL         366          I
          -FCC1588X 
 CALL               SA6    DBGAPL+1                                                        CALL         367          I
          -FCC1588X 
 CALL               MX7    0                                                               CALL         368          I
          -FCC1588X 
 CALL               SA7    DBGAPL+2                                                        CALL         369          I
          -FCC1588X 
 CALL               SX6    =8RBUGCLL                                                       CALL         370          I
          -FCC1588X 
 CALL               SA6    DBGAPL+3                                                        CALL         371          I
          -FCC1588X 
 CALL               SX6    =8RBUGCL1                                                       FCC1588X      10     A     
 CALL               ZR     X1,FAR2     IF TRACE PRECEDES ACTUAL CALL                       FCC1588X      11     A     
 CALL               SX6    =8RBUGCL2                                                       FCC1588X      12     A     
 CALL      FAR2     SA7    A6+B1                                                           FCC1588X      13     A     
 CALL               SA6    A7+B1                                                           FCC1588X      14     A     
 CALL               SA1    =XSTAPLC                                                        FCC0623       53     A     
 CALL               SX7    0                                                               FCC0623       54          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2330    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CALL    
  
          -FCC1588X 
 CALL               BX6    X1                                                              FCC0623       55     A     
 CALL               SA7    A1          NO STORE TO APLIST CHAIN POINTER FOR DEBUG          FCC0623       56     A     
 CALL               SA6    FLA                                                             FCC0623       57     A     
 CALL               SA1    DBGAPL                                                          CALL         372     A     
 CALL               SA2    N.AP                                                            CALL         373     A     
 CALL               BX6    X2                                                              CALL         374     A     
 CALL               SX7    X2+1                                                            CALL         375     A     
 CALL               SA7    A2                                                              CALL         376     A     
 CALL               RJ     IGCALL            GENERATE CALL MACRO                           CALL         377     A     
 CALL               SA1    =8RBUGCLL                                                       CALL         378          I
          -FCC1588X 
 CALL               SB7    *+1                                                             CALL         379          I
          -FCC1588X 
 CALL               EQ     SYMBOL            WILL ALWAYS RETURN TO FOUND ADDRESS           CALL         380          I
          -FCC1588X 
 CALL               SA2    DBGAPL+2    (X2) = ADDR OF DEBUG ROUTINE NAME                   FCC1588X      15     A     
 CALL               SYMBOL X2,*+1-*P/60D     SYMBOL GUARANTEED TO BE IN SYMTAB             FCC1588X      16     A     
 CALL               SX6    T.CGS             PLACE TYPE CGS IN SYMTAB WORD                 CALL         381     A     
 CALL               LX6    P.TYP                SO REFERENCE WONT APPEAR IN                CALL         382     A     
 CALL               BX7    X6+X2                THE REFERENCE MAP                          CALL         383     A     
 CALL               SA7    A2                                                              CALL         384     A     
 CALL               SA1    FLA                                                             FCC0623       58     A     
 CALL               BX6    X1                                                              FCC0623       59     A     
 CALL               SA6    STAPLC                                                          FCC0623       60     A     
 CALL               EQ     FARGLST                                                         CALL         385     A     
 CALL               TITLE              IGCALL - INTERNALLY GENERATED CALL                  CALL         386     A     
 CALL     ***                                                                              CALL         387     A     
 CALL     *         IGCALL - FORM AND WRITE RLIST FOR A SUBROUTINE CALL                    CALL         388     A     
 CALL     *                                                                                CALL         389     A     
 CALL     *         ENTRY:                                                                 CALL         390     A     
 CALL     *                A1 = ADDRESS OF THE PARAMETER LIST                              CALL         391     A     
 CALL     *                X6 = APLIST NUMBER FOR ARG LIST, IF ANY                         CALL         392     A     
 CALL     *                FORMAT OF THE PARAMETER LIST IS:                                CALL         393     A     
 CALL     *                12/0,18/CA,30/IH FOR ARG N , ...                                CALL         394     A     
 CALL     *                A ZERO WORD                                                     CALL         395     A     
 CALL     *                VFD  60/=8R_SUBROUTINE NAME                                     CALL         396     A     
 CALL     *                                                                                CALL         397     A     
 CALL      IGCALL2  MX0    1                 NOT IN TABLE                                  CALL         398     A     
 CALL               LX0    1+P.EXT                                                         CALL         399     A     
 CALL               BX7    X0+X2             SET EXTERNAL BIT                              CALL         400     A     
 CALL               SA7    A2                                                              CALL         401     A     
 CALL                                                                                      CALL         402     A     
 CALL               SA1    TS1               APLIST NUMBER/0                               CALL         403     A     
 CALL               SX2    B1                IH OF FUNCTION                                CALL         404     A     
 CALL               SA5    A1+B5                                                           CALL         405     A     
 CALL               SA4    =XSTAPLC                                                        CALL         406     A     
 CALL               SA3    CDCNT       LINE COUNT                                          CALL         407     A     
 CALL               RJ     GEFCM                                                           CALL         408     A     
 CALL               RJ     DOCALL            INFORM DOPROC OF EXTERNAL CALL                CALL         409     A     
 CALL                                                                                      CALL         410     A     
 CALL      IGCALL   ENTRY.                                                                 CALL         411     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2331    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CALL    
  
 CALL               MX7    0                                                               CALL         412     A     
 CALL               ZR     X1,IGCALL3        IF NO ARGS                                    CALL         413     A     
 CALL                                                                                      CALL         414     A     
 CALL               SA6    TS1                                                             CALL         415     A     
 CALL      IGCALL.L SX6    A1+1                                                            CALL         416     A     
 CALL               MX0    30                                                              CALL         417     A     
 CALL               SA6    LOCA              SAVE NEXT WORD ADDRESS                        CALL         418     A     
 CALL               BX3    X0*X1             EXTRACT CA                                    CALL         419     A     
 CALL               LX3    30                                                              CALL         420     A     
 CALL               BX2    -X0*X1            EXTRACT IH                                    CALL         421     A     
 CALL               MX1    0                                                               CALL         422     A     
 CALL               IX4    X4-X4                                                           CALL         423     A     
 CALL               RJ     APLRT                                                           CALL         424     A     
 CALL               SA2    LOCA                                                            CALL         425     A     
 CALL               SA1    X2                                                              CALL         426     A     
 CALL               NZ     X1,IGCALL.L       LOOP IF MORE ARGS                             CALL         427     A     
 CALL                                                                                      CALL         428     A     
 CALL     *         FORM RLIST FOR  SA1  [APN                                              CALL         429     A     
 CALL                                                                                      CALL         430     A     
 CALL      IGCALL4  MX6    0                                                               CALL         431     A     
 CALL               SA6    TS1+1                                                           CALL         432     A     
 CALL                                                                                      CALL         433     A     
 CALL     *         FORM A RETURN JUMP TO THE SUBROUTINE                                   CALL         434     A     
 CALL                                                                                      CALL         435     A     
 CALL      IGCALL1  SA2    A1+1              ADDRESS OF SUB NAME                           CALL         436     A     
 CALL               SA1    X2                FETCH NAME                                    CALL         437     A     
 CALL               SYMBOL ,IGCALL2          ENTER NAME IN SYMTAB                          CALL         438     A     
 CALL                                                                                      CALL         439     A     
 CALL      IGCALL3  SX6    A1                                                              CALL         440     A     
 CALL               SA6    LOCA              SAVE ADDR OF DBGAPL                           CALL         441     A     
 CALL               MX1    0                                                               CALL         442     A     
 CALL               SA2    ZFLAG                                                           CALL         443     A     
 CALL               ZR     X2,IGCALL5        IF NO ZERO WORD LOAD REQUIRED                 CALL         444     A     
 CALL               SB1    2                                                               CALL         445     A     
 CALL               MX2    0                                                               CALL         446     A     
 CALL               CALL   CONVERT     DOUBLE ZERO WORD IN CONTAB ( FOR ADDSUB LP          CALL         447     A     
 CALL               SX2    I.AP                                                            CALL         448     A     
 CALL      IGCALL5  MX0    30                                                              CALL         449     A     
 CALL               BX6    -X0*X1            IH OF CON.                                    CALL         450     A     
 CALL               IX6    X6-X2                                                           CALL         451     A     
 CALL               SA6    TS1                                                             CALL         452     A     
 CALL               BX7    X0*X1             CA                                            CALL         453     A     
 CALL               LX7    30                                                              CALL         454     A     
 CALL               SA7    A6+1                                                            CALL         455     A     
 CALL               SA2    LOCA              RESTORE ADDR OF DBGAPL                        CALL         456     A     
 CALL               SA1    X2                                                              CALL         457     A     
 CALL               EQ     IGCALL1                                                         CALL         458     A     
 CALL               END                                                                    CALL         459     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2332    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CALL    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CALL                       459       428
          FCC0418                      6         5
          FCC0623                     11        10
          FCC1588X                     8         8
          F2950F4                      1         1
          FCCA537                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GOTO    
  
 GOTO     *DECK     GOTO                                                                   GOTO           1     A     
 GOTO               IDENT  GOTO                                                            GOTO           2     A     
 GOTO      GOTO     TITLE  GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR                      GOTO           3     A     
 GOTO     *CALL     SSTCALL                                                                GOTO           4     A     
 GOTO      GOTO     SPACE  3                                                               GOTO           5     A     
 GOTO     **        GOTO - ASSIGN AND GOTO STATEMENT PROCESSOR.                            GOTO           6     A     
 GOTO     *                                                                                GOTO           7     A     
 GOTO     *         STATEMENTS PROCESSED -                                                 GOTO           8     A     
 GOTO     *                                                                                GOTO           9     A     
 GOTO     *                GOTO <LABEL> <EOS>                                              GOTO          10     A     
 GOTO     *                GOTO <IVAR> , <LABEL LIST> <EOS>                                GOTO          11     A     
 GOTO     *                GOTO <LABEL LIST> , <EXPRESSION> <EOS>                          GOTO          12     A     
 GOTO     *                GOTO <LABEL LIST> <EXPRESSION> <EOS>                            GOTO          13     A     
 GOTO     *                <LABEL LIST> ::= (<LABEL>,<LABEL>,...)                          GOTO          14     A     
 GOTO     *                                                                                GOTO          15     A     
 GOTO                                                                                      GOTO          16     A     
 GOTO      B=GOTO   RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             GOTO          17     A     
 GOTO               EXT    ERPRO,ASAER,ERPROI                                              GOTO          18     A     
 GOTO               EXT    DFLAG,OPTLVL,IGCALL,RSELECT                                     GOTO          19     A     
 GOTO               EXT    DOFLAG,GOTOSFL,LABEL.,ST.,TRACEL                                GOTO          20     A     
 GOTO               TABLES LTAB                                                            GOTO          21     A     
 GOTO                                                                                      GOTO          22     A     
 GOTO      SYM1     EQU    12B                                                             GOTO          23     A     
 GOTO      DIM1     EQU    17B                                                             GOTO          24     A     
 GOTO      SELIST   EQU    32B                                                             GOTO          25     A     
 GOTO      CLABEL   EQU    23B                                                             GOTO          26     A     
 GOTO      DUKE     EQU    37B               BINARY LINE COUNT                             GOTO          27     A     
 GOTO      NLABEL   EQU    60B                                                             GOTO          28     A     
 GOTO      NRLN     EQU    64B                                                             GOTO          29     A     
 GOTO               EJECT                                                                  GOTO          30     A     
 GOTO     *         ERROR NUMBERS                                                          GOTO          31     A     
 GOTO                                                                                      GOTO          32     A     
 GOTO      E.GO1    EQU    101               GO TO STMT - SYNTAX ERROR                     GOTO          33     A     
 GOTO      E.GO2    EQU    102               MISSING OR SYNTAX ERROR IN LABEL LIST         GOTO          34     A     
 GOTO      E.GOASA  EQU    103               GO TO STMT - NON USASA USEAGES                GOTO          35     A     
 GOTO      E.GO193  EQU    193               STMT BRANCHS TO ITSELF                        GOTO          36     A     
 GOTO      E.GOEFF  EQU    312         IF STATEMENT MORE EFFICIENT THAN GOTO               GOTO          37     A     
 GOTO                                                                                      GOTO          38     A     
 GOTO     *         RLIST MACRO NUMBERS                                                    GOTO          39     A     
 GOTO                                                                                      GOTO          40     A     
 GOTO      M.UCJ    RMEQU  105B        UNCONDITIONAL JUMP MACRO ORDINAL                    GOTO          41     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2333    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GOTO    
  
 GOTO      M.AGO    RMEQU  107B        ASSIGNED GO TO MACRO ORDINAL                        GOTO          42     A     
 GOTO      M.CGO    RMEQU  110B        COMPUTED GO TO MACRO ORDINAL                        GOTO          43     A     
 GOTO      M.LOAD   RMEQU  133B        LOAD                                                GOTO          44     A     
 GOTO      M.STOR   RMEQU  134B        STORE                                               GOTO          45     A     
 GOTO      M.XMIT   RMEQU  135B        XMIT                                                GOTO          46     A     
 GOTO      M.JPB0   RMEQU  416B        JP B0+0 MACRO ORDINAL                               GOTO          47     A     
 GOTO                                                                                      GOTO          48     A     
 GOTO     *         RLIST MACRO HEADER WORDS                                               GOTO          49     A     
 GOTO                                                                                      GOTO          50     A     
 GOTO      UCJM     RMHDR  M.UCJ,1                                                         GOTO          51     A     
 GOTO      AGOMAC   RMHDR  M.AGO,2                                                         GOTO          52     A     
 GOTO      CGOM     RMHDR  M.CGO,3                                                         GOTO          53     A     
 GOTO      JPB0M    RMHDR  M.JPB0,0                                                        GOTO          54     A     
 GOTO      LOAD     RMHDR  M.LOAD,3                                                        GOTO          55     A     
 GOTO      XMIT     RMHDR  M.XMIT,1                                                        GOTO          56     A     
 GOTO      STOR     RMHDR  M.STOR,3                                                        GOTO          57     A     
 GOTO               SPACE  3                                                               GOTO          58     A     
 GOTO               USE    /MACBUF/                                                        GOTO          59     A     
 GOTO      BRSELF                            BRANCH TO CURRENT LABEL FLAG                  GOTO          60     A     
 GOTO      ASA                               ASA FLAG                                      GOTO          61     A     
 GOTO      MACBUF   BSSZ   7                 MACRO BUFFER                                  GOTO          62     A     
 GOTO      TEMP     BSSZ   1                 A GENERAL TEMPORARY                           GOTO          63     A     
 GOTO               BSSZ   4                 PADDING                                       GOTO          64     A     
 GOTO               USE    *                                                               GOTO          65     A     
 GOTO                                                                                      GOTO          66     A     
 GOTO               USE    /STSORD/                                                        GOTO          67     A     
 GOTO      STSORD   BSS    1                 HOLDS ORDINAL FOR ST. ARRAY                   GOTO          68     A     
 GOTO               USE    *                                                               GOTO          69     A     
 GOTO                                                                                      GOTO          70     A     
 GOTO      AGOCALL  EQU    MACBUF+6          4 WORD BUFFER FOR IGCALL PARAM LIST           GOTO          71     A     
 GOTO               TITLE              PLAB - PROCESS A LIST OF TRANSFER LABELS            GOTO          72     A     
 GOTO     ***                                                                              GOTO          73     A     
 GOTO     *         PLAB - PROCESS A LIST OF TRANSFER LABELS                               GOTO          74     A     
 GOTO     *                                                                                GOTO          75     A     
 GOTO     *         ENTRY:                                                                 GOTO          76     A     
 GOTO     *                SELIST POINTS TO THE FIRST TRANSFER LABEL                       GOTO          77     A     
 GOTO     *                A0 = ADDRESS FOR RETURN IN CASE OF AN ERROR                     GOTO          78     A     
 GOTO     *                B6 = ERROR NUMBER TO BE USED IN CASE OF A SYNTAX ERROR          GOTO          79     A     
 GOTO     *                B7 = E LIST CODE FOR LIST TERMINATOR                            GOTO          80     A     
 GOTO     *                                                                                GOTO          81     A     
 GOTO     *         EXIT:                                                                  GOTO          82     A     
 GOTO     *                A1,X1 = SELIST,(SELIST) POINTS PAST THE TERMINATOR              GOTO          83     A     
 GOTO     *                O.LTAB = FWA OF THE LIST OF LABELS                              GOTO          84     A     
 GOTO     *                X6 = (L.LTAB) = NUMBER OF LABELS                                GOTO          85     A     
 GOTO     *                X7 = 10H_LABEL  FOR THE LAST LABEL                              GOTO          86     A     
 GOTO     *                A0 = (SYM1)                                                     GOTO          87     A     
 GOTO     *                ENTRIES IN "LTAB" HAVE THE FORMAT:                              GOTO          88     A     
 GOTO     *                  12/2000B+OC.UCJ,48/SYMTAB ORDINAL                             GOTO          89     A     
 GOTO     *                                                                                GOTO          90     A     
 GOTO                                                                                      GOTO          91     A     
 GOTO      PLAB     ENTRY.                                                                 GOTO          92     A     
 GOTO                                                                                      GOTO          93     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2334    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GOTO    
  
 GOTO     *         RUN A SYNTAX CHECK ON THE LIST AND COUNT THE NUMBER OF LABELS          GOTO          94     A     
 GOTO                                                                                      GOTO          95     A     
 GOTO               SA1    SELIST                                                          GOTO          96     A     
 GOTO               SB4    EL.COMMA                                                        GOTO          97     A     
 GOTO               MX7    0                 NUMBER OF LABELS                              GOTO          98     A     
 GOTO               SB1    X1                                                              GOTO          99     A     
 GOTO               MX0    59                X0 = -1                                       GOTO         100     A     
 GOTO                                                                                      GOTO         101     A     
 GOTO      PLABL    SA3    B1                LABEL                                         GOTO         102     A     
 GOTO               SA4    B1-B5             SEPERATOR                                     GOTO         103     A     
 GOTO               UX5    B2,X3                                                           GOTO         104     A     
 GOTO               SB1    A4-B5             ADVANCE E LIST POINTER                        GOTO         105     A     
 GOTO               UX6    B3,X4                                                           GOTO         106     A     
 GOTO               NZ     B2,PLABE          IF NOT A CONSTANT                             GOTO         107     A     
 GOTO               IX7    X7-X0             NLAB = NLAB+1                                 GOTO         108     A     
 GOTO               AX5    45                                                              GOTO         109     A     
 GOTO               SX6    X5-T.INT                                                        GOTO         110     A     
 GOTO               NZ     X6,PLABE          IF NOT TYPE INTEGER                           GOTO         111     A     
 GOTO               EQ     B3,B4,PLABL       LOOP IF A COMMA                               GOTO         112     A     
 GOTO               NE     B3,B7,PLABE       IF NO PROPER TERMINATOR                       GOTO         113     A     
 GOTO                                                                                      GOTO         114     A     
 GOTO               SA7    TEMP              SAVE NUMBER OF LABELS                         GOTO         115     A     
 GOTO               ALLOC  LTAB,X7           GET SPACE                                     GOTO         116     A     
 GOTO               SA1    SELIST                                                          GOTO         117     A     
 GOTO               SA2    TEMP                                                            GOTO         118     A     
 GOTO               BX7    X2                                                              GOTO         119     A     
 GOTO               SA7    L.LTAB                                                          GOTO         120     A     
 GOTO               MX6    0                                                               GOTO         121     A     
 GOTO               SA6    A2                CLEAR INDEX TO LTAB                           GOTO         122     A     
 GOTO                                                                                      GOTO         123     A     
 GOTO     *         LOOP THROUGH THE LIST AGAIN AND FORM THE TABLE                         GOTO         124     A     
 GOTO                                                                                      GOTO         125     A     
 GOTO      PLAB2    SA2    X1                E LIST FOR THE LABEL                          GOTO         126     A     
 GOTO               CALL   DOLABR            GET SYMTAB ORDINAL, ETC.                      GOTO         127     A     
 GOTO               SA3    CLABEL                                                          GOTO         128     A     
 GOTO               SA4    O.LTAB                                                          GOTO         129     A     
 GOTO               MX0    60-L.TRO                                                        GOTO         130     A     
 GOTO               LX2    60-P.TRO          POSITION LABEL TABLE ORDINAL                  GOTO         131     A     
 GOTO               BX5    -X0*X2            GET LABEL TABLE ORDINAL                       GOTO         132     A     
 GOTO               LX5    R1.INP                                                          GOTO         133     A     
 GOTO               IX6    X7-X3                                                           GOTO         134     A     
 GOTO               SA3    TEMP              TABLE INDEX                                   GOTO         135     A     
 GOTO               NZ     X6,PLAB2A         IF NOT A BRANCH TO THE CURRENT LABEL          GOTO         136     A     
 GOTO               SA6    BRSELF            CLEAR FLAG                                    GOTO         137     A     
 GOTO                                                                                      GOTO         138     A     
 GOTO      PLAB2A   SA1    SELIST                                                          GOTO         139     A     
 GOTO               SB3    OC.UJP                                                          GOTO         140     A     
 GOTO               SX1    X1-2                                                            GOTO         141     A     
 GOTO               IX0    X4+X3             TABLE ADDRESS                                 GOTO         142     A     
 GOTO               BX6    X1                                                              GOTO         143     A     
 GOTO               SA6    A1                UPDATE SELIST                                 GOTO         144     A     
 GOTO               SX4    B1                                                              GOTO         145     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2335    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GOTO    
  
 GOTO               BX4    X5+X4             FORM CA, I, H WORD                            GOTO         146     A     
 GOTO               PX6    B3,X4                                                           GOTO         147     A     
 GOTO               SA6    X0                STORE ENTRY IN LTAB                           GOTO         148     A     
 GOTO                                                                                      GOTO         149     A     
 GOTO               SA5    L.LTAB                                                          GOTO         150     A     
 GOTO               SX6    X3+B5             INDEX = INDEX+1                               GOTO         151     A     
 GOTO               SA6    A3                UPDATE TEMP                                   GOTO         152     A     
 GOTO               IX0    X6-X5                                                           GOTO         153     A     
 GOTO               NG     X0,PLAB2          LOOP IF TEMP < L.LTAB                         GOTO         154     A     
 GOTO               EQ     PLAB                                                            GOTO         155     A     
 GOTO                                                                                      GOTO         156     A     
 GOTO     *         SYNTAX ERROR IN THE LIST OF LABELS                                     GOTO         157     A     
 GOTO                                                                                      GOTO         158     A     
 GOTO      PLABE    SB7    A0                RETURN ADDRESS                                GOTO         159     A     
 GOTO               EQ     ERPRO                                                           GOTO         160     A     
 GOTO               SPACE  3                                                               GOTO         161     A     
 GOTO      PLAB     MACRO  TERM,ERNUM,RETURN                                               GOTO         162     A     
 GOTO               SA0    RETURN                                                          GOTO         163     A     
 GOTO               SB6    -ERNUM                                                          GOTO         164     A     
 GOTO               SB7    TERM                                                            GOTO         165     A     
 GOTO               RJ     PLAB                                                            GOTO         166     A     
 GOTO               ENDM                                                                   GOTO         167     A     
 GOTO               SPACE  4                                                               GOTO         168     A     
 GOTO      AGVARX   SX2    B1                                                              GOTO         169     A     
 GOTO               RJ     PSYM                                                            GOTO         170     A     
 GOTO               SB6    E.ASGN2                                                         GOTO         171     A     
 GOTO               SB7    =XPH2RETN                                                       GOTO         172     A     
 GOTO               EQ     ERPRO                                                           GOTO         173     A     
 GOTO               TITLE              AGVAR                                               GOTO         174     A     
 GOTO     ***                                                                              GOTO         175     A     
 GOTO     *         AGVAR - PROCESS VARIABLE FOR ASSIGN AND ASSIGNED GOTO STMTS            GOTO         176     A     
 GOTO     *                                                                                GOTO         177     A     
 GOTO     *         ON ENTRY:                                                              GOTO         178     A     
 GOTO     *                X1 = NAME                                                       GOTO         179     A     
 GOTO     *                                                                                GOTO         180     A     
 GOTO     *         ON EXIT:                                                               GOTO         181     A     
 GOTO     *                B1 = SYMTAB ORDINAL                                             GOTO         182     A     
 GOTO     *                X5 = ORDINAL OF VARIABLE OR IH OF EQUIVALENT                    GOTO         183     A     
 GOTO     *                X7 = 0 OR CA OF EQUIVALENT                                      GOTO         184     A     
 GOTO     *                                                                                GOTO         185     A     
 GOTO      AGVAR                                                                           GOTO         186     A     
 GOTO               SYMBOL                   ENTER NAME IN SYMBOL TABLE                    GOTO         187     A     
 GOTO               EQ     AGVAR.T           FIRST OCCURANCE                               GOTO         188     A     
 GOTO                                                                                      GOTO         189     A     
 GOTO               EQ     B1,B5,AGVARX      ERROR IF ORDINAL 1                            GOTO         190     A     
 GOTO               BX3    X1                                                              GOTO         191     A     
 GOTO               LX3    59-P.FUN                                                        GOTO         192     A     
 GOTO               BX4    X2                                                              GOTO         193     A     
 GOTO               LX4    59-P.EXT                                                        GOTO         194     A     
 GOTO               BX5    X3+X4                                                           GOTO         195     A     
 GOTO               NG     X5,AGVARX         ERROR IF A FUNCTION OR EXTERNAL               GOTO         196     A     
 GOTO                                                                                      GOTO         197     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2336    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GOTO    
  
 GOTO      AGVAR1   SX0    B5                                                              GOTO         198     A     
 GOTO               LX0    P.VAR                                                           GOTO         199     A     
 GOTO               BX6    X0+X2             SET VAR BIT                                   GOTO         200     A     
 GOTO               SA6    A2                                                              GOTO         201     A     
 GOTO               AX6    P.TYP                                                           GOTO         202     A     
 GOTO               SX7    X6-T.INT                                                        GOTO         203     A     
 GOTO               NZ     X7,AGVARX         ERROR IF NOT TYPE INTEGER                     GOTO         204     A     
 GOTO               SX5    B1                ORD = ORD OF VARIABLE                         GOTO         205     A     
 GOTO               LX1    59-P.EQU                                                        GOTO         206     A     
 GOTO               PL     X1,AGVAR          EXIT IF NOT EQUIVALENCED                      GOTO         207     A     
 GOTO                                                                                      GOTO         208     A     
 GOTO     *         FETCH BASE AND BIAS OF EQUIVALENCED ENTRY                              GOTO         209     A     
 GOTO                                                                                      GOTO         210     A     
 GOTO               SA3    DIM1                                                            GOTO         211     A     
 GOTO               MX0    60-L.DIMP                                                       GOTO         212     A     
 GOTO               AX2    P.DIMP                                                          GOTO         213     A     
 GOTO               BX2    -X0*X2            EXTRACT DIMP ORDINAL                          GOTO         214     A     
 GOTO               LX2    1                                                               GOTO         215     A     
 GOTO               IX4    X3+X2                                                           GOTO         216     A     
 GOTO               SA5    X4                FETCH ENTRY                                   GOTO         217     A     
 GOTO               AX5    18                                                              GOTO         218     A     
 GOTO               SX7    X5                EXTRACT BIAS                                  GOTO         219     A     
 GOTO               AX5    18                POSITION ORDINAL                              GOTO         220     A     
 GOTO               SX5    X5                                                              GOTO         221     A     
 GOTO               EQ     AGVAR                                                           GOTO         222     A     
 GOTO                                                                                      GOTO         223     A     
 GOTO     *         FIRST OCCURANCE - SET TYPE                                             GOTO         224     A     
 GOTO                                                                                      GOTO         225     A     
 GOTO      AGVAR.T  IX2    X6+X2             ADD TYPE                                      GOTO         226     A     
 GOTO               ZR     X7,AGVAR1         IF NO PREVIOUS USE IN DEBUG STMTS             GOTO         227     A     
 GOTO               CFO    VAR               CHECK SETTING OF DEBUG BITS                   GOTO         228     A     
 GOTO               EQ     AGVAR1                                                          GOTO         229     A     
 GOTO               TITLE              UNCONDITIONAL AND ASSIGNED GOTO S                   GOTO         230     A     
 GOTO      GOTO     ENTRY.                                                                 GOTO         231     A     
 GOTO               MX6    0                                                               GOTO         232     A     
 GOTO               SX7    B5                                                              GOTO         233     A     
 GOTO               SA6    ASA                                                             GOTO         234     A     
 GOTO               SA7    BRSELF                                                          GOTO         235     A     
 GOTO               SA6    =XEQCOUNT                                                       GOTO         236     A     
 GOTO                                                                                      GOTO         237     A     
 GOTO               SA1    SELIST                                                          GOTO         238     A     
 GOTO               SA2    X1                                                              GOTO         239     A     
 GOTO               SA3    A2-B5             FETCH NEXT ENTRY                              GOTO         240     A     
 GOTO               UX7    X2,B2             B2 = CODE FOR FIRST ENTRY                     GOTO         241     A     
 GOTO               UX6    X3,B3             B3 = CODE FOR SECOND ENTRY                    GOTO         242     A     
 GOTO               SB4    B3-EL.EOS         FOR EOS TEST                                  GOTO         243     A     
 GOTO               NZ     B2,GOTOA          IF NOT A CONSTANT                             GOTO         244     A     
 GOTO                                                                                      GOTO         245     A     
 GOTO               SB6    -E.GO1                                                          GOTO         246     A     
 GOTO               NZ     B4,GOTOEX         IF NEXT IS NOT EOS                            GOTO         247     A     
 GOTO                                                                                      GOTO         248     A     
 GOTO               SA1    X2                GET LABEL CONSTANT                            GOTO         249     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2337    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GOTO    
  
 GOTO               SA3    NLABEL            NEXT LINE LABEL                               GOTO         250     A     
 GOTO               IX6    X3-X1             COMPARE                                       GOTO         251     A     
 GOTO               NZ     X6,GOTO.                                                        GOTO         252     A     
 GOTO               SA4    DFLAG             BRANCH TO NEXT STATEMENT NOT                  GOTO         253     A     
 GOTO               NZ     X4,GOTO.             OPTIMIZED IN DEBUG MODE                    GOTO         254     A     
 GOTO               RJ     DOLABR            PROCESS LABEL                                 GOTO         255     A     
 GOTO               SX0    B5                                                              GOTO         256     A     
 GOTO               LX0    P.RSN             POSITION BIT                                  GOTO         257     A     
 GOTO               BX6    -X0*X2            CLEAR RSN BIT FROM WORD B                     GOTO         258     A     
 GOTO               BX7    X6+X4             RESTORE FORMER RSN BIT TO WORD B              GOTO         259     A     
 GOTO               SA7    A2                                                              GOTO         260     A     
 GOTO               EQ     GOTO                                                            GOTO         261     A     
 GOTO      GOTO.    BSS    0                                                               GOTO         262     A     
 GOTO                                                                                      GOTO         263     A     
 GOTO               PLAB   EL.EOS,E.GO2,GOTOX    PROCESS THE LABEL                         GOTO         264     A     
 GOTO                                                                                      GOTO         265     A     
 GOTO               SA1    TRACEL                                                          GOTO         266     A     
 GOTO               SA2    DOFLAG                                                          GOTO         267     A     
 GOTO               IX6    X1-X2                                                           GOTO         268     A     
 GOTO               NG     X6,NOTRU          BRANCH IF NO FLOW TRACING                     GOTO         269     A     
 GOTO               RJ     =XINITR           NEEDED TO SET UP ARLIST BUFFER                GOTO         270     A     
 GOTO               SX2    B1+B1             DOUBLE LABEL ORDINAL                          GOTO         271     A     
 GOTO               SA1    SYM1              START OF SYMTAB                               GOTO         272     A     
 GOTO               IX3    X1-X2             ADDRESS OF SYMTAB ENTRY                       GOTO         273     A     
 GOTO               SA2    X3-1              WORD B OF LABEL ENTRY                         GOTO         274     A     
 GOTO               MX0    60-L.TRO                                                        GOTO         275     A     
 GOTO               LX2    60-P.TRO          POSITION LABEL TABLE ORDINAL                  GOTO         276     A     
 GOTO               BX3    -X0*X2            CA FIELD FOR APLIST                           GOTO         277     A     
 GOTO               SX3    X3-1              ADJUST ORDINAL                                GOTO         278     A     
 GOTO               LX3    30                                                              GOTO         279     A     
 GOTO               SA2    LABEL.            ORDINAL FOR LABEL TABLE                       GOTO         280     A     
 GOTO               BX6    X3+X2             FORM ARGLIST ENTRY                            GOTO         281     A     
 GOTO               SA6    AGOCALL           WORD 1                                        GOTO         282     A     
 GOTO               MX7    0                                                               GOTO         283     A     
 GOTO               SA7    A6+B5             WORD 2                                        GOTO         284     A     
 GOTO               SX6    =8RBUGTRU                                                       GOTO         285     A     
 GOTO               SA6    A7+B5             WORD 3                                        GOTO         286     A     
 GOTO               SA2    =XN.AP                                                          GOTO         287     A     
 GOTO               BX6    X2                                                              GOTO         288     A     
 GOTO               SX7    X2+B5             INCREMENT APLIST NUMBER                       GOTO         289     A     
 GOTO               SA7    A2                                                              GOTO         290     A     
 GOTO               SA1    AGOCALL                                                         GOTO         291     A     
 GOTO               RJ     IGCALL            GENERATE CALL                                 GOTO         292     A     
 GOTO               SA1    =8RBUGTRU                                                       GOTO         293     A     
 GOTO               CALL   ODCM        OUTPUT DEBUG CALL MACRO                             GOTO         294     A     
 GOTO      NOTRU    BSS    0                                                               GOTO         295     A     
 GOTO                                                                                      GOTO         296     A     
 GOTO               SA1    O.LTAB                                                          GOTO         297     A     
 GOTO               SA3    UCJM                                                            GOTO         298     A     
 GOTO               SA2    X1                                                              GOTO         299     A     
 GOTO               BX6    X3                                                              GOTO         300     A     
 GOTO               SX7    X2                                                              GOTO         301     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2338    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GOTO    
  
 GOTO               SA6    MACBUF                                                          GOTO         302     A     
 GOTO               SA7    A6+B5                                                           GOTO         303     A     
 GOTO               WRM    A6          UJP MACRO TO RLIST                                  GOTO         304     A     
 GOTO                                                                                      GOTO         305     A     
 GOTO     *         GO TO EXIT - ISSUE INFORMATIVE DIAGNOSTICS                             GOTO         306     A     
 GOTO                                                                                      GOTO         307     A     
 GOTO      GOTOX    SA1    BRSELF                                                          GOTO         308     A     
 GOTO               NZ     X1,GOTOXX         IF NO BRANCHS TO THE CURRENT LABEL            GOTO         309     A     
 GOTO               SB6    -E.GO193                                                        GOTO         310     A     
 GOTO               SB7    GOTOXX                                                          GOTO         311     A     
 GOTO               EQ     ERPROI                                                          GOTO         312     A     
 GOTO                                                                                      GOTO         313     A     
 GOTO      GOTOXX   SA1    ASA                                                             GOTO         314     A     
 GOTO               ZR     X1,GOTO           EXIT IF NO NON USASA USEAGES                  GOTO         315     A     
 GOTO               SB6    -E.GOASA                                                        GOTO         316     A     
 GOTO               SB7    GOTO                                                            GOTO         317     A     
 GOTO               EQ     ASAER                                                           GOTO         318     A     
 GOTO                                                                                      GOTO         319     A     
 GOTO     *         ERROR EXIT - B6 = ERROR NUMBER                                         GOTO         320     A     
 GOTO                                                                                      GOTO         321     A     
 GOTO      GOTOEX   SB7    GOTOX             ERROR EXIT RETURN ADDRESS                     GOTO         322     A     
 GOTO               EQ     ERPRO                                                           GOTO         323     A     
 GOTO               SPACE  3                                                               GOTO         324     A     
 GOTO      GOTOA    NE     B2,B5,GOTOC       IF NOT A NAME                                 GOTO         325     A     
 GOTO                                                                                      GOTO         326     A     
 GOTO     *         PROCESS ASSIGNED "GO TO" STATEMENT                                     GOTO         327     A     
 GOTO                                                                                      GOTO         328     A     
 GOTO               SB6    -E.GO2                                                          GOTO         329     A     
 GOTO               ZR     B4,GOTOEX         IF NO LIST OF LABELS                          GOTO         330     A     
 GOTO               SX6    B3-EL.COMMA                                                     GOTO         331     A     
 GOTO               SA6    ASA               SET ASA FLAG                                  GOTO         332     A     
 GOTO                                                                                      GOTO         333     A     
 GOTO               NZ     X6,GOTOA1         IF NEXT IS NOT A COMMA                        GOTO         334     A     
 GOTO               SA3    A3-B5             NEXT ELEMENT                                  GOTO         335     A     
 GOTO               UX7    B3,X3                                                           GOTO         336     A     
 GOTO                                                                                      GOTO         337     A     
 GOTO      GOTOA1   SB4    B3-EL.(                                                         GOTO         338     A     
 GOTO               NZ     B4,GOTOEX         IF NOT A (                                    GOTO         339     A     
 GOTO                                                                                      GOTO         340     A     
 GOTO               SX6    A3-B5                                                           GOTO         341     A     
 GOTO               BX1    X2                VARIABLE NAME TO X1                           GOTO         342     A     
 GOTO               SA6    SELIST            SAVE E LIST POINTER                           GOTO         343     A     
 GOTO               RJ     AGVAR             GO ENTER NAME IN SYMTAB AND CHECK  VA         GOTO         344     A     
 GOTO                                                                                      GOTO         345     A     
 GOTO     *         FORM RLIST MACRO                                                       GOTO         346     A     
 GOTO                                                                                      GOTO         347     A     
 GOTO               SA2    AGOMAC            MACRO HEADER WORD                             GOTO         348     A     
 GOTO               SA7    MACBUF+2    CA TO SECOND WORD                                   GOTO         349     A     
 GOTO               LX7    30                                                              GOTO         350     A     
 GOTO               IX7    X7+X5             30/CA,30/IH                                   GOTO         351     A     
 GOTO               SA7    AGOCALL           IN CASE DEBUG IS SELECTED                     GOTO         352     A     
 GOTO               SX7    X7                                                              GOTO         353     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2339    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GOTO    
  
 GOTO               SA7    MACBUF+1    WORD 1 = ORDINAL OF VARIABLE                        GOTO         354     A     
 GOTO               BX7    X2                                                              GOTO         355     A     
 GOTO               SA7    A7-B5                                                           GOTO         356     A     
 GOTO                                                                                      GOTO         357     A     
 GOTO               SA2    RSELECT                                                         GOTO         358     A     
 GOTO               ZR     X2,GOTOA2         IF R = 0                                      GOTO         359     A     
 GOTO               ADDREF B1,REF            ADD A REFERENCE FOR THE VARIABLE              GOTO         360     A     
 GOTO                                                                                      GOTO         361     A     
 GOTO      GOTOA2   PLAB   EL.),E.GO2,GOTOX  PROCESS THE LIST OF LABELS                    GOTO         362     A     
 GOTO                                                                                      GOTO         363     A     
 GOTO               SA2    X1                CHECK FOR EOS                                 GOTO         364     A     
 GOTO               UX3    B3,X2                                                           GOTO         365     A     
 GOTO               SB4    B3-EL.EOS                                                       GOTO         366     A     
 GOTO               SB6    -E.GO1                                                          GOTO         367     A     
 GOTO               NZ     B4,GOTOEX         IF NO END OF STMT                             GOTO         368     A     
 GOTO                                                                                      GOTO         369     A     
 GOTO               SA5    GOTOSFL                                                         GOTO         370     A     
 GOTO               SA2    OPTLVL                                                          GOTO         371     A     
 GOTO               NZ     X5,GOTOA3         IF DEBUG SELECTED                             GOTO         372     A     
 GOTO               SX3    X2-2                                                            GOTO         373     A     
 GOTO               ZR     X3,GOTOA3         IF OPT = 2                                    GOTO         374     A     
 GOTO               SA1    TRACEL                                                          GOTO         375     A     
 GOTO               SA2    DOFLAG                                                          GOTO         376     A     
 GOTO               IX0    X1-X2                                                           GOTO         377     A     
 GOTO               PL     X0,GOTOA3         BRANCH IF FLOW TRACING                        GOTO         378     A     
 GOTO                                                                                      GOTO         379     A     
 GOTO               WRM    MACBUF      ASSIGNED GOTO MACRO TO RLIST                        GOTO         380     A     
 GOTO               EQ     GOTOX                                                           GOTO         381     A     
 GOTO                                                                                      GOTO         382     A     
 GOTO     *         REMOVE REDUNDANT LABELS FROM LTAB                                      GOTO         383     A     
 GOTO                                                                                      GOTO         384     A     
 GOTO      GOTOA3   SA1    O.LTAB                                                          GOTO         385     A     
 GOTO               SX0    B5                X0 = 1                                        GOTO         386     A     
 GOTO               SB2    X6-1              L.LTAB - 1                                    GOTO         387     A     
 GOTO               MX7    0                                                               GOTO         388     A     
 GOTO               SA7    MACBUF+3    CLEAR LABEL FLAG                                    GOTO         389     A     
 GOTO                                                                                      GOTO         390     A     
 GOTO      GOTOAL   SA2    X1+B2             LAST ELEMENT                                  GOTO         391     A     
 GOTO               SB3    B2-B5             J = I-1                                       GOTO         392     A     
 GOTO                                                                                      GOTO         393     A     
 GOTO     +         SA3    X1+B3                                                           GOTO         394     A     
 GOTO               NG     B3,GOTO.L1                                                      GOTO         395     A     
 GOTO               IX4    X3-X2                                                           GOTO         396     A     
 GOTO               SB3    B3-B5                                                           GOTO         397     A     
 GOTO               NZ     X4,*-1            IF NOT THE SAME                               GOTO         398     A     
 GOTO               IX7    X6-X0             ELIMINATE THE LAST ELEMENT                    GOTO         399     A     
 GOTO                                                                                      GOTO         400     A     
 GOTO      GOTO.L1  SB2    B2-B5             DECREMENT LOOP INDEX                          GOTO         401     A     
 GOTO               GT     B2,B5,GOTOAL                                                    GOTO         402     A     
 GOTO                                                                                      GOTO         403     A     
 GOTO               ZR     X5,GOTOA3.        IF NO INDEX CHECKING                          GOTO         404     A     
 GOTO                                                                                      GOTO         405     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2340    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GOTO    
  
 GOTO     *         SET UP CALL "BUGGTA( IVAR , #GLN )"                                    GOTO         406     A     
 GOTO                                                                                      GOTO         407     A     
 GOTO               RJ     =XINITR           NEEDED TO SET UP ARLIST BUFFER                GOTO         408     A     
 GOTO               SA2    =XN.GL                                                          GOTO         409     A     
 GOTO               SX6    X2+I.GL     IH   = GL(NGLN)                                     GOTO         410     A     
 GOTO               SA6    MACBUF+3    FLAG = GL(NGLN)                                     GOTO         411     A     
 GOTO               SX7    X2+B5             INCREMENT NGLN                                GOTO         412     A     
 GOTO               SA6    AGOCALL+1         STORE IH FOR GL IN IGCALL LIST                GOTO         413     A     
 GOTO               SA7    A2                                                              GOTO         414     A     
 GOTO               MX6    0                                                               GOTO         415     A     
 GOTO               SA6    A6+B5             WORD 3 = 0                                    GOTO         416     A     
 GOTO               SX7    =8RBUGGTA                                                       GOTO         417     A     
 GOTO               SA7    A6+B5             WORD 4 = 60/ADDRESS OF NAME                   GOTO         418     A     
 GOTO               SA1    AGOCALL                                                         GOTO         419     A     
 GOTO               SA2    N.AP                                                            GOTO         420     A     
 GOTO               BX6    X2                                                              GOTO         421     A     
 GOTO               SX7    X2+B5             INCREMENT APLIST NUMBER                       GOTO         422     A     
 GOTO               SA7    A2                                                              GOTO         423     A     
 GOTO               RJ     IGCALL                                                          GOTO         424     A     
 GOTO               SA1    =8RBUGGTA                                                       GOTO         425     A     
 GOTO               CALL   ODCM        OUTPUT DEBUG CALL MACRO                             GOTO         426     A     
 GOTO                                                                                      GOTO         427     A     
 GOTO      GOTOA3.  SA1    TRACEL                                                          GOTO         428     A     
 GOTO               SA2    DOFLAG                                                          GOTO         429     A     
 GOTO               IX6    X1-X2                                                           GOTO         430     A     
 GOTO               NG     X6,GOTOA4         BRANCH IF NO FLOW TRACING                     GOTO         431     A     
 GOTO               RJ     =XINITR           NEEDED TO SET UP ARLIST BUFFER                GOTO         432     A     
 GOTO               SA2    N.GL                                                            GOTO         433     A     
 GOTO               SA3    MACBUF+3                                                        GOTO         434     A     
 GOTO               ZR     X3,GLP0     IF GOTOS NOT USED                                   GOTO         435     A     
 GOTO               SX2    X2-1              ADJUSTMENT IF GOTOS USED                      GOTO         436     A     
 GOTO               EQ     GLP1                                                            GOTO         437     A     
 GOTO      GLP0     SX6    X2+I.GL                                                         GOTO         438     A     
 GOTO               SA6    MACBUF+3                                                        GOTO         439     A     
 GOTO      GLP1     SX7    X2+B5             INCREMENT NGLN                                GOTO         440     A     
 GOTO               SA7    A2                                                              GOTO         441     A     
 GOTO               SX6    X2+I.GL                                                         GOTO         442     A     
 GOTO               SA6    AGOCALL+1         WORD 1 OF ARGLIST                             GOTO         443     A     
 GOTO               MX7    0                                                               GOTO         444     A     
 GOTO               SA7    A6+B5             WORD 2                                        GOTO         445     A     
 GOTO               SX6    =8RBUGTRA                                                       GOTO         446     A     
 GOTO               SA6    A7+B5             WORD 3                                        GOTO         447     A     
 GOTO               SA2    N.AP                                                            GOTO         448     A     
 GOTO               BX6    X2                                                              GOTO         449     A     
 GOTO               SX7    X2+B5             INCREMENT APLIST NUMBER                       GOTO         450     A     
 GOTO               SA7    A2                                                              GOTO         451     A     
 GOTO               SA1    AGOCALL                                                         GOTO         452     A     
 GOTO               RJ     IGCALL            GENERATE CALL                                 GOTO         453     A     
 GOTO               SA1    =8RBUGTRA                                                       GOTO         454     A     
 GOTO               CALL   ODCM        OUTPUT DEBUG CALL MACRO                             GOTO         455     A     
 GOTO                                                                                      GOTO         456     A     
 GOTO      GOTOA4   SA1    =XL.LTAB                                                        GOTO         457     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2341    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GOTO    
  
 GOTO               SA2    MACBUF+2                                                        GOTO         458     A     
 GOTO     +         SA3    A2+B5                                                           GOTO         459     A     
 GOTO               ZR     X3,*+1            IF NO LABEL                                   GOTO         460     A     
 GOTO               SX1    X1+B5                                                           GOTO         461     A     
 GOTO               LX1    18          SAVE NUMBER OF LABELS AS SECOND CON                 GOTO         462     A     
 GOTO               BX6    X1+X2                                                           GOTO         463     A     
 GOTO               SA6    A2                                                              GOTO         464     A     
 GOTO               WRM    MACBUF      ASSIGNED GOTO MACRO TO R-LIST                       GOTO         465     A     
 GOTO               SA5    MACBUF+3                                                        GOTO         466     A     
 GOTO               ZR     X5,GOTOA5   IF NO LABEL DEFINITION                              GOTO         467     A     
 GOTO               SB2    OC.LAB                                                          GOTO         468     A     
 GOTO               PX6    B2,X5                                                           GOTO         469     A     
 GOTO               SA6    A5                                                              GOTO         470     A     
 GOTO               WRITEW =XF.RLST,A6,B1                                                  GOTO         471     A     
 GOTO                                                                                      GOTO         472     A     
 GOTO                                                                                      GOTO         473     A     
 GOTO      GOTOA5   SA1    =XO.LTAB                                                        GOTO         474     A     
 GOTO               SA3    =XL.LTAB                                                        GOTO         475     A     
 GOTO               WRITEW =XF.RLST,X1,X3    LABEL LIST TO -RLIST-                         GOTO         476     A     
 GOTO               SA1    OPTLVL                                                          GOTO         477     A     
 GOTO               NZ     X1,GOTOX    IF NOT DEBUG MODE ( OPTLVL " 0 )                    GOTO         478     A     
 GOTO               WRM    JPB0M       JP  B0+0 MACRO TO RLIST                             GOTO         479     A     
 GOTO               EQ     GOTOX                                                           GOTO         480     A     
 GOTO                                                                                      GOTO         481     A     
 GOTO               TITLE              COMPUTED GOTO                                       GOTO         482     A     
 GOTO     *         PROCESS COMPUTED GOTO                                                  GOTO         483     A     
 GOTO                                                                                      GOTO         484     A     
 GOTO      GOTOC    SB4    B2-EL.(                                                         GOTO         485     A     
 GOTO               SB6    -E.GO2                                                          GOTO         486     A     
 GOTO               NZ     B4,GOTOEX         IF FIRST IS NOT A (                           GOTO         487     A     
 GOTO               SX6    A3                                                              GOTO         488     A     
 GOTO               SA6    SELIST            UPDATE SELIST                                 GOTO         489     A     
 GOTO               PLAB   EL.),E.GO2,GOTOX  PROCESS THE LIST OF LABELS                    GOTO         490     A     
 GOTO               SA2    X1                FIRST AFTER )                                 GOTO         491     A     
 GOTO               UX3    B2,X2                                                           GOTO         492     A     
 GOTO               SX6    B2-EL.COMMA                                                     GOTO         493     A     
 GOTO               SA6    ASA                                                             GOTO         494     A     
 GOTO               NZ     X6,GOTOC1         IF NOT A COMMA, FLAG AS NON-ANSI              GOTO         495     A     
 GOTO                                                                                      GOTO         496     A     
 GOTO               SA2    A2-B5             NEXT                                          GOTO         497     A     
 GOTO               UX3    B2,X2                                                           GOTO         498     A     
 GOTO               SX7    A2                                                              GOTO         499     A     
 GOTO               SA7    A1                UPDATE SELIST                                 GOTO         500     A     
 GOTO                                                                                      GOTO         501     A     
 GOTO      GOTOC1   SB3    EL.COMMA          PLACE A COMMA PRIOR TO THE EXPRESSION         GOTO         502     A     
 GOTO               PX7    X7,B3             FOR 'ARITH', SO THAT A MONADIC MINUS          GOTO         503     A     
 GOTO               SA7    A2+B5             WILL BE INTERPRETED PROPERLY.                 GOTO         504     A     
 GOTO               SA4    A2-B5                                                           GOTO         505     A     
 GOTO               SB7    EL.EOS                                                          GOTO         506     A     
 GOTO               UX5    B4,X4                                                           GOTO         507     A     
 GOTO               SB6    -E.GO1                                                          GOTO         508     A     
 GOTO               EQ     B2,B7,GOTOEX      IF NO VARIABLE                                GOTO         509     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2342    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GOTO    
  
 GOTO                                                                                      GOTO         510     A     
 GOTO               NE     B2,B5,GOTOC2      IF FIRST IS NOT A NAME                        GOTO         511     A     
 GOTO               EQ     B4,B7,GOTOC3      IF NEXT IS A EOS                              GOTO         512     A     
 GOTO                                                                                      GOTO         513     A     
 GOTO      GOTOC2   MX7    59                                                              GOTO         514     A     
 GOTO               SA7    ASA               SET ASA FLAG                                  GOTO         515     A     
 GOTO                                                                                      GOTO         516     A     
 GOTO      GOTOC3   CALL   ARITH             EVALUATE THE EXPRESSION                       GOTO         517     A     
 GOTO               ADEXTS =8RGOTOER.                                                      GOTO         518     A     
 GOTO                                                                                      GOTO         519     A     
 GOTO     *         FORM MACRO CALL                                                        GOTO         520     A     
 GOTO                                                                                      GOTO         521     A     
 GOTO      GOTOC5   SA1    TRACEL                                                          GOTO         522     A     
 GOTO               SA2    DOFLAG                                                          GOTO         523     A     
 GOTO               IX6    X1-X2                                                           GOTO         524     A     
 GOTO               NG     X6,NOTRC          BRANCH IF NO FLOW TRACING                     GOTO         525     A     
 GOTO               RJ     =XINITR           NEEDED TO SET UP ARLIST BUFFER                GOTO         526     A     
 GOTO               SX6    B1                                                              GOTO         527     A     
 GOTO               SA6    TEMP+4            SAVE ACGOER. ORDINAL                          GOTO         528     A     
 GOTO               SA3    XMIT              MACRO HEADER WORD                             GOTO         529     A     
 GOTO               SA2    NRLN              NEXT R NUMBER                                 GOTO         530     A     
 GOTO               BX7    X3+X2                                                           GOTO         531     A     
 GOTO               SA7    MACBUF                                                          GOTO         532     A     
 GOTO               SX3    X2-1              FORMER R NUMBER                               GOTO         533     A     
 GOTO               LX3    16                                                              GOTO         534     A     
 GOTO               BX6    X3+X2             MACRO WORD                                    GOTO         535     A     
 GOTO               SA6    A7+B5                                                           GOTO         536     A     
 GOTO               SA3    STOR              MACRO HEADER WORD                             GOTO         537     A     
 GOTO               BX6    X3+X2                                                           GOTO         538     A     
 GOTO               SA6    A6+B5                                                           GOTO         539     A     
 GOTO               SA1    ST.               IH FIELD                                      GOTO         540     A     
 GOTO               BX7    X2                                                              GOTO         541     A     
 GOTO               SA3    STSORD            CA FIELD                                      GOTO         542     A     
 GOTO               BX6    X1                                                              GOTO         543     A     
 GOTO               SA6    A6+B5             IH                                            GOTO         544     A     
 GOTO               SA7    A6+B5             NRLN                                          GOTO         545     A     
 GOTO               SX6    X7+B5             INCREMENT R NUMBER                            GOTO         546     A     
 GOTO               SA6    A2                                                              GOTO         547     A     
 GOTO               BX7    X3                                                              GOTO         548     A     
 GOTO               SA7    A7+B5             CA                                            GOTO         549     A     
 GOTO               SB1    1                                                               GOTO         550     A     
 GOTO               WRITEW =XF.RLST,MACBUF,6 TRANSMIT AND STORE MACROS TO -RLIST-          GOTO         551     A     
 GOTO               SA3    STSORD            ST INDEX                                      GOTO         552     A     
 GOTO               SA2    ST.               ST. SYMTAB ORDINAL                            GOTO         553     A     
 GOTO               SB5    1                                                               GOTO         554     A     
 GOTO               LX3    30                                                              GOTO         555     A     
 GOTO               BX6    X3+X2             IH FOR ARGLIST                                GOTO         556     A     
 GOTO               SA6    AGOCALL           WORD 1 OF ARGLIST                             GOTO         557     A     
 GOTO               SA1    N.GL                                                            GOTO         558     A     
 GOTO               SX7    X1+I.GL                                                         GOTO         559     A     
 GOTO               SA7    A6+B5             WORD 2                                        GOTO         560     A     
 GOTO               SA1    L.LTAB            NUMBER OF LABELS                              GOTO         561     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2343    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GOTO    
  
 GOTO               SB1    B5                                                              GOTO         562     A     
 GOTO               RJ     =XCONVERT         LABEL COUNT TO CONS TABLE                     GOTO         563     A     
 GOTO               SB5    1                                                               GOTO         564     A     
 GOTO               BX6    X1                                                              GOTO         565     A     
 GOTO               MX7    0                                                               GOTO         566     A     
 GOTO               SA1    AGOCALL                                                         GOTO         567     A     
 GOTO               SA6    AGOCALL+2         WORD 3                                        GOTO         568     A     
 GOTO               SA7    A6+B5             WORD 4                                        GOTO         569     A     
 GOTO               SX6    =8RBUGTRC                                                       GOTO         570     A     
 GOTO               SA6    A7+B5             WORD 5                                        GOTO         571     A     
 GOTO               SA2    N.AP                                                            GOTO         572     A     
 GOTO               BX6    X2                                                              GOTO         573     A     
 GOTO               SX7    X2+B5             INCREMENT APLIST NUMBER                       GOTO         574     A     
 GOTO               SA7    A2                                                              GOTO         575     A     
 GOTO               RJ     IGCALL            GENERATE CALL                                 GOTO         576     A     
 GOTO               SA1    =8RBUGTRC                                                       GOTO         577     A     
 GOTO               CALL   ODCM        OUTPUT DEBUG CALL MACRO                             GOTO         578     A     
 GOTO               SA3    LOAD              MACRO HEADER WORD                             GOTO         579     A     
 GOTO               SA2    NRLN                                                            GOTO         580     A     
 GOTO               BX6    X3+X2                                                           GOTO         581     A     
 GOTO               SX7    X2+B5             INCREMENT R NUMBER                            GOTO         582     A     
 GOTO               SA6    MACBUF                                                          GOTO         583     A     
 GOTO               SA7    A2                                                              GOTO         584     A     
 GOTO               SA5    ST.               IH FIELD                                      GOTO         585     A     
 GOTO               LX7    X5                                                              GOTO         586     A     
 GOTO               BX6    X2                                                              GOTO         587     A     
 GOTO               SB1    1                                                               GOTO         588     A     
 GOTO               SA7    A6+B5                                                           GOTO         589     A     
 GOTO               SA6    A7+B5                                                           GOTO         590     A     
 GOTO               SA3    STSORD            CA FIELD                                      GOTO         591     A     
 GOTO               BX7    X3                                                              GOTO         592     A     
 GOTO               SA7    A6+B5                                                           GOTO         593     A     
 GOTO               SX6    X3+B5             INCREMENT STSORD                              GOTO         594     A     
 GOTO               SA6    A3                                                              GOTO         595     A     
 GOTO               WRITEW =XF.RLST,MACBUF,4 LOAD MACRO TO -RLIST-                         GOTO         596     A     
 GOTO               SA1    TEMP+4            SAVED ACGOER. ORDINAL                         GOTO         597     A     
 GOTO               SB5    1                                                               GOTO         598     A     
 GOTO               SB1    X1                                                              GOTO         599     A     
 GOTO                                                                                      GOTO         600     A     
 GOTO      NOTRC    SA3    CGOM              MACRO HEADER WORD                             GOTO         601     A     
 GOTO               SA4    N.GL                                                            GOTO         602     A     
 GOTO               SA5    NRLN                                                            GOTO         603     A     
 GOTO               SX6    X5+B5             NRLN = NRLN+1                                 GOTO         604     A     
 GOTO               SA6    A5                                                              GOTO         605     A     
 GOTO               SB7    MACBUF                                                          GOTO         606     A     
 GOTO               LX7    X3                                                              GOTO         607     A     
 GOTO               SX6    B1                                                              GOTO         608     A     
 GOTO               LX6    30                                                              GOTO         609     A     
 GOTO               SX0    X4+I.GL                                                         GOTO         610     A     
 GOTO               BX6    X6+X0             30/IH ACGOER,30/IH FOR GL                     GOTO         611     A     
 GOTO               SA7    B7                                                              GOTO         612     A     
 GOTO               SA6    A7+B5             WORD 1                                        GOTO         613     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2344    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GOTO    
  
 GOTO               SX7    X4+B5             NGLN = NGLN + 1                               GOTO         614     A     
 GOTO               SA7    A4                                                              GOTO         615     A     
 GOTO               SX6    X5-1                                                            GOTO         616     A     
 GOTO               LX5    16                                                              GOTO         617     A     
 GOTO               BX6    X5+X6             16/R NO FOR RS,16/R NO OF LOAD                GOTO         618     A     
 GOTO               SA6    A6+B5             WORD 2                                        GOTO         619     A     
 GOTO                                                                                      GOTO         620     A     
 GOTO               SA1    L.LTAB            NUMBER OF BRANCHS                             GOTO         621     A     
 GOTO               SA2    DUKE                                                            GOTO         622     A     
 GOTO               SX1    X1+B5                                                           GOTO         623     A     
 GOTO               SX7    X2+B5                                                           FCC1085        7     A     
 GOTO               AX7    12                                                              FCC1085        8     A     
 GOTO               LX2    18                                                              GOTO         624     A     
 GOTO               MX0    42                                                              GOTO         625     A     
 GOTO               BX1    -X1                                                             GOTO         626     A     
 GOTO               BX4    -X0*X1                                                          GOTO         627     A     
 GOTO               IX6    X2+X4             18/LINE NUMBER,18/-(NOB+1)                    GOTO         628     A     
 GOTO               SA6    A6+B5                                                           GOTO         629          I
          -FCC1085
 GOTO               ZR     X7,GOTOC6   IF LINENUM < 4096                                   FCC1085        9     A     
 GOTO               SX7    59                                                              FCC1085       10     A     
 GOTO               LX7    36                                                              FCC1085       11     A     
 GOTO               BX6    X7+X6       K3 = 59                                             FCC1085       12     A     
 GOTO      GOTOC6   SA6    A6+B5                                                           FCC1085       13     A     
 GOTO               WRM    B7          COMPUTED GOTO MACRO TO RLIST                        GOTO         630     A     
 GOTO               SA1    =XO.LTAB                                                        GOTO         631     A     
 GOTO               SA3    =XL.LTAB                                                        GOTO         632     A     
 GOTO               WRITEW =XF.RLST,X1,X3    LABEL LIST TO -RLIST-                         GOTO         633     A     
 GOTO               SB5    1                                                               GOTO         634     A     
 GOTO               SA3    =XL.LTAB                                                        GOTO         635     A     
 GOTO               SX3    X3-4                                                            GOTO         636     A     
 GOTO               PL     X3,GOTOX    IF MORE THAN 3 BRANCHES                             GOTO         637     A     
 GOTO               SB6    -E.GOEFF                                                        GOTO         638     A     
 GOTO               SB7    GOTOX                                                           GOTO         639     A     
 GOTO               EQ     ERPROI      IF STATMENT MORE EFFICENT THAN CGOTO                GOTO         640     A     
 GOTO      ODCM     SPACE  4,14                                                            GOTO         641     A     
 GOTO     **        ODCM - OUTPUT DEBUG CALL MACRO.                                        GOTO         642     A     
 GOTO     *                                                                                GOTO         643     A     
 GOTO     *         ENTRY  (X1) = NAME OF EXECUTION TIME ROUTINE.                          GOTO         644     A     
 GOTO     *                                                                                GOTO         645     A     
 GOTO     *         CALLS  SYMBOL, DARLIST                                                 GOTO         646     A     
 GOTO                                                                                      GOTO         647     A     
 GOTO      ODCM     ENTRY. *                                                               GOTO         648     A     
 GOTO               SB7    ODCM1                                                           GOTO         649     A     
 GOTO      ODCM1    EQ     =XSYMBOL                                                        GOTO         650     A     
 GOTO               SX6    T.CGS                                                           GOTO         651     A     
 GOTO               LX6    P.TYP                                                           GOTO         652     A     
 GOTO               BX7    X6+X2       SET TYPE = CGS                                      GOTO         653     A     
 GOTO               SA7    A2                                                              GOTO         654     A     
 GOTO               MX4    0                                                               GOTO         655     A     
 GOTO               SA5    =XARLPT                                                         GOTO         656     A     
 GOTO               CALL   DARLIST     FLUSH DEBUG MACRO CALL TO RLIST                     GOTO         657     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2345    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GOTO    
  
 GOTO               EQ     ODCM                                                            GOTO         658     A     
 GOTO               TITLE              ASSIGN STATEMENT PROCESSOR                          GOTO         659     A     
 GOTO     ***                                                                              GOTO         660     A     
 GOTO     *         "ASSIGN" STATEMENT PROCESSOR                                           GOTO         661     A     
 GOTO     *                                                                                GOTO         662     A     
 GOTO     *         SYNTAX:   ASSIGN <LABEL> TO <VARIABLE> <EOS>                           GOTO         663     A     
 GOTO     *         ELIST:           -------    ----------------                           GOTO         664     A     
 GOTO     *                                                                                GOTO         665     A     
 GOTO     *         THE VARIABLE MUST BE AN INTEGER VARIABLE                               GOTO         666     A     
 GOTO     *                                                                                GOTO         667     A     
 GOTO               SPACE  3                                                               GOTO         668     A     
 GOTO      E.CUL    EQU    18                CONFLICTING USE OF A LABEL                    GOTO         669     A     
 GOTO      E.ASGN   EQU    111               ASSIGN STMT SYNTAX ERROR                      GOTO         670     A     
 GOTO      E.ASGN2  EQU    179               VARIABLE NOT INTEGER                          GOTO         671     A     
 GOTO               SPACE  3                                                               GOTO         672     A     
 GOTO      M.ASGM   RMEQU  106B        ASSIGN MACRO ORDINAL                                GOTO         673     A     
 GOTO                                                                                      GOTO         674     A     
 GOTO      ASGM     RMHDR  M.ASGM,2                                                        GOTO         675     A     
 GOTO               SPACE  3                                                               GOTO         676     A     
 GOTO      ASGNX    SB7    ASSIGN            RETURN ADDRESS                                GOTO         677     A     
 GOTO               EQ     ERPRO                                                           GOTO         678     A     
 GOTO                                                                                      GOTO         679     A     
 GOTO      ASSIGN   ENTRY.                                                                 GOTO         680     A     
 GOTO               SA1    SELIST                                                          GOTO         681     A     
 GOTO               SA2    X1                FIRST ENTRY                                   GOTO         682     A     
 GOTO               UX3    B2,X2                                                           GOTO         683     A     
 GOTO               SB6    -E.ASGN           BAD SYNTAX                                    GOTO         684     A     
 GOTO               NZ     B2,ASGNX          IF NOT A CONSTANT                             GOTO         685     A     
 GOTO               SA1    X2                FETCH CONSTANT                                GOTO         686     A     
 GOTO               AX2    18                                                              GOTO         687     A     
 GOTO               SB1    X2                B1 = CHAR COUNT                               GOTO         688     A     
 GOTO               AX3    48-3              POSITION TYPE                                 GOTO         689     A     
 GOTO               SB3    X3                                                              GOTO         690     A     
 GOTO               NE     B3,B5,ASGNX       IF NOT TYPE INTEGER                           GOTO         691     A     
 GOTO                                                                                      GOTO         692     A     
 GOTO     +         SB7    *+1                                                             GOTO         693     A     
 GOTO               EQ     =XLABCON          GO CONVERT THE LABEL AND ENTER IN SYM         GOTO         694     A     
 GOTO                                                                                      GOTO         695     A     
 GOTO               SX0    T.LAB                                                           GOTO         696     A     
 GOTO               EQ     ASGN1                                                           GOTO         697     A     
 GOTO                                                                                      GOTO         698     A     
 GOTO               MX3    2                 LABEL IN THE TABLE                            GOTO         699     A     
 GOTO               LX3    2+P.RFN                                                         GOTO         700     A     
 GOTO               BX0    X3*X2                                                           GOTO         701     A     
 GOTO               ZR     X0,ASGN1          IF NO PREVIOUS REF AS A FORMAT LABEL          GOTO         702     A     
 GOTO               SX2    B1                                                              GOTO         703     A     
 GOTO               CALL   PSYM              FORMAT NAME FOR ERPRO                         GOTO         704     A     
 GOTO               SB6    E.CUL                                                           GOTO         705     A     
 GOTO               EQ     ASGNX                                                           GOTO         706     A     
 GOTO                                                                                      GOTO         707     A     
 GOTO      ASGN1    LX0    P.TYP                                                           GOTO         708     A     
 GOTO               BX2    X0+X2             SET TYPE                                      GOTO         709     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2346    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GOTO    
  
 GOTO      RSN      BIT    P.RSN-P.RAS                                                     GOTO         710     A     
 GOTO               SX3    RSN+1                                                           GOTO         711     A     
 GOTO               LX3    P.RAS                                                           GOTO         712     A     
 GOTO               BX6    X3+X2             SET RSN AND RAS BITS                          GOTO         713     A     
 GOTO               SA6    A2                STORE IN SYMTAB                               GOTO         714     A     
 GOTO                                                                                      GOTO         715     A     
 GOTO               SA4    ASGM                                                            GOTO         716     A     
 GOTO               SX7    B1                                                              GOTO         717     A     
 GOTO               BX6    X4                                                              GOTO         718     A     
 GOTO               SA6    MACBUF            STORE THE HEADER WORD                         GOTO         719     A     
 GOTO               SA7    A6+B5             SAVE ORDINAL OF THE LABEL                     GOTO         720     A     
 GOTO                                                                                      GOTO         721     A     
 GOTO     *         CHECK FOR "NAME" AND "EOS"                                             GOTO         722     A     
 GOTO                                                                                      GOTO         723     A     
 GOTO               SA1    SELIST                                                          GOTO         724     A     
 GOTO               SA5    X1-2              X5 = EOS                                      GOTO         725     A     
 GOTO               SB6    -E.ASGN           BAD SYNTAX                                    GOTO         726     A     
 GOTO               SA1    A5+B5             X1 = VARIABLE                                 GOTO         727     A     
 GOTO               UX4    B1,X5                                                           GOTO         728     A     
 GOTO               SB2    B1-EL.EOS                                                       GOTO         729     A     
 GOTO               NZ     B2,ASGNX          IF NOT EOS                                    GOTO         730     A     
 GOTO               UX1    B1,X1                                                           GOTO         731     A     
 GOTO               NE     B1,B5,ASGNX       IF NOT A VARIABLE                             GOTO         732     A     
 GOTO               RJ     AGVAR             GO PROCESS VARIABLE                           GOTO         733     A     
 GOTO               SA1    A1                WORD A                                        GOTO         734     A     
 GOTO               SX0    V.DEF                                                           GOTO         735     A     
 GOTO               BX6    X0+X1             SET DEFINED BIT                               GOTO         736     A     
 GOTO               SA6    A1                                                              GOTO         737     A     
 GOTO                                                                                      GOTO         738     A     
 GOTO     *         FORM MACRO CALL                                                        GOTO         739     A     
 GOTO                                                                                      GOTO         740     A     
 GOTO               SA1    MACBUF+1          X1 = ORD OF THE LABEL                         GOTO         741     A     
 GOTO               LX5    30                                                              GOTO         742     A     
 GOTO               BX6    X5+X1             30/SYM ORD,30/LABEL ORD                       GOTO         743     A     
 GOTO               SA6    A1                                                              GOTO         744     A     
 GOTO               SA7    A6+B5       STORE CA OF VARIABLE AS SECOND WORD                 GOTO         745     A     
 GOTO                                                                                      GOTO         746     A     
 GOTO               SA4    RSELECT                                                         GOTO         747     A     
 GOTO               ZR     X4,ASGN5          IF R = 0                                      GOTO         748     A     
 GOTO               ADDREF B1,DEF            A DEFINITION FOR THE VARIABLE                 GOTO         749     A     
 GOTO               ADDREF MACBUF+1,REF      A REFERENCE FOR THE LABEL                     GOTO         750     A     
 GOTO                                                                                      GOTO         751     A     
 GOTO      ASGN5    WRM    MACBUF      ASSIGN MACRO TO R-LIST                              GOTO         752     A     
 GOTO               EQ     ASSIGN            EXIT                                          GOTO         753     A     
 GOTO                                                                                      GOTO         754     A     
 GOTO               END                                                                    GOTO         755     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - GOTO    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          GOTO                       755       754
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2347    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GOTO    
  
          FCC1085                      7         7
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGLNK  
  
 DBGLNK   *DECK,DBGLNK                                                                     DBGLNK         1     A     
 DBGLNK             IDENT  DBGLNK                                                          DBGLNK         2     A     
 DBGLNK   *CALL,SSTCALL                                                                    DBGLNK         3     A     
 DBGLNK   *                                                                                DBGLNK         4     A     
 DBGLNK   *         DUMMY ROUTINE TO SATISFY ALL DEBUG ENTRY POINTS IN PASS 1              DBGLNK         5     A     
 DBGLNK   *                                                                                DBGLNK         6     A     
 DBGLNK                                                                                    DBGLNK         7     A     
 DBGLNK                                                                                    DBGLNK         8     A     
 DBGLNK   **        DEFINE COMMUNICATIONS CELLS.                                           DBGLNK         9     A     
 DBGLNK                                                                                    DBGLNK        10     A     
 DBGLNK             ENTRY  ALLARR                                                          DBGLNK        11     A     
 DBGLNK    ALLARR   BSS    0                                                               DBGLNK        12     A     
 DBGLNK             ENTRY  ALLCALL                                                         DBGLNK        13     A     
 DBGLNK    ALLCALL  BSS    0                                                               DBGLNK        14     A     
 DBGLNK             ENTRY  ALLFUNC                                                         DBGLNK        15     A     
 DBGLNK    ALLFUNC  BSS    0                                                               DBGLNK        16     A     
 DBGLNK             ENTRY  D.SAASI                                                         DBGLNK        17     A     
 DBGLNK    D.SAASI  BSS    0                                                               DBGLNK        18     A     
 DBGLNK             ENTRY  GOTOSFL                                                         DBGLNK        19     A     
 DBGLNK    GOTOSFL  BSS    0                                                               DBGLNK        20     A     
 DBGLNK             ENTRY  NOGOFLG                                                         DBGLNK        21          I
          -FCC0220
 DBGLNK    NOGOFLG  BSS    0                                                               DBGLNK        22          I
          -FCC0220
 DBGLNK             ENTRY  TYPFLAG                                                         DBGLNK        23     A     
 DBGLNK    TYPFLAG  BSS    0                                                               DBGLNK        24     A     
 DBGLNK                                                                                    DBGLNK        25     A     
 DBGLNK             DATA   0                                                               DBGLNK        26     A     
 DBGLNK                                                                                    DBGLNK        27     A     
 DBGLNK             ENTRY  NOGOFLG                                                         FCC0220       44     A     
 DBGLNK    NOGOFLG  DATA   -1          SIMULATE PRESENCE OF C$-NOGO STATEMENT              FCC0220       45     A     
 DBGLNK             ENTRY  TRACEL                                                          DBGLNK        28     A     
 DBGLNK    TRACEL   DATA   -1                                                              DBGLNK        29     A     
 DBGLNK    SUBR     SPACE  4,8                                                             DBGLNK        30     A     
 DBGLNK   **        SUBR - DEFINE DUMMY SUBROUTINE ENTRY POINT.                            DBGLNK        31     A     
 DBGLNK   *                                                                                DBGLNK        32     A     
 DBGLNK   *                DECLARES *NAME* AN ENTRY POINT.  RESERVES NO SPACE.             DBGLNK        33     A     
 DBGLNK   *         INTENDED FOR USE BEFORE NON-DEBUG MODE COMMON ENTRY/EXIT LINE.         DBGLNK        34     A     
 DBGLNK   *                                                                                DBGLNK        35     A     
 DBGLNK   *                                                                                DBGLNK        36     A     
 DBGLNK   *  NAME   SUBR                                                                   DBGLNK        37     A     
 DBGLNK   *                                                                                DBGLNK        38     A     
 DBGLNK   *         ENTRY  *NAME* = DUMMY SUBROUTINE NAME                                  DBGLNK        39     A     
 DBGLNK                                                                                    DBGLNK        40     A     
 DBGLNK                                                                                    DBGLNK        41     A     
 DBGLNK             PURGMAC   SUBR                                                         DBGLNK        42     A     
 DBGLNK                                                                                    DBGLNK        43     A     
 DBGLNK             MACRO  SUBR,NAME                                                       DBGLNK        44     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2348    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGLNK  
  
 DBGLNK             ENTRY  NAME                                                            DBGLNK        45     A     
 DBGLNK    NAME     BSS    0                                                               DBGLNK        46     A     
 DBGLNK    SUBR     ENDM                                                                   DBGLNK        47     A     
 DBGLNK             SPACE  4,8                                                             DBGLNK        48     A     
 DBGLNK   **        DEFINE DUMMY SUBROUTINES.                                              DBGLNK        49     A     
 DBGLNK                                                                                    DBGLNK        50     A     
 DBGLNK                                                                                    DBGLNK        51     A     
 DBGLNK    BUGACT   SUBR                                                                   DBGLNK        52     A     
 DBGLNK    BUGCON   SUBR                                                                   DBGLNK        53     A     
 DBGLNK    BUGPRO   SUBR                                                                   DBGLNK        54     A     
 DBGLNK    BUGSOUT  SUBR                                                                   DBGLNK        55     A     
 DBGLNK    CFO      SUBR                                                                   DBGLNK        56     A     
 DBGLNK    DBGCUN   SUBR                                                                   DBGLNK        57     A     
 DBGLNK    DBGEPKT  SUBR                                                                   DBGLNK        58     A     
 DBGLNK    DBGERR   SUBR                                                                   DBGLNK        59     A     
 DBGLNK    DBGINT   SUBR                                                                   DBGLNK        60     A     
 DBGLNK    DBGINTX  SUBR                                                                   DBGLNK        61     A     
 DBGLNK    DBGIPKT  SUBR                                                                   DBGLNK        62     A     
 DBGLNK    DINPH2   SUBR                                                                   DBGLNK        63     A     
 DBGLNK    DOP      SUBR               DEBUG OPTIONS PROCESSOR                             DBGLNK        64     A     
 DBGLNK    D.IDSAV  SUBR                                                                   DBGLNK        65     A     
 DBGLNK    D.IDSP   SUBR                                                                   DBGLNK        66     A     
 DBGLNK    GETTYPE  SUBR                                                                   DBGLNK        67     A     
 DBGLNK    ISITDBG  SUBR                                                                   DBGLNK        68     A     
 DBGLNK    POINTRS  SUBR                                                                   DBGLNK        69     A     
 DBGLNK    PUTUPDT  SUBR                                                                   DBGLNK        70     A     
 DBGLNK    RESREG   SUBR                                                                   DBGLNK        71     A     
 DBGLNK    SAVREG   SUBR                                                                   DBGLNK        72     A     
 DBGLNK    TDI      SUBR               TRANSFER DEBUG INFORMATION                          DBGLNK        73     A     
 DBGLNK    TURNON   SUBR                                                                   DBGLNK        74     A     
 DBGLNK                                                                                    DBGLNK        75     A     
 DBGLNK    EXIT.    EQ     *+4S15      COMMON ENTRY/EXIT                                   DBGLNK        76     A     
 DBGLNK             EQ     EXIT.       RETURN WITHOUT ACTION                               DBGLNK        77     A     
 DBGLNK             END                                                                    DBGLNK        78     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DBGLNK  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DBGLNK                      78        76
          FCC0220                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC   *DECK     DOPROC                                                                 DOPROC         1     A     
 DOPROC             IDENT  DOPROC                                                          DOPROC         2     A     
 DOPROC             TITLE              DOPROC - PASS 1 DO STATEMENT PROCESSOR              DOPROC         3     A     
 DOPROC   *CALL     SSTCALL                                                                DOPROC         4     A     
 DOPROC    B=DOPRC  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             DOPROC         5     A     
 DOPROC             EXT    ERPRO,ERPROI,PH2RETN,FATALER,DOITX,DONEX                        DOPROC         6     A     
 DOPROC             EXT    DOFLAG,L.LOOP,E.UDEFL,VALUE.,CON.                               DOPROC         7     A     
 DOPROC             EXT    N.TLAB,TRACEL                                                   DOPROC         8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2349    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             EXT    DFLAG,NOGOFLG,P2NOGO                                            DOPROC         9          I
          -FCC0220
 DOPROC                                                                                    DOPROC        10     A     
 DOPROC             TABLES DOLST                                                           DOPROC        11     A     
 DOPROC                                                                                    DOPROC        12     A     
 DOPROC    SYM1     EQU    12B                                                             DOPROC        13     A     
 DOPROC    SYMEND   EQU    13B                                                             DOPROC        14     A     
 DOPROC    DIM1     EQU    17B                                                             DOPROC        15     A     
 DOPROC    CLABEL   EQU    23B                                                             DOPROC        16     A     
 DOPROC    LTYPE    EQU    21B         STMT TYPE OF OBJECT OF LOGICAL IF                   FCC0825        8     A     
 DOPROC    TYPE     EQU    24B                                                             DOPROC        17     A     
 DOPROC    SELIST   EQU    32B                                                             DOPROC        18     A     
 DOPROC    DUKE     EQU    37B               BINARY LINE COUNT                             DOPROC        19     A     
 DOPROC    NRLN     EQU    64B               NEXT R NUMBER                                 DOPROC        20     A     
 DOPROC                                                                                    DOPROC        21     A     
 DOPROC    L.DOTAB  EQU    3*50+3            LENGTH OF THE DO TABLE                        DOPROC        22     A     
 DOPROC    O.DOTAB  VFD    60/DOTAB          ADDRESS OF CURRENT DO TABLE ENTRY             DOPROC        23     A     
 DOPROC                                                                                    DOPROC        24     A     
 DOPROC             USE    DEBUG                                                           FCC0477        6     A     
 DOPROC             USE    *                                                               FCC0477        7     A     
 DOPROC             ENTRY  DOTAB                                                           DOPROC        25     A     
 DOPROC             USE    DOTAB                                                           DOPROC        26     A     
 DOPROC    DOTAB    BSSZ   3                 DOPROC MUST BECOME RIGHT BEFORE DPCLO         DOPROC        27     A     
 DOPROC             USE    *                 BECAUSE THE DO TABLE OVERLAPS IT              DOPROC        28     A     
 DOPROC                                                                                    DOPROC        29     A     
 DOPROC    M.LAB    RMEQU  104B        LABEL DEFINATION RMACRO                             DOPROC        30          I
          -FCC0220
 DOPROC    M.LAB    RMEQU  104B        LABEL DEFINITION RMACRO                             FCC0220       46     A     
 DOPROC    M.DOBGN  RMEQU  2           DO BEGIN MACRO                                      DOPROC        31     A     
 DOPROC    M.DOEND  RMEQU  3           DO END MACRO                                        DOPROC        32     A     
 DOPROC    WLABM    EJECT                                                                  DOPROC        33     A     
 DOPROC    LABM     RMHDR  M.LAB,1           RLIST MACRO HEADER WORD                       DOPROC        34     A     
 DOPROC             BSS    1                                                               DOPROC        35     A     
 DOPROC    WLABM    SPACE  4,14                                                            DOPROC        36     A     
 DOPROC   **        WLABM - WRITE LABEL DEFINITION MACRO TO R-LIST FILE.                   DOPROC        37     A     
 DOPROC   *                                                                                DOPROC        38     A     
 DOPROC   *         ENTRY  (X5) = IH OF LABEL.                                             DOPROC        39          I
          -FCC0220
 DOPROC   *         ENTRY  (X5) = IH OF LABEL                                              FCC0220       47     A     
 DOPROC   *                                                                                DOPROC        40     A     
 DOPROC   *         CALLS  WRITEW                                                          DOPROC        41     A     
 DOPROC   *                                                                                DOPROC        42     A     
 DOPROC   *         USES   X - 0, 3, 4, 6, 7                                               DOPROC        43     A     
 DOPROC                                                                                    DOPROC        44     A     
 DOPROC    WLABM    ENTRY. **          ** ENTRY/EXIT **                                    DOPROC        45          I
          -FCC0220
 DOPROC                                                                                    FCC0220       48     A     
 DOPROC    WLABM    SUBR   =           ** ENTRY/EXIT **                                    FCC0220       49     A     
 DOPROC             SA4    LABM                                                            DOPROC        46     A     
 DOPROC             SA3    NRLN                                                            DOPROC        47     A     
 DOPROC             MX0    -R1.RIL                                                         DOPROC        48     A     
 DOPROC             LX7    X5                                                              DOPROC        49     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2350    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             BX4    X0*X4                                                           DOPROC        50     A     
 DOPROC             IX6    X3+X4       ADD CURRENT VALUE OF NRLN                           DOPROC        51     A     
 DOPROC             SA6    A4                                                              DOPROC        52     A     
 DOPROC             SA7    A6+1                                                            DOPROC        53          I
          -FCC0220
 DOPROC             SB1    1                                                               DOPROC        54     A     
 DOPROC             SA7    A6+B1                                                           FCC0220       50     A     
 DOPROC             WRITEW =XF.RLST,A4,2                                                   DOPROC        55     A     
 DOPROC             SB5    1                                                               DOPROC        56     A     
 DOPROC             EQ     WLABM       EXIT                                                DOPROC        57          I
          -FCC0220
 DOPROC             EQ     EXIT.                                                           FCC0220       51     A     
 DOPROC             EJECT                                                                  DOPROC        58     A     
 DOPROC   *         ERROR MESSAGES                                                         DOPROC        59     A     
 DOPROC                                                                                    DOPROC        60     A     
 DOPROC    E.DO1    EQU    1                 LOOPS NESTED TOO DEEP                         DOPROC        61     A     
 DOPROC    E.DO2    EQU    2                 BAD DO LABEL                                  DOPROC        62     A     
 DOPROC    E.DO3    EQU    3                 DO LABEL PROEVIOUSLY DEFINED                  DOPROC        63          I
          -FCC0220
 DOPROC    E.DO3    EQU    3                 DO LABEL PREVIOUSLY DEFINED                   FCC0220       52     A     
 DOPROC    E.DO4    EQU    4                 CONTROL VARIABLE NOT INTEGER, ETC.            DOPROC        64     A     
 DOPROC    E.DO5    EQU    5                 BAD DO STMT SYNTAX                            DOPROC        65     A     
 DOPROC    E.DO6    EQU    6                 CONSTANT DO PARAM EXCEEDS LIMITS              DOPROC        66     A     
 DOPROC    E.DO7    EQU    7                 BAD DO PARAMETER SYNTAX                       DOPROC        67     A     
 DOPROC    E.DO8    EQU    8                 DUPLICATE STMT NUMBER                         DOPROC        68     A     
 DOPROC    E.DO9    EQU    9                 ILLEGAL STMT NUMBER REF                       DOPROC        69     A     
 DOPROC    E.DO10   EQU    10                SAME, BUT BACKWARD                            DOPROC        70     A     
 DOPROC    E.DO11   EQU    11                ILLEGAL STMT TYPE FOR LOOP TERM               DOPROC        71     A     
 DOPROC    E.DO12   EQU    12                ILLEGAL NESTING ( UNTERMINATED LOOPS          DOPROC        72     A     
 DOPROC    E.DO13   EQU    13                REDEF OF LOOP CONTROL VARIABLE OR PAR         DOPROC        73     A     
 DOPROC    E.DO14   EQU    226         MAY REDEFINE CV OR INDEX                            DOPROC        74          I
          -FCC0220
 DOPROC    E.DO15   EQU    15                DEBUG NOGO OPTION FORCED ON                   DOPROC        75          I
          -FCC0220
 DOPROC    E.DO14   EQU    226               MAY REDEFINE CV OR INDEX                      FCC0220       53     A     
 DOPROC    E.DO16   EQU    16                ILLEGAL ENTRY TO A LOOP                       DOPROC        76     A     
 DOPROC   E.DO17    EQU    17              UNDEFINED STMT NUMBERS, SEE BELOW               DOPROC        77          I
          -FCC0220
 DOPROC    E.DO17   EQU    17                UNDEFINED STMT LABEL(S), SEE BELOW            FCC0220       54     A     
 DOPROC    E.DOMUL  EQU    18                MISUSE OF A LABEL                             DOPROC        78     A     
 DOPROC    E.DO19   EQU    19                NEED MORE STORAGE FOR OPTIMIZATION            DOPROC        79     A     
 DOPROC    E.DO20   EQU    20                DO N  I = 1,I                                 DOPROC        80     A     
 DOPROC    E.DO21   EQU    21                COMPILER ERROR                                DOPROC        81     A     
 DOPROC    E.DO22   EQU    22          LOWER LIMIT \ UPPER LIMIT, ONE TRIP LOOP            DOPROC        82          I
          -FCC0220
 DOPROC    E.DO22   EQU    22                LOWER LIM .GE. UPPER LIM, 1-TRIP LOOP         FCC0220       55     A     
 DOPROC    E.DO24   EQU    105               FMT IS AN ILLEGAL TERMINATOR                  FCC0220       56     A     
 DOPROC    E.DO80   EQU    80                LABEL MORE THAN 5 CHARACTERS                  DOPROC        83     A     
 DOPROC    E.DO130  EQU    130               0 STMT LABEL                                  DOPROC        84     A     
 DOPROC   E.DO305   EQU    305         OBJECT OF LOG IF IS DO TERMINAL--NON-ANSI           FCC0825        9     A     
 DOPROC   E.DO24    EQU    105             FMT IS AN ILLEGAL TERMINATOR                    DOPROC        85          I
          -FCC0220
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2351    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC    E.DOEXT  EQU    306               NON-INNER LOOP ENTERED FROM OUTSIDE           DOPROC        86     A     
 DOPROC    E214     EQU    214                                                             FCC2321        7     A     
 DOPROC    E.DO154  EQU    154         REDEFINITION OF FPS IS NON-ANSI                     FCC1901       52     A     
 DOPROC             SPACE  3                                                               DOPROC        87     A     
 DOPROC   ***                                                                              DOPROC        88     A     
 DOPROC   *         "DOPROC" MANIPULATES 2 TABLES, "DOTOP" AND "DOLIST" .                  DOPROC        89     A     
 DOPROC   *                                                                                DOPROC        90     A     
 DOPROC   *         "DOTAB" IS THE DO LOOP INFORMATION TABLE WHICH IS 3                    DOPROC        91     A     
 DOPROC   *         WORDS/ENTRY AND HAS ROOM FOR 50 ENTRIES ( THE NESTING                  DOPROC        92     A     
 DOPROC   *         LEVEL OF THE COMPILER ).  THE FORMAT OF AN ENTRY FOR THE               DOPROC        93     A     
 DOPROC   *         DO STATEMENT  "DO  S  IX  =  B,C,D"  IS:                               DOPROC        94     A     
 DOPROC   *                                                                                DOPROC        95     A     
 DOPROC   *         12/S,30/0,18/B                                                         DOPROC        96     A     
 DOPROC   *         12/IX,12/0,18/P,18/C                                                   DOPROC        97     A     
 DOPROC   *         12/GL,20/0,3/CV(BCD),7/EXIMVJR,18/D                                    DOPROC        98     A     
 DOPROC   *                                                                                DOPROC        99     A     
 DOPROC   *         GL IS THE ORDINAL FOR THE LABEL ( ")XX" ) GENERATED FOR THE            DOPROC       100     A     
 DOPROC   *         TOP OF THE LOOP.  P IS AN ORDINAL INTO "DOLIST" .                      DOPROC       101     A     
 DOPROC   *         THE CV BITS ARE SET IF THE CORRESPONDING ENTRY IS A VARIABLE           DOPROC       102     A     
 DOPROC   *         EXIMVJR ARE OPTIMIZATION FLAGS                                         DOPROC       103     A     
 DOPROC   *                                                                                DOPROC       104     A     
 DOPROC   *         "DOLIST" IS A VARIABLE LENGTH LIST STARTING AT "DO1" IN                DOPROC       105     A     
 DOPROC   *         WORKING STORAGE. EACH ENTRY IN DOLIST IS A SINGLE WORD                 DOPROC       106     A     
 DOPROC   *         THE FOLLOWING ITEMS ARE KEPT TRACK OF:                                 DOPROC       107     A     
 DOPROC   *         VARIABLE DEFINITIONS, FORMAT- 1/1,29/0,12/BASE,18/BIAS                 DOPROC       108     A     
 DOPROC   *         REFERENCES TO LABELS, FORMAT:  60/SYMTAB ORDINAL                       DOPROC       109     A     
 DOPROC   *                                                                                DOPROC       110     A     
 DOPROC                                                                                    DOPROC       111     A     
 DOPROC             EJECT                                                                  DOPROC       112     A     
 DOPROC   *         DEFINE WITH VALUE MACRO.                                               DOPROC       113     A     
 DOPROC                                                                                    DOPROC       114     A     
 DOPROC             MACRO  DEFINV,N,LONG,RESET                                             DOPROC       115     A     
 DOPROC    N        DEFINE LONG,RESET                                                      DOPROC       116     A     
 DOPROC             IFLE   ".P"N_P,21,1                                                    DOPROC       117     A     
 DOPROC    ".P"N_V  BIT    ".P"N_P                                                         DOPROC       118     A     
 DOPROC    DEFINV   ENDM                                                                   DOPROC       119     A     
 DOPROC             SPACE 2                                                                DOPROC       120     A     
 DOPROC   *         DOTAB DESCRIPTORS.                                                     DOPROC       121     A     
 DOPROC                                                                                    DOPROC       122     A     
 DOPROC             DESCRIBE D1.,60    WORD 1                                              DOPROC       123     A     
 DOPROC    S        DEFINE 12          DO OBJECT-LABEL ORDINAL                             DOPROC       124     A     
 DOPROC    LC       DEFINE 18          LOOP COUNTER  ( 2*L.LOOP )                          DOPROC       125     A     
 DOPROC    OT       DEFINE 1           SET IF A ONE-TRIP LOOP                              DOPROC       126     A     
 DOPROC             DEFINE 11                                                              DOPROC       127     A     
 DOPROC    B        DEFINE 18          DO UPPER LIMIT                                      DOPROC       128     A     
 DOPROC                                                                                    DOPROC       129     A     
 DOPROC             DESCRIBE D2.,60    WORD 2                                              DOPROC       130     A     
 DOPROC    IX       DEFINE 12          CONTROL VARIABLE                                    DOPROC       131     A     
 DOPROC             DEFINE 12                                                              DOPROC       132     A     
 DOPROC    P        DEFINE 18          ORDINAL IN DOLIST                                   DOPROC       133     A     
 DOPROC    C        DEFINE 18          DO LOWER-LIMIT                                      DOPROC       134     A     
 DOPROC                                                                                    DOPROC       135     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2352    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             DESCRIBE D3.,60    WORD 3                                              DOPROC       136     A     
 DOPROC    GL       DEFINE 12          )XX ORDINAL                                         DOPROC       137     A     
 DOPROC             DEFINE 20                                                              DOPROC       138     A     
 DOPROC    CV       DEFINE 3           /B,C,D ARE VARIABLE/ FLAGS                          DOPROC       139     A     
 DOPROC    OF       DEFINE 7           OPTIMIZATION FLAGS                                  DOPROC       140     A     
 DOPROC    D        DEFINE 18          INCREMENT ORDINAL                                   DOPROC       141     A     
 DOPROC                                                                                    DOPROC       142     A     
 DOPROC             DESCRIBE CV.,3     SET IF VARIABLE                                     DOPROC       143     A     
 DOPROC    B        DEFINV 1           LOWER LIMIT                                         DOPROC       144     A     
 DOPROC    C        DEFINV 1           UPPER LIMIT                                         DOPROC       145     A     
 DOPROC    D        DEFINV 1           INCREMENT                                           DOPROC       146     A     
 DOPROC                                                                                    DOPROC       147     A     
 DOPROC             DESCRIBE OF.,7                                                         DOPROC       148     A     
 DOPROC    E        DEFINV 1           LOOP CONTAINS POSSIBLE ENTRY                        DOPROC       149     A     
 DOPROC    X        DEFINV 1           LOOP CONTAINS POSSIBLE EXIT                         DOPROC       150     A     
 DOPROC    I        DEFINV 1           NON-INNER LOOP                                      DOPROC       151     A     
 DOPROC    M        DEFINV 1           MATERIALIZE IX                                      DOPROC       152     A     
 DOPROC    V        DEFINV 1           DO S I=1,N,I                                        DOPROC       153     A     
 DOPROC    J        DEFINV 1           EXTERNAL REFERENCE                                  DOPROC       154     A     
 DOPROC    R        DEFINV 1           INHIBIT OPTIMIZATION                                DOPROC       155     A     
 DOPROC             TITLE              MACROS                                              DOPROC       156     A     
 DOPROC   ***                                                                              DOPROC       157     A     
 DOPROC   *         PSYM - PREPARE NAME FOR ERROR ROUTINE                                  DOPROC       158     A     
 DOPROC   *                                                                                DOPROC       159     A     
 DOPROC   *         ON ENTRY:                                                              DOPROC       160     A     
 DOPROC   *                X2 = SYMTAB ORDINAL                                             DOPROC       161     A     
 DOPROC   *                                                                                DOPROC       162     A     
 DOPROC   *         ON EXIT:                                                               DOPROC       163     A     
 DOPROC   *                X3 = FORMATTED SYMBOL                                           DOPROC       164     A     
 DOPROC   *                X4 = 0                                                          DOPROC       165     A     
 DOPROC   *                                                                                DOPROC       166     A     
 DOPROC    PSYM     ENTRY.                                                                 DOPROC       167     A     
 DOPROC             SA1    SYM1                                                            DOPROC       168     A     
 DOPROC             LX2    1                 2*ORDINAL                                     DOPROC       169     A     
 DOPROC             IX5    X1-X2                                                           DOPROC       170     A     
 DOPROC             SA4    X5                WORD A                                        DOPROC       171     A     
 DOPROC             MX0    L.NAME                                                          DOPROC       172     A     
 DOPROC             BX3    X0*X4             EXTRACT SYMBOL                                DOPROC       173          I
          -FCC1289X 
 DOPROC             LX3    60-12             RIGHT SHIFT 12                                DOPROC       174          I
          -FCC1289X 
 DOPROC             BX1    X0*X4       EXTRACT SYMBOL                                      FCC1289X      18     A     
 DOPROC             RJ     =XSTRIP     STRIP OFF TRAILING $                                FCC1289X      19     A     
 DOPROC             LX1    60-12                                                           FCC1289X      20     A     
 DOPROC             SX2    1R                                                              DOPROC       175     A     
 DOPROC             PL     X4,PSYM1          IF A NAME                                     DOPROC       176     A     
 DOPROC             SX4    1R.-1R                                                          DOPROC       177     A     
 DOPROC             LX4    42                                                              DOPROC       178     A     
 DOPROC             IX3    X3-X4             CHANGE . TO A BLANK                           DOPROC       179          I
          -FCC1289X 
 DOPROC             IX3    X1-X4       CHANGE . TO A BLANK                                 FCC1289X      21     A     
 DOPROC             SX2    2R                                                              DOPROC       180     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2353    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC                                                                                    DOPROC       181     A     
 DOPROC    PSYM1    MX4    0                 CLEAR X4                                      DOPROC       182     A     
 DOPROC             BX3    X3+X2             ADD BLANK FILL                                DOPROC       183          I
          -FCC1289X 
 DOPROC             BX3    X1+X2       ADD BLANK FILL                                      FCC1289X      22     A     
 DOPROC             EQ     PSYM                                                            DOPROC       184     A     
 DOPROC             SPACE  3                                                               DOPROC       185     A     
 DOPROC    ERNAME   MACRO  ORD                                                             DOPROC       186     A     
 DOPROC             IF     REG,ORD                                                         DOPROC       187     A     
 DOPROC             IFC    NE,/ORD/X2/,1                                                   DOPROC       188     A     
 DOPROC             SX2    ORD                                                             DOPROC       189     A     
 DOPROC             ELSE                                                                   DOPROC       190     A     
 DOPROC             SA2    ORD                                                             DOPROC       191     A     
 DOPROC             ENDIF                                                                  DOPROC       192     A     
 DOPROC             RJ     PSYM              PREPARE SYMBOL FOR ERROR ROUTINE              DOPROC       193     A     
 DOPROC             ENDM                                                                   DOPROC       194     A     
 DOPROC                                                                                    DOPROC       195     A     
 DOPROC    LABCON   MACRO                    CONVERT LABEL AND ENTER IN SYMTAB             DOPROC       196     A     
 DOPROC             SB7    *+2-*P/60D                                                      DOPROC       197     A     
 DOPROC             EQ     LABCON                                                          DOPROC       198     A     
 DOPROC             ENDM                                                                   DOPROC       199     A     
 DOPROC             TITLE              DOPROC - PROCESS DO STMT                            DOPROC       200     A     
 DOPROC   ***                                                                              DOPROC       201     A     
 DOPROC   *         DOPROC - DO STATMENT PROCESSOR                                         DOPROC       202     A     
 DOPROC   *         CHECK STATEMENT FOR A VALID STMT NUMBER,                               DOPROC       203     A     
 DOPROC   *         CALL "DOTOP" TO PROCESS THE REST OF THE STATEMENT                      DOPROC       204     A     
 DOPROC   *                                                                                DOPROC       205     A     
 DOPROC                                                                                    FCC0579        5     A     
 DOPROC    DOPRA    BSSZ   1           *LABEL PREVIOUSLY DEFINED* FLAG                     FCC0579        6     A     
 DOPROC                                                                                    FCC0579        7     A     
 DOPROC    DOPROC   SUBR   =                 ** ENTRY/EXIT **                              DOPROC       206     A     
 DOPROC             SA3    SELIST                                                          DOPROC       207     A     
 DOPROC             SA4    X3                (X4)=1ST ELIST ELEMENT                        DOPROC       208     A     
 DOPROC             UX2    B2,X4                                                           DOPROC       209     A     
 DOPROC             NE     B2,B0,DOPR.E1     IF NOT A CONSTANT (LABEL)                     DOPROC       210     A     
 DOPROC             SA1    X2                (X1)=1ST WORD OF *CONSTOR* ENTRY              DOPROC       211     A     
 DOPROC   *                                  FOR LABEL                                     DOPROC       212     A     
 DOPROC             AX4    18                                                              DOPROC       213     A     
 DOPROC             SB1    X4+               (B1)=NR OF CHARS IN LABEL                     DOPROC       214     A     
 DOPROC             LABCON                   CONVERT LABEL AND PUT IN SYMTAB               DOPROC       215     A     
 DOPROC                                                                                    DOPROC       216     A     
 DOPROC             SX0    T.LAB                                                           DOPROC       217     A     
 DOPROC             LX0    P.TYP             SET TYPE TO LABEL                             DOPROC       218     A     
 DOPROC             BX2    X0+X2                                                           DOPROC       219     A     
 DOPROC                                                                                    DOPROC       220     A     
 DOPROC   +         BX3    X2                                                              DOPROC       221     A     
 DOPROC             LX3    59-P.DSN                                                        DOPROC       222     A     
 DOPROC             SX7    B1                                                              DOPROC       223     A     
 DOPROC             LX7    D1.SP                                                           DOPROC       224     A     
 DOPROC             SA7    LWD             STORE FOR DO TOP                                DOPROC       225     A     
 DOPROC                                                                                    DOPROC       226     A     
 DOPROC             MX5    2                                                               DOPROC       227     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2354    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             BX7    X5*X3           EXTRACT DSN + DFN BITS                          DOPROC       228     A     
 DOPROC             LX3    1                                                               DOPROC       229     A     
 DOPROC             BX5    X5*X3           EXTRACT DFN + RFN BITS                          DOPROC       230     A     
 DOPROC             BX7    X7+X5                                                           DOPROC       231     A     
 DOPROC             SA3    SELIST                                                          DOPROC       232     A     
 DOPROC             SA7    IH              SAVE IN CASE OF CALL TO ERPRO                   DOPROC       233     A     
 DOPROC             SA4    X3                                                              DOPROC       234     A     
 DOPROC             PL     X7,DOPROC2        IF LABEL NOT PREVIOUSLY DEFINED               DOPROC       235     A     
 DOPROC             SA7    DOPRA       SET *LABEL PREVIOUSLY DEFINED* FLAG                 FCC0579        8     A     
 DOPROC             POSTER SEV=FE,NR=E.DO3,FMT=ELIST,TXT=X4,RETURN=DOPROC2                 DOPROC       236     A     
 DOPROC                                                                                    DOPROC       237     A     
 DOPROC   DOPROC2   SA5    IH                                                              DOPROC       238     A     
 DOPROC             SA3    SELIST                                                          DOPROC       239     A     
 DOPROC             IX6    X5+X5                                                           DOPROC       240     A     
 DOPROC             SA4    X3                                                              DOPROC       241     A     
 DOPROC             PL     X6,DOPROC2A       IF DO NOT TERMINATED BY FORMAT STMT           DOPROC       242     A     
 DOPROC             POSTER SEV=FE,NR=E.DO24,FMT=ELIST,TXT=X4,RETURN=DOPROC3                DOPROC       243     A     
 DOPROC    DOPROC2A MI     X5,DOPROC3        IF LABEL PREVIOUSLY DEFINED                   DOPROC       244     A     
 DOPROC             SX0    B5                                                              DOPROC       245     A     
 DOPROC             LX0    P.DLT             SET DO LOOP TERMINATOR BIT                    DOPROC       246     A     
 DOPROC             BX6    X0+X2                                                           DOPROC       247     A     
 DOPROC             SA6    A2                                                              DOPROC       248     A     
 DOPROC    DOPROC3  SA5    =XRSELECT                                                       DOPROC       249     A     
 DOPROC             SA4    LWD                                                             DOPROC       250     A     
 DOPROC             ZR     X5,DOPROC1        IF R = 0                                      DOPROC       251     A     
 DOPROC             LX4    -D1.SP                                                          DOPROC       252     A     
 DOPROC             SB1    X4                                                              DOPROC       253     A     
 DOPROC             ADDREF B1,REF            A REFERENCE FOR THE LABEL                     DOPROC       254     A     
 DOPROC                                                                                    DOPROC       255     A     
 DOPROC    DOPROC1  RJ     DOTOP       SETUP THE TOP OF THE LOOP                           DOPROC       256     A     
 DOPROC             EQ     DOPROC                                                          DOPROC       257     A     
 DOPROC                                                                                    DOPROC       258     A     
 DOPROC    DOPR.E1  POSTER SEV=FE,NR=E.DO2,FMT=ELIST,TXT=X4,RETURN=DOPROC                  DOPROC       259     A     
 DOPROC             SPACE  2                                                               DOPROC       260     A     
 DOPROC   *         TEMPORARIES ASSOCIATED WITH DOTOP,DOPROC,GENMAC,LIMIT, ETC.            DOPROC       261     A     
 DOPROC                                                                                    DOPROC       262     A     
 DOPROC             USE    /MACBUF/                                                        DOPROC       263     A     
 DOPROC    SVELIST                           HOLDS SELIST WHEN PROC AN IMPLIED DO          DOPROC       264     A     
 DOPROC    LWD                               HOLDS THE FIRST WORD OF THE DOTAB             DOPROC       265     A     
 DOPROC   *                                  ENTRY TO BE FORMED                            DOPROC       266     A     
 DOPROC    IH                                                                              DOPROC       267     A     
 DOPROC    CVAR                              USED TO SAVE THE ORDINALS OF THE              DOPROC       268     A     
 DOPROC             BSS    3                 LOOP CV AND LIMITS                            DOPROC       269     A     
 DOPROC                                                                                    DOPROC       270     A     
 DOPROC    RLSST    BSSZ   7                 R LIST MACRO BUFFER                           DOPROC       271     A     
 DOPROC             USE    *                                                               DOPROC       272     A     
 DOPROC                                                                                    DOPROC       273     A     
 DOPROC    OTF      BSS    1           ONE-TRIP LOOP FLAG                                  DOPROC       274     A     
 DOPROC             TITLE              DOTOP - SET UP TOP OF DO LOOP                       DOPROC       275     A     
 DOPROC   ***                                                                              DOPROC       276     A     
 DOPROC   *                                                                                DOPROC       277     A     
 DOPROC   *         DOTOP - PROCESS DO STMT AND FORM "DOTABLE" ENTRY FOR IT.               DOPROC       278     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2355    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC   *         CALLS GENMAC TO GENERATE AN RLIST MACRO FOR THE TOP OF THE LOO         DOPROC       279     A     
 DOPROC   *                                                                                DOPROC       280     A     
 DOPROC    DOTOPX   SB7    *+1               ** ERROR EXIT **                              DOPROC       281     A     
 DOPROC             EQ     ERPRO                                                           DOPROC       282     A     
 DOPROC                                                                                    DOPROC       283     A     
 DOPROC             SA1    LWD                                                             DOPROC       284          I
          -FCC0579
 DOPROC    DOTOPX1  SA1    LWD                                                             FCC0579        9     A     
 DOPROC             MX6    0                                                               FCC0579       10     A     
 DOPROC             SA6    DOPRA       DOPRA = 0                                           FCC0579       11     A     
 DOPROC             SX2    X1                                                              DOPROC       285     A     
 DOPROC             ZR     X2,DOTOP          IF WE DIDNT ADD AN ENTRY                      DOPROC       286     A     
 DOPROC             SA2    DOFLAG                                                          DOPROC       287     A     
 DOPROC             SX6    X2-1              DECREMENT DO NEST LEVEL                       DOPROC       288     A     
 DOPROC             SA6    A2                                                              DOPROC       289     A     
 DOPROC             SA3    O.DOTAB                                                         DOPROC       290     A     
 DOPROC             SX7    X3-3              DECREMENT DO STACK POINTER                    DOPROC       291     A     
 DOPROC             SA7    A3                                                              DOPROC       292     A     
 DOPROC                                                                                    DOPROC       293     A     
 DOPROC    DOTOP                                                                           DOPROC       294     A     
 DOPROC             RJ     SYNCHEK           GO DO SYNTAX CHECK                            DOPROC       295     A     
 DOPROC             SX0    B5                                                              DOPROC       296     A     
 DOPROC             LX0    D3.OFP+OF.IP      I-BIT                                         DOPROC       297     A     
 DOPROC             SA2    O.DOTAB           DO TABLE ADDRESS                              DOPROC       298     A     
 DOPROC             SA3    X2+2              WORD 3                                        DOPROC       299     A     
 DOPROC             BX6    X0+X3             SET I BIT                                     DOPROC       300     A     
 DOPROC             SA6    A3                                                              DOPROC       301     A     
 DOPROC             SA5    SELIST                                                          DOPROC       302     A     
 DOPROC             SA2    X5-1              FETCH SECOND ELEMNT                           DOPROC       303     A     
 DOPROC             RJ     INTVAR            GO CHECK FOR INTEGER VARIABLE                 DOPROC       304     A     
 DOPROC             SB6    -E.DO4            CV NOT AN INTEGER VARIABLE                    DOPROC       305     A     
 DOPROC             EQ     DOTOPX                                                          DOPROC       306     A     
 DOPROC                                                                                    DOPROC       307     A     
 DOPROC             SX0    V.DEF                                                           DOPROC       308     A     
 DOPROC             BX6    X0+X1                                                           DOPROC       309     A     
 DOPROC             SA6    A1                SET DEFINED BIT                               DOPROC       310     A     
 DOPROC             SX0    V.COM+V.EQU                                                     DOPROC       311          I
          -FCC0949
 DOPROC             BX7    X0*X1                                                           DOPROC       312          I
          -FCC0949
 DOPROC             SA7    RLSST                                                           DOPROC       313          I
          -FCC0949
 DOPROC             SX0    V.EQU                                                           FCC0949        5     A     
 DOPROC             BX6    X0*X1                                                           FCC0949        6     A     
 DOPROC             LX1    59-P.COM                                                        FCC0949        7     A     
 DOPROC             PL     X1,DOTOP0   IF COM BIT NOT SET                                  FCC0949        8     A     
 DOPROC             LX7    -P.RB                                                           FCC0949        9     A     
 DOPROC             MX0    -L.RB                                                           FCC0949       10     A     
 DOPROC             BX7    -X0*X7      NOT REALLY IN COMMON IF RB = 0                      FCC0949       11     A     
 DOPROC             IX6    X6+X7                                                           FCC0949       12     A     
 DOPROC    DOTOP0   SA6    RLSST                                                           FCC0949       13     A     
 DOPROC                                                                                    DOPROC       314     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2356    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             SX6    B1                                                              DOPROC       315     A     
 DOPROC             SA6    CVAR              SAVE THE CONTROL VARIABLE                     DOPROC       316     A     
 DOPROC             MX7    0                                                               DOPROC       317     A     
 DOPROC             SA7    A6+B5             CLEAR OUT VARIABLE ORDINALS                   DOPROC       318     A     
 DOPROC             SA7    A7+B5                                                           DOPROC       319     A     
 DOPROC             SA7    A7+B5                                                           DOPROC       320     A     
 DOPROC                                                                                    DOPROC       321     A     
 DOPROC   *         FORM SECOND WORD OF ENTRY:  12/IX,12/0,18/P,18/C                       DOPROC       322     A     
 DOPROC                                                                                    DOPROC       323     A     
 DOPROC             SA2    O.DOTAB                                                         DOPROC       324     A     
 DOPROC             SX4    B1                                                              DOPROC       325     A     
 DOPROC             LX4    D2.IXP      ORDINAL OF CV                                       DOPROC       326     A     
 DOPROC             SA3    L.DOLST                                                         DOPROC       327     A     
 DOPROC             LX3    D2.PP       ORDINAL IN DOLIST                                   DOPROC       328     A     
 DOPROC             MX7    0                                                               DOPROC       329     A     
 DOPROC             SA7    =XNCAD                                                          DOPROC       330     A     
 DOPROC             SA7    =XNRFD                                                          DOPROC       331     A     
 DOPROC             BX7    X3+X4                                                           DOPROC       332     A     
 DOPROC             SA7    X2+4              STORE ORD OF CV ( IX ) AND P ORD              DOPROC       333     A     
 DOPROC             SA2    A1-1        GET WORD B                                          FCC1901       53     A     
 DOPROC             LX2    59-P.FPB                                                        FCC1901       54     A     
 DOPROC             PL     X2,DOTOP0A  IF NOT FP                                           FCC1901       55     A     
 DOPROC             LX2    P.FPB-P.RL                                                      FCC1901       56     A     
 DOPROC             PL     X2,DOTOP0A  IF NOT RL                                           FCC1901       57     A     
 DOPROC             SA1    A1          GET WORD A                                          FCC1901       58     A     
 DOPROC             MX3    L.NAME                                                          FCC1901       59     A     
 DOPROC             BX3    X3*X1       EXTRACT SYMBOL                                      FCC1901       60     A     
 DOPROC             LX3    60-12                                                           FCC1901       61     A     
 DOPROC             SX5    1R                                                              FCC1901       62     A     
 DOPROC             BX3    X3+X5       ADD BLANK FILL                                      FCC1901       63     A     
 DOPROC             POSTER SEV=ANSI,NR=E.DO154,FMT=DPC,TXT=X3                              FCC1901       64     A     
 DOPROC    DOTOP0A  BSS    0                                                               FCC1901       65     A     
 DOPROC             RJ     DODEF             GO CHECK LOOP VARIABLE AND PUT IN DOL         DOPROC       334     A     
 DOPROC                                                                                    DOPROC       335     A     
 DOPROC             SA1    RLSST                                                           DOPROC       336     A     
 DOPROC             ZR     X1,DOTOP1   IF CV NOT COM OR EQV                                DOPROC       337     A     
 DOPROC                                                                                    DOPROC       338     A     
 DOPROC             POSTERR  SEV=INF,NR=301D  CV COM/EQV, OPTIMIZATION INHIBITED           DOPROC       339     A     
 DOPROC                                                                                    DOPROC       340     A     
 DOPROC    DOTOP1   SA4    O.DOTAB                                                         DOPROC       341     A     
 DOPROC             SX6    X4+3                                                            DOPROC       342     A     
 DOPROC             SX7    X6-DOTAB-L.DOTAB                                                DOPROC       343     A     
 DOPROC             SB6    -E.DO1            TOO MANY DO LOOPS                             DOPROC       344     A     
 DOPROC             PL     X7,DOTOPX         IF NESTING LIMIT EXCEEDED                     DOPROC       345     A     
 DOPROC                                                                                    DOPROC       346     A     
 DOPROC             SA6    A4                UPDATE TABLE POINTER                          DOPROC       347     A     
 DOPROC             SA1    DOFLAG                                                          DOPROC       348     A     
 DOPROC             SX7    X1+B5             INCREMENT LEVEL OF NESTING                    DOPROC       349     A     
 DOPROC             SA7    A1                                                              DOPROC       350     A     
 DOPROC                                                                                    DOPROC       351     A     
 DOPROC             SA1    LWD               DO LABEL ORDINAL                              DOPROC       352     A     
 DOPROC             BX7    X1                                                              DOPROC       353     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2357    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             SA7    X6                STORE IN WORD 1                               DOPROC       354     A     
 DOPROC             MX7    0                                                               DOPROC       355     A     
 DOPROC             SA7    A7+2              CLEAR WORD 3                                  DOPROC       356     A     
 DOPROC             SX7    B5                                                              DOPROC       357     A     
 DOPROC             SA7    A1                SET ENTRY ADDED FLAG                          DOPROC       358     A     
 DOPROC    #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   DOPROC       359     A     
 DOPROC                                                                                    DOPROC       360     A     
 DOPROC   *         INHIBIT OPTIMIZATION IF CV IS LEVEL 2.                                 DOPROC       361     A     
 DOPROC                                                                                    DOPROC       362     A     
 DOPROC             SA1    CVAR                                                            DOPROC       363     A     
 DOPROC             RJ     IOL                                                             DOPROC       364     A     
 DOPROC                                                                                    DOPROC       365     A     
 DOPROC    #DAL     ENDIF                                                                  DOPROC       366     A     
 DOPROC                                                                                    DOPROC       367     A     
 DOPROC   *         PROCESS DO LIMITS AND FORM A DO TABLE ENTRY                            DOPROC       368     A     
 DOPROC                                                                                    DOPROC       369     A     
 DOPROC             SA5    SELIST                                                          DOPROC       370     A     
 DOPROC             SA2    X5-3              E LIST FOR LOWER LIMIT                        DOPROC       371     A     
 DOPROC             RJ     LIMIT             CHECK LIMIT FOR CONSTANT OR VARIABLE          DOPROC       372     A     
 DOPROC             EQ     FC2               CONSTANT                                      DOPROC       373     A     
 DOPROC                                                                                    DOPROC       374     A     
 DOPROC             SA3    O.DOTAB                                                         DOPROC       375     A     
 DOPROC             SX2    B5                                                              DOPROC       376     A     
 DOPROC             LX2    D3.CVP+CV.BP      LL IS VARIABLE                                DOPROC       377     A     
 DOPROC             SA4    X3+2                                                            DOPROC       378     A     
 DOPROC             BX7    X2+X4                                                           DOPROC       379     A     
 DOPROC             SA7    A4                                                              DOPROC       380     A     
 DOPROC                                                                                    DOPROC       381     A     
 DOPROC    #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   DOPROC       382     A     
 DOPROC             SA1    IH                                                              DOPROC       383     A     
 DOPROC             RJ     IOL         CHECK FOR LEVEL 2 LL                                DOPROC       384     A     
 DOPROC    #DAL     ENDIF                                                                  DOPROC       385     A     
 DOPROC                                                                                    DOPROC       386     A     
 DOPROC                                                                                    DOPROC       387     A     
 DOPROC             SA2    IH                ORDINAL                                       DOPROC       388     A     
 DOPROC             BX6    X2                                                              DOPROC       389     A     
 DOPROC             SA6    CVAR+1            SAVE FOR THE REFERENCE MAP                    DOPROC       390     A     
 DOPROC             RJ     NAME                                                            DOPROC       391     A     
 DOPROC             SB6    B1                                                              DOPROC       392     A     
 DOPROC             SB7  B2                                                                DOPROC       393     A     
 DOPROC             SA2  CVAR                                                              DOPROC       394     A     
 DOPROC             RJ   NAME                                                              DOPROC       395     A     
 DOPROC             NE     B1,B6,FC2         IF THE INITIAL VALUE IS NOT THE SAME          DOPROC       396     A     
 DOPROC             NE     B2,B7,FC2         THE INCREMENT                                 DOPROC       397     A     
 DOPROC   *                                                                                DOPROC       398     A     
 DOPROC             SB6    E.DO13            * REDEFINES LOOP CONTROL VARIABLE*            DOPROC       399     A     
 DOPROC             SB7  FC2                                                               DOPROC       400     A     
 DOPROC             ERNAME X2                                                              DOPROC       401     A     
 DOPROC             EQ   ERPROI                                                            DOPROC       402     A     
 DOPROC                                                                                    DOPROC       403     A     
 DOPROC    FC2      SA2    IH                LOAD IH VALUE                                 DOPROC       404     A     
 DOPROC             SA3    O.DOTAB                                                         DOPROC       405     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2358    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             SA4    X3                WORD 1                                        DOPROC       406     A     
 DOPROC             BX6    X4+X2                                                           DOPROC       407     A     
 DOPROC             SA6    X3                ADD B FIELD                                   DOPROC       408     A     
 DOPROC                                                                                    DOPROC       409     A     
 DOPROC   *         PROCESS SECOND DO PARAMETER ( UPPER LIMIT )                            DOPROC       410     A     
 DOPROC                                                                                    DOPROC       411     A     
 DOPROC             SA5    SELIST                                                          DOPROC       412     A     
 DOPROC             SA2    X5-5              E LIST FOR THE UPPER LIMIT                    DOPROC       413     A     
 DOPROC             RJ     LIMIT             CHECK UPPER LIMIT                             DOPROC       414     A     
 DOPROC             EQ     IHTC              GO PUT IH INTO C FIELD                        DOPROC       415     A     
 DOPROC                                                                                    DOPROC       416     A     
 DOPROC             SA3    O.DOTAB                                                         DOPROC       417     A     
 DOPROC             SA4    X3+2              THIRD WORD OF ENTRY                           DOPROC       418     A     
 DOPROC             SX0    B5                                                              DOPROC       419     A     
 DOPROC             LX0    D3.CVP+CV.CP                                                    DOPROC       420     A     
 DOPROC             BX6    X0+X4             SET CV(B) BIT                                 DOPROC       421     A     
 DOPROC             SA6    A4                                                              DOPROC       422     A     
 DOPROC                                                                                    DOPROC       423     A     
 DOPROC    #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   DOPROC       424     A     
 DOPROC             SA1    IH                                                              DOPROC       425     A     
 DOPROC             RJ     IOL         CHECK FOR LEVEL 2 UL                                DOPROC       426     A     
 DOPROC    #DAL     ENDIF                                                                  DOPROC       427     A     
 DOPROC                                                                                    DOPROC       428     A     
 DOPROC                                                                                    DOPROC       429     A     
 DOPROC   *         CHECK FOR UPPER LIMIT = CONTROL VARIABLE                               DOPROC       430     A     
 DOPROC                                                                                    DOPROC       431     A     
 DOPROC             SA2    IH                ORDINAL                                       DOPROC       432     A     
 DOPROC             BX6    X2                                                              DOPROC       433     A     
 DOPROC             SA6    CVAR+2            SAVE FOR THE REF MAP                          DOPROC       434     A     
 DOPROC             RJ     NAME                                                            DOPROC       435     A     
 DOPROC             SB6    B1                                                              DOPROC       436     A     
 DOPROC             SB7    B2                SAVE THE BASE AND BIAS                        DOPROC       437     A     
 DOPROC             SA2    CVAR                                                            DOPROC       438     A     
 DOPROC             RJ     NAME                                                            DOPROC       439     A     
 DOPROC             NE     B1,B6,IHTC        IF NOT THE SAME BASE                          DOPROC       440     A     
 DOPROC             NE     B2,B7,IHTC        IF NOT THE SAME BIAS                          DOPROC       441     A     
 DOPROC                                                                                    DOPROC       442     A     
 DOPROC             SA3    O.DOTAB                                                         DOPROC       443     A     
 DOPROC             SX0    OF.MV+OF.VV                                                     DOPROC       444     A     
 DOPROC             SA4    X3+2              WORD 3                                        DOPROC       445     A     
 DOPROC             LX0    D3.OFP                                                          DOPROC       446     A     
 DOPROC             BX6    X0+X4             SET M AND V BITS                              DOPROC       447     A     
 DOPROC             SA6    A4                                                              DOPROC       448     A     
 DOPROC                                                                                    DOPROC       449     A     
 DOPROC             SB6    E.DO20            DO N I = 1,I                                  DOPROC       450     A     
 DOPROC             SB7    IHTC                                                            DOPROC       451     A     
 DOPROC             ERNAME X2                PREPARE SYMBOL                                DOPROC       452     A     
 DOPROC             EQ     ERPROI                                                          DOPROC       453     A     
 DOPROC                                                                                    DOPROC       454     A     
 DOPROC    IHTC     SA4    IH                                                              DOPROC       455     A     
 DOPROC             SA5    O.DOTAB                                                         DOPROC       456     A     
 DOPROC             SA3    X5+B5             WORD 2                                        DOPROC       457     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2359    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             BX6    X3+X4             ADD IH IN LOWER 18 BITS                       DOPROC       458     A     
 DOPROC             SA6    A3                                                              DOPROC       459     A     
 DOPROC                                                                                    DOPROC       460     A     
 DOPROC   *         CHECK FOR THIRD PARAMETER                                              DOPROC       461     A     
 DOPROC                                                                                    DOPROC       462     A     
 DOPROC             SA1    SELIST                                                          DOPROC       463     A     
 DOPROC             SA2    X1-6              CHECK FOR THIRD PARAM                         DOPROC       464     A     
 DOPROC             UX3    B1,X2                                                           DOPROC       465     A     
 DOPROC             SB2    B1-EL.COMMA                                                     DOPROC       466     A     
 DOPROC             ZR     B2,DOTOP3         IF A COMMA                                    DOPROC       467     A     
 DOPROC                                                                                    DOPROC       468     A     
 DOPROC             SA4    X5+2              WORD 3                                        DOPROC       469     A     
 DOPROC             SX0    B5                SET 1 AS LOOP INCREMENT                       DOPROC       470     A     
 DOPROC             BX6    X0+X4                                                           DOPROC       471     A     
 DOPROC             SA6    A4                                                              DOPROC       472     A     
 DOPROC             EQ     DOTOP4            GO CHECK FOR LL @ UL                          DOPROC       473     A     
 DOPROC                                                                                    DOPROC       474     A     
 DOPROC   *         PROCESS THIRD PARAMETER                                                DOPROC       475     A     
 DOPROC                                                                                    DOPROC       476     A     
 DOPROC    DOTOP3   SA2    A2-B5             LOAD INCREMENT                                DOPROC       477     A     
 DOPROC             RJ     LIMIT             GO CHECK LIMIT                                DOPROC       478     A     
 DOPROC             EQ     IHD               CONSTANT                                      DOPROC       479     A     
 DOPROC                                                                                    DOPROC       480     A     
 DOPROC             SA5    O.DOTAB                                                         DOPROC       481     A     
 DOPROC             SA4    X5+2              THIRD WORD                                    DOPROC       482     A     
 DOPROC             SX3    B5                                                              DOPROC       483     A     
 DOPROC             LX3    D3.CVP+CV.DP                                                    DOPROC       484     A     
 DOPROC             BX6    X3+X4                                                           DOPROC       485     A     
 DOPROC             SA6    A4                                                              DOPROC       486     A     
 DOPROC                                                                                    DOPROC       487     A     
 DOPROC    #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   DOPROC       488     A     
 DOPROC             SA1    IH                                                              DOPROC       489     A     
 DOPROC             RJ     IOL         CHECK FOR LEVEL 2 INC                               DOPROC       490     A     
 DOPROC    #DAL     ENDIF                                                                  DOPROC       491     A     
 DOPROC                                                                                    DOPROC       492     A     
 DOPROC                                                                                    DOPROC       493     A     
 DOPROC             SA3    IH                                                              DOPROC       494     A     
 DOPROC             SA1    CVAR              ORD OF THE CONTROL VARIABLE                   DOPROC       495     A     
 DOPROC             BX6    X3                                                              DOPROC       496     A     
 DOPROC             SA6    CVAR+3            SAVE ORDINAL FOR THE REFERENCE MAP            DOPROC       497     A     
 DOPROC             IX7    X3-X1                                                           DOPROC       498     A     
 DOPROC             NZ     X7,IHD            IF CVAR .NE. INCREMENT                        DOPROC       499     A     
 DOPROC                                                                                    DOPROC       500     A     
 DOPROC             SB6    E.DO13            * REDEFINES LOOP CONTROL VARIABLE*            DOPROC       501     A     
 DOPROC             SB7  IHC                                                               DOPROC       502     A     
 DOPROC             ERNAME X3                                                              DOPROC       503     A     
 DOPROC             EQ   ERPROI                                                            DOPROC       504     A     
 DOPROC   *                                                                                DOPROC       505     A     
 DOPROC    IHC      SA5    O.DOTAB           RESTORE REGISTERS AFTER ERPRO                 DOPROC       506     A     
 DOPROC             SA1    X5+2                                                            DOPROC       507     A     
 DOPROC             BX6  X1                                                                DOPROC       508     A     
 DOPROC             SA6  A1                                                                DOPROC       509     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2360    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             SX0    CV.BV+CV.CV                                                     DOPROC       510     A     
 DOPROC             LX0    D3.CVP                                                          DOPROC       511     A     
 DOPROC             BX7    X0*X6                                                           DOPROC       512     A     
 DOPROC             NZ     X7,SETFLAGS       IF B OR C IS A VARIABLE                       DOPROC       513     A     
 DOPROC                                                                                    DOPROC       514     A     
 DOPROC             SA1    X5                WORD 1                                        DOPROC       515     A     
 DOPROC             SA2    X5+B5             WORD 2                                        DOPROC       516     A     
 DOPROC             SX1    X1                LOWER LIMIT                                   DOPROC       517     A     
 DOPROC             SX2    X2                UPPER LIMIT                                   DOPROC       518     A     
 DOPROC             LX1    1                 2*LL                                          DOPROC       519     A     
 DOPROC             IX7    X1-X2                                                           DOPROC       520     A     
 DOPROC             ZR     X7,IHD            IF 2*LL = UL                                  DOPROC       521     A     
 DOPROC                                                                                    DOPROC       522     A     
 DOPROC    SETFLAGS SX0    OF.MV+OF.VV                                                     DOPROC       523     A     
 DOPROC             LX0    D3.OFP                                                          DOPROC       524     A     
 DOPROC             BX6    X0+X6             SET V AND M BITS                              DOPROC       525     A     
 DOPROC             SA6    A6                                                              DOPROC       526     A     
 DOPROC                                                                                    DOPROC       527     A     
 DOPROC    IHD      SA1    IH                ORDINAL OR CONSTANT                           DOPROC       528     A     
 DOPROC             SA5    O.DOTAB                                                         DOPROC       529     A     
 DOPROC             SA4    X5+2              WORD 3                                        DOPROC       530     A     
 DOPROC             BX6    X4+X1             ADD INCREMENT                                 DOPROC       531     A     
 DOPROC             SA6    A4                                                              DOPROC       532     A     
 DOPROC                                                                                    DOPROC       533     A     
 DOPROC   *         (X5) = (O.DOTAB) , (X4) = WORD 3 OF CURRENT LOOP                       DOPROC       534     A     
 DOPROC                                                                                    DOPROC       535     A     
 DOPROC    DOTOP4   LX4    59-D3.CVP-CV.CP                                                 DOPROC       536     A     
 DOPROC             MX7    0                                                               DOPROC       537     A     
 DOPROC             SA7    OTF         OTF = 0                                             DOPROC       538     A     
 DOPROC             MI     X4,DOTOP4A  IF UL IS A VAR                                      DOPROC       539     A     
 DOPROC             SA2    X5+B5       WORD 2                                              DOPROC       540     A     
 DOPROC             SB2    X2                                                              DOPROC       541     A     
 DOPROC             EQ     B2,B5,DOTOP1T     IF UL = 1                                     DOPROC       542     A     
 DOPROC             LX4    CV.CP-CV.BP                                                     DOPROC       543     A     
 DOPROC             MI     X4,DOTOP4A  IF LL IS A VAR                                      DOPROC       544     A     
 DOPROC             SA1    X5          WORD 1                                              DOPROC       545     A     
 DOPROC             SB3    X1                                                              DOPROC       546     A     
 DOPROC             LT     B3,B2,FC4   IF LL < UL                                          DOPROC       547     A     
 DOPROC             EQ     DOTOP1T                                                         DOPROC       548     A     
 DOPROC                                                                                    DOPROC       549     A     
 DOPROC   *         UL AND/OR LL VARIABLE - CHECK FOR LL=UL                                DOPROC       550     A     
 DOPROC                                                                                    DOPROC       551     A     
 DOPROC    DOTOP4A  SA4    X5+2        WORD 3                                              DOPROC       552     A     
 DOPROC             MX0    -2                                                              DOPROC       553     A     
 DOPROC             LX4    -D3.CVP-CV.CP                                                   DOPROC       554     A     
 DOPROC             BX7    X0+X4                                                           DOPROC       555     A     
 DOPROC             NZ     X7,FC4      IF LL AND UL NOT BOTH VARS                          DOPROC       556     A     
 DOPROC             SA2    X5          WORD 1                                              DOPROC       557     A     
 DOPROC             SA1    X5+B5       WORD 2                                              DOPROC       558     A     
 DOPROC             SB3    X2                                                              DOPROC       559     A     
 DOPROC             SB4    X1                                                              DOPROC       560     A     
 DOPROC             NE     B3,B4,FC4   IF B"C                                              DOPROC       561     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2361    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC                                                                                    DOPROC       562     A     
 DOPROC   *         ONE-TRIP DO LOOP                                                       DOPROC       563     A     
 DOPROC                                                                                    DOPROC       564     A     
 DOPROC    DOTOP1T  SX7    1                                                               DOPROC       565     A     
 DOPROC             SA7    OTF         OTF = 1                                             DOPROC       566     A     
 DOPROC             POSTERR NR=E.DO22,SEV=INF                                              DOPROC       567     A     
 DOPROC             SA5    O.DOTAB                                                         DOPROC       568     A     
 DOPROC                                                                                    DOPROC       569     A     
 DOPROC   *         STORE LOOP TABLE INDEX IN DOTAB                                        DOPROC       570     A     
 DOPROC                                                                                    DOPROC       571     A     
 DOPROC    FC4      SA3    OTF                                                             DOPROC       572          I
          -FCC0579
 DOPROC    FC4      SA2    DOPRA                                                           FCC0579       12     A     
 DOPROC             NZ     X2,DOTOPX1  IF LABEL PREVIOUSLY DEFINED                         FCC0579       13     A     
 DOPROC             SA3    OTF                                                             FCC0579       14     A     
 DOPROC             SA2    L.LOOP      NUMBER OF LOOPS                                     DOPROC       573     A     
 DOPROC             LX3    D1.OTP                                                          DOPROC       574     A     
 DOPROC             SA1    X5          WORD 1                                              DOPROC       575     A     
 DOPROC             LX2    D1.LCP+1                                                        DOPROC       576     A     
 DOPROC             BX0    X2+X3                                                           DOPROC       577     A     
 DOPROC             IX6    X0+X1       SET LC AND OTF                                      DOPROC       578     A     
 DOPROC             LX2    -D1.LCP-1                                                       DOPROC       579     A     
 DOPROC             SA6    A1                                                              DOPROC       580     A     
 DOPROC                                                                                    DOPROC       581     A     
 DOPROC   *         GENERATE A LABEL FOR THE TOP OF THE LOOP                               DOPROC       582     A     
 DOPROC                                                                                    DOPROC       583     A     
 DOPROC             SA1    =8R)AA                                                          DOPROC       584     A     
 DOPROC             SX6    X2+B5             INCREMENT                                     DOPROC       585     A     
 DOPROC             MX0    60-5              -37B                                          DOPROC       586     A     
 DOPROC             SA6    A2                                                              DOPROC       587     A     
 DOPROC             BX3    -X0*X2            CONVERT LOOP NUMBER TO DISPLAY CODE           DOPROC       588     A     
 DOPROC             BX4    X0*X2                                                           DOPROC       589     A     
 DOPROC             LX4    1                                                               DOPROC       590     A     
 DOPROC             BX5    X4+X3                                                           DOPROC       591     A     
 DOPROC             LX5    48-18                                                           DOPROC       592     A     
 DOPROC             IX1    X5+X1                                                           DOPROC       593     A     
 DOPROC             SB7    LABRTN      RETURN  ADDRESS                                     DOPROC       594     A     
 DOPROC             EQ     =XLABEL     ENTER LABEL INTO SYMBOL TABLE                       DOPROC       595     A     
 DOPROC                                                                                    DOPROC       596     A     
 DOPROC    LGEN     BIT    P.TYP-P.GEN                                                     DOPROC       597     A     
 DOPROC    LABRTN   SX3    T.LAB*LGEN+1                                                    DOPROC       598     A     
 DOPROC             EQ     SLI2                                                            DOPROC       599     A     
 DOPROC                                                                                    DOPROC       600     A     
 DOPROC    ER21A    SB6    -E.DO21           COMPILER ERROR ( TOO MANY LOOPS )             DOPROC       601     A     
 DOPROC             EQ     FATALER                                                         DOPROC       602     A     
 DOPROC                                                                                    DOPROC       603     A     
 DOPROC    SLI2     LX3    P.GEN                                                           DOPROC       604     A     
 DOPROC             SA4    DUKE                                                            DOPROC       605     A     
 DOPROC             LX4    P.TTLN                                                          DOPROC       606     A     
 DOPROC             BX6    X2+X3             ADD TYPE AND G BIT                            DOPROC       607     A     
 DOPROC             SA5    OTF                                                             DOPROC       608     A     
 DOPROC             IX7    X6+X4       ADD LINE NUMBER                                     DOPROC       609     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2362    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             LX5    P.FLG+OF.RP       SET R BIT IF 1 TRIP LOOP                      DOPROC       610     A     
 DOPROC             BX6    X5+X7                                                           DOPROC       611     A     
 DOPROC             SA6    A2                STORE IN SECOND WORD                          DOPROC       612     A     
 DOPROC             SX6    B1                                                              DOPROC       613     A     
 DOPROC             SA6    LABM+1            SAVE ORDINAL FOR RLIST MACRO                  DOPROC       614     A     
 DOPROC                                                                                    DOPROC       615     A     
 DOPROC             SA3    O.DOTAB                                                         DOPROC       616     A     
 DOPROC             SA4    X3+2              WORD 3                                        DOPROC       617     A     
 DOPROC             LX6    D3.GLP                                                          DOPROC       618     A     
 DOPROC             BX6    X6+X4             ADD ORDINAL TO DOTAB ENTRY                    DOPROC       619     A     
 DOPROC             SA6    A4                                                              DOPROC       620     A     
 DOPROC                                                                                    DOPROC       621     A     
 DOPROC   *         ADD REFERENCES TO THE VARIABLES TO RMAP                                DOPROC       622     A     
 DOPROC                                                                                    DOPROC       623     A     
 DOPROC             SA5    RSELECT                                                         DOPROC       624     A     
 DOPROC             ZR     X5,DOTOP6         IF R = 0                                      DOPROC       625     A     
 DOPROC             ADDREF CVAR,DEF          A DEFINITION FOR THE LOOP INDEX               DOPROC       626     A     
 DOPROC    X        SET    0                                                               DOPROC       627     A     
 DOPROC             DUP    3                                                               DOPROC       628     A     
 DOPROC    X        SET    X+1                                                             DOPROC       629     A     
 DOPROC   +         SA1    CVAR+X                                                          DOPROC       630     A     
 DOPROC             ZR     X1,*+2            REFERENCES FOR THE                            DOPROC       631     A     
 DOPROC             ADDREF X1,REF            LOOP LIMITS                                   DOPROC       632     A     
 DOPROC             ENDD                                                                   DOPROC       633     A     
 DOPROC                                                                                    DOPROC       634     A     
 DOPROC    DOTOP6   SB2    -M.DOBGN                                                        DOPROC       635     A     
 DOPROC             RJ     GENMAC            GENERATE MACRO FOR TOP OF DO                  DOPROC       636     A     
 DOPROC             SA4    OTF                                                             DOPROC       637     A     
 DOPROC             SA5    LABM+1                                                          DOPROC       638     A     
 DOPROC             ZR     X4,DOTOP7   IF NOT A 1 TRIP LOOP                                DOPROC       639     A     
 DOPROC             MX5    0                                                               DOPROC       640     A     
 DOPROC    DOTOP7   CALL   WLABM       )XX LABEL DEF TO RLIST                              DOPROC       641     A     
 DOPROC             EQ     DOTOP                                                           DOPROC       642     A     
 DOPROC             SPACE  3                                                               DOPROC       643     A     
 DOPROC   ***                                                                              DOPROC       644     A     
 DOPROC   *         SYNCHEK - SYNTAX CHECK A DO STATEMENT                                  DOPROC       645     A     
 DOPROC   *                                                                                DOPROC       646     A     
 DOPROC    SYNCHEK                                                                         DOPROC       647     A     
 DOPROC             SA1    SELIST                                                          DOPROC       648     A     
 DOPROC             SB1    -2                                                              DOPROC       649     A     
 DOPROC             SA2    X1+B1             E(2) = EC(=)                                  DOPROC       650     A     
 DOPROC             UX3    B2,X2                                                           DOPROC       651     A     
 DOPROC             SB3    B2-EL.=                                                         DOPROC       652     A     
 DOPROC             NZ     B3,ER5            IF NOT AN = S SIGN                            DOPROC       653     A     
 DOPROC                                                                                    DOPROC       654     A     
 DOPROC             SA5    LWD                                                             DOPROC       655     A     
 DOPROC             SB6    EL.EOS                                                          DOPROC       656     A     
 DOPROC             SB7    EL.EOS                                                          DOPROC       657     A     
 DOPROC             NZ     X5,SYNCHEK1       IF A DO STMT                                  DOPROC       658     A     
 DOPROC             SB6    EL.)              FOR AN IMPLIED DO                             DOPROC       659     A     
 DOPROC             SB7    EL.S)             SPECIAL PAREN                                 DOPROC       660     A     
 DOPROC                                                                                    DOPROC       661     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2363    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC    SYNCHEK1 SA2    A2+B1             FIRST COMMA                                   DOPROC       662     A     
 DOPROC             SB4    EL.COMMA                                                        DOPROC       663     A     
 DOPROC             UX3    B2,X2                                                           DOPROC       664     A     
 DOPROC             NE     B2,B4,ER5         IF NOT A COMMA                                DOPROC       665     A     
 DOPROC             SA2    A2+B1             E(6)                                          DOPROC       666     A     
 DOPROC             UX3    B2,X2                                                           DOPROC       667     A     
 DOPROC             NE     B2,B4,SYNCHEK2    IF NOT A COMMA                                DOPROC       668     A     
 DOPROC             SA2    A2+B1                                                           DOPROC       669     A     
 DOPROC             UX3    B2,X2                                                           DOPROC       670     A     
 DOPROC                                                                                    DOPROC       671     A     
 DOPROC    SYNCHEK2 EQ     B2,B6,SYNCHEK     EXIT IF EOS OR )                              DOPROC       672     A     
 DOPROC             EQ     B2,B7,SYNCHEK                                                   DOPROC       673     A     
 DOPROC                                                                                    DOPROC       674     A     
 DOPROC    ER5      SB6    -E.DO5            DO STMT SYNTAX ERROR                          DOPROC       675     A     
 DOPROC             EQ     DOTOPX                                                          DOPROC       676     A     
 DOPROC             EJECT                                                                  DOPROC       677     A     
 DOPROC   ***                                                                              DOPROC       678     A     
 DOPROC   *         INTVAR - CHECK FOR INTEGER VARIABLE, ENTER NAME IN SYMTAB              DOPROC       679     A     
 DOPROC   *                                                                                DOPROC       680     A     
 DOPROC   *         ON ENTRY:                                                              DOPROC       681     A     
 DOPROC   *                X2 = ELIST ELEMENT                                              DOPROC       682     A     
 DOPROC   *                                                                                DOPROC       683     A     
 DOPROC   *         ON EXIT:  SYMTAB ORDINAL IN "IH"                                       DOPROC       684     A     
 DOPROC   *                                                                                DOPROC       685     A     
 DOPROC    INTVAR   ENTRY.                                                                 DOPROC       686     A     
 DOPROC             UX1    B2,X2             UNPACK                                        DOPROC       687     A     
 DOPROC             NE     B2,B5,INTVAR      EXIT IF NOT A VARIABLE                        DOPROC       688     A     
 DOPROC             SYMBOL                                                                 DOPROC       689     A     
 DOPROC             EQ     INTVAR2                                                         DOPROC       690     A     
 DOPROC                                                                                    DOPROC       691     A     
 DOPROC             NE     B1,B5,INTVAR0     IF NOT ORDINAL 1                              DOPROC       692     A     
 DOPROC             SA1    VALUE.                                                          DOPROC       693     A     
 DOPROC             ZR     X1,INTVAR         IF NOT A FUNCTION                             DOPROC       694     A     
 DOPROC             SB1    X1                                                              DOPROC       695     A     
 DOPROC             SB2    B1+B1                                                           DOPROC       696     A     
 DOPROC             SA1    A0-B2                                                           DOPROC       697     A     
 DOPROC             SA2    A1-B5                                                           DOPROC       698     A     
 DOPROC                                                                                    DOPROC       699     A     
 DOPROC    INTVAR0  SX0    V.FUN+V.DIM                                                     DOPROC       700          I
          -FCC2321
 DOPROC    INTVAR0  SX0    V.FUN                                                           FCC2321        8     A     
 DOPROC             BX3    X0*X1                                                           DOPROC       701     A     
 DOPROC             LX4    X2                                                              DOPROC       702     A     
 DOPROC             NZ     X3,INTVAR         ERROR IF FUNCTION OR DIMENSIONED              DOPROC       703     A     
 DOPROC             LX4    59-P.EXT                                                        DOPROC       704     A     
 DOPROC             NG     X4,INTVAR         OR IF AN EXTERNAL                             DOPROC       705     A     
 DOPROC                                                                                    DOPROC       706     A     
 DOPROC    INTVAR1  SX0    B5                                                              DOPROC       707     A     
 DOPROC             LX0    P.VAR                                                           DOPROC       708     A     
 DOPROC             BX7    X0+X2             SET VAR BIT                                   DOPROC       709     A     
 DOPROC             SA7    A2                                                              DOPROC       710     A     
 DOPROC             AX2    P.TYP                                                           DOPROC       711     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2364    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             SX3    X2-T.INT                                                        DOPROC       712     A     
 DOPROC             SB2    -1          LISTIO FLAG SUBSCRIPT PROCESSING                    FCC1252X      20     A     
 DOPROC             NZ     X3,INTVAR         ERROR IF NOT TYPE INTEGER                     DOPROC       713     A     
 DOPROC             SX0    V.DIM                                                           FCC2321        9     A     
 DOPROC             BX3    X0*X1                                                           FCC2321       10     A     
 DOPROC             ZR     X3,INTVAR3                                                      FCC2321       11     A     
 DOPROC             POSTER SEV=ANSI,NR=E214                                                FCC2321       12     A     
 DOPROC    INTVAR3  BSS    0                                                               FCC2321       13     A     
 DOPROC                                                                                    DOPROC       714     A     
 DOPROC             SA3    INTVAR                                                          DOPROC       715     A     
 DOPROC             AX3    30                                                              DOPROC       716     A     
 DOPROC             SB7    X3+B5                                                           DOPROC       717     A     
 DOPROC             JP     B7                SUCCESS EXIT                                  DOPROC       718     A     
 DOPROC                                                                                    DOPROC       719     A     
 DOPROC   *         FIRST OCCURRENCE - SET TYPE.                                           DOPROC       720     A     
 DOPROC                                                                                    DOPROC       721     A     
 DOPROC    INTVAR2  IX2    X6+X2             SET TYPE                                      DOPROC       722     A     
 DOPROC             ZR     X7,INTVAR1        IF NO PREVIOUS USE IN A DEBUG STMT            DOPROC       723     A     
 DOPROC             CFO    VAR               CHECK SETTING OF DEBUG BITS                   DOPROC       724     A     
 DOPROC             EQ     INTVAR1                                                         DOPROC       725     A     
 DOPROC             TITLE              LIMIT                                               DOPROC       726     A     
 DOPROC   ***                                                                              DOPROC       727     A     
 DOPROC   *         LIMIT - CHECK LOOP LIMITS AND DETERMINE IF                             DOPROC       728     A     
 DOPROC   *         CONSTANT OR VARIABLE                                                   DOPROC       729     A     
 DOPROC   *                                                                                DOPROC       730     A     
 DOPROC    LIMIT                                                                           DOPROC       731     A     
 DOPROC             UX3    B4,X2             SEPERATE EXPONENT FOR CHECKING                DOPROC       732     A     
 DOPROC             ZR     B4,CONEB          IF A CONSTANT                                 DOPROC       733     A     
 DOPROC                                                                                    DOPROC       734     A     
 DOPROC             RJ     INTVAR            GO SEE IF INTEGER VARIABLE                    DOPROC       735     A     
 DOPROC             SB6    E.DO7                                                           DOPROC       736     A     
 DOPROC             EQ     ER7               NOT AN INTEGER VARIABLE                       DOPROC       737     A     
 DOPROC                                                                                    DOPROC       738     A     
 DOPROC             SX7    B1                                                              DOPROC       739     A     
 DOPROC             SA7    IH                PRESERVE ORDINAL OF VARIABLE                  DOPROC       740     A     
 DOPROC                                                                                    DOPROC       741     A     
 DOPROC             SA2    LIMIT             PICK UP RETURN LINKAGE                        DOPROC       742     A     
 DOPROC             AX2    30                                                              DOPROC       743     A     
 DOPROC             SB7    X2+B5                                                           DOPROC       744     A     
 DOPROC             JP     B7                                                              DOPROC       745     A     
 DOPROC                                                                                    DOPROC       746     A     
 DOPROC    ER7      ERNAME B1                NOT A CONSTANT OF VARIABLE                    DOPROC       747     A     
 DOPROC             EQ     DOTOPX                                                          DOPROC       748     A     
 DOPROC                                                                                    DOPROC       749     A     
 DOPROC   *         CHECK CONSTANT AND CONVERT TO BINARY                                   DOPROC       750     A     
 DOPROC                                                                                    DOPROC       751     A     
 DOPROC    CONEB    AX3    45                POSITION TYPE FIELD                           DOPROC       752     A     
 DOPROC             BX4    X2                                                              DOPROC       753     A     
 DOPROC             SX5    X3-T.INT                                                        DOPROC       754     A     
 DOPROC             ZR     X5,CONEB1         IF TYPE INTEGER                               DOPROC       755     A     
 DOPROC             SX5    X3-T.OCT                                                        DOPROC       756     A     
 DOPROC             SB6    E.DO7             BAD DO LIMIT                                  DOPROC       757     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2365    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             MI     X5,DOTOPX         ERROR IF NOT TYPE OCTAL OR HOLLERITH          DOPROC       758     A     
 DOPROC                                                                                    DOPROC       759     A     
 DOPROC    CONEB1   SB1    -B5                                                             DOPROC       760     A     
 DOPROC             BX1    X2                                                              DOPROC       761     A     
 DOPROC             CALL   CONVERT                                                         DOPROC       762     A     
 DOPROC             BX6    X1                                                              DOPROC       763     A     
 DOPROC             AX1    17                                                              DOPROC       764          I
          -FCC2291
 DOPROC             SX5    377777B                                                         FCC2291       17     A     
 DOPROC             IX1    X1-X5                                                           FCC2291       18     A     
 DOPROC             SA6    IH                                                              DOPROC       765     A     
 DOPROC                                                                                    DOPROC       766     A     
 DOPROC             NZ     X1,ER6            IF TOO BIG                                    DOPROC       767          I
          -FCC2291
 DOPROC             PL     X1,ER6      IF INDEX EXCEEDS 131,070                            FCC2291       19     A     
 DOPROC             NZ     X6,LIMIT          EXIT IF NOT ZERO                              DOPROC       768     A     
 DOPROC                                                                                    DOPROC       769     A     
 DOPROC    ER6      SX6    B5                                                              DOPROC       770     A     
 DOPROC             SA6    A6                IH = 1                                        DOPROC       771     A     
 DOPROC             SB6    -E.DO6                                                          DOPROC       772     A     
 DOPROC             SB7    LIMIT                                                           DOPROC       773     A     
 DOPROC             EQ     ERPRO                                                           DOPROC       774     A     
 DOPROC    IOL      EJECT                                                                  DOPROC       775     A     
 DOPROC   **        IOL - INHIBIT OPTIMIZATION IF CV, LL, UL OR INC IS LEVEL 2.            DOPROC       776     A     
 DOPROC   *                                                                                DOPROC       777     A     
 DOPROC   *         ENTRY  (X1) = ORD OF VAR BEGIN CHECKED                                 DOPROC       778     A     
 DOPROC   *                                                                                DOPROC       779     A     
 DOPROC   *         SETS R-BIT IN DOTAB WORD 3.                                            DOPROC       780     A     
 DOPROC                                                                                    DOPROC       781     A     
 DOPROC                                                                                    DOPROC       782     A     
 DOPROC    #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   DOPROC       783     A     
 DOPROC    IOL      ENTRY. *                                                               DOPROC       784     A     
 DOPROC             SA3    =XLEVEL2                                                        DOPROC       785     A     
 DOPROC             ZR     X3,IOL      IF NO LEVEL 2 STATEMENTS                            DOPROC       786     A     
 DOPROC             SB1    X1                                                              DOPROC       787     A     
 DOPROC             SA1    SYM1                                                            DOPROC       788     A     
 DOPROC             SB2    B1+B1                                                           DOPROC       789     A     
 DOPROC             SA2    X1-1                                                            DOPROC       790     A     
 DOPROC             SA1    A2-B2       (X1) = SYMTAB WORD 2                                DOPROC       791     A     
 DOPROC             MX0    -L.LVL                                                          DOPROC       792     A     
 DOPROC             LX1    -P.LVL                                                          DOPROC       793     A     
 DOPROC             BX4    -X0*X1      LEVEL                                               DOPROC       794     A     
 DOPROC             SB7    X4-2                                                            DOPROC       795     A     
 DOPROC             NZ     B7,IOL      IF LEVEL .NE. 2                                     DOPROC       796     A     
 DOPROC             SA3    O.DOTAB                                                         DOPROC       797     A     
 DOPROC             SX0    B5                                                              DOPROC       798     A     
 DOPROC             SA2    X3+2        (X2) = DOTAB WORD 3                                 DOPROC       799     A     
 DOPROC             LX0    D3.OFP+OF.RP                                                    DOPROC       800     A     
 DOPROC             BX6    X0+X2                                                           DOPROC       801     A     
 DOPROC             SA6    A2          SET R BIT                                           DOPROC       802     A     
 DOPROC             EQ     IOL                                                             DOPROC       803     A     
 DOPROC    #DAL     ENDIF                                                                  DOPROC       804     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2366    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC                                                                                    DOPROC       805     A     
 DOPROC             TITLE              GENMAC - GENERATE RLIST MACROS                      DOPROC       806     A     
 DOPROC   **        GENMAC - GENERATE DO BEGIN/END MACROS FOR A LOOP                       DOPROC       807     A     
 DOPROC   *                                                                                DOPROC       808     A     
 DOPROC   *         ENTRY  (B2) = -(MACRO OPCDOE)                                          DOPROC       809     A     
 DOPROC                                                                                    DOPROC       810     A     
 DOPROC    GENMAC   ROUTINE                                                                DOPROC       811     A     
 DOPROC             SA5    O.DOTAB           A5,X5 ADDRESS OF DOTAB ENTRY                  DOPROC       812     A     
 DOPROC             SA4    X5+2              WORD 3                                        DOPROC       813     A     
 DOPROC             MX0    D3.GLL                                                          DOPROC       814     A     
 DOPROC             BX7    X0*X4                                                           DOPROC       815     A     
 DOPROC             LX7    D3.GLL      ORDINAL OF )XX                                      DOPROC       816     A     
 DOPROC             LX4    59-D3.CVP-CV.BP                                                 DOPROC       817     A     
 DOPROC             BX0    X4                SAVE CV(BCD) IN X0                            DOPROC       818     A     
 DOPROC             MX6    D3.CVL                                                          DOPROC       819     A     
 DOPROC             BX1    X6*X4                                                           DOPROC       820     A     
 DOPROC             LX1    D3.CVL+18                                                       DOPROC       821     A     
 DOPROC             SX3    6                                                               DOPROC       822     A     
 DOPROC             LX3    R1.INP                                                          DOPROC       823     A     
 DOPROC             BX1    X1+X3                                                           DOPROC       824     A     
 DOPROC             PX6    B2,X1       12/P(-OC),18/WDS,12/CV(BCD),18/0                    DOPROC       825     A     
 DOPROC             SA6    RLSST             STORE HEADER WORD                             DOPROC       826     A     
 DOPROC                                                                                    DOPROC       827     A     
 DOPROC             SA1    X5                WORD 1                                        DOPROC       828     A     
 DOPROC             RJ     GET                                                             DOPROC       829     A     
 DOPROC             LX6    30                POSITION IH                                   DOPROC       830     A     
 DOPROC             BX6    X6+X7                                                           DOPROC       831     A     
 DOPROC             SA6    A6+B5             WORD 1 IH(B),30/IH(L)                         DOPROC       832     A     
 DOPROC             BX7    X2                SAVE CA(B)                                    DOPROC       833     A     
 DOPROC                                                                                    DOPROC       834     A     
 DOPROC             SA1    X5+B5             WORD 2 OF DOTAB ENTRY                         DOPROC       835     A     
 DOPROC             RJ     GET                                                             DOPROC       836     A     
 DOPROC             SA6    A6+B5             STORE                                         DOPROC       837     A     
 DOPROC             NZ     X6,GENMAC1        IF C IS A VARIABLE                            DOPROC       838     A     
 DOPROC                                                                                    DOPROC       839     A     
 DOPROC             SX2    X2+B5             C+1                                           DOPROC       840     A     
 DOPROC             MX3    42                                                              DOPROC       841     A     
 DOPROC             BX4    -X2                                                             DOPROC       842     A     
 DOPROC             BX2    -X3*X4            -(C+1)                                        DOPROC       843     A     
 DOPROC    GENMAC1  LX2    18                                                              DOPROC       844     A     
 DOPROC             BX7    X2+X7             CA(C),CA(B)                                   DOPROC       845     A     
 DOPROC                                                                                    DOPROC       846     A     
 DOPROC             SA1    X5+2              WORD 3 OF DOTAB ENTRY ( INCREMENT )           DOPROC       847     A     
 DOPROC             RJ     GET                                                             DOPROC       848     A     
 DOPROC             SA3    A6                GET WORD 3 OF MACRO                           DOPROC       849     A     
 DOPROC             LX6    30                                                              DOPROC       850     A     
 DOPROC             BX6    X6+X3             IH(D),IH(C)                                   DOPROC       851     A     
 DOPROC             SA6    A6                                                              DOPROC       852     A     
 DOPROC             LX2    36                                                              DOPROC       853     A     
 DOPROC             BX7    X2+X7             CA(D),CA(C),CA(B)                             DOPROC       854     A     
 DOPROC                                                                                    DOPROC       855     A     
 DOPROC             SA1    X5+B5             WORD 2                                        DOPROC       856     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2367    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             MX0    D2.IXL                                                          DOPROC       857     A     
 DOPROC             BX2    X0*X1             EXTRACT ORD OF CV                             DOPROC       858     A     
 DOPROC             LX2    D2.IXL                                                          DOPROC       859     A     
 DOPROC             RJ     NAME              GET BASE BIAS OF CONTROL VARIABLE             DOPROC       860     A     
 DOPROC             SA1    NRLN              NEXT R NUMBER                                 DOPROC       861     A     
 DOPROC             SX6    B1                BASE                                          DOPROC       862     A     
 DOPROC             SA6    A6+B5             WORD 3                                        DOPROC       863     A     
 DOPROC                                                                                    DOPROC       864     A     
 DOPROC   *         STORE INFO IN WORD 4 OF RLIST MACRO FOR LOOP MAP                       DOPROC       865     A     
 DOPROC                                                                                    DOPROC       866     A     
 DOPROC             SA5    A5                                                              DOPROC       867     A     
 DOPROC             MX0    D1.SL                                                           DOPROC       868     A     
 DOPROC             SA3    X5                WORD 1                                        DOPROC       869     A     
 DOPROC             LX2    48                                                              DOPROC       870     A     
 DOPROC             BX4    X0*X3       ORD OF STMT LABEL                                   DOPROC       871     A     
 DOPROC             LX4    D1.SL+36                                                        DOPROC       872     A     
 DOPROC             BX0    X2+X4                                                           DOPROC       873     A     
 DOPROC             LX3    -D1.LCP                                                         DOPROC       874     A     
 DOPROC             IX6    X0+X1       12/ORD(CV),12/ORD(LABEL),18/LPCNT,18/NRLN           DOPROC       875     A     
 DOPROC             SX3    X3                                                              DOPROC       876     A     
 DOPROC             LX3    18                                                              DOPROC       877     A     
 DOPROC             BX6    X3+X6                                                           DOPROC       878     A     
 DOPROC             SA6    A6+B5       STORE WORD 4                                        DOPROC       879     A     
 DOPROC             SA7    A6+B5             WORD 5 = CA(D) , CA(C) , CA(B)                DOPROC       880     A     
 DOPROC             SX6    B2                CA OF CVAR                                    DOPROC       881     A     
 DOPROC             SA6    A7+B5                                                           DOPROC       882     A     
 DOPROC             SX6    X1+B5             NRLN+1                                        DOPROC       883     A     
 DOPROC             SA6    A1                                                              DOPROC       884     A     
 DOPROC             WRM    RLSST             DO BEGIN/END MACRO TO RLIST                   DOPROC       885     A     
 DOPROC             EQ     GENMAC                                                          DOPROC       886     A     
 DOPROC             SPACE  3                                                               DOPROC       887     A     
 DOPROC   ***                                                                              DOPROC       888     A     
 DOPROC   *         GET - GET IH AND CA FIELDS FOR GENMAC                                  DOPROC       889     A     
 DOPROC   *                                                                                DOPROC       890     A     
 DOPROC   *         EXIT:  X2 = CA   ,  X6 = IH                                            DOPROC       891     A     
 DOPROC   *                                                                                DOPROC       892     A     
 DOPROC    GET                                                                             DOPROC       893     A     
 DOPROC             SX2    X1                X2 = CA                                       DOPROC       894     A     
 DOPROC             MX6    0                 X6 = IH                                       DOPROC       895     A     
 DOPROC                                                                                    DOPROC       896     A     
 DOPROC             PL     X0,GET1           IF NOT A VARIABLE                             DOPROC       897     A     
 DOPROC             RJ     NAME                                                            DOPROC       898     A     
 DOPROC             SX6    B1                BASE                                          DOPROC       899     A     
 DOPROC             SX2    B2                BIAS                                          DOPROC       900     A     
 DOPROC             SA5    A5                RESTORE DO TABLE ADDRESS                      DOPROC       901     A     
 DOPROC                                                                                    DOPROC       902     A     
 DOPROC    GET1     LX0    1                 POSITION NEXT BIT                             DOPROC       903     A     
 DOPROC             EQ     GET                                                             DOPROC       904     A     
 DOPROC             TITLE              NAME - GET BASE/BIAS FOR SYMTAB ENTRY               DOPROC       905     A     
 DOPROC   ***                                                                              DOPROC       906     A     
 DOPROC   *         NAME - CHECK FOR AN EQUIVALENCED VARIABLE                              DOPROC       907     A     
 DOPROC   *         RETURNS THE BASE AND BIAS OF A VARIABLE                                DOPROC       908     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2368    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC   *                                                                                DOPROC       909     A     
 DOPROC   *         ON ENTRY:                                                              DOPROC       910     A     
 DOPROC   *                X2 = SYMTAB ORDINAL                                             DOPROC       911     A     
 DOPROC   *                                                                                DOPROC       912     A     
 DOPROC   *         ON EXIT:                                                               DOPROC       913     A     
 DOPROC   *                X2 = ORDINAL OF ORIGINAL ( UNTOUCHED )                          DOPROC       914     A     
 DOPROC   *                B1 = ORDINAL OF BASE MEMBER                                     DOPROC       915     A     
 DOPROC   *                B2 = BIAS                                                       DOPROC       916     A     
 DOPROC   *                                                                                DOPROC       917     A     
 DOPROC   *         USES X1 - X5 , A1,A3,A4  ** DO NOT CHANGE, MANY SUBROUTINES            DOPROC       918     A     
 DOPROC   *                                  DEPEND ON THIS FACT **                        DOPROC       919     A     
 DOPROC   *                                                                                DOPROC       920     A     
 DOPROC    NAME     ENTRY. *                                                               DOPROC       921     A     
 DOPROC             SA1    SYM1                                                            DOPROC       922     A     
 DOPROC             SB1    X2                B1 = ORDINAL                                  DOPROC       923     A     
 DOPROC             LX5    B5,X2             2*ORD                                         DOPROC       924     A     
 DOPROC             IX4    X1-X5                                                           DOPROC       925     A     
 DOPROC             SA1    X4          WORD A                                              DOPROC       926     A     
 DOPROC             SB2    B0                                                              DOPROC       927     A     
 DOPROC             LX1    59-P.EQU                                                        DOPROC       928     A     
 DOPROC             PL     X1,NAME     IF NOT EQUIVALENCED                                 DOPROC       929     A     
 DOPROC             SA3    A1-B5       WORD B                                              DOPROC       930     A     
 DOPROC             MX5    -L.DIMP                                                         DOPROC       931     A     
 DOPROC             LX3    -P.DIMP                                                         DOPROC       932     A     
 DOPROC             BX5    -X5*X3      DIMP                                                DOPROC       933     A     
 DOPROC             SA1    DIM1                                                            DOPROC       934     A     
 DOPROC             LX5    1                                                               DOPROC       935     A     
 DOPROC             IX3    X1+X5                                                           DOPROC       936     A     
 DOPROC             SA4    X3                FETCH DIM ENTRY                               DOPROC       937     A     
 DOPROC             AX4    18                                                              DOPROC       938     A     
 DOPROC             SB2    X4                B2 = CA                                       DOPROC       939     A     
 DOPROC             AX4    18                                                              DOPROC       940     A     
 DOPROC             SB1    X4                                                              DOPROC       941     A     
 DOPROC             EQ     NAME                                                            DOPROC       942     A     
 DOPROC             TITLE              DODEF - VARIABLE DEFINITION                         DOPROC       943     A     
 DOPROC   ***                                                                              DOPROC       944     A     
 DOPROC   *         DODEF - VARIABLE DEFINITION IN AN ASSIGNMENT STMT                      DOPROC       945     A     
 DOPROC   *         CHECK FOR REDEFINITION OF A LOOP CONTROL VARIABLE.                     DOPROC       946     A     
 DOPROC   *         MAKE AN ENTRY IN *DOLIST*.                                             DOPROC       947     A     
 DOPROC   *                                                                                DOPROC       948     A     
 DOPROC   *         ON ENTRY:                                                              DOPROC       949     A     
 DOPROC   *                B1 = ORDINAL OF VARIABLE, B1 < 0 IF IN BASE BIAS FORM           DOPROC       950     A     
 DOPROC   *                                                                                DOPROC       951     A     
 DOPROC    TEMP     BSSZ   2                 2 TEMPORARIES FOR DOSYM                       DOPROC       952          I
          -FCC1289X 
 DOPROC    TEMP     BSSZ   3                 3 TEMPORARIES FOR DOSYM                       FCC1289X      23     A     
 DOPROC                                                                                    DOPROC       953     A     
 DOPROC    CHKBB    MACRO  ROUTINE           CHECK BASE/BIAS                               DOPROC       954     A     
 DOPROC             LOCAL  NEXT                                                            DOPROC       955     A     
 DOPROC             LOCAL CHBB                                                             DOPROC       956     A     
 DOPROC             RJ     NAME              GET BASE AND BIAS                             DOPROC       957     A     
 DOPROC             NE     B1,B6,NEXT                                                      DOPROC       958     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2369    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             SA1    =XNRFD                                                          DOPROC       959     A     
 DOPROC             ZR     X1,CHBB     IF RF .EQ. 0                                        DOPROC       960     A     
 DOPROC             SB1    ERPROI                                                          DOPROC       961     A     
 DOPROC             SB6    E.DO14                                                          DOPROC       962     A     
 DOPROC             RJ     DODEF.E                                                         DOPROC       963     A     
 DOPROC             EQ     NEXT                                                            DOPROC       964     A     
 DOPROC    CHBB     BSS    0                                                               DOPROC       965     A     
 DOPROC             NE     B2,B7,NEXT                                                      DOPROC       966     A     
 DOPROC             SB1    ROUTINE                                                         DOPROC       967     A     
 DOPROC             SB6    E.DO13                                                          DOPROC       968     A     
 DOPROC             RJ     DODEF.E                                                         DOPROC       969     A     
 DOPROC    NEXT     BSS    0                                                               DOPROC       970     A     
 DOPROC             ENDM                                                                   DOPROC       971     A     
 DOPROC                                                                                    DOPROC       972     A     
 DOPROC    CHKDO    MACRO  WORD              CHECK DO LIMIT                                DOPROC       973     A     
 DOPROC             LOCAL  NOCHK                                                           DOPROC       974     A     
 DOPROC             SA5    B4+B5             WORD 3                                        DOPROC       975     A     
 DOPROC             LX5    59-D3.CVP-D3.CVL+WORD  POSITION CV BIT                          DOPROC       976     A     
 DOPROC             PL     X5,NOCHK          IF A CONSTANT                                 DOPROC       977     A     
 DOPROC    REG      MICRO  WORD*5-4,5,/B4-B5B4   B4+B5/                                    DOPROC       978     A     
 DOPROC             SA3    "REG"                                                           DOPROC       979     A     
 DOPROC             SX2    X3                                                              DOPROC       980     A     
 DOPROC             CHKBB  ERPROI            CHECK BASE BIAS                               DOPROC       981     A     
 DOPROC    NOCHK    BSS    0                                                               DOPROC       982     A     
 DOPROC             ENDM                                                                   DOPROC       983     A     
 DOPROC             SPACE  3                                                               DOPROC       984     A     
 DOPROC    DODEF    ENTRY.                                                                 DOPROC       985     A     
 DOPROC             SA4    DOFLAG                                                          DOPROC       986     A     
 DOPROC             ZR     X4,DODEF          IF NO LOOPS                                   DOPROC       987     A     
 DOPROC                                                                                    DOPROC       988     A     
 DOPROC             SB5    1                                                               DOPROC       989     A     
 DOPROC             PL     B1,DODEF1                                                       DOPROC       990     A     
 DOPROC             SB1    -B1                                                             DOPROC       991     A     
 DOPROC             EQ     DODEF2                                                          DOPROC       992     A     
 DOPROC                                                                                    DOPROC       993     A     
 DOPROC    DODEF1   SX2    B1                GET BASE/BIAS FOR DEFINED SYMBOL              DOPROC       994     A     
 DOPROC             RJ     NAME                                                            DOPROC       995     A     
 DOPROC                                                                                    DOPROC       996     A     
 DOPROC    DODEF2   SB6    B1                                                              DOPROC       997     A     
 DOPROC             SA4    =XNCAD                                                          DOPROC       998     A     
 DOPROC             SB7    X4+B2       B6,B7 = BASE,BIAS OF REDEFINITION                   DOPROC       999     A     
 DOPROC             SA4    O.DOTAB                                                         DOPROC      1000     A     
 DOPROC             SB4    X4+B5             B4 = CURRENT LOOP ADDR + 1                    DOPROC      1001     A     
 DOPROC             SX7    B7                                                              DOPROC      1002     A     
 DOPROC             LX7    18                                                              DOPROC      1003     A     
 DOPROC             SX6    B6                                                              DOPROC      1004     A     
 DOPROC             BX7    X7+X6                                                           DOPROC      1005     A     
 DOPROC             SA7    TEMP+1            TEMP SAVE BASE/BIAS                           DOPROC      1006     A     
 DOPROC             SB3    DOTAB+1           B3 = FWA+1 OF DOTAB                           DOPROC      1007     A     
 DOPROC                                                                                    DOPROC      1008     A     
 DOPROC   *         CHECK *DOTAB* FOR REDEFINITION OF LOOP CONTROL VARIABLES.              DOPROC      1009     A     
 DOPROC                                                                                    DOPROC      1010     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2370    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC    DODEF.L  SA4    B4                WORD 2                                        DOPROC      1011     A     
 DOPROC             MX0    D2.IXL                                                          DOPROC      1012     A     
 DOPROC             BX2    X0*X4                                                           DOPROC      1013     A     
 DOPROC             LX2    D2.IXL                                                          DOPROC      1014     A     
 DOPROC             CHKBB  ERPRO             CHECK FOR REDEF OF CONTROL VARIABLE           DOPROC      1015     A     
 DOPROC                                                                                    DOPROC      1016     A     
 DOPROC             CHKDO  1                 CHECK FOR                                     DOPROC      1017     A     
 DOPROC             CHKDO  2                 REDEFINITION OF                               DOPROC      1018     A     
 DOPROC             CHKDO  3                 DO LIMITS                                     DOPROC      1019     A     
 DOPROC             SB4    B4-3                                                            DOPROC      1020     A     
 DOPROC             GT     B4,B3,DODEF.L     LOOP IF MORE ENTRIES                          DOPROC      1021     A     
 DOPROC             EQ     DODEF                                                           DOPROC      1022     A     
 DOPROC             SPACE  3                                                               DOPROC      1023     A     
 DOPROC   ***                                                                              DOPROC      1024     A     
 DOPROC   *         DODEF.E - DO DEFINITION ERROR                                          DOPROC      1025     A     
 DOPROC   *                                                                                DOPROC      1026     A     
 DOPROC   *         ON ENTRY:                                                              DOPROC      1027     A     
 DOPROC   *                X2 = ORDINAL OF SYMBOL                                          DOPROC      1028     A     
 DOPROC   *                B6 = ERROR NUMBER                                               DOPROC      1029     A     
 DOPROC   *         ON EXIT:                                                               DOPROC      1030     A     
 DOPROC   *                B3,B4,B6,B7 RESTORED                                            DOPROC      1031     A     
 DOPROC   *                                                                                DOPROC      1032     A     
 DOPROC    DODEF.EX SA1    TEMP                                                            DOPROC      1033     A     
 DOPROC             SA2    A1+B5                                                           DOPROC      1034     A     
 DOPROC             SB4    X1                RESTORE DOTAB ADDRESS                         DOPROC      1035     A     
 DOPROC             SB6    X2                                                              DOPROC      1036     A     
 DOPROC             AX2    18                                                              DOPROC      1037     A     
 DOPROC             SB7    X2                                                              DOPROC      1038     A     
 DOPROC             SB3    DOTAB+1                                                         DOPROC      1039     A     
 DOPROC    DODEF.E                                                                         DOPROC      1040     A     
 DOPROC             SX6    B4                                                              DOPROC      1041     A     
 DOPROC             SA6    TEMP              SAVE B4                                       DOPROC      1042     A     
 DOPROC             SX7    B1                SAVE B1                                       FCC1289X      24     A     
 DOPROC             SA7    A6+2                                                            FCC1289X      25     A     
 DOPROC             ERNAME X2                SYMBOL NAME TO X3                             DOPROC      1043     A     
 DOPROC             SA1    TEMP+2                                                          FCC1289X      26     A     
 DOPROC             SB1    X1                                                              FCC1289X      27     A     
 DOPROC             SB7    DODEF.EX                                                        DOPROC      1044     A     
 DOPROC             JP     B1                JUMP TO ERROR ROUTINE                         DOPROC      1045     A     
 DOPROC             TITLE              DOCALL - EXTERNAL REFERENCE IN A DO LOOP            DOPROC      1046     A     
 DOPROC   ***                                                                              DOPROC      1047     A     
 DOPROC   *                                                                                DOPROC      1048     A     
 DOPROC   *         DOCALL - EXTERNAL REFERENCE ENCOUNTERED                                DOPROC      1049     A     
 DOPROC   *         LOOP THROUGH DOTAB AND SET J BIT FOR ALL LOOPS                         DOPROC      1050     A     
 DOPROC   *                                                                                DOPROC      1051     A     
 DOPROC    DOCALL   ENTRY.                                                                 DOPROC      1052     A     
 DOPROC             SA1    DOFLAG                                                          DOPROC      1053     A     
 DOPROC             ZR     X1,DOCALL         IF NO DO LOOPS                                DOPROC      1054     A     
 DOPROC             MX0    1                                                               DOPROC      1055     A     
 DOPROC             SX2    DOTAB             FWA                                           DOPROC      1056     A     
 DOPROC             LX0    1+D3.OFP+OF.JP                                                  DOPROC      1057     A     
 DOPROC             SA1    O.DOTAB                                                         DOPROC      1058     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2371    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC                                                                                    DOPROC      1059     A     
 DOPROC    DOCALL1  SA4    X1+2              WORD 3                                        DOPROC      1060     A     
 DOPROC             BX7    X0+X4             SET J BIT                                     DOPROC      1061     A     
 DOPROC             SX1    X1-3                                                            DOPROC      1062     A     
 DOPROC             IX5    X1-X2                                                           DOPROC      1063     A     
 DOPROC             SA7    A4                                                              DOPROC      1064     A     
 DOPROC             NZ     X5,DOCALL1                                                      DOPROC      1065     A     
 DOPROC                                                                                    DOPROC      1066     A     
 DOPROC             EQ     DOCALL                                                          DOPROC      1067     A     
 DOPROC                                                                                    DOPROC      1068     A     
 DOPROC   ***                                                                              DOPROC      1069     A     
 DOPROC   *         XFERF - XFER FLAGS FROM DOTAB ENTRY TO SYMTAB ENTRY                    DOPROC      1070     A     
 DOPROC   *                                                                                DOPROC      1071     A     
 DOPROC   *         ON ENTRY: X7 = NEW FLAGS TO BE SET                                     DOPROC      1072     A     
 DOPROC   *                                                                                DOPROC      1073     A     
 DOPROC   *         ON EXIT:  A1,X1 = O.DOTAB,(O.DOTAB) , A2,X2 = WORD 3 OF ENTRY          DOPROC      1074     A     
 DOPROC   *                                                                                DOPROC      1075     A     
 DOPROC    XFERF                                                                           DOPROC      1076     A     
 DOPROC             SA1    O.DOTAB                                                         DOPROC      1077     A     
 DOPROC             MX0    D3.OFL                                                          DOPROC      1078     A     
 DOPROC             SA2    X1+2              WORD 3                                        DOPROC      1079     A     
 DOPROC             LX0    D3.OFL+D3.OFP     POSITION MASK                                 DOPROC      1080     A     
 DOPROC             MX3    D3.GLL                                                          DOPROC      1081     A     
 DOPROC             BX4    X3*X2                                                           DOPROC      1082     A     
 DOPROC             LX4    D3.GLL+1    SYMTAB ORDINAL OF )AA * 2                           DOPROC      1083     A     
 DOPROC             SA5    SYM1                                                            DOPROC      1084     A     
 DOPROC             BX3    X0*X2             EXTRACT FLAGS                                 DOPROC      1085     A     
 DOPROC             BX3    X7+X3             SET NEW FLAGS                                 DOPROC      1086     A     
 DOPROC             LX3    P.FLG-D3.OFP                                                    DOPROC      1087     A     
 DOPROC             IX6    X5-X4                                                           DOPROC      1088     A     
 DOPROC             SA4    X6-1              WORD B                                        DOPROC      1089     A     
 DOPROC             BX6    X3+X4             ADD FLAGS                                     DOPROC      1090     A     
 DOPROC             SA6    A4                                                              DOPROC      1091     A     
 DOPROC             EQ     XFERF                                                           DOPROC      1092     A     
 DOPROC             TITLE              DONE - POST I/O LIST PROCESSOR                      DOPROC      1093     A     
 DOPROC             ENTRY  DONE                                                            DOPROC      1094     A     
 DOPROC   ***                                                                              DOPROC      1095     A     
 DOPROC   *         DONE - POST I/O LIST PROCESSOR                                         DOPROC      1096     A     
 DOPROC   *                                                                                DOPROC      1097     A     
 DOPROC    DONE     SA1    O.DOTAB                                                         DOPROC      1098     A     
 DOPROC             SX2    X1-DOTAB                                                        DOPROC      1099     A     
 DOPROC             ZR     X2,DONEX          IF NO LOOPS                                   DOPROC      1100     A     
 DOPROC             SA3    X1          WORD 1                                              DOPROC      1101     A     
 DOPROC             LX3    59-D1.OTP                                                       DOPROC      1102     A     
 DOPROC             MI     X3,DONE1    IF A ONE TRIP LOOP                                  DOPROC      1103     A     
 DOPROC             SB2    -M.DOEND                                                        DOPROC      1104     A     
 DOPROC             RJ     GENMAC            GENERATE A DO END MACRO                       DOPROC      1105     A     
 DOPROC             EQ     DONE2                                                           DOPROC      1106     A     
 DOPROC                                                                                    DOPROC      1107     A     
 DOPROC    DONE1    WRM    DOLABA                                                          DOPROC      1108     A     
 DOPROC                                                                                    DOPROC      1109     A     
 DOPROC    DONE2    MX7    1                                                               DOPROC      1110     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2372    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             LX7    1+19                                                            DOPROC      1111     A     
 DOPROC             RJ     XFERF             SET J BIT AND XFER FLAGS                      DOPROC      1112     A     
 DOPROC                                                                                    DOPROC      1113     A     
 DOPROC   *         COMPRESS DO TABLE                                                      DOPROC      1114     A     
 DOPROC                                                                                    DOPROC      1115     A     
 DOPROC             SX7    X1-3                                                            DOPROC      1116     A     
 DOPROC             SA7    O.DOTAB           O.DOTAB = O.DOTAB - 3                         DOPROC      1117     A     
 DOPROC             SA2    DOFLAG                                                          DOPROC      1118     A     
 DOPROC             SX6    X2-1              DECREMENT NESTING LEVEL                       DOPROC      1119     A     
 DOPROC             SA6    A2                                                              DOPROC      1120     A     
 DOPROC             EQ     DONEX                                                           DOPROC      1121     A     
 DOPROC             TITLE              DOIT - PRE I/O LIST PROCESSOR                       DOPROC      1122     A     
 DOPROC             ENTRY  DOIT                                                            DOPROC      1123     A     
 DOPROC   ***                                                                              DOPROC      1124     A     
 DOPROC   *         DOIT - IMPLIED DO LOOP PROCESSING                                      DOPROC      1125     A     
 DOPROC   *         ENTRY:   B1 = E LIST POINTER                                           DOPROC      1126     A     
 DOPROC   *                                                                                DOPROC      1127     A     
 DOPROC    DOIT     SX6    B1+2              MOVE E LIST POINTER BACK                      DOPROC      1128     A     
 DOPROC             SA1    SELIST                                                          DOPROC      1129     A     
 DOPROC             BX7    X1                                                              DOPROC      1130     A     
 DOPROC             SA7    SVELIST           SAVE POINTER FOR LISTIO                       DOPROC      1131     A     
 DOPROC             SA6    A1                POINT TO BEFORE THE = S                       DOPROC      1132     A     
 DOPROC             MX7    0                                                               DOPROC      1133     A     
 DOPROC             SA7    LWD               NO LABEL ASSOCIATED WITH AN I/O STMT          DOPROC      1134     A     
 DOPROC             RJ     DOTOP             GENERATE THE TOP OF THE LOOP                  DOPROC      1135     A     
 DOPROC             SA1    SVELIST                                                         DOPROC      1136     A     
 DOPROC             BX6    X1                                                              DOPROC      1137     A     
 DOPROC             SA6    SELIST            RESTORE E-LIST POINTER                        DOPROC      1138     A     
 DOPROC             EQ     DOITX                                                           DOPROC      1139     A     
 DOPROC             SPACE  3                                                               DOPROC      1140     A     
 DOPROC   *         DOGOOF - COMPRESS "DOTAB" AFTER AN I/O LIST ERROR                      DOPROC      1141     A     
 DOPROC                                                                                    DOPROC      1142     A     
 DOPROC             ENTRY  DOGOOF                                                          DOPROC      1143     A     
 DOPROC    DOGOOF   SA1    DOFLAG                                                          DOPROC      1144     A     
 DOPROC             ZR     X1,PH2RETN        IF NO LOOPS                                   DOPROC      1145     A     
 DOPROC             SB5    1                                                               DOPROC      1146     A     
 DOPROC             SA2    O.DOTAB           CURRENT ENTRY ADDRESS                         DOPROC      1147     A     
 DOPROC                                                                                    DOPROC      1148     A     
 DOPROC    DOGOOFL  SA3    X2                FIRST WORD                                    DOPROC      1149     A     
 DOPROC             MX0    D1.SL                                                           DOPROC      1150     A     
 DOPROC             BX4    X0*X3                                                           DOPROC      1151     A     
 DOPROC             NZ     X4,DOGOOF1        IF NOT AN I/O LOOP                            DOPROC      1152     A     
 DOPROC             SX1    X1-1                                                            DOPROC      1153     A     
 DOPROC             SX2    X2-3                                                            DOPROC      1154     A     
 DOPROC             SX6    X2-DOTAB                                                        DOPROC      1155     A     
 DOPROC             NZ     X6,DOGOOFL        IF NOT FINISHED                               DOPROC      1156     A     
 DOPROC                                                                                    DOPROC      1157     A     
 DOPROC    DOGOOF1  BX6    X1                                                              DOPROC      1158     A     
 DOPROC             LX7    X2                                                              DOPROC      1159     A     
 DOPROC             SA6    A1                UPDATE NESTING LEVEL                          DOPROC      1160     A     
 DOPROC             SA7    A2                AND DO STACK POINTER                          DOPROC      1161     A     
 DOPROC             EQ     PH2RETN                                                         DOPROC      1162     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2373    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             TITLE              DOLAB - END OF LABELED STMT PROCESSING              DOPROC      1163     A     
 DOPROC    PFIELD   EQU    TEMP+1            DO1 + P FIELD OF DO LOOP                      DOPROC      1164     A     
 DOPROC   ***                                                                              DOPROC      1165     A     
 DOPROC   *                                                                                DOPROC      1166     A     
 DOPROC   *         DOLAB - OUTPUT "DOEND" MACROS FOR LOOPS THAT TERMINATE                 DOPROC      1167     A     
 DOPROC   *         ON THIS STATEMENT                                                      DOPROC      1168     A     
 DOPROC   *                                                                                DOPROC      1169     A     
 DOPROC    DOLAB    ENTRY.                                                                 DOPROC      1170     A     
 DOPROC             SA1    DOFLAG                                                          DOPROC      1171     A     
 DOPROC             ZR     X1,DOLAB          EXIT IF NO LOOPS                              DOPROC      1172     A     
 DOPROC                                                                                    DOPROC      1173     A     
 DOPROC   *         SEARCH "DOTAB" FOR LOOPS THAT TERMINATE ON THIS STMT                   DOPROC      1174     A     
 DOPROC                                                                                    DOPROC      1175     A     
 DOPROC    DOLAB1   SA1    LORD                                                            DOPROC      1176     A     
 DOPROC             SA2    O.DOTAB                                                         DOPROC      1177     A     
 DOPROC             SB6    DOTAB                                                           DOPROC      1178     A     
 DOPROC             LX1    D1.SP                                                           DOPROC      1179     A     
 DOPROC             SB4    X2                CURRENT ENTRY ADDR                            DOPROC      1180     A     
 DOPROC             SB7    X2                LOOP INDEX                                    DOPROC      1181     A     
 DOPROC                                                                                    DOPROC      1182     A     
 DOPROC    DOLAB2   EQ     B7,B6,DOLAB       EXIT IF FINISHED                              DOPROC      1183     A     
 DOPROC                                                                                    DOPROC      1184     A     
 DOPROC             SA3    B7                FIRST WORD                                    DOPROC      1185     A     
 DOPROC             MX0    D1.SL                                                           DOPROC      1186     A     
 DOPROC             BX4    X0*X3             EXTRACT ORD OF STMT LABEL                     DOPROC      1187     A     
 DOPROC             IX5    X1-X4                                                           DOPROC      1188     A     
 DOPROC             ZR     X5,DOLAB3         IF THE SAME                                   DOPROC      1189     A     
 DOPROC             SB7    B7-3                                                            DOPROC      1190     A     
 DOPROC             EQ     DOLAB2            LOOP FOR THE NEXT ENTRY                       DOPROC      1191     A     
 DOPROC                                                                                    DOPROC      1192     A     
 DOPROC    DOLAB3   EQ     B4,B7,DOLAB4      IF AT THE TOP OF THE STACK                    DOPROC      1193     A     
 DOPROC                                                                                    DOPROC      1194     A     
 DOPROC   *         ISSUE A DIAGNOSTIC FOR "ILLEGAL NESTING"                               DOPROC      1195     A     
 DOPROC                                                                                    DOPROC      1196     A     
 DOPROC             SA4    B4                                                              DOPROC      1197     A     
 DOPROC             BX2    X0*X4             EXTRACT ORDINAL                               DOPROC      1198     A     
 DOPROC             LX2    D1.SL                                                           DOPROC      1199     A     
 DOPROC             SB7    DOLAB.D                                                         DOPROC      1200     A     
 DOPROC             SB6    E.DO12                                                          DOPROC      1201     A     
 DOPROC             ERNAME X2                PREPARE SYMBOL                                DOPROC      1202     A     
 DOPROC             EQ     ERPRO                                                           DOPROC      1203     A     
 DOPROC                                                                                    DOPROC      1204     A     
 DOPROC    DOLAB.D  SA2    O.DOTAB                                                         DOPROC      1205     A     
 DOPROC             SX7    X2-3                                                            DOPROC      1206     A     
 DOPROC             SA3    DOFLAG                                                          DOPROC      1207     A     
 DOPROC             SX6    X3-1              DECREMENT NESTING LEVEL                       DOPROC      1208     A     
 DOPROC             SA7    A2                REMOVE LAST ENTRY FROM THE STACK              DOPROC      1209     A     
 DOPROC             SA6    A3                                                              DOPROC      1210     A     
 DOPROC             EQ     DOLAB1            LOOP                                          DOPROC      1211     A     
 DOPROC                                                                                    DOPROC      1212     A     
 DOPROC                                                                                    DOPROC      1213     A     
 DOPROC   *         CHECK FOR ILLEGAL DO STMT TERMINATOR                                   DOPROC      1214     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2374    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC                                                                                    DOPROC      1215     A     
 DOPROC    DOLAB4   SA1    TYPE              CURRENT STMT TYPE                             DOPROC      1216     A     
 DOPROC             SX2    643B              TEST FOR GO TO, IF(E) N1,N2,N3                DOPROC      1217     A     
 DOPROC             LX2    15                RETURN , STOP , PAUSE                         DOPROC      1218     A     
 DOPROC             LX3    -D1.OTP                                                         DOPROC      1219     A     
 DOPROC             MX0    -D1.OTL                                                         DOPROC      1220     A     
 DOPROC             BX6    -X0*X3                                                          DOPROC      1221     A     
 DOPROC             SA6    OTF         ONE-TRIP LOOP FLAG                                  DOPROC      1222     A     
 DOPROC             SB2    X1                                                              DOPROC      1223     A     
 DOPROC             AX3    B2,X2                                                           DOPROC      1224     A     
 DOPROC             LX3    59                                                              DOPROC      1225     A     
 DOPROC             SB2    B2-21B      TEST FOR LOGICAL IF                                 FCC0825       10     A     
 DOPROC             ZR     B2,DOLAB4A  IF LOGICAL IF                                       FCC0825       11     A     
 DOPROC             PL     X3,DOLAB5         IF NOT ONE OF THE ABOVE                       DOPROC      1226     A     
 DOPROC                                                                                    DOPROC      1227     A     
 DOPROC    ER11     SB6    -E.DO11           ILLEGAL DO STMT TERMINATOR                    DOPROC      1228     A     
 DOPROC             SB7    DOLAB                                                           DOPROC      1229     A     
 DOPROC             SX6    DOTAB                                                           DOPROC      1230     A     
 DOPROC             SA6    O.DOTAB           FORGET ABOUT THE                              DOPROC      1231     A     
 DOPROC             MX7    0                 REST OF THE ENTRIES                           DOPROC      1232     A     
 DOPROC             SA7    DOFLAG                                                          DOPROC      1233     A     
 DOPROC             SA7    L.DOLST                                                         DOPROC      1234     A     
 DOPROC             EQ     ERPRO                                                           DOPROC      1235     A     
 DOPROC                                                                                    DOPROC      1236     A     
 DOPROC   *         IF OBJECT OF LOGICAL IF IS  GO TO, IF, RETURN, STOP, PAUSE,            FCC0825       12     A     
 DOPROC   *         A NON-ANSI DIAGNOSTIC IS ISSUED.                                       FCC0825       13     A     
 DOPROC                                                                                    FCC0825       14     A     
 DOPROC    DOLAB4A  SA1    LTYPE       TEST TYPE CODE OF OBJECT                            FCC0825       15     A     
 DOPROC             SB2    X1          OF LOGICAL IF                                       FCC0825       16     A     
 DOPROC             AX3    B2,X2                                                           FCC0825       17     A     
 DOPROC             LX3    59                                                              FCC0825       18     A     
 DOPROC             PL     X3,DOLAB5   IF OBJECT OF LOG IF IS OK                           FCC0825       19     A     
 DOPROC             POSTER SEV=ANSI,NR=E.DO305                                             FCC0825       20     A     
 DOPROC                                                                                    FCC0825       21     A     
 DOPROC   *         REMOVE DEFINED LABELS FROM DOLIST                                      DOPROC      1237     A     
 DOPROC   *         SET X AND M BITS FOR REFERENCES TO UNDEFINED LABELS                    DOPROC      1238     A     
 DOPROC                                                                                    DOPROC      1239     A     
 DOPROC    DOLAB5   SA1    O.DOLST                                                         DOPROC      1240     A     
 DOPROC             SA2    L.DOLST                                                         DOPROC      1241     A     
 DOPROC             SA3    O.DOTAB                                                         DOPROC      1242     A     
 DOPROC             SA4    X3+B5             WORD 2                                        DOPROC      1243     A     
 DOPROC             AX4    D2.PL                                                           DOPROC      1244     A     
 DOPROC             SX5    X4                P FIELD                                       DOPROC      1245     A     
 DOPROC             IX7    X1+X5             FWA OF DOLST FOR THIS LOOP                    DOPROC      1246     A     
 DOPROC             SA7    PFIELD                                                          DOPROC      1247     A     
 DOPROC             SB6    X1                B6 = FWA                                      DOPROC      1248     A     
 DOPROC             IX0    X1+X2             LWA+1 OF DOLST                                DOPROC      1249     A     
 DOPROC             SB3    X0                                                              DOPROC      1250     A     
 DOPROC             BX6    X0-X7                                                           DOPROC      1251     A     
 DOPROC             ZR     X6,DOLAB9         IF NO DOLST FOR THIS LOOP                     DOPROC      1252     A     
 DOPROC                                                                                    DOPROC      1253     A     
 DOPROC             SB1    X7                B1 = LOOP INDEX                               DOPROC      1254     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2375    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             SB2    X7                B2 = STORE ADDRESS                            DOPROC      1255     A     
 DOPROC             SA5    SYM1                                                            DOPROC      1256     A     
 DOPROC             SX0    OF.XV+OF.MV                                                     DOPROC      1257     A     
 DOPROC             LX0    D3.OFP                                                          DOPROC      1258     A     
 DOPROC             BX6    X5                X6 = SYM1                                     DOPROC      1259     A     
 DOPROC             SB4    -B5               B4 = -1                                       DOPROC      1260     A     
 DOPROC             SB7    B1                SAVE DO1+P                                    DOPROC      1261     A     
 DOPROC                                                                                    DOPROC      1262     A     
 DOPROC    DOLAB6   SA1    B1                FETCH DOLIST ENTRY                            DOPROC      1263     A     
 DOPROC             NG     X1,DOLAB6A        IF A VARIABLE                                 DOPROC      1264     A     
 DOPROC                                                                                    DOPROC      1265     A     
 DOPROC             LX1    1                                                               DOPROC      1266     A     
 DOPROC             IX7    X6-X1             SYMTAB ADDRESS                                DOPROC      1267     A     
 DOPROC             SA4    X7+B4             WORD 2 OF SYMTAB                              DOPROC      1268     A     
 DOPROC             LX4    59-P.DSN                                                        DOPROC      1269     A     
 DOPROC             NG     X4,DOLAB6B        IF LABEL IS DEFINED                           DOPROC      1270     A     
 DOPROC                                                                                    DOPROC      1271     A     
 DOPROC             SA5    X3+2              WORD 3 OF DOTAB ENTRY                         DOPROC      1272     A     
 DOPROC             LX1    59                ADJUST X1                                     DOPROC      1273     A     
 DOPROC             BX7    X0+X5             SET X AND M BITS                              DOPROC      1274     A     
 DOPROC             SA7    A5                                                              DOPROC      1275     A     
 DOPROC                                                                                    DOPROC      1276     A     
 DOPROC    DOLAB6A  BX7    X1                                                              DOPROC      1277     A     
 DOPROC             SA7    B2                MOVE ELEMENT DOWN                             DOPROC      1278     A     
 DOPROC             SB2    B2+B5             ADVANCE STORE ADDRESS                         DOPROC      1279     A     
 DOPROC                                                                                    DOPROC      1280     A     
 DOPROC    DOLAB6B  SB1    B1+B5             ADVANCE LOOP INDEX                            DOPROC      1281     A     
 DOPROC             LT     B1,B3,DOLAB6      LOOP THROUGH LIST                             DOPROC      1282     A     
 DOPROC             SX7    B2-B6                                                           DOPROC      1283     A     
 DOPROC             SA7    L.DOLST           UPDATE LENGTH                                 DOPROC      1284     A     
 DOPROC             SX0    X3-DOTAB-3                                                      DOPROC      1285     A     
 DOPROC             NZ     X0,DOLAB9         IF NOT THE FIRST LOOP                         DOPROC      1286     A     
 DOPROC                                                                                    DOPROC      1287     A     
 DOPROC   *         ELIMINATE REFERENCES TO LABELS, SET RZ BIT FOR "LORD"                  DOPROC      1288     A     
 DOPROC   *         IF DOLST CONTAINS LABELS SO THAT ONE MAY REENTER THE LOOP.             DOPROC      1289     A     
 DOPROC                                                                                    DOPROC      1290     A     
 DOPROC             SB3    B2                B3 = DOLAST                                   DOPROC      1291     A     
 DOPROC             MX0    0                 CLEAR RZ BIT                                  DOPROC      1292     A     
 DOPROC             SB1    B7                RUNNING INDEX                                 DOPROC      1293     A     
 DOPROC             SB2    B7                STORE ADDRESS                                 DOPROC      1294     A     
 DOPROC                                                                                    DOPROC      1295     A     
 DOPROC    DOLAB7   SA1    B1                FETCH ENTRY                                   DOPROC      1296     A     
 DOPROC             EQ     B1,B3,DOLAB8                                                    DOPROC      1297     A     
 DOPROC             PL     X1,DOLAB7A        IF A LABEL                                    DOPROC      1298     A     
 DOPROC                                                                                    DOPROC      1299     A     
 DOPROC             BX7    X1                                                              DOPROC      1300     A     
 DOPROC             SA7    B2                STORE VARIABLE DEF                            DOPROC      1301     A     
 DOPROC             SB2    B2+B5             UPDATE STORE ADDR                             DOPROC      1302     A     
 DOPROC             SB1    B1+B5                                                           DOPROC      1303     A     
 DOPROC             EQ     DOLAB7            LOOP                                          DOPROC      1304     A     
 DOPROC                                                                                    DOPROC      1305     A     
 DOPROC    DOLAB7A  MX0    1                 SET RZ FLAG                                   DOPROC      1306     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2376    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             SB1    B1+B5                                                           DOPROC      1307     A     
 DOPROC             EQ     DOLAB7                                                          DOPROC      1308     A     
 DOPROC                                                                                    DOPROC      1309     A     
 DOPROC    DOLAB8   SA2    LORD                                                            DOPROC      1310     A     
 DOPROC             LX2    1                 *2                                            DOPROC      1311     A     
 DOPROC             IX3    X6-X2                                                           DOPROC      1312     A     
 DOPROC             SA4    X3+B4             WORD B OF SYMTAB ENTRY                        DOPROC      1313     A     
 DOPROC             LX0    1+P.RZ                                                          DOPROC      1314     A     
 DOPROC             BX6    X0+X4             SET RZ BIT                                    DOPROC      1315     A     
 DOPROC             SA6    A4                                                              DOPROC      1316     A     
 DOPROC             SX7    B2-B6                                                           DOPROC      1317     A     
 DOPROC             SA7    L.DOLST           UPDATE LENGTH                                 DOPROC      1318     A     
 DOPROC                                                                                    DOPROC      1319     A     
 DOPROC    DOLAB9   MX7    0                                                               DOPROC      1320     A     
 DOPROC             RJ     XFERF             GO XFER FLAGS TO )XX IN SYMTAB                DOPROC      1321     A     
 DOPROC             SA5    OTF                                                             DOPROC      1322     A     
 DOPROC             NZ     X5,DOLAB10        IF A ONE-TRIP LOOP                            DOPROC      1323     A     
 DOPROC             SB2    -M.DOEND                                                        DOPROC      1324     A     
 DOPROC             RJ     GENMAC      WRITE DO-END MACRO                                  DOPROC      1325     A     
 DOPROC             EQ     DOLAB.D                                                         DOPROC      1326     A     
 DOPROC                                                                                    DOPROC      1327     A     
 DOPROC    DOLAB10  WRM    DOLABA      WRITE DUMMY DO-END MACRO TO RLIST                   DOPROC      1328     A     
 DOPROC             EQ     DOLAB.D                                                         DOPROC      1329     A     
 DOPROC                                                                                    DOPROC      1330     A     
 DOPROC    DOLABA   RMHDR  M.DOEND,0                                                       DOPROC      1331     A     
 DOPROC             TITLE              DOLABR                                              DOPROC      1332     A     
 DOPROC   ***                                                                              DOPROC      1333     A     
 DOPROC   *         DOLABR - PROCESS REFERENCE TO A LABEL                                  DOPROC      1334     A     
 DOPROC   *                                                                                DOPROC      1335     A     
 DOPROC   *         ENTRY:   X2 = E LIST FOR THE LABEL                                     DOPROC      1336          I
          -FCC1402X 
 DOPROC   *         ENTRY  X2 = ELIST FOR LABEL OR ZERO IF CALLED FROM RETURN.             FCC1402X      10     A     
 DOPROC   *                                                                                DOPROC      1337     A     
 DOPROC   *         ON EXIT:                                                               DOPROC      1338     A     
 DOPROC   *         A0,A1,A2,X1,X2,B1,B2 SET AS IF CALLED "LABEL"                          DOPROC      1339     A     
 DOPROC   *                X4 = PREVIOUS VALUE OF RSN BIT ( 0 OR 1S"P.RSN" )               DOPROC      1340     A     
 DOPROC   *                X7 = LABEL IN FORMAT  10HLABEL ( NO LEADING . )                 DOPROC      1341     A     
 DOPROC   *                                                                                DOPROC      1342     A     
 DOPROC    DOLABRV  ERNAME B1                ERROR EXIT                                    DOPROC      1343     A     
 DOPROC   +         SB7    *+1                                                             DOPROC      1344     A     
 DOPROC             EQ     ERPRO                                                           DOPROC      1345     A     
 DOPROC                                                                                    DOPROC      1346     A     
 DOPROC    DOLABRW  SA1    TEMP                                                            DOPROC      1347     A     
 DOPROC             SB1    X1                RESTORE B1                                    DOPROC      1348     A     
 DOPROC                                                                                    DOPROC      1349     A     
 DOPROC    DOLABRX  SA5    RSELECT           ** NORMAL EXIT **                             DOPROC      1350     A     
 DOPROC             ZR     X5,DOLABRY        IF R = 0                                      DOPROC      1351     A     
 DOPROC             ADDREF B1,REF            ADD A REFERENCE FOR THE LABEL                 DOPROC      1352     A     
 DOPROC                                                                                    DOPROC      1353     A     
 DOPROC    DOLABRY  SA3    SYM1                                                            DOPROC      1354     A     
 DOPROC             SA4    TEMP              ORDINAL                                       DOPROC      1355     A     
 DOPROC             SA0    X3                                                              DOPROC      1356     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2377    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             SA3    =5R    B                                                        DOPROC      1357     A     
 DOPROC             SB1    X4                                                              DOPROC      1358     A     
 DOPROC             SB2    B1+B1             2*ORD                                         DOPROC      1359     A     
 DOPROC             SA1    A0-B2             WORD A                                        DOPROC      1360     A     
 DOPROC             SA2    A1-B5             WORD B                                        DOPROC      1361     A     
 DOPROC             MX0    36                                                              DOPROC      1362     A     
 DOPROC             BX5    X0*X1                                                           DOPROC      1363     A     
 DOPROC             LX5    6                                                               DOPROC      1364     A     
 DOPROC             BX7    X5-X3             10H_LABEL                                     DOPROC      1365     A     
 DOPROC             SA4    A4+B5             TEMP+1 = PREVIOUS VALUE OF RSN                DOPROC      1366     A     
 DOPROC                                                                                    DOPROC      1367     A     
 DOPROC    DOLABR   ENTRY.                                                                 DOPROC      1368     A     
 DOPROC             ZR     X2,DOLABR1A   SPECIAL CALL FROM RETURN                          DOPROC      1369          I
          -FCC1402X 
 DOPROC             ZR     X2,DOLABR8  IF SPECIAL CALL FROM RETURN                         FCC1402X      11     A     
 DOPROC             SA1    X2                FETCH CONSTANT                                DOPROC      1370     A     
 DOPROC             AX2    18                                                              DOPROC      1371     A     
 DOPROC             SB1    X2                DIGIT COUNT                                   DOPROC      1372     A     
 DOPROC             LABCON                   GO CONVERT THE LABEL AND ENTER IN SYM         DOPROC      1373     A     
 DOPROC                                                                                    DOPROC      1374     A     
 DOPROC             SX0    T.LAB                                                           DOPROC      1375     A     
 DOPROC             LX0    P.TYP                                                           DOPROC      1376     A     
 DOPROC             BX2    X0+X2             SET TYPE TO LABEL                             DOPROC      1377     A     
 DOPROC                                                                                    DOPROC      1378     A     
 DOPROC   +         SX7    B1                                                              DOPROC      1379     A     
 DOPROC             SA7    TEMP              SAVE THE ORDINAL                              DOPROC      1380     A     
 DOPROC             MX0    2                                                               DOPROC      1381     A     
 DOPROC             LX0    2+P.RFN                                                         DOPROC      1382     A     
 DOPROC             BX3    X0*X2                                                           DOPROC      1383     A     
 DOPROC             SB6    E.DOMUL           PRESENT REF CONFLICTS WITH PREVIOUS           DOPROC      1384     A     
 DOPROC             NZ     X3,DOLABRV        USEAGE                                        DOPROC      1385     A     
 DOPROC                                                                                    DOPROC      1386     A     
 DOPROC    RSNB     BIT    P.RSN-P.RAS       ACTIVE STMT NO AND REF IN CONTEXT AS          DOPROC      1387     A     
 DOPROC             SX0    RSNB+1            A STMT NO                                     DOPROC      1388     A     
 DOPROC             LX0    P.RAS                                                           DOPROC      1389     A     
 DOPROC             BX6    X0+X2             SET ACTIVE AND REFED AS STMT NO BITS          DOPROC      1390     A     
 DOPROC             SA3    TRACEL                                                          DOPROC      1391     A     
 DOPROC             NG     X3,DOLABR1        IF NOT TRACING JUMPS                          DOPROC      1392     A     
 DOPROC             MX0    L.TRO                                                           DOPROC      1393     A     
 DOPROC             LX0    L.TRO+P.TRO                                                     DOPROC      1394     A     
 DOPROC             BX3    X0*X2                                                           DOPROC      1395     A     
 DOPROC             NZ     X3,DOLABR1        IF THIS LABEL HAS A TRACE ORDINAL             DOPROC      1396     A     
 DOPROC             SA4    N.TLAB                                                          DOPROC      1397     A     
 DOPROC             SX7    X4+B5             INCREMENT NO OF LABELS BEING TRACED           DOPROC      1398     A     
 DOPROC             SA7    A4                                                              DOPROC      1399     A     
 DOPROC             LX7    P.TRO                                                           DOPROC      1400     A     
 DOPROC             BX6    X7+X6             INSTALL TRACE ORDINAL                         DOPROC      1401     A     
 DOPROC    DOLABR1  SA6    A2                UPDATE WORD B                                 DOPROC      1402     A     
 DOPROC             SX0    B5                                                              DOPROC      1403     A     
 DOPROC             LX0    P.RSN                                                           DOPROC      1404     A     
 DOPROC             BX7    X0*X2             SAVE PREVIOUS VALUE OF RSN FOR IFBRT,         DOPROC      1405     A     
 DOPROC             SA7    TEMP+1            ETC                                           DOPROC      1406     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2378    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             LX2    59-P.DSN                                                        DOPROC      1407     A     
 DOPROC             MX0    L.LOR                                                           DOPROC      1408     A     
 DOPROC             LX0    L.LOR+P.LOR                                                     DOPROC      1409     A     
 DOPROC             BX3    X0*X6             ORD OF )XX OF ASSOC LOOP                      DOPROC      1410     A     
 DOPROC    DOLABR1A BSS    0                                                               DOPROC      1411     A     
 DOPROC             SA5    DOFLAG                                                          DOPROC      1412     A     
 DOPROC             NZ     X5,DOLABR.L       IF WE ARE INSIDE A NEST                       DOPROC      1413     A     
 DOPROC             ZR     X2,DOLABR         IF CALL FROM RETURN                           DOPROC      1414          I
          -FCC1402X 
 DOPROC                                                                                    DOPROC      1415     A     
 DOPROC   *         NO LOOPS                                                               DOPROC      1416     A     
 DOPROC                                                                                    DOPROC      1417     A     
 DOPROC             PL     X2,DOLABR3        IF LABEL NOT DEFINED                          DOPROC      1418     A     
 DOPROC             ZR     X3,DOLABRX        IF NO REFS TO LABEL IN A PRIOR LOOP           DOPROC      1419     A     
 DOPROC    DOLABR2  AX3    P.LOR-1           2 * ORDINAL                                   DOPROC      1420     A     
 DOPROC             SB3    X3+B5                                                           DOPROC      1421     A     
 DOPROC             SA4    A0-B3             WORD B OF )XX OF ASSOCIATED LOOP              DOPROC      1422     A     
 DOPROC             MX0    1                                                               DOPROC      1423     A     
 DOPROC             LX0    1+54              SET E BIT ( LOOP MAY BE ENTER FROM            DOPROC      1424     A     
 DOPROC             BX7    X0+X4             POINTS OTHER THAN THE TOP )                   DOPROC      1425     A     
 DOPROC             SA7    A4                                                              DOPROC      1426     A     
 DOPROC             EQ     DOLABRX                                                         DOPROC      1427     A     
 DOPROC                                                                                    DOPROC      1428     A     
 DOPROC    DOLABR3  SX0    B5                LABEL NOT DEFINED,                            DOPROC      1429     A     
 DOPROC             LX0    P.RZ              SET RZ BIT                                    DOPROC      1430     A     
 DOPROC             BX6    X6+X0             REFERENCE TO LABEL PRIOR TO NEXT DO N         DOPROC      1431     A     
 DOPROC             SA6    A2                                                              DOPROC      1432     A     
 DOPROC             EQ     DOLABRX                                                         DOPROC      1433     A     
 DOPROC                                                                                    DOPROC      1434     A     
 DOPROC   *         LOOPS                                                                  DOPROC      1435     A     
 DOPROC                                                                                    DOPROC      1436     A     
 DOPROC    DOLABR.L SA5    O.DOTAB                                                         DOPROC      1437     A     
 DOPROC             NG     X2,DOLABR6        IF LABEL IS DEFINED                           DOPROC      1438     A     
 DOPROC                                                                                    DOPROC      1439     A     
 DOPROC             NZ     X3,DOLABR4        IF NOT FIRST REF IN THIS LOOP                 DOPROC      1440     A     
 DOPROC             SA4    X5+2              WORD 3 OF THE CURRENT LOOP                    DOPROC      1441     A     
 DOPROC             MX0    D3.GLL                                                          DOPROC      1442     A     
 DOPROC             BX3    X0*X4             EXTRACT ORD FOR )XX OF LOOP                   DOPROC      1443     A     
 DOPROC             LX3    D3.GLL+P.LOR                                                    DOPROC      1444     A     
 DOPROC             BX6    X6+X3             ADD LABEL OF CURRENT LOOP TO ENTRY            DOPROC      1445     A     
 DOPROC             SA6    A2                                                              DOPROC      1446     A     
 DOPROC                                                                                    DOPROC      1447     A     
 DOPROC   *         ADD A WORD TO DOLIST FOR THE REFERENCE TO THIS LABEL                   DOPROC      1448     A     
 DOPROC                                                                                    DOPROC      1449     A     
 DOPROC    DOLABR4  ADDWD  DOLST,B1                                                        DOPROC      1450     A     
 DOPROC             SB1    X6                                                              DOPROC      1451     A     
 DOPROC             NZ     X7,DOLABRX        IF ENOUGH STORAGE                             DOPROC      1452     A     
 DOPROC                                                                                    DOPROC      1453     A     
 DOPROC   *         INSUFFICIENT STORAGE, SET M AND X BITS FOR ALL LOOPS                   DOPROC      1454     A     
 DOPROC                                                                                    DOPROC      1455     A     
 DOPROC             SB3    DOTAB             FWA                                           DOPROC      1456     A     
 DOPROC             SA4    O.DOTAB                                                         DOPROC      1457     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2379    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             SB4    X4                LWA+1                                         DOPROC      1458     A     
 DOPROC             SX0    OF.XV+OF.MV                                                     DOPROC      1459     A     
 DOPROC             LX0    D3.OFP      POSITION X AND M BITS                               DOPROC      1460     A     
 DOPROC                                                                                    DOPROC      1461     A     
 DOPROC    DOLABR5  SA5    B4+2                                                            DOPROC      1462     A     
 DOPROC             SB4    B4-3                                                            DOPROC      1463     A     
 DOPROC             BX6    X0+X5                                                           DOPROC      1464     A     
 DOPROC             SA6    A5                                                              DOPROC      1465     A     
 DOPROC             GT     B4,B3,DOLABR5                                                   DOPROC      1466     A     
 DOPROC                                                                                    DOPROC      1467     A     
 DOPROC             SB6    -E.DO19           INSUFFICIENT STORAGE TO OPTIMIZE              DOPROC      1468     A     
 DOPROC             SB7    DOLABRW                                                         DOPROC      1469     A     
 DOPROC             EQ     ERPROI                                                          DOPROC      1470     A     
 DOPROC                                                                                    DOPROC      1471     A     
 DOPROC   *         LABEL IS DEFINED                                                       DOPROC      1472     A     
 DOPROC   *         CHECK ENTRIES IN DOTAB TO SEE IF IT IS DEFINED IN THIS NEST.           DOPROC      1473     A     
 DOPROC   *         IF NOT IT IS A TRANSFER OUT OF THE LOOP.  SET M AND X BITS             DOPROC      1474     A     
 DOPROC                                                                                    DOPROC      1475     A     
 DOPROC    DOLABR6  SX0    OF.XV+OF.MV                                                     DOPROC      1476     A     
 DOPROC             LX0    D3.OFP      X AND M BITS                                        DOPROC      1477     A     
 DOPROC             SB4    X5                B4 = (O.DOTAB)                                DOPROC      1478     A     
 DOPROC             SB3    DOTAB                                                           DOPROC      1479     A     
 DOPROC             MX7    D3.GLL                                                          DOPROC      1480     A     
 DOPROC             LX3    -P.LOR-D3.GLL     POSITION ORD OF )XX FOR LABEL                 DOPROC      1481     A     
 DOPROC                                                                                    DOPROC      1482     A     
 DOPROC    DOLABRL1 SA4    B4+2                                                            DOPROC      1483     A     
 DOPROC             BX6    X7*X4             EXTRACT ORD OF LOOP )XX                       DOPROC      1484     A     
 DOPROC             IX5    X3-X6                                                           DOPROC      1485     A     
 DOPROC             ZR     X5,DOLABR7  IF IN THE SAME LOOP                                 DOPROC      1486     A     
 DOPROC             BX6    X0+X4             SET X AND M BITS                              DOPROC      1487     A     
 DOPROC             SA6    A4                                                              DOPROC      1488     A     
 DOPROC             SB4    B4-3                                                            DOPROC      1489     A     
 DOPROC             GT     B4,B3,DOLABRL1                                                  DOPROC      1490     A     
 DOPROC             ZR     X2,DOLABR   IF CALLED FROM -RETURN-                             DOPROC      1491          I
          -FCC1402X 
 DOPROC             ZR     X3,DOLABRX                                                      DOPROC      1492     A     
 DOPROC                                                                                    DOPROC      1493     A     
 DOPROC             SA4    DOTAB+5           WORD 3 OF FIRST LOOP                          DOPROC      1494     A     
 DOPROC             BX7    X7*X4             EXTRACT ORD OF )XX FOR LOOP                   DOPROC      1495     A     
 DOPROC             LX3    P.LOR+D3.GLL                                                    DOPROC      1496     A     
 DOPROC             LX7    P.LOR+D3.GLL                                                    DOPROC      1497     A     
 DOPROC             IX1    X3-X7             ORD(LABEL) - ORD(OUTER LOOP)                  DOPROC      1498     A     
 DOPROC             NG     X1,DOLABR2        IF LABEL IS IN A PREVIOUS NEST                DOPROC      1499     A     
 DOPROC   *         NEST OF THE FORM:  ( ( L1:  )  ( GOTO L1 ) )                           DOPROC      1500     A     
 DOPROC             SB6    E.DO10            ILLEGAL REF TO A PREVIOUS STMT IN THI         DOPROC      1501     A     
 DOPROC             EQ     DOLABRV           NEST                                          DOPROC      1502     A     
 DOPROC                                                                                    DOPROC      1503     A     
 DOPROC   *         BACKWARDS REFERENCES TO LABEL DEFINED IN THE LOOP, MARK IT AS          DOPROC      1504     A     
 DOPROC   *         NOT OPTIMIZABLE SINCE WE CANT OPTIMIZE LOOPS WITH LOOPS IN             DOPROC      1505     A     
 DOPROC   *         OPT=1.                                                                 DOPROC      1506     A     
 DOPROC                                                                                    DOPROC      1507     A     
 DOPROC    DOLABR7  SA2    =XOPTLVL                                                        DOPROC      1508     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2380    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             SX6    X2-1                                                            DOPROC      1509     A     
 DOPROC             NZ     X6,DOLABRX  IF OPTLVL " 1                                       DOPROC      1510     A     
 DOPROC             SX0    OF.RV                                                           DOPROC      1511     A     
 DOPROC             LX0    D3.OFP                                                          DOPROC      1512     A     
 DOPROC             BX6    X0+X4       SET R BIT TO INHIBIT OPTIMIZATION                   DOPROC      1513     A     
 DOPROC             SA6    A4                                                              DOPROC      1514     A     
 DOPROC             EQ     DOLABRX                                                         DOPROC      1515     A     
 DOPROC                                                                                    FCC1402X      12     A     
 DOPROC   *         IF A RETURN STATEMENT IS WITHIN THE LOOP, INHIBIT OPTIMIZATION         FCC1402X      13     A     
 DOPROC                                                                                    FCC1402X      14     A     
 DOPROC    DOLABR8  SA5    DOFLAG                                                          FCC1402X      15     A     
 DOPROC             ZR     X5,DOLABR   IF NOT INSIDE A NEST                                FCC1402X      16     A     
 DOPROC             SX0    OF.RV                                                           FCC1402X      17     A     
 DOPROC             SA5    O.DOTAB                                                         FCC1402X      18     A     
 DOPROC             LX0    D3.OFP                                                          FCC1402X      19     A     
 DOPROC             SB4    X5                                                              FCC1402X      20     A     
 DOPROC             SA4    B4+2                                                            FCC1402X      21     A     
 DOPROC             BX6    X0+X4       SET R BIT TO INHIBIT OPTIMIZATION                   FCC1402X      22     A     
 DOPROC             SA6    A4                                                              FCC1402X      23     A     
 DOPROC             EQ     DOLABR                                                          FCC1402X      24     A     
 DOPROC             TITLE              DOLABCN                                             DOPROC      1516     A     
 DOPROC   ***                                                                              DOPROC      1517     A     
 DOPROC   *         DOLABCN - CONVERT AND CHECK LABEL                                      DOPROC      1518     A     
 DOPROC   *         ENTERED BEFORE CONTROL IS PASSED TO THE STMT PROCESSORS                DOPROC      1519     A     
 DOPROC   *         IN THE CASE OF EXECUTABLE STMTS                                        DOPROC      1520     A     
 DOPROC   *                                                                                DOPROC      1521     A     
 DOPROC    LORD                              ORDINAL OF THE LABEL                          DOPROC      1522          I
          -FCC0960
 DOPROC    LORD     ENTRY. 0                                                               FCC0960       23     A     
 DOPROC    ILLXFER  EQU    TEMP              ILLEGAL TRANSFER INTO A DO LOOP               DOPROC      1523     A     
 DOPROC                                                                                    DOPROC      1524     A     
 DOPROC    DOLABCN  ENTRY.                                                                 DOPROC      1525     A     
 DOPROC             SA1    CLABEL                                                          DOPROC      1526     A     
 DOPROC             SB1    B5                                                              DOPROC      1527     A     
 DOPROC             MX7    0                                                               DOPROC      1528     A     
 DOPROC             SA7    ILLXFER           CLEAR ILLEGAL TRANSFER FLAG                   DOPROC      1529     A     
 DOPROC             LABCON                   CONVERT LABEL AND ENTER IN SYMTAB             DOPROC      1530     A     
 DOPROC                                                                                    DOPROC      1531     A     
 DOPROC    BDEF     BIT    P.TYP-P.DSN                                                     DOPROC      1532     A     
 DOPROC             SX0    T.LAB*BDEF+1      LABEL AND DEFINED BIT                         DOPROC      1533     A     
 DOPROC             EQ     DOLABC3           NOT IN THE TABLE                              DOPROC      1534     A     
 DOPROC                                                                                    DOPROC      1535     A     
 DOPROC   *         PREVIOUS REFERENCES TO THIS LABEL                                      DOPROC      1536     A     
 DOPROC                                                                                    DOPROC      1537     A     
 DOPROC    DSF      BIT    P.DSN-P.DFN                                                     DOPROC      1538     A     
 DOPROC             SX7    B1                                                              DOPROC      1539     A     
 DOPROC             SA7    LORD            SAVE ORDINAL FOR DOLAB                          DOPROC      1540     A     
 DOPROC             SX0    DSF+1             DEFINED BITS                                  DOPROC      1541     A     
 DOPROC             LX0    P.DFN                                                           DOPROC      1542     A     
 DOPROC             BX3    X0*X2                                                           DOPROC      1543     A     
 DOPROC             ZR     X3,DOLABC1        IF NO PREVIOUS DEFINATIONS                    DOPROC      1544     A     
 DOPROC                                                                                    DOPROC      1545     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2381    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             SA3    CLABEL      GET THE DUPLICATE LABEL FOR ERR MSG LISTING         DOPROC      1546     A     
 DOPROC             SB6    E.DO8       ERR MSG NR - DUPLICATE STATEMENT LABEL              DOPROC      1547     A     
 DOPROC             BX6    X6-X6                                                           DOPROC      1548     A     
 DOPROC             LX3    60-12                                                           DOPROC      1549     A     
 DOPROC             SX4    0           *ERPRO* FLAG - MSG IN X3                            DOPROC      1550     A     
 DOPROC             SA6    A3+               CLEAR DUPL LAB TO PREVENT MORE ERRS           DOPROC      1551     A     
 DOPROC    DOLABCX  SB7    DOLABCN                                                         DOPROC      1552     A     
 DOPROC             EQ     ERPRO                                                           DOPROC      1553     A     
 DOPROC                                                                                    DOPROC      1554     A     
 DOPROC    DOLABC1  BX3    X2                                                              DOPROC      1555     A     
 DOPROC             SX0    B5                                                              DOPROC      1556     A     
 DOPROC             LX3    59-P.RFN                                                        DOPROC      1557     A     
 DOPROC             PL     X3,DOLABC1A       IF NOT REFERENCED AS A FORMAT NUMBER          DOPROC      1558     A     
 DOPROC             LX0    P.DFN             MAKE IT LOOK LIKE A FORMAT NUMBER             DOPROC      1559     A     
 DOPROC             BX6    X0+X2                                                           DOPROC      1560     A     
 DOPROC             SA6    A2                                                              DOPROC      1561     A     
 DOPROC             ERNAME B1                                                              DOPROC      1562     A     
 DOPROC             SB6    E.DOMUL           CONFLICTING USES OF THIS LABEL                DOPROC      1563     A     
 DOPROC             EQ     DOLABCX                                                         DOPROC      1564     A     
 DOPROC                                                                                    DOPROC      1565     A     
 DOPROC   *         CHECK FOR REFS TO THE LABEL FROM OUTSIDE THE CURRENT LOOP              DOPROC      1566     A     
 DOPROC                                                                                    DOPROC      1567     A     
 DOPROC    DOLABC1A SA4    DOFLAG                                                          DOPROC      1568     A     
 DOPROC             ZR     X4,DOLABC3        IF NO LOOPS                                   DOPROC      1569     A     
 DOPROC             SA3    O.DOTAB           ADDRESS OF CURRENT DO LOOP                    DOPROC      1570     A     
 DOPROC             SA5    X3+2              WORD 3                                        DOPROC      1571     A     
 DOPROC             MX7    -D3.GLL                                                         DOPROC      1572     A     
 DOPROC             BX6    X2                                                              DOPROC      1573     A     
 DOPROC             LX5    D3.GLL                                                          DOPROC      1574     A     
 DOPROC             BX4    -X7*X5            X4 = ORD OF )XX OF CURRENT LOOP               DOPROC      1575     A     
 DOPROC             AX6    P.LOR                                                           DOPROC      1576     A     
 DOPROC             LX5    -D3.GLL                                                         DOPROC      1577     A     
 DOPROC             BX6    -X7*X6            X6 = ORD OF LOOP LAST REFERENCED IN           DOPROC      1578     A     
 DOPROC             IX1    X6-X4                                                           DOPROC      1579     A     
 DOPROC             BX7    X2                                                              DOPROC      1580     A     
 DOPROC             LX7    59-P.RZ                                                         DOPROC      1581     A     
 DOPROC             NG     X7,DOLABC2        IF REFS FROM OUTSIDE THE NEST                 DOPROC      1582     A     
 DOPROC             ZR     X6,DOLABC3        IF NO PREVIOUS REFS IN A LOOP                 DOPROC      1583     A     
 DOPROC             PL     X1,DOLABC3        IF REFS ARE IN THE LOOP                       DOPROC      1584     A     
 DOPROC             SA6    ILLXFER           ILLXFER " 0 IF REFS IN A PREVIOUS NES         DOPROC      1585     A     
 DOPROC   *                                  ( GOTO L )  ( L: ) IS ILLEGAL                 DOPROC      1586     A     
 DOPROC   *                                  ( GOTO L ( L: ) ) IS ILLEGAL                  DOPROC      1587     A     
 DOPROC                                                                                    DOPROC      1588     A     
 DOPROC   *         LABEL IS REFERENCED PRIOR TO LOOP IN WHICH IT IS DEFINED               DOPROC      1589     A     
 DOPROC   *         SET E BIT - LOOP MAY BE ENTERED FROM POINTS OTHER THAN THE TOP         DOPROC      1590     A     
 DOPROC                                                                                    DOPROC      1591     A     
 DOPROC    DOLABC2  SX7    B5                                                              DOPROC      1592     A     
 DOPROC             LX7    D3.OFP+OF.EP                                                    DOPROC      1593     A     
 DOPROC             BX7    X7+X5             SET E BIT FOR INNERMOST LOOP                  DOPROC      1594     A     
 DOPROC             SA7    A5                                                              DOPROC      1595     A     
 DOPROC                                                                                    DOPROC      1596     A     
 DOPROC   *         PLACE ORDINAL OF GL FOR THE PRESENT LOOP IN WORD B OF SYMTAB           DOPROC      1597     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2382    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC                                                                                    DOPROC      1598     A     
 DOPROC    DOLABC3  SA3    O.DOTAB                                                         DOPROC      1599     A     
 DOPROC             SA4    X3+2              WORD 3                                        DOPROC      1600     A     
 DOPROC             LX0    P.DSN                                                           DOPROC      1601     A     
 DOPROC             BX2    X0+X2             SET BITS IN SYMTAB ENTRY                      DOPROC      1602     A     
 DOPROC             MX0    D3.GLL                                                          DOPROC      1603     A     
 DOPROC             BX5    X0*X4             ORD OF )XX FOR CURRENT LOOP                   DOPROC      1604     A     
 DOPROC             LX0    D3.GLL+P.LOR                                                    DOPROC      1605     A     
 DOPROC             BX2    -X0*X2            REMOVE OLD ORDINAL                            DOPROC      1606     A     
 DOPROC             LX5    D3.GLL+P.LOR                                                    DOPROC      1607     A     
 DOPROC             BX6    X5+X2             OR IN LABEL OF CURRENT LOOP                   DOPROC      1608     A     
 DOPROC             SA3    DUKE                                                            DOPROC      1609     A     
 DOPROC             LX3    P.DLN             SAVE LINE NO OF DEFINITION                    DOPROC      1610     A     
 DOPROC             BX6    X3+X6                                                           DOPROC      1611     A     
 DOPROC             SA6    A2                                                              DOPROC      1612     A     
 DOPROC                                                                                    DOPROC      1613     A     
 DOPROC             SX7    B1                                                              DOPROC      1614     A     
 DOPROC             SA7    LORD              SAVE ORDINAL FOR DOLAB                        DOPROC      1615     A     
 DOPROC                                                                                    DOPROC      1616     A     
 DOPROC             SA5    RSELECT                                                         DOPROC      1617     A     
 DOPROC             ZR     X5,DOLABC4        IF R = 0                                      DOPROC      1618     A     
 DOPROC             ADDREF B1,DEF            DEFINE THE STMT NUMBER                        DOPROC      1619     A     
 DOPROC                                                                                    DOPROC      1620     A     
 DOPROC    DOLABC4  SA5    LORD                                                            DOPROC      1621     A     
 DOPROC             CALL   WLABM       LABEL DEFINITION MACRO TO RLIST                     DOPROC      1622     A     
 DOPROC             SA1    ILLXFER                                                         DOPROC      1623     A     
 DOPROC             ZR     X1,DOLABCN                                                      DOPROC      1624     A     
 DOPROC             ERNAME LORD                                                            DOPROC      1625     A     
 DOPROC             SB6    E.DO9             ILLEGAL XFER INTO A DO LOOP                   DOPROC      1626     A     
 DOPROC             EQ     DOLABCX                                                         DOPROC      1627     A     
 DOPROC             EJECT                                                                  DOPROC      1628     A     
 DOPROC   ***                                                                              DOPROC      1629     A     
 DOPROC   *         LABCON - CONVERT A LABEL TO INTERNAL FORM                              DOPROC      1630     A     
 DOPROC   *         ON ENTRY:                                                              DOPROC      1631     A     
 DOPROC   *                X1 = LABEL LEFT JUSTIFIED WITH BLANK FILL                       DOPROC      1632     A     
 DOPROC   *                B1 = CHARACTER COUNT                                            DOPROC      1633     A     
 DOPROC   *                B7 = RETURN ADDRESS FROM "LABEL"                                DOPROC      1634     A     
 DOPROC   *                                                                                DOPROC      1635     A     
 DOPROC   *         ON EXIT:                                                               DOPROC      1636     A     
 DOPROC   *                RETURN FROM "LABEL" WITH A0 - A2, X1,X2,B1,B2 SET               DOPROC      1637     A     
 DOPROC   *                                                                                DOPROC      1638     A     
 DOPROC             ENTRY  LABCON                                                          DOPROC      1639     A     
 DOPROC    LABCON   SX2    1R0                                                             DOPROC      1640     A     
 DOPROC             SX3    1R.-1R                                                          DOPROC      1641     A     
 DOPROC             SB2    B1-6                                                            DOPROC      1642     A     
 DOPROC             PL     B2,LAB.E1         IF MORE THAN 5 DIGITS                         DOPROC      1643     A     
 DOPROC             LX2    54                                                              DOPROC      1644     A     
 DOPROC             MX4    6                                                               DOPROC      1645     A     
 DOPROC             SX0    1R -1R0                                                         DOPROC      1646     A     
 DOPROC                                                                                    DOPROC      1647     A     
 DOPROC    LABCONL  BX5    X4*X1             EXTRACT A CHARACTER                           DOPROC      1648     A     
 DOPROC             IX6    X2-X5                                                           DOPROC      1649     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2383    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             NZ     X6,LABCON1        IF NOT A ZERO                                 DOPROC      1650     A     
 DOPROC             SB1    B1-B5             DECREMENT CHARACTER COUNT                     DOPROC      1651     A     
 DOPROC             ZR     B1,LAB.E          IF 0 CHARACTERS                               DOPROC      1652     A     
 DOPROC             LX1    6                                                               DOPROC      1653     A     
 DOPROC             IX1    X0+X1             CHANGE 0 TO A BLANK                           DOPROC      1654     A     
 DOPROC             EQ     LABCONL                                                         DOPROC      1655     A     
 DOPROC                                                                                    DOPROC      1656     A     
 DOPROC    LABCON1  IX1    X1+X3                                                           DOPROC      1657     A     
 DOPROC             LX1    42                POSITION LABEL                                DOPROC      1658     A     
 DOPROC             EQ     =XLABEL           GO ENTER NAME IN SYMTAB                       DOPROC      1659     A     
 DOPROC                                                                                    DOPROC      1660     A     
 DOPROC    LAB.E1   SB6    E.DO80            LABEL MORE THAN 5 DIGITS                      DOPROC      1661     A     
 DOPROC             LX1    60-12             LEFT ADJUST TO BIT 48                         DOPROC      1662     A     
 DOPROC             MX0    12                                                              DOPROC      1663     A     
 DOPROC             BX3    -X0*X1            X3 = CONSTANT                                 DOPROC      1664     A     
 DOPROC             SX4    B0                                                              DOPROC      1665     A     
 DOPROC             EQ     LAB.E+1                                                         DOPROC      1666     A     
 DOPROC                                                                                    DOPROC      1667     A     
 DOPROC    LAB.E    SB6    -E.DO130          0 STMT LABEL                                  DOPROC      1668     A     
 DOPROC   +         SB7    PH2RETN                                                         DOPROC      1669     A     
 DOPROC             EQ     ERPRO                                                           DOPROC      1670     A     
 DOPROC             TITLE              DOEND - END PROCESSING OF DO TABLES                 DOPROC      1671     A     
 DOPROC   ***                                                                              DOPROC      1672          I
          -FCC0220
 DOPROC   *         DOEND - END PROCESSING OF THE DO TABLES                                DOPROC      1673          I
          -FCC0220
 DOPROC   **        DOEND - END PROCESSING OF THE DO TABLES.                               FCC0220       57     A     
 DOPROC   *                                                                                DOPROC      1674     A     
 DOPROC    DOENDX   SA1    E.UDEFL                                                         DOPROC      1675          I
          -FCC0220
 DOPROC             ZR     X1,DOENDX1        IF NO UNDEFINED LABELS                        DOPROC      1676          I
          -FCC0220
 DOPROC             SB6    -E.DO17                                                         DOPROC      1677          I
          -FCC0220
 DOPROC             SB7    DOENDX1                                                         DOPROC      1678          I
          -FCC0220
 DOPROC             EQ     ERPRO                                                           DOPROC      1679          I
          -FCC0220
 DOPROC    DOENDX1  SA2    DFLAG                                                           DOPROC      1680          I
          -FCC0220
 DOPROC             ZR     X2,DOEND          IF NOT IN DEBUG MODE                          DOPROC      1681          I
          -FCC0220
 DOPROC             SA1    NOGOFLG                                                         DOPROC      1682          I
          -FCC0220
 DOPROC             NZ     X1,DOENDX2        EXIT                                          DOPROC      1683          I
          -FCC0220
 DOPROC             PL     X1,DOENDX2        EXIT                                          DOPROC      1684          I
          -FCC0220
 DOPROC    DOENDX3  MX7    59                HERE IF FLAG - 0 TO FORCE NOGO                DOPROC      1685          I
          -FCC0220
 DOPROC             SA7    P2NOGO            SET FLAG TO FORCE NOGO OPTION                 DOPROC      1686          I
          -FCC0220
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2384    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             SB6    -E.DO15                                                         DOPROC      1687          I
          -FCC0220
 DOPROC             SB7    DOEND                                                           DOPROC      1688          I
          -FCC0220
 DOPROC             EQ     ERPRO                                                           DOPROC      1689          I
          -FCC0220
 DOPROC    DOENDX2  BX6    X1                                                              DOPROC      1690          I
          -FCC0220
 DOPROC             SA6    P2NOGO            SET FLAG FOR PASS 2                           DOPROC      1691          I
          -FCC0220
 DOPROC             SA2    =XN.FERR                                                        DOPROC      1692          I
          -FCC0220
 DOPROC             ZR     X2,DOEND          IF NO FATAL ERRORS                            DOPROC      1693          I
          -FCC0220
 DOPROC             SA3    =XFSTEX                                                         DOPROC      1694          I
          -FCC0220
 DOPROC             ZR     X3,DOENDX3        IF WE NEVER REACHED PHASE 2                   DOPROC      1695          I
          -FCC0220
 DOPROC   *         SCAN THE SYMBOL TABLE FOR MISSING STATEMENT LABEL DEFINITIONS          FCC0220       58     A     
 DOPROC   *         AND FOR LOOPS ENTERED FROM OUTSIDE THEIR RANGE.                        FCC0220       59     A     
 DOPROC                                                                                    DOPROC      1696     A     
 DOPROC    DOEND=   ENTRY.                                                                 DOPROC      1697          I
          -FCC0220
 DOPROC    DOEND    EQU    DOEND=                                                          DOPROC      1698          I
          -FCC0220
 DOPROC                                                                                    DOPROC      1699     A     
 DOPROC   *         SCAN THE SYMBOL TABLE FOR MISSING STMT LABELS AND                      DOPROC      1700          I
          -FCC0220
 DOPROC   *         LOOPS ENTERED FROM OUTSIDE THEIR RANGE                                 DOPROC      1701          I
          -FCC0220
 DOPROC                                                                                    DOPROC      1702          I
          -FCC0220
 DOPROC    DOEND=   SUBR   =                 ** ENTRY/EXIT **                              FCC0220       60     A     
 DOPROC             SA1    SYM1                                                            DOPROC      1703     A     
 DOPROC             SA2    CON.                                                            DOPROC      1704     A     
 DOPROC             LX2    1                 2*ORD(CON.)                                   DOPROC      1705     A     
 DOPROC             IX1    X1-X2                                                           DOPROC      1706     A     
 DOPROC                                                                                    DOPROC      1707          I
          -FCC0220
 DOPROC    DOEND2   SB1    X1-2              B1 = SYMTAB ADDRESS                           DOPROC      1708          I
          -FCC0220
 DOPROC    DOEND2   SB1    X1-2              (B1) = SYMTAB ADDRESS                         FCC0220       61     A     
 DOPROC             SA2    SYMEND                                                          DOPROC      1709     A     
 DOPROC             SX7    T.LAB                                                           DOPROC      1710     A     
 DOPROC             LX7    P.TYP                                                           DOPROC      1711     A     
 DOPROC             SB2    X2                LWA+1                                         DOPROC      1712          I
          -FCC0220
 DOPROC             SB2    X2                (B2) = LWA+1                                  FCC0220       62     A     
 DOPROC             MX0    L.TYP                                                           DOPROC      1713     A     
 DOPROC             SB3    B5+B5             B3 = 2                                        DOPROC      1714          I
          -FCC0220
 DOPROC             SB3    B5+B5             (B3) = 2                                      FCC0220       63     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2385    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC             MX1    2                                                               DOPROC      1715     A     
 DOPROC             LX1    2+P.SLD           FOR CHECKING FOR UNDEFINED LABELS             DOPROC      1716     A     
 DOPROC                                                                                    DOPROC      1717     A     
 DOPROC   *         SYMBOL TABLE SCAN LOOP.                                                FCC0220       64     A     
 DOPROC                                                                                    FCC0220       65     A     
 DOPROC    DOENDL   SA5    B1-B5             WORD B                                        DOPROC      1718     A     
 DOPROC             EQ     B1,B2,DOENDX      IF FINISHED                                   DOPROC      1719          I
          -FCC0220
 DOPROC             EQ     B1,B2,DOEND10     IF TABLE SCAN FINISHED                        FCC0220       66     A     
 DOPROC             BX4    X0*X5                                                           DOPROC      1720     A     
 DOPROC             SB1    B1-B3             ADVANCE TABLE ADDRESS                         DOPROC      1721     A     
 DOPROC             IX3    X7-X4                                                           DOPROC      1722     A     
 DOPROC             NZ     X3,DOENDL         IF NOT A LABEL                                DOPROC      1723     A     
 DOPROC             BX2    X1*X5             EXTRACT DEFINITION BITS                       FCC0220       67     A     
 DOPROC             LX5    59-P.GEN                                                        FCC0220       68     A     
 DOPROC             MI     X5,DOEND3         IF A GENERATED LABEL                          FCC0220       69     A     
 DOPROC             NZ     X2,DOENDL         IF LABEL IS DEFINED                           FCC0220       70     A     
 DOPROC             SA7    =XE.UDEFL         SET FLAG                                      FCC0220       71     A     
 DOPROC                                                                                    FCC0220       72     A     
 DOPROC             SA4    =XDFLAG                                                         FCC0220       73     A     
 DOPROC             ZR     X4,DOENDL         IF NOT IN DEBUG MODE                          FCC0220       74     A     
 DOPROC             MX6    1                                                               FCC0220       75     A     
 DOPROC             LX5    P.GEN-P.DLT                                                     FCC0220       76     A     
 DOPROC             MI     X5,DOENDL2        IF DO TERMINATOR LABEL                        FCC0220       77     A     
 DOPROC             LX5    P.DLT-P.RAS                                                     FCC0220       78     A     
 DOPROC             MI     X5,DOENDL1        IF STATEMENT LABEL REFERENCE                  FCC0220       79     A     
 DOPROC    DOENDL2  SA6    =XP2NOGO          SET *SUPPRESS OBJ CODE GENERATION*            FCC0220       80     A     
 DOPROC             EQ     DOENDL            LOOP                                          FCC0220       81     A     
 DOPROC                                                                                    DOPROC      1724     A     
 DOPROC             BX2    X1*X5             EXTRACT DEFINITION BITS                       DOPROC      1725          I
          -FCC0220
 DOPROC             LX5    59-P.GEN                                                        DOPROC      1726          I
          -FCC0220
 DOPROC             NG     X5,DOEND3         IF A GENERATED LABEL                          DOPROC      1727          I
          -FCC0220
 DOPROC             NZ     X2,DOENDL         IF LABEL IS DEFINED                           DOPROC      1728          I
          -FCC0220
 DOPROC                                                                                    DOPROC      1729          I
          -FCC0220
 DOPROC             SA7    E.UDEFL           SET FLAG                                      DOPROC      1730          I
          -FCC0220
 DOPROC             SA4    DFLAG                                                           DOPROC      1731          I
          -FCC0220
 DOPROC             ZR     X4,DOENDL         IF NOT IN DEBUG MODE                          DOPROC      1732          I
          -FCC0220
 DOPROC             SA3    NOGOFLG                                                         DOPROC      1733          I
          -FCC0220
 DOPROC             NZ     X3,DOENDL         IF NOGO OPTION SET                            DOPROC      1734          I
          -FCC0220
 DOPROC             MX6    60                                                              DOPROC      1735          I
          -FCC0220
 DOPROC             LX5    P.GEN-P.DLT                                                     DOPROC      1736          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2386    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
          -FCC0220
 DOPROC             NG     X5,DOENDL2        IF DO TERMINATOR LABEL                        DOPROC      1737          I
          -FCC0220
 DOPROC             LX5    P.DLT-P.RAS                                                     DOPROC      1738          I
          -FCC0220
 DOPROC             NG     X5,DOENDL1        IF STATEMENT LABEL REFERENCE                  DOPROC      1739          I
          -FCC0220
 DOPROC    DOENDL2  SA6    NOGOFLG           RESET, BUT KEEPING FLAG ZERO                  DOPROC      1740          I
          -FCC0220
 DOPROC             EQ     DOENDL            LOOP                                          DOPROC      1741          I
          -FCC0220
 DOPROC    DOENDL1  SX6    B1+B3                                                           DOPROC      1742     A     
 DOPROC             SA6    TEMP              SAVE ADDRESS                                  DOPROC      1743     A     
 DOPROC             SX4    A5+B5             ADDRESS OF WORD A                             DOPROC      1744     A     
 DOPROC             SA2    SYM1              START OF SYMTAB                               DOPROC      1745     A     
 DOPROC             IX6    X2-X4                                                           DOPROC      1746     A     
 DOPROC             AX5    B5,X6                                                           DOPROC      1747     A     
 DOPROC             CALL   WLABM       LABEL MACRO DEFINATION TO RLIST                     DOPROC      1748          I
          -FCC0220
 DOPROC             CALL   WLABM             LABEL MACRO DEFINITION TO *RLIST*             FCC0220       82     A     
 DOPROC             SA1    TEMP                                                            DOPROC      1749     A     
 DOPROC             EQ     DOEND2                                                          DOPROC      1750     A     
 DOPROC                                                                                    DOPROC      1751     A     
 DOPROC   *         CHECK FOR A LOOP THAT IS ENTERED ILLEGALLY                             DOPROC      1752          I
          -FCC0220
 DOPROC   *         CHECK FOR A LOOP THAT IS ENTERED ILLEGALLY.                            FCC0220       83     A     
 DOPROC                                                                                    DOPROC      1753     A     
 DOPROC    DOEND3   LX5    1                                                               DOPROC      1754     A     
 DOPROC             PL     X5,DOENDL         E = 0, NO ENTRIES TO THE LOOP                 DOPROC      1755     A     
 DOPROC             LX5    1                                                               DOPROC      1756     A     
 DOPROC             SB7    B5                                                              DOPROC      1757          I
          -FCC0220
 DOPROC             LX7    X5,B5                                                           DOPROC      1758          I
          -FCC0477
 DOPROC             SB6    E.DOEXT           NON-INNER LOOP ENTERED FROM OUTSIDE           DOPROC      1759          I
          -FCC0220  -FCC0477
 DOPROC             SB7    B5                SET *INFORMATIVE ERROR* STATUS                FCC0220       84          I
          -FCC0477
 DOPROC             MI     X7,DOEND4         IF NOT INNERMOST LOOP                         DOPROC      1760          I
          -FCC0477
 DOPROC             LX6    B5,X5                                                           FCC0477        8     A     
 DOPROC             SB7    B5                SET *INFORMATIVE ERROR* STATUS                FCC0477        9          I
          -FCC0976
 DOPROC             MI     X6,DOEND4         IF NON-INNER LOOP                             FCC0477       10          I
          -FCC0976
 DOPROC             SB7    B0                                                              DOPROC      1761          I
          -FCC0220  -FCC0976
 DOPROC             SB6    E.DO16            LOOP WITH NO EXIT ENTERED                     DOPROC      1762          I
          -FCC0220  -FCC0976
 DOPROC             NG     X5,DOENDL         X = 1 EXITS, ALSO                             DOPROC      1763          I
          -FCC0220  -FCC0976
 DOPROC                                                                                    DOPROC      1764          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2387    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
          -FCC0220  -FCC0976
 DOPROC             MI     X5,DOENDL         IF LOOP HAS AN EXIT (E = 1)                   FCC0220       85          I
          -FCC0976
 DOPROC             SB7    B0                SET *FATAL ERROR* STATUS                      FCC0220       86          I
          -FCC0976
 DOPROC             SB7    B0          SET *FATAL ERROR* STATUS                            FCC0976        6     A     
 DOPROC             PL     X5,DOEND4   IF LOOP HAS NO EXITS                                FCC0976        7     A     
 DOPROC             PL     X6,DOENDL   IF INNER LOOP                                       FCC0976        8     A     
 DOPROC             SB7    B5          SET *INFORMATIVE ERROR* STATUS                      FCC0976        9     A     
 DOPROC    DOEND4   SX7    B1+B3                                                           DOPROC      1765     A     
 DOPROC             MX0    60-15                                                           DOPROC      1766          I
          -FCC0220
 DOPROC             MX0    -15                                                             FCC0220       87     A     
 DOPROC             SA7    TEMP              SAVE SYMTAB ADDRESS                           DOPROC      1767     A     
 DOPROC             AX5    24+59-P.GEN+2     POSITION LINE COUNT                           DOPROC      1768     A     
 DOPROC             BX1    -X0*X5            EXTRACT                                       DOPROC      1769     A     
 DOPROC             SB1    1                                                               DOPROC      1770     A     
 DOPROC             CALL   CDD               RETURNS (X4) = INTEGER, DPC, -H- FMT          DOPROC      1771     A     
 DOPROC             SB2    DOENDJT+B7                                                      DOPROC      1772          I
          -FCC0220
 DOPROC             MX0    12                                                              DOPROC      1773     A     
 DOPROC             SB5    B1                                                              DOPROC      1774     A     
 DOPROC             AX4    12                LEFT JUSTIFY TO BIT 48                        DOPROC      1775     A     
 DOPROC             BX3    -X0*X4                                                          DOPROC      1776     A     
 DOPROC             SX4    B0+                                                             DOPROC      1777          I
          -FCC0220
 DOPROC   +         SB7    *+1                                                             DOPROC      1778          I
          -FCC0220
 DOPROC             JP     B2                                                              DOPROC      1779          I
          -FCC0220
 DOPROC             SA1    TEMP                                                            DOPROC      1780          I
          -FCC0220
 DOPROC             EQ     DOEND2            LOOP                                          DOPROC      1781          I
          -FCC0220
 DOPROC             ZR     B7,DOEND5         IF FATAL ERROR (INNER LOOP)                   FCC0220       88     A     
 DOPROC             POSTER SEV=INF,NR=E.DOEXT,FMT=DPC,TXT=X3,RETURN=DOEND6                 FCC0220       89     A     
 DOPROC                                                                                    DOPROC      1782     A     
 DOPROC    DOENDJT  EQ     ERPRO                                                           DOPROC      1783          I
          -FCC0220
 DOPROC             EQ     ERPROI                                                          DOPROC      1784          I
          -FCC0220
 DOPROC    DOEND5   MX6    1                                                               FCC0220       90     A     
 DOPROC             SA6    =XP2NOGO          SET *SUPPRESS OBJ CODE GENERATION*            FCC0220       91     A     
 DOPROC             POSTER SEV=FE,NR=E.DO16,FMT=DPC,TXT=X3                                 FCC0220       92     A     
 DOPROC    DOEND6   SA1    TEMP                                                            FCC0220       93     A     
 DOPROC             EQ     DOEND2            CONTINUE SYMTAB SCAN                          FCC0220       94     A     
 DOPROC                                                                                    FCC0220       95     A     
 DOPROC   *         TERMINAL PROCESSING.                                                   FCC0220       96     A     
 DOPROC                                                                                    FCC0220       97     A     
 DOPROC    DOEND10  SA1    =XE.UDEFL                                                       FCC0220       98     A     
 DOPROC             ZR     X1,EXIT.          IF NO UNDEFINED LABELS                        FCC0220       99     A     
 DOPROC             POSTER SEV=FE,NR=E.DO17,RETURN=EXIT.                                   FCC0220      100     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2388    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DOPROC  
  
 DOPROC                                                                                    FCC0220      101     A     
 DOPROC                                                                                    FCC0220      102     A     
 DOPROC             END                                                                    DOPROC      1785     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DOPROC  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DOPROC                    1785      1686
          FCC0220                     57        54
          FCC0477                      5         3
          FCC0579                     10        10
          FCC0960                      1         1
          FCC0825                     14        14
          FCC0949                      9         9
          FCC0976                      4         4
          FCC1252X                     1         1
          FCC1402X                    15        15
          FCC1289X                    10        10
          FCC1901                     14        14
          FCC2291                      3         3
          FCC2321                      7         7
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE  *DECK     DPCLOSE                                                                DPCLOSE        1     A     
 DPCLOSE            IDENT  DPCLOSE                                                         DPCLOSE        2     A     
 DPCLOSE            TITLE              DPCLOSE - TERMINATE DECLARATIVE PROCESSING          DPCLOSE        3     A     
 DPCLOSE  *CALL     SSTCALL                                                                DPCLOSE        4     A     
 DPCLOSE   B=DPCLS  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             DPCLOSE        5     A     
 DPCLOSE                                                                                   DPCLOSE        6     A     
 DPCLOSE   SYM1     EQU    12B                                                             DPCLOSE        7     A     
 DPCLOSE   SYMEND   EQU    13B                                                             FEAT129        6     A     
 DPCLOSE   DIM1     EQU    17B                                                             DPCLOSE        8     A     
 DPCLOSE   PROGRAM  EQU    RA.SSW+56B        PROG    12/2000B,48/0                         DPCLOSE        9     A     
 DPCLOSE  *                                  BLKDTA  60/0                                  DPCLOSE       10     A     
 DPCLOSE  *                                  SUBR    12/2001B,48/0                         DPCLOSE       11     A     
 DPCLOSE  *                                  FUNC    12/2002B,48/0                         DPCLOSE       12     A     
 DPCLOSE                                                                                   DPCLOSE       13     A     
 DPCLOSE            ENTRY  DPCLOSE,O.CBT                                                   DPCLOSE       14     A     
 DPCLOSE                                                                                   DPCLOSE       15     A     
 DPCLOSE            EXT    PH2CTL,R=FLAG,MACFLAG,DFLAG                                     DPCLOSE       16     A     
 DPCLOSE            EXT    ASAER,ERPROI,ERPRO,ST.                                          DPCLOSE       17     A     
 DPCLOSE            EXT    VARDIM,SCF,SEF                                                  DPCLOSE       18     A     
 DPCLOSE                                                                                   FCC1289X      28     A     
 DPCLOSE            EXT    SYMORD,C.BLOCK,DATA..                                           DPCLOSE       19     A     
 DPCLOSE            EXT    ORGTAB,N.COM,OSC,PSYM,CON.                                      DPCLOSE       20     A     
 DPCLOSE            EXT    INITBL                                                          DPCLOSE       21     A     
 DPCLOSE            EXT    LOWCORE                                                         DPCLOSE       22     A     
 DPCLOSE            EXT    N.FILES                                                         DPCLOSE       23     A     
 DPCLOSE            EXT    N.FP                                                            DPCLOSE       24     A     
 DPCLOSE            EXT    WB.CON                                                          DPCLOSE       25     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2389    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            EXT    F.LFN                                                           DPCLOSE       26     A     
 DPCLOSE            EXT    CTBLOVL           MEMORY OVERFLOW EXIT                          DPCLOSE       27     A     
 DPCLOSE   PH1MO    EQU    CTBLOVL                                                         DPCLOSE       28     A     
 DPCLOSE                                                                                   DPCLOSE       29     A     
 DPCLOSE            TABLES DIM,EQV,COM,LAT,SCA,ECT,FPBL,ENTR                               DPCLOSE       30     A     
 DPCLOSE            TABLES EOT                                                             FEAT129        7     A     
 DPCLOSE            EXT    S.SCA,S.LAT,S.EQV,S.ECT                                         DPCLOSE       31     A     
 DPCLOSE            EXT    N.FERR,NOGOFLG                                                  DPCLOSE       32          I
          -FCC0220
 DPCLOSE            SPACE  3                                                               DPCLOSE       33     A     
 DPCLOSE            USE    CODE              TO FORCE THE LITERALS TO COME FIRST           DPCLOSE       34     A     
 DPCLOSE                                                                                   DPCLOSE       35     A     
 DPCLOSE            EJECT                                                                  DPCLOSE       36     A     
 DPCLOSE  ***                                                                              DPCLOSE       37          I
          -FEAT129
 DPCLOSE  *         DPCLOSE IS CALLED BY PH1CTL TO PROCESS THE ACCUMULATED                 DPCLOSE       38          I
          -FEAT129
 DPCLOSE  **        DPCLOSE IS CALLED BY PH1CTL TO PROCESS THE ACCUMULATED                 FEAT129        8     A     
 DPCLOSE  *         DECLARATIVE INFORMATION WHEN THE FIRST NON-SPECIFICATION               DPCLOSE       39     A     
 DPCLOSE  *         STATEMENT IS ENCOUNTERED.                                              DPCLOSE       40     A     
 DPCLOSE  *                                                                                DPCLOSE       41     A     
 DPCLOSE  *         IT FUNCTIONS ARE TO:                                                   DPCLOSE       42     A     
 DPCLOSE  *           ASSIGN ADDRESS"S AND ALLOCATE STORAGE FOR ARRAYS,                    DPCLOSE       43     A     
 DPCLOSE  *           COMMON BLOCKS AND EQUIVALENCE CLASS"S.                               DPCLOSE       44     A     
 DPCLOSE  *           IF R OPTION IS SELECTED, THEN FORMAT AND SAVE NECESSARY              DPCLOSE       45     A     
 DPCLOSE  *           INFORMATION SO THAT THE COMMON BLOCK AND EQUIVALENCE                 DPCLOSE       46     A     
 DPCLOSE  *           CLASS MEMBERS MAY BE PRINTED OUT                                     DPCLOSE       47     A     
 DPCLOSE  *           ISSUE STORAGE TO "COMPS" IF  NECESSARY                               DPCLOSE       48     A     
 DPCLOSE  *                                                                                DPCLOSE       49     A     
 DPCLOSE  *           INITIALIZE FOR PHASE 2                                               DPCLOSE       50     A     
 DPCLOSE  *                                                                                DPCLOSE       51     A     
 DPCLOSE            SPACE  3                                                               DPCLOSE       52     A     
 DPCLOSE  *         ERROR MESSAGES                                                         DPCLOSE       53     A     
 DPCLOSE                                                                                   DPCLOSE       54     A     
 DPCLOSE   E.FPNI   EQU    201               PREVIOUS MENTIONED ADJUSTABLE SUBSC           DPCLOSE       55     A     
 DPCLOSE  *                                  NOT TYPE INTEGER                              DPCLOSE       56     A     
 DPCLOSE   E.LECS   EQU    202               ALL ECS VARIABLES MUST BE IN COMMON           DPCLOSE       57     A     
 DPCLOSE   E.BLKL   EQU    288         BLOCK TOO LONG                                      DPCLOSE       58          I
          -FCC1289X 
 DPCLOSE   E.BLKL   EQU    288               COMMON BLOCK LENGTH TOO LONG                  FCC1289X      29     A     
 DPCLOSE   E.CLC    EQU    292               CONFLICTING LEVELS IN COMMON                  DPCLOSE       59     A     
 DPCLOSE   E.NAL    EQU    293               NOT ALL ITEMS IN BLOCK LEVELED                DPCLOSE       60     A     
 DPCLOSE   E.LEE    EQU    294               LEVEL EQUIVALENCE ERROR                       DPCLOSE       61     A     
 DPCLOSE   E.EQVL   EQU    298               COMMON-EQUIVALENCE EXTENSION ERROR            DPCLOSE       62     A     
 DPCLOSE                                                                                   DPCLOSE       63     A     
 DPCLOSE  *         EQV ERRORS                                                             DPCLOSE       64     A     
 DPCLOSE                                                                                   DPCLOSE       65     A     
 DPCLOSE   E.EECS   EQU    90                NAME IN ECS                                   DPCLOSE       66          I
          -FCC0390
 DPCLOSE   E.C.E    EQU    95                COMMON/EQUIVALENCE ERROR                      DPCLOSE       67          I
          -FCC1289X 
 DPCLOSE   E.RER    EQU    95                REDUNDANT EQUIVALENCE RELATIONSHIP            FCC1289X      30     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2390    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE   E.E1N    EQU    92                ONLY ONE NAME IN EQUIVALENCE CLASS            FCC1289X      31     A     
 DPCLOSE   E.S>D    EQU    96                N.SUBS > N.DIMS                               DPCLOSE       68     A     
 DPCLOSE   E.CBE    EQU    97                ILLEGAL COMMON BLOCK EXTENSION                DPCLOSE       69     A     
 DPCLOSE   E.CER    EQU    98                CONTRADICTORY EQUIV RELATIONSHIP              DPCLOSE       70     A     
 DPCLOSE   E.NOS    EQU    214               NO SUBS, FIRST ELEMENT USED                   DPCLOSE       71     A     
 DPCLOSE   E.DRE    EQU    229               DIM RANGE EXTENDED ( INFORMATIVE )            DPCLOSE       72     A     
 DPCLOSE            SPACE  4                                                               DPCLOSE       73     A     
 DPCLOSE  *         GLOBAL COMMUNICATIONS CELLS.                                           DPCLOSE       74     A     
 DPCLOSE                                                                                   DPCLOSE       75     A     
 DPCLOSE   DBLDECL  ENTRY. 0                 .NZ. IF DBL OR CPLX DECL STMTS FOUND          DPCLOSE       76     A     
 DPCLOSE                                                                                   FCC1879       11     A     
 DPCLOSE  *         DEFINE MIN LCM RESIDENT LEVEL.                                         FCC1879       12     A     
 DPCLOSE                                                                                   FCC1879       13     A     
 DPCLOSE   #DAL     IFEQ   .DAL,1            IF DIRECT-ACCESS LCM AVAILABLE.               FCC1879       14     A     
 DPCLOSE   MN.LCM   EQU    2                                                               FCC1879       15     A     
 DPCLOSE   #DAL     ELSE                                                                   FCC1879       16     A     
 DPCLOSE   MN.LCM   EQU    3                                                               FCC1879       17     A     
 DPCLOSE   #DAL     ENDIF                                                                  FCC1879       18     A     
 DPCLOSE   SCNT     EQU    46B               DIAGNOSTIC LINE NUMBER (LOW CORE)             FCC2381       16     A     
 DPCLOSE   SAVESCNT BSS    1                 TEMPORARY FOR SCNT DURING DPCLOSE             FCC2381       17     A     
 DPCLOSE            TITLE              TABLES                                              DPCLOSE       77     A     
 DPCLOSE  *         MODES                                                                  DPCLOSE       78          I
          -FCC1289X 
 DPCLOSE  *         N      NORMAL                                                          DPCLOSE       79          I
          -FCC1289X 
 DPCLOSE  *         R      R OPTION SELECTED                                               DPCLOSE       80          I
          -FCC1289X 
 DPCLOSE  *         E      EDIT OPTION SELECTED ( TABLES ARE LOCAL TO "DPCLOSE" )          DPCLOSE       81          I
          -FCC1289X 
 DPCLOSE  *         D      D OPTION SELECTED                                               DPCLOSE       82          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE       83          I
          -FCC1289X 
 DPCLOSE  ***                                                                              DPCLOSE       84          I
          -FEAT129  -FCC1289X 
 DPCLOSE  *         TABLE  NEEDED            DESCRIPTION                                   DPCLOSE       85          I
          -FEAT129  -FCC1289X 
 DPCLOSE  **        TABLE  NEEDED            DESCRIPTION                                   FEAT129        9          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE       86          I
          -FCC1289X 
 DPCLOSE  *         CBT    R                 COMMON BLOCK INDEX TABLE                      DPCLOSE       87          I
          -FCC1289X 
 DPCLOSE  *                                  A COPY OF ORGTAB DURING PHASE1                DPCLOSE       88          I
          -FCC1289X 
 DPCLOSE  *                                  FOR REFMAP                                    DPCLOSE       89          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE       90          I
          -FCC1289X 
 DPCLOSE  *         COM    R                 COM TAB WITH THE ENTRIES FOR THE NAME         DPCLOSE       91          I
          -FCC1289X 
 DPCLOSE  *                                  FORMATTED AS:                                 DPCLOSE       92          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2391    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE  *                                  6/J,18/WC,18/SYMORD,18/RA                     DPCLOSE       93          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE       94          I
          -FCC1289X 
 DPCLOSE  *         EQV    E                 CHANGED TO G-F TABLE AND LINKED               DPCLOSE       95          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE       96          I
          -FCC1289X 
 DPCLOSE  *         DIM    N                 ENTRIES FOR EQUIVALENCED VARIABLES            DPCLOSE       97          I
          -FCC1289X 
 DPCLOSE  *                                  ADDED                                         DPCLOSE       98          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE       99          I
          -FCC1289X 
 DPCLOSE  *         ECT    R                 EQUIVALENCE CLASS TABLE                       DPCLOSE      100          I
          -FCC1289X 
 DPCLOSE  *                                  EQV TAB IS SORTED TO THE FORM:                DPCLOSE      101          I
          -FCC1289X 
 DPCLOSE  *                           BASE:  6/COMFLG,18/SPAN,18/SYMORD,18/MEMS-1          DPCLOSE      102          I
          -FCC1289X 
 DPCLOSE  *                           N-1    6/0,18/WORD CT,18/SYMORD,18/BIAS              DPCLOSE      103          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE      104          I
          -FCC1289X 
 DPCLOSE  *         EOT    N                 EQUIVALENCE OVERLAP TABLE                     FEAT129       10          I
          -FCC1289X 
 DPCLOSE  *                                  ONE ENTRY FOR EACH EQUIVALENCE CLASS          FEAT129       11          I
          -FCC1289X 
 DPCLOSE  *                                  IN COMMON.  ENTRIES FORMATTED AS              FEAT129       12          I
          -FCC1289X 
 DPCLOSE  *                                  L.RB/RB,18/FWA,18/LWA,24-L.RB/ECT IND         FEAT129       13          I
          -FCC1289X 
 DPCLOSE  *                                                                                FEAT129       14          I
          -FCC1289X 
 DPCLOSE  *         LAT    E                 LOCAL ADDRESS TABLE                           DPCLOSE      105          I
          -FCC1289X 
 DPCLOSE  *                                  6/0,18/WC,18/SYMORD,18/0                      DPCLOSE      106          I
          -FCC1289X 
 DPCLOSE  *                                  EACH LOCAL NAME THAT WE MUST ISSUE            DPCLOSE      107          I
          -FCC1289X 
 DPCLOSE  *                                  STORAGE TO "COMPS" FOR                        DPCLOSE      108          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE      109          I
          -FCC1289X 
 DPCLOSE  *         SCA    D                 SAVED COMMON ADDRESS                          DPCLOSE      110          I
          -FCC1289X 
 DPCLOSE  *                                  COMTAB ENTRY OF EACH NAME IN COMTAB           DPCLOSE      111          I
          -FCC1289X 
 DPCLOSE  *                                  THAT DOES NOT HAVE A DIMTAB ENTRY             DPCLOSE      112          I
          -FCC1289X 
 DPCLOSE  *                                  (SO WE CAN ASSIGN ADDRESS"S TO THE            DPCLOSE      113          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2392    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE  *                                  COMMON VARIABLES AT THE END OF PASS1)         DPCLOSE      114          I
          -FCC1289X 
 DPCLOSE  *                                  6/0,18/WC,18/SYMORD,18/RA                     DPCLOSE      115          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE      116          I
          -FCC1289X 
 DPCLOSE  **        TABLE DESCRIPTIONS                                                     FCC1289X      32     A     
 DPCLOSE                                                                                   FCC1289X      33     A     
 DPCLOSE                                                                                   FCC1289X      34     A     
 DPCLOSE  **        CBT -  COMMON BLOCK INDEX TABLE, A COPY OF ORGTAB DURING               FCC1289X      35     A     
 DPCLOSE  *                PHASE 1 FOR REFMAP.                                             FCC1289X      36     A     
 DPCLOSE  *                NEEDED ONLY WHEN R OPTION SELECTED.                             FCC1289X      37     A     
 DPCLOSE            SPACE  4,10                                                            FCC1289X      38     A     
 DPCLOSE  **        COM -  COMMON TABLE.                                                   FCC1289X      39     A     
 DPCLOSE  *                NEEDED ONLY WHEN R OPTION SELECTED.                             FCC1289X      40     A     
 DPCLOSE                                                                                   FCC1289X      41     A     
 DPCLOSE                                                                                   FCC1289X      42     A     
 DPCLOSE            DESCRIBE CH.,60    COMMON BLOCK HEADER WORD                            FCC1289X      43     A     
 DPCLOSE   EQU      DEFINE 1           EQUIVALENCE BIT                                     FCC1289X      44     A     
 DPCLOSE   CLC      DEFINE 1           E.CLC BIT                                           FCC1289X      45     A     
 DPCLOSE   NAL      DEFINE 1           E.NAL BIT                                           FCC1289X      46     A     
 DPCLOSE   LEE      DEFINE 1           E.LEE BIT                                           FCC1289X      47     A     
 DPCLOSE   EVL      DEFINE 1           E.EQVL BIT                                          FCC1289X      48     A     
 DPCLOSE            DEFINE 1                                                               FCC1289X      49     A     
 DPCLOSE   LEN      DEFINE 18          BLOCK LENGTH                                        FCC1289X      50     A     
 DPCLOSE   NM       DEFINE 18          NO. MEMBERS                                         FCC1289X      51     A     
 DPCLOSE   LNK      DEFINE 18          LINK TO NEXT BLOCK APPEARENCE                       FCC1289X      52     A     
 DPCLOSE                                                                                   FCC1289X      53     A     
 DPCLOSE            DESCRIBE CM.,60    COMMON BLOCK MEMBER WORD                            FCC1289X      54     A     
 DPCLOSE   DM       DEFINE 1           DIMENSION BIT                                       FCC1289X      55     A     
 DPCLOSE            DEFINE 5                                                               FCC1289X      56     A     
 DPCLOSE   WC       DEFINE 18          NO. WORDS                                           FCC1289X      57     A     
 DPCLOSE   SYM      DEFINE 18          SYMORD                                              FCC1289X      58     A     
 DPCLOSE   RA       DEFINE 18                                                              FCC1289X      59     A     
 DPCLOSE            SPACE  4,10                                                            FCC1289X      60     A     
 DPCLOSE  **        DIM -  DIMENSION TABLE. ENTRIES FOR EQUIVALENCED VARIABLES             FCC1289X      61     A     
 DPCLOSE  *                ADDED IN PDC. BIAS, RA ARE COMPUTED IN EQV.                     FCC1289X      62     A     
 DPCLOSE                                                                                   FCC1289X      63     A     
 DPCLOSE                                                                                   FCC1289X      64     A     
 DPCLOSE            DESCRIBE D1.,60    DIM TABLE WORD 1                                    FCC1289X      65     A     
 DPCLOSE   LOC      DEFINE 1           LOCAL BIT                                           FCC1289X      66     A     
 DPCLOSE            DEFINE 5                                                               FCC1289X      67     A     
 DPCLOSE   SYM      DEFINE 18          SYMORD                                              FCC1289X      68     A     
 DPCLOSE   BIA      DEFINE 18          BIAS (FOR CLASS MEMBER)                             FCC1289X      69     A     
 DPCLOSE   SPN      DEQU   BIA         SPAN (FOR CLASS BASE)                               FCC1289X      70     A     
 DPCLOSE   RA       DEFINE 18                                                              FCC1289X      71     A     
 DPCLOSE                                                                                   FCC1289X      72     A     
 DPCLOSE            DESCRIBE D2.,60    DIM TABLE WORD 2                                    FCC1289X      73     A     
 DPCLOSE   ND       DEFINE 3           NO. DIMENSIONS                                      FCC1289X      74     A     
 DPCLOSE   NVS      DEFINE 3           NO. VARIABLE SUBSCRIPT                              FCC1289X      75     A     
 DPCLOSE   WC       DEFINE 18          NO. WORDS                                           FCC1289X      76     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2393    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE   SB       DEFINE 18          SUBSCRIPT A                                         FCC1289X      77     A     
 DPCLOSE   SA       DEFINE 18          SUBSCRIPT B                                         FCC1289X      78     A     
 DPCLOSE            SPACE  4,10                                                            FCC1289X      79     A     
 DPCLOSE  **        ECT -  EQUIVLALENCE CLASS TABLE, CREATED IN SCAN5 OF EQV,              FCC1289X      80     A     
 DPCLOSE  *                ONE ENTRY FOR EACH EQUIVALENCED VARIABLE.                       FCC1289X      81     A     
 DPCLOSE  *                TEMPORARY ENTRIES ARE FORMED FIRST TO SORT OUT THE              FCC1289X      82     A     
 DPCLOSE  *                CLASSES AND TO FIND THEIR BASE MEMBERS.                         FCC1289X      83     A     
 DPCLOSE  *                CONTENTS ARE COPIED TO EQV TABLE AT END OF EQV.                 FCC1289X      84     A     
 DPCLOSE  *                NEEDED WHEN R OPTION IS SELECTED.                               FCC1289X      85     A     
 DPCLOSE                                                                                   FCC1289X      86     A     
 DPCLOSE                                                                                   FCC1289X      87     A     
 DPCLOSE            DESCRIBE TE.,60    TEMPORARY EQUIVALENCE CLASS TABLE                   FCC1289X      88     A     
 DPCLOSE            DEFINE 12                                                              FCC1289X      89          I
          -FCC1289AX
 DPCLOSE   EOI      DEFINE 12          INDEX TO EOT ENTRY                                  FCC1289X      90          I
          -FCC1289AX
 DPCLOSE   EOI      DEFINE 12          INDEX TO EOT ENTRY                                  FCC1289AX      6          I
          -FCC2548
 DPCLOSE            DEFINE 11          0                                                   FCC1289AX      7          I
          -FCC2548
 DPCLOSE   EOI      DEFINE 16          INDEX TO EOT ENTRY                                  FCC2548        8     A     
 DPCLOSE            DEFINE 7           0                                                   FCC2548        9     A     
 DPCLOSE   CBB      DEFINE 1           COMMON BASE BIAS (0 IF COMMON BASE)                 FCC1289AX      8     A     
 DPCLOSE   BIA      DEFINE 18          BIAS                                                FCC1289X      91     A     
 DPCLOSE   GFA      DEFINE 18          G-F TABLE ENTRY ADDRESS                             FCC1289X      92     A     
 DPCLOSE                                                                                   FCC1289X      93     A     
 DPCLOSE            DESCRIBE EC.,60    ECT                                                 FCC1289X      94     A     
 DPCLOSE   CB       DEFINE 1           COMMON BIT(BASE)                                    FCC1289X      95     A     
 DPCLOSE            DEFINE 5                                                               FCC1289X      96     A     
 DPCLOSE   WC       DEFINE 18          NO. WORDS(MEMBER)                                   FCC1289X      97     A     
 DPCLOSE   SPN      DEQU   WC          SPAN(BASE)                                          FCC1289X      98     A     
 DPCLOSE   SYM      DEFINE 18                                                              FCC1289X      99     A     
 DPCLOSE   BIA      DEFINE 18          BIAS(MEMBER)                                        FCC1289X     100     A     
 DPCLOSE   NM       DEQU   BIA         NO. MEMBERS(BASE)                                   FCC1289X     101     A     
 DPCLOSE            SPACE  4,10                                                            FCC1289X     102     A     
 DPCLOSE  **        EOT -  EQUIVALENCE OVERLAP TABLE.                                      FCC1289X     103     A     
 DPCLOSE  *                ONE ENTRY PER EACH EQUIVALENCE CLASS.                           FCC1289X     104     A     
 DPCLOSE  *                CREATED IN SCAN2 OF EQV FOR EQUIVALENCE OVERLAP                 FCC1289X     105     A     
 DPCLOSE  *                SEARCHES.                                                       FCC1289X     106     A     
 DPCLOSE  *                EXISTS ONLY DURING EQV.                                         FCC1289X     107     A     
 DPCLOSE                                                                                   FCC1289X     108     A     
 DPCLOSE                                                                                   FCC1289X     109     A     
 DPCLOSE            DESCRIBE EO.,60                                                        FCC1289X     110     A     
 DPCLOSE   RB       DEFINE L.RB                                                            FCC1289X     111          I
          -FCC1923
 DPCLOSE   RB       DEFINE L.RB+1                                                          FCC1923        8     A     
 DPCLOSE   FWA      DEFINE 18          FWA OF CLASS                                        FCC1289X     112     A     
 DPCLOSE   LWA      DEFINE 18          LWA OF CLASS                                        FCC1289X     113     A     
 DPCLOSE   GFI      DEFINE 24-L.RB     G-F TABLE INDEX OF ROOT                             FCC1289X     114          I
          -FCC1923
 DPCLOSE   GFI      DEFINE 24-L.RB-1         G-F TABLE INDEX OF ROOT                       FCC1923        9     A     
 DPCLOSE            SPACE  4,10                                                            FCC1289X     115     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2394    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE  **        EQV -  EQUIVALENCE TABLE, CREATED FROM EQUIVALENCE SOURCE              FCC1289X     116     A     
 DPCLOSE  *                IN DPEQU OF *DECPRO*.                                           FCC1289X     117     A     
 DPCLOSE  *                CHANGED TO G-F TABLE IN SCAN1 OF EQV.                           FCC1289X     118     A     
 DPCLOSE  *                CONTAINS FINAL EQUIV INFORMATION NEEDED FOR REFMAP.             FCC1289X     119     A     
 DPCLOSE  *                NEEDED WHEN EDIT OPTION IS SELECTED. (LOCAL TO                  FCC1289X     120     A     
 DPCLOSE  *                *DPCLOSE*.                                                      FCC1289X     121     A     
 DPCLOSE                                                                                   FCC1289X     122     A     
 DPCLOSE                                                                                   FCC1289X     123     A     
 DPCLOSE            DESCRIBE E1.,60    EQV TABLE WORD 1 (ENTRY TO EQV)                     FCC1289X     124     A     
 DPCLOSE   GOR      DEFINE 12          2000B+GROUP ORD                                     FCC1289X     125          I
          -FCC1946
 DPCLOSE   GOR      DEFINE 12          GROUP ORD                                           FCC1946       98          I
          -FCC2548
 DPCLOSE   GOR      DEFINE 16          GROUP ORD                                           FCC2548       10     A     
 DPCLOSE   SY2      DEFINE 48          2*SYMORD                                            FCC1289X     126          I
          -FCC2548
 DPCLOSE   SY2      DEFINE 44          2*SYMORD                                            FCC2548       11     A     
 DPCLOSE                                                                                   FCC1289X     127     A     
 DPCLOSE            DESCRIBE E2.,60    EQV TABLE WORD 2 (ENTRY TO EQV)                     FCC1289X     128     A     
 DPCLOSE   NS       DEFINE 3           NO. SUBSCRIPT                                       FCC1289X     129     A     
 DPCLOSE            DEFINE 3                                                               FCC1289X     130     A     
 DPCLOSE   SC       DEFINE 18          SUBSCRIPT C                                         FCC1289X     131     A     
 DPCLOSE   SB       DEFINE 18          SUBSCRIPT B                                         FCC1289X     132     A     
 DPCLOSE   SA       DEFINE 18          SUBSCRIPT A                                         FCC1289X     133     A     
 DPCLOSE                                                                                   FCC1289X     134     A     
 DPCLOSE            DESCRIBE Q2.,60    EQV TABLE WORD 2 (AFTER PRESCAN)                    FCC1289X     135     A     
 DPCLOSE   GOR      DEFINE 12          2000B+ GOURP ORD                                    FCC1289X     136          I
          -FCC1946
 DPCLOSE   GOR      DEFINE 12          GROUP ORD                                           FCC1946       99          I
          -FCC2548
 DPCLOSE   GOR      DEFINE 16          GROUP ORD                                           FCC2548       12     A     
 DPCLOSE            DEFINE 12                                                              FCC1289X     137          I
          -FCC2548
 DPCLOSE            DEFINE 8                                                               FCC2548       13     A     
 DPCLOSE   PD       DEFINE 18          PRODUCT OF DIMENSIONS (PI(DIMS))                    FCC1289X     138     A     
 DPCLOSE   SUB      DEFINE 18          SUBSCRIPT                                           FCC1289X     139     A     
 DPCLOSE                                                                                   FCC1289X     140     A     
 DPCLOSE            DESCRIBE G1.,60    G-F TABLE WORD 1 (AFTER SCAN1)                      FCC1289X     141     A     
 DPCLOSE            DEFINE 6                                                               FCC1289X     142          I
          -FCC1289AX
 DPCLOSE            DEFINE 5           0                                                   FCC1289AX      9     A     
 DPCLOSE   COM      DEFINE 1           COMMON BIT                                          FCC1289AX     10     A     
 DPCLOSE   SYM      DEFINE 18          SYMORD                                              FCC1289X     143     A     
 DPCLOSE   RB       DEFINE 18                                                              FCC1289X     144     A     
 DPCLOSE   RA       DEFINE 18                                                              FCC1289X     145     A     
 DPCLOSE   ADR      DEQU   RA,36       RB/RA                                               FCC1289X     146     A     
 DPCLOSE                                                                                   FCC1289X     147     A     
 DPCLOSE            DESCRIBE G2.,60    G-F TABLE WORD 2 (AFTER SCAN1)                      FCC1289X     148     A     
 DPCLOSE   P        DEFINE 12          2000B+P(I), WHERE P(I)= PARENT OF I                 FCC1289X     149          I
          -FCC1946
 DPCLOSE   P        DEFINE 12          P(I), WHERE P(I)= PARENT OF I                       FCC1946      100          I
          -FCC2548
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2395    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            DEFINE 12                                                              FCC1289X     150          I
          -FCC2548
 DPCLOSE   P        DEFINE 16          P(I), WHERE P(I)= PARENT OF I                       FCC2548       14     A     
 DPCLOSE            DEFINE 8                                                               FCC2548       15     A     
 DPCLOSE   HI       DEFINE 18          LENGTH ABOVE THE MEMBER                             FCC1289X     151     A     
 DPCLOSE   LO       DEFINE 18          LENGTH BELOW THE ROOT                               FCC1289X     152     A     
 DPCLOSE                                                                                   FCC1289X     153     A     
 DPCLOSE            DESCRIBE F2.,60    G-F TABLE WORD 2 (AFTER SCAN4)                      FCC1289X     154     A     
 DPCLOSE            DEFINE 12                                                              FCC1289X     155          I
          -FCC2548
 DPCLOSE   EOI      DEFINE 12          EOT INDEX OF BASE                                   FCC1289X     156          I
          -FCC2548
 DPCLOSE            DEFINE 8                                                               FCC2548       16     A     
 DPCLOSE   EOI      DEFINE 16          EOT INDEX OF BASE                                   FCC2548       17     A     
 DPCLOSE   BIA      DEFINE 18          BIAS                                                FCC1289X     157     A     
 DPCLOSE   FWA      DEFINE 18          FWA OF CLASS                                        FCC1289X     158     A     
 DPCLOSE                                                                                   FCC1289X     159     A     
 DPCLOSE                                                                                   FCC1289X     160     A     
 DPCLOSE  *CALL FMACDEF                                                                    DPCLOSE      117     A     
 DPCLOSE                                                                                   DPCLOSE      118     A     
 DPCLOSE                                                                                   DPCLOSE      119     A     
 DPCLOSE  *         USE    /MACBUF/          DEFINITION FOR ALL *DPCLOSE* EXCEPT           DPCLOSE      120     A     
 DPCLOSE  *                                  FOR *ETC* WHICH USES THE DEFINITION           DPCLOSE      121     A     
 DPCLOSE  *                                  IN *FMACDEF* (LISTED IN *STMTP*).             DPCLOSE      122     A     
 DPCLOSE                                                                                   DPCLOSE      123     A     
 DPCLOSE            LOC    NARGS             FWA OF /MACBUF/ AS DEFINED IN                 DPCLOSE      124     A     
 DPCLOSE  *                                  *FMACDEF*.                                    DPCLOSE      125     A     
 DPCLOSE                                                                                   DPCLOSE      126     A     
 DPCLOSE  *                           LEN                                                  DPCLOSE      127     A     
 DPCLOSE   TEMP     EQU    *           1     A TEMPORARY                                   DPCLOSE      128     A     
 DPCLOSE   ECSCOM   EQU    *+1         1     NE 0 IF ECS VARIABLE NOT IN COMMON            DPCLOSE      129     A     
 DPCLOSE   LCMERR   EQU    *+2         1                                                   DPCLOSE      130     A     
 DPCLOSE   LCMORD   EQU    *+3         1                                                   DPCLOSE      131     A     
 DPCLOSE                                                                                   DPCLOSE      132     A     
 DPCLOSE   PSEUDO   EQU    *+4         1     PSEUDO OP WORD                                DPCLOSE      133     A     
 DPCLOSE   CLI      EQU    *+5         2     LOOP INDEX AND LIMIT FOR COMMON               DPCLOSE      134     A     
 DPCLOSE   CLOC     EQU    *+7         2     CURRENT LOC AND LINK                          DPCLOSE      135     A     
 DPCLOSE   CBUF     EQU    *+9         4     SPACE FOR *EQV*                               DPCLOSE      136     A     
 DPCLOSE   NSCR     EQU    *+13-TEMP         LEN OF /MACBUF/                               DPCLOSE      137     A     
 DPCLOSE            LOC    *O                                                              DPCLOSE      138     A     
 DPCLOSE            TITLE              MAIN LOOP                                           DPCLOSE      139     A     
 DPCLOSE   DPCLOSE  RJ     SCF               ADJUST COMTAB LENGTH                          DPCLOSE      140          I
          -FCC2381
 DPCLOSE   DPCLOSE  SA1    =10R  EQV/COMM    REPLACES DIAG LINE NUMBER                     FCC2381       18     A     
 DPCLOSE            SA2    SCNT              FOR MESSAGES OUTPUT DURING DPCLOSE            FCC2381       19     A     
 DPCLOSE            BX6    X1                                                              FCC2381       20     A     
 DPCLOSE            SA6    A2                                                              FCC2381       21     A     
 DPCLOSE            BX6    X2                                                              FCC2381       22     A     
 DPCLOSE            SA6    SAVESCNT          SAVE DIAG LINE NUMBER                         FCC2381       23     A     
 DPCLOSE            RJ     SCF                                                             FCC2381       24     A     
 DPCLOSE            RJ     SEF               ADJUST EQVTAB LENGTH                          DPCLOSE      141     A     
 DPCLOSE            SX6    O.CET+M.NCB                                                     DPCLOSE      142          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2396    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SX6    O.CET                                                           FCC1289X     161     A     
 DPCLOSE            RJ     INITBL            INITIALIZE TABLES FOR DPCLOSE                 DPCLOSE      143     A     
 DPCLOSE                                                                                   FEAT129       15     A     
 DPCLOSE            RJ     ETC               ISSUE TRACEBACK, ENTRYPOINT, AND F.P.         FEAT129       16     A     
 DPCLOSE  *                                  INFO TO COMPS FOR SUBPROGRAMS                 FEAT129       17     A     
 DPCLOSE                                                                                   DPCLOSE      144     A     
 DPCLOSE            MX7    0                                                               DPCLOSE      145     A     
 DPCLOSE            SB1    NSCR                                                            DPCLOSE      146     A     
 DPCLOSE  +         SA7    TEMP-1+B1         CLEAR OUT SCRATCH CELLS AND FLAGS             DPCLOSE      147     A     
 DPCLOSE            SB1    B1-B5                                                           DPCLOSE      148     A     
 DPCLOSE            NZ     B1,*-1                                                          DPCLOSE      149     A     
 DPCLOSE                                                                                   FEAT129       18     A     
 DPCLOSE            RJ     PDC               PERFORM DEFERRED CHECKS                       DPCLOSE      150     A     
 DPCLOSE                                                                                   DPCLOSE      151     A     
 DPCLOSE            RJ     ACA               ASSIGN COMMON ADDRESS S                       DPCLOSE      152     A     
 DPCLOSE                                                                                   DPCLOSE      153     A     
 DPCLOSE            RJ     EQV               PROCESS EQUIVALENCE TABLES                    DPCLOSE      154     A     
 DPCLOSE                                                                                   DPCLOSE      155     A     
 DPCLOSE            RJ     ALA               ASSIGN LOCAL ADDRESS S                        DPCLOSE      156     A     
 DPCLOSE                                                                                   DPCLOSE      157     A     
 DPCLOSE            RJ     PCE         PROCESS COMMON ERRORS                               FCC0580        6     A     
 DPCLOSE                                                                                   FCC0580        7     A     
 DPCLOSE            RJ     ETC               ISSUE TRACEBACK, ENTRYPOINT, AND F.P.         DPCLOSE      158          I
          -FEAT129
 DPCLOSE  *                                  INFO TO COMPS FOR SUBPROGRAMS                 DPCLOSE      159          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      160          I
          -FEAT129
 DPCLOSE            RJ     SCA               SAVE COMMON ADDRESS S                         DPCLOSE      161     A     
 DPCLOSE                                                                                   DPCLOSE      162     A     
 DPCLOSE            RJ     ISC               ISSUE STORAGE TO COMPS                        DPCLOSE      163     A     
 DPCLOSE                                                                                   DPCLOSE      164     A     
 DPCLOSE  *         INITIALIZE FOR PHASE 2                                                 DPCLOSE      165     A     
 DPCLOSE                                                                                   DPCLOSE      166     A     
 DPCLOSE            SA1    O.TBLS                                                          DPCLOSE      167     A     
 DPCLOSE            BX6    X1                                                              DPCLOSE      168     A     
 DPCLOSE            MX7    0                                                               DPCLOSE      169     A     
 DPCLOSE            SA4    R=FLAG                                                          DPCLOSE      170     A     
 DPCLOSE            SX5    X4-3                                                            DPCLOSE      171     A     
 DPCLOSE            ZR     X5,DPC1           IF R = 3                                      DPCLOSE      172     A     
 DPCLOSE            SA7    L.COM                                                           DPCLOSE      173     A     
 DPCLOSE            SA7    L.EQV                                                           DPCLOSE      174          I
          -FCC0711
 DPCLOSE   DPC1     SA7    L.LAT                                                           DPCLOSE      175     A     
 DPCLOSE            RJ     INITBL            INITIALIZE TABLES                             DPCLOSE      176     A     
 DPCLOSE                                                                                   DPCLOSE      177     A     
 DPCLOSE            SA3    O.DIM                                                           DPCLOSE      178     A     
 DPCLOSE            SX6    X3-2                                                            DPCLOSE      179     A     
 DPCLOSE            SA6    DIM1              DIM1 = O.DIM-2                                DPCLOSE      180     A     
 DPCLOSE            SA1    O.FPBL                                                          DPCLOSE      181     A     
 DPCLOSE            SA2    N.FP                                                            DPCLOSE      182     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2397    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            BX7    X2                                                              DPCLOSE      183     A     
 DPCLOSE            SB1    X1                FWA                                           DPCLOSE      184     A     
 DPCLOSE            SB2    B1+X2                                                           DPCLOSE      185     A     
 DPCLOSE            MX6    0                                                               DPCLOSE      186     A     
 DPCLOSE            SA7    L.FPBL            L.FPBL = N.FP                                 DPCLOSE      187     A     
 DPCLOSE                                                                                   DPCLOSE      188     A     
 DPCLOSE  +         SA6    B1                CLEAR THE F.P. BLOCK LENGTH TABLE             DPCLOSE      189     A     
 DPCLOSE            SB1    B1+B5                                                           DPCLOSE      190     A     
 DPCLOSE            LT     B1,B2,*                                                         DPCLOSE      191     A     
 DPCLOSE                                                                                   DPCLOSE      192     A     
 DPCLOSE  *         SET UP ENTRY POINT TABLE                                               DPCLOSE      193     A     
 DPCLOSE                                                                                   DPCLOSE      194     A     
 DPCLOSE            SA1    PROGRAM                                                         DPCLOSE      195     A     
 DPCLOSE            ZR     X1,DPC2           IF A BLOCK DATA SUBPROGRAM                    DPCLOSE      196     A     
 DPCLOSE            SX1    1           SYMTAB ORD OF ENTRY POINT=PROG UNIT NAME            DPCLOSE      197     A     
 DPCLOSE            ADDWD  ENTR,X1                                                         DPCLOSE      198     A     
 DPCLOSE            SA5    N.FILES                                                         DPCLOSE      199     A     
 DPCLOSE            ZR     X5,DPC2           IF NO FILES                                   DPCLOSE      200     A     
 DPCLOSE            SA4    F.LFN                                                           DPCLOSE      201     A     
 DPCLOSE            LX4    59-P.EXT                                                        DPCLOSE      202     A     
 DPCLOSE            PL     X4,DPC2           IF FILES IN A MAIN PROG ARE NOT               DPCLOSE      203     A     
 DPCLOSE  *                                  ENTRY POINTS                                  DPCLOSE      204     A     
 DPCLOSE            ALLOC  ,X5               GET SPACE                                     DPCLOSE      205     A     
 DPCLOSE                                                                                   DPCLOSE      206     A     
 DPCLOSE            SA1    O.ENTR                                                          DPCLOSE      207     A     
 DPCLOSE            SA2    N.FILES                                                         DPCLOSE      208     A     
 DPCLOSE            SX7    X2+B5                                                           DPCLOSE      209     A     
 DPCLOSE            SA7    L.ENTR            L.ENTR = N.FILES+1                            DPCLOSE      210     A     
 DPCLOSE            SB1    X1                                                              DPCLOSE      211     A     
 DPCLOSE            SB2    B1+X7             LWA+1                                         DPCLOSE      212     A     
 DPCLOSE            SX6    2                 ORDINAL OF FIRST FILE                         DPCLOSE      213     A     
 DPCLOSE                                                                                   DPCLOSE      214     A     
 DPCLOSE  +         SB1    B1+B5             ADD ORDINALS OF FILE NAMES TO ENTR TB         DPCLOSE      215     A     
 DPCLOSE            SA6    B1                                                              DPCLOSE      216     A     
 DPCLOSE            SX6    X6+B5                                                           DPCLOSE      217     A     
 DPCLOSE            LT     B1,B2,*-1                                                       DPCLOSE      218     A     
 DPCLOSE                                                                                   DPCLOSE      219     A     
 DPCLOSE   DPC2     SYMBOL =8RCON.           CON. TO SYMTAB                                DPCLOSE      220     A     
 DPCLOSE            SA3    WB.CON            TYPE , RL AND RB                              DPCLOSE      221     A     
 DPCLOSE            BX7    X3+X2                                                           DPCLOSE      222     A     
 DPCLOSE            SA7    A2                                                              DPCLOSE      223     A     
 DPCLOSE            SX6    B1                SAVE SYMTAB ORDINAL                           DPCLOSE      224     A     
 DPCLOSE            SA6    CON.                                                            DPCLOSE      225     A     
 DPCLOSE                                                                                   DPCLOSE      226     A     
 DPCLOSE            SA5    DFLAG                                                           DPCLOSE      227     A     
 DPCLOSE            ZR     X5,DPC3           IF NOT DEBUG MODE                             DPCLOSE      228     A     
 DPCLOSE            CALL   DINPH2            INITIALIZE FOR DEBUG PROCESSOR                DPCLOSE      229     A     
 DPCLOSE            SA1    N.FERR                                                          DPCLOSE      230          I
          -FCC0220
 DPCLOSE            SA1    =XN.FERR                                                        FCC0220      103     A     
 DPCLOSE            ZR     X1,DPC3           IF NO FATAL ERRORS IN PHASE 1                 DPCLOSE      231     A     
 DPCLOSE            SX7    -1                                                              DPCLOSE      232          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2398    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC0220
 DPCLOSE            SA7    NOGOFLG           FORCE NOGO OPTION ON                          DPCLOSE      233          I
          -FCC0220
 DPCLOSE            MX7    1                                                               FCC0220      104     A     
 DPCLOSE            SA7    =XP2NOGO    SET *SUPPRESS OBJECT CODE GENERATION*               FCC0220      105     A     
 DPCLOSE                                                                                   DPCLOSE      234     A     
 DPCLOSE   DPC3     OUTUSE DATA.             SET RELOCATION BASE                           DPCLOSE      235     A     
 DPCLOSE            SA1    SAVESCNT          RESTORE DIAG LINE NUMBER                      FCC2381       25     A     
 DPCLOSE            BX6    X1                                                              FCC2381       26     A     
 DPCLOSE            SA6    SCNT                                                            FCC2381       27     A     
 DPCLOSE            EQ     PH2CTL            EXIT TO PHASE 2                               DPCLOSE      236     A     
 DPCLOSE            SPACE  3                                                               DPCLOSE      237          I
          -FCC1289X 
 DPCLOSE                                                                                   FCC1289X     162     A     
 DPCLOSE                                                                                   FCC1289X     163     A     
 DPCLOSE   O.CBT    EQU    DPCLOSE+150       FWA OF SAVED COMMON BLOCK TABLE               DPCLOSE      238     A     
 DPCLOSE                                                                                   DPCLOSE      239          I
          -FCC1289X 
 DPCLOSE   O.TBLS   VFD    60/O.CBT          FWA OF TABLES AFTER MOVE                      DPCLOSE      240     A     
 DPCLOSE                                                                                   DPCLOSE      241          I
          -FCC1289X 
 DPCLOSE   BLKNAM   DATA   17L  USE    /NAME/                                              DPCLOSE      242     A     
 DPCLOSE   LCMBLK   DATA   17L  USELCM /NAME/                                              DPCLOSE      243     A     
 DPCLOSE   TEMPREG  BSS    1                                                               DPCLOSE      244     A     
 DPCLOSE            TITLE              ISC - ISSUE STORAGE TO COMPS                        DPCLOSE      245     A     
 DPCLOSE  ***                                                                              DPCLOSE      246          I
          -FEAT129
 DPCLOSE  *         ISC - ISSUE STORAGE TO COMPS                                           DPCLOSE      247          I
          -FEAT129
 DPCLOSE  **        ISC - ISSUE STORAGE TO COMPS                                           FEAT129       19     A     
 DPCLOSE  *                                                                                DPCLOSE      248     A     
 DPCLOSE  *         ON ENTRY:                                                              DPCLOSE      249     A     
 DPCLOSE  *         COMTAB:                                                                DPCLOSE      250     A     
 DPCLOSE  *                HEADER WORD: 1/EQVFLAG,5/0,18/BLK LEN,18/MEMS,18/LINK           DPCLOSE      251     A     
 DPCLOSE  *                MEMBERS:  1/DIMFLAG,5/0,18/WC,18/SYMORD,18/RA                   DPCLOSE      252     A     
 DPCLOSE  *                ECS:      1/D,5/0,18/ECS RA,18/SYMORD,18/CM RA                  DPCLOSE      253     A     
 DPCLOSE  *                                                                                DPCLOSE      254     A     
 DPCLOSE  *         LAT:                                                                   DPCLOSE      255     A     
 DPCLOSE  *                          6/0,18/WC,18/SYMORD,18/0                              DPCLOSE      256     A     
 DPCLOSE  *                                                                                DPCLOSE      257     A     
 DPCLOSE   ISC                                                                             DPCLOSE      258     A     
 DPCLOSE            SA1    MACFLAG                                                         DPCLOSE      259     A     
 DPCLOSE            SA2    =XLEVEL                                                         DPCLOSE      260     A     
 DPCLOSE  +         NZ     X2,*+1            IF WE HAVE AN ECS BLOCK                       DPCLOSE      261     A     
 DPCLOSE            ZR     X1,ISC            IF COMPS OPTION NOT ON                        DPCLOSE      262     A     
 DPCLOSE                                                                                   DPCLOSE      263     A     
 DPCLOSE  *         OUTPUT "COMPS" IMAGES FOR THE COMMON DECLARATIONS                      DPCLOSE      264     A     
 DPCLOSE                                                                                   DPCLOSE      265     A     
 DPCLOSE            SA1    N.COM                                                           DPCLOSE      266     A     
 DPCLOSE            ZR     X1,ISC.L          IF NO COMMON                                  DPCLOSE      267     A     
 DPCLOSE            SX6    O.CBT                                                           DPCLOSE      268     A     
 DPCLOSE            SA6    C.BLOCK           TO FORCE AN USE DATA. LATER                   DPCLOSE      269     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2399    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            IX7    X1+X6                                                           DPCLOSE      270     A     
 DPCLOSE            SA6    CLI               LOOP INDEX                                    DPCLOSE      271     A     
 DPCLOSE            SA7    A6+B5             LIMIT                                         DPCLOSE      272     A     
 DPCLOSE                                                                                   DPCLOSE      273     A     
 DPCLOSE   ISC1     SA4    X6                BLOCK NAME                                    DPCLOSE      274     A     
 DPCLOSE            MX0    L.NAME                                                          DPCLOSE      275     A     
 DPCLOSE            SB7    BLKNAM                                                          DPCLOSE      276     A     
 DPCLOSE            BX7    X0*X4                                                           DPCLOSE      277     A     
 DPCLOSE                                                                                   DPCLOSE      278     A     
 DPCLOSE                                                                                   DPCLOSE      279          I
          -FCC1289X 
 DPCLOSE  *         DETERMINE IF THIS IS AN LCM/ECS BLOCK                                  DPCLOSE      280     A     
 DPCLOSE                                                                                   DPCLOSE      281     A     
 DPCLOSE            SA3    O.COM                                                           DPCLOSE      282     A     
 DPCLOSE            IX4    X3+X4                                                           DPCLOSE      283     A     
 DPCLOSE            SA5    X4+B5                                                           DPCLOSE      284     A     
 DPCLOSE            SA3    SYM1                                                            DPCLOSE      285     A     
 DPCLOSE            AX5    18-1              2*SYMORD                                      DPCLOSE      286     A     
 DPCLOSE            SX4    X5+B5             2*SYMORD+1                                    DPCLOSE      287     A     
 DPCLOSE            IX3    X3-X4                                                           DPCLOSE      288     A     
 DPCLOSE            SA4    X3                WORD B                                        DPCLOSE      289     A     
 DPCLOSE            LX4    59-P.LCM                                                        DPCLOSE      290     A     
 DPCLOSE            BX6    X4                                                              DPCLOSE      291     A     
 DPCLOSE            SA6    LCMORD                                                          DPCLOSE      292     A     
 DPCLOSE            PL     X6,ISC1.A   IF NOT ECS/LCM                                      DPCLOSE      293     A     
 DPCLOSE            SB7    LCMBLK                                                          DPCLOSE      294     A     
 DPCLOSE                                                                                   DPCLOSE      295     A     
 DPCLOSE   ISC1.A   SA5    =3R  /                                                          DPCLOSE      296     A     
 DPCLOSE            BX7    X5+X7                                                           DPCLOSE      297     A     
 DPCLOSE            LX7    54                /NAME BB                                      DPCLOSE      298     A     
 DPCLOSE            SB6    6                                                               DPCLOSE      299     A     
 DPCLOSE            SB2    B6                                                              DPCLOSE      300     A     
 DPCLOSE            MX6    54                                                              DPCLOSE      301     A     
 DPCLOSE  +         SB2    B2+B6             FIND THE LAST NON BLANK CHAR                  DPCLOSE      302     A     
 DPCLOSE            AX5    B2,X7                                                           DPCLOSE      303     A     
 DPCLOSE            BX4    -X6*X5                                                          DPCLOSE      304     A     
 DPCLOSE            SX3    X4-1R                                                           DPCLOSE      305     A     
 DPCLOSE            ZR     X3,*-1            LOOP IF A BLANK                               DPCLOSE      306     A     
 DPCLOSE            LX7    6                                                               DPCLOSE      307     A     
 DPCLOSE            SX5    1R/-1R                                                          DPCLOSE      308     A     
 DPCLOSE            LX5    B2,X5                                                           DPCLOSE      309     A     
 DPCLOSE            IX7    X7+X5                                                           DPCLOSE      310     A     
 DPCLOSE            MX6    L.NAME+6                                                        DPCLOSE      311     A     
 DPCLOSE            BX7    X6*X7                                                           DPCLOSE      312     A     
 DPCLOSE                                                                                   DPCLOSE      313          I
          -FCC1289X 
 DPCLOSE            SA7    B7+B5                                                           DPCLOSE      314     A     
 DPCLOSE            SB6    B7                (B6) = LINE FWA                               DPCLOSE      315     A     
 DPCLOSE            SB1    1                                                               DPCLOSE      316     A     
 DPCLOSE            WRITEC =XF.CMPS,B6,2     * USE BLKNAM* TO -COMPS-                      DPCLOSE      317     A     
 DPCLOSE                                                                                   DPCLOSE      318     A     
 DPCLOSE  *         CHECK FOR AN EQUIVALENCED BLOCK                                        DPCLOSE      319     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2400    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE                                                                                   DPCLOSE      320     A     
 DPCLOSE            SA5    CLI                                                             DPCLOSE      321     A     
 DPCLOSE            SA4    O.COM                                                           DPCLOSE      322     A     
 DPCLOSE            SA3    X5                INDEX TO COMTAB                               DPCLOSE      323     A     
 DPCLOSE            SB5    B1                                                              DPCLOSE      324     A     
 DPCLOSE            IX6    X3+X4                                                           DPCLOSE      325     A     
 DPCLOSE            SA1    X6                COMTAB HEADER WORD                            DPCLOSE      326     A     
 DPCLOSE            SA6    CLOC                                                            DPCLOSE      327     A     
 DPCLOSE            BX4    X1                                                              FEAT129       20     A     
 DPCLOSE            MX3    0                                                               FEAT129       21     A     
 DPCLOSE            MX0    17                                                              FEAT129       22     A     
 DPCLOSE            LX0    17+36                                                           FEAT129       23     A     
 DPCLOSE            SA4    A1          COMTAB HEADER                                       FEAT129       24     A     
 DPCLOSE                                                                                   FEAT129       25     A     
 DPCLOSE   ISC1C    SB4    X4          INDEX TO NEXT HEADER                                FEAT129       26     A     
 DPCLOSE            AX4    18                                                              FEAT129       27     A     
 DPCLOSE            SB1    X4          NUMBER OF ENTRIES                                   FEAT129       28     A     
 DPCLOSE                                                                                   FCC1289X     164     A     
 DPCLOSE   ISC1D    SA2    A4+B1                                                           FEAT129       29     A     
 DPCLOSE            BX2    X0*X2                                                           FEAT129       30     A     
 DPCLOSE            IX3    X3+X2                                                           FEAT129       31     A     
 DPCLOSE            SB1    B1-B5                                                           FEAT129       32     A     
 DPCLOSE            GT     B1,B0,ISC1D                                                     FEAT129       33     A     
 DPCLOSE            SA4    A4+B4       NEXT COMTAB HEADER                                  FEAT129       34     A     
 DPCLOSE            NE     B4,ISC1C                                                        FEAT129       35     A     
 DPCLOSE                                                                                   FEAT129       36          I
          -FCC1289X 
 DPCLOSE            BX2    X0*X1                                                           FEAT129       37     A     
 DPCLOSE            IX7    X2-X3       ACTUAL LENGTH - DECLARED LENGTH                     FEAT129       38     A     
 DPCLOSE            AX7    36                                                              FEAT129       39     A     
 DPCLOSE            SA7    TEMP                                                            FEAT129       40     A     
 DPCLOSE            SA2    LCMORD                                                          DPCLOSE      328     A     
 DPCLOSE            SA3    =XDIRECT                                                        DPCLOSE      329     A     
 DPCLOSE            ZR     X3,ISC1.B   IF DIRECT MODE                                      DPCLOSE      330     A     
 DPCLOSE            MI     X2,ISC2     IF LCM/ECS                                          DPCLOSE      331     A     
 DPCLOSE   ISC1.B   SX7    X1                                                              DPCLOSE      332     A     
 DPCLOSE            SA7    A6+B5             LINK                                          DPCLOSE      333     A     
 DPCLOSE            PL     X1,ISC3           IF NOT EQUIVALENCED                           DPCLOSE      334          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      335          I
          -FEAT129
 DPCLOSE  *         EQUIVALENCED BLOCK, ISSUE STORAGE FOR THE BASE MEMBER                  DPCLOSE      336          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      337          I
          -FEAT129
 DPCLOSE            SA2    A1+B5             FIRST MEMBER                                  DPCLOSE      338          I
          -FEAT129
 DPCLOSE            MX0    17                                                              DPCLOSE      339          I
          -FEAT129
 DPCLOSE            LX0    -7                                                              DPCLOSE      340          I
          -FEAT129
 DPCLOSE            BX1    X0*X1                                                           DPCLOSE      341          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2401    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FEAT129
 DPCLOSE            MX0    24                                                              DPCLOSE      342          I
          -FEAT129
 DPCLOSE            BX2    -X0*X2            SYMORD                                        DPCLOSE      343          I
          -FEAT129
 DPCLOSE            IX6    X1+X2                                                           DPCLOSE      344          I
          -FEAT129
 DPCLOSE            SA6    TEMP                                                            DPCLOSE      345          I
          -FEAT129
 DPCLOSE            SX7    B5                1 MEMBER                                      DPCLOSE      346          I
          -FEAT129
 DPCLOSE            SX6    A6                FWA                                           DPCLOSE      347          I
          -FEAT129
 DPCLOSE            SA5    BSS.OP                                                          DPCLOSE      348          I
          -FEAT129
 DPCLOSE            RJ     OSC               OUTPUT STORAGE FOR THE BLOCK                  DPCLOSE      349          I
          -FEAT129
 DPCLOSE            EQ     ISC5                                                            DPCLOSE      350          I
          -FEAT129
 DPCLOSE            EQ     ISC3                                                            FEAT129       41     A     
 DPCLOSE                                                                                   DPCLOSE      351     A     
 DPCLOSE  *         ISSUE STORAGE FOR A LEVEL 3 BLOCK                                      DPCLOSE      352     A     
 DPCLOSE                                                                                   DPCLOSE      353     A     
 DPCLOSE   ISC2     SX2    X5-O.CBT+1                                                      DPCLOSE      354     A     
 DPCLOSE            SB1    54                                                              DPCLOSE      355     A     
 DPCLOSE            SX7    1R?                                                             DPCLOSE      356     A     
 DPCLOSE            RJ     =XCNVT                                                          DPCLOSE      357     A     
 DPCLOSE            MX0    1                                                               DPCLOSE      358     A     
 DPCLOSE            SB2    B1-B5                                                           DPCLOSE      359     A     
 DPCLOSE            SA5    =10H                                                            DPCLOSE      360     A     
 DPCLOSE            AX0    B2,X0                                                           DPCLOSE      361     A     
 DPCLOSE            BX2    X0*X5                                                           DPCLOSE      362     A     
 DPCLOSE            IX7    X2+X7       PAD WITH BLANKS                                     DPCLOSE      363     A     
 DPCLOSE            LX6    B1,X7             X6 = LABEL IN 7LNAME FORM                     DPCLOSE      364     A     
 DPCLOSE            MX0    42                                                              DPCLOSE      365     A     
 DPCLOSE            AX1    36                                                              DPCLOSE      366     A     
 DPCLOSE            SA5    BSS.OP            BSS OPCODE                                    DPCLOSE      367     A     
 DPCLOSE            BX6    X0*X6       FORCE TO 7L FORM                                    DPCLOSE      368     A     
 DPCLOSE            MX7    60-17                                                           DPCLOSE      369     A     
 DPCLOSE            BX1    -X7*X1            BLOCK LENGTH                                  DPCLOSE      370     A     
 DPCLOSE            RJ     =XWST             ISSUE ?NNN BSS MMMB TO COMPS                  DPCLOSE      371     A     
 DPCLOSE            EQ     ISC5                                                            DPCLOSE      372     A     
 DPCLOSE                                                                                   DPCLOSE      373     A     
 DPCLOSE   ISC3     SA5    BSS.OP                                                          DPCLOSE      374     A     
 DPCLOSE            BX7    X5                                                              DPCLOSE      375     A     
 DPCLOSE            SA7    PSEUDO                                                          DPCLOSE      376     A     
 DPCLOSE                                                                                   DPCLOSE      377     A     
 DPCLOSE  *         ISSUE *NAME BSS NNNB* FOR EACH OCCURRENCE OF EACH BLOCK NAME.          DPCLOSE      378     A     
 DPCLOSE                                                                                   DPCLOSE      379     A     
 DPCLOSE   ISC4     SX6    A1+B5             FWA                                           DPCLOSE      380     A     
 DPCLOSE            AX1    18                                                              DPCLOSE      381     A     
 DPCLOSE            SX7    X1                NUMBER OF MEMBERS                             DPCLOSE      382     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2402    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            RJ     OSC               OUTPUT STORAGE                                DPCLOSE      383     A     
 DPCLOSE            SA5    PSEUDO                                                          DPCLOSE      384     A     
 DPCLOSE            SA2    CLOC                                                            DPCLOSE      385     A     
 DPCLOSE            SA3    A2+B5             LINK                                          DPCLOSE      386     A     
 DPCLOSE            IX6    X2+X3                                                           DPCLOSE      387     A     
 DPCLOSE            SA6    A2                                                              DPCLOSE      388     A     
 DPCLOSE            SA1    X6                BLOCK HEADER                                  DPCLOSE      389     A     
 DPCLOSE            SX7    X1                                                              DPCLOSE      390     A     
 DPCLOSE            SA7    A3                NEW LINK                                      DPCLOSE      391     A     
 DPCLOSE            NZ     X3,ISC4           IF MORE OCCURRENCES                           DPCLOSE      392     A     
 DPCLOSE                                                                                   DPCLOSE      393     A     
 DPCLOSE   ISC5     SA1    CLI                                                             DPCLOSE      394          I
          -FEAT129
 DPCLOSE   ISC5     SA1    TEMP                                                            FEAT129       42     A     
 DPCLOSE            ZR     X1,ISC6     IF NO EXTRA BSS NECESSARY                           FEAT129       43     A     
 DPCLOSE            MI     X1,ISC6                                                         FEAT129       44     A     
 DPCLOSE            MX0    42                                                              FEAT129       45     A     
 DPCLOSE            SA5    BSS.OP                                                          FEAT129       46     A     
 DPCLOSE            SA4    =7L                                                             FEAT129       47     A     
 DPCLOSE            BX6    X4                                                              FEAT129       48     A     
 DPCLOSE            RJ     =XWST       GENERATE BSS                                        FEAT129       49     A     
 DPCLOSE                                                                                   FCC1289X     165     A     
 DPCLOSE   ISC6     SA1    CLI                                                             FEAT129       50     A     
 DPCLOSE            SA2    A1+B5             LIMIT                                         DPCLOSE      395     A     
 DPCLOSE            SX6    X1+B5                                                           DPCLOSE      396     A     
 DPCLOSE            IX0    X6-X2             I - L                                         DPCLOSE      397     A     
 DPCLOSE            SA6    A1                                                              DPCLOSE      398     A     
 DPCLOSE            NG     X0,ISC1           IF MORE BLOCKS TO GO                          DPCLOSE      399     A     
 DPCLOSE                                                                                   DPCLOSE      400     A     
 DPCLOSE   ISC.L    OUTUSE DATA..            SET RELOCATION BASE                           DPCLOSE      401     A     
 DPCLOSE            SA1    O.LAT                                                           DPCLOSE      402     A     
 DPCLOSE            SA2    L.LAT                                                           DPCLOSE      403     A     
 DPCLOSE            ZR     X2,ISC            IF NO LOCAL ARRAYS                            DPCLOSE      404     A     
 DPCLOSE            SA5    BSS.OP                                                          DPCLOSE      405     A     
 DPCLOSE            BX6    X1                                                              DPCLOSE      406     A     
 DPCLOSE            LX7    X2                                                              DPCLOSE      407     A     
 DPCLOSE            RJ     OSC               OUTPUT STORAGE FOR THE LOCAL ARRAYS           DPCLOSE      408     A     
 DPCLOSE            EQ     ISC                                                             DPCLOSE      409     A     
 DPCLOSE                                                                                   DPCLOSE      410     A     
 DPCLOSE   BSS.OP   VFD    12/2LS ,30/48,18/3L BS                                          DPCLOSE      411     A     
 DPCLOSE            TITLE              SCA - SAVE COMMON ADDRESS S                         DPCLOSE      412     A     
 DPCLOSE                                                                                   DPCLOSE      413     A     
 DPCLOSE  ***                                                                              DPCLOSE      414          I
          -FEAT129
 DPCLOSE  *         SCA - SET/SAVE COMMON ADDRESS"S                                        DPCLOSE      415          I
          -FEAT129
 DPCLOSE  **        SCA - SET/SAVE COMMON ADDRESS"S                                        FEAT129       51     A     
 DPCLOSE  *                                                                                DPCLOSE      416     A     
 DPCLOSE                                                                                   DPCLOSE      417     A     
 DPCLOSE   SCA                                                                             DPCLOSE      418     A     
 DPCLOSE            SA1    N.COM                                                           DPCLOSE      419     A     
 DPCLOSE            ZR     X1,SCA            IF NO COMMON BLOCKS                           DPCLOSE      420     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2403    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE                                                                                   DPCLOSE      421     A     
 DPCLOSE  *         INSTALL BLOCK LENGTH IN ORGTAB, SAVE INDEX TABLE FOR REFMAP            DPCLOSE      422     A     
 DPCLOSE                                                                                   DPCLOSE      423     A     
 DPCLOSE            SB6    ORGTAB                                                          DPCLOSE      424     A     
 DPCLOSE            SB7    B6+X1             LWA+1                                         DPCLOSE      425     A     
 DPCLOSE            MX0    L.NAME                                                          DPCLOSE      426     A     
 DPCLOSE            SB1    O.CBT             FWA OF SAVED INDEX TABLE                      DPCLOSE      427     A     
 DPCLOSE            SA5    O.COM                                                           DPCLOSE      428     A     
 DPCLOSE                                                                                   DPCLOSE      429     A     
 DPCLOSE   SCA1     SA1    B6                ORGTAB ENTRY                                  DPCLOSE      430     A     
 DPCLOSE            IX2    X5+X1             O.COM+ORGTAB(I)                               DPCLOSE      431     A     
 DPCLOSE            SA3    X2                                                              DPCLOSE      432     A     
 DPCLOSE            BX6    X0*X1             EXTRACT NAME                                  DPCLOSE      433     A     
 DPCLOSE            AX3    36                                                              DPCLOSE      434     A     
 DPCLOSE            BX4    -X0*X3            EXTRACT BLOCK LENGTH                          DPCLOSE      435     A     
 DPCLOSE            LX7    X1                                                              DPCLOSE      436     A     
 DPCLOSE            IX6    X6+X4                                                           DPCLOSE      437     A     
 DPCLOSE            SA6    A1                UPDATE ORGTAB ENTRY                           DPCLOSE      438     A     
 DPCLOSE            SA7    B1                SAVE INDEX                                    DPCLOSE      439     A     
 DPCLOSE            SB6    B6+B5                                                           DPCLOSE      440     A     
 DPCLOSE            SB1    B1+B5                                                           DPCLOSE      441     A     
 DPCLOSE            LT     B6,B7,SCA1        IF NOT FINISHED                               DPCLOSE      442     A     
 DPCLOSE            SA5    R=FLAG                                                          DPCLOSE      443     A     
 DPCLOSE            SX5    X5-3                                                            DPCLOSE      444     A     
 DPCLOSE            NZ     X5,SCA2           IF R " 3                                      DPCLOSE      445     A     
 DPCLOSE            SX6    B1                                                              DPCLOSE      446     A     
 DPCLOSE            SA6    O.TBLS            UPDATE FWA OF TABLES AFTER MOVE               DPCLOSE      447     A     
 DPCLOSE            SA6    LOWCORE                                                         DPCLOSE      448     A     
 DPCLOSE                                                                                   DPCLOSE      449     A     
 DPCLOSE   SCA2     ALLAE  SCA               ALLOCATE ALMOST EVERYTHING                    DPCLOSE      450     A     
 DPCLOSE            SA1    O.SCA                                                           DPCLOSE      451     A     
 DPCLOSE            SB6    X1                B6 = O.SCA                                    DPCLOSE      452     A     
 DPCLOSE            SB7    B0                L.SCA = 0                                     DPCLOSE      453     A     
 DPCLOSE            SA4    S.SCA                                                           DPCLOSE      454     A     
 DPCLOSE            SB4    X4          B4 = SCA TABLE SPACE LEFT                           DPCLOSE      455     A     
 DPCLOSE                                                                                   FCC1289X     166     A     
 DPCLOSE  *         LOOP THROUGH COMTAB AND INSTALL ADDRESS"S OF MEMBERS                   DPCLOSE      456     A     
 DPCLOSE  *         THAT DO NOT HAVE A DIM ENTRY IN SYMTAB                                 DPCLOSE      457     A     
 DPCLOSE                                                                                   DPCLOSE      458     A     
 DPCLOSE            SA1    O.COM                                                           DPCLOSE      459     A     
 DPCLOSE            SA2    L.COM                                                           DPCLOSE      460     A     
 DPCLOSE            SB1    X1                FWA                                           DPCLOSE      461     A     
 DPCLOSE            SB2    B1+X2             LWA+1                                         DPCLOSE      462     A     
 DPCLOSE            SA5    SYM1                                                            DPCLOSE      463     A     
 DPCLOSE            SX0    B5+B5                                                           DPCLOSE      464     A     
 DPCLOSE            LX0    P.RL              X0 = RL FOR A COMMON BLOCK                    DPCLOSE      465     A     
 DPCLOSE            SA0    X5-1              A0 = SYM1-1                                   DPCLOSE      466     A     
 DPCLOSE                                                                                   DPCLOSE      467          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      468     A     
 DPCLOSE            SA4    DFLAG                                                           DPCLOSE      469     A     
 DPCLOSE                                                                                   DPCLOSE      470     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2404    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE   #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   DPCLOSE      471     A     
 DPCLOSE            SA5    =XDIRECT                                                        DPCLOSE      472     A     
 DPCLOSE            SX7    V.SCA                                                           DPCLOSE      473     A     
 DPCLOSE   #DAL     ENDIF                                                                  DPCLOSE      474     A     
 DPCLOSE                                                                                   DPCLOSE      475     A     
 DPCLOSE            NZ     X4,SCA7     IF DEBUG MODE                                       DPCLOSE      476     A     
 DPCLOSE                                                                                   DPCLOSE      477     A     
 DPCLOSE   SCA4     SA1    B1                BLOCK PREFIX WORD                             DPCLOSE      478     A     
 DPCLOSE            AX1    18                                                              DPCLOSE      479     A     
 DPCLOSE            SB3    X1                NUMBER OF NAMES IN THE GROUP                  DPCLOSE      480     A     
 DPCLOSE                                                                                   DPCLOSE      481     A     
 DPCLOSE   SCA5     SA1    A1+B5             MEMBER                                        DPCLOSE      482     A     
 DPCLOSE            SB3    B3-B5                                                           DPCLOSE      483     A     
 DPCLOSE            NG     X1,SCA6           IF THIS MEMBER HAS A DIM ENTRY                DPCLOSE      484     A     
 DPCLOSE                                                                                   DPCLOSE      485     A     
 DPCLOSE            SX2    X1          RELATIVE ADDRESS                                    DPCLOSE      486     A     
 DPCLOSE            AX1    18-1                                                            DPCLOSE      487     A     
 DPCLOSE            SB1    X1                                                              DPCLOSE      488     A     
 DPCLOSE            LX2    P.RA                                                            DPCLOSE      489     A     
 DPCLOSE            SA4    A0-B1             WORD B                                        DPCLOSE      490     A     
 DPCLOSE            IX7    X0+X2             RL+RA                                         DPCLOSE      491     A     
 DPCLOSE            BX6    X7+X4                                                           DPCLOSE      492     A     
 DPCLOSE            SA6    A4                UPDATE SYMTAB ENTRY                           DPCLOSE      493     A     
 DPCLOSE                                                                                   DPCLOSE      494     A     
 DPCLOSE   SCA6     NZ     B3,SCA5           IF MORE TO GO                                 DPCLOSE      495     A     
 DPCLOSE            SB1    A1+B5                                                           DPCLOSE      496     A     
 DPCLOSE            LT     B1,B2,SCA4                                                      DPCLOSE      497     A     
 DPCLOSE                                                                                   DPCLOSE      498     A     
 DPCLOSE            SX7    B7                                                              DPCLOSE      499     A     
 DPCLOSE            SA7    L.SCA                                                           DPCLOSE      500     A     
 DPCLOSE            EQ     SCA                                                             DPCLOSE      501     A     
 DPCLOSE                                                                                   DPCLOSE      502     A     
 DPCLOSE                                                                                   DPCLOSE      503     A     
 DPCLOSE  *         DEBUG VERSION OF LOOP.                                                 DPCLOSE      504     A     
 DPCLOSE                                                                                   DPCLOSE      505     A     
 DPCLOSE   SCA7     SA1    B1          BLOCK PREFIX WORD                                   DPCLOSE      506     A     
 DPCLOSE            AX1    18                                                              DPCLOSE      507     A     
 DPCLOSE            SB3    X1          NUMBER OF NAMES IN GROUP                            DPCLOSE      508     A     
 DPCLOSE   SCA8     SA1    A1+B5       MEMBER                                              DPCLOSE      509     A     
 DPCLOSE            SB3    B3-B5                                                           DPCLOSE      510     A     
 DPCLOSE            MI     X1,SCA9     IF THIS MEMBER HAS A DIM ENTRY                      DPCLOSE      511     A     
 DPCLOSE            BX6    X1                                                              DPCLOSE      512     A     
 DPCLOSE            SX2    X1          RELATIVE ADDRESS                                    DPCLOSE      513     A     
 DPCLOSE            AX1    18-1                                                            DPCLOSE      514     A     
 DPCLOSE            SB1    X1                                                              DPCLOSE      515     A     
 DPCLOSE            SA6    B6+B7       SAVE COMTAB ENTRY                                   DPCLOSE      516     A     
 DPCLOSE                                                                                   DPCLOSE      517     A     
 DPCLOSE   #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   DPCLOSE      518     A     
 DPCLOSE  *                                                                                DPCLOSE      519     A     
 DPCLOSE  *         FORM LINK IN DIMP FIELD OF SYMTAB TO SCA ENTRY, FOR USE BY             DPCLOSE      520     A     
 DPCLOSE  *         PASS 1 ROUTINES FORMING INDIRECT-MODE LCM ADDRESSES.                   DPCLOSE      521     A     
 DPCLOSE  *                                                                                DPCLOSE      522     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2405    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            ZR     X5,SCA8.A   IF DIRECT MODE                                      DPCLOSE      523     A     
 DPCLOSE            SA4    A0-B1       WORD B                                              DPCLOSE      524     A     
 DPCLOSE            LX4    59-P.LCM                                                        DPCLOSE      525     A     
 DPCLOSE            PL     X4,SCA8.A   IF NOT LCM RESIDENT                                 DPCLOSE      526     A     
 DPCLOSE            LX4    P.LCM-59    RESTORE WORD B                                      DPCLOSE      527     A     
 DPCLOSE            BX4    X4+X7       MARK DIMP = SCAP                                    DPCLOSE      528     A     
 DPCLOSE            SX6    B7                                                              DPCLOSE      529     A     
 DPCLOSE            LX6    P.DIMP                                                          DPCLOSE      530     A     
 DPCLOSE            BX6    X4+X6       DIMP = L.SCA                                        DPCLOSE      531     A     
 DPCLOSE            SA6    A4          RESET WORD B                                        DPCLOSE      532     A     
 DPCLOSE   SCA8.A   BSS    0                                                               DPCLOSE      533     A     
 DPCLOSE   #DAL     ENDIF                                                                  DPCLOSE      534     A     
 DPCLOSE                                                                                   DPCLOSE      535     A     
 DPCLOSE            SB7    B7+B5       L.SCA = L.SCA + 1                                   DPCLOSE      536     A     
 DPCLOSE            SB4    B4-B5       DECREMENT TABLE SPACE REMAINING                     DPCLOSE      537     A     
 DPCLOSE            MI     B4,PH1MO    IF OVERFLOW                                         DPCLOSE      538     A     
 DPCLOSE   SCA9     NZ     B3,SCA8     IF MORE TO GO                                       DPCLOSE      539     A     
 DPCLOSE            SB1    A1+B5                                                           DPCLOSE      540     A     
 DPCLOSE            LT     B1,B2,SCA7                                                      DPCLOSE      541     A     
 DPCLOSE            SX7    B7                                                              DPCLOSE      542     A     
 DPCLOSE            SA7    L.SCA                                                           DPCLOSE      543     A     
 DPCLOSE            EQ     SCA                                                             DPCLOSE      544     A     
 DPCLOSE                                                                                   DPCLOSE      545     A     
 DPCLOSE                                                                                   DPCLOSE      546     A     
 DPCLOSE            SPACE  3                                                               DPCLOSE      547     A     
 DPCLOSE  ***                                                                              DPCLOSE      548          I
          -FEAT129
 DPCLOSE  *         CODE AFTER THIS POINT IS OVERLAID IN "SCA"                             DPCLOSE      549          I
          -FEAT129
 DPCLOSE  **        CODE AFTER THIS POINT IS OVERLAID IN "SCA"                             FEAT129       52     A     
 DPCLOSE  *                                                                                DPCLOSE      550     A     
 DPCLOSE            IFGT   *,O.CBT,1                                                       DPCLOSE      551     A     
 DPCLOSE            ERR    CODE IS TO LONG, YOU ARE IN TROUBLE                             DPCLOSE      552     A     
 DPCLOSE            TITLE  PCE - PROCESS COMMON ERRORS                                     FCC0580        8     A     
 DPCLOSE  **        PCE - PROCESS COMMON ERRORS                                            FCC0580        9     A     
 DPCLOSE  *                                                                                FCC0580       10     A     
 DPCLOSE                                                                                   FCC0580       11     A     
 DPCLOSE   PCE      ENTRY. *                                                               FCC0580       12     A     
 DPCLOSE            SA1    N.COM                                                           FCC0580       13     A     
 DPCLOSE            ZR     X1,PCE      IF NO COMMON BLOCKS                                 FCC0580       14     A     
 DPCLOSE            SB6    ORGTAB                                                          FCC0580       15     A     
 DPCLOSE            SB7    B6+X1       LWA + 1                                             FCC0580       16     A     
 DPCLOSE            MX0    L.NAME                                                          FCC0580       17     A     
 DPCLOSE            SA5    O.COM                                                           FCC0580       18     A     
 DPCLOSE                                                                                   FCC1289X     167     A     
 DPCLOSE   PCE1     SA1    B6          ORGTAB ENTRY                                        FCC0580       19     A     
 DPCLOSE            IX2    X5+X1       O.COM+ORGTAB(I)                                     FCC0580       20     A     
 DPCLOSE            SA3    X2                                                              FCC0580       21     A     
 DPCLOSE            BX6    X0*X1                                                           FCC0580       22     A     
 DPCLOSE            MX4    1                                                               FCC0580       23          I
          -FCC1289X 
 DPCLOSE            SB4    ERPRO                                                           FCC0580       24          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2406    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            LX4    57                                                              FCC0580       25          I
          -FCC1129  -FCC1289X 
 DPCLOSE            LX4    56                                                              FCC1129        6          I
          -FCC1289X 
 DPCLOSE            MX4    1                                                               FCC1289X     168     A     
 DPCLOSE            LX4    1+CH.EVLP                                                       FCC1289X     169     A     
 DPCLOSE            SB2    E.C.E                                                           FCC1129        7          I
          -FCC1289X 
 DPCLOSE            SB2    E.EQVL                                                          FCC1289X     170     A     
 DPCLOSE            BX7    X4*X3                                                           FCC1129        8     A     
 DPCLOSE            NZ     X7,PCE.E    IF COMMON-EQUIVALENCE ERROR                         FCC1129        9          I
          -FCC1289X 
 DPCLOSE            LX4    1                                                               FCC1129       10          I
          -FCC1289X 
 DPCLOSE            NZ     X7,PCE.E    IF EQUIVALENCED COMMON BLOCK LENGTH ERROR           FCC1289X     171     A     
 DPCLOSE            LX4    CH.LEEP-CH.EVLP                                                 FCC1289X     172     A     
 DPCLOSE            SB2    E.LEE                                                           FCC0580       26     A     
 DPCLOSE            BX7    X4*X3                                                           FCC0580       27     A     
 DPCLOSE            NZ     X7,PCE.E    IF LEVEL CONFLICT IN EQUIVALENCING                  FCC0580       28     A     
 DPCLOSE            LX4    2                                                               FCC0580       29          I
          -FCC1289X 
 DPCLOSE            LX4    CH.CLCP-CH.LEEP                                                 FCC1289X     173     A     
 DPCLOSE            BX7    X4*X3                                                           FCC0580       30     A     
 DPCLOSE            SB2    E.CLC                                                           FCC0580       31     A     
 DPCLOSE            NZ     X7,PCE.E    IF LEVEL CONFLICT IN COMMON BLOCK                   FCC0580       32     A     
 DPCLOSE            AX4    1                                                               FCC0580       33          I
          -FCC1289X 
 DPCLOSE            LX4    CH.NALP-CH.CLCP                                                 FCC1289X     174     A     
 DPCLOSE            SB2    E.NAL                                                           FCC0580       34     A     
 DPCLOSE            BX7    X4*X3                                                           FCC0580       35     A     
 DPCLOSE            SB4    ERPROI                                                          FCC0580       36          I
          -FCC1289X 
 DPCLOSE            NZ     X7,PCE.E    IF NOT ALL MEMBERS LEVELED                          FCC0580       37     A     
 DPCLOSE            SB6    B6+B5                                                           FCC0580       38     A     
 DPCLOSE            LT     B6,B7,PCE1  IF NOT FINISHED                                     FCC0580       39     A     
 DPCLOSE            EQ     PCE                                                             FCC0580       40     A     
 DPCLOSE                                                                                   FCC0580       41     A     
 DPCLOSE   PCE.E    SX2    1R                                                              FCC0580       42     A     
 DPCLOSE            BX7    -X4*X3                                                          FCC0580       43     A     
 DPCLOSE            LX6    60-12                                                           FCC0580       44     A     
 DPCLOSE            SA7    A3                                                              FCC0580       45     A     
 DPCLOSE            BX3    X6+X2       FILL NAME TO EIGHT CHARACTERS                       FCC0580       46     A     
 DPCLOSE            SX7    B6                                                              FCC0580       47     A     
 DPCLOSE            SX6    B7                                                              FCC0580       48     A     
 DPCLOSE            SA7    CBUF        SAVE NECESSARY REGISTERS                            FCC0580       49     A     
 DPCLOSE            SB6    B2                                                              FCC0580       50     A     
 DPCLOSE            SA6    A7+B5                                                           FCC0580       51     A     
 DPCLOSE            SB7    PCE.E1                                                          FCC0580       52          I
          -FCC1289X 
 DPCLOSE            MX4    0                                                               FCC0580       53     A     
 DPCLOSE            JP     B4          JUMP TO APPROPRIATE ERROR ROUTINE                   FCC0580       54          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2407    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SB2    E.NAL                                                           FCC1289X     175     A     
 DPCLOSE            NE     B2,B6,PCE.E0                                                    FCC1289X     176     A     
 DPCLOSE            POSTER SEV=INF,NR=**,RETURN=PCE.E1                                     FCC1289X     177     A     
 DPCLOSE                                                                                   FCC1289X     178     A     
 DPCLOSE   PCE.E0   POSTER SEV=FE,NR=**                                                    FCC1289X     179     A     
 DPCLOSE                                                                                   FCC0580       55     A     
 DPCLOSE   PCE.E1   SA2    CBUF        RESTORE REGISTERS                                   FCC0580       56     A     
 DPCLOSE            MX0    L.NAME                                                          FCC0580       57     A     
 DPCLOSE            SA1    A2+B5                                                           FCC0580       58     A     
 DPCLOSE            SB6    X2                                                              FCC0580       59     A     
 DPCLOSE            SB7    X1                                                              FCC0580       60     A     
 DPCLOSE            SA5    O.COM                                                           FCC0580       61     A     
 DPCLOSE            EQ     PCE1                                                            FCC0580       62     A     
 DPCLOSE   ETC      TITLE  ETC - ENTRY POINT, TRACEBACK, AND F.P. INFO TO COMPS            DPCLOSE      553          I
          -FEAT129
 DPCLOSE  **        ETC - ENTRY POINT, TRACEBACK, AND F.P. INFO TO COMPS.                  DPCLOSE      554          I
          -FEAT129
 DPCLOSE  *                                                                                DPCLOSE      555          I
          -FEAT129
 DPCLOSE  *         ENTRY  (B5) = 1                                                        DPCLOSE      556          I
          -FEAT129
 DPCLOSE  *                                                                                DPCLOSE      557          I
          -FEAT129
 DPCLOSE  *         CALLS  ESF     *PH1CTL*                                                DPCLOSE      558          I
          -FEAT129
 DPCLOSE  *                FMAC    *STMTP*                                                 DPCLOSE      559          I
          -FEAT129
 DPCLOSE  *                F1AMAC  *STMTP*                                                 DPCLOSE      560          I
          -FEAT129
 DPCLOSE  *                OUTUSE  *LSTPRO*                                                DPCLOSE      561          I
          -FEAT129
 DPCLOSE  *                SVARG   *STMTP*                                                 DPCLOSE      562          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      563          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      564          I
          -FEAT129
 DPCLOSE   TNFP     EQU    NARGS+12          SCRATCH CELL IN /MACBUF/                      DPCLOSE      565          I
          -FEAT129
 DPCLOSE  *                                  FOR *FORPAR* LOOP.                            DPCLOSE      566          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      567          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      568          I
          -FEAT129
 DPCLOSE   ETC      ENTRY. *                 ** ENTRY/EXIT **                              DPCLOSE      569          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      570          I
          -FEAT129
 DPCLOSE            SA1    PROGRAM                                                         DPCLOSE      571          I
          -FEAT129
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2408    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            UX1    B2,X1                                                           DPCLOSE      572          I
          -FEAT129
 DPCLOSE            LE     B2,B0,ETC         IF A PROGRAM OR BLOCK DATA SUBPROG            DPCLOSE      573          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      574          I
          -FEAT129
 DPCLOSE            RJ     =XESF             ENTER SPECIAL SYMBOLS IN SYMTAB               DPCLOSE      575          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      576          I
          -FEAT129
 DPCLOSE            OUTUSE START.                                                          DPCLOSE      577          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      578          I
          -FEAT129
 DPCLOSE  *         ISSUE *TRACE* MACRO TO COMPS.                                          DPCLOSE      579          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      580          I
          -FEAT129
 DPCLOSE            INTARG                                                                 DPCLOSE      581          I
          -FEAT129
 DPCLOSE            SX6    B5                                                              DPCLOSE      582          I
          -FEAT129
 DPCLOSE            SVARG  NAME,B5           ARG 1 = PROGRAM NAME                          DPCLOSE      583          I
          -FEAT129
 DPCLOSE            SX6    B5                                                              DPCLOSE      584          I
          -FEAT129
 DPCLOSE            SVARG  NAME,2            ARG 2 = PROGRAM NAME                          DPCLOSE      585          I
          -FEAT129
 DPCLOSE            SA1    =XTEMPA0.                                                       DPCLOSE      586          I
          -FEAT129
 DPCLOSE            SA2    =XN.FP                                                          DPCLOSE      587          I
          -FEAT129
 DPCLOSE            ZR     X1,ETC1           IF NO FP S OR RETURNS                         DPCLOSE      588          I
          -FEAT129
 DPCLOSE            SX6    X2                                                              DPCLOSE      589          I
          -FEAT129
 DPCLOSE            SVARG  OCT,3             ARG 3 = NUMBER OF FP S                        DPCLOSE      590          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      591          I
          -FEAT129
 DPCLOSE   ETC1     NARGS= B7                                                              DPCLOSE      592          I
          -FEAT129
 DPCLOSE            FMAC   TRACE             OUTPUT TRACE MACRO CALL                       DPCLOSE      593          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      594          I
          -FEAT129
 DPCLOSE  *         ISSUE *PENTRY* MACRO TO COMPS.                                         DPCLOSE      595          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      596          I
          -FEAT129
 DPCLOSE            INTARG                                                                 DPCLOSE      597          I
          -FEAT129
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2409    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            SX6    B5                                                              DPCLOSE      598          I
          -FEAT129
 DPCLOSE            SVARG  NAME,B5           ARG 1 = PROGRAM NAME                          DPCLOSE      599          I
          -FEAT129
 DPCLOSE            SA1    =XENTRY.                                                        DPCLOSE      600          I
          -FEAT129
 DPCLOSE            BX6    X1                                                              DPCLOSE      601          I
          -FEAT129
 DPCLOSE            SVARG  NAME,2            ARG 2 = ENTRY.                                DPCLOSE      602          I
          -FEAT129
 DPCLOSE            SA1    =XFUNTYPE                                                       DPCLOSE      603          I
          -FEAT129
 DPCLOSE            BX6    X1                                                              DPCLOSE      604          I
          -FEAT129
 DPCLOSE            SVARG  INT,3             ARG 3 = WDS IN FUNCTION RESULT                DPCLOSE      605          I
          -FEAT129
 DPCLOSE            NARGS= B7                                                              DPCLOSE      606          I
          -FEAT129
 DPCLOSE            FMAC   PENTRY            OUTPUT PENTRY MACRO CALL                      DPCLOSE      607          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      608          I
          -FEAT129
 DPCLOSE            SA1    =XN.FP                                                          DPCLOSE      609          I
          -FEAT129
 DPCLOSE            ZR     X1,ETC            IF NO F.P. S                                  DPCLOSE      610          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      611          I
          -FEAT129
 DPCLOSE            SA3    =XMACFLAG                                                       DPCLOSE      612          I
          -FEAT129
 DPCLOSE            ZR     X3,ETC            IF F.P.S DONT HAVE TO BE OUTPUT               DPCLOSE      613          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      614          I
          -FEAT129
 DPCLOSE  *         ISSUE *FORPAR* MACRO CALLS TO COMPS TO ESTABLISH THE ORDER             DPCLOSE      615          I
          -FEAT129
 DPCLOSE  *         OF THE F.P. BLOCKS.                                                    DPCLOSE      616          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      617          I
          -FEAT129
 DPCLOSE            SX6    0                                                               DPCLOSE      618          I
          -FEAT129
 DPCLOSE            SA6    TNFP                                                            DPCLOSE      619          I
          -FEAT129
 DPCLOSE                                                                                   DPCLOSE      620          I
          -FEAT129
 DPCLOSE   ETC2     SX6    X6+2              SYMTAB ORD OF F.P.                            DPCLOSE      621          I
          -FEAT129
 DPCLOSE            F1AMAC FORPAR            OUTPUT *FORPAR* MACRO CALL                    DPCLOSE      622          I
          -FEAT129
 DPCLOSE            SA1    TNFP                                                            DPCLOSE      623          I
          -FEAT129
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2410    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            SA2    =XN.FP                                                          DPCLOSE      624          I
          -FEAT129
 DPCLOSE            SX6    X1+B5             TNFP=TNFP+1                                   DPCLOSE      625          I
          -FEAT129
 DPCLOSE            NO                                                                     DPCLOSE      626          I
          -FEAT129
 DPCLOSE            IX0    X6-X2             TNFP-N.FP                                     DPCLOSE      627          I
          -FEAT129
 DPCLOSE            SA6    A1                                                              DPCLOSE      628          I
          -FEAT129
 DPCLOSE            MI     X0,ETC2           IF MORE F.P.S                                 DPCLOSE      629          I
          -FEAT129
 DPCLOSE            EQ     ETC               EXIT                                          DPCLOSE      630          I
          -FEAT129
 DPCLOSE            TITLE              ALA - ASSIGN LOCAL ADDRESS S                        DPCLOSE      631     A     
 DPCLOSE  ***                                                                              DPCLOSE      632          I
          -FEAT129
 DPCLOSE  *         ALA - ASSIGN LOCAL ADDRESS"S                                           DPCLOSE      633          I
          -FEAT129
 DPCLOSE  **        ALA - ASSIGN LOCAL ADDRESS"S                                           FEAT129       53     A     
 DPCLOSE  *                                                                                DPCLOSE      634     A     
 DPCLOSE  *         SCAN SYMTAB FOR LOCAL SYMBOLS WITH NON-ZERO DIMP FIELDS                DPCLOSE      635     A     
 DPCLOSE  *         AND ^ ( COM OR EQV )                                                   DPCLOSE      636     A     
 DPCLOSE  *         ASSIGN ADDRESS"S, INCREMENT BLOCK LENGTH                               DPCLOSE      637     A     
 DPCLOSE  *         SAVE SYMTAB ADDRESS"S IN A TEMPORARY TABLE IN CASE WE HAVE TO          DPCLOSE      638     A     
 DPCLOSE  *         ISSUE COMPS STORAGE                                                    DPCLOSE      639     A     
 DPCLOSE  *                                                                                DPCLOSE      640     A     
 DPCLOSE   ALA      ENTRY. *                 ** ENTRY/EXIT **                              DPCLOSE      641     A     
 DPCLOSE            SA4    MACFLAG                                                         DPCLOSE      642     A     
 DPCLOSE            NZ     X4,ALA0           IF WE HAVE TO ISSUE COMPS STORAGE             DPCLOSE      643     A     
 DPCLOSE            PLUG   AT=ALA.P,TO=ALA1  PLUG SKIPS ISSUING STORAGE TO CMPS            DPCLOSE      644     A     
 DPCLOSE                                                                                   DPCLOSE      645     A     
 DPCLOSE   ALA0     ALLAE  LAT               GET SPACE                                     DPCLOSE      646     A     
 DPCLOSE            SA1    O.LAT                                                           DPCLOSE      647     A     
 DPCLOSE            SA2    L.LAT                                                           DPCLOSE      648     A     
 DPCLOSE            SA3    S.LAT                                                           DPCLOSE      649     A     
 DPCLOSE            SB6    X1                B6 = FWA                                      DPCLOSE      650     A     
 DPCLOSE            SB7    X2                B7 = INDEX                                    DPCLOSE      651     A     
 DPCLOSE            SB4    X3                B4 = SPACE ALLOCATED                          DPCLOSE      652     A     
 DPCLOSE            SA1    DATA..                                                          DPCLOSE      653     A     
 DPCLOSE            SA3    ST.                                                             DPCLOSE      654     A     
 DPCLOSE            SA4    SYM1                                                            DPCLOSE      655     A     
 DPCLOSE            SA5    SYMORD                                                          DPCLOSE      656     A     
 DPCLOSE            LX3    1                                                               DPCLOSE      657     A     
 DPCLOSE            SA0    X4                A0 = SYM1                                     DPCLOSE      658     A     
 DPCLOSE            SB1    X3                B1 = INDEX = 2*ORD(ST.)                       DPCLOSE      659     A     
 DPCLOSE            LX5    1                                                               DPCLOSE      660     A     
 DPCLOSE            SB2    X5                B2 = LIMIT = 2*(N.SYMBOLS+1)                  DPCLOSE      661     A     
 DPCLOSE            BX7    X1                X7 = BLOCK LENGTH                             DPCLOSE      662     A     
 DPCLOSE                                                                                   DPCLOSE      663     A     
 DPCLOSE            MX0    L.DIMP                                                          DPCLOSE      664     A     
 DPCLOSE            SX5    V.COM+V.EQU                                                     DPCLOSE      665     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2411    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            LX0    L.DIMP+P.DIMP     TO EXTRACT THE DIMP FIELD                     DPCLOSE      666     A     
 DPCLOSE            SA3    O.DIM                                                           DPCLOSE      667     A     
 DPCLOSE            SB3    X3-2              B3 = INDEX TO DIMTAB                          DPCLOSE      668     A     
 DPCLOSE            SPACE  3                                                               DPCLOSE      669     A     
 DPCLOSE   ALA1     SA1    A0-B1                                                           DPCLOSE      670     A     
 DPCLOSE            GE     B1,B2,ALAX        IF FINISHED                                   DPCLOSE      671     A     
 DPCLOSE            SA2    A1-B5             WORD B                                        DPCLOSE      672     A     
 DPCLOSE            BX3    X5*X1                                                           DPCLOSE      673     A     
 DPCLOSE            SB1    B1+2                                                            DPCLOSE      674     A     
 DPCLOSE            BX6    X0*X2             EXTRACT DIMP ORD                              DPCLOSE      675     A     
 DPCLOSE            NZ     X3,ALA1           IF COM OR EQV                                 DPCLOSE      676     A     
 DPCLOSE            LX2    59-P.LCM                                                        DPCLOSE      677          I
          -FCC0762
 DPCLOSE            MI     X2,ALA.E    IF LCM/ECS RESIDENT                                 DPCLOSE      678          I
          -FCC0762
 DPCLOSE            MX4    -L.TYP                                                          DPCLOSE      679          I
          -FCC0762
 DPCLOSE            LX2    P.LCM+1-P.TYP    P.LCM-59-P.TYP                                 DPCLOSE      680          I
          -FCC0762
 DPCLOSE            BX2    -X4*X2      TYPE FIELD                                          DPCLOSE      681          I
          -FCC0762
 DPCLOSE            MX1    -L.LVL                                                          FCC0762        6     A     
 DPCLOSE            LX2    -P.LVL                                                          FCC0762        7     A     
 DPCLOSE            BX1    -X1*X2                                                          FCC0762        8     A     
 DPCLOSE            SX4    X1-2                                                            FCC0762        9     A     
 DPCLOSE            PL     X4,ALA.E    IF LEVEL = 2 OR 3                                   FCC0762       10     A     
 DPCLOSE            AX2    P.TYP-P.LVL                                                     FCC0762       11     A     
 DPCLOSE            SX4    X2-T.LAB                                                        DPCLOSE      682     A     
 DPCLOSE            ZR     X6,ALA1           IF NOT DIMENSIONED                            DPCLOSE      683     A     
 DPCLOSE            PL     X4,ALA1           IF A FORMAT LABEL                             DPCLOSE      684     A     
 DPCLOSE            AX6    P.DIMP-1                                                        DPCLOSE      685     A     
 DPCLOSE                                                                                   DPCLOSE      686     A     
 DPCLOSE  *         ASSIGN ADDRESS TO LOCAL ARRAY                                          DPCLOSE      687     A     
 DPCLOSE                                                                                   DPCLOSE      688     A     
 DPCLOSE            SA3    B3+X6             WORD 1 OF DIM ENTRY                           DPCLOSE      689     A     
 DPCLOSE            NG     X3,ALA1           IF AN EQUIVALENCED ENTRY                      DPCLOSE      690     A     
 DPCLOSE            SA4    A3+B5             WORD 2                                        DPCLOSE      691     A     
 DPCLOSE            AX4    36                                                              DPCLOSE      692     A     
 DPCLOSE            SX1    X4                WORD COUNT                                    DPCLOSE      693     A     
 DPCLOSE            BX6    X7+X3             ADD RELATIVE ADDRESS TO DIM ENTRY             DPCLOSE      694     A     
 DPCLOSE            IX7    X7+X1             INCREMENT BLOCK LENGTH                        DPCLOSE      695     A     
 DPCLOSE            SA6    A3                UPDATE WORD 1                                 DPCLOSE      696     A     
 DPCLOSE                                                                                   DPCLOSE      697     A     
 DPCLOSE  *         SAVE WORD COUNT AND SYMORD IN LAT                                      DPCLOSE      698     A     
 DPCLOSE  *         ** NEXT WORD MAY BE PLUGGED BY -ALA-.                                  DPCLOSE      699     A     
 DPCLOSE                                                                                   DPCLOSE      700     A     
 DPCLOSE   ALA.P    LX1    36                                                              DPCLOSE      701     A     
 DPCLOSE            SX2    B1-2                                                            DPCLOSE      702     A     
 DPCLOSE            LX2    18-1                                                            DPCLOSE      703     A     
 DPCLOSE            BX6    X1+X2             6/0,18/WC,18/SYMORD,18/0                      DPCLOSE      704     A     
 DPCLOSE            SA6    B6+B7             SAVE ADDRESS IN LAT                           DPCLOSE      705     A     
 DPCLOSE            SB7    B7+B5             ADVANCE LENGTH                                DPCLOSE      706     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2412    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            LE     B7,B4,ALA1        IF WE DIDN T RUN OUT OF SPACE                 DPCLOSE      707     A     
 DPCLOSE            EQ     PH1MO             PHASE 1 MEMORY OVERFLOW                       DPCLOSE      708     A     
 DPCLOSE                                                                                   DPCLOSE      709     A     
 DPCLOSE   ALA.E    SX6    A1                                                              DPCLOSE      710     A     
 DPCLOSE            SA6    ECSCOM            SET FLAG FOR ERROR MESSAGE                    DPCLOSE      711     A     
 DPCLOSE            EQ     ALA1                                                            DPCLOSE      712     A     
 DPCLOSE                                                                                   DPCLOSE      713     A     
 DPCLOSE  *         UPDATE BLOCK AND TABLE LENGTH, CHECK FOR LOCAL ECS VARIABLES           DPCLOSE      714     A     
 DPCLOSE                                                                                   DPCLOSE      715     A     
 DPCLOSE   ALAX     SA7    DATA..            UPDATE BLOCK LENGTH                           DPCLOSE      716     A     
 DPCLOSE            SX6    B7                                                              DPCLOSE      717     A     
 DPCLOSE            SX3    A0                FWA OF SYMBOL TABLE                           DPCLOSE      718     A     
 DPCLOSE            SA6    L.LAT             SAVE LAT LENGTH                               DPCLOSE      719     A     
 DPCLOSE            SA6    S.LAT                                                           DPCLOSE      720     A     
 DPCLOSE                                                                                   DPCLOSE      721     A     
 DPCLOSE            SA4    ECSCOM                                                          DPCLOSE      722     A     
 DPCLOSE            ZR     X4,ALA            IF ALL ECS VARIABLES IN COMMON                DPCLOSE      723     A     
 DPCLOSE            IX2    X3-X4             2*ORD                                         DPCLOSE      724     A     
 DPCLOSE            AX2    1                                                               DPCLOSE      725     A     
 DPCLOSE            RJ     PSYM              PREPARE THE SYMBOL                            DPCLOSE      726     A     
 DPCLOSE            SB6    E.LECS            LEVEL 3 VARIABLES NOT IN COMMON               DPCLOSE      727     A     
 DPCLOSE            SB7    ALA                                                             DPCLOSE      728     A     
 DPCLOSE            EQ     ERPRO                                                           DPCLOSE      729     A     
 DPCLOSE            TITLE              EQV - PROCESS EQUIVALENCE TABLES                    DPCLOSE      730     A     
 DPCLOSE  ***                                                                              DPCLOSE      731          I
          -FEAT129
 DPCLOSE  *         EQV - PROCESS EQUIVALENCE TABLES                                       DPCLOSE      732          I
          -FEAT129
 DPCLOSE  **        EQV - PROCESS EQUIVALENCE TABLES                                       FEAT129       54     A     
 DPCLOSE  *                                                                                DPCLOSE      733     A     
 DPCLOSE  *         ENTRY:                                                                 DPCLOSE      734     A     
 DPCLOSE  *                1) EQV TABLE FORMATTED AS:                                      DPCLOSE      735          I
          -FCC1289X 
 DPCLOSE  *                   12/2000B+N,48/2*SYMORD                                       DPCLOSE      736          I
          -FCC1289X 
 DPCLOSE  *                   3/N.SUBS,3/0,18/SUB C,18/SUB B,18/SUB A                      DPCLOSE      737          I
          -FCC1289X 
 DPCLOSE  *                WHERE N = ORDER OF NAME IN THE GROUP ( 1,2,3,... )              DPCLOSE      738          I
          -FCC1289X 
 DPCLOSE  *                1) EQV TABLE FORMATED AS E1., E2.                               FCC1289X     180     A     
 DPCLOSE  *                                                                                DPCLOSE      739     A     
 DPCLOSE  *                2) EVERY ENTRY IN THE EQV TBL HAS A ENTRY IN DIMTAB             DPCLOSE      740     A     
 DPCLOSE  *                AND IF IT IS IN COMMON THEN SO DO ALL OF THE                    DPCLOSE      741     A     
 DPCLOSE  *                OTHER MEMBERS OF THE BLOCK.                                     DPCLOSE      742     A     
 DPCLOSE  *                                                                                DPCLOSE      743     A     
 DPCLOSE  *         THE ALGORITHM USED IS THAT OF GALLER AND FISHER                        DPCLOSE      744     A     
 DPCLOSE  *         IN THE MAY 1964 CACM ( PGS 301 - 303 )                                 DPCLOSE      745     A     
 DPCLOSE  *                                                                                DPCLOSE      746     A     
 DPCLOSE  *         THE FOLLOWING DIFFERENCES ARE NOTED:                                   DPCLOSE      747          I
          -FCC1289X 
 DPCLOSE  *           1)  SINCE THE ADDRESS"S ASSIGNED ARE RELATIVE WE DO NOT MAKE         DPCLOSE      748          I
          -FCC1289X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2413    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE  *         USE OF THE FACT THAT ELEMENTS IN COMMON ALREADY HAVE THEIR             DPCLOSE      749          I
          -FCC1289X 
 DPCLOSE  *         ADDRESS"S ASSIGNED.                                                    DPCLOSE      750          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE      751          I
          -FCC1289X 
 DPCLOSE  *           2)  UNLIKE IBM, WE ASSIGN ADDRESSES IN A *FORWARD*                   DPCLOSE      752          I
          -FCC1289X 
 DPCLOSE  *         DIRECTION, AND THUS DO NOT NEED PASS 2 OF THE GALLER-FISHER            DPCLOSE      753          I
          -FCC1289X 
 DPCLOSE  *         ALGORITHM.                                                             DPCLOSE      754          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE      755          I
          -FCC1289X 
 DPCLOSE  *           3) THE NOTATION AS ADAPTED FROM THE ARTICLE IS:                      DPCLOSE      756          I
          -FCC1289X 
 DPCLOSE  *         L.EQV  EBAR - LENGTH OF THE G-F TABLE                                  DPCLOSE      757          I
          -FCC1289X 
 DPCLOSE  *         A(I)          ADDRESS OF ELEMENT I                                     DPCLOSE      758          I
          -FCC1289X 
 DPCLOSE  *         R(I)          D(ROOT,MEMBER) = A(MEMBER) - A(ROOT)                     DPCLOSE      759          I
          -FCC1289X 
 DPCLOSE  *         ORD,ORD(I) OR SYMORD IN PLACE OF E(I), THE I"TH ELEMENT                DPCLOSE      760          I
          -FCC1289X 
 DPCLOSE  *         H(I)          DISTANCE ABOVE THE MEMBER                                DPCLOSE      761          I
          -FCC1289X 
 DPCLOSE  *         HP(I)         DISTANCE BELOW THE ROOT                                  DPCLOSE      762          I
          -FCC1289X 
 DPCLOSE  *         DC            CAPITAL D = D(ROOT,E(T))                                 DPCLOSE      763          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE      764          I
          -FCC1289X 
 DPCLOSE  *         S(I)          SUCCESSOR OF *I*, I.E., POINTER TO NEXT NODE             DPCLOSE      765          I
          -FCC1289X 
 DPCLOSE  *                       NODE IN THE TREE                                         DPCLOSE      766          I
          -FCC1289X 
 DPCLOSE  *         NOTE THAT: S(I) = 0,2,4,6,...                                          DPCLOSE      767          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE      768          I
          -FCC1289X 
 DPCLOSE  *         EW1,EW2       FIRST AND SECOND WORDS OF THE I"TH ENTRY                 DPCLOSE      769          I
          -FCC1289X 
 DPCLOSE  *                       IN THE EQV TABLE AREA                                    DPCLOSE      770          I
          -FCC1289X 
 DPCLOSE  *                                                                                FCC1289X     181     A     
 DPCLOSE  *         NOTATIONS:                                                             FCC1289X     182     A     
 DPCLOSE  *                EQV1,EQV2   WORD 1,2 OF EQV TABLE                               FCC1289X     183     A     
 DPCLOSE  *                GF1,GF2     WORD 1,2 OF GALLER-FISHER TABLE                     FCC1289X     184     A     
 DPCLOSE  *                SYMA,SYMB   WORD A,B OF SYMBOL TABLE                            FCC1289X     185     A     
 DPCLOSE  *                DIM1,DIM2   WORD 1,2 OF DIMENSION TABLE                         FCC1289X     186     A     
 DPCLOSE  *                HI(I)       LENGTH ABOVE THE MEMBER                             FCC1289X     187     A     
 DPCLOSE  *                LO(I)       LENGTH BELOW THE ROOT                               FCC1289X     188     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2414    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE  *                DIST(I)     SIGNED DISTANCE FROM ROOT TO MEMBER                 FCC1289X     189     A     
 DPCLOSE  *                P(I)        PARENT OF I IN THE TREE                             FCC1289X     190     A     
 DPCLOSE  *                FWA         FWA OF AN EQUIVALENCE GROUP                         FCC1289X     191     A     
 DPCLOSE  *                LWA         LWA OF AN EQUIVALENCE GROUP                         FCC1289X     192     A     
 DPCLOSE  *                SPAN        LENGTH OF AN EQUIVALENCE GROUP                      FCC1289X     193     A     
 DPCLOSE  *                                                                                DPCLOSE      771     A     
 DPCLOSE  *         THE G-F TABLE IS BUILT IN THE AREA OCCUPIED BY THE EQV TBL             DPCLOSE      772     A     
 DPCLOSE  *         SINCE AN INSPECTION OF THE ALGORITHM SHOWS THAT IT MUST                DPCLOSE      773     A     
 DPCLOSE  *         BE SMALLER THAN THE NUMBER OF ELEMENTS PROCESSED FROM THE              DPCLOSE      774     A     
 DPCLOSE  *         EQV TBL.                                                               DPCLOSE      775     A     
 DPCLOSE  *                                                                                DPCLOSE      776     A     
 DPCLOSE            SPACE  4,8                                                             DPCLOSE      777          I
          -FCC1289X 
 DPCLOSE  *         MAX OF TWO INTEGERS                                                    DPCLOSE      778          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE      779          I
          -FCC1289X 
 DPCLOSE   MXX*X    OPDEF  K,A,B                                                           DPCLOSE      780          I
          -FCC1289X 
 DPCLOSE            IX.A   X.A-X.B                                                         DPCLOSE      781          I
          -FCC1289X 
 DPCLOSE            BX.K   X.A                                                             DPCLOSE      782          I
          -FCC1289X 
 DPCLOSE            AX.K   59                                                              DPCLOSE      783          I
          -FCC1289X 
 DPCLOSE            BX.A   -X.K*X.A          (A-B) * ( -SIGN(A-B) )                        DPCLOSE      784          I
          -FCC1289X 
 DPCLOSE            IX.K   X.A+X.B                                                         DPCLOSE      785          I
          -FCC1289X 
 DPCLOSE            ENDM                                                                   DPCLOSE      786          I
          -FCC1289X 
 DPCLOSE            TITLE              EQV - PRESCAN - SUBSCRIPT CALCULATION               DPCLOSE      787          I
          -FEAT129  -FCC1289X 
 DPCLOSE                                                                                   FEAT129       55          I
          -FCC1289X 
 DPCLOSE   L.ECTI   EQU    24-L.RB                                                         FEAT129       56          I
          -FCC1289X 
 DPCLOSE   TEMPA    EQU    CBUF              2 LOCS FOR INDEX AND LIMIT IN SCAN 1          DPCLOSE      788          I
          -FCC1289X 
 DPCLOSE   DO       EQU    CBUF+2            SAVED VALUE OF DO                             DPCLOSE      789          I
          -FCC1289X 
 DPCLOSE   TO       EQU    CBUF+3                                                          DPCLOSE      790          I
          -FCC1289X 
 DPCLOSE   TEMPC    EQU    TEMPA             4 LOCS FOR SCAN 4                             DPCLOSE      791          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      792          I
          -FEAT129  -FCC1289X 
 DPCLOSE            EJECT                                                                  FEAT129       57          I
          -FCC1289X 
 DPCLOSE  ***                                                                              DPCLOSE      793          I
          -FEAT129  -FCC1289X 
 DPCLOSE  *         PRESCAN - REFORMAT THE SECOND WORD OF EACH ENTRY IN EQVTAB AS          DPCLOSE      794          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2415    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FEAT129  -FCC1289X 
 DPCLOSE  **        PRESCAN - REFORMAT THE SECOND WORD OF EACH ENTRY IN EQVTAB AS          FEAT129       58          I
          -FCC1289X 
 DPCLOSE  *         1/COMFLAG,5/0,1,/PI(DIMS),18/0,18/SUBSCRIPT                            DPCLOSE      795          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE      796          I
          -FCC1289X 
 DPCLOSE  *         SDPF = SINGLE/DOUBLE PRECISION FLAG                                    DPCLOSE      797          I
          -FCC1289X 
 DPCLOSE  *         COMFLAG = 1 IF ELEMENT IS IN COMMON                                    DPCLOSE      798          I
          -FCC1289X 
 DPCLOSE  *         PI(DIMS) = PRODUCT OF DIMENSIONS * (1+SDPF)                            DPCLOSE      799          I
          -FCC1289X 
 DPCLOSE  *         SUBSCRIPT = (I-1 + II*(J-1) + II*JJ*(K-1) )*(SPDF+1)                   DPCLOSE      800          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE      801          I
          -FCC1289X 
 DPCLOSE   EQV                                                                             DPCLOSE      802          I
          -FCC1289X 
 DPCLOSE            SA1    O.EQV                                                           DPCLOSE      803          I
          -FCC1289X 
 DPCLOSE            SA2    L.EQV                                                           DPCLOSE      804          I
          -FCC1289X 
 DPCLOSE            ZR     X2,EQV            IF NO EQUIVALENCE RELATIONS                   DPCLOSE      805          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      806          I
          -FCC1289X 
 DPCLOSE            SB1    X1                FWA                                           DPCLOSE      807          I
          -FCC1289X 
 DPCLOSE            SB2    B1+X2             LWA+1                                         DPCLOSE      808          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      809          I
          -FCC1289X 
 DPCLOSE   EQV.R    SB3    B5+B5                                                           DPCLOSE      810          I
          -FCC1289X 
 DPCLOSE            SA3    SYM1                                                            DPCLOSE      811          I
          -FCC1289X 
 DPCLOSE            SA0    X3                A0 = SYM1                                     DPCLOSE      812          I
          -FCC1289X 
 DPCLOSE            SA4    O.DIM                                                           DPCLOSE      813          I
          -FCC1289X 
 DPCLOSE            SB6    X4-1              B6 = O.DIM-1                                  DPCLOSE      814          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      815          I
          -FCC1289X 
 DPCLOSE   EQV0     SA1    B1                EW1                                           DPCLOSE      816          I
          -FCC1289X 
 DPCLOSE            MX7    1                                                               DPCLOSE      817          I
          -FCC1289X 
 DPCLOSE            SA2    B1+B5             EW2                                           DPCLOSE      818          I
          -FCC1289X 
 DPCLOSE            MX0    60-L.DIMP                                                       DPCLOSE      819          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2416    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SB4    X1                2*ORD                                         DPCLOSE      820          I
          -FCC1289X 
 DPCLOSE            MX5    3                                                               DPCLOSE      821          I
          -FCC1289X 
 DPCLOSE            SA3    A0-B4             WORD A                                        DPCLOSE      822          I
          -FCC1289X 
 DPCLOSE            SA4    A3-B5             WORD B                                        DPCLOSE      823          I
          -FCC1289X 
 DPCLOSE            LX3    59-P.COM                                                        DPCLOSE      824          I
          -FCC1289X 
 DPCLOSE            SB1    B1+B3                                                           DPCLOSE      825          I
          -FCC1289X 
 DPCLOSE            BX6    X7*X3             ACCUMULATE NEW WORD 2 IN X6                   DPCLOSE      826          I
          -FCC1289X 
 DPCLOSE            LX4    -P.DIMP                                                         DPCLOSE      827          I
          -FCC1289X 
 DPCLOSE            BX3    -X0*X4            DIMP ORD                                      DPCLOSE      828          I
          -FCC1289X 
 DPCLOSE            LX3    1                 INDEX                                         DPCLOSE      829          I
          -FCC1289X 
 DPCLOSE            SA1    B6+X3             WORD 2 OF DIM ENTRY                           DPCLOSE      830          I
          -FCC1289X 
 DPCLOSE            BX3    X4                                                              DPCLOSE      831          I
          -FCC0390  -FCC1289X 
 DPCLOSE           LX4    P.DIMP-P.TYP                                                     DPCLOSE      832          I
          -FEAT129  -FCC1289X 
 DPCLOSE            LX4    P.DIMP-P.TYP                                                    FEAT129       59          I
          -FCC1289X 
 DPCLOSE            MX7    60-L.LVL                                                        DPCLOSE      833          I
          -FCC0390  -FCC1289X 
 DPCLOSE            LX3    P.DIMP-P.LVL                                                    DPCLOSE      834          I
          -FCC0390  -FCC1289X 
 DPCLOSE            BX7    -X7*X3            EXTRACT LEVEL FIELD                           DPCLOSE      835          I
          -FCC0390  -FCC1289X 
 DPCLOSE            SX3    X7-3                                                            DPCLOSE      836          I
          -FCC0390  -FCC1289X 
 DPCLOSE            ZR     X3,EQV.E1         IF LEVEL IS THREE, ERROR                      DPCLOSE      837          I
          -FCC0390  -FCC1289X 
 DPCLOSE            MX3    -L.TYP                                                          DPCLOSE      838          I
          -FCC1289X 
 DPCLOSE            BX4    -X3*X4                                                          DPCLOSE      839          I
          -FCC1289X 
 DPCLOSE            SX7    X4-T.DBL                                                        DPCLOSE      840          I
          -FCC1289X 
 DPCLOSE            SX3    B5                                                              DPCLOSE      841          I
          -FCC1289X 
 DPCLOSE            AX7    L.TYP                                                           DPCLOSE      842          I
          -FCC1289X 
 DPCLOSE            BX4    -X7*X3            0 IF SINGLE, 1 IF DOUBLE                      DPCLOSE      843          I
          -FCC1289X 
 DPCLOSE            SB7    X4                B7 = SDPF                                     DPCLOSE      844          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2417    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            BX3    X5*X1             N.DIMS                                        DPCLOSE      845          I
          -FCC1289X 
 DPCLOSE            BX4    X5*X2             N.SUBS                                        DPCLOSE      846          I
          -FCC1289X 
 DPCLOSE            IX5    X3-X4             D - S                                         DPCLOSE      847          I
          -FCC1289X 
 DPCLOSE            NG     X5,EQV.E2         IF N.SUBS > N.DIMS                            DPCLOSE      848          I
          -FCC1289X 
 DPCLOSE            NZ     X3,EQV0A          IF DIMENSIONED                                DPCLOSE      849          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      850          I
          -FCC1289X 
 DPCLOSE            SX7    B7+B5             SIMPLE VAR, PI(DIMS) = 1+SDPF                 DPCLOSE      851          I
          -FCC1289X 
 DPCLOSE            LX7    36                                                              DPCLOSE      852          I
          -FCC1289X 
 DPCLOSE            SA7    A1                UPDATE DIM ENTRY                              DPCLOSE      853          I
          -FCC1289X 
 DPCLOSE            EQ     EQV0C                                                           DPCLOSE      854          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      855          I
          -FCC1289X 
 DPCLOSE   EQV0A    MX0    18                                                              DPCLOSE      856          I
          -FCC1289X 
 DPCLOSE            LX0    18+36                                                           DPCLOSE      857          I
          -FCC1289X 
 DPCLOSE            BX5    X0*X1             PI(DIMS)                                      DPCLOSE      858          I
          -FCC1289X 
 DPCLOSE            LX4    3                                                               DPCLOSE      859          I
          -FCC1289X 
 DPCLOSE            BX6    X5+X6                                                           DPCLOSE      860          I
          -FCC1289X 
 DPCLOSE            ZR     X4,EQV.E3         IF NO SUBS ( INFORMATIVE ERROR )              DPCLOSE      861          I
          -FCC1289X 
 DPCLOSE            SB4    X4                B4 = N.SUBS                                   DPCLOSE      862          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      863          I
          -FCC1289X 
 DPCLOSE  *         CALCULATE SUBSCRIPT, X1 = DIM WORD, X2 = EQV WORD                      DPCLOSE      864          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      865          I
          -FCC1289X 
 DPCLOSE            AX5    36                X5 = PI(DIMS)                                 DPCLOSE      866          I
          -FCC1289X 
 DPCLOSE            SX7    X2-1              ACCUMULATE IN X7                              DPCLOSE      867          I
          -FCC1289X 
 DPCLOSE            SB4    B4-B5                                                           DPCLOSE      868          I
          -FCC1289X 
 DPCLOSE            ZR     B4,EQV0B                                                        DPCLOSE      869          I
          -FCC1289X 
 DPCLOSE            SX0    X1                II                                            DPCLOSE      870          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2418    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            AX2    18                SUB B                                         DPCLOSE      871          I
          -FCC1289X 
 DPCLOSE            SX3    X2-1                                                            DPCLOSE      872          I
          -FCC1289X 
 DPCLOSE            IX4    X0*X3                                                           DPCLOSE      873          I
          -FCC1289X 
 DPCLOSE            SB4    B4-B5                                                           DPCLOSE      874          I
          -FCC1289X 
 DPCLOSE            IX7    X4+X7             + II*(J-1)                                    DPCLOSE      875          I
          -FCC1289X 
 DPCLOSE            ZR     B4,EQV0B                                                        DPCLOSE      876          I
          -FCC1289X 
 DPCLOSE            AX1    18                                                              DPCLOSE      877          I
          -FCC1289X 
 DPCLOSE            SX1    X1                JJ                                            DPCLOSE      878          I
          -FCC1289X 
 DPCLOSE            IX0    X0*X1             II*JJ                                         DPCLOSE      879          I
          -FCC1289X 
 DPCLOSE            AX2    18                                                              DPCLOSE      880          I
          -FCC1289X 
 DPCLOSE            SX2    X2-1                                                            DPCLOSE      881          I
          -FCC1289X 
 DPCLOSE            IX4    X0*X2             II*JJ*(K-1)                                   DPCLOSE      882          I
          -FCC1289X 
 DPCLOSE            IX7    X4+X7                                                           DPCLOSE      883          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      884          I
          -FCC1289X 
 DPCLOSE   EQV0B    LX7    B7,X7             ADJUST FOR DOUBLE PRECISION                   DPCLOSE      885          I
          -FCC1289X 
 DPCLOSE            IX4    X7-X5             SC - PI                                       DPCLOSE      886          I
          -FCC1289X 
 DPCLOSE            PL     X4,EQV.E4         IF SUBSC \ PI(DIMS) ( INFORMATIVE ER)         DPCLOSE      887          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      888          I
          -FCC1289X 
 DPCLOSE   EQV0C    BX6    X6+X7             ADD SUBSCRIPT                                 DPCLOSE      889          I
          -FCC1289X 
 DPCLOSE            SA6    A2                UPDATE WORD 2                                 DPCLOSE      890          I
          -FCC1289X 
 DPCLOSE            LT     B1,B2,EQV0                                                      DPCLOSE      891          I
          -FCC1289X 
 DPCLOSE            SPACE  3                                                               DPCLOSE      892          I
          -FCC1289X 
 DPCLOSE  *         INITIALIZE FOR G-F TABLE FORMATION                                     DPCLOSE      893          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      894          I
          -FCC1289X 
 DPCLOSE   EQV1     SA1    O.EQV                                                           DPCLOSE      895          I
          -FCC1289X 
 DPCLOSE            SA2    L.EQV                                                           DPCLOSE      896          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2419    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            BX6    X1                                                              DPCLOSE      897          I
          -FCC1289X 
 DPCLOSE            IX7    X1+X2                                                           DPCLOSE      898          I
          -FCC1289X 
 DPCLOSE            SA6    TEMPA             INDEX                                         DPCLOSE      899          I
          -FCC1289X 
 DPCLOSE            SA7    A6+B5             LIMIT                                         DPCLOSE      900          I
          -FCC1289X 
 DPCLOSE            TITLE              EQV - SCAN 1 - BUILD G-F TABLE                      DPCLOSE      901          I
          -FCC1289X 
 DPCLOSE  ***                                                                              DPCLOSE      902          I
          -FEAT129  -FCC1289X 
 DPCLOSE  *         SCAN 1 - BUILD THE G-F TABLE                                           DPCLOSE      903          I
          -FEAT129  -FCC1289X 
 DPCLOSE  **        SCAN 1 - BUILD THE G-F TABLE                                           FEAT129       60          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE      904          I
          -FCC1289X 
 DPCLOSE  *         FORMAT:                                                                DPCLOSE      905          I
          -FCC1289X 
 DPCLOSE  *           1/COMFLAG,5/0,18/H(I),18/0,18/R(I)                                   DPCLOSE      906          I
          -FCC1289X 
 DPCLOSE  *           6/0,18/HP(I),18/SYMORD,18/S(I)                                       DPCLOSE      907          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE      908          I
          -FCC1289X 
 DPCLOSE  *         NOTE:  OF ALL THE FIELDS SPECIFIED ABOVE ONLY THE R(I) CAN             DPCLOSE      909          I
          -FCC1289X 
 DPCLOSE  *         BE NEGATIVE, AND MUST BE HANDLED WITH CARE.                            DPCLOSE      910          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE      911          I
          -FCC1289X 
 DPCLOSE            SB2    X1                B2 = LWA+1 OF G-F TBL                         DPCLOSE      912          I
          -FCC1289X 
 DPCLOSE            SB1    X1                FWA                                           DPCLOSE      913          I
          -FCC1289X 
 DPCLOSE            SA0    B0                A0 = MAXORD = 0                               DPCLOSE      914          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      915          I
          -FCC1289X 
 DPCLOSE   EQV2     SA4    X6                EW1                                           DPCLOSE      916          I
          -FCC1289X 
 DPCLOSE            SA5    X6+B5             EW2                                           DPCLOSE      917          I
          -FCC1289X 
 DPCLOSE            UX1    B6,X4             B6 = NUMBER IN GROUP                          DPCLOSE      918          I
          -FCC1289X 
 DPCLOSE            SB4    X4                B4 = 2*SYMORD                                 DPCLOSE      919          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      920          I
          -FCC1289X 
 DPCLOSE  *         SCAN PARTIALLY BUILT TABLE FOR PREVIOUS OCCURRENCES OF THIS            DPCLOSE      921          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2420    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE  *         ELEMENT  AND SET T, THE INDEX TO THE ELEMENT IN THE TABLE              DPCLOSE      922          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      923          I
          -FCC1289X 
 DPCLOSE            SB4    A0-B4             M - O                                         DPCLOSE      924          I
          -FCC1289X 
 DPCLOSE            SB3    B5+B5                                                           DPCLOSE      925          I
          -FCC1289X 
 DPCLOSE            PL     B4,EQV3           IF ORD @ MAXORD                               DPCLOSE      926          I
          -FCC1289X 
 DPCLOSE            SA0    X1                UPDATE MAXORD                                 DPCLOSE      927          I
          -FCC1289X 
 DPCLOSE            SB7    B2-B1             T = LEN ( FOR A NEW ENTRY )                   DPCLOSE      928          I
          -FCC1289X 
 DPCLOSE            EQ     EQV6                                                            DPCLOSE      929          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      930          I
          -FCC1289X 
 DPCLOSE   EQV3     SA3    B1+B5             EW2 OF FIRST ENTRY                            DPCLOSE      931          I
          -FCC1289X 
 DPCLOSE            SA4    B2+B5             EW2 OF LAST ENTRY + 1                         DPCLOSE      932          I
          -FCC1289X 
 DPCLOSE            SB4    18-1                                                            DPCLOSE      933          I
          -FCC1289X 
 DPCLOSE            LX6    B4,X1                                                           DPCLOSE      934          I
          -FCC1289X 
 DPCLOSE            SA6    A4                STORE SEARCH TERMINATOR                       DPCLOSE      935          I
          -FCC1289X 
 DPCLOSE            AX7    B4,X3                                                           DPCLOSE      936          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      937          I
          -FCC1289X 
 DPCLOSE   EQV4     SX6    X7                EXTRACT ORD                                   DPCLOSE      938          I
          -FCC1289X 
 DPCLOSE            SA3    A3+B3             NEXT                                          DPCLOSE      939          I
          -FCC1289X 
 DPCLOSE            IX0    X1-X6             ORD - ORD(I)                                  DPCLOSE      940          I
          -FCC1289X 
 DPCLOSE            AX7    B4,X3                                                           DPCLOSE      941          I
          -FCC1289X 
 DPCLOSE            NZ     X0,EQV4           IF NO HIT                                     DPCLOSE      942          I
          -FCC1289X 
 DPCLOSE            BX7    X4                                                              DPCLOSE      943          I
          -FCC1289X 
 DPCLOSE            SA7    A4                RESTORE DESTROYED WORD                        DPCLOSE      944          I
          -FCC1289X 
 DPCLOSE            SB4    A3-3                                                            DPCLOSE      945          I
          -FCC1289X 
 DPCLOSE            SB7    B4-B1             B7 = T                                        DPCLOSE      946          I
          -FCC1289X 
 DPCLOSE            EQ     B4,B2,EQV6        IF NO MATCH                                   DPCLOSE      947          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2421    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SX5    X5                                                              DPCLOSE      948          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      949          I
          -FCC1289X 
 DPCLOSE  *         FIND THE DISTANCE TO THE ROOT                                          DPCLOSE      950          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      951          I
          -FCC1289X 
 DPCLOSE   EQV5     SX7    B7+B5             T+1                                           DPCLOSE      952          I
          -FCC1289X 
 DPCLOSE            SA4    B1+X7             EW2                                           DPCLOSE      953          I
          -FCC1289X 
 DPCLOSE            SB4    X4                S(T)                                          DPCLOSE      954          I
          -FCC1289X 
 DPCLOSE            EQ     B4,B7,EQV7        IF S(T) = T                                   DPCLOSE      955          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      956          I
          -FCC1289X 
 DPCLOSE            SA3    A4-B5             EW1                                           DPCLOSE      957          I
          -FCC1289X 
 DPCLOSE            SX3    X3                                                              DPCLOSE      958          I
          -FCC1289X 
 DPCLOSE            IX5    X3+X5             D = D+R(T)                                    DPCLOSE      959          I
          -FCC1289X 
 DPCLOSE            SB7    B4                T = S(T)                                      DPCLOSE      960          I
          -FCC1289X 
 DPCLOSE            EQ     EQV5                                                            DPCLOSE      961          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      962          I
          -FCC1289X 
 DPCLOSE  *         FIRST OCCURRENCE.  SET UP A G-F TABLE ENTRY.                           DPCLOSE      963          I
          -FCC1289X 
 DPCLOSE  *         X1 = 2*ORD, X5 = 42/EW1,18/D , B7 = T                                  DPCLOSE      964          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      965          I
          -FCC1289X 
 DPCLOSE   EQV6     MX0    42                                                              DPCLOSE      966          I
          -FCC1289X 
 DPCLOSE            SX7    B7                                                              DPCLOSE      967          I
          -FCC1289X 
 DPCLOSE            BX6    X0*X5             G-F WD1 = 6/CF,18/H = PI,18/0,18/R =          DPCLOSE      968          I
          -FCC1289X 
 DPCLOSE            LX1    18-1                                                            DPCLOSE      969          I
          -FCC1289X 
 DPCLOSE            SA6    B2                                                              DPCLOSE      970          I
          -FCC1289X 
 DPCLOSE            BX7    X1+X7             GF WD2 = 6/0,18/HP=0,18/ORD,18/S(I)=T         DPCLOSE      971          I
          -FCC1289X 
 DPCLOSE            SA7    B2+B5                                                           DPCLOSE      972          I
          -FCC1289X 
 DPCLOSE            SB2    B2+B3             INCREMENT TABLE LENGTH                        DPCLOSE      973          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2422    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      974          I
          -FCC1289X 
 DPCLOSE   EQV7     NE     B6,B5,EQV8        IF NOT THE FIRST NAME IN THE GROUP            DPCLOSE      975          I
          -FCC1289X 
 DPCLOSE            SX7    B7                                                              DPCLOSE      976          I
          -FCC1289X 
 DPCLOSE            SA7    TO                TO = T ( NUMBER OF CURRENT ROOT )             DPCLOSE      977          I
          -FCC1289X 
 DPCLOSE            SX6    X5                                                              DPCLOSE      978          I
          -FCC1289X 
 DPCLOSE            MI     X5,EQV7A    IF OFFSET NEQ                                       DPCLOSE      979          I
          -FCC1289X 
 DPCLOSE            PL     X6,EQV7A          IF LENGTH WITHIN BOUNDS                       DPCLOSE      980          I
          -FCC1289X 
 DPCLOSE            SX6    377777B           SET LENGTH TO MAX VALUE                       DPCLOSE      981          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      982          I
          -FCC1289X 
 DPCLOSE   EQV7A    SA6    DO                DO = D ( SUBSCRIPT OF ROOT )                  DPCLOSE      983          I
          -FCC1289X 
 DPCLOSE            EQ     EQV13                                                           DPCLOSE      984          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      985          I
          -FCC1289X 
 DPCLOSE  *         LINK NODE UP TO ROOT OR ANOTHER NODE                                   DPCLOSE      986          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      987          I
          -FCC1289X 
 DPCLOSE   EQV8     SA1    DO                                                              DPCLOSE      988          I
          -FCC1289X 
 DPCLOSE            SA2    TO                                                              DPCLOSE      989          I
          -FCC1289X 
 DPCLOSE            SX5    X5                D                                             DPCLOSE      990          I
          -FCC1289X 
 DPCLOSE            SA3    B1+B7             EW1(T)                                        DPCLOSE      991          I
          -FCC1289X 
 DPCLOSE            SA4    A3+B5             EW2(T)                                        DPCLOSE      992          I
          -FCC1289X 
 DPCLOSE            IX0    X1-X5             X0 = DC = DO-D = D(ROOT,MEMBER)               DPCLOSE      993          I
          -FCC1289X 
 DPCLOSE            SB4    X2                B4 = TO                                       DPCLOSE      994          I
          -FCC1289X 
 DPCLOSE            NE     B4,B7,EQV9        IF T .NE. TO                                  DPCLOSE      995          I
          -FCC1289X 
 DPCLOSE            ZR     X0,EQV13          IGNORE REDUNDANCIES                           DPCLOSE      996          I
          -FCC1289X 
 DPCLOSE            EQ     EQV.CER           CONTRADICTION                                 DPCLOSE      997          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE      998          I
          -FCC1289X 
 DPCLOSE   EQV9     GT     B7,B4,EQV10       IF T > TO                                     DPCLOSE      999          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2423    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1000          I
          -FCC1289X 
 DPCLOSE  *         T < TO , SWAP ELEMENTS                                                 DPCLOSE     1001          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1002          I
          -FCC1289X 
 DPCLOSE            SB6    X0                                                              DPCLOSE     1003          I
          -FCC1289X 
 DPCLOSE            SX0    -B6               DC = -DC   ( AVOID -0 )                       DPCLOSE     1004          I
          -FCC1289X 
 DPCLOSE            SX7    B7                                                              DPCLOSE     1005          I
          -FCC1289X 
 DPCLOSE            SA7    TO                TO = T                                        DPCLOSE     1006          I
          -FCC1289X 
 DPCLOSE            SB7    B4                                                              DPCLOSE     1007          I
          -FCC1289X 
 DPCLOSE            SB4    X7                SWAP( T , TO )                                DPCLOSE     1008          I
          -FCC1289X 
 DPCLOSE            BX6    X5                                                              DPCLOSE     1009          I
          -FCC1289X 
 DPCLOSE            SA3    B1+B7             EW1(T)                                        DPCLOSE     1010          I
          -FCC1289X 
 DPCLOSE            SA4    A3+B5             EW2(T)                                        DPCLOSE     1011          I
          -FCC1289X 
 DPCLOSE            SA6    DO                DO = D                                        DPCLOSE     1012          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1013          I
          -FCC1289X 
 DPCLOSE  *         T > TO   X0 = DC , X5 = D , B4 = TO , B7 = T                           DPCLOSE     1014          I
          -FCC1289X 
 DPCLOSE  *                  A3,X3,A4,X4 = EW1(T),EW2(T)                                   DPCLOSE     1015          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1016          I
          -FCC1289X 
 DPCLOSE   EQV10    SA1    B1+B4             EW1(TO)                                       DPCLOSE     1017          I
          -FCC1289X 
 DPCLOSE            SA2    A1+B5             EW2(TO)                                       DPCLOSE     1018          I
          -FCC1289X 
 DPCLOSE            SB3    X3                R(T)                                          DPCLOSE     1019          I
          -FCC1289X 
 DPCLOSE            ZR     B3,EQV12          IF R(T) = 0 ( NO PREVIOUS ADDRESS             DPCLOSE     1020          I
          -FCC1289X 
 DPCLOSE  *                                  ASSIGNED )                                    DPCLOSE     1021          I
          -FCC1289X 
 DPCLOSE            SB6    X1                R(TO)                                         DPCLOSE     1022          I
          -FCC1289X 
 DPCLOSE            ZR     B6,EQV11          IF R(TO) = 0                                  DPCLOSE     1023          I
          -FCC1289X 
 DPCLOSE            SB3    B3+X0                                                           DPCLOSE     1024          I
          -FCC1289X 
 DPCLOSE            EQ     B3,B6,EQV12       IF R(TO) = R(T)+DC                            DPCLOSE     1025          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2424    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            EQ     EQV.CER           CONTRADICTION                                 DPCLOSE     1026          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1027          I
          -FCC1289X 
 DPCLOSE  *         R(TO) = 0 AND R(T) " 0 , R(TO) = R(T)+D                                DPCLOSE     1028          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1029          I
          -FCC1289X 
 DPCLOSE   EQV11    SX6    X3                R(T)                                          DPCLOSE     1030          I
          -FCC1289X 
 DPCLOSE            MX7    42                                                              DPCLOSE     1031          I
          -FCC1289X 
 DPCLOSE            IX6    X6+X5             R(T)+D                                        DPCLOSE     1032          I
          -FCC1289X 
 DPCLOSE            BX7    -X7*X6                                                          DPCLOSE     1033          I
          -FCC1289X 
 DPCLOSE            BX1    X7+X1             OR IN                                         DPCLOSE     1034          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1035          I
          -FCC1289X 
 DPCLOSE  *         LINK ELEMENT TO PREVIOUS MEMBER                                        DPCLOSE     1036          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1037          I
          -FCC1289X 
 DPCLOSE   EQV12    MX5    42                                                              DPCLOSE     1038          I
          -FCC1289X 
 DPCLOSE            BX3    X5*X3                                                           DPCLOSE     1039          I
          -FCC1289X 
 DPCLOSE            BX6    -X5*X0            DC                                            DPCLOSE     1040          I
          -FCC1289X 
 DPCLOSE            IX6    X3+X6             R(T) = DC                                     DPCLOSE     1041          I
          -FCC1289X 
 DPCLOSE            SA6    B1+B7                                                           DPCLOSE     1042          I
          -FCC1289X 
 DPCLOSE            BX4    X5*X4                                                           DPCLOSE     1043          I
          -FCC1289X 
 DPCLOSE            SX7    B4                                                              DPCLOSE     1044          I
          -FCC1289X 
 DPCLOSE            IX7    X4+X7             S(T) = TO                                     DPCLOSE     1045          I
          -FCC1289X 
 DPCLOSE            SA7    A6+B5                                                           DPCLOSE     1046          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1047          I
          -FCC1289X 
 DPCLOSE  *         X0 = DC , X1,X2 = EW1(TO),EW2(TO)                                      DPCLOSE     1048          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1049          I
          -FCC1289X 
 DPCLOSE            LX5    36                                                              DPCLOSE     1050          I
          -FCC1289X 
 DPCLOSE            BX3    -X5*X3                                                          DPCLOSE     1051          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2425    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            LX0    36                POSITION DC                                   DPCLOSE     1052          I
          -FCC1289X 
 DPCLOSE            BX4    -X5*X4                                                          DPCLOSE     1053          I
          -FCC1289X 
 DPCLOSE            IX3    X0+X3             H(T)+DC                                       DPCLOSE     1054          I
          -FCC1289X 
 DPCLOSE            IX4    X4-X0             HP(T)-DC                                      DPCLOSE     1055          I
          -FCC1289X 
 DPCLOSE            BX6    -X5*X1            H(TO)                                         DPCLOSE     1056          I
          -FCC1289X 
 DPCLOSE            BX7    -X5*X2            HP(TO)                                        DPCLOSE     1057          I
          -FCC1289X 
 DPCLOSE            BX1    X5*X1             REMOVE FIELD                                  DPCLOSE     1058          I
          -FCC1289X 
 DPCLOSE            BX2    X5*X2                                                           DPCLOSE     1059          I
          -FCC1289X 
 DPCLOSE            MX0    X3*X6             H(TO) = MAX(3,6)                              DPCLOSE     1060          I
          -FCC1289X 
 DPCLOSE            BX6    X0+X1                                                           DPCLOSE     1061          I
          -FCC1289X 
 DPCLOSE            SA6    B1+B4             UPDATE EW1(TO)                                DPCLOSE     1062          I
          -FCC1289X 
 DPCLOSE            MX0    X4*X7                                                           DPCLOSE     1063          I
          -FCC1289X 
 DPCLOSE            BX7    X0+X2             EW2(TO)                                       DPCLOSE     1064          I
          -FCC1289X 
 DPCLOSE            SA7    A6+B5                                                           DPCLOSE     1065          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1066          I
          -FCC1289X 
 DPCLOSE   EQV13    SA1    TEMPA                                                           DPCLOSE     1067          I
          -FCC1289X 
 DPCLOSE            SX6    X1+2                                                            DPCLOSE     1068          I
          -FCC1289X 
 DPCLOSE            SA2    A1+B5             LIMIT                                         DPCLOSE     1069          I
          -FCC1289X 
 DPCLOSE            IX0    X6-X2             I - L                                         DPCLOSE     1070          I
          -FCC1289X 
 DPCLOSE            SA6    A1                                                              DPCLOSE     1071          I
          -FCC1289X 
 DPCLOSE            NG     X0,EQV2           IF NOT FINISHED                               DPCLOSE     1072          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1073          I
          -FCC1289X 
 DPCLOSE            SX7    B2-B1                                                           DPCLOSE     1074          I
          -FCC1289X 
 DPCLOSE            SA7    L.EQV             SAVE TABLE LENGTH                             DPCLOSE     1075          I
          -FCC1289X 
 DPCLOSE            TITLE              EQV - SCAN 2 - LINK G-F TABLE                       DPCLOSE     1076          I
          -FCC1289X 
 DPCLOSE  ***                                                                              DPCLOSE     1077          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2426    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FEAT129  -FCC1289X 
 DPCLOSE  *         SCAN 2 - ASSIGN A BIAS TO EACH ELEMENT                                 DPCLOSE     1078          I
          -FEAT129  -FCC1289X 
 DPCLOSE  **        SCAN 2 - ASSIGN A BIAS TO EACH ELEMENT                                 FEAT129       61          I
          -FCC1289X 
 DPCLOSE  *         LINK ELEMENTS OF EACH CLASS UP AND LINK THE ROOTS UP                   DPCLOSE     1079          I
          -FCC1289X 
 DPCLOSE  *         CALCULATE THE AMOUNT OF STORAGE NEEDED FOR EACH CLASS                  DPCLOSE     1080          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE     1081          I
          -FCC1289X 
 DPCLOSE  *         AT THE END OF THIS PASS, THE EQV TBL WILL HAVE THE FORMAT:             DPCLOSE     1082          I
          -FCC1289X 
 DPCLOSE  *         ROOTS:                                                                 DPCLOSE     1083          I
          -FCC1289X 
 DPCLOSE  *                6/COM,18/NEXTR,18/LASTE,18/BIAS                                 DPCLOSE     1084          I
          -FCC1289X 
 DPCLOSE  *                6/0,18/SPAN,18/ORD,18/S                                         DPCLOSE     1085          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE     1086          I
          -FCC1289X 
 DPCLOSE  *         NODES:                                                                 DPCLOSE     1087          I
          -FCC1289X 
 DPCLOSE  *                6/COM,18/H,18/NEXTE,18/BIAS                                     DPCLOSE     1088          I
          -FCC1289X 
 DPCLOSE  *                6/0,18/HP,18/ORD,18/S                                           DPCLOSE     1089          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE     1090          I
          -FCC1289X 
 DPCLOSE  *         NEXTR - ORDINAL OF THE NEXT ROOT                                       DPCLOSE     1091          I
          -FCC1289X 
 DPCLOSE  *         LASTE - ORDINAL OF THE LAST ELEMENT IN THE CLASS                       DPCLOSE     1092          I
          -FCC1289X 
 DPCLOSE  *         NEXTE - ORDINAL OF THE NEXT ELEMENT IN THE CLASS                       DPCLOSE     1093          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE     1094          I
          -FCC1289X 
 DPCLOSE  *         NOTE:  THE FACT THAT IF T IS A ROOT, THEN S(T+1) = T ,                 DPCLOSE     1095          I
          -FCC1289X 
 DPCLOSE  *         I.E. THE FIRST NODE OF A CLASS MUST COME IMMEDIATELY                   DPCLOSE     1096          I
          -FCC1289X 
 DPCLOSE  *         AFTER ITS ROOT, ENABLES US TO LINK UP THE EQUIVALENCE                  DPCLOSE     1097          I
          -FCC1289X 
 DPCLOSE  *         CLASS"S WITHOUT HAVING TO KEEP A POINTER TO THE FIRST MEMBER           DPCLOSE     1098          I
          -FCC1289X 
 DPCLOSE  *         IN THE ROOT ENTRY.                                                     DPCLOSE     1099          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE     1100          I
          -FCC1289X 
 DPCLOSE            MX5    42                                                              DPCLOSE     1101          I
          -FCC1289X 
 DPCLOSE            SA0    B0                A0 = NROOTS                                   DPCLOSE     1102          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2427    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SB3    B5+B5             B3 = 2                                        DPCLOSE     1103          I
          -FCC1289X 
 DPCLOSE            SB4    B0                I                                             DPCLOSE     1104          I
          -FCC1289X 
 DPCLOSE            MX0    18                                                              DPCLOSE     1105          I
          -FCC1289X 
 DPCLOSE            SB6    -B5               LASTR = -1                                    DPCLOSE     1106          I
          -FCC1289X 
 DPCLOSE            LX0    18+36                                                           DPCLOSE     1107          I
          -FCC1289X 
 DPCLOSE            SB2    B2-B1             B2 = LENGTH OF THE G-F TABLE                  DPCLOSE     1108          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1109          I
          -FCC1289X 
 DPCLOSE   EQVB     SA1    B1+B4             EW1(I)                                        DPCLOSE     1110          I
          -FCC1289X 
 DPCLOSE            SA2    A1+B5                                                           DPCLOSE     1111          I
          -FCC1289X 
 DPCLOSE            SB7    X2                S(I)                                          DPCLOSE     1112          I
          -FCC1289X 
 DPCLOSE            NE     B7,B4,EQVB1       IF NOT A ROOT                                 DPCLOSE     1113          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1114          I
          -FCC1289X 
 DPCLOSE            SA0    A0+B5             NROOTS = NROOTS+1                             DPCLOSE     1115          I
          -FCC1289X 
 DPCLOSE            BX3    X0*X1             H(I)                                          DPCLOSE     1116          I
          -FCC1289X 
 DPCLOSE            IX6    X3+X2             CHANGE HP TO SPAN                             DPCLOSE     1117          I
          -FCC1289X 
 DPCLOSE            SA6    A2                                                              DPCLOSE     1118          I
          -FCC1289X 
 DPCLOSE            AX2    36                                                              DPCLOSE     1119          I
          -FCC1289X 
 DPCLOSE            SX3    X1                R(I)                                          DPCLOSE     1120          I
          -FCC1289X 
 DPCLOSE            BX1    X5*X1                                                           DPCLOSE     1121          I
          -FCC1289X 
 DPCLOSE            IX4    X2+X3             R(I) = R(I)+HP(I)   ( BIAS )                  DPCLOSE     1122          I
          -FCC1289X 
 DPCLOSE            BX1    -X0*X1            CLEAR H FIELD                                 DPCLOSE     1123          I
          -FCC1289X 
 DPCLOSE            IX6    X1+X4                                                           DPCLOSE     1124          I
          -FCC1289X 
 DPCLOSE            SA6    A1                                                              DPCLOSE     1125          I
          -FCC1289X 
 DPCLOSE            SX3    B6                K = LASTR                                     DPCLOSE     1126          I
          -FCC1289X 
 DPCLOSE            SB6    B4                LASTR = I                                     DPCLOSE     1127          I
          -FCC1289X 
 DPCLOSE            NG     X3,EQVB4          IF THE FIRST TIME                             DPCLOSE     1128          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2428    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1129          I
          -FCC1289X 
 DPCLOSE            SA2    B1+X3             LINK LAST TO THIS                             DPCLOSE     1130          I
          -FCC1289X 
 DPCLOSE            SX4    B4                                                              DPCLOSE     1131          I
          -FCC1289X 
 DPCLOSE            LX4    36                                                              DPCLOSE     1132          I
          -FCC1289X 
 DPCLOSE            BX6    X4+X2             NEXTR(K) = I                                  DPCLOSE     1133          I
          -FCC1289X 
 DPCLOSE            SA6    A2                                                              DPCLOSE     1134          I
          -FCC1289X 
 DPCLOSE            EQ     EQVB4                                                           DPCLOSE     1135          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1136          I
          -FCC1289X 
 DPCLOSE  *         NODE                                                                   DPCLOSE     1137          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1138          I
          -FCC1289X 
 DPCLOSE   EQVB1    SA3    B1+X2             EW1( S(I) )                                   DPCLOSE     1139          I
          -FCC1289X 
 DPCLOSE            SX4    X1                R(I)                                          DPCLOSE     1140          I
          -FCC1289X 
 DPCLOSE            BX1    X5*X1                                                           DPCLOSE     1141          I
          -FCC1289X 
 DPCLOSE            SX3    X3                                                              DPCLOSE     1142          I
          -FCC1289X 
 DPCLOSE            IX6    X3+X4             R(I)+R(S(I)) \ 0                              DPCLOSE     1143          I
          -FCC1289X 
 DPCLOSE            BX7    X1+X6                                                           DPCLOSE     1144          I
          -FCC1289X 
 DPCLOSE            SA7    A1                UPDATE ENTRY                                  DPCLOSE     1145          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1146          I
          -FCC1289X 
 DPCLOSE  *         FOLLOW THE SUCCESSOR VECTOR DOWN THE TREE TO FIND THE CLASS            DPCLOSE     1147          I
          -FCC1289X 
 DPCLOSE  *         ROOT                                                                   DPCLOSE     1148          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1149          I
          -FCC1289X 
 DPCLOSE            SX7    B1+B5                                                           DPCLOSE     1150          I
          -FCC1289X 
 DPCLOSE            SX4    B4                SAVE B4                                       DPCLOSE     1151          I
          -FCC1289X 
 DPCLOSE            SB7    X2                J = S(I)                                      DPCLOSE     1152          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1153          I
          -FCC1289X 
 DPCLOSE   EQVB2    SA3    X7+B7             EW2(J)                                        DPCLOSE     1154          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2429    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SB4    X3                S(J)                                          DPCLOSE     1155          I
          -FCC1289X 
 DPCLOSE            EQ     B4,B7,EQVB3       IF THIS IS THE ROOT                           DPCLOSE     1156          I
          -FCC1289X 
 DPCLOSE            SB7    B4                J = S(J)                                      DPCLOSE     1157          I
          -FCC1289X 
 DPCLOSE            EQ     EQVB2                                                           DPCLOSE     1158          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1159          I
          -FCC1289X 
 DPCLOSE  *         UPDATE POINTER TO THE LAST ELEMENT IN THE ROOT ,                       DPCLOSE     1160          I
          -FCC1289X 
 DPCLOSE  *         POINT PREVIOUS MEMBER TO THIS ONE                                      DPCLOSE     1161          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1162          I
          -FCC1289X 
 DPCLOSE   EQVB3    SB4    X4                                                              DPCLOSE     1163          I
          -FCC1289X 
 DPCLOSE            SA3    A3-B5             EW1(ROOT)                                     DPCLOSE     1164          I
          -FCC1289X 
 DPCLOSE            AX0    18                                                              DPCLOSE     1165          I
          -FCC1289X 
 DPCLOSE            BX6    -X0*X3            REMOVE LASTE                                  DPCLOSE     1166          I
          -FCC1289X 
 DPCLOSE            LX4    18                                                              DPCLOSE     1167          I
          -FCC1289X 
 DPCLOSE            BX6    X4+X6             LASTE = I                                     DPCLOSE     1168          I
          -FCC1289X 
 DPCLOSE            AX3    18                                                              DPCLOSE     1169          I
          -FCC1289X 
 DPCLOSE            SA6    A3                                                              DPCLOSE     1170          I
          -FCC1289X 
 DPCLOSE            LX0    18                                                              DPCLOSE     1171          I
          -FCC1289X 
 DPCLOSE            SX3    X3                                                              DPCLOSE     1172          I
          -FCC1289X 
 DPCLOSE            ZR     X3,EQVB4          IF NO PREVIOUS NODES                          DPCLOSE     1173          I
          -FCC1289X 
 DPCLOSE            SA2    B1+X3             OLD LAST                                      DPCLOSE     1174          I
          -FCC1289X 
 DPCLOSE            BX6    X4+X2             POINT TO THIS                                 DPCLOSE     1175          I
          -FCC1289X 
 DPCLOSE            SA6    A2                                                              DPCLOSE     1176          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1177          I
          -FCC1289X 
 DPCLOSE   EQVB4    SB4    B4+B3             I = I+2                                       DPCLOSE     1178          I
          -FCC1289X 
 DPCLOSE            LT     B4,B2,EQVB        IF NOT FINISHED                               DPCLOSE     1179          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1180          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2430    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SX6    A0                X6 = NUMBER OF CLASS S                        DPCLOSE     1181          I
          -FCC1289X 
 DPCLOSE            TITLE              EQV - SCAN 3 - FIND BASE MEMBERS, ETC               DPCLOSE     1182          I
          -FCC1289X 
 DPCLOSE  ***                                                                              DPCLOSE     1183          I
          -FEAT129  -FCC1289X 
 DPCLOSE  *         SCAN 3 - BUILD LINEAR EQUIVALENCE CLASS TABLE FROM LIST                DPCLOSE     1184          I
          -FEAT129  -FCC1289X 
 DPCLOSE  **        SCAN 3 - BUILD LINEAR EQUIVALENCE CLASS TABLE FROM LIST                FEAT129       62          I
          -FCC1289X 
 DPCLOSE  *         CHECK FOR AND MARK COMMON/EQUIV INTERACTION                            DPCLOSE     1185          I
          -FCC1289X 
 DPCLOSE  *         FIND BASE MEMBERS OF EACH CLASS                                        DPCLOSE     1186          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE     1187          I
          -FCC1289X 
 DPCLOSE            ALLOC  LAT,X6                                                          DPCLOSE     1188          I
          -FCC1289X 
 DPCLOSE            SA1    S.LAT                                                           DPCLOSE     1189          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SA5    S.LAT                                                           FEAT129       63          I
          -FCC1289X 
 DPCLOSE            BX6    X5                                                              FEAT129       64          I
          -FCC1289X 
 DPCLOSE            SA6    L.LAT                                                           FEAT129       65          I
          -FCC1289X 
 DPCLOSE            SA5    L.EQV                                                           DPCLOSE     1190          I
          -FCC1289X 
 DPCLOSE            BX6    X1                                                              DPCLOSE     1191          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SA6    L.LAT                                                           DPCLOSE     1192          I
          -FEAT129  -FCC1289X 
 DPCLOSE            AX5    2                                                               FEAT129       66          I
          -FCC1289X 
 DPCLOSE            ALLOC  EOT,X5                                                          FEAT129       67          I
          -FCC1289X 
 DPCLOSE            SA5    L.EQV                                                           FEAT129       68          I
          -FCC1289X 
 DPCLOSE            AX5    1                                                               DPCLOSE     1193          I
          -FCC1289X 
 DPCLOSE            ALLOC  ECT,X5            GET SPACE FOR ECT                             DPCLOSE     1194          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1195          I
          -FCC1289X 
 DPCLOSE            SA1    O.EQV                                                           DPCLOSE     1196          I
          -FCC1289X 
 DPCLOSE            SA3    O.ECT                                                           DPCLOSE     1197          I
          -FCC1289X 
 DPCLOSE            SA5    X1                A5 = RUNNING INDEX TO EQV TBL                 DPCLOSE     1198          I
          -FCC1289X 
 DPCLOSE            SA0    X3                A0 = O.ECT                                    DPCLOSE     1199          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2431    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SA2    O.LAT                                                           DPCLOSE     1200          I
          -FCC1289X 
 DPCLOSE            SA4    X2-1                                                            DPCLOSE     1201          I
          -FCC1289X 
 DPCLOSE            BX7    X4                                                              DPCLOSE     1202          I
          -FCC1289X 
 DPCLOSE            SA7    A4                A7 = LAST USED LAT ADDRESS                    DPCLOSE     1203          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1204          I
          -FCC1289X 
 DPCLOSE            SB1    B0                B1 = INDEX TO ECT                             DPCLOSE     1205          I
          -FCC1289X 
 DPCLOSE            MX0    6+18                                                            DPCLOSE     1206          I
          -FCC1289X 
 DPCLOSE            SA4    SYM1                                                            DPCLOSE     1207          I
          -FCC1289X 
 DPCLOSE            SA3    X4                ( A3 = O.SYM )                                DPCLOSE     1208          I
          -FCC1289X 
 DPCLOSE            SB3    B0                B3 = ORDINAL OF NEXT ROOT IN EQV              DPCLOSE     1209          I
          -FCC1289X 
 DPCLOSE            LX0    18                                                              DPCLOSE     1210          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1211          I
          -FCC1289X 
 DPCLOSE  *         A0 = O.ECT            X0 = M(6+18)S18       B0 = 0                     DPCLOSE     1212          I
          -FCC1289X 
 DPCLOSE  *         A1 =                  X1 = (EW1)            B1 = INDEX TO ECT          DPCLOSE     1213          I
          -FCC1289X 
 DPCLOSE  *         A2 =                  X2 = (EW2)            B2 = ORD OF ROOT           DPCLOSE     1214          I
          -FCC1289X 
 DPCLOSE  *         A3 = O.SYM            X3 =                  B3 = NEXTR                 DPCLOSE     1215          I
          -FCC1289X 
 DPCLOSE  *         A4 =                  X4 =                  B4 = SCRATCH               DPCLOSE     1216          I
          -FCC1289X 
 DPCLOSE  *         A5 = O.EQV            X5 = COMFLAG          B5 = 1                     DPCLOSE     1217          I
          -FCC1289X 
 DPCLOSE  *         A6 =                  X6 =                  B6 = MIN BIAS              DPCLOSE     1218          I
          -FCC1289X 
 DPCLOSE  *         A7 = NEXT LAT         X7 =                  B7 = ORD BIAS              DPCLOSE     1219          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1220          I
          -FCC1289X 
 DPCLOSE   EQVC     SA1    A5+B3             EW1(ROOT)                                     DPCLOSE     1221          I
          -FCC1289X 
 DPCLOSE            SA2    A1+B5                                                           DPCLOSE     1222          I
          -FCC1289X 
 DPCLOSE            BX3    X1                                                              DPCLOSE     1223          I
          -FCC1289X 
 DPCLOSE            SX4    B1+B5             ORD ROOT + 1                                  DPCLOSE     1224          I
          -FCC1289X 
 DPCLOSE            AX3    59                                                              DPCLOSE     1225          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2432    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            BX5    X3*X4             COMFLAG = 0 OR ORD+1                          DPCLOSE     1226          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1227          I
          -FCC1289X 
 DPCLOSE            SB2    B1                B2 = ORD OF ROOT                              DPCLOSE     1228          I
          -FCC1289X 
 DPCLOSE            SB6    X1                B6 = MIN BIAS                                 DPCLOSE     1229          I
          -FCC1289X 
 DPCLOSE            SB7    B1                B7 = ORD BASE                                 DPCLOSE     1230          I
          -FCC1289X 
 DPCLOSE            AX2    18                                                              DPCLOSE     1231          I
          -FCC1289X 
 DPCLOSE            BX6    X0*X1                                                           DPCLOSE     1232          I
          -FCC1289X 
 DPCLOSE            IX3    X2+X2             2*SYMORD                                      DPCLOSE     1233          I
          -FCC1289X 
 DPCLOSE            LX2    18                REMOVE S FIELD                                DPCLOSE     1234          I
          -FCC1289X 
 DPCLOSE            IX6    X2+X6                                                           DPCLOSE     1235          I
          -FCC1289X 
 DPCLOSE            SB4    X3+B5                                                           DPCLOSE     1236          I
          -FCC1289X 
 DPCLOSE            MX7    60-L.LVL+1                                                      DPCLOSE     1237          I
          -FCC0390  -FCC1289X 
 DPCLOSE            MX7    -L.LVL                                                          FCC0390        5          I
          -FCC1289X 
 DPCLOSE            SA4    A3-B4             WORD B                                        DPCLOSE     1238          I
          -FCC1289X 
 DPCLOSE            SA6    A0+B1             STORE ECT ENTRY                               DPCLOSE     1239          I
          -FCC1289X 
 DPCLOSE            AX4    P.LVL+1                                                         DPCLOSE     1240          I
          -FCC0390  -FCC1289X 
 DPCLOSE            AX4    P.LVL                                                           FCC0390        6          I
          -FCC1289X 
 DPCLOSE            BX7    -X7*X4            LEVEL OF ROOT MEMBER                          DPCLOSE     1241          I
          -FCC1289X 
 DPCLOSE            AX1    36                                                              DPCLOSE     1242          I
          -FCC1289X 
 DPCLOSE            SB1    B1+B5                                                           DPCLOSE     1243          I
          -FCC1289X 
 DPCLOSE            SB3    X1                ORD OF NEXT ROOT                              DPCLOSE     1244          I
          -FCC1289X 
 DPCLOSE            MX4    18                                                              FCC0580       63          I
          -FCC1289X 
 DPCLOSE            SA1    A2+B5             EW1,EW2 OF FIRST MEMBER                       DPCLOSE     1245          I
          -FCC1289X 
 DPCLOSE            MX4    18                                                              DPCLOSE     1246          I
          -FCC0580  -FCC1289X 
 DPCLOSE            SA2    A1+B5                                                           DPCLOSE     1247          I
          -FCC0580  -FCC1289X 
 DPCLOSE            LX4    18+18             TO EXTRACT SYMORD                             DPCLOSE     1248          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2433    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1249          I
          -FCC1289X 
 DPCLOSE   EQVC1    BX6    X0*X1                                                           DPCLOSE     1250          I
          -FCC0580  -FCC1289X 
 DPCLOSE   EQVC1    SA2    A1+B5                                                           FCC0580       64          I
          -FCC1289X 
 DPCLOSE            BX6    X0*X1                                                           FCC0580       65          I
          -FCC1289X 
 DPCLOSE            BX3    X4*X2                                                           DPCLOSE     1251          I
          -FCC1289X 
 DPCLOSE            AX2    18-1              2*SYMORD                                      DPCLOSE     1252          I
          -FCC1289X 
 DPCLOSE            SB4    X2+B5                                                           DPCLOSE     1253          I
          -FCC1289X 
 DPCLOSE            SA2    A3-B4             WORD B                                        DPCLOSE     1254          I
          -FCC1289X 
 DPCLOSE            SB4    X1                BIAS                                          DPCLOSE     1255          I
          -FCC1289X 
 DPCLOSE            IX6    X3+X6             ECT ENTRY                                     DPCLOSE     1256          I
          -FCC1289X 
 DPCLOSE            MX3    60-L.LVL+1                                                      DPCLOSE     1257          I
          -FCC0390  -FCC1289X 
 DPCLOSE            MX3    -L.LVL                                                          FCC0390        7          I
          -FCC1289X 
 DPCLOSE            GE     B4,B6,EQVC2       IF BIAS(J) \ MIN BIAS                         DPCLOSE     1258          I
          -FCC1289X 
 DPCLOSE            SB6    B4                NEW MIN                                       DPCLOSE     1259          I
          -FCC1289X 
 DPCLOSE            SB7    B1                ORD BIAS                                      DPCLOSE     1260          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1261          I
          -FCC1289X 
 DPCLOSE   EQVC2    SA6    A0+B1                                                           DPCLOSE     1262          I
          -FCC1289X 
 DPCLOSE            AX2    P.LVL+1                                                         DPCLOSE     1263          I
          -FCC0390  -FCC1289X 
 DPCLOSE            AX2    P.LVL                                                           FCC0390        8          I
          -FCC0580  -FCC1289X 
 DPCLOSE            LX2    -P.LVL                                                          FCC0580       66          I
          -FCC1289X 
 DPCLOSE            BX3    -X3*X2            EXTRACT LEVEL/2                               DPCLOSE     1264          I
          -FCC1289X 
 DPCLOSE            IX6    X3-X7                                                           DPCLOSE     1265          I
          -FCC1289X 
 DPCLOSE            NZ     X6,EQV.LEE        IF A LEVEL EQUIVALENCE ERROR                  DPCLOSE     1266          I
          -FCC0580  -FCC1289X 
 DPCLOSE            PL     X1,EQVC3          IF NOT IN COMMON                              DPCLOSE     1267          I
          -FCC0580  -FCC1289X 
 DPCLOSE            NZ     X5,EQV.CEE        IF MORE THAN ONE IN COMMON                    DPCLOSE     1268          I
          -FCC0580  -FCC1289X 
 DPCLOSE            SX5    B1+B5                                                           DPCLOSE     1269          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2434    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC0580  -FCC1289X 
 DPCLOSE            ZR     X6,EQVC2B   IF LEVELS ARE EQUAL                                 FCC0580       67          I
          -FCC1289X 
 DPCLOSE            ZR     X7,EQVC2A   IF NO LEVEL YET DETERMINED                          FCC0580       68          I
          -FCC1289X 
 DPCLOSE            NZ     X3,EQV.LEE  IF LEVEL CONFLICT                                   FCC0580       69          I
          -FCC1289X 
 DPCLOSE            BX6    X2+X7                                                           FCC0580       70          I
          -FCC1289X 
 DPCLOSE            LX6    P.LVL                                                           FCC0580       71          I
          -FCC1289X 
 DPCLOSE            BX3    X7                                                              FCC0580       72          I
          -FCC1289X 
 DPCLOSE            SA6    A2                                                              FCC0580       73          I
          -FCC1289X 
 DPCLOSE   EQVC2A   BX7    X3                                                              FCC0580       74          I
          -FCC1289X 
 DPCLOSE            MX2    1                                                               FCC0580       75          I
          -FCC1289X 
 DPCLOSE            LX2    58                                                              FCC0580       76          I
          -FCC1289X 
 DPCLOSE            BX5    X5+X2                                                           FCC0580       77          I
          -FCC1289X 
 DPCLOSE   EQVC2B   PL     X1,EQVC3    IF NOT IN COMMON                                    FCC0580       78          I
          -FCC1289X 
 DPCLOSE            SX2    B1+B5                                                           FCC0580       79          I
          -FCC1129  -FCC1289X 
 DPCLOSE            BX5    X5+X2                                                           FCC0580       80          I
          -FCC1129  -FCC1289X 
 DPCLOSE            SX6    X5                                                              FCC1129       11          I
          -FCC1289X 
 DPCLOSE            MX2    1                                                               FCC1129       12          I
          -FCC1289X 
 DPCLOSE            NZ     X6,EQVC2C   IF MORE THAN ONE IN COMMON                          FCC1129       13          I
          -FCC1289X 
 DPCLOSE            SX2    B1+B5                                                           FCC1129       14          I
          -FCC1289X 
 DPCLOSE   EQVC2C   BX5    X5+X2                                                           FCC1129       15          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1270          I
          -FCC1289X 
 DPCLOSE   EQVC3    AX1    18                                                              DPCLOSE     1271          I
          -FCC1289X 
 DPCLOSE            SB1    B1+B5             J = J+1                                       DPCLOSE     1272          I
          -FCC1289X 
 DPCLOSE            SB4    X1                ORD NEXTR                                     DPCLOSE     1273          I
          -FCC1289X 
 DPCLOSE            SA1    A5+B4             NEXT MEMBER ( PRE FETCH )                     DPCLOSE     1274          I
          -FCC1289X 
 DPCLOSE            SA2    A1+B5                                                           DPCLOSE     1275          I
          -FCC0580  -FCC1289X 
 DPCLOSE            NZ     B4,EQVC1          IF MORE MEMBERS TO GO                         DPCLOSE     1276          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2435    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SA1    A2                                                              FCC0580       81          I
          -FCC1289X 
 DPCLOSE            LX7    P.LVL                                                           FCC0580       82          I
          -FCC1289X 
 DPCLOSE            BX6    X7+X1                                                           FCC0580       83          I
          -FCC1289X 
 DPCLOSE            SA6    A1                                                              FCC0580       84          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1277          I
          -FCC1289X 
 DPCLOSE            EQ     B2,B7,EQVC6       IF ROOT IS THE BASE                           DPCLOSE     1278          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1279          I
          -FCC1289X 
 DPCLOSE  *         SWAP ROOT AND BASE MEMBERS                                             DPCLOSE     1280          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1281          I
          -FCC1289X 
 DPCLOSE            SB4    X5-1                                                            DPCLOSE     1282          I
          -FCC1289X 
 DPCLOSE            SA1    A0+B2             ROOT                                          DPCLOSE     1283          I
          -FCC1289X 
 DPCLOSE            LX4    18                                                              DPCLOSE     1284          I
          -FCC0580  -FCC1289X 
 DPCLOSE            MX4    23                                                              FCC0580       85          I
          -FCC1289X 
 DPCLOSE            LX4    23+36                                                           FCC0580       86          I
          -FCC1289X 
 DPCLOSE            SA2    A0+B7             BASE                                          DPCLOSE     1285          I
          -FCC1289X 
 DPCLOSE            BX3    X4*X1             SPAN                                          DPCLOSE     1286          I
          -FCC1289X 
 DPCLOSE            IX6    X3+X2             ADD TO BASE                                   DPCLOSE     1287          I
          -FCC1289X 
 DPCLOSE            SA6    A1                                                              DPCLOSE     1288          I
          -FCC1289X 
 DPCLOSE            BX6    -X4*X1                                                          DPCLOSE     1289          I
          -FCC1289X 
 DPCLOSE            SA6    A2                                                              DPCLOSE     1290          I
          -FCC1289X 
 DPCLOSE            ZR     X5,EQVC6          IF NO COMMON                                  DPCLOSE     1291          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1292          I
          -FCC1289X 
 DPCLOSE            NE     B4,B2,EQVC4       IF NOT THE ROOT                               DPCLOSE     1293          I
          -FCC1289X 
 DPCLOSE            SX4    B7+B5                                                           DPCLOSE     1294          I
          -FCC1289X 
 DPCLOSE            EQ     EQVC5                                                           DPCLOSE     1295          I
          -FCC1289X 
 DPCLOSE   EQVC4    NE     B4,B7,EQVC6       IF NOT THE BASE                               DPCLOSE     1296          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2436    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SX4    B2+B5                                                           DPCLOSE     1297          I
          -FCC1289X 
 DPCLOSE   EQVC5    IX1    X5+X5                                                           DPCLOSE     1298          I
          -FCC1289X 
 DPCLOSE            MX2    1                                                               DPCLOSE     1299          I
          -FCC1289X 
 DPCLOSE            MI     X1,EQVC6          IF A LEVEL EQUIV ERR IS OUTSTANDING           DPCLOSE     1300          I
          -FCC1289X 
 DPCLOSE            BX5    X2*X5                                                           DPCLOSE     1301          I
          -FCC1289X 
 DPCLOSE            IX5    X4+X5                                                           DPCLOSE     1302          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1303          I
          -FCC1289X 
 DPCLOSE  *         STORE NUMBER OF MEMBERS IN BASE, AND LAT ENTRY                         DPCLOSE     1304          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1305          I
          -FCC1289X 
 DPCLOSE   EQVC6    SA1    A0+B2             BASE                                          DPCLOSE     1306          I
          -FCC1289X 
 DPCLOSE            SB4    B1-B2             N.MEMBERS + 1                                 DPCLOSE     1307          I
          -FCC1289X 
 DPCLOSE            BX7    X5                                                              DPCLOSE     1308          I
          -FCC1289X 
 DPCLOSE            SX2    B4-B5                                                           DPCLOSE     1309          I
          -FCC1289X 
 DPCLOSE            SA7    A7+B5             STORE LAT ENTRY                               DPCLOSE     1310          I
          -FCC1289X 
 DPCLOSE            BX6    X1+X2                                                           DPCLOSE     1311          I
          -FCC1289X 
 DPCLOSE            SA6    A1                UPDATE BASE                                   DPCLOSE     1312          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1313          I
          -FCC1289X 
 DPCLOSE            NZ     B3,EQVC           IF MORE CLASS S TO GO                         DPCLOSE     1314          I
          -FCC1289X 
 DPCLOSE            EQ     EQVD0                                                           DPCLOSE     1315          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1316          I
          -FCC1289X 
 DPCLOSE  *         MORE THAN ONE MEMBER OF CLASS IN COMMON                                DPCLOSE     1317          I
          -FCC1129  -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1318          I
          -FCC1129  -FCC1289X 
 DPCLOSE   EQV.CEE  MX4    1                                                               DPCLOSE     1319          I
          -FEAT129  -FCC1129  -FCC1289X 
 DPCLOSE            BX5    X4+X5             SET X5 NEGATIVE                               DPCLOSE     1320          I
          -FEAT129  -FCC1129  -FCC1289X 
 DPCLOSE   EQV.CEE  MX2    1                                                               FEAT129       69          I
          -FCC1129  -FCC1289X 
 DPCLOSE            BX5    X2+X5                                                           FEAT129       70          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2437    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1129  -FCC1289X 
 DPCLOSE            EQ     EQVC3             RETURN TO PROCESSING                          DPCLOSE     1321          I
          -FCC1129  -FCC1289X 
 DPCLOSE   EQV.LEE  PX5    X5                SET BIT 58                                    DPCLOSE     1322          I
          -FCC1289X 
 DPCLOSE            SX2    A2+B5             ADDRESS OF WORD A                             DPCLOSE     1323          I
          -FCC1289X 
 DPCLOSE            LX2    18                                                              DPCLOSE     1324          I
          -FCC1289X 
 DPCLOSE            BX5    X5+X2                                                           DPCLOSE     1325          I
          -FCC1289X 
 DPCLOSE            EQ     EQVC3                                                           DPCLOSE     1326          I
          -FCC1289X 
 DPCLOSE            SPACE  2                                                               DPCLOSE     1327          I
          -FCC1289X 
 DPCLOSE  ***                                                                              DPCLOSE     1328          I
          -FEAT129  -FCC1289X 
 DPCLOSE  *         DEI - DISTRIBUTE EQUIVALENCE INFORMATION                               DPCLOSE     1329          I
          -FEAT129  -FCC1289X 
 DPCLOSE  **        DEI - DISTRIBUTE EQUIVALENCE INFORMATION                               FEAT129       71          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE     1330          I
          -FCC1289X 
 DPCLOSE  *         FOR NON BASE MEMBERS IN ECT:                                           DPCLOSE     1331          I
          -FCC1289X 
 DPCLOSE  *                SETS BITS IN WORD A                                             DPCLOSE     1332          I
          -FCC1289X 
 DPCLOSE  *                SETS UP WORD 1 OF DIM TABLE ENTRY AS:                           DPCLOSE     1333          I
          -FCC1289X 
 DPCLOSE  *                1/1,5/0,18/ORD(BASE),18/BIAS,18/RA                              DPCLOSE     1334          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE     1335          I
          -FCC1289X 
 DPCLOSE  *         ON ENTRY:                                                              DPCLOSE     1336          I
          -FCC1289X 
 DPCLOSE  *                X3 = SKELETON FOR DIM WORD 1                                    DPCLOSE     1337          I
          -FCC1289X 
 DPCLOSE  *                X4 = BITS TO BE SET IN WORD A                                   DPCLOSE     1338          I
          -FCC1289X 
 DPCLOSE  *                X7 = BIAS OF CLASS                                              FEAT129       72          I
          -FCC1289X 
 DPCLOSE  *                A5 = FWA OF ECT FOR CLASS BASE                                  DPCLOSE     1339          I
          -FCC1289X 
 DPCLOSE  *                X0 = M(L.DIMP) S P.DIMP                                         DPCLOSE     1340          I
          -FCC1289X 
 DPCLOSE  *                B6 = N.MEMBERS                                                  DPCLOSE     1341          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE     1342          I
          -FCC1289X 
 DPCLOSE  *         ON EXIT:                                                               DPCLOSE     1343          I
          -FCC1289X 
 DPCLOSE  *                A5 UPDATED                                                      DPCLOSE     1344          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2438    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE     1345          I
          -FCC1289X 
 DPCLOSE   DEI                                                                             DPCLOSE     1346          I
          -FCC1289X 
 DPCLOSE   DEI1     SA5    A5+B5             ECT  24/0,18/SYMORD,18/BIAS                   DPCLOSE     1347          I
          -FCC1289X 
 DPCLOSE            SB6    B6-B5             N.MEMBERS = N.MEMBERS - 1                     DPCLOSE     1348          I
          -FCC1289X 
 DPCLOSE            SX7    X5                BIAS                                          DPCLOSE     1349          I
          -FEAT129  -FCC1289X 
 DPCLOSE            LX5    60-17                                                           DPCLOSE     1350          I
          -FCC1289X 
 DPCLOSE            SB7    X5                2*ORD                                         DPCLOSE     1351          I
          -FCC1289X 
 DPCLOSE            SA1    A0-B7             WORD A                                        DPCLOSE     1352          I
          -FCC1289X 
 DPCLOSE            SA2    A1-B5             WORD B                                        DPCLOSE     1353          I
          -FCC1289X 
 DPCLOSE            BX6    X4+X1                                                           DPCLOSE     1354          I
          -FCC1289X 
 DPCLOSE            LX5    17                                                              DPCLOSE     1355          I
          -FCC1289X 
 DPCLOSE            BX2    X0*X2                                                           DPCLOSE     1356          I
          -FCC1289X 
 DPCLOSE            SA6    A1                UPDATE WORD A                                 DPCLOSE     1357          I
          -FCC1289X 
 DPCLOSE            AX2    P.DIMP-1          DIMP INDEX                                    DPCLOSE     1358          I
          -FCC1289X 
 DPCLOSE            IX6    X3+X7             RA                                            DPCLOSE     1359          I
          -FEAT129  -FCC1289X 
 DPCLOSE            LX7    18                                                              DPCLOSE     1360          I
          -FEAT129  -FCC1289X 
 DPCLOSE            IX6    X7+X6             6/J,18/SYMORD,18/BIAS,18/RA                   DPCLOSE     1361          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SX1    X5                                                              FEAT129       73          I
          -FCC1289X 
 DPCLOSE            IX6    X3+X1                                                           FEAT129       74          I
          -FCC1289X 
 DPCLOSE            LX1    18                                                              FEAT129       75          I
          -FCC1289X 
 DPCLOSE            IX6    X1+X6                                                           FEAT129       76          I
          -FCC1289X 
 DPCLOSE            SA6    X2+B4             WORD 1 OF DIM ENTRY                           DPCLOSE     1362          I
          -FCC1289X 
 DPCLOSE            MX2    18                                                              DPCLOSE     1363          I
          -FCC1289X 
 DPCLOSE            SA1    A6+B5             WORD 2                                        DPCLOSE     1364          I
          -FCC1289X 
 DPCLOSE            LX2    18+36                                                           DPCLOSE     1365          I
          -FCC1289X 
 DPCLOSE            BX7    X2*X1             WORD COUNT                                    DPCLOSE     1366          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2439    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FEAT129  -FCC1289X 
 DPCLOSE            IX6    X7+X5                                                           DPCLOSE     1367          I
          -FEAT129  -FCC1289X 
 DPCLOSE            BX6    X2*X1                                                           FEAT129       77          I
          -FCC1289X 
 DPCLOSE            IX6    X6+X5                                                           FEAT129       78          I
          -FCC1289X 
 DPCLOSE            IX6    X6+X7                                                           FEAT129       79          I
          -FCC1289X 
 DPCLOSE            SA6    A5                UPDATE ECT ENTRY                              DPCLOSE     1368          I
          -FCC1289X 
 DPCLOSE            NZ     B6,DEI1                                                         DPCLOSE     1369          I
          -FCC1289X 
 DPCLOSE            EQ     DEI                                                             DPCLOSE     1370          I
          -FCC1289X 
 DPCLOSE            TITLE              SCAN 4 - SET BITS IN DIMTAB AND SYMTAB              DPCLOSE     1371          I
          -FCC1289X 
 DPCLOSE  ***                                                                              DPCLOSE     1372          I
          -FEAT129  -FCC1289X 
 DPCLOSE  *         SCAN 4 - SET BITS AND FIELDS IN SYMTAB AND DIMTAB                      DPCLOSE     1373          I
          -FEAT129  -FCC1289X 
 DPCLOSE  **        SCAN 4 - SET BITS AND FIELDS IN SYMTAB AND DIMTAB                      FEAT129       80          I
          -FCC1289X 
 DPCLOSE  *         FORM LAT FOR LOCAL CLASS"S                                             DPCLOSE     1374          I
          -FCC1289X 
 DPCLOSE  *                                                                                DPCLOSE     1375          I
          -FCC1289X 
 DPCLOSE   EQVD0    SA1    O.LAT                                                           DPCLOSE     1376          I
          -FCC1289X 
 DPCLOSE            SA2    L.LAT                                                           DPCLOSE     1377          I
          -FCC1289X 
 DPCLOSE            SA3    O.ECT                                                           DPCLOSE     1378          I
          -FCC1289X 
 DPCLOSE            BX6    X6-X6                                                           DPCLOSE     1379          I
          -FCC1289X 
 DPCLOSE            SA6    TEMPREG                                                         DPCLOSE     1380          I
          -FCC1289X 
 DPCLOSE            SB1    X1                INDEX                                         DPCLOSE     1381          I
          -FCC1289X 
 DPCLOSE            SB2    B1+X2             LIMIT                                         DPCLOSE     1382          I
          -FCC1289X 
 DPCLOSE            SB3    X1                STORE ADDRESS                                 DPCLOSE     1383          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1384          I
          -FCC1289X 
 DPCLOSE   EQVD.R   SA4    SYM1                                                            DPCLOSE     1385          I
          -FCC1289X 
 DPCLOSE            SA5    X3                A5,X5 = CURRENT ECT ENTRY                     DPCLOSE     1386          I
          -FCC1289X 
 DPCLOSE            SA0    X4                A0 = SYM1                                     DPCLOSE     1387          I
          -FCC1289X 
 DPCLOSE            SA1    O.DIM                                                           DPCLOSE     1388          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2440    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SB4    X1-2              B4 = O.DIM-2                                  DPCLOSE     1389          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1390          I
          -FCC1289X 
 DPCLOSE   EQVD     SA1    B1                LAT ENTRY                                     DPCLOSE     1391          I
          -FCC1289X 
 DPCLOSE            MX0    L.DIMP                                                          DPCLOSE     1392          I
          -FCC1289X 
 DPCLOSE            LX0    L.DIMP+P.DIMP                                                   DPCLOSE     1393          I
          -FCC1289X 
 DPCLOSE            SX7    A5                                                              FEAT129       81          I
          -FCC1289X 
 DPCLOSE            SA3    O.ECT                                                           FEAT129       82          I
          -FCC1289X 
 DPCLOSE            IX6    X7-X3                                                           FEAT129       83          I
          -FCC1289X 
 DPCLOSE            SA3    L.EOT                                                           FEAT129       84          I
          -FCC1289X 
 DPCLOSE            SA4    O.EOT                                                           FEAT129       85          I
          -FCC1289X 
 DPCLOSE            SX7    X3+B5                                                           FEAT129       86          I
          -FCC1289X 
 DPCLOSE            IX4    X4+X3                                                           FEAT129       87          I
          -FCC1289X 
 DPCLOSE            SA7    A3          INCREMENT L.EOT                                     FEAT129       88          I
          -FCC1289X 
 DPCLOSE            SA6    X4          INITIALIZE EOT(N)                                   FEAT129       89          I
          -FCC1289X 
 DPCLOSE            NZ     X1,EQVD2          IF CLASS IS IN COMMON                         DPCLOSE     1394          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1395          I
          -FCC1289X 
 DPCLOSE  *         LOCAL CLASS                                                            DPCLOSE     1396          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1397          I
          -FCC1289X 
 DPCLOSE            BX7    X5                                                              DPCLOSE     1398          I
          -FCC1289X 
 DPCLOSE            SA7    B3                LAT(I) = ECT ENTRY                            DPCLOSE     1399          I
          -FCC1289X 
 DPCLOSE            SB6    X5                B6 = N.MEMBERS                                DPCLOSE     1400          I
          -FCC1289X 
 DPCLOSE            AX5    18-1                                                            DPCLOSE     1401          I
          -FCC1289X 
 DPCLOSE            SX4    V.DEF                                                           DPCLOSE     1402          I
          -FCC0711  -FCC1289X 
 DPCLOSE            SB7    X5                2*SYMORD                                      DPCLOSE     1403          I
          -FCC0711  -FCC1289X 
 DPCLOSE            SA1    A0-B7             WORD A                                        DPCLOSE     1404          I
          -FCC0711  -FCC1289X 
 DPCLOSE            SB7    X5+B5                                                           FCC0711       51          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2441    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SX3    X5                                                              DPCLOSE     1405          I
          -FCC1289X 
 DPCLOSE            BX6    X1+X4             SET DEF BIT IN BASE MEMBER                    DPCLOSE     1406          I
          -FCC0711  -FCC1289X 
 DPCLOSE            AX5    18+1              SPAN                                          DPCLOSE     1407          I
          -FCC1289X 
 DPCLOSE            SA6    A1                                                              DPCLOSE     1408          I
          -FCC0711  -FCC1289X 
 DPCLOSE            SB3    B3+B5             UPDATE STORE INDEX                            DPCLOSE     1409          I
          -FCC1289X 
 DPCLOSE            SA1    A1-B5             WORD B                                        DPCLOSE     1410          I
          -FCC0711  -FCC1289X 
 DPCLOSE            SA1    A0-B7       WORD B                                              FCC0711       52          I
          -FCC1289X 
 DPCLOSE            BX2    X0*X1                                                           DPCLOSE     1411          I
          -FCC1289X 
 DPCLOSE            AX2    P.DIMP-1          DIMP INDEX                                    DPCLOSE     1412          I
          -FCC1289X 
 DPCLOSE            LX3    36-1                                                            DPCLOSE     1413          I
          -FCC1289X 
 DPCLOSE            MX6    1                                                               DPCLOSE     1414          I
          -FCC1289X 
 DPCLOSE            BX3    X3+X6                                                           DPCLOSE     1415          I
          -FCC1289X 
 DPCLOSE            SA4    DATA..                                                          DPCLOSE     1416          I
          -FCC1289X 
 DPCLOSE            BX3    X3+X4             SKELETON TO BE PLACED IN DIMTAB               DPCLOSE     1417          I
          -FCC1289X 
 DPCLOSE            IX7    X4+X5                                                           DPCLOSE     1418          I
          -FCC1289X 
 DPCLOSE            SA7    A4                UPDATE BLOCK LENGTH                           DPCLOSE     1419          I
          -FCC1289X 
 DPCLOSE            MX7    18                                                              DPCLOSE     1420          I
          -FCC1289X 
 DPCLOSE            LX7    18+18                                                           DPCLOSE     1421          I
          -FCC1289X 
 DPCLOSE            BX6    -X7*X3                                                          DPCLOSE     1422          I
          -FCC1289X 
 DPCLOSE            LX5    18                                                              DPCLOSE     1423          I
          -FCC1289X 
 DPCLOSE            BX6    X5+X6             1/1,23/0,18/SPAN,18/RA                        DPCLOSE     1424          I
          -FCC1289X 
 DPCLOSE            MX7    0                                                               FEAT129       90          I
          -FCC1289X 
 DPCLOSE            SA6    X2+B4             WORD 1 OF DIM ENTRY FOR BASE                  DPCLOSE     1425          I
          -FCC1289X 
 DPCLOSE            SX4    V.DEF+V.EQU                                                     DPCLOSE     1426          I
          -FCC0711  -FCC1289X 
 DPCLOSE            SX4    V.EQU                                                           FCC0711       53          I
          -FCC1289X 
 DPCLOSE            RJ     DEI               SET BITS FOR CLASS MEMBERS                    DPCLOSE     1427          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2442    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1428          I
          -FCC1289X 
 DPCLOSE   EQVD1    SB1    B1+B5                                                           DPCLOSE     1429          I
          -FCC1289X 
 DPCLOSE            SA5    A5+B5             NEXT ECT                                      DPCLOSE     1430          I
          -FCC1289X 
 DPCLOSE            LT     B1,B2,EQVD        IF MORE CLASS S                               DPCLOSE     1431          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1432          I
          -FCC1289X 
 DPCLOSE   EQVD.X   SA1    O.LAT                                                           DPCLOSE     1433          I
          -FCC1289X 
 DPCLOSE            SX7    B3                                                              DPCLOSE     1434          I
          -FCC1289X 
 DPCLOSE            IX6    X7-X1                                                           DPCLOSE     1435          I
          -FCC1289X 
 DPCLOSE            SA6    L.LAT                                                           DPCLOSE     1436          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1437          I
          -FCC1289X 
 DPCLOSE            SA1    TEMPREG                                                         DPCLOSE     1438          I
          -FCC1289X 
 DPCLOSE            ZR     X1,EQVDZ          IF NO ILLEGAL EXTENSIONS                      DPCLOSE     1439          I
          -FEAT129  -FCC1289X 
 DPCLOSE            ZR     X1,EQVE     IF NO ILLEGAL EXTENSIONS                            FEAT129       91          I
          -FCC1289X 
 DPCLOSE            SA3    N.COM                                                           DPCLOSE     1440          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1441          I
          -FCC1289X 
 DPCLOSE   EQVDX1   SB2    =XORGTAB-1                                                      DPCLOSE     1442          I
          -FCC1289X 
 DPCLOSE            SA1    O.COM                                                           DPCLOSE     1443          I
          -FCC1289X 
 DPCLOSE            SB3    -B5                                                             DPCLOSE     1444          I
          -FCC1289X 
 DPCLOSE            SB4    X1                                                              DPCLOSE     1445          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1446          I
          -FCC1289X 
 DPCLOSE   EQVDY    ZR     X3,EQVDZ          IF ALL COMMON BLOCKS CHECKED                  DPCLOSE     1447          I
          -FEAT129  -FCC1289X 
 DPCLOSE   EQVDY    ZR     X3,EQVE     IF ALL COMMON BLOCKS CHECKED                        FEAT129       92          I
          -FCC1289X 
 DPCLOSE            SA2    X3+B2                                                           DPCLOSE     1448          I
          -FCC1289X 
 DPCLOSE            SX3    X3+B3                                                           DPCLOSE     1449          I
          -FCC1289X 
 DPCLOSE            SA5    X2+B4                                                           DPCLOSE     1450          I
          -FCC1289X 
 DPCLOSE            LX5    59-55                                                           DPCLOSE     1451          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2443    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            PL     X5,EQVDY          IF NO ILLEGAL EXTENSION OCCURRED              DPCLOSE     1452          I
          -FCC1289X 
 DPCLOSE            BX6    X3                                                              DPCLOSE     1453          I
          -FCC1289X 
 DPCLOSE            MX0    42                                                              DPCLOSE     1454          I
          -FCC1289X 
 DPCLOSE            SX3    1R                                                              DPCLOSE     1455          I
          -FCC1289X 
 DPCLOSE            BX4    X2*X0             ISOLATE BLOCK NAME                            DPCLOSE     1456          I
          -FCC1289X 
 DPCLOSE            LX4    -12                                                             DPCLOSE     1457          I
          -FCC1289X 
 DPCLOSE            BX7    X4+X3                                                           DPCLOSE     1458          I
          -FCC1289X 
 DPCLOSE            SA6    TEMPREG           SAVE LOOP COUNTER                             DPCLOSE     1459          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1460          I
          -FCC1289X 
 DPCLOSE            POSTERR NR=E.EQVL,SEV=FE,FMT=DPC,TXT=X7                                DPCLOSE     1461          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1462          I
          -FCC1289X 
 DPCLOSE            SA3    TEMPREG           RESTORE LOOP COUNTER                          DPCLOSE     1463          I
          -FCC1289X 
 DPCLOSE            EQ     EQVDX1                                                          DPCLOSE     1464          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1465          I
          -FCC1289X 
 DPCLOSE   EQVDZ    SA4    L.EQV                                                           DPCLOSE     1466          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SA5    R=FLAG                                                          DPCLOSE     1467          I
          -FEAT129  -FCC1289X 
 DPCLOSE            MX7    0                                                               DPCLOSE     1468          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SA7    A4                                                              DPCLOSE     1469          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SX5    X5-3                                                            DPCLOSE     1470          I
          -FEAT129  -FCC1289X 
 DPCLOSE            NZ     X5,EQV            IF R " 3                                      DPCLOSE     1471          I
          -FEAT129  -FCC1289X 
 DPCLOSE            AX7    B5,X4                                                           DPCLOSE     1472          I
          -FEAT129  -FCC1289X 
 DPCLOSE            BX1    X7                                                              DPCLOSE     1473          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SA7    L.EQV             SAVE TABLE FOR PRINT OUT                      DPCLOSE     1474          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SA7    S.EQV                                                           DPCLOSE     1475          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SA2    O.ECT                                                           DPCLOSE     1476          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SA3    O.EQV                                                           DPCLOSE     1477          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2444    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FEAT129  -FCC1289X 
 DPCLOSE            MOVE   X1,X2,X3          ECT BACK TO EQUIV AREA                        DPCLOSE     1478          I
          -FEAT129  -FCC1289X 
 DPCLOSE            EQ     EQV               FINI                                          DPCLOSE     1479          I
          -FEAT129  -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1480          I
          -FEAT129  -FCC1289X 
 DPCLOSE  *         CLASS IS IN COMMON                                                     DPCLOSE     1481          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1482          I
          -FCC1289X 
 DPCLOSE   EQVD2    SA2    O.ECT                                                           DPCLOSE     1483          I
          -FCC1289X 
 DPCLOSE            IX4    X1+X1                                                           DPCLOSE     1484          I
          -FCC1289X 
 DPCLOSE            SB6    X1                                                              FCC0580       87          I
          -FCC1289X 
 DPCLOSE            NG     X4,EQVD.E3        IF A LEVEL EQUIVALENCE ERROR                  DPCLOSE     1485          I
          -FCC1289X 
 DPCLOSE            SB6    X1-1                                                            DPCLOSE     1486          I
          -FCC0580  -FCC1289X 
 DPCLOSE            SB6    B6-B5                                                           FCC0580       88          I
          -FCC1289X 
 DPCLOSE            SA2    X2+B6             ECT ENTRY FOR ELEMENT IN COMMON               DPCLOSE     1487          I
          -FCC1289X 
 DPCLOSE            NG     X1,EQVD.E1        IF ERRORS                                     DPCLOSE     1488          I
          -FCC1289X 
 DPCLOSE            IX4    X2-X5                                                           DPCLOSE     1489          I
          -FCC1289X 
 DPCLOSE            ZR     X4,EQVD4          IF BASE IF IN COMMON                          DPCLOSE     1490          I
          -FEAT129  -FCC1289X 
 DPCLOSE            ZR     X4,EQVD4    IF BASE IS IN COMMON                                FEAT129       93          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1491          I
          -FCC1289X 
 DPCLOSE  *         REARRANGE ECT FOR THIS CLASS SO WE CAN CALL DEI                        DPCLOSE     1492          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1493          I
          -FCC1289X 
 DPCLOSE            SX4    X2                X4 = BIAS OF COMMON ELEMENT                   DPCLOSE     1494          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1495          I
          -FCC1289X 
 DPCLOSE  *         SWAP BASE AND COMMON MEMBER                                            DPCLOSE     1496          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1497          I
          -FCC1289X 
 DPCLOSE            MX3    18                                                              DPCLOSE     1498          I
          -FCC1289X 
 DPCLOSE            LX3    18+18                                                           DPCLOSE     1499          I
          -FCC1289X 
 DPCLOSE            BX7    X3*X5             SYMORD OF BASE                                DPCLOSE     1500          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2445    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SA7    A2                                                              DPCLOSE     1501          I
          -FCC1289X 
 DPCLOSE            BX5    -X3*X5            SPAN + N.MEMBERS                              DPCLOSE     1502          I
          -FCC1289X 
 DPCLOSE            BX2    X3*X2             SYMORD OF COMMON                              DPCLOSE     1503          I
          -FEAT129  -FCC1289X 
 DPCLOSE            BX2    X3*X2       SYMORD OF CLASS                                     FEAT129       94          I
          -FCC1289X 
 DPCLOSE            IX7    X2+X5                                                           DPCLOSE     1504          I
          -FCC1289X 
 DPCLOSE            MX6    1                                                               DPCLOSE     1505          I
          -FCC1289X 
 DPCLOSE            BX7    X6+X7                                                           DPCLOSE     1506          I
          -FCC1289X 
 DPCLOSE            SA7    A5                NEW BASE                                      DPCLOSE     1507          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1508          I
          -FCC1289X 
 DPCLOSE  *         X4 = BIAS OF COMMON ELEMENT , X5 = ECT WORD , X2 = SYMORD OF C         DPCLOSE     1509          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1510          I
          -FCC1289X 
 DPCLOSE   EQVD4    AX5    36                                                              DPCLOSE     1511          I
          -FCC1289X 
 DPCLOSE            SX5    X5                X5 = SPAN                                     DPCLOSE     1512          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1513          I
          -FCC1289X 
 DPCLOSE            AX2    18-1                                                            DPCLOSE     1514          I
          -FCC1289X 
 DPCLOSE            SB6    X2+B5                                                           DPCLOSE     1515          I
          -FCC1289X 
 DPCLOSE            SA1    A0-B6             WORD B OF COMMON ELEMENT                      DPCLOSE     1516          I
          -FCC1289X 
 DPCLOSE            MX3    L.RB                                                            DPCLOSE     1517          I
          -FCC1289X 
 DPCLOSE            LX3    L.RB+P.RB                                                       DPCLOSE     1518          I
          -FCC1289X 
 DPCLOSE            BX7    X3*X1             SAVE WORD B BITS TO BE SET                    DPCLOSE     1519          I
          -FCC1289X 
 DPCLOSE            SA7    TEMPC             FOR LOCAL CLASS MEMBERS                       DPCLOSE     1520          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1521          I
          -FCC1289X 
 DPCLOSE            BX2    X0*X1                                                           DPCLOSE     1522          I
          -FCC1289X 
 DPCLOSE            AX2    P.DIMP-1          DIMP INDEX                                    DPCLOSE     1523          I
          -FCC1289X 
 DPCLOSE            SA3    X2+B4             WORD 1 OF DIM                                 DPCLOSE     1524          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1525          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2446    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            AX7    P.RB                                                            DPCLOSE     1526          I
          -FCC1289X 
 DPCLOSE            SA1    ORGTAB-1+X7                                                     DPCLOSE     1527          I
          -FCC1289X 
 DPCLOSE            SA2    O.COM                                                           DPCLOSE     1528          I
          -FCC1289X 
 DPCLOSE            SX3    X3                X3 = RA OF COMMON ELEMENT                     DPCLOSE     1529          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1530          I
          -FCC1289X 
 DPCLOSE            IX4    X3-X4             X4 = BIAS DUE TO EQV                          DPCLOSE     1531          I
          -FCC1289X 
 DPCLOSE  *                                  = A(C) - BIAS(C)                              DPCLOSE     1532          I
          -FCC1289X 
 DPCLOSE            NG     X4,EQVD.E2        IF AN ILLEGAL EXTENSION                       DPCLOSE     1533          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1534          I
          -FCC1289X 
 DPCLOSE            SX6    A5                                                              DPCLOSE     1535          I
          -FCC1289X 
 DPCLOSE            LX6    18                                                              DPCLOSE     1536          I
          -FCC1289X 
 DPCLOSE            BX6    X6+X4             SAVE FWA OF CLASS AND BIAS                    DPCLOSE     1537          I
          -FCC1289X 
 DPCLOSE            SA6    B1                IN LAT ENTRY                                  DPCLOSE     1538          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1539          I
          -FCC1289X 
 DPCLOSE  *         COMPUTE NEW BLOCK LENGTH                                               DPCLOSE     1540          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1541          I
          -FCC1289X 
 DPCLOSE            IX2    X1+X2                                                           DPCLOSE     1542          I
          -FCC1289X 
 DPCLOSE            SA1    X2                BLOCK PREFIX WORD                             DPCLOSE     1543          I
          -FCC1289X 
 DPCLOSE            MX2    17                                                              DPCLOSE     1544          I
          -FCC1289X 
 DPCLOSE            LX2    17+36                                                           DPCLOSE     1545          I
          -FCC1289X 
 DPCLOSE            BX7    X2*X1             X7 = BLOCK LEN S36                            DPCLOSE     1546          I
          -FCC1289X 
 DPCLOSE            BX1    -X2*X1                                                          DPCLOSE     1547          I
          -FCC1289X 
 DPCLOSE            IX5    X4+X5             SPAN+A(C)-BIAS(C)                             DPCLOSE     1548          I
          -FCC1289X 
 DPCLOSE            SX5    X5                                                              DPCLOSE     1549          I
          -FCC1289X 
 DPCLOSE            MX6    0                                                               DPCLOSE     1550          I
          -FCC1289X 
 DPCLOSE            PL     X5,EQVD4A         IF LENGTH WITHIN BOUNDS                       DPCLOSE     1551          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2447    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            MX6    1                                                               DPCLOSE     1552          I
          -FCC1289X 
 DPCLOSE            SX5    377777B           SET LENGTH TO MAX VALUE                       DPCLOSE     1553          I
          -FCC1289X 
 DPCLOSE            SA6    TEMPREG           FLAG OCCURRENCE OF ILLEGAL EXTENSION          DPCLOSE     1554          I
          -FCC1289X 
 DPCLOSE            LX6    1+55              BIT 54 OF HEADER FLAGS EXTENSION              DPCLOSE     1555          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1556          I
          -FCC1289X 
 DPCLOSE   EQVD4A   LX5    36                                                              DPCLOSE     1557          I
          -FCC1289X 
 DPCLOSE            MX3    X5*X7             BLK LEN = MAX( BLK LEN , X5 )                 DPCLOSE     1558          I
          -FEAT129  -FCC1289X 
 DPCLOSE            IX7    X7-X5                                                           FEAT129       95          I
          -FCC1289X 
 DPCLOSE            PL     X7,EQVD4B                                                       FEAT129       96          I
          -FCC1289X 
 DPCLOSE            BX3    X5                                                              FEAT129       97          I
          -FCC1289X 
 DPCLOSE            BX7    X3+X1                                                           DPCLOSE     1559          I
          -FCC1289X 
 DPCLOSE            BX7    X7+X6                                                           DPCLOSE     1560          I
          -FCC1289X 
 DPCLOSE            SA7    A1                UPDATE                                        DPCLOSE     1561          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SA5    A5                REFETCH ECT ENTRY                             DPCLOSE     1562          I
          -FEAT129  -FCC1289X 
 DPCLOSE            BX7    -X2*X5                                                          DPCLOSE     1563          I
          -FEAT129  -FCC1289X 
 DPCLOSE            IX7    X3+X7             UPDATE EQUIV CLASS LEN                        DPCLOSE     1564          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SA7    A5                                                              DPCLOSE     1565          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SA7    A1          UPDATE BLOCK PREFIX WORD                            FEAT129       98          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1566          I
          -FCC1289X 
 DPCLOSE  *         FORM AND STORE SKELETON FOR LOCAL MEMBERS.                             DPCLOSE     1567          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1568          I
          -FCC1289X 
 DPCLOSE            SA3    A1+B5             FIRST BLOCK MEMBER                            DPCLOSE     1569          I
          -FEAT129  -FCC1289X 
 DPCLOSE   EQVD4B   SA3    A1+B5       FIRST BLOCK MEMBER                                  FEAT129       99          I
          -FCC1289X 
 DPCLOSE            BX5    X4                                                              DPCLOSE     1570          I
          -FEAT129  -FCC1289X 
 DPCLOSE            LX3    18                                                              DPCLOSE     1571          I
          -FCC1289X 
 DPCLOSE            BX3    X2*X3             SYMORD                                        DPCLOSE     1572          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2448    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            LX4    18                                                              DPCLOSE     1573          I
          -FEAT129  -FCC1289X 
 DPCLOSE            IX7    X4+X5                                                           DPCLOSE     1574          I
          -FEAT129  -FCC1289X 
 DPCLOSE            BX7    X7+X3             6/0,18/SYMORD,18/BIASE,18/BIASE               DPCLOSE     1575          I
          -FEAT129  -FCC1289X 
 DPCLOSE            BX7    X4+X3       6/0,18/SYMORD,18/0,18/BIASE                         FEAT129      100          I
          -FCC1289X 
 DPCLOSE            SA7    TEMPC+1           SAVE DIM SKELETON                             DPCLOSE     1576          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1577          I
          -FCC1289X 
 DPCLOSE  *         SET BIT 59 SO THE DATA PROCESSOR CAN TELL THAT THE NAME IS             DPCLOSE     1578          I
          -FCC1289X 
 DPCLOSE  *         IN AN EQUIVALENCE CLASS                                                DPCLOSE     1579          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1580          I
          -FCC1289X 
 DPCLOSE            AX7    36-1                                                            DPCLOSE     1581          I
          -FCC1289X 
 DPCLOSE            SB6    X7+B5                                                           DPCLOSE     1582          I
          -FCC1289X 
 DPCLOSE            SA4    A0-B6             WORD B OF BASE MEMBER                         DPCLOSE     1583          I
          -FCC1289X 
 DPCLOSE            MX6    1                                                               DPCLOSE     1584          I
          -FCC1289X 
 DPCLOSE            BX7    X0*X4                                                           DPCLOSE     1585          I
          -FCC1289X 
 DPCLOSE            AX7    P.DIMP-1          SET WORD 1 OF DIM ENTRY NEGATIVE TO           DPCLOSE     1586          I
          -FCC1289X 
 DPCLOSE            SA6    B4+X7             INDICATE THAT BLOCK IS IN AN EQUIV CL         DPCLOSE     1587          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1588          I
          -FCC1289X 
 DPCLOSE  *         LOOP ON COMTAB, SET EQU BIT IN SYMTAB, UPDATE DIMTAB ENTRIES           DPCLOSE     1589          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1590          I
          -FCC1289X 
 DPCLOSE            SX7    B1                                                              DPCLOSE     1591          I
          -FCC1289X 
 DPCLOSE            SA7    A7+B5             SAVE B1                                       DPCLOSE     1592          I
          -FCC1289X 
 DPCLOSE            SB7    X1                LINK                                          DPCLOSE     1593          I
          -FCC1289X 
 DPCLOSE            AX1    18                                                              DPCLOSE     1594          I
          -FCC1289X 
 DPCLOSE            SB6    X1-1              N.MEMS - 1                                    DPCLOSE     1595          I
          -FEAT129  -FCC1289X 
 DPCLOSE            BX5    X3                SYMORD S36                                    DPCLOSE     1596          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SB6    X1                                                              FEAT129      101          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2449    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SA3    A1                                                              FEAT129      102          I
          -FCC1289X 
 DPCLOSE            SX1    V.EQU                                                           DPCLOSE     1597          I
          -FEAT129  -FCC1289X 
 DPCLOSE            ZR     B6,EQVD6          IF ONLY 1 MEMBER IN FIRST APPEARENCE          DPCLOSE     1598          I
          -FEAT129  -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1599          I
          -FCC1289X 
 DPCLOSE   EQVD5    SA3    A3+B5             COMTAB WORD                                   DPCLOSE     1600          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SX6    X3                                                              DPCLOSE     1601          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SX7    X3                                                              DPCLOSE     1602          I
          -FEAT129  -FCC1289X 
 DPCLOSE            LX6    18                                                              DPCLOSE     1603          I
          -FEAT129  -FCC1289X 
 DPCLOSE            BX7    X6+X7             24/0,18/RA,18/RA                              DPCLOSE     1604          I
          -FEAT129  -FCC1289X 
 DPCLOSE            AX3    18-1                                                            DPCLOSE     1605          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SB1    X3                                                              DPCLOSE     1606          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SA2    A0-B1             WORD A                                        DPCLOSE     1607          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SA4    A2-B5             WORD B                                        DPCLOSE     1608          I
          -FEAT129  -FCC1289X 
 DPCLOSE            IX7    X7+X5                                                           DPCLOSE     1609          I
          -FEAT129  -FCC1289X 
 DPCLOSE            BX6    X1+X2                                                           DPCLOSE     1610          I
          -FEAT129  -FCC1289X 
 DPCLOSE   EQVD5    ZR     B6,EQVD6    IF ALL MEMBERS PROCESSED                            FEAT129      103          I
          -FCC1289X 
 DPCLOSE            SB6    B6-B5                                                           FEAT129      104          I
          -FCC1289X 
 DPCLOSE            SA3    A3+B5       COMTAB WORD                                         FEAT129      105          I
          -FCC1289X 
 DPCLOSE            SA4    TEMPC+2                                                         FEAT129      106          I
          -FCC1289X 
 DPCLOSE            BX6    X3                                                              FEAT129      107          I
          -FCC1289X 
 DPCLOSE            SX3    X3          RA                                                  FEAT129      108          I
          -FCC1289X 
 DPCLOSE            AX6    18-1                                                            FEAT129      109          I
          -FCC1289X 
 DPCLOSE            SA4    X4                                                              FEAT129      110          I
          -FCC1289X 
 DPCLOSE            SB1    X6+B5                                                           FEAT129      111          I
          -FCC1289X 
 DPCLOSE            SA5    A5          ECT BLOCK HEADER WORD                               FEAT129      112          I
          -FCC1289X 
 DPCLOSE            SA2    A0-B1       WORD B OF COMMON MEMBER SYMTAB                      FEAT129      113          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2450    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            BX6    X5                                                              FEAT129      114          I
          -FCC1289X 
 DPCLOSE            BX7    X0*X2                                                           FEAT129      115          I
          -FCC1289X 
 DPCLOSE            LX6    -36                                                             FEAT129      116          I
          -FCC1289X 
 DPCLOSE            SB1    X4          (FWA)                                               FEAT129      117          I
          -FCC1289X 
 DPCLOSE            AX7    P.DIMP-1                                                        FEAT129      118          I
          -FCC1289X 
 DPCLOSE            SX4    X7+B4                                                           FEAT129      119          I
          -FCC1289X 
 DPCLOSE            SX6    X6+B1                                                           FEAT129      120          I
          -FCC1289X 
 DPCLOSE            SA4    X4+B5       WORD B OF DIMTAB ENTRY OF COMMON MEMBER             FEAT129      121          I
          -FCC1289X 
 DPCLOSE            SB1    -B1         (-FWA)                                              FEAT129      122          I
          -FCC1289X 
 DPCLOSE            LX4    18+6                                                            FEAT129      123          I
          -FCC1289X 
 DPCLOSE            SX6    X6-1        LWA                                                 FEAT129      124          I
          -FCC1289X 
 DPCLOSE            SX4    X4                                                              FEAT129      125          I
          -FCC1289X 
 DPCLOSE            NZ     X4,EQVD5E         IF REALLY DIMENSIONED                         FEAT129      126          I
          -FCC1289X 
 DPCLOSE            SX4    B5                                                              FEAT129      127          I
          -FCC1289X 
 DPCLOSE   EQVD5E   SX7    X3+B1                                                           FEAT129      128          I
          -FCC1289X 
 DPCLOSE            IX4    X3+X4       RA + LENGTH                                         FEAT129      129          I
          -FCC1289X 
 DPCLOSE            SX4    X4-1        LWA OF MEMBER                                       FEAT129      130          I
          -FCC1289X 
 DPCLOSE            PL     X7,EQVD5A   IF RA .GE. FWA                                      FEAT129      131          I
          -FCC1289X 
 DPCLOSE            SX7    X4+B1                                                           FEAT129      132          I
          -FCC1289X 
 DPCLOSE            MI     X7,EQVD5    IF RA + LENGTH .LT.FWA                              FEAT129      133          I
          -FCC1289X 
 DPCLOSE            EQ     EQVD5B                                                          FEAT129      134          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      135          I
          -FCC1289X 
 DPCLOSE   EQVD5A   IX7    X6-X3                                                           FEAT129      136          I
          -FCC1289X 
 DPCLOSE            MI     X7,EQVD5    IF RA .GT. LWA                                      FEAT129      137          I
          -FCC1289X 
 DPCLOSE            IX7    X4-X6                                                           FEAT129      138          I
          -FCC1289X 
 DPCLOSE            MI     X7,EQVD5C   IF RA + LENGTH .LT. LWA                             FEAT129      139          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2451    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            ZR     X7,EQVD5C   IF RA + LENGTH .EQ. LWA                             FEAT129      140          I
          -FCC1289X 
 DPCLOSE   EQVD5B   LX7    36                                                              FEAT129      141          I
          -FCC1289X 
 DPCLOSE            IX6    X5+X7                                                           FEAT129      142          I
          -FCC1289X 
 DPCLOSE            SA6    A5                                                              FEAT129      143          I
          -FCC1289X 
 DPCLOSE   EQVD5C   SA4    A2+B5       WORD A OF SYMTAB OF MEMBER                          FEAT129      144          I
          -FCC1289X 
 DPCLOSE            BX6    X0*X2                                                           FEAT129      145          I
          -FCC1289X 
 DPCLOSE            AX6    P.DIMP-1                                                        FEAT129      146          I
          -FCC1289X 
 DPCLOSE            SX7    -B1                                                             FEAT129      147          I
          -FCC1289X 
 DPCLOSE            SA2    X6+B4       DIMTAB OF MEMBER                                    FEAT129      148          I
          -FCC1289X 
 DPCLOSE            SX2    X2                                                              FEAT129      149          I
          -FCC1289X 
 DPCLOSE            IX6    X2-X7                                                           FEAT129      150          I
          -FCC1289X 
 DPCLOSE            MX7    18                                                              FEAT129      151          I
          -FCC1289X 
 DPCLOSE            LX7    18+18                                                           FEAT129      152          I
          -FCC1289X 
 DPCLOSE            BX1    X7*X5                                                           FEAT129      153          I
          -FCC1289X 
 DPCLOSE            ZR     X6,EQVD5F                                                       FEAT129      154          I
          -FCC1289X 
 DPCLOSE            PL     X6,EQVD5D   IF POSITIVE BIAS                                    FEAT129      155          I
          -FCC1289X 
 DPCLOSE            SA4    TEMPC+2                                                         FEAT129      156          I
          -FCC1289X 
 DPCLOSE            BX6    -X6                                                             FEAT129      157          I
          -FCC1289X 
 DPCLOSE            BX2    X6                                                              FEAT129      158          I
          -FCC1289X 
 DPCLOSE            LX2    36                                                              FEAT129      159          I
          -FCC1289X 
 DPCLOSE            IX5    X5+X2                                                           FEAT129      160          I
          -FCC1289X 
 DPCLOSE            LX6    18                                                              FEAT129      161          I
          -FCC1289X 
 DPCLOSE            IX6    X6+X4                                                           FEAT129      162          I
          -FCC1289X 
 DPCLOSE            SA6    A4                                                              FEAT129      163          I
          -FCC1289X 
 DPCLOSE            AX6    18                                                              FEAT129      164          I
          -FCC1289X 
 DPCLOSE            SA4    X4                                                              FEAT129      165          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2452    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            IX6    X4-X6                                                           FEAT129      166          I
          -FCC1289X 
 DPCLOSE            SA6    A4          UPDATE FWA IN LAT                                   FEAT129      167          I
          -FCC1289X 
 DPCLOSE            SA4    A3                                                              FEAT129      168          I
          -FCC1289X 
 DPCLOSE            BX2    X7*X4                                                           FEAT129      169          I
          -FCC1289X 
 DPCLOSE            BX7    -X7*X5                                                          FEAT129      170          I
          -FCC1289X 
 DPCLOSE            IX7    X7+X2                                                           FEAT129      171          I
          -FCC1289X 
 DPCLOSE            SA7    A5          UPDATE ECT WITH NEW BASE                            FEAT129      172          I
          -FCC1289X 
 DPCLOSE            LX2    18                                                              FEAT129      173          I
          -FCC1289X 
 DPCLOSE            IX6    X2+X3                                                           FEAT129      174          I
          -FCC1289X 
 DPCLOSE            SA6    A2                                                              DPCLOSE     1611          I
          -FCC1289X 
 DPCLOSE            BX4    X0*X4                                                           DPCLOSE     1612          I
          -FEAT129  -FCC1289X 
 DPCLOSE            AX4    P.DIMP-1          DIMP INDEX                                    DPCLOSE     1613          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SB6    B6-B5                                                           DPCLOSE     1614          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SA7    X4+B4             NEW DIM ENTRY                                 DPCLOSE     1615          I
          -FEAT129  -FCC1289X 
 DPCLOSE            NZ     B6,EQVD5          IF MORE MEMBERS                               DPCLOSE     1616          I
          -FEAT129  -FCC1289X 
 DPCLOSE            EQ     EQVD5                                                           FEAT129      175          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      176          I
          -FCC1289X 
 DPCLOSE   EQVD5F   SA3    A3                                                              FEAT129      177          I
          -FCC1289X 
 DPCLOSE            BX2    X7*X3                                                           FEAT129      178          I
          -FCC1289X 
 DPCLOSE            BX7    -X7*X5                                                          FEAT129      179          I
          -FCC1289X 
 DPCLOSE            IX7    X7+X2                                                           FEAT129      180          I
          -FCC1289X 
 DPCLOSE            SA7    A5                                                              FEAT129      181          I
          -FCC1289X 
 DPCLOSE            SX3    X3                                                              FEAT129      182          I
          -FCC1289X 
 DPCLOSE   EQVD5D   LX1    18                                                              FEAT129      183          I
          -FCC1289X 
 DPCLOSE            BX7    X3+X1                                                           FEAT129      184          I
          -FCC1289X 
 DPCLOSE            SA7    A2          NEW DIM ENTRY                                       FEAT129      185          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2453    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            ZR     X6,EQVD5    IF ZERO BIAS                                        FEAT129      186          I
          -FCC1289X 
 DPCLOSE            SX7    V.EQU                                                           FEAT129      187          I
          -FCC1289X 
 DPCLOSE            BX6    X7+X4                                                           FEAT129      188          I
          -FCC1289X 
 DPCLOSE            SA6    A4          UPDATE SYMTAB ENTRY                                 FEAT129      189          I
          -FCC1289X 
 DPCLOSE            EQ     EQVD5                                                           FEAT129      190          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1617          I
          -FCC1289X 
 DPCLOSE   EQVD6    ZR     B7,EQVD7          IF FINISHED                                   DPCLOSE     1618          I
          -FCC1289X 
 DPCLOSE            SA1    A1+B7             NEXT HEADER                                   DPCLOSE     1619          I
          -FCC1289X 
 DPCLOSE            SA3    A1                ADJUST A3                                     DPCLOSE     1620          I
          -FCC1289X 
 DPCLOSE            SB7    X1                LINK                                          DPCLOSE     1621          I
          -FCC1289X 
 DPCLOSE            AX1    18                                                              DPCLOSE     1622          I
          -FCC1289X 
 DPCLOSE            SB6    X1                N.MEMS                                        DPCLOSE     1623          I
          -FCC1289X 
 DPCLOSE            SX1    V.EQU                                                           DPCLOSE     1624          I
          -FEAT129  -FCC1289X 
 DPCLOSE            EQ     EQVD5                                                           DPCLOSE     1625          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1626          I
          -FCC1289X 
 DPCLOSE   EQVD7    SA1    TEMPC+2           RESTORE B1                                    DPCLOSE     1627          I
          -FCC1289X 
 DPCLOSE            SB1    X1                                                              DPCLOSE     1628          I
          -FCC1289X 
 DPCLOSE            AX1    18                                                              FEAT129      191          I
          -FCC1289X 
 DPCLOSE            SX7    X1                                                              FEAT129      192          I
          -FCC1289X 
 DPCLOSE            SA3    A1-B5             TEMPC+1  ( DIM SKELETON )                     DPCLOSE     1629          I
          -FCC1289X 
 DPCLOSE            SA5    A5                AND A5                                        DPCLOSE     1630          I
          -FCC1289X 
 DPCLOSE            SB6    X5                N.MEMBERS                                     DPCLOSE     1631          I
          -FCC1289X 
 DPCLOSE            SX4    V.DEF+V.COM+V.EQU                                               DPCLOSE     1632          I
          -FCC1289X 
 DPCLOSE            RJ     DEI               SET BITS FOR CLASS MEMBERS                    DPCLOSE     1633          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1634          I
          -FCC1289X 
 DPCLOSE  *         UPDATE ECT ENTRIES BY ADDING IN BIAS DUE TO COMMON                     DPCLOSE     1635          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2454    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE  *         SET COMMON BITS IN WORD B OF SYMTAB ENTRIES                            DPCLOSE     1636          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1637          I
          -FCC1289X 
 DPCLOSE            SA1    B1                SAVED INFO 24/0,18/FWA,18/BIAS                DPCLOSE     1638          I
          -FCC1289X 
 DPCLOSE            SX7    X1                                                              DPCLOSE     1639          I
          -FEAT129  -FCC1289X 
 DPCLOSE            AX1    18                                                              DPCLOSE     1640          I
          -FCC1289X 
 DPCLOSE            MX4    18                                                              FEAT129      193          I
          -FCC1289X 
 DPCLOSE            SA2    X1                                                              FEAT129      194          I
          -FCC1289X 
 DPCLOSE            LX4    18+18                                                           FEAT129      195          I
          -FCC1289X 
 DPCLOSE            BX5    X4*X2                                                           FEAT129      196          I
          -FCC1289X 
 DPCLOSE            LX5    18                                                              FEAT129      197          I
          -FCC1289X 
 DPCLOSE            SA1    X1                FWA OF CLASS                                  DPCLOSE     1641          I
          -FCC1289X 
 DPCLOSE            SA4    TEMPC             COMMON BIT SKELETON                           DPCLOSE     1642          I
          -FCC1289X 
 DPCLOSE            SB6    X1                N.MEMBERS                                     DPCLOSE     1643          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1644          I
          -FCC1289X 
 DPCLOSE   EQVD8    SA1    A1+B5             MEMBER                                        DPCLOSE     1645          I
          -FCC1289X 
 DPCLOSE            SB6    B6-B5                                                           DPCLOSE     1646          I
          -FCC1289X 
 DPCLOSE            IX6    X7+X1             UPDATE BIAS                                   DPCLOSE     1647          I
          -FEAT129  -FCC1289X 
 DPCLOSE            SA6    A1                                                              DPCLOSE     1648          I
          -FEAT129  -FCC1289X 
 DPCLOSE            AX1    18-1                                                            DPCLOSE     1649          I
          -FCC1289X 
 DPCLOSE            SB7    X1+B5             2*ORD+1                                       DPCLOSE     1650          I
          -FCC1289X 
 DPCLOSE            SA3    A0-B7             WORD B                                        DPCLOSE     1651          I
          -FCC1289X 
 DPCLOSE            BX6    X4+X3                                                           DPCLOSE     1652          I
          -FCC1289X 
 DPCLOSE            SA6    A3                UPDATE                                        DPCLOSE     1653          I
          -FCC1289X 
 DPCLOSE            BX6    X0*X3                                                           FEAT129      198          I
          -FCC1289X 
 DPCLOSE            AX6    P.DIMP-1                                                        FEAT129      199          I
          -FCC1289X 
 DPCLOSE            SA2    X6+B4       DIMTAB ENTRY                                        FEAT129      200          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2455    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SX2    X2                                                              FEAT129      201          I
          -FCC1289X 
 DPCLOSE            BX6    X5+X2                                                           FEAT129      202          I
          -FCC1289X 
 DPCLOSE            SA6    A2                                                              FEAT129      203          I
          -FCC1289X 
 DPCLOSE            NZ     B6,EQVD8                                                        DPCLOSE     1654          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1655          I
          -FCC1289X 
 DPCLOSE            EQ     EQVD1                                                           DPCLOSE     1656          I
          -FCC1289X 
 DPCLOSE            TITLE  SCAN 5 - MERGE OVERLAPPING CLASSES                              FEAT129      204          I
          -FCC1289X 
 DPCLOSE  **        SCAN 5 - CHECK FOR OVERLAPPING EQUIVALENCE CLASSES.                    FEAT129      205          I
          -FCC1289X 
 DPCLOSE  *         UPDATE ECT AND DIMTAB AS NECESSARY.                                    FEAT129      206          I
          -FCC1289X 
 DPCLOSE  *                                                                                FEAT129      207          I
          -FCC1289X 
 DPCLOSE   EQVE     SA1    O.EOT                                                           FEAT129      208          I
          -FCC1289X 
 DPCLOSE            SA2    L.EOT                                                           FEAT129      209          I
          -FCC1289X 
 DPCLOSE            SA3    O.ECT                                                           FEAT129      210          I
          -FCC1289X 
 DPCLOSE            SB7    X1                                                              FEAT129      211          I
          -FCC1289X 
 DPCLOSE            SB6    X2                                                              FEAT129      212          I
          -FCC1289X 
 DPCLOSE            SX4    X2-2                                                            FEAT129      213          I
          -FCC1289X 
 DPCLOSE            PL     X4,EQVE0    IF L.EOT .GT. 1                                     FEAT129      214          I
          -FCC1289X 
 DPCLOSE            SB6    B6+B7                                                           FEAT129      215          I
          -FCC1289X 
 DPCLOSE            SA4    O.EQV                                                           FEAT129      216          I
          -FCC1289X 
 DPCLOSE            SA5    L.EQV                                                           FEAT129      217          I
          -FCC1289X 
 DPCLOSE            LX5    17                                                              FEAT129      218          I
          -FCC1289X 
 DPCLOSE            BX6    X5                                                              FEAT129      219          I
          -FCC1289X 
 DPCLOSE            SA6    X4                                                              FEAT129      220          I
          -FCC1289X 
 DPCLOSE            SB6    B6-B5                                                           FEAT129      221          I
          -FCC1289X 
 DPCLOSE            EQ     EQVE9                                                           FEAT129      222          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      223          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2456    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE   EQVE0    MX7    L.ECTI                                                          FEAT129      224          I
          -FCC1289X 
 DPCLOSE            SA4    O.DIM                                                           FEAT129      225          I
          -FCC1289X 
 DPCLOSE            LX7    L.ECTI                                                          FEAT129      226          I
          -FCC1289X 
 DPCLOSE            SB1    B0                                                              FEAT129      227          I
          -FCC1289X 
 DPCLOSE            SB2    X3                                                              FEAT129      228          I
          -FCC1289X 
 DPCLOSE            SB4    X4-2                                                            FEAT129      229          I
          -FCC1289X 
 DPCLOSE            MX0    L.DIMP                                                          FEAT129      230          I
          -FCC1289X 
 DPCLOSE            MX2    L.RB                                                            FEAT129      231          I
          -FCC1289X 
 DPCLOSE            LX0    L.DIMP+P.DIMP                                                   FEAT129      232          I
          -FCC1289X 
 DPCLOSE            LX2    L.RB+P.RB                                                       FEAT129      233          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      234          I
          -FCC1289X 
 DPCLOSE  *         SET-UP EOT         L.RB/RB,18/FWA,18/LWA,24-L.RB/ECTI                  FEAT129      235          I
          -FCC1289X 
 DPCLOSE  *                            FWA,LWA OF CLASS RELATIVE TO BLOCK                  FEAT129      236          I
          -FCC1289X 
 DPCLOSE  *                            ECTI - ECT INDEX                                    FEAT129      237          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      238          I
          -FCC1289X 
 DPCLOSE   EQVE1    SA1    B1+B7       EOT                                                 FEAT129      239          I
          -FCC1289X 
 DPCLOSE            BX4    X7*X1                                                           FEAT129      240          I
          -FCC1289X 
 DPCLOSE            SA3    X4+B2       ECT HEADER WORD                                     FEAT129      241          I
          -FCC1289X 
 DPCLOSE            AX3    18-1                                                            FEAT129      242          I
          -FCC1289X 
 DPCLOSE            SB3    X3+B5                                                           FEAT129      243          I
          -FCC1289X 
 DPCLOSE            SA4    A0-B3       WORD B OF SYMTAB                                    FEAT129      244          I
          -FCC1289X 
 DPCLOSE            AX3    1+18                                                            FEAT129      245          I
          -FCC1289X 
 DPCLOSE            BX6    X2*X4                                                           FEAT129      246          I
          -FCC1289X 
 DPCLOSE            BX5    X0*X4                                                           FEAT129      247          I
          -FCC1289X 
 DPCLOSE            LX6    60-L.RB-P.RB                                                    FEAT129      248          I
          -FCC1289X 
 DPCLOSE            AX5    P.DIMP-1                                                        FEAT129      249          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2457    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            IX1    X1+X6                                                           FEAT129      250          I
          -FCC1289X 
 DPCLOSE            SA4    X5+B4       DIMTAB                                              FEAT129      251          I
          -FCC1289X 
 DPCLOSE            SX5    X3-1                                                            FEAT129      252          I
          -FCC1289X 
 DPCLOSE            SX4    X4                                                              FEAT129      253          I
          -FCC1289X 
 DPCLOSE            IX5    X5+X4                                                           FEAT129      254          I
          -FCC1289X 
 DPCLOSE            LX4    18+L.ECTI                                                       FEAT129      255          I
          -FCC1289X 
 DPCLOSE            LX5    L.ECTI                                                          FEAT129      256          I
          -FCC1289X 
 DPCLOSE            BX6    X1+X4                                                           FEAT129      257          I
          -FCC1289X 
 DPCLOSE            BX6    X6+X5                                                           FEAT129      258          I
          -FCC1289X 
 DPCLOSE            SB1    B1+B5                                                           FEAT129      259          I
          -FCC1289X 
 DPCLOSE            SA6    A1                                                              FEAT129      260          I
          -FCC1289X 
 DPCLOSE            LT     B1,B6,EQVE1 IF MORE CLASSES                                     FEAT129      261          I
          -FCC1289X 
 DPCLOSE            SX1    B7                                                              FEAT129      262          I
          -FCC1289X 
 DPCLOSE            SB3    B6                                                              FEAT129      263          I
          -FCC1289X 
 DPCLOSE            BX0    X7                                                              FEAT129      264          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      265          I
          -FCC1289X 
 DPCLOSE  *         SORT EOT                                                               FEAT129      266          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      267          I
          -FCC1289X 
 DPCLOSE   EQVE2    SA2    X1                                                              FEAT129      268          I
          -FCC1289X 
 DPCLOSE            SB1    B3-B5                                                           FEAT129      269          I
          -FCC1289X 
 DPCLOSE            MX4    1                                                               FEAT129      270          I
          -FCC1289X 
 DPCLOSE            BX6    X2                                                              FEAT129      271          I
          -FCC1289X 
 DPCLOSE   EQVE3    PL     X4,EQVE4                                                        FEAT129      272          I
          -FCC1289X 
 DPCLOSE            SB2    A2          SAVE ADDRESS OF SMALLER ENTRY                       FEAT129      273          I
          -FCC1289X 
 DPCLOSE            BX7    X2                                                              FEAT129      274          I
          -FCC1289X 
 DPCLOSE   EQVE4    SA2    A2+B5                                                           FEAT129      275          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2458    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SB1    B1-B5       J = J - 1                                           FEAT129      276          I
          -FCC1289X 
 DPCLOSE            IX4    X2-X7                                                           FEAT129      277          I
          -FCC1289X 
 DPCLOSE            PL     B1,EQVE3    IF NOT END OF REMAINING LIST                        FEAT129      278          I
          -FCC1289X 
 DPCLOSE            SA5    B2                                                              FEAT129      279          I
          -FCC1289X 
 DPCLOSE            SB3    B3-B5       I = I - 1                                           FEAT129      280          I
          -FCC1289X 
 DPCLOSE            BX7    X5                                                              FEAT129      281          I
          -FCC1289X 
 DPCLOSE            SA6    B2                                                              FEAT129      282          I
          -FCC1289X 
 DPCLOSE            SA7    X1          STORE SMALLEST ENTRY AT THE BOTTOM                  FEAT129      283          I
          -FCC1289X 
 DPCLOSE            SX1    X1+B5                                                           FEAT129      284          I
          -FCC1289X 
 DPCLOSE            GT     B3,B5,EQVE2 IF I .GT. 1                                         FEAT129      285          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      286          I
          -FCC1289X 
 DPCLOSE            SA3    O.ECT                                                           FEAT129      287          I
          -FCC1289X 
 DPCLOSE            SB6    B6+B7                                                           FEAT129      288          I
          -FCC1289X 
 DPCLOSE            SB3    X3                                                              FEAT129      289          I
          -FCC1289X 
 DPCLOSE            SB6    B6-B5                                                           FEAT129      290          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      291          I
          -FCC1289X 
 DPCLOSE  *         CREATE MOVE TABLE FOR ECT.                                             FEAT129      292          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      293          I
          -FCC1289X 
 DPCLOSE            SA2    R=FLAG                                                          FEAT129      294          I
          -FCC0711  -FCC1289X 
 DPCLOSE            SX2    X2-3                                                            FEAT129      295          I
          -FCC0711  -FCC1289X 
 DPCLOSE            NZ     X2,EQVE5    IF MOVE TABLE UNNECESSARY                           FEAT129      296          I
          -FCC0711  -FCC1289X 
 DPCLOSE            SA2    O.EOT                                                           FEAT129      297          I
          -FCC1289X 
 DPCLOSE            SA5    O.EQV                                                           FEAT129      298          I
          -FCC1289X 
 DPCLOSE            SB1    X2                                                              FEAT129      299          I
          -FCC1289X 
 DPCLOSE            SB2    X5                                                              FEAT129      300          I
          -FCC1289X 
 DPCLOSE            SA4    L.EOT                                                           FEAT129      301          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2459    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SX4    X4-1                                                            FEAT129      302          I
          -FCC1289X 
 DPCLOSE   EQVE4A   MI     X4,EQVE5    IF TABLE COMPLETED                                  FEAT129      303          I
          -FCC1289X 
 DPCLOSE            SA2    X4+B1       EOT(N)                                              FEAT129      304          I
          -FCC1289X 
 DPCLOSE            BX6    X0*X2                                                           FEAT129      305          I
          -FCC1289X 
 DPCLOSE            SA5    X6+B3       ECT(EOT(N))                                         FEAT129      306          I
          -FCC1289X 
 DPCLOSE            SX2    X5+B5                                                           FEAT129      307          I
          -FCC1289X 
 DPCLOSE            LX2    18                                                              FEAT129      308          I
          -FCC1289X 
 DPCLOSE            BX6    X6+X2                                                           FEAT129      309          I
          -FCC1289X 
 DPCLOSE            SA6    X4+B2       FORMAT MOVE CONTROL WORD                            FEAT129      310          I
          -FCC1289X 
 DPCLOSE            SX4    X4-1                                                            FEAT129      311          I
          -FCC1289X 
 DPCLOSE            EQ     EQVE4A                                                          FEAT129      312          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      313          I
          -FCC1289X 
 DPCLOSE  *         SEARCH TABLES FOR OVERLAPPING CLASSES.                                 FEAT129      314          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      315          I
          -FCC1289X 
 DPCLOSE   EQVE5    LE     B6,B7,EQVE9 IF OVERLAP SEQRCH COMPLETE                          FEAT129      316          I
          -FCC1289X 
 DPCLOSE            SA1    B7          EOT(N)                                              FEAT129      317          I
          -FCC1289X 
 DPCLOSE            MX6    L.RB                                                            FEAT129      318          I
          -FCC1289X 
 DPCLOSE            SA2    B7+B5       EOT(N+1)                                            FEAT129      319          I
          -FCC1289X 
 DPCLOSE            BX7    X6*X1                                                           FEAT129      320          I
          -FCC1289X 
 DPCLOSE            BX6    X6*X2                                                           FEAT129      321          I
          -FCC1289X 
 DPCLOSE            SB7    B7+B5                                                           FEAT129      322          I
          -FCC1289X 
 DPCLOSE            ZR     X7,EQVE5    IF CLASS NOT IN COMMON                              FEAT129      323          I
          -FCC1289X 
 DPCLOSE            IX7    X7-X6                                                           FEAT129      324          I
          -FCC1289X 
 DPCLOSE            BX3    X1                                                              FEAT129      325          I
          -FCC1289X 
 DPCLOSE            NZ     X7,EQVE5    IF NOT IN SAME RELOCATION BASE                      FEAT129      326          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      327          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2460    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            BX4    X2                                                              FEAT129      328          I
          -FCC1289X 
 DPCLOSE            AX3    L.ECTI                                                          FEAT129      329          I
          -FCC1289X 
 DPCLOSE            AX4    L.ECTI                                                          FEAT129      330          I
          -FCC1289X 
 DPCLOSE            SX6    X3          LWA(CLASS(N))                                       FEAT129      331          I
          -FCC1289X 
 DPCLOSE            SX3    X4          LWA(CLASS(N+1))                                     FEAT129      332          I
          -FCC1289X 
 DPCLOSE            AX4    18                                                              FEAT129      333          I
          -FCC1289X 
 DPCLOSE            SX5    X4          FWA(CLASS(N+1))                                     FEAT129      334          I
          -FCC1289X 
 DPCLOSE            IX4    X6-X5                                                           FEAT129      335          I
          -FCC1289X 
 DPCLOSE            MI     X4,EQVE5    IF LWA .LT. FWA                                     FEAT129      336          I
          -FCC1289X 
 DPCLOSE            IX7    X6-X3       LWA(CLASS(N)) - LWA(CLASS(N+1))                     FEAT129      337          I
          -FCC1289X 
 DPCLOSE            BX6    X1                                                              FEAT129      338          I
          -FCC1289X 
 DPCLOSE            AX1    L.ECTI+18                                                       FEAT129      339          I
          -FCC1289X 
 DPCLOSE            SX1    X1                                                              FEAT129      340          I
          -FCC1289X 
 DPCLOSE            IX5    X5-X1                                                           FEAT129      341          I
          -FCC1289X 
 DPCLOSE            BX1    X0*X6                                                           FEAT129      342          I
          -FCC1289X 
 DPCLOSE            BX4    X0*X2                                                           FEAT129      343          I
          -FCC1289X 
 DPCLOSE            SA1    X1+B3       ECT(EOT(N))                                         FEAT129      344          I
          -FCC1289X 
 DPCLOSE            SA4    X4+B3       ECT(EOT(N+1))                                       FEAT129      345          I
          -FCC1289X 
 DPCLOSE            PL     X7,EQVE5A   IF CLASS(N+1) IS A SUBSET OF CLASS(N)               FEAT129      346          I
          -FCC1289X 
 DPCLOSE            BX7    -X7                                                             FEAT129      347          I
          -FCC1289X 
 DPCLOSE            LX7    36                                                              FEAT129      348          I
          -FCC1289X 
 DPCLOSE            IX1    X1+X7                                                           FEAT129      349          I
          -FCC1289X 
 DPCLOSE            MX7    18                                                              FEAT129      350          I
          -FCC1289X 
 DPCLOSE            LX7    18+L.ECTI                                                       FEAT129      351          I
          -FCC1289X 
 DPCLOSE            BX6    -X7*X6                                                          FEAT129      352          I
          -FCC1289X 
 DPCLOSE            LX3    -L.ECTI                                                         FEAT129      353          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2461    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            IX6    X6+X3                                                           FEAT129      354          I
          -FCC1289X 
 DPCLOSE   EQVE5A   SA6    A2          EOT(N+1) = EOT(N) WITH UPDATED LWA                  FEAT129      355          I
          -FCC1289X 
 DPCLOSE            SX3    X4+B5                                                           FEAT129      356          I
          -FCC1289X 
 DPCLOSE            IX6    X1+X3       NEW N.MEMBERS                                       FEAT129      357          I
          -FCC1289X 
 DPCLOSE            SB2    X4                                                              FEAT129      358          I
          -FCC1289X 
 DPCLOSE            SA6    A1          UPDATE ECT(EOT(N))                                  FEAT129      359          I
          -FCC1289X 
 DPCLOSE            AX4    18-1                                                            FEAT129      360          I
          -FCC1289X 
 DPCLOSE            SB1    X4+B5                                                           FEAT129      361          I
          -FCC1289X 
 DPCLOSE            SA3    A0-B1                                                           FEAT129      362          I
          -FCC1289X 
 DPCLOSE            MX7    L.DIMP                                                          FEAT129      363          I
          -FCC1289X 
 DPCLOSE            LX4    17                                                              FEAT129      364          I
          -FCC1289X 
 DPCLOSE            LX7    L.DIMP+P.DIMP                                                   FEAT129      365          I
          -FCC1289X 
 DPCLOSE            BX2    X7*X3                                                           FEAT129      366          I
          -FCC1289X 
 DPCLOSE            AX2    P.DIMP-1                                                        FEAT129      367          I
          -FCC1289X 
 DPCLOSE            MX7    18                                                              FEAT129      368          I
          -FCC1289X 
 DPCLOSE            SB1    X2+B5                                                           FEAT129      369          I
          -FCC1289X 
 DPCLOSE            LX7    18+36                                                           FEAT129      370          I
          -FCC1289X 
 DPCLOSE            SA3    B4+B1       WORD B OF DIMTAB ENTRY                              FEAT129      371          I
          -FCC1289X 
 DPCLOSE            BX2    X7*X3                                                           FEAT129      372          I
          -FCC1289X 
 DPCLOSE            SA3    A3-B5       WORD A OF DIMTAB                                    FEAT129      373          I
          -FCC1289X 
 DPCLOSE            BX3    -X7*X3                                                          FEAT129      374          I
          -FCC1289X 
 DPCLOSE            AX7    18                                                              FEAT129      375          I
          -FCC1289X 
 DPCLOSE            BX6    X7*X1                                                           FEAT129      376          I
          -FCC1289X 
 DPCLOSE            LX6    18                                                              FEAT129      377          I
          -FCC1289X 
 DPCLOSE            IX6    X3+X6                                                           FEAT129      378          I
          -FCC1289X 
 DPCLOSE            NZ     X2,EQVE5B   IF ELEMENT REALLY DIMENSIONED                       FEAT129      379          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2462    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SX2    B5                                                              FEAT129      380          I
          -FCC1289X 
 DPCLOSE            LX2    36                                                              FEAT129      381          I
          -FCC1289X 
 DPCLOSE   EQVE5B   SA6    A3                                                              FEAT129      382          I
          -FCC1289X 
 DPCLOSE            BX3    X7*X4                                                           FEAT129      383          I
          -FCC1289X 
 DPCLOSE            BX6    X3+X2                                                           FEAT129      384          I
          -FCC1289X 
 DPCLOSE            BX6    X6+X5                                                           FEAT129      385          I
          -FCC1289X 
 DPCLOSE            SA6    A4          UPDATE ECT(EOT(N+1))                                FEAT129      386          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      387          I
          -FCC1289X 
 DPCLOSE  *         UPDATE ECT AND DIMTAB ENTRIES OF CLASS(N+1) MEMBERS                    FEAT129      388          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      389          I
          -FCC1289X 
 DPCLOSE            BX1    X7*X1                                                           FEAT129      390          I
          -FCC1289X 
 DPCLOSE            LX7    18                                                              FEAT129      391          I
          -FCC1289X 
 DPCLOSE            LX1    18                                                              FEAT129      392          I
          -FCC1289X 
 DPCLOSE   EQVE6    LE     B2,B0,EQVE7 IF ALL MEMBERS UPDATED                              FEAT129      393          I
          -FCC1289X 
 DPCLOSE            SB2    B2-B5                                                           FEAT129      394          I
          -FCC1289X 
 DPCLOSE            SA4    A4+B5                                                           FEAT129      395          I
          -FCC1289X 
 DPCLOSE            IX6    X4+X5                                                           FEAT129      396          I
          -FCC1289X 
 DPCLOSE            SA6    A4                                                              FEAT129      397          I
          -FCC1289X 
 DPCLOSE            AX4    18-1                                                            FEAT129      398          I
          -FCC1289X 
 DPCLOSE            SB1    X4+B5                                                           FEAT129      399          I
          -FCC1289X 
 DPCLOSE            SA3    A0-B1       WORD B                                              FEAT129      400          I
          -FCC1289X 
 DPCLOSE            MX2    L.DIMP                                                          FEAT129      401          I
          -FCC1289X 
 DPCLOSE            LX2    L.DIMP+P.DIMP                                                   FEAT129      402          I
          -FCC1289X 
 DPCLOSE            BX4    X2*X3                                                           FEAT129      403          I
          -FCC1289X 
 DPCLOSE            AX4    P.DIMP-1                                                        FEAT129      404          I
          -FCC1289X 
 DPCLOSE            SA3    X4+B4                                                           FEAT129      405          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2463    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            BX4    -X7*X3                                                          FEAT129      406          I
          -FCC1289X 
 DPCLOSE            IX6    X1+X4                                                           FEAT129      407          I
          -FCC1289X 
 DPCLOSE            SA6    A3          UPDATE DIM ENTRY                                    FEAT129      408          I
          -FCC1289X 
 DPCLOSE            EQ     EQVE6                                                           FEAT129      409          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      410          I
          -FCC1289X 
 DPCLOSE   EQVE7    BX3    X7*X3                                                           FEAT129      411          I
          -FCC1289X 
 DPCLOSE            SA4    O.DIM                                                           FEAT129      412          I
          -FCC1289X 
 DPCLOSE            SA2    L.DIM                                                           FEAT129      413          I
          -FCC1289X 
 DPCLOSE            SA4    X4                                                              FEAT129      414          I
          -FCC1289X 
 DPCLOSE            SB2    X2-2                                                            FEAT129      415          I
          -FCC1289X 
 DPCLOSE            SB1    B5+B5                                                           FEAT129      416          I
          -FCC1289X 
 DPCLOSE   EQVE8    LE     B2,B0,EQVE5 IF ALL DIMTAB ENTRIES CHECKED                       FEAT129      417          I
          -FCC1289X 
 DPCLOSE            BX6    X7*X4                                                           FEAT129      418          I
          -FCC1289X 
 DPCLOSE            SB2    B2-B1                                                           FEAT129      419          I
          -FCC1289X 
 DPCLOSE            IX5    X6-X3                                                           FEAT129      420          I
          -FCC1289X 
 DPCLOSE            BX6    -X7*X4                                                          FEAT129      421          I
          -FCC1289X 
 DPCLOSE            SA4    A4+B1                                                           FEAT129      422          I
          -FCC1289X 
 DPCLOSE            NZ     X5,EQVE8    IF NOT IN SAME CLASS                                FEAT129      423          I
          -FCC1289X 
 DPCLOSE            IX6    X6+X1                                                           FEAT129      424          I
          -FCC1289X 
 DPCLOSE            SA6    A4-B1                                                           FEAT129      425          I
          -FCC1289X 
 DPCLOSE            EQ     EQVE8                                                           FEAT129      426          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      427          I
          -FCC1289X 
 DPCLOSE   EQVE9    SA1    SYM1                                                            FEAT129      428          I
          -FCC1289X 
 DPCLOSE            SA2    SYMEND                                                          FEAT129      429          I
          -FCC1289X 
 DPCLOSE            SX0    V.COM+V.EQU MASK FOR COM AND EQU BITS                           FEAT129      430          I
          -FCC1289X 
 DPCLOSE            IX6    X1-X2                                                           FEAT129      431          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2464    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            MX1    18                                                              FEAT129      432          I
          -FCC1289X 
 DPCLOSE            MX7    L.DIMP                                                          FEAT129      433          I
          -FCC1289X 
 DPCLOSE            LX1    18+36                                                           FEAT129      434          I
          -FCC1289X 
 DPCLOSE            LX7    L.DIMP+P.DIMP                                                   FEAT129      435          I
          -FCC1289X 
 DPCLOSE            SB7    X6-2                                                            FEAT129      436          I
          -FCC1289X 
 DPCLOSE   EQVE10   EQ     B7,EQVEX    IF SCAN OF SYMTAB COMPLETE                          FEAT129      437          I
          -FCC1289X 
 DPCLOSE            SA4    A0-B7       WORD A OF ELEMENT                                   FEAT129      438          I
          -FCC1289X 
 DPCLOSE            SB7    B7-2                                                            FEAT129      439          I
          -FCC1289X 
 DPCLOSE            BX6    -X0+X4                                                          FEAT129      440          I
          -FCC1289X 
 DPCLOSE            NZ     X6,EQVE10   IF .NOT. (COM .AND. EQV)                            FEAT129      441          I
          -FCC1289X 
 DPCLOSE            SA4    A4-1                                                            FEAT129      442          I
          -FCC1289X 
 DPCLOSE            BX2    X7*X4                                                           FEAT129      443          I
          -FCC1289X 
 DPCLOSE            AX2    P.DIMP-1                                                        FEAT129      444          I
          -FCC1289X 
 DPCLOSE            SA3    X2+B4       WORD A OF DIMTAB OF ELEMENT                         FEAT129      445          I
          -FCC1289X 
 DPCLOSE            BX5    X1*X3                                                           FEAT129      446          I
          -FCC1289X 
 DPCLOSE            AX5    36-1                                                            FEAT129      447          I
          -FCC1289X 
 DPCLOSE            SB3    X5+B5                                                           FEAT129      448          I
          -FCC1289X 
 DPCLOSE            SA5    A0-B3       WORD B OF BASE                                      FEAT129      449          I
          -FCC1289X 
 DPCLOSE            BX6    X7*X5                                                           FEAT129      450          I
          -FCC1289X 
 DPCLOSE            AX6    P.DIMP-1                                                        FEAT129      451          I
          -FCC1289X 
 DPCLOSE            SA5    X6+B4       WORD A OF DIMTAB OF BASE                            FEAT129      452          I
          -FCC1289X 
 DPCLOSE            SX5    X5          RA OF BASE                                          FEAT129      453          I
          -FCC1289X 
 DPCLOSE            SX6    X3          RA OF ELEMENT                                       FEAT129      454          I
          -FCC1289X 
 DPCLOSE            IX4    X6-X5                                                           FEAT129      455          I
          -FCC1289X 
 DPCLOSE            ZR     X4,EQVE10   IF BIAS OF ELEMENT IS ZERO                          FEAT129      456          I
          -FCC1289X 
 DPCLOSE            LX4    18                                                              FEAT129      457          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2465    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            BX6    X3+X4       INSERT BIAS                                         FEAT129      458          I
          -FCC1289X 
 DPCLOSE            SA6    A3          UPDATE DIMTAB OF ELEMENT                            FEAT129      459          I
          -FCC1289X 
 DPCLOSE            EQ     EQVE10                                                          FEAT129      460          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      461          I
          -FCC1289X 
 DPCLOSE  *         EXIT EQUIVALENCE PROCESSING                                            FEAT129      462          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      463          I
          -FCC1289X 
 DPCLOSE   EQVEX    SA4    L.EQV                                                           FEAT129      464          I
          -FCC1289X 
 DPCLOSE            SA5    R=FLAG                                                          FEAT129      465          I
          -FCC0711  -FCC1289X 
 DPCLOSE            MX7    0                                                               FEAT129      466          I
          -FCC1289X 
 DPCLOSE            SA7    A4                                                              FEAT129      467          I
          -FCC0711  -FCC1289X 
 DPCLOSE            SA1    L.EOT                                                           FEAT129      468          I
          -FCC1289X 
 DPCLOSE            SX5    X5-3                                                            FEAT129      469          I
          -FCC0711  -FCC1289X 
 DPCLOSE            SA7    A1                                                              FEAT129      470          I
          -FCC1289X 
 DPCLOSE            NZ     X5,EQV      IF R " 3                                            FEAT129      471          I
          -FCC0711  -FCC1289X 
 DPCLOSE            AX7    B5,X4                                                           FEAT129      472          I
          -FCC1289X 
 DPCLOSE            SA2    O.ECT                                                           FEAT129      473          I
          -FCC1289X 
 DPCLOSE            SA7    L.EQV       SAVE TABLE FOR PRINT OUT                            FEAT129      474          I
          -FCC1289X 
 DPCLOSE            SA7    S.EQV                                                           FEAT129      475          I
          -FCC1289X 
 DPCLOSE            SA2    O.EQV                                                           FEAT129      476          I
          -FCC1289X 
 DPCLOSE            SA3    O.EOT                                                           FEAT129      477          I
          -FCC1289X 
 DPCLOSE            SB1    B5                                                              FEAT129      478          I
          -FCC1289X 
 DPCLOSE            MOVE   X1,X2,X3    MOVE MOVE CONTROL TABLE                             FEAT129      479          I
          -FCC1289X 
 DPCLOSE            SA2    O.ECT                                                           FEAT129      480          I
          -FCC1289X 
 DPCLOSE            SB3    X2                                                              FEAT129      481          I
          -FCC1289X 
 DPCLOSE            SA5    O.EQV                                                           FEAT129      482          I
          -FCC1289X 
 DPCLOSE            SA1    O.EOT                                                           FEAT129      483          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2466    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SB4    X1                                                              FEAT129      484          I
          -FCC1289X 
 DPCLOSE            SX0    B0                                                              FEAT129      485          I
          -FCC1289X 
 DPCLOSE   EQVEX1   LT     B6,B4,EQVEX2      IF MOVE COMPLETE                              FEAT129      486          I
          -FCC1289X 
 DPCLOSE            SX3    X5                                                              FEAT129      487          I
          -FCC1289X 
 DPCLOSE            SA1    B4                                                              FEAT129      488          I
          -FCC1289X 
 DPCLOSE            SX2    X1+B3                                                           FEAT129      489          I
          -FCC1289X 
 DPCLOSE            AX1    18                                                              FEAT129      490          I
          -FCC1289X 
 DPCLOSE            IX5    X5+X1                                                           FEAT129      491          I
          -FCC1289X 
 DPCLOSE            IX0    X0+X1                                                           FEAT129      492          I
          -FCC1289X 
 DPCLOSE            MOVE   X1,X2,X3                                                        FEAT129      493          I
          -FCC1289X 
 DPCLOSE            SB4    B4+B5                                                           FEAT129      494          I
          -FCC1289X 
 DPCLOSE            EQ     EQVEX1                                                          FEAT129      495          I
          -FCC1289X 
 DPCLOSE                                                                                   FEAT129      496          I
          -FCC1289X 
 DPCLOSE   EQVEX2   BX6    X0                                                              FEAT129      497          I
          -FCC1289X 
 DPCLOSE            SA6    L.EQV                                                           FEAT129      498          I
          -FCC1289X 
 DPCLOSE            EQ     EQV                                                             FEAT129      499          I
          -FCC1289X 
 DPCLOSE            TITLE              EQV - ERROR EXITS                                   DPCLOSE     1657          I
          -FCC1289X 
 DPCLOSE  *         PRESCAN EXITS - B1 = NEXT ENTRY ADDRESS                                DPCLOSE     1658          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1659          I
          -FCC1289X 
 DPCLOSE   EQV.E1   SB6    E.EECS            ECS VAR IN EQV RELATIONSHIP                   DPCLOSE     1660          I
          -FCC0390  -FCC1289X 
 DPCLOSE            EQ     EQV.FE                                                          DPCLOSE     1661          I
          -FCC0390  -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1662          I
          -FCC1289X 
 DPCLOSE   EQV.E2   SB6    E.S>D             N.SUBS > N.DIMS                               DPCLOSE     1663          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1664          I
          -FCC1289X 
 DPCLOSE   EQV.FE   SA1    B1-B3             LAST ENTRY                                    DPCLOSE     1665          I
          -FCC1289X 
 DPCLOSE            AX2    B5,X1                                                           DPCLOSE     1666          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2467    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SX2    X2                                                              DPCLOSE     1667          I
          -FCC1289X 
 DPCLOSE            MX7    0                                                               DPCLOSE     1668          I
          -FCC1289X 
 DPCLOSE   EQV.FE1  SA7    L.EQV             CLEAR TABLE LENGTH                            DPCLOSE     1669          I
          -FCC1289X 
 DPCLOSE            RJ     PSYM              FORMAT NAME                                   DPCLOSE     1670          I
          -FCC1289X 
 DPCLOSE            SB7    EQV                                                             DPCLOSE     1671          I
          -FCC1289X 
 DPCLOSE            EQ     ERPRO                                                           DPCLOSE     1672          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1673          I
          -FCC1289X 
 DPCLOSE  *         PRESCAN - INFORMATIVE ERRORS                                           DPCLOSE     1674          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1675          I
          -FCC1289X 
 DPCLOSE   EQV.E3   SB6    E.NOS             NO SUBS, FIRST ELEMENT USED                   DPCLOSE     1676          I
          -FCC1289X 
 DPCLOSE            SB4    ASAER                                                           DPCLOSE     1677          I
          -FCC1289X 
 DPCLOSE            MX7    0                 SUBSCRIPT = 0                                 DPCLOSE     1678          I
          -FCC1289X 
 DPCLOSE            EQ     EQV.IE                                                          DPCLOSE     1679          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1680          I
          -FCC1289X 
 DPCLOSE   EQV.E4   SB6    E.DRE             DIM RANGE EXTENDED                            DPCLOSE     1681          I
          -FCC1289X 
 DPCLOSE            SB4    ERPROI                                                          DPCLOSE     1682          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1683          I
          -FCC1289X 
 DPCLOSE   EQV.IE   BX6    X7+X6             ADD SUBSCRIPT                                 DPCLOSE     1684          I
          -FCC1289X 
 DPCLOSE            SX7    B1                                                              DPCLOSE     1685          I
          -FCC1289X 
 DPCLOSE            SA7    TEMP                                                            DPCLOSE     1686          I
          -FCC1289X 
 DPCLOSE            SA6    A2                SAVE WORD 2 OF EQV ENTRY                      DPCLOSE     1687          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1688          I
          -FCC1289X 
 DPCLOSE            SA1    B1-B3             LAST ENTRY                                    DPCLOSE     1689          I
          -FCC1289X 
 DPCLOSE            SX2    X1                                                              DPCLOSE     1690          I
          -FCC1289X 
 DPCLOSE            AX2    1                                                               DPCLOSE     1691          I
          -FCC1289X 
 DPCLOSE            RJ     PSYM              FORMAT NAME                                   DPCLOSE     1692          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2468    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SB7    *+1                                                             DPCLOSE     1693          I
          -FCC1289X 
 DPCLOSE            JP     B4                JUMP TO ERROR ROUTINE                         DPCLOSE     1694          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1695          I
          -FCC1289X 
 DPCLOSE            SA1    O.EQV                                                           DPCLOSE     1696          I
          -FCC1289X 
 DPCLOSE            SA2    L.EQV                                                           DPCLOSE     1697          I
          -FCC1289X 
 DPCLOSE            SA3    TEMP                                                            DPCLOSE     1698          I
          -FCC1289X 
 DPCLOSE            IX2    X1+X2                                                           DPCLOSE     1699          I
          -FCC1289X 
 DPCLOSE            SB1    X3                                                              DPCLOSE     1700          I
          -FCC1289X 
 DPCLOSE            SB2    X2                                                              DPCLOSE     1701          I
          -FCC1289X 
 DPCLOSE            LT     B1,B2,EQV.R       RECOVERY POINT                                DPCLOSE     1702          I
          -FCC1289X 
 DPCLOSE            EQ     EQV1              SCAN 1                                        DPCLOSE     1703          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1704          I
          -FCC1289X 
 DPCLOSE  *         SCAN 1 ERRORS                                                          DPCLOSE     1705          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1706          I
          -FCC1289X 
 DPCLOSE   EQV.CER  SX7    B7+B5                                                           DPCLOSE     1707          I
          -FCC1289X 
 DPCLOSE            SB6    E.CER             CONTRADICTORY EQUIV RELATIONSHIP ERR          DPCLOSE     1708          I
          -FCC1289X 
 DPCLOSE            SA4    X7+B1             EW2(T)                                        DPCLOSE     1709          I
          -FCC1289X 
 DPCLOSE            AX4    18                                                              DPCLOSE     1710          I
          -FCC1289X 
 DPCLOSE            SX2    X4                                                              DPCLOSE     1711          I
          -FCC1289X 
 DPCLOSE            MX7    0                                                               DPCLOSE     1712          I
          -FCC1289X 
 DPCLOSE            EQ     EQV.FE1                                                         DPCLOSE     1713          I
          -FCC1289X 
 DPCLOSE            SPACE  3                                                               DPCLOSE     1714          I
          -FCC1289X 
 DPCLOSE  *         SCAN 4 - ERROR PROCESSING                                              DPCLOSE     1715          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1716          I
          -FCC1289X 
 DPCLOSE   EQVD.E3  SB6    E.LEE             LEVEL EQUIVALENCE ERROR                       DPCLOSE     1717          I
          -FCC0580  -FCC1289X 
 DPCLOSE            AX1    18                                                              DPCLOSE     1718          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2469    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC0580  -FCC1289X 
 DPCLOSE   EQVD.E3  NE     B6,EQVD.E3A IF IN COMMON                                        FCC0580       89          I
          -FCC1289X 
 DPCLOSE            AX1    18                                                              FCC0580       90          I
          -FCC1289X 
 DPCLOSE            SB6    E.LEE       LEVEL EQUIVALENCE ERROR                             FCC0580       91          I
          -FCC1289X 
 DPCLOSE            SA1    X1                WORD A                                        DPCLOSE     1719          I
          -FCC1289X 
 DPCLOSE            EQ     EQVD.EC                                                         DPCLOSE     1720          I
          -FCC1289X 
 DPCLOSE                                                                                   FCC0580       92          I
          -FCC1289X 
 DPCLOSE   EQVD.E3A SB6    B6-B5                                                           FCC0580       93          I
          -FCC1289X 
 DPCLOSE            SA2    X2+B6       ECT ENTRY                                           FCC0580       94          I
          -FCC1289X 
 DPCLOSE            MX7    1                                                               FCC0580       95          I
          -FCC1289X 
 DPCLOSE            LX7    57                                                              FCC0580       96          I
          -FCC1289X 
 DPCLOSE   EQVD.E3B AX2    18-1                                                            FCC0580       97          I
          -FCC1289X 
 DPCLOSE            SB4    X2+B5                                                           FCC0580       98          I
          -FCC1289X 
 DPCLOSE            SA1    A0-B4       WORD B                                              FCC0580       99          I
          -FCC1289X 
 DPCLOSE            LX1    60-P.RB                                                         FCC0580      100          I
          -FCC1289X 
 DPCLOSE            SX2    177B                                                            FCC0580      101          I
          -FCC1289X 
 DPCLOSE            BX1    X2*X1       RB                                                  FCC0580      102          I
          -FCC1289X 
 DPCLOSE            SB6    X5+B5                                                           FCC1129       16          I
          -FCC1289X 
 DPCLOSE            SA2    X1+ORGTAB-1 ORGTAB ENTRY                                        FCC0580      103          I
          -FCC1289X 
 DPCLOSE            SA4    O.COM                                                           FCC0580      104          I
          -FCC1289X 
 DPCLOSE            IX2    X4+X2                                                           FCC0580      105          I
          -FCC1289X 
 DPCLOSE            SA1    X2          COMTAB HEADER WORD                                  FCC0580      106          I
          -FCC1289X 
 DPCLOSE            SX3    A5+B5                                                           FCC0580      107          I
          -FCC1129  -FCC1289X 
 DPCLOSE            SX3    A5+B6                                                           FCC1129       17          I
          -FCC1289X 
 DPCLOSE            BX7    X1+X7                                                           FCC0580      108          I
          -FCC1289X 
 DPCLOSE            SB1    B1+B5                                                           FCC0580      109          I
          -FCC1289X 
 DPCLOSE            SA7    A1          FLAG LEVEL-EQUIV ERROR                              FCC0580      110          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2470    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            EQ     EQVD.ED                                                         FCC0580      111          I
          -FCC1289X 
 DPCLOSE                                                                                   FCC0580      112          I
          -FCC1289X 
 DPCLOSE   EQVD.E2  SB6    E.CBE             ILLEGAL COMMON BLOCK EXTENSION                DPCLOSE     1721          I
          -FCC1289X 
 DPCLOSE            EQ     EQVD.EC                                                         DPCLOSE     1722          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1723          I
          -FCC1289X 
 DPCLOSE   EQVD.E1  AX2    18-1                                                            DPCLOSE     1724          I
          -FCC0580  -FCC1289X 
 DPCLOSE            SB4    X2                2*ORD                                         DPCLOSE     1725          I
          -FCC0580  -FCC1289X 
 DPCLOSE            SA1    A0-B4             WORD A                                        DPCLOSE     1726          I
          -FCC0580  -FCC1289X 
 DPCLOSE            SB6    E.C.E             COMMON/EQUIVALENCE ERROR                      DPCLOSE     1727          I
          -FCC0580  -FCC1289X 
 DPCLOSE   EQVD.E1  MX7    1                                                               FCC0580      113          I
          -FCC1289X 
 DPCLOSE            LX7    58                                                              FCC0580      114          I
          -FCC1129  -FCC1289X 
 DPCLOSE            LX7    56                                                              FCC1129       18          I
          -FCC1289X 
 DPCLOSE            EQ     EQVD.E3B                                                        FCC0580      115          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1728          I
          -FCC1289X 
 DPCLOSE  *         SAVE REGISTERS , X1 = NAME , B6 = ERROR NUM                            DPCLOSE     1729          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1730          I
          -FCC1289X 
 DPCLOSE   EQVD.EC  SX6    B1+B5                                                           DPCLOSE     1731          I
          -FCC1289X 
 DPCLOSE            SX7    B2                                                              DPCLOSE     1732          I
          -FCC1289X 
 DPCLOSE            SA6    TEMPC                                                           DPCLOSE     1733          I
          -FCC1289X 
 DPCLOSE            SA7    A6+B5                                                           DPCLOSE     1734          I
          -FCC1289X 
 DPCLOSE            SX6    B3                                                              DPCLOSE     1735          I
          -FCC1289X 
 DPCLOSE            SX7    A5                                                              DPCLOSE     1736          I
          -FCC1289X 
 DPCLOSE            SA6    A7+B5                                                           DPCLOSE     1737          I
          -FCC1289X 
 DPCLOSE            SA7    A6+B5                                                           DPCLOSE     1738          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1739          I
          -FCC1289X 
 DPCLOSE            MX0    L.NAME            FORMAT NAME                                   DPCLOSE     1740          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2471    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            BX1    X0*X1                                                           DPCLOSE     1741          I
          -FCC1289X 
 DPCLOSE            AX1    18                                                              DPCLOSE     1742          I
          -FCC0580  -FCC1289X 
 DPCLOSE            LX1    6                                                               DPCLOSE     1743          I
          -FCC0580  -FCC1289X 
 DPCLOSE            LX1    60-12                                                           FCC0580      116          I
          -FCC1289X 
 DPCLOSE            SX2    1R                                                              DPCLOSE     1744          I
          -FCC1289X 
 DPCLOSE            BX3    X1+X2                                                           DPCLOSE     1745          I
          -FCC1289X 
 DPCLOSE            SX4    B0                                                              DPCLOSE     1746          I
          -FCC1289X 
 DPCLOSE  +         SB7    *+1                                                             DPCLOSE     1747          I
          -FCC1289X 
 DPCLOSE            EQ     ERPRO                                                           DPCLOSE     1748          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     1749          I
          -FCC1289X 
 DPCLOSE            SA1    TEMPC                                                           DPCLOSE     1750          I
          -FCC1289X 
 DPCLOSE            SA2    A1+B5             B2                                            DPCLOSE     1751          I
          -FCC1289X 
 DPCLOSE            SA4    A2+B5             B3                                            DPCLOSE     1752          I
          -FCC1289X 
 DPCLOSE            SA3    A4+B5             A5                                            DPCLOSE     1753          I
          -FCC1289X 
 DPCLOSE            SB1    X1                                                              DPCLOSE     1754          I
          -FCC1289X 
 DPCLOSE            SB2    X2                                                              DPCLOSE     1755          I
          -FCC1289X 
 DPCLOSE            SB3    X4                                                              DPCLOSE     1756          I
          -FCC1289X 
 DPCLOSE            SA5    X3                ECT HEADER OF LAST CLASS                      DPCLOSE     1757          I
          -FCC1289X 
 DPCLOSE            SB6    X5+B5                                                           DPCLOSE     1758          I
          -FCC1289X 
 DPCLOSE            SX3    X3+B6             POINTER TO NEXT CLASS                         DPCLOSE     1759          I
          -FCC1289X 
 DPCLOSE            MX0    24                                                              DPCLOSE     1760          I
          -FCC0580  -FCC1289X 
 DPCLOSE   EQVD.ED  MX0    24                                                              FCC0580      117          I
          -FCC1289X 
 DPCLOSE            SA1    L.EOT                                                           FEAT129      500          I
          -FCC1289X 
 DPCLOSE            BX7    -X0*X5            SPAN = 0 FOR A BAD CLASS                      DPCLOSE     1761          I
          -FCC1289X 
 DPCLOSE            SX6    X1-1                                                            FEAT129      501          I
          -FCC1289X 
 DPCLOSE            SA7    A5                                                              DPCLOSE     1762          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2472    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SA6    A1                                                              FEAT129      502          I
          -FCC1289X 
 DPCLOSE            LT     B1,B2,EQVD.R      IF MORE CLASS S TO GO                         DPCLOSE     1763          I
          -FCC1289X 
 DPCLOSE            EQ     EQVD.X                                                          DPCLOSE     1764          I
          -FCC1289X 
 DPCLOSE                                                                                   FCC1289X     194     A     
 DPCLOSE                                                                                   FCC1289X     195     A     
 DPCLOSE   TEMPR    EQU    CBUF        TEMPORARIES                                         FCC1289X     196     A     
 DPCLOSE   TD       EQU    TEMPR+3     SAVED VALUE OF T0/D0 (SCAN1)                        FCC1289X     197     A     
 DPCLOSE            SPACE  4,20                                                            FCC1946      101     A     
 DPCLOSE  *                                                                                FCC1946      102     A     
 DPCLOSE  *        UNPACK AND PACK MACROS PARIALLY SIMULATE THE PACK AND UNPACK            FCC1946      103     A     
 DPCLOSE  *        OPERATION CODES.   EXCEPTIONS: NO SIGN EXTENSION WHEN USING             FCC1946      104     A     
 DPCLOSE  *        THE UNPACK MACRO. THE ENTIRE  EXPONENT FIELD IS USED STORE              FCC1946      105     A     
 DPCLOSE  *        VALUES.                                                                 FCC1946      106     A     
 DPCLOSE  *                                                                                FCC1946      107     A     
 DPCLOSE  *        UNPK    XN,BN,WXR,MR                                                    FCC1946      108     A     
 DPCLOSE  *        PACK    XN,BN,WXR,MR                                                    FCC1946      109     A     
 DPCLOSE  *                                                                                FCC1946      110     A     
 DPCLOSE  *        XN - THE DESTINATION REGISTER AND MUST CONTAIN THE PACKED               FCC1946      111     A     
 DPCLOSE  *             FIELD OR THE COEFICIENT FIELD                                      FCC1946      112     A     
 DPCLOSE  *        BN - THE EXPONENT FIELD , SELECTING B0 RESULTS IN THE                   FCC1946      113     A     
 DPCLOSE  *             ELIMINATION OF ALL INSTUCTIONS ASSOCIATED WITH THE                 FCC1946      114     A     
 DPCLOSE  *             BN AND WXR REGISTERS.                                              FCC1946      115     A     
 DPCLOSE  *       WXR - SCRATCH REGISTER , IF BO IS SELECTED FOR THE B REGISTER            FCC1946      116     A     
 DPCLOSE  *             THEN THIS REGISTER CAN BE SET TO VALUE SELECTED FOR                FCC1946      117     A     
 DPCLOSE  *             MR REGISTER.                                                       FCC1946      118     A     
 DPCLOSE  *        MR - MASK REGISTER                                                      FCC1946      119     A     
 DPCLOSE  *                                                                                FCC1946      120     A     
 DPCLOSE  *                                                                                FCC1946      121     A     
 DPCLOSE   UNPK     MACRO  XN,BN,WXR,MR                                                    FCC1946      122     A     
 DPCLOSE            M_MR   12                                                              FCC1946      123          I
          -FCC2548
 DPCLOSE            M_MR   E1.GORL                                                         FCC2548       18     A     
 DPCLOSE            IFNE   BN,B0,1                                                         FCC1946      124     A     
 DPCLOSE            B_WXR  MR*XN                                                           FCC1946      125     A     
 DPCLOSE            B_XN   -MR*XN                                                          FCC1946      126     A     
 DPCLOSE            IFNE   BN,B0,2                                                         FCC1946      127     A     
 DPCLOSE            L_WXR  12                                                              FCC1946      128          I
          -FCC2548
 DPCLOSE            L_WXR  E1.GORL                                                         FCC2548       19     A     
 DPCLOSE            S_BN   WXR                                                             FCC1946      129     A     
 DPCLOSE            ENDM                                                                   FCC1946      130     A     
 DPCLOSE   PACK     MACRO  XN,BN,WXR,MR                                                    FCC1946      131     A     
 DPCLOSE            IFNE   BN,B0,4                                                         FCC1946      132     A     
 DPCLOSE            M_MR   48                                                              FCC1946      133          I
          -FCC2548
 DPCLOSE            M_MR   E1.SY2L                                                         FCC2548       20     A     
 DPCLOSE            S_WXR  BN                                                              FCC1946      134     A     
 DPCLOSE            B_WXR  -MR*WXR                                                         FCC1946      135     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2473    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            L_WXR  48                                                              FCC1946      136          I
          -FCC2548
 DPCLOSE            L_WXR  E1.SY2L                                                         FCC2548       21     A     
 DPCLOSE            M_MR   12                                                              FCC1946      137          I
          -FCC2548
 DPCLOSE            M_MR   E1.GORL                                                         FCC2548       22     A     
 DPCLOSE            B_XN   -MR*XN                                                          FCC1946      138     A     
 DPCLOSE            IFNE   BN,B0,1                                                         FCC1946      139     A     
 DPCLOSE            B_XN   WXR+XN                                                          FCC1946      140     A     
 DPCLOSE            ENDM                                                                   FCC1946      141     A     
 DPCLOSE            TITLE    EQV - PRESCAN                                                 FCC1289X     198     A     
 DPCLOSE  **        PRESCAN - REFORMAT EQV1,EQV2 AS G1., G2. .                             FCC1289X     199     A     
 DPCLOSE  *                RA= ADDRESS RELATIVE TO BLOCK (0 IF LOCAL)                      FCC1289X     200     A     
 DPCLOSE                                                                                   FCC1289X     201     A     
 DPCLOSE                                                                                   FCC1289X     202     A     
 DPCLOSE   EQV      SUBR               ENTRY/EXIT                                          FCC1289X     203     A     
 DPCLOSE            SA1    L.EQV                                                           FCC1289X     204     A     
 DPCLOSE            SA2    O.EQV                                                           FCC1289X     205     A     
 DPCLOSE            ZR     X1,EQV      IF NO EQUIVALENCE RELATIONS                         FCC1289X     206     A     
 DPCLOSE            SA3    SYM1                                                            FCC1289X     207     A     
 DPCLOSE            SB3    B5+B5                                                           FCC1289X     208     A     
 DPCLOSE            SB1    X2          EQA= FWA(EQVTAB)                                    FCC1289X     209     A     
 DPCLOSE            SA4    O.DIM                                                           FCC1289X     210     A     
 DPCLOSE            SA0    X3+                                                             FCC1289X     211     A     
 DPCLOSE            SB6    X4-2                                                            FCC1289X     212     A     
 DPCLOSE                                                                                   FCC1289X     213     A     
 DPCLOSE  *         FORMAT EQV TABLE WORD 1.                                               FCC1289X     214     A     
 DPCLOSE  *                (B3)= 2                                                         FCC1289X     215     A     
 DPCLOSE  *                (B6)= O.DIM-2                                                   FCC1289X     216     A     
 DPCLOSE  *                (B1)= EQA                                                       FCC1289X     217     A     
 DPCLOSE  *                (A0)= SYM1                                                      FCC1289X     218     A     
 DPCLOSE                                                                                   FCC1289X     219     A     
 DPCLOSE   EQV020   SA2    B1          EQV1I= EQVTAB(EQA)                                  FCC1289X     220     A     
 DPCLOSE            MX0    L.DIMP                                                          FCC1289X     221     A     
 DPCLOSE            MI     X2,EQV100   IF END OF EQV TABLE                                 FCC1289X     222     A     
 DPCLOSE            LX0    L.DIMP+P.DIMP                                                   FCC1289X     223     A     
 DPCLOSE            UX2    B2                                                              FCC1289X     224          I
          -FCC1946
 DPCLOSE            UNPK   X2,B2,X1,X4                                                     FCC1946      142          I
          -FCC2548
 DPCLOSE            MX4    E1.GORL-4                                                       FCC2548       23     A     
 DPCLOSE            BX1    X4*X2                                                           FCC2548       24     A     
 DPCLOSE            BX2    -X4*X2                                                          FCC2548       25     A     
 DPCLOSE            LX1    E1.GORL-4                                                       FCC2548       26     A     
 DPCLOSE            SB2    X1                                                              FCC2548       27     A     
 DPCLOSE            SB1    B1+B3       EQA= EQA+2                                          FCC1289X     225     A     
 DPCLOSE            LX2    -E1.SY2P                                                        FCC1289X     226     A     
 DPCLOSE            SB4    X2+B5       STINDB= SY2[EQV1I] + 1                              FCC1289X     227          I
          -FCC1289AX
 DPCLOSE            SB4    X2          STINDB= SY2[EQV1I]                                  FCC1289AX     11     A     
 DPCLOSE            MX7    1                                                               FCC1289AX     12     A     
 DPCLOSE            LX2    G1.SYMP-1   SYMI= (STINDB-1) / 2                                FCC1289X     228     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2474    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            MX5    -L.RB                                                           FCC1289X     229     A     
 DPCLOSE            SA4    A0-B4       SYMBI= SYMTAB(STINDB)                               FCC1289X     230          I
          -FCC1289AX
 DPCLOSE            SA1    A0-B4       SYMAI= SYMTAB(STINDB)                               FCC1289AX     13     A     
 DPCLOSE            SA4    A1-B5       SYMBI= SYMAI-1                                      FCC1289AX     14     A     
 DPCLOSE            LX1    -1-P.COM                                                        FCC1289AX     15     A     
 DPCLOSE            BX7    X7*X1       COMI= COM[EQV1I]                                    FCC1289AX     16     A     
 DPCLOSE            LX7    1+G1.COMP                                                       FCC1289AX     17     A     
 DPCLOSE            BX3    X0*X4                                                           FCC1289X     231     A     
 DPCLOSE            AX3    P.DIMP-1    DTIND= 2* DIMP[SYMBI]                               FCC1289X     232     A     
 DPCLOSE            SA1    B6+X3       DIM1I= DIMTAB(DTIND)                                FCC1289X     233          I
          -FCC2323
 DPCLOSE            LX4    -P.RB                                                           FCC1289X     234     A     
 DPCLOSE            BX6    -X5*X4      RBI= RB[SYMBI]                                      FCC1289X     235     A     
 DPCLOSE            MX1    0           ASSUME DTIND MIGHT BE ZERO                          FCC2323        9     A     
 DPCLOSE            ZR     X3,EQV021   IF ERROR CAUSES ZERO DTIND                          FCC2323       10     A     
 DPCLOSE            SA1    B6+X3       DIM1I = DIMTAB [DTIND]                              FCC2323       11     A     
 DPCLOSE            LX1    -D1.RAP                                                         FCC1289X     236     A     
 DPCLOSE            SX1    X1          RAI= RA[DIM1I]                                      FCC1289X     237     A     
 DPCLOSE            BX1    X1+X2                                                           FCC1289X     238          I
          -FCC2323
 DPCLOSE   EQV021   BX1    X1+X2                                                           FCC2323       12     A     
 DPCLOSE            LX6    G1.RBP                                                          FCC1289X     239     A     
 DPCLOSE            BX6    X6+X1                                                           FCC1289X     240     A     
 DPCLOSE            SA6    A2          EQV1I= (SYMI,RBI,RAI)[G1.]                          FCC1289X     241          I
          -FCC1289AX
 DPCLOSE            IX6    X6+X7                                                           FCC1289AX     18     A     
 DPCLOSE            SA6    A2          EQV1I= (COMI,SYMI,RBI,RAI) [G1.]                    FCC1289AX     19     A     
 DPCLOSE                                                                                   FCC1289X     242     A     
 DPCLOSE  *         FORMAT EQV TABLE WORD 2.                                               FCC1289X     243     A     
 DPCLOSE                                                                                   FCC1289X     244     A     
 DPCLOSE            MX0    -L.TYP                                                          FCC1289X     245     A     
 DPCLOSE            SA1    A1+B5       DIM2I= DIM1I+1                                      FCC1289X     246     A     
 DPCLOSE            SA2    A2+B5       EQV2I= EQV1I+1                                      FCC1289X     247     A     
 DPCLOSE            LX4    P.RB-P.TYP                                                      FCC1289X     248     A     
 DPCLOSE            BX4    -X0*X4                                                          FCC1289X     249     A     
 DPCLOSE            SX7    X4-T.DBL                                                        FCC1289X     250     A     
 DPCLOSE            SX3    B5                                                              FCC1289X     251     A     
 DPCLOSE            AX7    L.TYP                                                           FCC1289X     252     A     
 DPCLOSE            BX4    -X7*X3      SDPF (= 0 IF SINGLE,= 1 IF DOUBLE)                  FCC1289X     253     A     
 DPCLOSE            MX0    D2.NDL                                                          FCC1289X     254     A     
 DPCLOSE            SB7    X4                                                              FCC1289X     255     A     
 DPCLOSE            LX0    D2.NDL+D2.NDP                                                   FCC1289X     256     A     
 DPCLOSE            BX3    X0*X1       NDI= ND[DIM2I]                                      FCC1289X     257     A     
 DPCLOSE            IFNE   D2.NDL,E2.NSL,2                                                 FCC1289X     258     A     
 DPCLOSE            MX0    E2.NSL                                                          FCC1289X     259     A     
 DPCLOSE            LX0    E2.NSL+E2.NSP                                                   FCC1289X     260     A     
 DPCLOSE            BX4    X0*X2       NSI= NS[EQV2I]                                      FCC1289X     261     A     
 DPCLOSE            IX5    X3-X4                                                           FCC1289X     262     A     
 DPCLOSE            ERRNZ  D2.NDP-E2.NSP                                                   FCC1289X     263     A     
 DPCLOSE            MX0    D2.WCL                                                          FCC1289X     264     A     
 DPCLOSE            LX0    D2.WCL+D2.WCP                                                   FCC1289X     265     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2475    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            MI     X5,EQ.E10   IF NDI  LT  NSI                                     FCC1289X     266     A     
 DPCLOSE            NZ     X3,EQV030   IF NDI  NE  0                                       FCC1289X     267     A     
 DPCLOSE            SX7    B7+B5       PI(DIMS)= 1+SDPF                                    FCC1289X     268     A     
 DPCLOSE            LX7    D2.WCP                                                          FCC1289X     269     A     
 DPCLOSE            SA7    A1          WC[DIM2I]= PI(DIMS)                                 FCC1289X     270     A     
 DPCLOSE            LX7    Q2.PDP-D2.WCP                                                   FCC1289X     271     A     
 DPCLOSE            PX7    B2                                                              FCC1289X     272          I
          -FCC1946
 DPCLOSE            PACK   X7,B2,X2,X0                                                     FCC1946      143     A     
 DPCLOSE            SA7    A2          EQV2I= [Q2.]                                        FCC1289X     273     A     
 DPCLOSE            EQ     EQV020                                                          FCC1289X     274     A     
 DPCLOSE                                                                                   FCC1289X     275     A     
 DPCLOSE  *         CALCULATE SUBSCRIPT.                                                   FCC1289X     276     A     
 DPCLOSE  *                (X1)= DIM2I                                                     FCC1289X     277     A     
 DPCLOSE  *                (X2)= EQV2I                                                     FCC1289X     278     A     
 DPCLOSE                                                                                   FCC1289X     279     A     
 DPCLOSE   EQV030   BX7    X0*X1       PI(DIMS)= WC[DIM2I]                                 FCC1289X     280     A     
 DPCLOSE            LX4    -E2.NSP                                                         FCC1289X     281     A     
 DPCLOSE            LX2    -E2.SAP     IND= SA[EQV2]                                       FCC1289X     282     A     
 DPCLOSE            SX5    X2-1                                                            FCC1289X     283     A     
 DPCLOSE            ZR     X4,EQ.E20   IF NSI  EQ  0                                       FCC1289X     284     A     
 DPCLOSE            SB4    X4                                                              FCC1289X     285     A     
 DPCLOSE            AX7    D2.WCP                                                          FCC1289X     286     A     
 DPCLOSE            SB4    B4-B5       NSI= NSI-1                                          FCC1289X     287     A     
 DPCLOSE            ZR     B4,EQV040   IF NSI  EQ  0                                       FCC1289X     288     A     
 DPCLOSE            LX1    -D2.SAP                                                         FCC1289X     289     A     
 DPCLOSE            SX0    X1          II= SA[DIM2]                                        FCC1289X     290     A     
 DPCLOSE            LX2    E2.SAP-E2.SBP J= SB[EQV2]                                       FCC1289X     291     A     
 DPCLOSE            SX3    X2-1                                                            FCC1289X     292     A     
 DPCLOSE            IX4    X0*X3                                                           FCC1289X     293     A     
 DPCLOSE            SB4    B4-B5       NSI= NSI-1                                          FCC1289X     294     A     
 DPCLOSE            IX5    X4+X5       IND= IND+II*(J-1)                                   FCC1289X     295     A     
 DPCLOSE            ZR     B4,EQV040   IF NSI  EQ  0                                       FCC1289X     296     A     
 DPCLOSE            LX1    D2.SAP-D2.SBP                                                   FCC1289X     297     A     
 DPCLOSE            SX1    X1          JJ= SB[DIM2]                                        FCC1289X     298     A     
 DPCLOSE            IX0    X0*X1                                                           FCC1289X     299     A     
 DPCLOSE            LX2    E2.SBP-E2.SCP  K=SC[EQV2]                                       FCC1289X     300     A     
 DPCLOSE            SX2    X2-1                                                            FCC1289X     301     A     
 DPCLOSE            IX4    X0*X2                                                           FCC1289X     302     A     
 DPCLOSE            IX5    X4+X5       IND= IND+II*JJ*(K-1)                                FCC1289X     303     A     
 DPCLOSE   EQV040   LX5    B7,X5       ADJUST FOR DOUBLE PRECISION                         FCC1289X     304     A     
 DPCLOSE            IX4    X5-X7                                                           FCC1289X     305     A     
 DPCLOSE            LX5    Q2.SUBP                                                         FCC1289X     306     A     
 DPCLOSE            LX7    Q2.PDP                                                          FCC1289X     307     A     
 DPCLOSE            BX7    X7+X5                                                           FCC1289X     308     A     
 DPCLOSE            PL     X4,EQ.E30   IF IND  GT  PI(DIMS)                                FCC1289X     309     A     
 DPCLOSE            PX7    B2                                                              FCC1289X     310          I
          -FCC1946
 DPCLOSE            PACK   X7,B2,X2,X0                                                     FCC1946      144     A     
 DPCLOSE            SA7    A2          EQV2I= (GORI,PI(DIMS),IND) [Q2.]                    FCC1289X     311     A     
 DPCLOSE            EQ     EQV020                                                          FCC1289X     312     A     
 DPCLOSE            TITLE    EQV - SCAN1 - BUILD THE G-F TABLE                             FCC1289X     313     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2476    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE  **        SCAN1 - BUILD THE G-F TABLE.                                           FCC1289X     314     A     
 DPCLOSE  *         FORMAT G-F TABLE ENTRIES AS G1., G2. .                                 FCC1289X     315     A     
 DPCLOSE  *         PASS 1 OF GALLER/FISHER EQUIVALENCE ALGORITHM.                         FCC1289X     316     A     
 DPCLOSE                                                                                   FCC1289X     317     A     
 DPCLOSE                                                                                   FCC1289X     318     A     
 DPCLOSE   EQV100   SA1    O.EQV                                                           FCC1289X     319     A     
 DPCLOSE            SB1    0           L.GF= 0                                             FCC1289X     320     A     
 DPCLOSE            SB2    0           EQIND= 0                                            FCC1289X     321     A     
 DPCLOSE            SA0    X1                                                              FCC1289X     322     A     
 DPCLOSE            SB3    B5+B5                                                           FCC1289X     323     A     
 DPCLOSE                                                                                   FCC1289X     324     A     
 DPCLOSE  *                (A0)= O.EQV                                                     FCC1289X     325     A     
 DPCLOSE  *                (B1)= L.GF                                                      FCC1289X     326     A     
 DPCLOSE  *                (B2)= EQIND                                                     FCC1289X     327     A     
 DPCLOSE                                                                                   FCC1289X     328     A     
 DPCLOSE   EQV105   SA1    A0+B2       EQV1I= EQVTAB(EQIND)                                FCC1289X     329     A     
 DPCLOSE            BX5    X5-X5       ERFLAG= 0                                           FCC1289X     330     A     
 DPCLOSE            MI     X1,EQV200   IF END OF EQV TABLE                                 FCC1289X     331     A     
 DPCLOSE            MX0    G1.SYML                                                         FCC1289X     332     A     
 DPCLOSE            SB7    -B3         T= -2 */INDEX TO G-F TABLE                          FCC1289X     333     A     
 DPCLOSE            SA2    A1+B5       EQV2I= EQV1I+1                                      FCC1289X     334     A     
 DPCLOSE            LX0    G1.SYML+G1.SYMP                                                 FCC1289X     335     A     
 DPCLOSE            UX2    B6                                                              FCC1289X     336          I
          -FCC1946
 DPCLOSE            UNPK   X2,B6,X7,X3                                                     FCC1946      145     A     
 DPCLOSE            SB2    B2+B3       EQIND= EQIND+2                                      FCC1289X     337     A     
 DPCLOSE            BX7    X0*X1       SYMI= SYM[EQV1I]                                    FCC1289X     338     A     
 DPCLOSE            LX2    -Q2.SUBP                                                        FCC1289X     339     A     
 DPCLOSE            SX6    X2          D= SUB[EQV2I]                                       FCC1289X     340     A     
 DPCLOSE                                                                                   FCC1289X     341     A     
 DPCLOSE  *         SEARCH FOR MATCH OF SYMORD IN G-F TABLE PARTIALLY BUILT.               FCC1289X     342     A     
 DPCLOSE                                                                                   FCC1289X     343     A     
 DPCLOSE   EQV110   SB7    B7+B3       T= T+2                                              FCC1289X     344     A     
 DPCLOSE            SA3    A0+B7       GF1T= G-FTAB(T)                                     FCC1289X     345     A     
 DPCLOSE            BX4    X0*X3       SYMT= SYM[GF1T]                                     FCC1289X     346     A     
 DPCLOSE            BX4    X4-X7                                                           FCC1289X     347     A     
 DPCLOSE            GE     B7,B1,EQV130      IF T  GE  L.GF                                FCC1289X     348     A     
 DPCLOSE            NZ     X4,EQV110   IF SYMI  NE  SYMT                                   FCC1289X     349     A     
 DPCLOSE                                                                                   FCC1289X     350     A     
 DPCLOSE  *         CURRENT ELEMENT IS IN THE G-F TABLE. CHAIN BACK UNTIL                  FCC1289X     351     A     
 DPCLOSE  *         ITS ROOT IS FOUND, ADJUSTING D AS WE GO.                               FCC1289X     352     A     
 DPCLOSE                                                                                   FCC1289X     353     A     
 DPCLOSE   EQV120   SA4    A3+B5       GF2T= GF1T+1                                        FCC1289X     354     A     
 DPCLOSE            LX3    -G1.RAP                                                         FCC1289X     355     A     
 DPCLOSE            UX4    B4                                                              FCC1289X     356          I
          -FCC1946
 DPCLOSE            UNPK   X4,B4,X1,X0                                                     FCC1946      146     A     
 DPCLOSE            EQ     B7,B4,EQV140      IF P(T)  EQ  T                                FCC1289X     357     A     
 DPCLOSE            SX3    X3          RAT= RA[GF1T]                                       FCC1289X     358     A     
 DPCLOSE            IX6    X3+X6       D= RAT + D                                          FCC1289X     359     A     
 DPCLOSE            SA3    A0+B4       GF1T= G-FTAB(P(T))                                  FCC1289X     360     A     
 DPCLOSE            SB7    B4          T= P(T)                                             FCC1289X     361     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2477    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            EQ     EQV120                                                          FCC1289X     362     A     
 DPCLOSE                                                                                   FCC1289X     363     A     
 DPCLOSE  *         CURRENT ELEMENT IS NOT YET IN THE G-F TABLE, CREATE AN                 FCC1289X     364     A     
 DPCLOSE  *         ENTRY FOR IT.                                                          FCC1289X     365     A     
 DPCLOSE  *                (B7)= T                                                         FCC1289X     366     A     
 DPCLOSE                                                                                   FCC1289X     367     A     
 DPCLOSE   EQV130   BX7    X1                                                              FCC1289X     368     A     
 DPCLOSE            SA7    A0+B7       GF1T= [G1.]                                         FCC1289X     369     A     
 DPCLOSE            LX2    Q2.SUBP-Q2.PDP                                                  FCC1289X     370     A     
 DPCLOSE            SX2    X2          HIT= PD[EQV2I], LOT= 0                              FCC1289X     371     A     
 DPCLOSE            SB1    B1+B3       L.GF=L.GF+2                                         FCC1289X     372     A     
 DPCLOSE            LX2    G2.HIP                                                          FCC1289X     373     A     
 DPCLOSE            PX7    B7,X2                                                           FCC1289X     374          I
          -FCC1946
 DPCLOSE            BX7    X2                                                              FCC1946      147     A     
 DPCLOSE            PACK   X7,B7,X1,X0                                                     FCC1946      148     A     
 DPCLOSE            SA7    A7+B5       GF2T= (T,HIT,LOT) [G2.]                             FCC1289X     375     A     
 DPCLOSE                                                                                   FCC1289X     376     A     
 DPCLOSE  *         CURRENT ELEMENT IS NOW IN THE G-F TABLE.                               FCC1289X     377     A     
 DPCLOSE  *         IF IT IS THE FIRST MEMBER OF A GROUP, REMEMBER IT AND RETURN           FCC1289X     378     A     
 DPCLOSE  *         TO PROCESS THE NEXT ONE.                                               FCC1289X     379     A     
 DPCLOSE                                                                                   FCC1289X     380     A     
 DPCLOSE   EQV140   MX0    -G1.ADRL                                                        FCC1289X     381     A     
 DPCLOSE            NE     B6,B5,EQV150      IF NOT A NEW GROUP                            FCC1289X     382     A     
 DPCLOSE            PX6    B7          T0= T; D0= D                                        FCC1289X     383          I
          -FCC1946
 DPCLOSE            SA6    TD          TD= (12/2000+T0, 48/D0)                             FCC1289X     384          I
          -FCC1946
 DPCLOSE            PACK   X6,B7,X1,X2 TP= T; DO= D                                        FCC1946      149     A     
 DPCLOSE            SA6    TD          TD= (12/TO, 48/DO)                                  FCC1946      150     A     
 DPCLOSE            EQ     EQV105                                                          FCC1289X     385     A     
 DPCLOSE                                                                                   FCC1289X     386     A     
 DPCLOSE  *         WHEN IT DOES NOT BEGIN A GROUP, LINK IT TO THE G-F TABLE.              FCC1289X     387     A     
 DPCLOSE  *                (B7)= T                                                         FCC1289X     388     A     
 DPCLOSE  *                (X6)= D                                                         FCC1289X     389     A     
 DPCLOSE                                                                                   FCC1289X     390     A     
 DPCLOSE   EQV150   SA2    TD                                                              FCC1289X     391     A     
 DPCLOSE            UX2    B4          T0,D0                                               FCC1289X     392          I
          -FCC1946
 DPCLOSE            UNPK   X2,B4,X3,X4                                                     FCC1946      151     A     
 DPCLOSE            SX2    X2                                                              FCC1946      152     A     
 DPCLOSE            IX4    X2-X6       DIST= D0-D                                          FCC1289X     393     A     
 DPCLOSE            LX0    G1.ADRP                                                         FCC1289X     394     A     
 DPCLOSE            GT     B7,B4,EQV160      IF T  GT  T0                                  FCC1289X     395     A     
 DPCLOSE            EQ     B7,B4,EQ.E40     IF CURRENT ALREADY LINKED TO THIS ROOT         FCC1289X     396     A     
 DPCLOSE                                                                                   FCC1289X     397     A     
 DPCLOSE  *         IF CURRENT OCCURS BEFORE ITS ROOT, SWITCH THEM SO TABLE ALWAYS         FCC1289X     398     A     
 DPCLOSE  *         LINK UPWARD.                                                           FCC1289X     399     A     
 DPCLOSE                                                                                   FCC1289X     400     A     
 DPCLOSE            SB6    X4                                                              FCC1289X     401     A     
 DPCLOSE            SX4    -B6         DIST= -DIST                                         FCC1289X     402     A     
 DPCLOSE            SX7    B4          TEMP= T0                                            FCC1289X     403     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2478    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            SB4    B7          T0= T                                               FCC1289X     404     A     
 DPCLOSE            SB7    X7          T= TEMP                                             FCC1289X     405     A     
 DPCLOSE            PX6    B4          D0=D, T0=T                                          FCC1289X     406          I
          -FCC1946
 DPCLOSE            SA6    TD          TD= (12/2000+T0, 48/D0)                             FCC1289X     407          I
          -FCC1946
 DPCLOSE            PACK   X6,B4,X3,X2                                                     FCC1946      153     A     
 DPCLOSE            SA6    TD          TD= (12/TO, 48/DO)                                  FCC1946      154     A     
 DPCLOSE                                                                                   FCC1289X     408     A     
 DPCLOSE  *         BEFORE ADDING TO THE TREE, CHECK FOR CONSISTENCY AND ILLEGAL           FCC1289X     409     A     
 DPCLOSE  *         EXTENSION OF COMMON BLOCK ORGIN.                                       FCC1289X     410     A     
 DPCLOSE                                                                                   FCC1289X     411     A     
 DPCLOSE   EQV160   SA3    A0+B7       GF1T= G-FTAB(T)                                     FCC1289X     412     A     
 DPCLOSE            SA2    A0+B4       GF1T0= G-FTAB(T0)                                   FCC1289X     413     A     
 DPCLOSE            BX1    -X0*X3      ADRT= ADR[GF1T]                                     FCC1289X     414     A     
 DPCLOSE            MX7    -G1.RBL                                                         FCC1289X     415     A     
 DPCLOSE            LX3    -G1.SYMP                                                        FCC1289X     416     A     
 DPCLOSE            BX6    -X0*X2      ADRT0= ADR[GF1T0]                                   FCC1289X     417     A     
 DPCLOSE            NZ     X1,EQV170   IF ADRT  NE  0                                      FCC1289X     418     A     
 DPCLOSE            NZ     X6,EQ.E60   IF ADRT0  NE  0                                     FCC1289X     419     A     
 DPCLOSE            EQ     EQV190                                                          FCC1289X     420     A     
 DPCLOSE                                                                                   FCC1289X     421     A     
 DPCLOSE  *         CURRENT ELEMENT HAS AN ADDRESS, CHECK ITS ROOT.                        FCC1289X     422     A     
 DPCLOSE  *         IF ITS ROOT DOES NOT HAVE AN ADDRESS, SET RB(T0)= RB(T),               FCC1289X     423     A     
 DPCLOSE  *         RA(T0)= RA(T)-DIST.                                                    FCC1289X     424     A     
 DPCLOSE  *                (X4)= DIST                                                      FCC1289X     425     A     
 DPCLOSE                                                                                   FCC1289X     426     A     
 DPCLOSE   EQV170   NZ     X6,EQ.E50   IF ADRT0  NE  0                                     FCC1289X     427     A     
 DPCLOSE            LX7    G1.RBP                                                          FCC1289X     428     A     
 DPCLOSE            BX6    -X7*X1      RBT= RB[GF1T]                                       FCC1289X     429     A     
 DPCLOSE            LX1    -G1.RAP                                                         FCC1289X     430     A     
 DPCLOSE            SX1    X1          RAT= RA[GF1T]                                       FCC1289X     431     A     
 DPCLOSE            IX7    X1-X4       RAT0= RAT-DIST                                      FCC1289X     432     A     
 DPCLOSE            BX6    X6+X2                                                           FCC1289X     433     A     
 DPCLOSE            MI     X7,EQ.E70   IF RAT0  LT  0                                      FCC1289X     434     A     
 DPCLOSE            SA1    A2+1        TO                                                  FCCA475       13     A     
 DPCLOSE            SX1    X1                                                              FCCA475       14     A     
 DPCLOSE            IX1    X7-X1                                                           FCCA475       15     A     
 DPCLOSE            MI     X1,EQ.E70   IF RA(TO) < 0                                       FCCA475       16     A     
 DPCLOSE            LX7    G1.RAP                                                          FCC1289X     435     A     
 DPCLOSE            BX6    X7+X6                                                           FCC1289X     436     A     
 DPCLOSE            SA6    A2          GF1T0= (RBT,RAT0) [G1.]                             FCC1289X     437     A     
 DPCLOSE                                                                                   FCC1289X     438     A     
 DPCLOSE  *         ADD ELEMENT TO PROPER TREE.                                            FCC1289X     439     A     
 DPCLOSE  *                (A2,A3)= GF1T, GF1T0                                            FCC1289X     440     A     
 DPCLOSE  *                (X4)= DIST                                                      FCC1289X     441     A     
 DPCLOSE  *                (B4)= T0                                                        FCC1289X     442     A     
 DPCLOSE                                                                                   FCC1289X     443     A     
 DPCLOSE   EQV190   SA1    A3+B5       GF2T= GF1T+1                                        FCC1289X     444     A     
 DPCLOSE            MX0    -G1.RAL                                                         FCC1289X     445          I
          -FCC1946
 DPCLOSE            UX1                HILOT= (HI,LO) [GF2T]                               FCC1289X     446          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2479    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1946
 DPCLOSE            UNPK   X1,B0,X0,X0                                                     FCC1946      155     A     
 DPCLOSE            MX0    -G1.RAL                                                         FCC1946      156     A     
 DPCLOSE            BX6    -X0*X4                                                          FCC1289X     447     A     
 DPCLOSE            IFNE   G1.RAL,G1.SYML,1                                                FCC1289X     448          I
          -FCC1289AX
 DPCLOSE            MX0    -G1.SYML                                                        FCC1289X     449          I
          -FCC1289AX
 DPCLOSE            LX0    G1.SYMP                                                         FCC1289X     450          I
          -FCC1289AX
 DPCLOSE            MX0    1                                                               FCC1289AX     20          I
          -FCC1946
 DPCLOSE            SX2    X3          SYMT= SYM[GF1T]                                     FCC1289AX     21          I
          -FCC1946
 DPCLOSE            ERRNZ  18-G1.SYML                                                      FCC1289AX     22     A     
 DPCLOSE            PX7    B4,X1                                                           FCC1289X     451          I
          -FCC1946
 DPCLOSE            BX7    X1                                                              FCC1946      157     A     
 DPCLOSE            PACK   X7,B4,X2,X0                                                     FCC1946      158     A     
 DPCLOSE            MX0    1                                                               FCC1946      159     A     
 DPCLOSE            SX2    X3          SYMT= SYM[GF1T]                                     FCC1946      160     A     
 DPCLOSE            LX6    G1.RAP                                                          FCC1289X     452     A     
 DPCLOSE            SX3    X3          SYMT= SYM[GF1T                                      FCC1289X     453          I
          -FCC1289AX
 DPCLOSE            LX3    G1.SYMP                                                         FCC1289X     454          I
          -FCC1289AX
 DPCLOSE            LX3    G1.SYMP-1-G1.COMP                                               FCC1289AX     23     A     
 DPCLOSE            BX3    X0*X3       COMI= COM[GF1T]                                     FCC1289AX     24     A     
 DPCLOSE            LX2    G1.SYMP                                                         FCC1289AX     25     A     
 DPCLOSE            IX6    X6+X2                                                           FCC1289AX     26     A     
 DPCLOSE            LX3    1+G1.COMP                                                       FCC1289AX     27     A     
 DPCLOSE            BX6    X3+X6                                                           FCC1289X     455     A     
 DPCLOSE            SA6    A1-B5       GF1T= (SYMT,0,DIST) [G1.]                           FCC1289X     456          I
          -FCC1289AX
 DPCLOSE            SA6    A1-B5       GF1T= (COMI,SYMT,0,DIST) [G1.]                      FCC1289AX     28     A     
 DPCLOSE            SA7    A1          GF2T= (T0,HILOT) [G2.]                              FCC1289X     457     A     
 DPCLOSE                                                                                   FCC1289X     458     A     
 DPCLOSE  *         ADJUST HI(T0), LO(T0).                                                 FCC1289X     459     A     
 DPCLOSE  *                HI(T0)= MAX (HI(T0), HI(T)+DIST)                                FCC1289X     460     A     
 DPCLOSE  *                LO(T0)= MAX (LO(T0), LO(T)-DIST)                                FCC1289X     461     A     
 DPCLOSE                                                                                   FCC1289X     462     A     
 DPCLOSE            SA2    A2+B5       GF2T0= GF1T0+1                                      FCC1289X     463     A     
 DPCLOSE            UX2                                                                    FCC1289X     464          I
          -FCC1946
 DPCLOSE            UNPK   X2,B0,X0,X0                                                     FCC1946      161     A     
 DPCLOSE            LX1    -G2.LOP                                                         FCC1289X     465     A     
 DPCLOSE            SX0    X1          LOT= LO[GF2T]                                       FCC1289X     466     A     
 DPCLOSE            IX0    X0-X4       LOD= LOT-DIST                                       FCC1289X     467     A     
 DPCLOSE            LX2    -G2.LOP                                                         FCC1289X     468     A     
 DPCLOSE            SX3    X2          LOT0= LO[GF2T0]                                     FCC1289X     469     A     
 DPCLOSE            LX1    G2.LOP-G2.HIP                                                   FCC1289X     470     A     
 DPCLOSE            MX6    X0+X3       MAXLO= MAX( LOD,LOT0 )                              FCC1289X     471     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2480    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            SX1    X1          HIT= HI[GF2T]                                       FCC1289X     472     A     
 DPCLOSE            LX2    G2.LOP-G2.HIP                                                   FCC1289X     473     A     
 DPCLOSE            IX3    X1+X4       HID= HIT+DIST                                       FCC1289X     474     A     
 DPCLOSE            LX6    G2.LOP                                                          FCC1289X     475     A     
 DPCLOSE            SX2    X2          HIT0= HI[GF2T0]                                     FCC1289X     476     A     
 DPCLOSE            PX6    B4                                                              FCC1289X     477          I
          -FCC1946
 DPCLOSE            PACK   X6,B4,X7,X1                                                     FCC1946      162     A     
 DPCLOSE            MX7    X3+X2       MAXHI= MAX (HID,HIT0 )                              FCC1289X     478     A     
 DPCLOSE            LX7    G2.HIP                                                          FCC1289X     479     A     
 DPCLOSE            BX7    X7+X6                                                           FCC1289X     480     A     
 DPCLOSE            SA7    A2+         GF2T0= (T0,MAXHI,MAXLO) [G2.]                       FCC1289X     481     A     
 DPCLOSE            ZR     X5,EQV105   IF ERFLAG  EQ  0                                    FCC1289X     482     A     
 DPCLOSE            EQ     EQ.E75                                                          FCC1289X     483     A     
 DPCLOSE            TITLE    EQV - SCAN2 - COMMON-EQUIVALENCE OVERLAP SEARCH               FCC1289X     484     A     
 DPCLOSE  **        SCAN2 - COMMON -EQUIVALENCE OVERLAP SEARCH.                            FCC1289X     485     A     
 DPCLOSE  *                                                                                FCC1289X     486     A     
 DPCLOSE  *         FOR EACH EQUIVALENCE CLASS IN COMMON, EXTEND ITS RANGE TO              FCC1289X     487     A     
 DPCLOSE  *         INCLUDE MEMBERS OF COMMON BLOCK WHICH IT OVERLAPS.                     FCC1289X     488     A     
 DPCLOSE  *         ADD ADDITIONAL ENTRIES TO G-F TABLE FOR THESE MEMBERS AND              FCC1289X     489     A     
 DPCLOSE  *         UPDATE FWA AND LWA OF CLASS.                                           FCC1289X     490     A     
 DPCLOSE  *                (B1)= LENGTH OF G-F TABLE                                       FCC1289X     491     A     
 DPCLOSE                                                                                   FCC1289X     492     A     
 DPCLOSE   EQV200   SX6    B1                                                              FCC1289X     493     A     
 DPCLOSE            SA6    L.EQV                                                           FCC1289X     494     A     
 DPCLOSE            AX6    1                                                               FCC1289X     495     A     
 DPCLOSE            ALLOC  EOT,X6      ALLOCATE SPACES FOR EOT                             FCC1289X     496     A     
 DPCLOSE            SA1    L.EQV                                                           FCC1289X     497     A     
 DPCLOSE            AX6    B5,X1                                                           FCC1289X     498     A     
 DPCLOSE            SB3    B5+B5                                                           FCC1289X     499     A     
 DPCLOSE            SA6    L.EOT                                                           FCC1289X     500     A     
 DPCLOSE                                                                                   FCC1289X     501     A     
 DPCLOSE  *         CREATE AN EOT ENTRY FOR EACH EQUIVALENCE CLASS, FORMAT AS EO. .        FCC1289X     502     A     
 DPCLOSE  *                FWA= RA(ROOT)-LO(ROOT)                                          FCC1289X     503     A     
 DPCLOSE  *                LWA= RA(ROOT)+HI(ROOT)-1                                        FCC1289X     504     A     
 DPCLOSE                                                                                   FCC1289X     505     A     
 DPCLOSE            SA1    O.EQV                                                           FCC1289X     506     A     
 DPCLOSE            SA5    O.EOT                                                           FCC1289X     507     A     
 DPCLOSE            SB6    X1                                                              FCC1289X     508     A     
 DPCLOSE            SB7    B0          EOIND= 0                                            FCC1289X     509     A     
 DPCLOSE            SA2    L.EQV                                                           FCC1289X     510     A     
 DPCLOSE            SB4    -B3         EQIND= -2                                           FCC1289X     511     A     
 DPCLOSE            SB2    X2          L.GF= L.EQV                                         FCC1289X     512     A     
 DPCLOSE                                                                                   FCC1289X     513     A     
 DPCLOSE   EQV220   SB4    B4+B3       EQIND= EQIND+2                                      FCC1289X     514     A     
 DPCLOSE            GE     B4,B2,EQV230      IF EQIND  GE  L.GF                            FCC1289X     515     A     
 DPCLOSE            SA1    B6+B4       GF1I= G-FTAB(EQIND)                                 FCC1289X     516     A     
 DPCLOSE            SA2    A1+B5       GF2I= GF1I+1                                        FCC1289X     517     A     
 DPCLOSE            LX1    -G1.RAP                                                         FCC1289X     518     A     
 DPCLOSE            UX2    B1                                                              FCC1289X     519          I
          -FCC1946
 DPCLOSE            UNPK   X2,B1,X3,X4                                                     FCC1946      163     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2481    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            LX2    -G2.LOP                                                         FCC1289X     520     A     
 DPCLOSE            SX3    X1          RAI= RA[GF1I]                                       FCC1289X     521     A     
 DPCLOSE            SX4    X2          LOI= LO[GF2I]                                       FCC1289X     522     A     
 DPCLOSE            NE     B4,B1,EQV220      IF P[GF2I]  NE  EQIND  (NOT ROOT)             FCC1289X     523     A     
 DPCLOSE            LX1    G1.RAP-G1.RBP                                                   FCC1289X     524     A     
 DPCLOSE            IX4    X3-X4       FWAI= RAI-LOI                                       FCC1289X     525     A     
 DPCLOSE            MX0    -EO.FWAL                                                        FCC1289X     526     A     
 DPCLOSE            BX4    -X0*X4                                                          FCC1289X     527     A     
 DPCLOSE            LX2    G2.LOP-G2.HIP                                                   FCC1289X     528     A     
 DPCLOSE            BX6    -X0*X1      RBI= RB[GF1I]                                       FCC1289X     529     A     
 DPCLOSE            ERRNZ  G1.RBL-EO.FWAL                                                  FCC1289X     530     A     
 DPCLOSE            LX4    EO.FWAP                                                         FCC1289X     531     A     
 DPCLOSE            SX2    X2          HII= HI[GF2I]                                       FCC1289X     532     A     
 DPCLOSE            MI     X2,EQ.E80   IF HII  GT  377777B                                 FCC1289X     533     A     
 DPCLOSE            IX3    X3+X2                                                           FCC1289X     534     A     
 DPCLOSE            SX3    X3          LWAI= RAI+HII                                       FCC1289X     535     A     
 DPCLOSE            MI     X3,EQ.E80   IF LWAI  GT  377777B                                FCC1289X     536     A     
 DPCLOSE                                                                                   FCC1289X     537     A     
 DPCLOSE   EQV225   SX3    X3-1        LWAI= LWAI-1                                        FCC1289X     538     A     
 DPCLOSE            LX6    EO.RBP                                                          FCC1289X     539     A     
 DPCLOSE            BX6    X6+X4                                                           FCC1289X     540     A     
 DPCLOSE            SX2    B1          GFII= P[GF2I]                                       FCC1289X     541     A     
 DPCLOSE            LX3    EO.LWAP                                                         FCC1289X     542     A     
 DPCLOSE            LX2    EO.GFIP                                                         FCC1289X     543     A     
 DPCLOSE            BX2    X2+X3                                                           FCC1289X     544     A     
 DPCLOSE            IX6    X6+X2                                                           FCC1289X     545     A     
 DPCLOSE            SA6    X5+B7       EOT(EOIND)= (RBI,FWAI,LWAI,GFI) [EO.]               FCC1289X     546     A     
 DPCLOSE            SB7    B7+B5       EOIND= EOIND+1                                      FCC1289X     547     A     
 DPCLOSE            EQ     EQV220                                                          FCC1289X     548     A     
 DPCLOSE                                                                                   FCC1289X     549     A     
 DPCLOSE  *         SORT EOT IN ASCENDING ORDER.                                           FCC1289X     550     A     
 DPCLOSE  *                (B7)= EOIND                                                     FCC1289X     551     A     
 DPCLOSE  *                (X5)= O.EOT                                                     FCC1289X     552     A     
 DPCLOSE                                                                                   FCC1289X     553     A     
 DPCLOSE   EQV230   MX6    -1                                                              FCC1289X     554     A     
 DPCLOSE            SA6    A6+B5       ADD TERMINATOR WORD TO EOT                          FCC1289X     555     A     
 DPCLOSE            SX1    B7          LEN =EOIND                                          FCC1289X     556     A     
 DPCLOSE            SB7    X5          FWA= O.EOT                                          FCC1289X     557     A     
 DPCLOSE            RJ     SST                                                             FCC1289X     558     A     
 DPCLOSE            SX7    B3-B7                                                           FCC1289X     559     A     
 DPCLOSE            SA1    B7-B5       EOA= FWA-1 OF EOT                                   FCC1289X     560     A     
 DPCLOSE            SX7    X7+1                                                            FCC1289X     561     A     
 DPCLOSE            SA7    L.EOT       NEW L.EOT= LWA+1(EOT)-FWA(EOT)+1                    FCC1289X     562     A     
 DPCLOSE                                                                                   FCC1289X     563     A     
 DPCLOSE  **        BEGIN COMMON EQUIVALENCE OVERLAP SEARCH.                               FCC1289X     564     A     
 DPCLOSE  *         FOR EACH EQUIVALENCE CLASS IN COMMON, SEARCH ITS COMMON                FCC1289X     565     A     
 DPCLOSE  *         BLOCK, ADDING MEMBERS TO THE CLASS WHEN THEY OVERLAP WITH              FCC1289X     566     A     
 DPCLOSE  *         THE SPAN OF THE CLASS.                                                 FCC1289X     567     A     
 DPCLOSE  *                (A1)= EOA                                                       FCC1289X     568     A     
 DPCLOSE                                                                                   FCC1289X     569     A     
 DPCLOSE                                                                                   FCC1289X     570     A     
 DPCLOSE   EQV240   SA1    A1+B5       EOA= EOA+1, EOI= EOT(EOA)                           FCC1289X     571     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2482    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            MI     X1,EQV300   IF END OF EOT                                       FCC1289X     572     A     
 DPCLOSE            MX0    -EO.RBL                                                         FCC1289X     573     A     
 DPCLOSE            LX1    -EO.RBP                                                         FCC1289X     574     A     
 DPCLOSE            BX7    -X0*X1      RBI= RB[EOI]                                        FCC1289X     575     A     
 DPCLOSE            SA2    ORGTAB-1+X7 IND= PNT[ORGTAB(RBI)]                               FCC1289X     576     A     
 DPCLOSE            ZR     X7,EQV240   IF RBI  EQ  0                                       FCC1289X     577     A     
 DPCLOSE            SA4    O.COM                                                           FCC1289X     578     A     
 DPCLOSE            IX3    X2+X4                                                           FCC1289X     579     A     
 DPCLOSE            SA2    X3+         CHI= COMTAB(IND)                                    FCC1289X     580     A     
 DPCLOSE            LX2    -CH.NMP                                                         FCC1289X     581     A     
 DPCLOSE                                                                                   FCC1289X     582     A     
 DPCLOSE   EQV245   SB7    X2                                                              FCC1289X     583     A     
 DPCLOSE            EQ     B7,B5,EQV290      IF NM[CHI]  EQ  1                             FCC1289X     584     A     
 DPCLOSE            SB4    B5          J= 1      */COMMON MEMBER COUNT                     FCC1289X     585     A     
 DPCLOSE                                                                                   FCC1289X     586     A     
 DPCLOSE  *         COMMON MEMBER LOOP.                                                    FCC1289X     587     A     
 DPCLOSE  *                (B4)= J                                                         FCC1289X     588     A     
 DPCLOSE  *                (B7)= NM[CHI]                                                   FCC1289X     589     A     
 DPCLOSE  *                (A1)= EOI                                                       FCC1289X     590     A     
 DPCLOSE  *                (A2)= CHI                                                       FCC1289X     591     A     
 DPCLOSE                                                                                   FCC1289X     592     A     
 DPCLOSE   EQV255   GT     B4,B7,EQV290      IF J  GT  NM[CHI]                             FCC1289X     593     A     
 DPCLOSE            SA1    A1          EOI                                                 FCC1289X     594     A     
 DPCLOSE            SA4    A2+B4       CMI= COMTAB(IND+J)                                  FCC1289X     595     A     
 DPCLOSE            MX0    -CM.WCL                                                         FCC1289X     596     A     
 DPCLOSE            LX1    -EO.FWAP                                                        FCC1289X     597     A     
 DPCLOSE            SB4    B4+B5       J= J+1                                              FCC1289X     598     A     
 DPCLOSE            SB1    X1          FWAC= FWA[EOI]                                      FCC1289X     599     A     
 DPCLOSE            LX4    -CM.WCP                                                         FCC1289X     600     A     
 DPCLOSE            BX3    -X0*X4      LENM= WC[CMI]                                       FCC1289X     601     A     
 DPCLOSE            LX1    EO.FWAP-EO.LWAP                                                 FCC1289X     602     A     
 DPCLOSE            LX4    CM.WCP-CM.SYMP                                                  FCC1289X     603     A     
 DPCLOSE            SX5    X1          LWAC= LWA[EOI]                                      FCC1289X     604     A     
 DPCLOSE            SX2    X4          SYMJ= SYM[CMI]                                      FCC1289X     605     A     
 DPCLOSE            LX4    CM.SYMP-CM.RAP                                                  FCC1289X     606     A     
 DPCLOSE            SX4    X4          FWAM= RA[CMI]                                       FCC1289X     607     A     
 DPCLOSE            IX3    X3+X4                                                           FCC1289X     608     A     
 DPCLOSE            SB1    -B1         FWAC= -FWAC                                         FCC1289X     609     A     
 DPCLOSE            SX3    X3-1        LWAM= FWAM +LENM-1                                  FCC1289X     610     A     
 DPCLOSE            SX7    X3+B1                                                           FCC1289X     611     A     
 DPCLOSE            IX6    X5-X4                                                           FCC1289X     612     A     
 DPCLOSE            MI     X7,EQV255   IF LWAM  LT  FWAC                                   FCC1289X     613     A     
 DPCLOSE            SX7    -B1                                                             FCC1289X     614     A     
 DPCLOSE            MI     X6,EQV255   IF LWAC  LT  FWAM                                   FCC1289X     615     A     
 DPCLOSE            MX6    X4-X7       FWAC= MIN(FWAM, FWAC)                               FCC1289X     616     A     
 DPCLOSE            MX7    X3+X5       LWAC= MAX(LWAM, LWAC)                               FCC1289X     617     A     
 DPCLOSE                                                                                   FCC1289X     618     A     
 DPCLOSE  *         UPDATE FWA, LWA OF CLASS.                                              FCC1289X     619     A     
 DPCLOSE  *                (X7)= LWAC                                                      FCC1289X     620     A     
 DPCLOSE  *                (X6)= FWAC                                                      FCC1289X     621     A     
 DPCLOSE                                                                                   FCC1289X     622     A     
 DPCLOSE            BX1    X0*X1                                                           FCC1289X     623     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2483    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            ERRNZ  CM.WCL-EO.LWAL                                                  FCC1289X     624     A     
 DPCLOSE            IX1    X1+X7                                                           FCC1289X     625          I
          -FCCA455
 DPCLOSE            PL     X6,EQV273   IF FWA OF CLASS NOT NEGATIVE                        FCCA455        7     A     
 DPCLOSE            BX6    -X6                                                             FCCA455        8          I
          -FCCA475
 DPCLOSE            BX6    -X0*X6                                                          FCCA475       17     A     
 DPCLOSE   EQV273   IX1    X1+X7                                                           FCCA455        9     A     
 DPCLOSE            LX1    EO.LWAP-EO.FWAP                                                 FCC1289X     626     A     
 DPCLOSE            BX1    X0*X1                                                           FCC1289X     627     A     
 DPCLOSE            ERRNZ  CM.WCL-EO.FWAL                                                  FCC1289X     628     A     
 DPCLOSE            IX6    X1+X6                                                           FCC1289X     629     A     
 DPCLOSE            LX6    EO.FWAP                                                         FCC1289X     630     A     
 DPCLOSE            SA6    A1          (FWA,LWA) [EOI]= (FWAC,LWAC) [EO.]                  FCC1289X     631     A     
 DPCLOSE                                                                                   FCC1289X     632     A     
 DPCLOSE  *         CHECK IF THIS COMMON ELEMENT IS ALREADY IN THE G-F TABLE.              FCC1289X     633     A     
 DPCLOSE  *                (X2)= SYMJ                                                      FCC1289X     634     A     
 DPCLOSE  *                (B6)= O.EQV                                                     FCC1289X     635     A     
 DPCLOSE                                                                                   FCC1289X     636     A     
 DPCLOSE            SA5    L.EQV                                                           FCC1289X     637     A     
 DPCLOSE            MX3    -EO.GFIL                                                        FCC1289X     638     A     
 DPCLOSE            LX2    G1.SYMP                                                         FCC1289X     639     A     
 DPCLOSE            SB2    X5          LEQ= L.EQV                                          FCC1289X     640     A     
 DPCLOSE            MX7    G1.SYML                                                         FCC1289X     641     A     
 DPCLOSE            SB3    B5+B5                                                           FCC1289X     642     A     
 DPCLOSE            LX7    G1.SYML+G1.SYMP                                                 FCC1289X     643     A     
 DPCLOSE                                                                                   FCC1289X     644     A     
 DPCLOSE   EQV275   SB2    B2-B3       LEQ= LEQ-2                                          FCC1289X     645     A     
 DPCLOSE            MI     B2,EQV280   IF END OF G-F TABLE                                 FCC1289X     646     A     
 DPCLOSE            SA5    B6+B2       GF1L= G-FTAB(LEQ]                                   FCC1289X     647     A     
 DPCLOSE            BX5    X7*X5                                                           FCC1289X     648     A     
 DPCLOSE            IX5    X5-X2                                                           FCC1289X     649     A     
 DPCLOSE            ZR     X5,EQV255   IF SYMJ  EQ  SYML                                   FCC1289X     650     A     
 DPCLOSE            EQ     EQV275                                                          FCC1289X     651     A     
 DPCLOSE                                                                                   FCC1289X     652     A     
 DPCLOSE  *         NO MATCH IN G-F TABLE, CREATE AN ENTRY FOR IT.                         FCC1289X     653     A     
 DPCLOSE  *                (X6)= EOI                                                       FCC1289X     654     A     
 DPCLOSE  *                (A4)= CMI                                                       FCC1289X     655     A     
 DPCLOSE                                                                                   FCC1289X     656     A     
 DPCLOSE   EQV280   SA4    A4          CMI                                                 FCC1289X     657     A     
 DPCLOSE            LX6    -EO.GFIP                                                        FCC1289X     658     A     
 DPCLOSE            BX7    -X3*X6      GFIR= GFI[EOI]                                      FCC1289X     659     A     
 DPCLOSE            SA5    B6+X7       GF1R= G-FTAB(GFIR)                                  FCC1289X     660     A     
 DPCLOSE            LX4    -G1.RAP                                                         FCC1289X     661     A     
 DPCLOSE            LX5    -G1.RAP                                                         FCC1289X     662     A     
 DPCLOSE            SX4    X4          RAJ= RA[CMI]                                        FCC1289X     663     A     
 DPCLOSE            SX5    X5          RAROOT= RA[GF1R]                                    FCC1289X     664     A     
 DPCLOSE            MX3    1                                                               FCC1289AX     29     A     
 DPCLOSE            LX3    1+G1.COMP                                                       FCC1289AX     30     A     
 DPCLOSE            IX4    X4-X5       RAJ= RAJ-RAROOT                                     FCC1289X     665     A     
 DPCLOSE            SB2    X7                                                              FCC1289X     666     A     
 DPCLOSE            BX4    -X0*X4                                                          FCC1289X     667     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2484    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            ERRNZ  G1.RAL-CM.WCL                                                   FCC1289X     668     A     
 DPCLOSE            LX4    G1.RAP                                                          FCC1289X     669     A     
 DPCLOSE            MX7    0                                                               FCC1289X     670     A     
 DPCLOSE            BX6    X2+X4                                                           FCC1289X     671     A     
 DPCLOSE            IX6    X6+X3                                                           FCC1289AX     31     A     
 DPCLOSE            PX7    B2                                                              FCC1289X     672          I
          -FCC1946
 DPCLOSE            PACK   X7,B2,X3,X4                                                     FCC1946      164     A     
 DPCLOSE            SA6    TEMPR       TEMPR(0)= (SYMJ,0,RAJ) [G1.]                        FCC1289X     673          I
          -FCC1289AX
 DPCLOSE            SA6    TEMPR       TEMPR(0)= (COM,SYMJ,0,RAJ) [G1.]                    FCC1289AX     32     A     
 DPCLOSE            SA7    A6+1        TEMPR(1)= (GFIR,0) [G2.]                            FCC1289X     674     A     
 DPCLOSE                                                                                   FCC1289X     675     A     
 DPCLOSE  *         BEFORE WE CALL ALLOC, STORE NECESSARY REGISTERS.                       FCC1289X     676     A     
 DPCLOSE                                                                                   FCC1289X     677     A     
 DPCLOSE            SA3    O.EOT       SAVE (EOI-O.EOT, CHI-O.COM, J)                      FCC1289X     678     A     
 DPCLOSE            SA4    O.COM                                                           FCC1289X     679     A     
 DPCLOSE            SX7    B4                                                              FCC1289X     680     A     
 DPCLOSE            SB2    X4                                                              FCC1289X     681     A     
 DPCLOSE            SX6    A2-B2                                                           FCC1289X     682     A     
 DPCLOSE            SB1    X3                                                              FCC1289X     683     A     
 DPCLOSE            SA7    TEMPR+2     TEMPR(2)= J                                         FCC1289X     684     A     
 DPCLOSE            SA6    A7+B5       TEMPR(3)= CHI-O.COM                                 FCC1289X     685     A     
 DPCLOSE            SX7    A1-B1                                                           FCC1289X     686     A     
 DPCLOSE            SA7    A6+1        TEMPR(4)= EOI-O.EOT                                 FCC1289X     687     A     
 DPCLOSE            ALLOC  EQV,2       ALLOCATE FOR GF1,GF2                                FCC1289X     688          I
          -FCC2186
 DPCLOSE            SX5    2                                                               FCC2186        8     A     
 DPCLOSE            ALLOC  EQV,X5      ALLOCATE FOR GF1,GF2                                FCC2186        9     A     
 DPCLOSE                                                                                   FCC1289X     689     A     
 DPCLOSE  *         RESTORE REGISTERS AND SET NEW L.EQV.                                   FCC1289X     690     A     
 DPCLOSE                                                                                   FCC1289X     691     A     
 DPCLOSE            SA1    L.EQV                                                           FCC1289X     692     A     
 DPCLOSE            SA2    TEMPR       NEW GF1= TEMPR(0)                                   FCC1289X     693     A     
 DPCLOSE            SA3    A2+B5       NEW GF2= TMEPR(1)                                   FCC1289X     694     A     
 DPCLOSE            SA4    O.EQV                                                           FCC1289X     695     A     
 DPCLOSE            BX6    X2                                                              FCC1289X     696     A     
 DPCLOSE            BX7    X3                                                              FCC1289X     697     A     
 DPCLOSE            IX5    X1+X4       NEWIND= O.EQV+L.EQV                                 FCC1289X     698     A     
 DPCLOSE            SB6    X4                                                              FCC1289X     699     A     
 DPCLOSE            SA6    X5          GF1(NEWIND)= TEMPR(0)                               FCC1289X     700     A     
 DPCLOSE            SA7    X5+B5       GF2(NEWIND)= TEMPR(1)                               FCC1289X     701     A     
 DPCLOSE            SA3    A3+B5       RESTORE J,CHI,EOI                                   FCC1289X     702     A     
 DPCLOSE            SX6    X1+2                                                            FCC1289X     703     A     
 DPCLOSE            SA2    A3+B5                                                           FCC1289X     704     A     
 DPCLOSE            SA4    A2+B5                                                           FCC1289X     705     A     
 DPCLOSE            SB4    X3          J= TEMPR(2)                                         FCC1289X     706     A     
 DPCLOSE            SA6    A1          NEW L.EQV= L.EQV+2                                  FCC1289X     707     A     
 DPCLOSE            SA5    O.EOT                                                           FCC1289X     708     A     
 DPCLOSE            SA3    O.COM                                                           FCC1289X     709     A     
 DPCLOSE            IX1    X4+X5       EOI= TEMPR(4)+ O.EOT                                FCC1289X     710     A     
 DPCLOSE            IX2    X2+X3       CHI= TMPER(3)+ O.COM                                FCC1289X     711     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2485    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            SA1    X1                                                              FCC1289X     712     A     
 DPCLOSE            SA2    X2                                                              FCC1289X     713     A     
 DPCLOSE            LX2    -CH.NMP                                                         FCC1289X     714     A     
 DPCLOSE            SB7    X2                                                              FCC1289X     715     A     
 DPCLOSE            EQ     EQV255                                                          FCC1289X     716     A     
 DPCLOSE                                                                                   FCC1289X     717     A     
 DPCLOSE  *         FINISHED WITH THIS BLOCK APPEARENCE, UPDATE BLOCK LENGTH               FCC1289X     718     A     
 DPCLOSE  *         IF LWAC+1 .GT. BLOCK LENGTH.                                           FCC1289X     719     A     
 DPCLOSE  *                (A2)= CHI                                                       FCC1289X     720     A     
 DPCLOSE  *                (A1)= EOI                                                       FCC1289X     721     A     
 DPCLOSE                                                                                   FCC1289X     722     A     
 DPCLOSE   EQV290   SA2    A2                                                              FCC1289X     723     A     
 DPCLOSE            SA1    A1                                                              FCC1289X     724     A     
 DPCLOSE            LX2    -CH.LNKP                                                        FCC1289X     725     A     
 DPCLOSE            SB2    X2+         LINK= LNK[CHI]                                      FCC1289X     726     A     
 DPCLOSE            LX1    -EO.LWAP                                                        FCC1289X     727     A     
 DPCLOSE            LX2    CH.LNKP-CH.LENP                                                 FCC1289X     728     A     
 DPCLOSE            SX1    X1+1        LWAI= LWA[EOI]+1                                    FCC1289X     729     A     
 DPCLOSE            SX3    X2          BLKLEN= LEN[CHI]                                    FCC1289X     730          I
          -FCC2009
 DPCLOSE            MX6    -17                                                             FCC2009        5     A     
 DPCLOSE            BX3    -X6*X2      BLKLEN=LEN[CHI]                                     FCC2009        6     A     
 DPCLOSE            IX7    X1-X3                                                           FCC1289X     731     A     
 DPCLOSE            MI     X7,EQV295   IF LWAI  LT  BLKLEN                                 FCC1289X     732     A     
 DPCLOSE            IX7    X7+X2                                                           FCC1289X     733     A     
 DPCLOSE            LX7    CH.LENP                                                         FCC1289X     734     A     
 DPCLOSE            SA7    A2+         LEN[CHI]= LWAI                                      FCC1289X     735     A     
 DPCLOSE   EQV295   ZR     B2,EQV240   IF LINK  EQ  0                                      FCC1289X     736     A     
 DPCLOSE            SA2    A2+B2       CHI= COMTAB(IND+LINK)                               FCC1289X     737     A     
 DPCLOSE            LX2    -CH.NMP                                                         FCC1289X     738     A     
 DPCLOSE            EQ     EQV245                                                          FCC1289X     739     A     
 DPCLOSE            TITLE    EQV - SCAN3 - EQUIVALENCE CLASS OVERLAP SEARCH                FCC1289X     740     A     
 DPCLOSE  **        SCAN3 - EQUIVALENCE CLASS OVERLAP SEARCH.                              FCC1289X     741     A     
 DPCLOSE  *         ENTRY: EOT FORMATED AS EO.                                             FCC1289X     742     A     
 DPCLOSE  *         IF CLASS(N) AND CLASS(N+1) OF THE SAME COMMON BLOCK OVERLAP            FCC1289X     743     A     
 DPCLOSE  *         WITH EACH OTHER, MERGE THESE TWO CLASSES.                              FCC1289X     744     A     
 DPCLOSE  *                (B6)= O.EQV                                                     FCC1289X     745     A     
 DPCLOSE                                                                                   FCC1289X     746     A     
 DPCLOSE                                                                                   FCC1289X     747     A     
 DPCLOSE   EQV300   SA1    O.EOT                                                           FCC1289X     748     A     
 DPCLOSE            SA2    L.EOT                                                           FCC1289X     749     A     
 DPCLOSE            SB7    X1                                                              FCC1289X     750     A     
 DPCLOSE            SB4    X1          N= FWA OF EOT                                       FCC1289X     751     A     
 DPCLOSE            SX2    X2-3                                                            FCC1289X     752     A     
 DPCLOSE            SB2    0           I= 0  */INDEX TO EOT                                FCC1289X     753     A     
 DPCLOSE            MI     X2,EQV400   IF L.EOT  LT  3                                     FCC1289X     754     A     
 DPCLOSE                                                                                   FCC1289X     755     A     
 DPCLOSE  *         OVERLAP SEARCH BEGINS.                                                 FCC1289X     756     A     
 DPCLOSE                                                                                   FCC1289X     757     A     
 DPCLOSE   EQV310   SA1    B4          EOTN= EOT(N)                                        FCC1289X     758     A     
 DPCLOSE            MX0    -EO.GFIL                                                        FCC1289X     759     A     
 DPCLOSE            MI     X1,EQV350   IF END OF EOT TABLE                                 FCC1289X     760     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2486    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            MX6    EO.RBL                                                          FCC1289X     761     A     
 DPCLOSE            LX6    EO.RBL+EO.RBP                                                   FCC1289X     762     A     
 DPCLOSE            SA2    A1+B5       EOTN1= EOT(N+1)                                     FCC1289X     763     A     
 DPCLOSE            BX7    X6*X1                                                           FCC1289X     764     A     
 DPCLOSE            BX6    X6*X2                                                           FCC1289X     765     A     
 DPCLOSE            SB4    B4+B5       N= N+1                                              FCC1289X     766     A     
 DPCLOSE            ZR     X7,EQV310   IF RB[EOTN]  EQ  0                                  FCC1289X     767     A     
 DPCLOSE            IX7    X7-X6                                                           FCC1289X     768     A     
 DPCLOSE            LX2    -EO.GFIP                                                        FCC1289X     769     A     
 DPCLOSE            NZ     X7,EQV310   IF RB[EOTN]  NE  RB[EOTN1]                          FCC1289X     770     A     
 DPCLOSE                                                                                   FCC1289X     771     A     
 DPCLOSE  *         SAME RB, CHECK FOR OVERLAP.                                            FCC1289X     772     A     
 DPCLOSE                                                                                   FCC1289X     773     A     
 DPCLOSE            BX4    -X0*X2      GFINSR= GFI[EOTN1]                                  FCC1289X     774     A     
 DPCLOSE            LX2    EO.GFIP-EO.LWAP                                                 FCC1289X     775     A     
 DPCLOSE            LX1    -EO.LWAP                                                        FCC1289X     776     A     
 DPCLOSE            SX5    X1          LWAN= LWA[EOTN]                                     FCC1289X     777     A     
 DPCLOSE            SX6    X2          LWAN1= LWA[EOTN1]                                   FCC1289X     778     A     
 DPCLOSE            LX2    EO.LWAP-EO.FWAP                                                 FCC1289X     779     A     
 DPCLOSE            SX2    X2          FWAN1= FWA[EOTN1]                                   FCC1289X     780     A     
 DPCLOSE            IX7    X5-X2                                                           FCC1289X     781     A     
 DPCLOSE            MI     X7,EQV310   IF LWAN  LT  FWAN1                                  FCC1289X     782     A     
 DPCLOSE                                                                                   FCC1289X     783     A     
 DPCLOSE  *         THERE IS OVERLAP. JOIN TWO CLASSES, UPDATING LWA AS NECESSARY.         FCC1289X     784     A     
 DPCLOSE  *         COMPARE G-F INDEX OF EACH ROOT, MAKE THE SMALLER ONE TO BE THE         FCC1289X     785     A     
 DPCLOSE  *         SURVIVING ROOT.                                                        FCC1289X     786     A     
 DPCLOSE  *                (X3)= GFINSR, GFI OF NON-SURVIVING ROOT                         FCC1289X     787     A     
 DPCLOSE                                                                                   FCC1289X     788     A     
 DPCLOSE            LX1    EO.LWAP-EO.GFIP                                                 FCC1289X     789     A     
 DPCLOSE            MX2    X5+X6       LWAN= MAX(LWAN,LWAN1)                               FCC1289X     790     A     
 DPCLOSE            BX3    -X0*X1      GFISR= GFI[EOTN]                                    FCC1289X     791     A     
 DPCLOSE            BX6    X0*X1                                                           FCC1289X     792     A     
 DPCLOSE            IX7    X3-X4                                                           FCC1289X     793     A     
 DPCLOSE            MX0    -EO.LWAL                                                        FCC2138        6     A     
 DPCLOSE            MI     X7,EQV330   IF GFISR  LT  GFINSR                                FCC1289X     794     A     
 DPCLOSE            MX0    -EO.LWAL                                                        FCC1289X     795          I
          -FCC2138
 DPCLOSE            BX7    X3          TEMP= GFISR                                         FCC1289X     796     A     
 DPCLOSE            SX3    X4          GFISR= GFINSR                                       FCC1289X     797     A     
 DPCLOSE            SX4    X7+         GFINSR= TEMP                                        FCC1289X     798     A     
 DPCLOSE   EQV330   BX6    X6+X3                                                           FCC1289X     799     A     
 DPCLOSE            LX6    EO.GFIP-EO.LWAP                                                 FCC1289X     800     A     
 DPCLOSE            BX6    X0*X6                                                           FCC1289X     801     A     
 DPCLOSE            SB1    X3          PSR= GFISR                                          FCC1289X     802     A     
 DPCLOSE            IX6    X6+X2                                                           FCC1289X     803     A     
 DPCLOSE            BX7    X7-X7                                                           FCC1289X     804     A     
 DPCLOSE            SA3    B6+X3       GF1(GFISR)                                          FCC1289X     805     A     
 DPCLOSE            LX6    EO.LWAP                                                         FCC1289X     806     A     
 DPCLOSE            SA6    A2          EOTN1= (RBN,FWAN,LWAN,GFISR) [EO.]                  FCC1289X     807     A     
 DPCLOSE            SA7    A1          EOTN= 0                                             FCC1289X     808     A     
 DPCLOSE                                                                                   FCC1289X     809     A     
 DPCLOSE  *         UPDATE G-F ENTRY OF NON-SURVIVING ROOT.                                FCC1289X     810     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2487    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE  *         ADJUST ITS RA AND MAKE IT POINT TO THE SURVIVING ROOT.                 FCC1289X     811     A     
 DPCLOSE                                                                                   FCC1289X     812     A     
 DPCLOSE            LX3    -G1.RAP                                                         FCC1289X     813     A     
 DPCLOSE            SA4    B6+X4       GF1(GFINSR)                                         FCC1289X     814     A     
 DPCLOSE            SX3    X3          RASR= RA[GF1(GFISR)]                                FCC1289X     815     A     
 DPCLOSE            LX4    -G1.RAP                                                         FCC1289X     816     A     
 DPCLOSE            SX5    X4          RANSR= RA[GF1(GFINSR)]                              FCC1289X     817     A     
 DPCLOSE            ERRNZ  EO.LWAL-G1.RAL                                                  FCC1289X     818     A     
 DPCLOSE            IX7    X5-X3       RANSR= RANSR-RASR                                   FCC1289X     819     A     
 DPCLOSE            BX7    -X0*X7                                                          FCC1289X     820     A     
 DPCLOSE            SA5    A4+B5       GF2(GFINSR)                                         FCC1289X     821     A     
 DPCLOSE            UX5                                                                    FCC1289X     822          I
          -FCC1946
 DPCLOSE            UNPK   X5,B0,X1,X1                                                     FCC1946      165     A     
 DPCLOSE            BX4    X0*X4                                                           FCC1289X     823     A     
 DPCLOSE            PX6    B1,X5                                                           FCC1289X     824          I
          -FCC1946
 DPCLOSE            BX6    X5                                                              FCC1946      166     A     
 DPCLOSE            PACK   X6,B1,X1,X0                                                     FCC1946      167     A     
 DPCLOSE            BX7    X4+X7                                                           FCC1289X     825     A     
 DPCLOSE            LX7    G1.RAP                                                          FCC1289X     826     A     
 DPCLOSE            SA6    A5          P[GF2(GFINSR)]= PSR[G2.]                            FCC1289X     827     A     
 DPCLOSE            SA7    A4+         RA[GF1(GFINSR)]= RANSR[G1.]                         FCC1289X     828     A     
 DPCLOSE            EQ     EQV310                                                          FCC1289X     829     A     
 DPCLOSE                                                                                   FCC1289X     830     A     
 DPCLOSE  **        PUT EOT INDEX INTO GF2 OF EACH CLASS ROOT.                             FCC1289X     831     A     
 DPCLOSE  *         EOT INDEX UNIQUELY IDENTIFIES A CLASS.                                 FCC1289X     832     A     
 DPCLOSE  *                (B6)= O.EQV                                                     FCC1289X     833     A     
 DPCLOSE  *                (B7)= O.EOT                                                     FCC1289X     834     A     
 DPCLOSE  *                (B2)= I (INDEX TO EOT)                                          FCC1289X     835     A     
 DPCLOSE                                                                                   FCC1289X     836     A     
 DPCLOSE                                                                                   FCC1289X     837     A     
 DPCLOSE   EQV350   SA1    B7+B2       EOTI= EOT(I)                                        FCC1289X     838     A     
 DPCLOSE            SB2    B2+B5       I= I+1                                              FCC1289X     839     A     
 DPCLOSE            MI     X1,EQV400   IF END OF EOT TABLE                                 FCC1289X     840     A     
 DPCLOSE            ZR     X1,EQV350   IF EOTI  EQ  0                                      FCC1289X     841     A     
 DPCLOSE            LX1    -EO.GFIP                                                        FCC1289X     842     A     
 DPCLOSE            SX7    B2-B5       EOTIND= I-1                                         FCC1289X     843     A     
 DPCLOSE            BX4    -X0*X1      GFII= GFI[EOTI]                                     FCC1289X     844     A     
 DPCLOSE            LX7    F2.EOIP                                                         FCC1289X     845     A     
 DPCLOSE            SX4    X4+B5       GFII= GFII+1                                        FCC1289X     846     A     
 DPCLOSE            SA2    B6+X4       GF2(GFII)                                           FCC1289X     847     A     
 DPCLOSE            BX7    X7+X2                                                           FCC1289X     848     A     
 DPCLOSE            SA7    A2+         EOI[GF2(GFII)]= EOTIND                              FCC1289X     849     A     
 DPCLOSE            EQ     EQV350                                                          FCC1289X     850     A     
 DPCLOSE            TITLE    EQV - SCAN4 - G-F ADDRESS ASSIGNMENT                          FCC1289X     851     A     
 DPCLOSE  **        SCAN4 - GALLER / FISHER ADDRESS ASSIGNMENT.                            FCC1289X     852     A     
 DPCLOSE  *                                                                                FCC1289X     853     A     
 DPCLOSE  *         ADDRESS ASSIGNMENT OF LOCAL VARIABLES IS DONE RELATIVE TO              FCC1289X     854     A     
 DPCLOSE  *         THE CLASS ROOT.  IN SCAN5, THESE WILL BE RELOCATED TO THE              FCC1289X     855     A     
 DPCLOSE  *         DATA.. BLOCK.                                                          FCC1289X     856     A     
 DPCLOSE  *         VARIABLES IN COMMON ARE ASSIGNED ADDRESSES RELATIVE TO THEIR           FCC1289X     857     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2488    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE  *         RESPECTIVE BLOCKS.                                                     FCC1289X     858     A     
 DPCLOSE  *         RB AND EOT INDEX OF THE ROOT ARE INHERITED BY THE MEMBERS.             FCC1289X     859     A     
 DPCLOSE  *         BIAS OF EACH VARIABLE IS COMPUTED AS ITS RA - FWA OF THE               FCC1289X     860     A     
 DPCLOSE  *         CLASS.                                                                 FCC1289X     861     A     
 DPCLOSE  *                (B7)= O.EOT                                                     FCC1289X     862     A     
 DPCLOSE  *                (B6)= O.EQV                                                     FCC1289X     863     A     
 DPCLOSE                                                                                   FCC1289X     864     A     
 DPCLOSE   EQV400   SA1    L.EQV                                                           FCC1289X     865     A     
 DPCLOSE            SB3    B5+B5                                                           FCC1289X     866     A     
 DPCLOSE            SA0    B6                                                              FCC1289X     867     A     
 DPCLOSE            SB1    X1          L.GF= L.EQV                                         FCC1289X     868     A     
 DPCLOSE            SB4    -B3         I= -2     */INDEX TO  G-F TABLE                     FCC1289X     869     A     
 DPCLOSE            SB2    0           N.LR= 0   */NO. LOCAL ROOTS                         FCC1289X     870     A     
 DPCLOSE                                                                                   FCC1289X     871     A     
 DPCLOSE   EQV410   SB4    B4+B3       I= I+2                                              FCC1289X     872     A     
 DPCLOSE            GE     B4,B1,EQV500      IF I  GE  L.GF                                FCC1289X     873     A     
 DPCLOSE            SA1    A0+B4       GF1I= G-FTAB(I)                                     FCC1289X     874     A     
 DPCLOSE            SA2    A1+B5       GF2I= G-FTAB(I+1)                                   FCC1289X     875     A     
 DPCLOSE            MX0    -G1.RAL                                                         FCC1289X     876     A     
 DPCLOSE            LX1    -G1.RAP                                                         FCC1289X     877     A     
 DPCLOSE            UX2    B6          PI= P[GF2I]                                         FCC1289X     878          I
          -FCC1946
 DPCLOSE            UNPK   X2,B6,X3,X7   PI=P[GF2I]                                        FCC1946      168     A     
 DPCLOSE            SX3    X1          RAI= RA[GF1I]                                       FCC1289X     879     A     
 DPCLOSE            NE     B4,B6,EQV420      IF I  NE  PI                                  FCC1289X     880     A     
 DPCLOSE                                                                                   FCC1289X     881     A     
 DPCLOSE  *         CLASS ROOT.                                                            FCC1289X     882     A     
 DPCLOSE  *         COMPUTE BIAS = RA-FWA, FORMAT GF2 AS F2. .                             FCC1289X     883     A     
 DPCLOSE  *         UPDATE N.LR IF IT IS LOCAL.                                            FCC1289X     884     A     
 DPCLOSE                                                                                   FCC1289X     885     A     
 DPCLOSE            MX7    -F2.EOIL                                                        FCC1289X     886     A     
 DPCLOSE            LX2    -F2.EOIP                                                        FCC1289X     887     A     
 DPCLOSE            BX6    -X7*X2      EOTIND= EOI[GF2I]                                   FCC1289X     888     A     
 DPCLOSE            LX1    G1.RAP-G1.RBP                                                   FCC1289X     889     A     
 DPCLOSE            SA5    B7+X6       EOTI= EOT(EOTIND)                                   FCC1289X     890     A     
 DPCLOSE            LX5    -EO.FWAP                                                        FCC1289X     891     A     
 DPCLOSE            ERRNZ  EO.FWAL-G1.RAL                                                  FCC1289X     892     A     
 DPCLOSE            BX5    -X0*X5      FWAI= FWA[EOTI]                                     FCC1289X     893     A     
 DPCLOSE            LX6    F2.EOIP                                                         FCC1289X     894     A     
 DPCLOSE            SX4    X5          SIGN EXTEND FWAI                                    FCC1289X     895     A     
 DPCLOSE            IX3    X3-X4       BIASI= RAI- FWAI                                    FCC1289X     896     A     
 DPCLOSE            LX5    F2.FWAP                                                         FCC1289X     897     A     
 DPCLOSE            BX6    X6+X5                                                           FCC1289X     898     A     
 DPCLOSE            BX3    -X0*X3       MASK TO 18 BITS IN CASE NEGATIVE BIAS              FCC2362        9     A     
 DPCLOSE            ERRNZ  G1.RBL-G1.RAL                                                   FCC1289X     899     A     
 DPCLOSE            BX7    -X0*X1      RBI= RB[GF1I]                                       FCC1289X     900     A     
 DPCLOSE            LX3    F2.BIAP                                                         FCC1289X     901     A     
 DPCLOSE            BX6    X6+X3                                                           FCC1289X     902     A     
 DPCLOSE            SA6    A2          GF2I= (EOTIND,BIASI,FWAI) [F2.]                     FCC1289X     903     A     
 DPCLOSE            NZ     X7,EQV410   IF RBI  NE  0                                       FCC1289X     904     A     
 DPCLOSE            SB2    B2+B5       N.LR= N.LR+1                                        FCC1289X     905     A     
 DPCLOSE            EQ     EQV410                                                          FCC1289X     906     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2489    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE                                                                                   FCC1289X     907     A     
 DPCLOSE  *         NON ROOT MEMBERS.                                                      FCC1289X     908     A     
 DPCLOSE  *         COMPUTE RA(I)= RA(I) - RA(P(I)), BIAS(I)= RA(I) - FWA(P(I)).           FCC1289X     909     A     
 DPCLOSE  *         SET RB(I)= RB(P(I)), FWA(I)= FWA(P(I)).                                FCC1289X     910     A     
 DPCLOSE  *                (B6)= PI                                                        FCC1289X     911     A     
 DPCLOSE  *                (X3)= RAI                                                       FCC1289X     912     A     
 DPCLOSE                                                                                   FCC1289X     913     A     
 DPCLOSE   EQV420   SA4    A0+B6       GF1PI= G-FTAB(PI)                                   FCC1289X     914     A     
 DPCLOSE            SA2    A4+B5       GF2PI= G-FTAB(PI+1)                                 FCC1289X     915     A     
 DPCLOSE            LX1    -G1.RAP                                                         FCC1289X     916     A     
 DPCLOSE            BX7    X0*X1                                                           FCC1289X     917     A     
 DPCLOSE            LX4    -G1.RAP                                                         FCC1289X     918     A     
 DPCLOSE            SX6    X4          RAP= RA[GF1PI]                                      FCC1289X     919     A     
 DPCLOSE            IX3    X3+X6       RAI= RAI+ RAP                                       FCC1289X     920     A     
 DPCLOSE            LX4    G1.RAP-G1.RBP                                                   FCC1289X     921     A     
 DPCLOSE            BX6    -X0*X3                                                          FCC1289X     922     A     
 DPCLOSE            IX7    X7+X6                                                           FCC1289X     923     A     
 DPCLOSE            LX7    G1.RAP-G1.RBP                                                   FCC1289X     924     A     
 DPCLOSE            ERRNZ  G1.RBL-G1.RAL                                                   FCC1289X     925     A     
 DPCLOSE            BX5    -X0*X4      RBP= RB[GF1PI]                                      FCC1289X     926     A     
 DPCLOSE            BX7    X7+X5                                                           FCC1289X     927     A     
 DPCLOSE            LX7    G1.RBP                                                          FCC1289X     928     A     
 DPCLOSE            SA7    A1          GF1I= (RBP,RAI) [G1.]                               FCC1289X     929     A     
 DPCLOSE            ERRNZ  G1.RAL-F2.BIAL                                                  FCC1289X     930     A     
 DPCLOSE            LX0    F2.BIAP-G1.RAP                                                  FCC1289X     931     A     
 DPCLOSE            BX6    X0*X2       EOFWA= (EOI,FWA) [GF2PI]                            FCC1289X     932     A     
 DPCLOSE            LX2    -F2.FWAP                                                        FCC1289X     933     A     
 DPCLOSE            SX2    X2          FWAI= FWA[GF2PI]                                    FCC1289X     934     A     
 DPCLOSE            IX3    X3-X2       BIASI= RAI-FWAI                                     FCC1289X     935     A     
 DPCLOSE            MX0    -F2.BIAL                                                        FCC2362       10     A     
 DPCLOSE            BX3    -X0*X3       MASK TO 18 BITS IN CASE NEGATIVE BIAS              FCC2362       11     A     
 DPCLOSE            LX3    F2.BIAP                                                         FCC1289X     936     A     
 DPCLOSE            BX6    X6+X3                                                           FCC1289X     937     A     
 DPCLOSE            SA6    A1+B5       GF2I= (EOFWA,BIASI) [F2.]                           FCC1289X     938     A     
 DPCLOSE            EQ     EQV410                                                          FCC1289X     939     A     
 DPCLOSE            TITLE    EQV - SCAN5 - FORMAT ECT , DIM2 ENTRIES                       FCC1289X     940     A     
 DPCLOSE  **        SCAN5 - FORMAT ECT, DIM2 ENTRIES.                                      FCC1289X     941     A     
 DPCLOSE  *         CREATE AND SORT ECT, FIND ULTIMATE BASE FOR EACH CLASS.                FCC1289X     942     A     
 DPCLOSE  *         FORMAT WORD 1 OF DIM TABLE, AND ADD BITS TO SYMBOL TABLE               FCC1289X     943     A     
 DPCLOSE  *         WORDS. A LOCAL VARIABLE NOW WILL HAVE RA RELATIVE TO THE BLOCK         FCC1289X     944     A     
 DPCLOSE  *         DATA.. .                                                               FCC1289X     945     A     
 DPCLOSE  *                (B2)= N.LR                                                      FCC1289X     946     A     
 DPCLOSE                                                                                   FCC1289X     947     A     
 DPCLOSE                                                                                   FCC1289X     948     A     
 DPCLOSE  *         ALLOCATE SPACES FOR ECT AND LAT.                                       FCC1289X     949     A     
 DPCLOSE                                                                                   FCC1289X     950     A     
 DPCLOSE   EQV500   SX6    B2                                                              FCC1289X     951     A     
 DPCLOSE            SA6    TEMPR                                                           FCC1289X     952     A     
 DPCLOSE            ALLOC  LAT,X6      ALLOCATE SPACES FOR LAT                             FCC1289X     953     A     
 DPCLOSE            SA1    L.EQV                                                           FCC1289X     954     A     
 DPCLOSE            SA2    TEMPR                                                           FCC1289X     955     A     
 DPCLOSE            AX1    1                                                               FCC1289X     956     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2490    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            BX7    X2                                                              FCC1289X     957     A     
 DPCLOSE            SX6    X1+B5       EXTRA WORD FOR TERMINATOR                           FCC1289X     958     A     
 DPCLOSE            SA7    L.LAT       L.LAT= N.LR                                         FCC1289X     959     A     
 DPCLOSE            ALLOC  ECT,X6      ALLOCATE SPACES FOR ECT                             FCC1289X     960     A     
 DPCLOSE            SB3    B5+B5                                                           FCC1289X     961     A     
 DPCLOSE            MX7    1                                                               FCC1289AX     33     A     
 DPCLOSE                                                                                   FCC1289X     962     A     
 DPCLOSE  **        FORM TEMPORARY ECT ENTRIES.                                            FCC1289X     963     A     
 DPCLOSE  *                                                                                FCC1289X     964     A     
 DPCLOSE  *         THE ULTIMATE BASE OF A CLASS HAS BIAS OF 0, SINCE BIAS WAS             FCC1289X     965     A     
 DPCLOSE  *         COMPUTED AS RA - FWA IN SCAN4.  SORTING OF THE G-F TABLE BY            FCC1289X     966     A     
 DPCLOSE  *         EOI AND BIAS WILL PROVIDE US WITH SEPARATED CLASSES WITH               FCC1289X     967     A     
 DPCLOSE  *         BASE MEMBER BEING THE FIRST MEMBER OF THE CLASS.                       FCC1289X     968     A     
 DPCLOSE  *         TEMPORARY ECT ENTRIES ARE FORMATED AS TE. .                            FCC1289X     969     A     
 DPCLOSE                                                                                   FCC1289X     970     A     
 DPCLOSE                                                                                   FCC1289X     971     A     
 DPCLOSE            SA1    O.ECT                                                           FCC1289X     972     A     
 DPCLOSE            SA2    O.EQV                                                           FCC1289X     973     A     
 DPCLOSE            SA3    L.EQV                                                           FCC1289X     974     A     
 DPCLOSE            SA4    SYM1                                                            FCC1289X     975     A     
 DPCLOSE            SB7    X1                                                              FCC1289X     976     A     
 DPCLOSE            SB6    X2                                                              FCC1289X     977     A     
 DPCLOSE            SB1    X3          L.GF= L.EQV                                         FCC1289X     978     A     
 DPCLOSE            SB4    -B3         GFIND= -2                                           FCC1289X     979     A     
 DPCLOSE            SA0    X4                                                              FCC1289X     980     A     
 DPCLOSE            MX0    -F2.FWAL                                                        FCC1289X     981          I
          -FCC1289AX
 DPCLOSE            LX0    F2.FWAP                                                         FCC1289X     982          I
          -FCC1289AX
 DPCLOSE            MX0    -F2.EOIL                                                        FCC1289AX     34     A     
 DPCLOSE            LX7    1+TE.CBBP   CBBI= 1                                             FCC1289AX     35     A     
 DPCLOSE                                                                                   FCC1289X     983     A     
 DPCLOSE   EQV510   SB4    B4+B3       GFIND= GFIND+2                                      FCC1289X     984     A     
 DPCLOSE            GE     B4,B1,EQV520      IF GFIND  GE  L.GF                            FCC1289X     985     A     
 DPCLOSE            SX3    B6+B4       GFADI= G-F TAB(GFIND)                               FCC1289X     986     A     
 DPCLOSE            SX2    B4                                                              FCC1289X     987     A     
 DPCLOSE            SA1    X3+B5       GF2I= GF2(GFIND)                                    FCC1289X     988          I
          -FCC1289AX
 DPCLOSE            LX3    TE.GFAP                                                         FCC1289X     989          I
          -FCC1289AX
 DPCLOSE            BX6    X0*X1       EOBIA= (EOI,BIA) [GF2I)]                            FCC1289X     990          I
          -FCC1289AX
 DPCLOSE            IX6    X6+X3                                                           FCC1289X     991          I
          -FCC1289AX
 DPCLOSE            AX2    1           ECII= GFIND / 2                                     FCC1289X     992          I
          -FCC1289AX
 DPCLOSE            SA6    B7+X2       ECT(ECII)= (EOBIA,GFADI) [TE.]                      FCC1289X     993          I
          -FCC1289AX
 DPCLOSE            SA4    X3          GF1I= G-F TAB(GFADI)                                FCC1289AX     36     A     
 DPCLOSE            SA1    A4+B5       GF2I= GF1I+1                                        FCC1289AX     37     A     
 DPCLOSE            LX1    -F2.EOIP                                                        FCC1289AX     38     A     
 DPCLOSE            BX6    -X0*X1      EOII= EOI[GF2I]                                     FCC1289AX     39     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2491    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            LX3    TE.GFAP                                                         FCC1289AX     40     A     
 DPCLOSE            LX6    TE.EOIP                                                         FCC1289AX     41     A     
 DPCLOSE            BX6    X6+X3                                                           FCC1289AX     42     A     
 DPCLOSE            LX1    F2.EOIP-F2.BIAP                                                 FCC1289AX     43     A     
 DPCLOSE            SX1    X1          BIAI= BIA[GF2I]                                     FCC1289AX     44     A     
 DPCLOSE            ERRNZ  18-F2.BIAP                                                      FCC1289AX     45     A     
 DPCLOSE            BX6    X6+X7                                                           FCC1289AX     46     A     
 DPCLOSE            LX1    TE.BIAP                                                         FCC1289AX     47     A     
 DPCLOSE            IX6    X6+X1                                                           FCC1289AX     48     A     
 DPCLOSE            LX4    -1-G1.COMP                                                      FCC1289AX     49     A     
 DPCLOSE            NZ     X1,EQV515   IF BIAI  NE  0                                      FCC1289AX     50     A     
 DPCLOSE            PL     X4,EQV515   IF COM[GF1I]  NE  1                                 FCC1289AX     51     A     
 DPCLOSE            BX6    -X7*X6      CBBI= 0                                             FCC1289AX     52     A     
 DPCLOSE   EQV515   AX2    1           ECII= GFIND/2                                       FCC1289AX     53     A     
 DPCLOSE            SA6    X2+B7       ECT[ECII]= (CBBI,EOII,BIAI,GFADI) [TE.]             FCC1289AX     54     A     
 DPCLOSE            EQ     EQV510                                                          FCC1289X     994     A     
 DPCLOSE                                                                                   FCC1289X     995     A     
 DPCLOSE  *         SORT TEMPORARY ECT ENTRIES.                                            FCC1289X     996     A     
 DPCLOSE  *                X2= L.ECT-1                                                     FCC1289X     997     A     
 DPCLOSE  *                B7= O.ECT                                                       FCC1289X     998     A     
 DPCLOSE                                                                                   FCC1289X     999     A     
 DPCLOSE   EQV520   SX6    0                                                               FCC1289X    1000     A     
 DPCLOSE            SX1    X2+B5                                                           FCC1289X    1001     A     
 DPCLOSE            SA6    A6+B5       STORE TERMINATOR WORD IN ECT                        FCC1289X    1002     A     
 DPCLOSE            RJ     SST                                                             FCC1289X    1003     A     
 DPCLOSE            SX7    B3-B7                                                           FCC1289X    1004     A     
 DPCLOSE            SX7    X7+B5                                                           FCC1289X    1005     A     
 DPCLOSE            SA7    L.ECT       L.ECT= LWA+1(ECT)-FWA(ECT)+1                        FCC1289X    1006     A     
 DPCLOSE                                                                                   FCC1289X    1007     A     
 DPCLOSE  **        FORM ECT ENTRIES AS EC., AND  DIM1 ENTRIES AS D1. .                    FCC1289X    1008     A     
 DPCLOSE  *         ADD EQU,COM,DEF BITS TO SYMA, RB TO SYMB.                              FCC1289X    1009     A     
 DPCLOSE  *         THE FIRST MEMBER OF A CLASS IS THE BASE, SINCE ECT TABLE               FCC1289X    1010     A     
 DPCLOSE  *         HAS BEEN SORTED ACCORDING TO BIAS.                                     FCC1289X    1011     A     
 DPCLOSE  *         A DIFFERENT EOT INDEX INDICATE THE BEGINNING OF NEXT CLASS.            FCC1289X    1012     A     
 DPCLOSE  *                           (A0)= SYM1                                           FCC1289X    1013     A     
 DPCLOSE                                                                                   FCC1289X    1014     A     
 DPCLOSE                                                                                   FCC1289X    1015     A     
 DPCLOSE            SA3    O.DIM                                                           FCC1289X    1016     A     
 DPCLOSE            SA1    B7-B5      ECA= FWA(ECT)-1                                      FCC1289X    1017     A     
 DPCLOSE            SB2    B0         MCNT= 0         */CLASS MEMBER COUNT                 FCC1289X    1018     A     
 DPCLOSE            SB1    -B5        EOIND= -1                                            FCC1289X    1019     A     
 DPCLOSE            SB6    X3-2                                                            FCC1289X    1020     A     
 DPCLOSE            SB7    B0         LATIND= 0                                            FCC1289X    1021     A     
 DPCLOSE                                                                                   FCC1289X    1022     A     
 DPCLOSE  *         NEXT TEMPORARY ECT ENTRY.                                              FCC1289X    1023     A     
 DPCLOSE  *                (B1)= EOIND                                                     FCC1289X    1024     A     
 DPCLOSE                                                                                   FCC1289X    1025     A     
 DPCLOSE   EQV530   SA1    A1+B5       ECAD= ECAD+1, ECI= ECT(ECAD)                        FCC1289X    1026     A     
 DPCLOSE            ZR     X1,EQV580   IF END OF ECT TABLE                                 FCC1289X    1027     A     
 DPCLOSE            MX0    -TE.EOIL                                                        FCC1289X    1028     A     
 DPCLOSE            LX1    -TE.GFAP                                                        FCC1289X    1029     A     
 DPCLOSE            SB4    X1          GFAI= GFA[ECI]                                      FCC1289X    1030     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2492    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            LX1    TE.GFAP-TE.EOIP                                                 FCC1289X    1031     A     
 DPCLOSE            BX3    -X0*X1      EOII= EOI[ECI]                                      FCC1289X    1032     A     
 DPCLOSE            SX2    B1                                                              FCC1289X    1033     A     
 DPCLOSE            LX1    TE.EOIP-TE.BIAP                                                 FCC1289X    1034     A     
 DPCLOSE            BX7    X2-X3                                                           FCC1289X    1035          I
          -FCC1289BX
 DPCLOSE            IX7    X2-X3                                                           FCC1289BX      8     A     
 DPCLOSE            SX4    X1          BIASI= BIA[ECI]                                     FCC1289X    1036     A     
 DPCLOSE            SB1    X3          EOIND= EOII                                         FCC1289X    1037     A     
 DPCLOSE            ZR     X7,EQV560   IF EOIND  EQ  EOII                                  FCC1289X    1038     A     
 DPCLOSE                                                                                   FCC1289X    1039     A     
 DPCLOSE  *         CLASS BASE.                                                            FCC1289X    1040     A     
 DPCLOSE  *         UPDATE MCNT FOR THE PREVIOUS CLASS.                                    FCC1289X    1041     A     
 DPCLOSE  *                (B2)= MCNT                                                      FCC1289X    1042     A     
 DPCLOSE                                                                                   FCC1289X    1043     A     
 DPCLOSE            MI     X2,EQV535   IF FIRST BASE MEMBER                                FCC1289X    1044     A     
 DPCLOSE            SX6    B2                                                              FCC1289X    1045     A     
 DPCLOSE            SB2    B2+B5       ECBIND= MCNT+1                                      FCC1289X    1046     A     
 DPCLOSE            LX6    EC.NMP                                                          FCC1289X    1047     A     
 DPCLOSE            SA2    A1-B2       ECB= ECT(ECAD-ECBIND)                               FCC1289X    1048     A     
 DPCLOSE            BX6    X2+X6                                                           FCC1289X    1049     A     
 DPCLOSE            SA6    A2          NM[ECB]= MCNT                                       FCC1289X    1050     A     
 DPCLOSE            SB2    B0          MCNT= 0                                             FCC1289X    1051     A     
 DPCLOSE                                                                                   FCC1289X    1052     A     
 DPCLOSE  *         COMPUTE SPAN OF CLASS, UPDATE ECT, DIM1 ENTRIES.                       FCC1289X    1053     A     
 DPCLOSE                                                                                   FCC1289X    1054     A     
 DPCLOSE   EQV535   SA2    O.EOT                                                           FCC1289X    1055     A     
 DPCLOSE            MX0    -EO.RBL                                                         FCC1289X    1056     A     
 DPCLOSE            SA3    B4          GF1I= G-FTAB(GFAI)                                  FCC1289X    1057     A     
 DPCLOSE            SA2    X2+B1       EOI= EOT(EOIND)                                     FCC1289X    1058     A     
 DPCLOSE            LX3    -G1.SYMP+1                                                      FCC1289X    1059     A     
 DPCLOSE            LX2    -EO.RBP                                                         FCC1289X    1060     A     
 DPCLOSE            SX5    X3                                                              FCC1289X    1061     A     
 DPCLOSE            SB3    X3+B5       STINDB= 2 * SYM[GF1I] +1                            FCC1289X    1062     A     
 DPCLOSE            BX7    -X0*X2      RBI= RB[EOI]                                        FCC1289X    1063     A     
 DPCLOSE            LX5    EC.SYMP-1   SYMI= SYM[GF1I]                                     FCC1289X    1064     A     
 DPCLOSE            LX2    EO.RBP-EO.LWAP                                                  FCC1289X    1065     A     
 DPCLOSE            SX4    X2+B5       LWAI= LWA[EOI] + 1                                  FCC1289X    1066     A     
 DPCLOSE            MX3    L.DIMP                                                          FCC1289X    1067     A     
 DPCLOSE            LX2    EO.LWAP-EO.FWAP                                                 FCC1289X    1068     A     
 DPCLOSE            SX2    X2          FWAI= FWA[EOI]                                      FCC1289X    1069     A     
 DPCLOSE            IX4    X4-X2       SPANI= LWAI-FWAI                                    FCC1289X    1070     A     
 DPCLOSE            LX4    EC.SPNP                                                         FCC1289X    1071     A     
 DPCLOSE            BX6    X4+X5                                                           FCC1289X    1072     A     
 DPCLOSE            LX3    L.DIMP+P.DIMP                                                   FCC1289X    1073     A     
 DPCLOSE            SA2    A0-B3       SYMBI= SYMTAB(STINDB)                               FCC1289X    1074     A     
 DPCLOSE            LX4    -EC.SPNP                                                        FCC1289X    1075     A     
 DPCLOSE            MX1    1                                                               FCC1289X    1076     A     
 DPCLOSE            BX2    X3*X2                                                           FCC1289X    1077     A     
 DPCLOSE            AX2    P.DIMP-1    DIMPI= 2 * DIMP[SYMBI]                              FCC1289X    1078     A     
 DPCLOSE            LX5    D1.SYMP-EC.SYMP   D1SKEL= SYMI[D1.]                             FCC1289X    1079     A     
 DPCLOSE            NZ     X7,EQV550   IF RBI  NE  0                                       FCC1289X    1080     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2493    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE                                                                                   FCC1289X    1081     A     
 DPCLOSE  *         LOCAL BASE.                                                            FCC1289X    1082     A     
 DPCLOSE  *         UPDATE LOCAL BLOCK LENGTH DATA.. , FORMAT DIM1 SKELETON FOR            FCC1289X    1083     A     
 DPCLOSE  *         NON-BASE MEMBERS.                                                      FCC1289X    1084     A     
 DPCLOSE  *                (X2)= DIMPI                                                     FCC1289X    1085     A     
 DPCLOSE                                                                                   FCC1289X    1086     A     
 DPCLOSE            SA3    O.LAT                                                           FCC1289X    1087     A     
 DPCLOSE            LX1    1+D1.LOCP                                                       FCC1289X    1088     A     
 DPCLOSE            SA6    A1          ECI= (SPANI,SYMI,0) [EC.]                           FCC1289X    1089     A     
 DPCLOSE            SA6    X3+B7       LAT(LATIND)= ECI                                    FCC1289X    1090     A     
 DPCLOSE            BX5    X1+X5                                                           FCC1289X    1091     A     
 DPCLOSE            SB7    B7+B5       LATIND= LATIND+1                                    FCC1289X    1092     A     
 DPCLOSE            SA3    DATA..                                                          FCC1289X    1093     A     
 DPCLOSE            IX6    X4+X3                                                           FCC1289X    1094     A     
 DPCLOSE            LX3    D1.RAP                                                          FCC1289X    1095     A     
 DPCLOSE            SA6    A3          NEW DATA..= DATA..+ SPANI                           FCC1289X    1096     A     
 DPCLOSE            IX5    X5+X3       D1SKEL= (1,SYMI,0,DATA..) [D1.]                     FCC1289X    1097     A     
 DPCLOSE            LX4    D1.SPNP                                                         FCC1289X    1098     A     
 DPCLOSE            BX7    X5+X4                                                           FCC1289X    1099     A     
 DPCLOSE            SA7    B6+X2       DIMTAB(DIMPI)= (1,SYMI,SPANI,DATA..) [D1.]          FCC1289X    1100     A     
 DPCLOSE            EQ     EQV530                                                          FCC1289X    1101     A     
 DPCLOSE                                                                                   FCC1289X    1102     A     
 DPCLOSE  *         COMMON BASE.                                                           FCC1289X    1103     A     
 DPCLOSE  *         FORM DIM1 SKELETON FOR COMMON CLASS MEMBERS, AND SET                   FCC1289X    1104     A     
 DPCLOSE  *         (DEF,COM) BITS IN SYMA . BASES THAT WERE NOT IN COMMON                 FCC1289X    1105     A     
 DPCLOSE  *         BEFORE NOW GET RB IN THEIR SYMB.                                       FCC1289X    1106     A     
 DPCLOSE  *                (X2)= DIMPI                                                     FCC1289X    1107     A     
 DPCLOSE  *                (X7)= RBI                                                       FCC1289X    1108     A     
 DPCLOSE                                                                                   FCC1289X    1109     A     
 DPCLOSE   EQV550   SA4    B4          GF1I= G-FTAB(GFAI)                                  FCC1289X    1110     A     
 DPCLOSE            SA3    A2+B5       SYMAI= SYMTAB(STINDB-1)                             FCC1289X    1111     A     
 DPCLOSE            LX1    1+EC.CBP                                                        FCC1289X    1112     A     
 DPCLOSE            LX7    P.RB                                                            FCC1289X    1113     A     
 DPCLOSE            BX6    X6+X1                                                           FCC1289X    1114     A     
 DPCLOSE            LX4    -G1.RAP                                                         FCC1289X    1115     A     
 DPCLOSE            SA6    A1          ECI= (CB,SPANI,SYMI,0) [EC.]                        FCC1289X    1116     A     
 DPCLOSE            SX1    V.COM+V.DEF                                                     FCC1289X    1117     A     
 DPCLOSE            MX0    -L.RB                                                           FCCA527       14     A     
 DPCLOSE            LX0    P.RB                                                            FCC1289X    1118     A     
 DPCLOSE            BX6    X3+X1                                                           FCC1289X    1119     A     
 DPCLOSE            SA6    A3          SYMAI= (COM,DEF) [SYMA]                             FCC1289X    1120     A     
 DPCLOSE            SX4    X4          RAI= RA[GF1I]                                       FCC1289X    1121     A     
 DPCLOSE            LX4    D1.RAP                                                          FCC1289X    1122     A     
 DPCLOSE            SA3    A3-B5       SYMBI= SYMTAB(STINDB)                               FCC1289X    1123     A     
 DPCLOSE            BX6    X5+X4                                                           FCC1289X    1124     A     
 DPCLOSE            BX3    X0*X3                                                           FCC1289X    1125     A     
 DPCLOSE            IX7    X3+X7                                                           FCC1289X    1126     A     
 DPCLOSE            SA6    B6+X2       DIMTAB(DIMPI)= (0,SYMI,0,RAI) [D1.]                 FCC1289X    1127     A     
 DPCLOSE            SA7    A3+         RB[SYMBI]= RBI                                      FCC1289X    1128     A     
 DPCLOSE            EQ     EQV530                                                          FCC1289X    1129     A     
 DPCLOSE                                                                                   FCC1289X    1130     A     
 DPCLOSE  *         CLASS MEMBERS.                                                         FCC1289X    1131     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2494    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE  *                (X4)= BIASI                                                     FCC1289X    1132     A     
 DPCLOSE  *                (X5)= D1SKEL                                                    FCC1289X    1133     A     
 DPCLOSE  *                (B4)= GFAI                                                      FCC1289X    1134     A     
 DPCLOSE                                                                                   FCC1289X    1135     A     
 DPCLOSE   EQV560   SA3    B4          GF1I= G-FTAB(GFA)                                   FCC1289X    1136     A     
 DPCLOSE            LX3    -G1.RAP                                                         FCC1289X    1137          I
          -FCC1776X 
 DPCLOSE            SX6    X3          RAI= RA[GF1I]                                       FCC1289X    1138          I
          -FCC1776X 
 DPCLOSE            LX3    G1.RAP-G1.RBP                                                   FCC1289X    1139          I
          -FCC1776X 
 DPCLOSE            LX6    D1.RAP                                                          FCC1289X    1140          I
          -FCC1776X 
 DPCLOSE            IX6    X6+X5       RAI= RAI+ RA[D1SKEL]                                FCC1289X    1141          I
          -FCC1776X 
 DPCLOSE            LX4    D1.RAP                                                          FCC1776X       8     A     
 DPCLOSE            IX6    X4+X5       RAI= BIAI+RA[D1SKEL]                                FCC1776X       9     A     
 DPCLOSE            LX3    -G1.RBP                                                         FCC1776X      10     A     
 DPCLOSE            SX2    X3          RBI= RB[GF1I]                                       FCC1289X    1142     A     
 DPCLOSE            LX3    G1.RBP-G1.SYMP+1                                                FCC1289X    1143     A     
 DPCLOSE            SX3    X3          STINDA= 2 * SYM[GF1I]                               FCC1289X    1144          I
          -FCC1289CX
 DPCLOSE            MX0    L.DIMP                                                          FCC1289X    1145          I
          -FCC1289CX
 DPCLOSE            LX0    L.DIMP+P.DIMP                                                   FCC1289X    1146          I
          -FCC1289CX
 DPCLOSE            SX0    X3          STINDA= 2 * SYM[GF1I]                               FCC1289CX      5     A     
 DPCLOSE            SX7    V.EQU       SYMABTS= EQU[SYMA]                                  FCC1289X    1147     A     
 DPCLOSE            LX4    EC.BIAP                                                         FCC1289X    1148          I
          -FCC1776X 
 DPCLOSE            LX4    EC.BIAP-D1.RAP                                                  FCC1776X      11     A     
 DPCLOSE            MX1    -L.RB                                                           FCC1289X    1149     A     
 DPCLOSE            ZR     X2,EQV570   IF RBI  EQ  0                                       FCC1289X    1150     A     
 DPCLOSE            SX7    X7+V.COM+V.DEF     SYMABTS= (EQU,COM,DEF) [SYMA]                FCC1289X    1151     A     
 DPCLOSE   EQV570   SB3    X3                                                              FCC1289X    1152          I
          -FCC1289CX
 DPCLOSE            LX3    EC.SYMP-1                                                       FCC1289X    1153          I
          -FCC1289CX
 DPCLOSE            BX3    X3+X4                                                           FCC1289X    1154          I
          -FCC1289CX
 DPCLOSE            SA3    A3+B5       GF2I                                                FCC1289CX      6     A     
 DPCLOSE            LX3    -F2.FWAP                                                        FCC1289CX      7     A     
 DPCLOSE            SX3    X3          FWA1 = FWA[GF2I]                                    FCC1289CX      8     A     
 DPCLOSE            LX3    D1.RAP                                                          FCC1289CX      9     A     
 DPCLOSE            IX6    X6+X3       RAI = RAI + FWAI                                    FCC1289CX     10     A     
 DPCLOSE   EQV570   SB3    X0                                                              FCC1289CX     11     A     
 DPCLOSE            LX0    EC.SYMP-1                                                       FCC1289CX     12     A     
 DPCLOSE            BX3    X0+X4                                                           FCC1289CX     13     A     
 DPCLOSE            LX4    D1.BIAP- EC.BIAP                                                FCC1289X    1155     A     
 DPCLOSE            BX6    X6+X4                                                           FCC1289X    1156     A     
 DPCLOSE            MX0    L.DIMP                                                          FCC1289CX     14     A     
 DPCLOSE            LX0    L.DIMP+P.DIMP                                                   FCC1289CX     15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2495    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            SA4    A0-B3       SYMAI= SYMTAB(STINDA)                               FCC1289X    1157     A     
 DPCLOSE            LX2    P.RB                                                            FCC1289X    1158     A     
 DPCLOSE            BX7    X4+X7                                                           FCC1289X    1159     A     
 DPCLOSE            SA4    A4-B5       SYMBI= SYMTAB(STINDA+1)                             FCC1289X    1160     A     
 DPCLOSE            LX1    P.RB                                                            FCC1289X    1161     A     
 DPCLOSE            BX0    X0*X4       DIMPI= DIMP[SYMBI]                                  FCC1289X    1162     A     
 DPCLOSE            BX4    X1*X4                                                           FCC1289X    1163     A     
 DPCLOSE            SA7    A4+B5       SYMAI= SYMABTS[SYMA]                                FCC1289X    1164     A     
 DPCLOSE            AX0    P.DIMP-1    DIMPI= 2 * DIMPI                                    FCC1289X    1165     A     
 DPCLOSE            BX7    X4+X2                                                           FCC1289X    1166     A     
 DPCLOSE            SA6    X0+B6       DIMTAB(DIMPI)= [D1.]                                FCC1289X    1167     A     
 DPCLOSE            SA7    A4          RB[SYMBI]= RBI                                      FCC1289X    1168     A     
 DPCLOSE            SA2    A6+B5       DIM2I= DIMTAB(DIMPI+1)                              FCC1289X    1169     A     
 DPCLOSE            LX2    -D2.WCP                                                         FCC1289X    1170     A     
 DPCLOSE            SX6    X2                                                              FCC1289X    1171     A     
 DPCLOSE            LX6    EC.WCP                                                          FCC1289X    1172     A     
 DPCLOSE            BX6    X6+X3                                                           FCC1289X    1173     A     
 DPCLOSE            SA6    A1          ECTI= (WCI,SYMI,BIASI) [EC.]                        FCC1289X    1174     A     
 DPCLOSE            SB2    B2+B5       MCNT= MCNT+1                                        FCC1289X    1175     A     
 DPCLOSE            EQ     EQV530                                                          FCC1289X    1176     A     
 DPCLOSE                                                                                   FCC1289X    1177     A     
 DPCLOSE  *         UPDATE MCNT FOR THE LAST CLASS.                                        FCC1289X    1178     A     
 DPCLOSE  *                (B2)= MCNT                                                      FCC1289X    1179     A     
 DPCLOSE                                                                                   FCC1289X    1180     A     
 DPCLOSE   EQV580   SX6    B2                                                              FCC1289X    1181     A     
 DPCLOSE            SB2    B2+B5                                                           FCC1289X    1182     A     
 DPCLOSE            SA2    A1-B2       ECB= ECT(ECA-MCNT+1)                                FCC1289X    1183     A     
 DPCLOSE            BX6    X2+X6                                                           FCC1289X    1184     A     
 DPCLOSE            SA6    A2          NM[ECB]= MCNT                                       FCC1289X    1185     A     
 DPCLOSE                                                                                   FCC1289X    1186     A     
 DPCLOSE  **        PREPARE TO EXIT EQUIVALENCE PROCESSING.                                FCC1289X    1187     A     
 DPCLOSE  *         MOVE ECT TO EQV TABLE AND CLEAR L.EOT AND L.ECT.                       FCC1289X    1188     A     
 DPCLOSE  *         A FINAL RETURN JUMP TO SUBROUTINE *CLE* IS MADE TO                     FCC1289X    1189     A     
 DPCLOSE  *         RESOLVE LEVEL-EQUIVALENCE CONFLICTS AND TO PROPAGATE                   FCC1289X    1190     A     
 DPCLOSE  *         LEVEL/LCM BITS THRU EQUIVALENCE CLASSES.                               FCC1289X    1191     A     
 DPCLOSE                                                                                   FCC1289X    1192     A     
 DPCLOSE            BX7    X7-X7                                                           FCC1289X    1193     A     
 DPCLOSE            SA5    O.ECT                                                           FCC1289X    1194     A     
 DPCLOSE            SA4    O.EQV                                                           FCC1289X    1195     A     
 DPCLOSE            SA7    L.EOT       NEW L.EOT= 0                                        FCC1289X    1196     A     
 DPCLOSE            SX0    X4          EQIND= FWA(EQVTAB)                                  FCC1289X    1197     A     
 DPCLOSE            SA5    X5          ECA= FWA(ECT)                                       FCC1289X    1198     A     
 DPCLOSE            SB2    0           ECIND= 0                                            FCC1289X    1199     A     
 DPCLOSE                                                                                   FCC1289X    1200     A     
 DPCLOSE  *         MOVE ECT TO EQV TABLE.                                                 FCC1289X    1201     A     
 DPCLOSE                                                                                   FCC1289X    1202     A     
 DPCLOSE   EQV585   SA5    A5+B2       ECA= ECA+ECIND   ECI= ECT(ECA)                      FCC1289X    1203     A     
 DPCLOSE            ZR     X5,EQV590   IF END OF ECT                                       FCC1289X    1204     A     
 DPCLOSE            LX5    -EC.NMP                                                         FCC1289X    1205     A     
 DPCLOSE            SB2    X5+B5       ECIND= NM[ECI] + 1                                  FCC1289X    1206     A     
 DPCLOSE            EQ     B2,B5,EQ.E90      IF ECIND  EQ  1                               FCC1289X    1207     A     
 DPCLOSE            MOVE   B2,A5,X0                                                        FCC1289X    1208     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2496    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            SX0    X0+B2       EQIND= EQIND+ ECIND                                 FCC1289X    1209     A     
 DPCLOSE            EQ     EQV585                                                          FCC1289X    1210     A     
 DPCLOSE                                                                                   FCC1289X    1211     A     
 DPCLOSE   EQV590   SA1    O.EQV                                                           FCC1289X    1212     A     
 DPCLOSE            SA2    LEVEL                                                           FCC1289X    1213     A     
 DPCLOSE            IX6    X0-X1                                                           FCC1289X    1214     A     
 DPCLOSE            SA6    L.EQV       NEW L.EQV= EQIND - FWA(EQV)                         FCC1289X    1215     A     
 DPCLOSE            ZR     X2,EQV595   IF NO LEVEL STATEMENTS                              FCC1289X    1216     A     
 DPCLOSE            RJ     CLE         COORDINATE LEVEL INFO                               FCC1289X    1217     A     
 DPCLOSE            RJ     CCL               COORDINATE COMMON LEVEL INFO                  FCC1879       19     A     
 DPCLOSE                                                                                   FCC1289X    1218     A     
 DPCLOSE   EQV595   SX7    0                                                               FCC1289X    1219     A     
 DPCLOSE            SA7    L.ECT       L.ECT= 0                                            FCC1289X    1220     A     
 DPCLOSE            EQ     EXIT.                                                           FCC1289X    1221     A     
 DPCLOSE            TITLE    EQV - ERROR EXITS                                             FCC1289X    1222     A     
 DPCLOSE  **        CHECK/PROCESS EQUIVALENCE ERRORS.                                      FCC1289X    1223     A     
 DPCLOSE                                                                                   FCC1289X    1224     A     
 DPCLOSE                                                                                   FCC1289X    1225     A     
 DPCLOSE  **        PRESCAN ERRORS.                                                        FCC1289X    1226     A     
 DPCLOSE                                                                                   FCC1289X    1227     A     
 DPCLOSE   EQ.E10   SB6    E.S>D                                                           FCC1289X    1228     A     
 DPCLOSE            BX7    X0*X1       PI(DIMS)= WC[DIM2I]                                 FCC1289X    1229     A     
 DPCLOSE            NZ     X7,EQ.E32   IF PI(DIMS)  NE  0                                  FCC1289X    1230     A     
 DPCLOSE            SX7    X6+B5       PI(DIMS)= 1+ SDPF, (IND= 0)                         FCC1289X    1231     A     
 DPCLOSE            LX7    D2.WCP                                                          FCC1289X    1232     A     
 DPCLOSE            SA7    A1          WC[DIM2I]= PI(DIMS)                                 FCC1289X    1233     A     
 DPCLOSE            LX7    Q2.PDP-D2.WCP                                                   FCC1289X    1234     A     
 DPCLOSE            EQ     EQ.E32                                                          FCC1289X    1235     A     
 DPCLOSE                                                                                   FCC1289X    1236     A     
 DPCLOSE  *                (X7)= PI(DIMS)                                                  FCC1289X    1237     A     
 DPCLOSE                                                                                   FCC1289X    1238     A     
 DPCLOSE   EQ.E20   SB6    E.NOS                                                           FCC1289X    1239     A     
 DPCLOSE            LX7    Q2.PDP-D2.WCP     (IND= 0)                                      FCC1289X    1240     A     
 DPCLOSE            EQ     EQ.E32                                                          FCC1289X    1241     A     
 DPCLOSE                                                                                   FCC1289X    1242     A     
 DPCLOSE  *                (X7)= (PI(DIMS),IND) [Q2.]                                      FCC1289X    1243     A     
 DPCLOSE                                                                                   FCC1289X    1244     A     
 DPCLOSE   EQ.E30   SB6    E.DRE                                                           FCC1289X    1245     A     
 DPCLOSE   EQ.E32   SA1    A2-B5                                                           FCC1289X    1246     A     
 DPCLOSE            SA3    O.EQV                                                           FCC1289X    1247     A     
 DPCLOSE            SX6    B1                                                              FCC1289X    1248     A     
 DPCLOSE            PX7    B2                                                              FCC1289X    1249          I
          -FCC1946
 DPCLOSE            PACK   X7,B2,X2,X4                                                     FCC1946      169     A     
 DPCLOSE            SA7    A2          EQV2I= (GORI,PI(DIMS),IND) [Q2.]                    FCC1289X    1250     A     
 DPCLOSE            IX6    X6-X3                                                           FCC1289X    1251     A     
 DPCLOSE            LX1    -G1.SYMP                                                        FCC1289X    1252     A     
 DPCLOSE            SX2    X1          SYMORD= SYM[EQV1I]                                  FCC1289X    1253     A     
 DPCLOSE            SA6    TEMPR       TEMPR= EQA-O.EQV                                    FCC1289X    1254     A     
 DPCLOSE            RJ     PSYM                                                            FCC1289X    1255     A     
 DPCLOSE            SB1    E.S>D                                                           FCC1289X    1256     A     
 DPCLOSE            NE     B1,B6,EQ.E34      IF  NOT  E.S>D                                FCC1289X    1257     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2497    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            POSTER SEV=FE,NR=**,RETURN=EQ.E38                                      FCC1289X    1258     A     
 DPCLOSE                                                                                   FCC1289X    1259     A     
 DPCLOSE   EQ.E34   SB1    E.NOS                                                           FCC1289X    1260     A     
 DPCLOSE            NE     B1,B6,EQ.E36      IF  NOT  E.NOS                                FCC1289X    1261     A     
 DPCLOSE            POSTER SEV=ANSI,NR=**,RETURN=EQ.E38                                    FCC1289X    1262     A     
 DPCLOSE                                                                                   FCC1289X    1263     A     
 DPCLOSE   EQ.E36   POSTER SEV=INF,NR=**                                                   FCC1289X    1264     A     
 DPCLOSE   EQ.E38   SA1    TEMPR                                                           FCC1289X    1265     A     
 DPCLOSE            SA2    O.DIM                                                           FCC1289X    1266     A     
 DPCLOSE            SA3    O.EQV                                                           FCC1289X    1267     A     
 DPCLOSE            SB6    X2-2                                                            FCC1289X    1268     A     
 DPCLOSE            IX1    X3+X1                                                           FCC1289X    1269     A     
 DPCLOSE            SB1    X1          EQA= O.EQV+TEMPR                                    FCC1289X    1270     A     
 DPCLOSE            EQ     EQV020                                                          FCC1289X    1271     A     
 DPCLOSE                                                                                   FCC1289X    1272     A     
 DPCLOSE  **        SCAN1 ERRORS.                                                          FCC1289X    1273     A     
 DPCLOSE  *         CONTRADICTORY/ REDUNDANT EQUIVALENCE ERRORS.                           FCC1289X    1274     A     
 DPCLOSE                                                                                   FCC1289X    1275     A     
 DPCLOSE   EQ.E40   SA3    A0+B7                                                           FCC1289X    1276     A     
 DPCLOSE            SB6    E.RER                                                           FCC1289X    1277     A     
 DPCLOSE            LX3    -G1.SYMP                                                        FCC1289X    1278     A     
 DPCLOSE            SX2    X3+         SYMORD= SYM[GF1T]                                   FCC1289X    1279     A     
 DPCLOSE            ZR     X4,EQ.E76   IF DIST  NE  0 (REDUNDANCY)                         FCC1289X    1280     A     
 DPCLOSE                                                                                   FCC1289X    1281     A     
 DPCLOSE            SB6    E.CER       (CONTRADICTION)                                     FCC1289X    1282     A     
 DPCLOSE            EQ     EQ.E76                                                          FCC1289X    1283     A     
 DPCLOSE                                                                                   FCC1289X    1284     A     
 DPCLOSE   EQ.E50   IX0    X1-X6                                                           FCC1289X    1285     A     
 DPCLOSE            SX7    E.RER                                                           FCC1289X    1286     A     
 DPCLOSE            LX0    -G1.ADRP                                                        FCC1289X    1287     A     
 DPCLOSE            SX5    X3          ERFLAG= SYM[GF1T]                                   FCC1289X    1288     A     
 DPCLOSE            SA7    TEMPR                                                           FCC1289X    1289     A     
 DPCLOSE            IX0    X0-X4       DIF= (RA[GF1T] - RA[GF1T0]) - DIST                  FCC1289X    1290     A     
 DPCLOSE            SX6    E.CER                                                           FCC1289X    1291     A     
 DPCLOSE            ZR     X0,EQV190   IF DIF  EQ  0 (REDUNDANT)                           FCC1289X    1292     A     
 DPCLOSE            SA6    TEMPR       (REDUNDANCY)                                        FCC1289X    1293     A     
 DPCLOSE            EQ     EQV190                                                          FCC1289X    1294     A     
 DPCLOSE                                                                                   FCC1289X    1295     A     
 DPCLOSE  *         ILLEGAL EXTENSION OF COMMON BLOCK ORGIN                                FCC1289X    1296     A     
 DPCLOSE  *                                                                                FCC1289X    1297     A     
 DPCLOSE  *         EXTENSION BY MEMBER.                                                   FCC1289X    1298     A     
 DPCLOSE                                                                                   FCC1289X    1299     A     
 DPCLOSE   EQ.E60   LX2    -G1.RAP                                                         FCC1289X    1300     A     
 DPCLOSE            SX0    X2                                                              FCC1289X    1301     A     
 DPCLOSE            IX7    X0+X4                                                           FCC1289X    1302     A     
 DPCLOSE            PL     X7,EQV190   IF RAT0+ DIST  GT  0                                FCC1289X    1303     A     
 DPCLOSE            SX6    E.CBE                                                           FCC1289X    1304     A     
 DPCLOSE            BX4    -X0         DIST= -RAT0                                         FCC1289X    1305     A     
 DPCLOSE            SX5    X3          ERFLAG= SYM[GF1T]                                   FCC1289X    1306     A     
 DPCLOSE            SA6    TEMPR                                                           FCC1289X    1307     A     
 DPCLOSE            EQ     EQV190                                                          FCC1289X    1308     A     
 DPCLOSE                                                                                   FCC1289X    1309     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2498    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE  *         EXTENSION BY ROOT.                                                     FCC1289X    1310     A     
 DPCLOSE                                                                                   FCC1289X    1311     A     
 DPCLOSE   EQ.E70   SA6    A2          GF1T0= [G1.]                                        FCC1289X    1312     A     
 DPCLOSE            SX4    X1          SET DIST= RAT                                       FCC1289X    1313     A     
 DPCLOSE            SX7    E.CBE                                                           FCC1289X    1314     A     
 DPCLOSE            LX2    -G1.SYMP                                                        FCC1289X    1315     A     
 DPCLOSE            SX5    X2          ERFLAG= SYM[GF1T0]                                  FCC1289X    1316     A     
 DPCLOSE            SA7    TEMPR                                                           FCC1289X    1317     A     
 DPCLOSE            EQ     EQV190                                                          FCC1289X    1318     A     
 DPCLOSE                                                                                   FCC1289X    1319     A     
 DPCLOSE  *         POST ERRORS FOR SCAN1.                                                 FCC1289X    1320     A     
 DPCLOSE                                                                                   FCC1289X    1321     A     
 DPCLOSE   EQ.E75   SA1    TEMPR       ERR NO.                                             FCC1289X    1322     A     
 DPCLOSE            SX2    X5          SYMORD= ERFLAG                                      FCC1289X    1323     A     
 DPCLOSE            SB6    X1                                                              FCC1289X    1324     A     
 DPCLOSE   EQ.E76   SX6    B1          SAVE L.GF, EQIND                                    FCC1289X    1325     A     
 DPCLOSE            SX7    B2                                                              FCC1289X    1326     A     
 DPCLOSE            SA6    TEMPR+1                                                         FCC1289X    1327     A     
 DPCLOSE            SA7    A6+B5                                                           FCC1289X    1328     A     
 DPCLOSE            RJ     PSYM                                                            FCC1289X    1329     A     
 DPCLOSE            SB1    E.RER                                                           FCC1289X    1330     A     
 DPCLOSE            NE     B6,B1,EQ.E77      IF  NOT  E.RER                                FCC1289X    1331     A     
 DPCLOSE            POSTER SEV=INF,NR=**,RETURN=EQ.E79                                     FCC1289X    1332     A     
 DPCLOSE                                                                                   FCC1289X    1333     A     
 DPCLOSE   EQ.E77   POSTER SEV=FE,NR=**                                                    FCC1289X    1334     A     
 DPCLOSE   EQ.E79   SA1    TEMPR+1     RESTORE L.GF,EQIND,O.EQV                            FCC1289X    1335     A     
 DPCLOSE            SA3    O.EQV                                                           FCC1289X    1336     A     
 DPCLOSE            SA2    A1+B5                                                           FCC1289X    1337     A     
 DPCLOSE            SB1    X1                                                              FCC1289X    1338     A     
 DPCLOSE            SB2    X2                                                              FCC1289X    1339     A     
 DPCLOSE            SA0    X3                                                              FCC1289X    1340     A     
 DPCLOSE            EQ     EQV105                                                          FCC1289X    1341     A     
 DPCLOSE                                                                                   FCC1289X    1342     A     
 DPCLOSE  **        SCAN2 ERRORS.                                                          FCC1289X    1343     A     
 DPCLOSE  *         EQUIVALENCED COMMON BLOCK LENGTH EXCEEDS 377777B                       FCC1289X    1344     A     
 DPCLOSE                                                                                   FCC1289X    1345     A     
 DPCLOSE   EQ.E80   SA2    O.COM                                                           FCC1289X    1346     A     
 DPCLOSE            SX3    377777B     LWAI= 377777B                                       FCC1289X    1347     A     
 DPCLOSE            ZR     X6,EQV225   IF RBI  EQ  0                                       FCC1289X    1348     A     
 DPCLOSE            SA3    ORGTAB-1+X6 IND= PT[ORGTAB(RBI)]                                FCC1289X    1349     A     
 DPCLOSE            MX7    1                                                               FCC1289X    1350     A     
 DPCLOSE            LX7    1+CH.EVLP                                                       FCC1289X    1351     A     
 DPCLOSE            IX2    X3+X2                                                           FCC1289X    1352     A     
 DPCLOSE            SA2    X2          CH= COMTAB(IND)                                     FCC1289X    1353     A     
 DPCLOSE            BX7    X2+X7                                                           FCC1289X    1354     A     
 DPCLOSE            SA7    A2          EVL[CH]= 1                                          FCC1289X    1355     A     
 DPCLOSE            SX3    377777B     LWA= 377777B                                        FCC1289X    1356     A     
 DPCLOSE            EQ     EQV225                                                          FCC1289X    1357     A     
 DPCLOSE                                                                                   FCC1289X    1358     A     
 DPCLOSE  **        SCAN5 ERRORS.                                                          FCC1289X    1359     A     
 DPCLOSE  *         ONLY ONE NAME IN EQUIVALENCE GROUP.                                    FCC1289X    1360     A     
 DPCLOSE  *                (A5,X5)= ECI                                                    FCC1289X    1361     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2499    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE  *                (X0)= EQIND                                                     FCC1289X    1362     A     
 DPCLOSE                                                                                   FCC1289X    1363     A     
 DPCLOSE   EQ.E90   SA1    O.ECT                                                           FCC1289X    1364     A     
 DPCLOSE            SA3    O.EQV                                                           FCC1289X    1365     A     
 DPCLOSE            SB2    X1                                                              FCC1289X    1366     A     
 DPCLOSE            LX5    EC.NMP-EC.SYMP                                                  FCC1289X    1367     A     
 DPCLOSE            SX6    A5-B2                                                           FCC1289X    1368     A     
 DPCLOSE            IX7    X0-X3                                                           FCC1289X    1369     A     
 DPCLOSE            SX2    X5          SYMORD= SYM[ECTI]                                   FCC1289X    1370     A     
 DPCLOSE            SA6    TEMPR       TEMPR(0)= ECI-O.ECT                                 FCC1289X    1371     A     
 DPCLOSE            SA7    A6+B5       TEMPR(1)= EQIND-O.EQV                               FCC1289X    1372     A     
 DPCLOSE            RJ     PSYM                                                            FCC1289X    1373     A     
 DPCLOSE            POSTER NR=E.E1N,SEV=FE,FMT=DPC,TXT=X3                                  FCC1289X    1374     A     
 DPCLOSE            SA1    O.ECT       RESTORE ECA,EQIND                                   FCC1289X    1375     A     
 DPCLOSE            SA2    TEMPR                                                           FCC1289X    1376     A     
 DPCLOSE            IX5    X1+X2       ECI= TEMPR(0) - O.ECT                               FCC1289X    1377     A     
 DPCLOSE            SA3    O.EQV                                                           FCC1289X    1378     A     
 DPCLOSE            SA4    A2+B5                                                           FCC1289X    1379     A     
 DPCLOSE            IX0    X3+X4       EQIND= TEMPR(1) - O.EQV                             FCC1289X    1380     A     
 DPCLOSE            SA5    X5                                                              FCC1289X    1381     A     
 DPCLOSE            SB2    B5          ECA= 1                                              FCC1289X    1382     A     
 DPCLOSE            EQ     EQV585                                                          FCC1289X    1383     A     
 DPCLOSE            TITLE  EQV - SST - SHELL SORT                                          FCC1289X    1384     A     
 DPCLOSE  ***       SST - SHELL SORT TABLE.                                                FCC1289X    1385     A     
 DPCLOSE  *         E. J. MUNDSTOCK.  70/10/07.                                            FCC1289X    1386     A     
 DPCLOSE  *         UNIVERSITY OF MINNESOTA.                                               FCC1289X    1387     A     
 DPCLOSE  *                                                                                FCC1289X    1388     A     
 DPCLOSE  *         SST SORTS A TABLE USING A SHELL SORTING TECHNIQUE.                     FCC1289X    1389     A     
 DPCLOSE  *         THE TABLE IS SORTED IN PLACE INTO ASCENDING ORDER.                     FCC1289X    1390     A     
 DPCLOSE  *         ALL ELEMENTS SHOULD BE OF THE SAME SIGN.                               FCC1289X    1391     A     
 DPCLOSE  *                                                                                FCC1289X    1392     A     
 DPCLOSE  *         ORIGIN OF TECHNIQUE IS CACM VOL 6 NUMBER 5  MAY 1963, P209.            FCC1289X    1393     A     
 DPCLOSE  *         FIRST CODED BY R. HOTCHKISS IN *SORT1*.                                FCC1289X    1394     A     
 DPCLOSE  *         REVISED BY L. A. LIDDIARD.                                             FCC1289X    1395     A     
 DPCLOSE  *                                                                                FCC1289X    1396     A     
 DPCLOSE  *         ENTRY  (B5) = 1                                                        FCC1289X    1397     A     
 DPCLOSE  *                (B7) = FWA OF TABLE TO BE SORTED                                FCC1289X    1398     A     
 DPCLOSE  *                (X1) = NUMBER OF ELEMENTS IN ARRAY                              FCC1289X    1399     A     
 DPCLOSE  *                                                                                FCC1289X    1400     A     
 DPCLOSE  *         EXIT   TABLE SORTED.                                                   FCC1289X    1401     A     
 DPCLOSE  *                (B3) = LWA+1 OF TABLE                                           FCC1289X    1402     A     
 DPCLOSE  *                (B7) = FWA OF TABLE                                             FCC1289X    1403     A     
 DPCLOSE  *                                                                                FCC1289X    1404     A     
 DPCLOSE  *         USES   X - 1, 2, 3, 4, 6, 7.                                           FCC1289X    1405     A     
 DPCLOSE  *                B - 2, 3, 4, 5.                                                 FCC1289X    1406     A     
 DPCLOSE  *                A - 1, 2, 6, 7.                                                 FCC1289X    1407     A     
 DPCLOSE  *                                                                                FCC1289X    1408     A     
 DPCLOSE  *         CALLS NONE.                                                            FCC1289X    1409     A     
 DPCLOSE                                                                                   FCC1289X    1410     A     
 DPCLOSE                                                                                   FCC1289X    1411     A     
 DPCLOSE   SST1     SA7    B1-B4       T(J+K) = S                                          FCC1289X    1412     A     
 DPCLOSE            SB2    B2+B5       I = I+1                                             FCC1289X    1413     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2500    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            EQ     B2,B3,SST4  IF END OF TABLE                                     FCC1289X    1414     A     
 DPCLOSE   SST2     SA2    B2          S = T(I)                                            FCC1289X    1415     A     
 DPCLOSE            NO                                                                     FCC1289X    1416     A     
 DPCLOSE            SB1    B2+B4       J = I-K                                             FCC1289X    1417     A     
 DPCLOSE            BX7    X2                                                              FCC1289X    1418     A     
 DPCLOSE   SST3     SA1    B1          T(J)                                                FCC1289X    1419     A     
 DPCLOSE            IX3    X2-X1       COMPARE S AND T(J)                                  FCC1289X    1420     A     
 DPCLOSE            PL     X3,SST1     IF ELEMENTS IN ORDER                                FCC1289X    1421     A     
 DPCLOSE            BX6    X1          T(J+K) = T(J)                                       FCC1289X    1422     A     
 DPCLOSE            SB1    B1+B4       J = J-K                                             FCC1289X    1423     A     
 DPCLOSE            SA6    A1-B4                                                           FCC1289X    1424     A     
 DPCLOSE            GE     B1,B7,SST3  IF J " FIRST                                        FCC1289X    1425     A     
 DPCLOSE            EQ     SST1                                                            FCC1289X    1426     A     
 DPCLOSE                                                                                   FCC1289X    1427     A     
 DPCLOSE   SST4     AX4    1           K = K/2                                             FCC1289X    1428     A     
 DPCLOSE            NO                                                                     FCC1289X    1429     A     
 DPCLOSE            SB4    X4          (B4) = -K                                           FCC1289X    1430     A     
 DPCLOSE            SB2    B7-B4       I = FIRST+K                                         FCC1289X    1431     A     
 DPCLOSE            NZ     X4,SST2     IF K " 0                                            FCC1289X    1432     A     
 DPCLOSE                                                                                   FCC1289X    1433     A     
 DPCLOSE   SST      PS                 ENTRY/EXIT                                          FCC1289X    1434     A     
 DPCLOSE            MX4    12          K = 2**(ENTIER(LOG2(COUNT)+1)                       FCC1289X    1435     A     
 DPCLOSE            SB3    B7+X1       (B3) = LAST+1                                       FCC1289X    1436     A     
 DPCLOSE            NX6,B2 X1                                                              FCC1289X    1437     A     
 DPCLOSE            AX4    X4,B2                                                           FCC1289X    1438     A     
 DPCLOSE            EQ     SST4        ENTER SORT LOOP                                     FCC1289X    1439     A     
 DPCLOSE            TITLE    EQV - CLE - COORDINATE LEVEL EQUIVALENCE INFORMATION          FCC1289X    1440     A     
 DPCLOSE  **        CLE - COORDINATE LEVEL EQUIVALENCE INFORMATION                         FCC1289X    1441     A     
 DPCLOSE  *         ENTRY: ECT ENTRIES FORMATED AS EC. .                                   FCC1289X    1442     A     
 DPCLOSE  *                (A0)= SYM1                                                      FCC1289X    1443     A     
 DPCLOSE  *                                                                                FCC1289X    1444     A     
 DPCLOSE  **        PHASE A - CHECK LEVEL SPECIFICATION WITHIN EACH EQUIVALENCE            FCC1289X    1445     A     
 DPCLOSE  *                CLASS.  MAKE SURE THE BASE MEMBER IS GIVEN A LEVEL              FCC1289X    1446     A     
 DPCLOSE  *                SPECIFICATION BELONGIN TO THE FIRST LEVELED MEMBER.             FCC1289X    1447     A     
 DPCLOSE                                                                                   FCC1289X    1448     A     
 DPCLOSE   CLE      SUBR               ENTRY/EXIT                                          FCC1289X    1449     A     
 DPCLOSE            SA1    O.ECT                                                           FCC1289X    1450     A     
 DPCLOSE            SA5    O.COM                                                           FCC1289X    1451     A     
 DPCLOSE            SA1    X1-1        ECIND= FWA(ECT)-1                                   FCC1289X    1452     A     
 DPCLOSE            MX0    -L.LVL-1                                                        FCC1289X    1453     A     
 DPCLOSE            LX0    P.LCM                                                           FCC1289X    1454     A     
 DPCLOSE                                                                                   FCC1289X    1455     A     
 DPCLOSE  *         CLASS BASE.                                                            FCC1289X    1456     A     
 DPCLOSE                                                                                   FCC1289X    1457     A     
 DPCLOSE   CLE10    SA1    A1+B5       ECTB= ECT(ECIND)                                    FCC1289X    1458     A     
 DPCLOSE            ZR     X1,CLE50    IF END OF ECT TABLE                                 FCC1289X    1459     A     
 DPCLOSE            SB6    B0          ERFLAG= 0  */LOCAL LEVEL ERROR FLAG                 FCC1289X    1460     A     
 DPCLOSE            LX1    -EC.NMP                                                         FCC1289X    1461     A     
 DPCLOSE            SB2    X1          NMB= NM[ECTB]                                       FCC1289X    1462     A     
 DPCLOSE            MX4    -L.RB                                                           FCC1289X    1463     A     
 DPCLOSE            LX1    EC.NMP-EC.SYMP+1                                                FCC1289X    1464     A     
 DPCLOSE            SB1    X1+B5       STIND= SYM[ECTB]+1                                  FCC1289X    1465     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2501    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            SA2    A0-B1       SYMBB= SYMTAB(STIND)                                FCC1289X    1466     A     
 DPCLOSE            BX6    -X0*X2      LEVB= (LVL,LCM) [SYMBB]                             FCC1289X    1467     A     
 DPCLOSE            AX2    P.RB                                                            FCC1289X    1468     A     
 DPCLOSE            SB4    B0          MIND= 0    */MEMBER INDEX                           FCC1289X    1469     A     
 DPCLOSE            BX2    -X4*X2      RBB= RB[SYMBB]                                      FCC1289X    1470     A     
 DPCLOSE            SX3    -B5         IND= -1                                             FCC1289X    1471     A     
 DPCLOSE            ZR     X2,CLE20    IF RBB  EQ  0                                       FCC1289X    1472     A     
 DPCLOSE            SA3    ORGTAB-1+X2       IND= PNT[ORGTAB(RBB)]                         FCC1289X    1473     A     
 DPCLOSE                                                                                   FCC1289X    1474     A     
 DPCLOSE  *         CLASS MEMBER.                                                          FCC1289X    1475     A     
 DPCLOSE  *                (X3)= IND (= -1 IF LOCAL)                                       FCC1289X    1476     A     
 DPCLOSE  *                (A1)= ECTB                                                      FCC1289X    1477     A     
 DPCLOSE  *                (X6)= LEVB                                                      FCC1289X    1478     A     
 DPCLOSE  *                (X5)= O.COM                                                     FCC1289X    1479     A     
 DPCLOSE                                                                                   FCC1289X    1480     A     
 DPCLOSE   CLE20    SB4    B4+B5       MIND= MIND+1                                        FCC1289X    1481     A     
 DPCLOSE            GT     B4,B2,CLE45       IF MIND  GT  NMB                              FCC1289X    1482     A     
 DPCLOSE            SA1    A1+B5       ECTM= ECT(ECIND+1)                                  FCC1289X    1483     A     
 DPCLOSE            LX1    -EC.SYMP+1                                                      FCC1289X    1484     A     
 DPCLOSE            SB3    X1+B5       STINDM= 2* SYM[ECTM]+1                              FCC1289X    1485     A     
 DPCLOSE            SA2    A0-B3       SYMBM= SYMTAB(STINDM)                               FCC1289X    1486     A     
 DPCLOSE            BX4    -X0*X2      LEVM= (LVL,LCM) [SYMBM]                             FCC1289X    1487     A     
 DPCLOSE            ZR     X4,CLE20    IF LEVM  EQ  0                                      FCC1289X    1488     A     
 DPCLOSE            ZR     X6,CLE30    IF LEVB  EQ  0                                      FCC1289X    1489     A     
 DPCLOSE                                                                                   FCC1289X    1490     A     
 DPCLOSE  *         BASE LEVELED, CHECK LEVEL CONFLICT OF MEMBER.                          FCC1289X    1491     A     
 DPCLOSE                                                                                   FCC1289X    1492     A     
 DPCLOSE            BX7    X6-X4                                                           FCC1289X    1493     A     
 DPCLOSE            ZR     X7,CLE20    IF LEVB  EQ  LEVM                                   FCC1289X    1494     A     
 DPCLOSE            MI     X3,CLE25    IF IND  LT  0 (LOCAL)                               FCC1289X    1495     A     
 DPCLOSE            IX2    X5+X3                                                           FCC1289X    1496     A     
 DPCLOSE            SA2    X2          CH= COMTAB(IND)                                     FCC1289X    1497     A     
 DPCLOSE            MX7    1                                                               FCC1289X    1498     A     
 DPCLOSE            LX7    1+CH.LEEP                                                       FCC1289X    1499     A     
 DPCLOSE            IX7    X2+X7                                                           FCC1289X    1500     A     
 DPCLOSE            SA7    A2          LEE[CH]= 1                                          FCC1289X    1501     A     
 DPCLOSE            EQ     CLE20                                                           FCC1289X    1502     A     
 DPCLOSE                                                                                   FCC1289X    1503     A     
 DPCLOSE   CLE25    SB6    B3+         ERFLAG= STINDM                                      FCC1289X    1504     A     
 DPCLOSE            EQ     CLE20                                                           FCC1289X    1505     A     
 DPCLOSE                                                                                   FCC1289X    1506     A     
 DPCLOSE  *         BASE NOT LEVELD,  SET LEVB= LEVM                                       FCC1289X    1507     A     
 DPCLOSE                                                                                   FCC1289X    1508     A     
 DPCLOSE   CLE30    SA2    A0-B1       SYMBB= SYMTAB(STINDB)                               FCC1289X    1509     A     
 DPCLOSE            BX6    X4          LEVB= LEVM                                          FCC1289X    1510     A     
 DPCLOSE            IX7    X2+X4                                                           FCC1289X    1511     A     
 DPCLOSE            SA7    A2          (LVL,LCM)[SYMBB]= LEVM                              FCC1289X    1512     A     
 DPCLOSE            MI     X3,CLE20    IF IND  LT  0                                       FCC1289X    1513     A     
 DPCLOSE            MX7    1                                                               FCC1289X    1514     A     
 DPCLOSE            IX2    X5+X3                                                           FCC1289X    1515     A     
 DPCLOSE            SA2    X2          CH= COMTAB(IND)                                     FCC1289X    1516     A     
 DPCLOSE            LX7    1+CH.NALP                                                       FCC1289X    1517     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2502    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            BX7    X2+X7                                                           FCC1289X    1518     A     
 DPCLOSE            SA7    A2          NAL[CH]= 1                                          FCC1289X    1519     A     
 DPCLOSE            EQ     CLE20                                                           FCC1289X    1520     A     
 DPCLOSE                                                                                   FCC1289X    1521     A     
 DPCLOSE   CLE45    ZR     B6,CLE10    IF ERFLAG  EQ  0                                    FCC1289X    1522     A     
 DPCLOSE            EQ     CLE.E                                                           FCC1289X    1523     A     
 DPCLOSE                                                                                   FCC1289X    1524     A     
 DPCLOSE  **        PHASE B- CHECK LEVEL SPECIFICATION WITHIN EACH EQUIVALENCE             FCC1289X    1525     A     
 DPCLOSE  *         CLASS.  MAKE SURE ALL NON-BASE MEMBER OF EACH CLASS HAVE THE           FCC1289X    1526     A     
 DPCLOSE  *         LEVEL SPECIFICATION OF BASE.                                           FCC1289X    1527     A     
 DPCLOSE  *                (X5)= O.COM                                                     FCC1289X    1528     A     
 DPCLOSE                                                                                   FCC1289X    1529     A     
 DPCLOSE                                                                                   FCC1289X    1530     A     
 DPCLOSE   CLE50    SA1    O.ECT                                                           FCC1289X    1531     A     
 DPCLOSE            SA1    X1-1        ECIND= FWA(ECT)-1                                   FCC1289X    1532     A     
 DPCLOSE   CLE60    SA1    A1+B5       ECTB= ECT(ECIND+1)                                  FCC1289X    1533     A     
 DPCLOSE            ZR     X1,CLE      IF END OF ECT TABLE                                 FCC1289X    1534     A     
 DPCLOSE            LX1    EC.NMP                                                          FCC1289X    1535     A     
 DPCLOSE            SB2    X1          NMB= NM[ECTB]                                       FCC1289X    1536     A     
 DPCLOSE            SX4    B0          LEVBLK= 0           */BLOCK LEVEL NUMBER            FCC1289X    1537     A     
 DPCLOSE            MX7    -L.RB                                                           FCC1289X    1538     A     
 DPCLOSE            LX1    EC.NMP-EC.SYMP+1                                                FCC1289X    1539     A     
 DPCLOSE            SB1    X1+B5       STINDB= 2* SYM[ECTB]+1                              FCC1289X    1540     A     
 DPCLOSE            SA3    A0-B1       SYMBB= SYMTAB(STINDB)                               FCC1289X    1541     A     
 DPCLOSE            BX6    -X0*X3      LEVB= (LVL,LCM) [SYMBB]                             FCC1289X    1542     A     
 DPCLOSE            AX3    P.RB                                                            FCC1289X    1543     A     
 DPCLOSE            SB4    B0          CMIND= 0                                            FCC1289X    1544     A     
 DPCLOSE            BX2    -X7*X3      RBB= RB[SYMBB]                                      FCC1289X    1545     A     
 DPCLOSE            SX3    -B5         IND= -1                                             FCC1289X    1546     A     
 DPCLOSE            ZR     X2,CLE70    IF RBB  EQ  0                                       FCC1289X    1547     A     
 DPCLOSE            SA3    ORGTAB-1+X2       IND= PNT[ORGTAB(RBB)]                         FCC1289X    1548     A     
 DPCLOSE                                                                                   FCC1289X    1549     A     
 DPCLOSE   CLE70    ZR     X6,CLE80    IF LEVB  EQ  0                                      FCC1289X    1550     A     
 DPCLOSE            MI     X3,CLE80    IF IND  LT  0 (LOCAL)                               FCC1289X    1551     A     
 DPCLOSE                                                                                   FCC1289X    1552     A     
 DPCLOSE  *         BASE ALREADY HAS LEVEL SPECIFICATION, CHECK LEVEL CONFLICT             FCC1289X    1553     A     
 DPCLOSE  *         WITH BLOCK LEVEL SPECIFICATION.                                        FCC1289X    1554     A     
 DPCLOSE                                                                                   FCC1289X    1555     A     
 DPCLOSE            NZ     X4,CLE75    IF LEVBLK  EQ  0                                    FCC1289X    1556     A     
 DPCLOSE            BX4    X6          LEVBLK= LEVB                                        FCC1289X    1557     A     
 DPCLOSE            EQ     CLE80                                                           FCC1289X    1558     A     
 DPCLOSE                                                                                   FCC1289X    1559     A     
 DPCLOSE   CLE75    BX7    X6-X4                                                           FCC1289X    1560     A     
 DPCLOSE            ZR     X7,CLE80    IF LEVB  EQ  LEVBLK                                 FCC1289X    1561     A     
 DPCLOSE            IX2    X5+X3                                                           FCC1289X    1562     A     
 DPCLOSE            MX7    1                                                               FCC1289X    1563     A     
 DPCLOSE            SA2    X2          CH= COMTAB(IND)                                     FCC1289X    1564     A     
 DPCLOSE            LX7    1+CH.LEEP                                                       FCC1289X    1565     A     
 DPCLOSE            BX7    X2+X7                                                           FCC1289X    1566     A     
 DPCLOSE            SA7    A2          LEE[CH]= 1                                          FCC1289X    1567     A     
 DPCLOSE                                                                                   FCC1289X    1568     A     
 DPCLOSE  *         CLASS MEMBER.                                                          FCC1289X    1569     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2503    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE  *                (X3)= IND (-1 IF LOCAL)                                         FCC1289X    1570     A     
 DPCLOSE  *                (A1)= ECTB                                                      FCC1289X    1571     A     
 DPCLOSE  *                (X6)= LEVB                                                      FCC1289X    1572     A     
 DPCLOSE                                                                                   FCC1289X    1573     A     
 DPCLOSE   CLE80    SB4    B4+B5       CMCNT= CMCNT+1                                      FCC1289X    1574     A     
 DPCLOSE            GT     B4,B2,CLE60       IF CMCNT  GT  NMB                             FCC1289X    1575     A     
 DPCLOSE            SA1    A1+B5       ECTM= ECT(ECIND+1)                                  FCC1289X    1576     A     
 DPCLOSE            LX1    -EC.SYMP+1                                                      FCC1289X    1577     A     
 DPCLOSE            SB3    X1+B5       STINDM= 2* SYM[ECTM]+1                              FCC1289X    1578     A     
 DPCLOSE            SA2    A0-B3       SYMBM= SYMTAB(STINDM)                               FCC1289X    1579     A     
 DPCLOSE            BX1    -X0*X2      LEVM= (LVL,LCM) [SYMBM]                             FCC1289X    1580     A     
 DPCLOSE            NZ     X1,CLE80    IF LEVM  NE  0                                      FCC1289X    1581     A     
 DPCLOSE            ZR     X6,CLE80    IF LEVB  EQ  0                                      FCC1289X    1582     A     
 DPCLOSE            BX7    X2+X6                                                           FCC1289X    1583     A     
 DPCLOSE            SA7    A2          (LVL,LCM) [SYMBM]= LEVB                             FCC1289X    1584     A     
 DPCLOSE            MI     X3,CLE80    IF IND  LT  0                                       FCC1289X    1585     A     
 DPCLOSE            IX2    X3+X5                                                           FCC1289X    1586     A     
 DPCLOSE            SA2    X2          CH= COMTAB(IND)                                     FCC1289X    1587     A     
 DPCLOSE            MX7    1                                                               FCC1289X    1588     A     
 DPCLOSE            LX7    1+CH.NALP                                                       FCC1289X    1589     A     
 DPCLOSE            BX7    X2+X7                                                           FCC1289X    1590     A     
 DPCLOSE            SA7    A2          NAL[CH]= 1                                          FCC1289X    1591     A     
 DPCLOSE            EQ     CLE80                                                           FCC1289X    1592     A     
 DPCLOSE                                                                                   FCC1289X    1593     A     
 DPCLOSE  *         LOCAL LEVEL/EQUIVALENCE ERROR.                                         FCC1289X    1594     A     
 DPCLOSE                                                                                   FCC1289X    1595     A     
 DPCLOSE   CLE.E    SA5    O.ECT                                                           FCC1289X    1596     A     
 DPCLOSE            SX6    A1          SAVE A1                                             FCC1289X    1597     A     
 DPCLOSE            SX2    B6-B5       STINDB= ERFLAG-1                                    FCC1289X    1598     A     
 DPCLOSE            IX6    X6-X5                                                           FCC1289X    1599     A     
 DPCLOSE            SA6    TEMPR                                                           FCC1289X    1600     A     
 DPCLOSE            AX2    1           SYMORD= STINDB/2                                    FCC1289X    1601     A     
 DPCLOSE            RJ     PSYM                                                            FCC1289X    1602     A     
 DPCLOSE            POSTER NR=E.LEE,SEV=FE,FMT=DPC,TXT=X3                                  FCC1289X    1603     A     
 DPCLOSE            SA1    TEMPR                                                           FCC1289X    1604     A     
 DPCLOSE            SA2    O.ECT                                                           FCC1289X    1605     A     
 DPCLOSE            IX1    X2+X1                                                           FCC1289X    1606     A     
 DPCLOSE            SA1    X1                                                              FCC1289X    1607     A     
 DPCLOSE            MX0    -L.LVL-1                                                        FCC1289X    1608     A     
 DPCLOSE            LX0    P.LCM                                                           FCC1289X    1609     A     
 DPCLOSE            SA5    O.COM                                                           FCC1289X    1610     A     
 DPCLOSE            EQ     CLE10                                                           FCC1289X    1611     A     
 DPCLOSE   CCL      SPACE  4,10                                                            FCC1879       20     A     
 DPCLOSE  **        CCL - COORDINATE COMMON LEVEL INFORMATION.                             FCC1879       21     A     
 DPCLOSE  *                                                                                FCC1879       22     A     
 DPCLOSE  *               SCAN THE COMMON TABLE TO ENSURE THAT NO TWO ITEMS HAVE           FCC1879       23     A     
 DPCLOSE  *               HAVE CONFLICTING LEVELS.                                         FCC1879       24     A     
 DPCLOSE  *               ISSUE AN INFORMAL MESSAGE IF NOT ALL MEMBERS OF THE              FCC1879       25     A     
 DPCLOSE  *               COMMON BLOCK WERE MENTIONED IN LEVEL DECLARATIONS, THEN          FCC1879       26     A     
 DPCLOSE  *               SET ALL MEMBERS TO THE SPECIFIED LEVEL.  FOR LCM RESIDENT        FCC1879       27     A     
 DPCLOSE  *               COMMON BLOCKS, SET LCM[CH.] FOR THE FIRST COMMON HEADER          FCC1879       28     A     
 DPCLOSE  *               WORD OF THE BLOCK.                                               FCC1879       29     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2504    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE  *               CALLED ONCE BEFORE AND AFTER THE EQUIVALENCE PROCESSING.         FCC1879       30     A     
 DPCLOSE                                                                                   FCC1879       31     A     
 DPCLOSE                                                                                   FCC1879       32     A     
 DPCLOSE   CCL      SUBR                     ENTRY/EXIT.                                   FCC1879       33     A     
 DPCLOSE            BX7    X7-X7             CBLEV=0                                       FCC1879       34     A     
 DPCLOSE            SA3    LEVEL                                                           FCC1879       35     A     
 DPCLOSE            ZR     X3,EXIT.          IF NO LEVEL STATEMENTS                        FCC1879       36     A     
 DPCLOSE            SA5    N.COM                                                           FCC1879       37     A     
 DPCLOSE            ZR     X5,EXIT.          IF NO COMMON DECLARATIONS                     FCC1879       38     A     
 DPCLOSE            SA5    ORGTAB            I=0                                           FCC1879       39     A     
 DPCLOSE            SA1    O.COM                                                           FCC1879       40     A     
 DPCLOSE            SA4    SYM1                                                            FCC1879       41     A     
 DPCLOSE            SX4    X4-1              (X4) = SYM1 -1                                FCC1879       42     A     
 DPCLOSE            SA0    X1                (A0) = FWA(T.COM)                             FCC1879       43     A     
 DPCLOSE            MX0    -L.LVL                                                          FCC1879       44     A     
 DPCLOSE                                                                                   FCC1879       45     A     
 DPCLOSE  *         PROCESS NEXT COMMON BLOCK.                                             FCC1879       46     A     
 DPCLOSE  *         (A5,X5) = ORGTAB (I)                                                   FCC1879       47     A     
 DPCLOSE  *         (X0)    =  M(-L.LVL)                                                   FCC1879       48     A     
 DPCLOSE  *         (A0)    =  FWA(T.COM)                                                  FCC1879       49     A     
 DPCLOSE                                                                                   FCC1879       50     A     
 DPCLOSE   CCL10    SB1    X5                CHIND=PNT[ORGTAB(I)]                          FCC1879       51     A     
 DPCLOSE            SB7    B0                ERROR FLAG = 0                                FCC1879       52     A     
 DPCLOSE            SB1    B1+A0             CHF = T.COM(CHIND)                            FCC1879       53     A     
 DPCLOSE            SB2    B1                CHA = CHF                                     FCC1879       54     A     
 DPCLOSE                                                                                   FCC1879       55     A     
 DPCLOSE  *         PROCESS NEXT COMMON BLOCK HEADER IN THE BLOCK.                         FCC1879       56     A     
 DPCLOSE                                                                                   FCC1879       57     A     
 DPCLOSE   CCL20    SA1    B2                CHI = (CHA)                                   FCC1879       58     A     
 DPCLOSE            LX1    -CH.LNKP                                                        FCC1879       59     A     
 DPCLOSE            SB6    X1                CHLNK = LNK[CHI]                              FCC1879       60     A     
 DPCLOSE            ERRNZ  18-CH.LNKL                                                      FCC1879       61     A     
 DPCLOSE            LX1    CH.LNKP-CH.NMP                                                  FCC1879       62     A     
 DPCLOSE            SB3    B5                CMIND = 1                                     FCC1879       63     A     
 DPCLOSE            SB4    X1                NMEM = NM[CHI]                                FCC1879       64     A     
 DPCLOSE            ERRNZ  18-CH.NML                                                       FCC1879       65     A     
 DPCLOSE                                                                                   FCC1879       66     A     
 DPCLOSE  *         PROCESS NEXT MEMBER OF THIS COMMON BLOCK APPEARANCE.                   FCC1879       67     A     
 DPCLOSE                                                                                   FCC1879       68     A     
 DPCLOSE   CCL30    SA2    B2+B3             CMI = (CHA + CMINK )                          FCC1879       69     A     
 DPCLOSE            LX2    -CM.SYMP                                                        FCC1879       70     A     
 DPCLOSE            SX2    X2                                                              FCC1879       71     A     
 DPCLOSE            ERRNZ  18-CM.SYML                                                      FCC1879       72     A     
 DPCLOSE            LX2    1                                                               FCC1879       73     A     
 DPCLOSE            IX3    X4-X2                                                           FCC1879       74     A     
 DPCLOSE            SA1    X3                WBI = TSYM(2*SYM[CMI])                        FCC1879       75     A     
 DPCLOSE            LX1    -P.LVL                                                          FCC1879       76     A     
 DPCLOSE            BX5    -X0*X1            MLEV = LVL[WBI]                               FCC1879       77     A     
 DPCLOSE            BX3    X7-X5                                                           FCC1879       78     A     
 DPCLOSE            BX3    -X0*X3                                                          FCC1879       79     A     
 DPCLOSE            ZR     X3,CCL80          IF CBLEN .EQ.MLEV                             FCC1879       80     A     
 DPCLOSE            ZR     X7,CCL60          IF CBLEV .EQ. 0                               FCC1879       81     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2505    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            NZ     X5,CCL50          IF MLEV  .NE. 0                               FCC1879       82     A     
 DPCLOSE            BX6    X1+X7                                                           FCC1879       83     A     
 DPCLOSE            LX6    P.LVL                                                           FCC1879       84     A     
 DPCLOSE            SA6    A1                LVL[WBI] = 1                                  FCC1879       85     A     
 DPCLOSE            EQ     CCL70             MARK NOT ALL MEMBER LEVELED                   FCC1879       86     A     
 DPCLOSE                                                                                   FCC1879       87     A     
 DPCLOSE  *         CONFLICTING LEVELS DECLARED.                                           FCC1879       88     A     
 DPCLOSE                                                                                   FCC1879       89     A     
 DPCLOSE   CCL50    SX2    B7                                                              FCC1879       90     A     
 DPCLOSE            LX2    58                                                              FCC1879       91     A     
 DPCLOSE            MI     X2,CCL60          IF CONFLICT ALREADY FLAGGED                   FCC1879       92     A     
 DPCLOSE            MX2    1                                                               FCC1879       93     A     
 DPCLOSE            SA3    B1                CHF =  FIRST BLOCK HEADER WORD                FCC1879       94     A     
 DPCLOSE            LX2    1+CH.CLCP                                                       FCC1879       95     A     
 DPCLOSE            BX6    X2+X3                                                           FCC1879       96     A     
 DPCLOSE            SB7    B7+2              INDICATE CONFLICT ALREADY FLAGGED             FCC1879       97     A     
 DPCLOSE            SA6    A3                CLC [CHF] = 1                                 FCC1879       98     A     
 DPCLOSE            EQ     CCL80                                                           FCC1879       99     A     
 DPCLOSE                                                                                   FCC1879      100     A     
 DPCLOSE  *         SET BLOCK STANDARD LEVEL.                                              FCC1879      101     A     
 DPCLOSE                                                                                   FCC1879      102     A     
 DPCLOSE   CCL60    SX7    X5-MN.LCM                                                       FCC1879      103     A     
 DPCLOSE            MX6    1                                                               FCC1879      104     A     
 DPCLOSE            BX6    -X7*X6            SIGN BIT ON FOR LCM                           FCC1879      105     A     
 DPCLOSE            LX6    1+P.LCM-P.LVL                                                   FCC1879      106     A     
 DPCLOSE            BX7    X5+X6             STANDARD LEVEL AND LCM BIT                    FCC1879      107     A     
 DPCLOSE            NE     B3,B5,CCL70       IF NOT FIRST MEMBER                           FCC1879      108     A     
 DPCLOSE            EQ     B2,B1,CCL80       IF THIS IS THE FIRST BLOCK APPEARANCE         FCC1879      109     A     
 DPCLOSE                                                                                   FCC1879      110     A     
 DPCLOSE  *         FLAG NOT ALL MEMBERS LEVELED AND GO OVER THE                           FCC1879      111     A     
 DPCLOSE  *         ENTIRE BLOCK ONCE AGAIN TO SET LEVEL FOR EACH OF                       FCC1879      112     A     
 DPCLOSE  *         THE MEMBER.                                                            FCC1879      113     A     
 DPCLOSE                                                                                   FCC1879      114     A     
 DPCLOSE   CCL70    SX2    B7                                                              FCC1879      115     A     
 DPCLOSE            LX2    59                                                              FCC1879      116     A     
 DPCLOSE            MI     X2,CCL80          IF ERROR ALREADY FLAGGED                      FCC1879      117     A     
 DPCLOSE            MX2    1                                                               FCC1879      118     A     
 DPCLOSE            SA3    B1                CMF = FIRST BLOCK HEADER WORD                 FCC1879      119     A     
 DPCLOSE            LX2    1+CH.NALP                                                       FCC1879      120     A     
 DPCLOSE            BX6    X2+X3                                                           FCC1879      121     A     
 DPCLOSE            SB7    B5+B7             INDICATE NOTE ALREADY FLAGGED                 FCC1879      122     A     
 DPCLOSE            SA6    A3                NAL[CHF] = 1                                  FCC1879      123     A     
 DPCLOSE            SB2    B1                CHA = CHF                                     FCC1879      124     A     
 DPCLOSE            EQ     CCL20             PASS OVER COMTAB AGAIN TO SET LEVEL           FCC1879      125     A     
 DPCLOSE                                                                                   FCC1879      126     A     
 DPCLOSE   CCL80    SB3    B3+B5             CMIND = CMIND + 1                             FCC1879      127     A     
 DPCLOSE            LE     B3,B4,CCL30       IF MORE MEMBERS                               FCC1879      128     A     
 DPCLOSE            SB2    B2+B6             CHA = CHA + CHLNK                             FCC1879      129     A     
 DPCLOSE            NZ     B6,CCL20          IF MORE BLOCK APPEARANCES REMAIN              FCC1879      130     A     
 DPCLOSE                                                                                   FCC1879      131     A     
 DPCLOSE  *         SET LCM[CHF] BIT IF LCM[WBI] = 1.                                      FCC1879      132     A     
 DPCLOSE  *                 (A1) = WBI  LAST PROCESSED                                     FCC1879      133     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2506    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE                                                                                   FCC1879      134     A     
 DPCLOSE            SX5    B5                                                              FCC1879      135     A     
 DPCLOSE            SA1    A1                WBI                                           FCC1879      136     A     
 DPCLOSE            LX1    -P.LCM                                                          FCC1879      137     A     
 DPCLOSE            BX7    X5*X1             LCM[WBI]                                      FCC1879      138     A     
 DPCLOSE            SA3    B1                CHF = FIRST BLOCK HEADER WORD                 FCC1879      139     A     
 DPCLOSE            LX7    CH.LENL+CH.LENP-1                                               FCC1879      140     A     
 DPCLOSE            BX7    X7+X3                                                           FCC1879      141     A     
 DPCLOSE            SA7    A3                LCM[CHF] = 1                                  FCC1879      142     A     
 DPCLOSE                                                                                   FCC1879      143     A     
 DPCLOSE            SA5    A5+B5             I=I+1                                         FCC1879      144     A     
 DPCLOSE            MX7    0                 ERROR FLAG = 0                                FCC1879      145     A     
 DPCLOSE            NZ     X5,CCL10          IF MORE BLOCKS TO GO                          FCC1879      146     A     
 DPCLOSE            EQ     EXIT.                                                           FCC1879      147     A     
 DPCLOSE            TITLE              ACA - ASSIGN COMMON ADDRESS S                       DPCLOSE     1765     A     
 DPCLOSE  ***                                                                              DPCLOSE     1766          I
          -FEAT129
 DPCLOSE  *         ACA - ASSIGN COMMON ADDRESS"S                                          DPCLOSE     1767          I
          -FEAT129
 DPCLOSE  **        ACA - ASSIGN COMMON ADDRESS"S                                          FEAT129      503     A     
 DPCLOSE  *                                                                                DPCLOSE     1768     A     
 DPCLOSE  *         ASSIGNS RELATIVE ADDRESS"S TO COMTAB ENTRIES                           DPCLOSE     1769     A     
 DPCLOSE  *         COMPUTES LENGTH OF EACH BLOCK, AND STORES RELATIVE ADDRESS             DPCLOSE     1770     A     
 DPCLOSE  *         IN DIMTAB FOR ENTRIES HAVING THEM                                      DPCLOSE     1771     A     
 DPCLOSE  *                                                                                DPCLOSE     1772     A     
 DPCLOSE  *         BLOCK MEMBER ENTRIES ARE REFORMATTED AS:                               DPCLOSE     1773     A     
 DPCLOSE  *         6/0,18/BLOCK LEN,18/N.MEMBERS,18/LINK                                  DPCLOSE     1774     A     
 DPCLOSE  *         AND THE NAMES BECOME:                                                  DPCLOSE     1775     A     
 DPCLOSE  *         1/DIMFLAG,5/0,18/LENGTH,18/SYMORD,18/RA                                DPCLOSE     1776     A     
 DPCLOSE  *                                                                                DPCLOSE     1777     A     
 DPCLOSE                                                                                   DPCLOSE     1778     A     
 DPCLOSE   ACA                                                                             DPCLOSE     1779     A     
 DPCLOSE            SA5    N.COM                                                           DPCLOSE     1780     A     
 DPCLOSE            ZR     X5,ACA            IF NO COMMON                                  DPCLOSE     1781     A     
 DPCLOSE            SA5    ORGTAB      BLOCK NAME AND INDEX                                DPCLOSE     1782     A     
 DPCLOSE                                                                                   DPCLOSE     1783     A     
 DPCLOSE   ACA0     SA4    SYM1                                                            DPCLOSE     1784     A     
 DPCLOSE            SX4    X4-1              X4 = SYM1-1                                   DPCLOSE     1785     A     
 DPCLOSE            SA3    O.DIM                                                           DPCLOSE     1786     A     
 DPCLOSE            SB7    X3-1              INDEX TO DIM TAB                              DPCLOSE     1787     A     
 DPCLOSE            SX7    B0                BLOCK LENGTH = 0                              DPCLOSE     1788     A     
 DPCLOSE                                                                                   DPCLOSE     1789     A     
 DPCLOSE   ACA1     SA1    O.COM                                                           DPCLOSE     1790     A     
 DPCLOSE            SB1    X5                                                              DPCLOSE     1791     A     
 DPCLOSE            SB1    X1+B1       O.COM + ORGTAB(I)                                   DPCLOSE     1792     A     
 DPCLOSE            SA0    B1          FWA OF THIS BLOCK                                   DPCLOSE     1793     A     
 DPCLOSE            SB2    B0          INITIALIZE BLOCK-TOO-LONG FLAG                      DPCLOSE     1794     A     
 DPCLOSE                                                                                   DPCLOSE     1795     A     
 DPCLOSE   ACA2     SA1    A0          BLOCK NAME WORD                                     DPCLOSE     1796     A     
 DPCLOSE            SB6    X1                LINK                                          DPCLOSE     1797     A     
 DPCLOSE            AX1    18                                                              DPCLOSE     1798     A     
 DPCLOSE            SB3    B5                LOOP INDEX                                    DPCLOSE     1799     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2507    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            SB4    X1                NUMBER OF MEMBERS IN THIS APPEARANCE          DPCLOSE     1800     A     
 DPCLOSE            MX5    L.DIMP                                                          DPCLOSE     1801     A     
 DPCLOSE            LX5    L.DIMP+P.DIMP                                                   DPCLOSE     1802     A     
 DPCLOSE                                                                                   DPCLOSE     1803     A     
 DPCLOSE   ACA3     SA2    A0+B3       MEMBER                                              DPCLOSE     1804     A     
 DPCLOSE            IX6    X7+X2             ADD ADDRESS                                   DPCLOSE     1805     A     
 DPCLOSE            AX2    18-1                                                            DPCLOSE     1806     A     
 DPCLOSE            IX3    X4-X2                                                           DPCLOSE     1807     A     
 DPCLOSE            SA1    X3                WORD B                                        DPCLOSE     1808     A     
 DPCLOSE            BX3    X5*X1                                                           DPCLOSE     1809     A     
 DPCLOSE            AX1    P.TYP                                                           DPCLOSE     1810     A     
 DPCLOSE            AX3    P.DIMP-1          DIMP INDEX                                    DPCLOSE     1811     A     
 DPCLOSE            SX2    X1-T.DBL                                                        DPCLOSE     1812     A     
 DPCLOSE            ZR     X3,ACA4           IF NO DIM ENTRY                               DPCLOSE     1813     A     
 DPCLOSE                                                                                   DPCLOSE     1814     A     
 DPCLOSE  *         DIMENSIONED VARIABLE - SET DIM BIT IN COMTAB AND GET WC                DPCLOSE     1815     A     
 DPCLOSE                                                                                   DPCLOSE     1816     A     
 DPCLOSE            MX0    1                                                               DPCLOSE     1817     A     
 DPCLOSE            SA3    X3+B7             WORD 2 OF DIM ENTRY                           DPCLOSE     1818     A     
 DPCLOSE            BX6    X0+X6             SET DIM ENTRY FLAG                            DPCLOSE     1819     A     
 DPCLOSE            AX3    36                                                              DPCLOSE     1820     A     
 DPCLOSE            SX0    X3                X0 = WC                                       DPCLOSE     1821     A     
 DPCLOSE            SA7    A3-B5             RA TO DIM ENTRY                               DPCLOSE     1822     A     
 DPCLOSE            NZ     X0,ACA6           IF REALLY DIMENSIONED                         DPCLOSE     1823     A     
 DPCLOSE                                                                                   DPCLOSE     1824     A     
 DPCLOSE   ACA4     SX3    B5                                                              DPCLOSE     1825     A     
 DPCLOSE            AX2    L.TYP                                                           DPCLOSE     1826     A     
 DPCLOSE            BX1    -X2*X3            0 IF SINGLE , 1 IF DOUBLE                     DPCLOSE     1827     A     
 DPCLOSE            SX0    X1+B5                                                           DPCLOSE     1828     A     
 DPCLOSE                                                                                   DPCLOSE     1829     A     
 DPCLOSE  *         SUM BLOCK LENGTH, UPDATE COMTAB ENTRY                                  DPCLOSE     1830     A     
 DPCLOSE                                                                                   DPCLOSE     1831     A     
 DPCLOSE   ACA6     IX7    X7+X0             BL = BL+WC                                    DPCLOSE     1832     A     
 DPCLOSE            SX2    X7-377777B                                                      DPCLOSE     1833          I
          -FCC0527
 DPCLOSE            MI     X2,ACA6.A   IF BLOCK LENGTH .LE. 1S17-1                         DPCLOSE     1834          I
          -FCC0527
 DPCLOSE            MX2    -17                                                             FCC0527        4     A     
 DPCLOSE            BX2    X2*X7                                                           FCC0527        5     A     
 DPCLOSE            ZR     X2,ACA6.A   IF BLOCK LENGTH .LE. 1S17-1                         FCC0527        6     A     
 DPCLOSE            SX7    377777B     BL = 1S17-1                                         DPCLOSE     1835     A     
 DPCLOSE            SB2    X7          ERROR FLAG .NE. 0                                   DPCLOSE     1836     A     
 DPCLOSE                                                                                   DPCLOSE     1837     A     
 DPCLOSE   ACA6.A   LX0    36                                                              DPCLOSE     1838     A     
 DPCLOSE            BX6    X0+X6             ADD WORD COUNT TO ENTRY                       DPCLOSE     1839     A     
 DPCLOSE            SA6    A0+B3                                                           DPCLOSE     1840     A     
 DPCLOSE            SB3    B3+B5             ADVANCE LOOP INDEX                            DPCLOSE     1841     A     
 DPCLOSE            LE     B3,B4,ACA3                                                      DPCLOSE     1842     A     
 DPCLOSE                                                                                   DPCLOSE     1843     A     
 DPCLOSE            SA0    A0+B6       BASE = BASE + LINK                                  DPCLOSE     1844     A     
 DPCLOSE            NZ     B6,ACA2           IF MORE APPEARENCES TO GO                     DPCLOSE     1845     A     
 DPCLOSE                                                                                   DPCLOSE     1846     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2508    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            SA1    A1                REFETCH LAST WORD B ENTRY                     DPCLOSE     1847          I
          -FCC1879
 DPCLOSE            MX5    1                                                               DPCLOSE     1848          I
          -FCC1879
 DPCLOSE            LX5    1+P.LCM                                                         DPCLOSE     1849          I
          -FCC1879
 DPCLOSE            BX2    X5*X1                                                           DPCLOSE     1850          I
          -FCC1879
 DPCLOSE            LX2    17-P.LCM                                                        DPCLOSE     1851          I
          -FCC1879
 DPCLOSE            BX7    X2+X7             ADD ECS BIT                                   DPCLOSE     1852          I
          -FCC1879
 DPCLOSE            SA1    B1                FIRST BLOCK MEMBER APPEARENCE                 DPCLOSE     1853     A     
 DPCLOSE            LX7    36                                                              DPCLOSE     1854     A     
 DPCLOSE            IX7    X7+X1             INSTALL BLOCK LENGTH                          DPCLOSE     1855     A     
 DPCLOSE            SA7    A1                                                              DPCLOSE     1856     A     
 DPCLOSE                                                                                   DPCLOSE     1857     A     
 DPCLOSE            SA5    A5+B5             NEXT BLOCK                                    DPCLOSE     1858     A     
 DPCLOSE            SX7    B0                BLOCK LENGTH = 0                              DPCLOSE     1859     A     
 DPCLOSE                                                                                   DPCLOSE     1860     A     
 DPCLOSE            ZR     B2,ACA6.B   IF BLOCK NOT TOO LONG                               DPCLOSE     1861     A     
 DPCLOSE            SA1    A5-B5       ORGTAB HEADER FOR BLOCK                             DPCLOSE     1862     A     
 DPCLOSE            MX0    42                                                              DPCLOSE     1863     A     
 DPCLOSE            SX3    1R                                                              DPCLOSE     1864     A     
 DPCLOSE            SX7    A5                                                              DPCLOSE     1865     A     
 DPCLOSE            BX4    X0*X1       NAME                                                DPCLOSE     1866     A     
 DPCLOSE            SA7    TEMPREG                                                         DPCLOSE     1867     A     
 DPCLOSE            LX4    -12                                                             DPCLOSE     1868     A     
 DPCLOSE            BX7    X4+X3                                                           DPCLOSE     1869     A     
 DPCLOSE            POSTERR  NR=E.BLKL,SEV=FE,FMT=DPC,TXT=X7                               DPCLOSE     1870     A     
 DPCLOSE            SA1    TEMPREG                                                         DPCLOSE     1871     A     
 DPCLOSE            SA5    X1                                                              DPCLOSE     1872     A     
 DPCLOSE            NZ     X5,ACA0     IF MORE BLOCKS TO PROCESS                           DPCLOSE     1873     A     
 DPCLOSE            EQ     ACA                                                             DPCLOSE     1874     A     
 DPCLOSE                                                                                   DPCLOSE     1875     A     
 DPCLOSE   ACA6.B   NZ     X5,ACA1     IF MORE BLOCKS TO PROCESS                           DPCLOSE     1876     A     
 DPCLOSE            EQ     ACA                                                             DPCLOSE     1877     A     
 DPCLOSE   PDC      TITLE  PDC - PERFORM DEFERRED CHECKS                                   DPCLOSE     1878     A     
 DPCLOSE  **        PDC - PERFORM DEFERRED CHECKS.                                         DPCLOSE     1879     A     
 DPCLOSE                                                                                   DPCLOSE     1880     A     
 DPCLOSE                                                                                   DPCLOSE     1881     A     
 DPCLOSE   PDC      ENTRY. *                 ** ENTRY/EXIT **                              DPCLOSE     1882     A     
 DPCLOSE            SA3    DBLDECL                                                         DPCLOSE     1883     A     
 DPCLOSE            SA5    SYM1                                                            DPCLOSE     1884     A     
 DPCLOSE            ZR     X3,PDC.L          IF NO TYPE DOUBLE OR COMPLEX DECLAR           DPCLOSE     1885     A     
 DPCLOSE                                                                                   DPCLOSE     1886     A     
 DPCLOSE  *         SCAN DIMTAB FOR DOUBLE PREC OR COMPLEX ARRAYS AND DOUBLE               DPCLOSE     1887     A     
 DPCLOSE  *         THEIR LENGTHS.                                                         DPCLOSE     1888     A     
 DPCLOSE                                                                                   DPCLOSE     1889     A     
 DPCLOSE            SA1    O.DIM                                                           DPCLOSE     1890     A     
 DPCLOSE            SA2    L.DIM                                                           DPCLOSE     1891     A     
 DPCLOSE            SB6    X1                FWA OF DIMTAB                                 DPCLOSE     1892     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2509    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            SB7    B6+X2             LWA+1                                         DPCLOSE     1893     A     
 DPCLOSE            SB2    B5+B5             B2 = 2                                        DPCLOSE     1894     A     
 DPCLOSE            MX4    3                                                               DPCLOSE     1895     A     
 DPCLOSE            LX4    3+54              TO EXTRACT VAR DIM FLAGS                      DPCLOSE     1896     A     
 DPCLOSE            SB3    -B5               B3 = -1                                       DPCLOSE     1897     A     
 DPCLOSE            MX0    17                                                              DPCLOSE     1898     A     
 DPCLOSE            LX0    17+36             MASK TO EXTRACT TOTAL WC                      DPCLOSE     1899     A     
 DPCLOSE                                                                                   DPCLOSE     1900     A     
 DPCLOSE   PDC1     SA1    B6                WORD 1 OF DIM ENTRY                           DPCLOSE     1901     A     
 DPCLOSE            GE     B6,B7,PDC.L       IF FINISHED                                   DPCLOSE     1902     A     
 DPCLOSE            AX1    36-1                                                            DPCLOSE     1903     A     
 DPCLOSE            IX2    X5-X1                                                           DPCLOSE     1904     A     
 DPCLOSE            SA3    X2+B3             WORD B OF SYMTAB ENTRY                        DPCLOSE     1905     A     
 DPCLOSE            SB6    B6+B2                                                           DPCLOSE     1906     A     
 DPCLOSE            AX3    P.TYP                                                           DPCLOSE     1907     A     
 DPCLOSE            SB4    X3-T.DBL                                                        DPCLOSE     1908     A     
 DPCLOSE            NG     B4,PDC1           IF SINGLE PRECISION                           DPCLOSE     1909     A     
 DPCLOSE            GT     B4,B5,PDC1        IF NOT TYPE DOUBLE OR COMPLEX                 DPCLOSE     1910     A     
 DPCLOSE            SA1    A1+B5             WORD 2 OF DIM ENTRY                           DPCLOSE     1911     A     
 DPCLOSE            BX7    X4*X1                                                           DPCLOSE     1912     A     
 DPCLOSE            NZ     X7,PDC1           IF VARIABLE DIMS                              DPCLOSE     1913     A     
 DPCLOSE            BX2    X0*X1                                                           DPCLOSE     1914     A     
 DPCLOSE            IX6    X2+X1             DOUBLE TOTAL WORD COUNT                       DPCLOSE     1915     A     
 DPCLOSE            SA6    A1                                                              DPCLOSE     1916     A     
 DPCLOSE            EQ     PDC1                                                            DPCLOSE     1917     A     
 DPCLOSE            SPACE  3                                                               DPCLOSE     1918     A     
 DPCLOSE                                                                                   DPCLOSE     1919          I
          -FCC1879
 DPCLOSE  *         SCAN THE COMMON TABLE TO ENSURE NO TWO ITEMS HAVE CONFLICTING          DPCLOSE     1920          I
          -FCC1879
 DPCLOSE  *         LEVELS.  ISSUE AN INFORMATIVE MESSAGE IF NOT ALL MEMBERS OF            DPCLOSE     1921          I
          -FCC1879
 DPCLOSE  *         THE COMMON BLOCK WERE MENTIONED IN LEVEL DECLARATIONS.                 DPCLOSE     1922          I
          -FCC1879
 DPCLOSE  *         THEN SET ALL MEMBERS TO THE SPECIFIED LEVEL                            DPCLOSE     1923          I
          -FCC1879
 DPCLOSE                                                                                   DPCLOSE     1924          I
          -FCC1879
 DPCLOSE                                                                                   DPCLOSE     1925          I
          -FCC1879
 DPCLOSE  *         DEFINE MIN LCM RESIDENT LEVEL.                                         DPCLOSE     1926          I
          -FCC1879
 DPCLOSE                                                                                   DPCLOSE     1927          I
          -FCC1879
 DPCLOSE   #DAL     IFEQ   .DAL,1      IF DIRECT-ACCESS LCM AVAILABLE                      DPCLOSE     1928          I
          -FCC1879
 DPCLOSE   MN.LCM   EQU    2                                                               DPCLOSE     1929          I
          -FCC1879
 DPCLOSE   #DAL     ELSE                                                                   DPCLOSE     1930          I
          -FCC1879
 DPCLOSE   MN.LCM   EQU    3                                                               DPCLOSE     1931          I
          -FCC1879
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2510    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE   #DAL     ENDIF                                                                  DPCLOSE     1932          I
          -FCC1879
 DPCLOSE                                                                                   DPCLOSE     1933          I
          -FCC1879
 DPCLOSE   PDC.L    BX7    X7-X7             INITIAL LEVEL OF COMMON BLOCK                 DPCLOSE     1934          I
          -FCC1879
 DPCLOSE            SB7    B0                FIRST PASS FLAG                               DPCLOSE     1935          I
          -FCC0580  -FCC1879
 DPCLOSE            SA3    LEVEL                                                           DPCLOSE     1936          I
          -FCC1879
 DPCLOSE            ZR     X3,PDC.V          IF NO LEVEL STATEMENTS                        DPCLOSE     1937          I
          -FCC1879
 DPCLOSE            SA5    N.COM                                                           DPCLOSE     1938          I
          -FCC1879
 DPCLOSE            ZR     X5,PDC.V          IF NO COMMON DECLARATIONS                     DPCLOSE     1939          I
          -FCC1879
 DPCLOSE            SA5    ORGTAB                                                          DPCLOSE     1940          I
          -FCC1879
 DPCLOSE                                                                                   DPCLOSE     1941          I
          -FCC1879
 DPCLOSE   PDC.L0   SA1    O.COM                                                           DPCLOSE     1942          I
          -FCC0580  -FCC1879
 DPCLOSE            SA1    O.COM                                                           FCC0580      118          I
          -FCC1879
 DPCLOSE            SA4    SYM1                                                            DPCLOSE     1943          I
          -FCC1879
 DPCLOSE            SX4    X4-1              X4 = SYM1 - 1                                 DPCLOSE     1944          I
          -FCC1879
 DPCLOSE            SA0    X1                A0 = (O.COM)                                  DPCLOSE     1945          I
          -FCC1879
 DPCLOSE            MX0    60-L.LVL                                                        DPCLOSE     1946          I
          -FCC1879
 DPCLOSE   PDC.L1   SB1    X5                                                              DPCLOSE     1947          I
          -FCC1879
 DPCLOSE            SB7    B0                                                              FCC0580      119          I
          -FCC1879
 DPCLOSE            SB1    B1+A0             O.COM + ORGTAB(I)                             DPCLOSE     1948          I
          -FCC1879
 DPCLOSE            SB2    B1                FWA OF THIS BLOCK APPEARANCE                  DPCLOSE     1949          I
          -FCC1879
 DPCLOSE                                                                                   DPCLOSE     1950          I
          -FCC1879
 DPCLOSE   PDC.L2   SA1    B2                BLOCK NAME WORD                               DPCLOSE     1951          I
          -FCC1879
 DPCLOSE            SB6    X1                LINK                                          DPCLOSE     1952          I
          -FCC1879
 DPCLOSE            AX1    18                                                              DPCLOSE     1953          I
          -FCC1879
 DPCLOSE            SB3    B5                LOOP INDEX                                    DPCLOSE     1954          I
          -FCC1879
 DPCLOSE            SB4    X1                NUMBER OF MEMBERS IN THIS GROUP               DPCLOSE     1955          I
          -FCC1879
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2511    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE                                                                                   DPCLOSE     1956          I
          -FCC1879
 DPCLOSE   PDC.L3   SA2    B2+B3             MEMBER                                        DPCLOSE     1957          I
          -FCC1879
 DPCLOSE            AX2    18-1                                                            DPCLOSE     1958          I
          -FCC1879
 DPCLOSE            IX3    X4-X2                                                           DPCLOSE     1959          I
          -FCC1879
 DPCLOSE            SA1    X3                WORD B                                        DPCLOSE     1960          I
          -FCC1879
 DPCLOSE            LX1    -P.LVL                                                          DPCLOSE     1961          I
          -FCC1879
 DPCLOSE            BX5    -X0*X1                                                          DPCLOSE     1962          I
          -FCC1879
 DPCLOSE            BX3    X7-X5                                                           DPCLOSE     1963          I
          -FCC1879
 DPCLOSE            BX3    -X0*X3                                                          DPCLOSE     1964          I
          -FCC1879
 DPCLOSE            ZR     X3,PDC.L8         IF AT THE SAME LEVEL                          DPCLOSE     1965          I
          -FCC1879
 DPCLOSE            ZR     X7,PDC.L6         IF NO STANDARD LEVEL KNOWN YET                DPCLOSE     1966          I
          -FCC1879
 DPCLOSE            NZ     X5,PDC.L5         IF A SPECIFIC LEVEL DECLARED                  DPCLOSE     1967          I
          -FCC1879
 DPCLOSE                                                                                   DPCLOSE     1968          I
          -FCC1879
 DPCLOSE            BX6    X1+X7                                                           DPCLOSE     1969          I
          -FCC1879
 DPCLOSE            LX6    P.LVL                                                           DPCLOSE     1970          I
          -FCC1879
 DPCLOSE            SA6    A1                                                              DPCLOSE     1971          I
          -FCC1879
 DPCLOSE            EQ     PDC.L7            MARK NOT ALL MEMBERS LEVELED                  DPCLOSE     1972          I
          -FCC1879
 DPCLOSE                                                                                   DPCLOSE     1973          I
          -FCC1879
 DPCLOSE  *         CONFLICTING LEVELS DECLARED                                            DPCLOSE     1974          I
          -FCC1879
 DPCLOSE                                                                                   DPCLOSE     1975          I
          -FCC1879
 DPCLOSE   PDC.L5   SX6    A1                                                              DPCLOSE     1976          I
          -FCC0580  -FCC1879
 DPCLOSE            SA6    LCMERR                                                          DPCLOSE     1977          I
          -FCC0580  -FCC1879
 DPCLOSE   PDC.L5   SX2    B7                                                              FCC0580      120          I
          -FCC1879
 DPCLOSE            LX2    58                                                              FCC0580      121          I
          -FCC1879
 DPCLOSE            MI     X2,PDC.L6   IF CONFLICT ALREADY FLAGGED                         FCC0580      122          I
          -FCC1879
 DPCLOSE            SA5    A5                                                              FCC0580      123          I
          -FCC1879
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2512    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            SX6    A0                                                              FCC0580      124          I
          -FCC1879
 DPCLOSE            MX2    1                                                               FCC0580      125          I
          -FCC1879
 DPCLOSE            IX5    X6+X5                                                           FCC0580      126          I
          -FCC1879
 DPCLOSE            SA1    X5                                                              FCC0580      127          I
          -FCC1879
 DPCLOSE            LX2    59                                                              FCC0580      128          I
          -FCC1879
 DPCLOSE            BX6    X2+X1                                                           FCC0580      129          I
          -FCC1879
 DPCLOSE            SB7    B7+2                                                            FCC0580      130          I
          -FCC1879
 DPCLOSE            SA6    A1          FLAG LEVEL CONFLICT                                 FCC0580      131          I
          -FCC1879
 DPCLOSE            EQ     PDC.L8                                                          DPCLOSE     1978          I
          -FCC1879
 DPCLOSE                                                                                   DPCLOSE     1979          I
          -FCC1879
 DPCLOSE  *         FIRST LEVEL DECLARATION FOUND.  SET BLOCK STANDARD LEVEL.              DPCLOSE     1980          I
          -FCC1879
 DPCLOSE                                                                                   DPCLOSE     1981          I
          -FCC1879
 DPCLOSE   PDC.L6   SX7    X5-MN.LCM                                                       DPCLOSE     1982          I
          -FCC1879
 DPCLOSE            MX6    1                                                               DPCLOSE     1983          I
          -FCC1879
 DPCLOSE            BX6    -X7*X6      SIGN BIT ON FOR LCM                                 DPCLOSE     1984          I
          -FCC1879
 DPCLOSE            LX6    1+P.LCM-P.LVL                                                   DPCLOSE     1985          I
          -FCC1879
 DPCLOSE            BX7    X5+X6       STANDARD LEVEL AND LCM BIT                          DPCLOSE     1986          I
          -FCC1879
 DPCLOSE            NE     B3,B5,PDC.L7      IF NOT FIRST MEMBER                           DPCLOSE     1987          I
          -FCC1879
 DPCLOSE            EQ     B2,B1,PDC.L8      IF THIS IS THE FIRST BLOCK GROUP              DPCLOSE     1988          I
          -FCC1879
 DPCLOSE                                                                                   DPCLOSE     1989          I
          -FCC1879
 DPCLOSE   PDC.L7   SX6    A1                                                              DPCLOSE     1990          I
          -FCC0580  -FCC1879
 DPCLOSE            SA6    LCMORD            FLAG NOT ALL MEMBERS LEVELED                  DPCLOSE     1991          I
          -FCC0580  -FCC1879
 DPCLOSE   PDC.L7   SX2    B7                                                              FCC0580      132          I
          -FCC1879
 DPCLOSE            LX2    59                                                              FCC0580      133          I
          -FCC1879
 DPCLOSE            MI     X2,PDC.L8   IF ERROR ALREADY FLAGGED                            FCC0580      134          I
          -FCC1879
 DPCLOSE            SA5    A5                                                              FCC0580      135          I
          -FCC1879
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2513    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            SX6    A0                                                              FCC0580      136          I
          -FCC1879
 DPCLOSE            MX2    1                                                               FCC0580      137          I
          -FCC1879
 DPCLOSE            IX5    X6+X5                                                           FCC0580      138          I
          -FCC1879
 DPCLOSE            SA1    X5                                                              FCC0580      139          I
          -FCC1879
 DPCLOSE            LX2    58                                                              FCC0580      140          I
          -FCC1879
 DPCLOSE            BX6    X2+X1                                                           FCC0580      141          I
          -FCC1879
 DPCLOSE            SB7    B5+B7                                                           FCC0580      142          I
          -FCC1879
 DPCLOSE            SA6    A1          FLAG NOT ALL ELEMENTS LEVELED                       FCC0580      143          I
          -FCC1879
 DPCLOSE            SB2    B1                                                              FCC0580      144          I
          -FCC1879
 DPCLOSE            EQ     PDC.L2      PASS OVER COMTAB AGAIN TO SET LEVELS                FCC0580      145          I
          -FCC1879
 DPCLOSE                                                                                   DPCLOSE     1992          I
          -FCC1879
 DPCLOSE   PDC.L8   SB3    B3+B5             ADVANCE LOOP INDEX                            DPCLOSE     1993          I
          -FCC1879
 DPCLOSE            LE     B3,B4,PDC.L3      IF MORE MEMBERS                               DPCLOSE     1994          I
          -FCC1879
 DPCLOSE                                                                                   DPCLOSE     1995          I
          -FCC1879
 DPCLOSE            SB2    B2+B6             BASE = BASE + LINK                            DPCLOSE     1996          I
          -FCC1879
 DPCLOSE            NZ     B6,PDC.L2         IF MORE BLOCK APPEARANCES REMAIN              DPCLOSE     1997          I
          -FCC1879
 DPCLOSE                                                                                   DPCLOSE     1998          I
          -FCC0580  -FCC1879
 DPCLOSE            SA2    LCMORD                                                          DPCLOSE     1999          I
          -FCC0580  -FCC1879
 DPCLOSE            SA1    LCMERR                                                          DPCLOSE     2000          I
          -FCC0580  -FCC1879
 DPCLOSE            BX5    X1+X2                                                           DPCLOSE     2001          I
          -FCC0580  -FCC1879
 DPCLOSE            NZ     X5,PDC.L9         IF ERRORS TO ISSUE                            DPCLOSE     2002          I
          -FCC0580  -FCC1879
 DPCLOSE                                                                                   DPCLOSE     2003          I
          -FCC1879
 DPCLOSE            SA5    A5+B5             NEXT BLOCK                                    DPCLOSE     2004          I
          -FCC1879
 DPCLOSE            MX7    0                 STANDARD LEVEL                                DPCLOSE     2005          I
          -FCC1879
 DPCLOSE            SA7    LCMORD            CLEAR ERROR CELLS                             DPCLOSE     2006          I
          -FCC0580  -FCC1879
 DPCLOSE            SA7    LCMERR                                                          DPCLOSE     2007          I
          -FCC0580  -FCC1879
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2514    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            NZ     X5,PDC.L1         IF MORE BLOCKS TO GO                          DPCLOSE     2008          I
          -FCC1879
 DPCLOSE            EQ     PDC.V                                                           DPCLOSE     2009          I
          -FCC0580  -FCC1879
 DPCLOSE                                                                                   DPCLOSE     2010          I
          -FCC0580  -FCC1879
 DPCLOSE  *         ISSUE LEVEL ERROR MESSAGES                                             DPCLOSE     2011          I
          -FCC0580  -FCC1879
 DPCLOSE                                                                                   DPCLOSE     2012          I
          -FCC0580  -FCC1879
 DPCLOSE   PDC.L9   NZ     B7,PDC.L12        IF SECOND TIME FLAG IS SET                    DPCLOSE     2013          I
          -FCC0580  -FCC1879
 DPCLOSE            SA4    A5                FETCH BLOCK NAME                              DPCLOSE     2014          I
          -FCC0580  -FCC1879
 DPCLOSE            MX0    42                                                              DPCLOSE     2015          I
          -FCC0580  -FCC1879
 DPCLOSE            SA7    TEMPC             SAVE THE DEFAULT LEVEL                        DPCLOSE     2016          I
          -FCC0580  -FCC1879
 DPCLOSE            SX5    1R                                                              DPCLOSE     2017          I
          -FCC0580  -FCC1879
 DPCLOSE            BX7    X0*X4                                                           DPCLOSE     2018          I
          -FCC0580  -FCC1879
 DPCLOSE            SX6    A5                                                              DPCLOSE     2019          I
          -FCC0580  -FCC1879
 DPCLOSE            LX7    60-12                                                           DPCLOSE     2020          I
          -FCC0580  -FCC1879
 DPCLOSE            IX3    X5+X7             FILL NAME TO 8 CHARACTERS                     DPCLOSE     2021          I
          -FCC0580  -FCC1879
 DPCLOSE            MX4    0                                                               DPCLOSE     2022          I
          -FCC0580  -FCC1879
 DPCLOSE            SA6    A7+B5                                                           DPCLOSE     2023          I
          -FCC0580  -FCC1879
 DPCLOSE            ZR     X1,PDC.L10        IF NO LEVEL CONFLICT                          DPCLOSE     2024          I
          -FCC0580  -FCC1879
 DPCLOSE                                                                                   DPCLOSE     2025          I
          -FCC0580  -FCC1879
 DPCLOSE            SB7    PDC.L12                                                         DPCLOSE     2026          I
          -FCC0580  -FCC1879
 DPCLOSE            SB6    E.CLC             COMMON LEVEL CONFLICT                         DPCLOSE     2027          I
          -FCC0580  -FCC1879
 DPCLOSE            EQ     ERPRO                                                           DPCLOSE     2028          I
          -FCC0580  -FCC1879
 DPCLOSE                                                                                   DPCLOSE     2029          I
          -FCC0580  -FCC1879
 DPCLOSE   PDC.L10  SB6    E.NAL             NOT ALL LEVELS LEVELED                        DPCLOSE     2030          I
          -FCC0580  -FCC1879
 DPCLOSE            SB7    PDC.L11                                                         DPCLOSE     2031          I
          -FCC0580  -FCC1879
 DPCLOSE            EQ     ERPROI                                                          DPCLOSE     2032          I
          -FCC0580  -FCC1879
 DPCLOSE                                                                                   DPCLOSE     2033          I
          -FCC0580  -FCC1879
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2515    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE   PDC.L11  SB7    B5                                                              DPCLOSE     2034          I
          -FCC0580  -FCC1879
 DPCLOSE            SA3    TEMPC                                                           DPCLOSE     2035          I
          -FCC0580  -FCC1879
 DPCLOSE            SA4    A3+B5                                                           DPCLOSE     2036          I
          -FCC0580  -FCC1879
 DPCLOSE            BX7    X3                STANDARD LEVEL                                DPCLOSE     2037          I
          -FCC0580  -FCC1879
 DPCLOSE            SA5    X4                SETUP A5                                      DPCLOSE     2038          I
          -FCC0580  -FCC1879
 DPCLOSE            EQ     PDC.L0                                                          DPCLOSE     2039          I
          -FCC0580  -FCC1879
 DPCLOSE                                                                                   DPCLOSE     2040          I
          -FCC0580  -FCC1879
 DPCLOSE   PDC.L12  SA3    TEMPC+1           SETUP FOR NEXT BLOCK                          DPCLOSE     2041          I
          -FCC0580  -FCC1879
 DPCLOSE            SA5    X3+B5                                                           DPCLOSE     2042          I
          -FCC0580  -FCC1879
 DPCLOSE            SB7    B0                SET FIRST PASS FLAG                           DPCLOSE     2043          I
          -FCC0580  -FCC1879
 DPCLOSE            ZR     X5,PDC.V          IF NO MORE BLOCKS                             DPCLOSE     2044          I
          -FCC0580  -FCC1879
 DPCLOSE            BX7    X7-X7                                                           DPCLOSE     2045          I
          -FCC0580  -FCC1879
 DPCLOSE            SA7    LCMORD                                                          DPCLOSE     2046          I
          -FCC0580  -FCC1879
 DPCLOSE            SA7    LCMERR                                                          DPCLOSE     2047          I
          -FCC0580  -FCC1879
 DPCLOSE            EQ     PDC.L0            RELOAD VITAL CONSTANTS                        DPCLOSE     2048          I
          -FCC0580  -FCC1879
 DPCLOSE                                                                                   FCC0580      146          I
          -FCC1879
 DPCLOSE   PDC.L    RJ     CCL               COORDINATE COMMON LEVEL INFO                  FCC1879      148     A     
 DPCLOSE            SPACE  2                                                               DPCLOSE     2049     A     
 DPCLOSE   PDC.V    SA3    VARDIM                                                          DPCLOSE     2050     A     
 DPCLOSE            ZR     X3,PDC2           IF NO VARIABLE DIMENSIONED ARRAYS             DPCLOSE     2051     A     
 DPCLOSE                                                                                   DPCLOSE     2052     A     
 DPCLOSE  *         SCAN F.P. S IN SYMTAB AND CHECK TO SEE THAT ANY USED AS                DPCLOSE     2053     A     
 DPCLOSE  *         SUBSCRIPTS TO ARRAYS ARE TYPE INTEGER                                  DPCLOSE     2054     A     
 DPCLOSE                                                                                   DPCLOSE     2055     A     
 DPCLOSE            SA5    SYM1                                                            DPCLOSE     2056     A     
 DPCLOSE                                                                                   DPCLOSE     2057     A     
 DPCLOSE   PDC.V1   SA1    X5-2                                                            DPCLOSE     2058     A     
 DPCLOSE            SB1    59-P.FP                                                         DPCLOSE     2059     A     
 DPCLOSE            SB2    59-P.RL                                                         DPCLOSE     2060     A     
 DPCLOSE            SX7    1R                                                              DPCLOSE     2061     A     
 DPCLOSE                                                                                   DPCLOSE     2062     A     
 DPCLOSE   PDC.VL   SA1    A1-2              WORD A                                        DPCLOSE     2063     A     
 DPCLOSE            SA2    A1-B5             WORD B                                        DPCLOSE     2064     A     
 DPCLOSE            LX3    B1,X1                                                           DPCLOSE     2065     A     
 DPCLOSE            PL     X3,PDC2           IF NOT AN F.P.                                DPCLOSE     2066     A     
 DPCLOSE            LX4    B2,X2                                                           DPCLOSE     2067     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2516    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            PL     X4,PDC.VL         IF NOT USED AS AN ARRAY SUBSCRIPT             DPCLOSE     2068     A     
 DPCLOSE            AX2    P.TYP                                                           DPCLOSE     2069     A     
 DPCLOSE            SB3    X2                                                              DPCLOSE     2070     A     
 DPCLOSE            EQ     B3,B5,PDC.VL      IF TYPE INTEGER                               DPCLOSE     2071     A     
 DPCLOSE                                                                                   DPCLOSE     2072     A     
 DPCLOSE            SX6    A1+2                                                            DPCLOSE     2073     A     
 DPCLOSE            SA6    TEMP              SAVE SYMTAB ADDRESS                           DPCLOSE     2074     A     
 DPCLOSE            MX0    L.NAME                                                          DPCLOSE     2075     A     
 DPCLOSE            BX3    X0*X1                                                           DPCLOSE     2076     A     
 DPCLOSE            AX3    12                                                              DPCLOSE     2077     A     
 DPCLOSE            SX4    B0                                                              DPCLOSE     2078     A     
 DPCLOSE            BX3    X3+X7             X3 = 8R_NAME                                  DPCLOSE     2079     A     
 DPCLOSE            SB6    E.FPNI                                                          DPCLOSE     2080     A     
 DPCLOSE  +         SB7    *+1               RETURN ADDRESS                                DPCLOSE     2081     A     
 DPCLOSE            EQ     ERPRO                                                           DPCLOSE     2082     A     
 DPCLOSE                                                                                   DPCLOSE     2083     A     
 DPCLOSE            SA5    TEMP                                                            DPCLOSE     2084     A     
 DPCLOSE            EQ     PDC.V1                                                          DPCLOSE     2085     A     
 DPCLOSE                                                                                   DPCLOSE     2086     A     
 DPCLOSE  *         INITIALIZE FOR EQUIVALENCE PROCESSING                                  DPCLOSE     2087          I
          -FCC1289X 
 DPCLOSE  *         FORM DIM ENTRIES FOR MEMBERS THAT DON"T HAVE ANY                       DPCLOSE     2088          I
          -FCC1289X 
 DPCLOSE  *         SAVE ORDINALS OF COMMON BLOCKS THAT ARE INVOLVED                       DPCLOSE     2089          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2090          I
          -FCC1289X 
 DPCLOSE   PDC2     SA1    O.EQV                                                           DPCLOSE     2091          I
          -FCC1289X 
 DPCLOSE            SA2    L.EQV                                                           DPCLOSE     2092          I
          -FCC1289X 
 DPCLOSE            ZR     X2,PDC            IF NO EQUIVALENCE RELATIONS                   DPCLOSE     2093          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2094          I
          -FCC1289X 
 DPCLOSE            SA5    N.COM                                                           DPCLOSE     2095          I
          -FCC1289X 
 DPCLOSE            SB6    O.CET                                                           DPCLOSE     2096          I
          -FCC1289X 
 DPCLOSE            MX6    0                                                               DPCLOSE     2097          I
          -FCC1289X 
 DPCLOSE            SB7    B6+X5             LWA+1                                         DPCLOSE     2098          I
          -FCC1289X 
 DPCLOSE  +         SA6    B6                CLEAR OUT COMMON EQV TABLE                    DPCLOSE     2099          I
          -FCC1289X 
 DPCLOSE            SB6    B6+B5                                                           DPCLOSE     2100          I
          -FCC1289X 
 DPCLOSE            LT     B6,B7,*                                                         DPCLOSE     2101          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2102          I
          -FCC1289X 
 DPCLOSE            MX0    L.DIMP                                                          DPCLOSE     2103          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2517    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SB1    X1                FWA                                           DPCLOSE     2104          I
          -FCC1289X 
 DPCLOSE            SB2    B1+X2             LWA+1                                         DPCLOSE     2105          I
          -FCC1289X 
 DPCLOSE            LX0    L.DIMP+P.DIMP                                                   DPCLOSE     2106          I
          -FCC1289X 
 DPCLOSE            SA4    L.DIM                                                           DPCLOSE     2107          I
          -FCC1289X 
 DPCLOSE            SB3    B5+B5             B3 = 2                                        DPCLOSE     2108          I
          -FCC1289X 
 DPCLOSE            SB6    X4                B6 = L.DIM ( ORIGINAL )                       DPCLOSE     2109          I
          -FCC1289X 
 DPCLOSE            SB7    X4                B7 = L.DIM ( CURRENT )                        DPCLOSE     2110          I
          -FCC1289X 
 DPCLOSE            SA4    SYM1                                                            DPCLOSE     2111          I
          -FCC1289X 
 DPCLOSE            SA0    X4                A0 = SYM1                                     DPCLOSE     2112          I
          -FCC1289X 
 DPCLOSE            MX5    60-L.RB                                                         DPCLOSE     2113          I
          -FCC1289X 
 DPCLOSE            EQ     PDC4                                                            DPCLOSE     2114          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2115          I
          -FCC1289X 
 DPCLOSE   PDC3     SX7    B7+B3                                                           DPCLOSE     2116          I
          -FCC1289X 
 DPCLOSE            LX7    P.DIMP-1                                                        DPCLOSE     2117          I
          -FCC1289X 
 DPCLOSE            BX6    X7+X3             ADD DIMP ORD                                  DPCLOSE     2118          I
          -FCC1289X 
 DPCLOSE            SA6    A3                                                              DPCLOSE     2119          I
          -FCC1289X 
 DPCLOSE            SB7    B7+B3             ADVANCE DIMP ORD                              DPCLOSE     2120          I
          -FCC1289X 
 DPCLOSE            GE     B1,B2,PDC6        IF FINISHED                                   DPCLOSE     2121          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2122          I
          -FCC1289X 
 DPCLOSE   PDC4     SA1    B1                WORD 1 OF EQV TBL ENTRY                       DPCLOSE     2123          I
          -FCC1289X 
 DPCLOSE            SB1    B1+B3                                                           DPCLOSE     2124          I
          -FCC1289X 
 DPCLOSE            SB4    X1                2*ORD                                         DPCLOSE     2125          I
          -FCC1289X 
 DPCLOSE            SA2    A0-B4                                                           DPCLOSE     2126          I
          -FCC1289X 
 DPCLOSE            SA3    A2-B5                                                           DPCLOSE     2127          I
          -FCC1289X 
 DPCLOSE            LX2    59-P.COM                                                        DPCLOSE     2128          I
          -FCC1289X 
 DPCLOSE            BX4    X0*X3                                                           DPCLOSE     2129          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2518    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            PL     X2,PDC5           IF NOT IN COMMON                              DPCLOSE     2130          I
          -FCC1289X 
 DPCLOSE            BX6    X3                                                              DPCLOSE     2131          I
          -FCC1289X 
 DPCLOSE            AX6    P.RB                                                            DPCLOSE     2132          I
          -FCC1289X 
 DPCLOSE            BX6    -X5*X6                                                          DPCLOSE     2133          I
          -FCC1289X 
 DPCLOSE            SA6    X6+O.CET-1        O.CET(I) = I                                  DPCLOSE     2134          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2135          I
          -FCC1289X 
 DPCLOSE   PDC5     ZR     X4,PDC3           IF NO DIM ENTRY                               DPCLOSE     2136          I
          -FCC1289X 
 DPCLOSE            LT     B1,B2,PDC4        IF NOT FINISHED                               DPCLOSE     2137          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2138          I
          -FCC1289X 
 DPCLOSE  *         SET UP DIM ENTRIES FOR ALL MEMBERS OF EACH BLOCK INVOLVED              DPCLOSE     2139          I
          -FCC1289X 
 DPCLOSE  *         IN EQUIVALENCING                                                       DPCLOSE     2140          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2141          I
          -FCC1289X 
 DPCLOSE   PDC6     SA3    N.COM                                                           DPCLOSE     2142          I
          -FCC1289X 
 DPCLOSE            SX7    B0                I = 0                                         DPCLOSE     2143          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2144          I
          -FCC1289X 
 DPCLOSE  *         SCAN FOR AN EQUIVALENCED BLOCK                                         DPCLOSE     2145          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2146          I
          -FCC1289X 
 DPCLOSE   PDC7     IX6    X3-X7             L - I                                         DPCLOSE     2147          I
          -FCC1289X 
 DPCLOSE            SA2    O.CET+X7          O.CET(I)                                      DPCLOSE     2148          I
          -FCC1289X 
 DPCLOSE            SX7    X7+B5             I = I+1                                       DPCLOSE     2149          I
          -FCC1289X 
 DPCLOSE            ZR     X6,PDC11          IF FINISHED                                   DPCLOSE     2150          I
          -FCC1289X 
 DPCLOSE            ZR     X2,PDC7           IF NOT EQUIVALENCED                           DPCLOSE     2151          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2152          I
          -FCC1289X 
 DPCLOSE            SA5    O.COM                                                           DPCLOSE     2153          I
          -FCC1289X 
 DPCLOSE            SA4    ORGTAB-1+X7       ORGTAB(I)                                     DPCLOSE     2154          I
          -FCC1289X 
 DPCLOSE            IX3    X4+X5                                                           DPCLOSE     2155          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2519    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            MX6    1                                                               DPCLOSE     2156          I
          -FCC1289X 
 DPCLOSE            SA1    X3                BLOCK PREFIX WORD                             DPCLOSE     2157          I
          -FCC1289X 
 DPCLOSE            BX6    X6+X1                                                           DPCLOSE     2158          I
          -FCC1289X 
 DPCLOSE            SA6    A1                SET EQUIVALENCE BIT                           DPCLOSE     2159          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2160          I
          -FCC1289X 
 DPCLOSE   PDC8     SB1    X1                B1 = LINK                                     DPCLOSE     2161          I
          -FCC1289X 
 DPCLOSE            AX1    18                                                              DPCLOSE     2162          I
          -FCC1289X 
 DPCLOSE            SB2    X1                B2 = NUMBER OF MEMBERS IN THIS APPEAR         DPCLOSE     2163          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2164          I
          -FCC1289X 
 DPCLOSE  *         SCAN THE BLOCK BACKWARDS AND SET DIMP ORDINALS FOR MEMBERS NOT         DPCLOSE     2165          I
          -FCC1289X 
 DPCLOSE  *         HAVING ANY                                                             DPCLOSE     2166          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2167          I
          -FCC1289X 
 DPCLOSE   PDC9     SA2    A1+B2                                                           DPCLOSE     2168          I
          -FCC1289X 
 DPCLOSE            SB2    B2-B5                                                           DPCLOSE     2169          I
          -FCC1289X 
 DPCLOSE            AX2    18-1                                                            DPCLOSE     2170          I
          -FCC1289X 
 DPCLOSE            SB4    X2+B5             2*ORD+1                                       DPCLOSE     2171          I
          -FCC1289X 
 DPCLOSE            SA3    A0-B4             WORD B                                        DPCLOSE     2172          I
          -FCC1289X 
 DPCLOSE            BX4    X0*X3                                                           DPCLOSE     2173          I
          -FCC1289X 
 DPCLOSE            NZ     X4,PDC10          IF THIS MEMBER HAS A DIM ENTRY                DPCLOSE     2174          I
          -FCC1289X 
 DPCLOSE            SX5    B7+B3                                                           DPCLOSE     2175          I
          -FCC1289X 
 DPCLOSE            SB7    B7+B3             ADVANCE DIMP ORD                              DPCLOSE     2176          I
          -FCC1289X 
 DPCLOSE            LX5    P.DIMP-1                                                        DPCLOSE     2177          I
          -FCC1289X 
 DPCLOSE            BX6    X5+X3                                                           DPCLOSE     2178          I
          -FCC1289X 
 DPCLOSE            SA6    A3                                                              DPCLOSE     2179          I
          -FCC1289X 
 DPCLOSE   PDC10    NZ     B2,PDC9           IF NOT FINISHED                               DPCLOSE     2180          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2181          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2520    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE            SA1    A1+B1             NEXT APPEARANCE                               DPCLOSE     2182          I
          -FCC1289X 
 DPCLOSE            NZ     B1,PDC8           IF MORE TO GO                                 DPCLOSE     2183          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2184          I
          -FCC1289X 
 DPCLOSE            SA3    N.COM                                                           DPCLOSE     2185          I
          -FCC1289X 
 DPCLOSE            EQ     PDC7                                                            DPCLOSE     2186          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2187          I
          -FCC1289X 
 DPCLOSE  *         UPDATE DIMTAB LENGTH, CLEAR OUT NEW ENTRIES                            DPCLOSE     2188          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2189          I
          -FCC1289X 
 DPCLOSE   PDC11    EQ     B6,B7,PDC         IF NO CHANGE                                  DPCLOSE     2190          I
          -FCC1289X 
 DPCLOSE            SX7    B7                                                              DPCLOSE     2191          I
          -FCC1289X 
 DPCLOSE            SA7    TEMP                                                            DPCLOSE     2192          I
          -FCC1289X 
 DPCLOSE            ALLOC  DIM,B7-B6         ALLOCATE FOR THE EXTRA ENTRIES                DPCLOSE     2193          I
          -FCC1289X 
 DPCLOSE            SA1    O.DIM                                                           DPCLOSE     2194          I
          -FCC1289X 
 DPCLOSE            SA2    L.DIM                                                           DPCLOSE     2195          I
          -FCC1289X 
 DPCLOSE            SA3    TEMP                                                            DPCLOSE     2196          I
          -FCC1289X 
 DPCLOSE            BX6    X3                                                              DPCLOSE     2197          I
          -FCC1289X 
 DPCLOSE            SA6    A2                UPDATE L.DIM                                  DPCLOSE     2198          I
          -FCC1289X 
 DPCLOSE            SB1    X1                                                              DPCLOSE     2199          I
          -FCC1289X 
 DPCLOSE            SB2    B1+X3             LWA+1                                         DPCLOSE     2200          I
          -FCC1289X 
 DPCLOSE            SB1    B1+X2                                                           DPCLOSE     2201          I
          -FCC1289X 
 DPCLOSE            MX6    0                                                               DPCLOSE     2202          I
          -FCC1289X 
 DPCLOSE                                                                                   DPCLOSE     2203          I
          -FCC1289X 
 DPCLOSE  +         SA6    B1                CLEAR OUT THE DIM ENTRIES                     DPCLOSE     2204          I
          -FCC1289X 
 DPCLOSE            SB1    B1+B5                                                           DPCLOSE     2205          I
          -FCC1289X 
 DPCLOSE            LT     B1,B2,*                                                         DPCLOSE     2206          I
          -FCC1289X 
 DPCLOSE            EQ     PDC                                                             DPCLOSE     2207          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2521    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          -FCC1289X 
 DPCLOSE  *         INITIALIZE FOR EQUIVALENCE PROCESSING.                                 FCC1289X    1612     A     
 DPCLOSE  *         CREATE DIM ENTRIES FOR ALL MEMBERS OF NON-COMMON EQUIVALENCE           FCC1289X    1613     A     
 DPCLOSE  *         GROUP WHICH DO NOT ALREADY HAVE ONE, AND MARK COMMON BLOCKS            FCC1289X    1614     A     
 DPCLOSE  *         INVOLVED IN EQUIVALENCE.                                               FCC1289X    1615     A     
 DPCLOSE                                                                                   FCC1289X    1616     A     
 DPCLOSE   PDC2     SA2    L.EQV                                                           FCC1289X    1617     A     
 DPCLOSE            MX6    -1                                                              FCC1289X    1618     A     
 DPCLOSE            ZR     X2,PDC      IF NO EQUIVALENCE STATEMENTS                        FCC1289X    1619     A     
 DPCLOSE            ADDWD  EQV,X6      ADD TERMINATOR WORD                                 FCC1289X    1620     A     
 DPCLOSE            SA1    O.EQV                                                           FCC1289X    1621     A     
 DPCLOSE            SA2    L.DIM                                                           FCC1289X    1622     A     
 DPCLOSE            SB1    X1          I= FWA OF EQV TABLE                                 FCC1289X    1623     A     
 DPCLOSE            MX0    L.DIMP                                                          FCC1289X    1624     A     
 DPCLOSE            SA3    O.COM                                                           FCC1289X    1625     A     
 DPCLOSE            SA4    SYM1                                                            FCC1289X    1626     A     
 DPCLOSE            LX0    L.DIMP+P.DIMP                                                   FCC1289X    1627     A     
 DPCLOSE            SB3    B5+B5                                                           FCC1289X    1628     A     
 DPCLOSE            MX7    -L.RB                                                           FCC1289X    1629     A     
 DPCLOSE            SA0    X4                                                              FCC1289X    1630     A     
 DPCLOSE            SB7    X2          DIMJ= (L.DIM)                                       FCC1289X    1631     A     
 DPCLOSE            MX5    1                                                               FCC1289X    1632     A     
 DPCLOSE            LX5    1+CH.EQUP                                                       FCC1289X    1633     A     
 DPCLOSE                                                                                   FCC1289X    1634     A     
 DPCLOSE   PDC4     SA1    B1          EQV1(I)                                             FCC1289X    1635     A     
 DPCLOSE            SB1    B1+B3       I= I+2                                              FCC1289X    1636     A     
 DPCLOSE            MI     X1,PDC8     IF END OF EQV TABLE                                 FCC1289X    1637     A     
 DPCLOSE            LX1    -E1.SY2P                                                        FCC1289X    1638     A     
 DPCLOSE            SB4    X1+B5       STIND= SY2[EQV1(I)]+1                               FCC1289X    1639     A     
 DPCLOSE            SA2    A0-B4       SYMB= SYMTAB(STIND)                                 FCC1289X    1640     A     
 DPCLOSE            BX4    X0*X2       DIMP= DIMP[SYMB]                                    FCC1289X    1641     A     
 DPCLOSE            LX2    -P.RB                                                           FCC1289X    1642     A     
 DPCLOSE            BX6    -X7*X2      RBI= RB[SYMB]                                       FCC1289X    1643     A     
 DPCLOSE            NZ     X6,PDC6     IF RBI  NE  0                                       FCC1289X    1644     A     
 DPCLOSE            NZ     X4,PDC4     IF DIMP  NE  0                                      FCC1289X    1645     A     
 DPCLOSE            SX6    B7+B3       DIMP= DIMJ+2                                        FCC1289X    1646     A     
 DPCLOSE            LX6    P.DIMP-1                                                        FCC1289X    1647     A     
 DPCLOSE            LX2    P.RB                                                            FCC1289X    1648     A     
 DPCLOSE            BX6    X6+X2                                                           FCC1289X    1649     A     
 DPCLOSE            SA6    A2          DIMP[SYMB]= DIMJ                                    FCC1289X    1650     A     
 DPCLOSE            SB7    B7+B3       DIMJ= DIMJ+2                                        FCC1289X    1651     A     
 DPCLOSE            EQ     PDC4                                                            FCC1289X    1652     A     
 DPCLOSE                                                                                   FCC1289X    1653     A     
 DPCLOSE  *         FOR THOSE IN COMMON, MARK EQU BIT ON BLOCK HEADER.                     FCC1289X    1654     A     
 DPCLOSE                                                                                   FCC1289X    1655     A     
 DPCLOSE   PDC6     SA4    ORGTAB-1+X6  IND= PNT[ORGTAB(RBI)]                              FCC1289X    1656     A     
 DPCLOSE            IX4    X3+X4                                                           FCC1289X    1657     A     
 DPCLOSE            SA1    X4          CHI= COMTAB(IND)                                    FCC1289X    1658     A     
 DPCLOSE            BX6    X5+X1                                                           FCC1289X    1659     A     
 DPCLOSE            SA6    A1          EQU[CHI]= 1                                         FCC1289X    1660     A     
 DPCLOSE            EQ     PDC4                                                            FCC1289X    1661     A     
 DPCLOSE                                                                                   FCC1289X    1662     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2522    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE  *         FOR EACH EQUIVALENCED COMMON BLOCK, CREATE DIM ENTRIES FOR             FCC1289X    1663     A     
 DPCLOSE  *         THOSE MEMBERS THAT DO NOT ALREADY HAVE ONE.                            FCC1289X    1664     A     
 DPCLOSE  *                (X3)= O.COM                                                     FCC1289X    1665     A     
 DPCLOSE                                                                                   FCC1289X    1666     A     
 DPCLOSE   PDC8     SA1    N.COM                                                           FCC1289X    1667     A     
 DPCLOSE            SA5    ORGTAB-1    ITAB= 0                                             FCC1289X    1668     A     
 DPCLOSE            ZR     X1,PDC16    IF NO COMMON BLOCKS                                 FCC1289X    1669     A     
 DPCLOSE                                                                                   FCC1289X    1670     A     
 DPCLOSE   PDC9     SA5    A5+B5       ITAB= ITAB+1                                        FCC1289X    1671     A     
 DPCLOSE            IX4    X3+X5       IND= PNT[ORGTAB(ITAB)]                              FCC1289X    1672     A     
 DPCLOSE            ZR     X5,PDC16    IF NO MORE BLOCKS TO GO                             FCC1289X    1673     A     
 DPCLOSE            SA1    X4          CHI= COMTAB(IND)                                    FCC1289X    1674     A     
 DPCLOSE            LX1    -1-CH.EQUP                                                      FCC1289X    1675     A     
 DPCLOSE            SB2    B0          LINK= 0                                             FCC1289X    1676     A     
 DPCLOSE            PL     X1,PDC9     IF EQU[CHI]  NE  1                                  FCC1289X    1677     A     
 DPCLOSE                                                                                   FCC1289X    1678     A     
 DPCLOSE   PDC10    SA1    A1+B2       CHI= COMTAB(IND+LINK)                               FCC1289X    1679     A     
 DPCLOSE            LX1    -CH.LNKP                                                        FCC1289X    1680     A     
 DPCLOSE            SB2    X1          LINK= LNK[CHI]                                      FCC1289X    1681     A     
 DPCLOSE            LX1    CH.LNKP-CH.NMP                                                  FCC1289X    1682     A     
 DPCLOSE            SB6    X1          N.MEM= NM[CHI]                                      FCC1289X    1683     A     
 DPCLOSE   PDC12    ZR     B6,PDC14    IF NO MORE MEMBERS                                  FCC1289X    1684     A     
 DPCLOSE            SA2    A1+B6       CMI= COMTAB(IND+N.MEM)                              FCC1289X    1685     A     
 DPCLOSE            LX2    -CM.SYMP+1                                                      FCC1289X    1686     A     
 DPCLOSE            SB4    X2+B5       STIND= SYM[CMI]+1                                   FCC1289X    1687     A     
 DPCLOSE            SA4    A0-B4       SYMB = SYMTAB(STIND)                                FCC1289X    1688     A     
 DPCLOSE            BX6    X0*X4       DIMP= DIMP[SYMB]                                    FCC1289X    1689     A     
 DPCLOSE            SB6    B6-B5       N.MEM= N.MEM-1                                      FCC1289X    1690     A     
 DPCLOSE            NZ     X6,PDC12    IF DIMP  NE  0                                      FCC1289X    1691     A     
 DPCLOSE            SX7    B7+B3       DIMP= DIMJ+2                                        FCC1289X    1692     A     
 DPCLOSE            SB7    B7+B3       DIMJ= DIMJ+2                                        FCC1289X    1693     A     
 DPCLOSE            LX7    P.DIMP-1                                                        FCC1289X    1694     A     
 DPCLOSE            BX6    X7+X4                                                           FCC1289X    1695     A     
 DPCLOSE            SA6    A4          DIMP[SYMB]= DIMP                                    FCC1289X    1696     A     
 DPCLOSE            EQ     PDC12                                                           FCC1289X    1697     A     
 DPCLOSE                                                                                   FCC1289X    1698     A     
 DPCLOSE   PDC14    NZ     B2,PDC10    IF LNK[CHI]  NE  0                                  FCC1289X    1699     A     
 DPCLOSE            EQ     PDC9                                                            FCC1289X    1700     A     
 DPCLOSE                                                                                   FCC1289X    1701     A     
 DPCLOSE  *         UPDATE DIMTAB LENGTH, CLEAR OUT NEW ENTRIES.                           FCC1289X    1702     A     
 DPCLOSE                                                                                   FCC1289X    1703     A     
 DPCLOSE   PDC16    SA2    L.DIM                                                           FCC1289X    1704     A     
 DPCLOSE            SX7    B7                                                              FCC1289X    1705     A     
 DPCLOSE            SB6    X2                                                              FCC1289X    1706     A     
 DPCLOSE            EQ     B6,B7,PDC   IF NO CHANGE IN L.DIM                               FCC1289X    1707     A     
 DPCLOSE            SA7    TEMP                                                            FCC1289X    1708     A     
 DPCLOSE            ALLOC  DIM,B7-B6   ALLOCATE FOR THE EXTRA DIM ENTRIES                  FCC1289X    1709     A     
 DPCLOSE            SA1    O.DIM                                                           FCC1289X    1710     A     
 DPCLOSE            SA2    L.DIM                                                           FCC1289X    1711     A     
 DPCLOSE            IX1    X1+X2       STARTING ENTRY TO BE CLEARED                        FCC1289X    1712     A     
 DPCLOSE            SA3    TEMP        NEW L.DIM                                           FCC1289X    1713     A     
 DPCLOSE            BX6    X3                                                              FCC1289X    1714     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2523    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            SA6    A2          L.DIM= NEW L.DIM                                    FCC1289X    1715     A     
 DPCLOSE            IX2    X3-X2       NO. ENTRIES TO BE CLEARED                           FCC1289X    1716     A     
 DPCLOSE            SETZERO X1,X2                                                          FCC1289X    1717     A     
 DPCLOSE            EQ     PDC                                                             FCC1289X    1718     A     
 DPCLOSE   ETC      TITLE  ETC - ENTRY POINT, TRACEBACK, AND F.P. INFO TO COMPS            FEAT129      504     A     
 DPCLOSE  **        ETC - ENTRY POINT, TRACEBACK, AND F.P. INFO TO COMPS.                  FEAT129      505     A     
 DPCLOSE  *                                                                                FEAT129      506     A     
 DPCLOSE  *         ENTRY  (B5) = 1                                                        FEAT129      507     A     
 DPCLOSE  *                                                                                FEAT129      508     A     
 DPCLOSE  *         CALLS  ESF     *PH1CTL*                                                FEAT129      509     A     
 DPCLOSE  *                FMAC    *STMTP*                                                 FEAT129      510     A     
 DPCLOSE  *                F1AMAC  *STMTP*                                                 FEAT129      511     A     
 DPCLOSE  *                OUTUSE  *LSTPRO*                                                FEAT129      512     A     
 DPCLOSE  *                SVARG   *STMTP*                                                 FEAT129      513     A     
 DPCLOSE                                                                                   FEAT129      514     A     
 DPCLOSE                                                                                   FEAT129      515     A     
 DPCLOSE   TNFP     EQU    NARGS+12          SCRATCH CELL IN /MACBUF/                      FEAT129      516     A     
 DPCLOSE  *                                  FOR *FORPAR* LOOP.                            FEAT129      517     A     
 DPCLOSE                                                                                   FEAT129      518     A     
 DPCLOSE                                                                                   FEAT129      519     A     
 DPCLOSE   ETC      ENTRY. *                 ** ENTRY/EXIT **                              FEAT129      520     A     
 DPCLOSE                                                                                   FEAT129      521     A     
 DPCLOSE            SA1    PROGRAM                                                         FEAT129      522     A     
 DPCLOSE            UX1    B2,X1                                                           FEAT129      523     A     
 DPCLOSE            LE     B2,B0,ETC         IF A PROGRAM OR BLOCK DATA SUBPROG            FEAT129      524     A     
 DPCLOSE                                                                                   FEAT129      525     A     
 DPCLOSE            RJ     =XESF             ENTER SPECIAL SYMBOLS IN SYMTAB               FEAT129      526     A     
 DPCLOSE                                                                                   FEAT129      527     A     
 DPCLOSE            OUTUSE START.                                                          FEAT129      528     A     
 DPCLOSE                                                                                   FEAT129      529     A     
 DPCLOSE  *         ISSUE *TRACE* MACRO TO COMPS.                                          FEAT129      530     A     
 DPCLOSE                                                                                   FEAT129      531     A     
 DPCLOSE            INTARG                                                                 FEAT129      532     A     
 DPCLOSE            SX6    B5                                                              FEAT129      533     A     
 DPCLOSE            SVARG  NAME,B5           ARG 1 = PROGRAM NAME                          FEAT129      534     A     
 DPCLOSE            SX6    B5                                                              FEAT129      535     A     
 DPCLOSE            SVARG  NAME,2            ARG 2 = PROGRAM NAME                          FEAT129      536     A     
 DPCLOSE            SA1    =XTEMPA0.                                                       FEAT129      537     A     
 DPCLOSE            SA2    =XN.FP                                                          FEAT129      538     A     
 DPCLOSE            ZR     X1,ETC1           IF NO FP S OR RETURNS                         FEAT129      539     A     
 DPCLOSE            SX6    X2                                                              FEAT129      540     A     
 DPCLOSE            SVARG  OCT,3             ARG 3 = NUMBER OF FP S                        FEAT129      541     A     
 DPCLOSE                                                                                   FEAT129      542     A     
 DPCLOSE   ETC1     NARGS= B7                                                              FEAT129      543     A     
 DPCLOSE            FMAC   TRACE             OUTPUT TRACE MACRO CALL                       FEAT129      544     A     
 DPCLOSE                                                                                   FEAT129      545     A     
 DPCLOSE  *         ISSUE *PENTRY* MACRO TO COMPS.                                         FEAT129      546     A     
 DPCLOSE                                                                                   FEAT129      547     A     
 DPCLOSE            INTARG                                                                 FEAT129      548     A     
 DPCLOSE            SX6    B5                                                              FEAT129      549     A     
 DPCLOSE            SVARG  NAME,B5           ARG 1 = PROGRAM NAME                          FEAT129      550     A     
 DPCLOSE            SA1    =XENTRY.                                                        FEAT129      551     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2524    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
 DPCLOSE            BX6    X1                                                              FEAT129      552     A     
 DPCLOSE            SVARG  NAME,2            ARG 2 = ENTRY.                                FEAT129      553     A     
 DPCLOSE            SA1    =XFUNTYPE                                                       FEAT129      554     A     
 DPCLOSE            BX6    X1                                                              FEAT129      555     A     
 DPCLOSE            SVARG  INT,3             ARG 3 = WDS IN FUNCTION RESULT                FEAT129      556     A     
 DPCLOSE            SA1    =XCO.ER                                                         FEAT155A      13     A     
 DPCLOSE            SA2    =XSTART.                                                        FEAT155A      14     A     
 DPCLOSE            LX6    B5,X1                                                           FEAT155A      15     A     
 DPCLOSE            IX7    X2+X6                                                           FEAT155A      16     A     
 DPCLOSE            SA7    A2          START. = START.+1  */IF ER"0                        FEAT155A      17     A     
 DPCLOSE            SVARG  INT,4       ARG4=ER                                             FEAT155A      18     A     
 DPCLOSE            NARGS= B7                                                              FEAT129      557     A     
 DPCLOSE            FMAC   PENTRY            OUTPUT PENTRY MACRO CALL                      FEAT129      558     A     
 DPCLOSE                                                                                   FEAT129      559     A     
 DPCLOSE            SA1    =XN.FP                                                          FEAT129      560     A     
 DPCLOSE            ZR     X1,ETC            IF NO F.P. S                                  FEAT129      561     A     
 DPCLOSE                                                                                   FEAT129      562     A     
 DPCLOSE            SA3    =XMACFLAG                                                       FEAT129      563     A     
 DPCLOSE            ZR     X3,ETC            IF F.P.S DONT HAVE TO BE OUTPUT               FEAT129      564     A     
 DPCLOSE                                                                                   FEAT129      565     A     
 DPCLOSE  *         ISSUE *FORPAR* MACRO CALLS TO COMPS TO ESTABLISH THE ORDER             FEAT129      566     A     
 DPCLOSE  *         OF THE F.P. BLOCKS.                                                    FEAT129      567     A     
 DPCLOSE                                                                                   FEAT129      568     A     
 DPCLOSE            SX6    0                                                               FEAT129      569     A     
 DPCLOSE            SA6    TNFP                                                            FEAT129      570     A     
 DPCLOSE                                                                                   FEAT129      571     A     
 DPCLOSE   ETC2     SX6    X6+2              SYMTAB ORD OF F.P.                            FEAT129      572     A     
 DPCLOSE            F1AMAC FORPAR            OUTPUT *FORPAR* MACRO CALL                    FEAT129      573     A     
 DPCLOSE            SA1    TNFP                                                            FEAT129      574     A     
 DPCLOSE            SA2    =XN.FP                                                          FEAT129      575     A     
 DPCLOSE            SX6    X1+B5             TNFP=TNFP+1                                   FEAT129      576     A     
 DPCLOSE            NO                                                                     FEAT129      577     A     
 DPCLOSE            IX0    X6-X2             TNFP-N.FP                                     FEAT129      578     A     
 DPCLOSE            SA6    A1                                                              FEAT129      579     A     
 DPCLOSE            MI     X0,ETC2           IF MORE F.P.S                                 FEAT129      580     A     
 DPCLOSE            EQ     ETC               EXIT                                          FEAT129      581     A     
 DPCLOSE                                                                                   DPCLOSE     2208     A     
 DPCLOSE   O.CET    END                      FWA OF COMMON EQUIVALENCE TBL                 DPCLOSE     2209     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DPCLOSE 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DPCLOSE                   2209       761
          FCC0220                      3         3
          FCC0390                      4         0
          FCC0527                      3         3
          FEAT129                    576       121
          FCC0580                    141        49
          FCC0711                      3         0
          FCC0762                      6         6
          FEAT155A                     6         6
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2525    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DPCLOSE 
  
          FCC1129                     13         1
          FCC1289X                  1691      1619
          FCC1289AX                   49        45
          FCC1289BX                    1         1
          FCC1776X                     4         4
          FCC1289CX                   11        11
          FCC1879                    138       138
          FCC1923                      2         2
          FCC1946                     72        63
          FCC2009                      2         2
          FCCA455                      3         2
          FCC2138                      1         1
          FCCA475                      5         5
          FCC2186                      2         2
          FCCA527                      1         1
          FCC2323                      4         4
          FCC2381                     12        12
          FCC2362                      3         3
          FCC2548                     20        20
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO   *DECK     DECPRO                                                                 DECPRO         1     A     
 DECPRO             IDENT  DECPRO                                                          DECPRO         2     A     
 DECPRO             TITLE              DECLARATIVE STATEMENT PROCESSORS                    DECPRO         3     A     
 DECPRO   *CALL     SSTCALL                                                                DECPRO         4     A     
 DECPRO    B=DECPR  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             DECPRO         5     A     
 DECPRO             ENTRY  DPCOM,DPEQU,DPTYP,DPDIM                                         DECPRO         6     A     
 DECPRO             ENTRY  DPIMP,LASTTYP                                                   DECPRO         7     A     
 DECPRO             EXT    CONVERT,RSELECT,PH1SCAN,ORGTAB                                  DECPRO         8     A     
 DECPRO             EXT    IMPTYP                                                          DECPRO         9     A     
 DECPRO             EXT    NRB                                                             DECPRO        10     A     
 DECPRO             EXT    N.COM                                                           DECPRO        11     A     
 DECPRO             EXT    N.FP                                                            DECPRO        12     A     
 DECPRO             EXT    VARDIM                                                          DECPRO        13     A     
 DECPRO                                                                                    DECPRO        14     A     
 DECPRO             TABLES COM,EQV,DIM                                                     DECPRO        15     A     
 DECPRO    Z.COM    EQU    0                 *** LOADER BUG                                DECPRO        16     A     
 DECPRO                                                                                    DECPRO        17     A     
 DECPRO    PROGRAM  EQU    RA.SSW+56B        PROG    12/2000B,48/0                         DECPRO        18     A     
 DECPRO   *                                  BLKDTA  60/0                                  DECPRO        19     A     
 DECPRO   *                                  SUBR    12/2001B,48/0                         DECPRO        20     A     
 DECPRO   *                                  FUNC    12/2002B,48/0                         DECPRO        21     A     
 DECPRO    SYM1     EQU    12B                                                             DECPRO        22     A     
 DECPRO    TYPE     EQU    24B               STATEMENT TYPE                                DECPRO        23     A     
 DECPRO    SELIST   EQU    32B                                                             DECPRO        24     A     
 DECPRO    ATYPE    EQU    51B               HOLDS CODE FOR TYPE STMT                      DECPRO        25     A     
 DECPRO             SPACE  3                                                               DECPRO        26     A     
 DECPRO   ***       DECPRO - DECLARATIVE STATEMENT PROCESSORS (PHASE 1).                   DECPRO        27     A     
 DECPRO   *                                                                                DECPRO        28     A     
 DECPRO   *         *DECPRO* IS A SERIES OF SUBROUTINES THAT PROCESS THE                   DECPRO        29     A     
 DECPRO   *         FOLLOWING DECLARATIVE STATEMENTS --                                    DECPRO        30     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2526    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO   *                                                                                DECPRO        31     A     
 DECPRO   *                COMMON                                                          DECPRO        32     A     
 DECPRO   *                DIMENSION                                                       DECPRO        33     A     
 DECPRO   *                EQUIVALENCE                                                     DECPRO        34     A     
 DECPRO   *                IMPLICIT                                                        DECPRO        35     A     
 DECPRO   *                LEVEL                                                           DECPRO        36     A     
 DECPRO   *                TYPE (EXPRESSED OR IMPLIED)                                     DECPRO        37     A     
 DECPRO   *                                                                                DECPRO        38     A     
 DECPRO   *         EACH SUBROUTINE CHECKS STATEMENT SYNTAX AND ACCUMULATES                DECPRO        39     A     
 DECPRO   *         DECLARATIVE INFORMATION IN THE SYMBOL TABLE AND OTHER                  DECPRO        40     A     
 DECPRO   *         PERTINENT TABLES.  *DECPRO* DOES VERY LITTLE SEMANTIC                  DECPRO        41     A     
 DECPRO   *         CHECKING, LEAVING THAT CHORE FOR *DPCLOSE* WHEN THE FIRST              DECPRO        42     A     
 DECPRO   *         EXECUTABLE STATEMENT IS ENCOUNTERED.                                   DECPRO        43     A     
 DECPRO             SPACE  2                                                               DECPRO        44     A     
 DECPRO   *         ERROR MESSAGE ORDINALS                                                 DECPRO        45     A     
 DECPRO                                                                                    DECPRO        46     A     
 DECPRO    E.IFP    EQU    94                F.P. IN COMMON OR EQUIV STMT                  DECPRO        47     A     
 DECPRO    E.IUF    EQU    310               ILLEGAL USE OF FUNCTION NAME                  DECPRO        48     A     
 DECPRO    E.TLT    EQU    41                BAD SYNTAX                                    DECPRO        49     A     
 DECPRO    E47      =      47          CHARACTER BOUNDS REVERSED IN IMPLICIT STMT          DECPRO        50     A     
 DECPRO    E.TRT    EQU    49                NAME PREVIOUSLY TYPED                         DECPRO        51     A     
 DECPRO    E89      =      89          ILLEGAL SYNTAX IN IMPLICIT STMT                     DECPRO        52     A     
 DECPRO    E109     =      109         DECLARATIVE STMT OUT OF SEQUENCE                    DECPRO        53     A     
 DECPRO    E.TSUB   EQU    233               SUBROUTINE OR PROGRAM NAME MAY NOT            DECPRO        54     A     
 DECPRO   *                                  APPEAR IN A DECLARATIVE.                      DECPRO        55     A     
 DECPRO    E.NOCOM  EQU    285               NO COMMA                                      DECPRO        56     A     
 DECPRO    E.BADSEP EQU    286               BAD SEPARATOR                                 DECPRO        57     A     
 DECPRO    E.BADSYN EQU    287               BAD SYNTAX                                    DECPRO        58     A     
 DECPRO    E291     =      291         CONFLICTING LEVEL NUMBERS USED                      DECPRO        59     A     
 DECPRO   *CALL     PARSEM                                                                 DECPRO        60     A     
 DECPRO             TITLE              CDN - CHECK NAME IN DECLARATIVE STMT                DECPRO        61     A     
 DECPRO    INITE    MACRO                    INITIALIZE E-LIST POINTER IN A4               DECPRO        62     A     
 DECPRO             SA5    SELIST                                                          DECPRO        63     A     
 DECPRO             SA4    X5+B5             START 1 BACK                                  DECPRO        64     A     
 DECPRO             ENDM                                                                   DECPRO        65     A     
 DECPRO                                                                                    DECPRO        66     A     
 DECPRO    CNAME    MACRO  ERNUM             CALL CDN TO PROCESS NAME                      DECPRO        67     A     
 DECPRO             SB6    ERNUM                                                           DECPRO        68     A     
 DECPRO             RJ     CDN               PROCESS NAME                                  DECPRO        69     A     
 DECPRO             ENDM                                                                   DECPRO        70     A     
 DECPRO                                                                                    DECPRO        71     A     
 DECPRO   ***                                                                              DECPRO        72     A     
 DECPRO   *         CDN - CHECK DECLARED NAME                                              DECPRO        73     A     
 DECPRO   *                                                                                DECPRO        74     A     
 DECPRO   *         ON ENTRY:                                                              DECPRO        75     A     
 DECPRO   *                SELIST POINTS TO THE NAME                                       DECPRO        76     A     
 DECPRO   *                B6 = ERROR NUMBER IN CASE E-LIST IS NOT A NAME                  DECPRO        77     A     
 DECPRO   *                A4,A5 = E-LIST POINTERS AS SET BY GETE                          DECPRO        78     A     
 DECPRO   *                FPFLAG SET BY THE STATEMENT PROCESSOR                           DECPRO        79     A     
 DECPRO   *                                                                                DECPRO        80     A     
 DECPRO   *         ON EXIT:                                                               DECPRO        81     A     
 DECPRO   *                A0-A2,X1,X2,B1,B2 AS SET BY "SYMBOL" WITH                       DECPRO        82     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2527    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO   *                X6 = 0 IF PREVIOUS OCCURRENCES, ELSE                            DECPRO        83     A     
 DECPRO   *                X6 = NATURAL TYPE S"P.TYP"                                      DECPRO        84     A     
 DECPRO   *                SAVEB1 = SAVED VALUE OF B1                                      DECPRO        85     A     
 DECPRO   *                SNAME - E-LIST FOR THE NAME                                     DECPRO        86     A     
 DECPRO   *                                                                                DECPRO        87     A     
 DECPRO                                                                                    DECPRO        88     A     
 DECPRO             USE    /MACBUF/                                                        DECPRO        89     A     
 DECPRO    FPFLAG                            1S_P.FP IF F.P. S NOT ALLOWED FOR STM         DECPRO        90          I
          -FCC1179
 DECPRO    FPFLAG   BSSZ   1                 1S_P.FP IF F.P.S NOT ALLOWED FOR STM          FCC1179        7     A     
 DECPRO   *                                  ELSE 0                                        DECPRO        91     A     
 DECPRO    SAVEB1                            SAVED VALUE OF SYMTAB ORD                     DECPRO        92          I
          -FCC1179
 DECPRO    SNAME                              SAVED VALUE OF NAME ( E-LIST FORMAT          DECPRO        93          I
          -FCC1179
 DECPRO    SAVEB1   BSSZ   1                 SAVED VALUE OF SYMTAB ORD                     FCC1179        8     A     
 DECPRO    SNAME    BSSZ   1                 SAVED VALUE OF NAME (E-LIST FORMAT            FCC1179        9     A     
 DECPRO             USE    *                                                               DECPRO        94     A     
 DECPRO             SPACE  3                                                               DECPRO        95     A     
 DECPRO    CDN.F    SA7    SAVEB1                                                          DECPRO        96     A     
 DECPRO             SB7    B0                SET FLAG FOR DPTYP                            DECPRO        97     A     
 DECPRO             ZR     X5,CDN            IF NO PREVIOUS REFS IN A DEBUG STMT           DECPRO        98     A     
 DECPRO             SA3    TYPE              STMT TYPE CODE                                DECPRO        99     A     
 DECPRO             SX4    X3-8                                                            DECPRO       100     A     
 DECPRO             ZR     X4,CDN            IF A TYPE STMT                                DECPRO       101     A     
 DECPRO             BX7    X5                                                              DECPRO       102     A     
 DECPRO             CFO    VAR               CHECK SETTING OF DEBUG BITS                   DECPRO       103     A     
 DECPRO    CDN                                                                             DECPRO       104          I
          -FCC1179
 DECPRO             NEXTE                                                                  DECPRO       105          I
          -FCC1179
 DECPRO             IF.NE  NAME,CDN.E0       IF NOT A NAME                                 DECPRO       106          I
          -FCC1179
 DECPRO                                                                                    FCC1179       10     A     
 DECPRO    CDN      ENTRY. *                                                               FCC1179       11     A     
 DECPRO             MX7    0                 NOT PROCESSING COMMON                         FCC1179       12     A     
 DECPRO             SX6    B6-E56                                                          FCC1179       13     A     
 DECPRO             NZ     X6,CDN.1                                                        FCC1179       14     A     
 DECPRO             BX7    -X7-X7            PROCESSING COMMON                             FCC1179       15     A     
 DECPRO                                                                                    FCC1179       16     A     
 DECPRO    CDN.1    SA7    COMFLAG                                                         FCC1179       17     A     
 DECPRO                                                                                    FCC1179       18     A     
 DECPRO             NEXTE                                                                  FCC1179       19     A     
 DECPRO             IF.NE  NAME,CDN.EX2      IF NOT A NAME                                 FCC1179       20     A     
 DECPRO                                                                                    FCC1179       21     A     
 DECPRO             UPDATE                   ADVANCE PAST IT                               DECPRO       107     A     
 DECPRO             BX7    X4                                                              DECPRO       108     A     
 DECPRO             SA7    SNAME                                                           DECPRO       109     A     
 DECPRO             SYMBOL                   GET SYMTAB ORDINAL                            DECPRO       110     A     
 DECPRO             BX5    X7                SAVE F.O. EXIT CONDITION FROM SYMBOL          DECPRO       111     A     
 DECPRO             SX7    B1                                                              DECPRO       112     A     
 DECPRO             EQ     CDN.F             FIRST OCCURRENCE                              DECPRO       113     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2528    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO                                                                                    DECPRO       114     A     
 DECPRO             SA3    FPFLAG            PREVIOUS OCCURRENCES                          DECPRO       115     A     
 DECPRO             MX6    0                                                               DECPRO       116     A     
 DECPRO             SX7    B1                                                              DECPRO       117     A     
 DECPRO             SA7    SAVEB1                                                          DECPRO       118     A     
 DECPRO             NE     B1,B5,CDN1        IF NOT ORDINAL 1                              DECPRO       119          I
          -FCC0476
 DECPRO             SA4    PROGRAM           PROG    12/2000B,48/0                         DECPRO       120          I
          -FCC0476
 DECPRO   *                                  BLKDTA  60/0                                  DECPRO       121          I
          -FCC0476
 DECPRO   *                                  SUBR    12/2001B,48/0                         DECPRO       122          I
          -FCC0476
 DECPRO   *                                  FUNC    12/2002B,48/0                         DECPRO       123          I
          -FCC0476
 DECPRO             UX4    B6,X4                                                           DECPRO       124          I
          -FCC0476
 DECPRO             SB3    B5+B5                                                           DECPRO       125          I
          -FCC0476
 DECPRO             NE     B6,B3,CDN.E1      IF NOT A FUNCTION                             DECPRO       126          I
          -FCC0476
 DECPRO             EQ     CDN                                                             DECPRO       127          I
          -FCC0476
 DECPRO                                                                                    DECPRO       128          I
          -FCC0476
 DECPRO    CDN1     BX0    X3*X1             EXTRACT F.P. BIT                              DECPRO       129          I
          -FCC0476
 DECPRO             EQ     B1,B5,CDN.E1      IF ORDINAL 1                                  FCC0476        4     A     
 DECPRO                                                                                    FCC0476        5     A     
 DECPRO             BX0    X3*X1                                                           FCC0476        6     A     
 DECPRO             NZ     X0,CDN.E2         ERROR IF A F.P.                               DECPRO       130     A     
 DECPRO                                                                                    DECPRO       131     A     
 DECPRO             MX4    L.TYP                                                           DECPRO       132     A     
 DECPRO             BX5    X4*X2             EXTRACT TYPE FROM SYMTAB WORD B               DECPRO       133     A     
 DECPRO             LX5    L.TYP                                                           DECPRO       134     A     
 DECPRO             SX7    X5-T.LAB                                                        DECPRO       135     A     
 DECPRO             PL     X7,CDN.E3         ERROR IF RETURNS OR SUCH                      DECPRO       136     A     
 DECPRO                                                                                    DECPRO       137     A     
 DECPRO             SA4    TYPE                                                            DECPRO       138     A     
 DECPRO             SX5    X4-8                                                            DECPRO       139     A     
 DECPRO             ZR     X5,CDN            EXIT IF A TYPE STMT                           DECPRO       140     A     
 DECPRO                                                                                    DECPRO       141     A     
 DECPRO             BX3    X2                                                              DECPRO       142     A     
 DECPRO             LX3    59-P.EXT                                                        DECPRO       143     A     
 DECPRO             PL     X3,CDN            EXIT IF NOT EXTERNAL                          DECPRO       144     A     
 DECPRO             EQ     CDN.E3                                                          DECPRO       145     A     
 DECPRO             SPACE  3                                                               DECPRO       146     A     
 DECPRO   *         ERROR EXITS                                                            DECPRO       147     A     
 DECPRO                                                                                    DECPRO       148     A     
 DECPRO    CDN.E0   POSTER SEV=FE,NR=**,RETURN=PH1SCAN                                     DECPRO       149     A     
 DECPRO                                                                                    DECPRO       150     A     
 DECPRO    CDN.E1   SB6    E.TSUB            SUBROUTINE OR PROGRAM NAME MAY NOT            DECPRO       151     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2529    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO   *                                  APPEAR IN A DECLARATIVE.                      DECPRO       152     A     
 DECPRO             BX6    X6-X6                                                           FCC0493        6     A     
 DECPRO             SA6    COMERR1     CLEAR DUPLICATE NAME FLAG                           FCC0493        7     A     
 DECPRO             EQ     CDN.EX                                                          DECPRO       153     A     
 DECPRO                                                                                    DECPRO       154     A     
 DECPRO    CDN.E2   SB6    E.IFP             F.P. IN COMMON OR EQV STMT                    DECPRO       155     A     
 DECPRO             EQ     CDN.EX                                                          DECPRO       156     A     
 DECPRO                                                                                    DECPRO       157     A     
 DECPRO    CDN.E3   SB6    E.CUN             CONFLICTING USE OF A NAME                     DECPRO       158     A     
 DECPRO             EQ     CDN.EX                                                          DECPRO       159     A     
 DECPRO                                                                                    DECPRO       160     A     
 DECPRO    CDN.E4   SB6    E.IUF             ILLEGAL USE OF FUNCTION NAME                  DECPRO       161     A     
 DECPRO                                                                                    DECPRO       162     A     
 DECPRO    CDN.E5   POSTER SEV=FE,NR=E.CIVN,FMT=DPC,TXT=X3,RETURN=DPCOM14                  FCC0493        8          I
          -FCC1179
 DECPRO                                                                                    FCC0493        9          I
          -FCC1179
 DECPRO    CDN.EX   SA4    SNAME                                                           DECPRO       163          I
          -FCC1179
 DECPRO             POSTER SEV=FE,NR=**                                                    DECPRO       164          I
          -FCC1179
 DECPRO             SA5    RSELECT                                                         DECPRO       165          I
          -FCC1179
 DECPRO             ZR     X5,CDN.EX1        IF R = 0                                      DECPRO       166          I
          -FCC1179
 DECPRO             ADDREF SAVEB1,REF        A REFERENCE FOR THE NAME                      DECPRO       167          I
          -FCC1179
 DECPRO                                                                                    DECPRO       168          I
          -FCC1179
 DECPRO    CDN.EX1  EQ     PH1SCAN           FOR THE PRESENT                               DECPRO       169          I
          -FCC1179
 DECPRO    CDN.EX   SA5    RSELECT                                                         FCC1179       22     A     
 DECPRO             ZR     X5,CDN.EX1        IF R=0                                        FCC1179       23     A     
 DECPRO             ADDREF SAVEB1,REF        A REFERENCE FOR THE NAME                      FCC1179       24     A     
 DECPRO                                                                                    FCC1179       25     A     
 DECPRO    CDN.EX1  SA4    SNAME                                                           FCC1179       26     A     
 DECPRO                                                                                    FCC1179       27     A     
 DECPRO    CDN.EX2  SA3    COMFLAG                                                         FCC1179       28     A     
 DECPRO             PL     X3,CDN.E0         IF NOT COMMON                                 FCC1179       29     A     
 DECPRO                                                                                    FCC1179       30     A     
 DECPRO             SX6    1                                                               FCC1179       31     A     
 DECPRO             SA6    A3                SET COMMON ERROR FLAG                         FCC1179       32     A     
 DECPRO             POSTER SEV=FE,NR=**,RETURN=CDN                                         FCC1179       33     A     
 DECPRO             TITLE              DPCOM - COMMON STATEMENT PROCESSOR                  DECPRO       170     A     
 DECPRO   ***                                                                              DECPRO       171     A     
 DECPRO   *         DPCOM - PROCESS COMMON STATEMENTS                                      DECPRO       172     A     
 DECPRO   *                                                                                DECPRO       173     A     
 DECPRO   *         FORMAT OF A COMMON DECLARATION IS: <BLOCK DEC><LIST>                   DECPRO       174     A     
 DECPRO   *         WHERE <BLOCK DEC> MAY BE:                                              DECPRO       175     A     
 DECPRO   *           NULL OR //             BLANK COMMON                                  DECPRO       176     A     
 DECPRO   *           /INTEGER/              NUMBERED COMMON                               DECPRO       177     A     
 DECPRO   *           /NAME/                 LABELED COMMON                                DECPRO       178     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2530    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO   *                                                                                DECPRO       179     A     
 DECPRO   *         THE LIST MAY CONTAIN NAMES OR ARRAY DECLARATIONS                       DECPRO       180     A     
 DECPRO   *                                                                                DECPRO       181     A     
 DECPRO   *         FOR EACH NAME IN THE LIST THE COMMON AND DEFINED BITS ARE SET          DECPRO       182     A     
 DECPRO   *                                                                                DECPRO       183     A     
 DECPRO   *         DURING PHASE 1 THE COMMON INFORMATION IS KEPT IN 2 TABLES:             DECPRO       184     A     
 DECPRO   *                                                                                DECPRO       185     A     
 DECPRO   *         THE COMMON BLOCK NAME TABLE STARTING AT "ORGTAB"                       DECPRO       186     A     
 DECPRO   *         FORMAT:  42/7L_BLOCK NAME,18/COM TAB INDEX  ( FWA-O.COM )              DECPRO       187     A     
 DECPRO   *                                                                                DECPRO       188     A     
 DECPRO   *         AND "COM TAB" STARTING AT (O.COM)                                      DECPRO       189     A     
 DECPRO   *         FOR EACH BLOCK AND LIST OF NAMES THE FOLLOWING ENTRIES ARE             DECPRO       190     A     
 DECPRO   *         MADE:                                                                  DECPRO       191     A     
 DECPRO   *         BLOCK NAME:    24/0,18/NUMBER OF NAMES,18/LINK ORD                     DECPRO       192     A     
 DECPRO   *                                  WHERE LINK ORD = NEXT-*                       DECPRO       193     A     
 DECPRO   *         VARIABLE NAME: 24/0,18/SYMTAB ORD,18/0                                 DECPRO       194     A     
 DECPRO   *                                                                                DECPRO       195     A     
 DECPRO                                                                                    DECPRO       196     A     
 DECPRO   *         ERROR MESSAGES                                                         DECPRO       197     A     
 DECPRO                                                                                    DECPRO       198     A     
 DECPRO    E56      =      56          ILL SYNTAX IN COMMON DECLARATION                    DECPRO       199     A     
 DECPRO    E.CIVN   EQU    57                ILLEGAL VARIABLE NAME OR ALREADY IN C         DECPRO       200     A     
 DECPRO    E.CIBN   EQU    58                ILLEGAL BLOCK NAME                            DECPRO       201     A     
 DECPRO    E.CTMB   EQU    230               TOO MANY COMMON BLOCKS                        DECPRO       202     A     
 DECPRO    ENANC    EQU    205               NUMBERED COMMON IS NON-ANSI                   DECPRO       203     A     
 DECPRO                                                                                    DECPRO       204     A     
 DECPRO    SAVEA4   BSS    1                 SAVE A4 ACROSS ERPRO CALL                     DECPRO       205     A     
 DECPRO                                                                                    DECPRO       206     A     
 DECPRO             USE    /MACBUF/                                                        DECPRO       207     A     
 DECPRO   *GNC                               NUMBER OF NAMES IN THE BLOCK                  DECPRO       208     A     
 DECPRO    WORDBF                            WORD B SYMTAB FLAGS                           DECPRO       209     A     
 DECPRO    LINKA                             LINK ADDRESS                                  DECPRO       210     A     
 DECPRO             USE    *                                                               DECPRO       211     A     
 DECPRO                                                                                    DECPRO       212     A     
 DECPRO    DPCOM.E  EQU    CDN.E0            ERROR EXIT                                    DECPRO       213     A     
 DECPRO             SPACE  6                                                               DECPRO       214     A     
 DECPRO    DPCOM    SX6    B5                                                              DECPRO       215     A     
 DECPRO             LX6    P.FP                                                            DECPRO       216     A     
 DECPRO             SA6    FPFLAG            F.P.S NOT ALLOWED IN COMMON STMTS             DECPRO       217     A     
 DECPRO             EJECT                                                                  DECPRO       218     A     
 DECPRO   *         PROCESS BLOCK NAME                                                     DECPRO       219     A     
 DECPRO                                                                                    DECPRO       220     A     
 DECPRO    DPCOML   RJ     SCF               SAVE LENGTH OF COMTAB                         DECPRO       221     A     
 DECPRO             SA5    SELIST                                                          DECPRO       222     A     
 DECPRO             SA4    X5                                                              DECPRO       223     A     
 DECPRO             UX0    B1,X4                                                           DECPRO       224     A     
 DECPRO             SB2    EL.SLASH                                                        DECPRO       225     A     
 DECPRO             EQ     B1,B5,DPCOM.BC    IF A NAME                                     DECPRO       226     A     
 DECPRO             SB6    E56               ERR MSG NR - *ILL SNTX IN COMMON DEC*         DECPRO       227     A     
 DECPRO             NE     B1,B2,DPCOM.E     IF NOT A /                                    DECPRO       228     A     
 DECPRO             SA4    A4-B5             NEXT  ( NAME OR / )                           DECPRO       229     A     
 DECPRO             UX5    B1,X4                                                           DECPRO       230     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2531    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             NE     B1,B2,DPCOM1      IF NOT A /                                    DECPRO       231     A     
 DECPRO             SA4    A4-B5             ADJUST E-LIST POINTER                         DECPRO       232     A     
 DECPRO                                                                                    DECPRO       233     A     
 DECPRO   *         SET UP BLANK COMMON                                                    DECPRO       234     A     
 DECPRO                                                                                    DECPRO       235     A     
 DECPRO    DPCOM.BC SX6    A4                                                              DECPRO       236     A     
 DECPRO             SA5    =8R               NAME OF BLANK COMMON                          DECPRO       237     A     
 DECPRO             EQ     DPCOM3                                                          DECPRO       238     A     
 DECPRO                                                                                    DECPRO       239     A     
 DECPRO    DPCOM1   EQ     B1,B5,DPCOM2      IF A NAME                                     DECPRO       240     A     
 DECPRO             SB6    E.CIBN                                                          DECPRO       241     A     
 DECPRO             NZ     B1,DPCOM.E        IF NOT A NUMBER                               DECPRO       242     A     
 DECPRO             AX5    18                                                              DECPRO       243     A     
 DECPRO             SX6    X5-8                                                            DECPRO       244     A     
 DECPRO             PL     X6,DPCOM.E        IF MORE THAN 7 DIGITS                         DECPRO       245     A     
 DECPRO             AX5    45-18                                                           DECPRO       246     A     
 DECPRO             SX7    X5-T.INT                                                        DECPRO       247     A     
 DECPRO             NZ     X7,DPCOM.E        IF NOT AN INTEGER CONSTANT                    DECPRO       248     A     
 DECPRO             SX6    A4                                                              DECPRO       249     A     
 DECPRO             SA6    SAVEA4                                                          DECPRO       250     A     
 DECPRO             POSTERR  NR=ENANC,SEV=ANSI                                             DECPRO       251     A     
 DECPRO             SA4    SAVEA4                                                          DECPRO       252     A     
 DECPRO             SA4    X4                                                              DECPRO       253     A     
 DECPRO             SA2    X4          FETCH NAME                                          DECPRO       254     A     
 DECPRO                                                                                    DECPRO       255     A     
 DECPRO   *         STRIP LEADING ZEROS FROM NAME.                                         DECPRO       256     A     
 DECPRO                                                                                    DECPRO       257     A     
 DECPRO             SB1    -59+6-1-6   DEFAULT SHIFT COUNT FOR BLANK MASK                  DECPRO       258     A     
 DECPRO             SA1    =10H                                                            DECPRO       259     A     
 DECPRO             LX2    -6                                                              DECPRO       260     A     
 DECPRO             SA3    =1L0                                                            DECPRO       261     A     
 DECPRO             MX0    6                                                               DECPRO       262     A     
 DECPRO                                                                                    DECPRO       263     A     
 DECPRO    DPCOM1A  LX2    6           ADVANCE NAME                                        DECPRO       264     A     
 DECPRO             BX6    X0*X2                                                           DECPRO       265     A     
 DECPRO             SB1    B1+6                                                            DECPRO       266     A     
 DECPRO             IX4    X6-X3                                                           DECPRO       267     A     
 DECPRO             ZR     X4,DPCOM1A  IF CHARACTER .EQ. DPC(0)                            DECPRO       268     A     
 DECPRO             LX0    B1          MASK FOR BLANK                                      DECPRO       269     A     
 DECPRO             BX4    X0*X2                                                           DECPRO       270     A     
 DECPRO             BX3    -X0*X1                                                          DECPRO       271     A     
 DECPRO             BX5    X4+X3       BLANK FILL                                          DECPRO       272     A     
 DECPRO             IX3    X5-X1                                                           DECPRO       273     A     
 DECPRO             NZ     X3,DPCOM1C  IF NAME DOES NOT REDUCE TO ALL BLANKS               DECPRO       274     A     
 DECPRO             SA5    =10H0                                                           DECPRO       275     A     
 DECPRO                                                                                    DECPRO       276     A     
 DECPRO    DPCOM1C  SB2    EL.SLASH                                                        DECPRO       277     A     
 DECPRO             LX5    60-12             ADJUST                                        DECPRO       278     A     
 DECPRO                                                                                    DECPRO       279     A     
 DECPRO    DPCOM2   SA4    A4-B5                                                           DECPRO       280     A     
 DECPRO             UX0    B1,X4                                                           DECPRO       281     A     
 DECPRO             SB6    E56               ERR MSG NR - *ILL SNTX IN COMMON DEC*         DECPRO       282     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2532    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             NE     B1,B2,DPCOM.E     IF NO SECOND /                                DECPRO       283     A     
 DECPRO             MX7    0                                                               DECPRO       284     A     
 DECPRO             SX6    A4-B5             UPDATE E-LIST POINTER                         DECPRO       285     A     
 DECPRO                                                                                    DECPRO       286     A     
 DECPRO   *         ADD BLOCK NAME TO TABLES                                               DECPRO       287     A     
 DECPRO   *         X5 = 8R_BLOCK NAME , X6 = E-LIST POINTER                               DECPRO       288     A     
 DECPRO                                                                                    DECPRO       289     A     
 DECPRO    DPCOM3   SA6    SELIST                                                          DECPRO       290     A     
 DECPRO             MX0    L.NAME                                                          DECPRO       291     A     
 DECPRO             LX5    12                                                              DECPRO       292     A     
 DECPRO             BX6    X0*X5             EXTRACT BLOCK NAME                            DECPRO       293     A     
 DECPRO                                                                                    DECPRO       294     A     
 DECPRO             AX5    42                                                              DECPRO       295     A     
 DECPRO             MX4    54                                                              DECPRO       296     A     
 DECPRO             BX3    -X4*X5                                                          DECPRO       297     A     
 DECPRO             SX1    X3-1R$                                                          DECPRO       298     A     
 DECPRO             NZ     X1,NODOL          IF NOT A $                                    DECPRO       299     A     
 DECPRO             SX3    1R -1R$                                                         DECPRO       300     A     
 DECPRO             LX3    42                                                              DECPRO       301     A     
 DECPRO             IX6    X6+X3             REMOVE $ FROM THE NAME                        DECPRO       302     A     
 DECPRO    NODOL    BSS    0                                                               DECPRO       303     A     
 DECPRO                                                                                    DECPRO       304     A     
 DECPRO             SX7    B0                                                              DECPRO       305     A     
 DECPRO             SB1    B0                                                              FCC0493       10     A     
 DECPRO             SA7    COMERR1     CLEAR DUPLICATE NAME FLAG                           FCC0493       11     A     
 DECPRO             SA7    GNC               CLEAR NUMBER OF VARIABLES IN THE BLOC         DECPRO       306     A     
 DECPRO                                                                                    DECPRO       307     A     
 DECPRO             SA1    N.COM             NUMBER OF BLOCKS                              DECPRO       308     A     
 DECPRO             SB7    ORGTAB                                                          DECPRO       309     A     
 DECPRO             SA6    B7+X1             STORE NAME AS TABLE TERMINATOR                DECPRO       310     A     
 DECPRO             SB2    X1                                                              DECPRO       311     A     
 DECPRO             SB1    B0                                                              DECPRO       312          I
          -FCC0493
 DECPRO                                                                                    DECPRO       313     A     
 DECPRO   +         SA2    B7+B1             SEARCH ORGTAB FOR A MATCH OF BLOCK NA         DECPRO       314     A     
 DECPRO             SB1    B1+B5             ADVANCE BLOCK ORDINAL                         DECPRO       315     A     
 DECPRO             BX3    X0*X2                                                           DECPRO       316     A     
 DECPRO             IX4    X3-X6                                                           DECPRO       317     A     
 DECPRO             NZ     X4,*-1            LOOP IF NO HIT                                DECPRO       318     A     
 DECPRO             SA7    A6                CLEAR THE LAST ENTRY                          DECPRO       319     A     
 DECPRO             LE     B1,B2,DPCOM.P     IF NAME PREVIOUSLY ENCOUNTERED                DECPRO       320     A     
 DECPRO             SB3    M.NCB-2                                                         DECPRO       321     A     
 DECPRO             LE     B1,B3,DPCOM4      IF MAX NUMBER OF BLOCKS NOT EXCEEDED          DECPRO       322     A     
 DECPRO             SX0    1R                                                              DECPRO       323     A     
 DECPRO             LX6    60-12                                                           DECPRO       324     A     
 DECPRO             BX3    X6+X0                                                           DECPRO       325     A     
 DECPRO             POSTER SEV=FE,NR=E.CTMB,FMT=DPC,TXT=X3,RETURN=PH1SCAN                  DECPRO       326     A     
 DECPRO                                                                                    DECPRO       327     A     
 DECPRO   *         FIRST OCCURRENCE.                                                      DECPRO       328     A     
 DECPRO                                                                                    DECPRO       329     A     
 DECPRO    DPCOM4   SX6    B1                                                              DECPRO       330     A     
 DECPRO             SA6    A1                UPDATE N.COM                                  DECPRO       331     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2533    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             SA6    E.ORG             SET RECOVERY FLAG                             DECPRO       332     A     
 DECPRO             SA3    L.COM                                                           DECPRO       333     A     
 DECPRO             BX6    X2+X3                                                           DECPRO       334     A     
 DECPRO             SA6    A2                SET UP ORGTAB ENTRY 42/7L_NAME,18/FWA         DECPRO       335     A     
 DECPRO             EQ     DPCOM6                                                          DECPRO       336     A     
 DECPRO                                                                                    DECPRO       337     A     
 DECPRO   *         PREVIOUS OCCURRENCES.                                                  DECPRO       338     A     
 DECPRO                                                                                    DECPRO       339     A     
 DECPRO    DPCOM.P  SA1    O.COM                                                           DECPRO       340     A     
 DECPRO             IX7    X1+X2             O.COM+INDEX                                   DECPRO       341     A     
 DECPRO             SA2    X7                FIRST WORD                                    DECPRO       342     A     
 DECPRO                                                                                    DECPRO       343     A     
 DECPRO   +         SX3    X2                EXTRACT LINK TO NEXT                          DECPRO       344     A     
 DECPRO             IX7    X7+X3                                                           DECPRO       345     A     
 DECPRO             SA2    X7                                                              DECPRO       346     A     
 DECPRO             NZ     X3,*-1            IF NOT LAST OCCURRENCE OF THE BLOCK           DECPRO       347     A     
 DECPRO             SX7    X7                                                              DECPRO       348     A     
 DECPRO                                                                                    DECPRO       349     A     
 DECPRO   *         ENTER A WORD FOR THE BLOCK NAME IN COMTAB ( X7 = LINK ADD )            DECPRO       350     A     
 DECPRO                                                                                    DECPRO       351     A     
 DECPRO    DPCOM6   SA7    LINKA                                                           DECPRO       352     A     
 DECPRO             SX0    B1                                                              DECPRO       353     A     
 DECPRO             LX0    P.RB                                                            DECPRO       354     A     
 DECPRO             SX5    B5                                                              DECPRO       355     A     
 DECPRO             LX5    P.VAR                                                           DECPRO       356     A     
 DECPRO             BX7    X0+X5             VAR BIT AND RB                                DECPRO       357     A     
 DECPRO             SA7    WORDBF                                                          DECPRO       358     A     
 DECPRO                                                                                    DECPRO       359     A     
 DECPRO             MX1    0                                                               DECPRO       360     A     
 DECPRO             ADDWD  COM,X1            ADD A ZERO WORD FOR THE PRESENT               DECPRO       361     A     
 DECPRO                                                                                    DECPRO       362     A     
 DECPRO   *         PROCESS THE LIST OF NAMES                                              DECPRO       363     A     
 DECPRO                                                                                    DECPRO       364     A     
 DECPRO             INITE                    INITIALIZE E-LIST POINTER                     DECPRO       365          I
          -FCC0493
 DECPRO                                                                                    DECPRO       366          I
          -FCC0493
 DECPRO    DPCOM7   CNAME  E56               PROCESS NAME                                  DECPRO       367          I
          -FCC0493
 DECPRO             BX7    X6+X2             SET TYPE (X6 .NZ. ONLY IF 1ST OCCUR)          DECPRO       368          I
          -FCC0493
 DECPRO             SX1    B1                                                              DECPRO       369          I
          -FCC0493
 DECPRO             SA7    A2                                                              DECPRO       370          I
          -FCC0493
 DECPRO             LX1    18                                                              DECPRO       371          I
          -FCC0493
 DECPRO             ADDWD  COM               SAVE ORDINAL IN COMTAB                        DECPRO       372          I
          -FCC0493
 DECPRO                                                                                    DECPRO       373          I
          -FCC0493
 DECPRO             SA5    RSELECT                                                         DECPRO       374          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2534    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
          -FCC0493
 DECPRO             ZR     X5,DPCOM8         IF USER SELECTED NO REFERENCE MAP             DECPRO       375          I
          -FCC0493
 DECPRO             AX6    18                                                              DECPRO       376          I
          -FCC0493
 DECPRO             ADDREF X6,REF            ADD A REFERENCE FOR THE NAME                  DECPRO       377          I
          -FCC0493
 DECPRO                                                                                    DECPRO       378          I
          -FCC0493
 DECPRO    DPCOM8   GETE                     NEXT E-LIST ITEM  (SEPARATOR)                 DECPRO       379          I
          -FCC0493
 DECPRO             IF.NE  EL.(,DPCOM9       IF VARIABLE NAME NOT SUBSCRIPTED              DECPRO       380          I
          -FCC0493
 DECPRO             RJ     DIMEN                                                           DECPRO       381          I
          -FCC0493
 DECPRO    DPCOM9   SA1    GNC                                                             DECPRO       382          I
          -FCC0493
 DECPRO             SX6    X1+B5             GNC = GNC+1                                   DECPRO       383          I
          -FCC0493
 DECPRO             SA6    A1                                                              DECPRO       384          I
          -FCC0493
 DECPRO             IF.EQ  EL.COMMA,DPCOM7   IF MORE NAMES, LOOP                           DECPRO       385          I
          -FCC0493
 DECPRO                                                                                    DECPRO       386          I
          -FCC0493
 DECPRO             SA2    E.COM                                                           DECPRO       387          I
          -FCC0493
 DECPRO             SA4    O.COM                                                           DECPRO       388          I
          -FCC0493
 DECPRO             SX2    X2-1                                                            DECPRO       389          I
          -FCC0493
 DECPRO             IX7    X4+X2                                                           DECPRO       390          I
          -FCC0493
 DECPRO             SA3    X7                FETCH BLOCK NAME ENTRY                        DECPRO       391          I
          -FCC0493
 DECPRO             LX6    18                                                              DECPRO       392          I
          -FCC0493
 DECPRO             IX6    X6+X3             ADD NUMBER OF VARS TO THE ENTRY               DECPRO       393          I
          -FCC0493
 DECPRO             SA6    A3                                                              DECPRO       394          I
          -FCC0493
 DECPRO                                                                                    DECPRO       395          I
          -FCC0493
 DECPRO             SA4    LINKA                                                           DECPRO       396          I
          -FCC0493
 DECPRO             ZR     X4,DPCOM10        IF FIRST TIME                                 DECPRO       397          I
          -FCC0493
 DECPRO             IX0    X7-X4             LINK = LOCF(THIS) - LOCF(LAST)                DECPRO       398          I
          -FCC0493
 DECPRO             SA5    X4                                                              DECPRO       399          I
          -FCC0493
 DECPRO             BX7    X5+X0             ADD LINK                                      DECPRO       400          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2535    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
          -FCC0493
 DECPRO             SA7    A5                                                              DECPRO       401          I
          -FCC0493
 DECPRO                                                                                    DECPRO       402          I
          -FCC0493
 DECPRO                                                                                    DECPRO       403          I
          -FCC0493
 DECPRO   *         SET FLAGS IN SYMTAB FOR EACH NAME THAT APPEARED IN THE                 DECPRO       404          I
          -FCC0493
 DECPRO   *         DECLARATION.   WORD A - COM AND DEF BITS                               DECPRO       405          I
          -FCC0493
 DECPRO   *                        WORD B - COM ORD IN RB FIELD AND BLK COM BIT            DECPRO       406          I
          -FCC0493
 DECPRO                                                                                    DECPRO       407          I
          -FCC0493
 DECPRO    DPCOM10  SB6    X1+B5                                                           DECPRO       408          I
          -FCC0493
 DECPRO             SA4    A3+B5             FIRST NAME IN THIS APPEARANCE                 DECPRO       409          I
          -FCC0493
 DECPRO             SA5    SYM1                                                            DECPRO       410          I
          -FCC0493
 DECPRO             SX0    V.COM+V.DEF                                                     DECPRO       411          I
          -FCC0493
 DECPRO             SA3    WORDBF            WORD B FLAGS                                  DECPRO       412          I
          -FCC0493
 DECPRO                                                                                    DECPRO       413          I
          -FCC0493
 DECPRO    DPCOM.S  AX4    18-1              2*ORD                                         DECPRO       414          I
          -FCC0493
 DECPRO             IX6    X5-X4                                                           DECPRO       415          I
          -FCC0493
 DECPRO             SB3    X4-1                                                            DECPRO       416          I
          -FCC0493
 DECPRO             EQ     B3,B5,CDN.E4      IF ILLEGAL USE OF FUNCTION NAME               DECPRO       417          I
          -FCC0493
 DECPRO             SA1    X6                WORD A                                        DECPRO       418          I
          -FCC0493
 DECPRO             SA2    A1-B5             WORD B                                        DECPRO       419          I
          -FCC0493
 DECPRO             BX6    X0+X1                                                           DECPRO       420          I
          -FCC0493
 DECPRO             LX1    59-P.COM                                                        DECPRO       421          I
          -FCC0493
 DECPRO             SA4    A4+B5             NEXT                                          DECPRO       422          I
          -FCC0493
 DECPRO             SB6    B6-B5                                                           DECPRO       423          I
          -FCC0493
 DECPRO             MI     X1,DPCOMCIV       VARIABLE PUT INTO COMMON EARLIER IN           DECPRO       424          I
          -FCC0493
 DECPRO   *                                  THIS LOOP, GO FLAG ERROR                      DECPRO       425          I
          -FCC0493
 DECPRO             BX7    X3+X2                                                           DECPRO       426          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2536    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
          -FCC0493
 DECPRO             SA6    A1                                                              DECPRO       427          I
          -FCC0493
 DECPRO             SA7    A2                                                              DECPRO       428          I
          -FCC0493
 DECPRO             BX6    X6-X6                                                           DECPRO       429          I
          -FCC0493
 DECPRO             NZ     B6,DPCOM.S                                                      DECPRO       430          I
          -FCC0493
 DECPRO                                                                                    DECPRO       431          I
          -FCC0493
 DECPRO             SA6    E.COM             ?    SIGNAL NO ERRORS BY                      DECPRO       432          I
          -FCC0493
 DECPRO             SA6    E.ORG             ....   CLEARING SAVED LENGTHS                 DECPRO       433          I
          -FCC0493
 DECPRO   *                                                                                DECPRO       434          I
          -FCC0493
 DECPRO             IF.EQ  EL.SLASH,DPCOML   LOOP IF A /                                   DECPRO       435          I
          -FCC0493
 DECPRO             IF.EQ  EL.EOS,PH1SCAN    EXIT IF EOS                                   DECPRO       436          I
          -FCC0493
 DECPRO                                                                                    DECPRO       437          I
          -FCC0493
 DECPRO             SB6    E56               ERR MSG NR - *ILL SNTX IN COMMON DEC*         DECPRO       438          I
          -FCC0493
 DECPRO             EQ     DPCOM.E                                                         DECPRO       439          I
          -FCC0493
 DECPRO             SPACE  2                                                               DECPRO       440          I
          -FCC0493
 DECPRO    DPCOMCIV SA2    A4-B5             REFETCH COMTAB ENTRY                          DECPRO       441          I
          -FCC0493
 DECPRO             AX2    18                SYMTAB ORDINAL                                DECPRO       442          I
          -FCC0493
 DECPRO             CALL   PSYM              FORMAT NAME                                   DECPRO       443          I
          -FCC0493
 DECPRO             SB6    E.CIVN                                                          DECPRO       444          I
          -FCC0493
 DECPRO             EQ     DPCOM.E                                                         DECPRO       445          I
          -FCC0493
 DECPRO             INITE                                                                  FCC0493       12     A     
 DECPRO    DPCOM7   CNAME  E56         PROCESS NAME                                        FCC0493       13     A     
 DECPRO                                                                                    FCC1179       34     A     
 DECPRO             SA3    COMFLAG                                                         FCC1179       35     A     
 DECPRO             NZ     X3,DPCOM12A       IF COMMON ERROR FLAG                          FCC1179       36     A     
 DECPRO                                                                                    FCC0493       14     A     
 DECPRO   *         SET FLAGS IN SYMTAB                                                    FCC0493       15     A     
 DECPRO   *         WORD A - COM AND DEF BITS                                              FCC0493       16     A     
 DECPRO   *         WORD B - COM ORD IN RB FIELD AND BLK COM BIT                           FCC0493       17     A     
 DECPRO                                                                                    FCC0493       18     A     
 DECPRO             SX0    V.COM+V.DEF                                                     FCC0493       19     A     
 DECPRO             BX7    X6+X2       SET TYPE (X6 .NZ. ONLY IF FIRST OCCURRENCE)         FCC0493       20     A     
 DECPRO             BX6    X0+X1                                                           FCC0493       21     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2537    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             SA3    WORDBF      WORD B FLAGS                                        FCC0493       22     A     
 DECPRO             BX7    X3+X7                                                           FCC0493       23     A     
 DECPRO             SA6    A1          WORD A                                              FCC0493       24     A     
 DECPRO             LX1    59-P.COM                                                        FCC0493       25     A     
 DECPRO             PL     X1,DPCOM9   IF NAME NOT ALREADY IN COMMON                       FCC0493       26     A     
 DECPRO             SA3    COMERR1                                                         FCC0493       27     A     
 DECPRO             NZ     X3,DPCOM11  IF ERROR FLAG ALREADY SET                           FCC0493       28     A     
 DECPRO             SX7    B1                                                              FCC0493       29     A     
 DECPRO             SA7    A3          SET ERROR FLAG TO SYMTAB ORDINAL                    FCC0493       30     A     
 DECPRO             EQ     DPCOM11                                                         FCC0493       31     A     
 DECPRO                                                                                    FCC0493       32     A     
 DECPRO   *         ADD LEGAL NAME TO COMTAB                                               FCC0493       33     A     
 DECPRO                                                                                    FCC0493       34     A     
 DECPRO    DPCOM9   SX1    B1                                                              FCC0493       35     A     
 DECPRO             SA7    A2          WORD B                                              FCC0493       36     A     
 DECPRO             LX1    18                                                              FCC0493       37     A     
 DECPRO             ADDWD  COM         ADD SYMTAB ORDINAL TO COMTAB                        FCC0493       38     A     
 DECPRO             SA5    RSELECT                                                         FCC0493       39     A     
 DECPRO             ZR     X5,DPCOM10  IF NO REF MAP SELECTED                              FCC0493       40     A     
 DECPRO             ADDREF B1,REF      ADD SYMTAB ORDINAL TO REF MAP                       FCC0493       41          I
          -FCC1244
 DECPRO             ADDREF SAVEB1,REF  ADD SYMTAB ORDINAL TO REF MAP                       FCC1244        4     A     
 DECPRO    DPCOM10  SA1    GNC                                                             FCC0493       42     A     
 DECPRO             SX6    X1+B5                                                           FCC0493       43     A     
 DECPRO             SA6    A1          INCREMENT NAME COUNT FOR THIS GROUP                 FCC0493       44     A     
 DECPRO                                                                                    FCC0493       45     A     
 DECPRO    DPCOM11  GETE               GET SEPARATOR                                       FCC0493       46     A     
 DECPRO             IF.NE  EL.(,DPCOM12      IF NAME NOT SUBSCRIPTED                       FCC0493       47     A     
 DECPRO             RJ     DIMEN                                                           FCC0493       48     A     
 DECPRO                                                                                    FCC0493       49     A     
 DECPRO    DPCOM12  IF.EQ  EL.COMMA,DPCOM7   IF MORE NAMES,LOOP                            FCC0493       50     A     
 DECPRO             SA2    E.COM                                                           FCC0493       51          I
          -FCC1179
 DECPRO                                                                                    FCC1179       37     A     
 DECPRO    DPCOM12A SA2    E.COM                                                           FCC1179       38     A     
 DECPRO             SA4    O.COM                                                           FCC0493       52     A     
 DECPRO             SX2    X2-1                                                            FCC0493       53     A     
 DECPRO             IX7    X4+X2       BLOCK NAME ENTRY IN COMTAB                          FCC0493       54     A     
 DECPRO             SA1    GNC         NUMBER OF VARS IN GROUP                             FCC0493       55     A     
 DECPRO             ZR     X1,DPCOM13A IF NOTHING BUT DUPLICATE NAMES IN GROUP             FCC1822X       7     A     
 DECPRO             SA3    X7                                                              FCC0493       56     A     
 DECPRO             LX1    18                                                              FCC0493       57     A     
 DECPRO             IX6    X1+X3                                                           FCC0493       58     A     
 DECPRO             SA4    LINKA                                                           FCC0493       59     A     
 DECPRO             SA6    A3          ADD NUMBER OF VARS TO COMTAB ENTRY                  FCC0493       60     A     
 DECPRO             ZR     X4,DPCOM13  IF FIRST TIME                                       FCC0493       61     A     
 DECPRO             SA5    X4                                                              FCC0493       62     A     
 DECPRO             IX0    X7-X4       LINK=LOCF(THIS)-LOCF(LAST)                          FCC0493       63     A     
 DECPRO             BX7    X5+X0       ADD LINK                                            FCC0493       64     A     
 DECPRO             SA7    A5                                                              FCC0493       65     A     
 DECPRO    DPCOM13  SA1    GNC                                                             FCC0493       66          I
          -FCC1822X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2538    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             BX6    X6-X6                                                           FCC0493       67          I
          -FCC1822X 
 DECPRO             ZR     X1,DPCOM13A IF NOTHING BUT DUPLICATE NAMES IN GROUP             FCC0493       68          I
          -FCC1822X 
 DECPRO    DPCOM13  BX6    X6-X6                                                           FCC1822X       8     A     
 DECPRO             SA6    E.COM                                                           FCC0493       69     A     
 DECPRO             SA6    E.ORG                                                           FCC0493       70     A     
 DECPRO    DPCOM13A SA2    COMERR1                                                         FCC0493       71          I
          -FCC1179
 DECPRO                                                                                    FCC1179       39     A     
 DECPRO    DPCOM13A SA2    COMFLAG                                                         FCC1179       40     A     
 DECPRO             NZ     X2,PH1SCAN        IF COMMON ERROR FLAG                          FCC1179       41     A     
 DECPRO                                                                                    FCC1179       42     A     
 DECPRO             SA2    COMERR1                                                         FCC1179       43     A     
 DECPRO             ZR     X2,DPCOM14  IF NO DUPLICATE NAME                                FCC0493       72     A     
 DECPRO             CALL   PSYM                                                            FCC0493       73     A     
 DECPRO             EQ     CDN.E5                                                          FCC0493       74          I
          -FCC1179
 DECPRO             POSTER SEV=FE,NR=E.CIVN,FMT=DPC,TXT=X3                                 FCC1179       44     A     
 DECPRO                                                                                    FCC0493       75     A     
 DECPRO    DPCOM14  GETE                                                                   FCC0493       76     A     
 DECPRO             IF.EQ  EL.SLASH,DPCOML   IF MORE GROUPS                                FCC0493       77     A     
 DECPRO             IF.EQ  EL.EOS,PH1SCAN    IF NO MORE GROUPS                             FCC0493       78     A     
 DECPRO             SB6    E56         NO SLASH - ERROR                                    FCC0493       79     A     
 DECPRO             EQ     DPCOM.E                                                         FCC0493       80     A     
 DECPRO                                                                                    FCC0493       81     A     
 DECPRO    COMERR1                                                                         FCC0493       82          I
          -FCC1179
 DECPRO    COMERR1  BSSZ   1                 DUPLICATE ERROR FLAG                          FCC1179       45     A     
 DECPRO    COMFLAG  BSSZ   1                 COMMON ERROR FLAG                             FCC1179       46     A     
 DECPRO                                                                                    DECPRO       446     A     
 DECPRO    E.COM                             SAVED LENGTH OF COMTAB                        DECPRO       447          I
          -FCC1179
 DECPRO    E.ORG                             SAVED LENGTH OF ORGTAB                        DECPRO       448          I
          -FCC1179
 DECPRO    E.COM    BSSZ   1                 SAVED LENGTH OF COMTAB                        FCC1179       47     A     
 DECPRO    E.ORG    BSSZ   1                 SAVED LENGTH OF ORGTAB                        FCC1179       48     A     
 DECPRO                                                                                    FCC1179       49     A     
 DECPRO   ***                                                                              DECPRO       449     A     
 DECPRO   *         SCF - SET COMMON FLAGS                                                 DECPRO       450     A     
 DECPRO   *                                                                                DECPRO       451     A     
 DECPRO   *         SETS OR RESETS THE FLAGS:                                              DECPRO       452     A     
 DECPRO   *                E.COM - SAVED COM TAB LENGTH                                    DECPRO       453     A     
 DECPRO   *                E.ORG - ORDINAL OF BLOCK BEING PROCESSED WHEN AN                DECPRO       454     A     
 DECPRO   *                ERROR OCCURED                                                   DECPRO       455     A     
 DECPRO   *                                                                                DECPRO       456     A     
 DECPRO    SCF1     SX6    X2+B5                                                           DECPRO       457     A     
 DECPRO             SA6    A1                SAVE COM TAB LENGTH                           DECPRO       458     A     
 DECPRO    SCF      ENTRY.                                                                 DECPRO       459     A     
 DECPRO             SA1    E.COM                                                           DECPRO       460     A     
 DECPRO             SA2    L.COM                                                           DECPRO       461     A     
 DECPRO             ZR     X1,SCF1           IF NO PREVIOUS ERRORS                         DECPRO       462     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2539    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             SA3    E.ORG                                                           DECPRO       463     A     
 DECPRO             SX6    X1-1                                                            DECPRO       464     A     
 DECPRO             BX7    X7-X7                                                           DECPRO       465     A     
 DECPRO             SA6    A2                RESET COM TAB LENGTH TO ERROR FREE            DECPRO       466     A     
 DECPRO   *                                  VALUE                                         DECPRO       467     A     
 DECPRO             ZR     X3,SCF2     IF IN AN OLD BLOCK                                  DECPRO       468     A     
 DECPRO                                                                                    DECPRO       469     A     
 DECPRO   *         NEW BLOCK - CLEAR OUT ORGTAB ENTRY AND RESTORE N.COM                   DECPRO       470     A     
 DECPRO                                                                                    DECPRO       471     A     
 DECPRO             SX6    X3-1                                                            DECPRO       472     A     
 DECPRO             SA6    N.COM             RESTORE N.COM                                 DECPRO       473     A     
 DECPRO             SA7    ORGTAB-1+X3       CLEAR THE ENTRY                               DECPRO       474     A     
 DECPRO             EQ     SCF                                                             DECPRO       475     A     
 DECPRO   *                                                                                DECPRO       476     A     
 DECPRO   *         OLD BLOCK - BREAK FORWARD LINK TO ERRONEOUS COMTAB ENTRY               DECPRO       477     A     
 DECPRO   *                                                                                DECPRO       478     A     
 DECPRO    SCF2     SA3    LINKA       _ LAST LINK ENTRY                                   DECPRO       479     A     
 DECPRO             MX7    42                                                              DECPRO       480     A     
 DECPRO             SA4    X3                                                              DECPRO       481     A     
 DECPRO             BX6    X7*X4                                                           DECPRO       482     A     
 DECPRO             SA6    A4          BREAK LINK TO BAD ENTRY                             DECPRO       483     A     
 DECPRO             EQ     SCF         EXIT                                                DECPRO       484     A     
 DECPRO             TITLE              DPEQU - PROCESS EQUIVALENCE STATEMENTS              DECPRO       485     A     
 DECPRO                                                                                    DECPRO       486     A     
 DECPRO   ***                                                                              DECPRO       487     A     
 DECPRO   *         DPEQU - EQUIVALENCE STATEMENT PROCESSOR                                DECPRO       488     A     
 DECPRO   *                                                                                DECPRO       489     A     
 DECPRO   *         SYNTAX CHECK STATEMENT AND FORM EQ LIST FOR THE                        DECPRO       490     A     
 DECPRO   *         EQUIVALENCE GROUPS.                                                    DECPRO       491     A     
 DECPRO   *                                                                                DECPRO       492     A     
 DECPRO   *         THE FORMAT OF AN EQ LIST ENTRY IS:                                     DECPRO       493     A     
 DECPRO   *          12/2000B+GORD,48/2*SYMORD                                             DECPRO       494          I
          -FCC1946
 DECPRO   *          12/GORD,48/2*SYMORD                                                   FCC1946      170     A     
 DECPRO   *          3/N.SUBS,3/0,18/SUB C ,18/SUB B ,18/SUB A                             DECPRO       495     A     
 DECPRO   *                                                                                DECPRO       496     A     
 DECPRO   *          WHERE GORD IS THE ORDINAL OF THE NAME IN THE GROUP ( 1,2,..)          DECPRO       497     A     
 DECPRO   *                                                                                DECPRO       498     A     
 DECPRO                                                                                    DECPRO       499     A     
 DECPRO    E.EECS   EQU    90                BAD NAME ( TYPE ECS OR SUCH )                 DECPRO       500          I
          -FCC0390
 DECPRO    E.ESE    EQU    91                SUBSCRIPT ERROR                               DECPRO       501     A     
 DECPRO    E.E1N    EQU    92                1 NAME IN THE GROUP                           DECPRO       502     A     
 DECPRO    E.EBS    EQU    93                BAD SYNTAX                                    DECPRO       503     A     
 DECPRO    E.EQDUP  EQU    284         DUPLICATE NAMES - EQUIV GROUP IGNORED               DECPRO       504          I
          -FCC1289X 
 DECPRO             SPACE  3                                                               DECPRO       505     A     
 DECPRO   *         ERROR EXITS                                                            DECPRO       506     A     
 DECPRO                                                                                    DECPRO       507     A     
 DECPRO    DPEQU.ES SB6    E.EBS             BAD SYNTAX                                    DECPRO       508     A     
 DECPRO             EQ     CDN.E0                                                          DECPRO       509     A     
 DECPRO                                                                                    DECPRO       510     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2540    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO    DPEQU.SE SB6    E.ESE             SUBSCRIPT ERROR                               DECPRO       511     A     
 DECPRO             EQ     DPEQU.EX                                                        DECPRO       512     A     
 DECPRO                                                                                    DECPRO       513     A     
 DECPRO    DPEQU.E1 SB6    E.E1N             1 NAME IN THE GROUP                           DECPRO       514     A     
 DECPRO             EQ     DPEQU.EX                                                        DECPRO       515     A     
 DECPRO                                                                                    DECPRO       516     A     
 DECPRO    DPEQU.EE SB6    E.EECS            VARIABLE IN ECS OR SUCH                       DECPRO       517          I
          -FCC0390
 DECPRO                                                                                    DECPRO       518          I
          -FCC0390
 DECPRO    DPEQU.EX SA4    SNAME                                                           DECPRO       519     A     
 DECPRO             EQ     CDN.E0                                                          DECPRO       520     A     
 DECPRO                                                                                    DECPRO       521     A     
 DECPRO             USE    /MACBUF/                                                        DECPRO       522     A     
 DECPRO    EQVTEMP  BSS    1                 A WORD TO HOLD THE FIRST WORD OF EQV          DECPRO       523     A     
 DECPRO             USE    *                                                               DECPRO       524     A     
 DECPRO             SPACE  4                                                               DECPRO       525     A     
 DECPRO   *         ENTRY POINT FROM PH1CTL                                                DECPRO       526     A     
 DECPRO                                                                                    DECPRO       527     A     
 DECPRO    DPEQU    SX6    B5                                                              DECPRO       528     A     
 DECPRO             LX6    P.FP                                                            DECPRO       529     A     
 DECPRO             SA6    FPFLAG            F.P. S NOT ALLOWED                            DECPRO       530     A     
 DECPRO                                                                                    DECPRO       531     A     
 DECPRO    DPEQUL   RJ     SEF               SAVE EQV TABLE LENGTH                         DECPRO       532     A     
 DECPRO             GETE                     FIRST E-LIST ELEMENT                          DECPRO       533     A     
 DECPRO             IF.NE  EL.(,DPEQU.ES     IF NOT A (                                    DECPRO       534     A     
 DECPRO             MX7    0                                                               DECPRO       535     A     
 DECPRO             SA7    GNC               CLEAR THE GROUP NAME COUNT                    DECPRO       536     A     
 DECPRO             EJECT                                                                  DECPRO       537     A     
 DECPRO   *         PROCESS AN EQUIVALENCE GROUP                                           DECPRO       538     A     
 DECPRO                                                                                    DECPRO       539     A     
 DECPRO    DPEQU.L  CNAME  E.EBS             PROCESS NAME                                  DECPRO       540     A     
 DECPRO             MX0    1                                                               DECPRO       541     A     
 DECPRO             IX7    X6+X2             ADD TYPE TO WORD B                            DECPRO       542     A     
 DECPRO             LX0    1+P.VAR                                                         DECPRO       543     A     
 DECPRO             BX7    X0+X7             SET VAR BIT                                   DECPRO       544     A     
 DECPRO             SA7    A2                                                              DECPRO       545     A     
 DECPRO             MX0    60-L.LVL                                                        DECPRO       546          I
          -FCC0390
 DECPRO             AX7    P.LVL                                                           DECPRO       547          I
          -FCC0390
 DECPRO             BX1    -X0*X7                                                          DECPRO       548          I
          -FCC0390
 DECPRO             SX4    X1-3                                                            DECPRO       549          I
          -FCC0390
 DECPRO             ZR     X4,DPEQU.EE       IF LEVEL = 3, ERROR                           DECPRO       550          I
          -FCC0390
 DECPRO                                                                                    DECPRO       551     A     
 DECPRO   *         MAKE AN EQV LIST ENTRY FOR THE NAME                                    DECPRO       552     A     
 DECPRO                                                                                    DECPRO       553     A     
 DECPRO             SA4    GNC                                                             DECPRO       554     A     
 DECPRO             SX7    X4+B5             GNC = GNC+1                                   DECPRO       555     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2541    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             SA7    A4                                                              DECPRO       556     A     
 DECPRO             SX0    B1+B1                                                           DECPRO       557     A     
 DECPRO             SB7    X7                                                              DECPRO       558     A     
 DECPRO                                                                                    DECPRO       559     A     
 DECPRO             PX1    B7,X0             12/P(GORD),48/2*SYMORD                        DECPRO       560          I
          -FCC1946
 DECPRO             MX4    48                 PX1   B7,X0                                  FCC1946      171     A     
 DECPRO             SX5    B7                                                              FCC1946      172     A     
 DECPRO             BX2    -X4*X5                                                          FCC1946      173     A     
 DECPRO             MX3    12                                                              FCC1946      174     A     
 DECPRO             LX2    48                                                              FCC1946      175     A     
 DECPRO             BX6    -X3*X0                                                          FCC1946      176     A     
 DECPRO             BX1    X2+X6              12/P(GORD), 48/2*SYMORD                      FCC1946      177     A     
 DECPRO             ADDWD  EQV,X1            ADD FIRST WORD OF EQV TABLE ENTRY             DECPRO       561     A     
 DECPRO             MX1    0                                                               DECPRO       562     A     
 DECPRO             ADDWD                    AND CLEAR SECOND WORD                         DECPRO       563     A     
 DECPRO             SX6    A6                                                              DECPRO       564     A     
 DECPRO             SA6    EQVTEMP           SAVE ADDRESS OF SECOND WORD                   DECPRO       565     A     
 DECPRO                                                                                    DECPRO       566     A     
 DECPRO             SA5    RSELECT                                                         DECPRO       567     A     
 DECPRO             ZR     X5,DPEQU2         IF R = 0                                      DECPRO       568     A     
 DECPRO             ADDREF SAVEB1,REF        ADD A REFERENCE FOR THE NAME                  DECPRO       569     A     
 DECPRO                                                                                    DECPRO       570     A     
 DECPRO    DPEQU2   GETE                     NEXT AFTER THE NAME                           DECPRO       571     A     
 DECPRO             IF.NE  EL.(,DPEQU4       IF NOT A (                                    DECPRO       572     A     
 DECPRO             MX6    0                                                               DECPRO       573     A     
 DECPRO             SA6    N.SUBS            CLEAR SUBSCRIPT COUNT                         DECPRO       574     A     
 DECPRO                                                                                    DECPRO       575     A     
 DECPRO   *         PROCESS SUBSCRIPT LIST                                                 DECPRO       576     A     
 DECPRO                                                                                    DECPRO       577     A     
 DECPRO    DPEQU.SL NEXTE                    SUBSCRIPT                                     DECPRO       578     A     
 DECPRO             IF.NE  CON,DPEQU.SE      IF NOT A CONSTANT                             DECPRO       579     A     
 DECPRO             UPDATE                                                                 DECPRO       580     A     
 DECPRO             AX1    45                                                              DECPRO       581     A     
 DECPRO             SX2    X1-T.INT                                                        DECPRO       582     A     
 DECPRO             SX3    X1-T.OCT                                                        DECPRO       583     A     
 DECPRO             ZR     X2,DPEQU3         IF INTEGER                                    DECPRO       584     A     
 DECPRO             NZ     X3,DPEQU.SE       IF NOT OCTAL                                  DECPRO       585     A     
 DECPRO                                                                                    DECPRO       586     A     
 DECPRO    DPEQU3   SB1    -B5                                                             DECPRO       587     A     
 DECPRO             BX1    X4                                                              DECPRO       588     A     
 DECPRO             RJ     CONVERT           CONVERT THE CONSTANT TO BINARY                DECPRO       589     A     
 DECPRO             ZR     X1,DPEQU.SE       ERROR IF ZERO                                 DECPRO       590     A     
 DECPRO             BX6    X1                                                              DECPRO       591     A     
 DECPRO             AX1    17                                                              DECPRO       592     A     
 DECPRO             NZ     X1,DPEQU.SE       ERROR IF TOO BIG                              DECPRO       593     A     
 DECPRO             SA2    N.SUBS                                                          DECPRO       594     A     
 DECPRO             SX7    X2+B5             N.SUBS = N.SUBS+1                             DECPRO       595     A     
 DECPRO             SA7    A2                                                              DECPRO       596     A     
 DECPRO             SX3    X2-3                                                            DECPRO       597     A     
 DECPRO             PL     X3,DPEQU.SE       IF TOO MANY SUBSCRIPTS                        DECPRO       598     A     
 DECPRO             SA6    DIMTAB+X2         SAVE THE SUBSCRIPT                            DECPRO       599     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2542    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             GETE                     NEXT AFTER THE SUBSCRIPT                      DECPRO       600     A     
 DECPRO             IF.EQ  EL.COMMA,DPEQU.SL   LOOP IF A COMMA                             DECPRO       601     A     
 DECPRO                                                                                    DECPRO       602     A     
 DECPRO             IF.NE  EL.),DPEQU.SE     IF NOT A )                                    DECPRO       603     A     
 DECPRO             UPDATE                                                                 DECPRO       604     A     
 DECPRO                                                                                    DECPRO       605     A     
 DECPRO   *         ADD SECOND WORD TO EQV LIST                                            DECPRO       606     A     
 DECPRO                                                                                    DECPRO       607     A     
 DECPRO             SB2    X7                NUMBER OF SUBSCRIPTS                          DECPRO       608     A     
 DECPRO             SB1    B0                                                              DECPRO       609     A     
 DECPRO             SB3    B0                CLEAR SHIFT COUNT                             DECPRO       610     A     
 DECPRO             LX7    57                POSITION NUMBER OF SUBS                       DECPRO       611     A     
 DECPRO                                                                                    DECPRO       612     A     
 DECPRO    DPEQUS   SA3    DIMTAB+B1         SUBSCRIPT                                     DECPRO       613     A     
 DECPRO             SB1    B1+B5             ADVANCE INDEX                                 DECPRO       614     A     
 DECPRO             LX4    B3,X3                                                           DECPRO       615     A     
 DECPRO             SB3    B3+18                                                           DECPRO       616     A     
 DECPRO             BX7    X7+X4                                                           DECPRO       617     A     
 DECPRO             LT     B1,B2,DPEQUS                                                    DECPRO       618     A     
 DECPRO             SA2    EQVTEMP           ADDRESS OF WORD 2                             DECPRO       619     A     
 DECPRO             SA7    X2                                                              DECPRO       620     A     
 DECPRO             GETE                     NEXT AFTER THE )                              DECPRO       621     A     
 DECPRO                                                                                    DECPRO       622     A     
 DECPRO    DPEQU4   IF.EQ  EL.COMMA,DPEQU.L  LOOP IF A COMMA                               DECPRO       623     A     
 DECPRO             IF.NE  EL.),DPEQU.ES     IF NO )                                       DECPRO       624     A     
 DECPRO             SA2    GNC                                                             DECPRO       625     A     
 DECPRO             SX0    X2-1                                                            DECPRO       626     A     
 DECPRO             ZR     X0,DPEQU.E1       IF ONLY ONE NAME IN THE GROUP                 DECPRO       627     A     
 DECPRO                                                                                    DECPRO       628     A     
 DECPRO             SA1    EQVTEMP                                                         DECPRO       629          I
          -FCC1289X 
 DECPRO             SA3    X1          PICK UP LAST MEMBER OF GROUP                        DECPRO       630          I
          -FCC1289X 
 DECPRO             SA1    A3-B5                                                           DECPRO       631          I
          -FCC1289X 
 DECPRO             SA2    A3                                                              DECPRO       632          I
          -FCC1289X 
 DECPRO             MX0    12                                                              DECPRO       633          I
          -FCC1289X 
 DECPRO    DPEQU5   SA2    A2-3        GET NEXT MEMBER                                     DECPRO       634          I
          -FCC1289X 
 DECPRO             BX6    X1-X2       CHECK FOR EQUAL SYMTAB ORDINALS                     DECPRO       635          I
          -FCC1289X 
 DECPRO             BX7    -X0*X6                                                          DECPRO       636          I
          -FCC1289X 
 DECPRO             NZ     X7,DPEQU8   IF ORDINALS NOT EQUAL                               DECPRO       637          I
          -FCC1289X 
 DECPRO             UX2    B4,X2                                                           DECPRO       638          I
          -FCC1289X 
 DECPRO             SA2    A2+B5       CHECK FOR EQUAL SUBSCRIPTS                          DECPRO       639          I
          -FCC1289X 
 DECPRO             BX6    X3-X2                                                           DECPRO       640          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2543    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
          -FCC1289X 
 DECPRO             NZ     X6,DPEQU8   IF SUBSCRIPTS NOT EQUAL                             DECPRO       641          I
          -FCC1289X 
 DECPRO             GT     B4,B5,DPEQU5  IF END OF A GROUP                                 DECPRO       642          I
          -FCC1289X 
 DECPRO                                                                                    DECPRO       643          I
          -FCC1289X 
 DECPRO             SA3    E.EQV                                                           DECPRO       644          I
          -FCC1289X 
 DECPRO             SX7    X3-1        REMOVE GROUP FROM EQUIV TABLE                       DECPRO       645          I
          -FCC1289X 
 DECPRO             SA7    L.EQV                                                           DECPRO       646          I
          -FCC1289X 
 DECPRO             SX2    X1          SET UP ERROR CALL                                   DECPRO       647          I
          -FCC1289X 
 DECPRO             AX2    1                                                               DECPRO       648          I
          -FCC1289X 
 DECPRO             RJ     PSYM                                                            DECPRO       649          I
          -FCC1289X 
 DECPRO             POSTERR   NR=E.EQDUP,SEV=INF,FMT=DPC,TXT=X3                            DECPRO       650          I
          -FCC1289X 
 DECPRO    DPEQU7   GETE                                                                   DECPRO       651     A     
 DECPRO                                                                                    DECPRO       652     A     
 DECPRO    DPEQU8   MX7    0                                                               DECPRO       653     A     
 DECPRO             SA7    E.EQV             CLEAR SAVED EQV TAB LENGTH                    DECPRO       654     A     
 DECPRO             NEXTE                                                                  DECPRO       655     A     
 DECPRO             IF.EQ  EL.EOS,PH1SCAN    EXIT IF EOS                                   DECPRO       656     A     
 DECPRO             UPDATE                                                                 DECPRO       657     A     
 DECPRO             IF.EQ  EL.COMMA,DPEQUL   LOOP IF A COMMA                               DECPRO       658     A     
 DECPRO                                                                                    DECPRO       659     A     
 DECPRO             EQ     DPEQU.ES          SYNTAX ERROR                                  DECPRO       660     A     
 DECPRO             SPACE  3                                                               DECPRO       661     A     
 DECPRO    E.EQV                             SAVED EQV TBL LENGTH                          DECPRO       662     A     
 DECPRO   ***                                                                              DECPRO       663     A     
 DECPRO   *         SEF - SET EQUIVALENCE FLAG                                             DECPRO       664     A     
 DECPRO   *         SAVE LENGTH OF EQV TAB IN CASE OF ERRORS                               DECPRO       665     A     
 DECPRO   *                                                                                DECPRO       666     A     
 DECPRO    SEF1     SX6    X2+B5                                                           DECPRO       667     A     
 DECPRO             SA6    A1                E.EQV = L.EQV+1                               DECPRO       668     A     
 DECPRO    SEF      ENTRY.                                                                 DECPRO       669     A     
 DECPRO             SA1    E.EQV                                                           DECPRO       670     A     
 DECPRO             SA2    L.EQV                                                           DECPRO       671     A     
 DECPRO             ZR     X1,SEF1           IF NO PREVIOUS ERRORS                         DECPRO       672     A     
 DECPRO             SX6    X1-1                                                            DECPRO       673     A     
 DECPRO             SA6    A2                                                              DECPRO       674     A     
 DECPRO             EQ     SEF                                                             DECPRO       675     A     
 DECPRO             TITLE              DPTYP - PROCESS TYPE STATEMENTS                     DECPRO       676     A     
 DECPRO   ***                                                                              DECPRO       677     A     
 DECPRO   *         DPTYP - TYPE STATEMENT PROCESSOR                                       DECPRO       678     A     
 DECPRO   *                                                                                DECPRO       679     A     
 DECPRO   *         ENTER NAMES IN SYMTAB AND SET TYPE TO MODE SPECIFIED BY                DECPRO       680     A     
 DECPRO   *         TYPE STATEMENT                                                         DECPRO       681     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2544    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO   *                                                                                DECPRO       682     A     
 DECPRO    ST.ECS   EQU    5                 STATEMENT TYPE OF ECS STATEMENT               DECPRO       683     A     
 DECPRO             SPACE  3                                                               DECPRO       684     A     
 DECPRO                                                                                    DECPRO       685     A     
 DECPRO    DPTYP    MX7    0                                                               DECPRO       686     A     
 DECPRO             SA5    ATYPE                                                           DECPRO       687     A     
 DECPRO             SA7    FPFLAG            F.P. S ALLOWED                                DECPRO       688     A     
 DECPRO             SX4    X5-ST.ECS                                                       DECPRO       689     A     
 DECPRO             NZ     X4,DPERRO         IF NOT *TYPE ECS*                             DECPRO       690     A     
 DECPRO             POSTER SEV=INF,NR=E.SFO  *STATEMENT FORM OBSOLETE*                     DECPRO       691     A     
 DECPRO    DPERRO   SA5    ATYPE                                                           DECPRO       692     A     
 DECPRO             SB7    X5-T.DBL                                                        DECPRO       693     A     
 DECPRO             NG     B7,DPTYP0         IF SINGLE PRECISION                           DECPRO       694     A     
 DECPRO             GT     B7,B5,DPTYP0      IF NOT TYPE DOUBLE OR COMPLEX                 DECPRO       695     A     
 DECPRO             MX6    1                                                               DECPRO       696     A     
 DECPRO             SA6    =XDBLDECL         /DOUBLE OR COMPLEX DECLAR/ FLAG ON            DECPRO       697     A     
 DECPRO                                                                                    DECPRO       698     A     
 DECPRO   *         PROCESS THE LIST OF NAMES                                              DECPRO       699     A     
 DECPRO                                                                                    DECPRO       700     A     
 DECPRO    DPTYP0   INITE                    INITIALIZE E-LIST POINTER                     DECPRO       701     A     
 DECPRO                                                                                    DECPRO       702     A     
 DECPRO    DPTYPL   CNAME  E.BADSYN          PROCESS NAME                                  DECPRO       703     A     
 DECPRO             NZ     B7,DPTYP.P        IF NOT FIRST OCCURRENCE                       DECPRO       704     A     
 DECPRO             ZR     X5,DPTYP.N        IF NO PRIOR OCCURRENCE IN DEBUG STMT          DECPRO       705     A     
 DECPRO                                                                                    DECPRO       706     A     
 DECPRO             SA2    A2                GET WORD B FROM SYMTAB                        DECPRO       707     A     
 DECPRO             BX7    X6                SAVE CURRENT TYPE                             DECPRO       708     A     
 DECPRO             CALL   NTYPE             GET NATURAL TYPE                              DECPRO       709     A     
 DECPRO             BX3    X6-X7                                                           DECPRO       710     A     
 DECPRO             NZ     X3,DPTYP.I        IF PRESENT TYPE " NATURAL TYPE                DECPRO       711     A     
 DECPRO                                                                                    DECPRO       712     A     
 DECPRO             MX0    L.SNT                                                           DECPRO       713     A     
 DECPRO             SA3    ATYPE             PLACE DECLARED TYPE IN SNT FIELD              DECPRO       714     A     
 DECPRO             SX4    X3-ST.ECS                                                       DECPRO       715     A     
 DECPRO             ZR     X4,DPTYP5         IF STATEMENT TYPE ECS                         DECPRO       716     A     
 DECPRO             LX0    L.SNT+P.SNT                                                     DECPRO       717     A     
 DECPRO             BX2    -X0*X2            REMOVE OLD VALUE OF SNT                       DECPRO       718     A     
 DECPRO             LX3    P.SNT                                                           DECPRO       719     A     
 DECPRO             IX7    X3+X2                                                           DECPRO       720     A     
 DECPRO             SA7    A2                UPDATE WORD B                                 DECPRO       721     A     
 DECPRO             EQ     DPTYP1                                                          DECPRO       722     A     
 DECPRO                                                                                    DECPRO       723     A     
 DECPRO    DPTYP.P  RJ     =XNTYPE           GET NATURAL TYPE                              DECPRO       724     A     
 DECPRO             NE     B1,B5,DPTYP.P1    IF NOT A FUNCTION                             DECPRO       725     A     
 DECPRO             SA3    =XVALUE.          ORDINAL OF *VALUE.* IN SYMTAB                 DECPRO       726     A     
 DECPRO             SA5    SYM1              FWA OF SYMTAB                                 DECPRO       727     A     
 DECPRO             LX3    1                 2*ORD OF *VALUE.*                             DECPRO       728     A     
 DECPRO             IX2    X5-X3             (SYM1)-(VALUE.)=ADDR OF VALUE. WORD A         DECPRO       729     A     
 DECPRO             SA2    X2-1              SYMTAB WORD B OF *VALUE.*                     DECPRO       730     A     
 DECPRO    DPTYP.P1 MX7    L.TYP                                                           DECPRO       731     A     
 DECPRO             BX5    X7*X2             EXTRACT PRESENT TYPE                          DECPRO       732     A     
 DECPRO             IX4    X6-X5                                                           DECPRO       733     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2545    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             BX2    -X7*X2            REMOVE TYPE                                   DECPRO       734     A     
 DECPRO             NZ     X4,DPTYP.I        IF PRESENT TYPE " NATURAL TYPE                DECPRO       735     A     
 DECPRO                                                                                    DECPRO       736     A     
 DECPRO    DPTYP.N  SA3    ATYPE             MODE OF TYPE STMT                             DECPRO       737     A     
 DECPRO             SX4    X3-ST.ECS                                                       DECPRO       738     A     
 DECPRO             ZR     X4,DPTYP5         IF STATEMENT TYPE ECS                         DECPRO       739     A     
 DECPRO             LX3    P.TYP                                                           DECPRO       740     A     
 DECPRO             BX6    X3+X2             ADD TYPE TO WORD B                            DECPRO       741     A     
 DECPRO             SA6    A2                                                              DECPRO       742     A     
 DECPRO             NE     B1,B5,DPTYP1      IF NOT A FUNCTION                             DECPRO       743     A     
 DECPRO             MX7    1                                                               DECPRO       744     A     
 DECPRO             LX3    L.TYP                                                           DECPRO       745     A     
 DECPRO             SX4    X3-T.DBL                                                        DECPRO       746     A     
 DECPRO             BX6    -X4*X7                                                          DECPRO       747     A     
 DECPRO             LX6    1                                                               DECPRO       748     A     
 DECPRO             SX7    X6+B5                                                           DECPRO       749     A     
 DECPRO             SA7    =XFUNTYPE         NR WORDS IN FUNCTION RESULT                   DECPRO       750     A     
 DECPRO                                                                                    DECPRO       751     A     
 DECPRO    DPTYP1   SA5    RSELECT                                                         DECPRO       752     A     
 DECPRO             ZR     X5,DPTYP2         IF R = 0                                      DECPRO       753     A     
 DECPRO             ADDREF B1,REF            A REFERENCE FOR THE NAME                      DECPRO       754     A     
 DECPRO                                                                                    DECPRO       755     A     
 DECPRO    DPTYP2   GETE                     SEPARATOR                                     DECPRO       756     A     
 DECPRO             IF.NE  EL.(,DPTYP4       IF NEXT IS NOT A (                            DECPRO       757     A     
 DECPRO                                                                                    DECPRO       758     A     
 DECPRO             SA3    SYM1                                                            DECPRO       759     A     
 DECPRO             SA1    SAVEB1                                                          DECPRO       760     A     
 DECPRO             SB1    X1                                                              DECPRO       761     A     
 DECPRO             SA0    X3                                                              DECPRO       762     A     
 DECPRO             LX1    1                                                               DECPRO       763     A     
 DECPRO             IX5    X3-X1                                                           DECPRO       764     A     
 DECPRO             SA2    X5-1              WORD B                                        DECPRO       765     A     
 DECPRO             BX3    X2                                                              DECPRO       766     A     
 DECPRO             LX3    59-P.EXT                                                        DECPRO       767     A     
 DECPRO             MI     X3,CDN.E3         IF PRIOR OCCURRENCE IN EXTERNAL STMT          DECPRO       768     A     
 DECPRO             EQ     B1,B5,CDN.E4      IF ILLEGAL USE OF FUNCTION NAME               DECPRO       769     A     
 DECPRO                                                                                    DECPRO       770     A     
 DECPRO             MX0    L.TYP                                                           DECPRO       771     A     
 DECPRO             BX3    X0*X2                                                           DECPRO       772     A     
 DECPRO             LX3    L.TYP             TYPE FIELD                                    DECPRO       773     A     
 DECPRO             SX4    X3-T.DBG                                                        DECPRO       774     A     
 DECPRO             NZ     X4,DPTYP3         IF NOT AN UNUSED DEBUG VAR                    DECPRO       775     A     
 DECPRO                                                                                    DECPRO       776     A     
 DECPRO   *         PREVIOUS OCCURANCE IN A DEBUG STMT, CALL CFO TO CHECK BIT SETT         DECPRO       777     A     
 DECPRO                                                                                    DECPRO       778     A     
 DECPRO             BX3    X2                                                              DECPRO       779     A     
 DECPRO             LX3    P.TYP-P.SNT                                                     DECPRO       780     A     
 DECPRO             BX6    X0*X3             X6 = NATURAL TYPE                             DECPRO       781     A     
 DECPRO             MX5    L.DBGI                                                          DECPRO       782     A     
 DECPRO             LX5    L.DBGI+P.DBGI                                                   DECPRO       783     A     
 DECPRO             BX7    X5*X2             SET UP X7                                     DECPRO       784     A     
 DECPRO             MX0    60-12                                                           DECPRO       785     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2546    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             BX2    X0*X2             X2 = P- FIELD                                 DECPRO       786     A     
 DECPRO             CFO    VAR               CHECK SETTING OF DEBUG BITS                   DECPRO       787     A     
 DECPRO             MX0    L.TYP                                                           FCC0517        4     A     
 DECPRO             LX0    L.TYP+P.TYP                                                     FCC0517        5     A     
 DECPRO             BX2    -X0*X2      REMOVE OLD TYPE                                     FCC0517        6     A     
 DECPRO             IX7    X6+X2             ADD TYPE                                      DECPRO       788     A     
 DECPRO             SA7    A2                                                              DECPRO       789     A     
 DECPRO             GETE                     RESTORE SEPARATOR                             DECPRO       790     A     
 DECPRO                                                                                    DECPRO       791     A     
 DECPRO    DPTYP3   RJ     DIMEN             PROCESS DIMENSION SPECIFICATION               DECPRO       792     A     
 DECPRO                                                                                    DECPRO       793     A     
 DECPRO    DPTYP4   IF.EQ  EL.COMMA,DPTYPL   LOOP IF A ,                                   DECPRO       794     A     
 DECPRO             IF.EQ  EL.EOS,PH1SCAN    EXIT IF EOS                                   DECPRO       795     A     
 DECPRO                                                                                    DECPRO       796     A     
 DECPRO             SB6    E.BADSEP                                                        DECPRO       797     A     
 DECPRO             EQ     CDN.E0                                                          DECPRO       798     A     
 DECPRO                                                                                    DECPRO       799     A     
 DECPRO    DPTYP5   SA2    A2                REFETCH SYMTAB WORD B                         DECPRO       800     A     
 DECPRO             EQ     B1,B5,CDN.E4      IF ILLEGAL USE OF FUNCTION NAME               DECPRO       801     A     
 DECPRO             MX7    60-2              -(LEVEL 3)                                    DECPRO       802          I
          -FCC0504
 DECPRO             SX7    3                                                               FCC0504        7     A     
 DECPRO             SA7    =XLEVEL2                                                        FCC0504        8     A     
 DECPRO             SX6    B5                                                              FCC0504        9     A     
 DECPRO             LX6    P.LCM                                                           FCC0504       10     A     
 DECPRO             BX2    X2+X6                                                           FCC0504       11     A     
 DECPRO             SA7    =XLEVEL           /LEVEL STMT APPEARED/ FLAG TO -YES-           DECPRO       803     A     
 DECPRO             LX7    P.LVL                                                           DECPRO       804     A     
 DECPRO             BX6    -X7+X2            SET LEVEL 3 FOR TYPE -ECS- ITEM               DECPRO       805          I
          -FCC0504
 DECPRO             BX6    X2+X7       LEVEL = 3                                           FCC0504       12     A     
 DECPRO             SA6    A2                                                              DECPRO       806     A     
 DECPRO             EQ     DPTYP1                                                          DECPRO       807     A     
 DECPRO                                                                                    DECPRO       808     A     
 DECPRO   *         INFORMATIVE ERROR FOR PREVIOUSLY TYPED NAME                            DECPRO       809     A     
 DECPRO                                                                                    DECPRO       810     A     
 DECPRO    DPTYP.I  POSTER SEV=INF,NR=E.TRT,FMT=ELIST,TXT=SNAME,RETURN=DPTYP1              DECPRO       811     A     
 DECPRO             TITLE              DPDIM - PROCESS DIMENSION STATEMENTS                DECPRO       812     A     
 DECPRO    E.DNT    EQU    287               ILLEGAL SYNTAX                                DECPRO       813     A     
 DECPRO    E.DTMS   EQU    43                TOO MANY SUBSCRIPTS                           DECPRO       814     A     
 DECPRO    E.DBCON  EQU    44                ILLEGAL SUBSCRIPT                             DECPRO       815     A     
 DECPRO    E.DDD    EQU    45                PREVIOUSLY DIMENSIONED                        DECPRO       816     A     
 DECPRO    E.DIVD   EQU    46                IMPROPER VARIABLE DIMENSIONS                  DECPRO       817     A     
 DECPRO    E.CUN    EQU    48                CONFLICTING USE OF A NAME                     DECPRO       818     A     
 DECPRO                                                                                    DECPRO       819     A     
 DECPRO             USE    /MACBUF/                                                        DECPRO       820     A     
 DECPRO    TEMP                              A GENERAL TEMPORARY                           DECPRO       821     A     
 DECPRO    N.SUBS                            NUMBER OF SUBSCRIPTS                          DECPRO       822     A     
 DECPRO    VARSUB                            VARIABLE SUBSCRIPTS FLAG                      DECPRO       823     A     
 DECPRO    DIMTAB   BSS    3                 SUBSCRIPTS ( VALUE OR SYMTAB ORD )            DECPRO       824     A     
 DECPRO    GNC                               GROUP NAME COUNT                              DECPRO       825     A     
 DECPRO             USE    *                                                               DECPRO       826     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2547    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             SPACE  3                                                               DECPRO       827     A     
 DECPRO   ***                                                                              DECPRO       828     A     
 DECPRO   *         DPDIM - DIMENSION STATEMENT PROCESSOR                                  DECPRO       829     A     
 DECPRO   *                                                                                DECPRO       830     A     
 DECPRO             SPACE  3                                                               DECPRO       831     A     
 DECPRO    DPDIM    INITE                    INITIALIZE E-LIST POINTER                     DECPRO       832     A     
 DECPRO             MX6    0                                                               DECPRO       833     A     
 DECPRO             SA6    FPFLAG            ALLOW F.P. S                                  DECPRO       834     A     
 DECPRO                                                                                    DECPRO       835     A     
 DECPRO    DPDIML   CNAME  E.DNT             PROCESS NAME                                  DECPRO       836     A     
 DECPRO             BX7    X6+X2             SET TYPE (X6 .NZ. ONLY IF 1ST OCCUR)          DECPRO       837     A     
 DECPRO             SA7    A2                                                              DECPRO       838     A     
 DECPRO                                                                                    DECPRO       839     A     
 DECPRO             SA5    RSELECT                                                         DECPRO       840     A     
 DECPRO             ZR     X5,DPDIM1         IF R = 0                                      DECPRO       841     A     
 DECPRO             ADDREF B1,REF            ADD A REFERENCE FOR THE NAME                  DECPRO       842     A     
 DECPRO                                                                                    DECPRO       843     A     
 DECPRO    DPDIM1   GETE                     NEXT E-LIST ITEM, A (                         DECPRO       844     A     
 DECPRO             SB6    E.DNT                                                           DECPRO       845     A     
 DECPRO             IF.NE  EL.(,CDN.E0       IF NO (                                       DECPRO       846     A     
 DECPRO             RJ     DIMEN             PROCESS DIMENSION DECLARATION                 DECPRO       847     A     
 DECPRO                                                                                    DECPRO       848     A     
 DECPRO             IF.EQ  EL.COMMA,DPDIML   LOOP IF A COMMA                               DECPRO       849     A     
 DECPRO                                                                                    DECPRO       850     A     
 DECPRO             IF.EQ  EL.EOS,PH1SCAN    EXIT IF EOS                                   DECPRO       851     A     
 DECPRO                                                                                    DECPRO       852     A     
 DECPRO             SB6    E.BADSEP          BAD SEPARATOR                                 DECPRO       853     A     
 DECPRO             EQ     CDN.E0                                                          DECPRO       854     A     
 DECPRO             TITLE  DPLEV - PROCESS LEVEL STATEMENTS                                DECPRO       855     A     
 DECPRO    M.LVL    EQU    3                 MAXIMUM ALLOWABLE LEVEL NUMBER                DECPRO       856     A     
 DECPRO    E.BADLEV EQU    290               BAD LEVEL NUMBER SPECIFIED                    DECPRO       857     A     
 DECPRO    E.SFO    EQU    295               STATEMENT FORM OBSOLETE                       DECPRO       858     A     
 DECPRO    EASAST   EQU    299               NON-ANSI STATEMENT                            DECPRO       859     A     
 DECPRO                                                                                    DECPRO       860     A     
 DECPRO             ENTRY  DPLEV                                                           DECPRO       861     A     
 DECPRO    DPLEV    MX7    0                                                               DECPRO       862     A     
 DECPRO             SA7    FPFLAG            PROCESS FORMAL PARAMETERS                     DECPRO       863     A     
 DECPRO             MX6    1                                                               DECPRO       864     A     
 DECPRO             SA6    =XLEVEL           /LEVEL STMT FOUND/ FLAG ON                    DECPRO       865     A     
 DECPRO                                                                                    DECPRO       866     A     
 DECPRO             POSTERR  NR=EASAST,SEV=ANSI                                            DECPRO       867     A     
 DECPRO             GETE                                                                   DECPRO       868     A     
 DECPRO             IF.NE  CON,DPLEV.B       IF NOT A CONSTANT                             DECPRO       869     A     
 DECPRO                                                                                    DECPRO       870     A     
 DECPRO             AX1    45                                                              DECPRO       871     A     
 DECPRO             SX2    X1-T.INT                                                        DECPRO       872     A     
 DECPRO             NZ     X2,DPLEV.B        IF NOT A SIMPLE INTEGER CONSTANT              DECPRO       873     A     
 DECPRO             SB1    -B5                                                             DECPRO       874     A     
 DECPRO             BX1    X4                                                              DECPRO       875     A     
 DECPRO             RJ     CONVERT           CONVERT THE INTEGER                           DECPRO       876     A     
 DECPRO                                                                                    DECPRO       877     A     
 DECPRO             NG     X1,DPLEV.B        IF VALUE < 0                                  DECPRO       878     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2548    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             ZR     X1,DPLEV.B        IF LEVEL NUMBER = 0                           DECPRO       879     A     
 DECPRO             SX2    X1-M.LVL-1                                                      DECPRO       880     A     
 DECPRO             PL     X2,DPLEV.B        IF > MAXIMUM LEVEL                            DECPRO       881     A     
 DECPRO             SA2    SELIST                                                          DECPRO       882     A     
 DECPRO             SX6    X2-1                                                            DECPRO       883     A     
 DECPRO             SA6    A2+                                                             DECPRO       884     A     
 DECPRO                                                                                    DECPRO       885     A     
 DECPRO    #DAL     IFEQ   .DAL,0      .ZR. IF LCM DIRECT ACCESS NOT ALLOWED               DECPRO       886     A     
 DECPRO             SX2    X1-3                                                            DECPRO       887     A     
 DECPRO             NZ     X2,DPLEV3   IF NOT LCM-RESIDENT                                 DECPRO       888     A     
 DECPRO             SX2    B5                                                              DECPRO       889     A     
 DECPRO             LX2    P.LCM-P.LVL                                                     DECPRO       890     A     
 DECPRO             BX1    X1+X2                                                           DECPRO       891     A     
 DECPRO                                                                                    DECPRO       892     A     
 DECPRO    #DAL     ELSE                                                                   DECPRO       893     A     
 DECPRO             SX2    X1-2                                                            DECPRO       894     A     
 DECPRO             MI     X2,DPLEV3   IF NOT LCM RESIDENT                                 DECPRO       895     A     
 DECPRO             SA3    =XOT.RM                                                         DECPRO       896          I
          -F7540FT
 DECPRO             ZR     X3,DPLEV3   IF CROSS-MODEL MODE FORCE SCM RESIDENT              DECPRO       897          I
          -FCC0504
 DECPRO             BX3    X2+X3                                                           FCC0504       13          I
          -F7540FT
 DECPRO             ZR     X3,DPLEV3   IF M-MODE AND LEVEL 2, FORCE SCM                    FCC0504       14          I
          -F7540FT
 DECPRO             SX6    B5                                                              DECPRO       898     A     
 DECPRO             LX6    P.LCM-P.LVL                                                     DECPRO       899     A     
 DECPRO             SX2    X1-1                                                            DECPRO       900          I
          -FCC0504
 DECPRO             BX1    X1+X6                                                           DECPRO       901          I
          -FCC0504
 DECPRO             NZ     X2,DPLEV3   IF NOT LEVEL 2                                      DECPRO       902          I
          -FCC0504
 DECPRO             BX1    X1+X6                                                           FCC0504       15     A     
 DECPRO    #DAL     ENDIF                                                                  FCC0504       16     A     
 DECPRO                                                                                    FCC0504       17     A     
 DECPRO             SX6    B5+B5                                                           DECPRO       903     A     
 DECPRO             SA6    =XLEVEL2                                                        DECPRO       904     A     
 DECPRO    #DAL     ENDIF                                                                  DECPRO       905          I
          -FCC0504
 DECPRO                                                                                    DECPRO       906     A     
 DECPRO    DPLEV3   LX1    P.LVL                                                           DECPRO       907     A     
 DECPRO             BX6    X1                                                              DECPRO       908     A     
 DECPRO    DPLEV0   SA6    LVL               SET THE LEVEL VALUE                           DECPRO       909     A     
 DECPRO             GETE                                                                   DECPRO       910     A     
 DECPRO             IF.NE  EL.COMMA,DPLEV.A  IF NOT FOLLOWED BY A COMMA                    DECPRO       911     A     
 DECPRO                                                                                    DECPRO       912     A     
 DECPRO    DPLEV1   CNAME  E.BADSYN          PROCESS NAME                                  DECPRO       913     A     
 DECPRO             MX0    60-L.LVL                                                        DECPRO       914     A     
 DECPRO             BX7    X6+X2             SET TYPE IF FIRST TIME                        DECPRO       915     A     
 DECPRO             SX5    B5                                                              DECPRO       916     A     
 DECPRO             LX0    P.LVL             POSITION MASK                                 DECPRO       917     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2549    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             BX1    -X0*X7             EXTRACT DECLARED LEVEL                       DECPRO       918     A     
 DECPRO             SA3    LVL                                                             DECPRO       919     A     
 DECPRO             ZR     X1,DPLEV1A        IF NO PREVIOUS LEVEL                          DECPRO       920     A     
 DECPRO             IX1    X3-X1             COMPARE PREVIOUS LEVEL WITH NEW ONE           DECPRO       921     A     
 DECPRO             NZ     X1,DPLEV.C        IF DIFFERENT LEVELS                           DECPRO       922     A     
 DECPRO                                                                                    DECPRO       923     A     
 DECPRO    DPLEV1A  BX1    X3+X7       INSERT SPECIFIED LEVEL                              DECPRO       924     A     
 DECPRO             LX5    P.VAR                                                           DECPRO       925     A     
 DECPRO             BX7    X1+X5       SET -VAR- BIT                                       DECPRO       926     A     
 DECPRO             SA7    A2                                                              DECPRO       927     A     
 DECPRO                                                                                    DECPRO       928     A     
 DECPRO    DPLEV1B  SA5    RSELECT                                                         DECPRO       929     A     
 DECPRO             ZR     X5,DPLEV2         IF R = 0                                      DECPRO       930     A     
 DECPRO             ADDREF B1,REF            ADD A REFERENCE FOR THE NAME                  DECPRO       931     A     
 DECPRO                                                                                    DECPRO       932     A     
 DECPRO    DPLEV2   GETE                                                                   DECPRO       933     A     
 DECPRO             IF.EQ  EL.COMMA,DPLEV1   IF A COMMA                                    DECPRO       934     A     
 DECPRO                                                                                    DECPRO       935     A     
 DECPRO             IF.EQ  EL.EOS,PH1SCAN    IF EOS                                        DECPRO       936     A     
 DECPRO                                                                                    DECPRO       937     A     
 DECPRO    DPLEV.A  SB6    E.BADSEP          BAD SEPARATOR                                 DECPRO       938     A     
 DECPRO             EQ     CDN.E0                                                          DECPRO       939     A     
 DECPRO                                                                                    DECPRO       940     A     
 DECPRO    DPLEV.B  SB6    E.BADLEV          BAD LEVEL NUMBER                              DECPRO       941     A     
 DECPRO             GETE                                                                   DECPRO       942     A     
 DECPRO             EQ     CDN.E0                                                          DECPRO       943     A     
 DECPRO                                                                                    DECPRO       944     A     
 DECPRO    DPLEV.C  POSTER SEV=INF,NR=E291,FMT=ELIST,TXT=SNAME,RETURN=DPLEV1B              DECPRO       945     A     
 DECPRO                                                                                    DECPRO       946     A     
 DECPRO             USE    /MACBUF/                                                        DECPRO       947     A     
 DECPRO    LVL                               LEVEL BITS FOR SETTING WORD B                 DECPRO       948     A     
 DECPRO             USE    *                                                               DECPRO       949     A     
 DECPRO             TITLE              DIMEN - PROCESS A ARRAY DECLARATION                 DECPRO       950     A     
 DECPRO   ***                                                                              DECPRO       951     A     
 DECPRO   *         DIMEN - PROCESS ARRAY DECLARATION                                      DECPRO       952     A     
 DECPRO   *                                                                                DECPRO       953     A     
 DECPRO   *         ON ENTRY:                                                              DECPRO       954     A     
 DECPRO   *                PREVIOUS CALL TO CDN                                            DECPRO       955     A     
 DECPRO   *                A ( FOLLOWS THE NAME                                            DECPRO       956     A     
 DECPRO   *                                                                                DECPRO       957     A     
 DECPRO   *         ON EXIT:                                                               DECPRO       958     A     
 DECPRO   *                MACRO "GETE" CALLED TO SET UP REGISTERS TO ITEM                 DECPRO       959     A     
 DECPRO   *                AFTER CLOSING PAREN                                             DECPRO       960     A     
 DECPRO   *                                                                                DECPRO       961     A     
 DECPRO   *         FORMS A DIM TAB ENTRY FOR THE NAME AND DIMENSIONS                      DECPRO       962     A     
 DECPRO   *         FORMAT:                                                                DECPRO       963     A     
 DECPRO   *          6/0,18/SYMTAB ORD,36/0                                                DECPRO       964     A     
 DECPRO   *          3/N.SUBS,3/V(ABC),18/NUMBER OF WORDS,18/SUB B,18/SUB A                DECPRO       965     A     
 DECPRO   *          WHERE V(ABC) IS THE VARIABLE SUBSCRIPT FLAG FIELD                     DECPRO       966     A     
 DECPRO   *                                                                                DECPRO       967     A     
 DECPRO                                                                                    DECPRO       968     A     
 DECPRO    DIMEN.B  SB6    E.DBCON           BAD CONSTANT SUBSCRIPT                        DECPRO       969     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2550    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO                                                                                    DECPRO       970     A     
 DECPRO    DIMEN.E  SA4    SNAME                                                           DECPRO       971     A     
 DECPRO             POSTER SEV=FE,NR=**,RETURN=PH1SCAN                                     DECPRO       972     A     
 DECPRO   *                                                                                DECPRO       973     A     
 DECPRO   DIMEN.G   BX7    X2+X6                                                           DECPRO       974     A     
 DECPRO             SA7    A2              STORE WORD B                                    DECPRO       975     A     
 DECPRO             EQ     DIMEN.E                                                         DECPRO       976     A     
 DECPRO             SPACE  3                                                               DECPRO       977     A     
 DECPRO    DIMENX   GETE                      E-LIST ELEMENT AFTER )                       DECPRO       978     A     
 DECPRO                                                                                    DECPRO       979     A     
 DECPRO    DIMEN                                                                           DECPRO       980     A     
 DECPRO             MX7    0                                                               DECPRO       981     A     
 DECPRO             SA7    N.SUBS                                                          DECPRO       982     A     
 DECPRO             SA7    VARSUB            CLEAR FLAGS                                   DECPRO       983     A     
 DECPRO                                                                                    DECPRO       984     A     
 DECPRO   *         PROCESS DIMENSION DECLARATION LIST                                     DECPRO       985     A     
 DECPRO                                                                                    DECPRO       986     A     
 DECPRO                                                                                    DECPRO       987     A     
 DECPRO    DIMEN.L  NEXTE                    SUBSCRIPT ( CONSTANT OR NAME )                DECPRO       988     A     
 DECPRO             UPDATE                                                                 DECPRO       989     A     
 DECPRO             SA2    N.SUBS                                                          DECPRO       990     A     
 DECPRO             SX7    X2+B5             N.SUBS = N.SBUS+1                             DECPRO       991     A     
 DECPRO             SA7    A2                                                              DECPRO       992     A     
 DECPRO             SX3    X2-3                                                            DECPRO       993     A     
 DECPRO             SB6    E.DTMS                                                          DECPRO       994     A     
 DECPRO             PL     X3,DIMEN.E        IF TOO MANY DIMENSIONS                        DECPRO       995     A     
 DECPRO                                                                                    DECPRO       996     A     
 DECPRO             IF.EQ  NAME,DIMEN.V      IF A NAME                                     DECPRO       997     A     
 DECPRO             IF.NE  CON,DIMEN.B       IF NOT A CONSTANT                             DECPRO       998     A     
 DECPRO                                                                                    DECPRO       999     A     
 DECPRO   *         PROCESS CONSTANT DIMENSION                                             DECPRO      1000     A     
 DECPRO                                                                                    DECPRO      1001     A     
 DECPRO             AX1    45                                                              DECPRO      1002     A     
 DECPRO             SX2    X1-T.INT                                                        DECPRO      1003     A     
 DECPRO             SX3    X1-T.OCT                                                        DECPRO      1004     A     
 DECPRO             ZR     X2,DIMEN.C        IF TYPE INTEGER                               DECPRO      1005     A     
 DECPRO             NZ     X3,DIMEN.B        IF NOT TYPE OCTAL                             DECPRO      1006     A     
 DECPRO                                                                                    DECPRO      1007     A     
 DECPRO    DIMEN.C  SB1    -B5                                                             DECPRO      1008     A     
 DECPRO             BX1    X4                                                              DECPRO      1009     A     
 DECPRO             RJ     CONVERT           CONVERT THE CONSTANT                          DECPRO      1010     A     
 DECPRO                                                                                    DECPRO      1011     A     
 DECPRO             BX6    X1                                                              DECPRO      1012     A     
 DECPRO             MX0    0                                                               DECPRO      1013     A     
 DECPRO             AX1    17                                                              DECPRO      1014     A     
 DECPRO             ZR     X6,DIMEN.B        IF ZERO                                       DECPRO      1015     A     
 DECPRO             NZ     X1,DIMEN.B        IF TOO BIG                                    DECPRO      1016     A     
 DECPRO             EQ     DIMEN.S           GO STORE THE SUBSCRIPT                        DECPRO      1017     A     
 DECPRO                                                                                    DECPRO      1018     A     
 DECPRO   *         PROCESS VARIABLE DIMENSION                                             DECPRO      1019     A     
 DECPRO                                                                                    DECPRO      1020     A     
 DECPRO    DIMEN.V  SYMBOL                   GET SYMTAB ORDINAL                            DECPRO      1021     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2551    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO    DIMEN.V1 SB6    E.DIVD            FIRST OCCURRENCE, NOT AN F.P.                 DECPRO      1022     A     
 DECPRO             EQ     DIMEN.G                                                         DECPRO      1023     A     
 DECPRO                                                                                    DECPRO      1024     A     
 DECPRO             BX3    X1                                                              DECPRO      1025     A     
 DECPRO             LX3    59-P.FP                                                         DECPRO      1026     A     
 DECPRO             PL     X3,DIMEN.V1       IF NOT A F.P.                                 DECPRO      1027     A     
 DECPRO                                                                                    DECPRO      1028     A     
 DECPRO    VNRL     BIT    P.VAR-P.RL                                                      DECPRO      1029     A     
 DECPRO             SX4    VNRL+1            SET VAR BIT                                   DECPRO      1030     A     
 DECPRO             LX4    P.RL              AND SET RL = 1 TO FLAG                        DECPRO      1031     A     
 DECPRO             BX7    X4+X2             USED AS SUBSCRIPT IN VARDIM ARRAY             DECPRO      1032     A     
 DECPRO             SA7    A2                                                              DECPRO      1033     A     
 DECPRO                                                                                    DECPRO      1034     A     
 DECPRO             SX0    1S3               VARIABLE SUBSCRIPT FLAG                       DECPRO      1035     A     
 DECPRO             SX6    B1                                                              DECPRO      1036     A     
 DECPRO                                                                                    DECPRO      1037     A     
 DECPRO   *         SAVE DIMENSION INFO                                                    DECPRO      1038     A     
 DECPRO                                                                                    DECPRO      1039     A     
 DECPRO    DIMEN.S  SA3    N.SUBS                                                          DECPRO      1040     A     
 DECPRO             SA4    VARSUB                                                          DECPRO      1041     A     
 DECPRO             SB3    X3                                                              DECPRO      1042     A     
 DECPRO             AX0    B3,X0             POSITION FLAG                                 DECPRO      1043     A     
 DECPRO             BX7    X0+X4                                                           DECPRO      1044     A     
 DECPRO             SA6    DIMTAB-1+X3                                                     DECPRO      1045     A     
 DECPRO             SA7    A4                                                              DECPRO      1046     A     
 DECPRO                                                                                    DECPRO      1047     A     
 DECPRO             ZR     X0,DIMEN.N        IF NOT A VARIABLE SUBSCRIPT                   DECPRO      1048     A     
 DECPRO             SA7    VARDIM            SET FOR VARDIM CHECK IN DPCLOSE               DECPRO      1049     A     
 DECPRO             SA5    RSELECT                                                         DECPRO      1050     A     
 DECPRO             ZR     X5,DIMEN.N                                                      DECPRO      1051     A     
 DECPRO             ADDREF B1,REF            ADD A REFERENCE FOR THE NAME                  DECPRO      1052     A     
 DECPRO                                                                                    DECPRO      1053     A     
 DECPRO    DIMEN.N  GETE                     SEPARATOR                                     DECPRO      1054     A     
 DECPRO             IF.EQ  EL.COMMA,DIMEN.L  LOOP IF A ,                                   DECPRO      1055     A     
 DECPRO                                                                                    DECPRO      1056     A     
 DECPRO             SB6    E.DNT                                                           DECPRO      1057     A     
 DECPRO             IF.NE  EL.),DIMEN.E      IF NO )                                       DECPRO      1058     A     
 DECPRO             UPDATE                   ADVANCE PAST )                                DECPRO      1059     A     
 DECPRO                                                                                    DECPRO      1060     A     
 DECPRO                                                                                    DECPRO      1061     A     
 DECPRO   *         PROCESS ARRAY NAME                                                     DECPRO      1062     A     
 DECPRO                                                                                    DECPRO      1063     A     
 DECPRO             SA3    SAVEB1            SYMTAB ORDINAL                                DECPRO      1064     A     
 DECPRO             SA4    SYM1                                                            DECPRO      1065     A     
 DECPRO             SB1    X3                                                              DECPRO      1066     A     
 DECPRO             LX3    1                                                               DECPRO      1067     A     
 DECPRO             IX6    X4-X3                                                           DECPRO      1068     A     
 DECPRO             SA1    X6                WORD A                                        DECPRO      1069     A     
 DECPRO             SA2    A1-B5             WORD B                                        DECPRO      1070     A     
 DECPRO                                                                                    DECPRO      1071     A     
 DECPRO             BX3    X1                                                              DECPRO      1072     A     
 DECPRO             LX3    59-P.DIM                                                        DECPRO      1073     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2552    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             PL     X3,DIMEN.F        IF NOT DOUBLY DIMENSIONED                     DECPRO      1074     A     
 DECPRO             POSTER SEV=INF,NR=E.DDD,FMT=ELIST,TXT=SNAME,RETURN=DIMENX              DECPRO      1075     A     
 DECPRO                                                                                    DECPRO      1076     A     
 DECPRO   *         CHECK FOR VARIABLE SUBSCRIPTS AND ARRY NAME NOT AN F.P.                DECPRO      1077     A     
 DECPRO                                                                                    DECPRO      1078     A     
 DECPRO    DIMEN.F  SA5    VARSUB                                                          DECPRO      1079     A     
 DECPRO             ZR     X5,DIMEN1         IF NO VARIABLE SUBSCRIPTS                     DECPRO      1080     A     
 DECPRO             BX3    X1                                                              DECPRO      1081     A     
 DECPRO             LX3    59-P.FP                                                         DECPRO      1082     A     
 DECPRO             MI     X3,DIMEN1   IF F.P.                                             DECPRO      1083     A     
 DECPRO             SB6    E.DIVD                                                          DECPRO      1084     A     
 DECPRO             EQ     DIMEN.E                                                         DECPRO      1085     A     
 DECPRO                                                                                    DECPRO      1086     A     
 DECPRO   *         SET UP DIM BIT AND DIMP ORD TO BE STORED IN SYMTAB AFTER ALL           DECPRO      1087     A     
 DECPRO   *         THE POSSIBLE ERROR CHECKING.                                           DECPRO      1088     A     
 DECPRO                                                                                    DECPRO      1089     A     
 DECPRO    DIMEN1   SA3    L.DIM                                                           DECPRO      1090     A     
 DECPRO             SX4    V.DIM                                                           DECPRO      1091     A     
 DECPRO             MX5    1                                                               DECPRO      1092     A     
 DECPRO             SX0    X3+2              NEXT DIM ORD                                  DECPRO      1093     A     
 DECPRO             LX0    P.DIMP-1                                                        DECPRO      1094     A     
 DECPRO             BX6    X4+X1             SET DIM BIT                                   DECPRO      1095     A     
 DECPRO             LX5    1+P.VAR                                                         DECPRO      1096     A     
 DECPRO             IX7    X0+X2             ADD DIMP ORDINAL                              DECPRO      1097     A     
 DECPRO             BX1    X5+X7                                                           DECPRO      1098     A     
 DECPRO                                                                                    DECPRO      1099     A     
 DECPRO   *         FORM SECOND WORD OF THE ENTRY                                          DECPRO      1100     A     
 DECPRO                                                                                    DECPRO      1101     A     
 DECPRO             SA4    N.SUBS                                                          DECPRO      1102     A     
 DECPRO             SA5    VARSUB                                                          DECPRO      1103     A     
 DECPRO             SB4    X4                B4 = N.SUBS                                   DECPRO      1104     A     
 DECPRO             SB6    X5                B6 = VAR SUBS  FLAG                           DECPRO      1105     A     
 DECPRO             LX4    3                                                               DECPRO      1106     A     
 DECPRO             BX7    X4+X5                                                           DECPRO      1107     A     
 DECPRO             LX7    54                3/N.SUBS,3/V(ABC),54/0                        DECPRO      1108     A     
 DECPRO                                                                                    DECPRO      1109     A     
 DECPRO             SB2    B0                CLEAR SUBSCRIPT INDEX                         DECPRO      1110     A     
 DECPRO             SX0    B5                                                              DECPRO      1111     A     
 DECPRO             SB3    B0                CLEAR SHIFT COUNT                             DECPRO      1112     A     
 DECPRO             PX0    X0                INITIALIZE PRODUCT                            DECPRO      1113     A     
 DECPRO                                                                                    DECPRO      1114     A     
 DECPRO    DIMEN3   SA3    DIMTAB+B2         FETCH SUBSCRIPT                               DECPRO      1115     A     
 DECPRO             SB2    B2+B5                                                           DECPRO      1116     A     
 DECPRO             PX5    X3                                                              DECPRO      1117     A     
 DECPRO             LX4    B3,X3                                                           DECPRO      1118     A     
 DECPRO             DX0       X5*X0                                                        DECPRO      1119     A     
 DECPRO             BX7    X4+X7             ADD SUBSCRIPT TO SECOND WORD                  DECPRO      1120     A     
 DECPRO             SB3    B3+18                                                           DECPRO      1121     A     
 DECPRO             LT     B2,B4,DIMEN3                                                    DECPRO      1122     A     
 DECPRO                                                                                    DECPRO      1123     A     
 DECPRO             NZ     B6,DIMEN4         IF VARIABLE SUBSCRIPTS                        DECPRO      1124     A     
 DECPRO             UX2    X0                INTEGER FORM OF RESULT                        DECPRO      1125     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2553    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             AX2    17                                                              DECPRO      1126     A     
 DECPRO             NZ     X2,DIMEN.B        IF WORD COUNT EXCEEDS CORE SIZE               DECPRO      1127     A     
 DECPRO             UX2    X0                                                              DECPRO      1128     A     
 DECPRO             MX3    17                                                              DECPRO      1129     A     
 DECPRO             LX3    17+36                                                           DECPRO      1130     A     
 DECPRO             BX7    -X3*X7            REMOVE THIRD SUBSCRIPT                        DECPRO      1131     A     
 DECPRO             LX2    36                                                              DECPRO      1132     A     
 DECPRO             IX7    X2+X7             ADD IN TOTAL                                  DECPRO      1133     A     
 DECPRO                                                                                    DECPRO      1134     A     
 DECPRO   *         ADD 2 WORD ENTRY FOR ARRAY TO DIMTAB                                   DECPRO      1135     A     
 DECPRO                                                                                    DECPRO      1136     A     
 DECPRO    DIMEN4   SA7    DIMTAB            SAVE SECOND WORD                              DECPRO      1137     A     
 DECPRO             SA6    A1                UPDATE SYMTAB ENTRY FOR WORD A                DECPRO      1138     A     
 DECPRO             BX7    X1                                                              DECPRO      1139     A     
 DECPRO             SA7    A2                FOR WORD B                                    DECPRO      1140     A     
 DECPRO             SX1    B1                SYMTAB ORDINAL                                DECPRO      1141     A     
 DECPRO             LX1    36                                                              DECPRO      1142     A     
 DECPRO             ADDWD  DIM,X1            FIRST WORD                                    DECPRO      1143     A     
 DECPRO             ADDWD  ,DIMTAB           AND SUBSCRIPTS                                DECPRO      1144     A     
 DECPRO             EQ     DIMENX                                                          DECPRO      1145     A     
 DECPRO                                                                                    DECPRO      1146     A     
 DECPRO             TITLE              DPIMP - PROCESS IMPLICIT STATEMENT                  DECPRO      1147     A     
 DECPRO   ***       DPIMP - PROCESS IMPLICIT STATEMENT                                     DECPRO      1148     A     
 DECPRO   *                                                                                DECPRO      1149     A     
 DECPRO   *                                                                                DECPRO      1150     A     
 DECPRO   *                                                                                DECPRO      1151     A     
 DECPRO   *                                                                                DECPRO      1152     A     
 DECPRO   *         THE PREVIOUS TYPE IS CHECKED TO SEE IF IT IS A HEADER CARD             DECPRO      1153     A     
 DECPRO   *         AND IF THERE IS A SYNTAX ERROR.  IN EITHER CASE A FATAL ERROR          DECPRO      1154     A     
 DECPRO   *         IS ISSUED.  THE NATURAL TYPE TABLE IS CLEARED, AND AS                  DECPRO      1155     A     
 DECPRO   *         CHARACTER BOUNDS ARE IMPLICITED, THEY ARE ENTERED IN THE               DECPRO      1156     A     
 DECPRO   *         TABLE.  IN CASE OF FATAL ERRORS IN PROCESSING, THE ORIGINAL            DECPRO      1157     A     
 DECPRO   *         NATURAL BITS ARE RESTORED.  AT THE END OF PROCESSING, THE              DECPRO      1158     A     
 DECPRO   *         NATURAL BITS WHICH HAVE NOT BEEN IMPLICITED ARE ENTERED                DECPRO      1159     A     
 DECPRO   *         IN THE TABLE, FORMAL PARAMETERS ARE IMPLICITED,                        DECPRO      1160     A     
 DECPRO   *         INFORMATIVE DIAGNOSTICS ARE ISSUED,IF ANY, AND THE                     DECPRO      1161     A     
 DECPRO   *         NON-ANSI DIAGNOSTIC IS ISSUED.                                         DECPRO      1162     A     
 DECPRO   *                                                                                DECPRO      1163     A     
 DECPRO   *         REGISTERS USED:                                                        DECPRO      1164     A     
 DECPRO   *                B1           TYPE CURRENTLY BEING IMPLICITED                    DECPRO      1165     A     
 DECPRO   *                             (SET TO ATYPE UPON ENTRY)                          DECPRO      1166     A     
 DECPRO   *                X0           BITS 58 - 33 HOLD THE BITS WHICH HAVE              DECPRO      1167     A     
 DECPRO   *                             BEEN IMPLICITED SO FAR.                            DECPRO      1168     A     
 DECPRO   *                X7           IN BITS 58 - 33 THE BITS TO BE IMPLICITED          DECPRO      1169     A     
 DECPRO   *                             A CERTAIN TYPE                                     DECPRO      1170     A     
 DECPRO   *                                                                                DECPRO      1171     A     
 DECPRO   *                                                                                DECPRO      1172     A     
 DECPRO   *                                                                                DECPRO      1173     A     
 DECPRO    DPIMP    SA1    LASTTYP      BITS 37-20 LAST ATYPE;17-0 LAST STMT TYPE          DECPRO      1174     A     
 DECPRO             AX1    1            IF LAST TYPE 0 OR 1  O.K.                          DECPRO      1175     A     
 DECPRO             SB4    X1                                                              DECPRO      1176     A     
 DECPRO             ZR     B4,IMP2     IF LAST STATEMENT WAS PROG UNIT HEADER              DECPRO      1177     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2554    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             POSTER SEV=FE,NR=E109,RETURN=PH1SCAN *DECL OUT OF SEQUENCE*            DECPRO      1178     A     
 DECPRO                                                                                    DECPRO      1179     A     
 DECPRO    IMP2     SB5    1                                                               DECPRO      1180     A     
 DECPRO             GETE                                                                   DECPRO      1181     A     
 DECPRO             IF.EQ  EL.(,IMP3                                                       DECPRO      1182     A     
 DECPRO             POSTER SEV=FE,NR=E89,FMT=ELIST,TXT=X4,RETURN=PH1SCAN                   DECPRO      1183     A     
 DECPRO    IMP3     SA1    ATYPE                                                           DECPRO      1184     A     
 DECPRO             MX7    0                                                               DECPRO      1185     A     
 DECPRO             BX0    X0-X0       (X0) = INITIAL *ALREADY IMPLICITED* BITS            DECPRO      1186     A     
 DECPRO             SB1    X1          (B1) = FIRST IMPLICIT TYPE CODE                     DECPRO      1187     A     
 DECPRO             SA7    IMPTYP                                                          DECPRO      1188     A     
 DECPRO             SA7    A7+B5                                                           DECPRO      1189     A     
 DECPRO             SA7    A7+B5        ZERO OUT THE NATURAL TYPE TABLE                    DECPRO      1190     A     
 DECPRO                                                                                    DECPRO      1191     A     
 DECPRO   *         MAIN LOOP.                                                             DECPRO      1192     A     
 DECPRO                                                                                    DECPRO      1193     A     
 DECPRO    DPIMP.1  SB3    B1-T.DBL                                                        DECPRO      1194     A     
 DECPRO             MI     B3,DPIMP.10       IF ANY SINGLE PRECISION TYPE                  DECPRO      1195     A     
 DECPRO             GT     B3,B5,DPIMP.10    IF NOT TYPE DOUBLE OR COMPLEX                 DECPRO      1196     A     
 DECPRO             MX6    1                                                               DECPRO      1197     A     
 DECPRO             SA6    =XDBLDECL   /DOUBLE OR COMPLEX DECLAR/ FLAG ON                  DECPRO      1198     A     
 DECPRO                                                                                    DECPRO      1199     A     
 DECPRO   *         FIRST LETTER SCAN.                                                     DECPRO      1200     A     
 DECPRO                                                                                    DECPRO      1201     A     
 DECPRO    DPIMP.10 ADVIN                                                                  DECPRO      1202     A     
 DECPRO             IF.NE  EL.(,ERR1    UNEXPECTED SEPARATOR                               DECPRO      1203     A     
 DECPRO    DPIMP.61 ADVIN                                                                  DECPRO      1204     A     
 DECPRO    DPIMP.6  IF.NE  NAME,ERR2    ILLEGAL CHARACTER BOUND                            DECPRO      1205     A     
 DECPRO             AX1    24                                                              DECPRO      1206     A     
 DECPRO             MX5    60-6                                                            DECPRO      1207     A     
 DECPRO             SX2    X1-3R                                                           DECPRO      1208     A     
 DECPRO             NZ     X2,ERR2      IF NOT A SINGLE CHARACTER                          DECPRO      1209     A     
 DECPRO             AX1    18                                                              DECPRO      1210     A     
 DECPRO             BX2    -X5*X1       MASK OFF CHARACTER BOUND                           DECPRO      1211     A     
 DECPRO             ADVIN                                                                  DECPRO      1212     A     
 DECPRO             IF.EQ  EL.MINUS,SETRNGE                                                DECPRO      1213     A     
 DECPRO                                                                                    DECPRO      1214     A     
 DECPRO   *         SET UP MASK FOR A SINGLE LETTER                                        DECPRO      1215     A     
 DECPRO                                                                                    DECPRO      1216     A     
 DECPRO             MX3    1                                                               DECPRO      1217     A     
 DECPRO             SB7    X2-59-1                                                         DECPRO      1218     A     
 DECPRO             AX3    X3,B7        SHIFT BIT INTO POSITION                            DECPRO      1219     A     
 DECPRO             BX7    X7+X3        MASK INTO CHARACTER MASK                           DECPRO      1220     A     
 DECPRO             IF.EQ  EL.COMMA,DPIMP.61                                               DECPRO      1221     A     
 DECPRO    DPIMP.4  IF.NE  EL.),ERR1    UNEXPECTED SEPARATOR                               DECPRO      1222     A     
 DECPRO                                                                                    DECPRO      1223     A     
 DECPRO   *         PUT THE MASK IN THE IMPTYP TABLE                                       DECPRO      1224     A     
 DECPRO                                                                                    DECPRO      1225     A     
 DECPRO             SX1    B1           TYPE TO BE IMPLICITED                              DECPRO      1226     A     
 DECPRO             MX5    60-1                                                            DECPRO      1227     A     
 DECPRO             BX2    -X5*X1       INDICATE UPPER OR LOWER HALF OF TBL WORD           DECPRO      1228     A     
 DECPRO             AX1    1                                                               DECPRO      1229     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2555    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             SB3    X1           INDICATE WHICH TABLE WORD                          DECPRO      1230     A     
 DECPRO             BX1    X7                                                              DECPRO      1231     A     
 DECPRO             SA4    IMPTYP+B3                                                       DECPRO      1232     A     
 DECPRO             ZR     X2,DPIMP.91                                                     DECPRO      1233     A     
 DECPRO             AX1    58-32        SHIFT THE IMPLICIT MASK IF LOWER HALF              DECPRO      1234     A     
 DECPRO    DPIMP.91 BX3    X1*X4        BITS ALREADY IMPLICITED THIS TYPE                  DECPRO      1235     A     
 DECPRO             BX1    X1-X3        ELIMINATE FROM ALIGNED MASK                        DECPRO      1236     A     
 DECPRO             ZR     X2,DPIMP.92                                                     DECPRO      1237     A     
 DECPRO             SB2    58-32                                                           DECPRO      1238     A     
 DECPRO             LX7    X1,B2        ELIMINATE FROM UNALIGNED MASK                      DECPRO      1239     A     
 DECPRO    DPIMP.92 BX3    X7*X0        BITS ALREADY IMPLICITED ANOTHER TYPE               DECPRO      1240     A     
 DECPRO             ZR     X3,DPIMP.93                                                     DECPRO      1241     A     
 DECPRO             BX7    X7-X3        ELIMINATE FROM UNALIGNED MASK                      DECPRO      1242     A     
 DECPRO             ZR     X2,DPIMP.94                                                     DECPRO      1243     A     
 DECPRO             AX3    58-32                                                           DECPRO      1244     A     
 DECPRO    DPIMP.94 BX1    X1-X3        ELIMINATE FROM ALIGNED MASK                        DECPRO      1245     A     
 DECPRO             SA5    ERRORWD                                                         DECPRO      1246     A     
 DECPRO             MX6    1                                                               DECPRO      1247     A     
 DECPRO             LX6    59                                                              DECPRO      1248     A     
 DECPRO             BX6    X6+X5                                                           DECPRO      1249     A     
 DECPRO             SA6    A5           ISSUE INFORMATIVE DIAGNOSTIC                       DECPRO      1250     A     
 DECPRO    DPIMP.93 BX6    X4+X1        MASK INTO TABLE                                    DECPRO      1251     A     
 DECPRO             BX0    X0+X7        ADD TO TOTAL IMPLICITED BITS                       DECPRO      1252     A     
 DECPRO             BX0    X0+X3        ADD TO TOTAL IMPLICITED BITS                       DECPRO      1253     A     
 DECPRO             SA6    A4                                                              DECPRO      1254     A     
 DECPRO             ADVIN                                                                  DECPRO      1255     A     
 DECPRO             IF.EQ  EL.COMMA,DPIMP.2                                                DECPRO      1256     A     
 DECPRO             IF.NE  EL.EOS,ERR1  UNEXPECTED SEPARATOR                               DECPRO      1257     A     
 DECPRO                                                                                    DECPRO      1258     A     
 DECPRO   *         RESTORE THE NATURAL BITS WHICH HAVE NOT BEEN IMPLICITED                DECPRO      1259     A     
 DECPRO                                                                                    DECPRO      1260     A     
 DECPRO             SA2    NRB          NATURAL REAL BITS                                  DECPRO      1261     A     
 DECPRO             BX6    -X0*X2       N R B  NOT IMPLICITED                              DECPRO      1262     A     
 DECPRO             AX0    58-32                                                           DECPRO      1263     A     
 DECPRO             SA3    IMPTYP+1     2ND WORD OF NAT. TYPE TABLE                        DECPRO      1264     A     
 DECPRO             MX2    6                                                               DECPRO      1265     A     
 DECPRO             BX6    X6+X3        MASK REMAINING NRB INTO TABLE WD                   DECPRO      1266     A     
 DECPRO             LX2    24+1         NATURAL INTEGER BITS                               DECPRO      1267     A     
 DECPRO             SA4    A3-B5        1ST WORD OF NATURAL TYPE TABLE                     DECPRO      1268     A     
 DECPRO             BX7    -X0*X2       N I B  NOT IMPLICITED                              DECPRO      1269     A     
 DECPRO             SA6    A3           STORE BACK INTO TABLE                              DECPRO      1270     A     
 DECPRO             BX7    X7+X4        MASK REMAINING NIB INTO TABLE WD                   DECPRO      1271     A     
 DECPRO             SA7    A4           STORE BACK INTO TABLE                              DECPRO      1272     A     
 DECPRO             EQ     DPIMP.P                                                         DECPRO      1273     A     
 DECPRO                                                                                    DECPRO      1274     A     
 DECPRO   *         SET UP MASK FOR A RANGE OF LETTERS                                     DECPRO      1275     A     
 DECPRO                                                                                    DECPRO      1276     A     
 DECPRO    SETRNGE  ADVIN                                                                  DECPRO      1277     A     
 DECPRO             IF.NE  NAME,ERR2    ILLEGAL CHARACTER BOUND                            DECPRO      1278     A     
 DECPRO             AX1    24                                                              DECPRO      1279     A     
 DECPRO             SB7    X1-3R                                                           DECPRO      1280     A     
 DECPRO             AX1    18                                                              DECPRO      1281     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2556    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             NZ     B7,ERR2      IF NOT A SINGLE CHARACTER                          DECPRO      1282     A     
 DECPRO             MX5    60-6                                                            DECPRO      1283     A     
 DECPRO             BX1    -X5*X1       MASK OFF CHARACTER BOUND                           DECPRO      1284     A     
 DECPRO             IX3    X1-X2        COMPUTE LENGTH OF RANGE - 1                        DECPRO      1285     A     
 DECPRO             PL     X3,DPIMP.5   IF VALID RANGE                                     DECPRO      1286     A     
 DECPRO             BX3    -X3          COMPLEMENT THE LENGTH - 1                          DECPRO      1287     A     
 DECPRO             BX2    X1                                                              DECPRO      1288     A     
 DECPRO             SA5    ERRORWD                                                         DECPRO      1289     A     
 DECPRO             MX6    1                                                               DECPRO      1290     A     
 DECPRO             BX6    X6+X5                                                           DECPRO      1291     A     
 DECPRO             SA6    A5           ISSUE INFORMATIVE DIAGNOSTIC                       DECPRO      1292     A     
 DECPRO    DPIMP.5  SB7    X3           LENGTH OF RANGE - 1                                DECPRO      1293     A     
 DECPRO             MX5    1                                                               DECPRO      1294     A     
 DECPRO             SB6    X2-59-1                                                         DECPRO      1295     A     
 DECPRO             AX3    X5,B7        SET A MASK THE LENGTH OF RANGE                     DECPRO      1296     A     
 DECPRO             AX3    X3,B6        SHIFT TO ALIGN MASK WITH LETTER POSITIONS          DECPRO      1297     A     
 DECPRO             BX7       X7+X3     OR INTO MASK BEING BUILT                           DECPRO      1298     A     
 DECPRO             ADVIN                                                                  DECPRO      1299     A     
 DECPRO             IF.NE  EL.COMMA,DPIMP.4                                                DECPRO      1300     A     
 DECPRO             EQ     DPIMP.61                                                        DECPRO      1301     A     
 DECPRO                                                                                    DECPRO      1302     A     
 DECPRO   *         DETERMINE THE NEXT TYPE TO BE IMPLICITED.                              DECPRO      1303     A     
 DECPRO                                                                                    DECPRO      1304     A     
 DECPRO    DPIMP.2  SB4    4                                                               DECPRO      1305     A     
 DECPRO             ADVIN                                                                  DECPRO      1306     A     
 DECPRO             SB1    B0-B5                                                           DECPRO      1307     A     
 DECPRO             IF.NE  NAME,ERR3    ILLEGAL TYPE SPECIFICATION                         DECPRO      1308     A     
 DECPRO             MX7    0            CLEAR REGISTER TO HOLD IMPLICIT BITS               DECPRO      1309     A     
 DECPRO    DPIMP.3  SA2    B1+TYPETBL+1 LOAD COMPARE WORD FROM TABLE OF TYPES              DECPRO      1310     A     
 DECPRO             SB1    B1+B5                                                           DECPRO      1311     A     
 DECPRO             IX3    X2-X1                                                           DECPRO      1312     A     
 DECPRO             ZR     X3,DPIMP.1   IF A MATCH                                         DECPRO      1313     A     
 DECPRO             GT     B1,B4,ERR3   AT THE END OF THE TABLE AND NO MATCH               DECPRO      1314     A     
 DECPRO             EQ     DPIMP.3                                                         DECPRO      1315     A     
 DECPRO                                                                                    DECPRO      1316     A     
 DECPRO   *         IN CASE OF FATAL ERROR, RESTORE ALL NATURAL BITS                       DECPRO      1317     A     
 DECPRO                                                                                    DECPRO      1318     A     
 DECPRO    DPIMP.N  MX6    6                                                               DECPRO      1319     A     
 DECPRO             SA3    NRB          NATURAL REAL BITS                                  DECPRO      1320     A     
 DECPRO             LX6    24+1         NATURAL INTEGER BITS                               DECPRO      1321     A     
 DECPRO             BX7    X3                                                              DECPRO      1322     A     
 DECPRO             SA6    IMPTYP                                                          DECPRO      1323     A     
 DECPRO             SA7    A6+B5                                                           DECPRO      1324     A     
 DECPRO             EQ     DPIMP.I                                                         DECPRO      1325     A     
 DECPRO                                                                                    DECPRO      1326     A     
 DECPRO   *         IMPLICITLY TYPE FORMAL PARAMETERS OF A SUBROUTINE OR                   DECPRO      1327     A     
 DECPRO   *         FUNCTION , AND THE FUNCTION NAME IF IT WAS NOT                         DECPRO      1328     A     
 DECPRO   *         EXPLICITLY TYPE IN THE PROGRAM HEADER CARD.                            DECPRO      1329     A     
 DECPRO                                                                                    DECPRO      1330     A     
 DECPRO    DPIMP.P  SA1    PROGRAM                                                         DECPRO      1331     A     
 DECPRO             UX7    B3,X1                                                           DECPRO      1332     A     
 DECPRO             ZR     X1,DPIMP.I  IF A BLOCK DATA SUBPROGRAM                          DECPRO      1333     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2557    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO             ZR     B3,DPIMP.I  IF A MAIN PROGRAM                                   DECPRO      1334     A     
 DECPRO             SA1    SYM1         START OF THE SYMBOL TABLE                          DECPRO      1335     A     
 DECPRO             SA2    X1-2                                                            DECPRO      1336     A     
 DECPRO             SB6    B5+B5        SYMBOL TABLE INCREMENT                             DECPRO      1337     A     
 DECPRO             MX5    L.TYP                                                           DECPRO      1338     A     
 DECPRO             SA1    N.FP         NUMBER OF FORMAL PARAMETERS                        DECPRO      1339     A     
 DECPRO             SB4    B6           START AT ORDINAL 2                                 DECPRO      1340     A     
 DECPRO             LX1    1                                                               DECPRO      1341     A     
 DECPRO             SA3    LASTTYP                                                         DECPRO      1342     A     
 DECPRO             SB7    X1+B6        LIMIT TO BE NATURAL TYPED                          DECPRO      1343     A     
 DECPRO             BX1    X2                                                              DECPRO      1344     A     
 DECPRO             EQ     B3,B5,DPIMP.P1                                                  DECPRO      1345     A     
 DECPRO                                                                                    DECPRO      1346     A     
 DECPRO   *         PROCESS FUNCTION NAME                                                  DECPRO      1347     A     
 DECPRO                                                                                    DECPRO      1348     A     
 DECPRO             PL     X3,DPIMP.P1  FUNCTION EXPLICITLY TYPED                          DECPRO      1349     A     
 DECPRO             RJ     NTYPE        GET NATURAL TYPE OF FUNCTION NAME                  DECPRO      1350     A     
 DECPRO             SA1    =XVALUE.                                                        DECPRO      1351     A     
 DECPRO             LX1    1            2 * ORD                                            DECPRO      1352     A     
 DECPRO             SB3    X1-1                                                            DECPRO      1353     A     
 DECPRO             SA4    A2-B3                                                           DECPRO      1354     A     
 DECPRO             BX2    -X5*X4                                                          DECPRO      1355     A     
 DECPRO             BX1    X5*X4        GET TYPE FIELD                                     DECPRO      1356     A     
 DECPRO             LX1    L.TYP                                                           DECPRO      1357     A     
 DECPRO             SX7    B5                                                              DECPRO      1358     A     
 DECPRO             LX6    -P.TYP                                                          DECPRO      1359     A     
 DECPRO             SX0    X6-T.DBL                                                        DECPRO      1360     A     
 DECPRO             LX6    P.TYP                                                           DECPRO      1361     A     
 DECPRO             MI     X0,DPIMP1   IF SINGLE PRECISION                                 DECPRO      1362     A     
 DECPRO             SX7    B5+B5                                                           DECPRO      1363     A     
 DECPRO    DPIMP1   SA7    =XFUNTYPE   FUNTYPE = NUMBER OF WORDS IN FUNCTION RESUL         DECPRO      1364     A     
 DECPRO             SX0    X1-T.DBG                                                        DECPRO      1365     A     
 DECPRO             NZ     X0,DPIMP.P3  NOT UNUSED DEBUG VARIABLE                          DECPRO      1366     A     
 DECPRO    DPIMP.P2 LX6    L.TYP+P.SNT SHIFT NAT TYPE TO SNT POSITION                      DECPRO      1367     A     
 DECPRO             MX0    L.SNT                                                           DECPRO      1368     A     
 DECPRO             LX0    L.SNT+P.SNT                                                     DECPRO      1369     A     
 DECPRO             BX2    -X0*X4       CLEAR SAVE NAT TYPE FIELD                          DECPRO      1370     A     
 DECPRO             BX7    X6+X2        MASK INTO SYMBOL TABLE WORD                        DECPRO      1371     A     
 DECPRO             SA7    A4           STORE BACK INTO SYMBOL TABLE                       DECPRO      1372     A     
 DECPRO    DPIMP.P1 EQ     B7,B4,DPIMP.I                                                   DECPRO      1373     A     
 DECPRO             SA1    A2-B4                                                           DECPRO      1374     A     
 DECPRO             SB4    B4+B6                                                           DECPRO      1375     A     
 DECPRO             RJ     NTYPE        GET NATURAL TYPE                                   DECPRO      1376     A     
 DECPRO             SA4    A1-B5        WORD B OF F.P. SYMBOL TABLE ENTRY                  DECPRO      1377     A     
 DECPRO             BX2    -X5*X4       CLEAR TYPE FIELD                                   DECPRO      1378     A     
 DECPRO             BX3    X5*X4        GET TYPE FIELD                                     DECPRO      1379     A     
 DECPRO             LX3    L.TYP                                                           DECPRO      1380     A     
 DECPRO             SX0    X3-T.DBG                                                        DECPRO      1381     A     
 DECPRO             ZR     X0,DPIMP.P2  AN UNUSED DEBUG VARIABLE                           DECPRO      1382     A     
 DECPRO    DPIMP.P3 BX7    X6+X2                                                           DECPRO      1383     A     
 DECPRO             SA7    A4           ENTER TYPE IN SYMBOL TABLE                         DECPRO      1384     A     
 DECPRO             EQ     DPIMP.P1                                                        DECPRO      1385     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2558    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DECPRO  
  
 DECPRO                                                                                    DECPRO      1386     A     
 DECPRO   *         CHECK FOR INFORMATIVE DIAGNOSTICS TO BE ISSUED                         DECPRO      1387     A     
 DECPRO                                                                                    DECPRO      1388     A     
 DECPRO    DPIMP.I  SA1    ERRORWD                                                         DECPRO      1389     A     
 DECPRO             PL     X1,DPIMP.I1                                                     DECPRO      1390     A     
 DECPRO             POSTER SEV=INF,NR=E47                                                  DECPRO      1391     A     
 DECPRO    DPIMP.I1 SA1    ERRORWD                                                         DECPRO      1392     A     
 DECPRO             LX1    1                                                               DECPRO      1393     A     
 DECPRO             PL     X1,PH1SCAN  IF NO ERROR, EXIT...                                DECPRO      1394     A     
 DECPRO             POSTER SEV=INF,NR=E.TRT,RETURN=PH1SCAN                                 DECPRO      1395     A     
 DECPRO    ERR1     SB6    E.BADSEP                                                        DECPRO      1396     A     
 DECPRO             EQ     ERR.O                                                           DECPRO      1397     A     
 DECPRO    ERR2     SB6    E.BADBND     ILLEGAL CHARACTER BOUND                            DECPRO      1398     A     
 DECPRO             EQ     ERR.O                                                           DECPRO      1399     A     
 DECPRO    ERR3     SB6    E.BADTYP     ILLEGAL TYPE                                       DECPRO      1400     A     
 DECPRO    ERR.O    POSTER SEV=FE,NR=**,RETURN=DPIMP.N                                     DECPRO      1401     A     
 DECPRO                                                                                    DECPRO      1402     A     
 DECPRO                                                                                    DECPRO      1403     A     
 DECPRO                                                                                    DECPRO      1404     A     
 DECPRO    E.BADBND EQU    65           ILLEGAL CHARACTER BOUND                            DECPRO      1405     A     
 DECPRO    E.BADTYP EQU    71           ILLEGAL TYPE                                       DECPRO      1406     A     
 DECPRO    SYMEND   EQU    13B                                                             DECPRO      1407     A     
 DECPRO    TYPETBL  VFD    12/0,48/8CLOGICAL                                               DECPRO      1408     A     
 DECPRO             VFD    12/0,48/8CINTEGER                                               DECPRO      1409     A     
 DECPRO             VFD    12/0,48/8CREAL                                                  DECPRO      1410     A     
 DECPRO             VFD    12/0,48/8CDOUBLE                                                DECPRO      1411     A     
 DECPRO             VFD    12/0,48/8CCOMPLEX                                               DECPRO      1412     A     
 DECPRO    LASTTYP  BSSZ   1                                                               DECPRO      1413     A     
 DECPRO    ERRORWD  BSSZ   1                                                               DECPRO      1414     A     
 DECPRO             END                                                                    DECPRO      1415     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DECPRO  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DECPRO                    1415      1266
          FCC0476                      3         3
          FCC0504                     11         9
          FCC0517                      3         3
          FCC0493                     77        67
          FCC1179                     43        43
          FCC1244                      1         1
          FCC1822X                     2         2
          FCC1946                      8         8
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL   *DECK     PH1CTL                                                                 PH1CTL         1     A     
 PH1CTL             IDENT  PH1CTL                                                          PH1CTL         2     A     
 PH1CTL    PH1CTL   TITLE  PH1CTL -    PHASE 1 CONTROLLER (DECLARATIVE PROCESSING)         PH1CTL         3     A     
 PH1CTL   *CALL     SSTCALL                                                                PH1CTL         4     A     
 PH1CTL             LIST   F,X                                                             PH1CTL         5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2559    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             SPACE  4                                                               PH1CTL         6     A     
 PH1CTL    B=PH1CT  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             PH1CTL         7     A     
 PH1CTL             USE    CODE              FORCE LITERALS TO COME FIRST                  PH1CTL         8     A     
 PH1CTL                                                                                    PH1CTL         9     A     
 PH1CTL             ENTRY  PH1CTL,PH1SCAN                                                  PH1CTL        10     A     
 PH1CTL             ENTRY  PROGC                                                           PH1CTL        11     A     
 PH1CTL                                                                                    PH1CTL        12     A     
 PH1CTL             EXT    START.,CODE.,VALUE.,ST.,FP.,ENTRY.D                             PH1CTL        13     A     
 PH1CTL             EXT    MACFLAG,UFLAG,DFLAG,COMPMSG,RSELECT                             PH1CTL        14     A     
 PH1CTL             EXT    N.FILES,WB.LFN,WB.ESS                                           PH1CTL        15     A     
 PH1CTL             EXT    N.FP                                                            PH1CTL        16     A     
 PH1CTL             EXT    XFRNAME                                                         PH1CTL        17     A     
 PH1CTL             EXT    FWAWORK,FTNEND                                                  PH1CTL        18     A     
 PH1CTL             EXT    CAFLAG,OLIST                                                    PH1CTL        19     A     
 PH1CTL             EXT    CONVERT                                                         PH1CTL        20     A     
 PH1CTL             EXT    ECGS                                                            PH1CTL        21     A     
 PH1CTL             EXT    F.CMPS                                                          PH1CTL        22     A     
 PH1CTL             EXT    INFORM                                                          PH1CTL        23     A     
 PH1CTL             EXT    INITBL                                                          PH1CTL        24     A     
 PH1CTL             EXT    N.EQUF                                                          FCC2064        6     A     
 PH1CTL                                                                                    PH1CTL        25     A     
 PH1CTL    SYM1     EQU    12B                                                             PH1CTL        26     A     
 PH1CTL    SYMEND   EQU    13B                                                             PH1CTL        27     A     
 PH1CTL    TYPE     EQU    24B               STMT TYPE CODE                                PH1CTL        28     A     
 PH1CTL    SELIST   EQU    32B                                                             PH1CTL        29     A     
 PH1CTL    ATYPE    EQU    51B                                                             PH1CTL        30     A     
 PH1CTL                                                                                    PH1CTL        31     A     
 PH1CTL    PROGRAM  EQU    RA.SSW+56B        PROG    12/2000B,48/0                         PH1CTL        32     A     
 PH1CTL   *                                  BLKDTA  60/0                                  PH1CTL        33     A     
 PH1CTL   *                                  SUBR    12/2001B,48/0                         PH1CTL        34     A     
 PH1CTL   *                                  FUNC    12/2002B,48/0                         PH1CTL        35     A     
 PH1CTL                                                                                    PH1CTL        36     A     
 PH1CTL    L.SVCD   EQU    2                 LENGTH OF CODE IN *START.* TO SAVE            PH1CTL        37     A     
 PH1CTL   *                                    AND RESTORE *TEMPA0.*                       PH1CTL        38     A     
 PH1CTL                                                                                    PH1CTL        39     A     
 PH1CTL                                                                                    PH1CTL        40     A     
 PH1CTL    E.HCNF   EQU    55                HEADER CARD APPEARS AFTER FIRST CARD          PH1CTL        41     A     
 PH1CTL    E217     =      217         ERR MSG NR - *PROG START.* GENERATED                PH1CTL        42     A     
 PH1CTL    E224     =      224         ERR MSG NR - *LDR DIRECTIVE SYNTAX ERR*             PH1CTL        43     A     
 PH1CTL    E225     =      225         ERR MSG NR - *NOT ENOUGH MEM FOR LDR DIR*           PH1CTL        44     A     
 PH1CTL    E299     =      299         ERR MSG NR - *NON-ANSI STATEMENT*                   PH1CTL        45     A     
 PH1CTL    E315     =      315         ERR MSG NR - *LDR DIRECTIVE NOT 1ST LINE*           PH1CTL        46     A     
 PH1CTL    E323     =      323                                                             FCC1998       15     A     
 PH1CTL                                                                                    PH1CTL        47     A     
 PH1CTL                                                                                    PH1CTL        48     A     
 PH1CTL   **        STATEMENT TYPE CODES.                                                  PH1CTL        49     A     
 PH1CTL                                                                                    PH1CTL        50     A     
 PH1CTL    ST.FMT   =      9           FORMAT                                              PH1CTL        51     A     
 PH1CTL    ST.END   =      13          END (NORMAL)                                        PH1CTL        52     A     
 PH1CTL    ST.ASG   =      14          ASSIGN                                              PH1CTL        53     A     
 PH1CTL    ST.BAD   =      18          BAD STATEMENT                                       PH1CTL        54     A     
 PH1CTL    ST.INV   =      37          END (INVENTED)                                      PH1CTL        55     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2560    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL    EQX      SPACE  4,3                                                             PH1CTL        56     A     
 PH1CTL    EQX      MACRO  LOC                                                             PH1CTL        57     A     
 PH1CTL             EQ     =X_LOC                                                          PH1CTL        58     A     
 PH1CTL             ENDM                                                                   PH1CTL        59     A     
 PH1CTL   *CALL     DBGCOM                                                                 PH1CTL        60     A     
 PH1CTL                                                                                    PH1CTL        61     A     
 PH1CTL    ESS      MACRO  NAME              ENTER NAME IN SYMTAB AND SAVE ORDINAL         PH1CTL        62     A     
 PH1CTL             SA1    =8R_NAME                                                        PH1CTL        63     A     
 PH1CTL             RJ     ESS                                                             PH1CTL        64     A     
 PH1CTL             SX7    B1                                                              PH1CTL        65     A     
 PH1CTL             SA7    =X_NAME                                                         PH1CTL        66     A     
 PH1CTL             ENDM                                                                   PH1CTL        67     A     
 PH1CTL   *CALL     PARSEM                                                                 PH1CTL        68     A     
 PH1CTL   *CALL     FMACDEF                                                                PH1CTL        69     A     
 PH1CTL             TITLE              DPEXT - PROCESS EXTERNAL STATEMENT                  PH1CTL        70     A     
 PH1CTL   ***                                                                              PH1CTL        71     A     
 PH1CTL   *         DPEXT - PROCESS "EXTERNAL" STMT                                        PH1CTL        72     A     
 PH1CTL   *                                                                                PH1CTL        73     A     
 PH1CTL    E.EXTE   EQU    59                SYNTAX ERROR                                  PH1CTL        74     A     
 PH1CTL    E.CUN    EQU    99                CONFLICTING USE OF NAME                       PH1CTL        75     A     
 PH1CTL                                                                                    PH1CTL        76     A     
 PH1CTL    DPEXT    GETE                                                                   PH1CTL        77     A     
 PH1CTL                                                                                    PH1CTL        78     A     
 PH1CTL    DPEXT.L  IF.NE  NAME,DPEXTE1      IF NOT A NAME                                 PH1CTL        79     A     
 PH1CTL             UPDATE                                                                 PH1CTL        80     A     
 PH1CTL             SYMBOL                                                                 PH1CTL        81     A     
 PH1CTL             IX2    X6+X2             FIRST OCCURANCE, ADD TYPE TO NAME             PH1CTL        82     A     
 PH1CTL             NZ     X7,DPEXT.D        IF PREVIOUS REFS IN A DEBUG STMT              PH1CTL        83     A     
 PH1CTL                                                                                    PH1CTL        84     A     
 PH1CTL   *         SYMBOL PREVIOUSLY REFERENCED                                           PH1CTL        85     A     
 PH1CTL                                                                                    PH1CTL        86     A     
 PH1CTL             EQ     B1,B5,DPEXTE2     ERROR IF ORDINAL 1                            PH1CTL        87     A     
 PH1CTL             MX0    L.TYP                                                           PH1CTL        88     A     
 PH1CTL             BX3    X0*X2                                                           PH1CTL        89     A     
 PH1CTL             LX3    L.TYP                                                           PH1CTL        90     A     
 PH1CTL             SX4    X3-T.LAB                                                        PH1CTL        91     A     
 PH1CTL             PL     X4,DPEXTE2        ERROR IF RETURNS, ETC                         PH1CTL        92     A     
 PH1CTL             BX3    X2                                                              PH1CTL        93     A     
 PH1CTL             LX3    59-P.VAR                                                        PH1CTL        94     A     
 PH1CTL             NG     X3,DPEXTE2        IF PREVIOUS REFS AS A LOCAL VAR               PH1CTL        95     A     
 PH1CTL                                                                                    PH1CTL        96     A     
 PH1CTL    DPEXT3   SX0    B5                                                              PH1CTL        97     A     
 PH1CTL             LX0    P.EXT                                                           PH1CTL        98     A     
 PH1CTL             BX6    X0+X2                                                           PH1CTL        99     A     
 PH1CTL             LX0    P.EST-P.EXT                                                     FCC1716X      29     A     
 PH1CTL             SA5    RSELECT                                                         FCC1716X      30     A     
 PH1CTL             BX6    X0+X6                                                           FCC1716X      31     A     
 PH1CTL             SA6    A2                SET EXT BIT IN WORD B                         PH1CTL       100     A     
 PH1CTL                                                                                    PH1CTL       101     A     
 PH1CTL             SA5    RSELECT                                                         PH1CTL       102          I
          -FCC1716X 
 PH1CTL             ZR     X5,DPEXT4         IF R = 0                                      PH1CTL       103     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2561    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             ADDREF B1,REF            ADD A REFERENCE FOR THE NAME                  PH1CTL       104     A     
 PH1CTL                                                                                    PH1CTL       105     A     
 PH1CTL    DPEXT4   GETE                     SEPERATOR                                     PH1CTL       106     A     
 PH1CTL             IF.EQ  EL.EOS,PH1SCAN    EXIT IF EOS                                   PH1CTL       107     A     
 PH1CTL             IF.NE  EL.COMMA,DPEXTE1  IF NOT A ,                                    PH1CTL       108     A     
 PH1CTL             NEXTE                                                                  PH1CTL       109     A     
 PH1CTL             EQ     DPEXT.L                                                         PH1CTL       110     A     
 PH1CTL                                                                                    PH1CTL       111     A     
 PH1CTL   *         FIRST OCCURANCE                                                        PH1CTL       112     A     
 PH1CTL                                                                                    PH1CTL       113     A     
 PH1CTL    DPEXT.D  CFO    EXT               CHECK SETTING OF DEBUG BITS                   PH1CTL       114     A     
 PH1CTL             IX2    X6+X2             ADD TYPE TO WORD B                            PH1CTL       115     A     
 PH1CTL             EQ     DPEXT3                                                          PH1CTL       116     A     
 PH1CTL                                                                                    PH1CTL       117     A     
 PH1CTL    DPEXTE1  POSTER SEV=FE,NR=E.EXTE,FMT=ELIST,TXT=X4,RETURN=PH1SCAN                PH1CTL       118     A     
 PH1CTL                                                                                    PH1CTL       119     A     
 PH1CTL    DPEXTE2  SA5    SELIST                                                          PH1CTL       120     A     
 PH1CTL             POSTER SEV=FE,NR=E.CUN,FMT=ELIST,TXT=X5+1,RETURN=DPEXT4                PH1CTL       121     A     
 PH1CTL             TITLE              MAIN LOOP                                           PH1CTL       122     A     
 PH1CTL   ***                                                                              PH1CTL       123     A     
 PH1CTL   *         MAIN LOOP FOR DECLARATIVE STATEMENT PROCESSING                         PH1CTL       124     A     
 PH1CTL   *                                                                                PH1CTL       125     A     
 PH1CTL    PH1SCAN  SA5    RSELECT                                                         PH1CTL       126     A     
 PH1CTL             SA2    TEMPB7                                                          PH1CTL       127     A     
 PH1CTL             BX6    X2                                                              PH1CTL       128     A     
 PH1CTL             SA6    =XLASTTYP                                                       PH1CTL       129     A     
 PH1CTL             ZR     X5,PH1S           IF R = 0                                      PH1CTL       130     A     
 PH1CTL             ADDREF B0                TERMINATE THE LINE OF REFERENCES              PH1CTL       131     A     
 PH1CTL                                                                                    PH1CTL       132     A     
 PH1CTL    PH1S     SA1    DFLAG                                                           PH1CTL       133     A     
 PH1CTL             ZR     X1,PH1SA          IF NOT DEBUG MODE                             PH1CTL       134     A     
 PH1CTL                                                                                    PH1CTL       135     A     
 PH1CTL    PH1SA1   SA1    DTYPE                                                           PH1CTL       136     A     
 PH1CTL             ZR     X1,PH1SA          IF NEXT STMT IS NOT A DEBUG STMT              PH1CTL       137     A     
 PH1CTL             CALL   DBGINT            PROCESS DEBUG STMT                            PH1CTL       138     A     
 PH1CTL                                                                                    PH1CTL       139     A     
 PH1CTL    PH1SA    CALL   SCANNER           GET THE STATEMENT TYPE                        PH1CTL       140     A     
 PH1CTL             SA3    ATYPE                                                           PH1CTL       141     A     
 PH1CTL             SX2    B7                                                              PH1CTL       142     A     
 PH1CTL             LX3    20                                                              PH1CTL       143     A     
 PH1CTL             MX6    -20                                                             FCC0840        5     A     
 PH1CTL             BX3    X6*X3                                                           FCC0840        6     A     
 PH1CTL             BX6    X3+X2                                                           PH1CTL       144     A     
 PH1CTL             SA6    TEMPB7                                                          PH1CTL       145     A     
 PH1CTL                                                                                    PH1CTL       146     A     
 PH1CTL    PH1S1    NE     B7,PH1SA2         NOT PROGRAM OR BAD DEBUG CARD                 PH1CTL       147     A     
 PH1CTL             SA1    =XTYPFLAG                                                       PH1CTL       148     A     
 PH1CTL             ZR     X1,PH1SE          PROGRAM CARD                                  PH1CTL       149     A     
 PH1CTL             EQ     PH1SA1                                                          PH1CTL       150     A     
 PH1CTL                                                                                    PH1CTL       151     A     
 PH1CTL    PH1SA2   SB1    DBGFSTT                                                         PH1CTL       152     A     
 PH1CTL             LT     B7,B1,PH1S2       NOT DEBUG CARD                                PH1CTL       153     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2562    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             CALL   DBGINTX           PROCESS DEBUG CARD                            PH1CTL       154     A     
 PH1CTL             EQ     PH1SA                                                           PH1CTL       155     A     
 PH1CTL                                                                                    PH1CTL       156     A     
 PH1CTL    PH1S2    LE     B7,B5,PH1SE IF SECOND (ILLEGAL) PROGRAM UNIT HEADER             PH1CTL       157     A     
 PH1CTL             SB2    ST.FMT      GREATEST TYPE CODE FOR DECLARATIVE STMTS            PH1CTL       158     A     
 PH1CTL             LE     B7,B2,VECJP       IF DECLARATIVE STATEMENT, PROCESS             PH1CTL       159     A     
 PH1CTL             SB2    ST.BAD                                                          PH1CTL       160     A     
 PH1CTL             EQ     B7,B2,PH1SCAN     IGNORE *BAD* STATEMENT                        PH1CTL       161     A     
 PH1CTL             EQ     =XDPCLOSE         TERMINATE DECLARATIVE PROCESSING              PH1CTL       162     A     
 PH1CTL                                                                                    PH1CTL       163     A     
 PH1CTL    VECJP    JP     VECTAB+B7                                                       PH1CTL       164     A     
 PH1CTL                                                                                    PH1CTL       165     A     
 PH1CTL    VECTAB   BSS    0                                                               PH1CTL       166     A     
 PH1CTL             LOC    0                                                               PH1CTL       167     A     
 PH1CTL             EQ     DPROG       PROGRAM, BLOCK DATA, SUBROUTINE                     PH1CTL       168     A     
 PH1CTL             EQ     DPFUN       FUNCTION                                            PH1CTL       169     A     
 PH1CTL             EQX    DPLEV       LEVEL                                               PH1CTL       170     A     
 PH1CTL             EQX    DPIMP        PROCESS IMPLICIT STATEMENT                         PH1CTL       171     A     
 PH1CTL             EQX    DPCOM             COMMON                                        PH1CTL       172     A     
 PH1CTL             EQX    DPDIM             DIMENSION                                     PH1CTL       173     A     
 PH1CTL             EQ     DPEXT             EXTERNAL                                      PH1CTL       174     A     
 PH1CTL             EQX    DPEQU             EQUIVALENCE                                   PH1CTL       175     A     
 PH1CTL             EQX    DPTYP             TYPE ...                                      PH1CTL       176     A     
 PH1CTL             RJ     =XFORMAT          FORMAT(                                       PH1CTL       177     A     
 PH1CTL             EQ     PH1SCAN                                                         PH1CTL       178     A     
 PH1CTL             LOC    *O                                                              PH1CTL       179     A     
 PH1CTL                                                                                    PH1CTL       180     A     
 PH1CTL    TEMPB7   BSSZ   1                                                               PH1CTL       181     A     
 PH1CTL             SPACE  3                                                               PH1CTL       182     A     
 PH1CTL    PH1SE    SB6    -E.HCNF           HEADER CARD AFTER THE FIRST CARD              PH1CTL       183     A     
 PH1CTL             NZ     B7,PH1SE2   IF NOT *OVERLAY*                                    PH1CTL       184     A     
 PH1CTL             SA1    ATYPE                                                           PH1CTL       185     A     
 PH1CTL             SB2    X1-3                                                            PH1CTL       186     A     
 PH1CTL             NZ     B2,PH1SE2                                                       PH1CTL       187     A     
 PH1CTL             SB6    -E315                                                           PH1CTL       188     A     
 PH1CTL    PH1SE2   POSTER SEV=FE,NR=**,RETURN=PH1S                                        PH1CTL       189     A     
 PH1CTL    ESF      SPACE  4,8                                                             PH1CTL       190     A     
 PH1CTL   **        ESF - ENTER SPECIAL SYMBOLS IN *SYMTAB* FOR SUBROUTINE                 PH1CTL       191     A     
 PH1CTL   *                 OR FUNCTION SUBPROGRAMS.                                       PH1CTL       192     A     
 PH1CTL   *                                                                                PH1CTL       193     A     
 PH1CTL   *         ENTRY  (FUNTYPE) = LENGTH (IN WORDS) OF SET FUNCTION RESULT            PH1CTL       194     A     
 PH1CTL   *                             TO X6 (AND X7 IF 2 WORD RESULT) CODE               PH1CTL       195     A     
 PH1CTL   *                          = 0 IF NOT A FUNCTION SUBPROGRAM                      PH1CTL       196     A     
 PH1CTL   *                                                                                PH1CTL       197     A     
 PH1CTL   *                (TEMPA0.) = LENGTH (IN WORDS) OF SAVE AND RESTORE (A0)          PH1CTL       198     A     
 PH1CTL   *                             CODE                                               PH1CTL       199     A     
 PH1CTL   *                          = 0 IF NO FORMAL PARAMETERS OR RETURNS                PH1CTL       200     A     
 PH1CTL   *                                                                                PH1CTL       201     A     
 PH1CTL   *                (N.FP)    = NUMBER OF F.P. S OR ZERO IF NONE.                   RSM3545C      34     A     
 PH1CTL   *                            USED AS A FLAG TO DETERMINE WHETHER                 RSM3545C      35     A     
 PH1CTL   *                            *SPA.* IS NEEDED OR NOT. (NOTE - *ESS*              RSM3545C      36     A     
 PH1CTL   *                            SETS PROGRAM RELATIVE BIT.)                         RSM3545C      37     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2563    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL   *                                                                                RSM3545C      38     A     
 PH1CTL   *         EXIT   (START.)  = LENGTH OF *START.* BLOCK                            PH1CTL       202     A     
 PH1CTL   *                                                                                PH1CTL       203     A     
 PH1CTL   *                (TRACE.)  = *SYMTAB* ORDINAL OF CGS *TRACE.* - (ADDR OF         PH1CTL       204     A     
 PH1CTL   *                             TRACEBACK INFORMATION FOR OBJECT PROGRAM)          PH1CTL       205     A     
 PH1CTL   *                                                                                PH1CTL       206     A     
 PH1CTL   *                (TEMPA0.) = *SYMTAB* ORDINAL OF CGS *TEMPA0.* - (ADDR           PH1CTL       207     A     
 PH1CTL   *                             OF WORD CONTAINING THE SAVED CONTENTS              PH1CTL       208     A     
 PH1CTL   *                             OF A0)                                             PH1CTL       209     A     
 PH1CTL   *                          = 0 IF NO FORMAL PARAMETERS OR RETURNS                PH1CTL       210     A     
 PH1CTL   *                                                                                PH1CTL       211     A     
 PH1CTL   *                (EXIT.)   = *SYMTAB* ORDINAL OF CGS *EXIT.* - (ADDR OF          PH1CTL       212     A     
 PH1CTL   *                             FOLDED EXIT CODE FOR OBJECT PROGRAM)               PH1CTL       213     A     
 PH1CTL   *                                                                                PH1CTL       214     A     
 PH1CTL   *                (ENTRY.)  = *SYMTAB* ORDINAL OF CGS *ENTRY.* - (ADDR OF         PH1CTL       215     A     
 PH1CTL   *                             ENTRY POINT TO OBJECT PROGRAM)                     PH1CTL       216     A     
 PH1CTL   *                                                                                PH1CTL       217     A     
 PH1CTL   *         USES   ALL                                                             PH1CTL       218     A     
 PH1CTL   *                                                                                PH1CTL       219     A     
 PH1CTL   *         CALLS  ESS                                                             PH1CTL       220     A     
 PH1CTL                                                                                    PH1CTL       221     A     
 PH1CTL                                                                                    PH1CTL       222     A     
 PH1CTL    ESF      ENTRY. **          ** ENTRY/EXIT **                                    PH1CTL       223     A     
 PH1CTL                                                                                    PH1CTL       224     A     
 PH1CTL             ESS    TRACE.      *TRACE.* TO SYMTAB, RA = 0 IN *START.*              PH1CTL       225     A     
 PH1CTL                                                                                    PH1CTL       226     A     
 PH1CTL             SX6    B5                                                              PH1CTL       227     A     
 PH1CTL             SA4    =XTEMPA0.                                                       PH1CTL       228     A     
 PH1CTL             SA6    =XSTART.    LENGTH OF *START.* = 1                              PH1CTL       229     A     
 PH1CTL             ZR     X4,ESF2     IF NO FPS OR RETURNS                                PH1CTL       230     A     
 PH1CTL                                                                                    PH1CTL       231     A     
 PH1CTL             ESS    TEMPA0.     *TEMPA0.* TO SYMTAB                                 PH1CTL       232     A     
 PH1CTL                                                                                    PH1CTL       233     A     
 PH1CTL             MX0    -1                                                              PH1CTL       234     A     
 PH1CTL             SA2    =XSTART.                                                        PH1CTL       235     A     
 PH1CTL             SX7    X2+B5       LENGTH OF *START.* + 1                              PH1CTL       236     A     
 PH1CTL             IX3    X7+X0       RA = LENGTH OF *START.* - 1                         PH1CTL       237     A     
 PH1CTL             SA7    A2                                                              PH1CTL       238     A     
 PH1CTL             LX3    P.RA                                                            PH1CTL       239     A     
 PH1CTL             BX6    X6+X3                                                           PH1CTL       240     A     
 PH1CTL             SA6    A6                                                              PH1CTL       241     A     
 PH1CTL                                                                                    PH1CTL       242     A     
 PH1CTL    ESF2     ESS    EXIT.       *EXIT.* TO SYMTAB                                   PH1CTL       243     A     
 PH1CTL                                                                                    PH1CTL       244     A     
 PH1CTL             MX0    -1                                                              PH1CTL       245     A     
 PH1CTL             SA2    =XSTART.                                                        PH1CTL       246     A     
 PH1CTL             SX7    X2+B5                                                           PH1CTL       247     A     
 PH1CTL             IX3    X7+X0       RA = LENGTH OF *START.* - 1                         PH1CTL       248     A     
 PH1CTL             SA7    A2                                                              PH1CTL       249     A     
 PH1CTL             LX3    P.RA                                                            PH1CTL       250     A     
 PH1CTL             BX6    X6+X3                                                           PH1CTL       251     A     
 PH1CTL             SA6    A6                                                              PH1CTL       252     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2564    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL                                                                                    PH1CTL       253     A     
 PH1CTL             ESS    ENTRY.      *ENTRY.* TO SYMTAB                                  PH1CTL       254     A     
 PH1CTL                                                                                    PH1CTL       255     A     
 PH1CTL             SB2    -B5         (B2) = -1                                           PH1CTL       256     A     
 PH1CTL             SA1    =XTEMPA0.                                                       PH1CTL       257     A     
 PH1CTL             SA2    =XSTART.                                                        PH1CTL       258     A     
 PH1CTL             ZR     X1,ESF3     IF NO FPS OR RETURNS                                PH1CTL       259     A     
 PH1CTL             SB2    B2+B2       (B2) = -2                                           PH1CTL       260     A     
 PH1CTL             SX2    X2+L.SVCD   (X2) = LEN *START.* + LEN SAVE/REST A0 CODE         PH1CTL       261     A     
 PH1CTL                                                                                    PH1CTL       262     A     
 PH1CTL    ESF3     SA3    =XFUNTYPE                                                       PH1CTL       263     A     
 PH1CTL             SA5    =XCO.ER                                                         FEAT155A      19     A     
 PH1CTL             IX7    X2+X3       (X7) = LENGTH OF *START.* BLOCK                     PH1CTL       264     A     
 PH1CTL             SX4    X7+B2       (X4) = RA OF *ENTRY.*                               PH1CTL       265     A     
 PH1CTL             LX5    1                                                               FEAT155A      20     A     
 PH1CTL             IX4    X4+X5                                                           FEAT155A      21     A     
 PH1CTL             SA7    A2                                                              PH1CTL       266     A     
 PH1CTL             LX4    P.RA                                                            PH1CTL       267     A     
 PH1CTL             BX6    X6+X4                                                           PH1CTL       268     A     
 PH1CTL             MX0    L.ADF                                                           PH1CTL       269     A     
 PH1CTL             SA6    A6                                                              PH1CTL       270     A     
 PH1CTL             LX0    L.ADF+P.ADF                                                     PH1CTL       271     A     
 PH1CTL             BX6    X6*X0                                                           PH1CTL       272     A     
 PH1CTL             SA6    ENTRY.D     SAVE ADDR DEF BITS FOR *ENDPRO*                     PH1CTL       273     A     
 PH1CTL                                                                                    RSM3545C      39     A     
 PH1CTL   *         SET *SPA.* IN SYMTAB IF NEEDED.                                        RSM3545C      40     A     
 PH1CTL                                                                                    RSM3545C      41     A     
 PH1CTL             SA1    N.FP                                                            RSM3545C      42     A     
 PH1CTL             ZR     X1,ESF      IF NO F.P. S, EXIT..                                RSM3545C      43     A     
 PH1CTL             ADEXTS =8RSPA.                                                         RSM3545C      44     A     
 PH1CTL             LX0    T.CGS-P.EXT ADD IN *CGS* BIT                                    RSM3545C      45     A     
 PH1CTL             BX7    X0+X7                                                           RSM3545C      46     A     
 PH1CTL             SA7    A7                                                              RSM3545C      47     A     
 PH1CTL             EQ     ESF         EXIT..                                              RSM3545C      48     A     
 PH1CTL             EQ     ESF         EXIT...                                             PH1CTL       274     A     
 PH1CTL    ESS      SPACE  4,8                                                             PH1CTL       275     A     
 PH1CTL   **        ESS - ENTER SPECIAL SYMBOL IN SYMTAB.                                  PH1CTL       276     A     
 PH1CTL   *                                                                                PH1CTL       277     A     
 PH1CTL   *         SETS TYPE TO CGS AND RL = 1 ( PROGRAM RELOCATABLE ).                   PH1CTL       278     A     
 PH1CTL   *                                                                                PH1CTL       279     A     
 PH1CTL   *         ENTRY  (X1) = SYMBOL, DISPLAY CODE.                                    PH1CTL       280     A     
 PH1CTL                                                                                    PH1CTL       281     A     
 PH1CTL                                                                                    PH1CTL       282     A     
 PH1CTL    ESS1     SA3    WB.ESS            TYPE , RL AND RB                              PH1CTL       283     A     
 PH1CTL             BX6    X2+X3                                                           PH1CTL       284     A     
 PH1CTL             SA6    A2                                                              PH1CTL       285     A     
 PH1CTL                                                                                    PH1CTL       286     A     
 PH1CTL    ESS      ENTRY. *                 ** ENTRY/EXIT **                              PH1CTL       287     A     
 PH1CTL             SYMBOL ,ESS1             ENTER NAME IN SYMTAB                          PH1CTL       288     A     
 PH1CTL             TITLE              PHASE 1 INITIALIZATION                              PH1CTL       289     A     
 PH1CTL   ************************************************************************         PH1CTL       290     A     
 PH1CTL   *                                                                                PH1CTL       291     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2565    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL   *         THIS CODE OVERLAID AFTER HEADER CARD PROCESSING                        PH1CTL       292     A     
 PH1CTL   *                                                                                PH1CTL       293     A     
 PH1CTL                                                                                    FEAT155F     233     A     
 PH1CTL   *         IF (BREAK=21) WAS SELECTED, ENTRY TO OVERLAY(2,1) WILL BE TO           FEAT155F     234     A     
 PH1CTL   *         *FTN21-1* TO CALL THE COMPILE-TIME INTERACTIVE DEBUG PACKAGE.          FEAT155F     235     A     
 PH1CTL                                                                                    FEAT155F     236     A     
 PH1CTL    FTN21    BREAK                                                                  FEAT155F     237     A     
 PH1CTL                                                                                    FEAT155F     238     A     
 PH1CTL             ENTRY  FTN21                                                           PH1CTL       294     A     
 PH1CTL    FTN21    BSS    0           ** LOADER ENTRY POINT **                            PH1CTL       295     A     
 PH1CTL    PH1CTL   BSS    0                                                               PH1CTL       296     A     
 PH1CTL                                                                                    FEAT121L     656     A     
 PH1CTL   *         COPY MASTER LIST CONTROL FLAGS TO WORKING LIST CONTROL FLAGS.          FEAT121L     657     A     
 PH1CTL                                                                                    FEAT121L     658     A     
 PH1CTL             MOVE   =XL.MSTR,=XLSTMSTR,=XLSTWRKG                                    FEAT121L     659     A     
 PH1CTL                                                                                    FEAT121L     660     A     
 PH1CTL             MX6    1                                                               FEAT121L     661     A     
 PH1CTL             SA6    =XNOLIST    SET TO *LIST,ALL* MODE                              FEAT121L     662     A     
 PH1CTL                                                                                    PH1CTL       297     A     
 PH1CTL   *         INITIALIZE LISTING TITLE LINE.                                         PH1CTL       298     A     
 PH1CTL                                                                                    PH1CTL       299     A     
 PH1CTL             SA1    =1H                                                             PH1CTL       300     A     
 PH1CTL             SB1    1                                                               PH1CTL       301     A     
 PH1CTL             BX6    X1                                                              PH1CTL       302     A     
 PH1CTL             NO                                                                     PH1CTL       303          I
          -F162FTNA 
 PH1CTL             MX7    18                                                              F162FTNA     943     A     
 PH1CTL             SA6    =XTL.PTYP                                                       PH1CTL       304     A     
 PH1CTL             SA6    =XTL.PNAM                                                       PH1CTL       305     A     
 PH1CTL                                                                                    F162FTNA     944     A     
 PH1CTL   *         CLEAR STATIC LOAD SELECTIONS.                                          F162FTNA     945     A     
 PH1CTL                                                                                    F162FTNA     946     A     
 PH1CTL             SA1    =XSTLTAB+1  *STLCRM.* MUST REMAIN PERMANENTLY SELECTED          F162FTNA     947     A     
 PH1CTL    CTL1     BX6    -X7*X1                                                          F162FTNA     948     A     
 PH1CTL             SA6    A1                                                              F162FTNA     949     A     
 PH1CTL             SA1    A1+B1                                                           F162FTNA     950     A     
 PH1CTL             NZ     X1,CTL1     IF NOT END OF STATIC LOAD TABLE                     F162FTNA     951     A     
 PH1CTL             SA1    =XSTLTAB+1  SELECT *STLRP2.* IF *ER* OPTION ON                  F162FTNA     952     A     
 PH1CTL             SA2    =XCO.ER                                                         F162FTNA     953     A     
 PH1CTL             BX6    X1+X2                                                           F162FTNA     954     A     
 PH1CTL             SA6    A1                                                              F162FTNA     955     A     
 PH1CTL                                                                                    PH1CTL       306     A     
 PH1CTL   *         INITALIZE WORKING STORAGE ADDRESSES.                                   PH1CTL       307     A     
 PH1CTL                                                                                    PH1CTL       308     A     
 PH1CTL             SA1    =XSYM1      (X1) = INVERTED FWA SYMBOL TABLE                    PH1CTL       309     A     
 PH1CTL             SX7    F.WORK1     LWA PASS 1 CODE                                     PH1CTL       310     A     
 PH1CTL             BX6    X1                                                              PH1CTL       311     A     
 PH1CTL             NO                                                                     PH1CTL       312     A     
 PH1CTL             SA7    =XFWAWORK                                                       PH1CTL       313     A     
 PH1CTL             SA6    =XSYMEND    INITIALIZE SYMBOL TABLE LWA = FWA                   PH1CTL       314     A     
 PH1CTL             PLUG   AT=(=XLFER),TO=(=XFATALER)                                      PH1CTL       315     A     
 PH1CTL             SA1    =XANSI                                                          PH1CTL       316     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2566    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             SX6    027B                                                            PH1CTL       317     A     
 PH1CTL             NO                                                                     PH1CTL       318     A     
 PH1CTL             LX6    51          (X6) = / JP B7 / INSTRUCTION                        PH1CTL       319     A     
 PH1CTL             NZ     X1,CTL2     IF NON-ANSI DIAGNOSTIC LIST (X) OPTION ON           PH1CTL       320     A     
 PH1CTL             PLUG   AT=(=XASAER),FROM=X6                                            PH1CTL       321     A     
 PH1CTL    CTL2     SA1    =XIEFLG                                                         PH1CTL       322     A     
 PH1CTL             NZ     X1,CTL3     IF INFORMATIVE DIAGNOSTICS DESIRED                  PH1CTL       323     A     
 PH1CTL             PLUG   AT=(=XINFORM),FROM=X6                                           PH1CTL       324     A     
 PH1CTL    CTL3     SA1    =XPROGNAM   NAME OF LAST PROGRAM UNIT COMPILED                  PH1CTL       325     A     
 PH1CTL             BX6    X1                                                              PH1CTL       326     A     
 PH1CTL             MX7    0                                                               PH1CTL       327     A     
 PH1CTL             ZR     X1,CTL4     IF FIRST COMPILATION                                PH1CTL       328     A     
 PH1CTL             SA6    NULL2       NAME TO *NULL PROG ...* MESSAGE TEXT                PH1CTL       329     A     
 PH1CTL    CTL4     SA7    A1          CLEAR PROGRAM UNIT NAME FOR -ERPRO-                 PH1CTL       330     A     
 PH1CTL    CTL5     SA2    DFLAG                                                           PH1CTL       331     A     
 PH1CTL             ZR     X2,CTL6     IF DEBUG NOT SELECTED                               PH1CTL       332     A     
 PH1CTL             CALL   DBGEPKT     PROCESS EXTERNAL PACKET                             PH1CTL       333     A     
 PH1CTL             EQ     CTL7                                                            PH1CTL       334     A     
 PH1CTL                                                                                    PH1CTL       335     A     
 PH1CTL    CTL6     CALL   SCANNER     GET NEXT STATEMENT                                  PH1CTL       336     A     
 PH1CTL    CTL7     SB6    ST.END                                                          PH1CTL       337     A     
 PH1CTL             EQ     B6,B7,CTL8  IF NORMAL *END*                                     PH1CTL       338     A     
 PH1CTL             SB6    ST.INV                                                          PH1CTL       339     A     
 PH1CTL             NE     B6,B7,CTL9  IF NOT INVENTED *END*                               PH1CTL       340     A     
 PH1CTL                                                                                    PH1CTL       341     A     
 PH1CTL   *         FALL THROUGH HERE MEANS -END- WAS ENCOUNTERED BEFORE                   PH1CTL       342     A     
 PH1CTL   *         ANY VALID FORTRAN STATEMENTS.                                          PH1CTL       343     A     
 PH1CTL                                                                                    PH1CTL       344     A     
 PH1CTL    CTL8     CALL   DSL         DUMP SAVED LINES (*SCANNER* MAY STILL BE            PH1CTL       345     A     
 PH1CTL   *                            IN DEFERRED LIST MODE IF A VALID HEADER             PH1CTL       346     A     
 PH1CTL   *                            LINE HAS NOT BEEN FOUND.)                           PH1CTL       347     A     
 PH1CTL             SA1    =XCER.FL                                                        FCC2104       20     A     
 PH1CTL             SX6    1                                                               FCC2104       21     A     
 PH1CTL             SA6    A1                                                              FCC2104       22     A     
 PH1CTL             MESSAGE   NULL1,,RCL     *NULL PROGRAM IGNORED AFTER ...*              PH1CTL       348     A     
 PH1CTL             SA1    =XN.FERR                                                        PH1CTL       349          I
          -FCC2360
 PH1CTL             SA3    =XCO.ABT                                                        FCC2360        9     A     
 PH1CTL             LX3    59-29                                                           FCC2360       10     A     
 PH1CTL             PL     X3,CTL8A    IF NO A PARAMETER                                   FCC2360       11     A     
 PH1CTL             MESSAGE NULL3,,RCL                                                     FCC2360       12     A     
 PH1CTL    CTL8A    SA1    =XN.FERR                                                        FCC2360       13     A     
 PH1CTL             NZ     X1,=XLDPS2  IF ERROR(S) BEFORE END LINE                         PH1CTL       350          I
          -FCC1795X 
 PH1CTL             EQ     =XFTNEND    GO FIND OUT IF ANY MORE INPUT                       PH1CTL       351          I
          -FCC1795X 
 PH1CTL             ZR     X1,=XFTNEND  IF NO ERRORS DETECTED BEFORE *END* LINE            FCC1795X       4     A     
 PH1CTL                                                                                    PH1CTL       352     A     
 PH1CTL    CTL9     SB6    2                                                               PH1CTL       353     A     
 PH1CTL             SA3    ATYPE                                                           PH1CTL       354     A     
 PH1CTL             SX2    B7                                                              PH1CTL       355     A     
 PH1CTL             LX3    20                                                              PH1CTL       356     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2567    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             MX6    -20                                                             FCC0840        7     A     
 PH1CTL             BX3    X6*X3                                                           FCC0840        8     A     
 PH1CTL             BX6    X3+X2                                                           PH1CTL       357     A     
 PH1CTL             SA6    TEMPB7                                                          PH1CTL       358     A     
 PH1CTL             LT     B7,B6,VECJP       IF PROGRAM,SUBROUTINE,FUNCTION, ETC.          PH1CTL       359     A     
 PH1CTL                                                                                    PH1CTL       360     A     
 PH1CTL   *         INSERT FAKE PROGRAM CARD "PROGRAM START.(INPUT,OUTPUT)"                PH1CTL       361     A     
 PH1CTL                                                                                    PH1CTL       362     A     
 PH1CTL    PROGC    POSTER SEV=INF,NR=E217                                                 PH1CTL       363     A     
 PH1CTL                                                                                    FCC2306       12     A     
 PH1CTL   *         RESET TYPE TO PREVENT PROPAGATED ERRORS                                FCC2306       13     A     
 PH1CTL   *         CAUSED BY FAULTY HEADER CARD                                           FCC2306       14     A     
 PH1CTL                                                                                    FCC2306       15     A     
 PH1CTL             SA1    TEMPB7                                                          FCC2306       16     A     
 PH1CTL             MX6    -20                                                             FCC2306       17     A     
 PH1CTL             BX6    X6*X1                                                           FCC2306       18     A     
 PH1CTL             SA6    A1                                                              FCC2306       19     A     
 PH1CTL                                                                                    PH1CTL       364     A     
 PH1CTL    PTR57    SA1    DFLAG                                                           PH1CTL       365     A     
 PH1CTL             MX6    59                                                              PH1CTL       366     A     
 PH1CTL             ZR     X1,PTR57A    IF NOT IN DEBUG MODE                               PH1CTL       367     A     
 PH1CTL             SA6    NOPROG      SET TO NO PROGRAM CARD CONDITION                    PH1CTL       368     A     
 PH1CTL             RJ     DBGIPKT                                                         PH1CTL       369     A     
 PH1CTL    PTR57A   SA1    SELIST                                                          PH1CTL       370     A     
 PH1CTL             SX6    DUMMY                                                           PH1CTL       371     A     
 PH1CTL             BX7    X1                                                              PH1CTL       372     A     
 PH1CTL             SA6    A1                SELIST = DUMMY ELIST ADDRESS                  PH1CTL       373     A     
 PH1CTL             SA7    SVELIST           SAVE E LIST POINTER                           PH1CTL       374     A     
 PH1CTL             EQ     PROG.D       GO PROCESS DUMMY PROGRAM CARD                      PH1CTL       375     A     
 PH1CTL             SPACE  3                                                               PH1CTL       376     A     
 PH1CTL             PURGMAC   ELIST                                                        PH1CTL       377     A     
 PH1CTL    ELIST    MACRO  T,NAME            ASSEMBLY TIME E - LIST                        PH1CTL       378     A     
 PH1CTL   +         VFD    12/2000B+T                                                      PH1CTL       379     A     
 PH1CTL             IFC    NE,//NAME/                                                      PH1CTL       380     A     
 PH1CTL             VFD    48/8H_NAME                                                      PH1CTL       381     A     
 PH1CTL             ELSE                                                                   PH1CTL       382     A     
 PH1CTL             VFD    48/0                                                            PH1CTL       383     A     
 PH1CTL             ENDIF                                                                  PH1CTL       384     A     
 PH1CTL             ENDM                                                                   PH1CTL       385     A     
 PH1CTL                                                                                    PH1CTL       386     A     
 PH1CTL             ELIST  4                 EOS                                           PH1CTL       387     A     
 PH1CTL             ELIST  2                 )                                             PH1CTL       388     A     
 PH1CTL             ELIST  1,OUTPUT                                                        PH1CTL       389     A     
 PH1CTL             ELIST  3                 ,                                             PH1CTL       390     A     
 PH1CTL             ELIST  1,INPUT                                                         PH1CTL       391     A     
 PH1CTL             ELIST  6                 (                                             PH1CTL       392     A     
 PH1CTL    DUMMY    ELIST  1,START.                                                        PH1CTL       393     A     
 PH1CTL    SVELIST                           SAVED VALUE OF THE E LIST POINTER             PH1CTL       394     A     
 PH1CTL                                                                                    PH1CTL       395     A     
 PH1CTL                                                                                    PH1CTL       396     A     
 PH1CTL    NULL1    DIS    3,  NULL PROGRAM IGNORED AFTER                                  PH1CTL       397     A     
 PH1CTL    NULL2    DIS    ,/*B-O-I*/                                                      PH1CTL       398     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2568    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL    NULL3    DIS    ,/ NULL PROGRAM - HONOR THE A PARAMETER/                        FCC2360       14     A     
 PH1CTL             TITLE              EXITS FROM THE HEADER CARD PROCESSORS               PH1CTL       399     A     
 PH1CTL    PROGRTN  OUTUSE DATA.             SET RELOCATION BASE                           PH1CTL       400     A     
 PH1CTL                                                                                    PH1CTL       401     A     
 PH1CTL   *         ENTER SPECIAL SYMBOLS IN SYMTAB                                        PH1CTL       402     A     
 PH1CTL                                                                                    PH1CTL       403     A     
 PH1CTL             SA1    =8RST.                                                          PH1CTL       404     A     
 PH1CTL             RJ     ECGS              ENTER ST. IN SYMTAB AND SET DEF BIT           PH1CTL       405     A     
 PH1CTL             SX7    B1                                                              PH1CTL       406     A     
 PH1CTL             SA7    ST.               SAVE SYMTAB ORDINAL                           PH1CTL       407     A     
 PH1CTL             SA5    PROGRAM                                                         PH1CTL       408     A     
 PH1CTL             SB2    B5+B5                                                           PH1CTL       409     A     
 PH1CTL             UX5    B3,X5                                                           PH1CTL       410     A     
 PH1CTL             NE     B3,B2,PROGR1      IF NOT A FUNCTION                             PH1CTL       411     A     
 PH1CTL             SYMBOL =8RVALUE.         VALUE. TO SYMTAB                              PH1CTL       412     A     
 PH1CTL             SA4    VALUE.            (VALUE.)=FUNCTION TYPE                        PH1CTL       413     A     
 PH1CTL             LX4    P.TYP                                                           PH1CTL       414     A     
 PH1CTL             BX7    X4+X2                                                           PH1CTL       415     A     
 PH1CTL             SX0    B5                                                              PH1CTL       416     A     
 PH1CTL             LX0    P.VAR                                                           PH1CTL       417     A     
 PH1CTL             BX7    X0+X7             SET VAR BIT                                   PH1CTL       418     A     
 PH1CTL             SA7    A2                UPDATE WORD B                                 PH1CTL       419     A     
 PH1CTL             SX6    B1                                                              PH1CTL       420     A     
 PH1CTL             SA6    A4                (VALUE.)=SYMTAB ORD OF *VALUE.*               PH1CTL       421     A     
 PH1CTL    PROGR1   SA1    PFLAG                                                           PH1CTL       422     A     
 PH1CTL             ZR     X1,PROGR2         IF NOT A PROGRAM                              PH1CTL       423     A     
 PH1CTL             ADEXTS X1                ADD Q8NTRY. TO SYMTAB                         PH1CTL       424     A     
 PH1CTL                                                                                    PH1CTL       425     A     
 PH1CTL   *         ALLOCATE TABLES FOR PHASE 1 , OVERLAY HEADER CARD CODE                 PH1CTL       426     A     
 PH1CTL                                                                                    PH1CTL       427     A     
 PH1CTL    PROGR2   SX6    PH1CTL                                                          PH1CTL       428     A     
 PH1CTL             RJ     INITBL            INITIALIZE TABLES FOR PHASE 1                 PH1CTL       429     A     
 PH1CTL             SA5    DFLAG                                                           PH1CTL       430     A     
 PH1CTL             ZR     X5,PROGR3         IF NOT DEBUG MODE                             PH1CTL       431     A     
 PH1CTL             SA4    N.FP                                                            PH1CTL       432     A     
 PH1CTL             ZR     X4,PROGR3         IF NO FORMAL PARAMETERS                       PH1CTL       433     A     
 PH1CTL             SA1    =8RFP.                                                          PH1CTL       434     A     
 PH1CTL             RJ     ECGS              FP. TO SYMTAB                                 PH1CTL       435     A     
 PH1CTL             SX7    B1                                                              PH1CTL       436     A     
 PH1CTL             SA7    FP.               SAVE SYMTAB ORDINAL                           PH1CTL       437     A     
 PH1CTL    PROGR3   SA1    SVELIST                                                         PH1CTL       438     A     
 PH1CTL             ZR     X1,PROGR4         IF WE DIDNT SAVE ANYTHING                     PH1CTL       439     A     
 PH1CTL             SA2    TYPE                                                            PH1CTL       440     A     
 PH1CTL             BX6    X1                                                              PH1CTL       441     A     
 PH1CTL             SB7    X2                B7 = STATEMENT TYPE                           PH1CTL       442     A     
 PH1CTL             SA6    SELIST            RESTORE E LIST POINTER                        PH1CTL       443     A     
 PH1CTL             SB3    B7-13                                                           PH1CTL       444     A     
 PH1CTL             LE     B7,B5,PH1SCAN     IF BAD HEADER LINE, DONT REPROCESS IT         PH1CTL       445     A     
 PH1CTL             SB4    B7-37                                                           PH1CTL       446     A     
 PH1CTL             ZR     B3,=XLDPS2    IF END CARD FOUND                                 PH1CTL       447     A     
 PH1CTL             ZR     B4,=XLDPS2    IF EOR ENCOUNTERED                                PH1CTL       448     A     
 PH1CTL             EQ     PH1S1             PROCESS THE STMT                              PH1CTL       449     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2569    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL                                                                                    PH1CTL       450     A     
 PH1CTL    PROGR4   SA1    DFLAG                                                           PH1CTL       451     A     
 PH1CTL             ZR     X1,PH1SCAN        IF NOT DEBUG MODE                             PH1CTL       452     A     
 PH1CTL             CALL   DBGIPKT           PROCESS INTERNAL PACKET                       PH1CTL       453     A     
 PH1CTL             EQ     PH1SCAN                                                         PH1CTL       454     A     
 PH1CTL             TITLE              PROGRAM CARD PROCESSOR                              PH1CTL       455     A     
 PH1CTL    M.BUF    EQU    360BS9            MAXIMUM BUFFER SIZE                           PH1CTL       456     A     
 PH1CTL    M.FILES  EQU    50D               MAXIMUM NUMBER OF FILES ALLOWED               PH1CTL       457          I
          -FCC2246
 PH1CTL    M.FILES  EQU    49D               MAXIMUM NUMBER OF FILES ALLOWED               FCC2246        8     A     
 PH1CTL                                                                                    PH1CTL       458     A     
 PH1CTL   *         ERROR NUMBERS                                                          PH1CTL       459     A     
 PH1CTL                                                                                    PH1CTL       460     A     
 PH1CTL    E.HCSE   EQU    23                HEADER CARD SYNTAX ERROR                      PH1CTL       461     A     
 PH1CTL    E.TMC    EQU    24                FILE NAME MORE THAN 6 CHARACTERS              PH1CTL       462     A     
 PH1CTL    E.DFN    EQU    25                DUPLICATE FILE NAME                           PH1CTL       463     A     
 PH1CTL    E.FEE    EQU    27                FILE NAME EQUIVALENCE ERROR                   PH1CTL       464     A     
 PH1CTL    E.TMF    EQU    108               TOO MANY FILES                                PH1CTL       465     A     
 PH1CTL    E.FSTB   EQU    234               FILE SIZE TOO BIG ( INFORMATIVE )             PH1CTL       466     A     
 PH1CTL    E.RLTB   =      177               RECORD LENGTH TOO BIG                         PH1CTL       467     A     
 PH1CTL                                                                                    PH1CTL       468     A     
 PH1CTL    PFLAG                                                                           PH1CTL       469     A     
 PH1CTL    LI                                LOOP INDEX ( A TEMPORARY )                    PH1CTL       470     A     
 PH1CTL    RLFLAG   =      LI          FLAG TO INDICATE RECORD LENGTH PROCESSING           PH1CTL       471     A     
 PH1CTL                                                                                    PH1CTL       472     A     
 PH1CTL   ***                                                                              PH1CTL       473     A     
 PH1CTL   *         PLFN - PREPARE FILE NAME FOR SYMTAB                                    PH1CTL       474     A     
 PH1CTL   *                                                                                PH1CTL       475     A     
 PH1CTL   *         ON ENTRY:                                                              PH1CTL       476     A     
 PH1CTL   *                X1 = 8R_NAME                                                    PH1CTL       477     A     
 PH1CTL   *                                                                                PH1CTL       478     A     
 PH1CTL   *         ON EXIT:                                                               PH1CTL       479     A     
 PH1CTL   *                X1 = 8R_NAME"C" - NAME WITH SPECIAL CHARACTER APPENDED          PH1CTL       480     A     
 PH1CTL   *                                                                                PH1CTL       481     A     
 PH1CTL                                                                                    PH1CTL       482     A     
 PH1CTL             QUAL   PLFN                                                            PH1CTL       483     A     
 PH1CTL                                                                                    PH1CTL       484     A     
 PH1CTL    PLFN     SUBR               ** ENTRY/EXIT **                                    PH1CTL       485     A     
 PH1CTL             RJ     RTB         REMOVE TRAILING BLANKS                              PH1CTL       486     A     
 PH1CTL             BX1    X6                                                              PH1CTL       487          I
          -FCC0946
 PH1CTL             BX1    X6                                                              FCC0946        6     A     
 PH1CTL             AX1    5*6                                                             FCC0946        7     A     
 PH1CTL             MX0    -6                                                              FCC0946        8     A     
 PH1CTL             BX0    -X0*X1      THIRD CHARACTER                                     FCC0946        9     A     
 PH1CTL             SX1    1R$                                                             FCC0946       10     A     
 PH1CTL             BX0    X1-X0                                                           FCC0946       11     A     
 PH1CTL             NZ     X0,PLFN1    IF THIRD CHARACTER NOT *$*                          FCC0946       12     A     
 PH1CTL             LX1    5*6                                                             FCC0946       13     A     
 PH1CTL             BX6    X6-X1                                                           FCC0946       14     A     
 PH1CTL    PLFN1    BX1    X6                                                              FCC0946       15     A     
 PH1CTL             LX1    2*6+6*6                                                         PH1CTL       488     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2570    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             AX1    6*6                                                             PH1CTL       489     A     
 PH1CTL             NZ     X1,PLFN2    IF NAME LENGTH .GT. 6 CHARACTERS, ERROR             PH1CTL       490     A     
 PH1CTL             SA1    =1H"C"      (X1) = SPECIAL CHARACTER, BLANK FILLED              PH1CTL       491     A     
 PH1CTL             SB7    =XGT1       (B7) = WSA FOR *MCS*                                PH1CTL       492     A     
 PH1CTL             SA6    =XGT1                                                           PH1CTL       493     A     
 PH1CTL             RJ     MCS         MERGE CHARACTER STRINGS                             PH1CTL       494     A     
 PH1CTL             SA1    =XGT1                                                           PH1CTL       495     A     
 PH1CTL             EQ     EXIT.                                                           PH1CTL       496     A     
 PH1CTL                                                                                    PH1CTL       497     A     
 PH1CTL    PLFN2    POSTER SEV=FE,NR=E.TMC,FMT=ELIST,TXT=X4,RETURN=PROGRTN                 PH1CTL       498     A     
 PH1CTL    PLFN     SPACE  4,2                                                             PH1CTL       499     A     
 PH1CTL             QUAL   *                                                               PH1CTL       500     A     
 PH1CTL    PLFN     =      /PLFN/PLFN                                                      PH1CTL       501     A     
 PH1CTL             SPACE  3                                                               PH1CTL       502     A     
 PH1CTL    PROG.SE  POSTER SEV=FE,NR=E.HCSE,FMT=ELIST,TXT=X4,RETURN=PROGRTN                PH1CTL       503     A     
 PH1CTL             EJECT                                                                  PH1CTL       504     A     
 PH1CTL    DPROG    SA2    ATYPE                                                           PH1CTL       505     A     
 PH1CTL             SB7    X2                                                              PH1CTL       506     A     
 PH1CTL             JP     PRGTYP+B7         SPLIT PROGRAM,BLOCK DATA,SUBROUTINE           PH1CTL       507     A     
 PH1CTL    PRGTYP   EQ     DPBDA             BLOCK DATA                                    PH1CTL       508     A     
 PH1CTL             EQ     DPSUB             SUBROUTINE                                    PH1CTL       509     A     
 PH1CTL             EQ     PROG0             *PROGRAM*                                     PH1CTL       510     A     
 PH1CTL             EQ     PLD               *OVERLAY*                                     PH1CTL       511     A     
 PH1CTL                                                                                    PH1CTL       512     A     
 PH1CTL    PROG0    POSTERR   SEV=ANSI,NR=E299                                             PH1CTL       513     A     
 PH1CTL    PROG.D   SX7    T.ENT        BEGIN DPROG                                        PH1CTL       514     A     
 PH1CTL             RJ     PPN               PROCESS PROGRAM NAME                          PH1CTL       515     A     
 PH1CTL             MX5    0                                                               PH1CTL       516     A     
 PH1CTL             PX6    X5                                                              PH1CTL       517     A     
 PH1CTL             SA6    PROGRAM           PROGRAM = 12/2000B,48/0                       PH1CTL       518     A     
 PH1CTL             SA2    =XPROGNAM                                                       PH1CTL       519     A     
 PH1CTL             BX7    X2                                                              PH1CTL       520     A     
 PH1CTL             SA7    XFRNAME           SAVE XFER NAME                                PH1CTL       521     A     
 PH1CTL                                                                                    PH1CTL       522     A     
 PH1CTL             GETE                     FIRST ELEMENT AFTER NAME                      PH1CTL       523     A     
 PH1CTL             IF.EQ  EL.EOS,PROG.X     IF END OF STMT                                PH1CTL       524     A     
 PH1CTL             IF.NE  EL.(,PROG.SE      IF NO OPENING PAREN                           PH1CTL       525     A     
 PH1CTL                                                                                    PH1CTL       526     A     
 PH1CTL   *         PROCESS FILE NAME DECLARATIONS                                         PH1CTL       527     A     
 PH1CTL   *         SAVE INFORMATION IN TEMPORARY TABLE, FORMAT:                           PH1CTL       528     A     
 PH1CTL   *                6/0,18/RECORD LENGTH,18/ORD(LFN),18/BUFFER SIZE                 PH1CTL       529     A     
 PH1CTL   *                1/1,23/0,18/ORD(LFN1),18/ORD(LFN2)                              PH1CTL       530     A     
 PH1CTL                                                                                    PH1CTL       531     A     
 PH1CTL    PROG1    NEXTE                                                                  PH1CTL       532     A     
 PH1CTL             IF.NE  NAME,PROG.SE      IF NOT A NAME                                 PH1CTL       533     A     
 PH1CTL             UPDATE                                                                 PH1CTL       534     A     
 PH1CTL             SA2    N.FILES                                                         PH1CTL       535     A     
 PH1CTL             SX0    X2-M.FILES                                                      PH1CTL       536     A     
 PH1CTL             MI     X0,PROG1A         IF NOT TOO MANY FILES                         PH1CTL       537     A     
 PH1CTL             POSTER SEV=FE,NR=E.TMF,RETURN=PROGRTN      *TOO MANY FILES*            PH1CTL       538     A     
 PH1CTL                                                                                    PH1CTL       539     A     
 PH1CTL    PROG1A   SX6    X2+B5             N.FILES = N.FILES + 1                         PH1CTL       540     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2571    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             SA6    A2                                                              PH1CTL       541     A     
 PH1CTL             RJ     PLFN              PREPARE NAME                                  PH1CTL       542     A     
 PH1CTL             SYMBOL                   AND ENTER IN SYMTAB                           PH1CTL       543     A     
 PH1CTL             SA3    WB.LFN            TYPE , RL AND RB                              PH1CTL       544     A     
 PH1CTL             EQ     PROG2                                                           PH1CTL       545     A     
 PH1CTL                                                                                    PH1CTL       546     A     
 PH1CTL             SA5    SELIST                                                          PH1CTL       547     A     
 PH1CTL             POSTERR   NR=E.DFN,SEV=FE,FMT=ELIST,TXT=X5+1,RETURN=PROGRTN            PH1CTL       548     A     
 PH1CTL                                                                                    PH1CTL       549     A     
 PH1CTL    PROG2    SA4    N.FILES                                                         PH1CTL       550     A     
 PH1CTL             BX7    X3+X2             SET WORD B BITS                               PH1CTL       551     A     
 PH1CTL             SA7    A2                                                              PH1CTL       552     A     
 PH1CTL             SX6    B1                                                              PH1CTL       553     A     
 PH1CTL             SA5    =XOT.RM                                                         PH1CTL       554     A     
 PH1CTL             SX7    L.FIT6+L.FET6+L.IOBUF6                                          PH1CTL       555          I
          -F162FTNA 
 PH1CTL             SX7    L.IOBUF6                                                        F162FTNA     956     A     
 PH1CTL             ZR     X5,PROG2A   IF 6RM OBJECT MODE                                  PH1CTL       556     A     
 PH1CTL             SX7    L.FIT7+L.FET7+L.IOBUF7                                          PH1CTL       557          I
          -F162FTNA 
 PH1CTL             SX7    L.IOBUF7                                                        F162FTNA     957     A     
 PH1CTL    PROG2A   LX6    18                                                              PH1CTL       558     A     
 PH1CTL             BX6    X6+X7                                                           PH1CTL       559     A     
 PH1CTL             SA6    O.LFN-1+X4        STORE LFN TAB ENTRY                           PH1CTL       560     A     
 PH1CTL                                                                                    PH1CTL       561     A     
 PH1CTL             GETE                     NEXT ELEMENT - A SEPERATOR                    PH1CTL       562     A     
 PH1CTL             IF.EQ  EL.COMMA,PROG1    LOOP IF A ,                                   PH1CTL       563     A     
 PH1CTL             IF.NE  EL.=,PROG4        IF NOT AN = S                                 PH1CTL       564     A     
 PH1CTL                                                                                    PH1CTL       565     A     
 PH1CTL             NEXTE                                                                  PH1CTL       566     A     
 PH1CTL             UPDATE                                                                 PH1CTL       567     A     
 PH1CTL             IF.EQ  NAME,PROG.N       IF A NAME                                     PH1CTL       568     A     
 PH1CTL             MX6    0                                                               PH1CTL       569     A     
 PH1CTL             SA6    RLFLAG            CLEAR *PROCESSING MRL* FLAG                   PH1CTL       570     A     
 PH1CTL             IF.NE  EL.SLASH,PROG.B2  IF NOT A SLASH                                PH1CTL       571     A     
 PH1CTL    PROG.B1  NEXTE                                                                  PH1CTL       572     A     
 PH1CTL             UPDATE                                                                 PH1CTL       573     A     
 PH1CTL             SA3    RLFLAG                                                          PH1CTL       574     A     
 PH1CTL             NZ     X3,PROG.SE        IF A SLASH (/) HAS BEEN PROCESSED             PH1CTL       575     A     
 PH1CTL             MX6    10                                                              PH1CTL       576     A     
 PH1CTL             SA6    A3                TURN *PROCESSING MRL* FLAG ON                 PH1CTL       577     A     
 PH1CTL    PROG.B2  IF.NE  CON,PROG.SE       IF NOT A CONSTANT                             PH1CTL       578     A     
 PH1CTL                                                                                    PH1CTL       579     A     
 PH1CTL   *         PROCESS BUFFER LENGTH OR RECORD LENGTH.                                PH1CTL       580     A     
 PH1CTL                                                                                    PH1CTL       581     A     
 PH1CTL             AX1    45                                                              PH1CTL       582     A     
 PH1CTL             SX2    X1-T.OCT                                                        PH1CTL       583     A     
 PH1CTL             SX3    X1-T.INT                                                        PH1CTL       584     A     
 PH1CTL             ZR     X2,PROG.C         IF OCTAL                                      PH1CTL       585     A     
 PH1CTL             NZ     X3,PROG.SE        IF NOT INTEGER                                PH1CTL       586     A     
 PH1CTL                                                                                    PH1CTL       587     A     
 PH1CTL    PROG.C   BX1    X4                E-LIST                                        PH1CTL       588     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2572    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             SB1    -B5                                                             PH1CTL       589     A     
 PH1CTL             RJ     CONVERT           CONVERT CONSTANT TO BINARY                    PH1CTL       590     A     
 PH1CTL             SA4    N.FILES                                                         PH1CTL       591     A     
 PH1CTL             SA5    O.LFN-1+X4                                                      PH1CTL       592     A     
 PH1CTL             SA3    RLFLAG                                                          PH1CTL       593     A     
 PH1CTL             NZ     X3,PROG.B3        IF PROCESSING RECORD LENGTH                   PH1CTL       594     A     
 PH1CTL                                                                                    PH1CTL       595     A     
 PH1CTL   *         PROCESS BUFFER LENGTH.  (BUF LEN IGNORED IF 7RM SELECTED.)             PH1CTL       596     A     
 PH1CTL                                                                                    PH1CTL       597     A     
 PH1CTL             PL     X1,PROG.C1  IF BUFFER LENGTH NOT NEGATIVE                       PH1CTL       598     A     
 PH1CTL             POSTER SEV=FE,NR=E.HCSE,RETURN=PROGRTN                                 PH1CTL       599     A     
 PH1CTL                                                                                    PH1CTL       600     A     
 PH1CTL    PROG.C1  SA3    =XOT.RM                                                         PH1CTL       601     A     
 PH1CTL             NZ     X3,PROG3    IF 7RM OBJECT MODE IGNORE BUFFER LENGTH             PH1CTL       602     A     
 PH1CTL             SX2    M.BUF             MAXIMUM PERMISSIBLE BUFFER LENGTH             PH1CTL       603     A     
 PH1CTL             IX3    X2-X1                                                           PH1CTL       604     A     
 PH1CTL             AX3    59                                                              PH1CTL       605     A     
 PH1CTL             BX1    -X3*X1                                                          PH1CTL       606     A     
 PH1CTL             BX2    X3*X2                                                           PH1CTL       607     A     
 PH1CTL             IX1    X1+X2             MIN OF (REQUESTED LENGTH, MAX LENGTH)         PH1CTL       608     A     
 PH1CTL             MX0    42                                                              PH1CTL       609     A     
 PH1CTL             SX6    X1+L.FIT6+L.FET6+1                                              PH1CTL       610          I
          -FCC1463X 
 PH1CTL             SX6    X1+L.FIT6+L.FET6+3                                              FCC1463X      22          I
          -F162FTNA 
 PH1CTL             SX6    X1                                                              F162FTNA     958     A     
 PH1CTL             ZR     X1,PROG.C2                                                      F162FTNA     959     A     
 PH1CTL             SX6    X1+3        INCR 3 TO PREVENT S-TAPE PROBLEMS                   F162FTNA     960     A     
 PH1CTL             BX5    X0*X5             REMOVE DEFAULT BUFFER LENGTH                  PH1CTL       611          I
          -F162FTNA 
 PH1CTL    PROG.C2  BX5    X0*X5       REMOVE DEFAULT BUFFER LENGTH                        F162FTNA     961     A     
 PH1CTL             IX7    X5+X6             INSERT NEW BUFFER LENGTH                      PH1CTL       612     A     
 PH1CTL             SA7    A5                                                              PH1CTL       613     A     
 PH1CTL             PL     X3,PROG3          IF REQUESTED LENGTH .LE. MAX LENGTH           PH1CTL       614     A     
 PH1CTL             SA5    SELIST                                                          PH1CTL       615     A     
 PH1CTL             POSTERR   NR=E.FSTB,SEV=INF,FMT=ELIST,TXT=X5+3,RETURN=PROG3            PH1CTL       616     A     
 PH1CTL    PROG.B3  SX3    X1                                                              PH1CTL       617     A     
 PH1CTL             AX1    17                                                              PH1CTL       618     A     
 PH1CTL             ZR     X1,PROG.B4        IF LEN<18 BITS                                PH1CTL       619     A     
 PH1CTL             SA5    SELIST                                                          PH1CTL       620     A     
 PH1CTL             POSTERR   NR=E.RLTB,SEV=FE,FMT=ELIST,TXT=X5+1,RETURN=PROGRTN           PH1CTL       621     A     
 PH1CTL    PROG.B4  LX3    36                                                              PH1CTL       622     A     
 PH1CTL             IX6    X5+X3             INSERT MRL INTO FILE WORD                     PH1CTL       623     A     
 PH1CTL             SA6    A5                                                              PH1CTL       624     A     
 PH1CTL                                                                                    PH1CTL       625     A     
 PH1CTL    PROG3    GETE                     SEPERATOR                                     PH1CTL       626     A     
 PH1CTL             IF.EQ  EL.COMMA,PROG1    LOOP IF A COMMA                               PH1CTL       627     A     
 PH1CTL             IF.EQ  EL.SLASH,PROG.B1  IF TO CHECK FOR RECORD LENGTH                 PH1CTL       628     A     
 PH1CTL             EQ     PROG4                                                           PH1CTL       629     A     
 PH1CTL                                                                                    PH1CTL       630     A     
 PH1CTL   *         FILE NAME EQUIVALENCING - LFN1 = LFN2                                  PH1CTL       631     A     
 PH1CTL                                                                                    PH1CTL       632     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2573    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL    PROG.N   RJ     PLFN                                                            PH1CTL       633     A     
 PH1CTL             SYMBOL                   GET SYMTAB ORDINAL                            PH1CTL       634     A     
 PH1CTL             EQ     PROG.EE           IF LFN2 NOT IN THE TABLE                      PH1CTL       635     A     
 PH1CTL                                                                                    PH1CTL       636     A     
 PH1CTL   +         SA4    N.FILES                                                         PH1CTL       637     A     
 PH1CTL             SA5    O.LFN-1+X4                                                      PH1CTL       638     A     
 PH1CTL             AX5    18                                                              PH1CTL       639     A     
 PH1CTL             SB3    X5                                                              PH1CTL       640     A     
 PH1CTL             EQ     B3,B1,PROG.EE     X = X IS ILLEGAL                              PH1CTL       641     A     
 PH1CTL             LX5    18                                                              PH1CTL       642     A     
 PH1CTL             SX6    B1                                                              PH1CTL       643     A     
 PH1CTL             MX7    1                                                               PH1CTL       644     A     
 PH1CTL             BX5    X5+X6                                                           PH1CTL       645     A     
 PH1CTL             IX6    X7+X5             1/1,23/0,18/ORD(LFN1),18/ORD(LFN2)            PH1CTL       646     A     
 PH1CTL             SA6    A5                                                              PH1CTL       647     A     
 PH1CTL             EQ     PROG3                                                           PH1CTL       648     A     
 PH1CTL                                                                                    PH1CTL       649     A     
 PH1CTL    PROG.EE  SA5    SELIST                                                          PH1CTL       650     A     
 PH1CTL             POSTERR   NR=E.FEE,SEV=FE,FMT=ELIST,TXT=X5+1,RETURN=PROG3              PH1CTL       651     A     
 PH1CTL                                                                                    PH1CTL       652     A     
 PH1CTL    PROG4    IF.NE  EL.),PROG.SE      IF NOT A )                                    PH1CTL       653     A     
 PH1CTL             NEXTE                                                                  PH1CTL       654     A     
 PH1CTL             IF.NE  EL.EOS,PROG.SE    IF NEXT IS NOT EOS                            PH1CTL       655     A     
 PH1CTL                                                                                    PH1CTL       656     A     
 PH1CTL   *         STORE ADDRESS"S OF FILE NAMES IN WORD B OF SYMTAB ENTRIES              PH1CTL       657     A     
 PH1CTL                                                                                    PH1CTL       658     A     
 PH1CTL             SA5    SYM1                                                            PH1CTL       659     A     
 PH1CTL             SA4    N.FILES                                                         PH1CTL       660     A     
 PH1CTL             SA0    X5                A0 = SYM1                                     PH1CTL       661     A     
 PH1CTL             SB1    O.LFN             FWA                                           PH1CTL       662     A     
 PH1CTL             SB2    B1+X4             LWA+1                                         PH1CTL       663     A     
 PH1CTL             SB3    18-1                                                            PH1CTL       664     A     
 PH1CTL             SB7    P.RA                                                            PH1CTL       665     A     
 PH1CTL             MX0    L.RA                                                            PH1CTL       666     A     
 PH1CTL             LX0    L.RA+P.RA                                                       PH1CTL       667     A     
 PH1CTL             SX7    B0                X7 = LENGTH OF START.                         PH1CTL       668     A     
 PH1CTL                                                                                    PH1CTL       669     A     
 PH1CTL    PROG5    SA1    B1                LFN TAB ENTRY                                 PH1CTL       670     A     
 PH1CTL             SB1    B1+B5                                                           PH1CTL       671     A     
 PH1CTL             AX3    B3,X1                                                           PH1CTL       672     A     
 PH1CTL             SX5    X1                LENGTH OR ORD OF LFN2                         PH1CTL       673     A     
 PH1CTL             SB4    X3+B5             2*ORD+1                                       PH1CTL       674     A     
 PH1CTL             SA2    A0-B4             WORD B OF LFN1                                PH1CTL       675     A     
 PH1CTL             NG     X1,PROG5B         IF EQUIV                                      PH1CTL       676          I
          -F162FTNA 
 PH1CTL             AX1    36                                                              PH1CTL       677          I
          -F162FTNA 
 PH1CTL             SX6    X1                                                              PH1CTL       678          I
          -F162FTNA 
 PH1CTL             ZR     X6,PROG5AA        IF NO MRL SPECIFIED                           PH1CTL       679          I
          -F162FTNA 
 PH1CTL             CW     X3,X6             (X3) = MRL (WORDS)                            PH1CTL       680          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2574    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
          -F162FTNA 
 PH1CTL             SX1    X3+4              MRL/10 + 4                                    PH1CTL       681          I
          -F162FTNA 
 PH1CTL             IX5    X1+X5             ADD ALLOCATION FOR MRL TO BUFFER SIZE         PH1CTL       682          I
          -F162FTNA 
 PH1CTL    PROG5AA  BSS    0                                                               PH1CTL       683          I
          -F162FTNA 
 PH1CTL             LX4    B7,X7                                                           PH1CTL       684          I
          -F162FTNA 
 PH1CTL             IX7    X5+X7             INCREMENT LENGTH OF START.                    PH1CTL       685          I
          -F162FTNA 
 PH1CTL             BX6    X4+X2             ADD RA TO FILE NAME                           PH1CTL       686          I
          -F162FTNA 
 PH1CTL             SA6    A2                                                              PH1CTL       687          I
          -F162FTNA 
 PH1CTL    PROG5A   LT     B1,B2,PROG5                                                     PH1CTL       688          I
          -F162FTNA 
 PH1CTL             MI     X1,PROG5B   IF EQUIVALENCED FILE                                F162FTNA     962     A     
 PH1CTL             LX3    X7,B7                                                           F162FTNA     963     A     
 PH1CTL             BX6    X2+X3       INSERT (START.) IN SYMTAB WORD B                    F162FTNA     964     A     
 PH1CTL             SA6    A2                                                              F162FTNA     965     A     
 PH1CTL             BX2    X1                                                              F162FTNA     966     A     
 PH1CTL             SX3    X1          (X3) = BFS                                          F162FTNA     967     A     
 PH1CTL             AX2    36          (X2) = MRL IN CHARS                                 F162FTNA     968     A     
 PH1CTL             SX7    X7+L.FIT6   (START.) + FIT LEN                                  F162FTNA     969     A     
 PH1CTL             SA4    =XOT.RM                                                         F162FTNA     970     A     
 PH1CTL             ZR     X4,PROG5.2  IF CRM OBJECT MODE                                  F162FTNA     971     A     
 PH1CTL             SX7    X7+L.FIT7-L.FIT6                                                F162FTNA     972     A     
 PH1CTL             ZR     X2,PROG5.2  IF MRL=0 OR OMITTED                                 F162FTNA     973     A     
 PH1CTL             SX4    4           CREATE 4-WD WORKSPACE BELOW WSA FOR FCL             F162FTNA     974     A     
 PH1CTL             IX6    X1+X4                                                           F162FTNA     975     A     
 PH1CTL             SX3    X6                                                              F162FTNA     976     A     
 PH1CTL             SA6    A1          UPDATE LFN TAB ENTRY                                F162FTNA     977     A     
 PH1CTL    PROG5.2  IX7    X7+X3       (START.) + BFS                                      F162FTNA     978     A     
 PH1CTL             CW     X3,X2       (X3) = MRL IN WORDS                                 F162FTNA     979     A     
 PH1CTL             IX7    X7+X3       (START.) + MRL                                      F162FTNA     980     A     
 PH1CTL    PROG5.4  LT     B1,B2,PROG5 IF MORE FILES                                       F162FTNA     981     A     
 PH1CTL             EQ     PROG6                                                           PH1CTL       689     A     
 PH1CTL                                                                                    PH1CTL       690     A     
 PH1CTL    PROG5B   LX5    1                                                               PH1CTL       691     A     
 PH1CTL             SB4    X5+B5                                                           PH1CTL       692     A     
 PH1CTL             SA3    A0-B4             WORD B OF LFN2                                PH1CTL       693     A     
 PH1CTL             BX4    X0*X3                                                           PH1CTL       694     A     
 PH1CTL             IX6    X4+X2             ADD LFN 1 = ADD LFN 2                         PH1CTL       695     A     
 PH1CTL             SA6    A2                                                              PH1CTL       696     A     
 PH1CTL             SA1    =XOT.RM                                                         FCC2064        7     A     
 PH1CTL             ZR     X1,PROG5C   IF CRM OBJECT MODE                                  FCC2064        8     A     
 PH1CTL             SA1    N.EQUF      NR OF EQUIVALENCED FILES                            FCC2064        9     A     
 PH1CTL             SX6    X1+1        NR OF EQUIVALENCED FILES + 1                        FCC2064       10     A     
 PH1CTL             SA6    N.EQUF      UPDATE NR OF EQUIVALENCED FILES                     FCC2064       11     A     
 PH1CTL    PROG5C   LT     B1,B2,PROG5 IF MORE FILES                                       FCC2064       12     A     
 PH1CTL             EQ     PROG5A                                                          PH1CTL       697          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2575    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
          -F162FTNA 
 PH1CTL                                                                                    PH1CTL       698          I
          -F162FTNA 
 PH1CTL             LT     B1,B2,PROG5 IF MORE FILES                                       F162FTNA     982          I
          -FCC2064
 PH1CTL    PROG6    SA7    START.            SAVE LENGTH OF START.                         PH1CTL       699     A     
 PH1CTL             SX6    0                                                               PH1CTL       700     A     
 PH1CTL             SA6    LI                                                              PH1CTL       701     A     
 PH1CTL                                                                                    PH1CTL       702     A     
 PH1CTL   *         OUTPUT "FILE" OR "FEQU" MACRO CALLS FOR FOR THE FILE NAMES             PH1CTL       703          I
          -F162FTNA 
 PH1CTL   *         WRITE *FILCRM*, *FIL7RM* OR *FEQU* MACRO TO *COMPS*.                   F162FTNA     983     A     
 PH1CTL                                                                                    PH1CTL       704     A     
 PH1CTL    PROG7    SA1    O.LFN+X6                                                        PH1CTL       705     A     
 PH1CTL             INTARG                                                                 PH1CTL       706     A     
 PH1CTL             NG     X1,PROG7A         IF EQUIV                                      PH1CTL       707     A     
 PH1CTL             SA5    =XOT.RM                                                         PH1CTL       708          I
          -F162FTNA 
 PH1CTL             SX6    X1-L.FIT6-L.FET6  CALCULATE 6RM OBJECT MODE VALUES.             PH1CTL       709          I
          -F162FTNA 
 PH1CTL             ZR     X5,PROG7C   IF 6RM OBJECT MODE                                  PH1CTL       710          I
          -F162FTNA 
 PH1CTL             SX6    X1-L.FIT7-L.FET7  CALCULATE 7RM OBJECT MODE VALUES.             PH1CTL       711          I
          -F162FTNA 
 PH1CTL    PROG7C   SVARG  OCT,1       ARG 1 = BUFFER LENGTH                               PH1CTL       712          I
          -F162FTNA 
 PH1CTL             LX1    24                                                              PH1CTL       713          I
          -F162FTNA 
 PH1CTL             SX6    X1                                                              PH1CTL       714          I
          -F162FTNA 
 PH1CTL             SVARG  OCT,2             ARG2 = RECORD LENGTH                          PH1CTL       715          I
          -F162FTNA 
 PH1CTL             LX1    18                                                              PH1CTL       716          I
          -F162FTNA 
 PH1CTL             SX6    X1                                                              PH1CTL       717          I
          -F162FTNA 
 PH1CTL             SVARG  NAME,3            ARG3 = FILE NAME                              PH1CTL       718          I
          -F162FTNA 
 PH1CTL             SA3    =XF.LFN                                                         PH1CTL       719          I
          -F162FTNA 
 PH1CTL             LX1    0-18                                                            F162FTNA     984     A     
 PH1CTL             SX6    X1                                                              F162FTNA     985     A     
 PH1CTL             SVARG  NAME,1      ARG 1 = FILE NAME                                   F162FTNA     986     A     
 PH1CTL             LX1    18-0                                                            F162FTNA     987     A     
 PH1CTL             SX6    X1                                                              F162FTNA     988     A     
 PH1CTL             SVARG  OCT,2       ARG 2 = BUFFER LENGTH                               F162FTNA     989     A     
 PH1CTL             LX1    0-36                                                            F162FTNA     990     A     
 PH1CTL             SX6    X1                                                              F162FTNA     991     A     
 PH1CTL             SVARG  OCT,3       ARG 3 = MAX RECORD LEN                              F162FTNA     992     A     
 PH1CTL             SA3    =XCO.STA                                                        F162FTNA     993     A     
 PH1CTL             ZR     X3,PROG7.2  IF STATIC LOAD OPTION NOT SELECTED                  F162FTNA     994     A     
 PH1CTL             SX6    B5                                                              F162FTNA     995     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2576    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             SVARG  OCT,4       ARG 4 = STATIC LOAD FLAG                            F162FTNA     996     A     
 PH1CTL    PROG7.2  SA3    =XF.LFN                                                         F162FTNA     997     A     
 PH1CTL             SX6    B5                                                              PH1CTL       720     A     
 PH1CTL             LX3    59-P.EXT                                                        PH1CTL       721     A     
 PH1CTL             NG     X3,PROG7AA        IF FILES OPTION NOT SELECTED                  PH1CTL       722          I
          -F162FTNA 
 PH1CTL             SVARG  OCT,4             ARG4 = NOENT FLAG                             PH1CTL       723          I
          -F162FTNA 
 PH1CTL    PROG7AA  NARGS= B7                                                              PH1CTL       724          I
          -F162FTNA 
 PH1CTL             FMAC   FILEF             *FILEF* MACRO TO -COMPS- FILE                 PH1CTL       725          I
          -F162FTNA 
 PH1CTL             MI     X3,PROG7.3  IF *SYSEDIT* OPTION NOT SELECTED                    F162FTNA     998     A     
 PH1CTL             SVARG  OCT,5       ARG 5 = NO ENTRY POINT FLAG                         F162FTNA     999     A     
 PH1CTL    PROG7.3  NARGS= B7                                                              F162FTNA    1000     A     
 PH1CTL             SA1    =XOT.RM                                                         F162FTNA    1001     A     
 PH1CTL             NZ     X1,PROG7.4  IF 7RM OBJECT MODE                                  F162FTNA    1002     A     
 PH1CTL             FMAC   FILCRM                                                          F162FTNA    1003     A     
 PH1CTL             EQ     PROG7B                                                          F162FTNA    1004     A     
 PH1CTL                                                                                    F162FTNA    1005     A     
 PH1CTL    PROG7.4  FMAC   FIL7RM                                                          F162FTNA    1006     A     
 PH1CTL             EQ     PROG7B                                                          PH1CTL       726     A     
 PH1CTL                                                                                    PH1CTL       727     A     
 PH1CTL    PROG7A   LX1    60-18                                                           PH1CTL       728     A     
 PH1CTL             SX6    X1                                                              PH1CTL       729     A     
 PH1CTL             SVARG  NAME,1            ARG 1 = LFN1                                  PH1CTL       730     A     
 PH1CTL             LX1    18                                                              PH1CTL       731     A     
 PH1CTL             SX6    X1                                                              PH1CTL       732     A     
 PH1CTL             SVARG  NAME,2            ARG 2 = LFN2                                  PH1CTL       733     A     
 PH1CTL             SA3    F.LFN                                                           PH1CTL       734     A     
 PH1CTL             SX6    B5                                                              PH1CTL       735     A     
 PH1CTL             LX3    59-P.EXT                                                        PH1CTL       736     A     
 PH1CTL             NG     X3,PROG7BB        IF FILES OPTION NOT SELECTED                  PH1CTL       737     A     
 PH1CTL             SVARG  OCT,3             ADD THIRD ARG                                 PH1CTL       738     A     
 PH1CTL    PROG7BB  NARGS= B7                                                              PH1CTL       739     A     
 PH1CTL             FMAC   FEQU              OUTPUT MACRO CALL                             PH1CTL       740     A     
 PH1CTL                                                                                    PH1CTL       741     A     
 PH1CTL    PROG7B   SA1    LI                                                              PH1CTL       742     A     
 PH1CTL             SA2    N.FILES                                                         PH1CTL       743     A     
 PH1CTL             SX6    X1+B5                                                           PH1CTL       744     A     
 PH1CTL             SA6    A1                                                              PH1CTL       745     A     
 PH1CTL             IX0    X6-X2             I - L                                         PH1CTL       746     A     
 PH1CTL             NG     X0,PROG7          IF NOT FINISHED                               PH1CTL       747     A     
 PH1CTL                                                                                    F162FTNA    1007     A     
 PH1CTL    PROG.X   SA1    =XOT.RM                                                         F162FTNA    1008     A     
 PH1CTL             NZ     X1,PROG.X4  IF 7RM OBJECT MODE                                  F162FTNA    1009     A     
 PH1CTL                                                                                    F162FTNA    1010     A     
 PH1CTL   *         ENTER *LIBLNK.* IN SYMTAB.  WRITE *LIBLNK BSS 0B.* AND                 F162FTNA    1011     A     
 PH1CTL   *         *LIBLNK* MACRO TO *COMPS*.                                             F162FTNA    1012     A     
 PH1CTL                                                                                    F162FTNA    1013     A     
 PH1CTL             SA1    =8RLIBLNK.                                                      F162FTNA    1014     A     
 PH1CTL             RJ     ESS                                                             F162FTNA    1015     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2577    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             SA1    START.                                                          F162FTNA    1016     A     
 PH1CTL             SX7    X1+3        START. = START. + LIBLNK LENGTH                     F162FTNA    1017     A     
 PH1CTL             LX1    P.RA                                                            F162FTNA    1018     A     
 PH1CTL             BX6    X6+X1       LIBLNK ADDR TO SYMTAB WORD B                        F162FTNA    1019     A     
 PH1CTL             SA7    A1                                                              F162FTNA    1020     A     
 PH1CTL             SA6    A6                                                              F162FTNA    1021     A     
 PH1CTL             SB1    1                                                               F162FTNA    1022     A     
 PH1CTL             WRITEC F.CMPS,LNK.CD,2                                                 F162FTNA    1023     A     
 PH1CTL             SB5    B1                                                              F162FTNA    1024     A     
 PH1CTL             INTARG                                                                 F162FTNA    1025     A     
 PH1CTL             SA1    =XN.FILES                                                       F162FTNA    1026     A     
 PH1CTL             BX6    X1                                                              F162FTNA    1027     A     
 PH1CTL             SVARG  OCT,1       ARG 1 = NR OF FILES                                 F162FTNA    1028     A     
 PH1CTL             SA1    =XPLIMIT                                                        F162FTNA    1029     A     
 PH1CTL             BX6    X1                                                              F162FTNA    1030     A     
 PH1CTL             SVARG  OCT,2       ARG 2 = PRINT LIMIT                                 F162FTNA    1031     A     
 PH1CTL             SA1    =XCO.STA                                                        F162FTNA    1032     A     
 PH1CTL             NARGS= B7                                                              FCCA437        6     A     
 PH1CTL             ZR     X1,PROG.X2  IF STATIC LOAD OPTION NOT SELECTED                  F162FTNA    1033     A     
 PH1CTL             SX6    B5                                                              F162FTNA    1034     A     
 PH1CTL             SVARG  OCT,3       ARG 3 = STATIC LOAD FLAG                            F162FTNA    1035     A     
 PH1CTL    PROG.X2  NARGS= B7                                                              F162FTNA    1036          I
          -FCCA408
 PH1CTL             FMAC   LIBLNK                                                          F162FTNA    1037          I
          -FCCA408
 PH1CTL             SA1    N.FILES                                                         FCCA408      209     A     
 PH1CTL             NARGS= B7                                                              FCCA408      210     A     
 PH1CTL             NZ     X1,PROG.X2  IF MAIN PROGRAM WITH FILES                          FCCA408      211     A     
 PH1CTL             SX6    B5                                                              FCCA408      212     A     
 PH1CTL             SVARG  OCT,4       ARG 4 = WEAK EXT TABLE FLAG                         FCCA408      213     A     
 PH1CTL             NARGS= B7                                                              FCCA408      214     A     
 PH1CTL             SA1    =8RWXTTAB.                                                      FCCA408      215     A     
 PH1CTL             RJ     ESS                                                             FCCA408      216     A     
 PH1CTL             SA1    START.                                                          FCCA408      217     A     
 PH1CTL             SX1    X1+B5       LIBLNK ADDR + 1 = W.EXT. TABLE ADDRESS              FCCA408      218     A     
 PH1CTL             SX7    X1+L.STL    W.EXT. TAB ADDR + L.STL = LIBLNK ADDR               FCCA408      219     A     
 PH1CTL             LX1    P.RA                                                            FCCA408      220     A     
 PH1CTL             SA7    A1          RESTORE BUMPED START.                               FCCA408      221     A     
 PH1CTL             BX6    X6+X1                                                           FCCA408      222     A     
 PH1CTL             SA6    A6          W.EXT. TAB ADDR TO SYMTAB WORD B                    FCCA408      223     A     
 PH1CTL                                                                                    FCCA408      224     A     
 PH1CTL    PROG.X2  FMAC   LIBLNK                                                          FCCA408      225     A     
 PH1CTL                                                                                    PH1CTL       748     A     
 PH1CTL   *         ENTER "FILES." IN SYMTAB, OUTPUT FLINK MACROS                          PH1CTL       749     A     
 PH1CTL                                                                                    PH1CTL       750     A     
 PH1CTL    PROG.X   SA1    =8RFILES.                                                       PH1CTL       751          I
          -F162FTNA 
 PH1CTL    PROG.X4  SA1    =8RFILES.                                                       F162FTNA    1038     A     
 PH1CTL             RJ     ESS                                                             PH1CTL       752     A     
 PH1CTL             SA3    START.                                                          PH1CTL       753     A     
 PH1CTL             SA4    N.FILES                                                         PH1CTL       754     A     
 PH1CTL             IX7    X4+X3             START. = START. + N.FILES                     PH1CTL       755     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2578    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             SX7    X7+B5             +1 FOR DATA -PL WORD                          PH1CTL       756          I
          -F162FTNA 
 PH1CTL             SA7    A3                                                              PH1CTL       757     A     
 PH1CTL             LX3    P.RA                                                            PH1CTL       758     A     
 PH1CTL             BX6    X3+X6             DEFINE ADDRESS OF FILES.                      PH1CTL       759     A     
 PH1CTL             SA6    A6                                                              PH1CTL       760     A     
 PH1CTL             SB1    1                                                               PH1CTL       761     A     
 PH1CTL             WRITEC F.CMPS,FILZ.CD,2                                                PH1CTL       762     A     
 PH1CTL             SA1    N.FILES                                                         PH1CTL       763     A     
 PH1CTL             SB5    B1+                                                             PH1CTL       764     A     
 PH1CTL             ZR     X1,PROG9          IF NO FILES                                   PH1CTL       765     A     
 PH1CTL             MX6    0                                                               PH1CTL       766     A     
 PH1CTL             SA6    LI                                                              PH1CTL       767     A     
 PH1CTL                                                                                    PH1CTL       768     A     
 PH1CTL    PROG8    SX6    X6+2                                                            PH1CTL       769     A     
 PH1CTL             F1AMAC FLINK             OUTPUT FLINK MACRO                            PH1CTL       770     A     
 PH1CTL             SA1    LI                                                              PH1CTL       771     A     
 PH1CTL             SA2    N.FILES                                                         PH1CTL       772     A     
 PH1CTL             SX6    X1+B5                                                           PH1CTL       773     A     
 PH1CTL             SA6    A1                                                              PH1CTL       774     A     
 PH1CTL             IX0    X6-X2             I - L                                         PH1CTL       775     A     
 PH1CTL             NG     X0,PROG8          IF NOT FINISHED                               PH1CTL       776     A     
 PH1CTL                                                                                    PH1CTL       777     A     
 PH1CTL    PROG9    SA1    =XPLIMIT          PRINT LIMIT VALUE                             PH1CTL       778          I
          -F162FTNA 
 PH1CTL    PROG9    SA1    =XOT.RM                                                         F162FTNA    1039     A     
 PH1CTL             NZ     X1,PROG9.2  IF 7RM OBJECT MODE                                  F162FTNA    1040     A     
 PH1CTL             SB1    1                                                               F162FTNA    1041     A     
 PH1CTL             WRITEC F.CMPS,APLT.CD,1  *FLINK* APLIST TERMINATOR                     F162FTNA    1042     A     
 PH1CTL             SA1    START.                                                          F162FTNA    1043     A     
 PH1CTL             SX6    X1+B1       START. = START.+1 FOR APLIST TERMINATOR             F162FTNA    1044     A     
 PH1CTL             SA6    A1                                                              F162FTNA    1045     A     
 PH1CTL             EQ     PROG9.4                                                         F162FTNA    1046     A     
 PH1CTL                                                                                    F162FTNA    1047     A     
 PH1CTL    PROG9.2  SA1    =XPLIMIT    RUN-TIME PRINT LIMIT                                F162FTNA    1048     A     
 PH1CTL             BX1    -X1                                                             PH1CTL       779     A     
 PH1CTL             CALL   BTOCT             CONVERT TO OCTAL DISPLAY CODE                 PH1CTL       780     A     
 PH1CTL             SB1    1                                                               PH1CTL       781     A     
 PH1CTL             SB6    DATAPL            (B6) = PRINT LIMIT TEXT LINE FWA              PH1CTL       782     A     
 PH1CTL             SA6    B6+B1             PRINT LIMIT TO LINE                           PH1CTL       783     A     
 PH1CTL             SA7    A6+B1                                                           PH1CTL       784     A     
 PH1CTL             WRITEC F.CMPS,B6,4       PRINT LIMIT TO -COMPS-                        PH1CTL       785     A     
 PH1CTL             SB5    B1+                                                             PH1CTL       786          I
          -F162FTNA 
 PH1CTL             SA1    START.                                                          F162FTNA    1049     A     
 PH1CTL             SX6    X1+B1       START. = START.+1 FOR  *DATA -(PRINT LIM)*          F162FTNA    1050     A     
 PH1CTL             SA6    A1                                                              F162FTNA    1051     A     
 PH1CTL    PROG9.4  SB5    B1+                                                             F162FTNA    1052          I
          -FCCA564
 PH1CTL    PROG9.4  WRITEC F.CMPS,APLT.CD,1  RESERVE POSSIBLE DEBUG ENTRY                  FCCA564        9     A     
 PH1CTL             SB5    B1+                                                             FCCA564       10     A     
 PH1CTL             SA3    START.                                                          FCCA564       11     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2579    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             SX7    X3+B5       START.=START.+1 FOR DEBUG ENTRY                     FCCA564       12     A     
 PH1CTL             SA7    A3                                                              FCCA564       13     A     
 PH1CTL             ESS    TRACE.            TRACE. TO SYMTAB                              PH1CTL       787     A     
 PH1CTL             SA3    START.                                                          PH1CTL       788     A     
 PH1CTL             SX7    X3+2              START. = START. + 2                           PH1CTL       789          I
          -FCC0996
 PH1CTL             SX7    X3+B5       START. = START. + 1 FOR TRACE.                      FCC0996        4     A     
 PH1CTL             SA7    A3                                                              PH1CTL       790     A     
 PH1CTL             LX3    P.RA                                                            PH1CTL       791     A     
 PH1CTL             BX6    X3+X6             DEFINE TRACE.                                 PH1CTL       792     A     
 PH1CTL             SA6    A6                                                              PH1CTL       793     A     
 PH1CTL                                                                                    PH1CTL       794     A     
 PH1CTL             INTARG                                                                 PH1CTL       795     A     
 PH1CTL             SX6    B5                                                              PH1CTL       796     A     
 PH1CTL             SVARG  NAME,1                                                          PH1CTL       797     A     
 PH1CTL             SX6    B5                                                              PH1CTL       798     A     
 PH1CTL             SVARG  NAME,2                                                          PH1CTL       799     A     
 PH1CTL             NARGS= B7                                                              PH1CTL       800     A     
 PH1CTL             FMAC   TRACE             OUTPUT TRACEBACK MACRO                        PH1CTL       801     A     
 PH1CTL                                                                                    PH1CTL       802     A     
 PH1CTL             OUTUSE CODE.             SWITCH TO CODE.                               PH1CTL       803     A     
 PH1CTL             SX6    B5                                                              PH1CTL       804          I
          -FEAT155A 
 PH1CTL             F1AMAC PENTRY            OUTPUT PROGRAM ENTRY MACRO                    PH1CTL       805          I
          -FEAT155A 
 PH1CTL             INTARG                                                                 FEAT155A      22     A     
 PH1CTL             SX6    B5                                                              FEAT155A      23     A     
 PH1CTL             SVARG  NAME,1      ARG1=PROG NAME                                      FEAT155A      24     A     
 PH1CTL             SA5    =XCO.ER                                                         FEAT155A      25     A     
 PH1CTL             BX6    X5                                                              FEAT155A      26     A     
 PH1CTL             LX6    1                                                               FEAT155A      27     A     
 PH1CTL             SVARG  INT,4       ARG4=ER                                             FEAT155A      28     A     
 PH1CTL             NARGS= B7                                                              FEAT155A      29     A     
 PH1CTL             FMAC   PENTRY      OUTPUT PENTRY MACRO CALL                            FEAT155A      30     A     
 PH1CTL                                                                                    PH1CTL       806     A     
 PH1CTL             SA5    CODE.                                                           PH1CTL       807     A     
 PH1CTL             SX6    X5+B5             CODE. = CODE.+1                               PH1CTL       808     A     
 PH1CTL             SA6    A5                                                              PH1CTL       809     A     
 PH1CTL             SB1    1                                                               PH1CTL       810          I
          -F162FTNA 
 PH1CTL             WRITEC F.CMPS,SA1.CD,2                                                 PH1CTL       811          I
          -F162FTNA 
 PH1CTL             SA1    =XOT.RM                                                         F162FTNA    1053     A     
 PH1CTL             SB6    SA1.LIB     PRESET  *SA1 LIBLNK.*                               F162FTNA    1054     A     
 PH1CTL             ZR     X1,PROG9.6  IF CRM OBJECT MODE                                  F162FTNA    1055     A     
 PH1CTL             SB6    SA1.FIL     SET  *SA1 FILES.*                                   F162FTNA    1056     A     
 PH1CTL    PROG9.6  SB1    1                                                               F162FTNA    1057     A     
 PH1CTL             WRITEC F.CMPS,B6,2                                                     F162FTNA    1058     A     
 PH1CTL             WRITEC F.CMPS,RJQ8.CD,2                                                PH1CTL       812          I
          -FEAT155A 
 PH1CTL             SA1    =XCO.ER                                                         FEAT155A      31     A     
 PH1CTL             ZR     X1,PROG10   IF ER=0                                             FEAT155A      32     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2580    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             SA5    CODE.                                                           FEAT155A      33     A     
 PH1CTL             SX6    X5+1        CODE. = CODE. + 1  */ PENTRY WORD                   FEAT155A      34     A     
 PH1CTL             SA6    A5                                                              FEAT155A      35     A     
 PH1CTL             SA1    =XPMDFLAG                                                       FCCA531        7     A     
 PH1CTL             NZ     X1,PROG11                                                       FCCA531        8     A     
 PH1CTL             WRITEC F.CMPS,RJRP.CD,2                                                FEAT155A      36     A     
 PH1CTL             SX6    =8RFTNRPV.                                                      FEAT155A      37          I
          -FCC1559X 
 PH1CTL             SX6    =8RFTNRP1.                                                      FCC1559X      22          I
          -F162FTNA 
 PH1CTL             SX6    =8RFTNRP2.                                                      F162FTNA    1059     A     
 PH1CTL             SB5    B1+                                                             FEAT155A      38     A     
 PH1CTL             SA6    PFLAG                                                           FEAT155A      39     A     
 PH1CTL             EQ     PROGRTN                                                         FEAT155A      40     A     
 PH1CTL                                                                                    FEAT155A      41     A     
 PH1CTL    PROG10   WRITEC F.CMPS,RJQ8.CD,2                                                FEAT155A      42          I
          -F162FTNA 
 PH1CTL             SX6    =8RQ8NTRY.                                                      PH1CTL       813          I
          -FCC1559X 
 PH1CTL             SX6    =8RQ1NTRY.                                                      FCC1559X      23          I
          -F162FTNA 
 PH1CTL    PROG10   WRITEC F.CMPS,RJQN.CD,2                                                F162FTNA    1060          I
          -FCCA531
 PH1CTL    PROG10   SA1    =XPMDFLAG                                                       FCCA531        9     A     
 PH1CTL             NZ     X1,PROG11                                                       FCCA531       10     A     
 PH1CTL             WRITEC F.CMPS,RJQN.CD,2                                                FCCA531       11     A     
 PH1CTL             SX6    =8RQ2NTRY.                                                      F162FTNA    1061     A     
 PH1CTL             SB5    B1+                                                             PH1CTL       814     A     
 PH1CTL             SA6    PFLAG             SET ADD Q8NTRY. TO SYMTAB                     PH1CTL       815     A     
 PH1CTL             EQ     PROGRTN                                                         PH1CTL       816     A     
 PH1CTL                                                                                    FCCA531       12     A     
 PH1CTL    PROG11   WRITEC F.CMPS,RJQ4.CD,2                                                FCCA531       13     A     
 PH1CTL             SX6    =8RQ4PMD.                                                       FCCA531       14     A     
 PH1CTL             SB5    B1+                                                             FCCA531       15     A     
 PH1CTL             SA6    PFLAG                                                           FCCA531       16     A     
 PH1CTL             EQ     PROGRTN                                                         FCCA531       17     A     
 PH1CTL                                                                                    PH1CTL       817     A     
 PH1CTL    DATAPL   DATA   30L  DATA                                                       PH1CTL       818     A     
 PH1CTL             DATA   1LB                                                             PH1CTL       819     A     
 PH1CTL    LNK.CD   LIT    14CLIBLNK. BSS 0B                                               F162FTNA    1062     A     
 PH1CTL    FILZ.CD  LIT    13CFILES. BSS 0B                                                PH1CTL       820     A     
 PH1CTL    SA1.CD   LIT    12C  SA1 FILES.                                                 PH1CTL       821          I
          -F162FTNA 
 PH1CTL    APLT.CD  LIT    8C  DATA 0                                                      F162FTNA    1063     A     
 PH1CTL    SA1.FIL  LIT    12C  SA1 FILES.                                                 F162FTNA    1064     A     
 PH1CTL    SA1.LIB  LIT    13C  SA1 LIBLNK.                                                F162FTNA    1065     A     
 PH1CTL    RJQ8.CD  LIT    12C  RJ Q8NTRY.                                                 PH1CTL       822          I
          -FCC1559X 
 PH1CTL    RJRP.CD  DATA   18L  RJ FTNRPV.                                                 FEAT155A      43          I
          -FCC1559X 
 PH1CTL    RJQ8.CD  LIT    14C  RJ Q1NTRY.                                                 FCC1559X      24          I
          -F162FTNA 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2581    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL    RJRP.CD  LIT    14C  RJ FTNRP1.                                                 FCC1559X      25          I
          -F162FTNA 
 PH1CTL    RJQN.CD  LIT    12C  RJ Q2NTRY.                                                 F162FTNA    1066     A     
 PH1CTL    RJRP.CD  LIT    14C  RJ FTNRP2.                                                 F162FTNA    1067     A     
 PH1CTL    RJQ4.CD  LIT    11C  RJ Q4PMD.                                                  FCCA531       18     A     
 PH1CTL                                                                                    PH1CTL       823     A     
 PH1CTL    O.LFN    BSS    0                 FWA OF TEMPORARY FILE NAME TABLE              PH1CTL       824     A     
 PH1CTL             TITLE              PPN - PROCESS PROGRAM NAME                          PH1CTL       825     A     
 PH1CTL   ***                                                                              PH1CTL       826     A     
 PH1CTL   *         PPN - PROCESS PROGRAM NAME                                             PH1CTL       827     A     
 PH1CTL   *                                                                                PH1CTL       828     A     
 PH1CTL   *         ON ENTRY:                                                              PH1CTL       829     A     
 PH1CTL   *                X7 = TYPE TO BE GIVE TO PROG NAME ( RIGHT JUSTIFIED )           PH1CTL       830     A     
 PH1CTL   *                                                                                PH1CTL       831     A     
 PH1CTL                                                                                    PH1CTL       832     A     
 PH1CTL    PPN      ENTRY. *                 ** ENTRY/EXIT **                              PH1CTL       833     A     
 PH1CTL             ADVIN                                                                  PH1CTL       834     A     
 PH1CTL             LX7    P.TYP                                                           PH1CTL       835     A     
 PH1CTL             SA7    LI                                                              PH1CTL       836     A     
 PH1CTL             IF.NE  NAME,PPN.SE       IF NOT A NAME                                 PH1CTL       837     A     
 PH1CTL             SYMBOL                   ENTER NAME IN SYMTAB                          PH1CTL       838     A     
 PH1CTL             SA3    LI                                                              PH1CTL       839     A     
 PH1CTL             LX6    60-P.TYP                                                        PH1CTL       840     A     
 PH1CTL             BX7    X3+X2             SET TYPE                                      PH1CTL       841     A     
 PH1CTL             SA6    A3                SAVE NATURAL TYPE IN CASE OF FUNC SUB         PH1CTL       842     A     
 PH1CTL             SA7    A2                                                              PH1CTL       843     A     
 PH1CTL             MX0    L.NAME                                                          PH1CTL       844     A     
 PH1CTL             BX6    X0*X1                                                           PH1CTL       845     A     
 PH1CTL             SA6    IDENT+2           PROGRAM NAME TO *IDENT* LINE                  PH1CTL       846     A     
 PH1CTL             SA6    =XPROGNAM                      TO *COMPILING...* MSG            PH1CTL       847     A     
 PH1CTL             SA1    HDRBLNK                                                         PH1CTL       848     A     
 PH1CTL             BX7    X6+X1       BLANK FILL                                          PH1CTL       849     A     
 PH1CTL             LX7    -6                                                              PH1CTL       850     A     
 PH1CTL             SA7    =XTL.PNAM   NAME TO LISTING TITLE LINE                          PH1CTL       851     A     
 PH1CTL             SA3    UFLAG                                                           PH1CTL       852     A     
 PH1CTL             ZR     X3,PPN2     IF *E* OPTION OFF                                   PH1CTL       853     A     
 PH1CTL             SB7    DECK        (B7) = ADDRESS OF /*DECK,/ LINE                     PH1CTL       854     A     
 PH1CTL             BX1    X6          (X1) = PROGRAM UNIT NAME                            PH1CTL       855     A     
 PH1CTL             CALL   MCS         MERGE CHARACTER STRINGS                             PH1CTL       856     A     
 PH1CTL             WRITEC =XF.CMPS,DECK,0                                                 PH1CTL       857     A     
 PH1CTL                                                                                    PH1CTL       858     A     
 PH1CTL             IFEQ   TEST,0,2                                                        PH1CTL       859     A     
 PH1CTL    PPN2     MESSAGE   =XCOMPMSG,1    /COMPILING NNN.../ TO B-DISPLAY ONLY          PH1CTL       860     A     
 PH1CTL             SKIP   1                                                               PH1CTL       861     A     
 PH1CTL    PPN2     MESSAGE   =XCOMPMSG      /COMPILING NNN.../ TO ALL DAYFILES            PH1CTL       862          I
          -F7540FT
 PH1CTL    PPN2     MESSAGE   =XCOMPMSG,,RCL /COMPILING NNN.../ TO ALL DAYFILES            F7540FT       34     A     
 PH1CTL                                                                                    PH1CTL       863     A     
 PH1CTL             WRITEC F.CMPS,IDENT,3    /IDENT NNN/ LINES TO COMPS FILE               PH1CTL       864     A     
 PH1CTL             WRITEC F.CMPS,USE.CD,1                                                 PH1CTL       865     A     
 PH1CTL             SA3    CAFLAG                                                          PH1CTL       866     A     
 PH1CTL             ZR     X3,PPN2A          IF WE ARE USING FAX TO ASSEMBLE               PH1CTL       867     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2582    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL                                                                                    PH1CTL       868     A     
 PH1CTL   *         IF THE O OPTION IS NOT SELECTED PUT OUT A LIST -L,-R CARD              PH1CTL       869     A     
 PH1CTL                                                                                    PH1CTL       870     A     
 PH1CTL             SA4    OLIST                                                           PH1CTL       871     A     
 PH1CTL             NZ     X4,PPN2A          IF WE SHOULD PRODUCE OCTAL LISTING            PH1CTL       872     A     
 PH1CTL             WRITEC F.CMPS,NLST.CD,2                                                PH1CTL       873     A     
 PH1CTL    PPN2A    SA1    SVELIST                                                         PH1CTL       874          I
          -FCCA426
 PH1CTL    PPN2A    SA3    CAFLAG                                                          FCCA426        6     A     
 PH1CTL             SA4    UFLAG                                                           FCCA426        7     A     
 PH1CTL             BX2    X3+X4                                                           FCCA426        8     A     
 PH1CTL             ZR     X2,PPN2A1   IF NEITHER *E* OR *C* OPTION SELECTED               FCCA426        9     A     
 PH1CTL             WRITEC F.CMPS,NSST.CD,1                                                FCCA426       10     A     
 PH1CTL    PPN2A1   SA1    SVELIST                                                         FCCA426       11     A     
 PH1CTL             SA2    HDRPROG                                                         PH1CTL       875     A     
 PH1CTL             NZ     X1,PPN2B    IF DUMMY *PROGRAM START.*                           PH1CTL       876     A     
 PH1CTL             SA1    TYPE                                                            PH1CTL       877     A     
 PH1CTL             SA2    HDRFUNC                                                         PH1CTL       878     A     
 PH1CTL             NZ     X1,PPN2B    IF FUNCTION SUBPROGRAM                              PH1CTL       879     A     
 PH1CTL             SA1    ATYPE                                                           PH1CTL       880     A     
 PH1CTL             SA2    HDRTBL+X1                                                       PH1CTL       881     A     
 PH1CTL    PPN2B    BX6    X2                                                              PH1CTL       882     A     
 PH1CTL             SA6    =XTL.PTYP   PROGRAM UNIT TYPE TO LISTING TITLE LINE             PH1CTL       883     A     
 PH1CTL             SA6    =XIDENTOK   MARK *IDENT* LINE ILLEGAL NOW                       PH1CTL       884     A     
 PH1CTL             CALL   DSL         DUMP SAVED LINES                                    PH1CTL       885     A     
 PH1CTL             RJ     WLD         WRITE LOADER DIRECTIVES TO *COMPS*                  PH1CTL       886     A     
 PH1CTL    PPN3     WRITEC F.CMPS,LDST.CD,L.LDST                                           PH1CTL       887     A     
 PH1CTL             SA4    =XOT.RM                                                         PH1CTL       888          I
          -F162FTNA 
 PH1CTL             NZ     X4,PPN4     IF 7RM OBJECT MODE DONT LIB SYSIO                   PH1CTL       889          I
          -F162FTNA 
 PH1CTL             WRITEC F.CMPS,LDST.CD6,L.LDST6                                         PH1CTL       890          I
          -F162FTNA 
 PH1CTL    PPN4     OUTUSE START.      SET RELOCATION BASE                                 PH1CTL       891     A     
 PH1CTL                                                                                    PH1CTL       892     A     
 PH1CTL             SA5    RSELECT                                                         PH1CTL       893     A     
 PH1CTL             ZR     X5,PPN            IF R = 0                                      PH1CTL       894     A     
 PH1CTL             ADDREF B5,DEF            DEFINITION OF SUBPROGRAM NAME                 PH1CTL       895     A     
 PH1CTL             EQ     PPN                                                             PH1CTL       896     A     
 PH1CTL                                                                                    PH1CTL       897     A     
 PH1CTL             SB5    B1+                                                             PH1CTL       898     A     
 PH1CTL                                                                                    PH1CTL       899     A     
 PH1CTL    DECK     DATA   L$*DECK,$,0                                                     PH1CTL       900     A     
 PH1CTL    IDENT    DATA   10H               *C* OPTION REQUIRES *IDENT* IN 11-16          PH1CTL       901     A     
 PH1CTL             DATA   11CIDENT                                                        PH1CTL       902     A     
 PH1CTL                                                                                    PH1CTL       903     A     
 PH1CTL    LDST.CD  DIS    ,$  LDSET   LIB=FORTRAN$                                        PH1CTL       904     A     
 PH1CTL    L.LDST   EQU    *-LDST.CD                                                       PH1CTL       905     A     
 PH1CTL    LDST.CD6 DIS    ,$  LDSET   LIB=SYSIO$                                          PH1CTL       906          I
          -F162FTNA 
 PH1CTL    L.LDST6  EQU    *-LDST.CD6                                                      PH1CTL       907          I
          -F162FTNA 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2583    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL                                                                                    PH1CTL       908     A     
 PH1CTL    NLST.CD  LIT    12C  LIST -L,-R                                                 PH1CTL       909     A     
 PH1CTL    NSST.CD  LIT    5C  SST                                                         FCCA426       12     A     
 PH1CTL    USE.CD   LIT    8C  USEBLK                                                      PH1CTL       910     A     
 PH1CTL                                                                                    PH1CTL       911     A     
 PH1CTL    HDRBLNK  DATA   3R                                                              PH1CTL       912     A     
 PH1CTL    HDRFUNC  DATA   10H  FUNCTION                                                   PH1CTL       913     A     
 PH1CTL    HDRTBL   DATA   10HBLOCK DATA                                                   PH1CTL       914     A     
 PH1CTL             DATA   10HSUBROUTINE                                                   PH1CTL       915     A     
 PH1CTL    HDRPROG  DATA   10H   PROGRAM                                                   PH1CTL       916     A     
 PH1CTL    PPN.SE   SPACE  4,8                                                             PH1CTL       917     A     
 PH1CTL   **        PPN.SE - POST ERROR MESSAGE, *HEADER CARD SYNTAX ERROR*.               PH1CTL       918     A     
 PH1CTL   *                                                                                PH1CTL       919     A     
 PH1CTL    PPN.SE   POSTERR   NR=E.HCSE,SEV=FE,FMT=ELIST,TXT=X4,RETURN=PTR57               PH1CTL       920     A     
 PH1CTL             TITLE              BLOCK DATA , SUBROUTINE AND FUNCTION CARD P         PH1CTL       921     A     
 PH1CTL   ,ROCESSORS                                                                       PH1CTL       922     A     
 PH1CTL    BLKDAT   VFD    12/2001B,48/8LBLKDAT.                                           PH1CTL       923     A     
 PH1CTL   ***                                                                              PH1CTL       924     A     
 PH1CTL   *         DPBDA - PROCESS "BLOCK DATA" STATEMENT                                 PH1CTL       925     A     
 PH1CTL   *         NOTE: PROGRAM = 0 FOR A BLOCK DATA SUBPROGRAM                          PH1CTL       926     A     
 PH1CTL   *                                                                                PH1CTL       927     A     
 PH1CTL                                                                                    PH1CTL       928     A     
 PH1CTL    DPBDA    GETE                                                                   PH1CTL       929     A     
 PH1CTL             MX6    0                                                               PH1CTL       930     A     
 PH1CTL             SA6    PROGRAM           BLKDTA = 60/0                                 PH1CTL       931     A     
 PH1CTL             IF.NE  EL.EOS,DPBDA1     IF NOT EOS                                    PH1CTL       932          I
          -FCC1998
 PH1CTL             SA2    BLKDAT            DEFAULT NAME                                  PH1CTL       933          I
          -FCC1998
 PH1CTL             IF.EQ  EL.EOS,DPBDA1  IF EOS                                           FCC1998       16     A     
 PH1CTL             POSTER SEV=ANSI,NR=E323  NON-ANSI FORM OF BLKDATA                      FCC1998       17     A     
 PH1CTL             EQ     DPBDA2                                                          FCC1998       18     A     
 PH1CTL    DPBDA1   SA2    BLKDAT      DEFAULT NAME                                        FCC1998       19     A     
 PH1CTL             BX6    X2                                                              PH1CTL       934     A     
 PH1CTL             SA6    A4                                                              PH1CTL       935     A     
 PH1CTL    DPBDA1   SX7    T.CGS             TYPE = T.CGS SO IT DISSAPEARS IN THE          PH1CTL       936          I
          -FCC1998
 PH1CTL    DPBDA2   SX7    T.CGS       TYPE=T.CGS SO IT DISAPPEARS IN THE                  FCC1998       20     A     
 PH1CTL             RJ     PPN               REF MAP                                       PH1CTL       937     A     
 PH1CTL             EQ     PROGRTN                                                         PH1CTL       938     A     
 PH1CTL             SPACE  3                                                               PH1CTL       939     A     
 PH1CTL   ***                                                                              PH1CTL       940     A     
 PH1CTL   *         DPSUB - PROCESS "SUBROUTINE" SUBPROGRAM HEADER CARD                    PH1CTL       941     A     
 PH1CTL   *                                                                                PH1CTL       942     A     
 PH1CTL                                                                                    PH1CTL       943     A     
 PH1CTL    DPSUB    SX7    T.ENT                                                           PH1CTL       944     A     
 PH1CTL             RJ     PPN               PROCESS PROGRAM NAME                          PH1CTL       945     A     
 PH1CTL             SX5    B0                                                              PH1CTL       946     A     
 PH1CTL             PX6    B5,X5                                                           PH1CTL       947     A     
 PH1CTL             SA6    PROGRAM           SUBR = 12/2001B,48/0                          PH1CTL       948     A     
 PH1CTL                                                                                    PH1CTL       949     A     
 PH1CTL             RJ     PPL               PROCESS PARAMETER LIST                        PH1CTL       950     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2584    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             EQ     PROGRTN                                                         PH1CTL       951     A     
 PH1CTL             SPACE  2                                                               PH1CTL       952     A     
 PH1CTL   ***                                                                              PH1CTL       953     A     
 PH1CTL   *         DPFUN - PROCESS FUNCTION SUBPROGRAM HEADER CARD                        PH1CTL       954     A     
 PH1CTL   *                                                                                PH1CTL       955     A     
 PH1CTL    DPFUN    SX7    T.ENT                                                           PH1CTL       956     A     
 PH1CTL             RJ     PPN               PROCESS PROGRAM NAME                          PH1CTL       957     A     
 PH1CTL             SA4    ATYPE                                                           PH1CTL       958     A     
 PH1CTL             PL     X4,DPFUN1         IF TYPED ON THE HEADER CARD                   PH1CTL       959     A     
 PH1CTL             SA4    LI                NATURAL TYPE                                  PH1CTL       960     A     
 PH1CTL                                                                                    PH1CTL       961     A     
 PH1CTL    DPFUN1   BX6    X4                                                              PH1CTL       962     A     
 PH1CTL             SA6    =XVALUE.          USE *VALUE.* AS TEMP CELL TO HOLD             PH1CTL       963     A     
 PH1CTL   *                                  FUNCTION TYPE FOR *PROGRTN*                   PH1CTL       964     A     
 PH1CTL             MX7    1                                                               PH1CTL       965     A     
 PH1CTL             SX4    X4-T.DBL                                                        PH1CTL       966     A     
 PH1CTL             BX6    -X4*X7                                                          PH1CTL       967     A     
 PH1CTL             LX6    1                                                               PH1CTL       968     A     
 PH1CTL             SX7    X6+B5             FUNTYPE = NUMBER OF WDS IN FUNCTION R         PH1CTL       969     A     
 PH1CTL             SA7    =XFUNTYPE                                                       PH1CTL       970     A     
 PH1CTL             SX7    2002B                                                           PH1CTL       971     A     
 PH1CTL             LX7    48                                                              PH1CTL       972     A     
 PH1CTL             SA7    PROGRAM           FUNC = 12/2002B,48/0                          PH1CTL       973     A     
 PH1CTL                                                                                    PH1CTL       974     A     
 PH1CTL             RJ     PPL               PROCESS PARAMETER LIST                        PH1CTL       975     A     
 PH1CTL             EQ     PROGRTN                                                         PH1CTL       976     A     
 PH1CTL             TITLE              PPL - PROCESS PARAMETER LIST                        PH1CTL       977     A     
 PH1CTL   ***                                                                              PH1CTL       978     A     
 PH1CTL   *         PPL - PROCESS PARAMETER LIST FOR SUBROUTINE OR FUNCTION                PH1CTL       979     A     
 PH1CTL   *         SUBPROGRAM                                                             PH1CTL       980     A     
 PH1CTL   *                                                                                PH1CTL       981     A     
 PH1CTL   *         ENTERS F.P. S AND RETURNS NAMES IN SYMTAB                              PH1CTL       982     A     
 PH1CTL   *         ENTERS TRACE. , TEMPA0. , AND ENTRY. IN SYMTAB AS NECESSARY            PH1CTL       983     A     
 PH1CTL   *         OUTPUTS ALL NECESSARY INFORMATION FOR TRACEBACK AND ENTRY              PH1CTL       984     A     
 PH1CTL   *         POINT FORMATION                                                        PH1CTL       985     A     
 PH1CTL   *                                                                                PH1CTL       986     A     
 PH1CTL                                                                                    PH1CTL       987     A     
 PH1CTL    E.RSL    EQU    39                RETURNS LIST SYNTAX ERROR                     PH1CTL       988     A     
 PH1CTL    E.DFP    EQU    40                DUPLICATE F.P.                                PH1CTL       989     A     
 PH1CTL    E.TMFP   EQU    108               TOO MANY F.P. S                               PH1CTL       990     A     
 PH1CTL                                                                                    PH1CTL       991     A     
 PH1CTL    M.FPS    EQU    63                MAXIMUM NUMBER OF F.P. S                      PH1CTL       992     A     
 PH1CTL                                                                                    PH1CTL       993     A     
 PH1CTL   *         ERROR EXITS                                                            PH1CTL       994     A     
 PH1CTL                                                                                    PH1CTL       995     A     
 PH1CTL    PPL.SE   SB6    E.HCSE            HEADER CARD SYNTAX ERROR                      PH1CTL       996     A     
 PH1CTL                                                                                    PH1CTL       997     A     
 PH1CTL    PPL.EX   POSTER SEV=FE,NR=**                                                    PH1CTL       998     A     
 PH1CTL             RJ     ESF               ENTER SPECIAL SYMBOLS                         PH1CTL       999     A     
 PH1CTL                                                                                    PH1CTL      1000     A     
 PH1CTL                                                                                    PH1CTL      1001     A     
 PH1CTL                                                                                    PH1CTL      1002     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2585    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL    PPL      ENTRY. *                 ** ENTRY/EXIT **                              PH1CTL      1003     A     
 PH1CTL             GETE                     , ( OR EOS                                    PH1CTL      1004     A     
 PH1CTL             IF.EQ  EL.COMMA,PPL4     IF A ,                                        PH1CTL      1005     A     
 PH1CTL             IF.NE  EL.(,PPL5         IF NOT A (                                    PH1CTL      1006     A     
 PH1CTL                                                                                    PH1CTL      1007     A     
 PH1CTL   *         PROCESS F.P. LIST, ENTER NAMES IN SYMTAB, SET F.P. AND DEFINED         PH1CTL      1008     A     
 PH1CTL   *         BITS AND TYPE                                                          PH1CTL      1009     A     
 PH1CTL                                                                                    PH1CTL      1010     A     
 PH1CTL    PPL1     NEXTE                                                                  PH1CTL      1011     A     
 PH1CTL             IF.NE  NAME,PPL.SE       IF NOT A NAME                                 PH1CTL      1012     A     
 PH1CTL             UPDATE                                                                 PH1CTL      1013     A     
 PH1CTL             SYMBOL                   ENTER IN SYMTAB                               PH1CTL      1014     A     
 PH1CTL             MX0    1                                                               PH1CTL      1015     A     
 PH1CTL             LX0    1+P.FP                                                          PH1CTL      1016     A     
 PH1CTL             EQ     PPL2                                                            PH1CTL      1017     A     
 PH1CTL                                                                                    PH1CTL      1018     A     
 PH1CTL             BSS    0           *SYMBOL FOUND* RETURNS HERE                         PH1CTL      1019     A     
 PH1CTL             SA5    SELIST      (X5) = ADDRESS OF CURRENT E-LIST ENTRY              PH1CTL      1020     A     
 PH1CTL             POSTER SEV=FE,NR=E.DFP,FMT=ELIST,TXT=X5+1,RETURN=PPL3                  PH1CTL      1021     A     
 PH1CTL                                                                                    PH1CTL      1022     A     
 PH1CTL    PPL2     BX7    X6+X2             SET NATURAL TYPE                              PH1CTL      1023     A     
 PH1CTL             SA3    N.FP                                                            PH1CTL      1024     A     
 PH1CTL             BX6    X0+X1       SET F.P. BIT                                        PH1CTL      1025     A     
 PH1CTL             LX0    -P.FP                                                           PH1CTL      1026     A     
 PH1CTL             BX7    X0+X7       AND IN WORD B                                       PH1CTL      1027     A     
 PH1CTL             SA7    A2                                                              PH1CTL      1028     A     
 PH1CTL             SA6    A1                                                              PH1CTL      1029     A     
 PH1CTL             SX0    X3-M.FPS                                                        PH1CTL      1030     A     
 PH1CTL             SB6    -E.TMFP                                                         PH1CTL      1031     A     
 PH1CTL             SX6    X3+B5             INCREMENT NUMBER OF F.P. S                    PH1CTL      1032     A     
 PH1CTL             SA6    A3                                                              PH1CTL      1033     A     
 PH1CTL             PL     X0,PPL.EX         IF TOO MANY F.P. S                            PH1CTL      1034     A     
 PH1CTL                                                                                    PH1CTL      1035     A     
 PH1CTL             SA5    RSELECT                                                         PH1CTL      1036     A     
 PH1CTL             ZR     X5,PPL3           IF R = 0                                      PH1CTL      1037     A     
 PH1CTL             ADDREF B1,DEF            HEADER LINE DEFINES THE F.P.S                 PH1CTL      1038     A     
 PH1CTL                                                                                    PH1CTL      1039     A     
 PH1CTL    PPL3     GETE                     NEXT AFTER THE NAME                           PH1CTL      1040     A     
 PH1CTL             IF.EQ  EL.COMMA,PPL1     LOOP IF A COMMA                               PH1CTL      1041     A     
 PH1CTL             IF.NE  EL.),PPL.SE       IF NOT A )                                    PH1CTL      1042     A     
 PH1CTL                                                                                    PH1CTL      1043     A     
 PH1CTL   *         (TEMPA0.).NE.0 MEANS THAT *ESF* IS TO DEFINE *TEMPA0.* AND             PH1CTL      1044     A     
 PH1CTL   *         SPECIFIES THAT CODE WILL BE PUT OUT TO SAVE AND RESTORE                PH1CTL      1045     A     
 PH1CTL   *         *TEMPA0.*.                                                             PH1CTL      1046     A     
 PH1CTL                                                                                    PH1CTL      1047     A     
 PH1CTL             SX7    L.SVCD                                                          PH1CTL      1048     A     
 PH1CTL             SA7    =XTEMPA0.                                                       PH1CTL      1049     A     
 PH1CTL                                                                                    PH1CTL      1050     A     
 PH1CTL             NEXTE                                                                  PH1CTL      1051     A     
 PH1CTL             IF.NE  EL.COMMA,PPL5     IF NOT A COMMA                                PH1CTL      1052     A     
 PH1CTL                                                                                    PH1CTL      1053     A     
 PH1CTL    PPL4     RJ     PRP               PROCESS RETURNS PARAMETERS                    PH1CTL      1054     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2586    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL                                                                                    PH1CTL      1055     A     
 PH1CTL    PPL5     IF.NE  EL.EOS,PPL.SE     IF NO EOS                                     PH1CTL      1056     A     
 PH1CTL                                                                                    PH1CTL      1057     A     
 PH1CTL             EQ     PPL                                                             PH1CTL      1058     A     
 PH1CTL             TITLE              PRP - PROCESS RETURNS PARAMETER LIST                PH1CTL      1059     A     
 PH1CTL    RTNS     VFD    12/2001B,48/8RRETURNS                                           PH1CTL      1060     A     
 PH1CTL                                                                                    PH1CTL      1061     A     
 PH1CTL   ***                                                                              PH1CTL      1062     A     
 PH1CTL   *         PRP - PROCESS RETURNS PARAMETER LIST                                   PH1CTL      1063     A     
 PH1CTL   *         ENTER NAMES IN SYMTAB AND SET TYPE TO T.RTN                            PH1CTL      1064     A     
 PH1CTL   *                                                                                PH1CTL      1065     A     
 PH1CTL                                                                                    PH1CTL      1066     A     
 PH1CTL    PRP.SE   SB6    E.RSL             RETURNS LIST ERROR                            PH1CTL      1067     A     
 PH1CTL             EQ     PPL.EX                                                          PH1CTL      1068     A     
 PH1CTL                                                                                    PH1CTL      1069     A     
 PH1CTL                                                                                    PH1CTL      1070     A     
 PH1CTL                                                                                    PH1CTL      1071     A     
 PH1CTL    PRP      ENTRY. *                 ** ENTRY/EXIT **                              PH1CTL      1072     A     
 PH1CTL             NEXTE                                                                  PH1CTL      1073     A     
 PH1CTL             SA2    RTNS              CODE FOR RETURNS                              PH1CTL      1074     A     
 PH1CTL             IX3    X4-X2                                                           PH1CTL      1075     A     
 PH1CTL             NZ     X3,PPL.SE         IF NOT ,RETURNS                               PH1CTL      1076     A     
 PH1CTL             SA1    PROGRAM                                                         PH1CTL      1077     A     
 PH1CTL             SB3    B5+B5                                                           PH1CTL      1078     A     
 PH1CTL             UX1    B2,X1                                                           PH1CTL      1079     A     
 PH1CTL             EQ     B2,B3,PPL.SE      IF A FUNCTION                                 PH1CTL      1080     A     
 PH1CTL                                                                                    PH1CTL      1081     A     
 PH1CTL   *         (TEMPA0.).NE.0 MEANS THAT *ESF* IS TO DEFINE *TEMPA0.* AND             PH1CTL      1082     A     
 PH1CTL   *         SPECIFIES THAT CODE WILL BE PUT OUT TO SAVE AND RESTORE                PH1CTL      1083     A     
 PH1CTL   *         *TEMPA0.*.                                                             PH1CTL      1084     A     
 PH1CTL                                                                                    PH1CTL      1085     A     
 PH1CTL             SX7    L.SVCD                                                          PH1CTL      1086     A     
 PH1CTL             SA7    =XTEMPA0.                                                       PH1CTL      1087     A     
 PH1CTL             NEXTE                                                                  PH1CTL      1088     A     
 PH1CTL             IF.NE  EL.(,PRP.SE       IF NOT A (                                    PH1CTL      1089     A     
 PH1CTL                                                                                    PH1CTL      1090     A     
 PH1CTL   *         PROCESS THE LIST OF NAMES                                              PH1CTL      1091     A     
 PH1CTL                                                                                    PH1CTL      1092     A     
 PH1CTL    PRP1     NEXTE                                                                  PH1CTL      1093     A     
 PH1CTL             IF.NE  NAME,PRP.SE       IF NOT A NAME                                 PH1CTL      1094     A     
 PH1CTL             UPDATE                                                                 PH1CTL      1095     A     
 PH1CTL             SYMBOL                   ENTER NAME IN SYMTAB                          PH1CTL      1096     A     
 PH1CTL             SX0    T.RTN                                                           PH1CTL      1097     A     
 PH1CTL             EQ     PRP2                                                            PH1CTL      1098     A     
 PH1CTL                                                                                    PH1CTL      1099     A     
 PH1CTL             BSS    0           *SYMBOL FOUND* RETURNS HERE                         PH1CTL      1100     A     
 PH1CTL             SA5    SELIST      (X5) = ADDRESS OF CURRENT E-LIST ENTRY              PH1CTL      1101     A     
 PH1CTL             POSTER SEV=FE,NR=E.DFP,FMT=ELIST,TXT=X5+1,RETURN=PRP3                  PH1CTL      1102     A     
 PH1CTL                                                                                    PH1CTL      1103     A     
 PH1CTL    PRP2     LX0    P.TYP                                                           PH1CTL      1104     A     
 PH1CTL             BX7    X0+X2                                                           PH1CTL      1105     A     
 PH1CTL             SA7    A2                SET TYPE IN WORD B                            PH1CTL      1106     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2587    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             SA5    RSELECT                                                         PH1CTL      1107     A     
 PH1CTL             ZR     X5,PRP3           IF R = 0                                      PH1CTL      1108     A     
 PH1CTL                                                                                    PH1CTL      1109     A     
 PH1CTL    PRP3     GETE                     NEXT AFTER THE NAME                           PH1CTL      1110     A     
 PH1CTL             IF.EQ  EL.COMMA,PRP1     LOOP IF A COMMA                               PH1CTL      1111     A     
 PH1CTL             IF.NE  EL.),PRP.SE       IF NOT A )                                    PH1CTL      1112     A     
 PH1CTL             SA1    =XSYMORD                                                        PH1CTL      1113     A     
 PH1CTL             SX2    X1-M.FPS-3                                                      PH1CTL      1114     A     
 PH1CTL             SB6    -E.TMFP                                                         PH1CTL      1115     A     
 PH1CTL             PL     X2,PPL.EX                                                       PH1CTL      1116     A     
 PH1CTL             NEXTE                                                                  PH1CTL      1117     A     
 PH1CTL             EQ     PRP                                                             PH1CTL      1118     A     
 PH1CTL    CCS      SPACE  4,8                                                             PH1CTL      1119     A     
 PH1CTL   **        CCS - CHECK FOR AND COPY COMPASS SOURCE INPUT.                         PH1CTL      1120     A     
 PH1CTL   *                                                                                PH1CTL      1121     A     
 PH1CTL   *                                                                                PH1CTL      1122     A     
 PH1CTL   *         ENTRY  (B1) = 1                                                        PH1CTL      1123     A     
 PH1CTL   *                                                                                PH1CTL      1124     A     
 PH1CTL   *         EXIT   (B7) = .ZR. IF CURRENT SOURCE LINE NOT *IDENT*                  PH1CTL      1125     A     
 PH1CTL   *                     = .NZ. IF IT WAS *IDENT* AND COMPASS SOURCE COPIED         PH1CTL      1126     A     
 PH1CTL   *                                                                                PH1CTL      1127     A     
 PH1CTL   *         USES   ALL                                                             PH1CTL      1128     A     
 PH1CTL   *                                                                                PH1CTL      1129     A     
 PH1CTL   *         CALLS  DSL, MCS, MPP, READC, WLD, WRITEC                               PH1CTL      1130     A     
 PH1CTL                                                                                    PH1CTL      1131     A     
 PH1CTL                                                                                    PH1CTL      1132     A     
 PH1CTL             QUAL   CCS                                                             PH1CTL      1133     A     
 PH1CTL                                                                                    PH1CTL      1134     A     
 PH1CTL    CCS      SUBR               ** ENTRY/EXIT **                                    PH1CTL      1135     A     
 PH1CTL             SA1    =XCP.CARD                                                       PH1CTL      1136     A     
 PH1CTL             SA2    =1H                                                             PH1CTL      1137     A     
 PH1CTL             SA3    A1+B1                                                           PH1CTL      1138     A     
 PH1CTL             MX6    36                                                              PH1CTL      1139     A     
 PH1CTL             SA4    =6LIDENT                                                        PH1CTL      1140     A     
 PH1CTL             BX1    X1-X2                                                           PH1CTL      1141     A     
 PH1CTL             SB7    B0+         RETURN *IDENT NOT FOUND* STATUS                     PH1CTL      1142     A     
 PH1CTL             BX6    X6*X3                                                           PH1CTL      1143     A     
 PH1CTL             BX3    X6-X4                                                           PH1CTL      1144     A     
 PH1CTL             BX4    X1+X3                                                           PH1CTL      1145     A     
 PH1CTL             NZ     X4,EXIT.    IF NOT *IDENT* LINE                                 PH1CTL      1146     A     
 PH1CTL             MI     X4,EXIT.                                                        PH1CTL      1147     A     
 PH1CTL             SA1    L.LCC                                                           PH1CTL      1148     A     
 PH1CTL             ZR     X1,CCS1     IF NO SAVED LOADER DIRECTIVES                       PH1CTL      1149     A     
 PH1CTL             SA1    =H*LOADER DIRECTIVES*                                           PH1CTL      1150     A     
 PH1CTL             SA2    A1+B1                                                           PH1CTL      1151     A     
 PH1CTL             BX6    X1                                                              PH1CTL      1152     A     
 PH1CTL             SA6    =XTL.PTYP                                                       PH1CTL      1153     A     
 PH1CTL             BX7    X2                                                              PH1CTL      1154     A     
 PH1CTL             SA7    A6+B1                                                           PH1CTL      1155     A     
 PH1CTL    CCS1     CALL   DSL         DUMP SAVED LINES (LDR DIRS, COMMENTS, ETC)          PH1CTL      1156     A     
 PH1CTL             CALL   MPP         MAINTAIN PAGE PARITY                                PH1CTL      1157     A     
 PH1CTL             SA1    =1H                                                             PH1CTL      1158     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2588    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             MX6    0                                                               PH1CTL      1159     A     
 PH1CTL             BX7    X1                                                              PH1CTL      1160     A     
 PH1CTL             SA6    =XN.LINES   FORCE PAGE EJECT ON NEXT *LISTL* CALL               PH1CTL      1161     A     
 PH1CTL             SA7    =XTL.PTYP   CLEAR TITLE LINE                                    PH1CTL      1162     A     
 PH1CTL             SA7    A7+B1                                                           PH1CTL      1163     A     
 PH1CTL             SA1    =XUFLAG                                                         PH1CTL      1164     A     
 PH1CTL             SA2    =XCAFLAG                                                        PH1CTL      1165     A     
 PH1CTL             NZ     X1,CCS2     IF *E* OPTION SELECTED                              PH1CTL      1166     A     
 PH1CTL             NZ     X2,CCS6     IF *C* OPTION SELECTED                              PH1CTL      1167     A     
 PH1CTL             WRITER =XF.OUT,RCL FLUSH OUTPUT BUFFER                                 PH1CTL      1168     A     
 PH1CTL             EQ     =XLDCOM     GO LOAD *COMPASS*                                   PH1CTL      1169     A     
 PH1CTL                                                                                    PH1CTL      1170     A     
 PH1CTL   *         *E* OPTION SELECTED.  FORM -*DECK,PROGNAM- LINE AND WRITE IT           PH1CTL      1171     A     
 PH1CTL   *         TO THE *COMPS* FILE.                                                   PH1CTL      1172     A     
 PH1CTL                                                                                    PH1CTL      1173     A     
 PH1CTL    CCS2     SA1    DECK        (X1) =IMAGE OF *DECK,                               PH1CTL      1174     A     
 PH1CTL             SA2    =XSBUFF+5   (X2) = 1ST CHARACTER AFTER *IDENT*                  PH1CTL      1175     A     
 PH1CTL             SB7    CCSA        (B7) = FWA OF LINE ASSEMBLY AREA                    PH1CTL      1176     A     
 PH1CTL             BX6    X1                                                              PH1CTL      1177     A     
 PH1CTL             MX7    0                                                               PH1CTL      1178     A     
 PH1CTL             SX1    B0          CLEAR PACK REGISTER                                 PH1CTL      1179     A     
 PH1CTL             SB2    54          PACK SHIFT COUNTER                                  PH1CTL      1180     A     
 PH1CTL             SA6    B7                                                              PH1CTL      1181     A     
 PH1CTL             SB3    6           PACK SHIFT DECREMENT                                PH1CTL      1182     A     
 PH1CTL             MX3    -1R         SHIFT TEST MASK BASED ON MAX NON-TERM CHAR          PH1CTL      1183     A     
 PH1CTL             SA7    B7+B1                                                           PH1CTL      1184     A     
 PH1CTL    CCS3     SB4    X2+7777B    BIAS TERM CHAR TO 7777B OR 10055_10076B             PH1CTL      1185     A     
 PH1CTL             UX2    X2                                                              PH1CTL      1186     A     
 PH1CTL             AX6    X3,B4                                                           PH1CTL      1187     A     
 PH1CTL             ZR     X6,CCS4     IF TERMINATING CHARACTER                            PH1CTL      1188     A     
 PH1CTL             LX2    B2                                                              PH1CTL      1189     A     
 PH1CTL             SB2    B2-B3                                                           PH1CTL      1190     A     
 PH1CTL             BX1    X1+X2       PACK NEW CHARACTER                                  PH1CTL      1191     A     
 PH1CTL             SA2    A2+B1       (X2) = NEXT CHARACTER                               PH1CTL      1192     A     
 PH1CTL             PL     B2,CCS3     IF MORE TO PACK                                     PH1CTL      1193     A     
 PH1CTL    CCS4     NZ     X1,CCS5     IF NAME NOT NULL                                    PH1CTL      1194     A     
 PH1CTL             SA1    =8L*******  INVENTED NAME                                       PH1CTL      1195     A     
 PH1CTL    CCS5     RJ     MCS         MERGE CODED STRINGS                                 PH1CTL      1196     A     
 PH1CTL             WRITEC =XF.CMPS,CCSA,0                                                 PH1CTL      1197     A     
 PH1CTL                                                                                    PH1CTL      1198     A     
 PH1CTL   *         COPY ASSEMBLY-LANGUAGE SOURCE CODE TO THE *COMPS* FILE.                PH1CTL      1199     A     
 PH1CTL                                                                                    PH1CTL      1200     A     
 PH1CTL    CCS6     WRITEC =XF.CMPS,=XCP.CARD,0    *IDENT* LINE TO *COMPS*                 PH1CTL      1201     A     
 PH1CTL             RJ     WLD         WRITE LOADER DIRECTIVE(S) TO *COMPS*                PH1CTL      1202     A     
 PH1CTL             SX6    B0+                                                             PH1CTL      1203     A     
 PH1CTL             SA6    CCSB                                                            PH1CTL      1204     A     
 PH1CTL                                                                                    PH1CTL      1205     A     
 PH1CTL   *         COPY LOOP - COPY UNTIL END LINE FOUND.                                 PH1CTL      1206     A     
 PH1CTL   *         AN END LINE IS A NON-COMMENT, NON-CONTINUATION LINE WITH               PH1CTL      1207     A     
 PH1CTL   *         THE CHARACTERS *END * IN COLUMNS 11 - 14.                              PH1CTL      1208          I
          -FCC1853X 
 PH1CTL   *         THE CHARACTERS * END * IN COLUMNS 10 - 14.                             FCC1853X       4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2589    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL                                                                                    PH1CTL      1209     A     
 PH1CTL    CCS7     READC  =XF.IN,=XCP.CARD,=XL.MAXCD                                      PH1CTL      1210     A     
 PH1CTL             NZ     X1,CCS9     IF END (EOS/EOP/EOI) OF SOURCE INPUT                PH1CTL      1211     A     
 PH1CTL             SA1    CCSB                                                            PH1CTL      1212     A     
 PH1CTL             SB7    B6          LINE LWA+1, DOUBLES AS *IDENT FOUND* STATUS         PH1CTL      1213     A     
 PH1CTL             MX6    -6                                                              PH1CTL      1214     A     
 PH1CTL             SA2    =XCP.CARD                                                       PH1CTL      1215     A     
 PH1CTL             NZ     X1,EXIT.    IF *END* LINE FOUND                                 PH1CTL      1216     A     
 PH1CTL             LX2    -54                                                             PH1CTL      1217     A     
 PH1CTL             SA3    A2+B1                                                           PH1CTL      1218     A     
 PH1CTL             SB6    A2          (B6) = LINE FWA                                     PH1CTL      1219     A     
 PH1CTL             BX6    -X6*X2      EXTRACT COL 1                                       PH1CTL      1220     A     
 PH1CTL             SX7    1S7+1S0     SHIFT TEST MASK FOR * AND ,                         PH1CTL      1221     A     
 PH1CTL             SB2    X6+59-7-1R* ADJUST FOR TEST MASK POSITION                       PH1CTL      1222     A     
 PH1CTL             SA4    =4LEND                                                          PH1CTL      1223     A     
 PH1CTL             LX7    B2                                                              PH1CTL      1224     A     
 PH1CTL             MX6    4*6                                                             PH1CTL      1225     A     
 PH1CTL             SB7    B7-B6       (B7) = LINE LENGTH (WORDS)                          PH1CTL      1226     A     
 PH1CTL             BX3    X6*X3       EXTRACT COLS 11-14                                  PH1CTL      1227     A     
 PH1CTL             MI     X7,CCS8     IF *COMPASS* COMMENT OR CONTINUATION LINE           PH1CTL      1228     A     
 PH1CTL             EQ     B7,B1,CCS8  IF LENGTH = 1, *END* NOT POSSIBLE                   PH1CTL      1229     A     
 PH1CTL             BX3    X3-X4                                                           PH1CTL      1230     A     
 PH1CTL             NZ     X3,CCS8     IF NOT *END* LINE                                   PH1CTL      1231          I
          -FCC1853X 
 PH1CTL             NZ     X3,CCS8     IF NOT POSSIBLE *END* LINE                          FCC1853X       5     A     
 PH1CTL             LX2    -6                                                              FCC1853X       6     A     
 PH1CTL             MX1    -6                                                              FCC1853X       7     A     
 PH1CTL             BX3    -X1*X2      EXTRACT COL 10                                      FCC1853X       8     A     
 PH1CTL             SX4    1R                                                              FCC1853X       9     A     
 PH1CTL             BX5    X3-X4                                                           FCC1853X      10     A     
 PH1CTL             NZ     X5,CCS8     IF END CARD NOT PRECEEDED BY BLANK                  FCC1853X      11     A     
 PH1CTL             SA6    A1          SET *END FOUND* STATUS                              PH1CTL      1232     A     
 PH1CTL    CCS8     WRITEC =XF.CMPS,B6,B7    LINE TO *COMPS* FILE                          PH1CTL      1233     A     
 PH1CTL             EQ     CCS7                                                            PH1CTL      1234     A     
 PH1CTL                                                                                    PH1CTL      1235     A     
 PH1CTL   *         HERE IF EMPTY INPUT FILE.                                              PH1CTL      1236     A     
 PH1CTL                                                                                    PH1CTL      1237     A     
 PH1CTL    CCS9     SX6    0                                                               PH1CTL      1238     A     
 PH1CTL             SA6    =XCP.CARD   MARK END OF INPUT                                   PH1CTL      1239     A     
 PH1CTL             EQ     =XFTNEND    GO TERMINATE COMPILATION                            PH1CTL      1240     A     
 PH1CTL                                                                                    PH1CTL      1241     A     
 PH1CTL                                                                                    PH1CTL      1242     A     
 PH1CTL                                                                                    PH1CTL      1243     A     
 PH1CTL    CCSA     BSSZ   2           ASSEMBLY AREA FOR -*DECK,PROGNAM- LINE              PH1CTL      1244     A     
 PH1CTL    CCSB     BSSZ   1           .NZ. WHEN *END* LINE FOUND ON SOURCE FILE           PH1CTL      1245     A     
 PH1CTL             SPACE  4                                                               PH1CTL      1246     A     
 PH1CTL             QUAL   *                                                               PH1CTL      1247     A     
 PH1CTL    CCS      =      /CCS/CCS                                                        PH1CTL      1248     A     
 PH1CTL             ENTRY  CCS                                                             PH1CTL      1249     A     
 PH1CTL    MCS      TITLE  MERGE CODED STRINGS                                             PH1CTL      1250     A     
 PH1CTL   **        MCS - MERGE CODED STRINGS.                                             PH1CTL      1251     A     
 PH1CTL   *                                                                                PH1CTL      1252     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2590    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL   *                CONCATENATES NEW CHARACTER STRING IN (X1) WITH OLD              PH1CTL      1253     A     
 PH1CTL   *         STRING AT (B7).  STORES RESULT AT (B7) AND, IF NEW STRING              PH1CTL      1254     A     
 PH1CTL   *         LENGTH REQUIRES, AT (B7)+1.  BOTH OLD AND NEW STRINGS ARE              PH1CTL      1255     A     
 PH1CTL   *         ASSUMED TO BE LEFT JUSTIFIED WITH ZERO FILL.  EITHER MAY BE            PH1CTL      1256     A     
 PH1CTL   *         NULL OR FULL.                                                          PH1CTL      1257     A     
 PH1CTL   *                                                                                PH1CTL      1258     A     
 PH1CTL   *                ***  LIMITATION -- TRAILING COLONS ARE IDENTICAL TO             PH1CTL      1259     A     
 PH1CTL   *         ZERO FILL, AND WILL BE LOST.                                           PH1CTL      1260     A     
 PH1CTL   *                                                                                PH1CTL      1261     A     
 PH1CTL   *                                                                                PH1CTL      1262     A     
 PH1CTL   *         ENTRY  (X1) = *NEW* STRING                                             PH1CTL      1263     A     
 PH1CTL   *                (B7) = ADDRESS OF *OLD* STRING                                  PH1CTL      1264     A     
 PH1CTL   *                                                                                PH1CTL      1265     A     
 PH1CTL   *         EXIT   MERGED STRING STORED AT (B7) AND, POSSIBLY, AT (B7)+1           PH1CTL      1266     A     
 PH1CTL   *                (X1) = UNCHANGED                                                PH1CTL      1267     A     
 PH1CTL   *                (X2) = ORIGINAL *OLD* STRING                                    PH1CTL      1268     A     
 PH1CTL   *                (X6) = *OLD* .AND. UPPER *NEW*                                  PH1CTL      1269     A     
 PH1CTL   *                (X7) = LOWER *NEW*, IF ANY, ELSE = 0                            PH1CTL      1270     A     
 PH1CTL   *                (B1) = 1                                                        PH1CTL      1271     A     
 PH1CTL   *                (B7) = ADDRESS OF *OLD*, UPDATED IF LOWER *NEW* .NZ.            PH1CTL      1272     A     
 PH1CTL   *                                                                                PH1CTL      1273     A     
 PH1CTL   *         USES   X - 2, 3, 6, 7                                                  PH1CTL      1274     A     
 PH1CTL   *                A - 2, 3, 6, 7                                                  PH1CTL      1275     A     
 PH1CTL   *                B - 1, 2, 7                                                     PH1CTL      1276     A     
 PH1CTL   *                                                                                PH1CTL      1277     A     
 PH1CTL   *         CALLS  NONE                                                            PH1CTL      1278     A     
 PH1CTL                                                                                    PH1CTL      1279     A     
 PH1CTL                                                                                    PH1CTL      1280     A     
 PH1CTL             QUAL   MCS                                                             PH1CTL      1281     A     
 PH1CTL                                                                                    PH1CTL      1282     A     
 PH1CTL    MCS      SUBR               ** ENTRY/EXIT **                                    PH1CTL      1283     A     
 PH1CTL             SA2    B7          (X2) = *OLD* STRING                                 PH1CTL      1284     A     
 PH1CTL             MX7    -1                                                              PH1CTL      1285     A     
 PH1CTL             SA3    MCSA                                                            PH1CTL      1286     A     
 PH1CTL             IX6    X2+X7       BORROW RIPPLES LEFT TO 1ST NON-ZERO CHAR            PH1CTL      1287     A     
 PH1CTL             BX7    -X2*X6      EXTRACT BORROWS                                     PH1CTL      1288     A     
 PH1CTL             SB1    1                                                               PH1CTL      1289     A     
 PH1CTL             BX3    X3*X7       EXTRACT NULL BYTES                                  PH1CTL      1290     A     
 PH1CTL             CX6    X3          (X6) = NR OF TRAILING ZERO BYTES                    PH1CTL      1291          I
          -FCC0220
 PH1CTL             NO                                                                     PH1CTL      1292          I
          -FCC0220
 PH1CTL             IX7    X6+X6                                                           PH1CTL      1293          I
          -FCC0220
 PH1CTL             LX6    2                                                               PH1CTL      1294          I
          -FCC0220
 PH1CTL             IX7    X6+X7                                                           PH1CTL      1295          I
          -FCC0220
 PH1CTL             SB2    X7          (B2) = NR OF TRAILING ZERO BITS                     PH1CTL      1296          I
          -FCC0220
 PH1CTL             BX7    X3          EACH NULL BYTE = 40                                 PH1CTL      1297     A     
 PH1CTL             LX3    -5          EACH NULL BYTE = 01                                 PH1CTL      1298     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2591    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             IX6    X7-X3       EACH NULL BYTE = 37                                 PH1CTL      1299     A     
 PH1CTL             BX7    X6+X7       EACH NULL BYTE = 77 ... EXTRACTION MASK             PH1CTL      1300     A     
 PH1CTL             CX6    X7                                                              FCC0220      106     A     
 PH1CTL             SB2    X6                                                              FCC0220      107     A     
 PH1CTL             LX3    X1,B2       ALIGN *NEW* WITH NULL PART OF *OLD*                 PH1CTL      1301     A     
 PH1CTL             BX6    X7*X3                                                           PH1CTL      1302     A     
 PH1CTL             BX7    -X7*X3      (X7) = LOWER *NEW*                                  PH1CTL      1303     A     
 PH1CTL             BX6    X2+X6       (X6) = *OLD* .AND. UPPER *NEW*                      PH1CTL      1304          I
          -FCC0220
 PH1CTL             BX6    X2+X6       (X6) = *OLD* .OR. UPPER *NEW*                       FCC0220      108     A     
 PH1CTL             SA6    B7                                                              PH1CTL      1305     A     
 PH1CTL             NZ     X7,MCS2     IF LOWER *NEW* NOT EMPTY                            PH1CTL      1306     A     
 PH1CTL             PL     X7,EXIT.                                                        PH1CTL      1307     A     
 PH1CTL    MCS2     SA7    B7+B1                                                           PH1CTL      1308     A     
 PH1CTL             SB7    B7+B1       (B7) = UPDATED STRING ADDRESS                       PH1CTL      1309     A     
 PH1CTL             EQ     EXIT.                                                           PH1CTL      1310     A     
 PH1CTL                                                                                    PH1CTL      1311     A     
 PH1CTL                                                                                    PH1CTL      1312     A     
 PH1CTL                                                                                    PH1CTL      1313     A     
 PH1CTL    MCSA     DATA   40404040404040404040B   NULL CHARACTER BYTE MASK                PH1CTL      1314     A     
 PH1CTL             SPACE  4                                                               PH1CTL      1315     A     
 PH1CTL             QUAL   *                                                               PH1CTL      1316     A     
 PH1CTL    MCS      =      /MCS/MCS                                                        PH1CTL      1317     A     
 PH1CTL    PLD      TITLE  PROCESS LOADER DIRECTIVE.                                       PH1CTL      1318     A     
 PH1CTL   **        PLD - PROCESS LOADER DIRECTIVE.                                        PH1CTL      1319     A     
 PH1CTL   *                                                                                PH1CTL      1320     A     
 PH1CTL   *                                                                                PH1CTL      1321     A     
 PH1CTL   *         EXIT                                                                   PH1CTL      1322     A     
 PH1CTL   *                (B1) = 1                                                        PH1CTL      1323     A     
 PH1CTL   *                (B5) = 1                                                        PH1CTL      1324     A     
 PH1CTL   *                                                                                PH1CTL      1325     A     
 PH1CTL   *         USES   X - 1, 2, 3, 4, 6, 7                                            PH1CTL      1326     A     
 PH1CTL   *                A - 1, 2, 3, 6, 7                                               PH1CTL      1327     A     
 PH1CTL   *                B - 1, 2, 5, 6, 7                                               PH1CTL      1328     A     
 PH1CTL   *                                                                                PH1CTL      1329     A     
 PH1CTL   *         CALLS  GETE, IF., NEXTE, PCS, RTB, WRITER, WRITEW                      PH1CTL      1330     A     
 PH1CTL                                                                                    PH1CTL      1331     A     
 PH1CTL                                                                                    PH1CTL      1332     A     
 PH1CTL             QUAL   PLD                                                             PH1CTL      1333     A     
 PH1CTL                                                                                    PH1CTL      1334     A     
 PH1CTL    PLD      SA1    O.LCC                                                           PH1CTL      1335     A     
 PH1CTL             SA2    L.LCC                                                           PH1CTL      1336     A     
 PH1CTL             SA3    =XFWAWORK                                                       PH1CTL      1337     A     
 PH1CTL             SA4    SYMEND                                                          PH1CTL      1338     A     
 PH1CTL             BX6    X1          SET SAVED FWA                                       PH1CTL      1339     A     
 PH1CTL             NZ     X2,PLD2     IF NOT FIRST LOADER DIRECTIVE                       PH1CTL      1340     A     
 PH1CTL             BX6    X3          SET INITIAL FWA                                     PH1CTL      1341     A     
 PH1CTL    PLD2     SA6    A1          (X6) = FWA LOADER DIRECTIVE SAVE AREA               PH1CTL      1342     A     
 PH1CTL             SB1    1                                                               PH1CTL      1343     A     
 PH1CTL             IX7    X6+X2                                                           PH1CTL      1344     A     
 PH1CTL             SB7    X7          (B7) = FWA UNUSED SAVE AREA                         PH1CTL      1345     A     
 PH1CTL             SX7    X7+4                                                            PH1CTL      1346     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2592    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             IX4    X7-X4                                                           PH1CTL      1347     A     
 PH1CTL             PL     X4,PLD.ER2  IF NOT ENOUGH ROOM FOR SAVING NEW LINE              PH1CTL      1348     A     
 PH1CTL             SA7    A3          RESERVE MEMORY                                      PH1CTL      1349     A     
 PH1CTL             SB5    B1                                                              PH1CTL      1350     A     
 PH1CTL             SA1    =7LOVERLAY                                                      PH1CTL      1351     A     
 PH1CTL             BX6    X1                                                              PH1CTL      1352     A     
 PH1CTL             SA6    B7                                                              PH1CTL      1353     A     
 PH1CTL             GETE                                                                   PH1CTL      1354     A     
 PH1CTL    PLD3     IF.EQ  EL.EOS,PLD4                                                     PH1CTL      1355     A     
 PH1CTL             BX1    X4                                                              PH1CTL      1356     A     
 PH1CTL             CALL   CED         CONVERT E-LIST TO DISPLAY CODE                      PH1CTL      1357          I
          -FCC1957
 PH1CTL             LX4    15D         PUT CONST INDICATOR IN LOW ORDER BITS               FCC1957        9     A     
 PH1CTL             MX6    -3                                                              FCC1957       10     A     
 PH1CTL             BX6    -X6*X4      EXTRACT CONSTANT                                    FCC1957       11     A     
 PH1CTL             SX6    X6-6                                                            FCC1957       12     A     
 PH1CTL             NZ     X6,PLD31    IF NOT HOLL CONSTANT                                FCC1957       13     A     
 PH1CTL             SA1    =6L=HOLL=                                                       FCC1957       14     A     
 PH1CTL             EQ     PLD32                                                           FCC1957       15     A     
 PH1CTL    PLD31    CALL   CED         CONVERT E-LIST TO DISPLAY CODE                      FCC1957       16     A     
 PH1CTL             BX1    X6                                                              PH1CTL      1358     A     
 PH1CTL             CALL   RTB         REMOVE TRAILING BLANKS                              PH1CTL      1359     A     
 PH1CTL             BX1    X6                                                              PH1CTL      1360     A     
 PH1CTL             CALL   MCS         MERGE CODED STRINGS                                 PH1CTL      1361          I
          -FCC1957
 PH1CTL    PLD32    CALL   MCS         MERGE CODED STRINGS                                 FCC1957       17     A     
 PH1CTL             NEXTE                                                                  PH1CTL      1362     A     
 PH1CTL             EQ     PLD3                                                            PH1CTL      1363     A     
 PH1CTL                                                                                    PH1CTL      1364     A     
 PH1CTL   *         TERMINATE PROCESSING.                                                  PH1CTL      1365     A     
 PH1CTL                                                                                    PH1CTL      1366     A     
 PH1CTL    PLD4     SA1    B7                                                              PH1CTL      1367     A     
 PH1CTL             MX6    -12                                                             PH1CTL      1368     A     
 PH1CTL             BX7    -X6*X1                                                          PH1CTL      1369     A     
 PH1CTL             MX6    0                                                               PH1CTL      1370     A     
 PH1CTL             ZR     X7,PLD5     IF ZERO BYTE LINE TERMINATOR IN LAST WORD           PH1CTL      1371     A     
 PH1CTL             SA6    B7+B1       TERMINATE LINE                                      PH1CTL      1372     A     
 PH1CTL             SB7    B7+B1                                                           PH1CTL      1373     A     
 PH1CTL    PLD5     SA1    O.LCC                                                           PH1CTL      1374     A     
 PH1CTL             SA2    L.LCC                                                           PH1CTL      1375     A     
 PH1CTL             SX7    B7+B1       (X7) = LWA+1 OF SAVED LINES                         PH1CTL      1376     A     
 PH1CTL             SB7    B7+B1                                                           PH1CTL      1377     A     
 PH1CTL             IX3    X1+X2                                                           PH1CTL      1378     A     
 PH1CTL             SB6    X3          (B6) = FWA OF LAST LINE SAVED                       PH1CTL      1379     A     
 PH1CTL             SA7    =XFWAWORK   UPDATE FWA *SCANNER* WSA                            PH1CTL      1380     A     
 PH1CTL             SB7    B7-B6       (B7) = LENGTH OF LAST LINE                          PH1CTL      1381     A     
 PH1CTL             SX6    X2+B7                                                           PH1CTL      1382     A     
 PH1CTL             SA6    A2          UPDATE LENGTH OF ALL SAVED LINES                    PH1CTL      1383     A     
 PH1CTL             SA1    =XCAFLAG                                                        PH1CTL      1384     A     
 PH1CTL             SA2    =XUFLAG                                                         PH1CTL      1385     A     
 PH1CTL             SA3    =XFV.LGO                                                        PH1CTL      1386     A     
 PH1CTL             BX6    X1+X2                                                           PH1CTL      1387     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2593    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             NZ     X6,PLD7     IF *C* OR *E* OPTION SELECTED                       PH1CTL      1388     A     
 PH1CTL             ZR     X3,PLD7     IF BINARY OUTPUT SUPPRESSED  ( B=0 )                PH1CTL      1389     A     
 PH1CTL             WRITEW =XF.LGO,B6,B7                                                   PH1CTL      1390     A     
 PH1CTL             WRITER =XF.LGO,RCL                                                     PH1CTL      1391     A     
 PH1CTL    PLD7     EQ     CTL5        EXIT ...                                            PH1CTL      1392     A     
 PH1CTL                                                                                    PH1CTL      1393     A     
 PH1CTL                                                                                    PH1CTL      1394     A     
 PH1CTL                                                                                    PH1CTL      1395     A     
 PH1CTL   *         ERROR PROCESSING FOR LOADER DIRECTIVES.                                PH1CTL      1396     A     
 PH1CTL                                                                                    PH1CTL      1397     A     
 PH1CTL    PLD.ER2  POSTER SEV=FC,NR=E225    (DOES NOT RETURN CONTROL HERE)                PH1CTL      1398     A     
 PH1CTL             SPACE  4                                                               PH1CTL      1399     A     
 PH1CTL             QUAL   *                                                               PH1CTL      1400     A     
 PH1CTL    PLD      =      /PLD/PLD                                                        PH1CTL      1401     A     
 PH1CTL             SPACE  4,2                                                             PH1CTL      1402     A     
 PH1CTL    L.LCC    BSSZ   1           LENGTH OF SAVED LOADER CONTROL DIRECTIVES           PH1CTL      1403     A     
 PH1CTL    O.LCC    BSSZ   1           FWA OF SAVED LOADER CONTROL DIRECTIVES              PH1CTL      1404     A     
 PH1CTL    RTB      TITLE  REMOVE TRAILING BLANKS                                          PH1CTL      1405     A     
 PH1CTL   **        RTB - REMOVE TRAILING BLANKS.                                          PH1CTL      1406     A     
 PH1CTL   *                                                                                PH1CTL      1407     A     
 PH1CTL   *                REMOVES ALL TRAILING DISPLAY-CODED BLANKS FROM (X1).            PH1CTL      1408     A     
 PH1CTL   *                                                                                PH1CTL      1409     A     
 PH1CTL   *                                                                                PH1CTL      1410     A     
 PH1CTL   *         ENTRY  (X1) = STRING WITH TRAILING BLANK FILL                          PH1CTL      1411     A     
 PH1CTL   *                                                                                PH1CTL      1412     A     
 PH1CTL   *         EXIT   (X1) = UNCHANGED                                                PH1CTL      1413     A     
 PH1CTL   *                (X6) = STRING, ZERO FILLED                                      PH1CTL      1414     A     
 PH1CTL   *                                                                                PH1CTL      1415     A     
 PH1CTL   *         USES   X - 2, 6, 7                                                     PH1CTL      1416     A     
 PH1CTL   *                A - 2                                                           PH1CTL      1417     A     
 PH1CTL   *                B - NONE                                                        PH1CTL      1418     A     
 PH1CTL   *                                                                                PH1CTL      1419     A     
 PH1CTL   *         CALLS  NONE                                                            PH1CTL      1420     A     
 PH1CTL                                                                                    PH1CTL      1421     A     
 PH1CTL                                                                                    PH1CTL      1422     A     
 PH1CTL             QUAL   RTB                                                             PH1CTL      1423     A     
 PH1CTL                                                                                    PH1CTL      1424     A     
 PH1CTL    RTB      SUBR               ** ENTRY/EXIT **                                    PH1CTL      1425     A     
 PH1CTL             SA2    RTBA                                                            PH1CTL      1426     A     
 PH1CTL             MX6    -1                                                              PH1CTL      1427     A     
 PH1CTL             BX7    X1-X2       CONVERT BLANKS TO ZEROS                             PH1CTL      1428     A     
 PH1CTL             SA2    RTBB                                                            PH1CTL      1429     A     
 PH1CTL             IX6    X7+X6       BORROW RIPPLES LEFT TO NON-ZERO CHAR BYTE           PH1CTL      1430     A     
 PH1CTL             BX7    -X7*X6      EXTRACT BORROWS                                     PH1CTL      1431     A     
 PH1CTL             BX6    X2*X7       EACH ZERO (BLANK) BYTE = 40                         PH1CTL      1432     A     
 PH1CTL             BX2    X6                                                              PH1CTL      1433     A     
 PH1CTL             LX6    -5                                 = 01                         PH1CTL      1434     A     
 PH1CTL             IX7    X2-X6                              = 37                         PH1CTL      1435     A     
 PH1CTL             BX2    X2+X7                              = 77                         PH1CTL      1436     A     
 PH1CTL             BX6    -X2*X1      (X6) = STRING, ZERO FILLED                          PH1CTL      1437     A     
 PH1CTL             EQ     EXIT.                                                           PH1CTL      1438     A     
 PH1CTL                                                                                    PH1CTL      1439     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2594    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL                                                                                    PH1CTL      1440     A     
 PH1CTL                                                                                    PH1CTL      1441     A     
 PH1CTL    RTBA     DATA   1H                                                              PH1CTL      1442     A     
 PH1CTL    RTBB     DATA   40404040404040404040B                                           PH1CTL      1443     A     
 PH1CTL             SPACE  4                                                               PH1CTL      1444     A     
 PH1CTL             QUAL   *                                                               PH1CTL      1445     A     
 PH1CTL    RTB      =      /RTB/RTB                                                        PH1CTL      1446     A     
 PH1CTL    WLD      TITLE  WRITE LOADER DIRECTIVES TO *COMPS* FILE                         PH1CTL      1447     A     
 PH1CTL   **        WLD - WRITE LOADER DIRECTIVES TO *COMPS* FILE.                         PH1CTL      1448     A     
 PH1CTL   *                                                                                PH1CTL      1449     A     
 PH1CTL   *                PREFIXES LOADER DIRECTIVES WITH *  LCC * AND WRITES             PH1CTL      1450     A     
 PH1CTL   *         THEM TO THE *COMPS* FILE.  RESETS (FWAWORK) TO (O.LCC) ON              PH1CTL      1451     A     
 PH1CTL   *         ENTRY, TO RELEASE THE MEMORY IN WHICH THE LOADER DIRECTIVES            PH1CTL      1452     A     
 PH1CTL   *         WERE SAVED.                                                            PH1CTL      1453     A     
 PH1CTL   *                                                                                PH1CTL      1454     A     
 PH1CTL   *                                                                                PH1CTL      1455     A     
 PH1CTL   *         ENTRY  LOADER DIRECTIVES, FORMATTED AS LEFT-JUSTIFIED DPC              PH1CTL      1456     A     
 PH1CTL   *                  LINES, SAVED AT ((O.LCC)).                                    PH1CTL      1457     A     
 PH1CTL   *                (L.LCC) = LENGTH OF SAVED DIRECTIVES                            PH1CTL      1458     A     
 PH1CTL   *                (O.LCC) = FWA OF SAVED DIRECTIVES                               PH1CTL      1459     A     
 PH1CTL   *                                                                                PH1CTL      1460     A     
 PH1CTL   *         EXIT   (FWAWORK) = (O.LCC) ON ENTRY                                    PH1CTL      1461     A     
 PH1CTL   *                (L.LCC) = 0                                                     PH1CTL      1462     A     
 PH1CTL   *                (O.LCC) = DESTROYED                                             PH1CTL      1463     A     
 PH1CTL   *                (B1) = 1                                                        PH1CTL      1464     A     
 PH1CTL   *                                                                                PH1CTL      1465     A     
 PH1CTL   *         USES   X - 1, 2, 3, 6, 7                                               PH1CTL      1466     A     
 PH1CTL   *                A - 1, 2, 6 ,7                                                  PH1CTL      1467     A     
 PH1CTL   *                B - 1, 6, 7                                                     PH1CTL      1468     A     
 PH1CTL   *                                                                                PH1CTL      1469     A     
 PH1CTL   *         CALLS  PCS, WRITEC                                                     PH1CTL      1470     A     
 PH1CTL                                                                                    PH1CTL      1471     A     
 PH1CTL                                                                                    PH1CTL      1472     A     
 PH1CTL             QUAL   WLD                                                             PH1CTL      1473     A     
 PH1CTL                                                                                    PH1CTL      1474     A     
 PH1CTL    WLD      SUBR               ** ENTRY/EXIT **                                    PH1CTL      1475     A     
 PH1CTL             SA1    L.LCC                                                           PH1CTL      1476     A     
 PH1CTL             SB1    1                                                               PH1CTL      1477     A     
 PH1CTL             ZR     X1,EXIT.    IF NO LOADER DIRECTIVES SAVED                       PH1CTL      1478     A     
 PH1CTL             SA1    O.LCC                                                           PH1CTL      1479     A     
 PH1CTL             SA2    =XMACFLAG                                                       PH1CTL      1480     A     
 PH1CTL             BX6    X1                                                              PH1CTL      1481     A     
 PH1CTL             SA6    =XFWAWORK   RELEASE WORKING STORAGE                             PH1CTL      1482     A     
 PH1CTL             ZR     X2,EXIT.    IF MACROS NOT TO BE OUTPUT                          PH1CTL      1483     A     
 PH1CTL    WLD2     SA2    =6L  LCC                                                        PH1CTL      1484     A     
 PH1CTL             SB6    X1          (B6) = FWA OF SAVED LINE                            PH1CTL      1485     A     
 PH1CTL             SA1    X1          (X1) = 1ST WORD OF SAVED LOADER DIRECTIVE           PH1CTL      1486     A     
 PH1CTL             SB7    WLDA        (B7) = FWA OF REFORMATTED DIRECTIVE                 PH1CTL      1487     A     
 PH1CTL             BX6    X2                                                              PH1CTL      1488     A     
 PH1CTL             SA6    B7          *  LCC * TO FORMATTING BUFFER                       PH1CTL      1489     A     
 PH1CTL    WLD3     CALL   MCS         MERGE CODED STRINGS                                 PH1CTL      1490     A     
 PH1CTL             MX6    -12                                                             PH1CTL      1491     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2595    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
 PH1CTL             NO                                                                     PH1CTL      1492     A     
 PH1CTL             BX7    -X6*X1                                                          PH1CTL      1493     A     
 PH1CTL             SA1    A1+B1       (X1) = NEXT WORD OF SAVED LINE                      PH1CTL      1494     A     
 PH1CTL             NZ     X7,WLD3     IF NOT END OF SAVED LINE                            PH1CTL      1495     A     
 PH1CTL             SA2    L.LCC                                                           PH1CTL      1496     A     
 PH1CTL             SX6    A1          (X6) = FWA OF NEXT SAVED LINE                       PH1CTL      1497     A     
 PH1CTL             MX7    0                                                               FCC0752        5     A     
 PH1CTL             SB7    B7+B1                                                           FCC0752        6     A     
 PH1CTL             SX3    A1-B6       (X3) = LENGTH OF CURRENT SAVED LINE                 PH1CTL      1498     A     
 PH1CTL             SA7    B7          MARK EOL                                            FCC0752        7     A     
 PH1CTL             SA6    O.LCC                                                           PH1CTL      1499     A     
 PH1CTL             IX7    X2-X3       (X7) = LENGTH OF REMAINING SAVED LINES              PH1CTL      1500     A     
 PH1CTL             SB7    B7-WLDA+1   (B7) = LENGTH OF REFORMATTED LINE                   PH1CTL      1501     A     
 PH1CTL             SA7    A2                                                              PH1CTL      1502     A     
 PH1CTL             WRITEC =XF.CMPS,WLDA,B7                                                PH1CTL      1503     A     
 PH1CTL             SA2    L.LCC                                                           PH1CTL      1504     A     
 PH1CTL             SA1    O.LCC                                                           PH1CTL      1505     A     
 PH1CTL             NZ     X2,WLD2     IF ANY MORE SAVED LINES                             PH1CTL      1506     A     
 PH1CTL             EQ     EXIT.                                                           PH1CTL      1507     A     
 PH1CTL                                                                                    PH1CTL      1508     A     
 PH1CTL                                                                                    PH1CTL      1509     A     
 PH1CTL                                                                                    PH1CTL      1510     A     
 PH1CTL    WLDA     BSS    5           WSA FOR FORMATTING *LCC* DIRECTIVES                 PH1CTL      1511          I
          -FCC0752
 PH1CTL    WLDA     BSS    6           WSA FOR FORMATTING *LCC* DIRECTIVES                 FCC0752        8     A     
 PH1CTL             SPACE  4                                                               PH1CTL      1512     A     
 PH1CTL             QUAL   *                                                               PH1CTL      1513     A     
 PH1CTL    WLD      =      /WLD/WLD                                                        PH1CTL      1514     A     
 PH1CTL             SPACE  4                                                               PH1CTL      1515     A     
 PH1CTL             LIST   D                                                               PH1CTL      1516     A     
 PH1CTL             SPACE  4                                                               PH1CTL      1517     A     
 PH1CTL    F.WORK1  END    FTN21                                                           PH1CTL      1518     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PH1CTL  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PH1CTL                    1518      1440
          FCC0220                      3         3
          FEAT121L                     7         7
          FCC0752                      4         4
          FCC0840                      4         4
          FCC0946                     10        10
          FCC0996                      1         1
          FEAT155A                    25        22
          FEAT155F                     6         6
          F7540FT                      1         1
          FCC1559X                     4         0
          FCC1463X                     1         0
          RSM3545C                    15        15
          FCC1716X                     3         3
          FCC1795X                     1         1
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2596    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PH1CTL  
  
          F162FTNA                   125       120
          FCC1853X                     8         8
          FCCA408                     17        17
          FCC1957                      9         9
          FCCA426                      7         7
          FCCA437                      1         1
          FCC1998                      6         6
          FCC2064                      7         7
          FCC2104                      3         3
          FCCA531                     12        12
          FCC2246                      1         1
          FCC2306                      8         8
          FCCA564                      5         5
          FCC2360                      6         6
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *PASS3* 
  
 *PASS3*  *DECK     *PASS3*                                                                *PASS3*        1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *PASS3* 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          *PASS3*                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS3CTL  
  
 PS3CTL   *DECK     PS3CTL                                                                 PS3CTL         1     A     
 PS3CTL             IDENT  PS3CTL                                                          PS3CTL         2     A     
 PS3CTL    PS3CTL   TITLE  PASS 3 CONTROLLER                                               PS3CTL         3     A     
 PS3CTL   *CALL     SSTCALL                                                                PS3CTL         4     A     
 PS3CTL             SPACE  4                                                               PS3CTL         5     A     
 PS3CTL    B=PS3CT  RPVDEF                                                                 PS3CTL         6     A     
 PS3CTL    FTN25    SPACE  3,14                                                            PS3CTL         7     A     
 PS3CTL   *         IF (BREAK=25) WAS SELECTED, ENTRY TO OVERLAY(2,5) WILL BE TO           FEAT155F     239     A     
 PS3CTL   *         *FTN25-1* TO CALL THE COMPILE-TIME INTERACTIVE DEBUG PACKAGE.          FEAT155F     240     A     
 PS3CTL                                                                                    FEAT155F     241     A     
 PS3CTL    FTN25    BREAK                                                                  FEAT155F     242     A     
 PS3CTL                                                                                    FEAT155F     243     A     
 PS3CTL             ENTRY  FTN25                                                           PS3CTL         8     A     
 PS3CTL    FTN25    BSS    0           ** LOADER ENTRY POINT **                            PS3CTL         9     A     
 PS3CTL             SB1    1                                                               PS3CTL        10     A     
 PS3CTL             SA1    =XN.FERR                                                        PS3CTL        11     A     
 PS3CTL             ZR     X1,PS32     IF NO FATAL ERRORS                                  PS3CTL        12     A     
 PS3CTL             SA2    =XCP.ERCT                                                       FCC0220      109     A     
 PS3CTL             IX6    X1+X2                                                           FCC0220      110     A     
 PS3CTL             SA6    A2          UPDATE ERROR COUNT GRAND TOTAL                      FCC0220      111     A     
 PS3CTL                                                                                    PS3CTL        13     A     
 PS3CTL             RJ     IEM               ISSUE ERROR MESSAGE TO THE DAYFILE            PS3CTL        14     A     
 PS3CTL             SA1    =XDFLAG                                                         PS3CTL        15     A     
 PS3CTL             ZR     X1,PS31     IF NOT IN DEBUG MODE                                PS3CTL        16     A     
 PS3CTL             SA2    =XP2NOGO                                                        PS3CTL        17     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2597    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS3CTL  
  
 PS3CTL             NZ     X2,PS31     IF NOGO OPTION SPECIFIED                            PS3CTL        18     A     
 PS3CTL             MX7    0                                                               PS3CTL        19     A     
 PS3CTL             SA7    =XN.FERR    CLEAR FATAL ERROR COUNT                             PS3CTL        20     A     
 PS3CTL             EQ     PS32                                                            PS3CTL        21     A     
 PS3CTL                                                                                    PS3CTL        22     A     
 PS3CTL    PS31     WRITEC =XF.CMPS,ECODE,LECODE                                           PS3CTL        23     A     
 PS3CTL                                                                                    PS3CTL        24     A     
 PS3CTL   *         OUTPUT END LINE -  *  END  XFERNAME *                                  PS3CTL        25     A     
 PS3CTL                                                                                    PS3CTL        26     A     
 PS3CTL    PS32     SA1    =XXFRNAME   (X1) = NAME OF TRANSFER ADDR, 7L FORMAT             PS3CTL        27     A     
 PS3CTL             ZR     X1,PS33     IF NO TRANSFER ADDRESS (NOT MAIN PROGRAM)           PS3CTL        28     A     
 PS3CTL             SA2    ENDCODE+1   CONCATENATE *END * AND NAME                         PS3CTL        29     A     
 PS3CTL             MX6    4*6                                                             PS3CTL        30     A     
 PS3CTL             LX1    -4*6                                                            PS3CTL        31     A     
 PS3CTL             BX7    X6*X1                                                           PS3CTL        32     A     
 PS3CTL             BX1    -X6*X1                                                          PS3CTL        33     A     
 PS3CTL             BX6    X2+X1                                                           PS3CTL        34     A     
 PS3CTL             SA6    A2                                                              PS3CTL        35     A     
 PS3CTL             SA7    A2+B1                                                           PS3CTL        36     A     
 PS3CTL    PS33     WRITEC =XF.CMPS,ENDCODE,0                                              PS3CTL        37     A     
 PS3CTL                                                                                    PS3CTL        38     A     
 PS3CTL             CALL   RSSW        SET SWITCHS IN *LSTPRO* FOR ASSEMBLY                PS3CTL        39     A     
 PS3CTL                                                                                    PS3CTL        40     A     
 PS3CTL             CALL   SYMDMP      ** DEBUG **                                         PS3CTL        41     A     
 PS3CTL                                                                                    PS3CTL        42     A     
 PS3CTL             CALL   REFMAP      LIST DIAGNOSTICS AND PRODUCE THE MAP                PS3CTL        43     A     
 PS3CTL                                                                                    PS3CTL        44     A     
 PS3CTL             SA1    =XUFLAG                                                         PS3CTL        45     A     
 PS3CTL             SA2    =XCAFLAG                                                        PS3CTL        46     A     
 PS3CTL             SA3    =XQFLAG                                                         PS3CTL        47     A     
 PS3CTL             BX4    X1+X2                                                           PS3CTL        48     A     
 PS3CTL             BX5    X4+X3                                                           PS3CTL        49     A     
 PS3CTL             NZ     X5,CLOS     IF NOT ASSEMBLING                                   PS3CTL        50     A     
 PS3CTL                                                                                    PS3CTL        51     A     
 PS3CTL             WRITER =XF.CMPS                                                        PS3CTL        52     A     
 PS3CTL             REWIND =XF.CMPS,,NF                                                    PS3CTL        53     A     
 PS3CTL    #RM      IFEQ   CP#RM,0                                                         PS3CTL        54     A     
 PS3CTL             READ   =XF.CMPS                                                        PS3CTL        55     A     
 PS3CTL    #RM      ENDIF                                                                  PS3CTL        56     A     
 PS3CTL                                                                                    PS3CTL        57     A     
 PS3CTL             CALL   FTNXAS            ASSEMBLE THE COMPS FILE                       PS3CTL        58     A     
 PS3CTL                                                                                    PS3CTL        59     A     
 PS3CTL    CLOS     SA1    =XN.FERR                                                        PS3CTL        60          I
          -FCC0220
 PS3CTL             SA2    =XCP.ERCT                                                       PS3CTL        61          I
          -FCC0220
 PS3CTL             IX6    X1+X2                                                           PS3CTL        62          I
          -FCC0220
 PS3CTL             SA6    A2                UPDATE ERROR COUNT GRAND TOTAL                PS3CTL        63          I
          -FCC0220
 PS3CTL    CLOS     BSS    0                                                               FCC0220      112     A     
 PS3CTL                                                                                    PS3CTL        64     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2598    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS3CTL  
  
 PS3CTL    PTIME    IFNE   TEST,0                                                          PS3CTL        65     A     
 PS3CTL             CALL   TIMER                                                           PS3CTL        66     A     
 PS3CTL             SA5    =XTIME1                                                         PS3CTL        67     A     
 PS3CTL             IX1    X6-X5       LAST - FIRST                                        PS3CTL        68     A     
 PS3CTL             SA6    A5          NEW FIRST                                           PS3CTL        69     A     
 PS3CTL             BX7    X1                                                              PS3CTL        70     A     
 PS3CTL             SA7    PRG.MSG+2                                                       PS3CTL        71     A     
 PS3CTL             SB4    3*6         (B4) = -(SCALE FACTOR) * 6                          PS3CTL        72     A     
 PS3CTL             CALL   REALDEC                                                         PS3CTL        73     A     
 PS3CTL             SA5    =XCOMPMSG+1                                                     PS3CTL        74     A     
 PS3CTL             LX6    6                                                               PS3CTL        75     A     
 PS3CTL             MX4    42                                                              PS3CTL        76     A     
 PS3CTL             SA6    PRG.MSG+1                                                       PS3CTL        77     A     
 PS3CTL             SX3    3R -                                                            PS3CTL        78     A     
 PS3CTL             BX5    X4*X5                                                           PS3CTL        79     A     
 PS3CTL             BX3    -X4*X3                                                          PS3CTL        80     A     
 PS3CTL             BX6    X3+X5                                                           PS3CTL        81     A     
 PS3CTL             LX6    -6                                                              PS3CTL        82     A     
 PS3CTL             SA6    A6-1                                                            PS3CTL        83     A     
 PS3CTL             SA1    =XN.EXST                                                        PS3CTL        84     A     
 PS3CTL             SA2    PRG.MSG+2   COMPUTE CARDS / MINUTE                              PS3CTL        85     A     
 PS3CTL             SX3    60*1000D                                                        PS3CTL        86     A     
 PS3CTL             SX1    X1+3                                                            PS3CTL        87     A     
 PS3CTL             IX4    X1*X3                                                           PS3CTL        88     A     
 PS3CTL             IX1    X4/X2                                                           PS3CTL        89     A     
 PS3CTL             SB1    1                                                               PS3CTL        90     A     
 PS3CTL             CALL   CDD                                                             PS3CTL        91     A     
 PS3CTL             SA1    =5LSEC                                                          PS3CTL        92     A     
 PS3CTL             MX0    30                                                              PS3CTL        93     A     
 PS3CTL             BX6    -X0*X6                                                          PS3CTL        94     A     
 PS3CTL             BX7    X1+X6                                                           PS3CTL        95     A     
 PS3CTL             SA7    PRG.MSG+2                                                       PS3CTL        96     A     
 PS3CTL             MESSAGE  PRG.MSG,,RECALL                                               PS3CTL        97     A     
 PS3CTL                                                                                    PS3CTL        98     A     
 PS3CTL             USE    PRGMSG                                                          PS3CTL        99     A     
 PS3CTL    PRG.MSG  DATA   20L NAMEXXX - NNN.NNN                                           PS3CTL       100     A     
 PS3CTL             DATA   18LSEC  NNNNN C/MIN                                             PS3CTL       101     A     
 PS3CTL             USE    *                                                               PS3CTL       102     A     
 PS3CTL    PTIME    ENDIF                                                                  PS3CTL       103     A     
 PS3CTL                                                                                    PS3CTL       104     A     
 PS3CTL             EQ     =XFTNEND                                                        PS3CTL       105     A     
 PS3CTL    IEM      TITLE  IEM - ISSUE ERROR MESSAGE                                       PS3CTL       106     A     
 PS3CTL   **        IEM - ISSUE ERROR MESSAGE TO THE DAYFILE                               PS3CTL       107     A     
 PS3CTL   *                                                                                PS3CTL       108     A     
 PS3CTL   *         ENTRY  (X1) = ERROR COUNT                                              PS3CTL       109     A     
 PS3CTL                                                                                    PS3CTL       110     A     
 PS3CTL    IEM      ENTRY.                                                                 PS3CTL       111     A     
 PS3CTL             SB1    1                                                               PS3CTL       112     A     
 PS3CTL             CALL   CDD               RETURNS (X6) = NUMBR, DPC -A- FORMAT          PS3CTL       113     A     
 PS3CTL             SA2    =XPROGNAM         (X2) = PROGRAM NAME, 7H FORMAT                PS3CTL       114     A     
 PS3CTL             LX6    6                                                               PS3CTL       115     A     
 PS3CTL             BX7    X2                                                              PS3CTL       116     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2599    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PS3CTL  
  
 PS3CTL             SA6    MSGC              STORE NUMBER OF ERRORS AND                    PS3CTL       117     A     
 PS3CTL             SA7    MSGC+3            NAME IN DAYFILE MESSAGE                       PS3CTL       118     A     
 PS3CTL             MESSAGE MSGC,,RECALL     ISSUE MESSAGE TO DAYFILE                      PS3CTL       119     A     
 PS3CTL             SB5    1                                                               PS3CTL       120     A     
 PS3CTL             EQ     IEM                                                             PS3CTL       121     A     
 PS3CTL                                                                                    PS3CTL       122     A     
 PS3CTL    MSGC     DIS    4,      NNN  FORTRAN ERRORS IN   NAME                           PS3CTL       123     A     
 PS3CTL                                                                                    PS3CTL       124     A     
 PS3CTL    ECODE    DATA   C/  ERR ERRORS IN FTN COMPILATION/                              PS3CTL       125     A     
 PS3CTL    LECODE   EQU    *-ECODE                                                         PS3CTL       126     A     
 PS3CTL    ENDCODE  DATA   1H ,4LEND ,0                                                    PS3CTL       127          I
          -FEAT155A 
 PS3CTL    ENDCODE  DATA   2HZ.,4LEND ,0                                                   FEAT155A      44     A     
 PS3CTL                                                                                    PS3CTL       128     A     
 PS3CTL             END                                                                    PS3CTL       129     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PS3CTL  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PS3CTL                     129       124
          FCC0220                      4         4
          FEAT155A                     1         1
          FEAT155F                     5         5
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *DECK,FAX                                                                        FAX            1     A     
 FAX                IDENT  FAX                                                             FAX            2     A     
 FAX       FAX      TITLE  FAX - FTN INTERNAL ASSEMBLER                                    FAX            3     A     
 FAX      *CALL     SSTCALL                                                                FAX            4     A     
 FAX                NOREF  CSAVE                                                           FAX            5     A     
 FAX                NOREF  ILL                                                             FAX            6     A     
 FAX                NOREF  LOOKI                                                           FAX            7     A     
 FAX                NOREF  LOOKS                                                           FAX            8     A     
 FAX                NOREF  MOVMAX                                                          FAX            9     A     
 FAX                NOREF  MOVT                                                            FAX           10     A     
 FAX                NOREF  ORGB                                                            FAX           11     A     
 FAX                NOREF  ORGFWA                                                          FAX           12     A     
 FAX                                                                                       FAX           13     A     
 FAX       B=FAX    RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             FAX           14     A     
 FAX                                                                                       FAX           15     A     
 FAX                EXT    TEMPA0.,TRACE.,ENTRY.,FTNNOP.,NOPS.,ST.                         FAX           16     A     
 FAX                EXT    FV.LGO                                                          FAX           17     A     
 FAX                EXT    F.CMPS                                                          FAX           18     A     
 FAX                EXT    F.LGO                                                           FAX           19     A     
 FAX                EXT    N.FILES                                                         FAX           20     A     
 FAX                EXT    N.FP                                                            FAX           21     A     
 FAX                EXT    OLIST                                                           FAX           22     A     
 FAX                EXT    WB.LAB                                                          FAX           23     A     
 FAX                EXT    XFRNAME                                                         FAX           24     A     
 FAX                USE    DEBUG                                                           FCC0506        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2600    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                USE    *                                                               FCC0506        6     A     
 FAX                                                                                       FAX           25     A     
 FAX                TABLES  ENTR,EXT,TSS                                                   FAX           26     A     
 FAX                SPACE  3                                                               FAX           27     A     
 FAX      **        FAX - FTN INTERNAL ASSEMBLER.                                          FAX           28     A     
 FAX      *                                                                                FAX           29     A     
 FAX      *         FUNCTION -                                                             FAX           30     A     
 FAX      *          TO ASSEMBLE THE "COMPS" FILE AND PLACE THE RELOCATABLE                FAX           31     A     
 FAX      *          BINARY ON THE "LGO" FILE.                                             FAX           32     A     
 FAX      *          FAX IS A 1 PASS ASSEMBLER BY VIRTUE OF THE FACT THAT                  FAX           33     A     
 FAX      *          PREVIOUS PASS"S HAVE CALCULATED THE PROGRAM LENGTH, BLOCK             FAX           34     A     
 FAX      *          LENGTHS AND DEFINED THE ADDRESS"S OF ALL SYMBOLS FOR IT.              FAX           35     A     
 FAX      *                                                                                FAX           36     A     
 FAX       .JOL     EQU    1           "0 FOR JUSTIFIED O LIST ( COST 2 PERCENT )          FAX           37     A     
 FAX                SPACE  3                                                               FAX           38     A     
 FAX                EJECT                                                                  FAX           39     A     
 FAX      **        CONSTANTS, TABLES AND WORKING STORAGE.                                 FAX           40     A     
 FAX                                                                                       FAX           41     A     
 FAX      *         JOB COMMUNICATIONS AREA USAGE.                                         FAX           42     A     
 FAX                                                                                       FAX           43     A     
 FAX       SYM1     =      RA.SSW+12B        CONTAINS INVERTED FWA SYMBOL TABLE            FAX           44     A     
 FAX       PROGRAM  =      RA.SSW+56B        CONTAINS PROGRAM UNIT TYPE                    FAX           45     A     
 FAX                                                                                       FAX           46     A     
 FAX                                                                                       FAX           47     A     
 FAX       N.LRB    =      7                 NUMBER OF LOCAL RELOCATION BASES              FAX           48     A     
 FAX                                                                                       FAX           49     A     
 FAX                USE    /TABLES/                                                        FAX           50     A     
 FAX       BLKCOM   BSS    1                 ADDR OF BLANK COMMON IN ORGTAB                FAX           51     A     
 FAX       L.PROG   BSS    1                 PROGRAM LENGTH                                FAX           52     A     
 FAX       O.LRB    BSS    N.LRB             FWA OF LOCAL RELOCATION BASES                 FAX           53     A     
 FAX       ERRLINE  BSS    10                ERROR MESSAGE LINE                            FAX           54          I
          -FEAT155A 
 FAX                BSS    5                                                               FEAT155A      45     A     
 FAX       L.PROGP  BSS    1                                                               FEAT155A      46     A     
 FAX                BSS    4                                                               FEAT155A      47     A     
 FAX       AERCNT   BSS    1                 ASSEMBLY ERROR COUNT                          FAX           55     A     
 FAX       STOVSIZE BSS    1                 AMOUNT OF STORAGE OVERFLOW                    FAX           56     A     
 FAX       ERRLINE  BSS    10          ERROR MESSAGE LINE                                  FEAT155A      48     A     
 FAX                USE    *                                                               FAX           57     A     
 FAX                                                                                       FAX           58     A     
 FAX                                                                                       FAX           59     A     
 FAX                                                                                       FAX           60     A     
 FAX      *         PREFIX (77) TABLE.                                                     FAX           61     A     
 FAX                                                                                       FAX           62     A     
 FAX       OBJIMULT EQU    1                 INTEGER MULTIPLY ALWAYS ON                    FAX           63     A     
 FAX       IMUL     MICRO  1,,/I/      INTEGER MULTIPLY ON ( ALWAYS )                      FAX           64     A     
 FAX       MODLVL   MICRO  1,5,$"MODLVL"     $                                             FAX           65     A     
 FAX                                                                                       FAX           66     A     
 FAX       L.PRFX   =      15D                                                             FAX           67     A     
 FAX                                                                                       FAX           68     A     
 FAX                                                                                       FAX           69     A     
 FAX       TARGET   MICRO  2,1,/"MODEL"/                                                   FAX           70          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2601    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          -FCC1264
 FAX       TARGET   MICRO  "TARGET"*2-3,2,/626466XX76/                                     FAX           71          I
          -FCC1264
 FAX                                                                                       FCC1264       41     A     
 FAX      **        TARGET - TWO CHARACTERS INDICATING THE TYPE OF PROCESSOR FOR           FCC1264       42     A     
 FAX      *                  WHICH THE PROGRAM IS OPTIMIZED.                               FCC1264       43     A     
 FAX      *                                                                                FCC1264       44     A     
 FAX      *         VALID - TWO CHARACTERS INDICATING THE TYPE OF PROCESSOR ON             FCC1264       45     A     
 FAX      *                 WHICH THE PROGRAM CAN BE EXECUTED.                             FCC1264       46     A     
 FAX      *                                                                                FCC1264       47     A     
 FAX      *         TARGET  AND  VALID  ARE CALCULATED FROM  MODEL                         FCC1264       48     A     
 FAX      *                                                                                FCC1264       49     A     
 FAX      *         MODEL      -->      TARGET     -->      VALID                          FCC1264       50     A     
 FAX      *         71                  64                  64                             FCC1847X      12     A     
 FAX      *         72                  64                  64                             FCC1264       51     A     
 FAX      *         73                  64                  64                             FCC1264       52     A     
 FAX      *         74                  66                  6X                             FCC1264       53     A     
 FAX      *         76                  76                  7X                             FCC1264       54     A     
 FAX      *         171                 64                  64                             FCC1847X      13     A     
 FAX      *         172                 64                  64                             FCC1264       55     A     
 FAX      *         173                 64                  64                             FCC1264       56     A     
 FAX      *         174                 64                  64                             FCC1264       57     A     
 FAX      *         175                 C5                  CX                             FCC1264       58     A     
 FAX      *         176                 76                  7X                             FCC1264       59     A     
 FAX      *                                                                                FCC1264       60     A     
 FAX                                                                                       FCC1264       61     A     
 FAX       A        MICCNT MODEL                                                           FCC1264       62          I
          -F2950F4
 FAX       TARGET   MICRO  A,1,/"MODEL"/                                                   FCC1264       63          I
          -F2950F4
 FAX       C        SET    0                                                               FCC1264       64          I
          -F2950F4
 FAX                IFEQ   A,3,1                                                           FCC1264       65          I
          -F2950F4
 FAX       C        SET    A*4                                                             FCC1264       66          I
          -F2950F4
 FAX       Z        MICRO  "TARGET"*2+C-1,1,/XX646466XX76XX6464647576/                     FCC1264       67          I
          -FCC1847X 
 FAX       Z        MICRO  "TARGET"*2+C-1,1,/64646466XX76646464647576/                     FCC1847X      14          I
          -F2950F4
 FAX       TARGET   MICRO  "TARGET"*2+C-1,2,/XX646466XX76XX646464C576/                     FCC1264       68          I
          -FCC1847X 
 FAX       TARGET   MICRO  "TARGET"*2+C-1,2,/64646466XX7664646464C576/                     FCC1847X      15          I
          -F2950F4
 FAX       X        MICRO  1,1,/"TARGET"/                                                  FAX           72          I
          -F2950F4
 FAX       Y        MICRO  2,1,/"TARGET"/                                                  FAX           73          I
          -F2950F4
 FAX       Y        MICRO  "X"*10-59+"Y",1,/012345XXXXXXXXXXXXXX/                          FAX           74          I
          -FCC1264
 FAX       Y        MICRO  "Z"*10-59+"Y",1,/012345XXXXXXXXXXXXXX/                          FCC1264       69          I
          -F2950F4
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2602    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       VALID    MICRO  1,,/"X""Y"/                                                     FAX           75          I
          -F2950F4
 FAX       .TMP     MICRO  2,1,/"MDL"/                                                     F2950F4      113     A     
 FAX       TARGET   MICRO  2*".TMP"-5,2,/6466C576/                                         F2950F4      114     A     
 FAX       VALID    MICRO  2*".TMP"-5,2,/646XCX7X/                                         F2950F4      115     A     
 FAX       PREFIX   BSS    0                                                               FAX           76     A     
 FAX                LIST   A                                                               FAX           77     A     
 FAX                LOC    0                                                               FAX           78     A     
 FAX                VFD    6/77B,12/0,6/L.PRFX-1,36/0                                      FAX           79     A     
 FAX                DATA    1H               PROGRAM UNIT NAME                             FAX           80     A     
 FAX                DATA    1H               MM/DD/YY - DATE                               FAX           81     A     
 FAX                DATA    1H               HH.MM.SS - TIME OF DAY                        FAX           82     A     
 FAX                DATA   10H"OS.NAME""OS.VER"                                            FAX           83          I
          -S3143FC
 FAX                DATA   10H"OS.ID"                                                      S3143FC       50     A     
 FAX                DATA   10H"LPNAME""VER"                                                FAX           84     A     
 FAX                VFD    30/5H"MODLVL",12/2H"TARGET",12/2H"VALID",6/1H                   FAX           85     A     
 FAX                DATA    2H "IMUL"        HARDWARE DEPENDENCIES                         FAX           86     A     
 FAX                DATA    1H               CONTROL CARD OPTIONS                          FAX           87          I
          -FCC1513X 
 FAX                DATA   1H                PROGRAM UNIT TYPE                             FCC1513X       7     A     
 FAX                DATA    1H               CONTROL CARD OPTIONS                          FAX           88     A     
 FAX                DATA    1H               CONTROL CARD OPTIONS                          FAX           89     A     
 FAX                BSSZ   L.PRFX-*L                                                       FAX           90     A     
 FAX                LOC    *O                                                              FAX           91     A     
 FAX                LIST   *                                                               FAX           92     A     
 FAX                                                                                       FAX           93     A     
 FAX                                                                                       FAX           94     A     
 FAX                                                                                       FAX           95     A     
 FAX                                                                                       FAX           96     A     
 FAX      *         LDSET (70) TABLE USED BY SCOPE 3.4 LOADER.                             FAX           97     A     
 FAX                                                                                       FAX           98     A     
 FAX       LDUSE6   VFD    12/7000B,12/L.LDST6-1,36/0                                      FAX           99          I
          -F162FTNA 
 FAX                VFD    12/0010B,12/L.LIB6,36/0                                         FAX          100          I
          -F162FTNA 
 FAX       LIB6     VFD    42/0LFORTRAN,18/0                                               FAX          101          I
          -F162FTNA 
 FAX                VFD    42/0LSYSIO,18/0                                                 FAX          102          I
          -F162FTNA 
 FAX       L.LIB6   EQU    *-LIB6                                                          FAX          103          I
          -F162FTNA 
 FAX       L.LDST6  EQU    *-LDUSE6                                                        FAX          104          I
          -F162FTNA 
 FAX       LDUSE6   DATA   0LFORTRAN                                                       F162FTNA    1068     A     
 FAX                DATA   0                                                               F162FTNA    1069     A     
 FAX                                                                                       FAX          105     A     
 FAX      *         MAP AND PRESET TABLES USED BY PMDMP                                    FEAT1070C    173     A     
 FAX       PMDUSE   VFD    12/0011B,12/1,18/0,17/3,1/1  SELECT *BS* MAP OPTION             FEAT1070C    174     A     
 FAX                DATA   0LZZZZZMP                    ON FILE *ZZZZZMP*                  FEAT1070C    175     A     
 FAX                VFD    12/0012B,12/1,18/0,18/1      PRESET CORE TO            000200   FEAT1070C    176     A     
 FAX                VFD    60/60000000000433400000B     SB0 A0+0,  EQ B3,B3,*+1S17         FEAT1070C    177     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2603    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                DATA   0                                                      000220   FEAT1070C    178     A     
 FAX       #RM      IFNE   OT#RM,6                                                         FAX          106          I
          -FCCA551
 FAX                                                                                       FAX          107          I
          -FCCA551
 FAX      *         LDSET (70) TABLE USED BY SCOPE 2.0 LOADER.                             FAX          108          I
          -FCCA551
 FAX                                                                                       FAX          109          I
          -FCCA551
 FAX       LDUSE7   VFD    12/7000B,12/L.LDST7-1,36/0                                      FAX          110          I
          -F162FTNA -FCCA551
 FAX                VFD    12/0010B,12/L.LIB7,36/0                                         FAX          111          I
          -F162FTNA -FCCA551
 FAX       LIB7     VFD    42/0LFORTRAN,18/0                                               FAX          112          I
          -F162FTNA -FCCA551
 FAX       L.LIB7   EQU    *-LIB7                                                          FAX          113          I
          -F162FTNA -FCCA551
 FAX       L.LDST7  EQU    *-LDUSE7                                                        FAX          114          I
          -F162FTNA -FCCA551
 FAX       LDUSE7   DATA   0LFORTRAN                                                       F162FTNA    1070          I
          -FCCA551
 FAX                DATA   0                                                               F162FTNA    1071          I
          -FCCA551
 FAX       #RM      ENDIF                                                                  FAX          115          I
          -FCCA551
 FAX                                                                                       FAX          116          I
          -FCCA551
 FAX                                                                                       FAX          117     A     
 FAX                                                                                       FAX          118     A     
 FAX                                                                                       FAX          119     A     
 FAX      *         CONSTANTS AND WORKING STORAGE.                                         FAX          120     A     
 FAX                                                                                       FAX          121     A     
 FAX       SWC      ENTRY. 0                 INPUT LINE LENGTH (WORDS)                     FAX          122     A     
 FAX                                                                                       FAX          123     A     
 FAX                USE    IO$$              FORCE OUT 7RM MACRO EXPANSION CODE            FAX          124     A     
 FAX                BSS    0                                                               FAX          125     A     
 FAX                USE    *                                                               FAX          126     A     
 FAX                                                                                       FAX          127     A     
 FAX                USE    STORAGE                                                         FAX          128     A     
 FAX       MEMORY   BSS    0                 FWA WORKING STORAGE                           FAX          129     A     
 FAX                USE    *                                                               FAX          130     A     
 FAX                                                                                       FAX          131     A     
 FAX       SCRSIZE  EQU    11                                                              FAX          132     A     
 FAX       SCRATCH  EQU    MEMORY                                                          FAX          133     A     
 FAX       LINE     EQU    MEMORY+SCRSIZE    14 WORD WORK AND PRINT BUFFER                 FAX          134     A     
 FAX       ISHIFT   EQU    5                                                               FAX          135     A     
 FAX       ILINE    EQU    LINE+ISHIFT       SOURCE LINE STORED HERE                       FAX          136     A     
 FAX       LINESIZE EQU    15                                                              FAX          137     A     
 FAX       GLAPR    BSS    1           GL/AP RELOCATION SKELETON                           FCC0506        7     A     
 FAX       MEMSTRT  VFD    60/MEMORY+SCRSIZE+LINESIZE                                      FAX          138     A     
 FAX       CORGTAB  BSS    1                 POINTER TO COMMON ORGTAB                      FAX          139     A     
 FAX       LORGTAB  BSS    1                 POINTER TO LOCAL ORGTAB                       FAX          140     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2604    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       LINKTAB  BSS    1                 POINTER TO EXTERNAL NAME TABLE                FAX          141     A     
 FAX       FREEMEM  BSS    1                 POINTER TO NEXT FREE WORKING STG. LOC         FAX          142     A     
 FAX       TEXT.ADD BSS    1                 POINTER TO CURRENT ORGTAB ENTRY               FAX          143     A     
 FAX       MEMEND   BSS    1                 LWA WORKING STORAGE                           FAX          144     A     
 FAX       ALABEL   BSS    1                 LABEL IS SAVED HERE                           FAX          145     A     
 FAX       FFLAG    BSS    2                 FORCE UPPER FLAG                              FAX          146     A     
 FAX       NFLAG    EQU    FFLAG+1           FORCE UPPER, NEXT INSTRUCTION FLAG            FAX          147     A     
 FAX       IOCTR    CON    0           ]IONNN COUNTER                                      FAX          148     A     
 FAX       #RM      IFEQ   OT#RM,6                                                         FAX          149          I
          -FCCA551
 FAX                                                                                       FAX          150          I
          -FCCA551
 FAX      *         INITIALIZE BINARY OUTPUT FILE SYMBOLS TO 6RM VALUES.                   FAX          151          I
          -FCCA551
 FAX                                                                                       FAX          152          I
          -FCCA551
 FAX       LDUSE    CON    LDUSE6      FWA OF LDSET (70) TABLE                             FAX          153     A     
 FAX       L.LDSET  CON    L.LDST6     LENGTH OF LDSET (70) TABLE                          FAX          154          I
          -F162FTNA 
 FAX       L.FIT    CON    L.FIT6      LENGTH OF LGO FIT                                   FAX          155          I
          -F162FTNA 
 FAX       L.FET    CON    L.FET6      LENGTH OF LGO FET                                   FAX          156          I
          -F162FTNA 
 FAX       FILEC    CON    FILEC6      FWA OF FIT SKELETON                                 FAX          157          I
          -F162FTNA 
 FAX       FILER    CON    FILER6      ADDRESS OF RELOC BYTES                              FAX          158          I
          -F162FTNA 
 FAX       FILEL    CON    FILEL6      LENGTH OF FIT SKELETON                              FAX          159          I
          -F162FTNA 
 FAX       FILEREP  CON    FILEREP6    FWA OF REPL (43) TABLE SKELETON                     FAX          160          I
          -F162FTNA 
 FAX       #RM      ELSE                                                                   FAX          161          I
          -FCCA551
 FAX                                                                                       FAX          162          I
          -FCCA551
 FAX      *         INITIALIZE BINARY OUTPUT FILE SYMBOLS TO 7RM VALUES.                   FAX          163          I
          -FCCA551
 FAX                                                                                       FAX          164          I
          -FCCA551
 FAX       LDUSE    CON    LDUSE7      FWA OF LDSET (70) TABLE                             FAX          165          I
          -FCCA551
 FAX       L.LDSET  CON    L.LDST7     LENGTH OF LDSET (70) TABLE                          FAX          166          I
          -F162FTNA -FCCA551
 FAX       L.FIT    CON    L.FIT7      LENGTH OF LGO FIT                                   FAX          167          I
          -F162FTNA -FCCA551
 FAX       L.FET    CON    L.FET7      LENGTH OF LGO FET                                   FAX          168          I
          -F162FTNA -FCCA551
 FAX       FILEC    CON    FILEC7      FWA OF FIT SKELETON                                 FAX          169          I
          -F162FTNA -FCCA551
 FAX       FILER    CON    FILER7      ADDRESS OF RELOC BYTES                              FAX          170          I
          -F162FTNA -FCCA551
 FAX       FILEL    CON    FILEL7      LENGTH OF FIT SKELETON                              FAX          171          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2605    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          -F162FTNA -FCCA551
 FAX       FILEREP  CON    FILEREP7    FWA OF REPL (43) TABLE SKELETON                     FAX          172          I
          -F162FTNA -FCCA551
 FAX       #RM      ENDIF                                                                  FAX          173          I
          -FCCA551
 FAX       XFL      CON    18          LENGTH OF XFILL RELOCATION FIELD (LCM=D)            FAX          174     A     
 FAX       LFL      SET    60-P.RL                                                         FAX          175     A     
 FAX       LRB      SET    P.RL-P.RB                                                       FAX          176     A     
 FAX       WBDATA.  VFD    LFL/1,LRB/4,P.RB/0                                              FAX          177     A     
 FAX                SPACE  2                                                               FAX          178     A     
 FAX      *         DEFINITION OF RELOCATION CODES USED BY THE LOADER                      FAX          179     A     
 FAX                                                                                       FAX          180     A     
 FAX       RL$      EQU    00B                                                             FAX          181     A     
 FAX       RL$L     EQU    02B                                                             FAX          182     A     
 FAX       RL$M     EQU    04B                                                             FAX          183     A     
 FAX       RL$U     EQU    10B                                                             FAX          184     A     
 FAX       RL$B     EQU    12B                                                             FAX          185     A     
 FAX                                                                                       FAX          186     A     
 FAX       PTRS     MACRO  NAME                                                            FAX          187     A     
 FAX                SNAP   MEMSTRT,ALABEL,,1,100,1,PTR.NAME                                FAX          188          I
          -FEAT155F 
 FAX       PTR.NAME SNAP   MEMSTRT,ALABEL                                                  FEAT155F     244     A     
 FAX                ENDM                                                                   FAX          189     A     
 FAX                                                                                       FAX          190     A     
 FAX       COMTAB   MACRO  N                                                               FAX          191     A     
 FAX                SNAP   -CORGTAB,-LORGTAB,,1,100,1,COM.N                                FAX          192          I
          -FEAT155F 
 FAX       COM.N    SNAP   *CORGTAB,*LORGTAB                                               FEAT155F     245     A     
 FAX                ENDM                                                                   FAX          193     A     
 FAX                                                                                       FAX          194     A     
 FAX       LINKTAB  MACRO  N                                                               FAX          195     A     
 FAX                SNAP   -LINKTAB,-MEMSTRT,,1,10,1,LNK.N                                 FAX          196          I
          -FEAT155F 
 FAX       LNK.N    SNAP   *LINKTAB,*MEMSTRT                                               FEAT155F     246     A     
 FAX                ENDM                                                                   FAX          197     A     
 FAX                                                                                       FAX          198     A     
 FAX       CHAINS   MACRO  N                                                               FAX          199     A     
 FAX                SNAP   -MEMSTRT,-FREEMEM,,1,100,1,CHN.N                                FAX          200          I
          -FEAT155F 
 FAX       CHN.N    SNAP   *MEMSTRT,*FREEMEM                                               FEAT155F     247     A     
 FAX                ENDM                                                                   FAX          201     A     
 FAX                TITLE              MACRO DEFINITIONS                                   FAX          202     A     
 FAX      **********************************************************************           FAX          203     A     
 FAX      *                                                                    *           FAX          204     A     
 FAX      *         ASSEMBLING FTNXAS WITH DEBUG SET TO 1 WILL CAUSE-          *           FAX          205     A     
 FAX      *                                                                    *           FAX          206     A     
 FAX      *                   1.SNAP CALLS TO BE MADE AT STRATEGIC POINTS      *           FAX          207     A     
 FAX      *                   2.CODE TO NOT BE RELOCATED TO THE OPCODE VECTORS *           FAX          208     A     
 FAX      *                   3.THE LAST FEW WORDS OF L3.JVEC TO BE ASSEMBLED  *           FAX          209     A     
 FAX      *                                                                    *           FAX          210     A     
 FAX      **********************************************************************           FAX          211     A     
 FAX                SPACE  2                                                               FAX          212     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2606    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       DEBUG    EQU    0                                                               FAX          213     A     
 FAX                                                                                       FAX          214     A     
 FAX      ***                                                                              FAX          215     A     
 FAX      *         RELOC - GENERATE A WORD OF 4 BIT RELOCATION BYTES FOR "WRSEQ"          FAX          216     A     
 FAX      *                                                                                FAX          217     A     
 FAX       RELOC    MACRO  Q                                                               FAX          218     A     
 FAX                IRP    Q                                                               FAX          219     A     
 FAX                VFD    4/RL$Q                                                          FAX          220     A     
 FAX                IRP                                                                    FAX          221     A     
 FAX                VFD    *P/0                                                            FAX          222     A     
 FAX                ENDM                                                                   FAX          223     A     
 FAX                SPACE  2                                                               FAX          224     A     
 FAX      *                                                                                FAX          225     A     
 FAX      * GCH AND CWD ARE USED THROUGHOUT THE ASSEMBLER FOR SCANNING THE INPUT           FAX          226     A     
 FAX      * STRING.                                                                        FAX          227     A     
 FAX      *                                                                                FAX          228     A     
 FAX       GCH      MACRO  Z                                                               FAX          229     A     
 FAX                A_Z    X5,B4                                                           FAX          230     A     
 FAX                SB4    B4-B6                                                           FAX          231     A     
 FAX                B_Z    -X0*_Z                                                          FAX          232     A     
 FAX                ENDM                                                                   FAX          233     A     
 FAX                SPACE  2                                                               FAX          234     A     
 FAX       CWD      MACRO                                                                  FAX          235     A     
 FAX       +        PL     B4,*+1                                                          FAX          236     A     
 FAX                SA5    A5+B5                                                           FAX          237     A     
 FAX                SB4    B7                                                              FAX          238     A     
 FAX                ENDM                                                                   FAX          239     A     
 FAX      *                                                                                FAX          240     A     
 FAX      * THE FOLLOWING SYSTEM OF MACROS IS USED TO RELOCATE CODE BLOCKS INTO            FAX          241     A     
 FAX      * UNUSED PORTIONS OF THE OPCODE VECTORS WHEN "MOVMAC" IS SET TO 0                FAX          242     A     
 FAX      *                                                                                FAX          243     A     
 FAX       MOVMAC   EQU    TEST+DEBUG                                                      FAX          244     A     
 FAX                SPACE  2                                                               FAX          245     A     
 FAX       MOVMAX   EQU    10000B                                                          FAX          246     A     
 FAX       ORGORD   SET    0                                                               FAX          247     A     
 FAX       CSAVE    SET    0                                                               FAX          248     A     
 FAX                SPACE  2                                                               FAX          249     A     
 FAX       IFM      IFEQ   MOVMAC,0                                                        FAX          250     A     
 FAX                                                                                       FAX          251     A     
 FAX       ORGSTART MACRO                                                                  FAX          252     A     
 FAX                BSS    0                                                               FAX          253     A     
 FAX       ORGFWA   SET    *                                                               FAX          254     A     
 FAX       ORGORD   SET    ORGORD+1                                                        FAX          255     A     
 FAX                ENDM                                                                   FAX          256     A     
 FAX                SPACE  2                                                               FAX          257     A     
 FAX       ORGEND   MACRO                                                                  FAX          258     A     
 FAX                BSS    0                                                               FAX          259     A     
 FAX       OC       DECMIC ORGORD,3                                                        FAX          260     A     
 FAX       ORGN"OC" SET    *-ORGFWA                                                        FAX          261     A     
 FAX       ORGL"OC" SET    ORGFWA                                                          FAX          262     A     
 FAX                ENDM                                                                   FAX          263     A     
 FAX                                                                                       FAX          264     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2607    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       IFM      ELSE                                                                   FAX          265     A     
 FAX       ORGSTART OPSYN  NIL                                                             FAX          266     A     
 FAX       ORGEND   OPSYN  NIL                                                             FAX          267     A     
 FAX       MOVSTART OPSYN  NIL                                                             FAX          268     A     
 FAX       MOVEND   OPSYN  NIL                                                             FAX          269     A     
 FAX       IFM      ENDIF                                                                  FAX          270     A     
 FAX                                                                                       FAX          271     A     
 FAX       LOOK     MACRO  A                                                               FAX          272     A     
 FAX       LOOKI    SET    LOOKI+1                                                         FAX          273     A     
 FAX       LOOKC    DECMIC LOOKI,3                                                         FAX          274     A     
 FAX                IFGE   ORGN"LOOKC",A,3                                                 FAX          275     A     
 FAX                IFLT   ORGN"LOOKC",LOOKS,2                                             FAX          276     A     
 FAX       LOOKS    SET    ORGN"LOOKC"                                                     FAX          277     A     
 FAX       LOOKSC   MICRO  1,,$"LOOKC"$                                                    FAX          278     A     
 FAX                IFLT   LOOKI,ORGORD,1                                                  FAX          279     A     
 FAX                LOOK   A                                                               FAX          280     A     
 FAX                ENDM                                                                   FAX          281     A     
 FAX                SPACE  2                                                               FAX          282     A     
 FAX       IFMM     IFEQ   MOVMAC,0                                                        FAX          283     A     
 FAX                                                                                       FAX          284     A     
 FAX       MOVSTART MACRO  A                                                               FAX          285     A     
 FAX       MSIDENT  MICRO  1,,$"SEQUENCE"$                                                 FAX          286     A     
 FAX                BSS    0                                                               FAX          287     A     
 FAX       LOOKS    SET    MOVMAX                                                          FAX          288     A     
 FAX       LOOKI    SET    0                                                               FAX          289     A     
 FAX                LOOK   A                                                               FAX          290     A     
 FAX       MSLEN    SET    A                                                               FAX          291     A     
 FAX                IFNE   LOOKS,MOVMAX,5                                                  FAX          292     A     
 FAX       CSAVE    SET    CSAVE+A                                                         FAX          293     A     
 FAX       ORGB     SET    *                                                               FAX          294     A     
 FAX                ORG    ORGL"LOOKSC"                                                    FAX          295     A     
 FAX       ORGL"LOOKSC"  SET  ORGL"LOOKSC"+A                                               FAX          296     A     
 FAX       ORGN"LOOKSC"  SET  ORGN"LOOKSC"-A                                               FAX          297     A     
 FAX       MSORG    SET    *                                                               FAX          298     A     
 FAX                ENDM                                                                   FAX          299     A     
 FAX                                                                                       FAX          300     A     
 FAX                                                                                       FAX          301     A     
 FAX                                                                                       FAX          302     A     
 FAX       MOVEND   MACRO                                                                  FAX          303     A     
 FAX                BSS    0                                                               FAX          304     A     
 FAX                IFNE   *,MSORG+MSLEN,2                                                 FAX          305     A     
 FAX       TRUELEN  OCTMIC *-MSORG,3                                                       FAX          306     A     
 FAX                ERR    MOVSTART CALL AT "MSIDENT" - CODE LENGTH PARAMETER SHOU         FAX          307     A     
 FAX      ,LD BE "TRUELEN"B WORDS.                                                         FAX          308     A     
 FAX                IFNE   LOOKS,MOVMAX,1                                                  FAX          309     A     
 FAX                ORG    ORGB                                                            FAX          310     A     
 FAX                ENDM                                                                   FAX          311     A     
 FAX                                                                                       FAX          312     A     
 FAX       IFMM     ENDIF                                                                  FAX          313     A     
 FAX                SPACE  3                                                               FAX          314     A     
 FAX       RL=      MACRO  TYPE              ADJUST RELOCATION AFTER WRITING A WOR         FAX          315     A     
 FAX                SX3    RL$TYPE                                                         FAX          316     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2608    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                BX6    X3+X6                                                           FAX          317     A     
 FAX                SA6    A3                                                              FAX          318     A     
 FAX                ENDM                                                                   FAX          319     A     
 FAX                                                                                       FAX          320     A     
 FAX       WR1WD    MACRO  WORD,RETURN                                                     FAX          321     A     
 FAX                IFC    NE,/WORD//,1                                                    FAX          322     A     
 FAX                SA4    WORD                                                            FAX          323     A     
 FAX                SB1    60                                                              FAX          324     A     
 FAX                SB6    RETURN  *+2-*P/60D                                              FAX          325     A     
 FAX                EQ     WRTEXT                                                          FAX          326     A     
 FAX                ENDM                                                                   FAX          327     A     
 FAX       LISTER   SPACE  4,8                                                             FAX          328     A     
 FAX      **        LISTER - LIST ONE LINE (CONDITIONAL).                                  FAX          329     A     
 FAX      *                                                                                FAX          330     A     
 FAX      *         LISTS ONE LINE IF BINARY LIST OPTION IS ON (O = .NZ.).                 FAX          331     A     
 FAX      *                                                                                FAX          332     A     
 FAX      *         ENTRY  *FWA* = LINE ADDRESS                                            FAX          333     A     
 FAX      *                *WC*  = LINE LENGTH (WORDS)                                     FAX          334     A     
 FAX      *                                                                                FAX          335     A     
 FAX      *         USES   A2, X2, B1, B5                                                  FAX          336     A     
 FAX      *                                                                                FAX          337     A     
 FAX      *         CALLS  LISTL (FA=LOL)                                                  FAX          338     A     
 FAX                                                                                       FAX          339     A     
 FAX                                                                                       FAX          340     A     
 FAX                PURGMAC   LISTER                                                       FAX          341     A     
 FAX                                                                                       FAX          342     A     
 FAX       LISTER   MACRO  FWA,WC                                                          FAX          343     A     
 FAX                LOCAL  EXIT                                                            FAX          344     A     
 FAX                SA2    OLIST                                                           FAX          345     A     
 FAX                SB1    1                                                               FAX          346     A     
 FAX                ZR     X2,EXIT                                                         FAX          347     A     
 FAX                LISTL  FWA,WC                                                          FAX          348     A     
 FAX                SB5    B1+                                                             FAX          349     A     
 FAX       EXIT     BSS    0                                                               FAX          350     A     
 FAX       LISTER   ENDM                                                                   FAX          351     A     
 FAX       STLTAB   SPACE  4,7                                                             FCCA408      226     A     
 FAX      **        STLTAB - GENERATE STATIC LOAD WEAK EXTERNAL XLINK TABLE.               FCCA408      227     A     
 FAX      *                                                                                FCCA408      228     A     
 FAX      *         STLTAB NAME                                                            FCCA408      229     A     
 FAX      *                                                                                FCCA408      230     A     
 FAX      *         ARGS   *NAME*   = NAME OF AN *FCL* STATIC LOAD BLOCK.                  FCCA408      231     A     
 FAX      *                                                                                FCCA408      232     A     
 FAX      *            THIS MACRO GENERATES THE *XLINK* TABLE BODY FOR THE STATIC          FCCA408      233     A     
 FAX      *         LOAD WEAK EXTERNAL TABLE.  THE FINAL CORE ADDRESS ARE PLUGGED          FCCA408      234     A     
 FAX      *         IN LATER BY *FAX* JUST BEFORE WRITING THE WHOLE TO THE BINARY          FCCA408      235     A     
 FAX      *         FILE.  NOTE  HOWEVER  THAT  THE  REST  OF THIS TABLE IS *HARD          FCCA408      236     A     
 FAX      *         WIRED*,  I.E. THERE ARE TWO ADDRESSES PER WORD, FIXED LENGTH,          FCCA408      237     A     
 FAX      *         ETC..                                                                  FCCA408      238     A     
 FAX                                                                                       FCCA408      239     A     
 FAX                                                                                       FCCA408      240     A     
 FAX                PURGMAC STLTAB                                                         FCCA408      241     A     
 FAX                                                                                       FCCA408      242     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2609    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       STLTAB   MACRO  NAME                                                            FCCA408      243     A     
 FAX                IF     -DEF,T.1,2                                                      FCCA408      244     A     
 FAX       T.1      SET    N.STL                                                           FCCA408      245     A     
 FAX       S.1      SET    0                                                               FCCA408      246     A     
 FAX       .1       IFEQ   S.1,0                                                           FCCA408      247     A     
 FAX       S.1      SET    30                                                              FCCA408      248     A     
 FAX       .1       ELSE                                                                   FCCA408      249     A     
 FAX       S.1      SET    0                                                               FCCA408      250     A     
 FAX       .1       ENDIF                                                                  FCCA408      251     A     
 FAX                VFD    42/0L_NAME,18/1                                                 FCCA408      252     A     
 FAX                VFD    30/**,6/S.1,6/30,9/0,9/1                                        FCCA408      253     A     
 FAX       T.1      SET    T.1-1                                                           FCCA408      254     A     
 FAX                IFNE   T.1,0,1                                                         FCCA408      255     A     
 FAX                CON    0                                                               FCCA408      256     A     
 FAX       STLTAB   ENDM                                                                   FCCA408      257     A     
 FAX       W.EXT.   SPACE  4,7                                                             FCCA408      258     A     
 FAX      **        GENERATE THE STATIC LOAD WEAK EXTERNAL TABLE.                          FCCA408      259     A     
 FAX                                                                                       FCCA408      260     A     
 FAX       S.WEXT   VFD    12/4500B,12/N.STL*3-1,*P/0                                      FCCA408      261     A     
 FAX                                                                                       FCCA408      262     A     
 FAX      *CALL STLOAD                                                                     FCCA408      263     A     
 FAX                                                                                       FCCA408      264     A     
 FAX       L.WEXT   EQU    *-S.WEXT                                                        FCCA408      265     A     
 FAX                TITLE              TRANSFER VECTORS                                    FAX          352     A     
 FAX      *                                                                                FAX          353     A     
 FAX      * COL1VEC IS USED TO MAKE A DECISION ON THE FIRST CHARACTER OF A                 FAX          354     A     
 FAX      * SOURCE STATEMENT.                                                              FAX          355     A     
 FAX      *                                                                                FAX          356     A     
 FAX       COL1VEC  BSS    0                 COLUMN 1 VECTOR                               FAX          357     A     
 FAX       +        EQ     ILL               ZERO                                          FAX          358     A     
 FAX                DUP    32B,1                                                           FAX          359     A     
 FAX       +        EQ     PLABEL            A - Z                                         FAX          360     A     
 FAX                ORGSTART                                                               FAX          361     A     
 FAX                DUP    12B,1                                                           FAX          362     A     
 FAX       +        EQ     ILL               0 - 9                                         FAX          363     A     
 FAX                ORGEND                                                                 FAX          364     A     
 FAX       +        SX6    1                 +                                             FAX          365     A     
 FAX                EQ     PFC                                                             FAX          366     A     
 FAX       +        SX6    -1                -                                             FAX          367     A     
 FAX                EQ     PFC                                                             FAX          368     A     
 FAX                EQ     PCOMM             *  COMMENT CARD                               FAX          369     A     
 FAX       +        EQ     ILL               /                                             FAX          370     A     
 FAX                EQ     PLABEL            (                                             FAX          371     A     
 FAX       +        EQ     PLABEL            )                                             FAX          372     A     
 FAX                ORGSTART                                                               FAX          373     A     
 FAX       +        EQ     ILL               $                                             FAX          374     A     
 FAX       +        EQ     ILL               =                                             FAX          375     A     
 FAX                ORGEND                                                                 FAX          376     A     
 FAX       +        EQ     BLANK             BLANK                                         FAX          377     A     
 FAX       +        EQ     ILL               ,                                             FAX          378     A     
 FAX       +        EQ     PLABEL            .                                             FAX          379     A     
 FAX       +        EQ     PLABEL            #                                             FAX          380     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2610    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       +        EQ     PLABEL            [                                             FAX          381     A     
 FAX       +        EQ     PLABEL            ]                                             FAX          382     A     
 FAX                ORGSTART                                                               FAX          383     A     
 FAX       +        EQ     ILL               :                                             FAX          384     A     
 FAX       +        EQ     ILL               "                                             FAX          385     A     
 FAX       +        EQ     ILL               _                                             FAX          386     A     
 FAX       +        EQ     ILL               !                                             FAX          387     A     
 FAX       +        EQ     ILL               &                                             FAX          388     A     
 FAX       +        EQ     ILL               '                                             FAX          389     A     
 FAX                ORGEND                                                                 FAX          390     A     
 FAX       +        EQ     PLABEL            ?                                             FAX          391     A     
 FAX      *                                                                                FAX          392     A     
 FAX      *         OPERATION CODE RECOGNITION TRANSFER VECTORS                            FAX          393     A     
 FAX      *                                                                                FAX          394     A     
 FAX      *                   SET B2 TO FIRST LETTER                                       FAX          395     A     
 FAX      *                   SET B3 TO SECOND LETTER                                      FAX          396     A     
 FAX      *                   JP        FLVEC-1+B2                                         FAX          397     A     
 FAX      *                                                                                FAX          398     A     
 FAX      *         FIRST LETTER VECTOR                                                    FAX          399     A     
 FAX      *                                                                                FAX          400     A     
 FAX       FLVEC    BSS    0                                                               FAX          401     A     
 FAX       +        JP     AVEC-1+B3         A                                             FAX          402     A     
 FAX       +        JP     BVEC-1+B3         B                                             FAX          403     A     
 FAX                SX7    1R0                                                             FAX          404     A     
 FAX                EQ     L3.CNT                                                          FAX          405     A     
 FAX       +        JP     DVEC-1+B3         D                                             FAX          406     A     
 FAX       +        JP     EVEC-1+B3         E                                             FAX          407     A     
 FAX       +        JP     FVEC-1+B3         F                                             FAX          408     A     
 FAX       PGE      SX4    0600B             G                                             FAX          409     A     
 FAX                EQ     PGNAME            GE OR GNAME                                   FAX          410     A     
 FAX                EQ     PHOL              HOL                                           FAX          411     A     
 FAX       +        JP     IVEC-1+B3         I                                             FAX          412     A     
 FAX       PJP      SX4    0200B       J                                                   FAX          413     A     
 FAX                EQ     L3.JP                                                           FAX          414     A     
 FAX       +        EQ     ILL               K                                             FAX          415     A     
 FAX       +        JP     LVEC-1+B3         L                                             FAX          416     A     
 FAX       +        JP     MVEC-1+B3         M                                             FAX          417     A     
 FAX       +        JP     NVEC-1+B3         N                                             FAX          418     A     
 FAX                EQ     PORG              ORG                                           FAX          419     A     
 FAX       +        JP     PVEC-1+B3         P                                             FAX          420     A     
 FAX       +        EQ     ILL               Q                                             FAX          421     A     
 FAX       +        JP     RVEC-1+B3         R                                             FAX          422     A     
 FAX       +        JP     SVEC-1+B3         S                                             FAX          423     A     
 FAX       +        EQ     PTRACE            TRACE                                         FAX          424     A     
 FAX       +        JP     UVEC-1+B3         U                                             FAX          425     A     
 FAX                BX3    X3-X3                                                           FAX          426     A     
 FAX                EQ     L3.VFD                                                          FAX          427     A     
 FAX       PWX      SX4    1500B                                                           FAX          428     A     
 FAX                EQ     L3.RWX                                                          FAX          429     A     
 FAX                ORGSTART                                                               FAX          430     A     
 FAX       +        EQ     ILL               X                                             FAX          431     A     
 FAX       +        EQ     ILL               Y                                             FAX          432     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2611    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                ORGEND                                                                 FAX          433     A     
 FAX       #T       IFNE   TEST,0                                                          FCCT003       37     A     
 FAX      +         JP     ZVEC-1+B3                                                       FCCT003       38     A     
 FAX       #T       ELSE                                                                   FCCT003       39     A     
 FAX       PZR      SX4    0300B             Z                                             FAX          434     A     
 FAX                EQ     L3.XJP                                                          FAX          435     A     
 FAX       #T       ENDIF                                                                  FCCT003       40     A     
 FAX      *                                                                                FAX          436     A     
 FAX      *         SECOND LETTER VECTORS                                                  FAX          437     A     
 FAX      *                                                                                FAX          438     A     
 FAX       AVEC     BSS    0                 A VECTOR                                      FAX          439     A     
 FAX                ORGSTART                                                               FAX          440     A     
 FAX       +        EQ     ILL               A                                             FAX          441     A     
 FAX       +        EQ     ILL               B                                             FAX          442     A     
 FAX       +        EQ     ILL               C                                             FAX          443     A     
 FAX                ORGEND                                                                 FAX          444          I
          -RSM3545C 
 FAX       +        EQ     PADDSUB           D                                             FAX          445          I
          -RSM3545C 
 FAX                ORGSTART                                                               FAX          446          I
          -RSM3545C 
 FAX       +        EQ     ILL               D                                             RSM3545C      49     A     
 FAX       +        EQ     ILL               E                                             FAX          447     A     
 FAX       +        EQ     ILL               F                                             FAX          448     A     
 FAX       +        EQ     ILL               G                                             FAX          449     A     
 FAX       +        EQ     ILL               H                                             FAX          450     A     
 FAX       +        EQ     ILL               I                                             FAX          451     A     
 FAX       +        EQ     ILL               J                                             FAX          452     A     
 FAX       +        EQ     ILL               K                                             FAX          453     A     
 FAX       +        EQ     ILL               L                                             FAX          454     A     
 FAX       +        EQ     ILL               M                                             FAX          455     A     
 FAX       +        EQ     ILL               N                                             FAX          456     A     
 FAX       +        EQ     ILL               O                                             FAX          457     A     
 FAX                ORGEND                                                                 FAX          458     A     
 FAX       +        EQ     PAPL              APL                                           FAX          459     A     
 FAX                ORGSTART                                                               FAX          460     A     
 FAX       +        EQ     ILL               Q                                             FAX          461     A     
 FAX       +        EQ     ILL               R                                             FAX          462     A     
 FAX       +        EQ     ILL               S                                             FAX          463     A     
 FAX       +        EQ     ILL               T                                             FAX          464     A     
 FAX       +        EQ     ILL               U                                             FAX          465     A     
 FAX       +        EQ     ILL               V                                             FAX          466     A     
 FAX       +        EQ     ILL               W                                             FAX          467     A     
 FAX                ORGEND                                                                 FAX          468     A     
 FAX       PAXI     SX4    21000B            X                                             FAX          469     A     
 FAX                EQ     L3.SH                                                           FAX          470     A     
 FAX                ORGSTART                                                               FAX          471     A     
 FAX       +        EQ     ILL               Y                                             FAX          472     A     
 FAX       +        EQ     ILL               Z                                             FAX          473     A     
 FAX       BVEC     BSS    0                 B VECTOR                                      FAX          474     A     
 FAX       +        EQ     ILL               A                                             FAX          475     A     
 FAX       +        EQ     ILL               B                                             FAX          476     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2612    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       +        EQ     ILL               C                                             FAX          477     A     
 FAX       +        EQ     ILL               D                                             FAX          478     A     
 FAX       +        EQ     ILL               E                                             FAX          479     A     
 FAX                SPACE  2                                                               FAX          480     A     
 FAX       +        EQ     ILL               F                                             FAX          481     A     
 FAX       +        EQ     ILL               G                                             FAX          482     A     
 FAX       +        EQ     ILL               H                                             FAX          483     A     
 FAX       +        EQ     ILL               I                                             FAX          484     A     
 FAX       +        EQ     ILL               J                                             FAX          485     A     
 FAX       +        EQ     ILL               K                                             FAX          486     A     
 FAX       +        EQ     ILL               L                                             FAX          487     A     
 FAX       +        EQ     ILL               M                                             FAX          488     A     
 FAX       +        EQ     ILL               N                                             FAX          489     A     
 FAX       +        EQ     ILL               O                                             FAX          490     A     
 FAX       +        EQ     ILL               P                                             FAX          491     A     
 FAX       +        EQ     ILL               Q                                             FAX          492     A     
 FAX       +        EQ     ILL               R                                             FAX          493     A     
 FAX                ORGEND                                                                 FAX          494     A     
 FAX       +        SB2    TLVEC-1           S                                             FAX          495     A     
 FAX                EQ     PNL                                                             FAX          496     A     
 FAX                ORGSTART                                                               FAX          497     A     
 FAX       +        EQ     ILL               T                                             FAX          498     A     
 FAX       +        EQ     ILL               U                                             FAX          499     A     
 FAX       +        EQ     ILL               V                                             FAX          500     A     
 FAX       +        EQ     ILL               W                                             FAX          501     A     
 FAX                ORGEND                                                                 FAX          502     A     
 FAX       +        EQ     L3.BOOL           X                                             FAX          503     A     
 FAX                ORGSTART                                                               FAX          504     A     
 FAX       +        EQ     ILL               Y                                             FAX          505     A     
 FAX       +        EQ     ILL               Z                                             FAX          506     A     
 FAX                ORGEND                                                                 FAX          507     A     
 FAX       DVEC     BSS    0                 D VECTOR                                      FAX          508     A     
 FAX       +        SB1    1R                A                                             FAX          509     A     
 FAX                EQ     PDATA                                                           FAX          510     A     
 FAX                ORGSTART                                                               FAX          511     A     
 FAX       +        EQ     ILL               B                                             FAX          512     A     
 FAX       +        EQ     ILL               C                                             FAX          513     A     
 FAX       +        EQ     ILL               D                                             FAX          514     A     
 FAX                ORGEND                                                                 FAX          515          I
          -RSM3545C 
 FAX       +        EQ     PDELAY            E                                             FAX          516          I
          -RSM3545C 
 FAX                ORGSTART                                                               FAX          517          I
          -RSM3545C 
 FAX       +        EQ     ILL               E                                             RSM3545C      50     A     
 FAX       +        EQ     ILL               F                                             FAX          518     A     
 FAX       +        EQ     ILL               G                                             FAX          519     A     
 FAX       +        EQ     ILL               H                                             FAX          520     A     
 FAX                ORGEND                                                                 FAX          521     A     
 FAX       +        EQ     PDIS              I                                             FAX          522     A     
 FAX                ORGSTART                                                               FAX          523     A     
 FAX       +        EQ     ILL               J                                             FAX          524     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2613    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       +        EQ     ILL               K                                             FAX          525     A     
 FAX       +        EQ     ILL               L                                             FAX          526     A     
 FAX       +        EQ     ILL               M                                             FAX          527     A     
 FAX       +        EQ     ILL               N                                             FAX          528     A     
 FAX       +        EQ     ILL               O                                             FAX          529     A     
 FAX       +        EQ     ILL               P                                             FAX          530     A     
 FAX       +        EQ     ILL               Q                                             FAX          531     A     
 FAX       +        EQ     ILL               R                                             FAX          532     A     
 FAX       +        EQ     ILL               S                                             FAX          533     A     
 FAX       +        EQ     ILL               T                                             FAX          534     A     
 FAX       +        EQ     ILL               U                                             FAX          535     A     
 FAX       +        EQ     ILL               V                                             FAX          536     A     
 FAX       +        EQ     ILL               W                                             FAX          537     A     
 FAX                ORGEND                                                                 FAX          538     A     
 FAX       PDXI     SX4    02000B            X                                             FAX          539     A     
 FAX                EQ     L3.ARIT                                                         FAX          540     A     
 FAX                ORGSTART                                                               FAX          541     A     
 FAX       +        EQ     ILL               Y                                             FAX          542     A     
 FAX       +        EQ     ILL               Z                                             FAX          543     A     
 FAX       EVEC     BSS    0                 E VECTOR                                      FAX          544     A     
 FAX       +        EQ     ILL               A                                             FAX          545     A     
 FAX       +        EQ     ILL               B                                             FAX          546     A     
 FAX       +        EQ     ILL               C                                             FAX          547     A     
 FAX                ORGEND                                                                 FAX          548     A     
 FAX      +         EQ     L3.ED                                                           FAX          549     A     
 FAX                ORGSTART                                                               FAX          550     A     
 FAX       +        EQ     ILL               E                                             FAX          551     A     
 FAX       +        EQ     ILL               F                                             FAX          552     A     
 FAX       +        EQ     ILL               G                                             FAX          553     A     
 FAX       +        EQ     ILL               H                                             FAX          554     A     
 FAX                ORGEND                                                                 FAX          555     A     
 FAX       +        EQ     PEIO              PROCESS EIO MACRO                             FAX          556     A     
 FAX                ORGSTART                                                               FAX          557     A     
 FAX       +        EQ     ILL               J                                             FAX          558     A     
 FAX       +        EQ     ILL               K                                             FAX          559     A     
 FAX       +        EQ     ILL               L                                             FAX          560     A     
 FAX       +        EQ     ILL               M                                             FAX          561     A     
 FAX                ORGEND                                                                 FAX          562     A     
 FAX       +        SB2    TLVEC-1           N                                             FAX          563     A     
 FAX                EQ     PNL                                                             FAX          564     A     
 FAX                ORGSTART                                                               FAX          565     A     
 FAX       +        EQ     ILL               O                                             FAX          566     A     
 FAX                ORGEND                                                                 FAX          567     A     
 FAX                EQ     NOBINPO           EPL                                           FAX          568     A     
 FAX       +        SB2    TLVEC-1           Q                                             FAX          569     A     
 FAX                EQ     PNL                                                             FAX          570     A     
 FAX       +        EQ     ILL               R, ERR PSEUDO-OP                              FAX          571     A     
 FAX                ORGSTART                                                               FAX          572     A     
 FAX       +        EQ     ILL               S                                             FAX          573     A     
 FAX       +        EQ     ILL               T                                             FAX          574     A     
 FAX       +        EQ     ILL               U                                             FAX          575     A     
 FAX       +        EQ     ILL               V                                             FAX          576     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2614    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       +        EQ     ILL               W                                             FAX          577     A     
 FAX                ORGEND                                                                 FAX          578     A     
 FAX       +        EQ     NOBINPO           X                                             FAX          579     A     
 FAX                ORGSTART                                                               FAX          580     A     
 FAX       +        EQ     ILL               Y                                             FAX          581     A     
 FAX       +        EQ     ILL               Z                                             FAX          582     A     
 FAX       FVEC     BSS    0                 F VECTOR                                      FAX          583     A     
 FAX       +        EQ     ILL               A                                             FAX          584     A     
 FAX       +        EQ     ILL               B                                             FAX          585     A     
 FAX       +        EQ     ILL               C                                             FAX          586     A     
 FAX       +        EQ     ILL               D                                             FAX          587     A     
 FAX                ORGEND                                                                 FAX          588     A     
 FAX                EQ     NOBINPO                                                         FAX          589     A     
 FAX                ORGSTART                                                               FAX          590     A     
 FAX       +        EQ     ILL               F                                             FAX          591     A     
 FAX       +        EQ     ILL               G                                             FAX          592     A     
 FAX       +        EQ     ILL               H                                             FAX          593     A     
 FAX                EQ     ILL               I                                             FAX          594     A     
 FAX       +        EQ     ILL               J                                             FAX          595     A     
 FAX       +        EQ     ILL               K                                             FAX          596     A     
 FAX       +        EQ     ILL               L                                             FAX          597     A     
 FAX                ORGEND                                                                 FAX          598     A     
 FAX                MX0    36                FMT                                           FAX          599     A     
 FAX                SA5    A5+B5             NEXT WORD                                     FAX          600     A     
 FAX                EQ     PFMT              FORMAT LABEL DEFINITION                       FAX          601     A     
 FAX                ORGSTART                                                               FAX          602     A     
 FAX       +        EQ     ILL               N                                             FAX          603     A     
 FAX                ORGEND                                                                 FAX          604     A     
 FAX       P        EQ     NOBINPO                                                         FAX          605     A     
 FAX                ORGSTART                                                               FAX          606     A     
 FAX       +        EQ     ILL               P                                             FAX          607     A     
 FAX       +        EQ     ILL               Q                                             FAX          608     A     
 FAX       +        EQ     ILL               R                                             FAX          609     A     
 FAX       +        EQ     ILL               S                                             FAX          610     A     
 FAX       +        EQ     ILL               T                                             FAX          611     A     
 FAX       +        EQ     ILL               U                                             FAX          612     A     
 FAX       +        EQ     ILL               V                                             FAX          613     A     
 FAX       +        EQ     ILL               W                                             FAX          614     A     
 FAX                ORGEND                                                                 FAX          615     A     
 FAX       PFXI     BX4    X4-X4                                                           FAX          616     A     
 FAX                EQ     L3.ARIT                                                         FAX          617     A     
 FAX                ORGSTART                                                               FAX          618     A     
 FAX       +        EQ     ILL               Y                                             FAX          619     A     
 FAX       +        EQ     ILL               Z                                             FAX          620     A     
 FAX       IVEC     BSS    0                 I VECTOR                                      FAX          621     A     
 FAX       +        EQ     ILL               A                                             FAX          622     A     
 FAX       +        EQ     ILL               B                                             FAX          623     A     
 FAX       +        EQ     ILL               C                                             FAX          624     A     
 FAX                ORGEND                                                                 FAX          625     A     
 FAX       +        EQ     PIDENT            D                                             FAX          626     A     
 FAX                ORGSTART                                                               FAX          627     A     
 FAX       +        EQ     ILL               E                                             FAX          628     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2615    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       +        EQ     ILL               F                                             FAX          629     A     
 FAX       +        EQ     ILL               G                                             FAX          630     A     
 FAX       +        EQ     ILL               H                                             FAX          631     A     
 FAX       +        EQ     ILL               I                                             FAX          632     A     
 FAX       +        EQ     ILL               J                                             FAX          633     A     
 FAX       +        EQ     ILL               K                                             FAX          634     A     
 FAX       +        EQ     ILL               L                                             FAX          635     A     
 FAX       +        EQ     ILL               M                                             FAX          636     A     
 FAX       +        EQ     ILL               N                                             FAX          637     A     
 FAX                ORGEND                                                                 FAX          638     A     
 FAX       +        EQ     PIOM              PROCESS IOM MACRO                             FAX          639     A     
 FAX                ORGSTART                                                               FAX          640     A     
 FAX       +        EQ     ILL               P                                             FAX          641     A     
 FAX       +        EQ     ILL               Q                                             FAX          642     A     
 FAX       +        EQ     ILL               R                                             FAX          643     A     
 FAX       +        EQ     ILL               S                                             FAX          644     A     
 FAX       +        EQ     ILL               T                                             FAX          645     A     
 FAX       +        EQ     ILL               U                                             FAX          646     A     
 FAX       +        EQ     ILL               V                                             FAX          647     A     
 FAX       +        EQ     ILL               W                                             FAX          648     A     
 FAX                ORGEND                                                                 FAX          649     A     
 FAX       PIXI     SX4    06000B            X                                             FAX          650     A     
 FAX                EQ     L3.ARIT                                                         FAX          651     A     
 FAX                ORGSTART                                                               FAX          652     A     
 FAX       +        EQ     ILL               Y                                             FAX          653     A     
 FAX       +        EQ     ILL               Z                                             FAX          654     A     
 FAX       LVEC     BSS    0                 L VECTOR                                      FAX          655     A     
 FAX                ORGEND                                                                 FAX          656     A     
 FAX                EQ     PLAP                                                            FAX          657     A     
 FAX                ORGSTART                                                               FAX          658     A     
 FAX       +        EQ     ILL               B                                             FAX          659     A     
 FAX                EQ     ILL               C                                             FAX          660     A     
 FAX       +        EQ     ILL               D                                             FAX          661          I
          -F162FTNA 
 FAX                ORGEND                                                                 F162FTNA    1072     A     
 FAX                EQ     PLDSET            D     PROCESS *LDSET*                         F162FTNA    1073     A     
 FAX                ORGSTART                                                               F162FTNA    1074     A     
 FAX       +        EQ     ILL               E                                             FAX          662     A     
 FAX       +        EQ     ILL               F                                             FAX          663     A     
 FAX       +        EQ     ILL               G                                             FAX          664     A     
 FAX       +        EQ     ILL               H                                             FAX          665     A     
 FAX                EQ     ILL               I                                             FAX          666     A     
 FAX       +        EQ     ILL               J                                             FAX          667     A     
 FAX       +        EQ     ILL               K                                             FAX          668     A     
 FAX       +        EQ     ILL               L                                             FAX          669     A     
 FAX       +        EQ     ILL               M                                             FAX          670     A     
 FAX       +        EQ     ILL               N                                             FAX          671     A     
 FAX       +        EQ     ILL               O                                             FAX          672     A     
 FAX       +        EQ     ILL               P                                             FAX          673     A     
 FAX       +        EQ     ILL               Q                                             FAX          674     A     
 FAX       +        EQ     ILL               R                                             FAX          675     A     
 FAX       +        EQ     ILL               S                                             FAX          676     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2616    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                ORGEND                                                                 FAX          677     A     
 FAX       PLT      SX4    0700B             T                                             FAX          678     A     
 FAX                EQ     L3.BJP                                                          FAX          679     A     
 FAX                ORGSTART                                                               FAX          680     A     
 FAX       +        EQ     ILL               U                                             FAX          681     A     
 FAX       +        EQ     ILL               V                                             FAX          682     A     
 FAX       +        EQ     ILL               W                                             FAX          683     A     
 FAX                ORGEND                                                                 FAX          684     A     
 FAX       PLXI     SX4    20000B            X                                             FAX          685     A     
 FAX                EQ     L3.SH                                                           FAX          686     A     
 FAX                ORGSTART                                                               FAX          687     A     
 FAX       +        EQ     ILL               Y                                             FAX          688     A     
 FAX       +        EQ     ILL               Z                                             FAX          689     A     
 FAX                ORGEND                                                                 FAX          690     A     
 FAX       MVEC     BSS    0                 M VECTOR                                      FAX          691     A     
 FAX                ORGSTART                                                               FAX          692     A     
 FAX                EQ     ILL               A                                             FAX          693     A     
 FAX       +        EQ     ILL               B                                             FAX          694     A     
 FAX       +        EQ     ILL               C                                             FAX          695     A     
 FAX       +        EQ     ILL               D                                             FAX          696     A     
 FAX       +        EQ     ILL               E                                             FAX          697     A     
 FAX       +        EQ     ILL               F                                             FAX          698     A     
 FAX       +        EQ     ILL               G                                             FAX          699     A     
 FAX       +        EQ     ILL               H                                             FAX          700     A     
 FAX                ORGEND                                                                 FAX          701     A     
 FAX       PMI      SX4    0330B             I                                             FAX          702     A     
 FAX                EQ     L3.XJP                                                          FAX          703     A     
 FAX                ORGSTART                                                               FAX          704     A     
 FAX       +        EQ     ILL               J                                             FAX          705     A     
 FAX       +        EQ     ILL               K                                             FAX          706     A     
 FAX       +        EQ     ILL               L                                             FAX          707     A     
 FAX       +        EQ     ILL               M                                             FAX          708     A     
 FAX       +        EQ     ILL               N                                             FAX          709     A     
 FAX       +        EQ     ILL               O                                             FAX          710     A     
 FAX       +        EQ     ILL               P                                             FAX          711     A     
 FAX       +        EQ     ILL               Q                                             FAX          712     A     
 FAX       +        EQ     ILL               R                                             FAX          713     A     
 FAX       +        EQ     ILL               S                                             FAX          714     A     
 FAX       +        EQ     ILL               T                                             FAX          715     A     
 FAX       +        EQ     ILL               U                                             FAX          716     A     
 FAX       +        EQ     ILL               V                                             FAX          717     A     
 FAX       +        EQ     ILL               W                                             FAX          718     A     
 FAX                ORGEND                                                                 FAX          719     A     
 FAX       +        SX4    43000B            X                                             FAX          720     A     
 FAX                EQ     L3.MX                                                           FAX          721     A     
 FAX                ORGSTART                                                               FAX          722     A     
 FAX       +        EQ     ILL               Y                                             FAX          723     A     
 FAX       +        EQ     ILL               Z                                             FAX          724     A     
 FAX                ORGEND                                                                 FAX          725     A     
 FAX       NVEC     BSS    0                 N VECTOR                                      FAX          726     A     
 FAX       +        EQ     PNAME             A                                             FAX          727     A     
 FAX                ORGSTART                                                               FAX          728     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2617    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       +        EQ     ILL               B                                             FAX          729     A     
 FAX       +        EQ     ILL               C                                             FAX          730     A     
 FAX       +        EQ     ILL               D                                             FAX          731     A     
 FAX                ORGEND                                                                 FAX          732     A     
 FAX       PNE      SX4    0500B             E                                             FAX          733     A     
 FAX                EQ     L3.BJP                                                          FAX          734     A     
 FAX                ORGSTART                                                               FAX          735     A     
 FAX       +        EQ     ILL               F                                             FAX          736     A     
 FAX                EQ     ILL               G                                             FAX          737     A     
 FAX       +        EQ     ILL               H                                             FAX          738     A     
 FAX       +        EQ     ILL               I                                             FAX          739     A     
 FAX       +        EQ     ILL               J                                             FAX          740     A     
 FAX       +        EQ     ILL               K                                             FAX          741     A     
 FAX       +        EQ     ILL               L                                             FAX          742     A     
 FAX       +        EQ     ILL               M                                             FAX          743     A     
 FAX       +        EQ     ILL               N                                             FAX          744     A     
 FAX                ORGEND                                                                 FAX          745     A     
 FAX       +        SX4    46000B            O                                             FAX          746     A     
 FAX                EQ     L4.15                                                           FAX          747     A     
 FAX                ORGSTART                                                               FAX          748     A     
 FAX       +        EQ     ILL               P                                             FAX          749     A     
 FAX       +        EQ     ILL               Q                                             FAX          750     A     
 FAX       +        EQ     ILL               R                                             FAX          751     A     
 FAX       +        EQ     ILL               S                                             FAX          752     A     
 FAX       +        EQ     ILL               T                                             FAX          753     A     
 FAX       +        EQ     ILL               U                                             FAX          754     A     
 FAX       +        EQ     ILL               V                                             FAX          755     A     
 FAX       +        EQ     ILL               W                                             FAX          756     A     
 FAX                ORGEND                                                                 FAX          757     A     
 FAX       PNXI     SX4    24000B            X                                             FAX          758     A     
 FAX                EQ     L3.PUN                                                          FAX          759     A     
 FAX       +        EQ     ILL               Y                                             FAX          760     A     
 FAX       PNZ      SX4    0310B                                                           FAX          761     A     
 FAX                EQ     L3.XJP                                                          FAX          762     A     
 FAX       PVEC     BSS    0                 P VECTOR                                      FAX          763     A     
 FAX                ORGSTART                                                               FAX          764     A     
 FAX       +        EQ     ILL               A                                             FAX          765     A     
 FAX       +        EQ     ILL               B                                             FAX          766     A     
 FAX       +        EQ     ILL               C                                             FAX          767     A     
 FAX       +        EQ     ILL               D                                             FAX          768     A     
 FAX                ORGEND                                                                 FAX          769     A     
 FAX       +        EQ     PPENTRY                                                         FAX          770     A     
 FAX                ORGSTART                                                               FAX          771     A     
 FAX       +        EQ     ILL               F                                             FAX          772     A     
 FAX       +        EQ     ILL               G                                             FAX          773     A     
 FAX       +        EQ     ILL               H                                             FAX          774     A     
 FAX       +        EQ     ILL               I                                             FAX          775     A     
 FAX       +        EQ     ILL               J                                             FAX          776     A     
 FAX       +        EQ     ILL               K                                             FAX          777     A     
 FAX                ORGEND                                                                 FAX          778     A     
 FAX       PPL      SX4    0320B             L                                             FAX          779     A     
 FAX                EQ     L3.XJP                                                          FAX          780     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2618    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                ORGSTART                                                               FAX          781     A     
 FAX       +        EQ     ILL               M                                             FAX          782     A     
 FAX       +        EQ     ILL               N                                             FAX          783     A     
 FAX       +        EQ     ILL               O                                             FAX          784     A     
 FAX       +        EQ     ILL               P                                             FAX          785     A     
 FAX       +        EQ     ILL               Q                                             FAX          786     A     
 FAX       +        EQ     ILL               R                                             FAX          787     A     
 FAX       +        EQ     ILL               S                                             FAX          788     A     
 FAX       +        EQ     ILL               T                                             FAX          789     A     
 FAX       +        EQ     ILL               U                                             FAX          790     A     
 FAX       +        EQ     ILL               V                                             FAX          791     A     
 FAX       +        EQ     ILL               W                                             FAX          792     A     
 FAX                ORGEND                                                                 FAX          793     A     
 FAX       PPXI     SX4    27000B            X                                             FAX          794     A     
 FAX                EQ     L3.PUN                                                          FAX          795     A     
 FAX                ORGSTART                                                               FAX          796     A     
 FAX       +        EQ     ILL               Y                                             FAX          797     A     
 FAX       +        EQ     ILL               Z                                             FAX          798     A     
 FAX       RVEC     BSS    0                 R VECTOR                                      FAX          799     A     
 FAX       +        EQ     ILL               A                                             FAX          800     A     
 FAX       +        EQ     ILL               B                                             FAX          801     A     
 FAX       +        EQ     ILL               C                                             FAX          802     A     
 FAX       +        EQ     ILL               D                                             FAX          803     A     
 FAX                ORGEND                                                                 FAX          804     A     
 FAX       +        EQ     PREPI                                                           FAX          805     A     
 FAX                ORGSTART                                                               FAX          806     A     
 FAX       +        EQ     ILL               F                                             FAX          807     A     
 FAX       +        EQ     ILL               G                                             FAX          808     A     
 FAX       +        EQ     ILL               H                                             FAX          809     A     
 FAX       +        EQ     ILL               I                                             FAX          810     A     
 FAX                ORGEND                                                                 FAX          811     A     
 FAX       PRJ      SX4    0100B             J                                             FAX          812     A     
 FAX                EQ     L3.RJ                                                           FAX          813     A     
 FAX                ORGSTART                                                               FAX          814     A     
 FAX       +        EQ     ILL               K                                             FAX          815     A     
 FAX       +        EQ     ILL               L                                             FAX          816     A     
 FAX       +        EQ     ILL               M                                             FAX          817     A     
 FAX       +        EQ     ILL               N                                             FAX          818     A     
 FAX       +        EQ     ILL               O                                             FAX          819     A     
 FAX       +        EQ     ILL               P                                             FAX          820     A     
 FAX       +        EQ     ILL               Q                                             FAX          821     A     
 FAX       +        EQ     ILL               R                                             FAX          822     A     
 FAX       +        EQ     ILL               S                                             FAX          823     A     
 FAX       +        EQ     ILL               T                                             FAX          824     A     
 FAX       +        EQ     ILL               U                                             FAX          825     A     
 FAX       +        EQ     ILL               V                                             FAX          826     A     
 FAX       +        EQ     ILL               W                                             FAX          827     A     
 FAX                ORGEND                                                                 FAX          828     A     
 FAX       PRX      EQ     L3.RX                                                           FAX          829     A     
 FAX                ORGSTART                                                               FAX          830     A     
 FAX       +        EQ     ILL               Y                                             FAX          831     A     
 FAX       +        EQ     ILL               Z                                             FAX          832     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2619    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                ORGEND                                                                 FAX          833     A     
 FAX       SVEC     BSS    0                 S VECTOR                                      FAX          834     A     
 FAX       PSAI     SX4    51000B            A                                             FAX          835     A     
 FAX                EQ     L3.SET                                                          FAX          836     A     
 FAX       PSBI     SX4    61000B            B                                             FAX          837     A     
 FAX                EQ     L3.SET                                                          FAX          838     A     
 FAX                ORGSTART                                                               FAX          839     A     
 FAX       +        EQ     ILL               C                                             FAX          840     A     
 FAX       +        EQ     ILL               D                                             FAX          841     A     
 FAX                EQ     ILL               E                                             FAX          842     A     
 FAX       +        EQ     ILL               F                                             FAX          843     A     
 FAX       +        EQ     ILL               G                                             FAX          844     A     
 FAX       +        EQ     ILL               H                                             FAX          845     A     
 FAX       +        EQ     ILL               I                                             FAX          846     A     
 FAX       +        EQ     ILL               J                                             FAX          847     A     
 FAX       +        EQ     ILL               K                                             FAX          848     A     
 FAX       +        EQ     ILL               L                                             FAX          849     A     
 FAX       +        EQ     ILL               M                                             FAX          850     A     
 FAX       +        EQ     ILL               N                                             FAX          851     A     
 FAX       +        EQ     ILL               O                                             FAX          852     A     
 FAX       +        EQ     ILL               P                                             FAX          853     A     
 FAX       +        EQ     ILL               Q                                             FAX          854     A     
 FAX       +        EQ     ILL               R                                             FAX          855     A     
 FAX       +        EQ     ILL               S                                             FAX          856     A     
 FAX       +        EQ     ILL               T                                             FAX          857     A     
 FAX                ORGEND                                                                 FAX          858     A     
 FAX       +        EQ     PSUB              U                                             FAX          859     A     
 FAX                ORGSTART                                                               FAX          860     A     
 FAX       +        EQ     ILL               V                                             FAX          861     A     
 FAX       +        EQ     ILL               W                                             FAX          862     A     
 FAX                ORGEND                                                                 FAX          863     A     
 FAX       PSXI     SX4    71000B            X                                             FAX          864     A     
 FAX                EQ     L3.SET                                                          FAX          865     A     
 FAX                ORGSTART                                                               FAX          866     A     
 FAX       +        EQ     ILL               Y                                             FAX          867     A     
 FAX       +        EQ     ILL               Z                                             FAX          868     A     
 FAX       UVEC     BSS    0                 U VECTOR                                      FAX          869     A     
 FAX       +        EQ     ILL               A                                             FAX          870     A     
 FAX       +        EQ     ILL               B                                             FAX          871     A     
 FAX       +        EQ     ILL               C                                             FAX          872     A     
 FAX       +        EQ     ILL               D                                             FAX          873     A     
 FAX       +        EQ     ILL               E                                             FAX          874     A     
 FAX       +        EQ     ILL               F                                             FAX          875     A     
 FAX       +        EQ     ILL               G                                             FAX          876     A     
 FAX       +        EQ     ILL               H                                             FAX          877     A     
 FAX       +        EQ     ILL               I                                             FAX          878     A     
 FAX       +        EQ     ILL               J                                             FAX          879     A     
 FAX       +        EQ     ILL               K                                             FAX          880     A     
 FAX       +        EQ     ILL               L                                             FAX          881     A     
 FAX       +        EQ     ILL               M                                             FAX          882     A     
 FAX       +        EQ     ILL               N                                             FAX          883     A     
 FAX       +        EQ     ILL               O                                             FAX          884     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2620    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       +        EQ     ILL               P                                             FAX          885     A     
 FAX       +        EQ     ILL               Q                                             FAX          886     A     
 FAX       +        EQ     ILL               R                                             FAX          887     A     
 FAX                ORGEND                                                                 FAX          888     A     
 FAX       +        EQ     PUSE              S                                             FAX          889     A     
 FAX                ORGSTART                                                               FAX          890     A     
 FAX       +        EQ     ILL               T                                             FAX          891     A     
 FAX       +        EQ     ILL               U                                             FAX          892     A     
 FAX       +        EQ     ILL               V                                             FAX          893     A     
 FAX       +        EQ     ILL               W                                             FAX          894     A     
 FAX                ORGEND                                                                 FAX          895     A     
 FAX       PUXI     SX4    26000B            X                                             FAX          896     A     
 FAX                EQ     L3.PUN                                                          FAX          897     A     
 FAX                ORGSTART                                                               FAX          898     A     
 FAX       +        EQ     ILL               Y                                             FAX          899     A     
 FAX       +        EQ     ILL               Z                                             FAX          900     A     
 FAX       #T       IFNE   TEST,0                                                          FCCT003       41     A     
 FAX       ZVEC     BSS    0                                                               FCCT003       42     A     
 FAX                DUP    1RQ-1RA+1,1                                                     FCCT003       43     A     
 FAX      +         EQ     ILL                                                             FCCT003       44     A     
 FAX                ORGEND                                                                 FCCT003       45     A     
 FAX       PZR      SX4    0300B                                                           FCCT003       46     A     
 FAX                EQ     L3.XJP                                                          FCCT003       47     A     
 FAX                ORGSTART                                                               FCCT003       48     A     
 FAX                DUP    1RW-1RS+1,1                                                     FCCT003       49     A     
 FAX      +         EQ     ILL                                                             FCCT003       50     A     
 FAX                ORGEND                                                                 FCCT003       51     A     
 FAX       PZXI     SX4    25000B                                                          FCCT003       52     A     
 FAX                EQ     L3.PUN                                                          FCCT003       53     A     
 FAX                ORGSTART                                                               FCCT003       54     A     
 FAX      +         EQ     ILL               Y                                             FCCT003       55     A     
 FAX      +         EQ     ILL               Z                                             FCCT003       56     A     
 FAX       #T       ENDIF                                                                  FCCT003       57     A     
 FAX      *                                                                                FAX          901     A     
 FAX      * THE LAST 3 VECTORS HAVE BEEN INCLUDED, ALONG WITH THE ROUTINE PNL              FAX          902     A     
 FAX      * TO PROVIDE FOR EASE OF FUTURE MODIFICATION.                                    FAX          903     A     
 FAX      *                                                                                FAX          904     A     
 FAX      *         THIRD LETTER VECTOR                                                    FAX          905     A     
 FAX      *                                                                                FAX          906     A     
 FAX      *                   SET B2 TO THIRD LETTER                                       FAX          907     A     
 FAX      *                   JP        TLVEC-1,B2                                         FAX          908     A     
 FAX      *                                                                                FAX          909     A     
 FAX       TLVEC    BSS    0                                                               FAX          910     A     
 FAX       +        EQ     ILL               A                                             FAX          911     A     
 FAX       +        EQ     ILL               B                                             FAX          912     A     
 FAX       +        EQ     ILL               C                                             FAX          913     A     
 FAX                ORGEND                                                                 FAX          914     A     
 FAX       +        EQ     PEND              D                                             FAX          915     A     
 FAX                ORGSTART                                                               FAX          916     A     
 FAX       +        EQ     ILL               E                                             FAX          917     A     
 FAX       +        EQ     ILL               F                                             FAX          918     A     
 FAX       +        EQ     ILL               G                                             FAX          919     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2621    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       +        EQ     ILL               H                                             FAX          920     A     
 FAX       +        EQ     ILL               I                                             FAX          921     A     
 FAX       +        EQ     ILL               J                                             FAX          922     A     
 FAX       +        EQ     ILL               K                                             FAX          923     A     
 FAX       +        EQ     ILL               L                                             FAX          924     A     
 FAX       +        EQ     ILL               M                                             FAX          925     A     
 FAX       +        EQ     ILL               N                                             FAX          926     A     
 FAX       +        EQ     ILL               O                                             FAX          927     A     
 FAX       +        EQ     ILL               P                                             FAX          928     A     
 FAX       +        EQ     ILL               Q                                             FAX          929     A     
 FAX       +        EQ     ILL               R                                             FAX          930     A     
 FAX                ORGEND                                                                 FAX          931     A     
 FAX       +        EQ     PBSS              S                                             FAX          932     A     
 FAX       +        SB2    L4VEC-1           T                                             FAX          933     A     
 FAX                EQ     PNL                                                             FAX          934     A     
 FAX       +        BX7    X7-X7             U                                             FAX          935     A     
 FAX                EQ     L3.EQU                                                          FAX          936     A     
 FAX                ORGSTART                                                               FAX          937     A     
 FAX                DUP    27B,1                                                           FAX          938     A     
 FAX       +        EQ     ILL               V - =                                         FAX          939     A     
 FAX                ORGEND                                                                 FAX          940     A     
 FAX       PEQ      SX4    0400B             SPACE                                         FAX          941     A     
 FAX                EQ     L3.EQ                                                           FAX          942     A     
 FAX      *                                                                                FAX          943     A     
 FAX      *         FOURTH LETTER VECTOR                                                   FAX          944     A     
 FAX      *                                                                                FAX          945     A     
 FAX      *                   SET B2 TO FOURTH LETTER                                      FAX          946     A     
 FAX      *                   JP        L4VEC-1,B2                                         FAX          947     A     
 FAX      *                                                                                FAX          948     A     
 FAX       L4VEC    BSS    0                                                               FAX          949     A     
 FAX                ORGSTART                                                               FAX          950     A     
 FAX       +        EQ     ILL               A                                             FAX          951     A     
 FAX       +        EQ     ILL               B                                             FAX          952     A     
 FAX       +        EQ     ILL               C                                             FAX          953     A     
 FAX       +        EQ     ILL               D                                             FAX          954     A     
 FAX       +        EQ     ILL               E                                             FAX          955     A     
 FAX       +        EQ     ILL               F                                             FAX          956     A     
 FAX       +        EQ     ILL               G                                             FAX          957     A     
 FAX       +        EQ     ILL               H                                             FAX          958     A     
 FAX       +        EQ     ILL               I                                             FAX          959     A     
 FAX       +        EQ     ILL               J                                             FAX          960     A     
 FAX       +        EQ     ILL               K                                             FAX          961     A     
 FAX       +        EQ     ILL               L                                             FAX          962     A     
 FAX       +        EQ     ILL               M                                             FAX          963     A     
 FAX       +        EQ     ILL               N                                             FAX          964     A     
 FAX       +        EQ     ILL               O                                             FAX          965     A     
 FAX       +        EQ     ILL               P                                             FAX          966     A     
 FAX       +        EQ     ILL               Q                                             FAX          967     A     
 FAX                ORGEND                                                                 FAX          968     A     
 FAX       +        SB2    L5VEC-1           R                                             FAX          969     A     
 FAX                EQ     PNL                                                             FAX          970     A     
 FAX                ORGSTART                                                               FAX          971     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2622    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       +        EQ     ILL               S                                             FAX          972     A     
 FAX       +        EQ     ILL               T                                             FAX          973     A     
 FAX       +        EQ     ILL               U                                             FAX          974     A     
 FAX       +        EQ     ILL               V                                             FAX          975     A     
 FAX       +        EQ     ILL               W                                             FAX          976     A     
 FAX       +        EQ     ILL               X                                             FAX          977     A     
 FAX       +        EQ     ILL               Y                                             FAX          978     A     
 FAX       +        EQ     ILL               Z                                             FAX          979     A     
 FAX      *                                                                                FAX          980     A     
 FAX      *         FIFTH LETTER VECTOR                                                    FAX          981     A     
 FAX      *                                                                                FAX          982     A     
 FAX      *                   SET B2 TO FIFTH LETTER                                       FAX          983     A     
 FAX      *                   JP        L5VEC-1,B2                                         FAX          984     A     
 FAX      *                                                                                FAX          985     A     
 FAX       L5VEC    BSS    0                                                               FAX          986     A     
 FAX                DUP    30B,1                                                           FAX          987     A     
 FAX       +        EQ     ILL               A - X                                         FAX          988     A     
 FAX                ORGEND                                                                 FAX          989     A     
 FAX       +        EQ     NOBINPO           Y                                             FAX          990     A     
 FAX                ORGSTART                                                               FAX          991     A     
 FAX                DUP    25B,1                                                           FAX          992     A     
 FAX       +        EQ     ILL               Z - ,                                         FAX          993     A     
 FAX                ORGEND                                                                 FAX          994     A     
 FAX       +        EQ     PENTR.            .                                             FAX          995     A     
 FAX                TITLE              INITIALIZATION                                      FAX          996     A     
 FAX                SPACE  2                                                               FAX          997     A     
 FAX       FTNXAS   ENTRY. **          ** MAIN ENTRY/EXIT **                               FAX          998     A     
 FAX                                                                                       FAX          999     A     
 FAX      *         INITIALIZE PREFIX (77) TABLE.                                          FAX         1000     A     
 FAX                                                                                       FAX         1001     A     
 FAX                SA1    =XPROGNAM   (X1) = PROGRAM UNIT NAME                            FAX         1002     A     
 FAX                SB1    1                                                               FAX         1003     A     
 FAX                MX0    L.NAME                                                          FAX         1004     A     
 FAX                BX6    X0*X1                                                           FAX         1005     A     
 FAX                CALL   RTB         REMOVE TRAILING BLANKS                              FAX         1006     A     
 FAX                SA6    PREFIX+1                                                        FAX         1007     A     
 FAX                SB2    6                                                               FAX         1008     A     
 FAX                                                                                       FAX         1009     A     
 FAX       #DAL     IFNE   .DAL,0      .NZ. IF LCM DIRECT ACCESS ALLOWED                   FAX         1010     A     
 FAX                SA1    =XLEVEL2    -LEVEL 2 STMT APPEARED- FLAG                        FAX         1011     A     
 FAX                SA2    PREFIX+7B   HARDWARE DEPENDENCIES WORD                          FAX         1012     A     
 FAX                ZR     X1,PRF2     IF NO LEVEL 2 STATEMENTS                            FAX         1013     A     
 FAX                SX6    1RL&1R                                                          FAX         1014     A     
 FAX                LX6    48-6*OBJIMULT/OBJIMULT                                          FAX         1015     A     
 FAX                BX7    X2-X6                                                           FAX         1016     A     
 FAX                NO                                                                     FAX         1017     A     
 FAX                SA7    A2          LCM HARDWARE DEPENDANCY TO PREFIX TABLE             FAX         1018     A     
 FAX       PRF2     BSS    0                                                               FAX         1019     A     
 FAX       #DAL     ENDIF                                                                  FAX         1020     A     
 FAX                                                                                       FAX         1021     A     
 FAX                SA1    =XTL.DATE                                                       FAX         1022     A     
 FAX                SA2    =XTL.TIME                                                       FAX         1023     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2623    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SA3    =XTL.CCOP   CONTROL CARD OPTIONS                                FAX         1024     A     
 FAX                SA4    A3+B1                                                           FAX         1025     A     
 FAX                SA5    A4+B1                                                           FAX         1026     A     
 FAX                LX6    X1,B2                                                           FAX         1027     A     
 FAX                SA6    A6+B1                                                           FAX         1028     A     
 FAX                LX7    X2,B2                                                           FAX         1029     A     
 FAX                SA7    A6+B1                                                           FAX         1030     A     
 FAX                SA1    PROGRAM     DETERMINE PROGRAM UNIT TYPE                         FCC1513X       8     A     
 FAX                UX0    B3,X1                                                           FCC1513X       9     A     
 FAX                NZ     X1,PRF2A    IF NOT BLOCK DATA                                   FCC1513X      10     A     
 FAX                SB3    -B1                                                             FCC1513X      11     A     
 FAX       PRF2A    SB3    B3+B1                                                           FCC1513X      12     A     
 FAX                SA1    PTYPE+B3                                                        FCC1513X      13     A     
 FAX                BX6    X1                                                              FCC1513X      14     A     
 FAX                SA6    PREFIX+10B                                                      FCC1513X      15     A     
 FAX                SA1    =1H                                                             FAX         1031     A     
 FAX                BX6    X3                                                              FAX         1032     A     
 FAX                LX7    X4                                                              FAX         1033     A     
 FAX                IX0    X4-X1                                                           FAX         1034     A     
 FAX                NZ     X0,PRF3     IF OPTION WORD NON-BLANK                            FAX         1035     A     
 FAX                BX7    X7-X7       PREFIX TABLE TERMINATOR                             FAX         1036     A     
 FAX       PRF3     SA6    PREFIX+10B                                                      FAX         1037          I
          -FCC1513X 
 FAX       PRF3     SA6    PREFIX+11B                                                      FCC1513X      16     A     
 FAX                IX0    X5-X1                                                           FAX         1038     A     
 FAX                SA7    A6+B1                                                           FAX         1039     A     
 FAX                BX6    X5                                                              FAX         1040     A     
 FAX                NZ     X0,PRF4     IF OPTION WORD NON-BLANK                            FAX         1041     A     
 FAX                BX6    X6-X6                                                           FAX         1042     A     
 FAX       PRF4     SA6    A7+B1                                                           FAX         1043     A     
 FAX                                                                                       FAX         1044          I
          -F162FTNA 
 FAX      *         SET MISCELLANEOUS CELLS TO 6RM OR 7RM OBJECT TIME VALUES.              FAX         1045          I
          -F162FTNA 
 FAX                                                                                       FAX         1046          I
          -F162FTNA 
 FAX       #RM      IFNE   OT#RM,6                                                         FAX         1047          I
          -F162FTNA 
 FAX                SA4    =XOT.RM                                                         FAX         1048          I
          -F162FTNA 
 FAX                NZ     X4,INITL    IF 7RM MODE VALUES ALREADY SET                      FAX         1049          I
          -F162FTNA 
 FAX                SX6    FILEC6      FWA OF FIT SKELETON                                 FAX         1050          I
          -F162FTNA 
 FAX                SA6    FILEC                                                           FAX         1051          I
          -F162FTNA 
 FAX                SX6    FILER6      ADDRESS RELOC BYTES                                 FAX         1052          I
          -F162FTNA 
 FAX                SA6    FILER                                                           FAX         1053          I
          -F162FTNA 
 FAX                SX6    FILEL6      LENGTH OF FIT SKELETON                              FAX         1054          I
          -F162FTNA 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2624    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SA6    FILEL                                                           FAX         1055          I
          -F162FTNA 
 FAX                SX6    L.FET6      LENGTH OF FET                                       FAX         1056          I
          -F162FTNA 
 FAX                SA6    L.FET                                                           FAX         1057          I
          -F162FTNA 
 FAX                SX6    L.FIT6      LENGTH OF FIT                                       FAX         1058          I
          -F162FTNA 
 FAX                SA6    L.FIT                                                           FAX         1059          I
          -F162FTNA 
 FAX                SX6    FILEREP6    FWA REPL (43) TABLE                                 FAX         1060          I
          -F162FTNA 
 FAX                SA6    FILEREP                                                         FAX         1061          I
          -F162FTNA 
 FAX                SX6    LDUSE6      FWA LDSET (70) TABLE                                FAX         1062          I
          -F162FTNA 
 FAX                SA6    LDUSE                                                           FAX         1063          I
          -F162FTNA 
 FAX                SX6    L.LDST6     LENGTH LDSET TABLE                                  FAX         1064          I
          -F162FTNA 
 FAX                SA6    L.LDSET                                                         FAX         1065          I
          -F162FTNA 
 FAX       #RM      ENDIF                                                                  FAX         1066          I
          -F162FTNA 
 FAX                                                                                       FAX         1067          I
          -F162FTNA 
 FAX                EQ     INITL                                                           FAX         1068     A     
 FAX                                                                                       FCC1513X      17     A     
 FAX                                                                                       FCC1513X      18     A     
 FAX       PTYPE    DATA   9HBLOCKDATA                                                     FCC1513X      19     A     
 FAX                DATA   7HPROGRAM                                                       FCC1513X      20     A     
 FAX                DATA   10HSUBROUTINE                                                   FCC1513X      21     A     
 FAX                DATA   8HFUNCTION                                                      FCC1513X      22     A     
 FAX       PLUGS    SPACE  4,8                                                             FAX         1069     A     
 FAX      ***                                                                              FAX         1070     A     
 FAX      *         PLUGS TO ACTIVATE THE O LISTING                                        FAX         1071     A     
 FAX      *                                                                                FAX         1072     A     
 FAX                MOVSTART  2                                                            FAX         1073     A     
 FAX       RJWRL1   SA6    B7+B2                                                           FAX         1074     A     
 FAX                SA7    A7-B5                                                           FAX         1075     A     
 FAX                RJ     WRLIST                                                          FAX         1076     A     
 FAX       RJWRL2   SB6    B0                                                              FAX         1077     A     
 FAX                SB1    B5                                                              FAX         1078     A     
 FAX                RJ     WRLIST                                                          FAX         1079     A     
 FAX                MOVEND                                                                 FAX         1080     A     
 FAX                EJECT                                                                  FAX         1081     A     
 FAX                SPACE  4                                                               FAX         1082     A     
 FAX      **        PIDENT - PROCESS *IDENT* LINE.                                         FAX         1083     A     
 FAX      *                                                                                FAX         1084     A     
 FAX      *         WHEN AN *IDENT* LINE IS ENCOUNTERED ON -COMPS-, THIS OPEN              FAX         1085     A     
 FAX      *         SUBROUTINE INITIALIZES -FAX- AND DOES THE FOLLOWING MAIN               FAX         1086     A     
 FAX      *         TASKS --                                                               FAX         1087     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2625    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *                                                                      *         FAX         1088     A     
 FAX      *         1. ALLOCATE AN LGO BUFFER AND SETUP THE FET,                 *         FAX         1089     A     
 FAX      *         2. WRITE OUT LCC STATEMENTS ON LGO IF PRESENT,               *         FAX         1090     A     
 FAX      *         3. SET THE SWITCHES AT NOBINPO AND WRTSW IF THE -O- OPTION   *         FAX         1091     A     
 FAX      *            IS ON,                                                    *         FAX         1092     A     
 FAX      *         4. WRITE A PREFIX TABLE ON LGO,                              *         FAX         1093     A     
 FAX      *         5. SETUP CORGTAB AND LORGTAB, WRITE A PIDL ON LGO,           *         FAX         1094     A     
 FAX      *         6. SCAN THE 2 WORD SYMBOL TABLE MAKING AN ENTR TABLE AND A   *         FAX         1095     A     
 FAX      *            LINK FOUNDATION,                                          *         FAX         1096     A     
 FAX      *         7. SCAN THE GL,AP,VD TABLES REFORMATTING THEM.               *         FAX         1097     A     
 FAX      *                                                                      *         FAX         1098     A     
 FAX                SPACE  2                                                               FAX         1099     A     
 FAX       TEMP1    EQU    SCRATCH                                                         FAX         1100     A     
 FAX       TEMP2    EQU    SCRATCH+1                                                       FAX         1101     A     
 FAX       TEMP3    EQU    SCRATCH+2                                                       FAX         1102     A     
 FAX                SPACE  2                                                               FAX         1103     A     
 FAX                MOVSTART  7                                                            FAX         1104     A     
 FAX       LOCNAM   VFD    60/7LSTART.       NAMES OF LOCAL RELOCATION BASES USED          FAX         1105     A     
 FAX                VFD    60/7LVARDIM.      IN LORGTAB CONSTRUCTION                       FAX         1106     A     
 FAX                VFD    60/7LENTRY.                                                     FAX         1107     A     
 FAX                VFD    60/7LCODE.                                                      FAX         1108     A     
 FAX                VFD    60/7LDATA.                                                      FAX         1109     A     
 FAX                VFD    60/7LDATA..                                                     FAX         1110     A     
 FAX                VFD    60/7LHOL.                                                       FAX         1111     A     
 FAX                MOVEND                                                                 FAX         1112     A     
 FAX                SPACE  2                                                               FAX         1113     A     
 FAX       PIDENT   SA2    =XDIRECT                                                        FAX         1114     A     
 FAX                ZR     X2,PID1     IF LCM=D MODE                                       FAX         1115     A     
 FAX                SX6    24                                                              FAX         1116     A     
 FAX                SA6    XFL         XFILL RELOCATION LENGTH = 24                        FAX         1117     A     
 FAX                RJ     ALA         ASSIGN LOCAL ADDRESSES TO POINTERS                  FAX         1118     A     
 FAX       PID1     SA2    =XIOAPLN                                                        FAX         1119     A     
 FAX                SA1    =XLWAWORK                                                       FAX         1120     A     
 FAX                MX7     0                                                              FAX         1121     A     
 FAX                IX6    X1-X2                                                           FAX         1122     A     
 FAX                SA1    =1H                                                             FAX         1123     A     
 FAX                SA7    IOCTR                                                           FAX         1124     A     
 FAX                SA6    =XO.IOT                                                         FAX         1125     A     
 FAX                SA7    BSPFLAG                                                         FAX         1126     A     
 FAX                SX6    X6-1                                                            FAX         1127     A     
 FAX                SA7    AERCNT            ZERO ASSEMBLY ERROR COUNT                     FAX         1128     A     
 FAX                SA6    MEMEND                                                          FAX         1129     A     
 FAX                SA7    STOVSIZE                                                        FAX         1130     A     
 FAX                SA7    ERRLINE+9                                                       FAX         1131     A     
 FAX                BX6    X1                                                              FAX         1132     A     
 FAX                SETCORE   LINE,ISHIFT    BLANKS TO LINE BUFFER COLS 1-50               FAX         1133     A     
 FAX                SETCORE   ERRLINE,9      BLANKS TO ERROR MSG BUFFER                    FAX         1134     A     
 FAX                                                                                       FAX         1135     A     
 FAX      *         SET SWITCHS FOR A LISTING                                              FAX         1136     A     
 FAX                                                                                       FAX         1137     A     
 FAX                SA1    OLIST                                                           FAX         1138     A     
 FAX                SA4    FV.LGO                                                          FAX         1139     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2626    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                BX3    X1+X4                                                           FAX         1140     A     
 FAX                CX3    X3                                                              FAX         1141     A     
 FAX                ZR     X3,EX.999         EXIT IF B = 0 AND O = 0                       FAX         1142     A     
 FAX                ZR     X1,PID1A          JUMP IF O = 0                                 FAX         1143     A     
 FAX                PLUG   AT=WRTSW,FROM=RJWRL1                                            FAX         1144     A     
 FAX                PLUG   AT=NOBINPO,FROM=RJWRL2                                          FAX         1145     A     
 FAX                                                                                       FAX         1146     A     
 FAX      *         STOP ASSEMBLY IF FATAL-TO-EXECUTION ERRORS EXIST.                      FAX         1147     A     
 FAX                                                                                       FAX         1148     A     
 FAX       PID1A    SA1    =XN.FERR                                                        FAX         1149     A     
 FAX                SA2    FV.LGO                                                          FAX         1150     A     
 FAX                ZR     X1,PID1D          IF NO FATAL-TO-EXECUTION ERRORS               FAX         1151     A     
 FAX                ZR     X2,EX.999         IF BINARY OUTPUT OPTION OFF (B=0)             FAX         1152     A     
 FAX                SB6    B0                FLAG FOR NO LIST OF END CARD                  FAX         1153     A     
 FAX                EQ     EX.12             GO WRITE A PREFIX TABLE ON LGO                FAX         1154     A     
 FAX                                                                                       FAX         1155     A     
 FAX      *         PRINT THE IDENT CARD                                                   FAX         1156     A     
 FAX                                                                                       FAX         1157     A     
 FAX       PID1D    SA1    =XOLIST                                                         FAX         1158     A     
 FAX                ZR     X1,PID1E          IF LIST OPTION OFF                            FAX         1159     A     
 FAX                NUPAGE                                                                 FAX         1160     A     
 FAX                LISTL  LINE,8            *IDENT* LINE                                  FAX         1161     A     
 FAX                SB5    B1                                                              FAX         1162     A     
 FAX       PID1E    RJ     IOCARD            INPUT AND LIST *USEBLK* LINE                  FAX         1163     A     
 FAX                                                                                       FAX         1164     A     
 FAX      *         SKIP *LCC* DIRECTIVES.                                                 FAX         1165     A     
 FAX                                                                                       FAX         1166     A     
 FAX       PID2     RJ     IOCARD            INPUT AND LIST CARD                           FAX         1167     A     
 FAX                SA1    ILINE                                                           FAX         1168     A     
 FAX                SA2    =6L  LCC                                                        FAX         1169     A     
 FAX                MX0    36                                                              FAX         1170     A     
 FAX                BX3    X0*X1                                                           FAX         1171     A     
 FAX                IX4    X3-X2                                                           FAX         1172     A     
 FAX                NZ     X4,PID2D          IF NOT AN LCC CARD                            FAX         1173     A     
 FAX                EQ     PID2                                                            FAX         1174     A     
 FAX                                                                                       FAX         1175     A     
 FAX      *         SKIP OVER ANY LDSET DIRECTIVES                                         FAX         1176     A     
 FAX                                                                                       FAX         1177     A     
 FAX                MOVSTART  4                                                            FAX         1178     A     
 FAX       PID2C    RJ     IOCARD                                                          FAX         1179     A     
 FAX                SA1    ILINE                                                           FAX         1180     A     
 FAX                                                                                       FAX         1181     A     
 FAX       PID2D    SA2    =10H  LDSET                                                     FAX         1182     A     
 FAX                IX4    X1-X2                                                           FAX         1183     A     
 FAX                NZ     X4,PID3           IF NOT A LDSET CARD                           FAX         1184     A     
 FAX                EQ     PID2C                                                           FAX         1185     A     
 FAX                MOVEND                                                                 FAX         1186     A     
 FAX                                                                                       FAX         1187     A     
 FAX      *         WRITE PREFIX (77) AND LDSET (70) TABLES TO BINARY OUTPUT FILE.         FAX         1188     A     
 FAX                                                                                       FAX         1189     A     
 FAX       PID3     SA1    FV.LGO                                                          FAX         1190     A     
 FAX                ZR     X1,PID3A          IF BINARY OUTPUT OPTION OFF (B=0)             FAX         1191     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2627    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                WRITEW F.LGO,PREFIX,L.PRFX                                             FAX         1192     A     
 FAX                SA2    PROGRAM                                                         FCC1513X      23     A     
 FAX                ZR     X2,PID3A    IF BLOCK DATA, SKIP LDSET TABLE                     FCC1513X      24     A     
 FAX                SA2    LDUSE                                                           FAX         1193          I
          -F162FTNA 
 FAX                SA3    L.LDSET                                                         FAX         1194          I
          -F162FTNA 
 FAX                WRITEW F.LGO,X2,X3                                                     FAX         1195          I
          -F162FTNA 
 FAX       PID3A    SB5    1                                                               FAX         1196          I
          -F162FTNA 
 FAX                RJ     SKIP2                                                           FAX         1197          I
          -F162FTNA 
 FAX                SA2    MEMSTRT                                                         F162FTNA    1075     A     
 FAX                SA1    LDUSE                                                           F162FTNA    1076     A     
 FAX                SB6    X2          (B6) = FWA 7000 TABLE                               F162FTNA    1077     A     
 FAX                SB2    B6+B1       (B2) = FWA *LIB* SUBTABLE                           F162FTNA    1078     A     
 FAX                SA1    X1                                                              F162FTNA    1079     A     
 FAX                SB3    B0          (B3) = LENGTH SUBTABLE                              F162FTNA    1080     A     
 FAX       PID3.2   BX6    X1                                                              F162FTNA    1081     A     
 FAX                SA1    A1+B1                                                           F162FTNA    1082     A     
 FAX                SB3    B3+B1                                                           F162FTNA    1083     A     
 FAX                SA6    B2+B3                                                           F162FTNA    1084     A     
 FAX                NZ     X1,PID3.2   IF NOT END OF SUBTABLE                              F162FTNA    1085     A     
 FAX                SX7    10BS12+B3   FORM *LIB* SUBTABLE HEADER                          F162FTNA    1086     A     
 FAX                LX7    36                                                              F162FTNA    1087     A     
 FAX                SA7    B2                                                              F162FTNA    1088     A     
 FAX                SA1    =XCO.STA                                                        F162FTNA    1089          I
          -FEAT1070C
 FAX       #RM      IFNE   CP#RM,7                                                         FCCA510       20          I
          -FCCA551
 FAX                SA1    =XPMDFLAG                                                       FEAT1070C    179     A     
 FAX                ZR     X1,PID3.2B  IF PMDMP PRESET NOT REQUIRED                        FEAT1070C    180     A     
 FAX                SA1    PMDUSE-1    FWA-1 OF PMDMP MAP AND PRESET TABLES                FEAT1070C    181     A     
 FAX       PID3.2A  SA1    A1+B1                                                  000370   FEAT1070C    182     A     
 FAX                ZR     X1,PID3.2B   IF END OF TABLES                          000380   FEAT1070C    183     A     
 FAX                BX6    X1                                                     000390   FEAT1070C    184     A     
 FAX                SA6    A6+B1                                                  000400   FEAT1070C    185     A     
 FAX                EQ     PID3.2A                                                000410   FEAT1070C    186     A     
 FAX                                                                              000420   FEAT1070C    187     A     
 FAX       PID3.2B  SA1    =XCO.STA                                               000430   FEAT1070C    188     A     
 FAX       #RM      ENDIF                                                                  FCCA510       21          I
          -FCCA551
 FAX                ZR     X1,PID3.5   IF STATIC LOAD OPTION NOT SELECTED                  F162FTNA    1090     A     
 FAX                SA1    =XSTLTAB-1                                                      F162FTNA    1091     A     
 FAX                SB2    A6+B1       (B2) = FWA *USE* SUBTABLE                           F162FTNA    1092     A     
 FAX                SB3    B0                                                              F162FTNA    1093     A     
 FAX                MX7    -7*6                                                            F162FTNA    1094     A     
 FAX       PID3.3   SA1    A1+B1                                                           F162FTNA    1095     A     
 FAX                BX6    -X7*X1                                                          F162FTNA    1096     A     
 FAX                ZR     X1,PID3.4   IF END OF TABLE                                     F162FTNA    1097     A     
 FAX                PL     X1,PID3.3   IF ENTRY NOT SELECTED                               F162FTNA    1098     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2628    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                LX6    18                                                              F162FTNA    1099     A     
 FAX                SB3    B3+B1                                                           F162FTNA    1100     A     
 FAX                SA6    B2+B3                                                           F162FTNA    1101     A     
 FAX                EQ     PID3.3                                                          F162FTNA    1102     A     
 FAX                                                                                       F162FTNA    1103     A     
 FAX       PID3.4   ZR     B3,PID3.5   IF NO *USE* ENTRIES SELECTED                        F162FTNA    1104     A     
 FAX                SX7    16BS12+B3   FORM *USE* SUBTABLE HEADER                          F162FTNA    1105     A     
 FAX                LX7    36                                                              F162FTNA    1106     A     
 FAX                SA7    B2                                                              F162FTNA    1107     A     
 FAX       PID3.5   SX2    A6-B6       (X2) = NUMBER OF 7000 TABLE ENTRIES                 F162FTNA    1108     A     
 FAX                SB7    X2+B1       (B7) = LENGTH OF 7000 TABLE                         F162FTNA    1109     A     
 FAX                LX2    36                                                              F162FTNA    1110     A     
 FAX                MX7    3           TABLE HEADER = 7000BS48                             F162FTNA    1111     A     
 FAX                BX7    X7+X2                                                           F162FTNA    1112     A     
 FAX                SA7    B6                                                              F162FTNA    1113     A     
 FAX                WRITEW F.LGO,B6,B7 7000 TABLE TO BINARY OUTPUT FILE                    F162FTNA    1114     A     
 FAX       PID3A    RJ     SKIP2                                                           F162FTNA    1115     A     
 FAX                                                                                       FAX         1198     A     
 FAX      *         BEGIN FORMING PIDL (34) TABLE AT TOP OF FREE MEMORY.                   FAX         1199     A     
 FAX                                                                                       FAX         1200     A     
 FAX                SA1    =XN.COM           NUMBER OF COMMON BLOCKS                       FAX         1201     A     
 FAX                SA2    MEMEND                                                          FAX         1202     A     
 FAX                SX0    X1+B1             PIDL LENGTH (NOT INCL HEADER WORD)            FAX         1203          I
          -F162FTNA 
 FAX                SX6    34B               LOADER CODE - PIDL TABLE                      FAX         1204          I
          -F162FTNA 
 FAX                SX7    X0+B1             PIDL TOTAL LENGTH                             FAX         1205          I
          -F162FTNA 
 FAX                LX6    54-36                                                           FAX         1206          I
          -F162FTNA 
 FAX                IX5    X2-X7             (X5) = ADDR OF CURRENT PIDL ENTRY             FAX         1207          I
          -F162FTNA 
 FAX                SA3    PREFIX+1          PROGRAM UNIT NAME                             FAX         1208          I
          -F162FTNA 
 FAX                LX7    18                                                              FAX         1209          I
          -F162FTNA 
 FAX                BX6    X6+X0                                                           FAX         1210          I
          -F162FTNA 
 FAX                SA4    L.PROG            PROGRAM UNIT LENGTH                           FAX         1211          I
          -F162FTNA 
 FAX                BX7    X7+X5                                                           FAX         1212          I
          -F162FTNA 
 FAX                LX6    36                                                              FAX         1213          I
          -F162FTNA 
 FAX                SA7    TEMP1             TEMP SAVE PIDL LENGTH, FWA                    FAX         1214          I
          -F162FTNA 
 FAX                SA6    X5                                                              FAX         1215          I
          -F162FTNA 
 FAX                BX7    X3+X4                                                           FAX         1216          I
          -F162FTNA 
 FAX                NO                                                                     FAX         1217          I
          -F162FTNA 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2629    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SA7    A6+B1                                                           FAX         1218          I
          -F162FTNA 
 FAX                SX3    3400B                                                           F162FTNA    1116     A     
 FAX                SX1    X1+B1       (X1) = PIDL WORD COUNT                              F162FTNA    1117     A     
 FAX                LX3    12-0                                                            F162FTNA    1118     A     
 FAX                IX6    X3+X1                                                           F162FTNA    1119     A     
 FAX                SX1    X1+B1       (X1) = PIDL LENGTH                                  F162FTNA    1120     A     
 FAX                LX6    48-12                                                           F162FTNA    1121     A     
 FAX                IX2    X2-X1                                                           F162FTNA    1122     A     
 FAX                SA6    X2          PIDL HEADER OUT                                     F162FTNA    1123     A     
 FAX                LX1    18                                                              F162FTNA    1124     A     
 FAX                BX7    X1+X2                                                           F162FTNA    1125     A     
 FAX                SA7    TEMP1       TEMP SAVE  24/0,18/PIDL LEN,18/PIDL FWA             F162FTNA    1126     A     
 FAX                SA1    PREFIX+1    (X1) = PROG UNIT NAME                               F162FTNA    1127     A     
 FAX                SA2    L.PROG                                                          F162FTNA    1128     A     
 FAX                BX6    X1+X2                                                           F162FTNA    1129     A     
 FAX                SA6    A6+B1       42/PROG UNIT NAME, 18/PROG LEN                      F162FTNA    1130     A     
 FAX                                                                                       FAX         1219     A     
 FAX      *         SET UP CORGTAB, MOVE BLOCK NAMES AND LENGTHS TO THE PIDL               FAX         1220     A     
 FAX      *         CALL BUILDOT TO MAKE A CORGTAB ENTRY                                   FAX         1221     A     
 FAX                                                                                       FAX         1222     A     
 FAX                SB1    B5+B5             ORGTAB ORDINAL, RB CODE, AND PIDL ORD         FAX         1223     A     
 FAX                SA2    MEMSTRT           FWA CORGTAB                                   FAX         1224     A     
 FAX                SX7    B1                                                              FAX         1225     A     
 FAX                SA1    =6LCOMMON                                                       FAX         1226     A     
 FAX                SA7    SWC               WORD COUNT OF LINE                            FAX         1227     A     
 FAX                BX6    X1                                                              FAX         1228     A     
 FAX                SB6    X2                B6 ALWAYS CONTAINS FWA NEXT 22 WORD E         FAX         1229     A     
 FAX                BX7    X2                                                              FAX         1230     A     
 FAX                SA6    ILINE+1           BLOCK TYPE TO BE PRINTED                      FAX         1231     A     
 FAX                SA7    CORGTAB           SET POINTER TO CORGTAB                        FAX         1232     A     
 FAX       PID.61   SA1    =XORGTAB-2+B1                                                   FAX         1233     A     
 FAX                SA5    TEMP1             PIDL LENGTH AND FWA                           FAX         1234     A     
 FAX                ZR     X1,PID.70         IF ORGTAB ENTRY=0 THEN EXIT                   FAX         1235     A     
 FAX                SA2    =7L                                                             FAX         1236     A     
 FAX                MX0    42                                                              FAX         1237     A     
 FAX                LX6    X1,B0                                                           FAX         1238     A     
 FAX                BX3    X0*X1                                                           FAX         1239     A     
 FAX                IX3    X3-X2                                                           FAX         1240     A     
 FAX                ZR     X3,PID.62         IF BLANK COMMON STORE DIRECTLY INTO T         FAX         1241     A     
 FAX                RJ     RTB                                                             FAX         1242     A     
 FAX       PID.62   SX2    X6                                                              FAX         1243          I
          -FCC1045
 FAX                MX4    -17                                                             FAX         1244          I
          -FCC1045
 FAX                SX5    X5+               (X5) = PIDL FWA                               FAX         1245          I
          -FCC1045
 FAX                                                                                       FCC1045        5     A     
 FAX       PID.62   SX2    X6-0                                                            FCC1045        6     A     
 FAX                MX4    -17                                                             FCC1045        7     A     
 FAX                SX5    X5          (X5) = PIDL FWA                                     FCC1045        8     A     
 FAX                PL     X2,PID.621        IF NOT AN ECS COMMON BLOCK                    FAX         1246     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2630    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                BX2    -X4*X6                                                          FAX         1247     A     
 FAX                MX7    -3          -7                                                  FAX         1248     A     
 FAX                IX2    X2-X7                                                           FAX         1249     A     
 FAX                AX2    3           (LENGTH+7)/8                                        FAX         1250     A     
 FAX                BX7    X4*X6                                                           FAX         1251     A     
 FAX                IX6    X2+X7       ECS BIT, NAME, AND LENGTH IN ECS                    FAX         1252     A     
 FAX       PID.621  BX2    -X4*X1            17-BIT LENGTH FIELD                           FAX         1253     A     
 FAX                SB2    B0                ORGC                                          FAX         1254     A     
 FAX                SA6    X5+B1             BLOCK NAME AND LENGTH TO PIDL                 FAX         1255     A     
 FAX                BX1    X0*X1             BLOCK NAME                                    FAX         1256     A     
 FAX                NZ     X3,PID.63         IF BLANK COMMON SET NAME TO //                FAX         1257     A     
 FAX                SA1    =7L//                                                           FAX         1258     A     
 FAX       PID.63   SB3    B1+B5             RELOCATION BASE CODE                          FAX         1259     A     
 FAX                RJ     BUILDOT           MAKE ORGTAB ENTRY AND PRINT                   FAX         1260     A     
 FAX                EQ     PID.61                                                          FAX         1261     A     
 FAX                                                                                       FAX         1262     A     
 FAX      *         TERMINATE CORGTAB.  WRITE PIDL TO BINARY OUTPUT FILE.                  FAX         1263     A     
 FAX                                                                                       FAX         1264     A     
 FAX       PID.70   SA1    TEMP1                                                           FAX         1265     A     
 FAX                SA2    FV.LGO                                                          FAX         1266     A     
 FAX                SB1    1                                                               FAX         1267     A     
 FAX                BX6    X6-X6                                                           FAX         1268     A     
 FAX                SX7    B6+B1             FWA LOCAL ORGTAB                              FAX         1269     A     
 FAX                SA6    B6                TERMINATING ZERO TO CORGTAB                   FAX         1270     A     
 FAX                SB6    X1                PIDL FWA                                      FAX         1271     A     
 FAX                SA7    LORGTAB                                                         FAX         1272     A     
 FAX                ZR     X2,PID.701        IF BINARY OUTPUT OPTION OFF (B=0)             FAX         1273     A     
 FAX                AX1    18                                                              FAX         1274     A     
 FAX                SB7    X1                PIDL LENGTH                                   FAX         1275     A     
 FAX                WRITEW F.LGO,B6,B7       PIDL (34) TABLE TO LGO FILE                   FAX         1276     A     
 FAX                                                                                       FAX         1277     A     
 FAX      *         INITIALIZE NORMAL RELOCATION BASES IN ORGTAB.                          FAX         1278     A     
 FAX                                                                                       FAX         1279     A     
 FAX       PID.701  SA1    =L*LOCAL*                                                       FAX         1280     A     
 FAX                SA2    LORGTAB                                                         FAX         1281     A     
 FAX                BX6    X1                                                              FAX         1282     A     
 FAX                SB5    B1                (B5) = 1                                      FAX         1283     A     
 FAX                SA6    ILINE+1           *LOCAL* BLOCK TYPE TO LISTING BUFFER          FAX         1284     A     
 FAX                SX7    X2+5                                                            FAX         1285     A     
 FAX                SA7    TEXT.ADD          INITIALIZE TO START.                          FAX         1286     A     
 FAX                SX6    X7+4*22                                                         FAX         1287     A     
 FAX                SA6    DATA.TXT          FWA DATA. TEXT TABLE                          FAX         1288     A     
 FAX                SB1    B0                (B1) = BLOCK COUNTER                          FAX         1289     A     
 FAX                SB2    B0+               (B2) = PROGRAM LENGTH ACCUMULATOR             FAX         1290     A     
 FAX                SB6    X2                (B6) = BLOCK ENTRY POINTER                    FAX         1291     A     
 FAX       PID.71   SA1    LOCNAM+B1         (X1) = BLOCK NAME                             FAX         1292     A     
 FAX                SA2    ORGTAB+M.NCB+1+B1 (X2) = BLOCK LENGTH                           FAX         1293     A     
 FAX                SB3    1                 (B3) = RELOC BASE CODE = *PROGRAM*            FAX         1294     A     
 FAX                CALL   BUILDOT                                                         FAX         1295     A     
 FAX                SB4    N.LRB                                                           FAX         1296     A     
 FAX                LT     B1,B4,PID.71      IF MORE BLOCKS TO INITIALIZE                  FAX         1297     A     
 FAX                                                                                       FAX         1298     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2631    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      * CHECK SYMTAB FOR FORMAL PARAMETERS, IF PRESENT THEN MAKE LORGTAB               FAX         1299     A     
 FAX      * ENTRIES AND CONVERT THE RA FIELD IN THE 2 WORD SYMTAB TO A REL. ADD.           FAX         1300     A     
 FAX                                                                                       FAX         1301     A     
 FAX                SA5    SYM1                                                            FAX         1302     A     
 FAX                SB1    N.LRB             B1 = RB CODE                                  FAX         1303     A     
 FAX                SX5    X5-4                                                            FAX         1304     A     
 FAX                                                                                       FAX         1305     A     
 FAX       PID8     SA4    X5                WORD A                                        FAX         1306     A     
 FAX                SA5    A4-B5             WORD B                                        FAX         1307     A     
 FAX                MX0    L.NAME                                                          FAX         1308     A     
 FAX                BX1    X0*X4             X1 = NAME                                     FAX         1309     A     
 FAX                LX4    59-P.FP                                                         FAX         1310     A     
 FAX                PL     X4,PID9           IF NOT A F.P.                                 FAX         1311     A     
 FAX                                                                                       FAX         1312     A     
 FAX                BX2    X5                                                              FAX         1313     A     
 FAX                AX2    P.RA                                                            FAX         1314     A     
 FAX                MX0    L.RA                                                            FAX         1315     A     
 FAX                SX2    X2                BLOCK LENGTH                                  FAX         1316     A     
 FAX                LX0    L.RA+P.RA                                                       FAX         1317     A     
 FAX                SX3    B2                CURRENT PROG ADDR                             FAX         1318     A     
 FAX                BX5    -X0*X5                                                          FAX         1319     A     
 FAX                LX3    P.RA                                                            FAX         1320     A     
 FAX                BX6    X3+X5             INSTALL PROG RELATIVE ADDR                    FAX         1321     A     
 FAX                SA6    A5                                                              FAX         1322     A     
 FAX                SX7    A5-B5                                                           FAX         1323     A     
 FAX                SB3    B5                RB = 1 ( PROG RELATIVE )                      FAX         1324     A     
 FAX                SA7    TEMP1                                                           FAX         1325     A     
 FAX                RJ     BUILDOT           SET UP ORG TABLE                              FAX         1326     A     
 FAX                SA5    TEMP1                                                           FAX         1327     A     
 FAX                EQ     PID8                                                            FAX         1328     A     
 FAX                                                                                       FAX         1329     A     
 FAX      *         TERMINATE LORGTAB AND UPDATE MEMSTRT                                   FAX         1330     A     
 FAX                                                                                       FAX         1331     A     
 FAX       PID9     MX6    0                                                               FAX         1332     A     
 FAX                SA6    B6                TERMINATE LORGTAB WITH A ZERO WORD            FAX         1333     A     
 FAX                SX7    B6+B5                                                           FAX         1334     A     
 FAX                SA7    MEMSTRT                                                         FAX         1335     A     
 FAX                RJ     SKIP2                                                           FAX         1336     A     
 FAX                                                                                       FAX         1337     A     
 FAX      *         CHANGE ENTRIES IN TSS FROM SYMTAB ADDRESS"S TO THEIR                   FAX         1338     A     
 FAX      *         PROGRAM RELATIVE ADDRESS"S                                             FAX         1339     A     
 FAX                                                                                       FAX         1340     A     
 FAX                SA5    SYM1                                                            FAX         1341     A     
 FAX                MX0    L.NAME                                                          FAX         1342     A     
 FAX                SA0    X5                A0 = SYM1                                     FAX         1343     A     
 FAX                                                                                       FAX         1344     A     
 FAX                SB1    O.TSS                                                           FAX         1345     A     
 FAX                SB2    L.TSS             LWA+1                                         FAX         1346     A     
 FAX       PID9A    SA1    B1                                                              FAX         1347     A     
 FAX                SB1    B1+B5                                                           FAX         1348     A     
 FAX                ZR     X1,PID9B          IF SYMBOL NOT IN SYMTAB                       FAX         1349     A     
 FAX                LX3    B5,X1                                                           FAX         1350     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2632    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SB3    X3+B5             2*ORD+1                                       FAX         1351     A     
 FAX                SA2    A0-B3             WORD B                                        FAX         1352     A     
 FAX                AX2    P.RA                                                            FAX         1353     A     
 FAX                SX6    X2                                                              FAX         1354     A     
 FAX                SA6    A1                                                              FAX         1355     A     
 FAX       PID9B    LT     B1,B2,PID9A                                                     FAX         1356     A     
 FAX                                                                                       FAX         1357     A     
 FAX      *         FORM ENTR (36) TABLE AND WRITE IT TO BINARY OUTPUT FILE.               FAX         1358     A     
 FAX                                                                                       FAX         1359     A     
 FAX                SA2    L.ENTR                                                          FAX         1360     A     
 FAX                SA1    O.ENTR                                                          FAX         1361     A     
 FAX                ZR     X2,PID11          IF NO ENTRY POINTS                            FAX         1362     A     
 FAX                SA4    MEMSTRT                                                         FAX         1363     A     
 FAX                SA3    MEMEND                                                          FAX         1364     A     
 FAX                LX5    X2,B5             ENTR TABLE LENGTH (NOT INCL HEADER)           FAX         1365     A     
 FAX                SB1    X1                                                              FAX         1366     A     
 FAX                SB2    B1+X2             LWA+1 OF ENTR TABLE IN HIGH CORE              FAX         1367     A     
 FAX                IX2    X3-X4             WORKING STORAGE LENGTH                        FAX         1368     A     
 FAX                SX7    36B               LOADER CODE - ENTR TABLE                      FAX         1369     A     
 FAX                IX6    X5-X2                                                           FAX         1370     A     
 FAX                MX3    -L.RL-L.RA                                                      FAX         1371     A     
 FAX                PL     X6,STOVER         IF NOT ENOUGH WORKING STORAGE                 FAX         1372     A     
 FAX                LX7    54-36                                                           FAX         1373     A     
 FAX                BX6    X7+X5                                                           FAX         1374     A     
 FAX                LX6    36                                                              FAX         1375     A     
 FAX                SB6    X4+               (B6) = TABLE FWA                              FAX         1376     A     
 FAX                SA6    X4                TABLE HEADER TO WSA                           FAX         1377     A     
 FAX       PID10    SA1    B1                ENTRY POINT ORD                               FAX         1378     A     
 FAX                LX4    B5,X1                                                           FAX         1379     A     
 FAX                SB4    X4                                                              FAX         1380     A     
 FAX                SA1    A0-B4             WORD A                                        FAX         1381     A     
 FAX                SA2    A1-B5             WORD B                                        FAX         1382     A     
 FAX                BX6    X0*X1             NAME                                          FAX         1383     A     
 FAX                RJ     RTB                                                             FAX         1384     A     
 FAX                AX2    P.RA                                                            FAX         1385     A     
 FAX                SA6    A6+B5                                                           FAX         1386     A     
 FAX                SB1    B1+B5                                                           FAX         1387     A     
 FAX                BX6    -X3*X2            RL AND RA                                     FAX         1388     A     
 FAX                SA6    A6+B5                                                           FAX         1389     A     
 FAX                LT     B1,B2,PID10                                                     FAX         1390     A     
 FAX                SB7    A6-B6                                                           FAX         1391     A     
 FAX                SA1    FV.LGO                                                          FAX         1392     A     
 FAX                SB1    1                                                               FAX         1393     A     
 FAX                ZR     X1,PID10A         IF BINARY OUTPUT OPTION OFF (B=0)             FAX         1394     A     
 FAX                SB7    B7+B1             (B7) = TABLE LENGTH                           FAX         1395     A     
 FAX                WRITEW F.LGO,B6,B7       ENTR (36) TABLE TO BINARY OUTPUT FILE         FAX         1396     A     
 FAX       PID10A   SA1    SYM1                                                            FAX         1397     A     
 FAX                SB5    B1                                                              FAX         1398     A     
 FAX                SA0    X1                (A0) = INVERTED FWA SYMBOL TABLE              FAX         1399     A     
 FAX                                                                                       FAX         1400     A     
 FAX      *         BUILD LINK AND EXTERNAL NAME TABLES FROM EXT TABLE                     FAX         1401     A     
 FAX                                                                                       FAX         1402     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2633    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       PID11    SA1    O.EXT                                                           FAX         1403     A     
 FAX                SA2    L.EXT                                                           FAX         1404     A     
 FAX                SB1    X1                                                              FAX         1405     A     
 FAX                SB2    B1+X2                                                           FAX         1406     A     
 FAX                SA3    MEMSTRT                                                         FAX         1407     A     
 FAX                SA4    MEMEND                                                          FAX         1408     A     
 FAX                BX6    X3                                                              FAX         1409     A     
 FAX                SB6    X3                                                              FAX         1410     A     
 FAX                SA6    LINKTAB                                                         FAX         1411     A     
 FAX                                                                                       FAX         1412     A     
 FAX                IX3    X2+X3                                                           FAX         1413     A     
 FAX                IX5    X3-X4             F - L                                         FAX         1414     A     
 FAX                PL     X5,STOVER         IF NOT ENOUGH ROOM                            FAX         1415     A     
 FAX                                                                                       FAX         1416     A     
 FAX                MX7    0                                                               FAX         1417     A     
 FAX                SA7    X3                CLEAR LWA+1 OF LINKTAB                        FAX         1418     A     
 FAX                SA7    RBTEMP                                                          FAX         1419     A     
 FAX                SX6    X3+B5                                                           FAX         1420     A     
 FAX                MX0    L.NAME                                                          FAX         1421     A     
 FAX                SA6    FREEMEM           SET FWA FOR CHAIN ACCUMULATION                FAX         1422     A     
 FAX                ZR     X2,PID20          IF NO EXTERNALS                               FAX         1423     A     
 FAX                                                                                       FAX         1424     A     
 FAX       PID12    SA4    B1                2*SYMORD                                      FAX         1425     A     
 FAX                SB4    X4                                                              FAX         1426     A     
 FAX                SA1    A0-B4             WORD A                                        FAX         1427     A     
 FAX                SA2    A1-B5             WORD B                                        FAX         1428     A     
 FAX                BX6    X0*X1             NAME                                          FAX         1429     A     
 FAX                SX5    A2                                                              FAX         1430     A     
 FAX                IX7    X6+X5             42/7LNAME,18/LOCF(WORD B)                     FAX         1431     A     
 FAX                SA7    B1                EXT TAB ENTRY                                 FAX         1432     A     
 FAX                SB1    B1+B5                                                           FAX         1433     A     
 FAX                RJ     RTB                                                             FAX         1434     A     
 FAX                SA6    B6                STORE IN LINK TAB                             FAX         1435     A     
 FAX                SX5    B6                                                              FAX         1436     A     
 FAX                LX2    -P.RA                                                           FAX         1437     A     
 FAX                BX2    X0*X2                                                           FAX         1438     A     
 FAX                BX7    X2+X5       STORE LINKTAB ADDRESS IN WORDB                      FAX         1439     A     
 FAX                LX7    P.RA                                                            FAX         1440     A     
 FAX                SA7    A2                                                              FAX         1441     A     
 FAX                SB6    B6+B5                                                           FAX         1442     A     
 FAX                LT     B1,B2,PID12                                                     FAX         1443     A     
 FAX                MX6    0                                                               FAX         1444     A     
 FAX                SA6    B6                ZERO WORD TO TERMINATE LINKTAB                FAX         1445     A     
 FAX                                                                                       FAX         1446     A     
 FAX      *         PRINT NAMES OF EXTERNALS                                               FAX         1447     A     
 FAX                                                                                       FAX         1448     A     
 FAX                SA3    OLIST                                                           FAX         1449     A     
 FAX                ZR     X3,PID20          IF O = 0                                      FAX         1450     A     
 FAX                SA1    =18L   EXTERNALS                                                FAX         1451     A     
 FAX                SB1    1                                                               FAX         1452     A     
 FAX                SA2    A1+B5                                                           FAX         1453     A     
 FAX                BX6    X1                                                              FAX         1454     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2634    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                LX7    X2                                                              FAX         1455     A     
 FAX                SA6    ILINE-2                                                         FAX         1456     A     
 FAX                SA7    A6+B5                                                           FAX         1457     A     
 FAX                LISTL  LINE,ISHIFT                                                     FAX         1458     A     
 FAX                SA1    O.EXT                                                           FAX         1459     A     
 FAX                SA2    L.EXT                                                           FAX         1460     A     
 FAX       PID14    SB2    X1                                                              FAX         1461     A     
 FAX                SB3    B2+X2             LWA+1                                         FAX         1462     A     
 FAX                SB7    ISHIFT-2          (B7) = LINE LENGTH                            FAX         1463     A     
 FAX                SA3    SPACES+3          3R                                            FAX         1464     A     
 FAX                SB4    10                WORD LIMIT                                    FAX         1465     A     
 FAX       PID15    SA1    B2                                                              FAX         1466     A     
 FAX                MX0    L.NAME                                                          FAX         1467     A     
 FAX                SB2    B2+B1                                                           FAX         1468     A     
 FAX                BX2    X0*X1             NAME                                          FAX         1469     A     
 FAX                IX6    X2+X3                                                           FAX         1470     A     
 FAX                SB7    B7+B1             LENGTH + 1                                    FAX         1471     A     
 FAX                SA6    LINE-1+B7                                                       FAX         1472     A     
 FAX                GE     B7,B4,PID16       IF LINE FULL                                  FAX         1473     A     
 FAX                LT     B2,B3,PID15       IF MORE NAMES TO GO                           FAX         1474     A     
 FAX       PID16    MX5    60-12                                                           FAX         1475     A     
 FAX                BX6    X5*X6                                                           FAX         1476     A     
 FAX                SA6    A6                                                              FAX         1477     A     
 FAX                SX6    B2                                                              FAX         1478     A     
 FAX                SX7    B3-B2                                                           FAX         1479     A     
 FAX                SA6    TEMP1                                                           FAX         1480     A     
 FAX                SA7    A6+B1                                                           FAX         1481     A     
 FAX                LISTL  LINE,B7                                                         FAX         1482     A     
 FAX                SA2    TEMP1+1                                                         FAX         1483     A     
 FAX                SB5    B1                                                              FAX         1484     A     
 FAX                SA1    A2-B1                                                           FAX         1485     A     
 FAX                NZ     X2,PID14          IF MORE TO GO                                 FAX         1486     A     
 FAX                RJ     SKIP2                                                           FAX         1487     A     
 FAX                SA1    =10H                                                            FAX         1488     A     
 FAX                BX6    X1                                                              FAX         1489     A     
 FAX                SA6    ILINE-2                                                         FAX         1490     A     
 FAX                SA6    A6+B1                                                           FAX         1491     A     
 FAX                                                                                       FAX         1492     A     
 FAX      *         REFORMAT PSEUDO SYMBOL TABLES ( VD , AP , GL ) TO                      FAX         1493          I
          -FCC0506
 FAX      *         LOOK LIKE WORD B OF SYMTAB AND ADD BASE ADDRESS OF CODE. TO EA         FAX         1494          I
          -FCC0506
 FAX      *         SET UP GL/AP RELOCATION SKELETON.                                      FCC0506        8     A     
 FAX                                                                                       FAX         1495     A     
 FAX       PID20    SA1    PROGRAM                                                         FAX         1496     A     
 FAX                SB5    1                                                               FAX         1497     A     
 FAX                ZR     X1,INITL        IF A BLOCK DATA PROGRAM                         FAX         1498     A     
 FAX                SA5    WB.LAB                                                          FAX         1499     A     
 FAX                SA4    O.LRB+3           FWA OF CODE.                                  FAX         1500     A     
 FAX                SB1    P.RA                                                            FAX         1501          I
          -FCC0506
 FAX                LX4    B1,X4                                                           FAX         1502          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2635    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          -FCC0506
 FAX                IX5    X4+X5                                                           FAX         1503          I
          -FCC0506
 FAX                SA1    =XO.GLT                                                         FAX         1504          I
          -FCC0506
 FAX                ZR     X1,PID21A                                                       FAX         1505          I
          -FCC0506
 FAX                SA2    X1-1                                                            FAX         1506          I
          -FCC0506
 FAX                                                                                       FAX         1507          I
          -FCC0506
 FAX       PID21    SA2    A2+B5                                                           FAX         1508          I
          -FCC0506
 FAX                LX3    B1,X2                                                           FAX         1509          I
          -FCC0506
 FAX                IX6    X5+X3                                                           FAX         1510          I
          -FCC0506
 FAX                SA6    A2                                                              FAX         1511          I
          -FCC0506
 FAX                NZ     X2,PID21          IF MORE TO GO                                 FAX         1512          I
          -FCC0506
 FAX                LX4    P.RA                                                            FCC0506        9     A     
 FAX                BX6    X4+X5                                                           FCC0506       10     A     
 FAX                SA6    GLAPR                                                           FCC0506       11     A     
 FAX                                                                                       FAX         1513     A     
 FAX                SA1    =10H                                                            FAX         1514     A     
 FAX                BX6    X1                                                              FAX         1515     A     
 FAX                SETCORE LINE,ISHIFT                                                    FAX         1516     A     
 FAX                                                                                       FAX         1517     A     
 FAX       PID21A   SA1    PROGRAM                                                         FAX         1518          I
          -FCC0506
 FAX                ZR     X1,INITL          IF A BLOCK DATA PROGRAM                       FAX         1519          I
          -FCC0506
 FAX                SA1    PROGRAM                                                         FCC0506       12     A     
 FAX                UX0    B1,X1                                                           FAX         1520     A     
 FAX                NZ     B1,INITL          IF A SUBPROGRAM                               FAX         1521     A     
 FAX                                                                                       FAX         1522     A     
 FAX      *         PROCESS PROGRAM                                                        FAX         1523     A     
 FAX                                                                                       FAX         1524     A     
 FAX                SA1    N.FILES                                                         FAX         1525     A     
 FAX                ZR     X1,PID25          IF NO FILES                                   FAX         1526     A     
 FAX                BX6    -X1                                                             FAX         1527     A     
 FAX                SA6    TEMP1             TEMP1 = -N.FILES                              FAX         1528     A     
 FAX                SA6    A6+B5                                                           FAX         1529     A     
 FAX                                                                                       FAX         1530     A     
 FAX       PID22    RJ     RCARD             INPUT A CARD                                  FAX         1531     A     
 FAX                SA2    =10H  FILEF                                                     FAX         1532          I
          -F162FTNA 
 FAX                SA3    ILINE                                                           FAX         1533          I
          -F162FTNA 
 FAX                BX4    X2-X3                                                           FAX         1534          I
          -F162FTNA 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2636    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                ZR     X4,PID23          IF A FILE MACRO                               FAX         1535          I
          -F162FTNA 
 FAX                SA1    SWC                                                             FAX         1536          I
          -F162FTNA 
 FAX                SA2    ILINE                                                           F162FTNA    1131     A     
 FAX                SA3    =10H  FIL-RM                                                    F162FTNA    1132     A     
 FAX                BX6    X2-X3                                                           F162FTNA    1133     A     
 FAX                LX6    -4*6                                                            F162FTNA    1134     A     
 FAX                AX6    1*6         IGNORE *C* OR *7* IN COLUMN 6                       F162FTNA    1135     A     
 FAX                ZR     X6,PID23    IF *FIL-RM* MACRO                                   F162FTNA    1136     A     
 FAX                SA1    SWC         ASSUME *FEQU* MACRO - LIST AND SKIP IT              F162FTNA    1137     A     
 FAX                LISTER  LINE,ISHIFT+X1                                                 FAX         1537     A     
 FAX                EQ     PID24                                                           FAX         1538     A     
 FAX       PID23    RJ     PFILE                                                           FAX         1539     A     
 FAX                                                                                       FAX         1540     A     
 FAX       PID24    SA1    TEMP1                                                           FAX         1541     A     
 FAX                SX6    X1+B5                                                           FAX         1542     A     
 FAX                SA6    A1                                                              FAX         1543     A     
 FAX                NZ     X6,PID22                                                        FAX         1544     A     
 FAX                                                                                       FAX         1545     A     
 FAX       PID25    RJ     IOCARD            INPUT AND LIST *FILES. BSS 0 * CARD           FAX         1546          I
          -F162FTNA 
 FAX                                                                                       F162FTNA    1138     A     
 FAX       PID25    SA1    =XOT.RM                                                         F162FTNA    1139     A     
 FAX                NZ     X1,PID25.4  IF 7RM OBJECT MODE                                  F162FTNA    1140     A     
 FAX                                                                                       F162FTNA    1141     A     
 FAX      *         PROCESS *LIBLNK* MACROS.                                               F162FTNA    1142     A     
 FAX                                                                                       F162FTNA    1143     A     
 FAX                RJ     IOCARD      READ AND LIST *LIBLNK. BSS 0B*                      F162FTNA    1144     A     
 FAX                RJ     RCARD       READ *  LIBLNK P1,..* MACRO                         F162FTNA    1145     A     
 FAX                SA1    =8RFILES.   FORM  12/2000B+NR FILES, 48/*FILES.* ADDR           F162FTNA    1146     A     
 FAX                SB7    PID25.2     (B7) = *SYMBOL* RETURN ADDR                         F162FTNA    1147     A     
 FAX                EQ     SYMBOL                                                          F162FTNA    1148     A     
 FAX                                                                                       F162FTNA    1149     A     
 FAX       PID25.2  EQ     *+4S15      COMPILER ERROR IF *LIBLNK.* NOT FOUND               F162FTNA    1150     A     
 FAX                                                                                       F162FTNA    1151     A     
 FAX                SA1    =XN.FILES                                                       F162FTNA    1152     A     
 FAX                AX2    P.RA                                                            F162FTNA    1153     A     
 FAX                SB2    X1                                                              F162FTNA    1154     A     
 FAX                MX0    -L.RA                                                           F162FTNA    1155     A     
 FAX                BX2    -X0*X2                                                          F162FTNA    1156     A     
 FAX                PX4    X2,B2                                                           F162FTNA    1157     A     
 FAX                SA1    =XPMDFLAG   SET PMDMP FLAG                                      FEAT1070C    189          I
          -FCCA531
 FAX                LX1    1+47        MOVE FLAG FROM BIT 59 TO BIT 47                     FEAT1070C    190          I
          -FCCA531
 FAX                BX4    X4+X1                                                           FEAT1070C    191          I
          -FCCA531
 FAX                WR1WD                                                                  F162FTNA    1158     A     
 FAX                RL=    L                                                               F162FTNA    1159     A     
 FAX                                                                                       F162FTNA    1160     A     
 FAX                SA1    =XCO.STA    FORM  1/STATIC BIT, 59/PRINT LIMIT                  F162FTNA    1161     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2637    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SA2    =XPLIMIT                                                        F162FTNA    1162     A     
 FAX                BX4    X1+X2                                                           F162FTNA    1163     A     
 FAX                WR1WD                                                                  F162FTNA    1164     A     
 FAX                                                                                       F162FTNA    1165     A     
 FAX                MX4    0           APLIST TERMINATOR                                   F162FTNA    1166          I
          -FCCA408
 FAX      *            OUTPUT A POINTER TO, AND, OUR WEAK EXTERNAL TABLE, IF               FCCA408      266     A     
 FAX      *         WE HAVE HERE A MAIN PROGRAM WITHOUT FILES AND STATIC                   FCCA408      267     A     
 FAX      *         MODE IS SELECTED.                                                      FCCA408      268     A     
 FAX                                                                                       FCCA408      269     A     
 FAX                SA1    CO.STA                                                          FCCA408      270     A     
 FAX                ZR     X1,PID25.3  IF STATIC MODE IS NOT SELECTED                      FCCA408      271     A     
 FAX                SA1    N.FILES                                                         FCCA408      272     A     
 FAX                NZ     X1,PID25.3  IF MAIN PROGRAM WITH FILES                          FCCA408      273     A     
 FAX                SYMBOL =8RWXTTAB.                                                      FCCA408      274     A     
 FAX       +        EQ     *+1S17      COMPILER ERROR IF NOT FOUND                         FCCA408      275     A     
 FAX                AX2    P.RA                                                            FCCA408      276     A     
 FAX                MX0    -L.RA                                                           FCCA408      277     A     
 FAX                BX4    -X0*X2      ISOLATE ADDRESS                                     FCCA408      278     A     
 FAX                BX6    X4                                                              FCCA408      279     A     
 FAX                PX4    B5,X4                                                           FCCA408      280     A     
 FAX                SA6    TEMP3                                                           FCCA408      281     A     
 FAX                WR1WD              POINTER TO WEAK EXTERNAL TABLE                      FCCA408      282     A     
 FAX                RL=    L           LOWER RELOCATION                                    FCCA408      283     A     
 FAX                                                                                       FCCA408      284     A     
 FAX                MX4    0                                                               FCCA408      285     A     
 FAX                WR1WD              APLIST TERMINATOR                                   FCCA408      286     A     
 FAX                                                                                       FCCA408      287     A     
 FAX      *         NOW OUTPUT THE WEAK EXTERNAL AND XLINK TABLES.                         FCCA408      288     A     
 FAX                                                                                       FCCA408      289     A     
 FAX                SX6    L.STL       NUMBER OF WORDS IN W.EXT. TABLE                     FCCA408      290     A     
 FAX                                                                                       FCCA408      291     A     
 FAX       PID25.33 SA6    TEMP1       LOOP FOR W.EXT. TABLE                               FCCA408      292     A     
 FAX                MX4    0                                                               FCCA408      293     A     
 FAX                WR1WD                                                                  FCCA408      294     A     
 FAX                SA1    TEMP1                                                           FCCA408      295     A     
 FAX                SX6    X1-1                                                            FCCA408      296     A     
 FAX                NZ     X6,PID25.33 IF MORE TO GO                                       FCCA408      297     A     
 FAX                                                                                       FCCA408      298     A     
 FAX      *         FILL IN *XLINK* CORE ADDRESSES.                                        FCCA408      299     A     
 FAX                                                                                       FCCA408      300     A     
 FAX                SA1    TEMP3       GET CORE ADDRESS OF *XLINK* TABLE                   FCCA408      301     A     
 FAX                SA2    S.WEXT-1    FIRST WORD OF *XLINK* TO STUFF                      FCCA408      302     A     
 FAX                SB3    N.STL       NUMBER OF ENTRIES TO STUFF                          FCCA408      303     A     
 FAX                SX1    X1-1                                                            FCCA408      304     A     
 FAX                SB4    3           INCREMENT BETWEEN ENTRIES                           FCCA408      305     A     
 FAX                MX3    1           FLIP FLOP                                           FCCA408      306     A     
 FAX                SX4    B5                                                              FCCA408      307     A     
 FAX                LX1    30          POSITION ADDRESS                                    FCCA408      308     A     
 FAX                LX4    30          ADDRESS INCREMENT                                   FCCA408      309     A     
 FAX                                                                                       FCCA408      310     A     
 FAX       PID25.36 SA2    A2+B4       NEXT ENTRY TO STUFF                                 FCCA408      311     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2638    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                LX3    30          FLIP THE FLOP                                       FCCA408      312     A     
 FAX                MI     X3,PID25.38 IF WE DO NOT INCREMENT ADDRESS THIS TIME            FCCA408      313     A     
 FAX                IX1    X1+X4       INCREMENT ADDRESS                                   FCCA408      314     A     
 FAX                                                                                       FCCA408      315     A     
 FAX       PID25.38 BX6    X1+X2                                                           FCCA408      316     A     
 FAX                SA6    A2          STUFF                                               FCCA408      317     A     
 FAX                SB3    B3-B5                                                           FCCA408      318     A     
 FAX                NZ     B3,PID25.36 IF MORE TO STUFF                                    FCCA408      319     A     
 FAX                                                                                       FCCA408      320     A     
 FAX                WRITEW F.LGO,S.WEXT,L.WEXT                                             FCCA408      321     A     
 FAX                EQ     PID25.4                                                         FCCA408      322     A     
 FAX                                                                                       FCCA408      323     A     
 FAX       PID25.3  MX4    0           APLIST TERMINATOR                                   FCCA408      324     A     
 FAX                WR1WD                                                                  F162FTNA    1167     A     
 FAX                                                                                       F162FTNA    1168     A     
 FAX       PID25.4  RJ     IOCARD      READ AND LIST *FILES. BSS 0B*                       F162FTNA    1169     A     
 FAX                SA1    N.FILES                                                         FAX         1547     A     
 FAX                ZR     X1,PID30          IF NO FILES                                   FAX         1548     A     
 FAX                                                                                       FAX         1549     A     
 FAX      *         INPUT AND PROCESS FLINK MACRO CALLS                                    FAX         1550     A     
 FAX                                                                                       FAX         1551     A     
 FAX       PID26    RJ     RCARD             INPUT CARD                                    FAX         1552     A     
 FAX                BX1    X5                                                              FAX         1553     A     
 FAX                AX1    12                                                              FAX         1554     A     
 FAX                SB7    PID26A                                                          FAX         1555     A     
 FAX                EQ     SYMBOL                                                          FAX         1556     A     
 FAX                                                                                       FAX         1557     A     
 FAX       PID26A   EQ     *+1S17            COMPILER ERROR IF SYMBOL NOT FOUND            FAX         1558     A     
 FAX       PID27    MX0    60-L.RA                                                         FAX         1559          I
          -F162FTNA 
 FAX                                                                                       F162FTNA    1170     A     
 FAX                MX0    -L.RA                                                           F162FTNA    1171     A     
 FAX                AX2    P.RA                                                            FAX         1560     A     
 FAX                BX3    -X0*X2            RA                                            FAX         1561     A     
 FAX                SX2    1R"C"                                                           FAX         1562     A     
 FAX                RJ     RSC               REMOVE #                                      FAX         1563     A     
 FAX                AX6    B7,X6                                                           FAX         1564     A     
 FAX                LX5    B7,X6             REMOVE BLANK FILL                             FAX         1565     A     
 FAX                BX4    X5+X3             42/0L_NAME,18/LOCF(FET)                       FAX         1566     A     
 FAX                WR1WD                    TO THE LGO FILE                               FAX         1567     A     
 FAX                RL=    L                 ADJUST RELOCATION WORD                        FAX         1568     A     
 FAX                                                                                       FAX         1569     A     
 FAX                SA1    TEMP1+1                                                         FAX         1570     A     
 FAX                SX6    X1+B5                                                           FAX         1571     A     
 FAX                SA6    A1                                                              FAX         1572     A     
 FAX                NZ     X6,PID26                                                        FAX         1573     A     
 FAX                                                                                       FAX         1574     A     
 FAX       PID30    RJ     RCARD             INPUT  * DATA -PL *  CARD                     FAX         1575          I
          -F162FTNA 
 FAX                SA4    =XPLIMIT          PRINT LIMIT VALUE                             FAX         1576          I
          -F162FTNA 
 FAX                BX4    -X4                                                             FAX         1577          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2639    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          -F162FTNA 
 FAX                WR1WD                    0 WORD TO LGO FILE                            FAX         1578          I
          -F162FTNA 
 FAX       PID30    RJ     RCARD       READ 0 APL TERMIN (CRM) OR DATA -PL (7RM)           F162FTNA    1172     A     
 FAX                SA1    =XOT.RM                                                         F162FTNA    1173     A     
 FAX                SA2    =XPLIMIT                                                        F162FTNA    1174     A     
 FAX                MX4    0           PRESET 0 APL TERMINATOR                             F162FTNA    1175     A     
 FAX                ZR     X1,PID30.2  IF CRM OBJECT MODE                                  F162FTNA    1176     A     
 FAX                BX4    -X2         SET -(PRINT LIMIT)                                  F162FTNA    1177     A     
 FAX                WR1WD                                                                  FEAT1070C    192          I
          -FCCA510
 FAX                SA1    =XPMDFLAG   PUT PMDMP FLAG AFTER FILE LIST                      FEAT1070C    193          I
          -FCCA510
 FAX                BX4    X1                                                              FEAT1070C    194          I
          -FCCA510
 FAX                SA1    =XPMDFLAG    BIT 59 = 1 MEANS PMD WANTED                        FCCA510       22          I
          -FCCA531
 FAX                LX1    -1                                                              FCCA510       23          I
          -FCCA531
 FAX                BX1    -X1                                                             FCCA510       24          I
          -FCCA531
 FAX                BX4    X4*X1       BIT 58 = 0 MEANS PMD WANTED                         FCCA510       25          I
          -FCCA531
 FAX       PID30.2  WR1WD                                                                  F162FTNA    1178     A     
 FAX                EQ     INITL                                                           FAX         1579     A     
 FAX       ALA      SPACE  3,24                                                            FAX         1580     A     
 FAX      **        ALA - ASSIGN LOCAL ADDRESSES TO LCM POINTER WORDS.                     FAX         1581     A     
 FAX      *         IN INDIRECT (LCM=I) MODE, LCM SYMBOLS REPRESENT SCM POINTER            FAX         1582     A     
 FAX      *         CELLS IN GENERATED CODE.  FOR FAX, THE RL, RB, AND RA OF EACH          FAX         1583     A     
 FAX      *         LCM SYMBOL MUST NOW BE CHANGED TO REFLECT THAT.  PRIOR TO THIS         FAX         1584     A     
 FAX      *         THIS INFORMATION REFLECTED THE SYMBOL/S USER-DEFINED LCM               FAX         1585     A     
 FAX      *         RESIDENCY.   THIS TRANSFORMATION MUST BE DEFERED UNTIL FAX             FAX         1586     A     
 FAX      *         SO THAT THE REFERENCE MAP WILL CONTAIN MEANINGFUL (LCM)                FAX         1587     A     
 FAX      *         ADDRESSES.                                                             FAX         1588     A     
 FAX                                                                                       FAX         1589     A     
 FAX       ALA      ROUTINE                                                                FAX         1590     A     
 FAX                SA2    =XSDATA.                                                        FAX         1591     A     
 FAX                ZR     X2,ALA            IF NO LCM POINTER VECTOR                      FAX         1592          I
          -FCC0451
 FAX                MI     X2,ALA      IF NO LCM POINTER VECTOR                            FCC0451        8     A     
 FAX                SB1    1                                                               FAX         1593     A     
 FAX                SA5    =XST.             ORDINAL OF ST.                                FAX         1594     A     
 FAX                SA4    =XSYMORD          N.SYMBOLS + 1                                 FAX         1595     A     
 FAX                SA3    SYM1                                                            FAX         1596     A     
 FAX                LX5    1                 2*ORDINAL OF ST.                              FAX         1597     A     
 FAX                IX4    X4+X4             2*(N.SYMBOLS + 1)                             FAX         1598     A     
 FAX                SB6    X5                                                              FAX         1599     A     
 FAX                SA0    X3-1                                                            FAX         1600     A     
 FAX                SB7    X4                                                              FAX         1601     A     
 FAX                SA2    SDATA.            SAVED DATA. VALUE                             FAX         1602     A     
 FAX                SA4    O.LRB+4           FWA OF DATA. BLOCK                            FAX         1603     A     
 FAX                IX2    X2+X4                                                           FAX         1604     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2640    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                LX2    P.RA                                                            FAX         1605     A     
 FAX                SA1    WBDATA.           WORD B FOR DATA. BLOCK                        FAX         1606     A     
 FAX                BX1    X1+X2                                                           FAX         1607     A     
 FAX                MX7    60-L.ADF          MASK FOR ADDRESS DEFINITION FIELD             FAX         1608     A     
 FAX                LX7    P.ADF                                                           FAX         1609     A     
 FAX                SX2    B1                                                              FAX         1610     A     
 FAX                LX2    P.RA                                                            FAX         1611     A     
 FAX                                                                                       FAX         1612     A     
 FAX      *         SEARCH THE SYMBOL TABLE FOR LEVEL 2 OR 2 AND 3 VARIABLES               FAX         1613     A     
 FAX                                                                                       FAX         1614     A     
 FAX       ALA1     SA5    A0-B6             WORD B                                        FAX         1615     A     
 FAX                GE     B6,B7,ALA         IF END OF TABLE                               FAX         1616     A     
 FAX                BX6    X5                                                              FAX         1617     A     
 FAX                LX5    59-P.LCM                                                        FAX         1618     A     
 FAX                SB6    B6+2              ADVANCE TO NEXT SYMBOL                        FAX         1619     A     
 FAX                PL     X5,ALA1     IF SYMBOL NOT LCM                                   FAX         1620     A     
 FAX                SX0    10B-T.LAB                                                       FAX         1621     A     
 FAX                ERRMI  10B-T.LAB   TEST RELIES ON OVERFLOW                             FAX         1622     A     
 FAX                LX5    1+P.LCM                                                         FAX         1623     A     
 FAX                LX0    P.TYP                                                           FAX         1624     A     
 FAX                IX3    X0+X5                                                           FAX         1625     A     
 FAX                MI     X3,ALA1     IF TYPE[WORDB] .GE. T.LAB                           FAX         1626     A     
 FAX                BX3    X7*X6             CLEAR ADDRESS FIELD                           FAX         1627     A     
 FAX                IX6    X3+X1             INSERT DATA. FIELD                            FAX         1628     A     
 FAX                SA6    A5                                                              FAX         1629     A     
 FAX                IX1    X1+X2             DATA. = DATA. + 1                             FAX         1630     A     
 FAX                EQ     ALA1                                                            FAX         1631     A     
 FAX                EJECT                                                                  FAX         1632     A     
 FAX      ***                                                                              FAX         1633     A     
 FAX      *         IOCARD - INPUT AND LIST CARD                                           FAX         1634     A     
 FAX      *                                                                                FAX         1635     A     
 FAX       IOCARD   ENTRY. *           ** ENTRY/EXIT **                                    FAX         1636     A     
 FAX                RJ     RCARD                                                           FAX         1637     A     
 FAX                SA1    SWC                                                             FAX         1638     A     
 FAX                LISTER  LINE,ISHIFT+X1                                                 FAX         1639     A     
 FAX                SA1    ILINE+1                                                         FAX         1640     A     
 FAX                EQ     IOCARD                                                          FAX         1641     A     
 FAX                SPACE  3                                                               FAX         1642     A     
 FAX      ***                                                                              FAX         1643     A     
 FAX      *         RSC - REMOVE SPECIAL CHARACTER FROM NAME                               FAX         1644     A     
 FAX      *                                                                                FAX         1645     A     
 FAX      *         ON ENTRY:                                                              FAX         1646     A     
 FAX      *                X1 = 7L_NAME                                                    FAX         1647     A     
 FAX      *                X2 = SPECIAL CHARACTER TO BE REMOVED ( $ OR # )                 FAX         1648     A     
 FAX      *                                                                                FAX         1649     A     
 FAX      *         ON EXIT:                                                               FAX         1650     A     
 FAX      *                X6 = NAME WITH SPECIAL CHAR REMOVED                             FAX         1651     A     
 FAX      *                B7 = 60-BIT COUNT FOR LENGTH OF NAME                            FAX         1652     A     
 FAX      *                                                                                FAX         1653     A     
 FAX                MOVSTART  7                                                            FAX         1654     A     
 FAX       RSC                                                                             FAX         1655     A     
 FAX                SB7    12                                                              FAX         1656     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2641    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                MX0    60-6                                                            FAX         1657     A     
 FAX       RSC2     SB7    B7+6                                                            FAX         1658     A     
 FAX                AX6    B7,X1                                                           FAX         1659     A     
 FAX                BX7    -X0*X6                                                          FAX         1660     A     
 FAX                SX4    X7-1R                                                           FAX         1661     A     
 FAX                ZR     X4,RSC2     IF A BLANK, LOOP                                    FAX         1662     A     
 FAX                IX7    X7-X2                                                           FAX         1663     A     
 FAX                BX6    X1                                                              FAX         1664     A     
 FAX                NZ     X7,RSC            IF NOT SPECIAL                                FAX         1665     A     
 FAX                SX2    X2-1R                                                           FAX         1666     A     
 FAX                LX2    B7,X2                                                           FAX         1667     A     
 FAX                IX6    X6-X2             CHANGE LAST CHAR TO BLANK                     FAX         1668     A     
 FAX                SB7    B7+6                                                            FAX         1669     A     
 FAX                EQ     RSC                                                             FAX         1670     A     
 FAX                MOVEND                                                                 FAX         1671     A     
 FAX                EJECT                                                                  FAX         1672     A     
 FAX      ***                                                                              FAX         1673     A     
 FAX      *         PTRACE - PROCESS "TRACE" MACRO CALL                                    FAX         1674     A     
 FAX      *                                                                                FAX         1675     A     
 FAX                MOVSTART  12B                                                          FAX         1676     A     
 FAX       PTRACE   BSS    0                                                               FAX         1677     A     
 FAX                SA1    =XPROGNAM         (X1) = PROGRAM UNIT NAME, 7H FORMAT           FAX         1678     A     
 FAX                SX2    1R$                                                             FAX         1679     A     
 FAX                RJ     RSC               REMOVE ANY SPECIAL CHAR                       FAX         1680     A     
 FAX                SA3    SYM1                                                            FAX         1681     A     
 FAX                SA1    X3-3              WORD B OF ORDINAL 1                           FAX         1682     A     
 FAX                AX1    P.RA                                                            FAX         1683     A     
 FAX                SX3    X1                RELOCATION ADDRESS                            FAX         1684     A     
 FAX       PTRACE1  BX4    X6+X3             42/7L_NAME,18/LOCF(ENTRY.) OR 0               FAX         1685     A     
 FAX                WR1WD                    WRITE WORD TO LGO FILE                        FAX         1686     A     
 FAX                RL=    L                 ADD RELOCATION BYTE                           FAX         1687     A     
 FAX                SA1    =XTEMPA0.                                                       FAX         1688     A     
 FAX                ZR     X1,INITL          IF NO FPS OR RETURNS                          FAX         1689     A     
 FAX                                                                                       FAX         1690     A     
 FAX                MX4    0                 A ZERO WORD FOR TEMPA0.                       FAX         1691     A     
 FAX                WR1WD  ,INITL            TO THE LGO FILE                               FAX         1692     A     
 FAX                MOVEND                                                                 FAX         1693     A     
 FAX       PPENTRY  SPACE  4,8                                                             FAX         1694     A     
 FAX      **        PPENTRY - PROCESS *PENTRY* MACRO.                                      FAX         1695     A     
 FAX      *                                                                                FAX         1696     A     
 FAX                                                                                       FAX         1697     A     
 FAX       PPENTRY  SA2    PROGRAM                                                         FAX         1698     A     
 FAX                SA1    =XFUNTYPE                                                       FAX         1699     A     
 FAX                UX0    B1,X2                                                           FAX         1700     A     
 FAX                ZR     B1,PPE4           IF MAIN PROGRAM                               FAX         1701     A     
 FAX                ZR     X1,PPE2           IF NOT A FUNCTION                             FAX         1702     A     
 FAX                AX1    1                                                               FAX         1703     A     
 FAX                ZR     X1,PPE1           IF SINGLE PRECISION                           FAX         1704     A     
 FAX                SA5    =XVALUE.                                                        FAX         1705     A     
 FAX                SA4    VAL2                                                            FAX         1706     A     
 FAX                LX5    30                                                              FAX         1707     A     
 FAX                IX4    X5+X4                                                           FAX         1708     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2642    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                WR1WD                                                                  FAX         1709     A     
 FAX                RL=    U                                                               FAX         1710     A     
 FAX       PPE1     SA4    VAL1                                                            FAX         1711     A     
 FAX                SA5    VALUE.                                                          FAX         1712     A     
 FAX                LX5    30                                                              FAX         1713     A     
 FAX                IX4    X5+X4                                                           FAX         1714     A     
 FAX                WR1WD                                                                  FAX         1715     A     
 FAX                RL=    U                                                               FAX         1716     A     
 FAX                                                                                       FAX         1717     A     
 FAX       PPE2     SA1    =XTEMPA0.                                                       FAX         1718     A     
 FAX                ZR     X1,PPE3           IF NO FPS OR RETURNS, THEN NO NEED TO         FAX         1719     A     
 FAX      *                                    RESTORE *TEMPA0.*                           FAX         1720     A     
 FAX                SA5    RSTRA0                                                          FAX         1721     A     
 FAX                LX1    30                                                              FAX         1722     A     
 FAX                IX4    X1+X5                                                           FAX         1723     A     
 FAX                WR1WD                                                                  FAX         1724     A     
 FAX                RL=    U                                                               FAX         1725     A     
 FAX                                                                                       FAX         1726     A     
 FAX       PPE3     SA1    ENTRY.                                                          FAX         1727          I
          -FEAT155A 
 FAX       PPE3     SA1    =XCO.ER                                                         FEAT155A      49     A     
 FAX                ZR     X1,PPE3A    IF ER = 0                                           FEAT155A      50     A     
 FAX                CALL   OTR                                                             FEAT155A      51     A     
 FAX       PPE3A    SA1    ENTRY.                                                          FEAT155A      52     A     
 FAX                SA4    PENTRY            ENTRY POINT CODE                              FAX         1728     A     
 FAX                LX1    30                                                              FAX         1729     A     
 FAX                BX4    X1+X4                                                           FAX         1730     A     
 FAX                WR1WD                    WRITE WORD TO LGO FILE                        FAX         1731     A     
 FAX                RL=    U                 ADJUST RELOCATION                             FAX         1732     A     
 FAX                                                                                       FAX         1733     A     
 FAX                SA1    =XTEMPA0.                                                       FAX         1734     A     
 FAX                ZR     X1,INITL          IF NO FPS OR RETURNS, THEN NO NEED TO         FAX         1735     A     
 FAX      *                                    RESTORE *TEMPA0.*                           FAX         1736     A     
 FAX                                                                                       FAX         1737     A     
 FAX                WR1WD  SAVA0             SAVE A0 CODE TO LGO FILE                      FAX         1738     A     
 FAX                RL=    L                 ADJUST RELOCATION BYTE                        FAX         1739     A     
 FAX                EQ     INITL                                                           FAX         1740     A     
 FAX                                                                                       FAX         1741     A     
 FAX       PPE4     SA1    SWC                                                             FAX         1742          I
          -FEAT155A 
 FAX       PPE4     SA1    =XCO.ER                                                         FEAT155A      53     A     
 FAX                ZR     X1,PPE4A    IF ER = 0                                           FEAT155A      54     A     
 FAX                SA1    =XN.FILES                                                       FEAT155A      55     A     
 FAX                SA2    L.PROGP                                                         FEAT155A      56     A     
 FAX                SX3    1                                                               FEAT155A      57     A     
 FAX                IX4    X1+X3                                                           FEAT155A      58     A     
 FAX                IX6    X2-X4                                                           FEAT155A      59     A     
 FAX                SA6    A2                                                              FEAT155A      60     A     
 FAX                CALL   OTR                                                             FEAT155A      61     A     
 FAX                EQ     INITL                                                           FEAT155A      62     A     
 FAX                                                                                       FEAT155A      63     A     
 FAX       PPE4A    SA1    SWC                                                             FEAT155A      64     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2643    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                LISTER LINE,ISHIFT+X1                                                  FAX         1743     A     
 FAX                EQ     INITL                                                           FAX         1744     A     
 FAX                                                                                       FAX         1745     A     
 FAX                                                                                       FAX         1746     A     
 FAX                                                                                       FAX         1747     A     
 FAX      *         CODE SKELETONS FOR ENTRY/EXIT LINE.                                    FAX         1748     A     
 FAX                                                                                       FAX         1749     A     
 FAX       VAL2     SA5    1                 VALUE.+1                                      FAX         1750     A     
 FAX                BX7    X5                                                              FAX         1751     A     
 FAX       VAL1     SA4    0                 VALUE.                                        FAX         1752     A     
 FAX                BX6    X4                                                              FAX         1753     A     
 FAX       RSTRA0   SA3    0                 TEMPA0.                                       FAX         1754     A     
 FAX                SA0    X3+0                                                            FAX         1755     A     
 FAX                                                                                       FAX         1756     A     
 FAX       PENTRY   EQ     4S15                                                            FAX         1757     A     
 FAX       SAVA0    SX6    A0                                                              FAX         1758     A     
 FAX                SA0    A1                                                              FAX         1759     A     
 FAX                SA6    1                 TEMPA0.                                       FAX         1760     A     
 FAX       OTR      ENTRY. **                                                              FEAT155A      65          I
          -FEAT155AB
 FAX       OTR      JP     *+1S17                                                          FEAT155AB      1     A     
 FAX                SA1    TRACE.                                                          FEAT155A      66     A     
 FAX                SA4    FTNRPV                                                          FEAT155A      67     A     
 FAX                SA2    L.PROGP                                                         FEAT155A      68     A     
 FAX                MX0    -18                                                             FEAT155A      69     A     
 FAX                BX3    -X2                                                             FEAT155A      70     A     
 FAX                BX5    -X0*X3                                                          FEAT155A      71     A     
 FAX                BX4    X1+X4                                                           FEAT155A      72     A     
 FAX                LX5    30                                                              FEAT155A      73     A     
 FAX                BX4    X4+X5                                                           FEAT155A      74     A     
 FAX                WR1WD              WRITE ONE WORD TO LGO                               FEAT155A      75     A     
 FAX                RL=    L           ADJUST RELOCATION                                   FEAT155A      76     A     
 FAX                EQ     OTR                                                             FEAT155A      77     A     
 FAX                                                                                       FEAT155A      78     A     
 FAX       FTNRPV   SB0    B2+0        (LEN.)                                              FEAT155A      79     A     
 FAX                SB0    B2+0        (TRACE.)                                            FEAT155A      80     A     
 FAX                TITLE     INITIALIZATION SUBROUTINES                                   FAX         1761     A     
 FAX                EJECT                                                                  FAX         1762     A     
 FAX      ***                                                                              FAX         1763     A     
 FAX      *                                                                      *         FAX         1764     A     
 FAX      * BUILDOT-SUBROUTINE TO BUILD A 22 WORD CORGTAB OR LORGTAB ENTRY AND   *         FAX         1765     A     
 FAX      *         PRINT THE BLOCK NAME, BASE ADDRESS AND LENGTH.               *         FAX         1766     A     
 FAX      *                                                                      *         FAX         1767     A     
 FAX      *         THE 22 WORD ORGTAB IS USED TO KEEP NAME, NFLAG(FORCE UPPER ON*         FAX         1768     A     
 FAX      *         THE NEXT WORD IF GTR 0), ORG COUNTER, RELOCATION BASE CODE,  *         FAX         1769     A     
 FAX      *         POSITION COUNTER, AND PARTIALLY FILLED TEXT TABLES FOR EACH  *         FAX         1770     A     
 FAX      *         RELOCATION BASE.                                             *         FAX         1771     A     
 FAX      *                                                                      *         FAX         1772     A     
 FAX      *         CALLING SEQUENCE-                                            *         FAX         1773     A     
 FAX      *                   B2.= ORGC                                          *         FAX         1774     A     
 FAX      *                   B3.= RELOCATION BASE CODE                          *         FAX         1775     A     
 FAX      *                   B6.= FWA OF NEXT 22 WORD ENTRY                     *         FAX         1776     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2644    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *                   X1.= BLOCK NAME                                    *         FAX         1777     A     
 FAX      *                   X2.= BLOCK LENGTH                                  *         FAX         1778     A     
 FAX      *                                                                      *         FAX         1779     A     
 FAX      *         ON EXIT-                                                     *         FAX         1780     A     
 FAX      *                   IN THE 22 WORD ENTRY,                              *         FAX         1781     A     
 FAX      *                   WORD 1    BITS 18-59/NAME (LEFT ADJ., BLANK FILL)  *         FAX         1782     A     
 FAX      *                             BITS 0 -17/ZERO                          *         FAX         1783     A     
 FAX      *                   WORD 2    NFLAG - ZERO                             *         FAX         1784     A     
 FAX      *                   WORD 3    BITS 24-59/UNUSED                        *         FAX         1785     A     
 FAX      *                             BITS 18-23/RB CODE                       *         FAX         1786     A     
 FAX      *                             BITS 0 -17/ORGC                          *         FAX         1787     A     
 FAX      *                   WORD 4    BITS 18-59/UNUSED                        *         FAX         1788     A     
 FAX      *                             BITS 0 -17/POSC                          *         FAX         1789     A     
 FAX      *                   WORD 5    BITS 18-59/UNUSED                        *         FAX         1790     A     
 FAX      *                             BITS 0 -17/TEXT TABLE ORDINAL (2)        *         FAX         1791     A     
 FAX      *                   WORD 6    TEXT ID WORD                             *         FAX         1792     A     
 FAX      *                             BITS 54-59/40B                           *         FAX         1793     A     
 FAX      *                             BITS 24-53/ZERO                          *         FAX         1794     A     
 FAX      *                             BITS 18-23/RB CODE                       *         FAX         1795     A     
 FAX      *                             BITS 0 -17/ORGC                          *         FAX         1796     A     
 FAX      *                   WORD 7    RELOCATION BYTE WORD - ZERO              *         FAX         1797     A     
 FAX      *                   WORD 8    FIRST TEXT WORD - ZERO                   *         FAX         1798     A     
 FAX      *                   WORDS 9                                            *         FAX         1799     A     
 FAX      *                      TO 22  REMAINDER OF TEXT TABLE - UNINITIALIZED  *         FAX         1800     A     
 FAX      *                                                                      *         FAX         1801     A     
 FAX      *         ALSO-                                                        *         FAX         1802     A     
 FAX      *                   B1.= B1+1                                          *         FAX         1803     A     
 FAX      *                   B2.= B2+BLOCK LENGTH(X2)                           *         FAX         1804     A     
 FAX      *                   B6.= B6+22                                         *         FAX         1805     A     
 FAX      *                                                                      *         FAX         1806     A     
 FAX                SPACE  2                                                               FAX         1807     A     
 FAX       B1TEMP   EQU    SCRATCH+3                                                       FAX         1808     A     
 FAX                SPACE  2                                                               FAX         1809     A     
 FAX       BUILDOT  BSS    1                                                               FAX         1810     A     
 FAX                SX3    B2                                                              FAX         1811     A     
 FAX                LX6    X1,B0                                                           FAX         1812     A     
 FAX                SA4    =3R                                                             FAX         1813     A     
 FAX                BX7    X7-X7                                                           FAX         1814     A     
 FAX                SX5    B3                                                              FAX         1815     A     
 FAX                SA7    B6+B5             ZERO TO OT2                                   FAX         1816     A     
 FAX                LX5    18                                                              FAX         1817     A     
 FAX                SA6    B6                BLOCK NAME TO OT1                             FAX         1818     A     
 FAX                BX7    X3+X5                                                           FAX         1819     A     
 FAX                IX6    X1+X4                                                           FAX         1820     A     
 FAX                SA7    A7+B5             RB+BA TO OT3                                  FAX         1821     A     
 FAX                MX0    1                                                               FAX         1822     A     
 FAX                SA6    ILINE             BLOCK NAME TO PRINT BUFFER                    FAX         1823     A     
 FAX                BX7    X0+X7                                                           FAX         1824     A     
 FAX                SX6    B5+B5                                                           FAX         1825     A     
 FAX                MX0    57                                                              FAX         1826     A     
 FAX                SA6    A7+2              TABC.=2 IN OT5                                FAX         1827     A     
 FAX                SA7    A6+B5             TEXT ID WORD IN OT6                           FAX         1828     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2645    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SB4    18                                                              FAX         1829     A     
 FAX                BX7    X7-X7                                                           FAX         1830     A     
 FAX                SB7    X6+B5                                                           FAX         1831     A     
 FAX                LX0    15                                                              FAX         1832     A     
 FAX                SX6    60                                                              FAX         1833     A     
 FAX                SA7    A7+B5             RB WORD.= 0 IN OT7                            FAX         1834     A     
 FAX                SA6    A6-B5             POSC.= 60 IN OT4                              FAX         1835     A     
 FAX                SA7    A7+B5             1ST TEXT WORD.=0 IN OT8                       FAX         1836     A     
 FAX                BX6    X6-X6                                                           FAX         1837     A     
 FAX       BOT.1    BX1    -X0*X2            CONVERT BASE ADDRESS AND LENGTH TO DI         FAX         1838     A     
 FAX                SB4    B4-B7             AND STORE THEM IN LINE BUFFER.                FAX         1839     A     
 FAX                LX1    X1,B4                                                           FAX         1840     A     
 FAX                BX4    -X0*X3                                                          FAX         1841     A     
 FAX                IX6    X1+X6                                                           FAX         1842     A     
 FAX                LX4    X4,B4                                                           FAX         1843     A     
 FAX                BX7    X4+X7                                                           FAX         1844     A     
 FAX                AX0    3                                                               FAX         1845     A     
 FAX                NZ     B4,BOT.1                                                        FAX         1846     A     
 FAX                SA5       =10H    000000                                               FAX         1847     A     
 FAX                IX7    X5+X7                                                           FAX         1848     A     
 FAX                IX6    X5+X6                                                           FAX         1849     A     
 FAX                NO                                                                     FAX         1850     A     
 FAX                LX6    12                                                              FAX         1851     A     
 FAX                SA7    ILINE-2                                                         FAX         1852     A     
 FAX                SA6    A7+B5                                                           FAX         1853     A     
 FAX                SX6    B1                                                              FAX         1854     A     
 FAX                SX7    B2+X2                                                           FAX         1855     A     
 FAX                SA6    B1TEMP            SAVE B1,B2,B6                                 FAX         1856     A     
 FAX                SA7    A6+B5                                                           FAX         1857     A     
 FAX                SX6    B6+22                                                           FAX         1858     A     
 FAX                SA6    A7+B5                                                           FAX         1859     A     
 FAX                LISTER  LINE,ISHIFT+2    PRINT OUT THE BLOCK NAME                      FAX         1860     A     
 FAX                SA1    B1TEMP            RESTORE B1,B2,B6                              FAX         1861     A     
 FAX                SA2    A1+B5                                                           FAX         1862     A     
 FAX                SB1    X1+B5                                                           FAX         1863     A     
 FAX                SA3    A2+B5                                                           FAX         1864     A     
 FAX                SB2    X2                                                              FAX         1865     A     
 FAX                SB6    X3                                                              FAX         1866     A     
 FAX                EQ     BUILDOT                                                         FAX         1867     A     
 FAX                TITLE              SCANNER                                             FAX         1868     A     
 FAX       PCOMM    BX6    X4                                                              FAX         1869     A     
 FAX                SA6    NFLAG             RESET NFLAG TO RESET FFLAG IN INITL           FAX         1870     A     
 FAX       NOBINPO  NO                       CHANGED TO RJ  WRLIST IF                      FAX         1871     A     
 FAX                NO                       O OPTION IS SELECTED                          FAX         1872     A     
 FAX                SPACE  3                                                               FAX         1873     A     
 FAX       INITL    SB1    1                                                               FAX         1874     A     
 FAX                READC  F.CMPS,ILINE,LINESIZE-ISHIFT                                    FAX         1875     A     
 FAX                NZ     X1,NOEND    IF -COMPS- PREMATURELY EMPTY, ERROR                 FAX         1876     A     
 FAX                SA5    ILINE       (X5) = FIRST WORD OF INPUT LINE                     FAX         1877     A     
 FAX                SA4    NFLAG                                                           FAX         1878     A     
 FAX                MX0    -6          (X0) = 1-CHAR MASK                                  FAX         1879     A     
 FAX                SB5    B1          (B5) = 1                                            FAX         1880     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2646    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SX7    B6-ILINE    (X7) = LINE LENGTH (WORDS)                          FAX         1881     A     
 FAX                SB4    54                                                              FAX         1882     A     
 FAX                SB6    6                                                               FAX         1883     A     
 FAX                BX6    X6-X6                                                           FAX         1884     A     
 FAX                SB7    B4                                                              FAX         1885     A     
 FAX                GCH    X1                                                              FAX         1886     A     
 FAX                SB1    1R                                                              FAX         1887     A     
 FAX                SA6    A4          (NFLAG) = 0                                         FAX         1888     A     
 FAX                SB2    X1                                                              FAX         1889     A     
 FAX                SA7    SWC                                                             FAX         1890     A     
 FAX                JP     COL1VEC+B2  TO OPCODE VECTOR TABLE                              FAX         1891     A     
 FAX                SPACE  2                                                               FAX         1892     A     
 FAX       BLANK    BX6    X4                FFLAG.=NFLAG                                  FAX         1893     A     
 FAX                SB4    B4-B6                                                           FAX         1894     A     
 FAX                SA6    FFLAG                                                           FAX         1895     A     
 FAX      *                                                                                FAX         1896     A     
 FAX      *         SCAN TO OPCODE                                                         FAX         1897     A     
 FAX      *                                                                                FAX         1898     A     
 FAX       OCSCAN   GCH    X2                PUT NEXT CHARACTER INTO B2                    FAX         1899     A     
 FAX                SB2    X2                                                              FAX         1900     A     
 FAX                CWD                                                                    FAX         1901     A     
 FAX                NE     B2,B1,OCSCAN2     IF NOT BLANK                                  FAX         1902     A     
 FAX                GCH    X2                PUT NEXT CHARACTER INTO B2                    FAX         1903     A     
 FAX                SB2    X2                                                              FAX         1904     A     
 FAX                CWD                                                                    FAX         1905     A     
 FAX                EQ     B2,B1,OCSCAN      GO LOOK AT NEXT CHARACTER                     FAX         1906     A     
 FAX       OCSCAN2  GCH    X2                PUT NEXT CHARACTER INTO B3                    FAX         1907     A     
 FAX                SB3    X2                                                              FAX         1908     A     
 FAX                CWD                                                                    FAX         1909     A     
 FAX                JP     FLVEC-1+B2        TO OPCODE VECTOR TABLE                        FAX         1910     A     
 FAX      *                                                                                FAX         1911     A     
 FAX      *         PROCESS FORCING CHARACTER                                              FAX         1912     A     
 FAX      *                                                                                FAX         1913     A     
 FAX                MOVSTART  4B                                                           FAX         1914     A     
 FAX       PFC      SA6    FFLAG                                                           FAX         1915     A     
 FAX                SB4    B4-B6                                                           FAX         1916     A     
 FAX                GCH    X3                PUT FIRST CHARACTER OF OPCODE INTO B2         FAX         1917     A     
 FAX                SB2    X3                                                              FAX         1918     A     
 FAX                GCH    X3                PUT SECOND CHARACTER OF OPCODE INTO B         FAX         1919     A     
 FAX                SB3    X3                                                              FAX         1920     A     
 FAX                JP     FLVEC-1+B2        JUMP INTO NEST OF VECTORS                     FAX         1921     A     
 FAX                MOVEND                                                                 FAX         1922     A     
 FAX      *                                                                                FAX         1923     A     
 FAX      *         PROCESS LABEL                                                          FAX         1924     A     
 FAX      *                                                                                FAX         1925     A     
 FAX                MOVSTART  13B                                                          FAX         1926     A     
 FAX       PLABEL   SX7    B5                FORCE UPPER                                   FAX         1927     A     
 FAX                SA7    FFLAG                                                           FAX         1928     A     
 FAX                SB2    B6                                                              FAX         1929     A     
 FAX                RJ     PACKID            GO STRIP OFF LABEL                            FAX         1930     A     
 FAX                BX6    X1                                                              FAX         1931     A     
 FAX                SA6    ALABEL                                                          FAX         1932     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2647    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                AX1    42                                                              FAX         1933     A     
 FAX                SX2    X1-1R]                                                          FAX         1934     A     
 FAX                NZ     X2,OCSCAN   IF NOT AN ]IO LABEL                                 FAX         1935     A     
 FAX                SA3    IOCTR                                                           FAX         1936     A     
 FAX                SX6    X3+B5             BUMP IO APLIST COUNTER                        FAX         1937     A     
 FAX                 SA6   A3                                                              FAX         1938     A     
 FAX                SA2    =XWB.FMT          RL = 1, RB = DATA.                            FAX         1939     A     
 FAX       .DATA.   EQU    4*22+2            ORGC WORD FOR DATA.                           FAX         1940     A     
 FAX                SA1    LORGTAB                                                         FAX         1941     A     
 FAX                SA4    X1+.DATA.                                                       FAX         1942     A     
 FAX                SA1    A4+B5             POSC                                          FAX         1943     A     
 FAX                NZ     X1,PLAB.1         IF A PART WORD LEFT TO GO                     FAX         1944     A     
 FAX                SX4    X4+B5             ADVANCE TO NEXT WORD                          FAX         1945     A     
 FAX       PLAB.1   SX6    X4                                                              FAX         1946     A     
 FAX                LX6    19                                                              FAX         1947          I
          -FCC0506
 FAX                LX6    P.RA                                                            FCC0506       13     A     
 FAX                BX6    X2+X6             COMBINE RL, RA, AND RB FIELDS                 FAX         1948     A     
 FAX                SA1    O.IOT                                                           FAX         1949     A     
 FAX                IX2    X1+X3                                                           FAX         1950     A     
 FAX                SA6    X2                                                              FAX         1951     A     
 FAX                EQ     OCSCAN                                                          FAX         1952     A     
 FAX                MOVEND                                                                 FAX         1953     A     
 FAX      *                                                                                FAX         1954     A     
 FAX      *         PROCESS THIRD, FOURTH, AND FIFTH LETTERS                               FAX         1955     A     
 FAX      *                                                                                FAX         1956     A     
 FAX                MOVSTART  3                                                            FAX         1957     A     
 FAX       PNL      GCH    X2                GET THE NEXT CHAR, ADD IT TO B2 AND           FAX         1958     A     
 FAX                SB2    B2+X2             JUMP TO B2                                    FAX         1959     A     
 FAX                CWD                                                                    FAX         1960     A     
 FAX                JP     B2                                                              FAX         1961     A     
 FAX                MOVEND                                                                 FAX         1962     A     
 FAX                TITLE              EXECUTABLE CODE PROCESSORS                          FAX         1963     A     
 FAX      ************************************************************************         FAX         1964     A     
 FAX      *                                                                      *         FAX         1965     A     
 FAX      *         THE FOLLOWING ROUTINES WHOSE LABELS ARE PREFACED BY L3 PRO-  *         FAX         1966     A     
 FAX      *         CESS THE ADDRESS FIELDS OF THE EXECUTABLE INSTRUCTIONS. THEY *         FAX         1967     A     
 FAX      *         ARE REQUIRED TO SET THE I,J AND K FIELDS IN ALL CASES AND IN *         FAX         1968     A     
 FAX      *         SOME CASES THEY MUST ALSO DETERMINE THE G AND H FIELDS  OF   *         FAX         1969     A     
 FAX      *         THE OPCODE. ON ENTRY X4 CONTAINS AN INSTRUCTION PROTOTYPE(IP)*         FAX         1970     A     
 FAX      *         THAT WAS SET AT THE END OF OPCODE FIELD PROCESSING. ON EXIT  *         FAX         1971     A     
 FAX      *         X4 WILL CONTAIN A COMPLETE 15 OR 30 BIT INSTRUCTION AND X1   *         FAX         1972     A     
 FAX      *         WILL CONTAIN A RELOCATION BASE CODE IF NECESSARY.            *         FAX         1973     A     
 FAX      *                                                                      *         FAX         1974     A     
 FAX      *         THE SUBROUTINE -REF- IS CALLED IF A SYMBOL IS ENCOUNTERED.   *         FAX         1975     A     
 FAX      *                                                                      *         FAX         1976     A     
 FAX      *        IN ADDITION, REGISTERS X0,X5,B4,B5,B6,B7, AND A5 ARE RESERVED *         FAX         1977     A     
 FAX      *         FOR USE IN CHARACTER PICK UP AND MUST BE RESTORED IF THEY    *         FAX         1978     A     
 FAX      *         ARE USED OTHERWISE.                                          *         FAX         1979     A     
 FAX      *                                                                      *         FAX         1980     A     
 FAX      *         FOR THE EXECUTABLE INSTRUCTIONS THE OPCODE FIELD ALWAYS BE-  *         FAX         1981     A     
 FAX      *         GINS IN COLUMN 3 AND THERE IS ONLY ONE SPACE BETWEEN OPCODE  *         FAX         1982     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2648    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *         AND ADDRESS.                                                 *         FAX         1983     A     
 FAX      *                                                                      *         FAX         1984     A     
 FAX      ************************************************************************         FAX         1985     A     
 FAX                SPACE  4                                                               FAX         1986     A     
 FAX      ************************************************************************         FAX         1987     A     
 FAX      *                                                                      *         FAX         1988     A     
 FAX      *     RJ LABEL -- X4=0100B                                             *         FAX         1989     A     
 FAX      *                                                                      *         FAX         1990     A     
 FAX      ************************************************************************         FAX         1991     A     
 FAX                SPACE  2                                                               FAX         1992     A     
 FAX                MOVSTART  7                                                            FAX         1993     A     
 FAX       L3.RJ    GCH    X1                GET NEXT CHARACTER                            FAX         1994     A     
 FAX                SX1    X1-1RT                                                          FAX         1995     A     
 FAX                ZR     X1,L3.RJT         IF RJT INSTRUCTION                            FAX         1996     A     
 FAX                                                                                       FAX         1997     A     
 FAX                GCH    X1                GET 1ST CHARACTER OF SYMBOLIC NAME            FAX         1998     A     
 FAX                SPACE  2                                                               FAX         1999     A     
 FAX       L3.UCJP  SB2    B6                BIT COUNT OF CHARACTERS IN X1=6               FAX         2000     A     
 FAX                SB3    X1                FIRST CHARACTER TO B3                         FAX         2001     A     
 FAX                RJ     REF                                                             FAX         2002     A     
 FAX                LX4    18                ADJUST THE PROTOTYPE TO A 30 BIT IN-          FAX         2003     A     
 FAX                SX7    B5                STRUCTION.                                    FAX         2004     A     
 FAX                SB6    L4.CKRB                                                         FAX         2005     A     
 FAX                SB1    30                                                              FAX         2006     A     
 FAX                SA7    NFLAG             TURN NFLAG ON                                 FAX         2007     A     
 FAX                BX4    X3+X4             SET THE ADDRESS AND OUTPUT THE INSTRU         FAX         2008     A     
 FAX                EQ     WRTEXT                                                          FAX         2009     A     
 FAX                MOVEND                                                                 FAX         2010     A     
 FAX       RJT      SPACE  3,14                                                            FAX         2011     A     
 FAX      ************************************************************************         FAX         2012     A     
 FAX      *                                                                      *         FAX         2013     A     
 FAX      *     RJT LABEL,LINENR   OR   RJT LABEL,LINENR,FP                      *         FAX         2014     A     
 FAX      *                                                                      *         FAX         2015     A     
 FAX      ************************************************************************         FAX         2016     A     
 FAX                                                                                       FAX         2017     A     
 FAX                                                                                       FAX         2018     A     
 FAX       LINLIM   =      4096-1                                                          FAX         2019     A     
 FAX       RJTFLAG  BSSZ   1           CALLED FROM RJT  FLAG                               FAX         2020     A     
 FAX       RJTGTCP  BSSZ   1           TEMPORARY STORAGE FOR CODE PROTOTYPE                FAX         2021     A     
 FAX                SB0    46000B                                                          FAX         2022          I
          -FCC0448
 FAX                SB0    0                                                               FCC0448       12     A     
 FAX                SB0    0                                                               FAX         2023     A     
 FAX       RJTSR    BSS    2           SAVE REGISTERS ACROSS CALLS TO WRTEXT               FAX         2024     A     
 FAX                                                                                       FAX         2025     A     
 FAX       L3.RJT   SB4    B4-B6       POSITION AT START OF SYMBOLIC NAME                  FAX         2026     A     
 FAX                GCH    X1          GET 1ST CHARACTER OF SYMBOLIC NAME                  FAX         2027     A     
 FAX                SB2    B6          BIT COUNT                                           FAX         2028     A     
 FAX                SB3    X1          1ST CHARACTER                                       FAX         2029     A     
 FAX                RJ     REF         GET ADDRESS OF SYMBOLIC NAME                        FAX         2030     A     
 FAX                                                                                       FAX         2031     A     
 FAX                MX6    L.NAME                                                          FAX         2032     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2649    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                LX4    18                                                              FAX         2033     A     
 FAX                SX7    B5                                                              FAX         2034     A     
 FAX                BX6    X6*X1       CLEAR LOWER 18 BITS                                 FAX         2035     A     
 FAX                SA7    FFLAG       SET TO *FORCE UPPER*                                FAX         2036     A     
 FAX                SA6    RJTSR+1     SAVE NAME                                           FAX         2037     A     
 FAX                SX7    L3.RJTB     RETURN ADDRESS FROM L4.CKRB                         FAX         2038     A     
 FAX                BX6    X3+X4       FORMAT INSTRUCTION                                  FAX         2039     A     
 FAX                SA7    RJTFLAG                                                         FAX         2040     A     
 FAX                SA6    A6-B5       SAVE FORMATED INSTRUCTION                           FAX         2041     A     
 FAX                GCH    X3                                                              FAX         2042     A     
 FAX                CWD                                                                    FAX         2043     A     
 FAX                RJ     CONVERT     GET BINARY LINE NUMBER IN X1                        FAX         2044     A     
 FAX                                                                                       FAX         2045     A     
 FAX                BX6    X1                                                              FAX         2046     A     
 FAX                SA4    RJTSR       GET SAVED INSTRUCTION                               FAX         2047     A     
 FAX                SA6    A4          SAVE LINE NUMBER                                    FAX         2048     A     
 FAX                GCH    X7          GET DELIMETER IN X7                                 FAX         2049     A     
 FAX                SA1    RJTSR+1     GET SAVED NAME                                      FAX         2050     A     
 FAX                BX7    X1+X7                                                           FAX         2051     A     
 FAX                CWD                                                                    FAX         2052     A     
 FAX                SA7    A1          SAVE NAME AND TERMINATING CHARACTER                 FAX         2053     A     
 FAX                SB6    L4.CKRB     RETURN ADDRESS                                      FAX         2054     A     
 FAX                SB1    30          BIT COUNT                                           FAX         2055     A     
 FAX                EQ     WRTEXT      ISSUE RJ  NAME  CODE                                FAX         2056     A     
 FAX                                                                                       FAX         2057     A     
 FAX       L3.RJTB  MX7    0                                                               FAX         2058          I
          -RSM3545C 
 FAX                SA4    RJTSR+1     GET TERMINATING CHARACTER AND NAME                  FAX         2059          I
          -RSM3545C 
 FAX                SA7    A1          RESET RETURN ADDRESS                                FAX         2060          I
          -RSM3545C 
 FAX                SA7    FFLAG                                                           FAX         2061          I
          -RSM3545C 
 FAX                SX1    X4-1R,                                                          FAX         2062          I
          -RSM3545C 
 FAX                SA7    NFLAG                                                           FAX         2063          I
          -RSM3545C 
 FAX                NZ     X1,L3.RJTE  IF NAME IS NOT A FORMAL PARAMETER                   FAX         2064          I
          -RSM3545C 
 FAX                SA3    TEXT.ADD                                                        FAX         2065          I
          -RSM3545C 
 FAX                SA2    LORGTAB                                                         FAX         2066          I
          -RSM3545C 
 FAX                SA3    X3-2        POSC                                                FAX         2067          I
          -RSM3545C 
 FAX                MX1    L.NAME                                                          FAX         2068          I
          -RSM3545C 
 FAX                SB2    X3                                                              FAX         2069          I
          -RSM3545C 
 FAX                BX1    X1*X4       EXTRACT NAME                                        FAX         2070          I
          -RSM3545C 
 FAX                SA3    A3-B5       ORGC                                                FAX         2071          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2650    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          -RSM3545C 
 FAX                SA0    X2          FWA OF LORGTAB                                      FAX         2072          I
          -RSM3545C 
 FAX                SB3    X3                                                              FAX         2073          I
          -RSM3545C 
 FAX                RJ     USENXT      CHANGE BLOCK TO *NAME*                              FAX         2074          I
          -RSM3545C 
 FAX                                                                                       FAX         2075          I
          -RSM3545C 
 FAX                SB1    60          BIT COUNT                                           FAX         2076          I
          -RSM3545C 
 FAX                SB6    L3.RJTD     RETURN ADDRESS                                      FAX         2077          I
          -RSM3545C 
 FAX                ZR     B2,L3.RJTC  IF POSC = 0                                         FAX         2078          I
          -RSM3545C 
 FAX                                                                                       FAX         2079          I
          -RSM3545C 
 FAX                SB2    B1-B2       ADJUST POSC                                         FAX         2080          I
          -RSM3545C 
 FAX                                                                                       FAX         2081          I
          -RSM3545C 
 FAX       L3.RJTC  SX6    B3          ORGC                                                FAX         2082          I
          -RSM3545C 
 FAX                PX4    X6,B2       FORMAT SUB CODE                                     FAX         2083          I
          -RSM3545C 
 FAX                EQ     WRTEXT                                                          FAX         2084          I
          -RSM3545C 
 FAX                                                                                       FAX         2085          I
          -RSM3545C 
 FAX       L3.RJTD  RL=    L           ADJUST RELOCATION                                   FAX         2086          I
          -RSM3545C 
 FAX                RJ     USESTAR                                                         FAX         2087          I
          -RSM3545C 
 FAX                                                                                       FAX         2088          I
          -RSM3545C 
 FAX       L3.RJTE  SA1    RJTSR       LINE NUMBER                                         FAX         2089          I
          -RSM3545C 
 FAX                SX3    X1-LINLIM                                                       FAX         2090          I
          -RSM3545C 
 FAX                SA4    =XTRACE.    ADDRESS OF TRACE.                                   FAX         2091          I
          -RSM3545C 
 FAX                NG     X3,L3.RJTLT LINE NUMBER .LT. 4095                               FAX         2092          I
          -RSM3545C 
 FAX       L3.RJTB  SA1    RJTSR+1     GET TERMINATING CHARACTER AND NAME                  RSM3545C      51     A     
 FAX                SB1    X1-1R,                                                          RSM3545C      52     A     
 FAX                NZ     B1,L3.RJTE  IF NOT A FORMAL PARAMETER                           RSM3545C      53     A     
 FAX                MX4    7*6                                                             RSM3545C      54     A     
 FAX                SX7    B5                                                              RSM3545C      55     A     
 FAX                AX1    12                                                              RSM3545C      56     A     
 FAX                EQ     PSUB0       OUTPUT A *SUB*                                      RSM3545C      57     A     
 FAX                                                                                       RSM3545C      58     A     
 FAX       L3.RJTE  SX7    0                                                               RSM3545C      59     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2651    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SA1    RJTSR       LINE NUMBER                                         RSM3545C      60     A     
 FAX                SA7    RJTFLAG     RESET RETURN ADDRESS                                RSM3545C      61     A     
 FAX                SX3    X1-LINLIM                                                       RSM3545C      62     A     
 FAX                SA7    FFLAG                                                           RSM3545C      63     A     
 FAX                SA4    =XTRACE.                                                        RSM3545C      64     A     
 FAX                SA7    NFLAG                                                           RSM3545C      65     A     
 FAX                MI     X3,L3.RJTLT IF LINE NUMBER .LT. 4095                            RSM3545C      66     A     
 FAX                                                                                       FAX         2093     A     
 FAX                SA3    RJTGTCP+1                                                       FAX         2094     A     
 FAX                BX6    X3+X1       INSERT LINE NR. INTO CODE PROTOTYPE                 FAX         2095     A     
 FAX                SA6    A3-B5       SAVE IN TEMPORARY STORAGE                           FAX         2096     A     
 FAX                SX1    7777B       LINE NUMBER .GT. 4095 - 1  INDICATOR                FAX         2097     A     
 FAX                                                                                       FAX         2098     A     
 FAX       L3.RJTLT LX1    18                                                              FAX         2099     A     
 FAX                BX4    X4+X1       FORMAT INSTRUCTION                                  FAX         2100     A     
 FAX                SB1    30          BIT COUNT                                           FAX         2101     A     
 FAX                SB6    L3.RJTA     RETURN ADDRESS                                      FAX         2102     A     
 FAX                EQ     WRTEXT                                                          FAX         2103     A     
 FAX                                                                                       FAX         2104     A     
 FAX       L3.RJTA  MX7    0                                                               FAX         2105     A     
 FAX                RL=    L           ADJUST RELOCATION                                   FAX         2106     A     
 FAX                SA4    RJTGTCP                                                         FAX         2107     A     
 FAX                SA7    RBTEMP      CLEAR RBTEMP                                        FAX         2108     A     
 FAX                ZR     X4,INITL    EXIT IF SECOND WORD NOT NECESSARY                   FAX         2109     A     
 FAX                                                                                       FAX         2110     A     
 FAX                MX6    0                                                               FAX         2111     A     
 FAX                SA6    A4          CLEAR CODE PROTOTYPE TEMPORARY STORAGE              FAX         2112     A     
 FAX                WR1WD  ,INITL      ISSUE VFD WITH ACTUAL LINE NUMBER                   FAX         2113     A     
 FAX                                                                                       FAX         2114     A     
 FAX       L3.ED    SX4    0400B                                                           FAX         2115     A     
 FAX                SB4    B4-B6                                                           FAX         2116     A     
 FAX                GCH    X1          GET 1ST CHARACTER OF SYMBOLIC NAME                  FAX         2117     A     
 FAX                SB2    B6          BIT COUNT                                           FAX         2118     A     
 FAX                SB3    X1          1ST CHARACTER                                       FAX         2119     A     
 FAX                RJ     REF         GET ADDRESS OF SYMBOLIC NAME                        FAX         2120     A     
 FAX                                                                                       FAX         2121     A     
 FAX                MX6    L.NAME                                                          FAX         2122     A     
 FAX                LX4    18                                                              FAX         2123     A     
 FAX                SX7    B5                                                              FAX         2124     A     
 FAX                BX6    X6*X1       CLEAR LOWER 18 BITS                                 FAX         2125     A     
 FAX                SA7    FFLAG       SET TO *FORCE UPPER*                                FAX         2126     A     
 FAX                SA6    RJTSR+1     SAVE NAME                                           FAX         2127     A     
 FAX                SX7    L3.EDB                                                          FAX         2128     A     
 FAX                BX6    X3+X4       FORMAT INSTRUCTION                                  FAX         2129     A     
 FAX                SA7    RJTFLAG                                                         FAX         2130     A     
 FAX                SA6    A6-B5       SAVE FORMATED INSTRUCTION                           FAX         2131     A     
 FAX                GCH    X3                                                              FAX         2132     A     
 FAX                CWD                                                                    FCC0943        4     A     
 FAX                RJ     CONVERT     GET BINARY LINE NUMBER IN X1                        FAX         2133     A     
 FAX                                                                                       FAX         2134     A     
 FAX                CWD                                                                    FAX         2135     A     
 FAX                BX6    X1                                                              FAX         2136     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2652    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SA4    RJTSR       GET SAVED INSTRUCTION                               FAX         2137     A     
 FAX                SA6    A4          SAVE LINE NUMBER                                    FAX         2138     A     
 FAX                GCH    X7          GET DELIMETER IN X7                                 FAX         2139     A     
 FAX                SA1    RJTSR+1     GET SAVED NAME                                      FAX         2140     A     
 FAX                BX7    X1+X7                                                           FAX         2141     A     
 FAX                CWD                                                                    FAX         2142     A     
 FAX                SA7    A1          SAVE NAME AND TERMINATING CHARACTER                 FAX         2143     A     
 FAX                SB6    L4.CKRB     RETURN ADDRESS                                      FAX         2144     A     
 FAX                SB1    30          BIT COUNT                                           FAX         2145     A     
 FAX                EQ     WRTEXT      ISSUE RJ  NAME  CODE                                FAX         2146     A     
 FAX                                                                                       FAX         2147     A     
 FAX       L3.EDB   MX7    0                                                               FAX         2148     A     
 FAX                SA4    RJTSR+1                                                         FAX         2149     A     
 FAX                SA7    A1                                                              FAX         2150     A     
 FAX                SA7    FFLAG                                                           FAX         2151     A     
 FAX                SA7    NFLAG                                                           FAX         2152     A     
 FAX                SA1    RJTSR                                                           FAX         2153     A     
 FAX                SA4    =XLABEL.                                                        FAX         2154     A     
 FAX                SB1    30                                                              FAX         2155     A     
 FAX                SB6    L3.EDC                                                          FAX         2156     A     
 FAX                IX4    X4+X1                                                           FAX         2157     A     
 FAX                EQ     WRTEXT                                                          FAX         2158     A     
 FAX                                                                                       FAX         2159     A     
 FAX       L3.EDC   MX7    0                                                               FAX         2160     A     
 FAX                RL=    L                                                               FAX         2161     A     
 FAX                SA7    RBTEMP                                                          FAX         2162     A     
 FAX                EQ     INITL                                                           FAX         2163     A     
 FAX                SPACE  4                                                               FAX         2164     A     
 FAX      ************************************************************************         FAX         2165     A     
 FAX      *     JP B1       --X4=0210B                                           *         FAX         2166     A     
 FAX      *     JP B1+LABEL -- .  .                                              *         FAX         2167     A     
 FAX      *                                                                      *         FAX         2168     A     
 FAX      ************************************************************************         FAX         2169     A     
 FAX                SPACE  2                                                               FAX         2170     A     
 FAX                MOVSTART  6                                                            FAX         2171     A     
 FAX       L3.JP    BX1    X5                                                              FAX         2172     A     
 FAX                AX1    18                                                              FAX         2173     A     
 FAX                BX2    -X0*X1      ISOLATE NUMBER OF B REGISTER                        FAX         2174     A     
 FAX                SX3    X2-1R0                                                          FAX         2175     A     
 FAX                LX3    3                                                               FAX         2176     A     
 FAX                BX4    X4+X3       PLUG NUMBER INTO INSTRUCTION                        FAX         2177     A     
 FAX                AX1    X5,B6                                                           FAX         2178     A     
 FAX                SB4    B0                                                              FAX         2179     A     
 FAX                BX1    -X0*X1            FIRST CHARACTER OF LABEL TO X1                FAX         2180     A     
 FAX                NZ     X1,L3.UCJP        IF THERE IS A LABEL THEN PROCESS IT E         FAX         2181     A     
 FAX                SB6    INITL             EXIT.                                         FAX         2182     A     
 FAX                SX7    B5                                                              FAX         2183     A     
 FAX                SB1    30                                                              FAX         2184     A     
 FAX                LX4    18                                                              FAX         2185     A     
 FAX                SA7    NFLAG             TURN NFLAG ON                                 FAX         2186     A     
 FAX                EQ     WRTEXT                                                          FAX         2187     A     
 FAX                MOVEND                                                                 FAX         2188     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2653    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SPACE  4                                                               FAX         2189     A     
 FAX      ************************************************************************         FAX         2190     A     
 FAX      *                                                                      *         FAX         2191     A     
 FAX      *     ZR XJ,SYMBOL  -- X4=0300B                                        *         FAX         2192     A     
 FAX      *     NZ  .   .     -- X4=0310B                                        *         FAX         2193     A     
 FAX      *     PL  .   .     -- X4=0320B                                        *         FAX         2194     A     
 FAX      *     NG  .   .     -- X4=0330B                                        *         FAX         2195     A     
 FAX      *                                                                      *         FAX         2196     A     
 FAX      ************************************************************************         FAX         2197     A     
 FAX                SPACE  2                                                               FAX         2198     A     
 FAX                MOVSTART  7                                                            FAX         2199     A     
 FAX       L3.XJP   SB4    B4-12             SKIP TO J AND SET IT                          FAX         2200     A     
 FAX                AX2    X5,B4                                                           FAX         2201     A     
 FAX                SB4    B0                                                              FAX         2202     A     
 FAX                AX1    X5,B6                                                           FAX         2203     A     
 FAX                BX2    -X0*X2                                                          FAX         2204     A     
 FAX                SB2    B6                                                              FAX         2205     A     
 FAX                BX1    -X0*X1                                                          FAX         2206     A     
 FAX                SX2    X2-1R0                                                          FAX         2207     A     
 FAX                SB3    X1                                                              FAX         2208     A     
 FAX                BX4    X4+X2                                                           FAX         2209     A     
 FAX                RJ     REF               GET THE RELATIVE ADDRESS, SET IT AND          FAX         2210     A     
 FAX                LX4    18                OUTPUT THE INSTRUCTION                        FAX         2211     A     
 FAX                SB6    L4.CKRB                                                         FAX         2212     A     
 FAX                SB1    30                                                              FAX         2213     A     
 FAX                BX4    X3+X4                                                           FAX         2214     A     
 FAX                EQ     WRTEXT                                                          FAX         2215     A     
 FAX                MOVEND                                                                 FAX         2216     A     
 FAX                SPACE  4                                                               FAX         2217     A     
 FAX      ************************************************************************         FAX         2218     A     
 FAX      *                                                                      *         FAX         2219     A     
 FAX      *     EQ LABEL       -- X4=0400B                                       *         FAX         2220     A     
 FAX      *     EQ BI,BJ,LABEL --  .   .                                         *         FAX         2221     A     
 FAX      *                                                                      *         FAX         2222     A     
 FAX      ************************************************************************         FAX         2223     A     
 FAX                SPACE  2                                                               FAX         2224     A     
 FAX                MOVSTART  9                                                            FAX         2225     A     
 FAX       L3.EQ    GCH    X1                                                              FAX         2226     A     
 FAX                SX7    X1-1RB                                                          FAX         2227     A     
 FAX                NZ     X7,L3.UCJP        IF THERE ARE NO B REGISTERS SPECIFIED         FAX         2228     A     
 FAX                AX3    X5,B4             THEN PROCESS AN UNCONDITIONAL JUMP.           FAX         2229     A     
 FAX                BX2    -X0*X5            X2.= J                                        FAX         2230     A     
 FAX                SA5    A5+B5                                                           FAX         2231     A     
 FAX                BX3    -X0*X3            X3.= I                                        FAX         2232     A     
 FAX                SB4    B7-B6                                                           FAX         2233     A     
 FAX                IX6    X2-X3                                                           FAX         2234     A     
 FAX                GCH    X1                                                              FAX         2235     A     
 FAX                ZR     X6,L3.UCJP        IF I=J THEN PROCESS AN UNCONDITIONAL          FAX         2236     A     
 FAX                LX3    3                 JUMP ELSE SET I,J AND K AND EXIT.             FAX         2237     A     
 FAX                SX4    X4-363B                                                         FAX         2238     A     
 FAX                SB2    B6                                                              FAX         2239     A     
 FAX                IX3    X2+X3                                                           FAX         2240     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2654    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SB3    X1                                                              FAX         2241     A     
 FAX                IX4    X4+X3                                                           FAX         2242     A     
 FAX                RJ     REF                                                             FAX         2243     A     
 FAX                LX4    18                                                              FAX         2244     A     
 FAX                SB1    30                                                              FAX         2245     A     
 FAX                BX4    X3+X4                                                           FAX         2246     A     
 FAX                SB6    L4.CKRB                                                         FAX         2247     A     
 FAX                EQ     WRTEXT                                                          FAX         2248     A     
 FAX                MOVEND                                                                 FAX         2249     A     
 FAX                SPACE  4                                                               FAX         2250     A     
 FAX      ************************************************************************         FAX         2251     A     
 FAX      *                                                                      *         FAX         2252     A     
 FAX      *     NE BI,BJ,LABEL  -- X4=0500B                                      *         FAX         2253     A     
 FAX      *     GE  .  .   .    -- X4=0600B                                      *         FAX         2254     A     
 FAX      *     LT  .  .   .    -- X4=0700B                                      *         FAX         2255     A     
 FAX      *                                                                      *         FAX         2256     A     
 FAX      ************************************************************************         FAX         2257     A     
 FAX                SPACE  2                                                               FAX         2258     A     
 FAX                MOVSTART  7                                                            FAX         2259     A     
 FAX       L3.BJP   SB4    B4-12                                                           FAX         2260     A     
 FAX                SB2    B6                                                              FAX         2261     A     
 FAX                AX2    X5,B4                                                           FAX         2262     A     
 FAX                BX3    -X0*X5            X3.= J                                        FAX         2263     A     
 FAX                SA5    A5+B5                                                           FAX         2264     A     
 FAX                SX4    X4-363B                                                         FAX         2265     A     
 FAX                BX2    -X0*X2            X2.= I                                        FAX         2266     A     
 FAX                SB4    B7-B6             CONVERT I AND J TO BINARY AND ADD THE         FAX         2267     A     
 FAX                LX2    3                 THE OPCODE PROTOTYPE.                         FAX         2268     A     
 FAX                IX4    X4+X3                                                           FAX         2269     A     
 FAX                AX1    X5,B4             FIRST CHARACTER OF THE LABEL TO X1            FAX         2270     A     
 FAX                IX4    X4+X2                                                           FAX         2271     A     
 FAX                BX1    -X0*X1                                                          FAX         2272     A     
 FAX                LX4    18                MAKE A 30 BIT INSTRUCTION                     FAX         2273     A     
 FAX                SB3    X1                                                              FAX         2274     A     
 FAX                SB4    B4-B6                                                           FAX         2275     A     
 FAX                RJ     REF                                                             FAX         2276     A     
 FAX                SB1    30                                                              FAX         2277     A     
 FAX                SB6    L4.CKRB                                                         FAX         2278     A     
 FAX                BX4    X4+X3             SET THE ADDRESS AND EXIT TO OUTPUT TH         FAX         2279     A     
 FAX                EQ     WRTEXT            INSTRUCTION.                                  FAX         2280     A     
 FAX                MOVEND                                                                 FAX         2281     A     
 FAX                SPACE  3                                                               FAX         2282     A     
 FAX      ***                                                                              FAX         2283     A     
 FAX      *         CXI  XJ                                                                FAX         2284     A     
 FAX      *                                                                                FAX         2285     A     
 FAX       L3.CNT   AX6    B4,X5                                                           FAX         2286     A     
 FAX                SB4    B4-18                                                           FAX         2287     A     
 FAX                BX4    -X0*X6            I                                             FAX         2288     A     
 FAX                IX6    X4-X7                                                           FAX         2289     A     
 FAX                AX5    B4,X5                                                           FAX         2290     A     
 FAX                BX3    -X0*X5            J                                             FAX         2291     A     
 FAX                IX3    X3-X7                                                           FAX         2292     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2655    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SX4    X6+470B                                                         FAX         2293     A     
 FAX                LX4    3                                                               FAX         2294     A     
 FAX                IX4    X3+X4                                                           FAX         2295     A     
 FAX                LX4    3                                                               FAX         2296     A     
 FAX                IX4    X3+X4             47IJJ                                         FAX         2297     A     
 FAX                EQ     L4.15                                                           FAX         2298     A     
 FAX                SPACE  4                                                               FAX         2299     A     
 FAX      ************************************************************************         FAX         2300     A     
 FAX      *                                                                      *         FAX         2301     A     
 FAX      *     BXI XJ                                                           *         FAX         2302     A     
 FAX      *      .  XJ+XK                                                        *         FAX         2303     A     
 FAX      *      .  XJ-XK                                                        *         FAX         2304     A     
 FAX      *      .  XJ*XK                                                        *         FAX         2305     A     
 FAX      *      .  -XJ                                                          *         FAX         2306     A     
 FAX      *      .  -XJ+XK                                                       *         FAX         2307     A     
 FAX      *      .  -XJ-XK                                                       *         FAX         2308     A     
 FAX      *      .  -XJ*XK                                                       *         FAX         2309     A     
 FAX      *                                                                      *         FAX         2310     A     
 FAX      *         ON ENTRY  X4=0                                               *         FAX         2311     A     
 FAX      *                                                                      *         FAX         2312     A     
 FAX      ************************************************************************         FAX         2313     A     
 FAX                SPACE  2                                                               FAX         2314     A     
 FAX                MOVSTART  14                                                           FAX         2315     A     
 FAX       L3.BOOL  AX4    X5,B4             PICK I                                        FAX         2316     A     
 FAX                SB4    B4-12             SKIP THE SPACE                                FAX         2317     A     
 FAX                BX4    -X0*X4                                                          FAX         2318     A     
 FAX                AX1    X5,B4             PICK 1ST CH OF THE ADD. FIELD                 FAX         2319     A     
 FAX                SB1    -1R0              CONSTANT FOR NUMERIC CONVERSION               FAX         2320     A     
 FAX                SX4    X4+B1             SET I                                         FAX         2321     A     
 FAX                SX2    140B              MASK FOR BITS 2,3 OF THE OPCODE               FAX         2322     A     
 FAX                BX1    X2*X1                                                           FAX         2323     A     
 FAX                IX4    X1+X4             SET BITS 2,3                                  FAX         2324     A     
 FAX                LX1    54                                                              FAX         2325     A     
 FAX                PL     X1,L3.BNM1        IF THE FIRST CH WAS A MINUS THEN SKIP         FAX         2326     A     
 FAX                SB4    B4-B6             THE X.                                        FAX         2327     A     
 FAX       L3.BNM1  SB4    B4-B6                                                           FAX         2328     A     
 FAX                LX4    3                 POSITION OPCODE FOR J                         FAX         2329     A     
 FAX                GCH    X1                PICK J                                        FAX         2330     A     
 FAX                SX1    X1+B1             CONVERT TO OCTAL                              FAX         2331     A     
 FAX                AX2    X5,B4             PICK THE 2ED OPERATOR                         FAX         2332     A     
 FAX                IX4    X4+X1             SET J                                         FAX         2333     A     
 FAX                BX2    -X0*X2                                                          FAX         2334     A     
 FAX                SX1    300B              MASK FOR BITS 0,1 OF THE OPCODE               FAX         2335     A     
 FAX                LX3    X1,B5             DATA FOR BITS 0,1 OF THE OPCODE               FAX         2336     A     
 FAX                SB3    X2-45B            B3.=OPERATOR-45B                              FAX         2337     A     
 FAX                AX3    X3,B3             SHIFT DATA AND MASK TO SELECT BITS 0,         FAX         2338     A     
 FAX                BX3    X3*X1                                                           FAX         2339     A     
 FAX                IX4    X3+X4                                                           FAX         2340     A     
 FAX                LX4    3                 POSITION OPCODE FOR K                         FAX         2341     A     
 FAX                ZR     X3,L3.BNK         IF THE 2ED OPERATOR WAS A SPACE THEN          FAX         2342     A     
 FAX                SA5    A5+B5             ELSE PICK AND SET K.                          FAX         2343     A     
 FAX                NZ     B4,L3.BNM2        IF THERE WAS A PRECEEDING MINUS THEN          FAX         2344     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2656    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SB7    B7-B6             K IS THE 2ED CH IN THE NEW WORD.              FAX         2345     A     
 FAX       L3.BNM2  AX1    X5,B7                                                           FAX         2346     A     
 FAX                BX1    -X0*X1                                                          FAX         2347     A     
 FAX                SX1    X1+B1                                                           FAX         2348     A     
 FAX                NZ     B4,L3.BNM3        IF THERE WAS A PRECEEDING MINUS THEN          FAX         2349     A     
 FAX                BX2    -X0*X4            EXCHANGE J AND K.                             FAX         2350     A     
 FAX                LX1    3                                                               FAX         2351     A     
 FAX                BX4    X0*X4                                                           FAX         2352     A     
 FAX                AX2    3                                                               FAX         2353     A     
 FAX                BX4    X2+X4                                                           FAX         2354     A     
 FAX       L3.BNM3  IX4    X1+X4                                                           FAX         2355     A     
 FAX                EQ     L4.15                                                           FAX         2356     A     
 FAX                MOVEND                                                                 FAX         2357     A     
 FAX                SPACE  2                                                               FAX         2358     A     
 FAX                MOVSTART  2                                                            FAX         2359     A     
 FAX       L3.BNK   MX0    57                                                              FAX         2360     A     
 FAX                SB1    3                                                               FAX         2361     A     
 FAX                AX2    X4,B1                                                           FAX         2362     A     
 FAX                BX2    -X0*X2                                                          FAX         2363     A     
 FAX                IX4    X4+X2                                                           FAX         2364     A     
 FAX                EQ     L4.15                                                           FAX         2365     A     
 FAX                MOVEND                                                                 FAX         2366     A     
 FAX                SPACE  4                                                               FAX         2367     A     
 FAX      ************************************************************************         FAX         2368     A     
 FAX      *                                                                      *         FAX         2369     A     
 FAX      *     MXI CON.   -- X4=43000B                                          *         FAX         2370     A     
 FAX      *     AXI  .     -- X4=21000B                                          *         FAX         2371     A     
 FAX      *     LXI  .     -- X4=20000B                                          *         FAX         2372     A     
 FAX      *     AXI BJ,XK  -- X4=21000B                                          *         FAX         2373     A     
 FAX      *     LXI  .  .  -- X4=20000B                                          *         FAX         2374     A     
 FAX      *                                                                      *         FAX         2375     A     
 FAX      ************************************************************************         FAX         2376     A     
 FAX                SPACE  2                                                               FAX         2377     A     
 FAX                MOVSTART  6B                                                           FAX         2378     A     
 FAX       L3.MX    BSS    0                                                               FAX         2379     A     
 FAX       L3.SH    AX1    X5,B4             PICK I                                        FAX         2380     A     
 FAX                SB4    B4-12             SKIP THE SPACE                                FAX         2381     A     
 FAX                BX1    -X0*X1                                                          FAX         2382     A     
 FAX                SB3    -1R0              CONSTANT FOR NUMERIC CONVERSION               FAX         2383     A     
 FAX                SX1    X1+B3                                                           FAX         2384     A     
 FAX                LX1    6                                                               FAX         2385     A     
 FAX                BX4    X4+X1             SET I                                         FAX         2386     A     
 FAX                AX1    X5,B4             PICK THE 1ST CH OF ADD FIELD                  FAX         2387     A     
 FAX                BX1    -X0*X1                                                          FAX         2388     A     
 FAX                SX1    X1+B3                                                           FAX         2389     A     
 FAX                SB4    B4-B6                                                           FAX         2390     A     
 FAX                NG     X1,L3.SNOM        IF THE 1ST CH IS ALPHABETIC THEN              FAX         2391     A     
 FAX                AX2    X5,B4             NOMINAL SHIFT.                                FAX         2392     A     
 FAX                BX2    -X0*X2            PICK 2ED CH OF THE ADD. FIELD                 FAX         2393     A     
 FAX                SX3    X2+B3                                                           FAX         2394     A     
 FAX                NG     X3,L3.SC2         IF ALPHA THEN GOTO L3.SC2 ELSE GOTO           FAX         2395     A     
 FAX                EQ     L3.SC1            L3.SC1.                                       FAX         2396     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2657    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                MOVEND                                                                 FAX         2397     A     
 FAX                MOVSTART  4B                                                           FAX         2398     A     
 FAX       L3.SNOM  SX4    X4+2000B          IP.=IP+2000B FOR NOMINAL SHIFTS               FAX         2399     A     
 FAX                AX1    X5,B4             PICK J                                        FAX         2400     A     
 FAX                BX1    -X0*X1                                                          FAX         2401     A     
 FAX                SX1    X1+B3                                                           FAX         2402     A     
 FAX                SA5    A5+B5             GET NEXT WORD                                 FAX         2403     A     
 FAX                AX2    X5,B7             PICK K AS THE 1ST CH OF THE NEW WORD          FAX         2404     A     
 FAX                BX2    -X0*X2                                                          FAX         2405     A     
 FAX       L3.SC1   SX2    X2-1R0                                                          FAX         2406     A     
 FAX                LX1    3                                                               FAX         2407     A     
 FAX                BX4    X4+X2             SET K                                         FAX         2408     A     
 FAX       L3.SC2   IX4    X4+X1             SET J                                         FAX         2409     A     
 FAX                EQ     L4.15                                                           FAX         2410     A     
 FAX                MOVEND                                                                 FAX         2411     A     
 FAX                SPACE  4                                                               FAX         2412     A     
 FAX      ************************************************************************         FAX         2413     A     
 FAX      *                                                                      *         FAX         2414     A     
 FAX      *     NXI BJ,XK  -- X4=24000B                                          *         FAX         2415     A     
 FAX      *     UXI  .  .  -- X4=26000B                                          *         FAX         2416     A     
 FAX      *     PXI  .  .  -- X4=27000B                                          *         FAX         2417     A     
 FAX      *                                                                      *         FAX         2418     A     
 FAX      ************************************************************************         FAX         2419     A     
 FAX                SPACE  2                                                               FAX         2420     A     
 FAX                MOVSTART  5B                                                           FAX         2421     A     
 FAX       L3.PUN   AX1    X5,B4                                                           FAX         2422     A     
 FAX                BX1    -X0*X1                                                          FAX         2423     A     
 FAX                SB4    B4-18                                                           FAX         2424     A     
 FAX                LX1    6                                                               FAX         2425     A     
 FAX                IX4    X4+X1             OPCODE.=OPCODE+I*8**2                         FAX         2426     A     
 FAX                AX2    X5,B4                                                           FAX         2427     A     
 FAX                BX2    -X0*X2                                                          FAX         2428     A     
 FAX                SA5    A5+B5                                                           FAX         2429     A     
 FAX                LX2    3                                                               FAX         2430     A     
 FAX                IX4    X4+X2             OPCODE.=OPCODE+J*8                            FAX         2431     A     
 FAX                AX3    X5,B7                                                           FAX         2432     A     
 FAX                BX3    -X0*X3                                                          FAX         2433     A     
 FAX                IX4    X4+X3                                                           FAX         2434     A     
 FAX                SX4    X4-3663B          CONVERT I,J,K TO BINARY                       FAX         2435     A     
 FAX                EQ     L4.15                                                           FAX         2436     A     
 FAX                MOVEND                                                                 FAX         2437     A     
 FAX                EJECT                                                                  FAX         2438     A     
 FAX      ************************************************************************         FAX         2439     A     
 FAX      *                                                                      *         FAX         2440     A     
 FAX      *     FXI XJ+XK  -- X4=0                                               *         FAX         2441     A     
 FAX      *      .  . - .  --  .                                                 *         FAX         2442     A     
 FAX      *      .  . * .  --  .                                                 *         FAX         2443     A     
 FAX      *      .  . / .  --  .                                                 *         FAX         2444     A     
 FAX      *                                                                      *         FAX         2445     A     
 FAX      *     DXI . + .  -- X4=02000B                                          *         FAX         2446     A     
 FAX      *      .  . - .  --  .                                                 *         FAX         2447     A     
 FAX      *      .  . * .  --  .                                                 *         FAX         2448     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2658    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *                                                                      *         FAX         2449     A     
 FAX      *     IX1 . + .  -- X4=06000B                                          *         FAX         2450     A     
 FAX      *      .  . - .      .                                                 *         FAX         2451     A     
 FAX      *                                                                      *         FAX         2452     A     
 FAX      ************************************************************************         FAX         2453     A     
 FAX                SPACE  2                                                               FAX         2454     A     
 FAX       XRGMSK   VFD    24/1RX,18/1RX,18/1RX                                            FAX         2455     A     
 FAX                                                                                       FAX         2456     A     
 FAX       L3.ARIT  BSS    0                                                               FAX         2457     A     
 FAX       .T       IFNE   TEST,0                                                          FAX         2458     A     
 FAX                SA1    XRGMSK                                                          FAX         2459     A     
 FAX                BX2    X1*X5                                                           FAX         2460     A     
 FAX                BX1    X1-X2                                                           FAX         2461     A     
 FAX                NZ     X1,ILL      IF NOT XI XJ OP XK                                  FAX         2462     A     
 FAX       .T       ENDIF                                                                  FAX         2463     A     
 FAX                AX1    B6,X5                                                           FAX         2464     A     
 FAX                BX1    -X0*X1                                                          FAX         2465     A     
 FAX                SA1    X1+ARITAB-1R+     PICK UP OPCODE MASK                           FAX         2466     A     
 FAX                BX4    X4+X1             OPCODE.=IP .OR. MASK                          FAX         2467     A     
 FAX                EQ     L3.PUN            GO TO PUN TO SET I,J,K                        FAX         2468     A     
 FAX                SPACE  2                                                               FAX         2469     A     
 FAX                MOVSTART  4B                                                           FAX         2470     A     
 FAX       ARITAB   DATA   30000B            TABLE OF OPCODE MASKS FOR THE ARITHME         FAX         2471     A     
 FAX                DATA   31000B            OPERATIONS.                                   FAX         2472     A     
 FAX                DATA   40000B                                                          FAX         2473     A     
 FAX                DATA   44000B                                                          FAX         2474     A     
 FAX                MOVEND                                                                 FAX         2475     A     
 FAX                SPACE  4                                                               FAX         2476     A     
 FAX      ************************************************************************         FAX         2477     A     
 FAX      *                                                                      *         FAX         2478     A     
 FAX      *     RXI XJ+XK  -- X4=0                                               *         FAX         2479     A     
 FAX      *      .  . - .  --                                                    *         FAX         2480     A     
 FAX      *      .  . * .  --                                                    *         FAX         2481     A     
 FAX      *      .  . / .  --                                                    *         FAX         2482     A     
 FAX      *                                                                      *         FAX         2483     A     
 FAX      ************************************************************************         FAX         2484     A     
 FAX                SPACE  2                                                               FAX         2485     A     
 FAX                MOVSTART  2                                                            FAX         2486     A     
 FAX       L3.RX    AX1    B6,X5                                                           FAX         2487     A     
 FAX                BX1    -X0*X1                                                          FAX         2488     A     
 FAX                ZR     X1,L3.DRL   SENSE READ LCM                                      FAX         2489     A     
 FAX                SA4    X1+ROUNDTAB-1R+   PICKUP OPCODE MASK                            FAX         2490     A     
 FAX                EQ     L3.PUN            GO TO PUN TO SET I, J, K                      FAX         2491     A     
 FAX                MOVEND                                                                 FAX         2492     A     
 FAX                MOVSTART 4                                                             FAX         2493     A     
 FAX       ROUNDTAB DATA   34000B            TABLE OF OPCODE MASKS FOR ROUNDED             FAX         2494     A     
 FAX                DATA   35000B            ARITHMETIC                                    FAX         2495     A     
 FAX                DATA   41000B                                                          FAX         2496     A     
 FAX                DATA   45000B                                                          FAX         2497     A     
 FAX                MOVEND                                                                 FAX         2498     A     
 FAX      *****                                                                            FAX         2499     A     
 FAX      *     RXJ  XK    X4=01400B                                                       FAX         2500     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2659    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *     WXJ  XK    X4=01500B                                                       FAX         2501     A     
 FAX      *                                                                                FAX         2502     A     
 FAX                MOVSTART 5                                                             FAX         2503     A     
 FAX       L3.DRL   SX4    01400B                                                          FAX         2504     A     
 FAX       L3.RWX   AX1    B4,X5                                                           FAX         2505     A     
 FAX                SB4    B4-18                                                           FAX         2506     A     
 FAX                BX1    -X0*X1      EXTRACT J                                           FAX         2507     A     
 FAX                AX2    B4,X5                                                           FAX         2508     A     
 FAX                LX1    3           POS. J                                              FAX         2509     A     
 FAX                BX2    -X0*X2      EXTRACT K                                           FAX         2510     A     
 FAX                IX4    X1+X4       OR IN J                                             FAX         2511     A     
 FAX                IX4    X2+X4       OR IN K                                             FAX         2512     A     
 FAX                SX4    X4-363B     CONVERT J,K TO BINARY                               FAX         2513     A     
 FAX                EQ     L4.15                                                           FAX         2514     A     
 FAX                MOVEND                                                                 FAX         2515     A     
 FAX                SPACE  4                                                               FAX         2516     A     
 FAX      ************************************************************************         FAX         2517     A     
 FAX      *                                                                      *         FAX         2518     A     
 FAX      *         THIS ROUTINE PROCESSES THE ADDRESS FIELD OF THE SET INSTRUC- *         FAX         2519     A     
 FAX      *         TIONS. IT IS REQUIRED TO SET THE LEAST SIGNIFICANT DIGIT OF  *         FAX         2520     A     
 FAX      *         THE OPCODE(H FIELD) AND THE I,J AND K FIELDS. ON ENTRY X4    *         FAX         2521     A     
 FAX      *         WILL CONTAIN EITHER 51000B,61000B OR 71000B. THE POSSIBLE    *         FAX         2522     A     
 FAX      *         ADDRESS FIELDS THAT MAY BE ENCOUNTERED ARE                   *         FAX         2523     A     
 FAX      *                                                                      *         FAX         2524     A     
 FAX      *                   RJ,                                                *         FAX         2525     A     
 FAX      *                   RJ+OR-RK,                                          *         FAX         2526     A     
 FAX      *                   RJ+OR-AE,OR                                        *         FAX         2527     A     
 FAX      *                   AE                                                 *         FAX         2528     A     
 FAX      *              WHERE AE(ADDRESS EXPRESSION) IS EITHER                  *         FAX         2529     A     
 FAX      *                   OCTAL CONSTANT,                                    *         FAX         2530     A     
 FAX      *                   SYMBOL(+OR-OCTAL CONSTANT)(+OR-OCTAL CONSTANT),OR  *         FAX         2531     A     
 FAX      *                   SYMBOL-SYMBOL(+OR-OCTAL CONSTANT).                 *         FAX         2532     A     
 FAX      *                                                                      *         FAX         2533     A     
 FAX      *         ON EXIT X4 CONTAINS  EITHER A 15 OR 30 BIT INSTRUCTION.      *         FAX         2534     A     
 FAX      *                                                                      *         FAX         2535     A     
 FAX      ************************************************************************         FAX         2536     A     
 FAX                SPACE  2                                                               FAX         2537     A     
 FAX                MOVSTART  3                                                            FAX         2538     A     
 FAX       L3.S1TB  DATA   1,-1,0                                                          FAX         2539     A     
 FAX                MOVEND                                                                 FAX         2540     A     
 FAX                SPACE  2                                                               FAX         2541     A     
 FAX                MOVSTART  3                                                            FAX         2542     A     
 FAX       L3.S3TB  DATA   3000B,5000B,2000B                                               FAX         2543     A     
 FAX                MOVEND                                                                 FAX         2544     A     
 FAX                SPACE  2                                                               FAX         2545     A     
 FAX                MOVSTART  3                                                            FAX         2546     A     
 FAX       L3.S6TB  DATA   4000B,5000B,1000B                                               FAX         2547     A     
 FAX                MOVEND                                                                 FAX         2548     A     
 FAX                SPACE  2                                                               FAX         2549     A     
 FAX                MOVSTART  4                                                            FAX         2550     A     
 FAX       L3.SET   AX1    X5,B4             PICK AND SET THE I FIELD                      FAX         2551     A     
 FAX                BX1    -X0*X1                                                          FAX         2552     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2660    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SX1    X1-1R0                                                          FAX         2553     A     
 FAX                SB4    B4-12             SKIP THE SPACE                                FAX         2554     A     
 FAX                LX1    6                                                               FAX         2555     A     
 FAX                BX4    X4-X1                                                           FAX         2556     A     
 FAX                GCH    X1                FIRST CH OF THE ADDRESS FIELD TO X1           FAX         2557     A     
 FAX                SB3    X1                                                              FAX         2558     A     
 FAX                BX7    X7-X7             NEGFLAG OFF, ADD.SUM.= 0                      FAX         2559     A     
 FAX                SB2    B6                B2.= BIT COUNT OF CHARACTERS IN X1 (B         FAX         2560     A     
 FAX                JP     B3+L3.JVEC        JUMP INTO JVEC WITH FIRST CHARACTER           FAX         2561     A     
 FAX                MOVEND                                                                 FAX         2562     A     
 FAX                SPACE  2                                                               FAX         2563     A     
 FAX                MOVSTART  7                                                            FAX         2564     A     
 FAX       L3.S1    MX3    58                                                              FAX         2565     A     
 FAX                AX6    X5,B4                                                           FAX         2566     A     
 FAX                SA2    =77600000000B                                                   FAX         2567     A     
 FAX                BX3    -X3*X1            X3.= LOW ORDER 2BITS OF FIRST CHARACT         FAX         2568     A     
 FAX                BX6    -X0*X6                                                          FAX         2569     A     
 FAX                SA3    X3+L3.S1TB                                                      FAX         2570     A     
 FAX                SB1    X6                B1.= SECOND CHARACTER                         FAX         2571     A     
 FAX                LX2    X2,B1                                                           FAX         2572     A     
 FAX                SA0    X3                A0.=S1TB(X3)                                  FAX         2573     A     
 FAX                PL     X2,L3.S7          IF 2ED CHARACTER IS NOT AN OCTAL DIGI         FAX         2574     A     
 FAX                LX1    6                                                               FAX         2575     A     
 FAX                SB4    B4-B6                                                           FAX         2576     A     
 FAX                BX1    X1+X6             X1.= FIRST AND SECOND CHARACTERS              FAX         2577     A     
 FAX                SB2    B2+B6                                                           FAX         2578     A     
 FAX                AX3    X5,B4             THEN PROCESS AN A.E.                          FAX         2579     A     
 FAX                BX3    -X0*X3                                                          FAX         2580     A     
 FAX                SA2    X3+L3.JVEC                                                      FAX         2581     A     
 FAX                SB1    X2                                                              FAX         2582     A     
 FAX                SX6    X6-1R0            PICK UP ORDINAL FROM JVEC WITH 3RD CH         FAX         2583     A     
 FAX                JP     B1+L3.S3JT        INTO S3JT WITH IT.                            FAX         2584     A     
 FAX                MOVEND                                                                 FAX         2585     A     
 FAX                SPACE  2                                                               FAX         2586     A     
 FAX       L3.S3JT  SA1    A0+L3.S3TB+1      SPACE OR ZERO BYTE -- H.= 3,4,OR 6            FAX         2587     A     
 FAX                EQ     L3.S3EX           J.=(X6), K.=0                                 FAX         2588     A     
 FAX                EQ     L3.S7                                                           FAX         2589     A     
 FAX       +        BX7    -X7+X7            MINUS -- NEGFLAG ON                           FAX         2590     A     
 FAX       +        LX6    3                 PLUS  -- H.=H+(A0), CONTINUE ANALYSIS         FAX         2591     A     
 FAX                SX3    A0                                                              FAX         2592     A     
 FAX                BX4    X4+X6             J.=(X6)                                       FAX         2593     A     
 FAX                LX3    9                                                               FAX         2594     A     
 FAX                SB4    B7                                                              FAX         2595     A     
 FAX                BX1    -X0*X5            X1.= 4TH CHARACTER                            FAX         2596     A     
 FAX                IX4    X4+X3                                                           FAX         2597     A     
 FAX                SB3    X1                                                              FAX         2598     A     
 FAX                SA5    A5+B5                                                           FAX         2599     A     
 FAX                SB1    X1-1RB                                                          FAX         2600     A     
 FAX                SB2    B6                BC.= 6                                        FAX         2601     A     
 FAX                NZ     B1,L3.S7          IF 4TH CHARACTER IS NOT B THEN PROCES         FAX         2602     A     
 FAX                AX6    X5,B4             AN A.E.                                       FAX         2603     A     
 FAX                SA3    =77600000000B                                                   FAX         2604     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2661    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                BX6    -X0*X6            X6.= 5TH CHARACTER                            FAX         2605     A     
 FAX                SB1    X6                                                              FAX         2606     A     
 FAX                LX3    X3,B1                                                           FAX         2607     A     
 FAX                PL     X3,L3.S7          IF 5TH CHARACTER IS NOT AN OCTAL DIGI         FAX         2608     A     
 FAX                LX1    6                                                               FAX         2609     A     
 FAX                SB4    B4-B6                                                           FAX         2610     A     
 FAX                BX1    X1+X6                                                           FAX         2611     A     
 FAX                SB2    B2+B6                                                           FAX         2612     A     
 FAX                AX2    X5,B4             THEN GO PROCESS AN A.E.                       FAX         2613     A     
 FAX                SB2    B2+B6             BC.= BC+6                                     FAX         2614     A     
 FAX                LX1    6                                                               FAX         2615     A     
 FAX                BX2    -X0*X2            X2.= 6TH CHARACTER                            FAX         2616     A     
 FAX                SB4    B4-B6                                                           FAX         2617     A     
 FAX                BX1    X1+X2             X1.= 4TH,5TH,AND 6TH CHARACTERS               FAX         2618     A     
 FAX                SX2    X2-1R                                                           FAX         2619     A     
 FAX                NZ     X2,L3.S7          IF 6TH CHARACTER IS NOT A ZERO BYTE T         FAX         2620     A     
 FAX                SA1    A0+L3.S6TB+1      PROCESS AN A.E.                               FAX         2621     A     
 FAX                SX6    X6-1R0                                                          FAX         2622     A     
 FAX                IX4    X4+X1             H.= H+1,4,5                                   FAX         2623     A     
 FAX                BX4    X4+X6             K.= (X6)                                      FAX         2624     A     
 FAX                PL     X7,L4.15          IF NEGFLAG IS ON THEN H.=H+1                  FAX         2625     A     
 FAX                SX4    X4+1000B                                                        FAX         2626     A     
 FAX                EQ     L4.15                                                           FAX         2627     A     
 FAX                SPACE  2                                                               FAX         2628     A     
 FAX                MOVSTART  5                                                            FAX         2629     A     
 FAX       L3.S11M  BX7    -X7                                                             FAX         2630     A     
 FAX                GCH    X1                                                              FAX         2631     A     
 FAX                SB3    X1                                                              FAX         2632     A     
 FAX                SPACE  2                                                               FAX         2633     A     
 FAX       L3.S11Z  BSS    0                                                               FAX         2634     A     
 FAX       L3.S11P  BSS    0                                                               FAX         2635     A     
 FAX       L3.S7.1A BSS    0                                                               FAX         2636     A     
 FAX       L3.S7    BX6    X7                                                              FAX         2637     A     
 FAX                LX4    15                                                              FAX         2638     A     
 FAX                RJ     EVAL                                                            FAX         2639     A     
 FAX                SB6    L4.CKRB                                                         FAX         2640     A     
 FAX                SB1    30                                                              FAX         2641     A     
 FAX                EQ     WRTEXT                                                          FAX         2642     A     
 FAX                MOVEND                                                                 FAX         2643     A     
 FAX                SPACE  2                                                               FAX         2644     A     
 FAX                MOVSTART  2                                                            FAX         2645     A     
 FAX       L3.S3EX  LX6    3                                                               FAX         2646     A     
 FAX                IX4    X4+X1                                                           FAX         2647     A     
 FAX                NO                                                                     FAX         2648     A     
 FAX                BX4    X4+X6                                                           FAX         2649     A     
 FAX                EQ     L4.15                                                           FAX         2650     A     
 FAX                MOVEND                                                                 FAX         2651     A     
 FAX                SPACE  2                                                               FAX         2652     A     
 FAX      ************************************************************************         FAX         2653     A     
 FAX      *                                                                      *         FAX         2654     A     
 FAX      *         JUMP VECTOR AND CH CODE CONVERSION CONSTANTS USED FOR        *         FAX         2655     A     
 FAX      *         DECISIONS ON CHS IN THE ADDRESS FIELD OF THE SET INSTRUCTIONS*         FAX         2656     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2662    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *                                                                      *         FAX         2657     A     
 FAX      *         BITS 59-30 ARE A TRUE JUMP VECTOR WHILE THE OTHER THREE      *         FAX         2658     A     
 FAX      *         FIELDS IN EACH WORD ARE USED AS ORDINALS TO SMALLER JUMP     *         FAX         2659     A     
 FAX      *         VECTORS. THE WORD IS PICKED UP USING THE CH CODE AS AN INDEX *         FAX         2660     A     
 FAX      *         AND THE PROPER FIELD IS SEPARATED TO AN INDEX REGISTER.      *         FAX         2661     A     
 FAX      *                                                                      *         FAX         2662     A     
 FAX      *         BITS 59-30 ARE USED TO SEPARATE A,B,X,OTHER ALPHABETIC CHS   *         FAX         2663     A     
 FAX      *                    INCLUDING .)#[]89 , OCTAL DIGITS                  *         FAX         2664     A     
 FAX      *         BITS 24-29 SEPARATE  SPACE OR ZERO BYTE,+ AND -              *         FAX         2665     A     
 FAX      *                                                                      *         FAX         2666     A     
 FAX      *         BITS 23-18 SEPARATE  OCTAL DIGITS, ALPHABETIC, AND B         *         FAX         2667     A     
 FAX      *                                                                      *         FAX         2668     A     
 FAX      *         BITS 17-0  SEPARATE  SPACE OR ZERO BYTE, ALPHABETIC, -, +    *         FAX         2669     A     
 FAX      *                                                                      *         FAX         2670     A     
 FAX      ************************************************************************         FAX         2671     A     
 FAX                SPACE  2                                                               FAX         2672     A     
 FAX       L3.JVEC  EQ     ILL               00                     L3.JVEC  EQ            FAX         2673     A     
 FAX       -        VFD    6/0,6/1,18/0                                                    FAX         2674     A     
 FAX                EQ     L3.S1                                                           FAX         2675     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2676     A     
 FAX                EQ     L3.S1                                                           FAX         2677     A     
 FAX       -        VFD    6/0,6/2,18/1                                                    FAX         2678     A     
 FAX                EQ     L3.S7.1A          C                               EQ            FAX         2679     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2680     A     
 FAX                EQ     L3.S7.1A          D                               EQ            FAX         2681     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2682     A     
 FAX                EQ     L3.S7.1A          E                               EQ            FAX         2683     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2684     A     
 FAX                EQ     L3.S7.1A          F                               EQ            FAX         2685     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2686     A     
 FAX                EQ     L3.S7.1A          G                               EQ            FAX         2687     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2688     A     
 FAX                EQ     L3.S7.1A          H                               EQ            FAX         2689     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2690     A     
 FAX                EQ     L3.S7.1A          I                               EQ            FAX         2691     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2692     A     
 FAX                EQ     L3.S7.1A          J                               EQ            FAX         2693     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2694     A     
 FAX                EQ     L3.S7.1A          K                               EQ            FAX         2695     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2696     A     
 FAX                EQ     L3.S7.1A          L                               EQ            FAX         2697     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2698     A     
 FAX                EQ     L3.S7.1A          M                               EQ            FAX         2699     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2700     A     
 FAX                EQ     L3.S7.1A          N                               EQ            FAX         2701     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2702     A     
 FAX                EQ     L3.S7.1A          O                               EQ            FAX         2703     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2704     A     
 FAX                EQ     L3.S7.1A          P                               EQ            FAX         2705     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2706     A     
 FAX                EQ     L3.S7.1A          Q                               EQ            FAX         2707     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2708     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2663    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                EQ     L3.S7.1A          R                               EQ            FAX         2709     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2710     A     
 FAX                EQ     L3.S7.1A          S                               EQ            FAX         2711     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2712     A     
 FAX                EQ     L3.S7.1A          T                               EQ            FAX         2713     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2714     A     
 FAX                EQ     L3.S7.1A          U                               EQ            FAX         2715     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2716     A     
 FAX                EQ     L3.S7.1A          V                               EQ            FAX         2717     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2718     A     
 FAX                EQ     L3.S7.1A          W                               EQ            FAX         2719     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2720     A     
 FAX                EQ     L3.S1                                                           FAX         2721     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2722     A     
 FAX                EQ     L3.S7.1A          Y                               EQ            FAX         2723     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2724     A     
 FAX                EQ     L3.S7.1A          Z                               EQ            FAX         2725     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2726     A     
 FAX                EQ     L3.S11Z           0                               EQ            FAX         2727     A     
 FAX       -        VFD    6/0,6/0,18/1                                                    FAX         2728     A     
 FAX                EQ     L3.S11P           1                               EQ            FAX         2729     A     
 FAX       -        VFD    6/0,6/0,18/1                                                    FAX         2730     A     
 FAX                EQ     L3.S11P           2                               EQ            FAX         2731     A     
 FAX       -        VFD    6/0,6/0,18/1                                                    FAX         2732     A     
 FAX                EQ     L3.S11P           3                               EQ            FAX         2733     A     
 FAX       -        VFD    6/0,6/0,18/1                                                    FAX         2734     A     
 FAX                EQ     L3.S11P           4                               EQ            FAX         2735     A     
 FAX       -        VFD    6/0,6/0,18/1                                                    FAX         2736     A     
 FAX                EQ     L3.S11P           5                               EQ            FAX         2737     A     
 FAX       -        VFD    6/0,6/0,18/1                                                    FAX         2738     A     
 FAX                EQ     L3.S11P           6                               EQ            FAX         2739     A     
 FAX       -        VFD    6/0,6/0,18/1                                                    FAX         2740     A     
 FAX                EQ     L3.S11P           7                               EQ            FAX         2741     A     
 FAX       -        VFD    6/0,6/0,18/1                                                    FAX         2742     A     
 FAX                EQ     L3.S7.1A          8                               EQ            FAX         2743     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2744     A     
 FAX                EQ     L3.S7.1A          9                               EQ            FAX         2745     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2746     A     
 FAX                EQ     ILL               +                               EQ            FAX         2747     A     
 FAX       -        VFD    6/1,6/1,18/3                                                    FAX         2748     A     
 FAX                EQ     L3.S11M           -                               EQ            FAX         2749     A     
 FAX       -        VFD    6/2,6/1,18/2                                                    FAX         2750     A     
 FAX                EQ     ILL               *                               EQ            FAX         2751     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2752     A     
 FAX                EQ     ILL               /                               EQ            FAX         2753     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2754     A     
 FAX                EQ     ILL               (                               EQ            FAX         2755     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2756     A     
 FAX                EQ     L3.S7.1A          )                               EQ            FAX         2757     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2758     A     
 FAX                EQ     L3.S7.1A          $                               EQ            FAX         2759     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2760     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2664    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                EQ     ILL               =                               EQ            FAX         2761     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2762     A     
 FAX                EQ     ILL               BLANK                           EQ            FAX         2763     A     
 FAX       -        VFD    6/0,6/1,18/0                                                    FAX         2764     A     
 FAX                EQ     ILL               ,                               EQ            FAX         2765     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2766     A     
 FAX                EQ     L3.S7.1A          .                               EQ            FAX         2767     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2768     A     
 FAX                EQ     L3.S7.1A          EQUIV                           EQ            FAX         2769     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2770     A     
 FAX                EQ     L3.S7.1A          RIGHT BRACKET                   EQ            FAX         2771     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2772     A     
 FAX                EQ     L3.S7.1A          LEFT BRACKET                    EQ            FAX         2773     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2774     A     
 FAX       JTEND    EQU    DEBUG                                                           FAX         2775     A     
 FAX                IFEQ   JTEND,1                                                         FAX         2776     A     
 FAX                EQ     ILL               COLON                           EQ            FAX         2777     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2778     A     
 FAX                EQ     ILL               NOT EQUAL                       EQ            FAX         2779     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2780     A     
 FAX                EQ     ILL               RIGHT ARROW                     EQ            FAX         2781     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2782     A     
 FAX                EQ     ILL               OR                              EQ            FAX         2783     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2784     A     
 FAX                EQ     ILL               AND                             EQ            FAX         2785     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2786     A     
 FAX                EQ     ILL               UP ARROW                        EQ            FAX         2787     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2788     A     
 FAX                EQ     ILL               DOWN ARROW                      EQ            FAX         2789     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2790     A     
 FAX                EQ     ILL               LESS THAN                       EQ            FAX         2791     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2792     A     
 FAX                EQ     ILL               GREATER THAN                    EQ            FAX         2793     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2794     A     
 FAX                EQ     ILL               LESS THAN OR EQUAL              EQ            FAX         2795     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2796     A     
 FAX                EQ     ILL               GREATER THAN OR EQUAL           EQ            FAX         2797     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2798     A     
 FAX                EQ     ILL               NOT                             EQ            FAX         2799     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2800     A     
 FAX                EQ     ILL               SEMI-COLON                      EQ            FAX         2801     A     
 FAX       -        VFD    6/0,6/1,18/1                                                    FAX         2802     A     
 FAX                ENDIF                                                                  FAX         2803     A     
 FAX                TITLE              PSEUDO-OP PROCESSORS                                FAX         2804     A     
 FAX      ************************************************************************         FAX         2805     A     
 FAX      *                                                                      *         FAX         2806     A     
 FAX      * VFD-    THIS ROUTINE PROCESSES THE VFD PSEUDO-OP. THE ACCEPTABLE     *         FAX         2807     A     
 FAX      *         DATA FIELDS ARE-                                             *         FAX         2808     A     
 FAX      *                                                                      *         FAX         2809     A     
 FAX      *                   (N)/(OCTAL CONSTANT),N@60,                         *         FAX         2810     A     
 FAX      *                   (N)/(ADDRESS EXPRESSION) IF THIS RESULTS IN A RE-  *         FAX         2811     A     
 FAX      *                   LOCATABLE QUANTITY THEN IT MUST BE IN THE LOWER              FAX         2812     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2665    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *                   18 BITS OF THE WORD,                               *         FAX         2813     A     
 FAX      *                   (N*6)/(M)(C,H,L OR R)(CHARACTER STRING),0<N@10,    *         FAX         2814     A     
 FAX      *                   0@M@10                                             *         FAX         2815     A     
 FAX      *         ALSO THE SUM OF THE BITS SPECIFIED IN ANY ONE APPEARANCE OF  *         FAX         2816     A     
 FAX      *         A VFD MUST BE 15,30 OR 60.                                   *         FAX         2817     A     
 FAX      *                                                                      *         FAX         2818     A     
 FAX      ************************************************************************         FAX         2819     A     
 FAX                SPACE  2                                                               FAX         2820     A     
 FAX                MOVSTART  1                                                            FAX         2821     A     
 FAX       BCTMP    BSS    1                                                               FAX         2822     A     
 FAX                MOVEND                                                                 FAX         2823     A     
 FAX                SPACE  2                                                               FAX         2824     A     
 FAX                MOVSTART  11                                                           FAX         2825     A     
 FAX       SPACES   DATA   0                 TABLE OF BLANKS USED FOR FILLING CHAR         FAX         2826     A     
 FAX                DATA   1R                STRING DATA.                                  FAX         2827     A     
 FAX                DATA   2R                                                              FAX         2828     A     
 FAX                DATA   3R                                                              FAX         2829     A     
 FAX                DATA   4R                                                              FAX         2830     A     
 FAX                DATA   5R                                                              FAX         2831     A     
 FAX                DATA   6R                                                              FAX         2832     A     
 FAX                DATA   7R                                                              FAX         2833     A     
 FAX                DATA   8R                                                              FAX         2834     A     
 FAX                DATA   9R                                                              FAX         2835     A     
 FAX                DATA   10R                                                             FAX         2836     A     
 FAX                MOVEND                                                                 FAX         2837     A     
 FAX                SPACE  2                                                               FAX         2838     A     
 FAX       L3.VFD   SB3    B6+B7                                                           FAX         2839     A     
 FAX                BX4    X4-X4                                                           FAX         2840     A     
 FAX                SB4    B4-12             SKIP 2 CHARACTERS                             FAX         2841     A     
 FAX                PL     B4,L3.V1                                                        FAX         2842     A     
 FAX                SA5    A5+B5                                                           FAX         2843     A     
 FAX                SB4    B4+B3                                                           FAX         2844     A     
 FAX                SPACE  2                                                               FAX         2845     A     
 FAX       L3.V1    GCH    X1                SCAN TO ADDRESS FIELD                         FAX         2846     A     
 FAX                SB3    X1                                                              FAX         2847     A     
 FAX                CWD                                                                    FAX         2848     A     
 FAX                EQ     B1,B3,L3.V1                                                     FAX         2849     A     
 FAX                SA0    B0                BIT COUNT.=0                                  FAX         2850     A     
 FAX                SPACE  2                                                               FAX         2851     A     
 FAX       L3.V2    SA2    =77740000000B                                                   FAX         2852     A     
 FAX                SB1    -1R0              B1.=-33B                                      FAX         2853     A     
 FAX       L3.V3    SX7    X1+B1             CONVERT THE FIELD LENGTH TO BINARY            FAX         2854     A     
 FAX                LX6    X3,B5                                                           FAX         2855     A     
 FAX                GCH    X1                                                              FAX         2856     A     
 FAX                LX3    3                                                               FAX         2857     A     
 FAX                SB3    X1                                                              FAX         2858     A     
 FAX                IX3    X3+X6                                                           FAX         2859     A     
 FAX                CWD                                                                    FAX         2860     A     
 FAX                LX6    X2,B3                                                           FAX         2861     A     
 FAX                IX3    X3+X7                                                           FAX         2862     A     
 FAX                NG     X6,L3.V3                                                        FAX         2863     A     
 FAX                SB2    X3                                                              FAX         2864     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2666    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                GCH    X1                                                              FAX         2865     A     
 FAX                CWD                                                                    FAX         2866     A     
 FAX                LX4    X4,B2                                                           FAX         2867     A     
 FAX                SX7    A0+B2                                                           FAX         2868     A     
 FAX                SA0    B2                                                              FAX         2869     A     
 FAX                SB3    X1                                                              FAX         2870     A     
 FAX                LX6    X2,B3                                                           FAX         2871     A     
 FAX                SB2    B6                                                              FAX         2872     A     
 FAX                SA7    BCTMP             EXAMINE THE FIRST CHAR OF THE DATA FI         FAX         2873     A     
 FAX                PL     X6,L3.V12         IF NOT NUMERIC THEN TREAT AN ADDRESS          FAX         2874     A     
 FAX                GCH    X6                PRESSION ELSE DECIDE BETWEEN OCTAL CO         FAX         2875     A     
 FAX                SB3    X6                STANT AND CHARACTER.                          FAX         2876     A     
 FAX                SA3    =77600000000B                                                   FAX         2877     A     
 FAX                CWD                                                                    FAX         2878     A     
 FAX                LX2    X3,B3                                                           FAX         2879     A     
 FAX                SX1    X1+B1                                                           FAX         2880     A     
 FAX                PL     X2,L3.V5                                                        FAX         2881     A     
 FAX                GCH    X7                                                              FAX         2882     A     
 FAX                SB3    X7                                                              FAX         2883     A     
 FAX                CWD                                                                    FAX         2884     A     
 FAX                LX2    X3,B3                                                           FAX         2885     A     
 FAX                SX6    X6+B1                                                           FAX         2886     A     
 FAX                LX1    3                                                               FAX         2887     A     
 FAX                PL     X2,L3.V6                                                        FAX         2888     A     
 FAX                LX2    X3,B0                                                           FAX         2889     A     
 FAX                BX3    X1+X6                                                           FAX         2890     A     
 FAX                SPACE  2                                                               FAX         2891     A     
 FAX       L3.V7    SX1    X7+B1             OCTAL CONSTANT                                FAX         2892     A     
 FAX                GCH    X7                                                              FAX         2893     A     
 FAX                CWD                                                                    FAX         2894     A     
 FAX                LX3    3                                                               FAX         2895     A     
 FAX                SB2    X7                                                              FAX         2896     A     
 FAX                BX3    X3+X1                                                           FAX         2897     A     
 FAX                LX6    X2,B2                                                           FAX         2898     A     
 FAX                NG     X6,L3.V7                                                        FAX         2899     A     
 FAX                SPACE  2                                                               FAX         2900     A     
 FAX       L3.V8    GCH    X7                B3.= NEXT CHARACTER, EXIT                     FAX         2901     A     
 FAX                SB3    X7                                                              FAX         2902     A     
 FAX                CWD                                                                    FAX         2903     A     
 FAX                EQ     L3.V50                                                          FAX         2904     A     
 FAX                SPACE  2                                                               FAX         2905     A     
 FAX                MOVSTART  2                                                            FAX         2906     A     
 FAX       L3.V5    SB1    X6-1RB                                                          FAX         2907     A     
 FAX                BX3    X1                                                              FAX         2908     A     
 FAX                SB2    X3                                                              FAX         2909     A     
 FAX                NZ     B1,L3.V9          IF CH=B THEN 1 DIGIT OCTAL CONSTANT E         FAX         2910     A     
 FAX                EQ     L3.V8             ASSUME CHARACTER DATA.                        FAX         2911     A     
 FAX                MOVEND                                                                 FAX         2912     A     
 FAX                SPACE  2                                                               FAX         2913     A     
 FAX                MOVSTART  2                                                            FAX         2914     A     
 FAX       L3.V6    SB1    X7-1RB                                                          FAX         2915     A     
 FAX                NZ     B1,L3.V20         IF CH=B THEN 2 DIGIT OCTAL CONSTANT E         FAX         2916     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2667    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                BX3    X1+X6             CHARACTER DATA.                               FAX         2917     A     
 FAX                EQ     L3.V8                                                           FAX         2918     A     
 FAX                MOVEND                                                                 FAX         2919     A     
 FAX                SPACE  2                                                               FAX         2920     A     
 FAX                MOVSTART  3                                                            FAX         2921     A     
 FAX       L3.V30   SB1    B2-B1                                                           FAX         2922     A     
 FAX                SX7    B1+B1                                                           FAX         2923     A     
 FAX                SA1    B1+SPACES                                                       FAX         2924     A     
 FAX                SB1    X7                                                              FAX         2925     A     
 FAX                LX7    1                                                               FAX         2926     A     
 FAX                SB1    B1+X7                                                           FAX         2927     A     
 FAX                LX3    X3,B1                                                           FAX         2928     A     
 FAX                BX3    X1+X3                                                           FAX         2929     A     
 FAX                EQ     L3.V40                                                          FAX         2930     A     
 FAX                MOVEND                                                                 FAX         2931     A     
 FAX                SPACE  2                                                               FAX         2932     A     
 FAX                MOVSTART  2                                                            FAX         2933     A     
 FAX       L3.V12   MX7    0                                                               FAX         2934     A     
 FAX                BX6    X6-X6                                                           FAX         2935     A     
 FAX                RJ     EVAL                                                            FAX         2936     A     
 FAX                SB3    B1                                                              FAX         2937     A     
 FAX                BX3    X3-X3                                                           FAX         2938     A     
 FAX                EQ     L3.V50                                                          FAX         2939     A     
 FAX                MOVEND                                                                 FAX         2940     A     
 FAX                SPACE  2                                                               FAX         2941     A     
 FAX                MOVSTART  5                                                            FAX         2942     A     
 FAX       L3.V21   SA2    =40000000000000060000B                                          FAX         2943     A     
 FAX                SB2    B0                                                              FAX         2944     A     
 FAX       L3.V22   GCH    X1                                                              FAX         2945     A     
 FAX                SB3    X1                                                              FAX         2946     A     
 FAX                CWD                                                                    FAX         2947     A     
 FAX                LX7    X2,B3                                                           FAX         2948     A     
 FAX                NG     X7,L3.V40                                                       FAX         2949     A     
 FAX                LX3    6                                                               FAX         2950     A     
 FAX                BX3    X3+X1                                                           FAX         2951     A     
 FAX                SB2    B2+B5                                                           FAX         2952     A     
 FAX                EQ     L3.V22                                                          FAX         2953     A     
 FAX                MOVEND                                                                 FAX         2954     A     
 FAX                SPACE  2                                                               FAX         2955     A     
 FAX                MOVSTART  7                                                            FAX         2956     A     
 FAX       L3.V20   SB2    10                                                              FAX         2957     A     
 FAX                BX6    X7                                                              FAX         2958     A     
 FAX       L3.V9    ZR     X3,L3.V21         IF CH COUNT=0 THEN PACK UNTIL COMMA,S         FAX         2959     A     
 FAX                SB1    B0                ZERO BYTE ELSE KEEP COUNT.                    FAX         2960     A     
 FAX                BX3    X3-X3                                                           FAX         2961     A     
 FAX       L3.V29   GCH    X1                                                              FAX         2962     A     
 FAX                SB3    X1                                                              FAX         2963     A     
 FAX                CWD                                                                    FAX         2964     A     
 FAX                EQ     B1,B2,L3.V40                                                    FAX         2965     A     
 FAX                ZR     X1,L3.V30                                                       FAX         2966     A     
 FAX                LX3    6                                                               FAX         2967     A     
 FAX                SB1    B1+B5                                                           FAX         2968     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2668    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                BX3    X3+X1                                                           FAX         2969     A     
 FAX                EQ     L3.V29                                                          FAX         2970     A     
 FAX                MOVEND                                                                 FAX         2971     A     
 FAX                SPACE  2                                                               FAX         2972     A     
 FAX       L3.V40   SB1    X6-1RR                                                          FAX         2973     A     
 FAX                ZR     B1,L3.V50                                                       FAX         2974     A     
 FAX                SB2    B2+B2                                                           FAX         2975     A     
 FAX                SB1    B2+B2                                                           FAX         2976     A     
 FAX                SX1    X6-1RH                                                          FAX         2977     A     
 FAX                SB1    B1+B2                                                           FAX         2978     A     
 FAX                SB1    A0-B1                                                           FAX         2979     A     
 FAX                LX3    X3,B1                                                           FAX         2980     A     
 FAX                NZ     X1,L3.V50                                                       FAX         2981     A     
 FAX                SA0    -B5                                                             FAX         2982     A     
 FAX       L3.V41   SB1    B1-B6                                                           FAX         2983     A     
 FAX                SA0    A0+B5                                                           FAX         2984     A     
 FAX                PL     B1,L3.V41                                                       FAX         2985     A     
 FAX                SA1    A0+SPACES                                                       FAX         2986     A     
 FAX                BX3    X1+X3                                                           FAX         2987     A     
 FAX       L3.V50   SB1    B3-1R,                                                          FAX         2988     A     
 FAX                SA1    BCTMP                                                           FAX         2989     A     
 FAX                BX4    X3+X4                                                           FAX         2990     A     
 FAX                SA0    X1                                                              FAX         2991     A     
 FAX                BX3    X3-X3                                                           FAX         2992     A     
 FAX                GCH    X1                                                              FAX         2993     A     
 FAX                CWD                                                                    FAX         2994     A     
 FAX                ZR     B1,L3.V2                                                        FAX         2995     A     
 FAX                SB6    L4.CKL                                                          FAX         2996     A     
 FAX                SB1    A0                                                              FAX         2997     A     
 FAX                EQ     WRTEXT                                                          FAX         2998     A     
 FAX      *                                                                                FAX         2999     A     
 FAX      *         DIS                                                                    FAX         3000     A     
 FAX      *                                                                                FAX         3001     A     
 FAX                MOVSTART  2                                                            FAX         3002     A     
 FAX       DISLOC   BSS    2                 WORD COUNT AND LOCATION FOR PDIS              FAX         3003     A     
 FAX                MOVEND                                                                 FAX         3004     A     
 FAX                                                                                       FAX         3005     A     
 FAX       PDIS     SX7    A5+B5             SAVE ADDRESS OF INPUT                         FAX         3006     A     
 FAX                SB1    60                SET BIT COUNT FOR WRTEXT                      FAX         3007     A     
 FAX                AX5    6                 SHIFT OFF COMMA                               FAX         3008     A     
 FAX                MX0    60-6                                                            FAX         3009     A     
 FAX                BX6    -X0*X5            MASK OFF WORD COUNT                           FAX         3010     A     
 FAX                SB6    PDIS1             SET RETURN ADDRESS FOR WRTEXT                 FAX         3011     A     
 FAX                SX6    X6-1R0            CONVERT DISPLAY TO BINARY                     FAX         3012     A     
 FAX                SA6    DISLOC                                                          FAX         3013     A     
 FAX                SA4    A5+B5                                                           FAX         3014     A     
 FAX                SA7    A6+B5                                                           FAX         3015     A     
 FAX                EQ     WRTEXT            GO ADD TO TEXT TABLE                          FAX         3016     A     
 FAX                                                                                       FAX         3017     A     
 FAX       PDIS1    SA5    DISLOC                                                          FAX         3018     A     
 FAX                SX0    B5                                                              FAX         3019     A     
 FAX                IX7    X5-X0             DECREMENT WORD COUNT                          FAX         3020     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2669    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                ZR     X7,INITL                                                        FAX         3021     A     
 FAX                SA4    A5+B5             ADDR OF LAST WORD                             FAX         3022     A     
 FAX                SA7    A5                                                              FAX         3023     A     
 FAX                IX6    X4+X0                                                           FAX         3024     A     
 FAX                SA6    A4                SAVE ADDR OF NEXT WORD                        FAX         3025     A     
 FAX                                                                                       FAX         3026     A     
 FAX                WR1WD  X6,PDIS1          WRITE A WORD AND LOOP FOR NEXT                FAX         3027     A     
 FAX      *                                                                                FAX         3028     A     
 FAX      *         DATA                                                                   FAX         3029     A     
 FAX      *                                                                                FAX         3030     A     
 FAX                MOVSTART  7                                                            FAX         3031     A     
 FAX       PDATA    SB4    B4-18                                                           FAX         3032     A     
 FAX                PL     B4,PDAT1                                                        FAX         3033     A     
 FAX                SA5    A5+B5                                                           FAX         3034     A     
 FAX                SB4    B4+60                                                           FAX         3035     A     
 FAX       PDAT1    GCH    X3                                                              FAX         3036     A     
 FAX                SB2    X3                                                              FAX         3037     A     
 FAX                CWD                                                                    FAX         3038     A     
 FAX                EQ     B1,B2,PDAT1                                                     FAX         3039     A     
 FAX                RJ     CONVERT                                                         FAX         3040     A     
 FAX                SB1    B6+B7                                                           FAX         3041     A     
 FAX                SB6    L4.CKL                                                          FAX         3042     A     
 FAX                BX4    X1                                                              FAX         3043     A     
 FAX                EQ     WRTEXT                                                          FAX         3044     A     
 FAX                MOVEND                                                                 FAX         3045     A     
 FAX                SPACE  4                                                               FAX         3046     A     
 FAX      ***                                                                              FAX         3047     A     
 FAX      *         PAPL - PROCESS APL MACRO CALL                                          FAX         3048     A     
 FAX       PAPL     SB4    B7                                                              FAX         3049     A     
 FAX                BX4    -X0*X5                                                          FAX         3050     A     
 FAX                ZR     X4,PAPL1    IF NO ARG                                           FAX         3051     A     
 FAX                SA5    A5+B5                                                           FAX         3052     A     
 FAX                GCH    X1                                                              FAX         3053     A     
 FAX                SX2    X1-1R-                                                          FAX         3054     A     
 FAX                NZ     X2,PAPL2                                                        FAX         3055     A     
 FAX                MX4    60          WORD = -0                                           FAX         3056     A     
 FAX       PAPL1    WR1WD  ,INITL                                                          FAX         3057     A     
 FAX                                                                                       FAX         3058     A     
 FAX       PAPL2    MX7    0                                                               FAX         3059     A     
 FAX                BX6    X6-X6                                                           FAX         3060     A     
 FAX                SB3    X1                                                              FAX         3061     A     
 FAX                MX4    0                                                               FAX         3062     A     
 FAX                SB2    6                                                               FAX         3063     A     
 FAX                RJ     EVAL        EVALUATE THE EXPRESSION                             FAX         3064     A     
 FAX                WR1WD  ,L4.CKL                                                         FAX         3065     A     
 FAX                                                                                       FAX         3066     A     
 FAX       PLAP     SPACE  3,14                                                            FAX         3067     A     
 FAX      **        PLAP - PROCESS *LAP* MACRO.                                            FAX         3068     A     
 FAX      *                                                                                FAX         3069     A     
 FAX       PLAP     SB4    B4-18                                                           FAX         3070          I
          -FCC0982
 FAX       PLAP1    GCH    X3                                                              FAX         3071          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2670    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          -FCC0982
 FAX                CWD                                                                    FAX         3072          I
          -FCC0982
 FAX                SX6    X3-1R                                                           FAX         3073          I
          -FCC0982
 FAX                ZR     X6,PLAP1    IF BLANK                                            FAX         3074          I
          -FCC0982
 FAX                SX6    X3-1R?                                                          FAX         3075          I
          -FCC0982
 FAX                ZR     X6,PLAP1    IF ?                                                FAX         3076          I
          -FCC0982
 FAX                RJ     CONVERT     CONVERT ?ORDINAL                                    FAX         3077          I
          -FCC0982
 FAX                SX6    X1-1                                                            FAX         3078          I
          -FCC0982
 FAX                SA6    NNAME       RB                                                  FAX         3079          I
          -FCC0982
 FAX                MX1    0                                                               FAX         3080          I
          -FCC0982
 FAX                SX3    X3+1R0-1R,  RESTORE LAST CHARACTER                              FAX         3081          I
          -FCC0982
 FAX                NZ     X3,PLAP2    IF NOT COMMA                                        FAX         3082          I
          -FCC0982
 FAX                GCH    X3                                                              FAX         3083          I
          -FCC0982
 FAX                CWD                                                                    FAX         3084          I
          -FCC0982
 FAX                RJ     CONVERT     CONVERT BIAS                                        FAX         3085          I
          -FCC0982
 FAX                                                                                       FAX         3086          I
          -FCC0982
 FAX       PLAP2    SA2    NNAME                                                           FAX         3087          I
          -FCC0982
 FAX                SX3    2                                                               FAX         3088          I
          -FCC0982
 FAX                MX0    1                                                               FAX         3089          I
          -FCC0982
 FAX                LX2    P.RB                                                            FAX         3090          I
          -FCC0982
 FAX                BX4    X0+X1       LCM BIT .OR. BIAS                                   FAX         3091          I
          -FCC0982
 FAX                LX3    P.RL                                                            FAX         3092          I
          -FCC0982
 FAX                                                                                       FCC0982        4     A     
 FAX       PLAP     SB4    B4-12                                                           FCC0982        5     A     
 FAX                                                                                       FCC0982        6     A     
 FAX       PLAP1    GCH    X3                                                              FCC0982        7     A     
 FAX                CWD                                                                    FCC0982        8     A     
 FAX                SX6    X3-1R                                                           FCC0982        9     A     
 FAX                ZR     X6,PLAP1    IF BLANK                                            FCC0982       10     A     
 FAX                SX6    X3-1R?                                                          FCC0982       11     A     
 FAX                ZR     X6,PLAP2    IF ?MMM SYMBOL                                      FCC0982       12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2671    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SB3    X3                                                              FCC0982       13     A     
 FAX                BX1    X3                                                              FCC0982       14     A     
 FAX                SB2    B6                                                              FCC0982       15     A     
 FAX                RJ     REF                                                             FCC0982       16     A     
 FAX                LX2    -P.RB                                                           FCC0982       17     A     
 FAX                MX1    -L.RB                                                           FCC0982       18     A     
 FAX                BX6    -X1*X2      BLOCK ORDINAL                                       FCC0982       19     A     
 FAX                SA6    NNAME                                                           FCC0982       20     A     
 FAX                BX6    X3                                                              FCC0982       21     A     
 FAX                SA6    VNAME       RA                                                  FCC0982       22     A     
 FAX                SX3    B1-1R0      LAST CHARACTER                                      FCC0982       23     A     
 FAX                EQ     PLAP3                                                           FCC0982       24     A     
 FAX                                                                                       FCC0982       25     A     
 FAX       PLAP2    GCH    X3          FIRST DIGIT OF MMM                                  FCC0982       26     A     
 FAX                MX6    0                                                               FCC0982       27     A     
 FAX                SA6    VNAME                                                           FCC0982       28     A     
 FAX                RJ     CONVERT                                                         FCC0982       29     A     
 FAX                SX6    X1-1                                                            FCC0982       30     A     
 FAX                SA6    NNAME       BLOCK ORDINAL                                       FCC0982       31     A     
 FAX                                                                                       FCC0982       32     A     
 FAX       PLAP3    SX1    X3+1R0                                                          FCC0982       33     A     
 FAX                ZR     X1,PLAP4    IF END OF LINE                                      FCC0982       34     A     
 FAX                SX1    X1-1R                                                           FCC0982       35     A     
 FAX                ZR     X1,PLAP4    IF BLANK                                            FCC0982       36     A     
 FAX                RJ     NMLG                                                            FCC0982       37     A     
 FAX                RJ     CONVERT                                                         FCC0982       38     A     
 FAX                                                                                       FCC0982       39     A     
 FAX       PLAP4    MX0    1                                                               FCC0982       40     A     
 FAX                SA2    VNAME                                                           FCC0982       41     A     
 FAX                IX3    X1+X2       RA + BIAS                                           FCC0982       42     A     
 FAX                BX4    X0+X3       ADD LCM BIT                                         FCC0982       43     A     
 FAX                SA2    NNAME                                                           FCC0982       44     A     
 FAX                SX3    2           COMMON RELOCATION                                   FCC0982       45     A     
 FAX                LX3    P.RL                                                            FCC0982       46     A     
 FAX                LX2    P.RB                                                            FCC0982       47     A     
 FAX                BX6    X2+X3                                                           FAX         3093     A     
 FAX                SA6    RBTEMP                                                          FAX         3094     A     
 FAX                WR1WD                                                                  FAX         3095     A     
 FAX                                                                                       FAX         3096     A     
 FAX                SA2    NNAME                                                           FAX         3097     A     
 FAX                RJ     ALR         LCM RELOCATION                                      FAX         3098     A     
 FAX                EQ     INITL                                                           FAX         3099     A     
 FAX                                                                                       FAX         3100     A     
 FAX      ***                                                                              FAX         3101     A     
 FAX      *         ALR - ADD LCM RELOCATION                                               FAX         3102     A     
 FAX      *         ADDS THE LCM FILL INFORMATION TO THE FILL CHAIN                        FAX         3103     A     
 FAX      *                                                                                FAX         3104     A     
 FAX      *         ENTRY  X2 - RB ORDINAL OF LCM BLOCK - 1                                FAX         3105     A     
 FAX      *                                                                                FAX         3106     A     
 FAX       ALR      ENTRY. *                 ** ENTRY/EXIT **                              FAX         3107     A     
 FAX                PX1    X2                                                              FAX         3108     A     
 FAX                SA3    =22.P0                                                          FAX         3109     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2672    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                DX1    X1*X3             22*RB ORDINAL                                 FAX         3110     A     
 FAX                SA3    TEXT.ADD                                                        FAX         3111     A     
 FAX                SA5    CORGTAB                                                         FAX         3112     A     
 FAX                IX1    X1+X5             CORGTAB + 22*RB                               FAX         3113     A     
 FAX                SA2    X3-3              LCT, ORGC OF LOCAL BLOCK                      FAX         3114     A     
 FAX                SA3    X1+2              LCT,ORGC OF COMMON BLOCK                      FAX         3115     A     
 FAX                MX0    1                                                               FAX         3116     A     
 FAX                BX6    X0+X3                                                           FAX         3117     A     
 FAX                LX2    30                                                              FAX         3118     A     
 FAX                BX7    X0+X2                                                           FAX         3119     A     
 FAX                SA6    A3                                                              FAX         3120     A     
 FAX                SA5    FREEMEM           NEXT FREE CELL ADDRESS                        FAX         3121     A     
 FAX                SA2    MEMEND                                                          FAX         3122     A     
 FAX                MX0    60-18                                                           FAX         3123     A     
 FAX                SA3    X1                CORGTAB HEADER WORD                           FAX         3124     A     
 FAX                SX6    X5+B5             FREEMEM + 1                                   FAX         3125     A     
 FAX                BX1    -X0*X3            POINTER TO END OF CHAIN                       FAX         3126     A     
 FAX                IX2    X2-X5             MEMEND - FREEMEM                              FAX         3127     A     
 FAX                BX3    X0*X3             BLOCK NAME                                    FAX         3128     A     
 FAX                NG     X2,STOVER         IF STORAGE OVERFLOW                           FAX         3129     A     
 FAX                                                                                       FAX         3130     A     
 FAX                SA6    A5                FREEMEM = FREEMEM + 1                         FAX         3131     A     
 FAX                BX7    X7+X1             INSERT POINTER                                FAX         3132     A     
 FAX                IX6    X5+X3             INSERT LINK TO CHAIN                          FAX         3133     A     
 FAX                SA7    X5                FILL WORD                                     FAX         3134     A     
 FAX                SA6    A3                NEW HEAD OF CHAIN                             FAX         3135     A     
 FAX                BX7    X7-X7                                                           FAX         3136     A     
 FAX                SA7    RBTEMP                                                          FAX         3137     A     
 FAX                EQ     ALR                                                             FAX         3138     A     
 FAX       HOL      SPACE  3                                                               FAX         3139     A     
 FAX      ***                                                                              FAX         3140     A     
 FAX      *         PHOL - PROCESS HOL MACRO CALL                                          FAX         3141     A     
 FAX      *                                                                                FAX         3142     A     
 FAX       PHOL     MX0    60-6                                                            FAX         3143     A     
 FAX                BX1    -X0*X5            TYPE ( H , L OR R )                           FAX         3144     A     
 FAX                AX5    6                                                               FAX         3145     A     
 FAX                SA4    A5+B5             CHARACTERS                                    FAX         3146     A     
 FAX                SX6    X1-1RH                                                          FAX         3147     A     
 FAX                ZR     X6,PHOL1          IF H TYPE DATA                                FAX         3148     A     
 FAX                BX2    -X0*X5                                                          FAX         3149     A     
 FAX                SX3    X2-1R0            CHAR COUNT ( 1 - 9 )                          FAX         3150     A     
 FAX                IX2    X3+X3                                                           FAX         3151     A     
 FAX                LX3    2                                                               FAX         3152     A     
 FAX                IX7    X2+X3             6*CC                                          FAX         3153     A     
 FAX                SB1    X7-1                                                            FAX         3154     A     
 FAX                MX0    1                                                               FAX         3155     A     
 FAX                AX0    B1,X0             FORM MASK                                     FAX         3156     A     
 FAX                BX4    X0*X4             REMOVE TRAILING BLANKS                        FAX         3157     A     
 FAX                SX1    X1-1RL                                                          FAX         3158     A     
 FAX                ZR     X1,PHOL1          IF L FORMAT                                   FAX         3159     A     
 FAX                SB1    B1+B5                                                           FAX         3160     A     
 FAX                LX4    B1,X4                                                           FAX         3161     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2673    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       PHOL1    WR1WD  ,INITL            WRITE WORD AND RETURN                         FAX         3162     A     
 FAX       REPI     SPACE  3                                                               FAX         3163     A     
 FAX      ***                                                                              FAX         3164     A     
 FAX      *         REPI MACRO PROCESSING                                                  FAX         3165     A     
 FAX      *                                                                                FAX         3166     A     
 FAX                                                                                       FAX         3167     A     
 FAX       PREPIC   VFD    12/4300B,12/2,36/1  REPI TABLE HEADER WORD                      FAX         3168     A     
 FAX                BSS    1                 33/INC,27/S.                                  FAX         3169     A     
 FAX                BSS    1                 18/REP COUNT,15/WORDS,27/DESTIN ADD           FAX         3170     A     
 FAX                                                                                       FAX         3171     A     
 FAX       PREPI    SA1    S.                RB AND RA OF LAST ORG                         FAX         3172     A     
 FAX                SA5    A5+B5             NEXT WORD                                     FAX         3173     A     
 FAX                BX6    X1                                                              FAX         3174     A     
 FAX                SA6    PREPIC+1                                                        FAX         3175     A     
 FAX                SB4    B7                                                              FAX         3176     A     
 FAX                GCH    X3                                                              FAX         3177     A     
 FAX                RJ     CONVERT           DATA BLOCK LENGTH                             FAX         3178     A     
 FAX                LX1    27                                                              FAX         3179     A     
 FAX                BX6    X1                                                              FAX         3180     A     
 FAX                SA6    PREPIC+2                                                        FAX         3181     A     
 FAX                RJ     NMLG              SKIP                                          FAX         3182     A     
 FAX                RJ     NMLG              COMMA                                         FAX         3183     A     
 FAX                RJ     CONVERT                                                         FAX         3184     A     
 FAX                SA2    PREPIC+2                                                        FAX         3185     A     
 FAX                LX1    42                                                              FAX         3186     A     
 FAX                BX6    X1+X2             OR IN REP COUNT                               FAX         3187     A     
 FAX                SA6    A2                                                              FAX         3188     A     
 FAX                RJ     NMLG              NEXT CHAR                                     FAX         3189     A     
 FAX                NZ     X2,PREPI1         IF NO MORE ARGS                               FAX         3190     A     
 FAX                RJ     NMLG                                                            FAX         3191     A     
 FAX                RJ     CONVERT           CONVERT INCREMENT                             FAX         3192     A     
 FAX                SA2    PREPIC+1                                                        FAX         3193     A     
 FAX                LX1    27                                                              FAX         3194     A     
 FAX                BX6    X1+X2                                                           FAX         3195     A     
 FAX                SA6    A2                                                              FAX         3196     A     
 FAX                RJ     NMLG                                                            FAX         3197     A     
 FAX                NZ     X2,PREPI1         IF NO COMMA                                   FAX         3198     A     
 FAX                RJ     NMLG                                                            FAX         3199     A     
 FAX                RJ     CONVERT                                                         FAX         3200     A     
 FAX                SA2    S.                                                              FAX         3201     A     
 FAX                SA3    PREPIC+2                                                        FAX         3202     A     
 FAX                IX1    X1+X2                                                           FAX         3203     A     
 FAX                BX6    X1+X3                                                           FAX         3204     A     
 FAX                SA6    A3                                                              FAX         3205     A     
 FAX                                                                                       FAX         3206     A     
 FAX       PREPI1   RJ     FOTEXT            FORCE OUT SOURCE DATA                         FAX         3207     A     
 FAX                SA1    FV.LGO                                                          FAX         3208     A     
 FAX                SB1    1                                                               FAX         3209     A     
 FAX                ZR     X1,NOBINPO        IF BINARY OUTPUT OPTION OFF (B=0)             FAX         3210     A     
 FAX                WRITEW F.LGO,PREPIC,3    REPL (43) TABLE                               FAX         3211     A     
 FAX                SB5    B1+                                                             FAX         3212     A     
 FAX                EQ     NOBINPO                                                         FAX         3213     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2674    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       LDSET    SPACE  4,10                                                            F162FTNA    1179     A     
 FAX      ***                                                                              F162FTNA    1180     A     
 FAX      *         PLDSET - LIST AND SKIP *LDSET* DIRECTIVE.                              F162FTNA    1181     A     
 FAX      *                                                                                F162FTNA    1182     A     
 FAX       PLDSET   BSS    0                                                               F162FTNA    1183     A     
 FAX                SA1    =XOLIST                                                         F162FTNA    1184     A     
 FAX                SB1    1                                                               F162FTNA    1185     A     
 FAX                ZR     X1,INITL    IF OBJECT LISTING NOT SELECTED                      F162FTNA    1186     A     
 FAX                LISTL  LINE,8      LIST *LDSET* DIRECTIVE                              F162FTNA    1187     A     
 FAX                SB5    B1                                                              F162FTNA    1188     A     
 FAX                EQ     INITL                                                           F162FTNA    1189     A     
 FAX       EQU      SPACE  4                                                               F162FTNA    1190     A     
 FAX      *                                                                                FAX         3214     A     
 FAX      *      EQU-1.SET ALABEL TO ZERO                                                  FAX         3215     A     
 FAX      *          2.RESTORE NFLAG FROM X4,A4                                            FAX         3216     A     
 FAX      *                                                                                FAX         3217     A     
 FAX                MOVSTART  2                                                            FAX         3218     A     
 FAX       L3.EQU   BX6    X4                                                              FAX         3219     A     
 FAX                SA7    ALABEL                                                          FAX         3220     A     
 FAX                SA6    A4                                                              FAX         3221     A     
 FAX                EQ     NOBINPO                                                         FAX         3222     A     
 FAX                MOVEND                                                                 FAX         3223     A     
 FAX      *                                                                                FAX         3224     A     
 FAX      *         BSS                                                                    FAX         3225     A     
 FAX      *                                                                                FAX         3226     A     
 FAX                MOVSTART  8                                                            FAX         3227     A     
 FAX       PBSS     SB4    B4-B6                                                           FAX         3228     A     
 FAX                CWD                                                                    FAX         3229     A     
 FAX                GCH    X3                GET FIRST CHARACTER FOR CONVERT               FAX         3230     A     
 FAX                SX6    B5                                                              FAX         3231     A     
 FAX                CWD                                                                    FAX         3232     A     
 FAX                SA6    FFLAG             FORCE UPPER                                   FAX         3233     A     
 FAX                RJ     CONVERT           GO CONVERT ARGUMENT                           FAX         3234     A     
 FAX                BX7    X1                                                              FAX         3235     A     
 FAX                SB1    B0                BIT COUNT FOR WRTEXT                          FAX         3236     A     
 FAX                SB6    PBSS1             RETURN ADDRESS FOR WRTEXT                     FAX         3237     A     
 FAX                SA7    BSPFLAG           SAVE ARGUMENT                                 FAX         3238     A     
 FAX                BX4    X4-X4                                                           FAX         3239     A     
 FAX                EQ     WRTEXT            GO FORCE UPPER                                FAX         3240     A     
 FAX                MOVEND                                                                 FAX         3241     A     
 FAX                SPACE  2                                                               FAX         3242     A     
 FAX                MOVSTART  4                                                            FAX         3243     A     
 FAX       PBSS1    SA1    BSPFLAG                                                         FAX         3244     A     
 FAX                ZR     X1,PBSS3          SENSE BSS 0                                   FAX         3245     A     
 FAX                SA3    TEXT.ADD                                                        FAX         3246     A     
 FAX                SA2    X3-3                                                            FAX         3247     A     
 FAX                IX6    X2+X1             ADD ARGUMENT TO ORGC                          FAX         3248     A     
 FAX                SA6    A2                                                              FAX         3249     A     
 FAX                RJ     FOTEXT            GO FORCE OUT TEXT TABLE                       FAX         3250     A     
 FAX       PBSS3    SB3    60                                                              FAX         3251     A     
 FAX                EQ     NOBINPO                                                         FAX         3252     A     
 FAX                MOVEND                                                                 FAX         3253     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2675    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *                                                                                FAX         3254     A     
 FAX      *         USE AND USELCM                                                         FAX         3255     A     
 FAX      *                                                                                FAX         3256     A     
 FAX                                                                                       FAX         3257     A     
 FAX       PUSEA    BSSZ   1                                                               FAX         3258     A     
 FAX                                                                                       FAX         3259     A     
 FAX       PUSE     SB4    B4-B6                                                           FAX         3260     A     
 FAX                SB2    1R/                                                             FAX         3261     A     
 FAX                GCH    X1                                                              FAX         3262     A     
 FAX                SB3    X1                                                              FAX         3263     A     
 FAX                NE     B1,B3,PUSE5       IF A USELCM OPCODE                            FAX         3264     A     
 FAX       USESCM   GCH    X1                GET NEXT CHARACTER                            FAX         3265     A     
 FAX                SB3    X1                                                              FAX         3266     A     
 FAX                CWD                                                                    FAX         3267     A     
 FAX                EQ     B1,B3,USESCM      IF A BLANK                                    FAX         3268     A     
 FAX                EQ     B2,B3,USECOM                                                    FAX         3269     A     
 FAX                SA2    LORGTAB                                                         FAX         3270     A     
 FAX       PUSE2    SA0    X2                SEARCH ORIGIN FOR USENXT                      FAX         3271     A     
 FAX                SB2    B6                BIT COUNT FOR PACKID                          FAX         3272     A     
 FAX                RJ     PACKID            GET BLOCK NAME                                FAX         3273     A     
 FAX                LX1    12                                                              FAX         3274     A     
 FAX       PUSE4    RJ     USENXT                                                          FAX         3275     A     
 FAX       OLJ      IFNE   .JOL,0                                                          FAX         3276     A     
 FAX                SA3    LORGTAB                                                         FAX         3277     A     
 FAX                SB6    X3+3*22                                                         FAX         3278     A     
 FAX                SX7    A2-B6                                                           FAX         3279     A     
 FAX                NZ     X7,NOBINPO  IF NOT *CODE.*                                      FAX         3280     A     
 FAX                SA3    PROGRAM                                                         FAX         3281     A     
 FAX                ZR     X3,NOBINPO  IF BLOCK DATA                                       FAX         3282     A     
 FAX                UX3    B6,X3                                                           FAX         3283     A     
 FAX                NZ     B6,PUSE4A   IF NOT MAIN PROGRAM                                 FAX         3284     A     
 FAX                SA3    PUSEA                                                           FAX         3285     A     
 FAX                MX7    1                                                               FAX         3286     A     
 FAX                SA7    A3                                                              FAX         3287     A     
 FAX                ZR     X3,NOBINPO  IF FIRST *USE CODE.*                                FAX         3288     A     
 FAX                                                                                       FAX         3289     A     
 FAX       PUSE4A   PLUG   AT=WRL.8,FROM=RJJOL                                             FAX         3290     A     
 FAX       OLJ      ENDIF                                                                  FAX         3291     A     
 FAX                EQ     NOBINPO                                                         FAX         3292     A     
 FAX                                                                                       FAX         3293     A     
 FAX       PUSE5    SA5    A5+B5             ADVANCE TO NEXT WORD                          FAX         3294     A     
 FAX                SB4    B7                RESET SHIFT COUNTER                           FAX         3295     A     
 FAX       USECOM   GCH    X1                                                              FAX         3296     A     
 FAX                SB3    X1                                                              FAX         3297     A     
 FAX                CWD                                                                    FAX         3298     A     
 FAX                SA2    CORGTAB                                                         FAX         3299     A     
 FAX                NE     B2,B3,PUSE2                                                     FAX         3300     A     
 FAX                SA1    =7L//                                                           FAX         3301     A     
 FAX                SA0    X2                                                              FAX         3302     A     
 FAX                EQ     PUSE4                                                           FAX         3303     A     
 FAX                SPACE  2                                                               FAX         3304     A     
 FAX      *                                                                                FAX         3305     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2676    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *                                                                                FAX         3306     A     
 FAX      *         USENXT - CHANGE BLOCKS                                                 FAX         3307     A     
 FAX      *                                                                                FAX         3308     A     
 FAX      *         CALLING SEQUENCE -                                                     FAX         3309     A     
 FAX      *                   X1 = NAME OF NEW BLOCK LEFT JUSTIFIED IN BITS                FAX         3310     A     
 FAX      *                   18 - 59 WITH BLANK FILL                                      FAX         3311     A     
 FAX      *                   A0 = FWA OF TABLE (CORGTAB OR LORGTAB) WHICH                 FAX         3312     A     
 FAX      *                   CONTAINS NAME                                                FAX         3313     A     
 FAX      *                                                                                FAX         3314     A     
 FAX                SPACE  4                                                               FAX         3315     A     
 FAX                MOVSTART  8                                                            FAX         3316     A     
 FAX       USENXT   BSS    1                                                               FAX         3317     A     
 FAX                SA2    A0-22                                                           FAX         3318     A     
 FAX                MX0    42                                                              FAX         3319     A     
 FAX                BX1    X0*X1                                                           FAX         3320     A     
 FAX       USENXT1  SA2    A2+22             LOOK FOR NEW BLOCK                            FAX         3321     A     
 FAX                BX2    X0*X2                                                           FAX         3322     A     
 FAX                IX2    X2-X1                                                           FAX         3323     A     
 FAX                NZ     X2,USENXT1        SENSE NEW BLOCK FOUND                         FAX         3324     A     
 FAX                SA3    NFLAG                                                           FAX         3325     A     
 FAX                SA4    TEXT.ADD                                                        FAX         3326     A     
 FAX                SA1    A2+B5             LOAD NEW NFLAG                                FAX         3327     A     
 FAX                BX6    X3                                                              FAX         3328     A     
 FAX                SA6    X4-4                                                            FAX         3329     A     
 FAX                SX7    A2+5                                                            FAX         3330     A     
 FAX                BX6    X1                                                              FAX         3331     A     
 FAX                SA7    A4                                                              FAX         3332     A     
 FAX                SA6    A3                                                              FAX         3333     A     
 FAX                BX7    X4                                                              FAX         3334     A     
 FAX                SA7    USEBB                                                           FAX         3335     A     
 FAX                EQ     USENXT                                                          FAX         3336     A     
 FAX                MOVEND                                                                 FAX         3337     A     
 FAX                SPACE  4                                                               FAX         3338     A     
 FAX                MOVSTART  1                                                            FAX         3339     A     
 FAX       USEBB    BSS    1                                                               FAX         3340     A     
 FAX                MOVEND                                                                 FAX         3341     A     
 FAX                SPACE  2                                                               FAX         3342     A     
 FAX                MOVSTART  5                                                            FAX         3343     A     
 FAX       USESTAR  BSS    1                 CHANGE BACK TO THE PREVIOUS RELOCATIO         FAX         3344     A     
 FAX                SA1    USEBB             BASE BY RESETTING TEXT.ADD AND EX-            FAX         3345     A     
 FAX                SA2    TEXT.ADD          CHANGING NFLAGS.                              FAX         3346     A     
 FAX                SA3    NFLAG                                                           FAX         3347     A     
 FAX                SA4    X1-4                                                            FAX         3348     A     
 FAX                BX7    X3                                                              FAX         3349     A     
 FAX                LX6    X4                                                              FAX         3350     A     
 FAX                SA7    A4                                                              FAX         3351     A     
 FAX                SA6    A3                                                              FAX         3352     A     
 FAX                BX7    X1                                                              FAX         3353     A     
 FAX                SA7    A2                                                              FAX         3354     A     
 FAX                EQ     USESTAR                                                         FAX         3355     A     
 FAX                MOVEND                                                                 FAX         3356     A     
 FAX      ***                                                                              FAX         3357     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2677    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *         ORG MACRO PROCESSING                                                   FAX         3358     A     
 FAX      *                                                                                FAX         3359     A     
 FAX                                                                                       FAX         3360     A     
 FAX       DATA.TXT                          ADDRESS OF DATA. TEXT TABLE                   FAX         3361     A     
 FAX       K.       BSS    1                 SAVED RB AND ORGC OF DATA.                    FAX         3362     A     
 FAX      BORG      BSSZ   1                                                               FAX         3363          I
          -FCC2129
 FAX       S.       BSS    1                 RB AND ORGC OF LAST ORG                       FAX         3364     A     
 FAX       PORGT    EQU    SCRATCH                                                         FAX         3365     A     
 FAX                                                                                       FAX         3366     A     
 FAX       PORG     MX7    60-12                                                           FAX         3367     A     
 FAX                BX1    -X7*X5                                                          FAX         3368     A     
 FAX                NZ     X1,PORG1          IF ARGS                                       FAX         3369     A     
 FAX                                                                                       FAX         3370     A     
 FAX      *         NO ARGS CASE RESET DATA. BLOCK ORG CTR AND FLUSH OUT OLD TEXT          FAX         3371     A     
 FAX      *         TABLE                                                                  FAX         3372     A     
 FAX                                                                                       FAX         3373     A     
 FAX                SA1    DATA.TXT                                                        FAX         3374     A     
 FAX                SA2    K.                                                              FAX         3375     A     
 FAX                SA3    X1-2              POS CTR                                       FAX         3376     A     
 FAX                BX7    X2                                                              FAX         3377     A     
 FAX                SX0    B5                                                              FAX         3378     A     
 FAX                SA7    A3-B5           UPDATE ORG COUNTER                              FAX         3379     A     
 FAX                NZ     X3,PORG6          IF POS CTR " 0                                FAX         3380     A     
 FAX                IX7    X7-X0                                                           FAX         3381     A     
 FAX                SA7    A7                                                              FAX         3382     A     
 FAX                EQ     PORG6                                                           FAX         3383     A     
 FAX                                                                                       FAX         3384     A     
 FAX       PORG1    SA5    A5+B5             NEXT WORD                                     FAX         3385     A     
 FAX                SB4    B7                                                              FAX         3386     A     
 FAX                GCH    X1                                                              FAX         3387     A     
 FAX                RJ     NMLREF            GET NAME INFO ( RBT = WORD B OF NAME          FAX         3388     A     
 FAX                RJ     NMLG              NEXT CHAR                                     FAX         3389     A     
 FAX                BX7    X2                                                              FAX         3390     A     
 FAX                SA7    PORGT             = 0 IF NAME,,X                                FAX         3391     A     
 FAX                NZ     X2,PORG2          IF NOT A ,                                    FAX         3392     A     
 FAX                                                                                       FAX         3393     A     
 FAX                SA1    DATA.TXT                                                        FAX         3394          I
          -FCC2129
 FAX                SA3    BORG                                                            FAX         3395          I
          -FCC2129
 FAX                NZ     X3,PORG3                                                        FAX         3396          I
          -FCC2129
 FAX                SA2    X1-3                                                            FAX         3397          I
          -FCC2129
 FAX                MX0    59                                                              FAX         3398          I
          -FCC2129
 FAX                IX6    X2-X0           DATA.+1                                         FAX         3399          I
          -FCC2129
 FAX                SA6    K.                SAVE CURRENT DATA. ADDRESS                    FAX         3400          I
          -FCC2129
 FAX                SA6    BORG                                                            FAX         3401          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2678    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          -FCC2129
 FAX                EQ     PORG3                                                           FAX         3402          I
          -FCC2129
 FAX                SA1    DATA.TXT                                                        FCC2129       40     A     
 FAX                SA2    X1-1        TABC                                                FCC2129       41     A     
 FAX                SA1    A2-B5       POSC                                                FCC2129       42     A     
 FAX                SA3    A1-B5       ORGC                                                FCC2129       43     A     
 FAX                BX6    X3                                                              FCC2129       44     A     
 FAX                SB3    X2-2                                                            FCC2129       45     A     
 FAX                GT     B3,PORGL1   IF TABC > 2                                         FCC2129       46     A     
 FAX                SB3    X1-60                                                           FCC2129       47     A     
 FAX                ZR     B3,PORGL2   IF TABC = 2 AND POSC = 60                           FCC2129       48     A     
 FAX       PORGL1   MX7    59                                                              FCC2129       49     A     
 FAX                IX6    X6-X7       K. = ORGC + 1 (NO SIGN EXTENSION)                   FCC2129       50     A     
 FAX       PORGL2   SA6    K.                                                              FCC2129       51     A     
 FAX                EQ     PORG3                                                           FCC2129       52     A     
 FAX                                                                                       FAX         3403     A     
 FAX       PORG2    ZR     X3,PORG3          IF END OF LINE                                FAX         3404     A     
 FAX                SX2    X3-1R                                                           FAX         3405     A     
 FAX                ZR     X2,PORG3          IF EOL                                        FAX         3406     A     
 FAX                RJ     CONVERT           GET BIAS                                      FAX         3407     A     
 FAX                SA2    RBT                                                             FAX         3408     A     
 FAX                LX1    P.RA                                                            FAX         3409     A     
 FAX                IX6    X1+X2             ADD IN BIAS                                   FAX         3410     A     
 FAX                SA6    A2                                                              FAX         3411     A     
 FAX                                                                                       FAX         3412     A     
 FAX       PORG3    SA1    RBT                                                             FAX         3413     A     
 FAX                BX2    X1                                                              FAX         3414     A     
 FAX                LX1    59-P.RL-1                                                       FAX         3415     A     
 FAX                MX0    60-L.DIMP                                                       FAX         3416     A     
 FAX                NG     X1,PORG4          IF IN COMMON                                  FAX         3417     A     
 FAX                AX2    P.DIMP                                                          FAX         3418     A     
 FAX                BX3    -X0*X2                                                          FAX         3419     A     
 FAX                NZ     X3,PORG4          IF NOT A USEAGE DEFI ED VAR                   FAX         3420     A     
 FAX                SA3    PORGT                                                           FAX         3421     A     
 FAX                ZR     X3,PORG4          IF SECOND OCCURANCE OF UDV                    FAX         3422     A     
 FAX                MX6    0                                                               FAX         3423          I
          -FCC2129
 FAX                SA6    BORG                                                            FAX         3424          I
          -FCC2129
 FAX                                                                                       FAX         3425     A     
 FAX      *         FIRST OCCURANCE OF A UDV - SWITCH TO DATA. BLOCK                       FAX         3426     A     
 FAX                                                                                       FAX         3427     A     
 FAX                SA1    TEXT.ADD                                                        FAX         3428     A     
 FAX                SA2    NFLAG                                                           FAX         3429     A     
 FAX                SA3    DATA.TXT                                                        FAX         3430     A     
 FAX                SA4    X3-4              NFLAG(DATA.)                                  FAX         3431     A     
 FAX                BX6    X1                                                              FAX         3432     A     
 FAX                LX7    X2                                                              FAX         3433     A     
 FAX                SA6    USEBB             SAVE TEXT TABLE ADDR OF LAST BLOCK            FAX         3434     A     
 FAX                SA7    X1-4              AND NFLAG                                     FAX         3435     A     
 FAX                BX6    X3                                                              FAX         3436     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2679    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                LX7    X4                                                              FAX         3437     A     
 FAX                SA6    A1                NEW TEXT.ADD                                  FAX         3438     A     
 FAX                SA7    A2                NEW NFLAG                                     FAX         3439     A     
 FAX                SB3    60                                                              FAX         3440     A     
 FAX                EQ     NOBINPO                                                         FAX         3441     A     
 FAX                                                                                       FAX         3442     A     
 FAX      *         NOT THE FIRST OCCURANCE OF A UDV                                       FAX         3443     A     
 FAX      *         SET TEXT.ADD TO THE RB INDICATED BY THE VAR                            FAX         3444     A     
 FAX      *         AND FORCE OUT THE OLD TEXT TABLE                                       FAX         3445     A     
 FAX                                                                                       FAX         3446     A     
 FAX       PORG4    SA1    RBT                                                             FAX         3447     A     
 FAX                MX0    60-L.RB                                                         FAX         3448     A     
 FAX                AX1    P.RB                                                            FAX         3449     A     
 FAX                BX3    -X0*X1            RB                                            FAX         3450     A     
 FAX                SA2    =22.P0                                                          FAX         3451     A     
 FAX                PX3    X3                                                              FAX         3452     A     
 FAX                AX1    P.RA-P.RB                                                       FAX         3453     A     
 FAX                SX7    X1                SAVE RA                                       FAX         3454     A     
 FAX                AX1    P.RL-P.RA                                                       FAX         3455     A     
 FAX                DX2    X2*X3             22*RB                                         FAX         3456     A     
 FAX                MX0    60-L.RL                                                         FAX         3457     A     
 FAX                BX1    -X1+X0            INDEX TO LORGTAB OR CORGTAB                   FAX         3458     A     
 FAX                SA1    X1+LORGTAB+1                                                    FAX         3459     A     
 FAX                SX2    X2+5                                                            FAX         3460     A     
 FAX                IX6    X1+X2             NEW TEXT.ADD = CORGTAB(RL)+RB*22+5            FAX         3461     A     
 FAX                                                                                       FAX         3462     A     
 FAX                SA1    X6-3              RB AND ORG CTR                                FAX         3463     A     
 FAX                SA2    A1+B5             POS CTR                                       FAX         3464     A     
 FAX                MX0    60-18                                                           FAX         3465     A     
 FAX                BX3    X0*X1             EXTRACT LOADER RB CODE                        FAX         3466     A     
 FAX                IX7    X3+X7                                                           FAX         3467     A     
 FAX                SA6    TEXT.ADD          UPDATE TEXT ADD                               FAX         3468     A     
 FAX                SA7    S.                SAVE VALUE OF ORG CTR FOR REPI PROCES         FAX         3469     A     
 FAX                NZ     X2,PORG5          IF POS CTR " 0                                FAX         3470     A     
 FAX                SX0    B5                                                              FAX         3471     A     
 FAX                IX7    X7-X0             DECREMENT ORG CTR FOR WRTEXT                  FAX         3472     A     
 FAX       PORG5    SA7    A1                SAVE ADDR OF ORG                              FAX         3473     A     
 FAX       PORG6    RJ     FOTEXT            FORCE OUT OLD TABLE                           FAX         3474     A     
 FAX                SB3    60                                                              FAX         3475     A     
 FAX                EQ     NOBINPO                                                         FAX         3476     A     
 FAX                EJECT                                                                  FAX         3477     A     
 FAX      ***                                                                              FAX         3478     A     
 FAX      *         PGNAME - PROCESS "GNAME" MACRO CALL                                    FAX         3479     A     
 FAX      *                                                                                FAX         3480     A     
 FAX       PGNAME   SX1    B3-1RE                                                          FAX         3481     A     
 FAX                ZR     X1,L3.BJP         IF GE BI,BJ                                   FAX         3482     A     
 FAX                                                                                       FAX         3483     A     
 FAX                SA1    A5+B5                                                           FAX         3484     A     
 FAX                SX2    1R$                                                             FAX         3485     A     
 FAX                RJ     RSC               REMOVE POSSIBLE $                             FAX         3486     A     
 FAX                AX6    B7,X6             REMOVE TRAILING BLANKS                        FAX         3487     A     
 FAX                LX4    B7,X6             LEFT JUSTIFY TO BIT 42                        FAX         3488     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2680    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       PGNAME1  WR1WD  ,INITL            WRITE WORD TO LGO FILE                        FAX         3489     A     
 FAX                SPACE  3                                                               FAX         3490     A     
 FAX      ***                                                                              FAX         3491     A     
 FAX      *         PFMT - PROCESS FMT MACRO CALL                                          FAX         3492     A     
 FAX      *                                                                                FAX         3493     A     
 FAX       PFMT     SX1    1R.-1R                                                          FAX         3494     A     
 FAX                LX1    54                                                              FAX         3495     A     
 FAX                IX5    X5-X1             CHANGE LEADING . TO A BLANK                   FAX         3496     A     
 FAX                BX4    X0*X5             6L NNN                                        FAX         3497     A     
 FAX                EQ     PGNAME1           GO WRITE THE WORD TO THE LGO FILE             FAX         3498     A     
 FAX                SPACE  3                                                               FAX         3499     A     
 FAX      ***                                                                              FAX         3500          I
          -RSM3545C 
 FAX      *         ADDSUB                                                                 FAX         3501          I
          -RSM3545C 
 FAX                                                                                       FAX         3502          I
          -RSM3545C 
 FAX                MOVSTART  1                                                            FAX         3503          I
          -RSM3545C 
 FAX       ADDSR    RELOC  (L,,,,,,M,B)                                                    FAX         3504          I
          -RSM3545C 
 FAX                MOVEND                                                                 FAX         3505          I
          -RSM3545C 
 FAX       ADDSC    BSS    0                 ADDSUB LOOP PROTOTYPE                         FAX         3506          I
          -RSM3545C 
 FAX                LOC    0                                                               FAX         3507          I
          -RSM3545C 
 FAX                                                                                       FAX         3508          I
          -RSM3545C 
 FAX       ADDSCL   SB4    1                                                               FAX         3509          I
          -RSM3545C 
 FAX                SA3    0                                                               FAX         3510          I
          -RSM3545C 
 FAX                MX0    42                                                              FAX         3511          I
          -RSM3545C 
 FAX                SB6    60                                                              FAX         3512          I
          -RSM3545C 
 FAX                NO                                                                     FAX         3513          I
          -RSM3545C 
 FAX                SA3    B4+A3                                                           FAX         3514          I
          -RSM3545C 
 FAX                SB7    X1                                                              FAX         3515          I
          -RSM3545C 
 FAX                SA1    A1+B4                                                           FAX         3516          I
          -RSM3545C 
 FAX                SA2    X3                                                              FAX         3517          I
          -RSM3545C 
 FAX                UX4    X3,B2                                                           FAX         3518          I
          -RSM3545C 
 FAX                SB3    A2                                                              FAX         3519          I
          -RSM3545C 
 FAX                LX4    42                                                              FAX         3520          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2681    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          -RSM3545C 
 FAX                SB5    B6-B2                                                           FAX         3521          I
          -RSM3545C 
 FAX                SA3    A3+B4                                                           FAX         3522          I
          -RSM3545C 
 FAX                LX2    B2,X2                                                           FAX         3523          I
          -RSM3545C 
 FAX                SX5    X4+B7                                                           FAX         3524          I
          -RSM3545C 
 FAX                BX4    X0*X2                                                           FAX         3525          I
          -RSM3545C 
 FAX                SA2    X3                                                              FAX         3526          I
          -RSM3545C 
 FAX                BX6    -X0*X5                                                          FAX         3527          I
          -RSM3545C 
 FAX                IX4    X6+X4                                                           FAX         3528          I
          -RSM3545C 
 FAX                LX6    B5,X4                                                           FAX         3529          I
          -RSM3545C 
 FAX                SA6    B3                                                              FAX         3530          I
          -RSM3545C 
 FAX                NZ     X3,ADDSCL+3                                                     FAX         3531          I
          -RSM3545C 
 FAX                NO                                                                     FAX         3532          I
          -RSM3545C 
 FAX                NZ     X1,ADDSCL+2                                                     FAX         3533          I
          -RSM3545C 
 FAX       #MD      IFLE   .CPU,73,2                                                       FAX         3534          I
          -F7540FTA -RSM3545C 
 FAX                SB0    0                                                               FAX         3535          I
          -F7540FTA -RSM3545C 
 FAX                SKIP   5                                                               FAX         3536          I
          -F7540FTA -RSM3545C 
 FAX       #MD      IFNE   .CPU,76,2                                                       FAX         3537          I
          -F7540FTA -RSM3545C 
 FAX                JP     *+1                                                             FAX         3538          I
          -F7540FTA -RSM3545C 
 FAX                SKIP   2                                                               FAX         3539          I
          -F7540FTA -RSM3545C 
 FAX       #MD      IFEQ   .CPU,76                                                         FAX         3540          I
          -F7540FTA -RSM3545C 
 FAX                RJ     *+1                                                             FAX         3541          I
          -RSM3545C 
 FAX       #MD      ENDIF                                                                  FAX         3542          I
          -F7540FTA -RSM3545C 
 FAX                LOC    *O                                                              FAX         3543          I
          -RSM3545C 
 FAX                                                                                       F7540FTA      14          I
          -RSM3545C 
 FAX       PADDSUB  SA2    SYM1                                                            FAX         3544          I
          -RSM3545C 
 FAX                SA1    X2-5                                                            FAX         3545          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2682    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          -RSM3545C 
 FAX                AX1    P.RA                                                            FAX         3546          I
          -RSM3545C 
 FAX                SX1    X1-1                                                            FAX         3547          I
          -RSM3545C 
 FAX                SA4    ADDSC                                                           FAX         3548          I
          -RSM3545C 
 FAX                BX6    X1+X4             OR INTO ADDSUB CODE                           FAX         3549          I
          -RSM3545C 
 FAX                SA6    A4                                                              FAX         3550          I
          -RSM3545C 
 FAX                BX4    X6                                                              FAX         3551          I
          -RSM3545C 
 FAX                SA1    ADDSC+6     RELOCATE JUMPS                                      FAX         3552          I
          -RSM3545C 
 FAX                SA3    O.LRB+1           FWA OF VARDIM.                                FAX         3553          I
          -RSM3545C 
 FAX                SA2    A1+B5                                                           FAX         3554          I
          -RSM3545C 
 FAX                IX2    X2+X3       LOWER JP/RJ OR B0 NOOP                              FAX         3555          I
          -RSM3545C 
 FAX                LX3    15                                                              FAX         3556          I
          -RSM3545C 
 FAX                IX7    X1+X3                                                           FAX         3557          I
          -RSM3545C 
 FAX                SA7    A1                                                              FAX         3558          I
          -RSM3545C 
 FAX                LX3    15                                                              FAX         3559          I
          -RSM3545C 
 FAX                IX7    X2+X3                                                           FAX         3560          I
          -RSM3545C 
 FAX                SA7    A2                                                              FAX         3561          I
          -RSM3545C 
 FAX                SA1    ADDSR             SET RELOCATION WORD FOR WRSEQ                 FAX         3562          I
          -RSM3545C 
 FAX                BX7    X1                                                              FAX         3563          I
          -RSM3545C 
 FAX                SX6    8           WORD COUNT                                          FAX         3564          I
          -RSM3545C 
 FAX                RJ     WRSEQ       WRITE OUT ADDSUB CODE                               FAX         3565          I
          -RSM3545C 
 FAX       #MD      IFEQ   .CPU,76                                                         FAX         3566          I
          -F7540FTA -RSM3545C 
 FAX                MX4    0                                                               FAX         3567          I
          -RSM3545C 
 FAX                WR1WD              A 0 WORD FOR THE RJ  *+1                            FAX         3568          I
          -RSM3545C 
 FAX       #MD      ENDIF                                                                  FAX         3569          I
          -F7540FTA -RSM3545C 
 FAX                EQ     INITL                                                           FAX         3570          I
          -RSM3545C 
 FAX      *                                                                                FAX         3571     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2683    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *         SUB                                                                    FAX         3572     A     
 FAX      *                                                                                FAX         3573     A     
 FAX       PSUB     SB4    B4-6*2            POINT TO FIRST CH. OF FP                      FAX         3574          I
          -RSM3545C 
 FAX                BX1    X1-X1                                                           FAX         3575          I
          -RSM3545C 
 FAX                SB2    B0                BIT COUNT FOR PACKID                          FAX         3576          I
          -RSM3545C 
 FAX                RJ     PACKID                                                          FAX         3577          I
          -RSM3545C 
 FAX                LX1    12                                                              FAX         3578          I
          -RSM3545C 
 FAX                SA3    TEXT.ADD                                                        FAX         3579          I
          -RSM3545C 
 FAX                SA3    X3-2              GET POSITION COUNTER                          FAX         3580          I
          -RSM3545C 
 FAX                SA2    LORGTAB                                                         FAX         3581          I
          -RSM3545C 
 FAX                SB2    X3                SAVE POSITION COUNTER                         FAX         3582          I
          -RSM3545C 
 FAX                SA3    A3-B5             FETCH ORGC                                    FAX         3583          I
          -RSM3545C 
 FAX                SA0    X2                SEARCH ORIGIN FOR USENXT                      FAX         3584          I
          -RSM3545C 
 FAX                SB3    X3                                                              FAX         3585          I
          -RSM3545C 
 FAX                RJ     USENXT            GO CHANGE BLOCKS                              FAX         3586          I
          -RSM3545C 
 FAX                SX6    B5                FORCE UPPER                                   FAX         3587          I
          -RSM3545C 
 FAX                SX1    B2                                                              FAX         3588          I
          -RSM3545C 
 FAX                SA6    FFLAG                                                           FAX         3589          I
          -RSM3545C 
 FAX                ZR     X1,PSUB1          0 = 0                                         FAX         3590          I
          -RSM3545C 
 FAX                SX3    B7+B6             15=45, 30=30                                  FAX         3591          I
          -RSM3545C 
 FAX                IX1    X3-X1                                                           FAX         3592          I
          -RSM3545C 
 FAX       PSUB1    SB2    X1                                                              FAX         3593          I
          -RSM3545C 
 FAX                SX6    B3                                                              FAX         3594          I
          -RSM3545C 
 FAX                SX3    B1-1R                                                           FAX         3595          I
          -RSM3545C 
 FAX                ZR     X3,PSUB2    IF A BLANK                                          FAX         3596          I
          -RSM3545C 
 FAX                ZR     B1,PSUB2          SENSE NO CONSTANT                             FAX         3597          I
          -RSM3545C 
 FAX                MX0    54                                                              FAX         3598          I
          -RSM3545C 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2684    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                GCH    X3                GET FIRST CHARACTER FOR CONVERT               FAX         3599          I
          -RSM3545C 
 FAX                CWD                                                                    FAX         3600          I
          -RSM3545C 
 FAX                RJ     CONVERT           GO CONVERT CONSTANT                           FAX         3601          I
          -RSM3545C 
 FAX                MX0    30                                                              FAX         3602          I
          -RSM3545C 
 FAX                BX1    -X0*X1                                                          FAX         3603          I
          -RSM3545C 
 FAX                LX1    18                                                              FAX         3604          I
          -RSM3545C 
 FAX                BX6    X1+X6                                                           FAX         3605          I
          -RSM3545C 
 FAX       PSUB2    SB6    PSUB3                                                           FAX         3606          I
          -RSM3545C 
 FAX                SB1    60                                                              FAX         3607          I
          -RSM3545C 
 FAX                PX4    B2,X6                                                           FAX         3608          I
          -RSM3545C 
 FAX                EQ     WRTEXT                                                          FAX         3609          I
          -RSM3545C 
 FAX                                                                                       FAX         3610          I
          -RSM3545C 
 FAX       PSUB3    SX1    B5+B5                                                           FAX         3611          I
          -RSM3545C 
 FAX                IX6    X6+X1                                                           FAX         3612          I
          -RSM3545C 
 FAX                SA6    A3                                                              FAX         3613          I
          -RSM3545C 
 FAX                RJ     USESTAR                                                         FAX         3614          I
          -RSM3545C 
 FAX                EQ     INITL                                                           FAX         3615          I
          -RSM3545C 
 FAX                MOVSTART 1                                                             RSM3545C      67     A     
 FAX       DELAY    BSSZ   1           DELAY FLAG                                          RSM3545C      68     A     
 FAX                MOVEND                                                                 RSM3545C      69     A     
 FAX                                                                                       RSM3545C      70     A     
 FAX                                                                                       RSM3545C      71     A     
 FAX                MOVSTART 3                                                             RSM3545C      72     A     
 FAX       PSUB     SB4    B4-6*2      1*ST CHARACTER OF F.P. NAME                         RSM3545C      73     A     
 FAX                MX1    0                                                               RSM3545C      74     A     
 FAX                SB2    B0                                                              RSM3545C      75     A     
 FAX                MX4    7*6                                                             RSM3545C      76     A     
 FAX                SX7    B5                                                              RSM3545C      77     A     
 FAX                RJ     PACKID      GET F.P. NAME                                       RSM3545C      78     A     
 FAX                EQ     PSUB0                                                           RSM3545C      79     A     
 FAX                MOVEND                                                                 RSM3545C      80     A     
 FAX                                                                                       RSM3545C      81     A     
 FAX       PSUB0    SA2    SYM1                                                            RSM3545C      82     A     
 FAX                SX0    -B5                                                             RSM3545C      83     A     
 FAX                LX1    12                                                              RSM3545C      84     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2685    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SA2    X2-4        FIRST F.P. IN SYMTAB                                RSM3545C      85     A     
 FAX                BX3    X4*X1                                                           RSM3545C      86     A     
 FAX                SB2    B5+B5                                                           RSM3545C      87     A     
 FAX                                                                                       RSM3545C      88     A     
 FAX       PSUB10   BX6    X4*X2       LOOP FOR F.P. ENTRY                                 RSM3545C      89     A     
 FAX                SX0    X0+B5       INCREMENT F.P. SYMTAB ORDINAL                       RSM3545C      90     A     
 FAX                BX6    X6-X3                                                           RSM3545C      91     A     
 FAX                SA2    A2-B2       NEXT SYMTAB ENTRY                                   RSM3545C      92     A     
 FAX                NZ     X6,PSUB10   IF NOT THIS ONE                                     RSM3545C      93     A     
 FAX                                                                                       RSM3545C      94     A     
 FAX                SA4    TEXT.ADD    CURRENT BLOCK                                       RSM3545C      95     A     
 FAX                SB3    A5                                                              RSM3545C      96     A     
 FAX                SA3    A2+B5       WORD B                                              RSM3545C      97     A     
 FAX                SA5    X4-2        CURRENT BLOCK POSITION COUNTER                      RSM3545C      98     A     
 FAX                BX2    X3                                                              RSM3545C      99     A     
 FAX                IX6    X5-X7       SHIFT = 29, 14 OR -1                                RSM3545C     100     A     
 FAX                SA7    FFLAG       INDICATE FORCE UPPER                                RSM3545C     101     A     
 FAX                LX2    59-P.NFU                                                        RSM3545C     102     A     
 FAX                SA4    A5-B5       CURRENT BLOCK ORG COUNTER                           RSM3545C     103     A     
 FAX                AX6    59                                                              RSM3545C     104     A     
 FAX                AX2    11                                                              RSM3545C     105     A     
 FAX                BX6    X6*X7                                                           RSM3545C     106     A     
 FAX                SX5    X5+2000B    SHIFT = 2030, 2015 OR 2000                          RSM3545C     107     A     
 FAX                LX7    P.NFU                                                           RSM3545C     108     A     
 FAX                IX5    X5-X6       SHIFT = 2030, 2015 OR 1777                          RSM3545C     109     A     
 FAX                BX7    X3+X7       SET *P.NFU* BIT                                     RSM3545C     110     A     
 FAX                SX6    X4                                                              RSM3545C     111     A     
 FAX                LX0    42          POSITION F.P. ORDINAL                               RSM3545C     112     A     
 FAX                SA7    A3          RESET WORD B                                        RSM3545C     113     A     
 FAX                MX4    12                                                              RSM3545C     114     A     
 FAX                LX5    -12         POSITION SHIFT                                      RSM3545C     115     A     
 FAX                BX7    X1+X6       F.P. NAME + ORGC                                    RSM3545C     116     A     
 FAX                BX2    X4*X2                                                           RSM3545C     117     A     
 FAX                SA3    DELAY                                                           RSM3545C     118     A     
 FAX                IX5    X5+X6       SHIFT +  ADDRESS (ORGC)                             RSM3545C     119     A     
 FAX                BX3    X3-X7       =0 IF DELAY NECESSARY, "0 IF NOT                    RSM3545C     120     A     
 FAX                SX6    B0                                                              RSM3545C     121     A     
 FAX                BX4    -X3                                                             RSM3545C     122     A     
 FAX                SA7    A3          RESET DELAY                                         RSM3545C     123     A     
 FAX                IX6    X6+X4                                                           RSM3545C     124     A     
 FAX                SB2    B1-1R                                                           RSM3545C     125     A     
 FAX                BX4    X3+X6       =0 IF DELAY NECESSARY, -0 IF NOT                    RSM3545C     126     A     
 FAX                IX5    X5+X0       SHIFT + F.P. ORDINAL + ADDRESS (ORGC)               RSM3545C     127     A     
 FAX                SA3    LORGTAB                                                         RSM3545C     128     A     
 FAX                BX2    X4*X2       12 BIT MASK IF NOT FIRST F.P. AND NOT DELAY         RSM3545C     129     A     
 FAX                SA0    X3                                                              RSM3545C     130     A     
 FAX                BX5    X5-X2                                                           RSM3545C     131     A     
 FAX                RJ     USENXT      EXCHANGE CURRENT BLOCK WITH FP BLOCK                RSM3545C     132     A     
 FAX                ZR     B1,PSUB20   IF NO CONSTANT                                      RSM3545C     133     A     
 FAX                ZR     B2,PSUB20   IF A BLANK                                          RSM3545C     134     A     
 FAX                BX6    X5                                                              RSM3545C     135     A     
 FAX                MX0    54                                                              RSM3545C     136     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2686    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SA5    B3                                                              RSM3545C     137     A     
 FAX                GCH    X3          GET FIRST CHARACTER OF CONSTANT                     RSM3545C     138     A     
 FAX                CWD                                                                    RSM3545C     139     A     
 FAX                RJ     CONVERT     CONVERT CONSTANT                                    RSM3545C     140     A     
 FAX                MX0    -18                                                             RSM3545C     141     A     
 FAX                BX1    -X0*X1                                                          RSM3545C     142     A     
 FAX                LX1    18                                                              RSM3545C     143     A     
 FAX                BX5    X1+X6       SHIFT + F.P. NUMBER + CA +  ADDRESS (ORGC)          RSM3545C     144     A     
 FAX                                                                                       RSM3545C     145     A     
 FAX       PSUB20   BX4    X5                                                              RSM3545C     146     A     
 FAX                SB1    60                                                              RSM3545C     147     A     
 FAX                SB6    PSUB30      RETURN ADDRESS                                      RSM3545C     148     A     
 FAX                EQ     WRTEXT                                                          RSM3545C     149     A     
 FAX                                                                                       RSM3545C     150     A     
 FAX                MOVSTART 4                                                             RSM3545C     151     A     
 FAX       PSUB30   SX1    B5+B5                                                           RSM3545C     152     A     
 FAX                IX6    X6+X1                                                           RSM3545C     153     A     
 FAX                SA6    A3                                                              RSM3545C     154     A     
 FAX                RJ     USESTAR     CHANGE F.P. BLOCK BACK TO ORIGINAL BLOCK            RSM3545C     155     A     
 FAX                SA1    RJTFLAG                                                         RSM3545C     156     A     
 FAX                NZ     X1,L3.RJTE  IF PROCESSING AN *RJT*                              RSM3545C     157     A     
 FAX                EQ     INITL       NEXT COMPS INSTRUCTION                              RSM3545C     158     A     
 FAX                MOVEND                                                                 RSM3545C     159     A     
 FAX                SPACE  2                                                               FAX         3616     A     
 FAX      *                                                                                FAX         3617     A     
 FAX      *         IOM MACRO                                                              FAX         3618     A     
 FAX      *                                                                                FAX         3619     A     
 FAX                                                                                       FAX         3620     A     
 FAX       PIOM     MX6    0                                                               FAX         3621     A     
 FAX                SB1    NNAME             FWA                                           FAX         3622     A     
 FAX                SB2    FNAME+1           LWA+1                                         FAX         3623     A     
 FAX       PIOC     SA6    B1                CLEAR SCRATCH CELLS                           FAX         3624     A     
 FAX                SB1    B1+B5                                                           FAX         3625     A     
 FAX                LT     B1,B2,PIOC                                                      FAX         3626     A     
 FAX                SA5    A5+B5             NEXT WORD                                     FAX         3627     A     
 FAX                SB4    B7                RESET BIT COUNTER                             FAX         3628     A     
 FAX                RJ     NMLG              EXAMINE FIRST CHARACTER                       FAX         3629     A     
 FAX                ZR     X2,PIOMA          IF A NULL FIELD                               FAX         3630     A     
 FAX                SX1    X3-1R?                                                          FAX         3631     A     
 FAX                ZR     X1,PIOM11         IF LCM RESIDENT                               FAX         3632     A     
 FAX                SX1    X3-1R-                                                          FAX         3633     A     
 FAX                ZR     X1,PIOMB          IF AN IOM -1                                  FAX         3634     A     
 FAX                PL     X1,PIOM0          IF OTHER SPECIAL CHARACTER                    FAX         3635     A     
 FAX                SX1    X3-1R0                                                          FAX         3636     A     
 FAX                PL     X1,PIOMC          IF A DIGIT                                    FAX         3637     A     
 FAX                                                                                       FAX         3638     A     
 FAX       PIOM0    BX1    X3                                                              FAX         3639     A     
 FAX                RJ     NMLREF            PROCESS THE NAME                              FAX         3640     A     
 FAX                SX2    B1-1R,                                                          FAX         3641     A     
 FAX                NZ     X2,PIOM7          IF  NOT ENDED BY A COMMA                      FAX         3642     A     
 FAX       PIOM1    RJ     NMLG                                                            FAX         3643     A     
 FAX                ZR     X2,PIOM2          IF A NULL BIAS FIELD                          FAX         3644     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2687    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                RJ     CONVERT           CONVERT THE BIAS                              FAX         3645     A     
 FAX                BX6    X1                                                              FAX         3646     A     
 FAX                SA6    BIASN             SAVE THE BIAS                                 FAX         3647     A     
 FAX                                                                                       FAX         3648     A     
 FAX                RJ     NMLG              BYPASS THE COMMA                              FAX         3649     A     
 FAX                NZ     X2,PIOM7          IF END OF IOM                                 FAX         3650     A     
 FAX       PIOM2    RJ     NMLG                                                            FAX         3651     A     
 FAX                ZR     X2,PIOM3          IF A NULL TYPE FIELD                          FAX         3652     A     
 FAX                RJ     CONVERT                                                         FAX         3653     A     
 FAX                LX1    48                POSITION TYPE FIELD                           FAX         3654     A     
 FAX                BX6    X1                                                              FAX         3655     A     
 FAX                SA6    TNAME             SAVE THE TYPE                                 FAX         3656     A     
 FAX                                                                                       FAX         3657     A     
 FAX                RJ     NMLG                                                            FAX         3658     A     
 FAX                NZ     X2,PIOM7          IF END OF IOM                                 FAX         3659     A     
 FAX       PIOM3    RJ     NMLG                                                            FAX         3660     A     
 FAX                ZR     X2,PIOM4          IF A NULL COUNT FIELD                         FAX         3661     A     
 FAX                RJ     CONVERT           CONVERT THE COUNT                             FAX         3662     A     
 FAX                BX6    X1                                                              FAX         3663     A     
 FAX                SA6    ZZN               SAVE THE COUNT                                FAX         3664     A     
 FAX                                                                                       FAX         3665     A     
 FAX                RJ     NMLG                                                            FAX         3666     A     
 FAX                NZ     X2,PIOM7          IF END OF IOM                                 FAX         3667     A     
 FAX       PIOM4    MX6    0                                                               FAX         3668     A     
 FAX                RJ     NMLG                                                            FAX         3669     A     
 FAX                ZR     X2,PIOM5          IF NO B59 FLAG                                FAX         3670     A     
 FAX                SX6    X3-1R0                                                          FAX         3671     A     
 FAX                LX6    59                                                              FAX         3672     A     
 FAX                SA6    Z1N               SAVE B59 FLAG                                 FAX         3673     A     
 FAX                RJ     NMLG                                                            FAX         3674     A     
 FAX                NZ     X2,PIOM7          IF END OF IOM                                 FAX         3675     A     
 FAX       PIOM5    RJ     NMLG                                                            FAX         3676     A     
 FAX                ZR     X2,PIOM6          IF A NULL B57 FIELD                           FAX         3677     A     
 FAX                SX3    X3-1R0                                                          FAX         3678     A     
 FAX                LX3    57                                                              FAX         3679     A     
 FAX                BX6    X3+X6             COMBINE BIT 57 AND BIT 59                     FAX         3680     A     
 FAX                SA6    Z1N               STORE THE RESULT IN Z1N                       FAX         3681     A     
 FAX                                                                                       FAX         3682     A     
 FAX                RJ     NMLG                                                            FAX         3683     A     
 FAX                NZ     X2,PIOM7          IF END OF IOM                                 FAX         3684     A     
 FAX       PIOM6    SA1    VNAME                                                           FAX         3685     A     
 FAX                SA2    RBT                                                             FAX         3686     A     
 FAX                BX6    X1                                                              FAX         3687     A     
 FAX                LX7    X2                                                              FAX         3688     A     
 FAX                SA6    NNAME             SAVE VNAME                                    FAX         3689     A     
 FAX                SA7    Z3N                                                             FAX         3690     A     
 FAX                GCH    X1                                                              FAX         3691     A     
 FAX                CWD                                                                    FAX         3692     A     
 FAX                SX3    X1-1R0                                                          FAX         3693     A     
 FAX                PL     X3,PIOMD          IF A DIGIT                                    FAX         3694     A     
 FAX                RJ     NMLREF            PROCESS BASE2                                 FAX         3695     A     
 FAX                SA1    VNAME                                                           FAX         3696     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2688    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SA2    NNAME                                                           FAX         3697     A     
 FAX                BX6    X1                                                              FAX         3698     A     
 FAX                LX7    X2                                                              FAX         3699     A     
 FAX                SA6    A2                SWAP VNAME AND NNAME                          FAX         3700     A     
 FAX                SA7    A1                                                              FAX         3701     A     
 FAX                SA3    Z3N                                                             FAX         3702     A     
 FAX                BX6    X3                                                              FAX         3703     A     
 FAX                SA6    RBT               RESTORE RBT                                   FAX         3704     A     
 FAX                                                                                       FAX         3705     A     
 FAX       PIOM7    SA1    Z1N               B59, B57                                      FAX         3706     A     
 FAX                SA2    TNAME             TYPE                                          FAX         3707     A     
 FAX                SA3    ZZN               COUNT OR BIAS2                                FAX         3708     A     
 FAX                BX6    X1+X2             B59, B57, TYPE                                FAX         3709     A     
 FAX                LX3    24                POSITION COJNT FIELD                          FAX         3710     A     
 FAX                SA1    NNAME                                                           FAX         3711     A     
 FAX                IX7    X1+X3             BASE2 + BIAS2 ( COUNT )                       FAX         3712     A     
 FAX                SA2    VNAME                                                           FAX         3713     A     
 FAX                SA3    BIASN                                                           FAX         3714     A     
 FAX                SA1    FPN               FP FLAG BIT                                   FAX         3715     A     
 FAX                IX3    X2+X3             BASE + BIAS                                   FAX         3716     A     
 FAX                BX1    X6+X1             B59,FP, B57, TYPE                             FAX         3717     A     
 FAX                BX7    X7+X1             B59,FP, B57, TYPE, COUNT                      FAX         3718     A     
 FAX                BX4    X7+X3             B59,FP,B57,TYPE,COUNT,ADDRESS                 FAX         3719     A     
 FAX       PIOM8    SB6    L4.CKRB           RETURN FOR RELOCATION                         FAX         3720     A     
 FAX                SA3    FPN               FP INDICATOR                                  FAX         3721          I
          -FEAT155B 
 FAX                SA2    Z2N               NO BASE INDICATOR                             FAX         3722          I
          -FEAT155B 
 FAX                BX3    X2+X3                                                           FAX         3723          I
          -FEAT155B 
 FAX                SA3    Z2N               NO BASE INDICATOR                             FEAT155B      52     A     
 FAX                PL     X3,PIOM9          IF A BASE WAS PRESENT                         FAX         3724     A     
 FAX                SB6    INITL             RETURN ADDRESS FOR NO RELOCATION              FAX         3725     A     
 FAX       PIOM9    SB1    60                60 BITS OF TEXT                               FAX         3726     A     
 FAX                SA2    RBT                                                             FAX         3727     A     
 FAX                BX6    X2                                                              FAX         3728     A     
 FAX                SA6    RBTEMP            RESTORE RBTEMP                                FAX         3729     A     
 FAX                SA1    FNAME                                                           FAX         3730     A     
 FAX                ZR     X1,WRTEXT         IF NO LCM RELOCATION                          FAX         3731     A     
 FAX                SB6    PIOM10            RETURN FOR LCM RELOCATION                     FAX         3732     A     
 FAX                SX1    X1-1                                                            FAX         3733     A     
 FAX                SX2    2                 COMMON RELOCATION                             FAX         3734     A     
 FAX                LX2    P.RL                                                            FAX         3735     A     
 FAX                LX1    P.RB                                                            FAX         3736     A     
 FAX                BX6    X2+X1                                                           FAX         3737     A     
 FAX                SA6    RBTEMP            SETUP RELOCATION WORD                         FAX         3738     A     
 FAX                EQ     WRTEXT                                                          FAX         3739     A     
 FAX                                                                                       FAX         3740     A     
 FAX       PIOM10   SA3    FNAME             BLOCK ORDINAL                                 FAX         3741     A     
 FAX                SX2    X3-1                                                            FAX         3742     A     
 FAX                RJ     ALR               ADD LCM RELOCATION                            FAX         3743     A     
 FAX                EQ     INITL                                                           FAX         3744     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2689    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                                                                                       FAX         3745     A     
 FAX       PIOM11   RJ     NMLG                                                            FAX         3746     A     
 FAX                RJ     CONVERT           CONVERT MMM TO BINARY                         FAX         3747     A     
 FAX                BX6    X6-X6                                                           FAX         3748     A     
 FAX                LX7    X1                                                              FAX         3749     A     
 FAX                SA6    VNAME             NO BASE ADDRESS                               FAX         3750     A     
 FAX                SA7    FNAME             BLOCK ORDINAL                                 FAX         3751     A     
 FAX                EQ     PIOM1                                                           FAX         3752     A     
 FAX                                                                                       FAX         3753     A     
 FAX       PIOMA    MX6    1                 FORMAL PARAMETER IF NULL BASE                 FAX         3754     A     
 FAX                LX6    -1                BIT 58 = FP FLAG                              FAX         3755     A     
 FAX                SA6    FPN                                                             FAX         3756     A     
 FAX                EQ     PIOM1                                                           FAX         3757     A     
 FAX                                                                                       FAX         3758     A     
 FAX       PIOMB    MX4    59                SET VALUE OF -1                               FAX         3759     A     
 FAX                EQ     PIOM8                                                           FAX         3760     A     
 FAX                                                                                       FAX         3761     A     
 FAX       PIOMC    RJ     CONVERT           CONVERT CONSTANT IN BASE FIELD                FAX         3762     A     
 FAX                MX6    1                                                               FAX         3763     A     
 FAX                SA6    Z2N               FLAG NO NAME FIELD                            FAX         3764     A     
 FAX                GCH    X2                ADVANCE OVER THE COMMA                        FAX         3765     A     
 FAX                EQ     PIOM1             GO PROCESS BIAS                               FAX         3766     A     
 FAX                                                                                       FAX         3767     A     
 FAX       PIOMD    BX3    X1                                                              FAX         3768     A     
 FAX                RJ     CONVERT                                                         FAX         3769     A     
 FAX                SA3    BIASN                                                           FAX         3770     A     
 FAX                LX1    6                                                               FAX         3771     A     
 FAX                IX6    X1+X3                                                           FAX         3772     A     
 FAX                SA6    A3                COMBINE FO ORD + OFFSET                       FAX         3773     A     
 FAX                EQ     PIOM7                                                           FAX         3774     A     
 FAX                                                                                       FAX         3775     A     
 FAX      *                                                                                FAX         3776     A     
 FAX      *         EIO MACRO                                                              FAX         3777     A     
 FAX      *                                                                                FAX         3778     A     
 FAX                MOVSTART  7                                                            FAX         3779     A     
 FAX       PEIO     SA5    A5+B5       NEXT WORD                                           FAX         3780     A     
 FAX                SB4    B7          RESET BIT COUNT                                     FAX         3781     A     
 FAX                CWD                                                                    FAX         3782     A     
 FAX                GCH    X3                                                              FAX         3783     A     
 FAX                SX2    X3-1R-                                                          FAX         3784     A     
 FAX                MX4    0                                                               FAX         3785     A     
 FAX                NZ     X2,PEIO1    IF NOT A -0                                         FAX         3786     A     
 FAX                MX4    60                                                              FAX         3787     A     
 FAX       PEIO1    SB1    60                                                              FAX         3788     A     
 FAX                SB6    INITL             RETURN ADDRESS FROM WRTEXT                    FAX         3789     A     
 FAX                EQ     WRTEXT                                                          FAX         3790     A     
 FAX                MOVEND                                                                 FAX         3791     A     
 FAX                SPACE  4                                                               FAX         3792     A     
 FAX      *                                                                                FAX         3793     A     
 FAX      *         DELAY                                                                  FAX         3794     A     
 FAX      *                                                                                FAX         3795     A     
 FAX                MOVSTART  6                                                            FAX         3796          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2690    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          -RSM3545C 
 FAX       PDELAY   SB4    B4-6*4                                                          FAX         3797          I
          -RSM3545C 
 FAX                BX1    X1-X1                                                           FAX         3798          I
          -RSM3545C 
 FAX                SB2    B0                BIT COUNT FOR PACKID                          FAX         3799          I
          -RSM3545C 
 FAX                RJ     PACKID            GET NEW BLOCK NAME                            FAX         3800          I
          -RSM3545C 
 FAX                SA3    LORGTAB                                                         FAX         3801          I
          -RSM3545C 
 FAX                LX1    12                                                              FAX         3802          I
          -RSM3545C 
 FAX                SA0    X3                                                              FAX         3803          I
          -RSM3545C 
 FAX                RJ     USENXT            GO CHANGE BLOCKS                              FAX         3804          I
          -RSM3545C 
 FAX                SA1    ST.                                                             FAX         3805          I
          -RSM3545C 
 FAX                SB2    30                                                              FAX         3806          I
          -RSM3545C 
 FAX                BX6    X1                                                              FAX         3807          I
          -RSM3545C 
 FAX                EQ     PSUB2                                                           FAX         3808          I
          -RSM3545C 
 FAX                MOVEND                                                                 FAX         3809          I
          -RSM3545C 
 FAX      *                                                                                FAX         3810          I
          -F162FTNA 
 FAX      *         FILE                                                                   FAX         3811          I
          -F162FTNA 
 FAX      *                                                                                FAX         3812          I
          -F162FTNA 
 FAX                                                                                       FAX         3813          I
          -F162FTNA 
 FAX                MOVSTART  2                                                            FAX         3814          I
          -F162FTNA 
 FAX       FILER6   RELOC  (,L,,,,L)   RELOC BYTES FOR FWA (FET,BUF)                       FAX         3815          I
          -F162FTNA 
 FAX                RELOC  (,L,,,,L,L) RELOC BYTES FOR FWA(FET,BUF,WSA)                    FAX         3816          I
          -F162FTNA 
 FAX                MOVEND                                                                 FAX         3817          I
          -F162FTNA 
 FAX                SPACE  2                                                               FAX         3818          I
          -F162FTNA 
 FAX      *         6RM FIT SKELETON.                                                      FAX         3819          I
          -F162FTNA 
 FAX                                                                                       FAX         3820          I
          -F162FTNA 
 FAX                MOVSTART  8                                                            FAX         3821          I
          -F162FTNA 
 FAX       FILEC6   DATA   0                                                               FAX         3822          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2691    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          -F162FTNA 
 FAX                VFD    42/0,18/**        FET FWA                                       FAX         3823          I
          -F162FTNA 
 FAX                VFD    24/0,2/2,4/0,2/3,28/0   OPEN (NO REWIND), LT=ANY                FAX         3824          I
          -F162FTNA 
 FAX                VFD    24/0,18/**,18/0   CIO BUFFER LENGTH                             FAX         3825          I
          -F162FTNA 
 FAX                DATA   0                                                               FAX         3826          I
          -F162FTNA 
 FAX                VFD    42/0,18/**        CIO BUFFER FWA                                FAX         3827          I
          -F162FTNA 
 FAX                VFD    24/**,15/0,21/**  MRL (CHARACTERS), WSA FWA                     FAX         3828          I
          -F162FTNA 
 FAX                DATA   0                 ZERO WORD TO BE REPLICATED                    FAX         3829          I
          -F162FTNA 
 FAX       FILEL6   EQU    *-FILEC6          LENGTH OF PARTIAL SKELETON                    FAX         3830          I
          -F162FTNA 
 FAX                MOVEND                                                                 FAX         3831          I
          -F162FTNA 
 FAX                                                                                       FAX         3832          I
          -F162FTNA 
 FAX       #RM      IFNE   OT#RM,6                                                         FAX         3833          I
          -F162FTNA 
 FAX                MOVSTART  2                                                            FAX         3834          I
          -F162FTNA 
 FAX       FILER7   DATA   0                 NO RELOCATION (MRL NOT SPECIFIED)             FAX         3835          I
          -F162FTNA 
 FAX                RELOC  (,,,,,,L)         RELOCATION BYTE FOR WSA                       FAX         3836          I
          -F162FTNA 
 FAX                MOVEND                                                                 FAX         3837          I
          -F162FTNA 
 FAX                                                                                       FAX         3838          I
          -F162FTNA 
 FAX      *         7RM FIT SKELETON.                                                      FAX         3839          I
          -F162FTNA 
 FAX                                                                                       FAX         3840          I
          -F162FTNA 
 FAX                MOVSTART  8                                                            FAX         3841          I
          -F162FTNA 
 FAX       FILEC7   BSSZ   2                                                               FAX         3842          I
          -F162FTNA 
 FAX                VFD    24/0,2/2,4/0,2/2,28/0   OPEN (NO REWIND), LT=UL                 FAX         3843          I
          -F162FTNA 
 FAX                BSSZ   3                                                               FAX         3844          I
          -F162FTNA 
 FAX                VFD    24/**,15/0,21/**  MRL (CHARACTERS), WSA FWA                     FAX         3845          I
          -F162FTNA 
 FAX                DATA   0                 ZERO WORD TO BE REPLICATED                    FAX         3846          I
          -F162FTNA 
 FAX       FILEL7   EQU    *-FILEC7          LENGTH OF PARTIAL SKELETON                    FAX         3847          I
          -F162FTNA 
 FAX                MOVEND                                                                 FAX         3848          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2692    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          -F162FTNA 
 FAX       #RM      ENDIF                                                                  FAX         3849          I
          -F162FTNA 
 FAX                SPACE  2                                                               FAX         3850          I
          -F162FTNA 
 FAX      *         REPL (4300) TABLE PROTOTYPE - TO FILL OUT FIT/FET.                     FAX         3851          I
          -F162FTNA 
 FAX                                                                                       FAX         3852          I
          -F162FTNA 
 FAX                MOVSTART  3                                                            FAX         3853          I
          -F162FTNA 
 FAX       FILEREP6 VFD    12/4300B,12/2,35/0,1/1                                          FAX         3854          I
          -F162FTNA 
 FAX                VFD    42/0,18/**        REPLICATION SOURCE ADDRESS                    FAX         3855          I
          -F162FTNA 
 FAX                VFD    18/L.FIT6+L.FET6-FILEL6,42/0                                    FAX         3856          I
          -F162FTNA 
 FAX                MOVEND                                                                 FAX         3857          I
          -F162FTNA 
 FAX                                                                                       FAX         3858          I
          -F162FTNA 
 FAX       #RM      IFNE   OT#RM,6                                                         FAX         3859          I
          -F162FTNA 
 FAX                MOVSTART   3                                                           FAX         3860          I
          -F162FTNA 
 FAX       FILEREP7 VFD    12/4300B,12/2,35/0,1/1                                          FAX         3861          I
          -F162FTNA 
 FAX                VFD    42/0,18/**        REPLICATION SOURCE ADDRESS                    FAX         3862          I
          -F162FTNA 
 FAX                VFD    18/L.FIT7+L.FET7-FILEL7,42/0                                    FAX         3863          I
          -F162FTNA 
 FAX                MOVEND                                                                 FAX         3864          I
          -F162FTNA 
 FAX       #RM      ENDIF                                                                  FAX         3865          I
          -F162FTNA 
 FAX                SPACE  2                                                               FAX         3866          I
          -F162FTNA 
 FAX       PFILEC   BSS    1                                                               FAX         3867          I
          -F162FTNA 
 FAX                                                                                       FAX         3868          I
          -F162FTNA 
 FAX                                                                                       FAX         3869          I
          -F162FTNA 
 FAX                                                                                       FAX         3870          I
          -F162FTNA 
 FAX      **        PFILE - EXPAND *FILEF* MACRO CALL.                                     FAX         3871          I
          -F162FTNA 
 FAX                                                                                       FAX         3872          I
          -F162FTNA 
 FAX       PFILE    ENTRY. *                 ** ENTRY/EXIT **                              FAX         3873          I
          -F162FTNA 
 FAX                                                                                       FAX         3874          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2693    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          -F162FTNA 
 FAX      *         ENTER CIO BUFFER LENGTH IN FIT SKELETON.                               FAX         3875          I
          -F162FTNA 
 FAX                                                                                       FAX         3876          I
          -F162FTNA 
 FAX                GCH    X3                                                              FAX         3877          I
          -F162FTNA 
 FAX                RJ     CONVERT           CONVERT BUFFER LENGTH                         FAX         3878          I
          -F162FTNA 
 FAX                SX6    X1                                                              FAX         3879          I
          -F162FTNA 
 FAX                LX6    18                                                              FAX         3880          I
          -F162FTNA 
 FAX                SA3    FILEC       (X3) = FWA OF FIT SKELETON                          FAX         3881          I
          -F162FTNA 
 FAX                SA6    X3+3        STORE BUFFER LENGTH IN FIT                          FAX         3882          I
          -F162FTNA 
 FAX                                                                                       FAX         3883          I
          -F162FTNA 
 FAX      *         ENTER REPLICATION STARTING ADDRESS IN *REPL* TABLE.                    FAX         3884          I
          -F162FTNA 
 FAX                                                                                       FAX         3885          I
          -F162FTNA 
 FAX                SA2    TEXT.ADD                                                        FAX         3886          I
          -F162FTNA 
 FAX                SA3    FILEL       (X3) = LENGTH OF FIT SKELETON                       FAX         3887          I
          -F162FTNA 
 FAX                SX7    X3-1                                                            FAX         3888          I
          -F162FTNA 
 FAX                SA2    X2-3              FETCH ORGC                                    FAX         3889          I
          -F162FTNA 
 FAX                MX0    -18                                                             FAX         3890          I
          -F162FTNA 
 FAX                IX7    X2+X7                                                           FAX         3891          I
          -F162FTNA 
 FAX                SA3    FILEREP     (X3) = FWA OF REPL (43) TABLE SKELETON              FAX         3892          I
          -F162FTNA 
 FAX                SA7    X3+1                                                            FAX         3893          I
          -F162FTNA 
 FAX                                                                                       FAX         3894          I
          -F162FTNA 
 FAX                BX3    -X0*X2            EXTRACT FIT FWA                               FAX         3895          I
          -F162FTNA 
 FAX                SA4    L.FIT       (X4) = FIT LENGTH                                   FAX         3896          I
          -F162FTNA 
 FAX                SB3    X4                                                              FAX         3897          I
          -F162FTNA 
 FAX                SX6    X3+B3                                                           FAX         3898          I
          -F162FTNA 
 FAX                                                                                       FAX         3899          I
          -F162FTNA 
 FAX      *         ENTER FWA-S OF FET AND CIO BUFFER IN FIT.                              FAX         3900          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2694    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          -F162FTNA 
 FAX                                                                                       FAX         3901          I
          -F162FTNA 
 FAX                SA4    =XOT.RM                                                         FAX         3902          I
          -F162FTNA 
 FAX                NZ     X4,PFILE1   IF 7RM OBJECT MODE                                  FAX         3903          I
          -F162FTNA 
 FAX                SA3    FILEC       (X3) = FWA OF FIT SKELETON                          FAX         3904          I
          -F162FTNA 
 FAX                SA6    X3+1        FET POINTER                                         FAX         3905          I
          -F162FTNA 
 FAX                SA4    L.FET       (X4) = FET LENGTH                                   FAX         3906          I
          -F162FTNA 
 FAX                SB3    X4                                                              FAX         3907          I
          -F162FTNA 
 FAX                SX6    X6+B3                                                           FAX         3908          I
          -F162FTNA 
 FAX                SA6    X3+5        FWA OF I/O BUFFER                                   FAX         3909          I
          -F162FTNA 
 FAX                IX6    X6+X1                                                           FAX         3910          I
          -F162FTNA 
 FAX       PFILE1   BX4    X0*X2                                                           FAX         3911          I
          -F162FTNA 
 FAX                IX7    X4+X6             NEW ORGC                                      FAX         3912          I
          -F162FTNA 
 FAX                SA7    PFILEC                                                          FAX         3913          I
          -F162FTNA 
 FAX                                                                                       FAX         3914          I
          -F162FTNA 
 FAX      *         PROCESS *MRL* AND *WSA*, IF PRESENT.                                   FAX         3915          I
          -F162FTNA 
 FAX                                                                                       FAX         3916          I
          -F162FTNA 
 FAX                MX0    -6          RESET MASK FOR *GCH*                                FAX         3917          I
          -F162FTNA 
 FAX                SB4    B4-B6       SKIP OVER SEPARATOR                                 FAX         3918          I
          -F162FTNA 
 FAX                GCH    X3                                                              FAX         3919          I
          -F162FTNA 
 FAX                RJ     CONVERT     CONVERT RECORD LENGTH                               FAX         3920          I
          -F162FTNA 
 FAX                SA4    FILER       (X4) = FWA OF RELOC BYTES                           FAX         3921          I
          -F162FTNA 
 FAX                SA2    X4                                                              FAX         3922          I
          -F162FTNA 
 FAX                MX6    0                                                               FAX         3923          I
          -F162FTNA 
 FAX                ZR     X1,PFILE3   IF NO RECORD LENGTH SPECIFIED                       FAX         3924          I
          -F162FTNA 
 FAX                BX2    X1                                                              FAX         3925          I
          -F162FTNA 
 FAX                CW     X3,X2       (X3) = MRL (WORDS)                                  FAX         3926          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2695    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          -F162FTNA 
 FAX                SA4    =XOT.RM                                                         FAX         3927          I
          -F162FTNA 
 FAX                ZR     X4,PFILE2   IF 6RM OBJECT MODE                                  FAX         3928          I
          -F162FTNA 
 FAX                SX2    10                                                              FAX         3929          I
          -F162FTNA 
 FAX                IX6    X2*X3                                                           FAX         3930          I
          -F162FTNA 
 FAX                SX3    X3          NO. OF WORDS FOR MRL                                FAX         3931          I
          -F162FTNA 
 FAX                IX7    X6-X1                                                           FAX         3932          I
          -F162FTNA 
 FAX                SX2    6                                                               FAX         3933          I
          -F162FTNA 
 FAX                IX6    X2*X7       NO. OF UNUSED BITS                                  FAX         3934          I
          -F162FTNA 
 FAX                LX6    18                                                              FAX         3935          I
          -F162FTNA 
 FAX                BX1    X6+X3                                                           FAX         3936          I
          -F162FTNA 
 FAX       PFILE2   LX1    36          USER-SPECIFIED-MRL                                  FAX         3937          I
          -F162FTNA 
 FAX                SA4    PFILEC                                                          FAX         3938          I
          -F162FTNA 
 FAX                SX2    X3+4        SPACE ALLOCATED FOR USER-SPECIFIED MRL              FAX         3939          I
          -F162FTNA 
 FAX                SX6    X4+4        FWA(WSA)                                            FAX         3940          I
          -F162FTNA 
 FAX                IX7    X4+X2                                                           FAX         3941          I
          -F162FTNA 
 FAX                BX6    X1+X6       24/MRL,15/0,21/WSA                                  FAX         3942          I
          -F162FTNA 
 FAX                SA7    A4                                                              FAX         3943          I
          -F162FTNA 
 FAX                SA2    A2+B5       WORD OF RELOC BYTES FOR NON-ZERO MRL                FAX         3944          I
          -F162FTNA 
 FAX                                                                                       FAX         3945          I
          -F162FTNA 
 FAX       PFILE3   SA3    FILEC       (X3) = FWA OF FIT SKELETON                          FAX         3946          I
          -F162FTNA 
 FAX                SA6    X3+6                                                            FAX         3947          I
          -F162FTNA 
 FAX                                                                                       FAX         3948          I
          -F162FTNA 
 FAX      *         WRITE MACRO EXPANSION TO BINARY OUTPUT FILE.                           FAX         3949          I
          -F162FTNA 
 FAX                                                                                       FAX         3950          I
          -F162FTNA 
 FAX                BX7    X2                                                              FAX         3951          I
          -F162FTNA 
 FAX                SA5    FILEL       (X5) = LENGTH OF FIT SKELETON                       FAX         3952          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2696    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          -F162FTNA 
 FAX                SX6    X5                                                              FAX         3953          I
          -F162FTNA 
 FAX                SA4    X3                                                              FAX         3954          I
          -F162FTNA 
 FAX                RJ     WRSEQ                                                           FAX         3955          I
          -F162FTNA 
 FAX                SA1    PFILEC                                                          FAX         3956          I
          -F162FTNA 
 FAX                SX7    B5                                                              FAX         3957          I
          -F162FTNA 
 FAX                IX7    X1-X7                                                           FAX         3958          I
          -F162FTNA 
 FAX                SA7    B7-3                                                            FAX         3959          I
          -F162FTNA 
 FAX                RJ     FOTEXT                                                          FAX         3960          I
          -F162FTNA 
 FAX                SA1    FV.LGO                                                          FAX         3961          I
          -F162FTNA 
 FAX                SB1    1                                                               FAX         3962          I
          -F162FTNA 
 FAX                ZR     X1,PFILE          IF BINARY OUTPUT OPTION OFF (B=0)             FAX         3963          I
          -F162FTNA 
 FAX                SA4    FILEREP                                                         FAX         3964          I
          -F162FTNA 
 FAX                WRITEW F.LGO,X4,3  REPL (43) TABLE                                     FAX         3965          I
          -F162FTNA 
 FAX                SB5    B1+                                                             FAX         3966          I
          -F162FTNA 
 FAX                EQ     PFILE                                                           FAX         3967          I
          -F162FTNA 
 FAX      *                                                                                FAX         3968          I
          -F162FTNA 
 FAX       PFILE    EJECT                                                                  F162FTNA    1191     A     
 FAX      **        PFILE - PROCESS *FILCRM/FIL7RM* MACRO.                                 F162FTNA    1192     A     
 FAX      *                                                                                F162FTNA    1193     A     
 FAX      *         EXTRACTS LFN, BFS AND MRL FROM *FIL-RM* MACRO.  COMPUTES FWA           F162FTNA    1194     A     
 FAX      *         FIT, FWB AND WSA.  ENTERS VALUES IN SKELETON FIT AND WRITES            F162FTNA    1195     A     
 FAX      *         FIT TO BINARY OUTPUT FILE.  PREPARES REPL (4300) TABLE FOR             F162FTNA    1196     A     
 FAX      *         PADDING THE REMAINING FIT LENGTH WITH ZERO FILL, AND WRITES            F162FTNA    1197     A     
 FAX      *         TABLE TO BINARY OUTPUT FILE.                                           F162FTNA    1198     A     
 FAX      *                                                                                F162FTNA    1199     A     
 FAX      *                                                                                F162FTNA    1200     A     
 FAX      *         ENTRY  REGISTERS = STANDARD *GCH* SETUP.                               F162FTNA    1201     A     
 FAX      *                (ILINE) = *FILCRM/FIL7RM* MACRO CALL.                           F162FTNA    1202     A     
 FAX      *                                                                                F162FTNA    1203     A     
 FAX      *         EXIT   FIT AND REPL TABLE WRITTEN TO BINARY OUTPUT FILE.               F162FTNA    1204     A     
 FAX      *                (ORGC) INCREMENTED BY LENGTH OF FIT, BFS AND WSA.               F162FTNA    1205     A     
 FAX      *                                                                                F162FTNA    1206     A     
 FAX      *         USES   ALL.                                                            F162FTNA    1207     A     
 FAX      *                                                                                F162FTNA    1208     A     
 FAX      *         CALLS  CONVERT, CW, CWD, GCH, NMLG, PACKID, RL=, WRITEW,               F162FTNA    1209     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2697    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *                WRSEQ, WR1WD.                                                   F162FTNA    1210     A     
 FAX                                                                                       F162FTNA    1211     A     
 FAX                                                                                       F162FTNA    1212     A     
 FAX                QUAL   PFILE                                                           F162FTNA    1213     A     
 FAX                                                                                       F162FTNA    1214     A     
 FAX                                                                                       F162FTNA    1215     A     
 FAX       PFILE    SUBR               ** ENTRY/EXIT **                                    F162FTNA    1216     A     
 FAX                                                                                       F162FTNA    1217     A     
 FAX      *         GET ARG 1 = LOGICAL FILE NAME (LFN).                                   F162FTNA    1218     A     
 FAX                                                                                       F162FTNA    1219     A     
 FAX                GCH    X1                                                              F162FTNA    1220     A     
 FAX                SB2    B6                                                              F162FTNA    1221     A     
 FAX                RJ     PACKID                                                          F162FTNA    1222     A     
 FAX                SB3    B6-B3                                                           F162FTNA    1223     A     
 FAX                AX1    B3          REMOVE BLANK FILL AND SPECIAL CHAR                  F162FTNA    1224     A     
 FAX                SB3    B3+12                                                           F162FTNA    1225     A     
 FAX                SX2    B5          CIO COMPLETE BIT (CMPLT)                            F162FTNA    1226     A     
 FAX                LX1    B3          LEFT JUSTIFY LFN                                    F162FTNA    1227     A     
 FAX                BX6    X1+X2       LFN, CMPLT BIT                                      F162FTNA    1228     A     
 FAX                SA6    FIT6A+O.LFN LFN TO CRM FIT                                      F162FTNA    1229     A     
 FAX                                                                                       F162FTNA    1230     A     
 FAX      *         GET ARG 2 = BUFFER LENGTH (BFS).                                       F162FTNA    1231     A     
 FAX                                                                                       F162FTNA    1232     A     
 FAX                GCH    X3                                                              F162FTNA    1233     A     
 FAX                CWD                                                                    F162FTNA    1234     A     
 FAX                RJ     CONVERT                                                         F162FTNA    1235     A     
 FAX                BX6    X1                                                              F162FTNA    1236     A     
 FAX                SA6    T.BFS       TEMP SAVE BFS                                       F162FTNA    1237     A     
 FAX                                                                                       F162FTNA    1238     A     
 FAX      *         GET ARG 3 = MAX RECORD LENGTH (MRL).                                   F162FTNA    1239     A     
 FAX                                                                                       F162FTNA    1240     A     
 FAX                RJ     NMLG        SKIP COMMA                                          F162FTNA    1241     A     
 FAX                GCH    X3                                                              F162FTNA    1242     A     
 FAX                CWD                                                                    F162FTNA    1243     A     
 FAX                RJ     CONVERT                                                         F162FTNA    1244     A     
 FAX                BX2    X1          (X2) = MRL(CHARACTERS)                              F162FTNA    1245     A     
 FAX                CW     X3,X1       (X3) = MRL(WORDS)                                   F162FTNA    1246     A     
 FAX                MX0    -27                                                             F162FTNA    1247     A     
 FAX                SA4    T.BFS       (X4) = BFS                                          F162FTNA    1248     A     
 FAX                                                                                       F162FTNA    1249     A     
 FAX      *         GET CURRENT PROGRAM-RELATIVE ADDRESS (ORGC).                           F162FTNA    1250     A     
 FAX                                                                                       F162FTNA    1251     A     
 FAX                SA1    TEXT.ADD                                                        F162FTNA    1252     A     
 FAX                SA5    X1-3                                                            F162FTNA    1253     A     
 FAX                BX6    -X0*X5                                                          F162FTNA    1254     A     
 FAX                LX5    X6          (X5) = 33/0, 9/RELOC BASE, 18/PROG-REL ADDR         F162FTNA    1255     A     
 FAX                SA6    T.ORGC      TEMP SAVE RELOCATED FWA FIT                         F162FTNA    1256     A     
 FAX                SB1    1           (B1) = 1                                            F162FTNA    1257     A     
 FAX                                                                                       F162FTNA    1258     A     
 FAX      #RM       IFEQ   OT#RM,7                                                         F162FTNA    1259     A     
 FAX                                                                                       F162FTNA    1260     A     
 FAX                SA1    =XOT.RM                                                         F162FTNA    1261     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2698    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                ZR     X1,PF3      IF CRM OBJECT MODE (*FILCRM* MACRO)                 F162FTNA    1262     A     
 FAX                                                                                       F162FTNA    1263     A     
 FAX                                                                                       F162FTNA    1264     A     
 FAX      **        FORM 7RM (SCOPE 2) FIT AND WRITE TO BINARY OUTPUT FILE.                F162FTNA    1265     A     
 FAX                                                                                       F162FTNA    1266     A     
 FAX      *         FILL IN REPL (4300) TABLE SKELETON.                                    F162FTNA    1267     A     
 FAX                                                                                       F162FTNA    1268     A     
 FAX                SA1    REPL7                                                           F162FTNA    1269     A     
 FAX                SA6    PREPIC+1    ZERO WORD SOURCE ADDR TO REPL TABLE                 F162FTNA    1270     A     
 FAX                IX7    X1+X6                                                           F162FTNA    1271     A     
 FAX                SA7    A6+B1       REPL LENGTH, DESTIN ADDR TO REPL TABLE              F162FTNA    1272     A     
 FAX                                                                                       F162FTNA    1273     A     
 FAX      *         FILL IN FIT SKELETON.                                                  F162FTNA    1274     A     
 FAX                                                                                       F162FTNA    1275     A     
 FAX                SX0    L.FIT7                                                          F162FTNA    1276     A     
 FAX                IX5    X5+X0       FWB = (ORGC) + L.FIT7                               F162FTNA    1277     A     
 FAX                MX6    0           PRESET NO MRL OR WSA                                F162FTNA    1278     A     
 FAX                MX7    0           PRESET NO RELOCATION                                F162FTNA    1279     A     
 FAX                ZR     X2,PF2      IF MRL=0 OR OMITTED (NO WSA)                        F162FTNA    1280     A     
 FAX                IX5    X5+X4       WSA = FWB + BFS                                     F162FTNA    1281     A     
 FAX                SX6    X5          (X6) = EXTRACT WSA                                  F162FTNA    1282     A     
 FAX                IX5    X5+X3       NEXT ORG = WSA + MRL(WORDS)                         F162FTNA    1283     A     
 FAX                IX0    X3+X3       MRL*2                                               F162FTNA    1284     A     
 FAX                LX3    3              *8                                               F162FTNA    1285     A     
 FAX                IX0    X3+X0          *10                                              F162FTNA    1286     A     
 FAX                IX1    X0-X2       UNUSED CHARS = 10 * MRL(WORDS) - MRL(CHARS)         F162FTNA    1287     A     
 FAX                IX0    X1+X1       UCH*2                                               F162FTNA    1288     A     
 FAX                LX1    2              *4                                               F162FTNA    1289     A     
 FAX                IX0    X1+X0       UNUSED BIT COUNT (UBC) = 6 * UNUSED CHARS           F162FTNA    1290     A     
 FAX                LX3    36-3                                                            F162FTNA    1291     A     
 FAX                BX6    X6+X3                                                           F162FTNA    1292     A     
 FAX                LX0    54                                                              F162FTNA    1293     A     
 FAX                BX6    X6+X0       6/UBC, 18/MRL(WDS), 15/0, 21/WSA                    F162FTNA    1294     A     
 FAX                MX7    1           =2S58                                               F162FTNA    1295     A     
 FAX                LX7    60-7*4-58   RELOCATE WSA IN 7TH WORD                            F162FTNA    1296     A     
 FAX       PF2      SA6    FIT7A+O.MRLWSA                                                  F162FTNA    1297     A     
 FAX                SB2    L.FIT7A     (B2) = TEXT LENGTH                                  F162FTNA    1298     A     
 FAX                BX6    X5                                                              F162FTNA    1299     A     
 FAX                SA6    T.NXTORG    TEMP SAVE UPDATED (ORGC)                            F162FTNA    1300     A     
 FAX                                                                                       F162FTNA    1301     A     
 FAX      *         WRITE FIT AND REPL TO BINARY OUTPUT FILE.                              F162FTNA    1302     A     
 FAX                                                                                       F162FTNA    1303     A     
 FAX                MX6    0           (X6) = NO INCREMENT                                 F162FTNA    1304     A     
 FAX                SA4    FIT7A       (A4,X4) = FWA FIT                                   F162FTNA    1305     A     
 FAX                RJ     PFA         FIT TO BINARY OUTPUT FILE                           F162FTNA    1306     A     
 FAX                SA1    =XFV.LGO                                                        F162FTNA    1307     A     
 FAX                ZR     X1,PF10      IF BINARY OUTPUT OPTION OFF (B=0)                  F162FTNA    1308     A     
 FAX                WRITEW F.LGO,PREPIC,3    REPL (4300) TABLE TO BIN OUTPUT FILE          F162FTNA    1309     A     
 FAX                SB5    1                                                               F162FTNA    1310     A     
 FAX                EQ     PF10                                                            F162FTNA    1311     A     
 FAX                                                                                       F162FTNA    1312     A     
 FAX      #RM       ENDIF                                                                  F162FTNA    1313     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2699    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                                                                                       F162FTNA    1314     A     
 FAX                                                                                       F162FTNA    1315     A     
 FAX      **        FORM CRM (NOS, NOS/BE) FIT AND WRITE TO BINARY OUTPUT FILE.            F162FTNA    1316     A     
 FAX      *                                                                                F162FTNA    1317     A     
 FAX      *         ENTRY  (X2) = MRL(CHARACTERS)                                          F162FTNA    1318     A     
 FAX      *                (X3) = MRL(WORDS)                                               F162FTNA    1319     A     
 FAX      *                (X4) = BFS                                                      F162FTNA    1320     A     
 FAX      *                (X5) = 33/0, 27/(ORGC)                                          F162FTNA    1321     A     
 FAX      *                (B1,B5) = 1                                                     F162FTNA    1322     A     
 FAX                                                                                       F162FTNA    1323     A     
 FAX      *         FILL IN REPL (4300) TABLE SKELETON.                                    F162FTNA    1324     A     
 FAX      *         NOTE THAT THE REPL LENGTH CAUSES ALL OF THE SKELETON FIT,              F162FTNA    1325     A     
 FAX      *         EXCEPT SECTION (A), TO BE ZERO FILLED AT LOAD TIME.  THEN FIT          F162FTNA    1326     A     
 FAX      *         SECTIONS (B) AND (C) WILL BE LOADED OVER THE ZERO FILL.                F162FTNA    1327     A     
 FAX      *         THIS IS FASTER THAN ISSUING (AND FORCING LOADER TO PROCESS)            F162FTNA    1328     A     
 FAX      *         THREE SEPARATE REPL TABLES FOR THE REQUIRED ZERO FILL.                 F162FTNA    1329     A     
 FAX                                                                                       F162FTNA    1330     A     
 FAX       PF3      SA1    REPL6                                                           F162FTNA    1331     A     
 FAX                SX0    O.ZERO6                                                         F162FTNA    1332     A     
 FAX                IX6    X5+X0                                                           F162FTNA    1333     A     
 FAX                IX7    X5+X1                                                           F162FTNA    1334     A     
 FAX                SA6    PREPIC+1    ZERO WORD SOURCE ADDR TO REPL (4300) TABLE          F162FTNA    1335     A     
 FAX                SA7    A6+B1       REPL LENGTH, DESTIN ADDR TO REPL TABLE              F162FTNA    1336     A     
 FAX                                                                                       F162FTNA    1337     A     
 FAX      *         FILL IN FIT SECTION (A).                                               F162FTNA    1338     A     
 FAX                                                                                       F162FTNA    1339     A     
 FAX                SX0    L.FIT6                                                          F162FTNA    1340     A     
 FAX                IX5    X5+X0       FWB = (ORGC) + L.FIT6                               F162FTNA    1341     A     
 FAX                MX6    0           PRESET NO FWB                                       F162FTNA    1342     A     
 FAX                ZR     X4,PF4      IF NO CIO BUFFER (BFS=0)                            F162FTNA    1343     A     
 FAX                SX6    X5          SET FWB                                             F162FTNA    1344     A     
 FAX       PF4      SA6    FIT6A+O.FWB                                                     F162FTNA    1345     A     
 FAX                                                                                       F162FTNA    1346     A     
 FAX      *         FILL IN FIT(B) AND FIT(C).                                             F162FTNA    1347     A     
 FAX                                                                                       F162FTNA    1348     A     
 FAX                IX5    X5+X4       WSA = FWB + BFS                                     F162FTNA    1349     A     
 FAX                IX7    X5+X3       NEXT ORG = WSA + MRL(WORDS)                         F162FTNA    1350     A     
 FAX                SA7    T.NXTORG    TEMP SAVE UPDATED (ORGC)                            F162FTNA    1351     A     
 FAX                LX2    36                                                              F162FTNA    1352     A     
 FAX                BX6    X4          BFS                                                 F162FTNA    1353     A     
 FAX                LX7    X2          MRL                                                 F162FTNA    1354     A     
 FAX                SA6    FIT6B+O.BFS-O.FIT6B                                             F162FTNA    1355     A     
 FAX                SA7    FIT6B+O.MRL-O.FIT6B                                             F162FTNA    1356     A     
 FAX                MX6    2           =6S57                                               F162FTNA    1357     A     
 FAX                SX7    B0          PRESET NO MRL OR WSA                                F162FTNA    1358     A     
 FAX                LX6    30-57       (EO) = 6S30  -- PRESET NO WSA                       F162FTNA    1359     A     
 FAX                ZR     X2,PF5      IF NO WSA (MRL=0)                                   F162FTNA    1360     A     
 FAX                SX0    X5                                                              F162FTNA    1361     A     
 FAX                BX6    X6+X0       SET EO, WSA                                         F162FTNA    1362     A     
 FAX                IX7    X2+X0       SET MRL, WSA                                        F162FTNA    1363     A     
 FAX       PF5      SA6    FIT6B+O.EOWSA-O.FIT6B                                           F162FTNA    1364     A     
 FAX                SA7    FIT6C                                                           F162FTNA    1365     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2700    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                                                                                       F162FTNA    1366     A     
 FAX      *         FIT(A) TO BINARY OUTPUT FILE.                                          F162FTNA    1367     A     
 FAX                                                                                       F162FTNA    1368     A     
 FAX                SB2    L.FIT6A     (B2) = TEXT LENGTH                                  F162FTNA    1369     A     
 FAX                MX6    0           (X6) = NO INCREMENT                                 F162FTNA    1370     A     
 FAX                BX7    X7-X7       (X7) = PRESET NO RELOCATION                         F162FTNA    1371     A     
 FAX                ZR     X4,PF6      IF NO CIO BUFFER (BFS=0)                            F162FTNA    1372     A     
 FAX                MX7    1           =2S58                                               F162FTNA    1373     A     
 FAX                LX7    60-2*4-58   (X7) = SET FWB (2ND WORD) RELOCATION                F162FTNA    1374     A     
 FAX       PF6      SA4    FIT6A       (A4,X4) = TEXT FWA                                  F162FTNA    1375     A     
 FAX                RJ     PFA         FIT(A) TO BINARY OUTPUT FILE                        F162FTNA    1376     A     
 FAX                                                                                       F162FTNA    1377     A     
 FAX      *         REPL (4300) TABLE TO BINARY OUTPUT FILE.                               F162FTNA    1378     A     
 FAX                                                                                       F162FTNA    1379     A     
 FAX                SA1    =XFV.LGO                                                        F162FTNA    1380     A     
 FAX                ZR     X1,PF7      IF BINARY OUTPUT OPTION OFF (B=0)                   F162FTNA    1381     A     
 FAX                WRITEW F.LGO,PREPIC,3                                                  F162FTNA    1382     A     
 FAX                                                                                       F162FTNA    1383     A     
 FAX      *         FIT(B) TO BINARY OUTPUT FILE.                                          F162FTNA    1384     A     
 FAX                                                                                       F162FTNA    1385     A     
 FAX       PF7      SA1    FIT6C                                                           F162FTNA    1386     A     
 FAX                MX7    0           (X7) = PRESET NO WSA RELOCATION                     F162FTNA    1387     A     
 FAX                SX2    X1                                                              F162FTNA    1388     A     
 FAX                ZR     X2,PF8      IF NO WSA                                           F162FTNA    1389     A     
 FAX                MX7    1           =2S58                                               F162FTNA    1390     A     
 FAX                LX7    60-6*4-58   (X7) = SET WSA (6TH WORD) RELOCATION                F162FTNA    1391     A     
 FAX       PF8      SB2    L.FIT6B     (B2) = TEXT LENGTH                                  F162FTNA    1392     A     
 FAX                SA4    FIT6B       (A4,X4) = TEXT FWA                                  F162FTNA    1393     A     
 FAX                SX6    O.FIT6B     (X6) = FIT(B) INCREMENT                             F162FTNA    1394     A     
 FAX                RJ     PFA         FIT(B) TO BINARY OUTPUT FILE                        F162FTNA    1395     A     
 FAX                                                                                       F162FTNA    1396     A     
 FAX      *         FIT(C) TO BINARY OUTPUT FILE.                                          F162FTNA    1397     A     
 FAX                                                                                       F162FTNA    1398     A     
 FAX                SA4    FIT6C       (A4,X4) = TEXT FWA                                  F162FTNA    1399     A     
 FAX                SX6    O.FCLEXT    (X6) = FIT(C) INCREMENT                             F162FTNA    1400     A     
 FAX                ZR     X4,PF10     IF NO WSA, OMIT FIT(C)                              F162FTNA    1401     A     
 FAX                MX7    1           =2S58                                               F162FTNA    1402     A     
 FAX                SB2    B1          (B2) = TEXT LENGTH                                  F162FTNA    1403     A     
 FAX                LX7    60-1*4-58   (X7) = SET WSA (1ST WORD) RELOCATION                F162FTNA    1404     A     
 FAX                RJ     PFA         FIT(C) TO BINARY OUTPUT FILE                        F162FTNA    1405     A     
 FAX                                                                                       F162FTNA    1406     A     
 FAX      *         UPDATE (ORGC).                                                         F162FTNA    1407     A     
 FAX                                                                                       F162FTNA    1408     A     
 FAX       PF10     SA1    T.NXTORG                                                        F162FTNA    1409     A     
 FAX                SA2    TEXT.ADD                                                        F162FTNA    1410     A     
 FAX                MX3    1           =4000BS48 (TEXT TABLE CODE)                         F162FTNA    1411     A     
 FAX                LX6    X1                                                              F162FTNA    1412     A     
 FAX                BX7    X3+X6                                                           F162FTNA    1413     A     
 FAX                SA7    X2                                                              F162FTNA    1414     A     
 FAX                SA6    X2-3                                                            F162FTNA    1415     A     
 FAX                EQ     EXIT.                                                           F162FTNA    1416     A     
 FAX       PFILE    SPACE  4,8                                                             F162FTNA    1417     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2701    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      **        PFA - SUPPORT SUBROUTINE FOR *PFILE*.                                  F162FTNA    1418     A     
 FAX      *                                                                                F162FTNA    1419     A     
 FAX      *         SETS BINARY OUTPUT ADDRESS TO (T.ORGC) + (X6).                         F162FTNA    1420     A     
 FAX      *         WRITES 1-15 WORDS OF TEXT TO THE CURRENT TEXT TABLE.                   F162FTNA    1421     A     
 FAX      *         WRITES TABLE TO THE BINARY OUTPUT FILE.                                F162FTNA    1422     A     
 FAX      *                                                                                F162FTNA    1423     A     
 FAX      *         ENTRY  (A4,X4) = NEW TEXT FWA.                                         F162FTNA    1424     A     
 FAX      *                (X6) = (T.ORGC) INCREMENT.                                      F162FTNA    1425     A     
 FAX      *                (X7) = RELOCATION BYTE WORD.                                    F162FTNA    1426     A     
 FAX      *                (B2) = TEXT LENGTH.                                             F162FTNA    1427     A     
 FAX      *                                                                                F162FTNA    1428     A     
 FAX      *         EXIT   (B1,B5) = 1.                                                    F162FTNA    1429     A     
 FAX      *                NEW TEXT WRITTEN TO BINARY OUTPUT FILE.                         F162FTNA    1430     A     
 FAX      *                (ORGC) IN TEXT TABLE = LWA WRITTEN + 1.                         F162FTNA    1431     A     
 FAX      *                                                                                F162FTNA    1432     A     
 FAX      *         USES   ALL.                                                            F162FTNA    1433     A     
 FAX      *                                                                                F162FTNA    1434     A     
 FAX      *         CALLS  FOTEXT, WRSEQ.                                                  F162FTNA    1435     A     
 FAX                                                                                       F162FTNA    1436     A     
 FAX                                                                                       F162FTNA    1437     A     
 FAX       PFA      SUBR               ** ENTRY/EXIT **                                    F162FTNA    1438     A     
 FAX                SA1    T.ORGC                                                          F162FTNA    1439     A     
 FAX                SA2    TEXT.ADD                                                        F162FTNA    1440     A     
 FAX                IX6    X1+X6                                                           F162FTNA    1441     A     
 FAX                MX1    1           =4000BS48 (TEXT TABLE CODE)                         F162FTNA    1442     A     
 FAX                SA6    X2-3        UPDATE (ORGC)                                       F162FTNA    1443     A     
 FAX                BX6    X1+X6                                                           F162FTNA    1444     A     
 FAX                SA6    X2          NEW TEXT TABLE HEADER                               F162FTNA    1445     A     
 FAX                SB5    1                                                               F162FTNA    1446     A     
 FAX                SX6    B2          (X6) = TEXT LENGTH                                  F162FTNA    1447     A     
 FAX                RJ     WRSEQ       NEW TEXT TO TEXT TABLE                              F162FTNA    1448     A     
 FAX                RJ     FOTEXT      TEXT TABLE TO BINARY OUTPUT FILE                    F162FTNA    1449     A     
 FAX                SB1    1                                                               F162FTNA    1450     A     
 FAX                EQ     EXIT.                                                           F162FTNA    1451     A     
 FAX       PFILE    SPACE  4,8                                                             F162FTNA    1452     A     
 FAX      *         TEMPORARY STORAGE LOCATIONS.                                           F162FTNA    1453     A     
 FAX                                                                                       F162FTNA    1454     A     
 FAX       T.BFS    =      SCRATCH+8   BUFFER SIZE (WORDS)                                 F162FTNA    1455     A     
 FAX       T.ORGC   =      SCRATCH+9   33/0,9/RELOC BASE,18/START ADDR                     F162FTNA    1456     A     
 FAX       T.NXTORG =      SCRATCH+10  33/0,9/RELOC BASE,18/NEXT START ADDR                F162FTNA    1457     A     
 FAX                                                                                       F162FTNA    1458     A     
 FAX                                                                                       F162FTNA    1459     A     
 FAX                                                                                       F162FTNA    1460     A     
 FAX      **        CRM (NOS, NOS/BE) FIT SKELETON.                                        F162FTNA    1461     A     
 FAX                                                                                       F162FTNA    1462     A     
 FAX       FIT6A    BSS    0                                                               F162FTNA    1463     A     
 FAX                LOC    0                                                               F162FTNA    1464     A     
 FAX       O.LFN    VFD    42/**,18/0        LOGICAL FILE NAME (LFN), 0L FORMAT            F162FTNA    1465     A     
 FAX       O.FWB    VFD    42/0,18/**        FWA CIRCULAR BUFFER (FWB)                     F162FTNA    1466          I
          -FCCA408
 FAX       O.FWB    VFD    36/0,6/L.FIT6-L.FCLX-5,18/**                                    FCCA408      325     A     
 FAX                                   (FIT LENGTH - 5) + FWA CIRCULAR BUFFER              FCCA408      326     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2702    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       O.ZERO6  DATA   0                 ZERO WORD FOR REPLICATION                     F162FTNA    1467     A     
 FAX                LOC    *O                                                              F162FTNA    1468     A     
 FAX       L.FIT6A  =      *-FIT6A                                                         F162FTNA    1469     A     
 FAX      *         BSSZ   7                 ZEROS SUPPLIED BY REPLICATION                 F162FTNA    1470     A     
 FAX       FIT6B    BSS    0                                                               F162FTNA    1471     A     
 FAX                LOC    12B                                                             F162FTNA    1472     A     
 FAX       O.FIT6B  BSS    0                                                               F162FTNA    1473     A     
 FAX                VFD    36/0,2/3,22/0     LABEL TYPE (LT)=ANY                           F162FTNA    1474     A     
 FAX                VFD    25/0,2/2,3/2,30/0 OPEN FLAG (OF)=N, CLOSE FLAG (CF)=N           F162FTNA    1475     A     
 FAX       O.MRL    VFD    24/**,36/0        MAXIMUM RECORD LENGTH (MRL)                   F162FTNA    1476     A     
 FAX                VFD    2/0,2/3,56/0      DAYFILE CONTROL (DFC)=3                       F162FTNA    1477     A     
 FAX                DATA   0                                                               F162FTNA    1478     A     
 FAX       O.EOWSA  VFD    27/0,3/6,12/0,18/**  ERR OPT (EO)=6, FWA WRK STOR (WSA)         F162FTNA    1479     A     
 FAX                DATA   0                                                               F162FTNA    1480     A     
 FAX       O.BFS    VFD    42/0,18/**        CIRCULAR BUFFER SIZE (BFS)                    F162FTNA    1481     A     
 FAX                DATA   0,0,0,0                                                         FCCA561       28     A     
 FAX                VFD    20/0,4/1,36/0       FORTRAN GENERATED FIT FLAG                  FCCA561       29     A     
 FAX                LOC    *O                                                              F162FTNA    1482     A     
 FAX       L.FIT6B  =      *-FIT6B                                                         F162FTNA    1483     A     
 FAX      *         BSSZ   O.FCLEXT-O.BFS    ZEROS SUPPLIED BY REPLICATION                 F162FTNA    1484     A     
 FAX       FIT6C    BSS    0                                                               F162FTNA    1485     A     
 FAX                LOC    L.FIT6-L.FCLX                                                   F162FTNA    1486     A     
 FAX       O.FCLEXT VFD    24/**,18/0,18/**  MAX REC LEN (MRL), FWA WRK STO (WSA)          F162FTNA    1487     A     
 FAX                LOC    *O                                                              F162FTNA    1488     A     
 FAX                                                                                       F162FTNA    1489     A     
 FAX       REPL6    VFD    18/L.FIT6-L.FIT6A,15/1,9/0,18/L.FIT6A                           F162FTNA    1490     A     
 FAX                                                                                       F162FTNA    1491     A     
 FAX                                                                                       F162FTNA    1492     A     
 FAX      **        7RM (SCOPE 2) FIT SKELETON.                                            F162FTNA    1493     A     
 FAX                                                                                       F162FTNA    1494     A     
 FAX      #RM       IFEQ   OT#RM,7                                                         F162FTNA    1495     A     
 FAX                                                                                       F162FTNA    1496     A     
 FAX       FIT7A    BSS    0                                                               F162FTNA    1497     A     
 FAX                LOC    0                                                               F162FTNA    1498     A     
 FAX       O.ZERO7  DATA   0           ZERO WORD FOR REPLICATION                           F162FTNA    1499     A     
 FAX                DATA   0                                                               F162FTNA    1500     A     
 FAX                VFD    24/0,2/2,4/0,2/2,28/0   (OF)=N,(LT)=UNLABELED                   F162FTNA    1501          I
          -FCCA561
 FAX                VFD    24/0,2/2,4/1,2/0,28/0   (OF)=N,(LT)=UNLABELED                   FCCA561       30     A     
 FAX                BSSZ   3                                                               F162FTNA    1502     A     
 FAX       O.MRLWSA VFD    6/**,18/**,15/0,21/**   (MRL - UBC,WORDS), (WSA)                F162FTNA    1503     A     
 FAX                DATA   0                                                               FCCA561       31     A     
 FAX                VFD    14/0,4/1,42/0       FORTRAN GENERATED FIT FLAG                  FCCA561       32     A     
 FAX                LOC    *O                                                              F162FTNA    1504     A     
 FAX       L.FIT7A  =      *-FIT7A                                                         F162FTNA    1505     A     
 FAX                                                                                       F162FTNA    1506     A     
 FAX       REPL7    VFD    18/L.FIT7-L.FIT7A,15/1,9/0,18/L.FIT7A                           F162FTNA    1507     A     
 FAX                                                                                       F162FTNA    1508     A     
 FAX       #RM      ENDIF                                                                  F162FTNA    1509     A     
 FAX       PFILE    SPACE  4,2                                                             F162FTNA    1510     A     
 FAX                QUAL   *                                                               F162FTNA    1511     A     
 FAX       PFILE    =      /PFILE/PFILE                                                    F162FTNA    1512     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2703    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       NAME     EJECT                                                                  F162FTNA    1513     A     
 FAX      ***                                                                              F162FTNA    1514     A     
 FAX      *         NAME                                                                   FAX         3969     A     
 FAX      *                                                                                FAX         3970     A     
 FAX       NNAME    EQU    SCRATCH                                                         FAX         3971     A     
 FAX       VNAME    EQU    SCRATCH+1                                                       FAX         3972     A     
 FAX       TNAME    EQU    SCRATCH+2                                                       FAX         3973     A     
 FAX       RBT      EQU    SCRATCH+3                                                       FAX         3974     A     
 FAX       BIASN    EQU    SCRATCH+4                                                       FAX         3975     A     
 FAX       FPN      EQU    SCRATCH+5                                                       FAX         3976     A     
 FAX       ZZN      EQU    SCRATCH+6                                                       FAX         3977     A     
 FAX       Z1N      EQU    SCRATCH+7                                                       FAX         3978     A     
 FAX       Z2N      EQU    SCRATCH+8                                                       FAX         3979     A     
 FAX       Z3N      EQU    SCRATCH+9                                                       FAX         3980     A     
 FAX       FNAME    EQU    SCRATCH+10                                                      FAX         3981     A     
 FAX                SPACE  3                                                               FAX         3982     A     
 FAX      ***                                                                              FAX         3983     A     
 FAX      *         GET REFERENCED NAME FOR NAMELIST MACRO                                 FAX         3984     A     
 FAX      *                                                                                FAX         3985     A     
 FAX                MOVSTART  15B                                                          FAX         3986          I
          -FCC2319
 FAX                MOVSTART  16B                                                          FCC2319       10     A     
 FAX       NMLREF   ENTRY. *                                                               FAX         3987     A     
 FAX                SB3    X1                FIRST CHAR                                    FAX         3988     A     
 FAX                SB2    X1-1R?                                                          FAX         3989     A     
 FAX                ZR     B2,NMLR.1   IF ?MMM SYMBOL                                      FAX         3990     A     
 FAX                SB2    B6                B2 = 6                                        FAX         3991     A     
 FAX                RJ     REF                                                             FAX         3992     A     
 FAX       NMLR.2   SA4    RBTEMP                                                          FAX         3993     A     
 FAX                BX6    X3                                                              FAX         3994     A     
 FAX                LX7    X4                                                              FAX         3995     A     
 FAX                SA6    VNAME             VNAME = RA                                    FAX         3996     A     
 FAX                SA7    RBT               RBT = RBTEMP = WORD B OF SYMTAB               FAX         3997     A     
 FAX                MX6    0                                                               FAX         3998     A     
 FAX                SA6    A4                RBTEMP = 0                                    FAX         3999     A     
 FAX                EQ     NMLREF                                                          FAX         4000     A     
 FAX       NMLR.1   GCH    X3                                                              FAX         4001     A     
 FAX                CWD                                                                    FCC2319       11     A     
 FAX                RJ     CONVERT     MMM OF ?MMM                                         FAX         4002     A     
 FAX                SX2    X1-1                                                            FAX         4003     A     
 FAX                SX1    2           COMMON RELOCATION                                   FAX         4004     A     
 FAX                LX2    P.RB                                                            FAX         4005     A     
 FAX                LX1    P.RL                                                            FAX         4006     A     
 FAX                BX6    X2+X1                                                           FAX         4007     A     
 FAX                SA6    RBTEMP                                                          FAX         4008     A     
 FAX                MX3    0                                                               FAX         4009     A     
 FAX                EQ     NMLR.2                                                          FAX         4010     A     
 FAX                                                                                       FAX         4011     A     
 FAX                MOVEND                                                                 FAX         4012     A     
 FAX                SPACE  3                                                               FAX         4013     A     
 FAX      ***                                                                              FAX         4014     A     
 FAX      *         NMLG - GET NEXT CHAR FOR NAME MACRO CALL PROCESSOR                     FAX         4015     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2704    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *                                                                                FAX         4016     A     
 FAX                MOVSTART  4                                                            FAX         4017     A     
 FAX       NMLG                                                                            FAX         4018     A     
 FAX                GCH    X3                GET CHARACTER                                 FAX         4019     A     
 FAX                CWD                      CHECK WORD                                    FAX         4020     A     
 FAX                SX2    X3-1R,                                                          FAX         4021     A     
 FAX                EQ     NMLG                                                            FAX         4022     A     
 FAX                MOVEND                                                                 FAX         4023     A     
 FAX                SPACE  3                                                               FAX         4024     A     
 FAX      ***                                                                              FAX         4025     A     
 FAX      *         PNAME - PROCESS "NAME" MACRO CALL                                      FAX         4026     A     
 FAX      *                                                                                FAX         4027     A     
 FAX       PNAME    SA5    A5+B5             NEXT WORD                                     FAX         4028     A     
 FAX                SB4    B7                                                              FAX         4029     A     
 FAX                MX6    0                                                               FAX         4030     A     
 FAX                SB1    NNAME             FWA                                           FAX         4031     A     
 FAX                SB2    FNAME+1           LWA+1                                         FAX         4032     A     
 FAX       +        SA6    B1                CLEAR OUT SCRATCH CELLS                       FAX         4033     A     
 FAX                SB1    B1+B5                                                           FAX         4034     A     
 FAX                LT     B1,B2,*                                                         FAX         4035     A     
 FAX                                                                                       FAX         4036     A     
 FAX                GCH    X1                                                              FAX         4037     A     
 FAX                RJ     NMLREF            GET NAME INFO                                 FAX         4038     A     
 FAX                BX7    X1                                                              FAX         4039     A     
 FAX                SA7    FNAME             SAVE NAME                                     FAX         4040     A     
 FAX                SX2    1R$                                                             FAX         4041     A     
 FAX                RJ     RSC               REMOVE TRAILING BLANKS AND POSSIBLE $         FAX         4042     A     
 FAX                AX6    B7,X6             REMOVE TRAILING BLANKS                        FAX         4043     A     
 FAX                LX6    B7,X6             REPOSITION NAME TO TOP OF WORD                FAX         4044     A     
 FAX                SA6    NNAME             SAVE                                          FAX         4045     A     
 FAX                SB7    54                                                              FAX         4046     A     
 FAX                GCH    X3                                                              FAX         4047     A     
 FAX                RJ     CONVERT           GET AND                                       FAX         4048     A     
 FAX                BX6    X1                SAVE TYPE                                     FAX         4049     A     
 FAX                SA6    TNAME                                                           FAX         4050     A     
 FAX                                                                                       FAX         4051     A     
 FAX                RJ     NMLG              NEXT CHAR                                     FAX         4052     A     
 FAX                NZ     X2,PNAME4         IF NO MORE PARAMS                             FAX         4053     A     
 FAX                RJ     NMLG                                                            FAX         4054     A     
 FAX                ZR     X2,PNAME2         IF NOT EQUIVALENCED                           FAX         4055     A     
 FAX                BX1    X3                                                              FAX         4056     A     
 FAX                RJ     NMLREF            GET BASE INFO                                 FAX         4057     A     
 FAX                RJ     NMLG                                                            FAX         4058     A     
 FAX                RJ     CONVERT           GET BIAS                                      FAX         4059     A     
 FAX                BX6    X1                                                              FAX         4060     A     
 FAX                SA6    BIASN                                                           FAX         4061     A     
 FAX                                                                                       FAX         4062     A     
 FAX       PNAME2   RJ     NMLG              NEXT CHAR                                     FAX         4063     A     
 FAX                NZ     X2,PNAME4         IF NOT A COMMA                                FAX         4064     A     
 FAX                RJ     NMLG                                                            FAX         4065     A     
 FAX                ZR     X2,PNAME2A        IF NO FP ORDINAL                              FAX         4066     A     
 FAX                RJ     CONVERT                                                         FAX         4067     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2705    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SX6    B5                                                              FAX         4068     A     
 FAX                LX6    28                                                              FAX         4069     A     
 FAX                BX6    X1+X6                                                           FAX         4070     A     
 FAX                SA6    VNAME             SET FP BIT + ORDINAL NUMBER                   FAX         4071     A     
 FAX                SA6    FPN                                                             FAX         4072     A     
 FAX                RJ     NMLG                                                            FAX         4073     A     
 FAX                NZ     X2,PNAME4         IF NOT DIMENSIONED                            FAX         4074     A     
 FAX       PNAME2A  RJ     NMLG                                                            FAX         4075     A     
 FAX                ZR     X2,PNAME4         IF NO NDIM FIELD PRESENT                      FAX         4076     A     
 FAX                SX6    X3-1R0                                                          FAX         4077     A     
 FAX                SA6    ZZN               SAVE CONVERTED NUMBER OF DIMENSIONS           FAX         4078     A     
 FAX                RJ     NMLG                                                            FAX         4079     A     
 FAX                NZ     X2,PNAME4         IF NO MORE PARAMS                             FAX         4080     A     
 FAX                RJ     NMLG              NEXT CHAR                                     FAX         4081     A     
 FAX                SX1    X3-1R                                                           FAX         4082     A     
 FAX                ZR     X3,PNAME4         IF A 0 CHAR                                   FAX         4083     A     
 FAX                ZR     X1,PNAME4         IF A BLANK                                    FAX         4084     A     
 FAX                                                                                       FAX         4085     A     
 FAX                RJ     CONVERT                                                         FAX         4086     A     
 FAX                BX7    X1                                                              FAX         4087     A     
 FAX                SA7    Z1N               D1                                            FAX         4088     A     
 FAX                RJ     NMLG                                                            FAX         4089     A     
 FAX                NZ     X2,PNAME4         IF NO D2                                      FAX         4090     A     
 FAX                RJ     NMLG              FIRST CHAR OF CONSTANT                        FAX         4091     A     
 FAX                RJ     CONVERT                                                         FAX         4092     A     
 FAX                BX6    X1                                                              FAX         4093     A     
 FAX                SA6    Z2N                                                             FAX         4094     A     
 FAX                RJ     NMLG                                                            FAX         4095     A     
 FAX                NZ     X2,PNAME4         IF NO D3                                      FAX         4096     A     
 FAX                RJ     NMLG              FIRST CHAR OF CONSTANT                        FAX         4097     A     
 FAX                RJ     CONVERT                                                         FAX         4098     A     
 FAX                BX6    X1                                                              FAX         4099     A     
 FAX                SA6    Z3N                                                             FAX         4100     A     
 FAX                                                                                       FAX         4101     A     
 FAX      *         NOW OUTPUT THE BINARY                                                  FAX         4102     A     
 FAX                                                                                       FAX         4103     A     
 FAX       PNAME4   SA3    NNAME             NAME                                          FAX         4104     A     
 FAX                SA2    TNAME             TYPE                                          FAX         4105     A     
 FAX                MX0    60-3                                                            FAX         4106     A     
 FAX                BX2    -X0*X2            SAVE TYPE VALUE                               FAX         4107     A     
 FAX                SA1    ZZN               NUMBER OF DIMENSIONS                          FAX         4108     A     
 FAX                LX1    6                                                               FAX         4109     A     
 FAX                BX6    X3+X2                                                           FAX         4110     A     
 FAX                IX4    X1+X6             COMBINE ALL THREE                             FAX         4111     A     
 FAX                WR1WD                    WRITE NAME WORD                               FAX         4112     A     
 FAX                                                                                       FAX         4113     A     
 FAX                SA1    VNAME                                                           FAX         4114     A     
 FAX                SA2    BIASN                                                           FAX         4115     A     
 FAX                IX2    X1+X2             SOURCE ADDR OF NAMELIST VARIABLE              FAX         4116     A     
 FAX                SA3    TNAME                                                           FAX         4117     A     
 FAX                AX3    3                                                               FAX         4118     A     
 FAX                LX3    29                MOVE POSSIBLE LCM BIT TO PROPER SPOT          FAX         4119     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2706    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                BX2    X3+X2                                                           FAX         4120     A     
 FAX                SA3    Z1N               D1                                            FAX         4121     A     
 FAX                LX3    30                                                              FAX         4122     A     
 FAX                BX4    X2+X3             D1 + ADDRESS OF ITEM                          FAX         4123     A     
 FAX                WR1WD                    WRITE THE 2ND WORD                            FAX         4124     A     
 FAX                SA1    RBT               (X1) = RELOCATION INFO FOR VARIABLE           FAX         4125     A     
 FAX                SA2    TEXT.ADD                                                        FAX         4126     A     
 FAX                LX1    59-P.RL-1                                                       FAX         4127     A     
 FAX                SA3    FPN                                                             FAX         4128     A     
 FAX                NZ     X3,PNAME7         IF AN FP, NO RELOCATION                       FAX         4129     A     
 FAX                PL     X1,PNAME6         IF LOCAL ADD LOWER RELOCATION BYTE            FAX         4130     A     
 FAX                LX1    L.RL+P.RL-P.RB                                                  FAX         4131     A     
 FAX                SA3    X2-3              LINK IT TO COMMON REFERENCE CHAIN.            FAX         4132     A     
 FAX                MX0    60-L.RB                                                         FAX         4133     A     
 FAX                SA2    =20000000000000000026B                                          FAX         4134     A     
 FAX                BX1    -X0*X1                                                          FAX         4135     A     
 FAX                PX1    X1,B0                                                           FAX         4136     A     
 FAX                MX7    1                                                               FAX         4137     A     
 FAX                DX1    X1*X2                                                           FAX         4138     A     
 FAX                LX3    30                                                              FAX         4139     A     
 FAX                SA2    CORGTAB                                                         FAX         4140     A     
 FAX                BX7    X3+X7                                                           FAX         4141     A     
 FAX                SA4    FREEMEM                                                         FAX         4142     A     
 FAX                IX1    X1+X2                                                           FAX         4143     A     
 FAX                SA5    MEMEND                                                          FAX         4144     A     
 FAX                MX0    60-18                                                           FAX         4145     A     
 FAX                SA2    X1                                                              FAX         4146     A     
 FAX                SX6    X4+B5                                                           FAX         4147     A     
 FAX                BX3    -X0*X2                                                          FAX         4148     A     
 FAX                IX5    X5-X4                                                           FAX         4149     A     
 FAX                BX2    X0*X2                                                           FAX         4150     A     
 FAX                NG     X5,STOVER         SENSE STORAGE OVERFLOW                        FAX         4151     A     
 FAX                SA6    A4                                                              FAX         4152     A     
 FAX                BX7    X7+X3                                                           FAX         4153     A     
 FAX                IX6    X4+X2                                                           FAX         4154     A     
 FAX                SA7    X4                                                              FAX         4155     A     
 FAX                SA6    A2                                                              FAX         4156     A     
 FAX                EQ     PNAME7                                                          FAX         4157     A     
 FAX       PNAME6   SA3    X2+B5                                                           FAX         4158     A     
 FAX                SX1    RL$L              LOWER PROGRAM RELOCATION                      FAX         4159     A     
 FAX                IX6    X1+X3                                                           FAX         4160     A     
 FAX                SA6    A3                                                              FAX         4161     A     
 FAX       PNAME7   SA3    ZZN               NDIMS                                         FAX         4162     A     
 FAX                AX3    1                                                               FAX         4163     A     
 FAX                ZR     X3,INITL          IF 0 OR 1 DIMENSIONS                          FAX         4164     A     
 FAX                SA2    Z3N               D3                                            FAX         4165     A     
 FAX                SA1    Z2N               D2                                            FAX         4166     A     
 FAX                LX2    30                                                              FAX         4167     A     
 FAX                BX4    X1+X2             D2 + D3                                       FAX         4168     A     
 FAX                SB1    60                                                              FAX         4169     A     
 FAX                SB6    INITL             RETURN ADDRESS FOR WRTEXT                     FAX         4170     A     
 FAX                EQ     WRTEXT                                                          FAX         4171     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2707    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                EJECT                                                                  FAX         4172     A     
 FAX      ***                                                                              FAX         4173     A     
 FAX      *         PENTR. - PROCESS ENTR MACRO                                            FAX         4174     A     
 FAX      *                                                                                FAX         4175     A     
 FAX                MOVSTART  1                                                            FAX         4176     A     
 FAX       ENTRRP   RELOC  (,U,B,U,B,L,U)                                                  FAX         4177          I
          -F2950F4
 FAX       ENTRRP   RELOC  (,U,B,,U,U,B,L,B)                                               F2950F4      116     A     
 FAX                MOVEND                                                                 FAX         4178     A     
 FAX                SPACE  2                                                               FAX         4179     A     
 FAX                MOVSTART  7                                                            FAX         4180          I
          -F2950F4
 FAX                MOVSTART  10                                                           F2950F4      117     A     
 FAX       ENTRCP   BSSZ   1                 ENTR. CODE PROTOTYPE                          FAX         4181     A     
 FAX                SA2    0                 (*+2)                                         FAX         4182          I
          -F2950F4
 FAX                SA2    0                 (*+3)                                         F2950F4      118     A     
 FAX                BX6    X2                                                              FAX         4183     A     
 FAX                SA6    0                 (FTNNOP.)                                     FAX         4184     A     
 FAX                RJ     0                 (*+1)                                         F2950F4      119     A     
 FAX                BSSZ   1                                                               F2950F4      120     A     
 FAX                EQ     0                 (ENTRY.+1)                                    FAX         4185     A     
 FAX                EQ     0                 (*+1)                                         FAX         4186     A     
 FAX                SA1    0                 (NOPS.)                                       FAX         4187     A     
 FAX                SA2    0                 (NAME)                                        FAX         4188     A     
 FAX                BX6    X1                                                              FAX         4189     A     
 FAX                LX7    X2                                                              FAX         4190     A     
 FAX                SA6    0                 (FTNNOP.)                                     FAX         4191     A     
 FAX                SA7    0                 (ENTRY.)                                      FAX         4192     A     
 FAX                RJ     0                 (*+1)                                         F2950F4      121     A     
 FAX                BSSZ   1                                                               F2950F4      122     A     
 FAX                BSS    0                                                               FAX         4193     A     
 FAX       ENTRLP   EQU    *-ENTRCP                                                        FAX         4194     A     
 FAX                MOVEND                                                                 FAX         4195     A     
 FAX                SPACE  2                                                               FAX         4196     A     
 FAX                MOVSTART  1                                                            FAX         4197     A     
 FAX       ENTRRN   RELOC  (,U,U)                                                          FAX         4198          I
          -F2950F4
 FAX       ENTRRN   RELOC  (,U,B)                                                          F2950F4      123     A     
 FAX                MOVEND                                                                 FAX         4199     A     
 FAX                SPACE  2                                                               FAX         4200     A     
 FAX                MOVSTART  3                                                            FAX         4201          I
          -F2950F4
 FAX                MOVSTART  4                                                            F2950F4      124     A     
 FAX       ENTRCN   BSSZ   1                 ENTR. CODE PROTOTYPE (NO ARGUMENTS)           FAX         4202     A     
 FAX                SA1    0                 (NAME)                                        FAX         4203     A     
 FAX                BX6    X1                                                              FAX         4204     A     
 FAX                SA6    0                 (ENTRY.)                                      FAX         4205     A     
 FAX                RJ     0                 (*+1)                                         F2950F4      125     A     
 FAX                BSSZ   1                                                               F2950F4      126     A     
 FAX                BSS    0                                                               FAX         4206     A     
 FAX       ENTRLN   EQU    *-ENTRCN                                                        FAX         4207     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2708    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                MOVEND                                                                 FAX         4208     A     
 FAX                SPACE  2                                                               FAX         4209     A     
 FAX       ENAME    EQU    SCRATCH                                                         FAX         4210     A     
 FAX       PENTR.   SB4    B4-B6             SKIP TO FIRST CH                              FAX         4211     A     
 FAX                SB2    B6                BIT COUNT FOR REF                             FAX         4212     A     
 FAX                GCH    X1                FIRST CH FOR REF                              FAX         4213     A     
 FAX                SB3    X1                FIRST CH FOR REF                              FAX         4214     A     
 FAX                RJ     REF                                                             FAX         4215     A     
 FAX                BX6    X3                                                              FAX         4216     A     
 FAX                SA6    ENAME             SAVE ADDRESS OF NAME.                         FAX         4217     A     
 FAX                SA1    TEMPA0.                                                         FAX         4218     A     
 FAX                ZR     X1,PENTR8         IF NO ARGUMENTS                               FAX         4219     A     
 FAX                                                                                       FAX         4220     A     
 FAX      *         ENTR. WITH ARGUMENTS                                                   FAX         4221     A     
 FAX      *                                                                                FAX         4222     A     
 FAX                SA1    TEXT.ADD                                                        FAX         4223     A     
 FAX                SA1    X1-3                                                            FAX         4224     A     
 FAX                MX0    60-18                                                           FAX         4225     A     
 FAX                BX1    -X0*X1            GET ORGC                                      FAX         4226     A     
 FAX                SB7    X1                                                              FAX         4227     A     
 FAX                MX0    18                                                              FAX         4228     A     
 FAX                SA1    ENTRCP+1          GET SECOND WORD                               FAX         4229     A     
 FAX                SX6    B7+4                                                            FAX         4230          I
          -F2950F4
 FAX                SX6    B7+6                                                            F2950F4      127     A     
 FAX                LX0    48                FORM MASK FOR CLEARING UPPER ADDRESSE         FAX         4231     A     
 FAX                LX6    30                                                              FAX         4232     A     
 FAX                BX1    -X0*X1            CLEAR UPPER ADDRESS                           FAX         4233     A     
 FAX                BX6    X6+X1             OR IN ORGC + 4                                FAX         4234          I
          -F2950F4
 FAX                BX6    X6+X1             OR IN ORGC + 6                                F2950F4      128     A     
 FAX                SA6    A1                                                              FAX         4235     A     
 FAX                SA1    ENTRCP+3          GET FOURTH WORD                               FAX         4236          I
          -F2950F4
 FAX                SA1    ENTRCP+5          GET SIXTH WORD                                F2950F4      129     A     
 FAX                BX1    -X0*X1            CLEAR UPPER ADDRESS                           FAX         4237     A     
 FAX                SX6    B7+5                                                            FAX         4238          I
          -F2950F4
 FAX                SX6    B7+7                                                            F2950F4      130     A     
 FAX                SA2    ENTRY.                                                          FAX         4239     A     
 FAX                LX6    30                                                              FAX         4240     A     
 FAX                BX6    X6+X1             OR IN ORGC + 5                                FAX         4241          I
          -F2950F4
 FAX                SA3    FTNNOP.                                                         FAX         4242          I
          -F2950F4
 FAX                BX6    X6+X1             OR IN ORGC + 7                                F2950F4      131     A     
 FAX                SA6    A1                                                              FAX         4243     A     
 FAX                SA5    ENTRCP+5          GET SIXTH WORD                                FAX         4244          I
          -F2950F4
 FAX                SA1    ENTRCP+4          GET FIFTH WORD                                F2950F4      132     A     
 FAX                SX3    X2+B5                                                           F2950F4      133     A     
 FAX                BX1    -X0*X1            CLEAR UPPER                                   F2950F4      134     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2709    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                LX3    30                                                              F2950F4      135     A     
 FAX                BX6    X1+X3             OR IN ENTRY + 1                               F2950F4      136     A     
 FAX                SA6    A1                                                              F2950F4      137     A     
 FAX                SA5    ENTRCP+7          GET EIGHTH WORD                               F2950F4      138     A     
 FAX                SA3    FTNNOP.                                                         F2950F4      139     A     
 FAX                MX6    60-18             FORM MASK FOR CLEARING LOWER ADDRESSE         FAX         4245     A     
 FAX                BX5    X6*X5             CLEAR LOWER ADDRESS                           FAX         4246     A     
 FAX                BX7    X5+X3             OR IN FTNNOP.                                 FAX         4247     A     
 FAX                SA7    A5                                                              FAX         4248     A     
 FAX                LX3    30                                                              FAX         4249     A     
 FAX                SA1    ENTRCP+2          GET THIRD WORD                                FAX         4250     A     
 FAX                BX1    -X0*X1            CLEAR UPPER ADDRESS                           FAX         4251     A     
 FAX                BX1    X6*X1             CLEAR LOWER ADDRESS                           FAX         4252     A     
 FAX                BX7    X1+X3             OR IN FTNNOP.                                 FAX         4253     A     
 FAX                SX1    B5                                                              FAX         4254          I
          -F2950F4
 FAX                SA3    NOPS.                                                           FAX         4255          I
          -F2950F4
 FAX                BX7    X7+X2             OR IN ENTR.                                   FAX         4256          I
          -F2950F4
 FAX                LX3    30                                                              FAX         4257          I
          -F2950F4
 FAX                IX7    X7+X1                                                           FAX         4258          I
          -F2950F4
 FAX                LX2    30                                                              FAX         4259          I
          -F2950F4
 FAX                SX1    B7+4                                                            F2950F4      140     A     
 FAX                BX7    X7+X1             OR IN ORGC + 4                                F2950F4      141     A     
 FAX                SA7    A1                                                              FAX         4260     A     
 FAX                SA1    ENTRCP+4          GET FIFTH WORD                                FAX         4261          I
          -F2950F4
 FAX                SA1    ENTRCP+6          GET SEVENTH WORD                              F2950F4      142     A     
 FAX                SA3    NOPS.                                                           F2950F4      143     A     
 FAX                BX1    -X0*X1            CLEAR UPPER ADDRESS                           FAX         4262     A     
 FAX                LX3    30                                                              F2950F4      144     A     
 FAX                SA5    ENAME                                                           FAX         4263     A     
 FAX                BX1    X6*X1             CLEAR LOWER ADDRESS                           FAX         4264     A     
 FAX                BX7    X1+X3             OR IN NOPS.                                   FAX         4265     A     
 FAX                BX7    X7+X5             OR IN NAME.                                   FAX         4266     A     
 FAX                SA7    A1                                                              FAX         4267     A     
 FAX                SA1    ENTRCP+6          GET SEVENTH WORD                              FAX         4268          I
          -F2950F4
 FAX                SA1    ENTRCP+8          GET NINTH WORD                                F2950F4      145     A     
 FAX                BX1    -X0*X1            CLEAR UPPER ADDRESS                           FAX         4269     A     
 FAX                MX6    0                                                               FAX         4270          I
          -F2950F4
 FAX                LX2    30                                                              F2950F4      146     A     
 FAX                BX7    X1+X2             OR IN ENTR.                                   FAX         4271     A     
 FAX                MX0    60-18             FORM MASK FOR CLEARING LOWER ADDRESS          F2950F4      147     A     
 FAX                SX6    B7+10                                                           F2950F4      148     A     
 FAX                BX1    X0*X7             CLEAR LOWER ADDRESS                           F2950F4      149     A     
 FAX                BX7    X6+X1             OR IN ORGC + 10                               F2950F4      150     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2710    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                MX6    0                                                               F2950F4      151     A     
 FAX                SA7    A1                                                              FAX         4272     A     
 FAX                SA6    RBTEMP            PROHIBIT THE PRINTING OF CODE.                FAX         4273     A     
 FAX       PENTR7   SA4    ENTRCP            FIRST WORD FOR WRSEQ                          FAX         4274     A     
 FAX                SA3    ENTRRP                                                          FAX         4275     A     
 FAX                SX6    ENTRLP            BLOCK LENGTH FOR WRSEQ                        FAX         4276     A     
 FAX                BX7    X3                RELOCATION WORD FOR WRSEQ                     FAX         4277     A     
 FAX                RJ     WRSEQ                                                           FAX         4278     A     
 FAX                EQ     INITL                                                           FAX         4279     A     
 FAX      *                                                                                FAX         4280     A     
 FAX      *         ENTR. WITH NO ARGUMENTS                                                FAX         4281     A     
 FAX      *                                                                                FAX         4282     A     
 FAX       PENTR8   SA2    ENAME                                                           FAX         4283     A     
 FAX                SA1    ENTRCN+1          GET SECOND WORD                               FAX         4284     A     
 FAX                LX2    30                                                              FAX         4285     A     
 FAX                MX0    18                                                              FAX         4286     A     
 FAX                LX0    48                FORM MASK FOR CLEARING UPPER ADDRESSE         FAX         4287     A     
 FAX                BX1    -X0*X1            CLEAR UPPER ADDRESS                           FAX         4288     A     
 FAX                BX6    X1+X2             OR IN NAME                                    FAX         4289     A     
 FAX                SA6    A1                                                              FAX         4290     A     
 FAX                SA1    A1+B5             GET THIRD WORD                                FAX         4291     A     
 FAX                SA3    ENTRY.                                                          FAX         4292     A     
 FAX                LX3    30                                                              FAX         4293     A     
 FAX                BX1    -X0*X1            CLEAR UPPER ADDRESS                           FAX         4294     A     
 FAX                MX7    0                                                               FAX         4295     A     
 FAX                BX6    X1+X3             OR IN ENTRY.                                  FAX         4296     A     
 FAX                SA4    TEXT.ADD                                                        F2950F4      152     A     
 FAX                SA4    X4-3                                                            F2950F4      153     A     
 FAX                MX3    60-18             FORM MASK FOR CLEARING LOWER ADDRESS          F2950F4      154     A     
 FAX                BX4    -X3*X4            GET ORGC                                      F2950F4      155     A     
 FAX                BX6    X3*X6             CLEAR LOWER ADDRESS                           F2950F4      156     A     
 FAX                SX4    X4+4                                                            F2950F4      157     A     
 FAX                BX6    X4+X6             OR IN ORGC+3                                  F2950F4      158     A     
 FAX                SA6    A1                                                              FAX         4297     A     
 FAX                SA7    RBTEMP                                                          FAX         4298     A     
 FAX                                                                                       FAX         4299     A     
 FAX       PENTR9   SA4    ENTRCN            FIRST WORD FOR WRSEQ                          FAX         4300     A     
 FAX                SA3    ENTRRN                                                          FAX         4301     A     
 FAX                SX6    ENTRLN            BLOCK LENGTH FOR WRSEQ                        FAX         4302     A     
 FAX                BX7    X3                RELOCATION WORD FOR WRSEQ                     FAX         4303     A     
 FAX                RJ     WRSEQ                                                           FAX         4304     A     
 FAX                EQ     INITL                                                           FAX         4305     A     
 FAX                TITLE              SUBROUTINES                                         FAX         4306     A     
 FAX      ************************************************************************         FAX         4307     A     
 FAX      *                                                                      *         FAX         4308     A     
 FAX      * EVAL-   EVALUATE A GENERAL ADDRESS EXPRESSION                        *         FAX         4309     A     
 FAX      *                                                                      *         FAX         4310     A     
 FAX      *         ON ENTRY-                                                    *         FAX         4311     A     
 FAX      *                   A5,B7,B6,B5,B4,X5,X0 ARE SET FOR CHARACTER PICK UP *         FAX         4312     A     
 FAX      *                   X1= THE FIRST N CHARACTERS OF A SYMBOL OR THE      *         FAX         4313     A     
 FAX      *                       FIRST CHARACTER OF A CONSTANT,                 *         FAX         4314     A     
 FAX      *                   X6= NEGFLAG(+OR- ZERO)                             *         FAX         4315     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2711    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *                   X7= PERVIOUS ADDRESS SUM                           *         FAX         4316     A     
 FAX      *                   B2= N*6                                            *         FAX         4317     A     
 FAX      *                   B3= FIRST CHARACTER                                *         FAX         4318     A     
 FAX      *                                                                      *         FAX         4319     A     
 FAX      *         ON EXIT-                                                     *         FAX         4320     A     
 FAX      *                   X4= THE VALUE OF X4 ON ENTRY + THE VALUE OF THE    *         FAX         4321     A     
 FAX      *                       ADDRESS EXPRESSION                             *         FAX         4322     A     
 FAX      *                                                                      *         FAX         4323     A     
 FAX      ************************************************************************         FAX         4324     A     
 FAX                SPACE  2                                                               FAX         4325     A     
 FAX       NEGFLAG  EQU    SCRATCH+4         2WORDS TO SAVE NEGFLAG AND ADD.SUM            FAX         4326     A     
 FAX                SPACE  2                                                               FAX         4327     A     
 FAX                MOVSTART  11                                                           FAX         4328     A     
 FAX       EVAL     BSS    1                                                               FAX         4329     A     
 FAX       EV.1     SA2    =77600000000B                                                   FAX         4330     A     
 FAX                SA6    NEGFLAG                                                         FAX         4331     A     
 FAX                SA7    A6+B5             SAVE ADD.SUM AND NEGFLAG                      FAX         4332     A     
 FAX                LX2    X2,B3                                                           FAX         4333     A     
 FAX                PL     X2,EV.4           IF SYMBOL THEN CALL REF ELSE CONVERT          FAX         4334     A     
 FAX                SX3    X1-1R0            CONSTANT TO BINARY                            FAX         4335     A     
 FAX                SB2    -1R0                                                            FAX         4336     A     
 FAX       EV.2     GCH    X1                                                              FAX         4337     A     
 FAX                SX1    X1+B2                                                           FAX         4338     A     
 FAX                CWD                                                                    FAX         4339     A     
 FAX                NG     X1,EV.3                                                         FAX         4340     A     
 FAX                LX3    3                                                               FAX         4341     A     
 FAX                BX3    X1+X3                                                           FAX         4342     A     
 FAX                EQ     EV.2                                                            FAX         4343     A     
 FAX       EV.3     GCH    X2                                                              FAX         4344     A     
 FAX                SB1    X2                                                              FAX         4345     A     
 FAX                CWD                                                                    FAX         4346     A     
 FAX                EQ     EV.5                                                            FAX         4347     A     
 FAX                MOVEND                                                                 FAX         4348     A     
 FAX                SPACE  2                                                               FAX         4349     A     
 FAX                MOVSTART  7                                                            FAX         4350     A     
 FAX       EV.4     RJ     REF                                                             FAX         4351     A     
 FAX                SPACE  2                                                               FAX         4352     A     
 FAX       EV.5     SA2    NEGFLAG           XOR THE VALUE WITH NEGFLAG AND ADD IT         FAX         4353     A     
 FAX                SA1    A2+B5             ADD.SUM THEN CHECK THE NEXT CHARACTER         FAX         4354     A     
 FAX                BX3    X3-X2                                                           FAX         4355     A     
 FAX                SA2    B1+L3.JVEC                                                      FAX         4356     A     
 FAX                IX7    X1+X3                                                           FAX         4357     A     
 FAX                GCH    X1                                                              FAX         4358     A     
 FAX                AX2    24                                                              FAX         4359     A     
 FAX                CWD                                                                    FAX         4360     A     
 FAX                SB2    B6                                                              FAX         4361     A     
 FAX                BX2    -X0*X2                                                          FAX         4362     A     
 FAX                SB3    X1                                                              FAX         4363     A     
 FAX                SB1    X2                                                              FAX         4364     A     
 FAX                JP     B1+EV.6                                                         FAX         4365     A     
 FAX                MOVEND                                                                 FAX         4366     A     
 FAX                SPACE  2                                                               FAX         4367     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2712    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                MOVSTART  3                                                            FAX         4368     A     
 FAX       EV.6     MX1    42                SPACE OR ZERO BYTE -- RETURN                  FAX         4369     A     
 FAX                EQ     EV.7                                                            FAX         4370     A     
 FAX       +        BX6    X6-X6             PLUS -- NEGFLAG OFF, GET ANOTHER VALU         FAX         4371     A     
 FAX                EQ     EV.1                                                            FAX         4372     A     
 FAX       +        BX6    -X6+X6            MINUS -- NEGFLAG ON, GET ANOTHER VALU         FAX         4373     A     
 FAX                EQ     EV.1                                                            FAX         4374     A     
 FAX                MOVEND                                                                 FAX         4375     A     
 FAX                SPACE  2                                                               FAX         4376     A     
 FAX                MOVSTART  1                                                            FAX         4377     A     
 FAX       EV.7     BX7    -X1*X7                                                          FAX         4378     A     
 FAX                IX4    X4+X7                                                           FAX         4379     A     
 FAX                EQ     EVAL                                                            FAX         4380     A     
 FAX                MOVEND                                                                 FAX         4381     A     
 FAX                EJECT                                                                  FAX         4382     A     
 FAX      ************************************************************************         FAX         4383     A     
 FAX      *                                                                      *         FAX         4384     A     
 FAX      * REF-    SUBROUTINE TO REFERENCE THE SYMBOL TABLE AND THE GL,AP AND   *         FAX         4385     A     
 FAX      *         VD TABLES AND RETURN AN ADDRESS VALUE FOR A SYMBOL OR LABEL. *         FAX         4386     A     
 FAX      *                                                                      *         FAX         4387     A     
 FAX      *         CALLING SEQUENCE-                                            *         FAX         4388     A     
 FAX      *                   X1= FIRST N CHARACTERS OF THE NAME (N\1),          *         FAX         4389     A     
 FAX      *                   B2= N*6(BIT COUNT OF THE CHARACTERS IN X1).        *         FAX         4390     A     
 FAX      *                   B3= FIRST CHARACTER OF THE NAME,                   *         FAX         4391     A     
 FAX      *                   B5= 1.                                             *         FAX         4392     A     
 FAX      *                   RJ        REF                                      *         FAX         4393     A     
 FAX      *                                                                      *         FAX         4394     A     
 FAX      *         ON RETURN-                                                   *         FAX         4395     A     
 FAX      *                   X1= WORD A OF SYMTAB ENTRY                         *         FAX         4396     A     
 FAX      *                   X2= WORD B OF SYMTAB ENTRY,                        *         FAX         4397     A     
 FAX      *                   X3= RA FIELD (ADDRESS),                            *         FAX         4398     A     
 FAX      *                   B1= THE DELIMITING CHARACTER FOR THE SYMBOL        *         FAX         4399     A     
 FAX      *                   B5= 1.                                             *         FAX         4400     A     
 FAX      *                                                                      *         FAX         4401     A     
 FAX      *         ALSO-     A5,X5,X4,X0,B7,B6 ARE RESTORED                     *         FAX         4402     A     
 FAX      *                                                                      *         FAX         4403     A     
 FAX      *         THIS ROUTINE MAY CALL PACKID, SYMBOL OR LABEL.               *         FAX         4404     A     
 FAX      *                                                                      *         FAX         4405     A     
 FAX      ************************************************************************         FAX         4406     A     
 FAX                SPACE  2                                                               FAX         4407     A     
 FAX                EXT    SYMBOL,LABEL                                                    FAX         4408     A     
 FAX                                                                                       FAX         4409     A     
 FAX                USE    /TABLES/                                                        FAX         4410     A     
 FAX       A5TEMP   BSS    4                                                               FAX         4411     A     
 FAX       RBTEMP   BSS    1                                                               FAX         4412     A     
 FAX                USE    *                                                               FAX         4413     A     
 FAX                                                                                       FAX         4414     A     
 FAX       REF.X    BX6    X2                EXT SYMBOL                                    FAX         4415     A     
 FAX                IX3    X3-X3             X3 = ADDRESS = 0                              FAX         4416     A     
 FAX                SA6    RBTEMP                                                          FAX         4417     A     
 FAX                                                                                       FAX         4418     A     
 FAX                SPACE  2                                                               FAX         4419     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2713    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       REF      BSS    1                                                               FAX         4420     A     
 FAX                SB3    B3-1R#                                                          FAX         4421     A     
 FAX                NG     B3,R.STAN         IF FIRST CHAR IS ALPHABETIC,. OR ) TH         FAX         4422     A     
 FAX                SA3    =77600000000B                                                   FAX         4423     A     
 FAX                SB4    B4-12       SKIP PAST GL/AP/IO                                  FAX         4424     A     
 FAX                MX1    0                                                               FAX         4425     A     
 FAX                PL     B4,R.SP1                                                        FAX         4426     A     
 FAX                SA5    A5+1                                                            FAX         4427     A     
 FAX                SB4    B4+60                                                           FAX         4428     A     
 FAX       R.SP1    GCH    X2          CONVERT THE ORD IN THE SYMBOL TO BINARY             FAX         4429     A     
 FAX                SB1    X2                                                              FAX         4430     A     
 FAX                CWD                                                                    FAX         4431     A     
 FAX                LX7    X3,B1                                                           FAX         4432     A     
 FAX                PL     X7,R.SP2                                                        FAX         4433     A     
 FAX                SX2    X2-1R0                                                          FAX         4434     A     
 FAX                LX1    3                                                               FAX         4435     A     
 FAX                BX1    X1+X2                                                           FAX         4436     A     
 FAX                EQ     R.SP1                                                           FAX         4437     A     
 FAX                                                                                       FAX         4438     A     
 FAX       R.SP2    SA3    B3+=XO.GLT                                                      FAX         4439     A     
 FAX                IX1    X1+X3                                                           FAX         4440     A     
 FAX                SA2    X1-1                                                            FAX         4441     A     
 FAX                GT     B3,B5,R.EXIT      IF IO                                         FCC0506       14     A     
 FAX                SA3    GLAPR                                                           FCC0506       15     A     
 FAX                LX2    P.RA                                                            FCC0506       16     A     
 FAX                IX2    X2+X3       RELOCATE IN CODE.                                   FCC0506       17     A     
 FAX                EQ     R.EXIT                                                          FAX         4442     A     
 FAX                                                                                       FAX         4443     A     
 FAX                MOVSTART 5                                                             FAX         4444     A     
 FAX       R.STAN   SA0    B3+B6             A0.= B3+6                                     FAX         4445     A     
 FAX                RJ     PACKID            SEPARATE THE SYMBOL                           FAX         4446     A     
 FAX                SX7    A5                                                              FAX         4447     A     
 FAX                SX6    B4                                                              FAX         4448     A     
 FAX                SA7    A5TEMP                                                          FAX         4449     A     
 FAX                SB2    A0                                                              FAX         4450     A     
 FAX                SA6    A7+B5                                                           FAX         4451     A     
 FAX                BX7    X4                                                              FAX         4452     A     
 FAX                SX6    B1                                                              FAX         4453     A     
 FAX                SA7    A6+B5                                                           FAX         4454     A     
 FAX                SB7    R.ST1-1                                                         FAX         4455     A     
 FAX                SA6    A7+B5             SAVE A5,B4,X4,B1                              FAX         4456     A     
 FAX                PL     B2,LABEL                                                        FAX         4457     A     
 FAX                EQ     SYMBOL                                                          FAX         4458     A     
 FAX                MOVEND                                                                 FAX         4459     A     
 FAX                SPACE  2                                                               FAX         4460     A     
 FAX                MOVSTART  9                                                            FAX         4461     A     
 FAX       +        EQ     CHKEXT            SEE IF IT IS IN EXTERNAL TABLE                FAX         4462     A     
 FAX       R.ST1    SA4    A5TEMP                                                          FAX         4463     A     
 FAX                MX0    54                                                              FAX         4464     A     
 FAX                SA3    A4+B5                                                           FAX         4465     A     
 FAX                SA5    X4                                                              FAX         4466     A     
 FAX                MX7    60-L.RL                                                         FAX         4467     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2714    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SB4    X3                                                              FAX         4468     A     
 FAX                SA4    A3+B5                                                           FAX         4469     A     
 FAX                SB6    6                                                               FAX         4470     A     
 FAX                SB2    P.RL                                                            FAX         4471     A     
 FAX                SA3    A4+B5                                                           FAX         4472     A     
 FAX                AX6    X2,B2                                                           FAX         4473     A     
 FAX                SB7    54                                                              FAX         4474     A     
 FAX                BX6    -X7*X6                                                          FAX         4475     A     
 FAX                SB1    X3                RESTORE A5,X5,X4,B7,B6,B4,B1                  FAX         4476     A     
 FAX                SB2    X6-2                                                            FAX         4477     A     
 FAX                NG     B2,R.EXIT         IF ABS OR PROGRAM                             FAX         4478     A     
 FAX                EQ     B2,B5,REF.X       IF EXTERNAL                                   FAX         4479     A     
 FAX                SX7    1S"P.RB"                                                        FAX         4480     A     
 FAX                IX2    X2-X7             DECREMENT RB CODE BY 1                        FAX         4481     A     
 FAX                EQ     R.EXIT                                                          FAX         4482     A     
 FAX                MOVEND                                                                 FAX         4483     A     
 FAX                SPACE  2                                                               FAX         4484     A     
 FAX                MOVSTART  6                                                            FAX         4485     A     
 FAX       CHKEXT   MX6    L.NAME                                                          FAX         4486     A     
 FAX                BX0    X6*X1             NAME                                          FAX         4487     A     
 FAX                SA2    O.EXT                                                           FAX         4488     A     
 FAX                SA3    L.EXT                                                           FAX         4489     A     
 FAX                SB1    X2                                                              FAX         4490     A     
 FAX                SB2    B1+X3                                                           FAX         4491     A     
 FAX                SB5    1                                                               FAX         4492     A     
 FAX                                                                                       FAX         4493     A     
 FAX       CHKL     SA2    B1                                                              FAX         4494     A     
 FAX                EQ     B1,B2,SILL        IF NOT FOUND                                  FAX         4495     A     
 FAX                BX3    X6*X2                                                           FAX         4496     A     
 FAX                SB1    B1+B5                                                           FAX         4497     A     
 FAX                IX4    X0-X3                                                           FAX         4498     A     
 FAX                NZ     X4,CHKL           IF NO HIT                                     FAX         4499     A     
 FAX                                                                                       FAX         4500     A     
 FAX                SA2    X2                WORD B OF SYMTAB ENTRY                        FAX         4501     A     
 FAX                EQ     R.ST1                                                           FAX         4502     A     
 FAX                MOVEND                                                                 FAX         4503     A     
 FAX                                                                                       FAX         4504     A     
 FAX                MOVSTART  4                                                            FAX         4505     A     
 FAX       R.EXIT   SA3    RBTEMP                                                          FAX         4506     A     
 FAX                SB2    P.RA                                                            FAX         4507     A     
 FAX                BX7    X7-X7                                                           FAX         4508     A     
 FAX                NZ     X3,R.EX1          IF RBTEMP IS ZERO THEN SAVE WORD B EL         FAX         4509     A     
 FAX                BX7    X2                SET IT TO ZERO.                               FAX         4510     A     
 FAX       R.EX1    AX3    X2,B2                                                           FAX         4511     A     
 FAX                SA7    A3                                                              FAX         4512     A     
 FAX                SX3    X3                X3.= RELATIVE ADDRESS                         FAX         4513     A     
 FAX                EQ     REF                                                             FAX         4514     A     
 FAX                MOVEND                                                                 FAX         4515     A     
 FAX                SPACE  2                                                               FAX         4516     A     
 FAX                SPACE  6                                                               FAX         4517     A     
 FAX      ************************************************************************         FAX         4518     A     
 FAX      *                                                                      *         FAX         4519     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2715    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *         CONVERT - CONVERT DISPLAY CODED OCTAL TO BINARY              *         FAX         4520     A     
 FAX      *                                                                      *         FAX         4521     A     
 FAX      *                   FIRST CHARACTER MUST BE A NUMBER OR -              *         FAX         4522     A     
 FAX      *                   LAST CHARACTER MUST BE A B                         *         FAX         4523     A     
 FAX      *                                                                      *         FAX         4524     A     
 FAX      *                   CALLING SEQUENCE -                                 *         FAX         4525     A     
 FAX      *                             X3 = FIRST CHARACTER                     *         FAX         4526     A     
 FAX      *                                                                      *         FAX         4527     A     
 FAX      *                   ON EXIT -                                          *         FAX         4528     A     
 FAX      *                             X1 = CONVERTED CONSTANT                  *         FAX         4529     A     
 FAX      *                                                                      *         FAX         4530     A     
 FAX      ************************************************************************         FAX         4531     A     
 FAX                SPACE  2                                                               FAX         4532     A     
 FAX                MOVSTART  13B                                                          FAX         4533     A     
 FAX       CONVERT  BSS    1                                                               FAX         4534     A     
 FAX                MX0    54                                                              FAX         4535     A     
 FAX                BX1    X1-X1                                                           FAX         4536     A     
 FAX                SX2    1R9                                                             FAX         4537     A     
 FAX                IX7    X2-X3                                                           FAX         4538     A     
 FAX                AX7    59                                                              FAX         4539     A     
 FAX                SA2    =50000000000000060000B                                          FAX         4540     A     
 FAX                PL     X7,CONVERT2                                                     FAX         4541     A     
 FAX                GCH    X3                                                              FAX         4542     A     
 FAX                SX3    X3-1R0                                                          FAX         4543     A     
 FAX                CWD                                                                    FAX         4544     A     
 FAX       CONVERT1 LX1    3                                                               FAX         4545     A     
 FAX                BX1    X1+X3                                                           FAX         4546     A     
 FAX                AX3    X5,B4                                                           FAX         4547     A     
 FAX                SB4    B4-B6                                                           FAX         4548     A     
 FAX                CWD                                                                    FAX         4549     A     
 FAX       CONVERT2 BX3    -X0*X3                                                          FAX         4550     A     
 FAX                SB1    X3                                                              FAX         4551     A     
 FAX                SX3    X3-1R0                                                          FAX         4552     A     
 FAX                LX4    B1,X2                                                           FAX         4553     A     
 FAX                PL     X4,CONVERT1       IF NOT A B, BLANK OR ,                        FAX         4554     A     
 FAX                                                                                       FAX         4555     A     
 FAX                BX1    X1-X7                                                           FAX         4556     A     
 FAX                EQ     CONVERT                                                         FAX         4557     A     
 FAX                MOVEND                                                                 FAX         4558     A     
 FAX                SPACE  4                                                               FAX         4559     A     
 FAX      ***********************************************************************          FAX         4560     A     
 FAX      *                                                                     *          FAX         4561     A     
 FAX      *         PACK IDENTIFIER S.R.                                        *          FAX         4562     A     
 FAX      *         ENTER WITH                                                  *          FAX         4563     A     
 FAX      *         X1=CHARS ALREADY PACKED                                     *          FAX         4564     A     
 FAX      *         B2=BIT COUNT OF CHARS ALREADY PACKED                        *          FAX         4565     A     
 FAX      *                                                                     *          FAX         4566     A     
 FAX      *         EXITS WITH                                                  *          FAX         4567     A     
 FAX      *         X1=ID PACKED LEFT JUSTIFIED IN BITS 47-0 WITH BLANK FILL    *          FAX         4568     A     
 FAX      *         TERMINATING CH IN B1                                         *         FAX         4569     A     
 FAX      *                                                                     *          FAX         4570     A     
 FAX      ***********************************************************************          FAX         4571     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2716    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SPACE  2                                                               FAX         4572     A     
 FAX                MOVSTART  9                                                            FAX         4573     A     
 FAX       PACKID   BSS    1                                                               FAX         4574     A     
 FAX                SA2    =40000000000032060000B  DELIMITER FLAG WORD (ZRO BYTE           FAX         4575     A     
 FAX       PK1      GCH    X6                +,-,/,BLANK,COMMA)            PK1             FAX         4576     A     
 FAX                SB1    X6                                                              FAX         4577     A     
 FAX                CWD                                                                    FAX         4578     A     
 FAX                LX3    X2,B1                                                           FAX         4579     A     
 FAX                NG     X3,PK2                                                          FAX         4580     A     
 FAX                LX1    6                                                               FAX         4581     A     
 FAX                SB2    B2+B6                                                           FAX         4582     A     
 FAX                BX1    X1+X6                                                           FAX         4583     A     
 FAX                EQ     PK1                                                             FAX         4584     A     
 FAX       PK2      SA2    =8R                                                             FAX         4585     A     
 FAX                SB3    B2-48                                                           FAX         4586     A     
 FAX                AX1    X1,B3                                                           FAX         4587     A     
 FAX                AX2    X2,B2                                                           FAX         4588     A     
 FAX                BX1    X1+X2                                                           FAX         4589     A     
 FAX                EQ     PACKID                                                          FAX         4590     A     
 FAX                MOVEND                                                                 FAX         4591     A     
 FAX       RCARD    SPACE  4,8                                                             FAX         4592     A     
 FAX      **        RCARD - READ *COMPS* LINE AND SET UP REGISTERS.                        FAX         4593     A     
 FAX      *                                                                                FAX         4594     A     
 FAX      *         ENTRY  NO REQUIREMENTS.                                                FAX         4595     A     
 FAX      *                                                                                FAX         4596     A     
 FAX      *         EXIT   NEW LINE IN BUFFER BEGINNING AT (ILINE).                        FAX         4597     A     
 FAX      *                (SWC) = LINE LENGTH (WORDS)                                     FAX         4598     A     
 FAX      *                (X0) = 54D-BIT MASK, LEFT ADJ                                   FAX         4599     A     
 FAX      *                (X5) = 2ND WORD OF LINE                                         FAX         4600     A     
 FAX      *                (X7) = LINE LENGTH (WORDS)                                      FAX         4601     A     
 FAX      *                (A5) = ILINE+1                                                  FAX         4602     A     
 FAX      *                (B1) = 1                                                        FAX         4603     A     
 FAX      *                (B4) = 54D                                                      FAX         4604     A     
 FAX      *                (B5) = 1                                                        FAX         4605     A     
 FAX      *                (B6) = 6                                                        FAX         4606     A     
 FAX      *                (B7) = 54D                                                      FAX         4607     A     
 FAX      *                IF PREMATURE EOS/EOP/EOI ON -COMPS, EXITS TO *NOEND*.           FAX         4608     A     
 FAX      *                                                                                FAX         4609     A     
 FAX      *         USES   X - 0, 5, 7                                                     FAX         4610     A     
 FAX      *                A - 5, 7                                                        FAX         4611     A     
 FAX      *                B - 1, 4, 5, 6, 7                                               FAX         4612     A     
 FAX      *                                                                                FAX         4613     A     
 FAX      *         CALLS  READC                                                           FAX         4614     A     
 FAX                                                                                       FAX         4615     A     
 FAX                                                                                       FAX         4616     A     
 FAX       RCARD    ENTRY. *           ** ENTRY/EXIT **                                    FAX         4617     A     
 FAX                SB1    1                                                               FAX         4618     A     
 FAX                READC  F.CMPS,ILINE,LINESIZE-ISHIFT                                    FAX         4619     A     
 FAX                NZ     X1,NOEND    IF -COMPS- PREMATURELY EMPTY, ERROR                 FAX         4620     A     
 FAX                SA5    ILINE+1     (X5) = 2ND WORD OF LINE                             FAX         4621     A     
 FAX                SX7    B6-ILINE    (X7) = LINE LENGTH (WORDS)                          FAX         4622     A     
 FAX                MX0    -6                                                              FAX         4623     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2717    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SB5    B1                                                              FAX         4624     A     
 FAX                SB4    54D                                                             FAX         4625     A     
 FAX                SA7    SWC                                                             FAX         4626     A     
 FAX                SB6    6                                                               FAX         4627     A     
 FAX                SB7    B4                                                              FAX         4628     A     
 FAX                EQ     RCARD       EXIT                                                FAX         4629     A     
 FAX       RTB      SPACE  4,8                                                             FAX         4630     A     
 FAX      **        RTB - REMOVE TRAILING BLANKS.                                          FAX         4631     A     
 FAX      *                                                                                FAX         4632     A     
 FAX      *         REMOVES BLANK FILL FROM 7-CHARACTER LEFT-JUSTIFIED VARIABLE            FAX         4633     A     
 FAX      *         NAME.  PRESERVES LOWER 18 BITS.                                        FAX         4634     A     
 FAX      *                                                                                FAX         4635     A     
 FAX      *         ENTRY  (X6) = 42/7H(NAME), 18/(ELSE)                                   FAX         4636     A     
 FAX      *                                                                                FAX         4637     A     
 FAX      *         EXIT   (X6) = 42/7L(NAME), 18/(ELSE)                                   FAX         4638     A     
 FAX      *                                                                                FAX         4639     A     
 FAX      *         USES   X4, X7, A4, B7                                                  FAX         4640     A     
 FAX                                                                                       FAX         4641     A     
 FAX                                                                                       FAX         4642     A     
 FAX       RTB      ENTRY. *           ** ENTRY/EXIT **                                    FAX         4643     A     
 FAX                SA4    =1H                                                             FAX         4644     A     
 FAX                LX6    -18         RIGHT JUSTIFY BLANKS                                FAX         4645     A     
 FAX                BX7    X6-X4       CONVERT BLANKS TO ZERO BYTES                        FAX         4646     A     
 FAX                MX4    -1                                                              FAX         4647     A     
 FAX                NO                                                                     FAX         4648     A     
 FAX                IX4    X7+X4       BORROW RIPPLES LEFT TO FIRST NON-ZERO BYTE          FAX         4649     A     
 FAX                BX7    -X7*X4      BYTES =00 ON LEFT OF BORROW, =77 ON RIGHT           FAX         4650     A     
 FAX                SA4    =40404040404040404040B                                          FAX         4651     A     
 FAX                SB7    60-5                                                            FAX         4652     A     
 FAX                BX4    X4*X7       EACH BORROW BYTE = 40                               FAX         4653     A     
 FAX                LX7    X4,B7                        = 01                               FAX         4654     A     
 FAX                IX7    X4-X7                        = 37                               FAX         4655     A     
 FAX                BX4    X4+X7                        = 77                               FAX         4656     A     
 FAX                BX6    -X4*X6      REMOVE BLANKS                                       FAX         4657     A     
 FAX                LX6    18          RESTORE ORIGINAL POSITION                           FAX         4658     A     
 FAX                EQ     RTB         EXIT                                                FAX         4659     A     
 FAX                                                                                       FAX         4660     A     
 FAX       MR.CLEAN =      RTB         LINK OBSOLETE NAME TO ENTRY POINT                   FAX         4661     A     
 FAX       SKIP2    SPACE  4,8                                                             FAX         4662     A     
 FAX      **        SKIP2 - SKIP TWO LINES IN OUTPUT LISTING.                              FAX         4663     A     
 FAX      *                                                                                FAX         4664     A     
 FAX      *         ENTRY  NO REQUIREMENTS.                                                FAX         4665     A     
 FAX      *                                                                                FAX         4666     A     
 FAX      *         EXIT   TWO LINES SKIPPED IF BINARY LIST OPTION ON (O = .NZ.)           FAX         4667     A     
 FAX      *                (B1) = 1                                                        FAX         4668     A     
 FAX      *                (B5) = 1                                                        FAX         4669     A     
 FAX      *                                                                                FAX         4670     A     
 FAX      *         USES   X1, A1, B1, B5                                                  FAX         4671     A     
 FAX      *                                                                                FAX         4672     A     
 FAX      *         CALLS  LISTL (FA=LOL)                                                  FAX         4673     A     
 FAX                                                                                       FAX         4674     A     
 FAX                                                                                       FAX         4675     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2718    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       SKIP2    ENTRY. *           ** ENTRY/EXIT **                                    FAX         4676     A     
 FAX                SA1    OLIST                                                           FAX         4677     A     
 FAX                SB1    1                                                               FAX         4678     A     
 FAX                SB5    B1+                                                             FAX         4679     A     
 FAX                ZR     X1,SKIP2    IF BINARY LIST OPTION OFF (O = .ZR.), EXIT          FAX         4680     A     
 FAX                LISTL  (=2C  ),1                                                       FAX         4681     A     
 FAX                LISTL  (=2C  ),1                                                       FAX         4682     A     
 FAX                SB5    B1+                                                             FAX         4683     A     
 FAX                EQ     SKIP2       EXIT                                                FAX         4684     A     
 FAX       WEOR     SPACE  4,8                                                             FAX         4685     A     
 FAX      **        WEOR - WRITE EOR/EOS ON BINARY OUTPUT FILE.                            FAX         4686     A     
 FAX      *                                                                                FAX         4687     A     
 FAX      *         ENTRY  NO REQUIREMENTS.                                                FAX         4688     A     
 FAX      *                                                                                FAX         4689     A     
 FAX      *         EXIT   END-OF-RECORD/SECTION WRITTEN.                                  FAX         4690     A     
 FAX      *                (B1) = 1                                                        FAX         4691     A     
 FAX      *                (B5) = 1                                                        FAX         4692     A     
 FAX      *                                                                                FAX         4693     A     
 FAX      *         USES   X2, A2, B1, B5                                                  FAX         4694     A     
 FAX      *                                                                                FAX         4695     A     
 FAX      *         CALLS WRITER                                                           FAX         4696     A     
 FAX                                                                                       FAX         4697     A     
 FAX                                                                                       FAX         4698     A     
 FAX       WEOR     ENTRY. *           ** ENTRY/EXIT **                                    FAX         4699     A     
 FAX                SA2    FV.LGO                                                          FAX         4700     A     
 FAX                SB1    1                                                               FAX         4701     A     
 FAX                ZR     X2,WEOR     IF BINARY OUTPUT OPTION OFF (B=0)                   FAX         4702     A     
 FAX                WRITER =XF.LGO,RCL                                                     FAX         4703     A     
 FAX                SB5    B1+                                                             FAX         4704     A     
 FAX                EQ     WEOR        EXIT                                                FAX         4705     A     
 FAX                SPACE  2                                                               FAX         4706     A     
 FAX                EJECT                                                                  FAX         4707     A     
 FAX      ************************************************************************         FAX         4708     A     
 FAX      *                                                                      *         FAX         4709     A     
 FAX      * WRSEQ - WRITES BLOCK OF UP TO 15 WORDS INTO TEXT TABLE               *         FAX         4710     A     
 FAX      *                                                                      *         FAX         4711     A     
 FAX      *         CALLING SEQUENCE -                                           *         FAX         4712     A     
 FAX      *                   A4 = STARTING ADDRESS                              *         FAX         4713     A     
 FAX      *                   X4 = FIRST WORD                                    *         FAX         4714     A     
 FAX      *                   X6 = WORD COUNT                                    *         FAX         4715     A     
 FAX      *                   X7 = RELOCATION BYTES, LEFT JUSTIFIED              *         FAX         4716     A     
 FAX      *                                                                      *         FAX         4717     A     
 FAX      ************************************************************************         FAX         4718     A     
 FAX                SPACE  2                                                               FAX         4719     A     
 FAX                SPACE  2                                                               FAX         4720     A     
 FAX                USE    /TABLES/                                                        FAX         4721     A     
 FAX       WRSEQR   BSS    3                 RELOC BYTES, WORD COUNT, STARTING AD:         FAX         4722     A     
 FAX                USE    *                                                               FAX         4723     A     
 FAX                SPACE  2                                                               FAX         4724     A     
 FAX                MOVSTART  4                                                            FAX         4725     A     
 FAX       WRSEQ    BSS    1                                                               FAX         4726     A     
 FAX                SA7    WRSEQR            SAVE RELOCATION BYTES                         FAX         4727     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2719    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SB6    WRSEQ1            SET RETURN ADDRESS FOR WRTEXT                 FAX         4728     A     
 FAX                BX6    -X6                                                             FAX         4729     A     
 FAX                SA6    A7+B5             SAVE NEGATIVE WORD COUNT                      FAX         4730     A     
 FAX                SB1    60                SET BIT COUNT FOR WRTEXT                      FAX         4731     A     
 FAX                SX7    A4+B5                                                           FAX         4732     A     
 FAX                SA7    A6+B5             SAVE STARTING ADDRESS + 1                     FAX         4733     A     
 FAX                EQ     WRTEXT            GO WRITE FIRST WORD                           FAX         4734     A     
 FAX                MOVEND                                                                 FAX         4735     A     
 FAX                SPACE  1                                                               FAX         4736     A     
 FAX                MOVSTART  7                                                            FAX         4737     A     
 FAX       WRSEQ1   BX7    X7-X7             STOP FURTHER PRINTING OF SOURCE IMAGE         FAX         4738     A     
 FAX                SA7    ILINE                                                           FAX         4739     A     
 FAX                SX7    B5                                                              FAX         4740     A     
 FAX                SA7    SWC                                                             FAX         4741     A     
 FAX                SB6    WRSEQ2                                                          FAX         4742     A     
 FAX       WRSEQ2   MX0    60-4              SET MASK FOR RELOCATION BYTE                  FAX         4743     A     
 FAX                SA1    WRSEQR            LOAD RELOCATION BYTES                         FAX         4744     A     
 FAX                LX1    4                                                               FAX         4745     A     
 FAX                BX5    -X0*X1            MASK OFF NEXT RELOCATION BYTE                 FAX         4746     A     
 FAX                IX6    X6+X5             ADD IN RELOCATION BYTE                        FAX         4747     A     
 FAX                SA6    A3                STORE RELOCATION BYTE                         FAX         4748     A     
 FAX                SA2    A1+B5             LOAD WORD COUNT                               FAX         4749     A     
 FAX                SX6    X2+B5                                                           FAX         4750     A     
 FAX                ZR     X6,WRSEQ          SENSE LAST WORD MOVED                         FAX         4751     A     
 FAX                SA6    A2                                                              FAX         4752     A     
 FAX                SA4    A2+B5             LOAD ADDRESS OF NEXT WORD TO MOVE             FAX         4753     A     
 FAX                SX7    X4+B5                                                           FAX         4754     A     
 FAX                LX6    X1                                                              FAX         4755     A     
 FAX                SA7    A4                                                              FAX         4756     A     
 FAX                SA6    A1                                                              FAX         4757     A     
 FAX                SA4    X4                LOAD NEXT WORD TO MOVE                        FAX         4758     A     
 FAX                EQ     WRTEXT                                                          FAX         4759     A     
 FAX                MOVEND                                                                 FAX         4760     A     
 FAX                EJECT                                                                  FAX         4761     A     
 FAX      ************************************************************************         FAX         4762     A     
 FAX      *                                                                      *         FAX         4763     A     
 FAX      * WRTEXT - FORMS AND WRITES TEXT TABLES FOR THE LOADER                 *         FAX         4764     A     
 FAX      *                                                                      *         FAX         4765     A     
 FAX      *         CALLING SEQUENCE -                                           *         FAX         4766     A     
 FAX      *                   B6.= RETURN ADDRESS                                *         FAX         4767     A     
 FAX      *                   B5.= 1                                             *         FAX         4768     A     
 FAX      *                   X4.= INSTRUCTION OR DATA TO BE OUTPUT              *         FAX         4769     A     
 FAX      *                   B1.= BIT COUNT OF INSTRUCTION OR DATA              *         FAX         4770     A     
 FAX      *                   EQ  WRTEXT                                         *         FAX         4771     A     
 FAX      *                                                                      *         FAX         4772     A     
 FAX      *         ON EXIT -                                                    *         FAX         4773     A     
 FAX      *                   X6 = ADJUSTED RELOCATION BYTE WORD                 *         FAX         4774     A     
 FAX      *                   A3 = ADD. OF THE RB WORD                           *         FAX         4775     A     
 FAX      *                   B7 = TEXT ADDRESS                                  *         FAX         4776     A     
 FAX      *                   B5 = 1                                             *         FAX         4777     A     
 FAX      *                                                                      *         FAX         4778     A     
 FAX      *         THIS ROUTINE WILL CALL WRWDS TO WRITE A FULL TEXT TABLE AND  *         FAX         4779     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2720    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *         WRLIST IF THE SWITCH AT WRTSW HAS BEEN SET.                  *         FAX         4780     A     
 FAX      *                                                                      *         FAX         4781     A     
 FAX      ************************************************************************         FAX         4782     A     
 FAX                SPACE  2                                                               FAX         4783     A     
 FAX                USE    /TABLES/                                                        FAX         4784     A     
 FAX       OCTEMP   BSS    3                                                               FAX         4785     A     
 FAX                USE    *                                                               FAX         4786     A     
 FAX       BCTEMP   EQU    OCTEMP+1                                                        FAX         4787     A     
 FAX       RETEMP   EQU    OCTEMP+2                                                        FAX         4788     A     
 FAX                SPACE  2                                                               FAX         4789     A     
 FAX       L4.15    SB6    INITL             ENTER WITH A 15 BIT QUANTITY                  FAX         4790     A     
 FAX                SB1    15                                                              FAX         4791     A     
 FAX                SPACE  2                                                               FAX         4792     A     
 FAX       WRTEXT   SA2    TEXT.ADD          ADDRESS OF CURRENT TEXT TABLE                 FAX         4793     A     
 FAX                SA1    FFLAG                                                           FAX         4794     A     
 FAX                SB7    X2                B7.=TEXT.ADD                                  FAX         4795     A     
 FAX                SA2    B7-B5             X2.= TABC                                     FAX         4796     A     
 FAX                SA3    A2-B5             X3.= POSC                                     FAX         4797     A     
 FAX                SB2    X2                                                              FAX         4798     A     
 FAX                SA5    B2+B7             X5.=CURRENT WORD(CW)                          FAX         4799     A     
 FAX                SB3    X3                                                              FAX         4800     A     
 FAX                SX1    X1-1                                                            FAX         4801     A     
 FAX                SB4    B3-60                                                           FAX         4802     A     
 FAX                NG     X1,WRT5           IF FFLAG GTR 0 AND POSC NEQ 60 THEN F         FAX         4803     A     
 FAX                ZR     B4,WRT5           UPPER.                                        FAX         4804     A     
 FAX       WRT1     SA1    A3-B5             X1.= ORGC                                     FAX         4805     A     
 FAX                SA3    B7+B5             X3.= RELOCATION BYTE WORD                     FAX         4806     A     
 FAX                SX0    46000B            X0.= NO-OP                                    FAX         4807     A     
 FAX       WRT2     ZR     B3,WRT3           IF POSC=0 THEN EXIT ELSE SHIFT NO-OP          FAX         4808     A     
 FAX                SB3    B3-15             POSC AND .OR. TO CW, POSITION RELO WO         FAX         4809     A     
 FAX                LX2    X0,B3                                                           FAX         4810     A     
 FAX                IX3    X3+X3                                                           FAX         4811     A     
 FAX                BX5    X5+X2                                                           FAX         4812     A     
 FAX                EQ     WRT2                                                            FAX         4813     A     
 FAX                                                                                       FAX         4814     A     
 FAX       WRT3     SX7    B5                                                              FAX         4815     A     
 FAX                IX7    X1+X7                                                           FAX         4816     A     
 FAX                BX6    X5                                                              FAX         4817     A     
 FAX                SA7    A1                ORGC.= ORGC+1                                 FAX         4818     A     
 FAX                SB2    B2+B5             TABC.=TABC+1                                  FAX         4819     A     
 FAX                LX7    X3,B0                                                           FAX         4820     A     
 FAX                SB4    B2-17                                                           FAX         4821     A     
 FAX                SA6    A5                STORE CW                                      FAX         4822     A     
 FAX                SA7    A3                SAVE RELO BYTE WORD                           FAX         4823     A     
 FAX                NZ     B4,WRT4           IF TABC=17 THEN WRITE THIS TABLE AND          FAX         4824     A     
 FAX                BX6    X4                A NEW ONE.                                    FAX         4825     A     
 FAX                SA1    B7                                                              FAX         4826     A     
 FAX                SX7    B2-B5                                                           FAX         4827     A     
 FAX                LX7    36                                                              FAX         4828     A     
 FAX                SA6    OCTEMP            SAVE CURRENT INSTRUCTION                      FAX         4829     A     
 FAX                BX7    X1+X7                                                           FAX         4830     A     
 FAX                SA7    A1                WORD COUNT.=TABC-1                            FAX         4831     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2721    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SX6    B1                                                              FAX         4832     A     
 FAX                SX7    B6                                                              FAX         4833     A     
 FAX                SA6    A6+B5             SAVE BIT COUNT                                FAX         4834     A     
 FAX                SA7    A6+B5             SAVE RET. ADD.                                FAX         4835     A     
 FAX      * IF SNAPTEXT=1 THEN DUMP THE FULL TEXT TABLE.                                   FAX         4836     A     
 FAX       SNAPTEXT EQU    DEBUG                                                           FAX         4837     A     
 FAX                IFEQ   SNAPTEXT,1,1                                                    FAX         4838     A     
 FAX                SNAP   -TEXT.ADD,,17,1,100,1,TEXT-TB-WR,1                              FAX         4839          I
          -FEAT155F 
 FAX       TXT-TBWR SNAP   *TEXT.ADD,,17,NR                                                FEAT155F     248     A     
 FAX                                                                                       FAX         4840     A     
 FAX                SA4    FV.LGO                                                          FAX         4841     A     
 FAX                SB1    1                                                               FAX         4842     A     
 FAX                ZR     X4,WRT3A          IF B = 0                                      FAX         4843     A     
 FAX                SB6    B7                                                              FAX         4844     A     
 FAX                WRITEW F.LGO,B6,B2                                                     FAX         4845     A     
 FAX       WRT3A    SA5    TEXT.ADD          X5=. TEXT TABLE ADDRESS                       FAX         4846     A     
 FAX                MX2    1                 X2.=TEXT HEADING                              FAX         4847     A     
 FAX                SB5    B1                                                              FAX         4848     A     
 FAX                SA1    X5-3              X1.= ORGC                                     FAX         4849     A     
 FAX                BX6    X1+X2                                                           FAX         4850     A     
 FAX                SB7    X5                                                              FAX         4851     A     
 FAX                SA6    X5                STORE NEW ID WORD                             FAX         4852     A     
 FAX                SX7    B0                                                              FAX         4853     A     
 FAX                SA7    A6+B5             CLEAR RB WORD                                 FAX         4854     A     
 FAX                SA4    OCTEMP            RESTORE OPCODE, BIT COUNT AND RET ADD         FAX         4855     A     
 FAX                SB2    B5+B5             TC.= 2                                        FAX         4856     A     
 FAX                SA3    A4+B5                                                           FAX         4857     A     
 FAX                SA1    A3+B5                                                           FAX         4858     A     
 FAX                NO                                                                     FAX         4859     A     
 FAX                SB1    X3                                                              FAX         4860     A     
 FAX                SB6    X1                                                              FAX         4861     A     
 FAX       WRT4     BX5    X5-X5             CW.= 0                                        FAX         4862     A     
 FAX                SB3    60                POSC.= 60                                     FAX         4863     A     
 FAX       WRT5     SB4    B3-B1             POSC.= POSC-BIT COUNT                         FAX         4864     A     
 FAX                NG     B4,WRT1           IF POSC LSS 0 THEN FORCE UPPER                FAX         4865     A     
 FAX                SX7    B2                                                              FAX         4866     A     
 FAX                LX3    X4,B4                                                           FAX         4867     A     
 FAX                SA7    B7-B5             SAVE      TABC                                FAX         4868     A     
 FAX                BX6    X3+X5                                                           FAX         4869     A     
 FAX                SX7    B4                                                              FAX         4870     A     
 FAX       WRTSW    SA6    B7+B2             PACK NEW BINARY INTO CW AND STORE             FAX         4871     A     
 FAX                SA7    A7-B5                                                           FAX         4872     A     
 FAX                NO     0                 THESE TWO NO-OPS ARE REPLACED BY AN R         FAX         4873     A     
 FAX                NO     0                 WRLIST WHEN THE -O- OPTION IS SPECIFI         FAX         4874     A     
 FAX                SX1    B1+4                                                            FAX         4875     A     
 FAX                SA3    B7+B5                                                           FAX         4876     A     
 FAX                AX1    4                                                               FAX         4877     A     
 FAX                SB2    X1                                                              FAX         4878     A     
 FAX                LX6    X3,B2             SHIFT THE RELO BYTE WORD BY ONE BIT F         FAX         4879     A     
 FAX                SA6    A3                                                              FAX         4880     A     
 FAX                JP     B6                EACH 15 PACKED AND LEAVE IT IN X6             FAX         4881     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2722    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SPACE  4                                                               FAX         4882     A     
 FAX      **********************************************************************           FAX         4883     A     
 FAX      *                                                                    *           FAX         4884     A     
 FAX      * FOTEXT- FORCE OUT THE (PARTIALLY FILLED) TEXT TABLE THAT IS INDI-  *           FAX         4885     A     
 FAX      *         CATED BY TEXT.ADD.                                         *           FAX         4886     A     
 FAX      *                                                                    *           FAX         4887     A     
 FAX      *         CALLING SEQUENCE-                                          *           FAX         4888     A     
 FAX      *                   RJ FOTEXT                                        *           FAX         4889     A     
 FAX      *                                                                    *           FAX         4890     A     
 FAX      *         ON RETURN-                                                 *           FAX         4891     A     
 FAX      *                   THE CUREENT TEXT TABLE HAS BEEN WRITTEN ON LGO   *           FAX         4892     A     
 FAX      *                   WITH THE RELOCATION BYTE WORD ADJUSTED AND THE   *           FAX         4893     A     
 FAX      *                   CORRECT WORD COUNT -IF IT IS NOT EMPTY. THE NEW  *           FAX         4894     A     
 FAX      *                   TABLE IS PROPERLY INITALIZED.                    *           FAX         4895     A     
 FAX      *                                                                    *           FAX         4896     A     
 FAX      **********************************************************************           FAX         4897     A     
 FAX                SPACE  2                                                               FAX         4898     A     
 FAX       FOTEXT   ENTRY. *                 ** ENTRY/EXIT **                              FAX         4899     A     
 FAX                SX6    B5                                                              FAX         4900     A     
 FAX                SB6    FOTEXT2           RETURN ADDRESS FOR WRTEXT                     FAX         4901     A     
 FAX                BX4    X4-X4             CLEAR DATA                                    FAX         4902     A     
 FAX                SB1    B0                BIT COUNT FOR WRTEXT                          FAX         4903     A     
 FAX                SA6    FFLAG             SET FORCE FLAG                                FAX         4904     A     
 FAX                EQ     WRTEXT            GO FORCE UPPER                                FAX         4905     A     
 FAX                                                                                       FAX         4906     A     
 FAX       FOTEXT2  SA2    B7-B5             GET TABC                                      FAX         4907     A     
 FAX                SX7    B5+B5                                                           FAX         4908     A     
 FAX                SB6    B7                                                              FAX         4909     A     
 FAX                IX6    X2-X7                                                           FAX         4910     A     
 FAX                ZR     X6,FOTEXT1        SENSE EMPTY TEXT TABLE                        FAX         4911     A     
 FAX                SA3    B7                GET ID WORD                                   FAX         4912     A     
 FAX                SX6    X6+B5             FORM WORD COUNT FOR TEXT TABLE                FAX         4913     A     
 FAX                LX6    36                                                              FAX         4914     A     
 FAX                BX6    X6+X3             OR IN WORD COUNT                              FAX         4915     A     
 FAX                SA7    A2                RESET TABC TO 2                               FAX         4916     A     
 FAX                SA6    B7                                                              FAX         4917     A     
 FAX                SX0    17                                                              FAX         4918     A     
 FAX                IX0    X0-X2                                                           FAX         4919     A     
 FAX                LX0    2                                                               FAX         4920     A     
 FAX                SA4    B7+B5             GET RELOCATION BYTE                           FAX         4921     A     
 FAX                SB3    X0                                                              FAX         4922     A     
 FAX                LX6    X4,B3             ADJUST LEFT BY 4*(17-TABC)                    FAX         4923     A     
 FAX                SA6    A4                                                              FAX         4924     A     
 FAX      * IF SNAPTEXT=1 THEN DUMP THIS TABLE.                                            FAX         4925     A     
 FAX                IFEQ   SNAPTEXT,1                                                      FAX         4926     A     
 FAX                SX7    X2+B6                                                           FAX         4927          I
          -FEAT155F 
 FAX       +        SA7    *+2                                                             FAX         4928          I
          -FEAT155F 
 FAX                SNAP   -TEXT.ADD,,,1,100,1,TEXT-TB-FO,1                                FAX         4929          I
          -FEAT155F 
 FAX       TXT-TBFO SNAP   *TEXT.ADD,,17,NR                                                FEAT155F     249     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2723    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                ENDIF                                                                  FAX         4930     A     
 FAX                                                                                       FAX         4931     A     
 FAX                SA4    FV.LGO                                                          FAX         4932     A     
 FAX                SB1    1                                                               FAX         4933     A     
 FAX                ZR     X4,FOTEXT3        IF B = 0                                      FAX         4934     A     
 FAX                SB7    X2                                                              FAX         4935     A     
 FAX                WRITEW F.LGO,B6,B7                                                     FAX         4936     A     
 FAX                SB5    B1+                                                             FAX         4937     A     
 FAX       FOTEXT3  SA1    TEXT.ADD                                                        FAX         4938     A     
 FAX                BX6    X6-X6                                                           FAX         4939     A     
 FAX                IX7    X7-X7                                                           FAX         4940     A     
 FAX                SA6    X1+B5             CLEAR RELOCATION BYTE                         FAX         4941     A     
 FAX                SA2    X1-3              GET RB AND ORGC                               FAX         4942     A     
 FAX                SA7    A6+B5             CLEAR THIRD WORD OF TEXT TABLE                FAX         4943     A     
 FAX                MX6    1                                                               FAX         4944     A     
 FAX                BX6    X6+X2                                                           FAX         4945     A     
 FAX                SA6    X1                RESET ID WORD                                 FAX         4946     A     
 FAX                EQ     FOTEXT                                                          FAX         4947     A     
 FAX                                                                                       FAX         4948     A     
 FAX       FOTEXT1  SA2    B7-3              GET RB AND ORGC                               FAX         4949     A     
 FAX                MX6    1                                                               FAX         4950     A     
 FAX                BX6    X6+X2                                                           FAX         4951     A     
 FAX                SA6    B7                RESET ID WORD                                 FAX         4952     A     
 FAX                EQ     FOTEXT                                                          FAX         4953     A     
 FAX                EJECT                                                                  FAX         4954     A     
 FAX      ************************************************************************         FAX         4955     A     
 FAX      *                                                                      *         FAX         4956     A     
 FAX      * WRLIST- SUBROUTINE TO PROVIDE AN ASSEMBLER LISTING. THE LISTING IS   *         FAX         4957     A     
 FAX      *         OPTIONAL AND IS PROVIDED ON THE -O- OPTION WHEN PASS II OF   *         FAX         4958     A     
 FAX      *         THE COMPILER IS SET TO IGNORE IT.                            *         FAX         4959     A     
 FAX      *         THE LISTING INCLUDES FOR EACH SOURCE LINE -                  *         FAX         4960     A     
 FAX      *                                                                      *         FAX         4961     A     
 FAX      *                   THE VALUE OF THE ORGC AND THE NAME OF THE THE CUR- *         FAX         4962     A     
 FAX      *                   RENT RELOCATION BASE AFTER EACH FORCE UPPER,       *         FAX         4963     A     
 FAX      *                                                                      *         FAX         4964     A     
 FAX      *                   THE BINARY GENERATED, IF ANY, BY THE LINE,         *         FAX         4965     A     
 FAX      *                                                                      *         FAX         4966     A     
 FAX      *                   THE NAME OF THE RELOCATION BASE THAT THE ADDRESS   *         FAX         4967     A     
 FAX      *                   FIELD REFERS TO, IF AN ADDRESS IS PRESENT AND IF   *         FAX         4968     A     
 FAX      *                   IT IS NOT ABSOLUTE OR EXTERNAL.                    *         FAX         4969     A     
 FAX      *                                                                      *         FAX         4970     A     
 FAX      *                   THE ORIGINAL SOURCE LINE.                          *         FAX         4971     A     
 FAX      *                                                                      *         FAX         4972     A     
 FAX      *         ON ENTRY  X4 = BINARY                                        *         FAX         4973     A     
 FAX      *                   B6 = 0 IF THERE IS NO BINARY IN X4                 *         FAX         4974     A     
 FAX      *                   B5 = 1                                             *         FAX         4975     A     
 FAX      *                   B3 = OLD POSC                                      *         FAX         4976     A     
 FAX      *                   B1 = BIT COUNT OF THE BINARY, 0 IF IT IS NOT TO BE *         FAX         4977     A     
 FAX      *                        PRINTED.                                      *         FAX         4978     A     
 FAX      *                                                                      *         FAX         4979     A     
 FAX      *         ON EXIT B7,B6,B5, AND B1 ARE RESTORED.                       *         FAX         4980     A     
 FAX      *                                                                      *         FAX         4981     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2724    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *         THIS ROUTINE CALLS LIST  TO PRINT THE LINE AND CLINE TO      *         FAX         4982     A     
 FAX      *         CLEAR THE PRINT BUFFER                                       *         FAX         4983     A     
 FAX      *                                                                      *         FAX         4984     A     
 FAX      ************************************************************************         FAX         4985     A     
 FAX                USE    /TABLES/                                                        FAX         4986     A     
 FAX       B6T      BSS    2                                                               FAX         4987     A     
 FAX       BSPFLAG  BSS    1                                                               FAX         4988     A     
 FAX                USE    *                                                               FAX         4989     A     
 FAX                SPACE  2                                                               FAX         4990     A     
 FAX       WRLIST   ENTRY. *                 ** ENTRY/EXIT **                              FAX         4991     A     
 FAX                ZR     B1,WRLIST         IF BIT COUNT=0 THEN RETURN.                   FAX         4992     A     
 FAX                SX7    B6                                                              FAX         4993     A     
 FAX                SX6    B1                                                              FAX         4994     A     
 FAX                SA7    B6T               SAVE B1 AND B6                                FAX         4995     A     
 FAX                SA6    A7+1                                                            FAX         4996     A     
 FAX                SB7    B3                                                              FAX         4997     A     
 FAX                ZR     B6,WRL.6          IF B6=0 THEN THERE IS NO BINARY, PRIN         FAX         4998     A     
 FAX                SB6    B1                THE LINE AND RETURN ELSE CONVERT THE          FAX         4999     A     
 FAX                MX1    0                 BINARY TO DISPLAY.                            FAX         5000     A     
 FAX                SA2    =10H0000000000                                                  FAX         5001     A     
 FAX                SX0    7                                                               FAX         5002     A     
 FAX                SB4    10                                                              FAX         5003     A     
 FAX       WRL.1    SB6    B6-3              CONVERT THE OCTAL IN X4 TO 6 BIT CODE         FAX         5004     A     
 FAX                AX3    X4,B6                                                           FAX         5005     A     
 FAX                BX3    X0*X3                                                           FAX         5006     A     
 FAX                LX1    6                                                               FAX         5007     A     
 FAX                BX1    X1+X3                                                           FAX         5008     A     
 FAX                SB4    B4-1                                                            FAX         5009     A     
 FAX                ZR     B6,WRL.2                                                        FAX         5010     A     
 FAX                NZ     B4,WRL.1          IF BC=60 THEN STORE FIRST WORD IN LIN         FAX         5011     A     
 FAX                IX6    X1+X2             AND REINITIALIZE TO PACK THE SECOND.          FAX         5012     A     
 FAX                SB1    B1-30                                                           FAX         5013     A     
 FAX                MX1    0                                                               FAX         5014     A     
 FAX                SA6    LINE+2                                                          FAX         5015     A     
 FAX                SB3    B3-30                                                           FAX         5016     A     
 FAX                SB4    10                                                              FAX         5017     A     
 FAX                EQ     WRL.1                                                           FAX         5018     A     
 FAX                SPACE  2                                                               FAX         5019     A     
 FAX       WRL.2    SX5    B3                                                              FAX         5020     A     
 FAX                SB6    B1-30                                                           FAX         5021     A     
 FAX                AX5    5                                                               FAX         5022     A     
 FAX                ZR        B6,WRL.3  IF BC=30 THEN ZERO FILL, STORE, CHECK              FAX         5023     A     
 FAX                SX3       B3        RBTEMP ELSE BLANK FILL, DETERMINE                  FAX         5024     A     
 FAX                SA2       =10H     00000  HALF WORD POSITION AND STORE.                FAX         5025     A     
 FAX                LX3    59                                                              FAX         5026     A     
 FAX                IX6    X1+X2                                                           FAX         5027     A     
 FAX                NG     X3,WRL.5                                                        FAX         5028     A     
 FAX                LX6    30                                                              FAX         5029     A     
 FAX                EQ     WRL.5                                                           FAX         5030     A     
 FAX                SPACE  2                                                               FAX         5031     A     
 FAX       WRL.3    SB6    B7-45             IF POSC=45 THEN SPLIT THE 30 BIT QUAN         FAX         5032     A     
 FAX                NZ     B6,WRL.4          BETWEEN 2 WORDS.                              FAX         5033     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2725    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                LX1    30                                                              FAX         5034     A     
 FAX                SA2    =10H00000                                                       FAX         5035     A     
 FAX                MX0    30                                                              FAX         5036     A     
 FAX                BX6    X0*X1                                                           FAX         5037     A     
 FAX                IX6    X6+X2                                                           FAX         5038     A     
 FAX                SA6    LINE+3                                                          FAX         5039     A     
 FAX                LX2    30                                                              FAX         5040     A     
 FAX                BX1    -X0*X1                                                          FAX         5041     A     
 FAX                SPACE  2                                                               FAX         5042     A     
 FAX       WRL.4    SA3    RBTEMP            PRINT THE RELOCATION OF THE ADDRESS F         FAX         5043     A     
 FAX                MX7    60-L.RL     IF IT IS NOT ABSOLUTE.                              FAX         5044     A     
 FAX                LX3    -P.RL                                                           FAX         5045     A     
 FAX                BX7    -X7*X3                                                          FAX         5046     A     
 FAX                IX6    X1+X2                                                           FAX         5047     A     
 FAX                SB4    X7                                                              FAX         5048     A     
 FAX                LX3    P.RL-P.RB                                                       FAX         5049     A     
 FAX                JP     B4+WRL.41         JUMP INTO WRL.41 USING THE RL FIELD           FAX         5050     A     
 FAX                                                                                       FAX         5051     A     
 FAX       WRL.41   EQ     WRL.5             ABSOLUTE, EXIT                                FAX         5052     A     
 FAX       +        SA1    LORGTAB           PROGRAM RELOCATION                            FAX         5053     A     
 FAX                EQ     WRL.42                                                          FAX         5054     A     
 FAX       +        SA1    CORGTAB           COMMON RELOCATION                             FAX         5055     A     
 FAX                EQ     WRL.42                                                          FAX         5056     A     
 FAX      +         SA1       =10H <EXT>                                                   FAX         5057     A     
 FAX                BX7    X1                                                              FAX         5058     A     
 FAX                SA7    LINE+ISHIFT-1                                                   FAX         5059     A     
 FAX                EQ     WRL.5                                                           FAX         5060     A     
 FAX                SPACE  2                                                               FAX         5061     A     
 FAX       WRL.42   SA2    =20000000000000000026B                                          FAX         5062     A     
 FAX                MX0    60-L.RB                                                         FAX         5063     A     
 FAX                SB4    X1                PRINT IT.                                     FAX         5064     A     
 FAX                BX3    -X0*X3                                                          FAX         5065     A     
 FAX                PX3    X3,B0                                                           FAX         5066     A     
 FAX                SA4    =3R                                                             FAX         5067     A     
 FAX                DX3    X3*X2                                                           FAX         5068     A     
 FAX                MX0    42                                                              FAX         5069     A     
 FAX                SA1    B4+X3                                                           FAX         5070     A     
 FAX                BX1    X0*X1                                                           FAX         5071     A     
 FAX                BX7    X1+X4                                                           FAX         5072     A     
 FAX                LX7    54                                                              FAX         5073     A     
 FAX                SA7    LINE+ISHIFT-1                                                   FAX         5074     A     
 FAX                SPACE  2                                                               FAX         5075     A     
 FAX       WRL.5    LX5    59                                                              FAX         5076     A     
 FAX                AX5    58                                                              FAX         5077     A     
 FAX                SA6    X5+LINE+3                                                       FAX         5078     A     
 FAX                SPACE  2                                                               FAX         5079     A     
 FAX       WRL.6    SB4    B7-60             IF POSC=60 THEN PRINT ORGC AND BLOCK          FAX         5080     A     
 FAX                NZ     B4,WRL.8                                                        FAX         5081     A     
 FAX                SB6    15                                                              FAX         5082     A     
 FAX                SA4    TEXT.ADD                                                        FAX         5083     A     
 FAX                SA2    BSPFLAG                                                         FAX         5084     A     
 FAX                MX0    57                                                              FAX         5085     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2726    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                BX6    X6-X6                                                           FAX         5086     A     
 FAX                SA1       =10H   000000                                                FAX         5087     A     
 FAX                SA3    X4-3              X3.= ORGC                                     FAX         5088     A     
 FAX                SA5    =3R                                                             FAX         5089     A     
 FAX                IX3    X3-X2                                                           FAX         5090     A     
 FAX                SA6    A2                                                              FAX         5091     A     
 FAX       WRL.7    AX2    X3,B6                                                           FAX         5092     A     
 FAX                BX2    -X0*X2                                                          FAX         5093     A     
 FAX                SB6    B6-3                                                            FAX         5094     A     
 FAX                BX6    X2+X6                                                           FAX         5095     A     
 FAX                LX6    6                                                               FAX         5096     A     
 FAX                PL     B6,WRL.7                                                        FAX         5097     A     
 FAX                IX6    X6+X1                                                           FAX         5098     A     
 FAX                SA3    X4-5                                                            FAX         5099     A     
 FAX                MX0    42                                                              FAX         5100     A     
 FAX                BX7    X0*X3                                                           FAX         5101     A     
 FAX                SA6    LINE              STORE THE CONVERTED ORGC IN LINE              FAX         5102     A     
 FAX                BX7    X7+X5                                                           FAX         5103     A     
 FAX                SA7    A6+B5             STORE THE BLOCK NAME IN LINE+1                FAX         5104     A     
 FAX                SPACE  2                                                               FAX         5105     A     
 FAX       WRL.8    SA1    SWC               WORD COUNT                          W         FAX         5106     A     
 FAX                SB1    1                                                               FAX         5107     A     
 FAX                LISTL  LINE,X1+ISHIFT    LIST THE LINE                                 FAX         5108     A     
 FAX                SA2    =10H                                                            FAX         5109     A     
 FAX                SB5    B1                                                              FAX         5110     A     
 FAX                BX6    X2                                                              FAX         5111     A     
 FAX                SETCORE   LINE,ISHIFT                                                  FAX         5112     A     
 FAX                BX6    X6-X6                                                           FAX         5113     A     
 FAX                SA6    ILINE             INHIBIT FURTHER PRINTING OF SOURCE IM         FAX         5114     A     
 FAX                SX7    B5                                                              FAX         5115     A     
 FAX                SA7    SWC                                                             FAX         5116     A     
 FAX                SA1    B6T               RESTORE B1 AND B6                             FAX         5117     A     
 FAX                SA2    A1+B5                                                           FAX         5118     A     
 FAX                SB6    X1                                                              FAX         5119     A     
 FAX                SA3    TEXT.ADD                                                        FAX         5120     A     
 FAX                SB1    X2                                                              FAX         5121     A     
 FAX                SB7    X3                                                              FAX         5122     A     
 FAX                EQ     WRLIST                                                          FAX         5123     A     
 FAX       JOL      EJECT                                                                  FAX         5124     A     
 FAX      **        JOL - JUSTIFY OBJECT LISTING                                           FAX         5125     A     
 FAX      *         FORMATS LOCATION,OP AND ADDRESS FIELDS TO COLUMNS 2, 11 AND 18         FAX         5126     A     
 FAX                                                                                       FAX         5127     A     
 FAX       OJL      IFNE   .JOL,0                                                          FAX         5128     A     
 FAX       RJJOL    RJ     JOL                                                             FAX         5129     A     
 FAX                                                                                       FAX         5130     A     
 FAX                USE    /TABLES/                                                        FAX         5131     A     
 FAX                BSS    1                 FILLER USED FOR ADDR ASSIGNMENT               FAX         5132     A     
 FAX       ILINEB   BSS    10B               TEMPORARY BUFFER                              FAX         5133     A     
 FAX                USE    *                                                               FAX         5134     A     
 FAX                                                                                       FAX         5135     A     
 FAX       JOL0     SA1    SWC                                                             FAX         5136     A     
 FAX                SB1    1                                                               FAX         5137     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2727    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX       JOL      ROUTINE                                                                FAX         5138     A     
 FAX                SA1    SWC               MOVE OBJ LISTING WORDS TO TEMP BUFFER         FAX         5139     A     
 FAX                SA6    ILINEB-1                                                        FAX         5140     A     
 FAX                SA2    ILINE-1                                                         FAX         5141     A     
 FAX                SA0    A2+B5                                                           FAX         5142     A     
 FAX                SB2    -B5                                                             FAX         5143     A     
 FAX       JOL1     SA2    A2+B5                                                           FAX         5144     A     
 FAX                SX1    X1+B2                                                           FAX         5145     A     
 FAX                BX6    X2                                                              FAX         5146     A     
 FAX                SA6    A6+B5                                                           FAX         5147     A     
 FAX                NZ     X1,JOL1           IF MORE WORDS                                 FAX         5148     A     
 FAX                                                                                       FAX         5149     A     
 FAX                SA5    ILINEB                                                          FAX         5150     A     
 FAX                SB4    54                                                              FAX         5151     A     
 FAX                MX0    -6                                                              FAX         5152     A     
 FAX                AX1    B4,X5             GET AND TEST FIRST CHARACTER                  FAX         5153     A     
 FAX                SB4    B4-6                                                            FAX         5154     A     
 FAX                BX6    -X0*X1                                                          FAX         5155     A     
 FAX                MX7    0                                                               FAX         5156     A     
 FAX                ZR     X6,JOL0           IF NO OBJECT LISTING                          FAX         5157     A     
 FAX                SX4    X6-1R*                                                          FAX         5158     A     
 FAX                ZR     X4,JOL0           IF COMMENT                                    FAX         5159     A     
 FAX                SX2    10                                                              FAX         5160     A     
 FAX                SX4    X6-1R+                                                          FAX         5161     A     
 FAX                ZR     X4,JOL2           IF FIRST COLUMN IS +                          FAX         5162     A     
 FAX                SX4    X6-1R-                                                          FAX         5163     A     
 FAX                ZR     X4,JOL2           IF FIRST COLUMN IS -                          FAX         5164     A     
 FAX                SX2    X2-1                                                            FAX         5165     A     
 FAX                SX7    1R                                                              FAX         5166     A     
 FAX       JOL2     LX7    6                                                               FAX         5167     A     
 FAX                SX2    X2-1                                                            FAX         5168     A     
 FAX                IX7    X7+X6             SET LOCATION FIELD                            FAX         5169     A     
 FAX                AX1    B4,X5                                                           FAX         5170     A     
 FAX                SB4    B4-6                                                            FAX         5171     A     
 FAX                BX6    -X0*X1                                                          FAX         5172     A     
 FAX                SX4    X6-1R                                                           FAX         5173     A     
 FAX                NZ     X4,JOL2           IF NON-BLANK                                  FAX         5174     A     
 FAX                                                                                       FAX         5175     A     
 FAX                SX3    6                                                               FAX         5176     A     
 FAX                IX1    X3*X2                                                           FAX         5177     A     
 FAX                SB6    X1                                                              FAX         5178     A     
 FAX                LX7    B6,X7                                                           FAX         5179     A     
 FAX                SA1    SPACES+X2                                                       FAX         5180     A     
 FAX                BX7    X7+X1             PAD WITH BLANKS                               FAX         5181     A     
 FAX                SA7    A0                                                              FAX         5182     A     
 FAX                SB6    X3                                                              FAX         5183     A     
 FAX                SB1    -1R                                                             FAX         5184     A     
 FAX                SB3    54                                                              FAX         5185     A     
 FAX                SA0    B5                                                              FAX         5186     A     
 FAX                SB4    B4+B6                                                           FAX         5187     A     
 FAX                MX7    0                                                               FAX         5188     A     
 FAX       JOL3     SB4    B4-B6             FIND OP CODE                                  FAX         5189     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2728    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                AX1    B4,X5                                                           FAX         5190     A     
 FAX                BX4    -X0*X1                                                          FAX         5191     A     
 FAX                SX3    X4+B1                                                           FAX         5192     A     
 FAX                ZR     X3,JOL3           IF BLANK                                      FAX         5193     A     
 FAX                SX3    B6+B5                                                           FAX         5194     A     
 FAX       JOL4     PL     B4,JOL4A          IF WORD NOT EXHAUSTED                         FAX         5195     A     
 FAX                SA5    A5+B5                                                           FAX         5196     A     
 FAX                SB4    B3                                                              FAX         5197     A     
 FAX       JOL4A    AX1    B4,X5                                                           FAX         5198     A     
 FAX                SB4    B4-B6                                                           FAX         5199     A     
 FAX                BX4    -X0*X1                                                          FAX         5200     A     
 FAX                SX6    X4+B1                                                           FAX         5201     A     
 FAX                IX7    X7+X4                                                           FAX         5202     A     
 FAX                SX3    X3-1                                                            FAX         5203     A     
 FAX                LX7    6                                                               FAX         5204     A     
 FAX                NZ     X6,JOL4           IF NOT BLANK                                  FAX         5205     A     
 FAX                SA4    SPACES+X3                                                       FAX         5206     A     
 FAX                SX6    B6                                                              FAX         5207     A     
 FAX                SX3    X3+B2                                                           FAX         5208     A     
 FAX                IX1    X3*X6                                                           FAX         5209     A     
 FAX                SB2    X1                                                              FAX         5210     A     
 FAX                LX7    B2,X7                                                           FAX         5211     A     
 FAX                SB2    3                                                               FAX         5212     A     
 FAX                BX7    X7+X4             PAD WITH BLANKS                               FAX         5213     A     
 FAX       JOL5     PL     B4,JOL5A          IF WORD NOT EXHAUSTED                         FAX         5214     A     
 FAX                SA5    A5+B5                                                           FAX         5215     A     
 FAX                SB4    B3                                                              FAX         5216     A     
 FAX       JOL5A    AX1    B4,X5                                                           FAX         5217     A     
 FAX                SB4    B4-B6                                                           FAX         5218     A     
 FAX                BX6    -X0*X1                                                          FAX         5219     A     
 FAX                SX4    X6+B1                                                           FAX         5220     A     
 FAX                ZR     X4,JOL5           IF BLANK                                      FAX         5221     A     
 FAX                LX7    6                                                               FAX         5222     A     
 FAX                SB2    B2-B5                                                           FAX         5223     A     
 FAX                IX7    X6+X7             SET OPERAND FIELD                             FAX         5224     A     
 FAX                ZR     X6,JOL6           IF LINE FINISHED                              FAX         5225     A     
 FAX                NZ     B2,JOL5           IF WORD FILLED                                FAX         5226     A     
 FAX                SA7    A7+1                                                            FAX         5227     A     
 FAX                SB2    10                                                              FAX         5228     A     
 FAX                SA0    A0+B5                                                           FAX         5229     A     
 FAX                MX7    0                                                               FAX         5230     A     
 FAX                EQ     JOL5                                                            FAX         5231     A     
 FAX                                                                                       FAX         5232     A     
 FAX       JOL6     SX4    B2                                                              FAX         5233     A     
 FAX                SX5    B6                                                              FAX         5234     A     
 FAX                IX5    X4*X5                                                           FAX         5235     A     
 FAX                SB4    X5                                                              FAX         5236     A     
 FAX                LX7    B4,X7             SHIFT LAST WORD INTO PRINT POSITION           FAX         5237     A     
 FAX                SA7    A7+1                                                            FAX         5238     A     
 FAX                SX6    A0+B5                                                           FAX         5239     A     
 FAX                NZ     B4,JOL7     IF 2 BYTE EOL FLAG EXISTS AT END OF WORD            FAX         5240     A     
 FAX                MX7    0                                                               FAX         5241     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2729    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SX6    X6+B5                                                           FAX         5242     A     
 FAX                SA7    A7+B5                                                           FAX         5243     A     
 FAX       JOL7     SA6    SWC                                                             FAX         5244     A     
 FAX                EQ     JOL0                                                            FAX         5245     A     
 FAX                                                                                       FAX         5246     A     
 FAX       OLJ      ENDIF                                                                  FAX         5247     A     
 FAX                EJECT                                                                  FAX         5248     A     
 FAX      ************************************************************************         FAX         5249     A     
 FAX      *                                                                      *         FAX         5250     A     
 FAX      * L4.CKL- ENTER HERE AFTER A 60 BIT PSEUDO-OP HAS BEEN WRITTEN TO      *         FAX         5251     A     
 FAX      *         DEFINE ITS LABEL IF PRESENT.                                 *         FAX         5252     A     
 FAX      *                                                                      *         FAX         5253     A     
 FAX      *         ON ENTRY-                                                    *         FAX         5254     A     
 FAX      *                   B5= 1,                                             *         FAX         5255     A     
 FAX      *                   ALABEL= ZERO OR A LABEL,PACKED AS REQUIRED BY      *         FAX         5256     A     
 FAX      *                           LSTPROC                                    *         FAX         5257     A     
 FAX      *                                                                      *         FAX         5258     A     
 FAX      *         ON EXIT-                                                     *         FAX         5259     A     
 FAX      *                   X6,A3,B5 ARE RESTORED,                             *         FAX         5260     A     
 FAX      *                   THE LABEL HAS BEEN DEFINED IN THE TWO WORD SYMBOL  *         FAX         5261     A     
 FAX      *                   TABLE AS HAVING THE CURRENT VALUE OF THE ORIGION   *         FAX         5262     A     
 FAX      *                   COUNTER                                            *         FAX         5263     A     
 FAX      *                                                                      *         FAX         5264     A     
 FAX      ************************************************************************         FAX         5265     A     
 FAX                SPACE  2                                                               FAX         5266     A     
 FAX                MOVSTART  4                                                            FAX         5267     A     
 FAX       L4.CKL   SA1    TEXT.ADD                                                        FAX         5268     A     
 FAX                SA3    X1+B5                                                           FAX         5269     A     
 FAX                BX6    X3                                                              FAX         5270     A     
 FAX                SPACE  4                                                               FAX         5271     A     
 FAX      ************************************************************************         FAX         5272     A     
 FAX      *                                                                      *         FAX         5273     A     
 FAX      * L4.CKRB ENTER HERE FROM WRTEXT OR L4.CKL AFTER A 30 OR 60 BIT QUAN-  *         FAX         5274     A     
 FAX      *         TITY HAS BEEN WRITTEN TO RECORD THE RELOCATION OF THE ADDRESS*         FAX         5275     A     
 FAX      *         FIELD.                                                       *         FAX         5276     A     
 FAX      *                                                                      *         FAX         5277     A     
 FAX      *         ON ENTRY-                                                    *         FAX         5278     A     
 FAX      *                                                                      *         FAX         5279     A     
 FAX      *                   X6= RELOCATION BYTE WORD FROM THE TEXT TABLE       *         FAX         5280     A     
 FAX      *                   A3= ADDRESS OF THE ABOVE                           *         FAX         5281     A     
 FAX      *                   B5= 1                                              *         FAX         5282     A     
 FAX      *                   RBTEMP= ZERO OR WORD B OF THE TWO WORD SYMBOL      *         FAX         5283     A     
 FAX      *                           TABLE ENTRY                                *         FAX         5284     A     
 FAX      *                                                                      *         FAX         5285     A     
 FAX      *         IF THE ADDRESS FIELD IS-                                     *         FAX         5286     A     
 FAX      *                   ABSOLUTE- NO ACTION IS REQUIRED,                   *         FAX         5287     A     
 FAX      *                   PROGRAM-  ADD 2 TO RB WORD IN X6 AND STORE IT BACK,*         FAX         5288     A     
 FAX      *                   COMMON OR                                          *         FAX         5289     A     
 FAX      *                   EXTERNAL- AN ENTRY MUST BE MADE IN THE PROPER FILL *         FAX         5290     A     
 FAX      *                             OR LINK CHAIN TO DESCRIBE THE USE OF THE *         FAX         5291     A     
 FAX      *                             VARIABLE.                                *         FAX         5292     A     
 FAX      *                             IF THE SYMBOL IS AN EXTERNAL THEN RA     *         FAX         5293     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2730    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX      *                             POINTS TO THE START OF THE CHAIN.        *         FAX         5294     A     
 FAX      *                             IF COMMON THEN CORGTAB+RB*22 IS THE      *         FAX         5295     A     
 FAX      *                             POINTER.                                 *         FAX         5296     A     
 FAX      *                                                                      *         FAX         5297     A     
 FAX      ************************************************************************         FAX         5298     A     
 FAX                SPACE  2                                                               FAX         5299     A     
 FAX       L4.CKRB  SA1    RBTEMP                                                          FAX         5300     A     
 FAX                ZR     X1,INITL          IF RBTEMP=0 THEN EXIT.                        FAX         5301     A     
 FAX                LX1    -P.RL                                                           FAX         5302     A     
 FAX                MX0    60-L.RL                                                         FAX         5303     A     
 FAX                BX2    -X0*X1                                                          FAX         5304     A     
 FAX                SB1    X2                B1.= RL                                       FAX         5305     A     
 FAX                JP     B1+L4.CKJT                                                      FAX         5306     A     
 FAX                MOVEND                                                                 FAX         5307     A     
 FAX                SPACE  2                                                               FAX         5308     A     
 FAX                MOVSTART  4                                                            FAX         5309     A     
 FAX       L4.CKJT  EQ     INITL                                                           FAX         5310          I
          -FCC1213
 FAX       L4.CKJT  MX7    0                                                               FCC1213        4     A     
 FAX                SA7    A1          RBTEMP = 0                                          FCC1213        5     A     
 FAX                EQ     INITL                                                           FCC1213        6     A     
 FAX       +        SX1    B5+B5             PROGRAM                                       FAX         5311     A     
 FAX                BX7    X7-X7                                                           FAX         5312     A     
 FAX                EQ     L4.PROG                                                         FAX         5313     A     
 FAX       +        LX1    P.RL-P.RB         COMMON                                        FAX         5314     A     
 FAX                MX0    60-L.RB                                                         FAX         5315     A     
 FAX                EQ     L4.COM                                                          FAX         5316     A     
 FAX       +        LX1    P.RL-P.RA         EXTERNAL                                      FAX         5317     A     
 FAX                SA4    X1                X4.= POINTER TO LINK CHAIN                    FAX         5318     A     
 FAX                EQ     L4.LAF                                                          FAX         5319     A     
 FAX                MOVEND                                                                 FAX         5320     A     
 FAX                SPACE  2                                                               FAX         5321     A     
 FAX                MOVSTART  3                                                            FAX         5322     A     
 FAX       L4.PROG  IX6    X1+X6                                                           FAX         5323     A     
 FAX                SA7    A1                RBTEMP.= 0                                    FAX         5324     A     
 FAX                SA1    RJTFLAG                                                         FAX         5325     A     
 FAX                SA6    A3          RBWORD = RBWORD + 2                                 FAX         5326     A     
 FAX                ZR     X1,INITL                                                        FAX         5327     A     
 FAX                SB1    X1                                                              FAX         5328     A     
 FAX                JP     B1                                                              FAX         5329     A     
 FAX                MOVEND                                                                 FAX         5330     A     
 FAX                SPACE  2                                                               FAX         5331     A     
 FAX       L4.COM   BX1    -X0*X1                                                          FAX         5332     A     
 FAX                SA2    =20000000000000000026B                                          FAX         5333     A     
 FAX                PX1    X1,B0                                                           FAX         5334     A     
 FAX                SA3    CORGTAB                                                         FAX         5335     A     
 FAX                DX1    X1*X2                                                           FAX         5336     A     
 FAX                SB1    X3                                                              FAX         5337     A     
 FAX                SB0    B0+                                                             FAX         5338     A     
 FAX                SA4    X1+B1             X4.= CORGTAB+22*RB, POINTER TO FILL C         FAX         5339     A     
 FAX                SPACE  2                                                               FAX         5340     A     
 FAX       L4.LAF   SA1    TEXT.ADD                                                        FAX         5341     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2731    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SA3    FREEMEM           X3.= NEXT FREE WORD ADDRESS                   FAX         5342     A     
 FAX                SA1    X1-2              X1.= POSC                                     FAX         5343     A     
 FAX                SA5    MEMEND                                                          FAX         5344     A     
 FAX                SX1    X1+104B                                                         FAX         5345     A     
 FAX                IX5    X5-X3                                                           FAX         5346     A     
 FAX                AX1    4                 X1.= P.= POSC/15+100B                         FAX         5347     A     
 FAX                SA2    A1-B5             X2.= ORGC                                     FAX         5348     A     
 FAX                NG     X5,STOVER         IF FREEMEM GTR MEMEND THEN STORAGE OV         FAX         5349     A     
 FAX                LX1    27                FLOW                                          FAX         5350     A     
 FAX                SX6    X3+B5                                                           FAX         5351     A     
 FAX                MX0    42                                                              FAX         5352     A     
 FAX                BX1    X1+X2             X1.= DATA BYTE                                FAX         5353     A     
 FAX                SX7    X4                X7.= OLD POINTER                              FAX         5354     A     
 FAX                SA6    A3                FREEMEM.= FREEMEM+1                           FAX         5355     A     
 FAX                LX1    30                                                              FAX         5356     A     
 FAX                BX4    X0*X4                                                           FAX         5357     A     
 FAX                IX6    X1+X7                                                           FAX         5358     A     
 FAX                BX7    X4+X3             X7.= NEW START OF CHAIN                       FAX         5359     A     
 FAX                SA6    X3                                                              FAX         5360     A     
 FAX                SA7    A4                                                              FAX         5361     A     
 FAX                BX6    X6-X6                                                           FAX         5362     A     
 FAX                SA1    RJTFLAG                                                         FAX         5363     A     
 FAX                SA6    RBTEMP      RBTEMP = 0                                          FAX         5364     A     
 FAX                ZR     X1,INITL                                                        FAX         5365     A     
 FAX                SB1    X1                                                              FAX         5366     A     
 FAX                JP     B1                                                              FAX         5367     A     
 FAX                TITLE     ERROR PROCESSING                                             FAX         5368     A     
 FAX       ILL      SA1    =10H**ILL**                                                     FAX         5369     A     
 FAX                BX6    X1                                                              FAX         5370     A     
 FAX       ILL.1    SA6    LINE+3                                                          FAX         5371     A     
 FAX                SA6    ERRLINE+8                                                       FAX         5372     A     
 FAX                SB3    60                                                              FAX         5373     A     
 FAX                SB1    B5                                                              FAX         5374     A     
 FAX                SB6    B0                                                              FAX         5375     A     
 FAX                RJ     WRLIST            LIST THE CURRENT LINE                         FAX         5376     A     
 FAX       ILL.2    SB1    1                                                               FAX         5377     A     
 FAX                LISTL  ERRLINE,10D       NEXT LINE, TO EASE FINDING BAD LINE           FAX         5378     A     
 FAX                SA1    AERCNT                                                          FAX         5379     A     
 FAX                SB5    1                                                               FAX         5380     A     
 FAX                SX6    X1+B1                                                           FAX         5381     A     
 FAX                SA6    A1                INCREMENT ASSEMBLY ERROR COUNT                FAX         5382     A     
 FAX                EQ     INITL                                                           FAX         5383     A     
 FAX                                                                                       FAX         5384     A     
 FAX      *         STORAGE OVERFLOW                                                       FAX         5385     A     
 FAX                                                                                       FAX         5386     A     
 FAX       STOVER   SA1    MEMSTRT           ENTER HERE ON STORAGE OVERFLOW,ADD SI         FAX         5387     A     
 FAX                SA2    MEMEND            OF OVERFLOW TO STOVSIZE, PRINT ERROR          FAX         5388     A     
 FAX                BX6    X1                MESSAGE AND CONTINUE.                         FAX         5389     A     
 FAX                SA3    STOVSIZE                                                        FAX         5390     A     
 FAX                IX1    X2-X1                                                           FAX         5391     A     
 FAX                SA6    FREEMEM                                                         FAX         5392     A     
 FAX                IX7    X3+X1                                                           FAX         5393     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2732    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SA7    A3                                                              FAX         5394     A     
 FAX                NZ     X3,INITL                                                        FAX         5395     A     
 FAX                SB1    1                                                               FAX         5396     A     
 FAX                LISTL  OFLOMSG,4                                                       FAX         5397     A     
 FAX                EQ     ILL.2                                                           FAX         5398     A     
 FAX                                                                                       FAX         5399     A     
 FAX                                                                                       FAX         5400     A     
 FAX       OFLOMSG  DATA   38C  ********** MEMORY OVERFLOW IN -FAX-.                       FAX         5401     A     
 FAX                SPACE  2                                                               FAX         5402     A     
 FAX       SILL     BSS    0                                                               FAX         5403     A     
 FAX      *                                                                                FAX         5404     A     
 FAX      * IF SNAPUDEF=1 THEN PRINT THE REGS TO LOOK AT THE UNDEFINED SYMBOL.             FAX         5405     A     
 FAX      *                                                                                FAX         5406     A     
 FAX       SNAPUDEF EQU    DEBUG                                                           FAX         5407     A     
 FAX                IFEQ   SNAPUDEF,1,1                                                    FAX         5408     A     
 FAX                REGS   X0=SYMNAME                                                      FAX         5409          I
          -FEAT155F 
 FAX       X0=SYM   REG                                                                    FEAT155F     250     A     
 FAX                SA5       =10HSYMBOL ERR                                               FAX         5410     A     
 FAX                BX6    X5                                                              FAX         5411     A     
 FAX                EQ     ILL.1                                                           FAX         5412     A     
 FAX                SPACE  4                                                               FAX         5413     A     
 FAX                SPACE  2                                                               FAX         5414     A     
 FAX                SPACE  2                                                               FAX         5415     A     
 FAX                EJECT                                                                  FAX         5416     A     
 FAX                TITLE     END PROCESSING                                               FAX         5417     A     
 FAX                MOVSTART  2                                                            FAX         5418     A     
 FAX       XFERTAB  VFD    6/46B,18/1,36/0                                                 FAX         5419     A     
 FAX                BSS    1                                                               FAX         5420     A     
 FAX                MOVEND                                                                 FAX         5421     A     
 FAX       FOFLAG   EQU    SCRATCH           1 WORD                                        FAX         5422     A     
 FAX       B4TMP    EQU    SCRATCH           3 WORDS                                       FAX         5423     A     
 FAX       NOEND    SPACE  4,8                                                             FAX         5424     A     
 FAX       NOENDMSG DATA   31C  OBJECT CODE END LINE MISSING.                              FAX         5425     A     
 FAX                                                                                       FAX         5426     A     
 FAX                                                                                       FAX         5427     A     
 FAX      *         PROCESS ERROR - MISSING END LINE.                                      FAX         5428     A     
 FAX                                                                                       FAX         5429     A     
 FAX       NOEND    MESSAGE   NOENDMSG                                                     FAX         5430          I
          -F7540FT
 FAX       NOEND    MESSAGE  NOENDMSG,,RCL                                                 F7540FT       35     A     
 FAX                SA1    AERCNT                                                          FAX         5431     A     
 FAX                SX6    X1+B1       ASSEMBLY ERROR COUNT + 1                            FAX         5432     A     
 FAX                SA6    A1                                                              FAX         5433     A     
 FAX                SPACE  2                                                               FAX         5434     A     
 FAX       PEND     SA1    AERCNT                                                          FAX         5435     A     
 FAX                SB1    1                                                               FAX         5436     A     
 FAX                ZR     X1,EX.20          IF NO ASSEMBLY ERRORS                         FAX         5437     A     
 FAX                SA2    =XN.FERR    ADD ASSY ERROR COUNT TO TOTAL ERROR COUNT           FAX         5438          I
          -FCC0220
 FAX                SA2    =XCP.ERCT         UPDATE ERROR COUNT GRAND TOTAL                FCC0220      113     A     
 FAX                IX6    X1+X2                                                           FAX         5439     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2733    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SA6    A2                                                              FAX         5440     A     
 FAX                CALL   CDD               RETURNS (X6) = INTEGER, DPC FORMAT            FAX         5441     A     
 FAX                SA2    PREFIX+1          PROGRAM NAME                                  FAX         5442     A     
 FAX                SA6    AERMSG            STORE BCD ERROR COUNT                         FAX         5443     A     
 FAX                BX7    X2                                                              FAX         5444     A     
 FAX                SA7    A6+3                                                            FAX         5445     A     
 FAX                MESSAGE  AERMSG          ERROR MESSAGE TO DAYFILE                      FAX         5446          I
          -F7540FT
 FAX                MESSAGE  AERMSG,,RCL     ASSEMBLY ERROR MSG TO DAYFILES                F7540FT       36     A     
 FAX                SA1    FV.LGO                                                          FAX         5447     A     
 FAX                SB5    1                                                               FAX         5448     A     
 FAX                ZR     X1,EX.90          IF NO LGO FILE                                FAX         5449     A     
 FAX                RJ     WEOR              WRITE AN EOR                                  FAX         5450     A     
 FAX                BKSP   F.LGO                                                           FAX         5451     A     
 FAX                                                                                       FAX         5452     A     
 FAX      *         WRITE A PREFIX TABLE                                                   FAX         5453     A     
 FAX                                                                                       FAX         5454     A     
 FAX       EX.12    SB1    1                                                               FAX         5455     A     
 FAX                WRITEW F.LGO,PREFIX,L.PRFX                                             FAX         5456     A     
 FAX                WRITEW F.LGO,CERMSG,3                                                  FAX         5457     A     
 FAX                SA1    AERCNT                                                          FAX         5458     A     
 FAX                SB5    B1+                                                             FAX         5459     A     
 FAX                NZ     X1,EX.90          IF ASSEMBLY ERRORS                            FAX         5460     A     
 FAX                EQ     EX.100                                                          FAX         5461     A     
 FAX                                                                                       FAX         5462     A     
 FAX                MOVSTART  4                                                            FAX         5463     A     
 FAX       AERMSG   DATA   10H                                                             FAX         5464     A     
 FAX                DIS       ,/ ASSEMBLY ERRORS IN  NAME/                                 FAX         5465     A     
 FAX                MOVEND                                                                 FAX         5466     A     
 FAX                                                                                       FAX         5467     A     
 FAX       CERMSG   DATA      26CERRORS IN FTN COMPILATION.                                FAX         5468     A     
 FAX                SPACE  3                                                               FAX         5469     A     
 FAX                MOVSTART  7                                                            FAX         5470     A     
 FAX       EX.20    SA1    FV.LGO                                                          FAX         5471     A     
 FAX                ZR     X1,EX.90          IF NO LGO FILE                                FAX         5472     A     
 FAX                                                                                       FAX         5473     A     
 FAX      *  FORCE OUT ALL PARTIALLY FILLED TEXT TABLES                                    FAX         5474     A     
 FAX      *                                                                                FAX         5475     A     
 FAX                SA1    CORGTAB                                                         FAX         5476     A     
 FAX                SX6    X1-17                                                           FAX         5477     A     
 FAX                SA6    TEXT.ADD                                                        FAX         5478     A     
 FAX                SA6    FOFLAG                                                          FAX         5479     A     
 FAX                SPACE  2                                                               FAX         5480     A     
 FAX       EX.30    SA1    TEXT.ADD                                                        FAX         5481     A     
 FAX                SA2    X1+17                                                           FAX         5482     A     
 FAX                ZR     X2,EX.31                                                        FAX         5483     A     
 FAX                SX6    X1+22                                                           FAX         5484     A     
 FAX                SA6    A1                                                              FAX         5485     A     
 FAX                RJ     FOTEXT                                                          FAX         5486     A     
 FAX                EQ     EX.30                                                           FAX         5487     A     
 FAX                MOVEND                                                                 FAX         5488     A     
 FAX                SPACE  2                                                               FAX         5489     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2734    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                MOVSTART  4                                                            FAX         5490     A     
 FAX       EX.31    SA3    FOFLAG                                                          FAX         5491     A     
 FAX                SA2    LORGTAB                                                         FAX         5492     A     
 FAX                ZR     X3,EX.40                                                        FAX         5493     A     
 FAX                SX6    X2-17                                                           FAX         5494     A     
 FAX                BX7    X7-X7                                                           FAX         5495     A     
 FAX                SA6    A1                                                              FAX         5496     A     
 FAX                SA7    A3                                                              FAX         5497     A     
 FAX                EQ     EX.30                                                           FAX         5498     A     
 FAX                MOVEND                                                                 FAX         5499     A     
 FAX                SPACE  2                                                               FAX         5500     A     
 FAX       EX.40    BSS    0                                                               FAX         5501     A     
 FAX                SNAP   -CORGTAB,-LORGTAB,,1,10,1,CORGTAB,1                             FAX         5502          I
          -FEAT155F 
 FAX                PTRS   EX.40                                                           FAX         5503          I
          -FEAT155F 
 FAX                CHAINS EX.40                                                           FAX         5504          I
          -FEAT155F 
 FAX                LINKTAB  EX.40                                                         FAX         5505          I
          -FEAT155F 
 FAX                                                                                       FAX         5506     A     
 FAX      *         INCREASE WORKING STORAGE BY USING ALL MEMORY FROM (FREEMEM)            FAX         5507     A     
 FAX      *         TO FWA LGO/RLIST BUFFER.  THIS DISCARDS ALL TABLES UP THROUGH          FAX         5508          I
          -RSM2763X 
 FAX      *         THE SYMBOL TABLE, AND THE REFMAP AND COMPS FILE BUFFERS.               FAX         5509          I
          -RSM2763X 
 FAX                                                                                       FAX         5510          I
          -RSM2763X 
 FAX       #RM      IFEQ   CP#RM,0                                                         FAX         5511          I
          -RSM2763X 
 FAX                SA1    F.LGO+I.FIRST     (X1) = LGO/RLIST CIO BUFFER FWA               FAX         5512          I
          -RSM2763X 
 FAX       #RM      ELSE                                                                   FAX         5513          I
          -RSM2763X 
 FAX                SA1    F.LGO+I.HBSET     (X1) = LGO/RLIST HOLDING BUFFER FWA           FAX         5514          I
          -RSM2763X 
 FAX       #RM      ENDIF                                                                  FAX         5515          I
          -RSM2763X 
 FAX                                                                                       FAX         5516          I
          -RSM2763X 
 FAX      *         TO END OF FIELD LENGTH, THIS DISCARDS ALL TABLES UP                    RSM2763X      46     A     
 FAX      *         THROUGH THE SYMBOL TABLE AND THE REFMAP BUFFER                         RSM2763X      47     A     
 FAX                                                                                       RSM2763X      48     A     
 FAX                SA1    =XCP.NFLS                                                       RSM2763X      49     A     
 FAX                SA2    FREEMEM                                                         FAX         5517     A     
 FAX                SB6    X1-2              WORKING STORAGE LWA                           FAX         5518     A     
 FAX                SB7    X2+B5             (B7) = WORKING STORAGE FWA                    FAX         5519     A     
 FAX                SX6    B6                                                              FAX         5520          I
          -FCC1754
 FAX                SX7    B7                                                              FAX         5521          I
          -FCC1754
 FAX                SB6    B6-B7             (B6) = WORKING STORAGE LENGTH                 FAX         5522          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2735    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          -FCC1754
 FAX                SA6    MEMEND                                                          FAX         5523          I
          -FCC1754
 FAX                SA7    A2                UPDATE (FREEMEM)                              FAX         5524          I
          -FCC1754
 FAX                SB1    7777B       MAXIMUM PERMITTED WSA                               FCC1754        6     A     
 FAX                SB6    B6-B7       WSA LENGTH AVAILABLE                                FCC1754        7     A     
 FAX                SX7    B7                                                              FCC1754        8     A     
 FAX                LE     B6,B1,EX.45 IF WSA AVAILABLE .LE. MAX ALLOWABLE                 FCC1754        9     A     
 FAX                SB6    B1                                                              FCC1754       10     A     
 FAX                                                                                       FCC1754       11     A     
 FAX       EX.45    SX6    X2+B6                                                           FCC1754       12     A     
 FAX                SA7    A2          UPDATE FREEMEM                                      FCC1754       13     A     
 FAX                SA6    MEMEND      SET MAX CORE LIMIT                                  FCC1754       14     A     
 FAX                                                                                       FAX         5525     A     
 FAX      * FORM THE ACCUMULATED COMMON AND EXTERNAL INFORMATION INTO FILL AND             FAX         5526     A     
 FAX      * LINK TABLES AND WRITE THESE ON LGO.                                            FAX         5527     A     
 FAX      *                                                                                FAX         5528     A     
 FAX                MX0    30                                                              FAX         5529     A     
 FAX                SB4    22                INDEX FOR CORGTAB                             FAX         5530     A     
 FAX                SA1    CORGTAB                                                         FAX         5531     A     
 FAX                SB1    B0                WORD COUNT                                    FAX         5532     A     
 FAX                SX7    42B                                                             FAX         5533     A     
 FAX                SA5    X1-22                                                           FAX         5534     A     
 FAX                LX7    54                                                              FAX         5535     A     
 FAX                SB2    B0                                                              FAX         5536     A     
 FAX                SA7    B7                                                              FAX         5537     A     
 FAX                SPACE  2                                                               FAX         5538     A     
 FAX       EX.50    SA5    A5+B4             FETCH NEXT ENTRY                              FAX         5539     A     
 FAX                ZR     X5,EX.60          IF ZERO THEN QUIT                             FAX         5540     A     
 FAX                SX7    X5                                                              FAX         5541     A     
 FAX                ZR     X7,EX.50          IF CHAIN IS EMPTY THEN TRY THE NEXT.          FAX         5542     A     
 FAX                EQ     B4,B5,EX.51       IF LINK THEN GO TO PUT IN NAME ELSE           FAX         5543     A     
 FAX                SA4    A5+2              PUT IN LCT ORDINAL.                           FAX         5544     A     
 FAX                NG     X4,EX.50          IF LCM COMMON BLOCK                           FAX         5545     A     
 FAX                ZR     B2,EX.52          IF X6 HAS A HALF WORD THEN PUT LCT IN         FAX         5546     A     
 FAX                SB3    B1+B5             LOWER 30 BITS AND STORE IT IN TABLE.          FAX         5547     A     
 FAX                GE     B3,B6,EX.53       IF BUFFER IS FULL THEN GO PUT IT OUT          FAX         5548     A     
 FAX                AX4    18                ELSE PUT LCT IN TABLE AND GO FOLLOW T         FAX         5549     A     
 FAX                SA1    X5                CHAIN.                                        FAX         5550     A     
 FAX                BX6    X6+X4                                                           FAX         5551     A     
 FAX                SB1    B1+B5                                                           FAX         5552     A     
 FAX                SB2    X5                                                              FAX         5553     A     
 FAX                SA6    B1+B7                                                           FAX         5554     A     
 FAX                EQ     EX.NO                                                           FAX         5555     A     
 FAX                SPACE  2                                                               FAX         5556     A     
 FAX                MOVSTART  2                                                            FAX         5557     A     
 FAX       EX.52    AX4    18                                                              FAX         5558     A     
 FAX                SX1    X5                                                              FAX         5559     A     
 FAX                LX4    30                                                              FAX         5560     A     
 FAX                SB3    X5                                                              FAX         5561     A     
 FAX                BX6    X4                                                              FAX         5562     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2736    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                EQ     EX.ONE                                                          FAX         5563     A     
 FAX                MOVEND                                                                 FAX         5564     A     
 FAX                SPACE  2                                                               FAX         5565     A     
 FAX                MOVSTART  2                                                            FAX         5566     A     
 FAX       EX.53    SA5    A5-B4                                                           FAX         5567     A     
 FAX                SB1    B1+B5                                                           FAX         5568     A     
 FAX                SB2    B0                                                              FAX         5569     A     
 FAX                SA6    B1+B7                                                           FAX         5570     A     
 FAX                EQ     EX.70                                                           FAX         5571     A     
 FAX                MOVEND                                                                 FAX         5572     A     
 FAX                SPACE  2                                                               FAX         5573     A     
 FAX       EX.51    MX7    42                                                              FAX         5574     A     
 FAX                ZR     B2,EX.54                                                        FAX         5575     A     
 FAX                SB3    B1+B5                                                           FAX         5576     A     
 FAX                BX4    X7*X5                                                           FAX         5577     A     
 FAX                GE     B3,B6,EX.53       IF BUFFER IS FULL THEN GO WRITE IT OU         FAX         5578     A     
 FAX                LX4    30                                                              FAX         5579     A     
 FAX                SX1    X5                                                              FAX         5580     A     
 FAX                BX3    -X0*X4                                                          FAX         5581     A     
 FAX                SB1    B1+B5                                                           FAX         5582     A     
 FAX                BX6    X3+X6                                                           FAX         5583     A     
 FAX                SB3    X5                                                              FAX         5584     A     
 FAX                SA6    B1+B7                                                           FAX         5585     A     
 FAX                NO                                                                     FAX         5586     A     
 FAX                BX6    X0*X4                                                           FAX         5587     A     
 FAX                EQ     EX.ONE                                                          FAX         5588     A     
 FAX                SPACE  2                                                               FAX         5589     A     
 FAX       EX.54    SB3    B1+B5                                                           FAX         5590     A     
 FAX                BX6    X7*X5                                                           FAX         5591     A     
 FAX                GE     B3,B6,EX.55                                                     FAX         5592     A     
 FAX                SA1    X5                                                              FAX         5593     A     
 FAX                SB1    B1+B5                                                           FAX         5594     A     
 FAX                SB2    X5                                                              FAX         5595     A     
 FAX                SA6    B1+B7                                                           FAX         5596     A     
 FAX                SPACE  2                                                               FAX         5597     A     
 FAX       EX.NO    ZR     B2,EX.50          CHAIN FOLLOWER- EXITS TO EX.50 WHEN E         FAX         5598     A     
 FAX                SB3    X1                OF LIST IS ENCOUNTERED.                       FAX         5599     A     
 FAX                BX6    X0*X1                                                           FAX         5600     A     
 FAX       EX.ONE   SA1    X1                                                              FAX         5601     A     
 FAX                ZR     B3,EX.50                                                        FAX         5602     A     
 FAX                BX3    X0*X1                                                           FAX         5603     A     
 FAX                SB2    X1                                                              FAX         5604     A     
 FAX                LX3    30                                                              FAX         5605     A     
 FAX                SA1    X1                                                              FAX         5606     A     
 FAX                BX6    X3+X6                                                           FAX         5607     A     
 FAX                SB1    B1+B5                                                           FAX         5608     A     
 FAX                SA6    B7+B1                                                           FAX         5609     A     
 FAX                LT     B1,B6,EX.NO                                                     FAX         5610     A     
 FAX                                                                                       FAX         5611     A     
 FAX       EX.70    RJ     DBB               DUMP BINARY BUFFER                            FAX         5612     A     
 FAX                SX7    42B               FILL TABLE                                    FAX         5613     A     
 FAX                NE     B4,B5,EX.71       IF PROCESSING FILLS                           FAX         5614     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2737    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SX7    44B               LINK TABLE                                    FAX         5615     A     
 FAX       EX.71    LX7    54                                                              FAX         5616     A     
 FAX                SA7    B7                RESET ID WORD IN TABLE                        FAX         5617     A     
 FAX                                                                                       FAX         5618     A     
 FAX                EQ     B4,B5,EX.72     IF PROCESSING LINKS                             FAX         5619     A     
 FAX                SX5    B2              CHAIN POINTER                                   FAX         5620     A     
 FAX                SB2    B0                                                              FAX         5621     A     
 FAX                SA4    A5+2            OCT ORDINAL                                     FAX         5622     A     
 FAX                EQ     EX.52                                                           FAX         5623     A     
 FAX      *                                                                                FAX         5624     A     
 FAX      EX.72     MX7    42                                                              FAX         5625     A     
 FAX                BX6    X7*X5           LINK NAME                                       FAX         5626     A     
 FAX                SX5    B2              CHAIN POINTER                                   FAX         5627     A     
 FAX                BX5    X6+X5                                                           FAX         5628     A     
 FAX                EQ     EX.54                                                           FAX         5629     A     
 FAX                SPACE  2                                                               FAX         5630     A     
 FAX                MOVSTART  1                                                            FAX         5631     A     
 FAX       EX.55    SA5    A5-B4                                                           FAX         5632     A     
 FAX                EQ     EX.70                                                           FAX         5633     A     
 FAX                MOVEND                                                                 FAX         5634     A     
 FAX                SPACE  2                                                               FAX         5635     A     
 FAX       EX.60    ZR     B4,EX.64          IF ALL EXTERNALS DONE                         FAX         5636     A     
 FAX                ZR     B2,EX.61                                                        FAX         5637     A     
 FAX                SB1    B1+B5                                                           FAX         5638     A     
 FAX                SB2    B0                                                              FAX         5639     A     
 FAX                SA6    B1+B7                                                           FAX         5640     A     
 FAX       EX.61    EQ     B4,B5,EX.62                                                     FAX         5641     A     
 FAX                SA4    LINKTAB                                                         FAX         5642     A     
 FAX                SB4    B5                                                              FAX         5643     A     
 FAX                SA5    X4-1                                                            FAX         5644     A     
 FAX                GE     B1,B5,EX.70       IF BUFFER IS NOT EMPTY THEN WRITE IT          FAX         5645     A     
 FAX                EQ     EX.63                                                           FAX         5646     A     
 FAX       EX.62    SB4    B0                EXTERNAL                                      FAX         5647     A     
 FAX                GT     B1,B5,EX.70                                                     FAX         5648     A     
 FAX       EX.63    SB1    B0                                                              FAX         5649     A     
 FAX                SX7    44B                                                             FAX         5650     A     
 FAX                LX7    54                                                              FAX         5651     A     
 FAX                SA7    B7                                                              FAX         5652     A     
 FAX                EQ     EX.50                                                           FAX         5653     A     
 FAX                                                                                       FAX         5654     A     
 FAX      *                                                                                FAX         5655     A     
 FAX      *         DUMP BINARY BUFFER TO BINARY FILE                                      FAX         5656     A     
 FAX      *                                                                                FAX         5657     A     
 FAX       DBB                                                                             FAX         5658     A     
 FAX                SA1    B7+B5       FIRST WORD AFTER HEADER                             FAX         5659     A     
 FAX                NZ     X1,DBB.1    IF NORMAL TABLE ENTRY                               FAX         5660     A     
 FAX                SA2    B7                                                              FAX         5661     A     
 FAX                SB1    B1-B5       DECREMENT TABLE LENGTH                              FAX         5662     A     
 FAX                SB7    B7+B5       INCREMENT HEADER ADDRESS                            FAX         5663     A     
 FAX                BX6    X2                                                              FAX         5664     A     
 FAX                SA6    B7          MOVE HEADER WORD DOWN                               FAX         5665     A     
 FAX       DBB.1    SA1    B7                                                              FAX         5666     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2738    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SX2    B1                                                              FAX         5667     A     
 FAX                SX7    A5                                                              FAX         5668     A     
 FAX                SX6    B4                                                              FAX         5669     A     
 FAX                LX2    36                                                              FAX         5670     A     
 FAX                SB6    B7                                                              FAX         5671     A     
 FAX                SA6    B4TMP             SAVE B4,A5,B2                                 FAX         5672     A     
 FAX                SB7    B1+B5                                                           FAX         5673     A     
 FAX                SA7    A6+B5                                                           FAX         5674     A     
 FAX                BX6    X1+X2                                                           FAX         5675     A     
 FAX                SX7    B2                                                              FAX         5676     A     
 FAX                SA6    A1                                                              FAX         5677     A     
 FAX                SA7    A7+B5                                                           FAX         5678     A     
 FAX                SA1    FV.LGO                                                          FAX         5679     A     
 FAX                SB1    1                                                               FAX         5680     A     
 FAX                ZR     X1,EX.70A         IF BINARY OUTPUT OPTION OFF (B=0)             FAX         5681     A     
 FAX                WRITEW F.LGO,B6,B7                                                     FAX         5682     A     
 FAX                SB5    B1+                                                             FAX         5683     A     
 FAX       EX.70A   SA1    B4TMP                                                           FAX         5684     A     
 FAX                SA2    A1+B5                                                           FAX         5685     A     
 FAX                SB4    X1                                                              FAX         5686     A     
 FAX                SA3    A2+B5                                                           FAX         5687     A     
 FAX                MX0    30                                                              FAX         5688     A     
 FAX                SA1    FREEMEM                                                         FAX         5689     A     
 FAX                SA4    MEMEND                                                          FAX         5690     A     
 FAX                SB7    X1                                                              FAX         5691     A     
 FAX                IX4    X4-X1                                                           FAX         5692     A     
 FAX                SA5    X2                                                              FAX         5693     A     
 FAX                SB6    X4                                                              FAX         5694     A     
 FAX                SA1    X3                                                              FAX         5695     A     
 FAX                SB2    X3                                                              FAX         5696     A     
 FAX                SB1    B0                                                              FAX         5697     A     
 FAX                EQ     DBB               EXIT                                          FAX         5698     A     
 FAX                                                                                       FAX         5699     A     
 FAX      *                                                                                FAX         5700     A     
 FAX      *         PROCESS LCM COMMON BLOCKS AND PRODUCE XFILL TABLES                     FAX         5701     A     
 FAX      *                                                                                FAX         5702     A     
 FAX       EX.64    SA2    =XLEVEL                                                         FAX         5703          I
          -FCC0504
 FAX       EX.64    SA2    =XLEVEL2                                                        FCC0504       18     A     
 FAX                ZR     X2,EX.80          IF NO LCM COMMON                              FAX         5704     A     
 FAX                SA2    FREEMEM                                                         FAX         5705     A     
 FAX                SA3    MEMEND                                                          FAX         5706     A     
 FAX                MX0    30                                                              FAX         5707     A     
 FAX                SB4    22                INDEX FOR CORGTAB                             FAX         5708     A     
 FAX                IX3    X3-X2             BUFFER SIZE                                   FAX         5709     A     
 FAX                SB7    X2                FWA BUFFER                                    FAX         5710     A     
 FAX                SA1    CORGTAB                                                         FAX         5711     A     
 FAX                SB1    B0                WORD COUNT                                    FAX         5712     A     
 FAX                SX7    41B               XFILL TABLE                                   FAX         5713     A     
 FAX                SA5    X1-22                                                           FAX         5714     A     
 FAX                SB6    X3                                                              FAX         5715     A     
 FAX                LX7    54                                                              FAX         5716     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2739    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                SA7    B7                STORE THE HEADER WORD                         FAX         5717     A     
 FAX                                                                                       FAX         5718     A     
 FAX       EX.65    SA5    A5+B4             BLOCK HEADER WORD                             FAX         5719     A     
 FAX                ZR     X5,EX.68          IF END OF COMMON BLOCKS                       FAX         5720     A     
 FAX                SX1    X5                                                              FAX         5721     A     
 FAX                ZR     X1,EX.65          IF EMPTY CHAIN                                FAX         5722     A     
 FAX                SA4    A5+2                                                            FAX         5723     A     
 FAX                PL     X4,EX.65          IF NOT AN LCM BLOCK                           FAX         5724     A     
 FAX                                                                                       FAX         5725     A     
 FAX                MX0    60-9                                                            FAX         5726     A     
 FAX                AX4    18                                                              FAX         5727     A     
 FAX                BX6    -X0*X4            EXTRACT RB ORDINAL                            FAX         5728     A     
 FAX                LX6    9                                                               FAX         5729     A     
 FAX                SA6    RBC               SAVE RB CODE                                  FAX         5730     A     
 FAX                EQ     EX.67                                                           FAX         5731     A     
 FAX                                                                                       FAX         5732     A     
 FAX      *         PROCESS AN LCM COMMON CHAIN                                            FAX         5733     A     
 FAX                                                                                       FAX         5734     A     
 FAX       EX.66    ZR     B2,EX.65          IF END OF CHAIN                               FAX         5735     A     
 FAX                                                                                       FAX         5736     A     
 FAX       EX.67    SA1    X1                                                              FAX         5737     A     
 FAX                LX1    30                                                              FAX         5738     A     
 FAX                SX6    X1                LOC FIELD, ADDRESS OF WHERE TO RELOC          FAX         5739     A     
 FAX                AX1    18                                                              FAX         5740     A     
 FAX                MX3    60-9                                                            FAX         5741     A     
 FAX                BX4    -X3*X1            RL,ADDRESS RELOCATION TYPE                    FAX         5742     A     
 FAX                LX6    30          POSITION LOC FIELD                                  FAX         5743     A     
 FAX                IX2    X6+X4             LOC,RL                                        FAX         5744     A     
 FAX                AX1    9                                                               FAX         5745     A     
 FAX                MX3    60-2                                                            FAX         5746     A     
 FAX                BX4    -X3*X1            EXTRACT POS VALUE                             FAX         5747     A     
 FAX                LX4    4                 16*POS                                        FAX         5748     A     
 FAX                BX3    -X3*X1            POS = 0,1,2                                   FAX         5749     A     
 FAX                IX6    X4-X3             15*POS = 0, 15, 30                            FAX         5750     A     
 FAX                LX6    24                                                              FAX         5751     A     
 FAX                SA3    XFL         F = (XFL) = LENGTH OF RELOCATION FIELD              FAX         5752     A     
 FAX                BX2    X2+X6             LOC,POS,RL                                    FAX         5753     A     
 FAX                LX3    18                                                              FAX         5754     A     
 FAX                IX4    X3+X2             LOC,POS,F,RL                                  FAX         5755     A     
 FAX                SA3    RBC               RB CODE                                       FAX         5756     A     
 FAX                BX6    X4+X3             LOC,POS,F,RB,RL                               FAX         5757     A     
 FAX                SB1    B1+B5             WC = WC + 1                                   FAX         5758     A     
 FAX                SA6    B7+B1             STORE THE XFILL ENTRY                         FAX         5759     A     
 FAX                                                                                       FAX         5760     A     
 FAX                AX1    3                                                               FAX         5761     A     
 FAX                SB2    X1                LINK TO NEXT CHAIN MEMBER                     FAX         5762     A     
 FAX                LT     B1,B6,EX.66       IF BUFFER NOT FULL                            FAX         5763     A     
 FAX                                                                                       FAX         5764     A     
 FAX                RJ     DBB               DUMP BINARY BUFFER                            FAX         5765     A     
 FAX                SX7    41B               XFILL                                         FAX         5766     A     
 FAX                LX7    54                                                              FAX         5767     A     
 FAX                SA7    B7                RESET ID WORD IN TABLE                        FAX         5768     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2740    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
 FAX                EQ     EX.66                                                           FAX         5769     A     
 FAX                                                                                       FAX         5770     A     
 FAX      *         DUMP ANY REMAINING XFILL TABLE                                         FAX         5771     A     
 FAX                                                                                       FAX         5772     A     
 FAX       EX.68    ZR     B1,EX.80          IF NO TABLE LEFT                              FAX         5773     A     
 FAX                RJ     DBB               DUMP BINARY BUFFER                            FAX         5774     A     
 FAX                EQ     EX.80                                                           FAX         5775     A     
 FAX                                                                                       FAX         5776     A     
 FAX       RBC      DATA   0                 RB ORDINAL FOR LCM BLOCK                      FAX         5777     A     
 FAX      *                                                                                FAX         5778     A     
 FAX      *         WRITE AN XFER TABLE                                                    FAX         5779     A     
 FAX      *                                                                                FAX         5780     A     
 FAX       EX.80    SA2    =7L                                                             FAX         5781          I
          -FCC1513X 
 FAX       EX.80    SA1    PROGRAM                                                         FCC1513X      25     A     
 FAX                UX0    B1,X1                                                           FCC1513X      26     A     
 FAX                NZ     B1,EX.90    IF NOT MAIN PROGRAM, SKIP XFER TABLE                FCC1513X      27     A     
 FAX                SA1    XFRNAME           XFER NAME OR ZERO                             FAX         5782     A     
 FAX                BX6    X2                                                              FAX         5783          I
          -FCC1513X 
 FAX                ZR     X1,EX.81          IF NOT A PROGRAM                              FAX         5784          I
          -FCC1513X 
 FAX                LX6    X1                                                              FAX         5785     A     
 FAX                CALL   RTB               REMOVE TRAILING BLANKS                        FAX         5786     A     
 FAX       EX.81    SA1    FV.LGO                                                          FAX         5787          I
          -FCC1513X 
 FAX                SA1    FV.LGO                                                          FCC1513X      28     A     
 FAX                SB1    1                                                               FAX         5788     A     
 FAX                SA6    XFERTAB+1                                                       FAX         5789     A     
 FAX                ZR     X1,EX.90          IF BINARY OUTPUT OPTION OFF (B=0)             FAX         5790     A     
 FAX                WRITEW F.LGO,XFERTAB,2                                                 FAX         5791     A     
 FAX                SB5    B1+                                                             FAX         5792     A     
 FAX      *                                                                                FAX         5793     A     
 FAX      *         PRINT THE END CARD                                                     FAX         5794     A     
 FAX      *                                                                                FAX         5795     A     
 FAX       EX.90    SA1    OLIST                                                           FAX         5796     A     
 FAX                ZR     X1,EX.100         JUMP IF O = 0                                 FAX         5797     A     
 FAX                SB1    B5                                                              FAX         5798     A     
 FAX                SB6    B0                                                              FAX         5799     A     
 FAX                RJ     WRLIST                                                          FAX         5800     A     
 FAX                                                                                       FAX         5801     A     
 FAX       EX.100   RJ     WEOR              WRITE AN EOR ON THE LGO FILE                  FAX         5802     A     
 FAX                                                                                       FAX         5803     A     
 FAX       EX.999   EQ     FTNXAS                                                          FAX         5804     A     
 FAX                                                                                       FAX         5805     A     
 FAX                END                                                                    FAX         5806     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FAX     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FAX                       5806      5251
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2741    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FAX     
  
          FCC0220                      1         1
          FCC0448                      1         1
          FCC0451                      1         1
          FCC0504                      1         1
          FCC0506                     13        13
          FCC0943                      1         1
          S3143FC                      1         1
          FCC0982                     44        44
          FEAT155A                    36        35
          FEAT155B                     1         1
          FEAT155AB                    1         1
          FEAT155F                     7         7
          FCC1045                      4         4
          FCC1213                      3         3
          FCCT003                     21        21
          FCC1264                     29        21
          F7540FT                      2         2
          RSM2763X                     4         4
          FCC1513X                    22        22
          F7540FTA                     1         0
          RSM3545C                   111       111
          FCC1754                      9         9
          F162FTNA                   447       441
          FCC1847X                     4         2
          FCCA408                    101       101
          FEAT1070C                   22        16
          F2950F4                     46        46
          FCCA510                      6         0
          FCC2129                     13        13
          FCC2319                      2         2
          FCCA561                      5         5
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP   *DECK,REFMAP                                                                     REFMAP         1     A     
 REFMAP             IDENT  REFMAP                                                          REFMAP         2     A     
 REFMAP             TITLE    REFMAP - PRINT REFERENCE MAP                                  REFMAP         3     A     
 REFMAP   *CALL     SSTCALL                                                                REFMAP         4     A     
 REFMAP    B=REFMP  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             REFMAP         5     A     
 REFMAP                                                                                    REFMAP         6     A     
 REFMAP    SYM1     EQU    12B                                                             REFMAP         7     A     
 REFMAP    SYMEND   EQU    13B                                                             REFMAP         8     A     
 REFMAP    PROGRAM  EQU    56B                                                             REFMAP         9     A     
 REFMAP                                                                                    REFMAP        10     A     
 REFMAP    WPL      EQU    13                MAXIMUM WORDS/LINE                            REFMAP        11     A     
 REFMAP    N.LRB    EQU    7                 NUMBER OF LOCAL RELOCATION BASES              REFMAP        12     A     
 REFMAP                                                                                    REFMAP        13     A     
 REFMAP             EXT    R=FLAG,RSELECT,LWAWORK,E.UDEFL,VALUE.                           REFMAP        14     A     
 REFMAP             EXT    N.FILES,N.COM,ORGTAB,SWC,CONDEC,ST.,SYMORD                      REFMAP        15     A     
 REFMAP             EXT    L.EQV,N.FP,O.LBLK,START.                                        REFMAP        16     A     
 REFMAP             EXT    N.EQUF                                                          FCC2064       13     A     
 REFMAP                                                                                    REFMAP        17     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2742    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             TABLES COM,LOOP,UDV                                                    REFMAP        18     A     
 REFMAP             SPACE  3                                                               REFMAP        19     A     
 REFMAP   *         AUTHOR - S.I. JASIK - CDC-SUNNYVALE - WINTER 1969                      REFMAP        20     A     
 REFMAP                                                                                    REFMAP        21     A     
 REFMAP   ***                                                                              REFMAP        22     A     
 REFMAP   *         REFMAP - SYMBOLIC REFERENCE MAP PRINTOUT                               REFMAP        23     A     
 REFMAP   *                                                                                REFMAP        24     A     
 REFMAP   *         FUNCTIONS:                                                             REFMAP        25     A     
 REFMAP   *                PRINT OUT ANY MISSING LABELS                                    REFMAP        26     A     
 REFMAP   *                COMPUTE PROGRAM LENGTH, ADJUST RA FIELD OF WORD B OF            REFMAP        27     A     
 REFMAP   *                ALL PROGRAM RELOCATABLE SYMBOLS IN SYMTAB                       REFMAP        28     A     
 REFMAP   *                                                                                REFMAP        29     A     
 REFMAP   *                PRINT THE REFERENCE MAP FROM INFORMATION IN:                    REFMAP        30     A     
 REFMAP   *                 THE SYMBOL TABLE                                               REFMAP        31     A     
 REFMAP   *                 ORGTAB AND THE LOCAL BLOCK LENGTH TABLE                        REFMAP        32     A     
 REFMAP   *                 "REFMAP" FILE OF SYMBOL REFERENCES AND SAVED COM/EQV           REFMAP        33     A     
 REFMAP   *                 INFO                                                           REFMAP        34     A     
 REFMAP   *                 THE LOOP TABLE - FORMED BY "PRE" AND "DOPROC"                  REFMAP        35     A     
 REFMAP   *                 THE "UDV" TABLE FORMED AT THE END OF PASS 1                    REFMAP        36     A     
 REFMAP   *                                                                                REFMAP        37     A     
 REFMAP             SPACE  3                                                               REFMAP        38     A     
 REFMAP                                                                                    REFMAP        39     A     
 REFMAP   *         BLOCK ORDERING , USED TO FORCE THE LITERALS TO COME FIRST              REFMAP        40     A     
 REFMAP                                                                                    REFMAP        41     A     
 REFMAP             USE    DATA              DATA GENERATED BY VARIOUS MACROS              REFMAP        42     A     
 REFMAP             USE    IO$$        FOR 7RM MACRO EXPANSIONS                            REFMAP        43     A     
 REFMAP             USE    CODE                                                            REFMAP        44     A     
 REFMAP             TITLE              STORAGE ASSIGNMENTS AND EQU S                       REFMAP        45     A     
 REFMAP             USE    /TABLES/                                                        REFMAP        46     A     
 REFMAP    O.CELLS  EQU    *                                                               REFMAP        47     A     
 REFMAP                                                                                    REFMAP        48     A     
 REFMAP    BLKCOM   BSS    1                 ADDRESS OF BLANK COMMON IN ORGTAB             REFMAP        49     A     
 REFMAP    L.PROG   BSS    1                 PROGRAM LENGTH                                REFMAP        50     A     
 REFMAP    O.LRB    BSS    N.LRB             FWA OF THE LOCAL RELOCATION BASES             REFMAP        51     A     
 REFMAP    L.SCOM   BSS    1                 SCM COMMON LENGTH (EXCLUDING BLANK)           REFMAP        52     A     
 REFMAP    L.LCOM   BSS    1                 LCM COMMON LENGTH (EXCLUDING BLANK)           REFMAP        53     A     
 REFMAP    L.SBLK   BSS    1                 SCM BLANK COMMON LENGTH                       REFMAP        54     A     
 REFMAP    L.LBLK   BSS    1                 LCM BLANK COMMON LENGTH                       REFMAP        55     A     
 REFMAP    L.BUFIO  BSS    1                 I/O BUFFER LENGTH                             REFMAP        56     A     
 REFMAP    L.PROGP  BSS    1                 PROGRAM LENGTH THAT IS PRINTED OUT            REFMAP        57     A     
 REFMAP   *                                  PROG LEN - IO BUFFER LENGTH                   REFMAP        58     A     
 REFMAP                                                                                    REFMAP        59     A     
 REFMAP   *         POINTERS SET IN THE LEXIGRAPHIC SORT                                   REFMAP        60     A     
 REFMAP                                                                                    REFMAP        61     A     
 REFMAP    O.REFBAS BSS    1                 BASE OF THE REFERENCE TABLE                   REFMAP        62     A     
 REFMAP    O.REFTAB BSS    1                 FIRST AVAILABLE WORD FOR REFERENCE            REFMAP        63     A     
 REFMAP   *                                  LIST                                          REFMAP        64     A     
 REFMAP    O.CNTBL  BSS    1                 FWA OF CHANGED NAME TABLE                     REFMAP        65     A     
 REFMAP    L.CNTBL  BSS    1                 LENGTH                                        REFMAP        66     A     
 REFMAP                                                                                    REFMAP        67     A     
 REFMAP    O.NAME   BSS    1                 SYMBOLIC NAMES                                REFMAP        68     A     
 REFMAP    O.LABEL  BSS    1                 STMT LABELS                                   REFMAP        69     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2743    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP    O.LFN    BSS    1                 LOGICAL FILE NAMES                            REFMAP        70     A     
 REFMAP    O.LGL    BSS    1                 LOOP GENERATED LABELS                         REFMAP        71     A     
 REFMAP                                                                                    REFMAP        72     A     
 REFMAP   *         POINTERS SET IN THE CATEGORY SORT                                      REFMAP        73     A     
 REFMAP                                                                                    REFMAP        74     A     
 REFMAP    O.ENT    BSS    1                 ENTRY POINTS                                  REFMAP        75     A     
 REFMAP    O.VAR    BSS    1                 VARIABLES,ARRAYS,F.P. S, RETURNS              REFMAP        76     A     
 REFMAP    O.EXT    BSS    1                 EXTERNAL REFERENCES                           REFMAP        77     A     
 REFMAP    O.ASF    BSS    1                 INTRINSIC AND AS FUNCTIONS                    REFMAP        78     A     
 REFMAP    O.NML    BSS    1                 NAMELIST GROUP NAMES                          REFMAP        79     A     
 REFMAP    O.CGS    BSS    1                 COMPILER GENERATED SYMBOLS                    REFMAP        80     A     
 REFMAP    O.UDBG   BSS    1                 UNUSED DEBUG VARIABLES                        REFMAP        81     A     
 REFMAP    VLFN     BSS    1                 NE 0 IF VARIABLES USED AS FILE NAMES          REFMAP        82     A     
 REFMAP    NEXTE    BSS    1                 HOLDS POINTER TO NEXT LIST ELEMENT            REFMAP        83     A     
 REFMAP   *                                  DURING PRINT LOOPS                            REFMAP        84     A     
 REFMAP                                                                                    REFMAP        85     A     
 REFMAP   *         LIST POINTERS USED BY SORTRL                                           REFMAP        86     A     
 REFMAP                                                                                    REFMAP        87     A     
 REFMAP    WORDA    BSS    1                 SYMTAB ADDRESS OF WORD A                      REFMAP        88     A     
 REFMAP    O.REFS   BSS    1                 REFERENCES   (60/FWA OF LIST )                REFMAP        89     A     
 REFMAP    O.DEFS   BSS    1                 DEFINITIONS AND USES                          REFMAP        90     A     
 REFMAP    O.FREF   BSS    1                 FILE REFERNCES                                REFMAP        91     A     
 REFMAP    DSRB     BSS    3                 DUMMY SORT BUCKETS FOR SORTRL                 REFMAP        92     A     
 REFMAP                                                                                    REFMAP        93     A     
 REFMAP   *         LOCATIONS ASSOCIATED WITH FMT AND LISTR                                REFMAP        94     A     
 REFMAP                                                                                    REFMAP        95     A     
 REFMAP    REFACC   BSS    1                 1S59 IF REFERENCES ACCUMULATED                REFMAP        96     A     
 REFMAP    TEMP     BSS    1                 A TEMPORARY                                   REFMAP        97     A     
 REFMAP    TEMPA    BSS    1                 A TEMPORARY ( LISTR )                         REFMAP        98     A     
 REFMAP    APL      BSS    1                 ADDRESS OF HEADER LIST ( LISTV )              REFMAP        99     A     
 REFMAP                                                                                    REFMAP       100     A     
 REFMAP    BFILL    BSS    1                 BLANK FILL FLAG FOR LISTR                     REFMAP       101     A     
 REFMAP    DLINE    BSS    1                 COL/10 TO PAD INIT LINE INFO TO               REFMAP       102     A     
 REFMAP   *                                  FOR THE LONG MAP                              REFMAP       103     A     
 REFMAP    VBUF     BSS    7                 ITEMS TO BE FORMATTED                         REFMAP       104     A     
 REFMAP    SFMTW    BSS    1                 POSSIBLE SECOND WORD OF FORMAT SPEC           REFMAP       105     A     
 REFMAP    LBUF     BSS    14                LINE BUFFER                                   REFMAP       106     A     
 REFMAP                                                                                    REFMAP       107     A     
 REFMAP    PBUF     BSS    14                ALTERNATE LINE BUFFER                         REFMAP       108     A     
 REFMAP    ACCWC    BSS    1                 ACCUMULATED WORD COUNT FOR PBUF               REFMAP       109     A     
 REFMAP    LI       BSS    2                 LOOP INDEX AND LIMIT FOR FBNB                 REFMAP       110     A     
 REFMAP    CLOC     BSS    2                 CURRENT LOC AND LINK FOR COMMON BLOCK         REFMAP       111     A     
 REFMAP    LTEMP    EQU    CLOC                                                            REFMAP       112     A     
 REFMAP    LPLEN    EQU    VBUF+5            WHERE THE LOOP LENGTH IS STORED               REFMAP       113     A     
 REFMAP    CLI      EQU    CLOC              2 TEMPORARIES FOR EQUIV MAP                   REFMAP       114     A     
 REFMAP                                                                                    REFMAP       115     A     
 REFMAP    L.CELLS  EQU    *-O.CELLS                                                       REFMAP       116     A     
 REFMAP             USE    *                                                               REFMAP       117     A     
 REFMAP             SPACE  3                                                               REFMAP       118     A     
 REFMAP   *         WORDS THAT THE ASSOCIATED BITS ARE IN                                  REFMAP       119     A     
 REFMAP                                                                                    REFMAP       120     A     
 REFMAP    FP       EQU    1                                                               REFMAP       121     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2744    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP    FUN      EQU    1                                                               REFMAP       122     A     
 REFMAP    DEF      EQU    1                                                               REFMAP       123     A     
 REFMAP    DIM      EQU    1                                                               REFMAP       124     A     
 REFMAP    COM      EQU    1                                                               REFMAP       125     A     
 REFMAP    ASF      EQU    2                                                               REFMAP       126     A     
 REFMAP    LIB      EQU    2                                                               REFMAP       127     A     
 REFMAP    VAR      EQU    2                                                               REFMAP       128     A     
 REFMAP                                                                                    REFMAP       129     A     
 REFMAP   *         BIT FIELD DEFINITIONS FOR DO LOOP PROPERTIES AS SET                    REFMAP       130     A     
 REFMAP   *         IN LABELS GENERATED BY THE DO PROCESSOR                                REFMAP       131     A     
 REFMAP                                                                                    REFMAP       132     A     
 REFMAP    DL.E     EQU    6                 ENTERED FROM OUTSIDE RANGE                    REFMAP       133     A     
 REFMAP    DL.X     EQU    5                 EXITS - REFERENCES TO LABELS OUTSIDE          REFMAP       134     A     
 REFMAP   *                                  THE LOOP                                      REFMAP       135     A     
 REFMAP    DL.I     EQU    4                 LOOP IS NOT INNERMOST                         REFMAP       136     A     
 REFMAP    DL.M     EQU    3                 CONTROL VARIABLE MUST BE MATERIALIZED         REFMAP       137     A     
 REFMAP    DL.J     EQU    1                 EXTERNAL REFS                                 REFMAP       138     A     
 REFMAP                                                                                    REFMAP       139     A     
 REFMAP    P.DLP    EQU    48                BASE OF DO LOOP PROPERTY FIELD                REFMAP       140     A     
 REFMAP    L.DLP    EQU    7                 LENGTH                                        REFMAP       141     A     
 REFMAP                                                                                    REFMAP       142     A     
 REFMAP    V.OPT    EQU    127B              BITS NON ZERO IF LOOP IS NOT OPTIMUM          REFMAP       143     A     
 REFMAP             SPACE  3                                                               REFMAP       144     A     
 REFMAP   *         BIT FIELD DEFINITIONS OF THE FIELDS IN THE REFERENCE                   REFMAP       145     A     
 REFMAP   *         TABLE BUILT BY "SORTR"                                                 REFMAP       146     A     
 REFMAP                                                                                    REFMAP       147     A     
 REFMAP    P.REP    EQU    48                REP COUNT FIELD ( ALSO REF/DEF )              REFMAP       148     A     
 REFMAP    L.REP    EQU    12                                                              REFMAP       149     A     
 REFMAP    P.BCDLN  EQU    18                DISPLAY CODED LINE NUMBER                     REFMAP       150     A     
 REFMAP    L.BCDLN  EQU    24                4 CHARACTERS LONG                             REFMAP       151     A     
 REFMAP                                                                                    REFMAP       152     A     
 REFMAP   *         THE LINK FIELD IS IN BITS 0 - 17                                       REFMAP       153     A     
 REFMAP             TITLE              TABLES                                              REFMAP       154     A     
 REFMAP   *         TABLE OF BLANKS                                                        REFMAP       155     A     
 REFMAP                                                                                    REFMAP       156     A     
 REFMAP    BLANKS   LIT  0,1L ,2L  ,3L   ,4L    ,5L     ,6L      ,7L       ,8L             REFMAP       157     A     
 REFMAP   ,    ,9L         ,10L                                                            REFMAP       158     A     
 REFMAP             SPACE  3                                                               REFMAP       159     A     
 REFMAP   *         TYPE TABLE FOR TYPES 1 - 7                                             REFMAP       160     A     
 REFMAP                                                                                    REFMAP       161     A     
 REFMAP    TYPTBL   DATA   7LLOGICAL                                                       REFMAP       162     A     
 REFMAP             DATA   7LINTEGER                                                       REFMAP       163     A     
 REFMAP             DATA   7LREAL                                                          REFMAP       164     A     
 REFMAP             DATA   7LDOUBLE                                                        REFMAP       165     A     
 REFMAP             DATA   7LCOMPLEX                                                       REFMAP       166     A     
 REFMAP                                                                                    REFMAP       167     A     
 REFMAP    #DAL     IFEQ   .DAL,0      .ZR. IF LCM DIRECT ACCESS NOT ALLOWED               REFMAP       168     A     
 REFMAP             DATA   7LECS                                                           REFMAP       169     A     
 REFMAP    #DAL     ELSE                                                                   REFMAP       170     A     
 REFMAP             DATA   7LLCM                                                           REFMAP       171     A     
 REFMAP    #DAL     ENDIF                                                                  REFMAP       172     A     
 REFMAP                                                                                    REFMAP       173     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2745    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             DATA   7L                TYPE 6 ARE LABELS                             REFMAP       174     A     
 REFMAP             DATA   7LRETURNS                                                       REFMAP       175     A     
 REFMAP                                                                                    REFMAP       176     A     
 REFMAP   *         FILE MODE TABLE                                                        REFMAP       177     A     
 REFMAP                                                                                    REFMAP       178     A     
 REFMAP    FMODTAB  DATA   7LMIXED                                                         REFMAP       179     A     
 REFMAP             DATA   7L                                                              REFMAP       180     A     
 REFMAP             DATA   7LFMT                                                           REFMAP       181     A     
 REFMAP             DATA   7LUNFMT                                                         REFMAP       182     A     
 REFMAP             DATA   7LBUF                                                           REFMAP       183     A     
 REFMAP             DATA   7LNAME                                                          REFMAP       184     A     
 REFMAP             DATA   7LFREE                                                          REFMAP       185     A     
 REFMAP                                                                                    REFMAP       186     A     
 REFMAP   *         LOCAL FUNCTION TYPE TABLE                                              REFMAP       187     A     
 REFMAP                                                                                    REFMAP       188     A     
 REFMAP    ASFINT   DATA   8L  INTRIN                                                      REFMAP       189     A     
 REFMAP             DATA   8L    SF                                                        REFMAP       190     A     
 REFMAP                                                                                    REFMAP       191     A     
 REFMAP   *         STATEMENT LABEL TYPE TABLE                                             REFMAP       192     A     
 REFMAP                                                                                    REFMAP       193     A     
 REFMAP             DATA   9L                                                              REFMAP       194     A     
 REFMAP    SLATAB   DATA   9L  NO REFS                                                     REFMAP       195     A     
 REFMAP             DATA   9L INACTIVE                                                     REFMAP       196     A     
 REFMAP                                                                                    REFMAP       197     A     
 REFMAP   *         STATEMENT LABEL ACTIVITY TABLE                                         REFMAP       198     A     
 REFMAP                                                                                    REFMAP       199     A     
 REFMAP    SLTAB    DATA   6L*UNDEF                                                        REFMAP       200     A     
 REFMAP             DATA   6L   FMT                                                        REFMAP       201     A     
 REFMAP             DATA   6L                EXEC                                          REFMAP       202     A     
 REFMAP                                                                                    REFMAP       203     A     
 REFMAP   *         DO INDEX MATERIALIZED FLAG                                             REFMAP       204     A     
 REFMAP   *         THIS REFMAP FEATURE DISABLED AS A RESULT OF FCC2059                    FCC2059        9     A     
 REFMAP                                                                                    REFMAP       205     A     
 REFMAP    DO.MAT   DATA   3L                INDEX NOT MATERIALIZED                        REFMAP       206     A     
 REFMAP             DATA   3L *              INDEX MATERIALIZED                            REFMAP       207     A     
 REFMAP                                                                                    REFMAP       208     A     
 REFMAP    MAPTITL  DATA   38C          SYMBOLIC REFERENCE MAP (R=0)                       REFMAP       209     A     
 REFMAP                                                                                    REFMAP       210     A     
 REFMAP   *         STORAGE TYPE                                                           REFMAP       211     A     
 REFMAP                                                                                    REFMAP       212     A     
 REFMAP    SDS      DATA   4L    ,4L "LCM"                                                 REFMAP       213     A     
 REFMAP    LCMLMT   DATA   400000B     LCM LIMIT WITHOUT LCM=I                             RSM4033        7     A     
 REFMAP                                                                                    REFMAP       214     A     
 REFMAP   *         ERROR  MESSAGE                                                         REFMAP       215     A     
 REFMAP                                                                                    REFMAP       216     A     
 REFMAP    OVERFL   DATA   36C0"SCM" REQUIRED FOR LOAD EXCEEDS 131K.                       REFMAP       217     A     
 REFMAP    STGERR   DATA   47C0"LCM" FL EXCEEDS 131,071 WORDS (LCM=I REQUIRED)             RSM4033        8     A     
 REFMAP             TITLE              CONVERSION ROUTINES                                 REFMAP       218     A     
 REFMAP   ***                                                                              REFMAP       219     A     
 REFMAP   *         Z8 - CONVERT OCTAL DIGITS TO DISPLAY CODE IN 8L FORMAT                 REFMAP       220     A     
 REFMAP   *         WITH LEADING ZERO SUPPRESSION                                          REFMAP       221     A     
 REFMAP   *                                                                                REFMAP       222     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2746    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP   *         ON ENTRY:                                                              REFMAP       223     A     
 REFMAP   *                X1 = BINARY NUMBER RIGHT JUSTIFIED                              REFMAP       224     A     
 REFMAP   *                                                                                REFMAP       225     A     
 REFMAP   *         ON EXIT:                                                               REFMAP       226     A     
 REFMAP   *                X6 = NUMBER IN DISPLAY CODE                                     REFMAP       227     A     
 REFMAP   *                                                                                REFMAP       228     A     
 REFMAP    Z8L      BX2    -X3*X1            EXTRACT A DIGIT                               REFMAP       229     A     
 REFMAP             AX1    3                                                               REFMAP       230     A     
 REFMAP             SX4    B4+X2             CONVERT TO DPC                                REFMAP       231     A     
 REFMAP             LX5    B2,X4                                                           REFMAP       232     A     
 REFMAP             SB2    B2+6                                                            REFMAP       233     A     
 REFMAP             IX6    X6+X5                                                           REFMAP       234     A     
 REFMAP             NZ     X1,Z8L                                                          REFMAP       235     A     
 REFMAP    Z8                                                                              REFMAP       236     A     
 REFMAP    Z8P      SA5    =8L               INITIALIZE RESULT                             REFMAP       237     A     
 REFMAP             SB4    1R0-1R                                                          REFMAP       238     A     
 REFMAP             MX3    57                                                              REFMAP       239     A     
 REFMAP             SB2    12                                                              REFMAP       240     A     
 REFMAP             BX6    X5                                                              REFMAP       241     A     
 REFMAP             EQ     Z8L                                                             REFMAP       242     A     
 REFMAP                                                                                    REFMAP       243     A     
 REFMAP   *         PLUGS USED TO CHANGE BETWEEN LEADING BLANK AND ZERO FILL               REFMAP       244     A     
 REFMAP                                                                                    REFMAP       245     A     
 REFMAP             IF     DEF,ZEROFILL                                                    REFMAP       246     A     
 REFMAP    Z8PLUG   SA5    =8L  000000       FOR LEADING ZERO FILL                         REFMAP       247     A     
 REFMAP             SB4    0                                                               REFMAP       248     A     
 REFMAP                                                                                    REFMAP       249     A     
 REFMAP    Z8RESTR  SA5    =8L                                                             REFMAP       250     A     
 REFMAP             SB4    1R0-1R                                                          REFMAP       251     A     
 REFMAP             ENDIF                                                                  REFMAP       252     A     
 REFMAP                                                                                    REFMAP       253     A     
 REFMAP   ***                                                                              REFMAP       254     A     
 REFMAP   *         OCTC - CONVERT BINARY NUMBER TO OCTAL                                  REFMAP       255     A     
 REFMAP   *         ON ENTRY:                                                              REFMAP       256     A     
 REFMAP   *                X1 = NUMBER RIGHT JUSTIFIED ( < 400 000B )                      REFMAP       257     A     
 REFMAP   *         ON EXIT:                                                               REFMAP       258     A     
 REFMAP   *                X6 = 8L   NNNB                                                  REFMAP       259     A     
 REFMAP   *                                                                                REFMAP       260     A     
 REFMAP    OCTL     BX2    -X3*X1            EXTRACT A DIGIT                               REFMAP       261     A     
 REFMAP             AX1    3                                                               REFMAP       262     A     
 REFMAP             SX4    B4+X2                                                           REFMAP       263     A     
 REFMAP             LX5    B2,X4                                                           REFMAP       264     A     
 REFMAP             SB2    B2+6                                                            REFMAP       265     A     
 REFMAP             IX6    X6+X5                                                           REFMAP       266     A     
 REFMAP             NZ     X1,OCTL                                                         REFMAP       267     A     
 REFMAP    OCTC                                                                            REFMAP       268     A     
 REFMAP             SA5    =8L      B                                                      REFMAP       269          I
          -FCC0574
 REFMAP             SB2    24                                                              REFMAP       270          I
          -FCC0574
 REFMAP             SA5    =8L       B                                                     FCC0574        4     A     
 REFMAP             SB2    18                                                              FCC0574        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2747    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SB4    1R0-1R                                                          REFMAP       271     A     
 REFMAP             MX3    57                                                              REFMAP       272     A     
 REFMAP             BX6    X5                                                              REFMAP       273     A     
 REFMAP             EQ     OCTL                                                            REFMAP       274     A     
 REFMAP             TITLE              PSTITLE - PRINT SUB TITLE                           REFMAP       275     A     
 REFMAP   ***                                                                              REFMAP       276     A     
 REFMAP   *         PSTITLE - PRINT SUB TITLE LINE                                         REFMAP       277     A     
 REFMAP   *                                                                                REFMAP       278     A     
 REFMAP   *         ON ENTRY:                                                              REFMAP       279     A     
 REFMAP   *                A1 = FWA OF SUBTITLE LINE                                       REFMAP       280     A     
 REFMAP   *                                                                                REFMAP       281     A     
 REFMAP   *         ON EXIT:                                                               REFMAP       282     A     
 REFMAP   *         DLINE = COL/10 ( R " 0 ) OR 0 FOR THE USE OF "FMT"                     REFMAP       283     A     
 REFMAP   *                                                                                REFMAP       284     A     
 REFMAP                                                                                    REFMAP       285     A     
 REFMAP                                                                                    REFMAP       286     A     
 REFMAP    PSTITLE  ENTRY. *           ** ENTRY/EXIT **                                    REFMAP       287     A     
 REFMAP                                                                                    REFMAP       288     A     
 REFMAP   *         MOVE SUBTITLE LINE TO CENTRAL I/O LISTING BUFFER.                      REFMAP       289     A     
 REFMAP                                                                                    REFMAP       290     A     
 REFMAP             SB1    1                                                               REFMAP       291     A     
 REFMAP             MX0    -12                                                             REFMAP       292     A     
 REFMAP             SB7    B0          (B7) = SUBTITLE LENGTH ACCUMULATOR                  REFMAP       293     A     
 REFMAP    PST2     BX7    X1                                                              REFMAP       294     A     
 REFMAP             SB7    B7+B1                                                           REFMAP       295     A     
 REFMAP             SA1    A1+B1                                                           REFMAP       296     A     
 REFMAP             BX6    -X0*X7                                                          REFMAP       297     A     
 REFMAP             SA7    =XO.STITL-1+B7                                                  REFMAP       298     A     
 REFMAP             NZ     X6,PST2     IF NOT END OF SHORT MAP LINE                        REFMAP       299     A     
 REFMAP             SA5    REFACC      MAP TYPE FLAG (.ZR. = SHORT, 1S59 = LONG)           REFMAP       300     A     
 REFMAP             SX3    B7                                                              REFMAP       301     A     
 REFMAP             AX5    59                SIGN EXTEND                                   REFMAP       302     A     
 REFMAP             BX6    X5*X3             COL/10 OR 0                                   REFMAP       303     A     
 REFMAP             SA6    DLINE             SET PAD COLUMN                                REFMAP       304     A     
 REFMAP             PL     X5,PST4     IF SHORT MAP                                        REFMAP       305     A     
 REFMAP                                                                                    REFMAP       306     A     
 REFMAP   *         ADD LONG MAP INFO TO SUBTITLE LINE.                                    REFMAP       307     A     
 REFMAP                                                                                    REFMAP       308     A     
 REFMAP             SX2    2R                                                              REFMAP       309     A     
 REFMAP             BX7    X7+X2             FILL OUT LAST WORD                            REFMAP       310     A     
 REFMAP             SA7    A7                                                              REFMAP       311     A     
 REFMAP    PST3     BX7    X1                                                              REFMAP       312     A     
 REFMAP             SB7    B7+B1                                                           REFMAP       313     A     
 REFMAP             SA1    A1+B1                                                           REFMAP       314     A     
 REFMAP             BX6    -X0*X7                                                          REFMAP       315     A     
 REFMAP             SA7    =XO.STITL-1+B7                                                  REFMAP       316     A     
 REFMAP             NZ     X6,PST3     IF NOT END OF LONG MAP LINE                         REFMAP       317     A     
 REFMAP                                                                                    REFMAP       318     A     
 REFMAP   *         POST SUBTITLE LENGTH (WORDS).                                          REFMAP       319     A     
 REFMAP                                                                                    REFMAP       320     A     
 REFMAP    PST4     SX6    B7                                                              REFMAP       321     A     
 REFMAP             SA6    =XL.STITL                                                       REFMAP       322     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2748    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP                                                                                    REFMAP       323     A     
 REFMAP   *         LIST SUBTITLE IN MID-PAGE IF MORE THAN 4 LINES ARE LEFT.               REFMAP       324     A     
 REFMAP                                                                                    REFMAP       325     A     
 REFMAP             SA1    =XN.LINES                                                       REFMAP       326     A     
 REFMAP             SX6    X1+4                                                            REFMAP       327     A     
 REFMAP             PL     X6,PST6     IF LESS THAN 4 LINES LEFT ON PAGE                   REFMAP       328     A     
 REFMAP             SX7    B7                                                              REFMAP       329     A     
 REFMAP             SA7    TEMP        TEMP SAVE SUBTITLE LENGTH (WORDS)                   REFMAP       330     A     
 REFMAP             LISTL  (=2C  ),1   BLANK LINE                                          REFMAP       331     A     
 REFMAP             SA1    TEMP                                                            REFMAP       332     A     
 REFMAP             LISTL  =XO.STITL,X1                                                    REFMAP       333     A     
 REFMAP             SB5    1                                                               REFMAP       334     A     
 REFMAP             EQ     PSTITLE     EXIT                                                REFMAP       335     A     
 REFMAP                                                                                    REFMAP       336     A     
 REFMAP    PST6     NUPAGE                                                                 REFMAP       337     A     
 REFMAP             SB5    1                                                               REFMAP       338     A     
 REFMAP             EQ     PSTITLE     EXIT                                                REFMAP       339     A     
 REFMAP             TITLE              LISTV - LIST ROUTINE                                REFMAP       340     A     
 REFMAP   ***                                                                              REFMAP       341     A     
 REFMAP   *         STITLE - MACRO TO CALL PSTITLE TO OUTPUT A SUB TITLE                   REFMAP       342     A     
 REFMAP   *                                                                                REFMAP       343     A     
 REFMAP   *         SMTITLE - SHORT MAP TITLE                                              REFMAP       344     A     
 REFMAP   *         COL - NUMBER OF COLUMNS IN INITIAL INFO PUT OUT BY REFMAP              REFMAP       345     A     
 REFMAP   *                COL = 18,28,38,48                                               REFMAP       346     A     
 REFMAP   *         LMTITLE - TEXT TO BE ADDED TO THE SUB TITLE FOR THE LONG MAP           REFMAP       347     A     
 REFMAP   *                                                                                REFMAP       348     A     
 REFMAP                                                                                    REFMAP       349     A     
 REFMAP    STITLE   MACRO  SMTITLE,COL,LMTITLE                                             REFMAP       350     A     
 REFMAP             LOCAL  LOCLABEL                                                        REFMAP       351     A     
 REFMAP             USE    DATA                                                            REFMAP       352     A     
 REFMAP    LOCLABEL DATA   COL_C   SMTITLE                                                 REFMAP       353     A     
 REFMAP             DIS    ,/LMTITLE/                                                      REFMAP       354     A     
 REFMAP             USE    *                                                               REFMAP       355     A     
 REFMAP             SA1    LOCLABEL                                                        REFMAP       356     A     
 REFMAP             RJ     PSTITLE                                                         REFMAP       357     A     
 REFMAP             ENDM                                                                   REFMAP       358     A     
 REFMAP             SPACE  3                                                               REFMAP       359     A     
 REFMAP   ***                                                                              REFMAP       360     A     
 REFMAP   *         LISTV - LIST REFERENCES FOR A NAME IN THE SYMBOL TABLE                 REFMAP       361     A     
 REFMAP   *                                                                                REFMAP       362     A     
 REFMAP   *         CALLS "SORTRL" TO SORT THE REFERENCE LIST FOR THE SYMBOL               REFMAP       363     A     
 REFMAP   *         INTO CATEGORIES ON THE REFERENCE TYPE AND THEN CALLS "LISTR"           REFMAP       364     A     
 REFMAP   *         TO FORMAT AND LIST THE REFERENCES FOR EACH CATEGORY.                   REFMAP       365     A     
 REFMAP   *                                                                                REFMAP       366     A     
 REFMAP   *         ON ENTRY:                                                              REFMAP       367     A     
 REFMAP   *                A5 = ADDRESS OF LIST OF HEADER WORDS OR 0                       REFMAP       368     A     
 REFMAP   *                                                                                REFMAP       369     A     
 REFMAP                                                                                    REFMAP       370     A     
 REFMAP   *         NO HEADER CASE                                                         REFMAP       371     A     
 REFMAP                                                                                    REFMAP       372     A     
 REFMAP    LISTVN   SA2    DLINE                                                           REFMAP       373     A     
 REFMAP             SA3    O.DEFS                                                          REFMAP       374     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2749    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SA4    =10H                                                            REFMAP       375     A     
 REFMAP             BX6    X4                                                              REFMAP       376     A     
 REFMAP             ZR     X3,LISTVN1        IF NOT DEFINED                                REFMAP       377     A     
 REFMAP                                                                                    REFMAP       378     A     
 REFMAP             MX0    L.BCDLN                                                         REFMAP       379     A     
 REFMAP             SA4    X3                DEFINITION LINE                               REFMAP       380     A     
 REFMAP             LX0    L.BCDLN+P.BCDLN                                                 REFMAP       381     A     
 REFMAP             BX5    -X0*X6                                                          REFMAP       382     A     
 REFMAP             BX7    X0*X4             EXTRACT                                       REFMAP       383     A     
 REFMAP             IX6    X5+X7                                                           REFMAP       384     A     
 REFMAP                                                                                    REFMAP       385     A     
 REFMAP    LISTVN1  SA6    B7+X2                                                           REFMAP       386     A     
 REFMAP             SB1    X2+B5                                                           REFMAP       387     A     
 REFMAP             SX7    X2+B5             DLINE = DLINE+1                               REFMAP       388     A     
 REFMAP             SA7    A2                                                              REFMAP       389     A     
 REFMAP             SA1    O.REFS                                                          REFMAP       390     A     
 REFMAP             ZR     X1,LISTVN2        IF NO REFERENCES                              REFMAP       391     A     
 REFMAP             MX2    0                                                               REFMAP       392     A     
 REFMAP             RJ     LISTR             LIST THE REFERENCES                           REFMAP       393     A     
 REFMAP                                                                                    REFMAP       394     A     
 REFMAP    LISTVN2  SA2    DLINE                                                           REFMAP       395     A     
 REFMAP             SX7    X2-1                                                            REFMAP       396     A     
 REFMAP             SA7    A2                RESTORE DLINE                                 REFMAP       397     A     
 REFMAP             ZR     B1,LISTV          IF NOTHING TO DUMP                            REFMAP       398     A     
 REFMAP                                                                                    REFMAP       399     A     
 REFMAP   *         DUMP THE LAST PARTIAL LINE                                             REFMAP       400     A     
 REFMAP                                                                                    REFMAP       401     A     
 REFMAP    LISTVX   SB6    B7-B5                                                           REFMAP       402     A     
 REFMAP             SA5    B6+B1                                                           REFMAP       403     A     
 REFMAP             MX0    48                                                              REFMAP       404     A     
 REFMAP             BX6    X0*X5             TRAILING ZERO BYTE                            REFMAP       405     A     
 REFMAP             SA6    A5                                                              REFMAP       406     A     
 REFMAP             SB7    B1                (B7) = LINE LENGTH (WORDS)                    REFMAP       407     A     
 REFMAP             SB1    1                                                               REFMAP       408     A     
 REFMAP             LISTL  LBUF,B7                                                         REFMAP       409     A     
 REFMAP             SB5    1                                                               REFMAP       410     A     
 REFMAP                                                                                    REFMAP       411     A     
 REFMAP    LISTV                             ** ENTRY/EXIT **                              REFMAP       412     A     
 REFMAP             SX6    A5                                                              REFMAP       413     A     
 REFMAP             SA6    APL               SAVE ADDRESS OF ARG LIST                      REFMAP       414     A     
 REFMAP             SB7    LBUF              B7 = FWA OF LINE BUFFER                       REFMAP       415     A     
 REFMAP             RJ     SORTRL            SORT THE REFERENCES                           REFMAP       416     A     
 REFMAP             SA5    APL                                                             REFMAP       417     A     
 REFMAP             ZR     X5,LISTVN         IF NO HEADERS REQUESTED                       REFMAP       418     A     
 REFMAP                                                                                    REFMAP       419     A     
 REFMAP             SA1    O.REFS                                                          REFMAP       420     A     
 REFMAP             ZR     X1,LISTV1         IF NO REFERENCES                              REFMAP       421     A     
 REFMAP             SA2    X5                BCD PREFIX                                    REFMAP       422     A     
 REFMAP             RJ     LISTR             LIST THE REFERENCES                           REFMAP       423     A     
 REFMAP                                                                                    REFMAP       424     A     
 REFMAP    LISTV1   SA1    O.DEFS                                                          REFMAP       425     A     
 REFMAP             ZR     X1,LISTV2         IF NO DEFINITIONS                             REFMAP       426     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2750    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SA5    APL                                                             REFMAP       427     A     
 REFMAP             SA2    X5+B5             BCD PREFIX                                    REFMAP       428     A     
 REFMAP             RJ     LISTR                                                           REFMAP       429     A     
 REFMAP                                                                                    REFMAP       430     A     
 REFMAP    LISTV2   SA1    O.FREF                                                          REFMAP       431     A     
 REFMAP             ZR     X1,LISTV3         IF NO FILE REFS                               REFMAP       432     A     
 REFMAP             SA5    APL                                                             REFMAP       433     A     
 REFMAP             SA2    X5+2              BCD PREFIX                                    REFMAP       434     A     
 REFMAP             RJ     LISTR                                                           REFMAP       435     A     
 REFMAP                                                                                    REFMAP       436     A     
 REFMAP    LISTV3   ZR     B1,LISTV          EXIT IF NOTHING TO DUMP                       REFMAP       437     A     
 REFMAP             EQ     LISTVX                                                          REFMAP       438     A     
 REFMAP             EJECT                                                                  REFMAP       439     A     
 REFMAP   ***                                                                              REFMAP       440     A     
 REFMAP   *         LISTR - LIST REFERENCES FOR A VARIABLE                                 REFMAP       441     A     
 REFMAP   *                                                                                REFMAP       442     A     
 REFMAP   *         FORMATS THE REFERENCE LIST INTO LINES OF THE FORM:                     REFMAP       443     A     
 REFMAP   *         TN,K(3X,I4,3X) WHERE: N = DLINE*10 AND K = WPL-DLINE ,                 REFMAP       444     A     
 REFMAP   *         AND PRINTS THEM.                                                       REFMAP       445     A     
 REFMAP   *         REPEATED REFERENCES ON THE SAME LINE ARE FORMATTED AS:                 REFMAP       446     A     
 REFMAP   *         I3*IN WHERE I3 IS THE REP COUNT AND N THE NUMBER OF DIGITS             REFMAP       447     A     
 REFMAP   *         IN THE LINE NUMBER.                                                    REFMAP       448     A     
 REFMAP   *                                                                                REFMAP       449     A     
 REFMAP   *         ON ENTRY:                                                              REFMAP       450     A     
 REFMAP   *                X1 = ADDRESS OF REFERENCE LIST                                  REFMAP       451     A     
 REFMAP   *                X2 = "SUBTITLE" WORD                                            REFMAP       452     A     
 REFMAP   *                B1 = WORD COUNT FOR THE CURRENT LINE                            REFMAP       453     A     
 REFMAP   *                                                                                REFMAP       454     A     
 REFMAP   *         ON EXIT:                                                               REFMAP       455     A     
 REFMAP   *                B1 = WORD COUNT FOR CURRENT LINE                                REFMAP       456     A     
 REFMAP   *                B2 = WORD COUNT RESET IF B1 = 0                                 REFMAP       457     A     
 REFMAP                                                                                    REFMAP       458     A     
 REFMAP    COMP     VFD    18/3R   ,24/0,18/3R                                             REFMAP       459     A     
 REFMAP                                                                                    REFMAP       460     A     
 REFMAP    LISTR                             ** ENTRY/EXIT LINE **                         REFMAP       461     A     
 REFMAP             BX7    X2                                                              REFMAP       462     A     
 REFMAP             NZ     B1,LISTR1         IF WC .NE. 0                                  REFMAP       463     A     
 REFMAP             SB1    B2                WC = DLINE                                    REFMAP       464     A     
 REFMAP    LISTR1   ZR     X2,LISTR.O        IF NO HEADER WORD                             REFMAP       465     A     
 REFMAP             SA7    B7+B1             STORE HEADER WORD                             REFMAP       466     A     
 REFMAP             SB1    B1+B5             WC = WC+1                                     REFMAP       467     A     
 REFMAP                                                                                    REFMAP       468     A     
 REFMAP    LISTR.O  SA3    COMP                                                            REFMAP       469     A     
 REFMAP             MX0    L.BCDLN                                                         REFMAP       470     A     
 REFMAP             SB6    WPL               WORDS/LINE                                    REFMAP       471     A     
 REFMAP             LX0    L.BCDLN+P.BCDLN                                                 REFMAP       472     A     
 REFMAP             MX4    L.REP             REP COUNT MAP                                 REFMAP       473     A     
 REFMAP                                                                                    REFMAP       474     A     
 REFMAP   *         LOOP THROUGH THE LIST                                                  REFMAP       475     A     
 REFMAP                                                                                    REFMAP       476     A     
 REFMAP    LISTR.I  SA2    X1                X2 = WORD                                     REFMAP       477     A     
 REFMAP             BX6    X0*X2             EXTRACT INTEGER                               REFMAP       478     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2751    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             IX7    X3+X6             ADD COMPLEMENT                                REFMAP       479     A     
 REFMAP             SA7    B7+B1                                                           REFMAP       480     A     
 REFMAP             BX5    X4*X2             EXTRACT REP COUNT                             REFMAP       481     A     
 REFMAP             NZ     X5,LISTR.R        IF A REP COUNT                                REFMAP       482     A     
 REFMAP                                                                                    REFMAP       483     A     
 REFMAP    LISTR.II SB1    B1+B5             WC = WC+1                                     REFMAP       484     A     
 REFMAP             EQ     B1,B6,LISTR.D     JUMP IF A FULL LINE                           REFMAP       485     A     
 REFMAP                                                                                    REFMAP       486     A     
 REFMAP             SX1    X2                                                              REFMAP       487     A     
 REFMAP             NZ     X1,LISTR.I        LOOP IF NOT END OF LIST                       REFMAP       488     A     
 REFMAP             SX5    B1+2-WPL                                                        REFMAP       489     A     
 REFMAP             NG     X5,LISTR          EXIT IF AT LEAST 2 WORDS LEFT                 REFMAP       490     A     
 REFMAP                                                                                    REFMAP       491     A     
 REFMAP   *         DUMP THE ACCUMULATED LINE                                              REFMAP       492     A     
 REFMAP                                                                                    REFMAP       493     A     
 REFMAP    LISTR.D  SX6    X2                                                              REFMAP       494     A     
 REFMAP             SA6    TEMPA             SAVE LIST ADDRESS                             REFMAP       495     A     
 REFMAP             MX0    48                                                              REFMAP       496     A     
 REFMAP             BX7    X0*X7             CREATE A ZERO BYTE                            REFMAP       497     A     
 REFMAP             SA7    A7                                                              REFMAP       498     A     
 REFMAP             SB7    B1                                                              REFMAP       499     A     
 REFMAP             SB1    1                                                               REFMAP       500     A     
 REFMAP             LISTL  LBUF,B7                                                         REFMAP       501     A     
 REFMAP             SA1    TEMPA                                                           REFMAP       502     A     
 REFMAP                                                                                    REFMAP       503     A     
 REFMAP   *         RESET B7 , WORD COUNT AND FIRST DLINE WORDS OF BUFFER                  REFMAP       504     A     
 REFMAP                                                                                    REFMAP       505     A     
 REFMAP             SA4    DLINE                                                           REFMAP       506     A     
 REFMAP             SA2    BFILL             BLANK FILL FLAG                               REFMAP       507     A     
 REFMAP             SB7    LBUF                                                            REFMAP       508     A     
 REFMAP             SB5    B1                                                              REFMAP       509     A     
 REFMAP             SB1    X4                                                              REFMAP       510     A     
 REFMAP             ZR     X2,LISTR.D1       IF FIRST DLINE WORDS ARE BLANK FILLED         REFMAP       511     A     
 REFMAP             BX7    X2                                                              REFMAP       512     A     
 REFMAP             MX6    0                                                               REFMAP       513     A     
 REFMAP             SA6    A2                CLEAR FLAG                                    REFMAP       514     A     
 REFMAP             SB2    B0                                                              REFMAP       515     A     
 REFMAP                                                                                    REFMAP       516     A     
 REFMAP   +         SA7    B7+B2                                                           REFMAP       517     A     
 REFMAP             SB2    B2+B5                                                           REFMAP       518     A     
 REFMAP             LT     B2,B1,*                                                         REFMAP       519     A     
 REFMAP                                                                                    REFMAP       520     A     
 REFMAP    LISTR.D1 NZ     X1,LISTR.O        IF MORE REFS                                  REFMAP       521     A     
 REFMAP             SB2    B1                B2 = WC RESET IF LISTR IS CALLED AGAI         REFMAP       522     A     
 REFMAP             SB1    B0                                                              REFMAP       523     A     
 REFMAP             EQ     LISTR                                                           REFMAP       524     A     
 REFMAP                                                                                    REFMAP       525     A     
 REFMAP   *         PROCESS REP COUNT                                                      REFMAP       526     A     
 REFMAP                                                                                    REFMAP       527     A     
 REFMAP    LISTR.R  BX6    X2                                                              REFMAP       528     A     
 REFMAP             SA6    TEMPA                                                           REFMAP       529     A     
 REFMAP             LX5    L.REP                                                           REFMAP       530     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2752    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SX1    X5+B5                                                           REFMAP       531     A     
 REFMAP             SB6    B1                                                              REFMAP       532     A     
 REFMAP             SB1    1                                                               REFMAP       533     A     
 REFMAP             CALL   CDD               RETURNS (X6) = INTEGER, DPC -A- FMT           REFMAP       534     A     
 REFMAP             SB5    B1                                                              REFMAP       535     A     
 REFMAP             SB1    B6                                                              REFMAP       536     A     
 REFMAP                                                                                    REFMAP       537     A     
 REFMAP   *         FORM REPS*LINE NUMBER                                                  REFMAP       538     A     
 REFMAP                                                                                    REFMAP       539     A     
 REFMAP             SA2    TEMPA                                                           REFMAP       540     A     
 REFMAP             MX4    L.REP             RESTORE REP COUNT MASK                        REFMAP       541     A     
 REFMAP             SA1    A7                REFETCH WORD                                  REFMAP       542     A     
 REFMAP             MX7    60-18                                                           REFMAP       543     A     
 REFMAP             SX5    1R*                                                             REFMAP       544     A     
 REFMAP             LX1    60-6                                                            REFMAP       545     A     
 REFMAP             BX6    -X7*X6            EXTRACT 3 DIGITS                              REFMAP       546     A     
 REFMAP             LX6    6                                                               REFMAP       547     A     
 REFMAP             IX5    X5+X6             X5 = 4RNNN*                                   REFMAP       548     A     
 REFMAP             BX3    -X4*X2                                                          REFMAP       549     A     
 REFMAP             AX3    P.BCDLN+L.BCDLN                                                 REFMAP       550     A     
 REFMAP             SB3    X3+12             B3 = SC FOR REP COUNT                         REFMAP       551     A     
 REFMAP             LX5    B3,X5                                                           REFMAP       552     A     
 REFMAP             MX7    60-24                                                           REFMAP       553     A     
 REFMAP             LX3    B3,X7                                                           REFMAP       554     A     
 REFMAP             BX1    X3*X1             REMOVE 4 CHARACTERS                           REFMAP       555     A     
 REFMAP             BX7    X1+X5             AND ADD IN REP COUNT                          REFMAP       556     A     
 REFMAP             SA7    A7                                                              REFMAP       557     A     
 REFMAP             SB6    WPL               ** X0 , B7 , B1 UNTOUCHED BY CONDEC           REFMAP       558     A     
 REFMAP             SA3    COMP                                                            REFMAP       559     A     
 REFMAP             EQ     LISTR.II                                                        REFMAP       560     A     
 REFMAP             TITLE              FMT - FORMAT LINE                                   REFMAP       561     A     
 REFMAP   ***                                                                              REFMAP       562     A     
 REFMAP   *         FMT - FORMAT DATA IN VBUF AND STORE IN LBUF                            REFMAP       563     A     
 REFMAP   *         EQUIVALENT TO A FORMATTED WRITE STMT IN "FORTRAN"                      REFMAP       564     A     
 REFMAP   *                                                                                REFMAP       565     A     
 REFMAP   *         ON ENTRY:                                                              REFMAP       566     A     
 REFMAP   *                A5 = ADDRESS OF FORMAT SPEC                                     REFMAP       567     A     
 REFMAP   *                NEXTE = 0 IF NO MORE ELEMENTS IN LIST                           REFMAP       568     A     
 REFMAP   *                DLINE = 0 IF SHORT MAP                                          REFMAP       569     A     
 REFMAP   *                ELSE = NUMBER OF WORDS TO PAD PARTIAL LINE OUT TO               REFMAP       570     A     
 REFMAP   *                                                                                REFMAP       571     A     
 REFMAP   *         ON EXIT:                                                               REFMAP       572     A     
 REFMAP   *                IF THE SHORT MAP OPTION IS ON, THEN THE LINE IS DUMPED          REFMAP       573     A     
 REFMAP   *                TO THE LIST FILE.                                               REFMAP       574     A     
 REFMAP   *                IF THE LONG MAP OPTION IS ON , THEN THE LINE IS PADDED          REFMAP       575     A     
 REFMAP   *                OUT WITH BLANKS FOR "DLINE" WORDS , B1 = "DLINE" AND            REFMAP       576     A     
 REFMAP   *                BLANK FILL FLAG, "BFILL" IS SET TO BLANKS .                     REFMAP       577     A     
 REFMAP   *                                                                                REFMAP       578     A     
 REFMAP   *         REGISTER ASSIGNMENTS                                                   REFMAP       579     A     
 REFMAP   *                                                                                REFMAP       580     A     
 REFMAP   *         X0     FORMAT SPEC                                                     REFMAP       581     A     
 REFMAP   *         X1     NEXT ITEM FROM VBUF                                             REFMAP       582     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2753    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP   *         X7     CURRENT WORD                                                    REFMAP       583     A     
 REFMAP                                                                                    REFMAP       584     A     
 REFMAP    WC       MICRO  1,,/B1/           WORD COUNT                                    REFMAP       585     A     
 REFMAP    BC       MICRO  1,,/B3/           BIT COUNT ( NUMBER OF BITS IN ITEM )          REFMAP       586     A     
 REFMAP    60       MICRO  1,,/B6/           CONSTANT 60                                   REFMAP       587     A     
 REFMAP    BL       MICRO  1,,/B7/           BITS LEFT IN THE WORD                         REFMAP       588     A     
 REFMAP                                                                                    REFMAP       589     A     
 REFMAP    FMT                                                                             REFMAP       590     A     
 REFMAP             SX7    A1                                                              REFMAP       591     A     
 REFMAP             SA7    WORDA             SAVE SYMTAB ADDRESS FOR SORTRL                REFMAP       592     A     
 REFMAP             BX0    X5                FORMAT SPEC TO X0                             REFMAP       593     A     
 REFMAP             SA0    LBUF              STORE ADDRESS                                 REFMAP       594     A     
 REFMAP             S"BL"  60                BITS LEFT                                     REFMAP       595     A     
 REFMAP             S"WC"  B0                WORD COUNT                                    REFMAP       596     A     
 REFMAP             SA5    A5+B5             POSSIBLE SECOND WORD                          REFMAP       597     A     
 REFMAP             MX7    0                 CLEAR ACCUMULATED WORD                        REFMAP       598     A     
 REFMAP             BX6    X5                                                              REFMAP       599     A     
 REFMAP             S"60"  "BL"              FOR COMPARES                                  REFMAP       600     A     
 REFMAP             SA6    A0-B5             SAVE                                          REFMAP       601     A     
 REFMAP             SA1    VBUF              FIRST ITEM                                    REFMAP       602     A     
 REFMAP                                                                                    REFMAP       603     A     
 REFMAP   *         EXTRACT FORMAT SPEC                                                    REFMAP       604     A     
 REFMAP                                                                                    REFMAP       605     A     
 REFMAP    FMT.L    LX0    3                                                               REFMAP       606     A     
 REFMAP             MX5    60-3                                                            REFMAP       607     A     
 REFMAP             BX2    -X5*X0            EXTRACT INDEX                                 REFMAP       608     A     
 REFMAP             LX0    4                                                               REFMAP       609     A     
 REFMAP             MX5    60-4                                                            REFMAP       610     A     
 REFMAP             BX3    -X5*X0            EXTRACT FIELD WIDTH                           REFMAP       611     A     
 REFMAP             SB2    X2                INDEX                                         REFMAP       612     A     
 REFMAP             SB4    X3                CHAR COUNT                                    REFMAP       613     A     
 REFMAP             S"BC"  B4+B4                                                           REFMAP       614     A     
 REFMAP             LX3    2                                                               REFMAP       615     A     
 REFMAP             S"BC"  "BC"+X3           BIT COUNT = 6*CHAR COUNT                      REFMAP       616     A     
 REFMAP             JP     B2+FMT.TBL                                                      REFMAP       617     A     
 REFMAP                                                                                    REFMAP       618     A     
 REFMAP    FMT.TBL  SA2    DLINE             0 - TERMINATE LINE                            REFMAP       619     A     
 REFMAP             EQ     FMT.FIN                                                         REFMAP       620     A     
 REFMAP                                                                                    REFMAP       621     A     
 REFMAP             SA2    A0-B5             1 - FETCH NEXT FORMAT WORD ( 2 MAX )          REFMAP       622     A     
 REFMAP             BX0    X2                                                              REFMAP       623     A     
 REFMAP             EQ     FMT.L                                                           REFMAP       624     A     
 REFMAP                                                                                    REFMAP       625     A     
 REFMAP   +         BX5    X1                2 - AN                                        REFMAP       626     A     
 REFMAP             SA1    A1+B5                                                           REFMAP       627     A     
 REFMAP             EQ     FMT.ADD                                                         REFMAP       628     A     
 REFMAP                                                                                    REFMAP       629     A     
 REFMAP             SA5    BLANKS+B4         3 - NX                                        REFMAP       630     A     
 REFMAP             EQ     FMT.ADD                                                         REFMAP       631     A     
 REFMAP                                                                                    REFMAP       632     A     
 REFMAP             EQ     FMT.IN            4 - IN INTEGER FIELD OF WIDTH N               REFMAP       633     A     
 REFMAP                                                                                    REFMAP       634     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2754    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             EQ     FMT.Z8            5 - OCTAL DIGITS WITH LEADING 0 SUPP          REFMAP       635     A     
 REFMAP                                                                                    REFMAP       636     A     
 REFMAP             RJ     OCTC              6 - OCTAL CONVERSION WITH TRAILING B          REFMAP       637     A     
 REFMAP             EQ     FMT.NXT                                                         REFMAP       638     A     
 REFMAP                                                                                    REFMAP       639     A     
 REFMAP    FMT.Z8   RJ     Z8                                                              REFMAP       640     A     
 REFMAP    FMT.NXT  SA1    A1+B5             NEXT ITEM                                     REFMAP       641     A     
 REFMAP             BX5    X6                                                              REFMAP       642     A     
 REFMAP             SPACE  3                                                               REFMAP       643     A     
 REFMAP   *         ADD CHARACTERS TO THE STRING                                           REFMAP       644     A     
 REFMAP   *         X5 = NL_STRING , X7 = WORD , BL , 60 , BC REGISTERS SET                REFMAP       645     A     
 REFMAP                                                                                    REFMAP       646     A     
 REFMAP    FMT.ADD  LE     "BC","BL",FMT.ADD1   IF BC .LE. BL                              REFMAP       647     A     
 REFMAP             MX2    1                                                               REFMAP       648     A     
 REFMAP             SB2    "BL"-B5                                                         REFMAP       649     A     
 REFMAP             AX3    B2,X2             MASK(BL)                                      REFMAP       650     A     
 REFMAP             BX4    X3*X5                                                           REFMAP       651     A     
 REFMAP             LX6    "BL",X4                                                         REFMAP       652     A     
 REFMAP             IX7    X7+X6             ACCUMULATE WORD                               REFMAP       653     A     
 REFMAP             SA7    A0+"WC"           STORE WORD                                    REFMAP       654     A     
 REFMAP             BX5    -X3*X5                                                          REFMAP       655     A     
 REFMAP             S"BC"  "BC"-"BL"                                                       REFMAP       656     A     
 REFMAP             LX7    "BL",X5           POSITION REMAINING CHARACTERS                 REFMAP       657     A     
 REFMAP             S"WC"  "WC"+B5                                                         REFMAP       658     A     
 REFMAP             S"BL"  "60"-"BC"         UPDATE BITS LEFT                              REFMAP       659     A     
 REFMAP             EQ     FMT.L                                                           REFMAP       660     A     
 REFMAP                                                                                    REFMAP       661     A     
 REFMAP    FMT.ADD1 LX5    "BL",X5           JUSTIFY STRING                                REFMAP       662     A     
 REFMAP             BX7    X7+X5                                                           REFMAP       663     A     
 REFMAP             S"BL"  "BL"-"BC"         UPDATE BIT COUNT                              REFMAP       664     A     
 REFMAP             NZ     "BL",FMT.L        IF WORD IS NOT FILLED UP                      REFMAP       665     A     
 REFMAP             SA7    A0+"WC"           STORE WORD                                    REFMAP       666     A     
 REFMAP             S"WC"  "WC"+B5           WC = WC+1                                     REFMAP       667     A     
 REFMAP             MX7    0                                                               REFMAP       668     A     
 REFMAP             S"BL"  "60"              RESET BITS LEFT                               REFMAP       669     A     
 REFMAP             EQ     FMT.L                                                           REFMAP       670     A     
 REFMAP                                                                                    REFMAP       671     A     
 REFMAP   *         INTEGER CONVERSION                                                     REFMAP       672     A     
 REFMAP                                                                                    REFMAP       673     A     
 REFMAP    FMT.IN   SA7    A0+"WC"           SAVE CURRENT WORD                             REFMAP       674     A     
 REFMAP             PX1    X1                PACK INTEGER                                  REFMAP       675     A     
 REFMAP             SA4    =1H                                                             REFMAP       676     A     
 REFMAP             SA2    =0.1000000001P48  X2 = .1 + ROUNDING FACTOR                     REFMAP       677     A     
 REFMAP             SA3    =10.0P0                                                         REFMAP       678     A     
 REFMAP             SB4    1R0-1R                                                          REFMAP       679     A     
 REFMAP             BX6    X4                SET RESULT TO BLANKS                          REFMAP       680     A     
 REFMAP             SB2    "60"-"BC"         INITIALIZE SHIFT COUNT                        REFMAP       681     A     
 REFMAP                                                                                    REFMAP       682     A     
 REFMAP    INL      DX4    X1*X2             N*.1                                          REFMAP       683     A     
 REFMAP             FX1    X1*X2             N*.1                                          REFMAP       684     A     
 REFMAP             LX6    54                                                              REFMAP       685     A     
 REFMAP             SB2    B2+6              SC = SC+6                                     REFMAP       686     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2755    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SB6    X1                                                              REFMAP       687          I
          -FCC0574
 REFMAP             FX5    X4*X3             REMAINDER                                     REFMAP       688     A     
 REFMAP             SX7    X5+B4             CONVERT TO DPC                                REFMAP       689     A     
 REFMAP             IX6    X6+X7             ADD TO STRING                                 REFMAP       690     A     
 REFMAP             NZ     B6,INL                                                          REFMAP       691          I
          -FCC0574
 REFMAP             UX5    X1                                                              FCC0574        6     A     
 REFMAP             NZ     X5,INL                                                          FCC0574        7     A     
 REFMAP                                                                                    REFMAP       692     A     
 REFMAP             LX6    54                                                              REFMAP       693     A     
 REFMAP             SB4    "BC"-B5                                                         REFMAP       694     A     
 REFMAP             MX4    1                                                               REFMAP       695     A     
 REFMAP             LX5    B2,X6             JUSTIFY                                       REFMAP       696     A     
 REFMAP             AX4    B4,X4             MASK(BC)                                      REFMAP       697     A     
 REFMAP             SA3    A0+"WC"                                                         REFMAP       698     A     
 REFMAP             S"60"  60                RESTORE COMPARE REGISTER                      REFMAP       699     A     
 REFMAP             BX7    X3                                                              REFMAP       700     A     
 REFMAP             SA1    A1+B5             NEXT ITEM                                     REFMAP       701     A     
 REFMAP             BX5    X4*X5                                                           REFMAP       702     A     
 REFMAP             EQ     FMT.ADD                                                         REFMAP       703     A     
 REFMAP             SPACE  3                                                               REFMAP       704     A     
 REFMAP   *         END OF FORMAT                                                          REFMAP       705     A     
 REFMAP                                                                                    REFMAP       706     A     
 REFMAP   FMT.FIN   NZ     X2,FMT.FIN1       IF PADDING REQUIRED                           REFMAP       707     A     
 REFMAP                                                                                    REFMAP       708     A     
 REFMAP   *         SHORT MAP - FILL OUT LINE WITH BLANKS, MOVE IT TO PBUF                 REFMAP       709     A     
 REFMAP   *         AND PRINT IT IF WE HAVE A FULL LINE OR NEXTE = 0                       REFMAP       710     A     
 REFMAP                                                                                    REFMAP       711     A     
 REFMAP             SA5    BLANKS+B4                                                       REFMAP       712     A     
 REFMAP             GT     B4,B5,FMT.X       IF AT LEAST A ZERO BYTE LEFT                  REFMAP       713     A     
 REFMAP                                                                                    REFMAP       714     A     
 REFMAP             LX3    "BL",X5           FILL OUT CURRENT WORD                         REFMAP       715     A     
 REFMAP             BX6    X7+X3                                                           REFMAP       716     A     
 REFMAP             SA6    A0+"WC"                                                         REFMAP       717     A     
 REFMAP             S"BL"  B0                                                              REFMAP       718     A     
 REFMAP             MX7    0                                                               REFMAP       719     A     
 REFMAP             S"WC"  "WC"+B5                                                         REFMAP       720     A     
 REFMAP             SA5    =10H                                                            REFMAP       721     A     
 REFMAP                                                                                    REFMAP       722     A     
 REFMAP    FMT.X    LX6    "BL",X5                                                         REFMAP       723     A     
 REFMAP             BX7    X7+X6             LAST WORD = 10LXXX                            REFMAP       724     A     
 REFMAP             SA7    A0+"WC"                                                         REFMAP       725     A     
 REFMAP             S"WC"  "WC"+B5           WC = WC+1                                     REFMAP       726     A     
 REFMAP                                                                                    REFMAP       727     A     
 REFMAP             SA1    ACCWC             MOVE LINE TO PBUF AND DUMP IF NECESS          REFMAP       728     A     
 REFMAP             SB6    WPL               WORD LIMIT FOR THE LINE                       REFMAP       729     A     
 REFMAP             SB4    X1+B1             TOTAL WORD COUNT                              REFMAP       730     A     
 REFMAP             LE     B4,B6,FMT.X1      IF ENOUGH ROOM TO ADD                         REFMAP       731     A     
 REFMAP                                                                                    REFMAP       732     A     
 REFMAP             SX6    B1                                                              REFMAP       733     A     
 REFMAP             SA6    A1                SAVE WORD COUNT IN ACCWC                      REFMAP       734     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2756    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SB7    PBUF                                                            REFMAP       735     A     
 REFMAP             SB1    X1                                                              REFMAP       736     A     
 REFMAP             RJ     DLL               DUMP LINE                                     REFMAP       737     A     
 REFMAP             SA1    ACCWC                                                           REFMAP       738     A     
 REFMAP             SB7    LBUF                                                            REFMAP       739     A     
 REFMAP             SA5    NEXTE                                                           REFMAP       740     A     
 REFMAP             SB1    X1                                                              REFMAP       741     A     
 REFMAP             MX1    0                                                               REFMAP       742     A     
 REFMAP             ZR     X5,FMT.X2         IF THIS IS THE LAST IN THE LIST               REFMAP       743     A     
 REFMAP                                                                                    REFMAP       744     A     
 REFMAP    FMT.X1   SA2    LBUF              ADD WORDS IN LBUF TO LINE BEING FORME         REFMAP       745     A     
 REFMAP             SB7    PBUF              IN PBUF                                       REFMAP       746     A     
 REFMAP             SA5    NEXTE                                                           REFMAP       747     A     
 REFMAP             SB2    B1                                                              REFMAP       748     A     
 REFMAP             LX7    X1                                                              REFMAP       749     A     
 REFMAP                                                                                    REFMAP       750     A     
 REFMAP   +         BX6    X2                MOVE WORDS TO PBUF                            REFMAP       751     A     
 REFMAP             SA2    A2+B5                                                           REFMAP       752     A     
 REFMAP             SB2    B2-B5                                                           REFMAP       753     A     
 REFMAP             SA6    B7+X7                                                           REFMAP       754     A     
 REFMAP             SX7    X7+B5                                                           REFMAP       755     A     
 REFMAP             NZ     B2,*-1            LOOP IF MORE TO GO                            REFMAP       756     A     
 REFMAP             SA7    A1                UPDATE ACCWC                                  REFMAP       757     A     
 REFMAP             NZ     X5,FMT            IF MORE ELEMENTS IN THE LIST                  REFMAP       758     A     
 REFMAP             SB1    X7                                                              REFMAP       759     A     
 REFMAP                                                                                    REFMAP       760     A     
 REFMAP   *         END OF LIST - DUMP LAST PARTIAL LINE                                   REFMAP       761     A     
 REFMAP                                                                                    REFMAP       762     A     
 REFMAP    FMT.X2   MX7    0                                                               REFMAP       763     A     
 REFMAP             SA7    A1                ACCWC = 0                                     REFMAP       764     A     
 REFMAP             RJ     DLL               DUMP THE LINE                                 REFMAP       765     A     
 REFMAP             EQ     FMT                                                             REFMAP       766     A     
 REFMAP                                                                                    REFMAP       767     A     
 REFMAP   *         LONG MAP - PAD UP TO COL DLINE*10 WITH BLANKS                          REFMAP       768     A     
 REFMAP                                                                                    REFMAP       769     A     
 REFMAP    FMT.FIN1 SA1    =10H                                                            REFMAP       770     A     
 REFMAP             SA3    BLANKS+B4                                                       REFMAP       771     A     
 REFMAP             SB2    X2                                                              REFMAP       772     A     
 REFMAP             BX6    X1                                                              REFMAP       773     A     
 REFMAP             SA6    BFILL             SET BLANK FILL FLAG FOR LISTV                 REFMAP       774     A     
 REFMAP             LX4    "BL",X3                                                         REFMAP       775     A     
 REFMAP             EQ     "BL","60",FMT.FINL  IF CURRENT WORD IS EMPTY                    REFMAP       776     A     
 REFMAP             BX7    X7+X4             FILL OUT CURRENT WORD                         REFMAP       777     A     
 REFMAP             SA7    A0+"WC"                                                         REFMAP       778     A     
 REFMAP             S"WC"  "WC"+B5                                                         REFMAP       779     A     
 REFMAP                                                                                    REFMAP       780     A     
 REFMAP    FMT.FINL EQ     "WC",B2,FMT       IF FINISHED                                   REFMAP       781     A     
 REFMAP             SA6    A0+"WC"                                                         REFMAP       782     A     
 REFMAP             S"WC"  "WC"+B5           WC = WC+1                                     REFMAP       783     A     
 REFMAP             EQ     FMT.FINL                                                        REFMAP       784     A     
 REFMAP             TITLE              MACROS                                              REFMAP       785     A     
 REFMAP    F=       EQU    0                 TERMINATE THE STRING                          REFMAP       786     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2757    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP    F=A      EQU    2                 AN                                            REFMAP       787     A     
 REFMAP    F=X      EQU    3                 XN  ( NX )                                    REFMAP       788     A     
 REFMAP    F=I      EQU    4                 IN                                            REFMAP       789     A     
 REFMAP    F=Z      EQU    5                 Z8                                            REFMAP       790     A     
 REFMAP    F=O      EQU    6                 O6,*B *                                       REFMAP       791     A     
 REFMAP             SPACE  3                                                               REFMAP       792     A     
 REFMAP   *         MACRO TO CREATE A FORMAT SPEC FOR "FMT"                                REFMAP       793     A     
 REFMAP                                                                                    REFMAP       794     A     
 REFMAP   *         FORMAT SPEC IS WRITTEN AS (TZ1,TZ2,...)                                REFMAP       795     A     
 REFMAP   *         WHERE T MAY BE: A,I,O,X OR Z AND 0 @ ZI @ 11                           REFMAP       796     A     
 REFMAP                                                                                    REFMAP       797     A     
 REFMAP    FORMAT   MACRO  STRING                                                          REFMAP       798     A     
 REFMAP             LOCAL  IC,C,SEP,CH,FL                                                  REFMAP       799     A     
 REFMAP    FL       SET    0                                                               REFMAP       800     A     
 REFMAP    IC       SET    0                 ITEMS IN CURRENT WORD                         REFMAP       801     A     
 REFMAP    C        SET    1                 COLUMN POINTER                                REFMAP       802     A     
 REFMAP                                                                                    REFMAP       803     A     
 REFMAP             DUP    72                                                              REFMAP       804     A     
 REFMAP    CH       MICRO  C,1,/STRING/                                                    REFMAP       805     A     
 REFMAP    C        SET    C+1                                                             REFMAP       806     A     
 REFMAP             VFD    3/F="CH"          INDEX                                         REFMAP       807     A     
 REFMAP                                                                                    REFMAP       808     A     
 REFMAP    OT       IFNE   F="CH",0                                                        REFMAP       809     A     
 REFMAP    CH       MICRO  C,1,/STRING/                                                    REFMAP       810     A     
 REFMAP    SEP      MICRO  C+1,1,/STRING/                                                  REFMAP       811     A     
 REFMAP    C        SET    C+2                                                             REFMAP       812     A     
 REFMAP             IFC    NE,/"SEP"/,/,2                                                  REFMAP       813     A     
 REFMAP    C        SET    C+1                                                             REFMAP       814     A     
 REFMAP    CH       MICRO  1,,/"CH""SEP"/    FIELD WIDTH                                   REFMAP       815     A     
 REFMAP             VFD    4/"CH"                                                          REFMAP       816     A     
 REFMAP    IC       SET    IC+1                                                            REFMAP       817     A     
 REFMAP    FL       SET    FL+"CH"                                                         REFMAP       818     A     
 REFMAP                                                                                    REFMAP       819     A     
 REFMAP    ET       IFEQ   IC,8                                                            REFMAP       820     A     
 REFMAP             VFD    4/2               CODE = 1 ( GET SECOND WORD )                  REFMAP       821     A     
 REFMAP    IC       SET    0                                                               REFMAP       822     A     
 REFMAP    ET       ENDIF                                                                  REFMAP       823     A     
 REFMAP                                                                                    REFMAP       824     A     
 REFMAP    OT       ELSE                                                                   REFMAP       825     A     
 REFMAP    IC       SET    FL/10                                                           REFMAP       826     A     
 REFMAP    IC       SET    FL-IC*10                                                        REFMAP       827     A     
 REFMAP             VFD    4/10-IC,$/0       COUNT TO FILL OUT WORD                        REFMAP       828     A     
 REFMAP             STOPDUP                                                                REFMAP       829     A     
 REFMAP    OT       ENDIF                                                                  REFMAP       830     A     
 REFMAP                                                                                    REFMAP       831     A     
 REFMAP             ENDD                                                                   REFMAP       832     A     
 REFMAP                                                                                    REFMAP       833     A     
 REFMAP             ENDM                                                                   REFMAP       834     A     
 REFMAP             EJECT                                                                  REFMAP       835     A     
 REFMAP    FMTL     MACRO  STRING            FORMAT AND OPTIONALLY PRINT A LINE            REFMAP       836     A     
 REFMAP             LOCAL  X                                                               REFMAP       837     A     
 REFMAP             USE    DATA                                                            REFMAP       838     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2758    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP    X        BSS    0                                                               REFMAP       839     A     
 REFMAP             FORMAT (STRING)                                                        REFMAP       840     A     
 REFMAP             USE    *                                                               REFMAP       841     A     
 REFMAP             SA5    X                                                               REFMAP       842     A     
 REFMAP             RJ     FMT                                                             REFMAP       843     A     
 REFMAP             ENDM                                                                   REFMAP       844     A     
 REFMAP                                                                                    REFMAP       845     A     
 REFMAP    LISTR    MACRO  A,B,C                                                           REFMAP       846     A     
 REFMAP             LOCAL  X                                                               REFMAP       847     A     
 REFMAP   O         IFC    EQ,/A/NOHEAD/                                                   REFMAP       848     A     
 REFMAP             SA5    B0                NO HEADER CASE                                REFMAP       849     A     
 REFMAP   O         ELSE                                                                   REFMAP       850     A     
 REFMAP             USE    DATA                                                            REFMAP       851     A     
 REFMAP    X        DATA   10L_A                                                           REFMAP       852     A     
 REFMAP             DATA   10L_B                                                           REFMAP       853     A     
 REFMAP             DATA   10L_C                                                           REFMAP       854     A     
 REFMAP             USE    *                                                               REFMAP       855     A     
 REFMAP             SA5    X                                                               REFMAP       856     A     
 REFMAP   O         ENDIF                                                                  REFMAP       857     A     
 REFMAP             RJ     LISTV                                                           REFMAP       858     A     
 REFMAP             ENDM                                                                   REFMAP       859     A     
 REFMAP                                                                                    REFMAP       860     A     
 REFMAP   *         MACROS FOR THE PRINT LOOPS                                             REFMAP       861     A     
 REFMAP                                                                                    REFMAP       862     A     
 REFMAP    CLIST    MACRO  POINTER,LABEL     CHECK FOR AN EMPTY LIST                       REFMAP       863     A     
 REFMAP             SA5    POINTER                                                         REFMAP       864     A     
 REFMAP             ZR     X5,RMAP.LABEL                                                   REFMAP       865     A     
 REFMAP             ENDM                                                                   REFMAP       866     A     
 REFMAP                                                                                    REFMAP       867     A     
 REFMAP    LOOPT    MACRO  DUMMY,LABEL       PRINT LOOP TERMINATOR TEST                    REFMAP       868     A     
 REFMAP             SA5    NEXTE             POINTER TO NEXT ELEMENT                       REFMAP       869     A     
 REFMAP             NZ     X5,RMAP.LABEL                                                   REFMAP       870     A     
 REFMAP             ENDM                                                                   REFMAP       871     A     
 REFMAP                                                                                    REFMAP       872     A     
 REFMAP    GSYM     MACRO  STORE             SET UP REGISTERS                              REFMAP       873     A     
 REFMAP                                                                                    REFMAP       874     A     
 REFMAP   *         ON ENTRY:  X5 = POINTER TO NEXT ELEMENT                                REFMAP       875     A     
 REFMAP                                                                                    REFMAP       876     A     
 REFMAP             SA4    X5                30/NEXT,30/WORD A                             REFMAP       877     A     
 REFMAP             MX0    L.NAME                                                          REFMAP       878     A     
 REFMAP             SA1    X4                WORD A                                        REFMAP       879     A     
 REFMAP             BX6    X0*X4                                                           REFMAP       880     A     
 REFMAP             SA2    A1-B5             WORD B                                        REFMAP       881     A     
 REFMAP             AX6    30                                                              REFMAP       882     A     
 REFMAP             SB7    VBUF+1                                                          REFMAP       883     A     
 REFMAP             BX7    X0*X1             EXTRACT NAME                                  REFMAP       884     A     
 REFMAP             SA6    NEXTE             SAVE POINTER TO NEXT ELEMENT                  REFMAP       885     A     
 REFMAP             IFC    NE,/STORE//,1                                                   REFMAP       886     A     
 REFMAP             SA7    STORE             STORE NAME                                    REFMAP       887     A     
 REFMAP             ENDM                                                                   REFMAP       888     A     
 REFMAP                                                                                    REFMAP       889     A     
 REFMAP    EFIELD   MACRO  FIELD             EXTRACT A FIELD FROM SYMTAB                   REFMAP       890     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2759    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP   *                                  ENTRY IN X1 AND X2                            REFMAP       891     A     
 REFMAP             IF     DEF,L.FIELD                                                     REFMAP       892     A     
 REFMAP             BX3    X2                                                              REFMAP       893     A     
 REFMAP             MX0    60-L.FIELD                                                      REFMAP       894     A     
 REFMAP             ELSE                                                                   REFMAP       895     A     
 REFMAP             BX3    X.FIELD                                                         REFMAP       896     A     
 REFMAP             MX0    59                                                              REFMAP       897     A     
 REFMAP             ENDIF                                                                  REFMAP       898     A     
 REFMAP             AX3    P.FIELD                                                         REFMAP       899     A     
 REFMAP             BX6    -X0*X3                                                          REFMAP       900     A     
 REFMAP             ENDM                                                                   REFMAP       901     A     
 REFMAP                                                                                    REFMAP       902     A     
 REFMAP    LOOKUP   MACRO  TABLE             LOOKUP DPC REPRESENTATION IN TABLE            REFMAP       903     A     
 REFMAP             SA4    X6+TABLE                                                        REFMAP       904     A     
 REFMAP             BX7    X4                                                              REFMAP       905     A     
 REFMAP             ENDM                                                                   REFMAP       906     A     
 REFMAP                                                                                    REFMAP       907     A     
 REFMAP    TBIT     MACRO  BIT,LABEL,DPC                                                   REFMAP       908     A     
 REFMAP             BX3    X.BIT                                                           REFMAP       909     A     
 REFMAP             LX3    59-P.BIT                                                        REFMAP       910     A     
 REFMAP             SB1    DPC                                                             REFMAP       911     A     
 REFMAP             NG     X3,RMAP.LABEL                                                   REFMAP       912     A     
 REFMAP             ENDM                                                                   REFMAP       913     A     
 REFMAP                                                                                    REFMAP       914     A     
 REFMAP    TBITN    MACRO  BIT,LABEL,DPC                                                   REFMAP       915     A     
 REFMAP             BX3    X.BIT                                                           REFMAP       916     A     
 REFMAP             LX3    59-P.BIT                                                        REFMAP       917     A     
 REFMAP             SB1    DPC                                                             REFMAP       918     A     
 REFMAP             PL     X3,RMAP.LABEL                                                   REFMAP       919     A     
 REFMAP             ENDM                                                                   REFMAP       920     A     
 REFMAP                                                                                    REFMAP       921     A     
 REFMAP   *         R=0 - TEST FOR LONG MAP OPTION OFF                                     REFMAP       922     A     
 REFMAP                                                                                    REFMAP       923     A     
 REFMAP    R=0      MACRO  LABEL             IF( R .EQ. 0 ) GO TO LABEL                    REFMAP       924     A     
 REFMAP             SA5    REFACC                                                          REFMAP       925     A     
 REFMAP             ZR     X5,RMAP.LABEL                                                   REFMAP       926     A     
 REFMAP             ENDM                                                                   REFMAP       927     A     
 REFMAP             TITLE              MAIN LOOP                                           REFMAP       928     A     
 REFMAP   *         CLEAR LISTING SUBTITLE LINE.                                           REFMAP       929     A     
 REFMAP                                                                                    REFMAP       930     A     
 REFMAP    RMAPX    SX6    2R0                                                             REFMAP       931     A     
 REFMAP             SX7    1                                                               REFMAP       932     A     
 REFMAP             LX6    48                                                              REFMAP       933     A     
 REFMAP             SA7    =XL.STITL         RESTORE LENGTH (WORDS OR CHARACTERS)          REFMAP       934     A     
 REFMAP             SA6    =XO.STITL                                                       REFMAP       935     A     
 REFMAP                                                                                    REFMAP       936     A     
 REFMAP   *         RESTORE ANY CHANGED NAMES                                              REFMAP       937     A     
 REFMAP                                                                                    REFMAP       938     A     
 REFMAP             SA2    L.CNTBL                                                         REFMAP       939     A     
 REFMAP             ZR     X2,RMAPX1         IF NO CHANGED NAMES                           REFMAP       940     A     
 REFMAP             SA1    O.CNTBL           FWA                                           REFMAP       941     A     
 REFMAP             MX0    L.NAME                                                          REFMAP       942     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2760    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SB1    X1                FWA                                           REFMAP       943     A     
 REFMAP             SB2    B1+X2             LWA+1                                         REFMAP       944     A     
 REFMAP                                                                                    REFMAP       945     A     
 REFMAP    RMAPX.L  SA2    B1                42/7L_NAME,18/ADDRESS                         REFMAP       946     A     
 REFMAP             SA3    X2                WORD A OF SYMTAB                              REFMAP       947     A     
 REFMAP             BX6    X0*X2                                                           REFMAP       948     A     
 REFMAP             SB1    B1+B5                                                           REFMAP       949     A     
 REFMAP             BX4    -X0*X3                                                          REFMAP       950     A     
 REFMAP             IX7    X6+X4             RESTORE WORD A                                REFMAP       951     A     
 REFMAP             SA7    A3                                                              REFMAP       952     A     
 REFMAP             LT     B1,B2,RMAPX.L     LOOP TO THE END OF THE TABLE                  REFMAP       953     A     
 REFMAP                                                                                    REFMAP       954     A     
 REFMAP    RSOR     IFC    EQ, "C" .                                                       REFMAP       955     A     
 REFMAP                                                                                    REFMAP       956     A     
 REFMAP   *         RESTORE ALL FILE NAMES BACK TO INSTALLATION SELECTED                   REFMAP       957     A     
 REFMAP   *         SPECIAL CHARACTER OF PERIOD.                                           REFMAP       958     A     
 REFMAP                                                                                    REFMAP       959     A     
 REFMAP             SA1    N.FILES                                                         REFMAP       960     A     
 REFMAP             ZR     X1,RSOR3          IF NO FILE NAMES                              REFMAP       961     A     
 REFMAP             SB1    X1                N.FILES                                       REFMAP       962     A     
 REFMAP                                                                                    REFMAP       963     A     
 REFMAP             MX0    60-6                                                            REFMAP       964     A     
 REFMAP             SA1    SYM1                                                            REFMAP       965     A     
 REFMAP             SA2    X1-4                                                            REFMAP       966     A     
 REFMAP                                                                                    REFMAP       967     A     
 REFMAP    RSOR1    SB3    12                SHIFT COUNT                                   REFMAP       968     A     
 REFMAP             LX2    60-12                                                           REFMAP       969     A     
 REFMAP                                                                                    REFMAP       970     A     
 REFMAP    RSOR2    LX2    60-6                                                            REFMAP       971     A     
 REFMAP             BX7    -X0*X2            EXTRACT A CHARACTER                           REFMAP       972     A     
 REFMAP             SX6    X7-1R                                                           REFMAP       973     A     
 REFMAP             SB3    B3+6                                                            REFMAP       974     A     
 REFMAP             ZR     X6,RSOR2          IF A BLANK CHARACTER                          REFMAP       975     A     
 REFMAP                                                                                    REFMAP       976     A     
 REFMAP             LX2    B3,X2                                                           REFMAP       977     A     
 REFMAP             SX7    1R.-1R#                                                         REFMAP       978     A     
 REFMAP             LX7    B3,X7                                                           REFMAP       979     A     
 REFMAP             IX7    X2+X7             CONVERT # TO .                                REFMAP       980     A     
 REFMAP             SA7    A2                                                              REFMAP       981     A     
 REFMAP             SB1    B1-B5             N.FILES = N.FILES - 1                         REFMAP       982     A     
 REFMAP             SA2    A2-2              NEXT FILE NAME                                REFMAP       983     A     
 REFMAP             NZ     B1,RSOR1          IF MORE FILES TO GO                           REFMAP       984     A     
 REFMAP                                                                                    REFMAP       985     A     
 REFMAP    RSOR3    BSS    0                                                               REFMAP       986     A     
 REFMAP    RSOR     ENDIF                                                                  REFMAP       987     A     
 REFMAP    RMAPX1   SA1    RSELECT                                                         REFMAP       988     A     
 REFMAP             SA2    =XCP.LSTF                                                       REFMAP       989     A     
 REFMAP             PL     X1,RMAPX2   IF R .LT. 2                                         REFMAP       990     A     
 REFMAP             NZ     X2,RMAPX2   IF L.NE.0                                           REFMAP       991     A     
 REFMAP             SA2    =1H0                                                            REFMAP       992     A     
 REFMAP             BX6    X2                                                              REFMAP       993     A     
 REFMAP             SA6    =XO.TITL    IF L=0 AND R.GT.1 RESET FOR DOUBLE SPACE            REFMAP       994     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2761    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP    RMAPX2   SA1    BLKCOM                                                          REFMAP       995          I
          -FCC0556
 REFMAP   *         COMPUTE SCM REQUIREMENTS                                               FCC0556        5     A     
 REFMAP    RMAPX2   SA1    L.PROGP                                                         FCC0556        6     A     
 REFMAP             SA2    L.BUFIO                                                         FCC0556        7     A     
 REFMAP             SA3    L.SCOM                                                          FCC0556        8     A     
 REFMAP             IX4    X1+X2                                                           FCC0556        9     A     
 REFMAP             SA5    L.SBLK                                                          FCC0556       10     A     
 REFMAP             IX4    X4+X3                                                           FCC0556       11     A     
 REFMAP             MX0    -17                                                             FCC0556       12     A     
 REFMAP             IX4    X4+X5                                                           FCC0556       13     A     
 REFMAP             BX4    X0*X4                                                           FCC0556       14     A     
 REFMAP             ZR     X4,RMAPX3   IF .LT. 131K OF SCM IS REQUIRED                     FCC0556       15     A     
 REFMAP                                                                                    FCC0556       16     A     
 REFMAP             SX6    B1                                                              FCC2313        6     A     
 REFMAP             SA6    =XCER.FL    HONOR THE A PARAMETER IF SPECIFIED                  FCC2313        7     A     
 REFMAP             SB1    1                                                               FCC0556       17     A     
 REFMAP             LISTL  OVERFL,4                                                        FCC0556       18     A     
 REFMAP             SB5    B1                                                              FCC0556       19     A     
 REFMAP             SA2    N.FERR                                                          FCC0556       20     A     
 REFMAP             SX7    X2+B1                                                           FCC0556       21     A     
 REFMAP             SA7    A2                                                              FCC0556       22     A     
 REFMAP             NZ     X2,RMAPX3   IF FATAL ERROR ALREADY OCCURRED                     FCC0556       23     A     
 REFMAP             SX1    B5                                                              FCC0556       24     A     
 REFMAP             CALL   IEM                                                             FCC0556       25     A     
 REFMAP                                                                                    FCC0556       26     A     
 REFMAP    RMAPX3   SA1    BLKCOM                                                          FCC0556       27     A     
 REFMAP             ZR     X1,REFMAP         IF NO BLANK COMMON                            REFMAP       996     A     
 REFMAP             SA2    X1                                                              REFMAP       997     A     
 REFMAP             SA3    =7L                                                             REFMAP       998     A     
 REFMAP             MX6    -18                                                             REFMAP       999     A     
 REFMAP             BX2    -X6*X2                                                          REFMAP      1000     A     
 REFMAP             BX6    X3+X2                                                           REFMAP      1001     A     
 REFMAP             SA6    A2                RESTORE ORGTAB ENTRY                          REFMAP      1002     A     
 REFMAP                                                                                    REFMAP      1003     A     
 REFMAP    REFMAP   ENTRY.                   *** ENTRY/EXIT ***                            REFMAP      1004     A     
 REFMAP                                                                                    REFMAP      1005     A     
 REFMAP             SB5    1                                                               REFMAP      1006     A     
 REFMAP             RJ     CPL               INITIALIZE, COMPUTE PROGRAM LENGTH            REFMAP      1007     A     
 REFMAP             SPACE  2                                                               FEAT1070C    195     A     
 REFMAP   **        DUMP SYMBOL TABLE                                                      FEAT1070C    196     A     
 REFMAP   *                                                                                FEAT1070C    197     A     
 REFMAP             SA2    SYMEND      LOW END                                             FEAT1070C    198     A     
 REFMAP             SA3    SYM1        HIGH END                                            FEAT1070C    199     A     
 REFMAP             IX3    X3-X2       LENGTH                                              FEAT1070C    200     A     
 REFMAP             SX2    X2+1        START LOCATION TO WRITE                             FEAT1070C    201     A     
 REFMAP             SX3    X3-2        NUMBER OF WORDS TO WRITE                            FEAT1070C    202     A     
 REFMAP             OUTSYM ZZ.SYM,X2,X3                                                    FEAT1070C    203     A     
 REFMAP             SPACE  2                                                               FEAT1070C    204     A     
 REFMAP   **        DUMP COMMON TABLE                                                      FEAT1070C    205     A     
 REFMAP   *                                                                                FEAT1070C    206     A     
 REFMAP             SA3    N.COM                                                           FEAT1070C    207     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2762    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             OUTSYM ZZ.COM,ORGTAB,X3                                                FEAT1070C    208     A     
 REFMAP             SPACE  2                                                               FEAT1070C    209     A     
 REFMAP             SA1    R=FLAG                                                          REFMAP      1008     A     
 REFMAP             SA2    E.UDEFL                                                         REFMAP      1009     A     
 REFMAP             BX3    X1+X2                                                           REFMAP      1010     A     
 REFMAP             CX4    X3                                                              REFMAP      1011     A     
 REFMAP             ZR     X4,RMAPX1         TERMINATE IF R=0 AND NO MISSING LABEL         REFMAP      1012     A     
 REFMAP                                                                                    REFMAP      1013     A     
 REFMAP             RJ     SORTSYM           SORT SYMTAB ALPHABETICALLY                    REFMAP      1014     A     
 REFMAP                                                                                    REFMAP      1015     A     
 REFMAP             SA1    E.UDEFL                                                         REFMAP      1016     A     
 REFMAP             ZR     X1,RMAP1          IF NO MISSING LABELS                          REFMAP      1017     A     
 REFMAP             RJ     PML               PRINT THEN OUT                                REFMAP      1018     A     
 REFMAP             SA1    R=FLAG                                                          REFMAP      1019     A     
 REFMAP             ZR     X1,RMAPX          IF R = 0                                      REFMAP      1020     A     
 REFMAP    RMAP1    SA1    R=FLAG                                                          REFMAP      1021     A     
 REFMAP             SA2    MAPTITL+3         (X2) = *AP (R=0)..*                           REFMAP      1022     A     
 REFMAP             LX1    18                                                              REFMAP      1023     A     
 REFMAP             SB1    1                                                               REFMAP      1024     A     
 REFMAP             IX6    X2+X1             ADD REF MAP LEVEL                             REFMAP      1025     A     
 REFMAP             SA6    A2                LEVEL TO SUBTITLE TEXT                        REFMAP      1026     A     
 REFMAP             SA3    RSELECT                                                         REFMAP      1027     A     
 REFMAP             PL     X3,RMAP1A   IF R .LT. 2                                         REFMAP      1028     A     
 REFMAP             SA2    =1H1                                                            REFMAP      1029     A     
 REFMAP             BX6    X2                                                              REFMAP      1030     A     
 REFMAP             SA6    =XO.TITL    IF R.GT.1 SET FOR PAGE EJECT                        REFMAP      1031     A     
 REFMAP    RMAP1A   NUPAGE                                                                 REFMAP      1032     A     
 REFMAP             LISTL  MAPTITL,4                                                       REFMAP      1033     A     
 REFMAP             SB5    B1                                                              REFMAP      1034     A     
 REFMAP             RJ     SORTC             SORT THE NAMES INTO CATEGORIES                REFMAP      1035     A     
 REFMAP             RJ     SORTR             SORT THE REFERENCES ( R .NE. 0 )              REFMAP      1036     A     
 REFMAP                                                                                    REFMAP      1037     A     
 REFMAP   *         SEARCH FOR STRAY NAMES                                                 REFMAP      1038     A     
 REFMAP   *         I.E. - USEAGE DEFINED VARIABLES WITH ONLY ONE REFERENCE                REFMAP      1039     A     
 REFMAP                                                                                    REFMAP      1040     A     
 REFMAP             SA2    L.UDV                                                           REFMAP      1041     A     
 REFMAP             ZR     X2,RMAP4          IF NO UDV TABLE                               REFMAP      1042     A     
 REFMAP             SA1    O.UDV                                                           REFMAP      1043     A     
 REFMAP             SB1    X1                FWA                                           REFMAP      1044     A     
 REFMAP             SB2    B1+X2             LWA+1                                         REFMAP      1045     A     
 REFMAP             SA5    O.REFBAS                                                        REFMAP      1046     A     
 REFMAP             SA4    SYM1                                                            REFMAP      1047     A     
 REFMAP             SA0    X4                A0 = SYM1                                     REFMAP      1048     A     
 REFMAP             MX0    60-18                                                           REFMAP      1049     A     
 REFMAP             SX7    V.FUN                                                           REFMAP      1050     A     
 REFMAP             SA3    VALUE.                                                          REFMAP      1051     A     
 REFMAP             ZR     X3,RMAP2          IF NOT A FUNCTION SUBPROGRAM                  REFMAP      1052     A     
 REFMAP             SB1    B1+B5             SKIP VALUE. ENTRY                             REFMAP      1053     A     
 REFMAP             EQ     B1,B2,RMAP4       IF ONLY 1 ENTRY                               REFMAP      1054     A     
 REFMAP                                                                                    REFMAP      1055     A     
 REFMAP    RMAP2    SA1    B1                UDV TAB ENTRY 2J/X,18/SYMORD,18/X             REFMAP      1056     A     
 REFMAP             SB1    B1+B5                                                           REFMAP      1057     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2763    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             AX1    18                                                              REFMAP      1058     A     
 REFMAP             SB3    X1                SYMORD                                        REFMAP      1059     A     
 REFMAP             SA2    X5+B3             REFTAB BUCKET                                 REFMAP      1060     A     
 REFMAP             AX2    30                                                              REFMAP      1061     A     
 REFMAP             SA3    X2                FIRST REFERENCE                               REFMAP      1062     A     
 REFMAP             BX4    -X0*X3            LINK                                          REFMAP      1063     A     
 REFMAP             NZ     X4,RMAP3          IF MORE THAN ONE REF                          REFMAP      1064     A     
 REFMAP             SB3    B3+B3                                                           REFMAP      1065     A     
 REFMAP             SA1    A0-B3             WORD A OF SYMTAB ENTRY                        REFMAP      1066     A     
 REFMAP             BX6    X7+X1                                                           REFMAP      1067     A     
 REFMAP             SA6    A1                                                              REFMAP      1068     A     
 REFMAP    RMAP3    LT     B1,B2,RMAP2                                                     REFMAP      1069     A     
 REFMAP    RMAP4    BSS    0                                                               REFMAP      1070     A     
 REFMAP             SPACE  3                                                               REFMAP      1071     A     
 REFMAP   *         PRINT OUT THE ENTRY POINTS                                             REFMAP      1072     A     
 REFMAP                                                                                    REFMAP      1073     A     
 REFMAP             CLIST  O.ENT,LN          IF NO ENTRY POINTS                            REFMAP      1074     A     
 REFMAP             STITLE (ENTRY POINTS),18,(DEF LINE     REFERENCES)                     REFMAP      1075     A     
 REFMAP             SA5    O.ENT                                                           REFMAP      1076     A     
 REFMAP             AX5    30                                                              REFMAP      1077     A     
 REFMAP                                                                                    REFMAP      1078     A     
 REFMAP    RMAP.EP  GSYM   B7                GET SYMTAB ENTRY AND STORE NAME               REFMAP      1079     A     
 REFMAP             EFIELD RA                PROGRAM RELATIVE ADDRESS                      REFMAP      1080     A     
 REFMAP             SA6    B7-B5                                                           REFMAP      1081          I
          -FCC2108
 REFMAP             SA3    =XQFLAG                                                         FCC2108        6     A     
 REFMAP             ZR     X3,RMAP5          IF NOT Q MODE                                 FCC2108        7     A     
 REFMAP             SX6    B0                ADDRESS = 0                                   FCC2108        8     A     
 REFMAP    RMAP5    SA6    B7-B5                                                           FCC2108        9     A     
 REFMAP             FMTL   (Z8,X2,A7)        FORMAT AND PRINT LINE                         REFMAP      1082     A     
 REFMAP             R=0    EP2               IF R = 0                                      REFMAP      1083     A     
 REFMAP                                                                                    REFMAP      1084     A     
 REFMAP             LISTR  NOHEAD            LIST THE REFERENCES                           REFMAP      1085     A     
 REFMAP    RMAP.EP2 LOOPT  O.ENT,EP          LOOP IF MORE NAMES                            REFMAP      1086     A     
 REFMAP             TITLE              LOCAL NAMES                                         REFMAP      1087     A     
 REFMAP   *         PRINT THE VARIABLE AND ARRAY NAMES, ETC                                REFMAP      1088     A     
 REFMAP                                                                                    REFMAP      1089     A     
 REFMAP    RMAP.LN  CLIST  O.VAR,FN          IF NO VARIABLES                               REFMAP      1090     A     
 REFMAP             STITLE (VARIABLES     SN  TYPE           RELOCATION),48                REFMAP      1091     A     
 REFMAP             SA5    O.VAR                                                           REFMAP      1092     A     
 REFMAP             AX5    30                                                              REFMAP      1093     A     
 REFMAP                                                                                    REFMAP      1094     A     
 REFMAP    RMAP.LNL GSYM                     SET UP REGISTERS                              REFMAP      1095     A     
 REFMAP             EFIELD FUN               STRAY NAME FLAG                               REFMAP      1096     A     
 REFMAP             SA4    DO.MAT+X6                                                       REFMAP      1097     A     
 REFMAP             LX4    18                                                              REFMAP      1098     A     
 REFMAP             BX7    X4+X7             NAME + STRAY NAME INDICATOR                   REFMAP      1099     A     
 REFMAP             SA7    B7                                                              REFMAP      1100     A     
 REFMAP             EFIELD RB                                                              REFMAP      1101     A     
 REFMAP             SB2    X6                                                              REFMAP      1102     A     
 REFMAP             AX3    P.RA-P.RB                                                       REFMAP      1103     A     
 REFMAP             BX0    X1                                                              REFMAP      1104     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2764    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SX6    X3                RA                                            REFMAP      1105     A     
 REFMAP             LX0    59-P.FP                                                         REFMAP      1106     A     
 REFMAP             AX0    59                                                              REFMAP      1107     A     
 REFMAP             BX6    -X0*X6            0 OR PROGRAM ADDRESS                          REFMAP      1108     A     
 REFMAP             SA6    B7-B5                                                           REFMAP      1109          I
          -FCC2108
 REFMAP             SA3    =XQFLAG                                                         FCC2108       10     A     
 REFMAP             ZR     X3,RMAP.LNX       IF NOT Q MODE                                 FCC2108       11     A     
 REFMAP             SX6    B0                ADDRESS = 0                                   FCC2108       12     A     
 REFMAP    RMAP.LNX SA6    B7-B5                                                           FCC2108       13     A     
 REFMAP                                                                                    REFMAP      1110     A     
 REFMAP             EFIELD TYP               EXTRACT TYPE                                  REFMAP      1111     A     
 REFMAP             LOOKUP TYPTBL                                                          REFMAP      1112     A     
 REFMAP             SA7    A7+B5             STORE IN VBUF                                 REFMAP      1113     A     
 REFMAP                                                                                    REFMAP      1114     A     
 REFMAP   *         PROPERTY                                                               REFMAP      1115     A     
 REFMAP                                                                                    REFMAP      1116     A     
 REFMAP             SX0    X6-T.RTN                                                        REFMAP      1117     A     
 REFMAP             SB1    =7L                                                             REFMAP      1118     A     
 REFMAP             ZR     X0,RMAP.LN1       IF RETURNS                                    REFMAP      1119     A     
 REFMAP             BX3    X1                                                              REFMAP      1120     A     
 REFMAP             LX3    59-P.DEF                                                        REFMAP      1121     A     
 REFMAP             MI     X3,RMAP.LN0 IF DEFINED                                          REFMAP      1122     A     
 REFMAP             LX3    P.DEF-P.FP                                                      REFMAP      1123     A     
 REFMAP             SB1    =7L*UNDEF                                                       REFMAP      1124     A     
 REFMAP             PL     X3,RMAP.LN1 IF NOT F.P.                                         REFMAP      1125     A     
 REFMAP    RMAP.LN0 TBIT   DIM,LN1,(=7L ARRAY )  IF DIMENSIONED                            REFMAP      1126     A     
 REFMAP             TBIT   VAR,LN1,(=7L       )    IF A VARIABLE                           REFMAP      1127     A     
 REFMAP             SB1    =7L*UNUSED                                                      REFMAP      1128     A     
 REFMAP    RMAP.LN1 SA4    B1                                                              REFMAP      1129     A     
 REFMAP             BX7    X4                                                              REFMAP      1130     A     
 REFMAP             SA7    A7+B5                                                           REFMAP      1131     A     
 REFMAP                                                                                    REFMAP      1132     A     
 REFMAP   *         RELOCATION                                                             REFMAP      1133     A     
 REFMAP                                                                                    REFMAP      1134     A     
 REFMAP             TBIT   FP,LN2,(=7L F.P.  )     IF A F.P.                               REFMAP      1135     A     
 REFMAP             TBITN  COM,LN2,(=7L       )    IF NOT IN COMMON                        REFMAP      1136     A     
 REFMAP             SB1    ORGTAB-1+B2       ORGTAB(RB)                                    REFMAP      1137     A     
 REFMAP    RMAP.LN2 SA4    B1                                                              REFMAP      1138     A     
 REFMAP             MX0    42                                                              REFMAP      1139     A     
 REFMAP             BX7    X0*X4                                                           REFMAP      1140     A     
 REFMAP             SA7    A7+B5                                                           REFMAP      1141     A     
 REFMAP                                                                                    REFMAP      1142     A     
 REFMAP             FMTL   (Z8,X2,A10,A7,X3,A7,X3,A7)                                      REFMAP      1143     A     
 REFMAP             R=0    LN3               IF R = 0                                      REFMAP      1144     A     
 REFMAP                                                                                    REFMAP      1145     A     
 REFMAP             LISTR  (   REFS   ),( DEFINED  ),( I/O REFS )                          REFMAP      1146     A     
 REFMAP             SA1    VLFN                                                            REFMAP      1147     A     
 REFMAP             SA2    O.FREF                                                          REFMAP      1148     A     
 REFMAP             BX6    X1+X2             SET VARIABLE FILE NAME REFS FLAG              REFMAP      1149     A     
 REFMAP             SA6    A1                                                              REFMAP      1150     A     
 REFMAP                                                                                    REFMAP      1151     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2765    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP    RMAP.LN3 LOOPT  O.VAR,LNL         LOOP IF MORE NAMES                            REFMAP      1152     A     
 REFMAP             SPACE  3                                                               REFMAP      1153     A     
 REFMAP   *         PRINT THE FILE NAMES                                                   REFMAP      1154     A     
 REFMAP                                                                                    REFMAP      1155     A     
 REFMAP    RMAP.FN  CLIST  O.LFN,FN4         IF NO FILE NAMES                              REFMAP      1156     A     
 REFMAP             STITLE (FILE NAMES        MODE),38                                     REFMAP      1157     A     
 REFMAP             SA5    O.LFN                                                           REFMAP      1158     A     
 REFMAP             AX5    30                                                              REFMAP      1159     A     
 REFMAP                                                                                    REFMAP      1160     A     
 REFMAP    RMAP.FNL GSYM                     GET SYMTAB ENTRY                              REFMAP      1161     A     
 REFMAP             EFIELD FMODE             FILE MODE                                     REFMAP      1162     A     
 REFMAP             SB2    B0                                                              REFMAP      1163     A     
 REFMAP             ZR     X6,RMAP.FNO                                                     REFMAP      1164     A     
 REFMAP             CX0    X6                                                              REFMAP      1165     A     
 REFMAP             SB2    B0-B5                                                           REFMAP      1166     A     
 REFMAP             AX0    1                                                               REFMAP      1167     A     
 REFMAP             NZ     X0,RMAP.FNO                                                     REFMAP      1168     A     
 REFMAP             NX3    B2,X6                                                           REFMAP      1169     A     
 REFMAP             SB3    B2-48                                                           REFMAP      1170     A     
 REFMAP             SB2    B0-B3                                                           REFMAP      1171     A     
 REFMAP                                                                                    REFMAP      1172     A     
 REFMAP    RMAP.FNO SA4    B2+FMODTAB+1                                                    REFMAP      1173     A     
 REFMAP             SA5    N.FILES                                                         REFMAP      1174     A     
 REFMAP             ZR     X5,RMAP.FN1       IF NOT A PROGRAM                              REFMAP      1175     A     
 REFMAP                                                                                    REFMAP      1176     A     
 REFMAP   *         PROGRAM - PRINT BUFFER ADDRESS, NAME AND MODE                          REFMAP      1177     A     
 REFMAP                                                                                    REFMAP      1178     A     
 REFMAP             EFIELD RA                                                              REFMAP      1179     A     
 REFMAP             SA6    B7-B5             RA                                            REFMAP      1180          I
          -FCC2108
 REFMAP             SA5    =XQFLAG                                                         FCC2108       14     A     
 REFMAP             ZR     X5,RMAP.FNM       IF NOT Q MODE                                 FCC2108       15     A     
 REFMAP             SX6    B0                ADDRESS = 0                                   FCC2108       16     A     
 REFMAP    RMAP.FNM SA6    B7-B5             RA                                            FCC2108       17     A     
 REFMAP             SA7    B7                NAME                                          REFMAP      1181     A     
 REFMAP             BX6    X4                                                              REFMAP      1182     A     
 REFMAP             SA6    A7+B5             MODE                                          REFMAP      1183     A     
 REFMAP             FMTL   (Z8,X2,A7,X3,A7)  FORMAT LINE                                   REFMAP      1184     A     
 REFMAP             EQ     RMAP.FN2                                                        REFMAP      1185     A     
 REFMAP                                                                                    REFMAP      1186     A     
 REFMAP   *         SUBPROGRAM - PRINT NAME AND MODE                                       REFMAP      1187     A     
 REFMAP                                                                                    REFMAP      1188     A     
 REFMAP    RMAP.FN1 SA7    B7-B5             NAME                                          REFMAP      1189     A     
 REFMAP             BX6    X4                                                              REFMAP      1190     A     
 REFMAP             SA6    A7+B5             MODE                                          REFMAP      1191     A     
 REFMAP             FMTL   (X10,A7,X3,A7)                                                  REFMAP      1192     A     
 REFMAP                                                                                    REFMAP      1193     A     
 REFMAP    RMAP.FN2 R=0    FN3               IF R = 0                                      REFMAP      1194     A     
 REFMAP                                                                                    REFMAP      1195     A     
 REFMAP             LISTR  (  WRITES  ),(   READS  ),(  MOTION  )                          REFMAP      1196     A     
 REFMAP    RMAP.FN3 LOOPT  O.LFN,FNL         IF MORE NAMES                                 REFMAP      1197     A     
 REFMAP                                                                                    REFMAP      1198     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2766    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP    RMAP.FN4 SA5    VLFN                                                            REFMAP      1199     A     
 REFMAP             ZR     X5,RMAP.EX        IF NO VARIABLES WERE USED AS FILE NAM         REFMAP      1200     A     
 REFMAP             SA5    =48LVARIABLES USED AS FILE NAMES, SEE ABOVE                     REFMAP      1201     A     
 REFMAP             RJ     PIL                                                             REFMAP      1202     A     
 REFMAP             TITLE              EXTERNAL REFERENCES                                 REFMAP      1203     A     
 REFMAP    RMAP.EX  SA5    =7LNO TYPE        ADJUST TYPE TABLE                             REFMAP      1204     A     
 REFMAP             BX6    X5                                                              REFMAP      1205     A     
 REFMAP             SA6    TYPTBL+T.ECS      MILNE KLUDGE                                  REFMAP      1206     A     
 REFMAP                                                                                    REFMAP      1207     A     
 REFMAP   *         EXTERNAL REFERENCES                                                    REFMAP      1208     A     
 REFMAP                                                                                    REFMAP      1209     A     
 REFMAP             CLIST  O.EXT,IF          IF NO EXTERNAL REFS                           REFMAP      1210     A     
 REFMAP             STITLE (EXTERNALS          TYPE   ARGS),38,REFERENCES                  REFMAP      1211     A     
 REFMAP             SA5    O.EXT                                                           REFMAP      1212     A     
 REFMAP             AX5    30                                                              REFMAP      1213     A     
 REFMAP                                                                                    REFMAP      1214     A     
 REFMAP    RMAP.EXL GSYM   B7-B5             STORE NAME                                    REFMAP      1215     A     
 REFMAP             TBITN  FUN,EX1,(=7L       )    IF NOT A FUNCTION                       REFMAP      1216     A     
 REFMAP             EFIELD TYP               EXTRACT THE TYPE                              REFMAP      1217     A     
 REFMAP             SB1    TYPTBL+X6                                                       REFMAP      1218     A     
 REFMAP                                                                                    REFMAP      1219     A     
 REFMAP    RMAP.EX1 SA4    B1                                                              REFMAP      1220     A     
 REFMAP             BX7    X4                                                              REFMAP      1221     A     
 REFMAP             SA7    A7+B5             STORE FUNCTION TYPE OR BLANKS                 REFMAP      1222     A     
 REFMAP                                                                                    REFMAP      1223     A     
 REFMAP             EFIELD FARG                                                            REFMAP      1224     A     
 REFMAP             SA6    A7+B5             NUMBER OF ARGS                                REFMAP      1225     A     
 REFMAP                                                                                    REFMAP      1226     A     
 REFMAP   *         FLAG SPECIAL PROPERTIES OF FUNCTION                                    REFMAP      1227     A     
 REFMAP                                                                                    REFMAP      1228     A     
 REFMAP             TBIT   LIB,EX2,(=8L LIBRARY)   IF A FORTRAN LIBRARY FUNCTION           REFMAP      1229     A     
 REFMAP             TBITN  FP,EX2,(=8L        )    IF NOT A FORMAL PARAMETER               REFMAP      1230     A     
 REFMAP             SB1    =8L   F.P.                                                      REFMAP      1231     A     
 REFMAP                                                                                    REFMAP      1232     A     
 REFMAP    RMAP.EX2 SA4    B1                                                              REFMAP      1233     A     
 REFMAP             BX7    X4                                                              REFMAP      1234     A     
 REFMAP             SA7    A6+B5                                                           REFMAP      1235     A     
 REFMAP             FMTL   (X10,A7,X3,A7,I5,A8)                                            REFMAP      1236     A     
 REFMAP                                                                                    REFMAP      1237     A     
 REFMAP             R=0    EX3               IF R = 0                                      REFMAP      1238     A     
 REFMAP                                                                                    REFMAP      1239     A     
 REFMAP             SB7    LBUF                                                            REFMAP      1240     A     
 REFMAP             RJ     SORTRL            SORT THE REFERENCE LIST                       REFMAP      1241     A     
 REFMAP             SA1    O.REFS                                                          REFMAP      1242     A     
 REFMAP             MX2    0                                                               REFMAP      1243     A     
 REFMAP   +         ZR     X1,*+1            IF NO REFS  ( SHOULD NEVER HAPPEN )           REFMAP      1244     A     
 REFMAP             RJ     LISTR             LIST THE REFERENCES                           REFMAP      1245     A     
 REFMAP             ZR     B1,RMAP.EX3       IF NOTHING TO DUMP                            REFMAP      1246     A     
 REFMAP             SB6    B7-B5                                                           REFMAP      1247     A     
 REFMAP             SA5    B6+B1                                                           REFMAP      1248     A     
 REFMAP             MX0    48                                                              REFMAP      1249     A     
 REFMAP             BX6    X0*X5                                                           REFMAP      1250     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2767    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SA6    A5                ZERO BYTE FOR THE LAST WORD                   REFMAP      1251     A     
 REFMAP             SB6    B7                                                              REFMAP      1252     A     
 REFMAP             SB7    B1                                                              REFMAP      1253     A     
 REFMAP             SB1    1                                                               REFMAP      1254     A     
 REFMAP             LISTL  B6,B7                                                           REFMAP      1255     A     
 REFMAP             SB5    1                                                               REFMAP      1256     A     
 REFMAP    RMAP.EX3 LOOPT  O.EXT,EXL         LOOP IF MORE NAMES                            REFMAP      1257     A     
 REFMAP             TITLE              LOCAL FUNCTIONS                                     REFMAP      1258     A     
 REFMAP   *         INLINE FUNCTIONS                                                       REFMAP      1259     A     
 REFMAP                                                                                    REFMAP      1260     A     
 REFMAP    RMAP.IF  CLIST  O.ASF,NL          IF NO LOCAL FUNCTIONS                         REFMAP      1261     A     
 REFMAP             STITLE (INLINE FUNCTIONS   TYPE   ARGS),38,( DEF LINE  REFEREN         REFMAP      1262     A     
 REFMAP   ,CES)                                                                            REFMAP      1263     A     
 REFMAP             SA5    O.ASF                                                           REFMAP      1264     A     
 REFMAP             AX5    30                                                              REFMAP      1265     A     
 REFMAP                                                                                    REFMAP      1266     A     
 REFMAP    RMAP.IFL GSYM   B7-B5             GET SYMTAB ENTRY AND STORE NAME               REFMAP      1267     A     
 REFMAP                                                                                    REFMAP      1268     A     
 REFMAP             EFIELD TYP                                                             REFMAP      1269     A     
 REFMAP             LOOKUP TYPTBL            GET FUNCTION TYPE                             REFMAP      1270     A     
 REFMAP             SA7    A7+B5                                                           REFMAP      1271     A     
 REFMAP                                                                                    REFMAP      1272     A     
 REFMAP             EFIELD FARG              NUMBER OF ARGS                                REFMAP      1273     A     
 REFMAP             SA6    A7+B5                                                           REFMAP      1274     A     
 REFMAP                                                                                    REFMAP      1275     A     
 REFMAP             EFIELD ASF                                                             REFMAP      1276     A     
 REFMAP             LOOKUP ASFINT            INT OR ASF                                    REFMAP      1277     A     
 REFMAP             SA7    A6+B5                                                           REFMAP      1278     A     
 REFMAP                                                                                    REFMAP      1279     A     
 REFMAP             FMTL   (X10,A7,X3,A7,I5,A8)                                            REFMAP      1280     A     
 REFMAP                                                                                    REFMAP      1281     A     
 REFMAP             R=0    IF1               IF R = 0                                      REFMAP      1282     A     
 REFMAP                                                                                    REFMAP      1283     A     
 REFMAP             LISTR  NOHEAD            LIST THE REFERENCES                           REFMAP      1284     A     
 REFMAP    RMAP.IF1 LOOPT  O.ASF,IFL         LOOP IF MORE NAMES                            REFMAP      1285     A     
 REFMAP             SPACE  4                                                               REFMAP      1286     A     
 REFMAP   *         NAMELIST GROUP NAMES                                                   REFMAP      1287     A     
 REFMAP                                                                                    REFMAP      1288     A     
 REFMAP    RMAP.NL  CLIST  O.NML,SL          IF NO NAMELIST NAMES                          REFMAP      1289     A     
 REFMAP             STITLE (NAMELISTS),18,(DEF LINE     REFERENCES)                        REFMAP      1290     A     
 REFMAP             SA5    O.NML                                                           REFMAP      1291     A     
 REFMAP             AX5    30                                                              REFMAP      1292     A     
 REFMAP                                                                                    REFMAP      1293     A     
 REFMAP    RMAP.NLL GSYM   B7-B5             GROUP NAME                                    REFMAP      1294     A     
 REFMAP             FMTL   (X10,A7)                                                        REFMAP      1295     A     
 REFMAP                                                                                    REFMAP      1296     A     
 REFMAP             R=0    NL1               IF R = 0                                      REFMAP      1297     A     
 REFMAP                                                                                    REFMAP      1298     A     
 REFMAP             LISTR  NOHEAD            LIST THE REFERENCES                           REFMAP      1299     A     
 REFMAP    RMAP.NL1 LOOPT  O.NML,NLL         LOOP IF MORE NAMES                            REFMAP      1300     A     
 REFMAP             TITLE              LABELS                                              REFMAP      1301     A     
 REFMAP   *         STATEMENT LABELS                                                       REFMAP      1302     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2768    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP                                                                                    REFMAP      1303     A     
 REFMAP    RMAP.SL  CLIST  O.LABEL,LP        IF NO LABELS                                  REFMAP      1304     A     
 REFMAP             STITLE (STATEMENT LABELS),28,(  DEF LINE   REFERENCES)                 REFMAP      1305     A     
 REFMAP             SA5    O.LABEL                                                         REFMAP      1306     A     
 REFMAP                                                                                    REFMAP      1307     A     
 REFMAP    RMAP.SLL GSYM                     GET SYMTAB ENTRY                              REFMAP      1308     A     
 REFMAP             LX7    6                                                               REFMAP      1309     A     
 REFMAP             BX7    X7*X0             5LNNNNN                                       REFMAP      1310     A     
 REFMAP             SA7    B7                                                              REFMAP      1311     A     
 REFMAP                                                                                    REFMAP      1312     A     
 REFMAP             EFIELD RA                RELATIVE ADDRESS                              REFMAP      1313     A     
 REFMAP             SA6    B7-B5                                                           REFMAP      1314          I
          -FCC2108
 REFMAP             SA3    =XQFLAG                                                         FCC2108       18     A     
 REFMAP             ZR     X3,RMAP.SLM       IF NOT Q MODE                                 FCC2108       19     A     
 REFMAP             SX6    B0                ADDRESS = 0                                   FCC2108       20     A     
 REFMAP    RMAP.SLM SA6    B7-B5                                                           FCC2108       21     A     
 REFMAP                                                                                    REFMAP      1315     A     
 REFMAP             EFIELD SLD               DEFINITION FIELD                              REFMAP      1316     A     
 REFMAP             LOOKUP SLTAB                                                           REFMAP      1317     A     
 REFMAP             SA7    A7+B5             ^ DEF  , FORMAT OF EXEC                       REFMAP      1318     A     
 REFMAP                                                                                    REFMAP      1319     A     
 REFMAP   *         CHECK FOR INACTIVE OR UNREFERENCED LABELS                              REFMAP      1320     A     
 REFMAP                                                                                    REFMAP      1321     A     
 REFMAP             BX3    X2                                                              REFMAP      1322     A     
 REFMAP             SX0    45B               RSN , RFN , DLT                               REFMAP      1323     A     
 REFMAP             AX3    P.DLT                                                           REFMAP      1324     A     
 REFMAP             BX5    X0*X3                                                           REFMAP      1325     A     
 REFMAP             SA4    =9L                                                             REFMAP      1326     A     
 REFMAP             NZ     X5,RMAP.SL1       IF REFERENCED                                 REFMAP      1327     A     
 REFMAP             SA4    SLATAB-1+X6       NO REFS   ,INACTIVE                           REFMAP      1328     A     
 REFMAP    RMAP.SL1 BX7    X4                                                              REFMAP      1329     A     
 REFMAP             SA7    A7+B5                                                           REFMAP      1330     A     
 REFMAP                                                                                    REFMAP      1331     A     
 REFMAP             FMTL   (Z8,X2,A5,A6,A9)                                                REFMAP      1332     A     
 REFMAP                                                                                    REFMAP      1333     A     
 REFMAP             R=0    SL2               IF R = 0                                      REFMAP      1334     A     
 REFMAP             LISTR  NOHEAD            LIST THE REFERENCES                           REFMAP      1335     A     
 REFMAP                                                                                    REFMAP      1336     A     
 REFMAP    RMAP.SL2 LOOPT  O.LABEL,SLL       LOOP IF MORE LABELS                           REFMAP      1337     A     
 REFMAP             SPACE  3                                                               REFMAP      1338     A     
 REFMAP   *         MACRO TO TEST FOR DO LOOP PROPERTY AND STORE BCD MESSAGE               REFMAP      1339     A     
 REFMAP                                                                                    REFMAP      1340     A     
 REFMAP    TDLP     MACRO  BIT,BCD                                                         REFMAP      1341     A     
 REFMAP             LOCAL  NEXT                                                            REFMAP      1342     A     
 REFMAP             BX0    X1                                                              REFMAP      1343     A     
 REFMAP             LX0    59-DL.BIT                                                       REFMAP      1344     A     
 REFMAP             PL     X0,NEXT                                                         REFMAP      1345     A     
 REFMAP             SA4    =10L_BCD                                                        REFMAP      1346     A     
 REFMAP             BX7    X4                                                              REFMAP      1347     A     
 REFMAP             SA7    A7+B5                                                           REFMAP      1348     A     
 REFMAP    NEXT     BSS    0                                                               REFMAP      1349     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2769    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             ENDM                                                                   REFMAP      1350     A     
 REFMAP             TITLE              LOOPS                                               REFMAP      1351     A     
 REFMAP    RMAP.LP  SA1    O.LOOP                                                          REFMAP      1352     A     
 REFMAP             SA2    L.LOOP                                                          REFMAP      1353     A     
 REFMAP             ZR     X1,RMAP.CB        IF NO LOOP TABLE ( ERRORS OR R = 0 )          REFMAP      1354     A     
 REFMAP             ZR     X2,RMAP.CB        IF NO LOOPS                                   REFMAP      1355     A     
 REFMAP             MX6    1                                                               REFMAP      1356     A     
 REFMAP             SA6    REFACC                                                          REFMAP      1357     A     
 REFMAP             STITLE (LOOPS  LABEL    INDEX     FROM-TO    LENGTH),48,PROPER         REFMAP      1358     A     
 REFMAP   ,TIES                                                                            REFMAP      1359     A     
 REFMAP             SA5    O.LGL                                                           REFMAP      1360     A     
 REFMAP             AX5    30                                                              REFMAP      1361     A     
 REFMAP                                                                                    REFMAP      1362     A     
 REFMAP    RMAP.LPL GSYM                     GET GENERATED SYMBOL                          REFMAP      1363     A     
 REFMAP             EFIELD RA                                                              REFMAP      1364     A     
 REFMAP             SA6    B7-B5             FWA OF LOOP                                   REFMAP      1365     A     
 REFMAP             EFIELD DLP                                                             REFMAP      1366     A     
 REFMAP             SA6    LTEMP             SAVE LOOP PROPERTIES                          REFMAP      1367     A     
 REFMAP                                                                                    REFMAP      1368     A     
 REFMAP             SA4    SYM1                                                            REFMAP      1369     A     
 REFMAP             SA5    O.LOOP                                                          REFMAP      1370     A     
 REFMAP             SA0    X4                                                              REFMAP      1371     A     
 REFMAP             SA1    X5          12/ORD(CV),12/ORD(LABEL),18/0,18/LENGTH             REFMAP      1372     A     
 REFMAP             SX6    X5+2        ADVANCE TABLE POINTER                               REFMAP      1373     A     
 REFMAP             SA6    A5                                                              REFMAP      1374     A     
 REFMAP             SX7    X1                                                              REFMAP      1375     A     
 REFMAP             SA7    LPLEN             LENGTH                                        REFMAP      1376     A     
 REFMAP                                                                                    REFMAP      1377     A     
 REFMAP             AX1    36-1                                                            REFMAP      1378     A     
 REFMAP             MX3    -13                                                             REFMAP      1379     A     
 REFMAP             BX2    -X3*X1                                                          REFMAP      1380     A     
 REFMAP             SB2    X2                                                              REFMAP      1381     A     
 REFMAP             NZ     B2,RMAP.LP1       IF NOT AN I/O LOOP                            REFMAP      1382     A     
 REFMAP             SA4    =5L                                                             REFMAP      1383     A     
 REFMAP             EQ     RMAP.LP2                                                        REFMAP      1384     A     
 REFMAP    RMAP.LP1 SA2    A0-B2                                                           REFMAP      1385     A     
 REFMAP             MX0    30                                                              REFMAP      1386     A     
 REFMAP             LX2    6                                                               REFMAP      1387     A     
 REFMAP             BX4    X0*X2                                                           REFMAP      1388     A     
 REFMAP    RMAP.LP2 BX7    X4                                                              REFMAP      1389     A     
 REFMAP             SA7    B7                LABEL                                         REFMAP      1390     A     
 REFMAP                                                                                    REFMAP      1391     A     
 REFMAP             AX1    13                                                              REFMAP      1392     A     
 REFMAP             LX1    1                                                               REFMAP      1393     A     
 REFMAP             BX1    -X3*X1                                                          REFMAP      1394     A     
 REFMAP             SB2    X1                                                              REFMAP      1395     A     
 REFMAP             SA2    A0-B2             WORD A OF CV                                  REFMAP      1396     A     
 REFMAP             MX0    L.NAME                                                          REFMAP      1397     A     
 REFMAP             BX7    X0*X2                                                           REFMAP      1398     A     
 REFMAP             LX7    L.NAME            JUSTIFY TO BIT 42                             REFMAP      1399     A     
 REFMAP             SA1    LTEMP                                                           REFMAP      1400          I
          -FCC2059
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2770    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             MX0    60-L.DLP                                                        REFMAP      1401          I
          -FCC2059
 REFMAP             BX6    -X0*X1                                                          REFMAP      1402          I
          -FCC2059
 REFMAP             SA4    DO.MAT            BBB                                           REFMAP      1403          I
          -FCC2059
 REFMAP             ZR     X6,RMAP.LPA       IF INDEX NOT MATERIALIZED                     REFMAP      1404          I
          -FCC2059
 REFMAP             SA4    A4+B5             B*B                                           REFMAP      1405          I
          -FCC2059
 REFMAP   *                                                                                REFMAP      1406          I
          -FCC2059
 REFMAP    RMAP.LPA BX7    X4+X7                                                           REFMAP      1407          I
          -FCC2059
 REFMAP             SA7    A7+B5             INDEX AND MATERIALIZATION FLAG                REFMAP      1408          I
          -FCC2059
 REFMAP             SA4    DO.MAT      MATERIALIZATION FLAG DISABLED(FCC2059)              FCC2059       10     A     
 REFMAP             BX7    X4+X7                                                           FCC2059       11     A     
 REFMAP             SA7    A7+B5       INDEX                                               FCC2059       12     A     
 REFMAP             SA5    X5+B5             WORD 2 OF LOOP INFO 24/,18/LSN,18/FSN         REFMAP      1409     A     
 REFMAP             SX1    X5                                                              REFMAP      1410     A     
 REFMAP             AX5    18                                                              REFMAP      1411     A     
 REFMAP             CALL   CDD         CONVERT FSN                                         REFMAP      1412     A     
 REFMAP             SX1    X5                                                              REFMAP      1413     A     
 REFMAP             BX5    X6                                                              REFMAP      1414     A     
 REFMAP             SA4    =5L                                                             REFMAP      1415     A     
 REFMAP             ZR     X1,RMAP.LPZ IF LSN = 0                                          REFMAP      1416     A     
 REFMAP             CALL   CDD         CONVERT LSN                                         REFMAP      1417     A     
 REFMAP    RMAP.LPZ BX7    X4                                                              REFMAP      1418     A     
 REFMAP             MX0    L.BCDLN                                                         REFMAP      1419     A     
 REFMAP             LX5    36                                                              REFMAP      1420     A     
 REFMAP             BX6    X0*X5       FROM                                                REFMAP      1421     A     
 REFMAP             BX7    X0*X4       TO                                                  REFMAP      1422     A     
 REFMAP             SA6    A7+B5                                                           REFMAP      1423     A     
 REFMAP             SA7    A6+B5                                                           REFMAP      1424     A     
 REFMAP             FMTL   (Z8,X2,A5,X1,A10,X3,A4,X1,A4,X1,O8)                             REFMAP      1425          I
          -FCC0574
 REFMAP             FMTL   (Z8,X2,A5,X1,A10,X3,A4,X1,A4,O8,X1)                             FCC0574        8     A     
 REFMAP             SB7    LBUF                                                            REFMAP      1426     A     
 REFMAP                                                                                    REFMAP      1427     A     
 REFMAP   *         PROPERTIES                                                             REFMAP      1428     A     
 REFMAP                                                                                    REFMAP      1429     A     
 REFMAP             SA1    LTEMP             LOOP PROPERTIES                               REFMAP      1430     A     
 REFMAP             SX0    V.OPT                                                           REFMAP      1431     A     
 REFMAP             SB4    =10L                                                            REFMAP      1432     A     
 REFMAP             BX7    X0*X1                                                           REFMAP      1433     A     
 REFMAP             NZ     X7,RMAP.LP3       IF NOT OPTIMIZABLE                            REFMAP      1434     A     
 REFMAP             SB4    =10L    OPT                                                     REFMAP      1435     A     
 REFMAP             SA3    LPLEN                                                           REFMAP      1436     A     
 REFMAP             SX4    X3-L.STACK                                                      REFMAP      1437     A     
 REFMAP             PL     X4,RMAP.LP3       IF LOOP DOESN"T FIT IN THE INST STK           REFMAP      1438     A     
 REFMAP             SB4    =10L INSTACK                                                    REFMAP      1439     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2771    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP                                                                                    REFMAP      1440     A     
 REFMAP    RMAP.LP3 SA4    B4                                                              REFMAP      1441     A     
 REFMAP             BX7    X4                                                              REFMAP      1442     A     
 REFMAP             SA7    B7+B1                                                           REFMAP      1443     A     
 REFMAP             TDLP   J,(EXT REFS  )                                                  REFMAP      1444     A     
 REFMAP             TDLP   E,( ENTRIES  )                                                  REFMAP      1445     A     
 REFMAP             TDLP   X,(  EXITS   )                                                  REFMAP      1446     A     
 REFMAP             TDLP   I,(NOT INNER )                                                  REFMAP      1447     A     
 REFMAP             SA5    =8L             TERMINATE THE LINE                              REFMAP      1448     A     
 REFMAP             BX7    X5                                                              REFMAP      1449     A     
 REFMAP             SA7    A7+B5                                                           REFMAP      1450     A     
 REFMAP             SB2    A7+B5                                                           REFMAP      1451     A     
 REFMAP             SB6    B7                                                              REFMAP      1452     A     
 REFMAP             SB1    1                                                               REFMAP      1453     A     
 REFMAP             SB7    B2-B7                                                           REFMAP      1454     A     
 REFMAP             LISTL  B6,B7                                                           REFMAP      1455     A     
 REFMAP             SB5    1                                                               REFMAP      1456     A     
 REFMAP    RMAP.LPX LOOPT  O.LGL,LPL                                                       REFMAP      1457     A     
 REFMAP             TITLE              COMMON BLOCKS                                       REFMAP      1458     A     
 REFMAP    RMAP.CB  SA1    R=FLAG                                                          REFMAP      1459          I
          -FCC0458
 REFMAP             SX2    X1-3                                                            REFMAP      1460          I
          -FCC0458
 REFMAP   +         MX6    1                                                               REFMAP      1461          I
          -FCC0458
 REFMAP             ZR     X2,*+1            IF R = 3                                      REFMAP      1462          I
          -FCC0458
 REFMAP             MX6    0                                                               REFMAP      1463          I
          -FCC0458
 REFMAP             SA6    REFACC            RESET LONG MAP FLAG                           REFMAP      1464          I
          -FCC0458
 REFMAP    RMAP.CB  SA1    N.COM                                                           FCC0458       10     A     
 REFMAP             ZR     X1,RMAP.EC        IF NO COMMON                                  FCC0458       11     A     
 REFMAP             SA2    R=FLAG                                                          FCC0458       12     A     
 REFMAP             SX3    X2-3                                                            FCC0458       13     A     
 REFMAP             MX6    0                                                               FCC0458       14     A     
 REFMAP             NZ     X3,RMAP.CB2       IF NOT R=3                                    FCC0458       15     A     
 REFMAP             SA4    L.COM                                                           FCC0458       16     A     
 REFMAP             ZR     X4,RMAP.CB2       IF FC ERROR IN DECLARATIVES                   FCC0458       17     A     
 REFMAP             MX6    1                                                               FCC0458       18     A     
 REFMAP    RMAP.CB2 SA6    REFACC                                                          FCC0458       19     A     
 REFMAP                                                                                    REFMAP      1465     A     
 REFMAP             SA1    N.COM                                                           REFMAP      1466     A     
 REFMAP             ZR     X1,RMAP.EC        IF NO COMMON                                  REFMAP      1467     A     
 REFMAP             R=0    CB1               IF R = 0                                      REFMAP      1468     A     
 REFMAP             SA2    L.COM                                                           REFMAP      1469     A     
 REFMAP             SB6    RBUF              (B6) = FWA INPUT BUFFER                       REFMAP      1470     A     
 REFMAP             SX7    B6+X1                                                           REFMAP      1471     A     
 REFMAP             IX3    X1+X2                                                           REFMAP      1472     A     
 REFMAP             SA7    O.COM             FWA OF COMTAB                                 REFMAP      1473     A     
 REFMAP             SB1    1                                                               REFMAP      1474     A     
 REFMAP             READW  =XF.RMAP,B6,X3    -ORGTAB- AND -COMTAB- TO *RBUF)               REFMAP      1475     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2772    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SB5    B1                                                              REFMAP      1476     A     
 REFMAP                                                                                    REFMAP      1477     A     
 REFMAP    RMAP.CB1 STITLE (COMMON BLOCKS   LENGTH),28,(MEMBERS - BIAS NAME(LENGTH         REFMAP      1478     A     
 REFMAP   ,))                                                                              REFMAP      1479     A     
 REFMAP             MX6    0                                                               REFMAP      1480     A     
 REFMAP             SA6    TEMP              I = 0                                         REFMAP      1481     A     
 REFMAP                                                                                    REFMAP      1482     A     
 REFMAP    RMAP.CL  SA2    X6+ORGTAB         BLOCK NAME AND LENGTH                         REFMAP      1483     A     
 REFMAP             MX0    L.NAME                                                          REFMAP      1484     A     
 REFMAP             BX6    X0*X2                                                           REFMAP      1485     A     
 REFMAP             SA6    VBUF              NAME                                          REFMAP      1486     A     
 REFMAP             MX0    60-17                                                           REFMAP      1487     A     
 REFMAP             BX7    -X0*X2                                                          REFMAP      1488     A     
 REFMAP             SA7    A6+B5             LENGTH                                        REFMAP      1489     A     
 REFMAP             LX2    -17                                                             REFMAP      1490     A     
 REFMAP             MX0    -1                                                              REFMAP      1491     A     
 REFMAP             BX2    -X0*X2                                                          REFMAP      1492     A     
 REFMAP             SA5    SDS+X2            STORAGE DESCRIPTOR                            REFMAP      1493     A     
 REFMAP             SA3    X2+L.SCOM                                                       REFMAP      1494          I
          -FCC0556
 REFMAP             BX6    X5                                                              REFMAP      1495     A     
 REFMAP             SA6    A7+1                                                            REFMAP      1496     A     
 REFMAP             IX6    X3+X7             COMPUTE STORAGE LENGTH REQUIREMENT            REFMAP      1497          I
          -FCC0556
 REFMAP             SA6    A3                                                              REFMAP      1498          I
          -FCC0556
 REFMAP                                                                                    REFMAP      1499     A     
 REFMAP             FMTL   (X10,A7,I8,A4)    FORMAT THE LINE                               REFMAP      1500     A     
 REFMAP                                                                                    REFMAP      1501     A     
 REFMAP             R=0    CL2               IF R = 0                                      REFMAP      1502     A     
 REFMAP                                                                                    REFMAP      1503     A     
 REFMAP   *         COLLECT AND LIST BLOCK MEMBERS                                         REFMAP      1504     A     
 REFMAP                                                                                    REFMAP      1505     A     
 REFMAP             SA1    TEMP                                                            REFMAP      1506     A     
 REFMAP             SA2    RBUF+X1           INDEX TO COMTAB                               REFMAP      1507     A     
 REFMAP             SA3    O.COM                                                           REFMAP      1508     A     
 REFMAP             SB7    LBUF                                                            REFMAP      1509     A     
 REFMAP             IX6    X2+X3             FWA OF BLOCK                                  REFMAP      1510     A     
 REFMAP             SA4    X6+B5                                                           REFMAP      1511     A     
 REFMAP             BX7    X4                 SAVE NAME OF FIRST BLOCK MEMBER FOR          REFMAP      1512     A     
 REFMAP             SA7    A2                 EQV PRINTOUT                                 REFMAP      1513     A     
 REFMAP                                                                                    REFMAP      1514     A     
 REFMAP    RMAP.CBL SA1    X6                BLOCK PREFIX WORD                             REFMAP      1515     A     
 REFMAP             SA6    CLOC              CURRENT LOC                                   REFMAP      1516     A     
 REFMAP             SX7    X1                                                              REFMAP      1517     A     
 REFMAP             SA7    A6+B5             LINK                                          REFMAP      1518     A     
 REFMAP             AX1    18                                                              REFMAP      1519     A     
 REFMAP             SX6    X6+B5             FWA                                           REFMAP      1520     A     
 REFMAP             SX7    X1                N.MEMBERS                                     REFMAP      1521     A     
 REFMAP             RJ     FBNB              FORMAT AND PRINT MEMBERS                      REFMAP      1522     A     
 REFMAP             SA1    CLOC                                                            REFMAP      1523     A     
 REFMAP             SA2    A1+B5             LINK                                          REFMAP      1524     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2773    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             IX6    X1+X2                                                           REFMAP      1525     A     
 REFMAP             NZ     X2,RMAP.CBL       IF MORE APPEARENCES                           REFMAP      1526     A     
 REFMAP             RJ     DLL               DUMP LAST LINE                                REFMAP      1527     A     
 REFMAP                                                                                    REFMAP      1528     A     
 REFMAP    RMAP.CL2 SA1    TEMP                                                            REFMAP      1529     A     
 REFMAP             SA2    N.COM                                                           REFMAP      1530     A     
 REFMAP             SX6    X1+B5                                                           REFMAP      1531     A     
 REFMAP             IX3    X6-X2             I - L                                         REFMAP      1532     A     
 REFMAP             SA6    A1                                                              REFMAP      1533     A     
 REFMAP             NG     X3,RMAP.CL        IF MORE BLOCKS TO GO                          REFMAP      1534     A     
 REFMAP                                                                                    REFMAP      1535     A     
 REFMAP             SA1    L.SCOM                                                          REFMAP      1536     A     
 REFMAP             MX0    -17                                                             REFMAP      1537     A     
 REFMAP             BX2    X1*X0                                                           REFMAP      1538     A     
 REFMAP             ZR     X2,RMAP.EC  IF LENGTH WITHIN BOUNDS                             REFMAP      1539     A     
 REFMAP             MX6    42                                                              REFMAP      1540     A     
 REFMAP             BX6    -X6                                                             REFMAP      1541     A     
 REFMAP             SA6    A1                                                              REFMAP      1542     A     
 REFMAP             TITLE              EQUIVALENCE CLASS S                                 REFMAP      1543     A     
 REFMAP    RMAP.EC  R=0    PS                IF R = 0                                      REFMAP      1544          I
          -FCC0458
 REFMAP             SA1    L.EQV                                                           REFMAP      1545          I
          -FCC0458
 REFMAP             ZR     X1,RMAP.PS        IF NO EQUIV INFO                              REFMAP      1546          I
          -FCC0458
 REFMAP             SB1    1                                                               REFMAP      1547          I
          -FCC0458
 REFMAP    RMAP.EC  SA1    L.EQV                                                           FCC0458       20     A     
 REFMAP             ZR     X1,RMAP.PS        IF NO EQUIV INFO                              FCC0458       21     A     
 REFMAP             SA2    R=FLAG                                                          FCC0458       22     A     
 REFMAP             SX3    X2-3                                                            FCC0458       23     A     
 REFMAP             NZ     X3,RMAP.PS                                                      FCC0458       24     A     
 REFMAP             SX6    B5                                                              FCC0458       25     A     
 REFMAP             MX6    1                                                               FCC0458       26     A     
 REFMAP             SB1    1                                                               FCC0458A       4     A     
 REFMAP             SA6    REFACC                                                          FCC0458       27     A     
 REFMAP             READW  =XF.RMAP,EBUF,X1+B1     EQUIVALENCE INFO                        REFMAP      1548     A     
 REFMAP             SB5    B1                                                              REFMAP      1549     A     
 REFMAP                                                                                    REFMAP      1550     A     
 REFMAP             STITLE (EQUIV CLASSES   LENGTH),28,(MEMBERS - BIAS NAME(LENGTH         REFMAP      1551     A     
 REFMAP   ,))                                                                              REFMAP      1552     A     
 REFMAP             SX5    EBUF                                                            REFMAP      1553     A     
 REFMAP                                                                                    REFMAP      1554     A     
 REFMAP    RMAP.ECL SA1    X5                                                              REFMAP      1555     A     
 REFMAP             ZR     X1,RMAP.PS        IF FINISHED                                   REFMAP      1556     A     
 REFMAP             SX7    X1                                                              REFMAP      1557     A     
 REFMAP             SA2    SYM1                                                            REFMAP      1558     A     
 REFMAP             SX6    X5+B5             FWA OF MEMBERS                                REFMAP      1559     A     
 REFMAP             SA0    X2                                                              REFMAP      1560     A     
 REFMAP             SA6    CLI                                                             REFMAP      1561     A     
 REFMAP             SA7    A6+B5             NUMBER OF MEMBERS IN CLASS                    REFMAP      1562     A     
 REFMAP             AX1    18-1                                                            REFMAP      1563     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2774    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SB2    X1                                                              REFMAP      1564     A     
 REFMAP             MX0    L.NAME                                                          REFMAP      1565     A     
 REFMAP             SA2    A0-B2             WORD A OF BASE                                REFMAP      1566     A     
 REFMAP             BX6    X0*X2                                                           REFMAP      1567     A     
 REFMAP             SA6    VBUF+1                                                          REFMAP      1568     A     
 REFMAP             AX1    36-17                                                           REFMAP      1569     A     
 REFMAP             SX7    X1                CLASS LENGTH                                  REFMAP      1570     A     
 REFMAP             SA7    A6+B5                                                           REFMAP      1571     A     
 REFMAP             NZ     X7,RMAP.EC1       IF NO ERRORS                                  REFMAP      1572     A     
 REFMAP             SB4    =7L*ERROR*                                                      REFMAP      1573     A     
 REFMAP             EQ     RMAP.EC2                                                        REFMAP      1574     A     
 REFMAP                                                                                    REFMAP      1575     A     
 REFMAP    RMAP.EC1 SB4    =7L                                                             REFMAP      1576     A     
 REFMAP             PL     X1,RMAP.EC2       IF NOT IN COMMON                              REFMAP      1577     A     
 REFMAP             SA2    A2-B5              WORD B OF BASE                               REFMAP      1578     A     
 REFMAP             EFIELD RB                                                              REFMAP      1579     A     
 REFMAP             SA3    RBUF-1+X6                                                       REFMAP      1580     A     
 REFMAP             AX3    18-1                                                            REFMAP      1581     A     
 REFMAP             SB3    X3                 2*ORD OF BASE OF COMMON BLOCK                REFMAP      1582     A     
 REFMAP             SB4    A0-B3                                                           REFMAP      1583     A     
 REFMAP    RMAP.EC2 SA4    B4                                                              REFMAP      1584     A     
 REFMAP             MX0    L.NAME                                                          REFMAP      1585     A     
 REFMAP             BX6    X0*X4                                                           REFMAP      1586     A     
 REFMAP             SA6    A6-B5                                                           REFMAP      1587     A     
 REFMAP             FMTL   (X2,A7,X1,A7,I8)  FORMAT INITIAL INFO                           REFMAP      1588     A     
 REFMAP                                                                                    REFMAP      1589     A     
 REFMAP             SA1    CLI                                                             REFMAP      1590          I
          -FCC1289X 
 REFMAP             SX0    377777B                                                         REFMAP      1591          I
          -FCC1289X 
 REFMAP             SA2    A1+B5                                                           REFMAP      1592          I
          -FCC1289X 
 REFMAP             RJ     DSORT       SORT THE CLASS BY BIAS                              REFMAP      1593          I
          -FCC1289X 
 REFMAP             SB1    3           WC = 3                                              REFMAP      1594     A     
 REFMAP             SA1    CLI                                                             REFMAP      1595     A     
 REFMAP             SA2    A1+B5                                                           REFMAP      1596     A     
 REFMAP             BX6    X1                FWA                                           REFMAP      1597     A     
 REFMAP             IX7    X1+X2                                                           REFMAP      1598     A     
 REFMAP             SA7    A1                                                              REFMAP      1599     A     
 REFMAP             BX7    X2                LENGTH                                        REFMAP      1600     A     
 REFMAP             SB7    LBUF                                                            REFMAP      1601     A     
 REFMAP             RJ     FBNB              FORMAT AND PRINT CLASS MEMBERS                REFMAP      1602     A     
 REFMAP             RJ     DLL               DUMP LAST LINE                                REFMAP      1603     A     
 REFMAP             SA5    CLI               FWA OF NEXT CLASS                             REFMAP      1604     A     
 REFMAP             EQ     RMAP.ECL                                                        REFMAP      1605     A     
 REFMAP   **        DSORT - 1 WORD/ENTRY INTERCHANGE SORT                                  REFMAP      1606          I
          -FCC1289X 
 REFMAP   *                                                                                REFMAP      1607          I
          -FCC1289X 
 REFMAP   *         ENTRY  (X0) = BIT MASK FOR SORT KEY                                    REFMAP      1608          I
          -FCC1289X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2775    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP   *                (X1) = FWA OF TABLE                                             REFMAP      1609          I
          -FCC1289X 
 REFMAP   *                (X2) = WORD COUNT                                               REFMAP      1610          I
          -FCC1289X 
 REFMAP                                                                                    REFMAP      1611          I
          -FCC1289X 
 REFMAP    DSORT    ROUTINE                                                                REFMAP      1612          I
          -FCC1289X 
 REFMAP             SB6    X2                                                              REFMAP      1613          I
          -FCC1289X 
 REFMAP             LE     B6,B5,DSORT       EXIT IF WC @ 1                                REFMAP      1614          I
          -FCC1289X 
 REFMAP                                                                                    REFMAP      1615          I
          -FCC1289X 
 REFMAP    DSORT1   SA2    X1                                                              REFMAP      1616          I
          -FCC1289X 
 REFMAP             SB4    B6-B5                                                           REFMAP      1617          I
          -FCC1289X 
 REFMAP             MX4    1                                                               REFMAP      1618          I
          -FCC1289X 
 REFMAP             BX6    X2                                                              REFMAP      1619          I
          -FCC1289X 
 REFMAP                                                                                    REFMAP      1620          I
          -FCC1289X 
 REFMAP    DSORT2   PL     X4,DSORT3                                                       REFMAP      1621          I
          -FCC1289X 
 REFMAP             SB2    A2                SAVE ADDRESS OF SMALLER ENTRY                 REFMAP      1622          I
          -FCC1289X 
 REFMAP             BX7    X0*X2             A(I) .A. KEY                                  REFMAP      1623          I
          -FCC1289X 
 REFMAP                                                                                    REFMAP      1624          I
          -FCC1289X 
 REFMAP    DSORT3   SA2    A2+B5                                                           REFMAP      1625          I
          -FCC1289X 
 REFMAP             SB4    B4-B5             J = J-1                                       REFMAP      1626          I
          -FCC1289X 
 REFMAP             BX3    X0*X2                                                           REFMAP      1627          I
          -FCC1289X 
 REFMAP             IX4    X3-X7                                                           REFMAP      1628          I
          -FCC1289X 
 REFMAP             PL     B4,DSORT2                                                       REFMAP      1629          I
          -FCC1289X 
 REFMAP                                                                                    REFMAP      1630          I
          -FCC1289X 
 REFMAP             SA5    B2                                                              REFMAP      1631          I
          -FCC1289X 
 REFMAP             BX7    X5                                                              REFMAP      1632          I
          -FCC1289X 
 REFMAP             SB6    B6-B5             I = I-1                                       REFMAP      1633          I
          -FCC1289X 
 REFMAP             SA6    B2                                                              REFMAP      1634          I
          -FCC1289X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2776    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SA7    X1                STORE SMALLEST ENTRY AT THE BOTTOM            REFMAP      1635          I
          -FCC1289X 
 REFMAP             SX1    X1+B5                                                           REFMAP      1636          I
          -FCC1289X 
 REFMAP             NE     B6,B5,DSORT1      IF MORE THAN 1 ENTRY LEFT                     REFMAP      1637          I
          -FCC1289X 
 REFMAP             EQ     DSORT                                                           REFMAP      1638          I
          -FCC1289X 
 REFMAP    PPS      SPACE  3                                                               REFMAP      1639     A     
 REFMAP    LISTS    MACRO  LOC,TEXT,NOTEST                                                 REFMAP      1640     A     
 REFMAP             LOCAL  X                                                               REFMAP      1641     A     
 REFMAP             USE    DATA                                                            REFMAP      1642     A     
 REFMAP    X        DIS    3,     TEXT                                                     REFMAP      1643     A     
 REFMAP             USE    *                                                               REFMAP      1644     A     
 REFMAP             SA1    LOC                                                             REFMAP      1645     A     
 REFMAP             SA2    X                                                               REFMAP      1646     A     
 REFMAP             IFC    EQ,//NOTEST/,1                                                  REFMAP      1647     A     
 REFMAP   +         ZR     X1,*+1                                                          REFMAP      1648     A     
 REFMAP             RJ     PPS                                                             REFMAP      1649     A     
 REFMAP             ENDM                                                                   REFMAP      1650     A     
 REFMAP                                                                                    REFMAP      1651     A     
 REFMAP   ***                                                                              REFMAP      1652     A     
 REFMAP   *         PPS - PRINT PROGRAM STATISTICS                                         REFMAP      1653     A     
 REFMAP   *                                                                                REFMAP      1654     A     
 REFMAP    PPS1     FMTL   (A10,A10,A10,X1,O8,I7)                                          REFMAP      1655          I
          -FCC0574
 REFMAP    PPS1     FMTL   (A10,A10,A10,X1,O8,I8)                                          FCC0574        9     A     
 REFMAP    PPS                                                                             REFMAP      1656     A     
 REFMAP             SA3    A2+B5                                                           REFMAP      1657     A     
 REFMAP             BX6    X2                                                              REFMAP      1658     A     
 REFMAP             SA6    VBUF                                                            REFMAP      1659     A     
 REFMAP             BX7    X3                                                              REFMAP      1660     A     
 REFMAP             SA7    A6+B5                                                           REFMAP      1661     A     
 REFMAP             SA4    A3+B5                                                           REFMAP      1662     A     
 REFMAP             BX7    X4                                                              REFMAP      1663     A     
 REFMAP             SA7    A7+B5                                                           REFMAP      1664     A     
 REFMAP             BX6    X1                LENGTH                                        REFMAP      1665     A     
 REFMAP             SA6    A7+B5                                                           REFMAP      1666     A     
 REFMAP             SA6    A6+B5                                                           REFMAP      1667     A     
 REFMAP             EQ     PPS1                                                            REFMAP      1668     A     
 REFMAP             SPACE  3                                                               REFMAP      1669     A     
 REFMAP   *         PRINT OUT MISCELLANEOUS STATISTICS                                     REFMAP      1670     A     
 REFMAP                                                                                    REFMAP      1671     A     
 REFMAP    RMAP.PS  MX6    0                                                               REFMAP      1672     A     
 REFMAP             SA6    REFACC            CLEAR LONG MAP FLAG                           REFMAP      1673     A     
 REFMAP             STITLE (STATISTICS),18                                                 REFMAP      1674     A     
 REFMAP             IFNE   TEST,0                                                          REFMAP      1675     A     
 REFMAP             SA1    SYMORD                                                          REFMAP      1676     A     
 REFMAP             SA3    =XL.DIM                                                         REFMAP      1677     A     
 REFMAP             SX4    X1-1              N.SYMBOLS                                     REFMAP      1678     A     
 REFMAP             LX4    1                                                               REFMAP      1679     A     
 REFMAP             IX1    X3+X4             L.SYMTAB+L.DIMTAB                             REFMAP      1680     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2777    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SA2    =30H     SYMTAB+DIMTAB                                          REFMAP      1681     A     
 REFMAP             RJ     PPS               PRINT COMBINED LENGTH OF SYM+DIMTAB           REFMAP      1682     A     
 REFMAP             ENDIF                                                                  REFMAP      1683     A     
 REFMAP             LISTS  L.PROGP,(PROGRAM LENGTH),NOTEST                                 REFMAP      1684          I
          -FCC2108
 REFMAP             SA1    =XQFLAG                                                         FCC2108       22     A     
 REFMAP             ZR     X1,RMAP.PSS       IF NOT Q MODE                                 FCC2108       23     A     
 REFMAP             SX7    B0                                                              FCC2108       24     A     
 REFMAP             SA7    L.PROGP           PROGRAM LENGTH = 0                            FCC2108       25     A     
 REFMAP             SA7    L.BUFIO           BUFFER LENGTH = 0                             FCC2108       26     A     
 REFMAP    RMAP.PSS LISTS  L.PROGP,(PROGRAM LENGTH),NOTEST                                 FCC2108       27     A     
 REFMAP             LISTS  L.BUFIO,(BUFFER LENGTH )                                        REFMAP      1685     A     
 REFMAP             LISTS  L.SCOM,("SCM" LABELED COMMON LENGTH)                            REFMAP      1686     A     
 REFMAP             LISTS  L.SBLK,("SCM" BLANK COMMON LENGTH)                              REFMAP      1687     A     
 REFMAP             LISTS  L.LCOM,("LCM" LABELED COMMON LENGTH)                            REFMAP      1688     A     
 REFMAP             LISTS  L.LBLK,("LCM" BLANK COMMON LENGTH)                              REFMAP      1689     A     
 REFMAP             SA1    =XPR.MXFL                                                       RSM2763X      50     A     
 REFMAP             RJ     OCTC                                                            RSM2763X      51     A     
 REFMAP             SX7    2R                                                              RSM2763X      52     A     
 REFMAP             BX6    X6+X7                                                           RSM2763X      53     A     
 REFMAP             LX6    -6                                                              RSM2763X      54     A     
 REFMAP             SA6    CMUSED+1                                                        RSM2763X      55     A     
 REFMAP             LISTL  A6-B1,3     *    NNNB SCM USED *                                RSM2763X      56     A     
 REFMAP   *         COMPUTE SCM REQUIREMENT.                                               REFMAP      1690          I
          -FCC0556
 REFMAP             SA1    L.PROGP                                                         REFMAP      1691          I
          -FCC0556
 REFMAP             SA2    L.BUFIO                                                         REFMAP      1692          I
          -FCC0556
 REFMAP             SA3    L.SCOM                                                          REFMAP      1693          I
          -FCC0556
 REFMAP             IX4    X1+X2                                                           REFMAP      1694          I
          -FCC0556
 REFMAP             SA5    L.SBLK                                                          REFMAP      1695          I
          -FCC0556
 REFMAP             IX4    X4+X3                                                           REFMAP      1696          I
          -FCC0556
 REFMAP             MX0    -17                                                             REFMAP      1697          I
          -FCC0556
 REFMAP             IX4    X4+X5                                                           REFMAP      1698          I
          -FCC0556
 REFMAP             BX4    X0*X4                                                           REFMAP      1699          I
          -FCC0556
 REFMAP             ZR     X4,RMAPPSA  IF .LT. 131K OF SCM IS REQUIRED                     REFMAP      1700          I
          -FCC0556
 REFMAP                                                                                    REFMAP      1701          I
          -FCC0556
 REFMAP             LISTL  OVERFL,4                                                        REFMAP      1702          I
          -FCC0556
 REFMAP             SB5    1                                                               REFMAP      1703          I
          -FCC0556
 REFMAP             SA2    N.FERR                                                          REFMAP      1704          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2778    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
          -FCC0556
 REFMAP             SX7    X2+B1                                                           REFMAP      1705          I
          -FCC0556
 REFMAP             SA7    A2                                                              REFMAP      1706          I
          -FCC0556
 REFMAP             NZ     X2,RMAPPSA  IF NO FATAL ERRORS                                  REFMAP      1707          I
          -FCC0556
 REFMAP             SX1    B5                                                              REFMAP      1708          I
          -FCC0556
 REFMAP             CALL   IEM                                                             REFMAP      1709          I
          -FCC0556
 REFMAP                                                                                    REFMAP      1710     A     
 REFMAP    RMAPPSA  BSS    0                                                               REFMAP      1711          I
          -RSM2763X 
 REFMAP    RMAPPSA  SB5    1                                                               RSM2763X      57     A     
 REFMAP             IFNE   TEST,0                                                          REFMAP      1712     A     
 REFMAP             SA1    N.FP                                                            REFMAP      1713     A     
 REFMAP             ZR     X1,RMAPX    IF NO FORMAL PARAMS                                 REFMAP      1714     A     
 REFMAP             SA3    SYM1                                                            REFMAP      1715     A     
 REFMAP             SB1    X1                                                              REFMAP      1716     A     
 REFMAP             MX1    0                                                               REFMAP      1717     A     
 REFMAP             SA4    X3-5        WORD B OF FIRST F.P.                                REFMAP      1718     A     
 REFMAP                                                                                    REFMAP      1719     A     
 REFMAP    RMAP.PS1 AX4    P.RA                                                            REFMAP      1720     A     
 REFMAP             SX5    X4                                                              REFMAP      1721     A     
 REFMAP             SB1    B1-B5                                                           REFMAP      1722     A     
 REFMAP             IX1    X5+X1             ACCUMULATE SUM                                REFMAP      1723     A     
 REFMAP             SA4    A4-2                                                            REFMAP      1724     A     
 REFMAP             NZ     B1,RMAP.PS1       IF NOT FINISHED                               REFMAP      1725     A     
 REFMAP             ZR     X1,RMAPX          IF NO ADDSUBS                                 REFMAP      1726     A     
 REFMAP             SA2    =30H          ADDSUBS                                           REFMAP      1727     A     
 REFMAP             RJ     PPS                                                             REFMAP      1728     A     
 REFMAP             ENDIF                                                                  REFMAP      1729     A     
 REFMAP             EQ     RMAPX                                                           REFMAP      1730     A     
 REFMAP                                                                                    RSM2763X      58     A     
 REFMAP    CMUSED   DATA   20H                                                             RSM2763X      59     A     
 REFMAP             DATA   8L"SCM" USED                                                    RSM2763X      60     A     
 REFMAP             TITLE              COMMON/EQUIV PRINT ROUTINES                         REFMAP      1731     A     
 REFMAP   ***                                                                              REFMAP      1732     A     
 REFMAP   *         FBNB - FORMAT BIAS, NAME AND BASE                                      REFMAP      1733     A     
 REFMAP   *                                                                                REFMAP      1734     A     
 REFMAP   *         ON ENTRY:                                                              REFMAP      1735     A     
 REFMAP   *                X6,X7 = FWA AND LENGTH OF BNB TABLE                             REFMAP      1736     A     
 REFMAP   *                B1,B7 = WC AND FWA OF LINE BUFFER                               REFMAP      1737     A     
 REFMAP   *                                                                                REFMAP      1738     A     
 REFMAP                                                                                    REFMAP      1739     A     
 REFMAP    FBNB                                                                            REFMAP      1740     A     
 REFMAP             SA6    LI                                                              REFMAP      1741     A     
 REFMAP             IX7    X6+X7                                                           REFMAP      1742     A     
 REFMAP             SA7    A6+B5                                                           REFMAP      1743     A     
 REFMAP                                                                                    REFMAP      1744     A     
 REFMAP    FBNB1    SA1    X6                                                              REFMAP      1745     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2779    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             RJ     PBNB              PRINT AN ELEMENT                              REFMAP      1746     A     
 REFMAP             SA1    LI                                                              REFMAP      1747     A     
 REFMAP             SA2    A1+B5             LIMIT                                         REFMAP      1748     A     
 REFMAP             SX6    X1+B5                                                           REFMAP      1749     A     
 REFMAP             IX0    X6-X2             I - L                                         REFMAP      1750     A     
 REFMAP             SA6    A1                                                              REFMAP      1751     A     
 REFMAP             NG     X0,FBNB1          IF NOT FINISHED                               REFMAP      1752     A     
 REFMAP             EQ     FBNB                                                            REFMAP      1753     A     
 REFMAP             SPACE  3                                                               REFMAP      1754     A     
 REFMAP   ***                                                                              REFMAP      1755     A     
 REFMAP   *         DLL - DUMP THE LAST LINE                                               REFMAP      1756     A     
 REFMAP   *                                                                                REFMAP      1757     A     
 REFMAP    DLL                                                                             REFMAP      1758     A     
 REFMAP             ZR     B1,DLL                                                          REFMAP      1759     A     
 REFMAP             SB2    B1-B5                                                           REFMAP      1760     A     
 REFMAP             SA1    B7+B2                                                           REFMAP      1761     A     
 REFMAP             MX0    48                                                              REFMAP      1762     A     
 REFMAP             SB6    B7                                                              REFMAP      1763     A     
 REFMAP             SB7    B1                                                              REFMAP      1764     A     
 REFMAP             BX7    X0*X1             ZERO BYTE                                     REFMAP      1765     A     
 REFMAP             SB1    1                                                               REFMAP      1766     A     
 REFMAP             SA7    A1                                                              REFMAP      1767     A     
 REFMAP             LISTL  B6,B7                                                           REFMAP      1768     A     
 REFMAP             SB5    1                                                               REFMAP      1769     A     
 REFMAP             EQ     DLL                                                             REFMAP      1770     A     
 REFMAP             EJECT                                                                  REFMAP      1771     A     
 REFMAP   ***                                                                              REFMAP      1772     A     
 REFMAP   *         PBNB - PRINT BIAS,NAME AND LENGTH                                      REFMAP      1773     A     
 REFMAP   *                                                                                REFMAP      1774     A     
 REFMAP   *         ON ENTRY:                                                              REFMAP      1775     A     
 REFMAP   *                B1,B7 = WC AND FWA OF LINE                                      REFMAP      1776     A     
 REFMAP   *                X1 = TABLE WORD, FORMAT:                                        REFMAP      1777     A     
 REFMAP   *                                  6/J,18/WC,18/SYMORD,18/BIAS                   REFMAP      1778     A     
 REFMAP   *                                                                                REFMAP      1779     A     
 REFMAP                                                                                    REFMAP      1780     A     
 REFMAP    PBNB                                                                            REFMAP      1781     A     
 REFMAP             NZ     B1,PBNB1          IF WC .NE. 0                                  REFMAP      1782     A     
 REFMAP             SB1    3                                                               REFMAP      1783     A     
 REFMAP                                                                                    REFMAP      1784     A     
 REFMAP    PBNB1    BX0    X1                                                              REFMAP      1785     A     
 REFMAP             SX1    X1                                                              REFMAP      1786     A     
 REFMAP             SB6    B1                (-CDD- DOES NOT USE B6)                       REFMAP      1787     A     
 REFMAP             SB1    1                                                               REFMAP      1788     A     
 REFMAP             CALL   CDD               RETURNS (X6) = INTEGER, DPC -A- FMT           REFMAP      1789     A     
 REFMAP             SA1    SYM1                                                            REFMAP      1790     A     
 REFMAP             AX0    18-1                                                            REFMAP      1791     A     
 REFMAP             SX2    X0                2*SYMORD                                      REFMAP      1792     A     
 REFMAP             SA6    VBUF                                                            REFMAP      1793     A     
 REFMAP             IX3    X1-X2                                                           REFMAP      1794     A     
 REFMAP             SA4    X3                WORD A                                        REFMAP      1795     A     
 REFMAP             AX0    36-17                                                           REFMAP      1796     A     
 REFMAP             MX5    L.NAME                                                          REFMAP      1797     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2780    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SX1    X0                LENGTH                                        REFMAP      1798     A     
 REFMAP             BX0    X5*X4                                                           REFMAP      1799     A     
 REFMAP             CALL   CDD               RETURNS (X6) = INTEGER, DPC -A- FMT           REFMAP      1800     A     
 REFMAP             SB5    B1                (B5) = 1                                      REFMAP      1801     A     
 REFMAP             LX6    6                                                               REFMAP      1802     A     
 REFMAP             SX5    1R)-1R                                                          REFMAP      1803     A     
 REFMAP             SB1    B6                (B1) = LINE LENGTH (RESTORED)                 REFMAP      1804     A     
 REFMAP             IX6    X6+X5             10L   NNN)                                    REFMAP      1805     A     
 REFMAP             SB3    60                                                              REFMAP      1806     A     
 REFMAP             SB4    B3-B2                                                           REFMAP      1807     A     
 REFMAP             MX5    60-6                                                            REFMAP      1808     A     
 REFMAP             LX6    B4,X6             NN)    N                                      REFMAP      1809     A     
 REFMAP             BX7    X5*X6                                                           REFMAP      1810     A     
 REFMAP             SX4    1R                                                              REFMAP      1811     A     
 REFMAP             BX6    -X5*X6                                                          REFMAP      1812     A     
 REFMAP             BX7    X4+X7             NN)                                           REFMAP      1813     A     
 REFMAP             SA2    =3R(                                                            REFMAP      1814     A     
 REFMAP             BX1    X0+X2             NAME (                                        REFMAP      1815     A     
 REFMAP             LX1    60-6                                                            REFMAP      1816     A     
 REFMAP             BX3    X5*X1                                                           REFMAP      1817     A     
 REFMAP             BX6    X3+X6                                                           REFMAP      1818     A     
 REFMAP             SA6    A6+B5                                                           REFMAP      1819     A     
 REFMAP             SA7    A6+B5                                                           REFMAP      1820     A     
 REFMAP                                                                                    REFMAP      1821     A     
 REFMAP             SB6    WPL-3                                                           REFMAP      1822     A     
 REFMAP             LE     B1,B6,PBNB3       IF ROOM FOR 3 WORDS                           REFMAP      1823     A     
 REFMAP                                                                                    REFMAP      1824     A     
 REFMAP             RJ     DLL               DUMP LINE                                     REFMAP      1825     A     
 REFMAP             SA1    BFILL                                                           REFMAP      1826     A     
 REFMAP             SB1    3                                                               REFMAP      1827     A     
 REFMAP             SB7    LBUF                                                            REFMAP      1828     A     
 REFMAP             ZR     X1,PBNB3          IF WE BLANK FILLED THE LINE                   REFMAP      1829     A     
 REFMAP             BX7    X1                                                              REFMAP      1830     A     
 REFMAP             SB2    B0                                                              REFMAP      1831     A     
 REFMAP                                                                                    REFMAP      1832     A     
 REFMAP   +         SA7    B7+B2             BLANK FILL THE FIRST 30 COULUMS               REFMAP      1833     A     
 REFMAP             SB2    B2+B5                                                           REFMAP      1834     A     
 REFMAP             LT     B2,B1,*                                                         REFMAP      1835     A     
 REFMAP                                                                                    REFMAP      1836     A     
 REFMAP    PBNB3    SA1    VBUF                                                            REFMAP      1837     A     
 REFMAP             SA2    A1+B5                                                           REFMAP      1838     A     
 REFMAP             SA3    A2+B5                                                           REFMAP      1839     A     
 REFMAP             BX6    X1                                                              REFMAP      1840     A     
 REFMAP             LX7    X2                                                              REFMAP      1841     A     
 REFMAP             SA6    B7+B1                                                           REFMAP      1842     A     
 REFMAP             SA7    A6+B5                                                           REFMAP      1843     A     
 REFMAP             BX6    X3                                                              REFMAP      1844     A     
 REFMAP             SA6    A7+B5                                                           REFMAP      1845     A     
 REFMAP             SB2    A6+B5                                                           REFMAP      1846     A     
 REFMAP             SB1    B2-B7                                                           REFMAP      1847     A     
 REFMAP             EQ     PBNB                                                            REFMAP      1848     A     
 REFMAP             SPACE  3                                                               REFMAP      1849     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2781    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP   ***                                                                              REFMAP      1850     A     
 REFMAP   *         PIL - PRINT INDENTED LINE ( 10X,TEXT )                                 REFMAP      1851     A     
 REFMAP   *                                                                                REFMAP      1852     A     
 REFMAP   *         ON ENTRY:                                                              REFMAP      1853     A     
 REFMAP   *                A5 = FWA OF LINE                                                REFMAP      1854     A     
 REFMAP   *                                                                                REFMAP      1855     A     
 REFMAP    PIL                                                                             REFMAP      1856     A     
 REFMAP             SA4    =10H                                                            REFMAP      1857     A     
 REFMAP             SB1    1                 (B1) = 1                                      REFMAP      1858     A     
 REFMAP             SB6    LBUF              (B6) = LINE FWA                               REFMAP      1859     A     
 REFMAP             SB7    B1                (B7) = LINE LENGTH (WORDS)                    REFMAP      1860     A     
 REFMAP             BX7    X4                                                              REFMAP      1861     A     
 REFMAP             MX0    60-12                                                           REFMAP      1862     A     
 REFMAP             SA7    B6                                                              REFMAP      1863     A     
 REFMAP    PIL1     LX7    X5                                                              REFMAP      1864     A     
 REFMAP             BX6    -X0*X5                                                          REFMAP      1865     A     
 REFMAP             SA5    A5+B1                                                           REFMAP      1866     A     
 REFMAP             SA7    B6+B7                                                           REFMAP      1867     A     
 REFMAP             SB7    B7+B1                                                           REFMAP      1868     A     
 REFMAP             NZ     X6,PIL1           IF NOT END OF LINE                            REFMAP      1869     A     
 REFMAP             LISTL  B6,B7                                                           REFMAP      1870     A     
 REFMAP             SB5    1                                                               REFMAP      1871     A     
 REFMAP             EQ     PIL                                                             REFMAP      1872     A     
 REFMAP             TITLE              SORTRL - SORT A SINGLE REFERENCE LIST               REFMAP      1873     A     
 REFMAP   ***                                                                              REFMAP      1874     A     
 REFMAP   *         THE FOLLOWING ROUTINES ARE BUCKET SORTS ON THE VARIOUS                 REFMAP      1875     A     
 REFMAP   *         ATTRIBUTES WHICH THE SYMBOL TABLE AND REFERENCE LIST IS SORTED         REFMAP      1876     A     
 REFMAP   *         ON.                                                                    REFMAP      1877     A     
 REFMAP   *                                                                                REFMAP      1878     A     
 REFMAP   *         IN EACH CASE THE SORT USES A BASE TABLE OF FIXED LENGTH                REFMAP      1879     A     
 REFMAP   *         THE THE REST OF WORKING STORAGE TO FORM THE LISTS THAT IT              REFMAP      1880     A     
 REFMAP   *         IS BUILDING.                                                           REFMAP      1881     A     
 REFMAP   *         THE BASE TABLE OR BUCKET IS ALWAYS OF THE FORM:                        REFMAP      1882     A     
 REFMAP   *         30/ADDRESS OF THE FIRST LIST ELEMENT                                   REFMAP      1883     A     
 REFMAP   *         ,30/ADDRESS OF THE LAST LIST ELEMNT                                    REFMAP      1884     A     
 REFMAP   *                                                                                REFMAP      1885     A     
 REFMAP   *         THE LISTS THEMSELVES, ARE OF VARIOUS FORMATS, BUT IN                   REFMAP      1886     A     
 REFMAP   *         GENERAL, THE WORD HOLDS A POINTER TO THE NEXT LIST ELEMENT             REFMAP      1887     A     
 REFMAP   *         AND INFORMATION ABOUT THE CURRENT ELEMENT                              REFMAP      1888     A     
 REFMAP   *                                                                                REFMAP      1889     A     
 REFMAP                                                                                    REFMAP      1890     A     
 REFMAP    FRSTB    MACRO  TYPE              FIRST BUCKET MACRO                            REFMAP      1891     A     
 REFMAP    F.TYPE   VFD    30/O.TYPE,30/O.TYPE                                             REFMAP      1892     A     
 REFMAP             ENDM                                                                   REFMAP      1893     A     
 REFMAP                                                                                    REFMAP      1894     A     
 REFMAP   ***                                                                              REFMAP      1895     A     
 REFMAP   *         SORTRL - SORT REFERENCES FOR A VARIABLE INTO REFERENCE AND             REFMAP      1896     A     
 REFMAP   *         DEFINITION LISTS, MERGES REFERENCES WITH THE SAME LINE NUMBER          REFMAP      1897     A     
 REFMAP   *                                                                                REFMAP      1898     A     
 REFMAP   *         ON ENTRY:                                                              REFMAP      1899     A     
 REFMAP   *                WORDA = ADDRESS OF WORD A OF SYMBOL                             REFMAP      1900     A     
 REFMAP   *                                                                                REFMAP      1901     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2782    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP   *         ON EXIT:                                                               REFMAP      1902     A     
 REFMAP   *                O.DEFS,O.REFS,O.FREF = 0 OR 60/FWA OF LIST                      REFMAP      1903     A     
 REFMAP   *                                                                                REFMAP      1904     A     
 REFMAP    SORTRL                                                                          REFMAP      1905     A     
 REFMAP             SA1    SYM1                                                            REFMAP      1906     A     
 REFMAP             SA2    WORDA                                                           REFMAP      1907     A     
 REFMAP             SA3    O.REFBAS                                                        REFMAP      1908     A     
 REFMAP             IX4    X1-X2                                                           REFMAP      1909     A     
 REFMAP             AX5    B5,X4             ORDINAL = (SYM1-ADDRESS)/2                    REFMAP      1910     A     
 REFMAP             IX6    X3+X5                                                           REFMAP      1911     A     
 REFMAP                                                                                    REFMAP      1912     A     
 REFMAP             MX0    L.BCDLN+6                                                       REFMAP      1913     A     
 REFMAP             LX0    L.BCDLN+6+P.BCDLN  MASK TO EXTRACT LINE NO AND SC               REFMAP      1914     A     
 REFMAP             SA2    X6                FETCH BUCKET                                  REFMAP      1915     A     
 REFMAP             AX2    30                POSITION                                      REFMAP      1916     A     
 REFMAP                                                                                    REFMAP      1917     A     
 REFMAP   *         SET UP THE BUCKETS AND DUMMY BUCKETS                                   REFMAP      1918     A     
 REFMAP                                                                                    REFMAP      1919     A     
 REFMAP             SA3    SORTR.B           FETCH PRESET BUCKETS                          REFMAP      1920     A     
 REFMAP             SA4    A3+B5                                                           REFMAP      1921     A     
 REFMAP             MX7    0                                                               REFMAP      1922     A     
 REFMAP             SA5    A4+B5                                                           REFMAP      1923     A     
 REFMAP             BX6    X3                                                              REFMAP      1924     A     
 REFMAP             SA7    O.REFS            CLEAR O.REFS,O.DEFS,O.FREF                    REFMAP      1925     A     
 REFMAP             SA6    DSRB                                                            REFMAP      1926     A     
 REFMAP             SA7    A7+B5                                                           REFMAP      1927     A     
 REFMAP             BX6    X4                                                              REFMAP      1928     A     
 REFMAP             SA6    A6+B5                                                           REFMAP      1929     A     
 REFMAP             SA7    A7+B5                                                           REFMAP      1930     A     
 REFMAP             BX6    X5                                                              REFMAP      1931     A     
 REFMAP             SA6    A6+B5                                                           REFMAP      1932     A     
 REFMAP                                                                                    REFMAP      1933     A     
 REFMAP             SX5    B5                                                              REFMAP      1934     A     
 REFMAP             LX5    P.REP             TO INCREMENT THE REP COUNT                    REFMAP      1935     A     
 REFMAP                                                                                    REFMAP      1936     A     
 REFMAP             SB3    57                                                              REFMAP      1937     A     
 REFMAP             SB2    DSRB              FWA OF THE BUCKETS                            REFMAP      1938     A     
 REFMAP             EQ     SORTRLL                                                         REFMAP      1939     A     
 REFMAP                                                                                    REFMAP      1940     A     
 REFMAP   *         TWO ENTRIES THE SAME                                                   REFMAP      1941     A     
 REFMAP                                                                                    REFMAP      1942     A     
 REFMAP    SORTRLI  IX6    X4+X5             INCREMENT REP COUNT                           REFMAP      1943     A     
 REFMAP             SA6    A4                STORE ENTRY                                   REFMAP      1944     A     
 REFMAP                                                                                    REFMAP      1945     A     
 REFMAP   *         SORT LOOP                                                              REFMAP      1946     A     
 REFMAP                                                                                    REFMAP      1947     A     
 REFMAP    SORTRLL  SX1    X2                                                              REFMAP      1948     A     
 REFMAP             SA2    X1                FETCH ENTRY                                   REFMAP      1949     A     
 REFMAP             ZR     X1,SORTRL         IF FINISHED                                   REFMAP      1950     A     
 REFMAP             AX7    B3,X2             POSITION REF/DEF BITS                         REFMAP      1951     A     
 REFMAP             BX6    X2*X0             EXTRACT LINE NUMBER                           REFMAP      1952     A     
 REFMAP             SA3    X7+B2             FETCH BUCKET                                  REFMAP      1953     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2783    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP                                                                                    REFMAP      1954     A     
 REFMAP             BX7    X0*X3             X7 = 30/FWA,30/0                              REFMAP      1955     A     
 REFMAP             SA4    X3                X4 = LAST ENTRY                               REFMAP      1956     A     
 REFMAP             BX3    X0*X4             X3 = LINE NUMBER OF LAST ENTRY                REFMAP      1957     A     
 REFMAP             SA6    A2                STORE ENTRY                                   REFMAP      1958     A     
 REFMAP             IX3    X3-X6                                                           REFMAP      1959     A     
 REFMAP             ZR     X3,SORTRLI        JUMP IF THE SAME                              REFMAP      1960     A     
 REFMAP                                                                                    REFMAP      1961     A     
 REFMAP   *         ADD ITEM TO LIST                                                       REFMAP      1962     A     
 REFMAP                                                                                    REFMAP      1963     A     
 REFMAP             BX6    X4+X1             UPDATE THE LAST ENTRY                         REFMAP      1964     A     
 REFMAP             IX7    X7+X1             UPDATE BUCKET                                 REFMAP      1965     A     
 REFMAP             SA6    A4                                                              REFMAP      1966     A     
 REFMAP             SA7    A3                                                              REFMAP      1967     A     
 REFMAP             EQ     SORTRLL           LOOP FOR THE NEXT ITEM                        REFMAP      1968     A     
 REFMAP             SPACE  3                                                               REFMAP      1969     A     
 REFMAP   *         PRESET DUMMY BUCKETS ( MOVED TO DSRB )                                 REFMAP      1970     A     
 REFMAP                                                                                    REFMAP      1971     A     
 REFMAP    SORTR.B  FRSTB  REFS                                                            REFMAP      1972     A     
 REFMAP             FRSTB  DEFS                                                            REFMAP      1973     A     
 REFMAP             FRSTB  FREF                                                            REFMAP      1974     A     
 REFMAP             TITLE              SORTR - REFERENCE TABLE SORT                        REFMAP      1975     A     
 REFMAP   ***                                                                              REFMAP      1976     A     
 REFMAP   *         SORTR - SORT THE REFERENCE TABLE                                       REFMAP      1977     A     
 REFMAP   *                                                                                REFMAP      1978     A     
 REFMAP   *         INPUT:   "REFMAP" FILE - THE REFERENCES GROUPED BY LINE NUMBER         REFMAP      1979     A     
 REFMAP   *                                                                                REFMAP      1980     A     
 REFMAP   *         SORTS THE ACCUMULATED REFERENCE TABLE A LINE AT A TIME,                REFMAP      1981     A     
 REFMAP   *         BUILDING A BASE TABLE STARTING AT (O.REFBAS), WHOSE FORMAT             REFMAP      1982     A     
 REFMAP   *         IS: 30/FIRST,30/LAST                                                   REFMAP      1983     A     
 REFMAP   *                                                                                REFMAP      1984     A     
 REFMAP   *         AND A REFERENCE LIST STARTING AT (O.REFBAS) + NSYMBOLS                 REFMAP      1985     A     
 REFMAP   *         FOR EACH REFERENCED NAME IN THE SYMBOL TABLE                           REFMAP      1986     A     
 REFMAP   *         FORMAT:  12/REF BITS,6/6*NCHAR,24/4R LINE NO ,18/LINK                  REFMAP      1987     A     
 REFMAP   *                                                                                REFMAP      1988     A     
 REFMAP   *         (REFACC) = 1S59 IF REFERENCES WERE ACCUMULATED                         REFMAP      1989     A     
 REFMAP   *                                                                                REFMAP      1990     A     
 REFMAP                                                                                    REFMAP      1991     A     
 REFMAP   *         ERROR MESSAGES                                                         REFMAP      1992     A     
 REFMAP                                                                                    REFMAP      1993     A     
 REFMAP    LOSTREF  DIS    ,*0  REFERENCES AFTER LINE     0 LOST*                          REFMAP      1994     A     
 REFMAP    INCFL    DIS    ,/  ** INCREASE FL BY NNNNNNB/                                  REFMAP      1995     A     
 REFMAP             SPACE  3                                                               REFMAP      1996     A     
 REFMAP    SRT2     PL     B2,SRT3           IF END-OF-BUFFER, GO REFILL IT                REFMAP      1997     A     
 REFMAP             SB5    B1                                                              REFMAP      1998     A     
 REFMAP                                                                                    REFMAP      1999     A     
 REFMAP    SORTR                             ** ENTRY/EXIT LINE **                         REFMAP      2000     A     
 REFMAP             SA5    RSELECT                                                         REFMAP      2001     A     
 REFMAP             PL     X5,SORTR    EXIT IF R .LT. 2                                    REFMAP      2002     A     
 REFMAP                                                                                    REFMAP      2003     A     
 REFMAP   #RM       IFEQ   CP#RM,0                                                         REFMAP      2004     A     
 REFMAP             READ   =XF.RMAP,RCL                                                    REFMAP      2005     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2784    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP   #RM       ENDIF                                                                  REFMAP      2006     A     
 REFMAP             SB1    1                                                               REFMAP      2007     A     
 REFMAP             SA1    O.CNTBL           LWA+1 OF WORKING STORAGE                      REFMAP      2008     A     
 REFMAP             SA2    O.REFBAS                                                        REFMAP      2009     A     
 REFMAP             SA3    O.REFTAB                                                        REFMAP      2010     A     
 REFMAP             MX6    1                                                               REFMAP      2011     A     
 REFMAP             IX4    X1-X3             LWAWORK - O.REFTAB                            REFMAP      2012     A     
 REFMAP             NG     X4,SORTERR        IF NOT ENOUGH ROOM FOR A BASE TABLE           REFMAP      2013     A     
 REFMAP             SA6    REFACC            SET REFERENCES ACCUMULATED FLAG               REFMAP      2014     A     
 REFMAP             IX1    X3-X2             (X1) = BASE TABLE LENGTH                      REFMAP      2015     A     
 REFMAP             SETZERO   X2,X1          CLEAR BASE TABLE                              REFMAP      2016     A     
 REFMAP             SA6    RBUF+RBUFL        LINE TERMINATOR TO *RBUF* LWA+1               REFMAP      2017     A     
 REFMAP                                                                                    REFMAP      2018     A     
 REFMAP   *         FILL *RBUF* WITH REF/DEF INFORMATION.                                  REFMAP      2019     A     
 REFMAP                                                                                    REFMAP      2020     A     
 REFMAP    SRT3     SX6    RBUF                                                            REFMAP      2021     A     
 REFMAP             SA6    TEMP              INITIALIZE BUFFER POINTER                     REFMAP      2022     A     
 REFMAP             READW  =XF.RMAP,X6,RBUFL                                               REFMAP      2023     A     
 REFMAP             MI     X1,SRT9           IF PREMATURE EOF                              REFMAP      2024     A     
 REFMAP                                                                                    REFMAP      2025     A     
 REFMAP   *         BEGIN PROCESSING NEW REF/DEF LINE.                                     REFMAP      2026     A     
 REFMAP                                                                                    REFMAP      2027     A     
 REFMAP    SRT4     SA1    TEMP                                                            REFMAP      2028     A     
 REFMAP             MX0    -12                                                             REFMAP      2029     A     
 REFMAP             SA2    X1                (X2) = FIRST WORD OF LINE                     REFMAP      2030     A     
 REFMAP             SB2    X1-RBUF-RBUFL                                                   REFMAP      2031     A     
 REFMAP             ZR     X2,SRT2           IF END OF DATA OR END OF BUFFER               REFMAP      2032     A     
 REFMAP                                                                                    REFMAP      2033     A     
 REFMAP   *         FIND END OF LINE.                                                      REFMAP      2034     A     
 REFMAP                                                                                    REFMAP      2035     A     
 REFMAP    SRT5     BX6    -X0*X2                                                          REFMAP      2036     A     
 REFMAP             SA2    A2+B1                                                           REFMAP      2037     A     
 REFMAP             NZ     X6,SRT5           IF NOT END OF LINE                            REFMAP      2038     A     
 REFMAP             SB7    X1                (B7) = LINE FWA (-CDD- DOES NOT USE)          REFMAP      2039     A     
 REFMAP             SX6    A2                LINE LWA+1                                    REFMAP      2040     A     
 REFMAP             SX7    A2-B7             LINE LENGTH                                   REFMAP      2041     A     
 REFMAP             SA6    A1                                                              REFMAP      2042     A     
 REFMAP             SA7    SWC                                                             REFMAP      2043     A     
 REFMAP                                                                                    REFMAP      2044     A     
 REFMAP   *         LOOP PROLOGUE                                                          REFMAP      2045     A     
 REFMAP                                                                                    REFMAP      2046     A     
 REFMAP             SA1    B7                (X1) = FIRST WORD OF LINE                     REFMAP      2047     A     
 REFMAP             AX1    45                                                              REFMAP      2048     A     
 REFMAP             CALL   CDD                                                             REFMAP      2049     A     
 REFMAP             MX7    60-L.BCDLN                                                      REFMAP      2050     A     
 REFMAP             BX0    -X7*X6            4R LINE NO                                    REFMAP      2051     A     
 REFMAP             SX2    B2                                                              REFMAP      2052     A     
 REFMAP             LX2    L.BCDLN           JUSTIFY SHIFT COUNT                           REFMAP      2053     A     
 REFMAP             IX0    X2+X0                                                           REFMAP      2054     A     
 REFMAP             LX0    P.BCDLN           12/0,6/6*NCHAR,24/ 4R LINE NO,18/0            REFMAP      2055     A     
 REFMAP                                                                                    REFMAP      2056     A     
 REFMAP   *         COUNT THE NUMBER OF PARCELS IN THE LINE USING THE PARCEL COUNT         REFMAP      2057     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2785    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP   *         FOR THE LAST WORD PLACED IN IT BY "ADDREF"                             REFMAP      2058     A     
 REFMAP   *         NUM OF PARCELS = 4*( WC - 1 ) + PARCEL COUNT - 1                       REFMAP      2059     A     
 REFMAP                                                                                    REFMAP      2060     A     
 REFMAP             SA1    SWC                                                             REFMAP      2061     A     
 REFMAP             SB5    15                (B5) = 15 = SHIFT COUNT DECREMENT             REFMAP      2062     A     
 REFMAP             SX2    X1-1              WC-1                                          REFMAP      2063     A     
 REFMAP             SA3    B7+X2             (X3) = LAST WORD OF LINE                      REFMAP      2064     A     
 REFMAP             SB2    B5+B5             (B2) = 30 = INITIAL SHIFT COUNT               REFMAP      2065     A     
 REFMAP             SA1    B7                (X1) = FIRST WORD OF LINE                     REFMAP      2066     A     
 REFMAP             MX7    57                                                              REFMAP      2067     A     
 REFMAP             AX3    12                                                              REFMAP      2068     A     
 REFMAP             BX6    -X7*X3            NUMBER OF PARCELS IN THE LAST WORD            REFMAP      2069     A     
 REFMAP             LX2    2                 4*(WC-1)                                      REFMAP      2070     A     
 REFMAP             IX7    X6+X2                                                           REFMAP      2071     A     
 REFMAP             SB7    X7-1                                                            REFMAP      2072     A     
 REFMAP                                                                                    REFMAP      2073     A     
 REFMAP             SA4    O.REFBAS                                                        REFMAP      2074     A     
 REFMAP             SA5    O.REFTAB                                                        REFMAP      2075     A     
 REFMAP             SA3    O.CNTBL                                                         REFMAP      2076     A     
 REFMAP             SB3    X4                                                              REFMAP      2077     A     
 REFMAP             SB6    X5                                                              REFMAP      2078     A     
 REFMAP             MX4    60-12                                                           REFMAP      2079     A     
 REFMAP             IX3    X3-X5             STORAGE LEFT                                  REFMAP      2080     A     
 REFMAP             SB7    B6+B7             LWA+1 TO BE STORED INTO                       REFMAP      2081     A     
 REFMAP             MX5    3                                                               REFMAP      2082     A     
 REFMAP             SB4    B2+B5             (B4) = 45 = SHIFT COUNT RESET                 REFMAP      2083     A     
 REFMAP             IX6    X3-X7             LEFT - NEEDED                                 REFMAP      2084     A     
 REFMAP             NG     X6,SORTERR2       IF NOT ENOUGH                                 REFMAP      2085     A     
 REFMAP             SX6    B7                                                              REFMAP      2086     A     
 REFMAP             SA6    A5                UPDATE O.REFTAB ( NEXT WORD AVAILABLE         REFMAP      2087     A     
 REFMAP             SPACE  3                                                               REFMAP      2088     A     
 REFMAP   *                                                                                REFMAP      2089     A     
 REFMAP   *                            X0 = 4R LINE NR S18                                 REFMAP      2090     A     
 REFMAP   *         A1 = ADR CURR WORD X1 = CURRENT WORD        B1 = 1                     REFMAP      2091     A     
 REFMAP   *         A2 = BUCKET ADD    X2 = BUCKET              B2 = SHIFT COUNT           REFMAP      2092     A     
 REFMAP   *         A3 =LAST REF ADD   X3 = LAST REFERENCE IN BK  B3 = (O.REFBAS)          REFMAP      2093     A     
 REFMAP   *                            X4 = MASK(48)            B4 = 45                    REFMAP      2094     A     
 REFMAP   *                            X5 = MASK(3)             B5 = 15                    REFMAP      2095     A     
 REFMAP   *                                                     B6 = (O.REFTAB)            REFMAP      2096     A     
 REFMAP   *                            X7 = THIS REF            B7 = LWA+1                 REFMAP      2097     A     
 REFMAP   *                                                                                REFMAP      2098     A     
 REFMAP    SRT6     PL     B2,SRT7           IF MORE PARCELS IN CURRENT WORD               REFMAP      2099     A     
 REFMAP             SA1    A1+B1             (X1) = NEXT WORD                              REFMAP      2100     A     
 REFMAP             SB2    B4                RESET SHIFT COUNT                             REFMAP      2101     A     
 REFMAP    SRT7     AX7    X1,B2             RIGHT JUSTIFY PARCEL TO BE PROCESSED          REFMAP      2102     A     
 REFMAP             SB2    B2-B5             SHIFT COUNT - 15                              REFMAP      2103     A     
 REFMAP             BX3    -X4*X7            EXTRACT VARIABLE ORDINAL                      REFMAP      2104     A     
 REFMAP             SA2    B3+X3             FETCH BUCKET                                  REFMAP      2105     A     
 REFMAP             LX7    45                                                              REFMAP      2106     A     
 REFMAP             SA3    X2                FETCH LAST ENTRY                              REFMAP      2107     A     
 REFMAP             BX6    X5*X7             EXTRACT REF/DEF BITS                          REFMAP      2108     A     
 REFMAP             AX2    30                POSITION BUCKET                               REFMAP      2109     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2786    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             IX7    X6+X0             REF + LINE NUMBER                             REFMAP      2110     A     
 REFMAP             SA7    B6                STORE                                         REFMAP      2111     A     
 REFMAP             SX6    B6                ADDRESS OF THIS ENTRY                         REFMAP      2112     A     
 REFMAP             NZ     X2,SRT8           IF NOT FIRST BUCKET ENTRY                     REFMAP      2113     A     
 REFMAP             SA3    B3                A3 = (O.REFBAS)                               REFMAP      2114     A     
 REFMAP             BX2    X6                X2 = ADDR OF THIS ENTRY                       REFMAP      2115     A     
 REFMAP                                                                                    REFMAP      2116     A     
 REFMAP   *         ADD REFERENCE TO LIST                                                  REFMAP      2117     A     
 REFMAP                                                                                    REFMAP      2118     A     
 REFMAP    SRT8     BX7    X3+X6                                                           REFMAP      2119     A     
 REFMAP             SA7    A3                UPDATE THE REFERENCE                          REFMAP      2120     A     
 REFMAP             LX2    30                POSITION FWA                                  REFMAP      2121     A     
 REFMAP             SB6    B6+B1             WSA + 1                                       REFMAP      2122     A     
 REFMAP             IX6    X2+X6             30/FWA,30/LAST                                REFMAP      2123     A     
 REFMAP             SA6    A2                STORE NEW BUCKET                              REFMAP      2124     A     
 REFMAP             LT     B6,B7,SRT6        IF LINE NOT ALL PROCESSED                     REFMAP      2125     A     
 REFMAP             EQ     SRT4              LOOP FOR NEXT LINE                            REFMAP      2126     A     
 REFMAP                                                                                    REFMAP      2127     A     
 REFMAP   *         PROCESS PREMATURE EOF ON -REFMAP- FILE.                                REFMAP      2128     A     
 REFMAP                                                                                    REFMAP      2129     A     
 REFMAP    SRT9     BSS    0                                                               REFMAP      2130     A     
 REFMAP    .T       IFEQ   TEST,0                                                          REFMAP      2131     A     
 REFMAP             SB5    1                                                               REFMAP      2132     A     
 REFMAP             EQ     SORTR             EXIT                                          REFMAP      2133     A     
 REFMAP    .T       ELSE                                                                   REFMAP      2134     A     
 REFMAP             MESSAGE   RMAPERR,,RCL                                                 REFMAP      2135     A     
 REFMAP             EQ     -1                ABORT JOB                                     REFMAP      2136     A     
 REFMAP    RMAPERR  DIS    ,/** PREMATURE EOF ON -REFMAP- FILE./                           REFMAP      2137     A     
 REFMAP    .T       ENDIF                                                                  REFMAP      2138     A     
 REFMAP             TITLE              ERROR HANDLING ( NOT ENOUGH STORAGE )               REFMAP      2139     A     
 REFMAP   *         NOT ENOUGH STORAGE TO BUILD A FULL REFERENCE TABLE                     REFMAP      2140     A     
 REFMAP                                                                                    REFMAP      2141     A     
 REFMAP    SORTERR  BX6    -X4                                                             REFMAP      2142     A     
 REFMAP             SB1    1                                                               REFMAP      2143     A     
 REFMAP             SA6    TEMP              SAVE EXTRA FL NEEDED                          REFMAP      2144     A     
 REFMAP             EQ     SERR4                                                           REFMAP      2145     A     
 REFMAP                                                                                    REFMAP      2146     A     
 REFMAP    SORTERRX LISTL  LOSTREF,4         PUT OUT LOST REFERENCES MESSAGE               REFMAP      2147     A     
 REFMAP             SA1    TEMP                                                            REFMAP      2148     A     
 REFMAP             RJ     INCRFL            ISSUE A PLEA FOR MORE FL                      REFMAP      2149     A     
 REFMAP             SB5    1                                                               REFMAP      2150     A     
 REFMAP             EQ     SORTR             EXIT                                          REFMAP      2151     A     
 REFMAP                                                                                    REFMAP      2152     A     
 REFMAP    SORTERR2 AX0    18                POSITION LINE NUMBER                          REFMAP      2153     A     
 REFMAP             SA3    LOSTREF+2                                                       REFMAP      2154     A     
 REFMAP             MX2    60-L.BCDLN                                                      REFMAP      2155     A     
 REFMAP             BX0    -X2*X0                                                          REFMAP      2156     A     
 REFMAP             BX3    X3*X2                                                           REFMAP      2157     A     
 REFMAP             IX6    X3+X0                                                           REFMAP      2158     A     
 REFMAP             SA6    A3                                                              REFMAP      2159     A     
 REFMAP             SX7    A1-RBUF-RBUFL                                                   REFMAP      2160     A     
 REFMAP             BX7    -X7               LENGTH OF DATA IN INPUT BUFFER                REFMAP      2161     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2787    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             LX7    2                 *4 = (APPROX) NR PARCELS LEFT                 REFMAP      2162     A     
 REFMAP             SB1    1                                                               REFMAP      2163     A     
 REFMAP             SA7    TEMP                                                            REFMAP      2164     A     
 REFMAP                                                                                    REFMAP      2165     A     
 REFMAP   *         READ THE REST OF THE FILE AND ESTIMATE HOW MUCH STORAGE                REFMAP      2166     A     
 REFMAP   *         IS NECESSARY FOR A FULL MAP                                            REFMAP      2167     A     
 REFMAP                                                                                    REFMAP      2168     A     
 REFMAP    SERR3    SA1    RBUF+RBUFL-1      LAST WORD IN BUFFER                           REFMAP      2169     A     
 REFMAP             NZ     X1,SERR4    IF NOT AT THE END OF REFERENCES BLOCK               FCC2239       22     A     
 REFMAP             SA1    A1-1        2ND LAST WORD IN PRU                                FCC2239       23     A     
 REFMAP             MX6    -12         MASK FOR END OF LINE INDICATOR                      FCC2239       24     A     
 REFMAP             BX1    -X6*X1                                                          FCC2239       25     A     
 REFMAP             ZR     X1,SORTERRX IF AT END OF REFERENCES BLOCK                       FCC2239       26     A     
 REFMAP             ZR     X1,SORTERRX       IF END OF REFERENCES                          REFMAP      2170     A     
 REFMAP    SERR4    READW  =XF.RMAP,RBUF,RBUFL                                             REFMAP      2171     A     
 REFMAP             SA2    TEMP                                                            REFMAP      2172     A     
 REFMAP             SX6    X2+RBUFL*4                                                      REFMAP      2173     A     
 REFMAP             SA6    A2                                                              REFMAP      2174     A     
 REFMAP             ZR     X1,SERR3          IF NOT EOR/EOF                                REFMAP      2175     A     
 REFMAP             EQ     SORTERRX                                                        REFMAP      2176     A     
 REFMAP             SPACE  3                                                               REFMAP      2177     A     
 REFMAP   ***                                                                              REFMAP      2178     A     
 REFMAP   *         INCRFL - ISSUE A LINE TO THE OUTPUT FILE FOR MORE FL                   REFMAP      2179     A     
 REFMAP   *         ON ENTRY:                                                              REFMAP      2180     A     
 REFMAP   *                X1 = AMOUNT OF FL NECESSARY                                     REFMAP      2181     A     
 REFMAP    INCRFL   ROUTINE                                                                REFMAP      2182     A     
 REFMAP             SX1    X1+77B            ROUND UP FL NECESSARY                         REFMAP      2183     A     
 REFMAP             AX1    6                                                               REFMAP      2184     A     
 REFMAP             LX1    6                                                               REFMAP      2185     A     
 REFMAP             RJ     OCTC              CONVERT TO DISPLAY CODE                       REFMAP      2186     A     
 REFMAP             SA6    INCFL+2           STORE IN MESSAGE                              REFMAP      2187     A     
 REFMAP             SB1    1                                                               REFMAP      2188     A     
 REFMAP             LISTL  INCFL,3           PLACE MESSAGE ON OUTPUT                       REFMAP      2189     A     
 REFMAP             SB5    1                                                               REFMAP      2190     A     
 REFMAP             EQ     INCRFL                                                          REFMAP      2191     A     
 REFMAP             TITLE              PML - PRINT MISSING LABELS                          REFMAP      2192     A     
 REFMAP   ***                                                                              REFMAP      2193     A     
 REFMAP   *         PML - PRINT MISSING LABELS                                             REFMAP      2194     A     
 REFMAP   *                                                                                REFMAP      2195     A     
 REFMAP    PML                                                                             REFMAP      2196     A     
 REFMAP             SB1    1                                                               REFMAP      2197     A     
 REFMAP             SB6    =2C                                                             REFMAP      2198     A     
 REFMAP             LISTL  B6,B1             BLANK LINE                                    REFMAP      2199     A     
 REFMAP             SB5    B1                                                              REFMAP      2200     A     
 REFMAP             SA5    =18L UNDEFINED LABELS                                           REFMAP      2201     A     
 REFMAP             RJ     PIL               PRINT HEADER LINE                             REFMAP      2202     A     
 REFMAP             SA5    O.LABEL                                                         REFMAP      2203     A     
 REFMAP                                                                                    REFMAP      2204     A     
 REFMAP    PML.LP   MX3    2                 LOOP PROLOGUE                                 REFMAP      2205     A     
 REFMAP             SB1    B5                WC = 1                                        REFMAP      2206     A     
 REFMAP             MX0    30                                                              REFMAP      2207     A     
 REFMAP             LX3    2+P.SLD                                                         REFMAP      2208     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2788    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SB6    WPL                                                             REFMAP      2209     A     
 REFMAP             SB7    LBUF              FWA OF BUFFER                                 REFMAP      2210     A     
 REFMAP                                                                                    REFMAP      2211     A     
 REFMAP                                                                                    REFMAP      2212     A     
 REFMAP    PML.L    SA5    X5                                                              REFMAP      2213     A     
 REFMAP             SA1    X5                WORD A                                        REFMAP      2214     A     
 REFMAP             SA2    A1-B5             WORD B                                        REFMAP      2215     A     
 REFMAP             BX4    X3*X2                                                           REFMAP      2216     A     
 REFMAP             AX5    30                                                              REFMAP      2217     A     
 REFMAP             ZR     X4,PML.U          IF UNDEFINED                                  REFMAP      2218     A     
 REFMAP    PML.L1   NZ     X5,PML.L          IF MORE TO GO                                 REFMAP      2219     A     
 REFMAP             RJ     DLL               DUMP THE LINE                                 REFMAP      2220     A     
 REFMAP             EQ     PML                                                             REFMAP      2221     A     
 REFMAP                                                                                    REFMAP      2222     A     
 REFMAP   *         UNDEFINED LABEL - FORMAT IT AND PRINT IT OUT                           REFMAP      2223     A     
 REFMAP                                                                                    REFMAP      2224     A     
 REFMAP    PML.U    LX1    6                                                               REFMAP      2225     A     
 REFMAP             SA2    =5L                                                             REFMAP      2226     A     
 REFMAP             BX4    X0*X1             5L_LABEL                                      REFMAP      2227     A     
 REFMAP             LX2    30                                                              REFMAP      2228     A     
 REFMAP             BX7    X4+X2                                                           REFMAP      2229     A     
 REFMAP             SA7    B7+B1                                                           REFMAP      2230     A     
 REFMAP             SB1    B1+B5             WC = WC+1                                     REFMAP      2231     A     
 REFMAP             LT     B1,B6,PML.L1      IF NOT A FULL LINE                            REFMAP      2232     A     
 REFMAP                                                                                    REFMAP      2233     A     
 REFMAP             SX6    X5                                                              REFMAP      2234     A     
 REFMAP             MX0    48                                                              REFMAP      2235     A     
 REFMAP             SA6    TEMP                                                            REFMAP      2236     A     
 REFMAP             BX7    X0*X7                                                           REFMAP      2237     A     
 REFMAP             SA7    A7                ZERO BYTE TO THE LAST WORD                    REFMAP      2238     A     
 REFMAP             SB6    B7                                                              REFMAP      2239     A     
 REFMAP             SB7    B1                                                              REFMAP      2240     A     
 REFMAP             SB1    1                                                               REFMAP      2241     A     
 REFMAP             LISTL  B6,B7                                                           REFMAP      2242     A     
 REFMAP             SA5    TEMP                                                            REFMAP      2243     A     
 REFMAP             SB5    1                                                               REFMAP      2244     A     
 REFMAP             ZR     X5,PML            IF FINISHED                                   REFMAP      2245     A     
 REFMAP             EQ     PML.LP            LOOP                                          REFMAP      2246     A     
 REFMAP             TITLE              SORTC - CATEGORY SORT                               REFMAP      2247     A     
 REFMAP   ***                                                                              REFMAP      2248     A     
 REFMAP   *         STORAGE PAST THIS POINT OVERLAID AFTER THE CATEGORY SORT               REFMAP      2249     A     
 REFMAP   *                                                                                REFMAP      2250     A     
 REFMAP    RBUF     BSS    0                 FWA OF INPUT BUFFER FOR SORTR                 REFMAP      2251     A     
 REFMAP    RBUFL    =      100B              BUFFER LEN (SEE -ADDREF- IN -PS1CTL-)         REFMAP      2252     A     
 REFMAP    EBUF     EQU    RBUF+M.NCB+7      FWA OF EQV CLASS BUFFER                       REFMAP      2253     A     
 REFMAP             SPACE  3                                                               REFMAP      2254     A     
 REFMAP   ***                                                                              REFMAP      2255     A     
 REFMAP   *         SORTC - CATEGORY SORT FOR FOR SYMBOLIC NAMES                           REFMAP      2256     A     
 REFMAP   *                                                                                REFMAP      2257     A     
 REFMAP   *         SORTS THE UNDIFFERENTIATED LIST OF NAMES IN TO THE                     REFMAP      2258     A     
 REFMAP   *         FOLLOWING LISTS:                                                       REFMAP      2259     A     
 REFMAP   *                                                                                REFMAP      2260     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2789    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP   *         O.VAR - VARIABLES,ARRAYS,FORMAL PARAMETERS AND RETURNS NAMES           REFMAP      2261     A     
 REFMAP   *         O.ASF - INTRINSIC AND ARITHMETIC STMT FUNCTIONS                        REFMAP      2262     A     
 REFMAP   *         O.EXT - EXTERNAL REFERENCES ( FUNCTIONS AND SUBROUTINES )              REFMAP      2263     A     
 REFMAP   *         O.NML - NAMELIST GROUP NAMES                                           REFMAP      2264     A     
 REFMAP   *         O.ENT - ENTRY POINT NAMES                                              REFMAP      2265     A     
 REFMAP   *         O.LFN - LOGICAL FILE NAMES                                             REFMAP      2266     A     
 REFMAP   *         O.UDBG - UNUSED DEBUG VARIABLES                                        REFMAP      2267     A     
 REFMAP   *                                                                                REFMAP      2268     A     
 REFMAP   *         EACH POINTER IS OF THE FORM 30/NEXT ENTRY,30/0                         REFMAP      2269     A     
 REFMAP   *                                                                                REFMAP      2270     A     
 REFMAP                                                                                    REFMAP      2271     A     
 REFMAP   *         PRESET BUCKETS FOR THE CATEGORY SORT                                   REFMAP      2272     A     
 REFMAP   *         THE EFFECT OF THESE BUCKETS IS TO AVOID THE FIRST TIME LOGIC           REFMAP      2273     A     
 REFMAP   *         AND HELP THIS SORT LOOP REMAIN IN STACK                                REFMAP      2274     A     
 REFMAP                                                                                    REFMAP      2275     A     
 REFMAP             FRSTB  ENT               ENTRY POINTS                                  REFMAP      2276     A     
 REFMAP             FRSTB  NML               NAMELIST                                      REFMAP      2277     A     
 REFMAP             FRSTB  EXT               EXTERNAL REFS                                 REFMAP      2278     A     
 REFMAP             FRSTB  VAR               VARIABLES, ETC                                REFMAP      2279     A     
 REFMAP             FRSTB  ASF               LOCAL FUNCTIONS                               REFMAP      2280     A     
 REFMAP             FRSTB  LFN               FILE NAMES                                    REFMAP      2281     A     
 REFMAP             FRSTB  CGS               COMPILER GENERATED SYMBOLS                    REFMAP      2282     A     
 REFMAP             FRSTB  UDBG              UNUSED DEBUG VARIABLES                        REFMAP      2283     A     
 REFMAP             SPACE  3                                                               REFMAP      2284     A     
 REFMAP    SORTC                                                                           REFMAP      2285     A     
 REFMAP             SA1    O.NAME                                                          REFMAP      2286     A     
 REFMAP             ZR     X1,SORTC          IF NO NAMES                                   REFMAP      2287     A     
 REFMAP                                                                                    REFMAP      2288     A     
 REFMAP             MX0    L.TYP                                                           REFMAP      2289     A     
 REFMAP             SB7    -B5                                                             REFMAP      2290     A     
 REFMAP             SX4    B5+B5             X4 = 2                                        REFMAP      2291     A     
 REFMAP             MX5    59                                                              REFMAP      2292     A     
 REFMAP                                                                                    REFMAP      2293     A     
 REFMAP    SORTCL   SA1    X1                30/NEXT,30/WORD A                             REFMAP      2294     A     
 REFMAP             SA2    X1+B7             WORD B                                        REFMAP      2295     A     
 REFMAP             AX1    30                                                              REFMAP      2296     A     
 REFMAP             SA3    A2+B5             WORD A                                        REFMAP      2297     A     
 REFMAP             SX7    A2+B5                                                           REFMAP      2298     A     
 REFMAP             AX3    P.FUN                                                           REFMAP      2299     A     
 REFMAP             SA7    A1                CLEAR LINK FIELD                              REFMAP      2300     A     
 REFMAP             BX6    -X5*X3            0 OR 1                                        REFMAP      2301     A     
 REFMAP             NG     X2,SORTC1         IF NAMELIST , ENTRY , ETC                     REFMAP      2302     A     
 REFMAP                                                                                    REFMAP      2303     A     
 REFMAP             AX2    P.EXT-1                                                         REFMAP      2304     A     
 REFMAP             BX7    X4*X2             0 OR 2                                        REFMAP      2305     A     
 REFMAP             IX6    X6+X7             FUN + 2*EXT BITS                              REFMAP      2306     A     
 REFMAP             SA2    EBUCADD+X6                                                      REFMAP      2307     A     
 REFMAP                                                                                    REFMAP      2308     A     
 REFMAP   *         ADD ENTRY TO LIST , B1 = ADDRESS OF BUCKET                             REFMAP      2309     A     
 REFMAP                                                                                    REFMAP      2310     A     
 REFMAP    SORTCA   SA2    X2                BUCKET - 30/FIRST,30/LAST                     REFMAP      2311     A     
 REFMAP             SA3    X2                LAST ENTRY                                    REFMAP      2312     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2790    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             AX2    30                                                              REFMAP      2313     A     
 REFMAP             SX6    A1                                                              REFMAP      2314     A     
 REFMAP             LX6    30                                                              REFMAP      2315     A     
 REFMAP             BX7    X6+X3             POINT PREVIOUS ENTRY TO THIS ONE              REFMAP      2316     A     
 REFMAP             SA7    A3                                                              REFMAP      2317     A     
 REFMAP             BX6    X6+X2             30/LAST,30/FIRST                              REFMAP      2318     A     
 REFMAP             LX6    30                                                              REFMAP      2319     A     
 REFMAP             SA6    A2                UPDATE BUCKET                                 REFMAP      2320     A     
 REFMAP             NZ     X1,SORTCL         IF NOT FINISHED                               REFMAP      2321     A     
 REFMAP             EQ     SORTC                                                           REFMAP      2322     A     
 REFMAP                                                                                    REFMAP      2323     A     
 REFMAP    SORTC1   BX3    X0*X2             EXTRACT TYPE                                  REFMAP      2324     A     
 REFMAP             LX3    L.TYP                                                           REFMAP      2325     A     
 REFMAP             SA2    BUCKADD-T.NML+X3                                                REFMAP      2326     A     
 REFMAP             EQ     SORTCA                                                          REFMAP      2327     A     
 REFMAP                                                                                    REFMAP      2328     A     
 REFMAP   *         INDEX TABLE FOR VARIABLE NAME FETCH                                    REFMAP      2329     A     
 REFMAP                                                                                    REFMAP      2330     A     
 REFMAP   *                                 EXT  FUN                                       REFMAP      2331     A     
 REFMAP    EBUCADD  VFD    60/F.VAR          0   0                                         REFMAP      2332     A     
 REFMAP             VFD    60/F.ASF          0   1                                         REFMAP      2333     A     
 REFMAP             VFD    60/F.EXT          1   0                                         REFMAP      2334     A     
 REFMAP             VFD    60/F.EXT          1   1                                         REFMAP      2335     A     
 REFMAP                                                                                    REFMAP      2336     A     
 REFMAP   *         INDEX TABLE FOR TYPES 10 - 17 ( NAMELIST , ENTRY , 0 , UNDBG )         REFMAP      2337     A     
 REFMAP                                                                                    REFMAP      2338     A     
 REFMAP    BUCKADD  VFD    60/F.NML                                                        REFMAP      2339     A     
 REFMAP             VFD    60/F.UDBG         UNUSED                                        REFMAP      2340     A     
 REFMAP             VFD    60/F.ENT                                                        REFMAP      2341     A     
 REFMAP             VFD    60/F.LFN                                                        REFMAP      2342     A     
 REFMAP             VFD    60/F.CGS                                                        REFMAP      2343     A     
 REFMAP             DUP    T.DBG-T.CGS,1                                                   REFMAP      2344     A     
 REFMAP             VFD    60/F.UDBG                                                       REFMAP      2345     A     
 REFMAP             TITLE              SORTSYM - SYMBOL TABLE SORT                         REFMAP      2346     A     
 REFMAP   *****                                                                            REFMAP      2347     A     
 REFMAP   *         TABLES INVOLVED:                                                       REFMAP      2348     A     
 REFMAP   *                                                                                REFMAP      2349     A     
 REFMAP   *         SYMBOL TABLE - 2 WORDS / ENTRY                                         REFMAP      2350     A     
 REFMAP   *         FORMAT:  60/FLAGS,48/8H_NAME,12/FLAGS                                  REFMAP      2351     A     
 REFMAP   *                                                                                REFMAP      2352     A     
 REFMAP   *         POINTER TABLE - 1 WORD / ENTRY                                         REFMAP      2353     A     
 REFMAP   *         FORMAT:  30/LINK TO NEXT POINTER,30/ADDRESS OF SYMTAB ENTRY            REFMAP      2354     A     
 REFMAP   *                                                                                REFMAP      2355     A     
 REFMAP   *         BUCKET TABLE 100B WORDS LONG                                           REFMAP      2356     A     
 REFMAP   *         FORMAT:  30/ADDR OF FIRST ELEMENT,30/ADDR OF LAST ELEMENT              REFMAP      2357     A     
 REFMAP   ***                                                                              REFMAP      2358     A     
 REFMAP   *         A RADIX SORT ON THE CHARACTER IS USED TO SORT THE POINTER              REFMAP      2359     A     
 REFMAP   *         TABLE INTO 64 BUCKETS. THE POINTER TABLE IS THEN LINKED UP             REFMAP      2360     A     
 REFMAP   *         USING THE POINTERS IN THE BUCKETS.  AFTER THE POINTER TABLE            REFMAP      2361     A     
 REFMAP   *         HAS BEEN SORTED ON ALL 7 CHARACTERS OF THE NAME, THE POINTER           REFMAP      2362     A     
 REFMAP   *         TABLE WILL BE IN ALPHABETICAL ORDER.                                   REFMAP      2363     A     
 REFMAP   *                                                                                REFMAP      2364     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2791    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP   *         ONE SHOULD NOTE THAT COMPILER GENERATED SYMBOLS ARE ELIMINATED         REFMAP      2365     A     
 REFMAP   *         VIRTUE OF THE FACT THAT WHEN WE RELINK THE POINTER TABLE, WE           REFMAP      2366     A     
 REFMAP   *         DISCARD ALL ENTRIES THAT FALL INTO BUCKETS ABOVE 45B .                 REFMAP      2367     A     
 REFMAP   *                                                                                REFMAP      2368     A     
 REFMAP   *         THE RESULTS OF SORTING THE POINTER TABLE ARE 4 LINKED LISTS            REFMAP      2369     A     
 REFMAP   *         AND POINTERS TO THE HEAD OF THEM                                       REFMAP      2370     A     
 REFMAP   *                                                                                REFMAP      2371     A     
 REFMAP   *         POINTER                  LIST                                          REFMAP      2372     A     
 REFMAP   *         O.NAME                   NAMES                                         REFMAP      2373     A     
 REFMAP   *         O.LABEL                  STMT LABELS                                   REFMAP      2374     A     
 REFMAP   *         O.LGL                    LOOP GENERATED LABELS                         REFMAP      2375     A     
 REFMAP             SPACE  3                                                               REFMAP      2376     A     
 REFMAP   *         MACRO TO LINK 2 BUCKETS UP, X0 HAS 30 BIT MASK AND X1 BUCKET A         REFMAP      2377     A     
 REFMAP                                                                                    REFMAP      2378     A     
 REFMAP    LINKB    MACRO  BKB                                                             REFMAP      2379     A     
 REFMAP             SA2    B3+BKB                                                          REFMAP      2380     A     
 REFMAP             RJ     LINKUP                                                          REFMAP      2381     A     
 REFMAP             ENDM                                                                   REFMAP      2382     A     
 REFMAP                                                                                    REFMAP      2383     A     
 REFMAP    CHANGE   MACRO  BKB               CHANGE NAMES WITH CHARACTER BKB APPEN         REFMAP      2384     A     
 REFMAP             SA2    B3+1R_BKB                                                       REFMAP      2385     A     
 REFMAP             SX7    55B-1R_BKB                                                      REFMAP      2386     A     
 REFMAP   +         ZR     X2,*+1                                                          REFMAP      2387     A     
 REFMAP             RJ     CNAME                                                           REFMAP      2388     A     
 REFMAP             ENDM                                                                   REFMAP      2389     A     
 REFMAP             EJECT                                                                  REFMAP      2390     A     
 REFMAP   ***                                                                              REFMAP      2391     A     
 REFMAP   *         ERROR EXITS - INSUFFICIENT STORAGE                                     REFMAP      2392     A     
 REFMAP   *         IT IS HIGHLY UNLIKELY THAT EITHER OF THE BELOW ERRORS WILL             REFMAP      2393     A     
 REFMAP   *         EVER OCCUR UNLESS SOMEONE FOWLS UP THE WORKS IN THE PROCESS OF         REFMAP      2394     A     
 REFMAP   *         DEBUGGING THE COMPILER                                                 REFMAP      2395     A     
 REFMAP   *                                                                                REFMAP      2396     A     
 REFMAP    CNERR    SX6    A0-B7             INSUFFICIENT STORAGE TO BUILD CNTBL           REFMAP      2397     A     
 REFMAP             SX7    B7+B5                                                           REFMAP      2398     A     
 REFMAP             SA6    L.CNTBL                                                         REFMAP      2399     A     
 REFMAP             SA7    O.CNTBL                                                         REFMAP      2400     A     
 REFMAP             SX6    -200B                                                           REFMAP      2401     A     
 REFMAP                                                                                    REFMAP      2402     A     
 REFMAP    SORTCER  BX6    -X6                                                             REFMAP      2403     A     
 REFMAP             SA6    TEMP                                                            REFMAP      2404     A     
 REFMAP             SB1    1                                                               REFMAP      2405     A     
 REFMAP             LISTL  SERMSG,3                                                        REFMAP      2406     A     
 REFMAP             SA1    TEMP                                                            REFMAP      2407     A     
 REFMAP             RJ     INCRFL            ISSUE A NEED MORE FL MESSAGE                  REFMAP      2408     A     
 REFMAP             EQ     RMAPX             BY PASS THE REFERENCE MAP                     REFMAP      2409     A     
 REFMAP                                                                                    REFMAP      2410     A     
 REFMAP    SERMSG   DATA   C*0CANT SORT THE SYMBOL TABLE.*                                 REFMAP      2411     A     
 REFMAP             SPACE  3                                                               REFMAP      2412     A     
 REFMAP    SORTSYM                           *** ENTRY/EXIT ***                            REFMAP      2413     A     
 REFMAP             SA3    SYMORD                                                          REFMAP      2414     A     
 REFMAP             SA5    LWAWORK                                                         REFMAP      2415     A     
 REFMAP             SX4    LWA.R             X4 = FWA OF WORKING STORAGE                   REFMAP      2416     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2792    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             BX7    X5                                                              REFMAP      2417     A     
 REFMAP                                                                                    REFMAP      2418     A     
 REFMAP             SA7    O.CNTBL           INITIALIZE O.CNTBL                            REFMAP      2419     A     
 REFMAP             IX6    X3+X4             O.REFBAS = FWAWORK+NSYMBOLS                   REFMAP      2420     A     
 REFMAP             IX7    X6+X3             O.REFTAB = O.REFBAS+NSYMBOLS                  REFMAP      2421     A     
 REFMAP             SX3    X3-1                                                            REFMAP      2422     A     
 REFMAP             SA6    O.REFBAS                                                        REFMAP      2423     A     
 REFMAP             SA7    O.REFTAB                                                        REFMAP      2424     A     
 REFMAP                                                                                    REFMAP      2425     A     
 REFMAP    SOR      IFC    EQ, "C" .                                                       REFMAP      2426     A     
 REFMAP                                                                                    REFMAP      2427     A     
 REFMAP   *         IF THE INSTALLATION SELECTED . AS THE FILE CHARACTER                   REFMAP      2428     A     
 REFMAP   *         MAKE A PASS OVER THE FILE NAMES AND CONVERT THEM TO A #                REFMAP      2429     A     
 REFMAP   *         CHARACTER APPENDED FOR THE DURATION OF REFMAP.  THEY WILL BE           REFMAP      2430     A     
 REFMAP   *         CHANGED BACK ON EXIT                                                   REFMAP      2431     A     
 REFMAP   *         CHANGE ALL FILE NAMES SO THAT THEY ARE APPENDED WITH A #               REFMAP      2432     A     
 REFMAP   *         INSTEAD OF A .   THIS PREVENTS CONFUSION WITH BASIC EXTERNAL           REFMAP      2433     A     
 REFMAP   *         NAMES IN THE SYMBOL TABLE                                              REFMAP      2434     A     
 REFMAP                                                                                    REFMAP      2435     A     
 REFMAP             SA1    N.FILES                                                         REFMAP      2436     A     
 REFMAP             ZR     X1,SOR3           IF NO FILE NAMES                              REFMAP      2437     A     
 REFMAP             SB1    X1                                                              REFMAP      2438     A     
 REFMAP                                                                                    REFMAP      2439     A     
 REFMAP             MX0    60-6                                                            REFMAP      2440     A     
 REFMAP             SA1    SYM1                                                            REFMAP      2441     A     
 REFMAP             SA2    X1-4                                                            REFMAP      2442     A     
 REFMAP                                                                                    REFMAP      2443     A     
 REFMAP    SOR1     SB3    12                SHIFT COUNT                                   REFMAP      2444     A     
 REFMAP             LX2    60-12                                                           REFMAP      2445     A     
 REFMAP                                                                                    REFMAP      2446     A     
 REFMAP    SOR2     LX2    60-6                                                            REFMAP      2447     A     
 REFMAP             BX7    -X0*X2            EXTRACT A CHARACTER                           REFMAP      2448     A     
 REFMAP             SX6    X7-1R"C"                                                        REFMAP      2449     A     
 REFMAP             SB3    B3+6                                                            REFMAP      2450     A     
 REFMAP             NZ     X6,SOR2           IF NOT THE FILE CHARACTER                     REFMAP      2451     A     
 REFMAP                                                                                    REFMAP      2452     A     
 REFMAP             LX2    B3,X2                                                           REFMAP      2453     A     
 REFMAP             SX7    1R#-1R"C"                                                       REFMAP      2454     A     
 REFMAP             LX7    B3,X7                                                           REFMAP      2455     A     
 REFMAP             IX7    X2+X7             CONVERT "C" TO #                              REFMAP      2456     A     
 REFMAP             SA7    A2                REPLACE MODIFIED NAME IN SYMTAB               REFMAP      2457     A     
 REFMAP             SB1    B1-B5             N.FILES = N.FILES - 1                         REFMAP      2458     A     
 REFMAP             SA2    A2-2              NEXT FILE NAME                                REFMAP      2459     A     
 REFMAP             NZ     B1,SOR1           IF MORE FILES TO GO                           REFMAP      2460     A     
 REFMAP    SOR3     BSS    0                                                               REFMAP      2461     A     
 REFMAP    SOR      ENDIF                                                                  REFMAP      2462     A     
 REFMAP                                                                                    REFMAP      2463     A     
 REFMAP   *         REPLACE VALUE. WITH NAME OF FUNCTION SUBPROGRAM                        REFMAP      2464     A     
 REFMAP                                                                                    REFMAP      2465     A     
 REFMAP             SA1    VALUE.                                                          REFMAP      2466     A     
 REFMAP             ZR     X1,SORTS1         IF NOT A FUNCTION SUBPROGRAM                  REFMAP      2467     A     
 REFMAP             SA2    SYM1                                                            REFMAP      2468     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2793    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             LX1    1                                                               REFMAP      2469     A     
 REFMAP             IX7    X2-X1                                                           REFMAP      2470     A     
 REFMAP             SA1    X7                WORD A OF VALUE.                              REFMAP      2471     A     
 REFMAP             MX0    L.NAME                                                          REFMAP      2472     A     
 REFMAP             BX6    X0*X1                                                           REFMAP      2473     A     
 REFMAP             IX7    X6+X7                                                           REFMAP      2474     A     
 REFMAP             SA7    X5                STORE CNTBL ENTRY                             REFMAP      2475     A     
 REFMAP             SX6    B5                                                              REFMAP      2476     A     
 REFMAP             SA6    L.CNTBL           L.CNTBL = 1                                   REFMAP      2477     A     
 REFMAP             SA2    X2-2              WORD A OF SUBPROGRAM NAME                     REFMAP      2478     A     
 REFMAP             BX6    X0*X2                                                           REFMAP      2479     A     
 REFMAP             BX7    -X0*X1                                                          REFMAP      2480     A     
 REFMAP             IX6    X6+X7                                                           REFMAP      2481     A     
 REFMAP             SA6    A1                SUBSTITUTE PROG NAME FOR VALUE.               REFMAP      2482     A     
 REFMAP                                                                                    REFMAP      2483     A     
 REFMAP    SORTS1   IX5    X5-X4             WORKING STORAGE                               REFMAP      2484     A     
 REFMAP             IX7    X5-X3             WORKING STORAGE FOR SORT, ETC.                REFMAP      2485     A     
 REFMAP             SX6    X7-102B                                                         REFMAP      2486     A     
 REFMAP             NG     X6,SORTCER        IF NOT ENOUGH STORAGE                         REFMAP      2487     A     
 REFMAP                                                                                    REFMAP      2488     A     
 REFMAP   *         SET UP POINTER TABLE 30/*+1,30/SYMTAB ENTRY                            REFMAP      2489     A     
 REFMAP                                                                                    REFMAP      2490     A     
 REFMAP             SA2    SYMEND                                                          REFMAP      2491     A     
 REFMAP             SB1    X4                B1 = FWA WORK                                 REFMAP      2492     A     
 REFMAP             SB3    B1+X3             FWA OF THE BUCKETS                            REFMAP      2493     A     
 REFMAP             LX4    30                FWAWORK/0                                     REFMAP      2494     A     
 REFMAP             IX6    X4+X2             30/*,30/SYM                                   REFMAP      2495     A     
 REFMAP             SA5    =10000000002B                                                   REFMAP      2496     A     
 REFMAP             SB2    B1                I = FWAWORK                                   REFMAP      2497     A     
 REFMAP                                                                                    REFMAP      2498     A     
 REFMAP    LA       IX6    X6+X5             SET UP POINTER TABLE                          REFMAP      2499     A     
 REFMAP             SA6    B2                                                              REFMAP      2500     A     
 REFMAP             SB2    B2+B5             I = I+1                                       REFMAP      2501     A     
 REFMAP             LT     B2,B3,LA                                                        REFMAP      2502     A     
 REFMAP                                                                                    REFMAP      2503     A     
 REFMAP             SX6    X6                                                              REFMAP      2504     A     
 REFMAP             SA6    A6                NO LINK ON LAST WORD                          REFMAP      2505     A     
 REFMAP                                                                                    REFMAP      2506     A     
 REFMAP             SB4    42                SHIFT COUNT                                   REFMAP      2507     A     
 REFMAP             SB2    B1                POINTER TO FIRST ENTRY                        REFMAP      2508     A     
 REFMAP                                                                                    REFMAP      2509     A     
 REFMAP   *         SORT THE POINTER TABLE                                                 REFMAP      2510     A     
 REFMAP                                                                                    REFMAP      2511     A     
 REFMAP   *         DURING THE LOOP THE B REGISTERS ARE USED AS FOLLOWS:                   REFMAP      2512     A     
 REFMAP   *         B1 = FWAWORK  B2 = FIRST  B3 = FWA OF THE BUCKETS                      REFMAP      2513     A     
 REFMAP   *         B4 = SHIFT COUNT  B5 = 1                                               REFMAP      2514     A     
 REFMAP                                                                                    REFMAP      2515     A     
 REFMAP    LOOP     MX7    0                                                               REFMAP      2516     A     
 REFMAP             SB6    B3+77B                                                          REFMAP      2517     A     
 REFMAP             MX0    54                ONE CHARACTER MASK                            REFMAP      2518     A     
 REFMAP                                                                                    REFMAP      2519     A     
 REFMAP    LB       SA7    B6                CLEAR THE BUCKETS                             REFMAP      2520     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2794    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SB6    B6-B5                                                           REFMAP      2521     A     
 REFMAP             GE     B6,B3,LB                                                        REFMAP      2522     A     
 REFMAP                                                                                    REFMAP      2523     A     
 REFMAP   *         SORT POINTER TABLE INTO 64 LINKED LISTS                                REFMAP      2524     A     
 REFMAP                                                                                    REFMAP      2525     A     
 REFMAP   BINL      SA1    B2                30/NEXT,30/SYMTAB                             REFMAP      2526     A     
 REFMAP             SA2    X1                SYMTAB ENTRY                                  REFMAP      2527     A     
 REFMAP             LX3    B4,X2                                                           REFMAP      2528     A     
 REFMAP             BX4    -X0*X3            EXTRACT CHARACTER                             REFMAP      2529     A     
 REFMAP             SA5    B3+X4             FETCH BUCKET                                  REFMAP      2530     A     
 REFMAP                                                                                    REFMAP      2531     A     
 REFMAP             SX6    X1                                                              REFMAP      2532     A     
 REFMAP             NZ     X5,ABUC           JUMP IF NOT THE FIRST ENTRY                   REFMAP      2533     A     
 REFMAP                                                                                    REFMAP      2534     A     
 REFMAP             SA6    A1                STORE 30/0,30/SYMTAB                          REFMAP      2535     A     
 REFMAP             SX5    B2                                                              REFMAP      2536     A     
 REFMAP             EQ     ADDB1                                                           REFMAP      2537     A     
 REFMAP                                                                                    REFMAP      2538     A     
 REFMAP   *         LINK LAST ENTRY TO NEXT ENTRY                                          REFMAP      2539     A     
 REFMAP                                                                                    REFMAP      2540     A     
 REFMAP    ABUC     SA2    X5                30/0,30/SYMTAB OF LAST ENTRY                  REFMAP      2541     A     
 REFMAP             SX3    A1                                                              REFMAP      2542     A     
 REFMAP             SA6    A1                STORE 30/0,30/SYMTAB                          REFMAP      2543     A     
 REFMAP             LX3    30                                                              REFMAP      2544     A     
 REFMAP             IX6    X3+X2             30/NEXT,30/SYMTAB                             REFMAP      2545     A     
 REFMAP             AX5    30                                                              REFMAP      2546     A     
 REFMAP             SA6    A2                                                              REFMAP      2547     A     
 REFMAP                                                                                    REFMAP      2548     A     
 REFMAP    ADDB1    LX5    30                30/FIRST,30/0                                 REFMAP      2549     A     
 REFMAP             SX2    A1                                                              REFMAP      2550     A     
 REFMAP             IX6    X2+X5                                                           REFMAP      2551     A     
 REFMAP             AX1    30                                                              REFMAP      2552     A     
 REFMAP             SA6    A5                STORE BUCKET                                  REFMAP      2553     A     
 REFMAP             SB2    X1                                                              REFMAP      2554     A     
 REFMAP             NZ     X1,BINL           LOOP IF MORE LINKS                            REFMAP      2555     A     
 REFMAP                                                                                    REFMAP      2556     A     
 REFMAP             SB6    B4-6                                                            REFMAP      2557     A     
 REFMAP             ZR     B6,LINK           IF THE FIRST CHARACTER                        REFMAP      2558     A     
 REFMAP                                                                                    REFMAP      2559     A     
 REFMAP   *         SORT THE . BUCKET KEEPING ONLY THOSE NAMES WITH THE                    REFMAP      2560     A     
 REFMAP   *         BASIC EXTERNAL FUNCTION BIT SET                                        REFMAP      2561     A     
 REFMAP                                                                                    REFMAP      2562     A     
 REFMAP             SA1    B3+1R.                                                          REFMAP      2563     A     
 REFMAP             MX7    0                                                               REFMAP      2564     A     
 REFMAP             SA7    A1                CLEAR THE BUCKET                              REFMAP      2565     A     
 REFMAP                                                                                    REFMAP      2566     A     
 REFMAP    FBEF     AX1    30                                                              REFMAP      2567     A     
 REFMAP             ZR     X1,CHNAM          IF END OF THE LIST                            REFMAP      2568     A     
 REFMAP             SA1    X1                LIST ELEMENT                                  REFMAP      2569     A     
 REFMAP             SA2    X1-1              WORD B                                        REFMAP      2570     A     
 REFMAP             LX2    59-P.BEF                                                        REFMAP      2571     A     
 REFMAP             PL     X2,FBEF           IF NOT A BASIC EXTERNAL                       REFMAP      2572     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2795    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP                                                                                    REFMAP      2573     A     
 REFMAP             SX7    A1                                                              REFMAP      2574     A     
 REFMAP             LX7    30                30/FIRST,30/0                                 REFMAP      2575     A     
 REFMAP             SX6    A2+B5                                                           REFMAP      2576     A     
 REFMAP             SA6    A1                A6 = LAST BUCKET ADD,X6 = LAST ENTRY          REFMAP      2577     A     
 REFMAP                                                                                    REFMAP      2578     A     
 REFMAP    FBEFL    AX1    30                                                              REFMAP      2579     A     
 REFMAP             ZR     X1,FBEFX          IF END OF THE LIST                            REFMAP      2580     A     
 REFMAP             SA1    X1                LIST ELEMENT                                  REFMAP      2581     A     
 REFMAP             SA2    X1-1              WORD B                                        REFMAP      2582     A     
 REFMAP             LX2    59-P.BEF                                                        REFMAP      2583     A     
 REFMAP             PL     X2,FBEFL          IF NOT A BASIC EXTERNAL                       REFMAP      2584     A     
 REFMAP                                                                                    REFMAP      2585     A     
 REFMAP             SX0    A1                                                              REFMAP      2586     A     
 REFMAP             LX0    30                                                              REFMAP      2587     A     
 REFMAP             BX6    X0+X6             LINK LAST TO THIS                             REFMAP      2588     A     
 REFMAP             SA6    A6                                                              REFMAP      2589     A     
 REFMAP             SX6    A2+B5                                                           REFMAP      2590     A     
 REFMAP             SA6    A1                                                              REFMAP      2591     A     
 REFMAP             EQ     FBEFL                                                           REFMAP      2592     A     
 REFMAP                                                                                    REFMAP      2593     A     
 REFMAP    FBEFX    SX6    A6                                                              REFMAP      2594     A     
 REFMAP             BX7    X7+X6                                                           REFMAP      2595     A     
 REFMAP             SA7    B3+1R.            UPDATE THE BUCKET                             REFMAP      2596     A     
 REFMAP                                                                                    REFMAP      2597     A     
 REFMAP   *         CHANGE NAMES OF ENTRIES IN SYMTAB WITH A $ . OR # APPENDED TO          REFMAP      2598     A     
 REFMAP   *         THEM.  SAVE OLD NAMES IN CNTBL, FORMAT: 42/7L_NAME,18/L(WORD A         REFMAP      2599     A     
 REFMAP                                                                                    REFMAP      2600     A     
 REFMAP    CHNAM    SB6    60                                                              REFMAP      2601     A     
 REFMAP             SB4    B6-B4             60-SC                                         REFMAP      2602     A     
 REFMAP             SA4    O.CNTBL           FWA                                           REFMAP      2603     A     
 REFMAP             SA5    L.CNTBL           LENGTH                                        REFMAP      2604     A     
 REFMAP             SA0    X4                A0 = O                                        REFMAP      2605     A     
 REFMAP             SB7    X5                                                              REFMAP      2606     A     
 REFMAP             MX0    L.NAME                                                          REFMAP      2607     A     
 REFMAP             SB7    A0-B7             B7 = O-L = NEXT STOREING ADDRESS              REFMAP      2608     A     
 REFMAP             SB6    B3+100B           LWA OF THE BUCKETS                            REFMAP      2609     A     
 REFMAP                                                                                    REFMAP      2610     A     
 REFMAP             CHANGE $                 CHANGE NAMES WITH $ APPENDED                  REFMAP      2611     A     
 REFMAP             CHANGE .                 CHANGE NAMES OF BASIC EXTERNALS               REFMAP      2612     A     
 REFMAP             IFC    EQ, "C" . ,2                                                    REFMAP      2613     A     
 REFMAP             CHANGE #                 CHANGE THE FILE NAMES                         REFMAP      2614     A     
 REFMAP             ELSE   1                                                               REFMAP      2615     A     
 REFMAP             CHANGE "C"               CHANGE THE FILE NAMES                         REFMAP      2616     A     
 REFMAP                                                                                    REFMAP      2617     A     
 REFMAP   *         UPDATE TABLE LENGTH, RESTORE B4                                        REFMAP      2618     A     
 REFMAP                                                                                    REFMAP      2619     A     
 REFMAP             SB6    60                                                              REFMAP      2620     A     
 REFMAP             SB4    B6-B4             RESTORE B4                                    REFMAP      2621     A     
 REFMAP             SX6    A0-B7             X7 = O - ( O - L ) = L                        REFMAP      2622     A     
 REFMAP             SA6    L.CNTBL           UPDATE TABLE LENGTH                           REFMAP      2623     A     
 REFMAP                                                                                    REFMAP      2624     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2796    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP   *         LINK UP SPECIAL BUCKETS - 0 BLANK . $ AND # ( FILE NAMES )             REFMAP      2625     A     
 REFMAP                                                                                    REFMAP      2626     A     
 REFMAP             SA1    B3                0 BUCKET                                      REFMAP      2627     A     
 REFMAP             MX0    30                                                              REFMAP      2628     A     
 REFMAP             LINKB  55B               LINK BLANK TO ZERO BUCKET                     REFMAP      2629     A     
 REFMAP             LINKB  1R$               LINK $ BUCKET TO RESULT                       REFMAP      2630     A     
 REFMAP             LINKB  1R.               . BUCKET ( BASIC EXTERNAL FUNCTIONS )         REFMAP      2631     A     
 REFMAP             IFC    EQ, "C" . ,2                                                    REFMAP      2632     A     
 REFMAP             LINKB  1R#               FILE NAME CHARACTER                           REFMAP      2633     A     
 REFMAP             ELSE   1                                                               REFMAP      2634     A     
 REFMAP             LINKB  1R"C"             FILE NAME CHARACTER                           REFMAP      2635     A     
 REFMAP             SA6    B3                STORE RESULT                                  REFMAP      2636     A     
 REFMAP                                                                                    REFMAP      2637     A     
 REFMAP   *         RELINK THE POINTER TABLE                                               REFMAP      2638     A     
 REFMAP                                                                                    REFMAP      2639     A     
 REFMAP    LINK     SB7    B3+1R9+1          LWA+1 OF BUCKETS TO BE LINKED                 REFMAP      2640     A     
 REFMAP             SB6    B3                FWA                                           REFMAP      2641     A     
 REFMAP             MX6    0                                                               REFMAP      2642     A     
 REFMAP                                                                                    REFMAP      2643     A     
 REFMAP    FLINK    SA1    B6                                                              REFMAP      2644     A     
 REFMAP             SB6    B6+B5             ADD = ADD+1                                   REFMAP      2645     A     
 REFMAP             NZ     X1,LINKA          JUMP IF FOUND A NON EMPTY POCKET              REFMAP      2646     A     
 REFMAP             LT     B6,B7,FLINK                                                     REFMAP      2647     A     
 REFMAP                                                                                    REFMAP      2648     A     
 REFMAP             EQ     SORTSN            GO SORT THE STMT NUMBERS                      REFMAP      2649     A     
 REFMAP                                                                                    REFMAP      2650     A     
 REFMAP    LINKA    LX1    30                                                              REFMAP      2651     A     
 REFMAP             SB2    X1                RESET FIRST                                   REFMAP      2652     A     
 REFMAP             MX0    30                                                              REFMAP      2653     A     
 REFMAP             LX1    30                FL(A)/LL(A)                                   REFMAP      2654     A     
 REFMAP                                                                                    REFMAP      2655     A     
 REFMAP    LINKC    GE     B6,B7,LINKZ                                                     REFMAP      2656     A     
 REFMAP             SA2    B6                X2 = FL(B)/LL(B)                              REFMAP      2657     A     
 REFMAP             SB6    B6+B5                                                           REFMAP      2658     A     
 REFMAP             ZR     X2,LINKC                                                        REFMAP      2659     A     
 REFMAP                                                                                    REFMAP      2660     A     
 REFMAP             SA3    X1                ( LLA) )                                      REFMAP      2661     A     
 REFMAP             BX4    X0*X2             FL(B)/0                                       REFMAP      2662     A     
 REFMAP             IX6    X4+X3             FL(B)/(LL(A))                                 REFMAP      2663     A     
 REFMAP             SA6    A3                                                              REFMAP      2664     A     
 REFMAP             BX1    X2                X1 = FL(B)/LL(B)                              REFMAP      2665     A     
 REFMAP             EQ     LINKC                                                           REFMAP      2666     A     
 REFMAP                                                                                    REFMAP      2667     A     
 REFMAP    LINKZ    SB4    B4-6                                                            REFMAP      2668     A     
 REFMAP             NZ     B4,LOOP           LOOP FOR 7 CHARACTERS                         REFMAP      2669     A     
 REFMAP                                                                                    REFMAP      2670     A     
 REFMAP             SX6    B2                                                              REFMAP      2671     A     
 REFMAP             SA6    O.NAME            SAVE POINTERS TO THE NAMES                    REFMAP      2672     A     
 REFMAP                                                                                    REFMAP      2673     A     
 REFMAP    SORTSN   SA4    O.CNTBL                                                         REFMAP      2674     A     
 REFMAP             SA5    A4+B5             L.CNTBL                                       REFMAP      2675     A     
 REFMAP             SX4    X4+B5                                                           REFMAP      2676     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2797    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             IX6    X4-X5             ADJUST ORIGIN OF THE TABLE                    REFMAP      2677     A     
 REFMAP             SA6    A4                                                              REFMAP      2678     A     
 REFMAP                                                                                    REFMAP      2679     A     
 REFMAP             SB6    6                                                               REFMAP      2680     A     
 REFMAP             GT     B4,B6,SORTSYM     IF WE DIDNT FINISH THE ALPHA SORT             REFMAP      2681     A     
 REFMAP                                                                                    REFMAP      2682     A     
 REFMAP             SA1    B3+1R)            LOOP GENERATED LABELS                         REFMAP      2683     A     
 REFMAP             BX6    X1                                                              REFMAP      2684     A     
 REFMAP             SA6    O.LGL                                                           REFMAP      2685     A     
 REFMAP             SPACE  3                                                               REFMAP      2686     A     
 REFMAP   *         SORT THE STATEMENT NUMBERS ON THE NUMBER OF CHARACTERS                 REFMAP      2687     A     
 REFMAP   *         THAT EACH ONE HAS TO BRING THEM IN ASCENDING ORDER                     REFMAP      2688     A     
 REFMAP                                                                                    REFMAP      2689     A     
 REFMAP             SA1    B3+1R.                                                          REFMAP      2690     A     
 REFMAP             ZR     X1,SORTSYM        EXIT IF NO STMT NUMBERS                       REFMAP      2691     A     
 REFMAP             AX1    30                                                              REFMAP      2692     A     
 REFMAP             SB2    X1                SET B2 = FIRST                                REFMAP      2693     A     
 REFMAP             SA5    =10H                                                            REFMAP      2694     A     
 REFMAP             BX0    X5                X0 = 55 55 55 55 ........                     REFMAP      2695     A     
 REFMAP             SA4    =10H5555555555    X4 = 40404040404040...                        REFMAP      2696     A     
 REFMAP                                                                                    REFMAP      2697     A     
 REFMAP             MX7    0                                                               REFMAP      2698     A     
 REFMAP             SB6    B3+10D                                                          REFMAP      2699     A     
 REFMAP   +         SA7    B6                CLEAR THE BUCKETS                             REFMAP      2700     A     
 REFMAP             SB6    B6-B5                                                           REFMAP      2701     A     
 REFMAP             GE     B6,B3,*                                                         REFMAP      2702     A     
 REFMAP                                                                                    REFMAP      2703     A     
 REFMAP    BINS     SA1    B2                30/NEXT,30/SYMTAB                             REFMAP      2704     A     
 REFMAP             SA2    X1                FETCH SYMTAB ENTRY                            REFMAP      2705     A     
 REFMAP                                                                                    REFMAP      2706     A     
 REFMAP             AX2    24                SHIFT OFF TRASH                               REFMAP      2707     A     
 REFMAP             SX5    B5                X5 = 1                                        REFMAP      2708     A     
 REFMAP             BX3    X2-X0             JJJJ 00 00 00                                 REFMAP      2709     A     
 REFMAP             IX6    X3-X5             JJJ J-1 77 77 77                              REFMAP      2710     A     
 REFMAP             BX5    -X6+X3            77 77 77 4X 00 00 00                          REFMAP      2711     A     
 REFMAP             BX2    X4*X5             40 40 40 00 00 00                             REFMAP      2712     A     
 REFMAP             CX3    X2                BUCKET NUMBER IN X3                           REFMAP      2713     A     
 REFMAP             SA5    B3+X3             FETCH BUCKET                                  REFMAP      2714     A     
 REFMAP                                                                                    REFMAP      2715     A     
 REFMAP             SX6    X1                                                              REFMAP      2716     A     
 REFMAP             SA6    A1                STORE 30/0,30/SYMTAB                          REFMAP      2717     A     
 REFMAP             NZ     X5,ABUCS          JUMP IF NOT THE FIRST ENTRY                   REFMAP      2718     A     
 REFMAP                                                                                    REFMAP      2719     A     
 REFMAP             SX5    B2                                                              REFMAP      2720     A     
 REFMAP             EQ     ADDBS                                                           REFMAP      2721     A     
 REFMAP                                                                                    REFMAP      2722     A     
 REFMAP   *         LINK LAST ENTRY TO NEXT ENTRY                                          REFMAP      2723     A     
 REFMAP                                                                                    REFMAP      2724     A     
 REFMAP    ABUCS    SA2    X5                30/0,30/SYMTAB OF LAST ENTRY                  REFMAP      2725     A     
 REFMAP             SX3    A1                                                              REFMAP      2726     A     
 REFMAP             LX3    30                                                              REFMAP      2727     A     
 REFMAP             IX6    X3+X2                                                           REFMAP      2728     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2798    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SA6    A2                                                              REFMAP      2729     A     
 REFMAP             AX5    30                                                              REFMAP      2730     A     
 REFMAP                                                                                    REFMAP      2731     A     
 REFMAP    ADDBS    LX5    30                30/FIRST,30/0                                 REFMAP      2732     A     
 REFMAP             SX2    A1                                                              REFMAP      2733     A     
 REFMAP             IX6    X2+X5                                                           REFMAP      2734     A     
 REFMAP             SA6    A5                STORE BUCKET                                  REFMAP      2735     A     
 REFMAP             AX1    30                                                              REFMAP      2736     A     
 REFMAP             SB2    X1                                                              REFMAP      2737     A     
 REFMAP             NZ     X1,BINS           LOOP IF MORE LINKS                            REFMAP      2738     A     
 REFMAP                                                                                    REFMAP      2739     A     
 REFMAP   *         RELINK THE POINTER LIST BY USING THE BUCKETS                           REFMAP      2740     A     
 REFMAP                                                                                    REFMAP      2741     A     
 REFMAP    LINKS    SB7    B3+10D            LWA OF BUCKETS TO BE LINKED                   REFMAP      2742     A     
 REFMAP             SB6    B3                                                              REFMAP      2743     A     
 REFMAP             MX6    0                                                               REFMAP      2744     A     
 REFMAP    FLINKS   SA1    B6                                                              REFMAP      2745     A     
 REFMAP             SB6    B6+B5                                                           REFMAP      2746     A     
 REFMAP             NZ     X1,LINKAS         JUMP IF FOUND A NON EMPTY POCKET              REFMAP      2747     A     
 REFMAP             LE     B6,B7,FLINKS                                                    REFMAP      2748     A     
 REFMAP             EQ     SORTSYM           EXIT                                          REFMAP      2749     A     
 REFMAP                                                                                    REFMAP      2750     A     
 REFMAP    LINKAS   LX1    30                                                              REFMAP      2751     A     
 REFMAP             SX6    X1                                                              REFMAP      2752     A     
 REFMAP             SA6    O.LABEL           SAVE LIST POINTER                             REFMAP      2753     A     
 REFMAP             LX1    30                FL(A)/LL(A)                                   REFMAP      2754     A     
 REFMAP             MX0    30                                                              REFMAP      2755     A     
 REFMAP                                                                                    REFMAP      2756     A     
 REFMAP    LINKCS   GT     B6,B7,SORTSYM     IF FINISHED                                   REFMAP      2757     A     
 REFMAP             SA2    B6                X2 = FL(B)/LL(B)                              REFMAP      2758     A     
 REFMAP             SB6    B6+B5                                                           REFMAP      2759     A     
 REFMAP             ZR     X2,LINKCS                                                       REFMAP      2760     A     
 REFMAP             SA3    X1                ( LL(A) )                                     REFMAP      2761     A     
 REFMAP             BX4    X0*X2             FL(B)/0                                       REFMAP      2762     A     
 REFMAP             IX6    X4+X3             FL(B)/(LL(A))                                 REFMAP      2763     A     
 REFMAP             SA6    A3                                                              REFMAP      2764     A     
 REFMAP             BX1    X2                                                              REFMAP      2765     A     
 REFMAP             EQ     LINKCS                                                          REFMAP      2766     A     
 REFMAP             TITLE              SUBROUTINES TO HANDLE SPECIAL SYMBOLS               REFMAP      2767     A     
 REFMAP   ***                                                                              REFMAP      2768     A     
 REFMAP   *         LINKUP - LINKUP 2 BUCKETS IN X1 AND X2                                 REFMAP      2769     A     
 REFMAP   *                                                                                REFMAP      2770     A     
 REFMAP   *         ON EXIT:                                                               REFMAP      2771     A     
 REFMAP   *                X1,X6 = RESULT BUCKET                                           REFMAP      2772     A     
 REFMAP   *                                                                                REFMAP      2773     A     
 REFMAP    LINKUP                                                                          REFMAP      2774     A     
 REFMAP             BX6    X1                                                              REFMAP      2775     A     
 REFMAP             ZR     X2,LINKUP                                                       REFMAP      2776     A     
 REFMAP             BX6    X2                                                              REFMAP      2777     A     
 REFMAP             ZR     X1,LINKUP1                                                      REFMAP      2778     A     
 REFMAP                                                                                    REFMAP      2779     A     
 REFMAP             BX6    -X0*X2            /LL(B)                                        REFMAP      2780     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2799    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             BX5    X0*X1             FL(A)/                                        REFMAP      2781     A     
 REFMAP             SA3    X1                ( LL(A) )                                     REFMAP      2782     A     
 REFMAP             BX4    X0*X2             FL(B)/0                                       REFMAP      2783     A     
 REFMAP             IX6    X6+X5                                                           REFMAP      2784     A     
 REFMAP             BX7    X3+X4                                                           REFMAP      2785     A     
 REFMAP             SA7    A3                STORE UPDATED ENTRY                           REFMAP      2786     A     
 REFMAP    LINKUP1  BX1    X6                                                              REFMAP      2787     A     
 REFMAP             EQ     LINKUP                                                          REFMAP      2788     A     
 REFMAP             SPACE  3                                                               REFMAP      2789     A     
 REFMAP   ***                                                                              REFMAP      2790     A     
 REFMAP   *         CNAME - CHANGE NAMES IN SYMTAB TO REMOVE SPECIAL CHARACTERS            REFMAP      2791     A     
 REFMAP   *         SAVE ORIGINAL NAME IN CNTAB                                            REFMAP      2792     A     
 REFMAP   *                                                                                REFMAP      2793     A     
 REFMAP   *         ON ENTRY:                                                              REFMAP      2794     A     
 REFMAP   *                X0 = MASK(42) , X2 = BUCKET , X7 = 1R -1R_CHAR                  REFMAP      2795     A     
 REFMAP   *                A0 = FWA OF CNTBL                                               REFMAP      2796     A     
 REFMAP   *                B7 = FWA-LENGTH OF THE TABLE                                    REFMAP      2797     A     
 REFMAP   *                                                                                REFMAP      2798     A     
 REFMAP                                                                                    REFMAP      2799     A     
 REFMAP    CNAME.L  SA2    X2                30/NEXT,30/WORD A                             REFMAP      2800     A     
 REFMAP             SA3    X2                WORD A                                        REFMAP      2801     A     
 REFMAP             BX7    X0*X3             NAME                                          REFMAP      2802     A     
 REFMAP             SX4    X2                ADDRESS                                       REFMAP      2803     A     
 REFMAP             IX7    X7+X4                                                           REFMAP      2804     A     
 REFMAP             SA7    B7                STORE CNTBL ENTRY                             REFMAP      2805     A     
 REFMAP             SB7    B7-B5                                                           REFMAP      2806     A     
 REFMAP                                                                                    REFMAP      2807     A     
 REFMAP             IX6    X3+X1             CHANGE WORD A OF SYMTAB ENTRY                 REFMAP      2808     A     
 REFMAP             SA6    A3                                                              REFMAP      2809     A     
 REFMAP             AX2    30                                                              REFMAP      2810     A     
 REFMAP             LT     B7,B6,CNERR       IF WE RAN OUT OF STORAGE                      REFMAP      2811     A     
 REFMAP             NZ     X2,CNAME.L        LOOP IF NOT FINISHED                          REFMAP      2812     A     
 REFMAP    CNAME                                                                           REFMAP      2813     A     
 REFMAP             AX2    30                                                              REFMAP      2814     A     
 REFMAP             LX1    B4,X7             POSITION CHAR FOR NAME CHANGE                 REFMAP      2815     A     
 REFMAP             EQ     CNAME.L                                                         REFMAP      2816     A     
 REFMAP             TITLE              CPL - INITIALIZATION                                REFMAP      2817     A     
 REFMAP   ***                                                                              REFMAP      2818     A     
 REFMAP   *         CPL - INITIALIZE REFMAP , COMPUTE PROGRAM LENGTH, ETC.                 REFMAP      2819     A     
 REFMAP   *         SET UP BIAS TABLE ( O.LRB ) TO FWA OF LOCAL BLOCKS                     REFMAP      2820     A     
 REFMAP                                                                                    REFMAP      2821     A     
 REFMAP    CPL      ROUTINE                                                                REFMAP      2822     A     
 REFMAP             SETZERO O.CELLS,L.CELLS                                                REFMAP      2823     A     
 REFMAP             SA5    SYM1                                                            REFMAP      2824     A     
 REFMAP             SA0    X5                A0 = FWA OF SYMTAB                            REFMAP      2825     A     
 REFMAP             SA1    =XN.FERR                                                        REFMAP      2826     A     
 REFMAP             NZ     X1,CPL8           SKIP RELOCATION IF FATAL ERRORS               REFMAP      2827     A     
 REFMAP                                                                                    REFMAP      2828     A     
 REFMAP   *         COMPUTE THE FWA"S OF THE LOCAL BLOCKS AND THE PROGRAM LENGTH           REFMAP      2829     A     
 REFMAP                                                                                    REFMAP      2830     A     
 REFMAP             SA1    O.LBLK            LENGTH OF FIRST LOCAL BLOCK                   REFMAP      2831     A     
 REFMAP             SB1    O.LRB             FWA OF TABLE                                  REFMAP      2832     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2800    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SB2    O.LRB+N.LRB                                                     REFMAP      2833     A     
 REFMAP             SA3    PROGRAM                                                         REFMAP      2834     A     
 REFMAP                                                                                    REFMAP      2835     A     
 REFMAP   +         SA6    B1                                                              REFMAP      2836     A     
 REFMAP             IX6    X6+X1             SUM BLOCK LENGTH                              REFMAP      2837     A     
 REFMAP             SB1    B1+B5                                                           REFMAP      2838     A     
 REFMAP             SA1    A1+B5             NEXT BLOCK LENGTH                             REFMAP      2839     A     
 REFMAP             LT     B1,B2,*-1         LOOP THROUGH THE LOCAL BLOCKS                 REFMAP      2840     A     
 REFMAP                                                                                    REFMAP      2841     A     
 REFMAP             SA6    L.PROG            PROGRAM LENGTH                                REFMAP      2842     A     
 REFMAP             UX4    B3,X3                                                           REFMAP      2843     A     
 REFMAP             ZR     B3,CPL2           IF A PROGRAM                                  REFMAP      2844     A     
 REFMAP             ZR     X3,CPL3           IF A BLOCK DATA SUBPROGRAM                    REFMAP      2845     A     
 REFMAP                                                                                    REFMAP      2846     A     
 REFMAP   *         COMPUTE THE LENGTH OF THE FORMAL PARAMETER RELOCATION BASES            REFMAP      2847     A     
 REFMAP                                                                                    REFMAP      2848     A     
 REFMAP             SA4    N.FP                                                            REFMAP      2849     A     
 REFMAP             ZR     X4,CPL3           IF NO FORMAL PARAMETERS                       REFMAP      2850     A     
 REFMAP             SB3    X4                                                              REFMAP      2851     A     
 REFMAP             SA1    A0-5              WORD B OF FIRST F.P.                          REFMAP      2852     A     
 REFMAP             SB1    P.RA                                                            REFMAP      2853     A     
 REFMAP                                                                                    REFMAP      2854     A     
 REFMAP    CPL.FP   AX2    B1,X1             POSITION BLOCK LENGTH                         REFMAP      2855     A     
 REFMAP             SB3    B3-B5                                                           REFMAP      2856     A     
 REFMAP             SX3    X2                                                              REFMAP      2857     A     
 REFMAP             IX6    X6+X3             SUM                                           REFMAP      2858     A     
 REFMAP             SA1    A1-2                                                            REFMAP      2859     A     
 REFMAP             NZ     B3,CPL.FP         IF NOT FINISHED                               REFMAP      2860     A     
 REFMAP                                                                                    REFMAP      2861     A     
 REFMAP             SA6    L.PROG                                                          REFMAP      2862     A     
 REFMAP             EQ     CPL3                                                            REFMAP      2863     A     
 REFMAP                                                                                    REFMAP      2864     A     
 REFMAP   *         COMPUTE BUFFER LENGTH                                                  REFMAP      2865     A     
 REFMAP                                                                                    REFMAP      2866     A     
 REFMAP    CPL2     SA1    START.            BUFFERLEN+N.FILES*(L.FET+1)+1                 REFMAP      2867          I
          -F162FTNA 
 REFMAP             SA2    N.FILES                                                         REFMAP      2868          I
          -F162FTNA 
 REFMAP             SX3    X2+2                                                            REFMAP      2869          I
          -F162FTNA 
 REFMAP             IX7    X1-X3             BUFFER LENGTH                                 REFMAP      2870          I
          -F162FTNA 
 REFMAP             SA7    L.BUFIO                                                         REFMAP      2871          I
          -F162FTNA 
 REFMAP    CPL2     SA1    =XOT.RM                                                         F162FTNA    1515     A     
 REFMAP             SA2    =XN.FILES                                                       F162FTNA    1516     A     
 REFMAP             SX3    5           K=LEN LIBLNK(3)+FLINK APL TERM(1)+TRACE(1)          F162FTNA    1517     A     
 REFMAP             SX4    L.FIT6+1    +1 FOR FLINK TABLE ENTRY                            F162FTNA    1518     A     
 REFMAP             ZR     X1,CPL2.2   IF CRM OBJECT MODE                                  F162FTNA    1519     A     
 REFMAP             SX3    2           K = LEN - PRINTLIM(1) + TRACE(1)                    F162FTNA    1520     A     
 REFMAP             SX4    L.FIT7+1                                                        F162FTNA    1521     A     
 REFMAP    CPL2.2   SA1    =XSTART.    BUF LEN + N.FILES*(L.FIT+1) + K                     F162FTNA    1522     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2801    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SA5    N.EQUF      NR OF EQUIVALENCED FILES                            FCC2064       14     A     
 REFMAP             ZR     X5,CPL2.3                                                       FCC2064       15     A     
 REFMAP             IX1    X1-X5       START. - NR OF EQUIVALENCED FILES                   FCC2064       16     A     
 REFMAP             IX2    X2-X5       NR OF FILES - NR OF EQUIVALENCED FILES              FCC2064       17     A     
 REFMAP             IX2    X2*X4                                                           F162FTNA    1523          I
          -FCC2064
 REFMAP    CPL2.3   IX2    X2*X4                                                           FCC2064       18     A     
 REFMAP             IX3    X1-X3                                                           F162FTNA    1524     A     
 REFMAP             IX7    X3-X2       BUF LEN                                             F162FTNA    1525     A     
 REFMAP             IX6    X6-X7             PROGRAM LENGTH - BUFFER LENGTH                REFMAP      2872     A     
 REFMAP             SA7    L.BUFIO                                                         F162FTNA    1526     A     
 REFMAP                                                                                    REFMAP      2873     A     
 REFMAP    CPL3     SA6    L.PROGP           PROGRAM LENGTH THAT WE PRINT                  REFMAP      2874     A     
 REFMAP                                                                                    REFMAP      2875     A     
 REFMAP   *         SCAN THE SYMBOL TABLE, CHANGING THE ADDRESS"S OF LOCAL SYMBOLS         REFMAP      2876     A     
 REFMAP   *         FROM BLOCK RELATIVE TO PROGRAM RELATIVE                                REFMAP      2877     A     
 REFMAP                                                                                    REFMAP      2878     A     
 REFMAP             SA4    ST.                                                             REFMAP      2879     A     
 REFMAP             SA5    SYMORD                                                          REFMAP      2880     A     
 REFMAP             LX4    1                                                               REFMAP      2881     A     
 REFMAP             SA0    A0-B5             A0 = SYM1 - 1                                 REFMAP      2882     A     
 REFMAP             LX5    1                                                               REFMAP      2883     A     
 REFMAP             SB1    X4                B1 = INDEX = 2*ORD(ST.)                       REFMAP      2884     A     
 REFMAP             SB2    X5                B2 = LIMIT                                    REFMAP      2885     A     
 REFMAP             MX0    60-L.RL                                                         REFMAP      2886     A     
 REFMAP             SA1    A0-B1                                                           REFMAP      2887     A     
 REFMAP             MX7    60-L.RB                                                         REFMAP      2888     A     
 REFMAP             SB3    B5+B5                                                           REFMAP      2889     A     
 REFMAP             BX6    X1                X6 = WORD B                                   REFMAP      2890     A     
 REFMAP             SB4    O.LRB             B4 = BASE OF LOCAL BLOCK ADDR TBL             REFMAP      2891     A     
 REFMAP             SB7    P.RA                                                            REFMAP      2892     A     
 REFMAP                                                                                    REFMAP      2893     A     
 REFMAP    CPL5     LX6    60-P.RL                                                         REFMAP      2894     A     
 REFMAP             SB1    B1+B3                                                           REFMAP      2895     A     
 REFMAP             BX5    -X0*X6            RL                                            REFMAP      2896     A     
 REFMAP             LX6    P.RL-P.RB                                                       REFMAP      2897     A     
 REFMAP             SB6    X5                                                              REFMAP      2898     A     
 REFMAP             BX4    -X7*X6            RB                                            REFMAP      2899     A     
 REFMAP             SA1    A1-B3             NEXT                                          REFMAP      2900     A     
 REFMAP             NE     B6,B5,CPL6        IF NOT PROGRAM RELATIVE                       REFMAP      2901     A     
 REFMAP             LX6    P.RB                                                            REFMAP      2902     A     
 REFMAP             SA4    X4+B4             O.LRB(RB)                                     REFMAP      2903     A     
 REFMAP             LX5    B7,X4                                                           REFMAP      2904     A     
 REFMAP             IX6    X5+X6                                                           REFMAP      2905     A     
 REFMAP             SA6    A1+B3                                                           REFMAP      2906     A     
 REFMAP    CPL6     BX6    X1                                                              REFMAP      2907     A     
 REFMAP             LT     B1,B2,CPL5                                                      REFMAP      2908     A     
 REFMAP                                                                                    REFMAP      2909     A     
 REFMAP             SX3    B5                                                              REFMAP      2910     A     
 REFMAP             RJ     RPN               RELOCATE ORDINAL 1                            REFMAP      2911     A     
 REFMAP                                                                                    REFMAP      2912     A     
 REFMAP   *         SCAN FOR BLANK COMMON AND CHANGE ITS NAME TO */ /    *                 REFMAP      2913     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2802    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP                                                                                    REFMAP      2914     A     
 REFMAP    CPL8     SA2    N.COM                                                           REFMAP      2915     A     
 REFMAP             MX6    0                                                               REFMAP      2916     A     
 REFMAP             SA6    L.SCOM            INITIALIZE COMMON LENGTHS                     REFMAP      2917     A     
 REFMAP             SA6    A6+B5                                                           REFMAP      2918     A     
 REFMAP             SA6    A6+B5                                                           REFMAP      2919     A     
 REFMAP             SA6    A6+B5                                                           REFMAP      2920     A     
 REFMAP             ZR     X2,CPL            IF NO COMMON                                  REFMAP      2921     A     
 REFMAP             SB1    ORGTAB                                                          REFMAP      2922     A     
 REFMAP             SB2    B1+X2             LWA+1                                         REFMAP      2923     A     
 REFMAP             SB3    54                                                              REFMAP      2924     A     
 REFMAP                                                                                    REFMAP      2925     A     
 REFMAP    CPL9     SA1    B1                                                              REFMAP      2926     A     
 REFMAP             AX2    B3,X1                                                           REFMAP      2927     A     
 REFMAP             SX3    X2+77B-1R                                                       REFMAP      2928     A     
 REFMAP             SB1    B1+B5                                                           REFMAP      2929     A     
 REFMAP             MX4    -17                                                             FCC0556       28     A     
 REFMAP             MX0    -1                                                              FCC0556       29     A     
 REFMAP             BX2    X1                                                              FCC0556       30     A     
 REFMAP             BX7    -X4*X1                                                          FCC0556       31     A     
 REFMAP             LX2    -17                                                             FCC0556       32     A     
 REFMAP             BX2    -X0*X2                                                          FCC0556       33     A     
 REFMAP             ZR     X3,CPL10          IF FOUND                                      REFMAP      2930     A     
 REFMAP             SA3    X2+L.SCOM                                                       FCC0556       34     A     
 REFMAP             IX6    X3+X7                                                           FCC0556       35     A     
 REFMAP             SA6    A3                                                              FCC0556       36     A     
 REFMAP             LT     B1,B2,CPL9        IF NOT FINISHED                               REFMAP      2931     A     
 REFMAP             EQ     CPL                                                             REFMAP      2932          I
          -RSM4033
 REFMAP             SA3    =XDIRECT                                                        RSM4033        9     A     
 REFMAP             NZ     X3,CPL9A    IF LCM = I IS SPECIFIED                             RSM4033       10     A     
 REFMAP             SA3    L.LCOM      TOTAL LCM ALLOCATION                                RSM4033       11     A     
 REFMAP             SA4    LCMLMT      LCM LIMIT WITHOUT LCM=I                             RSM4033       12     A     
 REFMAP             IX3    X4-X3                                                           RSM4033       13     A     
 REFMAP             PL     X3,CPL9A    IF TOTAL LCM ALLOCATION .LE. 400K                   RSM4033       14     A     
 REFMAP             SB1    1                                                               RSM4033       15     A     
 REFMAP             LISTL  STGERR,5    ISSUES LCM .GT. 400K MES (WITHOUT LCM=I)            RSM4033       16     A     
 REFMAP    CPL9A    EQ     CPL                                                             RSM4033       17     A     
 REFMAP                                                                                    REFMAP      2933     A     
 REFMAP    CPL10    SA4    =7L/ /            CHANGE NAME                                   REFMAP      2934     A     
 REFMAP             MX0    -18                                                             REFMAP      2935     A     
 REFMAP             BX7    -X0*X1      LCM BIT + LENGTH                                    REFMAP      2936          I
          -FCC0556
 REFMAP             MX3    -17                                                             REFMAP      2937          I
          -FCC0556
 REFMAP             BX6    X4+X7                                                           REFMAP      2938          I
          -FCC0556
 REFMAP             BX7    -X3*X1      LENGTH                                              REFMAP      2939          I
          -FCC0556
 REFMAP             BX6    -X0*X1      LCM BIT + LENGTH                                    FCC0556       37     A     
 REFMAP             BX6    X4+X6                                                           FCC0556       38     A     
 REFMAP             SA6    A1                                                              REFMAP      2940     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2803    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
 REFMAP             SX6    A6                                                              REFMAP      2941     A     
 REFMAP             SA6    BLKCOM                                                          REFMAP      2942     A     
 REFMAP                                                                                    REFMAP      2943          I
          -FCC0556
 REFMAP   *         ALLOW FOR EXCLUSION OF BLANK COMMON LENGTH IN GENERAL LENGTH           REFMAP      2944          I
          -FCC0556
 REFMAP   *         CALCULATIONS.                                                          REFMAP      2945          I
          -FCC0556
 REFMAP                                                                                    REFMAP      2946          I
          -FCC0556
 REFMAP             MX0    -1                                                              REFMAP      2947          I
          -FCC0556
 REFMAP             LX1    -17                                                             REFMAP      2948          I
          -FCC0556
 REFMAP             BX2    -X0*X1                                                          REFMAP      2949          I
          -FCC0556
 REFMAP             SA7    X2+L.SBLK                                                       REFMAP      2950     A     
 REFMAP             BX7    -X7                                                             REFMAP      2951          I
          -FCC0556
 REFMAP             SA7    X2+L.SCOM                                                       REFMAP      2952          I
          -FCC0556
 REFMAP             EQ     CPL                                                             REFMAP      2953          I
          -FCC0556
 REFMAP             EQ     CPL9                                                            FCC0556       39     A     
 REFMAP             SPACE  3                                                               REFMAP      2954     A     
 REFMAP   ***                                                                              REFMAP      2955     A     
 REFMAP   *         RPN - RELOCATE PROGRAM NAME                                            REFMAP      2956     A     
 REFMAP   *                                                                                REFMAP      2957     A     
 REFMAP   *         ON ENTRY:                                                              REFMAP      2958     A     
 REFMAP   *                X3 = ORDINAL OF SYMBOL TO BE RELOCATED                          REFMAP      2959     A     
 REFMAP   *                A0 , B4 , B7 , AND X7 AS SET FOR LOOP AT CPL5                   REFMAP      2960     A     
 REFMAP   *                                                                                REFMAP      2961     A     
 REFMAP    RPN                                                                             REFMAP      2962     A     
 REFMAP             LX3    1                                                               REFMAP      2963     A     
 REFMAP             SB3    X3                                                              REFMAP      2964     A     
 REFMAP             SA2    A0-B3             WORD B OF SYMBOL                              REFMAP      2965     A     
 REFMAP             LX2    60-P.RB                                                         REFMAP      2966     A     
 REFMAP             BX3    -X7*X2            RB                                            REFMAP      2967     A     
 REFMAP             LX2    P.RB                                                            REFMAP      2968     A     
 REFMAP             SA4    X3+B4             O.LRB(RB)                                     REFMAP      2969     A     
 REFMAP             LX5    B7,X4                                                           REFMAP      2970     A     
 REFMAP             IX6    X5+X2             RELOCATE THE ADDRESS                          REFMAP      2971     A     
 REFMAP             SA6    A2                                                              REFMAP      2972     A     
 REFMAP             EQ     RPN                                                             REFMAP      2973     A     
 REFMAP             USE    LWA                                                             REFMAP      2974     A     
 REFMAP    LWA.R    BSS    0                                                               REFMAP      2975     A     
 REFMAP             END    FTN25                                                           REFMAP      2976     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - REFMAP  
  
          IDENTIFIER               TOTAL    ACTIVE
  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2804    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN REFMAP  
  
          REFMAP                    2976      2864
          FCC0458                     18        18
          FCC0574                      6         6
          FCC0458A                     1         1
          FCC0556                     35        35
          RSM2763X                    11        11
          F162FTNA                    12        11
          FEAT1070C                   15        15
          FCC2059                      4         4
          FCC2064                      6         6
          FCC2108                     22        22
          RSM4033                     11        11
          FCC2239                      5         5
          FCC2313                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *PASS2* 
  
 *PASS2*  *DECK     *PASS2*                                                                *PASS2*        1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *PASS2* 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          *PASS2*                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CLOSE2  
  
 CLOSE2   *DECK     CLOSE2                                                                 CLOSE2         1     A     
 CLOSE2             IDENT  CLOSE2                                                          CLOSE2         2     A     
 CLOSE2             TITLE  CLOSE2 - PASS 2 END PROCESSING                                  CLOSE2         3     A     
 CLOSE2   *CALL     SSTCALL                                                                CLOSE2         4     A     
 CLOSE2             PASS2TM                                                                CLOSE2         5     A     
 CLOSE2                                                                                    CLOSE2         6     A     
 CLOSE2   **        CLOSE2 - END OF PASS 2 PROCESSING                                      CLOSE2         7          I
          -FCC0824
 CLOSE2   **        PS2CTL - END OF PASS 2 PROCESSING                                      FCC0824        9     A     
 CLOSE2                                                                                    CLOSE2         8     A     
 CLOSE2    PROGRAM  EQU    56B               PROGRAM/SUBPROGRAM INDICATOR                  CLOSE2         9     A     
 CLOSE2                                                                                    CLOSE2        10     A     
 CLOSE2    B=CLOS2  RPVDEF                                                                 CLOSE2        11     A     
 CLOSE2                                                                                    CLOSE2        12     A     
 CLOSE2             USE    //                                                              CLOSE2        13     A     
 CLOSE2    F.MEM    BSS    101B                                                            CLOSE2        14     A     
 CLOSE2             USE    0                                                               CLOSE2        15     A     
 CLOSE2                                                                                    CLOSE2        16     A     
 CLOSE2    P2.FL    ENTRY. F.MEM       PASS 2 FL USED                                      CLOSE2        17     A     
 CLOSE2    PASS2    TITLE  PASS2 - ENTRY FROM OVERLAY LOADER                               CLOSE2        18     A     
 CLOSE2   **        PASS2 - ENTRY TO PASS 2 FROM THE OVERLAY LOADER                        CLOSE2        19     A     
 CLOSE2                                                                                    CLOSE2        20     A     
 CLOSE2   *         IF (BREAK=22) WAS SELECTED, ENTRY TO OVERLAY(2,2) WILL BE TO           FEAT155F     251     A     
 CLOSE2   *         *FTN22-1* TO CALL THE COMPILE-TIME INTERACTIVE DEBUG PACKAGE.          FEAT155F     252     A     
 CLOSE2                                                                                    FEAT155F     253     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2805    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CLOSE2  
  
 CLOSE2    FTN22    BREAK                                                                  FEAT155F     254     A     
 CLOSE2                                                                                    FEAT155F     255     A     
 CLOSE2             ENTRY  FTN22                                                           CLOSE2        21     A     
 CLOSE2    FTN22    BSS    0           ** LOADER ENTRY POINT **                            CLOSE2        22     A     
 CLOSE2    .T       IFNE   TEST,0                                                          CLOSE2        23     A     
 CLOSE2             SA1    RPVPLG                                                          CLOSE2        24     A     
 CLOSE2             BX7    X1                                                              CLOSE2        25     A     
 CLOSE2             SA7    =XDMPTBL=   SET PLUG FOR REPRIEVE                               CLOSE2        26     A     
 CLOSE2    .T       ENDIF                                                                  CLOSE2        27     A     
 CLOSE2             SB1    1                                                               CLOSE2        28     A     
 CLOSE2             SA1    =XCP.AFLS                                                       RSM2763X      61     A     
 CLOSE2             BX6    X1                                                              RSM2763X      62     A     
 CLOSE2             LX6    30                                                              RSM2763X      63     A     
 CLOSE2             SA6    =XINT.P2M   INT.P2M = SHIFT(CP.AFLS,30)                         RSM2763X      64     A     
 CLOSE2    #OVL     IFEQ   .OVL,0                                                          CLOSE2        29     A     
 CLOSE2             SA5    PROGRAM                                                         CLOSE2        30     A     
 CLOSE2             ZR     X5,CLOSE2B  IF A BLOCK DATA SUBPROGRAM                          CLOSE2        31          I
          -FCC0824
 CLOSE2             ZR     X5,PS2CTL4  IF A BLOCK DATA SUBPROGRAM                          FCC0824       10     A     
 CLOSE2             SA3    =XQFLAG                                                         CLOSE2        32     A     
 CLOSE2             NZ     X3,CLOSE2B  IF Q MODE SELECTED                                  CLOSE2        33          I
          -FCC0824
 CLOSE2             NZ     X3,PS2CTL4  IF Q MODE SELECTED                                  FCC0824       11     A     
 CLOSE2             SA1    =XN.FERR                                                        CLOSE2        34     A     
 CLOSE2             ZR     X1,FTN23    IF NO FATAL ERRORS                                  CLOSE2        35          I
          -FCC0824
 CLOSE2             ZR     X1,PS2CTL1  IF NO FATAL ERRORS                                  FCC0824       12     A     
 CLOSE2             SA2    =XDFLAG                                                         CLOSE2        36     A     
 CLOSE2             ZR     X2,CLOSE2B  IF NOT DEBUG                                        CLOSE2        37          I
          -FCC0824
 CLOSE2             ZR     X2,PS2CTL4  IF NOT DEBUG                                        FCC0824       13     A     
 CLOSE2             SA3    =XP2NOGO                                                        CLOSE2        38     A     
 CLOSE2             NZ     X3,CLOSE2B  IF NOT EXECUTING                                    CLOSE2        39          I
          -FCC0824
 CLOSE2             NZ     X3,PS2CTL4  IF NOT EXECUTING                                    FCC0824       14     A     
 CLOSE2                                                                                    CLOSE2        40     A     
 CLOSE2    FTN23    BSS    0                                                               CLOSE2        41          I
          -FCC0824
 CLOSE2    PS2CTL1  BSS    0                                                               FCC0824       15     A     
 CLOSE2    #OVL     ENDIF                                                                  CLOSE2        42     A     
 CLOSE2                                                                                    CLOSE2        43     A     
 CLOSE2    #RM      IFEQ   CP#RM,0                                                         CLOSE2        44     A     
 CLOSE2             READ   =XF.RLST                                                        CLOSE2        45     A     
 CLOSE2    #RM      ENDIF                                                                  CLOSE2        46     A     
 CLOSE2             CALL   PRE         PROCESS THE RLIST FILE                              CLOSE2        47     A     
 CLOSE2                                                                                    CLOSE2        48     A     
 CLOSE2             SA1    =XOPT2                                                          CLOSE2        49     A     
 CLOSE2             ZR     X1,CLOSE2   IF OPT2 = 0                                         CLOSE2        50          I
          -FCC0824
 CLOSE2             ZR     X1,PS2CTL2  IF OPT2 = 0                                         FCC0824       16     A     
 CLOSE2             CALL   GPO         PERFORM GLOBAL OPTIMIZATION                         CLOSE2        51     A     
 CLOSE2                                                                                    CLOSE2        52     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2806    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CLOSE2  
  
 CLOSE2    CLOSE2   CALL   OTC         OUTPUT TERMINAL CODE                                CLOSE2        53          I
          -FCC0824
 CLOSE2    PS2CTL2  CALL   OTC         OUTPUT TERMINAL CODE                                FCC0824       17     A     
 CLOSE2                                                                                    CLOSE2        54     A     
 CLOSE2    CLOSE2A  SA1    OPT2                                                            CLOSE2        55          I
          -FCC0824
 CLOSE2             ZR     X1,CLOSE2B  IF OPT2 = 0                                         CLOSE2        56          I
          -FCC0824
 CLOSE2    PS2CTL3  SA1    OPT2                                                            FCC0824       18     A     
 CLOSE2             ZR     X1,PS2CTL4  IF OPT2 = 0                                         FCC0824       19     A     
 CLOSE2                                                                                    CLOSE2        57     A     
 CLOSE2   *         CLOSE THE *OPT* FILE                                                   CLOSE2        58     A     
 CLOSE2                                                                                    CLOSE2        59     A     
 CLOSE2    #MD      IFLT   CT.CPU,75                                                       CLOSE2        60          I
          -S3143FC
 CLOSE2    #RM      IFEQ   CP#RM,0                                                         S3143FC       51     A     
 CLOSE2             SA2    =XF.OPT+1                                                       CLOSE2        61          I
          -FCC1706X 
 CLOSE2             SX6    X2          CLEAR RANDOM BIT                                    CLOSE2        62          I
          -FCC1706X 
 CLOSE2             SA6    A2                                                              CLOSE2        63          I
          -FCC1706X 
 CLOSE2             EVICT  A2-B1,R                                                         CLOSE2        64          I
          -FCC1706X 
 CLOSE2             SX6    1000B                                                           FCC1706X       5     A     
 CLOSE2             SA6    =XF.OPT+1                                                       FCC1706X       6     A     
 CLOSE2             SA6    A6+B1                                                           FCC1706X       7     A     
 CLOSE2             SA6    A6+B1                                                           FCC1706X       8     A     
 CLOSE2             LX6    1                                                               FCC1706X       9     A     
 CLOSE2             SA6    A6+B1                                                           FCC1706X      10     A     
 CLOSE2             EVICT  F.OPT,R                                                         FCC1706X      11     A     
 CLOSE2    #MD      ELSE                                                                   CLOSE2        65          I
          -S3143FC
 CLOSE2    #RM      ELSE                                                                   S3143FC       52     A     
 CLOSE2             CLOSEM =XFI.OPT,U                                                      CLOSE2        66     A     
 CLOSE2    #MD      ENDIF                                                                  CLOSE2        67          I
          -S3143FC
 CLOSE2    #RM      ENDIF                                                                  S3143FC       53     A     
 CLOSE2                                                                                    CLOSE2        68     A     
 CLOSE2    CLOSE2B  BSS    0                                                               CLOSE2        69          I
          -FCC0824
 CLOSE2    PS2CTL4  BSS    0                                                               FCC0824       20     A     
 CLOSE2             CALL   AFL         ADJUST FL                                           RSM2763X      65     A     
 CLOSE2    #OVL     IFEQ   .OVL,0                                                          CLOSE2        70     A     
 CLOSE2             EQ     =XFTN25                                                         CLOSE2        71     A     
 CLOSE2    #OVL     ELSE                                                                   CLOSE2        72     A     
 CLOSE2             LOVER  OVL25       LOAD AND EXECUTE PASS3                              CLOSE2        73     A     
 CLOSE2    #OVL     ENDIF                                                                  CLOSE2        74     A     
 CLOSE2    EREXITS  SPACE  3,14                                                            CLOSE2        75     A     
 CLOSE2   **        PUNT - INSUFFICIENT MEMORY TO COMPILE                                  CLOSE2        76     A     
 CLOSE2                                                                                    CLOSE2        77     A     
 CLOSE2    P2MO     DIS    ,*0PASS 2 MEMORY OVERFLOW AT SOURCE LINE  ..... IN ....         CLOSE2        78     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2807    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CLOSE2  
  
 CLOSE2   ,...*                                                                            CLOSE2        79     A     
 CLOSE2    L.P2MO   =      *-P2MO                                                          CLOSE2        80     A     
 CLOSE2                                                                                    CLOSE2        81     A     
 CLOSE2    PUNT     ENTRY.                                                                 CLOSE2        82     A     
 CLOSE2             BX6    X1                                                              CLOSE2        83     A     
 CLOSE2             MX7    0                                                               CLOSE2        84     A     
 CLOSE2             SB1    1                                                               CLOSE2        85     A     
 CLOSE2             SA6    P2MO+5      FAILING ROUTINE NAME TO ERROR MSG TEXT              CLOSE2        86     A     
 CLOSE2             SA7    =XL.LOOP    NULLIFY THE LOOP TABLE                              CLOSE2        87     A     
 CLOSE2             SA1    =XLINENR                                                        CLOSE2        88     A     
 CLOSE2             CALL   CDD         RETURNS (X4) = LINE NR, DPC -H- FORMAT              CLOSE2        89     A     
 CLOSE2             SX6    2RIN&2R                                                         CLOSE2        90     A     
 CLOSE2             LX6    6                                                               CLOSE2        91     A     
 CLOSE2             BX7    X4-X6                                                           CLOSE2        92     A     
 CLOSE2             SA7    P2MO+4      *NNNNNN IN *   TO ERROR LINE                        CLOSE2        93     A     
 CLOSE2             LISTL  P2MO,L.P2MO ERROR MESSAGE TO SOURCE LISTING FILE                CLOSE2        94     A     
 CLOSE2                                                                                    CLOSE2        95     A     
 CLOSE2             IFEQ   TEST,0,1                                                        CLOSE2        96     A     
 CLOSE2             MESSAGE  =XCOMPMSG,,R    *  COMPILING NAME *                           CLOSE2        97     A     
 CLOSE2                                                                                    CLOSE2        98     A     
 CLOSE2             MESSAGE  (=C/    ** PASS 2 MEMORY OVERFLOW **/),,R                     CLOSE2        99     A     
 CLOSE2             SA2    =XN.FERR                                                        CLOSE2       100          I
          -FCC2020
 CLOSE2                                                                                    FCC2020       13     A     
 CLOSE2             ENTRY  PS2ABT                                                          FCC2020       14     A     
 CLOSE2    PS2ABT   SA2    =XN.FERR                                                        FCC2020       15     A     
 CLOSE2             SX7    X2+B1       FATAL ERROR COUNT + 1                               CLOSE2       101     A     
 CLOSE2             SA7    A2                                                              CLOSE2       102     A     
 CLOSE2             EQ     CLOSE2A                                                         CLOSE2       103          I
          -FCC0824
 CLOSE2             EQ     PS2CTL3                                                         FCC0824       21     A     
 CLOSE2                                                                                    CLOSE2       104     A     
 CLOSE2    .T       IFNE   TEST,0,1                                                        CLOSE2       105     A     
 CLOSE2    RPVPLG   RJ     =XPTC=      PLUG FOR REPRIEVE                                   CLOSE2       106     A     
 CLOSE2                                                                                    CLOSE2       107     A     
 CLOSE2             END                                                                    CLOSE2       108     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CLOSE2  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CLOSE2                     108        87
          FCC0824                     13        13
          S3143FC                      3         3
          FEAT155F                     5         5
          RSM2763X                     5         5
          FCC1706X                     7         7
          FCC2020                      3         3
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFTBLD  
  
 CFTBLD   *COMDECK  CFTBLD                                                                 CFTBLD         1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2808    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFTBLD  
  
 CFTBLD    CFTBLD   CTEXT  CFTBLD - CONTROL FLOW TABLE DEFINITIONS                         CFTBLD         2     A     
 CFTBLD                                                                                    CFTBLD         3     A     
 CFTBLD   **        CF. - CONTROL FLOW TABLE FORMAT                                        CFTBLD         4     A     
 CFTBLD                                                                                    CFTBLD         5     A     
 CFTBLD             DESCRIBE CF.,60                                                        CFTBLD         6     A     
 CFTBLD    JP       DEFINE 1                                                               CFTBLD         7     A     
 CFTBLD             DEFINE 11                                                              CFTBLD         8     A     
 CFTBLD    FROM     DEFINE 18          BLOCK NUMBER OF PRED                                CFTBLD         9     A     
 CFTBLD             DEFINE 12                                                              CFTBLD        10     A     
 CFTBLD    TO       DEFINE 18          BLOCK NUMBER OF SUCC                                CFTBLD        11     A     
 CFTBLD    GST      SPACE  3                                                               CFTBLD        12     A     
 CFTBLD   **        THE GRAPH STRUCTURE TABLES CONSIST OF ( FOR EACH GRAPH ) -             CFTBLD        13     A     
 CFTBLD   *         GA, GB WORDS, THE EDGE INDEX TABLE, THE EDGE TABLE, AND                CFTBLD        14     A     
 CFTBLD   *         INTERVAL LISTS, WHICH ARE TERMINATED BY A ZERO WORD.                   CFTBLD        15     A     
 CFTBLD                                                                                    CFTBLD        16     A     
 CFTBLD   **        GRAPH HEADER WORDS                                                     CFTBLD        17     A     
 CFTBLD                                                                                    CFTBLD        18     A     
 CFTBLD             DESCRIBE GA.,60                                                        CFTBLD        19     A     
 CFTBLD             DEFINE 24                                                              CFTBLD        20     A     
 CFTBLD    LB       DEFINE 18          LINK BACKWARDS ( LENGTH OF LAST GRAPH )             CFTBLD        21     A     
 CFTBLD    LF       DEFINE 18          LINK FOWARD ( LENGTH OF THIS GRAPH )                CFTBLD        22     A     
 CFTBLD                                                                                    CFTBLD        23     A     
 CFTBLD             DESCRIBE GB.,60                                                        CFTBLD        24     A     
 CFTBLD             DEFINE 6                                                               CFTBLD        25     A     
 CFTBLD    NLP      DEFINE 18          N.LOOPS                                             CFTBLD        26     A     
 CFTBLD    NB       DEFINE 18          N.BLOCKS IN GRAPH                                   CFTBLD        27     A     
 CFTBLD    ILI      DEFINE 18          INTERVAL LIST INDEX ( REL TO *EII* )                CFTBLD        28     A     
 CFTBLD    EIT      SPACE  2,10                                                            CFTBLD        29     A     
 CFTBLD   **        EI. - EDGE INDEX TABLE                                                 CFTBLD        30     A     
 CFTBLD                                                                                    CFTBLD        31     A     
 CFTBLD             DESCRIBE EI.,60                                                        CFTBLD        32     A     
 CFTBLD    PRI      DEFINE 18          PREDECESSOR INDEX  ( REL TO EIB )                   CFTBLD        33     A     
 CFTBLD    NP       DEFINE 12          N.PRED ( PACKED )                                   CFTBLD        34     A     
 CFTBLD    SUI      DEFINE 18          SUCCESSOR INDEX                                     CFTBLD        35     A     
 CFTBLD    NS       DEFINE 12          N.SUCC ( PACKED )                                   CFTBLD        36     A     
 CFTBLD    EIT      SPACE  2,10                                                            CFTBLD        37     A     
 CFTBLD   **        ET. - EDGE TABLE FORMAT                                                CFTBLD        38     A     
 CFTBLD                                                                                    CFTBLD        39     A     
 CFTBLD             DESCRIBE ET.,60                                                        CFTBLD        40     A     
 CFTBLD    JP       DEFINE 1           JUMP EDGE ( SUCCESSOR EDGES )                       CFTBLD        41     A     
 CFTBLD             DEFINE 11                                                              CFTBLD        42     A     
 CFTBLD    PRED     DEFINE 18          BLOCK NUMBER OF PRED                                CFTBLD        43     A     
 CFTBLD             DEFINE 12                                                              CFTBLD        44     A     
 CFTBLD    SUCC     DEFINE 18          BLOCK NUMBER OF SUCCESSOR                           CFTBLD        45     A     
 CFTBLD    IP       SPACE  3,14                                                            CFTBLD        46     A     
 CFTBLD   **        IP. - INTERVAL PROPERTIES                                              CFTBLD        47     A     
 CFTBLD                                                                                    CFTBLD        48     A     
 CFTBLD             DESCRIBE IP.,60                                                        CFTBLD        49     A     
 CFTBLD    GL       DEFINE 1           SET IF REGION NEEDS A *GL* WHEN OPTIMIZED           CFTBLD        50     A     
 CFTBLD             DEFINE 5                                                               CFTBLD        51          I
          -FCC0408
 CFTBLD    FT       DEFINE 1           FALL THROUGH TO HEADER NODE                         FCC0408        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2809    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFTBLD  
  
 CFTBLD             DEFINE 4                                                               FCC0408        8     A     
 CFTBLD    LB       DEFINE 18          BACKWARDS LINK ( NODES+1 IN PREV INTERVAL )         CFTBLD        52          I
          -FCC0392
 CFTBLD    NIP      DEFINE 18          N. INTERNAL PRED OF HEADER NODE                     FCC0392       11     A     
 CFTBLD    PB       DEFINE 18          BLOCK NUMBER OF PROLOGUE BLOCK ( *SCR* " 0          CFTBLD        53     A     
 CFTBLD    NODE     DEFINE 18          NUMBER OF NODES IN INTERVAL                         CFTBLD        54     A     
 CFTBLD    IM       SPACE  2                                                               CFTBLD        55     A     
 CFTBLD   **        IM. - INTERVAL MEMBER PROPERTIES                                       CFTBLD        56     A     
 CFTBLD                                                                                    CFTBLD        57     A     
 CFTBLD             DESCRIBE IM.,60                                                        CFTBLD        58     A     
 CFTBLD    SCR      DEFINE 1           IN STRONGLY CONNECTED REGION                        CFTBLD        59     A     
 CFTBLD    AP       DEFINE 1           ARTICULATION POINT                                  CFTBLD        60     A     
 CFTBLD    LN       DEFINE 1           LATCHING NODE ( JUMPS BACK TO LOOP HEADER )         CFTBLD        61     A     
 CFTBLD    DOM      DEFINE 1           NODE IS A DOMINATOR                                 CFTBLD        62     A     
 CFTBLD    EN       DEFINE 1           INTERVAL EXIT NODE                                  CFTBLD        63     A     
 CFTBLD    HN       DEFINE 1           HEADER NODE                                         CFTBLD        64     A     
 CFTBLD    BI       DEFINE 18          INDEX TO BLOCK INFO IN *BIT*                        CFTBLD        65     A     
 CFTBLD    IBD      DEFINE 18          IMMEDIATE BACK DOMINATOR ( REL TO *HN* )            CFTBLD        66     A     
 CFTBLD    BN       DEFINE 18          NODE NUMBER OF BLOCK                                CFTBLD        67     A     
 CFTBLD                                                                                    CFTBLD        68     A     
 CFTBLD    APLN     DEQU   LN,2        AP AND LN BITS                                      CFTBLD        69     A     
 CFTBLD                                                                                    CFTBLD        70     A     
 CFTBLD             ENDX                                                                   CFTBLD        71     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CFTBLD  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CFTBLD                      71        69
          FCC0392                      1         1
          FCC0408                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IOTBLD  
  
 IOTBLD   *COMDECK  IOTBLD                                                                 IOTBLD         1     A     
 IOTBLD    IOTBLD   CTEXT  IOTBLD - RANDOM I/O TABLE FORMAT DEFINITIONS                    IOTBLD         2     A     
 IOTBLD                                                                                    IOTBLD         3     A     
 IOTBLD   **        RI. - RANDOM INDEX WORD                                                IOTBLD         4     A     
 IOTBLD                                                                                    IOTBLD         5     A     
 IOTBLD             DESCRIBE RI.,60    RIW(FLAGS,LEN,[FWA],[LCM],[OFS,RA])                 IOTBLD         6     A     
 IOTBLD    IC       DEFINE 1           =1  IN CORE, =0 ON MS                               IOTBLD         7     A     
 IOTBLD    AT       DEFINE 1           ADDRESS TYPE, =0 DISK, =1 LCM                       IOTBLD         8     A     
 IOTBLD             DEFINE 1                                                               IOTBLD         9     A     
 IOTBLD    LEN      DEFINE 18          BLOCK LENGTH (INCORE COPY)                          IOTBLD        10     A     
 IOTBLD    OFS      DEFINE 9           BLOCK OFFSET IN RECORD                              IOTBLD        11     A     
 IOTBLD    RA       DEFINE 30          DISK ADDRESS OF BLOCK                               IOTBLD        12     A     
 IOTBLD                                                                                    IOTBLD        13     A     
 IOTBLD             DESCRIBE RI.,36                                                        IOTBLD        14     A     
 IOTBLD    FWA      DEFINE 18          FWA OF BLOCK IN *BLK*                               IOTBLD        15     A     
 IOTBLD    LCM      DEFINE 18          LCM ADDRESS OF BLOCK                                IOTBLD        16     A     
 IOTBLD    BAW      SPACE  2,8                                                             IOTBLD        17     A     
 IOTBLD   **        BA. - BLOCK ADDRESS INFORMATION WORD                                   IOTBLD        18     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2810    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN IOTBLD  
  
 IOTBLD                                                                                    IOTBLD        19     A     
 IOTBLD             DESCRIBE BA.,60    BAW(FLAGS,BI,LEN,FWA)                               IOTBLD        20     A     
 IOTBLD    BLK      DEFINE 1           =1 IF BLOCK IS IN *BLK*                             IOTBLD        21     A     
 IOTBLD    PRI      DEFINE 1           BLOCK PRIORITY FOR PURGING                          IOTBLD        22     A     
 IOTBLD    HB       DEFINE 1           HOLDING BLOCK                                       IOTBLD        23     A     
 IOTBLD    FW       DEFINE 1           FINAL WRITE FLAG                                    IOTBLD        24     A     
 IOTBLD             DEFINE 2                                                               IOTBLD        25     A     
 IOTBLD    BI       DEFINE 18          *BIT* INDEX ( = BN*2 )                              IOTBLD        26     A     
 IOTBLD    LEN      DEFINE 18          BLOCK LENGTH  (INCORE COPY)                         IOTBLD        27     A     
 IOTBLD    FWA      DEFINE 18          FWA OF BLOCK IN *BLK*                               IOTBLD        28     A     
 IOTBLD                                                                                    IOTBLD        29     A     
 IOTBLD    HBB      DEQU   HB,2        HB AND PRI BITS                                     IOTBLD        30     A     
 IOTBLD    SAV      DEQU   BI,23                                                           IOTBLD        31     A     
 IOTBLD    SVL      DEQU   LEN,41                                                          IOTBLD        32     A     
 IOTBLD    BHW      SPACE  2,8                                                             IOTBLD        33     A     
 IOTBLD   **        BH. - BLOCK HEADER INFORMATION WORD                                    IOTBLD        34     A     
 IOTBLD                                                                                    IOTBLD        35     A     
 IOTBLD             DESCRIBE BH.,60    BHW(FLAGS,BI,BST,LEN)                               IOTBLD        36     A     
 IOTBLD    AV       DEFINE 1           =1 BLOCK IS AVAILABLE SPACE                         IOTBLD        37     A     
 IOTBLD    PRI      DEFINE 1           BLOCK PRIORITY FOR PURGING                          IOTBLD        38     A     
 IOTBLD    HB       DEFINE 1           HOLDING BLOCK                                       IOTBLD        39     A     
 IOTBLD    FW       DEFINE 1           FINAL WRITE FLAG                                    IOTBLD        40     A     
 IOTBLD             DEFINE 2                                                               IOTBLD        41     A     
 IOTBLD    BI       DEFINE 18          BIT INDEX, (BN*2)                                   IOTBLD        42     A     
 IOTBLD    BST      DEFINE 18          INDEX TO BST TABLE                                  IOTBLD        43     A     
 IOTBLD    LEN      DEFINE 18          BLOCK LENGTH                                        IOTBLD        44     A     
 IOTBLD                                                                                    IOTBLD        45     A     
 IOTBLD   **        BT. - BLOCK TRAILER WORD                                               IOTBLD        46     A     
 IOTBLD                                                                                    IOTBLD        47     A     
 IOTBLD             DESCRIBE BT.,60    BTW(FLAGS,LKB,LKF,LEN)                              IOTBLD        48     A     
 IOTBLD    AV       DEFINE 1           =1 BLOCK IS AVAILABLE SPACE                         IOTBLD        49     A     
 IOTBLD             DEFINE 5                                                               IOTBLD        50     A     
 IOTBLD    LKB      DEFINE 18          ABS LINK BACKWARD                                   IOTBLD        51     A     
 IOTBLD    LKF      DEFINE 18          ABS LINK FORWARD                                    IOTBLD        52     A     
 IOTBLD    LEN      DEFINE 18          BLOCK LENGTH (INCLUDING EXTRA WORDS)                IOTBLD        53     A     
 IOTBLD                                                                                    IOTBLD        54     A     
 IOTBLD             ENDX                                                                   IOTBLD        55     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - IOTBLD  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          IOTBLD                      55        55
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPOCOM  
  
 GPOCOM   *COMDECK  GPOCOM                                                                 GPOCOM         1     A     
 GPOCOM    CLCM     TITLE  CLCM - COROUTINE LOOP CONTROL MACRO                             GPOCOM         2     A     
 GPOCOM   **        CLCM - COROUTINE LOOP CONTROL MACRO                                    GPOCOM         3     A     
 GPOCOM   *                                                                                GPOCOM         4     A     
 GPOCOM   *         CLCM   ROUTINE,(BSW-FLAGS)                                             GPOCOM         5     A     
 GPOCOM   *                                                                                GPOCOM         6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2811    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPOCOM  
  
 GPOCOM   *         CALL *ROUTINE* FROM *PCC* IF *BSW-FLAGS* " 0 , FOR EACH BLOCK          GPOCOM         7     A     
 GPOCOM   *         IN THE REGION ( *SCR* ) BEING PROCESSED.                               GPOCOM         8     A     
 GPOCOM   *         IF *FIELDS* IS ABSENT, THEN CALL *ROUTINE* UNCONDITIONALLY.            GPOCOM         9     A     
 GPOCOM                                                                                    GPOCOM        10     A     
 GPOCOM    CLCM     MACRO  RTN,FIELDS                                                      GPOCOM        11     A     
 GPOCOM             LOCAL  CCW                                                             GPOCOM        12     A     
 GPOCOM             SX7    =X_RTN                                                          GPOCOM        13     A     
 GPOCOM                                                                                    GPOCOM        14     A     
 GPOCOM             IFC    EQ,/FIELDS//,2                                                  GPOCOM        15     A     
 GPOCOM             SX5    0                                                               GPOCOM        16     A     
 GPOCOM             ELSE   4                                                               GPOCOM        17     A     
 GPOCOM             SA5    CCW                                                             GPOCOM        18     A     
 GPOCOM             USE    CLCM                                                            GPOCOM        19     A     
 GPOCOM    CCW      BFMW   BS,(FIELDS)                                                     GPOCOM        20     A     
 GPOCOM             USE    *                                                               GPOCOM        21     A     
 GPOCOM                                                                                    GPOCOM        22     A     
 GPOCOM             RJ     =XPCC                                                           GPOCOM        23     A     
 GPOCOM             ENDM                                                                   GPOCOM        24     A     
 GPOCOM    FBVA     SPACE  2                                                               GPOCOM        25     A     
 GPOCOM   **        FBVA - FORM BLOCK BIT VECTOR ADDRESS                                   GPOCOM        26     A     
 GPOCOM   *                                                                                GPOCOM        27     A     
 GPOCOM   *         ENTRY  (BN) = REGISTER WITH *BI* INDEX OF BLOCK                        GPOCOM        28     A     
 GPOCOM   *                                                                                GPOCOM        29     A     
 GPOCOM   *         EXIT   (X7) = BVA = O.BVT + BVI[BIT(BN)]                               GPOCOM        30     A     
 GPOCOM   *                (X4) = BIT(BN)                                                  GPOCOM        31     A     
 GPOCOM   *                (B2) = VL = BVL + 1                                             GPOCOM        32     A     
 GPOCOM                                                                                    GPOCOM        33     A     
 GPOCOM    FBVA     MACRO  BN                                                              GPOCOM        34     A     
 GPOCOM             R=     B3,BN                                                           GPOCOM        35     A     
 GPOCOM             SA1    O.BVT                                                           GPOCOM        36     A     
 GPOCOM             SA2    BVL                                                             GPOCOM        37     A     
 GPOCOM             SA3    O.BIT                                                           GPOCOM        38     A     
 GPOCOM             SB2    X2+B1       VL = BVL + 1                                        GPOCOM        39     A     
 GPOCOM             SA4    X3+B3       BIT(BN)                                             GPOCOM        40     A     
 GPOCOM             LX4    -BI.BVIP                                                        GPOCOM        41     A     
 GPOCOM             IX7    X1+X4       BVA = O.BVT + BVI[BIT(BN)]                          GPOCOM        42     A     
 GPOCOM             LX4    BI.BVIP                                                         GPOCOM        43     A     
 GPOCOM             ENDM                                                                   GPOCOM        44     A     
 GPOCOM    PRNTABV  SPACE  2                                                               GPOCOM        45     A     
 GPOCOM   **        PRNTABV - PRINT A BIT VECTOR                                           GPOCOM        46     A     
 GPOCOM   *                                                                                GPOCOM        47     A     
 GPOCOM   *         PRNTABV  LAB,(LIST OF VECTOR ADDRESS"S)                                GPOCOM        48     A     
 GPOCOM                                                                                    GPOCOM        49     A     
 GPOCOM    PRNTABV  MACRO  LAB,BVA                                                         GPOCOM        50     A     
 GPOCOM             IF     DEF,/DEBUG/LAB,3                                                GPOCOM        51     A     
 GPOCOM             IRP    BVA                                                             GPOCOM        52     A     
 GPOCOM             DCALL  PRNTABV,(=5L BVA ,[_BVA_])                                      GPOCOM        53     A     
 GPOCOM             IRP                                                                    GPOCOM        54     A     
 GPOCOM             ENDM                                                                   GPOCOM        55     A     
 GPOCOM    MICROS   SPACE  3                                                               GPOCOM        56     A     
 GPOCOM   *         SOME POPULAR REGISTER ASSIGNMENTS                                      GPOCOM        57     A     
 GPOCOM                                                                                    GPOCOM        58     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2812    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPOCOM  
  
 GPOCOM    TB       MICRO  1,,/B7/     O.SEQ + 3                                           GPOCOM        59     A     
 GPOCOM    RN       MICRO  1,,/-X0*/   R-NUMBER EXTRACTOR MASK                             GPOCOM        60     A     
 GPOCOM    EXIT     SPACE  3,14                                                            GPOCOM        61     A     
 GPOCOM   *         E. - NODE NUMBER TO *BIT* INDEX TRANSITION TABLE FORMAT                GPOCOM        62     A     
 GPOCOM                                                                                    GPOCOM        63     A     
 GPOCOM             DESCRIBE E.,60                                                         GPOCOM        64     A     
 GPOCOM    SCR      DEFINE 1           IN *SCR*                                            GPOCOM        65     A     
 GPOCOM    JP       DEFINE 1           SUCC REACHED BY A *JP* EDGE                         GPOCOM        66     A     
 GPOCOM    ALLP     DEFINE 1           ALL PRED OF EXIT NODE IN *SCR*                      GPOCOM        67     A     
 GPOCOM    NPRED    DEFINE 9           N.PRED IN SCR OF SUCCESSOR NODE                     GPOCOM        68     A     
 GPOCOM    PRED     DEFINE 15          NODE NUM OF FIRST PRED IN SCR TO REACH SUCC         GPOCOM        69          I
          -FCC0985
 GPOCOM    PRED     DEFINE 15          *BI* OF FIRST PRED IN SCR TO REACH SUCC             FCC0985        5     A     
 GPOCOM    LINK     DEFINE 18          LINK TO NEXT ON SUCC LIST                           GPOCOM        70     A     
 GPOCOM    BI       DEFINE 15          *BIT* INDEX OF NODE NUMBER I                        GPOCOM        71     A     
 GPOCOM    PS       SPACE  3,14                                                            GPOCOM        72     A     
 GPOCOM   **        PS. - POST STORE INFO FORMAT ( *PSI* )                                 GPOCOM        73     A     
 GPOCOM   *                                                                                GPOCOM        74     A     
 GPOCOM   *         FIRST WORD OF A *PSI* ENTRY IS THE NUMBER OF POST STORES.              GPOCOM        75     A     
 GPOCOM   *         THE REMAINNG WORDS SPECIFY THE VARIABLES TO BE STORED OUT AND          GPOCOM        76     A     
 GPOCOM   *         THE REGISTERS THAT THEY ARE IN.                                        GPOCOM        77     A     
 GPOCOM                                                                                    GPOCOM        78     A     
 GPOCOM             DESCRIBE PS.,60                                                        GPOCOM        79     A     
 GPOCOM    REG      DEFINE 6           REGISTER NUMBER THAT VAR IS IN ( *SO* ORDER         GPOCOM        80     A     
 GPOCOM    UDI      DEFINE 18          UDI INDEX OF VARIABLE                               GPOCOM        81     A     
 GPOCOM    CAIH     DEFINE 36          BASE/BIAS OF SYMBOL                                 GPOCOM        82     A     
 GPOCOM    IIT      EJECT                                                                  GPOCOM        83     A     
 GPOCOM   **        IIT - INCREMENT INFO TABLE                                             GPOCOM        84     A     
 GPOCOM   *                                                                                GPOCOM        85     A     
 GPOCOM   *         *IIT* CONSISTS OF 3 LISTS -                                            GPOCOM        86     A     
 GPOCOM   *                                                                                GPOCOM        87     A     
 GPOCOM   *         A) THE LIST OF *RD* INCREMENT VALUES                                   GPOCOM        88     A     
 GPOCOM   *                HBP OF THE LINK WORD OF THE *RD* POINTS TO *IIT*                GPOCOM        89     A     
 GPOCOM   *         (IIT) = 12/P(TYPE),48/VAL                                              GPOCOM        90     A     
 GPOCOM   *                TYPE        VALUE                                               GPOCOM        91     A     
 GPOCOM   *                0           S    RI,VAL                                         GPOCOM        92     A     
 GPOCOM   *                1           LD   RI,VAL  , VAL = 12/IN[R1],36/CAIH[R2]          GPOCOM        93     A     
 GPOCOM   *                2           LD   RI,VAL , AND AN   XMTC                         GPOCOM        94     A     
 GPOCOM   *                3           TLD  RI,VAL                                         GPOCOM        95     A     
 GPOCOM   *                4           TLD  RI,VAL  , AND AN XMTC                          GPOCOM        96     A     
 GPOCOM   *                                                                                GPOCOM        97     A     
 GPOCOM   *         B) THE INTEGER POLYNOMIAL INFORMATION LIST, WHICH CONSISTS OF          GPOCOM        98     A     
 GPOCOM   *         A POLYNOMIAL INFORMATION WORD ( *PI* ), FOLLOWED BY THE                GPOCOM        99     A     
 GPOCOM   *         INCREMENT FORMULA AND THE POLYNOMIAL FORMULA.  A FORMULA               GPOCOM       100     A     
 GPOCOM   *         CONSISTS OF TWO HEADER WORDS ( *IA* AND *IB* ), FOLLOWED               GPOCOM       101     A     
 GPOCOM   *         BY INSTRUCTIONS ( 4 WORDS/INST ) WHICH DEFINE IT.                      GPOCOM       102     A     
 GPOCOM                                                                                    GPOCOM       103     A     
 GPOCOM             DESCRIBE PI.,60                                                        GPOCOM       104     A     
 GPOCOM    MIP      DEFINE 1           MARKED *IP*                                         GPOCOM       105     A     
 GPOCOM             DEFINE 5                                                               GPOCOM       106     A     
 GPOCOM    DFI      DEFINE 18          INDEX TO DIFFERENCE FORMULA IN *IIT*                GPOCOM       107          I
          -FCC0514
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2813    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPOCOM  
  
 GPOCOM    CN       DEFINE 18          CLASS NUMBER OF SET OF SIMILAR *IP"S*               FCC0514       20     A     
 GPOCOM    CA       DEFINE 18          CA OF IP THIS *IP* IS SIMILAR TO                    GPOCOM       108     A     
 GPOCOM    LF       DEFINE 18          LINK FOWARD ( REL TO *O.IIT* )                      GPOCOM       109     A     
 GPOCOM                                                                                    GPOCOM       110     A     
 GPOCOM             DESCRIBE IA.,60                                                        GPOCOM       111     A     
 GPOCOM    NWD      DEFINE 12          P(N.WDS IN FORMULA) , INCLUDES HEADER WDS           GPOCOM       112     A     
 GPOCOM             DEFINE 12                                                              GPOCOM       113     A     
 GPOCOM    CA       DEFINE 18          CA OF *IP*                                          GPOCOM       114     A     
 GPOCOM    UDI      DEFINE 18          *UDI* INDEX OF INTEGER VARIABLE *LD*                GPOCOM       115     A     
 GPOCOM                                                                                    GPOCOM       116     A     
 GPOCOM             DESCRIBE IB.,60                                                        GPOCOM       117     A     
 GPOCOM    NLD      DEFINE 12          P(N.LD"S IN FORMULA)                                GPOCOM       118     A     
 GPOCOM             DEFINE 30                                                              GPOCOM       119     A     
 GPOCOM    ILD      DEFINE 18          *RI* OF *LD* OF *RD* VAR IN EXPRESSION              GPOCOM       120     A     
 GPOCOM                                                                                    GPOCOM       121     A     
 GPOCOM   *         C) A LIST OF POLYNOMIAL INCREMENT VALUES AT THE POINT                  GPOCOM       122     A     
 GPOCOM   *         OF A *RD*.                                                             GPOCOM       123     A     
 GPOCOM   *         THIS LIST CONSISTS OF 2 WORDS / ENTRY, TERMINATED BY A 0 WORD          GPOCOM       124     A     
 GPOCOM   *                                                                                GPOCOM       125     A     
 GPOCOM   *         WORD 1 = 60/CA OF *TST* THAT IS BEGIN INCREMENTED                      GPOCOM       126     A     
 GPOCOM   *         WORD 2 = 12/TYPE,48/VAL OF INCREMENT , AS IN LIST A .                  GPOCOM       127     A     
 GPOCOM   *                                                                                GPOCOM       128     A     
 GPOCOM   *         THE FORMAT OF THE LINK WORD OF THE *RD* IS                             GPOCOM       129     A     
 GPOCOM   *                12/P(N.PI),12/,18/STC,18/INDEX TO LIST IN *IIT*                 GPOCOM       130     A     
 GPOCOM    COMMON   TITLE  GPO/GRA COMMON VARIABLES                                        GPOCOM       131     A     
 GPOCOM   *         THE FOLLOWING LOCATIONS ARE SHARED BETWEEN *GPO* AND *GRA*             GPOCOM       132     A     
 GPOCOM                                                                                    GPOCOM       133     A     
 GPOCOM             USE    /GPOGRA/                                                        GPOCOM       134     A     
 GPOCOM    O.UDT    BSS    1           FWA OF *UDI* IN LOW CORE                            GPOCOM       135     A     
 GPOCOM    L.UDT    BSS    1           LENGTH                                              GPOCOM       136     A     
 GPOCOM    O.MVL    BSS    1           FWA OF MARKED VAR LIST ( IN *UDT* )                 GPOCOM       137     A     
 GPOCOM                                                                                    GPOCOM       138     A     
 GPOCOM   *         ADDRESS"S OF SPECIAL BIT VECTORS                                       GPOCOM       139     A     
 GPOCOM                                                                                    GPOCOM       140     A     
 GPOCOM    DVA      BSS    1           REGION *DEF* VECTOR                                 GPOCOM       141     A     
 GPOCOM    LUV      BSS    1           LOOP USEAGE VECTOR                                  GPOCOM       142     A     
 GPOCOM    UVA      BSS    1           REGION *USE* VECTOR                                 GPOCOM       143     A     
 GPOCOM    LXA      BSS    1           REGION *LIVE EXIT* VECTOR                           GPOCOM       144     A     
 GPOCOM                                                                                    GPOCOM       145     A     
 GPOCOM    LEA      BSS    1           REGION *LIVE ENTRY* VECTOR                          GPOCOM       146     A     
 GPOCOM    MDA      BSS    1           *MOVABLE DEFS*                                      GPOCOM       147     A     
 GPOCOM    SVA      BSS    1           SCRATCH VECTOR                                      GPOCOM       148     A     
 GPOCOM    N.SBV    EQU    *-DVA       N. SPECIAL BIT VECTORS                              GPOCOM       149     A     
 GPOCOM   *                        WSC                                                     GPOCOM       150     A     
 GPOCOM    M.PL     CON    100B        MAX *PIT* LENGTH                                    GPOCOM       151     A     
 GPOCOM                                                                                    GPOCOM       152     A     
 GPOCOM    EMF      CON    2           FP/LVL EXPANSION MODE ( *CBB* ARGUMENT )            GPOCOM       153     A     
 GPOCOM    ITL      BSS    1           INITIAL *TET* LENGTH                                GPOCOM       154     A     
 GPOCOM    MRA      VFD    36/,24/-0   MACHINE REGISTERS AVAILABLE ( 8/X,8/A,8/B )         GPOCOM       155     A     
 GPOCOM    LGL      BSS    1           LP GEN LBL, LL=LP LBL 42/GEN LBL-LL,18/LL           FCC0909        7     A     
 GPOCOM                                                                                    GPOCOM       156     A     
 GPOCOM   *                           ?FWA OF CLEARED CELLS                                GPOCOM       157     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2814    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPOCOM  
  
 GPOCOM    N.HB     BSS    1           N. HOLDING BLOCKS IN LOOP ( =0 IF INNERMOST         GPOCOM       158     A     
 GPOCOM    XRF      BSS    1           "0 IF LOOP CONTAINS EXTERNAL REFS                   GPOCOM       159     A     
 GPOCOM                                                                                    GPOCOM       160     A     
 GPOCOM    LCV      BSS    1           18/UDI,36/CAIH OF LOOP CONTROL VAR                  GPOCOM       161     A     
 GPOCOM             BSS    1           REGNO THAT IT IS IN                                 GPOCOM       162     A     
 GPOCOM    LUL      BSS    1           LOOP UPPER LIMIT IN *IIT A* FORMAT                  GPOCOM       163     A     
 GPOCOM             BSS    1           REGNO THAT IT IS IN                                 GPOCOM       164     A     
 GPOCOM    LIH      BSS    2           IH OF LOOP LABEL / *R2* WORD OF *LAB*               GPOCOM       165     A     
 GPOCOM    N.LJ     BSS    1           N. JPX"S THAT REF LOOP LABEL                        GPOCOM       166     A     
 GPOCOM    LTT      BSS    1           LOOP TEST TYPE, =0 IF NO TEST REPLACEMENT           GPOCOM       167     A     
 GPOCOM   *                            =1 , TEST IS  IF( LCV @ LUL ) GO TO LIH             GPOCOM       168     A     
 GPOCOM   *                        FXI                                                     GPOCOM       169     A     
 GPOCOM    O.ENL    BSS    1           FWA OF EXIT NODE LIST IN *BTT*                      GPOCOM       170     A     
 GPOCOM    N.ENL    BSS    1           N. EXIT NODES                                       GPOCOM       171     A     
 GPOCOM    EPSI     BSS    1           EPILOGUE POST STORE BIT VECTOR INDEX                GPOCOM       172          I
          -FCC0985
 GPOCOM   *                            IN *RXI*, 0 IF NONE.                                GPOCOM       173          I
          -FCC0985
 GPOCOM    EPSI     BSS    1           N. EXIT NODES THAT ARE FALL THROUGH                 FCC0985        6     A     
 GPOCOM   *                        CBB                                                     GPOCOM       174     A     
 GPOCOM    MAXW     BSS    1           MAX *REG WIDTH* OF REGION                           GPOCOM       175     A     
 GPOCOM    N.EBB    BSS    1           N. EXTENDED BASIC BLOCKS IN REGION                  GPOCOM       176     A     
 GPOCOM                                                                                    GPOCOM       177     A     
 GPOCOM    PL       BSS    1           *PIT* LENGTH AT START OF BLOCK                      GPOCOM       178     A     
 GPOCOM    LBN      BSS    1           MAX PROGRAM BLOCK NUMBER CODED ( TET PACK )         GPOCOM       179          I
          -FCC0675
 GPOCOM    STP      BSS    1           "0 IF SOME *IP* IS A FUNCTION OF THE*LCV*           GPOCOM       180     A     
 GPOCOM    N.CLC    EQU    *-N.HB     'END OF ZEROED CELLS REGION                          GPOCOM       181     A     
 GPOCOM             USE    0                                                               GPOCOM       182     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - GPOCOM  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          GPOCOM                     182       177
          FCC0514                      1         1
          FCC0909                      1         1
          FCC0985                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDTBLD  
  
 UDTBLD   *COMDECK  UDTBLD                                                                 UDTBLD         1     A     
 UDTBLD    UDTBLD   CTEXT  UDTBLD - USE/DEF TABLE FORMAT DEFINITIONS                       UDTBLD         2     A     
 UDTBLD                                                                                    UDTBLD         3     A     
 UDTBLD   **        UA. - FORMAT OF USE/DEF INDEX TABLE DURING CHAINING PHASE              UDTBLD         4     A     
 UDTBLD                                                                                    UDTBLD         5     A     
 UDTBLD             DESCRIBE UA.,60                                                        UDTBLD         6     A     
 UDTBLD             DEFINE 5                                                               UDTBLD         7     A     
 UDTBLD    CR       DEFINE 1                                                               UDTBLD         8     A     
 UDTBLD    HL       DEFINE 18          HASH LINK                                           UDTBLD         9     A     
 UDTBLD    CA       DEFINE 18          BIAS ( IF CR " 0, THEN CA = -0 )                    UDTBLD        10     A     
 UDTBLD    IH       DEFINE 18          BASE ( SYMBOL ORDINAL )                             UDTBLD        11     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2815    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDTBLD  
  
 UDTBLD                                                                                    UDTBLD        12     A     
 UDTBLD    CAIH     DEQU   IH,36                                                           UDTBLD        13     A     
 UDTBLD    UD       SPACE  2                                                               UDTBLD        14     A     
 UDTBLD   **        UD. - FORMAT OF USE/DEF TABLE AFTER CHAINING                           UDTBLD        15     A     
 UDTBLD   *                                                                                UDTBLD        16     A     
 UDTBLD   *         ENTRY  0 - SPOIL ENTRY ( NO OPTIMIZATION POSSIBLE )                    UDTBLD        17     A     
 UDTBLD   *                1 - LOAD ONLY VARIABLES ( A0+K )                                UDTBLD        18     A     
 UDTBLD   *                                                                                UDTBLD        19     A     
 UDTBLD   *         WORD 2 = 12/P(BITN),30/,18/WI ( WORD INDEX )                           UDTBLD        20     A     
 UDTBLD                                                                                    UDTBLD        21     A     
 UDTBLD             DESCRIBE UD.,60                                                        UDTBLD        22     A     
 UDTBLD    DEFR     DEFINE 1           DEFINED IN REGION                                   UDTBLD        23     A     
 UDTBLD    DEF      DEFINE 1           IH/CA DEFINED IN BLOCK                              UDTBLD        24     A     
 UDTBLD    DBU      DEFINE 1           DEFINITION BEFORE USE                               UDTBLD        25     A     
 UDTBLD    USE      DEFINE 1           USE                                                 UDTBLD        26     A     
 UDTBLD    ^RD      DEFINE 1           NOT RECURSIVELY DEFINED                             UDTBLD        27     A     
 UDTBLD    IST      DEFINE 1           INTERFERING STORE ( RJX, ETC. )                     UDTBLD        28     A     
 UDTBLD                                                                                    UDTBLD        29     A     
 UDTBLD    STC      DEFINE 9           STORE COUNT                                         UDTBLD        30     A     
 UDTBLD    RF       DEFINE 1           SHORT USAGE IN A LOOP                               FCC1504X       7     A     
 UDTBLD    FP       DEFINE 1           IH/CA IS A F.P.                                     UDTBLD        31     A     
 UDTBLD             DEFINE P.FP-P.COM-1                                                    UDTBLD        32     A     
 UDTBLD    COM      DEFINE 1           IH/CA IS IN COMMON                                  UDTBLD        33     A     
 UDTBLD             DEFINE 6-P.FP+P.COM                                                    UDTBLD        34          I
          -FCC1504X 
 UDTBLD             DEFINE 5-P.FP+P.COM                                                    FCC1504X       8     A     
 UDTBLD    BMI      DEFINE 18          INDEX TO BASE MEMBER ( CM " 0 )                     UDTBLD        35     A     
 UDTBLD    CM       DEFINE 1           CLASS MEMBER ( NON BASE MEMBER OF EQV CLASS )       UDTBLD        36     A     
 UDTBLD    CR       DEFINE 1           CLASS REPRESENTATIVE                                UDTBLD        37     A     
 UDTBLD    ECL      DEFINE 18          EQUIV CHAIN LINK ( TO NEXT ON CHAIN )               UDTBLD        38     A     
 UDTBLD                                                                                    UDTBLD        39     A     
 UDTBLD    DEFB     DEQU   DEF,2       DEF BITS ( REGION AND BLOCK )                       UDTBLD        40     A     
 UDTBLD    MV       DEQU   USE,3       MARKED VARIABLE ( USE, DBU, DEF )                   UDTBLD        41     A     
 UDTBLD    CB       DEQU   CR,2        CLASS BITS                                          UDTBLD        42     A     
 UDTBLD    SMS      DEQU   STC,2       STORE MOTION SPOIL FOR VARS DEF IN INNERLP          UDTBLD        43     A     
 UDTBLD    R2       SPACE  2                                                               UDTBLD        44     A     
 UDTBLD   **        R2. - FORMAT OF *R2* WORD OF *BOS* OF BLOCK WRITTEN TO MASS            UDTBLD        45     A     
 UDTBLD   *                STORAGE                                                         UDTBLD        46     A     
 UDTBLD                                                                                    UDTBLD        47     A     
 UDTBLD             DESCRIBE R2.,60                                                        UDTBLD        48     A     
 UDTBLD    UXR      DEFINE 1           =1 IF USER EXT REFS IN BLOCK                        UDTBLD        49     A     
 UDTBLD             DEFINE 17                                                              UDTBLD        50     A     
 UDTBLD    MRA      DEFINE 24          MACHINE REGISTERS AVAIL                             UDTBLD        51     A     
 UDTBLD    TXTL     DEFINE 18          *TXT* LENGTH OF BLOCK                               UDTBLD        52     A     
 UDTBLD                                                                                    UDTBLD        53     A     
 UDTBLD             ENDX                                                                   UDTBLD        54     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - UDTBLD  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          UDTBLD                      54        53
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2816    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDTBLD  
  
          FCC1504X                     2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO      *DECK     MIO                                                                    MIO            1     A     
 MIO                IDENT  MIO                                                             MIO            2     A     
 MIO       MIO      TITLE  MIO - MASS STORAGE RANDOM I/O                                   MIO            3     A     
 MIO      *CALL     SSTCALL                                                                MIO            4     A     
 MIO       B=MIO    RPVDEF                                                                 MIO            5     A     
 MIO                PASS2TM                                                                MIO            6     A     
 MIO      *IF       DEF,MIO,1                                                              MIO            7     A     
 MIO                TRACER (WMB,RTB,DMB)                                                   MIO            8     A     
 MIO                                                                                       MIO            9     A     
 MIO      **        MIO - MASS STORAGE I/O ROUTINES                                        MIO           10     A     
 MIO      *                                                                                MIO           11     A     
 MIO      *         THIS SET OF SUBROUTINES HANDLES DYNAMIC STORAGE ALLOCATION             MIO           12     A     
 MIO      *         FOR EXTENDED BASIC BLOCKS DURING OPT=2 PROCESSING.  BLOCKS             MIO           13     A     
 MIO      *         ARE PAGED FROM LCM/ECS OR DISK INTO AN SCM TABLE *BLK* AS THEY         MIO           14     A     
 MIO      *         ARE REQUESTED.  THE RANDOM INDEX WORDS IN *BIT* AND THE BLOCK          MIO           15     A     
 MIO      *         ADDRESS WORDS IN *BST* ARE UPDATED FOR EACH BLOCK THAT IS              MIO           16     A     
 MIO      *         MOVED.  THEY CONTAIN CURRENT POSITIONAL INFORMATION INCLUDING          MIO           17     A     
 MIO      *         THE SCM FWA, DISK ADDRESS, LCM/ECS ADDRESS, LENGTH, AND STATUS         MIO           18     A     
 MIO      *         BITS FOR EACH BLOCK.                                                   MIO           19     A     
 MIO      *         SPACE IN *BLK* AND LCM/ECS IS ALLOCATED USING KNUTHS BOUNDARY          MIO           20     A     
 MIO      *         TAG METHOD.  IT REQUIRES HEADER AND TRAILER WORDS FOR EVERY            MIO           21     A     
 MIO      *         BLOCK.  THE LINKED LIST OF AVAILABLE SPACE IS KEPT IN THE              MIO           22     A     
 MIO      *         BLOCK TRAILER WORDS.  THE ADVANTAGE OF THIS TECHNIQUE IS THAT          MIO           23     A     
 MIO      *         ESSENTIALLY A FIXED AMOUNT OF TIME IS REQUIRED TO FREE AN AREA         MIO           24     A     
 MIO      *         AND COLLAPSE IT WITH ANY ADJACENT FREE AREA, WHILE OTHER               MIO           25     A     
 MIO      *         METHODS WOULD REQUIRE A LIST SEARCH.  IT ALSO SIMPLIFIES               MIO           26     A     
 MIO      *         GARBAGE COLLECTION PROCEDURES.  THE METHOD  IS DESCRIBED BY            MIO           27     A     
 MIO      *         GRIES IN "COMPILER CONSTRUCTION FOR DIGITAL COMPUTERS",                MIO           28     A     
 MIO      *         SECTION 8.10.                                                          MIO           29     A     
 MIO                                                                                       MIO           30     A     
 MIO       #MD      IFLT   CT.CPU,75                                                       MIO           31          I
          -S3143FCA 
 MIO       #MD      IFLT   CT.CPU,76                                                       S3143FCA       3     A     
 MIO                                                                                       MIO           32     A     
 MIO       RXX,Q    OPDEF  I,J,Q                                                           MIO           33     A     
 MIO                R=     A0,Q                                                            MIO           34     A     
 MIO                R=     X0,X_J                                                          MIO           35     A     
 MIO      +         RE     B1                                                              MIO           36          I
          -F7540FT
 MIO      -         EQ     ERRECSR                                                         MIO           37          I
          -F7540FT
 MIO                RL     B1                                                              F7540FT       37     A     
 MIO                SA.I   A0                                                              MIO           38     A     
 MIO       R        ERRPL  I-6         OPERAND NOT IN LD REG                               MIO           39     A     
 MIO                ENDM                                                                   MIO           40     A     
 MIO                                                                                       MIO           41     A     
 MIO       WXX,Q    OPDEF  I,J,Q                                                           MIO           42     A     
 MIO                R=     A0,Q                                                            MIO           43     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2817    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                R=     X0,X_J                                                          MIO           44     A     
 MIO                SA.I   A0                                                              MIO           45     A     
 MIO      +         WE     B1                                                              MIO           46          I
          -F7540FT
 MIO      -         EQ     ERRECSW                                                         MIO           47          I
          -F7540FT
 MIO                WL     B1                                                              F7540FT       38     A     
 MIO       R        ERRMI  I-6         OPERAND NOT IN ST REG                               MIO           48     A     
 MIO                ENDM                                                                   MIO           49     A     
 MIO                                                                                       MIO           50     A     
 MIO       BLK.SIZ  EQU    377B                                                            FCC0448       13     A     
 MIO       #MD      ELSE                                                                   MIO           51     A     
 MIO                                                                                       MIO           52     A     
 MIO       RXX,Q    OPDEF  I,J,Q                                                           MIO           53     A     
 MIO                RX.I   X.J                                                             MIO           54     A     
 MIO                ENDM                                                                   MIO           55     A     
 MIO                                                                                       MIO           56     A     
 MIO       WXX,Q    OPDEF  I,J,Q                                                           MIO           57     A     
 MIO                WX.I   X.J                                                             MIO           58     A     
 MIO                ENDM                                                                   MIO           59     A     
 MIO                                                                                       MIO           60     A     
 MIO       BLK.SIZ  EQU    1777B                                                           FCC0448       14     A     
 MIO       #MD      ENDIF                                                                  MIO           61     A     
 MIO                                                                                       F7540FT       39     A     
 MIO       #MD      IFNE   CT.7X*100D+CT.CPU,76D                                           F7540FT       40     A     
 MIO                                                                                       F7540FT       41     A     
 MIO                PURGDEF RLB                                                            F7540FT       42     A     
 MIO                PURGDEF WLB                                                            F7540FT       43     A     
 MIO       RLB      OPDEF  I                                                               F7540FT       44     A     
 MIO      +         RL     B.I+0                                                           F7540FT       45     A     
 MIO      -         EQ     ERRECSR                                                         F7540FT       46     A     
 MIO                ENDM                                                                   F7540FT       47     A     
 MIO                                                                                       F7540FT       48     A     
 MIO       WLB      OPDEF  I                                                               F7540FT       49     A     
 MIO      +         WL     B.I+0                                                           F7540FT       50     A     
 MIO      -         EQ     ERRECSW                                                         F7540FT       51     A     
 MIO                ENDM                                                                   F7540FT       52     A     
 MIO                                                                                       F7540FT       53     A     
 MIO       RE       OPSYN  ERR                                                             F7540FT       54     A     
 MIO       WE       OPSYN  ERR                                                             F7540FT       55     A     
 MIO                                                                                       F7540FT       56     A     
 MIO       #MD      ENDIF                                                                  F7540FT       57     A     
 MIO                                                                                       MIO           62     A     
 MIO                TABLES BLK,TXT,BIT,BST,SEQ                                             MIO           63     A     
 MIO                                                                                       MIO           64     A     
 MIO                EXT    BSI,MAX.RL                                                      MIO           65     A     
 MIO                                                                                       MIO           66     A     
 MIO                USE    //                                                              MIO           67     A     
 MIO                BSS    100B                                                            MIO           68     A     
 MIO       FWAB     BSS    1                                                               MIO           69     A     
 MIO                USE    *                                                               MIO           70     A     
 MIO                SPACE  4,8                                                             MIO           71     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2818    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO      *         GLOBAL FLAGS                                                           MIO           72     A     
 MIO                                                                                       MIO           73     A     
 MIO       O.LCM    ENTRY. 0           NEXT AVAILABLE LCM ADDRESS                          MIO           74     A     
 MIO       MAX.BLK  ENTRY. 0           MAXIMUM SIZE OF *BLK*                               MIO           75     A     
 MIO                                                                                       MIO           76     A     
 MIO      *         LOCAL VARIABLES                                                        MIO           77     A     
 MIO                                                                                       MIO           78     A     
 MIO       MAX.LCM  DATA   200000B     MAX LCM COMPILER USES                               MIO           79     A     
 MIO       O.DISK   DATA   1           NEXT AVAILABLE RA ON DISK                           MIO           80     A     
 MIO       ADT      BSSZ   1           ADDRESS TYPE, 0=DISK, 1=LCM                         MIO           81     A     
 MIO       O.RRB    BSSZ   1           FWA OF RANDOM READ BUFFER ( RRB )                   MIO           82     A     
 MIO       O.RWB    VFD    42/,18/FWAB FWA OF RANDOM WRITE BUFFER                          MIO           83     A     
 MIO       RLEN     BSSZ   1           LENGTH OF CURRENT RECORD IN WRITE BUFFER            MIO           84     A     
 MIO       N.RRB    BSSZ   1           RA OF RECORD IN RRB                                 MIO           85     A     
 MIO       MX.AVS   ENTRY. 0           MAXIMUM AVAILABLE SPACE IN *BLK*                    MIO           86     A     
 MIO       MX.AVL   BSSZ   1           MAXIMUM AVAILABLE SPACE IN LCM                      MIO           87     A     
 MIO       LAS      BSSZ   1           HEAD OF BLK LIST OF AVAILABLE SPACE                 MIO           88     A     
 MIO       LAL      BSSZ   1           HEAD OF LCM LIST OF AVAILABLE SPACE                 MIO           89     A     
 MIO                                                                                       MIO           90     A     
 MIO       MIN.AB   EQU    40B         MIN SIZE BLOCK ADDED TO LAS                         MIO           91     A     
 MIO       MIN.AL   EQU    100B        MIN SIZE BLOCK ADDED TO LAL                         MIO           92     A     
 MIO       LCM.XL   EQU    20B         EXTRA LENGTH ADDED TO LCM BLOCKS                    MIO           93     A     
 MIO                                                                                       MIO           94     A     
 MIO                LIST   X                                                               MIO           95     A     
 MIO      *CALL     IOTBLD                                                                 MIO           96     A     
 MIO       DEBUG    TITLE  DEBUGGING FACILITIES                                            MIO           97     A     
 MIO      **        PRNTM - PRINT OUT SELECTED STRUCTURES                                  MIO           98     A     
 MIO      *                                                                                MIO           99     A     
 MIO      *         PRNTM  LAB,NAM,ARG,RLS                                                 MIO          100     A     
 MIO                                                                                       MIO          101     A     
 MIO       PRNTM    MACRO  LAB,NAM,ARG,RLS                                                 MIO          102     A     
 MIO                LOCAL  APL                                                             MIO          103     A     
 MIO       O        IF     DEF,/DEBUG/LAB                                                  MIO          104     A     
 MIO      +         RJ     CPR                                                             MIO          105     A     
 MIO      -         VFD    30/APL                                                          MIO          106     A     
 MIO                USE    DEBUG                                                           MIO          107     A     
 MIO       APL      CON    10H LAB                                                         MIO          108     A     
 MIO       N        MICRO  2,1,/ARG/                                                       MIO          109     A     
 MIO                VFD    30/=XSAV.X+"N"                                                  MIO          110          I
          -FEAT155F 
 MIO                VFD    30/=XSV=X+"N"                                                   FEAT155F     256     A     
 MIO                VFD    30/Q.NAM                                                        MIO          111     A     
 MIO                USE    *                                                               MIO          112     A     
 MIO       O        ENDIF                                                                  MIO          113     A     
 MIO                ENDM                                                                   MIO          114     A     
 MIO                                                                                       MIO          115     A     
 MIO       .T       IFNE   TEST,0                                    * TEST MODE *         MIO          116     A     
 MIO                                                                                       MIO          117     A     
 MIO                USE    DEBUG                                                           FCC0415        5     A     
 MIO       .1       SET    1                                                               MIO          118     A     
 MIO                ECHO   2,X=(RIW,BAW,BHW,BTW,BIT,BST,BLK)                               MIO          119     A     
 MIO       Q.X      EQU    .1                                                              MIO          120     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2819    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO       .1       SET    .1+1                                                            MIO          121     A     
 MIO                                                                                       MIO          122     A     
 MIO                                                                                       MIO          123     A     
 MIO       CPR      ROUTINE                                                                MIO          124     A     
 MIO                RJ     =XSAVE=                                                         MIO          125     A     
 MIO                SA1    CPR                                                             MIO          126     A     
 MIO                LX1    30                                                              MIO          127     A     
 MIO                SA2    X1-1                                                            MIO          128     A     
 MIO                SA1    O.BIT                                                           MIO          129     A     
 MIO                SA4    O.BST                                                           MIO          130     A     
 MIO                SA5    O.BLK                                                           MIO          131     A     
 MIO                SA3    X2+1                                                            MIO          132     A     
 MIO                SX7    X2+1                                                            MIO          133     A     
 MIO                SX6    X2                                                              MIO          134     A     
 MIO                LX3    30                                                              MIO          135     A     
 MIO                SA6    CPRA                                                            MIO          136     A     
 MIO                SA7    CPRA+1                                                          MIO          137     A     
 MIO                BX6    X1                                                              MIO          138     A     
 MIO                BX7    X4                                                              MIO          139     A     
 MIO                SA6    CPRA+2                                                          MIO          140     A     
 MIO                SA7    CPRA+4                                                          MIO          141     A     
 MIO                BX6    X5                                                              MIO          142     A     
 MIO                SX7    X3                                                              MIO          143     A     
 MIO                SA6    CPRA+6                                                          MIO          144     A     
 MIO                SA7    CPRA+9                                                          MIO          145     A     
 MIO                SX6    X3-8                                                            MIO          146     A     
 MIO                SA6    CPRA+8                                                          MIO          147     A     
 MIO                SA1    CPRA                                                            MIO          148     A     
 MIO                CALL   PRNTMIO                                                         MIO          149     A     
 MIO                RJ     =XRESET=                                                        MIO          150     A     
 MIO                EQ     CPR                                                             MIO          151     A     
 MIO                                                                                       MIO          152     A     
 MIO       CPRA     BSS    3                                                               MIO          153     A     
 MIO                VFD    42/,18/L.BIT                                                    MIO          154     A     
 MIO                BSS    1                                                               MIO          155     A     
 MIO                VFD    42/,18/L.BST                                                    MIO          156     A     
 MIO                BSS    1                                                               MIO          157     A     
 MIO                VFD    42/,18/L.BLK                                                    MIO          158     A     
 MIO                BSSZ   3                                                               MIO          159     A     
 MIO                USE    0                                                               FCC0415        6     A     
 MIO                                                                                       MIO          160     A     
 MIO       .T       ENDIF                                            * TEST MODE *         MIO          161     A     
 MIO       SETFET   SPACE  3,14                                                            MIO          162     A     
 MIO      **        SETFET - SETUP FET FOR RANDOM READ OR WRITE ( 6000 CIO )               MIO          163     A     
 MIO                                                                                       MIO          164     A     
 MIO                PURGMAC SETFET                                                         FCCA593       72     A     
 MIO       SETFET   MACRO  FET,FWA,LEN,RW,NOADD                                            MIO          165     A     
 MIO                SA1    RFWA                                                            MIO          166     A     
 MIO                R=     X6,FWA                                                          MIO          167     A     
 MIO                R=     B2,LEN                                                          MIO          168     A     
 MIO                BX6    X1+X6                                                           MIO          169     A     
 MIO                SA6    =XF.FET+1                                                       MIO          170     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2820    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                SX6    X6                                                              MIO          171     A     
 MIO                SX7    X6+B2                                                           MIO          172     A     
 MIO                IFC    EQ,/RW/READ/                                                    MIO          173     A     
 MIO                SA6    A6+B1       I=F                                                 MIO          174     A     
 MIO                SA6    A6+B1       O=F                                                 MIO          175     A     
 MIO                ELSE                                                                   MIO          176     A     
 MIO                SA7    A6+B1       I=F+LEN                                             MIO          177     A     
 MIO                SA6    A7+B1       O=F                                                 MIO          178     A     
 MIO                ENDIF                                                                  MIO          179     A     
 MIO                IFC    EQ,/NOADD//,1                                                   MIO          180     A     
 MIO                SX7    X7+100B                                                         MIO          181     A     
 MIO                SA7    A6+B1       LIM=F+L+100B                                        MIO          182     A     
 MIO                ENDM                                                                   MIO          183     A     
 MIO                                                                                       MIO          184     A     
 MIO       RFWA     VFD    13/1,29/3,18/0                                                  MIO          185     A     
 MIO                TTL    MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)               MIO          186     A     
 MIO       IMP      TITLE  IMP - INITIALIZE MASS I/O PROCESSING                            MIO          187     A     
 MIO      **        IMP - INITIALIZE MASS I/O PROCESSING                                   MIO          188     A     
 MIO      *                                                                                MIO          189          I
          -FCC0415
 MIO      *         ENTRY CONDITIONS FOR IMPC ONLY                                         MIO          190          I
          -FCC0415
 MIO      *         ENTRY  (X7) = MAX.BLK, MAXIMUM BLOCK SIZE                              MIO          191          I
          -FCC0415
 MIO      *                                                                                MIO          192          I
          -FCC0415
 MIO                                                                                       MIO          193     A     
 MIO       IMPA     ENTRY. **                                                              MIO          194     A     
 MIO                                                                                       MIO          195     A     
 MIO      *         INITIALIZE FOR USING LCM                                               MIO          196     A     
 MIO                                                                                       MIO          197          I
          -F7540FT
 MIO                SX7    1                                                               MIO          198          I
          -F7540FT
 MIO                                                                                       MIO          199     A     
 MIO       #ECS     IFNE   CT.ECS,0                                                        MIO          200     A     
 MIO                SA1    =XLCM.FL                                                        MIO          201     A     
 MIO                ZR     X1,IMPA1    IF CP.AFLL = 0  */NO ECS AVAILABLE                  MIO          202     A     
 MIO                SX7    1                                                               F7540FT       58     A     
 MIO                SA7    ADT         ADT = 1                                             MIO          203     A     
 MIO       #ECS     ENDIF                                                                  MIO          204          I
          -F7540FT
 MIO                                                                                       MIO          205          I
          -F7540FT
 MIO       IMPA1    BSS    0                                                               MIO          206     A     
 MIO                                                                                       MIO          207     A     
 MIO       #MD      IFLT   CT.CPU,75                                                       MIO          208          I
          -S3143FC
 MIO       #MD      IFLT   CT.CPU,76                                                       S3143FC       54          I
          -F7540FT
 MIO       #OS      IFNE   .OS,2                                                           F7540FT       59     A     
 MIO                BX6    X1                                                              MIO          209     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2821    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                SA6    MAX.LCM     MAX.LCM = LCM.FL                                    MIO          210     A     
 MIO       #MD      ELSE                                                                   MIO          211          I
          -F7540FT
 MIO       #OS      ENDIF                                                                  F7540FT       60     A     
 MIO                                                                                       F7540FT       61     A     
 MIO       #ECS     ENDIF                                                                  F7540FT       62     A     
 MIO                                                                                       F7540FT       63     A     
 MIO       #MD      IFEQ   CP#RM,7                                                         FCC0415        7     A     
 MIO                OPENM  =XFI.OPT,I-O,N,WA                                               MIO          212     A     
 MIO                STORE  =XFI.OPT,WA=X7    INITIALIZE WA                                 MIO          213     A     
 MIO       #MD      ENDIF                                                                  MIO          214     A     
 MIO                                                                                       MIO          215     A     
 MIO                PRINT  IMP,(* --LCM.FL,ADT,MAX.LCM = *3Z8),(X1,ADT,MAX.LCM)            MIO          216     A     
 MIO                EQ     IMPA                                                            MIO          217     A     
 MIO                                                                                       MIO          218          I
          -FCC0415
 MIO       IMPB     SPACE  3                                                               FCC0415        8     A     
 MIO       IMPB     ENTRY. **                                                              MIO          219     A     
 MIO                SA4    O.RWB                                                           MIO          220     A     
 MIO                SA5    RLEN                                                            MIO          221     A     
 MIO                ZR     X5,IMPB1                                                        MIO          222     A     
 MIO                                                                                       MIO          223     A     
 MIO                CALL   SBD         DUMP LAST PHASE 1 BLOCKS TO DISK                    MIO          224     A     
 MIO                MX7    0                                                               MIO          225     A     
 MIO                SA7    RLEN        RLEN = 0                                            MIO          226     A     
 MIO                                                                                       MIO          227     A     
 MIO       IMPB1    SA1    =XF.RLST+1                                                      MIO          228     A     
 MIO                SA3    MAX.RL                                                          MIO          229     A     
 MIO                SX6    X1                                                              MIO          230     A     
 MIO                IX7    X3+X6                                                           MIO          231     A     
 MIO                SA6    O.RRB       O.RRB = FWA OF RLST BUFFER                          MIO          232     A     
 MIO                SA7    O.RWB       O.RWB = FWA OF RLST BUFFER + MAX.RL                 MIO          233     A     
 MIO                SX6    -1                                                              MIO          234     A     
 MIO                SA6    N.RRB       N.RRB = -1                                          MIO          235     A     
 MIO                PRINT  IMP,(* --O.RRB,O.RWB =*2Z8),(O.RRB,O.RWB)                       MIO          236     A     
 MIO                EQ     IMPB                                                            MIO          237     A     
 MIO       IMP      SPACE  3,14                                                            MIO          238     A     
 MIO      **        IMPC - OPT=2 ENTRY TO INITIALIZE *BLK*                                 MIO          239     A     
 MIO      *                                                                                MIO          240     A     
 MIO      *         ENTRY  (X7) = MAX BLK SPACE                                            MIO          241     A     
 MIO                                                                                       MIO          242     A     
 MIO       IMPC     ENTRY. **                                                              MIO          243     A     
 MIO                SA7    MAX.BLK                                                         MIO          244     A     
 MIO                RJ     IBS         INITIALIZE *BLK* SPACE                              MIO          245     A     
 MIO                SA1    O.BLK                                                           MIO          246     A     
 MIO                SA2    L.BLK                                                           MIO          247     A     
 MIO                IX6    X1+X2       O.TXT = O.BLK + L.BLK                               MIO          248     A     
 MIO                SA6    O.TXT                                                           MIO          249     A     
 MIO                PRINT  IMP,(*  MAX.BLK,O.BLK,L.BLK =*3Z7),(MAX.BLK,B2,B3)              MIO          250     A     
 MIO                SX7    =XTOB                                                           MIO          251     A     
 MIO                SA7    =XTO        SET OPT=2 TABLE OVERFLOW EXIT                       MIO          252     A     
 MIO                EQ     IMPC                                                            MIO          253     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2822    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO       IMPD     SPACE  2                                                               MIO          254     A     
 MIO      **        IMPD - OPT=1 ENTRY TO INITIALIZE *BLK*                                 MIO          255     A     
 MIO      *         ALLOCATE BLOCK SPACE, MOVE LOOP BODY TO *BLK*                          MIO          256     A     
 MIO                                                                                       MIO          257     A     
 MIO       IMPD     ENTRY. **                                                              MIO          258     A     
 MIO                SA1    L.TXT                                                           MIO          259     A     
 MIO                SX6    0                                                               MIO          260     A     
 MIO                SA6    LAS         LAS = 0                                             MIO          261     A     
 MIO                SA6    MX.AVS      MX.AVS = 0                                          MIO          262     A     
 MIO                SX7    X1+200B                                                         MIO          263     A     
 MIO                RJ     IBS         INITIALIZE *BLK* SPACE                              MIO          264     A     
 MIO                SA5    L.TXT                                                           MIO          265     A     
 MIO                ALLOC  BLK,X5+2    ALLOC( BLK , L.TXT+2 )                              MIO          266     A     
 MIO                SX3    X2+B6       TO = O.BLK + OLD(L.BLK)                             MIO          267     A     
 MIO                SB3    X2+B6       FTB = TO                                            MIO          268     A     
 MIO                SA2    O.TXT                                                           MIO          269     A     
 MIO                SB4    B3+X5       LTB = TO + L.TXT                                    MIO          270     A     
 MIO                SX6    X5                                                              MIO          271     A     
 MIO                SA6    X2+B1       R2 = TXT + 1;  [R2] = L.TXT                         MIO          272     A     
 MIO                MOVE   X1,X2,X3    MOVE( L.TXT , O.TXT , TO )                          MIO          273     A     
 MIO                SX6    X5+2        LT = L.TXT + 2                                      MIO          274     A     
 MIO                SA6    B3-B1       [FTB-1] = BHW(0,0,0,LT)                             MIO          275          I
          -FCC0415
 MIO                SX7    4                                                               FCC0415        9     A     
 MIO                SA7    L.TXT       L.TXT = 4                                           FCC0415       10     A     
 MIO                LX7    BH.BIP                                                          FCC0415       11     A     
 MIO                SA6    B4          [LTB] = BTW(0,0,0,LT)                               MIO          276     A     
 MIO                BX6    X6+X7                                                           FCC0415       12     A     
 MIO                MX7    0                                                               MIO          277     A     
 MIO                SA7    A6+B1       [LTB+1] = 0   */ BLK BOUNDARY MARKER                MIO          278     A     
 MIO                SX7    4                                                               MIO          279          I
          -FCC0415
 MIO                SA7    L.TXT       L.TXT = 4                                           MIO          280          I
          -FCC0415
 MIO                SA6    B3-B1       [FTB-1]=BHW(0,4,0,LT)                               FCC0415       13     A     
 MIO                SA1    O.BIT                                                           MIO          281     A     
 MIO                MX0    1                                                               MIO          282     A     
 MIO                LX0    1+RI.ICP                                                        MIO          283     A     
 MIO                LX5    RI.LENP                                                         MIO          284     A     
 MIO                SX4    B3                                                              MIO          285     A     
 MIO                BX6    X0+X5                                                           MIO          286     A     
 MIO                LX4    RI.FWAP                                                         MIO          287     A     
 MIO                BX7    X4+X6                                                           MIO          288     A     
 MIO                SA7    X1+5        BIT(5) = RIW(IC,LT-2,FTB,0)                         MIO          289     A     
 MIO                EQ     IMPD                                                            MIO          290     A     
 MIO       IBS      SPACE  2,10                                                            MIO          291     A     
 MIO      **        IBS - INTIALIZE *FREE* SPACE LIST IN *BLK*                             MIO          292     A     
 MIO      *                                                                                MIO          293     A     
 MIO      *         ENTRY  (X7) = LENGTH OF FREE SPACE LIST                                MIO          294     A     
 MIO                                                                                       MIO          295     A     
 MIO       IBS      ROUTINE                                                                MIO          296     A     
 MIO                ALLOC  BLK,X7+2    ALLOC( BLK , LEN+2 )                                MIO          297     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2823    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                SA4    RBSA+1      DB = RBSA(2)  */ *RI* WORD FOR DUMMY BLOCK          MIO          298     A     
 MIO                SA5    O.BIT                                                           MIO          299     A     
 MIO                MX6    0                                                               MIO          300     A     
 MIO                SA6    X2          [BLK] = 0                                           MIO          301     A     
 MIO                BX7    X4                                                              MIO          302     A     
 MIO                SA7    X5+B1       BIT(1) = DB                                         MIO          303     A     
 MIO                SA7    X5+3        BIT(3) = DB                                         MIO          304     A     
 MIO                SB3    X3-2        LEN = L.BLK - 2                                     MIO          305     A     
 MIO                SB2    X2+B1       FWA = O.BLK + 1                                     MIO          306     A     
 MIO                SA6    B2+B3       BLK(L.BLK-1) = 0  */ TERMINAL BOUNDARY MARK         MIO          307     A     
 MIO                CALL   ABB         CALL  ABB( FWA , LEN ) */ INIT FREE SPACE           MIO          308     A     
 MIO                EQ     IBS                                                             MIO          309     A     
 MIO       WMB      TITLE  WMB - WRITE MODIFIED BLOCK                                      MIO          310     A     
 MIO      **        WMB/WFB - WRITE MODIFIED BLOCK TO *BLK*                                MIO          311     A     
 MIO      *                                                                                MIO          312     A     
 MIO      *         ENTRY  (BSI) = *BST* INDEX OF BLOCK                                    MIO          313     A     
 MIO      *                FOR THE *WFB* ENTRY ONLY -                                      MIO          314     A     
 MIO      *                (X1) = NL, NEW LENGTH                                           MIO          315     A     
 MIO      *                (X6) = FWAB , FWA OF BLOCK                                      MIO          316     A     
 MIO      *                                                                                MIO          317     A     
 MIO      *         EXIT   BLOCK COPIED TO *BLK*                                           MIO          318     A     
 MIO      *                *BST*, *BIT* ENTRIES UPDATED                                    MIO          319     A     
 MIO      *                                                                                MIO          320     A     
 MIO      *         CALLS  ASB, MVE=.                                                      MIO          321     A     
 MIO                                                                                       MIO          322     A     
 MIO       WFB      ENTRY. **                                                              MIO          323     A     
 MIO                SA2    =XOPT2                                                          FCC0534        4     A     
 MIO                SA3    O.BST                                                           MIO          324     A     
 MIO                SA4    BSI                                                             MIO          325     A     
 MIO                SX0    B1                                                              MIO          326          I
          -FCC0534
 MIO                SB3    X3                                                              MIO          327     A     
 MIO                LX0    BA.FWP                                                          MIO          328          I
          -FCC0534
 MIO                SA5    B3+X4       BAW = BST(BSI)                                      MIO          329     A     
 MIO                BX7    X1                                                              MIO          330          I
          -FCC0534
 MIO                ZR     X2,WFB1     IF OPT2=0      */FW NOT SET FOR OPT=1               FCC0534        5     A     
 MIO                SX0    B1                                                              FCC0534        6     A     
 MIO                LX0    BA.FWP                                                          FCC0534        7     A     
 MIO                BX5    X0+X5       FW[BAW] = 1   */ INDICATE FINAL WRITE               MIO          331     A     
 MIO       WFB1     BX7    X1                                                              FCC0534        8     A     
 MIO                SA6    WFBA                                                            MIO          332     A     
 MIO                SA7    A6+B1                                                           MIO          333     A     
 MIO                LX5    -BA.FWAP                                                        MIO          334     A     
 MIO                SB2    X5-1        FWA = FWA[BAW] - 1                                  MIO          335     A     
 MIO                LX5    BA.FWAP-BA.LENP                                                 MIO          336     A     
 MIO                SB5    X5+2        OL = LEN[BAW] + 2                                   MIO          337     A     
 MIO                LX5    BA.LENP                                                         MIO          338     A     
 MIO                CALL   ASB         FBLK = ASB(FWA,OL,NL)  */ ALLOCATE SPACE            MIO          339          I
          -FCC0634
 MIO                MI     X5,WFB2     IF IC[BAW]     */ IF IN BLK                         FCC0634        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2824    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                SB2    B0          FWA = 0                                             FCC0634        6     A     
 MIO                SB5    B1+B1       OL = 2                                              FCC0634        7     A     
 MIO       WFB2     CALL   ASB         FBLK = ASB(FWA,OL,NL)   */ ALLOCATE SPACE           FCC0634        8          I
          -F2950F4
 MIO                SA2    WFB                                                             MIO          340          I
          -F2950F4
 MIO       WFB2     SA2    WFB                                                             F2950F4      159     A     
 MIO                BX7    X2                                                              F2950F4      160     A     
 MIO                SA7    WMB         [WMB] = [WFB] */ PLUG ENTRY POINT                   F2950F4      161     A     
 MIO                CALL   ASB                                                             F2950F4      162     A     
 MIO                SA4    WFBA        FSCM = FWAB                                         MIO          341     A     
 MIO                SA1    A4+B1                                                           MIO          342     A     
 MIO                BX7    X2                                                              MIO          343          I
          -F2950F4
 MIO                SA7    WMB         [WMB] = [WFB] */ PLUG ENTRY POINT                   MIO          344          I
          -F2950F4
 MIO                EQ     WMB1                                                            MIO          345     A     
 MIO                                                                                       MIO          346     A     
 MIO       WMB      ENTRY. **                                                              MIO          347     A     
 MIO                SA3    O.BST                                                           MIO          348     A     
 MIO                SA4    BSI                                                             MIO          349     A     
 MIO                SB3    X3                                                              MIO          350     A     
 MIO                SA5    B3+X4       BAW = BST(BSI)                                      MIO          351     A     
 MIO                LX5    -BA.FWAP                                                        MIO          352     A     
 MIO                SB2    X5-1        FWA = FWA[BAW] - 1                                  MIO          353     A     
 MIO                LX5    BA.FWAP-BA.LENP                                                 MIO          354     A     
 MIO                SB5    X5+2        OL = LEN[BAW] + 2                                   MIO          355     A     
 MIO                LX5    BA.LENP                                                         MIO          356     A     
 MIO                SA1    L.TXT       NL = L.TXT                                          MIO          357     A     
 MIO                CALL   ASB         FBLK = ASB(FWA,OL,NL)  */ ALLOCATE SPACE            MIO          358          I
          -FCC0634
 MIO                MI     X5,WMB0     IF IC[BAW]     */ IF IN BLK                         FCC0634        9     A     
 MIO                SB2    B0          FWA = 0                                             FCC0634       10     A     
 MIO                SB5    B1+B1       OL = 2                                              FCC0634       11     A     
 MIO       WMB0     CALL   ASB         FBLK = ASB(FWA,OL,NL)   */ ALLOCATE SPACE           FCC0634       12     A     
 MIO                                                                                       MIO          359          I
          -FCC0415
 MIO                SA1    O.BST                                                           FCC0415       14     A     
 MIO                SA2    BSI                                                             FCC0415       15     A     
 MIO                IX6    X1+X2                                                           FCC0415       16     A     
 MIO                SA5    X6          BAW = BST(BSI)                                      FCC0415       17     A     
 MIO                SA4    O.TXT       FSCM = [O.TXT]                                      MIO          360     A     
 MIO                SA1    L.TXT       NL = L.TXT                                          MIO          361     A     
 MIO                                                                                       MIO          362     A     
 MIO      *         UPDATE *BST*, *BIT* ENTRIES                                            MIO          363     A     
 MIO                                                                                       MIO          364     A     
 MIO       WMB1     SA2    O.BIT                                                           MIO          365     A     
 MIO                PRINT  WMB,(* --FBLK FROM ASB =*Z7),X3                                 MIO          366     A     
 MIO                SB7    X4                        (B7) = FSCM                           MIO          367     A     
 MIO                MX0    -BA.SAVL                                                        MIO          368     A     
 MIO                SB2    X2+B1                                                           MIO          369     A     
 MIO                LX0    BA.SAVP                                                         MIO          370     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2825    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                MX7    1                                                               MIO          371     A     
 MIO                BX5    -X0*X5                                                          MIO          372     A     
 MIO                LX7    1+BA.BLKP   BLK[BAW] = 1                                        MIO          373     A     
 MIO                BX7    X5+X7                                                           MIO          374     A     
 MIO                LX5    -BA.BIP                                                         MIO          375     A     
 MIO                SB4    X5          AR = BI[BAW]                                        MIO          376     A     
 MIO                LX1    BA.LENP     LEN[BAW] = NL                                       MIO          377     A     
 MIO                SA2    WMBA                                                            MIO          378     A     
 MIO                SA4    B4+B2       RIW = BIT(AR+1)                                     MIO          379     A     
 MIO                LX3    BA.FWAP     FWA[BAW] = FBLK                                     MIO          380     A     
 MIO                IX6    X1+X3                                                           MIO          381     A     
 MIO                LX5    BA.BIP                                                          MIO          382     A     
 MIO                BX7    X6+X7                                                           MIO          383     A     
 MIO                LX1    RI.LENP-BA.LENP   LEN[RI] = NL                                  MIO          384     A     
 MIO                SA7    A5          BST(BSI) = BAW                                      MIO          385     A     
 MIO                PRNTM  WMB,BAW,X7                                                      MIO          386     A     
 MIO                MX7    1                                                               MIO          387     A     
 MIO                LX3    RI.FWAP-BA.FWAP   FWA[RI] = FBLK                                MIO          388     A     
 MIO                LX7    1+RI.ICP    IC[RIW] = 1                                         MIO          389     A     
 MIO                BX4    X2*X4                                                           MIO          390     A     
 MIO                BX7    X4+X7                                                           MIO          391     A     
 MIO                IX6    X1+X3                                                           MIO          392     A     
 MIO                BX7    X6+X7                                                           MIO          393     A     
 MIO                LX1    -RI.LENP                                                        MIO          394     A     
 MIO                LX3    -RI.FWAP                                                        MIO          395     A     
 MIO                SA7    A4          BIT(AR+1) = RIW                                     MIO          396     A     
 MIO                PRNTM  WMB,RIW,X7                                                      MIO          397     A     
 MIO                                                                                       MIO          398     A     
 MIO      *         STORE BLOCK HEADER AND TRAILER WORDS, MOVE BLOCK TO *BLK*.             MIO          399     A     
 MIO                                                                                       MIO          400     A     
 MIO                SA4    BSI                                                             MIO          401     A     
 MIO                BX7    X5                                                              MIO          402     A     
 MIO                LX7    59-BH.FWP                                                       MIO          403     A     
 MIO                PL     X7,WMB2     IF ^ FW[BHW]                                        MIO          404     A     
 MIO                                                                                       MIO          405     A     
 MIO                MX6    -BH.PRIL                                                        MIO          406     A     
 MIO                SX4    B1                                                              MIO          407     A     
 MIO                LX6    BH.PRIP                                                         MIO          408     A     
 MIO                BX5    X5*X6       PRI[BHW] = 0                                        MIO          409     A     
 MIO                LX4    17          BSI = 400000B                                       MIO          410     A     
 MIO       WMB2     SX6    X1+2        L= NL + 2                                           MIO          411     A     
 MIO                LX6    BT.LENP                                                         MIO          412     A     
 MIO                SB6    X3                                                              MIO          413     A     
 MIO                SA6    B6+X1       [FBLK+NL] = BTW(0,0,0,L)                            MIO          414     A     
 MIO                PRNTM  WMB,BTW,X6                                                      MIO          415     A     
 MIO                LX6    BH.LENP-BT.LENP                                                 MIO          416     A     
 MIO                LX4    BH.BSTP                                                         MIO          417     A     
 MIO                BX6    X6+X4                                                           MIO          418     A     
 MIO                BX7    X5+X6                                                           MIO          419     A     
 MIO                SA7    B6-B1       [FBLK-1] = BHW(0,AR,BSI,L)                          MIO          420     A     
 MIO                PRNTM  WMB,BHW,X7                                                      MIO          421     A     
 MIO                MOVE   X1,B7,X3    MOVE( NL , FSCM , FBLK )                            MIO          422     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2826    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                EQ     WMB                                                             MIO          423     A     
 MIO                                                                                       MIO          424     A     
 MIO       WMBA     BFMW   RI,(IC,AT,LCM)                                                  MIO          425     A     
 MIO       WFBA     BSS    2           FWA , NL                                            MIO          426     A     
 MIO       RTB      TITLE  RTB - READ TEXT BLOCK                                           MIO          427     A     
 MIO      **        RTB - READ TEXT BLOCK INTO *BLK*                                       MIO          428     A     
 MIO      *                                                                                MIO          429     A     
 MIO      *         ENTRY  (BSI) = *BST* INDEX OF BLOCK TO BE READ IN                      MIO          430     A     
 MIO      *                                                                                MIO          431     A     
 MIO      *         EXIT   (O.SEQ) = FWA OF BLOCK IN *BLK*                                 MIO          432     A     
 MIO      *                (L.SEQ) = LEN OF BLOCK                                          MIO          433     A     
 MIO      *                *BST*, *BIT* ENTRIES UPDATED                                    MIO          434     A     
 MIO      *                                                                                MIO          435     A     
 MIO      *         CALLS  ASB, GMB.                                                       MIO          436     A     
 MIO                                                                                       MIO          437     A     
 MIO      *         BLOCK IS ALREADY IN *BLK*, SET O.SEQ, L.SEQ                            MIO          438     A     
 MIO                                                                                       MIO          439     A     
 MIO       RTB0     LX3    1+BA.BLKP-BA.FWAP                                               MIO          440     A     
 MIO                SX6    X3                                                              MIO          441     A     
 MIO                LX3    BA.FWAP-BA.LENP                                                 MIO          442     A     
 MIO                SA6    O.SEQ       O.SEQ = FWA[BAW]                                    MIO          443     A     
 MIO                SX7    X3+                                                             MIO          444     A     
 MIO                SA7    L.SEQ       L.SEQ = LEN[BAW]                                    MIO          445     A     
 MIO                                                                                       MIO          446     A     
 MIO                PRINT  RTB,(*  O.SEQ, L.SEQ = *2Z10),(O.SEQ,L.SEQ)                     MIO          447     A     
 MIO                                                                                       MIO          448     A     
 MIO       RTB      ENTRY. **                                                              MIO          449     A     
 MIO                SA1    O.BST                                                           MIO          450     A     
 MIO                SA2    BSI                                                             MIO          451     A     
 MIO                SB2    X1                                                              MIO          452     A     
 MIO                SA3    X2+B2       BAW = BST(BSI)                                      MIO          453     A     
 MIO                LX3    59-BA.BLKP                                                      MIO          454     A     
 MIO                MI     X3,RTB0     IF BLK[BAW]                                         MIO          455     A     
 MIO                                                                                       MIO          456     A     
 MIO      *         ALLOCATE SPACE IN *BLK*                                                MIO          457     A     
 MIO                                                                                       MIO          458     A     
 MIO                SA4    O.BIT                                                           MIO          459     A     
 MIO                LX3    1+BA.BLKP-BA.BIP                                                MIO          460     A     
 MIO                SB4    X3+B1       I = BI[BAW] + 1                                     MIO          461     A     
 MIO                SB2    B0          FWA = 0                                             MIO          462     A     
 MIO                SB5    B1+B1       OL = 2                                              MIO          463     A     
 MIO                SA5    X4+B4       RIW = BIT(I)  */RANDOM INDEX WORD                   MIO          464     A     
 MIO                LX5    -RI.LENP                                                        MIO          465     A     
 MIO                SX1    X5          L = LEN[RIW]                                        MIO          466     A     
 MIO                BX4    X5                                                              MIO          467     A     
 MIO                LX4    59-RI.ICP+RI.LENP                                               MIO          468     A     
 MIO                PL     X4,RTB1     IF ^ IC[RIW]                                        MIO          469     A     
 MIO                                                                                       MIO          470     A     
 MIO                LX4    1+RI.ICP-RI.FWAP                                                MIO          471     A     
 MIO                SB5    B0                                                              MIO          472     A     
 MIO                SX3    X4          FBLK = FWA[RIW]                                     MIO          473     A     
 MIO                SX6    RBSB                                                            MIO          474     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2827    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                IX7    X3-X6                                                           MIO          475     A     
 MIO                ZR     X7,RTB2     */IF DUMMY BLOCK                                    MIO          476     A     
 MIO                                                                                       MIO          477     A     
 MIO                SA4    X4-1        BHW = [FBLK-1]                                      MIO          478     A     
 MIO                MX7    -BH.BSTL                                                        MIO          479     A     
 MIO                LX4    -BH.BSTP                                                        MIO          480     A     
 MIO                BX4    X4*X7                                                           MIO          481     A     
 MIO                BX6    X2+X4       BST[BHW] = BSI                                      MIO          482     A     
 MIO                LX6    BH.BSTP                                                         MIO          483     A     
 MIO                SA6    A4          [FBLK] = BHW                                        MIO          484     A     
 MIO                EQ     RTB2                                                            MIO          485     A     
 MIO                                                                                       MIO          486     A     
 MIO       RTB1     LX5    RI.LENP                                                         MIO          487     A     
 MIO                CALL   ASB         FBLK = ASB(FWA,OL,L)  */ALLOCATE SPACE              MIO          488     A     
 MIO                LX5    -RI.LENP                                                        MIO          489          I
          -FCC0391
 MIO                SB5    1                                                               MIO          490          I
          -FCC0391
 MIO                SA5    A5          RIW = BIT(I)  */ RELOAD RANDOM ADDR                 FCC0391        7     A     
 MIO                SB5    1                                                               FCC0391        8     A     
 MIO                LX5    -RI.LENP                                                        FCC0391        9     A     
 MIO                                                                                       MIO          491     A     
 MIO                PRINT  RTB,(* --FBLK FROM ASB = *Z7),X3                                MIO          492     A     
 MIO                                                                                       MIO          493     A     
 MIO      *         UPDATE *BST*, *BIT* ENTRIES AND READ BLOCK                             MIO          494     A     
 MIO                                                                                       MIO          495     A     
 MIO       RTB2     SA4    O.BST                                                           MIO          496     A     
 MIO                SA2    BSI                                                             MIO          497     A     
 MIO                SX1    X5                                                              MIO          498     A     
 MIO                SB2    X4                                                              MIO          499     A     
 MIO                LX1    BA.LENP     LEN[BAW] = L                                        MIO          500     A     
 MIO                MX0    1                                                               MIO          501     A     
 MIO                SA2    X2+B2       BAW = BST(BSI)                                      MIO          502     A     
 MIO                LX0    1+BA.BLKP   BLK[BAW] = 1                                        MIO          503     A     
 MIO                SX4    B1                                                              MIO          504     A     
 MIO                BX1    X0+X1                                                           MIO          505     A     
 MIO                LX4    BA.PRIP     PRI[BAW] = 1                                        MIO          506     A     
 MIO                SX7    X3                                                              MIO          507     A     
 MIO                LX3    BA.FWAP     FWA[BAW] = FBLK                                     MIO          508     A     
 MIO                BX1    X1+X2                                                           MIO          509     A     
 MIO                IX4    X3+X4                                                           MIO          510     A     
 MIO                SA7    O.SEQ       O.SEQ = FBLK                                        MIO          511     A     
 MIO                PRINT  RTB,(*--O.SEQ =*Z7),X7                                          MIO          512     A     
 MIO                BX6    X1+X4                                                           MIO          513     A     
 MIO                SX7    X5                                                              MIO          514     A     
 MIO                LX3    RI.FWAP-BA.FWAP                                                 MIO          515     A     
 MIO                SA6    A2          BST(BSI) = BAW                                      MIO          516     A     
 MIO                SA7    L.SEQ       L.SEQ = L                                           MIO          517     A     
 MIO                PRNTM  RTB,BAW,X6                                                      MIO          518     A     
 MIO                PRINT  RTB,(* --L.SEQ =*Z7),L.SEQ                                      MIO          519     A     
 MIO                ZR     B5,RTB      IF IC[RIW]                                          MIO          520     A     
 MIO                                                                                       MIO          521     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2828    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                LX0    RI.ICP-BA.BLKP    IC[RIW] = 1                                   MIO          522     A     
 MIO                SA4    RTBA        M1 = MASK [RI](AT,LCM,LEN)                          MIO          523     A     
 MIO                BX0    X0+X3                                                           MIO          524     A     
 MIO                LX5    RI.LENP                                                         MIO          525     A     
 MIO                BX7    X4*X5       TRIW = M1 & RIW                                     MIO          526     A     
 MIO                BX7    X0+X7       FWA[RIW] = FBLK                                     MIO          527     A     
 MIO                LX3    -RI.FWAP                                                        MIO          528     A     
 MIO                SA7    A5          BIT(I) = TRIW                                       MIO          529     A     
 MIO                PRNTM  RTB,RIW,X7                                                      MIO          530     A     
 MIO                CALL   GMB         CALL GMB(FBLK,RIW)  */READ BLOCK                    MIO          531     A     
 MIO                EQ     RTB                                                             MIO          532     A     
 MIO                                                                                       MIO          533     A     
 MIO       RTBA     BFMW   RI,(AT,LCM,LEN)                                                 MIO          534     A     
 MIO       RBS      TITLE  RBS - RELEASE BLOCK SPACE                                       MIO          535     A     
 MIO      **        RBS - RELEASE BLOCK SPACE                                              MIO          536     A     
 MIO      *                                                                                MIO          537     A     
 MIO      *         ENTRY  (BSI) = *BST* INDEX OF BLOCK                                    MIO          538     A     
 MIO      *                                                                                MIO          539     A     
 MIO      *         EXIT   BLOCK REDUCED TO BOS, EOQ                                       MIO          540     A     
 MIO      *                                                                                MIO          541     A     
 MIO      *         CALLS  ABB, ABL.                                                       MIO          542     A     
 MIO                                                                                       MIO          543     A     
 MIO       RBS      ENTRY. **                                                              MIO          544     A     
 MIO                PRINT  RBS,(* --RELEASE BLOCK, BSI =*Z7),BSI                           MIO          545     A     
 MIO                                                                                       MIO          546     A     
 MIO      *         UPDATE *BST*, *BIT* ENTRIES                                            MIO          547     A     
 MIO                                                                                       MIO          548     A     
 MIO                SA1    RBSA        DBAW = [RBSA] */BST ENTRY FOR DUMMY BLOCK           MIO          549     A     
 MIO                SA2    A1+1        DRIW = [RBSA+1] */BIT ENTRY FOR DUMMY BLOCK         MIO          550     A     
 MIO                SA3    O.BST                                                           MIO          551     A     
 MIO                SA4    BSI                                                             MIO          552     A     
 MIO                SA5    O.BIT                                                           MIO          553     A     
 MIO                SB4    RBSB                                                            MIO          554     A     
 MIO                SB2    X3                                                              MIO          555     A     
 MIO                SB3    X5+B1                                                           MIO          556     A     
 MIO                SA3    B2+X4       BAW = BST(BSI)                                      MIO          557     A     
 MIO                LX3    -BA.BIP     B = BI[BAW]                                         MIO          558     A     
 MIO                SA4    B3+X3       RIW = BIT(B)                                        MIO          559     A     
 MIO                SX6    X3                                                              MIO          560     A     
 MIO                BX7    X2                                                              MIO          561     A     
 MIO                LX6    BA.BIP      BI[DBAW] = B                                        MIO          562     A     
 MIO                BX6    X1+X6                                                           MIO          563     A     
 MIO                SA6    A3          BST(BSI) = DBAW                                     MIO          564     A     
 MIO                PRNTM  RBS,BAW,X6                                                      MIO          565     A     
 MIO                SA7    B3+X3       BIT(B) = DRIW                                       MIO          566     A     
 MIO                PRNTM  RBS,RIW,X7                                                      MIO          567     A     
 MIO                LX3    BA.BIP+59-BA.BLKP                                               MIO          568     A     
 MIO                PL     X3,RBS1     IF BLK[BAW] = 0                                     MIO          569     A     
 MIO                                                                                       MIO          570     A     
 MIO      *         RELEASE STORAGE IN BLK                                                 MIO          571     A     
 MIO                                                                                       MIO          572     A     
 MIO                LX3    1+BA.BLKP-BA.FWAP                                               MIO          573     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2829    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                SB2    X3          FBLK = FWA[BAW]                                     MIO          574     A     
 MIO                EQ     B2,B4,RBS   IF FBLK = RBSB  */NULL BLOCK                        MIO          575     A     
 MIO                                                                                       MIO          576     A     
 MIO                SB4    B1+B1                                                           MIO          577     A     
 MIO                LX3    BA.FWAP-BA.LENP                                                 MIO          578     A     
 MIO                SB3    X3+B4       L = LEN[BAW] + 2                                    MIO          579     A     
 MIO                SB2    B2-B1       FBLK = FBLK-1                                       MIO          580     A     
 MIO                CALL   ABB         CALL ABB(FBLK,L)                                    MIO          581     A     
 MIO                                                                                       MIO          582     A     
 MIO      *         RELEASE STORAGE IN LCM                                                 MIO          583     A     
 MIO                                                                                       MIO          584     A     
 MIO       RBS1     LX4    59-RI.ATP                                                       MIO          585     A     
 MIO                PL     X4,RBS      IF AT[RIW] = 0                                      MIO          586     A     
 MIO                                                                                       MIO          587     A     
 MIO       #ECS     IFNE   CT.ECS,0                                                        MIO          588     A     
 MIO                LX4    1+RI.ATP-RI.LCMP                                                MIO          589     A     
 MIO                SB2    X4                                                              MIO          590     A     
 MIO                SX0    X4                                                              MIO          591     A     
 MIO                RX1    X0,RBSC                                                         MIO          592     A     
 MIO                LX1    -BH.LENP                                                        MIO          593     A     
 MIO                SB3    X1                                                              MIO          594     A     
 MIO                CALL   ABL         CALL ABL(FBLK,L)                                    MIO          595     A     
 MIO                EQ     RBS                                                             MIO          596     A     
 MIO       #ECS     ENDIF                                                                  MIO          597     A     
 MIO                                                                                       MIO          598     A     
 MIO       RBSA     VFD    1/1,23/0,18/8,18/RBSB                                           MIO          599     A     
 MIO                VFD    1/1,2/0,18/8,3/0,18/RBSB,18/0                                   MIO          600     A     
 MIO      *         RBSB - DUMMY BLOCK ( BOS,EOQ )                                         FCC0415       18     A     
 MIO                                                                                       MIO          601     A     
 MIO       D.FT=1P  EQU    D.FTP                                                           MIO          602     A     
 MIO       D.FT=1L  EQU    1                                                               MIO          603     A     
 MIO       D.NRXP   EQU    D.NRP-1     *NR* EXPONENT BIT                                   MIO          604     A     
 MIO       D.NRXL   EQU    1                                                               MIO          605     A     
 MIO                                                                                       MIO          606     A     
 MIO       RBSB     VFD    12/1S10+OC.BOS,48/0                                             MIO          607     A     
 MIO                DATA   8                                                               MIO          608     A     
 MIO                BFMW   D,(TY,NRX,^D,PI,JFT)                                            MIO          609     A     
 MIO                DATA   0                                                               MIO          610     A     
 MIO                VFD    12/2000B,48/0                                                   MIO          611     A     
 MIO       RBSC     BSSZ   1                                                               MIO          612     A     
 MIO                BFMW   D,(TY,FT=1,NRX,^D,BM,PI,JFT)                                    MIO          613     A     
 MIO                DATA   0                                                               MIO          614     A     
 MIO       RNB      TITLE  RNB - READ NEXT BLOCK                                           MIO          615     A     
 MIO      **        RNB - READ NEXT BLOCK OF *FTNOPT* FILE IN A SEQUENTIAL MANNER.         MIO          616     A     
 MIO      *                THIS SUBROUTINE MAY BE CALLED FROM *FBV* ONLY.                  MIO          617     A     
 MIO      *                                                                                MIO          618     A     
 MIO      *         ENTRY  (X2) = BIW, BLOCK INDEX WORD                                    MIO          619     A     
 MIO      *                (X3) = FBLK, FWA OF WORKING STORAGE TO READ BLOCK TO.           MIO          620     A     
 MIO      *                (X5) = RIW, RANDOM INDEX WORD                                   MIO          621     A     
 MIO      *                                                                                MIO          622     A     
 MIO      *         CALLS  GMB                                                             MIO          623     A     
 MIO                                                                                       MIO          624     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2830    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO       RNB      ENTRY. **                                                              MIO          625     A     
 MIO                PRNTM  RNB,RIW,X5                                                      MIO          626     A     
 MIO                                                                                       MIO          627     A     
 MIO       #RM      IFEQ   CP#RM,0                                                         MIO          628     A     
 MIO                                                                                       MIO          629     A     
 MIO                BX6    X5                                                              MIO          630     A     
 MIO                LX6    59-RI.ATP                                                       MIO          631     A     
 MIO                                                                                       MIO          632     A     
 MIO                MI     X6,RNB2     IF AT[RIW]    */ IN ECS/LCM                         MIO          633     A     
 MIO                SX0    X3-1                                                            MIO          634     A     
 MIO                SA1    RNS                                                             MIO          635     A     
 MIO                NZ     X1,RNB1     IF RNS " 0    */ FILE READ STARTED                  MIO          636     A     
 MIO                SX7    B1                                                              MIO          637     A     
 MIO                SA7    A1          RNS = 1       */ INDICATE READ STARTED              MIO          638     A     
 MIO                SA3    O.RRB                                                           MIO          639     A     
 MIO                SA4    MAX.RL                                                          MIO          640     A     
 MIO                SA7    F.OPT+6     DA = 1                                              MIO          641     A     
 MIO                LX4    1                                                               MIO          642     A     
 MIO                SETFET OPT,X3,X4,READ,NOADD      SET FET FOR READ                      MIO          643     A     
 MIO                READNS F.OPT                                                           MIO          644     A     
 MIO                                                                                       MIO          645     A     
 MIO       RNB1     LX5    -RI.LENP                                                        MIO          646     A     
 MIO                READW  F.OPT,X0,X5+2     READW( OPT , FBLK , LEN[RIW]+2 )              MIO          647     A     
 MIO                ZR     X1,RNB      IF EOR = 0                                          MIO          648     A     
 MIO                                                                                       MIO          649     A     
 MIO                LX5    RI.LENP                                                         MIO          650     A     
 MIO                READNS X2          RESTART READ                                        MIO          651     A     
 MIO                EQ     RNB1                                                            MIO          652     A     
 MIO       #RM      ENDIF                                                                  MIO          653     A     
 MIO                                                                                       MIO          654     A     
 MIO       RNB2     CALL   GMB         GMB( FBLK , RIW )                                   MIO          655     A     
 MIO                EQ     RNB                                                             MIO          656     A     
 MIO                                                                                       MIO          657     A     
 MIO       RNS      BSSZ   1           READ NS STARTED FLAG                                MIO          658     A     
 MIO       SMB      TITLE  SMB - SAVE MEMORY BLOCK                                         MIO          659     A     
 MIO      **        SMB - SAVE MEMORY BLOCK                                                MIO          660     A     
 MIO      *                                                                                MIO          661     A     
 MIO      *         ENTRY  (B2) = FLCM, OLD LCM ADDRESS                                    MIO          662     A     
 MIO      *                (X4) = FSCM, SCM FWA OF BLOCK                                   MIO          663     A     
 MIO      *                (X5) = LEN, LENGTH OF BLOCK                                     MIO          664     A     
 MIO      *                                                                                MIO          665     A     
 MIO      *         EXIT   (X1) = RIW, RANDOM INDEX WORD                                   MIO          666     A     
 MIO      *                BLOCK WRITTEN TO RWB, LCM, OR DISK                              MIO          667     A     
 MIO      *                                                                                MIO          668     A     
 MIO      *         CALLS  SBL,SBD,ASL.                                                    MIO          669     A     
 MIO                                                                                       MIO          670     A     
 MIO      *         MOVE BLOCK INTO RWB                                                    MIO          671     A     
 MIO                                                                                       MIO          672     A     
 MIO       SMB0     IX3    X1+X2       FDEST = RLEN+O.RWB                                  MIO          673     A     
 MIO                BX2    X4                                                              MIO          674     A     
 MIO                SA4    O.DISK                                                          MIO          675     A     
 MIO                SA7    RLEN        RLEN = NL                                           MIO          676     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2831    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                LX1    RI.OFSP     OFS[RIW] = OL                                       MIO          677     A     
 MIO                LX4    RI.RAP      RA[RIW] = O.DISK                                    MIO          678     A     
 MIO                BX7    X1+X4                                                           MIO          679     A     
 MIO                SX1    X5          L = LEN                                             MIO          680     A     
 MIO                LX5    RI.LENP     LEN[RIW] = LEN                                      MIO          681     A     
 MIO                BX5    X5+X7                                                           MIO          682     A     
 MIO                MOVE   X1,X2,X3    MOVE(L,FSCM,FDEST)                                  MIO          683     A     
 MIO                BX1    X5                                                              MIO          684     A     
 MIO                                                                                       MIO          685     A     
 MIO       SMB1     SX2    B1+B1                                                           MIO          686     A     
 MIO                LX2    RI.LENP                                                         MIO          687     A     
 MIO                IX1    X1-X2       LEN[RIW] = LEN[RIW] - 2                             MIO          688     A     
 MIO                                                                                       MIO          689     A     
 MIO                PRNTM  SMB,RIW,X1                                                      MIO          690     A     
 MIO                                                                                       MIO          691     A     
 MIO       SMB      ENTRY. **                                                              MIO          692     A     
 MIO                                                                                       MIO          693     A     
 MIO      *         ALLOCATE SPACE IN LCM IF POSSIBLE                                      MIO          694     A     
 MIO                                                                                       MIO          695     A     
 MIO                SX4    X4-1        FSCM = FSCM - 1                                     MIO          696     A     
 MIO                SX5    X5+2        LEN = LEN + 2                                       MIO          697     A     
 MIO                SB5    X5                                                              MIO          698     A     
 MIO                                                                                       MIO          699     A     
 MIO       #ECS     IFNE   CT.ECS,0                                                        MIO          700     A     
 MIO                SA2    ADT                                                             MIO          701     A     
 MIO                ZR     X2,SMB2     IF ADT = 0    */WRITE IS TO DISK                    MIO          702     A     
 MIO                                                                                       MIO          703     A     
 MIO                LX5    30                                                              MIO          704     A     
 MIO                BX5    X4+X5                                                           MIO          705     A     
 MIO                CALL   ASL         FLCM = ASL(FLCM,LEN,L)  */ALLOCATE LCM              MIO          706     A     
 MIO                SX4    X5                                                              MIO          707     A     
 MIO                AX5    30                                                              MIO          708     A     
 MIO                PRINT  SMB,(* --FLCM FROM ASL = *,Z8),X2                               MIO          709     A     
 MIO                                                                                       MIO          710     A     
 MIO                MI     X2,SMB2     IF FLCM.LT.0  */WRITE IS TO DISK                    MIO          711     A     
 MIO                                                                                       MIO          712     A     
 MIO      *         WRITE BLOCK TO LCM                                                     MIO          713     A     
 MIO                                                                                       MIO          714     A     
 MIO                SA1    X4                                                              MIO          715     A     
 MIO                SA3    SMBB        M1 = MASK [BH](BI,BST,HB)                           MIO          716     A     
 MIO                SB3    X7-1                                                            MIO          717     A     
 MIO                BX1    X1*X3       BHW = M1 & BHW                                      MIO          718     A     
 MIO                SB4    X2+B3                                                           MIO          719     A     
 MIO                LX7    BH.LENP     LEN[BHW] = L                                        MIO          720     A     
 MIO                BX6    X1+X7                                                           MIO          721     A     
 MIO                SA6    A1          [FSCM] = BHW                                        MIO          722     A     
 MIO                PRNTM  SMB,BHW,X6                                                      MIO          723     A     
 MIO                CALL   SBL         CALL SBL(FLCM,FSCM,LEN,RIW)                         MIO          724     A     
 MIO                MX6    -RI.LENL                                                        MIO          725     A     
 MIO                SX0    B4                                                              MIO          726     A     
 MIO                LX6    RI.LENP                                                         MIO          727     A     
 MIO                PRNTM  SMB,BTW,X7                                                      MIO          728     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2832    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                WX7    X0,SMBA     LEN[BTW] = L                                        MIO          729     A     
 MIO                BX7    X1*X6                                                           MIO          730     A     
 MIO                LX5    RI.LENP     LEN[RIW] = LEN                                      MIO          731     A     
 MIO                BX1    X5+X7                                                           MIO          732     A     
 MIO                EQ     SMB1                                                            MIO          733     A     
 MIO       #ECS     ENDIF                                                                  MIO          734     A     
 MIO                                                                                       MIO          735     A     
 MIO      *         WRITE BLOCK TO RWB OR DISK                                             MIO          736     A     
 MIO                                                                                       MIO          737     A     
 MIO       SMB2     SA3    MAX.RL                                                          MIO          738     A     
 MIO                SA1    RLEN        OL = RLEN                                           MIO          739     A     
 MIO                SA2    O.RWB                                                           MIO          740     A     
 MIO                IX0    X5-X3                                                           MIO          741     A     
 MIO                IX7    X1+X5       NL = OL + LEN                                       MIO          742     A     
 MIO                IX6    X7-X3                                                           MIO          743     A     
 MIO                MI     X6,SMB0     IF NL .LT. MAX.RL                                   MIO          744     A     
 MIO                                                                                       MIO          745     A     
 MIO      *         DUMP RWB TO DISK                                                       MIO          746     A     
 MIO                                                                                       MIO          747     A     
 MIO                ZR     X1,SMB3     IF OL = 0                                           MIO          748     A     
 MIO                LX5    30                                                              MIO          749     A     
 MIO                BX6    X4+X5                                                           MIO          750     A     
 MIO                SA6    SMBA                                                            MIO          751     A     
 MIO                SA4    O.RWB       FRWB = O.RWB                                        MIO          752     A     
 MIO                BX5    X1          L = RLEN                                            MIO          753     A     
 MIO                CALL   SBD         CALL SBD(FRWB,L,RIW)                                MIO          754     A     
 MIO                SA5    SMBA                                                            MIO          755     A     
 MIO                SA2    O.RWB                                                           MIO          756     A     
 MIO                SX4    X5                                                              MIO          757     A     
 MIO                AX5    30                                                              MIO          758     A     
 MIO                SX7    X5                                                              MIO          759     A     
 MIO                MX1    0           OL = 0                                              MIO          760     A     
 MIO                MI     X0,SMB0     IF LEN < MAX.RL                                     MIO          761     A     
 MIO                MX6    0                                                               MIO          762     A     
 MIO                SA6    RLEN        RLEN = 0                                            MIO          763     A     
 MIO                                                                                       MIO          764     A     
 MIO      *         WRITE BLOCK DIRECTLY FROM BLK                                          MIO          765     A     
 MIO                                                                                       MIO          766     A     
 MIO       SMB3     CALL   SBD         CALL SBD(FSCM,LEN,RIW)                              MIO          767     A     
 MIO                EQ     SMB1                                                            MIO          768     A     
 MIO                                                                                       MIO          769     A     
 MIO                                                                                       MIO          770     A     
 MIO       SMBA     BSS    1                                                               MIO          771     A     
 MIO       SMBB     BFMW   BH,(BI,BST,HB)                                                  MIO          772     A     
 MIO       GMB      TITLE  GMB - GET MEMORY BLOCK                                          MIO          773     A     
 MIO      **        GMB - GET MEMORY BLOCK                                                 MIO          774     A     
 MIO      *                                                                                MIO          775     A     
 MIO      *         ENTRY  (X3) = FSCM, SCM FWA OF BLOCK                                   MIO          776     A     
 MIO      *                (X5) = RIW, RANDOM INDEX WORD                                   MIO          777     A     
 MIO      *                                                                                MIO          778          I
          -FCC0415
 MIO      *         EXIT   BLOCK TRANSFERRED                                               MIO          779          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2833    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
          -FCC0415
 MIO      *                                                                                MIO          780     A     
 MIO      *         CALLS  GBL,GBD,MVE=.                                                   MIO          781     A     
 MIO                                                                                       MIO          782     A     
 MIO       GMB      ENTRY. **                                                              MIO          783     A     
 MIO                                                                                       MIO          784          I
          -FCC0415
 MIO                BX2    X5                                                              MIO          785     A     
 MIO                LX2    59-RI.ICP                                                       MIO          786     A     
 MIO                PL     X2,GMB0     IF ^ IC[RIW]                                        MIO          787     A     
 MIO                                                                                       MIO          788     A     
 MIO                LX2    1+RI.ICP-RI.LENP                                                MIO          789     A     
 MIO                SX1    X2+2        L = LEN[RIW] + 2                                    MIO          790     A     
 MIO                LX2    RI.LENP-RI.FWAP                                                 MIO          791     A     
 MIO                SX2    X2-1        FBLK = FWA[RIW] - 1                                 MIO          792     A     
 MIO                SX3    X3-1        FSCM = FSCM - 1                                     MIO          793     A     
 MIO                MOVE   X1,X2,X3    MOVE(L,FBLK,FSCM)                                   MIO          794     A     
 MIO                EQ     GMB                                                             MIO          795     A     
 MIO                                                                                       MIO          796     A     
 MIO       GMB0     SA4    MAX.RL                                                          MIO          797     A     
 MIO                SB4    X4                                                              MIO          798     A     
 MIO                PRNTM  GMB,RIW,X5                                                      MIO          799     A     
 MIO                                                                                       MIO          800     A     
 MIO       #ECS     IFNE   CT.ECS,0                                                        MIO          801     A     
 MIO                BX6    X5                                                              MIO          802     A     
 MIO                LX6    59-RI.ATP                                                       MIO          803     A     
 MIO                PL     X6,GMB1     IF ^AT[RIW]   */READ FROM DISK                      MIO          804     A     
 MIO                                                                                       MIO          805     A     
 MIO      *         READ BLOCK FROM LCM                                                    MIO          806     A     
 MIO                                                                                       MIO          807     A     
 MIO                LX5    -RI.LCMP                                                        MIO          808     A     
 MIO                SX4    X5          FLCM = LCM[RIW]                                     MIO          809     A     
 MIO                LX5    RI.LCMP-RI.LENP                                                 MIO          810     A     
 MIO                SX5    X5+2        L = LEN[RIW]+2                                      MIO          811     A     
 MIO                SX2    X3-1                                                            MIO          812     A     
 MIO                CALL   GBL         CALL GBL(FLCM,L,FSCM)                               MIO          813     A     
 MIO                SA2    X2          BHW = [FSCM]                                        MIO          814     A     
 MIO                PRNTM  GMB,BHW,X2                                                      MIO          815     A     
 MIO                SA4    BSI                                                             MIO          816     A     
 MIO                MX0    -BH.LENL    M1 = MASK[BH](LEN)                                  MIO          817     A     
 MIO                LX2    -BH.LENP                                                        MIO          818     A     
 MIO                BX6    X0*X2       BHW = ^M1 & BHW                                     MIO          819     A     
 MIO                LX4    BH.BSTP     BST[BHW] = BSI                                      MIO          820     A     
 MIO                SX0    B1                                                              MIO          821     A     
 MIO                LX0    BH.PRIP     PRI[BHW] = 1                                        MIO          822     A     
 MIO                BX7    X5+X6       LEN[BHW] = L                                        MIO          823     A     
 MIO                IX4    X0+X4                                                           MIO          824     A     
 MIO                BX7    X4+X7                                                           MIO          825     A     
 MIO                SA7    A2          [FSCM] = BHW                                        MIO          826     A     
 MIO                PRNTM  GMB,BHW,X7                                                      MIO          827     A     
 MIO                EQ     GMB                                                             MIO          828     A     
 MIO       #ECS     ENDIF                                                                  MIO          829     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2834    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                                                                                       MIO          830     A     
 MIO      *         CHECK IF BLOCK IS IN RRB OR RWB                                        MIO          831     A     
 MIO                                                                                       MIO          832     A     
 MIO       GMB1     LX5    -RI.RAP                                                         MIO          833     A     
 MIO                MX0    -RI.RAL                                                         MIO          834     A     
 MIO                BX4    -X0*X5      RA = RA[RIW]                                        MIO          835     A     
 MIO                SA1    O.RRB                                                           MIO          836     A     
 MIO                SA2    N.RRB                                                           MIO          837     A     
 MIO                LX5    RI.RAP-RI.LENP                                                  MIO          838     A     
 MIO                PRINT  GMB,(*  --N.RRB =*Z7),N.RRB                                     MIO          839     A     
 MIO                SB2    X1          BUF = [O.RRB]                                       MIO          840     A     
 MIO                IX6    X2-X4                                                           MIO          841     A     
 MIO                ZR     X6,GMB2     IF N.RRB = RA */BLOCK IN RRB                        MIO          842     A     
 MIO                                                                                       MIO          843     A     
 MIO                SA1    O.RWB                                                           MIO          844     A     
 MIO                SA2    O.DISK                                                          MIO          845     A     
 MIO                PRINT  GMB,(* --O.DISK =*Z9),O.DISK                                    MIO          846     A     
 MIO                SB2    X1          BUF = [O.RWB]                                       MIO          847     A     
 MIO                IX6    X2-X4                                                           MIO          848     A     
 MIO                ZR     X6,GMB2     IF O.DISK = RA   */BLOCK IN RWB                     MIO          849     A     
 MIO                                                                                       MIO          850     A     
 MIO                SB5    X5                                                              MIO          851          I
          -FCC1352
 MIO                GT     B5,B4,GMB3  IF L .GT. MAX.RL */READ TO *BLK*                    MIO          852          I
          -FCC1352
 MIO                SB5    X5+2                                                            FCC1352        5     A     
 MIO                GE     B5,B4,GMB3  IF LEN[RIW]+2 \ MAX.RL                              FCC1352        6     A     
 MIO                                                                                       MIO          853     A     
 MIO                BX6    X3                                                              MIO          854     A     
 MIO                BX7    X5                                                              MIO          855     A     
 MIO                SA2    O.RRB                                                           MIO          856     A     
 MIO                SA6    GMBA                                                            MIO          857     A     
 MIO                SA7    A6+B1                                                           MIO          858     A     
 MIO                BX7    X4                                                              MIO          859     A     
 MIO                SX5    B4          L = MAX.RL                                          MIO          860     A     
 MIO                SA7    N.RRB                                                           MIO          861     A     
 MIO                CALL   GBD         CALL GBD(O.RRB,L,RA)                                MIO          862     A     
 MIO                SA1    O.RRB                                                           MIO          863     A     
 MIO                SA3    GMBA                                                            MIO          864     A     
 MIO                SA5    A3+B1                                                           MIO          865     A     
 MIO                SB2    X1                                                              MIO          866     A     
 MIO                                                                                       MIO          867     A     
 MIO       GMB2     SX1    X5+2        L = LEN[RIW]+2                                      MIO          868     A     
 MIO                LX5    RI.LENP-RI.OFSP                                                 MIO          869     A     
 MIO                MX0    -RI.OFSL                                                        MIO          870     A     
 MIO                BX7    -X0*X5      OFS = OFS[RIW]                                      MIO          871     A     
 MIO                SX2    X7+B2       FBLK = BUF+OFS                                      MIO          872     A     
 MIO                SX3    X3-1        FSCM = FSCM-1                                       MIO          873     A     
 MIO                SA0    X3                                                              MIO          874     A     
 MIO                MOVE   X1,X2,X3    MOVE(L,FBLK,FSCM)                                   MIO          875     A     
 MIO                EQ     GMB4                                                            MIO          876     A     
 MIO                                                                                       MIO          877     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2835    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO      *         READ DIRECTLY INTO BLK                                                 MIO          878     A     
 MIO                                                                                       MIO          879     A     
 MIO       GMB3     SX2    X3-1        FSCM = FSCM-1                                       MIO          880     A     
 MIO                SA0    X2                                                              MIO          881     A     
 MIO                SX5    X5+2        L = LEN[RIW]+2                                      MIO          882     A     
 MIO                CALL   GBD         CALL GBD(FSCM,L,RA)                                 MIO          883     A     
 MIO                                                                                       MIO          884     A     
 MIO       GMB4     SA2    A0                                                              MIO          885     A     
 MIO                SA4    BSI                                                             MIO          886     A     
 MIO                SX0    B1                                                              MIO          887     A     
 MIO                LX0    BH.PRIP     PRI[BHW] = 1                                        MIO          888     A     
 MIO                LX4    BH.BSTP                                                         MIO          889     A     
 MIO                IX4    X0+X4                                                           MIO          890     A     
 MIO                BX6    X2+X4                                                           MIO          891     A     
 MIO                SA6    A2                                                              MIO          892     A     
 MIO                PRNTM  GMB,BHW,X6                                                      MIO          893     A     
 MIO                EQ     GMB                                                             MIO          894     A     
 MIO                                                                                       MIO          895     A     
 MIO       GMBA     BSS    2                                                               MIO          896     A     
 MIO                TTL    MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)               MIO          897     A     
 MIO       DMB      TITLE  DMB - DUMP MEMORY BLOCKS                                        MIO          898     A     
 MIO      **        DMB - DUMP MEMORY BLOCKS                                               MIO          899     A     
 MIO      *                                                                                MIO          900     A     
 MIO      *         ENTRY  (X1) = LEN, LENGTH OF SPACE REQUIRED                            MIO          901     A     
 MIO      *                (B2) = 0, GET ALL REQ.SPACE BY DUMPING BASIC BLOCKS             RSM2763X      66     A     
 MIO      *                     " 0, DUMP INACTIVE BLOCKS ONLY. IF NOT ENOUGH              RSM2763X      67     A     
 MIO      *                          SPACE OBTAINED,CALL MOREFL TO EXTEND FL               RSM2763X      68     A     
 MIO      *                                                                                MIO          902     A     
 MIO      *         EXIT   (X1) = 0, FREE SPACE WAS OBTAINED                               MIO          903          I
          -RSM2763X 
 MIO      *         EXIT   (X1) = 0 - REQUIRED SPACE OBTAINED                              RSM2763X      69     A     
 MIO      *                (X1) " 0 - NOT ENOUGH SPACE OBTAINED,X1 = NEW WN                RSM2763X      70     A     
 MIO      *                (X2) = WFL - WORDS OBTAINED BY CALLING MOREFL                   RSM2763X      71     A     
 MIO      *                     " 0, ERROR                                                 MIO          904          I
          -RSM2763X 
 MIO      *                                                                                MIO          905     A     
 MIO      *         CALLS  SMB,ABB.                                                        MIO          906     A     
 MIO                                                                                       MIO          907     A     
 MIO       DMB      ENTRY. **                                                              MIO          908     A     
 MIO                SA2    =XOPT2                                                          MIO          909          I
          -FCC0415
 MIO                SB7    X1                                                              MIO          910     A     
 MIO                SX6    B2                                                              RSM2763X      72     A     
 MIO                SA6    DMBH        SAVE B2                                             RSM2763X      73     A     
 MIO                MX1    0                                                               MIO          911          I
          -FCC0415
 MIO                ZR     X2,DMB      IF OPT2 = 0   */ OPT=1                              MIO          912          I
          -FCC0415
 MIO                BX6    X0                                                              MIO          913     A     
 MIO                BX7    X5                                                              MIO          914     A     
 MIO                SA6    DMBG        SAVE X0, X5                                         MIO          915     A     
 MIO                SA7    DMBG+1                                                          MIO          916     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2836    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                SX6    A0                                                              MIO          917     A     
 MIO                SX7    A5                                                              MIO          918     A     
 MIO                SA6    DMBG+2      SAVE A0,A5                                          MIO          919     A     
 MIO                SA7    DMBG+3                                                          MIO          920     A     
 MIO                                                                                       MIO          921     A     
 MIO                PRINT  DMB,(* -- REQUEST FOR*Z7* WORDS*),B7                            MIO          922     A     
 MIO                SA5    DMBA        M1 = MASK FOR AV AND FW FLAGS                       RSM2763X      74     A     
 MIO       DMB0     SA2    O.BST                                                           RSM2763X      75     A     
 MIO                SA2    O.BST                                                           MIO          923          I
          -RSM2763X 
 MIO                SA3    O.SEQ                                                           MIO          924     A     
 MIO                SA4    O.BLK       FBLK = O.BLK                                        MIO          925     A     
 MIO                SA5    DMBA        M1 = MASK [BH](FW)                                  MIO          926          I
          -RSM2763X 
 MIO                SB6    60-BH.LENP                                                      MIO          927     A     
 MIO                SB3    X2                                                              MIO          928     A     
 MIO                SB4    X3-1        SEQ = O.SEQ - 1                                     MIO          929     A     
 MIO                SA1    O.BIT                                                           MIO          930     A     
 MIO                SA3    A5+B1                                                           MIO          931     A     
 MIO                SB2    X1+B1                                                           MIO          932     A     
 MIO                BX0    X3                                                              MIO          933     A     
 MIO                SA4    X4+B1       BHW = [FBLK+1]                                      MIO          934     A     
 MIO                PRNTM  DMB,BHW,X4                                                      MIO          935          I
          -RSM2763X 
 MIO                                                                                       MIO          936     A     
 MIO      *         LOOP TO FIND BLOCK TO DUMP                                             MIO          937     A     
 MIO                                                                                       MIO          938     A     
 MIO       DMB1     ZR     X4,DMB3     IF BHW = 0    */END OF TABLE                        MIO          939     A     
 MIO                                                                                       MIO          940     A     
 MIO                BX6    X5*X4       TEST = M1 & BHW                                     MIO          941     A     
 MIO                SB5    A4          OBLK = FBLK                                         MIO          942     A     
 MIO                PRNTM  DMB,BHW,X4                                                      RSM2763X      76     A     
 MIO                LX2    B6,X4       TBHW = BHW                                          MIO          943     A     
 MIO                BX6    X0-X6       TEST = TEST .XOR. M3                                MIO          944     A     
 MIO                SA4    X2+B5       BHW = [FBLK+LEN[BHW]]                               MIO          945     A     
 MIO                PRNTM  DMB,BHW,X4                                                      MIO          946          I
          -RSM2763X 
 MIO                NZ     X6,DMB1     IF TEST " 0                                         MIO          947     A     
 MIO                                                                                       MIO          948     A     
 MIO                EQ     B4,B5,DMB1  OBLK = SEQ    */ DO NOT DUMP ACTIVE BLOCK           MIO          949     A     
 MIO                                                                                       MIO          950     A     
 MIO      *         DUMP BLOCK TO MASS STORAGE                                             MIO          951     A     
 MIO                                                                                       MIO          952     A     
 MIO                PRINT  DMB,(* ABOVE BLOCK DUMPED TO MS. RIW FOLLOWS *)                 RSM2763X      77     A     
 MIO                MX6    -BH.BSTL                                                        MIO          953     A     
 MIO                LX6    BH.BSTP                                                         MIO          954     A     
 MIO                MX3    -BA.SVLL                                                        MIO          955     A     
 MIO                SX5    X2          L = LEN[BHW]                                        MIO          956     A     
 MIO                BX6    X2*X6                                                           MIO          957     A     
 MIO                SA6    B5                                                              MIO          958     A     
 MIO                LX2    BH.LENP-BH.BSTP   B = BST[BHW]                                  MIO          959     A     
 MIO                SB4    X2                                                              MIO          960     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2837    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                MI     B4,DMB1A    IF B < 0      */NO BST ENTRY                        MIO          961     A     
 MIO                                                                                       MIO          962     A     
 MIO                SA1    X2+B3       BAW = BST(B)                                        MIO          963     A     
 MIO                LX3    BA.SVLP                                                         MIO          964     A     
 MIO                BX7    -X3*X1                                                          MIO          965     A     
 MIO                PRNTM  DMB,BAW,X7                                                      MIO          966     A     
 MIO                SA7    A1          BST(B) = BAW                                        MIO          967     A     
 MIO                                                                                       MIO          968     A     
 MIO       DMB1A    LX2    BH.BSTP-BH.BIP    AR = BI[BHW]                                  MIO          969     A     
 MIO                SA3    X2+B2       RIW = BIT(AR+1)                                     MIO          970     A     
 MIO                LX3    59-RI.ATP                                                       MIO          971     A     
 MIO                SX7    B7                                                              MIO          972          I
          -FCC1123
 MIO                SB2    X4          L=LEN[BHW]                                          FCC1123        4     A     
 MIO                NE     B1,B2,DMB1B IF L = 1       */SKIP 1 WORD FREE SPACE             FCC1123        5     A     
 MIO                SA4    A4+1                                                            FCC1123        6     A     
 MIO       DMB1B    SX7    B7                                                              FCC1123        7     A     
 MIO                IX6    X7-X5       LEN = LEN - L                                       MIO          973     A     
 MIO                SX0    A5                                                              MIO          974     A     
 MIO                LX6    18                                                              MIO          975     A     
 MIO                SX1    A4                                                              MIO          976     A     
 MIO                BX6    X0+X6                                                           MIO          977     A     
 MIO                LX6    18                                                              MIO          978     A     
 MIO                BX6    X1+X6                                                           MIO          979     A     
 MIO                SA6    DMBE        T1 = LEN, M1, FBLK                                  MIO          980     A     
 MIO                SX7    B5                                                              MIO          981     A     
 MIO                SX0    A3                                                              MIO          982     A     
 MIO                LX7    18                                                              MIO          983     A     
 MIO                BX7    X0+X7                                                           MIO          984     A     
 MIO                SX1    X5                                                              MIO          985     A     
 MIO                LX7    18                                                              MIO          986     A     
 MIO                BX7    X1+X7                                                           MIO          987     A     
 MIO                SA7    DMBF        T2 = OBLK, AR, L                                    MIO          988     A     
 MIO                SX5    X5-2                                                            MIO          989     A     
 MIO                SB2    B0          FLCM = 0                                            MIO          990     A     
 MIO                PL     X3,DMB2     IF AT[RIW] = 0                                      MIO          991     A     
 MIO                                                                                       MIO          992     A     
 MIO                LX3    1+RI.ATP-RI.LCMP                                                MIO          993     A     
 MIO                SB2    X3          FLCM = LCM[RIW]                                     MIO          994     A     
 MIO                                                                                       MIO          995     A     
 MIO       DMB2     SX4    B5+B1       FSCM = FBLK + 1                                     MIO          996     A     
 MIO                CALL   SMB         CALL SMB(FLCM,L,FBLK) */SAVE BLOCK ON MS            MIO          997     A     
 MIO                SA2    DMBF                                                            MIO          998     A     
 MIO                SB3    X2                                                              MIO          999     A     
 MIO                BX7    X1                                                              MIO         1000     A     
 MIO                AX2    18                                                              MIO         1001     A     
 MIO                SA7    X2          BIT(AR+1) = RIW                                     MIO         1002     A     
 MIO                PRNTM  DMB,RIW,X7                                                      MIO         1003     A     
 MIO                AX2    18                                                              MIO         1004     A     
 MIO                SB2    X2                                                              MIO         1005     A     
 MIO                CALL   ABB         CALL ABB(OBLK,L)                                    MIO         1006     A     
 MIO                SA1    DMBE                                                            MIO         1007     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2838    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                SA4    X1                                                              MIO         1008     A     
 MIO                AX1    18                                                              MIO         1009     A     
 MIO                SA5    X1                                                              MIO         1010     A     
 MIO                AX1    18                                                              MIO         1011     A     
 MIO                SB7    X1                                                              MIO         1012     A     
 MIO                SA3    A5+1                                                            MIO         1013     A     
 MIO                LE     B7,B0,DMB4  IF LEN @ 0                                          MIO         1014     A     
 MIO                                                                                       MIO         1015     A     
 MIO                BX0    X3                                                              MIO         1016     A     
 MIO                SA1    O.BIT                                                           MIO         1017     A     
 MIO                SA2    O.BST                                                           MIO         1018     A     
 MIO                SA3    O.SEQ                                                           MIO         1019     A     
 MIO                SB6    60-BH.LENP                                                      MIO         1020     A     
 MIO                SB2    X1+B1                                                           MIO         1021     A     
 MIO                SB3    X2                                                              MIO         1022     A     
 MIO                SB4    X3-1                                                            MIO         1023     A     
 MIO                EQ     DMB1                                                            MIO         1024     A     
 MIO                                                                                       MIO         1025     A     
 MIO      *         GET MASK FOR NEXT GROUP                                                MIO         1026     A     
 MIO                                                                                       MIO         1027     A     
 MIO       DMB3     SA5    A5+2        */ M3 OR M5 MASK OR ZERO                            RSM2763X      78     A     
 MIO                ZR     X5,DMB4     IF (X5) = 0 */ LAST BLK SCAN DONE                   RSM2763X      79     A     
 MIO                SA3    A5+B1                                                           RSM2763X      80     A     
 MIO                BX0    X3          */ M4 OR M6 MASK FOR 2ND OR 3RD SCAN                RSM2763X      81     A     
 MIO                ZR     X0,DMB3A    IF M4 MASK */ 2ND SCAN IS TO START                  RSM2763X      82     A     
 MIO                SA4    DMBH                                                            RSM2763X      83     A     
 MIO                ZR     X4,DMB3A    IF  DMBH  = 0 */ STANDARD PROCESSING                RSM2763X      84     A     
 MIO                                                                                       RSM2763X      85     A     
 MIO      *         SPECIAL PROCESSING REQUESTED - CALL MOREFL TO GET                      RSM2763X      86     A     
 MIO      *         REMAINING NO. OF WORDS BY EXTENDING FL RATHER THEN BY                  RSM2763X      87     A     
 MIO      *         DUMPING THE HIGHEST PRIORITY BLOCKS                                    RSM2763X      88     A     
 MIO                                                                                       RSM2763X      89     A     
 MIO                SX1    B7          WN = NO.OF WORDS NEEDED                             RSM2763X      90     A     
 MIO                PRINT  DMB,(*  DMB CALLS MOREFL,WN =*Z7),(X1)                          RSM2763X      91     A     
 MIO                CALL   MOREFL      MOREFL(X6) = NO.OF WORDS GRANTED                    RSM2763X      92     A     
 MIO                SA6    DMBI        SAVE WG - NO.OF WORDS GRANTED                       RSM2763X      93     A     
 MIO                IX6    X1-X6                                                           RSM2763X      94     A     
 MIO                SB7    X6          RWN = REM.NO.OF WORDS NEEDED                        RSM2763X      95     A     
 MIO                LE     B7,DMB4     IF RWN @ 0                                          RSM2763X      96     A     
 MIO                SA5    DMBA+4      M5 = MASK FOR 3RD SCAN                              RSM2763X      97     A     
 MIO                EQ     DMB0        */ GET RWN BY DUMPING THE TOP PRIOR.BLOCKS          RSM2763X      98     A     
 MIO                                                                                       RSM2763X      99     A     
 MIO       DMB3A    SA4    O.BLK                                                           RSM2763X     100     A     
 MIO                SA4    X4+B1                                                           RSM2763X     101     A     
 MIO                EQ     DMB1                                                            RSM2763X     102     A     
 MIO       DMB3     SA5    A5+2                                                            MIO         1028          I
          -RSM2763X 
 MIO                SA4    O.BLK                                                           MIO         1029          I
          -RSM2763X 
 MIO                SA3    A5+B1                                                           MIO         1030          I
          -RSM2763X 
 MIO                ZR     X5,DMB4     IF M1 = 0                                           MIO         1031          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2839    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
          -RSM2763X 
 MIO                                                                                       MIO         1032          I
          -RSM2763X 
 MIO                SA4    X4+B1                                                           MIO         1033          I
          -RSM2763X 
 MIO                BX0    X3                                                              MIO         1034          I
          -RSM2763X 
 MIO                EQ     DMB1                                                            MIO         1035          I
          -RSM2763X 
 MIO                                                                                       MIO         1036     A     
 MIO       DMB4     SX1    B7                                                              MIO         1037     A     
 MIO                SA5    DMBG+3                                                          MIO         1038     A     
 MIO                SA4    DMBG+2                                                          MIO         1039     A     
 MIO                SA3    DMBG+1                                                          MIO         1040     A     
 MIO                SA2    DMBG                                                            MIO         1041     A     
 MIO                SA0    X4          RESTORE A0, A5                                      MIO         1042     A     
 MIO                SA5    X5                                                              MIO         1043     A     
 MIO                BX5    X3                                                              MIO         1044     A     
 MIO                BX0    X2          RESTORE X0,X5                                       MIO         1045     A     
 MIO                PRINT  DMB,(* -- SUMMARY -- B7 =*Z7),B7                                MIO         1046     A     
 MIO                PRNTM  DMB,BIT                                                         MIO         1047     A     
 MIO                PRNTM  DMB,BST                                                         MIO         1048     A     
 MIO                PRNTM  BLK,,=1                                                         MIO         1049     A     
 MIO                                                                                       MIO         1050     A     
 MIO                SA2    DMBI        WFL = NO OF WORDS GRANTED BY MOREFL                 RSM2763X     103     A     
 MIO                MX6    0                                                               RSM2763X     104     A     
 MIO                SA6    A2          DMBI = 0                                            RSM2763X     105     A     
 MIO                PL     B7,DMB      IF NOT ENOUGH SPACE FREED                           MIO         1051     A     
 MIO                MX1    0           X1 = 0        */ SUCCESS                            MIO         1052     A     
 MIO                EQ     DMB                                                             MIO         1053     A     
 MIO                                                                                       MIO         1054     A     
 MIO       DMBA     BFMW   BH,(AV,FW)                                                      MIO         1055     A     
 MIO                BFMW   BH,(FW)                                                         MIO         1056     A     
 MIO                BFMW   BH,(AV,PRI)                                                     MIO         1057     A     
 MIO                BSSZ   1                                                               MIO         1058     A     
 MIO                BFMW   BH,(AV,PRI)                                                     MIO         1059     A     
 MIO                BFMW   BH,(PRI)                                                        MIO         1060     A     
 MIO                BSSZ   1                                                               MIO         1061     A     
 MIO       DMBE     BSS    1                                                               MIO         1062     A     
 MIO       DMBF     BSS    1                                                               MIO         1063     A     
 MIO       DMBG     BSS    4                                                               MIO         1064     A     
 MIO       DMBH     BSS    1                                                               RSM2763X     106     A     
 MIO       DMBI     BSSZ   1                                                               RSM2763X     107     A     
 MIO       ASB      TITLE  ASB - ALLOCATE SPACE IN BLK                                     MIO         1065     A     
 MIO      **        ASB - ALLOCATE SPACE IN BLK                                            MIO         1066     A     
 MIO      *                                                                                MIO         1067     A     
 MIO      *         ENTRY  (B2) = ADDRESS OF BLOCK HEADER WORD                             MIO         1068     A     
 MIO      *                (B5) = OL, CURRENT LENGTH OF BLOCK                              MIO         1069     A     
 MIO      *                (X1) = NL, NEW LENGTH OF BLOCK                                  MIO         1070     A     
 MIO      *                                                                                MIO         1071     A     
 MIO      *         EXIT   (X3) = FWA, FWA OF BLOCK ALLOCATED                              MIO         1072     A     
 MIO                                                                                       MIO         1073     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2840    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO       ASB0     SA1    =7LMIO-ASB        TABLE OVERFLOW                                MIO         1074          I
          -FCC0415
 MIO                CALL   PUNT                                                            MIO         1075          I
          -FCC0415
 MIO                                                                                       MIO         1076          I
          -FCC0415
 MIO       ASB      ROUTINE                                                                MIO         1077     A     
 MIO                SB7    B1+B1                                                           MIO         1078     A     
 MIO                SB6    RBSB-1                                                          MIO         1079     A     
 MIO                PRINT  ASB,(* BLK SIZE=*Z7),(L.BLK)                                    RSM2763X     108     A     
 MIO                SB3    X1+B7       NL = NL + 2                                         MIO         1080     A     
 MIO                EQ     B5,B7,ASB1  IF OL = 2     */NO SPACE ALLOCATED                  MIO         1081     A     
 MIO                                                                                       MIO         1082     A     
 MIO                EQ     B2,B6,ASB1  IF FBLK = RBSB  */DUMMY BLOCK                       MIO         1083     A     
 MIO                                                                                       MIO         1084     A     
 MIO                EQ     B5,B3,ASB5  IF OL = NL                                          MIO         1085     A     
 MIO                                                                                       MIO         1086     A     
 MIO                GT     B5,B3,ASB4  IF OL > NL                                          MIO         1087     A     
 MIO                                                                                       MIO         1088     A     
 MIO                SX4    B3                                                              MIO         1089     A     
 MIO                SB3    B5                                                              MIO         1090     A     
 MIO                CALL   ABB         CALL ABB(FBLK,OL)                                   MIO         1091     A     
 MIO                SB3    X4+                                                             MIO         1092     A     
 MIO                                                                                       MIO         1093     A     
 MIO      *         DUMP BLOCKS FROM BLK IF NEED EXTRA SPACE.                              MIO         1094     A     
 MIO                                                                                       MIO         1095     A     
 MIO       ASB1     SA1    MX.AVS      MAX = MX.AVS                                        MIO         1096     A     
 MIO                SB6    X1+                                                             MIO         1097     A     
 MIO                SX2    X1-100B                                                         MIO         1098     A     
 MIO                PRINT ASB,(* MX.AVS,NL=*2Z7),(B6,B3)                                   RSM2763X     109     A     
 MIO                MI     X2,ASB1C                                                        MIO         1099     A     
 MIO                                                                                       MIO         1100     A     
 MIO                GE     B6,B3,ASB1A IF MAX \ NL                                         MIO         1101     A     
 MIO                                                                                       MIO         1102     A     
 MIO       ASB1C    SX1    B3-B6       DL = NL - MAX.AS                                    MIO         1103     A     
 MIO                SA3    =XOPT2                                                          FCC0415       19     A     
 MIO                SX6    B3                                                              MIO         1104     A     
 MIO                SA6    ASBA                                                            MIO         1105     A     
 MIO                PRINT  ASB,(* SPACE NEEDED = *,Z8),B3                                  MIO         1106     A     
 MIO                ZR     X3,ASB1E    IF OPT2 = 0    */OPT = 1                            FCC0415       20     A     
 MIO                SX2    401B                                                            MIO         1107     A     
 MIO                IX7    X1-X2                                                           MIO         1108     A     
 MIO                PL     X7,ASB1B    DL = MAX( DL , 401B )                               MIO         1109     A     
 MIO                BX1    X2                                                              MIO         1110     A     
 MIO       ASB1B    SX6    B0                                                              RSM2763X     110     A     
 MIO                SB2    B1          */ SPEC. PROCESSING BY DMB                          RSM2763X     111     A     
 MIO       ASB1B    SX6    0                                                               MIO         1111          I
          -RSM2763X 
 MIO                PRINT  ASB,(* ASB CALLS DMB,WN=*Z7),(X1)                               RSM2763X     112     A     
 MIO                SA6    O.SEQ       O.SEQ = 0                                           MIO         1112     A     
 MIO                SA6    L.SEQ       L.SEQ = 0                                           MIO         1113     A     
 MIO                CALL   DMB         DUMP BLOCKS TO FREE UP SPACE                        MIO         1114     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2841    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                NZ     X1,ASB6     IF NOT ENOUGH SPACE OBTAINED                        RSM2763X     113     A     
 MIO                ZR     X2,ASB1D    ENOUGH SPACE BY DUMPING BLOCKS ONLY                 RSM2763X     114     A     
 MIO                                                                                       RSM2763X     115     A     
 MIO      *         DMB HAD TO CALL MOREFL TO GET ENOUGH SPACE, X2 = WFL                   RSM2763X     116     A     
 MIO                                                                                       RSM2763X     117     A     
 MIO                BX1    X2                                                              RSM2763X     118     A     
 MIO                NZ     X1,ASB0     IF NOT ENOUGH SPACE AVAILABLE                       MIO         1115          I
          -FCC0415
 MIO                SA2    ASBA                                                            MIO         1116          I
          -FCC0415
 MIO                ZR     X1,ASB1D    IF ENOUGH SPACE OBTAINED                            FCC0415       21          I
          -RSM2763X 
 MIO                                                                                       FCC0415       22     A     
 MIO      *         INCREASE SIZE OF *BLK*                                                 FCC0415       23     A     
 MIO                                                                                       FCC0415       24     A     
 MIO       ASB1E    SA2    =XTO        DMBH = [TO]    */SAVE TABLE OVERFLOW EXIT           FCC0415       25          I
          -RSM2763X 
 MIO                SX6    =XTOV                                                           FCC0415       26          I
          -RSM2763X 
 MIO                BX7    X2                                                              FCC0415       27          I
          -RSM2763X 
 MIO                SA6    A2          [TO] = TOV     */SET TABLE OVERFLOW EXIT            FCC0415       28          I
          -RSM2763X 
 MIO                SA7    ASBB                                                            FCC0415       29          I
          -RSM2763X 
 MIO                SX1    X1+100B     LEN = LEN + 100B                                    FCC0415       30          I
          -RSM2763X 
 MIO       ASB1E    SX1    X1+100B     LEN = LEN+100B                                      RSM2763X     119     A     
 MIO                                                                                       RSM2763X     120     A     
 MIO                ALLOC  BLK,X1      ALLOC( BLK , LEN ) ; OL = OLD(L.BLK)                FCC0415       31     A     
 MIO                PRINT  ASB,(* INCREASE IN BLK = *,Z8),X1                               FCC0415       32     A     
 MIO                SB5    X2-1                                                            FCC0415       33     A     
 MIO                MX7    0                                                               FCC0415       34     A     
 MIO                SA7    B5+X3       [O.BLK+NL-1] = 0                                    FCC0415       35     A     
 MIO                SB3    X1                                                              FCC0415       36     A     
 MIO                SB2    B5+B6       FWA = O.BLK-1+OL                                    FCC0415       37     A     
 MIO                CALL   ABB         CALL ABB(FWA,LEN)  */ADD BLOCK TO LIST              FCC0415       38     A     
 MIO                SA1    ASBB                                                            FCC0415       39          I
          -RSM2763X 
 MIO                BX6    X1                                                              FCC0415       40          I
          -RSM2763X 
 MIO                SA6    =XTO        [TO] = DMBH    */RESTORE OVERFLOW EXIT              FCC0415       41          I
          -RSM2763X 
 MIO                                                                                       FCC0415       42     A     
 MIO       ASB1D    SA2    ASBA                                                            FCC0415       43     A     
 MIO                SB3    X2+                                                             MIO         1117     A     
 MIO                                                                                       MIO         1118     A     
 MIO       ASB1A    SA1    LAS         BTW = LAS                                           MIO         1119     A     
 MIO                PRINT  ASB,(* --LAS = *Z20),LAS                                        MIO         1120     A     
 MIO                LX1    -BT.LKFP    I = LKF[BTW]                                        MIO         1121     A     
 MIO                SB5    X1                                                              MIO         1122     A     
 MIO                ZR     B5,ASB2A                                                        MIO         1123     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2842    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                                                                                       MIO         1124     A     
 MIO                SA2    X1+         BTW = [I]                                           MIO         1125     A     
 MIO                PRNTM  ASB,BTW,X2                                                      MIO         1126     A     
 MIO                                                                                       MIO         1127     A     
 MIO      *         SEARCH LIST FOR AVAILABLE SPACE                                        MIO         1128     A     
 MIO                                                                                       MIO         1129     A     
 MIO       ASB2     LX2    -BT.LENP                                                        MIO         1130     A     
 MIO                SB5    X2          L = LEN[BTW]                                        MIO         1131     A     
 MIO                LX2    BT.LENP-BT.LKFP                                                 MIO         1132     A     
 MIO                GE     B5,B3,ASB3  IF L \ NL                                           MIO         1133     A     
 MIO                                                                                       MIO         1134     A     
 MIO                SB6    X2          I = LKF[BTW]                                        MIO         1135     A     
 MIO                SA2    X2          BTW = [I]                                           MIO         1136     A     
 MIO                PRNTM  ASB,BTW,X2                                                      MIO         1137     A     
 MIO                NZ     B6,ASB2     IF I " 0                                            MIO         1138     A     
 MIO                                                                                       MIO         1139     A     
 MIO      *         CALL GARBAGE COLLECTOR FOR BLK                                         MIO         1140     A     
 MIO                                                                                       MIO         1141     A     
 MIO       ASB2A    SX6    B3+                                                             MIO         1142     A     
 MIO                SA6    ASBA                                                            MIO         1143     A     
 MIO                CALL   CGB         CALL CGB      */GARBAGE COLLECTOR                   MIO         1144     A     
 MIO                SA2    ASBA                                                            MIO         1145     A     
 MIO                SB3    X2+                                                             MIO         1146     A     
 MIO                EQ     ASB1                                                            MIO         1147     A     
 MIO                                                                                       MIO         1148     A     
 MIO      *         REMOVE BLOCK FROM AVAILABLE LIST                                       MIO         1149     A     
 MIO                                                                                       MIO         1150     A     
 MIO       ASB3     LX2    BT.LKFP                                                         MIO         1151     A     
 MIO                SB6    B5-B1                                                           MIO         1152     A     
 MIO                SB2    A2-B6       FBLK = I-L+1                                        MIO         1153     A     
 MIO                SA1    A2                                                              MIO         1154     A     
 MIO                CALL   RBB         CALL RBB(BTW)                                       MIO         1155     A     
 MIO                EQ     B5,B3,ASB5  IF L = NL                                           MIO         1156     A     
 MIO                                                                                       MIO         1157     A     
 MIO      *         ADD REMAINDER OF BLOCK TO AVAILABLE LIST                               MIO         1158     A     
 MIO                                                                                       MIO         1159     A     
 MIO       ASB4     SX4    B2+B1                                                           MIO         1160     A     
 MIO                MX7    0                                                               MIO         1161     A     
 MIO                SB2    B2+B3       FBLK = FBLK + NL                                    MIO         1162     A     
 MIO                SB3    B5-B3       LX = L - NL                                         MIO         1163     A     
 MIO                SA7    B2-B1                                                           MIO         1164     A     
 MIO                CALL   ABB         CALL ABB(FWAX,LX)                                   MIO         1165     A     
 MIO                BX3    X4                                                              MIO         1166     A     
 MIO                EQ     ASB                                                             MIO         1167     A     
 MIO                                                                                       MIO         1168     A     
 MIO      *         SET FWA OF ALLOCATED BLOCK                                             MIO         1169     A     
 MIO                                                                                       MIO         1170     A     
 MIO       ASB5     SX3    B2+B1                                                           MIO         1171     A     
 MIO                EQ     ASB                                                             MIO         1172     A     
 MIO                                                                                       MIO         1173     A     
 MIO       ASB6     SA1    =7LTBL-OVF                                                      RSM2763X     121     A     
 MIO                CALL   PUNT                                                            RSM2763X     122     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2843    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                                                                                       RSM2763X     123     A     
 MIO                                                                                       RSM2763X     124     A     
 MIO       ASBA     BSS    1                                                               MIO         1174     A     
 MIO       ASBB     BSS    1                                                               FCC0415       44     A     
 MIO       ABB      TITLE  ABB - ADD BLOCK TO BLK LIST                                     MIO         1175     A     
 MIO      **        ABB - ADD BLOCK TO BLK LIST                                            MIO         1176     A     
 MIO      *                                                                                MIO         1177     A     
 MIO      *         ENTRY  (B2) = FWA, FWA OF BLOCK (ADDRESS OF BHW)                       MIO         1178     A     
 MIO      *                (B3) = LEN, LENGTH OF BLOCK (INCLUDING BHW AND BTW)             MIO         1179     A     
 MIO      *                                                                                MIO         1180     A     
 MIO      *         EXIT   BLOCK ADDED TO LINKED LIST                                      MIO         1181     A     
 MIO      *                                                                                MIO         1182     A     
 MIO      *         CALLS  RBB.                                                            MIO         1183     A     
 MIO                                                                                       MIO         1184     A     
 MIO       ABB      ROUTINE                                                                MIO         1185     A     
 MIO                                                                                       MIO         1186          I
          -FCC0415
 MIO                SA1    MX.AVS                                                          MIO         1187     A     
 MIO                SB7    B3-B1                                                           MIO         1188     A     
 MIO                SB4    B2+B7       ABTW = FBLK+L-1                                     MIO         1189     A     
 MIO                SX7    X1+B3       MX.AVS = MX.AVS+LEN                                 MIO         1190     A     
 MIO                SA7    A1                                                              MIO         1191     A     
 MIO                                                                                       MIO         1192     A     
 MIO      *         GET BLOCK TRAILER WORDS FOR PRECEDING AND FOLLOWING BLOCKS.            MIO         1193     A     
 MIO                                                                                       MIO         1194     A     
 MIO                SA1    B2-B1       PBTW = [FBLK]                                       MIO         1195     A     
 MIO                PRNTM  ABB,BTW,X1                                                      MIO         1196     A     
 MIO                ZR     X1,ABB1     IF PBTW = 0   */NO PRECEDING BLOCK                  MIO         1197     A     
 MIO                                                                                       MIO         1198     A     
 MIO      *         COMBINE ADJACENT AVAILABLE BLOCKS                                      MIO         1199     A     
 MIO                                                                                       MIO         1200     A     
 MIO                LX1    59-BT.AVP                                                       MIO         1201     A     
 MIO                PL     X1,ABB1     IF ^AV[PBTW]  */NOT AVAILABLE SPACE                 MIO         1202     A     
 MIO                                                                                       MIO         1203     A     
 MIO                LX1    1+BT.AVP-BT.LENP                                                MIO         1204     A     
 MIO                SB7    X1          PL = LEN[PBTW]                                      MIO         1205     A     
 MIO                SA2    MX.AVS                                                          MIO         1206     A     
 MIO                SB2    B2-B7       FBLK = FBLK-PL                                      MIO         1207     A     
 MIO                SB3    B3+B7       L = L + PL                                          MIO         1208     A     
 MIO                SX7    X2+B7                                                           MIO         1209     A     
 MIO                LX1    BT.LENP                                                         MIO         1210     A     
 MIO                SA7    A2                                                              MIO         1211     A     
 MIO                CALL   RBB         CALL RBB(PBTW)                                      MIO         1212     A     
 MIO                                                                                       MIO         1213     A     
 MIO       ABB1     SA2    B4+B1       FBHW = [ABTW+1]                                     MIO         1214     A     
 MIO                ZR     X2,ABB2     IF FBHW = 0   */NO FOLLOWING BLOCK                  MIO         1215     A     
 MIO                                                                                       MIO         1216     A     
 MIO                LX2    -BH.LENP    LS = LEN[FBHW]                                      MIO         1217     A     
 MIO                SA3    X2+B4       FBTW = [ABTW+LS]                                    MIO         1218     A     
 MIO                PRNTM  ABB,BTW,X3                                                      MIO         1219     A     
 MIO                LX3    59-BT.AVP                                                       MIO         1220     A     
 MIO                PL     X3,ABB2     IF ^AV[FBTW]  */NOT AVAILABLE SPACE                 MIO         1221     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2844    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                                                                                       MIO         1222     A     
 MIO                LX3    1+BT.AVP-BT.LENP                                                MIO         1223     A     
 MIO                SA2    MX.AVS                                                          MIO         1224     A     
 MIO                SB7    X3          FL = LEN[FBTW]                                      MIO         1225     A     
 MIO                SB3    B3+B7       L = L+FL                                            MIO         1226     A     
 MIO                SB4    B4+B7       ABTW = ABTW+FL                                      MIO         1227     A     
 MIO                SX7    X2+B7                                                           MIO         1228     A     
 MIO                SA1    A3                                                              MIO         1229     A     
 MIO                SA7    A2                                                              MIO         1230     A     
 MIO                CALL   RBB         CALL RBB(FBTW)                                      MIO         1231     A     
 MIO                                                                                       MIO         1232     A     
 MIO      *         STORE NEW BLOCK HEADER AND TRAILER WORDS.                              MIO         1233     A     
 MIO                                                                                       MIO         1234     A     
 MIO       ABB2     SX6    B3                                                              MIO         1235     A     
 MIO                MX1    1                                                               MIO         1236     A     
 MIO                LX6    BH.LENP     LEN[BHW] = LEN                                      MIO         1237     A     
 MIO                LX1    1+BH.AVP    AV[BHW] = 1                                         MIO         1238     A     
 MIO                BX6    X1+X6                                                           MIO         1239     A     
 MIO                SB7    MIN.AB                                                          MIO         1240     A     
 MIO                BX7    X6          BTW = BHW                                           MIO         1241     A     
 MIO                SA6    B2          [FBLK] = BHW                                        MIO         1242     A     
 MIO                PRNTM  ABB,BHW,X6                                                      MIO         1243     A     
 MIO                LT     B7,B3,ABB3  IF MIN.AB < LEN                                     MIO         1244     A     
 MIO                                                                                       MIO         1245     A     
 MIO                SA7    B4          [ABTW] = BTW                                        MIO         1246     A     
 MIO                PRNTM  ABB,BTW,X7                                                      MIO         1247     A     
 MIO                EQ     ABB                                                             MIO         1248     A     
 MIO                                                                                       MIO         1249     A     
 MIO       ABB3     SA3    LAS         OPTR = LAS                                          MIO         1250     A     
 MIO                SX6    B4                                                              MIO         1251     A     
 MIO                LX6    BT.LKFP     LKF[NPTR] = ABTW                                    MIO         1252     A     
 MIO                BX7    X3+X7       LKF[BTW] = LKF[OPTR]                                MIO         1253     A     
 MIO                SA6    A3          LAS = NPTR                                          MIO         1254     A     
 MIO                PRINT  ABB,(* LAS = *Z20),LAS                                          MIO         1255     A     
 MIO                LX3    -BT.LKFP                                                        MIO         1256     A     
 MIO                SX3    X3          LINKF = LKF[OPTR]                                   MIO         1257     A     
 MIO                ZR     X3,ABB4     IF LINKF = 0                                        MIO         1258     A     
 MIO                                                                                       MIO         1259     A     
 MIO                SA1    X3                                                              MIO         1260     A     
 MIO                MX0    -BT.LKBL                                                        MIO         1261     A     
 MIO                LX0    BT.LKBP                                                         MIO         1262     A     
 MIO                BX2    X0*X1       NWORD = LWORDF                                      MIO         1263     A     
 MIO                LX6    BT.LKBP-BT.LKFP   LKB[NWORDF] = ABTW                            MIO         1264     A     
 MIO                BX6    X2+X6                                                           MIO         1265     A     
 MIO                SA6    A1          [LINKF] = NWORD                                     MIO         1266     A     
 MIO                PRNTM  ABB,BTW,X6                                                      MIO         1267     A     
 MIO       ABB4     SA7    B4          [ABTW] = BTW                                        MIO         1268     A     
 MIO                PRNTM  ABB,BTW,X7                                                      MIO         1269     A     
 MIO                                                                                       MIO         1270     A     
 MIO                EQ     ABB                                                             MIO         1271     A     
 MIO       RBB      TITLE  RBB - REMOVE BLOCK FROM BLK LIST                                MIO         1272     A     
 MIO      **        RBB - REMOVE BLOCK FROM BLK LIST                                       MIO         1273     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2845    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO      *                                                                                MIO         1274     A     
 MIO      *         ENTRY  (X1) = BTW, BLOCK TRAILER WORD                                  MIO         1275     A     
 MIO      *                (A1) = ABTW, ADDRESS OF BLOCK TRAILER WORD                      MIO         1276     A     
 MIO      *                                                                                MIO         1277     A     
 MIO      *         EXIT   BLOCK REMOVED FROM LINKED LIST                                  MIO         1278     A     
 MIO      *                                                                                MIO         1279     A     
 MIO      *         CALLS  NONE.                                                           MIO         1280     A     
 MIO                                                                                       MIO         1281     A     
 MIO       RBB      ROUTINE                                                                MIO         1282     A     
 MIO                SA2    MX.AVS                                                          MIO         1283     A     
 MIO                SB7    MIN.AB                                                          MIO         1284     A     
 MIO                LX1    -BT.LENP                                                        MIO         1285     A     
 MIO                SX6    X1          L = LEN[BTW]                                        MIO         1286     A     
 MIO                SB6    X1                                                              MIO         1287     A     
 MIO                IX7    X2-X6       MX.AVS = MX.AVS - L                                 MIO         1288     A     
 MIO                SA7    A2                                                              MIO         1289     A     
 MIO                LT     B6,B7,RBB   IF L .LT. MIN.AB                                    MIO         1290     A     
 MIO                                                                                       MIO         1291     A     
 MIO                LX1    BT.LENP-BT.LKFP                                                 MIO         1292     A     
 MIO                SB6    X1          LINKF = LKF[BTW]                                    MIO         1293     A     
 MIO                LX1    BT.LKFP-BT.LKBP                                                 MIO         1294     A     
 MIO                SB7    X1          LINKB = LKB[BTW]                                    MIO         1295     A     
 MIO                NZ     B7,RBB1     IF LINKB " 0  */NOT FIRST ENTRY ON LIST             MIO         1296     A     
 MIO                                                                                       MIO         1297     A     
 MIO                SA2    LAS                                                             MIO         1298     A     
 MIO                LX2    -BT.LKFP                                                        MIO         1299     A     
 MIO                SX0    A1                                                              MIO         1300     A     
 MIO                IX0    X0-X2                                                           MIO         1301     A     
 MIO                NZ     X0,RBB      IF ABTW .NE. LKF[LAS]                               MIO         1302     A     
 MIO                                                                                       MIO         1303     A     
 MIO                LX2    BT.LKFP                                                         MIO         1304     A     
 MIO                EQ     RBB2                                                            MIO         1305     A     
 MIO                                                                                       MIO         1306     A     
 MIO       RBB1     SA2    B7          LWORDB = [LINKB]                                    MIO         1307     A     
 MIO                PRNTM  RBB,BTW,X2                                                      MIO         1308     A     
 MIO       RBB2     MX1    -BT.LKFL                                                        MIO         1309     A     
 MIO                SX0    B6                                                              MIO         1310     A     
 MIO                LX1    BT.LKFP                                                         MIO         1311     A     
 MIO                BX2    X1*X2                                                           MIO         1312     A     
 MIO                LX0    BT.LKFP     LKF[LWORDB] = LINKF                                 MIO         1313     A     
 MIO                BX6    X0+X2                                                           MIO         1314     A     
 MIO                SA6    A2          [LINKB] = LWORDB                                    MIO         1315     A     
 MIO                PRNTM  RBB,BTW,X6                                                      MIO         1316     A     
 MIO                ZR     B6,RBB      IF LINKF = 0  */LAST ENTRY ON LIST                  MIO         1317     A     
 MIO                                                                                       MIO         1318     A     
 MIO                SA2    B6          LWORDF = [LINKF]                                    MIO         1319     A     
 MIO                PRNTM  RBB,BTW,X2                                                      MIO         1320     A     
 MIO                LX1    -BT.LKFP+BT.LKBP                                                MIO         1321     A     
 MIO                SX0    B7                                                              MIO         1322     A     
 MIO                BX2    X1*X2                                                           MIO         1323     A     
 MIO                LX0    BT.LKBP     LKB[LWORDF] = LINKB                                 MIO         1324     A     
 MIO                BX7    X0+X2                                                           MIO         1325     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2846    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                SA7    A2          [LINKF] = LWORDF                                    MIO         1326     A     
 MIO                PRNTM  RBB,BTW,X7                                                      MIO         1327     A     
 MIO                EQ     RBB                                                             MIO         1328     A     
 MIO       CGB      TITLE  CGB - COLLECT GARBAGE IN BLK                                    MIO         1329     A     
 MIO      **        CGB - COLLECT GARBAGE IN BLK                                           MIO         1330     A     
 MIO      *                                                                                MIO         1331     A     
 MIO      *         ENTRY  NONE                                                            MIO         1332     A     
 MIO      *                                                                                MIO         1333     A     
 MIO      *         EXIT   ALLOCATED BLOCKS MOVED TO A CONTIGUOUS AREA                     MIO         1334     A     
 MIO      *                LIST OF AVAILABLE SPACE UPDATED                                 MIO         1335     A     
 MIO      *                                                                                MIO         1336     A     
 MIO      *         CALLS  MVE=.                                                           MIO         1337     A     
 MIO                                                                                       MIO         1338     A     
 MIO       CGB      ENTRY. **                                                              MIO         1339     A     
 MIO                                                                                       MIO         1340     A     
 MIO                PRINT  CGB,(* --MX.AVS = *Z8),MX.AVS                                   MIO         1341     A     
 MIO                SA3    O.SEQ                                                           MIO         1342     A     
 MIO                SA1    O.BIT                                                           MIO         1343     A     
 MIO                SA2    O.BST                                                           MIO         1344     A     
 MIO                SA4    O.BLK                                                           MIO         1345     A     
 MIO                SB4    X3                                                              MIO         1346     A     
 MIO                SB2    X1+B1                                                           MIO         1347     A     
 MIO                SB3    X2                                                              MIO         1348     A     
 MIO                SX3    X4+B1       TO = O.BLK+1                                        MIO         1349     A     
 MIO                SA4    X4+B1       FROM = O.BLK+1; BHW = [FROM]                        MIO         1350     A     
 MIO                PRNTM  CGB,BHW,X4                                                      MIO         1351     A     
 MIO                SB6    60-BH.LENP                                                      MIO         1352     A     
 MIO                                                                                       MIO         1353     A     
 MIO      *         LOOP TO MOVE BLOCKS TO CONTIGUOUS AREA                                 MIO         1354     A     
 MIO                                                                                       MIO         1355     A     
 MIO       CGB1     ZR     X4,CGB5     IF BHW = 0    */ END OF TABLE                       MIO         1356     A     
 MIO                                                                                       MIO         1357     A     
 MIO                LX6    B6,X4       TBHW = BHW                                          MIO         1358     A     
 MIO                SX2    A4          TFROM = FROM                                        MIO         1359     A     
 MIO                SB5    X6          L = LEN[TBHW]                                       MIO         1360     A     
 MIO                LX6    BH.LENP+59-BH.AVP                                               MIO         1361     A     
 MIO                SA4    A4+B5       FROM = FROM+L; BHW = [FROM]                         MIO         1362     A     
 MIO                PRNTM  CGB,BHW,X4                                                      MIO         1363     A     
 MIO                MI     X6,CGB1     IF AV[TBHW] = 1  */BLOCK AVAILABLE                  MIO         1364     A     
 MIO                                                                                       MIO         1365     A     
 MIO                IX1    X3-X2                                                           MIO         1366     A     
 MIO                NZ     X1,CGB2     IF TFROM " TO */BLOCK MUST BE MOVED                 MIO         1367     A     
 MIO                                                                                       MIO         1368     A     
 MIO                SX3    X3+B5       TO = TO + L                                         MIO         1369     A     
 MIO                EQ     CGB1                                                            MIO         1370     A     
 MIO                                                                                       MIO         1371     A     
 MIO      *         UPDATE *BST*,*BIT* ENTRIES                                             MIO         1372     A     
 MIO                                                                                       MIO         1373     A     
 MIO       CGB2     LX6    1+BH.AVP-BH.BIP                                                 MIO         1374     A     
 MIO                MX1    -RI.FWAL                                                        MIO         1375     A     
 MIO                SA4    X6+B2       RIW = BIT(BI[TBHW]+1)                               MIO         1376     A     
 MIO                PRNTM  CGB,RIW,X4                                                      MIO         1377     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2847    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                LX1    RI.FWAP                                                         MIO         1378     A     
 MIO                BX4    X1*X4                                                           MIO         1379     A     
 MIO                LX6    BH.BIP-BH.BSTP                                                  MIO         1380     A     
 MIO                SX7    X3+B1       NFWA = TO + 1                                       MIO         1381     A     
 MIO                SB7    X6          B = BST[TBHW]                                       MIO         1382     A     
 MIO                LX7    RI.FWAP                                                         MIO         1383     A     
 MIO                BX6    X4+X7       FWA[RIW] = NFWA                                     MIO         1384     A     
 MIO                SA6    A4          BIT(BI[TBHW]+1) = RIW                               MIO         1385     A     
 MIO                PRNTM  CGB,RIW,X6                                                      MIO         1386     A     
 MIO                MI     B7,CGB4     IF B < 0      */NO BST ENTRY                        MIO         1387     A     
 MIO                                                                                       MIO         1388     A     
 MIO                SA4    B3+B7       BAW = BST(B)                                        MIO         1389     A     
 MIO                PRNTM  CGB,BAW,X4                                                      MIO         1390     A     
 MIO                LX7    -RI.FWAP                                                        FCC1498X       5     A     
 MIO                SB6    X2+B1       OFWA = TFROM + 1                                    MIO         1391     A     
 MIO                NE     B4,B6,CGB3  IF O.SEQ " OFWA                                     MIO         1392     A     
 MIO                                                                                       MIO         1393     A     
 MIO                SA7    O.SEQ       O.SEQ = NFWA                                        MIO         1394     A     
 MIO                                                                                       MIO         1395     A     
 MIO       CGB3     LX1    BA.FWAP-RI.FWAP                                                 MIO         1396     A     
 MIO                BX4    X1*X4                                                           MIO         1397     A     
 MIO                LX7    BA.FWAP-RI.FWAP                                                 MIO         1398          I
          -FCC1498X 
 MIO                LX7    BA.FWAP                                                         FCC1498X       6     A     
 MIO                BX6    X4+X7       FWA[BAW] = NFWA                                     MIO         1399     A     
 MIO                PRNTM  CGB,BAW,X6                                                      MIO         1400     A     
 MIO                SA6    A4          BST(B) = BAW                                        MIO         1401     A     
 MIO                                                                                       MIO         1402     A     
 MIO      *         UPDATE BLOCK TRAILER WORD AND MOVE BLOCK.                              MIO         1403     A     
 MIO                                                                                       MIO         1404     A     
 MIO       CGB4     SX7    B5                                                              MIO         1405     A     
 MIO                LX7    BT.LENP     LEN[BTW] = L                                        MIO         1406     A     
 MIO                SB7    B5-1                                                            MIO         1407     A     
 MIO                SA7    X2+B7       [TFROM+L-1] = BTW                                   MIO         1408     A     
 MIO                PRNTM  CGB,BTW,X7                                                      MIO         1409     A     
 MIO                SX1    B5                                                              MIO         1410     A     
 MIO                MOVE   X1,X2,X3    MOVE(L,TFROM,TO)                                    MIO         1411     A     
 MIO                SA4    A4-B1       FROM = FROM+L; BHW = [FROM]                         MIO         1412     A     
 MIO                SX3    A7+B1       TO = TO+L                                           MIO         1413     A     
 MIO                SB6    60-BH.LENP                                                      MIO         1414     A     
 MIO                EQ     CGB1                                                            MIO         1415     A     
 MIO                                                                                       MIO         1416     A     
 MIO      *         UPDATE LIST OF AVAILABLE SPACE.                                        MIO         1417     A     
 MIO                                                                                       MIO         1418     A     
 MIO       CGB5     SA2    O.BLK                                                           MIO         1419     A     
 MIO                SA4    L.BLK                                                           MIO         1420     A     
 MIO                SB4    X4-1                                                            MIO         1421     A     
 MIO                SX4    X2+B4                                                           MIO         1422     A     
 MIO                IX7    X4-X3       L = FROM-TO                                         MIO         1423     A     
 MIO                MX6    0                                                               MIO         1424     A     
 MIO                SA6    X4          BLK(L.BLK) = 0                                      MIO         1425     A     
 MIO                SA6    MX.AVS      MX.AVS = L    */MAX AVAILABLE SPACE IN BLK          MIO         1426     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2848    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                SB2    X3                                                              MIO         1427     A     
 MIO                SB3    X7                                                              MIO         1428     A     
 MIO                PRINT  CGB,(* MAX SPACE AFTER CGB = *Z8),B3                            MIO         1429     A     
 MIO                SA6    LAS         LAS = 0                                             MIO         1430     A     
 MIO                ZR     X7,CGB      IF L = 0  */ NO FREE SPACE                          FCCA509X       7     A     
 MIO                CALL   ABB         CALL ABB(TO,L)                                      MIO         1431     A     
 MIO                EQ     CGB                                                             MIO         1432     A     
 MIO                                                                                       MIO         1433     A     
 MIO       #ECS     IFNE   CT.ECS,0                                                        MIO         1434     A     
 MIO       ASL      TITLE  ASL - ALLOCATE SPACE IN LCM                                     MIO         1435     A     
 MIO      **        ASL - ALLOCATE SPACE IN LCM                                            MIO         1436     A     
 MIO      *                                                                                MIO         1437     A     
 MIO      *         ENTRY  (B2) = FBLK, FWA OF LCM BLOCK                                   MIO         1438     A     
 MIO      *                (B5) = NL, NEW LENGTH REQUESTED                                 MIO         1439     A     
 MIO      *                                                                                MIO         1440     A     
 MIO      *         EXIT   (X2) = FWA, FWA OF BLOCK ALLOCATED                              MIO         1441     A     
 MIO      *                (X7) = L, LENGTH OF BLOCK ALLOCATED                             MIO         1442     A     
 MIO      *                                                                                MIO         1443     A     
 MIO      *         CALLS  ABL,CGL,RBL.                                                    MIO         1444     A     
 MIO                                                                                       MIO         1445     A     
 MIO       ASL      ROUTINE                                                                MIO         1446     A     
 MIO                                                                                       MIO         1447          I
          -FCC0415
 MIO                ZR     B2,ASL1     IF FBLK = 0   */NO SPACE ALLOCATED                  MIO         1448     A     
 MIO                                                                                       MIO         1449     A     
 MIO      *         CHECK IF BLOCK CAN BE REWRITTEN IN SAME SPACE                          MIO         1450     A     
 MIO                                                                                       MIO         1451     A     
 MIO                SX0    B2                                                              MIO         1452     A     
 MIO                RX1    X0,ASLA     BHW = [FLCM]                                        MIO         1453     A     
 MIO                PRNTM  ASL,BHW,X1                                                      MIO         1454     A     
 MIO                LX1    -BH.LENP                                                        MIO         1455     A     
 MIO                SB3    X1          OL = LEN[BHW]                                       MIO         1456     A     
 MIO                LE     B5,B3,ASL7  IF NL .LE. OL */REUSE BLOCK                         MIO         1457     A     
 MIO                                                                                       MIO         1458     A     
 MIO                CALL   ABL         CALL ABL(FBLK,OL)                                   MIO         1459     A     
 MIO                                                                                       MIO         1460     A     
 MIO      *         CHECK IF SPACE AVAILABLE AT O.LCM                                      MIO         1461     A     
 MIO                                                                                       MIO         1462     A     
 MIO       ASL1     SA2    O.LCM       FBLK = O.LCM                                        MIO         1463     A     
 MIO                SA1    LCM.FL                                                          MIO         1464     A     
 MIO                SA3    MAX.LCM                                                         MIO         1465     A     
 MIO                SB5    B5+LCM.XL   NL = NL + LCM.XL  */EXTRA LENGTH                    MIO         1466     A     
 MIO                PRINT  ASL,(* --O.LCM,LCM.FL,MAX.LCM,LEN OF BLOCK = *4Z8),(X2,         MIO         1467     A     
 MIO      ,X1,X3,B5)                                                                       MIO         1468     A     
 MIO                SX6    X2+B5       L = O.LCM + NL                                      MIO         1469     A     
 MIO                SX4    X1+B5       FL = LCM.FL + NL                                    MIO         1470     A     
 MIO                IX7    X6-X1                                                           MIO         1471     A     
 MIO                MI     X7,ASL2     IF L .LT. LCM.FL                                    MIO         1472     A     
 MIO                                                                                       MIO         1473     A     
 MIO                SX7    X4+10007B   NFL = FL + 10007B                                   MIO         1474     A     
 MIO                IX4    X7-X3                                                           MIO         1475     A     
 MIO                PL     X4,ASL3     IF NFL . GE. MAX.LCM                                MIO         1476     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2849    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                                                                                       MIO         1477     A     
 MIO      *         REQUEST MORE STORAGE                                                   MIO         1478     A     
 MIO                                                                                       MIO         1479     A     
 MIO                AX7    9                                                               MIO         1480     A     
 MIO                LX7    39                                                              MIO         1481     A     
 MIO                SA7    ASLA+1                                                          MIO         1482     A     
 MIO                MEMORY LCM,ASLA+1,R                                                    MIO         1483     A     
 MIO                SA3    ASLA+1                                                          MIO         1484     A     
 MIO                BX7    X3                                                              MIO         1485     A     
 MIO                AX7    30                                                              MIO         1486     A     
 MIO                SA7    LCM.FL                                                          MIO         1487     A     
 MIO                PRINT  ASL,(* LCM REQUEST - LCM.FL = *Z8),X7                           MIO         1488     A     
 MIO                                                                                       MIO         1489     A     
 MIO       ASL2     SA6    A2          O.LCM = L                                           MIO         1490     A     
 MIO                SX7    B5                                                              MIO         1491     A     
 MIO                EQ     ASL                                                             MIO         1492     A     
 MIO                                                                                       MIO         1493     A     
 MIO       ASL3     SA2    MX.AVL                                                          MIO         1494     A     
 MIO                AX1    2           L = LCM.FL / 4                                      MIO         1495     A     
 MIO                SB4    X2                                                              MIO         1496     A     
 MIO                GT     B5,B4,ASL8  IF NL > MX.AVL                                      MIO         1497     A     
 MIO                                                                                       MIO         1498     A     
 MIO                IX6    X1-X2                                                           MIO         1499     A     
 MIO                MI     X6,ASL5     IF MX.AVL > L */GARBAGE COLLECT                     MIO         1500     A     
 MIO                                                                                       MIO         1501     A     
 MIO      *         SEARCH AVAILABLE LIST                                                  MIO         1502     A     
 MIO                                                                                       MIO         1503     A     
 MIO                SA1    LAL         BTW = LAL                                           MIO         1504     A     
 MIO                PRINT  ASL,(* --LAL = *Z20),LAL                                        MIO         1505     A     
 MIO                LX1    -BT.LKFP    I = LKF[BTW]                                        MIO         1506     A     
 MIO                SX0    X1                                                              MIO         1507     A     
 MIO                ZR     X0,ASL8     IF LAL = 0                                          MIO         1508     A     
 MIO                                                                                       MIO         1509     A     
 MIO                RX2    X0,ASLA     BTW = [I]                                           MIO         1510     A     
 MIO                PRNTM  ASL,BTW,X2                                                      MIO         1511     A     
 MIO                                                                                       MIO         1512     A     
 MIO       ASL4     LX2    -BT.LENP                                                        MIO         1513     A     
 MIO                SB3    X2          L = LEN[BTW]                                        MIO         1514     A     
 MIO                LX2    BT.LENP-BT.LKFP                                                 MIO         1515     A     
 MIO                LE     B5,B3,ASL6  IF NL @ L                                           MIO         1516     A     
 MIO                                                                                       MIO         1517     A     
 MIO                SB6    X2          I = LKF[BTW]                                        MIO         1518     A     
 MIO                SX0    X2                                                              MIO         1519     A     
 MIO                RX2    X0,ASLA     BTW = [I]                                           MIO         1520     A     
 MIO                PRNTM  ASL,BTW,X2                                                      MIO         1521     A     
 MIO                NZ     B6,ASL4                                                         MIO         1522     A     
 MIO                EQ     ASL8                                                            MIO         1523     A     
 MIO                                                                                       MIO         1524          I
          -FCC0415
 MIO                                                                                       MIO         1525     A     
 MIO       ASL5     SX6    B5                                                              MIO         1526     A     
 MIO                SA6    ASLA                                                            MIO         1527     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2850    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                CALL   CGL         CALL GCL                                            MIO         1528     A     
 MIO                SA1    ASLA                                                            MIO         1529     A     
 MIO                SB5    X1                                                              MIO         1530          I
          -FCC0391
 MIO                SB5    X1-LCM.XL   NL = NL - LCM.XL                                    FCC0391       10     A     
 MIO                EQ     ASL1                                                            MIO         1531     A     
 MIO                                                                                       MIO         1532     A     
 MIO      *         REMOVE BLOCK FROM AVAILABLE LIST                                       MIO         1533     A     
 MIO                                                                                       MIO         1534     A     
 MIO       ASL6     LX2    BT.LKFP                                                         MIO         1535     A     
 MIO                BX1    X2                                                              MIO         1536     A     
 MIO                SB4    B1-B3                                                           MIO         1537     A     
 MIO                SB2    X0+B4                                                           MIO         1538     A     
 MIO                CALL   RBL         CALL RBL(BTW)                                       MIO         1539     A     
 MIO                SX2    B2                                                              MIO         1540     A     
 MIO                SX7    B3                                                              MIO         1541     A     
 MIO                EQ     ASL                                                             MIO         1542     A     
 MIO                                                                                       MIO         1543     A     
 MIO       ASL7     SX2    B2          FWA = FBLK                                          MIO         1544     A     
 MIO                SX7    B3          L = OL                                              MIO         1545     A     
 MIO                EQ     ASL                                                             MIO         1546     A     
 MIO                                                                                       MIO         1547     A     
 MIO       ASL8     SX2    -1                                                              MIO         1548     A     
 MIO                EQ     ASL                                                             MIO         1549     A     
 MIO                                                                                       MIO         1550     A     
 MIO       ASLA     BSS    2                                                               MIO         1551     A     
 MIO       ABL      TITLE  ABL - ADD BLOCK TO LCM LIST                                     MIO         1552     A     
 MIO      **        ABL - ADD BLOCK TO LCM LIST                                            MIO         1553     A     
 MIO      *                                                                                MIO         1554     A     
 MIO      *         ENTRY  (B2) = FBLK, FWA OF BLOCK (ADDRESS OF BHW)                      MIO         1555     A     
 MIO      *                (B3) = L, LENGTH OF BLOCK (INCLUDING BHW AND BTW)               MIO         1556     A     
 MIO      *                                                                                MIO         1557     A     
 MIO      *         EXIT   BLOCK ADDED TO LINKED LIST                                      MIO         1558     A     
 MIO      *                                                                                MIO         1559     A     
 MIO      *         CALLS  RBL.                                                            MIO         1560     A     
 MIO                                                                                       MIO         1561     A     
 MIO       ABL      ROUTINE                                                                MIO         1562     A     
 MIO                                                                                       MIO         1563          I
          -FCC0415
 MIO                SA1    MX.AVL                                                          MIO         1564     A     
 MIO                SB7    B3-B1                                                           MIO         1565     A     
 MIO                SB4    B2+B7       ABTW = FBLK+L-1                                     MIO         1566     A     
 MIO                SX6    X1+B3       MX.AVL = MX.AVL + LEN                               MIO         1567     A     
 MIO                SA6    A1+                                                             MIO         1568     A     
 MIO                                                                                       MIO         1569     A     
 MIO      *         GET BLOCK TRAILER WORDS FOR PRECEDING AND FOLLOWING BLOCKS.            MIO         1570     A     
 MIO                                                                                       MIO         1571     A     
 MIO                SX0    B2-B1                                                           MIO         1572     A     
 MIO                MI     X0,ABL1     IF APBTW < 0  */NO PRECEEDING BLOCK                 MIO         1573     A     
 MIO                                                                                       MIO         1574     A     
 MIO                RX1    X0,ABLA     PBTW = [FBLK-1]                                     MIO         1575     A     
 MIO                PRNTM  ABL,BTW,X1                                                      MIO         1576     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2851    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                                                                                       MIO         1577     A     
 MIO      *         COMBINE ADJACENT AVAILABLE BLOCKS                                      MIO         1578     A     
 MIO                                                                                       MIO         1579     A     
 MIO                LX1    59-BT.AVP                                                       MIO         1580     A     
 MIO                PL     X1,ABL1     IF ^AV[PBTW]  */NOT AVAILABLE SPACE                 MIO         1581     A     
 MIO                                                                                       MIO         1582     A     
 MIO                LX1    1+BT.AVP-BT.LENP                                                MIO         1583     A     
 MIO                SB7    X1          PL = LEN[PBTW]                                      MIO         1584     A     
 MIO                SA2    MX.AVL                                                          MIO         1585     A     
 MIO                SB2    B2-B7       FBLK = FBLK-PL                                      MIO         1586     A     
 MIO                SB3    B3+B7       L = L + PL                                          MIO         1587     A     
 MIO                SX7    X2+B7                                                           MIO         1588     A     
 MIO                LX1    BT.LENP                                                         MIO         1589     A     
 MIO                SA7    A2                                                              MIO         1590     A     
 MIO                CALL   RBL         CALL RBL(PBTW)                                      MIO         1591     A     
 MIO                                                                                       MIO         1592     A     
 MIO       ABL1     SA1    O.LCM                                                           MIO         1593     A     
 MIO                SX0    B4+B1                                                           MIO         1594     A     
 MIO                IX1    X1-X0                                                           MIO         1595     A     
 MIO                ZR     X1,ABL2     IF AFBHW = 0  */NO FOLLOWING BLOCK                  MIO         1596     A     
 MIO                                                                                       MIO         1597     A     
 MIO                RX2    X0,ABLB     FBHW = [ABTW+1]                                     MIO         1598     A     
 MIO                LX2    -BH.LENP    LS = LEN[FBHW]                                      MIO         1599     A     
 MIO                SX0    X2+B4                                                           MIO         1600     A     
 MIO                RX3    X0,ABLB     FBTW = [ABTW+LS]                                    MIO         1601     A     
 MIO                PRNTM  ABL,BTW,X3                                                      MIO         1602     A     
 MIO                LX3    59-BT.AVP                                                       MIO         1603     A     
 MIO                PL     X3,ABL2     IF ^AV[FBTW]  */NOT AVAILABLE SPACE                 MIO         1604     A     
 MIO                                                                                       MIO         1605     A     
 MIO                LX3    1+BT.AVP-BT.LENP                                                MIO         1606     A     
 MIO                SB7    X3          FL = LEN[FBTW]                                      MIO         1607     A     
 MIO                SA2    MX.AVL                                                          MIO         1608     A     
 MIO                SB3    B3+B7       L = L+FL                                            MIO         1609     A     
 MIO                SB4    B4+B7       ABTW = ABTW+FL                                      MIO         1610     A     
 MIO                BX1    X3                                                              MIO         1611     A     
 MIO                SX7    X2+B7                                                           MIO         1612     A     
 MIO                LX1    BT.LENP                                                         MIO         1613     A     
 MIO                SA7    A2                                                              MIO         1614     A     
 MIO                CALL   RBL         CALL RBL(FBTW)                                      MIO         1615     A     
 MIO                                                                                       MIO         1616     A     
 MIO      *         STORE NEW BLOCK HEADER AND TRAILER WORDS.                              MIO         1617     A     
 MIO                                                                                       MIO         1618     A     
 MIO       ABL2     SX6    B3                                                              MIO         1619     A     
 MIO                MX1    1                                                               MIO         1620     A     
 MIO                LX6    BH.LENP     LEN[BHW] = LEN                                      MIO         1621     A     
 MIO                LX1    1+BH.AVP    AV[BHW] = 1                                         MIO         1622     A     
 MIO                BX6    X1+X6                                                           MIO         1623     A     
 MIO                SB7    MIN.AL                                                          MIO         1624     A     
 MIO                BX7    X6          BTW = BHW                                           MIO         1625     A     
 MIO                SX0    B2                                                              MIO         1626     A     
 MIO                WX6    X0,ABLA     [FBLK] = BHW                                        MIO         1627     A     
 MIO                PRNTM  ABL,BHW,X6                                                      MIO         1628     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2852    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                LT     B7,B3,ABL3  IF MIN.AL < LEN                                     MIO         1629     A     
 MIO                                                                                       MIO         1630     A     
 MIO                SX0    B4                                                              MIO         1631     A     
 MIO                WX7    X0,ABLA     [ABTW] = BTW                                        MIO         1632     A     
 MIO                PRNTM  ABL,BTW,X7                                                      MIO         1633     A     
 MIO                EQ     ABL                                                             MIO         1634     A     
 MIO                                                                                       MIO         1635     A     
 MIO       ABL3     SA3    LAL         OPTR = LAL                                          MIO         1636     A     
 MIO                SX6    B4                                                              MIO         1637     A     
 MIO                LX6    BT.LKFP     LKF[NPTR] = ABTW                                    MIO         1638     A     
 MIO                BX7    X3+X7       LKF[BTW] = LKF[OPTR]                                MIO         1639     A     
 MIO                SA6    A3          LAS = NPTR                                          MIO         1640     A     
 MIO                PRINT  ABL,(* LAL = *Z20),LAL                                          MIO         1641     A     
 MIO                LX3    -BT.LKFP                                                        MIO         1642     A     
 MIO                SX3    X3          LINKF = LKF[OPTR]                                   MIO         1643     A     
 MIO                ZR     X3,ABL4     IF LINK = 0                                         MIO         1644     A     
 MIO                                                                                       MIO         1645     A     
 MIO                SX0    X3                                                              MIO         1646     A     
 MIO                RX1    X0,ABLA     LWORDF = [LINKF]                                    MIO         1647     A     
 MIO                MX3    -BT.LKBL                                                        MIO         1648     A     
 MIO                LX3    BT.LKBP                                                         MIO         1649     A     
 MIO                BX2    X3*X1       NWORD = LWORDF                                      MIO         1650     A     
 MIO                LX6    BT.LKBP-BT.LKFP   LKB[NWORD] = ABTW                             MIO         1651     A     
 MIO                BX6    X2+X6                                                           MIO         1652     A     
 MIO                WX6    X0,ABLA     [LINKF] = NWORD                                     MIO         1653     A     
 MIO                PRNTM  ABL,BTW,X6                                                      MIO         1654     A     
 MIO                                                                                       MIO         1655     A     
 MIO       ABL4     SX0    B4                                                              MIO         1656     A     
 MIO                WX7    X0,ABLA     [ABTW] = BTW                                        MIO         1657     A     
 MIO                PRNTM  ABL,BTW,X7                                                      MIO         1658     A     
 MIO                EQ     ABL                                                             MIO         1659     A     
 MIO                                                                                       MIO         1660     A     
 MIO       ABLA     BSS    1                                                               MIO         1661     A     
 MIO       ABLB     BSS    1                                                               MIO         1662     A     
 MIO       RBL      TITLE  RBL - REMOVE BLOCK FROM LCM LIST                                MIO         1663     A     
 MIO      **        RBL - REMOVE  BLOCK FROM LCM LIST                                      MIO         1664     A     
 MIO      *                                                                                MIO         1665     A     
 MIO      *         ENTRY  (X1) = BTW, BLOCK TRAILER WORD                                  MIO         1666     A     
 MIO      *                                                                                MIO         1667     A     
 MIO      *         EXIT   BLOCK REMOVED FROM LINKED LIST                                  MIO         1668     A     
 MIO      *                                                                                MIO         1669          I
          -FCC0415
 MIO      *         CALLS  NONE.                                                           MIO         1670          I
          -FCC0415
 MIO                                                                                       MIO         1671     A     
 MIO       RBL      ROUTINE                                                                MIO         1672     A     
 MIO                                                                                       MIO         1673          I
          -FCC0415
 MIO                SA2    MX.AVL                                                          MIO         1674     A     
 MIO                SB7    MIN.AL                                                          MIO         1675     A     
 MIO                LX1    -BT.LENP                                                        MIO         1676     A     
 MIO                SX6    X1          L = LEN[BTW]                                        MIO         1677     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2853    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                SB6    X1                                                              MIO         1678     A     
 MIO                IX7    X2-X6       MX.AVL = MX.AVL - L                                 MIO         1679     A     
 MIO                LX1    BT.LENP-BT.LKFP                                                 MIO         1680     A     
 MIO                SA7    A2                                                              MIO         1681     A     
 MIO                LT     B6,B7,RBL   IF L .LT. MIN.AB                                    MIO         1682     A     
 MIO                                                                                       MIO         1683     A     
 MIO                SB6    X1          LINKF = LKF[BTW]                                    MIO         1684     A     
 MIO                LX1    BT.LKFP-BT.LKBP                                                 MIO         1685     A     
 MIO                SB7    X1          LINKB = LKB[BTW]                                    MIO         1686     A     
 MIO                NZ     B7,RBL1     IF LINKB " 0  */NOT FIRST ENTRY ON LIST             MIO         1687     A     
 MIO                                                                                       MIO         1688     A     
 MIO                SA2    LAL                                                             MIO         1689     A     
 MIO                MX4    0                                                               MIO         1690     A     
 MIO                EQ     RBL2                                                            MIO         1691     A     
 MIO                                                                                       MIO         1692     A     
 MIO       RBL1     SX0    B7                                                              MIO         1693     A     
 MIO                MX4    1                                                               MIO         1694     A     
 MIO                RX2    X0,RBLA     LWORDB = [LINKB]                                    MIO         1695     A     
 MIO                PRNTM  RBL,BTW,X2                                                      MIO         1696     A     
 MIO       RBL2     MX1    -BT.LKFL                                                        MIO         1697     A     
 MIO                SX7    B6                                                              MIO         1698     A     
 MIO                LX1    BT.LKFP                                                         MIO         1699     A     
 MIO                BX2    X1*X2                                                           MIO         1700     A     
 MIO                LX7    BT.LKFP     LKF[LWORDB] = LINKF                                 MIO         1701     A     
 MIO                BX6    X2+X7                                                           MIO         1702     A     
 MIO                PL     X4,RBL3                                                         MIO         1703     A     
 MIO                                                                                       MIO         1704     A     
 MIO                WX6    X0,RBLA     [LINKB] = LWORDB                                    MIO         1705     A     
 MIO                PRNTM  RBL,BTW,X6                                                      MIO         1706     A     
 MIO                EQ     RBL4                                                            MIO         1707     A     
 MIO                                                                                       MIO         1708     A     
 MIO       RBL3     SA6    LAL                                                             MIO         1709     A     
 MIO                PRINT  RBL,(* LAL = *Z20),LAL                                          MIO         1710     A     
 MIO                                                                                       MIO         1711     A     
 MIO       RBL4     BSS    0                                                               MIO         1712          I
          -FCC0415
 MIO                ZR     B6,RBL      IF LINKF = 0  */LAST ENTRY ON LIST                  MIO         1713          I
          -FCC0415
 MIO                                                                                       MIO         1714          I
          -FCC0415
 MIO       RBL4     ZR     B6,RBL      IF LINKF = 0  */ LAST ENTRY ON LIST                 FCC0415       45     A     
 MIO                LX1    -BT.LKFP+BT.LKBP                                                MIO         1715     A     
 MIO                SX0    B6                                                              MIO         1716     A     
 MIO                RX2    X0,RBLA     LWORDF = [LINKF]                                    MIO         1717     A     
 MIO                PRNTM  RBL,BTW,X2                                                      MIO         1718     A     
 MIO                SX6    B7                                                              MIO         1719     A     
 MIO                BX2    X1*X2                                                           MIO         1720     A     
 MIO                LX6    BT.LKBP     LKB[LWORDF] = LINKB                                 MIO         1721     A     
 MIO                BX7    X6+X2                                                           MIO         1722     A     
 MIO                WX7    X0,RBLA     [LINKF] = LWORDF                                    MIO         1723     A     
 MIO                PRNTM  RBL,BTW,X7                                                      MIO         1724     A     
 MIO                EQ     RBL                                                             MIO         1725     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2854    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                                                                                       MIO         1726     A     
 MIO       RBLA     BSS    1                                                               MIO         1727     A     
 MIO       CGL      TITLE  CGL - COLLECT GARBAGE IN LCM                                    MIO         1728     A     
 MIO      **        CGL - COLLECT GARBAGE IN LCM                                           MIO         1729     A     
 MIO      *                                                                                MIO         1730     A     
 MIO      *         ENTRY  NONE                                                            MIO         1731     A     
 MIO      *                                                                                MIO         1732     A     
 MIO      *         EXIT   ALLOCATED BLOCKS MOVED TO A CONTIGUOUS AREA                     MIO         1733     A     
 MIO      *                LIST OF AVAILABLE SPACE UPDATED                                 MIO         1734     A     
 MIO      *                                                                                MIO         1735          I
          -FCC0415
 MIO      *                                                                                MIO         1736     A     
 MIO      *         CALLS  MVL.                                                            MIO         1737     A     
 MIO                                                                                       MIO         1738     A     
 MIO       CGL      ROUTINE                                                                MIO         1739     A     
 MIO                                                                                       MIO         1740          I
          -FCC0415
 MIO                PRINT  CGL,(* --MX.AVL " *Z8),MX.AVL                                   MIO         1741          I
          -FCC0415
 MIO                PRINT  CGL,(* -- MX.AVL =*Z8),MX.AVL                                   FCC0415       46     A     
 MIO                SA3    O.LCM                                                           MIO         1742     A     
 MIO                SA1    O.BIT                                                           MIO         1743     A     
 MIO                MX6    0                                                               MIO         1744     A     
 MIO                BX0    X3                                                              MIO         1745     A     
 MIO                WX6    X0,CGLA     LCM(O.LCM) = 0 */LOOP TERMINATOR                    MIO         1746     A     
 MIO                SB2    X1+B1                                                           MIO         1747     A     
 MIO                SB6    60-BH.LENP                                                      MIO         1748     A     
 MIO                MX0    0           FROM = 0                                            MIO         1749     A     
 MIO                SX3    B0          TO = 0                                              MIO         1750     A     
 MIO                RX4    X0,CGLA     BHW = LCM(FROM)                                     MIO         1751     A     
 MIO                PRNTM  CGL,BHW,X4                                                      MIO         1752     A     
 MIO                                                                                       MIO         1753     A     
 MIO      *         LOOP TO MOVE BLOCKS TO CONTIGUOUS AREA.                                MIO         1754     A     
 MIO                                                                                       MIO         1755     A     
 MIO       CGL1     ZR     X4,CGL5     IF BHW = 0    */END OF LCM                          MIO         1756     A     
 MIO                                                                                       MIO         1757     A     
 MIO                LX6    B6,X4       TBHW = BHW                                          MIO         1758     A     
 MIO                BX2    X0          TFROM = FROM                                        MIO         1759     A     
 MIO                SX1    X6          L = LEN[TBHW]                                       MIO         1760     A     
 MIO                LX6    BH.LENP+59-BH.AVP                                               MIO         1761     A     
 MIO                IX0    X0+X1       FROM = FROM + L                                     MIO         1762     A     
 MIO                RX4    X0,CGLA     BHW = LCM(FROM)                                     MIO         1763     A     
 MIO                PRNTM  CGL,BHW,X4                                                      MIO         1764     A     
 MIO                MI     X6,CGL1     IF AV[TBHW]     */BLOCK AVAILABLE                   MIO         1765     A     
 MIO                                                                                       MIO         1766     A     
 MIO                SB5    X1-2        LEN = L - 2                                         MIO         1767     A     
 MIO                IX7    X3-X2                                                           MIO         1768     A     
 MIO                NZ     X7,CGL2     IF TFROM " TO  */BLOCK MUST BE MOVED                MIO         1769     A     
 MIO                                                                                       MIO         1770     A     
 MIO                IX3    X1+X3       TO = TO + L                                         MIO         1771     A     
 MIO                EQ     CGL1                                                            MIO         1772     A     
 MIO                                                                                       MIO         1773     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2855    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO      *         UPDATE *BIT* ENTRY AND MOVE BLOCK HEADER WORD.                         MIO         1774     A     
 MIO                                                                                       MIO         1775     A     
 MIO       CGL2     BX7    X4                                                              MIO         1776     A     
 MIO                LX6    1+BH.AVP-BH.BIP                                                 MIO         1777     A     
 MIO                MX1    -RI.LCML                                                        MIO         1778     A     
 MIO                SA4    X6+B2       RIW = BIT(BI[TBHW]+1)                               MIO         1779     A     
 MIO                PRNTM  CGL,RIW,X4                                                      MIO         1780     A     
 MIO                SA7    CGLA                                                            MIO         1781     A     
 MIO                LX1    RI.LCMP                                                         MIO         1782     A     
 MIO                SX7    X3          NLCM = TO                                           MIO         1783     A     
 MIO                BX4    X1*X4                                                           MIO         1784     A     
 MIO                LX7    RI.LCMP                                                         MIO         1785     A     
 MIO                BX7    X4+X7       RA[RIW] = NLCM                                      MIO         1786     A     
 MIO                SA7    A4          BIT(BI[TBHW+1]) = RIW                               MIO         1787     A     
 MIO                PRNTM  CGL,RIW,X7                                                      MIO         1788     A     
 MIO                BX0    X3                                                              MIO         1789     A     
 MIO                LX6    BH.BIP                                                          MIO         1790     A     
 MIO                WX6    X0,CGLB     LCM(TO) = BHW                                       MIO         1791     A     
 MIO                PRNTM  CGL,BHW,X6                                                      MIO         1792     A     
 MIO                                                                                       MIO         1793     A     
 MIO      *         MOVE BLOCK                                                             MIO         1794     A     
 MIO                                                                                       MIO         1795     A     
 MIO                SX1    B5                                                              MIO         1796     A     
 MIO                SX2    X2+B1       TFROM = TFROM+1                                     MIO         1797     A     
 MIO                SX3    X3+B1       TO = TO+1                                           MIO         1798     A     
 MIO                CALL   MVL         MOVE(LEN,TFROM,TO)                                  MIO         1799     A     
 MIO                                                                                       MIO         1800     A     
 MIO      *         MOVE BLOCK TRAILER WORD.                                               MIO         1801     A     
 MIO                                                                                       MIO         1802     A     
 MIO                SB4    B1+B1                                                           MIO         1803     A     
 MIO                SX7    X1+B4                                                           MIO         1804     A     
 MIO                BX0    X3          TFROM = TFROM+L; TO = TO+L                          MIO         1805     A     
 MIO                LX7    BT.LENP     LEN[BTW] = L                                        MIO         1806     A     
 MIO                WX7    X0,CGLB     LCM(TO) = BTW                                       MIO         1807     A     
 MIO                PRNTM  CGL,BTW,X7                                                      MIO         1808     A     
 MIO                SA4    CGLA                                                            MIO         1809     A     
 MIO                SB6    60-BH.LENP                                                      MIO         1810     A     
 MIO                SX0    X2+B1       FROM = TFROM+1                                      MIO         1811     A     
 MIO                SX3    X3+B1       TO = TO+1                                           MIO         1812     A     
 MIO                EQ     CGL1                                                            MIO         1813     A     
 MIO                                                                                       MIO         1814     A     
 MIO      *         UPDATE O.LCM AND LIST OF AVAILABLE SPACE.                              MIO         1815     A     
 MIO                                                                                       MIO         1816     A     
 MIO       CGL5     MX7    0                                                               MIO         1817     A     
 MIO                BX6    X3                                                              MIO         1818     A     
 MIO                SA7    LAL         LAL = 0                                             MIO         1819     A     
 MIO                SA6    O.LCM       O.LCM = TO                                          MIO         1820     A     
 MIO                PRINT  CGL,(* --O.LCM = *Z8),O.LCM                                     MIO         1821     A     
 MIO                SA7    MX.AVL      MX.AVL = 0                                          MIO         1822     A     
 MIO                EQ     CGL                                                             MIO         1823     A     
 MIO                                                                                       MIO         1824     A     
 MIO       CGLA     BSS    1                                                               MIO         1825     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2856    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO       CGLB     BSS    1                                                               MIO         1826     A     
 MIO       MVL      TITLE  MVL - MOVE BLOCK OF LCM DATA                                    MIO         1827     A     
 MIO      **        MVL - MOVE BLOCK OF LCM DATA                                           MIO         1828     A     
 MIO      *                                                                                MIO         1829     A     
 MIO      *         ENTRY  (X1) = WORD COUNT                                               MIO         1830     A     
 MIO      *                (X2) = SOURCE FWA                                               MIO         1831     A     
 MIO      *                (X3) = DESTINATION FWA                                          MIO         1832     A     
 MIO                                                                                       MIO         1833     A     
 MIO       MVL      ROUTINE                                                                MIO         1834     A     
 MIO                SB7    X1                                                              MIO         1835     A     
 MIO                IX6    X2-X3                                                           MIO         1836     A     
 MIO                SB6    100B        MOVE 100B WORDS AT A TIME.                          MIO         1837     A     
 MIO                SA0    =XB=FBV                                                         MIO         1838     A     
 MIO                LE     B7,B6,MVL2  IF ONLY ONE MOVE NEEDED.                            MIO         1839     A     
 MIO                                                                                       MIO         1840     A     
 MIO                SB5    B6                                                              MIO         1841     A     
 MIO                PL     X6,MVL1     IF MOVE DOWN.                                       MIO         1842     A     
 MIO                                                                                       MIO         1843     A     
 MIO                SB5    B7-B6                                                           MIO         1844     A     
 MIO                SX2    X2+B5       PREPARE FOR UPWARD MOVE.                            MIO         1845     A     
 MIO                SX3    X3+B5                                                           MIO         1846     A     
 MIO                SB5    -B6                                                             MIO         1847     A     
 MIO                                                                                       MIO         1848     A     
 MIO       MVL1     SX0    X2          READ BLOCK.                                         MIO         1849     A     
 MIO                                                                                       MIO         1850          I
          -F7540FT
 MIO       #MD      IFLT   CT.CPU,75                                                       MIO         1851          I
          -S3143FC  -F7540FT
 MIO       #MD      IFLT   CT.CPU,76                                                       S3143FC       55          I
          -F7540FT
 MIO      +         RE     B6                                                              MIO         1852          I
          -F7540FT
 MIO      -         EQ     ERRECSR                                                         MIO         1853          I
          -F7540FT
 MIO       #MD      ELSE                                                                   MIO         1854          I
          -F7540FT
 MIO                RL     B6                                                              MIO         1855          I
          -F7540FT
 MIO       #MD      ENDIF                                                                  MIO         1856          I
          -F7540FT
 MIO                                                                                       F7540FT       64     A     
 MIO                RL     B6                                                              F7540FT       65     A     
 MIO                                                                                       MIO         1857     A     
 MIO                SX2    X2+B5                                                           MIO         1858     A     
 MIO                SX0    X3          WRITE BLOCK.                                        MIO         1859     A     
 MIO                                                                                       MIO         1860          I
          -F7540FT
 MIO       #MD      IFLT   CT.CPU,75                                                       MIO         1861          I
          -S3143FC  -F7540FT
 MIO       #MD      IFLT   CT.CPU,76                                                       S3143FC       56          I
          -F7540FT
 MIO      +         WE     B6                                                              MIO         1862          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2857    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
          -F7540FT
 MIO      -         EQ     ERRECSW                                                         MIO         1863          I
          -F7540FT
 MIO       #MD      ELSE                                                                   MIO         1864          I
          -F7540FT
 MIO                WL     B6                                                              MIO         1865          I
          -F7540FT
 MIO       #MD      ENDIF                                                                  MIO         1866          I
          -F7540FT
 MIO                                                                                       F7540FT       66     A     
 MIO                WL     B6                                                              F7540FT       67     A     
 MIO                                                                                       MIO         1867     A     
 MIO                SB7    B7-B6       COUNT WORDS.                                        MIO         1868     A     
 MIO                SX3    X3+B5                                                           MIO         1869     A     
 MIO                GT     B7,B6,MVL1  LOOP.                                               MIO         1870     A     
 MIO                                                                                       MIO         1871     A     
 MIO       MVL2     LE     B7,B0,MVL   RETURN IF FINISHED.                                 MIO         1872     A     
 MIO                                                                                       MIO         1873     A     
 MIO                SB6    B7          SETUP FOR LAST MOVE.                                MIO         1874     A     
 MIO                SB5    B7                                                              MIO         1875     A     
 MIO                EQ     MVL1                                                            MIO         1876     A     
 MIO                                                                                       MIO         1877     A     
 MIO       #ECS     ENDIF                                                                  MIO         1878     A     
 MIO                TTL    MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                       MIO         1879     A     
 MIO       SBD      TITLE  SBD - SAVE BLOCK TO DISK                                        MIO         1880     A     
 MIO      **        SBD - SAVE BLOCK TO DISK                                               MIO         1881     A     
 MIO      *                                                                                MIO         1882     A     
 MIO      *         ENTRY  (X4) = FSCM, SCM FWA OF BLOCK                                   MIO         1883     A     
 MIO      *                (X5) = LEN, LENGTH OF BLOCK                                     MIO         1884     A     
 MIO      *                                                                                MIO         1885     A     
 MIO      *         EXIT   (X1) = RIW, RANDOM INDEX WORD                                   MIO         1886     A     
 MIO      *                2/AT,1/0,18/LEN,9/0,30/RA.                                      MIO         1887     A     
 MIO      *                                                                                MIO         1888     A     
 MIO      *         CALLS  WRITER, PUTW.                                                   MIO         1889     A     
 MIO                                                                                       MIO         1890     A     
 MIO       SBD      ENTRY. **                                                              MIO         1891     A     
 MIO                                                                                       MIO         1892     A     
 MIO      *         WRITE RECORD TO DISK.                                                  MIO         1893     A     
 MIO                                                                                       MIO         1894     A     
 MIO                SA2    O.DISK      DA = O.DISK   */DISK ADDRESS.                       MIO         1895     A     
 MIO                BX6    X5                                                              MIO         1896     A     
 MIO                SA6    SBDB                                                            MIO         1897     A     
 MIO                                                                                       MIO         1898     A     
 MIO       #RM      IFEQ   CP#RM,0                                                         MIO         1899     A     
 MIO                                                                                       MIO         1900     A     
 MIO      *         6000 MACE I/O                                                          MIO         1901     A     
 MIO                                                                                       MIO         1902     A     
 MIO                SX3    X5                                                              MIO         1903     A     
 MIO                AX3    6                                                               MIO         1904     A     
 MIO                SX3    X3+B1       RL=LEN/100B+1 */RECORD LENGTH                       MIO         1905     A     
 MIO                IX6    X2+X3                                                           MIO         1906     A     
 MIO                SA6    A2          O.DISK = DA + RL                                    MIO         1907     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2858    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                                                 */SET OPT FET FOR WRITE               MIO         1908     A     
 MIO                SETFET OPT,X4,X5,WRITE   SET OPT FET FOR WRITE                         MIO         1909     A     
 MIO                SX6    SBDA                                                            MIO         1910     A     
 MIO                SA6    =XF.OPT+6                                                       MIO         1911     A     
 MIO                WRITER =XF.OPT,R   WRITE RECORD                                        MIO         1912     A     
 MIO                SA2    SBDA                                                            MIO         1913     A     
 MIO       #RM      ELSE                                                                   MIO         1914     A     
 MIO                                                                                       MIO         1915     A     
 MIO      *         7000 RECORD MANAGER I/O                                                MIO         1916     A     
 MIO                                                                                       MIO         1917     A     
 MIO                PUTW   =XFI.OPT,X4,X5,,X2        PUTW(FSCM,LEN,,DA)                    MIO         1918     A     
 MIO                FETCH  =XFI.OPT,WA=X3                                                  MIO         1919     A     
 MIO                BX6    X3                                                              MIO         1920     A     
 MIO                SA6    A2          O.DISK = WA                                         MIO         1921     A     
 MIO       #RM      ENDIF                                                                  MIO         1922     A     
 MIO                                                                                       MIO         1923     A     
 MIO      *         FORM RANDOM INDEX WORD.                                                MIO         1924     A     
 MIO                                                                                       MIO         1925     A     
 MIO                SA5    SBDB                                                            MIO         1926     A     
 MIO                LX5    RI.LENP     LEN[RIW] = LEN                                      MIO         1927     A     
 MIO                LX2    RI.RAP      RA[RIW] = FSCM                                      MIO         1928     A     
 MIO                BX1    X2+X5       RIW           */RANDOM INDEX WORD                   MIO         1929     A     
 MIO                LX5    -RI.LENP                                                        MIO         1930     A     
 MIO                EQ     SBD                                                             MIO         1931     A     
 MIO                                                                                       MIO         1932     A     
 MIO       SBDA     BSS    1                                                               MIO         1933          I
          -FCC0415
 MIO       SBDA     BSSZ   1                                                               FCC0415       47     A     
 MIO       SBDB     BSS    1                                                               MIO         1934     A     
 MIO       GBD      TITLE  GBD - GET BLOCK FROM DISK                                       MIO         1935     A     
 MIO      **        GBD - GET BLOCK FROM DISK                                              MIO         1936     A     
 MIO      *                                                                                MIO         1937     A     
 MIO      *         ENTRY  (X2) = FSCM, SCM FWA OF BLOCK                                   MIO         1938     A     
 MIO      *                (X4) = DA, DISK ADDRESS                                         MIO         1939     A     
 MIO      *                (X5) = LEN, LENGTH OF BLOCK                                     MIO         1940     A     
 MIO      *                                                                                MIO         1941     A     
 MIO      *         EXIT   RECORD READ                                                     MIO         1942     A     
 MIO      *                                                                                MIO         1943     A     
 MIO      *         CALLS  READ, GETW.                                                     MIO         1944     A     
 MIO                                                                                       MIO         1945     A     
 MIO       GBD      ENTRY. **                                                              MIO         1946     A     
 MIO                                                                                       MIO         1947     A     
 MIO      *         READ RECORD FROM DISK.                                                 MIO         1948     A     
 MIO                                                                                       MIO         1949     A     
 MIO       #RM      IFEQ   CP#RM,0                                                         MIO         1950     A     
 MIO                                                                                       MIO         1951     A     
 MIO      *         6000 MACE I/O                                                          MIO         1952     A     
 MIO                                                                                       MIO         1953     A     
 MIO                MX6    -RI.RAL                                                         MIO         1954     A     
 MIO                BX7    -X6*X4                                                          MIO         1955     A     
 MIO                SA7    =XF.OPT+6   [F.OPT+6] = DA                                      MIO         1956     A     
 MIO                SETFET OPT,X2,X5,READ                                                  MIO         1957     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2859    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO                READ   =XF.OPT,R   READ RECORD                                         MIO         1958     A     
 MIO       #RM      ELSE                                                                   MIO         1959     A     
 MIO                                                                                       MIO         1960     A     
 MIO      *         7000 RECORD MANAGER I/O                                                MIO         1961     A     
 MIO                                                                                       MIO         1962     A     
 MIO                GETW   =XFI.OPT,X2,X5,,X4        GETW(FSCM,LEN,,DA)                    MIO         1963     A     
 MIO       #RM      ENDIF                                                                  MIO         1964     A     
 MIO                                                                                       MIO         1965     A     
 MIO                EQ     GBD                                                             MIO         1966     A     
 MIO                                                                                       MIO         1967     A     
 MIO       #ECS     IFNE   CT.ECS,0                                                        MIO         1968     A     
 MIO       SBL      TITLE  SBL - SAVE BLOCK TO LCM                                         MIO         1969     A     
 MIO      **        SBL - SAVE BLOCK TO LCM                                                MIO         1970     A     
 MIO      *                                                                                MIO         1971     A     
 MIO      *         ENTRY  (X2) = FLCM, LCM FWA OF BLOCK                                   MIO         1972     A     
 MIO      *                (X4) = FSCM, SCM FWA OF BLOCK                                   MIO         1973     A     
 MIO      *                (X5) = LEN, LENGTH OF BLOCK                                     MIO         1974     A     
 MIO      *                                                                                MIO         1975     A     
 MIO      *         EXIT   (X1) = RIW, RANDOM INDEX WORD                                   MIO         1976     A     
 MIO      *                2/AT,1/0,18/LEN,9/0,30/RA.                                      MIO         1977     A     
 MIO      *                                                                                MIO         1978          I
          -FCC0415
 MIO      *         CALLS  NONE.                                                           MIO         1979          I
          -FCC0415
 MIO                                                                                       MIO         1980     A     
 MIO       SBL      ROUTINE                                                                MIO         1981     A     
 MIO                                                                                       MIO         1982     A     
 MIO      *         FORM RANDOM INDEX WORD.                                                MIO         1983     A     
 MIO                                                                                       MIO         1984     A     
 MIO                SA0    X4          FSCM = SCM FWA OF BLOCK                             MIO         1985     A     
 MIO                BX0    X2          FLCM = LCM FWA OF BLOCK                             MIO         1986     A     
 MIO                SB2    X5          L = LEN                                             MIO         1987     A     
 MIO                MX1    1                                                               MIO         1988     A     
 MIO                SB3    1777B                                                           MIO         1989          I
          -FCC0448
 MIO                SB3    BLK.SIZ                                                         FCC0448       15     A     
 MIO                LX1    1+RI.ATP    AT[RIW] = 1   */AT = LCM                            MIO         1990     A     
 MIO                LX2    RI.RAP      RA[RIW] = FLCM                                      MIO         1991     A     
 MIO                BX1    X1+X2                                                           MIO         1992     A     
 MIO                LX5    RI.LENP     LEN[RIW] = LEN                                      MIO         1993     A     
 MIO                BX1    X1+X5       RIW           */RANDOM INDEX WORD                   MIO         1994     A     
 MIO                LX5    -RI.LENP                                                        MIO         1995     A     
 MIO                                                                                       MIO         1996     A     
 MIO      *         WRITE BLOCK TO LCM.                                                    MIO         1997     A     
 MIO                                                                                       MIO         1998     A     
 MIO                LE     B2,B3,SBL2  IF L. LE. 1777B                                     MIO         1999          I
          -FCC0448
 MIO                LE     B2,B3,SBL2  IF L .LE. BLK.SIZ                                   FCC0448       16     A     
 MIO                                                                                       MIO         2000     A     
 MIO       SBL1     BSS    0                                                               MIO         2001          I
          -F7540FT
 MIO                                                                                       MIO         2002          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2860    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
          -F7540FT
 MIO       #MD      IFLT   CT.CPU,75                                                       MIO         2003          I
          -S3143FC  -F7540FT
 MIO       #MD      IFLT   CT.CPU,76                                                       S3143FC       57          I
          -F7540FT
 MIO      +         WE     B3          MOVE(1777B,FSCM,FLCM)                               MIO         2004          I
          -FCC0448  -F7540FT
 MIO      +         WE     B3          MOVE(BLK.SIZ,FSCM,FLCM)                             FCC0448       17          I
          -F7540FT
 MIO      -         EQ     ERRECSW                                                         MIO         2005          I
          -F7540FT
 MIO       #MD      ELSE                                                                   MIO         2006          I
          -F7540FT
 MIO                WL     B3          MOVE(1777B,FSCM,FLCM)                               MIO         2007          I
          -FCC0448  -F7540FT
 MIO                WL     B3          MOVE(BLK.SIZ,FSCM,FLCM)                             FCC0448       18          I
          -F7540FT
 MIO       #MD      ENDIF                                                                  MIO         2008          I
          -F7540FT
 MIO       SBL1     WL     B3          MOVE(BLK.SIZ,FSCM,FLCM)                             F7540FT       68     A     
 MIO                                                                                       MIO         2009     A     
 MIO                SB2    B2-B3       L = L - 1777B                                       MIO         2010          I
          -FCC0448
 MIO                SA0    A0+B3       FSCM = FSCM + 1777B                                 MIO         2011          I
          -FCC0448
 MIO                SX0    X0+B3       FLCM = FLCM + 1777B                                 MIO         2012          I
          -FCC0448
 MIO                GT     B2,B3,SBL1  IF L .GT. 1777B                                     MIO         2013          I
          -FCC0448
 MIO                SB2    B2-B3       L = L - BLK.SIZ                                     FCC0448       19     A     
 MIO                SA0    A0+B3       FSCM = FSCM + BLK.SIZ                               FCC0448       20     A     
 MIO                SX0    X0+B3       FLCM = FLCM + BLK.SIZ                               FCC0448       21     A     
 MIO                GT     B2,B3,SBL1  IF L.GT. BLK.SIZ                                    FCC0448       22     A     
 MIO                                                                                       MIO         2014     A     
 MIO       SBL2     BSS    0                                                               MIO         2015          I
          -F7540FT
 MIO                                                                                       MIO         2016          I
          -F7540FT
 MIO       #MD      IFLT   CT.CPU,75                                                       MIO         2017          I
          -S3143FC  -F7540FT
 MIO       #MD      IFLT   CT.CPU,76                                                       S3143FC       58          I
          -F7540FT
 MIO      +         WE     B2          MOVE(L,FSCM,FLCM)                                   MIO         2018          I
          -F7540FT
 MIO      -         EQ     ERRECSW                                                         MIO         2019          I
          -F7540FT
 MIO       #MD      ELSE                                                                   MIO         2020          I
          -F7540FT
 MIO                WL     B2          MOVE(L,FSCM,FLCM)                                   MIO         2021          I
          -F7540FT
 MIO       #MD      ENDIF                                                                  MIO         2022          I
          -F7540FT
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2861    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
 MIO       SBL2     WL     B2          MOVE(L,FSCM,FLCM)                                   F7540FT       69     A     
 MIO                                                                                       MIO         2023     A     
 MIO                EQ     SBL                                                             MIO         2024     A     
 MIO                                                                                       MIO         2025     A     
 MIO       ERRECSW  SX1    =C$ ECS WRITE ERROR$                                            MIO         2026     A     
 MIO                EQ     =XFTNABT                                                        MIO         2027     A     
 MIO       GBL      TITLE  GBL - GET BLOCK FROM LCM                                        MIO         2028     A     
 MIO      **        GBL - GET BLOCK FROM LCM                                               MIO         2029     A     
 MIO      *                                                                                MIO         2030     A     
 MIO      *         ENTRY  (X2) = FSCM, SCM FWA OF BLOCK                                   MIO         2031     A     
 MIO      *                (X4) = FLCM, LCM FWA OF BLOCK                                   MIO         2032     A     
 MIO      *                (X5) = LEN, LENGTH OF BLOCK                                     MIO         2033     A     
 MIO      *                                                                                MIO         2034     A     
 MIO      *         EXIT   BLOCK TRANSFER COMPLETE                                         MIO         2035     A     
 MIO      *                                                                                MIO         2036          I
          -FCC0415
 MIO      *         CALLS  NONE.                                                           MIO         2037          I
          -FCC0415
 MIO                                                                                       MIO         2038     A     
 MIO       GBL      ROUTINE                                                                MIO         2039     A     
 MIO                                                                                       MIO         2040     A     
 MIO      *         READ BLOCK FROM LCM.                                                   MIO         2041     A     
 MIO                                                                                       MIO         2042     A     
 MIO                SA0    X2          FSCM = SCM FWA OF BLOCK                             MIO         2043     A     
 MIO                BX0    X4          FLCM = LCM FWA OF BLOCK                             MIO         2044     A     
 MIO                SB2    X5          L = LEN                                             MIO         2045     A     
 MIO                SB3    1777B                                                           MIO         2046          I
          -FCC0448
 MIO                SB3    BLK.SIZ                                                         FCC0448       23     A     
 MIO                LT     B2,B3,GBL2  IF L .LE. 1777B                                     MIO         2047          I
          -FCC0448
 MIO                LT     B2,B3,GBL2  IF L .LE. BLK.SIZ                                   FCC0448       24     A     
 MIO                                                                                       MIO         2048     A     
 MIO       GBL1     BSS    0                                                               MIO         2049          I
          -F7540FT
 MIO                                                                                       MIO         2050          I
          -F7540FT
 MIO       #MD      IFLT   CT.CPU,75                                                       MIO         2051          I
          -S3143FC  -F7540FT
 MIO       #MD      IFLT   CT.CPU,76                                                       S3143FC       59          I
          -F7540FT
 MIO      +         RE     B3          MOVE(1777B,FLCM,FSCM)                               MIO         2052          I
          -FCC0448  -F7540FT
 MIO      +         RE     B3          MOVE(BLK.SIZ,FLCM,FSCM)                             FCC0448       25          I
          -F7540FT
 MIO      -         EQ     ERRECSR                                                         MIO         2053          I
          -F7540FT
 MIO       #MD      ELSE                                                                   MIO         2054          I
          -F7540FT
 MIO                RL     B3          MOVE(1777B,FLCM,FSCM)                               MIO         2055          I
          -FCC0448  -F7540FT
 MIO                RL     B3          MOVE(BLK.SIZ,FLCM,FSCM)                             FCC0448       26          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2862    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
          -F7540FT
 MIO       #MD      ENDIF                                                                  MIO         2056          I
          -F7540FT
 MIO       GBL1     RL     B3          MOVE(BLK.SIZ,FLCM,FSCM)                             F7540FT       70     A     
 MIO                                                                                       MIO         2057     A     
 MIO                SB2    B2-B3       L = L - 1777B                                       MIO         2058          I
          -FCC0448
 MIO                SA0    A0+B3       FSCM = FSCM + 1777B                                 MIO         2059          I
          -FCC0448
 MIO                SX0    X0+B3       FLCM = FLCM + 1777B                                 MIO         2060          I
          -FCC0448
 MIO                GE     B2,B3,GBL1  IF L . GT. 1777B                                    MIO         2061          I
          -FCC0448
 MIO                SB2    B2-B3       L = L - BLK.SIZ                                     FCC0448       27     A     
 MIO                SA0    A0+B3       FSCM = FSCM + BLK.SIZ                               FCC0448       28     A     
 MIO                SX0    X0+B3       FLCM = FLCM + BLK.SIZ                               FCC0448       29     A     
 MIO                GE     B2,B3,GBL1  IF L .GT. BLK.SIZ                                   FCC0448       30     A     
 MIO                                                                                       MIO         2062     A     
 MIO       GBL2     BSS    0                                                               MIO         2063          I
          -F7540FT
 MIO                                                                                       MIO         2064          I
          -F7540FT
 MIO       #MD      IFLT   CT.CPU,75                                                       MIO         2065          I
          -S3143FC  -F7540FT
 MIO       #MD      IFLT   CT.CPU,76                                                       S3143FC       60          I
          -F7540FT
 MIO      +         RE     B2          MOVE(L,FLCM,FSCM)                                   MIO         2066          I
          -F7540FT
 MIO      -         EQ     ERRECSR                                                         MIO         2067          I
          -F7540FT
 MIO       #MD      ELSE                                                                   MIO         2068          I
          -F7540FT
 MIO                RL     B2          MOVE(L,FLCM,FSCM)                                   MIO         2069          I
          -F7540FT
 MIO       #MD      ENDIF                                                                  MIO         2070          I
          -F7540FT
 MIO       GBL2     RL     B2          MOVE(L,FLCM,FSCM)                                   F7540FT       71     A     
 MIO                                                                                       MIO         2071     A     
 MIO                EQ     GBL                                                             MIO         2072     A     
 MIO                                                                                       MIO         2073     A     
 MIO       ERRECSR  SX1    =C$ ECS READ ERROR$                                             MIO         2074     A     
 MIO                EQ     =XFTNABT                                                        MIO         2075     A     
 MIO                                                                                       MIO         2076     A     
 MIO       #ECS     ENDIF                                                                  MIO         2077     A     
 MIO                                                                                       MIO         2078     A     
 MIO                END                                                                    MIO         2079     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - MIO     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          MIO                       2079      1941
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2863    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MIO     
  
          FCC0391                      4         4
          FCC0415                     43        33
          FCC0448                     18        14
          FCC0534                      5         5
          FCC0634                      8         7
          S3143FC                      7         0
          FEAT155F                     1         1
          S3143FCA                     1         1
          FCC1123                      4         4
          FCC1352                      2         2
          F7540FT                     35        35
          RSM2763X                    59        59
          FCC1498X                     2         2
          F2950F4                      4         4
          FCCA509X                     1         1
          FCCA593                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FBV     
  
 FBV      *DECK     FBV                                                                    FBV            1     A     
 FBV                IDENT  FBV                                                             FBV            2     A     
 FBV       FBV      TITLE  FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )                FBV            3     A     
 FBV      *CALL     SSTCALL                                                                FBV            4     A     
 FBV       B=FBV    RPVDEF                                                                 FBV            5     A     
 FBV                PASS2TM                                                                FBV            6     A     
 FBV                                                                                       FBV            7     A     
 FBV       FBV      SPACE  2                                                               FBV            8     A     
 FBV      *IF       DEF,FBV,1                                                              FBV            9     A     
 FBV                TRACER CLI                                                             FBV           10     A     
 FBV      **        FBV - FORM BIT VECTORS ( PHASE 2 OF OPT=2 PASS 2 ).                    FBV           11     A     
 FBV      *         READ PROGRAM BLOCKS TO FORM *USE, DBU AND USE* VECTORS.                FBV           12     A     
 FBV      *         USE ULLMAN ALGORITHM TO FORM BLOCK *LIVE EXIT* BIT VECTORS.            FBV           13     A     
 FBV      *                                                                                FBV           14     A     
 FBV      *         NOTE - THE SPACE OCCUPIED BY *FBV* IS USED AS A BUFFER FOR             FBV           15     A     
 FBV      *         LCM TO LCM TRANSFERS BY *MIO*.                                         FBV           16     A     
 FBV                                                                                       FBV           17     A     
 FBV      **        DEBUGING SNAP LABELS                                                   FBV           18     A     
 FBV      *                                                                                FBV           19     A     
 FBV      *         TRACER (FBV,SNO,CLI)                                                   FBV           20     A     
 FBV       FBV      SPACE  2                                                               FBV           21     A     
 FBV                TABLES BIT,BVT,CFT,RND,SEQ,TXT                                         FBV           22     A     
 FBV                                                                                       FBV           23     A     
 FBV                EXT    BN,BVL,M.BBL,NPB,O.IST                                          FBV           24     A     
 FBV       FBV      SPACE  3                                                               FBV           25     A     
 FBV      **        FBV.ERR - REQUESTED BLOCK IS NOT SAME AS BLOCK RECEIVED FROM           FBV           26     A     
 FBV      *         I/O ROUTINES.  THIS IS INDICATIVE OF A BUG IN *MIO* OR THE             FBV           27     A     
 FBV      *         OPERATING SYSTEM ( *READNS* FUNCTION ).                                FBV           28     A     
 FBV                                                                                       FBV           29     A     
 FBV       FBV.ERR  SX1    =C$ FTN/FBV - BLOCK READ ERROR$                                 FBV           30     A     
 FBV                EQ     =XFTNABT                                                        FBV           31     A     
 FBV       FBV      SPACE  2                                                               FBV           32     A     
 FBV      *CALL     CFTBLD                                                                 FBV           33     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2864    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FBV     
  
 FBV       FBV      EJECT                                                                  FBV           34     A     
 FBV      **        FBV - FORM BIT VECTORS                                                 FBV           35     A     
 FBV                                                                                       FBV           36     A     
 FBV       FBV      ENTRY. **                                                              FBV           37     A     
 FBV                SA1    M.BBL                                                           FBV           38     A     
 FBV                ALLOC  TXT,X1+2    ALLOC( TXT , M.BBL + 2 )                            FBV           39     A     
 FBV                SX7    X2+B1       O.SEQ = O.TXT + 1                                   FBV           40     A     
 FBV                SA7    O.SEQ                                                           FBV           41     A     
 FBV                SX6    B1+B1       BN = 2                                              FBV           42     A     
 FBV                                                                                       FBV           43     A     
 FBV      *         READ PROGRAM BLOCKS SEQUENTIALLY AND FORM BIT VECTORS                  FBV           44     A     
 FBV                                                                                       FBV           45     A     
 FBV       FBV1     SA1    O.BIT                                                           FBV           46     A     
 FBV                SX6    X6+2        BN = BN + 2                                         FBV           47     A     
 FBV                SB2    X6                                                              FBV           48     A     
 FBV                SA2    X1+B2       BIW = BIT(BN)                                       FBV           49     A     
 FBV                BX7    X2                                                              FBV           50     A     
 FBV                SA5    A2+B1       RIW = BIT(BN+1)                                     FBV           51     A     
 FBV                SA3    O.SEQ                                                           FBV           52     A     
 FBV                ZR     X5,FBV3     IF RIW = 0    */ END OF PROGRAM BLOCKS              FBV           53     A     
 FBV                SA6    BN                                                              FBV           54     A     
 FBV                SA7    BIW                                                             FBV           55     A     
 FBV                CALL   RNB         READ NEXT BLOCK                                     FBV           56     A     
 FBV                SA2    BIW                                                             FBV           57     A     
 FBV                SA5    O.SEQ                                                           FBV           58     A     
 FBV                LX2    59-BI.RBP                                                       FBV           59     A     
 FBV                PL     X2,FBV2     IF ^RB[BIW]   */ DEAD CODE                          FBV           60     A     
 FBV                SA4    BN                                                              FBV           61     A     
 FBV                SA1    X5                                                              FBV           62     A     
 FBV                BX6    X4-X1                                                           FBV           63     A     
 FBV                SB2    X6                                                              FBV           64     A     
 FBV                NZ     B2,FBV.ERR  IF BN[SEQ] " BN  */ READNS ERROR                    FBV           65     A     
 FBV                                                                                       FBV           66     A     
 FBV                CALL   FUD         FORM USE/DEF BIT VECTORS                            FBV           67     A     
 FBV                                                                                       FBV           68     A     
 FBV       FBV2     SA1    BN                                                              FBV           69     A     
 FBV                SX6    X1+                                                             FBV           70     A     
 FBV                EQ     FBV1                                                            FBV           71     A     
 FBV                                                                                       FBV           72     A     
 FBV       FBV3     SX7    0                                                               FBV           73     A     
 FBV                SA7    L.TXT       L.TXT = 0                                           FBV           74     A     
 FBV                                                                                       FBV           75     A     
 FBV                RJ     SNO         SET NODE ORDER                                      FBV           76     A     
 FBV                                                                                       FBV           77     A     
 FBV                RJ     CLI         COMPUTE LIVE EXIT BIT VECTORS                       FBV           78     A     
 FBV                                                                                       FBV           79     A     
 FBV                IFEQ   CP#RM,0,1                                                       FBV           80     A     
 FBV                RECALL =XF.OPT     WAIT UNTIL READ NS FINISHED                         FBV           81     A     
 FBV                SX6    0                                                               FBV           82     A     
 FBV                SA6    L.RND       L.RND = 0                                           FBV           83     A     
 FBV                SA6    L.CFT       L.CFT = 0                                           FBV           84     A     
 FBV                                                                                       FBV           85     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2865    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FBV     
  
 FBV                IF     DEF,/DEBUG/CLI,1                                                FBV           86     A     
 FBV                DCALL  PRNTLX,([O.BVT],[O.BIT],NPB)                                    FBV           87     A     
 FBV                                                                                       FBV           88     A     
 FBV                EQ     FBV                                                             FBV           89     A     
 FBV                                                                                       FBV           90     A     
 FBV       BIW      BSS    1           SAVED COPY OF BLOCK INDEX WORD                      FBV           91     A     
 FBV       SNO      TITLE  SNO - SET NODE ORDER BY A DEPTH FIRST SEARCH                    FBV           92     A     
 FBV      **        SNO - SET NODE ORDER USING A DEPTH FIRST SEARCH OF THE FLOW            FBV           93     A     
 FBV      *         GRAPH TO ASSIGN THE *NUM* ORDER TO THE BLOCKS IN THE ORDER             FBV           94     A     
 FBV      *         IN WHICH THEY ARE LAST VISITED.                                        FBV           95     A     
 FBV                                                                                       FBV           96     A     
 FBV      *         TEMPORARY TABLE FOR DEPTH FIRST SEARCH / *NUM* COMPUTATION             FBV           97     A     
 FBV                                                                                       FBV           98     A     
 FBV                DESCRIBE I.,60     TTW                                                 FBV           99     A     
 FBV       TREE     DEFINE 1           IN TREE                                             FBV          100     A     
 FBV                DEFINE 11                                                              FBV          101     A     
 FBV       SUI      DEFINE 18          SUCCESSOR INDEX                                     FBV          102     A     
 FBV       NS       DEFINE 12          N.SUCC NOT VISITED                                  FBV          103     A     
 FBV       BN       DEFINE 18          BLOCK NUMBER OF NUM(I)                              FBV          104     A     
 FBV                                                                                       FBV          105     A     
 FBV      *         REGISTER ASSIGNMENTS                                                   FBV          106     A     
 FBV                                                                                       FBV          107     A     
 FBV       C0       MICRO  1,,/B7/     O.CFT                                               FBV          108     A     
 FBV       EI       MICRO  1,,/B6/     EIB                                                 FBV          109     A     
 FBV       NO       MICRO  1,,/B5/     NUM COUNTER                                         FBV          110     A     
 FBV       ST       MICRO  1,,/B4/     STK - PUSHDOWN STACK                                FBV          111     A     
 FBV       NS       MICRO  1,,/B3/     N.SUCC                                              FBV          112     A     
 FBV       N        MICRO  1,,/X7/     NODE NUMBER                                         FBV          113     A     
 FBV                                                                                       FBV          114     A     
 FBV       SNO      ROUTINE                                                                FBV          115     A     
 FBV                SA5    NPB                                                             FBV          116     A     
 FBV                SX2    X5+B1                                                           FBV          117     A     
 FBV                LX1    B1,X2                                                           FBV          118     A     
 FBV                ALLOC  CFT,X1      ALLOC( CFT , 2*(NPB+1) )                            FBV          119     A     
 FBV                S"C0"  X2          C0 = O.CFT                                          FBV          120     A     
 FBV                SA1    O.IST                                                           FBV          121     A     
 FBV                SB2    X5          N = NPB                                             FBV          122     A     
 FBV                S"EI"  X1+3        EIB = O.IST + 3                                     FBV          123     A     
 FBV                SX6    2000B                                                           FBV          124     A     
 FBV                SA5    "EI"+B1     EI = EIB + 1                                        FBV          125     A     
 FBV                LX6    I.NSP                                                           FBV          126     A     
 FBV                MX0    1                                                               FBV          127     A     
 FBV                LX0    1+I.TREEP                                                       FBV          128     A     
 FBV                BX6    X0+X6                                                           FBV          129     A     
 FBV                SA6    "C0"        CI = C0;  [CI] = 0  */ EXIT NODE HAS NO SUC         FBV          130     A     
 FBV                                                                                       FBV          131     A     
 FBV      *         SETUP AUX TABLE WITH SUCCESSOR INFORMATION                             FBV          132     A     
 FBV                                                                                       FBV          133     A     
 FBV       SNO1     LX5    -EI.SUIP                                                        FBV          134     A     
 FBV                UX4    "NS",X5                                                         FBV          135     A     
 FBV                SX3    X4          SI = SUI[EI]                                        FBV          136     A     
 FBV                SA5    A5+B1       EI = EI + 1                                         FBV          137     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2866    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FBV     
  
 FBV                PX6    "NS",X3                                                         FBV          138     A     
 FBV                LX6    I.SUIP                                                          FBV          139     A     
 FBV                SB2    B2-B1       N = N - 1                                           FBV          140     A     
 FBV                SA6    A6+B1       CI = CI + 1;  [CI] = TTW(0,SI,NS,0)                 FBV          141     A     
 FBV                NZ     B2,SNO1     IF N " 0                                            FBV          142     A     
 FBV                                                                                       FBV          143     A     
 FBV                S"ST"  A6+B1       ST = CI + 1   */ STACK ADDRESS                      FBV          144     A     
 FBV                MX7    0                                                               FBV          145     A     
 FBV                SA7    "ST"        [ST] = 0                                            FBV          146     A     
 FBV                S"NO"  B1          NO = 1                                              FBV          147     A     
 FBV                S"N"   1           N = 1         */ START WITH PROG ENTRY BLOCK        FBV          148     A     
 FBV                                                                                       FBV          149     A     
 FBV      *         VISIT NODE *N*                                                         FBV          150     A     
 FBV                                                                                       FBV          151     A     
 FBV       SNO2     SA5    "C0"+"N"    TW = C(N)                                           FBV          152     A     
 FBV                BX6    X0+X5       TREE[TW] = 1  */ INDICATE IN TREE                   FBV          153     A     
 FBV                SA6    A5                                                              FBV          154     A     
 FBV                LX6    -I.SUIP                                                         FBV          155     A     
 FBV                UX5    "NS",X6                                                         FBV          156     A     
 FBV                SB2    "EI"+X6                                                         FBV          157     A     
 FBV                                                                                       FBV          158     A     
 FBV      *         VISIT SUCCESSORS                                                       FBV          159     A     
 FBV                                                                                       FBV          160     A     
 FBV       SNO3     ZR     "NS",SNO4   IF NS[TW] = 0 */ IF ALL SUCC VISITED                FBV          161     A     
 FBV                S"NS"  "NS"-B1     NS[TW] = NS[TW] - 1                                 FBV          162     A     
 FBV                SA3    B2+"NS"     ET = EIB + SUI[TW] + NS[TW]                         FBV          163     A     
 FBV                LX3    -ET.SUCCP   I = SUCC[ET]                                        FBV          164     A     
 FBV                SA2    "C0"+X3                                                         FBV          165     A     
 FBV                LX2    59-I.TREEP                                                      FBV          166     A     
 FBV                MI     X2,SNO3     IF TREE[C(I)] */ IF SUCC IN TREE                    FBV          167     A     
 FBV                                                                                       FBV          168     A     
 FBV                PX6    "NS",X6                                                         FBV          169     A     
 FBV                LX6    I.SUIP                                                          FBV          170     A     
 FBV                SA6    A6                                                              FBV          171     A     
 FBV                                                                                       FBV          172     A     
 FBV                S"ST"  "ST"+B1     ST = ST + 1   */ STACK NODE N                       FBV          173     A     
 FBV                R=     X7,"N"                                                          FBV          174     A     
 FBV                SA7    "ST"        [ST]  = N                                           FBV          175     A     
 FBV                S"N"   X3          N = I         */ SET TO VISIT SUCCESSOR             FBV          176     A     
 FBV                EQ     SNO2                                                            FBV          177     A     
 FBV                                                                                       FBV          178     A     
 FBV      *         LAST VISIT TO NODE, ASSIGN NUM(NO) = BLOCK NUMBER                      FBV          179     A     
 FBV                                                                                       FBV          180     A     
 FBV       SNO4     PX6    "NS",X6                                                         FBV          181     A     
 FBV                LX6    I.SUIP                                                          FBV          182     A     
 FBV                SA6    A6                                                              FBV          183     A     
 FBV                                                                                       FBV          184     A     
 FBV                SA1    "C0"+"NO"                                                       FBV          185     A     
 FBV                R=     X7,"N"                                                          FBV          186     A     
 FBV                LX7    I.BNP                                                           FBV          187     A     
 FBV                BX6    X1+X7       BN[C(NO)] = N */ SET ORDER OF LAST VISIT            FBV          188     A     
 FBV                SA6    A1                                                              FBV          189     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2867    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FBV     
  
 FBV                S"NO"  "NO"+B1     NO = NO + 1                                         FBV          190     A     
 FBV                SA4    "ST"                                                            FBV          191     A     
 FBV                S"N"   X4          N = [ST]      */ FETCH LAST FROM STACK              FBV          192     A     
 FBV                S"ST"  "ST"-B1     ST = ST - 1                                         FBV          193     A     
 FBV                NZ     "N",SNO2    IF N " 0                                            FBV          194     A     
 FBV                                                                                       FBV          195     A     
 FBV                MX6    0                                                               FBV          196     A     
 FBV                SA6    A6+B1       C(NO) = 0     */ TABLE TERMINATOR                   FBV          197     A     
 FBV                SX7    "NO"+B1                                                         FBV          198     A     
 FBV                TRACE  SNO,CFT                                                         FBV          199     A     
 FBV                SA7    L.CFT       L.CFT = NO + 1                                      FBV          200     A     
 FBV                EQ     SNO                                                             FBV          201     A     
 FBV       CLI      TITLE  CLI - COMPUTE LIVE EXIT INFORMATION                             FBV          202     A     
 FBV      **        CLI - COMPUTE LIVE EXIT INFORMATION ( BIT VECTORS ).                   FBV          203     A     
 FBV      *                COMPUTE THE LIVE EXIT ( LX ) BIT VECTORS FOR EACH               FBV          204     A     
 FBV      *         PROGRAM BLOCK.   THE METHOD IS TAKEN FROM THE ALGORITHMS               FBV          205     A     
 FBV      *         DESCRIBED IN THE PAPER "ANALYSIS OF A SIMPLE ALGORITHM FOR             FBV          206     A     
 FBV      *         GLOBAL FLOW PROBLEM" BY HECHT AND ULLMAN, PAGES 207 - 217 IN           FBV          207     A     
 FBV      *         THE ACM CONFRENCE RECORD, OCT 73 SIGACT/SIGPLAN MEETING.               FBV          208     A     
 FBV                                                                                       FBV          209     A     
 FBV       BI       MICRO  1,,/B5/     O.BIT                                               FBV          210     A     
 FBV       EI       MICRO  1,,/B6/     EDGE INDEX TABLE BASE                               FBV          211     A     
 FBV       BV       MICRO  1,,/B7/     O.BVT                                               FBV          212     A     
 FBV                                                                                       FBV          213     A     
 FBV       CLI      ROUTINE                                                                FBV          214     A     
 FBV                SA2    O.IST                                                           FBV          215     A     
 FBV                SA2    X2+2        GBM = [O.IST+2]                                     FBV          216     A     
 FBV                LX2    -GB.ILIP                                                        FBV          217     A     
 FBV                ALLOC  RND,X2+3    ALLOC( RND , ILI[GBW]+3 )                           FBV          218     A     
 FBV                SA4    O.CFT                                                           FBV          219     A     
 FBV                SA1    O.BVT                                                           FBV          220     A     
 FBV                SA7    X2          CS = [O.RND]  */ LOOP CONTROL STORE INDEX           FBV          221     A     
 FBV                SA3    O.IST                                                           FBV          222     A     
 FBV                SA0    X2+B1       C0 = CS + 1                                         FBV          223     A     
 FBV                SA5    X4+B1       NI = [O.CFT] + 1;  I = BN[NI]                       FBV          224     A     
 FBV                SA2    O.BIT                                                           FBV          225     A     
 FBV                MX0    1                                                               FBV          226     A     
 FBV                S"BI"  X2                                                              FBV          227     A     
 FBV                S"EI"  X3+3        EIB = O.IST + 3  */ EDGE INDEX BASE                 FBV          228     A     
 FBV                S"BV"  X1                                                              FBV          229     A     
 FBV                                                                                       FBV          230     A     
 FBV      *         SETUP THE LOOP CONTROL VECTOR FOR THE LIVE EXIT COMPUTATION            FBV          231     A     
 FBV                                                                                       FBV          232     A     
 FBV       CLI1     SA4    "EI"+X5     EI = EIB + I                                        FBV          233     A     
 FBV                SB4    "BI"+X5                                                         FBV          234     A     
 FBV                LX4    -EI.SUIP                                                        FBV          235     A     
 FBV                UX6    B2,X4       NS = NS[EI]                                         FBV          236     A     
 FBV                SA3    B4+X5                                                           FBV          237     A     
 FBV                SA2    "EI"+X4     SI = EIB + SUI[EI]                                  FBV          238     A     
 FBV                LX3    -BI.BVIP    VI = BVI[BIT(2*I)]                                  FBV          239     A     
 FBV                SX7    "BV"+X3     BVA = O.BVT + VI                                    FBV          240     A     
 FBV                SA7    A7+B1       CS = CS + 1;  [CS] = BVA                            FBV          241     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2868    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FBV     
  
 FBV                                                                                       FBV          242     A     
 FBV       CLI2     LX2    -ET.SUCCP   J = SUCC[SI]                                        FBV          243     A     
 FBV                SB3    "BI"+X2                                                         FBV          244     A     
 FBV                SA1    B3+X2                                                           FBV          245     A     
 FBV                SA2    A2+B1       SI = SI + 1                                         FBV          246     A     
 FBV                SB2    B2-B1       NS = NS - 1                                         FBV          247     A     
 FBV                LX1    -BI.BVIP                                                        FBV          248     A     
 FBV                SX6    "BV"+X1     BVA = O.BVT + BVI[BIT(2*J)]                         FBV          249     A     
 FBV                BX7    X0+X6                                                           FBV          250     A     
 FBV                SA7    A7+1        CS = CS + 1;  [CS] = 1S59 + BVA                     FBV          251     A     
 FBV                NZ     B2,CLI2     IF NS " 0                                           FBV          252     A     
 FBV                                                                                       FBV          253     A     
 FBV                SA5    A5+1        NI = NI + 1;  I = BN[NI]                            FBV          254     A     
 FBV                NZ     X5,CLI1     IF [NI] " 0                                         FBV          255     A     
 FBV                MX7    0                                                               FBV          256     A     
 FBV                SA7    A7+B1       CS = CS + 1;  [CS] = 0  */ TERMINATOR               FBV          257     A     
 FBV       CLI      SPACE  1,10                                                            FBV          258     A     
 FBV      *         NOW COMPUTE THE LIVE EXIT VECTORS FOR EACH PROGRAM BLOCK               FBV          259     A     
 FBV                                                                                       FBV          260     A     
 FBV                SA4    BVL                                                             FBV          261     A     
 FBV                SB2    B0          WI = 0        */ WORD INDEX                         FBV          262     A     
 FBV                SB3    X4+B1       VL = BVL + 1  */ LIMIT                              FBV          263     A     
 FBV                SB4    X4+B1       WIF = VL      */ WI TO *UBD* VECTOR                 FBV          264     A     
 FBV                SB5    B3+B3                                                           FBV          265     A     
 FBV                SB5    B5+B3       WIL = 3*VL    */ WI TO LX VECTOR                    FBV          266     A     
 FBV                SB6    B0          N = 0         */ N.ITERATIONS                       FBV          267     A     
 FBV                                                                                       FBV          268     A     
 FBV       CLI3     SA5    A0+         CI = C0;  BVA = [CI]                                FBV          269     A     
 FBV                SX0    0           CHNG = 0                                            FBV          270     A     
 FBV                                                                                       FBV          271     A     
 FBV       CLI4     SA4    X5+B5       LXA = BVA + WIL;  OLX = [LXA]                       FBV          272     A     
 FBV                SA5    A5+1        CI = CI + 1;  BVA = [CI]  */ BV ADDR OF SUC         FBV          273     A     
 FBV                MX7    0           LX = 0                                              FBV          274     A     
 FBV                                                                                       FBV          275     A     
 FBV      *         LX = ! ( ( LX & ^DEF ) ! UBD ) OVER SUCCESSORS OF THE NODE.            FBV          276     A     
 FBV                                                                                       FBV          277     A     
 FBV       CLI5     SA1    X5+B5       LXS = [BVA+WIL]                                     FBV          278     A     
 FBV                SA2    X5+B2       DVS = [BVA+WI]                                      FBV          279     A     
 FBV                SA3    X5+B4       UFS = [BVA+WIF]                                     FBV          280     A     
 FBV                SA5    A5+B1       CI = CI + 1;  BVA = [CI]                            FBV          281     A     
 FBV                BX6    -X2*X1                                                          FBV          282     A     
 FBV                NO                                                                     FBV          283     A     
 FBV                BX1    X6+X3                                                           FBV          284     A     
 FBV                BX7    X1+X7       LX = LX ! ((LXS&^DVS)!UFS)                          FBV          285     A     
 FBV                MI     X5,CLI5     IF [CI] < 0   */ NEXT IS A SUCC ADDR                FBV          286     A     
 FBV                                                                                       FBV          287     A     
 FBV                BX6    X4-X7                                                           FBV          288     A     
 FBV                SA7    A4          [LXA] = LX                                          FBV          289     A     
 FBV                BX0    X0+X6       CHNG = CHNG ! XOR(OLX,LX)                           FBV          290     A     
 FBV                NZ     X5,CLI4     IF [CI] " 0   */ NOT END OF CONTROL VECTOR          FBV          291     A     
 FBV                                                                                       FBV          292     A     
 FBV      *         TEST FOR CONVERGENCE OF LX VECTORS                                     FBV          293     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2869    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FBV     
  
 FBV                                                                                       FBV          294     A     
 FBV                CX6    X0                                                              FBV          295     A     
 FBV                SB6    B6+B1       N = N + 1                                           FBV          296     A     
 FBV                NZ     X6,CLI3     IF COUNT( CHNG ) " 0                                FBV          297     A     
 FBV                                                                                       FBV          298     A     
 FBV      *         ADVANCE TO NEXT BIT VECTOR WORD                                        FBV          299     A     
 FBV                                                                                       FBV          300     A     
 FBV                SB2    B2+B1       WI = WI + 1                                         FBV          301     A     
 FBV                SB4    B4+B1       WIF = WIF + 1                                       FBV          302     A     
 FBV                SB5    B5+B1       WIL = WIL + 1                                       FBV          303     A     
 FBV                SB6    B0          N = 0                                               FBV          304     A     
 FBV                LT     B2,B3,CLI3  IF WI < VL                                          FBV          305     A     
 FBV                EQ     CLI                                                             FBV          306     A     
 FBV                                                                                       FBV          307     A     
 FBV                IFLT   *-FBV,100B,1                                                    FBV          308     A     
 FBV                BSS    FBV+100B-*                                                      FBV          309     A     
 FBV                                                                                       FBV          310     A     
 FBV                END                                                                    FBV          311     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FBV     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FBV                        311       311
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO      *DECK     GPO                                                                    GPO            1     A     
 GPO                IDENT  GPO                                                             GPO            2     A     
 GPO       GPO      TITLE  GPO - GLOBAL PROGRAM OPTIMIZATION                               GPO            3     A     
 GPO      *CALL     SSTCALL                                                                GPO            4     A     
 GPO       B=GPO    RPVDEF                                                                 GPO            5     A     
 GPO                PASS2TM                                                                GPO            6     A     
 GPO                                                                                       GPO            7     A     
 GPO      *IF       DEF,GPO,2                                                              GPO            8     A     
 GPO                TRACER (GPO,FUD,RDD,AUV,MIP,FXI,SHB,MPB)                               GPO            9     A     
 GPO                TRACER (CIF,FIM)                                                       GPO           10     A     
 GPO       GPO      SPACE  2                                                               GPO           11     A     
 GPO      **        GPO - GLOBAL PROGRAM OPTIMIZATION                                      GPO           12     A     
 GPO      *                                                                                GPO           13     A     
 GPO      *         S. I. JASIK - CDC - SUNNYVALE - WINTER 73                              GPO           14     A     
 GPO      *                                                                                GPO           15     A     
 GPO      *         ON ENTRY TO *GPO* THE FIRST PASS OF FIVE HAS BEEN PERFORMED            GPO           16     A     
 GPO      *         BY *PRE*.  IT CONSISTS OF SUBDIVIDING THE INTERMEDIATE *TEXT*          GPO           17     A     
 GPO      *         INTO BASIC BLOCKS AND WRITING THEM TO A RANDOM FILE,                   GPO           18     A     
 GPO      *         COLLECTING CONTROL FLOW INFORMATION, AND BUILDING A DICTIONARY         GPO           19     A     
 GPO      *         OF REFERENCED VARIABLES FOR USE/DEFINITION ANALYSIS.                   GPO           20     A     
 GPO      *         IN THE INITIALIZATION OF *GPO* THE USE/DEF DICTIONARY IS               GPO           21     A     
 GPO      *         RESOLVED AND THE CONTROL FLOW INFORMATION PROCESSED TO FIND            GPO           22     A     
 GPO      *         LOOPS, ETC.                                                            GPO           23     A     
 GPO      *           PASS 2 READS THE RANDOM FILE SEQUENTIALLY TO FORM THE                GPO           24     A     
 GPO      *         USE/DEF BIT VECTORS FOR EACH BLOCK, AND THEN PROCESS"S THEM            GPO           25     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2870    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO      *         TO FORM THE *LIVE EXIT* VECTORS, WHICH ARE USED TO ELEMINATE           GPO           26     A     
 GPO      *         DEAD DEFINITIONS AND TO DETERMINE ENTRY/EXIT CONDITIONS                GPO           27     A     
 GPO      *         DURING REGISTER ASSIGNMENT.                                            GPO           28     A     
 GPO      *           PASS 3  PROCESSES THE PROGRAM LOOPS IN AN INNER TO OUTER             GPO           29     A     
 GPO      *         ORDER, MOVING OUT INVARIANT AND STRENGTH REDUCABLE CODE,               GPO           30     A     
 GPO      *         ASSIGNING REGISTERS ACCROSS THE LOOP AND PROPAGATING THE               GPO           31     A     
 GPO      *         ENTRY/EXIT CONDITIONS OUT.  FINALLY THE REMAINING STRAIGHT             GPO           32     A     
 GPO      *         LINE CODE IS PROCESSED AS A SERIES OF EXTENDED BASIC BLOCKS            GPO           33     A     
 GPO      *         AND CODED.                                                             GPO           34     A     
 GPO      *           PASS 4  REORDERS THE CODED BLOCKS TO BRING THEM BACK TO              GPO           35     A     
 GPO      *         SOURCE PROGRAM ORDER, ASSIGNS ADDRESS"S, AND PACKS THE                 GPO           36     A     
 GPO      *         COMPILER CREATED TEMPORARIES.                                          GPO           37     A     
 GPO      *           PASS 5  IS THE ASSEMBLY PASS.                                        GPO           38     A     
 GPO                                                                                       GPO           39     A     
 GPO      **        DEBUGGING SNAP LABELS -                                                GPO           40     A     
 GPO      *                                                                                GPO           41     A     
 GPO      *         TRACER (GPO,FUD,RDD,MII,FII,MIP,FXI,MIE,SHB,DIF,EIE,MPB)               GPO           42     A     
 GPO                SPACE  3                                                               GPO           43     A     
 GPO       OF.MP    EQU    3           *MATERIALIZE* BIT IN *FLG* FIELD OF WORD B          GPO           44     A     
 GPO      *                            OF LOOP GENERATED LABELS ( *XX* ) .                 GPO           45     A     
 GPO                                                                                       GPO           46     A     
 GPO                LIST   -R,X                                                            GPO           47     A     
 GPO                                                                                       GPO           48     A     
 GPO                TABLES BLK,TXT,GST,UDI,TET,PIT                                         GPO           49     A     
 GPO                TABLES BST,IIT,MLT,MOD,RND,PSI,RXI                                     GPO           50     A     
 GPO                                                                                       GPO           51     A     
 GPO      *CALL     CFTBLD                                                                 GPO           52     A     
 GPO      *CALL     IOTBLD                                                                 GPO           53     A     
 GPO      *CALL     UDTBLD                                                                 GPO           54     A     
 GPO      *CALL     GPOCOM                                                                 GPO           55     A     
 GPO       FLAGS    TITLE  VARIABLES                                                       GPO           56     A     
 GPO      *         GLOBAL FLAGS                                                           GPO           57     A     
 GPO                                                                                       GPO           58     A     
 GPO                ENTRY  DMASK                                                           GPO           59          I
          -FCC0509
 GPO                ENTRY  DMASK,O.UDT                                                     FCC0509        6     A     
 GPO       DMASK    BFMW   D,(STRS,USES)     FIELD CLEAR MASK                              GPO           60     A     
 GPO                                                                                       GPO           61     A     
 GPO      *                        PRE                                                     GPO           62     A     
 GPO       N.GL0    ENTRY. =XN.GL      NEXT AVAIL GL-1 FOR MULT PRED LOOPS                 GPO           63     A     
 GPO      *                        AUT                                                     GPO           64     A     
 GPO                USE    /BVINFO/                                                        GPO           65     A     
 GPO       VL       BSS    1           BIT VECTOR LENGTH                                   GPO           66     A     
 GPO       N.VAR    ENTRY. 0           N. VARS IN *UDT*                                    GPO           67     A     
 GPO       BVL      ENTRY. 0           VL - 1                                              GPO           68     A     
 GPO       RCV      BSSZ   1           =1 IF *UDT* CONTAINS COMMON VARIABLES               GPO           69     A     
 GPO                USE    0                                                               GPO           70     A     
 GPO      *                        DGS                                                     GPO           71     A     
 GPO       CBN      ENTRY. 2           CURRENT BLOCK NUMBER                                GPO           72     A     
 GPO       NPB      ENTRY. 3           N.PROGRAM BLOCKS                                    GPO           73     A     
 GPO       M.GRL    ENTRY. 0           MAX GRAPH LENGTH                                    GPO           74     A     
 GPO       N.DG     ENTRY. 0           N.DERIVED GRAPHS ( MAX LOOP NESTING LEVEL )         GPO           75     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2871    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO       GIC      ENTRY. 0           GRAPHS IN CORE FLAG , =0 IF INCORE                  GPO           76     A     
 GPO       O.IST    ENTRY. =XPRE       FWA OF GRAPH STRUCTURE TABLES AFTER MOVE DO         GPO           77     A     
 GPO       M.LP     ENTRY. 0           MAX N.LOOPS IN A GRAPH                              FCC0392       12     A     
 GPO       N.FTH    ENTRY. 0           N. FTH LOOPS                                        FCC2113        7     A     
 GPO                                                                                       GPO           78     A     
 GPO      *                        GPO                                                     GPO           79     A     
 GPO       M.BBL    ENTRY. 60B         MAX BASIC BLOCK LENGTH                              GPO           80     A     
 GPO                                                                                       GPO           81          I
          -FCC0392
 GPO       M.EBL    ENTRY. 0           MAX EXTENDED BLOCK LENGTH                           GPO           82     A     
 GPO       N.GT     ENTRY. 0           N. GLOBAL TEMPS ( IT."S )                           GPO           83     A     
 GPO       O.BIT    ENTRY. O.UDB       FWA OF BLOCK INDEX TABLE                            GPO           84     A     
 GPO       L.BIT    ENTRY. 8           LENGTH                                              GPO           85     A     
 GPO       O.BVT    ENTRY. 0           FWA OF BIT VECTOR TABLE                             GPO           86     A     
 GPO       L.BVT    ENTRY. 0           LENGTH                                              GPO           87     A     
 GPO       L.SBV    BSS    1           LENGTH OF SPECIAL BIT VECTORS                       GPO           88     A     
 GPO       L.PTXT   ENTRY. 0           LENGTH OF *FTNOPT* AT START OF *GPO*                GPO           89     A     
 GPO       O.LCT    ENTRY. 0           FWA OF LABEL CHANGE TABLE                           FCC1319       18     A     
 GPO       L.LCT    ENTRY. 0           LENGTH  ( SET IN *CFA* )                            FCC1319       19     A     
 GPO       O.ELT    ENTRY. 0           ORIGIN OF ELIMINATED LABEL DEF TABLE                FCC2113        8     A     
 GPO       L.ELT    ENTRY. 0           LENGTH      24/,18/IH PROG LAB,18/H OF GL           FCC2113        9     A     
 GPO      *                        PCC                                                     GPO           90     A     
 GPO       O.SEQ    ENTRY. 0           FWA OF BLOCK BEING PROCESSED                        GPO           91     A     
 GPO       L.SEQ    ENTRY. 0           LEN OF BLOCK BEING PROCESSED                        GPO           92     A     
 GPO       BN       ENTRY. 0           *BIT* INDEX OF BLOCK NUMBER                         GPO           93     A     
 GPO       BSI      ENTRY. 0           *BST* INDEX                                         GPO           94     A     
 GPO       BSW      ENTRY. 0           WORD 2 OF *BST* FOR CURRENT BLOCK                   GPO           95     A     
 GPO      *                        SHB                                                     GPO           96     A     
 GPO       L.HB     ENTRY.             LENGTH OF HOLDING BLOCK                             GPO           97     A     
 GPO                                                                                       GPO           98     A     
 GPO      *         INTERVAL STRUCTURE TABLE POINTERS                                      GPO           99     A     
 GPO                                                                                       GPO          100     A     
 GPO       O.BTT    BSS    1           FWA OF BLOCK TRANSITION TABLE                       GPO          101     A     
 GPO       O.HNT    BSS    1           FWA HEADER NODE TABLE                               FCC0392       13     A     
 GPO       L.HNT    BSS    1           LWA+1 OF *HNT*                                      FCC0392       14     A     
 GPO      *                        IGP                                                     GPO          102     A     
 GPO       GP       VFD    42/,18/=XPRE      GRAPH POINTER                                 GPO          103     A     
 GPO       EIT      BSS    1           EDGE INDEX TABLE ADDRESS                            GPO          104     A     
 GPO       N.LP     BSS    1           N. UNPROCESSED LOOPS IN CURRENT GRAPH               GPO          105     A     
 GPO       IBA      VFD    42/,18/COLA+1,60/1  INTERVAL BASE ADDR ( HEADER NODE )          GPO          106     A     
 GPO       NN       EQU    IBA+1       N. NODES IN INTERVAL                                GPO          107     A     
 GPO                                                                                       GPO          108     A     
 GPO       BBV      CON    0           BUILD BIT VECTOR FLAG FOR *FUD*                     GPO          109     A     
 GPO      *                            =0 IF TO FORM BIT VECTORS.                          GPO          110     A     
 GPO       FLAGS    EJECT                                                                  GPO          111     A     
 GPO       NBIP     ENTRY. 0           "0 IF LOOP CONTAINS NON-BASE *IP*S                  FCC0514       21     A     
 GPO       PSLC     ENTRY. 0           =0 IF PROCESSING STRAIGHT LINE CODE                 FCC0514       22          I
          -FCC0675
 GPO                                                                                       FCC0514       23     A     
 GPO      *         LOCAL VARIABLES                                                        GPO          112     A     
 GPO                                                                                       GPO          113     A     
 GPO       HBI      BSS    1           BN OF HOLDING BLOCK                                 GPO          114          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2872    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
          -FCC0675
 GPO       HBI      ENTRY. 0           BN OF HOLDING BLOCK, 0 IF OUTSIDE ALL LPS           FCC0675        9     A     
 GPO                BSS    1           R1 OF HEADER, 12/P(OC.BOS),18/LINE,30/BN            GPO          115     A     
 GPO       MRA.X    BSS    1           *MRA* NOT REDUCED BY EXT REFS IN CASE ALL           FCC1254        7     A     
 GPO      *                            ARE MOVED OUT OF THE LOOP AS INVARIANT              FCC1254        8     A     
 GPO       UXR      BSS    2           =1 IF EXT REFS IN BLOCK / REGION                    FCC0448       31     A     
 GPO       FTH      BSSZ   1           < 0 IF FALL THROUGH TO HEADER LOOP                  FCC0408        9     A     
 GPO                                                                                       GPO          116     A     
 GPO                USE    /TABLES/                                                        GPO          117     A     
 GPO                BSS    100B        SCRATCH FOR *BDT* , ETC                             GPO          118     A     
 GPO                                                                                       GPO          119     A     
 GPO      *                        IRP                                                     GPO          120     A     
 GPO       LGL      BSS    1           LOOP GENERATED LABEL, GLB = GEN LAB,                GPO          121          I
          -FCC0909
 GPO      *                            LL = LOOP LAB,  42/GLB-LL,18/LL                     GPO          122          I
          -FCC0909
 GPO       NTP      BSS    1           N. TERMINAL POLYNOMIALS                             GPO          123     A     
 GPO       PIC      BSS    1           POLYNOMIAL INCREMENT FORMULA LIST POINTER           GPO          124     A     
 GPO       TTI      BSS    1           *TET* INDEX FOR CURRENT BLOCK ( *UPB* )             GPO          125     A     
 GPO                                                                                       GPO          126     A     
 GPO      *                        FUD                                                     GPO          127     A     
 GPO       UXR      BSS    2           =1 IF EXT REFS IN BLOCK / REGION                    GPO          128          I
          -FCC0448
 GPO       BVI      BSS    1           BIT VECTOR INDEX                                    GPO          129     A     
 GPO                                                                                       GPO          130     A     
 GPO      *                        CHB                                                     GPO          131     A     
 GPO       VI2      BSS    2           *BVT* INDICES OF THE SECOND AND FIRST BLOCK         GPO          132     A     
 GPO       BSIS     BSS    1           30/BST OF PRED,30/BSI OF CURRENT BLOCK              GPO          133     A     
 GPO                                                                                       GPO          134     A     
 GPO      *                        MII                                                     GPO          135     A     
 GPO       AN       BSS    1           1S59 IF BLOCK IS AN ARTICULATION NODE               GPO          136     A     
 GPO       UBD      BSS    1           BLOCK *UBD* BIT VECTOR ADDRESS                      GPO          137     A     
 GPO       IJP      BSS    2           INVARIANT JUMP ENCOUNTERED FLAG                     GPO          138     A     
 GPO       UIC      EQU    IJP+1       UNSAFE INVARIANT CODE ENCOUNTERED                   GPO          139     A     
 GPO                                                                                       GPO          140     A     
 GPO      *                        FII                                                     GPO          141     A     
 GPO       IIL      BSS    1           INITIAL *IIT* LENGTH                                GPO          142     A     
 GPO                                                                                       GPO          143     A     
 GPO      *                        MIE                                                     GPO          144     A     
 GPO       MINC     BSS    1           MIN COST *IP* VALUES THAT WE WILL MOVE              GPO          145     A     
 GPO       IC       BSS    1           INSTRUCTION CHAIN                                   GPO          146     A     
 GPO       ISV      BSS    1           SAVED VALUE OF I ( MULTIPLE DEF"S )                 FCC1254        9     A     
 GPO       TBB      BSS    1           FWA OF HOLDING BLOCK                                GPO          147     A     
 GPO                                                                                       GPO          148     A     
 GPO      *                        CIF                                                     GPO          149     A     
 GPO       CAS      BSS    1           *CA* OF TERMINAL POLYNOMIAL                         GPO          150     A     
 GPO       TSC      BSS    1           TEMP STORE CHAIN POINTER                            GPO          151     A     
 GPO       CNI      EQU    TSC         CLASS NUMBER INCREMENT                              FCC0514       24     A     
 GPO                                                                                       GPO          152     A     
 GPO      *                        FIM                                                     GPO          153     A     
 GPO       SC       BSS    1           *TXT* INDEX OF *ST*                                 GPO          154     A     
 GPO       J        BSS    1           *UDI* INDEX OF *ST*                                 GPO          155     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2873    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO       EV       BSS    1           EXPRESSION VALUE                                    GPO          156     A     
 GPO       PI       BSS    2           POLYNOMIAL INCREMENT FORMULA INDEX                  GPO          157     A     
 GPO       ITB      BSS    1           L.IIT WHEN START TO PROCESS A *ST*                  GPO          158     A     
 GPO                USE    0                                                               GPO          159     A     
 GPO       STRUCT   TITLE  TABLE FORMATS                                                   GPO          160     A     
 GPO      *         BS. - BLOCK STATUS INFORMATION WORD ( *MII* TO *UPB* )                 GPO          161     A     
 GPO      *         INITIALLY THE *BS* WORD CONTAINS THE *IM* WORD OF THE BLOCK            GPO          162     A     
 GPO                                                                                       GPO          163     A     
 GPO                DESCRIBE BS.,60                                                        GPO          164     A     
 GPO                DEFINE 2                                                               GPO          165     A     
 GPO       NIS      DEFINE 10          P(N.INCREMENT STORES/N.POLYNOMIAL INCRS)            GPO          166     A     
 GPO       BM       DEFINE 1           BLOCK MODIFIED                                      GPO          167     A     
 GPO       NTET     DEFINE 11          N.TET"S IN BLOCK                                    GPO          168     A     
 GPO       STC      DEFINE 18          *RD* STORE CHAIN                                    GPO          169     A     
 GPO       IIC      DEFINE 18          INVARIANT / INTEGER POLYNOMIAL CHAIN                GPO          170     A     
 GPO       LINK     SPACE  3,14                                                            GPO          171     A     
 GPO      *         I. - LINK INFORMATION WORD FORMAT DURING *GPO*                         GPO          172     A     
 GPO      *         THE LINK WORD IS IN I. FORMAT FROM *MII* TO *UPB*                      GPO          173     A     
 GPO                                                                                       GPO          174     A     
 GPO                DESCRIBE I.,60                                                         GPO          175     A     
 GPO       INV      DEFINE 1           INVARIANT INSTRUCTION                               GPO          176     A     
 GPO       M        DEFINE 1           MARKED ( IN *DIF* )                                 GPO          177     A     
 GPO       TI       DEFINE 1           TERMINAL EXPRESSION                                 GPO          178     A     
 GPO                                                                                       GPO          179     A     
 GPO       IA       DEFINE 1           INTEGER ADD                                         GPO          180     A     
 GPO       IP       DEFINE 1           INTEGER POLYNOMIAL                                  GPO          181     A     
 GPO                DEFINE 1                                                               GPO          182          I
          -FCC0717
 GPO       AIP      DEFINE 1           ABNORMAL IP, TERMINAL IP USES OLD VALUE OF          FCC0717        6     A     
 GPO      *                            RD VAR & IS PAST AN INCR OF IT.                     FCC0717        7     A     
 GPO       COST     DEFINE 9           *COST* OF AN *IP*                                   GPO          183     A     
 GPO       USES     DEFINE 9           COUNT OF REMOVED USES                               GPO          184     A     
 GPO       IIC      DEFINE 18          INV INST CHAIN, ETC                                 GPO          185     A     
 GPO       HBP      DEFINE 18          HOLDING BLOCK POINTER                               GPO          186     A     
 GPO                                                                                       GPO          187     A     
 GPO       LDI      DEQU   HBP         *UDI* INDEX OF *LD* IF INST IS *IA* / *IP*          GPO          188     A     
 GPO       STC      DEQU   IIC         STORE CHAIN OF RECURSIVELY DEFINED VARS             GPO          189     A     
 GPO                                                                                       GPO          190     A     
 GPO       C1       DEQU   COST,1      LOW BIT OF FIELD                                    GPO          191     A     
 GPO                                                                                       GPO          192     A     
 GPO       IAIP     DEQU   IP,2        IA & IP BITS                                        GPO          193     A     
 GPO       HNT      SPACE  3                                                               FCC0392       15     A     
 GPO      **        H. - HEADER NODE TO *HB* TRANSITION TABLE ( IGP, FXI )                 FCC0392       16     A     
 GPO                                                                                       FCC0392       17     A     
 GPO                DESCRIBE H.,60     HNW(NIP,HBI,HNI)                                    FCC0392       18     A     
 GPO                DEFINE 6                                                               FCC0392       19     A     
 GPO       NIP      DEFINE 18          N.INTERNAL PRED OF INTERVAL HEADER                  FCC0392       20     A     
 GPO       HBI      DEFINE 18          BIT INDEX OF HB HEADER                              FCC0392       21     A     
 GPO       HNI      DEFINE 18          BIT INDEX OF HEADER OF INTERVAL                     FCC0392       22     A     
 GPO                                                                                       GPO          194     A     
 GPO                LIST   R,-X                                                            GPO          195     A     
 GPO       AFB      TITLE  SUBROUTINES                                                     GPO          196     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2874    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO      **        AFB - ALLOCATE FIXED BLOCK AT LOW MEMORY                               GPO          197     A     
 GPO      *                                                                                GPO          198     A     
 GPO      *         ENTRY  (X1) = LEN , OF BLOCK                                           GPO          199     A     
 GPO      *         EXIT   (X6) = FWA OF BLOCK                                             GPO          200     A     
 GPO      *                (X3) = (X7) = LEN                                               GPO          201     A     
 GPO                                                                                       GPO          202     A     
 GPO       AFB      ROUTINE                                                                GPO          203     A     
 GPO                ALLOC  BLK,X1      ALLOC( BLK , LEN )                                  GPO          204     A     
 GPO                IX6    X2+X3                                                           GPO          205     A     
 GPO                SA6    A2          O.BLK = O.BLK + LEN                                 GPO          206     A     
 GPO                SA6    LM          LM = O.BLK                                          GPO          207     A     
 GPO                MX7    0                                                               GPO          208     A     
 GPO                SA7    A3          L.BLK = 0                                           GPO          209     A     
 GPO                BX6    X2                                                              GPO          210     A     
 GPO                BX7    X3                                                              GPO          211     A     
 GPO                EQ     AFB                                                             GPO          212     A     
 GPO       STO      SPACE  3                                                               GPO          213     A     
 GPO      **        STO - SET MANAGED TABLES ORIGIN ( LOW MEMORY LIMIT )                   GPO          214     A     
 GPO      *                                                                                GPO          215     A     
 GPO      *         ENTRY  (X7) = NLM , NEW LOW MEMORY ADDRESS                             GPO          216     A     
 GPO      *         EXIT   LM = O.TXT = NLM , L.TXT = 0                                    GPO          217     A     
 GPO                                                                                       GPO          218     A     
 GPO       STO      ROUTINE                                                                GPO          219     A     
 GPO                SA5    =XLM                                                            GPO          220     A     
 GPO                CALL   AMU=        ACCUMULATE MEMORY USED                              GPO          221     A     
 GPO                IX6    X6+X5       NEW = LM + MU                                       GPO          222     A     
 GPO                SA4    =XP2.FL                                                         GPO          223     A     
 GPO                IX0    X6-X4                                                           GPO          224     A     
 GPO                MI     X0,STO1     P2.FL = MAX( NEW , P2.FL )                          GPO          225     A     
 GPO                SA6    A4+                                                             GPO          226     A     
 GPO                                                                                       GPO          227     A     
 GPO       STO1     SA7    A5          LM = NLM                                            GPO          228     A     
 GPO                SA7    =XO.TXT     O.TXT = LM                                          GPO          229     A     
 GPO                MX6    0                                                               GPO          230     A     
 GPO                SA6    =XL.TXT     L.TXT = 0                                           GPO          231     A     
 GPO                SA6    =XMU        MU = 0                                              GPO          232     A     
 GPO                EQ     STO                                                             GPO          233     A     
 GPO       WTB      SPACE  2                                                               GPO          234     A     
 GPO      **        WTB - WRITE *TXT* BLOCK BACK TO *BLK*                                  GPO          235     A     
 GPO                                                                                       GPO          236     A     
 GPO       WTB      ROUTINE                                                                GPO          237     A     
 GPO                SA1    O.TXT                                                           GPO          238     A     
 GPO                SA2    L.TXT                                                           GPO          239     A     
 GPO                SA3    X1+B1       R2 = [O.TXT+1]                                      GPO          240     A     
 GPO                MX4    -R2.TXTLL                                                       GPO          241     A     
 GPO                LX3    -R2.TXTLP                                                       GPO          242     A     
 GPO                BX5    X4*X3                                                           GPO          243     A     
 GPO                IX6    X5+X2       TXTL[R2] = L.TXT                                    GPO          244     A     
 GPO                LX6    R2.TXTLP                                                        GPO          245     A     
 GPO                SA6    A3                                                              GPO          246     A     
 GPO                CALL   WMB         REWRITE THE BLOCK                                   GPO          247     A     
 GPO                SX6    4                                                               GPO          248     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2875    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA6    L.TXT       L.TXT = 4                                           GPO          249     A     
 GPO                EQ     WTB                                                             GPO          250     A     
 GPO       PCC      TITLE  PCC - PROCESS COROUTINE CALL                                    GPO          251     A     
 GPO      **        PCC - PROCESS COROUTINE CALL                                           GPO          252     A     
 GPO      *                CALL *RTN* FOR ALL BLOCKS IN THE *BST* BUT THE FIRST.           GPO          253     A     
 GPO      *                                                                                GPO          254     A     
 GPO      *         ENTRY  (X7) = RTN , SUBROUTINE NAME                                    GPO          255     A     
 GPO      *                (X5) = BSFM , BLOCK STATUS FIELD MASK                           GPO          256     A     
 GPO      *                IF = 0, THEN CALL *RTN* FOR ALL BLOCKS.                         GPO          257     A     
 GPO      *                                                                                GPO          258     A     
 GPO      *         THE CALLED COROUTINE IS ENTERED WITH -                                 GPO          259     A     
 GPO      *                (X0) = R-NUMBER EXTRACTOR MASK                                  GPO          260     A     
 GPO      *                (X4) = BSW , SECOND WORD OF *BST* ENTRY                         GPO          261     A     
 GPO      *                (X5) = O.SEQ = FWA OF BLOCK                                     GPO          262     A     
 GPO      *                (L.SEQ) = BLOCK LENGTH                                          GPO          263     A     
 GPO      *                (BN) = *BIT* INDEX OF BLOCK                                     GPO          264     A     
 GPO       PCC      SPACE  2                                                               GPO          265     A     
 GPO       PCCA     SA5    O.SEQ                                                           GPO          266     A     
 GPO                RJ     0                                                               GPO          267     A     
 GPO                BSS    1           BSFM SAVE WORD                                      GPO          268     A     
 GPO                                                                                       GPO          269     A     
 GPO       PCC      ENTRY. **                                                              GPO          270     A     
 GPO                SA1    PCCA                                                            GPO          271     A     
 GPO                LX6    X5                                                              GPO          272     A     
 GPO                BX7    X1+X7                                                           GPO          273     A     
 GPO                SA6    A1+B1                                                           GPO          274     A     
 GPO                SA7    PCC5        [PCC5] = *  RJ RTN *                                GPO          275     A     
 GPO                SX6    B1+B1       BSI = 2                                             GPO          276     A     
 GPO                RJ     *+1         VOID INSTRUCTION STACK                              FCCA596       15     A     
 GPO       +        EQ     *                                                               FCCA596       16     A     
 GPO                                                                                       GPO          277     A     
 GPO       PCC1     SA5    O.BST                                                           GPO          278     A     
 GPO                IX7    X5+X6                                                           GPO          279     A     
 GPO                SA1    X7          BAW = BST(BSI)                                      GPO          280     A     
 GPO                SA2    X7+1        BSW = BST(BSI+1)                                    GPO          281     A     
 GPO                SA3    PCCA+1                                                          GPO          282     A     
 GPO                ZR     X1,PCC      IF BAW = 0    */ END OF *BST*                       GPO          283     A     
 GPO                ZR     X3,PCC2     IF BSFM = 0   */ NO FIELD MASK                      GPO          284     A     
 GPO                BX4    X3*X2                                                           GPO          285     A     
 GPO                ZR     X4,PCC6     IF BSFM[BSW] = 0  */ FIELDS NOT SET                 GPO          286     A     
 GPO                                                                                       GPO          287     A     
 GPO       PCC2     BX7    X2                                                              GPO          288     A     
 GPO                SA6    BSI                                                             GPO          289     A     
 GPO                LX1    -BA.BIP                                                         GPO          290     A     
 GPO                SX6    X1                                                              GPO          291     A     
 GPO                SA7    BSW                                                             GPO          292     A     
 GPO                LX1    59-BA.BLKP+BA.BIP                                               GPO          293     A     
 GPO                SA6    BN          BN = BI[BAW]                                        GPO          294     A     
 GPO                MI     X1,PCC3     IF BLK[BAW]   */ BLOCK IS IN *BLK*                  GPO          295     A     
 GPO                                                                                       GPO          296     A     
 GPO                CALL   RTB         READ IT INTO *BLK*                                  GPO          297     A     
 GPO                EQ     PCC4                                                            GPO          298     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2876    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       GPO          299     A     
 GPO       PCC3     LX1    1+BA.BLKP-BA.FWAP                                               GPO          300     A     
 GPO                SX6    X1                                                              GPO          301     A     
 GPO                SA6    O.SEQ       O.SEQ = FWA[BAW]                                    GPO          302     A     
 GPO                LX1    BA.FWAP-BA.LENP                                                 GPO          303     A     
 GPO                SX7    X1+                                                             GPO          304     A     
 GPO                SA7    L.SEQ                                                           GPO          305     A     
 GPO       PCC      SPACE  1,10                                                            GPO          306     A     
 GPO      *         SETUP REGISTERS AND CALL COROUTINE                                     GPO          307     A     
 GPO                                                                                       GPO          308     A     
 GPO       PCC4     MX0    -R1.RIL+1                                                       GPO          309     A     
 GPO                SA4    BSW                                                             GPO          310     A     
 GPO                LX0    1                                                               GPO          311     A     
 GPO       PCC5     SA5    O.SEQ                                                           GPO          312     A     
 GPO                RJ     *           CALL COROUTINE                                      GPO          313     A     
 GPO                SA1    O.BST                                                           GPO          314     A     
 GPO                SA2    BSI                                                             GPO          315     A     
 GPO                SA3    BSW                                                             GPO          316     A     
 GPO                IX5    X1+X2                                                           GPO          317     A     
 GPO                BX7    X3                                                              GPO          318     A     
 GPO                SX6    X2+                                                             GPO          319     A     
 GPO                SA7    X5+1        BST(BSI+1) = BSW                                    GPO          320     A     
 GPO                                                                                       GPO          321     A     
 GPO       PCC6     SX6    X6+2        BSI = BSI + 2                                       GPO          322     A     
 GPO                EQ     PCC1                                                            GPO          323     A     
 GPO       SRI      SPACE  3,14        SRI                                                 GPO          324     A     
 GPO      **        SRI/SII - STORE RLIST/INCREMENT INSTRUCTION                            GPO          325     A     
 GPO      *                                                                                GPO          326     A     
 GPO      *         ENTRY  (B2,X6,X7) = OC, R1, R2                                         GPO          327     A     
 GPO      *                (B6,B7) = TI, TB ( BLOCK STORE INDEX , BLOCK FWA )              GPO          328     A     
 GPO      *                                                                                GPO          329     A     
 GPO      *         EXIT   (X7) = 0 , TI = TI + 4                                          GPO          330     A     
 GPO      *                                                                                GPO          331     A     
 GPO      *         USES   A - 4, 6, 7   X - 4, 6, 7                                       GPO          332     A     
 GPO                                                                                       GPO          333     A     
 GPO       SRI      ENTRY. **                                                              GPO          334     A     
 GPO                SA4    =XF.RDT+B2                                                      GPO          335     A     
 GPO                PX6    B2,X6                                                           GPO          336     A     
 GPO                SA6    B7+B6       TA = TB + TI;  [TA] = PACK(OC,R1)                   GPO          337     A     
 GPO                SB6    B6+4        TI = TI + 4                                         GPO          338     A     
 GPO                SA7    A6+B1       [TA+1] = R2                                         GPO          339     A     
 GPO                BX6    X4                                                              GPO          340     A     
 GPO                SA6    A7+B1       [TA+2] = RDT(OC)                                    GPO          341     A     
 GPO                SX7    0                                                               GPO          342     A     
 GPO                SA7    A6+B1       [TA+3] = 0                                          GPO          343     A     
 GPO                EQ     SRI                                                             GPO          344     A     
 GPO                                                                                       GPO          345     A     
 GPO       SII      ROUTINE                                                                GPO          346     A     
 GPO                SA4    F.RDT+B2                                                        GPO          347     A     
 GPO                PX6    B2,X6                                                           GPO          348     A     
 GPO                SA6    B7+B6       TA = TB + TI;  [TA] = PACK(OC,R1)                   GPO          349     A     
 GPO                SB6    B6+4        TI = TI + 4                                         GPO          350     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2877    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SX6    B1                                                              GPO          351     A     
 GPO                SA7    A6+B1       [TA+1] = R2                                         GPO          352     A     
 GPO                LX6    D.INCP                                                          GPO          353     A     
 GPO                MX7    0                                                               GPO          354     A     
 GPO                BX6    X6+X4                                                           GPO          355     A     
 GPO                SA6    A7+B1       [TA+2] = RDT(OC) ! *INC*                            GPO          356     A     
 GPO                SA7    A6+B1       [TA+3] = 0                                          GPO          357     A     
 GPO                EQ     SII                                                             GPO          358     A     
 GPO       SMI      SPACE  3,14                                                            FCC0656        9     A     
 GPO      **        SMI - STORE MEMORY REFERENCE INSTRUCTION, SET FP/LVL BITS              FCC0656       10     A     
 GPO      *                IN DESCRIPTOR.                                                  FCC0656       11     A     
 GPO      *                                                                                FCC0656       12     A     
 GPO      *         ENTRY/EXIT - SAME AS *SRI/SII*                                         FCC0656       13     A     
 GPO                                                                                       FCC0656       14     A     
 GPO       SMI      ROUTINE                                                                FCC0656       15     A     
 GPO                SA4    F.RDT+B2    D = RDT(OC)                                         FCC0656       16     A     
 GPO                PX6    B2,X6                                                           FCC0656       17     A     
 GPO                SA6    B7+B6       TA = TB + TI;  [TA] = PACK(OC,R1)                   FCC0656       18     A     
 GPO                SA7    A6+B1       [TA+1] = R2                                         FCC0656       19     A     
 GPO                BX6    X4                                                              FCC0656       20     A     
 GPO                LX7    1                                                               FCC0656       21     A     
 GPO                SA4    O.SYM                                                           FCC0656       22     A     
 GPO                SB6    X7+B1                                                           FCC0656       23     A     
 GPO                SB2    X4                                                              FCC0656       24     A     
 GPO                SA4    B2-B6       WORDB = [O.SYM-2*IH[R2]-1]                          FCC0656       25     A     
 GPO                LX4    -P.FPB                                                          FCC0656       26     A     
 GPO                SX7    B1                                                              FCC0656       27     A     
 GPO                BX7    X7*X4                                                           FCC0656       28     A     
 GPO                LX7    D.FPP       FP[D] = FP[WORDB]                                   FCC0656       29     A     
 GPO                BX6    X7+X6                                                           FCC0656       30     A     
 GPO                SX7    B1+B1                                                           FCC0656       31     A     
 GPO                BX7    X7*X4                                                           FCC0656       32     A     
 GPO                LX7    D.L2P-1                                                         FCC0656       33     A     
 GPO                BX6    X7+X6       L2[D] = L2[WORDB]                                   FCC0656       34     A     
 GPO                SA6    A7+B1       [TA+2] = D                                          FCC0656       35     A     
 GPO                MX7    0                                                               FCC0656       36     A     
 GPO                SA7    A6+B1       [TA+3] = 0                                          FCC0656       37     A     
 GPO                SB6    A7+B1                                                           FCC0656       38     A     
 GPO                SB6    B6-B7       TI = TI + 4                                         FCC0656       39     A     
 GPO                EQ     SMI                                                             FCC0656       40     A     
 GPO       COL      TITLE  COL - CODE OPTIMIZABLE LOOP ( OPT=1 )                           GPO          359     A     
 GPO      **        COL - CODE OPTIMIZABLE LOOP ( OPT=1 )                                  GPO          360     A     
 GPO      *                                                                                GPO          361     A     
 GPO      *         PROCESS INNERMOST *DO* LOOPS THAT ARE SINGLE ENTRY/ SINGLE             GPO          362     A     
 GPO      *         EXIT, AND HAVE NO EXTERNAL REFERENCES OR BACKWARDS BRANCHES.           GPO          363     A     
 GPO      *         OPTIMIZATIONS PERFORMED ARE CODE MOTION, STRENGTH REDUCTION,           GPO          364     A     
 GPO      *         THE ASSIGNMENT OF INTEGER VARIABLES TO B-REGISTERS AND                 GPO          365     A     
 GPO      *         TEST REPLACEMENT.                                                      GPO          366     A     
 GPO      *         SINCE WE DO NOT HAVE THE LIVE EXIT INFORMATION AVAILABLE, WE           GPO          367     A     
 GPO      *         ASSUME THAT ALL VARIABLES DEFINED IN THE LOOP ARE LIVE ON              GPO          368     A     
 GPO      *         EXIT FROM IT.                                                          GPO          369     A     
 GPO                                                                                       GPO          370     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2878    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                USE    //                                                              GPO          371     A     
 GPO       O.UDB    BSS    1B          FWA OF *USE/DEF* HASH, FWA OF WORKING STORA         GPO          372     A     
 GPO                USE    0                                                               GPO          373     A     
 GPO                                                                                       GPO          374     A     
 GPO       SPC      BSS    1           SAVED PARCEL COUNT                                  GPO          375     A     
 GPO                                                                                       GPO          376     A     
 GPO      *         INTERVAL INFORMATION                                                   GPO          377     A     
 GPO                                                                                       GPO          378     A     
 GPO       COLA     VFD    42/3,18/1   PB = 3 , NODE = 1                                   GPO          379     A     
 GPO                VFD    6/77B,18/4,18/,18/2                                             GPO          380     A     
 GPO                                                                                       GPO          381     A     
 GPO       COL      ENTRY. **                                                              GPO          382     A     
 GPO                QUAL   CODE                                                            GPO          383     A     
 GPO                                                                                       GPO          384     A     
 GPO                SA2    PARCEL                                                          GPO          385     A     
 GPO                SX6    X2+         SPC = PARCEL  */ SAVE PARCEL COUNT                  GPO          386     A     
 GPO                SA6    SPC                                                             GPO          387     A     
 GPO                CALL   AFT=        ACTIVATE *BLK*                                      GPO          388     A     
 GPO                ALLOC  BLK,100B    ALLOC( BLK , 100B )  */ ALLOC FOR *UDB*             GPO          389     A     
 GPO                SETZERO O.UDB,X1                                                       GPO          390     A     
 GPO                ALLOC  UDI,2       ALLOC( UDI , 2 )                                    GPO          391     A     
 GPO                MX6    0                                                               GPO          392     A     
 GPO                SA6    X2          UDI(0) = 0                                          GPO          393     A     
 GPO                SA6    X2+1        UDI(1) = 0                                          GPO          394     A     
 GPO                CALL   CMR         CHAIN MEM REFS TO *UDI*                             GPO          395     A     
 GPO                CALL   AUT         ADJUST USE TABLE                                    GPO          396     A     
 GPO                SX6    0                                                               GPO          397     A     
 GPO                SA6    L.BLK       L.BLK = 0                                           GPO          398     A     
 GPO                SX1    8                                                               GPO          399     A     
 GPO                RJ     AFB         AFB( 8 )      */ ALLOCATE FOR *BIT*                 GPO          400     A     
 GPO                SETZERO O.UDB,8                                                        GPO          401     A     
 GPO                MX0    1                                                               GPO          402     A     
 GPO                LX0    BI.RBP                                                          GPO          403          I
          -FCC0641
 GPO                LX0    1+BI.RBP                                                        FCC0641        8     A     
 GPO                SX1    B1                                                              GPO          404     A     
 GPO                LX1    BI.ILP                                                          GPO          405     A     
 GPO                BX6    X0+X1                                                           GPO          406     A     
 GPO                SA6    O.UDB+4     (RB,IL)BIT(4) = 1                                   GPO          407     A     
 GPO                EQ     IGO0        GO SETUP *UDT*                                      GPO          408     A     
 GPO                                                                                       GPO          409     A     
 GPO       COL1     CALL   IMPD        SETUP *BLK* , MOVE LOOP BODY TO BLK                 GPO          410     A     
 GPO                RJ     IRP         INITIALIZE REGION PROCESSING                        GPO          411     A     
 GPO                MX7    UD.MVL                                                          GPO          412     A     
 GPO                LX7    UD.MVL+UD.MVP                                                   GPO          413     A     
 GPO                SA7    BCM         BCM = *BLOCK CLEAR BITS*                            GPO          414     A     
 GPO                CLCM   FUD         FORM USE/DEF INFO                                   GPO          415     A     
 GPO                                                                                       GPO          416     A     
 GPO      *         SETUP SPECIAL BIT VECTORS AND *RXI* SO AS TO COMPENSATE FOR            GPO          417     A     
 GPO      *         THE LACK OF LIVE EXIT INFO. SET TO CODE POST STORE IN EPILOGUE         GPO          418     A     
 GPO                                                                                       GPO          419     A     
 GPO                SA4    O.UDB+4                                                         GPO          420     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2879    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA3    O.BVT                                                           GPO          421     A     
 GPO                SA1    VL                                                              GPO          422     A     
 GPO                SA2    DVA                                                             GPO          423     A     
 GPO                LX4    -BI.BVIP                                                        GPO          424     A     
 GPO                SB7    X4          VI = BVI[BIT(4)]                                    GPO          425     A     
 GPO                SB2    B0          I = 0                                               GPO          426     A     
 GPO                SB3    X1                                                              GPO          427     A     
 GPO                SB4    B3+B3                                                           GPO          428     A     
 GPO                SA5    X3+B7       DV = BVT + VI                                       GPO          429     A     
 GPO                SA4    A5+B4       UV = DV + 2*VL                                      GPO          430     A     
 GPO                SX0    X1                                                              GPO          431     A     
 GPO       COL2     BX6    X5                                                              GPO          432     A     
 GPO                BX7    X4+X5                                                           GPO          433     A     
 GPO                SA6    X2+B2       DEF                                                 GPO          434     A     
 GPO                SA6    A6+B3       LU                                                  GPO          435     A     
 GPO                SA7    A6+B3       USE                                                 GPO          436     A     
 GPO                SA6    A7+B3       LX                                                  GPO          437     A     
 GPO                SA7    A6+B3       LE                                                  GPO          438     A     
 GPO                SA6    A7+B3       MD                                                  GPO          439     A     
 GPO                SB2    B2+B1       I = I + 1                                           GPO          440     A     
 GPO                LT     B2,B3,COL2  IF I < VL                                           GPO          441     A     
 GPO                                                                                       GPO          442     A     
 GPO                ALLOC  RXI,B2+3    ALLOC( RXI , VL+3 )                                 GPO          443     A     
 GPO                SX6    B0                                                              GPO          444     A     
 GPO                MX7    1                                                               GPO          445     A     
 GPO                LX7    1+E.SCRP                                                        GPO          446     A     
 GPO                SA6    X2          RXI(0) = 0                                          GPO          447     A     
 GPO                SA7    X2+B1       RXI(1) = E(SCR,0,0,0)                               GPO          448     A     
 GPO                SA2    DVA                                                             GPO          449     A     
 GPO                SB2    X0+B1                                                           GPO          450     A     
 GPO                SA6    A7+B2       RXI(VL+2) = 0                                       GPO          451     A     
 GPO                MOVE   X0,X2,A7+B1   MOVE( VL , DVA , RXI(2) )                         GPO          452     A     
 GPO                SX7    2                                                               GPO          453     A     
 GPO                SA7    EPSI        EPSI = 2                                            GPO          454     A     
 GPO                                                                                       GPO          455     A     
 GPO                CLCM   MII         MARK INVARIANT INSTRUCTIONS                         GPO          456     A     
 GPO                RJ     IHB         INITIALIZE HOLDING BLOCK                            GPO          457     A     
 GPO                PLUG   AT=GPO7,TO=COL4,VOID=NO                                         GPO          458     A     
 GPO                EQ     GPO3A       GO FINISH OFF THE CODE MOTION PHASE                 GPO          459          I
          -FCC0646
 GPO                                                                                       GPO          460          I
          -FCC0646
 GPO      *         CODE MOTION PERFORMED, EXPAND ANY LEVEL REFS IN THE LOOP               GPO          461          I
          -FCC0646
 GPO      *         AND CALL *GRA* TO CODE IT , AND THE EPILOGUE POST STORES.              GPO          462          I
          -FCC0646
 GPO                                                                                       GPO          463          I
          -FCC0646
 GPO       COL4     SX7    2                                                               GPO          464          I
          -FCC0646
 GPO                SA7    BSI         BSI = 2                                             GPO          465          I
          -FCC0646
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2880    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                CALL   RTB         GET THE LOOP BODY                                   GPO          466          I
          -FCC0646
 GPO                SX5    2                                                               GPO          467          I
          -FCC0646
 GPO                SX6    1                                                               GPO          468          I
          -FCC0646
 GPO                CALL   ESR         EXPAND LEVEL REFS INSIDE THE LOOP                   GPO          469          I
          -FCC0646
 GPO                CALL   WTB         REWRITE THE BLOCK BACK TO *BLK*                     GPO          470          I
          -FCC0646
 GPO                SX6    100                                                             GPO          471          I
          -FCC0646
 GPO                SA6    MAXW        MAXW = 100    */ INHIBIT X-REGISTER ASSIGNM         GPO          472          I
          -FCC0646
 GPO                CALL   GRA         CODE THE LOOP BODY                                  GPO          473          I
          -FCC0646
 GPO                SX6    100                                                             FCC0646        8     A     
 GPO                SA6    MAXW        MAXW = 100    */ INHIBIT X-ASSIGNMENT IN *GRA*      FCC0646        9     A     
 GPO                EQ     GPO3A       FINISH OFF CODE MOTION & CODE THE LOOP              FCC0646       10     A     
 GPO                                                                                       GPO          474     A     
 GPO      *         NOW CONVERT THE *HB* TO CODE                                           GPO          475     A     
 GPO                                                                                       GPO          476     A     
 GPO                SX6    0                                                               GPO          477          I
          -FCC0646
 GPO       COL4     SX6    0                                                               FCC0646       11     A     
 GPO                SA6    BSI         BSI = 0                                             GPO          478     A     
 GPO                CALL   RTB                                                             GPO          479     A     
 GPO                SA1    =XL.ALS                                                         GPO          480     A     
 GPO                SX5    3                                                               GPO          481     A     
 GPO                SX1    X1-1                                                            GPO          482     A     
 GPO                ZR     X1,COL5     IF L.ALS = 1  */ OUTSIDE OF ALL LOOPS               GPO          483     A     
 GPO                SX5    2                                                               GPO          484     A     
 GPO       COL5     SX6    B1                                                              GPO          485     A     
 GPO                CALL   ESR         EXPAND FP/LVL REFS IN *HB*                          GPO          486     A     
 GPO                SX6    2                                                               GPO          487     A     
 GPO                SA6    BSI         BSI = 2                                             GPO          488     A     
 GPO                CALL   RTB         GET THE CODED LOOP BODY                             GPO          489     A     
 GPO                                                                                       GPO          490     A     
 GPO                SA5    SPC                                                             GPO          491     A     
 GPO                SA4    L.TXT                                                           GPO          492     A     
 GPO                MX6    0                                                               GPO          493     A     
 GPO                BX7    X5          PARCEL = SPC                                        GPO          494     A     
 GPO                SA7    PARCEL                                                          GPO          495     A     
 GPO                SX3    X4-8                                                            GPO          496     A     
 GPO                NZ     X3,COL6     IF L.TXT " 8  */ *HB* IS NOT EMPTY                  GPO          497     A     
 GPO                                                                                       GPO          498     A     
 GPO                SA1    L.SEQ                                                           GPO          499     A     
 GPO                ALLOC  PIT,X1      ALLOC( PIT , L.SEQ )                                GPO          500     A     
 GPO                SX3    X2                                                              GPO          501     A     
 GPO                SA2    O.SEQ                                                           GPO          502     A     
 GPO                MOVE   X1,X2,X3    MOVE (L.SEQ , O.SEQ , O.PIT )                       GPO          503     A     
 GPO                EQ     COL7                                                            GPO          504     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2881    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       GPO          505     A     
 GPO       COL6     CALL   MCG         CODE THE *HB*                                       GPO          506     A     
 GPO                                                                                       GPO          507     A     
 GPO      *         COMBINE THE CODED INSTRUCTIONS FOR THE *HB* AND LOOP BODY              GPO          508     A     
 GPO      *         AND CALL *CII* TO CONVERT THEM.                                        GPO          509     A     
 GPO                                                                                       GPO          510     A     
 GPO                SA1    L.SEQ                                                           GPO          511     A     
 GPO                ALLOC  PIT,X1-1    ALLOC( PIT , L.SEQ-1 )                              GPO          512     A     
 GPO                SX3    X2+B6                                                           GPO          513     A     
 GPO                SA2    O.SEQ                                                           GPO          514     A     
 GPO                MOVE   X1,X2+B1,X3 MOVE( L.SEQ-1 , O.SEQ+1 , PIT+OLD(L.PIT) )          GPO          515     A     
 GPO                                                                                       GPO          516     A     
 GPO       COL7     SX6    O.UDB                                                           GPO          517     A     
 GPO                SA6    =XLM        LM = O.UDB                                          GPO          518     A     
 GPO                SA6    O.BLK       O.BLK = O.UDB                                       GPO          519     A     
 GPO                SA6    O.TXT       O.TXT = O.UDB                                       GPO          520     A     
 GPO                SX7    0                                                               GPO          521     A     
 GPO                SA7    L.BLK       L.BLK = 0                                           GPO          522     A     
 GPO                SA7    L.TXT       L.TXT = 0                                           GPO          523     A     
 GPO                SA7    L.BST       L.BST = 0                                           GPO          524     A     
 GPO                SA7    L.IIT       L.IIT = 0                                           GPO          525     A     
 GPO                SA7    N.GT        N.GT = 0                                            GPO          526     A     
 GPO                SA1    L.TET                                                           GPO          527          I
          -FCC0675
 GPO                ALLOC  CFT,X1+B1   ALLOC( CFT , L.TET + 1 )                            GPO          528          I
          -FCC0675
 GPO                SETZERO X2,X1      SETZERO( CFT , L.TET+1 )                            GPO          529          I
          -FCC0675
 GPO                CALL   CII         CONVERT THE ISSUED INSTRUCTIONS                     GPO          530     A     
 GPO                CALL   AFT=        DEACTIVATE *BLK*                                    GPO          531     A     
 GPO                SX7    0                                                               GPO          532     A     
 GPO                SA7    =XL.CFT     L.CFT = 0                                           GPO          533          I
          -FCC0675
 GPO                SA7    N.GT        N.GT = 0                                            FCC0675       10     A     
 GPO                SA7    L.TET       L.TET = 0                                           GPO          534     A     
 GPO                EQ     COL                                                             GPO          535     A     
 GPO                                                                                       GPO          536     A     
 GPO                QUAL                                                                   GPO          537     A     
 GPO       GPO      TITLE  GPO - CONTROL / INITIALIZATION                                  GPO          538     A     
 GPO      **        GPO - GLOBAL PROGRAM OPTIMIZATION                                      GPO          539     A     
 GPO      *         INITIALIZATION, MAIN LOOP, CODE LINEARIZATION PASS.                    GPO          540     A     
 GPO                                                                                       GPO          541     A     
 GPO       GPO      ENTRY. **                                                              GPO          542     A     
 GPO                                                                                       GPO          543     A     
 GPO                QUAL   CODE                                                            GPO          544     A     
 GPO                                                                                       GPO          545     A     
 GPO                CALL   IMPB        INITIALIZE MASSIO FOR PHASE 2                       GPO          546     A     
 GPO                                                                                       GPO          547     A     
 GPO                SX7    =XF.UDT                                                         GPO          548     A     
 GPO                CALL   STO                                                             GPO          549     A     
 GPO                CALL   AUT         REFORMAT *UDI*                                      GPO          550     A     
 GPO                                                                                       GPO          551     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2882    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SX7    =XF.CFA                                                         GPO          552     A     
 GPO                CALL   STO                                                             GPO          553     A     
 GPO                CALL   DGS         DERIVE GRAPH STRUCTURE                              GPO          554     A     
 GPO                                                                                       GPO          555     A     
 GPO      *         MOVE GRAPH TABLE DOWN TO BEGIN OF WORKING STORAGE                      GPO          556     A     
 GPO                                                                                       GPO          557     A     
 GPO                SA1    L.GST                                                           GPO          558     A     
 GPO                SA2    O.GST                                                           GPO          559     A     
 GPO                SA3    O.IST                                                           GPO          560     A     
 GPO                IX0    X1+X3                                                           GPO          561     A     
 GPO                SX6    X3+B1                                                           GPO          562     A     
 GPO                SA6    GP          GP = [O.IST] + 1  */ POINT TO GA WORD               GPO          563     A     
 GPO                MOVE   X1,X2,X3    MOVE( L.GST , O.GST , O.IST )                       GPO          564     A     
 GPO                BX7    X0          LM = O.IST + L.GST                                  GPO          565     A     
 GPO                CALL   STO                                                             GPO          566     A     
 GPO                                                                                       GPO          567     A     
 GPO                CALL   AFT=        ACTIVATE FIRST TABLE ( *BLK* )                      GPO          568     A     
 GPO                                                                                       GPO          569     A     
 GPO      *         SETUP FIXED TABLES IN LOW MEMORY, LAYOUT -                             GPO          570     A     
 GPO      *                IST , BIT , UDT , MVL , BVT , SBV , BTT                         GPO          571          I
          -FCC0392
 GPO      *                IST , BIT , UDT , MVL , BVT , SBV , BTT , HNT                   FCC0392       23          I
          -FCC1319
 GPO      *                IST, BIT, LCT, UDT, MVL, BVT, SBV, BTT, HNT                     FCC1319       20     A     
 GPO                                                                                       GPO          572     A     
 GPO                SX1    2                                                               FCC0641        9     A     
 GPO                RJ     AFB         AFB( 2 )      */ SEARCH TERM FOR GRA/CIS            FCC0641       10     A     
 GPO                MX7    -BI.ILP                                                         FCC0641       11     A     
 GPO                SA7    X6          [FWA] = MASK(3)  */ SO INIT PARCEL CNT OK           FCC0641       12     A     
 GPO                MX7    0                                                               FCC0641       13     A     
 GPO                SA7    A7+B1                                                           FCC0641       14     A     
 GPO                SA2    CBN                                                             GPO          573     A     
 GPO                LX2    1                                                               GPO          574     A     
 GPO                SX1    X2+2        L.BIT = 2*CBN + 2                                   GPO          575          I
          -FCC1858X 
 GPO                SX1    X2+4        L.BIT = 2*CBN + 4                                   FCC1858X       4     A     
 GPO                RJ     AFB         AFB( L.BIT )                                        GPO          576     A     
 GPO                SA6    O.BIT       O.BIT = FWA                                         GPO          577     A     
 GPO                                                                                       GPO          578     A     
 GPO      *         MOVE *BIT* TO LOW CORE AND CLEAR OUT HOLDING BLOCKS WORDS              GPO          579     A     
 GPO                                                                                       GPO          580     A     
 GPO                SA1    L.BST                                                           GPO          581     A     
 GPO                SA7    L.BIT                                                           GPO          582     A     
 GPO                SA2    O.BST                                                           GPO          583     A     
 GPO                IX0    X7-X1       LHB = L.BIT - L.BST                                 GPO          584     A     
 GPO                IX5    X6+X1                                                           GPO          585     A     
 GPO                MOVE   X1,X2,X6    MOVE( L.BST , O.BST , O.BIT )                       GPO          586     A     
 GPO                SETZERO X5,X0      FOR I = L.BST TO L.BIT; BIT(I) = 0                  GPO          587     A     
 GPO                SA6    L.BST       L.BST = 0                                           GPO          588     A     
 GPO                                                                                       GPO          589     A     
 GPO                SA1    L.LCT       L = L.LCT                                           FCC1319       21     A     
 GPO                SA6    A1          L.LCT = 0     */ CLEAR COUNTER                      FCC1319       22     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2883    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                RJ     AFB         AFB( L )                                            FCC1319       23     A     
 GPO                SA6    O.LCT       O.LCT = FWA                                         FCC1319       24     A     
 GPO                                                                                       FCC1319       25     A     
 GPO                SA2    N.FTH                                                           FCC2113       10     A     
 GPO                SX1    X2+B1                                                           FCC2113       11     A     
 GPO                RJ     AFB         AFB( N.FTH + 1 )                                    FCC2113       12     A     
 GPO                SA6    O.ELT       O.ELT = FWA                                         FCC2113       13     A     
 GPO      *         MOVE *UDI* TO LOW CORE, ALLOCATE FOR *MVL*.                            GPO          590     A     
 GPO                                                                                       GPO          591     A     
 GPO       IGO0     SA1    L.UDI                                                           GPO          592     A     
 GPO                RJ     AFB         AFB( L.UDI )                                        GPO          593     A     
 GPO                SA2    O.UDI                                                           GPO          594     A     
 GPO                SA6    O.UDT       O.UDT = FWA                                         GPO          595     A     
 GPO                SA7    L.UDT                                                           GPO          596     A     
 GPO                MOVE   X1,X2,X6    MOVE( L.UDI , O.UDI , O.UDT )                       GPO          597     A     
 GPO                MX7    0           L.UDI = 0                                           GPO          598     A     
 GPO                SA7    L.UDI                                                           GPO          599     A     
 GPO                                                                                       GPO          600     A     
 GPO                SA2    N.VAR                                                           GPO          601     A     
 GPO                SX1    X2+3                                                            GPO          602     A     
 GPO                RJ     AFB         ALLOCATE FOR *MVL*                                  GPO          603     A     
 GPO                SA6    O.MVL       O.MVL = FWA                                         GPO          604     A     
 GPO                                                                                       GPO          605     A     
 GPO      *         ALLOCATE FOR BIT VECTORS, MOVE VECTORS FORMED IN *AUT* TO              GPO          606     A     
 GPO      *         *BVT*.                                                                 GPO          607     A     
 GPO                                                                                       GPO          608     A     
 GPO                SA1    CBN                                                             GPO          609     A     
 GPO                SA2    VL                                                              GPO          610     A     
 GPO                LX1    2                                                               GPO          611     A     
 GPO                IX1    X1*X2       L.BVT = CBN * 4*VL  */ BIT VECTORS                  GPO          612     A     
 GPO                RJ     AFB         AFB( L.BVT )                                        GPO          613     A     
 GPO                SA6    O.BVT       O.BVT = FWA                                         GPO          614     A     
 GPO                                                                                       GPO          615     A     
 GPO                SA1    L.RXI                                                           GPO          616     A     
 GPO                SA2    O.RXI                                                           GPO          617     A     
 GPO                SX3    X6                                                              GPO          618     A     
 GPO                BX7    X1                                                              GPO          619     A     
 GPO                SA7    L.BVT       L.BVT = L.RXI */  *BVT* INDEX FOR *FUD*             GPO          620     A     
 GPO                MX6    0                                                               GPO          621     A     
 GPO                SA6    A1          L.RXI = 0                                           GPO          622     A     
 GPO                MOVE   X1,X2,X3    MOVE( L.BVT , O.RXI , O.BVT )                       GPO          623     A     
 GPO                SA1    =XOPT2                                                          GPO          624     A     
 GPO                ZR     X1,IGO1     IF OPT2 = 0   */ OPT=1                              GPO          625     A     
 GPO                                                                                       GPO          626     A     
 GPO      *         PHASE 2 OF OPT=2 - FORM BIT VECTORS FOR ALL PROGRAM BLOCKS.            GPO          627     A     
 GPO                                                                                       GPO          628     A     
 GPO                CALL   FBV         FORM BIT VECTORS                                    GPO          629     A     
 GPO                                                                                       GPO          630     A     
 GPO      *         SETUP ADDRESS"S OF SPECIAL BIT VECTORS                                 GPO          631     A     
 GPO                                                                                       GPO          632     A     
 GPO       IGO1     SA2    VL                                                              GPO          633     A     
 GPO                SX0    N.SBV                                                           GPO          634     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2884    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                IX1    X0*X2                                                           GPO          635     A     
 GPO                IX6    X1-X2       L.SBV = VL * ( N.SBV-1 )                            GPO          636     A     
 GPO                SA6    L.SBV                                                           GPO          637     A     
 GPO                RJ     AFB         AFB( VL * N.SBV )                                   GPO          638          I
          -FCC0509
 GPO                IX1    X1+X2                                                           FCC0509        7     A     
 GPO                RJ     AFB         AFB( VL * (N.SBV+1) )                               FCC0509        8     A     
 GPO                SA1    VL                                                              GPO          639     A     
 GPO                SB2    B0          I = 0                                               GPO          640     A     
 GPO                SB3    X0                                                              GPO          641     A     
 GPO       IGO2     SA6    DVA+B2      DVA(I) = FWA                                        GPO          642     A     
 GPO                SB2    B2+B1       I = I + 1                                           GPO          643     A     
 GPO                IX6    X6+X1       FWA = FWA + VL                                      GPO          644     A     
 GPO                LT     B2,B3,IGO2  IF I < N.SBV                                        GPO          645     A     
 GPO                SA1    OPT2                                                            GPO          646     A     
 GPO                ZR     X1,COL1     IF OPT2 = 0                                         GPO          647     A     
 GPO                                                                                       GPO          648     A     
 GPO      *         ALLOCATE FOR *BTT*                                                     GPO          649          I
          -FCC0392
 GPO      *         ALLOCATE FOR *BTT* AND *HNT*                                           FCC0392       24     A     
 GPO                                                                                       GPO          650     A     
 GPO                SA1    CBN                                                             GPO          651     A     
 GPO                RJ     AFB         AFB( CBN )                                          GPO          652     A     
 GPO                SA6    O.BTT       O.BTT = FWA                                         GPO          653     A     
 GPO                SA5    M.LP                                                            FCC0392       25     A     
 GPO                SX1    X5+1                                                            FCC0392       26     A     
 GPO                RJ     AFB         AFB( M.LP+1 )                                       FCC0392       27     A     
 GPO                SA6    O.HNT       O.HNT = FWA                                         FCC0392       28     A     
 GPO       GPO      SPACE  1,14                                                            GPO          654     A     
 GPO      *         COMPUTE AN UPPER BOUND FOR *BLK* LENGTH                                GPO          655     A     
 GPO                                                                                       GPO          656     A     
 GPO                SA1    LM                                                              GPO          657          I
          -RSM2763X 
 GPO                SA2    =XO.TEND                                                        GPO          658          I
          -RSM2763X 
 GPO                IX6    X2-X1       WS = O.TEND - LM                                    GPO          659          I
          -RSM2763X 
 GPO                AX6    2                                                               GPO          660          I
          -RSM2763X 
 GPO                SA6    M.EBL       M.EBL = WS / 4                                      GPO          661          I
          -RSM2763X 
 GPO                AX5    B1,X6                                                           GPO          662          I
          -RSM2763X 
 GPO                IX7    X5+X6       AWS = WS * 3/8                                      GPO          663          I
          -RSM2763X 
 GPO                SA1    =XM.BBL                                                         GPO          664          I
          -RSM2763X 
 GPO                SX2    1000B                                                           GPO          665          I
          -RSM2763X 
 GPO                IX3    X2-X1                                                           GPO          666          I
          -RSM2763X 
 GPO                PL     X3,IGO3                                                         GPO          667          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2885    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
          -RSM2763X 
 GPO                BX2    X1                                                              GPO          668          I
          -RSM2763X 
 GPO       IGO3     SX2    X2+500B     MIN.BLK = MAX( M.BBL , 1000B ) + 500B               GPO          669          I
          -RSM2763X 
 GPO                IX3    X7-X2                                                           GPO          670          I
          -RSM2763X 
 GPO                PL     X3,IGO4     IF AWS > MIN.BLK                                    GPO          671          I
          -RSM2763X 
 GPO                                                                                       GPO          672          I
          -RSM2763X 
 GPO                SA1    =7LGPO                                                          GPO          673          I
          -RSM2763X 
 GPO                CALL   PUNT        INSUFFICIENT STORAGE FOR COMPILATION                GPO          674          I
          -RSM2763X 
 GPO                                                                                       GPO          675          I
          -RSM2763X 
 GPO       IGO4     SX2    14000B                                                          GPO          676          I
          -RSM2763X 
 GPO                IX6    X7-X2                                                           GPO          677          I
          -RSM2763X 
 GPO                MI     X6,IGO5     MAX.BLK = MIN( AWS , 14000B )                       GPO          678          I
          -RSM2763X 
 GPO                BX7    X2                                                              GPO          679          I
          -RSM2763X 
 GPO       IGO5     CALL   IMPC        INITIALIZE MASS I/O FOR PHASE 3                     GPO          680          I
          -RSM2763X 
 GPO                PRINT  GPOFL,(* CWS= CALLED BY GPO; CWS,MWS =*2Z7),(X6,X7)             RSM2763X     125     A     
 GPO       IGO3     CALL   CWS=                                                            RSM2763X     126     A     
 GPO                SX1    2000B                                                           RSM2763X     127     A     
 GPO                SB4    X7          B4 = MWS */ MAX. AVAIL. STORAGE                     RSM2763X     128     A     
 GPO                IX7    X7-X1                                                           RSM2763X     129     A     
 GPO                AX7    2                                                               RSM2763X     130     A     
 GPO                SX4    14000B                                                          RSM2763X     131     A     
 GPO                IX2    X4-X7                                                           RSM2763X     132     A     
 GPO                SB2    X6          B2 = CWS */ CURRENT WORKING STORAGE                 RSM2763X     133     A     
 GPO                PL     X2,IGO3A    IF (MWS - 2000B)/4 @ 14000B                         RSM2763X     134     A     
 GPO                BX7    X4                                                              RSM2763X     135     A     
 GPO       IGO3A    SA7    M.EBL       M.EBL = MIN((MWS-2000B)/4,14000B)                   RSM2763X     136     A     
 GPO                SA3    =XM.BBL     */ MAX.BASIC BLOCK SIZE                             RSM2763X     137     A     
 GPO                PRINT  GPOFL,(* M.BBL =*Z7),(X3)                                       RSM2763X     138     A     
 GPO                LX3    3                                                               RSM2763X     139     A     
 GPO                SB3    X3          B3 = 8*M.BBL                                        RSM2763X     140     A     
 GPO                SX1    10000B                                                          RSM2763X     141     A     
 GPO                IX2    X3-X1                                                           RSM2763X     142     A     
 GPO                PL     X2,IGO3B    IF   8*M.BBL > 10000B                               RSM2763X     143     A     
 GPO                BX3    X1                                                              RSM2763X     144     A     
 GPO                SB3    X1          RWS = MAX(  8*M.BBL,10000B) */ REASONABLE           RSM2763X     145     A     
 GPO      *                                                           STORAGE              RSM2763X     146     A     
 GPO       IGO3B    GE     B2,B3,IGO5  IF CWS \ RWS                                        RSM2763X     147     A     
 GPO                GT     B3,B4,IGO4  IF RWS > MWS                                        RSM2763X     148     A     
 GPO                                                                                       RSM2763X     149     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2886    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO      *                            CWS < RWS @ MWS                                     RSM2763X     150     A     
 GPO                                                                                       RSM2763X     151     A     
 GPO                IX1    X3-X6                                                           RSM2763X     152     A     
 GPO                CALL   MOREFL      */ WN = RWS - CWS                                   RSM2763X     153     A     
 GPO                PL     X7,IGO3     IF REQUIRED MEMORY GRANTED                          RSM2763X     154     A     
 GPO                                                                                       RSM2763X     155     A     
 GPO       IGO4     SA1    =7LGPO                                                          RSM2763X     156     A     
 GPO                CALL   PUNT        GO TO ABORT THE COMPILATION                         RSM2763X     157     A     
 GPO                                                                                       RSM2763X     158     A     
 GPO       IGO5     BX1    X6                                                              RSM2763X     159     A     
 GPO                PRINT GPOFL,(*CWS,RWS=*2Z7),(X6,X3)                                    RSM2763X     160     A     
 GPO                AX1    3                                                               RSM2763X     161     A     
 GPO                AX6    1                                                               RSM2763X     162     A     
 GPO                IX7    X6-X1       X7 = 3/8 * CWS                                      RSM2763X     163     A     
 GPO                IX2    X4-X7                                                           RSM2763X     164     A     
 GPO                PL     X2,IGO5A                                                        RSM2763X     165     A     
 GPO                BX7    X4                                                              RSM2763X     166     A     
 GPO       IGO5A    SA7    =XMX.BLN    MX.BLN = MAX BLK.TABLE SIZE                         RSM2763X     167     A     
 GPO                PRINT  GPOFL,(* MAX BLK. LEN =*Z7),(X7)                                RSM2763X     168     A     
 GPO                CALL   IMPC        MX.BLN  = MIN(3/8*CWS,14000B)                       RSM2763X     169     A     
 GPO                                                                                       GPO          681     A     
 GPO       .T       IFNE   TEST,0                                    * TEST MODE *         GPO          682     A     
 GPO                SA1    =XR=FLAG                                                        GPO          683     A     
 GPO                ZR     X1,IGO6     IF LIST = 0                                         GPO          684     A     
 GPO                                                                                       GPO          685     A     
 GPO      *         LIST OPTIMIZER MEMORY USEAGE STATISTICS                                GPO          686     A     
 GPO                                                                                       GPO          687     A     
 GPO                USE    STAT                                                            GPO          688     A     
 GPO                                                                                       GPO          689     A     
 GPO       IGOA     DATA   1H ,38LOPTIMIZER MEMORY USEAGE STATISTICS                       GPO          690     A     
 GPO       IGOB     DATA   1H ,40LEXEC STMTS  N.BLOCKS   N.LOOPS    N.VARS                 GPO          691     A     
 GPO                DATA   20H   MAX-BLK  N.GRAPHS                                         GPO          692     A     
 GPO                DATA   50L   L.GRAPH L.BIT VEC     L.BLK WRK SPACE L.PRG TXT           GPO          693     A     
 GPO       IGOC     DATA   8L                                                              GPO          694     A     
 GPO                                                                                       GPO          695     A     
 GPO       ZOD      ROUTINE                                                                GPO          696     A     
 GPO                RJ     =XCOD                                                           GPO          697     A     
 GPO                LX6    6                                                               GPO          698     A     
 GPO                SX7    1RB-1R                                                          GPO          699     A     
 GPO                IX6    X6+X7                                                           GPO          700     A     
 GPO                EQ     ZOD                                                             GPO          701     A     
 GPO                                                                                       GPO          702     A     
 GPO                USE    0                                                               GPO          703     A     
 GPO       STAT     MACRO  A,B,C,M                                                         GPO          704     A     
 GPO                SA1    A                                                               GPO          705     A     
 GPO                IFC    NE,/B//,2                                                       GPO          706     A     
 GPO                SA2    B                                                               GPO          707     A     
 GPO                IX1    X1-X2                                                           GPO          708     A     
 GPO                IFC    NE,/M//,1                                                       GPO          709     A     
 GPO                SX1    X1+M                                                            GPO          710     A     
 GPO                RJ     =X;C                                                            GPO          711     A     
 GPO                SA6    IGOB+.1                                                         GPO          712     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2887    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO       .1       SET    .1+1                                                            GPO          713     A     
 GPO                ENDM                                                                   GPO          714     A     
 GPO       .1       SET    1                                                               GPO          715     A     
 GPO                LISTL  IGOC,1                                                          GPO          716     A     
 GPO                LISTL  IGOA,IGOB-IGOA                                                  GPO          717     A     
 GPO                LISTL  IGOB,IGOC+1-IGOB                                                GPO          718     A     
 GPO                STAT   =XN.EXST,,CDD     N.STMTS                                       GPO          719     A     
 GPO                STAT   NPB,,CDD                                                        GPO          720     A     
 GPO                STAT   CBN,NPB,CDD,-1    N.LOOPS                                       GPO          721     A     
 GPO                STAT   N.VAR,,CDD,-1                                                   GPO          722     A     
 GPO                STAT   M.BBL,,ZOD        MAX BASIC BLK LEN                             GPO          723     A     
 GPO                STAT   N.DG,,COD         N.GRAPHS                                      GPO          724     A     
 GPO                STAT   O.BIT,GP,ZOD      L.GRAPH                                       GPO          725     A     
 GPO                STAT   O.BTT,O.BVT,ZOD   L.BIT VEC                                     GPO          726     A     
 GPO                STAT   L.BLK,,ZOD                                                      GPO          727     A     
 GPO                STAT   O.TEND,O.TXT,ZOD  WORK SPACE                                    GPO          728     A     
 GPO                STAT   L.PTXT,,ZOD                                                     GPO          729     A     
 GPO                PURGMAC STAT                                                           GPO          730     A     
 GPO                                                                                       GPO          731     A     
 GPO                LISTL  IGOB,IGOC+1-IGOB                                                GPO          732     A     
 GPO                                                                                       GPO          733     A     
 GPO       IGO6     BSS    0                                                               GPO          734     A     
 GPO                                                                                       GPO          735     A     
 GPO       .T       ENDIF                                            * TEST MODE *         GPO          736     A     
 GPO       GPO      SPACE  2                                                               GPO          737     A     
 GPO      *         SET FLAGS FOR PHASE 3 OF GLOBAL OPTIMIZATION                           GPO          738     A     
 GPO                                                                                       GPO          739     A     
 GPO                SX6    1                                                               GPO          740     A     
 GPO                SA6    BBV         BBV = 1       */ SET FOR NO BIT VECTORS             GPO          741     A     
 GPO                MX7    UD.MVL                                                          GPO          742     A     
 GPO                LX7    UD.MVL+UD.MVP                                                   GPO          743     A     
 GPO                SA7    BCM         BCM = *MV*    */ SET FOR BLOCK BIT CLEAR            GPO          744     A     
 GPO                                                                                       GPO          745     A     
 GPO      *         SETUP A *BOS* AT THE BEGINNING OF *TXT*                                GPO          746     A     
 GPO                                                                                       GPO          747     A     
 GPO                ALLOC  TXT,4       ALLOC( TXT , 4 )                                    GPO          748     A     
 GPO                SA5    =XF.RDT+OC.BOS                                                  GPO          749     A     
 GPO                MX6    0           T = O.TXT                                           GPO          750     A     
 GPO                SA6    X2+B1       [T+1] = 0                                           GPO          751     A     
 GPO                BX7    X5                                                              GPO          752     A     
 GPO                SA7    A6+B1       [T+2] = RDT(BOS)                                    GPO          753     A     
 GPO                SA6    A7+B1       [T+3] = 0                                           GPO          754     A     
 GPO       GPO      TITLE  GPO - MAIN LOOP                                                 GPO          755     A     
 GPO      *         PHASE 3 - INNER TO OUTER PASS OVER THE LOOPS TO MOVE OUT               GPO          756     A     
 GPO      *         INVARIANT / STRENGTH REDUCABLE CODE AND ASSIGN REGISTERS.              GPO          757     A     
 GPO                                                                                       GPO          758     A     
 GPO       GPO1     RJ     IGP         INITIALIZE GRAPH PROCESSING                         GPO          759     A     
 GPO                ZR     X6,GPO10    IF N.LP = 0   */ NO LOOPS IN THIS GRAPH             GPO          760     A     
 GPO                                                                                       GPO          761     A     
 GPO       GPO2     RJ     FNL         FIND NEXT LOOP                                      GPO          762     A     
 GPO                RJ     IRP         INITIALIZE REGION PROCESSING                        GPO          763     A     
 GPO                                                                                       GPO          764     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2888    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                CLCM   FUD         FORM USE/DEF INFO FOR REGION                        GPO          765     A     
 GPO                SA1    UXR+1                                                           GPO          766     A     
 GPO                ZR     X1,GPO3     IF UXR(2) = 0 */ NO USER EXT REFS                   GPO          767     A     
 GPO                MX7    1                                                               GPO          768     A     
 GPO                SA7    XRF         XRF = 1S59                                          GPO          769     A     
 GPO                SA2    RCV                                                             GPO          770     A     
 GPO                ZR     X2,GPO3     IF RCV = 0    */ NO REFED COMMON VARIABLES          GPO          771     A     
 GPO                SA4    O.BVT                                                           GPO          772     A     
 GPO                SA5    RDB                                                             GPO          773     A     
 GPO                CALL   EBV         SET REGION DEF BITS FOR COMMON VARS, ETC            GPO          774     A     
 GPO                                                                                       GPO          775     A     
 GPO       GPO3     CLCM   RDD         REMOVE DEAD DEFINITIONS                             GPO          776     A     
 GPO                                                                                       GPO          777     A     
 GPO                RJ     FEI         FORM LIVE ENTRY VECTOR                              FCCA513X       8     A     
 GPO                                                                                       FCCA513X       9     A     
 GPO                CLCM   MII         MARK INVARIANT INSTRUCTIONS                         GPO          778     A     
 GPO                                                                                       GPO          779     A     
 GPO                RJ     IHB         INITIALIZE HOLDING BLOCK                            GPO          780     A     
 GPO                RJ     FXI         FORM EXIT INFORMATION                               GPO          781     A     
 GPO                                                                                       GPO          782     A     
 GPO       GPO3A    CLCM   FII,(STC)   FORM INCREMENT INFO                                 GPO          783     A     
 GPO                SA1    L.IIT                                                           GPO          784     A     
 GPO                BX6    X1          PIC = L.IIT                                         GPO          785     A     
 GPO                SA6    PIC                                                             GPO          786     A     
 GPO                ZR     X1,GPO4     IF PIC = 0    */ NO RECURSIVE DEFS                  GPO          787     A     
 GPO                                                                                       GPO          788     A     
 GPO                CLCM   MIP         MARK INTEGER POLYNOMIALS                            GPO          789     A     
 GPO                                                                                       GPO          790     A     
 GPO       GPO4     SA1    MRA                                                             GPO          791     A     
 GPO                SX2    376B                                                            GPO          792     A     
 GPO                SX6    B1+B1       MINC = 2      */ MIN *IP* COST                      GPO          793     A     
 GPO                BX3    X2*X1                                                           GPO          794     A     
 GPO                CX4    X3          NABR = COUNT(MRA&376B)  */ N.AVAIL B-REGS           GPO          795     A     
 GPO                AX4    1                                                               GPO          796     A     
 GPO                NZ     X4,GPO5     IF NABR \ 2                                         GPO          797     A     
 GPO                SX6    3           MINC = 3                                            GPO          798     A     
 GPO       GPO5     SA6    MINC                                                            GPO          799     A     
 GPO                CLCM   MIE,(IIC)   MOVE INV/SR INSTRUCTIONS TO *HB*                    GPO          800     A     
 GPO                MX6    0                                                               GPO          801     A     
 GPO                CALL   SHB         SQUEEZE HOLDING BLOCK                               GPO          802     A     
 GPO                SA2    NTP                                                             GPO          803     A     
 GPO                ZR     X2,GPO6     IF NTP = 0    */ NO TERMINAL *IP*"S                 GPO          804     A     
 GPO                                                                                       GPO          805     A     
 GPO                RJ     CIF         COLLECT INCREMENT FORMULAS                          GPO          806     A     
 GPO                SA2    NTP                                                             FCC1710X       6     A     
 GPO                ZR     X2,GPO6     IF NTP = 0                                          FCC1710X       7     A     
 GPO                                                                                       GPO          807     A     
 GPO                CLCM   FIM,(STC)   FORM *TP* INCREMENT MODS                            GPO          808     A     
 GPO                SA1    L.MOD                                                           GPO          809     A     
 GPO                SX2    X1-4                                                            GPO          810     A     
 GPO                ZR     X2,GPO6     IF L.MOD = 4  */ NO VARIABLE INCR CODE              GPO          811     A     
 GPO                SX6    B1                                                              GPO          812     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2889    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                CALL   SHB         SQUEEZE VARIABLE INCREMENT CODE                     GPO          813     A     
 GPO                                                                                       GPO          814     A     
 GPO       GPO6     SX6    4           L.TXT = 4                                           GPO          815     A     
 GPO                SA6    L.TXT                                                           GPO          816     A     
 GPO                CLCM   UPB,(NIS,BM,NTET)   UPDATE MODIFIED BLOCKS                      GPO          817     A     
 GPO                RJ     ATT         ADJUST *TET*                                        FCC0514       25     A     
 GPO                                                                                       GPO          818     A     
 GPO       GPO7     RJ     CBB         COMBINE BASIC BLOCKS                                GPO          819          I
          -FCC0646
 GPO                RJ     CBB         COMBINE BASIC BLOCKS                                FCC0646       12     A     
 GPO                                                                                       GPO          820     A     
 GPO                CALL   GRA         ASSIGN REGISTERS, CODE THE LOOP                     GPO          821     A     
 GPO                                                                                       GPO          822     A     
 GPO                RJ     TRP         TERMINATE REGION PROCESSING                         GPO          823          I
          -FCC0646
 GPO       GPO7     RJ     TRP         TERMINATE REGION PROCESSING                         FCC0646       13     A     
 GPO                SA2    N.LP                                                            GPO          824     A     
 GPO                SX7    X2-1        N.LP = N.LP - 1                                     GPO          825     A     
 GPO                SA7    A2+                                                             GPO          826     A     
 GPO                NZ     X7,GPO2     IF N.LP " 0                                         GPO          827     A     
 GPO                                                                                       GPO          828     A     
 GPO                SX7    4           EMF = 4       */ EXPAND STT"S IN OUTER LPS          GPO          829     A     
 GPO                SA7    EMF                                                             GPO          830     A     
 GPO                RJ     GNG         GET NEXT GRAPH                                      GPO          831     A     
 GPO                NZ     X6,GPO1     IF NOT END OF GRAPHS                                GPO          832          I
          -FCC0514
 GPO                EQ     *+1S17            GRAPH TABLE ERROR                             GPO          833          I
          -FCC0514
 GPO                EQ     GPO1                                                            FCC0514       26     A     
 GPO       GPO      SPACE  2,14                                                            GPO          834     A     
 GPO      *         PROCESS BLOCKS OUTSIDE OF ALL LOOPS AND CONVERT THEM TO CODE.          GPO          835     A     
 GPO                                                                                       GPO          836     A     
 GPO       GPO10    MX6    -UD.STCP                                                        GPO          837     A     
 GPO                SX7    B0                                                              FCC0514       27     A     
 GPO                SA6    PSLC        PSLC = 1      */ INDICATE OUT OF ALL LOOPS          FCC0514       28          I
          -FCC0675
 GPO                SA7    HBI         HBI = 0       */ OUTSIDE OF ALL LOOPS               FCC0675       11     A     
 GPO                SA7    NBIP        NBIP = 0                                            FCC0514       29     A     
 GPO                SA6    BCM         BCM = *REGION CLEAR MASK*                           GPO          838     A     
 GPO                                                                                       GPO          839     A     
 GPO       GPO11    SA1    IBA                                                             GPO          840     A     
 GPO                SA2    X1          IP = [IBA]                                          GPO          841     A     
 GPO                SX6    X1+B1       IBA = IBA + 1                                       GPO          842     A     
 GPO                ZR     X2,GPO12    IF [IP] = 0   */ END OF INTERVAL LIST               GPO          843     A     
 GPO                LX2    -IP.NODEP                                                       GPO          844     A     
 GPO                SA6    A1                                                              GPO          845     A     
 GPO                SX7    X2          NN = NODE[IP]                                       GPO          846     A     
 GPO                SA7    A1+B1                                                           GPO          847     A     
 GPO                CALL   CIC         CONVERT INTERVAL TO CODE                            GPO          848     A     
 GPO                EQ     GPO11                                                           GPO          849     A     
 GPO                                                                                       GPO          850     A     
 GPO      *         ADJUST *GL* TABLE FOR GL"S ADDED FROM MULTIPLE PRED IF LOOPS.          GPO          851     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2890    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       GPO          852     A     
 GPO       GPO12    SA1    N.GL0                                                           GPO          853     A     
 GPO                SA2    N.GL                                                            GPO          854     A     
 GPO                IX1    X1-X2       L = N.GL0 - N.GL                                    GPO          855     A     
 GPO                ZR     X1,GPO13    IF L = 0      */ NO GL"S ADDED                      GPO          856     A     
 GPO                ALLOC  TEND-1,X1   ALLOC( TEND-1 , L )                                 GPO          857     A     
 GPO                SA5    =XO.GLT                                                         GPO          858     A     
 GPO                SX7    B6                                                              GPO          859     A     
 GPO                SA7    A3                                                              GPO          860     A     
 GPO                IX6    X5-X1       O.GLT = O.GLT - L                                   GPO          861     A     
 GPO                SA6    A5                                                              GPO          862     A     
 GPO                SX7    X6-1        LW = O.GLT - 1                                      GPO          863     A     
 GPO                SA7    =XLWAWORK   LWAWORK = LW                                        GPO          864     A     
 GPO                SA7    =XO.TEND    O.TEND = LW                                         GPO          865     A     
 GPO       GPO      SPACE  2,20                                                            GPO          866     A     
 GPO      *         PHASE 4 - LINEARIZE THE CODE BLOCKS TO BRING THEM BACK TO              GPO          867     A     
 GPO      *         SOURCE PROGRAM ORDER AND OUTPUT THEM.                                  GPO          868     A     
 GPO                                                                                       GPO          869     A     
 GPO                DESCRIBE BI.,60                                                        GPO          870     A     
 GPO       BEF      DEQU   BVI         BN OF BLOCK THAT COMES BEFORE CURRENT BLOCK         GPO          871     A     
 GPO                                                                                       GPO          872     A     
 GPO       GPO13    SA1    CBN                                                             GPO          873     A     
 GPO                SA2    O.BIT                                                           GPO          874     A     
 GPO                MX0    -BI.BEFL                                                        GPO          875     A     
 GPO                SB2    B1+B1                                                           GPO          876     A     
 GPO                LX0    BI.BEFP                                                         GPO          877     A     
 GPO                SB3    B2          I = 2                                               GPO          878          I
          -FCC0408
 GPO                SB3    B0          I = 0                                               FCC0408       10     A     
 GPO                LX1    1                                                               GPO          879     A     
 GPO                SB4    X1          L = 2*CBN                                           GPO          880     A     
 GPO                SA3    NPB                                                             GPO          881     A     
 GPO                SB7    X2                        (B7) = [O.BIT]                        GPO          882     A     
 GPO                                                                                       GPO          883     A     
 GPO       GPO14    SA5    B7+B3       BEF[BIT(I)] = 0                                     GPO          884     A     
 GPO                SB3    B3+B2       I = I + 2                                           GPO          885     A     
 GPO                BX6    X0*X5                                                           GPO          886     A     
 GPO                SA6    A5                                                              GPO          887     A     
 GPO                LT     B3,B4,GPO14 IF I < L                                            GPO          888     A     
 GPO                                                                                       GPO          889     A     
 GPO      *         SEARCH FOR HOLDING BLOCKS THAT WERE CODED ( NOT COALESCED )            GPO          890     A     
 GPO      *         AND SET THE *BEF* FIELD FOR THE HEADER BLOCK THAT COMES                GPO          891     A     
 GPO      *         AFTER THE *HB* IN THE CODE OUTPUT.                                     GPO          892     A     
 GPO                                                                                       GPO          893     A     
 GPO                LX3    1                                                               GPO          894     A     
 GPO                SB3    X3          I = 2*NPB                                           GPO          895     A     
 GPO                                                                                       GPO          896     A     
 GPO       GPO15    SB3    B3+B2       I = I + 2                                           GPO          897     A     
 GPO                SA5    B7+B3       BIW = BIT(I)                                        GPO          898     A     
 GPO                GE     B3,B4,GPO18 IF I \ L                                            GPO          899     A     
 GPO                LX5    59-BI.CBP                                                       GPO          900     A     
 GPO                PL     X5,GPO15    IF ^CB[BIW]                                         GPO          901     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2891    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       GPO          902     A     
 GPO                LX5    1+BI.CBP-BI.PBNP                                                GPO          903     A     
 GPO                SX7    B3          P = I                                               GPO          904     A     
 GPO                SB6    X5          J = PBN[BIW]  */ BN OF HEADER NODE                  GPO          905          I
          -FCC0448
 GPO                LX5    59-BI.FJP+BI.PBNP                                               FCC0408       11          I
          -FCC0448
 GPO                PL     X5,GPO16    IF ^FJ[BIW]   */ ^ FALL THROUGH TO HEADER           FCC0408       12          I
          -FCC0448
 GPO                SB6    0           J = 0         */ ADD *HB* TO EXIT NODE LIST         FCC0408       13          I
          -FCC0448
 GPO                                                                                       GPO          906          I
          -FCC0448
 GPO                SB6    X5          J = PBN[BIW]  */ BN OF HEADER NODE                  FCC0448       32     A     
 GPO                SA4    B7+B6       BJW = BIT(J)                                        FCC0448       33     A     
 GPO                LX4    59-BI.RBP                                                       FCC0448       34     A     
 GPO                MI     X4,GPO15A   IF RB[BJW]    */ HEADER IS A PROGRAM BLOCK          FCC0448       35     A     
 GPO                LX4    BI.RBP-BI.FJP                                                   FCC0448       36     A     
 GPO                MI     X4,GPO17    IF FJ[BJW]    */ *HB* IS REMOTE                     FCC0448       37     A     
 GPO                                                                                       FCC0448       38     A     
 GPO       GPO15A   LX5    59-BI.FJP+BI.PBNP                                               FCC0448       39     A     
 GPO                PL     X5,GPO16    IF ^FJ[BIW]   */ ^ FALL THROUGH TO HEADER           FCC0448       40     A     
 GPO                SB6    0           J = 0         */ ADD *HB* TO EXIT NODE LIST         FCC0448       41          I
          -FCC0675
 GPO                SB6    B0          J = 0         */ ADD *HB* TO EXIT NODE LIST         FCC0675       12     A     
 GPO       GPO16    SA4    B7+B6       BJW = BIT(J);  JL = J                               GPO          907     A     
 GPO                LX4    -BI.BEFP                                                        GPO          908     A     
 GPO                SB6    X4          J = BEF[BJW]                                        GPO          909     A     
 GPO                NZ     B6,GPO16    IF J " 0                                            GPO          910     A     
 GPO                                                                                       GPO          911     A     
 GPO                BX6    X4+X7       BEF[BIT(JL)] = P  */ LINK HEADER TO *HB*            GPO          912     A     
 GPO                LX6    BI.BEFP                                                         GPO          913     A     
 GPO                SA6    A4                                                              GPO          914     A     
 GPO                EQ     GPO15                                                           GPO          915     A     
 GPO                                                                                       FCC0448       42     A     
 GPO      *         *HB* FROM NEST OF *FTH* LOOPS, MAKE *HB* COME BEFORE HEADER.           FCC0448       43     A     
 GPO                                                                                       FCC0448       44     A     
 GPO       GPO17    LX5    BI.PBNP                                                         FCC0448       45     A     
 GPO                SX6    B6                                                              FCC0448       46     A     
 GPO                LX6    BI.BEFP                                                         FCC0448       47     A     
 GPO                BX6    X6+X5       BEF[BIT(I)] = J  */ HB BEFORE HEADER                FCC0448       48     A     
 GPO                SB5    B0          K = 0                                               FCC0448       49     A     
 GPO                                                                                       FCC0448       50     A     
 GPO       GPO17A   SA4    B7+B5       BKW = BIT(K);  KL = K                               FCC0448       51     A     
 GPO                LX4    -BI.BEFP                                                        FCC0448       52     A     
 GPO                SB5    X4          K = BEF[BKW]                                        FCC0448       53     A     
 GPO                NE     B5,B6,GPO17A      IF K " J                                      FCC0448       54     A     
 GPO                                                                                       FCC0448       55     A     
 GPO                SA6    A5                                                              FCC0448       56     A     
 GPO                LX4    BI.BEFP                                                         FCC0448       57     A     
 GPO                BX4    X0*X4                                                           FCC0448       58     A     
 GPO                BX7    X4+X7       BEF[BIT(KL)] = I  */ LINK PREV TO HB                FCC0448       59     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2892    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA7    A4                                                              FCC0448       60     A     
 GPO                EQ     GPO15                                                           FCC0448       61     A     
 GPO                                                                                       GPO          916     A     
 GPO      *         FINAL SCAN OF PROGRAM BLOCKS IN *BIT* TO FORM A TABLE OF               GPO          917     A     
 GPO      *         RANDOM INDEX WORDS OF THE BLOCKS IN THEIR OUTPUT ORDER.                GPO          918          I
          -FCCA588
 GPO      *         ADDRESSES OF THE BLOCKS IN THEIR OUTPUT ORDER.                         FCCA588        6     A     
 GPO                                                                                       GPO          919     A     
 GPO       GPO18    SA4    O.UDT                                                           GPO          920     A     
 GPO                SB3    B0          I = 0                                               GPO          921     A     
 GPO                SA0    X4          SI = [O.UDT]  */ RIW STORE INDEX                    GPO          922     A     
 GPO                SB4    X3+B2       L = 2*NPB + 2                                       GPO          923     A     
 GPO                EQ     GPO20                                                           GPO          924     A     
 GPO                                                                                       GPO          925     A     
 GPO       GPO19    SA4    A5+B1                                                           GPO          926          I
          -FCCA588
 GPO                BX6    X4          [SI] = BIT(I+1)                                     GPO          927          I
          -FCCA588
 GPO       GPO19    SX6    A5+B1                                                           FCCA588        7     A     
 GPO                SA6    A0                                                              GPO          928     A     
 GPO                SA0    A0+B1       SI = SI + 1                                         GPO          929     A     
 GPO                                                                                       GPO          930     A     
 GPO       GPO20    SB3    B3+B2       I = I + 2                                           GPO          931     A     
 GPO                SA5    B7+B3       BIW = BIT(I)                                        GPO          932     A     
 GPO                GE     B3,B4,GPO23 IF I \ L                                            GPO          933     A     
 GPO                LX5    -BI.BEFP                                                        GPO          934     A     
 GPO                SX2    X5          JF = BEF[BIW]                                       GPO          935     A     
 GPO                LX5    59-BI.CBP+BI.BEFP                                               GPO          936     A     
 GPO                PL     X5,GPO20    IF ^CB[BIW]   */ NOT CODED                          GPO          937     A     
 GPO                ZR     X2,GPO19    IF JF = 0     */ NO HEADER NODE BEFORE              GPO          938     A     
 GPO                                                                                       GPO          939     A     
 GPO      *         SEARCH TO END OF *BEF* CHAIN, COUNT NUMBER OF BLOCKS BEFORE.           GPO          940     A     
 GPO                                                                                       GPO          941     A     
 GPO                SB6    X2          J = JF                                              GPO          942     A     
 GPO                SB5    B1          K = 1                                               GPO          943     A     
 GPO       GPO21    SA4    B7+B6       BJW = BIT(J)                                        GPO          944     A     
 GPO                SB5    B5+1        K = K + 1                                           GPO          945     A     
 GPO                LX4    -BI.BEFP                                                        GPO          946     A     
 GPO                SB6    X4          J = BEF[BJW]                                        GPO          947     A     
 GPO                NZ     B6,GPO21    IF J " 0                                            GPO          948     A     
 GPO                                                                                       GPO          949     A     
 GPO      *         RESCAN THE LIST AND STORE *RI* WORDS IN REVERSE ORDER.                 GPO          950     A     
 GPO                                                                                       GPO          951     A     
 GPO                SA3    A5+B1                                                           GPO          952          I
          -FCCA588
 GPO                SA0    A0+B5       SI = SI + K                                         GPO          953     A     
 GPO                SB6    X2+B1       J = JF                                              GPO          954     A     
 GPO                BX7    X3                                                              GPO          955          I
          -FCCA588
 GPO                SX7    A5+B1                                                           FCCA588        8     A     
 GPO                SA7    A0-B1       SJ = SI - 1;  [SJ] = BIT(I+1)                       GPO          956     A     
 GPO       GPO22    SA3    B7+B6                                                           GPO          957          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2893    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
          -FCCA588
 GPO                SA4    A3-B1                                                           GPO          958          I
          -FCCA588
 GPO                BX7    X3                                                              GPO          959          I
          -FCCA588
 GPO                                                                                       FCCA588        9     A     
 GPO       GPO22    SX7    B7+B6                                                           FCCA588       10     A     
 GPO                SA4    X7-1                                                            FCCA588       11     A     
 GPO                SA7    A7-B1       SJ = SJ - 1;  [SJ] = BIT(J+1)                       GPO          960     A     
 GPO                LX4    -BI.BEFP                                                        GPO          961     A     
 GPO                SB6    X4+B1       J = BEF[BIT(J)]                                     GPO          962     A     
 GPO                NE     B6,B1,GPO22 IF J " 0                                            GPO          963     A     
 GPO                                                                                       GPO          964     A     
 GPO                EQ     GPO20                                                           GPO          965     A     
 GPO                                                                                       GPO          966     A     
 GPO       GPO23    MX7    0                                                               GPO          967          I
          -FCC0408
 GPO                SA7    A0          [SI] = 0                                            GPO          968          I
          -FCC0408
 GPO      *         ADD HOLDING BLOCKS FOR FALL THROUGH TO HEADER LOOPS TO LIST            FCC0408       14     A     
 GPO                                                                                       FCC0408       15     A     
 GPO       GPO23    SB6    0           J = 0                                               FCC0408       16     A     
 GPO                                                                                       FCC0408       17     A     
 GPO       GPO24    SA5    B7+B6       BIW = BIT(J)                                        FCC0408       18     A     
 GPO                LX5    -BI.BEFP                                                        FCC0408       19     A     
 GPO                SB6    X5          J = BEF[BIW]                                        FCC0408       20     A     
 GPO                ZR     B6,GPO24A   IF J = 0      */ END OF CHAIN                       FCC0408       21          I
          -FCC0675
 GPO                ZR     B6,GPO25    IF J = 0      */ END OF CHAIN                       FCC0675       13     A     
 GPO                SB5    B6+B1                                                           FCC0408       22     A     
 GPO                SA4    B7+B5                                                           FCC0408       23          I
          -FCCA588
 GPO                BX7    X4          [SI] = BIT(J+1)                                     FCC0408       24          I
          -FCCA588
 GPO                SX7    B7+B5                                                           FCCA588       12     A     
 GPO                SA7    A0                                                              FCC0408       25     A     
 GPO                SA0    A0+B1       SI = SI + 1                                         FCC0408       26     A     
 GPO                EQ     GPO24                                                           FCC0408       27     A     
 GPO       GPO      SPACE  1,10                                                            FCC0408       28     A     
 GPO       GPO24A   MX7    0                                                               FCC0408       29          I
          -FCC0675
 GPO      *         ALLOCATE TABLES FOR *CII* AND ASSIGN *CA"S* TO THE IT.S IN TET         FCC0675       14     A     
 GPO                                                                                       FCC0675       15     A     
 GPO       GPO25    MX7    0                                                               FCC0675       16     A     
 GPO                SA7    A0          [SI] = 0      */ TERMINATE THE *RIW* LIST           FCC0408       30     A     
 GPO                SA7    =XPARCEL    PARCEL = 0                                          GPO          969     A     
 GPO                SA2    M.PL                                                            GPO          970     A     
 GPO                ALLOC  PIT,X2+1    ALLOC( PIT , M.PL+1 )                               GPO          971     A     
 GPO                LX1    2                                                               GPO          972     A     
 GPO                ALLOC  TXT,X1      ALLOC( TXT , 4*(M.PL+1) )                           GPO          973     A     
 GPO                SA1    L.TET                                                           GPO          974     A     
 GPO                ALLOC  CFT,X1+B1   ALLOC( CFT , L.TET+1 )                              GPO          975          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2894    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
          -FCC0675
 GPO                SETZERO  X2,X1     SETZERO( CFT , L.TET+1 )                            GPO          976          I
          -FCC0675
 GPO                ZR     X1,GPO35    IF L.TET = 0  */ NO IT. S                           FCC0675       17     A     
 GPO       MAXT     DEQU   BVI         MAX IT. S IN LOOP                                   FCC0675       18     A     
 GPO                                                                                       FCC0675       19     A     
 GPO                SA2    O.BIT                                                           FCC0675       20     A     
 GPO                SA3    L.BIT                                                           FCC0675       21     A     
 GPO                SA4    NPB                                                             FCC0675       22     A     
 GPO                MX7    0                                                               FCC0675       23     A     
 GPO                SA7    X2          BIT(0) = 0                                          FCC0675       24     A     
 GPO                MX0    -BI.MAXTL                                                       FCC0675       25     A     
 GPO                LX4    1                                                               FCC0675       26     A     
 GPO                SB3    X4          I = 2*NPB                                           FCC0675       27     A     
 GPO                SB4    X3                                                              FCC0675       28     A     
 GPO       GPO26    SA5    X2+B3                                                           FCC0675       29     A     
 GPO                BX6    X0*X5       MAXT[BIT(I)] = 0                                    FCC0675       30     A     
 GPO                SB3    B3+2        I = I + 2                                           FCC0675       31     A     
 GPO                SA6    A5                                                              FCC0675       32     A     
 GPO                LT     B3,B4,GPO26 IF I < L.BIT                                        FCC0675       33     A     
 GPO                                                                                       FCC0675       34     A     
 GPO      *         FORM SORT TABLE AND GROUP IT.S BY THE LOOP THEY ARE DEFINED IN         FCC0675       35     A     
 GPO                                                                                       FCC0675       36     A     
 GPO                ALLOC  CFT,X1+B1   ALLOC( CFT , L.TET+1 )                              FCC0675       37     A     
 GPO                SA5    O.TET                                                           FCC0675       38     A     
 GPO                SB3    X1-1        LIM = L.TET                                         FCC0675       39     A     
 GPO                MX0    -T.HBNL                                                         FCC0675       40     A     
 GPO                MX7    0                                                               FCC0675       41     A     
 GPO                LX0    T.HBNP                                                          FCC0675       42     A     
 GPO                SA7    X2          CFT(0) = 0;  J = 1                                  FCC0675       43     A     
 GPO                SB2    B0          I = 0                                               FCC0675       44     A     
 GPO                SA5    X5                                                              FCC0675       45     A     
 GPO                                                                                       FCC0675       46     A     
 GPO       GPO27    BX6    -X0*X5                                                          FCC0675       47     A     
 GPO                LX5    59-T.EQVP                                                       FCC0675       48     A     
 GPO                ZR     X6,GPO28    IF HBN[TET(I)] = 0  */ NOT MATERIALIZED             FCC0675       49     A     
 GPO                MI     X5,GPO28    IF EQV[TET(I)]                                      FCC0675       50     A     
 GPO                SX1    B2+                                                             FCC0675       51     A     
 GPO                BX7    X6+X1                                                           FCC0675       52     A     
 GPO                SA7    A7+B1       J = J + 1;  CFT(J) = HBN[TET(I)] ! I                FCC0675       53     A     
 GPO       GPO28    SB2    B2+B1       I = I + 1                                           FCC0675       54     A     
 GPO                SA5    A5+B1                                                           FCC0675       55     A     
 GPO                LT     B2,B3,GPO27 IF I < LIM                                          FCC0675       56     A     
 GPO                                                                                       FCC0675       57     A     
 GPO                SB7    X2+B1       FWA = CFT(1)                                        FCC0675       58     A     
 GPO                SB6    A7+B1                                                           FCC0675       59     A     
 GPO                SX1    B6-B7       LEN = CFT(I+1) - FWA                                FCC0675       60     A     
 GPO                SA0    A7                        (A0) = CFT(N)                         FCC0675       61     A     
 GPO                ZR     X1,GPO33    IF LEN = 0                                          FCC0675       62     A     
 GPO                SX6    X1+B1                                                           FCC0675       63     A     
 GPO                SA6    A3          L.CFT = LEN + 1                                     FCC0675       64     A     
 GPO                CALL   SHL         SORT( CFT , LEN )                                   FCC0675       65     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2895    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       FCC0675       66     A     
 GPO      *         SCAN THE SORTED TABLE BACKWARDS ( OUTERMOST LOOPS FIRST ) AND          FCC0675       67     A     
 GPO      *         ASSIGN *CA"S* TO THE IT. S, AND ACCUMULATE THE AMOUNT OF               FCC0675       68     A     
 GPO      *         STORAGE USED.                                                          FCC0675       69     A     
 GPO                                                                                       FCC0675       70     A     
 GPO                SA5    A0          I = N;  CI = CFT(N)                                 FCC0675       71     A     
 GPO                MX0    -T.CAL                                                          FCC0675       72     A     
 GPO                SA3    O.BIT                                                           FCC0675       73     A     
 GPO                SA4    O.TET                                                           FCC0675       74     A     
 GPO                SX7    B0          C = 0                                               FCC0675       75     A     
 GPO                SX1    B1                                                              FCC0675       76     A     
 GPO                SB5    B0          MIT = 0       */ MAX IT. S                          FCC0675       77     A     
 GPO                LX1    T.FAP                                                           FCC0675       78     A     
 GPO                SB6    X3                        (B6) = O.BIT                          FCC0675       79     A     
 GPO                SB7    X4                        (B7) = O.TET                          FCC0675       80     A     
 GPO                SB4    T.HBNP                                                          FCC0675       81     A     
 GPO                AX2    B4,X5       LHB = HBN[CI]                                       FCC0675       82     A     
 GPO                                                                                       FCC0675       83     A     
 GPO       GPO30    AX3    B4,X5       H = HBN[CI]                                         FCC0675       84     A     
 GPO                BX6    X2-X3                                                           FCC0675       85     A     
 GPO                ZR     X6,GPO32    IF H = LHB    */ SAME LOOP                          FCC0675       86     A     
 GPO                                                                                       FCC0675       87     A     
 GPO                SA4    B6+X2                                                           FCC0675       88     A     
 GPO                BX6    X4+X7       MAXT[BIT(LHB)] = C  */ SAVE OLD MAX                 FCC0675       89     A     
 GPO                SA6    A4+                                                             FCC0675       90     A     
 GPO      +         SB2    X7                                                              FCC0675       91     A     
 GPO                LE     B2,B5,*+1   MIT = MAX( MIT , C )                                FCC0675       92     A     
 GPO                SB5    B2                                                              FCC0675       93     A     
 GPO                BX3    -X3                                                             FCC0675       94     A     
 GPO                SB2    X3                                                              FCC0675       95     A     
 GPO                                                                                       FCC0675       96     A     
 GPO       GPO31    SX2    X2-2        LHB = LHB - 2                                       FCC0675       97     A     
 GPO                SA4    B6+X2                                                           FCC0675       98     A     
 GPO                MX3    -BI.OLNL                                                        FCC0675       99     A     
 GPO                LX4    -BI.OLNP                                                        FCC0675      100     A     
 GPO                BX3    -X3*X4      J = OLN[BIT(LHB)]                                   FCC0675      101     A     
 GPO                SA3    B6+X3                                                           FCC0675      102     A     
 GPO                LX3    -BI.MAXTP                                                       FCC0675      103     A     
 GPO                SX7    X3          C = MAXT[BIT(J)]  */ SET BASE *CA*                  FCC0675      104     A     
 GPO                SX6    X2+B2                                                           FCC0675      105     A     
 GPO                ZR     X6,GPO32    IF LHB = H                                          FCC0675      106     A     
 GPO                LX4    BI.OLNP                                                         FCC0675      107     A     
 GPO                BX6    X4+X7       MAXT[BIT(OLN)] = C  */ PROPAGATE TO INER LP         FCC0675      108     A     
 GPO                SA6    A4                                                              FCC0675      109     A     
 GPO                EQ     GPO31                                                           FCC0675      110     A     
 GPO                                                                                       FCC0675      111     A     
 GPO      *         ASSIGN A *CA* TO THIS *TET* ENTRY                                      FCC0675      112     A     
 GPO                                                                                       FCC0675      113     A     
 GPO       GPO32    SA4    B7+X5       I = SETX([CI])                                      FCC0675      114     A     
 GPO                SA5    A5-B1       CI = CI - 1                                         FCC0675      115     A     
 GPO                BX6    X1+X7                                                           FCC0675      116     A     
 GPO                BX3    X0*X4                                                           FCC0675      117     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2896    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                BX6    X6+X3       (FA,CA)TET(I) = (1,C)                               FCC0675      118     A     
 GPO                SA6    A4                                                              FCC0675      119     A     
 GPO                SX7    X7+1        C = C + 1                                           FCC0675      120     A     
 GPO                NZ     X5,GPO30    IF [CI] " 0   */ NOT END OF SORT TABLE              FCC0675      121     A     
 GPO                                                                                       FCC0675      122     A     
 GPO      +         SB2    X7                                                              FCC0675      123     A     
 GPO                GE     B2,B5,*+1   N.IT = MAX( MIT , C )                               FCC0675      124     A     
 GPO                SX7    B5                                                              FCC0675      125     A     
 GPO                SA7    =XN.IT                                                          FCC0675      126     A     
 GPO                                                                                       FCC0675      127     A     
 GPO       GPO33    SX7    0                                                               FCC0675      128     A     
 GPO                SA7    =XL.CFT     L.CFT = 0                                           FCC0675      129     A     
 GPO       GPO      SPACE  1,14                                                            GPO          977     A     
 GPO      *         LOOP THROUGH THE TABLE OF *RI* WORDS AND CALL *CII* TO                 GPO          978     A     
 GPO      *         CONVERT THE BLOCKS TO COMPASS INSTRCUTIONS, ASSIGN ADDRESS"S           GPO          979          I
          -FCC0675
 GPO      *         AND PACK THE TEMPORARIES.                                              GPO          980          I
          -FCC0675
 GPO                                                                                       GPO          981          I
          -FCC0675
 GPO       GPO25    SA1    O.UDT                                                           GPO          982          I
          -FCC0675
 GPO      *         CONVERT THE BLOCKS TO COMPASS INSTRUCTIONS AND ASSIGN                  FCC0675      130     A     
 GPO      *         ADDRESS"S.                                                             FCC0675      131     A     
 GPO                                                                                       FCC0675      132     A     
 GPO       GPO35    SA1    O.UDT                                                           FCC0675      133     A     
 GPO                SA3    O.PIT                                                           GPO          983     A     
 GPO                SA5    X1          RIW = [SI]                                          GPO          984          I
          -FCCA588
 GPO                ZR     X5,GPO26    IF RIW = 0    */ END OF TABLE                       GPO          985          I
          -FCC0675  -FCCA588
 GPO                ZR     X5,GPO36    IF RIW = 0    */ END OF TABLE                       FCC0675      134          I
          -FCCA588
 GPO                SA5    X1          RIWA = [SI]                                         FCCA588       13     A     
 GPO                ZR     X5,GPO36    IF RIWA = 0     */ END OF TABLE                     FCCA588       14     A     
 GPO                SA5    X5          RIW = [RIWA]                                        FCCA588       15     A     
 GPO                LX5    -RI.LENP                                                        GPO          986     A     
 GPO                SX6    X1+B1       SI = SI + 1                                         GPO          987     A     
 GPO                SA6    A1                                                              GPO          988     A     
 GPO                SX7    X5          L.PIT = LEN[RIW]                                    GPO          989     A     
 GPO                LX5    RI.LENP                                                         GPO          990     A     
 GPO                SA7    L.PIT                                                           GPO          991     A     
 GPO                CALL   GMB         READ BLOCK TO *PIT*                                 GPO          992     A     
 GPO                SA1    O.PIT       R1 = [O.PIT]                                        GPO          993     A     
 GPO                SA2    X1                                                              GPO          994     A     
 GPO                SX6    X2          BN = IH[R1]   */ SET *BN* FOR TET PACKING           GPO          995     A     
 GPO                SA6    BN                                                              GPO          996     A     
 GPO                CALL   CII         CONVERT THE INSTRUCTIONS                            GPO          997     A     
 GPO                EQ     GPO25                                                           GPO          998          I
          -FCC0675
 GPO                EQ     GPO35                                                           FCC0675      135     A     
 GPO                                                                                       GPO          999     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2897    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO       GPO26    SX6    0                                                               GPO         1000          I
          -FCC0675
 GPO       GPO36    SX6    0                                                               FCC0675      136     A     
 GPO                SA6    L.PIT       L.PIT = 0                                           GPO         1001     A     
 GPO                SA6    L.TXT       L.TXT = 0                                           GPO         1002     A     
 GPO                                                                                       GPO         1003     A     
 GPO      *         COMPUTE *FL* USED AND ISSUE A DAYFILE MESSAGE IF > 50K .               GPO         1004          I
          -FCC0448
 GPO                                                                                       GPO         1005          I
          -FCC0448
 GPO      *         MU = MAX( 8*M.PL , MU )                                                GPO         1006          I
          -FCC0448
 GPO      *         P2FL = MAX( P2.FL , LM + MU )                                          GPO         1007          I
          -FCC0448
 GPO      *         FLU = P2.FL + FL-LWAWORK ( FL = CP.NFLS )                              GPO         1008          I
          -FCC0448
 GPO      *         IF( FLU @ 50K ) RETURN                                                 GPO         1009          I
          -FCC0448
 GPO      *         FLU = FLU + 1077B / 100B * 100B                                        GPO         1010          I
          -FCC0448
 GPO      *         BCDN = COD( FLU )                                                      GPO         1011          I
          -FCC0448
 GPO      *         MESSAGE  NAMEXXX,OPT2 FL = NNNNNB *                                    GPO         1012          I
          -FCC0448
 GPO                                                                                       GPO         1013          I
          -FCC0448
 GPO                EQ     GPO                                                             GPO         1014     A     
 GPO       IGP      TITLE  GRAPH PROCESSING SUBROUTINES                                    GPO         1015     A     
 GPO      **        IGP - INITIALIZE GRAPH PROCESSING                                      GPO         1016     A     
 GPO      *                                                                                GPO         1017     A     
 GPO      *         ENTRY  (GP) = GRAPH POINTER, FWA OF GRAPH TABLE                        GPO         1018     A     
 GPO      *                                                                                GPO         1019     A     
 GPO      *         EXIT   (X6) = N.LP , N. LOOPS IN GRAPH                                 GPO         1020     A     
 GPO                                                                                       GPO         1021     A     
 GPO       IGP      ROUTINE                                                                GPO         1022     A     
 GPO                SA1    GP                                                              GPO         1023     A     
 GPO                SA2    X1+B1       GB = [GP] + 1;  GBW = [GB]                          GPO         1024     A     
 GPO                SX6    A2+B1                                                           GPO         1025     A     
 GPO                SA6    EIT         EIT = [GP] + 2  */ EDGE INDEX TABLE                 GPO         1026     A     
 GPO                                                                                       GPO         1027     A     
 GPO      *         BUMP PRED COUNT OF PROGRAM EXIT NODE SO IT DOESNT BECOME A             GPO         1028     A     
 GPO      *         INSERTION POINT FOR POST STORE CODE ( FXI ).                           GPO         1029     A     
 GPO                                                                                       GPO         1030     A     
 GPO                SX5    B1                                                              GPO         1031     A     
 GPO                SA4    A2+B1                                                           GPO         1032     A     
 GPO                LX5    EI.NPP                                                          GPO         1033     A     
 GPO                IX7    X5+X4       NP[EIT] = NP[EIT] + 1                               GPO         1034     A     
 GPO                SA7    A4                                                              GPO         1035     A     
 GPO                                                                                       GPO         1036     A     
 GPO                LX2    -GB.ILIP                                                        GPO         1037     A     
 GPO                SX3    X2                                                              GPO         1038     A     
 GPO                IX7    X6+X3                                                           GPO         1039     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2898    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SB3    X7                                                              GPO         1040     A     
 GPO                SA7    IBA         IBA = EIT + ILI[GBW]                                GPO         1041     A     
 GPO                LX2    GB.ILIP-GB.NLPP                                                 GPO         1042     A     
 GPO                SX6    X2                                                              GPO         1043     A     
 GPO                SA6    N.LP        N.LP = NLP[GBW]                                     GPO         1044     A     
 GPO                MX7    0                                                               GPO         1045     A     
 GPO                SA7    NN          NN = 0                                              GPO         1046     A     
 GPO                                                                                       GPO         1047     A     
 GPO      *         SETUP *BTT* - *BN* TO *BI*  TRANSITION TABLE                           GPO         1048          I
          -FCC0392
 GPO                                                                                       GPO         1049          I
          -FCC0392
 GPO                SA5    B3          IP = IBA                                            GPO         1050          I
          -FCC0392
 GPO                SA1    O.BTT                                                           GPO         1051          I
          -FCC0392
 GPO                SB7    X1                                                              GPO         1052          I
          -FCC0392
 GPO                LX5    -IP.NODEP                                                       GPO         1053          I
          -FCC0392
 GPO                SB2    X5          N = NODE[IP]                                        GPO         1054          I
          -FCC0392
 GPO                SB5    IM.BIP                                                          GPO         1055          I
          -FCC0392
 GPO                SA7    B7          BTT(0) = 0                                          GPO         1056          I
          -FCC0392
 GPO                                                                                       GPO         1057          I
          -FCC0392
 GPO       IGP1     SA5    A5+B1       IP = IP + 1                                         GPO         1058          I
          -FCC0392
 GPO                SB2    B2-B1       N = N - 1                                           GPO         1059          I
          -FCC0392
 GPO                AX4    B5,X5                                                           GPO         1060          I
          -FCC0392
 GPO                LX5    -IM.BNP                                                         GPO         1061          I
          -FCC0392
 GPO                SX7    X4                                                              GPO         1062          I
          -FCC0392
 GPO                SA7    B7+X5       BTT(BN[IP]) = BI[IP]                                GPO         1063          I
          -FCC0392
 GPO                NZ     B2,IGP1     IF N " 0      */ NOT END OF INTERVAL LIST           GPO         1064          I
          -FCC0392
 GPO                SA5    A5+B1                                                           GPO         1065          I
          -FCC0392
 GPO                LX5    -IP.NODEP                                                       GPO         1066          I
          -FCC0392
 GPO                SB2    X5          N = NODE[IP]                                        GPO         1067          I
          -FCC0392
 GPO                NZ     X5,IGP1     IF N " 0                                            GPO         1068          I
          -FCC0392
 GPO                                                                                       GPO         1069          I
          -FCC0392
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2899    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO      *         SETUP *BTT* AND *HNT*, SET *HN* BIT FOR HEADER NODES.                  FCC0392       29     A     
 GPO      *         SETUP BVI FOR *HB"S* SO AS TO SIMPLIFY *FXI* LOGIC.                    FCC0392       30     A     
 GPO      *         BTT - NODE NUMBER TO *BI* TRANSITION TABLE                             FCC0392       31     A     
 GPO      *         HNT - HEADER NODE TO *HB* SEARCH TABLE.                                FCC0392       32     A     
 GPO                                                                                       FCC0392       33     A     
 GPO                SA0    X6                                                              FCC0392       34     A     
 GPO                SA1    O.BTT                                                           FCC0392       35     A     
 GPO                SA3    O.HNT                                                           FCC0392       36     A     
 GPO                SA2    O.BIT                                                           FCC0392       37     A     
 GPO                SB7    X1                        (B7) = O.BTT                          FCC0392       38     A     
 GPO                SB6    X3          HI = O.HNT                                          FCC0392       39     A     
 GPO                SB5    IM.BIP                                                          FCC0392       40     A     
 GPO                SB4    X2                        (B4) = O.BIT                          FCC0392       41     A     
 GPO                MX0    -IP.NODEL                                                       FCC0392       42     A     
 GPO                SA5    B3          IP = IBA                                            FCC0392       43     A     
 GPO                MX7    0                                                               FCC0392       44     A     
 GPO                SA7    B7          BTT(0) = 0                                          FCC0392       45     A     
 GPO                                                                                       FCC0392       46     A     
 GPO       IGP1     BX1    X0*X5       HNI = (NIP,PB)[IP]                                  FCC0392       47     A     
 GPO                LX5    -IP.NODEP                                                       FCC0392       48     A     
 GPO                SB2    X5          N = NODE[IP]                                        FCC0392       49     A     
 GPO                SA5    A5+B1       IP = IP + 1   */ HEADER NODE                        FCC0392       50     A     
 GPO                BX2    X5          IPF = [IP]                                          FCC0392       51     A     
 GPO                                                                                       FCC0392       52     A     
 GPO       IGP2     AX4    B5,X5                                                           FCC0392       53     A     
 GPO                LX5    -IM.BNP                                                         FCC0392       54     A     
 GPO                SX7    X4                                                              FCC0392       55     A     
 GPO                SA7    B7+X5       BTT(BN[IP]) = BI[IP]                                FCC0392       56     A     
 GPO                SB2    B2-B1       N = N - 1                                           FCC0392       57     A     
 GPO                SA5    A5+B1       IP = IP + 1                                         FCC0392       58     A     
 GPO                NZ     B2,IGP2     IF N " 0                                            FCC0392       59     A     
 GPO                                                                                       FCC0392       60     A     
 GPO                LX2    59-IM.SCRP                                                      FCC0392       61     A     
 GPO                PL     X2,IGP3     IF ^SCR[IPF]  */ HEADER ^ IN SCR                    FCC0392       62     A     
 GPO                LX2    1+IM.SCRP-IM.BIP  I = BI[IPF]                                   FCC0392       63     A     
 GPO                SX2    X2                                                              FCC0392       64     A     
 GPO                BX7    X1+X2                                                           FCC0392       65     A     
 GPO                SA7    B6          [HI] = HNW(HNI,I)                                   FCC0392       66     A     
 GPO                SB6    B6+B1       HI = HI + 1                                         FCC0392       67     A     
 GPO                                                                                       FCC0392       68     A     
 GPO                LX1    -IP.PBP+1   HBI = 2*PB[HNI]                                     FCC0392       69     A     
 GPO                SX4    B1                                                              FCC0392       70     A     
 GPO                SA3    B4+X2                                                           FCC0392       71     A     
 GPO                LX4    BI.HNP                                                          FCC0392       72     A     
 GPO                BX6    X4+X3       HN[BIT(I)] = 1                                      FCC0392       73     A     
 GPO                SA6    A3                                                              FCC0392       74     A     
 GPO                LX3    -BI.BVIP                                                        FCC0392       75     A     
 GPO                SX7    X3                                                              FCC0392       76     A     
 GPO                LX7    BI.BVIP                                                         FCC0392       77     A     
 GPO                SA7    B4+X1       BVI[BIT(HBI)] = BVI[BIT(I)]                         FCC0392       78     A     
 GPO                                                                                       FCC0392       79     A     
 GPO       IGP3     NZ     X5,IGP1     IF [IP] " 0   */ ^ END OF INTERVAL LIST             FCC0392       80     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2900    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       FCC0392       81     A     
 GPO                SX6    A0                                                              FCC0392       82     A     
 GPO                SX7    B6                                                              FCC0392       83     A     
 GPO                SA7    L.HNT       L.HNT = HI    */ LWA+1 OF HNT                       FCC0392       84     A     
 GPO                EQ     IGP                                                             GPO         1070     A     
 GPO       FNL      SPACE  3,14        FNL                                                 GPO         1071     A     
 GPO      **        FNL - FIND NEXT LOOP ( STRONGLY CONNECTED REGION  )                    GPO         1072     A     
 GPO      *                                                                                GPO         1073     A     
 GPO      *         EXIT   (IBA) = INTERVAL LIST ADDRESS FOR *SCR*                         GPO         1074     A     
 GPO      *                (NN) = N.NODES IN INTERVAL                                      GPO         1075     A     
 GPO      *                (X4) = IM = [IBA] , FIRST INTERVAL MEMBER WORD                  GPO         1076     A     
 GPO                                                                                       GPO         1077     A     
 GPO       FNL0     SX6    A4                                                              GPO         1078     A     
 GPO                SA6    A1          IBA = IM                                            GPO         1079     A     
 GPO                SX7    B2                                                              GPO         1080     A     
 GPO                SA7    A2          NN = NODE[IP]                                       GPO         1081     A     
 GPO                LX4    1+IM.SCRP                                                       GPO         1082     A     
 GPO                                                                                       GPO         1083     A     
 GPO       FNL      ROUTINE                                                                GPO         1084     A     
 GPO                SA1    IBA                                                             GPO         1085     A     
 GPO                SA2    A1+B1                                                           GPO         1086     A     
 GPO                IX7    X1+X2                                                           GPO         1087     A     
 GPO                SA5    X7          IP = IBA + NN */ POINT TO IP WORD OF NEXT           GPO         1088     A     
 GPO                                                                                       GPO         1089     A     
 GPO       FNL1     SA4    A5+B1       IM = IP + 1                                         GPO         1090     A     
 GPO                LX5    -IP.NODEP                                                       GPO         1091     A     
 GPO                SB2    X5          N = NODE[IP]                                        GPO         1092     A     
 GPO                LX4    59-IM.SCRP                                                      GPO         1093     A     
 GPO                MI     X4,FNL0     IF SCR[IM]    */ HEADER IN A *SCR*                  GPO         1094     A     
 GPO                SA5    A4+B2       IP = IM + N   */ ADVANCE TO NEXT HEADER             GPO         1095     A     
 GPO                EQ     FNL1                                                            GPO         1096     A     
 GPO       GNG      SPACE  2,14        GNG                                                 GPO         1097     A     
 GPO      **        GNG - GET NEXT GRAPH TABLE                                             GPO         1098     A     
 GPO      *                                                                                GPO         1099     A     
 GPO      *         EXIT   (X6) = 0 IF END OF GRAPHS, ELSE (GP) = FWA OF GRAPH             GPO         1100     A     
 GPO                                                                                       GPO         1101     A     
 GPO       GNG0     SA2    GP                                                              GPO         1102     A     
 GPO                SA3    X2                                                              GPO         1103     A     
 GPO                LX3    -GA.LFP                                                         GPO         1104     A     
 GPO                SX6    X3                                                              GPO         1105     A     
 GPO                ZR     X6,GNG      IF LF[GP] = 0 */ LEAVE *GP* ALONE                   GPO         1106     A     
 GPO                IX7    X2+X6       GP = GP + LF[GP]                                    GPO         1107     A     
 GPO                SA7    A2                                                              GPO         1108     A     
 GPO       GNG      ROUTINE                                                                GPO         1109     A     
 GPO                SA1    GIC                                                             GPO         1110     A     
 GPO                ZR     X1,GNG0     IF GIC = 0    */ ALL GRAPHS ARE INCORE              GPO         1111     A     
 GPO                                                                                       GPO         1112     A     
 GPO                SA4    X1+B1       RAW = [GIC+1] */ RANDOM INDEX WORD                  GPO         1113     A     
 GPO                SX7    X1+B1       GIC = GIC + 1                                       GPO         1114     A     
 GPO                MX6    0                                                               GPO         1115     A     
 GPO                SA7    A1                                                              GPO         1116     A     
 GPO                ZR     X4,GNG      IF RAW = 0    */ END OF GRAPHS                      GPO         1117     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2901    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA2    GP                                                              GPO         1118     A     
 GPO                LX4    -RI.LENP                                                        GPO         1119     A     
 GPO                SX5    X4          L = LEN[RAW]                                        GPO         1120     A     
 GPO                LX4    RI.LENP                                                         GPO         1121     A     
 GPO                CALL   GBD         GBD( FSCM = GP , RAW , L )                          GPO         1122     A     
 GPO                SX6    B1                                                              GPO         1123     A     
 GPO                EQ     GNG                                                             GPO         1124     A     
 GPO       IRP      TITLE  IRP - INITIALIZE REGION PROCESSING                              GPO         1125     A     
 GPO      **        IRP - INITIALIZE REGION PROCESSING FOR A *SCR*                         GPO         1126     A     
 GPO                                                                                       GPO         1127     A     
 GPO       IRP      ROUTINE                                                                GPO         1128     A     
 GPO                SA5    NN                                                              GPO         1129     A     
 GPO                LX4    B1,X5                                                           GPO         1130     A     
 GPO                ALLOC  BST,X4+3    ALLOC( BST , 2*NN+3 )                               GPO         1131     A     
 GPO                                                                                       GPO         1132     A     
 GPO      *         SETUP *BST* FOR PROCESSING OF *SCR*                                    GPO         1133     A     
 GPO      *         INITIALIZE *BST,BIT* ENTRIES FOR HOLDING BLOCK                         GPO         1134     A     
 GPO                                                                                       GPO         1135     A     
 GPO                SA4    IBA                                                             GPO         1136     A     
 GPO                SA3    O.BIT                                                           GPO         1137     A     
 GPO                SB5    X5          N = NN                                              GPO         1138     A     
 GPO                SA1    X4          IP = [IBA]                                          GPO         1139     A     
 GPO                SA5    A1-B1       IHW = [IBA-1]                                       GPO         1140     A     
 GPO                LX5    -IP.PBP+1                                                       GPO         1141     A     
 GPO                SX6    X5          HN = 2*PB[IHW]  */ *BN* OF HOLDING BLOCK            GPO         1142     A     
 GPO                MX7    0                                                               GPO         1143     A     
 GPO                SA6    HBI         HBI(1) = HN                                         GPO         1144     A     
 GPO                MX0    -BA.HBBL                                                        GPO         1145     A     
 GPO                LX6    BA.BIP                                                          GPO         1146     A     
 GPO                LX0    BA.HBBP                                                         GPO         1147     A     
 GPO                BX6    -X0+X6                                                          GPO         1148     A     
 GPO                SA6    X2          BST(0) = BAW(HBB,HN,0,0)                            GPO         1149     A     
 GPO                SB7    X2                                                              GPO         1150     A     
 GPO                SA7    X2+B1       BST(1) = 0;  I = 2                                  GPO         1151     A     
 GPO                MX0    -IM.BIL                                                         GPO         1152     A     
 GPO                SB3    X3+B1                                                           GPO         1153     A     
 GPO                SB2    X5                                                              GPO         1154     A     
 GPO                LX0    IM.BIP                                                          GPO         1155     A     
 GPO                SA2    X3+B2                                                           GPO         1156     A     
 GPO                BX7    -X0*X1      BN = BI[IP]   */ BN OF HEADER                       GPO         1157     A     
 GPO                LX7    BI.PBNP-IM.BIP                                                  GPO         1158     A     
 GPO                BX7    X7+X2       PBN[BIT(HN)] = BN  */ LINK *HB* TO HEADER           GPO         1159     A     
 GPO                MX6    -BI.BVIL                                                        FCC0392       85     A     
 GPO                LX6    BI.BVIP                                                         FCC0392       86     A     
 GPO                BX7    X6*X7       BVI[BIT(HN)] = 0                                    FCC0392       87     A     
 GPO                SA7    A2                                                              GPO         1160     A     
 GPO                SB2    B0          TLEN = 0                                            GPO         1161     A     
 GPO                                                                                       GPO         1162     A     
 GPO       IRP1     LX1    59-IM.SCRP                                                      GPO         1163     A     
 GPO                PL     X1,IRP2     IF ^SCR[IP]   */ BLOCK NOT IN *LOOP*                GPO         1164     A     
 GPO                LX1    1+IM.SCRP                                                       GPO         1165     A     
 GPO                BX6    -X0*X1                                                          GPO         1166     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2902    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                BX7    X1                                                              GPO         1167     A     
 GPO                LX1    -IM.BIP                                                         GPO         1168     A     
 GPO                SA2    B3+X1       RIW = BIT(BI[IP]+1)                                 GPO         1169     A     
 GPO                LX2    -RI.LENP                                                        GPO         1170     A     
 GPO                SB2    B2+X2       TLEN = TLEN + LEN[RIW]                              GPO         1171     A     
 GPO                LX6    BA.BIP-IM.BIP                                                   GPO         1172     A     
 GPO                SA6    A6+2        BST(I) = BAW(0,BI[IP],0,0)                          GPO         1173     A     
 GPO                SA7    A6+1        BST(I+1) = 0;  I = I + 2                            GPO         1174     A     
 GPO                                                                                       GPO         1175     A     
 GPO       IRP2     SB5    B5-B1       N = N - 1                                           GPO         1176     A     
 GPO                SA1    A1+B1       IP = IP + 1                                         GPO         1177     A     
 GPO                NZ     B5,IRP1     IF N " 0                                            GPO         1178     A     
 GPO                                                                                       GPO         1179     A     
 GPO                MX6    0                                                               GPO         1180     A     
 GPO                SA6    A7+B1       BST(I) = 0    */ TABLE TERMINATOR                   GPO         1181     A     
 GPO                SB6    A6+B1                                                           GPO         1182     A     
 GPO                SX7    B6-B7       L.BST = I + 1                                       GPO         1183     A     
 GPO                SA7    L.BST                                                           GPO         1184     A     
 GPO       IRP      SPACE  1,10                                                            GPO         1185     A     
 GPO      *         INITIALIZE FLAGS, CLEAR REGION BIT VECTORS                             GPO         1186     A     
 GPO                                                                                       GPO         1187     A     
 GPO                SA1    L.SBV                                                           GPO         1188     A     
 GPO                SA2    DVA                                                             GPO         1189     A     
 GPO                SETZERO X2,X1      SETZERO( [DVA] , L.SBV )                            GPO         1190     A     
 GPO                MX5    -24                                                             GPO         1191     A     
 GPO                BX7    -X5         MRA = ^MASK(36)                                     GPO         1192     A     
 GPO                SA7    MRA                                                             GPO         1193     A     
 GPO                SA7    MRA.X       MRA.X = MRA                                         FCC1254       10     A     
 GPO                SETZERO N.HB,N.CLC SETZERO( N.HB , N.CLC )                             GPO         1194     A     
 GPO                SA1    L.TET                                                           GPO         1195     A     
 GPO                MX6    0                                                               GPO         1196     A     
 GPO                BX7    X1                                                              GPO         1197     A     
 GPO                SA7    ITL         ITL = L.TET                                         GPO         1198     A     
 GPO                SA7    TTI         TTI = L.TET                                         GPO         1199     A     
 GPO                SA6    NTP         NTP = 0                                             GPO         1200     A     
 GPO                SA6    LGL         LGL = 0                                             GPO         1201     A     
 GPO                SA6    UXR+1       UXR(2) = 0                                          GPO         1202     A     
 GPO                SA6    NBIP        NBIP = 0                                            FCC0514       30     A     
 GPO                                                                                       GPO         1203     A     
 GPO      *         GET HEADER NODE, SET LINENR OF *BOS*, LOOP LABEL, ETC.                 GPO         1204     A     
 GPO                                                                                       GPO         1205     A     
 GPO                SX7    2                                                               GPO         1206     A     
 GPO                SA7    BSI         BSI = 2                                             GPO         1207     A     
 GPO                CALL   RTB         READ FIRST BLOCK INTO *BLK*                         GPO         1208     A     
 GPO                                                                                       GPO         1209     A     
 GPO                SA1    O.SEQ       T = [O.SEQ]                                         GPO         1210     A     
 GPO                SA3    IBA                                                             GPO         1211     A     
 GPO                SA5    X1+5                                                            GPO         1212     A     
 GPO                SA4    X1                                                              GPO         1213     A     
 GPO                LX7    X5          LIH(2) = [T+5]  */ R2 WORD OF LOOP *LAB*            GPO         1214     A     
 GPO                SA5    A5-B1       R1 = [T+4]      */ R1 WORD OF *LAB*                 GPO         1215     A     
 GPO                BX6    X4                                                              GPO         1216     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2903    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA6    HBI+1       HBI(2) = [T]  */ R1 WORD OF *BOS*                   GPO         1217     A     
 GPO                SA7    LIH+1                                                           GPO         1218     A     
 GPO                LX6    -R1.INP                                                         GPO         1219     A     
 GPO                SX6    X6          LINENR = IN[T]  */ LINE NUMBER OF LOOP              GPO         1220     A     
 GPO                SA6    =XLINENR                                                        GPO         1221     A     
 GPO                SX7    X5                                                              GPO         1222     A     
 GPO                SA7    A7-B1       LIH(1) = IH[R1]                                     GPO         1223     A     
 GPO                MX7    0                                                               FCC2113       14     A     
 GPO                SA7    A5+B1       [T+5] = 0     */ CLEAR R2 WORD OF LABEL DEF         FCC2113       15     A     
 GPO                SA3    X3-1        IPW = [IBA-1]                                       GPO         1224     A     
 GPO                LX3    59-IP.GLP                                                       GPO         1225     A     
 GPO                PL     X3,IRP      IF ^GL[IPW]   */ NO LABEL TRANSFER NECESSAR         GPO         1226     A     
 GPO                                                                                       FCC0408       31     A     
 GPO                LX3    IP.GLP-IP.FTP                                                   FCC0408       32     A     
 GPO                BX6    X3                                                              FCC0408       33     A     
 GPO                SA6    FTH         FTH = FT[IPW] */ SAVE FOR *TRP*                     FCC0408       34     A     
 GPO       IRP      SPACE  1,10                                                            GPO         1227     A     
 GPO      *         REGION HAS MORE THAN 1 PRED, SETUP *LGL* TO INDICATE CREATION          GPO         1228     A     
 GPO      *         OF A GENERATED LABEL FOR THE TRANSFERS INSIDE THE LOOP.                GPO         1229     A     
 GPO                                                                                       GPO         1230     A     
 GPO                SA4    N.GL0                                                           GPO         1231     A     
 GPO                UX5    B2,X5                                                           GPO         1232     A     
 GPO                SX6    X4+B1       N.GL0 = N.GL0 + 1                                   GPO         1233     A     
 GPO                SA6    A4                                                              GPO         1234     A     
 GPO                SX5    X5          LL = IH[R1]                                         GPO         1235     A     
 GPO                SX6    X6+I.GL     GIH = I.GL + N.GL0                                  GPO         1236     A     
 GPO                IX2    X6-X5                                                           GPO         1237     A     
 GPO                LX2    18                                                              GPO         1238     A     
 GPO                BX7    X2+X5       LGL = SHIFT(GIH-LL,18) ! LL                         GPO         1239     A     
 GPO                PX6    B2,X6                                                           GPO         1240     A     
 GPO                SA7    LGL                                                             GPO         1241     A     
 GPO                SA6    X1+4        [T+4] = TYIV(OC.LAB,0,GIH)                          GPO         1242     A     
 GPO                                                                                       GPO         1243     A     
 GPO                SA2    HBI                                                             GPO         1244     A     
 GPO                SA1    O.BIT                                                           GPO         1245     A     
 GPO                SX0    B1                                                              GPO         1246     A     
 GPO                SB3    X2                                                              GPO         1247     A     
 GPO                SA3    X1+B3                                                           GPO         1248     A     
 GPO                LX0    BI.ILP                                                          GPO         1249     A     
 GPO                BX6    X0+X3       IL[BIT(HN)] = 1  */ SET *INIT* LAB BIT              GPO         1250     A     
 GPO                SA6    A3                                                              GPO         1251     A     
 GPO                EQ     IRP                                                             GPO         1252          I
          -FCC1319
 GPO                                                                                       FCC1319       26     A     
 GPO      *         SETUP INFO IN SYMTAB AND *LCT* IN CASE THERE ARE TRANSFERS             FCC1319       27     A     
 GPO      *         FROM LOOPS INSIDE THIS LOOP TO THE HEAD OF IT THAT WILL BE             FCC1319       28     A     
 GPO      *         ADJUSTED IN *POST*.                                                    FCC1319       29     A     
 GPO                                                                                       FCC1319       30     A     
 GPO                SA3    N.GL0                                                           FCC1319       31     A     
 GPO                LX3    LC.GLNP                                                         FCC1319       32     A     
 GPO                BX6    X3+X2                                                           FCC1319       33     A     
 GPO                SA4    L.LCT       L = L.LCT                                           FCC1319       34     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2904    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA3    O.LCT                                                           FCC1319       35     A     
 GPO                SB3    X3                                                              FCC1319       36     A     
 GPO                SA6    B3+X4       LCT(L) = LC(0,N.GL0,HBI)                            FCC1319       37     A     
 GPO                SX7    X4+B1       L.LCT = L.LCT + 1                                   FCC1319       38     A     
 GPO                SA7    A4                                                              FCC1319       39     A     
 GPO                SA1    O.SYM                                                           FCC1319       40     A     
 GPO                LX5    1                                                               FCC1319       41     A     
 GPO                IX7    X1-X5                                                           FCC1319       42     A     
 GPO                SA5    X7          WORDA = SYM(IH)                                     FCC1319       43     A     
 GPO                SX0    B1                                                              FCC1319       44     A     
 GPO                LX0    P.LC                                                            FCC1319       45     A     
 GPO                BX7    X0+X5                                                           FCC1319       46     A     
 GPO                MX0    -L.LCO                                                          FCC1319       47     A     
 GPO                SA1    A5-B1       WORDB = WORDA-1                                     FCC1319       48     A     
 GPO                LX5    59-P.LC                                                         FCC1319       49     A     
 GPO                PL     X5,IRP4     IF ^LC[WORDA] */ FIRST TIME                         FCC1319       50     A     
 GPO                                                                                       FCC1319       51     A     
 GPO                BX7    -X0*X1      J = LCO[WORDB]                                      FCC1319       52     A     
 GPO      +         SA2    B3+X7       JL = J                                              FCC1319       53     A     
 GPO                LX2    -LC.NEXTP                                                       FCC1319       54     A     
 GPO                SX7    X2+         J = NEXT[LCT(JL)]                                   FCC1319       55     A     
 GPO                NZ     X7,*-1      IF J " 0                                            FCC1319       56     A     
 GPO                                                                                       FCC1319       57     A     
 GPO                BX6    X4+X2       NEXT[LCT(JL)] = L.LCT - 1                           FCC1319       58     A     
 GPO                LX6    LC.NEXTP                                                        FCC1319       59     A     
 GPO                SA6    A2                                                              FCC1319       60     A     
 GPO                EQ     IRP5                                                            FCC1319       61     A     
 GPO                                                                                       FCC1319       62     A     
 GPO       IRP4     SA7    A5          LC[WORDA] = 1                                       FCC1319       63     A     
 GPO                BX1    X0*X1                                                           FCC1319       64     A     
 GPO                BX7    X4+X1       LCO[WORDB] = L                                      FCC1319       65     A     
 GPO                SA7    A1                                                              FCC1319       66     A     
 GPO                                                                                       FCC1319       67     A     
 GPO       IRP5     EQ     IRP                                                             FCC1319       68     A     
 GPO       IHB      SPACE  3,14        IHB                                                 GPO         1253     A     
 GPO      **        IHB - INITIALIZE HOLDING BLOCK                                         GPO         1254     A     
 GPO                                                                                       GPO         1255     A     
 GPO       IHB      ROUTINE                                                                GPO         1256     A     
 GPO                SA2    HBI         HN = HBI(1)                                         GPO         1257     A     
 GPO                SA1    A2+B1                                                           GPO         1258     A     
 GPO                MX0    -18                                                             GPO         1259     A     
 GPO                SA4    O.TXT       R1 = [O.TXT]                                        GPO         1260     A     
 GPO                SA5    LGL                                                             GPO         1261     A     
 GPO                BX3    X0*X1                                                           GPO         1262     A     
 GPO                IX6    X3+X2       [R1] = TYIV(OC.BOS,LINENR,HN)                       GPO         1263     A     
 GPO                SA6    X4+                                                             GPO         1264     A     
 GPO                ZR     X5,IHB      IF LGL = 0    */ NO GENERATED LABEL                 GPO         1265     A     
 GPO                                                                                       GPO         1266     A     
 GPO                ALLOC  TXT,4       ALLOC( TXT , 4 )                                    GPO         1267     A     
 GPO                SB7    X2                                                              GPO         1268     A     
 GPO                SB2    OC.LAB                                                          GPO         1269     A     
 GPO                SX4    X5          LL = SETX(LGL)  */ CURRENT LOOP LABEL               GPO         1270     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2905    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                AX5    18                                                              GPO         1271     A     
 GPO                IX6    X4+X5       LIH = GLB[LGL]                                      GPO         1272          I
          -FCC2113
 GPO                SA6    LIH                                                             GPO         1273          I
          -FCC2113
 GPO                MX7    0                                                               GPO         1274          I
          -FCC2113
 GPO                IX7    X4+X5       LIH = GLB[LGL]  */ SAVE GEN LABEL IN R2             FCC2113       16     A     
 GPO                SA7    LIH         UPDATE LIH                                          FCCA495        6     A     
 GPO                SX6    X4                                                              GPO         1275     A     
 GPO                RJ     SRI         SRI(  LAB  0,LL )  */ MOVE LABEL OUT                GPO         1276     A     
 GPO                EQ     IHB                                                             GPO         1277     A     
 GPO       TRP      TITLE  TRP - TERMINATE REGION PROCESSING                               GPO         1278     A     
 GPO      **        TRP - TERMINATE REGION PROCESSING FOR A LOOP                           GPO         1279     A     
 GPO                                                                                       GPO         1280     A     
 GPO       TRP      ROUTINE                                                                GPO         1281     A     
 GPO                                                                                       GPO         1282     A     
 GPO      *         CHECK LOOP CONTROL VAR AND SET *M* BIT IN SYMTAB IF IT IS ^RD          GPO         1283     A     
 GPO                                                                                       GPO         1284     A     
 GPO                SA4    LIH+1                                                           GPO         1285     A     
 GPO                ZR     X4,TRP1     IF LIH(2) = 0 */ NOT A DO LOOP                      GPO         1286     A     
 GPO                SA1    O.UDT                                                           GPO         1287     A     
 GPO                LX4    -IH.ICVP                                                        GPO         1288     A     
 GPO                SB4    X4                                                              GPO         1289     A     
 GPO                SB3    I.GL                                                            FCC2113       17     A     
 GPO                GT     B4,B3,TRP1  IF LIH > I.GL */ LAB IH FROM FTH LOOP               FCC2113       18     A     
 GPO                SA3    X1+B4       UI = UDT(ICV[LIH])                                  GPO         1290     A     
 GPO                LX3    59-UD.^RDP                                                      GPO         1291     A     
 GPO                PL     X3,TRP1     IF RD[UI]                                           GPO         1292     A     
 GPO                SA4    A4-B1       IH = LIH(1)   */ *IH* OF )XX                        GPO         1293     A     
 GPO                SA5    O.SYM                                                           GPO         1294     A     
 GPO                SX7    B1                                                              GPO         1295     A     
 GPO                LX4    1                                                               GPO         1296     A     
 GPO                IX5    X5-X4                                                           GPO         1297     A     
 GPO                SA3    X5-1        WORDB = [O.SYM-2*IH-1]                              GPO         1298     A     
 GPO                LX7    P.FLG+OF.MP                                                     GPO         1299     A     
 GPO                BX6    X3+X7       MAT[WORDB] = 1  */ SET MATERIALIZATION FLAG         GPO         1300     A     
 GPO                SA6    A3                                                              GPO         1301     A     
 GPO                                                                                       GPO         1302     A     
 GPO       TRP1     SA4    L.BST                                                           GPO         1303     A     
 GPO                SX5    X4-5                                                            GPO         1304     A     
 GPO                RJ     CRB         RESET *UDT*                                         GPO         1305     A     
 GPO                SX6    0                                                               GPO         1306     A     
 GPO                SA6    L.IIT       L.IIT = 0                                           GPO         1307     A     
 GPO                SA6    BSI         BSI = 0                                             GPO         1308     A     
 GPO                SA6    BBV         BBV = 0                                             GPO         1309     A     
 GPO                                                                                       GPO         1310     A     
 GPO                CALL   RTB         GET HOLDING BLOCK                                   GPO         1311     A     
 GPO                SA4    HBI                                                             GPO         1312     A     
 GPO                SA5    O.SEQ                                                           GPO         1313     A     
 GPO                MX7    -UD.STCP                                                        GPO         1314     A     
 GPO                BX6    X4                                                              GPO         1315     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2906    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA7    BCM         BCM = *REGION CLEAR MASK*                           GPO         1316     A     
 GPO                SA6    BN          BN = HBI(1)                                         GPO         1317     A     
 GPO                CALL   FUD         FORM BIT VECTORS FOR *HB*                           GPO         1318     A     
 GPO                SX6    1                                                               GPO         1319     A     
 GPO                SA6    BBV         BBV = 1                                             GPO         1320     A     
 GPO                MX7    UD.MVL                                                          GPO         1321     A     
 GPO                LX7    UD.MVL+UD.MVP                                                   GPO         1322     A     
 GPO                SA7    BCM         BCM = *MV*                                          GPO         1323     A     
 GPO                                                                                       GPO         1324     A     
 GPO      *         *HB* LIVE EXIT VECTOR IS REGION LIVE ENTRY VECTOR                      GPO         1325     A     
 GPO                                                                                       GPO         1326     A     
 GPO                SA1    VL                                                              GPO         1327     A     
 GPO                SA2    O.BVT                                                           GPO         1328     A     
 GPO                SA3    L.BVT                                                           GPO         1329     A     
 GPO                SA4    LEA                                                             GPO         1330     A     
 GPO                IX7    X3-X1                                                           GPO         1331     A     
 GPO                SB4    X2                        (B4) = [O.BVT]                        GPO         1332     A     
 GPO                SB5    B4+X7       LVA = O.BVT + L.BVT - VL                            GPO         1333     A     
 GPO                SB2    B0                                                              GPO         1334     A     
 GPO                SB3    X1                                                              GPO         1335     A     
 GPO       TRP2     SA5    X4+B2       MOVE( VL , [LEA] , LVA )                            GPO         1336     A     
 GPO                BX6    X5                                                              GPO         1337     A     
 GPO                SA6    B5+B2                                                           GPO         1338     A     
 GPO                SB2    B2+B1                                                           GPO         1339     A     
 GPO                LT     B2,B3,TRP2                                                      GPO         1340     A     
 GPO                                                                                       GPO         1341     A     
 GPO      *         SAVE REGION BIT VECTORS ( DEF, LU, USE, LX ) IN THE HEADER             GPO         1342     A     
 GPO      *         NODE BIT VECTOR SLOT.                                                  GPO         1343     A     
 GPO                                                                                       GPO         1344     A     
 GPO                SA4    O.BIT                                                           GPO         1345     A     
 GPO                SA5    HBI+1       BN = HBI(2)   */ BN OF HEADER                       GPO         1346     A     
 GPO                SA2    DVA                                                             GPO         1347     A     
 GPO                LX1    2                                                               GPO         1348     A     
 GPO                SB6    X4                                                              GPO         1349     A     
 GPO                SA3    B6+X5       BIW = BIT(BN)                                       GPO         1350     A     
 GPO                LX3    -BI.BVIP                                                        GPO         1351     A     
 GPO                MOVE   X1,X2,B4+X3 MOVE( 4*VL , [DVA] , O.BVT + BVI[BIW] )             GPO         1352     A     
 GPO                                                                                       GPO         1353     A     
 GPO                SA5    O.SEQ                                                           GPO         1354          I
          -FCC0408
 GPO                SA1    FTH                                                             FCC0408       35     A     
 GPO                PL     X1,TRP3     IF ^FTH       */ NOT A FALL THROUGH TO *HN*         FCC0408       36          I
          -FCC0675
 GPO                MI     X1,TRP3     IF FTH < 0    */ FALL THROUGH TO *HN*               FCC0675      137     A     
 GPO                SA3    B6+X5       BIW = BIT(HN)                                       FCC0675      138     A     
 GPO                LX3    59-BI.RBP                                                       FCC0675      139     A     
 GPO                MI     X3,TRP4     IF RB[BIW]    */ PROGRAM BLOCK                      FCC0675      140     A     
 GPO                LX3    BI.RBP-BI.FTHP                                                  FCC0675      141     A     
 GPO                PL     X3,TRP4     IF ^FTH[BIW]  */ INNER LP NOT *FTH*                 FCC0675      142     A     
 GPO                                                                                       FCC0408       37     A     
 GPO      *         LOOP CONTAINS A FALL THROUGH TO THE HEADER NODE, AND REMOTE            FCC0408       38     A     
 GPO      *         ENTRY BY A JUMP, SET *FJ* IN *BIT* AND APPEND A FINAL *UJP*            FCC0408       39     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2907    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO      *         TO THE *HB*.                                                           FCC0408       40     A     
 GPO                                                                                       FCC0408       41     A     
 GPO                MX7    0                                                               FCC0408       42          I
          -FCC0675
 GPO                SA7    A1          FTH = 0                                             FCC0408       43          I
          -FCC0675
 GPO                SA2    L.SEQ                                                           FCC0408       44          I
          -FCC0675
 GPO                SB2    X2-12                                                           FCC0408       45          I
          -FCC0675
 GPO                LE     B2,TRP3     IF L.SEQ @ 12 */ NOTHING MOVED FROM THE LOO         FCC0408       46          I
          -FCC0675
 GPO                SA1    HBI                                                             FCC0408       47          I
          -FCC0675
 GPO                SA2    O.BIT                                                           FCC0408       48          I
          -FCC0675
 GPO                SX0    B1                                                              FCC0408       49          I
          -FCC0675
 GPO                IX7    X1+X2                                                           FCC0408       50          I
          -FCC0675
 GPO                LX0    BI.FJP                                                          FCC0408       51          I
          -FCC0675
 GPO                SA3    X7                                                              FCC0408       52          I
          -FCC0675
 GPO                BX6    X0+X3       FJ[BIT(HBI)] = 1                                    FCC0408       53          I
          -FCC0675
 GPO       TRP3     MX7    0           FTH = 0                                             FCC0675      143     A     
 GPO                SA7    A1                                                              FCC0675      144     A     
 GPO                SA1    HBI                                                             FCC0675      145     A     
 GPO                SA2    L.SEQ                                                           FCC0675      146          I
          -FCC2091
 GPO                SA3    B6+X1                                                           FCC0675      147     A     
 GPO                SX0    B1                                                              FCC0675      148     A     
 GPO                LX0    BI.FTHP                                                         FCC0675      149     A     
 GPO                BX6    X0+X3       FTH[BIT(HBI)] = 1                                   FCC0675      150     A     
 GPO                SA6    A3                                                              FCC0675      151     A     
 GPO                SB2    X2-12                                                           FCC0675      152          I
          -FCC2091
 GPO                LE     B2,TRP4     IF L.SEQ @ 12 */ NOTHING MOVED FROM LP              FCC0675      153          I
          -FCC2091
 GPO                LX0    BI.FJP-BI.FTHP                                                  FCC0675      154     A     
 GPO                BX6    X0+X6       FJ[BIT(HBI)] = 1                                    FCC0675      155     A     
 GPO                SA6    A3                                                              FCC0408       54     A     
 GPO                CALL   MBT         MOVE *HB* TO *TXT*                                  FCC0408       55     A     
 GPO                ALLOC  TXT,4       ALLOC( TXT , 4 )                                    FCC0408       56     A     
 GPO                SA5    N.GL0                                                           FCC0408       57     A     
 GPO                SB6    X3-8        TI = L.TXT - 8                                      FCC0408       58     A     
 GPO                SB2    OC.UJP                                                          FCC0408       59     A     
 GPO                SX6    I.GL+X5                                                         FCC0408       60     A     
 GPO                SB7    X2          TB = O.TXT                                          FCC0408       61     A     
 GPO                MX7    0                                                               FCC0408       62     A     
 GPO                RJ     SRI         SRI(  UJP  0,I.GL+N.GL0 )                           FCC0408       63     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2908    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                R=     B2,OC.EOQ                                                       FCC0408       64     A     
 GPO                MX6    0                                                               FCC0408       65     A     
 GPO                RJ     SRI         SRI(  EOQ  0,0 )                                    FCC0408       66     A     
 GPO                CALL   WTB         REWRITE THE BLOCK                                   FCC0408       67     A     
 GPO                CALL   RTB         RESET *SEQ* POINTERS                                FCC0408       68     A     
 GPO                                                                                       FCC0408       69     A     
 GPO       TRP3     SA5    O.SEQ                                                           FCC0408       70          I
          -FCC0675
 GPO       TRP4     SA5    O.SEQ                                                           FCC0675      156     A     
 GPO                SA4    X5-1        BHW = [O.SEQ-1]                                     GPO         1355     A     
 GPO                SX0    B1                                                              GPO         1356     A     
 GPO                LX0    BH.PRIP                                                         GPO         1357     A     
 GPO                BX4    -X0*X4      PRI[BHW] = 0                                        GPO         1358     A     
 GPO                LX0    BH.BSTP+BH.BSTL-1-BH.PRIP                                       GPO         1359     A     
 GPO                BX6    X0+X4       BST[BHW] = 1S17  */ INDICATE NOT IN *BST*           GPO         1360     A     
 GPO                SA6    A4                                                              GPO         1361     A     
 GPO                RJ     CBT         CLEAR BLOCK TABLE                                   GPO         1362     A     
 GPO                EQ     TRP                                                             GPO         1363     A     
 GPO                                                                                       GPO         1364          I
          -FCC0408
 GPO       CBT      SPACE  3,14                                                            FCC0408       71     A     
 GPO      **        CBT - CLEAR *BST*, RELEASE BLOCKS THAT WERE NOT CODED                  GPO         1365     A     
 GPO      *         INSERT HB NUMBER OF OUTER LPS IN BIT ENTRIES OF INNER LPS.             FCC0675      157          I
          -FCC1319
 GPO      *         INSERT *HB* NUMBER OF THIS LOOP IN *BIT* ENTRIES OF THIS               FCC1319       69     A     
 GPO      *         REGION. THIS INFO IS USED ON THE BACK PASS IN *POST*.                  FCC1319       70     A     
 GPO                                                                                       GPO         1366     A     
 GPO       CBT0     SX6    0                                                               GPO         1367     A     
 GPO                SA6    L.BST       L.BST = 0                                           GPO         1368     A     
 GPO       CBT      ROUTINE                                                                GPO         1369     A     
 GPO                SX6    0                                                               GPO         1370     A     
 GPO                SA6    BSI         BSI = 0                                             GPO         1371     A     
 GPO                                                                                       FCC0408       72     A     
 GPO       CBT1     SA1    BSI                                                             GPO         1372     A     
 GPO                SA2    O.BST                                                           GPO         1373     A     
 GPO                SA3    O.BIT                                                           GPO         1374     A     
 GPO                SX6    X1                                                              GPO         1375     A     
 GPO                SB4    X2                                                              GPO         1376     A     
 GPO                                                                                       GPO         1377     A     
 GPO       CBT2     SX6    X6+2        BSI = BSI + 2                                       GPO         1378     A     
 GPO                SA5    B4+X6       BAW = BST(BSI)                                      GPO         1379     A     
 GPO                SB5    X3                                                              GPO         1380     A     
 GPO                ZR     X5,CBT0     IF BAW = 0    */ END OF *BST*                       GPO         1381     A     
 GPO                LX5    -BA.FWAP                                                        GPO         1382     A     
 GPO                SX7    X5-CBT                                                          GPO         1383          I
          -FCC0675
 GPO                MI     X7,CBT2     IF FWA[BAW] < CBT  */ DUMMY BLOCK                   GPO         1384          I
          -FCC0675
 GPO                LX5    BA.FWAP-BA.BIP  J = BI[BAW]                                     GPO         1385          I
          -FCC0675
 GPO                SA4    B5+X5       BIW = BIT(J)                                        GPO         1386          I
          -FCC0675
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2909    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SB6    X5-CBT                                                          FCC0675      158     A     
 GPO                LX5    BA.FWAP-BA.BIP    J = BI[BAW]                                   FCC0675      159     A     
 GPO                SA4    B5+X5       BIW = BIT(J)                                        FCC0675      160     A     
 GPO                BX7    X4                                                              FCC0675      161          I
          -FCC1319
 GPO                LX7    59-BI.RBP                                                       FCC0675      162          I
          -FCC1319
 GPO                MI     X7,CBT3     IF RB[BIW]    */ PROGRAM BLOCK                      FCC0675      163          I
          -FCC1319
 GPO                                                                                       FCC0675      164          I
          -FCC1319
 GPO                SA2    HBI                                                             FCC0675      165     A     
 GPO                MX0    -BI.OLNL                                                        FCC0675      166     A     
 GPO                LX7    1+BI.RBP-BI.OLNP                                                FCC0675      167          I
          -FCC1319
 GPO                BX7    X4                                                              FCC1319       71     A     
 GPO                LX7    -BI.OLNP                                                        FCC1319       72     A     
 GPO                BX7    X0*X7                                                           FCC0675      168     A     
 GPO                BX7    X2+X7       OLN[BIT(J)] = HBI                                   FCC0675      169     A     
 GPO                LX7    BI.OLNP                                                         FCC0675      170     A     
 GPO                SA7    A4                                                              FCC0675      171     A     
 GPO                                                                                       FCC0675      172     A     
 GPO       CBT3     MI     B6,CBT2     IF FWA[BAW] < CBT  */ DUMMY BLOCK                   FCC0675      173     A     
 GPO                LX4    59-BI.CBP                                                       GPO         1387     A     
 GPO                MI     X4,CBT2     IF CB[BAW]                                          GPO         1388     A     
 GPO                SA6    A1                                                              GPO         1389     A     
 GPO                CALL   RBS         RELEASE THE BLOCK                                   GPO         1390     A     
 GPO                EQ     CBT1                                                            GPO         1391     A     
 GPO       CIC      TITLE  CIC - CONVERT INTERVAL TO CODE                                  GPO         1392     A     
 GPO      **        CIC - CONVERT INTERVAL TO CODE                                         GPO         1393     A     
 GPO      *                                                                                GPO         1394     A     
 GPO      *         ENTRY  (IBA) = POINTER TO *IM* WORD OF INTERVAL                        GPO         1395     A     
 GPO      *                (NN) = N. NODES IN INTERVAL                                     GPO         1396     A     
 GPO      *                                                                                GPO         1397     A     
 GPO      *         EXIT   (IBA) = POINTS TO *IP* WORD OF NEXT INTERVAL                    GPO         1398     A     
 GPO      *                INTERVAL CODED AND WRITTEN TO SCRATCH FILE.                     GPO         1399     A     
 GPO                                                                                       GPO         1400     A     
 GPO       CIC      ROUTINE                                                                GPO         1401     A     
 GPO                                                                                       GPO         1402     A     
 GPO      *         SCAN INTERVAL LIST TO FORM AN *EBB*                                    GPO         1403     A     
 GPO                                                                                       GPO         1404     A     
 GPO       CIC1     SA1    IBA                                                             GPO         1405     A     
 GPO                SA3    O.BIT                                                           GPO         1406     A     
 GPO                SA2    A1+B1                                                           GPO         1407     A     
 GPO                SB3    X3                        (B3) = [O.BIT]                        GPO         1408     A     
 GPO                SA5    X1          IP = [IBA]                                          GPO         1409     A     
 GPO                SB2    X2          N = NN                                              GPO         1410     A     
 GPO                BX2    X5          FIP = [IP]                                          GPO         1411     A     
 GPO                LX5    -IM.BIP     I = BI[IP]                                          GPO         1412     A     
 GPO                SA4    B3+X5                                                           GPO         1413     A     
 GPO                BX0    X4          FBIW = BIT(I)                                       GPO         1414     A     
 GPO                LX4    59-BI.RBP                                                       GPO         1415     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2910    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                PL     X4,CIC3     IF ^RB[BIT(I)]  */ A HOLDING BLOCK                  GPO         1416     A     
 GPO                                                                                       GPO         1417     A     
 GPO      *         ADD SUCCESSORS THAT DO NOT HAVE AN INITIAL LABEL, ETC.                 GPO         1418     A     
 GPO                                                                                       GPO         1419     A     
 GPO       CIC2     SB2    B2-B1       N = N - 1                                           GPO         1420     A     
 GPO                SA5    A5+B1       IP = IP + 1                                         GPO         1421     A     
 GPO                ZR     B2,CIC4     IF N = 0      */ END OF LIST                        GPO         1422     A     
 GPO                BX6    X2-X5                                                           GPO         1423     A     
 GPO                LX6    59-IM.SCRP                                                      GPO         1424     A     
 GPO                MI     X6,CIC4     IF SCR[IP] " SCR[FIP]  */ DIFF REGIONS              GPO         1425     A     
 GPO                LX5    -IM.BIP     I = BI[IP]                                          GPO         1426     A     
 GPO                SA4    B3+X5       BIW = BIT(I)                                        GPO         1427     A     
 GPO                LX4    59-BI.ILP                                                       GPO         1428          I
          -FCC0675
 GPO                MI     X4,CIC4     IF IL[BIW]    */ INITIAL *LAB*                      GPO         1429          I
          -FCC0675
 GPO                LX4    BI.ILP-BI.RBP                                                   GPO         1430          I
          -FCC0675
 GPO                MI     X4,CIC2     IF RB[BIW]    */ NOT A HOLDING BLOCK                GPO         1431          I
          -FCC0675
 GPO                LX4    59-BI.RBP                                                       FCC0675      174     A     
 GPO                PL     X4,CIC3     IF ^RB[BIW]   */ A HOLDING BLOCK                    FCC0675      175     A     
 GPO                LX4    BI.RBP-BI.ILP                                                   FCC0675      176     A     
 GPO                PL     X4,CIC2     IF ^IL[BIW]                                         FCC0675      177     A     
 GPO                EQ     CIC4                                                            FCC0675      178     A     
 GPO                                                                                       GPO         1432     A     
 GPO      *         TERMINATE LIST AFTER THIS NODE                                         GPO         1433     A     
 GPO                                                                                       GPO         1434     A     
 GPO       CIC3     SX6    A5+B1       IPL = IP + 1                                        GPO         1435     A     
 GPO                EQ     CIC5                                                            GPO         1436     A     
 GPO                                                                                       GPO         1437     A     
 GPO       CIC4     SX6    A5+         IPL = IP      */ TERMINATE BEFORE                   GPO         1438     A     
 GPO                                                                                       GPO         1439     A     
 GPO       CIC5     LX0    59-BI.CBP                                                       GPO         1440     A     
 GPO                IX6    X6-X1       K = IPL - IBA */ N. NODES IN *EBB*                  GPO         1441     A     
 GPO                PL     X0,CIC7     IF ^CB[FBIW]  */ NOT YET CODED                      GPO         1442     A     
 GPO                                                                                       GPO         1443     A     
 GPO      *         ADVANCE POINTERS TO UNPROCESSED PART OF THE INTERVAL                   GPO         1444     A     
 GPO                                                                                       GPO         1445     A     
 GPO       CIC6     SA2    A1+B1                                                           GPO         1446     A     
 GPO                IX7    X6+X1       IBA = IBA + K                                       GPO         1447     A     
 GPO                SA7    A1                                                              GPO         1448     A     
 GPO                IX6    X2-X6       NN = NN - K                                         GPO         1449     A     
 GPO                SA6    A2                                                              GPO         1450     A     
 GPO                NZ     X6,CIC1     IF NN " 0                                           GPO         1451     A     
 GPO                                                                                       GPO         1452     A     
 GPO                EQ     CIC                                                             GPO         1453     A     
 GPO                                                                                       GPO         1454     A     
 GPO      *         SET FP/LVL EXPANSION MODE, AND SETUP A *BST* FOR THIS *EBB*.           GPO         1455     A     
 GPO                                                                                       GPO         1456     A     
 GPO       CIC7     SX0    B1                                                              GPO         1457     A     
 GPO                LX2    -IM.SCRP                                                        GPO         1458     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2911    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                BX3    X0*X2                                                           GPO         1459     A     
 GPO                SX7    X3+3        EMF = 3+SCR[FIP]  */ FP/LVL EXPANSION FLG           GPO         1460     A     
 GPO                SA7    EMF                                                             GPO         1461     A     
 GPO                BX5    X6                                                              GPO         1462     A     
 GPO                LX2    B1,X6                                                           GPO         1463     A     
 GPO                SA6    CICA                                                            GPO         1464     A     
 GPO                MX0    -IM.BIL                                                         GPO         1465     A     
 GPO                ALLOC  BST,X2+3    ALLOC( BST , 2*K+3 )                                GPO         1466     A     
 GPO                SA1    IBA                                                             GPO         1467     A     
 GPO                SB2    X5          N = K                                               GPO         1468     A     
 GPO                MX7    0                                                               GPO         1469     A     
 GPO                SA5    X1          IP = [IBA]                                          GPO         1470     A     
 GPO                SA7    X2          BST(0) = 0                                          GPO         1471     A     
 GPO                LX0    IM.BIP                                                          GPO         1472     A     
 GPO                SA7    X2+B1       BST(1) = 0;  I = 2                                  GPO         1473     A     
 GPO                                                                                       GPO         1474     A     
 GPO       CIC8     BX6    -X0*X5                                                          GPO         1475     A     
 GPO                LX6    BA.BIP-IM.BIP                                                   GPO         1476     A     
 GPO                SA6    A7+B1       BST(I) = BAW(0,BI[IP],0,0)                          GPO         1477     A     
 GPO                BX7    X5                                                              GPO         1478     A     
 GPO                SA7    A6+B1       BST(I+1) = [IP];  I = I + 2                         GPO         1479     A     
 GPO                SB2    B2-B1       N = N - 1                                           GPO         1480     A     
 GPO                SA5    A5+B1       IP = IP + 1                                         GPO         1481     A     
 GPO                NZ     B2,CIC8     IF N " 0                                            GPO         1482     A     
 GPO                                                                                       GPO         1483     A     
 GPO                MX7    0                                                               GPO         1484     A     
 GPO                SA7    A7+B1       BST(I) = 0    */ *BST* TERMINATOR                   GPO         1485     A     
 GPO                SA7    MAXW        MAXW = 0                                            GPO         1486     A     
 GPO                SA7    N.EBB       N.EBB = 0                                           GPO         1487     A     
 GPO                                                                                       GPO         1488     A     
 GPO                CLCM   CHB         COMBINE HOLDING BLOCKS                              GPO         1489     A     
 GPO                                                                                       GPO         1490     A     
 GPO                CLCM   RDD         REMOVE DEAD DEFS                                    GPO         1491     A     
 GPO                                                                                       GPO         1492     A     
 GPO                CALL   CBB         COMBINE BASIC BLOCKS                                GPO         1493     A     
 GPO                                                                                       GPO         1494     A     
 GPO                CLCM   CXB         CODE EXTENDED BLOCKS                                GPO         1495     A     
 GPO                                                                                       GPO         1496     A     
 GPO                RJ     CBT         CLEAR *BST*                                         GPO         1497     A     
 GPO                SA2    CICA                                                            GPO         1498     A     
 GPO                SA1    IBA                                                             GPO         1499     A     
 GPO                BX6    X2                                                              GPO         1500     A     
 GPO                EQ     CIC6                                                            GPO         1501     A     
 GPO                                                                                       GPO         1502     A     
 GPO       CICA     BSS    1                                                               GPO         1503     A     
 GPO       CBB      TITLE  CBB - COMBINE BASIC BLOCKS TO FORM EXTENDED BLOCK               GPO         1504     A     
 GPO      **        CBB - COMBINE BASIC BLOCKS TO FORM AN EXTENDED BLOCK.                  GPO         1505     A     
 GPO      *                                                                                GPO         1506     A     
 GPO      *         ENTRY  (EMF) = FP/LEVEL EXPANSION MODE                                 GPO         1507     A     
 GPO      *                                                                                GPO         1508     A     
 GPO      *         EXIT   EXTENDED BLOCK WRITTEN BACK TO *BLK*                            GPO         1509     A     
 GPO      *                MAXW, N.EBB UPDATED.                                            GPO         1510     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2912    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       GPO         1511     A     
 GPO       CBB      ROUTINE                                                                GPO         1512     A     
 GPO                SX6    2           BSIL = 2                                            GPO         1513     A     
 GPO                SA6    BSIL                                                            GPO         1514     A     
 GPO                                                                                       GPO         1515     A     
 GPO       CBB1     SA1    BSIL        I = BSIL                                            GPO         1516     A     
 GPO                SA2    O.BST                                                           GPO         1517     A     
 GPO                SA3    O.BIT                                                           GPO         1518     A     
 GPO                SA4    M.EBL                                                           GPO         1519     A     
 GPO                SB3    X2                        (B3) = [O.BST]                        GPO         1520     A     
 GPO                BX6    X1          BSI = BSIL                                          GPO         1521     A     
 GPO                SA6    BSI                                                             GPO         1522     A     
 GPO                SB4    X3                        (B4) = [O.BIT]                        GPO         1523     A     
 GPO                SB7    X4                        (B7) = M.EBL                          GPO         1524     A     
 GPO                SA5    B3+X1       BAW = BST(I)                                        GPO         1525     A     
 GPO                SA0    X1                                                              GPO         1526     A     
 GPO                ZR     X5,CBB      IF BAW = 0    */ END OF *BST*                       GPO         1527     A     
 GPO                                                                                       GPO         1528     A     
 GPO                LX5    -BA.LENP                                                        GPO         1529     A     
 GPO                SB6    X5          TLEN = LEN[BAW]  */ TOTAL LENGTH OF EBB             GPO         1530     A     
 GPO                LX5    BA.LENP-BA.BIP                                                  GPO         1531     A     
 GPO                SA4    B4+X5       BIW = BIT(BI[BAW])                                  GPO         1532     A     
 GPO                LX4    59-BI.RBP                                                       GPO         1533     A     
 GPO                PL     X4,CBB3     IF ^RB[BIW]   */ HOLDING BLOCK                      GPO         1534     A     
 GPO                SB2    2                                                               GPO         1535     A     
 GPO                SX7    X5+         LBN = BI[BAW]                                       GPO         1536     A     
 GPO                                                                                       GPO         1537     A     
 GPO      *         ADD SUCCESSORS OF THIS BLOCK UNTIL *IL*, SPACE OVERFLOW, ETC.          GPO         1538     A     
 GPO                                                                                       GPO         1539     A     
 GPO       CBB2     SX1    X1+B2       I = I + 2                                           GPO         1540     A     
 GPO                LX4    BI.RBP-BI.FJP                                                   GPO         1541     A     
 GPO                GT     B6,B7,CBB3A IF TLEN > M.EBL  */ SPACE OVERFLOW                  GPO         1542     A     
 GPO                MI     X4,CBB4     IF FJ[BIW]                                          GPO         1543     A     
 GPO                SX7    X7+B2       LBN = LBN + 2                                       GPO         1544     A     
 GPO                SA5    B3+X1       BAW = BST(I)                                        GPO         1545     A     
 GPO                ZR     X5,CBB4     IF BAW = 0    */ END OF *BST*                       GPO         1546     A     
 GPO                LX5    -BA.BIP     BN = BI[BAW]                                        GPO         1547     A     
 GPO                SA4    B4+X5       BIW = BIT(BN)                                       GPO         1548     A     
 GPO                LX4    59-BI.ILP                                                       GPO         1549     A     
 GPO                MI     X4,CBB4     IF IL[BIW]                                          GPO         1550     A     
 GPO                BX6    X5-X7                                                           GPO         1551     A     
 GPO                SB5    X6                                                              GPO         1552     A     
 GPO                LX5    BA.BIP-BA.LENP                                                  GPO         1553     A     
 GPO                SB6    B6+X5       TLEN = TLEN + LEN[BAW]                              GPO         1554     A     
 GPO                LX4    BI.ILP-BI.RBP                                                   GPO         1555     A     
 GPO                PL     X4,CBB3     IF ^RB[BIW]                                         GPO         1556          I
          -FCCA509X 
 GPO                PL     X4,CBB3B    IF ^RB[BIW]                                         FCCA509X       8     A     
 GPO                ZR     B5,CBB2     IF BN[BAW] = LBN  */ BLOCKS CONTIGIOUS              GPO         1557     A     
 GPO                EQ     CBB4                                                            GPO         1558     A     
 GPO                                                                                       GPO         1559     A     
 GPO       CBB3     SX6    X1+2        LIM = I + 2                                         GPO         1560     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2913    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                EQ     CBB5                                                            GPO         1561     A     
 GPO                                                                                       GPO         1562     A     
 GPO       CBB3A    SB7    B7+300B                                                         GPO         1563     A     
 GPO                LE     B6,B7,CBB4  IF TLEN @ M.EBL + 300B                              GPO         1564     A     
 GPO                                                                                       GPO         1565     A     
 GPO                SX2    A0+B2                                                           GPO         1566     A     
 GPO                IX7    X1-X2                                                           GPO         1567     A     
 GPO                ZR     X7,CBB4     IF I = BSIL + 2  */ ONLY 1 BIG BLOCK                GPO         1568     A     
 GPO                SX1    X1-2        I = I - 2                                           GPO         1569     A     
 GPO                EQ     CBB4                                                            FCCA509X       9     A     
 GPO                                                                                       FCCA509X      10     A     
 GPO      *         ENCOUNTERED *HB* IN SEQ - CHECK IF THE LOOP HEADER BLK                 FCCA509X      11     A     
 GPO      *         IS A DIRECT SUCCESSOR OF THE PREV. BLK IN THE BST.                     FCCA509X      12     A     
 GPO      *         IF SO INCLUDE THE *HB* IN THE *EBB*.                                   FCCA509X      13     A     
 GPO                                                                                       FCCA509X      14     A     
 GPO       CBB3B    LX4    BI.RBP-BI.PBNP+1       HDRBLK = PBN[BIW]                        FCCA509X      15     A     
 GPO                SB5    X1-2                                                            FCCA509X      16     A     
 GPO                SA2    B3+B5                                                           FCCA509X      17     A     
 GPO                LX2    -BA.BIP     PBLK = BI[BST(I-2)]                                 FCCA509X      18     A     
 GPO                IX7    X4-X2                                                           FCCA509X      19     A     
 GPO                SB5    X7                                                              FCCA509X      20     A     
 GPO                NE     B5,B2,CBB4  IF PBLK+2 " HDRBLK                                  FCCA509X      21     A     
 GPO                SX1    X1+B2                                                           FCCA509X      22     A     
 GPO                                                                                       FCCA509X      23     A     
 GPO                                                                                       GPO         1570     A     
 GPO       CBB4     SX6    X1+         LIM = I                                             GPO         1571     A     
 GPO                                                                                       GPO         1572     A     
 GPO       CBB5     SA6    A1+B1       BSIL(2) = LIM                                       GPO         1573     A     
 GPO                SX7    4                                                               GPO         1574     A     
 GPO                SB5    B0          J = 0                                               GPO         1575     A     
 GPO                SA7    L.TXT       L.TXT = 4                                           GPO         1576     A     
 GPO                SB6    A0          I = BSIL                                            GPO         1577     A     
 GPO                SB7    X6                                                              GPO         1578     A     
 GPO                                                                                       GPO         1579     A     
 GPO      *         COUNT NUMBER OF NON-EMPTY BLOCKS IN *EBB*                              GPO         1580     A     
 GPO                                                                                       GPO         1581     A     
 GPO       CBB6     SA5    B3+B6       BAW = BST(I)                                        GPO         1582     A     
 GPO                SB6    B6+2        I = I + 2                                           GPO         1583     A     
 GPO                LX5    -BA.LENP                                                        GPO         1584     A     
 GPO                SB2    X5-8                                                            GPO         1585     A     
 GPO                LE     B2,CBB7     IF LEN[BAW] @ 8                                     GPO         1586     A     
 GPO                                                                                       GPO         1587     A     
 GPO                NZ     B5,CBB10    IF J " 0      */ MORE THAN 1 BLOCK IN *EBB*         GPO         1588          I
          -FCC0643
 GPO                NZ     B5,CBB8     IF J " 0      */ MORE THAN 1 NON-EMPTY BLOCK        FCC0643        9     A     
 GPO                SB5    B6-2        J = I - 2     */ BST INDX OF FIRST                  GPO         1589     A     
 GPO                                                                                       GPO         1590     A     
 GPO       CBB7     LT     B6,B7,CBB6  IF I < BSIL(2)                                      GPO         1591     A     
 GPO                                                                                       GPO         1592     A     
 GPO                ZR     B5,CBB15    IF J = 0      */ NO NON-EMPTY BLOCKS                GPO         1593     A     
 GPO                                                                                       GPO         1594     A     
 GPO                SX6    B5+         BSI = J                                             GPO         1595     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2914    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA6    BSIL        BSIL = J                                            GPO         1596     A     
 GPO                SA6    BSI                                                             GPO         1597     A     
 GPO                CALL   RTB         READ BLOCK IN                                       GPO         1598          I
          -FCC0643
 GPO                SA5    EMF                                                             GPO         1599          I
          -FCC0643
 GPO                MX6    1                                                               GPO         1600          I
          -FCC0643
 GPO                CALL   ESR         ESR( EMF , 1S59 )  */ EXPAND SPECIAL REFS           GPO         1601          I
          -FCC0643
 GPO                SA1    L.MLT                                                           GPO         1602          I
          -FCC0643
 GPO                ZR     X1,CBB8     IF L.MLT = 0  */ NO SPECIAL REFS                    GPO         1603          I
          -FCC0643
 GPO                MX6    0                                                               GPO         1604          I
          -FCC0643
 GPO                CALL   MPB         MERGE MODS AND MOVE BLOCK TO *TXT*                  GPO         1605          I
          -FCC0643
 GPO                EQ     CBB12                                                           GPO         1606          I
          -FCC0643
 GPO                                                                                       GPO         1607          I
          -FCC0643
 GPO      *         MOVE INSTRUCTIONS TO *TXT*, CLEAR LINK WORDS                           GPO         1608          I
          -FCC0643
 GPO                                                                                       GPO         1609          I
          -FCC0643
 GPO       CBB8     CALL   MBT         MOVE BLOCK TO *TXT*                                 GPO         1610          I
          -FCC0643
 GPO                EQ     CBB13                                                           GPO         1611          I
          -FCC0643
 GPO                                                                                       GPO         1612          I
          -FCC0643
 GPO      *         FORM AN EXTENDED BLOCK WITH THE SPECIAL MEM REFS EXPANDED              GPO         1613          I
          -FCC0643
 GPO                                                                                       GPO         1614          I
          -FCC0643
 GPO       CBB10    SA5    O.BST                                                           GPO         1615          I
          -FCC0643
 GPO                EQ     CBB10                                                           FCC0643       10     A     
 GPO                                                                                       FCC0643       11     A     
 GPO      *         FORM AN EXTENDED BASIC BLOCK ( *EBB* )                                 FCC0643       12     A     
 GPO                                                                                       FCC0643       13     A     
 GPO       CBB8     SA5    O.BST                                                           FCC0643       14     A     
 GPO                SA4    BSI                                                             GPO         1616     A     
 GPO                SB5    X5                                                              GPO         1617     A     
 GPO                SA1    B5+X4       BAW = BST(BSI)                                      GPO         1618     A     
 GPO                LX1    -BA.LENP                                                        GPO         1619     A     
 GPO                SB2    X1-8                                                            GPO         1620     A     
 GPO                LE     B2,CBB11    IF LEN[BAW] @ 8  */ EMPTY BLOCK                     GPO         1621          I
          -FCC0643
 GPO                LE     B2,CBB9     IF LEN[BAW] @ 8  */ EMPTY BLOCK                     FCC0643       15     A     
 GPO                                                                                       GPO         1622     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2915    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                CALL   RTB         READ BLOCK IN                                       GPO         1623     A     
 GPO                SA2    O.SEQ       T = [O.SEQ]                                         GPO         1624     A     
 GPO                SB2    OC.EOS                                                          GPO         1625     A     
 GPO                SA4    =XF.RDT+B2                                                      GPO         1626     A     
 GPO                SA5    EMF                                                             GPO         1627          I
          -FCC0643
 GPO                SA3    X2                                                              GPO         1628     A     
 GPO                PX7    B2,X3       OC[T] = OC.EOQ                                      GPO         1629     A     
 GPO                SA7    A3                                                              GPO         1630     A     
 GPO                MX6    0                                                               GPO         1631     A     
 GPO                BX7    X4                                                              GPO         1632     A     
 GPO                SA7    A7+2        [T+2] = RDT(OC.EOS)                                 GPO         1633     A     
 GPO                CALL   ESR  ( EMF , 0 )  EXPAND SPECIAL MEM REFS                       GPO         1634          I
          -FCC0643
 GPO                CALL   MPB ( 0 )   MERGE BLOCKS                                        FCC0643       16     A     
 GPO                                                                                       GPO         1635     A     
 GPO                CALL   RBS         RELEASE THE BLOCK                                   GPO         1636     A     
 GPO       CBB11    SA1    BSI                                                             GPO         1637          I
          -FCC0643
 GPO       CBB9     SA1    BSI                                                             FCC0643       17     A     
 GPO                SA2    BSIL+1                                                          GPO         1638     A     
 GPO                SX6    X1+2        BSI = BSI + 2                                       GPO         1639     A     
 GPO                IX7    X6-X2                                                           GPO         1640     A     
 GPO                SA6    A1                                                              GPO         1641     A     
 GPO                MI     X7,CBB10    IF BSI < BSIL(2)                                    GPO         1642          I
          -FCC0643
 GPO                MI     X7,CBB8     IF BSI < BSIL(2)                                    FCC0643       18     A     
 GPO                                                                                       GPO         1643     A     
 GPO                SA1    O.TXT                                                           GPO         1644     A     
 GPO                SA2    X1          T = [O.TXT]                                         GPO         1645     A     
 GPO                PX7    B1,X2       OC[T] = OC.BOS                                      GPO         1646     A     
 GPO                SA7    A2+                                                             GPO         1647     A     
 GPO                                                                                       GPO         1648          I
          -FCC0643
 GPO       CBB12    MX6    0                                                               GPO         1649          I
          -FCC0643
 GPO                CALL   SQZB        SQUEEZE THE EXTENDED BLOCK                          GPO         1650          I
          -FCC0643
 GPO                SA1    BSIL                                                            FCC0643       19     A     
 GPO                MX6    0                                                               FCC0643       20     A     
 GPO                BX7    X1          BSI = BSIL(1)                                       FCC0643       21     A     
 GPO                SA7    BSI                                                             FCC0643       22     A     
 GPO                CALL   SQZB        SQUEEZE THE EXTENDED BLOCK                          FCC0643       23     A     
 GPO                SA1    EMF                                                             FCC0643       24     A     
 GPO                SA2    =XESRA-1+X1                                                     FCC0643       25     A     
 GPO                SA3    X2                                                              FCC0643       26     A     
 GPO                ZR     X3,CBB13    IF [ESRA(EMF)] = 0  */ NO FP OR L2 IN PROG          FCC0643       27     A     
 GPO                CALL   WTB         MOVE EBB FROM *TXT* TO *BLK*                        FCC0643       28     A     
 GPO                                                                                       FCC0643       29     A     
 GPO      *         EXPAND SPECIAL MEMORY REFS AND MERGE/SQZ BLOCK                         FCC0643       30     A     
 GPO                                                                                       FCC0643       31     A     
 GPO       CBB10    CALL   RTB         READ BLOCK IN                                       FCC0643       32     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2916    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA5    EMF                                                             FCC0643       33     A     
 GPO                MX6    1                                                               FCC0643       34     A     
 GPO                CALL   ESR         ESR( EMF , 1S59 )  */ EXPAND SPECIAL REFS           FCC0643       35     A     
 GPO                SA1    L.MLT                                                           FCC0643       36     A     
 GPO                ZR     X1,CBB11    IF L.MLT = 0  */ NO MODS TO THIS BLOCK              FCC0643       37     A     
 GPO                SX6    B1                                                              FCC0643       38     A     
 GPO                CALL   MPB ( 1 )   MERGE MODS AND SQUEEZE THE BLOCK                    FCC0643       39     A     
 GPO                EQ     CBB13                                                           FCC0643       40     A     
 GPO                                                                                       FCC0643       41     A     
 GPO       CBB11    CALL   MBT         MOVE BLOCK TO *TXT*                                 FCC0643       42     A     
 GPO                                                                                       GPO         1651     A     
 GPO       CBB13    SX6    B1                                                              GPO         1652     A     
 GPO                CALL   RIO         REORDER THE INSTRUCTIONS                            GPO         1653     A     
 GPO                SA2    MAXW                                                            GPO         1654     A     
 GPO                SA1    BSIL                                                            GPO         1655          I
          -FCC0643
 GPO                SA4    N.EBB                                                           FCC0643       43     A     
 GPO                IX3    X2-X6                                                           GPO         1656     A     
 GPO                PL     X3,CBB14    MAXW = MAX( MAXW , SIO.MAX )                        GPO         1657     A     
 GPO                SA6    A2                                                              GPO         1658     A     
 GPO       CBB14    SA3    N.EBB                                                           GPO         1659          I
          -FCC0643
 GPO                BX7    X1                                                              GPO         1660          I
          -FCC0643
 GPO                SX6    X3+B1       N.EBB = N.EBB + 1                                   GPO         1661          I
          -FCC0643
 GPO                SA7    BSI         BSI = BSIL(1)                                       GPO         1662          I
          -FCC0643
 GPO                SA6    A3+                                                             GPO         1663          I
          -FCC0643
 GPO       CBB14    SX6    X4+B1       N.EBB = N.EBB + 1                                   FCC0643       44     A     
 GPO                SA6    A4                                                              FCC0643       45     A     
 GPO                CALL   WTB         WRITE BLOCK BACK TO *BLK*                           GPO         1664     A     
 GPO                                                                                       GPO         1665     A     
 GPO       CBB15    SA5    BSIL+1                                                          GPO         1666     A     
 GPO                BX7    X5          BSIL(1) = BSIL(2)                                   GPO         1667     A     
 GPO                SA7    A5-B1                                                           GPO         1668     A     
 GPO                EQ     CBB1                                                            GPO         1669     A     
 GPO                                                                                       GPO         1670     A     
 GPO       BSIL     BSS    2           *BST* LIMITS                                        GPO         1671     A     
 GPO       ATT      EJECT                                                                  FCC0514       31     A     
 GPO      **        ATT - ADJUST *TET* TABLE FOR *GRA* AND *BDT*.  CLEAR *REG* FIE         FCC0514       32     A     
 GPO      *         FIELD, UPDATE INFO OF EQUIVALENCED ENTRIES.                            FCC0514       33     A     
 GPO                                                                                       FCC0514       34     A     
 GPO       ATT      ROUTINE                                                                FCC0514       35     A     
 GPO                SA2    ITL                                                             FCC0514       36     A     
 GPO                SA3    N.GT                                                            FCC0514       37     A     
 GPO                SA1    O.TET                                                           FCC0514       38     A     
 GPO                SB2    X2          I = ITL                                             FCC0514       39     A     
 GPO                SB3    X3          L = N.GT                                            FCC0514       40     A     
 GPO                EQ     B2,B3,ATT3  IF ITL = N.GT */ NO TET"S CREATED                   FCC0514       41     A     
 GPO                                                                                       FCC0514       42     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2917    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO      *         CLEAR *REG* FIELD OF *TET*"S CREATED IN THIS LOOP FOR *GRA*.           FCC0514       43     A     
 GPO                                                                                       FCC0514       44     A     
 GPO                MX0    -T.REGL                                                         FCC0514       45     A     
 GPO                LX0    T.REGP                                                          FCC0514       46     A     
 GPO                MX4    -1                                                              FCC2392       13     A     
 GPO                LX4    T.CALP                          */ SEE STS IN SQZ               FCC2392       14     A     
 GPO                BX0    X0*X4                           */ UNLOCK CA FIELD              FCC2392       15     A     
 GPO       ATT2     SA2    X1+B2                                                           FCC0514       47     A     
 GPO                BX6    X0*X2       REG[TET(I)] = 0                                     FCC0514       48     A     
 GPO                SB2    B2+B1       I = I + 1                                           FCC0514       49     A     
 GPO                SA6    A2                                                              FCC0514       50     A     
 GPO                LT     B2,B3,ATT2  IF I < L                                            FCC0514       51     A     
 GPO                                                                                       FCC0514       52     A     
 GPO       ATT3     SA4    L.TET                                                           FCC0514       53     A     
 GPO                SB5    X1                                                              FCC0514       54     A     
 GPO                SB4    X4          I = L.TET                                           FCC0514       55     A     
 GPO                EQ     B4,B3,ATT   IF L.TET = N.GT  */ NO TST SQUEEZING                FCC0514       56     A     
 GPO                                                                                       FCC0514       57     A     
 GPO      *         MOVE *IP* FIELDS OF THE EQUIVED ENTRIES TO THEIR BASE MEMBERS.         FCC0514       58     A     
 GPO                                                                                       FCC0514       59     A     
 GPO                MX0    -T.IPFL                                                         FCC0514       60     A     
 GPO                SX6    B3          L.TET = N.GT                                        FCC0514       61     A     
 GPO                LX0    T.IPFP                                                          FCC0514       62     A     
 GPO                MX1    1+T.CAL                                                         FCC0514       63     A     
 GPO                SA6    A4                                                              FCC0514       64     A     
 GPO                LX1    T.CAL                                                           FCC0514       65     A     
 GPO                                                                                       FCC0514       66     A     
 GPO       ATT4     SB4    B4-B1       I = I - 1                                           FCC0514       67     A     
 GPO                SA2    B5+B4       TI = TET(I)                                         FCC0514       68     A     
 GPO                BX7    X1*X2       C = CA[TI]                                          FCC0514       69     A     
 GPO                SA3    B5+X2                                                           FCC0514       70     A     
 GPO                BX4    -X0*X3      IPI = IPF[TET(C)]                                   FCC0514       71     A     
 GPO                IX6    X4+X7       TET(C) = TETW(INV[TI],IPI,0,C)                      FCC0514       72     A     
 GPO                SA6    A3+                                                             FCC0514       73     A     
 GPO                GT     B4,B3,ATT4  IF I > L                                            FCC0514       74     A     
 GPO                                                                                       FCC0514       75     A     
 GPO                EQ     ATT                                                             FCC0514       76     A     
 GPO       CRB      SPACE  3,18        CRB                                                 GPO         1672     A     
 GPO      **        CRB - CLEAR REGION BITS IN *UDT*                                       GPO         1673     A     
 GPO      *                                                                                GPO         1674     A     
 GPO      *         ENTRY  (X5) = 0 IF N.BLK IN REGION = 1                                 GPO         1675     A     
 GPO                                                                                       GPO         1676     A     
 GPO       CRB2     SA1    O.UDT                                                           GPO         1677     A     
 GPO                SA2    N.VAR                                                           GPO         1678     A     
 GPO                SA4    X1+4        UI = O.UDT + 4                                      GPO         1679     A     
 GPO                SB4    X2-2        I = N.VAR - 2                                       GPO         1680     A     
 GPO                                                                                       GPO         1681     A     
 GPO       CRB3     BX6    -X0*X4      RBITS[UI] = 0                                       GPO         1682     A     
 GPO                SA6    A4                                                              GPO         1683     A     
 GPO                SB4    B4-1        I = I - 1                                           GPO         1684     A     
 GPO                SA4    A4+2        UI = UI + 2                                         GPO         1685     A     
 GPO                GT     B4,CRB3     IF I > 0                                            GPO         1686     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2918    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       GPO         1687     A     
 GPO       CRB      ROUTINE                                                                GPO         1688     A     
 GPO                MX0    -UD.STCP                                                        GPO         1689          I
          -FCC1504X 
 GPO                MX0    -UD.RFP                                                         FCC1504X       9     A     
 GPO                SA2    UXR+1                                                           GPO         1690     A     
 GPO                NZ     X5,CRB2     IF N.BLK > 1                                        GPO         1691     A     
 GPO                NZ     X2,CRB2     IF UXR(2) " 0 */ EXT REF                            GPO         1692     A     
 GPO                                                                                       GPO         1693     A     
 GPO                SA1    O.MVL                                                           GPO         1694     A     
 GPO                SA5    X1+1        MI = [O.MVL] + 1                                    GPO         1695     A     
 GPO                ZR     X5,CRB      IF [MI] = 0                                         GPO         1696     A     
 GPO                                                                                       GPO         1697     A     
 GPO       CRB1     SA4    X5          UI = [MI]                                           GPO         1698     A     
 GPO                SA5    A5+B1       MI = MI + 1                                         GPO         1699     A     
 GPO                BX6    -X0*X4      RBITS[UI] = 0                                       GPO         1700     A     
 GPO                SA6    A4                                                              GPO         1701     A     
 GPO                NZ     X5,CRB1     IF [MI] " 0                                         GPO         1702     A     
 GPO                                                                                       GPO         1703     A     
 GPO                EQ     CRB                                                             GPO         1704     A     
 GPO       EBV      TITLE  EBV - EXPAND BIT VECTOR TO *UDI*                                GPO         1705     A     
 GPO      **        EBV - EXPAND BIT VECTOR TO SET BITS IN *UDI*                           GPO         1706     A     
 GPO      *                                                                                GPO         1707     A     
 GPO      *         ENTRY  (X4) = BVA , BIT VECTOR ADDRESS                                 GPO         1708     A     
 GPO      *                (X5) = BITS  , TO BE SET                                        GPO         1709     A     
 GPO                                                                                       GPO         1710     A     
 GPO       EBV      ROUTINE                                                                GPO         1711     A     
 GPO                SA4    X4-1        BI = BVA - 1                                        GPO         1712     A     
 GPO                SA1    BVL                                                             GPO         1713     A     
 GPO                SA2    O.UDT                                                           GPO         1714     A     
 GPO                BX0    X5                                                              GPO         1715     A     
 GPO                SB6    X1+B1       L = BVL + 1                                         GPO         1716     A     
 GPO                SB7    X2+4-120    U0 = O.UDT + 4 - 120                                GPO         1717     A     
 GPO                                                                                       GPO         1718     A     
 GPO       EBV1     SB6    B6-B1       L = L - 1                                           GPO         1719     A     
 GPO                SA4    A4+B1       BI = BI + 1;  BV = [BI]                             GPO         1720     A     
 GPO                SB7    B7+120      U0 = U0 + 120                                       GPO         1721     A     
 GPO                MI     B6,EBV      IF L < 0      */ END OF VECTOR                      GPO         1722     A     
 GPO                NZ     X4,EBV2     IF BV " 0                                           GPO         1723     A     
 GPO                PL     X4,EBV1     IF BV = +0                                          GPO         1724     A     
 GPO                                                                                       GPO         1725     A     
 GPO       EBV2     MX1    12                                                              GPO         1726     A     
 GPO                BX5    X1*X4       TB = MASK(12) & BV                                  GPO         1727     A     
 GPO                ZR     X5,EBV4     IF TB = 0                                           GPO         1728     A     
 GPO                                                                                       GPO         1729     A     
 GPO                LX5    -12                                                             GPO         1730     A     
 GPO                MX7    13                        */ EXPAND UPPER 12 BITS               GPO         1731     A     
 GPO                SB3    59                                                              GPO         1732     A     
 GPO       EBV3     PX5    X5                                                              GPO         1733     A     
 GPO                NX6    B2,X5       J = NORMC( PACK(0,TB) )                             GPO         1734     A     
 GPO                SB4    B3-B2                                                           GPO         1735     A     
 GPO                AX2    B2,X7                                                           GPO         1736     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2919    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SB5    B4+B4       K = 2*(59-J)                                        GPO         1737     A     
 GPO                BX5    -X2*X5      TB = ^MASK(J+13) & TB                               GPO         1738     A     
 GPO                SA3    B7+B5       UI = U0 + K                                         GPO         1739     A     
 GPO                BX6    X0+X3       [UI] = BITS ! [UI]                                  GPO         1740     A     
 GPO                SA6    A3                                                              GPO         1741     A     
 GPO                NZ     X5,EBV3     IF TB " 0                                           GPO         1742     A     
 GPO                                                                                       GPO         1743     A     
 GPO                BX4    -X1*X4      BV = ^MASK(12) & BV                                 GPO         1744     A     
 GPO                ZR     X4,EBV1     IF BV = 0                                           GPO         1745     A     
 GPO                                                                                       GPO         1746     A     
 GPO       EBV4     SX1    B1                                                              GPO         1747     A     
 GPO                PX5    X4                        */ EXPAND LOWER 48 BITS               GPO         1748     A     
 GPO                SB3    47                                                              GPO         1749     A     
 GPO                                                                                       GPO         1750     A     
 GPO       EBV5     NX6    B2,X5                                                           GPO         1751     A     
 GPO                SB4    B3-B2       J = 47 - NORMC( PACK(0,BV) )                        GPO         1752     A     
 GPO                SB5    B4+B4                                                           GPO         1753     A     
 GPO                LX2    B4,X1                                                           GPO         1754     A     
 GPO                SA3    B7+B5       UI = U0 + 2*J                                       GPO         1755     A     
 GPO                IX4    X4-X2       BV = BV - SHIFT(1,J)                                GPO         1756     A     
 GPO                BX6    X0+X3       [UI] = BITS ! [UI]                                  GPO         1757     A     
 GPO                PX5    X4                                                              GPO         1758     A     
 GPO                SA6    A3                                                              GPO         1759     A     
 GPO                NZ     X4,EBV5     IF BV " 0                                           GPO         1760     A     
 GPO                                                                                       GPO         1761     A     
 GPO                EQ     EBV1                                                            GPO         1762     A     
 GPO       FUD      TITLE  FUD - FORM USE/DEF BIT VECTORS                                  GPO         1763     A     
 GPO      **        FUD - FORM USE/DEF BIT VECTOR INFORMATION FOR A BLOCK                  GPO         1764     A     
 GPO      *         FUD OPERATES IN TWO MODES, BUILD BIT VECTORS MODE, AND                 GPO         1765     A     
 GPO      *         USE/DEF ONLY MODE.  COLLECTION OF USE/DEF INFORMATION FOR              GPO         1766     A     
 GPO      *         SCALARS WHICH ARE NOT CLASS MEMBERS IS STRAIGHTFOWARD, AND             GPO         1767     A     
 GPO      *         POSES NO PROBLEMS.  THE *CM* ( CLASS MEMBER ) CASE POSES MORE          GPO         1768     A     
 GPO      *         PROBLEMS SINCE WE DONT KNOW THE SET OF VALUES THAT A USE/DEF           GPO         1769     A     
 GPO      *         OF A *CR* ACCESSES OR CHANGES.  LACKING THIS INFORMATION, WE           GPO         1770     A     
 GPO      *         MAKE THE FOLLOWING ASSUMPTIONS, WHICH ENLARGE THE LIVE EXIT            GPO         1771     A     
 GPO      *         AND *UBD* BIT VECTORS.                                                 GPO         1772     A     
 GPO      *         A) A *CR* USE, USES EVERY MEMBER ( *CM* ) OF THE CLASS.                GPO         1773     A     
 GPO      *         B) A *CR* DEF DOESNT DEFINE ANY *CM* THAT WAS NOT EXPLICITELY          GPO         1774     A     
 GPO      *         DEFINED, HENCE WE SHOW A USE AT THE POINTS WERE A *CR* IS              GPO         1775     A     
 GPO      *         DEFINED BEFORE USEAGE.                                                 GPO         1776     A     
 GPO      *                                                                                GPO         1777     A     
 GPO      *         ENTRY  (X5) = [O.SEQ]                                                  GPO         1778     A     
 GPO      *         (BBV) = 0 IF BUILDING BIT VECTORS                                      GPO         1779     A     
 GPO      *                                                                                GPO         1780     A     
 GPO      *         EXIT   DEFR, ^RD, IST, STC FIELDS SET IN *UDT*                         GPO         1781     A     
 GPO      *         DEF, UBD AND USE BIT VECTORS SETUP IN *BVT* ( BBV = 0 )                GPO         1782     A     
 GPO                                                                                       GPO         1783     A     
 GPO       .BCM     EQU    60-UD.STCP                                                      GPO         1784     A     
 GPO       BCM      VFD    .BCM/-0,*P/0  BLOCK CLEAR MASK                                  GPO         1785     A     
 GPO                                                                                       GPO         1786     A     
 GPO       RDB      BFMW   UD,(DEFR,^RD,SMS) REGION DEF BITS FOR NO CODE MOTION            GPO         1787     A     
 GPO       FUDA     BFMW   UD,(DEFR,DEF,^RD,IST)                                           GPO         1788     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2920    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO       FUDB     BFMW   UD,(DEFR,DEF,USE,^RD,IST)                                       GPO         1789     A     
 GPO       FUDC     BFMW   UD,(DEF,CR)                                                     GPO         1790     A     
 GPO       FUDD     BFMW   UD,(DEF,CM)                                                     GPO         1791     A     
 GPO       FUDE     BFMW   UD,(DEF,^RD,IST)                                                FCCA487        4     A     
 GPO                                                                                       GPO         1792     A     
 GPO      *         MCM - MARK CLASS MEMBERS TO SHOW A USE OF THEM                         GPO         1793     A     
 GPO                                                                                       GPO         1794     A     
 GPO       MCM      MACRO  NEXT                                                            GPO         1795     A     
 GPO                LOCAL  MCM1,MCM2                                                       GPO         1796     A     
 GPO                SB3    A0                                                              GPO         1797     A     
 GPO                LX6    59-UD.CRP                                                       GPO         1798     A     
 GPO                NZ     B3,NEXT     IF BBV " 0                                          GPO         1799     A     
 GPO                PL     X6,NEXT     IF ^CR[UI]                                          GPO         1800     A     
 GPO                LX6    1+UD.CRP-UD.ECLP                                                GPO         1801     A     
 GPO                SB3    X6          K = ECL[UI]                                         GPO         1802     A     
 GPO                ZR     B3,NEXT     IF K = 0      */ NO CLASS MEMBERS                   GPO         1803     A     
 GPO      *                                                                                GPO         1804     A     
 GPO                SX4    B1                                                              GPO         1805     A     
 GPO                LX4    UD.USEP                                                         GPO         1806     A     
 GPO                MX2    -UD.MVL                                                         GPO         1807     A     
 GPO                LX2    UD.MVP                                                          GPO         1808     A     
 GPO      *                                                                                GPO         1809     A     
 GPO       MCM1     SA1    B5+B3       UI = UL = UDT(K)                                    GPO         1810     A     
 GPO                BX6    X1+X4                                                           GPO         1811     A     
 GPO                SA6    A1          USE[UI] = 1                                         GPO         1812     A     
 GPO                BX7    -X2*X1                                                          GPO         1813     A     
 GPO                NZ     X7,MCM2     IF MV[UL]                                           GPO         1814     A     
 GPO                SX7    A1                                                              GPO         1815     A     
 GPO                SA7    A7+B1       MI = MI + 1;  [MI] = UI                             GPO         1816     A     
 GPO       MCM2     LX1    -UD.ECLP                                                        GPO         1817     A     
 GPO                SB3    X1          K = ECL[UI]                                         GPO         1818     A     
 GPO                NZ     B3,MCM1     IF K " 0                                            GPO         1819     A     
 GPO                ENDM                                                                   GPO         1820     A     
 GPO       FUD      SPACE  3,14                                                            GPO         1821     A     
 GPO       FUD      ROUTINE                                                                GPO         1822     A     
 GPO                SA1    O.UDT                                                           GPO         1823     A     
 GPO                SA2    X5+B1       R2 = O.SEQ + 1                                      GPO         1824     A     
 GPO                SB2    B1+B1                                                           GPO         1825     A     
 GPO                SA3    BBV                                                             GPO         1826     A     
 GPO                LX2    -R2.TXTLP                                                       GPO         1827     A     
 GPO                SB5    X1                                                              GPO         1828     A     
 GPO                SB6    B0          CDEF = 0                                            GPO         1829     A     
 GPO                MX0    -D.LSJL                                                         GPO         1830     A     
 GPO                IX6    X5+X2                                                           GPO         1831     A     
 GPO                SA0    X3+                       (A0) = BBV                            GPO         1832     A     
 GPO                SA3    O.MVL                                                           GPO         1833     A     
 GPO                SB7    X6          O.IOL = O.SEQ + TXTL[R2]  */ I/O LIST INFO          GPO         1834     A     
 GPO                SA4    X5+B2       DI = TBA + 2                                        GPO         1835     A     
 GPO                MX7    0                                                               GPO         1836     A     
 GPO                LX0    D.LSJP                                                          GPO         1837     A     
 GPO                SA7    UXR         UXR = 0                                             GPO         1838     A     
 GPO                SA7    X3          MI = [O.MVL];  [MI] = 0 */ MARKED VAR LIST          GPO         1839     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2921    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                EQ     FUD2                                                            GPO         1840     A     
 GPO                                                                                       GPO         1841     A     
 GPO      *         SCAN 1 - SCAN BLOCK FOR LD/ST/RJX"S THAT ARE CHAINED TO *UDI*          GPO         1842     A     
 GPO      *         AND SET BITS IN *UDT*. FORM LIST OF MARKED VARIABLES.                  GPO         1843     A     
 GPO                                                                                       GPO         1844     A     
 GPO      *         CHECK *UDT* ENTRY AND ADD TO MARKED LIST IF FIRST OCCURANCE            GPO         1845     A     
 GPO                                                                                       GPO         1846     A     
 GPO       FUD1     LX3    D.LSJP-UD.MVP                                                   GPO         1847     A     
 GPO                BX4    -X0*X3                                                          GPO         1848     A     
 GPO                NZ     X4,FUD2     IF MV[UL]     */ IF ON MARKED LIST                  GPO         1849     A     
 GPO                SX7    A3                                                              GPO         1850     A     
 GPO                SA7    A7+1        MI = MI + 1;  [MI] = UL  */ SAVE *UDI* ADDR         GPO         1851     A     
 GPO                                                                                       GPO         1852     A     
 GPO       FUD2     SA5    A4+B2       R1 = DI + 2                                         GPO         1853     A     
 GPO                SA4    A5+B2       DI = R1 + 2                                         GPO         1854     A     
 GPO                UX6    B3,X5                                                           GPO         1855     A     
 GPO                BX7    -X0*X4                                                          GPO         1856     A     
 GPO                ZR     B3,FUD16    IF OC[R1] = 0 */ END OF BLOCK                       GPO         1857     A     
 GPO                ZR     X7,FUD2     IF ^LSJ[DI]                                         GPO         1858     A     
 GPO                                                                                       GPO         1859     A     
 GPO      *         PROCESS *LD*                                                           GPO         1860     A     
 GPO                                                                                       GPO         1861     A     
 GPO                LX7    59-D.LDP                                                        GPO         1862     A     
 GPO                PL     X7,FUD3     IF ^LD[DI]                                          GPO         1863     A     
 GPO                LX5    -R1.INP                                                         GPO         1864     A     
 GPO                SB3    X5          I = IN[R1]                                          GPO         1865     A     
 GPO                ZR     B3,FUD2     IF I = 0      */ INST ^CHAINED TO *UDI*             GPO         1866          I
          -FCC1088
 GPO                LE     B3,B2,FUD2  IF I @ 2      */ ^ IN UDT ! LD ONLY                 FCC1088       23     A     
 GPO                SA3    B5+B3       UI = UL = O.UDT + I                                 GPO         1867     A     
 GPO                LX7    1+UD.USEP                                                       GPO         1868     A     
 GPO                BX6    X7+X3       USE[UI] = 1                                         GPO         1869     A     
 GPO                SA6    A3                                                              GPO         1870     A     
 GPO                BX7    X7*X3                                                           GPO         1871     A     
 GPO                NZ     X7,FUD2     IF USE[UL]                                          GPO         1872     A     
 GPO                                                                                       GPO         1873     A     
 GPO                MCM    FUD1        MARK CLASS REFS                                     GPO         1874     A     
 GPO                EQ     FUD1                                                            GPO         1875     A     
 GPO       FUD      SPACE  2,10                                                            GPO         1876     A     
 GPO      *         PROCESS *ST*                                                           GPO         1877     A     
 GPO                                                                                       GPO         1878     A     
 GPO       FUD3     LX7    D.LDP-D.STP                                                     GPO         1879     A     
 GPO                PL     X7,FUD5     IF ^ST[DI]                                          GPO         1880     A     
 GPO                LX5    -R1.INP                                                         GPO         1881     A     
 GPO                SB3    X5          I = IN[R1]                                          GPO         1882     A     
 GPO                ZR     B3,FUD2     IF I = 0                                            GPO         1883     A     
 GPO                SA3    B5+B3       UI = UL = O.UDT + I                                 GPO         1884     A     
 GPO                MX1    UD.DEFBL                                                        GPO         1885     A     
 GPO                LX1    UD.DEFBL+UD.DEFBP                                               GPO         1886     A     
 GPO                BX6    X1+X3       DEFR[UI] = DEF[UI] = 1                              GPO         1887     A     
 GPO                SX5    B6                                                              GPO         1888     A     
 GPO                LX7    1+UD.STCP                                                       GPO         1889     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2922    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                IX6    X7+X6       STC[UI] = STC[UI] + 1                               GPO         1890     A     
 GPO                LX3    -UD.CBP                                                         GPO         1891     A     
 GPO                BX5    X5+X3       CDEF = CDEF ! CB[UI]                                GPO         1892     A     
 GPO                SA6    A3                                                              GPO         1893     A     
 GPO                SB6    X5                                                              GPO         1894     A     
 GPO                LX3    UD.CBP+59-UD.USEP                                               GPO         1895     A     
 GPO                MI     X3,FUD2     IF USE[UI]    */ USE BEFORE DEF                     GPO         1896     A     
 GPO                LX7    UD.DBUP-UD.STCP                                                 GPO         1897     A     
 GPO                BX6    X7+X6       DBU[UI] = 1                                         GPO         1898     A     
 GPO                LX3    1+UD.USEP                                                       GPO         1899     A     
 GPO                SA6    A6                                                              GPO         1900     A     
 GPO                MCM    FUD1        SHOW USES OF CLASS MEMBERS                          GPO         1901     A     
 GPO                EQ     FUD1                                                            GPO         1902     A     
 GPO                                                                                       GPO         1903     A     
 GPO      *         PROCESS *RJX* ( FUNCTION CALL )                                        GPO         1904     A     
 GPO                                                                                       GPO         1905     A     
 GPO       FUD5     LX4    59-D.TYP                                                        GPO         1906     A     
 GPO                PL     X4,FUD2     IF TYPE[DI] " IV                                    GPO         1907     A     
 GPO                SA3    A4-B1       R2 = DI - 1                                         GPO         1908     A     
 GPO                LX3    -FI.INDXP                                                       GPO         1909     A     
 GPO                ZR     X3,FUD2     IF [R2] = 0   */ *UJP* OR SUCH                      GPO         1910     A     
 GPO                SA1    MRA                                                             GPO         1911     A     
 GPO                SA2    B7+X3       LI = O.IOL + INDX[R2] */ PARAM LIST ADDR            GPO         1912     A     
 GPO                LX3    FI.INDXP-FI.REGPP                                               GPO         1913     A     
 GPO                SX7    X3                                                              GPO         1914     A     
 GPO                BX6    X7*X1       MRA = MRA & REGP[R2]                                GPO         1915     A     
 GPO                LX3    FI.REGPP-FI.LENP                                                GPO         1916     A     
 GPO                SA6    A1                                                              GPO         1917     A     
 GPO                SB4    X3          J = LEN[R2]   */ LIST LENGTH                        GPO         1918     A     
 GPO                MX7    -FI.FTL                                                         GPO         1919     A     
 GPO                LX3    FI.LENP-FI.FTP                                                  GPO         1920     A     
 GPO                BX7    -X7*X3                                                          GPO         1921     A     
 GPO                SB3    X7                                                              GPO         1922     A     
 GPO                SX6    B1          XRF = 1                                             GPO         1923          I
          -FCC1254
 GPO                SA6    XRF                                                             GPO         1924          I
          -FCC1254
 GPO                SA3    XRF                                                             FCC1254       11     A     
 GPO                SX6    B1                                                              FCC1254       12     A     
 GPO                IX6    X3+X6       XRF = XRF + 1 */ COUNT N.EXT REFS                   FCC1254       13     A     
 GPO                SA6    A3                                                              FCC1254       14     A     
 GPO                EQ     B3,B2,FUD2  IF FT[R2] = 2 */ *BEF*                              GPO         1925     A     
 GPO                EQ     B3,B1,FUD12 IF FT[R2] = 1 */ USER FUNCTION                      GPO         1926     A     
 GPO                                                                                       GPO         1927     A     
 GPO      *         PROCESS I/O APLIST                                                     GPO         1928     A     
 GPO                                                                                       GPO         1929     A     
 GPO                ZR     B4,FUD2     IF J = 0                                            GPO         1930     A     
 GPO                LX0    UD.MVP-D.LSJP                                                   GPO         1931     A     
 GPO                                                                                       GPO         1932     A     
 GPO       FUD7     SA3    B5+X2       UI = O.UDT + [LI]                                   GPO         1933     A     
 GPO                LX2    59-AP.IOP                                                       GPO         1934     A     
 GPO                BX6    -X0*X3                                                          GPO         1935     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2923    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SB4    B4-1        J = J - 1                                           GPO         1936     A     
 GPO                NZ     X6,FUD8     IF MV[UI]                                           GPO         1937     A     
 GPO                SX7    A3                                                              GPO         1938     A     
 GPO                SA7    A7+B1       MI = MI + 1;  [MI] = UI                             GPO         1939     A     
 GPO                                                                                       GPO         1940     A     
 GPO       FUD8     SX5    B1                                                              GPO         1941     A     
 GPO                MI     X2,FUD9     IF IO[LI] " 0 */ AN INPUT OP                        GPO         1942     A     
 GPO                LX5    UD.USEP                                                         GPO         1943     A     
 GPO                BX6    X5+X3       USE[UI] = 1                                         GPO         1944     A     
 GPO                SA6    A3                                                              GPO         1945     A     
 GPO                EQ     FUD11                                                           GPO         1946     A     
 GPO                                                                                       GPO         1947     A     
 GPO       FUD9     SA1    FUDA                                                            GPO         1948     A     
 GPO                BX6    X1+X3       (DEFR,DEF,^RD,IST)[UI] = 1                          GPO         1949     A     
 GPO                LX3    59-UD.USEP                                                      GPO         1950     A     
 GPO                MI     X3,FUD10    IF USE[UI]                                          GPO         1951     A     
 GPO                LX5    UD.DBUP     DBU[UI] = 1                                         GPO         1952          I
          -FCC0789
 GPO                LX2    59-AP.USEP                                                      FCC0789       21     A     
 GPO                PL     X2,FUD9A    IF ^USE[LI]   */ ^ USE FIRST IN LIST                FCC0789       22     A     
 GPO                LX5    UD.USEP                                                         FCC0789       23     A     
 GPO                BX6    X5+X6       USE[UI] = 1                                         FCC0789       24     A     
 GPO                EQ     FUD10                                                           FCC0789       25     A     
 GPO                                                                                       FCC0789       26     A     
 GPO       FUD9A    LX5    UD.DBUP     DBU[UI] = 1                                         FCC0789       27     A     
 GPO                BX6    X5+X6                                                           GPO         1953     A     
 GPO       FUD10    SX7    B6                                                              GPO         1954     A     
 GPO                LX3    1+UD.USEP-UD.CBP                                                GPO         1955     A     
 GPO                BX4    X7+X3       CDEF = CDEF ! CB[UI]                                GPO         1956     A     
 GPO                SB6    X4                                                              GPO         1957     A     
 GPO                SA6    A3+                                                             GPO         1958     A     
 GPO                LX3    UD.CBP                                                          GPO         1959     A     
 GPO                                                                                       GPO         1960     A     
 GPO       FUD11    LX3    59-UD.USEP                                                      GPO         1961     A     
 GPO                MI     X3,FUD11A   IF USE[UI]    */ PREVIOUS USE                       GPO         1962     A     
 GPO                MCM    FUD11A      SHOW USES OF CLASS MEMBERS                          GPO         1963     A     
 GPO                                                                                       GPO         1964     A     
 GPO       FUD11A   SA2    A2+B1       LI = LI + 1                                         GPO         1965     A     
 GPO                NZ     B4,FUD7     IF J " 0                                            GPO         1966     A     
 GPO                                                                                       GPO         1967     A     
 GPO                LX0    D.LSJP-UD.MVP                                                   GPO         1968     A     
 GPO                EQ     FUD2                                                            GPO         1969     A     
 GPO                                                                                       GPO         1970     A     
 GPO      *         PROCESS USER FUNCTION                                                  GPO         1971     A     
 GPO                                                                                       GPO         1972     A     
 GPO       FUD12    SA6    UXR         UXR = 1       */ INDICATE COMMON VAR SPOIL          GPO         1973          I
          -FCC1254
 GPO                SA6    A6+1        UXR(2) = 1                                          GPO         1974          I
          -FCC1254
 GPO       FUD12    SX6    B1                                                              FCC1254       15     A     
 GPO                SA6    UXR         UXR = 1       */ INDICATE COMMON VAR SPOIL          FCC1254       16     A     
 GPO                SA6    A6+B1       UXR(2) = 1                                          FCC1254       17     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2924    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                ZR     B4,FUD2     IF J = 0      */ NO ARG LIST                        GPO         1975     A     
 GPO                LX0    UD.MVP-D.LSJP                                                   GPO         1976     A     
 GPO                SX5    B6                                                              GPO         1977     A     
 GPO                                                                                       GPO         1978     A     
 GPO       FUD13    SA3    B5+X2       UI = O.UDT + [LI]                                   GPO         1979          I
          -FCC1088
 GPO       FUD13    SB3    X2+         I = [LI]                                            FCC1088       24     A     
 GPO                LE     B3,B2,FUD15 IF I @ 2      */ ^ IN UDT ! LD ONLY                 FCC1088       25     A     
 GPO                SA3    B5+X2       UI = O.UDT + I                                      FCC1088       26     A     
 GPO                SA1    FUDB                                                            GPO         1980     A     
 GPO                BX4    -X0*X3                                                          GPO         1981     A     
 GPO                NZ     X4,FUD14    IF MV[UI]                                           GPO         1982     A     
 GPO                SX7    A3                                                              GPO         1983     A     
 GPO                SA7    A7+B1       MI = MI + 1;  [MI] = UI                             GPO         1984     A     
 GPO                                                                                       GPO         1985     A     
 GPO       FUD14    BX6    X1+X3       (DEFR,DEF,USE,^RD,IST)[UI] = 1                      GPO         1986     A     
 GPO                LX3    -UD.CBP                                                         GPO         1987     A     
 GPO                SA2    A2+B1       LI = LI + 1                                         GPO         1988          I
          -FCC0392
 GPO                BX5    X3+X5       CDEF = CDEF ! CB[UI]                                GPO         1989     A     
 GPO                SA6    A3                                                              GPO         1990     A     
 GPO                LX3    UD.CBP+59-UD.USEP                                               GPO         1991     A     
 GPO                MI     X3,FUD15    IF USE[UL]    */ PREVIOUS USES                      GPO         1992     A     
 GPO                MCM    FUD15       MARK CLASS MEMBERS AS USES                          GPO         1993     A     
 GPO                                                                                       GPO         1994     A     
 GPO       FUD15    SB4    B4-B1       J = J - 1                                           GPO         1995     A     
 GPO                SA2    A2+B1       LI = LI + 1                                         FCC0392       88     A     
 GPO                NZ     B4,FUD13    IF J " 0                                            GPO         1996     A     
 GPO                                                                                       GPO         1997     A     
 GPO                SB6    X5                                                              GPO         1998     A     
 GPO                LX0    D.LSJP-UD.MVP                                                   GPO         1999     A     
 GPO                EQ     FUD2                                                            GPO         2000     A     
 GPO       FUD      SPACE  3,14                                                            GPO         2001     A     
 GPO      *         SCAN 2 - IF *CDEF* " 0 , CLASS REFS ( INDEXED STORES ) OR              GPO         2002     A     
 GPO      *         CLASS MEMBERS WERE DEFINED IN THE BLOCK. PROPAGATE THE DEFS TO         GPO         2003     A     
 GPO      *         THE CLASS.                                                             GPO         2004     A     
 GPO                                                                                       GPO         2005     A     
 GPO       FUD16    MX2    -UD.CBL                                                         GPO         2006     A     
 GPO                SX1    B6                                                              GPO         2007     A     
 GPO                BX6    -X2*X1                                                          GPO         2008     A     
 GPO                SB7    A7          ML = MI       */ END OF SCAN 1 LIST                 GPO         2009     A     
 GPO                ZR     X6,FUD24    IF CDEF = 0                                         GPO         2010     A     
 GPO                LX6    UD.CBP+59-UD.CRP                                                GPO         2011     A     
 GPO                SB6    X6                                                              GPO         2012     A     
 GPO                LX0    UD.MVP-D.LSJP                                                   GPO         2013     A     
 GPO                SA2    FUDA                                                            GPO         2014     A     
 GPO                PL     X6,FUD20    IF ^CR[CDEF]  */ IF NO CLASS REFS                   GPO         2015     A     
 GPO                                                                                       GPO         2016     A     
 GPO                SA5    B7+B1       I = ML + 1                                          GPO         2017     A     
 GPO                SA1    FUDC                                                            GPO         2018     A     
 GPO       FUD17    SA5    A5-B1       I = I - 1                                           GPO         2019     A     
 GPO                SA4    X5          UI = [I]                                            GPO         2020     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2925    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                ZR     X5,FUD20    IF [I] = 0                                          GPO         2021     A     
 GPO                BX6    -X1+X4                                                          GPO         2022     A     
 GPO                NZ     X6,FUD17    IF ^( DEF[UI] & CR[UI] )                            GPO         2023     A     
 GPO                                                                                       GPO         2024     A     
 GPO                BX6    X2+X4       (DEFR,DEF,^RD,IST)[UI] = 1                          GPO         2025     A     
 GPO                LX4    -UD.ECLP                                                        GPO         2026     A     
 GPO                SB4    X4          J = ECL[UI]   */ FOLLOW CHAIN TO MEMBERS            GPO         2027     A     
 GPO                SA6    A4                                                              GPO         2028     A     
 GPO                ZR     B4,FUD17    IF J = 0      */ NO CLASS MEMBERS                   GPO         2029     A     
 GPO                                                                                       GPO         2030     A     
 GPO       FUD18    SA4    B5+B4       UI = O.UDT + J                                      GPO         2031     A     
 GPO                BX3    -X0*X4                                                          GPO         2032     A     
 GPO                NZ     X3,FUD19    IF MV[UI]                                           GPO         2033     A     
 GPO                SX7    A4                                                              GPO         2034     A     
 GPO                SA7    A7+B1       MI = MI + 1;  [MI] = UI                             GPO         2035     A     
 GPO                                                                                       GPO         2036     A     
 GPO       FUD19    BX6    X2+X4       (DEFR,DEF,^RD,IST)[UI] = 1                          GPO         2037     A     
 GPO                LX4    -UD.ECLP                                                        GPO         2038     A     
 GPO                SB4    X4          J = ECL[UI]                                         GPO         2039     A     
 GPO                SA6    A4                                                              GPO         2040     A     
 GPO                NZ     B4,FUD18    IF J " 0                                            GPO         2041     A     
 GPO                EQ     FUD17                                                           GPO         2042     A     
 GPO       FUD      SPACE  2,10                                                            GPO         2043     A     
 GPO      *         SEARCH  MARKED VARS LIST FOR CLASS MEMBERS THAT WERE DEFINED           GPO         2044     A     
 GPO      *         AND PROPAGATE THE DEF TO THE *CLASS REF* MEMBER.                       GPO         2045     A     
 GPO                                                                                       GPO         2046     A     
 GPO       FUD20    ZR     B6,FUD24    IF CM[CDEF] = 0  */ NO CLASS MEMBERS DEFINE         GPO         2047     A     
 GPO                SA1    FUDD                                                            GPO         2048     A     
 GPO                SA2    FUDE                                                            FCCA487        5     A     
 GPO                SA5    B7+B1       I = ML + 1                                          GPO         2049     A     
 GPO                                                                                       GPO         2050     A     
 GPO       FUD21    SA5    A5-B1       I = I - 1                                           GPO         2051     A     
 GPO                SA4    X5          UI = [I]                                            GPO         2052     A     
 GPO                ZR     X5,FUD24    IF [I] = 0    */ END OF LIST                        GPO         2053     A     
 GPO                BX6    -X1+X4                                                          GPO         2054     A     
 GPO                NZ     X6,FUD21    IF ^( DEF[UI] & CM[UI] )                            GPO         2055     A     
 GPO                LX4    -UD.BMIP                                                        GPO         2056     A     
 GPO                SA3    B5+X4       UI = O.UDT + BMI[UI]  */ BASE MEMBER                GPO         2057     A     
 GPO                BX4    -X0*X3                                                          GPO         2058     A     
 GPO                NZ     X4,FUD22    IF MV[UI]                                           GPO         2059     A     
 GPO                SX7    A3                                                              GPO         2060     A     
 GPO                SA7    A7+B1       MI = MI + 1;  [MI] = UI                             GPO         2061     A     
 GPO                                                                                       GPO         2062     A     
 GPO       FUD22    BX6    X2+X3       (DEFR,DEF,^RD,IST)[UI] = 1                          GPO         2063          I
          -FCCA487
 GPO       FUD22    BX6    X2+X3       (DEF,^RD,IST)[UI] = 1                               FCCA487        6     A     
 GPO                SA6    A3                                                              GPO         2064     A     
 GPO                EQ     FUD21                                                           GPO         2065     A     
 GPO                                                                                       GPO         2066     A     
 GPO      *         TERMINATE MARKED VAR LIST AND FORM BIT VECTORS ( BBV = 0 )             GPO         2067     A     
 GPO                                                                                       GPO         2068     A     
 GPO       FUD24    SA1    BN                                                              GPO         2069     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2926    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA2    O.BIT                                                           GPO         2070     A     
 GPO                SA3    BBV                                                             GPO         2071     A     
 GPO                SB2    X1                                                              GPO         2072     A     
 GPO                SA4    X2+B2       BIW = BIT(BN)                                       GPO         2073     A     
 GPO                MX7    0                                                               GPO         2074     A     
 GPO                SA7    A7+B1       MI = MI + 1;  [MI] = 0                              GPO         2075     A     
 GPO                NZ     X3,FUD35    IF BBV " 0    */ NOT BUILDING BIT VECTORS           GPO         2076     A     
 GPO                                                                                       GPO         2077     A     
 GPO                SA5    BVL                                                             GPO         2078     A     
 GPO                SA3    L.BVT                                                           GPO         2079     A     
 GPO                SA2    O.BVT                                                           GPO         2080     A     
 GPO                SB6    X3          OL = L.BVT                                          GPO         2081     A     
 GPO                LX3    BI.BVIP                                                         GPO         2082     A     
 GPO                SX1    X5+B1                                                           GPO         2083     A     
 GPO                BX6    X3+X4       BVI[BIT(BN)] = L.BVT                                GPO         2084     A     
 GPO                LX1    2                                                               GPO         2085     A     
 GPO                SA6    A4                                                              GPO         2086     A     
 GPO                LX3    -BI.BVIP                                                        GPO         2087     A     
 GPO                IX7    X1+X3       L.BVT = L.BVT + 4*(BVL+1)                           GPO         2088     A     
 GPO                SA7    A3                                                              GPO         2089     A     
 GPO                                                                                       GPO         2090     A     
 GPO                IF     DEF,/DEBUG/FUD,2                                                GPO         2091     A     
 GPO                SX6    X3                                                              GPO         2092     A     
 GPO                SA6    BVI                                                             GPO         2093     A     
 GPO                SB7    X5+B1       VL = BVL + 1  */ VECTOR LENGTH                      GPO         2094     A     
 GPO                SA1    O.MVL                                                           GPO         2095     A     
 GPO                SB6    X2+B6       BI = O.BVT + OL  */ *BVT* ADDRESS                   GPO         2096     A     
 GPO                SX0    B1                                                              GPO         2097     A     
 GPO                NZ     X5,FUD30    IF BVL " 0                                          GPO         2098     A     
 GPO       FUD      SPACE  2,10                                                            GPO         2099     A     
 GPO      *         SETUP BIT VECTORS FOR PROGRAM WITH @ 60 REFERENCED VARIABLES           GPO         2100     A     
 GPO                                                                                       GPO         2101     A     
 GPO                MX6    0           DV = 0                                              GPO         2102     A     
 GPO                SA3    X1+B1       MI = O.MVL + 1                                      GPO         2103     A     
 GPO                BX5    X5-X5       DUV = 0                                             GPO         2104     A     
 GPO                MX4    0           UV = 0                                              GPO         2105     A     
 GPO                ZR     X3,FUD26    IF [MI] = 0   */ NO REFED VARS IN BLOCK             GPO         2106     A     
 GPO                SA2    X3+B1       U2 = [MI] + 1                                       GPO         2107     A     
 GPO                SA1    X3          UW = [MI]                                           GPO         2108     A     
 GPO                                                                                       GPO         2109     A     
 GPO       FUD25    UX7    B2,X2       J = BITN[U2]                                        GPO         2110     A     
 GPO                LX1    -UD.DEFP                                                        GPO         2111     A     
 GPO                BX2    X0*X1                                                           GPO         2112     A     
 GPO                LX7    B2,X2                                                           GPO         2113     A     
 GPO                BX6    X7+X6       DV = DV ! SHIFT( DEF[UW] , J )                      GPO         2114     A     
 GPO                LX1    UD.DEFP-UD.DBUP                                                 GPO         2115     A     
 GPO                BX2    X0*X1                                                           GPO         2116     A     
 GPO                LX7    B2,X2                                                           GPO         2117     A     
 GPO                SA3    A3+B1       MI = MI + 1                                         GPO         2118     A     
 GPO                BX5    X7+X5       DUV = DUV ! SHIFT( DBU[UW] , J )                    GPO         2119     A     
 GPO                LX1    UD.DBUP-UD.USEP                                                 GPO         2120     A     
 GPO                BX2    X0*X1                                                           GPO         2121     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2927    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                LX7    B2,X2                                                           GPO         2122     A     
 GPO                SA2    X3+B1       U2 = [MI] + 1                                       GPO         2123     A     
 GPO                BX4    X7+X4       UV = UV ! SHIFT( USE[UW] , J )                      GPO         2124     A     
 GPO                SA1    X3          UW = [MI]                                           GPO         2125     A     
 GPO                NZ     X3,FUD25    IF [MI] " 0                                         GPO         2126     A     
 GPO                                                                                       GPO         2127     A     
 GPO                SA1    UXR                                                             GPO         2128          I
          -FCC0716
 GPO                ZR     X1,FUD26    IF UXR = 0                                          GPO         2129          I
          -FCC0716
 GPO       FUD26    SA1    UXR                                                             FCC0716        6     A     
 GPO                ZR     X1,FUD26A   IF UXR = 0                                          FCC0716        7     A     
 GPO                SA2    O.BVT                                                           GPO         2130     A     
 GPO                SA3    X2          SV = [O.BVT]  */ COMMON VAR SPOIL VECTOR            GPO         2131     A     
 GPO                BX6    X3+X6       DV = SV ! DV                                        GPO         2132     A     
 GPO                BX5    -X3*X5      DUV = ^SV & DUV                                     GPO         2133     A     
 GPO                BX4    X3+X4       UV = SV ! UV                                        GPO         2134     A     
 GPO                                                                                       GPO         2135     A     
 GPO       FUD26    SA6    B6          [BI] = DV                                           GPO         2136          I
          -FCC0716
 GPO       FUD26A   SA6    B6          [BI] = DV                                           FCC0716        8     A     
 GPO                BX7    -X5*X4                                                          GPO         2137     A     
 GPO                SA7    B6+B1       [BI+1] = ^DUV & UV  */ UBD                          GPO         2138     A     
 GPO                BX6    X4                                                              GPO         2139     A     
 GPO                SA6    A7+B1       [BI+2] = UV                                         GPO         2140     A     
 GPO                SX7    0                                                               GPO         2141     A     
 GPO                SA7    A6+B1       [BI+3] = 0    */ LX = 0                             GPO         2142     A     
 GPO                                                                                       GPO         2143     A     
 GPO      *         CLEAR BLOCK RELATIVE BITS IN *UDT*                                     GPO         2144     A     
 GPO                                                                                       GPO         2145     A     
 GPO       FUD27    BSS    0                                                               GPO         2146     A     
 GPO                IF     DEF,/DEBUG/FUD,1                                                GPO         2147     A     
 GPO                DCALL  PRNTBV,([O.BVT],BVI,=3)                                         GPO         2148     A     
 GPO                                                                                       GPO         2149     A     
 GPO       FUD28    SA1    O.MVL                                                           GPO         2150     A     
 GPO                SA4    BCM                                                             GPO         2151     A     
 GPO                SA5    X1+1        MI = O.MVL + 1                                      GPO         2152     A     
 GPO                ZR     X5,FUD      IF [MI] = 0                                         GPO         2153     A     
 GPO                                                                                       GPO         2154     A     
 GPO       FUD29    SA2    X5          UW = [MI]                                           GPO         2155     A     
 GPO                SA5    A5+B1       MI = MI + 1                                         GPO         2156     A     
 GPO                BX6    -X4*X2      BCM[UW] = 0   */ CLEAR BLOCK / REGION BITS          GPO         2157     A     
 GPO                SA6    A2                                                              GPO         2158     A     
 GPO                NZ     X5,FUD29    IF [MI] " 0                                         GPO         2159     A     
 GPO                                                                                       GPO         2160     A     
 GPO                EQ     FUD                                                             GPO         2161     A     
 GPO       FUD      SPACE  3,30                                                            GPO         2162     A     
 GPO      *         SETUP BIT VECTORS FOR PROGRAM WITH N.VAR > 60                          GPO         2163     A     
 GPO      *         FIRST CHAIN *MVL* ENTRIES ON THEIR WORD INDEX                          GPO         2164     A     
 GPO                                                                                       GPO         2165     A     
 GPO       FUD30    SB5    B7-B1                                                           GPO         2166     A     
 GPO                SX6    B7+B7                                                           GPO         2167     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2928    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SB4    B6+B7                                                           GPO         2168     A     
 GPO                SA0    X6+B4       BT = BI + 3*VL  */ BUCKET TABLE                     GPO         2169     A     
 GPO                MX7    0                                                               GPO         2170     A     
 GPO                SA3    X1+B1       MI = O.MVL + 1                                      GPO         2171     A     
 GPO                SB2    A0                                                              GPO         2172     A     
 GPO                SA7    A0                                                              GPO         2173     A     
 GPO                                                                                       GPO         2174     A     
 GPO      +         SB5    B5-B1       FOR I = 0 TO VL-1; BT(I) = 0                        GPO         2175     A     
 GPO                SA7    A7+B1                                                           GPO         2176     A     
 GPO                GT     B5,*                                                            GPO         2177     A     
 GPO                                                                                       GPO         2178     A     
 GPO                SA2    UXR                                                             GPO         2179     A     
 GPO                SA5    O.BVT                                                           GPO         2180     A     
 GPO                SB3    X2                                                              GPO         2181     A     
 GPO                SB4    B0          WN = 0        */ WORD NUMBER ( 0,1,... )            GPO         2182     A     
 GPO                SB5    X5                                                              GPO         2183     A     
 GPO                ZR     X3,FUD32    IF [MI] = 0   */ NO REFED VARS IN BLOCK             GPO         2184     A     
 GPO                                                                                       GPO         2185     A     
 GPO       FUD31    SA4    X3+B1       U2 = [MI] + 1;  W = WI[U2]                          GPO         2186     A     
 GPO                SA5    B2+X4                                                           GPO         2187     A     
 GPO                SX7    A3                                                              GPO         2188     A     
 GPO                LX5    18                                                              GPO         2189     A     
 GPO                BX6    X5+X3       LINK[MI] = BT(W)  */ LINK THIS TO LAST              GPO         2190     A     
 GPO                SA6    A3                                                              GPO         2191     A     
 GPO                SA7    A5          BT(W) = MI    */ POINT BUCKET TO THIS               GPO         2192     A     
 GPO                SA3    A3+B1       MI = MI + 1                                         GPO         2193     A     
 GPO                NZ     X3,FUD31    IF [MI] " 0                                         GPO         2194     A     
 GPO                                                                                       GPO         2195     A     
 GPO      *         NOW FORM THE BIT VECTORS                                               GPO         2196     A     
 GPO                                                                                       GPO         2197     A     
 GPO       FUD32    SA2    A0          LP = [BT]     */ LIST POINTER                       GPO         2198     A     
 GPO                MX6    0           DV = 0                                              GPO         2199     A     
 GPO                BX5    X5-X5       DUV = 0                                             GPO         2200     A     
 GPO                SA3    X2          MI = [LP]                                           GPO         2201     A     
 GPO                MX4    0           UV = 0                                              GPO         2202     A     
 GPO                SA0    A0+B1       BT = BT + 1                                         GPO         2203     A     
 GPO                ZR     X2,FUD34    IF LP = 0     */ LIST EMPTY FOR THIS WORD           GPO         2204     A     
 GPO                                                                                       GPO         2205     A     
 GPO       FUD33    SA2    X3+B1       U2 = [MI] + 1                                       GPO         2206     A     
 GPO                SA1    X3          UW = [MI]                                           GPO         2207     A     
 GPO                AX3    18          L = LINK[MI]                                        GPO         2208     A     
 GPO                UX7    B2,X2       J = BITN[U2]                                        GPO         2209     A     
 GPO                LX1    -UD.DEFP                                                        GPO         2210     A     
 GPO                BX2    X0*X1                                                           GPO         2211     A     
 GPO                LX7    B2,X2                                                           GPO         2212     A     
 GPO                BX6    X7+X6       DV = DV ! SHIFT( DEF[UW] , J )                      GPO         2213     A     
 GPO                LX1    UD.DEFP-UD.DBUP                                                 GPO         2214     A     
 GPO                BX2    X0*X1                                                           GPO         2215     A     
 GPO                LX7    B2,X2                                                           GPO         2216     A     
 GPO                BX5    X7+X5       DUV = DUV ! SHIFT( DBU[UW] , J )                    GPO         2217     A     
 GPO                LX1    UD.DBUP-UD.USEP                                                 GPO         2218     A     
 GPO                BX2    X0*X1                                                           GPO         2219     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2929    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                LX7    B2,X2                                                           GPO         2220     A     
 GPO                SX1    X3                                                              GPO         2221     A     
 GPO                BX4    X7+X4       UV = UV ! SHIFT( USE[UW] , J )                      GPO         2222     A     
 GPO                SA3    X3          MI = [L]      */ NEXT ON CHAIN                      GPO         2223     A     
 GPO                NZ     X1,FUD33    IF L " 0                                            GPO         2224     A     
 GPO                                                                                       GPO         2225     A     
 GPO       FUD34    ZR     B3,FUD34A   IF UXR = 0                                          GPO         2226     A     
 GPO                SA3    B5+B4       SV = BVT(WN)                                        GPO         2227     A     
 GPO                BX6    X3+X6       DV = SV ! DV                                        GPO         2228     A     
 GPO                BX5    -X3*X5      DUV = ^SV & DUV                                     GPO         2229     A     
 GPO                BX4    X3+X4       UV = SV ! UV                                        GPO         2230     A     
 GPO                                                                                       GPO         2231     A     
 GPO       FUD34A   SA6    B6+B4       SA = BI + WN;  [SA] = DV                            GPO         2232     A     
 GPO                BX7    -X5*X4                                                          GPO         2233     A     
 GPO                SB4    B4+B1       WN = WN + 1                                         GPO         2234     A     
 GPO                SA7    A6+B7       SA = SA + VL;  [SA] = ^DUV & UV  */ UBD             GPO         2235     A     
 GPO                BX6    X4                                                              GPO         2236     A     
 GPO                SA6    A7+B7       SA = SA + VL;  [SA] = UV                            GPO         2237     A     
 GPO                MX7    0                                                               GPO         2238     A     
 GPO                SA7    A6+B7       SA = SA + VL;  [SA] = 0  */ LX = 0                  GPO         2239     A     
 GPO                LT     B4,B7,FUD32 IF WN < VL                                          GPO         2240     A     
 GPO                                                                                       GPO         2241     A     
 GPO                EQ     FUD27                                                           GPO         2242     A     
 GPO       FUD      EJECT                                                                  GPO         2243     A     
 GPO      *         BBV " 0 , IF PROGRAM BLOCK , THEN CLEAR BLOCK BITS                     GPO         2244     A     
 GPO                                                                                       GPO         2245     A     
 GPO       FUD35    BSS    0                                                               GPO         2246     A     
 GPO                IF     DEF,/DEBUG/FUD,1                                                GPO         2247     A     
 GPO                DCALL  PRNTUDI,([O.UDT],L.UDT)   PRINT BITS SET                        GPO         2248     A     
 GPO                                                                                       GPO         2249     A     
 GPO                LX4    59-BI.RBP                                                       GPO         2250     A     
 GPO                MI     X4,FUD28    IF RB[BIW]    */ PROGRAM BLOCK                      GPO         2251     A     
 GPO                                                                                       GPO         2252     A     
 GPO      *         PROCESS HOLDING BLOCK, PROPAGATE OUT INFORMATION FROM INNER            GPO         2253     A     
 GPO      *         LOOP.  SET *DEFR, ^RD, IST* BITS FOR ALL VARIABLES DEFINED             GPO         2254     A     
 GPO      *         IN THE INNER LOOP.  ACCUMULATE THE LOOP USEAGE VECTOR FOR GRA.         GPO         2255     A     
 GPO      *         NOTE THAT THE LOOP WE ARE PROCESSING MUST CONTAIN AT LEAST             GPO         2256     A     
 GPO      *         2 BLOCKS, SO *CRB* WILL CLEAR ALL OF *UDT*                             GPO         2257     A     
 GPO                                                                                       GPO         2258     A     
 GPO                SA5    O.SEQ       T = [O.SEQ]                                         GPO         2259     A     
 GPO                SA1    N.HB                                                            GPO         2260     A     
 GPO                SA5    X5+B1       R2 = [T+1]    */ R2 OF *BOS*                        GPO         2261     A     
 GPO                SX7    B1                                                              GPO         2262     A     
 GPO                SX6    X1+B1       N.HB = N.HB + 1                                     GPO         2263     A     
 GPO                LX5    59-R2.UXRP                                                      GPO         2264     A     
 GPO                SA6    A1                                                              GPO         2265     A     
 GPO                PL     X5,FUD36    IF ^UXR[R2]   */ NO USER EXT REFS IN LP             GPO         2266     A     
 GPO                SA7    UXR+1       UXR(2) = 1                                          GPO         2267     A     
 GPO                                                                                       GPO         2268     A     
 GPO       FUD36    SA1    MRA                                                             GPO         2269     A     
 GPO                LX5    1+R2.UXRP-R2.MRAP                                               GPO         2270     A     
 GPO                BX6    X1*X5       MRA = MRA & MRA[R2]                                 GPO         2271     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2930    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA6    A1                                                              GPO         2272     A     
 GPO                SA1    MRA.X                                                           FCC1254       18     A     
 GPO                BX6    X1*X5       MRA.X = MRA.X & MRA[R2]                             FCC1254       19     A     
 GPO                SA6    A1                                                              FCC1254       20     A     
 GPO                LX4    1+BI.RBP-BI.PBNP                                                GPO         2273     A     
 GPO                SB3    X4          HN = PBN[BIW] */ BN OF HEADER                       GPO         2274     A     
 GPO                SB5    B0          I = 0                                               GPO         2275     A     
 GPO                FBVA   B3          BVA = O.BVT + BVI[BIT(HN)]                          GPO         2276     A     
 GPO                SA5    LUV                                                             GPO         2277     A     
 GPO                SB6    X7+B2       RUA = BVA + VL  */ *LU* VECTOR OF LOOP              GPO         2278     A     
 GPO       FUD37    SA1    X5+B5                                                           GPO         2279     A     
 GPO                SA2    B6+B5       LUV = LUV ! [RUA]                                   GPO         2280     A     
 GPO                SB5    B5+B1                                                           GPO         2281     A     
 GPO                BX6    X1+X2                                                           GPO         2282     A     
 GPO                SA6    A1                                                              GPO         2283     A     
 GPO                LT     B5,B2,FUD37                                                     GPO         2284     A     
 GPO                                                                                       GPO         2285     A     
 GPO                SX4    X7                                                              GPO         2286     A     
 GPO                SA5    RDB                                                             GPO         2287     A     
 GPO                RJ     EBV         SET REGION DEF BITS IN *UDT*                        GPO         2288     A     
 GPO                                                                                       GPO         2289     A     
 GPO                SA5    O.SEQ                                                           GPO         2290     A     
 GPO                RJ     CHB         CHECK HOLDING BLOCK FOR COMBINE WITH PRED           GPO         2291     A     
 GPO                EQ     FUD28                                                           GPO         2292     A     
 GPO       CHB      TITLE  CHB - COMBINE HOLDING BLOCK WITH IMMEDIATE PRED                 GPO         2293     A     
 GPO      **        CHB - COMBINE HOLDING BLOCK WITH IMMEDIATE PRED                        GPO         2294     A     
 GPO      *         COALESCE THE HOLDING BLOCK WITH ITS IMMEDIATE PREDECESSOR SO           GPO         2295     A     
 GPO      *         INITIALIZATION CODE FROM INTEGER POLYNOMIALS IS REMOVED OF             GPO         2296     A     
 GPO      *         ITS DEPENDENCY ON THE INNER LOOP INDUCTION VARIABLE, AND IS            GPO         2297     A     
 GPO      *         SUBJECT TO FURTHER MOTION, ETC.                                        GPO         2298     A     
 GPO      *                                                                                GPO         2299     A     
 GPO      *         ENTRY  (X5) = [O.SEQ]                                                  GPO         2300     A     
 GPO      *                (BSI) = *BST* INDEX OF HOLDING BLOCK                            GPO         2301     A     
 GPO                                                                                       GPO         2302     A     
 GPO       CHB      ROUTINE                                                                GPO         2303     A     
 GPO                SA1    L.SEQ                                                           GPO         2304     A     
 GPO                SB5    X1-8                                                            GPO         2305     A     
 GPO                LE     B5,CHB      IF L.SEQ @ 8  */ EMPTY BLOCK                        GPO         2306          I
          -FCC0602
 GPO                SB4    4                                                               FCC0602        5     A     
 GPO                LE     B5,B4,CHB   IF L.SEQ @ 12 */ EMPTY OR *LAB* ONLY BLOCK          FCC0602        6     A     
 GPO                                                                                       GPO         2307     A     
 GPO      *         CHECK CURRENT BLOCK                                                    GPO         2308     A     
 GPO                                                                                       GPO         2309     A     
 GPO                SA2    O.BIT                                                           GPO         2310     A     
 GPO                SA3    X5          R1 = [[O.SEQ]]                                      GPO         2311     A     
 GPO                SB2    X2                                                              GPO         2312     A     
 GPO                SA4    B2+X3       BIW = BIT(R1)                                       GPO         2313     A     
 GPO                LX4    -BI.BVIP                                                        GPO         2314     A     
 GPO                SX7    X4          VI2 = BVI[BIW]                                      GPO         2315     A     
 GPO                LX4    59-BI.RBP+BI.BVIP                                               GPO         2316     A     
 GPO                MI     X4,CHB      IF RB[BIW]    */ NOT A *HB*                         GPO         2317     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2931    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                LX4    BI.RBP-BI.ILP                                                   GPO         2318          I
          -FCC0602
 GPO                MI     X4,CHB      IF IL[BIW]    */ MULT PRED IF LOOP                  GPO         2319          I
          -FCC0602
 GPO                                                                                       GPO         2320          I
          -FCC0602
 GPO      *         USE THE INTERVAL INFORMATION IN *BST* TO FIND THE PRED OF              GPO         2321          I
          -FCC0602
 GPO      *         THE *HB*.  SINCE IT IS ^IL , IT MUST HAVE 1 PRED AND THE EDGE          GPO         2322          I
          -FCC0602
 GPO      *         IS ^JP .                                                               GPO         2323          I
          -FCC0602
 GPO                                                                                       GPO         2324          I
          -FCC0602
 GPO                                                                                       FCC0602        7     A     
 GPO                SA1    O.BST                                                           GPO         2325     A     
 GPO                SA2    BSI                                                             GPO         2326     A     
 GPO                SA0    A4          B = BIT + R1  */ SAVE BIT ADDR OF *HB*              FCC0841        5     A     
 GPO                SA3    EIT                                                             GPO         2327     A     
 GPO                SB3    X1+B1                     (B3) = BST+1                          GPO         2328     A     
 GPO                SB4    X2          I = BSI                                             GPO         2329     A     
 GPO                SB6    X3                                                              GPO         2330     A     
 GPO                SA5    B3+B4       IPW = BST(I+1)                                      GPO         2331     A     
 GPO                LX5    -IM.BNP                                                         GPO         2332     A     
 GPO                SA1    B6+X5       EIW = EIT + BN[IPW]                                 GPO         2333     A     
 GPO                LX1    -EI.PRIP                                                        GPO         2334     A     
 GPO                UX1    B7,X1                                                           FCC0602        8     A     
 GPO                NE     B7,B1,CHB   IF NP[EIW] " 1  */ MORE THAN 1 PRED                 FCC0602        9     A     
 GPO                SA3    B6+X1       PIW = EIT + PRI[EIW]                                GPO         2335     A     
 GPO                LX3    -ET.PREDP                                                       GPO         2336     A     
 GPO                SA4    B6+X3       EIWP = EIT + PRED[PIW]                              GPO         2337     A     
 GPO                LX4    -EI.SUIP                                                        GPO         2338     A     
 GPO                UX4    B7,X4                                                           GPO         2339     A     
 GPO                GT     B7,B1,CHB   IF NS[EIWP] > 1  */ MORE THAN 1 SUCC                GPO         2340     A     
 GPO                SB6    X3          PBN = PRED[PIW]  */ BN OF PRED                      GPO         2341     A     
 GPO                                                                                       GPO         2342     A     
 GPO      *         SEARCH *BST* FOR PRED OF *HB*                                          GPO         2343     A     
 GPO                                                                                       GPO         2344     A     
 GPO       CHB0     SB4    B4-2        I = I - 2                                           GPO         2345     A     
 GPO                ZR     B4,CHB      IF I = 0      */ END OF *BST*                       GPO         2346     A     
 GPO                SA4    B3+B4       IPW = BST(I+1)                                      GPO         2347     A     
 GPO                LX4    -IM.BNP                                                         GPO         2348     A     
 GPO                SB7    X4                                                              GPO         2349     A     
 GPO                NE     B7,B6,CHB0  IF BN[IPW] " PBN                                    GPO         2350     A     
 GPO                                                                                       GPO         2351     A     
 GPO                LX4    IM.BNP-IM.BIP                                                   GPO         2352     A     
 GPO                SX3    B4                                                              GPO         2353     A     
 GPO                SA5    B2+X4       BIWP = BIT(BI[IPW])                                 GPO         2354     A     
 GPO                LX3    30                                                              GPO         2355     A     
 GPO                BX6    X3+X2       BSIS = SHIFT(I,30) ! BSI                            GPO         2356     A     
 GPO                SA6    BSIS                                                            GPO         2357     A     
 GPO                LX5    59-BI.RBP                                                       GPO         2358     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2932    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                PL     X5,CHB      IF ^RB[BIWP]  */ PRED IS A *HB*                     GPO         2359     A     
 GPO                BX6    X5                                                              FCC0602       10     A     
 GPO                SA6    A6+B1                                                           FCC0602       11     A     
 GPO                SA2    A0          BIW = [B]     */ REFETCH BIT WORD                   FCC0841        6     A     
 GPO                LX2    59-BI.RBP                                                       FCC0841        7     A     
 GPO                BX6    X2-X5                                                           FCC0841        8     A     
 GPO                LX6    BI.RBP-BI.FJP                                                   FCC0841        9     A     
 GPO                MI     X6,CHB      IF FJ[BIW] " FJ[BIWP]                               FCC0841       10     A     
 GPO                                                                                       GPO         2360     A     
 GPO      *         MERGE THE BLOCKS                                                       GPO         2361          I
          -FCC2113
 GPO                                                                                       GPO         2362          I
          -FCC2113
 GPO                SA7    VI2                                                             GPO         2363          I
          -FCC2365
 GPO                SX7    X5          VI1 = BVI[BIWP]                                     GPO         2364          I
          -FCC2365
 GPO                SA7    A7+B1                                                           GPO         2365          I
          -FCC2365
 GPO                ALLOC  MOD,B5      ALLOC( MOD , L.SEQ-8 )                              GPO         2366          I
          -FCC2113
 GPO      *         SAVE ELIMINATED LABEL DEF INFO IN *ELT* FOR USE BY *POST*              FCC2113       19     A     
 GPO                                                                                       FCC2113       20     A     
 GPO                LX2    BI.RBP-BI.ILP                                                   FCC2113       21     A     
 GPO                PL     X2,CHB0A    IF IL[B]      */ NO LABEL DEF                       FCC2113       22     A     
 GPO                LX2    BI.ILP-BI.FJP                                                   FCC2365       30     A     
 GPO                PL     X2,CHB      IF HB LABELED BUT NO UJP, DO NOT COMBINE            FCC2365       31     A     
 GPO                                                                                       FCC2113       23     A     
 GPO                SA1    O.SEQ                                                           FCC2113       24     A     
 GPO                SA2    O.ELT                                                           FCC2113       25     A     
 GPO                SA4    X1+4        R1 = [SEQ+4]  */ IH OF PROG LABEL                   FCC2113       26     A     
 GPO                SA3    A4+B1       R2 = [SEQ+5]  */ IH OF GL                           FCC2113       27     A     
 GPO                SX4    X4                                                              FCC2113       28     A     
 GPO                SX3    X3-I.GL                                                         FCC2113       29     A     
 GPO                LX4    18                                                              FCC2113       30     A     
 GPO                SA1    L.ELT                                                           FCC2113       31     A     
 GPO                SB2    X2+B1                                                           FCC2113       32     A     
 GPO                BX6    X3+X4                                                           FCC2113       33     A     
 GPO                SA6    B2+X1       ELT(L.ELT+1) = 24/,18/IH-PROG,18/H-GL               FCC2113       34     A     
 GPO                SX6    X1+B1       L.ELT = L.ELT + 1                                   FCC2113       35     A     
 GPO                SA6    A1                                                              FCC2113       36     A     
 GPO                                                                                       FCC2113       37     A     
 GPO      *         MERGE THE BLOCKS                                                       FCC2113       38     A     
 GPO                                                                                       FCC2113       39     A     
 GPO       CHB0A    ALLOC  MOD,B5      ALLOC( MOD, L.SEQ-8 )                               FCC2113       40          I
          -FCC2365
 GPO       CHB0A    SA7    VI2                                                             FCC2365       32     A     
 GPO                SX7    X5          VI1 = BVI[BIWP]                                     FCC2365       33     A     
 GPO                SA7    A7+B1                                                           FCC2365       34     A     
 GPO                ALLOC  MOD,B5      ALLOC (MOD,L.SEQ-8)                                 FCC2365       35     A     
 GPO                SX3    X2                                                              GPO         2367     A     
 GPO                SA2    O.SEQ                                                           GPO         2368     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2933    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                MOVE   X1+B6,X2,X3 MOVE( L.SEQ-4 , O.SEQ , O.MOD )                     GPO         2369     A     
 GPO                                                                                       GPO         2370     A     
 GPO                CALL   RBS         RELEASE THE BLOCK                                   GPO         2371     A     
 GPO                SA4    BSIS                                                            GPO         2372     A     
 GPO                LX4    30                                                              GPO         2373     A     
 GPO                SX6    X4          BSI = SETX( SHIFT(BSIS,30) )                        GPO         2374     A     
 GPO                SA6    BSI                                                             GPO         2375     A     
 GPO                CALL   RTB         GET PREDECESSOR BLOCK                               GPO         2376     A     
 GPO                                                                                       GPO         2377     A     
 GPO      *         SETUP *MOD* CONTROL WORD                                               GPO         2378     A     
 GPO                                                                                       GPO         2379     A     
 GPO                SA5    O.SEQ                                                           GPO         2380     A     
 GPO                SA3    L.MOD                                                           GPO         2381     A     
 GPO                SX1    4                                                               GPO         2382          I
          -FCC0602
 GPO                SX1    4           K = 4                                               FCC0602       12     A     
 GPO                MX6    0           DEL = 0                                             FCC0602       13     A     
 GPO                SA4    X5+B1       R2 = [O.SEQ+1]                                      GPO         2383     A     
 GPO                LX4    -R2.TXTLP                                                       GPO         2384     A     
 GPO                SX2    X4-8        II = TXTL[R2] - 8                                   GPO         2385     A     
 GPO                IX3    X3-X1                                                           GPO         2386          I
          -FCC0602
 GPO                SA5    BSIS+1                                                          FCC0602       14     A     
 GPO                LX5    BI.RBP-BI.FJP                                                   FCC0602       15     A     
 GPO                PL     X5,CHB1A    IF ^FJ[BIWP]                                        FCC0602       16     A     
 GPO                MX6    1           DEL = 1       */ SET TO DELETE UJP AND LAB          FCC0602       17     A     
 GPO                SX1    8           K = 8                                               FCC0602       18     A     
 GPO       CHB1A    IX3    X3-X1                                                           FCC0602       19     A     
 GPO                LX1    ML.MTIP                                                         GPO         2387     A     
 GPO                LX2    ML.IIP                                                          GPO         2388     A     
 GPO                LX3    ML.NIP-2                                                        GPO         2389     A     
 GPO                BX4    X2+X3                                                           GPO         2390     A     
 GPO                IX1    X4+X1                                                           GPO         2391     A     
 GPO                ADDWRD MLT,X1      ADDWRD( MLT , MCW(0,II,(L.MOD-4)/4,4))              GPO         2392          I
          -FCC0602
 GPO                BX1    X6+X1                                                           FCC0602       20     A     
 GPO                ADDWRD MLT,X1      ADDWRD( MLT , MCW(DEL,II,(L.MOD-K)/4,K) )           FCC0602       21     A     
 GPO                MX6    59                                                              GPO         2393          I
          -FCC0509
 GPO                CALL   MPB         MERGE, SQUEEZE AND REWRITE THE BLOCK                GPO         2394          I
          -FCC0509
 GPO                                                                                       GPO         2395     A     
 GPO      *         NOW ADJUST THE BIT VECTORS OF BOTH BLOCKS                              GPO         2396     A     
 GPO      *         USE1 = USE1 ! USE2 , DEF1 = DEF1 ! DEF2                                GPO         2397     A     
 GPO      *         UBD1 = UBD1 ! (^DEF1&UBD2) , LX1 = LX2                                 GPO         2398     A     
 GPO                                                                                       GPO         2399     A     
 GPO                SA2    VI2                                                             GPO         2400     A     
 GPO                SA3    VL                                                              GPO         2401     A     
 GPO                SA4    O.BVT                                                           GPO         2402     A     
 GPO                SA1    A2+B1                                                           GPO         2403     A     
 GPO                SB3    X3          L = VL                                              GPO         2404     A     
 GPO                SB7    X4                                                              GPO         2405     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2934    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SB6    B7+X1       V1A = O.BVT + VI1                                   GPO         2406     A     
 GPO                SB7    B7+X2       V2A = O.BVT + VI2                                   GPO         2407     A     
 GPO                SB2    B0          I = 0                                               GPO         2408     A     
 GPO                SB4    B3+B3                                                           GPO         2409     A     
 GPO                                                                                       GPO         2410     A     
 GPO       CHB1     SA1    B6+B2                                                           GPO         2411     A     
 GPO                SA2    B7+B2                                                           GPO         2412     A     
 GPO                SA3    A1+B4                                                           GPO         2413     A     
 GPO                SA4    A2+B4                                                           GPO         2414     A     
 GPO                SB2    B2+B1       I = I + 1                                           GPO         2415     A     
 GPO                BX6    X1+X2       DEF1 = DEF1 ! DEF2                                  GPO         2416     A     
 GPO                SA6    A1                                                              GPO         2417     A     
 GPO                MX7    0                                                               GPO         2418     A     
 GPO                SA7    A2          DEF2 = 0                                            GPO         2419     A     
 GPO                BX6    X3+X4       USE1 = USE1 ! USE2                                  GPO         2420     A     
 GPO                SA6    A3                                                              GPO         2421     A     
 GPO                SA7    A4          USE2 = 0                                            GPO         2422     A     
 GPO                LT     B2,B3,CHB1  IF I < L                                            GPO         2423     A     
 GPO                                                                                       GPO         2424     A     
 GPO                SB2    B0          I = 0                                               GPO         2425     A     
 GPO                SB7    B7+B3                                                           GPO         2426     A     
 GPO                                                                                       GPO         2427     A     
 GPO       CHB2     SA2    B6+B2       DEF1 = V1A(I)                                       GPO         2428     A     
 GPO                SA1    A2+B3       UBD1 = V1A(I+VL)                                    GPO         2429     A     
 GPO                SA3    B7+B2                                                           GPO         2430     A     
 GPO                SA4    A3+B4                                                           GPO         2431     A     
 GPO                BX5    -X2*X3                                                          GPO         2432     A     
 GPO                BX6    X1+X5       UBD1 = UBD1 ! (^DEF1 & UDB2)                        GPO         2433     A     
 GPO                SA6    A1                                                              GPO         2434     A     
 GPO                SB2    B2+B1       I = I + 1                                           GPO         2435     A     
 GPO                BX7    X4          LX1 = LX2                                           GPO         2436     A     
 GPO                SA7    A1+B4                                                           GPO         2437     A     
 GPO                LT     B2,B3,CHB2  IF I < L                                            GPO         2438     A     
 GPO                                                                                       GPO         2439     A     
 GPO                SX5    B6                                                              GPO         2440     A     
 GPO                RJ     AUV         ADJUST THE *USE* VECTOR                             GPO         2441          I
          -FCC0509
 GPO                MX6    59                                                              FCC0509        9     A     
 GPO                RJ     AUV         MERGE, SQZ BLOCK AND ADJUST BIT VECTORS             FCC0509       10     A     
 GPO                                                                                       GPO         2442     A     
 GPO      *         REWRITE THE HOLDING BLOCK AS AN EMPTY BLOCK ( BOS, EOQ )               GPO         2443     A     
 GPO                                                                                       GPO         2444     A     
 GPO                SA1    O.TXT                                                           GPO         2445     A     
 GPO                SA2    O.MOD                                                           GPO         2446     A     
 GPO                SB6    B0          TI = 0                                              GPO         2447     A     
 GPO                SA5    X2          R1 = [[O.MOD]]                                      GPO         2448     A     
 GPO                SB7    X1          TB = [O.TXT]                                        GPO         2449     A     
 GPO                UX6    B2,X5                                                           GPO         2450     A     
 GPO                SX7    8                                                               GPO         2451     A     
 GPO                RJ     SRI         SRI(  BOS  [R1] )                                   GPO         2452     A     
 GPO                SB2    OC.EOQ                                                          GPO         2453     A     
 GPO                SX6    0                                                               GPO         2454     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2935    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                RJ     SRI         SRI(  EOQ  0 )                                      GPO         2455     A     
 GPO                SA4    BSIS                                                            GPO         2456     A     
 GPO                SX7    B6                                                              GPO         2457     A     
 GPO                SX6    X4          BSI = SETX( BSIS )                                  GPO         2458     A     
 GPO                SA6    BSI                                                             GPO         2459     A     
 GPO                SA7    L.TXT       L.TXT = 8                                           GPO         2460     A     
 GPO                CALL   WMB         WRITE THE BLOCK BACK TO *BLK*                       GPO         2461     A     
 GPO                SX6    4                                                               GPO         2462     A     
 GPO                SA6    L.TXT       L.TXT = 4                                           GPO         2463     A     
 GPO                EQ     CHB                                                             GPO         2464     A     
 GPO       RDD      TITLE  RDD - REMOVE DEAD DEFINITIONS FROM A BLOCK                      GPO         2465     A     
 GPO      **        RDD - REMOVE DEAD DEFINITIONS ( STORES ) FROM A BLOCK                  GPO         2466     A     
 GPO      *                                                                                GPO         2467     A     
 GPO      *         ENTRY  *PCC* REGISTER CALL CONVENTIONS                                 GPO         2468     A     
 GPO      *                                                                                GPO         2469     A     
 GPO      *         SCAN BLOCK FOR DEAD STORES ( ^(LX ! (DBU & USE ) )  ).                 GPO         2470     A     
 GPO      *         CHANGE THEM TO *NOP*"S, CALL *SQZB* IF BLOCK CONTAINS DEAD             GPO         2471     A     
 GPO      *         COMPUTATIONS ( VERY UNLIKELY ).                                        GPO         2472     A     
 GPO      *         CALLED PRIOR TO LEVEL 2 / F.P. EXPANSION                               GPO         2473     A     
 GPO                                                                                       GPO         2474     A     
 GPO       RDDA     CON    0           HEADER FOR LD LINKS                                 FCCA499X       5     A     
 GPO                                                                                       FCCA499X       6     A     
 GPO       RDD      ROUTINE                                                                GPO         2475     A     
 GPO                                                                                       GPO         2476     A     
 GPO                RJ     IPS         INSERT POST STORES                                  GPO         2477     A     
 GPO                ZR     X6,RDD0     IF NPS = 0                                          GPO         2478     A     
 GPO                                                                                       GPO         2479     A     
 GPO                SA4    BSW                                                             GPO         2480     A     
 GPO                MX0    -R1.RIL+1                                                       GPO         2481     A     
 GPO                LX4    -IM.BIP                                                         GPO         2482     A     
 GPO                SA5    O.SEQ                                                           GPO         2483     A     
 GPO                LX0    1                                                               GPO         2484     A     
 GPO                FBVA   X4          BVA = O.BVT + BVI[BIT(BN)]                          GPO         2485     A     
 GPO                                                                                       GPO         2486     A     
 GPO       RDD0     S"TB"  X5+2        TB = O.SEQ + 2                                      GPO         2487     A     
 GPO                                                                                       GPO         2488     A     
 GPO      *         SV = LX ! ( DBU & USE ) , LIVE ON EXIT OR USED IN BLOCK                GPO         2489     A     
 GPO      *         AND DDB = ^SV & DEF , DEAD DEFINITIONS.                                GPO         2490     A     
 GPO                                                                                       GPO         2491     A     
 GPO                SA1    X7          DA = BVA                                            GPO         2492     A     
 GPO                SB6    B2+B2                                                           GPO         2493     A     
 GPO                SA2    X7+B2       UFA = BVA + VL                                      GPO         2494     A     
 GPO                SA3    X7+B6       UA = BVA + 2*VL                                     GPO         2495     A     
 GPO                SA4    A3+B2       LXA = BVA + 3*VL                                    GPO         2496     A     
 GPO                SA5    SVA                                                             GPO         2497     A     
 GPO                BX2    -X2*X1      DBU = DEF & ^UBD                                    GPO         2498     A     
 GPO                SB5    X5                        (B5) = SVA                            GPO         2499     A     
 GPO                BX2    X2*X3                                                           GPO         2500     A     
 GPO                BX6    X4+X2       SV = LX ! ( DBU & USE )                             GPO         2501     A     
 GPO                SA6    B5                                                              GPO         2502     A     
 GPO                BX7    -X6*X1      DDB = ^SV & DEF  */ DEAD DEF BITS                   GPO         2503     A     
 GPO                EQ     B2,B1,RDD2  IF VL = 1                                           GPO         2504     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2936    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO       RDD1     SA1    A1+B1                                                           GPO         2505     A     
 GPO                SA2    A2+B1                                                           GPO         2506     A     
 GPO                SA3    A3+B1                                                           GPO         2507     A     
 GPO                SA4    A4+B1                                                           GPO         2508     A     
 GPO                BX2    -X2*X1                                                          GPO         2509     A     
 GPO                SB2    B2-B1                                                           GPO         2510     A     
 GPO                BX2    X2*X3                                                           GPO         2511     A     
 GPO                BX6    X4+X2                                                           GPO         2512     A     
 GPO                BX5    -X6*X1                                                          GPO         2513     A     
 GPO                SA6    A6+B1                                                           GPO         2514     A     
 GPO                BX7    X5+X7                                                           GPO         2515     A     
 GPO                GT     B2,B1,RDD1                                                      GPO         2516     A     
 GPO                                                                                       GPO         2517     A     
 GPO       RDD2     CX4    X7                                                              GPO         2518     A     
 GPO                ZR     X4,RDD      IF COUNT( DDB ) = 0  */ NO DEAD DEFS IN BLO         GPO         2519     A     
 GPO                                                                                       GPO         2520     A     
 GPO                PRNTABV  RDD,SVA                                                       GPO         2521     A     
 GPO       RDD      SPACE  3,10                                                            GPO         2522     A     
 GPO      *         NOW SCAN BACKWARDS FOR DEAD STORES, ADJUST THE *PS* BIT                GPO         2523     A     
 GPO                                                                                       GPO         2524     A     
 GPO                SA3    "TB"-B1     R2 = TB - 1                                         GPO         2525     A     
 GPO                SA0    B0          DC = 0        */ DEAD CODE FLAG                     GPO         2526     A     
 GPO                SA4    O.UDT                                                           GPO         2527     A     
 GPO                SB6    X4+B1       UB = O.UDT + 1                                      GPO         2528     A     
 GPO                LX3    -R2.TXTLP                                                       GPO         2529     A     
 GPO                SB2    X3-4        L = TXTL[R2] - 4                                    GPO         2530     A     
 GPO                SA4    "TB"+B2     DI = TB + L                                         GPO         2531     A     
 GPO                MX1    -D.USESL                                                        GPO         2532     A     
 GPO                LX1    D.USESP                                                         GPO         2533     A     
 GPO                SB3    59-D.^DP                                                        GPO         2534     A     
 GPO                SB4    4                                                               GPO         2535     A     
 GPO                EQ     RDD4                                                            GPO         2536     A     
 GPO                                                                                       GPO         2537     A     
 GPO      *         INDICATE THAT R-NUM *PS* FOR A LIVE *ST*                               GPO         2538     A     
 GPO                                                                                       GPO         2539     A     
 GPO       RDD3     LX4    59-D.L2P                                                        GPO         2540     A     
 GPO                MI     X4,RDD4     IF L2[DI]     */ LEVEL 2 *ST*                       GPO         2541     A     
 GPO                SB2    X2+B1                                                           GPO         2542     A     
 GPO                SX6    B1                                                              GPO         2543     A     
 GPO                SA6    "TB"+B2     [TB+R+1] = 1                                        GPO         2544     A     
 GPO                                                                                       GPO         2545     A     
 GPO       RDD4     SA4    A4-B4       DI = DI - 4                                         GPO         2546     A     
 GPO                LX6    B3,X4                                                           GPO         2547     A     
 GPO                MI     X6,RDD5     IF ^D[DI]                                           GPO         2548     A     
 GPO                LX6    D.^DP-D.PSP                                                     GPO         2549     A     
 GPO                MI     X6,RDD4A    IF PS[DI]                                           GPO         2550     A     
 GPO                LX6    D.PSP-D.LDP                                                     GPO         2551     A     
 GPO                PL     X6,RDD4     IF ^LD[DI]                                          GPO         2552     A     
 GPO                                                                                       GPO         2553     A     
 GPO      *         LD - SET BIT IN *SVA* SO WE DONT KILL DEFS THAT COME BEFORE            GPO         2554     A     
 GPO      *         AN EXTERNAL REF   ( USE,DEF EXTREF USE  SITUATION ).                   GPO         2555     A     
 GPO      *         FORM LINK LIST OF ALL LDS.  THIS WILL BE SCANNED TO                    FCCA499X       7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2937    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO      *         DETERMINE IF ANY STORES INTERFERE WITH SUBSEQUENT LOADS.               FCCA499X       8     A     
 GPO                                                                                       GPO         2556     A     
 GPO                SA5    A4-2        R1 = DI - 2                                         GPO         2557     A     
 GPO                LX5    -R1.INP                                                         GPO         2558     A     
 GPO                SA3    B6+X5       U2 = UDT(IN[R1]+1)                                  GPO         2559     A     
 GPO                SX2    B1                                                              GPO         2560     A     
 GPO                SA5    B5+X3       SVW = SVA(WI[U2])                                   GPO         2561     A     
 GPO                UX7    B2,X3       B = BITN[U2]                                        GPO         2562     A     
 GPO                LX2    B2,X2                                                           GPO         2563     A     
 GPO                BX6    X2+X5       SVW = SVW ! SHIFT(1,B)                              GPO         2564     A     
 GPO                SA6    A5                                                              GPO         2565     A     
 GPO                SA3    RDDA                                                            FCCA499X       9     A     
 GPO                SX7    X3                                                              FCCA499X      10     A     
 GPO                SA7    A4+B1       LDLNK = DI + 1;[LDLNK] = RDDA                       FCCA499X      11     A     
 GPO                SX6    A7                                                              FCCA499X      12     A     
 GPO                SA6    A3          RDDA = LDLNK                                        FCCA499X      13     A     
 GPO                EQ     RDD4                                                            GPO         2566     A     
 GPO                                                                                       GPO         2567     A     
 GPO      *         INSTRUCTION *PS* - CLEAR BIT IF ALL DEFS KILLED                        GPO         2568     A     
 GPO                                                                                       GPO         2569     A     
 GPO       RDD4A    SA5    A4+B1       LI = DI + 1;  PSF = [LI]                            GPO         2570     A     
 GPO                MX7    0                                                               GPO         2571     A     
 GPO                SA7    A5          [LI] = 0                                            GPO         2572     A     
 GPO                NZ     X5,RDD4     IF PSF " 0    */ STILL *PS*                         GPO         2573     A     
 GPO                SX5    B1                                                              GPO         2574     A     
 GPO                LX5    D.PSP                                                           GPO         2575     A     
 GPO                BX6    -X5*X4      PS[DI] = 0                                          GPO         2576     A     
 GPO                SA6    A4                                                              GPO         2577     A     
 GPO                EQ     RDD4                                                            GPO         2578     A     
 GPO                                                                                       GPO         2579     A     
 GPO      *         INSTRUCTION ^D                                                         GPO         2580     A     
 GPO                                                                                       GPO         2581     A     
 GPO       RDD5     SA5    A4-2        R1 = DI - 2                                         GPO         2582     A     
 GPO                UX7    B2,X5                                                           GPO         2583     A     
 GPO                LX6    D.^DP-D.STP                                                     GPO         2584     A     
 GPO                EQ     B2,B1,RDD8  IF OC[R1] = OC.BOS                                  GPO         2585          I
          -FCCA499X 
 GPO                EQ     B2,B1,RDD50 IF OC[R1] = OC.BOS                                  FCCA499X      14     A     
 GPO                MI     X6,RDD6     IF ST[DI]                                           GPO         2586     A     
 GPO                SB2    B2-OC.RJ3                                                       GPO         2587     A     
 GPO                MI     B2,RDD4     IF OC[R1] < OC.RJ3                                  GPO         2588     A     
 GPO                GT     B2,B1,RDD4  IF OC[R1] > OC.RJ6                                  GPO         2589     A     
 GPO                ERRNZ  OC.RJ3+1-OC.RJ6                                                 GPO         2590     A     
 GPO                                                                                       GPO         2591     A     
 GPO                SA3    A5-4        R1P = R1 - 4                                        GPO         2592          I
          -FCC0612
 GPO                SA3    A5-8        R1P = R1 - 8                                        FCC0612        5     A     
 GPO                SA5    A5+B1       R2 = R1 + 1                                         GPO         2593     A     
 GPO                UX6    B2,X3                                                           GPO         2594     A     
 GPO                SX7    B2-OC.JIN                                                       GPO         2595     A     
 GPO                ZR     X7,RDD4     IF OC[R1P] = OC.JIN  */ COMPUTED GOTO               GPO         2596     A     
 GPO                MX7    -FI.FTL                                                         GPO         2597     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2938    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                LX5    -FI.FTP                                                         GPO         2598     A     
 GPO                BX6    -X7*X5      F = FT[R2]    FUNCTION TYPE                         GPO         2599     A     
 GPO                SB2    X5-2                                                            GPO         2600          I
          -FCC0612
 GPO                SB2    X6-2                                                            FCC0612        6     A     
 GPO                ZR     B2,RDD4     IF F = 2      */ *BEF*                              GPO         2601     A     
 GPO                                                                                       GPO         2602     A     
 GPO                EQ     RDD8        QUIT UNTIL WE ADD MORE CODE                         GPO         2603          I
          -FCCA499X 
 GPO                EQ     RDD50       QUIT UNTIL WE ADD MORE CORE                         FCCA499X      15     A     
 GPO                                                                                       GPO         2604     A     
 GPO       RDD6     BX2    "RN"X5      R = RI[R1]                                          GPO         2605     A     
 GPO                LX5    -R1.INP                                                         GPO         2606     A     
 GPO                SB2    X5          I = IN[R1]                                          GPO         2607     A     
 GPO                SA5    B6+X5       U2 = UDT(I+1)                                       GPO         2608     A     
 GPO                ZR     B2,RDD3     IF I = 0      */ NO *UDT* INDEX                     GPO         2609     A     
 GPO                LX6    D.STP-D.RFP                                                     GPO         2610          I
          -FCC1556X 
 GPO                MI     X6,RDD3     IF RF[DI]     */ MOVED STORE                        GPO         2611          I
          -FCC1556X 
 GPO                                                                                       GPO         2612     A     
 GPO      *         SEE IF STORE IS LIVE                                                   GPO         2613     A     
 GPO                                                                                       GPO         2614     A     
 GPO                SA3    B5+X5       SW = [SVA+WI[U2]]                                   GPO         2615     A     
 GPO                UX7    B2,X5                                                           GPO         2616     A     
 GPO                SB2    B2-59       B = 59-BITN[U2]                                     GPO         2617     A     
 GPO                SA5    A4-B1       R2 = DI - 1                                         GPO         2618     A     
 GPO                LX6    -B2,X3                                                          GPO         2619     A     
 GPO                MI     X6,RDD3     IF SHIFT(SW,B) < 0  */ STORE IS LIVE                GPO         2620     A     
 GPO                LX5    -IH.RFP                                                         GPO         2621     A     
 GPO                SB2    X5                                                              GPO         2622     A     
 GPO                GT     B2,B1,RDD3  IF RF[R2] > 1                                       GPO         2623     A     
 GPO                BX6    X5          R2ST = R2                                           FCCA499X      16     A     
 GPO                SA3    RDDA        LDLNK = RDDA                                        FCCA499X      17     A     
 GPO                LX6    IH.RFP-IH.IHP                                                   FCCA499X      18     A     
 GPO                                                                                       FCCA499X      19     A     
 GPO      *         SEARCH THRU LINK LIST FOR INTERFERENCE BETWEEN THIS STORE              FCCA499X      20     A     
 GPO      *         AND SUBSEQUENT LOADS.                                                  FCCA499X      21     A     
 GPO                                                                                       FCCA499X      22     A     
 GPO       RDD10    ZR     X3,RDD30    IF LDLNK = 0   */END OF LIST                        FCCA499X      23     A     
 GPO                SA5    X3-2        R2LD = LDLNK - 2                                    FCCA499X      24     A     
 GPO                LX5    -IH.IHP                                                         FCCA499X      25     A     
 GPO                BX7    X5-X6                                                           FCCA499X      26     A     
 GPO                LX6    IH.IHP-IH.CAP                                                   FCCA499X      27     A     
 GPO                SX7    X7                                                              FCCA499X      28     A     
 GPO                NZ     X7,RDD20    IF IH[R2ST] " IH[R2LD]                              FCCA499X      29     A     
 GPO                LX5    IH.IHP-IH.RFP                                                   FCCA499X      30     A     
 GPO                SX7    X5                                                              FCCA499X      31     A     
 GPO                NZ     X7,RDD3     IF RF[R2LD] " 0                                     FCCA499X      32     A     
 GPO                LX5    IH.RFP-IH.CAP                                                   FCCA499X      33     A     
 GPO                BX7    X5-X6                                                           FCCA499X      34     A     
 GPO                SX7    X7                                                              FCCA499X      35     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2939    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                ZR     X7,RDD3     IF CA[R2LD] = CA[R2ST]                              FCCA499X      36     A     
 GPO       RDD20    SA3    X3          LDLNK = [LDLNK]                                     FCCA499X      37     A     
 GPO                LX6    IH.CAP-IH.IHP                                                   FCCA499X      38     A     
 GPO                EQ     RDD10                                                           FCCA499X      39     A     
 GPO                                                                                       GPO         2624     A     
 GPO      *         *ST* IS DEAD, CHANGE IT TO A *NOP* AND ADJUST USES OF PRED.            GPO         2625     A     
 GPO                                                                                       GPO         2626     A     
 GPO                SA3    "TB"+X2     DP = TB + R                                         GPO         2627          I
          -FCCA499X 
 GPO       RDD30    SA3    "TB"+X2     DP = TB + R                                         FCCA499X      40     A     
 GPO                SX4    B1                                                              GPO         2628     A     
 GPO                IX6    X3-X4       USES[DP] = USES[DP] - 1                             GPO         2629     A     
 GPO                SA6    A3                                                              GPO         2630     A     
 GPO                BX7    -X1*X6                                                          GPO         2631     A     
 GPO                SA0    A0+B1       DC = DC + 1   */ INC DEAD STORE COUNT               GPO         2632     A     
 GPO                NZ     X7,RDD7     IF USES[DP] " 0                                     GPO         2633          I
          -FCC0625
 GPO                LX3    59-D.RFP                                                        FCC0625        5     A     
 GPO                AX3    59                                                              FCC0625        6     A     
 GPO                BX7    -X3*X7                                                          FCC0625        7     A     
 GPO                NZ     X7,RDD7     IF USES[DP] " 0 & ^RF[DP]                           FCC0625        8          I
          -FCCA499X 
 GPO                NZ     X7,RDD40    IF USES[DP] " 0 & ^RF[DP]                           FCCA499X      41     A     
 GPO                SA0    1S17        DC = -377777B */ INDICATE DEAD COMPUTATIONS         GPO         2634     A     
 GPO                                                                                       GPO         2635     A     
 GPO       RDD7     SA5    F.RDT+OC.NOP                                                    GPO         2636          I
          -FCCA499X 
 GPO       RDD40    SA5    F.RDT+OC.NOP                                                    FCCA499X      42     A     
 GPO                SB2    OC.NOP                                                          GPO         2637     A     
 GPO                PX6    B2,X2                                                           GPO         2638     A     
 GPO                SA6    A4-2        [DI-2] = TYI(OC.NOP,0,0,R)                          GPO         2639     A     
 GPO                BX7    X5                                                              GPO         2640     A     
 GPO                SA7    A4          [DI] = RDT(OC.NOP)                                  GPO         2641     A     
 GPO                EQ     RDD4                                                            GPO         2642     A     
 GPO                                                                                       GPO         2643     A     
 GPO       RDD8     SX1    A0                                                              GPO         2644          I
          -FCCA499X 
 GPO       RDD50    SX1    A0                                                              FCCA499X      43     A     
 GPO                TRACE  RDD,RLIST,SEQ                                                   GPO         2645     A     
 GPO                                                                                       GPO         2646     A     
 GPO                ZR     X1,RDD      IF DC = 0     */ NO STORES KILLED                   GPO         2647          I
          -FCCA499X 
 GPO                PL     X1,RDD9     IF DC > 0     */ DEAD STORES ONLY                   GPO         2648          I
          -FCCA499X 
 GPO      *         CLEAR LOAD LINKS.                                                      FCCA499X      44     A     
 GPO                                                                                       FCCA499X      45     A     
 GPO                SA2    RDDA        LDLNK = RDDA                                        FCCA499X      46     A     
 GPO                MX7    0                                                               FCCA499X      47     A     
 GPO       RDD54    ZR     X2,RDD56    IF LDLNK = 0   */END OF LIST                        FCCA499X      48     A     
 GPO                SA7    A2          [LDLNK] = 0                                         FCCA499X      49     A     
 GPO                SA2    X2          LDLNK = OLD [LDLNK]                                 FCCA499X      50     A     
 GPO                EQ     RDD54                                                           FCCA499X      51     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2940    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       FCCA499X      52     A     
 GPO       RDD56    ZR     X1,RDD      IF DC = 0   */NO DEAD STORES                        FCCA499X      53     A     
 GPO                PL     X1,RDD60    IF DC > 0   */DEAD STORES ONLY                      FCCA499X      54     A     
 GPO                                                                                       GPO         2649     A     
 GPO                MX6    1           L.MOD = 0                                           GPO         2650     A     
 GPO                CALL   MPB         RE SQUEEZE AND REWRITE THE BLOCK                    GPO         2651     A     
 GPO                EQ     RDD                                                             GPO         2652     A     
 GPO                                                                                       GPO         2653     A     
 GPO                                                                                       GPO         2654     A     
 GPO       RDD9     MX6    0                                                               GPO         2655          I
          -FCCA499X 
 GPO       RDD60    MX6    0                                                               FCCA499X      55     A     
 GPO                CALL   MPB         MOVE THE BLOCK TO *TXT*                             GPO         2656     A     
 GPO                CALL   CUC         RESET THE USES COUNTS                               GPO         2657     A     
 GPO                CALL   WTB         REWRITE THE BLOCK                                   GPO         2658     A     
 GPO                EQ     RDD                                                             GPO         2659     A     
 GPO       IPS      TITLE  IPS - INSERT POST STORES                                        GPO         2660     A     
 GPO      **        IPS - INSERT POST STORES INTO A BLOCK                                  GPO         2661     A     
 GPO      *                                                                                GPO         2662     A     
 GPO      *         ENTRY  (X4) = [BSW]                                                    GPO         2663     A     
 GPO      *                                                                                GPO         2664     A     
 GPO      *         EXIT   (X6) = NPS = 0 IF NO POST STORES INTRODUCED                     GPO         2665     A     
 GPO                                                                                       GPO         2666     A     
 GPO       IPS      ROUTINE                                                                GPO         2667     A     
 GPO                LX4    -IM.BIP                                                         GPO         2668     A     
 GPO                FBVA   X4          BIW = BIT(BN);  BVA = O.BIT + BVI[BIW]              GPO         2669     A     
 GPO                LX4    -BI.PIIP                                                        GPO         2670     A     
 GPO                MX3    -BI.PIIL                                                        GPO         2671     A     
 GPO                BX6    -X3*X4      PSI = PII[BIW]  */ INDEX TO POST ST INFO            GPO         2672     A     
 GPO                ZR     X6,IPS      IF PSI = 0    */ NO POST STORES                     GPO         2673     A     
 GPO                                                                                       GPO         2674     A     
 GPO      *         SCAN POST STORE LIST AND ADJUST *DEF* AND *UBD* BIT VECTORS            GPO         2675     A     
 GPO                                                                                       GPO         2676     A     
 GPO                SA1    O.PSI                                                           GPO         2677     A     
 GPO                SA2    O.UDT                                                           GPO         2678     A     
 GPO                IX3    X1+X6                                                           GPO         2679     A     
 GPO                SA7    VI2                                                             GPO         2680     A     
 GPO                SB7    X7          BVA = BVA                                           GPO         2681     A     
 GPO                SA5    X3-1        PI = O.PSI+PSI-1  */ HEADER WORD                    GPO         2682     A     
 GPO                SB6    X2+B1       UB = O.UDT + 1                                      GPO         2683     A     
 GPO                SB4    X5          NPS = [PI]    */ N. POST STORES                     GPO         2684     A     
 GPO                SB5    X5          N = NPS                                             GPO         2685     A     
 GPO                PX0    B4,X6                                                           GPO         2686     A     
 GPO                SX1    B1                                                              GPO         2687     A     
 GPO                                                                                       GPO         2688     A     
 GPO       IPS1     SA5    A5+B1       PI = PI + 1                                         GPO         2689     A     
 GPO                SB5    B5-B1       N = N - 1                                           GPO         2690     A     
 GPO                LX5    -PS.UDIP                                                        GPO         2691     A     
 GPO                SA4    B6+X5       U2 = UDT( UDI[PI]+1 )                               GPO         2692     A     
 GPO                UX7    B3,X4       B = BITN[U2];  W = WI[U2]                           GPO         2693     A     
 GPO                SA2    B7+X4       BDA = BVA + W */ WORD OF DEF VECTOR                 GPO         2694     A     
 GPO                LX4    B3,X1                                                           GPO         2695     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2941    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA3    A2+B2       UFA = BDA + VL */ UBD WORD                          GPO         2696     A     
 GPO                BX6    X4+X2       [BDA] = [BDA] ! SHIFT(1,B)                          GPO         2697     A     
 GPO                SA6    A2                                                              GPO         2698     A     
 GPO                BX7    -X4*X3      [UFA] = ^SHIFT(1,B) & [UFA]                         GPO         2699     A     
 GPO                SA7    A3                                                              GPO         2700     A     
 GPO                NZ     B5,IPS1     IF N " 0                                            GPO         2701     A     
 GPO                                                                                       GPO         2702     A     
 GPO      *         RESCAN LIST AND GENERATE A DEF, SA/XMT , ST FOR EACH ENTRY.            GPO         2703     A     
 GPO                                                                                       GPO         2704     A     
 GPO                SA1    O.SEQ                                                           GPO         2705     A     
 GPO                SA2    X1+4        R1 = [O.SEQ+4]  */ FIRST AFTER *BOS*                GPO         2706     A     
 GPO                SX1    4                                                               GPO         2707     A     
 GPO                UX6    B2,X2                                                           GPO         2708     A     
 GPO                MX3    0           II = 0                                              GPO         2709     A     
 GPO                SX7    B2-OC.LAB                                                       GPO         2710     A     
 GPO                NZ     X7,IPS2     IF OC[R1] " OC.LAB                                  GPO         2711     A     
 GPO                BX3    X1          II = 4                                              GPO         2712     A     
 GPO       IPS2     LX3    ML.IIP                                                          GPO         2713     A     
 GPO                LX1    ML.MTIP                                                         GPO         2714     A     
 GPO                SX2    B4+B4                                                           GPO         2715     A     
 GPO                BX1    X1+X3                                                           GPO         2716     A     
 GPO                SX5    X2+B4                                                           GPO         2717     A     
 GPO                LX5    ML.NIP                                                          GPO         2718     A     
 GPO                BX1    X5+X1                                                           GPO         2719     A     
 GPO                ADDWRD MLT,X1      ADDWRD( MLT , MCW(0,II,3*NPS,4) )                   GPO         2720     A     
 GPO                LX5    -ML.NIP+2                                                       GPO         2721     A     
 GPO                ALLOC  MOD,X5      ALLOC( MOD , 12*NPS )                               GPO         2722     A     
 GPO                SA4    O.PSI                                                           GPO         2723     A     
 GPO                SB7    X2          TB = O.MOD                                          GPO         2724     A     
 GPO                UX6    B3,X0       N = NPS                                             GPO         2725     A     
 GPO                IX7    X6+X4                                                           GPO         2726     A     
 GPO                SA5    X7          PI = O.PSI + IPSA                                   GPO         2727     A     
 GPO                SB4    B3+B3                                                           GPO         2728     A     
 GPO                SB5    B6          MI = OLD(L.MOD)  */ INDEX FOR DEFS                  GPO         2729     A     
 GPO                SB4    B4+B4                                                           GPO         2730          I
          -FCC0408
 GPO                SA1    O.SYM                                                           FCC0408       73          I
          -FCC0656
 GPO                SB4    B4+B4                                                           FCC0408       74          I
          -FCC0656
 GPO                SA0    X1                        (A0) = O.SYM                          FCC0408       75          I
          -FCC0656
 GPO                SB4    B4+B4                     (B4) = 4*NPS                          FCC0656       41     A     
 GPO                                                                                       GPO         2731     A     
 GPO       IPS3     MX1    PS.REGL                                                         GPO         2732     A     
 GPO                LX1    PS.REGL+PS.REGP                                                 GPO         2733     A     
 GPO                BX2    X1*X5                                                           GPO         2734     A     
 GPO                LX2    R1.SOP-PS.REGP                                                  GPO         2735     A     
 GPO                SX1    B5                                                              GPO         2736     A     
 GPO                BX6    X2+X1                                                           GPO         2737     A     
 GPO                SB2    OC.DEF                                                          GPO         2738     A     
 GPO                MX7    0                                                               GPO         2739     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2942    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SB6    B5          TI = MI                                             GPO         2740     A     
 GPO                LX2    -R1.SOP                                                         GPO         2741          I
          -FCC1025
 GPO                LX2    58-R1.SOP-SO.RTP                                                FCC1025        7     A     
 GPO                RJ     SRI         SRI( DEF  MI,REG[PI] )                              GPO         2742     A     
 GPO                SB6    B5+B4       TI = MI + 4*NPS                                     GPO         2743     A     
 GPO                SX6    B6                                                              GPO         2744     A     
 GPO                LX1    R1.RJP                                                          GPO         2745     A     
 GPO                BX6    X1+X6                                                           GPO         2746     A     
 GPO                SB2    OC.SA                                                           GPO         2747          I
          -FCC1025
 GPO                SX2    X2-20B                                                          GPO         2748          I
          -FCC1025
 GPO                MI     X2,IPS4     IF REG[PI] < 20B  */ IN A B/A REG                   GPO         2749          I
          -FCC1025
 GPO                SB2    OC.XMT                                                          GPO         2750          I
          -FCC1025
 GPO       IPS4     RJ     SRI         SRI( SA/XMT MI+4*NPS,MI )                           GPO         2751          I
          -FCC1025
 GPO                SB2    OC.XMT      OC = OC.XMT;  R2W = 0                               FCC1025        8     A     
 GPO                MI     X2,IPS4     IF REG[PI] \ 20B                                    FCC1025        9     A     
 GPO                SB2    OC.SA       OC = OC.SA                                          FCC1025       10     A     
 GPO                MX1    -PS.CAIHL                                                       FCC1025       11     A     
 GPO                BX7    -X1*X5      R2W = IHW(0,CAIH[PI])                               FCC1025       12     A     
 GPO       IPS4     RJ     SRI         SRI( OC  MI+4*NPS,MI, R2W )                         FCC1025       13     A     
 GPO                SX6    B6-4        R = TI - 4                                          GPO         2752     A     
 GPO                SB6    X6+B4       TI = R + 4*NPS                                      GPO         2753     A     
 GPO                MX1    -PS.CAIHL                                                       GPO         2754     A     
 GPO                BX7    -X1*X5                                                          GPO         2755     A     
 GPO                LX5    -PS.UDIP                                                        GPO         2756     A     
 GPO                SB2    OC.ST                                                           GPO         2757     A     
 GPO                SX5    X5                                                              GPO         2758     A     
 GPO                LX5    R1.INP                                                          GPO         2759     A     
 GPO                SB3    B3-B1       N = N - 1                                           GPO         2760     A     
 GPO                BX6    X5+X6                                                           GPO         2761     A     
 GPO                SB5    B5+4        MI = MI + 4                                         GPO         2762          I
          -FCC0408
 GPO                RJ     SRI         SRI( ST  R,0,CAIH[PI],UDI[PI] )                     GPO         2763          I
          -FCC0408
 GPO                LX1    B1,X7                                                           FCC0408       76          I
          -FCC0656
 GPO                RJ     SRI         SRI( ST  R,0,CAIH[PI],UDI[PI] )                     FCC0408       77          I
          -FCC0656
 GPO                SB2    X1+B1                                                           FCC0408       78          I
          -FCC0656
 GPO                SA1    A0-B2       WORDB = SYM(2*IH[PI]-1)                             FCC0408       79          I
          -FCC0656
 GPO                LX1    -P.FPB                                                          FCC0408       80          I
          -FCC0656
 GPO                SX2    B1          DI = MOD(MI+2)                                      FCC0408       81          I
          -FCC0656
 GPO                BX5    X2*X1                                                           FCC0408       82          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2943    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
          -FCC0656
 GPO                LX5    D.FPP                                                           FCC0408       83          I
          -FCC0656
 GPO                BX6    X5+X6       FP[DI] = FP[WORDB]                                  FCC0408       84          I
          -FCC0656
 GPO                SA6    A6                                                              FCC0408       85          I
          -FCC0656
 GPO                SB5    B5+4        MI = MI + 4                                         FCC0408       86          I
          -FCC0656
 GPO                SB5    B5+4        MI = MI + 4                                         FCC0656       42     A     
 GPO                RJ     SMI         SMI( ST  R,,CAIH[PI],UDI[PI] )                      FCC0656       43     A     
 GPO                SA5    A5+B1       PI = PI + 1                                         GPO         2764     A     
 GPO                NZ     B3,IPS3     IF N " 0                                            GPO         2765     A     
 GPO                                                                                       GPO         2766     A     
 GPO                MX6    1                                                               GPO         2767          I
          -FCC0509
 GPO                CALL   MPB         MERGE MODS AND REWRITE THE BLOCK                    GPO         2768          I
          -FCC0509
 GPO                SA5    VI2                                                             GPO         2769          I
          -FCC0509
 GPO                RJ     AUV         ADJUST THE USE VECTOR                               GPO         2770          I
          -FCC0509
 GPO                SA5    VI2                                                             FCC0509       11     A     
 GPO                MX6    1                                                               FCC0509       12     A     
 GPO                RJ     AUV         MERGE, SQZ BLOCK AND ADJUST BIT VECTORS             FCC0509       13     A     
 GPO                CALL   RTB         AND GET IT BACK                                     GPO         2771     A     
 GPO                SX6    B1                                                              GPO         2772     A     
 GPO                EQ     IPS                                                             GPO         2773     A     
 GPO       AUV      TITLE  AUV - ADJUST USE VECTOR                                         GPO         2774     A     
 GPO      **        AUV - ADJUST *USE* BIT VECTOR AFTER A *SQZB* CALL TO ACCOUNT           GPO         2775     A     
 GPO      *                FOR ANY STORE/LOAD SQUEEZING THAT TOOK PLACE.                   GPO         2776     A     
 GPO      *         THIS IS DONE PRIOR TO THE *RDD* CALL SO AS TO GET RID OF               GPO         2777     A     
 GPO      *         THE INTRA BLOCK USES.                                                  GPO         2778     A     
 GPO      *                                                                                GPO         2779     A     
 GPO      *         ENTRY  (X5) = BVA , BLOCK BIT VECTOR ADDRESS                           GPO         2780     A     
 GPO      *                (X6) = *MPB* CALL FLAG                                          FCC0509       14     A     
 GPO                                                                                       GPO         2781     A     
 GPO       AUVA     BFMW   D,(LD,BM)                                                       GPO         2782     A     
 GPO                                                                                       GPO         2783     A     
 GPO       AUV      ROUTINE                                                                GPO         2784     A     
 GPO                SA1    SVA                                                             FCC0509       15     A     
 GPO                SA2    VL                                                              FCC0509       16     A     
 GPO                BX7    X5                                                              FCC0509       17     A     
 GPO                SA7    VI2                                                             FCC0509       18     A     
 GPO                IX7    X1+X2                                                           FCC0509       19     A     
 GPO                SA7    =XSUVA      SUVA = SVA+VL  */ SET FLAG FOR SQZ/SMR              FCC0509       20     A     
 GPO                LX2    1                                                               FCC0509       21     A     
 GPO                SB6    X1                                                              FCC0509       22     A     
 GPO                SB7    B6+X2                                                           FCC0509       23     A     
 GPO                MX7    0                                                               FCC0509       24     A     
 GPO       AUV1     SA7    B6          FOR I = 1 TO 2*VL;  SVA(I) = 0                      FCC0509       25     A     
 GPO                SB6    B6+B1                                                           FCC0509       26     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2944    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                LT     B6,B7,AUV1                                                      FCC0509       27     A     
 GPO                                                                                       FCC0509       28     A     
 GPO                CALL   MPB         MERGE MODS AND SQZ BLOCK                            FCC0509       29     A     
 GPO                SX7    0                                                               FCC0509       30     A     
 GPO                SA7    SUVA        SUVA = 0                                            FCC0509       31     A     
 GPO                SA5    VI2                                                             FCC0509       32     A     
 GPO                SA1    =XSTLDS                                                         GPO         2785     A     
 GPO                ZR     X1,AUV      IF STLDS = 0  */ NO STORE/LD SQUEEZING              GPO         2786     A     
 GPO                                                                                       GPO         2787     A     
 GPO                SA2    SVA                                                             GPO         2788     A     
 GPO                SA3    VL                                                              GPO         2789     A     
 GPO                SA1    O.UDT                                                           GPO         2790     A     
 GPO                SA4    O.TXT                                                           GPO         2791     A     
 GPO                LX6    B1,X3                                                           GPO         2792     A     
 GPO                SB4    X3                        (B4) = VL                             GPO         2793     A     
 GPO                SB5    X2                        (B5) = SVA                            GPO         2794     A     
 GPO                SB7    X5+B4       UFA = BVA + VL  */ USE FIRST ADDRESS                GPO         2795     A     
 GPO                MX6    0                                                               GPO         2796          I
          -FCC0509
 GPO                SA0    X1+B1                     (A0) = O.UDT + 1                      GPO         2797          I
          -FCC0509
 GPO                SB3    B0                                                              GPO         2798          I
          -FCC0509
 GPO       AUV1     SA6    B5+B3       FOR I = 1 TO VL;  SVA(I) = 0                        GPO         2799          I
          -FCC0509
 GPO                SB3    B3+B1                                                           GPO         2800          I
          -FCC0509
 GPO                LT     B3,B4,AUV1                                                      GPO         2801          I
          -FCC0509
 GPO                                                                                       GPO         2802          I
          -FCC0509
 GPO                SA0    X1+B1                     (A0) = O.UDT + 1                      FCC0509       33     A     
 GPO                SA1    AUVA                                                            GPO         2803     A     
 GPO                SB2    B1+B1                                                           GPO         2804     A     
 GPO                SA4    X4+B2       DI = O.TXT + 2                                      GPO         2805     A     
 GPO                SX7    B1                                                              GPO         2806     A     
 GPO                EQ     AUV3                                                            GPO         2807     A     
 GPO                                                                                       GPO         2808     A     
 GPO      *         SET BIT FOR REFERENCED VARIABLE                                        GPO         2809     A     
 GPO                                                                                       GPO         2810     A     
 GPO       AUV2     LX5    -R1.INP                                                         GPO         2811     A     
 GPO                SB3    X5          I = IN[R1]                                          GPO         2812     A     
 GPO                ZR     B3,AUV3     IF I = 0                                            GPO         2813     A     
 GPO                                                                                       GPO         2814     A     
 GPO                SA3    A0+B3       U2 = UDT(I+1);  W = WI[U2]                          GPO         2815     A     
 GPO                SA2    B5+X3                                                           GPO         2816     A     
 GPO                UX5    B6,X3                                                           GPO         2817     A     
 GPO                LX4    B6,X7                                                           GPO         2818     A     
 GPO                BX6    X4+X2       SVA(W) = SVA(W) ! SHIFT(1,BITN[U2])                 GPO         2819     A     
 GPO                SA6    A2                                                              GPO         2820     A     
 GPO                                                                                       GPO         2821     A     
 GPO      *         ADVANCE TO NEXT INSTRUCTION                                            GPO         2822     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2945    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       GPO         2823     A     
 GPO       AUV3     SA5    A4+B2       R1 = DI + 2                                         GPO         2824     A     
 GPO                SA4    A5+B2       DI = R1 + 2                                         GPO         2825     A     
 GPO                BX6    X1*X4                                                           GPO         2826     A     
 GPO                LX4    59-D.LDP                                                        GPO         2827     A     
 GPO                ZR     X6,AUV3     IF ^( LD[DI] ! BM[DI] )                             GPO         2828     A     
 GPO                MI     X4,AUV2     IF LD[DI]                                           GPO         2829     A     
 GPO                                                                                       GPO         2830     A     
 GPO                UX6    B3,X5                                                           GPO         2831     A     
 GPO                ZR     B3,AUV4     IF OC[R1] = OC.EOQ  */ END OF SEQ                   GPO         2832     A     
 GPO                SX6    B3-OC.RJ6                                                       GPO         2833     A     
 GPO                NZ     X6,AUV3     IF OC[R1] " OC.RJ6                                  GPO         2834     A     
 GPO                                                                                       GPO         2835     A     
 GPO      *         USER OR I/O REFERENCE, EXIT SINCE WE HAVE LOST THE PARAMETER           GPO         2836     A     
 GPO      *         LIST INFORMATION AT THE END OF THE BLOCK DURING THE MERGE.             GPO         2837     A     
 GPO                                                                                       GPO         2838     A     
 GPO                EQ     AUV                                                             GPO         2839     A     
 GPO                                                                                       GPO         2840     A     
 GPO      *         ADJUST *UBD* AND *USE* BIT VECTORS                                     GPO         2841          I
          -FCC0509
 GPO                                                                                       GPO         2842          I
          -FCC0509
 GPO       AUV4     SA2    B5+B3                                                           GPO         2843          I
          -FCC0509
 GPO                SA1    B7+B3                                                           GPO         2844          I
          -FCC0509
 GPO                BX6    X2          USE(I) = SVA(I)                                     GPO         2845          I
          -FCC0509
 GPO                SA6    A1+B4                                                           GPO         2846          I
          -FCC0509
 GPO                BX7    X2*X1       UBD(I) = UBD(I) & USE(I)                            GPO         2847          I
          -FCC0509
 GPO                SA7    A1                                                              GPO         2848          I
          -FCC0509
 GPO                SB3    B3+1        I = I + 1                                           GPO         2849          I
          -FCC0509
 GPO      *         ADJUST *USE* AND *UBD* BV"S, USE = USE & ^(SVA2 & ^SVA)                FCC0509       34     A     
 GPO                                                                                       FCC0509       35     A     
 GPO       AUV4     SA2    B5+B3                     SVA                                   FCC0509       36     A     
 GPO                SA3    A2+B4                     SVA2                                  FCC0509       37     A     
 GPO                SA1    B7+B3                     UBD                                   FCC0509       38     A     
 GPO                SA4    A1+B4                     USE                                   FCC0509       39     A     
 GPO                BX5    -X2*X3                                                          FCC0509       40     A     
 GPO                BX6    -X5*X4      USE(I) = USE(I) & ^(SVA2(I) & ^SVA(I) )             FCC0509       41     A     
 GPO                SA6    A4                                                              FCC0509       42     A     
 GPO                BX7    X6*X1       UBD(I) = UBD(I) & USE(I)                            FCC0509       43     A     
 GPO                SA7    A1                                                              FCC0509       44     A     
 GPO                SB3    B3+B1       I = I + 1                                           FCC0509       45     A     
 GPO                LT     B3,B4,AUV4  IF I < VL                                           GPO         2850     A     
 GPO                                                                                       GPO         2851     A     
 GPO                PRNTABV  AUV,SVA                                                       GPO         2852     A     
 GPO                EQ     AUV                                                             GPO         2853     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2946    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO       FEI      TITLE  FEI - FORM ENTRY INFORMATION                                    FCCA513X      10     A     
 GPO      **        FEI - FORM ENTRY INFORMATION                                           FCCA513X      11     A     
 GPO      *         COMPUTE REGION LIVE ENTRY BIT VECTOR.                                  FCCA513X      12     A     
 GPO                                                                                       FCCA513X      13     A     
 GPO       FEI      ROUTINE                                                                FCCA513X      14     A     
 GPO                SA4    HBI+1       BN = BN[HBI(2)]   */ HEADER NODE                    FCCA513X      15     A     
 GPO                FBVA   X4          BVA = O.BVT + BVI[BIT(BN)]                          FCCA513X      16     A     
 GPO                SA2    LEA                                                             FCCA513X      17     A     
 GPO                SB3    B2                                                              FCCA513X      18     A     
 GPO                SB4    B2+B2                                                           FCCA513X      19     A     
 GPO                SA3    X7          BDA = BVA                                           FCCA513X      20     A     
 GPO                SA4    X7+B2       UFA = BVA + VL  */ UBD                              FCCA513X      21     A     
 GPO                SA5    A4+B4       LXW = BVA + 3*VL  */ LX                             FCCA513X      22     A     
 GPO                BX0    -X3*X5                                                          FCCA513X      23     A     
 GPO                BX6    X0+X4       LEW = ^[BDA] & [LXW] ! [UFA]                        FCCA513X      24     A     
 GPO                SA2    X2                                                              FCCA513X      25     A     
 GPO                BX6    X6+X2       [LEA] = LEW ! [LEA] */ ACCNT FOR MOVED ST"S         FCCA513X      26     A     
 GPO                SA6    A2                                                              FCCA513X      27     A     
 GPO                SB2    B2-B1                                                           FCCA513X      28     A     
 GPO                ZR     B2,FEI      IF VL = 1                                           FCCA513X      29     A     
 GPO       FEI1     SA3    A3+B1       = BDA                                               FCCA513X      30     A     
 GPO                SA4    A4+B1       = UFA                                               FCCA513X      31     A     
 GPO                SA5    A5+B1       = LXW                                               FCCA513X      32     A     
 GPO                SB2    B2-B1       VL = VL - 1                                         FCCA513X      33     A     
 GPO                SA2    A2+B1       = LEA                                               FCCA513X      34     A     
 GPO                BX0    -X3*X5                                                          FCCA513X      35     A     
 GPO                BX6    X0+X4                                                           FCCA513X      36     A     
 GPO                BX6    X6+X2                                                           FCCA513X      37     A     
 GPO                SA6    A2          LEA = ^[BDA] & [LXA] ! [UFA]                        FCCA513X      38     A     
 GPO                NZ     B2,FEI1                                                         FCCA513X      39     A     
 GPO                                                                                       FCCA513X      40     A     
 GPO                EQ     FEI                                                             FCCA513X      41     A     
 GPO       FXI      TITLE  FXI - FORM EXIT INFORMATION                                     GPO         2854     A     
 GPO      **        FXI - FORM EXIT INFORMATION                                            GPO         2855     A     
 GPO      *         COMPUTE REGION LIVE ENTRY BIT VECTOR.                                  GPO         2856          I
          -FCCA513X 
 GPO      *         BUILD LIST OF SUCCESSORS OF *SCR* AND THEIR LIVE ENTRY VECTORS         GPO         2857     A     
 GPO      *         FORM REGION LIVE EXIT AND MOVABLE DEF VECTORS.                         GPO         2858     A     
 GPO                                                                                       GPO         2859     A     
 GPO       FXI      ROUTINE                                                                GPO         2860     A     
 GPO                SA4    HBI+1       BN = BN[HBI(2)]   */ HEADER NODE                    GPO         2861     A     
 GPO                FBVA   X4          BVA = O.BVT + BVI[BIT(BN)]                          GPO         2862     A     
 GPO                SA2    LEA                                                             GPO         2863          I
          -FCCA513X 
 GPO                SB3    B2                                                              GPO         2864          I
          -FCCA513X 
 GPO                SB4    B2+B2                                                           GPO         2865          I
          -FCCA513X 
 GPO                SA3    X7          BDA = BVA                                           GPO         2866          I
          -FCCA513X 
 GPO                SA4    X7+B2       UFA = BVA + VL  */ UBD                              GPO         2867          I
          -FCCA513X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2947    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA5    A4+B4       LXW = BVA + 3*VL  */ LX                             GPO         2868          I
          -FCCA513X 
 GPO                BX0    -X3*X5                                                          GPO         2869          I
          -FCCA513X 
 GPO                BX6    X0+X4       LEW = ^[BDA] & [LXW] ! [UFA]                        GPO         2870          I
          -FCCA513X 
 GPO                SA6    X2                                                              GPO         2871          I
          -FCC1556X -FCCA513X 
 GPO                SA2    X2                                                              FCC1556X       6          I
          -FCCA513X 
 GPO                BX6    X6+X2       [LEA] = LEW ! [LEA] */ ACCNT FOR MOVED ST"S         FCC1556X       7          I
          -FCCA513X 
 GPO                SA6    A2                                                              FCC1556X       8          I
          -FCCA513X 
 GPO                SB2    B2-B1                                                           GPO         2872          I
          -FCCA513X 
 GPO                ZR     B2,FXI2                                                         GPO         2873          I
          -FCCA513X 
 GPO       FXI1     SA3    A3+B1                                                           GPO         2874          I
          -FCCA513X 
 GPO                SA4    A4+B1                                                           GPO         2875          I
          -FCCA513X 
 GPO                SA5    A5+B1                                                           GPO         2876          I
          -FCCA513X 
 GPO                SB2    B2-B1                                                           GPO         2877          I
          -FCCA513X 
 GPO                SA2    A2+B1                                                           FCC1556X       9          I
          -FCCA513X 
 GPO                BX0    -X3*X5                                                          GPO         2878          I
          -FCCA513X 
 GPO                BX6    X0+X4                                                           GPO         2879          I
          -FCCA513X 
 GPO                SA6    A6+B1                                                           GPO         2880          I
          -FCC1556X -FCCA513X 
 GPO                BX6    X6+X2                                                           FCC1556X      10          I
          -FCCA513X 
 GPO                SA6    A2                                                              FCC1556X      11          I
          -FCCA513X 
 GPO                NZ     B2,FXI1                                                         GPO         2881          I
          -FCCA513X 
 GPO                SB3    B0                                                              FCCA513X      42     A     
 GPO                                                                                       GPO         2882     A     
 GPO      *         INITIALIZE *MD* VECTOR AS *DEF(R)* ( MOVABLE DEFS )                    GPO         2883     A     
 GPO                                                                                       GPO         2884     A     
 GPO       FXI2     SA1    DVA                                                             GPO         2885          I
          -FCCA513X 
 GPO                SA1    DVA                                                             FCCA513X      43     A     
 GPO                SA2    MDA                                                             GPO         2886     A     
 GPO       FXI3     SA3    X1+B2       MOVE( VL , DVA , MDA )                              GPO         2887          I
          -FCCA513X 
 GPO       FXI2     SA3    X1+B3       MOVE( VL , DVA , MDA )                              FCCA513X      44     A     
 GPO                BX6    X3                                                              GPO         2888     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2948    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA6    X2+B2                                                           GPO         2889          I
          -FCCA513X 
 GPO                SB2    B2+B1                                                           GPO         2890          I
          -FCCA513X 
 GPO                LT     B2,B3,FXI3                                                      GPO         2891          I
          -FCCA513X 
 GPO                SA6    X2+B3                                                           FCCA513X      45     A     
 GPO                SB3    B3+B1                                                           FCCA513X      46     A     
 GPO                LT     B3,B2,FXI2                                                      FCCA513X      47     A     
 GPO                                                                                       GPO         2892     A     
 GPO      *         FORM *SCR* SUCCESSOR LIST. FIRST MARK THE NODES IN THE                 GPO         2893     A     
 GPO      *         *SCR* AS *SCR* IN *BTT*.                                               GPO         2894     A     
 GPO                                                                                       GPO         2895     A     
 GPO                SA1    IBA                                                             GPO         2896     A     
 GPO                SA2    A1+B1                                                           GPO         2897     A     
 GPO                MX0    1                                                               GPO         2898     A     
 GPO                SA3    O.BTT                                                           GPO         2899     A     
 GPO                IX6    X1+X2                                                           GPO         2900     A     
 GPO                SB7    X3                                                              GPO         2901     A     
 GPO                SB6    X6          IPL = IBA + NN  */ LWA+1 OF INTERVAL LIST           GPO         2902     A     
 GPO                LX0    1+E.SCRP                                                        GPO         2903     A     
 GPO                SA5    B6          IP = IPL                                            GPO         2904     A     
 GPO                                                                                       GPO         2905     A     
 GPO       FXI4     SA5    A5-B1       IP = IP - 1                                         GPO         2906     A     
 GPO                LX5    59-IM.SCRP                                                      GPO         2907     A     
 GPO                PL     X5,FXI4     IF ^SCR[IP]                                         GPO         2908     A     
 GPO                                                                                       GPO         2909     A     
 GPO                LX5    1+IM.SCRP-IM.BNP                                                GPO         2910     A     
 GPO                SA4    B7+X5                                                           GPO         2911     A     
 GPO                BX6    X0+X4       SCR[BTT(BN[IP])] = 1                                GPO         2912     A     
 GPO                LX5    IM.BNP+59-IM.HNP                                                GPO         2913     A     
 GPO                SA6    A4+                                                             GPO         2914     A     
 GPO                PL     X5,FXI4     IF ^HN[IP]                                          GPO         2915     A     
 GPO                                                                                       GPO         2916     A     
 GPO      *         RESCAN THE INTERVAL LIST AND FORM THE SUCCESSOR LIST IN *BTT*          GPO         2917     A     
 GPO                                                                                       GPO         2918     A     
 GPO                SA1    EIT                                                             GPO         2919     A     
 GPO                SA2    O.BIT                                                           GPO         2920     A     
 GPO                MX6    0                                                               GPO         2921     A     
 GPO                SA6    B7          BTT(0) = 0                                          GPO         2922     A     
 GPO                SA0    B0          NX = 0        */ N. EXIT NODES                      GPO         2923     A     
 GPO                SB5    B0          LS = 0        */ LAST SUCCESSOR                     GPO         2924     A     
 GPO                SA5    B6          IP = IPL                                            GPO         2925     A     
 GPO                LX0    E.JPP-E.SCRP                                                    GPO         2926     A     
 GPO                SB6    X1          EIB = [EIT]   */ BASE OF EDGE INDEX TABLE           GPO         2927     A     
 GPO                SB4    X2                        (B4) = [O.BIT]                        GPO         2928     A     
 GPO                                                                                       GPO         2929     A     
 GPO       FXI5     SA5    A5-B1       IP = IP - 1                                         GPO         2930     A     
 GPO                LX5    59-IM.SCRP                                                      GPO         2931     A     
 GPO                PL     X5,FXI5     IF ^SCR[IP]                                         GPO         2932     A     
 GPO                LX5    1+IM.SCRP-IM.BNP                                                GPO         2933     A     
 GPO                                                                                       GPO         2934     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2949    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA4    B6+X5       EII = EIB + BN[IP]                                  GPO         2935     A     
 GPO                LX4    -EI.SUIP                                                        GPO         2936     A     
 GPO                UX6    B3,X4       N = NS[EII]                                         GPO         2937     A     
 GPO                SA3    B6+X4       SI = EIB + SUI[EII]                                 GPO         2938     A     
 GPO                                                                                       GPO         2939     A     
 GPO      *         ADD SUCCESSORS OF NODE THAT ARE NOT *SCR* IN *BTT* TO EXIT LIS         GPO         2940     A     
 GPO                                                                                       GPO         2941     A     
 GPO       FXI6     LX3    -ET.SUCCP   J = SUCC[SI]  */ BN OF SUCCESSOR                    GPO         2942     A     
 GPO                SA2    B7+X3       B = BTT(J)                                          GPO         2943     A     
 GPO                SB3    B3-B1       N = N - 1                                           GPO         2944     A     
 GPO                LX2    59-E.SCRP                                                       GPO         2945     A     
 GPO                MI     X2,FXI8     IF SCR[B]     */ SUCC IS IN *SCR*                   GPO         2946     A     
 GPO                                                                                       GPO         2947     A     
 GPO                MX1    -E.NPREDL                                                       GPO         2948     A     
 GPO                LX2    1+E.SCRP-E.NPREDP                                               GPO         2949     A     
 GPO                BX6    -X1*X2                                                          GPO         2950     A     
 GPO                NZ     X6,FXI7     IF NPRED[B] " 0 */ NOT FIRST TIME REACHED           GPO         2951     A     
 GPO                                                                                       GPO         2952     A     
 GPO                SA4    B6+X3       EIJ = EIB + J                                       GPO         2953     A     
 GPO                LX4    -EI.NPP                                                         GPO         2954     A     
 GPO                SA0    A0+B1       NX = NX + 1                                         GPO         2955     A     
 GPO                BX7    -X1*X4                                                          GPO         2956     A     
 GPO                SX6    X5                                                              GPO         2957          I
          -FCC0985
 GPO                SA4    B7+X5                                                           FCC0985        7     A     
 GPO                SX6    X4                                                              FCC0985        8     A     
 GPO                BX2    X7+X2       NPRED[B] = NP[EIJ]  */ N.PRED OF SUCC               GPO         2958     A     
 GPO                LX6    E.PREDP-E.NPREDP                                                GPO         2959     A     
 GPO                SX7    B5                                                              GPO         2960     A     
 GPO                BX2    X6+X2       PRED[B] = BN[IP]  */ FIRST PRED TO REACH            GPO         2961          I
          -FCC0985
 GPO                BX2    X6+X2       PRED[B] = BTT(BN[IP])  */ FIRST PRED TO REACH       FCC0985        9     A     
 GPO                LX7    E.LINKP-E.NPREDP                                                GPO         2962     A     
 GPO                BX2    X7+X2       LINK[B] = LS  */ POINT THIS TO LAST                 GPO         2963     A     
 GPO                SB5    A2          LS = BTT(J)                                         GPO         2964     A     
 GPO                                                                                       GPO         2965     A     
 GPO       FXI7     SX1    B1                                                              GPO         2966     A     
 GPO                LX3    E.JPP-ET.JPP+ET.SUCCP                                           GPO         2967     A     
 GPO                IX2    X2-X1       NPRED[B] = NPRED[B] - 1                             GPO         2968     A     
 GPO                BX6    X0*X3                                                           GPO         2969     A     
 GPO                LX2    E.NPREDP                                                        GPO         2970     A     
 GPO                BX7    X6+X2       JP[B] = JP[B] ! JP[SI]                              GPO         2971     A     
 GPO                SA7    A2                                                              GPO         2972     A     
 GPO                                                                                       GPO         2973     A     
 GPO       FXI8     SA3    A3+B1       SI = SI + 1                                         GPO         2974     A     
 GPO                NZ     B3,FXI6     IF N " 0                                            GPO         2975     A     
 GPO                                                                                       GPO         2976     A     
 GPO                LX5    59-IM.HNP+IM.BNP                                                GPO         2977     A     
 GPO                PL     X5,FXI5     IF ^HN[IP]                                          GPO         2978     A     
 GPO                                                                                       GPO         2979     A     
 GPO                LX5    1+IM.HNP-IM.BIP                                                 GPO         2980     A     
 GPO                SX6    X5                                                              GPO         2981     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2950    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                LX5    IM.BIP-IM.BNP                                                   GPO         2982     A     
 GPO                SA6    B7+X5       BTT(BN[IP]) = BI[IP]  */ RESTORE HEADER ENT         GPO         2983     A     
 GPO                                                                                       GPO         2984     A     
 GPO                SX6    B5                                                              GPO         2985     A     
 GPO                SX7    A0                                                              GPO         2986     A     
 GPO                SA6    O.ENL                                                           GPO         2987     A     
 GPO                SA7    N.ENL                                                           GPO         2988     A     
 GPO                                                                                       GPO         2989     A     
 GPO      *         SCAN THE EXIT NODE LIST AND MOVE THE LIST AND THE LIVE ENTRY           GPO         2990     A     
 GPO      *         BIT VECTORS TO *RXI*.  FORMAT -                                        GPO         2991     A     
 GPO      *         0, BTT WORD,LE&DEFR,...,0                                              GPO         2992     A     
 GPO      *         COMPUTE THE REGION LIVE EXIT BIT VECTOR AND ADJUST *MD*.               GPO         2993     A     
 GPO                                                                                       GPO         2994     A     
 GPO                SA5    BVL                                                             GPO         2995     A     
 GPO                SX3    X5+2                                                            GPO         2996     A     
 GPO                IX2    X7*X3                                                           GPO         2997     A     
 GPO                ALLOC  RXI,X2+2    ALLOC( RXI , NX*(BVL+2)+2 )                         GPO         2998     A     
 GPO                MX7    0                                                               GPO         2999     A     
 GPO                SA7    X2          RI = [O.RXI];  [RI] = 0                             GPO         3000     A     
 GPO                SA1    O.BIT                                                           GPO         3001     A     
 GPO                SA2    LXA                                                             GPO         3002     A     
 GPO                SA3    MDA                                                             GPO         3003     A     
 GPO                SA4    O.ENL                                                           GPO         3004     A     
 GPO                SB4    X5+B1       VL = BVL + 1                                        GPO         3005     A     
 GPO                SB5    B4+B4                                                           GPO         3006     A     
 GPO                SB6    X1                                                              GPO         3007     A     
 GPO                SB7    X2                                                              GPO         3008     A     
 GPO                SA0    X3                                                              GPO         3009     A     
 GPO                SA5    X4          XI = [O.ENL];  XW = [XI]                            GPO         3010     A     
 GPO                ZR     X4,FXI15    IF O.ENL = 0  */ LOOP WITHOUT EXITS                 GPO         3011     A     
 GPO                                                                                       GPO         3012     A     
 GPO       FXI10    MX4    -E.NPREDL                                                       GPO         3013          I
          -FCC0392
 GPO                SX0    B1          PSP = 1       */ POST STORE POSSIBLE                GPO         3014          I
          -FCC0392
 GPO                LX4    E.NPREDP                                                        GPO         3015          I
          -FCC0392
 GPO                BX6    -X4*X5                                                          GPO         3016          I
          -FCC0392
 GPO                ZR     X6,FXI11    IF NPRED[XW] = 0  */ ALL PRED IN *SCR*              GPO         3017          I
          -FCC0392
 GPO                BX7    X5                                                              GPO         3018          I
          -FCC0392
 GPO      *         CHECK SUCCESSOR NODE, SEE IF POST STORES TO IT ARE POSSIBLE            FCC0392       89     A     
 GPO                                                                                       FCC0392       90     A     
 GPO       FXI9     MX1    -E.BIL                                                          FCC0392       91     A     
 GPO                SX0    B1          PSP = 1       */ POST STORES POSSIBLE               FCC0392       92     A     
 GPO                BX6    -X1*X5      I = BI[XW]                                          FCC0392       93     A     
 GPO                SB2    X6                                                              FCC0392       94     A     
 GPO                SA6    A5          [XI] = I      */ RESTORE *BTT* ENTRY                FCC0392       95     A     
 GPO                BX7    X5                                                              FCC0392       96     A     
 GPO                MX4    -E.NPREDL                                                       FCC0392       97     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2951    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                LX7    -E.NPREDP                                                       FCC0392       98     A     
 GPO                BX7    -X4*X7                                                          FCC0392       99     A     
 GPO                ZR     X7,FXI11    IF NPRED[XW] = 0                                    FCC0392      100     A     
 GPO                SA1    B6+B2                                                           FCC0392      101     A     
 GPO                LX1    59-BI.HNP                                                       FCC0392      102     A     
 GPO                PL     X1,FXI10    IF ^HN[BIT(I)]                                      FCC0392      103     A     
 GPO                                                                                       FCC0392      104     A     
 GPO      *         SUCCESSOR NODE IS THE HEADER NODE OF ANOTHER LOOP, SEARCH *HNT         FCC0392      105     A     
 GPO      *         FOR I, AND SUBSTITUTE THE *BI* OF THE *HB*.                            FCC0392      106     A     
 GPO                                                                                       FCC0392      107     A     
 GPO                SA2    L.HNT                                                           FCC0392      108     A     
 GPO                SA1    O.HNT                                                           FCC0392      109     A     
 GPO                SA6    X2          [L.HNT] = I   */ SEARCH TERMINATOR                  FCC0392      110     A     
 GPO                SA1    X1          HI = [O.HNT]                                        FCC0392      111     A     
 GPO                                                                                       FCC0392      112     A     
 GPO       FXI9A    BX2    X1          HIL = [HI]                                          FCC0392      113     A     
 GPO                SB3    X1                                                              FCC0392      114     A     
 GPO                SA1    A1+1        HI = HI + 1                                         FCC0392      115     A     
 GPO                NE     B2,B3,FXI9A IF HNI[HIL] " I                                     FCC0392      116     A     
 GPO                                                                                       FCC0392      117     A     
 GPO                LX2    -H.HBIP+1                                                       FCC0392      118     A     
 GPO                SB2    X2          I = 2*HBI[HIL]  */ SUBSTITUTE *HB*                  FCC0392      119     A     
 GPO                MX4    -E.BIL                                                          FCC0392      120     A     
 GPO                SX6    X2                                                              FCC0392      121     A     
 GPO                BX5    X4*X5                                                           FCC0392      122     A     
 GPO                BX5    X5+X6       BI[XW] = I                                          FCC0392      123     A     
 GPO                LX2    H.HBIP-1-H.NIPP                                                 FCC0392      124     A     
 GPO                SX2    X2                                                              FCC0392      125     A     
 GPO                PRINT FXI,(* HEADER,HB,N.PRED,NIP =*4Z7),(B3,B2,X7,X2)                 FCC0392      126     A     
 GPO                IX7    X7-X2                                                           FCC0392      127     A     
 GPO                ZR     X7,FXI11    IF PRED[XW] = NIP[HIL]                              FCC0392      128          I
          -FCC0985
 GPO                ZR     X7,FXI11    IF NPRED[XW] = NIP[HIL]                             FCC0985       10     A     
 GPO                                                                                       FCC0392      129     A     
 GPO       FXI10    BX7    X5                                                              FCC0392      130     A     
 GPO                SX0    B0          PSP = 0                                             GPO         3019     A     
 GPO                LX7    59-E.JPP                                                        GPO         3020     A     
 GPO                MI     X7,FXI11    IF JP[XW]     */ REACHED BY A JUMP                  GPO         3021     A     
 GPO                SA1    N.LJ                                                            GPO         3022          I
          -FCC0985
 GPO                SX2    X1-1                                                            GPO         3023          I
          -FCC0985
 GPO                NZ     X2,FXI11    IF N.LJ " 1                                         GPO         3024          I
          -FCC0985
 GPO                                                                                       GPO         3025     A     
 GPO      *         SUCC REACHED BY THE FALL THROUGH AND HAS AN ACTIVE INITIAL             GPO         3026     A     
 GPO      *         LABEL, SETUP TO ISSUE POST STORES AFTER THE LOOP BACK JUMP.            GPO         3027     A     
 GPO                                                                                       GPO         3028     A     
 GPO                SA1    O.RXI                                                           GPO         3029          I
          -FCC0985
 GPO                SA1    EPSI                                                            FCC0985       11     A     
 GPO       .SCR     BIT    E.SCRP-E.ALLPP                                                  GPO         3030     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2952    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SX0    .SCR        PSP = 4       */ POST STORES POSSIBLE               GPO         3031     A     
 GPO                SX2    A7+2                                                            GPO         3032          I
          -FCC0985
 GPO                IX6    X2-X1       EPSI = RI+2 - O.RXI  */ INDEX TO BIT VECTOR         GPO         3033          I
          -FCC0985
 GPO                SA6    EPSI                                                            GPO         3034          I
          -FCC0985
 GPO                SX6    X1+B1       EPSI = EPSI + 1                                     FCC0985       12     A     
 GPO                SA6    A1                                                              FCC0985       13     A     
 GPO                                                                                       GPO         3035     A     
 GPO       FXI11    LX0    E.ALLPP                                                         GPO         3036     A     
 GPO                BX7    X0+X5       ALLP[XW] = PSP & 1                                  GPO         3037     A     
 GPO                MX1    -E.BIL                                                          GPO         3038          I
          -FCC0392
 GPO                SA7    A7+B1       RI = RI + 1;  [RI] = XW                             GPO         3039          I
          -FCC0392
 GPO                BX6    -X1*X5      I = BI[XW]                                          GPO         3040          I
          -FCC0392
 GPO                SA6    A5          [XI] = I      */ RESTORE TABLE ENTRY                GPO         3041          I
          -FCC0392
 GPO                SA7    A7+B1       RI = RI + 1;  [RI] = XW                             FCC0392      131     A     
 GPO                SA3    B6+B2                                                           FCC0392      132     A     
 GPO                SA2    O.BVT                                                           GPO         3042     A     
 GPO                LX5    -E.LINKP                                                        GPO         3043     A     
 GPO                SA3    B6+X6                                                           GPO         3044          I
          -FCC0392
 GPO                LX3    -BI.BVIP                                                        GPO         3045     A     
 GPO                SB2    X2                                                              GPO         3046     A     
 GPO                SB3    B0          J = 0                                               GPO         3047     A     
 GPO                SB2    B2+X3       BVA = O.BVT + BVI[BIT(I)]                           GPO         3048     A     
 GPO                                                                                       GPO         3049     A     
 GPO       FXI12    SA1    B2          DV = BVA                                            GPO         3050     A     
 GPO                SA2    B2+B4       UFA = BVA + VL                                      GPO         3051     A     
 GPO                SA3    A2+B5       BXW = [UFA+2*VL]  */ BLOCK LIVE EXIT                GPO         3052     A     
 GPO                SA4    B7+B3       RLX = LXA + J                                       GPO         3053     A     
 GPO                BX6    -X1*X3                                                          GPO         3054     A     
 GPO                BX7    X6+X2       LEW = ^DEF&BXW!UFW                                  GPO         3055     A     
 GPO                SA7    A7+B1       RI = RI + 1;  [RI] = LEW                            GPO         3056     A     
 GPO                BX6    X4+X7       RLX = LEW ! RLX                                     GPO         3057     A     
 GPO                SA6    A4                                                              GPO         3058     A     
 GPO                NZ     X0,FXI13    IF PSP " 0                                          GPO         3059     A     
 GPO                SA2    A0+B3       MDW = [MDA+J]                                       GPO         3060     A     
 GPO                BX6    -X7*X2      MDW = MDW & ^LEW                                    GPO         3061     A     
 GPO                SA6    A2                                                              GPO         3062     A     
 GPO                                                                                       GPO         3063     A     
 GPO       FXI13    SB3    B3+B1       J = J + 1                                           GPO         3064     A     
 GPO                SB2    B2+B1       BVA = BVA + 1                                       GPO         3065     A     
 GPO                LT     B3,B4,FXI12 IF J < VL                                           GPO         3066     A     
 GPO                                                                                       GPO         3067     A     
 GPO                SX4    X5          XI = LINK[XW]                                       GPO         3068     A     
 GPO                SA5    X5          XW = [XI]                                           GPO         3069     A     
 GPO                NZ     X4,FXI10    IF XI " 0     */ NOT END OF EXIT LIST               GPO         3070          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2953    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
          -FCC0392
 GPO                NZ     X4,FXI9     IF XI " 0     */ NOT END OF LIST                    FCC0392      133     A     
 GPO                                                                                       GPO         3071     A     
 GPO       FXI15    MX7    0                                                               GPO         3072     A     
 GPO                SA7    A7+B1       RI = RI + 1;  [RI] = 0                              GPO         3073     A     
 GPO                                                                                       GPO         3074     A     
 GPO                IF     DEF,/DEBUG/FXI,2                                                GPO         3075     A     
 GPO                DCALL  PRNTRXI,([O.RXI])                                               GPO         3076     A     
 GPO                PRNTABV  FXI,(LEA,MDA)                                                 GPO         3077     A     
 GPO                EQ     FXI                                                             GPO         3078     A     
 GPO       SHB      TITLE  SHB - SQUEEZE HOLDING BLOCK                                     GPO         3079     A     
 GPO      **        SHB - SQUEEZE HOLDING BLOCK TO REMOVE REDUNDANT INSTRUCTIONS.          GPO         3080     A     
 GPO      *                                                                                GPO         3081     A     
 GPO      *         ENTRY  (X6) = CT = 0 FOR FIRST SQZ, 1 FOR VAR INCR SQZ                 GPO         3082     A     
 GPO                                                                                       GPO         3083     A     
 GPO       SHB      ROUTINE                                                                GPO         3084     A     
 GPO                SX7    0           BSI = 0                                             GPO         3085     A     
 GPO                SA7    BSI                                                             GPO         3086     A     
 GPO                ZR     X6,SHB1     IF CT = 0                                           GPO         3087     A     
 GPO                                                                                       GPO         3088     A     
 GPO      *         SETUP FOR SQUEEZE OF VARIABLE INCREMENT CODE                           GPO         3089     A     
 GPO                                                                                       GPO         3090     A     
 GPO                SA7    L.TXT       L.TXT = 0                                           GPO         3091     A     
 GPO                CALL   RTB         GET HOLDING BLOCK POINTERS                          GPO         3092     A     
 GPO                SA5    L.HB                                                            GPO         3093     A     
 GPO                SA4    L.MOD                                                           GPO         3094     A     
 GPO                IX2    X4+X5                                                           GPO         3095     A     
 GPO                ALLOC  TXT,X2-4    ALLOC( TXT , L.HB + L.MOD-4 )                       GPO         3096     A     
 GPO                IX0    X2+X5       FM = O.TXT + L.HB                                   GPO         3097     A     
 GPO                SX3    X2                                                              GPO         3098     A     
 GPO                SA2    O.SEQ                                                           GPO         3099     A     
 GPO                MOVE   X5,X2,X3    MOVE( L.HB , O.SEQ , O.TXT )                        GPO         3100     A     
 GPO                SA1    L.MOD                                                           GPO         3101     A     
 GPO                SA2    O.MOD                                                           GPO         3102     A     
 GPO                MOVE   X1-4,X2+4,X0      MOVE( L.MOD-4 , O.MOD+4 , FM )                GPO         3103     A     
 GPO                SX6    4                                                               GPO         3104     A     
 GPO                SA6    L.MOD       L.MOD = 4                                           GPO         3105     A     
 GPO                                                                                       GPO         3106     A     
 GPO      *         TERMINATE THE HB WITH AN *EOQ* AND CALL *SQZ* TO REDUCE IT             GPO         3107     A     
 GPO                                                                                       GPO         3108     A     
 GPO       SHB1     ALLOC  TXT,4                                                           GPO         3109     A     
 GPO                SB7    X2          TB = O.TXT; TI = OLD(L.TXT)                         GPO         3110     A     
 GPO                MX6    0                                                               GPO         3111     A     
 GPO                SB2    B0                                                              GPO         3112     A     
 GPO                MX7    0                                                               GPO         3113     A     
 GPO                RJ     SRI         SRI( EOQ  0,0 )                                     GPO         3114     A     
 GPO                SX6    4                                                               GPO         3115     A     
 GPO                SX7    B6-8                                                            GPO         3116     A     
 GPO                ZR     X7,SHB2     IF L.TXT = 8  */ NOTHING MOVED TO HB                GPO         3117     A     
 GPO                SX6    1                                                               GPO         3118     A     
 GPO                CALL   SQZB        SQUEEZE THE BLOCK                                   GPO         3119     A     
 GPO                SA1    L.TXT                                                           GPO         3120     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2954    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SX6    X1-4                                                            GPO         3121     A     
 GPO                                                                                       GPO         3122     A     
 GPO       SHB2     SA2    O.TXT                                                           GPO         3123     A     
 GPO                SX7    X6+4                                                            GPO         3124     A     
 GPO                SA6    L.HB        L.HB = L.TXT - 4                                    GPO         3125     A     
 GPO                LX7    R2.TXTLP    TXTL[TXT+1] = L.TXT                                 GPO         3126     A     
 GPO                SA7    X2+B1                                                           GPO         3127     A     
 GPO                CALL   WMB         WRITE HOLDING BLOCK TO *BLK*                        GPO         3128     A     
 GPO                                                                                       GPO         3129     A     
 GPO                TRACE  SHB,RLIST                                                       GPO         3130     A     
 GPO                EQ     SHB                                                             GPO         3131     A     
 GPO       MII      TITLE  MII - MARK INVARIANT INSTRUCTIONS                               GPO         3132     A     
 GPO      **        MII - MARK INVARIANT INSTRUCTIONS, COLLECT INFORMATION FOR             GPO         3133     A     
 GPO      *                STRENGTH REDUCTION.                                             GPO         3134     A     
 GPO      *                                                                                GPO         3135     A     
 GPO      *         EXIT   [TBA+3] = 12/P(NI),12/0,18/STC,18/ICC                           GPO         3136     A     
 GPO      *                                                                                GPO         3137     A     
 GPO      *         REGISTER ASSIGNMENTS FOR MAIN LOOP OF *MII*                            GPO         3138     A     
 GPO      *                                                                                GPO         3139     A     
 GPO      *                (A0) = FAC = FUNCTION ARGUMENT CHAIN                            GPO         3140     A     
 GPO      *                (A5) = R1 , OF CURRENT INSTRUCTION                              GPO         3141     A     
 GPO      *                (A7) = LII , ADDRESS OF LAST INVARIANT INSTRUCTION              GPO         3142     A     
 GPO      *                (B3) = 3                                                        GPO         3143     A     
 GPO       SC       MICRO  1,,/B4/     STORE CHAIN ( POSSIBLE RECURSIVE DEFS )             GPO         3144     A     
 GPO       NI       MICRO  1,,/B5/     N.INCREMENT STORES ( *RD* )                         GPO         3145     A     
 GPO       UB       MICRO  1,,/B6/     O.UDT                                               GPO         3146     A     
 GPO                                                                                       GPO         3147     A     
 GPO                QUAL   MII                                                             GPO         3148     A     
 GPO                                                                                       GPO         3149     A     
 GPO       MII      ROUTINE                                                                GPO         3150     A     
 GPO                BX6    X4                                                              GPO         3151     A     
 GPO                LX6    59-IM.APP                                                       GPO         3152     A     
 GPO                SA6    AN          AN = AP[BSW]  */ SET ARTICULATION NODE INDI         GPO         3153     A     
 GPO                                                                                       GPO         3154     A     
 GPO                LX4    -IM.BIP                                                         GPO         3155     A     
 GPO                FBVA   X4          BVA = O.BVT + BVI[BIT(BN)]                          GPO         3156     A     
 GPO                SX7    X7+B2                                                           GPO         3157     A     
 GPO                SA7    UBD         UBD = BVA + VL                                      GPO         3158     A     
 GPO                SB3    3                                                               GPO         3159     A     
 GPO                SA4    O.UDT                                                           GPO         3160     A     
 GPO                S"TB"  X5+B3       TB = TBA + 3  */ LINK WORD OF BASE                  GPO         3161     A     
 GPO                SA0    B0          FAC = 0       */ FUNCTION ARG CHAIN                 GPO         3162     A     
 GPO                S"UB"  X4          UB = [O.UDT]                                        GPO         3163     A     
 GPO                SA5    X5          R1 = TBA                                            GPO         3164     A     
 GPO                MX7    IM.APLNL                                                        GPO         3165     A     
 GPO                BX3    X7*X6                                                           GPO         3166     A     
 GPO                LX3    IM.APLNL+R1.H2P                                                 GPO         3167     A     
 GPO                BX7    X3+X5       H2[R1] = APLN[BSW]  */ SAVE APLN FOR *GRA*          GPO         3168     A     
 GPO                SA7    A5                                                              GPO         3169     A     
 GPO                MX6    0                                                               GPO         3170     A     
 GPO                S"SC"  B0          SC = 0        */ STORE CHAIN                        GPO         3171     A     
 GPO                S"NI"  B0          NI = 0        */ N. RECURSIVE DEFINITIONS           GPO         3172     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2955    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA1    "TB"+B1                                                         GPO         3173     A     
 GPO                MX7    1                                                               GPO         3174     A     
 GPO                SA6    IJP         IJP = 0       */ INVARIANT JUMP FLAG                GPO         3175     A     
 GPO                SA6    A6+B1       UIC = 0       */ UNSAFE INV CODE FLAG               GPO         3176     A     
 GPO                LX7    1+I.INVP                                                        GPO         3177     A     
 GPO                SA7    "TB"        LII = TB;  [LII] = *INV */ LAST INV INST            GPO         3178     A     
 GPO                                                                                       GPO         3179     A     
 GPO                UX6    B2,X1                                                           GPO         3180     A     
 GPO                SX7    B2-OC.LAB                                                       GPO         3181     A     
 GPO                NZ     X7,MII2     IF OC[R1+4] " OC.LAB                                GPO         3182     A     
 GPO                                                                                       GPO         3183     A     
 GPO                SA5    A1          R1 = R1 + 4   */ SKIP INITIAL LABEL                 GPO         3184     A     
 GPO                EQ     MII2                                                            GPO         3185     A     
 GPO       MII      SPACE  2,14                                                            GPO         3186     A     
 GPO      *         OPERANDS *INV*, MARK INSTRUCTION AS *INV*                              GPO         3187     A     
 GPO                                                                                       GPO         3188     A     
 GPO       MII1     SA2    A5+2        DI = R1 + 2                                         GPO         3189     A     
 GPO                SA1    AN                                                              GPO         3190     A     
 GPO                LX2    59-D.USIP                                                       GPO         3191     A     
 GPO                BX3    -X2+X1                                                          GPO         3192     A     
 GPO                MI     X3,MII1A    IF AN ! ^USI[DI]  */ SAFE TO MOVE                   GPO         3193     A     
 GPO                SX6    1                                                               GPO         3194     A     
 GPO                SA6    UIC         UIC = 1       */ INDICATE UNSAFE INV CODE           GPO         3195     A     
 GPO                EQ     MII2                                                            GPO         3196     A     
 GPO                                                                                       GPO         3197     A     
 GPO       MII1A    SX6    A7-"TB"     IIC[R1+3] = LII - TB                                GPO         3198     A     
 GPO                MX4    1                                                               GPO         3199     A     
 GPO                LX6    I.IICP                                                          GPO         3200     A     
 GPO                LX4    1+I.INVP    INV[R1+3] = 1                                       GPO         3201     A     
 GPO                BX7    X4+X6                                                           GPO         3202     A     
 GPO                SA7    A5+B3       LII = R1 + 3                                        GPO         3203     A     
 GPO                                                                                       GPO         3204     A     
 GPO      *         GET NEXT INSTRUCTION AND JUMP TO PROCESSOR                             GPO         3205     A     
 GPO                                                                                       GPO         3206     A     
 GPO                PROCESS (DAR,DEF,NOP)                                                  GPO         3207     A     
 GPO       MII2     SA5    A5+4        R1 = R1 + 4                                         GPO         3208     A     
 GPO                UX6    B2,X5                                                           GPO         3209     A     
 GPO                JP     MII.JT+B2   JUMP( MII.JT( OC[R1] )                              GPO         3210     A     
 GPO       TYII     SPACE  2                                                               GPO         3211     A     
 GPO       TYII     EQU    MII1A                     */ TYPE II ARE *INV*                  GPO         3212     A     
 GPO                                                                                       GPO         3213     A     
 GPO       TYIV     EQU    MII2                      */ TYPE IV ARE NOT INV                GPO         3214     A     
 GPO       LD       SPACE  3,14                                                            GPO         3215     A     
 GPO      *         LD - CHECK *UDI* TO SEE IF *INV* IN REGION                             GPO         3216     A     
 GPO                                                                                       GPO         3217     A     
 GPO                PROCESS (LD,ILD)                                                       GPO         3218          I
          -FCC0885
 GPO                PROCESS ILD                                                            FCC0885        6     A     
 GPO                SB2    OC.LD                                                           FCC0885        7          I
          -FCC0885AX
 GPO                PX6    B2,X5       OC[R1] = OC.LD  */ INHIBIT ST/ILD SQZ               FCC0885        8          I
          -FCC0885AX
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2956    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SB2    OC.LD       OC = OC.LD                                          FCC0885AX      5     A     
 GPO                SA4    IT.                                                             FCC0885AX      6     A     
 GPO                SA3    A5+B1                                                           FCC0885AX      7     A     
 GPO                BX6    X3-X4                                                           FCC0885AX      8     A     
 GPO                SX7    X6                                                              FCC0885AX      9     A     
 GPO                NZ     X7,ILD1     IF IH[R2] " IT.                                     FCC0885AX     10     A     
 GPO                SB2    OC.TLD                                                          FCC0885AX     11     A     
 GPO                                                                                       FCC0885AX     12     A     
 GPO       ILD1     PX6    B2,X5       OC[R1] = OC   */ INHIBIT ST/ILD SQZ                 FCC0885AX     13     A     
 GPO                SA6    A5                                                              FCC0885        9     A     
 GPO                                                                                       FCC0885       10     A     
 GPO                PROCESS LD                                                             FCC0885       11          I
          -FCCA506X 
 GPO                PROCESS (LD,TLD)                                                       FCCA506X       4     A     
 GPO                SA4    A5+B1       R2 = R1 + 1                                         GPO         3219     A     
 GPO                LX5    -R1.INP                                                         GPO         3220     A     
 GPO                SA3    "UB"+X5     UI = UB + IN[R1]                                    GPO         3221     A     
 GPO                LX4    -IH.RFP                                                         GPO         3222     A     
 GPO                BX7    "RN"X4                                                          GPO         3223     A     
 GPO                SA2    "TB"+X7     LF = TB + RF[R2]                                    GPO         3224          I
          -FCC1504X 
 GPO                NZ     X7,LD1      IF RF[R2] " 0                                       FCC1504X      10     A     
 GPO                SA2    A4+B1       DI = R2 + 1                                         FCC1504X      11     A     
 GPO                SX6    B1                                                              FCC1504X      12     A     
 GPO                LX2    -D.RFP                                                          FCC1504X      13     A     
 GPO                BX6    X6*X2                                                           FCC1504X      14     A     
 GPO                LX6    UD.RFP                                                          FCC1504X      15     A     
 GPO                BX6    X6+X3       RF[UI] = RF[UI] ! RF[DI]                            FCC1504X      16     A     
 GPO                SA6    A3                                                              FCC1504X      17     A     
 GPO       LD1      SA2    "TB"+X7     LF = TB + RF[R2]                                    FCC1504X      18     A     
 GPO                LX3    59-UD.DEFRP                                                     GPO         3225     A     
 GPO                LX2    59-I.INVP                                                       GPO         3226     A     
 GPO                BX6    -X3*X2                                                          GPO         3227     A     
 GPO                PL     X6,MII2     IF ^( ^DEFR[UI] & INV[LF] )                         GPO         3228     A     
 GPO                LX3    UD.DEFRP-UD.ISTP                                                FCCA487        7     A     
 GPO                MI     X3,MII2     IF IST[UI]    */ INTERFERING STORE                  FCCA487        8     A     
 GPO                SA3    AN                                                              FCC1584X       5     A     
 GPO                MI     X3,MII1A    IF AN < 0     */ SAFE TO MOVE                       FCC1584X       6     A     
 GPO                ZR     X7,MII1A    IF RF[R2] = 0 */ NO SUBSCRIPT                       FCC1584X       7     A     
 GPO                SA3    =XUOFLAG                                                        FCC2277        5     A     
 GPO                ZR     X3,MII2     IF UO = 0   */ DONT MOVE A(I)                       FCC2277        6     A     
 GPO                SA3    A2-B3       R1F = LF - 3                                        FCC1584X       8     A     
 GPO                UX7    B2,X3                                                           FCC1584X       9     A     
 GPO                SX6    B2-OC.LD                                                        FCC1584X      10     A     
 GPO                NZ     X6,MII1A    IF OC[R1F] " OC.LD                                  FCC1584X      11     A     
 GPO                SA2    A3+B1                                                           FCC1584X      12     A     
 GPO                LX2    -IH.RFP                                                         FCC1584X      13     A     
 GPO                BX7    "RN"X2                                                          FCC1584X      14     A     
 GPO                NZ     X7,MII2     IF RF[R2F] " 0  */ DONT MOVE A(B(I))                FCC1584X      15     A     
 GPO                EQ     MII1                                                            GPO         3229     A     
 GPO       TYI      SPACE  3,14                                                            GPO         3230     A     
 GPO      *         TYPE I , INV(I) = INV(J) & INV(K)                                      GPO         3231     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2957    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       GPO         3232     A     
 GPO       TYI      LX5    -R1.RJP                                                         GPO         3233     A     
 GPO                BX6    "RN"X5                                                          GPO         3234     A     
 GPO                LX5    R1.RJP-R1.RKP                                                   GPO         3235     A     
 GPO                SA4    "TB"+X6     LJ = TB + RJ[R1]                                    GPO         3236     A     
 GPO                BX7    "RN"X5                                                          GPO         3237     A     
 GPO                SA3    "TB"+X7     LK = TB + RK[R1]                                    GPO         3238     A     
 GPO                BX6    X3*X4                                                           GPO         3239     A     
 GPO                LX6    59-I.INVP                                                       GPO         3240     A     
 GPO                MI     X6,MII1     IF INV[LJ] & INV[LK]                                GPO         3241     A     
 GPO                EQ     MII2                                                            GPO         3242     A     
 GPO                                                                                       GPO         3243     A     
 GPO      *         TYPE 1 - 2 RESULTS                                                     GPO         3244     A     
 GPO                                                                                       GPO         3245     A     
 GPO                PROCESS (NR,UP,RNZ)                                                    GPO         3246     A     
 GPO                LX5    -R1.RKP                                                         GPO         3247     A     
 GPO                BX6    "RN"X5                                                          GPO         3248     A     
 GPO                SA4    "TB"+X6     LK = TB + RK[R1]                                    GPO         3249     A     
 GPO                LX4    59-I.INVP                                                       GPO         3250     A     
 GPO                MI     X4,MII1     IF INV[LK]                                          GPO         3251     A     
 GPO                EQ     MII2                                                            GPO         3252     A     
 GPO                                                                                       GPO         3253     A     
 GPO      *         CONSTANT SHIFTS                                                        GPO         3254     A     
 GPO                                                                                       GPO         3255     A     
 GPO                PROCESS (KLS,KRS)                                                      GPO         3256     A     
 GPO                SA4    A5+B1       R2 = R1 + 1                                         GPO         3257     A     
 GPO                LX4    -IH.RFP                                                         GPO         3258     A     
 GPO                SA3    "TB"+X4     LF = TB + RF[R2]                                    GPO         3259     A     
 GPO                LX3    59-I.INVP                                                       GPO         3260     A     
 GPO                MI     X3,MII1     IF INV[LF]                                          GPO         3261     A     
 GPO                EQ     MII2                                                            GPO         3262     A     
 GPO       IM       SPACE  2,14                                                            FCC0238AX      6     A     
 GPO      **        IM - MAY BE UNSAFE IF CONDITIONALLY EXECUTED                           FCC0238AX      7     A     
 GPO                                                                                       FCC0238AX      8     A     
 GPO                PROCESS IM                                                             FCC0238AX      9     A     
 GPO                LX5    -R1.RJP                                                         FCC0238AX     10     A     
 GPO                BX6    "RN"X5                                                          FCC0238AX     11     A     
 GPO                LX5    R1.RJP-R1.RKP                                                   FCC0238AX     12     A     
 GPO                SA4    "TB"+X6     LJ = TB + RJ[R1]                                    FCC0238AX     13     A     
 GPO                BX7    "RN"X5                                                          FCC0238AX     14     A     
 GPO                SA3    "TB"+X7     LK = TB + RK[R1]                                    FCC0238AX     15     A     
 GPO                BX6    X3*X4                                                           FCC0238AX     16     A     
 GPO                LX6    59-I.INVP                                                       FCC0238AX     17     A     
 GPO                PL     X6,MII2     IF ^(INV[LJ] & INV[LK])                             FCC0238AX     18     A     
 GPO                SA2    AN                                                              FCC0238AX     19     A     
 GPO                MI     X2,MII1A    IF AN < 0     */ UNCONDITIONALLY EXECUTED           FCC0238AX     20     A     
 GPO                                                                                       FCC0238AX     21     A     
 GPO      *         INV AND CONDITIONALLY EXECUTED, MARK AS *USI* SO *SQZ* WILL            FCC0238AX     22     A     
 GPO      *         ADD A UNPACK OF VARIABLE OPERANDS PRIOR TO THE MULTIPLY.               FCC0238AX     23     A     
 GPO      *         NOTE *LD* IS UNSAFE IF IT IS A PROGRAMMER VAR, NOT A VD.               FCC0238AX     24     A     
 GPO                                                                                       FCC0238AX     25     A     
 GPO                SA2    A4-B1       DJ = LJ - 1                                         FCC0238AX     26     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2958    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                CALL   CMO                                                             FCC0238AX     27     A     
 GPO                SA2    A3-B1       DK = LK - 1                                         FCC0238AX     28     A     
 GPO                ZR     X6,IM1      IF CMO(DJ) = 0  */ J OP IS SAFE                     FCC0238AX     29     A     
 GPO                CALL   CMO                                                             FCC0238AX     30     A     
 GPO                ZR     X6,IM2      IF CMO(DK) = 0  */ K OP IS SAFE                     FCC0238AX     31     A     
 GPO                EQ     MII2                                                            FCC0238AX     32     A     
 GPO                                                                                       FCC0238AX     33     A     
 GPO       IM1      CALL   CMO                                                             FCC0238AX     34     A     
 GPO                ZR     X6,MII1A    IF CMO(DK) = 0  */ K OP IS SAFE                     FCC0238AX     35     A     
 GPO                                                                                       FCC0238AX     36     A     
 GPO       IM2      SA4    A5+2        DI = R1 + 2                                         FCC0238AX     37     A     
 GPO                SX3    B1                                                              FCC0238AX     38     A     
 GPO                LX3    D.USIP                                                          FCC0238AX     39     A     
 GPO                BX6    X3+X4       USI[DI] = 1   */ MARK AS UNSAFE                     FCC0238AX     40     A     
 GPO                SA6    A4                                                              FCC0238AX     41     A     
 GPO                EQ     MII1A                                                           FCC0238AX     42     A     
 GPO       ADDS     SPACE  3,14                                                            GPO         3263     A     
 GPO      *         STT , IA, IS - CHECK FOR =(I+INV)                                      GPO         3264     A     
 GPO                                                                                       GPO         3265     A     
 GPO                PROCESS STT                                                            GPO         3266     A     
 GPO                SA3    A5+B1       R2 = R1 + 1                                         GPO         3267     A     
 GPO                LX3    -IH.IHP                                                         GPO         3268     A     
 GPO                SB2    X3                                                              GPO         3269     A     
 GPO                LX3    IH.IHP-IH.RFP                                                   GPO         3270     A     
 GPO                SA4    "TB"+X3     LJ = TB + RF[R2]                                    GPO         3271     A     
 GPO                LX4    59-I.INVP                                                       GPO         3272     A     
 GPO                MI     X4,MII1     IF INV[LJ]                                          GPO         3273     A     
 GPO                                                                                       GPO         3274     A     
 GPO                SA1    A4-3        R1P = LJ - 3                                        GPO         3275     A     
 GPO                ZR     B2,IA2      IF IH[R2] = 0                                       GPO         3276     A     
 GPO                                                                                       GPO         3277     A     
 GPO                EQ     MII2                                                            GPO         3278     A     
 GPO       ADDS     EJECT                                                                  GPO         3279     A     
 GPO                PROCESS (IA,IS)                                                        GPO         3280     A     
 GPO                LX5    -R1.RJP                                                         GPO         3281     A     
 GPO                BX6    "RN"X5                                                          GPO         3282     A     
 GPO                LX5    R1.RJP-R1.RKP                                                   GPO         3283     A     
 GPO                SA4    "TB"+X6     LJ = TB + RJ[R1]                                    GPO         3284     A     
 GPO                BX7    "RN"X5                                                          GPO         3285     A     
 GPO                SA3    "TB"+X7     LK = TB + RK[R1]                                    GPO         3286     A     
 GPO                BX6    X3*X4                                                           GPO         3287     A     
 GPO                LX6    59-I.INVP                                                       GPO         3288     A     
 GPO                BX7    X3+X4                                                           GPO         3289     A     
 GPO                MI     X6,MII1     IF INV[LJ] & INV[LK]                                GPO         3290          I
          -FCC0716
 GPO                MI     X6,MII1A    IF INV[LJ] & INV[LK]                                FCC0716        9     A     
 GPO                LX7    59-I.INVP                                                       GPO         3291     A     
 GPO                PL     X7,MII2     IF ^( INV[LJ] ! INV[LK] )                           GPO         3292     A     
 GPO                                                                                       GPO         3293     A     
 GPO                SX7    A4-B3       R1P = LJ - 3                                        GPO         3294     A     
 GPO                SA2    A3-B1       DP = LK - 1                                         GPO         3295     A     
 GPO                LX4    59-I.INVP                                                       GPO         3296     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2959    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                PL     X4,IA1      IF ^INV[LJ]                                         GPO         3297     A     
 GPO                SB2    B2-OC.IS                                                        GPO         3298     A     
 GPO                ZR     B2,MII2     IF OC[R1] = OC.IS  */ INV - I CASE                  GPO         3299     A     
 GPO                SX7    A3-B3       R1P = LK - 3                                        GPO         3300     A     
 GPO                SA2    A4-B1       DP = LJ - 1                                         GPO         3301     A     
 GPO                                                                                       GPO         3302     A     
 GPO       IA1      LX2    59-D.ZPP                                                        GPO         3303     A     
 GPO                SA1    X7                                                              GPO         3304     A     
 GPO                PL     X2,MII2     IF ^ZP[DP]    */ INV OP IS ^ZP                      GPO         3305     A     
 GPO                                                                                       GPO         3306     A     
 GPO      *         ONE OPERATION IS INV, SEE IF THE OTHER IS A *LD* OF A *RD* VAR         GPO         3307     A     
 GPO                                                                                       GPO         3308     A     
 GPO       IA2      UX7    B2,X1                                                           GPO         3309     A     
 GPO                SX4    B2-OC.LD                                                        GPO         3310     A     
 GPO                LX1    -R1.INP                                                         GPO         3311     A     
 GPO                NZ     X4,MII2     IF OC[R1P] " OC.LD                                  GPO         3312     A     
 GPO                SA2    "UB"+X1                                                         GPO         3313     A     
 GPO                LX2    59-UD.^RDP                                                      GPO         3314     A     
 GPO                MI     X2,MII2     IF ^RD[ UDI(IN[R1P]) ]                              GPO         3315     A     
 GPO                                                                                       GPO         3316     A     
 GPO                SX5    B1                                                              GPO         3317     A     
 GPO                SX1    X1                                                              GPO         3318     A     
 GPO                LX5    I.IAP                                                           GPO         3319     A     
 GPO                LX1    I.LDIP      LDI[R1+3] = IN[R1]                                  GPO         3320     A     
 GPO                BX6    X5+X1                                                           GPO         3321     A     
 GPO                SA6    A5+3        IA[R1+3] = 1  */ INDICATE  =(I+CON)                 GPO         3322     A     
 GPO                EQ     MII2                                                            GPO         3323     A     
 GPO       UJP      SPACE  2,14                                                            GPO         3324     A     
 GPO      *         JUMP PROCESSING, CHECK FOR LABEL SUBSTITUTION, BUMP N.LJ               GPO         3325     A     
 GPO                                                                                       GPO         3326     A     
 GPO                PROCESS UJP                                                            GPO         3327     A     
 GPO                SA3    LIH                                                             GPO         3328     A     
 GPO                BX4    X5-X3                                                           GPO         3329     A     
 GPO                SB2    X4                                                              GPO         3330     A     
 GPO                NZ     B2,JPX2     IF IH[R1] " LIH                                     GPO         3331     A     
 GPO                                                                                       GPO         3332     A     
 GPO                SA2    N.LJ                                                            GPO         3333     A     
 GPO                SA3    LGL                                                             GPO         3334     A     
 GPO                MX7    1                                                               GPO         3335     A     
 GPO                BX6    X7+X2       N.LJ = N.LJ ! 1S59  */ INHIBIT PREFETCHING          GPO         3336     A     
 GPO                SA6    A2                                                              GPO         3337     A     
 GPO                ZR     X3,JPX2     IF LGL = 0    */ NO LABEL SUBSTITUTION              GPO         3338     A     
 GPO                AX3    18                                                              GPO         3339     A     
 GPO                IX6    X3+X5       IH[R1] = SHIFT( LGL , -18 )                         GPO         3340     A     
 GPO                SA6    A5                                                              GPO         3341     A     
 GPO                EQ     JPX2                                                            GPO         3342     A     
 GPO                                                                                       GPO         3343          I
          -FCC0909
 GPO       JPX      SPACE  2                                                               FCC0909        8     A     
 GPO                PROCESS JPX                                                            GPO         3344     A     
 GPO                SA4    A5+B1       R2 = R1 + 1                                         GPO         3345     A     
 GPO                SA3    LIH                                                             GPO         3346     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2960    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                BX7    X3-X4                                                           GPO         3347     A     
 GPO                SB2    X7                                                              GPO         3348     A     
 GPO                NZ     B2,JPX1     IF IH[R2] " LIH                                     GPO         3349     A     
 GPO                                                                                       GPO         3350     A     
 GPO                SA2    N.LJ                                                            GPO         3351     A     
 GPO                SA3    LGL                                                             GPO         3352     A     
 GPO                SX6    X2+B1       N.LJ = N.LJ + 1                                     GPO         3353          I
          -FCCA462
 GPO                SX7    B1                                                              FCCA462        5     A     
 GPO                IX6    X7+X2       N.LJ = N.LJ + 1                                     FCCA462        6     A     
 GPO                SA6    A2                                                              GPO         3354     A     
 GPO                ZR     X3,JPX1     IF LGL = 0    */ NO LABEL SUBSTITUTION              GPO         3355     A     
 GPO                AX3    18                                                              GPO         3356     A     
 GPO                IX6    X4+X3       IH[R2] = SHIFT(LGL,-18)                             GPO         3357     A     
 GPO                SA6    A4+                                                             GPO         3358     A     
 GPO                                                                                       GPO         3359     A     
 GPO       JPX1     BX6    "RN"X5                                                          GPO         3360     A     
 GPO                SA4    "TB"+X6     LI = TB + RI[R1]                                    GPO         3361     A     
 GPO                LX4    59-I.INVP                                                       GPO         3362     A     
 GPO                PL     X4,JPX2     IF ^INV[LI]                                         GPO         3363     A     
 GPO                                                                                       GPO         3364     A     
 GPO                SA6    IJP         IJP = RI[R1]  */ SAVE OPERAND ADDR OF JP            GPO         3365     A     
 GPO                                                                                       GPO         3366     A     
 GPO      *         LAB, JUMP - CLEAR *AN*, IN CASE OPT=1 ( NO CONTROL FLOW INFO )         GPO         3367     A     
 GPO                                                                                       GPO         3368     A     
 GPO                PROCESS (LAB,JPBB)                                                     GPO         3369     A     
 GPO       JPX2     SX6    0                                                               GPO         3370     A     
 GPO                SA6    AN          AN = 0                                              GPO         3371     A     
 GPO                EQ     MII2                                                            GPO         3372     A     
 GPO       JIN      SPACE  2                                                               GPO         3373          I
          -FCC0909
 GPO       JIN      SPACE  2,14                                                            FCC0909        9     A     
 GPO      *         JIN - INDEXED JUMP ( COMPUTED OR ASSIGNED GOTO )                       FCC0909       10     A     
 GPO                                                                                       FCC0909       11     A     
 GPO                PROCESS JIN                                                            GPO         3374     A     
 GPO                SA2    N.LJ                                                            GPO         3375     A     
 GPO                MX7    1                                                               GPO         3376     A     
 GPO                BX6    X7+X2       N.LJ = 1S59 ! N.LJ  */ INHIBIT PREFETCHING          GPO         3377     A     
 GPO                SA6    A2                                                              GPO         3378     A     
 GPO                SA3    AN                                                              FCC0909       12     A     
 GPO                SA2    LGL                                                             FCC0909       13     A     
 GPO                LX3    IM.APP-IM.LNP                                                   FCC0909       14     A     
 GPO                SA4    A5+B1       R2 = R1 + 1                                         FCC0909       15     A     
 GPO                PL     X3,JPX2     IF ^LN[AN]                                          FCC0909       16     A     
 GPO                ZR     X2,JPX2     IF LGL = 0    */ NO LABEL CHANGE                    FCC0909       17     A     
 GPO                SB2    X4                                                              FCC0909       18     A     
 GPO                NZ     B2,JPX2     IF IH[R2] " 0 */ ^ AN ASSIGNED GOTO                 FCC0909       19     A     
 GPO                                                                                       FCC0909       20     A     
 GPO      *         SET FLAGS ( N.LJ , B59 OF R2 WORD ) TO INDICATE TO *GRA*               FCC0909       21     A     
 GPO      *         THAT SPECIAL CODE MAY BE NECESSARY FOR THIS *JIN* .                    FCC0909       22     A     
 GPO                                                                                       FCC0909       23     A     
 GPO                LX7    -1                                                              FCC0909       24     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2961    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                BX6    X7+X6       N.LJ = N.LJ + 1S58                                  FCC0909       25     A     
 GPO                SA6    A6                                                              FCC0909       26     A     
 GPO                LX7    1                                                               FCC0909       27     A     
 GPO                BX6    X7+X4       [R2] = [R2] + 1S59                                  FCC0909       28     A     
 GPO                SA6    A4                                                              FCC0909       29     A     
 GPO                EQ     JPX2                                                            GPO         3379     A     
 GPO       TST      SPACE  3,14                                                            FCC1254       21     A     
 GPO      *         TST -  DEFINITION POINT OF MOVED INSTRUCTION                           FCC1254       22     A     
 GPO                                                                                       FCC1254       23     A     
 GPO                PROCESS TST                                                            FCC1254       24     A     
 GPO                BX6    "RN"X5                                                          FCC1254       25     A     
 GPO                SA4    "TB"+X6     LI = TB + RI[R1]                                    FCC1254       26     A     
 GPO                SA3    O.TET                                                           FCC1254       27     A     
 GPO                LX4    59-I.INVP                                                       FCC1254       28     A     
 GPO                PL     X4,MII2     IF ^INV[LI]                                         FCC1254       29     A     
 GPO                                                                                       FCC1254       30     A     
 GPO                SA1    A5+B1       R2 = R1 + 1                                         FCC1254       31     A     
 GPO                SB2    X3                                                              FCC1254       32     A     
 GPO                LX1    -IH.CAP                                                         FCC1254       33     A     
 GPO                SA2    B2+X1                                                           FCC1254       34     A     
 GPO                LX2    59-T.INVP                                                       FCC1254       35     A     
 GPO                PL     X2,MII2     IF ^INV[TET(CA[R2])]                                FCC1254       36     A     
 GPO                EQ     MII1A                                                           FCC1254       37     A     
 GPO       RS       EJECT                                                                  GPO         3380     A     
 GPO      *         REGISTER STORE PROCESSING                                              GPO         3381     A     
 GPO                                                                                       GPO         3382     A     
 GPO                PROCESS RS                                                             GPO         3383     A     
 GPO                SA4    A5-B1       LI = R1 - 1                                         GPO         3384     A     
 GPO                MX7    -SO.LKL                                                         GPO         3385     A     
 GPO                LX5    -R1.SOP-SO.LKP                                                  GPO         3386     A     
 GPO                BX6    -X7*X5      LKT = SOLK[R1]                                      GPO         3387     A     
 GPO                LX4    59-I.INVP                                                       GPO         3388     A     
 GPO                ZR     X6,RS1      IF LKT = 0    */ UJP LOCK                           GPO         3389     A     
 GPO                SB2    X6-2                                                            GPO         3390     A     
 GPO                LT     B2,MII2     IF LKT = 1    */ TEMP LOCK                          GPO         3391     A     
 GPO                PL     X4,MII2     IF ^INV[LI]                                         GPO         3392     A     
 GPO                                                                                       GPO         3393     A     
 GPO                GT     B2,MII1     IF LKT = 3    */ *RJ RS*                            GPO         3394     A     
 GPO                                                                                       GPO         3395     A     
 GPO      *         FULL LOCK *RS* AND OPERAND INVARIANT IN CURRENT LOOP                   GPO         3396     A     
 GPO                                                                                       GPO         3397     A     
 GPO                SX7    B1                                                              GPO         3398     A     
 GPO                LX5    R1.SOP+SO.LKP                                                   GPO         3399     A     
 GPO                LX7    R1.SOP+SO.INVCP                                                 GPO         3400     A     
 GPO                BX6    X7+X5       INVC[R1] = 1  */ INDICATE INV IN THIS LOOP          GPO         3401     A     
 GPO                SA6    A5                                                              GPO         3402     A     
 GPO                MX7    -SO.RTL                                                         GPO         3403     A     
 GPO                LX5    -R1.SOP-SO.RTP                                                  GPO         3404     A     
 GPO                BX4    -X7*X5                                                          GPO         3405     A     
 GPO                ZR     X4,RS0      IF SORT[R1] = 0  */ RS TO A B-REG                   GPO         3406     A     
 GPO                SA3    A5-B3       R2P = R1 - 3                                        GPO         3407     A     
 GPO                LX3    59-IH.LDP                                                       GPO         3408     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2962    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                PL     X3,MII2     IF ^LD[R2P]   */ MOVE IF NOT A PREFETCH             GPO         3409     A     
 GPO                                                                                       GPO         3410     A     
 GPO      *         REMOVE PRED OF *RS* FROM INVARIANT CHAIN                               GPO         3411     A     
 GPO                                                                                       GPO         3412     A     
 GPO       RS0      SA4    A5-B1       LIP = R1 - 1                                        GPO         3413     A     
 GPO                LX4    -I.IICP     I = IIC[LIP]                                        GPO         3414     A     
 GPO                SA3    "TB"+X4     LJP = TB + I                                        GPO         3415     A     
 GPO                BX7    X3                                                              GPO         3416     A     
 GPO                SA7    A3          LII = LJP                                           GPO         3417     A     
 GPO                MX6    0                                                               GPO         3418     A     
 GPO                SA6    A4          [LIP] = 0                                           GPO         3419     A     
 GPO                EQ     MII2                                                            GPO         3420     A     
 GPO                                                                                       GPO         3421     A     
 GPO      *         *UJP* RS , PRECEEDING A FUNCTION CALL                                  GPO         3422     A     
 GPO                                                                                       GPO         3423     A     
 GPO       RS1      MI     X4,RS2      IF INV[LI]                                          GPO         3424     A     
 GPO                SA0    -1          FAC = 0       */ INDICATE ^INV OPERAND              GPO         3425     A     
 GPO                EQ     MII2                                                            GPO         3426     A     
 GPO                                                                                       GPO         3427     A     
 GPO       RS2      SX6    A0                                                              GPO         3428     A     
 GPO                MI     X6,MII2     IF FAC < 0    */ PREVIOUS ARG NOT INV               GPO         3429     A     
 GPO                LX6    I.IICP                                                          GPO         3430     A     
 GPO                SA6    A5+B3       IIC[R1+3] = FAC  */ CHAIN THIS TO LAST              GPO         3431     A     
 GPO                SA0    A6-"TB"     FAC = R1+3 - TB                                     GPO         3432     A     
 GPO                EQ     MII2                                                            GPO         3433     A     
 GPO       RJ3      SPACE  3                                                               GPO         3434          I
          -FCC1254
 GPO       RJ3      SPACE  2,14                                                            FCC1254       38     A     
 GPO      *         RJ3 - CHECK FOR *BEF* AND ARGS INVARIANT                               GPO         3435     A     
 GPO                                                                                       GPO         3436     A     
 GPO                PROCESS RJ3                                                            GPO         3437          I
          -FCC2039
 GPO                PROCESS (RJ3,RJ6)                                                      FCC2039        6     A     
 GPO                SA1    AN                                                              GPO         3438     A     
 GPO                SB2    A0          AC = FAC                                            GPO         3439     A     
 GPO                SA0    B0          FAC = 0                                             GPO         3440     A     
 GPO                PL     X1,MII2     IF ^AN        */ ON A SIDE BRANCH                   GPO         3441     A     
 GPO                LE     B2,MII2     IF AC @ 0     */ ARGS NOT INV                       GPO         3442     A     
 GPO                SA4    A5+B1       R2 = R1 + 1                                         GPO         3443     A     
 GPO                MX7    -FI.FTL                                                         GPO         3444     A     
 GPO                LX4    -FI.FTP                                                         GPO         3445     A     
 GPO                BX6    -X7*X4                                                          GPO         3446     A     
 GPO                SX3    X6-2                                                            GPO         3447     A     
 GPO                NZ     X3,MII2     IF FT[R2] " 2 */ NOT A *BEF*                        GPO         3448     A     
 GPO       RJ3      SPACE  1,10                                                            GPO         3449     A     
 GPO      *         MARK *RS"S* AS INV SO WE KNOW TO MOVE THEM OUT                         GPO         3450     A     
 GPO                                                                                       GPO         3451     A     
 GPO       RJ31     SA3    "TB"+B2     LIP = TB + AC                                       GPO         3452     A     
 GPO                MX4    1                                                               GPO         3453     A     
 GPO                LX4    1+I.INVP                                                        GPO         3454     A     
 GPO                BX6    X4+X3       INV[LIP] = 1                                        GPO         3455     A     
 GPO                LX3    -I.IICP                                                         GPO         3456     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2963    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SB2    X3          AC = IIC[LIP]                                       GPO         3457     A     
 GPO                SA6    A3                                                              GPO         3458     A     
 GPO                NZ     B2,RJ31     IF AC " 0                                           GPO         3459     A     
 GPO                                                                                       GPO         3460     A     
 GPO      *         MARK RJ3 AND DEFS FOLLOWING AS *INV*                                   GPO         3461     A     
 GPO                                                                                       GPO         3462     A     
 GPO       RJ32     SX3    A7-"TB"     IIC[R1+3] = LII - TB                                GPO         3463     A     
 GPO                LX3    I.IICP                                                          GPO         3464     A     
 GPO                BX7    X4+X3       INV[R1+3] = 1                                       GPO         3465     A     
 GPO                SA7    A5+B3       LII = R1 + 3                                        GPO         3466     A     
 GPO                SA5    A7+B1       R1 = LII + 1                                        GPO         3467     A     
 GPO                UX1    B2,X5                                                           GPO         3468     A     
 GPO                SX2    B2-OC.DEF                                                       GPO         3469     A     
 GPO                ZR     X2,RJ32     IF OC[R1] = OC.DEF                                  GPO         3470     A     
 GPO                                                                                       GPO         3471     A     
 GPO                JP     MII.JT+B2   JUMP( MII.JT( OC[R1] ) )                            GPO         3472          I
          -FCC1254
 GPO       TST      SPACE  3,14                                                            GPO         3473          I
          -FCC1254
 GPO      *         TST - DEFINITION POINT OF MOVED INSTRUCTION                            GPO         3474          I
          -FCC1254
 GPO                                                                                       GPO         3475          I
          -FCC1254
 GPO                PROCESS TST                                                            GPO         3476          I
          -FCC1254
 GPO                BX6    "RN"X5                                                          GPO         3477          I
          -FCC1254
 GPO                SA4    "TB"+X6     LI = TB + RI[R1]                                    GPO         3478          I
          -FCC1254
 GPO                SA3    O.TET                                                           GPO         3479          I
          -FCC1254
 GPO                LX4    59-I.INVP                                                       GPO         3480          I
          -FCC1254
 GPO                PL     X4,MII2     IF ^INV[LI]                                         GPO         3481          I
          -FCC1254
 GPO                                                                                       GPO         3482          I
          -FCC1254
 GPO                SA1    A5+B1       R2 = R1 + 1                                         GPO         3483          I
          -FCC1254
 GPO                SB2    X3                                                              GPO         3484          I
          -FCC1254
 GPO                LX1    -IH.CAP                                                         GPO         3485          I
          -FCC1254
 GPO                SA2    B2+X1                                                           GPO         3486          I
          -FCC1254
 GPO                LX2    59-T.INVP                                                       GPO         3487          I
          -FCC1254
 GPO                PL     X2,MII2     IF ^INV[TET(CA[R2])]                                GPO         3488          I
          -FCC1254
 GPO                EQ     MII1A                                                           GPO         3489          I
          -FCC1254
 GPO                SA3    AN                                                              FCC1254       39     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2964    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                ZR     X3,RJ33     IF AN = 0     */ MII CALLED FROM *CIF*              FCC1254       40     A     
 GPO                SA3    XRF                                                             FCC1254       41     A     
 GPO                SX4    B1                                                              FCC1254       42     A     
 GPO                IX6    X3-X4       XRF = XRF - 1 */ DECR N.EXT-REFS IN LOOP            FCC1254       43     A     
 GPO                SA6    A3                                                              FCC1254       44     A     
 GPO                NZ     X6,RJ33     IF XRF " 0                                          FCC1254       45     A     
 GPO                                                                                       FCC1254       46     A     
 GPO                SA3    MRA.X                                                           FCC1254       47     A     
 GPO                BX6    X3          MRA = MRA.X   */ MAKE REGS AVAIL IN *GRA*           FCC1254       48     A     
 GPO                SA6    MRA                                                             FCC1254       49     A     
 GPO                                                                                       FCC1254       50     A     
 GPO       RJ33     JP     MII.JT+B2   JUMP( MII.JT( OC[R1] ) )                            FCC1254       51     A     
 GPO       ST       EJECT                                                                  GPO         3490     A     
 GPO      *         ST - SEE IF MOVABLE OR A RECURSIVE DEFINITION                          GPO         3491     A     
 GPO                                                                                       GPO         3492     A     
 GPO                PROCESS ST                                                             GPO         3493     A     
 GPO                SA3    A5+B1       R2 = R1 + 1                                         GPO         3494     A     
 GPO                BX6    "RN"X5                                                          GPO         3495     A     
 GPO                LX5    -R1.INP                                                         GPO         3496     A     
 GPO                SA4    "UB"+X5     UI = UDI(IN[R1])                                    GPO         3497     A     
 GPO                LX3    -IH.RFP                                                         GPO         3498     A     
 GPO                SX7    X3                                                              GPO         3499     A     
 GPO                NZ     X7,MII2     IF RF[R2] " 0 */ LEAVE INDEXED STORES ALONE         GPO         3500     A     
 GPO                                                                                       GPO         3501     A     
 GPO                SA2    "TB"+X6     LI = TB + RI[R1]                                    GPO         3502     A     
 GPO                LX2    59-I.INVP                                                       GPO         3503     A     
 GPO                SA1    AN                                                              GPO         3504     A     
 GPO                SB2    X5                                                              GPO         3505     A     
 GPO                BX7    X1*X2                                                           GPO         3506     A     
 GPO                ZR     B2,ST3      IF IN[R1] = 0 */ AP/IO LIST STORE                   GPO         3507     A     
 GPO                                                                                       GPO         3508     A     
 GPO                PL     X7,ST1      IF ^( AN & INV[LI] )                                GPO         3509     A     
 GPO                MX6    -UD.STCL                                                        GPO         3510     A     
 GPO                LX6    UD.STCP+1                                                       GPO         3511     A     
 GPO                BX1    -X6*X4                                                          GPO         3512     A     
 GPO                NZ     X1,ST1      IF ^( STC[UI] = 1 & IST[UI] = 0 )                   GPO         3513     A     
 GPO                                                                                       GPO         3514     A     
 GPO                SA3    A4+B1       U2 = UI + 1                                         GPO         3515     A     
 GPO                SA1    UBD                                                             GPO         3516     A     
 GPO                SA4    LEA                                                             FCCA513X      48     A     
 GPO                UX7    B2,X3       B = BITN[U2]                                        GPO         3517     A     
 GPO                IX6    X1+X7                                                           GPO         3518     A     
 GPO                SA3    UVA                                                             GPO         3519     A     
 GPO                IX4    X4+X7                                                           FCCA513X      49     A     
 GPO                IX7    X3+X7                                                           GPO         3520     A     
 GPO                SA1    X6          UFW = UBD( WI[U2] )                                 GPO         3521     A     
 GPO                SA4    X4          LEW = LEA( WI[U2] )                                 FCCA513X      50     A     
 GPO                SA3    X7          PUW = UVA( WI[U2] )                                 GPO         3522     A     
 GPO                BX6    X3+X1                                                           GPO         3523     A     
 GPO                BX6    X4+X6                                                           FCCA513X      51     A     
 GPO                AX7    B2,X6                                                           GPO         3524     A     
 GPO                LX7    59                                                              GPO         3525     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2965    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                MI     X7,ST1      IF SHIFT( PUW ! UFW , 59-B ) < 0  */ USED           GPO         3526          I
          -FCCA513X 
 GPO                SA4    "UB"+X5     RESET UI                                            FCCA513X      52     A     
 GPO                MI     X7,ST1      IF SHIFT(PUW!UFW!LEW!,59-B)                         FCCA513X      53     A     
 GPO                                                                                       GPO         3527     A     
 GPO      *         *ST* IS MOVABLE, CLEAR BITS IN *UDT* AND BLOCK *DEF* VECTOR            GPO         3528     A     
 GPO      *         SET *RF* BIT IN IN DESCR TO TELL *RDD* NOT TO KILL IT.                 GPO         3529          I
          -FCC1556X 
 GPO      *         SET BIT IN REGION LIVE ENTRY BIT VECTOR FOR *RDD* AND *GRA*            FCC1556X      12     A     
 GPO                                                                                       GPO         3530     A     
 GPO                SA3    VL                                                              GPO         3531          I
          -FCC0408
 GPO                MX7    1                                                               GPO         3532          I
          -FCC0408
 GPO                LX7    1+UD.DEFRP                                                      GPO         3533          I
          -FCC0408
 GPO                BX6    -X7*X4      DEFR[UI] = 0  */ SO *LD*"S CAN MOVE                 GPO         3534          I
          -FCC0408
 GPO                SA3    STA                                                             FCC0408       87     A     
 GPO                BX6    -X3*X4      (DEFR,^RD,STC)[UI] = 0  */ SO LD"S CAN MOVE         FCC0408       88     A     
 GPO                SA3    VL                                                              FCC0408       89     A     
 GPO                SX7    B1                                                              GPO         3535     A     
 GPO                SA6    A4                                                              GPO         3536     A     
 GPO                LX7    B2,X7                                                           GPO         3537     A     
 GPO                SB2    X3                                                              GPO         3538     A     
 GPO                SA1    A1-B2       DEFW = UFW - VL                                     GPO         3539     A     
 GPO                BX6    -X7*X1      DEFW = DEFW & ^SHIFT(1,B)                           GPO         3540     A     
 GPO                SA6    A1                                                              GPO         3541     A     
 GPO                SA4    A5+2        DI = R1 + 2                                         GPO         3542          I
          -FCC1556X 
 GPO                SX7    B1                                                              GPO         3543          I
          -FCC1556X 
 GPO                LX7    D.RFP                                                           GPO         3544          I
          -FCC1556X 
 GPO                BX6    X7+X4       RF[DI] = 1                                          GPO         3545          I
          -FCC1556X 
 GPO                SA6    A4                                                              GPO         3546          I
          -FCC1556X 
 GPO                SA3    LEA                                                             FCC1556X      13     A     
 GPO                SA4    A4+B1       U2 = UI + 1                                         FCC1556X      14     A     
 GPO                IX6    X3+X4                                                           FCC1556X      15     A     
 GPO                SA4    X6          LEW = [LEA+WI[U2]]                                  FCC1556X      16     A     
 GPO                BX6    X7+X4       LEW = LEW ! SHIFT(1,B)  */ MOVED ST IS *LE*         FCC1556X      17     A     
 GPO                SA6    A4                                                              FCC1556X      18     A     
 GPO                EQ     MII1                                                            GPO         3547     A     
 GPO       ST       SPACE  1,10                                                            GPO         3548     A     
 GPO      *         CHECK TO SEE IF THIS *ST* IS A RECURSIVE DEFINITION                    GPO         3549     A     
 GPO      *         THE RESTRICTION THAT THE *ST* IMMEDIATELY FOLLOW THE INCREMENT         GPO         3550     A     
 GPO      *         IS A SIMPLE WAY OF DISALLOWING USES OF THE INC BETWEEN IT AND          GPO         3551     A     
 GPO      *         THE *ST*. WITHOUT THIS WE COULD GET INTO SOME NASTY SITUATIONS         GPO         3552     A     
 GPO      *         AS THE RESULT OF REGISTER ASSIGNMENT.                                  GPO         3553     A     
 GPO                                                                                       GPO         3554     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2966    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO       ST1      LX4    59-UD.^RDP                                                      GPO         3555     A     
 GPO                MI     X4,MII2     IF ^RD[UI]                                          GPO         3556     A     
 GPO                LX2    I.INVP-I.IAP                                                    GPO         3557     A     
 GPO                PL     X2,ST2      IF ^IA[LI]    */ PRED IS NOT  I+INV                 GPO         3558     A     
 GPO                                                                                       GPO         3559     A     
 GPO                LX2    1+I.IAP-I.LDIP                                                  GPO         3560     A     
 GPO                SX6    "SC"                                                            GPO         3561     A     
 GPO                BX1    X5-X2                                                           GPO         3562     A     
 GPO                SB2    X1                                                              GPO         3563     A     
 GPO                NZ     B2,ST2      IF LDI[LI] " IN[R1]  */ NOT  I = I+INV              GPO         3564     A     
 GPO                SB2    A2+B1                                                           GPO         3565     A     
 GPO                SX1    A5-B2                                                           GPO         3566     A     
 GPO                NZ     X1,ST2      IF LI+1 " R1  */ INC OP NOT NEXT TO *ST*            GPO         3567     A     
 GPO                                                                                       GPO         3568     A     
 GPO      *         ADD *ST* TO *STC*, LIST OF POSSIBLE *RD*"S                             GPO         3569     A     
 GPO                                                                                       GPO         3570     A     
 GPO                LX6    I.STCP      STC[R1+3] = SC                                      GPO         3571     A     
 GPO                SA6    A5+B3                                                           GPO         3572     A     
 GPO                S"NI"  "NI"+B1     NI = NI + 1                                         GPO         3573     A     
 GPO                S"SC"  A6-"TB"     SC = R1+3 - TB                                      GPO         3574     A     
 GPO                EQ     MII2                                                            GPO         3575     A     
 GPO                                                                                       GPO         3576     A     
 GPO      *         MARK VAR AS *^RD* IN *UDT*                                             GPO         3577     A     
 GPO                                                                                       GPO         3578     A     
 GPO       ST2      MX1    1                                                               GPO         3579     A     
 GPO                BX6    X1+X4                                                           GPO         3580     A     
 GPO                LX6    1+UD.^RDP   ^RD[UI] = 1                                         GPO         3581     A     
 GPO                SA6    A4                                                              GPO         3582     A     
 GPO                EQ     MII2                                                            GPO         3583     A     
 GPO                                                                                       GPO         3584     A     
 GPO      *         AP / IO LIST STORE, MOVABLE IF ^EQUIVALENCED                           GPO         3585     A     
 GPO                                                                                       GPO         3586     A     
 GPO       ST3      PL     X7,MII2     IF ^( AN & INV[R1] )                                GPO         3587     A     
 GPO                LX3    IH.RFP-IH.IHP                                                   GPO         3588     A     
 GPO                SX7    X3-I.IO                                                         GPO         3589     A     
 GPO                PL     X7,MII1     IF I[R2] = I.IO  */ AN I/O LIST                     GPO         3590     A     
 GPO                SA1    =XO.API                                                         GPO         3591     A     
 GPO                SB2    X3-I.AP-1                                                       GPO         3592     A     
 GPO                SA2    X1+B2                                                           GPO         3593          I
          -FCC0672
 GPO      *         LX2    59-AI.EQVP                                                      GPO         3594          I
          -FCC0672
 GPO                MI     X2,MII2     IF EQV[API(H[R2])]                                  GPO         3595          I
          -FCC0672
 GPO                SA2    X1+B2       AI = API(H[R2])                                     FCC0672        7     A     
 GPO                MX7    2                                                               FCC0672        8     A     
 GPO                BX3    X7*X2                                                           FCC0672        9     A     
 GPO                NZ     X3,MII2     IF EQV[AI] ! BASE[AI]                               FCC0672       10     A     
 GPO                EQ     MII1                                                            GPO         3596     A     
 GPO                                                                                       FCC0408       90     A     
 GPO       STA      BFMW   UD,(DEFR,^RD,STC)                                               FCC0408       91     A     
 GPO       EOQ      EJECT                                                                  GPO         3597     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2967    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO      *         EOQ - END OF MARKING PHASE, SET CHAIN POINTERS IN *BSW*                GPO         3598     A     
 GPO                                                                                       GPO         3599     A     
 GPO                PROCESS EOQ                                                            GPO         3600     A     
 GPO                SA1    BN                                                              GPO         3601     A     
 GPO                SX5    "SC"                                                            GPO         3602     A     
 GPO                SX7    A7-"TB"     IIC = LII - TB                                      GPO         3603     A     
 GPO                LX5    BS.STCP     STC[BSW] = SC                                       GPO         3604     A     
 GPO                LX7    BS.IICP     IIC[BSW] = LII - TB                                 GPO         3605     A     
 GPO                BX6    X5+X7                                                           GPO         3606     A     
 GPO                PX7    "NI",X6     NIS[BSW] = NI                                       GPO         3607     A     
 GPO                SA7    "TB"        [TB] = BSW                                          GPO         3608     A     
 GPO                SA7    BSW                                                             GPO         3609     A     
 GPO                ZR     X1,MII      IF BN = 0     */ CALL FROM *CIF*                    GPO         3610     A     
 GPO                TRACE  MII,RLIST,SEQ                                                   GPO         3611     A     
 GPO                                                                                       GPO         3612     A     
 GPO      *         ADD CONTRIBUTIONS FROM THIS BLOCK INTO REGION USE/DEF VECTORS.         GPO         3613     A     
 GPO                                                                                       GPO         3614     A     
 GPO                SA1    UBD                                                             GPO         3615     A     
 GPO                SA2    VL                                                              GPO         3616     A     
 GPO                SA3    DVA                                                             GPO         3617     A     
 GPO                SB2    B0          I = 0                                               GPO         3618     A     
 GPO                SB3    X2                        (B3) = VL                             GPO         3619     A     
 GPO                SB4    B3+B3                                                           GPO         3620     A     
 GPO                IX0    X1-X2       BDA = UBD - VL                                      GPO         3621     A     
 GPO                SB6    X3                        (B6) = [DVA]                          GPO         3622     A     
 GPO                                                                                       GPO         3623     A     
 GPO       MII4     SA1    X0+B2                                                           GPO         3624     A     
 GPO                SA2    B6+B2                                                           GPO         3625     A     
 GPO                SA3    A1+B4                                                           GPO         3626     A     
 GPO                SA4    A2+B4                                                           GPO         3627     A     
 GPO                BX6    X1+X2       DVA(I) = DVA(I) ! BDA(I)                            GPO         3628     A     
 GPO                SA6    A2                                                              GPO         3629     A     
 GPO                BX7    X3+X4       UVA(I) = UVA(I) ! BUA(I)                            GPO         3630     A     
 GPO                SB2    B2+B1       I = I + 1                                           GPO         3631     A     
 GPO                SA7    A4                                                              GPO         3632     A     
 GPO                LT     B2,B3,MII4  IF I < VL                                           GPO         3633     A     
 GPO                                                                                       GPO         3634     A     
 GPO                ZR     "TB",MII5   IF TB = 0                                           GPO         3635     A     
 GPO                SA5    O.BIT                                                           GPO         3636     A     
 GPO                SA4    "TB"-3      R1 = TB - 3                                         GPO         3637     A     
 GPO                SB2    X5                                                              GPO         3638     A     
 GPO                SA3    B2+X4       BIW = BIT(BN[R1])                                   GPO         3639     A     
 GPO                LX3    59-BI.RBP                                                       GPO         3640     A     
 GPO                MI     X3,MII5     IF RB[BIW]    */ NOT A HOLDING BLOCK                GPO         3641     A     
 GPO                                                                                       GPO         3642     A     
 GPO                LX3    1+BI.RBP-BI.PBNP                                                GPO         3643     A     
 GPO                SA2    B2+X3       BIW = BIT(PBN[BIW])                                 GPO         3644     A     
 GPO                SA1    O.BVT                                                           GPO         3645     A     
 GPO                LX2    -BI.BVIP                                                        GPO         3646     A     
 GPO                IX0    X1+X2       BDA = O.BVT + BVI[BIW]                              GPO         3647     A     
 GPO                SB2    B0          I = 0                                               GPO         3648     A     
 GPO                S"TB"  B0          TB = 0                                              GPO         3649     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2968    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                EQ     MII4                                                            GPO         3650     A     
 GPO                                                                                       GPO         3651     A     
 GPO       MII5     SA2    IJP                                                             GPO         3652     A     
 GPO                ZR     X2,MII      IF IJP = 0    */ NO INVARIANT JUMPS                 GPO         3653     A     
 GPO                                                                                       GPO         3654     A     
 GPO                EQ     MII                                                             GPO         3655     A     
 GPO       MII.JT   SPACE  3,14                                                            GPO         3656     A     
 GPO      *         THE FOLLOWING OPCODES ARE NOT EXPECTED TO APPEAR                       GPO         3657     A     
 GPO                                                                                       GPO         3658     A     
 GPO                ECHO   1,X=(PLD,PST,SLD,SST,SLD,SDS,DRL,DWL,TLD)                       GPO         3659          I
          -FCCA506X 
 GPO                ECHO   1,X=(PLD,PST,SLD,SST,SDS,DRL,DWL)                               FCCA506X       5     A     
 GPO       .X       EQU    1S17+MII                                                        GPO         3660     A     
 GPO                                                                                       GPO         3661     A     
 GPO      *         OPR - DEFINE MACRO TO FORM JUMP TABLE FOR *MII*                        GPO         3662     A     
 GPO                                                                                       GPO         3663     A     
 GPO                MACRO  OPR,NAM,SS                                                      GPO         3664     A     
 GPO                NOREF  .NAM                                                            GPO         3665     A     
 GPO       O        IF     DEF,.NAM                                                        GPO         3666     A     
 GPO       Z        MICRO  3,1,/NAM/                                                       GPO         3667     A     
 GPO                IFC    NE,/"Z"//,2                                                     GPO         3668     A     
 GPO                EQ     .NAM              NAM                                           GPO         3669     A     
 GPO                SKIP   1                                                               GPO         3670     A     
 GPO                EQ     .NAM               NAM                                          GPO         3671     A     
 GPO       O        ELSE   2                                                               GPO         3672     A     
 GPO       TYP      MICRO  3,3,$SS$                                                        GPO         3673     A     
 GPO                EQ     TY"TYP"     NAM                                                 GPO         3674     A     
 GPO                ENDM                                                                   GPO         3675     A     
 GPO                SPACE  2                                                               GPO         3676     A     
 GPO       MII.JT   BSS    0                                                               GPO         3677     A     
 GPO                LOC    0                                                               GPO         3678     A     
 GPO      *CALL     OPRDEFS                                                                GPO         3679     A     
 GPO                                                                                       GPO         3680     A     
 GPO                LOC    *O                                                              GPO         3681     A     
 GPO                LIST   -G                                                              GPO         3682     A     
 GPO                                                                                       GPO         3683     A     
 GPO                QUAL   CODE                                                            GPO         3684     A     
 GPO                                                                                       GPO         3685     A     
 GPO       MII      EQU    /MII/MII                                                        GPO         3686     A     
 GPO       FII      TITLE  FII - FORM INCREMENT INFORMATION                                GPO         3687     A     
 GPO      **        FII - FORM INCREMENT INFORMATION                                       GPO         3688     A     
 GPO      *         SCAN *STC* TO FORM A LIST OF INCREMENT VALUES OF *RD*                  GPO         3689     A     
 GPO      *         VARIABLES, AND SAVE THEM IN *IIT*.                                     GPO         3690     A     
 GPO      *                                                                                GPO         3691     A     
 GPO      *         EXIT   *STC* IN BSW UPDATED                                            GPO         3692     A     
 GPO      *                *HBP* OF *ST* OF *RD* POINTS TO INCREMENT VALUE.                GPO         3693     A     
 GPO                                                                                       GPO         3694     A     
 GPO       FII0     SA4    IIL                                                             GPO         3695     A     
 GPO                SA5    BSW                                                             GPO         3696     A     
 GPO                SX6    B5                                                              GPO         3697     A     
 GPO                LX0    BS.STCP                                                         GPO         3698     A     
 GPO                SX3    B4                                                              GPO         3699     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2969    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                BX5    X0*X5                                                           GPO         3700     A     
 GPO                SA6    L.IIT       L.IIT = IL    */ FINAL LENGTH                       GPO         3701     A     
 GPO                LX3    BS.STCP     STC[BSW] = SC                                       GPO         3702     A     
 GPO                BX1    X3+X5                                                           GPO         3703     A     
 GPO                PX7    X1          NIS[BSW] = 0                                        GPO         3704     A     
 GPO                SA7    A5                                                              GPO         3705     A     
 GPO                                                                                       GPO         3706     A     
 GPO                TRACE  FII,IIT                                                         GPO         3707     A     
 GPO                                                                                       GPO         3708     A     
 GPO       FII      ROUTINE                                                                GPO         3709     A     
 GPO                UX6    B2,X4                                                           GPO         3710     A     
 GPO                ALLOC  IIT,B2      ALLOC( IIT , NIS[BSW] )                             GPO         3711     A     
 GPO                SA5    O.SEQ                                                           GPO         3712     A     
 GPO                SA4    BSW                                                             GPO         3713     A     
 GPO                SA3    O.UDT                                                           GPO         3714     A     
 GPO                S"TB"  X5+3        TB = O.SEQ + 3                                      GPO         3715     A     
 GPO                SX6    B6          IIL = OLD(L.IIT)                                    GPO         3716     A     
 GPO                SB5    B6          IL = IIL      */ *IIT* LENGTH                       GPO         3717     A     
 GPO                SA6    IIL                                                             GPO         3718     A     
 GPO                SA0    X2                                                              GPO         3719     A     
 GPO                S"UB"  X3          UB = O.UDT                                          GPO         3720     A     
 GPO                LX4    -BS.STCP                                                        GPO         3721     A     
 GPO                SB3    X4          I = STC[BSW]                                        GPO         3722     A     
 GPO                SB4    B0          SC = 0        */ LAST ON CHAIN                      GPO         3723     A     
 GPO                EQ     FII2                                                            GPO         3724     A     
 GPO                                                                                       GPO         3725     A     
 GPO      *         SAVE INC VALUE IN *IIT*, SET *ST* TO POINT TO *IIT*                    GPO         3726     A     
 GPO                                                                                       GPO         3727     A     
 GPO       FII1     SA6    A0+B5       IIT(IL) = ITW                                       GPO         3728     A     
 GPO                SX4    B4                                                              GPO         3729     A     
 GPO                SX1    B5                                                              GPO         3730     A     
 GPO                LX4    I.STCP      STC[LI] = SC  */ POINT TO LAST                      GPO         3731     A     
 GPO                LX1    I.HBPP      HBP[LI] = IL  */ POINT TO INC VALUE                 GPO         3732     A     
 GPO                PX6    X1          NPI[LI] = 0                                         GPO         3733     A     
 GPO                BX7    X4+X6                                                           GPO         3734     A     
 GPO                SB5    B5+B1       IL = IL + 1                                         GPO         3735     A     
 GPO                SA7    A5                                                              GPO         3736     A     
 GPO                SB4    A5-"TB"     SC = LI - TB  */ CHAIN POINTS TO THIS               GPO         3737     A     
 GPO                                                                                       GPO         3738     A     
 GPO       FII2     SA5    "TB"+B3     LI = TB + I                                         GPO         3739     A     
 GPO                ZR     B3,FII0     IF I = 0                                            GPO         3740     A     
 GPO                LX5    -I.STCP                                                         GPO         3741     A     
 GPO                SA4    A5-3        R1 = LI - 3                                         GPO         3742     A     
 GPO                SB3    X5          I = STC[LI]   */ NEXT ON CHAIN                      GPO         3743     A     
 GPO                BX6    "RN"X4      R = RI[R1]                                          GPO         3744     A     
 GPO                LX4    -R1.INP                                                         GPO         3745     A     
 GPO                SA3    "UB"+X4     UI = UB + IN[R1]                                    GPO         3746     A     
 GPO                LX3    59-UD.^RDP                                                      GPO         3747     A     
 GPO                SA2    A5-B1       DI = LI - 1                                         GPO         3748     A     
 GPO                MI     X3,FII2     IF ^RD[UI]    */ ^ RD IN REGION                     GPO         3749     A     
 GPO                                                                                       GPO         3750     A     
 GPO      *         *ST* IS STILL A *RD*, FIND THE INCREMENT VALUE                         GPO         3751     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2970    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       GPO         3752     A     
 GPO                MI     X3,FII2     IF ^RD[UI]                                          GPO         3753     A     
 GPO                SB2    "TB"-B1                                                         GPO         3754     A     
 GPO                SA3    B2+X6       DIP = TB-1 + R                                      GPO         3755     A     
 GPO                SA4    A3-2        R1 = DIP - 2                                        GPO         3756     A     
 GPO                SX1    B1                                                              GPO         3757     A     
 GPO                LX1    D.INCP                                                          GPO         3758     A     
 GPO                BX7    X1+X3       INC[DIP] = 1                                        GPO         3759     A     
 GPO                SA7    A3                                                              GPO         3760     A     
 GPO                BX6    X1+X2       INC[DI] = 1                                         GPO         3761     A     
 GPO                UX5    B2,X4                                                           GPO         3762     A     
 GPO                SA6    A2                                                              GPO         3763     A     
 GPO                SX7    B2-OC.STT                                                       GPO         3764     A     
 GPO                NZ     X7,FII3     IF OC[R1] " OC.STT                                  GPO         3765     A     
 GPO                                                                                       GPO         3766     A     
 GPO                SA3    A4+B1       R2 = R1 + 1                                         GPO         3767     A     
 GPO                MX1    -IH.CAL                                                         GPO         3768     A     
 GPO                LX3    -IH.CAP                                                         GPO         3769     A     
 GPO                BX4    -X1*X3                                                          GPO         3770     A     
 GPO                PX6    X4          ITW = PACK(0,CA[R2])                                GPO         3771     A     
 GPO                EQ     FII1                                                            GPO         3772     A     
 GPO                                                                                       GPO         3773     A     
 GPO      *         PROCESS IA, IS                                                         GPO         3774     A     
 GPO                                                                                       GPO         3775     A     
 GPO       FII3     LX4    -R1.RJP                                                         GPO         3776     A     
 GPO                BX6    "RN"X4                                                          GPO         3777     A     
 GPO                SA3    "TB"+X6     LP = TB + RJ[R1]                                    GPO         3778     A     
 GPO                MX5    0           BIAS = 0                                            GPO         3779     A     
 GPO                SX7    A3          LA = LP                                             GPO         3780     A     
 GPO                LX3    59-I.INVP                                                       GPO         3781     A     
 GPO                MI     X3,FII4     IF INV[LP]                                          GPO         3782     A     
 GPO                LX4    R1.RJP-R1.RKP                                                   GPO         3783     A     
 GPO                BX6    "RN"X4                                                          GPO         3784     A     
 GPO                SX5    B2-OC.IA    BIAS = OC[R1] - OC.IA                               GPO         3785     A     
 GPO                SX7    "TB"+X6     LA = TB + RK[R1]                                    GPO         3786     A     
 GPO                                                                                       GPO         3787     A     
 GPO      *         INC VALUE IS +- VAL OF *INV* PRED OF IA/IS                             GPO         3788     A     
 GPO                                                                                       GPO         3789     A     
 GPO       FII4     SA4    X7-3        R1 = LA - 3                                         GPO         3790     A     
 GPO                UX6    B2,X4                                                           GPO         3791     A     
 GPO                SX1    B2-OC.LD                                                        GPO         3792     A     
 GPO                NZ     X1,FII5     IF OC[R1] " OC.LD                                   GPO         3793     A     
 GPO                                                                                       GPO         3794     A     
 GPO                SA4    A4+B1       R2 = R1 + 1                                         GPO         3795     A     
 GPO                AX6    R1.INP                                                          GPO         3796     A     
 GPO                SB2    X5+B1                                                           GPO         3797     A     
 GPO                LX6    IH.RFP                                                          GPO         3798     A     
 GPO                BX5    X6+X4       VAL = SHIFT(IN[R1],IH.RFP) + CAIH[R2]               GPO         3799     A     
 GPO                PX6    B2,X5       ITW = PACK( BIAS+1 , VAL )                          GPO         3800     A     
 GPO                EQ     FII1                                                            GPO         3801     A     
 GPO       FII      SPACE  3,14                                                            GPO         3802     A     
 GPO      *         OPERATION IS ZP , SHOULD BE A *S* OR *FMA*                             GPO         3803     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2971    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       GPO         3804     A     
 GPO       FII5     SX7    B2-OC.S                                                         GPO         3805     A     
 GPO                MX1    -R1.INL                                                         GPO         3806     A     
 GPO                LX4    -R1.INP     C = IN[R1]                                          GPO         3807     A     
 GPO                ZR     X7,FII6     IF OC[R1] = OC.S                                    GPO         3808     A     
 GPO                SX7    B2-OC.FMA                                                       GPO         3809     A     
 GPO                NZ     X7,FII10    IF OC[R1] " OC.FMA                                  GPO         3810     A     
 GPO                SB2    X4-1                                                            GPO         3811     A     
 GPO                MX2    1                                                               GPO         3812     A     
 GPO                AX4    B2,X2       C = SHIFT( 1S59 , -(C-1) )                          GPO         3813     A     
 GPO                                                                                       GPO         3814     A     
 GPO       FII6     ZR     X5,FII7     IF BIAS = 0                                         GPO         3815     A     
 GPO                BX4    -X4         C = -C                                              GPO         3816     A     
 GPO       FII7     BX4    -X1*X4                                                          GPO         3817     A     
 GPO                PX6    X4          ITW = PACK( 0 , C )                                 GPO         3818     A     
 GPO                EQ     FII1                                                            GPO         3819     A     
 GPO                                                                                       GPO         3820     A     
 GPO       FII10    EQU    FII+1S17    COMPILER ERROR                                      GPO         3821     A     
 GPO       MIP      TITLE  MIP - MARK INTEGER POLYNOMIALS                                  GPO         3822     A     
 GPO      **        MIP - MARK INTEGER POLYNOMIALS AND MERGE ONTO CHAIN OF *INV*           GPO         3823     A     
 GPO      *         INSTRUCTIONS.                                                          GPO         3824     A     
 GPO      *         FOWARD SCAN TO FORM A LIST OF INTEGER POLYNOMIALS ( *IP*"S ).          GPO         3825     A     
 GPO      *         FOLLOWED BY A BACKWARDS SCAN OVER THE LIST TO MERGE THEM               GPO         3826     A     
 GPO      *         ONTO THE *IIC*.  DURING THE MARKING PHASE WE COMPUTE THE               GPO         3827     A     
 GPO      *         *COST* OF AN *IP*, WHICH IS AN APPROXIMATE MEASURE OF THE              GPO         3828     A     
 GPO      *         NUMBER OF TERMS IN IT.  THE DIFFERENCE BETWEEN THE COST OF             GPO         3829     A     
 GPO      *         AN *IP* AND ITS INCREMENT FORMULA ( 2 OR 3 ) IS AN APPROXIMATE         GPO         3830     A     
 GPO      *         MEASURE OF THE PROFIT IN CREATING A COMPILER TEMPORARY .               GPO         3831     A     
 GPO                                                                                       GPO         3832     A     
 GPO                QUAL   MIP                                                             GPO         3833     A     
 GPO                                                                                       GPO         3834     A     
 GPO       MIP0     BSS    0                                                               GPO         3835     A     
 GPO                TRACE  MIP,RLIST,SEQ                                                   GPO         3836     A     
 GPO                                                                                       GPO         3837     A     
 GPO       MIP      ROUTINE                                                                GPO         3838     A     
 GPO                SA1    L.SEQ                                                           GPO         3839     A     
 GPO                AX1    2                                                               GPO         3840     A     
 GPO                ALLOC  RND,X1      ALLOC( RND , L.SEQ/4 )                              GPO         3841     A     
 GPO                SA3    O.UDT                                                           GPO         3842     A     
 GPO                SA4    O.SEQ                                                           GPO         3843     A     
 GPO                MX7    0                                                               GPO         3844     A     
 GPO                SB5    X2                                                              GPO         3845          I
          -FCC0717
 GPO                SB5    B0          LEI = 0       */ LAST ENCOUNTERED *INC* ST          FCC0717        8     A     
 GPO                SA7    L.RND       L.RND = 0                                           GPO         3846     A     
 GPO                SA7    X2          PI = O.RND;  [PI] = 0                               GPO         3847     A     
 GPO                SB4    59-D.INCP                                                       GPO         3848     A     
 GPO                S"UB"  X3          UB = O.UDT                                          GPO         3849     A     
 GPO                SB3    3                                                               GPO         3850     A     
 GPO                MX1    -I.COSTL                                                        GPO         3851     A     
 GPO                S"TB"  X4+B3       TB = O.SEQ + 3                                      GPO         3852     A     
 GPO                LX1    I.COSTP                                                         GPO         3853     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2972    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA5    X4          R1 = O.SEQ                                          GPO         3854     A     
 GPO                BX6    X5                                                              FCC2271X       5     A     
 GPO                LX6    -IM.APLNL-R1.H2P  ARTICULATION NODE TO SIGN BIT                 FCC2271X       6     A     
 GPO                SA6    AN          MI IFF UNCONDITIONALLY EXECUTED (SAVED IN *         FCC2271X       7     A     
 GPO                EQ     MIP2                                                            GPO         3855     A     
 GPO       MIP      SPACE  3                                                               GPO         3856     A     
 GPO      *         ADD INSTRUCTION TO *IP* LIST                                           GPO         3857          I
          -FCC0717
 GPO      *         ADD INSTRUCTION TO *IP* LIST, (A6,X6) = LI, [LI]                       FCC0717        9     A     
 GPO                                                                                       GPO         3858     A     
 GPO       MIP1     LX4    59-I.INVP                                                       GPO         3859     A     
 GPO                MI     X4,MIP2     IF INV[LI]                                          GPO         3860     A     
 GPO                SX7    A4-"TB"                                                         GPO         3861     A     
 GPO                SA7    A7+B1       PI = PI + 1;  [PI] = LI - TB                        GPO         3862     A     
 GPO                ZR     B5,MIP2     IF LEI = 0    */ NO INCREMENTS YET                  FCC0717       10     A     
 GPO                BX7    X6                                                              FCC0717       11     A     
 GPO                LX7    59-I.LDIP                                                       FCC0717       12     A     
 GPO                MI     X7,MIP2     IF ODD[LDI[LI]]  */ USES NEW VALUE                  FCC0717       13     A     
 GPO                                                                                       FCC0717       14     A     
 GPO      *         IP USES OLD VALUE OF INCREMENT VARIABLE, MARK IT AS *AIP*              FCC0717       15     A     
 GPO      *         IF IT OCCURS PAST A REDEF OF THE INCREMENT VARIABLE.                   FCC0717       16     A     
 GPO                                                                                       FCC0717       17     A     
 GPO                SA3    BSW                                                             FCC0717       18          I
          -FCC1532X 
 GPO                LX3    -BS.STCP                                                        FCC0717       19          I
          -FCC1532X 
 GPO                SB2    X3          J = STC[BSW]  */ FIRST INC ST IN BLOCK              FCC0717       20          I
          -FCC1532X 
 GPO                SA3    SC                                                              FCC1532X       6     A     
 GPO                SB2    X3          J = SC        */ FIRST INC ST IN BLOCK              FCC1532X       7     A     
 GPO                LX6    -I.LDIP     L = LDI[LI]                                         FCC0717       21     A     
 GPO                                                                                       FCC0717       22     A     
 GPO       MIP1A    SA4    "TB"+B2     LIS = TB + J  */ LINK WD OF INC ST                  FCC0717       23     A     
 GPO                SA3    A4-B3       R1S = LIS - 3 */ R1 WORD                            FCC0717       24     A     
 GPO                LX3    -R1.INP                                                         FCC0717       25     A     
 GPO                BX5    X3-X6                                                           FCC0717       26     A     
 GPO                SX2    X5                                                              FCC0717       27     A     
 GPO                ZR     X2,MIP1B    IF IN[R1S] = L  */ SAME VARIABLE                    FCC0717       28     A     
 GPO                LX4    -I.STCP                                                         FCC0717       29     A     
 GPO                SB2    X4+         J = STC[LIS]  */ NEXT ON CHAIN                      FCC0717       30     A     
 GPO                ZR     B2,MIP2     IF J = 0      */ END OF CHAIN                       FCC0717       31     A     
 GPO                LE     B2,B5,MIP1A IF J @ LEI                                          FCC0717       32     A     
 GPO                EQ     MIP2                                                            FCC0717       33     A     
 GPO                                                                                       FCC0717       34     A     
 GPO       MIP1B    SX4    B1                                                              FCC0717       35     A     
 GPO                LX4    I.AIPP                                                          FCC0717       36     A     
 GPO                LX6    I.LDIP                                                          FCC0717       37     A     
 GPO                BX6    X4+X6       AIP[LI] = 1                                         FCC0717       38     A     
 GPO                SA6    A6                                                              FCC0717       39     A     
 GPO                                                                                       GPO         3863     A     
 GPO      *         ADVANCE TO NEXT INSTRUCTION, JUMP TO PROCESSOR                         GPO         3864     A     
 GPO                                                                                       GPO         3865     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2973    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO       MIP2     SA5    A5+4        R1 = R1 + 4                                         GPO         3866     A     
 GPO                SA4    A5+B3       LI = R1 + 3                                         GPO         3867     A     
 GPO                UX6    B2,X5                                                           GPO         3868     A     
 GPO                JP     MIP.JT+B2   JUMP( MIP.JT( OC[R1] ) )                            GPO         3869     A     
 GPO                                                                                       GPO         3870     A     
 GPO       MIPA     BFMW   I,(IP,COST,LDI)                                                 GPO         3871     A     
 GPO       MIPB     BFMW   I,(IIC,LDI)                                                     GPO         3872     A     
 GPO       MIPC     BFMW   I,(IP,C1)                                                       GPO         3873     A     
 GPO       MIPD     BFMW   I,(IP,LDI)                                                      GPO         3874     A     
 GPO       EOQ      SPACE  3,20                                                            GPO         3875          I
          -FCC0717
 GPO       ST       SPACE  3                                                               FCC0717       40     A     
 GPO      *         ST - SET *LEI* IF AN INCREMENT STORE                                   FCC0717       41     A     
 GPO                                                                                       FCC0717       42     A     
 GPO                PROCESS ST                                                             FCC0717       43     A     
 GPO                SA3    A4-B1       DI = LI - 1                                         FCC0717       44          I
          -FCC1504X 
 GPO                BX6    "RN"X5                                                          FCC1504X      19     A     
 GPO                LX5    -R1.INP                                                         FCC1504X      20     A     
 GPO                SA3    "UB"+X5     UI = UDT(IN[R1])                                    FCC1504X      21     A     
 GPO                LX3    59-UD.RFP                                                       FCC1504X      22     A     
 GPO                PL     X3,ST1      IF ^RF[UI]    */ NOT SHORT USE                      FCC1504X      23     A     
 GPO                SB2    "TB"-B1                                                         FCC1504X      24     A     
 GPO                SA3    B2+X6       DIP = TB-1 + RI[R1]                                 FCC1504X      25     A     
 GPO                SX6    B1                                                              FCC1504X      26     A     
 GPO                LX6    D.RFP                                                           FCC1504X      27     A     
 GPO                BX6    X6+X3       RF[DIP] = 1   */ PROPAGATE *RF* TO ST PRED          FCC1504X      28     A     
 GPO                SA6    A3                                                              FCC1504X      29     A     
 GPO                                                                                       FCC1504X      30     A     
 GPO       ST1      SA3    A4-B1       DI = LI - 1                                         FCC1504X      31     A     
 GPO                LX3    59-D.INCP                                                       FCC0717       45     A     
 GPO                PL     X3,MIP2     IF ^INC[DI]                                         FCC0717       46     A     
 GPO                                                                                       FCC0717       47     A     
 GPO                SB5    A4-"TB"     LEI = LI - TB  */ TXT INDEX OF LAST INC ST          FCC0717       48          I
          -FCC1532X 
 GPO                NZ     B5,ST2      IF LEI " 0    */ ^ FIRST INC ST IN BLOCK            FCC1532X       8     A     
 GPO                SX6    A4-"TB"                                                         FCC1532X       9     A     
 GPO                SA6    SC          SC = LI - TB  */ TXT INDEX OF FIRST INC ST          FCC1532X      10     A     
 GPO                                                                                       FCC1532X      11     A     
 GPO       ST2      SB5    A4-"TB"     LEI = LI - TB */ LAST INC ST                        FCC1532X      12     A     
 GPO                EQ     MIP2                                                            FCC0717       49     A     
 GPO       BBM      SPACE 2                                                                FCC0717       50     A     
 GPO      *         BASIC BLOCK MARKER, CLEAR *LEI*                                        FCC0717       51     A     
 GPO                                                                                       FCC0717       52     A     
 GPO                PROCESS (RJ3,RJ6,LAB)                                                  FCC0717       53     A     
 GPO                SB5    B0          LEI = 0                                             FCC0717       54     A     
 GPO                EQ     MIP2                                                            FCC0717       55     A     
 GPO       EOQ      EJECT                                                                  FCC0717       56     A     
 GPO      **        EOQ - MERGE *IP* LIST INTO *ICC* CHAIN                                 GPO         3876     A     
 GPO                                                                                       GPO         3877     A     
 GPO                PROCESS EOQ                                                            GPO         3878     A     
 GPO                SA2    O.RND                                                           FCC0717       57     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2974    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SB5    X2+                                                             FCC0717       58     A     
 GPO                SB4    A7-B5       NP = PI - O.RND                                     GPO         3879     A     
 GPO                SA5    A7          PI = PI                                             GPO         3880     A     
 GPO                LE     B4,B1,MIP0  IF NP @ 1                                           GPO         3881     A     
 GPO                                                                                       GPO         3882     A     
 GPO                SA2    BSW                                                             GPO         3883     A     
 GPO                SA1    MIPB                                                            GPO         3884     A     
 GPO                LX2    -BS.IICP                                                        GPO         3885     A     
 GPO                SB6    I.IICP                                                          GPO         3886     A     
 GPO                SB2    X2          IC = IIC[BSW]                                       GPO         3887     A     
 GPO                SB3    X5          PL = [PI]                                           GPO         3888     A     
 GPO                GT     B3,B2,MIP3  IF PL > IC                                          GPO         3889     A     
 GPO                SB4    B2          LE = IC                                             GPO         3890     A     
 GPO                SA4    "TB"+B2     LI = TB + IC                                        GPO         3891     A     
 GPO                AX7    B6,X4                                                           GPO         3892     A     
 GPO                SB2    X7          IC = IIC[LI]                                        GPO         3893     A     
 GPO                EQ     MIP4                                                            GPO         3894     A     
 GPO                                                                                       GPO         3895     A     
 GPO       MIP3     BX2    X0*X2                                                           GPO         3896     A     
 GPO                BX6    X2+X5       IIC[BSW] = PL */ UPDATE CHAIN POINTER               GPO         3897     A     
 GPO                LX6    BS.IICP                                                         GPO         3898     A     
 GPO                SA6    A2+                                                             GPO         3899     A     
 GPO                SB4    X5          LE = PL                                             GPO         3900     A     
 GPO                SA5    A5-B1       PI = PI - 1                                         GPO         3901     A     
 GPO                SB3    X5          PL = [PI]                                           GPO         3902     A     
 GPO                SA4    "TB"+B4     LI = TB + LE                                        GPO         3903     A     
 GPO                                                                                       GPO         3904     A     
 GPO       MIP4     GT     B2,B3,MIP5  IF IC > PL                                          GPO         3905     A     
 GPO                SX3    B3                                                              GPO         3906     A     
 GPO                BX7    -X1*X4      HBP[LI] = 0                                         GPO         3907     A     
 GPO                LX3    I.IICP                                                          GPO         3908     A     
 GPO                BX6    X3+X7       IIC[LI] = PL                                        GPO         3909     A     
 GPO                SA6    A4                                                              GPO         3910     A     
 GPO                SB4    B3          LE = PL                                             GPO         3911     A     
 GPO                SA5    A5-B1       PI = PI - 1                                         GPO         3912     A     
 GPO                SA4    "TB"+B3     LI = TB + PL                                        GPO         3913     A     
 GPO                SB3    X5+         PL = [PI]                                           GPO         3914     A     
 GPO                NZ     X5,MIP4     IF PL " 0                                           GPO         3915     A     
 GPO                ZR     B2,MIP6     IF IC = 0                                           GPO         3916     A     
 GPO                                                                                       GPO         3917     A     
 GPO       MIP5     SX3    B2                                                              GPO         3918     A     
 GPO                BX7    -X1*X4      HBP[LI] = 0                                         GPO         3919     A     
 GPO                LX3    I.IICP                                                          GPO         3920     A     
 GPO                BX6    X3+X7       IIC[LI] = IC                                        GPO         3921     A     
 GPO                SA6    A4                                                              GPO         3922     A     
 GPO                SB4    B2          LE = IC                                             GPO         3923     A     
 GPO                SA4    "TB"+B2     LI = TB + IC                                        GPO         3924     A     
 GPO                AX7    B6,X4                                                           GPO         3925     A     
 GPO                SB2    X7          IC = IIC[LI]                                        GPO         3926     A     
 GPO                GT     B2,B3,MIP5  IF IC > PL                                          GPO         3927     A     
 GPO                NZ     B3,MIP4     IF PL " 0                                           GPO         3928     A     
 GPO                                                                                       GPO         3929     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2975    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO       MIP6     BX6    -X1*X4      IIC[LI] = HBP[LI] = 0                               GPO         3930     A     
 GPO                SA6    A4                                                              GPO         3931     A     
 GPO                EQ     MIP0                                                            GPO         3932     A     
 GPO       TYII     SPACE  3,8                                                             GPO         3933     A     
 GPO      *         TYPE II - SET *IP* BIT                                                 GPO         3934     A     
 GPO                                                                                       GPO         3935     A     
 GPO                PROCESS (FMA,S)                                                        GPO         3936     A     
 GPO                SX2    B1                                                              GPO         3937     A     
 GPO                LX2    I.IPP                                                           GPO         3938     A     
 GPO                BX6    X2+X4       IP[LI] = 1                                          GPO         3939     A     
 GPO                SA6    A4                                                              GPO         3940     A     
 GPO                EQ     MIP2                                                            GPO         3941     A     
 GPO       LD       SPACE  3,14                                                            GPO         3942     A     
 GPO      *         LD - IF *RD* , THEN SET *IP* BIT , AND *LDI* FIELD IF ^INV             GPO         3943     A     
 GPO                                                                                       GPO         3944     A     
 GPO                PROCESS (LD,ILD)                                                       GPO         3945     A     
 GPO                SA3    A5+B1       R2 = R1 + 1                                         GPO         3946     A     
 GPO                LX5    -R1.INP                                                         GPO         3947     A     
 GPO                SA2    "UB"+X5     UI = UB + IN[R1]                                    GPO         3948     A     
 GPO                LX3    -IH.RFP                                                         GPO         3949     A     
 GPO                BX6    "RN"X3                                                          GPO         3950     A     
 GPO                NZ     X6,MIP2     IF RF[R2] " 0                                       GPO         3951     A     
 GPO                LX2    59-UD.^RDP                                                      GPO         3952     A     
 GPO                MI     X2,MIP2     IF ^RD[UI]                                          GPO         3953     A     
 GPO                                                                                       GPO         3954     A     
 GPO                SA3    MIPC                                                            GPO         3955     A     
 GPO                BX6    X3+X4       IP[LI] = 1;  COST[LI] = 1                           GPO         3956     A     
 GPO                LX4    59-I.INVP                                                       GPO         3957     A     
 GPO                MI     X4,LD1      IF INV[LI]                                          GPO         3958     A     
 GPO                                                                                       GPO         3959     A     
 GPO                SX7    A4-"TB"                                                         GPO         3960     A     
 GPO                SX5    X5                                                              GPO         3961     A     
 GPO                SA7    A7+B1       PI = PI + 1;  [PI] = LI - TB                        GPO         3962     A     
 GPO                LX5    I.LDIP      LDI[LI] = IN[R1]                                    GPO         3963     A     
 GPO                BX6    X6+X5                                                           GPO         3964     A     
 GPO       LD1      SA6    A4                                                              GPO         3965     A     
 GPO                EQ     MIP2                                                            GPO         3966     A     
 GPO       XMTC     SPACE  2,8                                                             GPO         3967     A     
 GPO                PROCESS XMTC                                                           GPO         3968     A     
 GPO                LX5    -R1.RJP                                                         GPO         3969     A     
 GPO                SA2    MIPA                                                            GPO         3970     A     
 GPO                BX6    "RN"X5                                                          GPO         3971     A     
 GPO                SA3    "TB"+X6     LJ = TB + RJ[R1]                                    GPO         3972     A     
 GPO                SX7    B1                                                              GPO         3973     A     
 GPO                BX6    X2*X3                                                           GPO         3974     A     
 GPO                LX3    59-I.IPP                                                        GPO         3975     A     
 GPO                PL     X3,MIP2     IF ^IP[LJ]                                          GPO         3976     A     
 GPO                                                                                       GPO         3977     A     
 GPO                BX6    X6+X4       (IP,COST,LDI)[LI] = (IP,COST,LDI)[LJ]               GPO         3978     A     
 GPO                LX7    I.COSTP                                                         GPO         3979     A     
 GPO                IX6    X7+X6       COST[LI] = COST[LI] + 1                             GPO         3980     A     
 GPO                SA6    A4                                                              GPO         3981     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2976    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                EQ     MIP1                                                            GPO         3982     A     
 GPO       SXT      EJECT                                                                  GPO         3983     A     
 GPO      *         SXT - CONSTANT SHIFT PREDECESSOR                                       GPO         3984     A     
 GPO                                                                                       GPO         3985     A     
 GPO                PROCESS SXT                                                            GPO         3986     A     
 GPO                LX5    -R1.RJP                                                         GPO         3987     A     
 GPO                SA2    MIPA                                                            GPO         3988     A     
 GPO                BX7    "RN"X5                                                          GPO         3989     A     
 GPO                SA3    "TB"+X7     LJ = TB + RJ[R1]                                    GPO         3990     A     
 GPO                SA5    A4+B1       R1 = LI + 1   */ ADVANCE TO CON SHIFT               GPO         3991     A     
 GPO                BX6    X2*X3                                                           GPO         3992     A     
 GPO                LX3    59-I.IPP                                                        GPO         3993     A     
 GPO                PL     X3,MIP2     IF ^IP[LJ]                                          GPO         3994     A     
 GPO                                                                                       GPO         3995     A     
 GPO                UX2    B2,X5                                                           GPO         3996     A     
 GPO                SA3    A5+B1       R2 = R1 + 1                                         GPO         3997     A     
 GPO                SB2    B2-OC.KLS                                                       GPO         3998     A     
 GPO                NZ     B2,MIP2     IF OC[R1] " OC.KLS                                  GPO         3999     A     
 GPO                LX3    -IH.CAP                                                         GPO         4000     A     
 GPO                SB2    X3-17                                                           GPO         4001     A     
 GPO                SX7    A4-"TB"                                                         GPO         4002     A     
 GPO                PL     B2,MIP2     IF CA[R2] \ 17  */ SHIFT COUNT TOO BIG              GPO         4003     A     
 GPO                                                                                       GPO         4004     A     
 GPO                LX4    59-I.INVP                                                       GPO         4005     A     
 GPO                MI     X4,SXT1     IF INV[LI]                                          GPO         4006     A     
 GPO                SA7    A7+B1       PI = PI + 1;  [PI] = LI - TB                        GPO         4007     A     
 GPO                SX7    X7+4                                                            GPO         4008          I
          -FCC0717
 GPO                SA7    A7+B1       PI = PI + 1;  [PI] = LI+4 - TB                      GPO         4009          I
          -FCC0717
 GPO                                                                                       GPO         4010     A     
 GPO       SXT1     SA4    A5+B3       LI = R1 + 3                                         GPO         4011     A     
 GPO                SX7    B1                                                              GPO         4012     A     
 GPO                BX6    X6+X4       (IP,COST,LDI)[LI] = (IP,COST,LDI)[LJ]               GPO         4013     A     
 GPO                LX7    I.COSTP                                                         GPO         4014     A     
 GPO                IX6    X7+X6       COST[LI] = COST[LI] + 1                             GPO         4015     A     
 GPO                SA6    A4                                                              GPO         4016     A     
 GPO                EQ     MIP2                                                            GPO         4017          I
          -FCC0717
 GPO                EQ     MIP1                                                            FCC0717       59     A     
 GPO       IM       SPACE  3,10                                                            GPO         4018     A     
 GPO                PROCESS IM                                                             GPO         4019     A     
 GPO                LX5    -R1.RJP                                                         GPO         4020     A     
 GPO                BX6    "RN"X5                                                          GPO         4021     A     
 GPO                LX5    R1.RJP-R1.RKP                                                   GPO         4022     A     
 GPO                SA2    "TB"+X6     LJ = TB + RJ[R1]                                    GPO         4023     A     
 GPO                BX7    "RN"X5                                                          GPO         4024     A     
 GPO                SA3    "TB"+X7     LK = TB + RK[R1]                                    GPO         4025     A     
 GPO                BX6    X2*X3                                                           GPO         4026     A     
 GPO                LX6    59-I.IPP                                                        GPO         4027     A     
 GPO                PL     X6,MIP2     IF ^( IP[LJ] & IP[LK] )                             GPO         4028     A     
 GPO                                                                                       GPO         4029     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2977    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                BX7    X2+X3       LJK = [LJ] ! [LK]                                   GPO         4030     A     
 GPO                SX5    B3          ICOST = 3                                           GPO         4031     A     
 GPO                LX7    59-I.INVP                                                       GPO         4032     A     
 GPO                MI     X7,IA1      IF INV[LJ] ! INV[LK]                                GPO         4033          I
          -FCC2271X 
 GPO                                                                                       GPO         4034          I
          -FCC2271X 
 GPO                EQ     MIP2                                                            GPO         4035          I
          -FCC2271X 
 GPO                PL     X7,MIP2     IF NEITHER INVARIANT                                FCC2271X       8     A     
 GPO                SA4    AN                                                              FCC2271X       9     A     
 GPO                MI     X4,IM5      IF UNCONDTIONALLY EXECUTED                          FCC2271X      10     A     
 GPO                SA2    A2-B1       DJ = LJ - 1                                         FCC2271X      11     A     
 GPO                CALL   CMO         CHECK SAFETY OF J OPERAND                           FCC2271X      12     A     
 GPO                SA2    A3-B1       DK = LK - 1                                         FCC2271X      13     A     
 GPO                ZR     X6,IM1      IF J IS SAFE                                        FCC2271X      14     A     
 GPO                CALL   CMO         CHECK SAFETY OF K OPERAND                           FCC2271X      15     A     
 GPO                ZR     X6,IM2      IF K IS SAFE                                        FCC2271X      16     A     
 GPO                EQ     MIP2        NOT SAFE (NEITHER OPERAND)                          FCC2271X      17     A     
 GPO                                                                                       FCC2271X      18     A     
 GPO       IM1      CALL   CMO         CHECK SAFETY OF K (J IS SAFE)                       FCC2271X      19     A     
 GPO                ZR     X6,IM4      IF K IS SAFE                                        FCC2271X      20     A     
 GPO                                                                                       FCC2271X      21     A     
 GPO      *         ONE OPERAND SAFE.  MARK MULTIPLY UNSAFE SO *SQZ* WILL                  FCC2271X      22     A     
 GPO      *         INSERT AN UNPACK, AND HOIST.                                           FCC2271X      23     A     
 GPO                                                                                       FCC2271X      24     A     
 GPO       IM2      SA4    A5+2        DI = RI + 2                                         FCC2271X      25     A     
 GPO                SX6    B1                                                              FCC2271X      26     A     
 GPO                LX6    D.USIP                                                          FCC2271X      27     A     
 GPO                BX6    X6+X4       USI[DI] = 1                                         FCC2271X      28     A     
 GPO                SA6    A4                                                              FCC2271X      29     A     
 GPO                                                                                       FCC2271X      30     A     
 GPO      *         MULTIPLY CAN BE HOISTED WITH IMPUNITY.                                 FCC2271X      31     A     
 GPO                                                                                       FCC2271X      32     A     
 GPO       IM4      SA5    A5                                                              FCC2271X      33     A     
 GPO                LX5    -R1.RJP                                                         FCC2271X      34     A     
 GPO                BX6    "RN"X5                                                          FCC2271X      35     A     
 GPO                SA2    "TB"+X6     RESTORE LJ                                          FCC2271X      36     A     
 GPO                SA4    A5+3        RETORE LI                                           FCC2271X      37     A     
 GPO                BX7    X2+X3       RESTORE LJK                                         FCC2271X      38     A     
 GPO                SX5    B3          ICOST = 3                                           FCC2271X      39     A     
 GPO                EQ     IA1                                                             FCC2271X      40     A     
 GPO                                                                                       FCC2271X      41     A     
 GPO       IM5      SA4    A5+3        RESTORE LI                                          FCC2271X      42     A     
 GPO                EQ     IA1                                                             FCC2271X      43     A     
 GPO       ADDS     EJECT                                                                  GPO         4036     A     
 GPO      **        ADDS - ONLY ALLOW *IP*"S IN 1 VARIABLE                                 GPO         4037     A     
 GPO                                                                                       GPO         4038     A     
 GPO                PROCESS (IA,IS)                                                        GPO         4039     A     
 GPO                SA3    A4-B1       DI = LI - 1                                         GPO         4040     A     
 GPO                LX5    -R1.RJP                                                         GPO         4041     A     
 GPO                BX6    "RN"X5                                                          GPO         4042     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2978    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                LX5    R1.RJP-R1.RKP                                                   GPO         4043     A     
 GPO                BX7    "RN"X5                                                          GPO         4044     A     
 GPO                SA2    "TB"+X6     LJ = TB + RJ[R1]                                    GPO         4045     A     
 GPO                LX5    B4,X3                                                           GPO         4046     A     
 GPO                SA3    "TB"+X7     LK = TB + RK[R1]                                    GPO         4047     A     
 GPO                BX6    X2*X3                                                           GPO         4048     A     
 GPO                LX6    59-I.IPP                                                        GPO         4049     A     
 GPO                PL     X6,IA3      IF ^( IP[LJ] & IP[LK] )                             GPO         4050     A     
 GPO                                                                                       GPO         4051     A     
 GPO                BX7    X2+X3       LJK = [LJ] ! [LK]                                   GPO         4052     A     
 GPO                MI     X5,IA2      IF INC[DI]                                          GPO         4053     A     
 GPO                SX5    B1          ICOST = 1                                           GPO         4054     A     
 GPO                LX7    59-I.INVP                                                       GPO         4055     A     
 GPO                MI     X7,IA1      IF INV[LJ] ! INV[LK]                                GPO         4056     A     
 GPO                                                                                       GPO         4057     A     
 GPO      *         BOTH ^INV, MAKE SURE VARIABLES ARE THE SAME                            GPO         4058     A     
 GPO                                                                                       GPO         4059     A     
 GPO                BX6    X2-X3                                                           GPO         4060     A     
 GPO                LX6    -I.LDIP                                                         GPO         4061     A     
 GPO                SB2    X6                                                              GPO         4062     A     
 GPO                NZ     B2,MIP2     IF LDI[LJ] " LDI[LK]                                GPO         4063     A     
 GPO                                                                                       GPO         4064     A     
 GPO                NZ     X6,IA1      IF [LJ] " [LK]                                      GPO         4065     A     
 GPO                MX3    0           COST[LK] = 0  */ IN REGS ONLY                       GPO         4066     A     
 GPO                                                                                       GPO         4067     A     
 GPO      *         ADD INSTRUCTION TO *IP* LIST, COST = ICOST + SIGMA(COST[PRED])         GPO         4068     A     
 GPO                                                                                       GPO         4069     A     
 GPO       IA1      BX6    -X1*X2                                                          GPO         4070     A     
 GPO                SA2    MIPD                                                            GPO         4071     A     
 GPO                LX5    I.COSTP                                                         GPO         4072     A     
 GPO                BX3    -X1*X3                                                          GPO         4073     A     
 GPO                IX4    X4+X5       COST[LI] = ICOST                                    GPO         4074     A     
 GPO                LX7    1+I.INVP                                                        GPO         4075     A     
 GPO                BX7    X2*X7       IP[LI] = 1;  LDI[LI] = LDI[LJK]                     GPO         4076     A     
 GPO                IX6    X3+X6                                                           GPO         4077     A     
 GPO                BX4    X7+X4                                                           GPO         4078     A     
 GPO                IX6    X6+X4       COST[LI] = COST[LI] + COST[LJ] + COST[LK]           GPO         4079     A     
 GPO                SA6    A4+                                                             GPO         4080     A     
 GPO                EQ     MIP1                                                            GPO         4081     A     
 GPO                                                                                       GPO         4082     A     
 GPO      *         INCREMENT, SET COST = 1, SINCE ANY USES OF IT ARE USES OF A            GPO         4083     A     
 GPO      *         *LD* OF THE REDEFINED VARIABLE.                                        GPO         4084          I
          -FCC0656
 GPO      *         LD OF THE REDEF VAR, BUMP LDI TO INDICATE NEW VARIABLE.                FCC0656       44     A     
 GPO                                                                                       GPO         4085     A     
 GPO       IA2      SA2    MIPC                                                            GPO         4086     A     
 GPO                LX7    -I.LDIP                                                         GPO         4087     A     
 GPO                SX7    X7                                                              GPO         4088          I
          -FCC0656
 GPO                SX7    X7+B1       LDI[LI] = LDI[LJK] + 1 */ MARK NEW VAR              FCC0656       45     A     
 GPO                LX7    I.LDIP                                                          GPO         4089     A     
 GPO                BX4    X7+X4       LDI[LI] = LDI[LJK]                                  GPO         4090          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2979    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
          -FCC0656
 GPO                BX4    X7+X4                                                           FCC0656       46     A     
 GPO                BX6    X2+X4       IP[LI] = 1;  COST[LI] = 1                           GPO         4091     A     
 GPO                SA6    A4                                                              GPO         4092     A     
 GPO                EQ     MIP1                                                            GPO         4093     A     
 GPO       IA       SPACE  1,10                                                            GPO         4094     A     
 GPO      *         CHECK FOR *IA* + *INV*, AND MARK *IA* IF SO                            GPO         4095     A     
 GPO                                                                                       GPO         4096     A     
 GPO       IA3      BX7    X2+X3                                                           GPO         4097     A     
 GPO                LX7    59-I.INVP                                                       GPO         4098     A     
 GPO                PL     X7,MIP2     IF ^( INV[LJ] ! INV[LK] )                           GPO         4099     A     
 GPO                LX7    I.INVP-I.IAP                                                    GPO         4100     A     
 GPO                PL     X7,MIP2     IF ^( IA[LJ] ! IA[LK] )                             GPO         4101     A     
 GPO                                                                                       GPO         4102     A     
 GPO                SX7    B1                                                              GPO         4103     A     
 GPO                LX7    I.IAP                                                           GPO         4104     A     
 GPO                BX6    X7+X4       IA[LI] = 1                                          GPO         4105     A     
 GPO                SA6    A4                                                              GPO         4106     A     
 GPO                EQ     MIP2                                                            GPO         4107     A     
 GPO       STT      SPACE  2,14                                                            GPO         4108     A     
 GPO      *         STT - PROPAGATE *IA* BIT UP FOR USE BY *JPX* PROCESSOR                 GPO         4109     A     
 GPO                                                                                       GPO         4110     A     
 GPO                PROCESS STT                                                            GPO         4111     A     
 GPO                SA3    A5+B1       R2 = R1 + 1                                         GPO         4112     A     
 GPO                SX7    B1                                                              GPO         4113     A     
 GPO                LX3    -IH.IHP                                                         GPO         4114     A     
 GPO                SB2    X3                                                              GPO         4115     A     
 GPO                LX3    IH.IHP-IH.RFP                                                   GPO         4116     A     
 GPO                LX7    I.IAP                                                           GPO         4117     A     
 GPO                BX6    "RN"X3                                                          GPO         4118     A     
 GPO                SA2    "TB"+X6     LIP = TB + RF[R2]                                   GPO         4119     A     
 GPO                BX7    X7*X2                                                           GPO         4120     A     
 GPO                BX6    X7+X4       IA[LI] = IA[LIP]                                    GPO         4121     A     
 GPO                SA6    A4                                                              GPO         4122     A     
 GPO                                                                                       GPO         4123     A     
 GPO      *         ADD TO *IP* LIST IF NOT *PS* OR *PRS* ( UNPROFITABLE CASES )           GPO         4124     A     
 GPO                                                                                       GPO         4125     A     
 GPO                SA3    A3+B1       DI = R2 + 1                                         GPO         4126     A     
 GPO                MX7    -D.STRSL                                                        GPO         4127     A     
 GPO                LX3    -D.STRSP                                                        GPO         4128          I
          -FCC0717
 GPO                LX7    D.STRSP                                                         FCC0717       60     A     
 GPO                BX7    -X7*X3                                                          GPO         4129     A     
 GPO                NZ     X7,MIP2     IF STRS[DI] " 0  */ *INC* OR INIT CODE              GPO         4130     A     
 GPO                ZR     B2,STT1     IF IH[R2] = 0                                       GPO         4131     A     
 GPO                                                                                       GPO         4132     A     
 GPO                SB2    A2-"TB"                                                         GPO         4133     A     
 GPO                NZ     B2,MIP2     IF RF[R2] " 0                                       GPO         4134     A     
 GPO                EQ     .S                                                              GPO         4135     A     
 GPO                                                                                       GPO         4136     A     
 GPO       STT1     LX2    59-I.IPP                                                        GPO         4137     A     
 GPO                PL     X2,MIP2     IF ^IP[LIP]                                         GPO         4138     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2980    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                LX2    1+I.IPP                                                         GPO         4139     A     
 GPO                SA3    MIPA                                                            GPO         4140     A     
 GPO                BX7    X2*X3                                                           GPO         4141     A     
 GPO                BX6    X6+X7       (IP,COST,LDI)[LI] = (IP,COST,LDI)[LIP]              GPO         4142     A     
 GPO                SA6    A6                                                              GPO         4143     A     
 GPO                EQ     MIP1                                                            GPO         4144     A     
 GPO       JPX      EJECT                                                                  GPO         4145     A     
 GPO      *         JPX - CHECK FOR LOOP BACK JUMP, AND IF SO COLLECT INFORMATION          GPO         4146     A     
 GPO      *         FOR TEST REPLACEMENT IN *GRA*.  STATEMENTS OF THE FORM -               GPO         4147     A     
 GPO      *         IF( I @ LIM ) GO TO LIH  RI = LIM - I ;  PL  RI,LIH                    GPO         4148     A     
 GPO      *         IF( I < LIM ) GO TO LIH  RI = I - LIM ;  MI  RI,LIH                    GPO         4149     A     
 GPO      *         ARE THE PATTERNS THAT WE LOOK FOR HERE.                                GPO         4150     A     
 GPO                                                                                       GPO         4151     A     
 GPO                PROCESS JPX                                                            GPO         4152     A     
 GPO                SA2    N.LJ                                                            GPO         4153     A     
 GPO                SA3    LIH                                                             GPO         4154     A     
 GPO                SA4    A5+B1       R2 = R1 + 1                                         GPO         4155     A     
 GPO                SB2    X2                                                              GPO         4156     A     
 GPO                BX7    X3-X4                                                           GPO         4157     A     
 GPO                SX6    X7                                                              GPO         4158     A     
 GPO                NE     B2,B1,MIP2  IF N.LJ " 1                                         GPO         4159     A     
 GPO                NZ     X6,MIP2     IF IH[R2] " LIH                                     GPO         4160     A     
 GPO                LX4    -IH.CAP                                                         GPO         4161     A     
 GPO                SB4    X4-2        JPT = CA[R2] - 2                                    GPO         4162     A     
 GPO                SB2    "TB"-B3                                                         GPO         4163     A     
 GPO                MI     B4,MIP2     IF JPT @ 0    */ ZR, NZ JUMPS                       GPO         4164     A     
 GPO                GT     B4,B1,MIP2  IF JPT > 1    */ RANGE CHECK JUMPS                  GPO         4165     A     
 GPO                                                                                       GPO         4166     A     
 GPO      *         FIND UPPER LIMIT VALUE AND SAVE IN *LUL*                               GPO         4167     A     
 GPO                                                                                       GPO         4168     A     
 GPO                SA4    B2+X5       RIP = TB-3 + RI[R1]                                 GPO         4169     A     
 GPO                UX6    B2,X4                                                           GPO         4170     A     
 GPO                SX7    B2-OC.STT                                                       GPO         4171     A     
 GPO                NZ     X7,JPX1     IF OC[R1P] " OC.STT                                 GPO         4172     A     
 GPO                                                                                       GPO         4173     A     
 GPO                NE     B4,B1,MIP2  IF JPT " 1    */ NOT *MI* JUMP                      GPO         4174     A     
 GPO                SA3    A4+B1       R2P = R1P + 1                                       GPO         4175     A     
 GPO                LX3    -IH.CAP                                                         GPO         4176     A     
 GPO                MX2    IH.CAL                                                          GPO         4177     A     
 GPO                SX4    X3+B1                                                           GPO         4178     A     
 GPO                LX2    IH.CAL                                                          GPO         4179     A     
 GPO                BX7    -X4*X2                                                          GPO         4180     A     
 GPO                PX6    X7          ULW = PACK( 0 , -(CA[R2P]+1) )                      GPO         4181     A     
 GPO                LX3    IH.CAP-IH.RFP                                                   GPO         4182     A     
 GPO                BX5    "RN"X3      R = RF[R2P]                                         GPO         4183     A     
 GPO                EQ     JPX5                                                            GPO         4184     A     
 GPO                                                                                       GPO         4185     A     
 GPO       JPX1     SX7    B2-OC.IS                                                        GPO         4186     A     
 GPO                NZ     X7,MIP2     IF OC[R1P] " OC.IS                                  GPO         4187     A     
 GPO                                                                                       GPO         4188     A     
 GPO      *         CHECK LIMIT OPERAND OF *IS*                                            GPO         4189     A     
 GPO                                                                                       GPO         4190     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2981    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA3    A4+B3       LIP = R1P + 3                                       GPO         4191     A     
 GPO                MX7    2                                                               GPO         4192     A     
 GPO                LX3    58-I.IAIPP                                                      GPO         4193     A     
 GPO                BX7    X3*X7                                                           GPO         4194     A     
 GPO                ZR     X7,MIP2     IF ^( IA[LIP] ! IP[LIP] )                           GPO         4195     A     
 GPO                                                                                       GPO         4196     A     
 GPO                LX4    -R1.RJP                                                         GPO         4197     A     
 GPO                NZ     B4,JPX2     IF JPT " 0                                          GPO         4198     A     
 GPO                                                                                       GPO         4199     A     
 GPO                BX7    "RN"X4      LRN = RJ[R1P] */ LIMIT R-NUMBER                     GPO         4200     A     
 GPO                LX4    R1.RJP-R1.RKP                                                   GPO         4201     A     
 GPO                BX5    "RN"X4      R = RK[R1P]                                         GPO         4202     A     
 GPO                EQ     JPX3                                                            GPO         4203     A     
 GPO                                                                                       GPO         4204     A     
 GPO       JPX2     BX5    "RN"X4      R = RJ[R1P]                                         GPO         4205     A     
 GPO                LX5    R1.RJP-R1.RKP                                                   GPO         4206     A     
 GPO                BX7    "RN"X4      LRN = RK[R1P]                                       GPO         4207     A     
 GPO                                                                                       GPO         4208     A     
 GPO       JPX3     SB2    "TB"-B1                                                         GPO         4209     A     
 GPO                SA2    B2+X7       DIP = TB-1 + LRN                                    GPO         4210     A     
 GPO                SA4    A2-2        R1P = DIP - 2                                       GPO         4211     A     
 GPO                LX2    59-D.ZPP                                                        GPO         4212     A     
 GPO                PL     X2,MIP2     IF ^ZP[DIP]   */ NOT *LD* OR *S*                    GPO         4213     A     
 GPO                LX2    D.ZPP-D.LDP                                                     GPO         4214     A     
 GPO                PL     X2,JPX4     IF ^LD[DIP]                                         GPO         4215     A     
 GPO                LX2    D.LDP-D.TYP-1                                                   GPO         4216     A     
 GPO                PL     X2,MIP2     IF TYPE[DIP] " III                                  GPO         4217     A     
 GPO                                                                                       GPO         4218     A     
 GPO                NZ     B4,MIP2     IF JPT " 0    */ CANT ADD 1 TO UPPER LIMIT          GPO         4219     A     
 GPO                SA3    A4+B1       R2P = R1P + 1                                       GPO         4220     A     
 GPO                MX2    -IH.CAIHL                                                       GPO         4221     A     
 GPO                LX4    -R1.INP                                                         GPO         4222     A     
 GPO                SX4    X4                                                              GPO         4223     A     
 GPO                BX2    -X2*X3                                                          GPO         4224     A     
 GPO                LX4    PS.UDIP                                                         GPO         4225     A     
 GPO                BX7    X4+X2                                                           GPO         4226     A     
 GPO                PX6    B1,X7       ULW = PACK( 1 , IN[R1P] , CAIH[R2P] )               GPO         4227     A     
 GPO                EQ     JPX5                                                            GPO         4228     A     
 GPO                                                                                       GPO         4229     A     
 GPO       JPX4     UX6    B2,X4                                                           GPO         4230     A     
 GPO                SX7    B2-OC.S                                                         GPO         4231     A     
 GPO                LX4    -R1.INP                                                         GPO         4232     A     
 GPO                NZ     X7,MIP2     IF OC[R1P] " OC.S                                   GPO         4233     A     
 GPO                SB2    -B4                                                             GPO         4234     A     
 GPO                SX4    X4+B2                                                           GPO         4235     A     
 GPO                MX3    -IH.CAL                                                         GPO         4236     A     
 GPO                BX7    -X3*X4                                                          GPO         4237     A     
 GPO                PX6    X7          ULW = PACK( 0 , IN[R1P]-JPT )                       GPO         4238     A     
 GPO                                                                                       GPO         4239     A     
 GPO      *         NOW CHECK FOR THE INDEX, IT MUST BE *RD* IN THE LOOP.                  GPO         4240     A     
 GPO                                                                                       GPO         4241     A     
 GPO       JPX5     SA4    "TB"+X5     LIP = TB + R                                        GPO         4242     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2982    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                LX4    59-I.IAP                                                        GPO         4243     A     
 GPO                SA6    LUL         LUL = ULW                                           GPO         4244     A     
 GPO                PL     X4,JPX7     IF ^IA[LIP]                                         GPO         4245     A     
 GPO                                                                                       GPO         4246     A     
 GPO      *         PRED IS *IA* ( IA,IS,STT ) , GET ^INV PRED OF THIS INSTRUCTION         GPO         4247     A     
 GPO                                                                                       GPO         4248     A     
 GPO                SA3    A4-B1       DIP = LIP - 1                                       GPO         4249     A     
 GPO                LX3    58-D.TYP                                                        GPO         4250     A     
 GPO                PL     X3,JPX6     IF TYPE[DIP] = I                                    GPO         4251     A     
 GPO                SA2    A3-B1       R2P = DIP - 1                                       GPO         4252     A     
 GPO                LX2    -IH.RFP                                                         GPO         4253     A     
 GPO                BX5    "RN"X2      R = RF[R2P]                                         GPO         4254     A     
 GPO                EQ     JPX7                                                            GPO         4255     A     
 GPO                                                                                       GPO         4256     A     
 GPO       JPX6     SA3    A4-B3       R1P = LIP - 3                                       GPO         4257     A     
 GPO                LX3    -R1.RJP                                                         GPO         4258     A     
 GPO                BX5    "RN"X3      R = RJ[R1P]                                         GPO         4259     A     
 GPO                SA4    "TB"+X5     LIP = TB + R                                        GPO         4260     A     
 GPO                LX4    59-I.INVP                                                       GPO         4261     A     
 GPO                PL     X4,JPX7     IF ^INV[LIP]                                        GPO         4262     A     
 GPO                LX3    R1.RJP-R1.RKP                                                   GPO         4263     A     
 GPO                BX5    "RN"X3      R = RK[R1P]                                         GPO         4264     A     
 GPO                                                                                       GPO         4265     A     
 GPO      *         CHECK FOR *LD* OF A *RD* VARIABLE                                      GPO         4266     A     
 GPO                                                                                       GPO         4267     A     
 GPO       JPX7     SB2    "TB"-B3                                                         GPO         4268     A     
 GPO                SA4    B2+X5       R1P = TB-3 + R                                      GPO         4269     A     
 GPO                UX6    B2,X4                                                           GPO         4270     A     
 GPO                LX4    -R1.INP                                                         GPO         4271     A     
 GPO                SX7    B2-OC.LD                                                        GPO         4272     A     
 GPO                NZ     X7,MIP2     IF OC[R1P] " OC.LD                                  GPO         4273     A     
 GPO                SA2    "UB"+X4     UI = UB + IN[R1]                                    GPO         4274     A     
 GPO                LX2    59-UD.^RDP                                                      GPO         4275     A     
 GPO                MI     X2,MIP2     IF ^RD[UI]    */ VAR NOT ^RD IN LOOP                GPO         4276     A     
 GPO                                                                                       GPO         4277     A     
 GPO      *         TEST REPLACEMENT POSSIBLE, SET FLAGS FOR *GRA*                         GPO         4278     A     
 GPO                                                                                       GPO         4279     A     
 GPO                SA3    A4+B1       R2P = R1P + 1                                       GPO         4280     A     
 GPO                MX2    -IH.CAIHL                                                       GPO         4281     A     
 GPO                SA5    A5          R1 = R1                                             GPO         4282     A     
 GPO                SX4    X4                                                              GPO         4283     A     
 GPO                BX2    -X2*X3                                                          GPO         4284     A     
 GPO                SB2    "TB"-B1                                                         GPO         4285     A     
 GPO                LX4    PS.UDIP                                                         GPO         4286     A     
 GPO                BX7    X4+X2                                                           GPO         4287     A     
 GPO                SA4    B2+X5       DIP = TB-1 + RI[R1]                                 GPO         4288     A     
 GPO                PX6    B1,X7                                                           GPO         4289     A     
 GPO                SA6    LCV         LCV = PACK( 1 , IN[R1P] , CAIH[R2P] )               GPO         4290     A     
 GPO                SX6    B1                                                              GPO         4291     A     
 GPO                SA6    LTT         LTT = 1       */ LOOP TEST TYPE                     GPO         4292     A     
 GPO                LX6    D.INCP                                                          GPO         4293     A     
 GPO                BX6    X4+X6       INC[DIP] = 1  */ PRED OF *JPX* IS TEST USE          GPO         4294     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2983    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA6    A4                                                              GPO         4295     A     
 GPO                SA4    A5+2        DI = R1 + 2                                         GPO         4296     A     
 GPO                SX6    B1                                                              GPO         4297     A     
 GPO                LX6    D.INCP                                                          GPO         4298     A     
 GPO                BX6    X6+X4       INC[DI] = 1   */ MARK *JPX* AS LOOP TEST JUMP       GPO         4299     A     
 GPO                SA6    A4                                                              GPO         4300     A     
 GPO                EQ     MIP2                                                            GPO         4301     A     
 GPO                                                                                       GPO         4302     A     
 GPO                QUAL   *                                                               GPO         4303     A     
 GPO                                                                                       GPO         4304     A     
 GPO       MIP      EQU    /MIP/MIP                                                        GPO         4305     A     
 GPO       MIE      TITLE  MIE - MOVE INVARIANT EXPRESSIONS                                GPO         4306     A     
 GPO      **        MIE - MOVE INVARIANT EXPRESSIONS AND TERMINAL POLYNOMIALS TO           GPO         4307     A     
 GPO      *         HOLDING BLOCK.                                                         GPO         4308     A     
 GPO      *                                                                                GPO         4309     A     
 GPO      *         THE CHIEF CONCERN OF *MIE* IS PROFIT. THE CRITERIA USED HERE           GPO         4310     A     
 GPO      *         IS TO MOVE OUT AN INSTRUCTION IF IT HAS PREDECESSORS AND IS            GPO         4311     A     
 GPO      *         NOT AN *XMT* THAT *PS* OR A *SA*/*STT* THAT PRECEEDS A TEMP            GPO         4312     A     
 GPO      *         LOCK *RS* TO A B-REG.                                                  GPO         4313     A     
 GPO      *                                                                                GPO         4314     A     
 GPO      *         SINCE THE MOTION OF *IP*"S INVOLVES PLACING AN INCREMENT               GPO         4315     A     
 GPO      *         INSTRUCTION BACK IN THE LOOP, WE USE THE *COST* OF THE *IP*            GPO         4316     A     
 GPO      *         AS THE CHIEF PROFIT CRITERIA.  THE CONDITION THAT A *IP* BE            GPO         4317     A     
 GPO      *         *RF* IS NECESSARY FOR THE *IP* TO BE A B-REGISTER CANIDATE.            GPO         4318     A     
 GPO      *                                                                                GPO         4319     A     
 GPO      *         EXIT   INVARIANT EXPRESSIONS, TERMINAL POLYNOMIALS CODE MOVED          GPO         4320     A     
 GPO      *         TO HOLDING BLOCK ( *TXT* ). *TET* UPDATED.                             GPO         4321     A     
 GPO                                                                                       GPO         4322     A     
 GPO       MIE      ROUTINE                                                                GPO         4323     A     
 GPO                SA3    MINC                                                            GPO         4324     A     
 GPO                S"TB"  X5+3        TB = TBA + 3                                        GPO         4325     A     
 GPO                LX4    -BS.IICP                                                        GPO         4326     A     
 GPO                SA0    B0          LII = 0                                             GPO         4327     A     
 GPO                MX1    -D.USESL                                                        GPO         4328     A     
 GPO                SB2    X3                        (B2) = MINC                           GPO         4329     A     
 GPO                SB4    B0          NTI = 0       */ N.TERMINAL INST                    GPO         4330     A     
 GPO                SB5    B0          NMI = 0       */ N.MOVED INST                       GPO         4331     A     
 GPO                SB6    X4          I = IIC[BSW]  */ NEXT ON *IIC* CHAIN                GPO         4332     A     
 GPO                                                                                       GPO         4333     A     
 GPO      *         RESCAN *IIC* AND FORM A FOWARD CHAIN OF INST THAT ARE PROFITAB         GPO         4334     A     
 GPO      *         TO MOVE, OR USED BY ANOTHER INSTRUCTION.                               GPO         4335     A     
 GPO                                                                                       GPO         4336     A     
 GPO       MIE1     SA5    "TB"+B6     LI = TB + I                                         GPO         4337     A     
 GPO                ZR     B6,MIE14    IF I = 0      */ END OF CHAIN                       GPO         4338     A     
 GPO                SA4    A5-B1       DI = LI - 1                                         GPO         4339     A     
 GPO                BX3    X5                                                              GPO         4340     A     
 GPO                LX5    -I.USESP                                                        GPO         4341     A     
 GPO                BX7    -X1*X5                                                          GPO         4342     A     
 GPO                LX5    I.USESP-I.IICP                                                  GPO         4343     A     
 GPO                BX6    X4          D = [DI]                                            GPO         4344     A     
 GPO                SB6    X5          I = IIC[LI]   */ NEXT ON CHAIN                      GPO         4345     A     
 GPO                NZ     X7,MIE5     IF USES[LI] " 0  */ USED BY ANOTHER                 GPO         4346     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2984    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       GPO         4347     A     
 GPO                LX3    59-I.INVP                                                       GPO         4348     A     
 GPO                MI     X3,MIE2     IF INV[LI]                                          GPO         4349     A     
 GPO                                                                                       GPO         4350     A     
 GPO      *         TERMINAL *IP*, SEE IF PROFITABLE TO MOVE                               GPO         4351     A     
 GPO                                                                                       GPO         4352     A     
 GPO                LX6    59-D.RFP                                                        GPO         4353     A     
 GPO                LX3    1+I.INVP-I.COSTP                                                GPO         4354     A     
 GPO                PL     X6,MIE1     IF ^RF[D]                                           GPO         4355     A     
 GPO                BX7    -X1*X3                                                          GPO         4356     A     
 GPO                SB3    X7                                                              GPO         4357     A     
 GPO                GE     B3,B2,MIE7  IF COST[LI] \ MINC                                  GPO         4358     A     
 GPO                                                                                       GPO         4359     A     
 GPO                EQ     MIE1                                                            GPO         4360     A     
 GPO       MIE      SPACE  2,14                                                            GPO         4361     A     
 GPO      *         TERMINAL INV INST, SEE IF PROFITABLE TO MOVE                           GPO         4362     A     
 GPO                                                                                       GPO         4363     A     
 GPO       MIE2     LX6    58-D.STRSP                                                      GPO         4364     A     
 GPO                MX7    D.STRSL                                                         GPO         4365     A     
 GPO                BX3    X7*X6                                                           GPO         4366     A     
 GPO                NZ     X3,MIE3     IF STRS[D] " 0                                      GPO         4367     A     
 GPO                LX6    1+D.STRSP-D.ZPP                                                 GPO         4368     A     
 GPO                MI     X6,MIE1     IF ZP[D]      */ NO PRED                            GPO         4369     A     
 GPO                EQ     MIE7                                                            GPO         4370     A     
 GPO                                                                                       GPO         4371     A     
 GPO       MIE3     LX6    1+D.STRSP-D.PSP                                                 GPO         4372     A     
 GPO                MI     X6,MIE4     IF PS[DI]                                           GPO         4373     A     
 GPO                SA3    A5+4                                                            GPO         4374     A     
 GPO                SX7    B1          IU = 1                                              GPO         4375     A     
 GPO                LX3    59-I.INVP                                                       GPO         4376     A     
 GPO                MI     X3,MIE6     IF INV[LI+4]  */ INV FUNCTION ARG                   GPO         4377     A     
 GPO                SA2    A5+B1       R1RS = LI + 1                                       GPO         4378     A     
 GPO                LX2    59-R1.SOP-4                                                     GPO         4379     A     
 GPO                PL     X2,MIE1     IF SORT[R1RS] " 2  */ ^ TO AN X-REGISTER            GPO         4380     A     
 GPO                                                                                       GPO         4381     A     
 GPO      *         ( PS ! PRS ) & USES = 0                                                GPO         4382     A     
 GPO                                                                                       GPO         4383     A     
 GPO       MIE4     LX6    D.PSP-D.ZPP                                                     GPO         4384     A     
 GPO                MI     X6,MIE1     IF ZP[D]                                            GPO         4385     A     
 GPO                LX6    D.ZPP-D.XMTP                                                    GPO         4386     A     
 GPO                MI     X6,MIE1     IF XMT[D]                                           GPO         4387     A     
 GPO                EQ     MIE7                                                            GPO         4388     A     
 GPO       MIE      SPACE  2,10                                                            GPO         4389     A     
 GPO      *         INSTRUCTION IS OPERAND OF ANOTHER THAT HAS BEEN MOVED OUT.             GPO         4390     A     
 GPO                                                                                       GPO         4391     A     
 GPO       MIE5     LX6    59-D.PRSP                                                       GPO         4392     A     
 GPO                PL     X6,MIE7     IF ^PRS[D]                                          GPO         4393     A     
 GPO                                                                                       GPO         4394     A     
 GPO                SA2    A5+B1       R1RS = LI + 1                                       GPO         4395     A     
 GPO                SA3    A5+4                                                            GPO         4396     A     
 GPO                MX7    0           IU = 0                                              GPO         4397     A     
 GPO                LX3    59-I.INVP                                                       GPO         4398     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2985    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                LX2    59-R1.SOP-SO.LKP                                                GPO         4399     A     
 GPO                MI     X2,MIE6     IF SOLK[R1RS] " 0  */ TEMP LOCK                     GPO         4400     A     
 GPO                PL     X3,MIE7     IF ^INV[LI+4]                                       GPO         4401     A     
 GPO                SX7    B1          IU = 1                                              GPO         4402     A     
 GPO                                                                                       GPO         4403     A     
 GPO      *         ADD *RS* TO CHAIN OF MOVED INST                                        GPO         4404     A     
 GPO                                                                                       GPO         4405     A     
 GPO       MIE6     LX3    1+I.INVP-I.IICP                                                 GPO         4406     A     
 GPO                SX6    A0                                                              GPO         4407     A     
 GPO                BX3    X0*X3                                                           GPO         4408     A     
 GPO                IX6    X6+X3       IIC[LI+4] = LII                                     GPO         4409     A     
 GPO                LX6    I.IICP                                                          GPO         4410     A     
 GPO                SB5    B5+B1       NMI = NMI + 1                                       GPO         4411     A     
 GPO                SA6    A3                                                              GPO         4412     A     
 GPO                SA0    A3-"TB"     LII = LI+4 - TB                                     GPO         4413     A     
 GPO                LX7    I.USESP-I.IICP                                                  GPO         4414     A     
 GPO                IX5    X7+X5       USES[LI] = USES[LI] + IU                            GPO         4415     A     
 GPO       MIE      SPACE  1,10                                                            GPO         4416     A     
 GPO      *         ADD INSTRUCTION TO CHAIN OF MOVED INSTRUCTIONS, MARK AS                GPO         4417     A     
 GPO      *         TERMINAL IF NOT ALL USES ARE CONTAINED IN THE *INV* CHAIN.             GPO         4418     A     
 GPO                                                                                       GPO         4419     A     
 GPO       MIE7     SX3    A0                                                              GPO         4420     A     
 GPO                BX5    X0*X5                                                           GPO         4421     A     
 GPO                IX6    X3+X5                                                           GPO         4422     A     
 GPO                SB5    B5+B1       NMI = NMI + 1                                       GPO         4423     A     
 GPO                LX6    I.IICP      IIC[LI] = LII                                       GPO         4424     A     
 GPO                SA0    A5-"TB"     LII = LI - TB                                       GPO         4425     A     
 GPO                SA6    A5                                                              GPO         4426     A     
 GPO                LX5    I.IICP-I.USESP+D.USESP                                          GPO         4427     A     
 GPO                BX7    X5-X4                                                           GPO         4428     A     
 GPO                LX7    -D.USESP                                                        GPO         4429     A     
 GPO                BX2    -X1*X7                                                          GPO         4430     A     
 GPO                ZR     X2,MIE8     IF USES[LI] = USES[DI]                              GPO         4431     A     
 GPO                                                                                       GPO         4432     A     
 GPO                SX7    B1                                                              GPO         4433     A     
 GPO                SB4    B4+B1       NTI = NTI + 1                                       GPO         4434     A     
 GPO                LX7    I.TIP                                                           GPO         4435     A     
 GPO                BX6    X7+X6       TI[LI] = 1    */ MARK AS TERMINAL                   GPO         4436     A     
 GPO                SA6    A6                                                              GPO         4437     A     
 GPO       MIE      SPACE  1,10                                                            GPO         4438     A     
 GPO      *         BUMP USES COUNT OF OPERANDS OF INSTRUCTION                             GPO         4439     A     
 GPO                                                                                       GPO         4440     A     
 GPO       MIE8     LX4    58-D.TYP                                                        GPO         4441     A     
 GPO                IX7    X4+X4                                                           GPO         4442     A     
 GPO                SX6    B1                                                              GPO         4443     A     
 GPO                MI     X7,MIE1     IF TYPE[DI] = II ! IV                               GPO         4444     A     
 GPO                LX6    I.USESP                                                         GPO         4445     A     
 GPO                PL     X4,MIE10    IF TYPE[DI] = I                                     GPO         4446     A     
 GPO                                                                                       GPO         4447     A     
 GPO      *         TYPE III INSTRUCTION                                                   GPO         4448     A     
 GPO                                                                                       GPO         4449     A     
 GPO                SA3    A4-B1       R2 = DI - 1                                         GPO         4450     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2986    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                LX4    1+D.TYP-D.^DP                                                   GPO         4451     A     
 GPO                LX3    -IH.RFP                                                         GPO         4452     A     
 GPO                BX7    "RN"X3      R = RF[R2]                                          GPO         4453     A     
 GPO                SA2    "TB"+X7     L = TB + R                                          GPO         4454     A     
 GPO                ZR     X7,MIE9     IF R @ 1                                            GPO         4455     A     
 GPO                IX7    X6+X2       USES[L] = USES[L] + 1                               GPO         4456     A     
 GPO                SA7    A2                                                              GPO         4457     A     
 GPO                                                                                       GPO         4458     A     
 GPO       MIE9     PL     X4,MIE1     IF DEF[DI]    */ NOT A STORE                        GPO         4459     A     
 GPO                SA3    A3-B1       R1 = R2 - 1                                         GPO         4460     A     
 GPO                BX7    "RN"X3                                                          GPO         4461     A     
 GPO                SA2    "TB"+X7     L = TB + RI[R1]                                     GPO         4462     A     
 GPO                IX7    X6+X2       USES[L] = USES[L] + 1                               GPO         4463     A     
 GPO                SA7    A2+                                                             GPO         4464     A     
 GPO                EQ     MIE1                                                            GPO         4465     A     
 GPO                                                                                       GPO         4466     A     
 GPO      *         TYPE I INSTRUCTION                                                     GPO         4467     A     
 GPO                                                                                       GPO         4468     A     
 GPO       MIE10    MX7    -D.TYIOL                                                        GPO         4469     A     
 GPO                LX4    2+D.TYP-D.TYIOP                                                 GPO         4470     A     
 GPO                BX2    -X7*X4                                                          GPO         4471     A     
 GPO                SA3    =XTYIOM+X2                                                      GPO         4472     A     
 GPO                SA5    A4-2        R1 = DI - 2                                         GPO         4473     A     
 GPO                UX7    B3,X3                                                           GPO         4474     A     
 GPO                BX2    X7*X5                                                           GPO         4475     A     
 GPO                AX5    B3,X2       RNUMS = TYIOM[DI] & [R1]                            GPO         4476     A     
 GPO                                                                                       GPO         4477     A     
 GPO       MIE11    BX4    "RN"X5      R = RI[RNUMS]                                       GPO         4478     A     
 GPO                AX5    R1.RIL      RNUMS = SHIFT( RNUMS , -16 )                        GPO         4479     A     
 GPO                ZR     X4,MIE12    IF R = 0                                            GPO         4480     A     
 GPO                SA3    "TB"+X4     L = TB + R                                          GPO         4481     A     
 GPO                IX7    X6+X3       USES[L] = USES[L] + 1                               GPO         4482     A     
 GPO                SA7    A3+                                                             GPO         4483     A     
 GPO       MIE12    NZ     X5,MIE11    IF RNUMS " 0                                        GPO         4484     A     
 GPO                                                                                       GPO         4485     A     
 GPO                EQ     MIE1                                                            GPO         4486     A     
 GPO       MIE      EJECT                                                                  GPO         4487     A     
 GPO      *         MOVE THE FINAL CHAIN OF INSTRUCTIONS TO THE HOLDING BLOCK              GPO         4488     A     
 GPO                                                                                       GPO         4489     A     
 GPO       MIE14    ZR     B5,MIE      IF NMI = 0    */ NOTHING MOVED                      GPO         4490     A     
 GPO                SB4    B4+B4                                                           GPO         4491     A     
 GPO                SX2    B5+B4                                                           GPO         4492     A     
 GPO                LX2    2                                                               GPO         4493     A     
 GPO                SX7    A0                                                              GPO         4494     A     
 GPO                SA7    IC          IC = LII                                            GPO         4495     A     
 GPO                SX0    "TB"                                                            GPO         4496          I
          -FCC1845X 
 GPO                SX5    A0                                                              GPO         4497     A     
 GPO                ALLOC  TXT,X2+B1   ALLOC( TXT , 4*(NMI+2*NTI) + 1 )                    GPO         4498     A     
 GPO                S"TB"  X0          HBI = OLD(L.TXT)                                    GPO         4499          I
          -FCC1845X 
 GPO                SA4    O.SEQ       HBI = OLD(L.TXT)                                    FCC1845X       5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2987    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                S"TB"  X4+3                                                            FCC1845X       6     A     
 GPO                SA4    L.TET                                                           GPO         4500     A     
 GPO                SB3    X5          I = LII                                             GPO         4501     A     
 GPO                SA1    DMASK                                                           GPO         4502     A     
 GPO                SB4    X4          TO = L.TET    */ TEMP ORDINAL                       GPO         4503     A     
 GPO                SB5    X2          HB = O.TXT                                          GPO         4504     A     
 GPO                MX0    -R1.RIL+1                                                       GPO         4505     A     
 GPO                SA0    B0          TSC = 0                                             GPO         4506     A     
 GPO                SX6    X2+B6                                                           GPO         4507     A     
 GPO                LX0    1                                                               GPO         4508     A     
 GPO                SA6    TBB         TBB = O.TXT + HBI                                   GPO         4509     A     
 GPO                EQ     MIE16                                                           GPO         4510     A     
 GPO                                                                                       GPO         4511     A     
 GPO      *         INCREMENT MOVED, CHANGE IT TO AN *XMT* OF THE *RD* VARIABLE            GPO         4512     A     
 GPO      *         NOTE THAT AN *INC* CANNOT BE TERMINAL OR *PRS*                         GPO         4513     A     
 GPO                                                                                       GPO         4514     A     
 GPO       MIE14A   SA4    F.RDT+OC.XMT                                                    GPO         4515     A     
 GPO                SB2    OC.XMT                                                          GPO         4516     A     
 GPO                BX7    X4                                                              GPO         4517     A     
 GPO                SA7    A6-B1       [HA-1] = RDT(OC.MXT)                                GPO         4518     A     
 GPO                LX3    -IH.RFP                                                         GPO         4519     A     
 GPO                SA6    A7-B1       [HA-2] = 0    */ R2 WORD                            GPO         4520     A     
 GPO                BX7    "RN"X2                                                          GPO         4521     A     
 GPO                SX6    X3          R = RF[R2]                                          GPO         4522     A     
 GPO                NZ     X6,MIE14B   IF R " 0                                            GPO         4523     A     
 GPO                LX2    -R1.RJP                                                         GPO         4524     A     
 GPO                BX6    "RN"X2      R = RJ[R1]                                          GPO         4525     A     
 GPO                SA3    "TB"+X6     LIP = TB + R                                        GPO         4526     A     
 GPO                LX3    59-I.INVP                                                       GPO         4527     A     
 GPO                PL     X3,MIE14B   IF ^INV[LIP]                                        GPO         4528     A     
 GPO                LX2    R1.RJP-R1.RKP                                                   GPO         4529     A     
 GPO                BX6    "RN"X2      R = RK[R1]                                          GPO         4530     A     
 GPO                                                                                       GPO         4531     A     
 GPO       MIE14B   LX6    R1.RJP                                                          GPO         4532     A     
 GPO                PX7    B2,X7                                                           GPO         4533     A     
 GPO                BX6    X7+X6                                                           GPO         4534     A     
 GPO                SA6    A6-B1       [HA-3] = TYI(OC.XMT,R,0,RI[R1])                     GPO         4535     A     
 GPO                                                                                       GPO         4536     A     
 GPO                                                                                       GPO         4537     A     
 GPO      *         ADVANCE TO NEXT ON CHAIN                                               GPO         4538     A     
 GPO                                                                                       GPO         4539     A     
 GPO       MIE15    LX5    -I.IICP                                                         GPO         4540     A     
 GPO                SB3    X5          I = IIC[LI]   */ *BLK* INDEX OF INSTRUCTION         GPO         4541     A     
 GPO                ZR     B3,MIE20    IF I = 0                                            GPO         4542     A     
 GPO                                                                                       GPO         4543     A     
 GPO      *         MOVE INSTRUCTION TO HOLDING BLOCK                                      GPO         4544     A     
 GPO                                                                                       GPO         4545          I
          -FCC1254
 GPO       MIE16    SA5    "TB"+B3     LI = TB + I                                         GPO         4546          I
          -FCC1254
 GPO                SA4    A5-B1       DI = LI - 1;  D = [DI]                              GPO         4547          I
          -FCC1254
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2988    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA3    A4-B1       R2 = DI - 1                                         GPO         4548          I
          -FCC1254
 GPO                SA2    A3-B1       R1 = R2 - 1                                         GPO         4549          I
          -FCC1254
 GPO                BX6    X2                                                              GPO         4550          I
          -FCC1254
 GPO                SA6    B5+B6       HA = HB + HBI;  [HA] = [R1]                         GPO         4551          I
          -FCC1254
 GPO                LX7    X3                                                              GPO         4552          I
          -FCC1254
 GPO                SA7    A6+B1       HA = HA + 1;  [HA] = [R2]                           GPO         4553          I
          -FCC1254
 GPO                BX6    -X1*X4                                                          GPO         4554          I
          -FCC1254
 GPO                SA6    A7+B1       HA = HA + 1;  [HA] = ^DMASK & D                     GPO         4555          I
          -FCC1254
 GPO                SX7    B6                                                              GPO         4556          I
          -FCC1254
 GPO                BX7    X5+X7       HBP[LI] = HBI                                       GPO         4557          I
          -FCC1254
 GPO                SA7    A5                                                              GPO         4558          I
          -FCC1254
 GPO                SB6    B6+4        HBI = HBI + 4                                       GPO         4559          I
          -FCC1254
 GPO                MX6    0                                                               GPO         4560          I
          -FCC1254
 GPO                SA6    A6+B1       HA = HA + 1;  [HA] = 0                              GPO         4561          I
          -FCC1254
 GPO       MIE16    RJ     MIH         MOVE INSTRUCTIONS TO *HB*                           FCC1254       52     A     
 GPO                LX4    59-D.INCP                                                       GPO         4562     A     
 GPO                MI     X4,MIE14A   IF INC[D]                                           GPO         4563     A     
 GPO                LX7    59-I.TIP                                                        GPO         4564     A     
 GPO                PL     X7,MIE15    IF ^TI[LI]    */ NOT TERMINAL                       GPO         4565     A     
 GPO                LX4    D.INCP-D.ZPP                                                    GPO         4566     A     
 GPO                MI     X4,MIE15    IF ZP[D]      */ NO PRED                            GPO         4567     A     
 GPO                                                                                       GPO         4568     A     
 GPO                LX7    1+I.TIP                                                         GPO         4569     A     
 GPO                SX7    X7          R = HBP[LI]   */ OPERAND OF *XMT*                   GPO         4570     A     
 GPO                SX6    B2-OC.DEF                                                       FCC1254       53     A     
 GPO                ZR     X6,MIE19    IF OC[R1] = OC.DEF                                  FCC1254       54     A     
 GPO                LX4    D.ZPP-D.PRSP                                                    GPO         4571     A     
 GPO                PL     X4,MIE18    IF ^PRS[DI]                                         GPO         4572     A     
 GPO                                                                                       GPO         4573     A     
 GPO      *         TERMINAL AND PRS, CHECK FOR TEMP LOCK  *RS* TO A B-REG                 GPO         4574     A     
 GPO      *         IF THE ABOVE, THEN MAKE PRED TERMINAL IF COMPUTATION IS TO BE          GPO         4575     A     
 GPO      *         REMOVED FROM *BLK*. EXAMPLE J = SHIFT(INV,I+5)+SHIFT(VAR,I+5)          GPO         4576     A     
 GPO                                                                                       GPO         4577     A     
 GPO                SA3    A5+B1       R1RS = LI + 1                                       GPO         4578     A     
 GPO                MX6    -SO.LKL                                                         GPO         4579          I
          -FCC1530X 
 GPO                LX3    -R1.SOP-SO.LKP                                                  GPO         4580          I
          -FCC1530X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2989    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                BX6    -X6*X3                                                          GPO         4581          I
          -FCC1530X 
 GPO                SB2    X6                                                              GPO         4582          I
          -FCC1530X 
 GPO                NE     B2,B1,MIE18 IF SOLK[R1RS] " 1   */ NOT A TEMP LOCK              GPO         4583          I
          -FCC1530X 
 GPO                LX4    1+D.PRSP+58-D.TYP                                               GPO         4584          I
          -FCC1530X 
 GPO                LX3    -R1.SOP-SO.LKP-1                                                FCC1530X       5     A     
 GPO                MI     X3,MIE16A   IF SOLK[R1RS] = 1   */ A TEMP LOCK                  FCC1530X       6     A     
 GPO                                                                                       FCC1530X       7     A     
 GPO                SA3    A5+4        LIRS = LI + 4                                       FCC1530X       8     A     
 GPO                LX3    59-I.INVP                                                       FCC1530X       9     A     
 GPO                PL     X3,MIE18    IF ^INV[LIRS] */ RS STAYS IN THE LOOP               FCC1530X      10     A     
 GPO                                                                                       FCC1530X      11     A     
 GPO                MX2    0           LINV = 0                                            FCC1530X      12     A     
 GPO                EQ     MIE17A                                                          FCC1530X      13     A     
 GPO                                                                                       FCC1530X      14     A     
 GPO       MIE16A   LX4    1+D.PRSP+58-D.TYP                                               FCC1530X      15     A     
 GPO                LX2    -R1.RJP     I = RJ[R1]                                          GPO         4585     A     
 GPO                PL     X4,MIE17    IF TYPE[DI] = I                                     GPO         4586     A     
 GPO                SA2    A2+B1       R2 = R1 + 1                                         GPO         4587     A     
 GPO                LX2    -IH.RFP     I = RF[R2]                                          GPO         4588     A     
 GPO       MIE17    BX6    "RN"X2                                                          GPO         4589     A     
 GPO                SA3    "TB"+X6     LIP = TB + I                                        GPO         4590     A     
 GPO                SB3    X6                                                              GPO         4591     A     
 GPO                SA2    A3-B1       DIP = LIP - 1                                       GPO         4592     A     
 GPO                SX7    X3          R = HBP[LIP]                                        GPO         4593     A     
 GPO                LX3    59-I.TIP                                                        GPO         4594     A     
 GPO                MI     X3,MIE15    IF TI[LIP]    */ PRED IS TERMINAL                   GPO         4595     A     
 GPO                LX2    59-D.ZPP                                                        GPO         4596     A     
 GPO                MI     X2,MIE15    IF ZP[DIP]                                          GPO         4597     A     
 GPO                                                                                       GPO         4598     A     
 GPO      *         CHAIN FOWARD AND MOVE THE RS OUT SO IT DOESNT GET SEPERATED            GPO         4599     A     
 GPO                                                                                       GPO         4600     A     
 GPO                LX3    1+I.TIP                                                         GPO         4601     A     
 GPO                MX2    1                                                               GPO         4602     A     
 GPO                LX2    1+I.INVP                                                        GPO         4603     A     
 GPO                BX2    X2*X3       LINV = INV[LIP]                                     GPO         4604     A     
 GPO                LX5    -I.IICP                                                         GPO         4605          I
          -FCC1530X 
 GPO       MIE17A   LX5    -I.IICP                                                         FCC1530X      16     A     
 GPO                SA5    "TB"+X5     LI = TB + IIC[LI]                                   GPO         4606     A     
 GPO                SA4    A5-B1       DI = LI - 1                                         GPO         4607     A     
 GPO                SA3    A5-3        R1 = LI - 3                                         GPO         4608     A     
 GPO                BX6    X3                                                              GPO         4609     A     
 GPO                SA6    A6+B1       HA = HA + 1;  [HA] = [R1]                           GPO         4610     A     
 GPO                MX6    0                                                               GPO         4611     A     
 GPO                SA6    A6+B1       HA = HA + 1;  [HA] = 0                              GPO         4612     A     
 GPO                BX6    X4                                                              GPO         4613     A     
 GPO                SA6    A6+B1       HA = HA + 1;  [HA] = [DI]                           GPO         4614     A     
 GPO                MX6    0                                                               GPO         4615     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2990    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA6    A6+B1       HA = HA + 1;  [HA] = 0                              GPO         4616     A     
 GPO                BX5    X2+X5       INV[LI] = LINV                                      GPO         4617     A     
 GPO                SB6    B6+4        HBI = HBI + 4                                       GPO         4618     A     
 GPO                                                                                       GPO         4619     A     
 GPO      *         CREATE *XMT* / *TST* TO SAVE RESULT IN A TEMPORARY                     GPO         4620     A     
 GPO      *         LINK WORD OF *TST* POINTS TO WHERE TO PLACE *TLD*                      GPO         4621     A     
 GPO                                                                                       GPO         4622     A     
 GPO       MIE18    SB2    OC.XMT                                                          GPO         4623     A     
 GPO                RJ     OST         OUTPUT XMT TST TO IT.                               FCC1254       55     A     
 GPO                EQ     MIE15                                                           FCC1254       56     A     
 GPO                                                                                       FCC1254       57     A     
 GPO      *         TERMINAL *DEF* MOVED TO *HB*, MOVE ALL FOLLOWING DEF"S TO              FCC1254       58     A     
 GPO      *         THE *HB* BEFORE OUTPUTTING THE *TST*"S.                                FCC1254       59     A     
 GPO                                                                                       FCC1254       60     A     
 GPO       MIE19    SX7    B3                                                              FCC1254       61     A     
 GPO                SA7    ISV         ISV = I                                             FCC1254       62     A     
 GPO                                                                                       FCC1254       63     A     
 GPO       MIE19A   LX5    -I.IICP                                                         FCC1254       64     A     
 GPO                SB3    X5-3        I = IIC[LI] - 3                                     FCC1254       65     A     
 GPO                SA2    "TB"+B3     R1 = TB + I                                         FCC1254       66     A     
 GPO                UX6    B2,X2                                                           FCC1254       67     A     
 GPO                SB3    X5          I = IIC[LI]                                         FCC1254       68     A     
 GPO                SX7    B2-OC.DEF                                                       FCC1254       69     A     
 GPO                NZ     X7,MIE19B   IF OC[R1] " OC.DEF                                  FCC1254       70     A     
 GPO                RJ     MIH         MOVE INST TO *HB*                                   FCC1254       71     A     
 GPO                EQ     MIE19A                                                          FCC1254       72     A     
 GPO                                                                                       FCC1254       73     A     
 GPO      *         NOW OUTPUT THE XMT/SA AND TST INSTRUCTIONS                             FCC1254       74     A     
 GPO                                                                                       FCC1254       75     A     
 GPO       MIE19B   SA2    ISV                                                             FCC1254       76     A     
 GPO                SB3    X2          I = ISV                                             FCC1254       77     A     
 GPO                                                                                       FCC1254       78     A     
 GPO       MIE19C   SA5    "TB"+B3     LI = TB + I                                         FCC1254       79     A     
 GPO                SA2    A5-3        R1 = LI - 3                                         FCC1254       80     A     
 GPO                UX7    B2,X2                                                           FCC1254       81     A     
 GPO                SX6    B2-OC.DEF                                                       FCC1254       82     A     
 GPO                NZ     X6,MIE19F   IF OC[R1] " OC.DEF                                  FCC1254       83     A     
 GPO                                                                                       FCC1254       84     A     
 GPO                BX6    X5                                                              FCC1254       85     A     
 GPO                LX6    59-I.TIP                                                        FCC1254       86     A     
 GPO                PL     X6,MIE19E   IF ^TI[LI]    */ NOT TERMINAL                       FCC1254       87     A     
 GPO                                                                                       FCC1254       88     A     
 GPO                SB2    OC.XMT      OC = OC.XMT                                         FCC1254       89     A     
 GPO                LX2    59-R1.SOP-4                                                     FCC1254       90     A     
 GPO                MI     X2,MIE19D   IF REG[R1] \ 20B  */ DEF FROM AN X-REG              FCC1254       91     A     
 GPO                SB2    OC.SA       OC = OC.SA                                          FCC1254       92     A     
 GPO       MIE19D   SX7    X5          RJ = HBP[LI]                                        FCC1254       93     A     
 GPO                RJ     OST         OUTPUT XMT/SA AND TST                               FCC1254       94     A     
 GPO       MIE19E   LX5    -I.IICP                                                         FCC1254       95     A     
 GPO                SB3    X5          I = IIC[LI]                                         FCC1254       96     A     
 GPO                EQ     MIE19C                                                          FCC1254       97     A     
 GPO                                                                                       FCC1254       98     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2991    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO       MIE19F   NZ     B3,MIE16    IF I " 0      */ NOT END OF CHAIN                   FCC1254       99     A     
 GPO                EQ     MIE20                                                           FCC1254      100     A     
 GPO       MIE      SPACE  2,14                                                            FCC1254      101     A     
 GPO      **        MIH - MOVE INSTRUCTION TO HOLDING BLOCK                                FCC1254      102     A     
 GPO      *                                                                                FCC1254      103     A     
 GPO      *         ENTRY  (B3) = I                                                        FCC1254      104     A     
 GPO      *         EXIT   B2,X2,X3,X4,X5,X7 SET                                           FCC1254      105     A     
 GPO                                                                                       FCC1254      106     A     
 GPO       MIH      ROUTINE                                                                FCC1254      107     A     
 GPO                SA5    "TB"+B3     LI = TB + I                                         FCC1254      108     A     
 GPO                SA4    A5-B1       DI = LI = 1; D = [DI]                               FCC1254      109     A     
 GPO                SA3    A4-B1       R2 = DI - 1                                         FCC1254      110     A     
 GPO                SA2    A3-B1       R1 = R2 - 1                                         FCC1254      111     A     
 GPO                BX6    X2                                                              FCC1254      112     A     
 GPO                SA6    B5+B6       HA = HB + HBI;  [HA] = [R1]                         FCC1254      113     A     
 GPO                LX7    X3                                                              FCC1254      114     A     
 GPO                SA7    A6+B1       HA = HA + 1;  [HA] = [R2]                           FCC1254      115     A     
 GPO                BX6    -X1*X4                                                          FCC1254      116     A     
 GPO                SA6    A7+B1       HA = HA + 1;  [HA] = ^DMASK & D                     FCC1254      117     A     
 GPO                SX7    B6                                                              FCC1254      118     A     
 GPO                BX7    X5+X7       HBP[LI] = HBI                                       FCC1254      119     A     
 GPO                SA7    A5                                                              FCC1254      120     A     
 GPO                SB6    B6+4        HBI = HBI + 4                                       FCC1254      121     A     
 GPO                MX6    0                                                               FCC1254      122     A     
 GPO                SA6    A6+B1       HA = HA + 1;  [HA] = 0                              FCC1254      123     A     
 GPO                UX2    B2,X2                                                           FCC1254      124     A     
 GPO                EQ     MIH                                                             FCC1254      125     A     
 GPO                                                                                       FCC1254      126     A     
 GPO      **        OST - OUTPUT XMT AND TST TO IT.                                        FCC1254      127     A     
 GPO      *                                                                                FCC1254      128     A     
 GPO      *         ENTRY  (B2,X7) = OC, RJ                                                FCC1254      129     A     
 GPO                                                                                       FCC1254      130     A     
 GPO       OST      ROUTINE                                                                FCC1254      131     A     
 GPO                LX7    R1.RJP                                                          GPO         4624     A     
 GPO                SX4    B6                                                              GPO         4625     A     
 GPO                PX3    B2,X4                                                           GPO         4626     A     
 GPO                BX6    X7+X3                                                           GPO         4627     A     
 GPO                SA6    A6+B1       HA = HA + 1;  [HA] = TYI(OC.XMT,R,0,HBI)            GPO         4628     A     
 GPO                MX6    0                                                               GPO         4629     A     
 GPO                SA6    A6+B1       HA + HA + 1;  [HA] = 0                              GPO         4630     A     
 GPO                SA6    A6+B1       HA + HA + 1;  [HA] = 0                              GPO         4631     A     
 GPO                SB2    OC.TST                                                          GPO         4632     A     
 GPO                SA6    A6+B1       HA + HA + 1;  [HA] = 0                              GPO         4633     A     
 GPO                SA3    =XIT.                                                           GPO         4634     A     
 GPO                PX6    B2,X4                                                           GPO         4635     A     
 GPO                SA6    A6+B1       HA = HA + 1;  [HA] = TYIII(OC.TST,0,0,HBI)          GPO         4636     A     
 GPO                SX2    B4                                                              GPO         4637     A     
 GPO                LX2    IH.CAP                                                          GPO         4638     A     
 GPO                LX3    IH.IHP                                                          GPO         4639     A     
 GPO                BX6    X2+X3                                                           GPO         4640     A     
 GPO                SA6    A6+B1       HA = HA + 1;  [HA] = IHW(0,TO,IT.)                  GPO         4641     A     
 GPO                SB4    B4+B1       TO = TO + 1                                         GPO         4642     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2992    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                MX6    0                                                               GPO         4643     A     
 GPO                SA6    A6+B1       HA = HA + 1;  [HA] = 0                              GPO         4644     A     
 GPO                SX7    B3                                                              GPO         4645     A     
 GPO                LX7    T.BIP                                                           GPO         4646     A     
 GPO                SX3    A0                                                              GPO         4647     A     
 GPO                BX6    X7+X3                                                           GPO         4648     A     
 GPO                MX3    1                                                               GPO         4649     A     
 GPO                LX3    1+I.INVP                                                        GPO         4650     A     
 GPO                BX2    X3*X5                                                           GPO         4651     A     
 GPO                IX6    X2+X6                                                           GPO         4652     A     
 GPO                SA6    A6+B1       HA = HA + 1;  [HA] = TETW(INV,0,I,TSC)              GPO         4653     A     
 GPO                SA0    A6-B5       TSC = HA - HB                                       GPO         4654     A     
 GPO                SB6    A0+B1       HBI = TSC + 1  */ = HBI + 8                         GPO         4655     A     
 GPO                EQ     MIE15                                                           GPO         4656          I
          -FCC1254
 GPO                EQ     OST                                                             FCC1254      132     A     
 GPO       MIE      SPACE  3,14                                                            GPO         4657     A     
 GPO      *         RENUMBER THE INSTRUCTIONS ADDED TO THE HOLDING BLOCK                   GPO         4658     A     
 GPO      *         PRESERVE A0, B4 FOR *TET* UPDATE                                       GPO         4659     A     
 GPO                                                                                       GPO         4660     A     
 GPO       MIE20    MX7    0           [HB+HBI] = 0  */ SET HB TERMINATOR                  GPO         4661     A     
 GPO                SA7    B5+B6                                                           GPO         4662     A     
 GPO                SX6    B6          L.TXT = HBI                                         GPO         4663     A     
 GPO                SB2    B1+B1                                                           GPO         4664     A     
 GPO                SA6    L.TXT                                                           GPO         4665     A     
 GPO                MX1    D.TYL                                                           GPO         4666     A     
 GPO                SA2    TBB                                                             GPO         4667     A     
 GPO                SA4    X2-2        DI = TBB - 2                                        GPO         4668     A     
 GPO                EQ     MIE22                                                           GPO         4669     A     
 GPO                                                                                       GPO         4670     A     
 GPO       MIE21    SA3    =XF.RDT+B3                                                      GPO         4671     A     
 GPO                BX6    X3          [DI] = RDT(OC[R1])                                  GPO         4672     A     
 GPO                SA6    A4                                                              GPO         4673     A     
 GPO                                                                                       GPO         4674     A     
 GPO       MIE22    SA5    A4+B2       R1 = DI + 2                                         GPO         4675     A     
 GPO                SA4    A5+B2       DI = R1 + 2                                         GPO         4676     A     
 GPO                ZR     X5,MIE26    IF [R1] = 0   */ END OF BLOCK                       GPO         4677     A     
 GPO                LX4    58-D.TYP                                                        GPO         4678     A     
 GPO                BX6    -X1+X4                                                          GPO         4679     A     
 GPO                UX7    B3,X5                                                           GPO         4680     A     
 GPO                ZR     X4,MIE21    IF [DI] = 0   */ XMT/TST                            GPO         4681     A     
 GPO                ZR     X6,MIE22    IF TYPE[DI] = IV                                    GPO         4682     A     
 GPO                                                                                       GPO         4683     A     
 GPO                BX7    "RN"X5                                                          GPO         4684     A     
 GPO                SA3    "TB"+X7                                                         GPO         4685     A     
 GPO                BX5    X0*X5                                                           GPO         4686     A     
 GPO                SX2    X3                                                              GPO         4687     A     
 GPO                BX4    X1*X4                                                           GPO         4688     A     
 GPO                IX6    X2+X5       RI[R1] = HBP[TB+RI[R1]]                             GPO         4689     A     
 GPO                NZ     X4,MIE25    IF TYPE[DI] " I                                     GPO         4690     A     
 GPO                                                                                       GPO         4691     A     
 GPO                LX6    -R1.RJP                                                         GPO         4692     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2993    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                BX7    "RN"X6                                                          GPO         4693     A     
 GPO                ZR     X7,MIE23    IF RJ[R1] = 0                                       GPO         4694     A     
 GPO                SA3    "TB"+X7                                                         GPO         4695     A     
 GPO                BX6    X0*X6                                                           GPO         4696     A     
 GPO                SX2    X3          RJ[R1] = HBP[TB+RJ[R1]]                             GPO         4697     A     
 GPO                BX6    X2+X6                                                           GPO         4698     A     
 GPO       MIE23    LX6    R1.RJP-R1.RKP                                                   GPO         4699     A     
 GPO                BX7    "RN"X6                                                          GPO         4700     A     
 GPO                ZR     X7,MIE24    IF RK[R1] = 0                                       GPO         4701     A     
 GPO                SA3    "TB"+X7                                                         GPO         4702     A     
 GPO                BX6    X0*X6                                                           GPO         4703     A     
 GPO                SX2    X3          RK[R1] = HBP[TB+RK[R1]]                             GPO         4704     A     
 GPO                BX6    X2+X6                                                           GPO         4705     A     
 GPO       MIE24    LX6    R1.RKP                                                          GPO         4706     A     
 GPO                SA6    A5                                                              GPO         4707     A     
 GPO                EQ     MIE22                                                           GPO         4708     A     
 GPO                                                                                       GPO         4709     A     
 GPO       MIE25    SA3    A5+B1       R2 = R1 + 1                                         GPO         4710     A     
 GPO                SA6    A5                                                              GPO         4711     A     
 GPO                LX3    -IH.RFP                                                         GPO         4712     A     
 GPO                BX7    "RN"X3                                                          GPO         4713     A     
 GPO                ZR     X7,MIE22    IF RF[R2] @ 1                                       GPO         4714     A     
 GPO                SA2    "TB"+X7                                                         GPO         4715     A     
 GPO                BX3    X0*X3                                                           GPO         4716     A     
 GPO                SX7    X2                                                              GPO         4717     A     
 GPO                IX6    X3+X7                                                           GPO         4718     A     
 GPO                LX6    IH.RFP      RF[R2] = HBP[TB+RF[R2]]                             GPO         4719     A     
 GPO                SA6    A3                                                              GPO         4720     A     
 GPO                EQ     MIE22                                                           GPO         4721     A     
 GPO       MIE      SPACE  3,20                                                            GPO         4722     A     
 GPO      *         RESCAN THE CHAIN OF MOVED INSTRUCTIONS AND CHANGE THE ONES             GPO         4723     A     
 GPO      *         THAT ARE ^D AND NOT A TEMP LOCK *RS* TO *BOS*"S SO *SQZ*               GPO         4724     A     
 GPO      *         WILL ELIMINATE THEM WHEN THE BLOCK IS SQUEEZED AGAIN.                  GPO         4725     A     
 GPO                                                                                       GPO         4726     A     
 GPO       MIE26    SA1    IC          I = IC                                              GPO         4727     A     
 GPO                SA2    "TB"-B1                                                         GPO         4728     A     
 GPO                SB2    B1+B1                                                           GPO         4729     A     
 GPO                SA3    A2-B2                                                           GPO         4730     A     
 GPO                MX0    -SO.LKL                                                         GPO         4731     A     
 GPO                LX7    X2                                                              GPO         4732     A     
 GPO                BX6    X3                                                              GPO         4733     A     
 GPO                SB5    OC.RS                                                           GPO         4734     A     
 GPO                LX0    R1.SOP+SO.LKP                                                   GPO         4735     A     
 GPO                                                                                       GPO         4736     A     
 GPO       MIE27    SA5    "TB"+X1     LI = TB + I                                         GPO         4737     A     
 GPO                SA4    A5-B1       DI = LI + 1                                         GPO         4738     A     
 GPO                LX5    -I.IICP                                                         GPO         4739     A     
 GPO                LX4    59-D.^DP                                                        GPO         4740     A     
 GPO                SX1    X5          I = IIC[LI]   */ NEXT ON CHAIN                      GPO         4741     A     
 GPO                PL     X4,MIE29    IF DEF[DI]                                          GPO         4742     A     
 GPO                                                                                       GPO         4743     A     
 GPO                SA2    A4-B2       R1 = DI - 2                                         GPO         4744     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2994    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                UX3    B3,X2                                                           GPO         4745     A     
 GPO                NE     B3,B5,MIE28 IF OC[R1] " OC.RS                                   GPO         4746     A     
 GPO                BX4    -X0*X2                                                          GPO         4747     A     
 GPO                NZ     X4,MIE29    IF SOLK[R1] " 0  */ TEMP LOCK                       GPO         4748     A     
 GPO       MIE28    SA6    A4-2        [DI+2] = TYI(OC.BOS,0,XX)                           GPO         4749     A     
 GPO                SA7    A4+         [DI] = [TB-1]                                       GPO         4750     A     
 GPO                                                                                       GPO         4751     A     
 GPO       MIE29    NZ     X1,MIE27    IF I " 0                                            GPO         4752     A     
 GPO                                                                                       GPO         4753     A     
 GPO                TRACE  MIE,RLIST                                                       GPO         4754     A     
 GPO                TRACE  MIE,RLIST,SEQ                                                   GPO         4755     A     
 GPO       MIE      SPACE  3,14                                                            GPO         4756     A     
 GPO      *         MOVE THE INFO IN THE LINK WORD OF THE *TST*"S TO *TET*                 GPO         4757     A     
 GPO      *         SET NTP " 0 IF TERMINAL POLYNOMIALS WERE MOVED TO HOLDING BLK.         GPO         4758     A     
 GPO                                                                                       GPO         4759     A     
 GPO                SA2    L.TET                                                           GPO         4760     A     
 GPO                SX0    A0          I = TSC       */ TSC CHAIN INDEX                    GPO         4761     A     
 GPO                SX5    B4                                                              GPO         4762     A     
 GPO                IX1    X5-X2                                                           GPO         4763     A     
 GPO                SA4    BSW                                                             GPO         4764     A     
 GPO       .BMB     BIT    BS.BMP-BS.NTETP                                                 GPO         4765     A     
 GPO                SX2    X1+.BMB     BM[BSW] = 1   */  INDCIATE BLOCK MODIFIED           GPO         4766     A     
 GPO                LX2    BS.NTETP                                                        GPO         4767     A     
 GPO                BX6    X2+X4       NTET[BSW] = T0 - L.TET                              GPO         4768     A     
 GPO                SA6    A4                                                              GPO         4769     A     
 GPO                ZR     X1,MIE      IF TO = L.TET */ NO TEMP STORES                     GPO         4770     A     
 GPO                                                                                       GPO         4771     A     
 GPO                ALLOC  TET,X1      ALLOC( TET , TO - L.TET )                           GPO         4772     A     
 GPO                SA4    O.TXT                                                           GPO         4773     A     
 GPO                SB5    X2                                                              GPO         4774     A     
 GPO                SB2    B1+B1                                                           GPO         4775     A     
 GPO                MX1    -T.CAL                                                          GPO         4776     A     
 GPO                SA2    NTP                                                             GPO         4777     A     
 GPO                SB4    X4          HB = O.TXT                                          GPO         4778     A     
 GPO                BX7    X7-X7                                                           GPO         4779     A     
 GPO                MX3    1                                                               GPO         4780     A     
 GPO                LX3    1+I.INVP                                                        GPO         4781     A     
 GPO                                                                                       GPO         4782     A     
 GPO       MIE30    SA5    B4+X0       LI = HB + I                                         GPO         4783     A     
 GPO                SA4    A5-B2       R2 = LI - 2                                         GPO         4784     A     
 GPO                BX6    -X5*X3                                                          GPO         4785     A     
 GPO                LX4    -IH.CAP                                                         GPO         4786     A     
 GPO                BX2    X6+X2       NTP = ^INV[LI] ! NTP                                GPO         4787     A     
 GPO                SX0    X5          I = LINK[LI]                                        GPO         4788     A     
 GPO                BX6    X1*X5                                                           GPO         4789     A     
 GPO                SA6    B5+X4       TET(CA[R2]) = TETW(INV,0,BI,0)                      GPO         4790     A     
 GPO                SA7    A5          [LI] = 0                                            GPO         4791     A     
 GPO                NZ     X0,MIE30    IF I " 0                                            GPO         4792     A     
 GPO                                                                                       GPO         4793     A     
 GPO                BX6    X2                                                              GPO         4794     A     
 GPO                SA6    A2                                                              GPO         4795     A     
 GPO                TRACE  MIE,TET                                                         GPO         4796     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2995    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                EQ     MIE                                                             GPO         4797     A     
 GPO       CIF      TITLE  CIF - COLLECT INCREMENT FORMULAS                                GPO         4798     A     
 GPO      **        CIF - COLLECT INCREMENT FORMULAS                                       GPO         4799     A     
 GPO      *                                                                                GPO         4800     A     
 GPO      *         BUILD A TABLE OF INCREMENT AND POLYNOMIAL FORMULAS OF THE              GPO         4801     A     
 GPO      *         OF THE *IP*"S ( *IIT* LIST B FORMAT ).                                 GPO         4802     A     
 GPO      *         THE INCREMENT FORMULAS ARE USED TO EVALUATE THE INCREMENT              GPO         4803     A     
 GPO      *         EXPRESSIONS. THE POLYNOMIAL FORMULAS ARE NECESSARY FOR TEST            GPO         4804     A     
 GPO      *         REPLACEMENT AND TO COMPUTE THE SYMBOLIC DIFFERENCE OF TWO              GPO         4805     A     
 GPO      *         SIMILAR *IP*"S ( A(I,J+1) AND A(I,J) , VARIABLE DIMENSIONS ).          GPO         4806     A     
 GPO                                                                                       GPO         4807     A     
 GPO       CIF0     SX6    0                                                               FCC1710X       8     A     
 GPO                SA6    NTP         NTP = 0                                             FCC1710X       9     A     
 GPO       CIF      ROUTINE                                                                GPO         4808     A     
 GPO                                                                                       GPO         4809     A     
 GPO      *         CALL *MII* TO MARK THE *INV* INSTRUCTIONS IN THE *HB* FOR DIF.         GPO         4810     A     
 GPO                                                                                       GPO         4811     A     
 GPO                MX4    60          BSW = -0                                            GPO         4812     A     
 GPO                SA5    O.TXT                                                           GPO         4813     A     
 GPO                SX6    B0                                                              GPO         4814     A     
 GPO                MX0    -R1.RIL+1                                                       GPO         4815     A     
 GPO                SA6    BN          BN = 0        */ INDICATE SPECIAL CALL              GPO         4816     A     
 GPO                LX0    1                                                               GPO         4817     A     
 GPO                RJ     MII         MARK INVARIANT INSTRUCTIONS                         GPO         4818     A     
 GPO                                                                                       GPO         4819     A     
 GPO      *         SCAN HOLDING BLOCK TO FORM A CHAIN OF *TST*"S TO *TP*"S.               GPO         4820     A     
 GPO                                                                                       GPO         4821     A     
 GPO                SA1    L.TXT                                                           GPO         4822     A     
 GPO                SA2    O.TXT                                                           GPO         4823     A     
 GPO                SB3    OC.TST                                                          GPO         4824     A     
 GPO                SB4    4                                                               GPO         4825     A     
 GPO                S"TB"  X2+3        TB = O.TXT + 3                                      GPO         4826     A     
 GPO                MX7    0           SC = 0                                              GPO         4827     A     
 GPO                IX6    X1+X2                                                           GPO         4828     A     
 GPO                SA5    X6-4        R1 = O.TXT + L.TXT-4                                GPO         4829     A     
 GPO                AX1    2                                                               GPO         4830     A     
 GPO                SA2    X2          R1 = [O.TXT]                                        GPO         4831     A     
 GPO                MX6    -R1.H2L                                                         GPO         4832     A     
 GPO                LX6    R1.H2P                                                          GPO         4833     A     
 GPO                BX6    X6*X2       H2[R1] = 0                                          GPO         4834     A     
 GPO                SA6    A2                                                              GPO         4835     A     
 GPO                SA3    O.TET                                                           FCC1710X      10     A     
 GPO                MX2    1                                                               FCC1710X      11     A     
 GPO                LX2    1+T.INVP                                                        FCC1710X      12     A     
 GPO                SB5    X3                        (B5) = TET                            FCC1710X      13     A     
 GPO                                                                                       GPO         4836     A     
 GPO       CIF1     SA5    A5-B4       R1 = R1 - 4                                         GPO         4837     A     
 GPO                UX6    B2,X5                                                           GPO         4838     A     
 GPO                EQ     B2,B1,CIF2  IF OC[R1] = OC.BOS                                  GPO         4839     A     
 GPO                NE     B2,B3,CIF1  IF OC[R1] " OC.TST                                  GPO         4840     A     
 GPO                SA4    A5+3        LI = R1 + 3                                         GPO         4841     A     
 GPO                LX4    59-I.INVP                                                       GPO         4842     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2996    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                MI     X4,CIF1     IF INV[LI]                                          GPO         4843     A     
 GPO                SA3    "TB"+X5     LIP = TB + RI[R1]                                   FCC1710X      14     A     
 GPO                LX3    59-I.INVP                                                       FCC1710X      15     A     
 GPO                MI     X3,CIF1A    IF INV[LIP]                                         FCC1710X      16     A     
 GPO                SA7    A4          [LI] = SC                                           GPO         4844     A     
 GPO                SX7    A4-"TB"     SC = LI - TB                                        GPO         4845     A     
 GPO                EQ     CIF1                                                            GPO         4846     A     
 GPO                                                                                       FCC1710X      17     A     
 GPO      *         TST IS *IP*, BUT EXPRESSION IS *INV* UPDATE *TET* TO REFLECT           FCC1710X      18     A     
 GPO      *         THE REDUCTION OF THE EXPRESSION ( I+INVEXP-I, ETC ) BY *SQZ* .         FCC1710X      19     A     
 GPO                                                                                       FCC1710X      20     A     
 GPO       CIF1A    SA3    A5+B1       R2 = R1 + 1                                         FCC1710X      21     A     
 GPO                LX3    -IH.CAP                                                         FCC1710X      22     A     
 GPO                SA4    B5+X3                                                           FCC1710X      23     A     
 GPO                BX6    X2+X4       INV[TET(CA[R2])] = 1                                FCC1710X      24     A     
 GPO                SA6    A4                                                              FCC1710X      25     A     
 GPO                EQ     CIF1                                                            FCC1710X      26     A     
 GPO                                                                                       GPO         4847     A     
 GPO       CIF2     SA7    TSC         TSC = SC                                            GPO         4848     A     
 GPO                ZR     X7,CIF0     IF SC = 0     */ NO TERMINAL POLYNOMIALS            FCC1710X      27     A     
 GPO                ALLOC  RND,X1      ALLOC( RND , L.TXT/4 )                              GPO         4849     A     
 GPO       CIF      SPACE  1,10                                                            GPO         4850     A     
 GPO      *         FORM A LIST OF THE INCREMENT AND POLYNOMIAL FORMULAS IN *IIT*          GPO         4851     A     
 GPO                                                                                       GPO         4852     A     
 GPO                SA5    TSC                                                             GPO         4853     A     
 GPO                ADDWRD IIT,B0      ADDWRD( IIT , 0 )                                   GPO         4854     A     
 GPO                SX6    X3-1                                                            GPO         4855     A     
 GPO                SA6    ITB         ITB = L.IIT - 1  */ INDEX TO *PI* OF THIS           GPO         4856     A     
 GPO                                                                                       GPO         4857     A     
 GPO       CIF3     SA4    O.TXT                                                           GPO         4858     A     
 GPO                IX7    X4+X5                                                           GPO         4859     A     
 GPO                SA5    X7+B1       R2 = TXT(TSC+1)                                     GPO         4860     A     
 GPO                LX5    -IH.CAP                                                         GPO         4861     A     
 GPO                SX6    X5          CAS = CA[R2]  */ SAVE *CA* OF THIS *IP*             GPO         4862     A     
 GPO                SA6    CAS                                                             GPO         4863     A     
 GPO                SB6    0           MULT = 0                                            GPO         4864     A     
 GPO                RJ     DIF         DEVELOP *INCR* FORMULA                              GPO         4865     A     
 GPO                SA1    LCV                                                             GPO         4866     A     
 GPO                SA5    A0                                                              GPO         4867     A     
 GPO                LX5    -IA.UDIP                                                        GPO         4868     A     
 GPO                UX6    B2,X1                                                           GPO         4869     A     
 GPO                AX6    PS.UDIP                                                         GPO         4870     A     
 GPO                BX7    X6-X5                                                           GPO         4871     A     
 GPO                SB2    X7+                                                             GPO         4872     A     
 GPO                NZ     B2,CIF4     IF UDI[LCV] " UDI[IAW]                              GPO         4873     A     
 GPO                SA6    STP         STP = 1       */ AN *IP* IS A FUNCTION(LCV)         GPO         4874     A     
 GPO                                                                                       GPO         4875     A     
 GPO       CIF4     SA1    TSC                                                             GPO         4876     A     
 GPO                SA4    O.TXT                                                           GPO         4877     A     
 GPO                IX7    X4+X1                                                           GPO         4878     A     
 GPO                SA5    X7+B1       R2 = TXT(TSC+1)                                     GPO         4879     A     
 GPO                SA3    X7+3                                                            GPO         4880     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2997    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                BX7    X3          TSC = TXT(TSC+3)  */ INDEX TO NEXT ON CHAIN         GPO         4881     A     
 GPO                SA7    A1                                                              GPO         4882     A     
 GPO                SB6    -1          MULT = -1                                           GPO         4883     A     
 GPO                RJ     DIF         DEVELOP *POLYNOMIAL* FORMULA                        GPO         4884     A     
 GPO                ADDWRD IIT,B0      ADDWRD( IIT , 0 )                                   GPO         4885     A     
 GPO                                                                                       GPO         4886     A     
 GPO                SA1    ITB                                                             GPO         4887     A     
 GPO                SA4    CAS                                                             GPO         4888     A     
 GPO                SB2    X2                                                              GPO         4889     A     
 GPO                SA2    O.TET                                                           GPO         4890     A     
 GPO                SB4    X4                                                              GPO         4891     A     
 GPO                SX6    X3-1                                                            GPO         4892     A     
 GPO                LX6    PI.LFP                                                          GPO         4893     A     
 GPO                SA6    B2+X1       IIT(ITB) = L.IIT - 1  */ LINK TO NEXT               GPO         4894     A     
 GPO                LX1    T.ITIP                                                          GPO         4895     A     
 GPO                SA2    X2+B4                                                           GPO         4896     A     
 GPO                BX7    X1+X2       ITI[TET(CAS)] = ITB  */ LINK *IP* TO *IIT*          GPO         4897     A     
 GPO                SA7    A2                                                              GPO         4898     A     
 GPO                LX6    -PI.LFP                                                         GPO         4899     A     
 GPO                SA6    A1          ITB = L.IIT - 1                                     GPO         4900     A     
 GPO                                                                                       GPO         4901     A     
 GPO                SA5    TSC                                                             GPO         4902     A     
 GPO                NZ     X5,CIF3     IF TSC " 0                                          GPO         4903     A     
 GPO       CIF      SPACE  1,10                                                            GPO         4904     A     
 GPO      *         NOW SCAN THE *PI* LIST FOR SIMILAR *IP*"S, THOSE WHICH HAVE            GPO         4905     A     
 GPO      *         THE SAME INCREMENT FORMULAS.                                           GPO         4906     A     
 GPO                                                                                       GPO         4907     A     
 GPO                SA1    O.TET                                                           GPO         4908     A     
 GPO                SA2    O.IIT                                                           GPO         4909     A     
 GPO                SA3    PIC                                                             GPO         4910     A     
 GPO                SB2    3                                                               GPO         4911     A     
 GPO                SB7    X1                        (B7) = [O.TET]                        GPO         4912     A     
 GPO                SA0    X2                        (A0) = [O.IIT]                        GPO         4913     A     
 GPO                SB5    X3          J = PIC                                             GPO         4914     A     
 GPO                SB6    B1          CCN = 1       */ CURRENT CLASS NUMBER               FCC0514       77     A     
 GPO                MX7    0                                                               FCC0514       78     A     
 GPO                SA7    CNI         CNI = 0                                             FCC0514       79     A     
 GPO                                                                                       GPO         4915     A     
 GPO       CIF5     SA1    A0+B5       I = J;  PIW = IIT(I)                                GPO         4916     A     
 GPO                ZR     X1,CIF10    IF PIW = 0    */ END OF TABLE                       GPO         4917     A     
 GPO                LX1    -PI.LFP                                                         GPO         4918     A     
 GPO                SB5    X1          J = LF[PIW]                                         GPO         4919     A     
 GPO                LX1    59-PI.MIPP+PI.LFP                                               GPO         4920     A     
 GPO                MI     X1,CIF5     IF MIP[PIW]   */ SIMILAR TO ANOTHER                 GPO         4921     A     
 GPO                                                                                       GPO         4922     A     
 GPO                SA1    A1+B1       IAW = IIT(I+1)                                      GPO         4923     A     
 GPO                UX6    B3,X1       NW = NWD[IAW]                                       GPO         4924     A     
 GPO                LX6    -IA.CAP                                                         GPO         4925     A     
 GPO                SX7    X6          CAS = CA[IAW]                                       GPO         4926     A     
 GPO                SA7    CAS                                                             GPO         4927     A     
 GPO                SX0    B1                                                              GPO         4928     A     
 GPO                SA2    B7+X6                                                           GPO         4929     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2998    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                LX0    T.BIPP                                                          GPO         4930     A     
 GPO                BX6    X0+X2       BIP[TET(CAS)] = 1  */ MARK THIS *IP* AS BAS         GPO         4931     A     
 GPO                SA6    A2                                                              GPO         4932     A     
 GPO                SB4    B5          K = J                                               GPO         4933     A     
 GPO                LX0    PI.MIPP-T.BIPP                                                  GPO         4934     A     
 GPO                MX7    0                                                               FCC0514       80     A     
 GPO                SA2    CNI                                                             FCC0514       81     A     
 GPO                SB6    B6+X2       CCN = CCN + CNI  */ SET CLASS NUMBER                FCC0514       82     A     
 GPO                SA7    A2          CNI = 0                                             FCC0514       83     A     
 GPO                                                                                       GPO         4935     A     
 GPO      *         SEARCH REST OF LIST FOR *IP*"S THAT ARE SIMILAR                        GPO         4936     A     
 GPO                                                                                       GPO         4937     A     
 GPO       CIF7     SA2    A0+B4       PIK = IIT(K)                                        GPO         4938     A     
 GPO                ZR     X2,CIF5     IF PIK = 0    */ END OF LIST                        GPO         4939     A     
 GPO                                                                                       GPO         4940     A     
 GPO                SA5    A2+B1       IK = IIT(K+1)                                       GPO         4941     A     
 GPO                BX6    X1-X5                                                           GPO         4942     A     
 GPO                SX3    B3-2        N = NW - 2                                          GPO         4943     A     
 GPO                LX6    -IA.CAP                                                         GPO         4944     A     
 GPO                MX7    -IA.CAL                                                         GPO         4945     A     
 GPO                BX6    X7*X6                                                           GPO         4946     A     
 GPO                NZ     X6,CIF9     IF (NWD,UDI)[IAW] " (NWD,UDI)[IK]                   GPO         4947     A     
 GPO                SA4    A1+B1       II = IIT(I+2)                                       GPO         4948     A     
 GPO                SA5    A5+B1       IK = IK + 1                                         GPO         4949     A     
 GPO                BX6    X4-X5                                                           GPO         4950     A     
 GPO                NZ     X6,CIF9     IF [II] " [IK]  */ IB WORDS  NE                     GPO         4951     A     
 GPO                SA4    A4+B1       II = II + 1                                         GPO         4952     A     
 GPO                SA5    A5+B1       IK = IK + 1                                         GPO         4953     A     
 GPO                                                                                       GPO         4954     A     
 GPO       CIF8     BX6    X4-X5       DIF = [II] - [IK]                                   GPO         4955     A     
 GPO                SA4    A4+B1       II = II + 1                                         GPO         4956     A     
 GPO                SA5    A5+B1       IK = IK + 1                                         GPO         4957     A     
 GPO                BX7    X4-X5                                                           GPO         4958     A     
 GPO                NZ     X6,CIF9     IF DIF " 0    */ R1 WORDS                           GPO         4959     A     
 GPO                NZ     X7,CIF9     IF [II] " [IK]                                      GPO         4960     A     
 GPO                SX3    X3-4        N = N - 4                                           GPO         4961     A     
 GPO                SA4    A4+B2       II = II + 3                                         GPO         4962     A     
 GPO                SA5    A5+B2       IK = IK + 3                                         GPO         4963     A     
 GPO                NZ     X3,CIF8     IF N " 0                                            GPO         4964     A     
 GPO                                                                                       GPO         4965     A     
 GPO      *         *IP*"S MATCH, MARK K AS SIMILAR TO I                                   GPO         4966     A     
 GPO                                                                                       GPO         4967     A     
 GPO                SA3    CAS                                                             GPO         4968     A     
 GPO                LX3    PI.CAP                                                          GPO         4969     A     
 GPO                BX4    X0+X3       CA[IIT(K)] = CAS                                    GPO         4970     A     
 GPO                BX6    X4+X2       MIP[IIT(K)] = 1                                     GPO         4971          I
          -FCC0514
 GPO                SA6    A2                                                              GPO         4972          I
          -FCC0514
 GPO                SA5    A1-B1                                                           FCC0514       84     A     
 GPO                BX6    X4+X2       MIP[IIT(K)] = 1                                     FCC0514       85     A     
 GPO                SX7    B6                                                              FCC0514       86     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE2999    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                LX7    PI.CNP                                                          FCC0514       87     A     
 GPO                BX6    X7+X6       CN[IIT(K)] = CCN                                    FCC0514       88     A     
 GPO                SA6    A2                                                              FCC0514       89     A     
 GPO                BX7    X7+X5       CN[IIT(I)] = CCN  */ SET *CN* IN BASE               FCC0514       90     A     
 GPO                SA7    A5                                                              FCC0514       91     A     
 GPO                SX6    B1                                                              FCC0514       92     A     
 GPO                SA6    CNI         CNI = 1       */ SET FOR *CN* INCREMENT             FCC0514       93     A     
 GPO                SA6    NBIP        NBIP = 1      */ SET FLAG FOR *BDT*                 FCC0514       94     A     
 GPO                                                                                       FCC0514       95     A     
 GPO      *         ADVANCE TO NEXT *IP* IN *IIT*                                          FCC0514       96     A     
 GPO                                                                                       GPO         4973     A     
 GPO       CIF9     LX2    -PI.LFP                                                         GPO         4974     A     
 GPO                SB4    X2          K = LF[PIK]                                         GPO         4975     A     
 GPO                EQ     CIF7                                                            GPO         4976     A     
 GPO                                                                                       GPO         4977     A     
 GPO       CIF10    SX6    4           L.TXT = 4                                           GPO         4978     A     
 GPO                SA6    L.TXT                                                           GPO         4979     A     
 GPO                SX7    0                                                               GPO         4980     A     
 GPO                SA7    L.RND       L.RND = 0                                           GPO         4981     A     
 GPO                                                                                       GPO         4982     A     
 GPO                IF     DEF,/DEBUG/CIF,1                                                GPO         4983     A     
 GPO                DCALL  DMPIIT,([O.IIT],L.IIT,PIC)                                      GPO         4984     A     
 GPO                                                                                       GPO         4985     A     
 GPO                EQ     CIF                                                             GPO         4986     A     
 GPO       DIF      TITLE  DIF - DEVELOP INCREMENT FORMULAS                                GPO         4987     A     
 GPO      **        DIF - DEVELOP INCREMENT FORMULA OF AN *IP* IN A SINGLE VAR,            GPO         4988     A     
 GPO      *                OR EXTRACT AN  *IP* FORMULA.                                    GPO         4989     A     
 GPO      *                                                                                GPO         4990     A     
 GPO      *         ENTRY  (B6) = MULT , =0 IF TO FORM *INC* FORMULA, ELSE = -1            GPO         4991     A     
 GPO      *                (X4) = [O.TXT]                                                  GPO         4992     A     
 GPO      *                (X0) = R-NUMBER EXTRACTOR MASK                                  GPO         4993     A     
 GPO      *                (A5) = R2 , OF *TST* OF *IP*                                    GPO         4994     A     
 GPO      *                (CAS) = CA OF THE *IP*                                          GPO         4995     A     
 GPO      *                *RND* ALLOCATION MADE FOR SCRATCH SPACE                         GPO         4996     A     
 GPO      *                                                                                GPO         4997     A     
 GPO      *         EXIT   (A0) = IB , ADDRESS OF *FORMULA IN *IIT*                        GPO         4998     A     
 GPO                                                                                       GPO         4999     A     
 GPO       DIF      ROUTINE                                                                GPO         5000     A     
 GPO                SA1    O.RND                                                           GPO         5001     A     
 GPO                SA2    L.RND                                                           GPO         5002     A     
 GPO                S"TB"  X4+3        TB = O.TXT + 3                                      GPO         5003     A     
 GPO                IX2    X1+X2                                                           GPO         5004     A     
 GPO                SB5    X1                                                              GPO         5005     A     
 GPO                SB3    -3                                                              GPO         5006     A     
 GPO                SA0    X2-2        SI = O.RND + L.RND-2  */ STACK ADDRESS              GPO         5007     A     
 GPO                MX7    0                                                               GPO         5008     A     
 GPO                SA7    "TB"        [TB] = 0                                            GPO         5009     A     
 GPO                SA7    A0+B1       [SI+1] = 0    */ STACK TERMINATOR                   GPO         5010     A     
 GPO                SA7    X1          OI = O.RND;  [OI] = 0  */ OUTPUT LIST               GPO         5011     A     
 GPO                SA5    A5-B1       R1 = R2 - 1                                         GPO         5012     A     
 GPO                BX6    "RN"X5                                                          GPO         5013     A     
 GPO                SX4    X6+B3                                                           GPO         5014     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3000    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA5    "TB"+X4     R1 = TB + RI[R1]-3                                  GPO         5015     A     
 GPO                                                                                       GPO         5016     A     
 GPO      *         PHASE 1 - TOP DOWN TO FORM INCREMENT FORMULA IN OUTPUT LIST            GPO         5017     A     
 GPO      *         PROCESS NEXT INSTRUCTION                                               GPO         5018     A     
 GPO                                                                                       GPO         5019     A     
 GPO       DIF1     SA4    A5+2        DI = R1 + 2                                         GPO         5020     A     
 GPO                BX7    X5          R1W = [R1]                                          GPO         5021     A     
 GPO                LX4    58-D.TYP                                                        GPO         5022     A     
 GPO                IX3    X4+X4                                                           GPO         5023     A     
 GPO                MI     X4,DIF14    IF TYPE[DI] = III                                   GPO         5024     A     
 GPO                PL     X3,DIF5     IF TYPE[DI] = I                                     GPO         5025     A     
 GPO                                                                                       GPO         5026     A     
 GPO      *         OUTPUT INSTRUCTION, PUSHUP STACK                                       GPO         5027     A     
 GPO                                                                                       GPO         5028     A     
 GPO       DIF2     SA3    A5-B3       LI = R1 + 3                                         GPO         5029     A     
 GPO                SX1    B1                                                              GPO         5030     A     
 GPO                LX1    I.MP                                                            GPO         5031     A     
 GPO                BX6    X1+X3                                                           GPO         5032     A     
 GPO                SA0    A0+B1       SI = SI + 1                                         GPO         5033     A     
 GPO                LX3    59-I.MP                                                         GPO         5034     A     
 GPO                MI     X3,DIF2A    IF M[LI]      */ ALREADY OUTPUT                     GPO         5035     A     
 GPO                                                                                       GPO         5036     A     
 GPO                SA7    A7+1        OI = OI + 1;  [OI] = R1W                            GPO         5037     A     
 GPO                SA6    A3+         M[LI] = 1     */ INDICATE IN OUTPUT LIST            GPO         5038     A     
 GPO                                                                                       GPO         5039     A     
 GPO       DIF2A    SA3    A0          R1W = [SI]                                          GPO         5040     A     
 GPO                BX2    "RN"X3                                                          GPO         5041     A     
 GPO                ZR     X3,DIF15    IF R1W = 0    */ END OF STACK                       GPO         5042     A     
 GPO                SB2    X2+B3                                                           GPO         5043     A     
 GPO                SA5    "TB"+B2     R1 = TB + RI[R1]-3                                  GPO         5044     A     
 GPO                BX5    X3                                                              GPO         5045     A     
 GPO                EQ     DIF1                                                            GPO         5046     A     
 GPO                                                                                       GPO         5047     A     
 GPO      *         STACK INSTRUCTION, FOLLOW SELECTED OPERAND, (X6) = OP                  GPO         5048     A     
 GPO                                                                                       GPO         5049     A     
 GPO       DIF4     SX4    X6+B3                                                           GPO         5050     A     
 GPO                BX6    X7                                                              GPO         5051     A     
 GPO                SA6    A0          [SI] = R1W; RIL = R1W                               GPO         5052     A     
 GPO                UX7    B2,X7                                                           GPO         5053     A     
 GPO                SA0    A0-B1       SI = SI - 1                                         GPO         5054     A     
 GPO                SX3    B2-OC.XMT                                                       GPO         5055     A     
 GPO                SA5    "TB"+X4     R1 = TB + OP-3; R1W = [R1]                          GPO         5056     A     
 GPO                NZ     X3,DIF1     IF OC[R1L] " OC.XMT                                 GPO         5057     A     
 GPO                SA2    A0+2                                                            GPO         5058     A     
 GPO                NZ     X2,DIF1     IF [SI+2] " 0 */ NOT AT TOP OF STACK                GPO         5059     A     
 GPO                SA0    A0+B1       SI = SI + 1;  */ ERASE XMT                          GPO         5060     A     
 GPO                EQ     DIF1                                                            GPO         5061     A     
 GPO                                                                                       GPO         5062     A     
 GPO      *         PROCESS TYPE I INSTRUCTIONS                                            GPO         5063     A     
 GPO                                                                                       GPO         5064     A     
 GPO       DIF5     LX5    -R1.RKP                                                         GPO         5065     A     
 GPO                BX4    "RN"X5      K = RK[R1]                                          GPO         5066     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3001    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                LX5    R1.RKP-R1.RJP                                                   GPO         5067     A     
 GPO                BX6    "RN"X5      OP = J = RJ[R1]                                     GPO         5068     A     
 GPO                NZ     X4,DIF6     IF K " 0                                            GPO         5069          I
          -FCC2230X 
 GPO                NZ     X6,DIF5A    IF RJ[R1] " 0                                       FCC2230X       7     A     
 GPO                BX6    X4          OP = RK[R1]                                         FCC2230X       8     A     
 GPO                EQ     DIF5B                                                           FCC2230X       9     A     
 GPO                                                                                       FCC2230X      10     A     
 GPO       DIF5A    NZ     X4,DIF6     IF K " 0                                            FCC2230X      11     A     
 GPO                                                                                       GPO         5070     A     
 GPO      *         UNARY INSTRUCTION ( SXT, XMT, XMTC )                                   GPO         5071     A     
 GPO      *         (PK AND NR WITH RJ = 0)                                                FCC2230X      12     A     
 GPO                                                                                       GPO         5072     A     
 GPO                SA4    "TB"+X6     LJ = TB + OP                                        GPO         5073          I
          -FCC2230X 
 GPO       DIF5B    SA4    "TB"+X6     LJ = TB + OP                                        FCC2230X      13     A     
 GPO                LX4    59-I.MP                                                         GPO         5074     A     
 GPO                MI     X4,DIF2     IF M[LJ]      */ OPERAND PROCESSED                  GPO         5075     A     
 GPO                EQ     DIF4                                                            GPO         5076     A     
 GPO                                                                                       GPO         5077     A     
 GPO       DIF6     UX3    B2,X7                                                           GPO         5078     A     
 GPO                SX2    B2-OC.IM                                                        GPO         5079     A     
 GPO                NZ     X2,DIF10    IF OC[R1W] " OC.IM                                  GPO         5080     A     
 GPO                                                                                       GPO         5081     A     
 GPO      *         PROCESS *IM*, SET MULT FLAG WHEN PROCESSING *INV* OPERAND              GPO         5082     A     
 GPO                                                                                       GPO         5083     A     
 GPO                BX2    "RN"X7                                                          GPO         5084     A     
 GPO                SB2    X2                                                              GPO         5085     A     
 GPO                NE     B2,B6,DIF7  IF RI[R1W] " MULT                                   GPO         5086     A     
 GPO                SB6    0           MULT = 0                                            GPO         5087     A     
 GPO                                                                                       GPO         5088     A     
 GPO       DIF7     SA3    "TB"+X6     LJ = TB + OP                                        GPO         5089     A     
 GPO                LX3    59-I.MP                                                         GPO         5090     A     
 GPO                PL     X3,DIF8     IF ^M[LJ]                                           GPO         5091     A     
 GPO                SA3    "TB"+X4     LJ = TB + K                                         GPO         5092     A     
 GPO                LX3    59-I.MP                                                         GPO         5093     A     
 GPO                MI     X3,DIF2     IF M[LJ]      */ BOTH OPERANDS MARKED               GPO         5094     A     
 GPO                                                                                       GPO         5095     A     
 GPO       DIF8     SX6    A3-"TB"     OP = LJ - TB  */ INDEX OF OPERAND                   GPO         5096     A     
 GPO                NZ     B6,DIF4     IF MULT " 0                                         GPO         5097     A     
 GPO                LX3    I.MP-I.INVP                                                     GPO         5098     A     
 GPO                PL     X3,DIF4     IF ^INV[LJ]                                         GPO         5099     A     
 GPO                SB6    B2          MULT = RI[R1W]    */ INDICATE INV OP OF IM          GPO         5100     A     
 GPO                EQ     DIF4                                                            GPO         5101     A     
 GPO       IA       SPACE  2,14                                                            GPO         5102     A     
 GPO      *         PROCESS IA, IS . IGNORE *INV* TERMS IF MULT = 0 .                      GPO         5103     A     
 GPO                                                                                       GPO         5104     A     
 GPO       DIF10    SA3    "TB"+X6     LJ = TB + J                                         GPO         5105          I
          -FCC0238AX
 GPO       DIF10    SX2    B2-OC.UP                                                        FCC0238AX     43     A     
 GPO                ZR     X2,DIF13    IF OC[R1W] = OC.UP                                  FCC0238AX     44     A     
 GPO                                                                                       FCC0238AX     45     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3002    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA3    "TB"+X6     LJ = TB + J                                         FCC0238AX     46     A     
 GPO                SA2    "TB"+X4     LK = TB + K                                         GPO         5106     A     
 GPO                BX1    X2*X3                                                           GPO         5107          I
          -FCC0640
 GPO                LX1    59-I.MP                                                         GPO         5108          I
          -FCC0640
 GPO                MI     X1,DIF2     IF M[LJ] & M[LK]                                    GPO         5109          I
          -FCC0640
 GPO                NZ     B6,DIF12    IF MULT " 0                                         GPO         5110     A     
 GPO                BX1    X2+X3                                                           GPO         5111     A     
 GPO                LX1    59-I.INVP                                                       GPO         5112     A     
 GPO                PL     X1,DIF12    IF ^(INV[LJ] ! INV[LK])                             GPO         5113     A     
 GPO                                                                                       GPO         5114     A     
 GPO      *         ONE OPERAND IS *INV*, CHANGE INST TO AN *XMT/XMTC*                     GPO         5115     A     
 GPO                                                                                       GPO         5116     A     
 GPO                SB4    OC.XMT      OC = OC.XMT                                         GPO         5117     A     
 GPO                LX3    59-I.INVP                                                       GPO         5118     A     
 GPO                PL     X3,DIF11    IF ^INV[LJ]                                         GPO         5119     A     
 GPO                SB2    B2-OC.IA                                                        GPO         5120     A     
 GPO                SX6    X4+         J = K                                               GPO         5121     A     
 GPO                ZR     B2,DIF11    IF OC[R1W] = OC.IA                                  GPO         5122     A     
 GPO                SB4    OC.XMTC     OC = OC.XMTC                                        GPO         5123     A     
 GPO                                                                                       GPO         5124     A     
 GPO       DIF11    LX6    R1.RJP                                                          GPO         5125     A     
 GPO                BX1    "RN"X7                                                          GPO         5126     A     
 GPO                PX6    B4,X6                                                           GPO         5127     A     
 GPO                BX7    X1+X6       R1W = TYI(OC,J,0,RI[R1W])                           GPO         5128     A     
 GPO                LX6    -R1.RJP     OP = J                                              GPO         5129     A     
 GPO                SA3    "TB"+X6     LJ = TB + J                                         FCC0640        5     A     
 GPO                LX3    59-I.MP                                                         FCC0640        6     A     
 GPO                MI     X3,DIF2     IF M[LJ]                                            FCC0640        7     A     
 GPO                EQ     DIF4                                                            GPO         5130     A     
 GPO                                                                                       GPO         5131     A     
 GPO      *         ONE OPERAND MARKED, OR IN SCOPE OF MULTIPLY                            GPO         5132     A     
 GPO                                                                                       GPO         5133     A     
 GPO       DIF12    LX3    59-I.MP                                                         GPO         5134     A     
 GPO                PL     X3,DIF4     IF ^M[LJ]                                           GPO         5135     A     
 GPO                BX6    X4          OP = K                                              GPO         5136     A     
 GPO                LX2    59-I.MP                                                         FCC0640        8     A     
 GPO                MI     X2,DIF2     IF M[LK]      */ BOTH OPERANDS MARKED               FCC0640        9     A     
 GPO                EQ     DIF4                                                            GPO         5137     A     
 GPO                                                                                       FCC0238AX     47     A     
 GPO       DIF13    SA3    "TB"+X4     LK = TB + K                                         FCC0238AX     48     A     
 GPO                LX3    59-I.MP                                                         FCC0238AX     49     A     
 GPO                MI     X3,DIF2     IF M[LK]                                            FCC0238AX     50     A     
 GPO                SX6    X4          OP = K                                              FCC0238AX     51     A     
 GPO                EQ     DIF4                                                            FCC0238AX     52     A     
 GPO       TYIII    SPACE  2,10                                                            GPO         5138     A     
 GPO      *         TYPE III INSTRUCTION ( LD, KLS, STT )                                  GPO         5139     A     
 GPO                                                                                       GPO         5140     A     
 GPO       DIF14    SA3    A5+B1       R2 = R1 + 1                                         GPO         5141     A     
 GPO                LX3    -IH.RFP                                                         GPO         5142     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3003    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                BX6    "RN"X3      OP = RF[R2]                                         GPO         5143     A     
 GPO                SA2    "TB"+X6     LJ = TB + OP                                        GPO         5144     A     
 GPO                ZR     X6,DIF2     IF RF[R2] = 0                                       GPO         5145     A     
 GPO                LX2    59-I.MP                                                         GPO         5146     A     
 GPO                UX4    B2,X7                                                           GPO         5147     A     
 GPO                MI     X2,DIF2     IF M[LJ]                                            GPO         5148     A     
 GPO                SX4    B2-OC.STT                                                       GPO         5149     A     
 GPO                NZ     X4,DIF4     IF OC[R1W] " OC.STT                                 GPO         5150     A     
 GPO                NZ     B6,DIF4     IF MULT " 0                                         GPO         5151     A     
 GPO                SB4    OC.XMT      OC = OC.XMT   */ CHANGE STT TO AN XMT               GPO         5152     A     
 GPO                EQ     DIF11                                                           GPO         5153     A     
 GPO       DIF      SPACE  3,14                                                            GPO         5154     A     
 GPO      **        PHASE 2, ADD INCREMENT EXPRESSION TO *IIT*                             GPO         5155     A     
 GPO                                                                                       GPO         5156     A     
 GPO       DIF15    MX7    0                                                               GPO         5157     A     
 GPO                SX5    A7-B5       N = OI - O.RND  */ NUMBER OF INST                   GPO         5158     A     
 GPO                SA7    A7+B1       OI = OI + 1;  [OI] = 0  */ TERMINATOR               GPO         5159     A     
 GPO                LX5    2                                                               GPO         5160     A     
 GPO                ALLOC  IIT,X5+2    ALLOC( IIT , 4*N+2 )                                GPO         5161     A     
 GPO                SA3    O.TXT                                                           GPO         5162     A     
 GPO                SA4    O.RND                                                           GPO         5163     A     
 GPO                SX1    4           RN = 4                                              GPO         5164     A     
 GPO                SA0    X2+B6       IB = O.IIT + OLD(L.IIT)                             GPO         5165     A     
 GPO                SB4    B0          NLD = 0                                             GPO         5166     A     
 GPO                SB5    X5+2        NWD = 4*N + 2                                       GPO         5167     A     
 GPO                SB6    A0+4        II = IB + 4   */ STORE ADDRESS                      GPO         5168     A     
 GPO                SA5    X4+1        R1 = [O.RND+1]                                      GPO         5169     A     
 GPO                S"TB"  X3+3        TB = O.TXT + 3                                      GPO         5170     A     
 GPO                                                                                       GPO         5171     A     
 GPO       DIF16    BX7    "RN"X5      R = RI[R1]                                          GPO         5172     A     
 GPO                SA2    DIFA                                                            GPO         5173     A     
 GPO                SA3    "TB"+X7     LI = TB + R                                         GPO         5174     A     
 GPO                UX7    B2,X5                                                           GPO         5175     A     
 GPO                BX6    -X2*X3      M[LI] = 0                                           GPO         5176     A     
 GPO                SA4    F.RDT+B2    DI = RDT(OC[R1])                                    GPO         5177     A     
 GPO                BX7    X6+X1       HBP[LI] = RN  */ SAVE NEW R-NUMBER                  GPO         5178     A     
 GPO                SA7    A3                                                              GPO         5179     A     
 GPO                BX6    X4          [II] = DI                                           GPO         5180     A     
 GPO                SA6    B6                                                              GPO         5181     A     
 GPO                LX4    58-D.TYP                                                        GPO         5182     A     
 GPO                MI     X4,DIF17    IF TYPE[DI] = III                                   GPO         5183     A     
 GPO                LX4    1                                                               GPO         5184     A     
 GPO                MX7    0           R2W = 0                                             GPO         5185     A     
 GPO                MI     X4,DIF18    IF TYPE[DI] = II                                    GPO         5186     A     
 GPO                                                                                       GPO         5187     A     
 GPO      *         ADJUST OPERAND R-NUMBERS OF TYPE I INSTRUCTION                         GPO         5188     A     
 GPO                                                                                       GPO         5189     A     
 GPO                LX5    -R1.RJP                                                         GPO         5190     A     
 GPO                BX6    "RN"X5                                                          GPO         5191     A     
 GPO                SA4    "TB"+X6                                                         GPO         5192     A     
 GPO                LX5    R1.RJP-R1.RKP                                                   GPO         5193     A     
 GPO                SX6    X4          RJ[R1] = HBP[TB+RJ[R1]]                             GPO         5194     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3004    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                BX5    "RN"X5                                                          GPO         5195     A     
 GPO                SA4    "TB"+X5                                                         GPO         5196     A     
 GPO                LX6    R1.RJP                                                          GPO         5197     A     
 GPO                SX3    X4          RK[R1] = HBP[TB+RK[R1]]                             GPO         5198     A     
 GPO                LX3    R1.RKP                                                          GPO         5199     A     
 GPO                PX6    B2,X6                                                           GPO         5200     A     
 GPO                BX5    X6+X3                                                           GPO         5201     A     
 GPO                EQ     DIF18                                                           GPO         5202     A     
 GPO                                                                                       GPO         5203     A     
 GPO      *         PROCESS TYPE III INSTRUCTION ( LD, KLS, STT )                          GPO         5204     A     
 GPO                                                                                       GPO         5205     A     
 GPO       DIF17    SA2    A3-2        R2 = LI - 2;  R2W = [R2]                            GPO         5206     A     
 GPO                LX2    -IH.RFP                                                         GPO         5207     A     
 GPO                BX7    "RN"X2                                                          GPO         5208     A     
 GPO                SA4    "TB"+X7                                                         GPO         5209     A     
 GPO                BX2    X0*X2                                                           GPO         5210     A     
 GPO                SX7    X4          RF[R2W] = HBP[TB+RF[R2W]]                           GPO         5211     A     
 GPO                LX6    59-D.LDP                                                        GPO         5212     A     
 GPO                BX7    X2+X7                                                           GPO         5213     A     
 GPO                LX7    IH.RFP                                                          GPO         5214     A     
 GPO                PL     X6,DIF18    IF ^LD[II]                                          GPO         5215     A     
 GPO                                                                                       FCC0656       47     A     
 GPO                SA4    A3-B1       DIT = LI - 1                                        FCC0656       48     A     
 GPO                SA2    DMASK                                                           FCC0656       49     A     
 GPO                BX6    -X2*X4      [II] = ^DMASK&[DIT]  */ PRESERVE FP,L2              FCC0656       50     A     
 GPO                SA6    B6                                                              FCC0656       51     A     
 GPO                LX3    59-I.INVP                                                       GPO         5216     A     
 GPO                SB4    B4+B1       NLD = NLD + 1                                       GPO         5217     A     
 GPO                MI     X3,DIF18    IF INV[LI]                                          GPO         5218     A     
 GPO                                                                                       GPO         5219     A     
 GPO      *         SETUP FIRST HEADER WORD                                                GPO         5220     A     
 GPO                                                                                       GPO         5221     A     
 GPO                LX5    -R1.INP                                                         GPO         5222     A     
 GPO                SA2    CAS                                                             GPO         5223     A     
 GPO                SX6    X5                                                              GPO         5224     A     
 GPO                LX2    IA.CAP      CA[IB] = CAS                                        GPO         5225     A     
 GPO                LX6    IA.UDIP     UDI[IB] = IN[R1]                                    GPO         5226     A     
 GPO                PX3    B5,X6       NWD[IB] = NWD                                       GPO         5227     A     
 GPO                BX6    X2+X3                                                           GPO         5228     A     
 GPO                SB3    X1          LDI = RN                                            GPO         5229     A     
 GPO                LX5    R1.INP                                                          GPO         5230     A     
 GPO                SA6    A0                                                              GPO         5231     A     
 GPO                                                                                       GPO         5232     A     
 GPO       DIF18    SA7    B6-B1       [II-1] = R2W                                        GPO         5233     A     
 GPO                BX5    X0*X5                                                           GPO         5234     A     
 GPO                MX6    0                                                               GPO         5235     A     
 GPO                BX7    X5+X1       RI[R1] = RN                                         GPO         5236     A     
 GPO                SA6    B6+B1       [II+1] = 0                                          GPO         5237     A     
 GPO                SA7    A7-B1       [II-2] = [R1]                                       GPO         5238     A     
 GPO                SX1    X1+4        RN = RN + 4                                         GPO         5239     A     
 GPO                SA5    A5+B1       R1 = R1 + 1                                         GPO         5240     A     
 GPO                SB6    B6+4                                                            GPO         5241     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3005    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                NZ     X5,DIF16    IF [RI] " 0                                         GPO         5242     A     
 GPO                                                                                       GPO         5243     A     
 GPO      *         SETUP SECOND HEADER WORD                                               GPO         5244     A     
 GPO                                                                                       GPO         5245     A     
 GPO                SX3    B3          ILD[IB+1] = LDI                                     GPO         5246     A     
 GPO                LX3    IB.ILDP                                                         GPO         5247     A     
 GPO                PX6    B4,X3       NLD[IB+1] = NLD                                     GPO         5248     A     
 GPO                SA6    A0+B1                                                           GPO         5249     A     
 GPO                EQ     DIF                                                             GPO         5250     A     
 GPO                                                                                       GPO         5251     A     
 GPO       DIFA     BFMW   I,(M,HBP)                                                       GPO         5252     A     
 GPO       FIM      TITLE  FIM - FORM INCREMENT MODIFICATION LISTS                         GPO         5253     A     
 GPO      **        FIM - FORM INCREMENT MODIFICATION LISTS                                GPO         5254     A     
 GPO      *         SCAN *STC* ( *RD* VARS ) TO DEVELOP LIST OF *TP* INCREMENTS            GPO         5255     A     
 GPO      *         AT EACH RECURSIVE DEFINITION.                                          GPO         5256     A     
 GPO                                                                                       GPO         5257     A     
 GPO                QUAL   FIM                                                             GPO         5258     A     
 GPO                                                                                       GPO         5259     A     
 GPO       FIM      ROUTINE                                                                GPO         5260     A     
 GPO                S"TB"  X5+3        TB = O.SEQ + 3                                      GPO         5261     A     
 GPO                PX6    X4          NIS[BSW] = 0                                        GPO         5262     A     
 GPO                LX4    -BS.STCP                                                        GPO         5263     A     
 GPO                SA6    A4                                                              GPO         5264     A     
 GPO                SX7    X4          SC = STC[BSW]                                       GPO         5265     A     
 GPO                SA7    SC                                                              GPO         5266     A     
 GPO                                                                                       GPO         5267     A     
 GPO      *         SEARCH *IIT* FOR FORMULAS DEPENDING ON THE VARIABLE IN THIS            GPO         5268     A     
 GPO      *         STORE.                                                                 GPO         5269     A     
 GPO                                                                                       GPO         5270     A     
 GPO       FIM1     SA1    O.IIT                                                           GPO         5271     A     
 GPO                SA2    L.IIT                                                           GPO         5272     A     
 GPO                SA4    "TB"+X7     LI = TB + SC                                        GPO         5273     A     
 GPO                SB5    X1                                                              GPO         5274     A     
 GPO                LX4    -I.HBPP                                                         GPO         5275     A     
 GPO                SA5    A4-3        R1 = LI - 3                                         GPO         5276     A     
 GPO                BX7    X2          ITB = L.IIT                                         GPO         5277     A     
 GPO                SA7    ITB                                                             GPO         5278     A     
 GPO                SA4    B5+X4       EV = IIT(HBP[LI])  */ INC EXPR VALUE                GPO         5279     A     
 GPO                BX6    X4                                                              GPO         5280     A     
 GPO                SA6    EV                                                              GPO         5281     A     
 GPO                LX5    -R1.INP                                                         GPO         5282     A     
 GPO                SX7    X5          J = IN[R1]    */ *UDT* INDEX                        GPO         5283     A     
 GPO                SA7    J                                                               GPO         5284     A     
 GPO                SA4    PIC         I = PIC                                             GPO         5285     A     
 GPO                                                                                       GPO         5286     A     
 GPO       FIM2     SX6    X4+B1       PI = I + 1                                          GPO         5287     A     
 GPO                SA4    B5+X4       PIW = IIT(I)                                        GPO         5288     A     
 GPO                ZR     X4,FIM5     IF PIW = 0    */ END OF LIST                        GPO         5289     A     
 GPO                SA1    A4+B1       PI = O.IIT + PI                                     GPO         5290     A     
 GPO                LX1    -IA.UDIP                                                        GPO         5291     A     
 GPO                BX7    X5-X1                                                           GPO         5292     A     
 GPO                SX3    X7+                                                             GPO         5293     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3006    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                LX4    -PI.LFP     I = LF[PIW]                                         GPO         5294     A     
 GPO                NZ     X3,FIM2     IF UDI[PA] " J                                      GPO         5295     A     
 GPO                                                                                       GPO         5296     A     
 GPO      *         GET THE VALUE OF THE INCREMENT OF THIS *IP*                            GPO         5297     A     
 GPO                                                                                       GPO         5298     A     
 GPO                SA6    PI                                                              GPO         5299     A     
 GPO                SX7    X4                                                              GPO         5300     A     
 GPO                SA7    A6+B1       PI(2) = I                                           GPO         5301     A     
 GPO                LX1    IA.UDIP                                                         GPO         5302     A     
 GPO                RJ     EIE         EVALUATE  *DEL TP( EV ) *                           GPO         5303     A     
 GPO                                                                                       GPO         5304     A     
 GPO                PRINT  FIM,(* -- INC VALUE = *O20),X7                                  GPO         5305     A     
 GPO                                                                                       GPO         5306     A     
 GPO                UX5    B2,X7                                                           GPO         5307     A     
 GPO                NZ     X5,FIM3     IF VAL[EW] " 0                                      GPO         5308     A     
 GPO                                                                                       GPO         5309     A     
 GPO      *         *IP* HAS A INC VALUE OF ZERO, CHANGE IT TO AN *INV* TEMP.              GPO         5310     A     
 GPO                                                                                       GPO         5311     A     
 GPO                SB3    X6                                                              GPO         5312     A     
 GPO                SA1    O.TET                                                           GPO         5313     A     
 GPO                MX4    -T.IPFL                                                         GPO         5314     A     
 GPO                SA2    X1+B3       TI = TET(CAS)                                       GPO         5315     A     
 GPO                LX4    T.IPFP                                                          GPO         5316     A     
 GPO                MX5    1                                                               GPO         5317     A     
 GPO                LX5    1+T.INVP                                                        GPO         5318     A     
 GPO                BX2    X5+X2       INV[TI] = 1                                         GPO         5319     A     
 GPO                BX6    X4*X2       IPF[TI] = 0                                         GPO         5320     A     
 GPO                SA6    A2                                                              GPO         5321     A     
 GPO                SX7    B6                                                              GPO         5322     A     
 GPO                SA7    A3          L.IIT = OLD(L.IIT)                                  GPO         5323     A     
 GPO                                                                                       GPO         5324     A     
 GPO       FIM3     SA1    O.IIT                                                           GPO         5325     A     
 GPO                SA1    O.IIT                                                           GPO         5326     A     
 GPO                SA2    O.SEQ                                                           GPO         5327     A     
 GPO                SA4    PI+1                                                            GPO         5328     A     
 GPO                SA5    J                                                               GPO         5329     A     
 GPO                S"TB"  X2+3                                                            GPO         5330     A     
 GPO                SB5    X1                                                              GPO         5331     A     
 GPO                EQ     FIM2                                                            GPO         5332     A     
 GPO                                                                                       GPO         5333     A     
 GPO      *         TERMINATE *TP* INC LIST, POINT FROM *ST* TO LIST.                      GPO         5334     A     
 GPO                                                                                       GPO         5335     A     
 GPO       FIM5     SA1    L.IIT                                                           GPO         5336     A     
 GPO                SA2    ITB                                                             GPO         5337     A     
 GPO                IX6    X1-X2                                                           GPO         5338     A     
 GPO                PX5    X2                                                              GPO         5339     A     
 GPO                AX7    B1,X6       NPI = (L.IIT-ITB) / 2                               GPO         5340     A     
 GPO                ZR     X6,FIM6     IF NPI = 0                                          GPO         5341     A     
 GPO                SB4    X7                                                              GPO         5342     A     
 GPO                SA4    BSW                                                             GPO         5343     A     
 GPO                PX5    B4,X5                                                           GPO         5344     A     
 GPO                UX6    B2,X4                                                           GPO         5345     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3007    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SB3    B2+B4       NIS[BSW] = NIS[BSW] + NPI                           GPO         5346     A     
 GPO                PX7    B3,X4                                                           GPO         5347     A     
 GPO                SA7    A4                                                              GPO         5348     A     
 GPO                ADDWRD IIT,B0      ADDWRD( IIT , 0 ) */ LIST TERMINATOR                GPO         5349     A     
 GPO                SA4    O.SEQ                                                           GPO         5350     A     
 GPO                S"TB"  X4+3                                                            GPO         5351     A     
 GPO                                                                                       GPO         5352     A     
 GPO      *         ADVANCE TO NEXT *ST* ON *STC*                                          GPO         5353     A     
 GPO                                                                                       GPO         5354     A     
 GPO       FIM6     SA3    SC                                                              GPO         5355     A     
 GPO                SA2    "TB"+X3     LI = TB + SC                                        GPO         5356     A     
 GPO                LX2    -I.STCP                                                         GPO         5357     A     
 GPO                SX7    X2          SC = STC[LI]                                        GPO         5358     A     
 GPO                SA7    A3                                                              GPO         5359     A     
 GPO                SX2    X2                                                              GPO         5360     A     
 GPO                LX2    I.STCP                                                          GPO         5361     A     
 GPO                BX6    X5+X2       NPI[LI] = NPI;  HBP[LI] = ITB                       GPO         5362     A     
 GPO                SA6    A2                                                              GPO         5363     A     
 GPO                NZ     X7,FIM1     IF SC " 0                                           GPO         5364     A     
 GPO                                                                                       GPO         5365     A     
 GPO                EQ     FIM                                                             GPO         5366     A     
 GPO       EIE      TITLE  EIE - EVALUATE INCREMENT EXPRESSION                             GPO         5367     A     
 GPO      **        EIE - EVALUATE INCREMENT EXPRESSION OF A POLYNOMIAL                    GPO         5368     A     
 GPO      *                                                                                GPO         5369     A     
 GPO      *         ENTRY  (EV) = EXPRESSION VALUE ( 12/TYP,48/VAL )                       GPO         5370     A     
 GPO      *                (PI) = INDEX TO *IIT* OF INCREMENT FORMULA                      GPO         5371     A     
 GPO      *                (A1,X1) = PA, [PA] = FIRST WORD OF INCREMENT FORMULA            GPO         5372     A     
 GPO      *                                                                                GPO         5373     A     
 GPO      *         EXIT   *TP* INCREMENT VALUE TERM ADDED TO *IIT*                        GPO         5374     A     
 GPO                                                                                       GPO         5375     A     
 GPO       EIE0     BX5    X7                                                              GPO         5376     A     
 GPO                ALLOC  IIT,2       ALLOC( IIT , 2 );  I = OLD(L.IIT)                   GPO         5377     A     
 GPO                SA4    CAS                                                             GPO         5378     A     
 GPO                BX7    X5                                                              GPO         5379     A     
 GPO                SX6    X4                                                              GPO         5380     A     
 GPO                SA6    X2+B6       IIT(I) = CAS  */ CA OF *IP*                         GPO         5381     A     
 GPO                SA7    A6+B1       IIT(I+1) = EW */ EXPR VALUE                         GPO         5382     A     
 GPO                                                                                       GPO         5383     A     
 GPO       EIE      ROUTINE                                                                GPO         5384     A     
 GPO                SA2    A1+B1       PB = PA + 1                                         GPO         5385     A     
 GPO                SA3    EV                                                              GPO         5386     A     
 GPO                UX6    B2,X1       NW = NWD[PA]                                        GPO         5387     A     
 GPO                UX4    B3,X2       NLD = NLD[PB]                                       GPO         5388     A     
 GPO                LX6    -IA.CAP     CAS = CA[PA]                                        GPO         5389     A     
 GPO                SB6    6                                                               GPO         5390     A     
 GPO                BX7    X3          EW = EV                                             GPO         5391     A     
 GPO                SA6    CAS                                                             GPO         5392     A     
 GPO                EQ     B2,B6,EIE0  IF NW = 6     */ MUST BE A *LD* ONLY                GPO         5393     A     
 GPO                                                                                       GPO         5394     A     
 GPO                UX3    B4,X3       T = TYP[EV]                                         GPO         5395     A     
 GPO                NZ     B4,EIE1     IF T " 0      */ INCREMENT ^ A CON                  GPO         5396     A     
 GPO                EQ     B3,B1,EIE9  IF NLD = 1    */ ONLY 1 *LD*                        GPO         5397     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3008    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       GPO         5398     A     
 GPO      *         CHECK FOR *LD* / *XMTC* COMBINATION                                    GPO         5399     A     
 GPO                                                                                       GPO         5400     A     
 GPO       EIE1     GT     B3,B1,EIE2  IF NLD > 1                                          GPO         5401     A     
 GPO                SA4    A1+B6                                                           GPO         5402     A     
 GPO                UX6    B6,X4                                                           GPO         5403     A     
 GPO                SX5    B6-OC.XMTC                                                      GPO         5404     A     
 GPO                NZ     X5,EIE2     IF OC[PA+6] " OC.XMTC                               GPO         5405     A     
 GPO                SB6    B2-10                                                           GPO         5406     A     
 GPO                NZ     B6,EIE2     IF NW " 10                                          GPO         5407     A     
 GPO                                                                                       GPO         5408     A     
 GPO                SB5    B4-3        TYPE[EW] = 3 - T                                    GPO         5409     A     
 GPO                SB4    -B5                                                             GPO         5410     A     
 GPO                PX7    B4,X7                                                           GPO         5411     A     
 GPO                EQ     EIE0                                                            GPO         5412     A     
 GPO                                                                                       GPO         5413     A     
 GPO      *         COMPLEX CASE, SETUP *TST* = DEL TP(INC VAL) IN *TXT* AND               GPO         5414     A     
 GPO      *         CALL *SQZ* TO EVALUATE THE EXPRESSION.                                 GPO         5415     A     
 GPO                                                                                       GPO         5416     A     
 GPO       EIE2     ALLOC  TXT,10+B2   ALLOC( TXT , NW + 10 )                              GPO         5417          I
          -FCC0448
 GPO       EIE2     ALLOC  TXT,14+B2   ALLOC( TXT , NW + 14 )                              FCC0448       62     A     
 GPO                SA1    EV                                                              GPO         5418     A     
 GPO                SB7    X2          TB = O.TXT;  TI = OLD(L.TXT)                        GPO         5419     A     
 GPO                UX7    B4,X1       R2W = VAL[EV]                                       GPO         5420     A     
 GPO                SB3    OC.XMT      OPC = OC.XMT                                        GPO         5421     A     
 GPO                SX6    B1+B1       RI[R1] = 2                                          GPO         5422     A     
 GPO                NZ     B4,EIE3     IF TYP[EV] " 0                                      GPO         5423     A     
 GPO                                                                                       GPO         5424     A     
 GPO                SB2    OC.S        OC = OC.S                                           GPO         5425     A     
 GPO                LX7    R1.INP      IN[R1] = VAL[EV]                                    GPO         5426     A     
 GPO                BX6    X7+X6                                                           GPO         5427     A     
 GPO                SX7    0           R2W = 0                                             GPO         5428     A     
 GPO                EQ     EIE4                                                            GPO         5429     A     
 GPO                                                                                       GPO         5430     A     
 GPO       EIE3     MX5    -IH.CAIHL                                                       GPO         5431     A     
 GPO                BX4    X5*X7                                                           GPO         5432     A     
 GPO                SB2    OC.LD                                                           GPO         5433     A     
 GPO                BX7    -X5*X7      R2 = CAIH[EV]                                       GPO         5434     A     
 GPO                LX4    R1.INP-IH.RFP                                                   GPO         5435     A     
 GPO                BX6    X4+X6       R1 = TYII(0,RF[EV],0,2)                             GPO         5436     A     
 GPO                EQ     B4,B1,EIE4  IF T = 1                                            GPO         5437     A     
 GPO                SB3    OC.XMTC     OPC = OC.XMTC                                       GPO         5438     A     
 GPO                                                                                       GPO         5439     A     
 GPO      *         MOVE THE FORMULA TO *TXT*                                              GPO         5440     A     
 GPO                                                                                       GPO         5441     A     
 GPO       EIE4     RJ     SRI         SRI( OC , R1 , R2 )                                 GPO         5442          I
          -FCC0656
 GPO       EIE4     RJ     SMI         SMI( OC , R1 , R2 )                                 FCC0656       52     A     
 GPO                SA5    O.IIT                                                           GPO         5443     A     
 GPO                SA2    PI                                                              GPO         5444     A     
 GPO                SB4    4                                                               GPO         5445     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3009    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                IX7    X5+X2                                                           GPO         5446     A     
 GPO                SA1    X7          PA = O.IIT + PI                                     GPO         5447     A     
 GPO                SB2    B1+B1                                                           GPO         5448     A     
 GPO                UX6    B5,X1                                                           GPO         5449     A     
 GPO                SB5    B5-B2       N = NWD[PA] - 2                                     GPO         5450     A     
 GPO                SA5    A1+B2       PI = PA + 2                                         GPO         5451     A     
 GPO                                                                                       GPO         5452     A     
 GPO       EIE5     SA4    A5+B1                                                           GPO         5453     A     
 GPO                SA3    A4+B1                                                           GPO         5454     A     
 GPO                LX6    X5                                                              GPO         5455     A     
 GPO                BX1    "RN"X5      R = RI[R1]                                          GPO         5456     A     
 GPO                LX7    X4                                                              GPO         5457     A     
 GPO                SB5    B5-B4       N = N - 4                                           GPO         5458     A     
 GPO                SA6    B7+B6       TA = TB + TI; [TA] = [PI]                           GPO         5459     A     
 GPO                SA7    A6+B1       [TA+1] = [PI+1]                                     GPO         5460     A     
 GPO                BX6    X3                                                              GPO         5461     A     
 GPO                SA6    A7+B1       [TA+2] = [PA+2]                                     GPO         5462     A     
 GPO                MX7    0                                                               GPO         5463     A     
 GPO                SA7    A6+B1       [TA+3] = 0                                          GPO         5464     A     
 GPO                SB6    B6+B4       TI = TI + 4                                         GPO         5465     A     
 GPO                SA5    A5+B4       PA = PA + 4                                         GPO         5466     A     
 GPO                NZ     B5,EIE5     IF N " 0                                            GPO         5467     A     
 GPO                                                                                       GPO         5468     A     
 GPO                LX1    R1.RJP                                                          FCC0448       63     A     
 GPO                SX5    B6                                                              FCC0448       64     A     
 GPO                SB2    OC.XMT                                                          FCC0448       65     A     
 GPO                BX6    X1+X5                                                           FCC0448       66     A     
 GPO                RJ     SRI         SRI( XMT  TI,R)                                     FCC0448       67     A     
 GPO                SB2    OC.TST                                                          GPO         5469     A     
 GPO                SA3    L.TET                                                           GPO         5470     A     
 GPO                SX6    X1                                                              GPO         5471          I
          -FCC0448
 GPO                SX6    B6-B4       R = TI - 4                                          FCC0448       68     A     
 GPO                SA4    =XIT.                                                           GPO         5472     A     
 GPO                LX3    IH.CAP                                                          GPO         5473     A     
 GPO                BX7    X3+X4                                                           GPO         5474     A     
 GPO                RJ     SRI         SRI( TST  R,L.TET,IT. )                             GPO         5475     A     
 GPO                SB2    B0                                                              GPO         5476     A     
 GPO                MX6    0                                                               GPO         5477     A     
 GPO                RJ     SRI         SRI( EOQ  0,0 )                                     GPO         5478     A     
 GPO                                                                                       GPO         5479     A     
 GPO      *         CHANGE *LD* OF THE *RD* VARIABLE TO AN *XMT/XMTC*                      GPO         5480     A     
 GPO                                                                                       GPO         5481     A     
 GPO                SA2    A1+B1       PB = PA + 1                                         GPO         5482     A     
 GPO                LX2    -IB.ILDP                                                        GPO         5483     A     
 GPO                SB6    X2+4        TI = ILD[PB] + 4                                    GPO         5484     A     
 GPO                SX6    B1+B1                                                           GPO         5485     A     
 GPO                SB2    B3                                                              GPO         5486     A     
 GPO                LX6    R1.RJP                                                          GPO         5487     A     
 GPO                SX3    X2          RI = ILD[PB]                                        GPO         5488     A     
 GPO                BX6    X6+X3                                                           GPO         5489     A     
 GPO                RJ     SRI         SRI( OPC  2,0,RI )                                  GPO         5490     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3010    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       GPO         5491     A     
 GPO                CALL   SIE         SQUEEZE INCREMENT EXPRESSION                        GPO         5492     A     
 GPO                TRACE  EIE,RLIST                                                       GPO         5493     A     
 GPO                SA4    L.TXT                                                           GPO         5494     A     
 GPO                SX6    X4-5*4                                                          GPO         5495     A     
 GPO                NZ     X6,EIE7     IF L.TXT " 20                                       GPO         5496     A     
 GPO                                                                                       GPO         5497     A     
 GPO      *         *TXT* SHOULD CONTAIN * BOS, LD, XMT/XMTC, TST, EOQ *                   GPO         5498     A     
 GPO                                                                                       GPO         5499     A     
 GPO                SA1    O.TXT       T = O.TXT                                           GPO         5500     A     
 GPO                SA2    X1+4        R1L = [T+4]   */ R1 OF *LD*                         GPO         5501     A     
 GPO                UX7    B2,X2                                                           GPO         5502     A     
 GPO                SX6    B2-OC.LD                                                        GPO         5503     A     
 GPO                AX7    R1.INP                                                          GPO         5504     A     
 GPO                NZ     X6,EIE7     IF OC[R1L] " OC.LD                                  GPO         5505     A     
 GPO                SA3    X1+8        R1 = [T+8]    */ R1 OF XMT/XMTC                     GPO         5506     A     
 GPO                SA2    A2+B1       R2L = [T+5]   */ R2 WORD OF *LD*                    GPO         5507     A     
 GPO                LX7    IH.RFP                                                          GPO         5508     A     
 GPO                BX2    X7+X2       VAL = SHIFT(IN[R1],IH.RFP) + CAIH[R2L]              GPO         5509     A     
 GPO                UX5    B2,X3                                                           GPO         5510     A     
 GPO                SB3    OC.XMT                                                          GPO         5511     A     
 GPO                PX7    B1,X2       EW = PACK(1,VAL)                                    GPO         5512     A     
 GPO                EQ     B2,B3,EIE8  IF OC[R1] = OC.XMT                                  GPO         5513     A     
 GPO                SB3    OC.XMTC                                                         GPO         5514     A     
 GPO                SB4    B1+B1                                                           GPO         5515     A     
 GPO                PX7    B4,X2       EW = PACK(2,VAL)                                    GPO         5516     A     
 GPO                EQ     B2,B3,EIE8  IF OC[R1] = OC.XMTC                                 GPO         5517     A     
 GPO                                                                                       GPO         5518     A     
 GPO      *         SAVE EXPRESSION IN *MOD* FOR LATER MOVE TO HOLDING BLOCK.              GPO         5519     A     
 GPO                                                                                       GPO         5520     A     
 GPO       EIE7     ALLOC  MOD,X4-8    ALLOC( MOD , L.TXT - 8 )                            GPO         5521     A     
 GPO                SA4    O.TXT                                                           GPO         5522     A     
 GPO                SX3    X2+B6                                                           GPO         5523     A     
 GPO                MOVE   X1,X4+4,X3  MOVE( L.TXT-8 , O.TXT+4 , O.MOD+OLD(L.MOD))         GPO         5524     A     
 GPO                MX1    1                                                               GPO         5525     A     
 GPO                SA5    IT.                                                             GPO         5526     A     
 GPO                LX1    1+T.INVP                                                        GPO         5527     A     
 GPO                ADDWRD TET,X1      ADDWRD( TET , TETW(1,0,0,0) )                       GPO         5528     A     
 GPO                SX3    X3-1                                                            GPO         5529     A     
 GPO                SB4    3                                                               GPO         5530     A     
 GPO                LX3    IH.CAP                                                          GPO         5531     A     
 GPO                PX6    B4,X5                                                           GPO         5532     A     
 GPO                BX7    X3+X6       EW = PACK( 3 , CAIH[L.TET-1,IT.] )                  GPO         5533     A     
 GPO                                                                                       GPO         5534     A     
 GPO       EIE8     SX6    4           L.TXT = 4                                           GPO         5535     A     
 GPO                SA6    L.TXT                                                           GPO         5536     A     
 GPO                EQ     EIE0                                                            GPO         5537     A     
 GPO       EIE      EJECT                                                                  GPO         5538     A     
 GPO      *         EVALUATE EXPRESSION WITH CONSTANT INC VALUE AND 1 *LD*.                GPO         5539     A     
 GPO                                                                                       GPO         5540     A     
 GPO       EIE9     SB7    A1+B1       TB = PA + 1                                         GPO         5541     A     
 GPO                SA0    X3          LDV = VAL[EV] */ CON VALUE OF INC VARIABLE          GPO         5542     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3011    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                MX1    D.TYL                                                           GPO         5543     A     
 GPO                SB3    B1+B1                                                           GPO         5544     A     
 GPO                SB4    B3+B3                                                           GPO         5545     A     
 GPO                SA4    "TB"-B1     DI = TB - 1                                         GPO         5546     A     
 GPO                SB6    B1+B1       I = 2                                               GPO         5547     A     
 GPO                                                                                       GPO         5548     A     
 GPO      *         GET NEXT INSTRUCTION, JUMP TO PROCESSOR                                GPO         5549     A     
 GPO                                                                                       GPO         5550     A     
 GPO       EIE10    SA4    A4+B4       DI = DI + 4                                         GPO         5551     A     
 GPO                SA5    A4-B3       R1 = DI - 2                                         GPO         5552     A     
 GPO                LX4    58-D.TYP                                                        GPO         5553     A     
 GPO                BX6    X1*X4                                                           GPO         5554     A     
 GPO                UX7    B5,X5                                                           GPO         5555     A     
 GPO                NZ     X6,EIE11    IF TYPE[DI] " I                                     GPO         5556     A     
 GPO                LX5    -R1.RJP                                                         GPO         5557     A     
 GPO                BX6    "RN"X5                                                          GPO         5558     A     
 GPO                LX5    R1.RJP-R1.RKP                                                   GPO         5559     A     
 GPO                BX7    "RN"X5                                                          GPO         5560     A     
 GPO                SA2    "TB"+X6     VJ = [TB+RJ[R1]]                                    GPO         5561     A     
 GPO                SA3    "TB"+X7     VK = [TB+RK[R1]]                                    GPO         5562     A     
 GPO                                                                                       GPO         5563     A     
 GPO       EIE11    SA5    EIE.JT+B5                                                       GPO         5564     A     
 GPO                SB5    X5+                                                             GPO         5565     A     
 GPO                JP     B5          JUMP( EIE.JT( OC[R1] ) )                            GPO         5566     A     
 GPO                                                                                       GPO         5567     A     
 GPO      *         STORE VALUE OF THIS INSTRUCTION                                        GPO         5568     A     
 GPO                                                                                       GPO         5569     A     
 GPO       EIE12    SB6    B6+B4       I = I + 4                                           GPO         5570     A     
 GPO                SA7    A4+B1       LI = DI + 1;  [LI] = V                              GPO         5571     A     
 GPO                LT     B6,B2,EIE10 IF I < NW                                           GPO         5572     A     
 GPO                                                                                       GPO         5573     A     
 GPO                MX1    -IH.CAL                                                         GPO         5574     A     
 GPO                SX7    X7          V = SETX(V)   */ ELIMINATE -0                       GPO         5575     A     
 GPO                BX6    -X1*X7                                                          GPO         5576     A     
 GPO                PX7    X6          EW = PACK(0,V)                                      GPO         5577     A     
 GPO                EQ     EIE0                                                            GPO         5578     A     
 GPO                                                                                       GPO         5579     A     
 GPO      *         INSTRUCTION PROCESSORS                                                 GPO         5580     A     
 GPO                                                                                       GPO         5581     A     
 GPO                PROCESS (LD,ILD)                                                       GPO         5582     A     
 GPO                SX7    A0          V = LDV                                             GPO         5583     A     
 GPO                EQ     EIE12                                                           GPO         5584     A     
 GPO                                                                                       GPO         5585     A     
 GPO                PROCESS XMT                                                            GPO         5586     A     
 GPO                BX7    X2          V = VJ                                              GPO         5587     A     
 GPO                EQ     EIE12                                                           GPO         5588     A     
 GPO                                                                                       GPO         5589     A     
 GPO                PROCESS XMTC                                                           GPO         5590     A     
 GPO                BX7    -X2         V = -VJ                                             GPO         5591     A     
 GPO                EQ     EIE12                                                           GPO         5592     A     
 GPO                                                                                       GPO         5593     A     
 GPO                PROCESS IA                                                             GPO         5594     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3012    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                IX7    X2+X3       V = VJ + VK                                         GPO         5595     A     
 GPO                EQ     EIE12                                                           GPO         5596     A     
 GPO                                                                                       GPO         5597     A     
 GPO                PROCESS IS                                                             GPO         5598     A     
 GPO                IX7    X2-X3       V = VJ - VK                                         GPO         5599     A     
 GPO                EQ     EIE12                                                           GPO         5600     A     
 GPO                                                                                       GPO         5601     A     
 GPO                PROCESS IM                                                             GPO         5602     A     
 GPO                IX7    X2*X3       V = VJ * VK                                         GPO         5603     A     
 GPO                EQ     EIE12                                                           GPO         5604     A     
 GPO                                                                                       GPO         5605     A     
 GPO                PROCESS S                                                              GPO         5606     A     
 GPO                LX7    -R1.INP                                                         GPO         5607     A     
 GPO                SX7    X7          V = IN[R1]                                          GPO         5608     A     
 GPO                EQ     EIE12                                                           GPO         5609     A     
 GPO                                                                                       GPO         5610     A     
 GPO                PROCESS FMA                                                            GPO         5611     A     
 GPO                LX7    -R1.INP                                                         GPO         5612     A     
 GPO                SB5    X7-1                                                            GPO         5613     A     
 GPO                MX5    1                                                               GPO         5614     A     
 GPO                AX7    B5,X5       V = SHIFT( 1S59 , -(IN[R1]-1) )                     GPO         5615     A     
 GPO                EQ     EIE12                                                           GPO         5616     A     
 GPO                                                                                       GPO         5617     A     
 GPO                PROCESS SXT                                                            GPO         5618     A     
 GPO                SA3    A4+3        R2 = DI + 3   */ ADVANCE TO *KLS*                   GPO         5619     A     
 GPO                SA4    A4+B4       DI = DI + 4                                         GPO         5620     A     
 GPO                SB6    B6+B4       I = I + 4                                           GPO         5621     A     
 GPO                LX3    -IH.CAP                                                         GPO         5622     A     
 GPO                SB5    X3                                                              GPO         5623     A     
 GPO                LX7    B5,X2       V = SHIFT( VJ , CA[R2] )                            GPO         5624     A     
 GPO                EQ     EIE12                                                           GPO         5625     A     
 GPO                                                                                       FCC2271X      44     A     
 GPO                PROCESS UP                                                             FCC2271X      45     A     
 GPO                BX7    X3          V = VK                                              FCC2271X      46     A     
 GPO                EQ     EIE12                                                           FCC2271X      47     A     
 GPO                                                                                       GPO         5626     A     
 GPO       .STT     EQU    EIE2              */ CONTAINS AN *IH*                           GPO         5627     A     
 GPO       EIE.JT   SPACE  2                                                               GPO         5628     A     
 GPO      *         COMBINED JUMP TABLE FOR *MIP* AND *EIE*                                GPO         5629     A     
 GPO                                                                                       GPO         5630     A     
 GPO                MACRO  OPR,NAM                                                         GPO         5631     A     
 GPO                NOREF  /MIP/.NAM,.NAM                                                  GPO         5632     A     
 GPO                IF     DEF,/MIP/.NAM,2                                                 GPO         5633     A     
 GPO                EQ     /MIP/.NAM         .NAM                                          GPO         5634     A     
 GPO                ELSE   1                                                               GPO         5635     A     
 GPO                EQ     /MIP/MIP2                                                       GPO         5636     A     
 GPO                IF     DEF,.NAM,2                                                      GPO         5637     A     
 GPO      -         VFD    30/.NAM                                                         GPO         5638     A     
 GPO                ELSE   1                                                               GPO         5639     A     
 GPO      -         VFD    30/1S17+EIE                                                     GPO         5640     A     
 GPO                ENDM                                                                   GPO         5641     A     
 GPO                                                                                       GPO         5642     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3013    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO       EIE.JT   BSS    0                                                               GPO         5643     A     
 GPO      *CALL     OPRDEFS                                                                GPO         5644     A     
 GPO                                                                                       GPO         5645     A     
 GPO                QUAL                                                                   GPO         5646     A     
 GPO       MIP.JT   EQU    /FIM/EIE.JT                                                     GPO         5647     A     
 GPO                                                                                       GPO         5648     A     
 GPO                QUAL   CODE                                                            GPO         5649     A     
 GPO                                                                                       GPO         5650     A     
 GPO       FIM      EQU    /FIM/FIM                                                        GPO         5651     A     
 GPO       UPB      TITLE  UPB - UPDATE PROGRAM BLOCK TO REFLECT MODIFICATIONS             GPO         5652     A     
 GPO      **        UPB - UPDATE PROGRAM BLOCK TO REFLECT MODIFICATIONS FROM               GPO         5653     A     
 GPO      *         CODE MOTION AND STRENGTH REDUCTION PROCESSORS.                         GPO         5654     A     
 GPO      *         MERGE IN *LD*"S OF REMOVED INVARIANTS, POLYNOMIALS AND                 GPO         5655     A     
 GPO      *         INCREMENT CODE.                                                        GPO         5656     A     
 GPO                                                                                       GPO         5657     A     
 GPO       UPB      ROUTINE                                                                GPO         5658     A     
 GPO                UX6    B2,X4       NPI = NIS[BSW]  */ N.POLY INCRS                     GPO         5659     A     
 GPO                MX3    -BS.NTETL                                                       GPO         5660     A     
 GPO                LX4    -BS.NTETP                                                       GPO         5661     A     
 GPO                BX7    -X3*X4      NTL = NTET[BSW]  */ N.TEMP LDS                      GPO         5662     A     
 GPO                SX1    B2+X7                                                           GPO         5663     A     
 GPO                SA7    NTL                                                             GPO         5664     A     
 GPO                SX6    B2+B2                                                           GPO         5665     A     
 GPO                IX5    X6+X7                                                           GPO         5666     A     
 GPO                LX5    3                                                               GPO         5667     A     
 GPO                ALLOC  MLT,X1      ALLOC( MLT , NTL + NPI )                            GPO         5668     A     
 GPO                ALLOC  MOD,X5      ALLOC( MOD , 8*NTL + 16*NPI )                       GPO         5669     A     
 GPO                SA3    O.MLT                                                           GPO         5670     A     
 GPO                SA5    O.SEQ                                                           GPO         5671     A     
 GPO                SB7    X2          MB = O.MOD; MB = OLD(L.MOD)                         GPO         5672          I
          -FCC0717
 GPO                SA0    X3          MLI = O.MLT                                         GPO         5673          I
          -FCC0717
 GPO                SA2    IT.                                                             GPO         5674          I
          -FCC0717
 GPO                SA3    NTL                                                             GPO         5675          I
          -FCC0717
 GPO                SB5    X5+2        SB = O.SEQ + 2                                      GPO         5676          I
          -FCC0717
 GPO                SA1    TTI                                                             GPO         5677          I
          -FCC0717
 GPO                ZR     X3,UPB4     IF NTL = 0                                          GPO         5678          I
          -FCC0717
 GPO                                                                                       GPO         5679          I
          -FCC0717
 GPO      *         SCAN *TET* AND SETUP *LD*"S OF REMOVED EXPRESSIONS                     GPO         5680          I
          -FCC0717
 GPO                                                                                       GPO         5681          I
          -FCC0717
 GPO                SA4    O.TET                                                           GPO         5682          I
          -FCC0717
 GPO                SB2    X1                                                              GPO         5683          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3014    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
          -FCC0717
 GPO                SA5    X4+B2       TI = O.TET + TTI  */ *TET* INDEX                    GPO         5684          I
          -FCC0717
 GPO                SX6    B2+X3       TTI = TTI + NTL  */ ADVANCE *TET* INDEX             GPO         5685          I
          -FCC0717
 GPO                SA6    A1                                                              GPO         5686          I
          -FCC0717
 GPO                SB4    X3          NT = NTL                                            GPO         5687          I
          -FCC0717
 GPO                SA1    UPBC                                                            GPO         5688          I
          -FCC0717
 GPO                                                                                       GPO         5689          I
          -FCC0717
 GPO       UPB1     LX5    -T.CAP                                                          GPO         5690          I
          -FCC0717
 GPO                SX3    X5                                                              GPO         5691          I
          -FCC0717
 GPO                LX5    T.CAP-T.BIP                                                     GPO         5692          I
          -FCC0717
 GPO                BX6    "RN"X5      R = BI[TI]    */ INSERT POINTER                     GPO         5693          I
          -FCC0717
 GPO                LX3    IH.CAP                                                          GPO         5694          I
          -FCC0717
 GPO                SA4    B5+X6       DI = SB + R                                         GPO         5695          I
          -FCC0717
 GPO                SB2    OC.TLD                                                          GPO         5696          I
          -FCC0717
 GPO                BX7    X2+X3       R2W = CAIH[CA[TI],IT.]                              GPO         5697          I
          -FCC0717
 GPO                BX3    X1*X4                                                           GPO         5698          I
          -FCC0717
 GPO                NZ     X3,UPB2     IF STRS[DI] ! PI[DI] " 0                            GPO         5699          I
          -FCC0717
 GPO                                                                                       GPO         5700          I
          -FCC0717
 GPO      *         INSERT *LD* DIRECTLY IN *SEQ*                                          GPO         5701          I
          -FCC0717
 GPO                                                                                       GPO         5702          I
          -FCC0717
 GPO                SA7    A4-B1       [DI-1] = R2W                                        GPO         5703          I
          -FCC0717
 GPO                PX6    B2,X6                                                           GPO         5704          I
          -FCC0717
 GPO                SA3    F.RDT+B2                                                        GPO         5705          I
          -FCC0717
 GPO                BX7    X3                                                              GPO         5706          I
          -FCC0717
 GPO                SA6    A7-B1       [DI-2] = TYIII(OC.TLD,0,0,R)                        GPO         5707          I
          -FCC0717
 GPO                SA7    A4          [DI] = RDT(OC.TLD)                                  GPO         5708          I
          -FCC0717
 GPO                EQ     UPB3                                                            GPO         5709          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3015    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
          -FCC0717
 GPO                                                                                       GPO         5710          I
          -FCC0717
 GPO      *         SETUP *MOD* ENTRY FOR * LD / XMT *                                     GPO         5711          I
          -FCC0717
 GPO                                                                                       GPO         5712          I
          -FCC0717
 GPO       UPB2     SA3    UPBA                                                            GPO         5713          I
          -FCC0717
 GPO                SX4    B6                                                              GPO         5714          I
          -FCC0717
 GPO                LX6    ML.IIP                                                          GPO         5715          I
          -FCC0717
 GPO                LX4    ML.MTIP                                                         GPO         5716          I
          -FCC0717
 GPO                IX4    X4+X6                                                           GPO         5717          I
          -FCC0717
 GPO                BX6    X3+X4                                                           GPO         5718          I
          -FCC0717
 GPO                SA6    A0          [MLI] = MCW(1,R,2,MI)                               GPO         5719          I
          -FCC0717
 GPO                SA0    A0+B1       MLI = MLI + 1                                       GPO         5720          I
          -FCC0717
 GPO                SX6    B6                                                              GPO         5721          I
          -FCC0717
 GPO                RJ     SRI         SRI( TLD  R,R2W )                                   GPO         5722          I
          -FCC0717
 GPO                SB2    OC.XMT                                                          GPO         5723          I
          -FCC0717
 GPO                SX5    B6-4                                                            GPO         5724          I
          -FCC0717
 GPO                SX6    B6                                                              GPO         5725          I
          -FCC0717
 GPO                LX5    R1.RJP                                                          GPO         5726          I
          -FCC0717
 GPO                BX6    X5+X6                                                           GPO         5727          I
          -FCC0717
 GPO                RJ     SRI         SRI( XMT  MI,MI-4 )                                 GPO         5728          I
          -FCC0717
 GPO                                                                                       GPO         5729          I
          -FCC0717
 GPO       UPB3     SB4    B4-B1       NT = NT - 1                                         GPO         5730          I
          -FCC0717
 GPO                SA5    A5+B1       TI = TI + 1                                         GPO         5731          I
          -FCC0717
 GPO                NZ     B4,UPB1     IF NT " 0                                           GPO         5732          I
          -FCC0717
 GPO       UPB      SPACE  2,14                                                            GPO         5733          I
          -FCC0717
 GPO      *         SCAN *STC* CHAIN AND SETUP INCREMENT CODE                              GPO         5734          I
          -FCC0717
 GPO                                                                                       GPO         5735          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3016    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
          -FCC0717
 GPO       UPB4     SA4    BSW                                                             GPO         5736          I
          -FCC0717
 GPO                SB5    B5+B1       SB = SB + 1   */ O.SEQ + 3                          GPO         5737          I
          -FCC0717
 GPO                UX6    B4,X4                                                           GPO         5738          I
          -FCC0717
 GPO                ZR     B4,UPB12    IF NIS[BSW] = 0  */ NO INCREMENTS                   GPO         5739          I
          -FCC0717
 GPO                SA3    O.IIT                                                           GPO         5740          I
          -FCC0717
 GPO                LX4    -BS.STCP                                                        GPO         5741          I
          -FCC0717
 GPO                SX4    X4          SI = STC[BSW]                                       GPO         5742          I
          -FCC0717
 GPO                SA1    X3          (A1) = [O.IIT]                                      GPO         5743          I
          -FCC0717
 GPO                                                                                       GPO         5744          I
          -FCC0717
 GPO       UPB5     SA3    B5+X4       LI = SB + SI                                        GPO         5745          I
          -FCC0717
 GPO                UX6    B3,X3       NPI = NIS[LI]                                       GPO         5746          I
          -FCC0717
 GPO                LX3    -I.HBPP                                                         GPO         5747          I
          -FCC0717
 GPO                SB2    X3                                                              GPO         5748          I
          -FCC0717
 GPO                LX3    I.HBPP-I.STCP                                                   GPO         5749          I
          -FCC0717
 GPO                SX7    X3          SC = STC[LI]  */ NEXT ON CHAIN                      GPO         5750          I
          -FCC0717
 GPO                LX4    ML.IIP                                                          GPO         5751          I
          -FCC0717
 GPO                SA7    SC                                                              GPO         5752          I
          -FCC0717
 GPO                ZR     B3,UPB11    IF NPI = 0    */ NO INCS AT THIS *ST*               GPO         5753          I
          -FCC0717
 GPO                                                                                       GPO         5754          I
          -FCC0717
 GPO                SA5    A1+B2       ILI = O.IIT + HBP[LI];  C = [ILI]  */ CA            GPO         5755          I
          -FCC0717
 GPO                SX7    B6                                                              GPO         5756          I
          -FCC0717
 GPO                LX7    ML.MTIP                                                         GPO         5757          I
          -FCC0717
 GPO                SB4    B6          MF = MI       */ INIT VALUE                         GPO         5758          I
          -FCC0717
 GPO                BX6    X4+X7                                                           GPO         5759          I
          -FCC0717
 GPO                SA6    A0          [MLI] = MCW(0,SI,0,MI)                              GPO         5760          I
          -FCC0717
 GPO                SA0    A0+B1       MLI = MLI + 1                                       GPO         5761          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3017    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
          -FCC0717
 GPO                                                                                       GPO         5762          I
          -FCC0717
 GPO      *         OUTPUT *TLD* OF *IP*                                                   GPO         5763          I
          -FCC0717
 GPO                                                                                       GPO         5764          I
          -FCC0717
 GPO       UPB6     SB2    OC.TLD                                                          GPO         5765          I
          -FCC0717
 GPO                SX6    B6                                                              GPO         5766          I
          -FCC0717
 GPO                LX5    IH.CAP                                                          GPO         5767          I
          -FCC0717
 GPO                BX7    X5+X2       R2W = CAIH[C,IT.]                                   GPO         5768          I
          -FCC0717
 GPO                BX1    X7                                                              GPO         5769          I
          -FCC0717
 GPO                RJ     SRI         SRI( TLD  MI,R2W )                                  GPO         5770          I
          -FCC0717
 GPO                                                                                       GPO         5771          I
          -FCC0717
 GPO      *         OUTPUT STT / LD OF INCREMENT VALUE                                     GPO         5772          I
          -FCC0717
 GPO                                                                                       GPO         5773          I
          -FCC0717
 GPO                SA5    A5+B1       ILI = ILI + 1                                       GPO         5774          I
          -FCC0717
 GPO                UX7    B2,X5       T = TYP[ILI];  R2W = VAL[ILI]                       GPO         5775          I
          -FCC0717
 GPO                SA3    UPBB+B2                                                         GPO         5776          I
          -FCC0717
 GPO                SX6    B6                                                              GPO         5777          I
          -FCC0717
 GPO                NZ     B2,UPB7     IF T " 0                                            GPO         5778          I
          -FCC0717
 GPO                                                                                       GPO         5779          I
          -FCC0717
 GPO                LX7    IH.CAP                                                          GPO         5780          I
          -FCC0717
 GPO                SX4    B6-4                                                            GPO         5781          I
          -FCC0717
 GPO                LX4    IH.RFP      C = VAL[ILI]  */ INC VALUE                          GPO         5782          I
          -FCC0717
 GPO                BX7    X4+X7       R2W = IHW(0,MI-4,C,0)                               GPO         5783          I
          -FCC0717
 GPO                SB2    X3                                                              GPO         5784          I
          -FCC0717
 GPO                RJ     SII         SII( STT  MI,MI-4,C )                               GPO         5785          I
          -FCC0717
 GPO                EQ     UPB10                                                           GPO         5786          I
          -FCC0717
 GPO                                                                                       GPO         5787          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3018    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
          -FCC0717
 GPO      *         TLD - REPLACE *CA* WITH EQUIVALENT                                     GPO         5788          I
          -FCC0717
 GPO                                                                                       GPO         5789          I
          -FCC0717
 GPO       UPB7     PL     X3,UPB8     IF T < 3                                            GPO         5790          I
          -FCC0717
 GPO                SA4    O.TET                                                           GPO         5791          I
          -FCC0717
 GPO                LX7    -IH.CAP                                                         GPO         5792          I
          -FCC0717
 GPO                SB2    X7                                                              GPO         5793          I
          -FCC0717
 GPO                SA4    X4+B2                                                           GPO         5794          I
          -FCC0717
 GPO                LX4    -T.CAP                                                          GPO         5795          I
          -FCC0717
 GPO                SX7    X4          CA[R2W] = CA[TET(CA[R2W])                           GPO         5796          I
          -FCC0717
 GPO                LX7    IH.CAP                                                          GPO         5797          I
          -FCC0717
 GPO                BX7    X7+X2                                                           GPO         5798          I
          -FCC0717
 GPO                EQ     UPB9                                                            GPO         5799          I
          -FCC0717
 GPO                                                                                       GPO         5800          I
          -FCC0717
 GPO      *         LD - SET *IN* FIELD IN R1 WORD                                         GPO         5801          I
          -FCC0717
 GPO                                                                                       GPO         5802          I
          -FCC0717
 GPO       UPB8     MX4    -IH.CAIHL                                                       GPO         5803          I
          -FCC0717
 GPO                BX5    X4*X7       IH[R1] = RF[R2W]                                    GPO         5804          I
          -FCC0717
 GPO                BX7    -X4*X7      R2W = CAIH[R2W]                                     GPO         5805          I
          -FCC0717
 GPO                LX5    R1.INP-IH.RFP                                                   GPO         5806          I
          -FCC0717
 GPO                BX6    X5+X6                                                           GPO         5807          I
          -FCC0717
 GPO                                                                                       GPO         5808          I
          -FCC0717
 GPO       UPB9     SB2    X3          OC = SETX( UPBB(T) )                                GPO         5809          I
          -FCC0717
 GPO                AX3    18                                                              GPO         5810          I
          -FCC0717
 GPO                RJ     SRI         SRI( UPBB(T) , R1W,R2W )                            GPO         5811          I
          -FCC0656  -FCC0717
 GPO                RJ     SMI         SMI( UPBB(T) , R1W , R2W )                          FCC0656       53          I
          -FCC0717
 GPO                                                                                       GPO         5812          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3019    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
          -FCC0717
 GPO      *         OUTPUT INCREMENT OF POLYNOMIAL ( TP = TP + INCV )                      GPO         5813          I
          -FCC0717
 GPO                                                                                       GPO         5814          I
          -FCC0717
 GPO                SX5    B6-8                                                            GPO         5815          I
          -FCC0717
 GPO                SX4    B6-4                                                            GPO         5816          I
          -FCC0717
 GPO                SX6    B6                                                              GPO         5817          I
          -FCC0717
 GPO                LX5    R1.RJP                                                          GPO         5818          I
          -FCC0717
 GPO                SB2    X3          OC = SHIFT( UPBB(T) , -18 )                         GPO         5819          I
          -FCC0717
 GPO                LX4    R1.RKP                                                          GPO         5820          I
          -FCC0717
 GPO                BX3    X4+X5                                                           GPO         5821          I
          -FCC0717
 GPO                IX6    X3+X6                                                           GPO         5822          I
          -FCC0717
 GPO                RJ     SII         SII( OC  MI,MI-8,MI-4 )                             GPO         5823          I
          -FCC0717
 GPO                                                                                       GPO         5824          I
          -FCC0717
 GPO       UPB10    SX6    B6-4                                                            GPO         5825          I
          -FCC0717
 GPO                SB2    OC.TST                                                          GPO         5826          I
          -FCC0717
 GPO                BX7    X1                                                              GPO         5827          I
          -FCC0717
 GPO                RJ     SII         SII( TST  MI-4,R2W )                                GPO         5828          I
          -FCC0717
 GPO                SA5    A5+B1       ILI = ILI + 1                                       GPO         5829          I
          -FCC0717
 GPO                NZ     X5,UPB6     IF [ILI] " 0                                        GPO         5830          I
          -FCC0717
 GPO                                                                                       GPO         5831          I
          -FCC0717
 GPO                SA4    A0-B1                                                           GPO         5832          I
          -FCC0717
 GPO                SX3    B6-B4       NI = (MI-MF)/4  */ N.INSTRUCTIONS IN MOD            GPO         5833          I
          -FCC0717
 GPO                LX3    ML.NIP-2                                                        GPO         5834          I
          -FCC0717
 GPO                BX6    X3+X4                                                           GPO         5835          I
          -FCC0717
 GPO                SA6    A4          NI[MIL-1] = NI                                      GPO         5836          I
          -FCC0717
 GPO                                                                                       GPO         5837          I
          -FCC0717
 GPO       UPB11    SA4    SC                                                              GPO         5838          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3020    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
          -FCC0717
 GPO                NZ     X4,UPB5     IF SC " 0                                           GPO         5839          I
          -FCC0717
 GPO       UPB      SPACE  2,14                                                            GPO         5840          I
          -FCC0717
 GPO      *         SET FINAL TABLE LENGTHS AND MERGE THE BLOCKS                           GPO         5841          I
          -FCC0717
 GPO                                                                                       GPO         5842          I
          -FCC0717
 GPO       UPB12    SA1    O.MLT                                                           GPO         5843          I
          -FCC0717
 GPO                SB7    X2          MB = O.MOD;  MI = OLD(L.MOD)                        FCC0717       61     A     
 GPO                SA2    IT.                                                             FCC0717       62     A     
 GPO                SA0    X3          MLI = O.MLT                                         FCC0717       63     A     
 GPO                SB5    X5+3        SB = O.SEQ + 3                                      FCC0717       64     A     
 GPO                                                                                       FCC0717       65     A     
 GPO      *         SCAN *STC* AND SETUP INCREMENT CODE FOR THE *IP*"S.                    FCC0717       66     A     
 GPO                                                                                       FCC0717       67     A     
 GPO                SA4    BSW                                                             FCC0717       68     A     
 GPO                UX6    B4,X4                                                           FCC0717       69     A     
 GPO                ZR     B4,UPB8     IF NIS[BSW] = 0  */ NO INCREMENTS                   FCC0717       70     A     
 GPO                LX4    -BS.STCP                                                        FCC0717       71     A     
 GPO                SA3    O.IIT                                                           FCC0717       72     A     
 GPO                SX4    X4          SI = STC[BSW]                                       FCC0717       73     A     
 GPO                SA1    X3          (A1) = [O.IIT]                                      FCC0717       74     A     
 GPO                                                                                       FCC0717       75     A     
 GPO       UPB1     SA3    B5+X4       LI = SB + SI                                        FCC0717       76     A     
 GPO                UX6    B3,X3       NPI = NIS[LI]                                       FCC0717       77     A     
 GPO                LX3    -I.HBPP                                                         FCC0717       78     A     
 GPO                SB2    X3                                                              FCC0717       79     A     
 GPO                LX3    I.HBPP-I.STCP                                                   FCC0717       80     A     
 GPO                SX7    X3          SC = STC[LI]  */ NEXT ON CHAIN                      FCC0717       81     A     
 GPO                LX4    ML.IIP                                                          FCC0717       82     A     
 GPO                SA7    SC                                                              FCC0717       83     A     
 GPO                ZR     B3,UPB7     IF NPI = 0    */ NO INCS AT THIS *ST*               FCC0717       84     A     
 GPO                                                                                       FCC0717       85     A     
 GPO      *         LOOP THROUGH C LIST IN *IIT* AND OUTPUT INCREMENTS                     FCC0717       86     A     
 GPO                                                                                       FCC0717       87     A     
 GPO                SA5    A1+B2       ILI = O.IIT + HBP[LI];  C = [ILI]  */ CA            FCC0717       88     A     
 GPO                SX7    B6                                                              FCC0717       89     A     
 GPO                LX7    ML.MTIP                                                         FCC0717       90     A     
 GPO                SB4    B6          MF = MI       */ INIT VALUE                         FCC0717       91     A     
 GPO                BX6    X4+X7                                                           FCC0717       92     A     
 GPO                SA6    A0          [MLI] = MCW(0,SI,0,MI)                              FCC0717       93     A     
 GPO                SA0    A0+B1       MLI = MLI + 1                                       FCC0717       94     A     
 GPO                                                                                       FCC0717       95     A     
 GPO      *         OUTPUT *TLD* OF *IP*                                                   FCC0717       96     A     
 GPO                                                                                       FCC0717       97     A     
 GPO       UPB2     SB2    OC.TLD                                                          FCC0717       98     A     
 GPO                SX6    B6                                                              FCC0717       99     A     
 GPO                LX5    IH.CAP                                                          FCC0717      100     A     
 GPO                BX7    X5+X2       R2W = CAIH[C,IT.]                                   FCC0717      101     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3021    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                BX1    X7          R2WS = R2W                                          FCC0717      102     A     
 GPO                RJ     SRI         SRI( TLD  MI,R2W )                                  FCC0717      103     A     
 GPO                                                                                       FCC0717      104     A     
 GPO      *         OUTPUT STT / LD OF INCREMENT VALUE                                     FCC0717      105     A     
 GPO                                                                                       FCC0717      106     A     
 GPO                SA5    A5+B1       ILI = ILI + 1                                       FCC0717      107     A     
 GPO                UX7    B2,X5       T = TYP[ILI];  R2W = VAL[ILI]                       FCC0717      108     A     
 GPO                SA3    UPBB+B2                                                         FCC0717      109     A     
 GPO                SX6    B6                                                              FCC0717      110     A     
 GPO                NZ     B2,UPB3     IF T " 0                                            FCC0717      111     A     
 GPO                                                                                       FCC0717      112     A     
 GPO                LX7    IH.CAP                                                          FCC0717      113     A     
 GPO                SX4    B6-4                                                            FCC0717      114     A     
 GPO                LX4    IH.RFP      C = VAL[ILI]  */ INC VALUE                          FCC0717      115     A     
 GPO                BX7    X4+X7       R2W = IHW(0,MI-4,C,0)                               FCC0717      116     A     
 GPO                SB2    X3                                                              FCC0717      117     A     
 GPO                RJ     SII         SII( STT  MI,MI-4,C )                               FCC0717      118     A     
 GPO                EQ     UPB6                                                            FCC0717      119     A     
 GPO                                                                                       FCC0717      120     A     
 GPO      *         TLD - REPLACE *CA* WITH EQUIVALENT                                     FCC0717      121     A     
 GPO                                                                                       FCC0717      122     A     
 GPO       UPB3     PL     X3,UPB4     IF T < 3                                            FCC0717      123     A     
 GPO                SA4    O.TET                                                           FCC0717      124     A     
 GPO                LX7    -IH.CAP                                                         FCC0717      125     A     
 GPO                SB2    X7                                                              FCC0717      126     A     
 GPO                SA4    X4+B2                                                           FCC0717      127     A     
 GPO                LX4    -T.CAP                                                          FCC0717      128     A     
 GPO                SX7    X4          CA[R2W] = CA[TET(CA[R2W])                           FCC0717      129     A     
 GPO                LX7    IH.CAP                                                          FCC0717      130     A     
 GPO                BX7    X7+X2                                                           FCC0717      131     A     
 GPO                EQ     UPB5                                                            FCC0717      132     A     
 GPO                                                                                       FCC0717      133     A     
 GPO      *         LD - SET *IN* FIELD IN R1 WORD                                         FCC0717      134     A     
 GPO                                                                                       FCC0717      135     A     
 GPO       UPB4     MX4    -IH.CAIHL                                                       FCC0717      136     A     
 GPO                BX5    X4*X7       IH[R1] = RF[R2W]                                    FCC0717      137     A     
 GPO                BX7    -X4*X7      R2W = CAIH[R2W]                                     FCC0717      138     A     
 GPO                LX5    R1.INP-IH.RFP                                                   FCC0717      139     A     
 GPO                BX6    X5+X6                                                           FCC0717      140     A     
 GPO                                                                                       FCC0717      141     A     
 GPO       UPB5     SB2    X3          OC = SETX( UPBB(T) )                                FCC0717      142     A     
 GPO                AX3    18                                                              FCC0717      143     A     
 GPO                RJ     SMI         SMI( UPBB(T) , R1W , R2W )                          FCC0717      144     A     
 GPO                                                                                       FCC0717      145     A     
 GPO      *         OUTPUT INCREMENT OF POLYNOMIAL ( TP = TP + INCV )                      FCC0717      146     A     
 GPO                                                                                       FCC0717      147     A     
 GPO                SX5    B6-8                                                            FCC0717      148     A     
 GPO                SX4    B6-4                                                            FCC0717      149     A     
 GPO                SX6    B6                                                              FCC0717      150     A     
 GPO                LX5    R1.RJP                                                          FCC0717      151     A     
 GPO                SB2    X3          OC = SHIFT( UPBB(T) , -18 )                         FCC0717      152     A     
 GPO                LX4    R1.RKP                                                          FCC0717      153     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3022    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                BX3    X4+X5                                                           FCC0717      154     A     
 GPO                IX6    X3+X6                                                           FCC0717      155     A     
 GPO                RJ     SII         SII( OC  MI,MI-8,MI-4 )                             FCC0717      156     A     
 GPO                                                                                       FCC0717      157     A     
 GPO       UPB6     SX6    B6-4                                                            FCC0717      158     A     
 GPO                SB2    OC.TST                                                          FCC0717      159     A     
 GPO                BX7    X1          R2W = R2WS                                          FCC0717      160     A     
 GPO                RJ     SII         SII( TST  MI-4,R2W )                                FCC0717      161     A     
 GPO                SA5    A5+B1       ILI = ILI + 1                                       FCC0717      162     A     
 GPO                NZ     X5,UPB2     IF [ILI] " 0                                        FCC0717      163     A     
 GPO                                                                                       FCC0717      164     A     
 GPO                SA4    A0-B1                                                           FCC0717      165     A     
 GPO                SX3    B6-B4       NI = (MI-MF)/4  */ N.INSTRUCTIONS IN MOD            FCC0717      166     A     
 GPO                LX3    ML.NIP-2                                                        FCC0717      167     A     
 GPO                BX6    X3+X4                                                           FCC0717      168     A     
 GPO                SA6    A4          NI[MIL-1] = NI                                      FCC0717      169     A     
 GPO                                                                                       FCC0717      170     A     
 GPO       UPB7     SA4    SC                                                              FCC0717      171     A     
 GPO                NZ     X4,UPB1     IF SC " 0                                           FCC0717      172     A     
 GPO       UPB      SPACE  2,10                                                            FCC0717      173     A     
 GPO      *         SCAN *TET* AND SETUP *TLD*"S OF REMOVED EXPRESSIONS                    FCC0717      174     A     
 GPO                                                                                       FCC0717      175     A     
 GPO       UPB8     SA3    NTL                                                             FCC0717      176     A     
 GPO                ZR     X3,UPB15    IF NTL = 0                                          FCC0717      177     A     
 GPO                SA1    TTI                                                             FCC0717      178     A     
 GPO                SA4    O.TET                                                           FCC0717      179     A     
 GPO                SB2    X1                                                              FCC0717      180     A     
 GPO                SA5    X4+B2       TI = O.TET + TTI  */ *TET* INDEX                    FCC0717      181     A     
 GPO                SX6    B2+X3       TTI = TTI + NTL  */ ADVANCE *TET* INDEX             FCC0717      182     A     
 GPO                SA6    A1                                                              FCC0717      183     A     
 GPO                SB4    X3          NT = NTL                                            FCC0717      184     A     
 GPO                SA1    UPBC                                                            FCC0717      185     A     
 GPO                                                                                       FCC0717      186     A     
 GPO       UPB9     LX5    -T.CAP                                                          FCC0717      187     A     
 GPO                SX3    X5                                                              FCC0717      188     A     
 GPO                LX5    T.CAP-T.BIP                                                     FCC0717      189     A     
 GPO                BX6    "RN"X5      R = BI[TI]    */ INSERT POINTER                     FCC0717      190     A     
 GPO                SA4    B5+X6       LI = SB + R                                         FCC0717      191     A     
 GPO                LX3    IH.CAP                                                          FCC0717      192     A     
 GPO                BX7    X2+X3       R2W = CAIH[CA[TI],IT.]                              FCC0717      193     A     
 GPO                LX4    59-I.AIPP                                                       FCC0717      194     A     
 GPO                PL     X4,UPB11    IF ^AIP[LI]                                         FCC0717      195     A     
 GPO                                                                                       FCC0717      196     A     
 GPO      *         *TP* IS *AIP*, SEARCH FOR *TLD* OF INCREMENT IN *MOD* AND              FCC0717      197     A     
 GPO      *         FORM AN *XMT* FROM IT TO THE *TP*.  ( IO=I $ I=I+1 $ A(J,IO) )         FCC0717      198     A     
 GPO                                                                                       FCC0717      199     A     
 GPO                SA3    B7+B1       I = 1                                               FCC0717      200          I
          -FCC2045
 GPO       UPB10    SA3    A3+4        I = I + 4                                           FCC0717      201          I
          -FCC2045
 GPO                SB3    A0-B1       J = MLI - 1                                         FCC2045        4     A     
 GPO                SB2    B7+B1                                                           FCC2045        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3023    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO       UPB10    SA3    B3          MLW = [J]                                           FCC2045        6     A     
 GPO                SB3    B3-B1       J = J - 1     */ BACKWARDS SEARCH                   FCC2045        7     A     
 GPO                LX3    -ML.IIP                                                         FCC2045        8     A     
 GPO                BX4    "RN"X3                                                          FCC2045        9     A     
 GPO                IX5    X6-X4                                                           FCC2045       10     A     
 GPO                MI     X5,UPB10    IF II[MLW] > R                                      FCC2045       11     A     
 GPO                LX3    ML.IIP-ML.MTIP    I = MTI[MLW]                                  FCC2045       12     A     
 GPO                SA3    B2+X3                                                           FCC2045       13          I
          -FCC2149
 GPO                BX4    X3-X7                                                           FCC0717      202          I
          -FCC2149
 GPO                NZ     X4,UPB10    IF MOD(I) " R2W                                     FCC0717      203          I
          -FCC2149
 GPO                                                                                       FCC0717      204          I
          -FCC2149
 GPO                SA3    A3-B1                                                           FCC0717      205          I
          -FCC2149
 GPO                SA2    B2+X3                                                           FCC2149        5     A     
 GPO                LX3    ML.MTIP-ML.NIP    K = NI[MLW]                                   FCC2149        6     A     
 GPO                                                                                       FCC2149        7     A     
 GPO       UPB10A   BX4    X2-X7                                                           FCC2149        8     A     
 GPO                ZR     X4,UPB10B   IF MOD(I) = R2W                                     FCC2149        9     A     
 GPO                SX3    X3-1        K = K - 1                                           FCC2149       10     A     
 GPO                SA2    A2+4        I = I + 4                                           FCC2149       11     A     
 GPO                NZ     X3,UPB10A   IF K " 0                                            FCC2149       12     A     
 GPO                EQ     UPB10                                                           FCC2149       13     A     
 GPO                                                                                       FCC2149       14     A     
 GPO       UPB10B   SA3    A2-B1                                                           FCC2149       15     A     
 GPO                SX2    X7                RESTORE X2                                    FCC2149       16     A     
 GPO                BX5    "RN"X3      RJ = RI[MOD(I-1)]  */ RI OF TLD                     FCC0717      206     A     
 GPO                LX6    ML.IIP                                                          FCC0717      207     A     
 GPO                SX7    B6                                                              FCC0717      208     A     
 GPO                LX7    ML.MTIP                                                         FCC0717      209     A     
 GPO                BX6    X6+X7                                                           FCC0717      210     A     
 GPO                SX4    B1                                                              FCC0717      211     A     
 GPO                LX4    ML.NIP                                                          FCC0717      212     A     
 GPO                BX6    X4+X6                                                           FCC0717      213     A     
 GPO                MX4    1                                                               FCC0717      214     A     
 GPO                LX4    1+ML.DELP                                                       FCC0717      215     A     
 GPO                BX6    X4+X6                                                           FCC0717      216     A     
 GPO                SA6    A0          [MLI] = MCW(1,R,1,MI)                               FCC0717      217     A     
 GPO                SA0    A0+B1       MLI = MLI + 1                                       FCC0717      218     A     
 GPO                EQ     UPB13                                                           FCC0717      219     A     
 GPO                                                                                       FCC0717      220     A     
 GPO       UPB11    SA4    A4-B1       DI = LI - 1                                         FCC0717      221     A     
 GPO                SB2    OC.TLD                                                          FCC0717      222     A     
 GPO                BX3    X1*X4                                                           FCC0717      223     A     
 GPO                NZ     X3,UPB12    IF STRS[DI] ! PI[DI] " 0                            FCC0717      224     A     
 GPO                                                                                       FCC0717      225     A     
 GPO      *         INSERT *TLD* DIRECTLY IN *SEQ*                                         FCC0717      226     A     
 GPO                                                                                       FCC0717      227     A     
 GPO                SA7    A4-B1       [DI-1] = R2W                                        FCC0717      228     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3024    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                PX6    B2,X6                                                           FCC0717      229     A     
 GPO                SA3    F.RDT+B2                                                        FCC0717      230     A     
 GPO                BX7    X3                                                              FCC0717      231     A     
 GPO                SA6    A7-B1       [DI-2] = TYIII(OC.TLD,0,0,R)                        FCC0717      232     A     
 GPO                SA7    A4          [DI] = RDT(OC.TLD)                                  FCC0717      233     A     
 GPO                EQ     UPB14                                                           FCC0717      234     A     
 GPO                                                                                       FCC0717      235     A     
 GPO      *         SETUP *MOD* ENTRY FOR *TLD/XMT*                                        FCC0717      236     A     
 GPO                                                                                       FCC0717      237     A     
 GPO       UPB12    SA3    UPBA                                                            FCC0717      238     A     
 GPO                SX4    B6                                                              FCC0717      239     A     
 GPO                LX6    ML.IIP                                                          FCC0717      240     A     
 GPO                LX4    ML.MTIP                                                         FCC0717      241     A     
 GPO                IX4    X4+X6                                                           FCC0717      242     A     
 GPO                BX6    X3+X4                                                           FCC0717      243     A     
 GPO                SA6    A0          [MLI] = MCW(1,R,2,MI)                               FCC0717      244     A     
 GPO                SA0    A0+B1       MLI = MLI + 1                                       FCC0717      245     A     
 GPO                SX6    B6                                                              FCC0717      246     A     
 GPO                RJ     SRI         SRI( TLD  R,R2W )                                   FCC0717      247     A     
 GPO                SX5    B6-4        RJ = MI-4                                           FCC0717      248     A     
 GPO                                                                                       FCC0717      249     A     
 GPO       UPB13    SX6    B6                                                              FCC0717      250     A     
 GPO                LX5    R1.RJP                                                          FCC0717      251     A     
 GPO                SB2    OC.XMT                                                          FCC0717      252     A     
 GPO                MX7    0                                                               FCC0717      253     A     
 GPO                BX6    X5+X6                                                           FCC0717      254     A     
 GPO                RJ     SRI         SRI( XMT  MI,RJ )                                   FCC0717      255     A     
 GPO                                                                                       FCC0717      256     A     
 GPO       UPB14    SB4    B4-B1       NT = NT - 1                                         FCC0717      257     A     
 GPO                SA5    A5+B1       TI = TI + 1                                         FCC0717      258     A     
 GPO                NZ     B4,UPB9     IF NT " 0                                           FCC0717      259     A     
 GPO       UPB      SPACE  2,10                                                            FCC0717      260     A     
 GPO      *         SET FINAL TABLE LENGTHS AND MERGE THE BLOCKS                           FCC0717      261     A     
 GPO                                                                                       FCC0717      262     A     
 GPO       UPB15    SA1    O.MLT                                                           FCC0717      263     A     
 GPO                SX2    A0                                                              GPO         5844     A     
 GPO                SX6    B6                                                              GPO         5845     A     
 GPO                SA6    L.MOD       L.MOD = MI                                          GPO         5846     A     
 GPO                IX7    X2-X1                                                           GPO         5847     A     
 GPO                MX6    1                                                               GPO         5848     A     
 GPO                SA7    L.MLT       L.MLT = MLI - O.MOD                                 GPO         5849     A     
 GPO                CALL   MPB         MERGE, SQUEEZE AND REWRITE BLOCK                    GPO         5850     A     
 GPO                EQ     UPB                                                             GPO         5851     A     
 GPO                                                                                       GPO         5852     A     
 GPO       NTL      BSS    1           N.TET"S IN BLOCK                                    GPO         5853     A     
 GPO       UPBA     BSS    0                                                               GPO         5854     A     
 GPO                VFD    1/1                                                             GPO         5855     A     
 GPO                POS    ML.NIP+2                                                        GPO         5856     A     
 GPO                VFD    2/2,*P/0                                                        GPO         5857     A     
 GPO                                                                                       GPO         5858     A     
 GPO      *         UPBB - INCREMENT OPERATION TABLE                                       GPO         5859     A     
 GPO                                                                                       GPO         5860     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3025    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO       INCOP    MACRO  A,B,C                                                           GPO         5861     A     
 GPO                VFD    1/C,41/OC.B,18/OC.A                                             GPO         5862     A     
 GPO                ENDM                                                                   GPO         5863     A     
 GPO                                                                                       GPO         5864     A     
 GPO       UPBB     BSS    0                                                               GPO         5865     A     
 GPO                LOC    0                                                               GPO         5866     A     
 GPO                INCOP  STT,S                                                           GPO         5867     A     
 GPO                INCOP  LD,IA                                                           GPO         5868     A     
 GPO                INCOP  LD,IS                                                           GPO         5869     A     
 GPO                INCOP  TLD,IA,1                                                        GPO         5870     A     
 GPO                INCOP  TLD,IS,1                                                        GPO         5871     A     
 GPO                LOC    *O                                                              GPO         5872     A     
 GPO                                                                                       GPO         5873     A     
 GPO       UPBC     BFMW   D,(STRS,PI)   PS , PRS AND PI ( *DEF* MAY *PS* )                GPO         5874     A     
 GPO       GPO      TTL    GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES                 GPO         5875     A     
 GPO       MPB      TITLE  MPB - MERGE PROGRAM BLOCK AND MOD LIST                          GPO         5876     A     
 GPO      **        MPB - MERGE PROGRAM BLOCK AND MOD LIST                                 GPO         5877     A     
 GPO      *         MERGES A PROGRAM BLOCK DEFINED BY O.SEQ, L.SEQ AND THE MOD             GPO         5878     A     
 GPO      *         LIST ASSOCIATED WITH THE BLOCK, AND MOVES THE BLOCK TO *TXT*.          GPO         5879     A     
 GPO      *                                                                                GPO         5880     A     
 GPO      *         ENTRY  (X6) = 0 , MERGE BLOCK ONLY                                     GPO         5881     A     
 GPO      *                (X6) > 0 , MERGE BLOCK AND CALL *SQZB* .                        GPO         5882     A     
 GPO      *                (X6) < 0 , MERGE, CALL *SQZB* AND REWRITE TO *BLK*              GPO         5883     A     
 GPO      *                                                                                GPO         5884     A     
 GPO      *         EXIT   MERGED BLOCK IN *TXT*, R-NUMBERS IN CANONICAL ORDER.            GPO         5885     A     
 GPO      *                L.MLT = 0 , L.MOD = 4 AND L.TXT = 4 IF FLAG < 0 .               GPO         5886     A     
 GPO                                                                                       GPO         5887     A     
 GPO       SB       MICRO  1,,/B6/     O.SEQ + 3                                           GPO         5888     A     
 GPO                                                                                       GPO         5889     A     
 GPO       MPB0     SA1    MPBA                                                            GPO         5890     A     
 GPO                ZR     X1,MPB      IF MPBA = 0   */ NO SQZB CALL                       GPO         5891     A     
 GPO                MX6    0                                                               GPO         5892     A     
 GPO                CALL   SQZB                                                            GPO         5893     A     
 GPO                                                                                       GPO         5894     A     
 GPO                TRACE  MPB,RLIST                                                       GPO         5895     A     
 GPO                                                                                       GPO         5896     A     
 GPO                SA1    MPBA                                                            GPO         5897     A     
 GPO                PL     X1,MPB      IF MPBA > 0                                         GPO         5898     A     
 GPO                                                                                       GPO         5899     A     
 GPO                CALL   WTB         WRITE BLOCK BACK TO *BLK*                           GPO         5900     A     
 GPO                                                                                       GPO         5901     A     
 GPO       MPB      ROUTINE                                                                GPO         5902     A     
 GPO                SA6    MPBA                                                            GPO         5903     A     
 GPO                TRACE  MPB,MLT                                                         GPO         5904     A     
 GPO                TRACE  MPB,RLIST,MOD                                                   GPO         5905     A     
 GPO                SA5    L.MOD                                                           GPO         5906     A     
 GPO                SA4    L.SEQ                                                           GPO         5907     A     
 GPO                SX5    X5-8                                                            GPO         5908     A     
 GPO                IX1    X4+X5                                                           GPO         5909     A     
 GPO                ALLOC  TXT,X1      ALLOC( TXT , L.SEQ + L.MOD-8 )                      GPO         5910     A     
 GPO                                                                                       GPO         5911     A     
 GPO      *         INSERT MOD LIST INFO IN *SEQ*                                          GPO         5912     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3026    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       GPO         5913     A     
 GPO                SA4    O.SEQ                                                           GPO         5914     A     
 GPO                SA1    O.MOD                                                           GPO         5915     A     
 GPO                SX7    B6-4        PTL = OLD(L.TXT) - 4                                GPO         5916     A     
 GPO                SB3    3                                                               GPO         5917     A     
 GPO                IX6    X2+X7       TIA = O.TXT + PTL                                   GPO         5918     A     
 GPO                SA6    TIA                                                             GPO         5919     A     
 GPO                S"TB"  X2+B3       TB = O.TXT + 3                                      GPO         5920     A     
 GPO                MX0    1                                                               GPO         5921     A     
 GPO                SA3    O.MLT                                                           GPO         5922     A     
 GPO                S"SB"  X4+B3       SB = O.SEQ + 3                                      GPO         5923     A     
 GPO                SA5    X3          I = [O.MLT]                                         GPO         5924     A     
 GPO                SA2    L.MLT                                                           GPO         5925     A     
 GPO                SB4    B0          MIA = 0       */ MIN INSERT ADDRESS                 GPO         5926     A     
 GPO      +         NZ     X7,*+1      IF PTL = 0  THEN MIA = *INFINITY*                   GPO         5927     A     
 GPO                SB4    377777B     MIA = *INFINITY*  */ MIN INSERT ADDRESS             GPO         5928     A     
 GPO                LX1    ML.MTIP                                                         GPO         5929     A     
 GPO                ZR     X2,MPB2     IF L.MLT = 0                                        GPO         5930     A     
 GPO                SB5    X2+         N = L.MLT                                           GPO         5931     A     
 GPO       MPB      SPACE  1,10                                                            GPO         5932     A     
 GPO       MPB1     IX6    X5+X1       MTI[I] = MTI[I] + O.MOD  */ RELOCATE                GPO         5933     A     
 GPO                LX5    -ML.IIP                                                         GPO         5934     A     
 GPO                SA6    "SB"+X5     SI = SB + II[I];  [SI] = [I]  */ SAVE INSRT         GPO         5935     A     
 GPO                SB2    X5                                                              GPO         5936     A     
 GPO      +         SB5    B5-B1       N = N - 1                                           GPO         5937     A     
 GPO                GE     B2,B4,*+1   MIA = MIN( II[I] , MIA )                            GPO         5938     A     
 GPO                SB4    B2                                                              GPO         5939     A     
 GPO                SA4    A6-B3       R1 = SI - 3                                         GPO         5940     A     
 GPO                SA5    A5+B1       I = I + 1                                           GPO         5941     A     
 GPO                BX7    X0+X4       [R1] = MASK(1) ! [R1]  */ SET MOD FLAG              GPO         5942     A     
 GPO                SA7    A4                                                              GPO         5943     A     
 GPO                NZ     B5,MPB1     IF N " 0                                            GPO         5944     A     
 GPO       MPB      SPACE  2,10                                                            GPO         5945     A     
 GPO      *         MOVE INSTRUCTIONS FROM *SEQ* TO *TXT*, INSERT INSTRUCTIONS             GPO         5946     A     
 GPO      *         FROM *MOD*                                                             GPO         5947     A     
 GPO                                                                                       GPO         5948     A     
 GPO       MPB2     SA2    TIA                                                             GPO         5949     A     
 GPO                SA1    DMASK                                                           GPO         5950     A     
 GPO                SA0    X2          TI = TIA                                            GPO         5951     A     
 GPO                SX6    X2+B4       FIA = TIA + MIA                                     GPO         5952     A     
 GPO                SA6    FIA                                                             GPO         5953     A     
 GPO                SA5    "SB"-7      SI = SB-3 - 4                                       GPO         5954     A     
 GPO                SB4    4                                                               GPO         5955     A     
 GPO                EQ     MPB4                                                            GPO         5956     A     
 GPO                                                                                       GPO         5957     A     
 GPO      *         MOVE INSTRUCTION TO *TXT*                                              GPO         5958     A     
 GPO                                                                                       GPO         5959     A     
 GPO       MPB3     SA4    A5+B1       R2 = SI + 1                                         GPO         5960     A     
 GPO                BX6    X5                                                              GPO         5961     A     
 GPO                SA3    A4+B1       D = R2 + 1                                          GPO         5962     A     
 GPO                LX7    X4                                                              GPO         5963     A     
 GPO                SA6    A0          [TI] = [SI]                                         GPO         5964     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3027    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                UX5    B2,X5                                                           GPO         5965     A     
 GPO                SA7    A6+B1       [TI+1] = [R2]                                       GPO         5966     A     
 GPO                BX6    -X1*X3                                                          GPO         5967     A     
 GPO                SA6    A7+B1       [TI+2] = ^DMASK & [D]                               GPO         5968     A     
 GPO                MX7    0                                                               GPO         5969     A     
 GPO                SA7    A6+B1       [TI+3] = 0                                          GPO         5970     A     
 GPO                SX6    A7-"TB"     R = TI+3 - TB                                       GPO         5971     A     
 GPO                SA0    A0+B4       TI = TI + 4                                         GPO         5972     A     
 GPO                SA6    A5+B3       [SI+3] = R    */ NEW R-NUMBER                       GPO         5973     A     
 GPO                ZR     B2,MPB7     IF OC[SI] = 0 */ END OF SEQ                         GPO         5974     A     
 GPO                                                                                       GPO         5975     A     
 GPO       MPB4     SA5    A5+B4       SI = SI + 4                                         GPO         5976     A     
 GPO                PL     X5,MPB3     IF [SI] \ 0   */ NOT AN INSERT POINT                GPO         5977     A     
 GPO                SA2    A5+B3       LW = [SI+3]                                         GPO         5978     A     
 GPO                BX6    -X0*X5                                                          GPO         5979     A     
 GPO                LX2    59-ML.DELP                                                      GPO         5980     A     
 GPO                MI     X2,MPB5     IF DEL[LW]    */ INST TO BE DELETED                 GPO         5981     A     
 GPO                                                                                       GPO         5982     A     
 GPO                SA4    A5+B1       R2 = SI + 1                                         GPO         5983     A     
 GPO                SA3    A4+B1       D = R2 + 1                                          GPO         5984     A     
 GPO                LX7    X4                                                              GPO         5985     A     
 GPO                SA6    A0          [TI] = [SI]                                         GPO         5986     A     
 GPO                SA7    A6+B1       [TI+1] = [R2]                                       GPO         5987     A     
 GPO                BX6    -X1*X3                                                          GPO         5988     A     
 GPO                SA6    A7+B1       [TI+2] = ^DMASK & [D]                               GPO         5989     A     
 GPO                MX7    0                                                               GPO         5990     A     
 GPO                SA7    A6+B1       [TI+3] = 0                                          GPO         5991     A     
 GPO                SX6    A7-"TB"     R = TI+3 - TB                                       GPO         5992     A     
 GPO                SA0    A0+B4       TI = TI + 4                                         GPO         5993     A     
 GPO                SA6    A5+B3       [SI+3] = R                                          GPO         5994     A     
 GPO                                                                                       GPO         5995     A     
 GPO      *         MOVE INSTRUCTIONS FROM *MOD* TO *TXT*                                  GPO         5996     A     
 GPO                                                                                       GPO         5997     A     
 GPO       MPB5     BX5    X2                                                              GPO         5998     A     
 GPO                LX2    1+ML.DELP-ML.MTIP                                               GPO         5999     A     
 GPO                SA4    X2          MI = MTI[LW]                                        GPO         6000     A     
 GPO                LX2    ML.MTIP-ML.NIP                                                  GPO         6001     A     
 GPO                SB2    X2          N = NI[LW]                                          GPO         6002     A     
 GPO                                                                                       GPO         6003     A     
 GPO       MPB6     SA3    A4+B1                                                           GPO         6004     A     
 GPO                BX6    -X4                                                             GPO         6005     A     
 GPO                SA2    A3+B1                                                           GPO         6006     A     
 GPO                SB2    B2-B1       N = N - 1                                           GPO         6007     A     
 GPO                SA6    A0          [TI] = -[MI]  */ FLIP R1 WORD                       GPO         6008     A     
 GPO                BX7    X3                                                              GPO         6009     A     
 GPO                SA7    A6+B1       [TI+1] = [MI+1]                                     GPO         6010     A     
 GPO                BX6    -X1*X2      [TI+2] = ^DMASK & [MI+2]                            GPO         6011     A     
 GPO                SA6    A7+B1                                                           GPO         6012     A     
 GPO                MX7    0                                                               GPO         6013     A     
 GPO                SA7    A6+B1       [TI+3] = 0                                          GPO         6014     A     
 GPO                SX6    A7-"TB"     R = TI+3 - TB                                       GPO         6015     A     
 GPO                SA6    A4+B3       [MI+3] = R    */ NEW R-NUMBER                       GPO         6016     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3028    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SA0    A0+B4       TI = TI + 4                                         GPO         6017     A     
 GPO                LX2    -D.^DP+2                                                        GPO         6018     A     
 GPO                SA4    A4+B4       MI = MI + 4                                         GPO         6019     A     
 GPO                NZ     B2,MPB6     IF N " 0                                            GPO         6020     A     
 GPO                                                                                       GPO         6021     A     
 GPO                PL     X5,MPB4     IF ^DEL[LW]   */ IF AN INSERT                       GPO         6022     A     
 GPO                SX3    B4                                                              GPO         6023     A     
 GPO                BX2    X3*X2                                                           GPO         6024     A     
 GPO                IX6    X6-X2       R = R - 4*^D[MI-2]                                  GPO         6025     A     
 GPO                SA6    A5+B3       [SI+3] = R    */ FOR *EXTERNAL* USE                 GPO         6026     A     
 GPO                EQ     MPB4                                                            GPO         6027     A     
 GPO       MPB      SPACE  2,14                                                            GPO         6028     A     
 GPO      *         ADJUST R-NUMBERS TO BRING *TXT* TO CANONICAL FORM                      GPO         6029     A     
 GPO                                                                                       GPO         6030     A     
 GPO       MPB7     SB5    A0+B3                                                           GPO         6031     A     
 GPO                SX6    B5-"TB"     L.TXT = TI+3 - TB                                   GPO         6032     A     
 GPO                SA5    O.MOD                                                           GPO         6033     A     
 GPO                MX0    -R1.RIL+1                                                       GPO         6034     A     
 GPO                SA6    L.TXT                                                           GPO         6035     A     
 GPO                LX0    1                                                               GPO         6036     A     
 GPO                TRACE  MPB7,RLIST                                                      GPO         6037     A     
 GPO                SA3    FIA                                                             GPO         6038     A     
 GPO                MX1    D.TYL                                                           GPO         6039     A     
 GPO                SB2    B1+B1                                                           GPO         6040     A     
 GPO                MI     X3,MPB0     IF FIA < 0    */ NO MODS TO BLOCK                   GPO         6041     A     
 GPO                SA4    X3-2        DI = FIA - 2                                        GPO         6042     A     
 GPO                SB5    X5+B3       MB = O.MOD + 3                                      GPO         6043     A     
 GPO                MX6    0                                                               GPO         6044     A     
 GPO                SA0    "SB"-100000B      MSB = SB - 100000B */ MOD TO SEQ REFS         GPO         6045     A     
 GPO                SA6    "SB"        [SB] = 0                                            GPO         6046     A     
 GPO                SA6    B5          [MB] = 0                                            GPO         6047     A     
 GPO                EQ     MPB10                                                           GPO         6048     A     
 GPO                                                                                       GPO         6049     A     
 GPO      *         ADJUST OPERAND R-NUMBERS OF INSTRUCTION FROM *SEQ*                     GPO         6050     A     
 GPO                                                                                       GPO         6051     A     
 GPO       MPB8     BX7    "RN"X5                                                          GPO         6052     A     
 GPO                SA3    "SB"+X7     R = [SB+RI[R1]]                                     GPO         6053     A     
 GPO                BX5    X0*X5                                                           GPO         6054     A     
 GPO                SA2    A5+B1       R2 = R1 + 1                                         GPO         6055     A     
 GPO                IX6    X5+X3       RI[R1] = R                                          GPO         6056     A     
 GPO                NZ     X4,MPB9     IF TYPE[DI] " I                                     GPO         6057     A     
 GPO                                                                                       GPO         6058     A     
 GPO                LX6    -R1.RJP                                                         GPO         6059     A     
 GPO                BX7    "RN"X6                                                          GPO         6060     A     
 GPO                SA3    "SB"+X7     R = [SB+RJ[R1]]                                     GPO         6061     A     
 GPO                BX6    X0*X6                                                           GPO         6062     A     
 GPO                IX5    X6+X3       RJ[R1] = R                                          GPO         6063     A     
 GPO                LX5    R1.RJP-R1.RKP                                                   GPO         6064     A     
 GPO                BX7    "RN"X5                                                          GPO         6065     A     
 GPO                SA3    "SB"+X7     R = [SB+RK[R1]]                                     GPO         6066     A     
 GPO                BX5    X0*X5                                                           GPO         6067     A     
 GPO                IX6    X5+X3       RK[R1] = R                                          GPO         6068     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3029    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                SB0    0                                                               GPO         6069     A     
 GPO                LX6    R1.RKP                                                          GPO         6070     A     
 GPO                                                                                       GPO         6071     A     
 GPO       MPB9     LX2    -IH.RFP                                                         GPO         6072     A     
 GPO                BX7    "RN"X2                                                          GPO         6073     A     
 GPO                SA3    "SB"+X7     R = [SB+RF[R2]]                                     GPO         6074     A     
 GPO                BX2    X0*X2                                                           GPO         6075     A     
 GPO                SA6    A5                                                              GPO         6076     A     
 GPO                IX7    X2+X3       RF[R2] = R                                          GPO         6077     A     
 GPO                LX7    IH.RFP                                                          GPO         6078     A     
 GPO                SA7    A2                                                              GPO         6079     A     
 GPO                                                                                       GPO         6080     A     
 GPO      *         ADVANCE TO NEXT INSTRUCTION                                            GPO         6081     A     
 GPO                                                                                       GPO         6082     A     
 GPO       MPB10    SA5    A4+B2       R1 = DI + 2;  RW = [R1]                             GPO         6083     A     
 GPO                SA4    A5+B2       DI = R1 + 2                                         GPO         6084     A     
 GPO                LX4    58-D.TYP                                                        GPO         6085     A     
 GPO                BX6    -X1+X4                                                          GPO         6086     A     
 GPO                BX4    X1*X4                                                           GPO         6087     A     
 GPO                ZR     X6,MPB16    IF TYPE[DI] = IV                                    GPO         6088     A     
 GPO                PL     X5,MPB8     IF RW > 0                                           GPO         6089     A     
 GPO                                                                                       GPO         6090     A     
 GPO      *         ADJUST OPERAND R-NUMBERS OF INSTRUCTION FROM *MOD*                     GPO         6091     A     
 GPO                                                                                       GPO         6092     A     
 GPO                BX5    -X5         RW = -RW                                            GPO         6093     A     
 GPO                BX2    "RN"X5      R = RI[RW]                                          GPO         6094     A     
 GPO                UX7    B3,X5                                                           GPO         6095     A     
 GPO                SB7    B5                                                              GPO         6096     A     
 GPO                LX7    -R1.RIL                                                         GPO         6097     A     
 GPO                PL     X7,MPB11    B = IF R < 100000B THEN MB; ELSE MSB                GPO         6098     A     
 GPO                SB7    A0                                                              GPO         6099     A     
 GPO       MPB11    SA2    B7+X2       RI[RW] = [B+R]                                      GPO         6100     A     
 GPO                BX6    X0*X5                                                           GPO         6101     A     
 GPO                NZ     X4,MPB14    IF TYPE[DI] " I                                     GPO         6102     A     
 GPO                                                                                       GPO         6103     A     
 GPO                BX4    "RN"X7                                                          GPO         6104     A     
 GPO                LX7    -R1.RIL                                                         GPO         6105     A     
 GPO                SB7    B5                                                              GPO         6106     A     
 GPO                PX6    B3,X2                                                           GPO         6107     A     
 GPO                BX5    "RN"X7                                                          GPO         6108     A     
 GPO                PL     X7,MPB12    B = IF R < 100000B THEN MB; ELSE MSB                GPO         6109     A     
 GPO                SB7    A0                                                              GPO         6110     A     
 GPO       MPB12    SA2    B7+X4       RK[RW] = [B+RK[RW]]                                 GPO         6111     A     
 GPO                LX7    -R1.RIL                                                         GPO         6112     A     
 GPO                SB7    B5                                                              GPO         6113     A     
 GPO                LX2    R1.RKP                                                          GPO         6114     A     
 GPO                BX6    X2+X6                                                           GPO         6115     A     
 GPO                PL     X7,MPB13    B = IF R < 100000B THEN MB; ELSE MSB                GPO         6116     A     
 GPO                SB7    A0                                                              GPO         6117     A     
 GPO       MPB13    SA2    B7+X5       RJ[RW] = [B+RJ[RW]]                                 GPO         6118     A     
 GPO                SB0    0                                                               GPO         6119     A     
 GPO                LX2    R1.RJP                                                          GPO         6120     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3030    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                                                                                       GPO         6121     A     
 GPO       MPB14    SA3    A5+B1       R2 = R1 + 1                                         GPO         6122     A     
 GPO                BX6    X2+X6                                                           GPO         6123     A     
 GPO                LX3    -IH.RFP                                                         GPO         6124     A     
 GPO                SA6    A5          [R1] = RW                                           GPO         6125     A     
 GPO                BX7    "RN"X3                                                          GPO         6126     A     
 GPO                SB4    X7                                                              GPO         6127     A     
 GPO                LX7    -R1.RIL                                                         GPO         6128     A     
 GPO                BX3    X0*X3                                                           GPO         6129     A     
 GPO                SB7    B5                                                              GPO         6130     A     
 GPO                PL     X7,MPB15    B = IF R < 100000B THEN MB; ELSE MSB                GPO         6131     A     
 GPO                SB7    A0                                                              GPO         6132     A     
 GPO       MPB15    SA2    B7+B4       RF[R2] = [B+RF[R2]]                                 GPO         6133     A     
 GPO                IX6    X2+X3                                                           GPO         6134     A     
 GPO                LX6    IH.RFP                                                          GPO         6135     A     
 GPO                SA6    A3                                                              GPO         6136     A     
 GPO                EQ     MPB10                                                           GPO         6137     A     
 GPO                                                                                       GPO         6138     A     
 GPO       MPB16    PL     X5,MPB17    IF RW > 0                                           GPO         6139     A     
 GPO                BX7    -X5         [R1] = -RW                                          GPO         6140     A     
 GPO                SA7    A5                                                              GPO         6141     A     
 GPO                                                                                       GPO         6142     A     
 GPO       MPB17    UX6    B3,X5                                                           GPO         6143     A     
 GPO                NZ     B3,MPB10    IF OC[R1] " 0                                       GPO         6144     A     
 GPO                                                                                       GPO         6145     A     
 GPO                MX7    0                                                               GPO         6146     A     
 GPO                SX6    4                                                               GPO         6147     A     
 GPO                SA7    L.MLT       L.MLT = 0                                           GPO         6148     A     
 GPO                SA6    L.MOD       L.MOD = 4                                           GPO         6149     A     
 GPO                EQ     MPB0                                                            GPO         6150     A     
 GPO                                                                                       GPO         6151     A     
 GPO       MPBA     BSS    1                                                               GPO         6152     A     
 GPO       FIA      BSS    1           FIRST INSERT ADDRESS                                GPO         6153     A     
 GPO       TIA      BSS    1           *TXT* INSERT ADDRESS ( O.TXT+OLD(L.TXT)             GPO         6154     A     
 GPO       MBT      SPACE  3,14        MBT                                                 GPO         6155     A     
 GPO      **        MBT - MOVE BLOCK FROM *SEQ* TO *TXT*, CLEAR LINK WORDS.                GPO         6156     A     
 GPO                                                                                       GPO         6157     A     
 GPO       MBT      ROUTINE                                                                GPO         6158     A     
 GPO                SA5    O.SEQ                                                           GPO         6159     A     
 GPO                SA2    X5+B1       R2 = [O.SEQ+1]                                      GPO         6160     A     
 GPO                LX2    -R2.TXTLP                                                       GPO         6161     A     
 GPO                ALLOC  TXT,X2-4    ALLOC( TXT , TXTL[R2]-4 )                           GPO         6162     A     
 GPO                SA1    O.SEQ                                                           GPO         6163     A     
 GPO                SB4    4                                                               GPO         6164     A     
 GPO                SA5    X1          R1 = [O.SEQ]                                        GPO         6165     A     
 GPO                SB2    X3                                                              GPO         6166     A     
 GPO                SB7    X2          TI = [O.TXT]                                        GPO         6167     A     
 GPO                                                                                       GPO         6168     A     
 GPO       MBT2     SA4    A5+B1                                                           GPO         6169     A     
 GPO                SA3    A4+B1                                                           GPO         6170     A     
 GPO                BX6    X5                                                              GPO         6171     A     
 GPO                SA5    A5+B4                                                           GPO         6172     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3031    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
 GPO                LX7    X4                                                              GPO         6173     A     
 GPO                SB2    B2-B4       I = I - 4                                           GPO         6174     A     
 GPO                SA6    B7                                                              GPO         6175     A     
 GPO                SB7    B7+B4                                                           GPO         6176     A     
 GPO                SA7    A6+B1                                                           GPO         6177     A     
 GPO                BX6    X3                                                              GPO         6178     A     
 GPO                SA6    A7+B1                                                           GPO         6179     A     
 GPO                MX7    0                                                               GPO         6180     A     
 GPO                SA7    A6+B1                                                           GPO         6181     A     
 GPO                NZ     B2,MBT2     IF I " 0                                            GPO         6182     A     
 GPO                                                                                       GPO         6183     A     
 GPO                EQ     MBT                                                             GPO         6184     A     
 GPO                QUAL                                                                   GPO         6185     A     
 GPO                                                                                       GPO         6186     A     
 GPO                ECHO   2,X=(EBV,FUD,MBT,MPB)                                           GPO         6187     A     
 GPO                ENTRY  X                                                               GPO         6188     A     
 GPO       X        EQU    /CODE/X                                                         GPO         6189     A     
 GPO                                                                                       GPO         6190     A     
 GPO                END                                                                    GPO         6191     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - GPO     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          GPO                       6191      5643
          FCC0392                    122       120
          FCC0408                     83        48
          FCC0448                     38        37
          FCC0509                     40        40
          FCC0514                     76        74
          FCC0612                      2         2
          FCC0625                      4         3
          FCC0640                      5         5
          FCC0641                      7         7
          FCC0643                     37        37
          FCC0646                      6         6
          FCC0602                     17        17
          FCC0656                     45        44
          FCC0716                      4         4
          FCC0672                      4         4
          FCC0675                    170       160
          FCC0789                      7         7
          FCC0717                    258       247
          FCC0841                      6         6
          FCC0885                      6         3
          FCC0909                     22        22
          FCC1025                      7         7
          FCC0985                      7         7
          FCC1088                      4         4
          FCC1254                    126       126
          FCC1319                     55        55
          RSM2763X                    45        45
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3032    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GPO     
  
          FCC1504X                    23        23
          FCC1530X                    12        12
          FCC1532X                     7         7
          FCC1556X                    13         7
          FCC0885AX                    9         9
          FCC0238AX                   47        47
          FCC1584X                    11        11
          FCC1710X                    22        22
          FCC1845X                     2         2
          FCC1858X                     1         1
          FCC2039                      1         1
          FCC2045                     10         9
          FCCA462                      2         2
          FCC2113                     34        33
          FCCA487                      5         5
          FCCA495                      1         1
          FCC2149                     12        12
          FCCA499X                    51        51
          FCCA506X                     2         2
          FCCA509X                    16        16
          FCCA513X                    46        46
          FCC2230X                     7         7
          FCC2271X                    43        43
          FCC2277                      2         2
          FCC2365                      6         6
          FCC2392                      3         3
          FCCA588                     10        10
          FCCA596                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      *DECK     GRA                                                                    GRA            1     A     
 GRA                IDENT  GRA                                                             GRA            2     A     
 GRA       GRA      TITLE  GRA - GLOBAL REGISTER ASSIGNMENT                                GRA            3     A     
 GRA      *CALL     SSTCALL                                                                GRA            4     A     
 GRA       B=GRA    RPVDEF                                                                 GRA            5     A     
 GRA                PASS2TM                                                                GRA            6     A     
 GRA                                                                                       GRA            7     A     
 GRA      *IF       DEF,GRA,1                                                              GRA            8     A     
 GRA                TRACER (UDT,MTA,MFA,CLB,SUP,SXC)                                       GRA            9          I
          -FCC1039
 GRA                TRACER (UDT,SEE,MTA,DXA,MFA,CLB,SUP,SXC)                               FCC1039        4     A     
 GRA       GRA      SPACE  2                                                               GRA           10     A     
 GRA      **        GRA - GLOBAL REGISTER ASSIGNMENT                                       GRA           11     A     
 GRA      *                                                                                GRA           12     A     
 GRA      *         S. I. JASIK - CDC - SUNNYVALE - SPRING 74                              GRA           13     A     
 GRA      *                                                                                GRA           14     A     
 GRA      *         *GRA* IS CALLED BY *GPO* TO ASSIGN REGISTERS ACCROSS THE               GRA           15     A     
 GRA      *         BODY OF A LOOP AND SETUP APPROPIATE INITIALIZATION CODE.               GRA           16     A     
 GRA      *                                                                                GRA           17     A     
 GRA      *         OPTIMIZATIONS PERFORMED BY *GRA* INCLUDE -                             GRA           18     A     
 GRA      *         LOAD/STORE MOTION OF SCALAR VARIABLES AND CONSTANTS AND THEIR          GRA           19     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3033    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      *         ASSIGNMENT TO REGISTERS.                                               GRA           20     A     
 GRA      *         PREFETCHING OF INDEXED LOADS ON THE CRITICAL PATH IN SMALL             GRA           21     A     
 GRA      *         INNERMOST LOOPS.                                                       GRA           22     A     
 GRA      *         CODE SIZE REDUCTION IN THE LOOP BODY BY ASSIGNING *SCM*                GRA           23     A     
 GRA      *         ADDRESS"S AND CONSTANTS TO B-REGISTERS.                                GRA           24     A     
 GRA      *         INCREMENT REDUCTION OF *IP*"S BY ASSIGNING THE DIFFERENCE OF           GRA           25     A     
 GRA      *         TWO SIMILAR INTEGER POLYNOMIALS TO A B-REGISTER.                       GRA           26     A     
 GRA      *         TEST REPLACEMENT OF THE LOOP CONTROL VARIABLE WITH A LINEAR            GRA           27     A     
 GRA      *         FUNCTION OF IT WHEN POSSIBLE.                                          GRA           28     A     
 GRA      *         REMOVAL OF INCREMENT VARIABLES WHICH HAVE NO USES.                     GRA           29     A     
 GRA                                                                                       GRA           30     A     
 GRA      **        DEBUGGING SNAP LABELS -                                                GRA           31     A     
 GRA      *                                                                                GRA           32     A     
 GRA      *         TRACER (UDT,ERC,SEE,MTA,DXA,DAA,MFA,CLB,SUP,SXC)                       GRA           33     A     
 GRA      *                                                                                GRA           34     A     
 GRA      *         BASIC SNAPS - (UDT,MFA,CLB,SUP,SXC)                                    GRA           35          I
          -FCC1039
 GRA      *         BASIC SNAPS - UDT,SEE,MTA,DXA,DAA,CLB,SUP,SXC                          FCC1039        5     A     
 GRA                                                                                       GRA           36     A     
 GRA                LIST   -R                                                              GRA           37     A     
 GRA                                                                                       GRA           38     A     
 GRA                TABLES BIT,BST,IIT,SEQ,TET,TXT                                         GRA           39     A     
 GRA                TABLES MOD,PIT,PSI,RCT,RND,RXI                                         GRA           40     A     
 GRA                                                                                       GRA           41     A     
 GRA                EXT    BSI,BVL,DMASK,F.RDT,NPB,SRI                                     GRA           42     A     
 GRA                                                                                       GRA           43     A     
 GRA       MAX.INC  EQU    101B        MAX CONSTANT INCREMENT VALUE FOR PREFETCHS          GRA           44     A     
 GRA      *                          OF ARRAYS IN LABELED COMMON OR LOCAL STORAGE.         GRA           45     A     
 GRA                                                                                       GRA           46     A     
 GRA       BA.BIP   EQU    36                                                              GRA           47     A     
 GRA       BA.LENP  EQU    18                                                              GRA           48     A     
 GRA       BA.BIL   EQU    18                                                              FCCA509X      24     A     
 GRA       BA.LENL  EQU    18                                                              FCCA509X      25     A     
 GRA                                                                                       GRA           49     A     
 GRA      *CALL     UDTBLD                                                                 GRA           50     A     
 GRA      *CALL     GPOCOM                                                                 GRA           51     A     
 GRA       FLAGS    TITLE  LOCAL VARIABLES                                                 GRA           52     A     
 GRA                USE    /TABLES/                                                        GRA           53     A     
 GRA       SCR      BSS    100B        *IA* LIST ( DUM - MTA ), CON LIST  ( MFA )          GRA           54     A     
 GRA      *                            AND SCRATCH FOR *BDT/MCG*                           GRA           55     A     
 GRA                                                                                       GRA           56     A     
 GRA       F.CLC    BSS    0          ?FWA OF CLEARED CELLS                                GRA           57     A     
 GRA                                                                                       GRA           58     A     
 GRA       RAT      BSS    24          REGISTER ASSIGNMENT TABLE ( INITIAL VALUES          GRA           59     A     
 GRA       RVT      BSS    24          REGISTER VALUE TABLE ( R-NUMBER IN REG )            GRA           60     A     
 GRA                                                                                       GRA           61     A     
 GRA      *                        ERC                                                     GRA           62     A     
 GRA       IAI      BSS    1           *IA* LIST INDEX                                     GRA           63     A     
 GRA       TRA      BSS    1           TEMP/RJRS REG ASSIGNMENTS ( BIT MASK )              GRA           64     A     
 GRA       APF      BSS    1           APLN BITS OF BLOCK                                  GRA           65     A     
 GRA       FBA      BSS    1           "0 IF FINAL B-ASSIGNMENTS FROM INNER LOOP           GRA           66     A     
 GRA       LCT      BSS    1           L.RCT AT END OF *ERC*                               GRA           67     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3034    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      *                        SEE                                                     GRA           68     A     
 GRA       NVC      BSS    1           N. VALUE CANIDATES                                  GRA           69     A     
 GRA       TUD      BSS    1           SUSE[CI]-STC[UI] FOR LOOP CV                        GRA           70     A     
 GRA      *                        MTA                                                     GRA           71     A     
 GRA       ABR      BSS    1           SET OF AVAIL B-REGS ( PACK(0,377B)                  GRA           72     A     
 GRA       NAB      BSS    1           N. AVAILABLE B-REGS                                 GRA           73     A     
 GRA       NTA      BSS    1           N. TENATIVE B-ASSIGNMENTS                           GRA           74     A     
 GRA       TRD      BSS    1           TEST REPLACEMENT DECISION                           GRA           75     A     
 GRA      *                        DXA                                                     GRA           76     A     
 GRA       NXC      BSS    1           N. X-CANIDATES                                      GRA           77     A     
 GRA       XCT      BSS    5           X-REG CANIDATE TABLE                                GRA           78     A     
 GRA       MLW      BSS    1           MAX REG WIDTH AFTER X-ASSIGNMENT                    GRA           79     A     
 GRA      *                        CMR                                                     GRA           80     A     
 GRA       N.LD     BSS    2           N. REMAINING LOADS AFTER REGISTER ASSIGNMEN         GRA           81     A     
 GRA       N.ST     EQU    N.LD+1      MAX NUMBER OF ST"S IN A BLOCK                       GRA           82     A     
 GRA      *                        DAA                                                     GRA           83     A     
 GRA       MAA      BSS    1           MAX NUMBER OF A-ASSIGNMENTS                         GRA           84     A     
 GRA       NAA      BSS    1           N. A-ASSIGNMENTS                                    GRA           85     A     
 GRA       ACT      BSS    8           A-CANIDATE TABLE                                    GRA           86     A     
 GRA      *                            24/,18/INC PTR,18/CANIDATE INDEX ( *RCT* )          GRA           87     A     
 GRA      *                        MFA                                                     GRA           88     A     
 GRA       CL       BSS    1           CON LIST POINTER                                    GRA           89     A     
 GRA       NAC      BSS    1           N. ADDRESS CANIDATES                                GRA           90     A     
 GRA       ATI      BSS    1           INDEX TO *AI* TABLE ( LWA+1 )                       GRA           91     A     
 GRA       CAIH     BSS    1           CA,IH OF BASE REGISTER                              GRA           92     A     
 GRA       PMF      BSS    1           PARTIAL MODIFICATION FLAG ( LD REG+CON "S )         GRA           93     A     
 GRA       CIT      BSS    5           IH CLASS INDEX TABLE                                GRA           94     A     
 GRA                                                                                       GRA           95     A     
 GRA       L.CLC    EQU    *-F.CLC    'LWA+1 OF CLEARED CELLS                              GRA           96     A     
 GRA                                                                                       GRA           97     A     
 GRA      *                        SUP                                                     GRA           98     A     
 GRA       N        BSS    1           N. WDS IN POLY FORMULA                              GRA           99     A     
 GRA       RR       EQU    N           R-NUMBER OF LAST RESULT                             GRA          100     A     
 GRA      *                        CLB                                                     GRA          101     A     
 GRA       NXS      BSS    1           N. EXTRA WORDS NEEDED                               GRA          102     A     
 GRA       MRU      BSS    1           MACHINE REGS USED BY *MCG*                          GRA          103     A     
 GRA       NPS      BSS    1           N. POST STORES                                      GRA          104     A     
 GRA       PST      BSS    7+4         POST STORE LIST , 24/,18/REGNO,18/*RCT* ORD         GRA          105     A     
 GRA      *                        IRA                                                     GRA          106     A     
 GRA       LBJ      BSS    1           "0 IF SEQUENCE CONTAINS THE LOOP BACK JUMP          GRA          107          I
          -FCC0985
 GRA       LBN      BSS    1           R1 WORD OF LAST ENCOUNTERED BOS/EOS                 FCC0985       14     A     
 GRA       DTL      BSS    1           DEF TEXT LENGTH ( BOS + DEFS + EOQ )                FCC2051        5     A     
 GRA                USE    0                                                               GRA          108     A     
 GRA       RCT      TITLE  RCT - REGISTER CANIDATE TABLE FORMAT                            GRA          109     A     
 GRA      **        RCT - REGISTER CANIDATE TABLE FORMAT                                   GRA          110     A     
 GRA      *                                                                                GRA          111     A     
 GRA      *         THE *RCT* IS A DICTIONARY OF ALL EXPRESSIONS ( MEMORY                  GRA          112     A     
 GRA      *         REFERENCES, CONSTANTS AND ADDRESS"S ) THAT ARE CANIDATES FOR           GRA          113     A     
 GRA      *         REGISTER ASSIGNMENT. EACH ENTRY CONSISTS OF 3 WORDS.                   GRA          114     A     
 GRA       CA       SPACE  2                                                               GRA          115     A     
 GRA      **        CA. - FIRST WORD OF CANIDATE TABLE                                     GRA          116     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3035    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       GRA          117     A     
 GRA                DESCRIBE CA.,60                                                        GRA          118     A     
 GRA       RA       DEFINE 1           REGISTER ASSIGNED OR ADDRESS MODIFIED               GRA          119     A     
 GRA       IRA      DEFINE 1           INITIAL REGISTER ASSIGNMENT ( *ERC/RS* )            GRA          120     A     
 GRA                                                                                       GRA          121     A     
 GRA      *         CANIDATE TYPE                                                          GRA          122     A     
 GRA                                                                                       GRA          123     A     
 GRA       VC       DEFINE 1           VALUE CANIDATE ( NOT SET FOR CONS )                 GRA          124     A     
 GRA       AC       DEFINE 1           ADDRESS CANIDATE                                    GRA          125     A     
 GRA       CON      DEFINE 1           CANDIATE IS A CONSTANT ( FMA, SET )                 GRA          126     A     
 GRA       FP       DEFINE 1           IH IS AN F.P.                                       GRA          127     A     
 GRA                                                                                       GRA          128     A     
 GRA      *         USEAGE                                                                 GRA          129     A     
 GRA                                                                                       GRA          130     A     
 GRA                DEFINE 2                                                               GRA          131     A     
 GRA       EU       DEFINE 1           EXPLICIT USEAGE IN LOOP ( CANNOT BE SUBSUME         GRA          132     A     
 GRA       RF       DEFINE 1           *RF* ( SHORT ) USEAGE                               GRA          133     A     
 GRA       ^RD      DEFINE 1           NON RECURSIVE DEFINITION                            GRA          134     A     
 GRA       IA       DEFINE 1           IA/IS USEAGE                                        GRA          135     A     
 GRA       TU       DEFINE 1           TEST USEAGE ( IN LOOP TERMINATION TEST )            GRA          136     A     
 GRA                                                                                       GRA          137     A     
 GRA      *         PROFIT CRITERIA                                                        GRA          138     A     
 GRA                                                                                       GRA          139     A     
 GRA       PRFT     DEFINE 3           PROFIT                                              GRA          140     A     
 GRA       APLN     DEFINE 2           APPEARENCE IN ARTICULATION PT/LATCH NODE            GRA          141     A     
 GRA       NOCC     DEFINE 9           NUMBER OF OCCURANCES                                GRA          142     A     
 GRA       SUSE     DEFINE 9           SUM( USES ) + SUM( USES(INC)-1 )                    GRA          143     A     
 GRA                                                                                       GRA          144     A     
 GRA      *         ENTRY/EXIT CONDITIONS                                                  GRA          145     A     
 GRA                                                                                       GRA          146     A     
 GRA       PL       DEFINE 1           PRELOAD NECESSARY                                   GRA          147     A     
 GRA       PSP      DEFINE 1           POST STORE POSSIBLE                                 GRA          148     A     
 GRA       DEF      DEFINE 1           DEFINED IN REGION                                   GRA          149     A     
 GRA       USE      DEFINE 1           USED IN REGION                                      GRA          150     A     
 GRA       LX       DEFINE 1           LIVE ON EXIT FROM REGION                            GRA          151     A     
 GRA       KD       DEFINE 1           KILL DEFS ( STORES )                                GRA          152     A     
 GRA                                                                                       GRA          153     A     
 GRA       UDI      DEFINE 18          INDEX TO *UDT*                                      GRA          154     A     
 GRA       CAW      SPACE  2                                                               GRA          155     A     
 GRA       RAF      DEQU   IRA,2       REGISTER ASSIGNMENT FIELDS                          GRA          156     A     
 GRA       CT       DEQU   CON,3       CANIDATE TYPE  ( CON,AC,VC )                        FCC0594        5     A     
 GRA       DU       DEQU   USE,2       DEF AND USE BITS                                    GRA          157     A     
 GRA       SORT     DEQU   SUSE,CA.TUP+1-CA.SUSEP  SORT FIELDS                             GRA          158     A     
 GRA       IH       SPACE  3,14                                                            GRA          159     A     
 GRA      **        IH. - FORMAT OF SECOND *RCT* WORD                                      GRA          160     A     
 GRA                                                                                       GRA          161     A     
 GRA                DESCRIBE IH.,60                                                        GRA          162     A     
 GRA       MSK      DEFINE 1           MASK FLAG                                           GRA          163     A     
 GRA                DEFINE 5                                                               GRA          164     A     
 GRA       RF       DEFINE 18          RCT INDEX OF *RF* OF REFERENCE                      GRA          165     A     
 GRA       CA       DEFINE 18          BIAS OR CON VALUE OF *S* FOR *JK* OF MASK           GRA          166     A     
 GRA       IH       DEFINE 18          SYMBOL ORDINAL                                      GRA          167     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3036    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA       CC       SPACE  2,12                                                            GRA          168     A     
 GRA      **        CC. - FORMAT OF THIRD WORD OF AN *RCT* ENTRY                           GRA          169     A     
 GRA                                                                                       GRA          170     A     
 GRA                DESCRIBE CC.,60                                                        GRA          171     A     
 GRA       I1       DEFINE 1           INCREMENTED ONCE ( FOR A *RD* )                     GRA          172     A     
 GRA       I2       DEFINE 1           INCREMENTED MORE THAN ONCE                          GRA          173          I
          -FCC0603
 GRA       I2       DEFINE 1           INCR MORE THAN ONCE ! INCR ON SIDE BRANCH           FCC0603        9     A     
 GRA       IM       DEFINE 1           =1 IF INC VALUE IS MINUS VALUE OF *RCT* ENT         GRA          174     A     
 GRA                DEFINE 3                                                               GRA          175     A     
 GRA       INC      DEFINE 18          *RCT* INDEX OF INCREMENT VALUE OF FIRST INC         GRA          176     A     
 GRA                                                                                       GRA          177     A     
 GRA       H2       DEFINE 18          SYMTAB ORDINAL OF SECOND SYM ( IH-H2 )              GRA          178     A     
 GRA       REG2     DEFINE 6           REGNO OF SECOND REGISTER ( REG1+-REG2 )             GRA          179     A     
 GRA       MIT      DEFINE 6           MACHINE INSTRUCTION TYPE FOR ADDRESS CANIDA         GRA          180     A     
 GRA      *                            0 - LD/ST/STT REG1+CA+IH-H2                         GRA          181     A     
 GRA      *                            1 - PLD/PST/STT  REG1+CA , CA " 0                   GRA          182     A     
 GRA      *                            2 - SLD/SST/SA  REG1+REG2                           GRA          183     A     
 GRA      *                            3 - SDL/SDS/SS  REG1-REG2                           GRA          184     A     
 GRA      *                            4 - SLD/SST/SA  REG1+REG2 , WHERE RJ IS             FCC0646       14     A     
 GRA      *                                  FROM RF OF OLD INST, NOT *RVT*.               FCC0646       15     A     
 GRA       V.SRF    EQU    1S11        42 - SIMILAR *IP* ADDRESS DIFFERENCES               FCC0977        8     A     
 GRA                                                                                       GRA          185     A     
 GRA       REG1     DEFINE 6           REGNO OF REGISTER ASSIGNED                          GRA          186     A     
 GRA                                                                                       FCC0811        6     A     
 GRA       REGF     DEQU   REG1,18     REG1, REG2 AND MIT FIELDS                           FCC0811        7     A     
 GRA       RAT      SPACE  3,20                                                            GRA          187     A     
 GRA      **        RA. - REGISTER ASSIGNMENT TABLE FORMAT                                 GRA          188     A     
 GRA      *                                                                                GRA          189     A     
 GRA      *         *RAT* HOLDS THE RCT ORDINALS OF THE VALUE THAT REGISTERS WILL          GRA          190     A     
 GRA      *         BE INITIALIZED TO IN THE HOLDING BLOCK ( LOOP PROLOGUE ).              GRA          191     A     
 GRA      *                                                                                GRA          192     A     
 GRA      *         THE EVALUATION FORMULA IS - SET(R3) + R1 - R2 .                        GRA          193     A     
 GRA      *         AND THE *RF* FIELD IN THE *RCT* ENTRY OF R3 IS IGNORED.                GRA          194     A     
 GRA                                                                                       GRA          195     A     
 GRA                DESCRIBE RA.,60                                                        GRA          196     A     
 GRA       INV      DEFINE 1           =1 IF REGISTER IS *INV* IN LOOP                     GRA          197     A     
 GRA                DEFINE 5                                                               GRA          198     A     
 GRA       R3       DEFINE 18          RCT ORDINALS                                        GRA          199     A     
 GRA       R2       DEFINE 18                                                              GRA          200     A     
 GRA       R1       DEFINE 18                                                              GRA          201     A     
 GRA                                                                                       GRA          202     A     
 GRA                LIST   R,-X                                                            GRA          203     A     
 GRA       GRA      TITLE  DEBUGGING FACILITIES                                            GRA          204     A     
 GRA      **        PRNT - PRINT OUT SELECTED STRUCTURES                                   GRA          205     A     
 GRA      *                                                                                GRA          206     A     
 GRA      *         PRNT   LAB,(RCT,RAT,RVT)                                               GRA          207     A     
 GRA                                                                                       GRA          208     A     
 GRA       .1       SET    1                                                               GRA          209     A     
 GRA                ECHO   2,X=(RCT,RAT,RVT,SEE,MTA,DXA,DAA,MFA,SUP,SXC)                   GRA          210     A     
 GRA       Q.X      SET    .1                                                              GRA          211     A     
 GRA       .1       SET    .1+1                                                            GRA          212     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3037    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       GRA          213     A     
 GRA       PRNT     MACRO  LAB,LIST                                                        GRA          214     A     
 GRA                LOCAL  APL                                                             GRA          215     A     
 GRA       O        IF     DEF,DEBUG                                                       GRA          216          I
          -FCC1196
 GRA       O        IF     DEF,/DEBUG/LAB                                                  FCC1196        5     A     
 GRA      +         RJ     CPR                                                             GRA          217     A     
 GRA      -         VFD    30/APL                                                          GRA          218     A     
 GRA                USE    DEBUG                                                           GRA          219     A     
 GRA       APL      CON    10H LAB                                                         GRA          220     A     
 GRA                IF     DEF,Q.LAB,1                                                     GRA          221     A     
 GRA                VFD    6/Q.LAB                                                         GRA          222     A     
 GRA                IF     DEF,/DEBUG/LAB,3                                                GRA          223          I
          -FCC1196
 GRA                IRP    LIST                                                            GRA          224     A     
 GRA                VFD    6/Q.LIST                                                        GRA          225     A     
 GRA                IRP                                                                    GRA          226     A     
 GRA                VFD    *P/0                                                            GRA          227     A     
 GRA                USE    *                                                               GRA          228     A     
 GRA       O        ENDIF                                                                  GRA          229     A     
 GRA                ENDM                                                                   GRA          230     A     
 GRA                                                                                       GRA          231     A     
 GRA       .T       IFNE   TEST,0                                    *TEST MODE*           GRA          232     A     
 GRA                                                                                       GRA          233     A     
 GRA       CPR      ROUTINE                                                                GRA          234     A     
 GRA                RJ     =XSAVE=                                                         GRA          235     A     
 GRA                SA1    CPR                                                             GRA          236     A     
 GRA                SA3    O.RCT                                                           GRA          237     A     
 GRA                LX1    30                                                              GRA          238     A     
 GRA                SA2    X1-1                                                            GRA          239     A     
 GRA                SX6    X2                                                              GRA          240     A     
 GRA                BX7    X3                                                              GRA          241     A     
 GRA                SA6    CPRA        LOC(LAB)                                            GRA          242     A     
 GRA                SA7    CPRA+1                                                          GRA          243     A     
 GRA                SX6    X6+1                                                            GRA          244     A     
 GRA                SA6    CPRA+3      LOC(INDEX)                                          GRA          245     A     
 GRA                SA1    CPRA                                                            GRA          246     A     
 GRA                CALL   PRNTGRA                                                         GRA          247     A     
 GRA                RJ     =XRESET=                                                        GRA          248     A     
 GRA                EQ     CPR                                                             GRA          249     A     
 GRA                                                                                       GRA          250     A     
 GRA       CPRA     BSS    2                                                               GRA          251     A     
 GRA                VFD    42/,18/L.RCT                                                    GRA          252     A     
 GRA                BSSZ   2                                                               GRA          253     A     
 GRA                                                                                       GRA          254     A     
 GRA                USE    /RCTFMT/                                                        GRA          255     A     
 GRA                ECHO   1,X=(RA,VC,AC,CON,FP,EU,RF,^RD,IA,TU,PL,PSP,DEF,USE,LX,         GRA          256     A     
 GRA      ,KD,IRA)                                                                         GRA          257     A     
 GRA                VFD    42/0A_X,18/60-CA.X_P                                            GRA          258     A     
 GRA                USE    0                                                               GRA          259     A     
 GRA       .T       ENDIF                                            *TEST MODE*           GRA          260     A     
 GRA       GRA      TITLE  GRA - CONTROL                                                   GRA          261     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3038    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      **        GRA - GLOBAL REGISTER ASSIGNMENT ( CONTROL )                           GRA          262     A     
 GRA                                                                                       FCC0603       10     A     
 GRA       MARA     DATA   4           MAX A-REGISTER ASSIGNMENTS                          FCC0603       11     A     
 GRA       GRASRF   ENTRY. 0           =1 IF ADDR DIFFERENCING OF SIMILAR *IP"S*           FCC0977        9     A     
 GRA                                                                                       GRA          263     A     
 GRA       GRA      ENTRY.                                                                 GRA          264     A     
 GRA                RJ     IRP         INITIALIZE REGION PROCESSING                        GRA          265          I
          -FCC0603
 GRA                SX7    4                                                               FCC0603       12     A     
 GRA                SA7    MARA        MARA = 4                                            FCC0603       13     A     
 GRA                                                                                       FCC0603       14     A     
 GRA       GRA0     RJ     IRP         INITIALIZE REGION PROCESSING                        FCC0603       15     A     
 GRA                IF     DEF,/DEBUG/UDT,1                                                GRA          266     A     
 GRA                DCALL  PRNTUDI,([O.UDT],L.UDT)                                         GRA          267     A     
 GRA                                                                                       GRA          268     A     
 GRA                SA1    MRA                                                             GRA          269     A     
 GRA                ZR     X1,GRA3     IF MRA = 0    */ USER OR I/O EXT REFS               GRA          270     A     
 GRA                                                                                       GRA          271     A     
 GRA                CLCM   DUM         DETERMINE USEAGE MODE                               GRA          272     A     
 GRA                CLCM   ERC         ENTER REGISTER CANIDATES                            GRA          273     A     
 GRA                SA5    L.RCT                                                           GRA          274     A     
 GRA                SX6    X5+         LCT = L.RCT                                         GRA          275     A     
 GRA                SA6    LCT                                                             GRA          276     A     
 GRA                                                                                       GRA          277     A     
 GRA                RJ     SEE         SET ENTRY/EXIT CONDITIONS FOR VALUE CANIDAT         GRA          278     A     
 GRA                PRNT   SEE                                                             GRA          279     A     
 GRA                                                                                       GRA          280     A     
 GRA                RJ     MTA         MAKE TENATIVE B-ASSIGNMENTS, COUNTING METHO         GRA          281     A     
 GRA                PRNT   MTA,(RAT,RCT)                                                   GRA          282     A     
 GRA                                                                                       GRA          283     A     
 GRA                SA1    XRF                                                             GRA          284     A     
 GRA                NZ     X1,GRA2     IF XRF " 0    */ EXT REFS IN THE LOOP               GRA          285     A     
 GRA                SA2    N.HB                                                            GRA          286     A     
 GRA                NZ     X2,GRA1     IF N.HB " 0   */ NOT INNERMOST LOOP                 GRA          287     A     
 GRA                                                                                       GRA          288     A     
 GRA                SA3    MAXW                                                            GRA          289     A     
 GRA                SA4    NTA                                                             GRA          290     A     
 GRA                SB3    X3+                                                             GRA          291     A     
 GRA                SB4    X4+8                                                            GRA          292     A     
 GRA                GT     B3,B4,GRA2  IF MAXW > NTA+8 */ LOOP IS TOO WIDE                 GRA          293     A     
 GRA                                                                                       GRA          294     A     
 GRA                RJ     DXA         DETERMINE X-ASSIGNMENTS                             GRA          295     A     
 GRA                PRNT   DXA                                                             GRA          296     A     
 GRA                                                                                       GRA          297     A     
 GRA                RJ     DAA         DETERMINE A-ASSIGNMENTS                             GRA          298     A     
 GRA                PRNT   DAA,(RAT,RCT)                                                   GRA          299          I
          -FCC1039
 GRA                PRNT   DAA                                                             FCC1039        6     A     
 GRA                EQ     GRA2                                                            GRA          300     A     
 GRA                                                                                       GRA          301     A     
 GRA       GRA1     RJ     DXA         MOVE PREVIOUS X-ASSIGNMENTS OUT                     GRA          302     A     
 GRA                                                                                       GRA          303     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3039    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA       GRA2     RJ     MFA         MAKE FINAL B-ASSIGNMENTS                            GRA          304     A     
 GRA                PRNT   MFA,(RAT,RCT)                                                   GRA          305     A     
 GRA                                                                                       GRA          306     A     
 GRA       GRA3     RJ     CLB         CODE LOOP BODY                                      GRA          307     A     
 GRA                                                                                       GRA          308     A     
 GRA                RJ     SUP         SETUP PRELOADS IN HOLDING BLOCK                     GRA          309     A     
 GRA                PRNT   SUP,RAT                                                         GRA          310     A     
 GRA                                                                                       GRA          311     A     
 GRA                RJ     SXC         SET EXIT CONDITIONS ( POST STORES, ETC. )           GRA          312     A     
 GRA                TRACE  SXC,TET                                                         GRA          313     A     
 GRA                PRNTABV  SXC,(LUV,LEA)                                                 GRA          314     A     
 GRA                SX6    0                                                               GRA          315     A     
 GRA                SA6    L.RCT       L.RCT = 0                                           GRA          316     A     
 GRA                SA6    L.RXI       L.RXI = 0                                           GRA          317     A     
 GRA                SA6    GRASRF      GRASRF = 0                                          FCC0977       10     A     
 GRA                EQ     GRA                                                             GRA          318     A     
 GRA       IRP      TITLE  IRP - INITIALIZE REGION PROCESSING                              GRA          319          I
          -FCC0603
 GRA       IRP      SPACE  3                                                               FCC0603       16     A     
 GRA      **        IRP - INITIALIZE REGION PROCESSING                                     GRA          320     A     
 GRA                                                                                       GRA          321     A     
 GRA       IRP      ROUTINE                                                                GRA          322     A     
 GRA                                                                                       GRA          323     A     
 GRA                SETZERO F.CLC,L.CLC      ZERO SCRATCH AREA                             GRA          324     A     
 GRA                                                                                       GRA          325     A     
 GRA      *         INITIALIZE *RCT* , FIRST ENTRY IS AN EMPTY ONE, USED AS A              GRA          326     A     
 GRA      *         SEARCH TERMINATOR, SECOND ENTRY IS THE CONSTANT *1* .                  GRA          327     A     
 GRA                                                                                       GRA          328     A     
 GRA                SA5    IRPA                                                            GRA          329     A     
 GRA                ALLOC  RCT,6       ALLOC( RCT , 6 )                                    GRA          330     A     
 GRA                MX6    0                                                               GRA          331     A     
 GRA                SA6    X2                                                              GRA          332     A     
 GRA                SA6    A6+B1                                                           GRA          333     A     
 GRA                SA6    A6+B1                                                           GRA          334     A     
 GRA                BX7    X5                                                              GRA          335     A     
 GRA                SA7    A6+B1       RCT(4) = CAW(0,CON,RF,0)  */ CON 1                  GRA          336     A     
 GRA                SX7    B1                                                              GRA          337     A     
 GRA                LX7    IH.CAP                                                          GRA          338     A     
 GRA                SA7    A7+B1       RCT(5) = IHW(0,0,1,0)                               GRA          339     A     
 GRA                SA6    A7+B1       RCT(6) = 0                                          GRA          340     A     
 GRA                SX7    100                                                             GRA          341     A     
 GRA                SA7    TUD         TUD = 100                                           GRA          342     A     
 GRA                                                                                       GRA          343     A     
 GRA                SA1    N.HB                                                            GRA          344     A     
 GRA                ZR     X1,IRP1     IF N.HB = 0   */ INNERMOST LOOP                     GRA          345     A     
 GRA                SA4    LUV                                                             GRA          346     A     
 GRA                SX5    B1                                                              GRA          347     A     
 GRA                LX5    UD.ISTP                                                         GRA          348     A     
 GRA                CALL   EBV         EBV( LUV , IST )  */ SET *IST* FOR DUM/ERC          GRA          349     A     
 GRA                                                                                       GRA          350     A     
 GRA      *         ADJUST *TET*, CLEAR *REG* FIELD, UPDATE INFO OF *EQV* ENTRIES          GRA          351          I
          -FCC0514
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3040    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       GRA          352          I
          -FCC0514
 GRA       IRP1     SA2    ITL                                                             GRA          353          I
          -FCC0514
 GRA                SA3    =XN.GT                                                          GRA          354          I
          -FCC0514
 GRA                SA1    O.TET                                                           GRA          355          I
          -FCC0514
 GRA                SB2    X2          I = ITL                                             GRA          356          I
          -FCC0514
 GRA                SB3    X3          L = N.GT                                            GRA          357          I
          -FCC0514
 GRA                EQ     B2,B3,IRP3  IF ITL = N.GT */ NO TET"S CREATED                   GRA          358          I
          -FCC0514
 GRA                                                                                       GRA          359          I
          -FCC0514
 GRA                MX0    -T.REGL                                                         GRA          360          I
          -FCC0514
 GRA                LX0    T.REGP                                                          GRA          361          I
          -FCC0514
 GRA       IRP2     SA2    X1+B2                                                           GRA          362          I
          -FCC0514
 GRA                BX6    X0*X2       REG[TET(I)] = 0                                     GRA          363          I
          -FCC0514
 GRA                SB2    B2+B1       I = I + 1                                           GRA          364          I
          -FCC0514
 GRA                SA6    A2                                                              GRA          365          I
          -FCC0514
 GRA                LT     B2,B3,IRP2  IF I < L                                            GRA          366          I
          -FCC0514
 GRA                                                                                       GRA          367          I
          -FCC0514
 GRA       IRP3     SA4    L.TET                                                           GRA          368          I
          -FCC0514
 GRA                SB5    X1                                                              GRA          369          I
          -FCC0514
 GRA                SB4    X4          I = L.TET                                           GRA          370          I
          -FCC0514
 GRA                EQ     B4,B3,IRP   IF L.TET = N.GT  */ NO TST SQUEEZING                GRA          371          I
          -FCC0514
 GRA                                                                                       GRA          372          I
          -FCC0514
 GRA                MX0    -T.IPFL                                                         GRA          373          I
          -FCC0514
 GRA                SX6    B3          L.TET = N.GT                                        GRA          374          I
          -FCC0514
 GRA                LX0    T.IPFP                                                          GRA          375          I
          -FCC0514
 GRA                MX1    1+T.CAL                                                         GRA          376          I
          -FCC0514
 GRA                SA6    A4                                                              GRA          377          I
          -FCC0514
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3041    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                LX1    T.CAL                                                           GRA          378          I
          -FCC0514
 GRA                                                                                       GRA          379          I
          -FCC0514
 GRA       IRP4     SB4    B4-B1       I = I - 1                                           GRA          380          I
          -FCC0514
 GRA                SA2    B5+B4       TI = TET(I)                                         GRA          381          I
          -FCC0514
 GRA                BX7    X1*X2       C = CA[TI]                                          GRA          382          I
          -FCC0514
 GRA                SA3    B5+X2                                                           GRA          383          I
          -FCC0514
 GRA                BX4    -X0*X3      IPI = IPF[TET(C)]                                   GRA          384          I
          -FCC0514
 GRA                IX6    X4+X7       TET(C) = TETW(INV[TI],IPI,0,C)                      GRA          385          I
          -FCC0514
 GRA                SA6    A3+                                                             GRA          386          I
          -FCC0514
 GRA                GT     B4,B3,IRP4  IF I > L                                            GRA          387          I
          -FCC0514
 GRA                                                                                       GRA          388          I
          -FCC0514
 GRA                EQ     IRP                                                             GRA          389          I
          -FCC0514
 GRA       IRP1     EQ     IRP                                                             FCC0514       97          I
          -FCC0909
 GRA      *         RESERVE *B3* FOR ASSIGNED GOTO COMPARE TEST, IF A                      FCC0909       30     A     
 GRA      *         LABEL SWITCH WAS PERFORMED ( LGL " 0 ) .                               FCC0909       31     A     
 GRA                                                                                       FCC0909       32     A     
 GRA       IRP1     SA1    N.LJ                                                            FCC0909       33     A     
 GRA                LX1    1                                                               FCC0909       34     A     
 GRA                PL     X1,IRP      IF ^B58[N.LJ]                                       FCC0909       35     A     
 GRA                                                                               A       FCC0909       36     A     
 GRA                SA2    MRA                                                             FCC0909       37     A     
 GRA                SX7    1S3                                                             FCC0909       38     A     
 GRA                BX6    -X7*X2      MRA = MRA & ^1S3  */ MAKE *B3* UNAVAIL              FCC0909       39     A     
 GRA                SA6    A2                                                              FCC0909       40     A     
 GRA                SA7    TRA         TRA = 1S3     */ INDICATE TEMP USE OF *B3*          FCC0909       41     A     
 GRA                EQ     IRP                                                             FCC0909       42     A     
 GRA                                                                                       GRA          390     A     
 GRA       IRPA     BFMW   CA,(CON,RF)                                                     GRA          391     A     
 GRA       GRA      TTL    GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY               GRA          392     A     
 GRA       SEE      TITLE  SEE - SET ENTRY/EXIT CONDITIONS                                 GRA          393     A     
 GRA      **        SEE - SET ENTRY/EXIT CONDITIONS FOR VALUE CANIDATES IN *RCT*           GRA          394     A     
 GRA                                                                                       GRA          395     A     
 GRA       SEE      ROUTINE                                                                GRA          396     A     
 GRA                SA5    O.RCT                                                           GRA          397     A     
 GRA                SA4    L.RCT                                                           GRA          398     A     
 GRA                SA3    BVL                                                             GRA          399     A     
 GRA                SA2    LEA                                                             GRA          400     A     
 GRA                SA1    O.UDT                                                           GRA          401     A     
 GRA                SB2    X4                                                              GRA          402     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3042    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SB7    X2                                                              GRA          403     A     
 GRA                MX0    -CA.DUL                                                         GRA          404     A     
 GRA                SB6    X3+B1       VL = BVL + 1  */ BIT VECTOR LENGTH                  GRA          405     A     
 GRA                SB5    59-CA.VCP                                                       GRA          406     A     
 GRA                SA5    X5+B2       CI = O.RCT + L.RCT                                  GRA          407     A     
 GRA                SB3    3                                                               GRA          408     A     
 GRA                SA0    X1+B1       UB = O.UDT + 1                                      GRA          409     A     
 GRA                SB4    B0          NV = 0                                              GRA          410     A     
 GRA                EQ     SEE2                                                            GRA          411     A     
 GRA                                                                                       GRA          412     A     
 GRA      *         COMPILER TEMPORARY, SET PROFIT = DU[CI]+1                              GRA          413     A     
 GRA                                                                                       GRA          414     A     
 GRA       SEE1     SX7    X7+B1                                                           GRA          415     A     
 GRA                LX7    CA.PRFTP                                                        GRA          416     A     
 GRA                SX4    B1                                                              GRA          417     A     
 GRA                BX6    X7+X5       PRFT[CI] = DU[CI] + 1                               GRA          418     A     
 GRA                LX4    CA.PSPP                                                         GRA          419     A     
 GRA                BX6    X4+X6       PSP[CI] = 1                                         GRA          420     A     
 GRA                SA6    A5+                                                             GRA          421     A     
 GRA                                                                                       GRA          422     A     
 GRA      *         SEARCH BACKWARDS FOR VALUE CANIDATES                                   GRA          423     A     
 GRA                                                                                       GRA          424     A     
 GRA       SEE2     SA5    A5-B3       CI = CI - 3                                         GRA          425     A     
 GRA                ZR     X5,SEE6     IF [CI] = 0   */ END OF TABLE                       GRA          426     A     
 GRA                LX6    B5,X5                                                           GRA          427     A     
 GRA                PL     X6,SEE2     IF ^VC[CI]                                          GRA          428     A     
 GRA                                                                                       GRA          429     A     
 GRA                SB2    X5          I = UDI[CI]                                         GRA          430     A     
 GRA                LX6    1+CA.VCP-CA.DUP                                                 GRA          431     A     
 GRA                BX7    -X0*X6      DUB = DU[CI]                                        GRA          432     A     
 GRA                SB4    B4+B1       NV = NV + 1                                         GRA          433     A     
 GRA                ZR     B2,SEE1     IF I = 0      */ COMPILER TEMP                      GRA          434     A     
 GRA                GE     B2,B3,SEE2A IF I > 2      */ PROGRAMMER VAR                     FCC0645        9     A     
 GRA                                                                                       FCC0645       10     A     
 GRA      *         LOAD ONLY VARIABLE, SET PRFT = 1 AND PL = 1                            FCC0645       11     A     
 GRA                                                                                       FCC0645       12     A     
 GRA                SX4    B1                                                              FCC0645       13     A     
 GRA                LX4    CA.PLP      PL[CI] = 1                                          FCC0645       14     A     
 GRA                BX5    X4+X5                                                           FCC0645       15     A     
 GRA                LX4    CA.PRFTP-CA.PLP                                                 FCC0645       16     A     
 GRA                BX6    X4+X5       PRFT[CI] = 1                                        FCC0645       17     A     
 GRA                SA6    A5                                                              FCC0645       18     A     
 GRA                EQ     SEE2                                                            FCC0645       19     A     
 GRA                                                                                       GRA          435     A     
 GRA      *         PROCESS PROGRAMMER VARIABLE, EXIT INFO COMPUTED IN *FXI*               GRA          436     A     
 GRA                                                                                       GRA          437     A     
 GRA                SA4    A0+B2       U2 = UDT(I+1)                                       GRA          438          I
          -FCC0645
 GRA       SEE2A    SA4    A0+B2       U2 = UDT(I+1)                                       FCC0645       20     A     
 GRA                SA2    B7+X4       VA = LEA + WI[UI];  LE = [VA]                       GRA          439     A     
 GRA                SX1    B1                                                              GRA          440     A     
 GRA                UX3    B2,X4       B = BITN[U2]                                        GRA          441     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3043    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                AX4    B2,X2                                                           GRA          442     A     
 GRA                BX2    X1*X4                                                           GRA          443     A     
 GRA                LX2    CA.PLP      PL[CI] = SHIFT(LE,-B)&1  */ PRELOAD                 GRA          444     A     
 GRA                BX5    X2+X5                                                           GRA          445     A     
 GRA                SA3    A2-B6       LXA = VA - VL;  LX = [LXA]                          GRA          446     A     
 GRA                AX4    B2,X3                                                           GRA          447     A     
 GRA                BX2    X1*X4                                                           GRA          448     A     
 GRA                LX2    CA.LXP      LX[CI] = SHIFT(LX,-B)&1  */ LIVE EXIT               GRA          449     A     
 GRA                BX5    X2+X5                                                           GRA          450     A     
 GRA                SA3    A2+B6       VA = VA + VL;  MD = [VA]  */ MOVABLE DEFS           GRA          451     A     
 GRA                AX4    B2,X3                                                           GRA          452     A     
 GRA                BX1    X1*X4                                                           GRA          453     A     
 GRA                LX1    CA.PSPP     PSP[CI] = SHIFT(MD,-B)&1  */ POST ST POSSIB         GRA          454     A     
 GRA                BX5    X1+X5                                                           GRA          455     A     
 GRA                                                                                       GRA          456     A     
 GRA                LX6    CA.DUP+59-CA.DEFP                                               GRA          457     A     
 GRA                PL     X6,SEE3     IF ^DEF[CI]                                         GRA          458     A     
 GRA                NZ     X1,SEE3     IF PSP[CI]    */ POST STORE POSSIBLE                GRA          459     A     
 GRA                BX4    X6                                                              GRA          460     A     
 GRA                LX4    CA.DEFP-CA.TUP                                                  GRA          461     A     
 GRA                MI     X4,SEE3     IT TU[CI]     */ KEEP CV FIRST IN MTA SORT          GRA          462     A     
 GRA                SX7    X7-2        DUB = DUB - 2                                       GRA          463     A     
 GRA                NZ     X7,SEE3     IF DUB " 0    */ USED ALSO IN REGION                GRA          464     A     
 GRA                                                                                       GRA          465     A     
 GRA      *         DEF ONLY AND NOT MOVABLE, CLEAR VC BIT                                 GRA          466     A     
 GRA                                                                                       GRA          467     A     
 GRA                SX1    B1                                                              GRA          468     A     
 GRA                LX1    CA.VCP                                                          GRA          469     A     
 GRA                BX6    -X1*X5      VC[CI] = 0                                          GRA          470     A     
 GRA                SA6    A5                                                              GRA          471     A     
 GRA                EQ     SEE2                                                            GRA          472     A     
 GRA                                                                                       GRA          473     A     
 GRA      *         SET PROFIT = 1 IF USE ! DEF , ELSE 3                                   GRA          474     A     
 GRA                                                                                       GRA          475     A     
 GRA       SEE3     SB2    X7+B1                                                           GRA          476     A     
 GRA                NE     B2,B3,SEE4  IF DUB " 2    */ NOT DEF ONLY                       GRA          477     A     
 GRA                SX7    B1          DUB = 1                                             GRA          478     A     
 GRA                                                                                       GRA          479     A     
 GRA       SEE4     LX7    CA.PRFTP                                                        GRA          480     A     
 GRA                BX7    X5+X7       PRFT[CI] = DUB                                      GRA          481     A     
 GRA                LX6    CA.DEFP-CA.^RDP                                                 GRA          482          I
          -FCC0839
 GRA                SA7    A5                                                              GRA          483          I
          -FCC0839
 GRA                SA7    A5+                                                             FCC0839        4     A     
 GRA                PL     X6,SEE2     IF ^DEF[CI]    */ USED ONLY                         FCC0839        5     A     
 GRA                LX6    CA.DEFP-CA.^RDP                                                 FCC0839        6     A     
 GRA                NZ     X2,SEE2     IF LX[CI]                                           GRA          484     A     
 GRA                                                                                       GRA          485     A     
 GRA      *         DEAD ON EXIT FROM THE LOOP, KILL DEFINITIONS OF CANIDATE               GRA          486     A     
 GRA      *         IF IT HAS NO REAL USES IN THE LOOP                                     GRA          487     A     
 GRA                                                                                       GRA          488     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3044    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                PL     X6,SEE4A    IF RD[CI]                                           GRA          489     A     
 GRA                                                                                       GRA          490     A     
 GRA                LX6    CA.^RDP-CA.USEP                                                 GRA          491     A     
 GRA                MI     X6,SEE2     IF USE[CI]                                          GRA          492     A     
 GRA                                                                                       GRA          493     A     
 GRA                MX6    0           DIFF = 0                                            GRA          494     A     
 GRA                EQ     SEE5                                                            GRA          495     A     
 GRA                                                                                       GRA          496     A     
 GRA       SEE4A    SA4    A4-B1       UI = UDT(I)                                         GRA          497     A     
 GRA                LX5    -CA.SUSEP                                                       GRA          498     A     
 GRA                LX4    -UD.STCP                                                        GRA          499     A     
 GRA                MX1    -UD.STCL                                                        GRA          500     A     
 GRA                BX4    -X1*X4                                                          GRA          501     A     
 GRA                BX1    -X1*X5                                                          GRA          502     A     
 GRA                IX6    X1-X4       DIFF = SUSE[CI] - STC[UI]                           GRA          503     A     
 GRA                LX5    CA.SUSEP+59-CA.TUP                                              GRA          504     A     
 GRA                PL     X5,SEE5     IF ^TU[CI]    */ NOT THE LOOP *CV*                  GRA          505     A     
 GRA                                                                                       GRA          506     A     
 GRA                SA6    TUD         TUD = DIFF    */ SAVE *DIFF* FOR LATER USE          GRA          507     A     
 GRA                EQ     SEE2                                                            GRA          508     A     
 GRA                                                                                       GRA          509     A     
 GRA       SEE5     NZ     X6,SEE2     IF DIFF " 0   */ VAR HAS REAL USES                  GRA          510     A     
 GRA                                                                                       GRA          511     A     
 GRA                SA4    SEEA                                                            GRA          512     A     
 GRA                BX7    X4+X7       (RA,KD)[CI] = 1                                     GRA          513     A     
 GRA                SA7    A7                                                              GRA          514     A     
 GRA                EQ     SEE2                                                            GRA          515     A     
 GRA       SEE      SPACE  2,14                                                            GRA          516     A     
 GRA      *         CHECK FOR FINAL ASSIGNMENTS OF CANIDATES IN AN OUTER LOOP              GRA          517     A     
 GRA      *         AND IF SO, ADJUST *INV* BIT OF *RAT* ENTRIES.                          GRA          518     A     
 GRA                                                                                       GRA          519     A     
 GRA       SEE6     SA1    NXC                                                             GRA          520     A     
 GRA                SA2    FBA                                                             GRA          521     A     
 GRA                SX6    B4+B1       NVC = NV + 1  */ N. VALUE CANIDATES                 GRA          522     A     
 GRA                SB6    A5                                                              GRA          523     A     
 GRA                SA6    NVC                                                             GRA          524     A     
 GRA                IX7    X1+X2                                                           GRA          525     A     
 GRA                ZR     X7,SEE11    IF FBA + NXC = 0  */ NO FINAL ASSIGNMENTS           GRA          526     A     
 GRA                MX0    1                                                               GRA          527     A     
 GRA                SX2    27B         I = 27B                                             GRA          528     A     
 GRA                SB7    RAT                                                             GRA          529     A     
 GRA                NZ     X1,SEE7     IF NXC " 0                                          GRA          530     A     
 GRA                SX2    7           I = 7                                               GRA          531     A     
 GRA                                                                                       GRA          532     A     
 GRA       SEE7     SA5    B7+X2                                                           GRA          533     A     
 GRA                ZR     X5,SEE8     IF RAT(I) = 0                                       GRA          534     A     
 GRA                SA4    B6+X5       J = R1[RAT(I)]                                      GRA          535          I
          -FCC1014
 GRA                SA4    B6+X5       J = R1[RAT(I)];  CAW = RCT(J)                       FCC1014        5     A     
 GRA                LX4    59-CA.DEFP                                                      GRA          536     A     
 GRA                BX3    -X4*X0                                                          GRA          537     A     
 GRA                LX3    1+RA.INVP                                                       GRA          538     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3045    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                BX6    X3+X5       INV[RAT(I)] = ^DEF[RCT(J)]                          GRA          539     A     
 GRA                SA6    A5                                                              GRA          540     A     
 GRA                LX4    CA.DEFP-CA.RAP                                                  GRA          541     A     
 GRA                MI     X4,SEE8     IF RA[RCT(J)]                                       GRA          542          I
          -FCC1014
 GRA                PL     X4,SEE7A    IF ^RA[CAW]                                         FCC1014        6     A     
 GRA                                                                                       FCC1014        7     A     
 GRA      *         CHECK FOR CANDIDATE OF FORM  LD  A0+K AND CHANGE TO F.P. ADDR          FCC1014        8     A     
 GRA                                                                                       FCC1014        9     A     
 GRA                AX5    RA.R1L                                                          FCC1014       10     A     
 GRA                NZ     X5,SEE8     IF (R2,R3)[CAW] " 0                                 FCC1014       11     A     
 GRA                LX4    1+CA.RAP                                                        FCC1014       12     A     
 GRA                SX6    X4-2                                                            FCC1014       13     A     
 GRA                NZ     X6,SEE8     IF UDI[CAW] " 1                                     FCC1014       14     A     
 GRA                SA3    A4+B1       C2W = RCT(J+1)                                      FCC1014       15     A     
 GRA                LX3    -IH.RFP                                                         FCC1014       16     A     
 GRA                SB2    X3                                                              FCC1014       17     A     
 GRA                LX3    IH.RFP-IH.CAP                                                   FCC1014       18     A     
 GRA                NE     B2,B1,SEE8  IF RF[C2W] " 1                                      FCC1014       19     A     
 GRA                                                                               A       FCC1014       20     A     
 GRA                SX6    X3+2                                                            FCC1014       21     A     
 GRA                SA6    A3          RCT(J+1) = IHW(0,0,CA[C2W]+2)                       FCC1014       22     A     
 GRA                SX3    B1                                                              FCC1014       23     A     
 GRA                LX3    CA.ACP                                                          FCC1014       24     A     
 GRA                BX6    X4+X3       AC[CAW] = 1                                         FCC1014       25     A     
 GRA                LX3    CA.VCP-CA.ACP                                                   FCC1014       26     A     
 GRA                BX6    -X3*X6      VC[CAW] = 0                                         FCC1014       27     A     
 GRA                SA6    A4                                                              FCC1014       28     A     
 GRA                SA4    A4+2                                                            FCC1014       29     A     
 GRA                SX5    2S6                                                             FCC1014       30     A     
 GRA                BX6    X4+X5       MIT[RCT(J+2)] = 2                                   FCC1014       31     A     
 GRA                SA6    A4                                                              FCC1014       32     A     
 GRA                EQ     SEE8                                                            FCC1014       33     A     
 GRA                                                                                       GRA          543     A     
 GRA      *         INV ADDRESS CANIDATE AND *RF* NOT MARKED                               GRA          544     A     
 GRA                                                                                       GRA          545     A     
 GRA                LX4    1+CA.RAP-CA.SUSEP                                               GRA          546          I
          -FCC1014
 GRA       SEE7A    LX4    1+CA.RAP-CA.SUSEP                                               FCC1014       34     A     
 GRA                MX7    -CA.SUSEL                                                       GRA          547     A     
 GRA                BX3    -X7*X4                                                          GRA          548     A     
 GRA                NZ     X3,SEE8     IF SUSE[RCT(J)] " 0  */ OTHER USES                  GRA          549     A     
 GRA                                                                                       GRA          550     A     
 GRA                LX4    CA.SUSEP+59-CA.RAP                                              GRA          551     A     
 GRA                BX6    X0+X4       RA[RCT(J)] = 1                                      GRA          552     A     
 GRA                LX6    1+CA.RAP                                                        GRA          553     A     
 GRA                SX7    B1                                                              GRA          554     A     
 GRA                LX7    CA.RFP                                                          GRA          555     A     
 GRA                BX6    -X7*X6      RF[RCT(J)] = 0  */ FOR *MTA*                        GRA          556     A     
 GRA                SA6    A4                                                              GRA          557     A     
 GRA                                                                                       GRA          558     A     
 GRA       SEE8     SX2    X2-1        I = I - 1                                           GRA          559     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3046    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                NZ     X2,SEE7     IF I " 0                                            GRA          560     A     
 GRA       SEE      SPACE  1,10                                                            GRA          561     A     
 GRA      *         SCAN *IA* LIST TO SET USEAGE MODE FOR ENTRIES ON IT                    GRA          562     A     
 GRA                                                                                       GRA          563     A     
 GRA       SEE11    SA1    IAI                                                             GRA          564     A     
 GRA                ZR     X1,SEE      IF IAI = 0    */ NO *IA* INCRS                      GRA          565     A     
 GRA                                                                                       GRA          566     A     
 GRA                SB2    SCR         K = 0                                               GRA          567     A     
 GRA                SB3    X1+B2                                                           GRA          568     A     
 GRA                SX0    B1                                                              GRA          569     A     
 GRA                LX0    CA.RFP                                                          GRA          570     A     
 GRA                SX1    B1                                                              GRA          571     A     
 GRA                LX1    CA.EUP                                                          GRA          572     A     
 GRA                SB5    59-CA.KDP                                                       GRA          573     A     
 GRA                SX4    B1                                                              FCC0535        5     A     
 GRA                LX4    CA.LXP                                                          FCC0535        6     A     
 GRA                                                                                       GRA          574     A     
 GRA       SEE12    SA2    B2          (J,I) = SCR(K)                                      GRA          575     A     
 GRA                SB2    B2+B1       K = K + 1                                           GRA          576     A     
 GRA                SA5    B6+X2       CAW = RCT(I)  */ *RD* VAR                           GRA          577     A     
 GRA                LX6    B5,X5                                                           GRA          578     A     
 GRA                MI     X6,SEE14    IF KD[CAW]    */ INC IS USELESS                     GRA          579     A     
 GRA                                                                                       GRA          580     A     
 GRA                BX7    X0*X5       BIT = RF[CAW]                                       GRA          581     A     
 GRA                AX2    18                                                              GRA          582     A     
 GRA                NZ     X7,SEE13    IF BIT " 0    */ SHORT USEAGE IN THE LOOP           GRA          583     A     
 GRA                                                                                       GRA          584     A     
 GRA                BX6    X1+X5       EU[CAW] = 1   */ MARK AS LONG USEAGE                GRA          585     A     
 GRA                SA6    A5                                                              GRA          586     A     
 GRA                BX7    X1          BIT = EU                                            GRA          587     A     
 GRA                                                                                       GRA          588     A     
 GRA       SEE13    SA3    B6+X2                                                           GRA          589     A     
 GRA                BX6    X7+X3       BIT[RCT(J)] = 1                                     GRA          590     A     
 GRA                SA6    A3+                                                             GRA          591          I
          -FCC0535
 GRA                SA6    A3                                                              FCC0535        7     A     
 GRA                LX3    59-CA.CONP                                                      FCC0535        8     A     
 GRA                MI     X3,SEE14    IF CON[RCT(J)]                                      FCC0535        9     A     
 GRA                BX6    X4+X6       LX[RCT(J)] = 1  */ INHIBIT BIASING IN *MFA*         FCC0535       10     A     
 GRA                SA6    A3                                                              FCC0535       11     A     
 GRA                                                                                       GRA          592     A     
 GRA       SEE14    LT     B2,B3,SEE12 IF K < IAI                                          GRA          593     A     
 GRA                EQ     SEE                                                             GRA          594     A     
 GRA                                                                                       GRA          595     A     
 GRA       SEEA     BFMW   CA,(RA,VC,KD)                                                   GRA          596     A     
 GRA       ERC      TITLE  ERC - ENTER REGISTER CANIDATES INTO *RCT*                       GRA          597     A     
 GRA      **        ERC - ENTER REGISTER CANIDATES INTO *RCT*                              GRA          598     A     
 GRA      *         FOWARD SCAN OF THE BLOCKS IN THE LOOP TO ENTER CANIDATES               GRA          599     A     
 GRA      *         BY CALLING *SCT*. LINK WORDS OF CANIDATES POINT TO THEIR *RCT*         GRA          600     A     
 GRA      *         ENTRIES, ALL OTHERS ARE CLEARED.                                       GRA          601     A     
 GRA      *         SET BITS IN *LUV* ( LOOP USEAGE VECTOR ) FOR NON CANIDATE              GRA          602     A     
 GRA      *         MEMORY REFERENCES.                                                     GRA          603     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3047    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      *         MARK FINAL B AND X ASSIGNMENTS FROM INNER LOOPS ( *RS* )               GRA          604     A     
 GRA                                                                                       GRA          605     A     
 GRA                QUAL   ERC                                                             GRA          606     A     
 GRA                                                                                       GRA          607     A     
 GRA                PROCESS EOQ                                                            GRA          608     A     
 GRA                SX6    B6-B5       L.RCT = CL - CO                                     GRA          609     A     
 GRA                SA6    L.RCT                                                           GRA          610     A     
 GRA                TRACE  ERC,RLIST,SEQ                                                   GRA          611     A     
 GRA                                                                                       GRA          612     A     
 GRA       ERC      ROUTINE                                                                GRA          613     A     
 GRA                LX3    B1,X4                                                           GRA          614     A     
 GRA                IX1    X3+X4                                                           GRA          615     A     
 GRA                ALLOC  RCT,X1      ALLOC( RCT , 3*NC )                                 GRA          616     A     
 GRA                SB5    X2          CO = O.RCT                                          GRA          617     A     
 GRA                SA5    O.SEQ                                                           GRA          618     A     
 GRA                SB6    X2+B6       CL = CO + OLD(L.RCT)                                GRA          619     A     
 GRA                SA4    LUV                                                             GRA          620     A     
 GRA                SA3    O.UDT                                                           GRA          621     A     
 GRA                SB3    3                                                               GRA          622     A     
 GRA                SB4    X4          (B4) = [LUV]                                        GRA          623     A     
 GRA                S"TB"  X5+B3       TB = O.SEQ + 3                                      GRA          624     A     
 GRA                SA5    X5          R1 = O.SEQ                                          GRA          625     A     
 GRA                SA0    X3          (A0) = [O.UDT]                                      GRA          626     A     
 GRA                                                                                       GRA          627     A     
 GRA                PROCESS (BOS,EOS)                                                      GRA          628     A     
 GRA                SX7    X5                                                              GRA          629     A     
 GRA                ZR     X7,ERC1     IF IH[R1] = 0 */ NO BLOCK NUMBER                    GRA          630     A     
 GRA                LX5    -R1.H2P                                                         GRA          631     A     
 GRA                MX4    -CA.APLNL                                                       GRA          632     A     
 GRA                BX6    -X4*X5                                                          GRA          633     A     
 GRA                LX6    CA.APLNP    APF = APLN[R1]                                      GRA          634     A     
 GRA                SA6    APF                                                             GRA          635     A     
 GRA                                                                                       GRA          636     A     
 GRA      *         CLEAR LINK WORD ( NON CANIDATE )                                       GRA          637     A     
 GRA                                                                                       GRA          638     A     
 GRA                PROCESS CLR                                                            GRA          639     A     
 GRA       ERC1     MX7    0                                                               GRA          640     A     
 GRA                SA7    A5+B3       LI = R1 + 3;  [LI] = 0  */ CLEAR LINK WORD          GRA          641     A     
 GRA                                                                                       GRA          642     A     
 GRA      *         ADVANCE TO NEXT INSTRUCTION                                            GRA          643     A     
 GRA                                                                                       GRA          644     A     
 GRA       ERC2     SA5    A5+4        R1 = R1 + 4                                         GRA          645     A     
 GRA                UX6    B2,X5                                                           GRA          646     A     
 GRA                JP     ERC.JT+B2   JUMP( ERC.JT( OC[R1] ) )                            GRA          647     A     
 GRA       SCON     SPACE  3,14                                                            GRA          648     A     
 GRA      *         CONSTANT CANIDATE PROCESSING                                           GRA          649     A     
 GRA                                                                                       GRA          650     A     
 GRA                PROCESS S                                                              GRA          651     A     
 GRA                LX5    -R1.INP                                                         GRA          652     A     
 GRA                SX6    X5                                                              GRA          653     A     
 GRA                AX6    59                                                              GRA          654     A     
 GRA                SX7    X5                                                              GRA          655     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3048    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                BX6    X6-X7                                                           GRA          656     A     
 GRA                LX6    IH.CAP      C2W = IHW(0,0,ABS(IN[R1]),0)                        GRA          657     A     
 GRA                                                                                       GRA          658     A     
 GRA       SET1     SA3    A5+2        DI = R1 + 2                                         GRA          659     A     
 GRA                LX3    59-D.PRSP                                                       GRA          660     A     
 GRA                PL     X3,SET2     IF ^PRS[DI]                                         GRA          661     A     
 GRA                SA2    A5+4        R1RS = R1 + 4                                       GRA          662     A     
 GRA                LX2    59-R1.SOP-SO.INVP                                               GRA          663     A     
 GRA                PL     X2,ERC1     IF ^INV[R1RS]  */ CHANGED IN INNER LOOP             GRA          664     A     
 GRA                SX7    X5                                                              FCC0513        4     A     
 GRA                PL     X7,SET2     IF IN[R1]  \ 0  */ *S* WITH NEGATIVE CON            FCC0513        5     A     
 GRA                MX7    -IH.CAL                                                         FCC0513        6     A     
 GRA                BX6    -X7*X5                                                          FCC0513        7     A     
 GRA                LX6    IH.CAP      C2W = IHW(0,0,IN[R1],0)                             FCC0513        8     A     
 GRA                                                                                       GRA          665     A     
 GRA       SET2     MX4    0           R = 0                                               GRA          666     A     
 GRA                SX1    B1                                                              GRA          667     A     
 GRA                MX7    0           CCW = 0                                             GRA          668     A     
 GRA                LX1    CA.CONP     CPW = CAW(0,CON,0)                                  GRA          669     A     
 GRA                MX2    1                                                               GRA          670     A     
 GRA                LX2    1+IH.MSKP         */ FORCE *S* TO BE A B-CANIDATE               GRA          671     A     
 GRA                BX2    -X7*X2                                                          GRA          672          I
          -FCC0513
 GRA                BX2    -X6*X2                                                          FCC0513        9     A     
 GRA                LX2    CA.RFP-IH.MSKP                                                  GRA          673     A     
 GRA                BX1    X2+X1       RF[CPW] = ^MSK[C2W]                                 GRA          674     A     
 GRA                RJ     SCT         ENTER CONSTANT                                      GRA          675     A     
 GRA                EQ     ERC2                                                            GRA          676     A     
 GRA       FMA      SPACE  2                                                               GRA          677     A     
 GRA                PROCESS FMA                                                            GRA          678     A     
 GRA                LX5    -R1.INP                                                         GRA          679     A     
 GRA                MX7    1                                                               GRA          680     A     
 GRA                LX7    1+IH.MSKP                                                       GRA          681     A     
 GRA                SX4    X5                                                              GRA          682     A     
 GRA                LX4    IH.CAP                                                          GRA          683     A     
 GRA                BX6    X4+X7       C2W = IHW(1,0,IN[R1],0)                             GRA          684     A     
 GRA                EQ     SET1                                                            GRA          685     A     
 GRA       SXT      SPACE  3                                                               GRA          686     A     
 GRA      *         SXT - ENTER *CA* OF FOLLOWING CON SHIFT                                GRA          687     A     
 GRA                                                                                       GRA          688     A     
 GRA                PROCESS SXT                                                            GRA          689     A     
 GRA                SA4    A5+5        R2S = R1 + 5                                        GRA          690     A     
 GRA                LX4    -IH.CAP                                                         GRA          691     A     
 GRA                SX6    X4                                                              GRA          692     A     
 GRA                LX6    IH.CAP      C2W = IHW(0,0,CA[R2S],0)                            GRA          693     A     
 GRA                MX4    0           R = 0                                               GRA          694     A     
 GRA                SX1    B1                                                              GRA          695     A     
 GRA                MX7    0           CCW = 0                                             GRA          696     A     
 GRA                LX1    CA.CONP     CPW = CAW(0,CON,0)                                  GRA          697     A     
 GRA                RJ     SCT         ENTER CON                                           GRA          698     A     
 GRA                                                                                       GRA          699     A     
 GRA      *         CHECK PRED OF *SXT* AND BUMP USES OF CON, IF PRED IS MULTI USE         GRA          700     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3049    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       GRA          701     A     
 GRA                SA5    A5                                                              GRA          702     A     
 GRA                SB2    "TB"-B1                                                         GRA          703     A     
 GRA                MX3    -D.USESL+1                                                      GRA          704     A     
 GRA                LX5    -R1.RJP                                                         GRA          705     A     
 GRA                BX7    "RN"X5      R = RJ[R1]                                          GRA          706     A     
 GRA                SA4    B2+X7       DIP = TB-1 + R                                      GRA          707     A     
 GRA                LX4    -D.USESP-1                                                      GRA          708     A     
 GRA                BX7    -X3*X4                                                          GRA          709     A     
 GRA                ZR     X7,ERC2     IF USES[DIP] = 1                                    GRA          710     A     
 GRA                SX3    B1                                                              GRA          711     A     
 GRA                LX3    CA.NOCCP                                                        GRA          712     A     
 GRA                IX6    X3+X6       NOCC[CAW] = NOCC[CAW] + 1                           GRA          713     A     
 GRA                SA6    A6                                                              GRA          714     A     
 GRA                EQ     ERC2                                                            GRA          715     A     
 GRA       STT      SPACE  3,14                                                            GRA          716     A     
 GRA      *         STT - ENTER CONSTANT OR ADDRESS CANIDATE                               GRA          717     A     
 GRA                                                                                       GRA          718     A     
 GRA                PROCESS STT                                                            GRA          719     A     
 GRA                SA1    A5+2        DI = R1 + 2                                         GRA          720     A     
 GRA                SA3    A5+B1       R2 = R1 + 1                                         GRA          721     A     
 GRA                LX1    59-D.INCP                                                       GRA          722     A     
 GRA                LX3    -IH.RFP                                                         GRA          723     A     
 GRA                BX4    "RN"X3      R = RF[R2]                                          GRA          724     A     
 GRA                PL     X1,STT2     IF ^INC[DI]   */ NOT AN INCREMENT                   GRA          725     A     
 GRA                                                                                       GRA          726     A     
 GRA                SB2    "TB"-B1                                                         GRA          727          I
          -FCC1039
 GRA                SA2    B2+X4       DJ = TB-1 + R                                       GRA          728          I
          -FCC1039
 GRA                LX2    59-D.LDP                                                        GRA          729          I
          -FCC1039
 GRA                PL     X2,ERC1     IF ^LD[DJ]    */ THIS IS THE TEST INCR              GRA          730          I
          -FCC1039
 GRA                LX1    D.INCP-D.PSP                                                    FCC1039        7     A     
 GRA                PL     X1,ERC1     IF ^PS[DI]    */ THIS IS THE TEST INCR              FCC1039        8     A     
 GRA                                                                                       GRA          731     A     
 GRA                LX3    IH.RFP-IH.CAP                                                   GRA          732     A     
 GRA                SX6    X3                                                              GRA          733     A     
 GRA                PL     X6,STT1                                                         GRA          734     A     
 GRA                BX6    -X6                                                             GRA          735     A     
 GRA       STT1     LX6    IH.CAP      C2W = IHW(0,0,ABS(CA[R2]),0)                        GRA          736     A     
 GRA                EQ     SET2                                                            GRA          737     A     
 GRA                                                                                       GRA          738     A     
 GRA      *         PROCESS ADDRESS CANIDATE                                               GRA          739     A     
 GRA                                                                                       GRA          740     A     
 GRA       STT2     BX6    X0*X3       C2W = IHW(0,0,CAIH[R2])                             GRA          741     A     
 GRA                LX5    -R1.INP                                                         GRA          742     A     
 GRA                SX1    B1                                                              GRA          743     A     
 GRA                LX6    IH.RFP                                                          GRA          744     A     
 GRA                MX7    -R1.H2L                                                         GRA          745     A     
 GRA                LX1    CA.ACP                                                          GRA          746     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3050    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SX2    X5                                                              GRA          747     A     
 GRA                LX5    R1.INP-R1.H2P                                                   GRA          748     A     
 GRA                BX1    X1+X2       CPW = CAW(0,AC,0,IN[R1])                            GRA          749     A     
 GRA                BX7    -X7*X5                                                          GRA          750     A     
 GRA                LX7    CC.H2P      CCW = H2[R1]                                        GRA          751     A     
 GRA                EQ     TLD2                                                            GRA          752          I
          -FCC0919
 GRA                EQ     ST2A                                                            FCC0919        5     A     
 GRA       TST      SPACE  3,14                                                            GRA          753     A     
 GRA      *         TST/TLD - ENTER VALUE CANIDATES                                        GRA          754     A     
 GRA                                                                                       GRA          755     A     
 GRA                PROCESS TST                                                            GRA          756     A     
 GRA                SA3    A5+B3       LI = R1 + 3                                         GRA          757     A     
 GRA                ZR     X3,ERC2     IF [LI] = 0   */ USED IN INNER LOOP                 GRA          758     A     
 GRA                SA1    TSTA                                                            GRA          759     A     
 GRA                EQ     TLD1                                                            GRA          760     A     
 GRA                                                                                       GRA          761     A     
 GRA                PROCESS TLD                                                            GRA          762     A     
 GRA                SA1    TLDA                                                            GRA          763     A     
 GRA                                                                                       GRA          764     A     
 GRA       TLD1     SA3    A5+B1       R2 = R1 + 1                                         GRA          765     A     
 GRA                MX7    0           CCW = 0                                             GRA          766     A     
 GRA                SX4    B0          R = 0                                               GRA          767     A     
 GRA                BX6    X3          C2W = [R2]                                          GRA          768     A     
 GRA                                                                                       GRA          769     A     
 GRA       TLD2     RJ     SCT         ENTER CANIDATE                                      GRA          770     A     
 GRA                EQ     ERC2                                                            GRA          771     A     
 GRA                                                                                       GRA          772     A     
 GRA       TLDA     BFMW   CA,(PL,USE)                                                     GRA          773     A     
 GRA       TSTA     BFMW   CA,(PL,DEF)                                                     GRA          774     A     
 GRA       LDST     SPACE  2,14                                                            GRA          775     A     
 GRA      *         LD/ST - ENTER VALUE OR ADDRESS CANIDATE                                GRA          776     A     
 GRA                                                                                       GRA          777     A     
 GRA                PROCESS ST                                                             GRA          778     A     
 GRA                SX1    B1                                                              GRA          779     A     
 GRA                LX1    CA.DEFP     BIT = DEF                                           GRA          780     A     
 GRA                EQ     ST1                                                             GRA          781     A     
 GRA                                                                                       GRA          782     A     
 GRA                PROCESS (LD,ILD)                                                       GRA          783     A     
 GRA                SA4    A5+2        DI = R1 + 2                                         GRA          784     A     
 GRA                SX1    B1                                                              GRA          785     A     
 GRA                LX1    D.RFP                                                           GRA          786     A     
 GRA                BX2    X1*X4       RFB = RF[DI]  */ FORCE *RF* IF *DO* LIMITS          GRA          787     A     
 GRA                LX1    CA.USEP-D.RFP                                                   GRA          788     A     
 GRA                LX2    CA.RFP-D.RFP                                                    GRA          789     A     
 GRA                BX1    X1+X2       BIT = (USE,RFB)                                     GRA          790     A     
 GRA                                                                                       GRA          791     A     
 GRA       ST1      SA3    A5+B3       LI = R1 + 3                                         GRA          792     A     
 GRA                LX5    -R1.INP                                                         GRA          793     A     
 GRA                SX6    X5                                                              GRA          794     A     
 GRA                BX1    X1+X6       CPW = CAW(0,BIT,IN[R1])                             GRA          795     A     
 GRA                SA2    A5+B1       R2 = R1 + 1                                         GRA          796     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3051    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                LX3    59-CA.VCP                                                       GRA          797     A     
 GRA                MX7    0           CCW = 0                                             GRA          798     A     
 GRA                SX4    B0          R = 0                                               GRA          799     A     
 GRA                BX6    X2          C2W = [R2]                                          GRA          800     A     
 GRA                MI     X3,TLD2     IF VC[LI]                                           GRA          801     A     
 GRA                LX3    CA.VCP-CA.ACP                                                   GRA          802     A     
 GRA                PL     X3,ST4      IF ^AC[LI]                                          GRA          803     A     
 GRA                                                                                       GRA          804     A     
 GRA      *         ADJUST RF FOR *SCT* IF IT IS AN *INC*                                  GRA          805     A     
 GRA                                                                                       GRA          806     A     
 GRA                LX2    -IH.RFP                                                         GRA          807     A     
 GRA                SB2    "TB"-B1                                                         GRA          808          I
          -FCC0919
 GRA                BX4    "RN"X2      R = RF[R2]                                          GRA          809          I
          -FCC0919
 GRA                BX4    "RN"X2      R = RF[R2]                                          FCC0919        6     A     
 GRA                                                                                       FCC0919        7     A     
 GRA       ST2A     SB2    "TB"-B1                                                         FCC0919        8     A     
 GRA                SA2    B2+X4       DIP = TB-1 + R                                      GRA          810          I
          -FCC1039
 GRA                MX5    -IH.CAIHL                                                       GRA          811     A     
 GRA                BX6    -X5*X6      C2W = IHW(0,0,CAIH[R2])                             GRA          812     A     
 GRA                                                                                       FCC1039        9     A     
 GRA       ST2B     SA2    B2+X4       DIP = TB-1 + R                                      FCC1039       10     A     
 GRA                LX2    59-D.INCP                                                       GRA          813     A     
 GRA                PL     X2,ST3      IF ^INC[DIP]                                        GRA          814     A     
 GRA                                                                                       GRA          815     A     
 GRA                LX2    1+D.INCP+58-D.TYP                                               GRA          816     A     
 GRA                SA4    A2-B1       R2P = DIP - 1                                       GRA          817     A     
 GRA                PL     X2,ST2      IF TYPE[DIP] = I                                    GRA          818     A     
 GRA                LX4    -IH.RFP                                                         GRA          819     A     
 GRA                BX4    "RN"X4      R = RF[R2P]   */ POINT TO INC VARIABLE              GRA          820     A     
 GRA                EQ     TLD2                                                            GRA          821          I
          -FCC1039
 GRA                EQ     ST2B                                                            FCC1039       11     A     
 GRA                                                                                       GRA          822     A     
 GRA       ST2      SA2    A4-B1       R1P = R2P - 1                                       GRA          823          I
          -FCC1039
 GRA                LX2    -R1.RJP                                                         GRA          824          I
          -FCC1039
 GRA                BX4    "RN"X2      R = RJ[R1]                                          GRA          825          I
          -FCC1039
 GRA                SA3    "TB"+X4     LIP = TB + R                                        GRA          826          I
          -FCC1039
 GRA                SA3    B5+X3       CI = RCT([LIP])                                     GRA          827          I
          -FCC1039
 GRA                LX3    59-CA.DEFP                                                      GRA          828          I
          -FCC1039
 GRA                MI     X3,TLD2     IF DEF[CI]    */ MUST BE THE *INC* VARIABLE         GRA          829          I
          -FCC1039
 GRA                LX2    R1.RJP-R1.RKP                                                   GRA          830          I
          -FCC1039
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3052    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                BX4    "RN"X2      R = RK[R2]                                          GRA          831          I
          -FCC1039
 GRA                EQ     TLD2                                                            GRA          832          I
          -FCC1039
 GRA       ST2      SA2    A2+B1       LIP = DIP + 1 */ CONTAINS CANIDATE ORDINAL          FCC1039       12     A     
 GRA                ZR     X2,ST3      IF [LI] = 0   */ THIS INC IS NOT A CANIDATE         FCC1039       13     A     
 GRA                SX2    X2                                                              FCC1039       14     A     
 GRA                MX4    0           R = 0                                               FCC1039       15     A     
 GRA                LX2    IH.RFP                                                          FCC1039       16     A     
 GRA                BX6    X2+X6       RF[C2W] = CO[LIP]                                   FCC1039       17     A     
 GRA                                                                                       GRA          833     A     
 GRA       ST3      RJ     SCT         ENTER CANIDATE                                      GRA          834     A     
 GRA                SA4    A5+3                                                            GRA          835     A     
 GRA                NZ     X4,ERC2     IF [R1+3] " 0 */ CANIDATE ENTERED                   GRA          836     A     
 GRA                                                                                       GRA          837     A     
 GRA                SA1    A5+                                                             GRA          838     A     
 GRA                LX1    -R1.INP                                                         GRA          839     A     
 GRA       ST       SPACE  1,12                                                            GRA          840     A     
 GRA      *         SET BIT IN *LUV* TO INDICATE USEAGE OF VAR IN AN INNER LOOP            GRA          841     A     
 GRA                                                                                       GRA          842     A     
 GRA       ST4      SB2    X1+B1                                                           GRA          843     A     
 GRA                SA2    A0+B2       U2 = UDT(IN[R1]+1)                                  GRA          844     A     
 GRA                SX1    B1                                                              GRA          845     A     
 GRA                SA3    B4+X2       LUA = LUV + WI[U2]                                  GRA          846     A     
 GRA                UX7    B2,X2                                                           GRA          847     A     
 GRA                LX1    B2,X1                                                           GRA          848     A     
 GRA                BX6    X1+X3       [LUA] = [LUA] ! SHIFT(1,BITN[U2])                   GRA          849     A     
 GRA                SA6    A3                                                              GRA          850     A     
 GRA                EQ     ERC1                                                            GRA          851     A     
 GRA       RS       SPACE  3,20                                                            GRA          852     A     
 GRA      **        RS - IF A FULL LOCK *RS* AND ONLY 1 INNER LOOP IN THE NEST,            GRA          853     A     
 GRA      *         THEN ATTEMPT TO MOVE IT OUT.                                           GRA          854     A     
 GRA                                                                                       GRA          855     A     
 GRA                PROCESS RS                                                             GRA          856     A     
 GRA                SA1    N.HB                                                            GRA          857     A     
 GRA                LX5    -R1.SOP-SO.LKP                                                  GRA          858     A     
 GRA                MX6    -SO.LKL                                                         GRA          859     A     
 GRA                SB2    X1                                                              GRA          860     A     
 GRA                NE     B2,B1,RS9   IF N.HB " 1   */ ^ OUTER WITH 1 INNER LOOP          GRA          861     A     
 GRA                BX7    -X6*X5                                                          GRA          862     A     
 GRA                SB2    X7+B1                                                           GRA          863     A     
 GRA                NE     B2,B3,RS9   IF SOLK[R1] " 2 */ NOT FULL LOCK RS                 GRA          864     A     
 GRA                MX6    -SO.REGL                                                        GRA          865     A     
 GRA                SA2    XRF                                                             GRA          866     A     
 GRA                NZ     X2,RS9      IF XRF " 0    */ EXT REFS IN LOOP                   GRA          867     A     
 GRA                LX5    SO.LKP                                                          GRA          868     A     
 GRA                BX7    -X6*X5      REGN = SOREG[R1]                                    GRA          869     A     
 GRA                                                                                       GRA          870     A     
 GRA      *         BYPASS MOVING ASSIGNMENT OUT OF THEIR IS A TEMP/RJRS USE               GRA          871     A     
 GRA                                                                                       GRA          872     A     
 GRA                SA2    TRA                                                             GRA          873     A     
 GRA                SB2    X7-59                                                           GRA          874     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3053    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                LX6    -B2,X2                                                          GRA          875     A     
 GRA                MI     X6,RS9      IF SHIFT(TRA,59-REGN) < 0  */ TEMP/RJRS USE         GRA          876     A     
 GRA                                                                                       GRA          877     A     
 GRA      *         FIND PRED OF THE *RS* THAT IS IN *RCT*                                 GRA          878          I
          -FCC0448
 GRA                                                                                       GRA          879          I
          -FCC0448
 GRA                SA4    A5-B1       LI = R1 - 1                                         GRA          880          I
          -FCC0448
 GRA                SA3    A4-B1       DI = LI - 1                                         GRA          881          I
          -FCC0448
 GRA                NZ     X4,RS1      IF [LI] " 0   */ PRED IN *RCT*                      GRA          882          I
          -FCC0448
 GRA                                                                                       GRA          883          I
          -FCC0448
 GRA                LX3    58-D.TYP                                                        GRA          884          I
          -FCC0448
 GRA                MX6    D.TYL                                                           GRA          885          I
          -FCC0448
 GRA                BX3    X6*X3                                                           GRA          886          I
          -FCC0448
 GRA                ZR     X3,RS0      IF TYPE[DI] = I                                     GRA          887          I
          -FCC0448
 GRA                EQ     ERC1                                                            GRA          888          I
          -FCC0448
 GRA                                                                                       GRA          889          I
          -FCC0448
 GRA       RS0      SA3    A3-2        R1P = DI - 2                                        GRA          890          I
          -FCC0448
 GRA                UX6    B2,X3                                                           GRA          891          I
          -FCC0448
 GRA                LX3    -R1.RJP                                                         GRA          892          I
          -FCC0448
 GRA                BX1    "RN"X3      R = RJ[R1P]                                         GRA          893          I
          -FCC0448
 GRA                SA4    "TB"+X1     LI = TB + R                                         GRA          894          I
          -FCC0448
 GRA                ZR     X4,ERC1     IF [LI] = 0   */ PRED NOT IN *RCT*                  GRA          895          I
          -FCC0448
 GRA                SX6    B2-OC.SA                                                        GRA          896          I
          -FCC0448
 GRA                ZR     X6,RS1      IF OC[R1P] = OC.SA                                  GRA          897          I
          -FCC0448
 GRA                SX6    B2-OC.XMT                                                       GRA          898          I
          -FCC0448
 GRA                NZ     X6,ERC1     IF OC[R1P] " OC.XMT                                 GRA          899          I
          -FCC0448
 GRA                                                                                       GRA          900          I
          -FCC0448
 GRA       RS1      SA3    B5+X4       CAW = RCT([LI])                                     GRA          901          I
          -FCC0448
 GRA                RJ     FCP         I = FCP(R1)   */ RCT ORD OF PRED                    FCC0448       69     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3054    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                ZR     X4,ERC1     IF I = 0      */ PRED NOT A CANIDATE                FCC0448       70     A     
 GRA                                                                                       FCC0448       71     A     
 GRA                SA3    B5+X4       CAW = RCT(I)                                        FCC0448       72     A     
 GRA                LX3    59-CA.RAP                                                       GRA          902     A     
 GRA                MI     X3,RS9      IF RA[CAW]    */ CANIDATE ASSIGNED                  GRA          903     A     
 GRA       RS       SPACE  2,14                                                            GRA          904     A     
 GRA      *         MOVE THE *RS* AND ITS PRED IF THE *CAIH* IN THE *RS* MATCHS            GRA          905     A     
 GRA      *         THE *CAIH* IN THE *LD* OR *RS* IS INVARIANT IN BOTH LOOPS.             GRA          906     A     
 GRA                                                                                       GRA          907     A     
 GRA                SA3    A5+B1       R2 = R1 + 1;  R2W = [R2]                            GRA          908     A     
 GRA                LX5    -SO.INVP                                                        GRA          909     A     
 GRA                ZR     X3,RS2      IF R2W = 0    */ NO *CAIH* IN *RS*                  GRA          910     A     
 GRA                SA2    A4-2        R2P = LI - 2                                        GRA          911     A     
 GRA                BX6    X2-X3                                                           GRA          912     A     
 GRA                NZ     X6,RS2      IF[R2P] = R2W                                       GRA          913          I
          -FCC0414
 GRA                NZ     X6,RS2      IF [R2P] " R2W                                      FCC0414        4          I
          -FCC1770X 
 GRA                                                                                       GRA          914          I
          -FCC1770X 
 GRA                SA2    B5+X4       CI = RCT([LI])                                      GRA          915          I
          -FCC1770X 
 GRA                LX2    59-CA.VCP                                                       GRA          916          I
          -FCC1770X 
 GRA                SA2    B5+X4       CI = RCT([LI])                                      FCC1770X       6     A     
 GRA                ZR     X6,RS1      IF [R2P] = R2W  */ SAME IH"S                        FCC1770X       7     A     
 GRA                                                                                       FCC1770X       8     A     
 GRA      *         DO NOT MOVE *RS* PREDECESSOR IS  LD FP AND *AC*                        FCC1770X       9     A     
 GRA                                                                                       FCC1770X      10     A     
 GRA                LX2    59-CA.FPP                                                       FCC1770X      11     A     
 GRA                PL     X2,RS2      IF ^FP[CI]                                          FCC1770X      12     A     
 GRA                LX2    CA.FPP-CA.ACP                                                   FCC1770X      13     A     
 GRA                PL     X2,RS2      IF ^AC[CI]                                          FCC1770X      14     A     
 GRA                EQ     ERC1                                                            FCC1770X      15     A     
 GRA                                                                                       FCC1770X      16     A     
 GRA       RS1      LX2    59-CA.VCP                                                       FCC1770X      17     A     
 GRA                MI     X2,RS3      IF VC[CI]     */ NO INTERFERENCE IN LOOPS           GRA          917     A     
 GRA                EQ     ERC1                                                            GRA          918     A     
 GRA                                                                                       GRA          919     A     
 GRA       RS2      MX6    -2                                                              GRA          920     A     
 GRA                BX2    X6+X5                                                           GRA          921     A     
 GRA                NZ     X2,RS9      IF ^( INV[R1] & INVC[R1] )                          GRA          922     A     
 GRA                                                                                       GRA          923     A     
 GRA                SA1    A5-4        R1P = R1 - 4                                        GRA          924     A     
 GRA                SA2    A1+B1       R2P = R1P + 1                                       GRA          925     A     
 GRA                UX6    B2,X1                                                           GRA          926     A     
 GRA                SX3    B2-OC.STT                                                       GRA          927     A     
 GRA                NZ     X3,RS3      IF OC[R1P] " OC.STT                                 GRA          928     A     
 GRA                SX6    X2                                                              FCC2074        5     A     
 GRA                LX2    -IH.RFP                                                         GRA          929     A     
 GRA                BX1    "RN"X2      R = RF[R2P]                                         GRA          930     A     
 GRA                ZR     X1,RS3      IF R = 0      */ NO PREDECESSOR                     GRA          931     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3055    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       GRA          932     A     
 GRA                SA2    "TB"+X1     LIP = TB + R;  K = CO[LI]                           GRA          933     A     
 GRA                SA3    A5-B1       LI = R1 - 1;  J = CO[LI]                            GRA          934     A     
 GRA                ZR     X2,ERC1     IF K = 0      */ PRED NOT IN *RCT*                  GRA          935          I
          -FCC2074
 GRA                LX3    RA.R3P                                                          GRA          936          I
          -FCC2074
 GRA                SA1    B5+X2       CK = RCT(K)                                         FCC2074        6     A     
 GRA                ZR     X6,RS2A     IF IH[R2P] = 0  */ NO IH                            FCC2074        7     A     
 GRA                BX6    X1                                                              FCC2074        8     A     
 GRA                LX6    59-CA.VCP                                                       FCC2074        9     A     
 GRA                PL     X6,ERC1     IF ^VC[CK]    */ FP AND INTERFERENCE                FCC2074       10     A     
 GRA                                                                                       FCC2074       11     A     
 GRA       RS2A     LX3    RA.R3P                                                          FCC2074       12     A     
 GRA                BX6    X2+X3       (R1,R3)RAT(REGN) = (J,K)                            GRA          937          I
          -FCC1014
 GRA                BX6    X2+X3       (R1,R3)RAT(REGN) = (K,J)                            FCC1014       35     A     
 GRA                SA6    RAT+X7                                                          GRA          938     A     
 GRA                SX3    B1                                                              GRA          939     A     
 GRA                SA1    B5+X2             CK = RCT(K)                                   GRA          940          I
          -FCC2074
 GRA                LX3    CA.SUSEP                                                        GRA          941     A     
 GRA                IX6    X1-X3       SUSE[CK] = SUSE[CK] - 1                             GRA          942     A     
 GRA                SA6    A1                                                              GRA          943     A     
 GRA                SB2    X1-2                                                            FCC1014       36     A     
 GRA                NZ     B2,RS3      IF UDI[CK] " 1                                      FCC1014       37     A     
 GRA                LX1    59-CA.VCP                                                       FCC1014       38     A     
 GRA                PL     X1,RS3      IF ^VC[CK]                                          FCC1014       39     A     
 GRA                SA1    A1+B1       C2K = RCT(K+1)                                      FCC1014       40     A     
 GRA                LX1    -IH.RFP                                                         FCC1014       41     A     
 GRA                SB2    X1                                                              FCC1014       42     A     
 GRA                NE     B2,B1,RS3   IF RF[C2K] " 1  */ ^ A0                             FCC1014       43     A     
 GRA                                                                                       FCC1014       44     A     
 GRA      *         STT  RI,,FPIH  EXPANDED BY *ESR*, CHANGE IT BACK TO NON                FCC1014       45     A     
 GRA      *         EXPANDED FORM IN *RCT* SO WE MAY USE IT AS A BASE ADDRESS              FCC1014       46     A     
 GRA      *         FOR OTHER CANDIDATES.                                                  FCC1014       47     A     
 GRA                                                                                       FCC1014       48     A     
 GRA                SA3    A5-B1       J = CO[LI]                                          FCC1014       49     A     
 GRA                LX1    IH.RFP-IH.CAP                                                   FCC1014       50     A     
 GRA                SX1    X1+2        IH = CA[C2K] + 2                                    FCC1014       51     A     
 GRA                SB2    X3+B1                                                           FCC1014       52     A     
 GRA                SA3    B5+B2       C2J = RCT(J+1)                                      FCC1014       53     A     
 GRA                BX6    X1+X3                                                           FCC1014       54     A     
 GRA                MX1    -IH.RFP                                                         FCC1014       55     A     
 GRA                BX6    -X1*X6      RCT(J+1) = IHW(0,CA[C2J],IH)                        FCC1014       56     A     
 GRA                SA6    A3                                                              FCC1014       57     A     
 GRA                MX6    0                                                               FCC1014       58     A     
 GRA                SA6    RAT+X7      RAT(REGN) = 0                                       FCC1014       59     A     
 GRA       RS       SPACE  1,10                                                            GRA          944     A     
 GRA      *         SETUP *RCT* AND *RAT* TO MARK THE CANIDATE AS ASSIGNED                 GRA          945     A     
 GRA      *         TO A REGISTER IN THIS LOOP.                                            GRA          946     A     
 GRA                                                                                       GRA          947     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3056    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA       RS3      SA2    B5+X4       J = CO[LI];  CI = RCT(J)                            GRA          948     A     
 GRA                SA3    A2+2                                                            GRA          949     A     
 GRA                MX1    2                                                               GRA          950     A     
 GRA                LX1    2+CA.RAFP   (RA,IRA)RCT(J) = 1                                  GRA          951     A     
 GRA                BX6    X1+X2                                                           GRA          952     A     
 GRA                SA6    A2                                                              GRA          953     A     
 GRA                SB2    X7-8                                                            GRA          954     A     
 GRA                LX7    CC.REG1P                                                        GRA          955     A     
 GRA                BX6    X3+X7       REG1[RCT(J+2)] = REGN                               GRA          956     A     
 GRA                SX1    2S6                                                             GRA          957          I
          -FCC1014
 GRA                BX6    X1+X6       MIT[RCT(J+2)] = 2  */ IN CASE J IS AN *AC*          GRA          958          I
          -FCC1014
 GRA                LX2    -CA.ACP                                                         FCC1014       60     A     
 GRA                SX1    B1                                                              FCC1014       61     A     
 GRA                BX1    X1*X2                                                           FCC1014       62     A     
 GRA                LX1    CC.MITP+1                                                       FCC1014       63     A     
 GRA                BX6    X1+X6       MIT[RCT(J+2)] = 2*AC[CI]                            FCC1014       64     A     
 GRA                SA6    A3                                                              GRA          959     A     
 GRA                LX7    -CC.REG1P                                                       GRA          960     A     
 GRA                SX6    X4                                                              GRA          961     A     
 GRA                SA6    A5+3        [R1+3] = J                                          GRA          962     A     
 GRA                SA1    RAT+X7                                                          GRA          963     A     
 GRA                NZ     X1,RS4      IF RAT(REGN) " 0  */ STT CASE                       GRA          964     A     
 GRA                SA6    A1+         RAT(REGN) = J                                       GRA          965     A     
 GRA                                                                                       GRA          966     A     
 GRA       RS4      PL     B2,RS5      IF REGN > 7                                         GRA          967     A     
 GRA                                                                                       GRA          968     A     
 GRA                SA7    FBA         FBA = REGN    */ INIDCATE FINAL B-ASSIGNMEN         GRA          969     A     
 GRA                EQ     ERC2                                                            GRA          970     A     
 GRA                                                                                       GRA          971     A     
 GRA       RS5      SA1    NXC                                                             GRA          972     A     
 GRA                SA6    XCT+X1      XCT(NXC) = J                                        GRA          973     A     
 GRA                SX7    X1+B1                                                           GRA          974     A     
 GRA                SA7    A1          NXC = NXC + 1                                       GRA          975     A     
 GRA                EQ     ERC2                                                            GRA          976     A     
 GRA                                                                                       GRA          977     A     
 GRA      *         CANNOT MOVE ASSIGNMENT, MARK PRED AS *EU*                              GRA          978          I
          -FCC2056
 GRA                                                                                       GRA          979          I
          -FCC2056
 GRA       RS9      SA4    A5-B1       LI = R1 - 1;  I = CO[LI]                            GRA          980          I
          -FCC0448  -FCC2056
 GRA       RS9      RJ     FCP         I = FCP(I)                                          FCC0448       73          I
          -FCC2056
 GRA                ZR     X4,ERC1     IF I = 0                                            GRA          981          I
          -FCC2056
 GRA                SA2    B5+X4                                                           GRA          982          I
          -FCC2056
 GRA                SX1    B1                                                              GRA          983          I
          -FCC2056
 GRA                LX1    CA.EUP                                                          GRA          984          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3057    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
          -FCC2056
 GRA                BX6    X1+X2       EU[RCT(I)] = 1                                      GRA          985          I
          -FCC2056
 GRA                SA6    A2                                                              GRA          986          I
          -FCC2056
 GRA                EQ     ERC1                                                            GRA          987          I
          -FCC2056
 GRA       RS9      EQU    ERC1        MARKED AS *EU* IN DUM                               FCC2056        6     A     
 GRA       FCP      SPACE  3,14                                                            FCC0448       74     A     
 GRA      **        FCP - FIND CANIDATE PREDECESSOR                                        FCC0448       75     A     
 GRA      *                                                                                FCC0448       76     A     
 GRA      *         ENTRY  (A5) = R1 , OF AN *RS* INSTRUCTION                              FCC0448       77     A     
 GRA      *                                                                                FCC0448       78     A     
 GRA      *         EXIT   (X4) = I , RCT ORDINAL OF CANIDATE                              FCC0448       79     A     
 GRA                                                                                       FCC0448       80     A     
 GRA       FCP      ROUTINE                                                                FCC0448       81     A     
 GRA                SA4    A5-B1       LI = R1 - 1;  I = [I]                               FCC0448       82     A     
 GRA                SA3    A4-B1       DI = LI - 1                                         FCC0448       83     A     
 GRA                NZ     X4,FCP      IF I " 0      */ IMMEDIATE PRED A CANIDATE          FCC0448       84     A     
 GRA                LX3    58-D.TYP                                                        FCC0448       85     A     
 GRA                MX6    D.TYL                                                           FCC0448       86     A     
 GRA                BX3    X6*X3                                                           FCC0448       87     A     
 GRA                NZ     X3,FCP      IF TYPE[DI] " I  */ NOT POSSIBLE SA/XMT             FCC0448       88     A     
 GRA                                                                                       FCC0448       89     A     
 GRA                SA3    A3-2        R1P = DI - 2                                        FCC0448       90     A     
 GRA                UX6    B2,X3                                                           FCC0448       91     A     
 GRA                LX3    -R1.RJP                                                         FCC0448       92     A     
 GRA                BX6    "RN"X3      R = RJ[R1P]                                         FCC0448       93     A     
 GRA                SA4    "TB"+X6     LI = TB + R;  I = [LI]                              FCC0448       94     A     
 GRA                ZR     X4,FCP      IF I " 0      */ PRED NOT A CANIDATE                FCC0448       95     A     
 GRA                SX6    B2-OC.SA                                                        FCC0448       96     A     
 GRA                ZR     X6,FCP      IF OC[R1P] = OC.SA                                  FCC0448       97     A     
 GRA                SX6    B2-OC.XMT                                                       FCC0448       98     A     
 GRA                ZR     X6,FCP      IF OC[R1P] = OC.XMT                                 FCC0448       99     A     
 GRA                                                                                       FCC0448      100     A     
 GRA                MX4    0           I = 0         */ INDICATE PRED NOT A CANIDA         FCC0448      101     A     
 GRA                EQ     FCP                                                             FCC0448      102     A     
 GRA       SCT      TITLE  SCT - SEARCH CANIDATE TABLE, ENTER UPDATE ENTRY                 GRA          988     A     
 GRA      **        SCT - SEARCH CANIDATE TABLE FOR MATCH OF KEY AND MAKE NEW              GRA          989     A     
 GRA      *         ENTRY OR UPDATE OLD ONE.                                               GRA          990     A     
 GRA      *                                                                                GRA          991     A     
 GRA      *         ENTRY  (X1) = CPW , CANIDATE PROPERTY WORD                             GRA          992     A     
 GRA      *                (X4) = R , RF OF INDEXED REFERENCE                              GRA          993     A     
 GRA      *                (X6) = C2W , CANIDATE KEY                                       GRA          994     A     
 GRA      *                (X7) = CCW , THIRD WORD OF ENTRY                                GRA          995     A     
 GRA      *                (A5) = R1 , INSTRUCTION ADDRESS                                 GRA          996     A     
 GRA      *                (B3) = 3                                                        GRA          997     A     
 GRA      *                (B5) = CO , O.RCT                                               GRA          998     A     
 GRA      *                (B6) = CL , LWA+1 OF TABLE                                      GRA          999     A     
 GRA      *                                                                                GRA         1000     A     
 GRA      *         EXIT   (A6,X6) = UPDATED *CA* WORD OF ENTRY                            GRA         1001     A     
 GRA      *                CANIDATE ENTERED, USES, NOCC BUMPED, ETC                        GRA         1002     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3058    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      *                                                                                GRA         1003     A     
 GRA      *         USES   B - 2, A - 1, 2, 3, 4  X - 1, 2, 3, 4, 5, 6, 7                  GRA         1004     A     
 GRA                                                                                       GRA         1005     A     
 GRA       SCT0     SX7    0                                                               GRA         1006     A     
 GRA                SA7    A5+3        [R1+3] = 0                                          GRA         1007     A     
 GRA                                                                                       GRA         1008     A     
 GRA       SCT      ROUTINE                                                                GRA         1009     A     
 GRA                SB2    B5+B3       SA = CO + 3   */ SEARCH ADDRESS                     GRA         1010     A     
 GRA                MX2    -CC.H2L                                                         GRA         1011          I
          -FCC1014
 GRA                ZR     X4,SCT1     IF R = 0                                            GRA         1012     A     
 GRA                SA4    "TB"+X4     LI = TB + R;  R = [LI]  */ SUBST RCT INDX           GRA         1013     A     
 GRA                ZR     X4,SCT0     IF R = 0      */ OPERAND NOT IN RCT                 GRA         1014          I
          -FCC1014
 GRA                SA3    B5+X4                                                           GRA         1015          I
          -FCC1014
 GRA                LX3    59-CA.VCP                                                       GRA         1016          I
          -FCC1014
 GRA                PL     X3,SCT0     IF ^VC[RCT(R)]                                      GRA         1017          I
          -FCC1014
 GRA                SB2    B2+X4       SA = SA + R                                         GRA         1018          I
          -FCC1014
 GRA                ZR     X4,SCT0A    IF R = 0      */ OPERAND NOT IN *RCT*               FCC1014       65     A     
 GRA                SA3    B5+X4                                                           FCC1014       66     A     
 GRA                LX3    59-CA.VCP                                                       FCC1014       67     A     
 GRA                MI     X3,SCT0B    IF VC[RCT(R)]                                       FCC1014       68     A     
 GRA                MX4    0           R = 0                                               FCC1014       69     A     
 GRA       SCT0A    SX3    X6+                                                             FCC1014       70     A     
 GRA                ZR     X3,SCT0     IF IH[C2W] = 0  */ *AC* AND NO *IH*                 FCC1014       71     A     
 GRA                                                                                       FCC1014       72     A     
 GRA                SX3    4S6                                                             FCC1014       73     A     
 GRA                BX7    X3+X7       MIT[CCW] = 4  */ RF NOT IN RCT CASE                 FCC1014       74     A     
 GRA                                                                                       FCC1014       75     A     
 GRA       SCT0B    SB2    B2+X4       SA = SA + R                                         FCC1014       76     A     
 GRA                LX4    IH.RFP                                                          GRA         1019     A     
 GRA                BX6    X4+X6       RF[R2] = R                                          GRA         1020     A     
 GRA                                                                                       GRA         1021     A     
 GRA      *         SET SEARCH TERMINATOR, SEARCH FOR PREVIOUS OCCURANCES                  GRA         1022     A     
 GRA                                                                                       GRA         1023     A     
 GRA       SCT1     SA6    B6+B1       [CL+1] = C2W                                        GRA         1024     A     
 GRA                SA7    A6+B1       [CL+2] = CCW                                        GRA         1025     A     
 GRA                LX2    CC.H2P                                                          GRA         1026          I
          -FCC1014
 GRA                SA4    B2+B1       CI = SA + 1;  KEY = [CI]                            GRA         1027          I
          -FCC0594
 GRA                SA3    A5+B3       LI = R1 + 3                                         FCC0594        6     A     
 GRA                SA4    B2+1        CI = SA + 1;  KEY = [CI]  */ C2 WORD                FCC0594        7          I
          -FCC1014
 GRA                SA4    B2+B1       CI = SA + 1;  KEY = [CI]  */ C2 WORD                FCC1014       77     A     
 GRA                SA2    SCTA                                                            FCC1014       78     A     
 GRA                BX5    X7                                                              FCC0594        8     A     
 GRA                BX1    X3+X1       CPW = CPW ! [LI]  */ SET CT, USAGE                  FCC0594        9     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3059    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                LX7    X1                                                              FCC0594       10     A     
 GRA                SA7    B6+         [CL] = CPW    */ SKEL CA WORD                       FCC0594       11     A     
 GRA                BX7    X5                                                              FCC0594       12     A     
 GRA                                                                                       GRA         1028     A     
 GRA       SCT2     BX5    X4-X6       DIFF = C2W - KEY                                    GRA         1029     A     
 GRA                SA4    A4+B3       CI = CI + 3;  KEY = [CI]                            GRA         1030     A     
 GRA                NZ     X5,SCT2     IF DIFF " 0                                         GRA         1031     A     
 GRA                                                                                       GRA         1032     A     
 GRA                SA3    A4-2        CJ = CI - 2                                         GRA         1033     A     
 GRA                BX4    X3-X7                                                           GRA         1034          I
          -FCC0594
 GRA                BX5    -X2*X4                                                          GRA         1035          I
          -FCC0594
 GRA                NZ     X5,SCT2     IF H2[CJ] " H2[CCW]                                 GRA         1036          I
          -FCC0594
 GRA                BX5    X3-X7                                                           FCC0594       13     A     
 GRA                BX5    -X2*X5                                                          FCC0594       14          I
          -FCC1014
 GRA                NZ     X5,SCT2     IF H2[CJ] " H2[CCW]                                 FCC0594       15          I
          -FCC1014
 GRA                BX5    X2*X5                                                           FCC1014       79     A     
 GRA                NZ     X5,SCT2     IF (H2,MIT)[CJ] " (H2,MIT)[CCW]                     FCC1014       80     A     
 GRA                SA3    A3-2        CJ = CJ - 2   */ CA WORD                            FCC0594       16     A     
 GRA                BX5    X3-X1                                                           FCC0594       17     A     
 GRA                MX3    -CA.CTL                                                         FCC0594       18     A     
 GRA                LX5    -CA.CTP                                                         FCC0594       19     A     
 GRA                BX3    -X3*X5                                                          FCC0594       20     A     
 GRA                NZ     X3,SCT2     IF CT[CJ] " CT[CPW]  */ NOT SAME TYPE               FCC0594       21     A     
 GRA                                                                                       GRA         1037     A     
 GRA      *         CHECK RESULTS OF SEARCH                                                GRA         1038     A     
 GRA                                                                                       GRA         1039     A     
 GRA                SB2    A4-4        EA = CI - 4   */ ENTRY ADDRESS                      GRA         1040     A     
 GRA                LT     B2,B6,SCT3  IF EA < CL    */ ENTRY IN TABLE                     GRA         1041     A     
 GRA                                                                                       GRA         1042     A     
 GRA                SA4    A5+2        DI = R1 + 2                                         GRA         1043     A     
 GRA                SX2    B1                                                              GRA         1044     A     
 GRA                SB6    B6+B3       CL = CL + 3                                         GRA         1045     A     
 GRA                LX2    CA.FPP                                                          GRA         1046     A     
 GRA                LX4    CA.FPP-D.FPP                                                    GRA         1047     A     
 GRA                BX3    X2*X4                                                           GRA         1048     A     
 GRA                BX2    X3+X1       CAW = CPW ! FP[DI]                                  GRA         1049     A     
 GRA                EQ     SCT4                                                            GRA         1050     A     
 GRA       SCT      SPACE  1,10                                                            GRA         1051     A     
 GRA       SCT3     SA3    B2+                                                             GRA         1052          I
          -FCC0656
 GRA       SCT3     SA3    B2                                                              FCC0656       54     A     
 GRA                MX5    -CA.UDIL                                                        FCC0656       55     A     
 GRA                BX1    X5*X1       UDI[CPW] = 0                                        FCC0656       56     A     
 GRA                BX2    X1+X3       CAW = CPW ! [EA]                                    GRA         1053     A     
 GRA       SCT      SPACE  2,10                                                            GRA         1054     A     
 GRA      *         UPDATE FIELDS IN ENTRY, LINK INSTRUCTION TO *RCT*                      GRA         1055     A     
 GRA                                                                                       GRA         1056     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3060    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA       SCT4     SA3    A5+B3       LI = R1 + 3                                         GRA         1057          I
          -FCC0594
 GRA                SA1    APF                                                             GRA         1058          I
          -FCC0594
 GRA                BX2    X2+X3       CAW = CAW ! [LI]                                    GRA         1059          I
          -FCC0594
 GRA                SX5    B1                                                              GRA         1060          I
          -FCC0594
 GRA                SA4    A3-B1       DI = LI - 1                                         GRA         1061          I
          -FCC0594
 GRA       SCT4     SA1    APF                                                             FCC0594       22     A     
 GRA                SA4    A5+2        DI = R1 + 2                                         FCC0594       23     A     
 GRA                SX5    B1                                                              FCC0594       24     A     
 GRA                MX3    -D.USESL                                                        GRA         1062     A     
 GRA                BX2    X1+X2       APLN[CAW] = APF ! APLN[CAW]                         GRA         1063     A     
 GRA                LX4    -D.USESP                                                        GRA         1064     A     
 GRA                LX5    CA.NOCCP    NOCC[CAW] = NOCC[CAW] + 1                           GRA         1065     A     
 GRA                BX1    -X3*X4                                                          GRA         1066     A     
 GRA                LX1    CA.SUSEP                                                        GRA         1067     A     
 GRA                BX5    X1+X5       SUSE[CAW] = SUSE[CAW] + USES[DI]                    GRA         1068     A     
 GRA                IX6    X2+X5                                                           GRA         1069     A     
 GRA                LX4    D.USESP+59-D.INCP                                               GRA         1070     A     
 GRA                SA6    B2          [EA] = CAW                                          GRA         1071     A     
 GRA                SX7    B2-B5                                                           GRA         1072     A     
 GRA                SA7    A5+B3       [LI] = EA - CO  */ SET INDEX TO *RCT*               GRA         1073     A     
 GRA                PL     X4,SCT      IF ^INC[DI]                                         GRA         1074     A     
 GRA                LX4    D.INCP-D.STP                                                    GRA         1075     A     
 GRA                PL     X4,SCT      IF ^ST[DI]                                          GRA         1076     A     
 GRA                                                                                       GRA         1077     A     
 GRA      *         INCREMENT *ST*, ADD USES OF INC TO CANIDATE ENTRY                      GRA         1078     A     
 GRA                                                                                       GRA         1079     A     
 GRA                LX4    1+D.STP-D.XUP                                                   FCC0646       16     A     
 GRA                SX2    B1                                                              FCC0646       17     A     
 GRA                BX3    X2*X4                                                           FCC0646       18     A     
 GRA                LX3    CA.EUP      EU[CAW] = XU[DI]  */ FORCE *EU* IF *XU*             FCC0646       19     A     
 GRA                BX6    X3+X6                                                           FCC0646       20     A     
 GRA                SA5    A5                                                              GRA         1080     A     
 GRA                SB2    "TB"-B1                                                         GRA         1081     A     
 GRA                BX7    "RN"X5                                                          GRA         1082     A     
 GRA                SA4    B2+X7       DIP = TB-1 + RI[R1]                                 GRA         1083     A     
 GRA                BX3    -X3*X4                                                          GRA         1084     A     
 GRA                SX2    X3-1                                                            GRA         1085     A     
 GRA                LX2    CA.SUSEP                                                        GRA         1086     A     
 GRA                IX6    X2+X6       SUSE[CAW] = SUSE[CAW] + USES[DIP]-1                 GRA         1087     A     
 GRA                SA6    A6                                                              GRA         1088     A     
 GRA                                                                                       GRA         1089     A     
 GRA      *         COLLECT INFORMATION ABOUT THE INCREMENT VALUE OF THE *RD*              GRA         1090     A     
 GRA                                                                                       GRA         1091     A     
 GRA                SA3    A6+2        CCW = EA + 2                                        GRA         1092     A     
 GRA                LX3    59-CC.I1P                                                       GRA         1093     A     
 GRA                SA2    A4+B1       LIP = DIP + 1;  I = CO[LIP]                         GRA         1094     A     
 GRA                PL     X3,SCT5     IF ^I1[CCW]   */ THIS IS THE FIRST INC ST           GRA         1095     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3061    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       GRA         1096     A     
 GRA                SX4    B1                                                              GRA         1097     A     
 GRA                LX4    CC.I2P                                                          GRA         1098     A     
 GRA                LX3    1+CC.I1P                                                        GRA         1099     A     
 GRA                BX7    X4+X3       I2[CCW] = 1   */ INDICATE MORE THAN 1 INC           GRA         1100     A     
 GRA                SA7    A3                                                              GRA         1101     A     
 GRA                BX3    X7                                                              GRA         1102     A     
 GRA                ZR     X2,SCT6     IF I = 0      */ INCOP IS IA/IS                     GRA         1103     A     
 GRA                EQ     SCT                                                             GRA         1104     A     
 GRA                                                                                       GRA         1105     A     
 GRA       SCT5     LX3    1+CC.I1P                                                        GRA         1106     A     
 GRA                ZR     X2,SCT6     IF I = 0      */ INCOP IS IA OR IS                  GRA         1107     A     
 GRA       SCT      SPACE  1,10                                                            GRA         1108     A     
 GRA      *         INCOP IS AN *STT*, SET INC SIGN                                        GRA         1109     A     
 GRA                                                                                       GRA         1110     A     
 GRA                SA1    A4-B1       R2P = DIP - 1                                       GRA         1111     A     
 GRA                LX1    42-IH.CAP         SIGN = IF( CA[R2P] < 377777B )                GRA         1112     A     
 GRA                EQ     SCT10                     THEN 0; ELSE 1                        GRA         1113     A     
 GRA                                                                                       GRA         1114     A     
 GRA      *         INCOP IS *IA* OR *IS*                                                  GRA         1115     A     
 GRA                                                                                       GRA         1116     A     
 GRA       SCT6     SA1    A4-2        R1P = DIP - 2                                       GRA         1117     A     
 GRA                UX5    B2,X1                                                           GRA         1118     A     
 GRA                LX5    -R1.RJP                                                         GRA         1119     A     
 GRA                BX7    "RN"X5      R = RJ[R1]                                          GRA         1120     A     
 GRA                SA2    "TB"+X7     LIP = TB + R;  I = CO[LIP]                          GRA         1121     A     
 GRA                SA4    B5+X2       CJP = RCT([LIP])                                    GRA         1122     A     
 GRA                LX4    59-CA.DEFP                                                      GRA         1123     A     
 GRA                PL     X4,SCT7     IF ^DEF[CJP]  */ THIS IS THE INC                    GRA         1124     A     
 GRA                LX5    R1.RJP-R1.RKP                                                   GRA         1125     A     
 GRA                BX7    "RN"X5                                                          GRA         1126     A     
 GRA                SA2    "TB"+X7     LIP = TB + RK[R1];  I = CO[LIP]                     GRA         1127     A     
 GRA                SX1    B2-OC.IA                                                        GRA         1128     A     
 GRA                LX1    59          SIGN = IF( OC[R1P] = OC.IA ) THEN 0 ELSE 1          GRA         1129     A     
 GRA                                                                                       GRA         1130     A     
 GRA      *         ADD ENTRY TO *IA* LIST FOR CANIDATE AND INC VALUE                      GRA         1131     A     
 GRA                                                                                       GRA         1132     A     
 GRA       SCT7     SA4    IAI                                                             GRA         1133     A     
 GRA                ZR     X2,SCT      IF I = 0      */ INC VALUE NOT A CANIDATE           FCC0414        5          I
          -FCC1039
 GRA                SX7    X4-77B                                                          GRA         1134          I
          -FCC1039
 GRA                MI     X7,SCT8     IF IAI < 77B  */ NO OVERFLOW                        GRA         1135          I
          -FCC1039
 GRA                SX7    A6-B5       J = EA - C0   */ SET CANIDATE ORDINAL               FCC1039       18     A     
 GRA                SA7    A1+B3       [R1+3] = J    */ IN LINK WORD OF IA/IS              FCC1039       19     A     
 GRA                ZR     X2,SCT12    IF I = 0      */ INC VALUE NOT A CANIDATE           FCC1039       20     A     
 GRA                SX5    X4-77B                                                          FCC1039       21     A     
 GRA                MI     X5,SCT8     IF IAI < 77B  */ NO OVERFLOW                        FCC1039       22     A     
 GRA                                                                                       GRA         1136     A     
 GRA                SA4    B5+X2                                                           GRA         1137     A     
 GRA                SX7    B1                                                              GRA         1138     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3062    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                LX7    CA.EUP                                                          GRA         1139     A     
 GRA                BX7    X7+X4       EU[RCT(I)] = 1                                      GRA         1140     A     
 GRA                SA7    A4                                                              GRA         1141     A     
 GRA                EQ     SCT9                                                            GRA         1142     A     
 GRA                                                                                       GRA         1143     A     
 GRA       SCT8     SX7    A6-B5       J = EA - C0   */ CANIDATE ORDINAL                   GRA         1144          I
          -FCC1039
 GRA                SA7    A1+B3       [R1P+3] = J   */ SET CANIDATE ORD                   GRA         1145          I
          -FCC1039
 GRA                LX2    18                                                              GRA         1146          I
          -FCC1039
 GRA       SCT8     LX2    18                                                              FCC1039       23     A     
 GRA                BX7    X2+X7                                                           GRA         1147     A     
 GRA                SA7    SCR+X4      SCR(IAI) = SHIFT(I,18) ! J                          GRA         1148     A     
 GRA                LX2    -18                                                             GRA         1149     A     
 GRA                SX7    X4+B1       IAI = IAI + 1                                       GRA         1150     A     
 GRA                SA7    A4                                                              GRA         1151     A     
 GRA                                                                                       GRA         1152     A     
 GRA       SCT9     BX4    X3                                                              GRA         1153     A     
 GRA                LX4    59-CC.I2P                                                       GRA         1154     A     
 GRA                MI     X4,SCT      IF I2[CCW]                                          GRA         1155     A     
 GRA                                                                                       GRA         1156     A     
 GRA      *         SAVE *INC* INFORMATION IN *CCW* OF CANIDATE ENTRY                      GRA         1157     A     
 GRA                                                                                       GRA         1158     A     
 GRA       SCT10    MX4    1                                                               GRA         1159     A     
 GRA                BX1    X4*X1       IM[CCW] = SIGN                                      GRA         1160     A     
 GRA                LX1    1+CC.IMP                                                        GRA         1161     A     
 GRA                LX4    1+CC.I1P    I1[CCW] = 1                                         GRA         1162     A     
 GRA                BX4    X1+X4                                                           GRA         1163     A     
 GRA                SA1    APF                                                             FCC0603       17     A     
 GRA                LX2    CC.INCP                                                         GRA         1164     A     
 GRA                IX3    X2+X3       INC[CCW] = I                                        GRA         1165     A     
 GRA                BX7    X4+X3                                                           GRA         1166     A     
 GRA                SA7    A3                                                              GRA         1167          I
          -FCC0603
 GRA                NZ     X1,SCT11    IF APF " 0    */ INCR UNCONDITINALLY EXEC           FCC0603       18     A     
 GRA                SX4    B1                                                              FCC0603       19     A     
 GRA                LX4    CC.I2P                                                          FCC0603       20     A     
 GRA                BX7    X4+X7       I2[CCW] = 1   */ INHIBIT PREFETCHING                FCC0603       21     A     
 GRA       SCT11    SA7    A3                                                              FCC0603       22     A     
 GRA                EQ     SCT                                                             GRA         1168     A     
 GRA                                                                                       FCC1039       24     A     
 GRA      *         INC VALUE NOT A CANDIDATE ( LVL2 / LU ) , SET *EU* FOR INCR            FCC1039       25     A     
 GRA                                                                                       FCC1039       26     A     
 GRA       SCT12    SX7    B1                                                              FCC1039       27     A     
 GRA                LX7    CA.EUP                                                          FCC1039       28     A     
 GRA                BX6    X6+X7       EU[RCT(J)] = 1                                      FCC1039       29     A     
 GRA                SA6    A6                                                              FCC1039       30     A     
 GRA                EQ     SCT                                                             FCC1039       31     A     
 GRA                                                                                       GRA         1169     A     
 GRA       SCTA     BFMW   CC,(H2,MIT)                                                     FCC1014       81     A     
 GRA                                                                                       FCC1014       82     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3063    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                QUAL   *                                                               GRA         1170     A     
 GRA       ERC      EQU    /ERC/ERC                                                        GRA         1171     A     
 GRA       DUM      TITLE  DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                     GRA         1172     A     
 GRA      **        DUM - DETERMINE USEAGE MODE AND CANIDATE TYPE OF INSTRUCTIONS.         GRA         1173     A     
 GRA      *                                                                                GRA         1174     A     
 GRA      *         A BACKWARD SCAN OVER THE BLOCKS TO SET THE USEAGE MODE BITS            GRA         1175     A     
 GRA      *         ( EU, RF, TU, LU ) AND THE CANIDATE TYPES OF THE MEMORY REFS.          GRA         1176     A     
 GRA      *                                                                                GRA         1177     A     
 GRA      *         NOTE THAT THE *IST* BIT IN *UDT* IS ON IF A VARIABLE WAS               GRA         1178     A     
 GRA      *         REFERENCED IN A INNERMOST LOOP OR THEIR WAS AN INTERFERING             GRA         1179     A     
 GRA      *         STORE INTO THE CLASS BASE IN THIS LOOP.                                GRA         1180     A     
 GRA      *                                                                                GRA         1181     A     
 GRA      *         EXIT   (A0) = NC , MAX NUMBER OF REGISTER CANIDATES                    GRA         1182     A     
 GRA                                                                                       GRA         1183     A     
 GRA       DUMA     BFMW   CA,(EU,RF)                                                      GRA         1184     A     
 GRA       DUMB     BFMW   CA,(EU,^RD)                                                     GRA         1185     A     
 GRA       DUMC     BFMW   CA,(EU,RF,TU)                                                   GRA         1186          I
          -FCC0735
 GRA       DUMC     BFMW   CA,(EU,TU)                                                      FCC0735        6     A     
 GRA                                                                                       GRA         1187     A     
 GRA                QUAL   DUM                                                             GRA         1188     A     
 GRA                                                                                       GRA         1189     A     
 GRA                PROCESS BOS                                                            GRA         1190     A     
 GRA                SX6    A0+         BSW = NC                                            GRA         1191     A     
 GRA                SA6    =XBSW                                                           GRA         1192     A     
 GRA       DUM      ROUTINE                                                                GRA         1193     A     
 GRA                RJ     FBM         FIND BOUNDARY MARKERS                               FCC2124        6     A     
 GRA                SA2    O.UDT                                                           GRA         1194     A     
 GRA                SA4    UVA                                                             GRA         1195     A     
 GRA                SB4    59-UD.ISTP                                                      GRA         1196     A     
 GRA                S"TB"  X5+3        TB = O.SEQ + 3                                      GRA         1197     A     
 GRA                SB5    X4                                                              GRA         1198     A     
 GRA                SB6    X2                                                              GRA         1199     A     
 GRA                SA3    X5+B1       R2 = O.SEQ + 1 */ R2 OF *BOS*                       GRA         1200     A     
 GRA                LX3    -R2.TXTLP                                                       GRA         1201     A     
 GRA                IX6    X5+X3                                                           GRA         1202     A     
 GRA                MX7    D.TYL                                                           GRA         1203     A     
 GRA                SA0    -B1         NC = -1       */ N. CANIDATES                       GRA         1204     A     
 GRA                LX7    D.TYL+D.TYP                                                     GRA         1205     A     
 GRA                SA5    X6-4        R1 = O.SEQ + TXTL[R2] - 4                           GRA         1206     A     
 GRA                                                                                       GRA         1207     A     
 GRA      *         SHORT CONSTANTS, BUMP NUMBER OF CANIDATES                              GRA         1208     A     
 GRA                                                                                       GRA         1209     A     
 GRA                PROCESS (S,FMA,CLR)                                                    GRA         1210     A     
 GRA                SA0    A0+1        NC = NC + 1                                         GRA         1211     A     
 GRA                                                                                       GRA         1212     A     
 GRA      *         ADVANCE TO NEXT INSTRUCTION, JUMP TO OPCODE PROCESSOR                  GRA         1213     A     
 GRA                                                                                       GRA         1214     A     
 GRA       DUM1     SA4    A5-2        DI = R1 - 2                                         GRA         1215     A     
 GRA                SA5    A4-2        R1 = DI - 2                                         GRA         1216     A     
 GRA                BX3    X7*X4                                                           GRA         1217     A     
 GRA                UX6    B2,X5                                                           GRA         1218     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3064    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA1    DUM.JT+B2                                                       GRA         1219     A     
 GRA                NZ     X3,DUM2     IF TYPE[DI] " I                                     GRA         1220     A     
 GRA                LX6    -R1.RJP                                                         GRA         1221     A     
 GRA                BX3    "RN"X6                                                          GRA         1222     A     
 GRA                LX6    R1.RJP-R1.RKP                                                   GRA         1223     A     
 GRA                SA2    "TB"+X3     LJ = TB + RJ[R1]                                    GRA         1224     A     
 GRA                BX6    "RN"X6                                                          GRA         1225     A     
 GRA                SA3    "TB"+X6     LK = TB + RK[R1]                                    GRA         1226     A     
 GRA                                                                                       GRA         1227     A     
 GRA       DUM2     SB2    X1                                                              GRA         1228     A     
 GRA                JP     B2          JUMP( [MTT.JT( OC[R1] )] )                          GRA         1229     A     
 GRA       TYI      SPACE  3,14                                                            GRA         1230     A     
 GRA      *         TYI - GENERAL TYPE I INSTRUCTION                                       GRA         1231     A     
 GRA                                                                                       GRA         1232     A     
 GRA       TYI      SX1    B1                                                              GRA         1233     A     
 GRA                LX1    CA.EUP                                                          GRA         1234     A     
 GRA                BX6    X1+X2       EU[LJ] = 1                                          GRA         1235     A     
 GRA                SA6    A2                                                              GRA         1236     A     
 GRA                BX6    X1+X3       EU[LK] = 1                                          GRA         1237     A     
 GRA                SA6    A3                                                              GRA         1238     A     
 GRA                EQ     DUM1                                                            GRA         1239     A     
 GRA       XMT      SPACE  3,8                                                             GRA         1240     A     
 GRA      *         XMT, XMTC - TRANSMIT USEAGE MODE BACK TO OPERAND                       GRA         1241     A     
 GRA                                                                                       GRA         1242     A     
 GRA                PROCESS (XMT,XMTC)                                                     GRA         1243     A     
 GRA                SA1    A4+B1       LI = DI + 1                                         GRA         1244     A     
 GRA                BX6    X1+X2       [LJ] = [LI] ! [LJ]                                  GRA         1245     A     
 GRA                SA6    A2+                                                             GRA         1246     A     
 GRA                EQ     DUM1                                                            GRA         1247     A     
 GRA       SA       SPACE  2                                                               GRA         1248     A     
 GRA      *         SA,SS - INDICATE SHORT USEAGE                                          GRA         1249     A     
 GRA                                                                                       GRA         1250     A     
 GRA                PROCESS (SA,SS)                                                        GRA         1251     A     
 GRA                SA1    DUMA                                                            GRA         1252          I
          -FCC2124
 GRA                BX6    X1+X2       (EU,RF)[LJ] = 1                                     GRA         1253          I
          -FCC2124
 GRA                SA6    A2                                                              GRA         1254          I
          -FCC2124
 GRA                BX6    X1+X3       (EU,RF)[LK] = 1                                     GRA         1255          I
          -FCC2124
 GRA                SA6    A3                                                              GRA         1256          I
          -FCC2124
 GRA                SA1    DUMA        BITS = (EU,RF)                                      FCC2124        7     A     
 GRA                SA4    LBM                                                             FCC2124        8     A     
 GRA                IX6    X4-X4                                                           FCC2124        9     A     
 GRA                PL     X6,SA1      IF RK \ LBM                                         FCC2124       10     A     
 GRA                SX1    B1                                                              FCC2124       11     A     
 GRA                LX1    CA.EUP      BITS = EU                                           FCC2124       12     A     
 GRA       SA1      BX6    X1+X3       BITS[LK] = 1                                        FCC2124       13     A     
 GRA                SA6    A3                                                              FCC2124       14     A     
 GRA                SA1    DUMA        BITS = (EU,RF)                                      FCC2124       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3065    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SX5    A2-"TB"                                                         FCC2124       16     A     
 GRA                IX6    X5-X4                                                           FCC2124       17     A     
 GRA                PL     X6,SA2      IF RJ \ LBM                                         FCC2124       18     A     
 GRA                SX1    B1                                                              FCC2124       19     A     
 GRA                LX1    CA.EUP      BITS = EU                                           FCC2124       20     A     
 GRA       SA2      BX6    X1+X2       BITS[LJ] = 1                                        FCC2124       21     A     
 GRA                SA6    A2                                                              FCC2124       22     A     
 GRA                EQ     DUM1                                                            GRA         1257     A     
 GRA                                                                                       GRA         1258     A     
 GRA      *         TYPE I, B AND X OPERANDS                                               GRA         1259     A     
 GRA                                                                                       GRA         1260     A     
 GRA                PROCESS (ILS,IRS,PK)                                                   GRA         1261     A     
 GRA                SA1    DUMA                                                            GRA         1262          I
          -FCC2124
 GRA                BX6    X1+X2       (RF,EU)[LJ] = 1                                     GRA         1263          I
          -FCC2124
 GRA                SA6    A2                                                              GRA         1264          I
          -FCC2124
 GRA                SA1    DUMA        BITS = (EU,RF)                                      FCC2124       23     A     
 GRA                SA4    LBM                                                             FCC2124       24     A     
 GRA                SX5    A2-"TB"                                                         FCC2124       25     A     
 GRA                IX6    X5-X4                                                           FCC2124       26     A     
 GRA                PL     X6,ILS1     IF RJ \ LBM                                         FCC2124       27     A     
 GRA                SX1    B1                                                              FCC2124       28     A     
 GRA                LX1    CA.EUP      BITS = EU                                           FCC2124       29     A     
 GRA       ILS1     BX6    X1+X2                                                           FCC2124       30     A     
 GRA                SA6    A2          BITS[LJ] = 1                                        FCC2124       31     A     
 GRA                                                                                       GRA         1265     A     
 GRA      *         TYPE I - 1 OPERAND                                                     GRA         1266     A     
 GRA                                                                                       GRA         1267     A     
 GRA                PROCESS (NR,RNZ,UP)                                                    GRA         1268     A     
 GRA                SX1    B1                                                              GRA         1269     A     
 GRA                LX1    CA.EUP                                                          GRA         1270     A     
 GRA                BX6    X1+X3       EU[LK] = 1                                          GRA         1271     A     
 GRA                SA6    A3                                                              GRA         1272     A     
 GRA                EQ     DUM1                                                            GRA         1273     A     
 GRA                                                                                       GRA         1274     A     
 GRA      *         DIRECT READ/WRITE INSTRUCTIONS                                         GRA         1275     A     
 GRA                                                                                       GRA         1276     A     
 GRA                PROCESS DWL                                                            GRA         1277     A     
 GRA                BX6    "RN"X5                                                          GRA         1278     A     
 GRA                SA3    "TB"+X6     LI = TB + RI[R1]                                    GRA         1279     A     
 GRA                SA1    DUMB                                                            GRA         1280     A     
 GRA                BX6    X1+X3       (EU,^RD)[LI] = 1                                    GRA         1281     A     
 GRA                SA6    A3                                                              GRA         1282     A     
 GRA                                                                                       GRA         1283     A     
 GRA                PROCESS DRL                                                            GRA         1284     A     
 GRA                SX1    B1                                                              GRA         1285     A     
 GRA                LX1    CA.EUP                                                          GRA         1286     A     
 GRA                BX6    X1+X2       EU[LJ] = 1                                          GRA         1287     A     
 GRA                SA6    A2                                                              GRA         1288     A     
 GRA                EQ     DUM1                                                            GRA         1289     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3066    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA       IA       SPACE  3,14                                                            GRA         1290     A     
 GRA      *         IA,IS - PROPAGATE *EU,RF,TU* BITS DOWN                                 GRA         1291          I
          -FCC0735
 GRA      *         SET *IA* BIT, SO WE CAN SET THE *EU* BIT LATER IF NECESSARY            GRA         1292          I
          -FCC0735
 GRA                                                                                       GRA         1293          I
          -FCC0735
 GRA                PROCESS (IA,IS)                                                        GRA         1294          I
          -FCC0735
 GRA                SA1    A4+B1       LI = DI + 1                                         GRA         1295          I
          -FCC0735
 GRA                SX5    B1                                                              GRA         1296          I
          -FCC0735
 GRA                LX4    59-D.INCP                                                       GRA         1297          I
          -FCC0735
 GRA                LX5    CA.EUP      BIT = EU                                            GRA         1298          I
          -FCC0735
 GRA                PL     X4,IA1      IF ^INC[DI]   */ NOT AN INCREMENT                   GRA         1299          I
          -FCC0735
 GRA                SX5    0           BIT = 0                                             GRA         1300          I
          -FCC0735
 GRA                                                                                       GRA         1301          I
          -FCC0735
 GRA       IA1      SA4    DUMC                                                            GRA         1302          I
          -FCC0735
 GRA                BX1    X4*X1       UMB = (EU,RF,TU)[LI]                                GRA         1303          I
          -FCC0735
 GRA                SX6    B1                                                              GRA         1304          I
          -FCC0735
 GRA                BX5    X1+X5                                                           GRA         1305          I
          -FCC0735
 GRA                LX6    CA.IAP                                                          GRA         1306          I
          -FCC0735
 GRA                BX5    X6+X5       IA[UMB] = 1                                         GRA         1307          I
          -FCC0735
 GRA                BX6    X5+X2       BIT[LJ] = 1;  (EU,RF,TU)[LJ] = UMB                  GRA         1308          I
          -FCC0735
 GRA                SA6    A2                                                              GRA         1309          I
          -FCC0735
 GRA                BX6    X5+X3       BIT[LK] = 1;  (EU,RF,TU)[LK] = UMB                  GRA         1310          I
          -FCC0735
 GRA                SA6    A3                                                              GRA         1311          I
          -FCC0735
 GRA      *         IA,IS - PROPAGATE EU,TU AND INC[DI]*RF BITS DOWN, IF ^INC              FCC0735        7     A     
 GRA      *         THEN SET *EU*, ELSE SET *IA* BIT, SO CAN SET *EU* LATER IF NEC         FCC0735        8     A     
 GRA                                                                                       FCC0735        9     A     
 GRA                PROCESS (IA,IS)                                                        FCC0735       10     A     
 GRA                SA1    A4+B1       LI = DI + 1                                         FCC0735       11     A     
 GRA                SX5    B1                                                              FCC0735       12     A     
 GRA                LX4    -D.INCP                                                         FCC0735       13     A     
 GRA                BX6    X5*X4       I = INC[DI]                                         FCC0735       14     A     
 GRA                LX5    CA.EUP      BIT = EU                                            FCC0735       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3067    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                ZR     X6,IA1      IF I = 0                                            FCC0735       16     A     
 GRA                LX5    CA.IAP-CA.EUP     BIT = IA                                      FCC0735       17     A     
 GRA                                                                                       FCC0735       18     A     
 GRA       IA1      SA4    DUMC                                                            FCC0735       19     A     
 GRA                LX6    CA.RFP                                                          FCC0735       20     A     
 GRA                BX4    X6+X4                                                           FCC0735       21     A     
 GRA                BX1    X4*X1       UMB = (EU,TU,I*RF)[LI]                              FCC0735       22     A     
 GRA                BX5    X5+X1                                                           FCC0735       23     A     
 GRA                BX6    X5+X2       BIT[LJ] = 1;  [LJ] = [LJ] ! UMB                     FCC0735       24     A     
 GRA                SA6    A2                                                              FCC0735       25     A     
 GRA                BX6    X5+X3       BIT[LK] = 1;  [LK] = [LK] ! UMB                     FCC0735       26     A     
 GRA                SA6    A3                                                              FCC0735       27     A     
 GRA                EQ     DUM1                                                            GRA         1312     A     
 GRA       JPX      SPACE  3,14                                                            GRA         1313     A     
 GRA      *         X - JUMPS - PROPAGATE *TU* BIT DOWN IT LOOP TEST JUMP                  GRA         1314     A     
 GRA                                                                                       GRA         1315     A     
 GRA                PROCESS JPX                                                            GRA         1316     A     
 GRA                SA2    LTT                                                             GRA         1317     A     
 GRA                BX6    "RN"X5                                                          GRA         1318     A     
 GRA                SX1    B1                                                              GRA         1319     A     
 GRA                SA3    "TB"+X6     LI = TB + RI[R1]                                    GRA         1320     A     
 GRA                LX1    CA.EUP      BIT = EU                                            GRA         1321     A     
 GRA                ZR     X2,JPX1     IF LTT = 0    */ NO TEST REPLACEMENT                GRA         1322     A     
 GRA                                                                                       GRA         1323     A     
 GRA                LX4    59-D.INCP                                                       GRA         1324     A     
 GRA                PL     X4,JPX1     IF ^INC[DI]   */ THIS IS NOT THE TEST JP            GRA         1325     A     
 GRA                LX1    CA.TUP-CA.EUP     BIT = TU                                      GRA         1326     A     
 GRA                                                                                       GRA         1327     A     
 GRA       JPX1     BX6    X1+X3       BIT[LI] = 1                                         GRA         1328     A     
 GRA                SA6    A3                                                              GRA         1329     A     
 GRA                SA2    LBM                                                             FCC2124       32     A     
 GRA                ZR     X2,DUM1     IF LBM = 0    */ NOT DOING RF CHECKING              FCC2124       33     A     
 GRA                SA3    A4+B1                                                           FCC2124       34     A     
 GRA                SX6    X3          LBM = [DI+1]  */ SET LOW BND FOR SAFE RF            FCC2124       35     A     
 GRA                SA6    A2                                                              FCC2124       36     A     
 GRA                EQ     DUM1                                                            GRA         1330     A     
 GRA       STT      SPACE  3,14                                                            GRA         1331     A     
 GRA      *         STT - SET RF USEAGE AND PROPAGATE *TU* BIT DOWN                        GRA         1332     A     
 GRA      *         PROPAGATE *EU* BIT TO PRED, IF AN *INC* STT                            GRA         1333     A     
 GRA                                                                                       GRA         1334     A     
 GRA                PROCESS STT                                                            GRA         1335     A     
 GRA                SA3    A5+B1       R2 = R1 + 1                                         GRA         1336     A     
 GRA                SA0    A0+B1       NC = NC + 1                                         GRA         1337     A     
 GRA                LX3    -IH.RFP                                                         GRA         1338     A     
 GRA                BX5    "RN"X3      R = RF[R2]                                          GRA         1339     A     
 GRA                ZR     X5,DUM1     IF R = 0      */ NO OPERANDS                        GRA         1340     A     
 GRA                                                                                       GRA         1341     A     
 GRA                SA1    A4+B1       LI = DI + 1                                         GRA         1342     A     
 GRA                LX4    CA.EUP-D.INCP                                                   GRA         1343     A     
 GRA                SA2    "TB"+X5     LJ = TB + R                                         GRA         1344     A     
 GRA                SX6    B1                                                              GRA         1345     A     
 GRA                LX6    CA.EUP                                                          GRA         1346     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3068    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                BX4    X6*X4                                                           GRA         1347     A     
 GRA                LX6    CA.TUP-CA.EUP                                                   GRA         1348     A     
 GRA                BX3    X6*X1       TU[LJ] = TU[LI]                                     GRA         1349     A     
 GRA                BX4    X4*X1       EU[LJ] = EU[LI] & INC[DI]                           GRA         1350     A     
 GRA                LX6    CA.RFP-CA.TUP                                                   GRA         1351     A     
 GRA                BX4    X3+X4                                                           GRA         1352     A     
 GRA                BX5    X6+X4       RF[LJ] = 1                                          GRA         1353     A     
 GRA                BX6    X5+X2                                                           GRA         1354     A     
 GRA                SA6    A2                                                              GRA         1355     A     
 GRA                EQ     DUM1                                                            GRA         1356     A     
 GRA       RS       SPACE  2,10                                                            GRA         1357     A     
 GRA      *         DEF, RS - REMOVE SPECIFIED REGISTER FROM AVAILABLE SET                 GRA         1358     A     
 GRA                                                                                       GRA         1359     A     
 GRA                PROCESS (DEF,RS)                                                       GRA         1360          I
          -FCC2056
 GRA                PROCESS RS                                                             FCC2056        7     A     
 GRA                BX6    "RN"X5                                                          FCC2056        8     A     
 GRA                SA2    "TB"+X6     LIP = TB + RI[R1]                                   FCC2056        9     A     
 GRA                SX1    B1                                                              FCC2056       10     A     
 GRA                LX1    CA.EUP                                                          FCC2056       11     A     
 GRA                BX6    X1+X2       EU[LIP] = 1   */ INHIBIT BIASING                    FCC2056       12     A     
 GRA                SA6    A2                                                              FCC2056       13     A     
 GRA                                                                                       FCC2056       14     A     
 GRA                PROCESS DEF                                                            FCC2056       15     A     
 GRA                SA2    MRA                                                             GRA         1361     A     
 GRA                LX5    -R1.SOP                                                         GRA         1362     A     
 GRA                MX3    -SO.REGL                                                        GRA         1363     A     
 GRA                SX1    B1                                                              GRA         1364     A     
 GRA                BX6    -X3*X5                                                          GRA         1365     A     
 GRA                SB2    X6          REGN = SOREG[R1]                                    GRA         1366     A     
 GRA                LX1    B2,X1                                                           GRA         1367     A     
 GRA                BX6    -X1*X2      MRA = MRA & ^SHIFT(1,REGN)                          GRA         1368     A     
 GRA                LX5    59-SO.LKP                                                       GRA         1369     A     
 GRA                SA6    A2+                                                             GRA         1370     A     
 GRA                PL     X5,DUM1     IF SOLK[R1] " 1 ! 3  */ ^ TEMP/RJRS LOCK            GRA         1371     A     
 GRA                                                                                       GRA         1372     A     
 GRA                SA2    TRA                                                             GRA         1373     A     
 GRA                BX6    X1+X2       TRA = TRA ! SHIFT(1,REGN)                           GRA         1374     A     
 GRA                SA6    A2                                                              GRA         1375     A     
 GRA                EQ     DUM1                                                            GRA         1376     A     
 GRA       KLS      SPACE  2                                                               GRA         1377     A     
 GRA      *         KLS/KRS - SET *RF* USEAGE FOR *SXT* SO *CON* GOES TO A B-REG           GRA         1378     A     
 GRA                                                                                       GRA         1379     A     
 GRA                PROCESS (KLS,KRS)                                                      GRA         1380     A     
 GRA                SX6    B1                                                              GRA         1381     A     
 GRA                SA0    A0+B1       NC = NC + 1                                         GRA         1382     A     
 GRA                LX6    CA.RFP                                                          GRA         1383     A     
 GRA                SA6    A5-B1       LIP = R1 - 1;  RF[LIP] = 1                          GRA         1384     A     
 GRA                EQ     DUM1                                                            GRA         1385     A     
 GRA       LDST     SPACE  2,18                                                            GRA         1386     A     
 GRA      **        MEMORY REFERENCE PROCESSING - DETERMINE CANIDATE TYPE                  GRA         1387     A     
 GRA                                                                                       GRA         1388     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3069    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                PROCESS TST                                                            GRA         1389     A     
 GRA                SA3    "TB"+X5     LIP = TB + RI[R1]                                   GRA         1390     A     
 GRA                LX4    59-D.INCP                                                       GRA         1391     A     
 GRA                SX1    1                                                               GRA         1392          I
          -FCC2124
 GRA                LX1    CA.RFP                                                          GRA         1393          I
          -FCC2124
 GRA                MI     X4,TST1     BIT = IF( INC[DI] ) THEN *RF*; ELSE *EU*            GRA         1394          I
          -FCC2124
 GRA                LX1    CA.EUP-CA.RFP                                                   GRA         1395          I
          -FCC2124
 GRA       TST1     BX6    X1+X3       BIT[LIP] = 1                                        GRA         1396          I
          -FCC2124
 GRA                SA6    A3                                                              GRA         1397          I
          -FCC2124
 GRA                PL     X4,DUM1     IF ^INC[DI]   */ NOT IN A REG IN INNER LP           GRA         1398          I
          -FCC2124
 GRA                SB2    A5-B1                                                           FCC1518X      11          I
          -FCC2124
 GRA                SX1    B1                                                              FCC2124       37     A     
 GRA                LX1    CA.EUP                                                          FCC2124       38     A     
 GRA                MI     X4,TST1     IF INC[DI]                                          FCC2124       39     A     
 GRA                BX6    X1+X3       EU[LIP] = 1                                         FCC2124       40     A     
 GRA                SA6    A3                                                              FCC2124       41     A     
 GRA                EQ     DUM1                                                            FCC2124       42     A     
 GRA                                                                                       FCC2124       43     A     
 GRA       TST1     SB2    A5-B1                                                           FCC2124       44     A     
 GRA                SB2    A3-B2                                                           FCC1518X      12     A     
 GRA                ZR     B2,.TLD     IF R1-1 = LIP */ INCR NEXT TO STORE                 FCC1518X      13     A     
 GRA                                                                                       FCC1518X      14     A     
 GRA                SA3    A4+B1       LI = DI + 1                                         FCC1518X      15     A     
 GRA                LX1    CA.EUP-CA.RFP                                                   FCC1518X      16          I
          -FCC2124
 GRA                BX6    X1+X3       EU[LI] = 1    */ INHIBIT ADDRESS DIFFERENCING       FCC1518X      17     A     
 GRA                SA6    A3                                                              FCC1518X      18     A     
 GRA                                                                                       GRA         1399     A     
 GRA                PROCESS TLD                                                            GRA         1400     A     
 GRA                SA3    A4+B1       LI = DI + 1                                         GRA         1401     A     
 GRA                SX1    B1                                                              GRA         1402     A     
 GRA                SA0    A0+B1       NC = NC + 1                                         GRA         1403     A     
 GRA                LX1    CA.VCP                                                          GRA         1404     A     
 GRA                BX6    X1+X3       VC[LI] = 1                                          GRA         1405     A     
 GRA                SA6    A3                                                              GRA         1406     A     
 GRA                EQ     DUM1                                                            GRA         1407     A     
 GRA       ST       SPACE  2                                                               GRA         1408     A     
 GRA                PROCESS ST                                                             GRA         1409     A     
 GRA                BX2    X4                                                              GRA         1410     A     
 GRA                SX1    B1                                                              GRA         1411     A     
 GRA                LX2    59-D.INCP                                                       GRA         1412     A     
 GRA                SA3    "TB"+X5     LIP = TB + RI[R1]                                   GRA         1413     A     
 GRA                LX1    CA.EUP                                                          GRA         1414     A     
 GRA                MI     X2,.LD      IF INC[DI]                                          GRA         1415          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3070    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
          -FCC1997
 GRA                                                                                       GRA         1416          I
          -FCC1997
 GRA                BX6    X1+X3       EU[LIP] = 1                                         GRA         1417          I
          -FCC1997
 GRA                PL     X2,ST1      IF ^INC[DI]                                         FCC1997        5     A     
 GRA                                                                                       FCC1997        6     A     
 GRA                SB2    A5-B1                                                           FCC1997        7     A     
 GRA                SB2    A3-B2                                                           FCC1997        8     A     
 GRA                ZR     B2,.LD      IF LIP = R1-1 */ INC NEXT TO STORE                  FCC1997        9     A     
 GRA                                                                                       FCC1997       10     A     
 GRA                BX6    X1+X3       EU[LIP] = 1                                         FCC1997       11     A     
 GRA                SA6    A3                                                              FCC1997       12     A     
 GRA                EQ     .LD                                                             FCC1997       13     A     
 GRA                                                                                       FCC1997       14     A     
 GRA       ST1      BX6    X1+X3       EU[LIP] = 1                                         FCC1997       15     A     
 GRA                SA6    A3                                                              GRA         1418     A     
 GRA                LX1    CA.^RDP-CA.EUP                                                  GRA         1419     A     
 GRA                SA2    A4+B1       LI = DI + 1                                         GRA         1420     A     
 GRA                BX6    X1+X2       ^RD[LI] = 1   */ INDICATE NON RECURSIVE DEF         GRA         1421     A     
 GRA                SA6    A2                                                              GRA         1422     A     
 GRA                                                                                       GRA         1423     A     
 GRA                PROCESS (LD,ILD)                                                       GRA         1424     A     
 GRA                SA3    A5+B1       R2 = R1 + 1                                         GRA         1425     A     
 GRA                LX5    -R1.INP                                                         GRA         1426     A     
 GRA                SX1    B1                                                              GRA         1427     A     
 GRA                LX3    -IH.RFP                                                         GRA         1428     A     
 GRA                LX1    CA.VCP      CT = VC       */ SET FOR VALUE CANIDATE             GRA         1429     A     
 GRA                BX6    "RN"X3                                                          GRA         1430     A     
 GRA                ZR     X6,LD1      IF RF[R2] = 0                                       GRA         1431     A     
 GRA                                                                                       GRA         1432     A     
 GRA                SA2    LBM                                                             FCC2124       45     A     
 GRA                IX3    X6-X2                                                           FCC2124       46     A     
 GRA                MI     X3,LD0      IF RF < LBM   */ CONDITIONAL REF                    FCC2124       47     A     
 GRA                SA2    "TB"+X6     LJ = TB + RF[R2]                                    GRA         1433     A     
 GRA                LX1    CA.RFP-CA.VCP                                                   GRA         1434     A     
 GRA                BX6    X1+X2       RF[LJ] = 1                                          GRA         1435     A     
 GRA                SA6    A2                                                              GRA         1436     A     
 GRA                LX1    CA.ACP-CA.RFP     CT = AC                                       GRA         1437          I
          -FCC2124
 GRA       LD0      SX1    B1                                                              FCC2124       48     A     
 GRA                LX1    CA.ACP      CT = AC                                             FCC2124       49     A     
 GRA                EQ     LD3                                                             GRA         1438     A     
 GRA                                                                                       GRA         1439     A     
 GRA      *         CHECK SCALAR LD/ST FOR INTERFERENCE, EXPLICIT USE IN INNER LP          GRA         1440     A     
 GRA                                                                                       GRA         1441     A     
 GRA       LD1      SA2    B6+X5       UI = UDT( IN[R1] )                                  GRA         1442     A     
 GRA                LX6    B4,X2                                                           GRA         1443     A     
 GRA                MI     X6,LD2      IF IST[UI]    */ INTERFERENCE                       GRA         1444     A     
 GRA                LX6    UD.ISTP-UD.CMP                                                  GRA         1445     A     
 GRA                PL     X6,LD3      IF ^CM[UI]    */ NOT MEMBER OF A CLASS              GRA         1446     A     
 GRA                                                                                       GRA         1447     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3071    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      *         CHECK TO SEE IF BASE MEMBER WAS USED ( INDEXED *LD* )                  GRA         1448     A     
 GRA                                                                                       GRA         1449     A     
 GRA                LX6    1+UD.CMP-UD.BMIP                                                GRA         1450     A     
 GRA                SB2    X6+B1                                                           GRA         1451          I
          -FCC1040
 GRA                SA3    B6+B2       U2 = UDT( BMI[UI]+1 )                               GRA         1452          I
          -FCC1040
 GRA                SA2    B6+X6       UB = UDT( BMI[UI] )                                 FCC1040        5     A     
 GRA                LX2    59-UD.DEFRP                                                     FCC1040        6     A     
 GRA                MI     X2,LD2      IF DEFR[UB]   */ BASE DEFINED IN INNER LP           FCC1040        7     A     
 GRA                SA3    A2+B1       U2 = UB + 1                                         FCC1040        8     A     
 GRA                UX5    B2,X3                                                           GRA         1453     A     
 GRA                SB2    B2-59                                                           GRA         1454     A     
 GRA                SA2    B5+X3       UVW = UVA( WI[UI] )                                 GRA         1455          I
          -FCC1040
 GRA                SA2    B5+X3       UVW = UVA( WI[U2] )                                 FCC1040        9     A     
 GRA                LX5    -B2,X2                                                          GRA         1456     A     
 GRA                PL     X5,LD3      IF SHIFT( UVW , 59-BITN[UI] ) > 0                   GRA         1457          I
          -FCC1040
 GRA                PL     X5,LD3      IF SHIFT( UVW , 59-BITN[U2] ) > 0                   FCC1040       10     A     
 GRA                                                                                       GRA         1458     A     
 GRA                LX6    UD.BMIP+59-UD.DEFRP                                             GRA         1459     A     
 GRA                PL     X6,LD3      IF ^DEFR[UI]  */ NO DEFS IN LOOP                    GRA         1460     A     
 GRA                                                                                       GRA         1461     A     
 GRA      *         ^ VC , CLEAR *INC* BIT OF ST PRED SO AS TO FORCE *EU*                  GRA         1462     A     
 GRA      *         FOR CON PRED OF *IA* INSTRUCTION.                                      GRA         1463     A     
 GRA                                                                                       GRA         1464     A     
 GRA       LD2      LX4    59-D.INCP                                                       GRA         1465     A     
 GRA                PL     X4,LD2A     IF ^INC[DI]   */ ^ INC STORE                        GRA         1466     A     
 GRA                SX3    B1                                                              GRA         1467     A     
 GRA                SA2    A5-2        DIP = R1 - 2                                        GRA         1468     A     
 GRA                LX3    D.INCP                                                          GRA         1469     A     
 GRA                BX6    -X3*X2      INC[DIP] = 0                                        GRA         1470     A     
 GRA                SA6    A2                                                              GRA         1471     A     
 GRA                                                                                       GRA         1472     A     
 GRA      *         CHECK FOR POSSIBLE ADDRESS CANIDATE                                    GRA         1473     A     
 GRA                                                                                       GRA         1474     A     
 GRA       LD2A     LX4    D.INCP-D.FPP                                                    GRA         1475     A     
 GRA                PL     X4,DUM1     IF ^FP[DI]                                          GRA         1476     A     
 GRA                LX1    CA.ACP-CA.VCP     CT = AC                                       GRA         1477     A     
 GRA                                                                                       GRA         1478     A     
 GRA       LD3      SA3    A4+B1       LI = DI + 1                                         GRA         1479     A     
 GRA                SA0    A0+B1       NC = NC + 1                                         GRA         1480     A     
 GRA                BX6    X1+X3       CT[LI] = 1                                          GRA         1481     A     
 GRA                SA6    A3                                                              GRA         1482     A     
 GRA                EQ     DUM1                                                            GRA         1483     A     
 GRA       FBM      SPACE  4,18                                                            FCC2124       50     A     
 GRA      **        FBM - FIND BOUNDARY MARKERS                                            FCC2124       51     A     
 GRA      *         FOWARD SCAN TO FIND BOUNDARY MARKERS IN AN EBB.                        FCC2124       52     A     
 GRA      *         USED BY PROCESSORS SO AS TO NOT SET THE *RF* BIT WHEN THE              FCC2124       53     A     
 GRA      *         INSTRUCTION REFERENCING THE RF IS CONDITIONALLY EXECUTED.              FCC2124       54     A     
 GRA      *         AN ASSIGNMENT OF THE RF TO A B-REGISTER MAY CAUSE AN OVERFLOW          FCC2124       55     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3072    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      *         AT EXECUTION TIME.                                                     FCC2124       56     A     
 GRA                                                                                       FCC2124       57     A     
 GRA       LBM      BSS    1           LAST BOUNDARY MARKER                                FCC2124       58     A     
 GRA                                                                                       FCC2124       59     A     
 GRA       FBM0     SA7    LBM         LBM = LB                                            FCC2124       60     A     
 GRA       FBM      ROUTINE                                                                FCC2124       61     A     
 GRA                SX7    B0          LB = 0                                              FCC2124       62     A     
 GRA                SA1    =XUOFLAG                                                        FCC2124       63     A     
 GRA                NZ     X1,FBM0     IF UO " 0                                           FCC2124       64     A     
 GRA                SA1    =XOPT2                                                          FCC2124       65     A     
 GRA                ZR     X1,FBM1     IF OPT " 2                                          FCC2124       66     A     
 GRA                SA2    X5          R1 = [TXT]                                          FCC2124       67     A     
 GRA                MX3    -2                                                              FCC2124       68     A     
 GRA                LX2    -R1.H2P                                                         FCC2124       69     A     
 GRA                BX4    -X3*X2                                                          FCC2124       70     A     
 GRA                NZ     X4,FBM1     IF AP ! LN    */ BLOCK EXECUTED UNCONDITIONALLY     FCC2124       71     A     
 GRA                SX7    377777B     LB = INFINITY                                       FCC2124       72     A     
 GRA                EQ     FBM0                                                            FCC2124       73     A     
 GRA                                                                                       FCC2124       74     A     
 GRA       FBM1     SB6    X5+2        D0 = TXT + 2                                        FCC2124       75     A     
 GRA                SB2    B1+B1                                                           FCC2124       76     A     
 GRA                SA4    B6          DI = D0                                             FCC2124       77     A     
 GRA                                                                                       FCC2124       78     A     
 GRA       FBM2     SA3    A4+B2       R1 = DI + 2                                         FCC2124       79     A     
 GRA                SA4    A3+B2       DI = R1 + 2                                         FCC2124       80     A     
 GRA                UX6    B3,X3                                                           FCC2124       81     A     
 GRA                LX4    59-D.JPP                                                        FCC2124       82     A     
 GRA                ZR     B3,FBM0     IF OC[R1] = 0 */ END OF SEQUENCE                    FCC2124       83     A     
 GRA                PL     X4,FBM2     IF ^JP[DI]                                          FCC2124       84     A     
 GRA                                                                                       FCC2124       85     A     
 GRA                SA7    A4+B1       [DI+1] = LB   */ SAVE INDEX OF LAST BM              FCC2124       86     A     
 GRA                SX7    A4-B6       LB = DI - D0                                        FCC2124       87     A     
 GRA                EQ     FBM2                                                            FCC2124       88     A     
 GRA                                                                                       GRA         1484     A     
 GRA                QUAL   *                                                               GRA         1485     A     
 GRA       DUM      EQU    /DUM/DUM                                                        GRA         1486     A     
 GRA       DUM.JT   EJECT                                                                  GRA         1487     A     
 GRA      **        DEFINE *OPR* MACRO TO CREATE COMBINED JUMP TABLE FOR *ERC/DUM*         GRA         1488     A     
 GRA      *         AND A LIST OF OPCODES WHICH MAY PRECEED A *RS* TO A B-REG.             GRA         1489     A     
 GRA                                                                                       GRA         1490     A     
 GRA                ECHO   2,X=(S,SA,SS,STT)                                               GRA         1491     A     
 GRA                NOREF  BRS.X                                                           GRA         1492     A     
 GRA       BRS.X    EQU    1                                                               GRA         1493     A     
 GRA                                                                                       GRA         1494     A     
 GRA                MACRO  OPR,NAM,SS                                                      GRA         1495     A     
 GRA                NOREF  /DUM/.NAM,/ERC/.NAM                                             GRA         1496     A     
 GRA      *                                                                                GRA         1497     A     
 GRA                IF     DEF,/ERC/.NAM,2                                                 GRA         1498     A     
 GRA                EQ     /ERC/.NAM             NAM                                       GRA         1499     A     
 GRA                ELSE   1                                                               GRA         1500     A     
 GRA                EQ     /ERC/ERC1   NAM                                                 GRA         1501     A     
 GRA      *                                                                                GRA         1502     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3073    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                NOREF  BRS.NAM                                                         GRA         1503     A     
 GRA                IF     DEF,BRS.NAM,2                                                   GRA         1504     A     
 GRA      -         VFD    12/1S11                                                         GRA         1505     A     
 GRA                ELSE   1                                                               GRA         1506     A     
 GRA      -         VFD    12/0                                                            GRA         1507     A     
 GRA      *                                                                                GRA         1508     A     
 GRA       O        IF     DEF,/DUM/.NAM                                                   GRA         1509     A     
 GRA                VFD 18//DUM/.NAM             NAM                                       GRA         1510     A     
 GRA       O        ELSE                                                                   GRA         1511     A     
 GRA       TYP      MICRO  4,1,$SS$                                                        GRA         1512     A     
 GRA                IFC    EQ,/"TYP"/ /,2                                                  GRA         1513     A     
 GRA                VFD 18//DUM/TYI    NAM                                                 GRA         1514     A     
 GRA                SKIP   1                                                               GRA         1515     A     
 GRA                VFD 18//DUM/DUM1                                                       GRA         1516     A     
 GRA       O        ENDIF                                                                  GRA         1517     A     
 GRA      *                                                                                GRA         1518     A     
 GRA                ENDM                                                                   GRA         1519     A     
 GRA                                                                                       GRA         1520     A     
 GRA       DUM.JT   BSS    0                                                               GRA         1521     A     
 GRA       ERC.JT   BSS    0                                                               GRA         1522     A     
 GRA      *CALL     OPRDEFS                                                                GRA         1523     A     
 GRA       GRA      TTL    GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION           GRA         1524     A     
 GRA       MTA      TITLE  MTA - MAKE TENATIVE B-ASSIGNMENTS                               GRA         1525     A     
 GRA      **        MTA - MAKE TENATIVE B-ASSIGNMENTS, MAKE TENATIVE COUNTING              GRA         1526     A     
 GRA      *         METHOD DECISION ( *TRD* ).                                             GRA         1527     A     
 GRA                                                                                       GRA         1528     A     
 GRA       MTAA     BFMW   CA,(VC,RF)                                                      GRA         1529     A     
 GRA       MTAB     BFMW   CA,(IRA,EU,LX)    NO BIAS BITS ( BY AN *CAIH* )                 GRA         1530     A     
 GRA                                                                                       GRA         1531     A     
 GRA       MTA      ROUTINE                                                                GRA         1532     A     
 GRA                SA2    MRA                                                             GRA         1533     A     
 GRA                SX3    376B                                                            GRA         1534     A     
 GRA                BX4    X3*X2       BR = MRA & 376B  */ B-REGS                          GRA         1535     A     
 GRA                SX5    X4+B1                                                           GRA         1536     A     
 GRA                PX6    X5          ABR = PACK( 0 , BR+1 )                              GRA         1537     A     
 GRA                CX7    X4          NAB = COUNT( BR )                                   GRA         1538     A     
 GRA                SA6    ABR                                                             GRA         1539     A     
 GRA                SA7    NAB                                                             GRA         1540     A     
 GRA                SA7    NTA         NTA = NAB                                           GRA         1541     A     
 GRA                ZR     X7,MTA      IF NAB = 0    */ NO B-S AVAIL                       GRA         1542     A     
 GRA                                                                                       GRA         1543     A     
 GRA      *         SELECT VALUE CANIDATES THAT ARE *RF* FROM *RCT* AND FORM A             GRA         1544     A     
 GRA      *         SORT TABLE.  FORMAT - 42/SORT[CAW],18/RCT INDEX  ( *CO* )              GRA         1545     A     
 GRA                                                                                       GRA         1546     A     
 GRA                SA1    NVC                                                             GRA         1547     A     
 GRA                ALLOC  RND,X1      ALLOC( RND , NVC )  */ SORT TABLE                   GRA         1548     A     
 GRA                SA4    O.RCT                                                           GRA         1549     A     
 GRA                SA5    L.RCT                                                           GRA         1550     A     
 GRA                MX7    0                                                               GRA         1551     A     
 GRA                SA7    X2          SI = [O.RND];  [SI] = 0                             GRA         1552     A     
 GRA                MX0    -CA.SORTL                                                       GRA         1553     A     
 GRA                SB7    X2+B1       S0 = SI + 1                                         GRA         1554     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3074    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                LX0    CA.SORTP                                                        GRA         1555     A     
 GRA                SB6    X4          CO = [O.RCT]                                        GRA         1556     A     
 GRA                SB3    3                                                               GRA         1557     A     
 GRA                SA5    B6+X5       CI = CO + L.RCT                                     GRA         1558     A     
 GRA                SA1    MTAA                                                            GRA         1559     A     
 GRA                                                                                       GRA         1560     A     
 GRA       MTA1     SA5    A5-B3       CI = CI - 3                                         GRA         1561     A     
 GRA                ZR     X5,MTA2     IF [CI] = 0   */ END OF TABLE                       GRA         1562     A     
 GRA                BX6    -X1+X5                                                          GRA         1563     A     
 GRA                NZ     X6,MTA1     IF ^( VC[CI] & RF[CI] )                             GRA         1564     A     
 GRA                                                                                       GRA         1565     A     
 GRA                BX3    -X0*X5                                                          GRA         1566     A     
 GRA                LX5    59-CA.^RDP                                                      GRA         1567     A     
 GRA                MI     X5,MTA1     IF ^RD[CI]    */ NON RECURSIVE DEF                  GRA         1568     A     
 GRA                                                                                       GRA         1569     A     
 GRA                SX4    A5-B6       I = CI - CO                                         GRA         1570     A     
 GRA                IX7    X3+X4                                                           GRA         1571     A     
 GRA                SA7    A7+B1       SI = SI + 1;  [SI] = SORT[CI] ! I                   GRA         1572     A     
 GRA                EQ     MTA1                                                            GRA         1573     A     
 GRA                                                                                       GRA         1574     A     
 GRA       MTA2     SB3    A7+B1       SI = SI + 1                                         GRA         1575     A     
 GRA                SX1    B3-B7       LEN = SI - SO                                       GRA         1576     A     
 GRA                ZR     X1,MTA12    IF LEN = 0    */ NO CANIDATES                       GRA         1577     A     
 GRA                                                                                       GRA         1578     A     
 GRA                CALL   SHL         SORT( RND )                                         GRA         1579     A     
 GRA                TRACE  MTA,RND                                                         GRA         1580     A     
 GRA                                                                                       GRA         1581     A     
 GRA      *         ON EXIT FROM *SHL* (B6) = CO IS INTACT AND (B3) = SI, LWA+1            GRA         1582     A     
 GRA       MTA      SPACE  2,14                                                            GRA         1583     A     
 GRA      *         NOTE THAT THE LOOP INDEX AND LIMIT ( IF A VARIABLE ) WILL BE           GRA         1584     A     
 GRA      *         THE LAST 2 ENTRIES IN THE TABLE.  USING THESE FACTS AND OTHER          GRA         1585     A     
 GRA      *         INFO MAKE A PRELIMINARY COUNTING METHOD/TEST REPLACEMENT               GRA         1586     A     
 GRA      *         DECISION.  SET *TRD* TO ONE OF THE FOLLOWING.                          GRA         1587     A     
 GRA      *         0      NO TEST REPLACEMENT                                             GRA         1588     A     
 GRA      *         1      I-N IN A B-REG                                                  GRA         1589     A     
 GRA      *         2      I AND N IN B-REGS                                               GRA         1590     A     
 GRA      *         3      I, N ALLOCATED, COUNT BY A+I AND LIMIT = A+N                    GRA         1591     A     
 GRA      *         4      I ASSIGNED, COUNT BY F(I), F(N) WHERE *F* IS A                  GRA         1592     A     
 GRA      *                LINEAR FUNCTION OF I ( I.E. A INTEGER POLYNOMIAL ).             GRA         1593     A     
 GRA                                                                                       GRA         1594     A     
 GRA                SA1    LTT                                                             GRA         1595     A     
 GRA                SB7    B3-B1       SI = SI - 1   */ LWA OF SORT TABLE                  GRA         1596     A     
 GRA                SA0    B0          TRM = 0       */ TEST REPLACEMENT MODE              GRA         1597     A     
 GRA                ZR     X1,MTA11    IF LTT = 0    */ LOOP TEST NOT STANDARD FOR         GRA         1598     A     
 GRA                                                                                       GRA         1599     A     
 GRA      *         GET A B-REG FOR THE *CV*                                               GRA         1600     A     
 GRA                                                                                       GRA         1601     A     
 GRA                SA5    B7                                                              GRA         1602     A     
 GRA                SB4    X5          I = CO[SI]    */ CANIDATE ORDINAL                   GRA         1603     A     
 GRA                SA4    B6+X5       CI = RCT(I)                                         GRA         1604     A     
 GRA                LX4    59-CA.TUP                                                       GRA         1605     A     
 GRA                PL     X4,MTA11    IF ^TU[CI]    */ CHECK FOR *CV*                     GRA         1606     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3075    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                LX4    CA.TUP-CA.DEFP                                                  GRA         1607     A     
 GRA                PL     X4,MTA11    IF ^DEF[CI]                                         GRA         1608     A     
 GRA                MX1    0           INVF = 0                                            GRA         1609     A     
 GRA                RJ     AIR         ASSIGN *CV* TO AN INDEX REGISTER                    GRA         1610     A     
 GRA                SX6    -B2                                                             GRA         1611     A     
 GRA                SA6    LCV+1       LCV(2) = REGNO                                      GRA         1612     A     
 GRA                SB7    B7-B1       SI = SI - 1   */ REMOVE FROM SORT TABLE             GRA         1613     A     
 GRA                AX6    3                                                               GRA         1614     A     
 GRA                NZ     X6,MTA11    IF REGNO > 10B  */ *CV* IN AN X-REG                 GRA         1615     A     
 GRA      *                            IN FUTURE - DELETE X-ASSIGNMENT AND LOOP            GRA         1616     A     
 GRA                                                                                       GRA         1617     A     
 GRA      *         FIND THE UPPER LIMIT. IT IS NOT IN *RCT* IF IN A INNER LP              GRA         1618     A     
 GRA      *         AND IT IS A CONSTANT.                                                  GRA         1619     A     
 GRA                                                                                       GRA         1620     A     
 GRA       MTA2A    SA5    B7                                                              GRA         1621     A     
 GRA                SA1    LUL                                                             GRA         1622     A     
 GRA                SB4    X5          I = CO[SI]    */ POSSIBLE *UL*                      GRA         1623     A     
 GRA                LX5    59-CA.TUP                                                       GRA         1624     A     
 GRA                PL     X5,MTA3     IF ^TU[SI]    */ NOT TEST USE                       GRA         1625     A     
 GRA                                                                                       GRA         1626     A     
 GRA      *         ENTRY IS *TU*, ENSURE THAT IT IS NOT A VARIABLE INCREMENT              GRA         1627     A     
 GRA                                                                                       GRA         1628     A     
 GRA                SA4    B6+B4       CAW = RCT(I)                                        GRA         1629     A     
 GRA                UX6    B2,X1                                                           GRA         1630     A     
 GRA                AX6    PS.UDIP                                                         GRA         1631     A     
 GRA                BX7    X6-X4                                                           GRA         1632     A     
 GRA                SB3    X7                                                              GRA         1633     A     
 GRA                ZR     B3,MTA5     IF UDI[CAW] = UDI[LUL]                              GRA         1634     A     
 GRA                                                                                       GRA         1635     A     
 GRA                MX2    1                                                               GRA         1636     A     
 GRA                BX6    -X2*X5      TU[SI] = 0                                          GRA         1637     A     
 GRA                MX7    0                                                               GRA         1638     A     
 GRA                LX6    1+CA.TUP                                                        GRA         1639     A     
 GRA                SA7    STP         STP = 0       */ INHIBIT BIASING IN *MFA*           GRA         1640     A     
 GRA                SA6    A5                                                              GRA         1641     A     
 GRA                LX2    1+CA.EUP                                                        GRA         1642     A     
 GRA                BX7    X2+X4       EU[CAW] = 1   */ INHIBTI BIASING IN *MFA*           GRA         1643     A     
 GRA                SA7    A4                                                              GRA         1644     A     
 GRA                ZR     B2,MTA3     IF TYP[LUL] = 0  */ *UL* IS A CON                   GRA         1645     A     
 GRA                                                                                       GRA         1646     A     
 GRA      *         VARIABLE INC BEFORE VARIABLE *UL*, SWAP ENTRIES                        GRA         1647     A     
 GRA                                                                                       GRA         1648     A     
 GRA                SA3    B7-B1                                                           GRA         1649     A     
 GRA                ZR     X3,MTA11    IF [SI-1] = 0 */ UL NOT IN SORT TABLE               GRA         1650     A     
 GRA                SA6    A3          SWAP( [SI] , [SI-1] )                               GRA         1651     A     
 GRA                BX7    X3                                                              GRA         1652     A     
 GRA                SA7    A5                                                              GRA         1653     A     
 GRA                EQ     MTA2A                                                           GRA         1654     A     
 GRA                                                                                       GRA         1655     A     
 GRA      *         SEARCH *RCT* FOR CON *UL* IF FINAL B-ASSIGNMENTS WERE MADE             GRA         1656     A     
 GRA                                                                                       GRA         1657     A     
 GRA       MTA3     UX6    B2,X1                                                           GRA         1658     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3076    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                NZ     B2,MTA11    IF TYP[LUL] " 0   */ *UL* IS A VAR                  GRA         1659     A     
 GRA                LX6    IH.CAP                                                          GRA         1660     A     
 GRA                SA3    FBA                                                             GRA         1661     A     
 GRA                SB4    0           I = 0                                               GRA         1662     A     
 GRA                ZR     X3,MTA5     IF FBA = 0    */ NO FINAL B-ASSIGNMENTS             GRA         1663     A     
 GRA                                                                                       GRA         1664     A     
 GRA                SA2    L.RCT                                                           GRA         1665     A     
 GRA                SB2    B6+B1                                                           GRA         1666     A     
 GRA                SA6    B6+B1       KEY = [CO+1] = IHW(0,0,CA[LUL],0)                   GRA         1667     A     
 GRA                SA5    B2+X2       CI = CO+1 + L.RCT                                   GRA         1668     A     
 GRA                                                                                       GRA         1669     A     
 GRA       MTA4     SA5    A5-3        CI = CI - 3                                         GRA         1670     A     
 GRA                BX7    X6-X5                                                           GRA         1671     A     
 GRA                NZ     X7,MTA4     IF [CA] " KEY                                       GRA         1672     A     
 GRA                                                                                       GRA         1673     A     
 GRA                SB4    A5-B2       I = CI - (CO+1)                                     GRA         1674     A     
 GRA                SA7    B6+B1       [CO+1] = 0                                          GRA         1675     A     
 GRA       MTA      SPACE  2,10                                                            GRA         1676     A     
 GRA      *         NOW LOOK AT TEST REPLACEMENT POSSABILITIES                             GRA         1677     A     
 GRA                                                                                       GRA         1678     A     
 GRA       MTA5     SA2    B6+B4       ULW = RCT(I)  */ *UL* WORD                          GRA         1679     A     
 GRA                SA0    B1+B1       TRM = 2       */ I,N IN B-REGS                      GRA         1680     A     
 GRA                LX2    59-CA.RAP                                                       GRA         1681     A     
 GRA                PL     X2,MTA6     IF ^RA[ULW]                                         GRA         1682     A     
 GRA                                                                                       GRA         1683     A     
 GRA      *         *UL* IN A REGISTER, SET *EU* BIT FOR *CV* SO IT ISNT BIASED.           GRA         1684     A     
 GRA                                                                                       GRA         1685     A     
 GRA                SA1    A2+2        CC = RCT(I+2)                                       GRA         1686     A     
 GRA                LX1    -CC.REG1P                                                       GRA         1687     A     
 GRA                MX7    -CC.REG1L                                                       GRA         1688     A     
 GRA                BX6    -X7*X1                                                          GRA         1689     A     
 GRA                SB2    X6-10B                                                          GRA         1690     A     
 GRA                SA6    LUL+1       LUL(2) = REG1[CC]                                   GRA         1691     A     
 GRA                SA2    B7+B1       CVO = CO[SI+1]                                      GRA         1692     A     
 GRA                SA3    B6+X2                                                           GRA         1693     A     
 GRA                SX1    B1                                                              GRA         1694     A     
 GRA                LX1    CA.EUP                                                          GRA         1695     A     
 GRA                BX6    X1+X3       EU[RCT(CVO)] = 1  */ INHIBIT BIASING IN *MFA*       GRA         1696     A     
 GRA                SA6    A3                                                              GRA         1697     A     
 GRA                MI     B2,MTA11    IF REG1[CC] < 10B  */ *UL* IN A B-REG               GRA         1698     A     
 GRA                SA0    B0          TRM = 0                                             GRA         1699     A     
 GRA                EQ     MTA11                                                           GRA         1700     A     
 GRA                                                                                       GRA         1701     A     
 GRA       MTA6     SA1    B7+B1                                                           GRA         1702     A     
 GRA                SA3    MTAB                                                            GRA         1703     A     
 GRA                LX2    CA.RAP-CA.SUSEP                                                 GRA         1704     A     
 GRA                SA5    B6+X1       CVW = RCT([SI+1])  */ *CV* WORD                     GRA         1705     A     
 GRA                BX6    X3*X5                                                           GRA         1706     A     
 GRA                NZ     X6,MTA10    IF (IRA,EU,LX)[CVW]                                 GRA         1707     A     
 GRA                MX7    -CA.SUSEL+1                                                     GRA         1708     A     
 GRA                BX6    -X7*X2                                                          GRA         1709     A     
 GRA                NZ     X6,MFA6A    IF SUSE[ULW] > 1                                    GRA         1710     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3077    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                BX6    X2                                                              GRA         1711     A     
 GRA                LX6    CA.SUSEP-CA.CONP                                                GRA         1712     A     
 GRA                PL     X6,MTA7     IF ^CON[ULW]  */ NO OTHER USES                      GRA         1713     A     
 GRA                                                                                       GRA         1714     A     
 GRA       MFA6A    SX6    B1                                                              GRA         1715     A     
 GRA                LX2    1+CA.SUSEP                                                      GRA         1716     A     
 GRA                LX6    CA.LXP                                                          GRA         1717     A     
 GRA                BX7    X6+X2       LX[ULW] = 1   */ INHIBIT BIASING IN *MFA*           GRA         1718     A     
 GRA                SA7    A2                                                              GRA         1719     A     
 GRA                EQ     MTA10                                                           GRA         1720     A     
 GRA                                                                                       GRA         1721     A     
 GRA      *         *CV* IS DEAD ON EXIT AND ^EU                                           GRA         1722     A     
 GRA                                                                                       GRA         1723     A     
 GRA       MTA7     SA1    TUD                                                             GRA         1724     A     
 GRA                SA0    A0+B1       TRM = 3       */ A+I, A+N                           GRA         1725     A     
 GRA                AX7    B1,X1                                                           GRA         1726     A     
 GRA                NZ     X7,MTA10    IF TUD > 1    */ I IS USED IN INDEXED LD"S          GRA         1727     A     
 GRA                                                                                       GRA         1728     A     
 GRA                SA3    STP                                                             GRA         1729     A     
 GRA                SA0    1           TRM = 1       */ I-N CASE                           GRA         1730     A     
 GRA                ZR     X3,MTA8     IF STP = 0    */ NO *IP* WHICH IS F(I)              GRA         1731     A     
 GRA                                                                                       GRA         1732     A     
 GRA                SA1    NAB                                                             GRA         1733     A     
 GRA                ZR     X1,MTA12    IF NAB = 0                                          GRA         1734     A     
 GRA                SA0    4           TRM = 4       */ F(I), F(N) CASE                    GRA         1735     A     
 GRA                                                                                       GRA         1736     A     
 GRA      *         REMOVE VAR *UL* FROM CONSIDERATION                                     GRA         1737     A     
 GRA                                                                                       GRA         1738     A     
 GRA       MTA8     SA2    B7                                                              GRA         1739     A     
 GRA                SA3    B6+X2                                                           GRA         1740     A     
 GRA                SX6    X2                                                              GRA         1741     A     
 GRA                LX2    59-CA.TUP                                                       GRA         1742     A     
 GRA                PL     X2,MTA11    IF ^TU[SI]    */ NOT VAR *UL*                       GRA         1743     A     
 GRA                SA6    RAT         RAT = CO[SI]  */ SAVE ORD OF *UL*                   GRA         1744     A     
 GRA                SB7    B7-B1       SI = SI - 1                                         GRA         1745     A     
 GRA                MX1    1                                                               GRA         1746     A     
 GRA                LX1    1+CA.RAP                                                        GRA         1747     A     
 GRA                BX7    X1+X3       RA[RCT(CO[SI])] = 1                                 GRA         1748     A     
 GRA                SA7    A3                                                              GRA         1749     A     
 GRA                EQ     MTA11                                                           GRA         1750     A     
 GRA                                                                                       GRA         1751     A     
 GRA      *         ASSIGN A REGISTER FOR THE *UL*                                         GRA         1752     A     
 GRA                                                                                       GRA         1753     A     
 GRA       MTA10    SA1    NAB                                                             GRA         1754     A     
 GRA                ZR     X1,MTA12    IF NAB = 0                                          GRA         1755     A     
 GRA                SX1    B1          INVF = 1                                            GRA         1756     A     
 GRA                RJ     AIR         ASSIGN IT TO A REGISTER                             GRA         1757     A     
 GRA                SX6    -B2                                                             GRA         1758     A     
 GRA                SA6    LUL+1       LUL(2) = REGNO                                      GRA         1759     A     
 GRA                MX7    0                                                               GRA         1760     A     
 GRA                SA7    B6          [CO] = 0      */ IN CASE WE ASSIGNED 0              GRA         1761     A     
 GRA                SA7    B6+B1       [CO+1] = 0                                          GRA         1762     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3078    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA7    B6+2        [CO+2] = 0                                          GRA         1763     A     
 GRA                                                                                       GRA         1764     A     
 GRA      *         ASSIGN REMAINING CANIDATES TO REGISTERS                                GRA         1765     A     
 GRA                                                                                       GRA         1766     A     
 GRA       MTA11    SA5    B7                                                              GRA         1767     A     
 GRA                SA1    NAB                                                             GRA         1768     A     
 GRA                SB4    X5          I = CO[SI]                                          GRA         1769     A     
 GRA                ZR     X5,MTA14    IF I = 0      */ END OF TABLE                       GRA         1770     A     
 GRA                ZR     X1,MTA14    IF NAB = 0    */ END OF REGS                        GRA         1771     A     
 GRA                SA4    B6+B4                                                           GRA         1772     A     
 GRA                SX0    B1                                                              GRA         1773     A     
 GRA                LX4    -CA.DEFP                                                        GRA         1774     A     
 GRA                BX1    -X4*X0      INVF = ^DEF[RCT(I)]                                 GRA         1775     A     
 GRA                RJ     AIR         ASSIGN IT TO A REGISTER                             GRA         1776     A     
 GRA                SX2    X7                                                              GRA         1777     A     
 GRA                SB7    B7-B1       SI = SI - 1                                         GRA         1778     A     
 GRA                NZ     X2,MTA11    IF UDT[CAW] " 0  */ PROGRAMMER VAR                  GRA         1779     A     
 GRA                                                                                       GRA         1780     A     
 GRA                SA4    A7+B1                                                           GRA         1781     A     
 GRA                SA3    O.TET                                                           GRA         1782     A     
 GRA                LX4    -IH.CAP     C = CA[RCT(I+1)]                                    GRA         1783     A     
 GRA                SB3    X3                                                              GRA         1784     A     
 GRA                SA2    B3+X4                                                           GRA         1785     A     
 GRA                SX5    -B2                                                             GRA         1786     A     
 GRA                LX5    T.REGP                                                          GRA         1787     A     
 GRA                BX6    X5+X2       REG[TET(C)] = REGNO                                 GRA         1788     A     
 GRA                SA6    A2                                                              GRA         1789     A     
 GRA                EQ     MTA11                                                           GRA         1790     A     
 GRA                                                                                       GRA         1791     A     
 GRA       MTA12    SA0    0           TRM = 0                                             GRA         1792     A     
 GRA                                                                                       GRA         1793     A     
 GRA      *         SAVE FLAGS, CHECK TEST REPLACEMENT DECISION                            GRA         1794     A     
 GRA                                                                                       GRA         1795     A     
 GRA       MTA14    SA4    NTA                                                             GRA         1796     A     
 GRA                SA5    NAB                                                             GRA         1797     A     
 GRA                SA1    ABR                                                             GRA         1798     A     
 GRA                SA2    MRA                                                             GRA         1799     A     
 GRA                SX6    A0                                                              GRA         1800     A     
 GRA                MX7    0                                                               GRA         1801     A     
 GRA                SA6    TRD         TRD = TRM                                           GRA         1802     A     
 GRA                SA7    L.RND       L.RND = 0                                           GRA         1803     A     
 GRA                IX6    X4-X5       NTA = NTA - NAB  */ N. TENATIVE ASSIGNMENTS         GRA         1804     A     
 GRA                SA6    A4                                                              GRA         1805     A     
 GRA                MX7    -8                                                              GRA         1806     A     
 GRA                BX3    X7+X1                                                           GRA         1807     A     
 GRA                BX7    X3*X2       MRA = MRA & ( ABR + 77777400B )                     GRA         1808     A     
 GRA                SA7    A2                                                              GRA         1809     A     
 GRA                                                                                       GRA         1810     A     
 GRA                SA1    LTT                                                             GRA         1811     A     
 GRA                SX2    A0                                                              GRA         1812     A     
 GRA                SX0    B1                                                              GRA         1813     A     
 GRA                                                                                       GRA         1814     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3079    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      *         TRM = 0 , SCAN *RCT* AND SET *EU* BIT FOR ALL CANIDATES THAT           GRA         1815     A     
 GRA      *         ARE MARKED AS *TU* SO *IRA* WILL MATERIALIZE THEM IN AN                GRA         1816     A     
 GRA      *         X-REGISTER IN THE CASE THEY WERE ASSIGNED TO A B-REG.                  GRA         1817     A     
 GRA                                                                                       GRA         1818     A     
 GRA                SA3    L.RCT                                                           GRA         1819     A     
 GRA                SB5    59-CA.TUP                                                       GRA         1820     A     
 GRA                LX0    CA.EUP                                                          GRA         1821     A     
 GRA                SB7    B6+X3       CI = RCT;  LIM = RCT + L.RCT                        GRA         1822     A     
 GRA                SB4    B6                                                              GRA         1823     A     
 GRA                ZR     X1,MTA17    IF LTT = 0    */ NO *TU* GAMES                      GRA         1824     A     
 GRA                NZ     X2,MTA17    IF TRM " 0    */ *TU* BIT IS SUFFICIENT             GRA         1825     A     
 GRA                                                                                       GRA         1826     A     
 GRA       MTA15    SA5    B6                                                              GRA         1827     A     
 GRA                SB6    B6+3                                                            GRA         1828     A     
 GRA                LX4    B5,X5                                                           GRA         1829     A     
 GRA                PL     X4,MTA16    IF ^TU[CI]                                          GRA         1830     A     
 GRA                BX6    X0+X5       EU[CI] = 1                                          GRA         1831     A     
 GRA                SA6    A5                                                              GRA         1832     A     
 GRA       MTA16    LT     B6,B7,MTA15 IF CI < LIM                                         GRA         1833     A     
 GRA                                                                                       GRA         1834     A     
 GRA      *         SCAN *RCT* FOR CANIDATES THAT ARE *IA* AND *RA* AND BUMP               GRA         1835     A     
 GRA      *         *NOCC* OF THEIR INCREMENTS TO FORCE THEM TO A B-REGISTER.              GRA         1836     A     
 GRA                                                                                       GRA         1837     A     
 GRA       MTA17    SA1    MTAC                                                            GRA         1838     A     
 GRA                SA2    A1+B1                                                           GRA         1839     A     
 GRA                SA5    B7          CI = LIM                                            GRA         1840     A     
 GRA                LX0    CA.NOCCP-CA.EUP                                                 GRA         1841     A     
 GRA                SB3    3                                                               GRA         1842     A     
 GRA                                                                                       GRA         1843     A     
 GRA       MTA18    SA5    A5-B3       CI = CI - 3                                         GRA         1844     A     
 GRA                ZR     X5,MTA      IF [CI] = 0   */ END OF RCT                         GRA         1845     A     
 GRA                BX6    -X1+X5                                                          GRA         1846     A     
 GRA                NZ     X6,MTA18    IF ^(RA,VC,IA,RF)[CI]                               GRA         1847     A     
 GRA                BX6    X2*X5                                                           GRA         1848     A     
 GRA                NZ     X6,MTA18    IF KD[CI] ! ^RD[CI]                                 GRA         1849     A     
 GRA                SA3    A5+2        CCW = CI + 2                                        GRA         1850     A     
 GRA                LX3    -CC.INCP                                                        GRA         1851     A     
 GRA                SA4    B4+X3       CJ = RCT(INC[CCW])                                  GRA         1852     A     
 GRA                IX6    X0+X4                                                           GRA         1853     A     
 GRA                LX4    59-CA.CONP                                                      GRA         1854     A     
 GRA                PL     X4,MTA18    IF ^CON[CJ]   */ INC IS NOT A *CON*                 GRA         1855     A     
 GRA                SA6    A4          NOCC[CJ] = NOCC[CJ] + 1                             GRA         1856     A     
 GRA                EQ     MTA18                                                           GRA         1857     A     
 GRA                                                                                       GRA         1858     A     
 GRA       MTAC     BFMW   CA,(RA,VC,IA,RF)                                                GRA         1859     A     
 GRA                BFMW   CA,(KD,^RD)                                                     GRA         1860     A     
 GRA       AIR      TITLE  AIR - ASSIGN INDEX REGISTER                                     GRA         1861     A     
 GRA      **        AIR - ASSIGN INDEX REGISTER                                            GRA         1862     A     
 GRA      *                                                                                GRA         1863     A     
 GRA      *         ENTRY  (B4) = I, RCT INDEX OF CANIDATE                                 GRA         1864     A     
 GRA      *                (B6) = [O.RCT]                                                  GRA         1865     A     
 GRA      *                (X1) = INVF , = 1 IS INV IN LOOP, ELSE 0                        GRA         1866     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3080    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      *                                                                                GRA         1867     A     
 GRA      *         EXIT   (B2) = -REGNO ASSIGNED                                          GRA         1868     A     
 GRA      *                (A7,A7) = RCT(I)                                                GRA         1869     A     
 GRA      *                *RCT* ENTRY, RAT, NAB, ABR UPDATED                              GRA         1870     A     
 GRA                                                                                       GRA         1871     A     
 GRA       AIR1     SA2    A5+2        CCW = RCT(I+2)                                      GRA         1872     A     
 GRA                LX5    1+CA.RAP                                                        GRA         1873     A     
 GRA                BX7    X5                                                              GRA         1874     A     
 GRA                MX6    -CC.REG1L                                                       GRA         1875     A     
 GRA                LX2    -CC.REG1P                                                       GRA         1876     A     
 GRA                BX4    -X2+X6                                                          GRA         1877     A     
 GRA                SA7    A5+                                                             GRA         1878     A     
 GRA                SB2    X4          REGNO = REG1[CCW]                                   GRA         1879     A     
 GRA                                                                                       GRA         1880     A     
 GRA       AIR      ROUTINE                                                                GRA         1881     A     
 GRA                SA5    B6+B4       CAW = RCT(I)                                        GRA         1882     A     
 GRA                LX5    59-CA.RAP                                                       GRA         1883     A     
 GRA                MI     X5,AIR1     IF RA[CAW]    */ REG PREVIOUSLY ASSIGNED            GRA         1884     A     
 GRA                                                                                       GRA         1885     A     
 GRA                SX2    B1                                                              GRA         1886     A     
 GRA                SA4    ABR                                                             GRA         1887     A     
 GRA                SA3    NAB                                                             GRA         1888     A     
 GRA                NX7    B2,X4                                                           GRA         1889     A     
 GRA                IX6    X3-X2       NAB = NAB - 1                                       GRA         1890     A     
 GRA                SB2    B2-47       REGNO = 47 - NORMC( ABR )                           GRA         1891     A     
 GRA                SA6    A3                                                              GRA         1892     A     
 GRA                LX2    -B2,X2                                                          GRA         1893     A     
 GRA                BX7    -X2*X4      ABR = ABR & ^SHIFT(1,REGNO)                         GRA         1894     A     
 GRA                SA7    A4                                                              GRA         1895     A     
 GRA                SX6    -B2                                                             GRA         1896     A     
 GRA                SX7    B4                                                              GRA         1897     A     
 GRA                LX1    RA.INVP                                                         GRA         1898     A     
 GRA                BX7    X1+X7       INV[RAT(REGNO)] = INVF                              GRA         1899     A     
 GRA                SA7    RAT+X6      R1[RAT(REGNO)] = I  */ RAT POINTS TO RCT            GRA         1900     A     
 GRA                LX6    CC.REG1P                                                        GRA         1901     A     
 GRA                MX4    1                                                               GRA         1902     A     
 GRA                BX7    X4+X5       RA[CAW] = 1                                         GRA         1903     A     
 GRA                LX7    1+CA.RAP                                                        GRA         1904     A     
 GRA                SA7    A5                                                              GRA         1905     A     
 GRA                SA3    A5+2                                                            GRA         1906     A     
 GRA                BX6    X6+X3       REG1[RCT(I+2)] = REGNO                              GRA         1907     A     
 GRA                SA6    A3                                                              GRA         1908     A     
 GRA                EQ     AIR                                                             GRA         1909     A     
 GRA       DXA      TITLE  DXA - DETERMINE X-ASSIGNMENTS                                   GRA         1910     A     
 GRA      **        DXA - DETERMINE X-ASSIGNMENTS IN AN INNERMOST LOOP                     GRA         1911     A     
 GRA      *         FORM X-REGISTER CANIDATE TABLE AND SORT.                               GRA         1912     A     
 GRA      *         SELECT A MAX OF 4 CANIDATES AND SEE IF THE LOOP CAN BE CODED           GRA         1913     A     
 GRA      *         WITH THEM LOCKED IN REGISTERS.  COUNT NUMBER OF REMAINING              GRA         1914     A     
 GRA      *         MEMORY REFS IN THE LOOP AND MAKE THE X-ASSIGNMENTS.                    GRA         1915     A     
 GRA      *                                                                                GRA         1916     A     
 GRA      *         ENTRY  (XRF) = 0 , NO EXTERNAL REFS                                    GRA         1917     A     
 GRA      *                MAXW < 8 + NTA , X-REG ASSIGNMENT MAY BE POSSIBLE               GRA         1918     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3081    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      *                                                                                GRA         1919     A     
 GRA      *         EXIT   (MLW) = MAX REG WIDTH IN LOOP BODY AFTER X-ASSIGNMENT           GRA         1920     A     
 GRA      *                (NXC) = NUMBER OF X-CANIDATES ASSIGNED                          GRA         1921     A     
 GRA                                                                                       GRA         1922     A     
 GRA       DXAA     BFMW   CA,(VC,CON)                                                     GRA         1923     A     
 GRA                BFMW   CA,(RA,RF)                                                      GRA         1924     A     
 GRA                                                                                       GRA         1925     A     
 GRA       DXA      ROUTINE                                                                GRA         1926     A     
 GRA                SA5    NXC                                                             GRA         1927     A     
 GRA                NZ     X5,DXA4A    IF NXC " 0    */ X-REGS ASSIGNED IN *ERC*           GRA         1928     A     
 GRA                SA4    N.HB                                                            GRA         1929     A     
 GRA                NZ     X4,DXA      IF N.HB " 0   */ NOT AN INNERMOST LOOP              GRA         1930     A     
 GRA                                                                                       GRA         1931     A     
 GRA                SA1    NVC                                                             GRA         1932     A     
 GRA                ALLOC  RND,X1      ALLOC( RND , NVC )                                  GRA         1933     A     
 GRA                SA4    O.RCT                                                           GRA         1934     A     
 GRA                SA5    L.RCT                                                           GRA         1935     A     
 GRA                MX7    0                                                               GRA         1936     A     
 GRA                SA7    X2          SI = [O.RCT]; [SI] = 0                              GRA         1937     A     
 GRA                MX0    -CA.SORTL                                                       GRA         1938     A     
 GRA                SB7    X2+B1       SO = SI + 1                                         GRA         1939     A     
 GRA                LX0    CA.SORTP                                                        GRA         1940     A     
 GRA                SB6    X4          CO = [O.RCT]                                        GRA         1941     A     
 GRA                SA1    DXAA                                                            GRA         1942     A     
 GRA                SA2    A1+B1                                                           GRA         1943     A     
 GRA                SA5    B6+X5       CI = CO + L.RCT                                     GRA         1944     A     
 GRA                SB3    3                                                               GRA         1945     A     
 GRA                                                                                       GRA         1946     A     
 GRA      *         FORM X-CANIDATE TABLE AND SORT                                         GRA         1947     A     
 GRA                                                                                       GRA         1948     A     
 GRA       DXA1     SA5    A5-B3       CI = CI - 3                                         GRA         1949     A     
 GRA                ZR     X5,DXA2     IF [CI] = 0   */ END OF TABLE                       GRA         1950     A     
 GRA                BX6    X1*X5                                                           GRA         1951     A     
 GRA                ZR     X6,DXA1     IF ^( VC[CI] ! CON[CI] )                            GRA         1952     A     
 GRA                BX3    X2*X5                                                           GRA         1953     A     
 GRA                NZ     X3,DXA1     IF RA[CI] ! RF[CI]                                  GRA         1954     A     
 GRA                                                                                       GRA         1955     A     
 GRA                BX3    -X0*X5                                                          GRA         1956     A     
 GRA                SX4    A5-B6       I = CI - CO                                         GRA         1957     A     
 GRA                IX7    X3+X4                                                           GRA         1958     A     
 GRA                SA7    A7+B1       SI = SI + 1;  [SI] = SORT[CI] ! I                   GRA         1959     A     
 GRA                EQ     DXA1                                                            GRA         1960     A     
 GRA                                                                                       GRA         1961     A     
 GRA       DXA2     SB3    A7+B1       SI = SI + 1   */ LWA + 1                            GRA         1962     A     
 GRA                MX7    0                                                               GRA         1963     A     
 GRA                SX1    B3-B7       LEN = SI - SO                                       GRA         1964     A     
 GRA                SA7    L.RND       L.RND = 0                                           GRA         1965     A     
 GRA                SX6    DXA                                                             GRA         1966     A     
 GRA                SA6    CRWA        [CRWA] = DXA  */ FAIL EXIT ADDR                     GRA         1967     A     
 GRA                ZR     X1,DXA5     IF LEN = 0    */ GO COMPUTE MLW, N.LD, N.ST         GRA         1968     A     
 GRA                                                                                       GRA         1969     A     
 GRA                CALL   SHL         SORT( RND )                                         GRA         1970     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3082    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       GRA         1971     A     
 GRA      *         MOVE CANIDATES WITH HIGHEST PRIORITY TO *XCT*                          GRA         1972     A     
 GRA      *         AND SET *RA* BIT FOR WINNERS IN *RCT*.                                 GRA         1973     A     
 GRA                                                                                       GRA         1974     A     
 GRA                SB4    XCT         I = 0                                               GRA         1975     A     
 GRA                SB5    B4+4        LIM = 4                                             GRA         1976     A     
 GRA                MX0    1                                                               GRA         1977     A     
 GRA                LX0    1+CA.RAP                                                        GRA         1978     A     
 GRA                SB2    B4+                                                             GRA         1979     A     
 GRA                                                                                       GRA         1980     A     
 GRA       DXA3     SA1    B3-B1       SW = [SI-1]                                         GRA         1981     A     
 GRA                SA2    B6+X1                                                           GRA         1982     A     
 GRA                SX6    X1          J = XCT(I) = CO[SW]                                 GRA         1983     A     
 GRA                BX7    X0+X2       RA[RCT(J)] = 1                                      GRA         1984     A     
 GRA                SA6    B4                                                              GRA         1985     A     
 GRA                SB4    B4+B1       I = I + 1                                           GRA         1986     A     
 GRA                SA7    A2                                                              GRA         1987     A     
 GRA                SB3    B3-B1       SI = SI - 1                                         GRA         1988     A     
 GRA                EQ     B4,B5,DXA4  IF I = LIM    */ LIM CANIDATES COLLECTED            GRA         1989     A     
 GRA                GT     B3,B7,DXA3  IF SI > SO    */ NOT END OF SORT TABLE              GRA         1990     A     
 GRA                                                                                       GRA         1991     A     
 GRA      *         COMPUTE REG WIDTH OF LOOP, IF FAILURE, REDUCE NUMBER OF                GRA         1992     A     
 GRA      *         X-CANIDATES, ELSE MAKE FINAL ASSIGNMENTS                               GRA         1993     A     
 GRA                                                                                       GRA         1994     A     
 GRA       DXA4     SX6    B4-B2                                                           GRA         1995     A     
 GRA                SA6    NXC         NXC = I       */ N. X-CANIDATES                     GRA         1996     A     
 GRA                                                                                       GRA         1997     A     
 GRA       DXA4A    SX6    DXA6                                                            GRA         1998     A     
 GRA                SA6    CRWA        [CRWA] = DXA6 */ FAIL EXIT ADDRESS                  GRA         1999     A     
 GRA                                                                                       GRA         2000     A     
 GRA       DXA5     SX7    0                                                               GRA         2001     A     
 GRA                SA7    MLW         MLW = 0       */ MAX REG WITH OF LOOP               GRA         2002     A     
 GRA                                                                                       GRA         2003     A     
 GRA                CLCM   CRW         COMPUTE REG WIDTH                                   GRA         2004     A     
 GRA                SA1    N.HB                                                            GRA         2005     A     
 GRA                ZR     X1,DXA7     IF N.HB = 0   */ INNERMOST LOOP                     GRA         2006     A     
 GRA                                                                                       GRA         2007     A     
 GRA                EQ     DXA                                                             GRA         2008     A     
 GRA                                                                                       GRA         2009     A     
 GRA      *         CRW FAIL EXIT, REDUCE X-REG CANIDATE COUNT                             GRA         2010     A     
 GRA                                                                                       GRA         2011     A     
 GRA       DXA6     SA1    NXC                                                             GRA         2012     A     
 GRA                SA2    XCT-1+X1    I = XCT(NXC)                                        GRA         2013          I
          -FCC0811
 GRA                MX0    2                                                               GRA         2014          I
          -FCC0811
 GRA                SA3    B6+X2                                                           GRA         2015          I
          -FCC0811
 GRA                LX0    2+CA.RAFP                                                       GRA         2016          I
          -FCC0811
 GRA                SX6    X1-1                                                            GRA         2017          I
          -FCC0811
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3083    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA6    A1                                                              GRA         2018          I
          -FCC0811
 GRA                BX7    -X0*X3      (RA,IRA)RCT(J) = 0  */ CLEAR ASSIGNMENT             GRA         2019          I
          -FCC0811
 GRA                SA7    A3                                                              GRA         2020          I
          -FCC0811
 GRA                RJ     RXA         REMOVE LAST X-ASSIGNMENT                            FCC0811        8     A     
 GRA                NZ     X6,DXA5     IF NXC " 0    */ MORE CANIDATES LEFT                GRA         2021     A     
 GRA                                                                                       GRA         2022     A     
 GRA                EQ     DXA                                                             GRA         2023     A     
 GRA       DXA      SPACE  3,14                                                            GRA         2024     A     
 GRA      *         SUCCESS, ASSIGN CANIDATES TO REGISTERS                                 GRA         2025     A     
 GRA      *         CHECK NUMBER OF REMAINING STORES AND REMOVE X6,X7 FROM                 GRA         2026     A     
 GRA      *         CONSIDERATION IF THEIR ARE TOO MANY LEFT.                              GRA         2027     A     
 GRA                                                                                       GRA         2028     A     
 GRA       DXA7     CLCM   CMR         COUNT NUMBER OF MEMORY REFS LEFT IN LOOP            GRA         2029     A     
 GRA                                                                                       GRA         2030     A     
 GRA                SA5    NXC                                                             GRA         2031     A     
 GRA                ZR     X5,DXA      IF NXC = 0    */ NO X-CANIDATES                     GRA         2032     A     
 GRA                                                                                       GRA         2033     A     
 GRA                SA1    MRA                                                             GRA         2034     A     
 GRA                SA2    N.ST                                                            GRA         2035     A     
 GRA                LX1    -16         AXR = SHIFT(MRA,-16)                                GRA         2036     A     
 GRA                MX0    0           STL = 0                                             GRA         2037     A     
 GRA                ZR     X2,DXA8     IF N.ST = 0   */ NO STORES LEFT IN THE LOOP         GRA         2038     A     
 GRA                SX0    1S6         STL = 1S6     */ LOCKOUT X6                         GRA         2039     A     
 GRA                AX3    B1,X2                                                           GRA         2040     A     
 GRA                ZR     X3,DXA8     IF N.ST = 1   */ ONLY 1 ST PER BLOCK                GRA         2041     A     
 GRA                SX0    3S6         STL = 3S6     */ LOCKOUT THE STORE REGS             GRA         2042     A     
 GRA                                                                                       GRA         2043     A     
 GRA      *         PICK THE SET OF REGISTERS USED FOR THE *LD* ONLY CANIDATES             GRA         2044     A     
 GRA      *         SO THAT SUFFICIENT LD REGS WILL BE AVAIL FOR THE OTHER LD"S.           GRA         2045     A     
 GRA                                                                                       GRA         2046     A     
 GRA       DXA8     SA5    N.LD                                                            GRA         2047     A     
 GRA                SA0    321670B     LRS = 076123  */ LD ONLY REG SET                    GRA         2048     A     
 GRA                SB2    X5-3                                                            GRA         2049     A     
 GRA                GT     B2,DXA9     IF N.LD > 3                                         GRA         2050     A     
 GRA                SA0    367021B     LRS = 120763                                        GRA         2051     A     
 GRA                ZR     B2,DXA9     IF N.LD = 3                                         GRA         2052     A     
 GRA                SA0    670321B     LRS = 123076                                        GRA         2053     A     
 GRA                                                                                       GRA         2054     A     
 GRA       DXA9     SA2    NXC                                                             GRA         2055     A     
 GRA                SA3    O.RCT                                                           GRA         2056     A     
 GRA                BX1    -X0*X1      AXR = AXR & ^STL                                    GRA         2057     A     
 GRA                SB4    XCT         I = 0                                               GRA         2058     A     
 GRA                SB5    B4+X2       L = NXC                                             GRA         2059     A     
 GRA                MX2    -3                                                              GRA         2060     A     
 GRA                SB6    X3                                                              GRA         2061     A     
 GRA                SX0    1                                                               GRA         2062     A     
 GRA                                                                                       GRA         2063     A     
 GRA      *         PICK X-REGISTERS FOR THE CANIDATES AS A FUNCTION OF THEIR              GRA         2064     A     
 GRA      *         TYPE AND USEAGE.                                                       GRA         2065     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3084    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       GRA         2066     A     
 GRA       DXA10    SA4    B4          J = XCT(I)                                          GRA         2067     A     
 GRA                SA5    B6+X4       CAW = RCT(J)                                        GRA         2068     A     
 GRA                SX7    321670B     XRS = 076123  */ X-REG SET IN SEARCH ORDER          GRA         2069     A     
 GRA                SB2    X5                                                              GRA         2070     A     
 GRA                LX5    59-CA.CONP                                                      GRA         2071     A     
 GRA                MI     X5,DXA11    IF CON[CAW]                                         GRA         2072     A     
 GRA                ZR     B2,DXA11    IF UDI[CAW] = 0  */ COMPILER TEMP                   GRA         2073     A     
 GRA                                                                                       GRA         2074     A     
 GRA                LX5    CA.CONP-CA.DEFP                                                 GRA         2075     A     
 GRA                SX7    A0          XRS = LRS                                           GRA         2076     A     
 GRA                PL     X5,DXA11    IF ^DEF[CAW]  */ LOAD ONLY                          GRA         2077     A     
 GRA                SX7    321067B     XRS = 760123                                        GRA         2078     A     
 GRA                                                                                       GRA         2079     A     
 GRA       DXA11    BX6    -X2*X7      REGN = XRS & 7                                      GRA         2080     A     
 GRA                AX7    3           XRS = SHIFT(XRS,-3)                                 GRA         2081     A     
 GRA                SB2    X6                                                              GRA         2082     A     
 GRA                LX3    B2,X0       RBIT = SHIFT(1,REGN)                                GRA         2083     A     
 GRA                BX5    X3*X1                                                           GRA         2084     A     
 GRA                ZR     X5,DXA11    IF AXR & RBIT = 0 */ REG NOT AVAILABLE              GRA         2085     A     
 GRA                                                                                       GRA         2086     A     
 GRA                SA5    A5                                                              GRA         2087     A     
 GRA                BX1    -X3*X1      AXR = AXR & ^RBIT  */ REMOVE FROM AVAIL SET         GRA         2088     A     
 GRA                SX6    X6+20B      REGN = REGN + 20B  */ X-REG NUMBER                  GRA         2089     A     
 GRA                SX4    X4          R1[RAT(REGNO)] = J                                  GRA         2090     A     
 GRA                LX5    -CA.DEFP                                                        GRA         2091     A     
 GRA                BX3    -X5*X0      INV[RAT(REGNO)] = ^DEF[RCT(J)]                      GRA         2092     A     
 GRA                SA5    A5+2                                                            GRA         2093     A     
 GRA                LX3    RA.INVP                                                         GRA         2094     A     
 GRA                BX7    X3+X4                                                           GRA         2095     A     
 GRA                SA7    RAT+X6                                                          GRA         2096     A     
 GRA                LX6    CC.REG1P                                                        GRA         2097     A     
 GRA                BX6    X6+X5       REG1[RCT(J+2)] = REGN                               GRA         2098     A     
 GRA                SB4    B4+1        I = I + 1                                           GRA         2099     A     
 GRA                SA6    A5                                                              GRA         2100     A     
 GRA                LT     B4,B5,DXA10 IF I < NXC                                          GRA         2101     A     
 GRA                                                                                       GRA         2102     A     
 GRA                LX1    16                                                              GRA         2103     A     
 GRA                BX6    X1                                                              GRA         2104     A     
 GRA                SA6    MRA         MRA = SHIFT(AXR,16)                                 GRA         2105     A     
 GRA                EQ     DXA                                                             GRA         2106     A     
 GRA       CRW      TITLE  CRW - COMPUTE REGISTER WIDTH                                    GRA         2107     A     
 GRA      **        CRW - COMPUTE REGISTER WIDTH OF A SEQUENCE                             GRA         2108     A     
 GRA      *                                                                                GRA         2109     A     
 GRA      *         LINK WORDS CONTAIN *RCT* ORDINALS OF CANIDATES AND *RA* BIT            GRA         2110     A     
 GRA      *         IS SET IF IT IS ASSIGNED TO A REGISTER.                                GRA         2111     A     
 GRA      *         CANIDATES PLACED IN LOCKED REGISTERS ARE ASSUMED TO BE *LIVE*          GRA         2112     A     
 GRA      *         THORUGHOUT THE LOOP.                                                   GRA         2113     A     
 GRA      *                                                                                GRA         2114     A     
 GRA      *         ENTRY  (X0) = R-NUMBER MASK                                            GRA         2115     A     
 GRA      *                (X5) = O.SEQ                                                    GRA         2116     A     
 GRA      *                (NXC) = NUMBER OF LOCKED X-REGISTERS                            GRA         2117     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3085    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      *                                                                                GRA         2118     A     
 GRA      *         EXIT   (B6) = [O.RCT]                                                  GRA         2119     A     
 GRA      *                (MLW) = MAX REG WIDTH OF LOOP                                   GRA         2120     A     
 GRA                                                                                       GRA         2121     A     
 GRA                DESCRIBE I.,60     LINK WORD                                           GRA         2122     A     
 GRA                DEFINE 24                                                              GRA         2123     A     
 GRA       USES     DEFINE 18          REMAINING USES OF NON CANIDATES                     GRA         2124     A     
 GRA       CO       DEFINE 18          CANIDATE ORDINAL ( *RCT* )                          GRA         2125     A     
 GRA                                                                                       GRA         2126     A     
 GRA       CRWA     CON    377777B     FAIL EXIT ADDRESS PROCESSOR                         GRA         2127     A     
 GRA       ASPA     BFMW   D,(BM,ST)                                                       GRA         2128     A     
 GRA                                                                                       GRA         2129     A     
 GRA       CRW      ROUTINE                                                                GRA         2130     A     
 GRA                SA1    L.SEQ                                                           GRA         2131     A     
 GRA                SB2    X1-8                                                            GRA         2132     A     
 GRA                LE     B2,CRW      IF L.SEQ @ 8  */ EMPTY BLOCK                        GRA         2133     A     
 GRA                                                                                       GRA         2134     A     
 GRA                RJ     SLW         SAVE LINK WORDS                                     GRA         2135     A     
 GRA                SA3    O.RCT                                                           GRA         2136     A     
 GRA                S"TB"  X5+3        TB = O.SEQ + 3                                      GRA         2137     A     
 GRA                SB6    X3                                                              GRA         2138     A     
 GRA                                                                                       GRA         2139     A     
 GRA      *         FIRST ADJUST THE PRED OF STORES THAT ARE LOCKED IN REGISTERS           GRA         2140     A     
 GRA                                                                                       GRA         2141     A     
 GRA                SA1    ASPA                                                            GRA         2142     A     
 GRA                SA4    "TB"-B1     DI = TB - 1                                         GRA         2143     A     
 GRA                SB4    CA.RAP-CA.LXP                                                   GRA         2144     A     
 GRA                EQ     ASP2                                                            GRA         2145     A     
 GRA                                                                                       GRA         2146     A     
 GRA       ASP1     UX6    B2,X5                                                           GRA         2147     A     
 GRA                ZR     B2,CRW0     IF OC[R1] = OC.EOQ                                  GRA         2148     A     
 GRA                                                                                       GRA         2149     A     
 GRA       ASP2     SA4    A4+4        DI = DI + 4                                         GRA         2150     A     
 GRA                BX6    X1*X4                                                           GRA         2151     A     
 GRA                LX4    59-D.BMP                                                        GRA         2152     A     
 GRA                ZR     X6,ASP2     IF ^( BM[DI] ! ST[DI] )                             GRA         2153     A     
 GRA                                                                                       GRA         2154     A     
 GRA                SA5    A4-2        R1 = DI - 2                                         GRA         2155     A     
 GRA                MI     X4,ASP1     IF BM[DI]                                           GRA         2156     A     
 GRA                                                                                       GRA         2157     A     
 GRA                SA2    A4+B1       LI = DI + 1;  I = CO[LI]                            GRA         2158     A     
 GRA                SA3    B6+X2       CI = RCT(I)                                         GRA         2159     A     
 GRA                LX3    59-CA.RAP                                                       GRA         2160     A     
 GRA                PL     X3,ASP2     IF ^RA[CI]                                          GRA         2161     A     
 GRA                                                                                       GRA         2162     A     
 GRA                LX6    B4,X3                                                           GRA         2163     A     
 GRA                LX3    CA.RAP-CA.PSPP                                                  GRA         2164     A     
 GRA                PL     X6,ASP3     IF ^LX[CI]    */ DEAD ON EXIT                       GRA         2165     A     
 GRA                PL     X3,ASP2     IF ^PSP[CI]   */ STORE CANT MOVE                    GRA         2166     A     
 GRA                                                                                       GRA         2167     A     
 GRA       ASP3     BX5    "RN"X5      R = RI[R1]                                          GRA         2168     A     
 GRA                SX7    X2+                                                             GRA         2169     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3086    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA7    "TB"+X5     LI = TB + R;  [LI] = I                              GRA         2170     A     
 GRA                EQ     ASP2                                                            GRA         2171     A     
 GRA                                                                                       GRA         2172     A     
 GRA      *         INITIALIZE FOR THE REG WIDTH CALCULATION                               GRA         2173     A     
 GRA                                                                                       GRA         2174     A     
 GRA       CRW0     SA2    NXC                                                             GRA         2175     A     
 GRA                SB4    X2          RW = NXC      */ REG WIDTH                          GRA         2176     A     
 GRA                SA0    X2                                                              GRA         2177     A     
 GRA                SB5    X2          MW = NXC      */ MAX WIDTH                          GRA         2178     A     
 GRA                MX2    -D.USESL                                                        GRA         2179     A     
 GRA                SX1    B1                                                              GRA         2180     A     
 GRA                LX2    I.USESP                                                         GRA         2181     A     
 GRA                SA4    "TB"-1      DI = TB - 1                                         GRA         2182     A     
 GRA                SB3    OC.RS                                                           GRA         2183     A     
 GRA                                                                                       GRA         2184     A     
 GRA      *         ADVANCE TO NEXT INSTRUCTION, JUMP ON TYPE                              GRA         2185     A     
 GRA                                                                                       GRA         2186     A     
 GRA       CRW1     SA5    A4+2        R1 = DI + 2                                         GRA         2187     A     
 GRA                SA4    A5+2        DI = R1 + 2                                         GRA         2188     A     
 GRA                UX5    B2,X5                                                           GRA         2189     A     
 GRA                LX4    58-D.TYP                                                        GRA         2190     A     
 GRA                IX7    X4+X4                                                           GRA         2191     A     
 GRA                MI     X4,CRW3     IF TYPE[DI] = III ! IV                              GRA         2192     A     
 GRA                MI     X7,CRW2     IF TYPE[DI] = II                                    GRA         2193     A     
 GRA                                                                                       GRA         2194     A     
 GRA      *         TYPE I                                                                 GRA         2195     A     
 GRA                                                                                       GRA         2196     A     
 GRA                LX4    1+D.TYP-D.^DP     RNUMS = RJRKRI[R1]                            GRA         2197     A     
 GRA                MI     X4,CRW7     IF ^D[DI]                                           GRA         2198     A     
 GRA                AX5    R1.RIL      RNUMS = RJRK[R1]                                    GRA         2199     A     
 GRA                EQ     CRW7                                                            GRA         2200     A     
 GRA                                                                                       GRA         2201     A     
 GRA      *         TYPE II                                                                GRA         2202     A     
 GRA                                                                                       GRA         2203     A     
 GRA       CRW2     LX4    1+D.TYP-D.^DP                                                   GRA         2204     A     
 GRA                NE     B2,B3,CRW9  IF OC[R1] " OC.RS                                   GRA         2205     A     
 GRA                EQ     CRW1                                                            GRA         2206     A     
 GRA                                                                                       GRA         2207     A     
 GRA      *         TYPE IV                                                                GRA         2208     A     
 GRA                                                                                       GRA         2209     A     
 GRA       CRW3     PL     X7,CRW4     IF TYPE[DI] = III                                   GRA         2210     A     
 GRA                SB4    A0+         RW = NXC                                            GRA         2211     A     
 GRA                NZ     B2,CRW1     IF OC[R1] " OC.EOQ                                  GRA         2212     A     
 GRA                                                                                       GRA         2213     A     
 GRA                RJ     RLW         RESTORE LINK WORDS                                  GRA         2214     A     
 GRA                SA1    MLW                                                             GRA         2215     A     
 GRA                SX6    B5                                                              GRA         2216     A     
 GRA                SB3    X1                                                              GRA         2217     A     
 GRA                GE     B3,B5,CRW   MLW = MAX( MLW , MW )                               GRA         2218     A     
 GRA                SA6    A1+                                                             GRA         2219     A     
 GRA                EQ     CRW                                                             GRA         2220     A     
 GRA                                                                                       GRA         2221     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3087    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      *         TYPE III                                                               GRA         2222     A     
 GRA                                                                                       GRA         2223     A     
 GRA       CRW4     LX4    1+D.TYP-D.^DP     RNUMS = RI[R1]                                GRA         2224     A     
 GRA                MI     X4,CRW5     IF ^D[DI]                                           GRA         2225     A     
 GRA                MX5    0           RNUMS = 0                                           GRA         2226     A     
 GRA       CRW5     SA3    A5+B1       R2 = R1 + 1                                         GRA         2227     A     
 GRA                BX5    "RN"X5                                                          GRA         2228     A     
 GRA                LX3    -IH.RFP                                                         GRA         2229     A     
 GRA                BX6    "RN"X3      R = RF[R2]                                          GRA         2230     A     
 GRA                ZR     X6,CRW7     IF R = 0                                            GRA         2231     A     
 GRA                LX5    R1.RIL                                                          GRA         2232     A     
 GRA                BX5    X6+X5       RNUMS = SHIFT(RNUMS,R1.RIL) ! R                     GRA         2233     A     
 GRA                                                                                       GRA         2234     A     
 GRA      *         DECREMENT USES OF OPERANDS ( RNUMS )                                   GRA         2235     A     
 GRA                                                                                       GRA         2236     A     
 GRA       CRW7     BX7    "RN"X5      R = RI[RNUMS]                                       GRA         2237     A     
 GRA                AX5    R1.RIL      RNUMS = SHIFT(RNUMS,-R1.RIL)                        GRA         2238     A     
 GRA                ZR     X7,CRW8     IF R = 0                                            GRA         2239     A     
 GRA                                                                                       GRA         2240     A     
 GRA                SA3    "TB"+X7     LI = TB + R                                         GRA         2241     A     
 GRA                LX3    -I.USESP                                                        GRA         2242     A     
 GRA                SB2    X3+         U = USES[LI]                                        GRA         2243     A     
 GRA                ZR     B2,CRW8     IF U = 0      */ LOCKED IN A REGISTER               GRA         2244     A     
 GRA                IX6    X3-X1       USES[LI] = USES[LI] - 1                             GRA         2245     A     
 GRA                LX6    I.USESP                                                         GRA         2246     A     
 GRA                SA6    A3                                                              GRA         2247     A     
 GRA                GT     B2,B1,CRW8  IF U > 1      */ NOT LAST USE                       GRA         2248     A     
 GRA                SB4    B4-B1       RW = RW - 1                                         GRA         2249     A     
 GRA       CRW8     NZ     X5,CRW7     IF RNUMS " 0                                        GRA         2250     A     
 GRA                                                                                       GRA         2251     A     
 GRA      *         ADVANCE *RW* TO ACCOUNT FOR THE NEW RESULT                             GRA         2252     A     
 GRA                                                                                       GRA         2253     A     
 GRA       CRW9     SA3    A4+B1       LI = DI + 1                                         GRA         2254     A     
 GRA                MI     X4,CRW1     IF ^D[DI]     */ ^DEF A NEW RESULT                  GRA         2255     A     
 GRA                SA5    B6+X3                                                           GRA         2256     A     
 GRA                LX5    59-CA.RAP                                                       GRA         2257     A     
 GRA                MI     X5,CRW1     IF RA[RCT(CO[LI])]  */ IN A LOCKED REG              GRA         2258     A     
 GRA                                                                                       GRA         2259     A     
 GRA                LX4    D.^DP-D.PRSP                                                    GRA         2260     A     
 GRA                PL     X4,CRW10    IF ^PRS[CI]                                         GRA         2261     A     
 GRA                                                                                       GRA         2262     A     
 GRA                SA5    A3+B1       R1RS = LI + 1  */ R1 OF FOLLOWING RS                GRA         2263     A     
 GRA                LX5    58-R1.SOP-SO.RTP                                                GRA         2264     A     
 GRA                PL     X5,CRW1     IF SORT[R1RS] " 2  */ NOT TO AN X-REGISTER          GRA         2265     A     
 GRA                                                                                       GRA         2266     A     
 GRA       CRW10    LX4    1+D.PRSP-D.USESP+I.USESP                                        GRA         2267     A     
 GRA                BX5    -X2*X4                                                          GRA         2268     A     
 GRA                SB4    B4+B1       RW = RW + 1                                         GRA         2269     A     
 GRA                BX6    X5+X3       USES[LI] = USES[DI]                                 GRA         2270     A     
 GRA                SA6    A3                                                              GRA         2271     A     
 GRA                LE     B4,B5,CRW1  IF RW @ MW                                          GRA         2272     A     
 GRA                                                                                       GRA         2273     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3088    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SB5    B4          MW = RW       */ SET NEW MAX                        GRA         2274     A     
 GRA                SB2    9                                                               GRA         2275     A     
 GRA                LT     B5,B2,CRW1  IF MW < 9     */ HAVENT JAMMED THE REGS             GRA         2276     A     
 GRA                                                                                       GRA         2277     A     
 GRA                RJ     RLW         RESTORE LINK WORDS                                  GRA         2278     A     
 GRA                SA1    CRWA                                                            GRA         2279     A     
 GRA                SX6    B2                                                              GRA         2280     A     
 GRA                SB3    X1                                                              GRA         2281     A     
 GRA                SA6    MLW         MLW = 9                                             GRA         2282     A     
 GRA                JP     B3          JUMP( [CRWA] )  */ EXIT TO FAIL ADDRESS             GRA         2283     A     
 GRA       SLW      SPACE  3,14        SLW                                                 GRA         2284     A     
 GRA      **        SLW - SAVE LINK WORDS                                                  GRA         2285     A     
 GRA      *                                                                                GRA         2286     A     
 GRA      *         ENTRY  (X1) = L.SEQ                                                    GRA         2287     A     
 GRA      *                                                                                GRA         2288     A     
 GRA      *         EXIT   (X5) = [O.SEQ]                                                  GRA         2289     A     
 GRA                                                                                       GRA         2290     A     
 GRA       SLW      ROUTINE                                                                GRA         2291     A     
 GRA                AX1    2                                                               GRA         2292     A     
 GRA                SB2    X1-2                                                            FCC2051        6     A     
 GRA                ZR     B2,SLW      IF L.SEQ = 8  */ EMPTY BLOCK                        FCC2051        7     A     
 GRA                ALLOC  RND,X1      ALLOC( RND , L.SEQ/4 )                              GRA         2293     A     
 GRA                SA5    O.SEQ                                                           GRA         2294     A     
 GRA                SB2    X1-2        I = L.SEQ/4 - 2                                     GRA         2295     A     
 GRA                SA4    X5+7        SI = O.SEQ + 7                                      GRA         2296     A     
 GRA                BX6    X4                                                              GRA         2297     A     
 GRA                SA6    X2          RI = [O.RND];  [RI] = [SI]                          GRA         2298     A     
 GRA                                                                                       GRA         2299     A     
 GRA       SLW1     SA4    A4+4        SI = SI + 4                                         GRA         2300     A     
 GRA                SB2    B2-B1       I = I - 1                                           GRA         2301     A     
 GRA                BX6    X4                                                              GRA         2302     A     
 GRA                SA6    A6+B1       RI = RI + 1;  [RI] = [SI]                           GRA         2303     A     
 GRA                NZ     B2,SLW1     IF I " 0                                            GRA         2304     A     
 GRA                                                                                       GRA         2305     A     
 GRA                EQ     SLW                                                             GRA         2306     A     
 GRA       RLW      SPACE  2           RLW                                                 GRA         2307     A     
 GRA      **        RLW - RESTORE LINK WORDS                                               GRA         2308     A     
 GRA      *                                                                                GRA         2309     A     
 GRA      *         PRESERVES  B - 2, 3, 5, 6, 7                                           GRA         2310     A     
 GRA                                                                                       GRA         2311     A     
 GRA       RLW      ROUTINE                                                                GRA         2312     A     
 GRA                SA1    O.RND                                                           GRA         2313     A     
 GRA                SA2    L.SEQ                                                           GRA         2314     A     
 GRA                SB4    4                                                               GRA         2315     A     
 GRA                SA3    X1          RI = [O.RND]                                        GRA         2316     A     
 GRA                AX2    2                                                               GRA         2317     A     
 GRA                SX7    X2-2        I = L.SEQ/4 - 2                                     GRA         2318     A     
 GRA                ZR     X7,RLW      IF I = 0                                            FCC2051        8     A     
 GRA                SA5    O.SEQ                                                           GRA         2319     A     
 GRA                BX6    X3                                                              GRA         2320     A     
 GRA                SA6    X5+7        SI = O.SEQ + 7;  [SI] = [RI]                        GRA         2321     A     
 GRA                SX2    B1                                                              GRA         2322     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3089    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       GRA         2323     A     
 GRA       RLW1     SA3    A3+B1       RI = RI + 1                                         GRA         2324     A     
 GRA                IX7    X7-X2       I = I - 1                                           GRA         2325     A     
 GRA                BX6    X3                                                              GRA         2326     A     
 GRA                SA6    A6+B4       SI = SI + 4;  [SI] = [RI]                           GRA         2327     A     
 GRA                NZ     X7,RLW1     IF I " 0                                            GRA         2328     A     
 GRA                                                                                       GRA         2329     A     
 GRA                SA7    L.RND       L.RND = 0                                           GRA         2330     A     
 GRA                EQ     RLW                                                             GRA         2331     A     
 GRA       CMR      TITLE  CMR - COUNT MEMORY REFERENCES                                   GRA         2332     A     
 GRA      **        CMR - COUNT REMAINING MEMORY REFERENCES IN A BLOCK                     GRA         2333     A     
 GRA      *         THE PURPOSE OF THIS ROUTINE IS TO SEE HOW MANY LOADS AND               GRA         2334     A     
 GRA      *         STORES ARE LEFT IN THE LOOP SO WE CAN MAKE AN INTELLIGENT              GRA         2335     A     
 GRA      *         DECISION ABOUT ASSIGNING STORE REGISTERS IN *DXA* AND LOAD             GRA         2336     A     
 GRA      *         REGISTERS IN *DAA* WHEN TRYING TO SETUP PREFETCH CODE.                 GRA         2337     A     
 GRA      *         IN THE CASE THAT A STORE CANNOT MOVE OUT OF A LOOP THIS                GRA         2338     A     
 GRA      *         SCHEME BACKFIRES AND THE CANIDATE WILL PROBABELY GET ASSIGNED          GRA         2339     A     
 GRA      *         TO A LOAD REGISTER, FORCEING TRANSMITS IN AND OUT OF THE LOOP.         GRA         2340     A     
 GRA      *                                                                                GRA         2341     A     
 GRA      *         ENTRY  (X5) = O.SEQ                                                    GRA         2342     A     
 GRA      *                                                                                GRA         2343     A     
 GRA      *         EXIT   N.MR, N.ST UPDATED                                              GRA         2344     A     
 GRA                                                                                       GRA         2345     A     
 GRA       CMRA     BFMW   D,(BM,LD,ST)                                                    GRA         2346     A     
 GRA                                                                                       GRA         2347     A     
 GRA       CMR0     SX6    B4          N.LD = SLD                                          GRA         2348     A     
 GRA                SX7    B7                                                              GRA         2349     A     
 GRA                SA6    A1                                                              GRA         2350     A     
 GRA                SA7    A1+B1                                                           GRA         2351     A     
 GRA                                                                                       GRA         2352     A     
 GRA       CMR      ROUTINE                                                                GRA         2353     A     
 GRA                SA1    N.LD                                                            GRA         2354     A     
 GRA                SA2    N.ST                                                            GRA         2355     A     
 GRA                SA3    O.RCT                                                           GRA         2356     A     
 GRA                SA4    X5+2        DI = O.SEQ + 2                                      GRA         2357     A     
 GRA                SB3    B0          NMR = 0       */ MEM REFS IN BLOCK                  GRA         2358     A     
 GRA                SA5    CMRA                                                            GRA         2359     A     
 GRA                SB4    X1          SLD = N.LD    */ SUM OF *LD*"S                      GRA         2360     A     
 GRA                BX0    X5                                                              GRA         2361     A     
 GRA                SB5    B0          NST = 0       */ *ST*"S IN BLOCK                    GRA         2362     A     
 GRA                SB6    X3                                                              GRA         2363     A     
 GRA                SB7    X2          MST = N.ST    */ MAX *ST*"S SO FAR                  GRA         2364     A     
 GRA                EQ     CMR4                                                            GRA         2365     A     
 GRA                                                                                       GRA         2366     A     
 GRA      *         PROCESS BOUNDARY MARKER                                                GRA         2367     A     
 GRA                                                                                       GRA         2368     A     
 GRA       CMR1     SB3    B3-B5       NMR = NMR - NST                                     GRA         2369     A     
 GRA                LE     B5,B7,CMR2  N.ST = MAX( NST , N.ST )                            GRA         2370     A     
 GRA                SB7    B5                                                              GRA         2371     A     
 GRA       CMR2     SA5    A4-2        R1 = DI - 2                                         GRA         2372     A     
 GRA                UX6    B2,X5                                                           GRA         2373     A     
 GRA                SB4    B4+B3       SLD = SLD + NMR                                     GRA         2374     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3090    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                ZR     B2,CMR0     IF OC[R1] = OC.EOQ                                  GRA         2375     A     
 GRA                                                                                       GRA         2376     A     
 GRA                SB3    B0          NMR = 0                                             GRA         2377     A     
 GRA                SB5    B0          NST = 0                                             GRA         2378     A     
 GRA                                                                                       GRA         2379     A     
 GRA      *         ADVANCE TO NEXT INSTRUCTION, CHECK FOR MEMORY REFERENCE                GRA         2380     A     
 GRA                                                                                       GRA         2381     A     
 GRA       CMR4     SA4    A4+4        DI = DI + 4                                         GRA         2382     A     
 GRA                BX7    X0*X4                                                           GRA         2383     A     
 GRA                LX4    59-D.BMP                                                        GRA         2384     A     
 GRA                ZR     X7,CMR4     IF ^(BM,LD,ST)[DI]                                  GRA         2385     A     
 GRA                                                                                       GRA         2386     A     
 GRA                MI     X4,CMR1     IF BM[DI]                                           GRA         2387     A     
 GRA                LX4    D.BMP-D.L2P                                                     GRA         2388     A     
 GRA                MI     X4,CMR4     IF L2[DI]     */ LEVEL 2 LD/ST                      GRA         2389     A     
 GRA                                                                                       GRA         2390     A     
 GRA      *         MEMORY REF, COUNT IT IF NOT ASSIGNED TO A REGISTER                     GRA         2391     A     
 GRA                                                                                       GRA         2392     A     
 GRA                SA3    A4+B1       LI = DI + 1;  I = CO[LI]                            GRA         2393     A     
 GRA                LX7    59-D.LDP                                                        GRA         2394     A     
 GRA                SA2    B6+X3       CI = RCT(I)                                         GRA         2395     A     
 GRA                LX2    59-CA.RAP                                                       GRA         2396     A     
 GRA                PL     X2,CMR6     IF ^RA[CI]    */ NOT IN A REG                       GRA         2397     A     
 GRA                                                                                       GRA         2398     A     
 GRA      *         COUNT STORE IF WE CANT MOVE IT OUT                                     GRA         2399     A     
 GRA                                                                                       GRA         2400     A     
 GRA                MI     X7,CMR4     IF LD[DI]                                           GRA         2401     A     
 GRA                LX2    CA.RAP-CA.LXP                                                   GRA         2402     A     
 GRA                PL     X2,CMR4     IF ^LX[CI]    */ DEAD ON EXIT                       GRA         2403     A     
 GRA                LX2    CA.LXP-CA.PSPP                                                  GRA         2404     A     
 GRA                MI     X2,CMR4     IF PSP[DI]    */ POST STORE POSSIBLE                GRA         2405     A     
 GRA                                                                                       GRA         2406     A     
 GRA       CMR6     SB3    B3+B1       NMR = NMR + 1                                       GRA         2407     A     
 GRA                MI     X7,CMR4     IF LD[DI]                                           GRA         2408     A     
 GRA                SB5    B5+B1       NST = NST + 1                                       GRA         2409     A     
 GRA                EQ     CMR4                                                            GRA         2410     A     
 GRA       DAA      TITLE  DAA - DETERMINE A-ASSIGNMENTS ( PREFETCHS )                     GRA         2411     A     
 GRA      **        DAA - DETERMINE A-ASSIGNMENTS ( PREFETCHS )                            GRA         2412     A     
 GRA      *                                                                                GRA         2413     A     
 GRA      *         THE CRITERIA FOR PREFETCHING FALL INTO TWO CATEGORIES -                GRA         2414     A     
 GRA      *         1) THAT THE LOOP BE SUFFICIENTLY SMALL SO WE CAN DO IT.                GRA         2415     A     
 GRA      *         2) THE RESTRICTIONS THAT THE PREFETCH CANIDATES MUST MEET.             GRA         2416     A     
 GRA      *         SOME OF THE RESTRICTIONS ARE NATURAL, WHILE OTHERS ARE                 GRA         2417     A     
 GRA      *         ARTIFICAL AND COULD BE RELAXED IF WE HAD MORE INFORMATION.             GRA         2418     A     
 GRA      *                                                                                GRA         2419     A     
 GRA      *         EXIT   (NAA) = N. A-ASSIGNMENTS                                        GRA         2420     A     
 GRA      *                ACT(I) = 24/RCT-INC INFO,18/,18/X-REGNO OF PREFETCH             GRA         2421     A     
 GRA                                                                                       GRA         2422     A     
 GRA       DAAA     BFMW   D,(LD,BM)                                                       GRA         2423     A     
 GRA                BFMW   CA,(RA,CON)                                                     GRA         2424     A     
 GRA       DAAB     BFMW   CA,(RA,VC)                                                      GRA         2425     A     
 GRA                                                                                       GRA         2426     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3091    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA       DAA      ROUTINE                                                                GRA         2427     A     
 GRA                SA1    MLW                                                             GRA         2428     A     
 GRA                SA2    N.EBB                                                           GRA         2429     A     
 GRA                SX6    X1-8                                                            GRA         2430          I
          -FCC0603
 GRA                PL     X6,DAA      IF MLW > 7    */ LOOP IS TOO WIDE                   GRA         2431          I
          -FCC0603
 GRA                SX5    X1-2                                                            GRA         2432          I
          -FCC0603
 GRA                SX6    X1-8                                                            FCC0603       23     A     
 GRA                MI     X6,DAA0     IF MLW < 8                                          FCC0603       24     A     
 GRA                NZ     X6,DAA      IF MLW > 8                                          FCC0603       25     A     
 GRA                SB2    X2                                                              FCC0603       26     A     
 GRA                GT     B2,B1,DAA   IF N.EBB > 1                                        FCC0603       27     A     
 GRA                SA3    L.SEQ                                                           FCC0603       28     A     
 GRA                SX6    X3-240B                                                         FCC0603       29     A     
 GRA                PL     X6,DAA      IF L.SEQ > 240B  */ MAGIC NUMBER                    FCC0603       30     A     
 GRA       DAA0     SX5    X1-2                                                            FCC0603       31          I
          -FCC1127
 GRA                MI     X5,DAA      IF MLW < 2    */ MOVE LOOP                          GRA         2433          I
          -FCC1127
 GRA                SX7    X2-3                                                            GRA         2434          I
          -FCC1127
 GRA       DAA0     SX7    X2-3                                                            FCC1127        4     A     
 GRA                PL     X7,DAA      IF N.EBB > 2  */ > 1 EBB + 1 LATCH NODE             GRA         2435     A     
 GRA                                                                                       GRA         2436     A     
 GRA                SA3    N.LD                                                            GRA         2437     A     
 GRA                SA4    N.ST                                                            GRA         2438     A     
 GRA                SA5    N.LJ                                                            GRA         2439     A     
 GRA                SX6    X3-8                                                            GRA         2440     A     
 GRA                SX7    X4-3                                                            GRA         2441     A     
 GRA                PL     X6,DAA      IF N.LD > 7                                         GRA         2442     A     
 GRA                PL     X7,DAA      IF N.ST > 2                                         GRA         2443     A     
 GRA                SX6    B1                                                              GRA         2444     A     
 GRA                IX5    X5-X6                                                           GRA         2445     A     
 GRA                NZ     X5,DAA      IF N.LJ " 1   */ ONLY *LBJ* IS A *JPX*              GRA         2446     A     
 GRA                SX7    X1-2                                                            FCC1127        5     A     
 GRA                PL     X7,DAA0A    IF MLW \ 2                                          FCC1127        6     A     
 GRA                IX6    X3-X4                                                           FCC1127        7     A     
 GRA                ZR     X6,DAA      IF N.LD = N.ST  */ A MOVE LOOP                      FCC1127        8     A     
 GRA                                                                                       GRA         2447     A     
 GRA      *         DETERMINE MAA, THE MAX NUMBER OF PREFETCHS WE WILL ASSIGN.             GRA         2448     A     
 GRA                                                                                       GRA         2449     A     
 GRA                SA1    MRA                                                             GRA         2450          I
          -FCC1127
 GRA       DAA0A    SA1    MRA                                                             FCC1127        9     A     
 GRA                SX2    76B                                                             GRA         2451     A     
 GRA                LX1    -16                                                             GRA         2452     A     
 GRA                BX6    X2*X1       ALR = SHIFT(MRA,-16) & 76B  */ AVAIL LDREGS         GRA         2453     A     
 GRA                CX5    X6          NLR = COUNT( ALR )                                  GRA         2454     A     
 GRA                IX6    X5-X3                                                           GRA         2455     A     
 GRA                LX5    1                                                               GRA         2456     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3092    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                IX7    X5-X3       MAA = 2*NLR - N.LD  */ MAX A-ASSGNMNTS              GRA         2457     A     
 GRA                                                                                       GRA         2458     A     
 GRA                ZR     X7,DAA      IF MAA = 0                                          GRA         2459          I
          -FCC0603
 GRA                MI     X7,DAA      IF MAA < 0                                          GRA         2460          I
          -FCC0603
 GRA                SX1    X7-5                                                            GRA         2461          I
          -FCC0603
 GRA      +         MI     X1,*+1      MAA = MIN( 4 , MAA )                                GRA         2462          I
          -FCC0603
 GRA                SX7    4                                                               GRA         2463          I
          -FCC0603
 GRA                SA1    MARA                                                            FCC0603       32     A     
 GRA                IX2    X1-X7                                                           FCC0603       33     A     
 GRA                AX2    59                                                              FCC0603       34     A     
 GRA                BX1    X2*X1                                                           FCC0603       35     A     
 GRA                BX2    -X2*X7                                                          FCC0603       36     A     
 GRA                IX7    X1+X2       MAA = MIN( MARA , MAA )                             FCC0603       37     A     
 GRA                SB2    X7                                                              FCC0603       38     A     
 GRA                LE     B2,DAA      IF MAA @ 0                                          FCC0603       39     A     
 GRA                PL     X6,DAA1     IF NLR \ N.LD                                       GRA         2464     A     
 GRA                BX6    X7                                                              GRA         2465     A     
 GRA                AX6    2                                                               GRA         2466     A     
 GRA                ZR     X6,DAA1     MAA = MIN( 3 , MAA )                                GRA         2467     A     
 GRA                SX7    3                                                               GRA         2468     A     
 GRA       DAA1     SA7    MAA                                                             GRA         2469     A     
 GRA                SX6    2                                                               GRA         2470     A     
 GRA                SA6    BSI         BSI = 2                                             GRA         2471     A     
 GRA                CALL   RTB         GET POINTERS TO HEADER NODE                         GRA         2472     A     
 GRA       DAA      SPACE  2,10                                                            GRA         2473     A     
 GRA      *         SELECT CANIDATES FROM THE INDEXED LD"S IN THE HEADER NODE.             GRA         2474     A     
 GRA      *         FORM *ACT* - 24/RCT-INC INFO,18/INC FIRST BIAS,18/RCT-INDEX            GRA         2475     A     
 GRA                                                                                       GRA         2476     A     
 GRA                SA2    O.UDT                                                           GRA         2477     A     
 GRA                SA3    O.RCT                                                           GRA         2478     A     
 GRA                SA5    O.SEQ                                                           GRA         2479     A     
 GRA                SA1    DAAA                                                            GRA         2480     A     
 GRA                SA4    A1+B1                                                           GRA         2481     A     
 GRA                SB5    B0          J = 0         */ ACT STORE INDEX                    GRA         2482     A     
 GRA                SB6    X3                                                              GRA         2483     A     
 GRA                BX0    X4                                                              GRA         2484     A     
 GRA                SB7    X2                                                              GRA         2485     A     
 GRA                SA4    X5+6        DI = O.SEQ + 4 + 2  */ SKIP PAST *LAB*              GRA         2486     A     
 GRA                SB4    X5+2                      (B4) = TXT+2                          GRA         2487     A     
 GRA                                                                                       GRA         2488     A     
 GRA       DAA2     SA4    A4+4        DI = DI + 4                                         GRA         2489     A     
 GRA                BX6    X1*X4                                                           GRA         2490     A     
 GRA                LX4    59-D.BMP                                                        GRA         2491     A     
 GRA                ZR     X6,DAA2     IF ^( LD[DI] ! BM[DI] )                             GRA         2492     A     
 GRA                                                                                       GRA         2493     A     
 GRA                MI     X4,DAA4     IF BM[DI]                                           GRA         2494     A     
 GRA                LX4    D.BMP-D.L2P                                                     GRA         2495     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3093    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                MI     X4,DAA2     IF L2[DI]     */ LEVEL 2 LD                         GRA         2496     A     
 GRA                                                                                       GRA         2497     A     
 GRA                SA5    A4+B1       LI = DI + 1;  I = CO[LI]                            GRA         2498     A     
 GRA                SA3    B6+X5       CI = RCT(I)                                         GRA         2499     A     
 GRA                SA2    B7+X3       UI = UDT( UDI[CI] )                                 GRA         2500     A     
 GRA                LX2    59-UD.DEFRP                                                     GRA         2501     A     
 GRA                MI     X2,DAA2     IF DEFR[UI]   */ STORE INTO SAME CLASS              GRA         2502     A     
 GRA                LX3    59-CA.ACP                                                       GRA         2503     A     
 GRA                PL     X3,DAA2     IF ^AC[CI]    */ NOT AN ADDRESS CANIDATE            GRA         2504     A     
 GRA                LX3    CA.ACP-CA.NOCCP                                                 FCC0448      103     A     
 GRA                MX6    -CA.NOCCL+1                                                     FCC0448      104     A     
 GRA                BX3    -X6*X3                                                          FCC0448      105     A     
 GRA                NZ     X3,DAA2     IF NOCC[CI] > 1  */ POSSIBLE A(I);I=I+1;A(I         FCC0448      106     A     
 GRA                                                                                       FCC0448      107     A     
 GRA                SA2    A3+B1       C2W = RCT(I+1)                                      GRA         2505     A     
 GRA                LX2    -IH.RFP     R = RF[C2W]                                         GRA         2506     A     
 GRA                                                                                       GRA         2507     A     
 GRA      *         LOOK AT INDEX OF *LD* FOR INFO ABOUT THE INCREMENT VALUE.              GRA         2508     A     
 GRA                                                                                       GRA         2509     A     
 GRA                SB2    X2+2                                                            GRA         2510     A     
 GRA                SA3    B6+B2       CCW = RCT(R+2)                                      GRA         2511     A     
 GRA                LX3    59-CC.I1P                                                       GRA         2512     A     
 GRA                PL     X3,DAA2     IF ^I1[CCW]   */ NOT *RD*                           GRA         2513     A     
 GRA                LX3    CC.I1P-CC.I2P                                                   GRA         2514     A     
 GRA                MI     X3,DAA2     IF I2[CCW]    */ MORE THAN 1 INC OF INDEX           GRA         2515     A     
 GRA                LX3    1+CC.I2P-CC.INCP  IP = INC[CCW] */ RCT INDEX OF INC VAL         GRA         2516     A     
 GRA                SA2    B6+X3       CJ = RCT(IP)                                        GRA         2517     A     
 GRA                BX6    X0*X2                                                           GRA         2518     A     
 GRA                ZR     X6,DAA2     IF ^( RA[CJ] ! CON[CJ] )                            GRA         2519     A     
 GRA                                                                                       GRA         2520     A     
 GRA                LX3    CC.INCP                                                         GRA         2521     A     
 GRA                MX7    -CC.INCP                                                        GRA         2522     A     
 GRA                BX3    X7*X3                                                           GRA         2523          I
          -FCC1127
 GRA                BX6    X3+X5                                                           GRA         2524          I
          -FCC1127
 GRA                BX7    X7*X3                                                           FCC1127       10     A     
 GRA                BX6    X7+X5                                                           FCC1127       11     A     
 GRA                SA5    A4-B1       R2 = DI - 1                                         GRA         2525     A     
 GRA                LX5    -IH.RFP                                                         GRA         2526     A     
 GRA                SA3    B4+X5       DIP = TXT(RF[R2]+2)                                 GRA         2527          I
          -FCC1127
 GRA                LX3    58-D.TYP                                                        GRA         2528          I
          -FCC1127
 GRA                PL     X3,DAA2     IF TYPE[DIP] " III  */ IA/IS INC FIRST              GRA         2529          I
          -FCC1127
 GRA                LX3    1+D.TYP-D.LDP                                                   GRA         2530          I
          -FCC1127
 GRA                MI     X3,DAA3     IF LD[DIP]    */ NOT INCREMENT FIRST                GRA         2531          I
          -FCC1127
 GRA                MX7    -IH.CAL                                                         GRA         2532          I
          -FCC1127
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3094    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA3    A3-B1       R2P = DIP - 1                                       GRA         2533          I
          -FCC1127
 GRA                LX7    IH.CAP                                                          GRA         2534          I
          -FCC1127
 GRA                BX5    -X7*X3                                                          GRA         2535          I
          -FCC1127
 GRA                BX6    X5+X6       BIAS = CA[R2P]   */ INC FIRST BIAS                  GRA         2536          I
          -FCC1127
 GRA                SA5    B4+X5       DIP = TXT(RF[R2]+2)                                 FCC1127       12     A     
 GRA                LX5    59-D.LDP                                                        FCC1127       13     A     
 GRA                MI     X5,DAA3     IF LD[DIP]    */ ^ INC FIRST                        FCC1127       14     A     
 GRA                LX2    59-CA.CONP                                                      FCC1127       15     A     
 GRA                PL     X2,DAA2     IF ^CON[CJ]   */ INC VALUE ^ A CON                  FCC1127       16     A     
 GRA                                                                                       FCC1127       17     A     
 GRA      *         INC-FIRST-BIAS = CA[C2J] * IM[CCW]                                     FCC1127       18     A     
 GRA                                                                                       FCC1127       19     A     
 GRA                SA5    A2+B1       C2J = RCT(IP+1)                                     FCC1127       20     A     
 GRA                LX3    59-CC.IMP                                                       FCC1127       21     A     
 GRA                MX7    -IH.CAL                                                         FCC1127       22     A     
 GRA                AX3    59                                                              FCC1127       23     A     
 GRA                LX7    IH.CAP                                                          FCC1127       24     A     
 GRA                BX3    X3-X5                                                           FCC1127       25     A     
 GRA                BX5    -X7*X3                                                          FCC1127       26     A     
 GRA                BX6    X5+X6       BIAS = CA[C2J] * IM[CCW]                            FCC1127       27     A     
 GRA                                                                                       GRA         2537     A     
 GRA       DAA3     SA6    ACT+B5      ACT(J) = ACW(INCI[CCW],BIAS,I)                      GRA         2538     A     
 GRA                SB5    B5+B1       J = J + 1                                           GRA         2539     A     
 GRA                SX7    B5-7                                                            GRA         2540     A     
 GRA                MI     X7,DAA2     IF J < 7                                            GRA         2541     A     
 GRA       DAA      SPACE  2,10                                                            GRA         2542     A     
 GRA      *         AT THIS POINT WE SHOULD RUN A CRITICAL PATH CALCULATION AND            GRA         2543     A     
 GRA      *         SORT THE CANIDATE TABLE. FOR THE PRESENT WE OMIT IT.                   GRA         2544     A     
 GRA                                                                                       GRA         2545     A     
 GRA       DAA4     ZR     B5,DAA      IF J = 0      */ NO CANIDATES                       GRA         2546     A     
 GRA                SA5    O.SYM                                                           GRA         2547     A     
 GRA                SA4    MAA                                                             GRA         2548     A     
 GRA                SA0    X5-1                                                            GRA         2549     A     
 GRA                SB4    B0          FI = 0                                              GRA         2550     A     
 GRA                MX7    0                                                               GRA         2551     A     
 GRA                SA7    ACT+B5      ACT(J) = 0                                          GRA         2552     A     
 GRA                SB7    X4                                                              GRA         2553     A     
 GRA                SX0    B1                                                              GRA         2554     A     
 GRA                SB5    B0          SI = 0                                              GRA         2555     A     
 GRA                LX0    CA.NOCCP                                                        GRA         2556     A     
 GRA                                                                                       GRA         2557     A     
 GRA      *         PRUNE THE CANIDATE TABLE TO REMOVE THOSE WITH VARIABLE                 GRA         2558     A     
 GRA      *         OR LARGE CONSTANT INCREMENTS ( AVOID MODE 1 AT EXECUTION )             GRA         2559     A     
 GRA                                                                                       GRA         2560     A     
 GRA       DAA5     SA1    =XOPTLVL                                                        GRA         2561          I
          -FEAT121A 
 GRA                SX7    X1-3                                                            GRA         2562          I
          -FEAT121A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3095    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA       DAA5     SA1    =XUOFLAG                                                        FEAT121A     125     A     
 GRA                SA5    ACT+B4                                                          GRA         2563     A     
 GRA                ZR     X5,DAA9                                                         GRA         2564     A     
 GRA                SB2    X5+B1       I = CO[ACT(FI)]                                     GRA         2565     A     
 GRA                LX5    -CC.INCP    IP = INC[ACT(FI)]                                   GRA         2566     A     
 GRA                PL     X7,DAA7     IF OPTLVL > 2 */ TAKE ALL IF OPT > 2                GRA         2567          I
          -FEAT121A 
 GRA                NZ     X1,DAA7     IF UOFLAG " 0 */ TAKE ALL IF *UO* SELECTED          FEAT121A     126     A     
 GRA                                                                                       GRA         2568     A     
 GRA                SA4    B6+X5       CI = RCT(IP)                                        GRA         2569     A     
 GRA                LX4    59-CA.CONP                                                      GRA         2570     A     
 GRA                PL     X4,DAA8     IF ^CON[CI]   */ REJECT IF VARIABLE INC             GRA         2571     A     
 GRA                SA4    A4+B1       C2W = RCT(IP+1)                                     GRA         2572     A     
 GRA                LX4    -IH.CAP     C = CA[C2W]   */ CONSTANT INC VALUE                 GRA         2573     A     
 GRA                SX7    X4-3                                                            GRA         2574     A     
 GRA                MI     X7,DAA7     IF C @ 2                                            GRA         2575     A     
 GRA                SX6    X4-MAX.INC                                                      GRA         2576     A     
 GRA                PL     X6,DAA8     IF C > MAX.INC  */ CON INC TOO BIG                  GRA         2577     A     
 GRA                                                                                       GRA         2578     A     
 GRA      *         CHECK LOCATION OF SYMBOL, IF IN LABELED COMMON OR LOCAL,               GRA         2579     A     
 GRA      *         ASSUME THAT THEIR WILL BE AT LEAST MAX.INC STORAGE ABOVE IT.           GRA         2580     A     
 GRA                                                                                       GRA         2581     A     
 GRA                SA4    B6+B2       C2W = RCT(I+1)                                      GRA         2582     A     
 GRA                LX4    -IH.IHP+1   H = IH[C2W]                                         GRA         2583     A     
 GRA                SB2    X4                                                              GRA         2584     A     
 GRA                SA3    A0-B2       WORDB = [O.SYM-1-2*H]                               GRA         2585     A     
 GRA                LX3    59-P.FPB                                                        GRA         2586     A     
 GRA                MI     X3,DAA8     IF FP[WORDB]  */ SYM IS AN F.P.                     GRA         2587     A     
 GRA                LX3    1+P.FPB-P.RL                                                    GRA         2588     A     
 GRA                MX7    -L.RL                                                           GRA         2589     A     
 GRA                BX6    -X7*X3                                                          GRA         2590     A     
 GRA                SX7    X6-2                                                            GRA         2591     A     
 GRA                NZ     X7,DAA7     IF RT " 2     */ NOT IN COMMON                      GRA         2592     A     
 GRA                LX3    P.RL-P.RB                                                       GRA         2593     A     
 GRA                MX7    -L.RB                                                           GRA         2594     A     
 GRA                BX6    -X7*X3      RBN = RB[WORDB]  */ RELOC BLOCK NUMBER              GRA         2595     A     
 GRA                SA2    =XORGTAB-1+X6  CBN = ORGTAB(RBN)  */ BLOCK NAME AND LEN         GRA         2596     A     
 GRA                AX2    54                                                              GRA         2597     A     
 GRA                SX7    X2+77B-1R                                                       GRA         2598     A     
 GRA                ZR     X7,DAA8     IF CBN = * // * COMMON                              GRA         2599     A     
 GRA                                                                                       GRA         2600     A     
 GRA      *         ADD NAME TO FINAL CANIDATE LIST                                        GRA         2601     A     
 GRA                                                                                       GRA         2602     A     
 GRA       DAA7     SA4    B6+X5       CIP = RCT(IP)                                       GRA         2603     A     
 GRA                LX5    CC.INCP                                                         GRA         2604     A     
 GRA                IX7    X0+X4       NOCC[CIP] = NOCC[CIP] + 1                           GRA         2605     A     
 GRA                BX6    X5                                                              GRA         2606     A     
 GRA                SA6    ACT+B5      ACT(SI) = ACT(FI)                                   GRA         2607     A     
 GRA                SA7    A4                                                              GRA         2608     A     
 GRA                SB5    B5+B1       SI = SI + 1                                         GRA         2609     A     
 GRA                EQ     B5,B7,DAA9  IF SI = MAA                                         GRA         2610     A     
 GRA                                                                                       GRA         2611     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3096    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA       DAA8     SB4    B4+B1       FI = FI + 1                                         GRA         2612     A     
 GRA                EQ     DAA5                                                            GRA         2613     A     
 GRA                                                                                       GRA         2614     A     
 GRA       DAA9     ZR     B5,DAA      IF SI = 0                                           GRA         2615     A     
 GRA                                                                                       GRA         2616     A     
 GRA                SA1    MRA                                                             GRA         2617     A     
 GRA                SB3    20B         REGN = 20B    */ X0, X1,...                         GRA         2618     A     
 GRA                SB4    B0          J = 0                                               GRA         2619     A     
 GRA                SX0    B1                                                              GRA         2620     A     
 GRA                                                                                       GRA         2621     A     
 GRA      *         NOW MARK THE PREFETCH ASSIGNMENTS IN *RCT* AND *RAT*                   GRA         2622     A     
 GRA                                                                                       GRA         2623     A     
 GRA       DAA10    SA2    ACT+B4      I = CO[ACT(J)]                                      GRA         2624     A     
 GRA                SA4    DAAB                                                            GRA         2625     A     
 GRA                SA3    X2+B6       CI = RCT(I)                                         GRA         2626     A     
 GRA                BX6    X4+X3       (RA,VC)[CI] = 1                                     GRA         2627     A     
 GRA                SA6    A3                                                              GRA         2628     A     
 GRA                SA4    A3+B1       C2W = RCT(I+1)                                      GRA         2629     A     
 GRA                LX2    -IH.CAP                                                         GRA         2630     A     
 GRA                SB2    X2                                                              GRA         2631     A     
 GRA                LX4    -IH.CAP                                                         GRA         2632     A     
 GRA                SX5    B2+X4                                                           GRA         2633     A     
 GRA                MX7    -IH.CAL                                                         GRA         2634     A     
 GRA                BX5    -X7*X5      CA[C2W] = CA[C2W] + CA[ACT(J)]                      GRA         2635     A     
 GRA                LX2    IH.CAP                                                          GRA         2636     A     
 GRA                BX7    X7*X4                                                           GRA         2637     A     
 GRA                BX6    X7+X5                                                           GRA         2638     A     
 GRA                LX6    IH.CAP                                                          GRA         2639     A     
 GRA                SA6    A4                                                              GRA         2640     A     
 GRA                LX4    IH.CAP-IH.RFP     R = RF[C2W]                                   GRA         2641     A     
 GRA                SA5    B6+X4       CJ = RCT(R)                                         GRA         2642     A     
 GRA                MX7    -CA.SUSEL                                                       GRA         2643     A     
 GRA                LX5    -CA.SUSEP                                                       GRA         2644     A     
 GRA                IX6    X5-X0       SUSE[CJ] = SUSE[CJ] - 1                             GRA         2645     A     
 GRA                BX7    -X7*X6                                                          GRA         2646     A     
 GRA                LX6    CA.SUSEP                                                        GRA         2647     A     
 GRA                SA6    A5                                                              GRA         2648     A     
 GRA                SX7    X7-1                                                            GRA         2649     A     
 GRA                NZ     X7,DAA11    IF SUSE[CJ] " 1                                     GRA         2650     A     
 GRA                                                                                       GRA         2651     A     
 GRA      *         USES OF INCREMENT VARIABLE = 1 , DEALLOCATE THE B-REGISTER             GRA         2652     A     
 GRA      *         AND MARK THE VAR AS DEAD.                                              GRA         2653     A     
 GRA                                                                                       GRA         2654     A     
 GRA                SX7    X6                                                              GRA         2655     A     
 GRA                NZ     X7,DAA10A   IF UDI[CJ] " 0  */ PROGRAMMER VAR                   GRA         2656          I
          -FCC0414
 GRA                LX6    59-CA.CONP                                                      GRA         2657          I
          -FCC0414
 GRA                LX6    59-CA.LXP                                                       FCC0414        6     A     
 GRA                MI     X6,DAA11    IF LX[CJ]     */ LIVE ON EXIT FROM THE LOOP         FCC0414        7     A     
 GRA                NZ     X7,DAA10A   IF UDI[CJ] " 0  */ PROGRAMMER VARIABLE              FCC0414        8     A     
 GRA                LX6    CA.LXP-CA.CONP                                                  FCC0414        9     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3097    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                MI     X6,DAA10A   IF CON[CJ]                                          GRA         2658     A     
 GRA                                                                                       GRA         2659     A     
 GRA                SA4    A5+B1                                                           GRA         2660     A     
 GRA                MX7    -T.REGL                                                         GRA         2661     A     
 GRA                LX4    -IH.CAP                                                         GRA         2662     A     
 GRA                SB2    X4          C = CA[RCT(R+1)]                                    GRA         2663     A     
 GRA                SA4    O.TET                                                           GRA         2664     A     
 GRA                LX7    T.REGP                                                          GRA         2665     A     
 GRA                SA4    X4+B2                                                           GRA         2666     A     
 GRA                BX6    X7*X4       REG[TET(C)] = 0                                     GRA         2667     A     
 GRA                SA6    A4                                                              GRA         2668     A     
 GRA                                                                                       GRA         2669     A     
 GRA       DAA10A   SA4    A5+2        CCW = RCT(R+2)                                      GRA         2670     A     
 GRA                MX7    -CC.REG1L                                                       GRA         2671     A     
 GRA                SX6    B0                                                              GRA         2672     A     
 GRA                LX4    -CC.REG1P                                                       GRA         2673     A     
 GRA                BX4    -X7*X4      REG = REG1[CCW]                                     GRA         2674     A     
 GRA                SB2    X4                                                              GRA         2675     A     
 GRA                SA6    RAT+X4      RAT(REG) = 0                                        GRA         2676     A     
 GRA                LX7    B2,X0                                                           GRA         2677     A     
 GRA                BX1    X7+X1       MRA = MRA ! SHIFT(1,REG)                            GRA         2678     A     
 GRA                SA4    NAB                                                             GRA         2679     A     
 GRA                SX7    X4+B1       NAB = NAB + 1                                       GRA         2680     A     
 GRA                SA7    A4                                                              GRA         2681     A     
 GRA                SA4    SEEA                                                            GRA         2682     A     
 GRA                LX5    CA.SUSEP                                                        GRA         2683     A     
 GRA                BX6    X4+X5       KD[CJ] = 1    */ SET TO KILL THIS DEF               GRA         2684     A     
 GRA                SA6    A5                                                              GRA         2685     A     
 GRA                                                                                       GRA         2686     A     
 GRA      *         SELECT A LD-REG AND MARK THE ASSIGNMENT IN *RCT* AND *RAT*             GRA         2687     A     
 GRA                                                                                       GRA         2688     A     
 GRA       DAA11    SB3    B3+1        REGN = REGN + 1                                     GRA         2689     A     
 GRA                LX7    B3,X0       BIT = SHIFT(1,REGN)                                 GRA         2690     A     
 GRA                BX6    X7*X1                                                           GRA         2691     A     
 GRA                ZR     X6,DAA11    IF MRA & BIT = 0  */ LD-REG NOT AVAIL               GRA         2692     A     
 GRA                                                                                       GRA         2693     A     
 GRA                SA4    A3+2        CCW = RCT(I+2)                                      GRA         2694     A     
 GRA                BX1    -X7*X1      MRA = MRA & ^BIT                                    GRA         2695     A     
 GRA                SX6    X2                                                              GRA         2696     A     
 GRA                SA6    RAT+B3      RAT(REGNO) = I                                      GRA         2697     A     
 GRA                SX3    B3                                                              GRA         2698     A     
 GRA                BX2    X2-X6                                                           GRA         2699     A     
 GRA                BX7    X2+X3       CO[ACT(J)] = REGNO  */ SAVE X-REGNO IN ACT          GRA         2700     A     
 GRA                SA7    A2                                                              GRA         2701     A     
 GRA                LX3    CC.REG1P                                                        GRA         2702     A     
 GRA                BX7    X3+X4       REG1[CCW] = REGN                                    GRA         2703     A     
 GRA                SA7    A4                                                              GRA         2704     A     
 GRA                SB4    B4+B1       J = J + 1                                           GRA         2705     A     
 GRA                LT     B4,B5,DAA10 IF J < SI                                           GRA         2706     A     
 GRA                                                                                       GRA         2707     A     
 GRA                SX6    B5                                                              GRA         2708     A     
 GRA                BX7    X1                                                              GRA         2709     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3098    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA6    NAA         NAA = SI                                            GRA         2710     A     
 GRA                SA7    MRA                                                             GRA         2711     A     
 GRA                EQ     DAA                                                             GRA         2712     A     
 GRA       MFA      TTL    GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT           GRA         2713     A     
 GRA       MFA      TITLE  MFA - MAKE FINAL B-ASSIGNMENTS                                  GRA         2714     A     
 GRA      **        MFA - MAKE FINAL B-ASSIGNMENTS                                         GRA         2715     A     
 GRA      *                                                                                GRA         2716     A     
 GRA      *         ADJUST ADDRESS REFERENCES TO MINIMIZE SIZE OF CODE IN LOOP.            GRA         2717     A     
 GRA      *         ASSIGN CONSTANTS TO B-REGS, SETUP LOOP COUNTING CODE INFO.             GRA         2718     A     
 GRA                                                                                       GRA         2719     A     
 GRA      *         BC. - B-REG CANIDATE SORT TABLE                                        GRA         2720     A     
 GRA                                                                                       GRA         2721     A     
 GRA                DESCRIBE BC.,60    BCT(RF,IH,NOCC,CO)                                  GRA         2722     A     
 GRA       RF       DEFINE 15          RCT RF                                              GRA         2723     A     
 GRA       IH       DEFINE 18          IH OF SYMBOL                                        GRA         2724     A     
 GRA       NOCC     DEFINE 9                                                               GRA         2725     A     
 GRA       CO       DEFINE 18          RCT INDEX OF CANIDATE                               GRA         2726     A     
 GRA                                                                                       GRA         2727     A     
 GRA      *         AI. - RF CLASS INDEX TABLE                                             GRA         2728     A     
 GRA                                                                                       GRA         2729     A     
 GRA                DESCRIBE AI.,60    AIT(BASE,NIH,LEN,INDX)                              GRA         2730     A     
 GRA                DEFINE 2                                                               GRA         2731     A     
 GRA       BASE     DEFINE 1           =1 IF PROG VAR OR BASE MEMBER OF *IP* CLASS         GRA         2732     A     
 GRA       NIH      DEFINE 18          377777B - N.IH"S IN RF CLASS                        GRA         2733     A     
 GRA       LEN      DEFINE 18          NUMBER OF ENTRIES IN CLASS                          GRA         2734     A     
 GRA                DEFINE 2                                                               GRA         2735     A     
 GRA       FP       DEFINE 1                                                               GRA         2736     A     
 GRA       INDX     DEFINE 18          INDEX TO LWA OF CLASS                               GRA         2737     A     
 GRA                                                                                       GRA         2738     A     
 GRA       MFA      ROUTINE                                                                GRA         2739     A     
 GRA                SA1    MRA                                                             GRA         2740     A     
 GRA                SA5    L.RCT                                                           GRA         2741     A     
 GRA                SX2    376B                                                            GRA         2742     A     
 GRA                BX3    X2*X1                                                           GRA         2743     A     
 GRA                SX4    X3+B1                                                           GRA         2744     A     
 GRA                PX6    X4          ABR = PACK( 0 , MRA&376B + 1 )                      GRA         2745     A     
 GRA                SA6    ABR                                                             GRA         2746     A     
 GRA                ALLOC  RND,X5      ALLOC( RND , L.RCT )                                GRA         2747     A     
 GRA                SA4    O.RCT                                                           GRA         2748     A     
 GRA                MX7    0                                                               GRA         2749     A     
 GRA                SB7    X2+B1       BO = O.RND + 1                                      GRA         2750     A     
 GRA                SA7    X2          BI = BO - 1;  [BI] = 0                              GRA         2751     A     
 GRA                SB6    X4          CO = [O.RCT]                                        GRA         2752     A     
 GRA                SA5    B6+X5       CI = CO + L.RCT                                     GRA         2753     A     
 GRA                MX0    -CA.NOCCL                                                       GRA         2754     A     
 GRA                SB4    B0          NC = 0        */ N. CONS                            GRA         2755     A     
 GRA                LX0    CA.NOCCP                                                        GRA         2756     A     
 GRA                SB5    B0          LC = 0        */ LINK TO LAST CON                   GRA         2757     A     
 GRA                MX6    60                                                              GRA         2758     A     
 GRA                SA6    B6          [CO] = -0     */ INDICATE RF=0 IS IN A REG          GRA         2759     A     
 GRA                EQ     MFA2                                                            GRA         2760     A     
 GRA                                                                                       GRA         2761     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3099    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      *         ADD ENTRY TO *CON* LIST                                                GRA         2762     A     
 GRA                                                                                       GRA         2763     A     
 GRA       MFA1     SA3    A5+B1                                                           GRA         2764     A     
 GRA                SA4    A3+B1                                                           GRA         2765     A     
 GRA                LX3    59-IH.MSKP                                                      GRA         2766     A     
 GRA                MI     X3,MFA2     IF MSK[CI+1]                                        GRA         2767     A     
 GRA                SX7    B5                                                              GRA         2768     A     
 GRA                SB4    B4+B1       NC = NC + 1                                         GRA         2769     A     
 GRA                LX7    CC.INCP     INC[CI+2] = LC                                      GRA         2770     A     
 GRA                BX6    X4+X7                                                           GRA         2771     A     
 GRA                SB5    A5-B6       LC = CI - CO  */ POINT TO LAST                      GRA         2772     A     
 GRA                SA6    A4                                                              GRA         2773     A     
 GRA                                                                                       GRA         2774     A     
 GRA      *         SCAN *RCT* AND BUILD *CON* LIST AND RF,IH SORT TABLE                   GRA         2775     A     
 GRA      *         OF ADDRESS CANIDATES                                                   GRA         2776     A     
 GRA                                                                                       GRA         2777     A     
 GRA       MFA2     SA5    A5-3        CI = CI - 3                                         GRA         2778     A     
 GRA                ZR     X5,MFA3     IF [CI] = 0   */ END OF TABLE                       GRA         2779     A     
 GRA                BX6    X5                                                              GRA         2780     A     
 GRA                LX6    59-CA.CONP                                                      GRA         2781     A     
 GRA                MI     X6,MFA1     IF CON[CI]                                          GRA         2782     A     
 GRA                LX6    CA.CONP-CA.RAP                                                  GRA         2783     A     
 GRA                MI     X6,MFA2     IF RA[CI]                                           GRA         2784     A     
 GRA                LX6    CA.RAP-CA.ACP                                                   GRA         2785     A     
 GRA                MI     X6,MFA2A    IF AC[CI]                                           GRA         2786          I
          -FCC1531X 
 GRA                LX6    CA.ACP-CA.FPP                                                   GRA         2787          I
          -FCC1531X 
 GRA                PL     X6,MFA2     IF ^FP[CI]                                          GRA         2788          I
          -FCC1531X 
 GRA                LX6    CA.FPP-CA.RFP                                                   GRA         2789          I
          -FCC1014  -FCC1531X 
 GRA                MI     X6,MFA2     IF RF[CAW]                                          GRA         2790          I
          -FCC1014  -FCC1531X 
 GRA                                                                                       GRA         2791          I
          -FCC1531X 
 GRA                SX1    B1                                                              GRA         2792          I
          -FCC1531X 
 GRA                LX1    CA.ACP                                                          GRA         2793          I
          -FCC1531X 
 GRA                BX6    X5+X1       AC[CI] = 1                                          GRA         2794          I
          -FCC1531X 
 GRA                LX1    CA.VCP-CA.ACP                                                   GRA         2795          I
          -FCC1531X 
 GRA                BX6    -X1*X6      VC[CI] = 0                                          GRA         2796          I
          -FCC1531X 
 GRA                SA6    A5                                                              GRA         2797          I
          -FCC1531X 
 GRA                                                                                       GRA         2798          I
          -FCC1531X 
 GRA       MFA2A    SA4    A5+B1       C2W = [CI+1]                                        GRA         2799          I
          -FCC1531X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3100    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                PL     X6,MFA2     IF ^AC[CI]                                          FCC1531X       5     A     
 GRA                                                                                       FCC1531X       6     A     
 GRA                SA4    A5+2        CCW = [RCT+2]                                       FCC1828X       6     A     
 GRA                LX4    -CC.H2P                                                         FCC1828X       7     A     
 GRA                SX3    X4                                                              FCC1828X       8     A     
 GRA                NZ     X3,MFA2     IF H2[CCW] " 0  */ OMIT SYM DIFFERENCES             FCC1828X       9     A     
 GRA                SA4    A5+B1       C2W = [CI+1]                                        FCC1531X       7     A     
 GRA                BX5    -X0*X5                                                          GRA         2800     A     
 GRA                SX3    X4                                                              GRA         2801     A     
 GRA                LX4    -IH.RFP                                                         GRA         2802     A     
 GRA                SX4    X4          R = RF[CI]                                          GRA         2803     A     
 GRA                LX5    BC.NOCCP-CA.NOCCP                                               GRA         2804     A     
 GRA                SA2    B6+X4       CJ = RCT(R)                                         GRA         2805          I
          -FCC1014
 GRA                LX2    59-CA.RAP                                                       GRA         2806          I
          -FCC1014
 GRA                PL     X2,MFA2     IF ^RA[CJ]                                          GRA         2807          I
          -FCC1014
 GRA                LX3    BC.IHP                                                          GRA         2808          I
          -FCC1014
 GRA                ZR     X4,MFA2B    IF R = 0                                            FCC1014       83     A     
 GRA                                                                                       FCC1014       84     A     
 GRA                SA1    DAAB                                                            FCC1014       85     A     
 GRA                SA2    B6+X4       CJ = RCT(R)                                         FCC1014       86     A     
 GRA                BX6    -X1+X2                                                          FCC1014       87     A     
 GRA                NZ     X6,MFA2B    IF ^( VC[CJ] & RA[CJ] )                             FCC1014       88     A     
 GRA                SA2    A2+2        CCW = RCT(R+2)                                      FCC1014       89     A     
 GRA                LX2    59-CC.REG1P-4                                                   FCC1014       90     A     
 GRA                PL     X2,MFA2C    IF REG1[CCW] < 20B  */ IN A B-REGISTER              FCC1014       91     A     
 GRA                                                                                       FCC1014       92     A     
 GRA       MFA2B    ZR     X3,MFA2     IF IH[C2W] = 0                                      FCC1014       93     A     
 GRA                MX4    0           R = 0                                               FCC1014       94     A     
 GRA                SA2    A5                                                              FCC1014       95     A     
 GRA                SA1    MFAD                                                            FCC1014       96     A     
 GRA                BX6    X1*X2                                                           FCC1014       97     A     
 GRA                NZ     X6,MFA2C    IF FP[CI] ! NOCC[CI] \ 2                            FCC1014       98     A     
 GRA                LX2    59-CA.RAP                                                       FCC1014       99     A     
 GRA                PL     X2,MFA2     IF ^RA[CI]                                          FCC1014      100     A     
 GRA                                                                                       FCC1014      101     A     
 GRA       MFA2C    LX3    BC.IHP                                                          FCC1014      102     A     
 GRA                SX6    A5-B6                                                           GRA         2809     A     
 GRA                LX4    BC.RFP                                                          GRA         2810     A     
 GRA                BX3    X3+X4                                                           GRA         2811     A     
 GRA                IX5    X5+X6                                                           GRA         2812     A     
 GRA                BX7    X3+X5                                                           GRA         2813     A     
 GRA                SA7    A7+B1       BI = BI + 1;  [BI] = BCT(R,IH,NOCC,CI-CO)           GRA         2814     A     
 GRA                EQ     MFA2                                                            GRA         2815     A     
 GRA                                                                                       GRA         2816     A     
 GRA       MFA3     SX6    B5                                                              GRA         2817     A     
 GRA                SA6    CL          CL = LC       */ CON LIST POINTER                   GRA         2818     A     
 GRA                MX6    0                                                               GRA         2819     A     
 GRA                SA6    B6          [CO] = 0                                            GRA         2820     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3101    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SB3    A7+B1       BI = BI + 1                                         GRA         2821     A     
 GRA                SX1    B3-B7       LEN = BI - BO                                       GRA         2822     A     
 GRA                BX6    X1                                                              GRA         2823     A     
 GRA                SA6    NAC         NAC = LEN     */ NUMBER OF ADDRESS CANIDATE         GRA         2824     A     
 GRA                ZR     X1,MFA48    IF LEN = 0                                          GRA         2825     A     
 GRA                                                                                       GRA         2826     A     
 GRA                CALL   SHL         SORT( BCT )                                         GRA         2827     A     
 GRA                                                                                       GRA         2828     A     
 GRA      *         NOW FORM THE RF CLASS INDEX TABLE AND SORT IT                          GRA         2829     A     
 GRA                                                                                       GRA         2830     A     
 GRA                SA2    O.TET                                                           GRA         2831     A     
 GRA                MX7    60                                                              GRA         2832     A     
 GRA                SA7    B3          AI = BI;  [AI] = -0  */ SEARCH TERMINATOR           GRA         2833     A     
 GRA                MX0    -BC.RFP                                                         GRA         2834     A     
 GRA                SB3    B3+B1       AF = AI + 1   */ BASE                               GRA         2835     A     
 GRA                SA0    X2                                                              GRA         2836     A     
 GRA                SB4    377776B     NIH = -1                                            GRA         2837     A     
 GRA                MX1    -BC.IHL                                                         GRA         2838     A     
 GRA                SB5    B7          BF = BO       */ ADDRESS OF FIRST IN CLASS          GRA         2839     A     
 GRA                LX1    BC.IHP                                                          GRA         2840     A     
 GRA                SA5    B7          BI = BO                                             GRA         2841     A     
 GRA                EQ     MFA6                                                            GRA         2842     A     
 GRA                                                                                       GRA         2843     A     
 GRA      *         END OF RF CLASS, SETUP INDEX WORD IN *AIT*                             GRA         2844     A     
 GRA                                                                                       GRA         2845     A     
 GRA       MFA4     AX2    BC.RFP                                                          GRA         2846     A     
 GRA                SA4    B6+X2       CI = RCT(RF[BL])                                    GRA         2847     A     
 GRA                SB2    X2                                                              FCC2092        5     A     
 GRA                MX7    0           BASE = 0                                            FCC2092        6     A     
 GRA                ZR     B2,MFA5     IF RF[BL] = 0                                       FCC2092        7     A     
 GRA                SX7    B1          BASE = 1                                            GRA         2848     A     
 GRA                SB2    X4                                                              GRA         2849     A     
 GRA                NZ     B2,MFA5     IF UDI[CI] " 0  */ PROGRAMMER VAR                   GRA         2850     A     
 GRA                                                                                       GRA         2851     A     
 GRA                SA4    A4+B1                                                           GRA         2852     A     
 GRA                LX4    -IH.CAP                                                         GRA         2853     A     
 GRA                SB2    X4                                                              GRA         2854     A     
 GRA                SA3    A0+B2       TI = TET(CA[CI+1])                                  GRA         2855     A     
 GRA                LX3    -T.BIPP                                                         GRA         2856     A     
 GRA                BX7    X7*X3       BASE = BIP[TI]                                      GRA         2857     A     
 GRA                                                                                       GRA         2858     A     
 GRA       MFA5     SX2    A5-B7       INDX = BI - BO                                      GRA         2859     A     
 GRA                LX2    AI.INDXP                                                        GRA         2860     A     
 GRA                SX3    A5-B5       LEN = BI - BF                                       GRA         2861     A     
 GRA                SB5    A5          BF = BI                                             GRA         2862     A     
 GRA                LX3    AI.LENP                                                         GRA         2863     A     
 GRA                SX4    B4                                                              GRA         2864     A     
 GRA                LX7    AI.BASEP                                                        GRA         2865     A     
 GRA                BX6    X7+X2                                                           GRA         2866     A     
 GRA                LX4    AI.NIHP                                                         GRA         2867     A     
 GRA                IX3    X3+X4                                                           GRA         2868     A     
 GRA                BX7    X3+X6                                                           GRA         2869     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3102    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA7    A7+1        AI = AI + 1;  [AI] = AIT(BASE,NIH,LEN,INDX)         GRA         2870     A     
 GRA                SB4    377776B     NIH = -1                                            GRA         2871     A     
 GRA                ZR     X5,MFA7     IF [BI] = 0   */ END OF TABLE                       GRA         2872     A     
 GRA                                                                                       GRA         2873     A     
 GRA       MFA6     BX2    X5          BL = [BI]                                           GRA         2874     A     
 GRA                SA5    A5+B1       BI = BI + 1                                         GRA         2875     A     
 GRA                BX6    X5-X2                                                           GRA         2876     A     
 GRA                BX7    X0*X6                                                           GRA         2877     A     
 GRA                NZ     X7,MFA4     IF RF[BI] " RF[BL]                                  GRA         2878     A     
 GRA                                                                                       GRA         2879     A     
 GRA                BX6    -X1*X6                                                          GRA         2880     A     
 GRA                ZR     X6,MFA6     IF IH[BI] = IH[BL]                                  GRA         2881     A     
 GRA                SB4    B4-1        NIH = NIH - 1                                       GRA         2882     A     
 GRA                NZ     X5,MFA6     IF [BI] " 0                                         GRA         2883     A     
 GRA                                                                                       GRA         2884     A     
 GRA                EQ     MFA5                                                            GRA         2885     A     
 GRA                                                                                       GRA         2886     A     
 GRA      *         SORT THE CLASS INDEX TABLE                                             GRA         2887     A     
 GRA                                                                                       GRA         2888     A     
 GRA       MFA7     SB2    A7+B1                                                           GRA         2889     A     
 GRA                SB7    B7-B1                                                           GRA         2890     A     
 GRA                SX6    B2-B7       ATI = AI+1 - (BO-1)                                 GRA         2891     A     
 GRA                MX7    0                                                               GRA         2892     A     
 GRA                SA7    A5          [BI] = 0                                            GRA         2893     A     
 GRA                SA6    ATI                                                             GRA         2894     A     
 GRA                SA6    L.RND                                                           GRA         2895     A     
 GRA                SX1    B2-B3       LEN = AI+1 - AF                                     GRA         2896     A     
 GRA                SB7    B3                                                              GRA         2897     A     
 GRA                CALL   SHL         SORT( AIT )                                         GRA         2898     A     
 GRA                                                                                       GRA         2899     A     
 GRA                PRINT  MFA,(* NAC,ATI =*2Z5),(NAC,ATI)                                 GRA         2900     A     
 GRA                TRACE  MFA,RND                                                         GRA         2901     A     
 GRA                                                                                       GRA         2902     A     
 GRA      *         GET SPACE FOR NEW ENTRIES ( CON"S, DIFFERENCES )                       GRA         2903     A     
 GRA                                                                                       GRA         2904     A     
 GRA                SA5    NAC                                                             GRA         2905     A     
 GRA                LX4    B1,X5                                                           GRA         2906     A     
 GRA                IX1    X4+X5                                                           GRA         2907     A     
 GRA                ALLOC  RCT,X1      ALLOC( RCT , 3*NAC )                                GRA         2908     A     
 GRA                SA4    O.RND                                                           GRA         2909     A     
 GRA                SX6    B6                                                              GRA         2910     A     
 GRA                SB7    X4                                                              GRA         2911     A     
 GRA                SA6    L.RCT       L.RCT = OLD(L.RCT)                                  GRA         2912     A     
 GRA                SB6    X2                                                              GRA         2913     A     
 GRA       MFA      SPACE  2,10                                                            GRA         2914     A     
 GRA      **        MAIN LOOP FOR ADDRESS CANIDATE MODIFICATION                            GRA         2915     A     
 GRA      *         (A0) = REGNO,  (B6) = [O.RCT],  (B7) = [O.RND]                         GRA         2916     A     
 GRA                                                                                       GRA         2917     A     
 GRA       MFA10    SA1    ATI                                                             GRA         2918     A     
 GRA                SX7    X1-1        ATI = ATI - 1                                       GRA         2919     A     
 GRA                SA2    B7+X7       AI = RND(ATI)                                       GRA         2920     A     
 GRA                SA7    A1                                                              GRA         2921     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3103    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                ZR     X2,MFA48    IF AI = 0     */ END OF TABLE                       GRA         2922     A     
 GRA                                                                                       GRA         2923     A     
 GRA                LX2    -AI.INDXP                                                       GRA         2924     A     
 GRA                SA5    B7+X2       BI = RND(INDX[AI])                                  GRA         2925     A     
 GRA                LX2    AI.INDXP-AI.LENP                                                GRA         2926     A     
 GRA                SB5    X2          L = LEN[AI]   */ NUMBER OF ENTRIES                  GRA         2927     A     
 GRA                LX2    AI.LENP-AI.NIHP                                                 GRA         2928     A     
 GRA                SB2    X2+400000B                                                      GRA         2929     A     
 GRA                LX2    AI.NIHP+59-AI.BASEP                                             GRA         2930     A     
 GRA                BX6    X5                                                              GRA         2931     A     
 GRA                SB4    -B2         N = -NIH[AI]  */ NUMBER OF IH"S                     GRA         2932     A     
 GRA                AX6    BC.RFP                                                          GRA         2933     A     
 GRA                SB2    X6+2        R = RF[BI]                                          GRA         2934     A     
 GRA                MX0    -CC.REG1L                                                       GRA         2935     A     
 GRA                SA3    B6+B2       CCW = RCT(R+2)                                      GRA         2936     A     
 GRA                LX3    -CC.REG1P                                                       GRA         2937     A     
 GRA                BX7    -X0*X3                                                          GRA         2938     A     
 GRA                SA0    X7          REGNO = REG1[CCW]                                   GRA         2939     A     
 GRA                ZR     X7,MFA40    IF REGNO = 0                                        GRA         2940     A     
 GRA                                                                                       GRA         2941     A     
 GRA                SA4    A3-2        CAW = RCT(R)                                        GRA         2942     A     
 GRA                SA1    MTAB                                                            GRA         2943     A     
 GRA                BX6    X1*X4                                                           GRA         2944     A     
 GRA                LX4    59-CA.TUP                                                       GRA         2945     A     
 GRA                NZ     X6,MFA40    IF (IRA,EU,LX)[CAW]  */ CANT BIAS                   GRA         2946     A     
 GRA                PL     X4,MFA10A   IF ^TU[CAW]   */ NOT LOOP *CV* OR LIMIT             GRA         2947     A     
 GRA                SA1    TRD                                                             GRA         2948     A     
 GRA                SX4    X1-2                                                            GRA         2949     A     
 GRA                ZR     X4,MFA40    IF TRD = 2    */ I,N IN REGS                        GRA         2950     A     
 GRA                                                                                       GRA         2951     A     
 GRA       MFA10A   GT     B5,B1,MFA20 IF L > 1      */ MORE THAN 1 MEMBER IN CLASS        GRA         2952     A     
 GRA                                                                                       GRA         2953     A     
 GRA      *         1 ENTRY IN RF,IH CLASS, SETUP ADDRESS IN B-REG WITH RF                 GRA         2954     A     
 GRA                                                                                       GRA         2955     A     
 GRA                PL     X2,MFA12    IF ^BASE[AI]                                        GRA         2956     A     
 GRA                                                                                       GRA         2957     A     
 GRA      *         ASSIGN BASE MEMBER ADDRESS TO B-REG                                    GRA         2958     A     
 GRA                                                                                       GRA         2959     A     
 GRA       MFA11    RJ     AFA         ASSIGN FULL ADDRESS                                 GRA         2960     A     
 GRA                EQ     MFA10                                                           GRA         2961     A     
 GRA                                                                                       GRA         2962     A     
 GRA      *         ^BASE *IP*, FIND BASE TP IN REGS AND DO DIFFERENCING                   GRA         2963     A     
 GRA                                                                                       GRA         2964     A     
 GRA       MFA12    SA4    A4+B1                                                           GRA         2965     A     
 GRA                SA3    O.TET                                                           GRA         2966     A     
 GRA                LX4    -IH.CAP                                                         GRA         2967     A     
 GRA                SB2    X4          C = CA[RCT(R+1)]  */ CA OF *IP*                     GRA         2968     A     
 GRA                SA2    X3+B2                                                           GRA         2969     A     
 GRA                SA1    O.IIT                                                           GRA         2970     A     
 GRA                LX2    -T.ITIP     ITI = ITI[TET(C)]  */ INDX TO INFO WORD             GRA         2971     A     
 GRA                SB2    X2                                                              GRA         2972     A     
 GRA                ZR     B2,MFA11    IF ITI = 0    */ INVARAINT TEMP                     GRA         2973     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3104    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA4    X1+B2       ITW = IIT(ITI)                                      GRA         2974     A     
 GRA                LX4    -PI.CAP                                                         GRA         2975     A     
 GRA                SB2    X4          BC = CA[ITW]  */ CA OF BASE                         GRA         2976     A     
 GRA                SA2    X3+B2                                                           GRA         2977     A     
 GRA                LX2    -T.REGP                                                         GRA         2978     A     
 GRA                SB5    X2          BREGN = REG[TET(BC)]  */ REG THAT BASE IS I         GRA         2979     A     
 GRA                ZR     B5,MFA11    IF BREGNO = 0 */ BASE NOT IN A REG                  GRA         2980     A     
 GRA                SA1    RAT+B5      J1 = R1[RAT(BREGN)]                                 FCC1518X      19     A     
 GRA                SA2    B6+X1                                                           FCC1518X      20     A     
 GRA                LX2    59-CA.EUP                                                       FCC1518X      21     A     
 GRA                MI     X2,MFA11    IF EU[RCT(J1)]  */ BASE IP IS *XU*                  FCC1518X      22     A     
 GRA                                                                                       GRA         2981     A     
 GRA      *         NOW PLAY AROUND TO SETUP *REGNO* AS DELTA(IHCA,RF"S)                   GRA         2982     A     
 GRA                                                                                       GRA         2983     A     
 GRA                SA1    B6+X5       J = CO[BI]                                          GRA         2984     A     
 GRA                MX0    1                                                               GRA         2985     A     
 GRA                SA2    A1+2        CCW = RCT(J+2)                                      GRA         2986     A     
 GRA                LX0    1+CA.RAP                                                        GRA         2987     A     
 GRA                SX3    B5+2S6      REG1[CCW] = BREGN                                   GRA         2988          I
          -FCC0977
 GRA                LX3    CC.REG1P    MIT[CCW] = 2                                        GRA         2989          I
          -FCC0977
 GRA                SX3    B5+2S6+V.SRF  REG1[CCW] = BREGN                                 FCC0977       11     A     
 GRA                LX3    CC.REG1P    MIT[CCW] = 42B    */ SET *SRF* BIT                  FCC0977       12     A     
 GRA                SX4    A0          REG2[CCW] = REGNO                                   GRA         2990     A     
 GRA                LX4    CC.REG2P                                                        GRA         2991     A     
 GRA                BX6    X0+X1       RA[RCT(J)] = 1                                      GRA         2992     A     
 GRA                SA6    A1                                                              GRA         2993     A     
 GRA                BX3    X3+X4                                                           GRA         2994     A     
 GRA                BX7    X3+X2                                                           GRA         2995     A     
 GRA                SA7    A2                                                              GRA         2996     A     
 GRA                SA7    GRASRF      GRASRF = 1                                          FCC0977       13     A     
 GRA                                                                                       GRA         2997     A     
 GRA      *         SETUP *RAT* TO FORM DIFFERENCE CODE IN PROLOGUE                        GRA         2998     A     
 GRA                                                                                       GRA         2999     A     
 GRA                SA1    RAT+B5                                                          GRA         3000     A     
 GRA                SX3    X1          J1 = R1[RAT(BREGN)]                                 GRA         3001     A     
 GRA                LX1    -RA.R3P                                                         GRA         3002     A     
 GRA                SB3    X1          J3 = R3[RAT(BREGN)]                                 GRA         3003     A     
 GRA                SA2    RAT+A0      JO = R1[RAT(REGNO)]                                 GRA         3004     A     
 GRA                LX0    RA.INVP-CA.RAP                                                  GRA         3005     A     
 GRA                BX2    X0+X2       INV[RAT(REGNO)] = 1                                 GRA         3006     A     
 GRA                LX3    RA.R2P                                                          GRA         3007     A     
 GRA                BX7    X3+X2       R2[RAT(REGNO)] = J1                                 GRA         3008     A     
 GRA                SA7    A2                                                              GRA         3009     A     
 GRA                SA4    SEEA                                                            GRA         3010     A     
 GRA                SA3    B6+X2                                                           GRA         3011     A     
 GRA                BX6    X3+X4       KD[RCT(JO)] = 1                                     GRA         3012     A     
 GRA                SA6    A3                                                              GRA         3013     A     
 GRA                NZ     B3,MFA13    IF J3 " 0     */ SYMBOL APPENDED                    GRA         3014     A     
 GRA                                                                                       GRA         3015     A     
 GRA                SX3    X5                                                              GRA         3016     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3105    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                LX3    RA.R3P                                                          GRA         3017     A     
 GRA                BX7    X3+X7       R3[RAT(REGNO)] = J  */ APPEND THIS IHCA             GRA         3018     A     
 GRA                SA7    A7                                                              GRA         3019     A     
 GRA                EQ     MFA10                                                           GRA         3020     A     
 GRA                                                                                       GRA         3021     A     
 GRA      *         BASE REG HAS A SYMBOL APPENDED, FORM ADDRESS DIFFERENCE                GRA         3022     A     
 GRA                                                                                       GRA         3023     A     
 GRA       MFA13    SX5    X5+B1                                                           GRA         3024     A     
 GRA                SA1    B6+X5                                                           GRA         3025     A     
 GRA                SB3    B3+B1                                                           GRA         3026     A     
 GRA                SA2    B6+B3                                                           GRA         3027     A     
 GRA                MX0    -IH.RFP                                                         GRA         3028     A     
 GRA                BX1    -X0*X1      CAIH1 = CAIH[RCT(J+1)]                              GRA         3029     A     
 GRA                BX2    -X0*X2      CAIH2 = CAIH[RCT(J3+1)]                             GRA         3030     A     
 GRA                BX3    X1-X2                                                           GRA         3031     A     
 GRA                ZR     X3,MFA10    IF CAIH1 = CAIH2                                    GRA         3032     A     
 GRA                                                                                       GRA         3033     A     
 GRA                SA4    L.RCT                                                           GRA         3034     A     
 GRA                SB2    X3                                                              GRA         3035     A     
 GRA                SB4    X4+B1       OL = L.RCT                                          GRA         3036     A     
 GRA                SX6    X4+3        L.RCT = L.RCT + 3                                   GRA         3037     A     
 GRA                LX4    RA.R3P                                                          GRA         3038     A     
 GRA                SA6    A4                                                              GRA         3039     A     
 GRA                BX7    X4+X7       R3[RAT(REGNO)] = OL  */ DIFF CANIDATE               GRA         3040     A     
 GRA                MX0    -IH.CAL                                                         GRA         3041     A     
 GRA                SA7    A7                                                              GRA         3042     A     
 GRA                SX3    X1                                                              GRA         3043     A     
 GRA                SX4    X2                                                              GRA         3044     A     
 GRA                LX1    -IH.CAP                                                         GRA         3045     A     
 GRA                LX2    -IH.CAP                                                         GRA         3046     A     
 GRA                SX1    X1                                                              GRA         3047     A     
 GRA                SX2    X2                                                              GRA         3048     A     
 GRA                IX1    X1-X2                                                           GRA         3049     A     
 GRA                MX7    0           KEY2 = 0                                            GRA         3050     A     
 GRA                BX6    -X0*X1                                                          GRA         3051     A     
 GRA                LX6    IH.CAP      KEY = IHW(0,0, CA1-CA2 , 0 )                        GRA         3052     A     
 GRA                ZR     B2,MFA14    IF IH1 = IH2                                        GRA         3053     A     
 GRA                SX7    X4                                                              GRA         3054     A     
 GRA                LX7    CC.H2P      KEY2 = CCW(0,IH2,0)                                 GRA         3055     A     
 GRA                BX6    X3+X6       IH[KEY] = IH1                                       GRA         3056     A     
 GRA                                                                                       GRA         3057     A     
 GRA       MFA14    SA4    EDCA                                                            GRA         3058     A     
 GRA                SA6    B6+B4       RCT(OL+1) = KEY                                     GRA         3059     A     
 GRA                SA7    A6+B1       RCT(OL+2) = KEY2                                    GRA         3060     A     
 GRA                BX6    X4                                                              GRA         3061     A     
 GRA                SA6    A6-B1       RCT(OL) = CAW(0,AC,PL)                              GRA         3062     A     
 GRA                EQ     MFA10                                                           GRA         3063     A     
 GRA       MFA      SPACE  2,10                                                            GRA         3064     A     
 GRA      *         PROCESS CLASS WITH L > 1 AND NIH = 1                                   GRA         3065     A     
 GRA                                                                                       GRA         3066     A     
 GRA       MFA20    NE     B4,B1,MFA30 IF N > 1                                            GRA         3067     A     
 GRA                RJ     PSC         PROCESS SIMPLE CLASS                                GRA         3068     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3106    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                EQ     MFA10                                                           GRA         3069     A     
 GRA       MFA      SPACE  2,10                                                            GRA         3070     A     
 GRA      *         MULTI IH CLASS                                                         GRA         3071     A     
 GRA                                                                                       GRA         3072     A     
 GRA       MFA30    SX6    B4-5                                                            GRA         3073     A     
 GRA                PL     X6,MFA40    IF N > 4                                            GRA         3074     A     
 GRA                SA4    NAB                                                             GRA         3075     A     
 GRA                ZR     X4,MFA10    IF NAB = 0                                          GRA         3076     A     
 GRA                                                                                       GRA         3077     A     
 GRA      *         1 < NIH @ 4 , TRY ADDRESS DIFFERENCING                                 GRA         3078     A     
 GRA      *         FIRST FORM AN *IH* CLASS SUBTABLE                                      GRA         3079     A     
 GRA                                                                                       GRA         3080     A     
 GRA                SB3    B0          ML = 0        */ MAX *IH* CLASS LEN                 GRA         3081     A     
 GRA                MX0    -BC.IHP                                                         GRA         3082     A     
 GRA                SX1    B0          NC = 0                                              GRA         3083     A     
 GRA                SX7    A5          BF = BI                                             GRA         3084     A     
 GRA                                                                                       GRA         3085     A     
 GRA       MFA31    BX4    X5          BL = [BI]                                           GRA         3086     A     
 GRA                SA5    A5-B1       BI = BI - 1                                         GRA         3087     A     
 GRA                BX6    X4-X5                                                           GRA         3088     A     
 GRA                BX3    X0*X6                                                           GRA         3089     A     
 GRA                ZR     X3,MFA31    IF IH[BI] = IH[BL]                                  GRA         3090          I
          -FCC0814
 GRA                ZR     X3,MFA31    IF RFIH[BI] = RFIH[BL]                              FCC0814        5     A     
 GRA                                                                                       GRA         3091     A     
 GRA                SA2    B6+X4       CI = RCT(CO[BL])                                    GRA         3092     A     
 GRA                SX3    B1                                                              GRA         3093     A     
 GRA                LX3    CA.FPP                                                          GRA         3094     A     
 GRA                BX3    X3*X2                                                           GRA         3095     A     
 GRA                SX2    A5                                                              GRA         3096     A     
 GRA                IX6    X7-X2       LEN = BF - BI                                       GRA         3097     A     
 GRA                LX3    AI.FPP-CA.FPP     FP = FP[CI]                                   GRA         3098     A     
 GRA                SB2    X6                                                              GRA         3099     A     
 GRA                BX7    X3+X7                                                           GRA         3100     A     
 GRA                LX6    AI.LENP                                                         GRA         3101     A     
 GRA                BX7    X6+X7                                                           GRA         3102     A     
 GRA                SA7    CIT+X1      CIT(NC) = AIT(0,0,LEN,FP,BF)                        GRA         3103     A     
 GRA                SX1    X1+B1       NC = NC + 1                                         GRA         3104     A     
 GRA                LE     B2,B3,MFA32 ML = MAX( ML , LEN )                                GRA         3105     A     
 GRA                SB3    B2                                                              GRA         3106     A     
 GRA       MFA32    SX7    A5                                                              GRA         3107     A     
 GRA                SB2    X1                                                              GRA         3108     A     
 GRA                LT     B2,B4,MFA31 IF NC < N                                           GRA         3109     A     
 GRA                                                                                       GRA         3110     A     
 GRA                SA2    NAB                                                             GRA         3111     A     
 GRA                SA3    CIT                                                             GRA         3112     A     
 GRA                SB2    X2+B3                                                           GRA         3113     A     
 GRA                SA5    X3          BI = INDX[CIT]                                      GRA         3114     A     
 GRA                GT     B5,B2,MFA40 IF L > NAB + ML  */ NOT ENOUGH REGISTERS            GRA         3115     A     
 GRA       MFA      SPACE  2,10                                                            GRA         3116     A     
 GRA      *         BASE *IH* CLASS IS THAT WITH *ML* AND F.P. ( IF ANY )                  GRA         3117     A     
 GRA                                                                                       GRA         3118     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3107    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                MX7    0                                                               FCC0814        6     A     
 GRA                SA7    A7+B1       CIT(NC) = 0   */ TABLE TERMINATOR                   FCC0814        7     A     
 GRA                SB5    B1          I = 1                                               GRA         3119     A     
 GRA                SB2    B0          IM = 0;  MVAL = CIT(0)                              GRA         3120     A     
 GRA                                                                                       GRA         3121     A     
 GRA       MFA33    SA4    CIT+B5                                                          GRA         3122     A     
 GRA                IX6    X3-X4                                                           GRA         3123     A     
 GRA                SB5    B5+B1       I = I + 1                                           GRA         3124     A     
 GRA                PL     X6,MFA34    IF CIT(I-1) @ MVAL                                  GRA         3125     A     
 GRA                SB2    B5-B1       IM = I - 1                                          GRA         3126     A     
 GRA                BX3    X4          MVAL = CIT(IM)                                      GRA         3127     A     
 GRA       MFA34    LT     B5,B4,MFA33 IF I < N                                            GRA         3128     A     
 GRA                                                                                       GRA         3129     A     
 GRA                GT     B3,B1,MFA34A      IF ML > 1                                     GRA         3130     A     
 GRA                LX3    59-AI.FPP                                                       GRA         3131     A     
 GRA                PL     X3,MFA40    IF ^FP[MVAL]  */ NO F.P. S IN THE CLASS             GRA         3132     A     
 GRA                                                                                       GRA         3133     A     
 GRA       MFA34A   SA2    CIT+B2                                                          GRA         3134     A     
 GRA                SA3    A3                                                              GRA         3135     A     
 GRA                BX6    X3                                                              GRA         3136     A     
 GRA                LX7    X2                                                              GRA         3137     A     
 GRA                SA6    A2          SWAP( CIT(0) , CIT(IM) )                            GRA         3138     A     
 GRA                SA7    A3                                                              GRA         3139     A     
 GRA                                                                                       GRA         3140     A     
 GRA                SA5    X2          BI = INDX[CIT]                                      GRA         3141     A     
 GRA                LX2    -AI.LENP                                                        GRA         3142     A     
 GRA                SB5    X2          L = LEN[CIT]                                        GRA         3143     A     
 GRA                RJ     PSC         PROCESS BASE CLASS                                  GRA         3144     A     
 GRA                                                                                       GRA         3145     A     
 GRA                SX6    B1+B1                                                           GRA         3146     A     
 GRA                SA6    CIT         I = 2;  AI = CIT(1)                                 GRA         3147     A     
 GRA                                                                                       GRA         3148     A     
 GRA       MFA35    SA1    CIT+1                                                           GRA         3149     A     
 GRA                SA2    MFAC                                                            GRA         3150     A     
 GRA                SA3    X1          BI = INDX[AI]                                       GRA         3151     A     
 GRA                IX6    X1-X2       (LEN,INDX)[AI] = (LEN,INDX)[AI] - 1                 GRA         3152     A     
 GRA                SA6    A1                                                              GRA         3153     A     
 GRA                SB5    X3          J = CO[BI]                                          GRA         3154     A     
 GRA                RJ     AAD         ASSIGN ADDRESS DIFFERENCE( J, REGNO , CAIH          GRA         3155     A     
 GRA                SA1    CIT+1                                                           GRA         3156     A     
 GRA                LX1    -AI.LENP                                                        GRA         3157     A     
 GRA                SB2    X1                                                              GRA         3158     A     
 GRA                NZ     B2,MFA35    IF LEN[AI] " 0                                      GRA         3159     A     
 GRA                                                                                       GRA         3160     A     
 GRA                SA2    A1-B1                                                           GRA         3161     A     
 GRA                SA3    CIT+X2      AI = CIT(I)                                         GRA         3162     A     
 GRA                SX7    X2+B1       I = I + 1                                           GRA         3163     A     
 GRA                SA7    A2                                                              GRA         3164     A     
 GRA                BX6    X3                                                              GRA         3165     A     
 GRA                SA6    A1                                                              GRA         3166     A     
 GRA                NZ     X3,MFA35    IF AI " 0                                           GRA         3167     A     
 GRA                                                                                       GRA         3168     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3108    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                EQ     MFA10                                                           GRA         3169     A     
 GRA                                                                                       GRA         3170     A     
 GRA       MFAC     BSS    0                                                               GRA         3171     A     
 GRA                POS    AI.LENP+1                                                       GRA         3172     A     
 GRA                VFD    1/1,*P/1                                                        GRA         3173     A     
 GRA       CA.NOC2P EQU    CA.NOCCP+1                                                      GRA         3174     A     
 GRA       CA.NOC2L EQU    CA.NOCCL-1                                                      GRA         3175     A     
 GRA       MFAD     BFMW   CA,(FP,NOC2)                                                    GRA         3176     A     
 GRA       MFA      SPACE  2,14                                                            GRA         3177     A     
 GRA      *         PARTIAL ASSIGNMENT, SET IH+CA IN A REGISTER                            GRA         3178     A     
 GRA                                                                                       GRA         3179     A     
 GRA       MFA40    SX6    0                                                               GRA         3180     A     
 GRA                SA6    CAIH        CAIH = 0                                            GRA         3181     A     
 GRA                                                                                       GRA         3182     A     
 GRA       MFA41    SX7    A5-B1                                                           GRA         3183     A     
 GRA                SB2    X5+B1                                                           GRA         3184     A     
 GRA                SA7    CIT                                                             GRA         3185     A     
 GRA                SB3    X5          J = CO[BI]                                          GRA         3186     A     
 GRA                SA4    B6+B2       C2W = RCT(J+1)                                      GRA         3187     A     
 GRA                MX0    -IH.RFP                                                         GRA         3188     A     
 GRA                BX1    -X0*X4      CAIH1 = CAIH[C2W]                                   GRA         3189     A     
 GRA                MX2    0                                                               GRA         3190     A     
 GRA                RJ     SDC         SEARCH FOR CAIH                                     GRA         3191     A     
 GRA                NZ     B2,MFA45    IF REGN " 0   */ IN A REG                           GRA         3192     A     
 GRA                                                                                       GRA         3193     A     
 GRA                SA1    MFAD                                                            GRA         3194     A     
 GRA                SA2    B6+B3       CAW = RCT(J)                                        GRA         3195     A     
 GRA                SA4    NAB                                                             GRA         3196     A     
 GRA                BX3    X1*X2                                                           GRA         3197     A     
 GRA                ZR     X3,MFA47    IF ^( FP[CAW] ! NOCC[CAW] > 1 )                     GRA         3198     A     
 GRA                ZR     X4,MFA47    IF NAB = 0                                          GRA         3199     A     
 GRA                                                                                       GRA         3200     A     
 GRA                RJ     EDC         ENTER CANIDATE                                      GRA         3201     A     
 GRA                                                                                       GRA         3202     A     
 GRA      *         SETUP *J* AS A *SLD*                                                   GRA         3203     A     
 GRA                                                                                       GRA         3204     A     
 GRA       MFA45    SA1    B6+B3                                                           GRA         3205     A     
 GRA                MX0    1                                                               GRA         3206     A     
 GRA                SA2    A1+2        CCW = RCT(J+2)                                      GRA         3207     A     
 GRA                LX0    1+CA.RAP                                                        GRA         3208     A     
 GRA                BX6    X0+X1       RA[RCT(J)] = 1                                      GRA         3209     A     
 GRA                SA6    A1                                                              GRA         3210     A     
 GRA                SX7    2S6         MIT[CCW] = 2                                        GRA         3211          I
          -FCC0646
 GRA                SX7    4S6         MIT[CCW] = 4  */ SPECIAL CASE SLD/SST/SA            FCC0646       21     A     
 GRA                SX5    A0                                                              GRA         3212     A     
 GRA                SX4    B2                                                              GRA         3213     A     
 GRA                ZR     X5,MFA46    IF REGNO = 0  */ NO BASE REG                        GRA         3214     A     
 GRA                                                                                       GRA         3215     A     
 GRA                BX7    X5+X7       REG1[CCW] = REGNO                                   GRA         3216     A     
 GRA                LX7    CC.REG1P                                                        GRA         3217     A     
 GRA                LX4    CC.REG2P    REG2[CCW] = REGN                                    GRA         3218     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3109    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                BX2    X4+X2                                                           GRA         3219     A     
 GRA                IX7    X2+X7                                                           GRA         3220          I
          -FCC1014
 GRA                BX7    X2+X7                                                           FCC1014      103     A     
 GRA                SA7    A2                                                              GRA         3221     A     
 GRA                EQ     MFA47                                                           GRA         3222     A     
 GRA                                                                                       GRA         3223     A     
 GRA       MFA46    LX4    CC.REG1P                                                        GRA         3224     A     
 GRA                BX5    X4+X7       REG1[CCW] = REGN                                    GRA         3225     A     
 GRA                IX7    X5+X2                                                           GRA         3226          I
          -FCC1014
 GRA                BX7    X5+X2                                                           FCC1014      104     A     
 GRA                SA7    A2                                                              GRA         3227     A     
 GRA                                                                                       GRA         3228     A     
 GRA       MFA47    SA4    CIT                                                             GRA         3229     A     
 GRA                SB5    B5-B1       L = L - 1                                           GRA         3230     A     
 GRA                SA5    X4          BI = BI - 1                                         GRA         3231     A     
 GRA                NZ     B5,MFA41    IF L " 0                                            GRA         3232     A     
 GRA                                                                                       GRA         3233     A     
 GRA                EQ     MFA10                                                           GRA         3234     A     
 GRA       MFA      SPACE  2,14                                                            GRA         3235     A     
 GRA       MFA48    SA1    NAB                                                             GRA         3236     A     
 GRA                SA2    N.HB                                                            GRA         3237     A     
 GRA                NZ     X1,MFA48A   IF NAB " 0    */ B-REGS AVAIL                       GRA         3238     A     
 GRA                SX7    X2-1                                                            GRA         3239     A     
 GRA                NZ     X7,MFA60    IF N.HB " 1   */ NOT OUTER LP WITH 1 INNER          GRA         3240     A     
 GRA                                                                                       GRA         3241     A     
 GRA      *         FORM SORT TABLE OF CONSTANTS WITH MORE THAN 1 OCCURANCE OR             GRA         3242     A     
 GRA      *         PREVIOUSLY ASSIGNED TO A REGISTER IN AN INNER LOOP.                    GRA         3243     A     
 GRA                                                                                       GRA         3244     A     
 GRA       MFA48A   SA2    CL                                                              GRA         3245     A     
 GRA                MX0    -CA.NOCCL                                                       GRA         3246     A     
 GRA                SX7    B0                                                              GRA         3247     A     
 GRA                LX0    CA.NOCCP                                                        GRA         3248     A     
 GRA                SB7    SCR+1                                                           GRA         3249     A     
 GRA                SA7    B7-B1       SI = SCR;  [SI] = 0                                 GRA         3250     A     
 GRA                SX1    B0          L = 0                                               GRA         3251     A     
 GRA                SX2    X2          J = CL                                              GRA         3252     A     
 GRA                SB5    -36B                                                            GRA         3253     A     
 GRA                SA0    0           NPA = 0       */ N. PREVIOUS ASSIGNMENTS            GRA         3254     A     
 GRA                MX3    1                                                               GRA         3255     A     
 GRA                LX3    1+CA.RAP                                                        GRA         3256     A     
 GRA                                                                                       GRA         3257     A     
 GRA       MFA49    SA5    B6+X2       CAW = RCT(J)                                        GRA         3258     A     
 GRA                BX6    -X0*X5      N = NOCC[CAW]                                       GRA         3259     A     
 GRA                IX7    X6+X2                                                           GRA         3260     A     
 GRA                BX4    X3*X5                                                           GRA         3261     A     
 GRA                LX4    58-CA.RAP                                                       GRA         3262     A     
 GRA                BX7    X4+X7       STW = CST(RA[CAW],N,J)                              GRA         3263     A     
 GRA                ZR     X4,MFA50    IF ^RA[CAW]                                         GRA         3264     A     
 GRA                SA0    A0+B1       NPA = NPA + 1                                       GRA         3265     A     
 GRA                EQ     MFA51                                                           GRA         3266     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3110    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       GRA         3267     A     
 GRA       MFA50    LX6    -CA.NOCCP                                                       GRA         3268     A     
 GRA                SB2    X6                                                              GRA         3269     A     
 GRA                LE     B2,B1,MFA52 IF N @ 1                                            GRA         3270     A     
 GRA                                                                                       GRA         3271     A     
 GRA       MFA51    SX1    X1+1        L = L + 1                                           GRA         3272     A     
 GRA                SA7    A7+B1       SI = SI + 1;  [SI] = CST(N,J)                       GRA         3273     A     
 GRA                SB2    X1+B5                                                           GRA         3274     A     
 GRA                PL     B2,MFA53    IF L = 36B                                          GRA         3275     A     
 GRA                                                                                       GRA         3276     A     
 GRA       MFA52    SA5    A5+2                                                            GRA         3277     A     
 GRA                LX5    -CC.INCP                                                        GRA         3278     A     
 GRA                SX2    X5          J = INC[RCT(J+2)]                                   GRA         3279     A     
 GRA                NZ     X2,MFA49    IF J " 0      */ NOT END OF CON LIST                GRA         3280     A     
 GRA                                                                                       GRA         3281     A     
 GRA       MFA53    ZR     X1,MFA60    IF L = 0      */ NO CANIDATES                       GRA         3282     A     
 GRA                MX7    0                                                               GRA         3283     A     
 GRA                SA7    A7+B1       SI = SI + 1;  [SI] = 0                              GRA         3284     A     
 GRA                                                                                       GRA         3285     A     
 GRA                CALL   SHL         SORT( SCR )                                         GRA         3286     A     
 GRA                SA1    O.RND                                                           GRA         3287     A     
 GRA                SA5    NAB                                                             GRA         3288     A     
 GRA                SB2    A0+B1                                                           GRA         3289     A     
 GRA                SB3    B3-B2       SI = SI - (NPA+1)  */ LWA OF ^ASGNED CONS           GRA         3290     A     
 GRA                SB7    X1+                                                             GRA         3291     A     
 GRA                NZ     X5,MFA54    IF NAB " 0                                          GRA         3292     A     
 GRA                EQ     B2,B1,MFA60 IF NPA = 0                                          GRA         3293     A     
 GRA                EQ     MFA55                                                           GRA         3294     A     
 GRA                                                                                       GRA         3295     A     
 GRA      *         ASSIGN CONSTANTS TO THE B-REGS                                         GRA         3296     A     
 GRA                                                                                       GRA         3297     A     
 GRA       MFA54    SA5    B3          J = CO[SI]                                          GRA         3298     A     
 GRA                ZR     X5,MFA55    IF J = 0      */ END OF SORT TABLE                  GRA         3299     A     
 GRA                SB3    B3-B1       SI = SI - 1                                         GRA         3300     A     
 GRA                SX1    B1          INVF = 1                                            GRA         3301     A     
 GRA                SB4    X5                                                              GRA         3302     A     
 GRA                RJ     AIR         ASSIGN AN INDEX REGISTER                            GRA         3303     A     
 GRA                SA1    NAB                                                             GRA         3304     A     
 GRA                NZ     X1,MFA54    IF NAB " 0    */ MORE B-REGS LEFT                   GRA         3305     A     
 GRA                                                                                       GRA         3306     A     
 GRA      *         PROPAGATE CONSTANT ASSIGNMENTS TO PARTIALLY MODIFIED INSTS             GRA         3307     A     
 GRA                                                                                       GRA         3308     A     
 GRA       MFA55    SA2    PMF                                                             GRA         3309     A     
 GRA                ZR     X2,MFA60    IF PMF = 0    */ NO PARTIAL MODS                    GRA         3310     A     
 GRA                MX0    -IH.CAL                                                         GRA         3311     A     
 GRA                SA3    B3+B1       SI = SI + 1   */ IN *A3*                            GRA         3312     A     
 GRA                LX0    IH.CAP                                                          GRA         3313     A     
 GRA                SB4    X3+B1       J = CO[SI]                                          GRA         3314     A     
 GRA                                                                                       GRA         3315     A     
 GRA       MFA56    SA1    B6+B4       C2W = RCT(J+1)                                      GRA         3316     A     
 GRA                SA2    A1+B1                                                           GRA         3317     A     
 GRA                MX7    -CC.REG1L                                                       GRA         3318     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3111    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                LX2    -CC.REG1P                                                       GRA         3319     A     
 GRA                BX2    -X7*X2      REGN = REG1[RCT(J+2)]                               GRA         3320     A     
 GRA                SA5    B7+B1       BI = O.RND + 1                                      GRA         3321     A     
 GRA                LX2    CC.REG2P                                                        GRA         3322     A     
 GRA                                                                                       GRA         3323     A     
 GRA       MFA57    PL     X5,MFA59    IF [BI] > 0   */ NOT A PARTIAL MOD                  GRA         3324     A     
 GRA                BX5    -X5                                                             GRA         3325     A     
 GRA                SB2    X5+B1       I = -CO[BI]                                         GRA         3326     A     
 GRA                SA4    B6+B2                                                           GRA         3327     A     
 GRA                SX7    1S6         IT = 2                                              GRA         3328     A     
 GRA                BX5    -X0*X4      C = CA[RCT(I+1)]                                    GRA         3329     A     
 GRA                IX6    X5-X1                                                           GRA         3330     A     
 GRA                ZR     X6,MFA58    IF C = C2W                                          GRA         3331     A     
 GRA                IX4    X5+X1                                                           GRA         3332     A     
 GRA                BX6    X0+X4                                                           GRA         3333     A     
 GRA                NZ     X6,MFA59    IF -C " C2W                                         GRA         3334     A     
 GRA                LX7    1           IT = 3        */ 2S6                                GRA         3335     A     
 GRA                                                                                       GRA         3336     A     
 GRA      *         CHANGE INSTRUCTION                                                     GRA         3337     A     
 GRA                                                                                       GRA         3338     A     
 GRA       MFA58    SA4    A4+B1       CCW = RCT(I+2)                                      GRA         3339     A     
 GRA                BX6    X2+X7       REG2[CCW] = REGN                                    GRA         3340     A     
 GRA                IX7    X6+X4       MIT[CCW] = IT                                       GRA         3341     A     
 GRA                SA6    A4                                                              GRA         3342     A     
 GRA                SA7    A4                                                              GRA         3343     A     
 GRA                                                                                       GRA         3344     A     
 GRA       MFA59    SA5    A5+B1       BI = BI + 1                                         GRA         3345     A     
 GRA                NZ     X5,MFA57    IF [BI] " 0   */ NOT END OF ADDRESS TABLE           GRA         3346     A     
 GRA                                                                                       GRA         3347     A     
 GRA                SA3    A3+B1       SI = SI + 1                                         GRA         3348     A     
 GRA                SB4    X3+B1       J = CO[SI]                                          GRA         3349     A     
 GRA                NZ     X3,MFA56    IF J " 0                                            GRA         3350     A     
 GRA       MFA      SPACE  2,14                                                            GRA         3351     A     
 GRA      *         SETUP LOOP TEST REPLACEMENT CODE INFO                                  GRA         3352     A     
 GRA                                                                                       GRA         3353     A     
 GRA       MFA60    SA1    TRD                                                             GRA         3354     A     
 GRA                SX6    0           L.RND = 0                                           GRA         3355     A     
 GRA                SA6    L.RND                                                           GRA         3356     A     
 GRA                ZR     X1,MFA      IF TRD = 0    */ NO TEST REPLACEMENT                GRA         3357     A     
 GRA                                                                                       GRA         3358     A     
 GRA                SA5    LUL                                                             GRA         3359     A     
 GRA                UX6    B2,X5                                                           GRA         3360     A     
 GRA                NZ     B2,MFA61    IF TYPE[LUL] " 0  */ NOT A CON *UL*                 GRA         3361     A     
 GRA                                                                                       GRA         3362     A     
 GRA      *         ENTER CONSTANT UPPER LIMIT IN *RCT*                                    GRA         3363     A     
 GRA                                                                                       GRA         3364     A     
 GRA                ALLOC  RCT,3       ALLOC( RCT , 3 )                                    GRA         3365     A     
 GRA                MX0    -IH.CAL                                                         GRA         3366     A     
 GRA                SX6    B1                                                              GRA         3367     A     
 GRA                BX7    -X0*X5                                                          GRA         3368     A     
 GRA                LX6    CA.CONP                                                         GRA         3369     A     
 GRA                SA6    X2+B6       RCT(OL) = CAW(0,CON,0)                              GRA         3370     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3112    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                LX7    IH.CAP                                                          GRA         3371     A     
 GRA                SA7    A6+B1       RCT(OL+1) = IHW(0,0,CA[LUL],0)                      GRA         3372     A     
 GRA                MX6    0                                                               GRA         3373     A     
 GRA                SA6    A7+B1       RCT(OL+2) = 0                                       GRA         3374     A     
 GRA                SA1    TRD                                                             GRA         3375     A     
 GRA                SA4    X2+B1                                                           GRA         3376     A     
 GRA                SX6    X1-2                                                            GRA         3377     A     
 GRA                NZ     X6,MFA60B   IF TRD " 2                                          GRA         3378     A     
 GRA                                                                                       GRA         3379     A     
 GRA      *         I, N IN REGS, CHECK FOR PREVIOUS ASSIGNMENT OF *UL* IN THIS LP         GRA         3380     A     
 GRA                                                                                       GRA         3381     A     
 GRA                SB5    X2+4                                                            GRA         3382     A     
 GRA                SB3    3                                                               GRA         3383     A     
 GRA       MFA60A   BX6    X4-X7                                                           GRA         3384     A     
 GRA                SA4    A4+B3                                                           GRA         3385     A     
 GRA                NZ     X6,MFA60A   IF RCT(I-2) " RCT(OL+1)                             GRA         3386     A     
 GRA                SB4    A4-B5                                                           GRA         3387     A     
 GRA                EQ     B4,B6,MFA60B      IF I = OL                                     GRA         3388     A     
 GRA                SA3    A4-4        CAW = RCT(I)                                        GRA         3389     A     
 GRA                LX3    59-CA.RAP                                                       GRA         3390     A     
 GRA                PL     X3,MFA60A   IF ^RA[RCT(I)-3)]                                   GRA         3391     A     
 GRA                LX3    CA.RAP-CA.CONP                                                  GRA         3392     A     
 GRA                PL     X3,MFA60A   IF ^CON[CAW]                                        GRA         3393     A     
 GRA                SA1    LUL+1                                                           GRA         3394     A     
 GRA                SA6    RAT+X1      RAT(LUL(2)) = 0                                     GRA         3395     A     
 GRA                SA4    A3+2        CCW = RCT(I+2)                                      GRA         3396     A     
 GRA                LX4    -CC.REG1P                                                       GRA         3397     A     
 GRA                MX0    -CC.REG1L                                                       GRA         3398     A     
 GRA                BX6    -X0*X4      LUL(2) = REG1[CCW]                                  GRA         3399     A     
 GRA                SA6    A1                                                              GRA         3400     A     
 GRA                SB6    B4          OL = I                                              GRA         3401     A     
 GRA                                                                                       GRA         3402     A     
 GRA       MFA60B   SA1    LUL+1                                                           GRA         3403     A     
 GRA                SX7    B6                                                              GRA         3404     A     
 GRA                MX0    1                                                               GRA         3405     A     
 GRA                LX0    1+RA.INVP                                                       GRA         3406     A     
 GRA                BX7    X0+X7       RAT(LUL(2)) = RATW(1,0,0,OL)                        GRA         3407     A     
 GRA                SA7    RAT+X1                                                          GRA         3408     A     
 GRA                                                                                       GRA         3409     A     
 GRA       MFA61    SA5    TRD                                                             GRA         3410     A     
 GRA                SB2    X5-2                                                            GRA         3411     A     
 GRA                ZR     B2,MFA      IF TRD = 2    */ I,N CASE                           GRA         3412     A     
 GRA                PL     B2,MFA63    IF TRD " 1                                          GRA         3413     A     
 GRA                                                                                       GRA         3414     A     
 GRA      *         I-N CASE, SETUP TO BIAS REG THAT *CV* IS IN                            GRA         3415     A     
 GRA                                                                                       GRA         3416     A     
 GRA       MFA62    SA1    LUL+1                                                           GRA         3417     A     
 GRA                SA2    RAT+X1                                                          GRA         3418     A     
 GRA                SA3    LCV+1                                                           GRA         3419     A     
 GRA                SA4    RAT+X3                                                          GRA         3420     A     
 GRA                SX2    X2                                                              GRA         3421     A     
 GRA                LX2    RA.R2P      R2[RAT(LCV(2))] = R1[RAT(LUL(2))]                   GRA         3422     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3113    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                BX6    X2+X4                                                           GRA         3423     A     
 GRA                SA6    A4                                                              GRA         3424     A     
 GRA                MX7    0                                                               GRA         3425     A     
 GRA                SA7    A2          RAT(LUL(2)) = 0                                     GRA         3426     A     
 GRA                SA7    A1          LUL(2) = 0                                          GRA         3427     A     
 GRA                EQ     MFA                                                             GRA         3428     A     
 GRA                                                                                       GRA         3429     A     
 GRA      *         PROCESS A+I , A+N CASE , CV REG IS ALREADY BIASED                      GRA         3430     A     
 GRA                                                                                       GRA         3431     A     
 GRA       MFA63    NE     B2,B1,MFA64 IF TRD " 3                                          GRA         3432     A     
 GRA                SA1    LUL+1                                                           GRA         3433     A     
 GRA                SA2    RAT+X1                                                          GRA         3434     A     
 GRA                SA3    LCV+1                                                           GRA         3435     A     
 GRA                SA4    RAT+X3                                                          GRA         3436     A     
 GRA                MX0    -RA.R3L                                                         GRA         3437     A     
 GRA                SX7    B1                                                              GRA         3438     A     
 GRA                LX0    RA.R3P                                                          GRA         3439     A     
 GRA                BX5    -X0*X4      J = R3[RAT(LCV(2))]                                 GRA         3440     A     
 GRA                LX7    RA.INVP                                                         GRA         3441     A     
 GRA                BX2    X7+X2       INV[RAT(LUL(2))] = 1                                GRA         3442     A     
 GRA                BX6    X5+X2       R3[RAT(LUL(2))] = J                                 GRA         3443     A     
 GRA                SA6    A2                                                              GRA         3444     A     
 GRA                EQ     MFA                                                             GRA         3445     A     
 GRA                                                                                       GRA         3446     A     
 GRA      *         TRD = 4, I,F(I) IN REGS, SEARCH FOR F(I)                               GRA         3447     A     
 GRA                                                                                       GRA         3448     A     
 GRA       MFA64    SA1    O.RCT                                                           GRA         3449     A     
 GRA                SA2    O.TET                                                           GRA         3450     A     
 GRA                SA3    O.IIT                                                           GRA         3451     A     
 GRA                SA4    =XIT.                                                           GRA         3452     A     
 GRA                SA5    LCV                                                             GRA         3453     A     
 GRA                SB7    7           I = 7         */ REGNO                              GRA         3454     A     
 GRA                SB6    X1+B1                                                           GRA         3455     A     
 GRA                SB5    X2                                                              GRA         3456     A     
 GRA                SB4    X3+B1                                                           GRA         3457     A     
 GRA                BX4    -X4                                                             GRA         3458     A     
 GRA                SB3    X4                                                              GRA         3459     A     
 GRA                UX5    X5                                                              GRA         3460     A     
 GRA                AX5    PS.UDIP                                                         GRA         3461     A     
 GRA                BX5    -X5                                                             GRA         3462     A     
 GRA                SB2    X5          U = UDI[LCV]                                        GRA         3463     A     
 GRA                                                                                       GRA         3464     A     
 GRA       MFA65    SA5    RAT+B7      R = R1[RAT(I)]                                      GRA         3465     A     
 GRA                ZR     X5,MFA66    IF R = 0                                            GRA         3466     A     
 GRA                SA4    B6+X5       C2W = RCT(R+1)                                      GRA         3467     A     
 GRA                SX6    X4+B3                                                           GRA         3468     A     
 GRA                NZ     X6,MFA66    IF IH[C2W] " IT.                                    GRA         3469     A     
 GRA                SA3    A4-B1                                                           GRA         3470     A     
 GRA                LX4    -IH.CAP     C = CA[C2W]                                         GRA         3471     A     
 GRA                LX3    59-CA.KDP                                                       GRA         3472     A     
 GRA                SA2    B5+X4                                                           GRA         3473     A     
 GRA                LX2    -T.ITIP     ITI = ITI[TET(C)]                                   GRA         3474     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3114    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                MI     X3,MFA66    IF KD[RCT(R)]                                       GRA         3475     A     
 GRA                SX2    X2                                                              GRA         3476     A     
 GRA                ZR     X2,MFA66    IF ITI = 0                                          GRA         3477     A     
 GRA                SA1    B4+X2       IAW = IIT(ITI+1)                                    GRA         3478     A     
 GRA                LX1    -IA.UDIP                                                        GRA         3479     A     
 GRA                SX6    X1+B2                                                           GRA         3480     A     
 GRA                ZR     X6,MFA67    IF UDI[IAW] = U                                     GRA         3481     A     
 GRA                                                                                       GRA         3482     A     
 GRA       MFA66    SB7    B7-B1       I = I - 1                                           GRA         3483     A     
 GRA                NZ     B7,MFA65    IF I " 0                                            GRA         3484     A     
 GRA                                                                                       GRA         3485     A     
 GRA      *         F(I) NOT FOUND, CHANGE TO TRD = 1                                      GRA         3486     A     
 GRA                                                                                       GRA         3487     A     
 GRA                SX6    B1                                                              GRA         3488     A     
 GRA                SA6    TRD         TRD = 1                                             GRA         3489     A     
 GRA                EQ     MFA62                                                           GRA         3490     A     
 GRA                                                                                       GRA         3491     A     
 GRA      *         POSSIBLE F(I) FOUND, CHECK INCREMENT VALUE. DISALLOW VARIABLE          GRA         3492     A     
 GRA      *         INCREMENTS SINCE THEY MAY BE NEGATIVE.                                 GRA         3493     A     
 GRA                                                                                       GRA         3494     A     
 GRA       MFA67    SA5    A4+B1       CCW = RCT(R+2)                                      GRA         3495          I
          -FCC2135
 GRA                LX5    -CC.INCP                                                        GRA         3496          I
          -FCC2135
 GRA                SX6    X5-1        IP = INC[CCW]                                       GRA         3497          I
          -FCC2135
 GRA                SA1    B6+X6       CAWI = RCT(IP)                                      GRA         3498          I
          -FCC2135
 GRA                SX7    X1                                                              GRA         3499          I
          -FCC2135
 GRA                LX1    59-CA.CONP                                                      GRA         3500          I
          -FCC2135
 GRA                MI     X1,MFA68    IF CON[CAWI]  */ CON INCR                           GRA         3501          I
          -FCC2135
 GRA                ZR     X7,MFA66    IF UDI[CAWI] = 0  */ COMPILER TEMP                  GRA         3502          I
          -FCC2135
 GRA                EQ     MFA66       MORE CODE TO ALLOW PROGRAMMER VAR                   GRA         3503          I
          -FCC2135
 GRA       MFA67    SA3    A4+B1       CCW=RCT(R+2)                                        FCC2135        7     A     
 GRA                LX3    -CC.INCP                                                        FCC2135        8     A     
 GRA                SX6    X3-1        IP=INC[CCW]                                         FCC2135        9     A     
 GRA                SA1    B6+X6       CAWI=RCT(IP)                                        FCC2135       10     A     
 GRA                LX1    59-CA.CONP                                                      FCC2135       11     A     
 GRA                PL     X1,MFA66    IF CON[CAWI]=0 */VAR INCR.                          FCC2135       12     A     
 GRA                                                                                       FCC2135       13     A     
 GRA      *   IF F(I) INDEXES BLANK COMMON, A FORMAL PARAMETER OR LCM AND ITS              FCC2135       14     A     
 GRA      *   INCREMENT IS SUFFICIENTLY LARGE USING IT AS AN ALTERNATE LOOP COUNT          FCC2135       15     A     
 GRA      *   COULD RESULT IN A B REGISTER OVERFLOW.  FIRST CHECK IF SIZE OF               FCC2135       16     A     
 GRA      *   INCREMENT IS SUFFICIENTLY LARGE (>100B).                                     FCC2135       17     A     
 GRA                                                                                       FCC2135       18     A     
 GRA                SA1    A1+B1       IHWI=CAWI+1                                         FCC2135       19     A     
 GRA                LX1    -IH.CAP                                                         FCC2135       20     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3115    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SX1    X1-100                                                          FCC2135       21     A     
 GRA                MI     X1,MFA68    IF CACIHWI]<100                                     FCC2135       22     A     
 GRA                                                                                       FCC2135       23     A     
 GRA      *   SCAN RCT BACKWARDS FOR RF USES OF F(I)  AND CHECK IF F(I) INDEXES            FCC2135       24     A     
 GRA      *   BLANK COMMON, A FORMAL PARAMETER, OR LCM.                                    FCC2135       25     A     
 GRA                                                                                       FCC2135       26     A     
 GRA                SA1    L.RCT                                                           FCC2135       27     A     
 GRA                SA4    O.SYM                                                           FCC2135       28     A     
 GRA                SX5    X5                                                              FCC2135       29     A     
 GRA                MX6    -IH.RFL                                                         FCC2135       30     A     
 GRA                SX0    B2          SAVE B2                                             FCC2135       31     A     
 GRA                LX5    IH.RFP      F(I)                                                FCC2135       32     A     
 GRA                LX6    IH.RFP      RF MASK                                             FCC2135       33     A     
 GRA                SA1    B6+X1       J = O.RCT + L.RCT                                   FCC2135       34     A     
 GRA                SA0    X4-1                                                            FCC2135       35     A     
 GRA       MFA67A   SA1    A1-3        J = J -3                                            FCC2135       36     A     
 GRA                ZR     X1,MFA68    IF R(J) = 0  */END OF RCT.                          FCC2135       37     A     
 GRA                BX4    -X6*X1                                                          FCC2135       38     A     
 GRA                BX4    X4-X5                                                           FCC2135       39     A     
 GRA                NZ     X4,MFA67A   F(I) " RF                                           FCC2135       40     A     
 GRA                SB2    X1                                                              FCC2334       18     A     
 GRA                ZR     B2,MFA67B   IF IH = 0                                           FCC2334       19     A     
 GRA                LX1    -IH.IHP+1                                                       FCC2135       41     A     
 GRA                SB2    X1                                                              FCC2135       42     A     
 GRA                SA4    A0-B2       WORDB=[O.SYM-1-2*H]                                 FCC2135       43     A     
 GRA                LX4    59-P.LCM                                                        FCC2135       44     A     
 GRA                MI     X4,MFA67B   INDEXES LCM                                         FCC2135       45     A     
 GRA                LX4    P.LCM-P.FPB                                                     FCC2135       46     A     
 GRA                MI     X4,MFA67B   INDEXES A FORMAL PARAMETER.                         FCC2135       47     A     
 GRA                LX4    1+P.FPB-P.RL                                                    FCC2135       48     A     
 GRA                MX7    -L.RL                                                           FCC2135       49     A     
 GRA                BX7    -X7*X4                                                          FCC2135       50     A     
 GRA                SX7    X7-2                                                            FCC2135       51     A     
 GRA                NZ     X7,MFA67A   IF RL"2 NOT IN COMMON                               FCC2135       52     A     
 GRA                LX4    P.RL-P.RB                                                       FCC2135       53     A     
 GRA                MX7    -L.RB                                                           FCC2135       54     A     
 GRA                BX7    -X7*X4                                                          FCC2135       55     A     
 GRA                SA4    =XORGTAB-1+X7                                                   FCC2135       56     A     
 GRA                AX4    54                                                              FCC2135       57     A     
 GRA                SX7    X4+77B-1R                                                       FCC2135       58     A     
 GRA                NZ     X7,MFA67A   NOT IN BLANK COMMON                                 FCC2135       59     A     
 GRA                                                                                       FCC2135       60     A     
 GRA      *   F(I) IS NOT SAFE LOOK FOR ANOTHER F(I).                                      FCC2135       61     A     
 GRA                                                                                       FCC2135       62     A     
 GRA       MFA67B   SB2    X0          RESTORE B2                                          FCC2135       63     A     
 GRA                EQ     MFA66                                                           FCC2135       64     A     
 GRA                                                                                       GRA         3504     A     
 GRA      *         ADJUST TRD IF NEGATIVE F(I), SAVE *IIT* INDEX                          GRA         3505     A     
 GRA                                                                                       GRA         3506     A     
 GRA       MFA68    LX5    59-CC.IMP+CC.INCP                                               GRA         3507          I
          -FCC2135
 GRA       MFA68    LX3    59-CC.IMP+CC.INCP                                               FCC2135       65     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3116    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                MX7    1                                                               GRA         3508     A     
 GRA                SX6    4                                                               GRA         3509     A     
 GRA                BX7    X7*X5                                                           GRA         3510          I
          -FCC2135
 GRA                BX7    X7*X3                                                           FCC2135       66     A     
 GRA                BX6    X6+X7       TRD = SHIFT(IM[CCW],59) ! 4                         GRA         3511     A     
 GRA                SA6    TRD                                                             GRA         3512     A     
 GRA                SA1    RAT         ULO = R1[RAT(0)]  */ UL ORD                         GRA         3513     A     
 GRA                SA3    LCV+1                                                           GRA         3514     A     
 GRA                SA4    RAT+X3      CVO = R1[RAT(LCV(2))]                               GRA         3515     A     
 GRA                BX6    X3                                                              GRA         3516     A     
 GRA                SX7    B7                                                              GRA         3517     A     
 GRA                SA6    LUL+1       J = LUL(2) = LCV(2)  */ UL IN CV REG                GRA         3518     A     
 GRA                SA7    A3          LCV(2) = I    */ CV IN F(I) REG                     GRA         3519     A     
 GRA                SX2    X2+B1                                                           GRA         3520     A     
 GRA                LX2    RA.R2P      R2[RAT(J)] = ITI + 1  */ FORMULA INDEX              GRA         3521     A     
 GRA                BX7    X1+X2       R1[RAT(J)] = ULO                                    GRA         3522     A     
 GRA                SA7    RAT+X3                                                          GRA         3523     A     
 GRA                MX6    0                                                               GRA         3524     A     
 GRA                SA6    A1          RAT(0) = 0                                          GRA         3525     A     
 GRA                SB6    B6-B1                                                           GRA         3526     A     
 GRA                MX7    1                                                               GRA         3527     A     
 GRA                SA2    SEEA                                                            GRA         3528     A     
 GRA                SA3    B6+X4                                                           GRA         3529     A     
 GRA                BX6    X2+X3       KD[RCT(CVO)] = 1                                    GRA         3530     A     
 GRA                SA6    A3                                                              GRA         3531     A     
 GRA                EQ     MFA                                                             GRA         3532     A     
 GRA       PSC      TITLE  PSC - PROCESS SIMPLE CLASS ( 1 IH )                             GRA         3533     A     
 GRA      **        PSC - PROCESS SIMPLE CLASS ( 1 IH )                                    GRA         3534     A     
 GRA      *         FIND A BASE MEMBER ( *CA* IS IN CENTER OF CLASS ).                     GRA         3535     A     
 GRA      *         REDUCE THE BASE MEMBER TO A SHORT INSTRUCTION AND CHANGE               GRA         3536     A     
 GRA      *         THE OTHER MEMBERS OF THE CLASS TO THE FORM *REG+CON*.                  GRA         3537     A     
 GRA      *                                                                                GRA         3538     A     
 GRA      *         ENTRY  (B5) = L , CLASS LENGTH                                         GRA         3539     A     
 GRA      *                (A5) = BI , LWA OF CLASS                                        GRA         3540     A     
 GRA      *                (A0) = REGNO , REGISTER NUMBER OF *RF*                          GRA         3541     A     
 GRA      *                                                                                GRA         3542     A     
 GRA      *         EXIT   (CAIH) = CAIH OF BASE MEMBER                                    GRA         3543     A     
 GRA                                                                                       GRA         3544     A     
 GRA       PSC      ROUTINE                                                                GRA         3545     A     
 GRA                SB4    B5-B1                                                           GRA         3546     A     
 GRA                SB6    B6+B1                                                           GRA         3547     A     
 GRA                LE     B4,B1,PSC5  IF L @ 2      */ ONLY 2 MEMBERS                     GRA         3548     A     
 GRA                                                                                       GRA         3549     A     
 GRA      *         L > 2 ,  FIND A BASE MEMBER WHICH IS THE CENTER OF THE                 GRA         3550     A     
 GRA      *         *CA*"S IN THE CLASS.                                                   GRA         3551     A     
 GRA                                                                                       GRA         3552     A     
 GRA                SA4    A5          I = BI                                              GRA         3553     A     
 GRA                MX6    0           AVE = 0                                             GRA         3554     A     
 GRA                SB4    B0          J = 0                                               GRA         3555     A     
 GRA                                                                                       GRA         3556     A     
 GRA       PSC2     SA3    B6+X4       C2W = RCT(CO[I]+1)                                  GRA         3557     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3117    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SB4    B4+B1       J = J + 1                                           GRA         3558     A     
 GRA                LX3    -IH.CAP                                                         GRA         3559     A     
 GRA                SA4    A4-B1       I = I - 1                                           GRA         3560     A     
 GRA                SX7    X3                                                              GRA         3561     A     
 GRA                IX6    X6+X7       AVE = AVE + CA[C2W]                                 GRA         3562     A     
 GRA                LT     B4,B5,PSC2  IF J < L                                            GRA         3563     A     
 GRA                SX7    B5                                                              GRA         3564     A     
 GRA                IX7    X6/X7,B4    AVE = AVE / L                                       GRA         3565     A     
 GRA                                                                                       GRA         3566     A     
 GRA      *         SEARCH CLASS TO FIND BASE MEMBER, AND MOVE IT TO LWA OF CLASS          GRA         3567     A     
 GRA                                                                                       GRA         3568     A     
 GRA                SB4    B0          J = 0                                               GRA         3569     A     
 GRA                SA4    A5          I = BI                                              GRA         3570     A     
 GRA                SB3    377777B     MIND = 377777B  */ MIN DIFFERENCE                   GRA         3571     A     
 GRA                SX0    A5          IM = BI                                             GRA         3572     A     
 GRA                                                                                       GRA         3573     A     
 GRA       PSC3     SA3    B6+X4       C2W = RCT(CO[I]+1)                                  GRA         3574     A     
 GRA                LX3    -IH.CAP                                                         GRA         3575     A     
 GRA                SX2    X3          C = CA[C2W]                                         GRA         3576     A     
 GRA                IX6    X2-X7                                                           GRA         3577     A     
 GRA                BX2    X6                                                              GRA         3578     A     
 GRA                AX6    59                                                              GRA         3579     A     
 GRA                BX2    X6-X2       DIFF = ABS( AVE - C )                               GRA         3580     A     
 GRA                SB2    X2                                                              GRA         3581     A     
 GRA                GE     B2,B3,PSC4  IF DIFF \ MIND                                      GRA         3582     A     
 GRA                SX0    A4          IM = I                                              GRA         3583     A     
 GRA                SB3    B2          MIND = DIFF                                         GRA         3584     A     
 GRA       PSC4     SB4    B4+B1       J = J + 1                                           GRA         3585     A     
 GRA                SA4    A4-B1       I = I - 1                                           GRA         3586     A     
 GRA                LT     B4,B5,PSC3  IF J < L                                            GRA         3587     A     
 GRA                                                                                       GRA         3588     A     
 GRA                SA4    X0                                                              GRA         3589     A     
 GRA                LX6    X5                                                              GRA         3590     A     
 GRA                LX7    X4          SWAP( [IM] , [BI] )                                 GRA         3591     A     
 GRA                SA6    A4                                                              GRA         3592     A     
 GRA                SA7    A5                                                              GRA         3593     A     
 GRA                                                                                       GRA         3594     A     
 GRA      *         CHANGE CLASS BASE TO A SHORT REF                                       GRA         3595     A     
 GRA                                                                                       GRA         3596     A     
 GRA       PSC5     SA5    A5                                                              GRA         3597     A     
 GRA                SB6    B6-B1                                                           GRA         3598     A     
 GRA                RJ     AFA         ASSIGN FULL ADDRESS TO BASE                         GRA         3599     A     
 GRA                                                                                       GRA         3600     A     
 GRA      *         CHANGE REST OF CLASS TO LONG REFS OF FORM REG+CON                      GRA         3601     A     
 GRA                                                                                       GRA         3602     A     
 GRA                SA1    A6-B1       C2W = CCW - 1                                       GRA         3603     A     
 GRA                MX0    -IH.RFP                                                         GRA         3604     A     
 GRA                BX7    -X0*X1                                                          GRA         3605     A     
 GRA                LX1    -IH.CAP                                                         GRA         3606     A     
 GRA                SB4    X1          BCA = CA[C2W] */ CA THAT IS IN BASE REG             GRA         3607     A     
 GRA                SA7    CAIH        CAIH = CAIH[C2W]                                    GRA         3608     A     
 GRA                SB4    -B4                                                             GRA         3609     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3118    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                EQ     B5,B1,PSC   IF L = 1                                            GRA         3610     A     
 GRA                                                                                       GRA         3611     A     
 GRA       PSC6     SA5    A5-B1       BI = BI - 1                                         GRA         3612     A     
 GRA                MX0    -IH.CAL                                                         GRA         3613     A     
 GRA                SB2    X5+B1       J = CO[BI]                                          GRA         3614     A     
 GRA                SA4    B6+B2       C2W = RCT(J+1)                                      GRA         3615     A     
 GRA                BX6    -X5         [BI] = -[BI]  */ SET FLAG FOR LATER                 GRA         3616     A     
 GRA                SA6    A5                                                              GRA         3617     A     
 GRA                LX4    -IH.CAP                                                         GRA         3618     A     
 GRA                SX3    X4+B4       C = CA[C2W] - BCA  */ CHANGE CA                     GRA         3619     A     
 GRA                BX4    X0*X4                                                           GRA         3620     A     
 GRA                SA2    A4-B1       CAW = RCT(J)                                        GRA         3621     A     
 GRA                BX1    -X0*X3                                                          GRA         3622     A     
 GRA                BX6    X4+X1       CA[C2W] = C                                         GRA         3623     A     
 GRA                LX6    IH.CAP                                                          GRA         3624     A     
 GRA                MX1    1                                                               GRA         3625     A     
 GRA                SA6    A4                                                              GRA         3626     A     
 GRA                LX1    1+CA.RAP                                                        GRA         3627     A     
 GRA                BX7    X1+X2       RA[RCT(J)] = 1                                      GRA         3628     A     
 GRA                SA7    A2                                                              GRA         3629     A     
 GRA                SA1    A4+B1       CCW = RCT(J+2)                                      GRA         3630     A     
 GRA                SX7    A0+1S6                                                          GRA         3631     A     
 GRA                LX7    CC.REG1P    REG1[CCW] = REGNO                                   GRA         3632     A     
 GRA                BX6    X7+X1       MIT[CCW] = 1  */ PLD, PST                           GRA         3633     A     
 GRA                SA6    A1                                                              GRA         3634     A     
 GRA                RJ     ECC         ENTER CON CANIDATE                                  GRA         3635     A     
 GRA                SB5    B5-B1       L = L - 1                                           GRA         3636     A     
 GRA                GT     B5,B1,PSC6  IF L > 1                                            GRA         3637     A     
 GRA                                                                                       GRA         3638     A     
 GRA                SX6    B1                                                              GRA         3639     A     
 GRA                SA6    PMF         PMF = 1       */ INDICATE PLD"S EXIST               GRA         3640     A     
 GRA                EQ     PSC                                                             GRA         3641     A     
 GRA       AAD      TITLE  AAD - ASSIGN ADDRESS DIFFERENCE TO A REGISTER                   GRA         3642     A     
 GRA      **        AAD - ASSIGN ADDRESS DIFFERENCE TO A REGISTER                          GRA         3643     A     
 GRA      *                                                                                GRA         3644     A     
 GRA      *         ENTRY  (A0) = REGNO OF BASE REGISTER                                   GRA         3645     A     
 GRA      *                (B5) = J , ORDINAL OF CANIDATE TO BE DIFFERENCED                GRA         3646     A     
 GRA      *                (CAIH) = CA,IH IN BASE REGISTER                                 GRA         3647     A     
 GRA                                                                                       GRA         3648     A     
 GRA       AAD      ROUTINE                                                                GRA         3649     A     
 GRA                SA1    CAIH        CAIH1 = CAIH                                        GRA         3650     A     
 GRA                SB2    B5+B1                                                           GRA         3651     A     
 GRA                SA2    B6+B2       CAIH2 = RCT(J+1)                                    GRA         3652     A     
 GRA                RJ     SDC         SEARCH FOR CAIH - RCT(J+1)                          GRA         3653     A     
 GRA                SB3    3S6         IT = 3        */ SDL, SDS                           GRA         3654     A     
 GRA                NZ     B2,AAD1     IF REGN " 0   */ DIFF IN A REGISTER                 GRA         3655     A     
 GRA                SA2    CAIH                                                            GRA         3656     A     
 GRA                SB2    B5+B1                                                           GRA         3657     A     
 GRA                SA1    B6+B2                                                           GRA         3658     A     
 GRA                RJ     SDC         SEARCH FOR RCT(J+1) - CAIH                          GRA         3659     A     
 GRA                SB3    2S6         IT = 2        */ SLD, SST                           GRA         3660     A     
 GRA                NZ     B2,AAD1     IF REGN " 0                                         GRA         3661     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3119    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       GRA         3662     A     
 GRA                RJ     EDC         ENTER DIFFERENCE CANIDATE                           GRA         3663     A     
 GRA                                                                                       GRA         3664     A     
 GRA      *         SETUP *J* AS A SLD OR SDL                                              GRA         3665     A     
 GRA                                                                                       GRA         3666     A     
 GRA       AAD1     SA1    B6+B5                                                           GRA         3667     A     
 GRA                MX0    1                                                               GRA         3668     A     
 GRA                SA2    A1+2        CCW = RCT(J+2)                                      GRA         3669     A     
 GRA                LX0    1+CA.RAP                                                        GRA         3670     A     
 GRA                SX3    A0+B3       REG1[CCW] = REGNO;  MIT[CCW] = IT                   GRA         3671     A     
 GRA                LX3    CC.REG1P                                                        GRA         3672     A     
 GRA                SX4    B2          REG2[CCW] = REGN                                    GRA         3673     A     
 GRA                LX4    CC.REG2P                                                        GRA         3674     A     
 GRA                BX6    X0+X1       RA[RCT(J)] = 1                                      GRA         3675     A     
 GRA                IX5    X3+X4                                                           GRA         3676     A     
 GRA                SA6    A1                                                              GRA         3677     A     
 GRA                BX7    X5+X2                                                           GRA         3678     A     
 GRA                SA7    A2                                                              GRA         3679     A     
 GRA                EQ     AAD                                                             GRA         3680     A     
 GRA       ECD      SPACE  3,14        ECD                                                 GRA         3681     A     
 GRA      **        EDC - ENTER DIFFERENCE CANIDATE IN *RCT* AND ASSIGN A REG              GRA         3682     A     
 GRA                                                                                       GRA         3683     A     
 GRA       EDC      ROUTINE                                                                GRA         3684     A     
 GRA                SA1    L.RCT                                                           GRA         3685     A     
 GRA                SA4    EDCA                                                            GRA         3686     A     
 GRA                SB2    X1+B1       OL = L.RCT                                          GRA         3687     A     
 GRA                SA6    B6+B2       RCT(OL+1) = KEY                                     GRA         3688     A     
 GRA                SA7    A6+B1       RCT(OL+2) = KEY2                                    GRA         3689     A     
 GRA                BX6    X4                                                              GRA         3690     A     
 GRA                SA6    A6-B1       RCT(OL) = CAW(0,AC,PL,0)                            GRA         3691     A     
 GRA                SX7    X1+3        L.RCT = L.RCT + 3                                   GRA         3692     A     
 GRA                SA7    A1                                                              GRA         3693     A     
 GRA                SB4    X1                                                              GRA         3694     A     
 GRA                SX1    B1          INVF = 1                                            GRA         3695     A     
 GRA                RJ     AIR         ASSIGN A B-REG                                      GRA         3696     A     
 GRA                SB2    -B2                                                             GRA         3697     A     
 GRA                EQ     EDC                                                             GRA         3698     A     
 GRA                                                                                       GRA         3699     A     
 GRA       EDCA     BFMW   CA,(AC,PL)                                                      GRA         3700     A     
 GRA       SDC      SPACE  3,20        SDC                                                 GRA         3701     A     
 GRA      **        SDC - SEARCH FOR DIFFERENCE CANIDATE                                   GRA         3702     A     
 GRA      *                                                                                GRA         3703     A     
 GRA      *         ENTRY  (X1) = CAIH1                                                    GRA         3704     A     
 GRA      *                (X2) = CAIH2                                                    GRA         3705     A     
 GRA      *                                                                                GRA         3706     A     
 GRA      *         EXIT   (X6) = KEY = IHW(0,0, CA1-CA2 , IH1 )                           GRA         3707     A     
 GRA      *                (X7) = KEY2 = CCW(0,IH2,0,0,0)                                  GRA         3708     A     
 GRA      *                (B2) = REGN , REGNO THAT KEY,KEY2 IS IN                         GRA         3709     A     
 GRA                                                                                       GRA         3710     A     
 GRA       SDC      ROUTINE                                                                GRA         3711     A     
 GRA                SX7    X2                                                              GRA         3712     A     
 GRA                LX7    CC.H2P      KEY2 = CCW(0,IH2,0)                                 GRA         3713     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3120    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SX6    X1                                                              GRA         3714     A     
 GRA                LX6    IH.IHP                                                          GRA         3715     A     
 GRA                LX1    -IH.CAP                                                         GRA         3716     A     
 GRA                LX2    -IH.CAP                                                         GRA         3717     A     
 GRA                SX1    X1                                                              GRA         3718     A     
 GRA                SX2    X2                                                              GRA         3719     A     
 GRA                IX5    X1-X2                                                           GRA         3720     A     
 GRA                MX0    -IH.CAL                                                         GRA         3721     A     
 GRA                BX4    -X0*X5                                                          GRA         3722     A     
 GRA                LX4    IH.CAP                                                          GRA         3723     A     
 GRA                MX0    -CC.H2L                                                         GRA         3724     A     
 GRA                BX6    X4+X6       KEY = IHW(0,0, CA1-CA2 , IH1 )                      GRA         3725     A     
 GRA                LX0    CC.H2P                                                          GRA         3726     A     
 GRA                SB2    7           REGN = 7                                            GRA         3727     A     
 GRA                SA5    RAT+7       RI = RAT(REGN)                                      GRA         3728     A     
 GRA                                                                                       GRA         3729     A     
 GRA      *         SEARCH B-REGISTERS FOR PREVIOUS OCCURANCE OF DIFF CANIDATE             GRA         3730     A     
 GRA                                                                                       GRA         3731     A     
 GRA       SDC1     SA2    B6+X5                                                           GRA         3732     A     
 GRA                SA4    A2+B1                                                           GRA         3733     A     
 GRA                LX2    59-CA.ACP                                                       GRA         3734     A     
 GRA                BX3    X4-X6                                                           GRA         3735     A     
 GRA                PL     X2,SDC2     IF ^AC[RCT(RI)]                                     GRA         3736     A     
 GRA                NZ     X3,SDC2     IF RCT(RI+1) " KEY                                  GRA         3737     A     
 GRA                SA4    A4+1                                                            GRA         3738     A     
 GRA                BX3    X7-X4                                                           GRA         3739     A     
 GRA                BX2    -X0*X3                                                          GRA         3740     A     
 GRA                ZR     X2,SDC      IF H2[RCT(RI+2)] = KEY2                             GRA         3741     A     
 GRA       SDC2     SB2    B2-B1       REGN = REGN - 1                                     GRA         3742     A     
 GRA                SA5    A5-B1       RI = RAT(REGN)                                      GRA         3743     A     
 GRA                NZ     B2,SDC1     IF REGN " 0                                         GRA         3744     A     
 GRA                                                                                       GRA         3745     A     
 GRA                EQ     SDC                                                             GRA         3746     A     
 GRA       AFA      TITLE  AFA - ASSIGN FULL ADDRESS TO A B-REG                            GRA         3747     A     
 GRA      **        AFA - ASSIGN FULL ADDRESS TO A B-REG                                   GRA         3748     A     
 GRA      *                                                                                GRA         3749     A     
 GRA      *         ENTRY  (A0) = REGNO OF REGISTER WITH *RF*                              GRA         3750     A     
 GRA      *                (X5) = [BI] , B-CANIDATE TABLE WORD OF ENTRY                    GRA         3751     A     
 GRA      *                (B6) = [O.RCT]                                                  GRA         3752     A     
 GRA      *                                                                                GRA         3753     A     
 GRA      *         EXIT   (A6) = CCW , ADDRESS OF CC WORD                                 GRA         3754     A     
 GRA      *                RAT, RCT UPDATED                                                GRA         3755     A     
 GRA                                                                                       GRA         3756     A     
 GRA       AFA      ROUTINE                                                                GRA         3757     A     
 GRA                SA4    RAT+A0                                                          GRA         3758     A     
 GRA                SA1    B6+X5                                                           GRA         3759     A     
 GRA                SX3    X5          J = CO[BI]                                          GRA         3760     A     
 GRA                LX3    RA.R3P                                                          GRA         3761     A     
 GRA                BX6    X3+X4       R3[RAT(REGNO)] = J  */ SET TO APPEND IH,CA          GRA         3762     A     
 GRA                SA6    A4                                                              GRA         3763     A     
 GRA                MX0    1                                                               GRA         3764     A     
 GRA                SA2    A1+2        CCW = RCT(J+2)                                      GRA         3765     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3121    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                LX0    1+CA.RAP                                                        GRA         3766     A     
 GRA                BX7    X0+X1       RA[RCT(J)] = 1  */ INDICATE MODIFICATION            GRA         3767     A     
 GRA                SA7    A1                                                              GRA         3768     A     
 GRA                SX3    A0+2S6                                                          GRA         3769     A     
 GRA                LX3    CC.REG1P    REG1[CCW] = REGNO                                   GRA         3770     A     
 GRA                BX6    X2+X3       MIT[CCW] = 2  */ SLD, SST                           GRA         3771     A     
 GRA                SA6    A2                                                              GRA         3772     A     
 GRA                EQ     AFA                                                             GRA         3773     A     
 GRA       ECC      TITLE  ECC - ENTER CONSTANT CANIDATE                                   GRA         3774     A     
 GRA      **        ECC - ENTER CONSTANT CANIDATE                                          GRA         3775     A     
 GRA      *                                                                                GRA         3776     A     
 GRA      *         ENTRY  (X3) = CON                                                      GRA         3777     A     
 GRA      *                (X2) = CAW OF REF THAT IT IS PART OF                            GRA         3778     A     
 GRA      *                (B6) = [O.RCT]                                                  GRA         3779     A     
 GRA                                                                                       GRA         3780     A     
 GRA      *         BUMP OCCURANCES OF CANIDATE IN TABLE                                   GRA         3781     A     
 GRA                                                                                       GRA         3782     A     
 GRA       ECC0     SA2    A4-B1       CAW = RCT(I)                                        GRA         3783     A     
 GRA                IX6    X2+X0       NOCC[CAW] = NOCC[CAW] + N                           GRA         3784     A     
 GRA                SA6    A2                                                              GRA         3785     A     
 GRA                                                                                       GRA         3786     A     
 GRA       ECC      ROUTINE                                                                GRA         3787     A     
 GRA                SA1    CL                                                              GRA         3788     A     
 GRA                MX0    -CA.NOCCL                                                       GRA         3789     A     
 GRA                LX3    IH.CAP                                                          GRA         3790     A     
 GRA                LX0    CA.NOCCP                                                        GRA         3791     A     
 GRA                SB2    X1+1        I = CL                                              GRA         3792     A     
 GRA                BX0    -X0*X2      N = NOCC[CAW]                                       GRA         3793     A     
 GRA                PL     X3,ECC1     KEY = IHW(0,0,ABS(CON),0)                           GRA         3794     A     
 GRA                BX3    -X3                                                             GRA         3795     A     
 GRA                                                                                       GRA         3796     A     
 GRA       ECC1     SA4    B6+B2       C2W = RCT(I+1)                                      GRA         3797     A     
 GRA                BX6    X3-X4                                                           GRA         3798     A     
 GRA                ZR     X6,ECC0     IF [C2W] = KEY                                      GRA         3799     A     
 GRA                SA1    A4+B1       CCW = RCT(I+2)                                      GRA         3800     A     
 GRA                LX1    -CC.INCP                                                        GRA         3801     A     
 GRA                SB2    X1+1        I = INC[CCW]                                        GRA         3802     A     
 GRA                NE     B2,B1,ECC1  IF I " 0                                            GRA         3803     A     
 GRA                                                                                       GRA         3804     A     
 GRA      *         CON NOT ON CHAIN, ADD TO THE END OF RCT AND END OF CHAIN.              GRA         3805     A     
 GRA                                                                                       GRA         3806     A     
 GRA                SA2    L.RCT       OL = L.RCT                                          GRA         3807     A     
 GRA                SX7    X2+3        L.RCT = L.RCT + 3                                   GRA         3808     A     
 GRA                BX6    X2+X1       INC[CCW] = OL                                       GRA         3809     A     
 GRA                SA7    A2                                                              GRA         3810     A     
 GRA                LX6    CC.INCP                                                         GRA         3811     A     
 GRA                SA6    A1                                                              GRA         3812     A     
 GRA                SX4    B1                                                              GRA         3813     A     
 GRA                LX4    CA.CONP                                                         GRA         3814     A     
 GRA                BX6    X0+X4       RCT(OL) = CAW(CON,0,N,0)                            GRA         3815     A     
 GRA                SA6    B6+X2                                                           GRA         3816     A     
 GRA                BX7    X3                                                              GRA         3817     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3122    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA7    A6+B1       RCT(OL+1) = KEY                                     GRA         3818     A     
 GRA                MX6    0                                                               GRA         3819     A     
 GRA                SA6    A7+B1       RCT(OL+2) = 0                                       GRA         3820     A     
 GRA                EQ     ECC                                                             GRA         3821     A     
 GRA       GRA      TTL    GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                   GRA         3822     A     
 GRA       SUP      TITLE  SUP - SETUP PRELOADS OF LOCKED REGISTERS                        GRA         3823     A     
 GRA      **        TYPEI - DEFINE MACRO TO FORM A TYPE I INSTRUCTION                      GRA         3824     A     
 GRA      *                J,K OPERANDS MUST BE IN X-REGISTERS.                            GRA         3825     A     
 GRA      *                R2 WORD IS ASSUMED TO BE IN X7 .                                GRA         3826     A     
 GRA                                                                                       GRA         3827     A     
 GRA       TYPEI    MACRO  OPC,I,J,K                                                       GRA         3828     A     
 GRA                R=     X6,I                                                            GRA         3829     A     
 GRA                IFC    NE,/J//,2                                                       GRA         3830     A     
 GRA                L_J    R1.RJP                                                          GRA         3831     A     
 GRA                BX6    X6+J                                                            GRA         3832     A     
 GRA                IFC    NE,/K//,2                                                       GRA         3833     A     
 GRA                L_K    R1.RKP                                                          GRA         3834     A     
 GRA                BX6    X6+K                                                            GRA         3835     A     
 GRA                IF     REG,OPC,2                                                       GRA         3836     A     
 GRA                R=     B2,OPC                                                          GRA         3837     A     
 GRA                ELSE   1                                                               GRA         3838     A     
 GRA                R=     B2,OC.OPC                                                       GRA         3839     A     
 GRA                RJ     SRI                                                             GRA         3840     A     
 GRA                ENDM                                                                   GRA         3841     A     
 GRA       ORS      SPACE  2,14        ORS                                                 GRA         3842     A     
 GRA      **        ORS - OUTPUT *RS*                                                      GRA         3843     A     
 GRA      *                                                                                GRA         3844     A     
 GRA      *         ENTRY  (B5) = I , REGNO OF REGISTER                                    GRA         3845     A     
 GRA                                                                                       GRA         3846     A     
 GRA       ORS0     SB2    OC.RS                                                           GRA         3847     A     
 GRA                RJ     SRI         SRI(  RS  MI-4,FL+I )                               GRA         3848     A     
 GRA                                                                                       GRA         3849     A     
 GRA       ORS      ROUTINE                                                                GRA         3850     A     
 GRA                SA2    RAT+B5      RW = RAT(I)                                         GRA         3851     A     
 GRA                SX4    B5+SO.LOCK                                                      GRA         3852     A     
 GRA                SX6    B6-4                                                            GRA         3853     A     
 GRA                LX4    R1.SOP                                                          GRA         3854     A     
 GRA                BX6    X4+X6                                                           GRA         3855     A     
 GRA                MX4    1                                                               GRA         3856     A     
 GRA                BX7    X4*X2                                                           GRA         3857     A     
 GRA                LX7    1+R1.SOP+SO.INVP                                                GRA         3858     A     
 GRA                BX6    X7+X6       INV[R1W] = INV[RAT(I)]                              GRA         3859     A     
 GRA                MX3    -2*RA.R1L                                                       GRA         3860     A     
 GRA                SX7    B0          R2W = 0                                             GRA         3861     A     
 GRA                LX3    RA.R2P                                                          GRA         3862     A     
 GRA                BX4    -X3*X2                                                          GRA         3863     A     
 GRA                NZ     X4,ORS0     IF ( R2[RW] ! R3[RW] ) " 0                          GRA         3864     A     
 GRA                                                                                       GRA         3865     A     
 GRA                SA2    B4+X2       CAW = RCT(R1[RW])                                   GRA         3866     A     
 GRA                SA3    A2+B1       C2W = RCT(R1[RW]+1)                                 GRA         3867     A     
 GRA                SB2    X2                                                              GRA         3868     A     
 GRA                ZR     B2,ORS0     IF UDI[CAW] = 0  */ CON OR COMPILER TEMP            GRA         3869     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3123    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                LX2    59-CA.ACP                                                       GRA         3870     A     
 GRA                MI     X2,ORS0     IF AC[CAW]    */ PREFETCH                           GRA         3871     A     
 GRA                MX4    -IH.CAIHL                                                       GRA         3872     A     
 GRA                BX7    -X4*X3      R2W = IHW(0,0,CAIH[C2W])                            GRA         3873     A     
 GRA                EQ     ORS0                                                            GRA         3874     A     
 GRA                                                                                       GRA         3875     A     
 GRA       SUPA     BFMW   CA,(AC,CON,PL)                                                  GRA         3876     A     
 GRA       SUP      SPACE  3,24        SUP                                                 GRA         3877     A     
 GRA      **        SUP - SETUP PRELOADS OF LOCKED REGISTERS IN THE HOLDING BLOCK          GRA         3878     A     
 GRA      *                                                                                GRA         3879     A     
 GRA      *         GENERAL REGISTER SETUP FOR *SUP* AND ITS SUBROUTINES                   GRA         3880     A     
 GRA      *         (A0) = [O.SYM]-1 , (B4) = [O.RCT] , (B6,B7) = MI, MB                   GRA         3881     A     
 GRA      *         AND X0 IS PRESERVED BY ALL THE SUBROUTINES                             GRA         3882     A     
 GRA                                                                                       GRA         3883     A     
 GRA       SUP      ROUTINE                                                                GRA         3884     A     
 GRA                SX6    0           BSI = 0                                             GRA         3885     A     
 GRA                SA6    BSI                                                             GRA         3886     A     
 GRA                CALL   RTB         GET THE HOLDING BLOCK                               GRA         3887     A     
 GRA                                                                                       GRA         3888     A     
 GRA      *         INSERT THE *UXR* AND *MRA* FIELDS IN THE *R2* OF THE *BOS*             GRA         3889     A     
 GRA                                                                                       GRA         3890     A     
 GRA                SA3    XRF                                                             GRA         3891     A     
 GRA                SA2    MRU                                                             GRA         3892     A     
 GRA                SA1    O.SEQ                                                           GRA         3893     A     
 GRA                SA5    MRA                                                             GRA         3894     A     
 GRA                MX4    1                                                               GRA         3895     A     
 GRA                SA1    X1+B1       R2 = [O.SEQ+1]                                      GRA         3896     A     
 GRA                BX6    X4*X3                                                           GRA         3897     A     
 GRA                LX6    1+R2.UXRP   UXR[R2] = XRF & 1S59                                GRA         3898     A     
 GRA                BX2    -X2*X5                                                          GRA         3899     A     
 GRA                LX2    R2.MRAP     MRA[R2] = ^MRU & MRA  */ MACHINE REGS AVAIL         GRA         3900     A     
 GRA                BX7    X6+X2                                                           GRA         3901     A     
 GRA                BX6    X7+X1                                                           GRA         3902     A     
 GRA                SA6    A1                                                              GRA         3903     A     
 GRA                                                                                       GRA         3904     A     
 GRA                ALLOC  MOD,16*17   ALLOC( MOD , 4*4*(7+7+3) )                          GRA         3905     A     
 GRA                SA3    O.SYM                                                           GRA         3906     A     
 GRA                SA4    O.RCT                                                           GRA         3907     A     
 GRA                SB7    X2          MB = [O.MOD]                                        GRA         3908     A     
 GRA                SA0    X3-1                                                            GRA         3909     A     
 GRA                SB4    X4          (B4) = [O.RCT]                                      GRA         3910     A     
 GRA                SA5    TRD                                                             GRA         3911     A     
 GRA                SB6    4           MI = 4        */ STORE INDEX                        GRA         3912     A     
 GRA                SX6    X5-4                                                            GRA         3913     A     
 GRA                NZ     X6,SUP4     IF TRD " 4    */ NOT F(I), F(N) IN REGS             GRA         3914     A     
 GRA                                                                                       GRA         3915     A     
 GRA      *         SETUP CODE TO INITIALIZE THE LOOP UPPER LIMIT REGISTER                 GRA         3916     A     
 GRA                                                                                       GRA         3917     A     
 GRA                SA1    LUL+1                                                           GRA         3918     A     
 GRA                SA2    O.IIT                                                           GRA         3919     A     
 GRA                SA5    RAT+X1      RW = RAT(LUL(2))                                    GRA         3920     A     
 GRA                MX6    60                                                              GRA         3921     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3124    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA6    A5          RAT(LUL(2)) = -0                                    GRA         3922     A     
 GRA                LX5    -RA.R2P     PFI = R2[RW]                                        GRA         3923     A     
 GRA                SB2    X2                                                              GRA         3924     A     
 GRA                SA3    B2+X5       IAW = IIT(PFI)                                      GRA         3925     A     
 GRA                UX6    B3,X3                                                           GRA         3926     A     
 GRA                SX7    B3                                                              GRA         3927     A     
 GRA                IX0    X5+X7       PFI = PFI + NWD[IAW]                                GRA         3928     A     
 GRA                SA4    B2+X0       IAW = IIT(PFI)                                      GRA         3929     A     
 GRA                SA5    A4+B1       IBW = IAW(PFI+1)                                    GRA         3930     A     
 GRA                UX6    B3,X4                                                           GRA         3931     A     
 GRA                SX1    B3-2        N = NWD[IAW] - 2  */ WORDS IN *IP* FORMULA          GRA         3932     A     
 GRA                BX7    X1                                                              GRA         3933     A     
 GRA                SA7    N                                                               GRA         3934     A     
 GRA                ALLOC  MOD,X1      ALLOC( MOD , N)                                     GRA         3935     A     
 GRA                SA3    O.SYM                                                           GRA         3936     A     
 GRA                SA4    O.RCT                                                           GRA         3937     A     
 GRA                SB7    X2          MB = [O.MOD]                                        GRA         3938     A     
 GRA                SA0    X3-1                                                            GRA         3939     A     
 GRA                SB4    X4                                                              GRA         3940     A     
 GRA                SB6    4           MI = 4                                              GRA         3941     A     
 GRA                SA2    O.IIT                                                           GRA         3942     A     
 GRA                SB2    X0+2        PFI = PFI + 2                                       GRA         3943     A     
 GRA                SB5    B7                                                              GRA         3944     A     
 GRA                MOVE   X1,X2+B2,B7+B6    MOVE( N , O.IIT+PFI , MB+MI )                 GRA         3945     A     
 GRA                SB7    B5                                                              GRA         3946     A     
 GRA                LX5    -IB.ILDP                                                        GRA         3947     A     
 GRA                SB6    X5          MI = ILD[IBW]                                       GRA         3948     A     
 GRA                LX0    RA.R2P                                                          GRA         3949     A     
 GRA                SX5    X0          J = R1[RW]                                          GRA         3950     A     
 GRA                RJ     LIV         INSERT LOAD OF *UL* IN FORMULA                      GRA         3951     A     
 GRA                SA1    N                                                               GRA         3952     A     
 GRA                SA2    LCV+1                                                           GRA         3953     A     
 GRA                SB6    X1+4        MI = N + 4                                          GRA         3954     A     
 GRA                SA3    RAT+X2                                                          GRA         3955     A     
 GRA                LX3    -RA.R3P                                                         GRA         3956     A     
 GRA                SX5    X3          J = R3[RAT(LUL(2))]                                 GRA         3957     A     
 GRA                NZ     X5,SUP1     IF J " 0      */ ADDRESS APPENDED                   GRA         3958     A     
 GRA                                                                                       GRA         3959     A     
 GRA                TYPEI  SA,B6,X1    SRI(  SA  MI,MI-4 )                                 GRA         3960     A     
 GRA                EQ     SUP2                                                            GRA         3961     A     
 GRA                                                                                       GRA         3962     A     
 GRA       SUP1     SX4    X3+B1                                                           GRA         3963     A     
 GRA                SB3    X1                                                              GRA         3964     A     
 GRA                RJ     SIV         SIV( J , RF = N )                                   GRA         3965     A     
 GRA                                                                                       GRA         3966     A     
 GRA       SUP2     SA1    LUL+1                                                           GRA         3967     A     
 GRA                SB5    X1+                                                             GRA         3968     A     
 GRA                RJ     ORS         ORS(  RS  MI-4,INVF )                               GRA         3969     A     
 GRA       SUP      SPACE  1,10                                                            GRA         3970     A     
 GRA      *         SCAN *RAT* AND SETUP INITIALIZATION CODE FOR THE B-REGISTERS           GRA         3971     A     
 GRA                                                                                       GRA         3972     A     
 GRA       SUP4     SB5    7           I = 7         */ REGNO                              GRA         3973     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3125    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       GRA         3974     A     
 GRA       SUP5     SA1    RAT+B5                                                          GRA         3975     A     
 GRA                ZR     X1,SUP10    IF RAT(I) = 0 */ REGISTER NOT ASSIGNED              GRA         3976     A     
 GRA                                                                                       GRA         3977     A     
 GRA      *         EVALUATE THE INITIALIZATION FORMULA                                    GRA         3978     A     
 GRA                                                                                       GRA         3979     A     
 GRA                BX0    X1          RW = RAT(I)                                         GRA         3980     A     
 GRA                SX5    X1          J = R1[RW]                                          GRA         3981     A     
 GRA                SA2    SUPA                                                            GRA         3982     A     
 GRA                MX6    -2*RA.R1L                                                       GRA         3983     A     
 GRA                SA3    B4+X1       CAW = RCT(J)                                        GRA         3984     A     
 GRA                LX0    -RA.R2P                                                         GRA         3985     A     
 GRA                BX7    -X6*X0                                                          GRA         3986     A     
 GRA                NZ     X7,SUP5A    IF (R2,R3)[RW] " 0                                  GRA         3987     A     
 GRA                BX4    X2*X3                                                           GRA         3988     A     
 GRA                ZR     X4,SUP10    IF ^(CON,AC,PL)[CAW]  */ PRELOAD NOT NEC            GRA         3989     A     
 GRA                                                                                       GRA         3990     A     
 GRA       SUP5A    RJ     LIV         LIV(J)                                              GRA         3991     A     
 GRA                SX6    B6-4                                                            GRA         3992     A     
 GRA                SA6    RR          RR = MI-4                                           GRA         3993     A     
 GRA                SX5    X0          J = R2[RW]                                          GRA         3994     A     
 GRA                ZR     X5,SUP6     IF J = 0                                            GRA         3995     A     
 GRA                RJ     LIV         LIV( J )                                            GRA         3996     A     
 GRA                SA1    RR          ORN = RR                                            GRA         3997     A     
 GRA                SX2    B6-4                                                            GRA         3998     A     
 GRA                SX6    B6          RR = MI       */ OF *IS*                            GRA         3999     A     
 GRA                SA6    A1                                                              GRA         4000     A     
 GRA                TYPEI  IS,X6,X1,X2 SRI(  IS  MI,MI-4,ORN )                             GRA         4001     A     
 GRA                                                                                       GRA         4002     A     
 GRA       SUP6     LX0    RA.R2P-RA.R3P                                                   GRA         4003     A     
 GRA                SX5    X0          J = R3[RW]                                          GRA         4004     A     
 GRA                ZR     X5,SUP7     IF J = 0                                            GRA         4005     A     
 GRA                SA1    RR                                                              GRA         4006     A     
 GRA                SX4    X0+B1                                                           GRA         4007     A     
 GRA                SB3    X1                                                              GRA         4008     A     
 GRA                RJ     SIV         SIV( J , RF = RR )                                  GRA         4009     A     
 GRA                EQ     SUP9                                                            GRA         4010     A     
 GRA                                                                                       GRA         4011     A     
 GRA      *         TRANSFER THE RESULT TO A B-REGISTER , IF NECESSARY                     GRA         4012     A     
 GRA                                                                                       GRA         4013     A     
 GRA       SUP7     SX1    B6-4                                                            GRA         4014     A     
 GRA                SA5    B7+X1       R1 = MB + MI-4                                      GRA         4015     A     
 GRA                UX6    B2,X5                                                           GRA         4016     A     
 GRA                SA4    A5+2        DI = R1 + 2                                         GRA         4017     A     
 GRA                LX4    59-D.LDP                                                        GRA         4018     A     
 GRA                MI     X4,SUP8     IF LD[DI]                                           GRA         4019     A     
 GRA                SX6    B2-OC.IS                                                        GRA         4020     A     
 GRA                NZ     X6,SUP9     IF OC " OC.IS                                       GRA         4021     A     
 GRA                                                                                       GRA         4022     A     
 GRA       SUP8     MX7    0                                                               GRA         4023     A     
 GRA                TYPEI  SA,B6,X1    SRI(  SA  MI,MI-4 )                                 GRA         4024     A     
 GRA                                                                                       GRA         4025     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3126    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA       SUP9     RJ     ORS         ORS(  RS  MI-4,FL+I,INV )                           GRA         4026     A     
 GRA                                                                                       GRA         4027     A     
 GRA       SUP10    SB5    B5-B1       I = I - 1                                           GRA         4028     A     
 GRA                NZ     B5,SUP5     IF I " 0                                            GRA         4029     A     
 GRA       SUP      SPACE  1,14                                                            GRA         4030     A     
 GRA      *         NOW SETUP PRELOADS FOR THE X-REGISTERS                                 GRA         4031     A     
 GRA                                                                                       GRA         4032     A     
 GRA                MX0    5                                                               GRA         4033     A     
 GRA                SB5    20B         I = 20B                                             GRA         4034     A     
 GRA                LX0    -1          LDREG = 37BS54  */ LD-REG FLAG                      GRA         4035     A     
 GRA                                                                                       GRA         4036     A     
 GRA       SUP12    SA5    RAT+B5      J = RAT(I)    */ *R1* ONLY                          GRA         4037     A     
 GRA                ZR     X5,SUP14    IF RAT(I) = 0                                       GRA         4038     A     
 GRA                                                                                       GRA         4039     A     
 GRA                SA1    B4+X5       CAW = RCT(J)                                        GRA         4040     A     
 GRA                SA2    SUPA                                                            GRA         4041     A     
 GRA                BX7    X2*X1                                                           GRA         4042     A     
 GRA                ZR     X7,SUP14    IF ^(CON,PL,AC)[CAW]  */ PRELD NOT NECESS           GRA         4043     A     
 GRA                                                                                       GRA         4044     A     
 GRA                RJ     LIV         LIV( J )                                            GRA         4045     A     
 GRA                MI     X0,SUP13    IF LDREG < 0  */ RS IS TO A *LD* REG                GRA         4046     A     
 GRA                SX1    B6-4                                                            GRA         4047     A     
 GRA                TYPEI  XMT,B6,X1         SRI(  XMT  MI,MI-4 )                          GRA         4048     A     
 GRA                                                                                       GRA         4049     A     
 GRA       SUP13    RJ     ORS         ORS(  RS  MI-4,FL+I,INV )                           GRA         4050     A     
 GRA                                                                                       GRA         4051     A     
 GRA       SUP14    SB5    B5+B1       I = I + 1                                           GRA         4052     A     
 GRA                LX0    1           LDREG = SHIFT(LDREG,1)                              GRA         4053     A     
 GRA                SX6    B5-30B                                                          GRA         4054     A     
 GRA                MI     X6,SUP12    IF I @ 27B                                          GRA         4055     A     
 GRA       SUP      SPACE  2,14                                                            GRA         4056     A     
 GRA      *         SETUP *MOD* CONTROL WORD AND MERGE THIS WITH *HB*                      GRA         4057     A     
 GRA                                                                                       GRA         4058     A     
 GRA                SA1    L.SEQ                                                           GRA         4059     A     
 GRA                SX0    X1-8        II = L.SEQ-8                                        GRA         4060     A     
 GRA                SX6    B6                                                              GRA         4061     A     
 GRA                LX0    ML.IIP                                                          GRA         4062     A     
 GRA                SA6    L.MOD       L.MOD = MI                                          GRA         4063     A     
 GRA                SX2    4                                                               GRA         4064     A     
 GRA                IX6    X6-X2                                                           GRA         4065     A     
 GRA                LX6    ML.NIP-2    NI = (MI-4) / 4                                     GRA         4066     A     
 GRA                LX2    ML.MTIP                                                         GRA         4067     A     
 GRA                BX3    X0+X2                                                           GRA         4068     A     
 GRA                IX1    X3+X6                                                           GRA         4069     A     
 GRA                SA5    O.SEQ       HBA = O.SEQ                                         GRA         4070     A     
 GRA                ZR     X6,SUP15    IF NI = 0     */ NO MODS                            GRA         4071     A     
 GRA                                                                                       GRA         4072     A     
 GRA                ADDWRD MLT,X1      ADDWRD( MLT , MCW(0,II,NI,4) )                      GRA         4073     A     
 GRA                MX6    1                                                               GRA         4074     A     
 GRA                CALL   MPB         MERGE MODS WITH *HB*, SQUEEZE AND REWRITE           GRA         4075     A     
 GRA                                                                                       GRA         4076     A     
 GRA                SA5    O.TXT       HBA = O.TXT                                         GRA         4077     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3127    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       FCC0448      108          I
          -FCC0675
 GRA      *         SCAN *BST*, UPDATE *LBN* TO ACCOUNT FOR INNER LOOPS.                   FCC0448      109          I
          -FCC0675
 GRA                                                                                       FCC0448      110          I
          -FCC0675
 GRA       SUP15    SA4    O.BST                                                           FCC0448      111          I
          -FCC0675
 GRA                SA2    O.BIT                                                           FCC0448      112          I
          -FCC0675
 GRA                MX0    -BI.LCBL                                                        FCC0448      113          I
          -FCC0675
 GRA                SA1    LBN                                                             FCC0448      114          I
          -FCC0675
 GRA                LX0    BI.LCBP                                                         FCC0448      115          I
          -FCC0675
 GRA                SB3    X2                        (B3) = O.BIT                          FCC0448      116          I
          -FCC0675
 GRA                LX1    BI.LCBP                                                         FCC0448      117          I
          -FCC0675
 GRA                SA3    X4+2        BAW = BST(2)                                        FCC0448      118          I
          -FCC0675
 GRA                                                                                       FCC0448      119          I
          -FCC0675
 GRA       SUP15A   LX3    -BA.BIP     BN = BI[BAW]                                        FCC0448      120          I
          -FCC0675
 GRA                SA2    B3+X3       BIW = BIT(BN)                                       FCC0448      121          I
          -FCC0675
 GRA                LX2    59-BI.RBP                                                       FCC0448      122          I
          -FCC0675
 GRA                MI     X2,SUP15B   IF RB[BIW]    */ ^ A *HB*                           FCC0448      123          I
          -FCC0675
 GRA                LX2    1+BI.RBP-BI.PBNP  J = PBN[BIW]  */ BN OF HEADER                 FCC0448      124          I
          -FCC0675
 GRA                SA2    B3+X2       BIW = BIT(J)                                        FCC0448      125          I
          -FCC0675
 GRA                BX6    -X0*X2                                                          FCC0448      126          I
          -FCC0675
 GRA                IX7    X1-X6                                                           FCC0448      127          I
          -FCC0675
 GRA                PL     X7,SUP15B   LBN = MAX( LBN , LCB[BIW] )                         FCC0448      128          I
          -FCC0675
 GRA                BX1    X6                                                              FCC0448      129          I
          -FCC0675
 GRA                                                                                       FCC0448      130          I
          -FCC0675
 GRA       SUP15B   SA3    A3+2        BAW = BAW + 2                                       FCC0448      131          I
          -FCC0675
 GRA                NZ     X3,SUP15A   IF [BAW] " 0  */ NOT END OF *BST*                   FCC0448      132          I
          -FCC0675
 GRA                                                                                       FCC0448      133          I
          -FCC0675
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3128    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA3    X4+2                                                            FCC0448      134          I
          -FCC0675
 GRA                LX3    -BA.BIP     BN = BI[BST(2)]                                     FCC0448      135          I
          -FCC0675
 GRA                SA2    B3+X3                                                           FCC0448      136          I
          -FCC0675
 GRA                BX6    X0*X2                                                           FCC0448      137          I
          -FCC0675
 GRA                BX7    X1+X6       LCB[BIT(BN)] = LBN  */ SET *LBN* OF HEADER          FCC0448      138          I
          -FCC0675
 GRA                SA7    A2                                                              FCC0448      139          I
          -FCC0675
 GRA                                                                                       GRA         4078          I
          -FCC0675
 GRA      *         SCAN HOLDING BLOCK FOR *TST*"S AND UPDATE THEIR *LU* FIELD             GRA         4079          I
          -FCC0675
 GRA      *         FOR LATER USE IN *POST* DURING THE TEMPORARY PACKING.                  GRA         4080          I
          -FCC0675
 GRA                                                                                       GRA         4081          I
          -FCC0675
 GRA       SUP15    SA2    O.TET                                                           GRA         4082          I
          -FCC0448  -FCC0675
 GRA                SA1    LBN                                                             GRA         4083          I
          -FCC0448  -FCC0675
 GRA                MX0    -T.LUL                                                          GRA         4084          I
          -FCC0448  -FCC0675
 GRA                SA1    LBN                                                             GRA         4085          I
          -FCC0448  -FCC0675
 GRA                SA2    O.TET                                                           FCC0448      140          I
          -FCC0675
 GRA                LX1    T.LUP-BI.LCBP                                                   FCC0448      141          I
          -FCC0675
 GRA                MX0    -T.LUL                                                          FCC0448      142          I
          -FCC0675
 GRA                LX0    T.LUP                                                           GRA         4086          I
          -FCC0675
 GRA                SB4    4                                                               GRA         4087          I
          -FCC0675
 GRA                SA5    X5+B4       R1 = HBA + 4                                        GRA         4088          I
          -FCC0675
 GRA                SB5    X2                                                              GRA         4089          I
          -FCC0675
 GRA                SB3    OC.TST                                                          GRA         4090          I
          -FCC0675
 GRA                SA2    ITL                                                             GRA         4091          I
          -FCC0675
 GRA                LX1    T.LUP                                                           GRA         4092          I
          -FCC0448  -FCC0675
 GRA                SB7    X2                        (B7) = ITL                            GRA         4093          I
          -FCC0675
 GRA                                                                                       GRA         4094          I
          -FCC0675
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3129    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA       SUP16    UX6    B2,X5       OC = OC[R1]                                         GRA         4095          I
          -FCC0675
 GRA                SA5    A5+B4       R1 = R1 + 4                                         GRA         4096          I
          -FCC0675
 GRA                ZR     B2,SUP      IF OC = OC.EOQ  */ END OF BLOCK                     GRA         4097          I
          -FCC0675
 GRA                NE     B2,B3,SUP16 IF OC " OC.TST                                      GRA         4098          I
          -FCC0675
 GRA                                                                                       GRA         4099          I
          -FCC0675
 GRA                SA4    A5-3        R2 = R1 - 3                                         GRA         4100          I
          -FCC0675
 GRA                LX4    -IH.CAP     C = CA[R2]                                          GRA         4101          I
          -FCC0675
 GRA                SA3    B5+X4                                                           GRA         4102          I
          -FCC0675
 GRA                BX6    X1          L = LBN                                             GRA         4103          I
          -FCC0675
 GRA                SB6    X4                                                              GRA         4104          I
          -FCC0675
 GRA                GE     B6,B7,SUP17 IF C \ ITL    */ CREATED IN THIS REGION             GRA         4105          I
          -FCC0675
 GRA                BX2    -X0*X3                                                          GRA         4106          I
          -FCC0675
 GRA                IX7    X6-X2                                                           GRA         4107          I
          -FCC0675
 GRA                PL     X7,SUP17    L = MAX( LU[TET(C)] , LBN )                         GRA         4108          I
          -FCC0675
 GRA                BX6    X2                                                              GRA         4109          I
          -FCC0675
 GRA                                                                                       GRA         4110          I
          -FCC0675
 GRA       SUP17    BX2    X0*X3                                                           GRA         4111          I
          -FCC0675
 GRA                IX6    X6+X2       LU[TET(C)] = L                                      GRA         4112          I
          -FCC0675
 GRA                SA6    A3                                                              GRA         4113          I
          -FCC0675
 GRA                EQ     SUP16                                                           GRA         4114          I
          -FCC0675
 GRA                                                                                       FCC0675      179     A     
 GRA      *         SCAN TET AND CLEAR *HBN* FIELD OF IT."S CREATED IN THIS LOOP           FCC0675      180     A     
 GRA                                                                                       FCC0675      181     A     
 GRA       SUP15    SA1    O.TET                                                           FCC0675      182     A     
 GRA                SA2    ITL                                                             FCC0675      183     A     
 GRA                SA3    L.TET                                                           FCC0675      184     A     
 GRA                SB2    X2          I = ITL                                             FCC0675      185     A     
 GRA                SB6    X3          L = L.TET                                           FCC0675      186     A     
 GRA                MX0    -T.HBNL                                                         FCC0675      187     A     
 GRA                SB5    X1                        (B5) = TET                            FCC0675      188     A     
 GRA                LX0    T.HBNP                                                          FCC0675      189     A     
 GRA                SB7    X2                        (B7) = ITL                            FCC0675      190     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3130    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                EQ     B2,B6,SUP17 IF ITL = L.TET  */ NO IT. S CREATED                 FCC0675      191     A     
 GRA                                                                                       FCC0675      192     A     
 GRA       SUP16    SA2    B5+B2                                                           FCC0675      193     A     
 GRA                BX6    X0*X2       HBN[TET(I)] = 0                                     FCC0675      194     A     
 GRA                SB2    B2+B1       I = I + 1                                           FCC0675      195     A     
 GRA                SA6    A2                                                              FCC0675      196     A     
 GRA                LT     B2,B6,SUP16 IF I < L                                            FCC0675      197     A     
 GRA                                                                                       FCC0675      198     A     
 GRA      *         SCAN *HB* AND SET *HBN* FIELD OF IT. S DEFINED IN THIS LOOP            FCC0675      199     A     
 GRA                                                                                       FCC0675      200     A     
 GRA       SUP17    SA1    =XHBI                                                           FCC0675      201     A     
 GRA                SB4    4                                                               FCC0675      202     A     
 GRA                SA5    X5+B4       R1 = HBA + 4                                        FCC0675      203     A     
 GRA                SB3    OC.TST                                                          FCC0675      204     A     
 GRA                LX1    T.HBNP                                                          FCC0675      205     A     
 GRA                                                                                       FCC0675      206     A     
 GRA       SUP18    UX6    B2,X5       OC = OC[R1]                                         FCC0675      207     A     
 GRA                SA5    A5+B4       R1 = R1 + 4                                         FCC0675      208     A     
 GRA                ZR     B2,SUP19    IF OC = OC.EOQ  */ END OF BLOCK                     FCC0675      209     A     
 GRA                NE     B2,B3,SUP18 IF OC " OC.TST                                      FCC0675      210     A     
 GRA                                                                                       FCC0675      211     A     
 GRA                SA4    A5-3        R2 = R1 - 3                                         FCC0675      212     A     
 GRA                LX4    -IH.CAP     C = CA[R2]                                          FCC0675      213     A     
 GRA                SA3    B5+X4                                                           FCC0675      214     A     
 GRA                BX2    X0*X3                                                           FCC0675      215     A     
 GRA                IX6    X1+X2       HBN[TET(C)] = HBI                                   FCC0675      216     A     
 GRA                SA6    A3                                                              FCC0675      217     A     
 GRA                EQ     SUP18                                                           FCC0675      218     A     
 GRA                                                                                       FCC0675      219     A     
 GRA      *         SCAN *TET* BACKWARDS AND REMOVE TRAILING ENTRIES THAT WERE NOT         FCC0675      220     A     
 GRA      *         MATERIALIZED ( ASSIGNED TO A REGISTER, KD, ETC ).                      FCC0675      221     A     
 GRA                                                                                       FCC0675      222     A     
 GRA       SUP19    SB6    B6-B1       L = L - 1                                           FCC0675      223     A     
 GRA                SA4    B5+B6                                                           FCC0675      224     A     
 GRA                LT     B6,B7,SUP20 IF L < ITL                                          FCC0675      225     A     
 GRA                BX6    -X0*X4                                                          FCC0675      226     A     
 GRA                ZR     X6,SUP19    IF HBN[TET(L)] = 0  */ NOT MATERIALIZED             FCC0675      227     A     
 GRA                                                                                       FCC0675      228     A     
 GRA       SUP20    SA1    =XN.GT                                                          FCC0675      229     A     
 GRA                SX6    B6+B1       L.TET = L + 1                                       FCC0675      230     A     
 GRA                IX2    X1-X6                                                           FCC0675      231     A     
 GRA                SA6    L.TET                                                           FCC0675      232     A     
 GRA                MI     X2,SUP      N.GT = MIN( N.GT , L.TET )                          FCC0675      233     A     
 GRA                SA6    A1                                                              FCC0675      234     A     
 GRA                EQ     SUP                                                             FCC0675      235     A     
 GRA       LIV      SPACE  3,24        LIV                                                 GRA         4115     A     
 GRA      **        LIV - LOAD INITIAL VALUE                                               GRA         4116     A     
 GRA      *                                                                                GRA         4117     A     
 GRA      *         ENTRY  (X5) = J , *RCT* ORDINAL OF CANIDATE                            GRA         4118     A     
 GRA                                                                                       GRA         4119     A     
 GRA       LIV      ROUTINE                                                                GRA         4120     A     
 GRA                SA1    B4+X5       CAW = RCT(J)                                        GRA         4121     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3131    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA2    A1+B1       C2W = RCT(J+1)                                      GRA         4122     A     
 GRA                MX7    -IH.CAL                                                         GRA         4123     A     
 GRA                LX1    59-CA.CONP                                                      GRA         4124     A     
 GRA                PL     X1,LIV2     IF ^CON[CAW]                                        GRA         4125     A     
 GRA                                                                                       GRA         4126     A     
 GRA                SB2    OC.S                                                            GRA         4127     A     
 GRA                LX7    IH.CAP                                                          GRA         4128     A     
 GRA                BX6    -X7*X2                                                          GRA         4129     A     
 GRA                MX7    0                                                               GRA         4130     A     
 GRA                LX6    R1.INP-IH.CAP                                                   GRA         4131     A     
 GRA                LX2    59-IH.MSKP                                                      GRA         4132     A     
 GRA                PL     X2,LIV1     IF ^MSK[C2W]                                        GRA         4133     A     
 GRA                SB2    OC.FMA                                                          GRA         4134     A     
 GRA                NZ     X6,LIV1     IF IN[R1] " 0                                       GRA         4135     A     
 GRA                SB2    OC.CLR                                                          GRA         4136     A     
 GRA                                                                                       GRA         4137     A     
 GRA       LIV1     SX4    B6                                                              GRA         4138     A     
 GRA                BX6    X4+X6                                                           GRA         4139     A     
 GRA                RJ     SRI         SRI(  S/FMA/CLR  CA[C2W],MI )                       GRA         4140     A     
 GRA                EQ     LIV                                                             GRA         4141     A     
 GRA                                                                                       GRA         4142     A     
 GRA       LIV2     LX1    CA.CONP-CA.VCP                                                  GRA         4143     A     
 GRA                MI     X1,LIV3     IF VC[CAW]                                          GRA         4144     A     
 GRA                                                                                       GRA         4145     A     
 GRA                SB3    B0          RF = 0                                              GRA         4146     A     
 GRA                SX4    X5+B1                                                           GRA         4147     A     
 GRA                RJ     SIV         SIV( J )                                            GRA         4148     A     
 GRA                EQ     LIV                                                             GRA         4149     A     
 GRA                                                                                       GRA         4150     A     
 GRA      *         *VC* - OUPUT *LD* OF INITIAL VALUE                                     GRA         4151     A     
 GRA                                                                                       GRA         4152     A     
 GRA       LIV3     LX2    -IH.RFP                                                         GRA         4153     A     
 GRA                SB3    X2          R = RF[C2W]                                         GRA         4154     A     
 GRA                LE     B3,B1,LIV4  IF R @ 1                                            GRA         4155     A     
 GRA                SX4    B3                                                              GRA         4156     A     
 GRA                SB3    B0                                                              GRA         4157     A     
 GRA                RJ     OIL         OIL( J = RF[C2W] , RF = 0 )                         GRA         4158     A     
 GRA                SB3    B6-4        RF = MI - 4                                         GRA         4159     A     
 GRA                                                                                       GRA         4160     A     
 GRA       LIV4     SX4    X5                                                              GRA         4161     A     
 GRA                RJ     OIL         OIL( J , R )                                        GRA         4162     A     
 GRA                EQ     LIV                                                             GRA         4163     A     
 GRA       OIL      SPACE  3,18        OIL                                                 GRA         4164     A     
 GRA      **        OIL - OUTPUT INITIAL *LD*                                              GRA         4165     A     
 GRA      *                                                                                GRA         4166     A     
 GRA      *         ENTRY  (X4) = J , *RCT* ORDINAL OF CANIDATE                            GRA         4167     A     
 GRA      *                (B3) = RF , OPERAND R-NUMBER                                    GRA         4168     A     
 GRA      *                                                                                GRA         4169     A     
 GRA      *         PRESERVES X0, X5                                                       GRA         4170     A     
 GRA                                                                                       GRA         4171     A     
 GRA       OIL      ROUTINE                                                                GRA         4172     A     
 GRA                SA1    B4+X4       CAW = RCT(J)                                        GRA         4173     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3132    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA2    A1+B1       C2W = RCT(J+1)                                      GRA         4174     A     
 GRA                SX7    B3                                                              GRA         4175     A     
 GRA                MX3    -IH.CAIHL                                                       GRA         4176     A     
 GRA                LX7    IH.RFP                                                          GRA         4177     A     
 GRA                BX2    -X3*X2      CAIH = CAIH[[C2W]                                   GRA         4178     A     
 GRA                IX7    X7+X2       R2W = IHW(0,RF,CAIH[C2W])                           GRA         4179     A     
 GRA                SX6    X1          U = UDI[CAW]                                        GRA         4180     A     
 GRA                SB2    OC.LD       OC = OC.LD                                          GRA         4181     A     
 GRA                EQ     B3,B1,OIL5  IF RF = 1                                           GRA         4182     A     
 GRA                LX1    59-CA.RAP                                                       GRA         4183     A     
 GRA                PL     X1,OIL2     IF ^RA[CAW]   */ NOT ASSIGNED TO A REG              GRA         4184     A     
 GRA                NZ     B3,OIL2     IF RF " 0                                           GRA         4185     A     
 GRA                                                                                       GRA         4186     A     
 GRA      *         CHECK VARIABLE AND SETUP AN *ILD* IF DEAD ON EXIT FROM LOOP            GRA         4187     A     
 GRA                                                                                       GRA         4188     A     
 GRA                SB2    OC.ILD                                                          GRA         4189     A     
 GRA                ZR     X6,OIL1     IF U = 0      */ COMPILER TEMPORARY                 GRA         4190     A     
 GRA                BX3    X1                                                              GRA         4191          I
          -FCC1646X 
 GRA                SA3    O.UDT                                                           FCC1646X       6     A     
 GRA                SB3    X6                                                              FCC1646X       7     A     
 GRA                SA4    X3+B3       UI = UDT(U)                                         FCC1646X       8     A     
 GRA                LX4    59-UD.CMP                                                       FCC1646X       9     A     
 GRA                PL     X4,OIL0     IF ^CM[UI]                                          FCC1646X      10     A     
 GRA                                                                                       FCC1646X      11     A     
 GRA      *         *CR*, DO NOT OUTPUT A *ILD* IF THE BASE IS USED IN THE LOOP.           FCC1646X      12     A     
 GRA                                                                                       FCC1646X      13     A     
 GRA                LX4    1+UD.CMP-UD.BMIP                                                FCC1646X      14     A     
 GRA                SB3    X3+B1                                                           FCC1646X      15     A     
 GRA                SA4    B3+X4       UB = UDT(BMI[UI]+1)                                 FCC1646X      16     A     
 GRA                SA3    UVA                                                             FCC1646X      17     A     
 GRA                SB3    X4                                                              FCC1646X      18     A     
 GRA                SA3    X3+B3       UVW = UVA(WI[UB])                                   FCC1646X      19     A     
 GRA                UX4    B3,X4                                                           FCC1646X      20     A     
 GRA                SB3    B3-59                                                           FCC1646X      21     A     
 GRA                LX3    -B3                                                             FCC1646X      22     A     
 GRA                MI     X3,OIL1A    IF SHIFT(UVW,59-BN) < 0  */ BASE USED               FCC1646X      23     A     
 GRA                                                                                       FCC1646X      24     A     
 GRA       OIL0     BX3    X1                                                              FCC1646X      25     A     
 GRA                LX3    CA.RAP-CA.LXP                                                   GRA         4192     A     
 GRA                PL     X3,OIL2     IF ^LX[CAW]   */ DEAD ON EXIT                       GRA         4193     A     
 GRA                LX3    CA.LXP-CA.PSPP                                                  GRA         4194     A     
 GRA                MI     X3,OIL2     IF PSP[CAW]   */ POST STORE POSSIBLE                GRA         4195     A     
 GRA                SB2    OC.LD       OC = OC.LD                                          GRA         4196          I
          -FCC1646X 
 GRA       OIL1A    SB2    OC.LD       OC = OC.LD                                          FCC1646X      26     A     
 GRA                EQ     OIL2                                                            GRA         4197     A     
 GRA                                                                                       GRA         4198     A     
 GRA       OIL1     LX2    -IH.CAP                                                         GRA         4199     A     
 GRA                SA3    ITL                                                             GRA         4200     A     
 GRA                SX2    X2                                                              GRA         4201     A     
 GRA                IX4    X2-X3                                                           GRA         4202     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3133    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                PL     X4,OIL2     IF CA[C2W] \ ITL  */ CREATED IN THIS LOOP           GRA         4203     A     
 GRA                SB2    OC.TLD      OC = OC.TLD                                         GRA         4204     A     
 GRA                                                                                       GRA         4205     A     
 GRA       OIL2     SX2    B6                                                              GRA         4206     A     
 GRA                LX6    R1.INP                                                          GRA         4207     A     
 GRA                BX6    X2+X6                                                           GRA         4208     A     
 GRA                LX1    CA.RAP-CA.ACP                                                   GRA         4209     A     
 GRA                PL     X1,OIL3     IF ^AC[CAW]   */ NOT A PREFETCH                     GRA         4210     A     
 GRA                                                                                       GRA         4211     A     
 GRA                MX1    1                                                               GRA         4212     A     
 GRA                LX1    1+IH.LDP                                                        GRA         4213     A     
 GRA                BX7    X1+X7       LD[R2W] = 1   */ INHIBIT SQUEEZING                  GRA         4214     A     
 GRA                                                                                       GRA         4215     A     
 GRA       OIL3     SB3    X7                                                              GRA         4216          I
          -FCC0882
 GRA       OIL3     SB3    X7-1S12                                                         FCC0882        7     A     
 GRA                SX1    0           DB = 0                                              FCC0882        8     A     
 GRA                PL     B3,OIL4     IF IH[R2W] > 1S12  */ LVL2 OR SUCH                  FCC0882        9     A     
 GRA                SB3    X7                                                              FCC0882       10     A     
 GRA                SB3    B3+B3                                                           GRA         4217     A     
 GRA                SA2    A0-B3       WORDB = SYM(IH[R2W])                                GRA         4218     A     
 GRA                LX2    -P.FPB                                                          GRA         4219     A     
 GRA                SX3    B1                                                              GRA         4220     A     
 GRA                BX1    X3*X2                                                           GRA         4221     A     
 GRA                LX1    D.FPP       FP[DB] = FP[WORDB]                                  GRA         4222     A     
 GRA                                                                                       GRA         4223     A     
 GRA       OIL4     SA4    F.RDT+B2                                                        GRA         4224     A     
 GRA                PX6    B2,X6                                                           GRA         4225     A     
 GRA                SA6    B7+B6       MOD(MI) = TYII(OC,U,0,MI)                           GRA         4226     A     
 GRA                SA7    A6+B1       MOD(MI+1) = R2W                                     GRA         4227     A     
 GRA                BX6    X4-X1       MOD(MI+2) = XOR(RDT(OC),DB)                         GRA         4228     A     
 GRA                SA6    A7+B1                                                           GRA         4229     A     
 GRA                MX7    0                                                               GRA         4230     A     
 GRA                SA7    A6+B1       MOD(MI+3) = 0                                       GRA         4231     A     
 GRA                SB6    B6+4        MI = MI + 4                                         GRA         4232     A     
 GRA                EQ     OIL                                                             GRA         4233     A     
 GRA                                                                                       GRA         4234     A     
 GRA      *         SPECIAL CASE, RF = 1 AND IH = 0                                        GRA         4235     A     
 GRA                                                                                       GRA         4236     A     
 GRA       OIL5     SX4    B6                                                              GRA         4237     A     
 GRA                LX6    R1.INP                                                          GRA         4238     A     
 GRA                MX1    0           DB = 0                                              GRA         4239     A     
 GRA                BX6    X4+X6                                                           GRA         4240     A     
 GRA                NZ     X2,OIL4     IF CAIH " 0   */ CA .NE. 0, SINCE IH = 0            GRA         4241     A     
 GRA                MX1    2                                                               GRA         4242     A     
 GRA                LX1    2+D.SZP     SZ[DB] = 3    */ SET TO TOGGLE *SZ* FIELD           GRA         4243     A     
 GRA                EQ     OIL4                                                            GRA         4244     A     
 GRA       SIV      TITLE  SIV - SET INITIAL VALUE                                         GRA         4245     A     
 GRA      **        SIV - SET INITIAL VALUE, GENERATE A *STT* OF A VALUE                   GRA         4246     A     
 GRA      *         NOTE THAT THE *RF* IN THE *RCT* ENTRY IS IGNORED.                      GRA         4247     A     
 GRA      *                                                                                GRA         4248     A     
 GRA      *         ENTRY  (X4) = J+1, J = *RCT* ORDINAL OF ENTRY                          GRA         4249     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3134    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      *                (B3) = RF , OPERAND R-NUMBER                                    GRA         4250     A     
 GRA                                                                                       GRA         4251     A     
 GRA      *         OUTPUT STT WITH AN *H2* FIELD                                          GRA         4252     A     
 GRA                                                                                       GRA         4253     A     
 GRA       SIV0     SX6    X2                                                              GRA         4254     A     
 GRA                SX7    B3                                                              GRA         4255     A     
 GRA                RJ     OSI         OSI(  STT  R,RF,CAIH,H2 )                           GRA         4256     A     
 GRA                                                                                       GRA         4257     A     
 GRA       SIV      ROUTINE                                                                GRA         4258     A     
 GRA                SA1    B4+X4       C2W = RCT(J+1)                                      GRA         4259     A     
 GRA                SA2    A1+B1       CCW = RCT(J+2)                                      GRA         4260     A     
 GRA                MX7    -IH.CAIHL                                                       GRA         4261     A     
 GRA                LX2    -CC.H2P                                                         GRA         4262     A     
 GRA                BX1    -X7*X1      CAIH = CAIH[C2W]                                    GRA         4263     A     
 GRA                SB2    X2          H2 = H2[CCW]                                        GRA         4264     A     
 GRA                ZR     B2,SIV0     IF H2 = 0                                           GRA         4265     A     
 GRA                                                                                       GRA         4266     A     
 GRA      *         CHECK ADDRESS DIFFERENCE TO SEE IF SYMS ARE F.P. OR COMMON             GRA         4267     A     
 GRA                                                                                       GRA         4268     A     
 GRA                SB2    B2+B2                                                           GRA         4269     A     
 GRA                LX6    B1,X1                                                           GRA         4270     A     
 GRA                SA3    A0-B2       WORDB2 = SYM(H2)                                    GRA         4271     A     
 GRA                SB2    X6                                                              GRA         4272     A     
 GRA                ZR     B2,SIV1     IF IH[C2W] = 0  */ NEG RELOC NOT ALLOWED            FCC0645       21     A     
 GRA                SA4    A0-B2       WORDB = SYM(IH[C2W])                                GRA         4273     A     
 GRA                BX6    X3+X4                                                           GRA         4274     A     
 GRA                LX6    59-P.FPB                                                        GRA         4275     A     
 GRA                MI     X6,SIV1     IF FP[WORDB] ! FP[WORDB2]                           GRA         4276     A     
 GRA                LX6    1+P.FPB+58-P.RL                                                 GRA         4277     A     
 GRA                BX7    X3-X4                                                           GRA         4278     A     
 GRA                PL     X6,SIV0     IF ^( COM[WORDB] ! COM[WORDB2] )                    GRA         4279     A     
 GRA                SA4    SIVA                                                            GRA         4280     A     
 GRA                BX6    X4*X7                                                           GRA         4281     A     
 GRA                ZR     X6,SIV0     IF (RL,RB)[WORDB] = (RL,RB)[WORDB2]                 GRA         4282     A     
 GRA                                                                                       GRA         4283     A     
 GRA                MX3    0           C = 0                                               GRA         4284     A     
 GRA                EQ     SIV2                                                            GRA         4285     A     
 GRA                                                                                       GRA         4286     A     
 GRA       SIV1     BX3    X1          C = CA[C2W]                                         GRA         4287     A     
 GRA                SX1    X1          CAIH = IH[C2W]                                      GRA         4288     A     
 GRA                BX3    X3-X1                                                           GRA         4289     A     
 GRA                                                                                       GRA         4290     A     
 GRA       SIV2     MX7    0           F = 0                                               GRA         4291     A     
 GRA                SX6    B0          H2 = 0                                              GRA         4292     A     
 GRA                RJ     OSI         OSI(  STT  R,,CAIH )                                GRA         4293     A     
 GRA                SX1    X2          CAIH = H2[CCW]                                      GRA         4294     A     
 GRA                SX6    B0          H2 = 0                                              GRA         4295     A     
 GRA                SX7    0           F = 0                                               GRA         4296          I
          -FCC0912
 GRA                MX7    0           F = 0                                               FCC0912        7     A     
 GRA                BX2    X5          FLB = FPL2    */ SAVE                               FCC0912        8     A     
 GRA                RJ     OSI         OSI(  STT  R,,H2[CCW] )                             GRA         4297     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3135    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SX1    B6-8                                                            GRA         4298          I
          -FCC0912
 GRA                SX2    B6-4                                                            GRA         4299          I
          -FCC0912
 GRA                TYPEI  IS,B6,X1,X2 SRI(  IS  MI,MI-4,MI-8 )                            GRA         4300          I
          -FCC0912
 GRA                BX6    X2-X5                                                           FCC0912        9     A     
 GRA                SX1    B6-8        RJ = MI - 8   */ OPERANDS OF *IS*                   FCC0912       10     A     
 GRA                SX2    B6-4        RK = MI - 4                                         FCC0912       11     A     
 GRA       #DAL     IFNE   .DAL,0                                                          FCC0912       12     A     
 GRA                ZR     X6,SIV2C    IF FLB = FPL2 */ NEITHER/BOTH FP&L2                 FCC0912       13     A     
 GRA                                                                                       FCC0912       14     A     
 GRA      *         ONE OF THE SYMBOLS IS A LEVEL2 F.P., OUTPUT A *SA* PRIOR TO            FCC0912       15     A     
 GRA      *         THE *IS* TO REMOVE BIT 59 IN THE APLIST WORD.                          FCC0912       16     A     
 GRA                                                                                       FCC0912       17     A     
 GRA                SB2    OC.SA                                                           FCC0912       18     A     
 GRA                NZ     X5,SIV2A    IF FPL2 " 0   */ RJ IS FP&L2                        FCC0912       19     A     
 GRA                SX4    X1          J = RJ                                              FCC0912       20     A     
 GRA                SX1    B6          RJ = MI                                             FCC0912       21     A     
 GRA                EQ     SIV2B                                                           FCC0912       22     A     
 GRA       SIV2A    SX4    X2          J = RK        */ RK IS FP&L2                        FCC0912       23     A     
 GRA                SX2    B6          RK = MI                                             FCC0912       24     A     
 GRA       SIV2B    TYPEI  B2,B6,X4    SRI(  SA  MI,J )                                    FCC0912       25     A     
 GRA       #DAL     ENDIF                                                                  FCC0912       26     A     
 GRA                                                                                       FCC0912       27     A     
 GRA       SIV2C    TYPEI  IS,B6,X1,X2 SRI(  IS  MI,RJ,RK )                                FCC0912       28     A     
 GRA                ZR     X3,SIV3     IF C = 0                                            GRA         4301     A     
 GRA                                                                                       GRA         4302     A     
 GRA                BX1    X3                                                              GRA         4303     A     
 GRA                SX7    B6-4        F = MI - 4                                          GRA         4304     A     
 GRA                MX6    0           H2 = 0                                              GRA         4305     A     
 GRA                RJ     OSI         OIS(  STT  R,F,C )                                  GRA         4306     A     
 GRA                ZR     B3,SIV      IF RF = 0                                           GRA         4307     A     
 GRA                                                                                       GRA         4308     A     
 GRA       SIV3     ZR     B3,SIV4     IF RF = 0                                           GRA         4309     A     
 GRA                SX2    B6-4                                                            GRA         4310     A     
 GRA                SX3    B3                                                              GRA         4311     A     
 GRA                TYPEI  IA,B6,X2,X3 SRI(  IA  MI,MI-4,RF )                              GRA         4312     A     
 GRA                                                                                       GRA         4313     A     
 GRA       SIV4     SX2    B6-4                                                            GRA         4314     A     
 GRA                TYPEI  SA,B6,X2    SRI(  SA  MI,MI-4 )                                 GRA         4315     A     
 GRA                EQ     SIV                                                             GRA         4316     A     
 GRA                                                                                       GRA         4317     A     
 GRA       SIVA     BSS    0                                                               GRA         4318     A     
 GRA                ECHO   2,X=(RL,RB)                                                     GRA         4319     A     
 GRA                POS    P.X+L.X                                                         GRA         4320     A     
 GRA                VFD    L.X/-0                                                          GRA         4321     A     
 GRA                VFD    *P/0                                                            GRA         4322     A     
 GRA       OSI      SPACE  3,14        OSI                                                 GRA         4323     A     
 GRA      **        OSI - OUTPUT *STT* INSTRUCTION                                         GRA         4324     A     
 GRA      *                                                                                GRA         4325     A     
 GRA      *         ENTRY  (X1) = CAIH FIELDS                                              GRA         4326     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3136    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      *                (X6,X7) = H2, RF FIELDS RIGHT JUSTIFIED                         GRA         4327     A     
 GRA      *                                                                                FCC0912       29     A     
 GRA      *         EXIT   (X5) = FPL2 = FP[WORDB] & LCM[WORDB]                            FCC0912       30     A     
 GRA      *                                                                                GRA         4328     A     
 GRA      *         USES   X - 1, 4, 5, 6, 7                                               GRA         4329     A     
 GRA                                                                                       GRA         4330     A     
 GRA       OSI      ROUTINE                                                                GRA         4331     A     
 GRA                LX7    IH.RFP                                                          GRA         4332     A     
 GRA                BX7    X1+X7                                                           GRA         4333     A     
 GRA                LX6    R1.H2P                                                          GRA         4334     A     
 GRA                SX4    B6                                                              GRA         4335     A     
 GRA                BX6    X4+X6                                                           GRA         4336     A     
 GRA                LX4    B1,X7                                                           GRA         4337     A     
 GRA                SB2    X4                                                              GRA         4338     A     
 GRA                SA4    A0-B2       WORDB = SYM(IH)                                     GRA         4339     A     
 GRA                R=     X5,10B-T.LAB                                                    FCC0777        4     A     
 GRA                ERRMI  10B-T.LAB   CARRY ADDEND                                        FCC0777        5     A     
 GRA                LX5    P.TYP                                                           FCC0777        6     A     
 GRA                IX1    X4+X5                                                           FCC0777        7     A     
 GRA                AX1    59                                                              FCC0777        8     A     
 GRA                BX4    -X1*X4      IF( TYP[WORDB] \ T.LAB ) THEN WORDB = 0             FCC0777        9     A     
 GRA                SX5    B1                                                              GRA         4340     A     
 GRA                LX4    -P.FPB                                                          GRA         4341     A     
 GRA                BX1    X5*X4                                                           GRA         4342     A     
 GRA                LX4    P.FPB-P.LCM                                                     FCC0912       31     A     
 GRA                BX5    X1*X4       FPL2 = FP[WORDB] & LCM[WORDB]                       FCC0912       32     A     
 GRA                SA4    F.RDT+OC.STT                                                    GRA         4343     A     
 GRA                LX1    D.FPP       FP[DB] = FP[WORDB]                                  GRA         4344     A     
 GRA                SB2    OC.STT                                                          GRA         4345     A     
 GRA                PX6    B2,X6                                                           GRA         4346     A     
 GRA                SA6    B7+B6       MOD(MI) = TYII(OC.STT,0,H2,MI)                      GRA         4347     A     
 GRA                SA7    A6+B1       MOD(MI+1) = IHW(0,RF,CAIH)                          GRA         4348          I
          -FCC1918
 GRA                LX5    IH.SIAP                                                         FCC1918       10     A     
 GRA                BX7    X5+X7                                                           FCC1918       11     A     
 GRA                SA7    A6+B1       MOD(MI+1) = IHW(SIA,RF,CAIH)                        FCC1918       12     A     
 GRA                BX6    X1+X4                                                           GRA         4349     A     
 GRA                SA6    A7+B1       MOD(MI+2) = RDT(OC.STT) ! DB                        GRA         4350     A     
 GRA                MX7    0                                                               GRA         4351     A     
 GRA                SA7    A6+B1       MOD(MI+3) = 0                                       GRA         4352     A     
 GRA                SB6    B6+4        MI = MI + 4                                         GRA         4353     A     
 GRA                EQ     OSI                                                             GRA         4354     A     
 GRA       SXC      TITLE  SXC - SET EXIT CONDITIONS ( POST STORE INFO )                   GRA         4355     A     
 GRA      **        SXC - SET EXIT CONDITIONS ( POST STORE INFO )                          GRA         4356     A     
 GRA      *         SETUP POST STORE INFORMATION IN *PSI* FOR LATER USE BY                 GRA         4357     A     
 GRA      *         *IPS* IN *GPO*.                                                        GRA         4358     A     
 GRA      *                                                                                GRA         4359     A     
 GRA      *         ENTRY  (NPS) = N. POST STORES IN SEQUENCE ( SET BY *CLB* )             GRA         4360     A     
 GRA                                                                                       GRA         4361     A     
 GRA       SXC      ROUTINE                                                                GRA         4362     A     
 GRA                SA1    NPS                                                             GRA         4363     A     
 GRA                SA2    N.ENL                                                           GRA         4364     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3137    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                ZR     X1,SXC7     IF NPS = 0                                          GRA         4365     A     
 GRA                AX3    B1,X2                                                           GRA         4366          I
          -FCC0985
 GRA                NZ     X3,SXC1     IF N.ENL > 1                                        GRA         4367          I
          -FCC0985
 GRA                SA4    EPSI                                                            GRA         4368          I
          -FCC0985
 GRA                NZ     X4,SXC7     IF EPSI " 0   */ *IRA* TOOK CARE OF THEM            GRA         4369          I
          -FCC0985
 GRA                ZR     X2,SXC7     IF N.ENL = 0  */ LOOP WITHOUT EXITS                 GRA         4370          I
          -FCC0985
 GRA                                                                                       GRA         4371          I
          -FCC0985
 GRA       SXC1     SX0    X1+B1                                                           GRA         4372          I
          -FCC0985
 GRA                SA4    EPSI                                                            FCC0985       15     A     
 GRA                IX3    X2-X4                                                           FCC0985       16     A     
 GRA                ZR     X3,SXC7     IF N.ENL = EPSI  */ NO EXIT NODE POST ST"S          FCC0985       17     A     
 GRA                                                                                       FCC0985       18     A     
 GRA                SX0    X1+B1                                                           FCC0985       19     A     
 GRA                IX1    X0*X2                                                           GRA         4373     A     
 GRA                ALLOC  PSI,X1+20   ALLOC( PSI , N.ENL*(NPS+1) + 20 )                   GRA         4374     A     
 GRA                SA3    O.UDT                                                           GRA         4375     A     
 GRA                SA4    O.RCT                                                           GRA         4376     A     
 GRA                SA5    O.RXI                                                           GRA         4377     A     
 GRA                SB6    X2+B6       PO = O.PSI + OLD(L.PSI)                             GRA         4378     A     
 GRA                SB7    X2                                                              GRA         4379     A     
 GRA                SB3    X3+B1       (B3) = [O.UDT]+1                                    GRA         4380     A     
 GRA                SB4    X4          (B4) = [O.RCT]                                      GRA         4381     A     
 GRA                MX0    -IH.CAIHL                                                       GRA         4382     A     
 GRA                SA5    X5+B1       RI = [O.RXI] + 1                                    GRA         4383     A     
 GRA                                                                                       GRA         4384     A     
 GRA      *         SCAN POST STORE LIST AND FORM LIST OF VARIABLES IN *PSI*               GRA         4385     A     
 GRA      *         THAT ARE TO BE STORED ON ENTRY TO THE LOOP EXIT BLOCKS.                GRA         4386     A     
 GRA                                                                                       GRA         4387     A     
 GRA       SXC2     SA4    NPS                                                             GRA         4388     A     
 GRA                SB5    A5+B1       RB = RI + 1   */ LIVE ENTRY VECTOR ADDRESS          GRA         4389     A     
 GRA                SA7    B6          PI = PO                                             GRA         4390     A     
 GRA                LX5    59-E.ALLPP                                                      GRA         4391     A     
 GRA                PL     X5,SXC5     IF ^ALLP[RI]  */ CANT POST STORE IN THIS BL         GRA         4392     A     
 GRA                                                                                       GRA         4393     A     
 GRA                SA0    X4          I = NPS                                             GRA         4394     A     
 GRA                                                                                       GRA         4395     A     
 GRA       SXC3     SA4    PST-1+A0    J = CO[PST(I)]                                      GRA         4396     A     
 GRA                SA3    B4+X4       CAW = RCT(J)                                        GRA         4397     A     
 GRA                LX4    -18         REGNO = REG[PST(I)]                                 GRA         4398     A     
 GRA                SX7    X3          K = UDI[CAW]                                        GRA         4399     A     
 GRA                SA1    B3+X3       U2 = UDT(K+1)                                       GRA         4400     A     
 GRA                SA2    B5+X1       LEW = [RB+WI[U2]]                                   GRA         4401     A     
 GRA                UX6    B2,X1       BIT = BITN[U2]                                      GRA         4402     A     
 GRA                SB2    B2-59                                                           GRA         4403     A     
 GRA                LX6    -B2,X2                                                          GRA         4404     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3138    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                PL     X6,SXC4     IF SHIFT(59-BIT,LEW) > 0  */ DEAD ON ENTRY          GRA         4405     A     
 GRA                                                                                       GRA         4406     A     
 GRA      *         SETUP *PSI* WORD FOR THIS *RCT* ENTRY                                  GRA         4407     A     
 GRA                                                                                       GRA         4408     A     
 GRA                SA1    A3+B1                                                           GRA         4409     A     
 GRA                LX7    PS.UDIP                                                         GRA         4410     A     
 GRA                SX4    X4                                                              GRA         4411     A     
 GRA                LX4    PS.REGP                                                         GRA         4412     A     
 GRA                BX2    -X0*X1      CAIH = CAIH[RCT(J+1)]                               GRA         4413     A     
 GRA                IX6    X4+X7                                                           GRA         4414     A     
 GRA                BX7    X6+X2                                                           GRA         4415     A     
 GRA                SA7    A7+B1       PI = PI + 1;  [PI] = PSI(REGNO,K,CAIH)              GRA         4416     A     
 GRA                                                                                       GRA         4417     A     
 GRA       SXC4     SB2    A0-B1                                                           GRA         4418     A     
 GRA                SA0    A0-B1       I = I - 1                                           GRA         4419     A     
 GRA                NZ     B2,SXC3     IF I > 0                                            GRA         4420     A     
 GRA                                                                                       GRA         4421     A     
 GRA      *         SETUP HEADER WORD, AND POINT *BIT* ENTRY TO *PSI* LIST.                GRA         4422     A     
 GRA                                                                                       GRA         4423     A     
 GRA       SXC5     SX6    A7-B6       N = PI - PO                                         GRA         4424     A     
 GRA                ZR     X6,SXC6     IF N = 0      */ NO STORES TO THIS BLOCK            GRA         4425     A     
 GRA                                                                                       GRA         4426     A     
 GRA                MX7    -E.BIL                                                          GRA         4427     A     
 GRA                SA1    O.BIT                                                           GRA         4428     A     
 GRA                LX5    1+E.ALLPP-E.BIP                                                 GRA         4429     A     
 GRA                BX4    -X7*X5      BN = BI[RI]                                         GRA         4430     A     
 GRA                SB2    X1                                                              GRA         4431     A     
 GRA                SA2    B2+X4       BIW = BIT(BN)                                       GRA         4432     A     
 GRA                MX3    -BI.PIIL                                                        GRA         4433     A     
 GRA                LX2    -BI.PIIP                                                        GRA         4434     A     
 GRA                BX7    -X3*X2      OPI = PII[BIW]                                      GRA         4435     A     
 GRA                ZR     X7,SXC5B    IF OPI = 0    */ NO POST ST"S FROM INNERLP          GRA         4436     A     
 GRA                                                                                       GRA         4437     A     
 GRA      *         ADD POST STORES FROM INNER LOOP TO CURRENT LIST FOR THIS BLOCK         GRA         4438     A     
 GRA                                                                                       GRA         4439     A     
 GRA                SB2    B7-B1                                                           GRA         4440     A     
 GRA                SA1    B2+X7       PJ = PSI + OPI-1                                    GRA         4441     A     
 GRA                SB2    X1          J = [PJ]      */ N.POST ST"S FROM INNER             GRA         4442     A     
 GRA                SX6    X6+B2       N = N + J                                           GRA         4443     A     
 GRA                                                                                       GRA         4444     A     
 GRA       SXC5A    SA1    A1+B1       PJ = PJ + 1                                         GRA         4445     A     
 GRA                SB2    B2-B1       J = J - 1                                           GRA         4446     A     
 GRA                BX7    X1                                                              GRA         4447     A     
 GRA                SA7    A7+B1       PI = PI + 1;  [PI] = [PJ]                           GRA         4448     A     
 GRA                NZ     B2,SXC5A    IF J " 0                                            GRA         4449     A     
 GRA                                                                                       GRA         4450     A     
 GRA       SXC5B    SA6    B6          [PO] = N      */ SET HEADER WORD                    GRA         4451     A     
 GRA                BX2    X3*X2                                                           GRA         4452     A     
 GRA                SB6    B6+B1       PO = PO + 1                                         GRA         4453     A     
 GRA                SX4    B6-B7                                                           GRA         4454     A     
 GRA                BX7    X2+X4       PII[BIT(BN)] = PO - PSI                             GRA         4455     A     
 GRA                LX7    BI.PIIP                                                         GRA         4456     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3139    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA7    A2+                                                             GRA         4457     A     
 GRA                                                                                       GRA         4458     A     
 GRA       SXC6     SA1    BVL                                                             GRA         4459     A     
 GRA                SB6    B6+X6       PO = PO + N                                         GRA         4460     A     
 GRA                SB2    X1+B1                                                           GRA         4461     A     
 GRA                SA5    B5+B2       RI = RB + BVL+1                                     GRA         4462     A     
 GRA                NZ     X5,SXC2     IF [RI] " 0   */ NOT END OF LIST                    GRA         4463     A     
 GRA                                                                                       GRA         4464     A     
 GRA                SX6    B6-B7       L.PSI = PO - O.PSI                                  GRA         4465     A     
 GRA                SA6    L.PSI                                                           GRA         4466     A     
 GRA                                                                                       GRA         4467     A     
 GRA                TRACE  SXC,PSI                                                         GRA         4468     A     
 GRA                                                                                       GRA         4469          I
          -FCC0985
 GRA       SXC      SPACE  2,10                                                            FCC0985       20     A     
 GRA      *         ADJUST *LUV* AND *LEA* BIT VECTORS. SET BITS FOR VARIABLES             GRA         4470     A     
 GRA      *         EXPLICITLY REFERENCED IN THE LOOP ( *LUV* ). ADJUST THE *HB*           GRA         4471     A     
 GRA      *         LIVE EXIT VECTOR ( *LEA* ) TO INDICATE THAT *VC*"S THAT ARE            GRA         4472     A     
 GRA      *         *KD* OR RA & PL ARE DEAD ON EXIT FROM IT.                              GRA         4473          I
          -FCC0392
 GRA      *         *KD* ARE DEAD ON EXIT FROM IT.                                         FCC0392      134     A     
 GRA                                                                                       GRA         4474     A     
 GRA       SXC7     SA5    O.RCT                                                           GRA         4475          I
          -FCC1491X 
 GRA       SXC7     SA1    =XOPT2                                                          FCC1491X       5     A     
 GRA                ZR     X1,SXC      IF OPT2 = 0                                         FCC1491X       6     A     
 GRA                                                                                       FCC1491X       7     A     
 GRA                SA5    O.RCT                                                           FCC1491X       8     A     
 GRA                SA1    LCT                                                             GRA         4476     A     
 GRA                SA2    O.UDT                                                           GRA         4477     A     
 GRA                SA3    LUV                                                             GRA         4478     A     
 GRA                SA4    LEA                                                             GRA         4479     A     
 GRA                SB4    X2+B1       (B4) = [O.UDT] + 1                                  GRA         4480     A     
 GRA                SB2    X1                                                              GRA         4481     A     
 GRA                SB5    X3          (B5) = [LUV]                                        GRA         4482     A     
 GRA                SB6    X4          (B6) = [LEA]                                        GRA         4483     A     
 GRA                SA5    X5+B2       CI = O.RCT + LCT                                    GRA         4484     A     
 GRA                SX0    B1                                                              GRA         4485     A     
 GRA                NZ     B2,SXC9     IF LCT " 0    */ NO USER EXT REFS                   GRA         4486     A     
 GRA                EQ     SXC11                                                           GRA         4487          I
          -FCC0675
 GRA                EQ     SXC                                                             FCC0675      236     A     
 GRA                                                                                       GRA         4488     A     
 GRA       SXC8     SA2    B5+X4                                                           GRA         4489     A     
 GRA                LX1    B2,X0                                                           GRA         4490     A     
 GRA                BX6    X1+X2       LUV(W) = LUV(W) ! SHIFT(1,B)                        GRA         4491     A     
 GRA                SA6    A2                                                              GRA         4492     A     
 GRA                                                                                       GRA         4493     A     
 GRA       SXC9     SA5    A5-3        CI = CI - 3                                         GRA         4494     A     
 GRA                ZR     X5,SXC11    IF [CI] = 0   */ END OF TABLE                       GRA         4495          I
          -FCC0675
 GRA                ZR     X5,SXC      IF [CI] = 0   */ END OF TABLE                       FCC0675      237          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3140    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
          -FCC0914
 GRA                ZR     X5,SXC11    IF [CI] = 0   */ END OF TABLE                       FCC0914        5     A     
 GRA                SB2    X5          K = UDI[CI]                                         GRA         4496     A     
 GRA                ZR     B2,SXC9     IF K = 0      */ CON OR COMPILER TEMP               GRA         4497     A     
 GRA                                                                                       GRA         4498     A     
 GRA                SA4    B4+B2       U2 = UDT(K+1);  W = WI[U2]                          GRA         4499     A     
 GRA                LX5    59-CA.KDP                                                       GRA         4500     A     
 GRA                UX7    B2,X4       B = BITN[U2]                                        GRA         4501     A     
 GRA                MI     X5,SXC10    IF KD[CI]     */ USELESS INCREMENT                  GRA         4502     A     
 GRA                                                                                       GRA         4503     A     
 GRA                LX5    CA.KDP-CA.ACP                                                   GRA         4504     A     
 GRA                MI     X5,SXC8     IF AC[CI]                                           GRA         4505     A     
 GRA                LX5    CA.ACP-CA.RAP                                                   GRA         4506     A     
 GRA                PL     X5,SXC8     IF ^RA[CI]                                          GRA         4507     A     
 GRA                                                                                       GRA         4508     A     
 GRA      *         *VC* AND *RA*, SEE IF *CORE* VALUE IS DEAD ON ENTRY TO THE LP          GRA         4509          I
          -FCC0392
 GRA                                                                                       GRA         4510          I
          -FCC0392
 GRA                LX5    CA.RAP-CA.PLP                                                   GRA         4511          I
          -FCC0392
 GRA                PL     X5,SXC9     IF ^PL[CI]    */ NOT PRELOADED IN *HB*              GRA         4512          I
          -FCC0392
 GRA                LX5    CA.PLP-CA.LXP                                                   GRA         4513          I
          -FCC0392
 GRA                PL     X5,SXC10    IF ^LX[CI]    */ DEAD ON EXIT                       GRA         4514          I
          -FCC0392
 GRA                LX5    CA.LXP-CA.PSPP                                                  GRA         4515          I
          -FCC0392
 GRA                PL     X5,SXC9     IF ^PSP[CI]   */ CANT POST STORE ! ^DEF             GRA         4516          I
          -FCC0392
 GRA      *         *VC* AND *RA*, SET BIT IN *LUV* IF STORED IN LOOP.                     FCC0392      135     A     
 GRA                                                                                       FCC0392      136     A     
 GRA                LX5    CA.RAP-CA.DEFP                                                  FCC0392      137     A     
 GRA                PL     X5,SXC9     IF ^DEF[CI]                                         FCC0392      138     A     
 GRA                LX5    CA.DEFP-CA.PSPP                                                 FCC0392      139     A     
 GRA                PL     X5,SXC8     IF ^PSP[CI]   */ STORED IN THE LOOP                 FCC0392      140     A     
 GRA                EQ     SXC9                                                            FCC0392      141     A     
 GRA                                                                                       GRA         4517     A     
 GRA      *         CLEAR BIT IN *LEA* TO INDICATE CORE VALUE DEAD ON ENTRY TO             GRA         4518     A     
 GRA      *         LOOP AFTER COMBINING THE *HB* AND ITS PREDECESSOR.                     GRA         4519     A     
 GRA                                                                                       GRA         4520     A     
 GRA       SXC10    SA2    B6+X4                                                           GRA         4521     A     
 GRA                LX1    B2,X0                                                           GRA         4522     A     
 GRA                BX6    -X1*X2      LEA(W) = LEA(W) & ^SHIFT(1,B)                       GRA         4523     A     
 GRA                SA6    A2                                                              GRA         4524     A     
 GRA                EQ     SXC9                                                            GRA         4525     A     
 GRA       SXC      SPACE  2,14                                                            FCC0914        6     A     
 GRA      *         ADJUST LOOP LIVE ENTRY BV TO CLEAR BITS FOR VARIABLES THAT             FCC0914        7     A     
 GRA      *         ARE NOT USED AND DEAD ON EXIT FROM THE LOOP.                           FCC0914        8     A     
 GRA                                                                                       FCC0914        9     A     
 GRA       SXC11    SA1    LXA                                                             FCC0914       10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3141    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA2    BVL                                                             FCC0914       11     A     
 GRA                SA5    SVA                                                             FCC0914       12     A     
 GRA                SB3    X2+B1       VL = BVL + 1                                        FCC0914       13     A     
 GRA                SB2    B0          I = 0                                               FCC0914       14     A     
 GRA                SA1    X1                                                              FCC0914       15     A     
 GRA                SB7    X5                        (B7) = SVA                            FCC0914       16     A     
 GRA                                                                                       FCC0914       17     A     
 GRA       SXC12    SA2    B5+B2                                                           FCC0914       18     A     
 GRA                BX6    X1+X2       SV(I) = LX(I) ! LU(I)                               FCC0914       19     A     
 GRA                SA6    B7+B2                                                           FCC0914       20     A     
 GRA                SB2    B2+B1       I = I + 1                                           FCC0914       21     A     
 GRA                SA1    A1+B1                                                           FCC0914       22     A     
 GRA                LT     B2,B3,SXC12 IF I < VL                                           FCC0914       23     A     
 GRA                                                                                       FCC0914       24     A     
 GRA      *         CHECK FOR CHANGED BITS, AND CLEAR THOSE IN THE *LE* VECTOR             FCC0914       25     A     
 GRA      *         IF THE REF IS ^CM OR THE BASE MEMBER ( *CR* ) IS NOT REFED.            FCC0914       26     A     
 GRA                                                                                       FCC0914       27     A     
 GRA                SA0    B6                                                              FCC0914       28     A     
 GRA                SB2    B0          I = 0                                               FCC0914       29     A     
 GRA                SX0    3           BO = 4 - 1    */ UDT OFFSET                         FCC0914       30     A     
 GRA                                                                                       FCC0914       31     A     
 GRA       SXC13    SA2    A0+B2                     (X2) = LE(I)                          FCC0914       32     A     
 GRA                SA1    B7+B2                                                           FCC0914       33     A     
 GRA                BX3    X2*X1                                                           FCC0914       34     A     
 GRA                BX7    X3-X2       VD = XOR( LE(I) , SV(I) & LE(I) )                   FCC0914       35     A     
 GRA                CX6    X7                                                              FCC0914       36     A     
 GRA                ZR     X6,SXC17    IF COUNT(VD) = 0                                    FCC0914       37     A     
 GRA                                                                                       FCC0914       38     A     
 GRA       SXC14    RJ     FLB         J = FLB(VD)                                         FCC0914       39     A     
 GRA                SX1    B1                                                              FCC0914       40     A     
 GRA                LX1    B5,X1                                                           FCC0914       41     A     
 GRA                BX7    -X1*X7      VD = VD & ^SHIFT(1,J)  */ CLEAR BIT                 FCC0914       42     A     
 GRA                SB6    B5+B5                                                           FCC0914       43     A     
 GRA                SX6    X0+B6       K = 2*J + BO                                        FCC0914       44     A     
 GRA                SA3    B4+X6       UK = UDT(K)                                         FCC0914       45     A     
 GRA                LX3    59-UD.CMP                                                       FCC0914       46     A     
 GRA                PL     X3,SXC15    IF ^CM[UK]    */ ^ A CLASS MEMBER                   FCC0914       47     A     
 GRA                                                                                       FCC0914       48     A     
 GRA                LX3    1+UD.CMP-UD.BMIP                                                FCC0914       49     A     
 GRA                SA4    B4+X3       U2 = UDT(BMI[UK]+1)                                 FCC0914       50     A     
 GRA                SA5    B7+X4       SVW = SV(WI[U2])                                    FCC0914       51     A     
 GRA                UX6    B6,X4       B = BITN[U2]                                        FCC0914       52     A     
 GRA                SB6    B6-59                                                           FCC0914       53     A     
 GRA                LX6    -B6,X5                                                          FCC0914       54     A     
 GRA                MI     X6,SXC16    IF SHIFT(SVW,59-B) < 0  */ BASE MEM REFED           FCC0914       55     A     
 GRA                                                                                       FCC0914       56     A     
 GRA       SXC15    BX2    -X1*X2      LE(I) = LE(I) & ^SHIFT(1,J)                         FCC0914       57     A     
 GRA                                                                                       FCC0914       58     A     
 GRA       SXC16    NZ     X7,SXC14    IF VD " 0                                           FCC0914       59     A     
 GRA                BX6    X2                                                              FCC0914       60     A     
 GRA                SA6    A2                                                              FCC0914       61     A     
 GRA                                                                                       FCC0914       62     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3142    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA       SXC17    SX0    X0+120      BO = BO + 120                                       FCC0914       63     A     
 GRA                SB2    B2+1        I = I + 1                                           FCC0914       64     A     
 GRA                LT     B2,B3,SXC13 IF I < VL                                           FCC0914       65     A     
 GRA                                                                                       FCC0914       66     A     
 GRA                EQ     SXC                                                             FCC0914       67     A     
 GRA       FLB      SPACE  3,14                                                            FCC0914       68     A     
 GRA      **        FLB - FIND LEADING BIT SET IN A WORD                                   FCC0914       69     A     
 GRA      *                                                                                FCC0914       70     A     
 GRA      *         ENTRY  (X7) = WORD                                                     FCC0914       71     A     
 GRA      *                                                                                FCC0914       72     A     
 GRA      *         EXIT   (B5) = BIT NUMBER ( 0 - 59 )                                    FCC0914       73     A     
 GRA      *                                                                                FCC0914       74     A     
 GRA      *         USES   B - 5, 6  X - 5, 6                                              FCC0914       75     A     
 GRA                                                                                       FCC0914       76     A     
 GRA       FLB      ROUTINE                                                                FCC0914       77     A     
 GRA                MX5    12                                                              FCC0914       78     A     
 GRA                BX6    X5*X7       T12 = MASK(12) & WORD                               FCC0914       79     A     
 GRA                ZR     X6,FLB1     IF T12 = 0                                          FCC0914       80     A     
 GRA                LX6    -12                                                             FCC0914       81     A     
 GRA                SB5    59                                                              FCC0914       82     A     
 GRA                PX6    X6                                                              FCC0914       83     A     
 GRA                NX5    B6,X6                                                           FCC0914       84     A     
 GRA                SB5    B5-B6       SC = 59-NORMC(PACK(0,SHIFT(T12,-12)))               FCC0914       85     A     
 GRA                EQ     FLB                                                             FCC0914       86     A     
 GRA                                                                                       FCC0914       87     A     
 GRA       FLB1     PX6    X7                                                              FCC0914       88     A     
 GRA                SB5    47                                                              FCC0914       89     A     
 GRA                NX5    B6,X6                                                           FCC0914       90     A     
 GRA                SB5    B5-B6       SC = 47-NORMC(PACK(0,WORD))                         FCC0914       91     A     
 GRA                EQ     FLB                                                             FCC0914       92     A     
 GRA                                                                                       GRA         4526          I
          -FCC0392  -FCC0675
 GRA       SXC      SPACE  1,10                                                            FCC0392      142          I
          -FCC0675
 GRA      *         SCAN *TET* AND REMOVE ANY ENTRIES THAT WERE ASSIGNED TO                GRA         4527          I
          -FCC0675
 GRA      *         REGISTERS IN THE LOOP.  FIRST SET THE REG FIELD FOR X-ASSGNMTS         GRA         4528          I
          -FCC0675
 GRA                                                                                       GRA         4529          I
          -FCC0675
 GRA       SXC11    SA1    L.TET                                                           GRA         4530          I
          -FCC0675
 GRA                SA2    ITL                                                             GRA         4531          I
          -FCC0675
 GRA                SB2    X1                        (B2) = L.TET                          GRA         4532          I
          -FCC0675
 GRA                SB3    X2                                                              GRA         4533          I
          -FCC0675
 GRA                EQ     B2,B3,SXC   IF ITL = L.TET  */ NO COMPILER TEMPS                GRA         4534          I
          -FCC0675
 GRA                SA3    O.TET                                                           GRA         4535          I
          -FCC0675
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3143    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA4    NXC                                                             GRA         4536          I
          -FCC0675
 GRA                SB4    X3                        (B4) = [O.TET]                        GRA         4537          I
          -FCC0675
 GRA                SB6    A5                        (B6) = [O.RCT]                        GRA         4538          I
          -FCC0675
 GRA                ZR     X4,SXC14    IF NXC = 0                                          GRA         4539          I
          -FCC0675
 GRA                SX0    1           I = NXC                                             GRA         4540          I
          -FCC0675
 GRA                LX0    T.REGP                                                          GRA         4541          I
          -FCC0675
 GRA                                                                                       GRA         4542          I
          -FCC0675
 GRA       SXC12    SA5    XCT-1+X4    J = CO[XCT(I)]                                      GRA         4543          I
          -FCC0675
 GRA                SA3    B6+X5       CAW = RCT(J)                                        GRA         4544          I
          -FCC0675
 GRA                SB7    X3                                                              GRA         4545          I
          -FCC0675
 GRA                NZ     B7,SXC13    IF UDI[CAW] " 0                                     GRA         4546          I
          -FCC0675
 GRA                LX3    59-CA.CONP                                                      GRA         4547          I
          -FCC0675
 GRA                MI     X3,SXC13    IF CON[CAW]                                         GRA         4548          I
          -FCC0675
 GRA                                                                                       GRA         4549          I
          -FCC0675
 GRA                SA1    A3+B1                                                           GRA         4550          I
          -FCC0675
 GRA                LX1    -IH.CAP     C = CA[RCT(J+1)]                                    GRA         4551          I
          -FCC0675
 GRA                SA2    B4+X1                                                           GRA         4552          I
          -FCC0675
 GRA                BX6    X0+X2       REG[TET(C)] = 1  */ ANY NON-ZERO VALUE              GRA         4553          I
          -FCC0675
 GRA                SA6    A2                                                              GRA         4554          I
          -FCC0675
 GRA       SXC13    SX4    X4-1        I = I - 1                                           GRA         4555          I
          -FCC0675
 GRA                NZ     X4,SXC12    IF I " 0                                            GRA         4556          I
          -FCC0675
 GRA                                                                                       GRA         4557          I
          -FCC0675
 GRA      *         BACKWARDS SCAN TO REMOVE ENTRIES THAT WERE ASSIGNED TO REGISTE         GRA         4558          I
          -FCC0675
 GRA                                                                                       GRA         4559          I
          -FCC0675
 GRA       SXC14    SB2    B2-B1       I = L.TET - 1                                       GRA         4560          I
          -FCC0675
 GRA                MX0    -T.REGL                                                         GRA         4561          I
          -FCC0675
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3144    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SB5    B2          NTL = I       */ NEW *TET* LENGTH                   GRA         4562          I
          -FCC0675
 GRA                LX0    T.REGP                                                          GRA         4563          I
          -FCC0675
 GRA                SA1    =XN.GT                                                          GRA         4564          I
          -FCC0675
 GRA                SX7    0                                                               GRA         4565          I
          -FCC0675
 GRA                                                                                       GRA         4566          I
          -FCC0675
 GRA       SXC15    SA4    B4+B2                                                           GRA         4567          I
          -FCC0675
 GRA                BX5    -X0*X4                                                          GRA         4568          I
          -FCC0675
 GRA                ZR     X5,SXC16    IF REG[TET(I)] = 0                                  GRA         4569          I
          -FCC0675
 GRA                SA7    A4          TET(I) = 0                                          GRA         4570          I
          -FCC0675
 GRA                LT     B2,B5,SXC16 IF I < NTL                                          GRA         4571          I
          -FCC0675
 GRA                SB5    B5-B1       NTL = NTL - 1                                       GRA         4572          I
          -FCC0675
 GRA       SXC16    SB2    B2-B1       I = I - 1                                           GRA         4573          I
          -FCC0675
 GRA                GE     B2,B3,SXC15 IF I \ ITL                                          GRA         4574          I
          -FCC0675
 GRA                                                                                       GRA         4575          I
          -FCC0675
 GRA                SX6    B5+B1       L.TET = NTL + 1                                     GRA         4576          I
          -FCC0675
 GRA                IX2    X1-X6                                                           GRA         4577          I
          -FCC0675
 GRA                SA6    L.TET                                                           GRA         4578          I
          -FCC0675
 GRA                MI     X2,SXC      N.GT = MIN( N.GT , L.TET )                          GRA         4579          I
          -FCC0675
 GRA                SA6    A1                                                              GRA         4580          I
          -FCC0675
 GRA                EQ     SXC                                                             GRA         4581          I
          -FCC0675
 GRA       GRA      TTL    GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY               GRA         4582     A     
 GRA       CLB      TITLE  CLB - CODE LOOP BODY                                            GRA         4583     A     
 GRA      **        CLB - CODE LOOP BODY ( CONTROL )                                       GRA         4584     A     
 GRA                                                                                       GRA         4585     A     
 GRA                DESCRIBE BS.,60    BSW(CL,PC,LEN)                                      GRA         4586     A     
 GRA                DEFINE 7                                                               GRA         4587     A     
 GRA       CL       DEFINE 15          CODE LENGTH                                         GRA         4588     A     
 GRA       PC       DEFINE 2           PARCEL COUNT                                        GRA         4589     A     
 GRA                DEFINE 18                                                              GRA         4590     A     
 GRA       LEN      DEFINE 18          LENGTH OF SAVED CODE IN *PIT*                       GRA         4591     A     
 GRA                                                                                       GRA         4592     A     
 GRA       CLPC     DEQU   PC,17       COMBINATION FIELD                                   GRA         4593     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3145    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       GRA         4594     A     
 GRA       CLBA     BFMW   CA,(VC,PSP,LX)                                                  GRA         4595          I
          -FCC0535
 GRA       CLBA     BFMW   CA,(VC,PSP,LX,DEF)                                              FCC0535       12     A     
 GRA       CLBB     BFMW   CA,(VC,IA,RF)                                                   FCC0651        5     A     
 GRA                                                                                       GRA         4596     A     
 GRA       CLB      ROUTINE                                                                GRA         4597     A     
 GRA                SA1    NAA                                                             GRA         4598     A     
 GRA                SA2    NXC                                                             GRA         4599     A     
 GRA                IX4    X1+X2                                                           GRA         4600     A     
 GRA                LX3    B1,X4                                                           GRA         4601     A     
 GRA                SX6    X3+7+51B    NXS = 4*( 2*(NAA+NXC) + 48 ) */ EXTRA SPACE         GRA         4602     A     
 GRA                LX6    2                                                               GRA         4603     A     
 GRA                SA6    NXS                                                             GRA         4604     A     
 GRA                                                                                       GRA         4605     A     
 GRA      *         SCAN *RCT* AND SET *EU* BIT FOR *IA* CANIDATES WHOSE INCREMENTS        GRA         4606     A     
 GRA      *         ARE NOT IN B-REGISTERS                                                 GRA         4607          I
          -FCC0651
 GRA      *         VALUE IS NOT IN A B-REGISTER AND VISA-VERSA.                           FCC0651        6     A     
 GRA                                                                                       GRA         4608     A     
 GRA                MX0    -CC.REG1L                                                       GRA         4609     A     
 GRA                SA5    LCT                                                             GRA         4610     A     
 GRA                SA4    O.RCT                                                           GRA         4611     A     
 GRA                SA1    MTAC                                                            GRA         4612          I
          -FCC0651
 GRA                SA1    CLBB                                                            FCC0651        7     A     
 GRA                ZR     X5,CLB1     IF LCT = 0    */ NO CANIDATES                       GRA         4613     A     
 GRA                SB6    X4                                                              GRA         4614     A     
 GRA                SA5    B6+X5       CI = RCT + LCT                                      GRA         4615     A     
 GRA                SX7    B1                                                              GRA         4616     A     
 GRA                LX7    CA.EUP                                                          GRA         4617     A     
 GRA                                                                                       GRA         4618     A     
 GRA       AUM1     SA5    A5-3        CI = CI - 3                                         GRA         4619     A     
 GRA                ZR     X5,CLB1     IF [CI] = 0   */ END OF *RCT*                       GRA         4620     A     
 GRA                BX6    -X1+X5                                                          GRA         4621     A     
 GRA                NZ     X6,AUM1     IF ^(RA,VC,IA,RF)[CI]                               GRA         4622          I
          -FCC0651
 GRA                NZ     X6,AUM1     IF ^(VC,IA,RF)[CI]                                  FCC0651        8     A     
 GRA                SA4    A5+2        CCW = CI + 2                                        GRA         4623     A     
 GRA                LX4    -CC.INCP                                                        GRA         4624          I
          -FCC1626X 
 GRA                LX4    -CC.REG1P                                                       FCC1626X       5     A     
 GRA                BX6    -X0*X4                                                          FCC1626X       6     A     
 GRA                LX4    CC.REG1P-CC.INCP                                                FCC1626X       7     A     
 GRA                AX6    3                                                               FCC1626X       8     A     
 GRA                SA3    B6+X4       CJ = RCT(INC[CCW])                                  GRA         4625     A     
 GRA                LX3    59-CA.RAP                                                       GRA         4626     A     
 GRA                ZR     X3,AUM1     IF [CJ] = 0   */ INC[CCW] = 0                       GRA         4627     A     
 GRA                LX5    59-CA.RAP                                                       FCC0651        9     A     
 GRA                PL     X5,AUM3     IF ^RA[CI]    */ INC VAR NOT IN A B-REG             FCC0651       10     A     
 GRA                LX5    1+CA.RAP                                                        FCC0651       11     A     
 GRA                NZ     X6,AUM3     IF REG1[CCW] \ 20B  */ INC VAR IN AN X-REG          FCC1626X       9     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3146    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                LX4    CC.INCP+59-CC.I2P                                               GRA         4628     A     
 GRA                MI     X4,AUM2     IF I2[CCW]                                          GRA         4629     A     
 GRA                PL     X3,AUM2     IF ^RA[CJ]                                          GRA         4630     A     
 GRA                SA3    A3+2        CCWJ = CJ + 2                                       GRA         4631     A     
 GRA                LX3    -CC.REG1P                                                       GRA         4632     A     
 GRA                BX6    -X0*X3                                                          GRA         4633     A     
 GRA                AX6    3                                                               GRA         4634     A     
 GRA                ZR     X6,AUM1     IF REG1[CCWJ] < 7  */ INC IN A B-REG                GRA         4635     A     
 GRA                                                                                       GRA         4636     A     
 GRA       AUM2     BX6    X7+X5       EU[CI] = 1                                          GRA         4637     A     
 GRA                SA6    A5                                                              GRA         4638     A     
 GRA                EQ     AUM1                                                            GRA         4639     A     
 GRA                                                                                       FCC0651       12     A     
 GRA       AUM3     LX3    1+CA.RAP                                                        FCC0651       13     A     
 GRA                BX6    X7+X3       EU[CJ] = 1    */ FORCE INC VAL TO BE *EU*           FCC0651       14     A     
 GRA                SA6    A3                                                              FCC0651       15     A     
 GRA                EQ     AUM1                                                            FCC0651       16     A     
 GRA       CLB      SPACE  2,10                                                            GRA         4640     A     
 GRA      *         INITIALIZE FLAGS                                                       GRA         4641     A     
 GRA                                                                                       GRA         4642     A     
 GRA       CLB1     SX6    B1+B1                                                           GRA         4643     A     
 GRA                MX7    0                                                               GRA         4644     A     
 GRA                SA6    BSI         BSI = 2                                             GRA         4645     A     
 GRA                SA7    LBN         LBN = 0       */ LAST USE BLOCK NUMBER              GRA         4646          I
          -FCC0675
 GRA                SA7    MRU         MRU = 0       */ MACHINE REGS USED                  GRA         4647     A     
 GRA                SA7    L.PIT       L.PIT = 0                                           GRA         4648     A     
 GRA                SA7    PL          PL = 0                                              GRA         4649     A     
 GRA                                                                                       GRA         4650     A     
 GRA      *         SCAN *RAT* AND FORM POST STORE LIST                                    GRA         4651     A     
 GRA                                                                                       GRA         4652     A     
 GRA                SX2    27B         I = 27B                                             GRA         4653     A     
 GRA                SA5    O.RCT                                                           GRA         4654     A     
 GRA                SA3    NXC                                                             GRA         4655     A     
 GRA                SA1    CLBA                                                            GRA         4656     A     
 GRA                SB7    B0          NPS = 0                                             GRA         4657     A     
 GRA                SB6    X5                                                              GRA         4658     A     
 GRA                NZ     X3,CLB2     IF NXC " 0                                          GRA         4659     A     
 GRA                SX2    7           I = 7                                               GRA         4660     A     
 GRA                                                                                       GRA         4661     A     
 GRA       CLB2     SA5    RAT+X2      J = R1[RAT(I)]                                      GRA         4662     A     
 GRA                ZR     X5,CLB3     IF RAT(I) = 0                                       GRA         4663     A     
 GRA                SA4    B6+X5       CAW = RCT(J)                                        GRA         4664     A     
 GRA                BX6    -X1+X4                                                          GRA         4665     A     
 GRA                NZ     X6,CLB3     IF ^( VC[CAW] & PSP[CAW] & LX[CAW] )                GRA         4666          I
          -FCC0535
 GRA                NZ     X6,CLB3     IF ^(VC[CAW]&PSP[CAW]&LX[CAW]&DEF[CAW])             FCC0535       13     A     
 GRA                                                                                       GRA         4667     A     
 GRA                SX3    X5                                                              GRA         4668     A     
 GRA                LX2    18                                                              GRA         4669     A     
 GRA                BX7    X2+X3                                                           GRA         4670     A     
 GRA                LX2    -18                                                             GRA         4671     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3147    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA7    PST+B7      PST(NPS) = SHIFT(I,18) ! J                          GRA         4672     A     
 GRA                SB7    B7+1        NPS = NPS + 1                                       GRA         4673     A     
 GRA                                                                                       GRA         4674     A     
 GRA       CLB3     SX2    X2-1        I = I - 1                                           GRA         4675     A     
 GRA                NZ     X2,CLB2     IF I " 0                                            GRA         4676     A     
 GRA                                                                                       GRA         4677     A     
 GRA                SX7    B7+                                                             GRA         4678     A     
 GRA                SA7    NPS                                                             GRA         4679     A     
 GRA                                                                                       GRA         4680     A     
 GRA      *         PROCESS ALL NON-EMPTY BLOCKS IN THE LOOP BODY                          GRA         4681     A     
 GRA                                                                                       GRA         4682     A     
 GRA       CLB4     SX6    4           L.TXT = 4                                           GRA         4683     A     
 GRA                SA6    L.TXT                                                           GRA         4684     A     
 GRA                CALL   RTB         READ BLOCK IN                                       GRA         4685     A     
 GRA                SA1    L.SEQ                                                           GRA         4686     A     
 GRA                SB2    X1-8                                                            GRA         4687          I
          -FCC2051
 GRA                LE     B2,CLB10    IF L.SEQ @ 8  */ EMPTY BLOCK                        GRA         4688          I
          -FCC2051
 GRA                                                                                       GRA         4689          I
          -FCC2051
 GRA                RJ     SLW         SAVE LINK WORDS                                     GRA         4690     A     
 GRA                                                                                       GRA         4691     A     
 GRA                CALL   IRA         INSERT REGISTER ASSIGNMENTS                         GRA         4692     A     
 GRA                                                                                       FCC2051        9     A     
 GRA                SA1    L.TXT                                                           FCC2051       10     A     
 GRA                SA2    DTL                                                             FCC2051       11     A     
 GRA                IX3    X1-X2                                                           FCC2051       12     A     
 GRA                ZR     X3,CLB10    IF L.TXT = DTL  */ NOTHING TO CODE                  FCC2051       13          I
          -FCCA509X 
 GRA                NZ     X3,CLB4A    IF L.TXT " DTL */CODE IT                            FCCA509X      26     A     
 GRA                                                                                       FCCA509X      27     A     
 GRA      *         NOTHING TO CODE - MAKE BST(BSI+1) = 0                                  FCCA509X      28     A     
 GRA      *         SO NOTHING WILL BE WRITTEN TO BLK.                                     FCCA509X      29     A     
 GRA                                                                                       FCCA509X      30     A     
 GRA                SA1    O.BST                                                           FCCA509X      31     A     
 GRA                SA2    BSI                                                             FCCA509X      32     A     
 GRA                MX6    0                                                               FCCA509X      33     A     
 GRA                IX3    X1+X2                                                           FCCA509X      34     A     
 GRA                SA6    X3+B1       BST(BSI+1) = 0                                      FCCA509X      35     A     
 GRA                EQ     CLB10                                                           FCCA509X      36     A     
 GRA                                                                                       FCCA509X      37     A     
 GRA       CLB4A    BSS    0                                                               FCCA509X      38     A     
 GRA                                                                                       FCC2051       14     A     
 GRA                TRACE  CLB,RLIST,SEQ                                                   GRA         4693     A     
 GRA                TRACE  CLB,RLIST                                                       GRA         4694     A     
 GRA                                                                                       GRA         4695     A     
 GRA                RJ     RLW         RESTORE LINK WORDS                                  GRA         4696     A     
 GRA                                                                                       GRA         4697     A     
 GRA                CALL   CUC         COLLECT USES COUNTS                                 GRA         4698     A     
 GRA                                                                                       GRA         4699     A     
 GRA       #IWT     IFEQ   .CPU,74                                                         GRA         4700     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3148    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA       #IWT     IFNE   .IWT,0                                          ?IWT            GRA         4701     A     
 GRA                                                                                       GRA         4702     A     
 GRA      *         IF A 6600 AND IWTIME " 0, THEN CHECK LOOP LENGTH AND SET STACK         GRA         4703     A     
 GRA      *         FLAG IF IT FITS.  NOTE THAT BECAUSE OF PARCEL FAULTS THE               GRA         4704     A     
 GRA      *         LOOP COULD BE CODED BY *MCG* AND NOT FIT *INSTACK*.                    GRA         4705     A     
 GRA                                                                                       GRA         4706     A     
 GRA                SA1    N.EBB                                                           GRA         4707     A     
 GRA                SX6    X1-1                                                            GRA         4708     A     
 GRA                NZ     X6,CLS3     IF N.EBB " 1                                        GRA         4709     A     
 GRA                SA5    O.TXT                                                           GRA         4710     A     
 GRA                MX1    -D.SZL                                                          GRA         4711     A     
 GRA                SA4    L.TXT                                                           GRA         4712     A     
 GRA                LX1    D.SZP                                                           GRA         4713     A     
 GRA                SX2    B1+B1                                                           GRA         4714     A     
 GRA                SX7    29                                                              GRA         4715     A     
 GRA                LX2    D.SZP       LEN = 2                                             GRA         4716     A     
 GRA                IX6    X4+X5                                                           GRA         4717     A     
 GRA                LX7    D.SZP                                                           GRA         4718     A     
 GRA                SA4    X6-2        DI = O.TXT + L.TXT - 2                              GRA         4719     A     
 GRA                SB4    4                                                               GRA         4720     A     
 GRA                                                                                       GRA         4721     A     
 GRA       CLS1     SA4    A4-B4       DI = DI - 4                                         GRA         4722     A     
 GRA                LX4    59-D.JPP                                                        GRA         4723     A     
 GRA                PL     X4,CLS1     IF ^JP[DI]    */ NOT TERMINAL JUMP                  GRA         4724     A     
 GRA                                                                                       GRA         4725     A     
 GRA       CLS2     SA4    A4-B4       DI = DI - 4                                         GRA         4726     A     
 GRA                SA5    A4-2        R1 = DI - 2                                         GRA         4727     A     
 GRA                BX6    -X1*X4                                                          GRA         4728     A     
 GRA                IX2    X2+X6       LEN = LEN + SZ[DI]                                  GRA         4729     A     
 GRA                UX3    B2,X5                                                           GRA         4730     A     
 GRA                IX6    X2-X7                                                           GRA         4731     A     
 GRA                PL     X6,CLS3     IF LEN > 28   */ LOOP NOT INSTACK                   GRA         4732     A     
 GRA                NE     B2,B1,CLS2  IF OC[R1] " OC.BOS                                  GRA         4733     A     
 GRA                                                                                       GRA         4734     A     
 GRA                MX7    1                                                               GRA         4735     A     
 GRA                LX7    1+IH.STKP                                                       GRA         4736     A     
 GRA                SA7    A5+5        STK[R1+5] = 1  */ INDICATE STACK TIMING             GRA         4737     A     
 GRA                                                                                       GRA         4738     A     
 GRA       CLS3     BSS    0                                                               GRA         4739     A     
 GRA       #IWT     ENDIF                                                  'IWT            GRA         4740     A     
 GRA                                                                                       GRA         4741     A     
 GRA                SA3    NXC                                                             GRA         4742     A     
 GRA                RJ     CIS         SET THE PARCEL COUNT AND CODE THE SEQUENCE          GRA         4743     A     
 GRA                NZ     X6,CLB14    IF MCGFAIL " 0  */ TOO MANY LOCKED REGS             GRA         4744     A     
 GRA                                                                                       GRA         4745     A     
 GRA      *         COLLECT THE LIST OF REGISTERS USED BY *MCG* FOR OUTER LOOPS            GRA         4746     A     
 GRA                                                                                       GRA         4747     A     
 GRA                SA5    MRA                                                             GRA         4748     A     
 GRA                ZR     X5,CLB9     IF MRA = 0    */ NO REGS AVAIL                      GRA         4749     A     
 GRA                                                                                       GRA         4750     A     
 GRA                SA1    MRU                                                             GRA         4751     A     
 GRA                SA2    O.TXT                                                           GRA         4752     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3149    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA3    L.TXT                                                           GRA         4753     A     
 GRA                SA5    X2+7        LI = O.TXT + 7                                      GRA         4754     A     
 GRA                SB4    4                                                               GRA         4755     A     
 GRA                SB3    X3-8        I = L.TXT - 8                                       GRA         4756     A     
 GRA                SX0    B1                                                              GRA         4757     A     
 GRA                BX6    X1                                                              GRA         4758     A     
 GRA                                                                                       GRA         4759     A     
 GRA       CLB8     SB5    X5          REGN = REG[LI]                                      GRA         4760     A     
 GRA                LX2    B5,X0                                                           GRA         4761     A     
 GRA                SB3    B3-B4       I = I - 4                                           GRA         4762     A     
 GRA                BX6    X2+X6       MRU = MRU ! SHIFT(1,REGN)                           GRA         4763     A     
 GRA                SA5    A5+B4       LI = LI + 4                                         GRA         4764     A     
 GRA                NZ     B3,CLB8     IF I " 0                                            GRA         4765     A     
 GRA                SA6    A1                                                              GRA         4766     A     
 GRA                                                                                       GRA         4767     A     
 GRA      *         SAVE CODE LENGTH INFO IN *BST*                                         GRA         4768     A     
 GRA                                                                                       GRA         4769     A     
 GRA       CLB9     SA1    PL                                                              GRA         4770     A     
 GRA                SA2    L.PIT                                                           GRA         4771     A     
 GRA                SA4    =XPC                                                            GRA         4772     A     
 GRA                SX3    0           CODEL = 0                                           GRA         4773     A     
 GRA                SA5    O.BST                                                           GRA         4774     A     
 GRA                IX0    X2-X1       LEN = L.PIT - PL                                    GRA         4775     A     
 GRA                LX0    BS.LENP                                                         GRA         4776     A     
 GRA                BX6    X2          PL = L.PIT                                          GRA         4777     A     
 GRA                SA6    A1                                                              GRA         4778     A     
 GRA                LX3    BS.CLP                                                          GRA         4779     A     
 GRA                LX4    BS.PCP                                                          GRA         4780     A     
 GRA                BX3    X3+X4                                                           GRA         4781     A     
 GRA                SA4    BSI                                                             GRA         4782     A     
 GRA                IX6    X3+X0                                                           GRA         4783     A     
 GRA                SB5    X5+B1                                                           GRA         4784     A     
 GRA                SA6    B5+X4       BST(BSI+1) = BSW(CL,PC,LEN)                         GRA         4785     A     
 GRA                MX7    0                                                               GRA         4786     A     
 GRA                SA1    NXC                                                             GRA         4787     A     
 GRA                NZ     X1,CLB10    IF NXC " 0    */ LOCKED X-MODE                      GRA         4788     A     
 GRA                SA1    NAA                                                             FCC0603       40     A     
 GRA                NZ     X1,CLB10    IF NAA " 0    */ LOCKED A-REGS                      FCC0603       41     A     
 GRA                                                                                       GRA         4789     A     
 GRA                SA7    PL          PL = 0                                              GRA         4790     A     
 GRA                BX4    X6                                                              GRA         4791     A     
 GRA                SA1    A6-B1       BAW = BST(BSI)                                      GRA         4792     A     
 GRA                RJ     WSC         DUMP CODE                                           GRA         4793     A     
 GRA                SA7    PL          PL = 0                                              GRA         4794     A     
 GRA                SA7    L.PIT       L.PIT = 0                                           GRA         4795     A     
 GRA                                                                                       GRA         4796     A     
 GRA      *         ADVANCE TO NEXT SEQUENCE                                               GRA         4797     A     
 GRA                                                                                       GRA         4798     A     
 GRA       CLB10    SA1    BSI                                                             GRA         4799     A     
 GRA                SA2    L.BST                                                           GRA         4800     A     
 GRA                SX6    X1+2        BSI = BSI + 2                                       GRA         4801     A     
 GRA                SX3    X2-1                                                            GRA         4802     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3150    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                IX7    X6-X3                                                           GRA         4803     A     
 GRA                SA6    A1                                                              GRA         4804     A     
 GRA                MI     X7,CLB4     IF BSI < L.BST - 1                                  GRA         4805     A     
 GRA                                                                                       GRA         4806     A     
 GRA                SX7    4                                                               GRA         4807     A     
 GRA                SA7    L.TXT       L.TXT = 4                                           GRA         4808     A     
 GRA       CLB      SPACE  1,10                                                            GRA         4809     A     
 GRA      *         WRITE THE SAVED CODE BACK TO *BLK*                                     GRA         4810     A     
 GRA                                                                                       GRA         4811     A     
 GRA                SA1    NXC                                                             GRA         4812          I
          -FCC0603
 GRA                ZR     X1,CLB      IF NXC = 0    */ NO SAVED CODE                      GRA         4813          I
          -FCC0603
 GRA                SA1    L.PIT                                                           FCC0603       42     A     
 GRA                ZR     X1,CLB      IF L.PIT = 0  */ NO SAVED CODE                      FCC0603       43     A     
 GRA                SX6    B1+B1       BSI = 2                                             GRA         4814     A     
 GRA                MX7    0                                                               GRA         4815     A     
 GRA                SA7    PL          PL = 0                                              GRA         4816     A     
 GRA                                                                                       GRA         4817     A     
 GRA       CLB11    SA2    O.BST                                                           GRA         4818     A     
 GRA                IX7    X6+X2                                                           GRA         4819     A     
 GRA                SA1    X7          BAW = BST(BSI)                                      GRA         4820     A     
 GRA                SA4    X7+B1       BSW = BST(BSI+1)                                    GRA         4821     A     
 GRA                ZR     X1,CLB13    IF BAW = 0    */ END OF *BST*                       GRA         4822     A     
 GRA                LX1    -BA.LENP                                                        GRA         4823          I
          -FCCA509X 
 GRA                SB2    X1-8                                                            GRA         4824          I
          -FCCA509X 
 GRA                LE     B2,CLB12    IF LEN[BAW] @ 8  */ EMPTY BLOCK                     GRA         4825          I
          -FCCA509X 
 GRA                SA6    BSI                                                             GRA         4826          I
          -FCCA509X 
 GRA                LX1    BA.LENP                                                         GRA         4827          I
          -FCCA509X 
 GRA                ZR     X4,CLB12    IF BST(BSI+1) = 0 */NOT CODED                       FCCA509X      39     A     
 GRA                SA6    BSI                                                             FCCA509X      40     A     
 GRA                RJ     WSC         WRITE SAVED CODE TO *BLK*                           GRA         4828     A     
 GRA                SA1    BSI                                                             GRA         4829     A     
 GRA                SX6    X1+                                                             GRA         4830     A     
 GRA       CLB12    SX6    X6+2        BSI = BSI + 2                                       GRA         4831     A     
 GRA                EQ     CLB11                                                           GRA         4832     A     
 GRA                                                                                       GRA         4833     A     
 GRA       CLB13    SX6    0                                                               GRA         4834     A     
 GRA                SA6    L.PIT       L.PIT = 0                                           GRA         4835     A     
 GRA                EQ     CLB                                                             GRA         4836     A     
 GRA       CLB      SPACE  3,10                                                            GRA         4837     A     
 GRA      *         *MCG* FAILED, REDUCE LOCKED X-REG COUNT AND TRY AGAIN.                 GRA         4838     A     
 GRA                                                                                       GRA         4839     A     
 GRA       CLB14    SA1    NXC         NXC = NXC - 1                                       GRA         4840          I
          -FCC0811
 GRA                SA3    O.RCT                                                           GRA         4841          I
          -FCC0811
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3151    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                MX0    1                                                               GRA         4842          I
          -FCC0603  -FCC0811
 GRA                SA2    XCT-1+X1    J = CO[XCT(NXC)]                                    GRA         4843          I
          -FCC0603  -FCC0811
 GRA                ZR     X1,CLB17    IF NXC < 0                                          FCC0603       44          I
          -FCC0811
 GRA                SA2    XCT-1+X1    J = CO[XCT(NXC)]                                    FCC0603       45          I
          -FCC0811
 GRA                MX0    1                                                               FCC0603       46          I
          -FCC0811
 GRA                SB3    X3                                                              GRA         4844          I
          -FCC0811
 GRA                LX0    1+CA.RAP                                                        GRA         4845          I
          -FCC0811
 GRA                SA4    B3+X2                                                           GRA         4846          I
          -FCC0811
 GRA                BX6    -X0*X4      RA[RCT(J)] = 0                                      GRA         4847          I
          -FCC0811
 GRA                SA5    A4+2                                                            GRA         4848          I
          -FCC0811
 GRA                SX7    X1-1                                                            GRA         4849          I
          -FCC0811
 GRA                SA7    A1                                                              GRA         4850          I
          -FCC0811
 GRA                MX0    -CC.REG1L                                                       GRA         4851          I
          -FCC0811
 GRA                SA6    A4                                                              GRA         4852          I
          -FCC0811
 GRA                LX5    -CC.REG1P                                                       GRA         4853          I
          -FCC0811
 GRA                BX1    -X0*X5      REGN = REG1[RCT(J+2)]                               GRA         4854          I
          -FCC0811
 GRA                MX7    0                                                               GRA         4855          I
          -FCC0811
 GRA                SA7    RAT+X1      RAT(REGN) = 0                                       GRA         4856          I
          -FCC0811
 GRA                SA7    RVT+X1      RVT(REGN) = 0                                       GRA         4857          I
          -FCC0811
 GRA       CLB14    SA1    NXC                                                             FCC0811        9     A     
 GRA                ZR     X1,CLB17    IF NXC = 0                                          FCC0811       10     A     
 GRA                RJ     RXA         REMOVE LAST X-ASSIGNMENT                            FCC0811       11     A     
 GRA                PRINT  CLB,(* --- MCG FAIL ---*)                                       GRA         4858     A     
 GRA                EQ     CLB1                                                            GRA         4859     A     
 GRA       CLB      SPACE  2,10                                                            FCC0603       47     A     
 GRA      *         A-REGS LOCKED AND MCG FAILED, REDUCE *MARA* AND RESTART                FCC0603       48     A     
 GRA                                                                                       FCC0603       49     A     
 GRA       CLB17    CLCM   CLW         CLEAR LINK WORDS                                    FCC0603       50     A     
 GRA                SA1    NAA                                                             FCC0603       51     A     
 GRA                SX6    X1-1        MARA = NAA - 1                                      FCC0603       52     A     
 GRA                SA6    MARA                                                            FCC0603       53     A     
 GRA                SX7    4                                                               FCC0603       54     A     
 GRA                SA7    L.TXT       L.TXT = 4                                           FCC0603       55     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3152    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SX7    0                                                               FCC0603       56     A     
 GRA                SA7    L.PIT       L.PIT = 0                                           FCC0603       57     A     
 GRA                SA7    L.RCT       L.RCT = 0                                           FCC0603       58     A     
 GRA                SA7    LUL+1       LUL(2) = 0                                          FCC0603       59     A     
 GRA                MX6    36                                                              FCC0603       60     A     
 GRA                BX6    -X6                                                             FCC0603       61     A     
 GRA                SA6    MRA         MRA = ^MASK(36)                                     FCC0603       62     A     
 GRA                EQ     GRA0                                                            FCC0603       63     A     
 GRA       CLW      SPACE  3                                                               FCC0603       64     A     
 GRA      **        CLW - CLEAR LINK WORDS OF A BLOCK                                      FCC0603       65     A     
 GRA                                                                                       FCC0603       66     A     
 GRA       CLW      ROUTINE                                                                FCC0603       67     A     
 GRA                SA1    O.SEQ                                                           FCC0603       68     A     
 GRA                SA2    L.SEQ                                                           FCC0603       69     A     
 GRA                SB4    4                                                               FCC0603       70     A     
 GRA                SB2    X1+3        I = 3                                               FCC0603       71     A     
 GRA                IX3    X1+X2                                                           FCC0603       72     A     
 GRA                MX6    0                                                               FCC0603       73     A     
 GRA                SB3    X3                                                              FCC0603       74     A     
 GRA                                                                                       FCC0603       75     A     
 GRA       CLW1     SA6    B2          SEQ(I) = 0                                          FCC0603       76     A     
 GRA                SB2    B2+B4       I = I + 4                                           FCC0603       77     A     
 GRA                LE     B2,B3,CLW1  IF I < L.SEQ                                        FCC0603       78     A     
 GRA                                                                                       FCC0603       79     A     
 GRA                EQ     CLW                                                             FCC0603       80     A     
 GRA       RXA      SPACE  3,14                                                            FCC0811       12     A     
 GRA      **        RXA - REMOVE AN X-ASSIGNMENT FROM *RCT*                                FCC0811       13     A     
 GRA      *                                                                                FCC0811       14     A     
 GRA      *         ENTRY  (A1,X1) = NXC,[NXC]                                             FCC0811       15     A     
 GRA      *                                                                                FCC0811       16     A     
 GRA      *         EXIT   (X6) = NXC , DECREMENTED                                        FCC0811       17     A     
 GRA                                                                                       FCC0811       18     A     
 GRA       RXA      ROUTINE                                                                FCC0811       19     A     
 GRA                SA3    O.RCT                                                           FCC0811       20     A     
 GRA                SA2    XCT-1+X1    J = CO[XCT(NXC)]                                    FCC0811       21     A     
 GRA                MX0    2                                                               FCC0811       22     A     
 GRA                LX0    2+CA.RAFP                                                       FCC0811       23     A     
 GRA                SB3    X3                                                              FCC0811       24     A     
 GRA                SA4    B3+X2                                                           FCC0811       25     A     
 GRA                BX6    -X0*X4      (RA,IRA)RCT(J) = 0                                  FCC0811       26     A     
 GRA                SA6    A4                                                              FCC0811       27     A     
 GRA                MX0    -CC.REG1L                                                       FCC0811       28     A     
 GRA                SA5    A4+2        CCW = RCT(J+2)                                      FCC0811       29     A     
 GRA                LX5    -CC.REG1P                                                       FCC0811       30     A     
 GRA                BX2    -X0*X5      REGN = REG1[CCW]                                    FCC0811       31     A     
 GRA                MX0    -CC.REGFL                                                       FCC0811       32     A     
 GRA                LX0    CC.REGFP                                                        FCC0811       33     A     
 GRA                LX5    CC.REG1P                                                        FCC0811       34     A     
 GRA                BX6    X0*X5       REGF[RCT(J+2)] = 0                                  FCC0811       35     A     
 GRA                SA6    A5                                                              FCC0811       36     A     
 GRA                SX6    X1-1        NXC = NXC - 1                                       FCC0811       37     A     
 GRA                SA6    A1                                                              FCC0811       38     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3153    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                ZR     X2,RXA      IF REGN = 0                                         FCC0811       39     A     
 GRA                MX7    0                                                               FCC0811       40     A     
 GRA                SA7    RAT+X2      RAT(REGN) = 0                                       FCC0811       41     A     
 GRA                SA7    RVT+X2      RVT(REGN) = 0                                       FCC0811       42     A     
 GRA                EQ     RXA                                                             FCC0811       43     A     
 GRA       CXB      TITLE  CXB - CODE EXTENDED BASIC BLOCK                                 GRA         4860     A     
 GRA      **        CXB - CODE EXTENDED BASIC BLOCK ( STRAIGHT LINE CODE )                 GRA         4861     A     
 GRA                                                                                       GRA         4862     A     
 GRA       CXB      ENTRY. **                                                              GRA         4863     A     
 GRA                SA1    L.SEQ                                                           GRA         4864     A     
 GRA                SB2    X1-8                                                            GRA         4865     A     
 GRA                LE     B2,CXB      IF L.SEQ @ 8                                        GRA         4866     A     
 GRA                                                                                       GRA         4867     A     
 GRA                CALL   AIS         ASSIGN INDEX REGISTERS                              GRA         4868     A     
 GRA                MX6    0                                                               GRA         4869     A     
 GRA                SA6    PL          PL = 0                                              GRA         4870     A     
 GRA                MX3    0                                                               GRA         4871     A     
 GRA                RJ     CIS         SET *PC* AND CODE SEQUENCE                          GRA         4872     A     
 GRA                SA1    O.BST                                                           GRA         4873     A     
 GRA                SA2    BSI                                                             GRA         4874     A     
 GRA                SA3    =XPC                                                            GRA         4875     A     
 GRA                SA4    L.PIT                                                           GRA         4876     A     
 GRA                IX7    X1+X2                                                           GRA         4877     A     
 GRA                SA1    X7          BAW = BST(BSI)                                      GRA         4878     A     
 GRA                LX3    BS.PCP                                                          GRA         4879     A     
 GRA                BX4    X3+X4       BSW = BSW(0,PC,L.PIT)                               GRA         4880     A     
 GRA                RJ     WSC         WRITE SAVED CODE TO *BLK*                           GRA         4881     A     
 GRA                SX6    4                                                               GRA         4882     A     
 GRA                SA6    L.TXT       L.TXT = 4                                           GRA         4883     A     
 GRA                SA7    L.PIT       L.PIT = 0                                           GRA         4884     A     
 GRA                EQ     CXB                                                             GRA         4885     A     
 GRA       CIS      SPACE  2,14        CIS                                                 GRA         4886     A     
 GRA      **        CIS - CODE INSTRUCTION SEQUENCE                                        GRA         4887     A     
 GRA      *                SETS THE INITIAL VALUE OF *PARCEL* AND CALLS *MCG*.             GRA         4888     A     
 GRA      *                                                                                GRA         4889     A     
 GRA      *         ENTRY  (X3) = NXC , *MCG* LOCKED REGISTER FLAG                         GRA         4890     A     
 GRA      *         EXIT   (X6) = MCGFAIL FLAG, = 0 IF SEQUENCE CODED                      GRA         4891     A     
 GRA                                                                                       GRA         4892     A     
 GRA       CIS      ROUTINE                                                                GRA         4893     A     
 GRA                SA1    O.BST                                                           GRA         4894     A     
 GRA                SA2    O.BIT                                                           GRA         4895     A     
 GRA                SA4    BSI         J = BSI                                             GRA         4896     A     
 GRA                SB2    X1                                                              GRA         4897     A     
 GRA                SB3    X2                                                              GRA         4898     A     
 GRA                SA4    B2+X4                                                           GRA         4899     A     
 GRA                LX4    -BA.BIP     BI = BI[BST(J)]                                     GRA         4900     A     
 GRA                SA5    B3+X4       BIW = BIT(BI)                                       GRA         4901     A     
 GRA                MX7    0           PPC = 0       */ PREVIOUS SEQ *PC*                  GRA         4902     A     
 GRA                LX5    59-BI.ILP                                                       GRA         4903     A     
 GRA                MI     X5,CIS2     IF IL[BIW]    */ BLOCK HAS A INITIAL LABEL          GRA         4904     A     
 GRA                MX6    -BI.PCL                                                         GRA         4905     A     
 GRA                                                                                       GRA         4906     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3154    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA       CIS1     SA5    A5-2        BI = BI - 2;  BIW = BIT(BI)                         GRA         4907     A     
 GRA                LX5    59-BI.CBP                                                       GRA         4908     A     
 GRA                PL     X5,CIS1     IF ^CB[BIW]   */ PART OF AN EXTENDED BLOCK          GRA         4909     A     
 GRA                LX5    1+BI.CBP-BI.PCP                                                 GRA         4910     A     
 GRA                BX7    -X6*X5      PPC = PC[BIW]                                       GRA         4911     A     
 GRA                                                                                       GRA         4912     A     
 GRA       CIS2     SX6    X3+                                                             GRA         4913     A     
 GRA                SA7    =XPARCEL    PARCEL = PPC                                        GRA         4914     A     
 GRA                CALL   MCG (NXC )  CODE THE SEQUENCE                                   GRA         4915     A     
 GRA                EQ     CIS                                                             GRA         4916     A     
 GRA       WSC      TITLE  WSC - WRITE SAVED CODE FROM *PIT* TO *BLK*                      GRA         4917     A     
 GRA      **        WSC - WRITE SAVED CODE IN *PIT* TO *BLK*                               GRA         4918     A     
 GRA      *                                                                                GRA         4919     A     
 GRA      *         ENTRY  (BSI) = *BST* INDEX                                             GRA         4920     A     
 GRA      *                (PL) = INDEX TO SAVED CODE IN *PIT*                             GRA         4921     A     
 GRA      *                (X1) = BAW = BST(BSI)                                           GRA         4922     A     
 GRA      *                (X4) = BSW = BST(BSI+1) = BSW(CL,PC,LEN)                        GRA         4923     A     
 GRA      *                                                                                GRA         4924     A     
 GRA      *         EXIT   (M.PL) = MAX *PIT* LENGTH OF A BLOCK UPDATED                    GRA         4925     A     
 GRA      *                (LBN) = LAST BLOCK NUMBER OF REGION CODED UPDATED               GRA         4926          I
          -FCC0675
 GRA      *                (X7) = 0                                                        GRA         4927     A     
 GRA      *                *CB* AND *PC* FIELDS SET IN *BIT* ENTRY.                        GRA         4928     A     
 GRA                                                                                       GRA         4929     A     
 GRA       WSC      ROUTINE                                                                GRA         4930     A     
 GRA                SA5    LBN                                                             GRA         4931          I
          -FCC0675
 GRA                SA3    O.BIT                                                           GRA         4932          I
          -FCC0675
 GRA                LX1    -BA.BIP                                                         GRA         4933          I
          -FCC0675
 GRA                MX0    -BS.CLPCL                                                       GRA         4934          I
          -FCC0675
 GRA                SB3    X3                        (B3) = [O.BIT]                        GRA         4935          I
          -FCC0675
 GRA                LX0    BS.CLPCP                                                        GRA         4936          I
          -FCC0675
 GRA                SX6    X1          BN = BI[BAW]                                        GRA         4937          I
          -FCC0675
 GRA                IX7    X5-X6                                                           GRA         4938          I
          -FCC0675
 GRA                PL     X7,WSC1     IF LBN \ BN                                         GRA         4939          I
          -FCC0675
 GRA                SA1    NPB                                                             GRA         4940          I
          -FCC0675
 GRA                LX1    1                                                               GRA         4941          I
          -FCC0675
 GRA                IX7    X6-X1                                                           GRA         4942          I
          -FCC0675
 GRA                SB2    X7                                                              GRA         4943          I
          -FCC0675
 GRA                GT     B2,WSC1     IF BN > 2*NPB */ HOLDING BLOCK                      GRA         4944          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3155    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
          -FCC0675
 GRA                SA6    A5          LBN = BN                                            GRA         4945          I
          -FCC0675
 GRA                                                                                       GRA         4946          I
          -FCC0675
 GRA       WSC1     SA2    B3+X6       BIW = BIT(BN)                                       GRA         4947          I
          -FCC0675
 GRA                SA3    M.PL                                                            GRA         4948          I
          -FCC0675
 GRA                SA5    O.BIT                                                           FCC0675      238     A     
 GRA                LX1    -BA.BIP                                                         FCC0675      239     A     
 GRA                SB3    X1          BN = BI[BAW]                                        FCC0675      240     A     
 GRA                MX0    -BS.CLPCL                                                       FCC0675      241     A     
 GRA                SA2    X5+B3       BIW = BIT(BN)                                       FCC0675      242     A     
 GRA                SA3    M.PL                                                            FCC0675      243     A     
 GRA                LX0    BS.CLPCP                                                        FCC0675      244     A     
 GRA                LX4    -BS.LENP                                                        GRA         4949     A     
 GRA                SX1    X4          LEN = LEN[BSW]                                      GRA         4950     A     
 GRA                LX4    BS.LENP                                                         GRA         4951     A     
 GRA                SA5    O.PIT                                                           GRA         4952     A     
 GRA                BX4    -X0*X4                                                          GRA         4953     A     
 GRA                SX7    B1                                                              GRA         4954     A     
 GRA                BX2    X0*X2                                                           GRA         4955     A     
 GRA                LX7    BI.CBP                                                          GRA         4956     A     
 GRA                LX4    BI.PCP-BS.PCP                                                   GRA         4957     A     
 GRA                BX2    X4+X2       CLPC[BIW] = CLPC[BSW]                               GRA         4958     A     
 GRA                IX0    X3-X1                                                           GRA         4959     A     
 GRA                SA4    PL                                                              GRA         4960     A     
 GRA                BX7    X7+X2       CB[BIW] = 1   */ INDICATE BLOCK CODED               GRA         4961     A     
 GRA                SA7    A2                                                              GRA         4962     A     
 GRA                PL     X0,WSC2     M.PL = MAX( M.PL , LEN )                            GRA         4963     A     
 GRA                SX6    X1                                                              GRA         4964     A     
 GRA                SA6    A3                                                              GRA         4965     A     
 GRA                                                                                       GRA         4966     A     
 GRA       WSC2     IX6    X4+X5       FWAB = O.PIT + PL                                   GRA         4967     A     
 GRA                IX7    X4+X1       PL = PL + LEN                                       GRA         4968     A     
 GRA                SA7    A4+                                                             GRA         4969     A     
 GRA                CALL   WFB         WFB( FWAB , LEN )  */ WRITE TO *BLK*                GRA         4970     A     
 GRA                MX7    0                                                               GRA         4971     A     
 GRA                EQ     WSC                                                             GRA         4972     A     
 GRA       IRA      TITLE  IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                     GRA         4973     A     
 GRA                QUAL   IRA                                                             GRA         4974     A     
 GRA                                                                                       GRA         4975     A     
 GRA      **        IRA - INSERT REGISTER ASSIGNMENTS IN TO BLOCKS                         GRA         4976     A     
 GRA      *         MODIFY SEQUENCE TO REFLECT REGISTER ASSIGNMENTS MADE IN GRA,           GRA         4977     A     
 GRA      *         CHANGE INCREMENTS ( IA,IS ) TO SHORT INSTRUCTIONS, ETC.                GRA         4978     A     
 GRA      *                                                                                GRA         4979     A     
 GRA      *         ENTRY  (NXS) = N. EXTRA SPACE NEEDED                                   GRA         4980     A     
 GRA      *                RCT, NAA,ACT, TRD, LUL, LCV, LIH SET.                           GRA         4981     A     
 GRA      *                LINK WORD OF INSTRUCTION POINTS TO *RCT* ENTRY.                 GRA         4982     A     
 GRA      *                                                                                GRA         4983     A     
 GRA      *         EXIT   (LBJ) " 0 , IF SEQUENCE CONTAINS A LOOP BACK JUMP               GRA         4984     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3156    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      *                                                                                GRA         4985     A     
 GRA      *         DURING *IRA* THE LINK WORDS HOLD THE R-NUMBERS OF THE                  GRA         4986     A     
 GRA      *         INSTRUCTIONS THAT REFLECT THE VALUES THAT ARE AVAILABLE IN             GRA         4987     A     
 GRA      *         THE DIFFERENT REGISTER CLASS"S.                                        GRA         4988     A     
 GRA                                                                                       GRA         4989     A     
 GRA                DESCRIBE I.,60     RNI(INB,ST,BR,XR)                                   GRA         4990     A     
 GRA       INB      DEFINE 1           =1 IF BR R-NUMBER IS AVAIL                          GRA         4991     A     
 GRA                DEFINE 5                                                               GRA         4992     A     
 GRA       ST       DEFINE 18          ST REG R-NUMBER                                     GRA         4993     A     
 GRA       BR       DEFINE 18          B-REG R-NUMBER                                      GRA         4994     A     
 GRA       XR       DEFINE 18          X-REG R-NUMBER                                      GRA         4995     A     
 GRA                                                                                       GRA         4996     A     
 GRA      *         REGISTER ASSIGNMENTS ( MAIN LOOP ) -                                   GRA         4997     A     
 GRA      *         (X0) = R-NUMBER MASK, (A5) = R1 , (A1,X1) = RCT(J)                     GRA         4998     A     
 GRA      *         (B2) = OC[R1] , B4 = [O.RCT] , B6 = TI , (B7) = [O.TXT]                GRA         4999     A     
 GRA       SB       MICRO  1,,/B5/     O.SEQ + 3                                           GRA         5000     A     
 GRA       IRA      SPACE  2                                                               GRA         5001     A     
 GRA       IRA      ROUTINE                                                                GRA         5002     A     
 GRA                SA1    L.SEQ                                                           GRA         5003     A     
 GRA                SA2    NXS                                                             GRA         5004     A     
 GRA                IX1    X1+X2                                                           GRA         5005     A     
 GRA                ALLOC  TXT,X1      ALLOC( TXT , L.SEQ+NXS )                            GRA         5006     A     
 GRA                SA4    O.SEQ       TI = OLD(L.TXT)                                     GRA         5007     A     
 GRA                SA3    O.RCT                                                           GRA         5008     A     
 GRA                SB7    X2          TB = O.TXT                                          GRA         5009     A     
 GRA                MX7    0                                                               GRA         5010     A     
 GRA                S"SB"  X4+3        SB = O.SEQ + 3                                      GRA         5011     A     
 GRA                SA5    X4          R1 = O.SEQ                                          GRA         5012     A     
 GRA                SA1    X4+4                                                            GRA         5013     A     
 GRA                SB4    X3          (B4) = [O.RCT]                                      GRA         5014     A     
 GRA                BX6    X5                                                              GRA         5015     A     
 GRA                SA6    B7          [TB] = [R1]   */ SET LINE NUM OF SEQ                GRA         5016     A     
 GRA                SA7    RVT         RVT(0) = 0                                          GRA         5017     A     
 GRA                SA7    LBJ         LBJ = 0                                             GRA         5018          I
          -FCC0985
 GRA                SA6    LBN         LBN = [R1]                                          FCC0985       21     A     
 GRA                SA7    "SB"        [SB] = 0                                            GRA         5019     A     
 GRA                UX6    B2,X1                                                           GRA         5020     A     
 GRA                SX7    B2-OC.LAB                                                       GRA         5021     A     
 GRA                SA0    4           LF = 4        */ INIT LAB NOT PRESENT               FCC2051       15     A     
 GRA                NZ     X7,IRA1     IF OC[R1+4] " OC.LAB                                GRA         5022     A     
 GRA                                                                                       GRA         5023     A     
 GRA                SA0    B0          LF = 0        */ INIT LAB PRESENT                   FCC2051       16     A     
 GRA                SA5    A1          R1 = R1 + 4                                         GRA         5024     A     
 GRA                RJ     SRI         SRI(  LAB  [R1],0 )                                 GRA         5025     A     
 GRA                SA1    F.RDT+OC.EOS                                                    GRA         5026     A     
 GRA                BX6    X1          FT[DI] = 0                                          GRA         5027     A     
 GRA                SA6    A6                                                              GRA         5028     A     
 GRA       IRA      SPACE  2,14                                                            GRA         5029     A     
 GRA      *         SCAN *RAT* AND SETUP INITIAL *DEF*"S AND *DAR*"S                       GRA         5030     A     
 GRA      *         CA OF R2 WORD HOLDS THE *CA* IN THE B-REG FOR PLD/PST"S.               GRA         5031     A     
 GRA                                                                                       GRA         5032     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3157    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA       IRA1     SX5    27B         I = 27B       */ REGNO                              GRA         5033     A     
 GRA                SB3    OC.DEF                                                          GRA         5034     A     
 GRA                MX0    IH.CAL                                                          GRA         5035     A     
 GRA                SA1    =XF.RDT+OC.DEF                                                  GRA         5036     A     
 GRA                LX0    IH.CAL+IH.CAP                                                   GRA         5037     A     
 GRA                                                                                       GRA         5038     A     
 GRA       IRA3     SA4    RAT+X5                                                          GRA         5039     A     
 GRA                ZR     X4,IRA5     IF RAT(I) = 0                                       GRA         5040     A     
 GRA                SA3    B4+X4       J = R1[RAT(I)];  CAW = RCT(J)                       GRA         5041     A     
 GRA                SX6    B6                                                              GRA         5042     A     
 GRA                SA6    RVT+X5      RVT(I) = TI   */ R-NUMBER IN REG                    GRA         5043     A     
 GRA                SX2    X5+SO.LOCK                                                      GRA         5044     A     
 GRA                LX2    R1.SOP                                                          GRA         5045     A     
 GRA                BX6    X2+X6                                                           GRA         5046     A     
 GRA                LX4    -RA.R3P                                                         GRA         5047     A     
 GRA                PX6    B3,X6                                                           GRA         5048     A     
 GRA                SA6    B7+B6       TXT(TI) = TYII(OC.DEF,0,FL+I,TI)                    GRA         5049     A     
 GRA                                                                                       GRA         5050     A     
 GRA                SB2    X4+B1       J3 = R3[RAT(I)]                                     GRA         5051     A     
 GRA                SA2    B4+B2                                                           GRA         5052     A     
 GRA                BX7    -X2*X0      CA[R2W] = -CA[RCT(J3+1)]                            GRA         5053     A     
 GRA                SA7    A6+B1       TXT(TI+1) = R2W                                     GRA         5054     A     
 GRA                BX6    X1                                                              GRA         5055          I
          -FCC0603
 GRA                SA6    A7+B1       TXT(TI+2) = RDT(OC.DEF)                             GRA         5056          I
          -FCC0603
 GRA                MX7    0                                                               GRA         5057          I
          -FCC0603
 GRA                SA7    A6+B1       TXT(TI+3) = 0                                       GRA         5058          I
          -FCC0603
 GRA                BX7    X1                                                              FCC0603       81     A     
 GRA                SA7    A7+B1       TXT(TI+2) = RDT(OC.DEF)                             FCC0603       82     A     
 GRA                MX7    0                                                               FCC0603       83     A     
 GRA                SA7    A7+B1       TXT(TI+3) = 0                                       FCC0603       84     A     
 GRA                LX3    59-CA.VCP                                                       GRA         5059     A     
 GRA                SB6    B6+4        TI = TI + 4                                         GRA         5060     A     
 GRA                                                                                       GRA         5061     A     
 GRA                PL     X3,IRA5     IF ^VC[CAW]                                         GRA         5062     A     
 GRA                LX3    CA.VCP-CA.ACP                                                   GRA         5063     A     
 GRA                PL     X3,IRA5     IF ^AC[CAW]   */ NOT A PREFETCH                     GRA         5064     A     
 GRA                                                                                       GRA         5065     A     
 GRA      *         OUTPUT *DAR* TO DEFINE THE R-NUM IN THE A-REG                          GRA         5066     A     
 GRA                                                                                       GRA         5067     A     
 GRA                SX7    B1                                                              FCC0603       85     A     
 GRA                LX7    R1.SOP+SO.LKP                                                   FCC0603       86     A     
 GRA                BX6    X7+X6       SOLK[TXT(TI-4)] = 3  */ INDICATE *A-LOCK*           FCC0603       87     A     
 GRA                SA6    A6                                                              FCC0603       88     A     
 GRA                SX6    B6                                                              GRA         5068     A     
 GRA                SX4    B6-4                                                            GRA         5069     A     
 GRA                TYPEI  DAR,X6,X4   SRI(  DAR  TI,TI-4 )                                GRA         5070     A     
 GRA                                                                                       GRA         5071     A     
 GRA       IRA5     SX5    X5-1        I = I - 1                                           GRA         5072     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3158    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                NZ     X5,IRA3     IF I " 0                                            GRA         5073     A     
 GRA                                                                                       GRA         5074     A     
 GRA                MX0    -R1.RIL+1                                                       GRA         5075     A     
 GRA                LX0    1                                                               GRA         5076     A     
 GRA                SX6    B6+A0       DTL = TI + LF                                       FCC2051       17     A     
 GRA                SA6    DTL                                                             FCC2051       18     A     
 GRA                EQ     IRA10                                                           GRA         5077     A     
 GRA       EOQ      SPACE  3,20                                                            GRA         5078     A     
 GRA                PROCESS EOQ                                                            GRA         5079     A     
 GRA                SA1    LBJ                                                             GRA         5080          I
          -FCC0985
 GRA                SA2    EPSI                                                            GRA         5081          I
          -FCC0985
 GRA                SA3    NPS                                                             GRA         5082          I
          -FCC0985
 GRA                ZR     X1,EOQ5     IF LBJ = 0    */ NO LOOP BACK JUMP                  GRA         5083          I
          -FCC0985
 GRA                ZR     X2,EOQ5     IF EPSI = 0   */ NO EPILOGUE POST STORES            GRA         5084          I
          -FCC0985
 GRA                ZR     X3,EOQ5     IF NPS = 0    */ NO POST STORES                     GRA         5085          I
          -FCC0985
 GRA                                                                                       FCC0513       10          I
          -FCC0985
 GRA      *         OUTPUT EPILOGUE POST STORES FOR VARIABLES LIVE ON EXIT                 FCC0513       11          I
          -FCC0985
 GRA      *         FROM THE LATCHING NODE.                                                FCC0513       12          I
          -FCC0985
 GRA                                                                                       GRA         5086          I
          -FCC0985
 GRA                SA1    O.RXI                                                           GRA         5087          I
          -FCC0985
 GRA                SA4    O.UDT                                                           GRA         5088          I
          -FCC0985
 GRA                SA0    X3          I = NPS                                             GRA         5089          I
          -FCC0985
 GRA                SB3    X4+B1       (B3) = [O.UDT] + 1                                  GRA         5090          I
          -FCC0985
 GRA                IX6    X1+X2                                                           GRA         5091          I
          -FCC0985
 GRA                SB5    X6          RB = O.RXI + EPSI  */ LIVE ENTRY BIT VECTOR         GRA         5092          I
          -FCC0985
 GRA                SA3    NPS                                                             FCC0985       22     A     
 GRA                SA2    EPSI                                                            FCC0985       23     A     
 GRA                ZR     X3,EOQ5     IF NPS = 0                                          FCC0985       24     A     
 GRA                ZR     X2,EOQ5     IF EPSI = 0                                         FCC0985       25     A     
 GRA                SA1    A5-4        R1 = R1 - 4                                         FCC0985       26          I
          -FCC2051
 GRA                SB3    OC.JPX                                                          FCC0985       27          I
          -FCC2051
 GRA                UX6    B2,X1                                                           FCC0985       28          I
          -FCC2051
 GRA                NE     B2,B3,EOQ5  IF OC[R1] " OC.JPX  */ LAST NOT A *JPX*             FCC0985       29          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3159    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
          -FCC2051
 GRA                                                                                       FCC0985       30     A     
 GRA      *         SEARCH *RXI* FOR THIS *BN* AND SEE IF AN *EPS* NODE                    FCC0985       31     A     
 GRA                                                                                       FCC0985       32     A     
 GRA                SA5    BVL                                                             FCC0985       33     A     
 GRA                SA4    O.UDT                                                           FCC0985       34     A     
 GRA                SB2    X5+2        V = BVL + 2   */ RXI INCREMENT                      FCC0985       35     A     
 GRA                SA1    O.RXI                                                           FCC0985       36     A     
 GRA                SB3    X4+B1       (B3) = UDT + 1                                      FCC0985       37     A     
 GRA                SA0    X3          I = NPS                                             FCC0985       38     A     
 GRA                SA5    X1+B1       TI = RXI + 1                                        FCC0985       39     A     
 GRA                MX1    -E.PREDL                                                        FCC0985       40     A     
 GRA                SA2    LBN         BN = IH[LBN]  */ LAST BOS/EOS                       FCC0985       41     A     
 GRA                                                                                       FCC0985       42     A     
 GRA       EOQ1A    LX5    -E.PREDP                                                        FCC0985       43     A     
 GRA                BX6    X2-X5                                                           FCC0985       44     A     
 GRA                LX5    59-E.SCRP+E.PREDP                                               FCC0985       45     A     
 GRA                BX7    -X1*X6                                                          FCC0985       46     A     
 GRA                ZR     X7,EOQ1B    IF PRED[RI] = BN                                    FCC0985       47          I
          -FCC1107
 GRA                SA5    A5+B2       RI = RI + V                                         FCC0985       48          I
          -FCC1107
 GRA                NZ     X7,EOQ1B    IF PRED[RI] " BN                                    FCC1107        5     A     
 GRA                PL     X5,EOQ1B    IF ^SCR[RI]                                         FCC1107        6     A     
 GRA                LX5    E.SCRP-E.JPP                                                    FCC1107        7     A     
 GRA                PL     X5,EOQ1C    IF ^JP[RI]    */ A FALL THROUGH EDGE                FCC1107        8     A     
 GRA                                                                                       FCC1107        9     A     
 GRA       EOQ1B    SA5    A5+B2       RI = RI + V                                         FCC1107       10     A     
 GRA                NZ     X5,EOQ1A    IF [RI] " 0   */ NOT END OF TABLE                   FCC0985       49     A     
 GRA                EQ     EOQ5                                                            FCC0985       50     A     
 GRA                                                                                       FCC0985       51     A     
 GRA       EOQ1B    PL     X5,EOQ5     IF ^SCR[RI]                                         FCC0985       52          I
          -FCC1107
 GRA                LX5    E.SCRP-E.JPP                                                    FCC0985       53          I
          -FCC1107
 GRA                MI     X5,EOQ5     IF JP[RI]     */ ^ A FALL THROUGH EDGE              FCC0985       54          I
          -FCC1107
 GRA                SB5    A5+1        RB = RI + 1   */ LIVE ENTRY BIT VECTOR              FCC0985       55          I
          -FCC1107
 GRA       EOQ1C    SB5    A5+1        RB = RI + 1   */ LIVE ENTRY BIT VECTOR              FCC1107       11     A     
 GRA                                                                                       FCC0985       56     A     
 GRA      *         OUTPUT EPILOGUE POST STORES FOR VARIABLES LIVE ON EXIT                 FCC0985       57     A     
 GRA      *         FROM THIS BLOCK.                                                       FCC0985       58     A     
 GRA                                                                                       GRA         5093     A     
 GRA       EOQ1     SA1    PST-1+A0    J = CO[PST(I)]                                      GRA         5094     A     
 GRA                SA2    B4+X1       CAW = RCT(J);  K = UDI[RCT(J)]                      GRA         5095     A     
 GRA                LX1    -18         REGN = REG[PST(I)]                                  GRA         5096     A     
 GRA                SA3    B3+X2       U2 = UDT(K+1)                                       GRA         5097     A     
 GRA                SA4    B5+X3       LEW = [RB+WI[U2]]                                   GRA         5098     A     
 GRA                UX7    B2,X3       BIT = BITN[U2]                                      GRA         5099          I
          -FCC0513
 GRA                SB2    B2-59                                                           GRA         5100          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3160    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
          -FCC0513
 GRA                LX7    -B2,X4                                                          GRA         5101          I
          -FCC0513
 GRA                PL     X7,EOQ4     IF SHIFT(59-BIT,LEW) > 0  */ DEAD ON ENTRY          GRA         5102          I
          -FCC0513
 GRA                                                                                       GRA         5103          I
          -FCC0513
 GRA      *         OUTPUT *ST* TO UPDATE VALUE IN MEMORY                                  GRA         5104          I
          -FCC0513
 GRA                SX6    B1                                                              FCC0513       13     A     
 GRA                UX3    B2,X3       B = BITN[U2]                                        FCC0513       14     A     
 GRA                LX6    B2,X6                                                           FCC0513       15     A     
 GRA                BX7    X6*X4                                                           FCC0513       16     A     
 GRA                ZR     X7,EOQ4     IF ^B[LEW]    */ DEAD ON ENTRY                      FCC0513       17     A     
 GRA                                                                                       FCC0513       18     A     
 GRA      *         SET BIT IN *LUV*, OUTPUT *ST* TO UPDATE VALUE IN MEMORY.               FCC0513       19     A     
 GRA                                                                                       FCC0513       20     A     
 GRA                SA4    LUV                                                             FCC0513       21     A     
 GRA                SB2    X3                                                              FCC0513       22     A     
 GRA                SA4    X4+B2                                                           FCC0513       23     A     
 GRA                BX6    X6+X4       B[LUV(WI[U2])] = 1  */ SET BIT IN *LUV*             FCC0513       24     A     
 GRA                SA6    A4                                                              FCC0513       25     A     
 GRA                                                                                       GRA         5105     A     
 GRA                SA4    RVT+X1      RN = RVT(REGN)                                      GRA         5106     A     
 GRA                SX7    X1-26B                                                          GRA         5107     A     
 GRA                PL     X7,EOQ3     IF REGN \ 26B */ RESULT IN A *ST-REG*               GRA         5108     A     
 GRA                                                                                       GRA         5109     A     
 GRA                SX7    X1-20B                                                          GRA         5110     A     
 GRA                SB2    OC.XMT      OC = OC.XMT                                         GRA         5111     A     
 GRA                PL     X7,EOQ2     IF REGN \ 20B */ IN A X-REG                         GRA         5112     A     
 GRA                SB2    OC.SA       OC = OC.SA                                          GRA         5113     A     
 GRA       EOQ2     MX7    0                                                               GRA         5114     A     
 GRA                TYPEI  B2,B6,X4    SRI(  XMT/SA  TI,RN )                               GRA         5115     A     
 GRA                SX4    B6-4        RN = TI - 4                                         GRA         5116     A     
 GRA                                                                                       GRA         5117     A     
 GRA       EOQ3     SA2    A2+B1                                                           GRA         5118     A     
 GRA                SB2    OC.ST                                                           GRA         5119     A     
 GRA                MX1    -IH.CAIHL                                                       GRA         5120     A     
 GRA                SX6    X4          R1W = TYII(OC,0,0,RN)                               GRA         5121     A     
 GRA                BX7    -X1*X2      R2W = IHW(0,0,CAIH[RCT(J+1)])                       GRA         5122     A     
 GRA                RJ     SRI         SRI(  ST  RN,CAIH )                                 GRA         5123     A     
 GRA                                                                                       GRA         5124     A     
 GRA       EOQ4     SB2    A0-B1                                                           GRA         5125     A     
 GRA                SA0    A0-B1       I = I - 1                                           GRA         5126     A     
 GRA                GT     B2,EOQ1     IF I > 0                                            GRA         5127     A     
 GRA                                                                                       GRA         5128     A     
 GRA       EOQ5     SB2    OC.EOQ                                                          GRA         5129     A     
 GRA                MX6    0                                                               GRA         5130     A     
 GRA                SX7    B0                                                              GRA         5131     A     
 GRA                CALL   SRI         SRI(  EOQ  0,0 )                                    GRA         5132     A     
 GRA                SX6    B6+                                                             GRA         5133     A     
 GRA                SA6    L.TXT       L.TXT = TI                                          GRA         5134     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3161    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                EQ     IRA                                                             GRA         5135     A     
 GRA       TYI      SPACE  3,14                                                            GRA         5136          I
          -FCC0513
 GRA       TYI      EJECT                                                                  FCC0513       26     A     
 GRA                PROCESS (UP,NR,RNZ)                                                    GRA         5137     A     
 GRA                ZR     X7,TYI      IF RJ[R1] = 0                                       GRA         5138     A     
 GRA                SX2    B6+4        LJW = TI + 4  */ FAKE A B-OPERAND                   GRA         5139     A     
 GRA                                                                                       GRA         5140     A     
 GRA      *         TYPE I INSTRUCTION, 2 X OPERANDS AND ARBITRARY X-RESULT                GRA         5141     A     
 GRA                                                                                       GRA         5142     A     
 GRA       TYI      SX2    X2          J = SETX(LJW)  */ X-REG OP                          GRA         5143     A     
 GRA                SX5    B6                                                              GRA         5144     A     
 GRA                LX2    R1.RJP                                                          GRA         5145     A     
 GRA                SX3    X3          K = SETX(LKW)                                       GRA         5146     A     
 GRA                BX2    X2+X5                                                           GRA         5147     A     
 GRA                SX6    B6                                                              GRA         5148     A     
 GRA                LX5    I.STP                                                           GRA         5149     A     
 GRA                BX6    X5+X6                                                           GRA         5150     A     
 GRA                SA6    A5+3        [R1+3] = RNI(0,TI,0,TI)                             GRA         5151     A     
 GRA                LX3    R1.RKP                                                          GRA         5152     A     
 GRA                BX5    X2+X3                                                           GRA         5153     A     
 GRA                                                                                       GRA         5154     A     
 GRA       TYIA     MX7    0           R2W = 0                                             GRA         5155     A     
 GRA                SA4    F.RDT+B2    D = RDT(OC[R1])                                     GRA         5156     A     
 GRA                PX6    B2,X5       R1W = TYI(OC[R1],J,K,TI)                            GRA         5157     A     
 GRA                                                                                       GRA         5158     A     
 GRA      *         TRANSFER INSTRUCTION TO *TXT*,  (X4,X6,X7) = D,R1W,R2W                 GRA         5159     A     
 GRA                                                                                       GRA         5160     A     
 GRA       TYIT     SA6    B7+B6       TXT(TI) = R1W                                       GRA         5161     A     
 GRA                SA7    A6+B1       TXT(TI+1) = R2W                                     GRA         5162     A     
 GRA                BX6    X4                                                              GRA         5163     A     
 GRA                SA6    A7+B1       TXT(TI+2) = D                                       GRA         5164     A     
 GRA                MX7    0                                                               GRA         5165     A     
 GRA                SA7    A6+B1       TXT(TI+3) = 0                                       GRA         5166     A     
 GRA                SB6    B6+4        TI = TI + 4                                         GRA         5167     A     
 GRA                                                                                       GRA         5168     A     
 GRA      *         ADVANCE TO NEXT INSTRUCTION, JUMP TO OPCODE PROCESSOR                  GRA         5169     A     
 GRA                                                                                       GRA         5170     A     
 GRA                PROCESS (BOS,NOP)                                                      GRA         5171     A     
 GRA       IRA10    SA5    A5+4        R1 = R1 + 4                                         GRA         5172     A     
 GRA                SA4    A5+2        DI = R1 + 2                                         GRA         5173     A     
 GRA                MX7    D.TYL                                                           GRA         5174     A     
 GRA                SA1    A4+B1       LI = DI + 1                                         GRA         5175     A     
 GRA                LX4    58-D.TYP                                                        GRA         5176     A     
 GRA                BX3    X7*X4                                                           GRA         5177     A     
 GRA                UX6    B2,X5                                                           GRA         5178     A     
 GRA                NZ     X3,IRA11    IF TYPE[DI] " I                                     GRA         5179     A     
 GRA                                                                                       GRA         5180     A     
 GRA                LX6    -R1.RJP                                                         GRA         5181     A     
 GRA                BX7    "RN"X6                                                          GRA         5182     A     
 GRA                LX6    R1.RJP-R1.RKP                                                   GRA         5183     A     
 GRA                SA2    "SB"+X7     LJW = [SB+RJ[R1]]                                   GRA         5184     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3162    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                BX6    "RN"X6                                                          GRA         5185     A     
 GRA                SA3    "SB"+X6     LKW = [SB+RK[R1]]                                   GRA         5186     A     
 GRA                                                                                       GRA         5187     A     
 GRA       IRA11    SA1    B4+X1       J = CO[LI];  CAW = RCT(J)                           GRA         5188     A     
 GRA                LX4    2+D.TYP                                                         GRA         5189     A     
 GRA                JP     IRA.JT+B2   JUMP( IRA.JT( OC[R1] ) )                            GRA         5190     A     
 GRA       TYIV     SPACE  3,14                                                            GRA         5191     A     
 GRA      *         TYPE IV INSTRUCTIONS                                                   GRA         5192     A     
 GRA                                                                                       GRA         5193     A     
 GRA                PROCESS EOS                                                            GRA         5194     A     
 GRA                SX3    X5                                                              GRA         5195          I
          -FCC0985
 GRA                NZ     X3,IRA10    IF IH[R1] " 0  */ BASIC BLOCK MARKER                GRA         5196          I
          -FCC0985
 GRA                SX6    X5                                                              FCC0985       59     A     
 GRA                ZR     X6,.LAB     IF IH[R1] = 0 */ ^ OPT=2 *EOS*                      FCC0985       60     A     
 GRA                                                                                       FCC0985       61     A     
 GRA                SA6    LBN         LBN = IH[R1]  */ SAVE FOR *EOQ*                     FCC0985       62     A     
 GRA                EQ     IRA10                                                           FCC0985       63     A     
 GRA                                                                                       GRA         5197     A     
 GRA                PROCESS (LAB,ENT,UJP,RJ3,RJ6)                                          GRA         5198     A     
 GRA                SA3    A5+B1                                                           GRA         5199     A     
 GRA                LX6    X5                                                              GRA         5200     A     
 GRA                BX7    X3          R2W = [R1+1]                                        GRA         5201     A     
 GRA                EQ     TYIT                                                            GRA         5202     A     
 GRA       TYIM     SPACE  3,14                                                            GRA         5203     A     
 GRA      *         MISCELLANEOUS TYPE I INSTRUCTIONS                                      GRA         5204     A     
 GRA                                                                                       GRA         5205     A     
 GRA                PROCESS (ILS,IRS,PK)                                                   GRA         5206     A     
 GRA                LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                             GRA         5207     A     
 GRA                EQ     TYI                                                             GRA         5208     A     
 GRA       DRL      SPACE  2,14                                                            GRA         5209     A     
 GRA                PROCESS DRL                                                            GRA         5210     A     
 GRA                SX7    B6                                                              GRA         5211     A     
 GRA                SX6    B6          R = TI                                              GRA         5212     A     
 GRA                LX7    I.STP                                                           GRA         5213     A     
 GRA                BX7    X6+X7                                                           GRA         5214     A     
 GRA                SA7    A4+B1       [DI+1] = RNI(0,TI,0,TI)                             GRA         5215     A     
 GRA                EQ     DWL1                                                            GRA         5216     A     
 GRA                                                                                       GRA         5217     A     
 GRA                PROCESS DWL                                                            GRA         5218     A     
 GRA                BX7    "RN"X5                                                          GRA         5219     A     
 GRA                SA3    "SB"+X7                                                         GRA         5220     A     
 GRA                SX6    X3+         R = XR[SB+RI[R1]]                                   GRA         5221     A     
 GRA                                                                                       GRA         5222     A     
 GRA       DWL1     SX2    X2          J = XR[LJW]                                         GRA         5223     A     
 GRA                SA1    A5+B1       R2 = R1 + 1                                         GRA         5224     A     
 GRA                LX2    R1.RJP                                                          GRA         5225     A     
 GRA                BX6    X2+X6                                                           GRA         5226     A     
 GRA                LX1    -IH.RFP                                                         GRA         5227     A     
 GRA                PX6    B2,X6                                                           GRA         5228     A     
 GRA                SA2    "SB"+X1     LF = [SB+RF[R2]]                                    GRA         5229          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3163    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
          -FCC0645
 GRA                BX1    X0*X1                                                           GRA         5230          I
          -FCC0645
 GRA                PL     X2,DWL2     IF ^INB[LF]                                         GRA         5231          I
          -FCC0645
 GRA                LX2    -I.BRP      LK = SHIFT(LF,-I.BRP)                               GRA         5232          I
          -FCC0645
 GRA       DWL2     SX2    X2                                                              GRA         5233          I
          -FCC0645
 GRA                BX7    X2+X1       RF[R2] = SETX(LF)                                   GRA         5234          I
          -FCC0645
 GRA                BX3    "RN"X1      LF = RF[R2]                                         FCC0645       22     A     
 GRA                BX1    X0*X1                                                           FCC0645       23     A     
 GRA                ZR     X3,DWL2     IF LF = 0     */ NO RF                              FCC0645       24     A     
 GRA                SA3    "SB"+X3     LF = [SB+R]                                         FCC0645       25     A     
 GRA                NZ     X3,DWL2     IF LF " 0     */ RF MATERIALIZED                    FCC0645       26     A     
 GRA                LX2    -R1.RJP                                                         FCC0645       27     A     
 GRA                SX3    X2          LF = J        */ USE RJ AS RF                       FCC0645       28     A     
 GRA       DWL2     PL     X3,DWL3     IF ^INB[LF]                                         FCC0645       29     A     
 GRA                LX3    -I.BRP      LF = SHIFT(LF,-I.BRP)                               FCC0645       30     A     
 GRA       DWL3     SX3    X3                                                              FCC0645       31     A     
 GRA                BX7    X3+X1       RF[R2] = SETX(LF)                                   FCC0645       32     A     
 GRA                SA4    F.RDT+B2    D = RDT(OC[R1])                                     GRA         5235     A     
 GRA                LX7    IH.RFP                                                          GRA         5236     A     
 GRA                EQ     TYIT                                                            GRA         5237     A     
 GRA       SS       SPACE  2,6                                                             GRA         5238     A     
 GRA                PROCESS SS                                                             GRA         5239     A     
 GRA                LX2    -I.BRP                                                          GRA         5240     A     
 GRA                LX3    -I.BRP                                                          GRA         5241     A     
 GRA                EQ     TYI                                                             GRA         5242     A     
 GRA       SA       SPACE  2,14                                                            GRA         5243     A     
 GRA                PROCESS SA                                                             GRA         5244     A     
 GRA                LX1    59-CA.RAP                                                       GRA         5245     A     
 GRA                MI     X1,PVC      IF RA[CAW]                                          GRA         5246     A     
 GRA                PL     X2,SA1      IF ^INB[LJW]                                        GRA         5247     A     
 GRA                LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                             GRA         5248     A     
 GRA                NZ     X3,SA1      IF LKW " 0                                          GRA         5249     A     
 GRA                                                                                       GRA         5250     A     
 GRA                LX4    59-D.PRSP                                                       GRA         5251     A     
 GRA                MX7    -SO.REGL                                                        GRA         5252     A     
 GRA                PL     X4,SA1      IF ^PRS[DI]                                         GRA         5253          I
          -FCC0414
 GRA                PL     X4,SA2      IF ^PRS[DI]                                         FCC0414       10     A     
 GRA                SA1    A5+4        R1RS = R1 + 4                                       GRA         5254     A     
 GRA                LX1    -R1.SOP                                                         GRA         5255     A     
 GRA                BX6    -X7*X1      REGNO = SOREG[R1RS]                                 GRA         5256     A     
 GRA                LX1    59-SO.LKP                                                       GRA         5257     A     
 GRA                SX7    X6-8                                                            GRA         5258     A     
 GRA                PL     X7,SA1      IF REGNO > 7                                        GRA         5259     A     
 GRA                PL     X1,SA1      IF SOLK[R1RS] " 1  */ NOT TEMP LOCK                 GRA         5260     A     
 GRA                                                                                       GRA         5261     A     
 GRA                SA5    A1          R = R1RS      */ OMIT *RS*                          GRA         5262     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3164    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                LX2    I.BRP                                                           GRA         5263     A     
 GRA                BX7    X2                                                              GRA         5264     A     
 GRA                SA7    A1-B1       [R1+3] = LJW                                        GRA         5265     A     
 GRA                EQ     IRA10                                                           GRA         5266     A     
 GRA                                                                                       GRA         5267     A     
 GRA       SA1      PL     X3,TYI      IF ^INB[LKW]                                        GRA         5268     A     
 GRA                LX3    -I.BRP      LKW = SHIFT(LKW,-I.BRP)                             GRA         5269     A     
 GRA                EQ     TYI                                                             GRA         5270     A     
 GRA                                                                                       FCC0414       11     A     
 GRA      *         SA  RI,RJ ,AND OPERAND IN A B-REG                                      FCC0414       12     A     
 GRA                                                                                       FCC0414       13     A     
 GRA       SA2      SX6    B6                                                              FCC0414       14     A     
 GRA                SX2    X2                                                              FCC0414       15     A     
 GRA                MX7    1                                                               FCC0414       16     A     
 GRA                LX2    I.BRP                                                           FCC0414       17     A     
 GRA                BX7    X7+X6                                                           FCC0414       18     A     
 GRA                LX6    I.STP                                                           FCC0414       19     A     
 GRA                BX6    X2+X6                                                           FCC0414       20     A     
 GRA                BX7    X7+X6                                                           FCC0414       21     A     
 GRA                SA7    A4+B1       [DI+1] = RNI(1,TI,SETX(LJW),TI)                     FCC0414       22     A     
 GRA                SX5    B6                                                              FCC0414       23     A     
 GRA                LX2    R1.RJP-I.BRP                                                    FCC0414       24     A     
 GRA                BX5    X2+X5                                                           FCC0414       25     A     
 GRA                EQ     TYIA                                                            FCC0414       26     A     
 GRA       IA       SPACE  2,14                                                            GRA         5271     A     
 GRA                PROCESS IA                                                             GRA         5272     A     
 GRA                BX6    X2+X3                                                           GRA         5273     A     
 GRA                PL     X6,TYI      IF ^( INB[LJW] ! INB[LKW] )                         GRA         5274     A     
 GRA                LX1    59-CA.RFP                                                       GRA         5275     A     
 GRA                PL     X1,TYI      IF ^RF[CI]    */ ^ *INC* AND SHORT USE              GRA         5276     A     
 GRA                                                                                       GRA         5277     A     
 GRA                SB2    OC.SA       OC = OC.SA                                          GRA         5278     A     
 GRA                BX6    X2*X3                                                           GRA         5279     A     
 GRA                MI     X6,IS1      IF INB[LJW] & INB[LKW]                              GRA         5280     A     
 GRA                BX6    X2                                                              GRA         5281     A     
 GRA                PL     X2,IA1      IF ^INB[LJW]  */ X+B IS OK                          GRA         5282     A     
 GRA                BX2    X3                                                              GRA         5283     A     
 GRA                LX3    X6          SWAP( LJW , LKW )                                   GRA         5284     A     
 GRA       IA1      LX3    -I.BRP      LKW = SHIFT(LKW,-I.BRP)                             GRA         5285     A     
 GRA                EQ     TYI                                                             GRA         5286     A     
 GRA       IS       SPACE  2,8                                                             GRA         5287     A     
 GRA                PROCESS IS                                                             GRA         5288     A     
 GRA                BX6    X2*X3                                                           GRA         5289     A     
 GRA                PL     X6,TYI      IF ^( INB[LJW] & INB[LKW] )                         GRA         5290     A     
 GRA                LX1    59-CA.RFP                                                       GRA         5291     A     
 GRA                PL     X1,TYI      IF ^RF[CI]    */ ^ *INC* AND SHORT USE              GRA         5292     A     
 GRA                                                                                       GRA         5293     A     
 GRA                SB2    OC.SS       OC = OC.SS                                          GRA         5294     A     
 GRA       IS1      LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                             GRA         5295     A     
 GRA                LX3    -I.BRP      LKW = SHIFT(LKW,-I.BRP)                             GRA         5296     A     
 GRA                EQ     TYI                                                             GRA         5297     A     
 GRA       SXT      SPACE  2,14                                                            GRA         5298     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3165    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                PROCESS SXT                                                            GRA         5299     A     
 GRA                LX1    59-CA.RAP                                                       GRA         5300     A     
 GRA                PL     X1,TYI      IF ^RA[CAW]                                         GRA         5301     A     
 GRA                                                                                       GRA         5302     A     
 GRA                SA1    A1+2        CCW = RCT(J+2)                                      GRA         5303     A     
 GRA                SA5    A5+4        R1 = R1 + 4                                         GRA         5304     A     
 GRA                MX7    -CC.REG1L                                                       GRA         5305     A     
 GRA                SX3    X2          LKW = XR[LJW]                                       GRA         5306     A     
 GRA                LX1    -CC.REG1P                                                       GRA         5307     A     
 GRA                BX7    -X7*X1                                                          GRA         5308     A     
 GRA                SA2    RVT+X7      LJW = RVT(REG1[CCW])                                GRA         5309     A     
 GRA                UX6    B2,X5                                                           GRA         5310     A     
 GRA                SB2    B2-OC.KLS+OC.ILS  OC = OC[R1]-OC.KLS+OC.ILS                     GRA         5311     A     
 GRA                EQ     TYI                                                             GRA         5312     A     
 GRA       XMTC     SPACE  2                                                               FCC0513       27     A     
 GRA                PROCESS XMTC                                                           FCC0513       28     A     
 GRA                PL     X2,TYI      IF ^INB[LJW]                                        FCC0513       29     A     
 GRA                SB2    OC.SS       OC = OC.SS                                          FCC0513       30     A     
 GRA                LX2    -I.BRP                                                          FCC0513       31     A     
 GRA                SX3    X2          LKW = BR[LJW]                                       FCC0513       32     A     
 GRA                SX2    0           LJW = 0                                             FCC0513       33     A     
 GRA                EQ     TYI                                                             FCC0513       34     A     
 GRA       XMT      SPACE  3,14                                                            GRA         5313     A     
 GRA                PROCESS XMT                                                            GRA         5314     A     
 GRA                LX1    59-CA.RAP                                                       GRA         5315     A     
 GRA                MI     X1,PVC      IF RA[CAW]                                          GRA         5316     A     
 GRA                LX4    59-D.PSP                                                        GRA         5317     A     
 GRA                BX7    X2                                                              GRA         5318     A     
 GRA                PL     X4,XMT1     IF ^PS[DI]                                          GRA         5319     A     
 GRA                LX7    -I.STP                                                          GRA         5320     A     
 GRA                SX6    X7                                                              GRA         5321     A     
 GRA                ZR     X6,XMT1     IF ST[LJW] = 0  */ OPERAND NOT IN *ST* REG          GRA         5322     A     
 GRA                                                                                       GRA         5323     A     
 GRA      *         OPERAND FREE TO GO TO A *ST* REG, SKIP THE *XMT*                       GRA         5324     A     
 GRA                                                                                       GRA         5325     A     
 GRA                LX7    I.STP                                                           GRA         5326     A     
 GRA                SA7    A4+B1       [DI+1] = LJW                                        GRA         5327     A     
 GRA                EQ     IRA10                                                           GRA         5328     A     
 GRA                                                                                       GRA         5329     A     
 GRA       XMT1     SX3    B6                                                              GRA         5330     A     
 GRA                SX2    X2          J = XR[LJW]                                         GRA         5331          I
          -FCC1740X 
 GRA                LX3    I.STP                                                           GRA         5332          I
          -FCC1740X 
 GRA                SX6    B6                                                              GRA         5333          I
          -FCC1740X 
 GRA                BX7    X3+X2                                                           GRA         5334          I
          -FCC1740X 
 GRA                LX2    R1.RJP                                                          GRA         5335          I
          -FCC1740X 
 GRA                SA7    A4+B1       [DI+1] = RNI(0,TI,0,J)                              GRA         5336          I
          -FCC1740X 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3166    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                BX5    X2+X6       R1W = TYI(OC.XMT,J,0,TI)                            GRA         5337          I
          -FCC1740X 
 GRA                SX6    X2          J = XR[LJW]                                         FCC1740X       5     A     
 GRA                LX3    I.STP                                                           FCC1740X       6     A     
 GRA                SX5    B6                                                              FCC1740X       7     A     
 GRA                BX7    X3+X6       LW = RNI(0,TI,0,J)                                  FCC1740X       8     A     
 GRA                NZ     X6,XMT2     IF J " 0                                            FCC1740X       9     A     
 GRA                LX2    -I.BRP                                                          FCC1740X      10     A     
 GRA                SX6    X2          J = BR[LJW]                                         FCC1740X      11     A     
 GRA                SB2    OC.SA                                                           FCC1740X      12     A     
 GRA                BX7    X3+X5       LW = RNI(0,TI,0,TI)                                 FCC1740X      13     A     
 GRA       XMT2     LX6    R1.RJP                                                          FCC1740X      14     A     
 GRA                SA7    A4+1        [DI+1] = LW                                         FCC1740X      15     A     
 GRA                BX5    X6+X5       R1W = TYI(0,J,0,TI)                                 FCC1740X      16     A     
 GRA                EQ     TYIA                                                            GRA         5338     A     
 GRA       PST      SPACE  2,8                                                             GRA         5339     A     
 GRA                PROCESS (PST,SST,SDS)                                                  GRA         5340     A     
 GRA                BX7    "RN"X5                                                          GRA         5341     A     
 GRA                SA1    "SB"+X7                                                         GRA         5342     A     
 GRA                LX1    -I.STP                                                          GRA         5343     A     
 GRA                SX6    X1          R = ST[SB+RI[R1]]                                   GRA         5344     A     
 GRA                EQ     PLD1                                                            GRA         5345     A     
 GRA       PLD      SPACE  2,14                                                            GRA         5346     A     
 GRA                PROCESS (PLD,SLD,SDL)                                                  GRA         5347     A     
 GRA                SX6    B6+         R = TI                                              GRA         5348     A     
 GRA                SA6    A5+3        [R1+3] = RNI(0,0,0,TI)                              GRA         5349     A     
 GRA                                                                                       GRA         5350     A     
 GRA       PLD1     PL     X2,PLD2     IF ^INB[LJW]                                        GRA         5351     A     
 GRA                LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                             GRA         5352     A     
 GRA       PLD2     PL     X3,PLD3     IF ^INB[LKW]                                        GRA         5353     A     
 GRA                LX3    -I.BRP      LKW = SHIFT(LKW,-I.BRP)                             GRA         5354     A     
 GRA                                                                                       GRA         5355     A     
 GRA       PLD3     SX2    X2                                                              GRA         5356     A     
 GRA                PX6    B2,X6                                                           GRA         5357     A     
 GRA                LX2    R1.RJP                                                          GRA         5358     A     
 GRA                SX3    X3                                                              GRA         5359     A     
 GRA                BX6    X2+X6                                                           GRA         5360     A     
 GRA                SA2    A5+B1       R2 = R1 + 1                                         GRA         5361     A     
 GRA                LX3    R1.RKP                                                          GRA         5362     A     
 GRA                BX6    X3+X6       R1W = TYI(OC[R1],SETX(LJW),SETX(LKW),R)             GRA         5363     A     
 GRA                SA1    DMASK                                                           GRA         5364     A     
 GRA                LX2    -IH.RFP                                                         GRA         5365     A     
 GRA                BX5    "RN"X2                                                          GRA         5366     A     
 GRA                SA3    "SB"+X5     LFW = [SB+RF[R2]]                                   GRA         5367     A     
 GRA                PL     X3,PLD4     IF ^INB[LFW]                                        GRA         5368     A     
 GRA                LX3    -I.BRP                                                          GRA         5369     A     
 GRA       PLD4     BX2    X0*X2                                                           GRA         5370     A     
 GRA                SX3    X3          RF[R2W] = SETX(LFW)                                 GRA         5371     A     
 GRA                BX7    X2+X3                                                           GRA         5372     A     
 GRA                BX4    -X1*X4      D = [DI] & ^DMASK                                   GRA         5373     A     
 GRA                LX7    IH.RFP                                                          GRA         5374     A     
 GRA                EQ     TYIT                                                            GRA         5375     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3167    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA       RS       SPACE  2,14                                                            GRA         5376     A     
 GRA                PROCESS RS                                                             GRA         5377     A     
 GRA                MX7    -SO.REGL                                                        GRA         5378     A     
 GRA                LX6    -R1.SOP                                                         GRA         5379     A     
 GRA                BX2    -X7*X6      REGNO = SOREG[R1]                                   GRA         5380     A     
 GRA                LX6    R1.SOP+59-R1.INP                                                GRA         5381     A     
 GRA                PL     X6,RS1      IF IN[R1] " 0 */ ^ RJ RS                            GRA         5382          I
          -FCC0414
 GRA                PL     X6,RS1      IF IN[R1] = 0 */ ^ A RJRS                           FCC0414       27     A     
 GRA                SX6    B6          R = TI                                              GRA         5383     A     
 GRA                EQ     RS2                                                             GRA         5384     A     
 GRA                                                                                       GRA         5385     A     
 GRA       RS1      LX1    59-CA.RAP                                                       GRA         5386          I
          -FCC0811
 GRA                MI     X1,IRA10    IF RA[CAW]    */ PRED ASSIGNED TO A REG             GRA         5387          I
          -FCC0811
 GRA       RS1      LX1    59-CA.IRAP                                                      FCC0811       44     A     
 GRA                MI     X1,IRA10    IF IRA[CAW]   */ PRED AND RS TO BE MOVED            FCC0811       45     A     
 GRA                SX6    B6-4        R = TI - 4                                          GRA         5388     A     
 GRA                SX3    X2-8                                                            GRA         5389     A     
 GRA                PL     X3,RS3      IF REGNO > 7                                        GRA         5390          I
          -FCC0764
 GRA                MI     X3,RS2      IF REGNO < 8  */ IN A B-REGISTER                    FCC0764        5     A     
 GRA                SX3    X2-26B                                                          FCC0764        6     A     
 GRA                PL     X3,RS3      IF REGNO \ 26B  */ IN A ST-REGISTER                 FCC0764        7     A     
 GRA                                                                                       FCC0764        8     A     
 GRA                SA2    A5-B1       LIP = R1 - 1  */ LINK WORD OF RS PRED               FCC0764        9     A     
 GRA                SX7    X2                                                              FCC0764       10     A     
 GRA                LX2    -I.STP                                                          FCC0764       11     A     
 GRA                SX3    X2                                                              FCC0764       12     A     
 GRA                BX7    X7-X3                                                           FCC0764       13     A     
 GRA                NZ     X7,RS3      IF ST[LIP] " XR[LIP]                                FCC0764       14     A     
 GRA                BX7    X0*X2                                                           FCC0764       15     A     
 GRA                LX7    I.STP       ST[LIP] = 0                                         FCC0764       16     A     
 GRA                SA7    A2                                                              FCC0764       17     A     
 GRA                EQ     RS3                                                             FCC0764       18     A     
 GRA                                                                                       GRA         5391     A     
 GRA       RS2      MX7    1                                                               GRA         5392     A     
 GRA                LX7    1+I.INBP                                                        GRA         5393     A     
 GRA                LX6    I.BRP                                                           GRA         5394     A     
 GRA                BX7    X6+X7                                                           GRA         5395     A     
 GRA                LX6    -I.BRP                                                          GRA         5396     A     
 GRA                BX3    "RN"X5                                                          GRA         5397     A     
 GRA                SA7    "SB"+X3     [SB+RI[R1]] = RNI(B,0,R,0)                          GRA         5398     A     
 GRA                                                                                       GRA         5399     A     
 GRA       RS3      BX5    X0*X5                                                           GRA         5400     A     
 GRA                MX2    -D.USESL                                                        GRA         5401     A     
 GRA                BX6    X5+X6       RI[R1W] = R                                         GRA         5402     A     
 GRA                MX7    0           R2W = 0                                             GRA         5403     A     
 GRA                BX4    X2*X4       USES[DI] = 0;  D = [DI]                             GRA         5404     A     
 GRA                EQ     TYIT                                                            GRA         5405     A     
 GRA       TYII     SPACE  3,14                                                            GRA         5406     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3168    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                PROCESS (FMA,CLR,S)                                                    GRA         5407     A     
 GRA                LX1    59-CA.RAP                                                       GRA         5408     A     
 GRA                MI     X1,PVC      IF RA[CAW]                                          GRA         5409     A     
 GRA                                                                                       GRA         5410     A     
 GRA       FMA1     SX7    B6                                                              GRA         5411     A     
 GRA                SX6    B6                                                              GRA         5412     A     
 GRA                LX7    I.STP                                                           GRA         5413     A     
 GRA                BX6    X7+X6       RNW = RNI(0,TI,0,TI)                                GRA         5414     A     
 GRA                                                                                       GRA         5415     A     
 GRA       FMA2     SA6    A4+B1       [DI+1] = RNW                                        GRA         5416     A     
 GRA                BX5    X0*X5                                                           GRA         5417     A     
 GRA                SX7    B6                                                              GRA         5418     A     
 GRA                BX5    X7+X5       RI[R1W] = TI                                        GRA         5419     A     
 GRA                EQ     TYIA                                                            GRA         5420     A     
 GRA       DEF      SPACE  2                                                               GRA         5421     A     
 GRA                PROCESS DEF                                                            GRA         5422     A     
 GRA                MX3    -SO.REGL                                                        GRA         5423     A     
 GRA                LX5    -R1.SOP                                                         GRA         5424     A     
 GRA                BX7    -X3*X5      REGN = SOREG[R1]                                    GRA         5425     A     
 GRA                LX5    R1.SOP                                                          GRA         5426     A     
 GRA                SX2    X7-26B                                                          GRA         5427          I
          -FCC0414
 GRA                SA3    RVT+X7                                                          FCC0414       28     A     
 GRA                SX2    X7-26B                                                          FCC0414       29     A     
 GRA                NZ     X3,DEF1     IF RVT(REGN) " 0  */ DEF IS A CANIDATE              FCC0414       30     A     
 GRA                PL     X2,FMA1     IF REGN \ 26B  */ IN A STORE REG                    GRA         5428     A     
 GRA                AX7    4                                                               GRA         5429     A     
 GRA                SX6    B6          RNW = RNI(0,0,0,TI)                                 GRA         5430     A     
 GRA                NZ     X7,FMA2     IF REGN \ 20B   */ X-REG                            GRA         5431     A     
 GRA                MX7    1                                                               GRA         5432     A     
 GRA                LX6    I.BRP                                                           GRA         5433     A     
 GRA                BX6    X7+X6       RNW = RNI(1,0,TI,0)                                 GRA         5434     A     
 GRA                EQ     FMA2                                                            GRA         5435     A     
 GRA                                                                                       FCC0414       31     A     
 GRA      *         REGISTER ASSIGNMENT EXTENDED FROM INNER LOOP, SETUP LINK WORD          FCC0414       32     A     
 GRA      *         AND SKIP THIS *DEF*.                                                   FCC0414       33     A     
 GRA                                                                                       FCC0414       34     A     
 GRA       DEF1     SX6    X3          R = RVT(REGN)                                       FCC0414       35     A     
 GRA                LX6    I.STP                                                           FCC0414       36     A     
 GRA                BX6    X3+X6       RNW = RNI(0,R,0,R)                                  FCC0414       37     A     
 GRA                AX7    4                                                               FCC0414       38     A     
 GRA                PL     X2,DEF2     IF REGN \ 26B */ STORE REG                          FCC0414       39     A     
 GRA                MX2    1                                                               FCC0414       40     A     
 GRA                SX6    X3          RNW = RNI(0,0,0,R)                                  FCC0414       41     A     
 GRA                NZ     X7,DEF2     IF REGN \ 20B */ X-REG                              FCC0414       42     A     
 GRA                LX3    I.BRP                                                           FCC0414       43     A     
 GRA                BX6    X2+X3       RNW = RNI(1,0,R,0)                                  FCC0414       44     A     
 GRA       DEF2     SA6    A4+B1       [DI+1] = RNW                                        FCC0414       45     A     
 GRA                EQ     IRA10                                                           FCC0414       46     A     
 GRA       TYIII    SPACE  2,14                                                            GRA         5436     A     
 GRA                PROCESS (KLS,KRS)                                                      GRA         5437     A     
 GRA                SX7    B6                                                              GRA         5438     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3169    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                PX6    B2,X7       R1W = TYII(OC[R1],0,0,TI)                           GRA         5439     A     
 GRA                SA7    A4+B1       [DI+1] = RNI(0,0,0,TI)                              GRA         5440     A     
 GRA                SB3    B0          SC = 0                                              GRA         5441     A     
 GRA                                                                                       GRA         5442     A     
 GRA      *         TYIII - ADJUST *RF*, SC, R1W SET                                       GRA         5443     A     
 GRA                                                                                       GRA         5444     A     
 GRA       TYIII    SA3    A5+B1       R2 = R1 + 1;  R2W = [R2]                            GRA         5445     A     
 GRA                SA4    F.RDT+B2    D = RDT(OC[R1])                                     GRA         5446     A     
 GRA                LX3    -IH.RFP                                                         GRA         5447     A     
 GRA                BX5    "RN"X3      R = RF[R2]                                          GRA         5448     A     
 GRA                SA2    "SB"+X5     LJW = [SB+R]                                        GRA         5449     A     
 GRA                BX3    X0*X3                                                           GRA         5450     A     
 GRA                AX2    B3,X2       LJW = SHIFT(LJW,-SC)                                GRA         5451     A     
 GRA                SX1    X2                                                              GRA         5452     A     
 GRA                BX7    X1+X3       RF[R2W] = SETX(LJW)                                 GRA         5453     A     
 GRA                LX7    IH.RFP                                                          GRA         5454     A     
 GRA                EQ     TYIT                                                            GRA         5455     A     
 GRA       JIN      SPACE  2,12                                                            GRA         5456     A     
 GRA                PROCESS (JIN,JPBB)                                                     GRA         5457     A     
 GRA                SB3    I.BRP                                                           GRA         5458     A     
 GRA                                                                                       GRA         5459          I
          -FCC0909
 GRA       JIN1     BX7    "RN"X5      R = RI[R1]                                          GRA         5460          I
          -FCC0909
 GRA                SA3    A5+1        R2 = R1 + 1                                         FCC0909       43     A     
 GRA                PL     X3,JIN3     IF [R2] < 0   */ NOT SPECIAL *JIN*                  FCC0909       44     A     
 GRA                SA2    =XL.HB                                                          FCC0909       45     A     
 GRA                SX6    X2-12                                                           FCC0909       46     A     
 GRA                PL     X6,JIN2     IF L.HB > 8   */ *HB* IS NON EMPTY                  FCC0909       47     A     
 GRA                SA2    RAT+1                                                           FCC0909       48     A     
 GRA                MX6    27          I = 27                                              FCC0909       49     A     
 GRA       JIN1     NZ     X2,JIN2     IF RAT(I) " 0                                       FCC0909       50     A     
 GRA                SA2    A2+B1                                                           FCC0909       51     A     
 GRA                LX6    1           I = I - 1                                           FCC0909       52     A     
 GRA                MI     X6,JIN1     IF I " 0                                            FCC0909       53     A     
 GRA                EQ     JIN3                      */ NO REGISTERS ASSIGNED              FCC0909       54     A     
 GRA                                                                                       FCC0909       55     A     
 GRA      *         HOLDING BLOCK IS OR WILL BE NON-EMPTY, SETUP CODE TO CHECK             FCC0909       56     A     
 GRA      *         FOR JUMP TO TOP OF LOOP LABEL BEFORE *JP* INSTRUCTION.                 FCC0909       57     A     
 GRA                                                                                       FCC0909       58     A     
 GRA       JIN2     SA2    LGL                                                             FCC0909       59     A     
 GRA                SX7    X2                                                              FCC0909       60     A     
 GRA                TYPEI  STT,B6      SRI( STT  TI,,,SETX(LGL) )                          FCC0909       61     A     
 GRA                SX6    B6-4                                                            FCC0909       62     A     
 GRA                SX2    SO.TLOCK+3                                                      FCC0909       63     A     
 GRA                LX2    R1.SOP                                                          FCC0909       64     A     
 GRA                BX6    X2+X6                                                           FCC0909       65     A     
 GRA                TYPEI  RS,X6       SRI( RS  TI-4,TLOCK+3 )                             FCC0909       66     A     
 GRA                BX7    "RN"X5                                                          FCC0909       67     A     
 GRA                SA3    "SB"+X7                                                         FCC0909       68     A     
 GRA                SA2    LIH                                                             FCC0909       69     A     
 GRA                LX3    -I.BRP      I = BR[SB+RI[R1]]                                   FCC0909       70     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3170    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SX7    B6-8        J = TI - 8                                          FCC0909       71     A     
 GRA                LX7    IH.RFP                                                          FCC0909       72     A     
 GRA                BX7    X2+X7                                                           FCC0909       73     A     
 GRA                TYPEI  JPBB,X3     SRI( JPBB  I,J,0,LIH )                              FCC0909       74     A     
 GRA                SB2    OC.JIN                                                          FCC0909       75     A     
 GRA                                                                                       FCC0909       76     A     
 GRA       JIN3     BX7    "RN"X5      R = RI[R1]                                          FCC0909       77     A     
 GRA                SA3    "SB"+X7     LJW = [SB+R]                                        GRA         5461     A     
 GRA                BX5    X0*X5                                                           GRA         5462     A     
 GRA                AX3    B3,X3                                                           GRA         5463     A     
 GRA                SX2    X3          R = SETX( SHIFT(LJW,-SC) )                          GRA         5464     A     
 GRA                BX6    X2+X5       RI[R1W] = R                                         GRA         5465     A     
 GRA                EQ     TYIII                                                           GRA         5466     A     
 GRA       JPX      SPACE  3,14                                                            GRA         5467          I
          -FCC0764
 GRA       JPX      EJECT                                                                  FCC0764       19     A     
 GRA                PROCESS JPX                                                            GRA         5468     A     
 GRA                SA1    LIH                                                             GRA         5469     A     
 GRA                SA2    A5+B1       R2 = R1 + 1                                         GRA         5470     A     
 GRA                SB3    B0          SC = 0                                              GRA         5471     A     
 GRA                BX6    X1-X2                                                           GRA         5472     A     
 GRA                SX7    X6                                                              GRA         5473     A     
 GRA                NZ     X7,JIN1     IF LIH " IH[R2]  */ NOT LOOP BACK JUMP              GRA         5474          I
          -FCC0909
 GRA                NZ     X7,JIN3     IF LIH " IH[R2]   */ NOT LOOP BACK JUMP             FCC0909       78     A     
 GRA                SA1    TRD                                                             GRA         5475     A     
 GRA                ZR     X1,JPX0     IF TRD = 0    */ NO TEST REPLACEMENT                GRA         5476     A     
 GRA                SA4    A5-4                                                            GRA         5477     A     
 GRA                BX6    X4-X5                                                           GRA         5478     A     
 GRA                BX7    "RN"X6                                                          GRA         5479     A     
 GRA                NZ     X7,JPX0     IF RI[R1] " RI[R1-4]                                GRA         5480     A     
 GRA                SB6    B6-4        TI = TI - 4   */ DELETE LAST INSTRUCTION            GRA         5481     A     
 GRA                                                                                       GRA         5482     A     
 GRA      *         INSERT PREFETCHS FOR NEXT ITERATION OF LOOP                            GRA         5483     A     
 GRA      *         NOTE - NO *IH* IN THE LD SINCE NO STORES INTO CLASS IN LOOP.           GRA         5484     A     
 GRA                                                                                       GRA         5485     A     
 GRA       JPX0     SA3    NAA                                                             GRA         5486     A     
 GRA                ZR     X3,JPX7     IF NAA = 0    */ NO A-ASSIGNMENTS                   GRA         5487     A     
 GRA                SA0    X3-1        I = NAA                                             GRA         5488     A     
 GRA                                                                                       GRA         5489     A     
 GRA       JPX1     SA1    ACT+A0      AI = ACT(I)                                         GRA         5490     A     
 GRA                SA2    RVT+X1                                                          GRA         5491     A     
 GRA                SB3    X1          XREG = SETX( AI ) */ X-REGNO OF *LD*                GRA         5492     A     
 GRA                LX1    -CC.INCP    IP = INC[AI]                                        GRA         5493     A     
 GRA                SX2    X2+4        J = RCT(XREG) + 4  */ R-NUM OF A-REG                GRA         5494     A     
 GRA                SA3    B4+X1       CAW = RCT(IP)                                       GRA         5495     A     
 GRA                LX1    CC.INCP+59-CC.IMP                                               GRA         5496     A     
 GRA                LX3    59-CA.RAP                                                       GRA         5497     A     
 GRA                PL     X3,JPX3     IF ^RA[CAW]   */ INC NOT IN A REGISTER              GRA         5498     A     
 GRA                                                                                       GRA         5499     A     
 GRA                SB2    OC.SLD      OC = OC.SLD                                         GRA         5500     A     
 GRA                PL     X1,JPX2     IF ^IM[AI]                                          GRA         5501     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3171    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SB2    OC.SDL      OC = OC.SDL                                         GRA         5502     A     
 GRA       JPX2     SA3    A3+2        CCW = RCT(IP+2)                                     GRA         5503     A     
 GRA                MX7    -CC.REG1L                                                       GRA         5504     A     
 GRA                LX3    -CC.REG1P                                                       GRA         5505     A     
 GRA                BX7    -X7*X3      REGNO = REG1[CCW]                                   GRA         5506     A     
 GRA                LX2    R1.RJP                                                          GRA         5507     A     
 GRA                SA4    RVT+X7      K = RVT(REGNO)                                      GRA         5508     A     
 GRA                MX7    0           R2W = 0                                             GRA         5509     A     
 GRA                LX4    R1.RKP                                                          GRA         5510     A     
 GRA                BX6    X2+X4       R1W = TYI(0,J,K,0)                                  GRA         5511     A     
 GRA                EQ     JPX5                                                            GRA         5512     A     
 GRA                                                                                       GRA         5513     A     
 GRA      *         INC NOT IN A REGISTER, MUST BE A CON ( *DAA* RESTRICTION ).            GRA         5514     A     
 GRA                                                                                       GRA         5515     A     
 GRA       JPX3     SA3    A3+B1       C2W = RCT(IP+1)                                     GRA         5516     A     
 GRA                LX2    IH.RFP                                                          GRA         5517     A     
 GRA                PL     X1,JPX4     IF ^IM[AI]                                          GRA         5518     A     
 GRA                LX3    -IH.CAP-IH.CAL                                                  GRA         5519     A     
 GRA                MX4    IH.CAL                                                          GRA         5520     A     
 GRA                BX3    -X3*X4      CA[C2W] = -CA[C2W]                                  GRA         5521     A     
 GRA                LX3    IH.CAL+IH.CAP                                                   GRA         5522     A     
 GRA                                                                                       GRA         5523     A     
 GRA       JPX4     SB2    OC.LD       OC = OC.LD                                          GRA         5524     A     
 GRA                MX6    0           R1W = 0                                             GRA         5525     A     
 GRA                BX7    X2+X3       R2W = IHW(0,J,CA[C2W],0)                            GRA         5526     A     
 GRA                                                                                       GRA         5527     A     
 GRA       JPX5     SX5    B6          R = TI                                              GRA         5528     A     
 GRA                BX6    X6+X5                                                           GRA         5529     A     
 GRA                RJ     SRI         SRI(  OC  R,... )                                   GRA         5530     A     
 GRA                                                                                       GRA         5531     A     
 GRA                SA2    RVT+B3      J = RVT(XREG)                                       GRA         5532     A     
 GRA                SX4    SO.LOCK+B3                                                      GRA         5533     A     
 GRA                SB2    OC.RS                                                           GRA         5534     A     
 GRA                LX4    R1.SOP                                                          GRA         5535     A     
 GRA                BX6    X4+X5                                                           GRA         5536     A     
 GRA                LX2    IH.RFP                                                          GRA         5537     A     
 GRA                BX7    X2          R2W = IHW(0,J,0,0)                                  GRA         5538     A     
 GRA                RJ     SRI         SRI(  RS  R,FL+XREG,R2W )                           GRA         5539     A     
 GRA                SB2    A0                                                              GRA         5540     A     
 GRA                SA0    A0-B1       I = I - 1                                           GRA         5541     A     
 GRA                GT     B2,JPX1     IF I > 0                                            GRA         5542     A     
 GRA                                                                                       GRA         5543     A     
 GRA       JPX7     SA4    TRD                                                             GRA         5544     A     
 GRA                SA5    A5                                                              GRA         5545     A     
 GRA                SB3    B0          SC = 0                                              GRA         5546     A     
 GRA                SX7    B1                                                              GRA         5547          I
          -FCC0985
 GRA                UX6    B2,X5                                                           GRA         5548          I
          -FCC0985
 GRA                SA7    LBJ         LBJ = 1                                             GRA         5549          I
          -FCC0985
 GRA                UX6    B2,X5                                                           FCC0985       64     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3172    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                ZR     X4,JIN1     IF TRD = 0    */ NO TEST REPLACEMENT                GRA         5550          I
          -FCC0909
 GRA                ZR     X4,JIN3     IF TRD = 0    */ NO TEST REPLACEMENT                FCC0909       79     A     
 GRA                                                                                       GRA         5551     A     
 GRA      *         OUTPUT SPECIAL TEST JUMP,  GE  LUL,LCV,LIH                             GRA         5552     A     
 GRA                                                                                       GRA         5553     A     
 GRA                SA1    LUL+1                                                           GRA         5554     A     
 GRA                SA2    LCV+1                                                           GRA         5555     A     
 GRA                SB2    OC.JPBB                                                         GRA         5556     A     
 GRA                SA1    RVT+X1      I = RVT(LUL(2))                                     GRA         5557     A     
 GRA                SA3    LIH                                                             GRA         5558     A     
 GRA                SA2    RVT+X2      J = RVT(LCV(2))                                     GRA         5559     A     
 GRA                PL     X4,JPX8     IF TRD > 0    */ F(I) NOT NEGATIVE                  GRA         5560     A     
 GRA                SB3    X1+                                                             GRA         5561     A     
 GRA                BX1    X2          SWAP( I , J )                                       GRA         5562     A     
 GRA                SX2    B3                                                              GRA         5563     A     
 GRA                                                                                       GRA         5564     A     
 GRA       JPX8     SA4    F.RDT+B2    D = RDT(OC.JPBB)                                    GRA         5565     A     
 GRA                LX2    IH.RFP                                                          GRA         5566     A     
 GRA                SX7    B1+B1                                                           GRA         5567     A     
 GRA                PX6    B2,X1       R1W = TYII(OC.JPBB,0,0,I)                           GRA         5568     A     
 GRA                BX2    X2+X3                                                           GRA         5569     A     
 GRA                LX7    IH.CAP                                                          GRA         5570     A     
 GRA                BX7    X7+X2       R2W = IHW(0,J,2,LIH)                                GRA         5571     A     
 GRA                EQ     TYIT                                                            GRA         5572     A     
 GRA       LD       SPACE  3,14                                                            GRA         5573     A     
 GRA                PROCESS (LD,ILD,TLD)                                                   GRA         5574     A     
 GRA                LX1    59-CA.RAP                                                       GRA         5575     A     
 GRA                PL     X1,LD1      IF ^RA[CAW]                                         GRA         5576     A     
 GRA                LX1    CA.RAP-CA.VCP                                                   GRA         5577     A     
 GRA                MI     X1,PVC      IF VC[CAW]                                          GRA         5578     A     
 GRA                                                                                       GRA         5579     A     
 GRA                SB2    OC.LD       OC[R1] = OC.LD                                      GRA         5580     A     
 GRA                                                                                       FCC1227        5     A     
 GRA                SA3    A5+B1       R2 = R1 + 1                                         FCC1227        6     A     
 GRA                SX6    X3                                                              FCC1227        7     A     
 GRA                NZ     X6,PAC      IF IH[R2] " 0 */ NOT A F.P. ADDR LOAD               FCC1227        8     A     
 GRA                LX3    -IH.RFP                                                         FCC1227        9     A     
 GRA                SX6    X3-1                                                            FCC1227       10     A     
 GRA                NZ     X6,PAC      IF RF[R2] " 1                                       FCC1227       11     A     
 GRA                SB2    OC.STT      OC = OC.STT   */ FORCE A *SA* INST IN *PAC*         FCC1227       12     A     
 GRA                                                                                       FCC1227       13          I
          -FCC1644X 
 GRA                EQ     PAC                                                             GRA         5581          I
          -FCC1644X 
 GRA                SA3    A1+2        CCW = CAW + 2                                       FCC1644X       6     A     
 GRA                MX6    -CC.REG1L                                                       FCC1644X       7     A     
 GRA                LX3    -CC.REG1P                                                       FCC1644X       8     A     
 GRA                BX6    -X6*X3                                                          FCC1644X       9     A     
 GRA                BX3    X6                                                              FCC1644X      10     A     
 GRA                AX6    3                                                               FCC1644X      11     A     
 GRA                ZR     X6,PAC      IF REG1[CCW] < 8  */ IN A B-REGISTER                FCC1644X      12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3173    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       FCC1644X      13     A     
 GRA      *         LCM=I ADDRESS IS IN AN X-REGISTER, USE THAT VALUE                      FCC1644X      14     A     
 GRA                                                                                       FCC1644X      15     A     
 GRA                SA3    RVT+X3      R = RVT(REG1[CCW])                                  FCC1644X      16     A     
 GRA                BX6    X3                                                              FCC1644X      17     A     
 GRA                LX3    I.STP                                                           FCC1644X      18     A     
 GRA                BX7    X3+X6                                                           FCC1644X      19     A     
 GRA                SA7    A5+3        [R1+3] = RNI(0,R,0,R)                               FCC1644X      20     A     
 GRA                EQ     IRA10                                                           FCC1644X      21     A     
 GRA                                                                                       GRA         5582     A     
 GRA       LD1      SX6    B6+         RI[R1W] = TI                                        GRA         5583     A     
 GRA                SA6    A5+3        [R1+3] = RNI(0,0,0,TI)                              GRA         5584     A     
 GRA                                                                                       GRA         5585     A     
 GRA      *         ADJUST *RF* OF LD,ST,STT INSTRUCTIONS                                  GRA         5586     A     
 GRA                                                                                       GRA         5587     A     
 GRA       LD2      SA3    A5+B1       R2 = R1 + 1                                         GRA         5588     A     
 GRA                LX3    -IH.RFP                                                         GRA         5589     A     
 GRA                BX1    "RN"X3      R = RF[R2]                                          GRA         5590     A     
 GRA                SA2    "SB"+X1     LJW = [SB+R]                                        GRA         5591     A     
 GRA                BX7    X0*X3                                                           GRA         5592     A     
 GRA                PL     X2,LD3      IF ^INB[LJW]                                        GRA         5593     A     
 GRA                LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                             GRA         5594     A     
 GRA       LD3      SX2    X2          J = SETX(LJW)                                       GRA         5595     A     
 GRA                SA1    DMASK                                                           GRA         5596     A     
 GRA                BX7    X2+X7                                                           GRA         5597     A     
 GRA                BX5    X0*X5                                                           GRA         5598     A     
 GRA                LX7    IH.RFP      RF[R2W] = J                                         GRA         5599     A     
 GRA                BX6    X5+X6                                                           GRA         5600     A     
 GRA                BX4    -X1*X4      D = [DI] & ^DMASK                                   GRA         5601     A     
 GRA                EQ     TYIT                                                            GRA         5602     A     
 GRA       STT      SPACE  2                                                               GRA         5603     A     
 GRA      *         STT - *IRA* *AC* OR *CON* CANIDATE                                     GRA         5604     A     
 GRA                                                                                       GRA         5605     A     
 GRA       STT0     SX7    B6                                                              GRA         5606     A     
 GRA                SX6    B6                                                              GRA         5607     A     
 GRA                LX7    I.STP                                                           GRA         5608     A     
 GRA                BX7    X6+X7                                                           GRA         5609     A     
 GRA                SA7    A5+3        [R1+3] = RNI(0,TI,0,TI)                             GRA         5610     A     
 GRA                EQ     LD2                                                             GRA         5611     A     
 GRA                                                                                       GRA         5612     A     
 GRA                PROCESS STT                                                            GRA         5613     A     
 GRA                LX1    59-CA.RAP                                                       GRA         5614     A     
 GRA                PL     X1,STT0     IF ^RA[CAW]                                         GRA         5615     A     
 GRA                                                                                       GRA         5616     A     
 GRA                LX1    CA.RAP-CA.IRAP                                                  GRA         5617     A     
 GRA                PL     X1,STT1     IF ^IRA[CAW]  */ NOT ASSIGNED IN *ERC*              GRA         5618     A     
 GRA                BX6    X4                                                              GRA         5619     A     
 GRA                LX6    59-D.PRSP                                                       GRA         5620     A     
 GRA                PL     X6,STT1     IF ^PRS[DI]   */ NOT THE ONE ERC MARKED             GRA         5621     A     
 GRA                SA2    A5+7        LIS = R1 + 7  */ LINK WORD OF *RS*                  GRA         5622     A     
 GRA                ZR     X2,STT1     IF [LIS] = 0  */ NOT MOVED BY ERC/RS                GRA         5623     A     
 GRA                                                                                       GRA         5624     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3174    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                MX7    0                                                               GRA         5625     A     
 GRA                SA7    A4+B1       [DI+1] = 0                                          GRA         5626     A     
 GRA                EQ     IRA10                                                           GRA         5627     A     
 GRA                                                                                       GRA         5628     A     
 GRA       STT1     LX1    CA.IRAP-CA.CONP                                                 GRA         5629     A     
 GRA                PL     X1,PAC      IF ^CON[CAW]                                        GRA         5630     A     
 GRA                                                                                       GRA         5631     A     
 GRA      *         CHANGE *INC* STT TO A *SA* OR *SS*                                     GRA         5632     A     
 GRA                                                                                       GRA         5633     A     
 GRA                SA1    A1+B1       C2W = RCT(J+1)                                      GRA         5634     A     
 GRA                SA3    A5+B1       R2 = R1 + 1                                         GRA         5635     A     
 GRA                BX1    X3-X1                                                           GRA         5636     A     
 GRA                LX3    -IH.RFP                                                         GRA         5637     A     
 GRA                SA2    "SB"+X3     LJW = [SB+RF[R2]]                                   GRA         5638     A     
 GRA                LX3    IH.RFP+42-IH.CAP                                                GRA         5639     A     
 GRA                MI     X2,STT2     IF INB[LJW]                                         GRA         5640     A     
 GRA                                                                                       GRA         5641     A     
 GRA                MI     X3,STT0     IF CA[R2] < 0 */   SRI  X-B DOESNT EXIST            GRA         5642     A     
 GRA                                                                                       GRA         5643     A     
 GRA       STT2     LX1    59-IH.CAP                                                       GRA         5644     A     
 GRA                SB2    OC.SA       OC = SA                                             GRA         5645     A     
 GRA                MX7    -CC.REG1L                                                       GRA         5646     A     
 GRA                PL     X1,STT3     IF CA[R2] = CA[C2W]                                 GRA         5647     A     
 GRA                SB2    OC.SS       OC = OC.SS                                          GRA         5648     A     
 GRA                                                                                       GRA         5649     A     
 GRA       STT3     SA1    A1+B1       CCW = RCT(J+2)                                      GRA         5650     A     
 GRA                LX1    -CC.REG1P                                                       GRA         5651     A     
 GRA                BX7    -X7*X1                                                          GRA         5652     A     
 GRA                SA3    RVT+X7      LKW = RVT(REG1(CCW])                                GRA         5653     A     
 GRA                PL     X2,TYI      IF ^INB[LJW]                                        GRA         5654     A     
 GRA                LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                             GRA         5655     A     
 GRA                EQ     TYI                                                             GRA         5656     A     
 GRA       ST       EJECT                                                                  GRA         5657     A     
 GRA      *         ST - ADDRESS CANIDATE OR REDEFINTION OF A REGISTER                     GRA         5658     A     
 GRA                                                                                       GRA         5659     A     
 GRA                PROCESS (ST,TST)                                                       GRA         5660     A     
 GRA                LX1    59-CA.KDP                                                       GRA         5661          I
          -FCC0977
 GRA                MI     X1,IRA10    IF KD[CAW]    */ DEF HAS NO USES                    GRA         5662          I
          -FCC0977
 GRA                                                                                       GRA         5663          I
          -FCC0977
 GRA                BX7    "RN"X5      R = RI[R1]                                          GRA         5664          I
          -FCC0977
 GRA                LX1    CA.KDP-CA.RAP                                                   GRA         5665          I
          -FCC0977
 GRA                SA2    "SB"+X7     LJ = SB + R;  LJW = [LJ]                            GRA         5666          I
          -FCC0977
 GRA                MI     X1,ST1      IF RA[CAW]                                          GRA         5667          I
          -FCC0977
 GRA                BX7    "RN"X5      R = RI[R1]                                          FCC0977       14     A     
 GRA                SA2    "SB"+X7     LJ = SB + R;  LJW = [LJ]                            FCC0977       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3175    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                LX1    59-CA.RAP                                                       FCC0977       16     A     
 GRA                MI     X1,ST0      IF RA[CAW]                                          FCC0977       17     A     
 GRA                                                                                       GRA         5668     A     
 GRA                LX2    -I.STP                                                          GRA         5669     A     
 GRA                SX6    X2          RI[R1W] = ST[LJW]                                   GRA         5670     A     
 GRA                EQ     LD2                                                             GRA         5671     A     
 GRA                                                                                       GRA         5672     A     
 GRA       ST1      LX1    CA.RAP-CA.VCP                                                   GRA         5673          I
          -FCC0977
 GRA       ST0      LX1    CA.RAP-CA.KDP                                                   FCC0977       18     A     
 GRA                PL     X1,ST1      IF ^KD[CAW]                                         FCC0977       19     A     
 GRA                LX4    59-D.INCP                                                       FCC0977       20     A     
 GRA                PL     X4,IRA10    IF ^INC[DI]                                         FCC0977       21     A     
 GRA                                                                                       FCC0977       22     A     
 GRA      *         CLEAR LINK WORD OF INCREMENT SO WE DONT GET GARBAGE IN THE             FCC0977       23     A     
 GRA      *         *RF* FIELD OF MEM REFS IN THE INCREMENT FIRST CASE.                    FCC0977       24     A     
 GRA                                                                                       FCC0977       25     A     
 GRA                SB6    B6-4        TI = TI - 4   */ BACK OVER INC INSTRUCTION          FCC0977       26     A     
 GRA                MX6    0                                                               FCC0977       27     A     
 GRA                SA6    A2          [LJ] = 0      */ CLEAR LINK WORD OF *INC*           FCC0977       28     A     
 GRA                EQ     IRA10                                                           FCC0977       29     A     
 GRA                                                                                       FCC0977       30     A     
 GRA       ST1      LX1    CA.KDP-CA.VCP                                                   FCC0977       31     A     
 GRA                PL     X1,PAC0     IF ^VC[CAW]                                         GRA         5674     A     
 GRA                                                                                       GRA         5675     A     
 GRA      *         PROCESS REDEFINITION OF A REGISTER                                     GRA         5676     A     
 GRA                                                                                       GRA         5677     A     
 GRA                SA0    A2                                                              GRA         5678     A     
 GRA                SA1    A1+2        CCW = RCT(J+2)                                      GRA         5679     A     
 GRA                MX7    -CC.REG1L                                                       GRA         5680     A     
 GRA                LX1    -CC.REG1P                                                       GRA         5681     A     
 GRA                BX5    -X7*X1      REGNO = REG1[CCW]                                   GRA         5682     A     
 GRA                SB2    X2+4                                                            GRA         5683          I
          -FCC0414
 GRA                NE     B2,B6,ST1C  IF XR[LJW] " TI-4  */ RS WONT FOLLOW REDEF          GRA         5684          I
          -FCC0414
 GRA                                                                                       GRA         5685          I
          -FCC0414
 GRA      *         CHECK *ST* PREDECESSOR                                                 GRA         5686          I
          -FCC0414
 GRA                                                                                       GRA         5687          I
          -FCC0414
 GRA                SA3    B7+X2       R1P = TXT(XR[LJW])                                  GRA         5688          I
          -FCC0414
 GRA                SB3    OC.DEF                                                          GRA         5689          I
          -FCC0414
 GRA                UX7    B2,X3                                                           GRA         5690          I
          -FCC0414
 GRA                NE     B2,B3,ST1A  IF OC[R1P] " OC.DEF                                 GRA         5691          I
          -FCC0414
 GRA                                                                                       GRA         5692          I
          -FCC0414
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3176    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA      *         MOVED STORE FROM INNER LOOP, OMIT LAST DEF AND SKIP RS                 GRA         5693          I
          -FCC0414
 GRA                                                                                       GRA         5694          I
          -FCC0414
 GRA                SB6    B6-4        TI = TI - 4   */ OMIT LAST *DEF*                    GRA         5695          I
          -FCC0414
 GRA                SA3    RVT+X5                                                          GRA         5696          I
          -FCC0414
 GRA                SX7    X3          R = RVT(REGNO)                                      GRA         5697          I
          -FCC0414
 GRA                LX3    I.STP                                                           GRA         5698          I
          -FCC0414
 GRA                BX7    X3+X7       [LJ] = RNI(0,R,0,R)                                 GRA         5699          I
          -FCC0414
 GRA                SA7    A0                                                              GRA         5700          I
          -FCC0414
 GRA                EQ     ST4A                                                            GRA         5701          I
          -FCC0414
 GRA                                                                                       GRA         5702          I
          -FCC0414
 GRA      *         SEE IF *OP* CAN *PRS* TO A B-REG  ( S,SA,SS,STT )                      GRA         5703          I
          -FCC0414
 GRA                                                                                       GRA         5704          I
          -FCC0414
 GRA       ST1A     SX7    X5-8                                                            GRA         5705          I
          -FCC0414
 GRA                SA3    N.HB                                                            FCC0414       47     A     
 GRA                ZR     X3,ST1A     IF N.HB = 0   */ INNER LOOP                         FCC0414       48     A     
 GRA                                                                                       FCC0414       49     A     
 GRA      *         OUTER LOOP, CHECK FOR POST STORE OF A REGISTER ASSIGNMENT MADE         FCC0414       50     A     
 GRA      *         IN AN INNER LOOP AND EXTENDED TO THIS LOOP.                            FCC0414       51     A     
 GRA                                                                                       FCC0414       52     A     
 GRA                SA3    B7+X2       R1P = TXT(XR[LJW])                                  FCC0414       53     A     
 GRA                SB3    OC.XMT                                                          FCC0414       54     A     
 GRA                UX7    B2,X3                                                           FCC0414       55     A     
 GRA                EQ     B2,B3,ST0A  IF OC[R1P] = OC.XMT                                 FCC0414       56     A     
 GRA                SB3    OC.SA                                                           FCC0414       57     A     
 GRA                NE     B2,B3,ST0B  IF OC[R1P] " OC.SA                                  FCC0414       58     A     
 GRA                LX3    -R1.RKP                                                         FCC0414       59     A     
 GRA                BX6    "RN"X3                                                          FCC0414       60     A     
 GRA                NZ     X6,ST1A     IF RK[R1P] " 0  */ NOT  * SA  RI,RJ *               FCC0414       61     A     
 GRA       ST0A     LX7    -R1.RJP                                                         FCC0414       62     A     
 GRA                BX6    "RN"X7                                                          FCC0414       63     A     
 GRA                SA3    B7+X6       R1P = TXT(RJ[R1P])                                  FCC0414       64     A     
 GRA                UX7    B2,X3                                                           FCC0414       65     A     
 GRA       ST0B     SB3    OC.DEF                                                          FCC0414       66     A     
 GRA                NE     B2,B3,ST1A  IF OC[R1P] " OC.DEF                                 FCC0414       67     A     
 GRA                LX7    -R1.SOP                                                         FCC0414       68     A     
 GRA                MX6    -SO.REGL                                                        FCC0414       69     A     
 GRA                BX7    X5-X7                                                           FCC0414       70     A     
 GRA                BX6    -X6*X7                                                          FCC0414       71     A     
 GRA                ZR     X6,ST4A     IF SOREG[R1P] = REGNO  */ SAME CANIDATES            FCC0414       72     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3177    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                BX6       X3-X2                                                        FCC1568X       5     A     
 GRA                BX7       "RN"X6                                                       FCC1568X       6     A     
 GRA                ZR        X7,ST1C  IF RI[R1P] = XR[LJW] */ REGNO-S " & DEF,ST          FCC1568X       7     A     
 GRA                                                                                       FCC0414       73     A     
 GRA      *         SEE IF *OP* CAN PRS TO A B-REG ( S,SA,SS,STT )                         FCC0414       74     A     
 GRA                                                                                       FCC0414       75     A     
 GRA       ST1A     SB2    X2+4                                                            FCC0414       76     A     
 GRA                NE     B2,B6,ST1C  IF XR[LJW] " TI-4  */ RS WONT FOLLOW REDEF          FCC0414       77     A     
 GRA                SA3    B7+X2       R1P = TXT(XR[LJW])                                  FCC0414       78     A     
 GRA                SX7    X5-8                                                            FCC0414       79     A     
 GRA                UX6    B2,X3                                                           FCC0414       80     A     
 GRA                PL     X7,ST3      IF REGNO > 7  */ ^ IN A B-REG                       GRA         5706     A     
 GRA                SB3    OC.CLR                                                          GRA         5707     A     
 GRA                NE     B2,B3,ST1B  IF OC[R1P] " OC.CLR                                 GRA         5708     A     
 GRA                                                                                       GRA         5709     A     
 GRA      *         CLR PRS TO A B-REG, CHANGE TO A *  S  RI,0 *                           GRA         5710     A     
 GRA                                                                                       GRA         5711     A     
 GRA                SA4    F.RDT+OC.S  DJ = RDT(OC.S)                                      GRA         5712     A     
 GRA                SB2    OC.S                                                            GRA         5713     A     
 GRA                PX7    B2,X3       OC[R1P] = OC.S                                      GRA         5714     A     
 GRA                SX6    B1                                                              GRA         5715     A     
 GRA                SA7    A3                                                              GRA         5716     A     
 GRA                LX6    D.SZP                                                           GRA         5717     A     
 GRA                IX7    X4-X6       SZ[DJ] = 1                                          GRA         5718     A     
 GRA                SA7    A3+2        [R1P+2] = DJ                                        GRA         5719     A     
 GRA                EQ     ST3                                                             GRA         5720     A     
 GRA                                                                                       GRA         5721     A     
 GRA       ST1B     SA4    DUM.JT+B2                                                       GRA         5722     A     
 GRA                SB3    OC.SA                                                           GRA         5723     A     
 GRA                LX4    59-29                                                           GRA         5724     A     
 GRA                PL     X4,ST1C     IF ^BRS(OC[R1P])  */ CANT PRS TO A B-REG            GRA         5725     A     
 GRA                                                                                       GRA         5726     A     
 GRA      *         OUTPUT *SA* IF PRED IS A *EU* SA PUT OUT BY *PVC* SO AS TO             GRA         5727     A     
 GRA      *         PRESERVE THE X-REG R-NUMBER                                            GRA         5728     A     
 GRA                                                                                       GRA         5729     A     
 GRA                NE     B2,B3,ST3   IF OC[R1P] " OC.SA                                  GRA         5730     A     
 GRA                LX3    -R1.RKP                                                         GRA         5731     A     
 GRA                BX7    "RN"X3                                                          GRA         5732     A     
 GRA                NZ     X7,ST3      IF RK[R1P] " 0  */ NOT  SA RI,RJ                    GRA         5733     A     
 GRA                                                                                       GRA         5734     A     
 GRA      *         OUTPUT *SA/XMT* SO THAT *RS* WILL FOLLOW DEFINITION OF RESULT          GRA         5735     A     
 GRA                                                                                       GRA         5736     A     
 GRA       ST1C     SB2    OC.XMT                                                          GRA         5737     A     
 GRA                SX7    X5-8                                                            GRA         5738     A     
 GRA                BX6    X2+X7                                                           GRA         5739     A     
 GRA                PL     X6,ST2      IF REGNO > 7 & ^INB[LJW]                            GRA         5740     A     
 GRA                SB2    OC.SA                                                           GRA         5741     A     
 GRA                PL     X2,ST2      IF ^INB[LJW]                                        GRA         5742     A     
 GRA                LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                             GRA         5743     A     
 GRA       ST2      SX2    X2          RJ = SETX(LJW)                                      GRA         5744     A     
 GRA                SX6    B6                                                              GRA         5745     A     
 GRA                LX2    R1.RJP                                                          GRA         5746     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3178    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                BX6    X2+X6                                                           GRA         5747     A     
 GRA                MX7    0                                                               GRA         5748     A     
 GRA                SX2    B6          LJW = TI                                            GRA         5749          I
          -FCC0514
 GRA                RJ     SRI         SRI(  XMT/SA  TI,RJ )                               GRA         5750     A     
 GRA                                                                                       GRA         5751     A     
 GRA      *         OUTPUT *RS* TO FORCE THE RESULT BACK TO THE REGISTER                   GRA         5752     A     
 GRA                                                                                       GRA         5753     A     
 GRA       ST3      SA3    RVT+X5      F = RVT(REGNO)  */ OLD R-NUM IN REG                 GRA         5754          I
          -FCC0514
 GRA       ST3      SA4    A5+2        DI = R1 + 2                                         FCC0514       98     A     
 GRA                LX4    59-D.XUP                                                        FCC0514       99     A     
 GRA                PL     X4,ST3A     IF ^XU[DI]    */ IF NO EXTENDED USES                FCC0514      100     A     
 GRA                                                                                       FCC0514      101     A     
 GRA                RJ     APD         ADJUST PREVIOUS DEF TO SAVE OLD VALUE               FCC0514      102     A     
 GRA                                                                                       FCC0514      103     A     
 GRA       ST3A     SA3    RVT+X5      F = RVT(REGNO)  */ OLD R-NUM IN REGISTER            FCC0514      104     A     
 GRA                SX4    X5+SO.LOCK                                                      GRA         5755     A     
 GRA                SB2    OC.RS                                                           GRA         5756     A     
 GRA                SX6    X2          R = SETX(LJW)                                       GRA         5757          I
          -FCC0514
 GRA                SX6    B6-4        R = TI - 4                                          FCC0514      105     A     
 GRA                LX4    R1.SOP                                                          GRA         5758     A     
 GRA                SA6    A3          RVT(REGNO) = R  */ UPDATE R-NUM IN REG              GRA         5759     A     
 GRA                SB3    X3+2                                                            GRA         5760     A     
 GRA                BX6    X4+X6                                                           GRA         5761     A     
 GRA                SA4    B7+B3       DIP = TXT(F+2)  */ CHECK PRED FOR A *CA*            GRA         5762     A     
 GRA                SX7    A4-1        R2P = DIP - 1                                       GRA         5763          I
          -FCC0514
 GRA                SX7    A4-B1       R2P = DIP - 1                                       FCC0514      106     A     
 GRA                LX4    59-D.PIP                                                        GRA         5764     A     
 GRA                MI     X4,ST4      IF PI[DIP]                                          GRA         5765     A     
 GRA                SX7    X7+4        R2P = R2P + 4                                       GRA         5766     A     
 GRA       ST4      SA4    X7                                                              GRA         5767     A     
 GRA                MX7    -IH.CAIHL                                                       GRA         5768     A     
 GRA                LX3    IH.RFP                                                          GRA         5769     A     
 GRA                BX4    -X7*X4                                                          GRA         5770     A     
 GRA                BX7    X3+X4       R2W = IHW(0,F,CAIH[R2P])                            GRA         5771     A     
 GRA                RJ     SRI         SRI(  RS  R,FL+REGNO,R2W )                          GRA         5772     A     
 GRA                                                                                       GRA         5773     A     
 GRA      *         UPDATE R-NUMBER IN THE LINK WORD OF THE PRED                           GRA         5774     A     
 GRA                                                                                       GRA         5775     A     
 GRA       ST4A     SA1    A1-2                                                            GRA         5776     A     
 GRA                SA3    RVT+X5      RN = RVT(REGNO)                                     GRA         5777     A     
 GRA                SA2    A0+         LJW = [LJ]                                          GRA         5778     A     
 GRA                SX7    X5-8                                                            GRA         5779     A     
 GRA                PL     X7,ST7      IF REGNO > 7  */ X-REG                              GRA         5780     A     
 GRA                                                                                       GRA         5781     A     
 GRA      *         VALUE IS IN A B-REGISTER                                               GRA         5782     A     
 GRA                                                                                       GRA         5783     A     
 GRA                MI     X2,ST5      IF INB[LJW]                                         GRA         5784     A     
 GRA                MX7    1                                                               GRA         5785     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3179    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                LX3    I.BRP                                                           GRA         5786     A     
 GRA                LX7    1+I.INBP                                                        GRA         5787     A     
 GRA                BX7    X3+X7                                                           GRA         5788     A     
 GRA                SA7    A0          [LJ] = RNI(1,0,RN,0)                                GRA         5789     A     
 GRA                LX3    -I.BRP                                                          GRA         5790     A     
 GRA                BX2    X7          LJW = [LJ]                                          GRA         5791     A     
 GRA                                                                                       GRA         5792     A     
 GRA       ST5      LX1    59-CA.EUP                                                       GRA         5793     A     
 GRA                MI     X1,ST6      IF EU[CAW]                                          GRA         5794     A     
 GRA                LX1    CA.EUP-CA.PSPP                                                  GRA         5795     A     
 GRA                MI     X1,IRA10    IF PSP[CAW]   */ ST CAN MOVE                        GRA         5796     A     
 GRA                                                                                       GRA         5797     A     
 GRA      *         MOVE RESULT TO AN X-REG                                                GRA         5798     A     
 GRA                                                                                       GRA         5799     A     
 GRA       ST6      SB3    X2                                                              GRA         5800     A     
 GRA                NZ     B3,ST10     IF XR[LJW] " 0*/ PRED IS IN A X-REG                 GRA         5801     A     
 GRA                SX6    B6                                                              GRA         5802     A     
 GRA                BX7    X6+X7                                                           GRA         5803     A     
 GRA                LX6    I.STP                                                           GRA         5804     A     
 GRA                BX7    X6+X7                                                           GRA         5805     A     
 GRA                SA7    A0          [LJ] = RNI(1,TI,RN,TI)                              GRA         5806     A     
 GRA                SB2    OC.SA                                                           GRA         5807     A     
 GRA                EQ     ST9                                                             GRA         5808     A     
 GRA                                                                                       GRA         5809     A     
 GRA      *         VALUE IS IN A X-REGISTER                                               GRA         5810     A     
 GRA                                                                                       GRA         5811     A     
 GRA       ST7      SX7    X5-26B                                                          GRA         5812     A     
 GRA                PL     X7,ST10     IF REGNO > 25B  */ RESULT IN A *ST* REG             GRA         5813     A     
 GRA                                                                                       GRA         5814     A     
 GRA                SA4    A0-B1       DJP = LJ - 1                                        GRA         5815     A     
 GRA                SX6    X2          RN = XR[LJW]                                        GRA         5816          I
          -FCC1196
 GRA                MX7    -D.USESL+1                                                      GRA         5817     A     
 GRA                SA6    A0          [LJ] = RNI(0,0,0,RN)                                GRA         5818     A     
 GRA                LX0    I.STP                                                           FCC1196        6     A     
 GRA                BX6    X0*X2                                                           FCC1196        7     A     
 GRA                SA6    A0          ST[LJ] = 0                                          FCC1196        8     A     
 GRA                LX0    -I.STP                                                          FCC1196        9     A     
 GRA                LX4    -D.USESP-1                                                      GRA         5819     A     
 GRA                BX7    -X7*X4                                                          GRA         5820     A     
 GRA                NZ     X7,ST8      IF USES[DJP] > 1                                    GRA         5821     A     
 GRA                LX1    59-CA.PSPP                                                      GRA         5822     A     
 GRA                MI     X1,IRA10    IF PSP[CAW]                                         GRA         5823     A     
 GRA                                                                                       GRA         5824     A     
 GRA       ST8      SX4    B6                                                              GRA         5825     A     
 GRA                LX4    I.STP                                                           GRA         5826     A     
 GRA                BX7    X4+X6                                                           GRA         5827     A     
 GRA                SA7    A0          [LJ] = RNI(0,TI,0,RN)                               GRA         5828          I
          -FCC1196
 GRA                SA7    A0          ST[LJ] = TI                                         FCC1196       10     A     
 GRA                SB2    OC.XMT                                                          GRA         5829     A     
 GRA                SX3    X7+                                                             GRA         5830     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3180    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       GRA         5831     A     
 GRA       ST9      SX6    B6                                                              GRA         5832     A     
 GRA                LX3    R1.RJP                                                          GRA         5833     A     
 GRA                MX7    0                                                               GRA         5834     A     
 GRA                BX6    X3+X6                                                           GRA         5835     A     
 GRA                RJ     SRI         SRI(  SA/XMT  TI,RN )                               GRA         5836     A     
 GRA                                                                                       GRA         5837     A     
 GRA      *         OUTPUT STORE IF NOT MOVABLE                                            GRA         5838     A     
 GRA                                                                                       GRA         5839     A     
 GRA       ST10     SA1    A1                                                              GRA         5840     A     
 GRA                LX1    59-CA.PSPP                                                      GRA         5841     A     
 GRA                MI     X1,IRA10    IF PSP[CAW]                                         GRA         5842     A     
 GRA                                                                                       GRA         5843     A     
 GRA                SA5    A5                                                              GRA         5844     A     
 GRA                SA2    A0                                                              GRA         5845     A     
 GRA                SA4    A5+2                                                            GRA         5846     A     
 GRA                LX2    -I.STP                                                          GRA         5847     A     
 GRA                SX6    X2          RI[R1W] = ST[LJW]                                   GRA         5848     A     
 GRA                UX7    B2,X5                                                           GRA         5849     A     
 GRA                EQ     LD2                                                             GRA         5850     A     
 GRA       APD      EJECT                                                                  FCC0514      107     A     
 GRA      **        APD - ADJUST PREVIOUS DEFINITION OF A CANIDATE TO PRESERVE             FCC0514      108     A     
 GRA      *         PREVIOUS VALUE, BECAUSE USES OF IT EXTEND PAST THE CURRENT             FCC0514      109     A     
 GRA      *         DEFINITION ( *XU* ).                                                   FCC0514      110     A     
 GRA      *                                                                                FCC0514      111     A     
 GRA      *         ENTRY  (A0,X5) = LJ, REGNO AS SETUP BY IRA/ST                          FCC0514      112     A     
 GRA                                                                                       FCC0514      113     A     
 GRA      *         FIND PREVIOUS DEFINITION OF THIS CANIDATE IN *SEQ*                     FCC0514      114     A     
 GRA                                                                                       FCC0514      115     A     
 GRA       APD      ROUTINE                                                                FCC0514      116     A     
 GRA                SA3    A5+B1       R2 = R1 + 1;  R2P = R2                              FCC0514      117     A     
 GRA                SB3    4                                                               FCC0514      118     A     
 GRA                BX7    X3          R2W = [R2]                                          FCC0514      119     A     
 GRA       APD1     SA3    A3-B3       R2P = R2P - 4                                       FCC0514      120     A     
 GRA                BX6    X7-X3                                                           FCC0514      121     A     
 GRA                NZ     X6,APD1     IF [R2P] " R2W                                      FCC0514      122     A     
 GRA                                                                                       FCC0514      123     A     
 GRA                SA4    A3+B1       DIP = R2P + 1                                       FCC0514      124     A     
 GRA                SA2    A4+B1       LIP = DIP + 1                                       FCC0514      125     A     
 GRA                LX4    59-D.LDP                                                        FCC0514      126     A     
 GRA                MI     X4,APD2     IF LD[DIP]    */ PREVIOUS DEF IS A *LD*             FCC0514      127     A     
 GRA                SA3    A3-B1       R1P = R2P - 1                                       FCC0514      128     A     
 GRA                BX6    "RN"X3                                                          FCC0514      129     A     
 GRA                SA2    "SB"+X6     LIP = SB + RI[R1P]                                  FCC0514      130     A     
 GRA                                                                                       FCC0514      131     A     
 GRA      *         CHECK LINK WORD TO SEE IF WE MADE A COPY OF THE VALUE                  FCC0514      132     A     
 GRA                                                                                       FCC0514      133     A     
 GRA       APD2     SX6    X5-8                                                            FCC0514      134     A     
 GRA                PL     X6,APD3     IF REGNO > 8  */ CANIDATE IN AN X-REGISTER          FCC0514      135     A     
 GRA                                                                                       FCC0514      136     A     
 GRA      *         CANIDATE IN B-REG, SEE IF X-REG VALUE IS AVAILABLE                     FCC0514      137     A     
 GRA                                                                                       FCC0514      138     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3181    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA3    A1-2                                                            FCC0514      139     A     
 GRA                SB2    OC.SA       OC = OC.SA                                          FCC0514      140     A     
 GRA                LX2    -I.BRP                                                          FCC0514      141     A     
 GRA                SX7    X2          ORV = BR[LIP]                                       FCC0514      142     A     
 GRA                LX3    59-CA.EUP                                                       FCC0514      143     A     
 GRA                LX2    I.BRP                                                           FCC0514      144     A     
 GRA                PL     X3,APD4     IF ^EU[RCT(J)]  */ NO COPY MADE                     FCC0514      145     A     
 GRA                                                                                       FCC0514      146     A     
 GRA                MX7    1                                                               FCC0514      147     A     
 GRA                BX6    -X7*X2      INB[LIP] = 0  */ MAKE OLD B-VAL UNAVAILABLE         FCC0514      148     A     
 GRA                SA6    A2                                                              FCC0514      149     A     
 GRA                EQ     APD                                                             FCC0514      150     A     
 GRA                                                                                       FCC0514      151     A     
 GRA       APD3     SB2    OC.XMT      OC = OC.XMT                                         FCC0514      152     A     
 GRA                SX7    X2          ORV = XR[LIP] */ OLD R-NUM VALUE                    FCC0514      153     A     
 GRA                                                                                       FCC0514      154     A     
 GRA      *         NO COPY OF CANIDATE AVAILABLE, INSERT *XMT/SA* TO SAVE OLD             FCC0514      155     A     
 GRA      *         VALUE OF PREVIOUS DEF BEFORE LAST INSTRUCTION IN *TXT*.                FCC0514      156     A     
 GRA                                                                                       FCC0514      157     A     
 GRA       APD4     SX6    B6-B3       R = TI - 4                                          FCC0514      158     A     
 GRA                BX4    X6                                                              FCC0514      159     A     
 GRA                LX6    I.STP                                                           FCC0514      160     A     
 GRA                BX6    X4+X6       [LIP] = RNI(0,R,0,R)                                FCC0514      161     A     
 GRA                SA6    A2                                                              FCC0514      162     A     
 GRA                SA3    B7+X4       R1W = TXT(R)                                        FCC0514      163     A     
 GRA                SX2    B3                                                              FCC0514      164     A     
 GRA                IX6    X3+X2       RI[R1W] = RI[R1W] + 4                               FCC0514      165     A     
 GRA                LX7    R1.RJP                                                          FCC0514      166     A     
 GRA                SA6    B7+B6       TXT(TI) = R1W  */ MOVE LAST INST UP                 FCC0514      167     A     
 GRA                PX7    B2,X7                                                           FCC0514      168     A     
 GRA                BX7    X4+X7                                                           FCC0514      169     A     
 GRA                SA7    A3          TXT(R) = TYI(OC,ORV,0,R)*/ INSERT XMT/SA            FCC0514      170     A     
 GRA                SA3    A3+B1                                                           FCC0514      171     A     
 GRA                BX6    X3          TXT(TI+1) = TXT(R+1)                                FCC0514      172     A     
 GRA                SA6    A6+B1                                                           FCC0514      173     A     
 GRA                MX7    0                                                               FCC0514      174     A     
 GRA                SA7    A3          TXT(R+1) = 0                                        FCC0514      175     A     
 GRA                SA3    A3+B1                                                           FCC0514      176     A     
 GRA                BX6    X3          TXT(TI+2) = TXT(R+2)                                FCC0514      177     A     
 GRA                SA6    A6+B1                                                           FCC0514      178     A     
 GRA                SA7    A6+B1       TXT(TI+3) = 0                                       FCC0514      179     A     
 GRA                SA2    F.RDT+B2                                                        FCC0514      180     A     
 GRA                BX7    X2          TXT(R+2) = RDT(OC)                                  FCC0514      181     A     
 GRA                SA7    A3                                                              FCC0514      182     A     
 GRA                                                                                       FCC0514      183     A     
 GRA      *         ADJUST THE LINK WORD OF THE STORE PREDECESSOR                          FCC0514      184     A     
 GRA                                                                                       FCC0514      185     A     
 GRA                SA2    A0          LJW = [LJ]                                          FCC0514      186     A     
 GRA                BX4    X2          OLW = LJW     */ SAVE ORIGINAL LW                   FCC0514      187     A     
 GRA                SB2    36          SC = 36                                             FCC0514      188     A     
 GRA                SX7    B3                                                              FCC0514      189     A     
 GRA                SB6    B6-B3       TI = TI - 4                                         FCC0514      190     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3182    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA       APD5     AX3    B2,X2                                                           FCC0514      191     A     
 GRA                SB3    X3                                                              FCC0514      192     A     
 GRA                NE     B3,B6,APD6  IF RN[SHIFT(LJW,-SC)] " TI                          FCC0514      193     A     
 GRA                LX6    B2,X7                                                           FCC0514      194     A     
 GRA                IX2    X6+X2       LJW = LJW + SHIFT(4,SC)                             FCC0514      195     A     
 GRA       APD6     SB2    B2-18       SC = SC - 18                                        FCC0514      196     A     
 GRA                PL     B2,APD5     IF SC \ 0                                           FCC0514      197     A     
 GRA                                                                                       FCC0514      198     A     
 GRA                BX6    X2                                                              FCC0514      199     A     
 GRA                SA6    A2          [LJ] = LJW                                          FCC0514      200     A     
 GRA                SB6    B6+8        TI = TI + 8                                         FCC0514      201     A     
 GRA                                                                                       FCC0514      202     A     
 GRA                SA3    A0-3        R1P = LJ - 3  */ CHECK ST PRED                      FCC0514      203     A     
 GRA                SB3    OC.XMT                                                          FCC0514      204     A     
 GRA                UX7    B2,X3                                                           FCC0514      205     A     
 GRA                NE     B2,B3,APD   IF OC[R1P] " OC.XMT                                 FCC0514      206     A     
 GRA                LX3    -R1.RJP                                                         FCC0514      207     A     
 GRA                BX7    "RN"X3      R = RJ[R1P]                                         FCC0514      208     A     
 GRA                SA3    "SB"+X7     LJP = SB + R  */ PRED OF *XMT*                      FCC0514      209     A     
 GRA                BX7    X4-X3                                                           FCC0514      210     A     
 GRA                NZ     X7,APD      IF [LJP] " OLW  */ NOT OMITTED *XMT*                FCC0514      211     A     
 GRA                SA6    A3+         [LJP] = LJW   */ UPDATE LINK WORD OF PRED           FCC0514      212     A     
 GRA                EQ     APD                                                             FCC0514      213     A     
 GRA       PVC      EJECT                                                                  GRA         5851     A     
 GRA      **        PVC - PROCESS VALUE CANIDATE DEFINITION ( LD OR CON )                  GRA         5852     A     
 GRA                                                                                       GRA         5853     A     
 GRA       PVC      SA1    A1                                                              GRA         5854     A     
 GRA                LX1    59-CA.KDP                                                       GRA         5855     A     
 GRA                PL     X1,PVC1     IF ^KD[CAW]                                         GRA         5856     A     
 GRA                                                                                       GRA         5857     A     
 GRA                MX6    0                                                               GRA         5858     A     
 GRA                SA6    A4+B1       [DI+1] = 0                                          GRA         5859     A     
 GRA                EQ     IRA10                                                           GRA         5860     A     
 GRA                                                                                       GRA         5861     A     
 GRA       PVC1     SA2    A1+2        CCW = RCT(J+2)                                      GRA         5862     A     
 GRA                MX7    -CC.REG1L                                                       GRA         5863     A     
 GRA                LX2    -CC.REG1P                                                       GRA         5864     A     
 GRA                BX4    -X7*X2      REGNO = REG1[CCW]                                   GRA         5865     A     
 GRA                SA3    RVT+X4      R = RVT(REGNO)                                      GRA         5866     A     
 GRA                SX6    X4-8                                                            GRA         5867     A     
 GRA                PL     X6,PVC5     IF REGNO > 7                                        GRA         5868     A     
 GRA                                                                                       GRA         5869     A     
 GRA      *         CANIDATE IN A B-REGISTER                                               GRA         5870     A     
 GRA                                                                                       GRA         5871     A     
 GRA                LX1    1+CA.KDP                                                        GRA         5872     A     
 GRA                SX7    B6                                                              GRA         5873     A     
 GRA                LX3    I.BRP                                                           GRA         5874     A     
 GRA                BX6    X3+X7                                                           GRA         5875     A     
 GRA                LX7    I.STP                                                           GRA         5876     A     
 GRA                BX6    X6+X7                                                           GRA         5877     A     
 GRA                MX7    1                                                               GRA         5878     A     
 GRA                LX7    1+I.INBP                                                        GRA         5879     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3183    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                BX6    X7+X6                                                           GRA         5880     A     
 GRA                SA6    A5+3        [R1+3] = RNI(1,TI,R,TI)                             GRA         5881     A     
 GRA                LX1    59-CA.EUP                                                       GRA         5882     A     
 GRA                PL     X1,IRA10    IF ^EU[CAW]                                         GRA         5883     A     
 GRA                                                                                       GRA         5884     A     
 GRA                LX1    CA.EUP-CA.CONP                                                  GRA         5885     A     
 GRA                MX7    0                                                               GRA         5886     A     
 GRA                LX3    R1.RJP-I.BRP                                                    GRA         5887     A     
 GRA                SB2    OC.SA       OC = OC.SA                                          GRA         5888     A     
 GRA                PL     X1,PVC2     IF ^CON[CAW]                                        GRA         5889     A     
 GRA                                                                                       GRA         5890     A     
 GRA                SA1    A1+B1       C2W = RCT(J+1)                                      GRA         5891     A     
 GRA                LX5    IH.CAP-R1.INP                                                   GRA         5892     A     
 GRA                BX1    X5-X1                                                           GRA         5893     A     
 GRA                LX1    59-IH.CAP                                                       GRA         5894     A     
 GRA                PL     X1,PVC2     IF CA[C2W] = IN[R1]                                 GRA         5895     A     
 GRA                SB2    OC.SS                                                           GRA         5896     A     
 GRA                LX3    R1.RKP-R1.RJP                                                   GRA         5897     A     
 GRA       PVC2     SX6    B6                                                              GRA         5898     A     
 GRA                BX6    X6+X3                                                           GRA         5899     A     
 GRA                RJ     SRI         SRI(  SA  TI,R  /  SS  TI,,R )                      GRA         5900     A     
 GRA                EQ     IRA10                                                           GRA         5901     A     
 GRA                                                                                       GRA         5902     A     
 GRA      *         CANIDATE IN A X-REGISTER                                               GRA         5903     A     
 GRA                                                                                       GRA         5904     A     
 GRA       PVC5     SA2    A4                                                              GRA         5905     A     
 GRA                SX6    X4-26B                                                          GRA         5906     A     
 GRA                BX5    X3          RST = R       */ R-NUM IN A ST REG                  GRA         5907     A     
 GRA                LX2    59-D.PSP                                                        FCC2165        5     A     
 GRA                PL     X6,PVC6     IF REGNO > 25B  */ X6,X7                            GRA         5908     A     
 GRA                LX2    59-D.PSP                                                        GRA         5909          I
          -FCC2165
 GRA                SX5    B0          RST = 0                                             GRA         5910     A     
 GRA                PL     X2,PVC6     IF ^PS[DI]                                          GRA         5911     A     
 GRA                                                                                       GRA         5912     A     
 GRA                LX3    R1.RJP                                                          GRA         5913     A     
 GRA                SX5    B6          RST = TI                                            GRA         5914     A     
 GRA                MX7    0                                                               GRA         5915     A     
 GRA                BX6    X3+X5                                                           GRA         5916     A     
 GRA                LX3    -R1.RJP                                                         GRA         5917     A     
 GRA                TYPEI  XMT,X6      SRI(  XMT  TI,R )                                   GRA         5918     A     
 GRA                                                                                       GRA         5919     A     
 GRA       PVC6     LX5    I.STP                                                           GRA         5920     A     
 GRA                BX6    X5+X3                                                           GRA         5921     A     
 GRA                SA6    A5+3        [R1+3] = RNI(0,RST,0,R)                             GRA         5922     A     
 GRA                LX2    D.PSP-D.PRSP                                                    FCC0812        6     A     
 GRA                PL     X2,IRA10    IF ^PRS[DI]                                         FCC0812        7     A     
 GRA                                                                                       FCC0812        8     A     
 GRA                SA4    A5+7        LIRS = R1 + 7;  I = CO[LIRS]  */ RS LINK WD         FCC0812        9     A     
 GRA                SA1    B4+X4       CAW = RCT(I)                                        FCC0812       10     A     
 GRA                LX1    59-CA.IRAP                                                      FCC0812       11     A     
 GRA                MI     X1,IRA10    IF IRA[CAW]   */ RS IS TO BE MOVED OUT              FCC0812       12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3184    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       FCC0812       13     A     
 GRA                MX7    0                                                               FCC0812       14     A     
 GRA                TYPEI  XMT,B6,X3   SRI(  XMT  TI,R )  */ OUTPUT XMT FOR *RS*           FCC0812       15     A     
 GRA                EQ     IRA10                                                           GRA         5923     A     
 GRA       PAC      SPACE  3,24                                                            GRA         5924     A     
 GRA      **        PAC - PROCESS ADDRESS CANIDATE, MIT = 1,2,3                            GRA         5925          I
          -FCC0646
 GRA      **        PAC - PROCESS ADDRESS CANIDATE, MIT = 1 - 4                            FCC0646       22     A     
 GRA      *                                                                                GRA         5926     A     
 GRA      *         ENTRY  (B2) = OC.LD, OC.ST, OC.STT                                     GRA         5927     A     
 GRA                                                                                       GRA         5928     A     
 GRA       PAC0     SB2    OC.ST                                                           GRA         5929     A     
 GRA                                                                                       GRA         5930     A     
 GRA       PAC      SA1    A1+2        CCW = RCT(J+2)                                      GRA         5931     A     
 GRA                SB2    B2-OC.LD    MODE = OC[R1] - OC.LD                               GRA         5932     A     
 GRA                MX7    -CC.REG1L                                                       GRA         5933     A     
 GRA                LX1    -CC.REG1P                                                       GRA         5934     A     
 GRA                BX2    -X7*X1      REGN1 = REG1[CCW]                                   GRA         5935     A     
 GRA                LX1    CC.REG1P-CC.MITP                                                GRA         5936     A     
 GRA                BX3    -X7*X1      IT = MIT[CCW]                                       GRA         5937     A     
 GRA                SA0    X3                                                              GRA         5938     A     
 GRA                LX1    CC.MITP-CC.REG2P                                                GRA         5939     A     
 GRA                BX7    -X7*X1      REGN2 = REG2[CCW]                                   GRA         5940     A     
 GRA                SA4    PACA+B2     OCW = PACA(MODE)                                    GRA         5941     A     
 GRA                LX3    4                                                               GRA         5942          I
          -FCC0646
 GRA                MX6    -12                                                             GRA         5943          I
          -FCC0646
 GRA                LX3    3                                                               FCC0646       23     A     
 GRA                MX6    -8                                                              FCC0646       24     A     
 GRA                BX3    -X6*X3      IT = IT & 37B                                       FCC0977       32     A     
 GRA                SB3    X3                                                              GRA         5944     A     
 GRA                LX1    B3,X4                                                           GRA         5945     A     
 GRA                BX6    -X6*X1      NOC = SHIFT(OCW,16*IT) & 7777B                      GRA         5946          I
          -FCC0646
 GRA                BX6    -X6*X1      NOC = SHIFT(OCW,8*IT) & 377B                        FCC0646       25     A     
 GRA                SB3    X6                                                              GRA         5947     A     
 GRA                SX6    B6+         R = TI                                              GRA         5948     A     
 GRA                SA6    A5+3        [R1+3] = R                                          GRA         5949     A     
 GRA                                                                                       GRA         5950     A     
 GRA                ZR     B2,PAC1     IF MODE = 0   */ LD                                 GRA         5951     A     
 GRA                NE     B2,B1,PAC3  IF MODE " 1   */ NOT ST                             GRA         5952     A     
 GRA                BX5    "RN"X5                                                          GRA         5953     A     
 GRA                SA3    "SB"+X5     LIW = [SB+RI[R1]]                                   GRA         5954     A     
 GRA                LX3    -I.STP                                                          GRA         5955     A     
 GRA                SX6    X3          R = ST[LIW]                                         GRA         5956     A     
 GRA                                                                                       GRA         5957     A     
 GRA      *         REFORM REFERENCE AS A TYPE I INSTRUCTION                               GRA         5958     A     
 GRA                                                                                       GRA         5959     A     
 GRA       PAC1     SA3    RVT+X7                                                          GRA         5960          I
          -FCC0646
 GRA                SA2    RVT+X2                                                          GRA         5961          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3185    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
          -FCC0646
 GRA       PAC1     SX4    A0-4                                                            FCC0646       26     A     
 GRA                ZR     X4,PAC4     IF IT = 4                                           FCC0646       27     A     
 GRA                                                                                       FCC0646       28     A     
 GRA      *         IT = 1 - 3 , RJ,RK ARE FROM *RVT*                                      FCC0646       29     A     
 GRA                                                                                       FCC0646       30     A     
 GRA                SA3    RVT+X7      K = RVT(REGN2)                                      FCC0646       31     A     
 GRA                SA2    RVT+X2      J = RVT(REGN1)                                      FCC0646       32     A     
 GRA                SA4    A5+B1       R2 = R1 + 1                                         GRA         5962     A     
 GRA                LX3    R1.RKP                                                          GRA         5963     A     
 GRA                BX6    X3+X6                                                           GRA         5964     A     
 GRA                LX2    R1.RJP                                                          GRA         5965     A     
 GRA                BX6    X2+X6                                                           GRA         5966     A     
 GRA                LX4    -IH.RFP                                                         GRA         5967     A     
 GRA                SX1    B1          ZB = 1        */ ZP BIT                             GRA         5968     A     
 GRA                BX7    "RN"X4      F = RF[R2]                                          GRA         5969     A     
 GRA                SA3    "SB"+X7     LFW = [SB+F]                                        GRA         5970     A     
 GRA                ZR     X7,PAC2     IF F = 0      */ NO RF OR A0                        GRA         5971     A     
 GRA                                                                                       GRA         5972     A     
 GRA                SX1    B0          ZB = 0                                              GRA         5973     A     
 GRA                PL     X3,PAC2     IF ^INB[LFW]                                        GRA         5974     A     
 GRA                LX2    -R1.RJP                                                         GRA         5975     A     
 GRA                SX3    X2          LFW = RVT(REGN1)  */ USE *RF* FROM RVT              GRA         5976     A     
 GRA                                                                                       GRA         5977     A     
 GRA       PAC2     BX4    X0*X4                                                           GRA         5978     A     
 GRA                SX3    X3                                                              GRA         5979     A     
 GRA                LX1    D.ZPP                                                           GRA         5980     A     
 GRA                BX7    X3+X4       RF[R2W] = SETX(LFW)                                 GRA         5981     A     
 GRA                SA2    F.RDT+B3    D = RDT(NOC)                                        GRA         5982     A     
 GRA                LX7    IH.RFP                                                          GRA         5983     A     
 GRA                BX4    X2+X1       ZP[D] = ZB                                          GRA         5984          I
          -FCC0977
 GRA                PX6    B3,X6                                                           GRA         5985          I
          -FCC0646  -FCC0977
 GRA                PX6    B3,X6       R1W = TYI(NOC,J,K,R)                                FCC0646       33          I
          -FCC0977
 GRA                SX3    A0                                                              FCC0977       33     A     
 GRA                BX4    X2+X1       ZP[D] = ZB                                          FCC0977       34     A     
 GRA                AX3    5                                                               FCC0977       35     A     
 GRA                PX6    B3,X6       R1W = TYI(NOC,J,K,R)                                FCC0977       36     A     
 GRA                LX3    IH.SRFP                                                         FCC0977       37     A     
 GRA                BX7    X3+X7       SRF[R2W] = IT & 40B                                 FCC0977       38     A     
 GRA                EQ     TYIT                                                            GRA         5986     A     
 GRA                                                                                       GRA         5987     A     
 GRA      *         STT - SETUP LINK WORD AND CHECK FOR SPECIAL CASE                       GRA         5988     A     
 GRA                                                                                       GRA         5989     A     
 GRA       PAC3     LX6    I.STP                                                           GRA         5990     A     
 GRA                SX4    B6                                                              GRA         5991     A     
 GRA                BX6    X4+X6                                                           GRA         5992     A     
 GRA                SA6    A6          [R1+3] = RNI(0,TI,0,TI)                             GRA         5993     A     
 GRA                SX1    A0-B1                                                           GRA         5994     A     
 GRA                SX6    B6          R = TI                                              GRA         5995     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3186    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                NZ     X1,PAC1     IF IT " 1     */ NOT SPECIAL CASE                   GRA         5996     A     
 GRA                                                                                       GRA         5997     A     
 GRA      *         IT = 1, PARTIALLY MODIFIED *STT* FROM *PSC*, *CA* IS FROM              GRA         5998     A     
 GRA      *         *RCT* AND *RF* IS RVT(REGN1)                                           GRA         5999     A     
 GRA                                                                                       GRA         6000     A     
 GRA                SA1    A1-B1       C2W = RCT(J+1)                                      GRA         6001     A     
 GRA                SA2    RVT+X2                                                          GRA         6002     A     
 GRA                MX3    -IH.CAL                                                         GRA         6003     A     
 GRA                PX6    B3,X6       R1W = TYII(OC.STT,0,0,TI)                           GRA         6004     A     
 GRA                LX3    IH.CAP                                                          GRA         6005     A     
 GRA                SA4    F.RDT+B3    D = RDT(NOC)                                        GRA         6006     A     
 GRA                BX3    -X3*X1                                                          GRA         6007     A     
 GRA                LX2    IH.RFP                                                          GRA         6008     A     
 GRA                BX7    X2+X3       R2W = IHW(0,RVT(REGN1),CA[C2W],0)                   GRA         6009     A     
 GRA                EQ     TYIT                                                            GRA         6010     A     
 GRA                                                                                       FCC0646       34     A     
 GRA      *         IT = 4 , GET RJ FROM LINK WORK OF RF IN *SEQ*.                         FCC0646       35     A     
 GRA                                                                                       FCC0646       36     A     
 GRA       PAC4     SA4    A5+B1       R2 = R1 + 1                                         FCC0646       37     A     
 GRA                LX4    -IH.RFP                                                         FCC0646       38     A     
 GRA                BX5    "RN"X4      F = RF[R2]                                          FCC0646       39     A     
 GRA                BX4    X0*X4                                                           FCC0646       40     A     
 GRA                NZ     X5,PAC5     IF F " 0                                            FCC0646       41     A     
 GRA                                                                                       FCC0646       42     A     
 GRA                SA2    RVT+X2      J = RVT(REGN1)                                      FCC0646       43     A     
 GRA                MX3    0           K = 0                                               FCC0646       44     A     
 GRA                SX1    B1          ZB = 1                                              FCC0646       45     A     
 GRA                EQ     PAC8                                                            FCC0646       46     A     
 GRA                                                                                       FCC0646       47     A     
 GRA       PAC5     SA3    "SB"+X5     LFW = [SB+F]                                        FCC0646       48     A     
 GRA                PL     X3,PAC6     IF ^INB[LFW]                                        FCC0646       49     A     
 GRA                LX3    -I.BRP      LFW = SHIFT(LFW,-I.BRP)                             FCC0646       50     A     
 GRA       PAC6     SX5    X3          F = SETX(LFW)                                       FCC0646       51     A     
 GRA                SA3    RVT+X7      K = RVT(REGN2)                                      FCC0646       52     A     
 GRA                SX1    B0          ZB = 0                                              FCC0646       53     A     
 GRA                NZ     X7,PAC7     IF REGN2 " 0  */ RF IS IN *RCT*                     FCC0646       54     A     
 GRA                SA3    RVT+X2      K = RVT(REGN1)                                      FCC0646       55     A     
 GRA       PAC7     SX2    X5+         J = F                                               FCC0646       56     A     
 GRA                                                                                       FCC0646       57     A     
 GRA       PAC8     BX7    X4+X5       RF[R2W] = F                                         FCC0646       58     A     
 GRA                SA4    F.RDT+B3    D = RDT(NOC)                                        FCC0646       59     A     
 GRA                LX7    IH.RFP                                                          FCC0646       60     A     
 GRA                LX2    R1.RJP                                                          FCC0646       61     A     
 GRA                LX3    R1.RKP                                                          FCC0646       62     A     
 GRA                BX2    X2+X3                                                           FCC0646       63     A     
 GRA                BX5    X2+X6                                                           FCC0646       64     A     
 GRA                PX6    B3,X5       R1W = TYI(NOC,J,K,R)                                FCC0646       65     A     
 GRA                LX1    D.ZPP                                                           FCC0646       66     A     
 GRA                BX4    X1+X4       ZP[D] = ZB                                          FCC0646       67     A     
 GRA                EQ     TYIT                                                            FCC0646       68     A     
 GRA                                                                                       GRA         6011     A     
 GRA       OPT      MACRO  A,B,C                                                           GRA         6012     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3187    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                VFD    16/OC.A,16/OC.B,16/OC.C,12/                                     GRA         6013          I
          -FCC0646
 GRA                VFD    8/OC.A,8/OC.B,8/OC.C,8/OC.B,28/0                                FCC0646       69     A     
 GRA                ENDM                                                                   GRA         6014     A     
 GRA                                                                                       GRA         6015     A     
 GRA       PACA     BSS    0                                                               GRA         6016     A     
 GRA                OPT    PLD,SLD,SDL                                                     GRA         6017     A     
 GRA                OPT    PST,SST,SDS                                                     GRA         6018     A     
 GRA                OPT    STT,SA,SS                                                       GRA         6019     A     
 GRA       CUC      TITLE  CUC - COLLECT USES COUNTS, SET PRECEDENCE BITS                  GRA         6020     A     
 GRA      **        CUC - COLLECT USES COUNTS, SET PRECEDENCE BITS AND REMOVE              GRA         6021     A     
 GRA      *         DEAD ( USELESS ) DEFINITIONS FROM A SEQUENCE IN *TXT*.                 GRA         6022     A     
 GRA      *                                                                                GRA         6023     A     
 GRA      *         ENTRY  *TXT* - RLIST INSTRUCTION SEQUENCE WITH R-NUMBERS IN            GRA         6024     A     
 GRA      *                CANONICAL FORM.                                                 GRA         6025     A     
 GRA      *                                                                                GRA         6026     A     
 GRA      *         EXIT   USES, PS,PRS, RJRS FIELDS ADJUSTED AND USELESS                  GRA         6027     A     
 GRA      *                DEFINITIONS REMOVED FROM THE SEQUENCE.                          GRA         6028     A     
 GRA      *                                                                                GRA         6029     A     
 GRA      *         *CUC* MAY BE CALLED AFTER A SEQUENCE HAS BEEN MODIFIED BY              GRA         6030     A     
 GRA      *         DELETION OR SUBSTITUTION IN SUCH A WAY AS NOT TO INTRODUCE             GRA         6031     A     
 GRA      *         REDUNDANT INSTRUCTIONS.                                                GRA         6032     A     
 GRA      *         NOTE THAT THE ZP, FP, L2 AND SZ BITS ARE NOT ADJUSTED HERE,            GRA         6033     A     
 GRA      *         AND MUST BE PRESERVED BY PREVIOUS PROCESSORS.                          GRA         6034     A     
 GRA      *                                                                                GRA         6035     A     
 GRA      *         *CUC* CONSISTS OF A BACKWARDS SCAN TO COLLECT USES AND                 GRA         6036     A     
 GRA      *         SET PRECEDENCE BITS, OPTIONALLY FOLLOWED BY A FOWARD SCAN TO           GRA         6037     A     
 GRA      *         COMPRESS THE SEQUENCE IF DEAD DEFINITIONS WERE ENCOUNTERED.            GRA         6038     A     
 GRA                                                                                       GRA         6039     A     
 GRA                ENTRY  CUC                                                             GRA         6040     A     
 GRA                QUAL   CUC                                                             GRA         6041     A     
 GRA                                                                                       GRA         6042     A     
 GRA       CUCA     BFMW   D,(^D,RJRS,PI,USES)                                             GRA         6043     A     
 GRA                                                                                       GRA         6044     A     
 GRA       CUC      ROUTINE                                                                GRA         6045     A     
 GRA                SA2    O.TXT                                                           GRA         6046     A     
 GRA                SA3    L.TXT                                                           GRA         6047     A     
 GRA                SA1    CUCA                                                            GRA         6048     A     
 GRA                SB2    B1+B1                                                           GRA         6049     A     
 GRA                S"TB"  X2+B2       TB = O.TXT + 2                                      GRA         6050     A     
 GRA                SB6    D.PSP                                                           GRA         6051     A     
 GRA                MX0    -R1.RIL+1                                                       GRA         6052     A     
 GRA                SA0    B0          DD = 0        */ ADDRESS OF FIRST DEAD DEF          GRA         6053     A     
 GRA                LX0    1                                                               GRA         6054     A     
 GRA                IX6    X2+X3                                                           GRA         6055     A     
 GRA                SA5    X6-4        R1 = O.TXT + L.TXT - 4                              GRA         6056     A     
 GRA                MX7    0           [DI+1] = 0                                          GRA         6057     A     
 GRA                SA7    "TB"+B1     [TB+1] = 0    */ CLEAR LINK WD OF *BOS*             GRA         6058     A     
 GRA                EQ     CUC1                                                            GRA         6059     A     
 GRA       TYI      SPACE  3,14                                                            GRA         6060     A     
 GRA                PROCESS (PST,SST,SDS)                                                  GRA         6061     A     
 GRA                BX4    "RN"X5                                                          GRA         6062     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3188    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                SA3    "TB"+X4     DIP = TB + RI[R1]                                   GRA         6063     A     
 GRA                LX6    B6,X7                                                           GRA         6064     A     
 GRA                IX2    X7+X3       USES[DIP] = USES[DIP] + 1                           GRA         6065     A     
 GRA                BX6    X2+X6       PS[DIP] = 1                                         GRA         6066     A     
 GRA                SA6    A3+                                                             GRA         6067     A     
 GRA                                                                                       GRA         6068     A     
 GRA      *         TYPE I INSTRUCTION PROCESSING                                          GRA         6069     A     
 GRA                                                                                       GRA         6070     A     
 GRA       TYI      LX5    -R1.RJP                                                         GRA         6071     A     
 GRA                BX6    "RN"X5                                                          GRA         6072     A     
 GRA                SA3    "TB"+X6     DJ = TB + RJ[R1]                                    GRA         6073     A     
 GRA                LX5    R1.RJP-R1.RKP                                                   GRA         6074     A     
 GRA                IX6    X3+X7       USES[DJ] = USES[DJ] + 1                             GRA         6075     A     
 GRA                SA6    A3+                                                             GRA         6076     A     
 GRA                BX5    "RN"X5                                                          GRA         6077     A     
 GRA                SA2    "TB"+X5     DK = TB + R5[R1]                                    GRA         6078     A     
 GRA                IX6    X2+X7       USES[DK] = USES[DK] + 1                             GRA         6079     A     
 GRA                SA6    A2+                                                             GRA         6080     A     
 GRA                                                                                       GRA         6081     A     
 GRA      *         ADVANCE TO NEXT INSTRUCTION, CHECK FOR USELESS DEFINITIONS             GRA         6082     A     
 GRA                                                                                       GRA         6083     A     
 GRA                PROCESS (LAB,ENT,UJP,RJ3,RJ6,S,FMA,CLR)                                GRA         6084     A     
 GRA                                                                                       GRA         6085     A     
 GRA       CUC1     SA4    A5-B2       DI = R1 - 2                                         GRA         6086     A     
 GRA                SA5    A4-B2       R1 = DI - 2                                         GRA         6087     A     
 GRA                BX6    X1*X4                                                           GRA         6088     A     
 GRA                UX2    B3,X5                                                           GRA         6089     A     
 GRA                SA3    CUC.JT+B3                                                       GRA         6090     A     
 GRA                ZR     X6,CUC2     IF ^(^D,PI,RJRS)[DI] & USES[DI] = 0                 GRA         6091     A     
 GRA                                                                                       GRA         6092     A     
 GRA                SB4    X3                                                              GRA         6093     A     
 GRA                SX7    B1                                                              GRA         6094     A     
 GRA                JP     B4          JUMP( ([UC.JT( OC[R1] )] )                          GRA         6095     A     
 GRA                                                                                       GRA         6096     A     
 GRA                PROCESS DAR                                                            GRA         6097     A     
 GRA                MX3    -D.USESL                                                        GRA         6098     A     
 GRA                BX6    -X3*X4                                                          GRA         6099     A     
 GRA                NZ     X6,TYI      IF USES[DI] " 0                                     GRA         6100     A     
 GRA                                                                                       GRA         6101     A     
 GRA      *         USELESS DEF, MARK AS DEAD                                              GRA         6102     A     
 GRA                                                                                       GRA         6103     A     
 GRA       CUC2     SA6    A4          [DI] = 0                                            GRA         6104     A     
 GRA                SA0    A5          DD = R1                                             GRA         6105     A     
 GRA                EQ     CUC1                                                            GRA         6106     A     
 GRA                                                                                       GRA         6107     A     
 GRA                PROCESS EOS                                                            GRA         6108     A     
 GRA                SX7    X5                                                              GRA         6109     A     
 GRA                ZR     X7,CUC1     IF IH[R1] = 0 */ NOT AN OPT=2 *EOS*                 GRA         6110     A     
 GRA                                                                                       GRA         6111     A     
 GRA                PROCESS NOP                                                            GRA         6112     A     
 GRA                MX6    0                                                               GRA         6113     A     
 GRA                EQ     CUC2                                                            GRA         6114     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3189    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       GRA         6115     A     
 GRA                PROCESS DWL                                                            GRA         6116     A     
 GRA                BX4    "RN"X5                                                          GRA         6117     A     
 GRA                SA3    "TB"+X4     DIP = TB + RI[R1]                                   GRA         6118     A     
 GRA                IX6    X3+X7       USES[DIP] = USES[DIP] + 1                           GRA         6119     A     
 GRA                SA6    A3                                                              GRA         6120     A     
 GRA                EQ     TYI                                                             GRA         6121     A     
 GRA                                                                                       GRA         6122     A     
 GRA                PROCESS (UP,NR,RNZ)                                                    GRA         6123     A     
 GRA                LX5    -R1.RKP                                                         GRA         6124     A     
 GRA                BX4    "RN"X5                                                          GRA         6125     A     
 GRA                SA3    "TB"+X4     DK = TB + RK[R1]                                    GRA         6126     A     
 GRA                IX6    X3+X7       USES[DK] = USES[DK] + 1                             GRA         6127     A     
 GRA                SA6    A3                                                              GRA         6128     A     
 GRA                EQ     CUC1                                                            GRA         6129     A     
 GRA       RS       SPACE  3,14                                                            GRA         6130     A     
 GRA                PROCESS RS                                                             GRA         6131     A     
 GRA                LX5    -R1.SOP-SO.LKP                                                  GRA         6132     A     
 GRA                MX3    -SO.LKL                                                         GRA         6133     A     
 GRA                SA2    A5-B2       DIP = R1 - 2                                        GRA         6134     A     
 GRA                BX6    -X3*X5                                                          GRA         6135     A     
 GRA                MX3    -D.USESL                                                        GRA         6136     A     
 GRA                SB3    X6          LKT = SOLK[R1]                                      GRA         6137     A     
 GRA                GT     B3,B2,RS2   IF LKT = 3    */ RJ RS                              GRA         6138     A     
 GRA                                                                                       GRA         6139     A     
 GRA                LX7    D.PRSP                                                          GRA         6140     A     
 GRA                BX6    X7+X2       PRS[DIP] = 1                                        GRA         6141     A     
 GRA                LX7    D.PSP-D.PRSP                                                    GRA         6142     A     
 GRA                BX6    -X7*X6      PS[DIP] = 0                                         GRA         6143     A     
 GRA                EQ     B3,B1,RS1   IF LKT = 1    */ TEMP LOCK                          GRA         6144     A     
 GRA                                                                                       GRA         6145     A     
 GRA                SX7    B1                                                              GRA         6146     A     
 GRA                IX6    X6+X7       USES[DIP] = USES[DIP] + 1                           GRA         6147     A     
 GRA                SA6    A2                                                              GRA         6148     A     
 GRA                EQ     CUC1                                                            GRA         6149     A     
 GRA                                                                                       GRA         6150     A     
 GRA       RS1      BX7    -X3*X2                                                          GRA         6151     A     
 GRA                SA6    A2                                                              GRA         6152     A     
 GRA                NZ     X7,CUC1     IF USES[DIP] " 0                                    GRA         6153     A     
 GRA                                                                                       GRA         6154     A     
 GRA                SA7    A4          [DI] = 0                                            GRA         6155     A     
 GRA                SA7    A2          [DIP] = 0                                           GRA         6156     A     
 GRA                SA5    A2-B2       R1 = DIP - 2                                        GRA         6157     A     
 GRA                SA0    A2-B2       DD = R1                                             GRA         6158     A     
 GRA                EQ     CUC1                                                            GRA         6159     A     
 GRA                                                                                       GRA         6160     A     
 GRA       RS2      BX6    -X3*X4                                                          GRA         6161     A     
 GRA                LX7    D.RJRSP                                                         GRA         6162     A     
 GRA                ZR     X6,RS3      IF USES[DI] = 0                                     GRA         6163     A     
 GRA                BX6    X7+X2       RJRS[DIP] = 1                                       GRA         6164     A     
 GRA                SA6    A2                                                              GRA         6165     A     
 GRA                EQ     CUC1                                                            GRA         6166     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3190    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                                                                                       GRA         6167     A     
 GRA       RS3      SA6    A4          [DI] = 0                                            GRA         6168     A     
 GRA                SA0    A5          DD = R1                                             GRA         6169     A     
 GRA                SA3    A2-B2                                                           GRA         6170     A     
 GRA                BX7    -X7*X2      RJRS[DIP] = 0                                       GRA         6171     A     
 GRA                LX0    R1.RJP                                                          GRA         6172     A     
 GRA                SA7    A2                                                              GRA         6173     A     
 GRA                BX6    X0*X3       RJ[R1-4] = 0                                        GRA         6174     A     
 GRA                LX0    -R1.RJP                                                         GRA         6175     A     
 GRA                SA6    A3                                                              GRA         6176     A     
 GRA                EQ     CUC1                                                            GRA         6177     A     
 GRA       DEF      SPACE  2                                                               GRA         6178     A     
 GRA                PROCESS DEF                                                            GRA         6179     A     
 GRA                LX7    D.PSP                                                           GRA         6180     A     
 GRA                BX6    -X7*X4      PS[DI] = 0                                          GRA         6181     A     
 GRA                SA6    A4                                                              GRA         6182     A     
 GRA                EQ     CUC1                                                            GRA         6183     A     
 GRA       BOS      SPACE  3,20                                                            GRA         6184     A     
 GRA                PROCESS BOS                                                            GRA         6185     A     
 GRA                MX1    -D.USESL                                                        GRA         6186     A     
 GRA                BX6    X1*X4       USES[DI] = 0                                        GRA         6187     A     
 GRA                SA6    A4                                                              GRA         6188     A     
 GRA                SB6    A0          DI = DD                                             GRA         6189     A     
 GRA                ZR     B6,CUC      IF SI = 0     */ NO USELESS DEFS                    GRA         6190     A     
 GRA                                                                                       GRA         6191     A     
 GRA      *         COMPRESS SEQUENCE TO REMOVE USELESS INSTRUCTIONS                       GRA         6192     A     
 GRA                                                                                       GRA         6193     A     
 GRA                SA4    A0+B2       DI = DD + 2                                         GRA         6194     A     
 GRA                SB4    B2+B2                                                           GRA         6195     A     
 GRA                                                                                       GRA         6196     A     
 GRA       BOS1     SA4    A4+B4       DI = DI + 4                                         GRA         6197     A     
 GRA                ZR     X4,BOS1     IF [DI] = 0                                         GRA         6198     A     
 GRA                                                                                       GRA         6199     A     
 GRA                SA5    A4-B2       R1 = DI - 2                                         GRA         6200     A     
 GRA                SA3    A4-B1       R2 = DI - 1                                         GRA         6201     A     
 GRA                BX6    X4                                                              GRA         6202     A     
 GRA                UX2    B3,X5                                                           GRA         6203     A     
 GRA                SA6    B6+B2       [SI+2] = [DI]                                       GRA         6204     A     
 GRA                BX7    X5                                                              GRA         6205     A     
 GRA                SA7    B6          [SI] = [R1]                                         GRA         6206     A     
 GRA                BX6    X3                                                              GRA         6207     A     
 GRA                SA6    B6+B1       [SI+1] = [R2]                                       GRA         6208     A     
 GRA                SB6    B6+B4       SI = SI + 4                                         GRA         6209     A     
 GRA                NZ     B3,BOS1     IF OC[R1] " 0                                       GRA         6210     A     
 GRA                                                                                       GRA         6211     A     
 GRA                SB5    "TB"-B2                                                         GRA         6212     A     
 GRA                SX7    B6-B5       L.TXT = SI - O.TXT                                  GRA         6213     A     
 GRA                SA7    L.TXT                                                           GRA         6214     A     
 GRA                SX1    A5-B5       OTL = R1 - O.TXT  */ OLD LENGTH                     GRA         6215     A     
 GRA                ALLOC  RND,X1      ALLOC( RND , OTL )                                  GRA         6216     A     
 GRA                SA4    O.TXT                                                           GRA         6217     A     
 GRA                SB7    X2                                                              GRA         6218     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3191    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                MX2    0                                                               GRA         6219     A     
 GRA                SA0    X4                                                              GRA         6220     A     
 GRA                CALL   RNI         RENUMBER THE INSTRUCTIONS                           GRA         6221     A     
 GRA                SX6    0                                                               GRA         6222     A     
 GRA                SA6    L.RND       L.RND = 0                                           GRA         6223     A     
 GRA                EQ     CUC                                                             GRA         6224     A     
 GRA       TYIII    SPACE  3,14                                                            GRA         6225     A     
 GRA                PROCESS (ST,TST)                                                       GRA         6226     A     
 GRA                BX5    "RN"X5                                                          GRA         6227     A     
 GRA                SA3    "TB"+X5     DIP = TB + RI[R1]                                   GRA         6228     A     
 GRA                LX6    B6,X7                                                           GRA         6229     A     
 GRA                IX2    X3+X7       USES[DIP] = USES[DIP] + 1                           GRA         6230     A     
 GRA                BX6    X6+X2       PS[DIP] = 1                                         GRA         6231     A     
 GRA                SA6    A3                                                              GRA         6232     A     
 GRA                                                                                       GRA         6233     A     
 GRA                PROCESS (LD,ILD,TLD,STT,KLS,KRS)                                       GRA         6234     A     
 GRA                SA3    A5+B1       R2 = R1 + 1                                         GRA         6235     A     
 GRA                LX3    -IH.RFP                                                         GRA         6236     A     
 GRA                BX6    "RN"X3                                                          GRA         6237     A     
 GRA                SA2    "TB"+X6     DJ = TB + RF[R2]                                    GRA         6238     A     
 GRA                IX6    X2+X7       USES[DJ] = USES[DJ] + 1                             GRA         6239     A     
 GRA                SA6    A2                                                              GRA         6240     A     
 GRA                EQ     CUC1                                                            GRA         6241     A     
 GRA       JPX      SPACE  2,14                                                            GRA         6242     A     
 GRA                PROCESS JPBB                                                           GRA         6243     A     
 GRA                SA3    A5+B1       R2 = R1 + 1                                         GRA         6244     A     
 GRA                LX3    -IH.RFP                                                         GRA         6245     A     
 GRA                BX6    "RN"X3                                                          GRA         6246     A     
 GRA                SA2    "TB"+X6     DJ = TB + RF[R2]                                    GRA         6247     A     
 GRA                IX6    X2+X7       USES[DJ] = USES[DJ] + 1                             GRA         6248     A     
 GRA                SA6    A2                                                              GRA         6249     A     
 GRA                                                                                       GRA         6250     A     
 GRA                PROCESS (JIN,JPX)                                                      GRA         6251     A     
 GRA                BX5    "RN"X5                                                          GRA         6252     A     
 GRA                SA3    "TB"+X5     DIP = TB + RI[R1]                                   GRA         6253     A     
 GRA                IX6    X3+X7       USES[DIP] = USES[DIP] + 1                           GRA         6254     A     
 GRA                SA6    A3                                                              GRA         6255     A     
 GRA                EQ     CUC1                                                            GRA         6256     A     
 GRA                                                                                       GRA         6257     A     
 GRA                QUAL                                                                   GRA         6258     A     
 GRA       IRA      EQU    /IRA/IRA                                                        GRA         6259     A     
 GRA       CUC      EQU    /CUC/CUC                                                        GRA         6260     A     
 GRA       OPR      SPACE  2,14                                                            GRA         6261     A     
 GRA      **        OPR - DEFINE MACRO TO CREATE COMBINED JUMP TABLE FOR *IRA/CUC*         GRA         6262     A     
 GRA                                                                                       GRA         6263     A     
 GRA                MACRO  OPR,NAM,SS                                                      GRA         6264     A     
 GRA                NOREF  /IRA/.NAM,/CUC/.NAM                                             GRA         6265     A     
 GRA       TYP      MICRO  4,1,$SS$                                                        GRA         6266     A     
 GRA       O        IF     DEF,/IRA/.NAM                                                   GRA         6267     A     
 GRA                EQ     /IRA/.NAM           NAM                                         GRA         6268     A     
 GRA       O        ELSE                                                                   GRA         6269     A     
 GRA                IFC    EQ,/"TYP"/ /,2                                                  GRA         6270     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3192    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
 GRA                EQ     /IRA/TYI    NAM                                                 GRA         6271     A     
 GRA                SKIP   1                                                               GRA         6272     A     
 GRA                EQ     ERROR                                                           GRA         6273     A     
 GRA       O        ENDIF                                                                  GRA         6274     A     
 GRA      *                                                                                GRA         6275     A     
 GRA       O        IF     DEF,/CUC/.NAM                                                   GRA         6276     A     
 GRA      -         JP     /CUC/.NAM           NAM                                         GRA         6277     A     
 GRA       O        ELSE                                                                   GRA         6278     A     
 GRA                IFC    EQ,/"TYP"/ /,2                                                  GRA         6279     A     
 GRA      -         JP     /CUC/TYI    NAM                                                 GRA         6280     A     
 GRA                SKIP   1                                                               GRA         6281     A     
 GRA      -         JP     377777B                                                         GRA         6282     A     
 GRA       O        ENDIF                                                                  GRA         6283     A     
 GRA                ENDM                                                                   GRA         6284     A     
 GRA                                                                                       GRA         6285     A     
 GRA       IRA.JT   BSS    0                                                               GRA         6286     A     
 GRA       CUC.JT   BSS    0                                                               GRA         6287     A     
 GRA      *CALL     OPRDEFS                                                                GRA         6288     A     
 GRA                                                                                       GRA         6289     A     
 GRA                END                                                                    GRA         6290     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - GRA     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          GRA                       6290      5754
          FCC0392                      9         8
          FCC0414                     77        75
          FCC0448                     74        38
          FCC0513                     31        28
          FEAT121A                     2         2
          FCC0514                    117       116
          FCC0535                      9         9
          FCC0594                     20        17
          FCC0603                     80        76
          FCC0645                     24        24
          FCC0646                     56        55
          FCC0651                     12        12
          FCC0656                      3         3
          FCC0675                     66        65
          FCC0735                     22        22
          FCC0764                     15        15
          FCC0811                     40        40
          FCC0812                     10        10
          FCC0814                      3         3
          FCC0839                      3         3
          FCC0882                      4         4
          FCC0912                     26        26
          FCC0919                      4         4
          FCC0777                      6         6
          FCC0909                     50        50
          FCC0914                     88        88
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3193    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GRA     
  
          FCC0977                     31        31
          FCC1014                    100       100
          FCC0985                     51        41
          FCC1039                     28        28
          FCC1040                      6         6
          FCC1107                      7         7
          FCC1127                     24        24
          FCC1196                      6         6
          FCC1227                      9         8
          FCC1491X                     4         4
          FCC1518X                    12        10
          FCC1531X                     3         3
          FCC1568X                     3         3
          FCC1626X                     5         5
          FCC1644X                    16        16
          FCC1646X                    21        21
          FCC1740X                    12        12
          FCC1770X                    12        12
          FCC1828X                     4         4
          FCC1918                      3         3
          FCC1997                     11        11
          FCC2051                     14        13
          FCC2056                     10        10
          FCC2074                      8         8
          FCC2092                      3         3
          FCC2165                      1         1
          FCC2124                     83        83
          FCC2135                     60        60
          FCCA509X                    17        17
          FCC2334                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ   *DECK     PROSEQ                                                                 PROSEQ         1     A     
 PROSEQ             IDENT  PROSEQ                                                          PROSEQ         2     A     
 PROSEQ    PROSEQ   TITLE  PROSEQ - PROCESS ACCUMULATED SEQUENCES                          PROSEQ         3     A     
 PROSEQ   *CALL     SSTCALL                                                                PROSEQ         4     A     
 PROSEQ    B=PROSQ  RPVDEF                                                                 PROSEQ         5     A     
 PROSEQ             PASS2TM                                                                PROSEQ         6     A     
 PROSEQ                                                                                    PROSEQ         7     A     
 PROSEQ             EXT    BRN,WB                                                          PROSEQ         8     A     
 PROSEQ                                                                                    PROSEQ         9     A     
 PROSEQ   **        PROSEQ - PROCESS ACCUMULATED SEQUENCES                                 PROSEQ        10     A     
 PROSEQ    FLAGS    SPACE  3,14                                                            PROSEQ        11     A     
 PROSEQ    BIR      ENTRY. 100002B     BASE INTERMEDIATE R-NUMBER                          PROSEQ        12     A     
 PROSEQ    NIRN     ENTRY. 100002B     NEXT INTERMEDIATE R-NUMBER                          PROSEQ        13     A     
 PROSEQ                                                                                    PROSEQ        14     A     
 PROSEQ    FPL2     ENTRY. 0           "0 IF F.P.S OR LEVEL 2 SYMBOLS IN SUBPROGRAM        PROSEQ        15     A     
 PROSEQ    LALS     BSSZ   1           L.ALS-1 OF LAST SEQUENCE                            PROSEQ        16     A     
 PROSEQ    PROSEQ   SPACE  3           PAS                                                 PROSEQ        17     A     
 PROSEQ    PROSEQ   ENTRY.                                                                 PROSEQ        18     A     
 PROSEQ             MX7    0                                                               PROSEQ        19     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3194    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             SA7    =XL.RND     L.RND = 0                                           PROSEQ        20     A     
 PROSEQ             ALLOC  TXT,4                                                           PROSEQ        21     A     
 PROSEQ             SA5    F.RDT+OC.EOQ                                                    PROSEQ        22     A     
 PROSEQ             SX6    1S10+OC.EOQ TERMINATE *TXT* WITH A *EOQ*                        PROSEQ        23     A     
 PROSEQ             LX6    R1.OCP                                                          PROSEQ        24     A     
 PROSEQ             SA6    X2+B6                                                           PROSEQ        25     A     
 PROSEQ             MX7    0           [R2] = 0                                            PROSEQ        26     A     
 PROSEQ             SA7    A6+B1                                                           PROSEQ        27     A     
 PROSEQ             BX6    X5                                                              PROSEQ        28     A     
 PROSEQ             SA1    BRN+1                                                           PROSEQ        29     A     
 PROSEQ             SA6    A7+B1                                                           PROSEQ        30     A     
 PROSEQ             SA7    A6+B1                                                           PROSEQ        31     A     
 PROSEQ             MX0    -R1.RIL                                                         PROSEQ        32     A     
 PROSEQ             BX6    -X0*X1      SET MAX R-NUMBER FOR *SQZ*                          PROSEQ        33     A     
 PROSEQ             SA6    A1                                                              PROSEQ        34     A     
 PROSEQ                                                                                    PROSEQ        35     A     
 PROSEQ             SA3    FPL2                                                            PROSEQ        36     A     
 PROSEQ             ZR     X3,PAS1     IF N.FP & LEVEL2 = 0                                PROSEQ        37     A     
 PROSEQ             RJ     PSB         PROPOGATE SPECIAL BITSS TO DESCRIPTOR               PROSEQ        38     A     
 PROSEQ                                                                                    PROSEQ        39     A     
 PROSEQ    PAS1     CALL   SBB         ELIMINATE REDUNDANT OPERATIONS                      PROSEQ        40     A     
 PROSEQ             SA1    =XOPT2                                                          PROSEQ        41     A     
 PROSEQ             SA5    L.TXT                                                           PROSEQ        42     A     
 PROSEQ             NZ     X1,PAS5     IF OPT2 " 0                                         PROSEQ        43     A     
 PROSEQ                                                                                    PROSEQ        44     A     
 PROSEQ             SX7    X5-8                                                            PROSEQ        45     A     
 PROSEQ             ZR     X7,PAS6     IF L.TXT = 8  */ EMPTY SEQUENCE                     PROSEQ        46     A     
 PROSEQ             CALL   FSU                                                             FEAT155A      81          I
          -FEAT155AB
 PROSEQ             SA1    WB                                                              PROSEQ        47          I
          -FEAT155AB
 PROSEQ             SA1    =XCO.ER                                                         FEAT155AB      2     A     
 PROSEQ             ZR     X1,PAS0     IF ER = 0      */ NO OTR                            FEAT155AB      3     A     
 PROSEQ             CALL   FSU         FORCE UPPER                                         FEAT155AB      4     A     
 PROSEQ    PAS0     SA1    WB                                                              FEAT155AB      5     A     
 PROSEQ             SX6    X1-1                                                            PROSEQ        48     A     
 PROSEQ             NZ     X6,PAS1A    IF WB " 1                                           PROSEQ        49     A     
 PROSEQ                                                                                    PROSEQ        50          I
          -FCC1645X 
 PROSEQ             SA2    LM                                                              PROSEQ        51          I
          -FCC1645X 
 PROSEQ             SA3    O.TEND                                                          PROSEQ        52          I
          -FCC1645X 
 PROSEQ             IX4    X3-X2       WS = O.TEND - LM                                    PROSEQ        53          I
          -FCC1645X 
 PROSEQ             AX4    3                                                               PROSEQ        54          I
          -FCC1645X 
 PROSEQ             AX3    B1,X4                                                           PROSEQ        55          I
          -FCC1645X 
 PROSEQ             IX4    X3+X4                                                           PROSEQ        56          I
          -FCC1645X 
 PROSEQ             IX7    X5-X4                                                           PROSEQ        57          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3195    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
          -FCC1645X 
 PROSEQ             PL     X7,PAS1A    IF L.TXT > WS * 3/16                                PROSEQ        58          I
          -FCC1645X 
 PROSEQ                                                                                    PROSEQ        59     A     
 PROSEQ             CALL   COL         CODE OPTIMIZABLE LOOP ( OPT=1 )                     PROSEQ        60     A     
 PROSEQ             EQ     PAS6                                                            PROSEQ        61     A     
 PROSEQ                                                                                    PROSEQ        62     A     
 PROSEQ    PAS1A    SA1    FPL2                                                            PROSEQ        63     A     
 PROSEQ             ZR     X1,PAS4     IF FPL2 = 0   */ NO F.P.S OF LEVEL IN PROG          PROSEQ        64     A     
 PROSEQ                                                                                    PROSEQ        65     A     
 PROSEQ             RJ     SSP         SET *SEQ* POINTERS                                  PROSEQ        66     A     
 PROSEQ             SA1    LALS                                                            PROSEQ        67     A     
 PROSEQ             SX5    2                 LCM                                           PROSEQ        68     A     
 PROSEQ             NZ     X1,PAS2     IF LALS " 0   */ IN A LOOP                          PROSEQ        69     A     
 PROSEQ             SX5    3                                                               PROSEQ        70     A     
 PROSEQ    PAS2     MX6    1                                                               PROSEQ        71     A     
 PROSEQ             CALL   ESR                                                             PROSEQ        72     A     
 PROSEQ             SA1    L.MLT                                                           PROSEQ        73     A     
 PROSEQ             ZR     X1,PAS3     IF L.MLT = 0  */ NO MODS TO BLOCK                   PROSEQ        74     A     
 PROSEQ             SX6    1                                                               PROSEQ        75     A     
 PROSEQ             CALL   MPB         MERGE BLOCK AND MODS                                PROSEQ        76     A     
 PROSEQ             EQ     PAS4                                                            PROSEQ        77     A     
 PROSEQ                                                                                    PROSEQ        78     A     
 PROSEQ    PAS3     SA1    O.SEQ                                                           PROSEQ        79     A     
 PROSEQ             SA2    L.SEQ                                                           PROSEQ        80     A     
 PROSEQ             BX6    X1                                                              PROSEQ        81     A     
 PROSEQ             SA6    O.TXT       O.TXT = O.SEQ                                       PROSEQ        82     A     
 PROSEQ             LX7    X2                                                              PROSEQ        83     A     
 PROSEQ             SA7    L.TXT       L.TXT = L.SEQ                                       PROSEQ        84     A     
 PROSEQ             MX6    0                                                               PROSEQ        85     A     
 PROSEQ             SA6    L.SEQ                                                           PROSEQ        86     A     
 PROSEQ                                                                                    PROSEQ        87     A     
 PROSEQ    PAS4     SX6    0                                                               PROSEQ        88     A     
 PROSEQ             SA6    L.BLK                                                           PROSEQ        89     A     
 PROSEQ             CALL   MCG         CODE THE SEQUENCE                                   PROSEQ        90     A     
 PROSEQ             CALL   CII         CONVERT THE ISSUED INSTRUCTIONS                     PROSEQ        91     A     
 PROSEQ             EQ     PAS6                                                            PROSEQ        92     A     
 PROSEQ                                                                                    PROSEQ        93     A     
 PROSEQ    PAS5     CALL   PBB         PROCESS BASIC BLOCK FOR OPT=2                       PROSEQ        94     A     
 PROSEQ    PROSEQ   SPACE  3,8                                                             PROSEQ        95     A     
 PROSEQ   *         RESET FLAGS FOR NEXT SEQUENCE                                          PROSEQ        96     A     
 PROSEQ                                                                                    PROSEQ        97     A     
 PROSEQ    PAS6     SA5    LM                                                              PROSEQ        98     A     
 PROSEQ             MX6    0                                                               PROSEQ        99     A     
 PROSEQ             BX7    X5                                                              PROSEQ       100     A     
 PROSEQ             SA6    =XXR        XR = 0                                              PROSEQ       101     A     
 PROSEQ             SA6    L.BLK       L.LBK = 0                                           PROSEQ       102     A     
 PROSEQ             SA7    O.BLK       O.BLK = LM                                          PROSEQ       103     A     
 PROSEQ             SA7    O.TXT       O.TXT = LM                                          PROSEQ       104     A     
 PROSEQ             SX6    4                                                               PROSEQ       105     A     
 PROSEQ             SA6    L.TXT       L.TXT = 4                                           PROSEQ       106     A     
 PROSEQ             SA4    =XLSN       SETUP A *BOS* AT THE BEGIN OF *TXT*                 PROSEQ       107     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3196    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             LX4    R1.INP                                                          PROSEQ       108     A     
 PROSEQ             PX6    B1,X4                                                           PROSEQ       109     A     
 PROSEQ             SA4    F.RDT+B1                                                        PROSEQ       110     A     
 PROSEQ             SA6    X5                                                              PROSEQ       111     A     
 PROSEQ             MX7    0                                                               PROSEQ       112     A     
 PROSEQ             SA7    A6+B1                                                           PROSEQ       113     A     
 PROSEQ             BX6    X4                                                              PROSEQ       114     A     
 PROSEQ             SA6    A7+B1                                                           PROSEQ       115     A     
 PROSEQ             SA7    A6+B1                                                           PROSEQ       116     A     
 PROSEQ             SA1    BIR                                                             PROSEQ       117     A     
 PROSEQ             SA2    BRN+1                                                           PROSEQ       118     A     
 PROSEQ             SA3    WB                                                              PROSEQ       119     A     
 PROSEQ             BX6    X1                                                              PROSEQ       120     A     
 PROSEQ             SA6    A1+B1       BIR(2) = BIR(1)  ( INTERMEDIATE R-NUMBERS )         PROSEQ       121     A     
 PROSEQ             LX7    X2                                                              PROSEQ       122     A     
 PROSEQ             SA7    A2-B1       BRN(1) = BRN(2) ( NEW BASE = OLD MAX )              PROSEQ       123     A     
 PROSEQ             AX4    B1,X3                                                           PROSEQ       124     A     
 PROSEQ             BX6    X3*X4       WB = WB & SHIFT(WB,-1)  */ WB = 1S59 IF OPT=0       PROSEQ       125     A     
 PROSEQ             SA5    L.ALS                                                           PROSEQ       126     A     
 PROSEQ             SX7    X5-1                                                            PROSEQ       127     A     
 PROSEQ             SA6    A3                                                              PROSEQ       128     A     
 PROSEQ             SA7    LALS        LALS = L.ALS - 1                                    PROSEQ       129     A     
 PROSEQ             EQ     PROSEQ                                                          PROSEQ       130     A     
 PROSEQ    SSP      TITLE  SSP - SET SEQUENCE POINTERS FOR OPT=1                           PROSEQ       131     A     
 PROSEQ   **        SSP - SET SEQUENCE POINTERS FOR OPT=1                                  PROSEQ       132     A     
 PROSEQ   *                                                                                PROSEQ       133     A     
 PROSEQ   *         ENTRY  SEQUENCE IN *TXT*                                               PROSEQ       134     A     
 PROSEQ   *                                                                                PROSEQ       135     A     
 PROSEQ   *         EXIT   SEQUENCE COPIED TO *BLK*                                        PROSEQ       136     A     
 PROSEQ   *                (O.SEQ,L.SEQ) = FWA,LENGTH OF SEQUENCE                          PROSEQ       137     A     
 PROSEQ                                                                                    PROSEQ       138     A     
 PROSEQ             EXT    O.SEQ,L.SEQ                                                     PROSEQ       139     A     
 PROSEQ                                                                                    PROSEQ       140     A     
 PROSEQ    SSP      ENTRY. **                                                              PROSEQ       141     A     
 PROSEQ             SA4    L.BLK                                                           PROSEQ       142     A     
 PROSEQ             NZ     X4,SSP1     IF L.BLK " 0                                        PROSEQ       143     A     
 PROSEQ                                                                                    PROSEQ       144     A     
 PROSEQ             SA5    LM                                                              PROSEQ       145     A     
 PROSEQ             ALLOC  TXT,4       ALLOC( TXT , 4 )                                    PROSEQ       146     A     
 PROSEQ             BX6    X2                                                              PROSEQ       147     A     
 PROSEQ             SA6    O.SEQ       O.SEQ = O.TXT                                       PROSEQ       148     A     
 PROSEQ             SX7    X2+B6                                                           PROSEQ       149     A     
 PROSEQ             SA7    A2          O.TXT = O.TXT + L.TXT-4                             PROSEQ       150     A     
 PROSEQ             SX6    B6                                                              PROSEQ       151     A     
 PROSEQ             SA6    L.SEQ       L.SEQ = L.TXT - 4                                   PROSEQ       152     A     
 PROSEQ             SA6    X2+B1       TXTL[SEQ+1] = L.SEQ                                 PROSEQ       153     A     
 PROSEQ             SX6    4                                                               PROSEQ       154     A     
 PROSEQ             SA6    A3          L.TXT = 4                                           PROSEQ       155     A     
 PROSEQ             IX7    X7-X5                                                           PROSEQ       156     A     
 PROSEQ             SA7    L.BLK       L.BLK = O.TXT - LM                                  PROSEQ       157     A     
 PROSEQ             EQ     SSP                                                             PROSEQ       158     A     
 PROSEQ                                                                                    PROSEQ       159     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3197    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ    SSP1     SA1    L.TXT       LT = L.TXT                                          PROSEQ       160     A     
 PROSEQ             SA2    O.TXT       OT = O.TXT                                          PROSEQ       161     A     
 PROSEQ             SA3    LM                                                              PROSEQ       162     A     
 PROSEQ             LX7    X1                                                              PROSEQ       163     A     
 PROSEQ             BX6    X3                                                              PROSEQ       164     A     
 PROSEQ             SA7    L.SEQ       L.SEQ = L.TXT                                       PROSEQ       165     A     
 PROSEQ             SA6    O.SEQ       O.SEQ = LM                                          PROSEQ       166     A     
 PROSEQ             SA7    L.BLK       L.BLK = L.TXT                                       PROSEQ       167     A     
 PROSEQ             SA6    O.BLK       O.BLK = LM                                          PROSEQ       168     A     
 PROSEQ             SA7    X2+B1       TXTL[TXT+1] = L.TXT                                 PROSEQ       169     A     
 PROSEQ             IX7    X3+X1                                                           PROSEQ       170     A     
 PROSEQ             SA7    A2          O.TXT = LM + L.TXT                                  PROSEQ       171     A     
 PROSEQ             SX6    4                                                               PROSEQ       172     A     
 PROSEQ             SA6    A1          L.TXT = 4                                           PROSEQ       173     A     
 PROSEQ             MOVE   X1,X2,X3    MOVE( LT , OT , LM )                                PROSEQ       174     A     
 PROSEQ             EQ     SSP                                                             PROSEQ       175     A     
 PROSEQ    TSB      TITLE  TSB - TRANSFER SYMBOL TABLE BITS TO DESCRIPTOR                  PROSEQ       176     A     
 PROSEQ   *         PSB - TRANSFER L2 AND FP BITS FROM WORD B TO DESCRIPTOR.               PROSEQ       177     A     
 PROSEQ   *         F.P. AND LEVEL 2 BITS.                                                 PROSEQ       178     A     
 PROSEQ                                                                                    PROSEQ       179     A     
 PROSEQ    PSB      ENTRY. **          **ENTRY/EXIT**                                      PROSEQ       180     A     
 PROSEQ             SA1    O.SYM                                                           PROSEQ       181     A     
 PROSEQ             SA5    O.TXT                                                           PROSEQ       182     A     
 PROSEQ             SB4    4                                                               PROSEQ       183     A     
 PROSEQ             SA0    X1-1                                                            PROSEQ       184     A     
 PROSEQ             SB5    I.GL                                                            PROSEQ       185     A     
 PROSEQ             SB6    TSBA                                                            PROSEQ       186     A     
 PROSEQ             SB3    B1                                                              PROSEQ       187     A     
 PROSEQ             SX7    10B-T.LAB                                                       PROSEQ       188     A     
 PROSEQ             LX7    P.TYP       */  CARRY ADDEND FOR LABEL TEST                     PROSEQ       189     A     
 PROSEQ             ERRMI  10B-T.LAB         RECODE THIS SUBROUTINE                        PROSEQ       190     A     
 PROSEQ             MX0    -2                        */ MASK FOR F.P. AND LVL2 BITS        PROSEQ       191     A     
 PROSEQ             SA5    X5          R1 = O.TXT                                          PROSEQ       192     A     
 PROSEQ                                                                                    PROSEQ       193     A     
 PROSEQ    TSB1     SA5    A5+B4       R1 = R1 + 4                                         PROSEQ       194     A     
 PROSEQ             SA4    A5+B1       R2 = R1 + 1                                         PROSEQ       195     A     
 PROSEQ             ZR     B3,PSB      IF OC[R1-4] = 0                                     PROSEQ       196     A     
 PROSEQ             UX6    B3,X5                                                           PROSEQ       197     A     
 PROSEQ             LX4    -IH.IHP                                                         PROSEQ       198     A     
 PROSEQ             SB2    X4                                                              PROSEQ       199     A     
 PROSEQ             ZR     B2,TSB1     IF IH[R2] = 0                                       PROSEQ       200     A     
 PROSEQ             GE     B2,B5,TSB1  IF I[R2] " 0                                        PROSEQ       201     A     
 PROSEQ             SA2    A4+B1       DI = R2 + 1                                         PROSEQ       202     A     
 PROSEQ             SB2    B2+B2                                                           PROSEQ       203     A     
 PROSEQ             LX2    59-D.TYP                                                        PROSEQ       204     A     
 PROSEQ             MI     X2,TSB1     IF TYPE[DI] = II ! IV                               PROSEQ       205     A     
 PROSEQ             SA1    A0-B2       WORDB = [O.SYM-1-2*IH[R2]]                          PROSEQ       206     A     
 PROSEQ             LX2    1+D.TYP                                                         PROSEQ       207     A     
 PROSEQ             IX5    X1+X7                                                           PROSEQ       208     A     
 PROSEQ             MI     X5,TSB1     IF TYPE[WORDB] \ T.LAB  */ TRICY TEST               PROSEQ       209     A     
 PROSEQ             BX4    -X0*X1                                                          PROSEQ       210     A     
 PROSEQ             SA3    B6+X4       FP[DI] = FP[WORDB];  L2[DI] = L2[WORDB]             PROSEQ       211     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3198    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             BX6    X2+X3                                                           PROSEQ       212     A     
 PROSEQ             SA6    A2                                                              PROSEQ       213     A     
 PROSEQ             EQ     TSB1                                                            PROSEQ       214     A     
 PROSEQ                                                                                    PROSEQ       215     A     
 PROSEQ    TSBA     BSS    0                                                               PROSEQ       216     A     
 PROSEQ             LOC    0                                                               PROSEQ       217     A     
 PROSEQ             CON    0                                                               PROSEQ       218     A     
 PROSEQ             BFMW   D,(FP)                                                          PROSEQ       219     A     
 PROSEQ             BFMW   D,(L2)                                                          PROSEQ       220     A     
 PROSEQ             BFMW   D,(FP,L2)                                                       PROSEQ       221     A     
 PROSEQ             BFMW   D,(FP,L2)                                                       PROSEQ       222     A     
 PROSEQ             LOC    *O                                                              PROSEQ       223     A     
 PROSEQ    AIS      TITLE  AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE              PROSEQ       224     A     
 PROSEQ   **        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT-LINE SEQUENCES.               PROSEQ       225     A     
 PROSEQ   *                                                                                PROSEQ       226     A     
 PROSEQ   *         AIS CHOOSES CANDIDATES FOR B-REGISTER USE IN STRAIGHT-LINE     AIS     PROSEQ       227     A     
 PROSEQ   *         SEQUENCES, WHEN THE REG WIDTH OVER ANY SUBSEQUENCE IS GREATER  AIS     PROSEQ       228     A     
 PROSEQ   *         THAN OR EQUAL TO TRW.  CANDIDATES ARE CHOSEN FROM *RF*         AIS     PROSEQ       229     A     
 PROSEQ   *         DEFINITIONS, I.E., THE PREDECESSORS OF TYPE III RF FIELDS AND  AIS     PROSEQ       230     A     
 PROSEQ   *         PLD/PST RJ FIELDS.                                             AIS     PROSEQ       231     A     
 PROSEQ   *         NO OPTIMAL PACKING IS ATTEMPTED;  BUT RATHER, A REGISTER IS    AIS     PROSEQ       232     A     
 PROSEQ   *         ASSIGNED TO EACH CANDIDATE SEQUENTIALLY, IF THAT CANDIDATE/S   AIS     PROSEQ       233     A     
 PROSEQ   *         EXTENDED USE SPAN (THE SPAN OF THE USES OF ALL USES) DOES NOT  AIS     PROSEQ       234     A     
 PROSEQ   *         INTERFERE WITH THAT REGISTER/S PREVIOUS ASSIGNMENT OR ANY LOCK AIS     PROSEQ       235     A     
 PROSEQ   *         TO THAT REGISTER THAT MAY BE INCOMING WITH THE SEQUENCE.       AIS     PROSEQ       236     A     
 PROSEQ   *                                                                                PROSEQ       237     A     
 PROSEQ   *         TRACER (AIS,AIMOD,AIMPB,AIENT,AILBM)                                   PROSEQ       238     A     
 PROSEQ                                                                                    PROSEQ       239     A     
 PROSEQ             QUAL   AIS                                                             PROSEQ       240     A     
 PROSEQ                                                                                    PROSEQ       241     A     
 PROSEQ    TRW      MDV=   7,7,6,6     THRESHHOLD REGISTER WIDTH                           PROSEQ       242          I
          -F2950F4
 PROSEQ             IFLT   .CPU,75                                                         F2950F4      163     A     
 PROSEQ    TRW      EQU    7                                                               F2950F4      164     A     
 PROSEQ             ELSE                                                                   F2950F4      165     A     
 PROSEQ    TRW      EQU    6                                                               F2950F4      166     A     
 PROSEQ             ENDIF                                                                  F2950F4      167     A     
 PROSEQ                                                                            .NO.ID. PROSEQ       243     A     
 PROSEQ   *         EQUATE THREE TEMP TABLES.                                      .NO.ID. PROSEQ       244     A     
 PROSEQ                                                                            .NO.ID. PROSEQ       245     A     
 PROSEQ             RMT                                                            AIS     PROSEQ       246     A     
 PROSEQ             ECHO   ,A=(BCT,DUT,PBT),B=(RCT,RND,PIT)                        AIS     PROSEQ       247     A     
 PROSEQ    L.A      EQU    L.B                                                     AIS     PROSEQ       248     A     
 PROSEQ    O.A      EQU    O.B                                                     AIS     PROSEQ       249     A     
 PROSEQ    Z.A      EQU    Z.B                                                     AIS     PROSEQ       250     A     
 PROSEQ             ENDD                                                           AIS     PROSEQ       251     A     
 PROSEQ             RMT                                                            AIS     PROSEQ       252     A     
 PROSEQ                                                                            AIS     PROSEQ       253     A     
 PROSEQ    .RTP     BIT    SO.RTP                                                  AIS     PROSEQ       254          I
          -FCC0641
 PROSEQ    SO.BR    EQU    RT.BR*.RTP                                              AIS     PROSEQ       255          I
          -FCC0641
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3199    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ    SO.BLOCK EQU    SO.LOCK+SO.BR                                           AIS     PROSEQ       256          I
          -FCC0641
 PROSEQ    .SFL     BIT    SO.SFLP                                                         FCC0641       15     A     
 PROSEQ    SO.BLOCK EQU    SO.LOCK+.SFL      SCRATACHABLE FULL B-REG LOCK                  FCC0641       16     A     
 PROSEQ                                                                            AIS     PROSEQ       257     A     
 PROSEQ    LU.INF   EQU    1S17-1      INFINITE LAST USE                           AIS     PROSEQ       258     A     
 PROSEQ                                                                            AIS     PROSEQ       259     A     
 PROSEQ    RIL      BIT    R1.RIL                                                  .NO.ID. PROSEQ       260     A     
 PROSEQ    RMSK     EQU    RIL-1-1                                                 .NO.ID. PROSEQ       261     A     
 PROSEQ                                                                            AIS     PROSEQ       262     A     
 PROSEQ                                                                            AIS     PROSEQ       263     A     
 PROSEQ   *         BOUNDARY MARKING INSTRUCTION LINK WORD FORMAT.                 AIS     PROSEQ       264     A     
 PROSEQ   *         THE LINK WORDS OF SUBSEQUENCE DEMARCATING INSTRUCTIONS ARE             PROSEQ       265     A     
 PROSEQ   *         LINKED DURING *LBM*, AND CONTAIN INFORMATION REGARDING THE             PROSEQ       266     A     
 PROSEQ   *         PROFITIBILITY OF FURTHER PROCESSING THIS SUBSEQUENCE.                  PROSEQ       267     A     
 PROSEQ                                                                            AIS     PROSEQ       268     A     
 PROSEQ             DESCRIBE  BM.,60   BMW(MRW,NRF,P)                              AIS     PROSEQ       269     A     
 PROSEQ             DEFINE 6                                                       AIS     PROSEQ       270     A     
 PROSEQ    MRW      DEFINE 18          MAXIMUM REG WIDTH ACROSS SUB-SEQUENCE       AIS     PROSEQ       271     A     
 PROSEQ    NRF      DEFINE 18          NUMBER OF *RF* DEFINITIONS IN SUBSEQUENCE   AIS     PROSEQ       272     A     
 PROSEQ    P        DEFINE 18          LINK TO NEXT BM WORD                        AIS     PROSEQ       273     A     
 PROSEQ                                                                            AIS     PROSEQ       274     A     
 PROSEQ   *         BCT - B REGISTER CANDIDATE TABLE ENTRY FORMAT.                 AIS     PROSEQ       275     A     
 PROSEQ                                                                            AIS     PROSEQ       276     A     
 PROSEQ             DESCRIBE  BC.,60   BCW(MRW,LXU,RI)                             AIS     PROSEQ       277     A     
 PROSEQ             DEFINE 6                                                       AIS     PROSEQ       278     A     
 PROSEQ    MRW      DEFINE 18          MAXIMUM REGISTER WIDTH ACROSS EXT. USE SPAN AIS     PROSEQ       279     A     
 PROSEQ    LXU      DEFINE 18          INDEX IN *SEQ* OF LAST EXTENDED USE         AIS     PROSEQ       280     A     
 PROSEQ    RI       DEFINE 18          INDEX IN SEQ OF DEFINITION OF THIS CAND     AIS     PROSEQ       281     A     
 PROSEQ                                                                            AIS     PROSEQ       282     A     
 PROSEQ   *         PBT - PREASSIGNED B-REGISTER TABLE ENTRY FORMAT.               AIS     PROSEQ       283     A     
 PROSEQ                                                                            AIS     PROSEQ       284     A     
 PROSEQ             DESCRIBE  PB.,60   PBW(RN,RI,LU,P)                             AIS     PROSEQ       285     A     
 PROSEQ             DEFINE 3                                                       AIS     PROSEQ       286     A     
 PROSEQ    RN       DEFINE 3           B-REGISTER NUMBER OF THIS LOCK              AIS     PROSEQ       287     A     
 PROSEQ    RI       DEFINE 18          INDEX IN *SEQ* OF THIS DEFINITION           AIS     PROSEQ       288     A     
 PROSEQ    LU       DEFINE 18          LAST USE OF THIS LOCK                       AIS     PROSEQ       289     A     
 PROSEQ    P        DEFINE 18          LINK TO NEXT PBT ENTRY OF SAME RN           AIS     PROSEQ       290     A     
 PROSEQ                                                                            AIS     PROSEQ       291     A     
 PROSEQ   *         DUT - DEF-USE TABLE ENTRY FORMAT.                              AIS     PROSEQ       292     A     
 PROSEQ                                                                            AIS     PROSEQ       293     A     
 PROSEQ             DESCRIBE DU.,60    DUW(DEF,USE)                                AIS     PROSEQ       294     A     
 PROSEQ    SU       DEFINE 1           SHORT USE                                   AIS     PROSEQ       295     A     
 PROSEQ    SC       DEFINE 11          SHIFT COUNT TO MOVE R-FIELD USED TO BIT 0   AIS     PROSEQ       296     A     
 PROSEQ             DEFINE 12                                                      AIS     PROSEQ       297     A     
 PROSEQ    DEF      DEFINE 18          RI OF DEFINITION                            AIS     PROSEQ       298     A     
 PROSEQ    USE      DEFINE 18          INDEX IN *SEQ* OF USE                       AIS     PROSEQ       299     A     
 PROSEQ                                                                            AIS     PROSEQ       300     A     
 PROSEQ   *         CAT - CURRENT ASSIGNMENT TABLE ENTRY FORMAT.                   AIS     PROSEQ       301     A     
 PROSEQ                                                                            AIS     PROSEQ       302     A     
 PROSEQ             DESCRIBE  CA.,60                                               AIS     PROSEQ       303     A     
 PROSEQ             DEFINE 6                                                       AIS     PROSEQ       304     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3200    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             DEFINE 18                                                      AIS     PROSEQ       305     A     
 PROSEQ    LXU      DEFINE 18                                                      AIS     PROSEQ       306     A     
 PROSEQ    RI       DEFINE 18                                                      AIS     PROSEQ       307     A     
 PROSEQ                                                                            AIS     PROSEQ       308     A     
 PROSEQ   *         FORMAT OF LINK WORD AFTER BUILDING OF DUT.                     AIS     PROSEQ       309     A     
 PROSEQ                                                                            AIS     PROSEQ       310     A     
 PROSEQ             DESCRIBE  DP.,60                                               AIS     PROSEQ       311     A     
 PROSEQ             DEFINE 24                                                      AIS     PROSEQ       312     A     
 PROSEQ    II       DEFINE 18          POINTS TO DUT ENTRY FOR FIRST USE           AIS     PROSEQ       313     A     
 PROSEQ    NI       DEFINE 18          POINTS TO NEXT DUT ENTRY FOR THIS RI        AIS     PROSEQ       314     A     
 PROSEQ                                                                            AIS     PROSEQ       315     A     
 PROSEQ   *         PBI - PREASSIGNED B-REG LOCK INDEX TABLE ENTRY FORMAT.         AIS     PROSEQ       316     A     
 PROSEQ                                                                            AIS     PROSEQ       317     A     
 PROSEQ             DESCRIBE  PI.,60                                               AIS     PROSEQ       318     A     
 PROSEQ    NA       DEFINE 1           THIS REG OFF MARKET FOR REST OF *SEQ*       AIS     PROSEQ       319     A     
 PROSEQ             DEFINE 41                                                      AIS     PROSEQ       320     A     
 PROSEQ    P        DEFINE 18          LINK TO NEXT PERTINENT PBT ENTRY            .NO.ID. PROSEQ       321     A     
 PROSEQ                                                                            AIS     PROSEQ       322     A     
 PROSEQ   *         FIXED STORAGE DECLARATIONS.                                    .NO.ID. PROSEQ       323     A     
 PROSEQ                                                                            AIS     PROSEQ       324     A     
 PROSEQ             USE    /TABLES/                                                AIS     PROSEQ       325     A     
 PROSEQ    FLF      BSS    1           FULL LOCK FLAGS                                     PROSEQ       326     A     
 PROSEQ    PBI      BSS    7           PBT INDEX VECTOR                            AIS     PROSEQ       327     A     
 PROSEQ    CAT      BSS    7           CURRENT ASSIGNMENT TABLE                    AIS     PROSEQ       328     A     
 PROSEQ    NSO      BSS    1           NEXT SEQUENCE ORIGIN INDEX                  AIS     PROSEQ       329     A     
 PROSEQ    MRF      BSS    1           MAX(RF DEFS IN SUBSEQUENCE)                 .NO.ID. PROSEQ       330     A     
 PROSEQ    LBMA     BSS    1           SAVE (O.SEQ-2) IN LBM                       .NO.ID. PROSEQ       331     A     
 PROSEQ    IUMB     BSS    1           SAVE (UL) IN IUM                            .NO.ID. PROSEQ       332     A     
 PROSEQ             USE    0                                                       AIS     PROSEQ       333     A     
 PROSEQ    AIS      EJECT                                                          AIS     PROSEQ       334     A     
 PROSEQ   **        AIS - MAIN LOOP                                                AIS     PROSEQ       335     A     
 PROSEQ                                                                            AIS     PROSEQ       336     A     
 PROSEQ    AIS0     SX6    0                                                       AIS     PROSEQ       337     A     
 PROSEQ             SA6    L.BCT       L.BCT = 0                                   AIS     PROSEQ       338     A     
 PROSEQ             SA6    L.DUT       L.DUT = 0                                   AIS     PROSEQ       339     A     
 PROSEQ             SA6    L.PBT       L.PBT = 0                                   AIS     PROSEQ       340     A     
 PROSEQ                                                                            AIS     PROSEQ       341     A     
 PROSEQ             TRACE  AIMOD,RLIST,MOD                                                 PROSEQ       342     A     
 PROSEQ             TRACE  AIMOD,MLT                                                       PROSEQ       343     A     
 PROSEQ             CALL   MPB         MERGE MODS WITH SEQUENCE (NO SQUEEZE)       AIS     PROSEQ       344     A     
 PROSEQ             TRACE  AIMPB,RLIST                                                     PROSEQ       345     A     
 PROSEQ                                                                            AIS     PROSEQ       346     A     
 PROSEQ             CALL   CUC         COLLECT USES COUNTS                         AIS     PROSEQ       347     A     
 PROSEQ             TRACE  AIS,RLIST                                               AIS     PROSEQ       348     A     
 PROSEQ                                                                            AIS     PROSEQ       349     A     
 PROSEQ    AIS      ENTRY. **          **ENTRY/EXIT**                              AIS     PROSEQ       350     A     
 PROSEQ             SA1    O.SEQ                                                   AIS     PROSEQ       351     A     
 PROSEQ             SA2    X1+2                                                    AIS     PROSEQ       352     A     
 PROSEQ             MX0    -D.REGWL                                                AIS     PROSEQ       353     A     
 PROSEQ             LX2    -D.REGWP                                                AIS     PROSEQ       354     A     
 PROSEQ             BX6    -X0*X2                                                  AIS     PROSEQ       355     A     
 PROSEQ             SX0    X6-TRW                                                  AIS     PROSEQ       356     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3201    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             TRACE  AIENT,RLIST,SEQ                                                 PROSEQ       357     A     
 PROSEQ                                                                            AIS     PROSEQ       358     A     
 PROSEQ             MI     X0,AIS0     IF MAXW .LT. TRW                            AIS     PROSEQ       359     A     
 PROSEQ             RJ     LBM         LOCATE SEQUENCE BOUNDARIES                  AIS     PROSEQ       360     A     
 PROSEQ             TRACE  AILBM,RLIST,SEQ                                                 PROSEQ       361     A     
 PROSEQ                                                                            AIS     PROSEQ       362     A     
 PROSEQ             SA1    MRF                                                     AIS     PROSEQ       363     A     
 PROSEQ             SX5    A0                                                      AIS     PROSEQ       364     A     
 PROSEQ             ZR     X1,AIS0     IF NO RF USES IN SEQ                        AIS     PROSEQ       365     A     
 PROSEQ                                                                            AIS     PROSEQ       366     A     
 PROSEQ   *         ALLOCATE FOR TABLE OF ALL POSSIBLE B-ASSIGNMENTS.              AIS     PROSEQ       367     A     
 PROSEQ                                                                            AIS     PROSEQ       368     A     
 PROSEQ             ALLOC  BCT,B1+X1   ALLOC (BCT,MRF+1)                           AIS     PROSEQ       369     A     
 PROSEQ                                                                            AIS     PROSEQ       370     A     
 PROSEQ             BX1    X5                                                      AIS     PROSEQ       371     A     
 PROSEQ             LX5    2                                                       AIS     PROSEQ       372     A     
 PROSEQ             ALLOC  MLT,B1+X1   ALLOC (MLT,MMOD+1)                          AIS     PROSEQ       373     A     
 PROSEQ                                                                            AIS     PROSEQ       374     A     
 PROSEQ             ALLOC  MOD,X5+4    ALLOC(MOD,4*(MMOD+1))                       AIS     PROSEQ       375     A     
 PROSEQ                                                                            AIS     PROSEQ       376     A     
 PROSEQ             SA1    L.SEQ                                                   AIS     PROSEQ       377     A     
 PROSEQ             AX2    B1,X1                                                   AIS     PROSEQ       378     A     
 PROSEQ             AX5    B1,X2                                                   AIS     PROSEQ       379     A     
 PROSEQ             IX1    X2+X5                                                   AIS     PROSEQ       380     A     
 PROSEQ                                                                            AIS     PROSEQ       381     A     
 PROSEQ   *         ALLOCATE FOR DEF-USE *TREE*.                                   AIS     PROSEQ       382     A     
 PROSEQ                                                                            AIS     PROSEQ       383     A     
 PROSEQ             ALLOC  DUT,X1      ALLOC (DUT,3/4*L.SEQ)                       AIS     PROSEQ       384     A     
 PROSEQ                                                                            AIS     PROSEQ       385     A     
 PROSEQ   *         ALLOCATE FOR TABLE OF LOCKS TO B-REGS INCOMING WITH SEQUENCE.  AIS     PROSEQ       386     A     
 PROSEQ                                                                            AIS     PROSEQ       387     A     
 PROSEQ             ALLOC  PBT,X5      ALLOC (PBT,1/4*L.SEQ)                       AIS     PROSEQ       388     A     
 PROSEQ                                                                            AIS     PROSEQ       389     A     
 PROSEQ             SX7    4                                                       AIS     PROSEQ       390     A     
 PROSEQ             MX6    0                                                       AIS     PROSEQ       391     A     
 PROSEQ             SA7    L.MOD       L.MOD = 4                                   AIS     PROSEQ       392     A     
 PROSEQ             SA6    L.MLT       L.MLT = 0                                   AIS     PROSEQ       393     A     
 PROSEQ             SA1    O.SEQ                                                   AIS     PROSEQ       394     A     
 PROSEQ             SB2    X1+4        R1F = O.SEQ + 4                             AIS     PROSEQ       395     A     
 PROSEQ             SA0    X1                                                      AIS     PROSEQ       396     A     
 PROSEQ                                                                            .NO.ID. PROSEQ       397     A     
 PROSEQ   *         A0 CONTAINS O.SEQ THROUGHOUT AIS.                              .NO.ID. PROSEQ       398     A     
 PROSEQ                                                                            .NO.ID. PROSEQ       399     A     
 PROSEQ             SA2    B2-B1       LI = R1F - 1 ;  LIW = [LI]                  AIS     PROSEQ       400     A     
 PROSEQ             SA6    FLF         FLF = 0                                             PROSEQ       401     A     
 PROSEQ             EQ     AIS2                                                    AIS     PROSEQ       402     A     
 PROSEQ                                                                            .NO.ID. PROSEQ       403     A     
 PROSEQ   *         PROCESS ALL SUBSEQUENCES, AS DEMARCATED BY *LBM*.              .NO.ID. PROSEQ       404     A     
 PROSEQ                                                                            AIS     PROSEQ       405     A     
 PROSEQ    AIS1     SA1    NSO                                                     AIS     PROSEQ       406     A     
 PROSEQ             LX1    -BM.PP                                                  AIS     PROSEQ       407     A     
 PROSEQ             SB4    X1                                                      AIS     PROSEQ       408     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3202    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             SX1    A0+B4       LI = P[NSO] + O.SEQ                         AIS     PROSEQ       409     A     
 PROSEQ             SB2    X1+B1       R1F = LI + 1                                AIS     PROSEQ       410     A     
 PROSEQ             SA2    X1          LIW = [LI]                                  AIS     PROSEQ       411     A     
 PROSEQ                                                                            AIS     PROSEQ       412     A     
 PROSEQ    AIS2     SB3    X2                                                      AIS     PROSEQ       413     A     
 PROSEQ             ZR     B3,AIS0     IF P[LIW] = 0  */ END OF SEQ                AIS     PROSEQ       414     A     
 PROSEQ             BX6    X2                                                      AIS     PROSEQ       415     A     
 PROSEQ             LX2    -BM.PP                                                  AIS     PROSEQ       416     A     
 PROSEQ             SB3    X2-3        R1L = P[LIW] - 3                            AIS     PROSEQ       417     A     
 PROSEQ             SB3    A0+B3                                                   AIS     PROSEQ       418     A     
 PROSEQ             SA6    NSO         [NSO] = LIW                                 AIS     PROSEQ       419     A     
 PROSEQ             LE     B3,B2,AIS1  IF R1L .LE. R1F                             AIS     PROSEQ       420     A     
 PROSEQ             LX6    -BM.NRFP                                                AIS     PROSEQ       421     A     
 PROSEQ             SX4    X6                                                      AIS     PROSEQ       422     A     
 PROSEQ             ZR     X4,AIS1     IF NRF[LIW] = 0                             AIS     PROSEQ       423     A     
 PROSEQ             LX6    BM.NRFP-BM.MRWP                                         AIS     PROSEQ       424     A     
 PROSEQ             SX5    X6-TRW                                                  AIS     PROSEQ       425     A     
 PROSEQ             MI     X5,AIS1     IF MRW[LIW] .LT. TRW                        AIS     PROSEQ       426     A     
 PROSEQ                                                                            AIS     PROSEQ       427     A     
 PROSEQ   *         TRANSFER FULL LOCKS PREASSIGNED IN PREVIOUS SUBSEQUENCE TO     .NO.ID. PROSEQ       428     A     
 PROSEQ   *         PBI.  CLEAR PBI LINK FIELD.                                    .NO.ID. PROSEQ       429     A     
 PROSEQ                                                                            AIS     PROSEQ       430     A     
 PROSEQ             SA1    FLF                                                     AIS     PROSEQ       431     A     
 PROSEQ             SB4    59                                                      AIS     PROSEQ       432     A     
 PROSEQ             MX7    0                                                       AIS     PROSEQ       433     A     
 PROSEQ             SB5    B0          BI = 0                                      AIS     PROSEQ       434     A     
 PROSEQ             SB6    7                                                       .NO.ID. PROSEQ       435     A     
 PROSEQ                                                                            AIS     PROSEQ       436     A     
 PROSEQ    AIS3     LX1    -1                                                      .NO.ID. PROSEQ       437     A     
 PROSEQ             SB5    B5+1        BI = BI + 1                                 .NO.ID. PROSEQ       438     A     
 PROSEQ             AX6    B4,X1       PBI(BI) = 0                                 AIS     PROSEQ       439     A     
 PROSEQ             SA6    PBI-1+B5    NA[PBI(BI)] = FLF(BI)                       AIS     PROSEQ       440     A     
 PROSEQ             NE     B5,B6,AIS3  IF BI .NE. 7                                .NO.ID. PROSEQ       441     A     
 PROSEQ                                                                            AIS     PROSEQ       442     A     
 PROSEQ    AIS4     SA7    A1          FLF = 0                                     AIS     PROSEQ       443     A     
 PROSEQ             SA1    O.PBT                                                   AIS     PROSEQ       444     A     
 PROSEQ             SX6    B1                                                      AIS     PROSEQ       445     A     
 PROSEQ             SA7    L.BCT       L.BCT = 0                                   AIS     PROSEQ       446     A     
 PROSEQ             SA7    X1+         [O.PBT] = 0                                 AIS     PROSEQ       447     A     
 PROSEQ             SA6    L.PBT       L.PBT = 1                                   AIS     PROSEQ       448     A     
 PROSEQ             RJ     BDU         BUILD DEF-USE TABLE AND BCT AND PBT         AIS     PROSEQ       449     A     
 PROSEQ                                                                            AIS     PROSEQ       450     A     
 PROSEQ    .T       IFNE   TEST,0                                                  .NO.ID. PROSEQ       451     A     
 PROSEQ             SA2    O.DUT                                                   AIS     PROSEQ       452     A     
 PROSEQ             SA1    B3-B1                                                   AIS     PROSEQ       453     A     
 PROSEQ             LX1    -DP.NIP                                                 AIS     PROSEQ       454     A     
 PROSEQ             IX5    X1-X2                                                   AIS     PROSEQ       455     A     
 PROSEQ             SX6    X5+                                                     AIS     PROSEQ       456     A     
 PROSEQ             SA6    L.DUT       L.DUT = NI[R1L-1] - O.DUT                   AIS     PROSEQ       457     A     
 PROSEQ    .T       ENDIF                                                          .NO.ID. PROSEQ       458     A     
 PROSEQ                                                                            .NO.ID. PROSEQ       459     A     
 PROSEQ             TRACE  AIS,RLIST,SEQ                                           AIS     PROSEQ       460     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3203    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             TRACE  AIS,(DUT,BCT,PBT)                                       AIS     PROSEQ       461     A     
 PROSEQ                                                                            AIS     PROSEQ       462     A     
 PROSEQ             RJ     IXU         INSERT EXTENDED USE INFO INTO BCT           AIS     PROSEQ       463     A     
 PROSEQ             TRACE  AIS,BCT                                                 AIS     PROSEQ       464     A     
 PROSEQ                                                                            AIS     PROSEQ       465     A     
 PROSEQ             SX5    X4-TRW                                                  AIS     PROSEQ       466     A     
 PROSEQ             MI     X5,AIS1     IF SMAXW .LT. TRW                           AIS     PROSEQ       467     A     
 PROSEQ                                                                            AIS     PROSEQ       468     A     
 PROSEQ             RJ     IUP         INSERT USE INFO INTO PBT                    AIS     PROSEQ       469     A     
 PROSEQ             TRACE  AIS,PBT                                                 AIS     PROSEQ       470     A     
 PROSEQ                                                                            AIS     PROSEQ       471     A     
 PROSEQ             RJ     ABR         ASSIGN B-REGS AND TABLE MODS                AIS     PROSEQ       472     A     
 PROSEQ             TRACE  AIS,RLIST,MOD                                           AIS     PROSEQ       473     A     
 PROSEQ             TRACE  AIS,MLT                                                 AIS     PROSEQ       474     A     
 PROSEQ             EQ     AIS1                                                    AIS     PROSEQ       475     A     
 PROSEQ    LBM      EJECT              LBM                                                 PROSEQ       476     A     
 PROSEQ   **        LBM - LOCATE BOUNDARY MARKERS.                                 AIS     PROSEQ       477     A     
 PROSEQ   *         THIS ROUTINE CHAINS ALL SEQUENCE-BREAKING INSTRUCTIONS THROUGH AIS     PROSEQ       478     A     
 PROSEQ   *         THE LINK WORDS, BEGINNING WITH THE *BOS*.  IT SIMULTANEOUSLY   AIS     PROSEQ       479     A     
 PROSEQ   *         INSTALLS THE MAXIMUM REG WIDTH OVER AND THE NUMBER OF *RF*     AIS     PROSEQ       480     A     
 PROSEQ   *         DEFINITIONS IN THE SEQUENCE INTO THE BOUNDARY MARKER LINKS.    AIS     PROSEQ       481     A     
 PROSEQ   *         LARGEST POSSIBLE *MOD* SIZE IS ALSO CALCULATED DURING THIS     AIS     PROSEQ       482     A     
 PROSEQ   *         BACKWARD SCAN.                                                 AIS     PROSEQ       483     A     
 PROSEQ   *                                                                        AIS     PROSEQ       484     A     
 PROSEQ   *         EXIT   MRF - CONTAINS THE MAXIMUM NUMBER OF *RF* DEFS IN ANY   AIS     PROSEQ       485     A     
 PROSEQ   *                SUBSEQUENCE.                                            AIS     PROSEQ       486     A     
 PROSEQ   *                A0 - MMOD, OVERESTIMATE OF POSSIBLE *MOD* ENTRIES.      AIS     PROSEQ       487     A     
 PROSEQ                                                                            AIS     PROSEQ       488     A     
 PROSEQ    LBM0     SA1    LBMA                                                    AIS     PROSEQ       489     A     
 PROSEQ             SA2    O.SEQ                                                   AIS     PROSEQ       490     A     
 PROSEQ             BX6    X1                                                      AIS     PROSEQ       491     A     
 PROSEQ             SA6    X2-2        [O.SEQ-2] = SAVE                            AIS     PROSEQ       492     A     
 PROSEQ                                                                            AIS     PROSEQ       493     A     
 PROSEQ    LBM      ROUTINE                                                        AIS     PROSEQ       494     A     
 PROSEQ             SA1    O.SEQ                                                   AIS     PROSEQ       495     A     
 PROSEQ             SA3    X1+B1                                                   AIS     PROSEQ       496     A     
 PROSEQ             SB2    X3-2        LD = TXTL - 2                               AIS     PROSEQ       497     A     
 PROSEQ             SA5    X1+B2       I = N.INS ; DIN = O.SEQ + LD ; DINW = [DIN] AIS     PROSEQ       498     A     
 PROSEQ             SA3    X1-2                                                    AIS     PROSEQ       499     A     
 PROSEQ             MX7    0                                                       AIS     PROSEQ       500     A     
 PROSEQ             BX6    X3          SAVE = [O.SEQ-2]                            AIS     PROSEQ       501     A     
 PROSEQ             SA7    A3          [O.SEQ-2] = 0                               AIS     PROSEQ       502     A     
 PROSEQ             SA6    LBMA                                                    AIS     PROSEQ       503     A     
 PROSEQ             BX1    X7          TUSES = 0                                   AIS     PROSEQ       504     A     
 PROSEQ             MX2    0           MAXW = 0                                    AIS     PROSEQ       505     A     
 PROSEQ             SA0    B0          MMOD = 0                                    AIS     PROSEQ       506     A     
 PROSEQ             SB4    B0          PLINK = 0                                   AIS     PROSEQ       507     A     
 PROSEQ             SB3    B0          NRF = 0                                     AIS     PROSEQ       508     A     
 PROSEQ             SA7    MRF         MRF = 0                                     AIS     PROSEQ       509     A     
 PROSEQ             EQ     LBM5                                                    AIS     PROSEQ       510     A     
 PROSEQ                                                                            AIS     PROSEQ       511     A     
 PROSEQ   *         BOUNDARY MARKER BREAKS SUBSEQUENCE.  FILE BM WORD FOR SEQUENCE AIS     PROSEQ       512     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3204    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ   *         JUST SCANNED (FOLLOWING).                                      AIS     PROSEQ       513     A     
 PROSEQ                                                                            AIS     PROSEQ       514     A     
 PROSEQ    LBM1     LX6    D.BMP-D.TYP-1                                           AIS     PROSEQ       515     A     
 PROSEQ             IX7    X6+X6                                                   AIS     PROSEQ       516     A     
 PROSEQ             BX4    -X7*X6                                                  AIS     PROSEQ       517     A     
 PROSEQ             BX0    -X6+X7                                                  AIS     PROSEQ       518     A     
 PROSEQ             MI     X4,LBM5     IF TY[DIW] = II                             AIS     PROSEQ       519     A     
 PROSEQ             SA3    A5+2        R1I = DIN + 2 ;  RIW = [R1I]                        PROSEQ       520     A     
 PROSEQ             UX4    B2,X3                                                           PROSEQ       521     A     
 PROSEQ             SB5    B2-OC.EOS                                                       PROSEQ       522     A     
 PROSEQ             NZ     B5,LBM1A    IF OC[R1W] .NE. OC.EOS                              PROSEQ       523     A     
 PROSEQ             SX4    X3                                                              PROSEQ       524     A     
 PROSEQ             NZ     X4,LBM5     IF IH[RIW] .NE. 0   */ OPT=2 EOS                    PROSEQ       525     A     
 PROSEQ                                                                                    PROSEQ       526     A     
 PROSEQ    LBM1A    MI     X0,LBM2     IF TY[DIW] .NE. III                                 PROSEQ       527     A     
 PROSEQ             SB5    B2-OC.JIN                                               AIS     PROSEQ       528     A     
 PROSEQ             NZ     B5,LBM5     IF OC[RIW] .NE. OC.JIN                      AIS     PROSEQ       529     A     
 PROSEQ                                                                            AIS     PROSEQ       530     A     
 PROSEQ    LBM2     SX6    B3                                                      AIS     PROSEQ       531     A     
 PROSEQ             SA3    MRF                                                     AIS     PROSEQ       532     A     
 PROSEQ             SB7    B3+B3                                                   AIS     PROSEQ       533     A     
 PROSEQ             IX7    X3-X6                                                   AIS     PROSEQ       534     A     
 PROSEQ             SB7    B7+B3                                                   AIS     PROSEQ       535     A     
 PROSEQ             SB3    B0          NRF = 0                                     AIS     PROSEQ       536     A     
 PROSEQ             PL     X7,LBM3     IF MRF .GE. NRF                             AIS     PROSEQ       537     A     
 PROSEQ             SA6    A3          MRF = NRF                                   AIS     PROSEQ       538     A     
 PROSEQ                                                                            AIS     PROSEQ       539     A     
 PROSEQ    LBM3     LX2    BM.MRWP                                                 AIS     PROSEQ       540     A     
 PROSEQ             SB5    B7+X1                                                   AIS     PROSEQ       541     A     
 PROSEQ             SX7    B4                                                      AIS     PROSEQ       542     A     
 PROSEQ                                                                            AIS     PROSEQ       543     A     
 PROSEQ   *         FOR EACH *RF* DEF WE WILL ALLOCATE *MOD* FOR ALL USES PLUS     .NO.ID. PROSEQ       544     A     
 PROSEQ   *         3 (FOR THE DEF, SA AND RS).                                    .NO.ID. PROSEQ       545     A     
 PROSEQ                                                                            AIS     PROSEQ       546     A     
 PROSEQ             SA0    A0+B5       MMOD = MMOD + TUSES + 3*NRF                 AIS     PROSEQ       547     A     
 PROSEQ             LX6    BM.NRFP                                                 AIS     PROSEQ       548     A     
 PROSEQ             BX2    X6+X2                                                   AIS     PROSEQ       549     A     
 PROSEQ             LX7    BM.PP                                                   AIS     PROSEQ       550     A     
 PROSEQ             BX6    X7+X2                                                   AIS     PROSEQ       551     A     
 PROSEQ             SA1    O.SEQ                                                   AIS     PROSEQ       552     A     
 PROSEQ             SA6    A5+5        LI = DIN + 5 ;  [LI] = BMW(NRF,PLINK,MAXW)  AIS     PROSEQ       553     A     
 PROSEQ             SB5    X1                                                      AIS     PROSEQ       554     A     
 PROSEQ             MX2    0           MAXW = 0                                    AIS     PROSEQ       555     A     
 PROSEQ             SB4    A6-B5       PLINK = LI - O.SEQ                          AIS     PROSEQ       556     A     
 PROSEQ             MX1    0           USES = 0                                    AIS     PROSEQ       557     A     
 PROSEQ             ZR     X5,LBM0     IF DINW = 0   */ IF I = 0                   AIS     PROSEQ       558     A     
 PROSEQ             EQ     LBM5                                                    AIS     PROSEQ       559     A     
 PROSEQ                                                                            AIS     PROSEQ       560     A     
 PROSEQ    LBM4     LX6    D.RFP-D.BMP                                             AIS     PROSEQ       561     A     
 PROSEQ             BX7    X6                                                              PROSEQ       562     A     
 PROSEQ             ZR     X5,LBM1     IF DINW = 0   */ BOS                        AIS     PROSEQ       563     A     
 PROSEQ             LX7    D.BMP-D.^DP                                                     PROSEQ       564     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3205    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             PL     X7,LBM5     IF D[DIW]     */ POSSIBLE DEF                       PROSEQ       565     A     
 PROSEQ             MI     X6,LBM1     IF BM[DIW]                                  AIS     PROSEQ       566     A     
 PROSEQ                                                                            AIS     PROSEQ       567     A     
 PROSEQ    LBM5     BX6    X5          DIW = DINW                                  AIS     PROSEQ       568     A     
 PROSEQ             SA5    A5-4        I = I - 1 ;  DIN = DIN - 4 ;  DINW = [DIN]  AIS     PROSEQ       569     A     
 PROSEQ             MX0    -D.REGWL                                                AIS     PROSEQ       570     A     
 PROSEQ             LX6    -D.REGWP                                                AIS     PROSEQ       571     A     
 PROSEQ             BX4    -X0*X6      REG = REGW[DIW]                             AIS     PROSEQ       572     A     
 PROSEQ             IX7    X2-X4                                                   AIS     PROSEQ       573     A     
 PROSEQ             PL     X7,LBM6     IF MAXW .GE. REG                            AIS     PROSEQ       574     A     
 PROSEQ             BX2    X4          MAXW = REG                                  AIS     PROSEQ       575     A     
 PROSEQ                                                                            AIS     PROSEQ       576     A     
 PROSEQ    LBM6     LX6    59-D.RFP+D.REGWP                                        AIS     PROSEQ       577     A     
 PROSEQ             PL     X6,LBM4     IF ^RF[DIW]                                 AIS     PROSEQ       578     A     
 PROSEQ                                                                            AIS     PROSEQ       579     A     
 PROSEQ   *         *RF* DEFINITION FOUND.  CONSIDER AS POSSIBLE CANDIDATE.        AIS     PROSEQ       580     A     
 PROSEQ                                                                            AIS     PROSEQ       581     A     
 PROSEQ             LX6    1+D.RFP-D.USESP                                         AIS     PROSEQ       582     A     
 PROSEQ             MX0    -D.USESL                                                AIS     PROSEQ       583     A     
 PROSEQ             SB3    B3+B1       NRF = NRF + 1                               AIS     PROSEQ       584     A     
 PROSEQ             BX4    -X0*X6                                                  AIS     PROSEQ       585     A     
 PROSEQ             IX1    X1+X4       TUSES = TUSES + USES[DIW]                   AIS     PROSEQ       586     A     
 PROSEQ             LX6    D.USESP+59-D.RFP                                        AIS     PROSEQ       587     A     
 PROSEQ             EQ     LBM4                                                    AIS     PROSEQ       588     A     
 PROSEQ    BDU      EJECT              BDU                                                 PROSEQ       589     A     
 PROSEQ   **        BDU - BUILD DEF-USE TABLE.                                     AIS     PROSEQ       590     A     
 PROSEQ   *         PERFORM FORWARD SCAN TO CONSTRUCT DUT FOR SUBSEQUENCE.         .NO.ID. PROSEQ       591     A     
 PROSEQ   *         THE BCT IS ALSO FORMED, OF *RF* DEFINITIONS.  FINALLY, THE PBT AIS     PROSEQ       592     A     
 PROSEQ   *         IS FORMED OF B-REG ASSIGNMENTS INCOMING WITH THE SEQUENCE.     AIS     PROSEQ       593     A     
 PROSEQ   *                                                                        AIS     PROSEQ       594     A     
 PROSEQ   *         ENTRY  B2 - RIF, LOC OF R1 OF FIRST INS. IN SEQ.               AIS     PROSEQ       595     A     
 PROSEQ   *                B3 - RIL, LOC OF R1 OF INS. MARKING END OF BLOCK.       AIS     PROSEQ       596     A     
 PROSEQ   *                A0 - O.SEQ                                              AIS     PROSEQ       597     A     
 PROSEQ   *                                                                        AIS     PROSEQ       598     A     
 PROSEQ   *         EXIT   A0 - PRESERVED.                                         AIS     PROSEQ       599     A     
 PROSEQ                                                                            AIS     PROSEQ       600     A     
 PROSEQ    BDUA     BFMW   D,(PRS,RJRS,PI),59-D.RFP                                        FCC0586        4     A     
 PROSEQ                                                                                    FCC0586        5     A     
 PROSEQ    BDU      ROUTINE                                                        AIS     PROSEQ       601     A     
 PROSEQ             SB2    B2-4        R1I = R1F - 4                               AIS     PROSEQ       602     A     
 PROSEQ             SA1    O.DUT                                                   AIS     PROSEQ       603     A     
 PROSEQ             SB7    X1          DUI = O.DUT                                 AIS     PROSEQ       604     A     
 PROSEQ                                                                            AIS     PROSEQ       605     A     
 PROSEQ    BDU1     SB2    B2+4        R1I = R1I + 4                               AIS     PROSEQ       606     A     
 PROSEQ             MX0    -D.USESL                                                AIS     PROSEQ       607     A     
 PROSEQ             SA1    B2+2        DI = R1I + 2 ;  DIW = [DI]                  AIS     PROSEQ       608     A     
 PROSEQ             EQ     B2,B3,BDU   IF R1I = R1L                                AIS     PROSEQ       609     A     
 PROSEQ             SX5    B7          II = DUI                                    AIS     PROSEQ       610     A     
 PROSEQ             LX5    DP.IIP                                                  AIS     PROSEQ       611     A     
 PROSEQ             LX1    -D.USESP                                                AIS     PROSEQ       612     A     
 PROSEQ             SX6    B7          NI = DUI                                    AIS     PROSEQ       613     A     
 PROSEQ             BX2    -X0*X1      U = USES[DIW]                               AIS     PROSEQ       614          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3206    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
          -FCC0586
 PROSEQ                                                                                    PROSEQ       615          I
          -FCC0586
 PROSEQ   *         USES FIELD OF NON-DEFINITION INSTUCTIONS CONTAINS OPT=2 INFO.          PROSEQ       616          I
          -FCC0586
 PROSEQ                                                                                    PROSEQ       617          I
          -FCC0586
 PROSEQ             BX3    X1                                                              PROSEQ       618          I
          -FCC0586
 PROSEQ             LX3    D.USESP+59-D.^DP                                                PROSEQ       619          I
          -FCC0586
 PROSEQ             AX3    59                                                              PROSEQ       620          I
          -FCC0586
 PROSEQ             BX2    -X3*X2      IF ^D[DIW] THEN U=0                                 PROSEQ       621          I
          -FCC0586
 PROSEQ             LX6    DP.NIP                                                  AIS     PROSEQ       622          I
          -FCC0586
 PROSEQ             BX7    X6+X5                                                   AIS     PROSEQ       623          I
          -FCC0586
 PROSEQ             SB7    B7+X2       DUI = DUI + U                               AIS     PROSEQ       624          I
          -FCC0586
 PROSEQ             SA7    A1+B1       LI = DI + 1 ;  [LI] = DPW(II,NI)            AIS     PROSEQ       625          I
          -FCC0586
 PROSEQ             LX1    D.USESP+59-D.RFP                                        AIS     PROSEQ       626          I
          -FCC0586
 PROSEQ             SA2    B2          R1W = [R1I]                                 AIS     PROSEQ       627          I
          -FCC0586
 PROSEQ             UX0    B6,X2       OCI = OC[R1W]                               AIS     PROSEQ       628          I
          -FCC0586
 PROSEQ             PL     X1,BDU2     IF ^RF[DIW]                                 AIS     PROSEQ       629          I
          -FCC0586
 PROSEQ             SB5    B6-OC.RS                                                AIS     PROSEQ       630          I
          -FCC0586
 PROSEQ             ZR     B5,BDU2     IF OCI = OC.RS                              AIS     PROSEQ       631          I
          -FCC0586
 PROSEQ             SA2    B2          R1W = [R1I]                                         FCC0586        6     A     
 PROSEQ             LX6    DP.NIP                                                          FCC0586        7     A     
 PROSEQ             BX3    -X0*X1      U = USES[DIW]                                       FCC0586        8     A     
 PROSEQ             BX7    X6+X5                                                           FCC0586        9     A     
 PROSEQ             SA7    A1+B1       LI = DI + 1 ;  [LI] = DPW(II,NI)                    FCC0586       10     A     
 PROSEQ             UX0    B6,X2       OCI = OC[R1W]                                       FCC0586       11     A     
 PROSEQ             LX1    D.USESP+59-D.^DP                                                FCC0586       12     A     
 PROSEQ             MI     X1,BDU2     IF ^D[DIW]                                          FCC0586       13     A     
 PROSEQ             BX0    X1                                                              FCC0586       14     A     
 PROSEQ             SB7    B7+X3       DUI = DUI + U                                       FCC0586       15     A     
 PROSEQ             LX0    D.^DP-D.RFP                                                     FCC0586       16     A     
 PROSEQ             PL     X0,BDU2     IF ^RF[DIW]                                         FCC0586       17     A     
 PROSEQ             SA3    BDUA                                                            FCC0586       18     A     
 PROSEQ             BX0    X3*X0                                                           FCC0586       19     A     
 PROSEQ             NZ     X0,BDU2     IF (PRS,RJRS,PI)[DIW]                               FCC0586       20     A     
 PROSEQ                                                                            AIS     PROSEQ       632     A     
 PROSEQ   *         FILE *RF* DEFINITION IN BCT.                                   AIS     PROSEQ       633     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3207    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ                                                                            AIS     PROSEQ       634     A     
 PROSEQ             SA4    L.BCT                                                   AIS     PROSEQ       635     A     
 PROSEQ             SA3    O.BCT                                                   AIS     PROSEQ       636     A     
 PROSEQ             MX0    -R1.RIL                                                 AIS     PROSEQ       637     A     
 PROSEQ             SB5    X4                                                              PROSEQ       638     A     
 PROSEQ             LX2    -R1.RIP                                                 AIS     PROSEQ       639     A     
 PROSEQ             BX6    -X0*X2                                                  AIS     PROSEQ       640     A     
 PROSEQ             LX6    BC.RIP      RID = RI[R1W]                               AIS     PROSEQ       641     A     
 PROSEQ             SA6    X3+B5       BCT(L.BCT) = BCW(RID)                               PROSEQ       642     A     
 PROSEQ             SX7    B5+B1                                                           PROSEQ       643     A     
 PROSEQ             LX2    R1.RIP                                                  AIS     PROSEQ       644     A     
 PROSEQ             SA7    A4          L.BCT = L.BCT + 1                           AIS     PROSEQ       645     A     
 PROSEQ                                                                            AIS     PROSEQ       646     A     
 PROSEQ    BDU2     LX1    1+D.RFP+58-D.TYP                                        AIS     PROSEQ       647          I
          -FCC0586
 PROSEQ    BDU2     LX1    1+D.^DP+58-D.TYP                                                FCC0586       21     A     
 PROSEQ             IX7    X1+X1                                                   AIS     PROSEQ       648     A     
 PROSEQ             MI     X1,BDU6     IF TY[DIW] .GE. III                         AIS     PROSEQ       649     A     
 PROSEQ             MI     X7,BDU5     IF TY[DIW] = II                             AIS     PROSEQ       650     A     
 PROSEQ                                                                            AIS     PROSEQ       651     A     
 PROSEQ   *         TYPE I INSTRUCTION.                                            AIS     PROSEQ       652     A     
 PROSEQ                                                                            AIS     PROSEQ       653     A     
 PROSEQ             LX1    2+D.TYP-D.TYIOP                                         AIS     PROSEQ       654     A     
 PROSEQ             MX6    -D.TYIOL                                                AIS     PROSEQ       655     A     
 PROSEQ             SB5    B6-OC.PLD                                               AIS     PROSEQ       656     A     
 PROSEQ             BX7    -X6*X1                                                  AIS     PROSEQ       657     A     
 PROSEQ             MX0    -R1.RIL                                                 AIS     PROSEQ       658     A     
 PROSEQ             SA3    =XTYIOM+X7                                              AIS     PROSEQ       659     A     
 PROSEQ             UX6    B4,X3                                                   AIS     PROSEQ       660     A     
 PROSEQ             BX3    X6*X2                                                   AIS     PROSEQ       661     A     
 PROSEQ             AX4    B4,X3                                                   AIS     PROSEQ       662     A     
 PROSEQ             BX3    -X0*X4                                                  AIS     PROSEQ       663     A     
 PROSEQ                                                                            AIS     PROSEQ       664     A     
 PROSEQ    BDU3     ZR     X3,BDU4     IF OPN = 0                                  AIS     PROSEQ       665     A     
 PROSEQ             RJ     EDU         ENTER USE IN DUT                            AIS     PROSEQ       666     A     
 PROSEQ             MI     B5,BDU4     IF OCI .LT. OC.PLD                          AIS     PROSEQ       667     A     
 PROSEQ             ZR     B5,BDU3A    IF OCI = OC.PLD                             AIS     PROSEQ       668     A     
 PROSEQ             NE     B5,B1,BDU4  IF OCI .NE. OC.PST                          AIS     PROSEQ       669     A     
 PROSEQ             ZR     B4,BDU4     IF RI MOD                                   AIS     PROSEQ       670     A     
 PROSEQ                                                                            AIS     PROSEQ       671     A     
 PROSEQ   *         SHORT USE. SET SU BIT IN DUT ENTRY.                            AIS     PROSEQ       672     A     
 PROSEQ                                                                            AIS     PROSEQ       673     A     
 PROSEQ    BDU3A    MX3    1                                                       AIS     PROSEQ       674     A     
 PROSEQ             LX3    1+DU.SUP                                                AIS     PROSEQ       675     A     
 PROSEQ             BX7    X7+X3       SU[DUW] = 1                                 AIS     PROSEQ       676     A     
 PROSEQ             SA7    A7                                                      AIS     PROSEQ       677     A     
 PROSEQ                                                                            AIS     PROSEQ       678     A     
 PROSEQ    BDU4     AX4    R1.RIL                                                  AIS     PROSEQ       679     A     
 PROSEQ             ZR     X4,BDU1     IF NO OPERANDS REMAIN                       AIS     PROSEQ       680     A     
 PROSEQ             SB4    B4+R1.RIL                                               AIS     PROSEQ       681     A     
 PROSEQ             BX3    -X0*X4      OPN =                                       AIS     PROSEQ       682     A     
 PROSEQ             EQ     BDU3                                                    AIS     PROSEQ       683     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3208    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ                                                                            AIS     PROSEQ       684     A     
 PROSEQ   *         TYPE II INSTRUCTION.                                           AIS     PROSEQ       685     A     
 PROSEQ                                                                            AIS     PROSEQ       686     A     
 PROSEQ    BDU5     LX1    1+D.TYP-D.PIP                                           AIS     PROSEQ       687     A     
 PROSEQ             PL     X1,BDU1     IF ^PI[DIW]                                 AIS     PROSEQ       688     A     
 PROSEQ                                                                            AIS     PROSEQ       689     A     
 PROSEQ   *         RS OR DEF INSTRUCTION.                                         AIS     PROSEQ       690     A     
 PROSEQ                                                                            AIS     PROSEQ       691     A     
 PROSEQ             BX3    X2                                                              PROSEQ       692     A     
 PROSEQ             LX1    D.PIP-D.^DP                                                     PROSEQ       693     A     
 PROSEQ             PL     X1,BDU5A    IF D[DIW]                                           PROSEQ       694     A     
 PROSEQ             LX3    59-R1.SOP-SO.LKP                                                PROSEQ       695     A     
 PROSEQ             MI     X3,BDU5A    IF MOD(LK[SO[R1W]],2) .NE. 0  */ ODD TYPE           PROSEQ       696     A     
 PROSEQ                                                                                    PROSEQ       697     A     
 PROSEQ   *         ENTER RI OF TYPE 0 OR 2 RS IN DUT.                                     PROSEQ       698     A     
 PROSEQ                                                                                    PROSEQ       699     A     
 PROSEQ             MX0    -R1.RIL                                                         PROSEQ       700     A     
 PROSEQ             R=     B4,R1.RIP                                                       PROSEQ       701     A     
 PROSEQ             LX2    -R1.RIP                                                         PROSEQ       702     A     
 PROSEQ             BX3    -X0*X2                                                          PROSEQ       703     A     
 PROSEQ             RJ     EDU                                                             PROSEQ       704     A     
 PROSEQ             SX6    B3-B2                                                           FCC1837X       6     A     
 PROSEQ             LX6    DU.USEP                                                         FCC1837X       7     A     
 PROSEQ             IX7    X6+X7       USE[DUT] = R1L-O.SEQ */ USED UNTIL NEXT BM          FCC1837X       8     A     
 PROSEQ             SA7    A7                                                              FCC1837X       9     A     
 PROSEQ             LX2    R1.RIP                                                          PROSEQ       705     A     
 PROSEQ                                                                                    PROSEQ       706     A     
 PROSEQ    BDU5A    MX0    -SO.RTL                                                         PROSEQ       707     A     
 PROSEQ             LX2    -R1.SOP-SO.RTP                                          AIS     PROSEQ       708     A     
 PROSEQ             BX3    -X0*X2                                                  AIS     PROSEQ       709     A     
 PROSEQ             SB6    X3-RT.BR                                                AIS     PROSEQ       710     A     
 PROSEQ             NZ     B6,BDU1     IF NOT B-REG LOCK                           AIS     PROSEQ       711     A     
 PROSEQ             LX2    SO.RTP-SO.RNP                                           AIS     PROSEQ       712     A     
 PROSEQ             BX3    -X0*X2                                                  AIS     PROSEQ       713     A     
 PROSEQ             ZR     X3,BDU1     IF LOCK OF B0                               AIS     PROSEQ       714     A     
 PROSEQ             SB5    X3                                                      AIS     PROSEQ       715     A     
 PROSEQ                                                                            AIS     PROSEQ       716     A     
 PROSEQ   *         ENTER PRE-ASSIGNED B-REG IN PBT.                               AIS     PROSEQ       717     A     
 PROSEQ                                                                            AIS     PROSEQ       718     A     
 PROSEQ             SA5    L.PBT                                                   AIS     PROSEQ       719     A     
 PROSEQ             SA4    O.PBT                                                   AIS     PROSEQ       720     A     
 PROSEQ             LX2    SO.RNP+R1.SOP-R1.RIP                                    AIS     PROSEQ       721     A     
 PROSEQ             MX0    -R1.RIL                                                 AIS     PROSEQ       722     A     
 PROSEQ             SB4    X5                                                      AIS     PROSEQ       723     A     
 PROSEQ             BX6    -X0*X2      RID = RI[R1W]                               AIS     PROSEQ       724     A     
 PROSEQ             LX6    PB.RIP                                                  AIS     PROSEQ       725     A     
 PROSEQ             LX3    PB.RNP                                                  AIS     PROSEQ       726     A     
 PROSEQ             BX6    X6+X3                                                   AIS     PROSEQ       727     A     
 PROSEQ             LX2    R1.RIP+59-R1.SOP-SO.LKP-1                               AIS     PROSEQ       728     A     
 PROSEQ             IX3    X2+X2       LT = LK[SO[R1W]]                            AIS     PROSEQ       729     A     
 PROSEQ             SX5    LU.INF      LU = .INF.                                  AIS     PROSEQ       730     A     
 PROSEQ             AX3    59                                                      AIS     PROSEQ       731     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3209    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             BX1    -X3*X5      IF (LT .EQ. 1  .OR.  LT .EQ. 3) LU = 0      AIS     PROSEQ       732     A     
 PROSEQ             LX1    PB.LUP                                                  AIS     PROSEQ       733     A     
 PROSEQ             BX6    X6+X1                                                   AIS     PROSEQ       734     A     
 PROSEQ             SA6    X4+B4       PBT(L.PBT) = PBW(RN,PID,LU)                 AIS     PROSEQ       735     A     
 PROSEQ             SX7    B4+B1                                                   AIS     PROSEQ       736     A     
 PROSEQ             SA7    A5          L.PBT = L.PBT + 1                           AIS     PROSEQ       737     A     
 PROSEQ                                                                            AIS     PROSEQ       738     A     
 PROSEQ   *         SET FLAG (BIT IN FLF) TO TAKE REG OFF MARKET AT END OF         .NO.ID. PROSEQ       739     A     
 PROSEQ   *         SUBSEQUENCE IF THIS WAS A TYPE 2 LOCK.                         .NO.ID. PROSEQ       740     A     
 PROSEQ                                                                            AIS     PROSEQ       741     A     
 PROSEQ             MX0    1                                                       AIS     PROSEQ       742     A     
 PROSEQ             BX3    -X3*X2                                                  AIS     PROSEQ       743     A     
 PROSEQ             BX2    X0*X3                                                   AIS     PROSEQ       744     A     
 PROSEQ             SA4    FLF                                                     AIS     PROSEQ       745     A     
 PROSEQ             LX2    B5                                                      AIS     PROSEQ       746     A     
 PROSEQ             BX6    X4+X2                                                   AIS     PROSEQ       747     A     
 PROSEQ             SA6    A4                                                      AIS     PROSEQ       748     A     
 PROSEQ             EQ     BDU1                                                    AIS     PROSEQ       749     A     
 PROSEQ                                                                            AIS     PROSEQ       750     A     
 PROSEQ   *         TYPE III OR IV INSTRUCTION.                                    AIS     PROSEQ       751     A     
 PROSEQ                                                                            AIS     PROSEQ       752     A     
 PROSEQ    BDU6     MI     X7,BDU1     IF TY[DIW] = IV                             AIS     PROSEQ       753     A     
 PROSEQ             LX1    1+D.TYP-D.^DP                                           AIS     PROSEQ       754     A     
 PROSEQ             SX0    RMSK                                                    AIS     PROSEQ       755     A     
 PROSEQ             PL     X1,BDU7     IF D[DIW]                                   AIS     PROSEQ       756     A     
 PROSEQ             BX3    X0*X2                                                   AIS     PROSEQ       757     A     
 PROSEQ             ZR     X3,BDU7     IF RI[R1W] .LT. 2                           AIS     PROSEQ       758     A     
 PROSEQ             SB4    0           SC = 0                                      AIS     PROSEQ       759     A     
 PROSEQ             RJ     EDU         ENTER USE OF RI IN DUT                      AIS     PROSEQ       760     A     
 PROSEQ                                                                            AIS     PROSEQ       761     A     
 PROSEQ    BDU7     SA4    B2+B1       R2 = R1I + 1 ;  R2W = [R2]                  AIS     PROSEQ       762     A     
 PROSEQ             LX4    -IH.RFP                                                 AIS     PROSEQ       763     A     
 PROSEQ             BX3    X0*X4                                                   AIS     PROSEQ       764     A     
 PROSEQ             ZR     X3,BDU1     IF RF[R2W] .LT. 2                           AIS     PROSEQ       765     A     
 PROSEQ             SB4    -IH.RFP     SC = IH.RFP                                 AIS     PROSEQ       766     A     
 PROSEQ             RJ     EDU         FILE USE OF RF IN DUT                       AIS     PROSEQ       767     A     
 PROSEQ                                                                            AIS     PROSEQ       768     A     
 PROSEQ   *         MARK SHORT USE.                                                AIS     PROSEQ       769     A     
 PROSEQ                                                                            AIS     PROSEQ       770     A     
 PROSEQ             MX3    1                                                       AIS     PROSEQ       771     A     
 PROSEQ             LX3    1+DU.SUP                                                AIS     PROSEQ       772     A     
 PROSEQ             BX7    X7+X3       SU[DUW] = 1                                 AIS     PROSEQ       773     A     
 PROSEQ             SA7    A7                                                      AIS     PROSEQ       774     A     
 PROSEQ             EQ     BDU1                                                    AIS     PROSEQ       775     A     
 PROSEQ    EDU      SPACE  3,14        EDU                                                 PROSEQ       776     A     
 PROSEQ   **        EDU - ENTER USE IN DUT.                                        AIS     PROSEQ       777     A     
 PROSEQ   *         ENTRY  X3 - R-NUMBER OF USED OPERAND.                          .NO.ID. PROSEQ       778     A     
 PROSEQ   *                B2 - R1I, *SEQ* INDEX OF USE.                           .NO.ID. PROSEQ       779     A     
 PROSEQ   *                B4 - SC, SHIFT COUNT .                                  AIS     PROSEQ       780     A     
 PROSEQ   *                A0 - O.SEQ                                              AIS     PROSEQ       781     A     
 PROSEQ   *                                                                        AIS     PROSEQ       782     A     
 PROSEQ   *         EXIT   A0 - PRESERVED.                                         AIS     PROSEQ       783          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3210    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
          -FCC1837X 
 PROSEQ   *         EXIT   A0, B4 PRESERVED                                                FCC1837X      10     A     
 PROSEQ   *                A7,X7 - ADDRESS AND CONTENTS OF UPDATED *DUT* WORD.             FCC1837X      11     A     
 PROSEQ   *                                                                        AIS     PROSEQ       784     A     
 PROSEQ   *         USES - X3,X5,X6,X7,A3,A5,A6,A7,B6                              AIS     PROSEQ       785     A     
 PROSEQ                                                                            AIS     PROSEQ       786     A     
 PROSEQ    EDU      ROUTINE                                                        AIS     PROSEQ       787     A     
 PROSEQ             SB6    A0                                                      AIS     PROSEQ       788     A     
 PROSEQ             SX6    B2-B6       USE = R1I - O.SEQ                           AIS     PROSEQ       789     A     
 PROSEQ             SB6    A0+3                                                    AIS     PROSEQ       790     A     
 PROSEQ             SA5    X3+B6       LD = O.SEQ + DEF + 3                        AIS     PROSEQ       791     A     
 PROSEQ             LX5    -DP.NIP                                                 AIS     PROSEQ       792     A     
 PROSEQ             LX3    DU.DEFP                                                 AIS     PROSEQ       793     A     
 PROSEQ             LX6    DU.USEP                                                 AIS     PROSEQ       794     A     
 PROSEQ             BX7    X6+X3                                                   AIS     PROSEQ       795     A     
 PROSEQ             SX3    B1                                                      .NO.ID. PROSEQ       796     A     
 PROSEQ             PX7    B4,X7                                                   AIS     PROSEQ       797     A     
 PROSEQ             SA7    X5          DUT(NI[LD]) = DUW(0,SC,USE,DEF)             AIS     PROSEQ       798     A     
 PROSEQ             IX6    X5+X3       NI[LD] = NI[LD] + 1                         AIS     PROSEQ       799     A     
 PROSEQ             LX6    DP.NIP                                                  AIS     PROSEQ       800     A     
 PROSEQ             SA6    A5                                                      AIS     PROSEQ       801     A     
 PROSEQ             LX5    DP.NIP-DP.IIP                                                   FCC1837X      12     A     
 PROSEQ             SB6    X5                                                              FCC1837X      13     A     
 PROSEQ             SX3    A7-B6                                                           FCC1837X      14     A     
 PROSEQ             ZR     X3,EDU      IF II[LD] = NI[LD] - 1  */ FIRST USE                FCC1837X      15     A     
 PROSEQ                                                                                    FCC1837X      16     A     
 PROSEQ   *         ENSURE THAT THE LAST USE IS THE MAX.  REVERSAL CAN HAPPEN              FCC1837X      17     A     
 PROSEQ   *         WHEN USES > 1 AND AN EARLY USE *PRS* TO A UJP LOCK *RS*.               FCC1837X      18     A     
 PROSEQ                                                                                    FCC1837X      19     A     
 PROSEQ             SA5    A7-B1                                                           FCC1837X      20     A     
 PROSEQ             LX7    -DU.USEP                                                        FCC1837X      21     A     
 PROSEQ             SX6    X7                                                              FCC1837X      22     A     
 PROSEQ             LX5    -DU.USEP                                                        FCC1837X      23     A     
 PROSEQ             SX3    X5                                                              FCC1837X      24     A     
 PROSEQ             IX3    X6-X3                                                           FCC1837X      25     A     
 PROSEQ             LX7    DU.USEP                                                         FCC1837X      26     A     
 PROSEQ             PL     X3,EDU      IF USE[NI] \ USE[NI-1]                              FCC1837X      27     A     
 PROSEQ             LX5    DU.USEP                                                         FCC1837X      28     A     
 PROSEQ             SA7    A7-B1       SWAP( DUT(NI) , DUT(NI-1) )                         FCC1837X      29     A     
 PROSEQ             BX7    X5                                                              FCC1837X      30     A     
 PROSEQ             SA7    A7+B1                                                           FCC1837X      31     A     
 PROSEQ             EQ     EDU                                                     AIS     PROSEQ       802     A     
 PROSEQ    IUP      EJECT              IUP                                                 PROSEQ       803     A     
 PROSEQ   **        IUP - INSTALL USE INFORMATION IN PBT.                          AIS     PROSEQ       804     A     
 PROSEQ   *                                                                        AIS     PROSEQ       805     A     
 PROSEQ   *         ENTRY  A0 - O.SEQ                                              AIS     PROSEQ       806     A     
 PROSEQ   *                                                                        AIS     PROSEQ       807     A     
 PROSEQ   *         EXIT   A0 - PRESERVED.                                         AIS     PROSEQ       808     A     
 PROSEQ                                                                            AIS     PROSEQ       809     A     
 PROSEQ    IUP      ROUTINE                                                        AIS     PROSEQ       810     A     
 PROSEQ             SA1    L.PBT                                                   AIS     PROSEQ       811     A     
 PROSEQ             SA2    O.PBT                                                   AIS     PROSEQ       812     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3211    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             SB7    X2                                                      AIS     PROSEQ       813     A     
 PROSEQ             SA1    X1+B7       PBC = PBT(L.PBT+1)                          AIS     PROSEQ       814     A     
 PROSEQ             SB7    A0+3                                                    AIS     PROSEQ       815     A     
 PROSEQ             MX0    -PB.RNL                                                 AIS     PROSEQ       816     A     
 PROSEQ             EQ     IUP2                                                    AIS     PROSEQ       817     A     
 PROSEQ                                                                            AIS     PROSEQ       818     A     
 PROSEQ    IUP1     LX1    PB.LUP                                                  AIS     PROSEQ       819     A     
 PROSEQ             LX2    PB.PP       P = PI                                      AIS     PROSEQ       820     A     
 PROSEQ             BX6    X1+X2       P[PBW] = P                                  AIS     PROSEQ       821     A     
 PROSEQ             SA6    A1+                                                     AIS     PROSEQ       822     A     
 PROSEQ                                                                            AIS     PROSEQ       823     A     
 PROSEQ    IUP2     SA1    A1-B1       PBC = PBC - 1 ;  PBW = [PBC]                AIS     PROSEQ       824     A     
 PROSEQ             ZR     X1,IUP      IF PBC = PBT(0)                             AIS     PROSEQ       825     A     
 PROSEQ             LX1    -PB.RNP                                                 AIS     PROSEQ       826     A     
 PROSEQ             BX3    -X0*X1                                                  AIS     PROSEQ       827     A     
 PROSEQ             SA2    PBI+X3-1    PI = PBI(RN[PBW]) ;  PIW = [PI]             AIS     PROSEQ       828     A     
 PROSEQ             BX4    X1                                                      AIS     PROSEQ       829     A     
 PROSEQ             LX2    59-PI.NAP                                               AIS     PROSEQ       830     A     
 PROSEQ             MI     X2,IUP2     IF NA[PIW]                                  AIS     PROSEQ       831     A     
 PROSEQ             LX2    1+PI.NAP+PB.PP            P = PI                        AIS     PROSEQ       832     A     
 PROSEQ             SX6    A1                                                      AIS     PROSEQ       833     A     
 PROSEQ             LX1    PB.RNP-PB.LUP                                           AIS     PROSEQ       834     A     
 PROSEQ             SA6    A2          P[PI] = PBC                                 AIS     PROSEQ       835     A     
 PROSEQ             SX3    X1                                                      AIS     PROSEQ       836     A     
 PROSEQ             NZ     X3,IUP1     IF LU[PBW] .NE. 0                           AIS     PROSEQ       837     A     
 PROSEQ                                                                            AIS     PROSEQ       838     A     
 PROSEQ   *         INSTALL LAST USE IN PBT ENTRY FOR TEMP LOCKS.                  AIS     PROSEQ       839     A     
 PROSEQ                                                                            AIS     PROSEQ       840     A     
 PROSEQ             LX4    PB.RNP-PB.RIP                                           AIS     PROSEQ       841     A     
 PROSEQ             SA3    X4+B7       LI = O.SEQ + RI[PBW] + 3 ;  LIW = [LI]      AIS     PROSEQ       842     A     
 PROSEQ             LX3    -DP.NIP                                                 AIS     PROSEQ       843     A     
 PROSEQ             SA4    X3-1        DUC = DUT(NI[LIW]-1) ;  DUW = [DUC]         AIS     PROSEQ       844     A     
 PROSEQ             LX4    -DU.USEP                                                AIS     PROSEQ       845     A     
 PROSEQ             SX3    X4                                                      AIS     PROSEQ       846     A     
 PROSEQ             BX1    X1+X3       LU[PBW] = USE[DUW]                          AIS     PROSEQ       847     A     
 PROSEQ             EQ     IUP1                                                    AIS     PROSEQ       848     A     
 PROSEQ    IXU      EJECT              IXU                                                 PROSEQ       849     A     
 PROSEQ   **        IXU - INSTALL EXTENDED USE SPAN IN BCT MEMBERS.                AIS     PROSEQ       850     A     
 PROSEQ   *                                                                        AIS     PROSEQ       851     A     
 PROSEQ   *         ENTRY  A0 - O.SEQ                                              AIS     PROSEQ       852     A     
 PROSEQ   *                                                                        AIS     PROSEQ       853     A     
 PROSEQ   *         EXIT   X4 - SMAXW ,  MAX REGW OVER EXTENDED USE OF ALL         AIS     PROSEQ       854     A     
 PROSEQ   *                CANDIDATES.                                             AIS     PROSEQ       855     A     
 PROSEQ   *                A0 - PRESERVED.                                         AIS     PROSEQ       856     A     
 PROSEQ                                                                            AIS     PROSEQ       857     A     
 PROSEQ    IXU      ROUTINE                                                        AIS     PROSEQ       858     A     
 PROSEQ             SA1    O.BCT                                                   AIS     PROSEQ       859     A     
 PROSEQ             SA2    L.BCT                                                   AIS     PROSEQ       860     A     
 PROSEQ             MX6    0                                                       AIS     PROSEQ       861     A     
 PROSEQ             SB6    X2                                                      AIS     PROSEQ       862     A     
 PROSEQ             BX4    X4-X4       SMAXW = 0                                   AIS     PROSEQ       863     A     
 PROSEQ             SA6    X1+B6       BCT(L.BCT+1)=0                              AIS     PROSEQ       864     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3212    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             SA1    X1-1        N = 0                                       AIS     PROSEQ       865     A     
 PROSEQ             SB6    A0+3        OLS = O.SEQ + 3                             AIS     PROSEQ       866     A     
 PROSEQ             SB5    A0+2        ODS = O.SEQ + 2                             AIS     PROSEQ       867     A     
 PROSEQ             EQ     IXU3                                                    AIS     PROSEQ       868     A     
 PROSEQ                                                                            AIS     PROSEQ       869     A     
 PROSEQ    IXU1     IX3    X4-X7                                                   AIS     PROSEQ       870     A     
 PROSEQ             PL     X3,IXU2     IF SMAXW \ MAXR                             AIS     PROSEQ       871     A     
 PROSEQ             BX4    X7          SMAXW = MAXR                                AIS     PROSEQ       872     A     
 PROSEQ                                                                            AIS     PROSEQ       873     A     
 PROSEQ    IXU2     LX1    BC.RIP                                                  AIS     PROSEQ       874     A     
 PROSEQ             BX3    X6+X1                                                   AIS     PROSEQ       875     A     
 PROSEQ             LX7    BC.MRWP                                                 AIS     PROSEQ       876     A     
 PROSEQ             BX6    X3+X7                                                   AIS     PROSEQ       877     A     
 PROSEQ             SA6    A1                                                      AIS     PROSEQ       878     A     
 PROSEQ                                                                            AIS     PROSEQ       879     A     
 PROSEQ    IXU3     SA1    A1+B1       N = N + 1 ; BCN = BCT(N) ;  BCW = [BCN]     AIS     PROSEQ       880     A     
 PROSEQ             ZR     X1,IXU      IF N .GT. L.BCT                             AIS     PROSEQ       881     A     
 PROSEQ             LX1    -BC.RIP                                                 AIS     PROSEQ       882     A     
 PROSEQ             SA5    B6+X1       LN = OLS + RI[BCW] ;  LNW = [LN]            AIS     PROSEQ       883     A     
 PROSEQ             LX5    -DP.NIP                                                 AIS     PROSEQ       884     A     
 PROSEQ             SB2    X5          UEN = NI[LNW]                               AIS     PROSEQ       885     A     
 PROSEQ             LX5    DP.NIP-DP.IIP                                           AIS     PROSEQ       886     A     
 PROSEQ             SB3    X5          UI = USN = II[LNW]                          AIS     PROSEQ       887     A     
 PROSEQ             MX6    0           LXU = 0                                     AIS     PROSEQ       888     A     
 PROSEQ                                                                            AIS     PROSEQ       889     A     
 PROSEQ    IXU4     SA2    B3          UIW = [UI]                                  AIS     PROSEQ       890     A     
 PROSEQ             LX2    -DU.USEP                                                AIS     PROSEQ       891     A     
 PROSEQ             SA5    B6+X2       LU = OLS + USE[UIW] ;  LUW = [LU]           AIS     PROSEQ       892     A     
 PROSEQ             SB3    B3+B1       UI = UI + 1                                 AIS     PROSEQ       893     A     
 PROSEQ             LX5    -DP.NIP                                                 AIS     PROSEQ       894     A     
 PROSEQ             SA2    X5-1        XU = DU(NI[LUW]-1) ;  XUW = [XU]            AIS     PROSEQ       895     A     
 PROSEQ             LX2    -DU.USEP    XUI = USE[XUW]                              AIS     PROSEQ       896     A     
 PROSEQ             SX5    X2                                                      AIS     PROSEQ       897     A     
 PROSEQ             IX7    X6-X5                                                   AIS     PROSEQ       898     A     
 PROSEQ             PL     X7,IXU5     IF XUI .LE. LXU                             AIS     PROSEQ       899     A     
 PROSEQ             BX6    X5          LXU = XUI                                   AIS     PROSEQ       900     A     
 PROSEQ                                                                            AIS     PROSEQ       901     A     
 PROSEQ    IXU5     NE     B3,B2,IXU4  IF UI .NE. UEN                              AIS     PROSEQ       902     A     
 PROSEQ             SX7    B0          MAXR = 0                                    AIS     PROSEQ       903     A     
 PROSEQ             MX0    -D.REGWL                                                AIS     PROSEQ       904     A     
 PROSEQ             SB3    X6+B5       DJE = ODS + LXU                             AIS     PROSEQ       905     A     
 PROSEQ             LX6    BC.LXUP                                                 AIS     PROSEQ       906     A     
 PROSEQ             SB2    X1+B5       DJI = DJS = ODS + RI[BCW]                   AIS     PROSEQ       907     A     
 PROSEQ                                                                            AIS     PROSEQ       908     A     
 PROSEQ    IXU6     GT     B2,B3,IXU1  IF DJI .GT. DJE                             AIS     PROSEQ       909     A     
 PROSEQ             SA2    B2          DJW = [DJI]                                 AIS     PROSEQ       910     A     
 PROSEQ             LX2    -D.REGWP                                                AIS     PROSEQ       911     A     
 PROSEQ             BX3    -X0*X2      RW = REGW[DJW]                              AIS     PROSEQ       912     A     
 PROSEQ             IX5    X7-X3                                                   AIS     PROSEQ       913     A     
 PROSEQ             SB2    B2+4        DJI = DJI + 4                               AIS     PROSEQ       914     A     
 PROSEQ             PL     X5,IXU6     IF MAXR .GE. RW                             AIS     PROSEQ       915     A     
 PROSEQ             BX7    X3          MAXR = RW                                   AIS     PROSEQ       916     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3213    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             EQ     IXU6                                                    AIS     PROSEQ       917     A     
 PROSEQ    ABR      EJECT              ABR                                                 PROSEQ       918     A     
 PROSEQ   **        ABR - ASSIGN B REGISTERS.                                      AIS     PROSEQ       919     A     
 PROSEQ   *         SCAN BCT, ASSIGNING AS MANY CANDIDATES AS POSSIBLE.            AIS     PROSEQ       920     A     
 PROSEQ   *                                                                        AIS     PROSEQ       921     A     
 PROSEQ   *         ENTRY  A0 - O.SEQ                                              AIS     PROSEQ       922     A     
 PROSEQ   *                                                                        AIS     PROSEQ       923     A     
 PROSEQ   *         EXIT   A0 - PRESERVED.                                         AIS     PROSEQ       924     A     
 PROSEQ                                                                            AIS     PROSEQ       925     A     
 PROSEQ    ABR      ROUTINE                                                        AIS     PROSEQ       926     A     
 PROSEQ             SETZERO  CAT,7                                                 AIS     PROSEQ       927     A     
 PROSEQ             SA1    O.BCT                                                   AIS     PROSEQ       928     A     
 PROSEQ             SA2    L.BCT                                                   AIS     PROSEQ       929     A     
 PROSEQ             SB6    X1                                                      AIS     PROSEQ       930     A     
 PROSEQ             SA6    X2+B6       BCT(L.BCT+1) = 0                            AIS     PROSEQ       931     A     
 PROSEQ             SA1    B6-B1       BI = O.BCT - 1                              AIS     PROSEQ       932     A     
 PROSEQ                                                                            AIS     PROSEQ       933     A     
 PROSEQ    ABR1     SA1    A1+B1       BI = BI + 1 ;  BIW = [BI]                   AIS     PROSEQ       934     A     
 PROSEQ             ZR     X1,ABR      IF BIW = 0    */ END OF BCT                 AIS     PROSEQ       935     A     
 PROSEQ                                                                                    PROSEQ       936     A     
 PROSEQ   *         AVOID ASSIGNING CANDIDATE WITH NO SHORT USES.                          PROSEQ       937     A     
 PROSEQ                                                                                    PROSEQ       938     A     
 PROSEQ             SB5    A0+3                                                            PROSEQ       939     A     
 PROSEQ             BX6    X1                                                              PROSEQ       940     A     
 PROSEQ             LX6    -BC.RIP                                                         PROSEQ       941     A     
 PROSEQ             SA2    X6+B5                                                           PROSEQ       942     A     
 PROSEQ             LX2    -DP.NIP                                                         PROSEQ       943     A     
 PROSEQ             SB4    X2          LP = DUT(NI[RI[BIW]+3])                             PROSEQ       944     A     
 PROSEQ             LX2    DP.NIP-DP.IIP                                                   PROSEQ       945     A     
 PROSEQ             SB3    X2          IP = DUT(II[RI[BIW]+3])                             PROSEQ       946     A     
 PROSEQ                                                                                    PROSEQ       947     A     
 PROSEQ    ABR1A    EQ     B3,B4,ABR1  IF IP = LP                                          PROSEQ       948     A     
 PROSEQ             SA2    B3          IPW = [IP]                                          PROSEQ       949     A     
 PROSEQ             LX2    59-DU.SUP                                                       PROSEQ       950     A     
 PROSEQ             SB3    B3+B1       IP = IP + 1                                         PROSEQ       951     A     
 PROSEQ             PL     X2,ABR1A    IF ^SU[IPW]                                         PROSEQ       952     A     
 PROSEQ             LX1    -BC.MRWP                                                AIS     PROSEQ       953     A     
 PROSEQ             SX0    X1-TRW                                                  AIS     PROSEQ       954     A     
 PROSEQ             MI     X0,ABR1     IF MRW[BIW] .LT. TRW                        AIS     PROSEQ       955     A     
 PROSEQ                                                                                    FCC0508        4     A     
 PROSEQ   *         DONT ASSIGN CANDIDATE WHOSE FINAL USE IS 60-BIT.                       FCC0508        5     A     
 PROSEQ                                                                                    FCC0508        6     A     
 PROSEQ             SA2    B4-B1       FP = LP - 1 ;  FPW = [FP]                           FCC0508        7     A     
 PROSEQ             LX2    59-DU.SUP                                                       FCC0508        8     A     
 PROSEQ             PL     X2,ABR1     IF ^SU[FPW]                                         FCC0508        9     A     
 PROSEQ             LX1    BC.MRWP-BC.RIP                                          AIS     PROSEQ       956     A     
 PROSEQ             SB4    X1                                                      AIS     PROSEQ       957     A     
 PROSEQ             SB3    -B4         -RIN  = -RI[BIW]                            AIS     PROSEQ       958     A     
 PROSEQ             SB6    B0          RN = 0                                      AIS     PROSEQ       959     A     
 PROSEQ             SB7    7                                                       AIS     PROSEQ       960     A     
 PROSEQ                                                                            AIS     PROSEQ       961     A     
 PROSEQ   *         SCAN FOR AVAILABLE B REGISTER WITH NO LOCKS IN FUTURE.         AIS     PROSEQ       962     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3214    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ                                                                            AIS     PROSEQ       963     A     
 PROSEQ    ABR2     SA2    PBI+B6      PN = PBI(RN+1) ;  PNW = [PN]                AIS     PROSEQ       964     A     
 PROSEQ             EQ     B6,B7,ABR3  IF RN = 7                                           PROSEQ       965     A     
 PROSEQ             LX2    59-PI.NAP                                               AIS     PROSEQ       966     A     
 PROSEQ             SB6    B6+B1       RN = RN +1                                  AIS     PROSEQ       967     A     
 PROSEQ             MI     X2,ABR2     IF NA[PNW]    */  RN OFF MARKET             AIS     PROSEQ       968     A     
 PROSEQ             NZ     X2,ABR2     IF P[PNW] .NE. 0  */ LOCK IN FUTURE         AIS     PROSEQ       969     A     
 PROSEQ             SA4    CAT+B6-1    CN = CAT(RN) ;  CNW = [CN]                  AIS     PROSEQ       970     A     
 PROSEQ             LX4    -CA.LXUP                                                AIS     PROSEQ       971     A     
 PROSEQ             SX7    X4+B3                                                   AIS     PROSEQ       972     A     
 PROSEQ             MI     X7,ABR7     IF LXU[CNW] .LT. RI[BIW]                    AIS     PROSEQ       973     A     
 PROSEQ             NE     B6,B7,ABR2  IF RN .NE. 7                                AIS     PROSEQ       974     A     
 PROSEQ                                                                            AIS     PROSEQ       975     A     
 PROSEQ   *         LOOK FOR AVAILABLE B REGISTER WITH A *HOLE* IN FUTURE LOCKS    AIS     PROSEQ       976     A     
 PROSEQ   *         WHICH WILL ACCOMODATE THIS CANDIDATE/S EXTENDED-USE SPAN.      AIS     PROSEQ       977     A     
 PROSEQ                                                                            AIS     PROSEQ       978     A     
 PROSEQ    ABR3     SB6    B0          RN = 0                                              PROSEQ       979     A     
 PROSEQ                                                                            AIS     PROSEQ       980     A     
 PROSEQ    ABR4     SA2    PBI+B6      PN = PBI(RN+1) ;  PNW = [PN]                AIS     PROSEQ       981     A     
 PROSEQ             EQ     B6,B7,ABR1  IF RN = 7    */ CANT ASSIGN THIS CANDIDATE  AIS     PROSEQ       982     A     
 PROSEQ             SB6    B6+B1       RN = RN + 1                                 AIS     PROSEQ       983     A     
 PROSEQ             LX2    59-PI.NAP                                               AIS     PROSEQ       984     A     
 PROSEQ             MI     X2,ABR4     IF NA[PNW]    THIS REG OFF MARKET           AIS     PROSEQ       985     A     
 PROSEQ             SA4    CAT+B6-1    CN = CAT[RN] ;  CNW = [CN]                  AIS     PROSEQ       986     A     
 PROSEQ             LX4    -CA.LXUP                                                AIS     PROSEQ       987     A     
 PROSEQ             SX7    X4+B3                                                   AIS     PROSEQ       988     A     
 PROSEQ             PL     X7,ABR4     IF LXU[CNW] .GE. RIN                        AIS     PROSEQ       989     A     
 PROSEQ             LX2    1+PI.NAP-PI.PP  PL=P[PNW]                               AIS     PROSEQ       990     A     
 PROSEQ                                                                            AIS     PROSEQ       991     A     
 PROSEQ    ABR5     SA3    X2          PBJ = PL ;  PBW = [PBJ]                     AIS     PROSEQ       992     A     
 PROSEQ             LX3    -PB.PP                                                  AIS     PROSEQ       993     A     
 PROSEQ             SX2    X3          PL = P[PBW]                                 AIS     PROSEQ       994     A     
 PROSEQ             LX3    PB.PP-PB.LUP                                            AIS     PROSEQ       995     A     
 PROSEQ             SX7    X3+B3                                                   AIS     PROSEQ       996     A     
 PROSEQ             PL     X7,ABR6     IF LU[PBW] .GT. RIN                         AIS     PROSEQ       997     A     
 PROSEQ             BX6    X2                                                              PROSEQ       998     A     
 PROSEQ             SA6    A2          P[PNW] = PL                                         PROSEQ       999     A     
 PROSEQ             NZ     X2,ABR5     IF PL .NE. 0                                AIS     PROSEQ      1000     A     
 PROSEQ                                                                            AIS     PROSEQ      1001     A     
 PROSEQ   *         NO LOCKS TO THIS REG PAST THIS CANDIDATE.                      AIS     PROSEQ      1002     A     
 PROSEQ                                                                            AIS     PROSEQ      1003     A     
 PROSEQ             EQ     ABR7                                                    AIS     PROSEQ      1004     A     
 PROSEQ                                                                            AIS     PROSEQ      1005     A     
 PROSEQ   *         DETERMINE IF NEXT LOCK IS FAR AHEAD ENOUGH TO LEAVE *HOLE*     AIS     PROSEQ      1006     A     
 PROSEQ   *         FOR THIS CANDIDATE/S SPAN.                                     AIS     PROSEQ      1007     A     
 PROSEQ                                                                            AIS     PROSEQ      1008     A     
 PROSEQ    ABR6     SA1    A1                                                              PROSEQ      1009     A     
 PROSEQ             LX1    -BC.LXUP                                                        PROSEQ      1010     A     
 PROSEQ             SX4    X1                                                      AIS     PROSEQ      1011     A     
 PROSEQ             LX3    PB.LUP-PB.RIP                                           AIS     PROSEQ      1012     A     
 PROSEQ             SX5    X3                                                      AIS     PROSEQ      1013     A     
 PROSEQ             IX7    X5-X4                                                   AIS     PROSEQ      1014     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3215    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             MI     X7,ABR4     IF LXU[BIW] .GT. RI[PBW]  */ OVERLAP        AIS     PROSEQ      1015     A     
 PROSEQ                                                                            AIS     PROSEQ      1016     A     
 PROSEQ   *         ASSIGNMENT MADE.  GENERATE MODS TO ISSUE SA-RS AND MODIFY      AIS     PROSEQ      1017     A     
 PROSEQ   *         INSTRUCTIONS WHICH USE CANDIDATE IN 60-BIT CAPACITY.           AIS     PROSEQ      1018     A     
 PROSEQ                                                                            AIS     PROSEQ      1019     A     
 PROSEQ    ABR7     SA2    A1          BIW = [BI]                                  AIS     PROSEQ      1020     A     
 PROSEQ             BX6    X2                                                      AIS     PROSEQ      1021     A     
 PROSEQ             SA6    CAT+B6-1    CAT(RN) = BIW                               AIS     PROSEQ      1022     A     
 PROSEQ             RJ     ISA         ISSUE SA-RS TO MOD                          AIS     PROSEQ      1023     A     
 PROSEQ             RJ     IUM         ISSUE USE MODIFICATIONS                     AIS     PROSEQ      1024     A     
 PROSEQ                                                                            AIS     PROSEQ      1025     A     
 PROSEQ   *         DECREMENT MRW OF ALL CANDIDATES FOLLOWING WHICH ARE FULLY      AIS     PROSEQ      1026     A     
 PROSEQ   *         CONTAINED IN THE SPAN OF THE CANDIDATE JUST ASSIGNED.          AIS     PROSEQ      1027     A     
 PROSEQ                                                                            AIS     PROSEQ      1028     A     
 PROSEQ             SA2    A1          BJ = BI                                     AIS     PROSEQ      1029     A     
 PROSEQ             LX2    -BC.LXUP                                                AIS     PROSEQ      1030     A     
 PROSEQ             SB7    X2                                                      AIS     PROSEQ      1031     A     
 PROSEQ             SB5    -B7                                                     AIS     PROSEQ      1032     A     
 PROSEQ             SX1    B1                                                      AIS     PROSEQ      1033     A     
 PROSEQ                                                                            AIS     PROSEQ      1034     A     
 PROSEQ    ABR8     SA2    A2+B1       BJ = BJ + 1 ;  BJW = [BJ]                   AIS     PROSEQ      1035     A     
 PROSEQ             ZR     X2,ABR1     IF BJW = 0    */ END OF BCT                 AIS     PROSEQ      1036     A     
 PROSEQ             LX2    -BC.LXUP                                                AIS     PROSEQ      1037     A     
 PROSEQ             SX7    X2+B5                                                   AIS     PROSEQ      1038     A     
 PROSEQ             PL     X7,ABR8     IF LXU[BJW] .GE. LXU[BIW]  */ OVERLAP       AIS     PROSEQ      1039     A     
 PROSEQ             LX2    BC.LXUP-BC.MRWP                                         AIS     PROSEQ      1040     A     
 PROSEQ             SX7    X2                                                      AIS     PROSEQ      1041     A     
 PROSEQ             ZR     X7,ABR8     IF MRW[BJW] = 0                             AIS     PROSEQ      1042     A     
 PROSEQ             IX6    X2-X1                                                   AIS     PROSEQ      1043     A     
 PROSEQ             LX6    BC.MRWP                                                 AIS     PROSEQ      1044     A     
 PROSEQ             SA6    A2          MRW[BJW] = MRW[BJW] - 1                     AIS     PROSEQ      1045     A     
 PROSEQ             EQ     ABR8                                                    AIS     PROSEQ      1046     A     
 PROSEQ    ISA      EJECT              ISA                                                 PROSEQ      1047     A     
 PROSEQ   **        ISA - ISSUE SHORT ADD AND REGISTER STORE.                      AIS     PROSEQ      1048     A     
 PROSEQ   *                                                                        AIS     PROSEQ      1049     A     
 PROSEQ   *         ENTRY  A1 - BI, LOCATION OF BCT ENTRY FOR THIS ASSIGNMENT.     AIS     PROSEQ      1050     A     
 PROSEQ   *                B3 - (-RIN)                                             AIS     PROSEQ      1051     A     
 PROSEQ   *                B6 - RN, REGISTER TO BE ASSIGNED.                       AIS     PROSEQ      1052     A     
 PROSEQ   *                                                                        AIS     PROSEQ      1053     A     
 PROSEQ   *         EXIT   B3 - PRESERVED.                                         AIS     PROSEQ      1054     A     
 PROSEQ   *                B4 - NMA, NEXT ADDRESS IN MOD.                          AIS     PROSEQ      1055     A     
 PROSEQ   *                B7 - RIS, INDEX IN MOD OF SA GENERATED.                 AIS     PROSEQ      1056     A     
 PROSEQ   *                A0 - PRESERVED.                                         AIS     PROSEQ      1057     A     
 PROSEQ   *                A1 - PRESERVED.                                         AIS     PROSEQ      1058     A     
 PROSEQ                                                                            AIS     PROSEQ      1059     A     
 PROSEQ    ISA      ROUTINE                                                        AIS     PROSEQ      1060     A     
 PROSEQ             SA2    O.MLT                                                   AIS     PROSEQ      1061     A     
 PROSEQ             SA3    L.MLT                                                   AIS     PROSEQ      1062     A     
 PROSEQ             SA5    O.MOD                                                   AIS     PROSEQ      1063     A     
 PROSEQ             MX6    0                                                       AIS     PROSEQ      1064     A     
 PROSEQ             IX7    X2+X3                                                   AIS     PROSEQ      1065     A     
 PROSEQ             SB2    X5                                                      AIS     PROSEQ      1066     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3216    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             SA6    X7          MLT(L.MLT+1) = 0                            AIS     PROSEQ      1067     A     
 PROSEQ             SA4    X2          MI = O.MLT ;  MIN = [MI]                    AIS     PROSEQ      1068     A     
 PROSEQ             SA5    L.MOD                                                   AIS     PROSEQ      1069     A     
 PROSEQ                                                                            AIS     PROSEQ      1070     A     
 PROSEQ    ISA1     ZR     X4,ISA2     IF MIN = 0    */ END OF MLT                 AIS     PROSEQ      1071     A     
 PROSEQ             LX4    -ML.IIP                                                 AIS     PROSEQ      1072     A     
 PROSEQ             SX7    X4+B3       MIW = MIN                                   AIS     PROSEQ      1073     A     
 PROSEQ             LX4    ML.IIP-ML.MTIP                                          AIS     PROSEQ      1074     A     
 PROSEQ             SB5    X4                                                      AIS     PROSEQ      1075     A     
 PROSEQ             SA4    A4+B1       MI = MI + 1 ;  MIN = [MI]                   AIS     PROSEQ      1076     A     
 PROSEQ             NZ     X7,ISA1     IF II[MIW] .NE. RIN                         AIS     PROSEQ      1077     A     
 PROSEQ             MX0    -R1.RIL                                                 AIS     PROSEQ      1078     A     
 PROSEQ             SA2    B2+B5       TI = O.MOD+MTI[MIW]                         AIS     PROSEQ      1079     A     
 PROSEQ             BX4    X0*X2                                                   AIS     PROSEQ      1080     A     
 PROSEQ             SA3    A2+B1                                                   AIS     PROSEQ      1081     A     
 PROSEQ             BX6    X4+X5       RI[TI] = L.MOD                              AIS     PROSEQ      1082     A     
 PROSEQ             LX7    X3                                                      AIS     PROSEQ      1083     A     
 PROSEQ             SA6    X5+B2       [MOD(L.MOD+1)] = [TI]                       AIS     PROSEQ      1084     A     
 PROSEQ             SA7    A6+B1       [MOD(L.MOD+2)] = [TI+1]                     AIS     PROSEQ      1085     A     
 PROSEQ             SA2    A3+B1                                                   AIS     PROSEQ      1086     A     
 PROSEQ             SA3    A2+B1                                                   AIS     PROSEQ      1087     A     
 PROSEQ             BX6    X2                                                      AIS     PROSEQ      1088     A     
 PROSEQ             LX7    X3                                                      AIS     PROSEQ      1089     A     
 PROSEQ             SA6    A7+B1       [MOD(L.MOD+3)] = [TI+2]                     AIS     PROSEQ      1090     A     
 PROSEQ             SA7    A6+B1       [MOD(L.MOD+4)] = [TI+3]                     AIS     PROSEQ      1091     A     
 PROSEQ             SA4    A4-B1       MI = MI - 1                                 AIS     PROSEQ      1092     A     
 PROSEQ             EQ     ISA4                                                    AIS     PROSEQ      1093     A     
 PROSEQ                                                                            AIS     PROSEQ      1094     A     
 PROSEQ    ISA2     SA2    L.MLT                                                   AIS     PROSEQ      1095     A     
 PROSEQ             SX6    X2+B1                                                   AIS     PROSEQ      1096     A     
 PROSEQ             SA6    A2          L.MLT = L.MLT + 1                           AIS     PROSEQ      1097     A     
 PROSEQ             MX0    -R1.RIL                                                 AIS     PROSEQ      1098     A     
 PROSEQ             SA2    A0-B3       R1I = O.SEQ + RIN                           AIS     PROSEQ      1099     A     
 PROSEQ             SA3    A2+2        DI = R1I + 2                                AIS     PROSEQ      1100     A     
 PROSEQ             BX7    X0*X2                                                   AIS     PROSEQ      1101     A     
 PROSEQ             SA2    A3-B1       R2I = DI - 1                                AIS     PROSEQ      1102     A     
 PROSEQ             BX6    X7+X5       RI = L.MOD                                  AIS     PROSEQ      1103     A     
 PROSEQ             SX0    100000B                                                 AIS     PROSEQ      1104     A     
 PROSEQ             LX3    58-D.TYP                                                AIS     PROSEQ      1105     A     
 PROSEQ             IX4    X3+X3                                                   AIS     PROSEQ      1106     A     
 PROSEQ             LX0    IH.RFP                                                  AIS     PROSEQ      1107     A     
 PROSEQ             IX7    X2+X0       RF = RF[R2I] + 100000                       AIS     PROSEQ      1108     A     
 PROSEQ             BX4    X3+X4                                                   AIS     PROSEQ      1109     A     
 PROSEQ             MI     X4,ISA3 IF TY[DI] .GT. 1                                AIS     PROSEQ      1110     A     
 PROSEQ             LX0    R1.RKP-IH.RFP                                           AIS     PROSEQ      1111     A     
 PROSEQ             IX4    X6+X0                                                   AIS     PROSEQ      1112     A     
 PROSEQ             LX0    R1.RJP-R1.RKP                                           AIS     PROSEQ      1113     A     
 PROSEQ             IX6    X4+X0                                                   AIS     PROSEQ      1114     A     
 PROSEQ                                                                            AIS     PROSEQ      1115     A     
 PROSEQ    ISA3     SA6    X5+B2                                                   AIS     PROSEQ      1116     A     
 PROSEQ             SA7    A6+B1                                                   AIS     PROSEQ      1117     A     
 PROSEQ             LX3    2+D.TYP                                                 AIS     PROSEQ      1118     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3217    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             BX6    X3                                                      AIS     PROSEQ      1119     A     
 PROSEQ             MX7    0                                                       AIS     PROSEQ      1120     A     
 PROSEQ             SA6    A7+B1                                                   AIS     PROSEQ      1121     A     
 PROSEQ             SA7    A6+B1                                                   AIS     PROSEQ      1122     A     
 PROSEQ                                                                            AIS     PROSEQ      1123     A     
 PROSEQ    ISA4     MX1    1                                                       AIS     PROSEQ      1124     A     
 PROSEQ             LX1    1+ML.DELP   DELM = 1                                    AIS     PROSEQ      1125     A     
 PROSEQ             MX3    2                                                       AIS     PROSEQ      1126     A     
 PROSEQ             LX3    2+ML.NIP    NIM = 3                                     AIS     PROSEQ      1127     A     
 PROSEQ             SX4    -B3                                                     AIS     PROSEQ      1128     A     
 PROSEQ             LX4    ML.IIP      IIM = RIN                                   AIS     PROSEQ      1129     A     
 PROSEQ             BX6    X1+X3                                                   AIS     PROSEQ      1130     A     
 PROSEQ             LX5    ML.MTIP     MTIM = L.MOD                                AIS     PROSEQ      1131     A     
 PROSEQ             BX6    X4+X6                                                   AIS     PROSEQ      1132     A     
 PROSEQ             BX7    X6+X5                                                   AIS     PROSEQ      1133     A     
 PROSEQ             LX5    -ML.MTIP                                                AIS     PROSEQ      1134     A     
 PROSEQ             SA7    A4          [MI] = MLW(0,NIM,IIM,MTIM)                  AIS     PROSEQ      1135     A     
 PROSEQ                                                                            AIS     PROSEQ      1136     A     
 PROSEQ             SB7    X5+4        LMN = L.MOD + 4                             AIS     PROSEQ      1137     A     
 PROSEQ             SB5    OC.SA                                                   AIS     PROSEQ      1138     A     
 PROSEQ             SX6    B7          RIIN = LMN                                  AIS     PROSEQ      1139     A     
 PROSEQ             LX6    R1.RIP                                                  AIS     PROSEQ      1140     A     
 PROSEQ             LX5    R1.RJP      RJN = L.MOD                                 AIS     PROSEQ      1141     A     
 PROSEQ             BX6    X6+X5                                                   AIS     PROSEQ      1142     A     
 PROSEQ             MX7    0                                                       AIS     PROSEQ      1143     A     
 PROSEQ             SB4    B7+B2                                                   AIS     PROSEQ      1144     A     
 PROSEQ             RJ     SRI                                                     AIS     PROSEQ      1145     A     
 PROSEQ             SX3    SO.BLOCK                                                AIS     PROSEQ      1146     A     
 PROSEQ             SX1    B6                                                      AIS     PROSEQ      1147     A     
 PROSEQ             LX1    SO.RNP                                                  AIS     PROSEQ      1148     A     
 PROSEQ             BX2    X1+X3                                                   AIS     PROSEQ      1149     A     
 PROSEQ             LX2    R1.SOP                                                  AIS     PROSEQ      1150     A     
 PROSEQ             SX7    B7                                                      AIS     PROSEQ      1151     A     
 PROSEQ             LX7    R1.RIP                                                  AIS     PROSEQ      1152     A     
 PROSEQ             SB5    OC.RS                                                   AIS     PROSEQ      1153     A     
 PROSEQ             BX6    X7+X2                                                   AIS     PROSEQ      1154     A     
 PROSEQ             MX7    0                                                       AIS     PROSEQ      1155     A     
 PROSEQ             RJ     SRI                                                     AIS     PROSEQ      1156     A     
 PROSEQ             SX7    B7+8                                                    AIS     PROSEQ      1157     A     
 PROSEQ             SA7    L.MOD       L.MOD = LMN + 8                             AIS     PROSEQ      1158     A     
 PROSEQ             EQ     ISA                                                     AIS     PROSEQ      1159     A     
 PROSEQ    IUM      EJECT              IUM                                                 PROSEQ      1160     A     
 PROSEQ   **        IUM - ISSUE USE MODIFICATIONS.                                 AIS     PROSEQ      1161     A     
 PROSEQ   *                                                                        AIS     PROSEQ      1162     A     
 PROSEQ   *         ENTRY  B3 - (-RIN), MINUS INDEX IN SEQ OF CANDIDATE DEFINITION AIS     PROSEQ      1163     A     
 PROSEQ   *                B4 - NEXT *MOD* STORE ADDRESS.                          AIS     PROSEQ      1164     A     
 PROSEQ   *                B7 - RIS, MOD INDEX OF SA.                              AIS     PROSEQ      1165     A     
 PROSEQ   *                A0 - O.SEQ                                              AIS     PROSEQ      1166     A     
 PROSEQ   *                A1 - BI, BCT ENTRY ADDRESS CORRESPONDING TO CANDIDATE.  AIS     PROSEQ      1167     A     
 PROSEQ   *                                                                        AIS     PROSEQ      1168     A     
 PROSEQ   *         EXIT   A0,A1 - PRESERVED.                                      AIS     PROSEQ      1169     A     
 PROSEQ                                                                            AIS     PROSEQ      1170     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3218    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ    IUMA     VFD    12/0,16/100000B,16/100000B,16/0                         AIS     PROSEQ      1171     A     
 PROSEQ                                                                            AIS     PROSEQ      1172     A     
 PROSEQ    IUM0     SA2    IUMB                                                    AIS     PROSEQ      1173     A     
 PROSEQ             BX6    X2                                                      AIS     PROSEQ      1174     A     
 PROSEQ             SA6    A3          [UL] = SAVE                                 AIS     PROSEQ      1175     A     
 PROSEQ                                                                            AIS     PROSEQ      1176     A     
 PROSEQ    IUM      ROUTINE                                                        AIS     PROSEQ      1177     A     
 PROSEQ             SB6    A0+3        OLS = O.SEQ + 3                             AIS     PROSEQ      1178     A     
 PROSEQ             SA3    B6-B3       LI = OLS + RIN ;  LIW = [LI]                AIS     PROSEQ      1179     A     
 PROSEQ             MX6    0                                                       AIS     PROSEQ      1180     A     
 PROSEQ             LX3    -DP.NIP                                                 AIS     PROSEQ      1181     A     
 PROSEQ             SA4    X3          UL = NI[LIW]                                AIS     PROSEQ      1182     A     
 PROSEQ             BX7    X4          SAVE = [UL]                                 AIS     PROSEQ      1183     A     
 PROSEQ             SA6    A4          [UL] = 0                                    AIS     PROSEQ      1184     A     
 PROSEQ             SA7    IUMB                                                    AIS     PROSEQ      1185     A     
 PROSEQ             LX3    DP.NIP-DP.IIP                                           AIS     PROSEQ      1186     A     
 PROSEQ             SB2    X3          UI = US = II[LIW]                           AIS     PROSEQ      1187     A     
 PROSEQ                                                                            AIS     PROSEQ      1188     A     
 PROSEQ   *         MODIFY ALL 60-BIT USES OF CANDIDATE SO THAT THESE USES         AIS     PROSEQ      1189     A     
 PROSEQ   *         ARE NOT CHANGED TO B-REG RI BY MPB.                            AIS     PROSEQ      1190     A     
 PROSEQ                                                                            AIS     PROSEQ      1191     A     
 PROSEQ    IUM1     SA3    B2          UIW = [UI]                                  AIS     PROSEQ      1192     A     
 PROSEQ             ZR     X3,IUM0     IF UIW = 0    */ UI = UL                    AIS     PROSEQ      1193     A     
 PROSEQ             SB2    B2+B1       UI = UI + 1                                 AIS     PROSEQ      1194     A     
 PROSEQ             LX3    59-DU.SUP                                               AIS     PROSEQ      1195     A     
 PROSEQ             MI     X3,IUM1     IF SU[UIW]                                  AIS     PROSEQ      1196     A     
 PROSEQ             LX3    1+DU.SUP                                                AIS     PROSEQ      1197     A     
 PROSEQ             BX1    X3                                                      AIS     PROSEQ      1198     A     
 PROSEQ             LX3    -DU.USEP                                                AIS     PROSEQ      1199     A     
 PROSEQ             SB6    A0                                                      AIS     PROSEQ      1200     A     
 PROSEQ             SA2    B6+X3       R1I = O.SEQ + USE[UIW] ;  R1W = [R1I]       AIS     PROSEQ      1201     A     
 PROSEQ             SA4    O.MLT                                                   AIS     PROSEQ      1202     A     
 PROSEQ             SA5    L.MLT                                                   AIS     PROSEQ      1203     A     
 PROSEQ             MX6    0                                                       AIS     PROSEQ      1204     A     
 PROSEQ             IX7    X4+X5                                                   AIS     PROSEQ      1205     A     
 PROSEQ             MX0    -R1.RIL                                                 AIS     PROSEQ      1206     A     
 PROSEQ             SA6    X7          MLT(L.MLT+1) = 0                            AIS     PROSEQ      1207     A     
 PROSEQ             SA4    X4-1        MI = O.MLT - 1                              AIS     PROSEQ      1208     A     
 PROSEQ             SB6    X3                                                      AIS     PROSEQ      1209     A     
 PROSEQ             SB5    -B6         MU = -USE[UIW]                              AIS     PROSEQ      1210     A     
 PROSEQ             SX6    B7-4        RIM = RIS - 4                               AIS     PROSEQ      1211     A     
 PROSEQ                                                                            AIS     PROSEQ      1212     A     
 PROSEQ   *         SEARCH FOR *MOD* TO SAME INSTRUCTION.  IF WE FIND ONE,         AIS     PROSEQ      1213     A     
 PROSEQ   *         WE MODIFY THE FIRST INSTRUCTION IN IT.                         AIS     PROSEQ      1214     A     
 PROSEQ                                                                            AIS     PROSEQ      1215     A     
 PROSEQ    IUM2     SA4    A4+B1       MI = MI + 1 ;  MIN = [MI]                   AIS     PROSEQ      1216     A     
 PROSEQ             ZR     X4,IUM3     IF MIN = 0    */ NO *MOD* ENTRY MATCHES     AIS     PROSEQ      1217     A     
 PROSEQ             LX4    -ML.IIP                                                 AIS     PROSEQ      1218     A     
 PROSEQ             SX7    X4+B5                                                   AIS     PROSEQ      1219     A     
 PROSEQ             NZ     X7,IUM2     IF II[MIN] .NE. USE[UIW]                    AIS     PROSEQ      1220     A     
 PROSEQ                                                                            AIS     PROSEQ      1221     A     
 PROSEQ   *         *MOD* ENTRY TO SAME INSTRUCTION.                               AIS     PROSEQ      1222     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3219    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ                                                                            AIS     PROSEQ      1223     A     
 PROSEQ             SA5    O.MOD                                                   AIS     PROSEQ      1224     A     
 PROSEQ             LX4    ML.IIP-ML.MTIP                                          AIS     PROSEQ      1225     A     
 PROSEQ             IX7    X4+X5                                                   AIS     PROSEQ      1226     A     
 PROSEQ             SA3    X7          MD = O.MOD + MTI[MIN] ; MDW = [MD]          AIS     PROSEQ      1227     A     
 PROSEQ             SB6    60                                                      AIS     PROSEQ      1228     A     
 PROSEQ             UX1    B5,X1       RC = SC[UIW]                                AIS     PROSEQ      1229     A     
 PROSEQ             SB6    B6-B5                                                   AIS     PROSEQ      1230     A     
 PROSEQ             LX3    B6          RX[Q] # RN[SHIFT(Q,-RC)]                    .NO.ID. PROSEQ      1231     A     
 PROSEQ             BX4    X0*X3                                                   AIS     PROSEQ      1232     A     
 PROSEQ             BX7    X4+X6       RX[MDW] = RIM                               AIS     PROSEQ      1233     A     
 PROSEQ             LX7    B5                                                      AIS     PROSEQ      1234     A     
 PROSEQ             SA7    A3                                                      AIS     PROSEQ      1235     A     
 PROSEQ             EQ     IUM1                                                    AIS     PROSEQ      1236     A     
 PROSEQ                                                                            AIS     PROSEQ      1237     A     
 PROSEQ   *         NO MATCH.  CREATE NEW *MOD* ENTRY.                             AIS     PROSEQ      1238     A     
 PROSEQ                                                                            AIS     PROSEQ      1239     A     
 PROSEQ    IUM3     SA4    A2+2        DI = R1I + 2 ;  DIW = [DI]                  AIS     PROSEQ      1240     A     
 PROSEQ             LX4    58-D.TYP                                                AIS     PROSEQ      1241     A     
 PROSEQ             MI     X4,IUM4     IF TY[DIW] .GT. 2                           AIS     PROSEQ      1242     A     
 PROSEQ             SA4    IUMA                                                    AIS     PROSEQ      1243          I
          -FCC0508
 PROSEQ             IX2    X2+X4       RJ[R1W] = RJ[R1W] + 100000B ;               AIS     PROSEQ      1244          I
          -FCC0508
 PROSEQ             SA3    IUMA                                                            FCC0508       10     A     
 PROSEQ             IX2    X2+X3       RJ[R1W] = RJ[R1W] + 100000B ;                       FCC0508       11     A     
 PROSEQ   *                            RK[R1W] = RK[R1W] + 100000B                 AIS     PROSEQ      1245     A     
 PROSEQ                                                                            AIS     PROSEQ      1246     A     
 PROSEQ    IUM4     SA5    L.MOD                                                   AIS     PROSEQ      1247     A     
 PROSEQ             BX4    X0*X2                                                   AIS     PROSEQ      1248          I
          -FCC0508
 PROSEQ             LX4    59-58+D.TYP-D.^DP                                               FCC0508       12     A     
 PROSEQ             BX7    X5          RII = L.MOD                                         FCC0508       13     A     
 PROSEQ             PL     X4,IUM5     IF D[DIW]                                           FCC0508       14     A     
 PROSEQ             BX7    -X0*X2                                                          FCC0508       15     A     
 PROSEQ             SX7    X7+100000B  RII = RI[R1W] + 100000B                             FCC0508       16     A     
 PROSEQ                                                                                    FCC0508       17     A     
 PROSEQ    IUM5     BX4    X0*X2                                                           FCC0508       18     A     
 PROSEQ             SB6    60                                                      AIS     PROSEQ      1249     A     
 PROSEQ             UX1    B5,X1       RC = SC[UIW]                                .NO.ID. PROSEQ      1250     A     
 PROSEQ             BX7    X4+X5       RI[R1W] = L.MOD                             AIS     PROSEQ      1251          I
          -FCC0508
 PROSEQ             BX7    X4+X7       RI[R1W] = RII                                       FCC0508       19     A     
 PROSEQ             SB6    B6-B5                                                   AIS     PROSEQ      1252     A     
 PROSEQ             LX7    B6                                                      AIS     PROSEQ      1253     A     
 PROSEQ             BX4    X0*X7                                                   AIS     PROSEQ      1254     A     
 PROSEQ             BX6    X4+X6       RX[R1W] = RIM                               AIS     PROSEQ      1255     A     
 PROSEQ             LX6    B5                                                      AIS     PROSEQ      1256     A     
 PROSEQ             SA2    A2+B1       R2I = R1I + 1                               AIS     PROSEQ      1257     A     
 PROSEQ             SX4    100000B                                                 AIS     PROSEQ      1258     A     
 PROSEQ             LX4    IH.RFP                                                  AIS     PROSEQ      1259     A     
 PROSEQ             BX7    X2+X4                                                   AIS     PROSEQ      1260     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3220    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             SA6    B4                                                      AIS     PROSEQ      1261     A     
 PROSEQ             SA7    B4+B1                                                   AIS     PROSEQ      1262     A     
 PROSEQ             SA2    A2+B1       DI = R2I + 1                                AIS     PROSEQ      1263     A     
 PROSEQ             MX7    0                                                       AIS     PROSEQ      1264     A     
 PROSEQ             BX6    X2                                                      .NO.ID. PROSEQ      1265     A     
 PROSEQ             SA6    A7+B1                                                   AIS     PROSEQ      1266     A     
 PROSEQ             SA7    A6+B1                                                   AIS     PROSEQ      1267     A     
 PROSEQ             SB4    A7+B1                                                   AIS     PROSEQ      1268     A     
 PROSEQ             SX7    X5+4                                                    AIS     PROSEQ      1269     A     
 PROSEQ             SA7    A5          L.MOD = L.MOD + 4                           AIS     PROSEQ      1270     A     
 PROSEQ             SA3    L.MLT                                                   AIS     PROSEQ      1271     A     
 PROSEQ             LX5    ML.MTIP     MTM = L.MOD - 4                             AIS     PROSEQ      1272     A     
 PROSEQ             MX0    1                                                       AIS     PROSEQ      1273     A     
 PROSEQ             LX0    1+ML.DELP   DELM = 1                                    AIS     PROSEQ      1274     A     
 PROSEQ             SA4    O.MLT                                                   AIS     PROSEQ      1275     A     
 PROSEQ             BX5    X0+X5                                                   AIS     PROSEQ      1276     A     
 PROSEQ             LX0    ML.NIP-ML.DELP     NIM = 1                              AIS     PROSEQ      1277     A     
 PROSEQ             SB5    X4                                                      AIS     PROSEQ      1278     A     
 PROSEQ             BX6    X0+X5                                                   AIS     PROSEQ      1279     A     
 PROSEQ             LX1    -DU.USEP                                                AIS     PROSEQ      1280     A     
 PROSEQ             SX5    X1                                                      AIS     PROSEQ      1281     A     
 PROSEQ             LX5    ML.IIP      IIM = USE[UIW]                              AIS     PROSEQ      1282     A     
 PROSEQ             BX7    X6+X5                                                   AIS     PROSEQ      1283     A     
 PROSEQ             SA7    X3+B5       MLT(L.MLT+1) = MLW(DELM,MTM,NIM,IIM)        AIS     PROSEQ      1284     A     
 PROSEQ             SX6    X3+B1                                                   AIS     PROSEQ      1285     A     
 PROSEQ             SA6    A3          L.MLT = L.MLT + 1                           AIS     PROSEQ      1286     A     
 PROSEQ             EQ     IUM1                                                    AIS     PROSEQ      1287     A     
 PROSEQ    SRI      SPACE  4,18        SRI                                                 PROSEQ      1288     A     
 PROSEQ   **        SRI - STORE R-LIST INSTRUCTION.                                AIS     PROSEQ      1289     A     
 PROSEQ   *         FILE INSTRUCTIONS IN *MOD*.                                    AIS     PROSEQ      1290     A     
 PROSEQ   *                                                                        AIS     PROSEQ      1291     A     
 PROSEQ   *         ENTRY  X6 - R1 WORD, LESS OP-CODE.                             AIS     PROSEQ      1292     A     
 PROSEQ   *                X7 - R2 WORD                                            AIS     PROSEQ      1293     A     
 PROSEQ   *                B4 - NEXT *MOD* STORE ADDRESS.                          AIS     PROSEQ      1294     A     
 PROSEQ   *                B5 - OP-CODE.                                           AIS     PROSEQ      1295     A     
 PROSEQ   *                                                                        AIS     PROSEQ      1296     A     
 PROSEQ   *         EXIT   B4 - INCREMENTED.                                       AIS     PROSEQ      1297     A     
 PROSEQ   *                                                                        AIS     PROSEQ      1298     A     
 PROSEQ   *         USES   A3,A6,A7,X3                                             .NO.ID. PROSEQ      1299     A     
 PROSEQ                                                                            AIS     PROSEQ      1300     A     
 PROSEQ    SRI      ROUTINE                                                                PROSEQ      1301     A     
 PROSEQ             PX6    B5,X6                                                   AIS     PROSEQ      1302     A     
 PROSEQ             SA3    =XF.RDT+B5                                              AIS     PROSEQ      1303     A     
 PROSEQ             SA6    B4                                                      AIS     PROSEQ      1304     A     
 PROSEQ             SA7    B4+B1                                                   AIS     PROSEQ      1305     A     
 PROSEQ             BX6    X3                                                      AIS     PROSEQ      1306     A     
 PROSEQ             MX7    0                                                       AIS     PROSEQ      1307     A     
 PROSEQ             SA6    A7+B1                                                   AIS     PROSEQ      1308     A     
 PROSEQ             SA7    A6+B1                                                   AIS     PROSEQ      1309     A     
 PROSEQ             SB4    A7+B1                                                   AIS     PROSEQ      1310     A     
 PROSEQ             EQ     SRI                                                     AIS     PROSEQ      1311     A     
 PROSEQ                                                                            AIS     PROSEQ      1312     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3221    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             QUAL   *                                                       AIS     PROSEQ      1313     A     
 PROSEQ                                                                            AIS     PROSEQ      1314     A     
 PROSEQ    AIS      EQU    /AIS/AIS                                                AIS     PROSEQ      1315     A     
 PROSEQ    ESR      TITLE  ESR - EXPAND SPECIAL REFERENCES                                 PROSEQ      1316     A     
 PROSEQ   **        ESR - EXPAND SPECIAL REFERENCES.                                       PROSEQ      1317     A     
 PROSEQ   *                                                                                PROSEQ      1318     A     
 PROSEQ   *         ESR EXPANDS LEVEL 2/3 AND/OR FORMAL PARAMETER MEMORY REFS              PROSEQ      1319     A     
 PROSEQ   *         IN A SEQUENCE.  ALL TYPE 3 LOAD, STORE AND SET INSTRUCTIONS            PROSEQ      1320     A     
 PROSEQ   *         WITH THE SPECIAL PROPERTIES DETERMINED BY *KEY* (X5) ARE               PROSEQ      1321     A     
 PROSEQ   *         REPLACED WITH INDIRECT OR EXPANDED REFS.                               PROSEQ      1322     A     
 PROSEQ   *                                                                                PROSEQ      1323     A     
 PROSEQ   *         ENTRY  X5 - KEY, EXPANSION FLAG AS FOLLOWS--                           PROSEQ      1324     A     
 PROSEQ   *                     1 = EXPAND F.P. REFERENCES ONLY                            PROSEQ      1325     A     
 PROSEQ   *                     2 = EXPAND LCM REFERENCES ONLY                             PROSEQ      1326     A     
 PROSEQ   *                     3 = EXPAND F.P. OR LCM REFERENCES                          PROSEQ      1327     A     
 PROSEQ   *                     4 = EXPAND LCM REFERENCES OR F.P. STT/S .                  PROSEQ      1328     A     
 PROSEQ   *                X6 - SQUEEZE FLAG FOR MPB .                                     PROSEQ      1329     A     
 PROSEQ                                                                                    PROSEQ      1330     A     
 PROSEQ   *ESRA     VFD    60/=XN.FP                                                       PROSEQ      1331          I
          -FCC0643
 PROSEQ             ENTRY  ESRA                                                            FCC0643       46     A     
 PROSEQ    ESRA     VFD    60/-1       MAKE FP-ONLY CALL ILLEGAL                           PROSEQ      1332     A     
 PROSEQ             VFD    60/=XLEVEL                                                      PROSEQ      1333          I
          -FCC0504
 PROSEQ             VFD    60/=XLEVEL2                                                     FCC0504       19     A     
 PROSEQ             VFD    60/=XFPL2                                                       PROSEQ      1334     A     
 PROSEQ             VFD    60/=XFPL2                                                       PROSEQ      1335     A     
 PROSEQ                                                                                    PROSEQ      1336     A     
 PROSEQ    FSR      BSS    1           FIRST SPECIAL REF. (CHAIN HEAD)                     PROSEQ      1337     A     
 PROSEQ    LSF      BSS    1           LOAD/STORE/SET FLAG                                 PROSEQ      1338     A     
 PROSEQ    SQF      BSS    1           SQUEEZE FLAG                                        PROSEQ      1339     A     
 PROSEQ    R2W      BSS    1           R2 WORD OF CURRENT INSTRUCTION                      FCC0643       47     A     
 PROSEQ                                                                                    PROSEQ      1340     A     
 PROSEQ    ESR0     SA3    O.MOD                                                           PROSEQ      1341     A     
 PROSEQ             SB7    X3-1                                                            PROSEQ      1342     A     
 PROSEQ             SX6    A7-B7                                                           PROSEQ      1343     A     
 PROSEQ             SA6    L.MOD                                                           PROSEQ      1344     A     
 PROSEQ                                                                                    PROSEQ      1345     A     
 PROSEQ    ESR1     SA1    O.SEQ                                                           PROSEQ      1346     A     
 PROSEQ             SA2    X1                                                              PROSEQ      1347     A     
 PROSEQ             UX7    B2,X2                                                           PROSEQ      1348     A     
 PROSEQ             SA3    F.RDT+B2                                                        PROSEQ      1349     A     
 PROSEQ             SA4    SQF                                                             PROSEQ      1350     A     
 PROSEQ             BX7    X3                                                              PROSEQ      1351     A     
 PROSEQ             LX6    X4          (X6) = SQF FOR *MPB*                                PROSEQ      1352     A     
 PROSEQ             SA7    X1+2        [SEQ+2] = RDT(OC[SEQ])                              PROSEQ      1353     A     
 PROSEQ             MI     X6,ESR      IF SQF < 0                                          PROSEQ      1354     A     
 PROSEQ             CALL   MPB         MERGE MODS WITH SEQUENCE                            PROSEQ      1355     A     
 PROSEQ                                                                                    PROSEQ      1356     A     
 PROSEQ    ESR      ENTRY. **                                                              PROSEQ      1357     A     
 PROSEQ             SA4    ESRA-1+X5                                                       PROSEQ      1358     A     
 PROSEQ             SA6    SQF                                                             PROSEQ      1359     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3222    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             SA3    X4                                                              PROSEQ      1360     A     
 PROSEQ             ZR     X3,ESR1     IF FLAG(MODE) = 0  */ NO SPECIAL REFS               PROSEQ      1361     A     
 PROSEQ             SA1    TSBA+X5     MASK FOR SR BITS                                    PROSEQ      1362     A     
 PROSEQ             SA4    O.SEQ                                                           PROSEQ      1363     A     
 PROSEQ             MX7    0                                                               PROSEQ      1364     A     
 PROSEQ             BX0    X1                                                              PROSEQ      1365     A     
 PROSEQ             SA7    X4+2        LOOP TERMINATOR AT D(BOS)                           PROSEQ      1366     A     
 PROSEQ             RJ     MSR         MARK SPECIAL REFS                                   PROSEQ      1367     A     
 PROSEQ             ZR     B2,ESR1     IF N.SR = 0                                         PROSEQ      1368     A     
 PROSEQ                                                                                    PROSEQ      1369     A     
 PROSEQ             ALLOC  MLT,B2      ALLOC( MLT , N.SR )                                 PROSEQ      1370     A     
 PROSEQ             BX2    X1                                                              PROSEQ      1371     A     
 PROSEQ             LX1    4                                                               PROSEQ      1372     A     
 PROSEQ             LX2    2                                                               PROSEQ      1373     A     
 PROSEQ             IX1    X1+X2                                                           PROSEQ      1374     A     
 PROSEQ             ALLOC  MOD,X1      ALLOC (MOD, 5*4*N.SR )                              PROSEQ      1375     A     
 PROSEQ                                                                                    PROSEQ      1376     A     
 PROSEQ             RJ     GSR         GENERATE SPECIAL REFS                               PROSEQ      1377     A     
 PROSEQ             EQ     ESR0                                                            PROSEQ      1378     A     
 PROSEQ    MSR      SPACE  4,8         MSR                                                 PROSEQ      1379          I
          -FCC0643
 PROSEQ    MSR      SPACE  3,14                                                            FCC0643       48     A     
 PROSEQ   **        MSR - MARK SPECIAL REFERENCES.                                         PROSEQ      1380     A     
 PROSEQ   *         ENTRY  A4,X4 - O.SEQ                                                   PROSEQ      1381     A     
 PROSEQ   *                X0 - MASK OF PERTINENT SPECIAL REF BITS                         PROSEQ      1382     A     
 PROSEQ   *                                                                                PROSEQ      1383     A     
 PROSEQ   *         EXIT   B2 = N.SR                                                       PROSEQ      1384     A     
 PROSEQ   *                B3 = (FSR) = POINTS TO S.R. CHAIN IN LINK WORDS                 PROSEQ      1385     A     
 PROSEQ                                                                                    PROSEQ      1386     A     
 PROSEQ    MSRA     BSS    0                                                               PROSEQ      1387     A     
 PROSEQ             LOC    0                                                               PROSEQ      1388     A     
 PROSEQ             CON    0                                                               PROSEQ      1389     A     
 PROSEQ             CON    0                                                               PROSEQ      1390     A     
 PROSEQ             CON    0                                                               PROSEQ      1391     A     
 PROSEQ             BFMW   D,(LD,ST)                                                       PROSEQ      1392     A     
 PROSEQ             LOC    *O                                                              PROSEQ      1393     A     
 PROSEQ                                                                                    PROSEQ      1394     A     
 PROSEQ    MSR0     SX6    B3                                                              PROSEQ      1395     A     
 PROSEQ             SA6    FSR         FIRST SPECIAL REF LINK ADDRESS                      PROSEQ      1396     A     
 PROSEQ                                                                                    PROSEQ      1397     A     
 PROSEQ    MSR      ROUTINE            **ENTRY/EXIT**                                      PROSEQ      1398     A     
 PROSEQ             SA5    MSRA-1+X5                                                       PROSEQ      1399     A     
 PROSEQ             SA2    X4+B1                                                           PROSEQ      1400     A     
 PROSEQ             SX1    X2          LEN = TXTL[SEQ+1]                                   PROSEQ      1401     A     
 PROSEQ             SB2    B0          N.SR = 0                                            PROSEQ      1402     A     
 PROSEQ             IX6    X4+X1                                                           PROSEQ      1403     A     
 PROSEQ             SB7    X6-2        D(EOQ), I=N.INS                                     PROSEQ      1404     A     
 PROSEQ             SA3    B7          DI=D(I)                                             PROSEQ      1405     A     
 PROSEQ             SB3    B0          CP = 0                                              PROSEQ      1406     A     
 PROSEQ             SB6    X4                                                              PROSEQ      1407     A     
 PROSEQ             SX7    B1                                                              PROSEQ      1408     A     
 PROSEQ             LX7    D.FPP                                                           PROSEQ      1409     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3223    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ                                                                                    PROSEQ      1410     A     
 PROSEQ    MSR1     ZR     X3,MSR0     IF DI = 0     */ I = 0                              PROSEQ      1411     A     
 PROSEQ             SB7    B7-4        I = I - 1                                           PROSEQ      1412     A     
 PROSEQ             BX4    X0*X3       SRBITS(I+1)                                         PROSEQ      1413     A     
 PROSEQ             BX2    X5*X3                                                           PROSEQ      1414     A     
 PROSEQ             BX1    X2                                                              PROSEQ      1415     A     
 PROSEQ             LX2    D.FPP-D.LDP                                                     PROSEQ      1416     A     
 PROSEQ             LX1    D.FPP-D.STP                                                     PROSEQ      1417     A     
 PROSEQ             BX2    X2+X1       LDSTI = MSRA(KEY).AND. (LD[DI] .OR. ST[DI])         PROSEQ      1418     A     
 PROSEQ             BX1    X7*X2                                                           PROSEQ      1419     A     
 PROSEQ             BX4    -X1*X4      FP[SR[DI]] = FP[SR[DI]] .AND. ^LDSTI                PROSEQ      1420     A     
 PROSEQ             SA3    B7          DI=D(I)                                             PROSEQ      1421     A     
 PROSEQ             ZR     X4,MSR1     IF NOT SPECIAL REF(MODE)                            PROSEQ      1422     A     
 PROSEQ             SB2    B2+B1       N.SR = N.SR + 1                                     PROSEQ      1423     A     
 PROSEQ             SX6    B3                                                              PROSEQ      1424     A     
 PROSEQ             SA6    B7+5        (LINK(I-1)) = CP                                    PROSEQ      1425     A     
 PROSEQ             SB3    A6-B6       CP = LINK(I-1) - O.SEQ                              PROSEQ      1426     A     
 PROSEQ             EQ     MSR1                                                            PROSEQ      1427     A     
 PROSEQ    GSR      SPACE  4,8         GSR                                                 PROSEQ      1428     A     
 PROSEQ   **        GSR - GENERATE SPECIAL REFERENCES.                                     PROSEQ      1429     A     
 PROSEQ   *                                                                                PROSEQ      1430     A     
 PROSEQ   *         ENTRY  B2 = CHAIN HEAD FOR SPECIAL REFS                                PROSEQ      1431     A     
 PROSEQ   *                                                                                PROSEQ      1432     A     
 PROSEQ    GSR      ROUTINE            **ENTRY/EXIT**                                      PROSEQ      1433     A     
 PROSEQ             SA2    FSR                                                             PROSEQ      1434     A     
 PROSEQ             SA1    O.SEQ                                                           PROSEQ      1435     A     
 PROSEQ             MX7    0                                                               PROSEQ      1436     A     
 PROSEQ             SB7    X1                                                              PROSEQ      1437     A     
 PROSEQ             SB2    X2+B7                                                           PROSEQ      1438     A     
 PROSEQ             SB3    100000B     OFFSET FOR MPB                                      PROSEQ      1439     A     
 PROSEQ             SA1    O.MOD                                                           PROSEQ      1440     A     
 PROSEQ             SA7    L.MLT       L.MLT = 0                                           PROSEQ      1441     A     
 PROSEQ             SA7    X1+3        A7= FWA - 1 EXPANSION IN MOD                        PROSEQ      1442     A     
 PROSEQ             SB4    4           RI = 4                                              PROSEQ      1443     A     
 PROSEQ             EQ     GSR3                                                            PROSEQ      1444     A     
 PROSEQ                                                                                    PROSEQ      1445     A     
 PROSEQ    GSR1     RJ     ISC         ISSUE SET CODE                                      PROSEQ      1446     A     
 PROSEQ                                                                                    PROSEQ      1447     A     
 PROSEQ    GSR2     RJ     TRE         TERMINATE REF EXPANSION                             PROSEQ      1448     A     
 PROSEQ             SA1    O.SEQ                                                           PROSEQ      1449     A     
 PROSEQ             SB7    X1+                                                             PROSEQ      1450     A     
 PROSEQ                                                                                    PROSEQ      1451     A     
 PROSEQ    GSR3     EQ     B2,B7,GSR   IF END OF CHAIN                                     PROSEQ      1452     A     
 PROSEQ             SA0    A7          IMA = INITIAL MOD ADDRESS - 1                       PROSEQ      1453     A     
 PROSEQ             SA1    B2-B1       DI = D(I)                                           PROSEQ      1454     A     
 PROSEQ             SA3    B2                                                              PROSEQ      1455     A     
 PROSEQ             SA2    A1-B1       R2I = DI - 1                                        FCC0643       49     A     
 PROSEQ             BX6    X2          R2W = [R2I]                                         FCC0643       50     A     
 PROSEQ             SA6    R2W                                                             FCC0643       51     A     
 PROSEQ             MX2    -D.LDSTL                                                        PROSEQ      1456     A     
 PROSEQ             SB2    X3+B7       I = I + 1                                           PROSEQ      1457     A     
 PROSEQ             BX3    X1                                                              PROSEQ      1458     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3224    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             LX3    -D.LDSTP                                                        PROSEQ      1459     A     
 PROSEQ             BX2    -X2*X3                                                          PROSEQ      1460     A     
 PROSEQ             BX6    -X2                                                             PROSEQ      1461     A     
 PROSEQ             SA6    LSF         LOAD/STORE/SET FLAG                                 PROSEQ      1462     A     
 PROSEQ             ZR     X6,GSR1     IF NOT LOAD OR STORE                                PROSEQ      1463     A     
 PROSEQ                                                                                    PROSEQ      1464     A     
 PROSEQ    #DAL     IFNE   .DAL,0      IF LEVEL 2 ALLOWED                                  PROSEQ      1465     A     
 PROSEQ             BX2    X0*X1                                                           PROSEQ      1466     A     
 PROSEQ             LX2    59-D.L2P                                                        PROSEQ      1467     A     
 PROSEQ             PL     X2,GSR4     IF NOT LCM REF                                      PROSEQ      1468     A     
 PROSEQ             RJ     ISC         ISSUE SET                                           PROSEQ      1469     A     
 PROSEQ             RJ     IDR         ISSUE DIRECT LCM REF                                PROSEQ      1470     A     
 PROSEQ             EQ     GSR2                                                            PROSEQ      1471     A     
 PROSEQ                                                                                    PROSEQ      1472     A     
 PROSEQ    GSR4     BSS    0                                                               PROSEQ      1473     A     
 PROSEQ    #DAL     ENDIF                                                                  PROSEQ      1474     A     
 PROSEQ                                                                                    PROSEQ      1475     A     
 PROSEQ             RJ     IAL         ISSUE ADDRESS LOAD                                  PROSEQ      1476     A     
 PROSEQ             RJ     IRA         ISSUE RA FOR RF                                     PROSEQ      1477     A     
 PROSEQ             RJ     IPR         ISSUE PLD/PST                                       PROSEQ      1478     A     
 PROSEQ             EQ     GSR2                                                            PROSEQ      1479     A     
 PROSEQ    ISC      EJECT              ISC                                                 PROSEQ      1480     A     
 PROSEQ   **        ISC - ISSUE SET CODE.                                                  PROSEQ      1481     A     
 PROSEQ   *                                                                                PROSEQ      1482     A     
 PROSEQ   *         ISC CONTROLS EXPANSION OF SPECIAL REFERENCES FOR STT INSTRUC-          PROSEQ      1483     A     
 PROSEQ   *         TIONS.  ALL STT TO FP OR LCM SYMBOLS ARE EXPANDED AS DESIRED.          PROSEQ      1484     A     
 PROSEQ   *         IN ADDITION, ISC GENERATES ALL CODE PRECEDING THE DRL/DWL              PROSEQ      1485     A     
 PROSEQ   *         FOR THE EXPANSION OF A LEVEL 2 LOAD OR STORE.  ISC INSURES             PROSEQ      1486     A     
 PROSEQ   *         THAT AN XMT IS GENERATED FOR ANY STT (FP OR LCM=I MODE LCM)            PROSEQ      1487     A     
 PROSEQ   *         IN WHICH THE LAST OPERATION IS A LOAD.  THIS GUARANTEES THAT           PROSEQ      1488     A     
 PROSEQ   *         A STORE-TO-APLIST MAY FOLLOW.                                          PROSEQ      1489     A     
 PROSEQ   *                                                                                PROSEQ      1490     A     
 PROSEQ   *         ENTRY  A1 = ADDRESS OF DESCRIPTOR OF CURRENT SPECIAL REF.              PROSEQ      1491     A     
 PROSEQ   *                A7 = FWA-1 OF MOD BUFFER TO BE USED FOR EXPANSION.              PROSEQ      1492     A     
 PROSEQ   *                X1 = DESCRIPTOR                                                 PROSEQ      1493     A     
 PROSEQ   *                X0 = MASK OF SPECIAL (L2 AND/OR FP) BITS DESCRIBING             PROSEQ      1494     A     
 PROSEQ   *                     THE TYPES OF REFS TO BE EXPANDED.                          PROSEQ      1495     A     
 PROSEQ   *                B1 = 1                                                          PROSEQ      1496     A     
 PROSEQ   *                B3 = 100000B                                                    PROSEQ      1497     A     
 PROSEQ   *                B4 = NEXT RI NUMBER (UPDATED BY SRI)                            PROSEQ      1498     A     
 PROSEQ   *                                                                                PROSEQ      1499     A     
 PROSEQ   *         EXIT   A0,A1,B1,B2,B3,X0 PRESERVED.                                    PROSEQ      1500     A     
 PROSEQ   *                B4 AS LAST UPDATED BY SRI.                                      PROSEQ      1501     A     
 PROSEQ   *                EXPANSION FILED IN MOD, WITH A7 UPDATED.                        PROSEQ      1502     A     
 PROSEQ   *                                                                                PROSEQ      1503     A     
 PROSEQ   *         CALLS  SRI, IAL, IRA, ISX.                                             PROSEQ      1504     A     
 PROSEQ                                                                                    PROSEQ      1505     A     
 PROSEQ    ISC0     MX2    0                                                               PROSEQ      1506     A     
 PROSEQ             RJ     SRI         STORE INSTRUCTION                                   PROSEQ      1507     A     
 PROSEQ                                                                                    PROSEQ      1508     A     
 PROSEQ    ISC      ROUTINE            **ENTRY/EXIT**                                      PROSEQ      1509     A     
 PROSEQ             BX3    X0*X1                                                           PROSEQ      1510     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3225    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             LX3    59-D.L2P                                                        PROSEQ      1511     A     
 PROSEQ             MI     X3,ISC3     IF LCM REF                                          PROSEQ      1512     A     
 PROSEQ             LX3    D.L2P-D.FPP                                                     PROSEQ      1513     A     
 PROSEQ             PL     X3,ISC      IF NOT FP                                           PROSEQ      1514     A     
 PROSEQ                                                                                    PROSEQ      1515     A     
 PROSEQ    ISC2     RJ     IAL         ISSUE ADDRESS LOAD                                  PROSEQ      1516     A     
 PROSEQ             RJ     IRA         ISSUE IA FOR ANY RF                                 PROSEQ      1517     A     
 PROSEQ             RJ     ISX         ISSUE STT/XMT                                       PROSEQ      1518     A     
 PROSEQ             EQ     ISC                                                             PROSEQ      1519     A     
 PROSEQ                                                                                    PROSEQ      1520     A     
 PROSEQ    ISC3     SA4    =XDIRECT                                                        PROSEQ      1521     A     
 PROSEQ             NZ     X4,ISC5     IF LCM=I MODE                                       PROSEQ      1522     A     
 PROSEQ                                                                                    PROSEQ      1523     A     
 PROSEQ    #DAL     IFNE   .DAL,0      IF LEVEL 2 ALLOWED                                  PROSEQ      1524     A     
 PROSEQ             SA4    LSF                                                             PROSEQ      1525     A     
 PROSEQ             ZR     X4,ISC1     IF  STT LCM                                         PROSEQ      1526     A     
 PROSEQ             LX3    D.L2P-D.FPP                                                     PROSEQ      1527     A     
 PROSEQ             MI     X3,ISC2     IF FP                                               PROSEQ      1528     A     
 PROSEQ             RJ     ISI         ISSUE STT INSTRUCTIIN                               PROSEQ      1529     A     
 PROSEQ             EQ     ISC                                                             PROSEQ      1530     A     
 PROSEQ                                                                                    PROSEQ      1531     A     
 PROSEQ    #DAL     ENDIF                                                                  PROSEQ      1532     A     
 PROSEQ                                                                                    PROSEQ      1533     A     
 PROSEQ    ISC1     LX3    D.L2P-D.FPP                                                     PROSEQ      1534     A     
 PROSEQ             MI     X3,ISC2     IF FP                                               PROSEQ      1535     A     
 PROSEQ             RJ     ISI         ISSUE STT                                           PROSEQ      1536     A     
 PROSEQ             RJ     IMO         ISSUE MASK-OR BIT 59                                PROSEQ      1537     A     
 PROSEQ             EQ     ISC                                                             PROSEQ      1538     A     
 PROSEQ                                                                                    PROSEQ      1539     A     
 PROSEQ   *         IN LCM=I MODE, ALL LCM REFS ARE EXPANDED IRREGARDLESS OF               PROSEQ      1540     A     
 PROSEQ   *         EXPANSION MODE BECAUSE OF THE ODD MEANING OF THE IH SYMBOL             PROSEQ      1541     A     
 PROSEQ   *         (SCM POINTER CELL ADDRESS).                                            PROSEQ      1542     A     
 PROSEQ                                                                                    PROSEQ      1543     A     
 PROSEQ    ISC5     LX1    59-D.FPP    FP BIT IRREGARDLESS OF MODE                         PROSEQ      1544     A     
 PROSEQ             PL     X1,ISC6     IF NOT FP                                           PROSEQ      1545     A     
 PROSEQ             RJ     IAL         ISSUE ADDRESS LOAD                                  PROSEQ      1546     A     
 PROSEQ             EQ     ISC7                                                            PROSEQ      1547     A     
 PROSEQ                                                                                    PROSEQ      1548     A     
 PROSEQ   *         GENERATE CODE TO LOAD SCM POINTER CELL THAT CONTAINS 21-BIT            PROSEQ      1549     A     
 PROSEQ   *         RELOCATED LCM ADDRESS AT OBJECT TIME.                                  PROSEQ      1550     A     
 PROSEQ                                                                                    PROSEQ      1551     A     
 PROSEQ    ISC6     SA2    A1-B1       IHINFO(REF)                                         PROSEQ      1552     A     
 PROSEQ             LX2    -IH.IHP                                                         PROSEQ      1553     A     
 PROSEQ             SX7    X2                                                              PROSEQ      1554          I
          -FCC0882
 PROSEQ             SB5    OC.LD                                                           PROSEQ      1555          I
          -FCC0882
 PROSEQ             LX7    IH.IHP                                                          PROSEQ      1556          I
          -FCC0882
 PROSEQ             SX6    B4          RI                                                  PROSEQ      1557          I
          -FCC0645  -FCC0882
 PROSEQ             LX6    R1.RIP                                                          PROSEQ      1558          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3226    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
          -FCC0645  -FCC0882
 PROSEQ             SX2    B1                                                              FCC0645       33          I
          -FCC0882
 PROSEQ             SX7    X2+IH.LCMA  LCMA[IH] = 1  */ INDICATE ADDRESS LOAD              FCC0882       11     A     
 PROSEQ             SX2    B1                                                              FCC0882       12     A     
 PROSEQ             SB5    OC.LD                                                           FCC0882       13     A     
 PROSEQ             SX6    B4          RI                                                  FCC0645       34     A     
 PROSEQ             LX2    R1.INP+1    IN[R1W] = 2   */ UDI = 1 ( LOAD ONLY )              FCC0645       35     A     
 PROSEQ             BX6    X2+X6                                                           FCC0645       36     A     
 PROSEQ             MX2    0                                                               PROSEQ      1559     A     
 PROSEQ             RJ     SRI         ISSUE LD LCM POINTER CELL                           PROSEQ      1560     A     
 PROSEQ                                                                                    PROSEQ      1561     A     
 PROSEQ    ISC7     SA2    A1-B1       IHINFO(REF)                                         PROSEQ      1562     A     
 PROSEQ             LX2    -IH.RFP                                                         PROSEQ      1563     A     
 PROSEQ             MX3    -IH.RFL                                                         PROSEQ      1564     A     
 PROSEQ             BX4    -X3*X2                                                          PROSEQ      1565     A     
 PROSEQ             MX1    -IH.CAL                                                         PROSEQ      1566     A     
 PROSEQ             LX2    IH.RFP-IH.CAP                                                   PROSEQ      1567     A     
 PROSEQ             BX3    -X1*X2                                                          PROSEQ      1568     A     
 PROSEQ             BX2    X3+X4                                                           PROSEQ      1569     A     
 PROSEQ             NZ     X2,ISC8     IF RF(REF) .OR. CA(REF) .NE. 0                      PROSEQ      1570     A     
 PROSEQ             SA4    LSF                                                             PROSEQ      1571     A     
 PROSEQ             NZ     X4,ISC      IF LD/ST                                            PROSEQ      1572     A     
 PROSEQ             MX1    -R1.RIL                                                         PROSEQ      1573     A     
 PROSEQ             SA2    A2-B1       R1(REF)                                             PROSEQ      1574     A     
 PROSEQ             LX2    -R1.RIP                                                         PROSEQ      1575     A     
 PROSEQ             BX3    -X1*X2                                                          PROSEQ      1576     A     
 PROSEQ             SX6    X3+B3       RI MOD TO SEQ                                       PROSEQ      1577     A     
 PROSEQ             SX2    B4-4        RJ = RI(PRED)                                       PROSEQ      1578     A     
 PROSEQ             RJ     IXI         ISSUE AN *XMT/SA*                                   PROSEQ      1579     A     
 PROSEQ             EQ     ISC                                                             PROSEQ      1580     A     
 PROSEQ                                                                                    PROSEQ      1581     A     
 PROSEQ    ISC8     SX6    B4          RI                                                  PROSEQ      1582     A     
 PROSEQ             LX6    R1.RIP                                                          PROSEQ      1583          I
          -FCC1353
 PROSEQ             ZR     X4,ISC9     IF RF .EQ. 0                                        PROSEQ      1584          I
          -FCC1353
 PROSEQ             SX4    X4+B3       RF(REF) + 100000B                                   PROSEQ      1585          I
          -FCC1353
 PROSEQ             ZR     X3,ISC11    IF CA .EQ. 0  RK = RF                               PROSEQ      1586          I
          -FCC1353
 PROSEQ             SB5    OC.STT                                                          PROSEQ      1587          I
          -FCC1353
 PROSEQ             ZR     X4,ISC9     IF RF = 0                                           FCC1353        5     A     
 PROSEQ             SA5    B7+X4       R1P = SEQ(RF)                                       FCC1353        6     A     
 PROSEQ             SX4    X4+B3       RF = RF + 100000B                                   FCC1353        7     A     
 PROSEQ             NZ     X3,ISC8A    IF CA " 0                                           FCC1353        8     A     
 PROSEQ                                                                                    FCC1353        9     A     
 PROSEQ             UX5    B5,X5                                                           FCC1353       10     A     
 PROSEQ             SX7    B5-OC.DEF                                                       FCC1353       11     A     
 PROSEQ             NZ     X7,ISC11    IF OC[R1P] " OC.DEF                                 FCC1353       12     A     
 PROSEQ             LX5    58-R1.SOP-SO.RTP                                                FCC1353       13     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3227    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             MI     X5,ISC11    IF SORT[R1P] = 2  */ OPERAND IN A X-REGISTER        FCC1353       14     A     
 PROSEQ                                                                                    FCC1353       15     A     
 PROSEQ             LX4    R1.RJP                                                          FCC1353       16     A     
 PROSEQ             BX6    X6+X4                                                           FCC1353       17     A     
 PROSEQ             MX7    0                                                               FCC1353       18     A     
 PROSEQ             SB5    OC.SA                                                           FCC1353       19     A     
 PROSEQ             EQ     ISC10                                                           FCC1353       20     A     
 PROSEQ                                                                                    FCC1353       21     A     
 PROSEQ    ISC8A    SB5    OC.STT                                                          FCC1353       22     A     
 PROSEQ             LX4    IH.RFP                                                          PROSEQ      1588     A     
 PROSEQ             LX3    IH.CAP                                                          PROSEQ      1589     A     
 PROSEQ             BX7    X4+X3                                                           PROSEQ      1590     A     
 PROSEQ             EQ     ISC10                                                           PROSEQ      1591     A     
 PROSEQ                                                                                    PROSEQ      1592     A     
 PROSEQ    ISC9     LX3    R1.INP                                                          PROSEQ      1593     A     
 PROSEQ             BX6    X6+X3                                                           PROSEQ      1594     A     
 PROSEQ             MX7    0                                                               PROSEQ      1595     A     
 PROSEQ             SB5    OC.S                                                            PROSEQ      1596     A     
 PROSEQ                                                                                    PROSEQ      1597     A     
 PROSEQ    ISC10    MX2    0                                                               PROSEQ      1598     A     
 PROSEQ             RJ     SRI         STORE STT/S                                         PROSEQ      1599     A     
 PROSEQ             SX4    B4-8        RK = RI(LCM ADDRESS LOAD)                           PROSEQ      1600     A     
 PROSEQ                                                                                    PROSEQ      1601     A     
 PROSEQ    ISC11    SX5    B4-4        RJ = RI(LCM ADDRESS LOAD)/RI(S/STT)                 PROSEQ      1602     A     
 PROSEQ             LX4    R1.RKP-R1.RJP                                                   PROSEQ      1603     A     
 PROSEQ             BX6    X4+X5                                                           PROSEQ      1604     A     
 PROSEQ             LX6    R1.RJP                                                          PROSEQ      1605     A     
 PROSEQ             SA2    LSF                                                             PROSEQ      1606     A     
 PROSEQ             SX3    B4          RI = NRI                                            PROSEQ      1607     A     
 PROSEQ             NZ     X2,ISC12    IF EXPANDING LCM LD/ST                              PROSEQ      1608     A     
 PROSEQ             SA3    A1-2        R1(REF)                                             PROSEQ      1609     A     
 PROSEQ             MX4    -R1.RIL                                                         PROSEQ      1610     A     
 PROSEQ             LX3    -R1.RIP                                                         PROSEQ      1611     A     
 PROSEQ             BX5    -X4*X3      RI(REF)                                             PROSEQ      1612     A     
 PROSEQ             SX3    X5+B3       RI MOD TO SEQ                                       PROSEQ      1613     A     
 PROSEQ                                                                                    PROSEQ      1614     A     
 PROSEQ    ISC12    LX3    R1.RIP                                                          PROSEQ      1615     A     
 PROSEQ             BX6    X6+X3                                                           PROSEQ      1616     A     
 PROSEQ             MX7    0                                                               PROSEQ      1617     A     
 PROSEQ             SB5    OC.IA                                                           PROSEQ      1618     A     
 PROSEQ             EQ     ISC0                                                            PROSEQ      1619     A     
 PROSEQ    ISI      SPACE  4,8         ISI                                                 PROSEQ      1620     A     
 PROSEQ   **        ISI - ISSUE STT INSTRUCTION.                                           PROSEQ      1621     A     
 PROSEQ   *         ISSUE STT TO MOD USING SEMANTIC INFO OF CURRENT INSTRUCTION            PROSEQ      1622     A     
 PROSEQ   *         BEING EXPANDED.                                                        PROSEQ      1623     A     
 PROSEQ                                                                                    PROSEQ      1624     A     
 PROSEQ    ISI      ROUTINE                                                                PROSEQ      1625     A     
 PROSEQ             SA2    A1-B1       IHINFO(REF)                                         PROSEQ      1626     A     
 PROSEQ             SB5    OC.STT                                                          PROSEQ      1627     A     
 PROSEQ             MX1    -IH.RFL                                                         PROSEQ      1628          I
          -FCC0912
 PROSEQ             LX2    -IH.RFP                                                         PROSEQ      1629          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3228    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
          -FCC0912
 PROSEQ             BX3    -X1*X2      RF(REF)                                             PROSEQ      1630          I
          -FCC0912
 PROSEQ             BX7    X2                                                              PROSEQ      1631          I
          -FCC0912
 PROSEQ             ZR     X3,ISI1     IF RF .EQ. 0                                        PROSEQ      1632          I
          -FCC0912
 PROSEQ             SX1    B3          100000B                                             PROSEQ      1633          I
          -FCC0912
 PROSEQ             IX7    X1+X2       RF IN SEQ                                           PROSEQ      1634          I
          -FCC0912
 PROSEQ             MX6    -IH.RFL                                                         FCC0912       33     A     
 PROSEQ             LX2    -IH.RFP                                                         FCC0912       34     A     
 PROSEQ             BX3    -X6*X2      R = RF[R2]                                          FCC0912       35     A     
 PROSEQ             LX7    X2          R2W = [R2]                                          FCC0912       36     A     
 PROSEQ             ZR     X3,ISI1     IF R = 0                                            FCC0912       37     A     
 PROSEQ             SX6    B3                                                              FCC0912       38     A     
 PROSEQ             IX7    X6+X7       RF[R2W] = RF[R2W] + 100000B                         FCC0912       39     A     
 PROSEQ                                                                                    PROSEQ      1635     A     
 PROSEQ    ISI1     LX7    IH.RFP      IHINFO(STT)                                         PROSEQ      1636     A     
 PROSEQ             SX6    B4          RI                                                  PROSEQ      1637     A     
 PROSEQ             SA2    A1-2        R1 WORD                                             FCC1677X       5     A     
 PROSEQ             LX2    -R1.INP                                                         FCC1677X       6     A     
 PROSEQ             SX3    X2                                                              FCC1677X       7     A     
 PROSEQ             LX3    R1.INP                                                          FCC1677X       8     A     
 PROSEQ             BX6    X3+X6       TRANSFER UDT ORDINAL TO STT                         FCC1677X       9     A     
 PROSEQ             LX6    R1.RIP                                                          PROSEQ      1638          I
          -FCC0912
 PROSEQ             MX2    0                                                               PROSEQ      1639          I
          -FCC0912
 PROSEQ             SX3    B1                                                              FCC0912       40     A     
 PROSEQ             LX3    D.FPP                                                           FCC0912       41     A     
 PROSEQ             BX2    X3*X1       FP = FP[DESCR]                                      FCC0912       42     A     
 PROSEQ             RJ     SRI                                                             PROSEQ      1640     A     
 PROSEQ             EQ     ISI                                                             PROSEQ      1641     A     
 PROSEQ    IAL      SPACE  4,8         IAL                                                 PROSEQ      1642     A     
 PROSEQ   **        IAL - ISSUE ADDRESS LOAD.                                              PROSEQ      1643     A     
 PROSEQ                                                                                    PROSEQ      1644     A     
 PROSEQ    IAL0     RJ     SRI         STORE INSTRUCTION                                   PROSEQ      1645     A     
 PROSEQ                                                                                    PROSEQ      1646     A     
 PROSEQ    IAL      ROUTINE            **ENTRY/EXIT**                                      PROSEQ      1647     A     
 PROSEQ             SX6    B4          RI                                                  PROSEQ      1648     A     
 PROSEQ             SB5    OC.LD                                                           PROSEQ      1649     A     
 PROSEQ             LX6    R1.RIP                                                          PROSEQ      1650          I
          -FCC0645
 PROSEQ             SX7    B1                                                              PROSEQ      1651          I
          -FCC0645
 PROSEQ             LX7    IH.RFP      RF = A0                                             PROSEQ      1652          I
          -FCC0645
 PROSEQ             SX7    B1                                                              FCC0645       37     A     
 PROSEQ             LX7    R1.INP+1    IN[R1W] = 2   */ UDI = 1 ( LOAD ONLY )              FCC0645       38     A     
 PROSEQ             BX6    X6+X7                                                           FCC0645       39     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3229    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             LX7    IH.RFP-R1.INP-1   RF[R2W] = 1  */ A0                            FCC0645       40     A     
 PROSEQ             SA2    A1-B1       IHINFO                                              PROSEQ      1653     A     
 PROSEQ             MX3    -IH.IHL                                                         PROSEQ      1654     A     
 PROSEQ             LX2    -IH.IHP                                                         PROSEQ      1655     A     
 PROSEQ             BX2    -X3*X2      IH(IHINFO)                                          PROSEQ      1656     A     
 PROSEQ             SX5    X2-2                                                            PROSEQ      1657     A     
 PROSEQ             LX5    IH.CAP                                                          PROSEQ      1658     A     
 PROSEQ             BX7    X7+X5                                                           PROSEQ      1659     A     
 PROSEQ             MX2    0                                                               PROSEQ      1660     A     
 PROSEQ             NZ     X5,IAL0     IF CA = 0                                           PROSEQ      1661     A     
 PROSEQ             MX2    2                                                               PROSEQ      1662     A     
 PROSEQ             LX2    2+D.SZP     INDICATE SIZE = 1                                   PROSEQ      1663     A     
 PROSEQ             EQ     IAL0                                                            PROSEQ      1664     A     
 PROSEQ                                                                                    PROSEQ      1665     A     
 PROSEQ    IRA      SPACE  4,8         IRA                                                 PROSEQ      1666     A     
 PROSEQ   **        IRA - ISSUE IA FOR RF IF EXISTENT.                                     PROSEQ      1667          I
          -FCC0643
 PROSEQ   **        IRA - ISSUE *IA* OR *IS* FOR RF IF EXISTANT                            FCC0643       52     A     
 PROSEQ                                                                                    PROSEQ      1668     A     
 PROSEQ    IRA      ROUTINE            **ENTRY/EXIT**                                      PROSEQ      1669     A     
 PROSEQ             SA3    A1-B1       IHINFO(REF)                                         PROSEQ      1670     A     
 PROSEQ             MX2    -IH.RFL                                                         PROSEQ      1671     A     
 PROSEQ             LX3    -IH.RFP                                                         PROSEQ      1672     A     
 PROSEQ             BX4    -X2*X3      RF(REF)                                             PROSEQ      1673     A     
 PROSEQ             ZR     X4,IRA      IF RF.EQ. 0                                         PROSEQ      1674          I
          -FCC1918
 PROSEQ             SB5    OC.IA                                                           PROSEQ      1675          I
          -FCC1918
 PROSEQ             ZR     X4,IRA      IF RF[REF] = 0                                      FCC1918       13     A     
 PROSEQ                                                                                    FCC1918       14     A     
 PROSEQ             LX3    IH.RFP+59-IH.SIAP                                               FCC1918       15     A     
 PROSEQ             PL     X3,IRA0     IF ^SIA[REF]  */ NOT INIT STT THAT IS FP&LCM        FCC1918       16     A     
 PROSEQ                                                                                    FCC1918       17     A     
 PROSEQ             SB5    OC.SA                 */ OUTPUT *SA* TO REMOVE BIT 59           FCC1918       18     A     
 PROSEQ             SX3    B4-4                                                            FCC1918       19     A     
 PROSEQ             LX3    R1.RJP                                                          FCC1918       20     A     
 PROSEQ             SX6    B4                                                              FCC1918       21     A     
 PROSEQ             MX2    0                                                               FCC1918       22     A     
 PROSEQ             BX6    X3+X6                                                           FCC1918       23     A     
 PROSEQ             MX7    0                                                               FCC1918       24     A     
 PROSEQ             RJ     SRI                                                             FCC1918       25     A     
 PROSEQ                                                                                    FCC1918       26     A     
 PROSEQ    IRA0     SB5    OC.IA                                                           FCC1918       27     A     
 PROSEQ             SA3    O.SEQ                                                           PROSEQ      1676     A     
 PROSEQ             IX1    X3+X4                                                           PROSEQ      1677     A     
 PROSEQ             SA3    X1+2        DI = SEQ(RF) + 2 ;  DIW = [DI]                      PROSEQ      1678     A     
 PROSEQ             LX3    59-D.PIP                                                        PROSEQ      1679     A     
 PROSEQ             MX7    0                                                               PROSEQ      1680     A     
 PROSEQ             PL     X3,IRA1     IF ^PI[DIW]                                         PROSEQ      1681          I
          -FCC0643
 PROSEQ             PL     X3,IRA3     IF ^PI[DIW]                                         FCC0643       53     A     
 PROSEQ                                                                                    PROSEQ      1682     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3230    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ   *         GENERATE SA IF RF DEFINED BY DEF TO B-REGISTER.                        PROSEQ      1683     A     
 PROSEQ                                                                                    PROSEQ      1684     A     
 PROSEQ             SA3    X1          R1 = SEQ(RF) ;  R1W = [R1]                          PROSEQ      1685     A     
 PROSEQ             LX3    59-R1.SOP-SO.RTP-1                                              PROSEQ      1686     A     
 PROSEQ             MI     X3,IRA1     IF RT[SO[R1W]] .EQ. 2  */ DEF TO X-REG              PROSEQ      1687     A     
 PROSEQ             SB5    OC.SA                                                           PROSEQ      1688     A     
 PROSEQ             SA3    =XDIRECT                                                        PROSEQ      1689     A     
 PROSEQ             SA1    A1                                                              PROSEQ      1690     A     
 PROSEQ             ZR     X3,IRA1     IF DIRECT = 0  */ LCM = D                           PROSEQ      1691     A     
 PROSEQ             LX1    59-D.L2P                                                        PROSEQ      1692     A     
 PROSEQ             PL     X1,IRA1     IF ^L2[DIREF]                                       PROSEQ      1693     A     
 PROSEQ                                                                                    PROSEQ      1694     A     
 PROSEQ   *         LCM = I LEVEL 2 REF.  GENERATE INTERVENING SA FOLLOWED BY IA.          PROSEQ      1695     A     
 PROSEQ                                                                                    PROSEQ      1696     A     
 PROSEQ             SX5    X4+B3       RJ =  RF + 100000B                                  PROSEQ      1697     A     
 PROSEQ             SX4    B4                                                              PROSEQ      1698     A     
 PROSEQ             LX5    R1.RJP                                                          PROSEQ      1699     A     
 PROSEQ             BX6    X4+X5                                                           PROSEQ      1700     A     
 PROSEQ             SX2    B0                                                              PROSEQ      1701     A     
 PROSEQ             RJ     SRI         SRI ( SA, B4, RJ )                                  PROSEQ      1702     A     
 PROSEQ             SB5    OC.IA                                                           PROSEQ      1703     A     
 PROSEQ             SX2    B4-8                                                            PROSEQ      1704     A     
 PROSEQ             LX2    R1.RJP-R1.RKP                                                   PROSEQ      1705     A     
 PROSEQ             SX5    B4-4                                                            PROSEQ      1706     A     
 PROSEQ             EQ     IRA2                                                            PROSEQ      1707     A     
 PROSEQ                                                                                    PROSEQ      1708     A     
 PROSEQ    IRA1     SX2    B4-4                                                            PROSEQ      1709     A     
 PROSEQ             LX2    R1.RJP-R1.RKP                                                   PROSEQ      1710     A     
 PROSEQ             SX5    X4+B3       RF MOD TO SEQ                                       PROSEQ      1711     A     
 PROSEQ                                                                                    PROSEQ      1712     A     
 PROSEQ    IRA2     BX5    X2+X5                                                           PROSEQ      1713     A     
 PROSEQ             LX5    R1.RKP                                                          PROSEQ      1714     A     
 PROSEQ             SX4    B4          RI                                                  PROSEQ      1715     A     
 PROSEQ             LX4    R1.RIP                                                          PROSEQ      1716     A     
 PROSEQ             BX6    X4+X5       R1 = TYPE1(RI,RI-4,RF)                              PROSEQ      1717     A     
 PROSEQ             SX2    B0                                                              PROSEQ      1718     A     
 PROSEQ             RJ     SRI         STORE IA                                            PROSEQ      1719          I
          -FCC0643
 PROSEQ             RJ     SRI         SRI(  IA/IS RI,RI-4,RF )                            FCC0643       54     A     
 PROSEQ             SA3    A6                                                              FCC1239        5     A     
 PROSEQ             SX2    B1                                                              FCC1239        6     A     
 PROSEQ             LX2    D.USIP                                                          FCC1239        7     A     
 PROSEQ             BX6    X2+X3                                                           FCC1239        8     A     
 PROSEQ             SA6    A3          USI[D] = 1                                          FCC1239        9     A     
 PROSEQ             EQ     IRA                                                             PROSEQ      1720     A     
 PROSEQ                                                                                    FCC0643       55     A     
 PROSEQ    IRA3     SA3    X1          R1W = SEQ(RF)                                       FCC0643       56     A     
 PROSEQ             BX4    X3                                                              FCC0643       57     A     
 PROSEQ             AX3    R1.OCP                                                          FCC0643       58     A     
 PROSEQ             SX6    X3-OC.XMTC-2000B                                                FCC0643       59     A     
 PROSEQ             NZ     X6,IRA1     IF OC[R1W] " OC.XMTC                                FCC0643       60     A     
 PROSEQ                                                                                    FCC0643       61     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3231    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ   *         A(C-I) , GENERATE *IS* AND SET RF.MV BIT IN *RF*                       FCC0643       62     A     
 PROSEQ                                                                                    FCC0643       63     A     
 PROSEQ             LX4    -R1.RJP                                                         FCC0643       64     A     
 PROSEQ             MX2    -R1.RIL                                                         FCC0643       65     A     
 PROSEQ             SB5    OC.IS                                                           FCC0643       66     A     
 PROSEQ             BX4    -X2*X4      RF = RJ[R1W]  */ XMTC PRED                          FCC0643       67     A     
 PROSEQ             SA5    R2W                                                             FCC0643       68     A     
 PROSEQ             LX2    IH.RFP                                                          FCC0643       69     A     
 PROSEQ             SX6    X4+RF.MV                                                        FCC0643       70     A     
 PROSEQ             BX5    X2*X5                                                           FCC0643       71     A     
 PROSEQ             LX6    IH.RFP                                                          FCC0643       72     A     
 PROSEQ             BX6    X5+X6       RF[R2W] = RF + RF.MV                                FCC0643       73     A     
 PROSEQ             SA6    A5                                                              FCC0643       74     A     
 PROSEQ             EQ     IRA1                                                            FCC0643       75     A     
 PROSEQ    ISX      SPACE  4,8         ISX                                                 PROSEQ      1721     A     
 PROSEQ   **        ISX - ISSUE STT OR XMT.                                                PROSEQ      1722     A     
 PROSEQ   *         GENERATE CODE FOR SET TO FORMAL PARAMETER ADDRESS FOLLOWING            PROSEQ      1723     A     
 PROSEQ   *         ADDRESS LOAD.                                                          PROSEQ      1724     A     
 PROSEQ                                                                                    PROSEQ      1725     A     
 PROSEQ    ISX0     MX2    0                                                               PROSEQ      1726     A     
 PROSEQ             RJ     SRI         STORE INSTRUCTION                                   PROSEQ      1727     A     
 PROSEQ                                                                                    PROSEQ      1728     A     
 PROSEQ    ISX      ROUTINE            **ENTRY/EXIT**                                      PROSEQ      1729     A     
 PROSEQ             SA2    A1-B1       IHINFO(REF)                                         PROSEQ      1730     A     
 PROSEQ             MX1    -IH.CAL                                                         PROSEQ      1731     A     
 PROSEQ             LX2    -IH.CAP                                                         PROSEQ      1732     A     
 PROSEQ             BX3    -X1*X2      CA(REF)                                             PROSEQ      1733     A     
 PROSEQ             SX2    B4-4        RP = RI(ADDRESS LOAD)                               PROSEQ      1734     A     
 PROSEQ             SX6    B4          RI = NRI                                            PROSEQ      1735     A     
 PROSEQ             SA5    LSF                                                             PROSEQ      1736     A     
 PROSEQ             NZ     X5,ISX1     IF EXPANDING LD OR ST                               PROSEQ      1737     A     
 PROSEQ             SA4    A2-B1       R1(REF)                                             PROSEQ      1738     A     
 PROSEQ             MX1    -R1.RIL                                                         PROSEQ      1739     A     
 PROSEQ             LX4    -R1.RIP                                                         PROSEQ      1740     A     
 PROSEQ             BX1    -X1*X4      RI(REF)                                             PROSEQ      1741     A     
 PROSEQ             SX6    X1+B3       RI = RI(REF) + 100000B                              PROSEQ      1742     A     
 PROSEQ                                                                                    PROSEQ      1743     A     
 PROSEQ    ISX1     LX6    R1.RIP                                                          PROSEQ      1744     A     
 PROSEQ             ZR     X3,ISX2     IF CA .EQ. 0                                        PROSEQ      1745     A     
 PROSEQ             LX2    IH.RFP      RF = RP                                             PROSEQ      1746     A     
 PROSEQ             SB5    OC.STT                                                          PROSEQ      1747     A     
 PROSEQ             LX3    IH.CAP                                                          PROSEQ      1748     A     
 PROSEQ             BX7    X2+X3                                                           PROSEQ      1749     A     
 PROSEQ             NZ     X5,ISX0     IF EXPANDING LD OR ST                               PROSEQ      1750     A     
 PROSEQ             SA1    A1          DI = D(I)                                           PROSEQ      1751     A     
 PROSEQ             LX1    59-D.L2P                                                        PROSEQ      1752     A     
 PROSEQ             PL     X1,ISX0     IF ^L2[DI]                                          PROSEQ      1753     A     
 PROSEQ             SX6    B4          RI = NRI                                            PROSEQ      1754     A     
 PROSEQ             LX6    R1.RIP                                                          PROSEQ      1755     A     
 PROSEQ             MX2    0                                                               PROSEQ      1756     A     
 PROSEQ             RJ     SRI         STORE INSTRUCTION                                   PROSEQ      1757     A     
 PROSEQ             RJ     IMO         ISSUE MASK-OR BIT 59                                PROSEQ      1758     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3232    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             EQ     ISX                                                             PROSEQ      1759     A     
 PROSEQ                                                                                    PROSEQ      1760     A     
 PROSEQ    ISX2     NZ     X5,ISX      IF EXPANDING LOAD OR STORE                          PROSEQ      1761     A     
 PROSEQ             RJ     IXI         ISSUE A *SA/XMT*                                    PROSEQ      1762     A     
 PROSEQ             EQ     ISX                                                             PROSEQ      1763     A     
 PROSEQ    IXI      SPACE  3           IXI                                                 PROSEQ      1764     A     
 PROSEQ   **        IXI - ISSUE *XMT/SA* INSTRUCTION                                       PROSEQ      1765     A     
 PROSEQ                                                                                    PROSEQ      1766     A     
 PROSEQ    IXI      ROUTINE                                                                PROSEQ      1767     A     
 PROSEQ             SA1    A1                                                              PROSEQ      1768     A     
 PROSEQ             SB5    OC.XMT                                                          PROSEQ      1769     A     
 PROSEQ             LX1    59-D.PRSP                                                       PROSEQ      1770     A     
 PROSEQ             PL     X1,IXI1     IF ^PRS[DI]                                         PROSEQ      1771     A     
 PROSEQ             SA3    A1+2        R1RS = DI + 2                                       FCC1596X       5     A     
 PROSEQ             LX3    58-R1.SOP-SO.RTP                                                FCC1596X       6     A     
 PROSEQ             MI     X3,IXI1     IF SORT [R1RS] = 2  */ RS TO AN X-REG               FCC1596X       7     A     
 PROSEQ             SB5    OC.SA                                                           PROSEQ      1772     A     
 PROSEQ    IXI1     LX2    R1.RJP                                                          PROSEQ      1773     A     
 PROSEQ             SX7    B0                                                              PROSEQ      1774     A     
 PROSEQ             BX6    X2+X6                                                           PROSEQ      1775     A     
 PROSEQ             MX2    0                                                               PROSEQ      1776     A     
 PROSEQ             RJ     SRI                                                             PROSEQ      1777     A     
 PROSEQ             EQ     IXI                                                             PROSEQ      1778     A     
 PROSEQ    IPR      SPACE  4,8         IPR                                                 PROSEQ      1779     A     
 PROSEQ   **        IPR - ISSUE PARAMETER REFERENCE.                                       PROSEQ      1780     A     
 PROSEQ                                                                                    PROSEQ      1781     A     
 PROSEQ    IPR0     RJ     SRI         STORE INSTRUCTION                                   PROSEQ      1782     A     
 PROSEQ                                                                                    PROSEQ      1783     A     
 PROSEQ    IPR      ROUTINE            **ENTRY/EXIT**                                      PROSEQ      1784     A     
 PROSEQ             SA2    A1-2        R1(REF)                                             PROSEQ      1785     A     
 PROSEQ             LX2    -R1.RIP                                                         PROSEQ      1786     A     
 PROSEQ             SA3    LSF                                                             PROSEQ      1787     A     
 PROSEQ             SB5    OC.PLD+2+X3 OC.PLD/PST                                          PROSEQ      1788     A     
 PROSEQ             MX3    -R1.RIL                                                         PROSEQ      1789     A     
 PROSEQ             BX4    -X3*X2      RI(REF)                                             PROSEQ      1790     A     
 PROSEQ             SX2    X4+B3       RI(PLD/PST) = RI(REF) + 100000B                     PROSEQ      1791     A     
 PROSEQ             LX2    R1.RIP                                                          PROSEQ      1792     A     
 PROSEQ             SX4    B4-4                                                            PROSEQ      1793     A     
 PROSEQ             LX4    R1.RJP                                                          PROSEQ      1794     A     
 PROSEQ             BX6    X2+X4                                                           PROSEQ      1795     A     
 PROSEQ             SA5    A1-B1       IHINFO(REF)                                         PROSEQ      1796          I
          -FCC0643
 PROSEQ             SA5    R2W         IHINFO = R2W                                        FCC0643       76     A     
 PROSEQ             SX1    B3          OFFSET FOR MPB                                      PROSEQ      1797     A     
 PROSEQ             LX1    IH.RFP                                                          PROSEQ      1798     A     
 PROSEQ             IX7    X1+X5       IHINFO(PLD/PST)                                     PROSEQ      1799     A     
 PROSEQ             MX2    0                                                               PROSEQ      1800     A     
 PROSEQ             LX5    -IH.CAP                                                         PROSEQ      1801     A     
 PROSEQ             SX4    X5                                                              PROSEQ      1802     A     
 PROSEQ             NZ     X4,IPR0     IF CA .NE. 0                                        PROSEQ      1803     A     
 PROSEQ             MX2    2                                                               PROSEQ      1804     A     
 PROSEQ             LX2    2+D.SZP     INDICATE TOGGLE SIZE FIELD                          PROSEQ      1805     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3233    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             EQ     IPR0                                                            PROSEQ      1806     A     
 PROSEQ    IDR      SPACE  4,8         IDR                                                 PROSEQ      1807     A     
 PROSEQ   **        IDR - ISSUE DIRECT LCM REFERENCE.                                      PROSEQ      1808     A     
 PROSEQ                                                                                    PROSEQ      1809     A     
 PROSEQ    #DAL     IFNE   .DAL,0      IF LEVEL 2 ALLOWED                                  PROSEQ      1810     A     
 PROSEQ                                                                                    PROSEQ      1811     A     
 PROSEQ    IDR      ROUTINE            **ENTRY/EXIT**                                      PROSEQ      1812     A     
 PROSEQ             SX5    B3          100000B FOR MPB                                     PROSEQ      1813     A     
 PROSEQ             SA2    A1-B1       IHINFO                                              PROSEQ      1814          I
          -FCC0643
 PROSEQ             SA2    R2W         IHINFO = R2W                                        FCC0643       77     A     
 PROSEQ             SA4    LSF                                                             PROSEQ      1815     A     
 PROSEQ             SB5    OC.DRL+2+X4 OC.DRL/DWL                                          PROSEQ      1816     A     
 PROSEQ             LX5    IH.RFP                                                          PROSEQ      1817     A     
 PROSEQ             IX7    X2+X5       RF MOD TO SEQ                                       PROSEQ      1818     A     
 PROSEQ             MX3    -R1.RIL                                                         PROSEQ      1819     A     
 PROSEQ             SA2    A2-B1       R1 WORD                                             PROSEQ      1820          I
          -FCC0643
 PROSEQ             SA2    A1-2        R1I = DI - 2                                        FCC0643       78     A     
 PROSEQ             SX5    IH.LCM                                                          PROSEQ      1821     A     
 PROSEQ             LX5    IH.IHP                                                          PROSEQ      1822     A     
 PROSEQ             IX7    X7+X5                                                           PROSEQ      1823     A     
 PROSEQ             LX2    -R1.RIP                                                         PROSEQ      1824     A     
 PROSEQ             BX4    -X3*X2      RI(REF)                                             PROSEQ      1825     A     
 PROSEQ             SX5    B4-4        RJ = RI(PRED)                                       PROSEQ      1826     A     
 PROSEQ             SX4    X4+B3       RI MOD TO SEQ                                       PROSEQ      1827     A     
 PROSEQ             LX4    R1.RIP                                                          PROSEQ      1828     A     
 PROSEQ             LX5    R1.RJP                                                          PROSEQ      1829     A     
 PROSEQ             BX6    X4+X5                                                           PROSEQ      1830     A     
 PROSEQ             MX2    0                                                               PROSEQ      1831     A     
 PROSEQ             RJ     SRI                                                             PROSEQ      1832     A     
 PROSEQ             EQ     IDR                                                             PROSEQ      1833     A     
 PROSEQ                                                                                    PROSEQ      1834     A     
 PROSEQ    #DAL     ENDIF                                                                  PROSEQ      1835     A     
 PROSEQ    IMO      SPACE  4,8         IMO                                                 PROSEQ      1836     A     
 PROSEQ   **        IMO - ISSUE MASK-OR BIT 59.                                            PROSEQ      1837     A     
 PROSEQ   *         IMO GENERATES THE CODE NECESSARY TO INSURE THAT BIT 59 IS              PROSEQ      1838     A     
 PROSEQ   *         SET FOR LCM APLIST ENTRIES AND LOCF/S.  THIS CODE IS NEVER             PROSEQ      1839     A     
 PROSEQ   *         REQUIRED IN LCM=I MODE SINCE 60-BIT ARITHMETIC ALWAYS                  PROSEQ      1840     A     
 PROSEQ   *         PRESERVES BIT 59.  WE ALSO DO NOT NEED THIS CODE IN DIRECT             PROSEQ      1841     A     
 PROSEQ   *         MODE IF NO SET HAS BEEN PERFORMED ON THE ADDRESS QUANTITY,             PROSEQ      1842     A     
 PROSEQ   *         FOR EXAMPLE LOCF(FP).                                                  PROSEQ      1843     A     
 PROSEQ                                                                                    PROSEQ      1844     A     
 PROSEQ    IMO      ROUTINE                                                                PROSEQ      1845     A     
 PROSEQ             SB5    OC.FMA                                                          PROSEQ      1846     A     
 PROSEQ             SX5    B1                                                              PROSEQ      1847     A     
 PROSEQ             LX5    R1.INP                                                          PROSEQ      1848     A     
 PROSEQ             SX4    B4          RI = NRI                                            PROSEQ      1849     A     
 PROSEQ             LX4    R1.RIP                                                          PROSEQ      1850     A     
 PROSEQ             BX6    X4+X5                                                           PROSEQ      1851     A     
 PROSEQ             MX7    0                                                               PROSEQ      1852     A     
 PROSEQ             SX2    B0                                                              PROSEQ      1853     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3234    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             RJ     SRI         STORE FMA(NRI,1)                                    PROSEQ      1854     A     
 PROSEQ                                                                                    PROSEQ      1855     A     
 PROSEQ             SA4    A1-2        R = R1(I)                                           PROSEQ      1856     A     
 PROSEQ             MX1    -R1.RIL                                                         PROSEQ      1857     A     
 PROSEQ             LX4    -R1.RIP                                                         PROSEQ      1858     A     
 PROSEQ             SB5    OC.OR                                                           PROSEQ      1859     A     
 PROSEQ             BX5    -X1*X4      RIR = R1F(R)                                        PROSEQ      1860     A     
 PROSEQ             SX6    X5+B3       R1N = RIR + 100000B                                 PROSEQ      1861     A     
 PROSEQ             LX6    R1.RIP                                                          PROSEQ      1862     A     
 PROSEQ             SX3    B4-4        RJ = NRI - 4                                        PROSEQ      1863     A     
 PROSEQ             SX4    X3-4        RK = NRI - 8                                        PROSEQ      1864     A     
 PROSEQ             LX3    R1.RJP                                                          PROSEQ      1865     A     
 PROSEQ             BX6    X6+X3                                                           PROSEQ      1866     A     
 PROSEQ             LX4    R1.RKP                                                          PROSEQ      1867     A     
 PROSEQ             BX6    X6+X4                                                           PROSEQ      1868     A     
 PROSEQ             MX7    0                                                               PROSEQ      1869     A     
 PROSEQ             SX2    B0                                                              PROSEQ      1870     A     
 PROSEQ             RJ     SRI         STORE OR(RIN,NRI-4,NRI-8)                           PROSEQ      1871     A     
 PROSEQ             EQ     IMO                                                             PROSEQ      1872     A     
 PROSEQ    SRI      SPACE  4,8         SRI                                                 PROSEQ      1873     A     
 PROSEQ   **        SRI - STORE R-LIST INSTRUCTION.                                        PROSEQ      1874     A     
 PROSEQ   *         ENTRY  B5 = OP-CODE                                                    PROSEQ      1875     A     
 PROSEQ   *                X6 = RLIST1 WORD                                                PROSEQ      1876     A     
 PROSEQ   *                X7 = RLIST2 WORD                                                PROSEQ      1877     A     
 PROSEQ   *                X2 = 0 OR 3S D.SZP IF SIZE FIELD IS TO BE RESET                 PROSEQ      1878     A     
 PROSEQ                                                                                    PROSEQ      1879     A     
 PROSEQ    SRI      ROUTINE            **ENTRY/EXIT**                                      PROSEQ      1880     A     
 PROSEQ             PX6    B5,X6                                                           PROSEQ      1881     A     
 PROSEQ             SB4    B4+4        RI = RI + 4                                         PROSEQ      1882     A     
 PROSEQ             SA6    A7+B1                                                           PROSEQ      1883     A     
 PROSEQ             SA7    A6+B1                                                           PROSEQ      1884     A     
 PROSEQ             SA3    =XF.RDT+B5                                                      PROSEQ      1885     A     
 PROSEQ             BX6    X2-X3       TOGGLE SIZE FIELD IF REQUESTED                      PROSEQ      1886     A     
 PROSEQ             SA6    A7+B1                                                           PROSEQ      1887     A     
 PROSEQ             MX7    0                                                               PROSEQ      1888     A     
 PROSEQ             SA7    A6+B1                                                           PROSEQ      1889     A     
 PROSEQ             EQ     SRI                                                             PROSEQ      1890     A     
 PROSEQ    TRE      SPACE  4,8         TRE                                                 PROSEQ      1891     A     
 PROSEQ   **        TRE - TERMINATE REF EXPANSION.                                         PROSEQ      1892     A     
 PROSEQ                                                                                    PROSEQ      1893     A     
 PROSEQ    TRE      ROUTINE            **ENTRY/EXIT**                                      PROSEQ      1894     A     
 PROSEQ             SB7    A0          IMA                                                 PROSEQ      1895     A     
 PROSEQ             SX4    A7-B7                                                           PROSEQ      1896     A     
 PROSEQ             ZR     X4,TRE      IF NO EXPANSION                                     PROSEQ      1897     A     
 PROSEQ                                                                                    PROSEQ      1898     A     
 PROSEQ             SA3    O.SEQ                                                           PROSEQ      1899     A     
 PROSEQ             SB6    X3+2                                                            PROSEQ      1900     A     
 PROSEQ             SX5    A1-B6       R1 INDEX IN TXT                                     PROSEQ      1901     A     
 PROSEQ             ERRMI  ML.NIP-2                                                        PROSEQ      1902     A     
 PROSEQ             LX4    ML.NIP-2    NI = N.WORDS EXPANSION/4                            PROSEQ      1903     A     
 PROSEQ             LX5    ML.IIP                                                          PROSEQ      1904     A     
 PROSEQ             SA3    O.MOD                                                           PROSEQ      1905     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3235    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             BX1    X4+X5                                                           PROSEQ      1906     A     
 PROSEQ             SB6    X3-1                                                            PROSEQ      1907     A     
 PROSEQ             SX6    B7-B6       INDEX IN MOD                                        PROSEQ      1908     A     
 PROSEQ             LX6    ML.MTIP                                                         PROSEQ      1909     A     
 PROSEQ             MX7    1                                                               PROSEQ      1910     A     
 PROSEQ             LX7    1+ML.DELP                                                       PROSEQ      1911     A     
 PROSEQ             BX3    X1+X6                                                           PROSEQ      1912     A     
 PROSEQ             SA4    L.MLT                                                           PROSEQ      1913     A     
 PROSEQ             BX6    X7+X3                                                           PROSEQ      1914     A     
 PROSEQ             SA3    O.MLT                                                           PROSEQ      1915     A     
 PROSEQ             IX5    X3+X4                                                           PROSEQ      1916     A     
 PROSEQ             SA6    X5          MLT=                                                PROSEQ      1917     A     
 PROSEQ             SX6    X4+B1                                                           PROSEQ      1918     A     
 PROSEQ             SA6    A4          L.MLT = L.MLT + 1                                   PROSEQ      1919     A     
 PROSEQ             EQ     TRE                                                             PROSEQ      1920     A     
 PROSEQ    OPR      TITLE  F.RDT - RLIST INSTRUCTION DESCRIPTOR TABLE                      PROSEQ      1921     A     
 PROSEQ             LIST   -X,-R,-F                                                        PROSEQ      1922     A     
 PROSEQ             ECHO   2,A=(I,II,III,IV,BSSZ),B=(0,1,2,3,1)                            PROSEQ      1923     A     
 PROSEQ             NOREF  A                                                               PROSEQ      1924     A     
 PROSEQ    A        EQU    B                                                               PROSEQ      1925     A     
 PROSEQ                                                                                    PROSEQ      1926     A     
 PROSEQ    TESTM    IFNE   TEST,0                                                          PROSEQ      1927     A     
 PROSEQ             MACRO  OPR,NAME,SS                                                     PROSEQ      1928     A     
 PROSEQ    TY       SET    SS                                                              PROSEQ      1929     A     
 PROSEQ             CON    TY+1+4L_NAME                                                    PROSEQ      1930     A     
 PROSEQ             ENDM                                                                   PROSEQ      1931     A     
 PROSEQ                                                                                    PROSEQ      1932     A     
 PROSEQ             USE    /OPRS/                                                          PROSEQ      1933     A     
 PROSEQ   *CALL     OPRDEFS                                                                PROSEQ      1934     A     
 PROSEQ             USE    *                                                               PROSEQ      1935     A     
 PROSEQ    TESTM    ENDIF                                                                  PROSEQ      1936     A     
 PROSEQ             LIST   -R,X,F                                                          PROSEQ      1937     A     
 PROSEQ    OPR      SPACE  4                                                               PROSEQ      1938     A     
 PROSEQ   **        OPR - DEFINE *OPR* MACRO TO FORM RLIST DESCRIPTOR TABLE                PROSEQ      1939     A     
 PROSEQ                                                                                    PROSEQ      1940     A     
 PROSEQ   *         DEFINE VALUES FOR USE IN *OPR* MACRO CALLS                             PROSEQ      1941     A     
 PROSEQ                                                                                    PROSEQ      1942     A     
 PROSEQ    MC       SET    34-15                                                           PROSEQ      1943     A     
 PROSEQ             IFEQ   .CPU,76,1                                                       PROSEQ      1944     A     
 PROSEQ    MC       SET    37-15                                                           PROSEQ      1945     A     
 PROSEQ                                                                                    PROSEQ      1946     A     
 PROSEQ             ECHO   2,X=(COMM,USI,),V=(1,1,0)                                       PROSEQ      1947     A     
 PROSEQ             NOREF  .X                                                              PROSEQ      1948     A     
 PROSEQ    .X       =      V                                                               PROSEQ      1949     A     
 PROSEQ                                                                                    PROSEQ      1950     A     
 PROSEQ   *         SYMBOL DEFINED IF INSTRUCTION DOESN"T DEFINE AN RI                     PROSEQ      1951     A     
 PROSEQ                                                                                    PROSEQ      1952     A     
 PROSEQ             ECHO   2,N=(JUMP,UJUMP,STORE,STORE2,REGST,ECJUMP)                      PROSEQ      1953     A     
 PROSEQ             NOREF  Y.N                                                             PROSEQ      1954     A     
 PROSEQ    Y.N      EQU    1                                                               PROSEQ      1955     A     
 PROSEQ                                                                                    PROSEQ      1956     A     
 PROSEQ             ECHO   2,N=(LOAD,STORE,JUMP,UJUMP,LOAD2,STORE2,ECJUMP),_______         PROSEQ      1957     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3236    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ   ,V=(4,2,1,1,14B,12B,20B)                                                         PROSEQ      1958     A     
 PROSEQ             NOREF  Z.N                                                             PROSEQ      1959     A     
 PROSEQ    Z.N      EQU    V                                                               PROSEQ      1960     A     
 PROSEQ                                                                                    PROSEQ      1961     A     
 PROSEQ   *         BITS SET FOR XMT , CON SHIFTS AND PSEUDO INSTRUCTION FIELDS            PROSEQ      1962     A     
 PROSEQ                                                                                    PROSEQ      1963     A     
 PROSEQ             ECHO   2,N=(SXT,XMT,KLS,KRS,EOQ,BOS,EOS,DAR,RS,DEF,LAB,ENT),__         PROSEQ      1964     A     
 PROSEQ   ,V=(4,4,2,2,1,1,1,1,1,1,1,1)                                                     PROSEQ      1965     A     
 PROSEQ             NOREF  S.N                                                             PROSEQ      1966     A     
 PROSEQ    S.N      EQU    V                                                               PROSEQ      1967     A     
 PROSEQ                                                                                    PROSEQ      1968     A     
 PROSEQ             MACRO  OPR,NAM,SS                                                      PROSEQ      1969     A     
 PROSEQ             ECHO   1,X=(BD,LSJ,XSP)                                                PROSEQ      1970     A     
 PROSEQ    X        SET    0                                                               PROSEQ      1971     A     
 PROSEQ    TYPE     SET    SS                                                              PROSEQ      1972     A     
 PROSEQ    S        GETARG 23,4,(SS)                                                       PROSEQ      1973     A     
 PROSEQ    CO       SET    ."S"                                                            PROSEQ      1974     A     
 PROSEQ   *                                  UNSAFE INSTRUCTION                            PROSEQ      1975     A     
 PROSEQ    S        GETARG 29,3,(SS)                                                       PROSEQ      1976     A     
 PROSEQ    CO       SET    CO+4*."S"                                                       PROSEQ      1977     A     
 PROSEQ   *                            FUNCTION UNIT AND TIMES                             PROSEQ      1978     A     
 PROSEQ    S        MICRO  MC,2,$SS$                                                       PROSEQ      1979     A     
 PROSEQ    FT       SET    "S" 0                                                           PROSEQ      1980     A     
 PROSEQ    JFT      SET    FT/FT                                                           PROSEQ      1981     A     
 PROSEQ    S        GETARG 40,6,(SS)                                                       PROSEQ      1982     A     
 PROSEQ    FU1      SET    0                                                               PROSEQ      1983     A     
 PROSEQ             IFC    NE,//"S"/,1                                                     PROSEQ      1984     A     
 PROSEQ    FU1      SET    /FUNIT/"S"                                                      PROSEQ      1985     A     
 PROSEQ    FU2      SET    FU1                                                             PROSEQ      1986     A     
 PROSEQ   *                            SECOND FUNCTIONAL UNIT ( 6600 )                     PROSEQ      1987     A     
 PROSEQ    #MD      IFEQ   .CPU,74                                         ?6600           PROSEQ      1988     A     
 PROSEQ    S        GETARG 47,5,(SS)                                                       PROSEQ      1989     A     
 PROSEQ             IFC    NE,/"S"//,3                                                     PROSEQ      1990     A     
 PROSEQ    FU2      SET    FU1+1                                                           PROSEQ      1991     A     
 PROSEQ             IFC    NE,/"S"/FU1/,1                                                  PROSEQ      1992     A     
 PROSEQ    FU2      SET    /FUNIT/"S"                                                      PROSEQ      1993     A     
 PROSEQ    #MD      ENDIF                                                  '6600           PROSEQ      1994     A     
 PROSEQ   *                            INSTRUCTION SIZE                                    PROSEQ      1995     A     
 PROSEQ    S        GETARG 54,2,(SS)                                                       PROSEQ      1996     A     
 PROSEQ    PA       SET    "S" 1                                                           PROSEQ      1997     A     
 PROSEQ    PA       SET    PA/15                                                           PROSEQ      1998     A     
 PROSEQ    S        GETARG 63,6,(SS)                                                       PROSEQ      1999     A     
 PROSEQ             IFC    EQ,/"S"/ZEROP/,1                                                PROSEQ      2000     A     
 PROSEQ    CO       SET    2                                                               PROSEQ      2001     A     
 PROSEQ   *                            LOAD / STORE / JUMP BITS                            PROSEQ      2002     A     
 PROSEQ             IF     DEF,Z."S",1                                                     PROSEQ      2003     A     
 PROSEQ    LSJ      SET    Z."S"                                                           PROSEQ      2004     A     
 PROSEQ   *                            ^D - NO RI / RI NOT A DEF                           PROSEQ      2005     A     
 PROSEQ             IFEQ   TYPE,3,2                                                        PROSEQ      2006     A     
 PROSEQ    BD       SET    1                                                               PROSEQ      2007     A     
 PROSEQ             ELSE   2                                                               PROSEQ      2008     A     
 PROSEQ             IF     DEF,Y."S",1                                                     PROSEQ      2009     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3237    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ    BD       SET    1                                                               PROSEQ      2010     A     
 PROSEQ   *                            BOUNDARY MARKER                                     PROSEQ      2011     A     
 PROSEQ    S        GETARG 70,1,(SS)                                                       PROSEQ      2012     A     
 PROSEQ             IFC    NE,/"S"//,1                                                     PROSEQ      2013     A     
 PROSEQ    BD       SET    BD+2                                                            PROSEQ      2014     A     
 PROSEQ             IF     DEF,S.NAM,1                                                     PROSEQ      2015     A     
 PROSEQ    XSP      SET    S.NAM                                                           PROSEQ      2016     A     
 PROSEQ   *                                                                                PROSEQ      2017     A     
 PROSEQ     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     A     
 PROSEQ    OPR      ENDM                                                                   PROSEQ      2019     A     
 PROSEQ    RDT      SPACE  3                                                               PROSEQ      2020     A     
 PROSEQ   **        F.RDT - RLIST INSTRUCTION DESCRIPTOR TABLE                             PROSEQ      2021     A     
 PROSEQ                                                                                    PROSEQ      2022     A     
 PROSEQ             ENTRY  F.RDT                                                           PROSEQ      2023     A     
 PROSEQ    F.RDT    BSS    0                                                               PROSEQ      2024     A     
 PROSEQ             LOC    0                                                               PROSEQ      2025     A     
 PROSEQ   *CALL     OPRDEFS                                                                PROSEQ      2026     A     
 PROSEQ             LOC    *O                                                              PROSEQ      2027     A     
 PROSEQ             LIST   R                                                               PROSEQ      2028     A     
 PROSEQ    SST      TITLE  SST - SHELL SORT TABLE                                          PROSEQ      2029     A     
 PROSEQ   ***       SST - SHELL SORT TABLE.                                                PROSEQ      2030     A     
 PROSEQ   *                                                                                PROSEQ      2031     A     
 PROSEQ   *                SST SORTS A TABLE USING A SHELL SORTING TECHNIQUE.              PROSEQ      2032     A     
 PROSEQ   *         THE TABLE IS SORTED IN PLACE INTO ASCENDING ORDER ON THE KEY           PROSEQ      2033     A     
 PROSEQ   *         KEY(X) = XOR(SHIFT(KEYMASK&X,KEYSHIFT),UPDOWN)                         PROSEQ      2034     A     
 PROSEQ   *                                                                                PROSEQ      2035     A     
 PROSEQ   *                TIME(SST) @ TIME(RADIX) FOR N @ 250/575, B6 "0/=0               PROSEQ      2036     A     
 PROSEQ   *                                                                                PROSEQ      2037     A     
 PROSEQ   *         ENTRY  (B7) = ADDRESS OF TABLE TO BE SORTED                            PROSEQ      2038     A     
 PROSEQ   *                (B6) = SHIFT COUNT FOR EXTRACTED KEY PRIOR TO COMPARE           PROSEQ      2039     A     
 PROSEQ   *                (X0) = MASK TO EXTRACT KEY FROM ENTRY                           PROSEQ      2040     A     
 PROSEQ   *                (X1) = NUMBER OF ELEMENTS IN ARRAY.                             PROSEQ      2041     A     
 PROSEQ   *                (X5) = ASCENDING/DESENDING SORT MASK ( +0 / -0 )                PROSEQ      2042     A     
 PROSEQ   *                                                                                PROSEQ      2043     A     
 PROSEQ   *         USES   X - ALL                                                         PROSEQ      2044     A     
 PROSEQ   *                B - 2, 3, 4, 5, 6                                               PROSEQ      2045     A     
 PROSEQ   *                A - 1, 2, 6, 7.                                                 PROSEQ      2046     A     
 PROSEQ                                                                                    PROSEQ      2047     A     
 PROSEQ    SST0     SA2    B2          I = I + 1                                           PROSEQ      2048     A     
 PROSEQ             SA7    B5-B4                                                           PROSEQ      2049     A     
 PROSEQ             EQ     B2,B3,SST4  IF I > N                                            PROSEQ      2050     A     
 PROSEQ                                                                                    PROSEQ      2051     A     
 PROSEQ    SST1     BX7    X0*X2                                                           PROSEQ      2052     A     
 PROSEQ             SA1    B2+B4       J = I - K                                           PROSEQ      2053     A     
 PROSEQ             LX6    B6,X7                                                           PROSEQ      2054     A     
 PROSEQ             SB5    B2+B4                                                           PROSEQ      2055     A     
 PROSEQ             BX3    X6-X5       SI = KEY(T(I))                                      PROSEQ      2056     A     
 PROSEQ             SB2    B2+1                                                            PROSEQ      2057     A     
 PROSEQ             LX7    X2                                                              PROSEQ      2058     A     
 PROSEQ                                                                                    PROSEQ      2059     A     
 PROSEQ    SST2     BX2    X0*X1                                                           PROSEQ      2060     A     
 PROSEQ             LX6    B6,X2                                                           PROSEQ      2061     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3238    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             BX2    X6-X5       SJ = KEY(T(J))                                      PROSEQ      2062     A     
 PROSEQ             IX6    X3-X2                                                           PROSEQ      2063     A     
 PROSEQ             PL     X6,SST0     IF ELEMENTS IN ORDER                                PROSEQ      2064     A     
 PROSEQ             BX6    X1                                                              PROSEQ      2065     A     
 PROSEQ             SA1    B5+B4       J = J - K                                           PROSEQ      2066     A     
 PROSEQ             SA6    B5-B4       T(J+K) = T(J)                                       PROSEQ      2067     A     
 PROSEQ             SB5    B5+B4                                                           PROSEQ      2068     A     
 PROSEQ             GE     B5,B7,SST2  IF J \ 0                                            PROSEQ      2069     A     
 PROSEQ             SA2    B2          I = I + 1                                           PROSEQ      2070     A     
 PROSEQ             SA7    B5-B4       T(J+K) = S                                          PROSEQ      2071     A     
 PROSEQ             LT     B2,B3,SST1  IF I @ LENGTH                                       PROSEQ      2072     A     
 PROSEQ                                                                                    PROSEQ      2073     A     
 PROSEQ    SST4     AX4    1           K = K/2                                             PROSEQ      2074     A     
 PROSEQ             SB4    X4                                                              PROSEQ      2075     A     
 PROSEQ             SA2    B7-B4       I = K                                               PROSEQ      2076     A     
 PROSEQ             SB2    B7-B4                                                           PROSEQ      2077     A     
 PROSEQ             NZ     X4,SST1     IF K " 0                                            PROSEQ      2078     A     
 PROSEQ    SST      ENTRY.                                                                 PROSEQ      2079     A     
 PROSEQ             MX4    12                                                              PROSEQ      2080     A     
 PROSEQ             NX6    B2,X1       K = 2**FIX(LOG2(LENGTH))+1                          PROSEQ      2081     A     
 PROSEQ             SB1    1                                                               PROSEQ      2082     A     
 PROSEQ             SB3    B7+X1       (B3) = LWA + 1                                      PROSEQ      2083     A     
 PROSEQ             AX4    B2,X4                                                           PROSEQ      2084     A     
 PROSEQ             NZ     B6,SST4     IF SHFTC " 0                                        PROSEQ      2085     A     
 PROSEQ                                                                                    PROSEQ      2086     A     
 PROSEQ             QUAL   SHFTC=0                                                         PROSEQ      2087     A     
 PROSEQ                                                                                    PROSEQ      2088     A     
 PROSEQ    SST0     AX4    1                                                               PROSEQ      2089     A     
 PROSEQ             SB4    X4          K = K/2                                             PROSEQ      2090     A     
 PROSEQ             SA2    B7-B4                                                           PROSEQ      2091     A     
 PROSEQ             SB2    B7-B4       I = K                                               PROSEQ      2092     A     
 PROSEQ             NZ     X4,SST2     IF K " 0                                            PROSEQ      2093     A     
 PROSEQ             EQ     SST                                                             PROSEQ      2094     A     
 PROSEQ                                                                                    PROSEQ      2095     A     
 PROSEQ    SST1     SA2    A2+B1       I = I + 1                                           PROSEQ      2096     A     
 PROSEQ             SA7    B5-B4       T(J+K) = S                                          PROSEQ      2097     A     
 PROSEQ             EQ     B2,B3,SST0  IF I > N                                            PROSEQ      2098     A     
 PROSEQ                                                                                    PROSEQ      2099     A     
 PROSEQ    SST2     BX6    X0*X2                                                           PROSEQ      2100     A     
 PROSEQ             SA1    B2+B4       J = I - K                                           PROSEQ      2101     A     
 PROSEQ             LX7    X2          S = T(I)                                            PROSEQ      2102     A     
 PROSEQ             SB5    B2+B4                                                           PROSEQ      2103     A     
 PROSEQ             BX3    X6-X5       SI = KEY(T(I))                                      PROSEQ      2104     A     
 PROSEQ             SB2    B2+1                                                            PROSEQ      2105     A     
 PROSEQ             BX2    X0*X1                                                           PROSEQ      2106     A     
 PROSEQ                                                                                    PROSEQ      2107     A     
 PROSEQ    SST3     BX2    X2-X5                                                           PROSEQ      2108     A     
 PROSEQ             IX6    X3-X2                                                           PROSEQ      2109     A     
 PROSEQ             PL     X6,SST1     IF ELEMENTS IN ORDER                                PROSEQ      2110     A     
 PROSEQ             LX6    X1                                                              PROSEQ      2111     A     
 PROSEQ             SA1    B5+B4                                                           PROSEQ      2112     A     
 PROSEQ             SA6    B5-B4       T(J+K) = T(J)                                       PROSEQ      2113     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3239    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             SB5    B5+B4       J = J - K                                           PROSEQ      2114     A     
 PROSEQ             BX2    X0*X1                                                           PROSEQ      2115     A     
 PROSEQ             GE     B5,B7,SST3                                                      PROSEQ      2116     A     
 PROSEQ             SA2    A2+B1       I = I + 1                                           PROSEQ      2117     A     
 PROSEQ             SA7    B5-B4                                                           PROSEQ      2118     A     
 PROSEQ             LT     B2,B3,SST2  IF I @ N                                            PROSEQ      2119     A     
 PROSEQ             EQ     SST0                                                            PROSEQ      2120     A     
 PROSEQ                                                                                    PROSEQ      2121     A     
 PROSEQ             QUAL                                                                   PROSEQ      2122     A     
 PROSEQ    SHL      TITLE  SHL - SHELL SORT                                                PROSEQ      2123     A     
 PROSEQ   ***       SHL - SHELL SORT FOR 1 WORD/ENTRY TABLES                               PROSEQ      2124     A     
 PROSEQ   *         INPLACE SORT OF TABLE INTO ASCENDING ORDER                             PROSEQ      2125     A     
 PROSEQ   *                                                                                PROSEQ      2126     A     
 PROSEQ   *                TIME(SHL) @ TIME(RADIX) FOR N @ 1650                            PROSEQ      2127     A     
 PROSEQ   *                                                                                PROSEQ      2128     A     
 PROSEQ   *         ENTRY  (X1) = N = TABLE LENGTH                                         PROSEQ      2129     A     
 PROSEQ   *                (B7) = TBL = = FWA OF ARRAY TO BE SORTED                        PROSEQ      2130     A     
 PROSEQ   *                                                                                PROSEQ      2131     A     
 PROSEQ   *         EXIT   (B3) = LWA+1 OF TABLE                                           PROSEQ      2132     A     
 PROSEQ   *                (B7) = FWA                                                      PROSEQ      2133     A     
 PROSEQ   *                                                                                PROSEQ      2134     A     
 PROSEQ   *         USES   X - 1, 2, 3, 4, 6, 7                                            PROSEQ      2135     A     
 PROSEQ   *                B - 2, 3, 4, 5                                                  PROSEQ      2136     A     
 PROSEQ   *                A - 1, 2, 6, 7                                                  PROSEQ      2137     A     
 PROSEQ                                                                                    PROSEQ      2138     A     
 PROSEQ    SHL1     SA2    A2+B1       I = I + 1                                           PROSEQ      2139     A     
 PROSEQ             SA7    B5-B4       T(J+K) = S                                          PROSEQ      2140     A     
 PROSEQ             EQ     B2,B3,SHL4  IF I > N                                            PROSEQ      2141     A     
 PROSEQ                                                                                    PROSEQ      2142     A     
 PROSEQ    SHL2     SA1    B2+B4       J = I - K                                           PROSEQ      2143     A     
 PROSEQ             LX7    X2          S = T(I)                                            PROSEQ      2144     A     
 PROSEQ             SB5    B2+B4                                                           PROSEQ      2145     A     
 PROSEQ             SB2    B2+B1                                                           PROSEQ      2146     A     
 PROSEQ                                                                                    PROSEQ      2147     A     
 PROSEQ    SHL3     IX3    X2-X1                                                           PROSEQ      2148     A     
 PROSEQ             BX6    X1                                                              PROSEQ      2149     A     
 PROSEQ             PL     X3,SHL1     IF ELEMENTS IN ORDER                                PROSEQ      2150     A     
 PROSEQ             SA1    A1+B4                                                           PROSEQ      2151     A     
 PROSEQ             NO                                                                     PROSEQ      2152     A     
 PROSEQ             SA6    B5-B4       T(J+K) = T(J)                                       PROSEQ      2153     A     
 PROSEQ             SB5    B5+B4       J = J - K                                           PROSEQ      2154     A     
 PROSEQ             GE     B5,B7,SHL3  IF J \ 0                                            PROSEQ      2155     A     
 PROSEQ             EQ     SHL1                                                            PROSEQ      2156     A     
 PROSEQ                                                                                    PROSEQ      2157     A     
 PROSEQ    SHL4     AX4    1                                                               PROSEQ      2158     A     
 PROSEQ             SB4    X4          K = K/2                                             PROSEQ      2159     A     
 PROSEQ             SA2    B7-B4       I = K                                               PROSEQ      2160     A     
 PROSEQ             SB2    B7-B4                                                           PROSEQ      2161     A     
 PROSEQ             NZ     X4,SHL2     IF K " 0                                            PROSEQ      2162     A     
 PROSEQ                                                                                    PROSEQ      2163     A     
 PROSEQ    SHL      ENTRY.                                                                 PROSEQ      2164     A     
 PROSEQ             MX4    12                                                              PROSEQ      2165     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3240    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             SB1    1                                                               PROSEQ      2166     A     
 PROSEQ             NX6    B2,X1       K = 2**(FIX(LOG2(N))+1)                             PROSEQ      2167     A     
 PROSEQ             SB3    B7+X1       (B3) = LWA+1                                        PROSEQ      2168     A     
 PROSEQ             AX4    B2,X4                                                           PROSEQ      2169     A     
 PROSEQ             EQ     SHL4                                                            PROSEQ      2170     A     
 PROSEQ    TABLES   TITLE  PASS 2 TABLES                                                   PROSEQ      2171     A     
 PROSEQ             USE    //                                                              PROSEQ      2172     A     
 PROSEQ    F.MEM    BSS    1           FWA OF WORKING STORAGE                              PROSEQ      2173     A     
 PROSEQ             USE    0                                                               PROSEQ      2174     A     
 PROSEQ                                                                                    PROSEQ      2175     A     
 PROSEQ   **        TABLE - GENERATE MANAGED TABLE.                                        PROSEQ      2176     A     
 PROSEQ   *                                                                                PROSEQ      2177     A     
 PROSEQ   *         TABLE  TNAME,EQUIV                                                     PROSEQ      2178     A     
 PROSEQ   *         ENTRY  *TNAME* = TABLE NAME.                                           PROSEQ      2179     A     
 PROSEQ   *                *EQUIV* = EQUIVALENT TABLE NAME.  THIS ALLOWS CERTAIN           PROSEQ      2180     A     
 PROSEQ   *                            TABLES TO BE USED BY DIFFERENT PROCESSORS.          PROSEQ      2181     A     
 PROSEQ   *         EXIT   *O.TNAM* IS NAME OF WORD CONTAINING TABLE FWA.                  PROSEQ      2182     A     
 PROSEQ   *                *L.TNAM* IS NAME OF WORD CONTAINING THE TABLE LENGTH.           PROSEQ      2183     A     
 PROSEQ   *                            *Z.TNAM* IS THE TABLE NUMBER                        PROSEQ      2184     A     
 PROSEQ                                                                                    PROSEQ      2185     A     
 PROSEQ             PURGMAC TABLE                                                          PROSEQ      2186     A     
 PROSEQ             MACRO  TABLE,TNAM,EQUIV                                                PROSEQ      2187     A     
 PROSEQ             ENTRY  O.TNAM,L.TNAM,Z.TNAM                                            PROSEQ      2188     A     
 PROSEQ   T         IFC    EQ,/EQUIV//                                                     PROSEQ      2189     A     
 PROSEQ    Z.TNAM   EQU    *-FTAB                                                          PROSEQ      2190     A     
 PROSEQ    O.TNAM   CON    F.MEM                                                           PROSEQ      2191     A     
 PROSEQ    TABLES   RMT                                                                    PROSEQ      2192     A     
 PROSEQ             ORG    LTAB+Z.TNAM                                                     PROSEQ      2193     A     
 PROSEQ    L.TNAM   CON    0                                                               PROSEQ      2194     A     
 PROSEQ    TABLES   RMT                                                                    PROSEQ      2195     A     
 PROSEQ    TABNAM   RMT                                                                    PROSEQ      2196     A     
 PROSEQ             ORG    NAMTAB+Z.TNAM                                                   PROSEQ      2197     A     
 PROSEQ             DATA 10H TNAM                                                          PROSEQ      2198     A     
 PROSEQ    TABNAM   RMT                                                                    PROSEQ      2199     A     
 PROSEQ   T         ELSE                                                                   PROSEQ      2200     A     
 PROSEQ    Z.TNAM   EQU    Z.EQUIV                                                         PROSEQ      2201     A     
 PROSEQ    O.TNAM   EQU    O.EQUIV                                                         PROSEQ      2202     A     
 PROSEQ    TABLES   RMT                                                                    PROSEQ      2203     A     
 PROSEQ    L.TNAM   EQU    L.EQUIV                                                         PROSEQ      2204     A     
 PROSEQ    TABLES   RMT                                                                    PROSEQ      2205     A     
 PROSEQ    TABNAM   RMT                                                                    PROSEQ      2206     A     
 PROSEQ             ORG    NAMTAB+Z.TNAM                                                   PROSEQ      2207     A     
 PROSEQ             DATA   10H TNAM EQUIV                                                  PROSEQ      2208     A     
 PROSEQ    TABNAM   RMT                                                                    PROSEQ      2209     A     
 PROSEQ   T         ENDIF                                                                  PROSEQ      2210     A     
 PROSEQ             ENDM                                                                   PROSEQ      2211     A     
 PROSEQ    TABLES   SPACE  3                                                               PROSEQ      2212     A     
 PROSEQ   **        PASS 2 MANAGED TABLE DEFINITIONS                                       PROSEQ      2213     A     
 PROSEQ                                                                                    PROSEQ      2214     A     
 PROSEQ    FTAB     BSS    0           FWA VECTOR FOR TABLE MANAGER                        PROSEQ      2215     A     
 PROSEQ                                                                                    PROSEQ      2216     A     
 PROSEQ    BLK      TABLE              BLOCKS ( OPT=2 ONLY )                               PROSEQ      2217     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3241    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ                                                                                    PROSEQ      2218     A     
 PROSEQ    TXT      TABLE              RLIST INSTRUCTIONS                                  PROSEQ      2219     A     
 PROSEQ    GST      TABLE  TXT         GRAPH STRUCTURE TABLE                               PROSEQ      2220     A     
 PROSEQ                                                                                    PROSEQ      2221     A     
 PROSEQ    RND      TABLE              R-NUMBER DEFINITION TABLE ( *SQZ* )                 PROSEQ      2222     A     
 PROSEQ    TREE     TABLE  RND         DEPENDENCY TREE / SUCCESSOR INDEX TABLE             PROSEQ      2223     A     
 PROSEQ                                                                                    PROSEQ      2224     A     
 PROSEQ    PIT      TABLE              POSTED INSTRUCTIONS                                 PROSEQ      2225     A     
 PROSEQ                                                                                    PROSEQ      2226     A     
 PROSEQ    OTI      TABLE              OT. INFO 12/P(OT. ORD),30/0,18/RI IN OT.            PROSEQ      2227     A     
 PROSEQ    MLT      TABLE  OTI         MOD LIST INDEX TABLE                                PROSEQ      2228     A     
 PROSEQ                                                                                    PROSEQ      2229     A     
 PROSEQ    MOD      TABLE              MODIFICATIONS ( INSTRUCTIONS )                      PROSEQ      2230     A     
 PROSEQ                                                                                    PROSEQ      2231     A     
 PROSEQ    CFT      TABLE              CONTROL FLOW TABLE ( EDGES )                        PROSEQ      2232     A     
 PROSEQ                                                                                    PROSEQ      2233     A     
 PROSEQ    BST      TABLE              BLOCK STATUS INFORMATION                            PROSEQ      2234     A     
 PROSEQ   * BIT     =      BST         ( PHASE 1 OF OPT=2 )                                PROSEQ      2235     A     
 PROSEQ                                                                                    PROSEQ      2236     A     
 PROSEQ    PSI      TABLE              POST STORE INFORMATION ( *GPO/GRA* )                PROSEQ      2237     A     
 PROSEQ                                                                                    PROSEQ      2238     A     
 PROSEQ    RXI      TABLE              REGION EXIT INFORMATION ( *GPO/GRA* )               PROSEQ      2239     A     
 PROSEQ                                                                                    PROSEQ      2240     A     
 PROSEQ    RCT      TABLE              REGISTER CANIDATE TABLE ( *GRA* )                   PROSEQ      2241     A     
 PROSEQ                                                                                    PROSEQ      2242     A     
 PROSEQ    TET      TABLE              TEMP EQUIVALENCE TABLE ( CODE MOTION )              PROSEQ      2243     A     
 PROSEQ                                                                                    PROSEQ      2244     A     
 PROSEQ    IOL      TABLE              I/O AP LIST PARAMETER ORDINALS ( OPT=2 )            PROSEQ      2245     A     
 PROSEQ    IIT      TABLE  IOL         INCREMENT INFORMATION ( OPT=2 )                     PROSEQ      2246     A     
 PROSEQ                                                                                    PROSEQ      2247     A     
 PROSEQ    VDT      TABLE              VARDIM INFO                                         PROSEQ      2248     A     
 PROSEQ                                                                                    PROSEQ      2249     A     
 PROSEQ    APL      TABLE              AP LISTS                                            PROSEQ      2250     A     
 PROSEQ                                                                                    PROSEQ      2251     A     
 PROSEQ    UDI      TABLE              USE/DEF INDEX TABLE                                 PROSEQ      2252     A     
 PROSEQ                                                                                    PROSEQ      2253     A     
 PROSEQ    ALS      TABLE              24/,36/CA,IH OF ACTIVE LOOP *CV"S*                  PROSEQ      2254     A     
 PROSEQ                                                                                    PROSEQ      2255     A     
 PROSEQ    TEND     TABLE              DUMMY TABLE FOR TABLE MANAGER                       PROSEQ      2256     A     
 PROSEQ             BSS    0                                                               PROSEQ      2257     A     
 PROSEQ    NTAB     EQU    *-FTAB      TOTAL NUMBER OF TABLES                              PROSEQ      2258     A     
 PROSEQ             SPACE  3                                                               PROSEQ      2259     A     
 PROSEQ   **        REMAINDER OF TABLE MANAGER STORAGE                                     PROSEQ      2260     A     
 PROSEQ                                                                                    PROSEQ      2261     A     
 PROSEQ    LTAB     BSS    0           TABLE LENGTHS                                       PROSEQ      2262     A     
 PROSEQ    TABLES   HERE                                                                   PROSEQ      2263     A     
 PROSEQ                                                                                    PROSEQ      2264     A     
 PROSEQ    MU       ENTRY. 0           MEMORY USED                                         PROSEQ      2265     A     
 PROSEQ    LM       ENTRY. F.MEM       LOW MEMORY ADDRESS ( FWA WORKING STORAGE )          PROSEQ      2266     A     
 PROSEQ    TN       CON    NTAB        NUMBER OF MANAGED TABLES                            PROSEQ      2267     A     
 PROSEQ             BSS    4           SCRATCH TO SAVE - X0 , X5 , X1 , A0                 PROSEQ      2268     A     
 PROSEQ    PL       CON    0           PREVIOUS LENGTH OF REQUESTING TABLE                 PROSEQ      2269     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3242    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ    TO       ENTRY. TOV         ADDRESS OF TABLE OVERFLOW PROCESSOR                 PROSEQ      2270     A     
 PROSEQ    INT.P2M  ENTRY.             */ FIELD LENGTH AT THE BEG.OF PASS2                 RSM2763X     170     A     
 PROSEQ    MX.BLN   ENTRY.                                                                 RSM2763X     171     A     
 PROSEQ    TOBA     ENTRY.                                                                 RSM2763X     172     A     
 PROSEQ    TOBB     BSS    1                                                               RSM2763X     173     A     
 PROSEQ    TOV      SPACE  3                                                               PROSEQ      2271     A     
 PROSEQ   **        TOV - TABLE OVERFLOW PROCESSOR                                         PROSEQ      2272     A     
 PROSEQ                                                                                    PROSEQ      2273     A     
 PROSEQ             ENTRY  TOV                                                             PROSEQ      2274     A     
 PROSEQ    TOV      BSS    0                                                               PROSEQ      2275     A     
 PROSEQ             SB5    -B5                                                             RSM2763X     174     A     
 PROSEQ             SX1    B5+2000B    WR = NO.OF WORDS REQUESTED                          RSM2763X     175     A     
 PROSEQ             PRINT  TOV,(* TOV CALLS MOREFL,WR=*Z7),(X1)                            RSM2763X     176     A     
 PROSEQ             CALL   MOREFL                                                          RSM2763X     177     A     
 PROSEQ             PL     X7,/TBLM/ATS9                                                   RSM2763X     178     A     
 PROSEQ    .T       IFNE   TEST,0                                    * TEST MODE *         PROSEQ      2276     A     
 PROSEQ             SA5    ATS=                                                            PROSEQ      2277     A     
 PROSEQ             LX5    30                                                              PROSEQ      2278     A     
 PROSEQ             DEBUG                                                                  PROSEQ      2279          I
          -FEAT155F 
 PROSEQ             SNAP   FTAB,TO,,1,10,1,TOV                                             PROSEQ      2280          I
          -FEAT155F 
 PROSEQ    TOV      SNAP   FTAB,TO                                                         FEAT155F     257     A     
 PROSEQ    .T       ENDIF                                            * TEST MODE *         PROSEQ      2281     A     
 PROSEQ                                                                                    PROSEQ      2282     A     
 PROSEQ             SA1    =7LTBL-OVF                                                      PROSEQ      2283          I
          -RSM2763X 
 PROSEQ    TOV1     SA1    =7LTBL-OVF                                                      RSM2763X     179     A     
 PROSEQ             CALL   PUNT        ISSUE AN ERROR MESSAGE AND QUIT                     PROSEQ      2284     A     
 PROSEQ    TOB      SPACE  3,14                                                            PROSEQ      2285     A     
 PROSEQ   **        TOB - OVERFLOW PROCESSING FOR PASS2,OPT2                               RSM2763X     180     A     
 PROSEQ   *                                                                                RSM2763X     181     A     
 PROSEQ   *         ENTRY (B5) = - NO.OF WORDS NEEDED                                      RSM2763X     182     A     
 PROSEQ   *                                                                                RSM2763X     183     A     
 PROSEQ   *         TOB ATTEMPTS TO OBTAIN NEEDED WORDS BY DECREASING BLK TABLE            RSM2763X     184     A     
 PROSEQ   *         IF IT IS AT LEAST 1.5 TIMES THE MAX.BASIC BLOCK SIZE,ELSE              RSM2763X     185     A     
 PROSEQ   *         TOB CALLS MOREFL TO GET ADDIT.SPACE BY EXTENDING FIELD                 RSM2763X     186     A     
 PROSEQ   *         LENGTH. IF NO FL AVAIL.,COMPILATION IS ABORTED                         RSM2763X     187     A     
 PROSEQ                                                                                    RSM2763X     188     A     
 PROSEQ             ENTRY  TOB                                                             RSM2763X     189     A     
 PROSEQ    TOB      SA2    =XMX.BLN                                                        RSM2763X     190     A     
 PROSEQ             SA3    =XM.BBL                                                         RSM2763X     191     A     
 PROSEQ             AX2    1           X2 = MX.BLN/2                                       RSM2763X     192     A     
 PROSEQ             BX1    X3                                                              RSM2763X     193     A     
 PROSEQ             AX1    1                                                               RSM2763X     194     A     
 PROSEQ             IX1    X1+X3       X1 = 1.5*M.BBL                                      RSM2763X     195     A     
 PROSEQ             IX4    X2-X1                                                           RSM2763X     196     A     
 PROSEQ             PL     X4,TOB1     IF MX.BLN/2 > 1.5*M.BBL                             RSM2763X     197     A     
 PROSEQ             BX2    X1                                                              RSM2763X     198     A     
 PROSEQ                                                                                    RSM2763X     199     A     
 PROSEQ   *         MIN.BLK = MAX(MX.BLN/2,1.5*M.BBL)                                      RSM2763X     200     A     
 PROSEQ                                                                                    RSM2763X     201     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3243    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ    TOB1     SB5    -B5         WN = NO.OF WORDS NEEDED                             RSM2763X     202     A     
 PROSEQ             PRINT  TOB,(*  NO.OF WORDS NEEDED,MIN.BLK = *2Z7),(B5,X1)              RSM2763X     203     A     
 PROSEQ             SA3    L.BLK                                                           RSM2763X     204     A     
 PROSEQ             SX1    B5+200B     WR = WN+200B */ WORDS TO BE REQUESTED               RSM2763X     205     A     
 PROSEQ             IX4    X3-X2       WA = L.BLK - MIN.BLK */ WORDS AVAIL.IN BLK          RSM2763X     206     A     
 PROSEQ             SB2    B1          SPECIAL PROC.BY DMB IF MOREFL NOT CALLED            RSM2763X     207     A     
 PROSEQ             IX2    X4-X1                                                           RSM2763X     208     A     
 PROSEQ             BX6    X1                                                              RSM2763X     209     A     
 PROSEQ             PL     X2,TOB2     IF WA > WR                                          RSM2763X     210          I
          -FCCA530
 PROSEQ             SB3    A0                                                              FCCA530        7     A     
 PROSEQ             ZR     B3,TOB1A    IF ALLOC BLK                                        FCCA530        8     A     
 PROSEQ             PL     X2,TOB2     IF WA GT WR                                         FCCA530        9     A     
 PROSEQ                                                                                    FCCA530       10     A     
 PROSEQ    TOB1A    BSS    0                                                               FCCA530       11     A     
 PROSEQ             CALL   MOREFL      MOREFL(X6) = WG */ WORDS GRANTED IN NEW FL          RSM2763X     211     A     
 PROSEQ             PL     X7,/TBLM/ATS9    IF WG > WR                                     RSM2763X     212     A     
 PROSEQ                                                                                    RSM2763X     213     A     
 PROSEQ             IX6    X1-X6       WR = WR-WG                                          RSM2763X     214     A     
 PROSEQ             SB2    B0          STAND.PROC BY DMB IF MOREFL CALLED                  RSM2763X     215     A     
 PROSEQ                                                                                    RSM2763X     216     A     
 PROSEQ   *         GET REMAINING NEEDED SPACE BY REDUCING *BLK* SIZE                      RSM2763X     217     A     
 PROSEQ                                                                                    RSM2763X     218     A     
 PROSEQ    TOB2     SA2    =XMX.AVS                                                        RSM2763X     219     A     
 PROSEQ             IX1    X6-X2       WD = WR - MX.AVS */ WORDS TO BE DUMPED              RSM2763X     220     A     
 PROSEQ             SB2    X1                                                              RSM2763X     221     A     
 PROSEQ             LE     B2,B0,TOB3  IF WD .LE. ZERO                                     RSM2763X     222     A     
 PROSEQ             SA6    TOBA        SAVE WR                                             RSM2763X     223     A     
 PROSEQ             PRINT  TOB,(*  TOB CALLS  DMB ; WDS,SP.FLG=*2Z7),(X1,B2)               RSM2763X     224     A     
 PROSEQ             CALL   DMB         DUMP BLOCKS TO FREE WD WORDS                        RSM2763X     225     A     
 PROSEQ   *         DMB(X2) = WFL */ NO. OF WORDS BY MOREFL                                RSM2763X     226     A     
 PROSEQ             NZ     X1,TOV1     IF X1 " 0 */ CANNOT DUMP ENOUGH BLOCKS              RSM2763X     227     A     
 PROSEQ             SA1    TOBA        RELOAD WR                                           RSM2763X     228     A     
 PROSEQ             IX6    X1-X2       BLK.DECR = WR - WFL                                 RSM2763X     229     A     
 PROSEQ             MI     X6,TOB4     IF BLK.DECR @ 0                                     RSM2763X     230     A     
 PROSEQ                                                                                    RSM2763X     231     A     
 PROSEQ   *         DECREASE BLOCK TABLE SIZE BY BLK.DECR                                  RSM2763X     232     A     
 PROSEQ                                                                                    RSM2763X     233     A     
 PROSEQ    TOB3     SA1    L.BLK                                                           RSM2763X     234     A     
 PROSEQ             IX7    X1-X6                                                           RSM2763X     235     A     
 PROSEQ             SA7    A1          L.BLK = L.BLK - WR                                  RSM2763X     236     A     
 PROSEQ             PRINT  TOB,(*  NEW BLK SIZE,DIFFERENCE =*2Z7),(X7,X6)                  RSM2763X     237     A     
 PROSEQ    TOB4     CALL   CGB         COLLECT FREE SPACE AT THE END OF BLK                RSM2763X     238     A     
 PROSEQ             EQ     /TBLM/ATS9                                                      RSM2763X     239     A     
 PROSEQ                                                                                    RSM2763X     240     A     
 PROSEQ                                                                                    RSM2763X     241     A     
 PROSEQ   **        GET MORE MEMORY FROM THE SYSTEM                                        RSM2763X     242     A     
 PROSEQ   *                                                                                RSM2763X     243     A     
 PROSEQ   *         ENTRY (X1) = WN ,  NO.OF WORDS NEEDED                                  RSM2763X     244     A     
 PROSEQ   *                                                                                RSM2763X     245     A     
 PROSEQ   *         EXIT   (X1) = WN                                                       RSM2763X     246     A     
 PROSEQ   *                (X6) = WG , NO. OF WORDS GRANTED                                RSM2763X     247     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3244    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ   *                (X7) = WG - WN                                                  RSM2763X     248     A     
 PROSEQ                                                                                    RSM2763X     249     A     
 PROSEQ    MOREFL   ENTRY.                                                                 RSM2763X     250     A     
 PROSEQ             PRINT  MOREFL,(*  WN =*Z7),(X1)                                        RSM2763X     251     A     
 PROSEQ             SA2    =XMAX.FL    MXFL = MAX. FL WE CAN POSSIBLY GET                  RSM2763X     252     A     
 PROSEQ             SA3    =XCP.AFLS   CFL = FL CURRENTLY USED                             RSM2763X     253     A     
 PROSEQ             AX2    30                                                              RSM2763X     254     A     
 PROSEQ             IX6    X2-X3       WA = NO. OF WORDS AVAILABLE IN MXFL                 RSM2763X     255     A     
 PROSEQ             MX7    44                                                              RSM2763X     256     A     
 PROSEQ             ZR     X6,MOREFL   IF WA = 0 */ MAX FL USED ALREADY                    RSM2763X     257     A     
 PROSEQ             SB3    X6                                                              RSM2763X     258     A     
 PROSEQ             MX7    -6                                                              RSM2763X     259     A     
 PROSEQ             IX2    X1-X7                                                           RSM2763X     260     A     
 PROSEQ             BX2    X7*X2       ROUND WN TO NEXT 100B                               RSM2763X     261     A     
 PROSEQ             SB2    X2+1000B                                                        RSM2763X     262     A     
 PROSEQ             GE     B2,B3,MFL1                                                      RSM2763X     263     A     
 PROSEQ             SX6    B2          WR = MIN(WA,WN+1000B) */ NO OF WDS REQ.             RSM2763X     264     A     
 PROSEQ                                                                                    RSM2763X     265     A     
 PROSEQ    MFL1     IX7    X6+X3                                                           RSM2763X     266     A     
 PROSEQ             LX7    30                                                              RSM2763X     267     A     
 PROSEQ             SA7    =XGT1                                                           RSM2763X     268     A     
 PROSEQ             BX7    X1                                                              RSM2763X     269     A     
 PROSEQ             SA7    TOBB                                                            RSM2763X     270     A     
 PROSEQ             PRINT  MOREFL,(* WA,WR =*2Z7),(B3,X6)                                  RSM2763X     271     A     
 PROSEQ             MEMORY SCM,GT1,RGL                                                     RSM2763X     272     A     
 PROSEQ             SA2    GT1                                                             RSM2763X     273     A     
 PROSEQ             SA3    CP.AFLS     OFL = OLD FL                                        RSM2763X     274     A     
 PROSEQ             AX2    30          NFL = NEW FL                                        RSM2763X     275     A     
 PROSEQ             IX0    X2-X3       WG = NO. OF WORDS GRANTED                           RSM2763X     276     A     
 PROSEQ             BX6    X2                                                              RSM2763X     277     A     
 PROSEQ             SA6    A3          CP.AFLS = NEW FL                                    RSM2763X     278     A     
 PROSEQ             PRINT  MOREFL,(*  NEW FL,WG =*2Z7),(X6,X0)                             RSM2763X     279     A     
 PROSEQ             RJ     AST         */ ADJUST SPECIAL TABLES                            RSM2763X     280     A     
 PROSEQ             SA1    TOBB                                                            RSM2763X     281     A     
 PROSEQ             BX6    X0          (X6) = NO.OF WORDS GRANTED */ EXIT PAR.             RSM2763X     282     A     
 PROSEQ             IX7    X0-X1                                                           RSM2763X     283     A     
 PROSEQ             EQ     MOREFL                                                          RSM2763X     284     A     
 PROSEQ    CWS=     SPACE  3,14                                                            RSM2763X     285     A     
 PROSEQ   **        CWS= - CALCULATE WORKING STORAGE SIZE                                  RSM2763X     286     A     
 PROSEQ   *                                                                                RSM2763X     287     A     
 PROSEQ   *         EXIT   (X6) = CURRENT WORKING STORAGE SIZE                             RSM2763X     288     A     
 PROSEQ   *                (X7) = MAXIMUM WORKING STORAGE SIZE                             RSM2763X     289     A     
 PROSEQ                                                                                    RSM2763X     290     A     
 PROSEQ    CWS=     ENTRY.                                                                 RSM2763X     291     A     
 PROSEQ             SA1    LM                                                              RSM2763X     292     A     
 PROSEQ             SA2    O.TEND                                                          RSM2763X     293     A     
 PROSEQ             SA3    =XCP.AFLS                                                       RSM2763X     294     A     
 PROSEQ             SA4    MAX.FL                                                          RSM2763X     295     A     
 PROSEQ             AX4    30                                                              RSM2763X     296     A     
 PROSEQ             IX6    X2-X1       CWS = O.TEND - LM                                   RSM2763X     297     A     
 PROSEQ             IX7    X4-X3                                                           RSM2763X     298     A     
 PROSEQ             IX7    X7+X6       MWS = MAX.FL - CP.ALFS + CWS                        RSM2763X     299     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3245    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             EQ     CWS=                                                            RSM2763X     300     A     
 PROSEQ    AFL      SPACE  3,14                                                            RSM2763X     301     A     
 PROSEQ   **        AFL - ADJUST *FL* AT END OF PASS 2 PROCESSING TO REDUCE IT             RSM2763X     302     A     
 PROSEQ   **        TO ITS VALUE AT THE BEGINNING OF PASS 2.                               RSM2763X     303     A     
 PROSEQ    AFL      ENTRY.                                                                 RSM2763X     304     A     
 PROSEQ             SA1    =XCP.AFLS                                                       RSM2763X     305     A     
 PROSEQ             SA2    INT.P2M                                                         RSM2763X     306     A     
 PROSEQ             AX2    30                                                              RSM2763X     307     A     
 PROSEQ             IX0    X2-X1                                                           RSM2763X     308     A     
 PROSEQ             BX6    X1                                                              RSM2763X     309     A     
 PROSEQ             SA6    =XPR.MXFL   PR.MXFL = CP.AFLS                                   RSM2763X     310     A     
 PROSEQ             PRINT  AFL,(* END OF PASS2,CP.AFLS,CHANGE=*2Z7),(X1,X0)                RSM2763X     311     A     
 PROSEQ             ZR     X0,AFL      IF CURRENT FL = INT.P2 FL                           RSM2763X     312     A     
 PROSEQ                                                                                    RSM2763X     313     A     
 PROSEQ             RJ     AST         MOVE SPECIAL TABLES DOWN                            RSM2763X     314     A     
 PROSEQ             MEMORY SCM,INT.P2M,RCL   REDUCE FL TO INITIAL VALUE                    RSM2763X     315     A     
 PROSEQ             SA5    INT.P2M                                                         RSM2763X     316     A     
 PROSEQ             SA1    CP.AFLS                                                         RSM2763X     317     A     
 PROSEQ             AX5    30                                                              RSM2763X     318     A     
 PROSEQ             SX6    X5                                                              RSM2763X     319     A     
 PROSEQ             SA6    A1          CP.AFLS = INT.P2M                                   RSM2763X     320     A     
 PROSEQ             SX0    X1-100000B                                                      RSM2763X     321     A     
 PROSEQ             MI     X0,AFL            IF F < 100 000B                               RSM2763X     322     A     
 PROSEQ                                                                                    RSM2763X     323     A     
 PROSEQ   *         FL NEEDED \ 100 000B ISSUE A DAYFILE MESSAGE                           RSM2763X     324     A     
 PROSEQ                                                                                    RSM2763X     325     A     
 PROSEQ             CALL   COD                                                             RSM2763X     326     A     
 PROSEQ             LX6    12                                                              RSM2763X     327     A     
 PROSEQ             SX5    2R  -2RB                                                        RSM2763X     328     A     
 PROSEQ             IX6    X6-X5                                                           RSM2763X     329     A     
 PROSEQ             SA2    =XPROGNAM                                                       RSM2763X     330     A     
 PROSEQ             SA3    =3R                                                             RSM2763X     331     A     
 PROSEQ             BX7    X2+X3                                                           RSM2763X     332     A     
 PROSEQ             SA6    AFLA+1                                                          RSM2763X     333     A     
 PROSEQ             LX7    -18                                                             RSM2763X     334     A     
 PROSEQ             SA7    A6-B1                                                           RSM2763X     335     A     
 PROSEQ             MESSAGE AFLA,,R    MESSAGE( *   PROGNAM  NNNNNNB SCM USED*)            RSM2763X     336     A     
 PROSEQ             EQ     AFL                                                             RSM2763X     337     A     
 PROSEQ                                                                                    RSM2763X     338     A     
 PROSEQ    AFLA     DATA   0,0,18LSCM USED                                                 RSM2763X     339     A     
 PROSEQ                                                                                    RSM2763X     340     A     
 PROSEQ                                                                                    RSM2763X     341     A     
 PROSEQ   **        AST - ADJUST SPECIAL TABLES IN HIGH CORE AND POINTERS TO THEM          RSM2763X     342     A     
 PROSEQ   *                                                                                RSM2763X     343     A     
 PROSEQ   *         ENTRY  (X0) = CHANGE                                                   RSM2763X     344     A     
 PROSEQ                                                                                    RSM2763X     345     A     
 PROSEQ    AST      ENTRY.                                                                 RSM2763X     346     A     
 PROSEQ             PRINT  AST,(* AST CALLED,CHANGE =*Z7),(X0)                             RSM2763X     347     A     
 PROSEQ             SA2    O.TEND                                                          RSM2763X     348     A     
 PROSEQ             SA4    =XCP.NFLS   FL-10                                               RSM2763X     349     A     
 PROSEQ             IX7    X4+X0       NEW CP.NFLS = OLD CP.NFLS + CHANGE                  RSM2763X     350     A     
 PROSEQ             SA7    A4                                                              RSM2763X     351     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3246    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             IX1    X4-X2       WDS = CP.NFLS - O.TEND                              RSM2763X     352     A     
 PROSEQ             IX3    X2+X0       TO = O.TEND + CHANGE                                RSM2763X     353     A     
 PROSEQ             MOVE   X1,X2,X3                                                        RSM2763X     354     A     
 PROSEQ             ECHO   3,A=(O.TEND,O.GLT,O.API,O.LOOP,O.UDV,O.ENTR,O.EXT,_____         RSM2763X     355          I
          -RSM2763AX
 PROSEQ   ,LWAWORK)                                                                        RSM2763X     356          I
          -RSM2763AX
 PROSEQ             SA4    =XO.LOOP                                                        RSM2763AX      3     A     
 PROSEQ   +         ZR     X4,*+1                                                          RSM2763AX      4     A     
 PROSEQ             IX7    X4+X0                                                           RSM2763AX      5     A     
 PROSEQ             SA7    A4                                                              RSM2763AX      6     A     
 PROSEQ             ECHO   3,A=(O.TEND,O.GLT,O.API,O.UDV,O.ENTR,O.EXT,LWAWORK)             RSM2763AX      7     A     
 PROSEQ             SA4    =X;A                                                            RSM2763X     357     A     
 PROSEQ             IX7    X4+X0                                                           RSM2763X     358     A     
 PROSEQ             SA7    A4                                                              RSM2763X     359     A     
 PROSEQ             SA4    12B                                                             RSM2763X     360     A     
 PROSEQ             IX7    X4+X0                                                           RSM2763X     361     A     
 PROSEQ             SA7    A4                                                              RSM2763X     362     A     
 PROSEQ             SA4    13B                                                             RSM2763X     363     A     
 PROSEQ             IX7    X4+X0                                                           RSM2763X     364     A     
 PROSEQ             SA7    A4                                                              RSM2763X     365     A     
 PROSEQ             PRINT  AST,(*  NEW O.TEND =*Z7),(O.TEND)                               RSM2763X     366     A     
 PROSEQ             EQ     AST                                                             RSM2763X     367     A     
 PROSEQ   **        TOB - OPT=2 TABLE OVERFLOW PROCESSOR ( PHASE 2 )                       PROSEQ      2286          I
          -RSM2763X 
 PROSEQ                                                                                    PROSEQ      2287          I
          -RSM2763X 
 PROSEQ             ENTRY  TOB                                                             PROSEQ      2288          I
          -RSM2763X 
 PROSEQ    TOB      SA2    =XMX.AVS                                                        PROSEQ      2289          I
          -RSM2763X 
 PROSEQ             MX1    0                                                               PROSEQ      2290          I
          -RSM2763X 
 PROSEQ             SB5    -B5                                                             PROSEQ      2291          I
          -RSM2763X 
 PROSEQ             SX5    B5+200B     SD = SPACE NEEDED + 200B                            PROSEQ      2292          I
          -RSM2763X 
 PROSEQ             IX6    X5-X2                                                           PROSEQ      2293          I
          -RSM2763X 
 PROSEQ             MI     X6,TOB1     IF MX.AVS > SD                                      PROSEQ      2294          I
          -RSM2763X 
 PROSEQ             SX5    X6+100B     SD = SD - MX.AVS + 100B                             PROSEQ      2295          I
          -RSM2763X 
 PROSEQ             BX1    X5                                                              PROSEQ      2296          I
          -RSM2763X 
 PROSEQ             CALL   DMB         CALL DMB( SD )                                      PROSEQ      2297          I
          -RSM2763X 
 PROSEQ                                                                                    PROSEQ      2298          I
          -RSM2763X 
 PROSEQ    TOB1     NZ     X1,TOV      IF COULDN"T DUMP ENOUGH                             PROSEQ      2299          I
          -RSM2763X 
 PROSEQ             SA2    L.BLK                                                           PROSEQ      2300          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3247    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
          -RSM2763X 
 PROSEQ             SA3    =XM.EBL                                                         PROSEQ      2301          I
          -RSM2763X 
 PROSEQ             IX6    X2-X5       L.BLK = L.BLK - SD                                  PROSEQ      2302          I
          -RSM2763X 
 PROSEQ             SA6    A2                                                              PROSEQ      2303          I
          -RSM2763X 
 PROSEQ             IX7    X3-X5       M.EBL = M.EBL - SD                                  PROSEQ      2304          I
          -RSM2763X 
 PROSEQ             SA7    A3                                                              PROSEQ      2305          I
          -RSM2763X 
 PROSEQ             CALL   CGB         COLLECT GARBAGE                                     PROSEQ      2306          I
          -RSM2763X 
 PROSEQ             EQ     /TBLM/ATS9                                                      PROSEQ      2307          I
          -RSM2763X 
 PROSEQ    PTC      SPACE  3,14                                                            PROSEQ      2308     A     
 PROSEQ    .T       IFNE   TEST,0                                    * TEST MODE *         PROSEQ      2309     A     
 PROSEQ                                                                                    PROSEQ      2310     A     
 PROSEQ    NAMTAB   BSS    0                                                               PROSEQ      2311     A     
 PROSEQ    TABNAM   HERE                                                                   PROSEQ      2312     A     
 PROSEQ                                                                                    PROSEQ      2313     A     
 PROSEQ    PTC=     ENTRY. **                                                              PROSEQ      2314     A     
 PROSEQ             PRINT  ,(//*  -- COMPILER TABLE DUMP --*/)                             PROSEQ      2315     A     
 PROSEQ             SX1    4           SET TO *EXECUTIVE IS /PTC=/*                        FCCT001       17     A     
 PROSEQ             RJ     =XSOB       SET OUTPUT BIT FLAGS                                FCCT001       18     A     
 PROSEQ             SX6    1                                                               PROSEQ      2316     A     
 PROSEQ             SA6    PTCA        INITIALIZE COUNTER                                  PROSEQ      2317     A     
 PROSEQ                                                                                    PROSEQ      2318     A     
 PROSEQ    PTC1     SA1    PTCA                                                            PROSEQ      2319     A     
 PROSEQ             SA2    FTAB+X1     GET FWA OF TABLE                                    PROSEQ      2320     A     
 PROSEQ             SA3    LTAB+X1     GET LENGTH OF TABLE                                 PROSEQ      2321     A     
 PROSEQ             SA5    NAMTAB+X1   GET NAME OF TABLE                                   PROSEQ      2322     A     
 PROSEQ             RJ     PMT                                                             PROSEQ      2323     A     
 PROSEQ             SA1    PTCA                                                            PROSEQ      2324     A     
 PROSEQ             SA2    TN                                                              PROSEQ      2325     A     
 PROSEQ             SX6    X1+B1                                                           PROSEQ      2326     A     
 PROSEQ             SA6    A1          INCREMENT COUNTER                                   PROSEQ      2327     A     
 PROSEQ             IX7    X6-X2                                                           PROSEQ      2328     A     
 PROSEQ             MI     X7,PTC1     IF MORE TABLES                                      PROSEQ      2329     A     
 PROSEQ                                                                                    PROSEQ      2330     A     
 PROSEQ             SA1    =XOPT2                                                          PROSEQ      2331     A     
 PROSEQ             ZR     X1,PTC2     IF NOT OPT = 2                                      PROSEQ      2332     A     
 PROSEQ             ECHO   4,TBL=(BIT,SEQ)                                                 PROSEQ      2333     A     
 PROSEQ             SA2    =XO.TBL                                                         PROSEQ      2334     A     
 PROSEQ             SA3    =XL.TBL                                                         PROSEQ      2335     A     
 PROSEQ             SA5    =10H TBL                                                        PROSEQ      2336     A     
 PROSEQ             RJ     PMT                                                             PROSEQ      2337     A     
 PROSEQ                                                                                    PROSEQ      2338     A     
 PROSEQ    PTC2     SA1    L.TXT                                                           PROSEQ      2339     A     
 PROSEQ             SB2    X1-8                                                            PROSEQ      2340     A     
 PROSEQ             LE     B2,PTC3                                                         PROSEQ      2341     A     
 PROSEQ             SA1    O.TXT                                                           PROSEQ      2342     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3248    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             SA2    X1                                                              PROSEQ      2343     A     
 PROSEQ             UX6    B2,X2                                                           PROSEQ      2344     A     
 PROSEQ             LE     B2,PTC3     IF NO EXPONENT                                      PROSEQ      2345     A     
 PROSEQ             SNAPRL PTC                                                             PROSEQ      2346     A     
 PROSEQ                                                                                    PROSEQ      2347     A     
 PROSEQ    PTC3     BSS    0                                                               PROSEQ      2348     A     
 PROSEQ             IFEQ   CP#RM,0,1   WAIT UNTIL OUTPUT FINISHED SINCE *RPV*              FCC1126        5     A     
 PROSEQ             RECALL =XF.OUT     UNCONDITIONALLY SETS THE COMPLETE BIT.              FCC1126        6     A     
 PROSEQ             EQ     PTC=                                                            PROSEQ      2349     A     
 PROSEQ                                                                                    PROSEQ      2350     A     
 PROSEQ    PTCA     BSS    1                                                               PROSEQ      2351     A     
 PROSEQ                                                                                    PROSEQ      2352     A     
 PROSEQ    PMT      ROUTINE                                                                PROSEQ      2353     A     
 PROSEQ             ZR     X3,PMT      IF LEN = 0                                          PROSEQ      2354     A     
 PROSEQ             SB3    X2                                                              PROSEQ      2355          I
          -FEAT155F 
 PROSEQ             SX7    X3                                                              PROSEQ      2356          I
          -FEAT155F 
 PROSEQ             PRINT  ,(/*  TABLE -*A10*  FWA,LEN =*2Z6/),(X5,X2,X3)                  PROSEQ      2357     A     
 PROSEQ             CALL   DMPC=                                                           PROSEQ      2358          I
          -FEAT155F 
 PROSEQ             IX3    X2+X3                                                           FEAT155F     258     A     
 PROSEQ             MX4    0                                                               FEAT155F     259     A     
 PROSEQ             RJ     =XDCM=      DUMP CENTRAL MEMORY                                 FEAT155F     260     A     
 PROSEQ             EQ     PMT                                                             PROSEQ      2359     A     
 PROSEQ                                                                                    PROSEQ      2360     A     
 PROSEQ    .T       ENDIF                                            * TEST MODE *         PROSEQ      2361     A     
 PROSEQ    ATS      TITLE  TABLE MANAGER SUBROUTINES                                       PROSEQ      2362     A     
 PROSEQ             QUAL   TBLM                                                            PROSEQ      2363     A     
 PROSEQ                                                                                    PROSEQ      2364     A     
 PROSEQ   **        ATS - ALLOCATE TABLE SPACE.                                            PROSEQ      2365     A     
 PROSEQ   *                                                                                PROSEQ      2366     A     
 PROSEQ   *         ENTRY  (A0) = TABLE INDEX.                                             PROSEQ      2367     A     
 PROSEQ   *                (X1) = CHANGE (+ OR -) TO TABLE SIZE.                           PROSEQ      2368     A     
 PROSEQ   *                                                                                PROSEQ      2369     A     
 PROSEQ   *         EXIT   (X1) = CHANGE.                                                  PROSEQ      2370     A     
 PROSEQ   *                (X2) = FWA OF TABLE.                                            PROSEQ      2371     A     
 PROSEQ   *                (X3) = NEW LENGTH OF TABLE.                                     PROSEQ      2372     A     
 PROSEQ   *                (B6) = PREVIOUS TABLE LENGTH                                    PROSEQ      2373     A     
 PROSEQ   *                                                                                PROSEQ      2374     A     
 PROSEQ   *         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.                                     PROSEQ      2375     A     
 PROSEQ   *                B - 2, 3, 4, 5, 7                                               PROSEQ      2376     A     
 PROSEQ   *                A - 1, 2, 3, 4, 6, 7                                            PROSEQ      2377     A     
 PROSEQ   *         RESTORES X0, X5.                                                       PROSEQ      2378     A     
 PROSEQ   *         CALLS  AMU, MVE.                                                       PROSEQ      2379     A     
 PROSEQ                                                                                    PROSEQ      2380     A     
 PROSEQ    ATSX     SA2    FTAB+A0     (X2) = FWA TABLE                                    PROSEQ      2381     A     
 PROSEQ             SA3    LTAB+A0     (X3) = NEW LENGTH                                   PROSEQ      2382     A     
 PROSEQ                                                                                    PROSEQ      2383     A     
 PROSEQ    ATS      PS                 ENTRY/EXIT                                          PROSEQ      2384     A     
 PROSEQ    ATS1     SA2    FTAB+A0     CURRENT FWA                                         PROSEQ      2385     A     
 PROSEQ             SA3    LTAB+A0     CURRENT LENGTH                                      PROSEQ      2386     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3249    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             SA4    A2+B1       NEXT TABLE FWA                                      PROSEQ      2387     A     
 PROSEQ             IX6    X1+X3       NEW LENGTH                                          PROSEQ      2388     A     
 PROSEQ             SB6    X3          (B6) = PREVIOUS TABLE LENGTH                        PROSEQ      2389     A     
 PROSEQ             IX7    X4-X2       ROOM BETWEEN TABLES                                 PROSEQ      2390     A     
 PROSEQ             SA6    A3          SET NEW LENGTH                                      PROSEQ      2391     A     
 PROSEQ             IX7    X7-X6                                                           PROSEQ      2392     A     
 PROSEQ             PL     X7,ATSX     RETURN IF ROOM FOR CHANGE                           PROSEQ      2393     A     
 PROSEQ             SX7    X3          SET PREVIOUS LENGTH                                 PROSEQ      2394     A     
 PROSEQ                                                                                    PROSEQ      2395     A     
 PROSEQ   **        INITIALIZE FOR TABLE MOVE.                                             PROSEQ      2396     A     
 PROSEQ                                                                                    PROSEQ      2397     A     
 PROSEQ             SA2    TN          (B2) = NUMBER OF TABLES                             PROSEQ      2398     A     
 PROSEQ             BX6    X0          SAVE (X0)                                           PROSEQ      2399     A     
 PROSEQ             SA7    A3                                                              PROSEQ      2400     A     
 PROSEQ             SA7    PL          PL = PREVIOUS LENGTH                                PROSEQ      2401     A     
 PROSEQ             SB2    X2                                                              PROSEQ      2402     A     
 PROSEQ             LX7    X5          SAVE (X5)                                           PROSEQ      2403     A     
 PROSEQ             SA6    A2+B1                                                           PROSEQ      2404     A     
 PROSEQ             SA7    A6+B1                                                           PROSEQ      2405     A     
 PROSEQ             BX6    X1          SAVE (X1)                                           PROSEQ      2406     A     
 PROSEQ             SA6    A7+B1                                                           PROSEQ      2407     A     
 PROSEQ                                                                                    PROSEQ      2408     A     
 PROSEQ   **        COMPUTE REMAINING TABLE SPACE.                                         PROSEQ      2409     A     
 PROSEQ                                                                                    PROSEQ      2410     A     
 PROSEQ             SB3    B2-B1                                                           PROSEQ      2411     A     
 PROSEQ             BX4    X1          INCLUDE INCREASE                                    PROSEQ      2412     A     
 PROSEQ    ATS2     SB3    B3-B1       ACCUMULATE ASSIGNED TABLE LENGTHS                   PROSEQ      2413     A     
 PROSEQ             SA3    LTAB+B3                                                         PROSEQ      2414     A     
 PROSEQ             IX4    X4+X3                                                           PROSEQ      2415     A     
 PROSEQ             NZ     B3,ATS2     LOOP FOR ALL TABLES                                 PROSEQ      2416     A     
 PROSEQ             SA2    LM          SET AVAILABLE LENGTH                                PROSEQ      2417     A     
 PROSEQ             SA3    FTAB-1+B2                                                       PROSEQ      2418     A     
 PROSEQ             IX6    X3-X2                                                           PROSEQ      2419     A     
 PROSEQ             SB4    X4          (B4) = TOTAL ASSIGNED LENGTH                        PROSEQ      2420     A     
 PROSEQ             IX7    X6-X4                                                           PROSEQ      2421     A     
 PROSEQ             SB5    X7          (B5) = REMAINING SPACE                              PROSEQ      2422     A     
 PROSEQ             NG     X7,ATS8     IF NO REMAINING SPACE                               PROSEQ      2423     A     
 PROSEQ                                                                                    PROSEQ      2424     A     
 PROSEQ   **        MOVE ALL TABLES DOWN.                                                  PROSEQ      2425     A     
 PROSEQ                                                                                    PROSEQ      2426     A     
 PROSEQ             SA1    LM          LOW MEMORY LIMIT                                    PROSEQ      2427     A     
 PROSEQ             SB3    B1                                                              PROSEQ      2428     A     
 PROSEQ             LX0    X1                                                              PROSEQ      2429     A     
 PROSEQ    ATS3     SA2    FTAB-1+B3   ORIGIN = PREVIOUS FWA                               PROSEQ      2430     A     
 PROSEQ             SA1    LTAB-1+B3   WORD COUNT = LENGTH                                 PROSEQ      2431     A     
 PROSEQ             BX3    X0          DESTINATION = NEW FWA                               PROSEQ      2432     A     
 PROSEQ             IX0    X0+X1       NEXT FWA                                            PROSEQ      2433     A     
 PROSEQ             SX7    X3          SET NEW FWA                                         PROSEQ      2434     A     
 PROSEQ             BX4    X2-X3       MOVE DIFFERENTIAL                                   PROSEQ      2435     A     
 PROSEQ             SA7    A2                                                              PROSEQ      2436     A     
 PROSEQ             SB3    B3+B1       COUNT TABLE                                         PROSEQ      2437     A     
 PROSEQ             ZR     X4,ATS4     IF NO MOVE REQUIRED                                 PROSEQ      2438     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3250    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             RJ     MVE=                                                            PROSEQ      2439     A     
 PROSEQ    ATS4     NE     B3,B2,ATS3  LOOP FOR ALL TABLES                                 PROSEQ      2440     A     
 PROSEQ             SA1    TN+3        INCREMENT SIZE OF REQUESTED TABLE                   PROSEQ      2441     A     
 PROSEQ             SA2    LTAB+A0                                                         PROSEQ      2442     A     
 PROSEQ             IX6    X2+X1                                                           PROSEQ      2443     A     
 PROSEQ             SA6    A2                                                              PROSEQ      2444     A     
 PROSEQ                                                                                    PROSEQ      2445     A     
 PROSEQ   **        REALLOCATE TABLES.                                                     PROSEQ      2446     A     
 PROSEQ   *         ALLOCATE INTERSPACE.  (LA/2N) + ((TL*LA)/2)                            PROSEQ      2447     A     
 PROSEQ                                                                                    PROSEQ      2448     A     
 PROSEQ             SA1    FTAB-1+B2   (X0) = LWA+1 LAST TABLE                             PROSEQ      2449     A     
 PROSEQ             SB3    B2-B1                                                           PROSEQ      2450     A     
 PROSEQ             BX0    X1                                                              PROSEQ      2451     A     
 PROSEQ    ATS4A    SB6    2           LOWER LIMIT = 2 ( FIRST TABLE INACTIVE )            PROSEQ      2452     A     
 PROSEQ             SB2    B2-1        N = N - 1                                           PROSEQ      2453     A     
 PROSEQ    ATS5     SB3    B3-B1       I = I + 1                                           PROSEQ      2454     A     
 PROSEQ             SA2    FTAB+B3     FWA(I)                                              PROSEQ      2455     A     
 PROSEQ             SX4    B5          LA (LENGTH AVAILABLE)                               PROSEQ      2456     A     
 PROSEQ             SA1    LTAB+B3     TL (LENGTH OF TABLE)                                PROSEQ      2457     A     
 PROSEQ             SX3    B2-B1       N  (NUMBER OF TABLES)                               PROSEQ      2458     A     
 PROSEQ             AX5    X4,B1       LA/2                                                PROSEQ      2459     A     
 PROSEQ             IX6    X4/X3       L1 = LA/N                                           PROSEQ      2460     A     
 PROSEQ             ZR     B4,ATS6     IF NO TABLES ASSIGNED, L = L2                       PROSEQ      2461     A     
 PROSEQ             SX3    B4          AL (TOTAL ASSIGNED LENGTH)                          PROSEQ      2462     A     
 PROSEQ             IX7    X5*X1       (LA/2)*TL                                           PROSEQ      2463     A     
 PROSEQ             AX6    1           L1 = LA/2N                                          PROSEQ      2464     A     
 PROSEQ             IX7    X7/X3       L2 = (TL*LA)/2                                      PROSEQ      2465     A     
 PROSEQ             IX6    X6+X7       L = L1+L2                                           PROSEQ      2466     A     
 PROSEQ             SX1    X1                                                              PROSEQ      2467     A     
 PROSEQ    ATS6     IX6    X0-X6       FWA(I+1)-L                                          PROSEQ      2468     A     
 PROSEQ             IX7    X6-X1       FWA(I) = FWA(I+1)-L-TL                              PROSEQ      2469     A     
 PROSEQ             BX3    X7          DESTINATION = FWA(I)                                PROSEQ      2470     A     
 PROSEQ             SA7    A2                                                              PROSEQ      2471     A     
 PROSEQ             LX0    X7          FWA(I+1) = FWA(I)                                   PROSEQ      2472     A     
 PROSEQ             BX4    X2-X3       CHECK MOVE DIFFERENTIAL                             PROSEQ      2473     A     
 PROSEQ             ZR     X4,ATS7     IF NO MOVE REQUIRED                                 PROSEQ      2474     A     
 PROSEQ             RJ     MVE=        MOVE TABLE                                          PROSEQ      2475     A     
 PROSEQ    ATS7     GT     B3,B6,ATS5  LOOP                                                PROSEQ      2476     A     
 PROSEQ             RJ     AMU         ACCUMULATE MEMORY USED                              PROSEQ      2477     A     
 PROSEQ                                                                                    PROSEQ      2478     A     
 PROSEQ   **        RESTORE REGISTERS.                                                     PROSEQ      2479     A     
 PROSEQ                                                                                    PROSEQ      2480     A     
 PROSEQ             SA1    ATSA        COUNT MOVES                                         PROSEQ      2481     A     
 PROSEQ             SX6    X1+B1                                                           PROSEQ      2482     A     
 PROSEQ             SA6    A1                                                              PROSEQ      2483     A     
 PROSEQ             SA2    TN+1        RESTORE (X0)                                        PROSEQ      2484     A     
 PROSEQ             SA3    A2+B1       RESTORE (X5)                                        PROSEQ      2485     A     
 PROSEQ             BX0    X2                                                              PROSEQ      2486     A     
 PROSEQ             SA4    PL                                                              PROSEQ      2487     A     
 PROSEQ             LX5    X3                                                              PROSEQ      2488     A     
 PROSEQ             SA1    A3+B1       RESTORE (X1)                                        PROSEQ      2489     A     
 PROSEQ             SB6    X4          (B6) = PREVIOUS LENGTH OF TABLE                     PROSEQ      2490     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3251    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ             EQ     ATSX        RETURN                                              PROSEQ      2491     A     
 PROSEQ                                                                                    PROSEQ      2492     A     
 PROSEQ    ATS8     SA3    TO          PROCESS TABLE OVERFLOW                              PROSEQ      2493     A     
 PROSEQ             SX6    A0                                                              PROSEQ      2494     A     
 PROSEQ             SB2    X3                                                              PROSEQ      2495     A     
 PROSEQ             SA6    TN+4        (A0)                                                PROSEQ      2496     A     
 PROSEQ             JP     B2          (B5) = - WORDS NEEDED                               PROSEQ      2497     A     
 PROSEQ                                                                                    PROSEQ      2498     A     
 PROSEQ   *         RETURN FROM USER TABLE OVERFLOW PROCESSOR ( SUCCESS )                  PROSEQ      2499     A     
 PROSEQ                                                                                    PROSEQ      2500     A     
 PROSEQ    ATS9     SA1    TN+3        X1                                                  PROSEQ      2501     A     
 PROSEQ             SA4    A1-B1       X5                                                  PROSEQ      2502     A     
 PROSEQ             BX5    X4                                                              PROSEQ      2503     A     
 PROSEQ             SA3    A1+B1       A0                                                  PROSEQ      2504     A     
 PROSEQ             SA0    X3                                                              PROSEQ      2505     A     
 PROSEQ             SA4    A4-B1       X0                                                  PROSEQ      2506     A     
 PROSEQ             BX0    X4                                                              PROSEQ      2507     A     
 PROSEQ             SA2    A4-B1       TN                                                  PROSEQ      2508     A     
 PROSEQ             SB2    X2          (B2) = TN                                           PROSEQ      2509     A     
 PROSEQ             SB3    B2-B1                                                           PROSEQ      2510     A     
 PROSEQ             BX4    X1                                                              PROSEQ      2511     A     
 PROSEQ             EQ     ATS2                                                            PROSEQ      2512     A     
 PROSEQ                                                                                    PROSEQ      2513     A     
 PROSEQ    ATSA     CON    0           COUNT OF TABLE MOVES                                PROSEQ      2514     A     
 PROSEQ    AFT      SPACE  3,14                                                            PROSEQ      2515     A     
 PROSEQ   **        AFT - ACTIVATE FIRST TABLE                                             PROSEQ      2516     A     
 PROSEQ                                                                                    PROSEQ      2517     A     
 PROSEQ    AFT      PS                                                                     PROSEQ      2518     A     
 PROSEQ             SA1    AFTA                                                            PROSEQ      2519     A     
 PROSEQ             SA2    LM                                                              PROSEQ      2520     A     
 PROSEQ             SA3    ATS4A                                                           PROSEQ      2521     A     
 PROSEQ             BX6    X1                                                              PROSEQ      2522     A     
 PROSEQ             LX7    X2                                                              PROSEQ      2523     A     
 PROSEQ             SA6    ATS4A       STORE PLUG                                          PROSEQ      2524     A     
 PROSEQ             SA7    FTAB                                                            PROSEQ      2525     A     
 PROSEQ             BX7    X3                                                              PROSEQ      2526     A     
 PROSEQ             SA7    A1                                                              PROSEQ      2527     A     
 PROSEQ             EQ     AFT                                                             PROSEQ      2528     A     
 PROSEQ                                                                                    PROSEQ      2529     A     
 PROSEQ    AFTA     SB6    1                                                               PROSEQ      2530     A     
 PROSEQ             SB0    0                                                               PROSEQ      2531     A     
 PROSEQ    ADW      EJECT              ADW                                                 PROSEQ      2532     A     
 PROSEQ   **        ADW - ADD WORD TO TABLE.                                               PROSEQ      2533     A     
 PROSEQ   *         ENTRY  (A0) = TABLE NUMBER.                                            PROSEQ      2534     A     
 PROSEQ   *                (X1) = WORD.                                                    PROSEQ      2535     A     
 PROSEQ   *         EXIT   (X1) = WORD.                                                    PROSEQ      2536     A     
 PROSEQ   *                (X6) = WORD.                                                    PROSEQ      2537     A     
 PROSEQ   *                (A6) = ADDRESS OF WORD.                                         PROSEQ      2538     A     
 PROSEQ   *                (X2) = FWA TABLE.                                               PROSEQ      2539     A     
 PROSEQ   *                (X3) = LENGTH OF TABLE.                                         PROSEQ      2540     A     
 PROSEQ   *         USES   X - 1, 6, 7.                                                    PROSEQ      2541     A     
 PROSEQ   *                B - NONE.                                                       PROSEQ      2542     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3252    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ   *                A - 1, 6.                                                       PROSEQ      2543     A     
 PROSEQ   *         CALLS  ATS.                                                            PROSEQ      2544     A     
 PROSEQ                                                                                    PROSEQ      2545     A     
 PROSEQ    ADW1     BX7    X3                                                              PROSEQ      2546     A     
 PROSEQ             IX4    X2+X3                                                           PROSEQ      2547     A     
 PROSEQ             SA7    A3+         UPDATE LENGTH                                       PROSEQ      2548     A     
 PROSEQ             SB0    0                                                               PROSEQ      2549     A     
 PROSEQ             SA6    X4-1        STORE WORD                                          PROSEQ      2550     A     
 PROSEQ    ADW      PS                                                                     PROSEQ      2551     A     
 PROSEQ             SA2    FTAB+A0     FWA                                                 PROSEQ      2552     A     
 PROSEQ             SA3    LTAB+A0                                                         PROSEQ      2553     A     
 PROSEQ             SA4    A2+B1       NEXT TABLE FWA                                      PROSEQ      2554     A     
 PROSEQ             BX6    X1                                                              PROSEQ      2555     A     
 PROSEQ             IX7    X4-X2       ROOM BETWEEN TABLES                                 PROSEQ      2556     A     
 PROSEQ             SX3    X3+B1                                                           PROSEQ      2557     A     
 PROSEQ             IX4    X7-X3                                                           PROSEQ      2558     A     
 PROSEQ             PL     X4,ADW1     IF ROOM TO ADD A WORD                               PROSEQ      2559     A     
 PROSEQ             SX1    B1                                                              PROSEQ      2560     A     
 PROSEQ             SA6    ADWA                                                            PROSEQ      2561     A     
 PROSEQ             RJ     ATS         ALLOCATE SPACE                                      PROSEQ      2562     A     
 PROSEQ             SA1    ADWA                                                            PROSEQ      2563     A     
 PROSEQ             IX4    X2+X3                                                           PROSEQ      2564     A     
 PROSEQ             BX6    X1                                                              PROSEQ      2565     A     
 PROSEQ             SA6    X4-1                                                            PROSEQ      2566     A     
 PROSEQ             EQ     ADW                                                             PROSEQ      2567     A     
 PROSEQ                                                                                    PROSEQ      2568     A     
 PROSEQ    ADWA     BSS    1                                                               PROSEQ      2569     A     
 PROSEQ    AMU      SPACE  3                                                               PROSEQ      2570     A     
 PROSEQ   **        AMU - ACCUMULATE MEMORY USED.                                          PROSEQ      2571     A     
 PROSEQ   *         ENTRY  NONE.                                                           PROSEQ      2572     A     
 PROSEQ   *         EXIT   MU = MAX(MU,CURRENT ASSIGNED LENGTH)                            PROSEQ      2573     A     
 PROSEQ   *         USES   X - 1, 2, 3, 6.                                                 PROSEQ      2574     A     
 PROSEQ   *                B - 2.                                                          PROSEQ      2575     A     
 PROSEQ   *                A - 1, 2, 6.                                                    PROSEQ      2576     A     
 PROSEQ   *         CALLS  NONE.                                                           PROSEQ      2577     A     
 PROSEQ                                                                                    PROSEQ      2578     A     
 PROSEQ    AMU1     IX6    X6+X2       ACCUMULATE LENGTH                                   PROSEQ      2579     A     
 PROSEQ             SB2    B2-B1                                                           PROSEQ      2580     A     
 PROSEQ             SA2    A2+1        NEXT TABLE                                          PROSEQ      2581     A     
 PROSEQ             NE     B2,B1,AMU1  LOOP FOR ALL TABLES                                 PROSEQ      2582     A     
 PROSEQ             SA1    MU          SET MAX LENGTH                                      PROSEQ      2583     A     
 PROSEQ             IX3    X6-X1                                                           PROSEQ      2584     A     
 PROSEQ             NG     X3,AMU                                                          PROSEQ      2585     A     
 PROSEQ             SA6    A1                                                              PROSEQ      2586     A     
 PROSEQ                                                                                    PROSEQ      2587     A     
 PROSEQ    AMU      PS                 ENTRY/EXIT                                          PROSEQ      2588     A     
 PROSEQ             SA1    TN          (B2) = NUMBER OF TABLES                             PROSEQ      2589     A     
 PROSEQ             MX6    0           CLEAR ACCUMULATION                                  PROSEQ      2590     A     
 PROSEQ             SB2    X1                                                              PROSEQ      2591     A     
 PROSEQ             SA2    LTAB        FIRST TABLE                                         PROSEQ      2592     A     
 PROSEQ             EQ     AMU1                                                            PROSEQ      2593     A     
 PROSEQ    MTU      SPACE  3                                                               PROSEQ      2594     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3253    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
 PROSEQ   **        MTU - MOVE TABLES UP.                                                  PROSEQ      2595     A     
 PROSEQ   *         ENTRY  NONE.                                                           PROSEQ      2596     A     
 PROSEQ   *         EXIT   NONE.                                                           PROSEQ      2597     A     
 PROSEQ   *         USES   X - 0, 1, 2, 3, 7.                                              PROSEQ      2598     A     
 PROSEQ   *                B - 3.                                                          PROSEQ      2599     A     
 PROSEQ   *                A - 1, 2, 7.                                                    PROSEQ      2600     A     
 PROSEQ   *         CALLS  MVE.                                                            PROSEQ      2601     A     
 PROSEQ                                                                                    PROSEQ      2602     A     
 PROSEQ    MTU1     SB3    B3-B1       DECREMENT TABLE COUNT                               PROSEQ      2603     A     
 PROSEQ             SA2    FTAB+B3                                                         PROSEQ      2604     A     
 PROSEQ             SA1    LTAB+B3                                                         PROSEQ      2605     A     
 PROSEQ             IX7    X0-X1       NEW FWA = L - LENGTH                                PROSEQ      2606     A     
 PROSEQ             LX0    X7          L = NEW FWA                                         PROSEQ      2607     A     
 PROSEQ             SA7    A2                                                              PROSEQ      2608     A     
 PROSEQ             BX3    X0          MOVE TABLE                                          PROSEQ      2609     A     
 PROSEQ             ZR     X1,MTU2     IF LEN = 0                                          PROSEQ      2610     A     
 PROSEQ             IX4    X2-X3                                                           PROSEQ      2611     A     
 PROSEQ             ZR     X4,MTU2                                                         PROSEQ      2612     A     
 PROSEQ             MOVE   X1,X2,X3                                                        PROSEQ      2613     A     
 PROSEQ    MTU2     NZ     B3,MTU1                                                         PROSEQ      2614     A     
 PROSEQ                                                                                    PROSEQ      2615     A     
 PROSEQ    MTU      PS                 ENTRY/EXIT                                          PROSEQ      2616     A     
 PROSEQ             SB3    NTAB-1      (B3) = NUMBER OF TABLES - 1                         PROSEQ      2617     A     
 PROSEQ             SA1    FTAB+B3     (X0) = LWA+1 OF ALL TABLES (L)                      PROSEQ      2618     A     
 PROSEQ             BX0    X1                                                              PROSEQ      2619     A     
 PROSEQ             EQ     MTU1                                                            PROSEQ      2620     A     
 PROSEQ             SPACE  2                                                               PROSEQ      2621     A     
 PROSEQ             QUAL                                                                   PROSEQ      2622     A     
 PROSEQ             ENTRY  ADW=,ATS=,AMU=,MTU=                                             PROSEQ      2623     A     
 PROSEQ             ENTRY  AFT=                                                            PROSEQ      2624     A     
 PROSEQ    AFT=     EQU    /TBLM/AFT                                                       PROSEQ      2625     A     
 PROSEQ    ADW=     EQU    /TBLM/ADW                                                       PROSEQ      2626     A     
 PROSEQ    AMU=     EQU    /TBLM/AMU                                                       PROSEQ      2627     A     
 PROSEQ    ATS=     EQU    /TBLM/ATS                                                       PROSEQ      2628     A     
 PROSEQ    MTU=     EQU    /TBLM/MTU                                                       PROSEQ      2629     A     
 PROSEQ                                                                                    PROSEQ      2630     A     
 PROSEQ             END                                                                    PROSEQ      2631     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PROSEQ  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PROSEQ                    2631      2532
          FCC0504                      1         1
          FCC0508                     16        16
          FCC0586                     18        18
          FCC0641                      2         2
          FCC0643                     33        33
          FCC0645                      8         7
          FCC0882                      3         3
          FCC0912                     10        10
          FEAT155A                     1         0
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3254    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PROSEQ  
  
          FEAT155AB                    4         4
          FEAT155F                     4         4
          FCC1126                      2         2
          FCC1239                      5         5
          FCCT001                      2         2
          FCC1353                     18        18
          RSM2763X                   198       195
          RSM2763AX                    5         5
          FCC1596X                     3         3
          FCC1677X                     5         5
          FCC1837X                    26        26
          FCC1918                     15        15
          F2950F4                      5         5
          FCCA530                      5         5
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST     *DECK     POST                                                                   POST           1     A     
 POST               IDENT  POST                                                            POST           2     A     
 POST      POST     TITLE  POST - CONVERT ISSUED INSTRUCTIONS TO BCD                       POST           3     A     
 POST     *CALL     SSTCALL                                                                POST           4     A     
 POST      B=POST   RPVDEF                                                                 POST           5     A     
 POST               PASS2TM                                                                POST           6     A     
 POST      POST     SPACE  2                                                               POST           7     A     
 POST     **        POST - CONVERT ISSUED INSTRUCTIONS TO DISPLAY CODE.                    POST           8     A     
 POST     *         MAINTAIN CODE LENGTH, DEFINE LABEL ADDRESS"S,                          POST           9     A     
 POST     *         SETUP SUB MACROS FOR F.P. REFERENCES.                                  POST          10     A     
 POST               SPACE  2                                                               POST          11     A     
 POST               TABLES TXT,PIT,APL,VDT                                                 POST          12     A     
 POST               EXT    O.LOOP,O.GLT,O.API,N.AP                                         POST          13     A     
 POST               EXT    BN,N.IT,O.CFT,O.TET                                             POST          14          I
          -FCC1319
 POST               EXT    BN,N.IT,O.CFT,O.TET,O.BIT,O.LCT                                 FCC1319       73     A     
 POST      POST     SPACE  3                                                               POST          15     A     
 POST               DESCRIBE SI.,60                                                        POST          16     A     
 POST      H2       DEFINE 1                                                               POST          17     A     
 POST      OC       DEFINE 11                                                              POST          18     A     
 POST      CA       DEFINE 18                                                              POST          19     A     
 POST      IH       DEFINE 18                                                              POST          20     A     
 POST      RJ       DEFINE 6                                                               POST          21     A     
 POST      RI       DEFINE 6                                                               POST          22     A     
 POST                                                                                      POST          23     A     
 POST      RK       DEQU   IH,6                                                            POST          24     A     
 POST               SPACE  3                                                               POST          25     A     
 POST      BLPTR    ENTRY. =XCODE.     POINTER TO CURRENT USE BLOCK                        POST          26     A     
 POST      BLEN     BSSZ   1           LEN OF CURRENT USE BLOCK                            POST          27     A     
 POST      PARCEL   ENTRY. 0           LAST VALUE OF PARCEL COUNTER                        POST          28     A     
 POST      LSR      BSSZ   1           LAST *SUB* REF  12/P(IH),48/CODE. ADDRESS           POST          29     A     
 POST                                                                                      POST          30     A     
 POST      FU       CON    0           FORCE UPPER FLAG ( 0 OR 1R+ )                       POST          31     A     
 POST      PO       BSS    1           SAVED VALUE OF O.PIT                                POST          32     A     
 POST                                                                                      POST          33     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3255    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST      RTT      BSS    0           REGISTER TRANSLATION TABLE                          POST          34     A     
 POST               ECHO   2,T=(B,A,X)                                                     POST          35     A     
 POST               ECHO   1,N=(0,1,2,3,4,5,6,7)                                           POST          36     A     
 POST               DATA   2R_T_N                                                          POST          37     A     
 POST                                                                                      POST          38     A     
 POST      ILN      DATA   20H*                                                            POST          39     A     
 POST               DATA   4ALINE,0                                                        POST          40     A     
 POST      WLIC     SPACE  2                                                               POST          41     A     
 POST      WLIC     MACRO  F,W                                                             POST          42     A     
 POST               R=     B6,F                                                            POST          43     A     
 POST               R=     B7,W                                                            POST          44     A     
 POST               RJ     =XWML                                                           POST          45     A     
 POST               ENDM                                                                   POST          46     A     
 POST      WML      TITLE  WRITE MULTIPLE CODED LINES                                      POST          47     A     
 POST     **        WML - WRITE MULTIPLE CODED LINES TO -COMPS- FILE.                      POST          48     A     
 POST     *                                                                                POST          49     A     
 POST     *         ENTRY  (B6) = FWA FIRST LINE                                           POST          50     A     
 POST     *                (B7) = TOTAL LENGTH OF ALL LINES                                POST          51     A     
 POST     *                                                                                POST          52     A     
 POST     *         EXIT   ALL LINES WRITTEN TO -COMPS-.                                   POST          53     A     
 POST     *                                                                                POST          54     A     
 POST     *         CALLS  WRITEC                                                          POST          55     A     
 POST                                                                                      POST          56     A     
 POST      WML      ROUTINE                                                                POST          57     A     
 POST               SB2    B7                                                              POST          58     A     
 POST               SB5    B1                                                              POST          59     A     
 POST                                                                                      POST          60     A     
 POST      WML2     LE     B2,B0,WML   IF NOTHING LEFT TO WRITE, EXIT                      POST          61     A     
 POST               SA1    B6          (X1) = FIRST WORD OF LINE                           POST          62     A     
 POST               MX6    -12                                                             POST          63     A     
 POST      WML3     BX7    -X6*X1                                                          POST          64     A     
 POST               SA1    A1+B1                                                           POST          65     A     
 POST               NZ     X7,WML3     IF NOT ZERO BYTE LINE TERMINATOR                    POST          66     A     
 POST                                                                                      POST          67     A     
 POST               SB7    A1-B6       (B7) = CURRENT LINE LENGTH (WORDS)                  POST          68     A     
 POST               SX7    A1          (X7) = FWA NEXT LINE                                POST          69     A     
 POST               SX6    B2-B7       (X6) = TOTAL LENGTH OF NEXT LINES                   POST          70     A     
 POST               LX7    18                                                              POST          71     A     
 POST               BX6    X7+X6                                                           POST          72     A     
 POST               NO                                                                     POST          73     A     
 POST               SA6    WMLA        TEMP SAVE NEXT FWA, LENGTH                          POST          74     A     
 POST               WRITEC =XF.CMPS,B6,B7    ONE LINE TO -COMPS-                           POST          75     A     
 POST               SA1    WMLA                                                            POST          76     A     
 POST               SB5    B1                                                              POST          77     A     
 POST               SB2    X1          (B2) = TOTAL LENGTH OF REMAINING LINES              POST          78     A     
 POST               AX1    18                                                              POST          79     A     
 POST               SB6    X1          (B6) = FWA NEXT LINE                                POST          80     A     
 POST               EQ     WML2        LOOP FOR NEXT LINE                                  POST          81     A     
 POST                                                                                      POST          82     A     
 POST      WMLA     BSSZ   1           RESTART PARAMS - 24/0, 18/FWA, 18/LENGTH            POST          83     A     
 POST      FSU      TITLE  FSU FORCE NEXT SEQUENCE UPPER                                   POST          84     A     
 POST     **        FSU - FORCE NEXT SEQUENCE UPPER ( TO BEGIN ON A WORD BOUNDARY )        POST          85     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3256    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST                                                                                      POST          86     A     
 POST      FSU      ENTRY.                                                                 POST          87     A     
 POST               SA1    PARCEL                                                          POST          88     A     
 POST               ZR     X1,FSU      IF PARCEL = 0                                       POST          89     A     
 POST               SA2    BLEN                                                            POST          90     A     
 POST               SX6    1R+                                                             POST          91     A     
 POST               SX7    X2+B1       BLEN = BLEN + 1                                     POST          92     A     
 POST               SA6    FU          FU = 1R+                                            POST          93     A     
 POST               SA7    A2                                                              POST          94     A     
 POST               MX6    0                                                               POST          95     A     
 POST               SA6    A1          PARCEL = 0                                          POST          96     A     
 POST               EQ     FSU                                                             POST          97     A     
 POST      CUB      SPACE  3                                                               POST          98     A     
 POST     **        CUB - CHANGE USE BLOCKS                                                POST          99     A     
 POST     *                                                                                POST         100     A     
 POST     *         ENTRY  (A1,X1) = NEW USE BLK ADDR, 24/0,18/PARCEL,18/BLEN              POST         101     A     
 POST                                                                                      POST         102     A     
 POST      CUB      ENTRY.                                                                 POST         103     A     
 POST               SA2    PARCEL                                                          POST         104     A     
 POST               SA3    BLEN                                                            POST         105     A     
 POST               SA4    BLPTR                                                           POST         106     A     
 POST               LX2    18                                                              POST         107     A     
 POST               BX6    X2+X3       [BLPTR] = SHIFT( PARCEL , 18 ) ! BLEN               POST         108     A     
 POST               SA6    X4                                                              POST         109     A     
 POST               SX7    X1                                                              POST         110     A     
 POST               SA7    A3          BLEN = LEN[NEW]                                     POST         111     A     
 POST               AX1    18                                                              POST         112     A     
 POST               SX6    X1                                                              POST         113     A     
 POST               SA6    A2          PARCEL = SHIFT( [NEW] , -18 )                       POST         114     A     
 POST               SX7    A1                                                              POST         115     A     
 POST               SA7    A4          BLPTR = NEW                                         POST         116     A     
 POST               EQ     CUB                                                             POST         117     A     
 POST      CII      SPACE  3           CII                                                 POST         118     A     
 POST     **        REGISTER SETUP FOR THE MAIN LOOP                                       POST         119     A     
 POST     *                (A0) = (O.SYM) = FWA OF SYMTAB                                  POST         120     A     
 POST     *                (A5,X5) = PI, [PI] = CURRENT *PIT* WORD                         POST         121     A     
 POST     *                (A7) = SI = STORE ADDRESS                                       POST         122     A     
 POST     *                (X6,X7) = ASSEMBLY REGISTERS                                    POST         123     A     
 POST     *                (X0) = MASK(-6)                                                 POST         124     A     
 POST     *                                                                                POST         125     A     
 POST      SZ       MICRO  1,,/B2/     INSTRUCTION SIZE ( ON EXIT FROM PROCESSOR )         POST         126     A     
 POST      BL       MICRO  1,,/B5/     BLOCK LENGTH                                        POST         127     A     
 POST     *                (B6) = RTT                                                      POST         128     A     
 POST      PC       MICRO  1,,/B7/     PARCEL COUNT - 4                                    POST         129     A     
 POST     *                                                                                POST         130     A     
 POST     *                B2 - B4 MAY BE USED FOR SCRATCH                                 POST         131     A     
 POST                                                                                      POST         132     A     
 POST     *         ON ENTRY TO AN INSTRUCTION PROCESSOR                                   POST         133     A     
 POST     *                (X3) = INSTRUCTION SKELTON                                      POST         134     A     
 POST     *                (X4) = RTT( REG[RI] )                                           POST         135     A     
 POST     *                (X5) = [PI]                                                     POST         136     A     
 POST      CII      TITLE  CII - CONVERT ISSUED INSTRUCTION                                POST         137     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3257    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST      CII      ENTRY.                                                                 POST         138     A     
 POST               SNAPT  PIT,POST                                                        POST         139          I
          -FCC0982
 POST               TRACE  POST,PIT                                                        FCC0982       48     A     
 POST               SA2    O.PIT                                                           POST         140     A     
 POST               SA3    L.PIT                                                           POST         141     A     
 POST               SA1    =XMACFLAG                                                       POST         142     A     
 POST               BX6    X2          PO = O.PIT    */ SAVE FOR LATER RESTORE             POST         143     A     
 POST               SA6    PO                                                              POST         144     A     
 POST               SX7    X2+B1       O.PIT = O.PIT + 1                                   POST         145     A     
 POST               SA7    A2                                                              POST         146     A     
 POST               SX6    X3-1        L.PIT = L.PIT - 1                                   POST         147     A     
 POST               SA6    A3                                                              POST         148     A     
 POST               ZR     X1,CII0     IF MACFLAG = 0  */ NOT OL ! C ! E                   POST         149     A     
 POST                                                                                      POST         150     A     
 POST     *         WRITE COMMENT LINE WITH INITIAL LINE NUMBER TO *COMPS*                 POST         151     A     
 POST                                                                                      POST         152     A     
 POST               SA4    X2                                                              POST         153     A     
 POST               AX4    R1.INP                                                          POST         154     A     
 POST               SX1    X4          LINENUM = IN[PO]                                    POST         155     A     
 POST               MX0    -12                                                             POST         156     A     
 POST               ZR     X1,CII0     IF LINE NUM = 0                                     POST         157     A     
 POST               CALL   CDD                                                             POST         158     A     
 POST               LX6    30                                                              POST         159     A     
 POST               BX7    X0*X6                                                           POST         160     A     
 POST               SA7    ILN+3                                                           POST         161     A     
 POST               WLIC   ILN,4       LIST INITIAL LINE NUMBER                            POST         162     A     
 POST                                                                                      POST         163     A     
 POST     *         INITIALIZE REGISTERS FOR CONVERSION                                    POST         164     A     
 POST                                                                                      POST         165     A     
 POST      CII0     SA1    BLEN                                                            POST         166     A     
 POST               SA2    PARCEL                                                          POST         167     A     
 POST               SA3    O.SYM                                                           POST         168     A     
 POST               SA4    O.TXT                                                           POST         169     A     
 POST               SA5    O.PIT                                                           POST         170     A     
 POST               S"BL"  X1          BL = BLEN                                           POST         171     A     
 POST               SA0    X3                                                              POST         172     A     
 POST               S"PC"  X2-4        PC = PARCEL   */ REALLY PARCEL - 4                  POST         173     A     
 POST               MX0    -6                                                              POST         174     A     
 POST               SA5    X5          PI = O.PIT    */ FETCH INDEX                        POST         175     A     
 POST               SB6    RTT                                                             POST         176     A     
 POST               SA7    X4+4        TI = O.TXT + 4                                      POST         177     A     
 POST               EQ     CII2                                                            POST         178     A     
 POST      CII      SPACE  2                                                               POST         179     A     
 POST     *         RETURN POINT AFTER CONVERTING AN INSTRUCTION                           POST         180     A     
 POST     *         ADVANCE PARCEL COUNT, BLOCK LENGTH                                     POST         181     A     
 POST                                                                                      POST         182     A     
 POST      CII1     S"PC"  "PC"+"SZ"   PC = PC + SZ  */ ADVANCE PARCEL COUNT               POST         183     A     
 POST               SA5    A5+B1       PI = PI + 1   */ FETCH NEXT WORD                    POST         184     A     
 POST               LT     "PC",CII2   IF PC < 4                                           POST         185     A     
 POST                                                                                      POST         186     A     
 POST               SB3    "PC"        S = PC                                              POST         187     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3258    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               S"PC"  -4          PC = 0                                              POST         188     A     
 POST                                                                                      POST         189     A     
 POST               S"BL"  "BL"+B1     BL = BL + 1   */ ADVANCE BLOCK LENGTH               POST         190     A     
 POST               ZR     B3,CII2     IF S = 4      */ NO SIZE FAULT                      POST         191     A     
 POST                                                                                      POST         192     A     
 POST               S"PC"  -"SZ"       PC = SZ                                             POST         193     A     
 POST      CII      SPACE  1,5                                                             POST         194     A     
 POST     *         JUMP TO INSTRUCTION PROCESSOR                                          POST         195     A     
 POST                                                                                      POST         196     A     
 POST      CII2     BX6    -X0*X5                                                          POST         197     A     
 POST               UX7    B2,X5                     (X7) = LOWER 48 FOR *TLD*             POST         198     A     
 POST               SA4    RTT+X6      RI = RTT( REG[PI] )                                 POST         199     A     
 POST               JP     CIIA-OC.LAB+B2    JUMP( CIIA( OC[PI] ) )                        POST         200     A     
 POST      NOP      SPACE  3                                                               POST         201     A     
 POST     **        NOP - FLUSH BUFFER ( BUFFER TERMINATOR )                               POST         202     A     
 POST                                                                                      POST         203     A     
 POST      )NOP     EQU    L.PIT                                                           POST         204     A     
 POST                                                                                      POST         205     A     
 POST      .NOP     SB4    A7+B1       TL = TI + 1                                         POST         206     A     
 POST               SA2    O.PIT                                                           POST         207     A     
 POST               IX3    X2+X3                                                           POST         208     A     
 POST               SX6    A5+B1                                                           POST         209     A     
 POST               IX7    X3-X6       L.PIT = O.PIT+L.PIT - (PI+1)                        POST         210     A     
 POST               SA6    A2          O.PIT = PI + 1                                      POST         211     A     
 POST               SA7    A3                                                              POST         212     A     
 POST                                                                                      POST         213     A     
 POST               SA1    FU                                                              POST         214     A     
 POST               SA2    O.TXT                                                           POST         215     A     
 POST               ZR     X1,NOP1     IF FU = 0     */ NO FORCE UPPER AT BEGIN OF SEQ     POST         216     A     
 POST               MX6    0                                                               POST         217     A     
 POST               SA6    A1          FU = 0                                              POST         218     A     
 POST               SA3    X2+5                                                            POST         219     A     
 POST               LX3    6                                                               POST         220     A     
 POST               BX4    -X0*X3                                                          POST         221     A     
 POST               SX5    X4-1R                                                           POST         222     A     
 POST               NZ     X5,NOP1     IF FIRST CHAR " 1R                                  POST         223     A     
 POST               BX3    X0*X3                                                           POST         224     A     
 POST               BX6    X3+X1       FIRST CHAR = 1R+                                    POST         225     A     
 POST               LX6    54                                                              POST         226     A     
 POST               SA6    A3                                                              POST         227     A     
 POST                                                                                      POST         228     A     
 POST      NOP1     SX6    "PC"+4                                                          POST         229     A     
 POST               SA6    PARCEL      PARCEL = PC                                         POST         230     A     
 POST               SX7    "BL"                                                            POST         231     A     
 POST               SA7    BLEN        BLEN = BL                                           POST         232     A     
 POST                                                                                      POST         233     A     
 POST               SB6    X2+5                                                            POST         234     A     
 POST               WLIC   B6,B4-B6    WRITE ACCUMULATED BUFFER TO *COMPS*                 POST         235     A     
 POST                                                                                      POST         236     A     
 POST               SA1    L.PIT                                                           POST         237     A     
 POST               NZ     X1,CII0     IF L.PIT " 0                                        POST         238     A     
 POST                                                                                      POST         239     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3259    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               SA2    PO                                                              POST         240     A     
 POST               SA3    N.AT                                                            POST         241          I
          -FCC0675
 POST               BX6    X2          O.PIT = PO    */ RESTORE TO AVOID TBL MOVES         POST         242     A     
 POST               SA6    O.PIT                                                           POST         243     A     
 POST               ZR     X3,CII      IF N.AT = 0   */ NO ACTIVE GLOBAL TEMPS             POST         244          I
          -FCC0675
 POST               SA1    =XOPT2                                                          POST         245          I
          -FCC0675
 POST               ZR     X1,CII      IF OPT2 = 0   */ OPT = 1                            POST         246          I
          -FCC0675
 POST      CII      SPACE  3,18                                                            POST         247          I
          -FCC0675
 POST     *         REMOVE ACTIVE TEMPS WHOSE LAST USE IS IN THIS BLOCK ( *BN* ).          POST         248          I
          -FCC0675
 POST     *         CFT(I) HOLDS THE BLOCK NUMBER OF THE LAST USE OF TEMP CELL I .         POST         249          I
          -FCC0675
 POST                                                                                      POST         250          I
          -FCC0675
 POST               SA1    O.CFT                                                           POST         251          I
          -FCC0675
 POST               SA2    N.IT                                                            POST         252          I
          -FCC0675
 POST               SA4    BN                                                              POST         253          I
          -FCC0675
 POST               SA5    X1          CI = [O.CFT]                                        POST         254          I
          -FCC0675
 POST               SB2    X2          I = N.IT                                            POST         255          I
          -FCC0675
 POST                                                                                      POST         256          I
          -FCC0675
 POST      CII4     BX6    X5-X4                                                           POST         257          I
          -FCC0675
 POST               NZ     X6,CII5     IF [CI] " BN  */ NOT BLOCK OF LAST USE              POST         258          I
          -FCC0675
 POST                                                                                      POST         259          I
          -FCC0675
 POST               SA6    A5          [CI] = 0      */ INDICATE CELL IS AVAILABLE         POST         260          I
          -FCC0675
 POST               SX3    X3-1        N.AT = N.AT - 1                                     POST         261          I
          -FCC0675
 POST               ZR     X3,CII6     IF N.AT = 0   */ NO MORE ACTIVE TEMPS               POST         262          I
          -FCC0675
 POST                                                                                      POST         263          I
          -FCC0675
 POST      CII5     SB2    B2-B1       I = I - 1                                           POST         264          I
          -FCC0675
 POST               SA5    A5+B1       CI = CI + 1                                         POST         265          I
          -FCC0675
 POST               GT     B2,CII4     IF I > 0                                            POST         266          I
          -FCC0675
 POST                                                                                      POST         267          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3260    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
          -FCC0675
 POST      CII6     BX6    X3                                                              POST         268          I
          -FCC0675
 POST               SA6    A3                                                              POST         269          I
          -FCC0675
 POST               EQ     CII                                                             POST         270          I
          -FCC0675
 POST                                                                                      POST         271          I
          -FCC0675
 POST      N.AT     BSSZ   1           N. ACTIVE TEMP CELLS                                POST         272          I
          -FCC0675
 POST      TLD      SPACE  3                                                               POST         273          I
          -FCC0675
 POST               EQ     CII                                                             FCC0675      245     A     
 POST      TLD      EJECT                                                                  FCC0675      246     A     
 POST     **        TLD/TST - COMPILER GENERATED TEMPORARIES                               POST         274     A     
 POST                                                                                      POST         275     A     
 POST      )TLD     VFD    30/3L  S,30/5L IT.+                                             POST         276     A     
 POST      )TST     EQU    )TLD                                                            POST         277     A     
 POST                                                                                      POST         278     A     
 POST               PROCESS (TLD,TST)                                                      POST         279     A     
 POST               LX7    -SI.RJP                                                         POST         280     A     
 POST               BX6    -X0*X7                                                          POST         281     A     
 POST               ZR     X6,TLD0     IF RJ[SI] = 0 */ NOT CHANGED TO SHORT INST          POST         282     A     
 POST                                                                                      POST         283     A     
 POST               SA3    )LD         SKEL = )LD                                          POST         284     A     
 POST               EQ     .LD                                                             POST         285     A     
 POST                                                                                      POST         286     A     
 POST      TLD0     LX4    30                                                              POST         287     A     
 POST               SA1    O.TET                                                           POST         288     A     
 POST               BX7    X3+X4                                                           POST         289     A     
 POST               LX5    -SI.CAP     C = CA[PI]                                          POST         290     A     
 POST               SB3    59-T.FAP                                                        POST         291     A     
 POST               SB2    X1                        (B2) = [O.TET]                        POST         292     A     
 POST                                                                                      POST         293     A     
 POST     *         SEARCH *TET* TO FIND LOCATION IN IT. BLOCK ASSIGNED                    POST         294     A     
 POST     *         TO THIS TLD/TST .                                                      POST         295     A     
 POST                                                                                      POST         296     A     
 POST      TLD1     SA1    B2+X5       TI = TET(C)                                         POST         297     A     
 POST               LX6    B3,X1                                                           POST         298     A     
 POST               SX5    X1+         C = CA[TI]                                          POST         299     A     
 POST               MI     X6,TLD3     IF FA[TI]     */ FINAL ASSIGNMENT MADE              POST         300     A     
 POST               LX6    T.FAP-T.EQVP                                                    POST         301     A     
 POST               MI     X6,TLD1     IF EQV[TI]    */ EQUIVALENT TO ANOTHER              POST         302     A     
 POST                                                                                      POST         303     A     
 POST     *         CA NOT ASSIGNED, SEARCH *CFT* FOR AN AVAILABLE CELL, AND MARK          POST         304          I
          -FCC0675
 POST     *         ASSIGNMENT IN *CFT* AND *TET*.                                         POST         305          I
          -FCC0675
 POST                                                                                      POST         306          I
          -FCC0675
 POST               SA2    O.CFT                                                           POST         307          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3261    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
          -FCC0675
 POST               SB3    X2                                                              POST         308          I
          -FCC0675
 POST               SA2    N.AT                                                            POST         309          I
          -FCC0675
 POST               SA3    B3-B1       CI = O.CFT - 1                                      POST         310          I
          -FCC0675
 POST                                                                                      POST         311          I
          -FCC0675
 POST      TLD2     SA3    A3+B1       CI = CI + 1                                         POST         312          I
          -FCC0675
 POST               NZ     X3,TLD2     IF [CI] " 0   */ CELL IS IN USE                     POST         313          I
          -FCC0675
 POST                                                                                      POST         314          I
          -FCC0675
 POST               LX6    1+T.EQVP-T.LUP                                                  POST         315          I
          -FCC0675
 POST               SX6    X6          [CI] = LU[TI]                                       POST         316          I
          -FCC0675
 POST               SA6    A3                                                              POST         317          I
          -FCC0675
 POST               MX3    -T.CAL                                                          POST         318          I
          -FCC0675
 POST               SX6    X2+B1       N.AT = N.AT + 1                                     POST         319          I
          -FCC0675
 POST               SA6    A2                                                              POST         320          I
          -FCC0675
 POST               SX5    A3-B3       C = CI - O.CFT                                      POST         321          I
          -FCC0675
 POST               SX2    1                                                               POST         322          I
          -FCC0675
 POST     *         CA NOT ASSIGNED, MUST BE OPT=1, GET NEXT CELL AND SAVE                 FCC0675      247     A     
 POST     *         VALUE IN *CA* FIELD OF *TET* ENTRY.                                    FCC0675      248     A     
 POST                                                                                      FCC0675      249     A     
 POST               SA2    =XN.GT                                                          FCC0675      250     A     
 POST               BX5    X2          C = N.GT                                            FCC0675      251     A     
 POST               MX3    -T.CAL                                                          FCC0675      252     A     
 POST               SX6    X2+B1       N.GT = N.GT + 1                                     FCC0675      253     A     
 POST               SA6    A2                                                              FCC0675      254     A     
 POST               SX2    B1                                                              FCC0675      255     A     
 POST               SA4    N.IT                                                            POST         323     A     
 POST               BX1    X3*X1                                                           POST         324     A     
 POST               BX1    X1+X5       CA[TI] = C                                          POST         325     A     
 POST               LX2    T.FAP                                                           POST         326     A     
 POST               BX6    X1+X2       FA[TI] = 1                                          POST         327     A     
 POST               SA6    A1                                                              POST         328     A     
 POST               SX6    X5+B1                                                           POST         329     A     
 POST               IX4    X4-X6                                                           POST         330     A     
 POST               PL     X4,TLD3     N.IT = MAX( N.IT , C+1 )                            POST         331     A     
 POST               SA6    A4                                                              POST         332     A     
 POST                                                                                      POST         333     A     
 POST      TLD3     SX6    X5                                                              POST         334     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3262    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               NZ     X6,TLD4     IF C " 0                                            POST         335     A     
 POST                                                                                      POST         336     A     
 POST               S"SZ"  B1+B1       SZ = 2                                              POST         337     A     
 POST               SA4    =8L                                                             POST         338     A     
 POST               SX5    1R -1R+                                                         POST         339     A     
 POST               IX7    X7+X5                                                           POST         340     A     
 POST               SA7    A7+B1       TI = TI + 1;  [TI] = 10H  SRI .IT                   POST         341     A     
 POST               BX7    X4                                                              POST         342     A     
 POST               SA7    A7+B1       TI = TI + 1;  [TI] = 8L                             POST         343     A     
 POST               EQ     CII1                                                            POST         344     A     
 POST                                                                                      POST         345     A     
 POST      TLD4     SA7    A7+B1       TI = TI + 1;  [TI] = 10H  SRI IT.+                  POST         346     A     
 POST               RJ     CON         CONVERT NUMBER                                      POST         347     A     
 POST               LX6    6                                                               POST         348     A     
 POST               SB4    66                                                              POST         349     A     
 POST               BX7    X6                                                              POST         350     A     
 POST               SB4    B4-B3       UBC = 66-6*CC                                       POST         351     A     
 POST               RJ     TSB         TERMINATE STRING                                    POST         352     A     
 POST               S"SZ"  B1+B1       SZ = 2                                              POST         353     A     
 POST               EQ     CII1                                                            POST         354     A     
 POST               SPACE  2                                                               POST         355     A     
 POST      L6B      VFD    12/0,48/6L                                                      POST         356     A     
 POST      L7B      VFD    6/0,54/7L                                                       POST         357     A     
 POST      TYPEI    TITLE  INSTRUCTION PROCESSORS                                          POST         358     A     
 POST     **        TYPE I BINARY INFIX INSTRUCTIONS - *  FXI XJOXK  *                     POST         359     A     
 POST                                                                                      POST         360     A     
 POST      TYI      MACRO  NAM,LO                                                          POST         361     A     
 POST               USE    SKEL                                                            POST         362     A     
 POST      F        MICRO  1,1, LO                                                         POST         363     A     
 POST      O        MICRO  2,1, LO                                                         POST         364     A     
 POST      )NAM     VFD    30/3L  "F",18/1L ,12/1L"O"                                      POST         365     A     
 POST               USE    0                                                               POST         366     A     
 POST      .NAM     BSS    0                                                               POST         367     A     
 POST               ENDM                                                                   POST         368     A     
 POST                                                                                      POST         369     A     
 POST               TYI    AND,B*                                                          POST         370     A     
 POST               TYI    OR,B+                                                           POST         371     A     
 POST               TYI    XOR,B-                                                          POST         372     A     
 POST               TYI    ILS,(L,)                                                        POST         373     A     
 POST               TYI    IRS,(A,)                                                        POST         374     A     
 POST               TYI    NR,(N,)                                                         POST         375     A     
 POST               TYI    RNZ,(Z,)                                                        POST         376     A     
 POST               TYI    PK,(P,)                                                         POST         377     A     
 POST               TYI    UP,(U,)                                                         POST         378     A     
 POST               TYI    FA,F+                                                           POST         379     A     
 POST               TYI    FS,F-                                                           POST         380     A     
 POST               TYI    DFA,D+                                                          POST         381     A     
 POST               TYI    DFS,D-                                                          POST         382     A     
 POST               TYI    RFA,R+                                                          POST         383     A     
 POST               TYI    RFS,R-                                                          POST         384     A     
 POST               TYI    IA,I+                                                           POST         385     A     
 POST               TYI    IS,I-                                                           POST         386     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3263    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               TYI    FM,F*                                                           POST         387     A     
 POST               TYI    RFM,R*                                                          POST         388     A     
 POST               TYI    DFM,D*                                                          POST         389     A     
 POST               TYI    FD,F/                                                           POST         390     A     
 POST               TYI    RFD,R/                                                          POST         391     A     
 POST               ECHO   2,A=(IAZ,ISZ,IM),B=(IA,IS,DFM)                                  POST         392     A     
 POST      )A       EQU    )B                                                              POST         393     A     
 POST      .A       BSS    0                                                               POST         394     A     
 POST               LX4    30                                                              POST         395     A     
 POST               BX7    X4+X3                                                           POST         396     A     
 POST               LX5    -SI.RJP                                                         POST         397     A     
 POST               BX6    -X0*X5                                                          POST         398     A     
 POST               SA3    B6+X6       RJ = RTT( REG[RJ] )                                 POST         399     A     
 POST               LX5    SI.RJP-SI.RKP                                                   POST         400     A     
 POST               BX6    -X0*X5                                                          POST         401     A     
 POST               SA2    B6+X6       RK = RTT( REG[RK] )                                 POST         402     A     
 POST               SA1    L7B                                                             POST         403     A     
 POST               LX3    12                                                              POST         404     A     
 POST               BX7    X3+X7                                                           POST         405     A     
 POST               LX2    -6                                                              POST         406     A     
 POST               BX4    -X0*X2                                                          POST         407     A     
 POST               IX6    X4+X7                                                           POST         408     A     
 POST               BX2    X0*X2                                                           POST         409     A     
 POST               SA6    A7+B1       TI = TI + 1;  [TI] = 10H  LRI RJOR                  POST         410     A     
 POST               BX7    X2+X1                                                           POST         411     A     
 POST               S"SZ"  B1                                                              POST         412     A     
 POST               SA7    A6+B1       TI = TI + 1;  [TI] = 8LK                            POST         413     A     
 POST               EQ     CII1                                                            POST         414     A     
 POST      BNAND    SPACE  3,8                                                             POST         415     A     
 POST     **        BOOLEAN COMPLEMENT INSTRUCTIONS - *  BXI -XJOXK  *                     POST         416     A     
 POST                                                                                      POST         417     A     
 POST      BNAND    MACRO  NAM,O                                                           POST         418     A     
 POST               USE    SKEL                                                            POST         419     A     
 POST      )NAM     VFD    30/3L  B,24/2L -,6/1R_O                                         POST         420     A     
 POST               USE    0                                                               POST         421     A     
 POST      .NAM     BSS    0                                                               POST         422     A     
 POST               ENDM                                                                   POST         423     A     
 POST                                                                                      POST         424     A     
 POST               BNAND  STR,*                                                           POST         425     A     
 POST               BNAND  IMP,+                                                           POST         426     A     
 POST               BNAND  EQV,-                                                           POST         427     A     
 POST                                                                                      POST         428     A     
 POST               LX4    30                                                              POST         429     A     
 POST               BX7    X3+X4                                                           POST         430     A     
 POST               LX5    -SI.RJP                                                         POST         431     A     
 POST               BX6    -X0*X5                                                          POST         432     A     
 POST               SA4    B6+X6       RJ = RTT( REG[RJ] )                                 POST         433     A     
 POST               LX5    SI.RJP-SI.RKP                                                   POST         434     A     
 POST               BX6    -X0*X5                                                          POST         435     A     
 POST               SA2    B6+X6       RK = RTT( REG[RK] )                                 POST         436     A     
 POST               SA1    L6B                                                             POST         437     A     
 POST               LX4    6                                                               POST         438     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3264    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               BX6    X4+X7                                                           POST         439     A     
 POST               LX2    48                                                              POST         440     A     
 POST               SA6    A7+B1       TI = TI + 1;  [TI] = 10H  BRI -RJO                  POST         441     A     
 POST               IX7    X2+X1                                                           POST         442     A     
 POST               S"SZ"  B1          SZ = 1                                              POST         443     A     
 POST               SA7    A6+B1       TI = TI + 1;  [TI] = 8LRK                           POST         444     A     
 POST               EQ     CII1                                                            POST         445     A     
 POST      XMTC     SPACE  3                                                               POST         446     A     
 POST     **        XMTC - *  BXI -XJ  *                                                   POST         447     A     
 POST                                                                                      POST         448     A     
 POST               BNAND  XMTC                                                            POST         449     A     
 POST               LX4    30                                                              POST         450     A     
 POST               BX6    X3+X4                                                           POST         451     A     
 POST               LX5    -SI.RJP                                                         POST         452     A     
 POST               BX7    -X0*X5                                                          POST         453     A     
 POST               SA4    B6+X7       RJ                                                  POST         454     A     
 POST               LX4    6                                                               POST         455     A     
 POST               SA1    =8L                                                             POST         456     A     
 POST               BX6    X4+X6                                                           POST         457     A     
 POST               S"SZ"  B1          SZ = 1                                              POST         458     A     
 POST               SA6    A7+B1       TI = TI + 1;  [TI] = 10H  BRI -RJ                   POST         459     A     
 POST               BX7    X1                                                              POST         460     A     
 POST               SA7    A6+B1       TI = TI + 1;  [TI] = 8L                             POST         461     A     
 POST               EQ     CII1                                                            POST         462     A     
 POST      UNARY    SPACE  3,14                                                            POST         463     A     
 POST     **        TYPE I UNARY INSTRUCTIONS - *  FXI XJ  *                               POST         464     A     
 POST                                                                                      POST         465     A     
 POST               PURGMAC TYI                                                            POST         466     A     
 POST      TYI      MACRO  NAM,F                                                           POST         467     A     
 POST               USE    SKEL                                                            POST         468     A     
 POST      )NAM     VFD    30/3L  F,30/1L                                                  POST         469     A     
 POST               USE    0                                                               POST         470     A     
 POST      .NAM     BSS    0                                                               POST         471     A     
 POST               ENDM                                                                   POST         472     A     
 POST                                                                                      POST         473     A     
 POST               TYI    XMT,B                                                           POST         474     A     
 POST               TYI    CX,C                                                            POST         475     A     
 POST               TYI    DRL,R                                                           POST         476     A     
 POST               TYI    DWL,W                                                           POST         477     A     
 POST                                                                                      POST         478     A     
 POST               LX5    -SI.RJP                                                         POST         479     A     
 POST               BX6    -X0*X5                                                          POST         480     A     
 POST               SA2    B6+X6       RJ                                                  POST         481     A     
 POST               LX4    30                                                              POST         482     A     
 POST               BX6    X3+X4                                                           POST         483     A     
 POST               LX2    12                                                              POST         484     A     
 POST               S"SZ"  B1          SZ = 1                                              POST         485     A     
 POST               BX7    X6+X2                                                           POST         486     A     
 POST               SA7    A7+B1       TI = TI + 1;  [TI] = 10H  LRI RJ                    POST         487     A     
 POST               EQ     CII1                                                            POST         488     A     
 POST      TYII     SPACE  3,14                                                            POST         489     A     
 POST     **        TYPE II INSTRUCTIONS ( FMA, KLS, KRS )                                 POST         490     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3265    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST                                                                                      POST         491     A     
 POST      TYII     MACRO  NAM,F                                                           POST         492     A     
 POST               USE    SKEL                                                            POST         493     A     
 POST      )NAM     VFD    30/3L  F,30/5L 00B                                              POST         494     A     
 POST               USE    0                                                               POST         495     A     
 POST      .NAM     BSS    0                                                               POST         496     A     
 POST               ENDM                                                                   POST         497     A     
 POST                                                                                      POST         498     A     
 POST               TYII   KLS,L                                                           POST         499     A     
 POST               TYII   KRS,A                                                           POST         500     A     
 POST               TYII   FMA,M                                                           POST         501     A     
 POST               LX4    30                                                              POST         502     A     
 POST               BX7    X4+X3                                                           POST         503     A     
 POST               SX4    70B                                                             POST         504     A     
 POST               LX5    -SI.CAP                                                         POST         505     A     
 POST               BX3    -X0*X5      AB                                                  POST         506     A     
 POST               S"SZ"  B1          SZ = 1                                              POST         507     A     
 POST               BX5    X4*X3                                                           POST         508     A     
 POST               ZR     X5,TYII1    IF ONLY 1 DIGIT                                     POST         509     A     
 POST               BX3    X3-X5                                                           POST         510     A     
 POST               LX5    18-3                                                            POST         511     A     
 POST               LX3    12                                                              POST         512     A     
 POST               SA1    =8L                                                             POST         513     A     
 POST               BX4    X3+X5                                                           POST         514     A     
 POST               IX6    X4+X7                                                           POST         515     A     
 POST               SA6    A7+B1       TI = TI + 1;  [TI] = 10H  LRI  NNB                  POST         516     A     
 POST               BX7    X1                                                              POST         517     A     
 POST               SA7    A6+B1       TI = TI + 1;  [TI] = 8L                             POST         518     A     
 POST               EQ     CII1                                                            POST         519     A     
 POST                                                                                      POST         520     A     
 POST      TYII1    LX3    18                                                              POST         521     A     
 POST               IX6    X7+X3                                                           POST         522     A     
 POST               SX4    1LB&3R0B                                                        POST         523     A     
 POST               BX7    X6-X4                                                           POST         524     A     
 POST               SA7    A7+B1       TI = TI + 1;  [TI] = 8L  LRI NB                     POST         525     A     
 POST               EQ     CII1                                                            POST         526     A     
 POST      SET      SPACE  3,14                                                            POST         527     A     
 POST      )S       VFD    30/3L  S,30/1L                                                  POST         528     A     
 POST                                                                                      POST         529     A     
 POST      .S       LX4    30                                                              POST         530     A     
 POST               BX7    X3+X4                                                           POST         531     A     
 POST               LX5    -SI.CAP                                                         POST         532     A     
 POST               SX6    X5                                                              POST         533     A     
 POST               NZ     X6,SET1     IF CA[PI] " 0                                       POST         534     A     
 POST               SX4    2RB0                                                            POST         535     A     
 POST               S"SZ"  B1          SZ = 1                                              POST         536     A     
 POST               LX4    12                                                              POST         537     A     
 POST               BX7    X7+X4                                                           POST         538     A     
 POST               SA7    A7+B1       TI = TI + 1;  [TI] = 8L  SRI B0                     POST         539     A     
 POST               EQ     CII1                                                            POST         540     A     
 POST                                                                                      POST         541     A     
 POST      SET1     MI     X6,SET2     IF CA[PI] < 0                                       POST         542     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3266    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               RJ     CON         CONVERT THE NUMBER                                  POST         543     A     
 POST               SB3    B3-6                                                            POST         544     A     
 POST               LX6    6                                                               POST         545     A     
 POST               EQ     SET3                                                            POST         546     A     
 POST      SET2     BX6    -X6                                                             POST         547     A     
 POST               RJ     CON                                                             POST         548     A     
 POST               SX4    1R-                                                             POST         549     A     
 POST               LX4    54                                                              POST         550     A     
 POST               BX6    X4+X6                                                           POST         551     A     
 POST                                                                                      POST         552     A     
 POST      SET3     SB4    24          UBC = 24                                            POST         553     A     
 POST               RJ     ADC         ADD THE NUMBER TO THE STRING                        POST         554     A     
 POST               RJ     TSB                                                             POST         555     A     
 POST               S"SZ"  B1+B1       SZ = 2                                              POST         556     A     
 POST               EQ     CII1                                                            POST         557     A     
 POST      TYIM     TITLE  TYPE I MEMORY REFERENCES                                        POST         558     A     
 POST     **        TYPE I MEMORY REFERENCES - *  SAI BJOBK  *                             POST         559     A     
 POST                                                                                      POST         560     A     
 POST               NOREF  .Z                                                              POST         561     A     
 POST      TYIM     MACRO  NAM,O                                                           POST         562     A     
 POST               USE    SKEL                                                            POST         563     A     
 POST     +         VFD    30/3L  S,18/1L ,12/1L_O                                         POST         564     A     
 POST      .Z       SET    *-1                                                             POST         565     A     
 POST               USE    0                                                               POST         566     A     
 POST               IRP    NAM                                                             POST         567     A     
 POST      )NAM     EQU    .Z                                                              POST         568     A     
 POST      .NAM     BSS    0                                                               POST         569     A     
 POST               IRP                                                                    POST         570     A     
 POST               ENDM                                                                   POST         571     A     
 POST                                                                                      POST         572     A     
 POST               TYIM   (SLD,SST,SA),+                                                  POST         573     A     
 POST               TYIM   (SDL,SDS,SS),-                                                  POST         574     A     
 POST                                                                                      POST         575     A     
 POST               LX4    30                                                              POST         576     A     
 POST               BX7    X3+X4                                                           POST         577     A     
 POST               LX5    -SI.RJP                                                         POST         578     A     
 POST               BX6    -X0*X5                                                          POST         579     A     
 POST               SA4    B6+X6       RJ = RTT(REG[RJ])                                   POST         580     A     
 POST               LX5    SI.RJP-SI.RKP                                                   POST         581     A     
 POST               BX6    -X0*X5                                                          POST         582     A     
 POST               LX4    12                                                              POST         583     A     
 POST               S"SZ"  B1                                                              POST         584     A     
 POST               BX7    X7+X4                                                           POST         585     A     
 POST               NZ     X6,TYIM1    IF RK " 0                                           POST         586     A     
 POST               MX5    -12                                                             POST         587     A     
 POST               BX7    X5*X7                                                           POST         588     A     
 POST               SA7    A7+1        TI = TI + 1;  [TI] = 8L  SRI RJ                     POST         589     A     
 POST               EQ     CII1                                                            POST         590     A     
 POST                                                                                      POST         591     A     
 POST      TYIM1    SA4    B6+X6       RK = RTT(REG[RK])                                   POST         592     A     
 POST               SA1    L7B                                                             POST         593     A     
 POST               LX4    -6                                                              POST         594     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3267    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               BX5    -X0*X4                                                          POST         595     A     
 POST               BX6    X5+X7                                                           POST         596     A     
 POST               SA6    A7+B1       TI = TI + 1;  [TI] = 10H  SRI RJOR                  POST         597     A     
 POST               BX4    X0*X4                                                           POST         598     A     
 POST               BX7    X4+X1                                                           POST         599     A     
 POST               SA7    A6+B1       TI = TI + 1;  [TI] = 8LK                            POST         600     A     
 POST               EQ     CII1                                                            POST         601     A     
 POST      PLD      SPACE  3,14                                                            POST         602     A     
 POST     **        PLD/PST - *  SAI BJ+CA *                                               POST         603     A     
 POST                                                                                      POST         604     A     
 POST               ECHO   2,N=(PLD,PST)                                                   POST         605     A     
 POST      )N       EQU    )SLD                                                            POST         606     A     
 POST      .N       BSS    0                                                               POST         607     A     
 POST               LX4    30                                                              POST         608     A     
 POST               BX6    X3+X4                                                           POST         609     A     
 POST               LX5    -SI.RJP                                                         POST         610     A     
 POST               BX2    -X0*X5                                                          POST         611     A     
 POST               SA1    B6+X2       RJ = RTT( REG[RJ] )                                 POST         612     A     
 POST               LX5    SI.RJP-SI.CAP                                                   POST         613     A     
 POST               LX1    12                                                              POST         614     A     
 POST               BX6    X1+X6                                                           POST         615     A     
 POST               SX7    X5                                                              POST         616     A     
 POST               NZ     X7,PLD1     IF CA[PI] " 0                                       POST         617     A     
 POST               MX2    -12                                                             POST         618     A     
 POST               S"SZ"  B1          SZ = 1                                              POST         619     A     
 POST               BX7    X2*X6                                                           POST         620     A     
 POST               SA7    A7+B1       TI = TI + 1]  [TI] = 8L  SRI RJ                     POST         621     A     
 POST               EQ     CII1                                                            POST         622     A     
 POST                                                                                      POST         623     A     
 POST      PLD1     PL     X7,PLD2     IF CA[PI] > 0                                       POST         624     A     
 POST               BX7    -X7                                                             POST         625     A     
 POST               SX4    2R+A&2R-A                                                       POST         626     A     
 POST               BX6    X6-X4                                                           POST         627     A     
 POST                                                                                      POST         628     A     
 POST      PLD2     RJ     COD                                                             POST         629     A     
 POST               SB4    B2-6                                                            POST         630     A     
 POST               AX3    B4,X4                                                           POST         631     A     
 POST               BX6    X6+X3                                                           POST         632     A     
 POST               SA6    A7+B1       TI = TI + 1;  [TI] = 10H  SRI RJ+N                  POST         633     A     
 POST               SB2    B4-60                                                           POST         634     A     
 POST               LX4    -B2,X4                                                          POST         635     A     
 POST               BX7    X0*X4                                                           POST         636     A     
 POST               SA1    =1HB                                                            POST         637     A     
 POST               AX2    B4,X1                                                           POST         638     A     
 POST               MX3    -12                                                             POST         639     A     
 POST               BX5    X3*X2                                                           POST         640     A     
 POST               BX7    X5+X7                                                           POST         641     A     
 POST               S"SZ"  B1+B1       SZ = 2                                              POST         642     A     
 POST               SA7    A6+B1       TI = TI+1  ; [TI] = 8LNNNB                          POST         643     A     
 POST               EQ     CII1                                                            POST         644     A     
 POST      TYIII    TITLE  TYPE III MEMORY REFERENCES ( LD , ST , STT )                    POST         645     A     
 POST     **        TYPE III MEMORY REFERENCES - *  SAI RJ+CA+IH-H2  *                     POST         646     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3268    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST                                                                                      POST         647     A     
 POST               ECHO   2,N=(LD,ST,STT,ILD)                                             POST         648          I
          -FCC1842X 
 POST      )ILD     EQU    )SLD                                                            FCC1842X       5     A     
 POST      .ILD     SA2    =XIT.                                                           FCC1842X       6     A     
 POST               LX5    -SI.IHP                                                         FCC1842X       7     A     
 POST               BX1    X2-X5                                                           FCC1842X       8     A     
 POST               SB4    X1                                                              FCC1842X       9     A     
 POST               LX5    SI.IHP                                                          FCC1842X      10     A     
 POST               NZ     B4,.LD      IF IH[PI] " IT.                                     FCC1842X      11     A     
 POST                                                                                      FCC1842X      12     A     
 POST               SA3    )TLD                                                            FCC1842X      13     A     
 POST               EQ     .TLD                                                            FCC1842X      14     A     
 POST                                                                                      FCC1842X      15     A     
 POST               ECHO   2,N=(LD,ST,STT)                                                 FCC1842X      16     A     
 POST      )N       EQU    )SLD                                                            POST         649     A     
 POST      .N       BSS    0                                                               POST         650     A     
 POST                                                                                      POST         651     A     
 POST               LX4    30                                                              POST         652     A     
 POST               BX7    X3+X4                                                           POST         653     A     
 POST               LX5    -SI.RJP                                                         POST         654     A     
 POST               BX6    -X0*X5                                                          POST         655     A     
 POST               LX5    SI.RJP-SI.IHP                                                   POST         656     A     
 POST               ZR     X6,LD1      IF RJ = 0                                           POST         657     A     
 POST               SA4    B6+X6                                                           POST         658     A     
 POST               MX1    -IH.CAIHL                                                       POST         659     A     
 POST               BX6    -X1*X5                                                          POST         660     A     
 POST               LX4    12                                                              POST         661     A     
 POST               BX7    X4+X7                                                           POST         662     A     
 POST               SB4    6           UBC = 6                                             POST         663     A     
 POST               NZ     X6,LD2      IF IHCA[PI] " 0                                     POST         664     A     
 POST               MX2    -12                                                             POST         665     A     
 POST               BX7    X2*X7                                                           POST         666     A     
 POST               S"SZ"  B1          SZ = 1                                              POST         667     A     
 POST               SA7    A7+B1       TI = TI + 1;  [TI] = 8L  SRI RJ                     POST         668     A     
 POST               EQ     CII1                                                            POST         669     A     
 POST                                                                                      POST         670     A     
 POST      LD1      MX1    -24                                                             POST         671     A     
 POST               SB4    24          UBC = 24                                            POST         672     A     
 POST               BX7    X1*X7                                                           POST         673     A     
 POST                                                                                      POST         674     A     
 POST      LD2      SX6    X5                                                              POST         675     A     
 POST               ZR     X6,LD3      IF IH[PI] = 0                                       POST         676     A     
 POST               RJ     ASN         ADD THE NAME                                        POST         677     A     
 POST                                                                                      POST         678     A     
 POST      LD3      LX5    SI.IHP-SI.CAP                                                   POST         679     A     
 POST               SX6    X5                                                              POST         680     A     
 POST               ZR     X6,LD7      IF CA[PI] = 0                                       POST         681     A     
 POST               MI     X6,LD4      IF CA[PI] < 0                                       POST         682     A     
 POST               RJ     CON                                                             POST         683     A     
 POST               SX4    1R+         SGN = 1R+                                           POST         684     A     
 POST               EQ     LD5                                                             POST         685     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3269    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST                                                                                      POST         686     A     
 POST      LD4      BX6    -X6                                                             POST         687     A     
 POST               RJ     CON                                                             POST         688     A     
 POST               SX4    1R-         SGN = 1R-                                           POST         689     A     
 POST                                                                                      POST         690     A     
 POST      LD5      AX3    B4,X7                                                           POST         691     A     
 POST               SX1    1R+                                                             POST         692     A     
 POST               BX2    -X0*X3                                                          POST         693     A     
 POST               LX4    54                                                              POST         694     A     
 POST               IX3    X1-X2                                                           POST         695     A     
 POST               NZ     X3,LD6      IF SHIFT( STR , -UBC ) & 77B " 1R+                  POST         696     A     
 POST               LX1    B4,X1                                                           POST         697     A     
 POST               BX7    X7-X1                                                           POST         698     A     
 POST               SB4    B4+6        UBC = UBC + 6                                       POST         699     A     
 POST                                                                                      POST         700     A     
 POST      LD6      BX6    X4+X6                                                           POST         701     A     
 POST               RJ     ADC         ADD CON TO STRING                                   POST         702     A     
 POST                                                                                      POST         703     A     
 POST      LD7      LX5    SI.CAP+59-SI.H2P                                                POST         704     A     
 POST               PL     X5,LD8      IF H2[PI] = 0                                       POST         705     A     
 POST               SX6    1R-                                                             POST         706     A     
 POST               SB3    6                                                               POST         707     A     
 POST               LX6    54                                                              POST         708     A     
 POST               RJ     ADC         ADD A -                                             POST         709     A     
 POST               SA5    A5+B1       PI = PI + 1                                         POST         710     A     
 POST               RJ     ASN         ADD THE NAME                                        POST         711     A     
 POST                                                                                      POST         712     A     
 POST      LD8      RJ     TSB         TERMINATE THE LINE                                  POST         713     A     
 POST               S"SZ"  B1+B1       SZ = 2                                              POST         714     A     
 POST               PL     B6,CII1     IF FPFLAG = 0 */ IH NOT AN F.P.                     POST         715     A     
 POST                                                                                      POST         716     A     
 POST               SX4    "PC"+B1                                                         POST         717     A     
 POST               MI     X4,LD9      IF PC < 3     */ NO SIZE FAULT                      POST         718     A     
 POST               S"PC"  -4          PC = 0        */ FORCE UPPER                        POST         719     A     
 POST               S"BL"  "BL"+B1     BL = BL + 1                                         POST         720     A     
 POST                                                                                      POST         721     A     
 POST      LD9      SA3    LSR         PSR = LSR                                           POST         722     A     
 POST               SX2    "BL"                                                            POST         723     A     
 POST               LX5    1+SI.H2P-SI.IHP                                                 POST         724     A     
 POST               SB3    X5                                                              POST         725     A     
 POST               PX6    B3,X2                                                           POST         726     A     
 POST               IX4    X6-X3                                                           POST         727          I
          -RSM3545C 
 POST               SA6    A3          LSR = PACK(IH,BL)                                   POST         728     A     
 POST               NZ     X4,LD10     IF PSR " LSR  */ IH S .NE. ! BL S .NE.              POST         729          I
          -RSM3545C 
 POST                                                                                      POST         730          I
          -RSM3545C 
 POST     *         2 F.P. REFS IN THE SAME WORD TO THE SAME IH, OUTPUT A *DELAY*          POST         731          I
          -RSM3545C 
 POST                                                                                      POST         732          I
          -RSM3545C 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3270    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               SA3    =8L  DELAY                                                      POST         733          I
          -RSM3545C 
 POST               SB6    B6-B1                                                           POST         734          I
          -RSM3545C 
 POST               SX1    B1                                                              POST         735          I
          -RSM3545C 
 POST               SA2    A0+B6       WORDB = [O.SYM-2*IH-1]                              POST         736          I
          -RSM3545C 
 POST               BX7    X3                                                              POST         737          I
          -RSM3545C 
 POST               LX1    P.RA                                                            POST         738          I
          -RSM3545C 
 POST               IX6    X1+X2       RA[IH] = RA[IH] + 1                                 POST         739          I
          -RSM3545C 
 POST               SB4    12          UBC = 12                                            POST         740          I
          -RSM3545C 
 POST               SA6    A2                                                              POST         741          I
          -RSM3545C 
 POST               RJ     ASN                                                             POST         742          I
          -RSM3545C 
 POST               RJ     TSB         OUTPUT*  DELAY NAME*                                POST         743          I
          -RSM3545C 
 POST               SA1    =XN.ST                                                          POST         744          I
          -RSM3545C 
 POST               NZ     X1,LD10     N.ST = MAX( N.ST , 1 )                              POST         745          I
          -RSM3545C 
 POST               SX6    B1                                                              POST         746          I
          -RSM3545C 
 POST               SA6    A1                                                              POST         747          I
          -RSM3545C 
 POST                                                                                      POST         748          I
          -RSM3545C 
 POST      LD10     SA5    A5                                                              POST         749          I
          -RSM3545C 
 POST               SA5    A5                                                              RSM3545C     160     A     
 POST               LX5    -SI.IHP                                                         POST         750     A     
 POST               RJ     OSM         OUTPUT *SUB* MACRO                                  POST         751     A     
 POST               SB6    RTT                                                             POST         752     A     
 POST               S"SZ"  B1+B1       SZ = 2                                              POST         753     A     
 POST               EQ     CII1                                                            POST         754     A     
 POST      OSM      SPACE  3,14                                                            POST         755     A     
 POST     **        OSM - OUTPUT *SUB* MACRO CALL                                          POST         756     A     
 POST     *                                                                                POST         757     A     
 POST     *         ENTRY  (X5) = 24/XX,18/CA,18/IH OF SYMBOL TO BE OUTPUT                 POST         758     A     
 POST     *                (B6) = -2*IH                                                    POST         759     A     
 POST                                                                                      POST         760     A     
 POST      OSM      ROUTINE                                                                POST         761     A     
 POST               SB6    B6-B1                                                           POST         762     A     
 POST               SA3    =6L  SUB                                                        POST         763     A     
 POST               SA2    A0+B6       WORDB = [O.SYM-2*IH-1]                              POST         764     A     
 POST               SX1    B1                                                              POST         765     A     
 POST               SB4    24          UBC = 24                                            POST         766     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3271    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               LX1    P.RA                                                            POST         767     A     
 POST               IX6    X1+X2       RA[IH] = RA[IH] + 1  */ ADVANCE SUB BLK LEN         POST         768     A     
 POST               BX7    X3                                                              POST         769     A     
 POST               SA6    A2                                                              POST         770     A     
 POST               RJ     ASN         ADD THE NAME                                        POST         771     A     
 POST               LX5    -IH.IHL                                                         POST         772     A     
 POST               SX6    X5                                                              POST         773     A     
 POST               ZR     X6,OSM3     IF CA = 0                                           POST         774     A     
 POST               MI     X6,OSM1     IF CA < 0                                           POST         775     A     
 POST               RJ     CON                                                             POST         776     A     
 POST               EQ     OSM2                                                            POST         777     A     
 POST                                                                                      POST         778     A     
 POST      OSM1     BX6    -X6                                                             POST         779     A     
 POST               RJ     CON                                                             POST         780     A     
 POST               AX6    6                                                               POST         781     A     
 POST               SB3    B3+6                                                            POST         782     A     
 POST               SX4    1R-                                                             POST         783     A     
 POST               LX4    48                                                              POST         784     A     
 POST               BX6    X4+X6                                                           POST         785     A     
 POST      OSM2     SX4    1R,                                                             POST         786     A     
 POST               LX4    54                                                              POST         787     A     
 POST               BX6    X4+X6                                                           POST         788     A     
 POST               RJ     ADC         ADD *,SNNNB*                                        POST         789     A     
 POST                                                                                      POST         790     A     
 POST      OSM3     RJ     TSB         TERMINATE STRING                                    POST         791     A     
 POST               EQ     OSM                                                             POST         792     A     
 POST      CJUMPS   TITLE  CONDITIONAL JUMPS                                               POST         793     A     
 POST     **        X JUMPS - *  JT XI,IH  *                                               POST         794     A     
 POST                                                                                      POST         795     A     
 POST      )JPX     BSS    0                                                               POST         796     A     
 POST               ECHO   1,JT=("XJUMPS")                                                 POST         797     A     
 POST               VFD    42/5L  JT ,18/1L,                                               POST         798     A     
 POST                                                                                      POST         799     A     
 POST      .JPX     LX5    -SI.CAP                                                         POST         800     A     
 POST               SA3    )JPX+X5     SKEL = JPX( CA[CI] )                                POST         801     A     
 POST               LX4    18                                                              POST         802     A     
 POST               BX6    X3+X4                                                           POST         803     A     
 POST               LX5    SI.CAP-SI.IHP                                                   POST         804     A     
 POST               RJ     FLV         FORM LABEL VALUE                                    POST         805          I
          -FCC1319
 POST               RJ     RLV         FORM LABEL VALUE                                    FCC1319       74     A     
 POST               LX4    12                                                              POST         806     A     
 POST               MX5    -12                                                             POST         807     A     
 POST               BX3    -X5*X4                                                          POST         808     A     
 POST               BX6    X6+X3                                                           POST         809     A     
 POST               SA6    A7+B1       TI = TI + 1;  [TI] = 10H  JX RI,LA                  POST         810     A     
 POST               BX7    X5*X4                                                           POST         811     A     
 POST               SA7    A6+B1       TI = TI + 1;  [TI] = 8LBEL                          POST         812     A     
 POST               S"SZ"  B1+B1       SZ = 2                                              POST         813     A     
 POST               ZR     X2,CII1     IF SFLAG = 0                                        POST         814     A     
 POST               EQ     CJP1                                                            POST         815     A     
 POST                                                                                      POST         816     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3272    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST     **        B JUMPS - *  JT BI,BF,IH  *                                            POST         817     A     
 POST                                                                                      POST         818     A     
 POST      )JPBB    BSS    0                                                               POST         819     A     
 POST               ECHO   1,JT=("BJUMPS")                                                 POST         820     A     
 POST               VFD    42/5L  JT ,18/1L,                                               POST         821     A     
 POST                                                                                      POST         822     A     
 POST      .JPBB    LX5    -SI.CAP                                                         POST         823     A     
 POST               SA3    )JPBB+X5                                                        POST         824     A     
 POST               LX4    18                                                              POST         825     A     
 POST               LX5    SI.CAP-SI.RJP                                                   POST         826     A     
 POST               BX7    X3+X4                                                           POST         827     A     
 POST               BX6    -X0*X5                                                          POST         828     A     
 POST               SA4    B6+X6       RJ = RTT(REG[RJ])                                   POST         829     A     
 POST               LX5    SI.RJP-SI.IHP                                                   POST         830     A     
 POST               BX7    X7+X4                                                           POST         831     A     
 POST               SA7    A7+B1       TI = TI + 1;  [TI] = 10H  JX RI,RJ                  POST         832     A     
 POST               RJ     FLV         FORM LABEL VALUE                                    POST         833          I
          -FCC1319
 POST               RJ     RLV         FORM LABEL VALUE                                    FCC1319       75     A     
 POST               SX3    1R,&1R                                                          POST         834     A     
 POST               MX1    -12                                                             POST         835     A     
 POST               BX5    X4-X3                                                           POST         836     A     
 POST               LX5    -6                                                              POST         837     A     
 POST               BX7    X1*X5                                                           POST         838     A     
 POST               S"SZ"  B1+B1       SZ = 2                                              POST         839     A     
 POST               SA7    A7+B1       TI = TI + 1;  [TI] = 8L,LABEL                       POST         840     A     
 POST                                                                                      POST         841     A     
 POST               ZR     X2,CII1     IF SFLAG = 0  */ LABEL NOT FROM SYMTAB              POST         842     A     
 POST                                                                                      POST         843     A     
 POST      CJP1     SA1    A2-B1       WORDB = WORDA - 1                                   POST         844     A     
 POST               LX1    59-P.GEN                                                        POST         845     A     
 POST               PL     X1,CII1     IF ^GEN[WORDB]  */ NOT A DO GEN LABEL               POST         846     A     
 POST               SA3    O.LOOP                                                          POST         847     A     
 POST               ZR     X3,CII1     IF O.LOOP = 0  */ NO LOOP TABLE                     POST         848     A     
 POST      CJUMPS   SPACE  3,14                                                            POST         849     A     
 POST     *         R " 0, DETERMINE THE LENGTH OF THE LOOP ASSOCIATED WITH THE            POST         850     A     
 POST     *         LABEL AND SAVE IT IN THE CORRESPOINDING LOOP TABLE ENTRY.              POST         851     A     
 POST                                                                                      POST         852     A     
 POST               SA2    A2                                                              FCC1319       76     A     
 POST               LX2    18                                                              POST         853     A     
 POST               SX2    X2-3R)AA                                                        POST         854     A     
 POST               BX4    -X0*X2                                                          POST         855     A     
 POST               SB3    X3                                                              POST         856     A     
 POST               BX2    X0*X2       LABEL = 3RXY                                        POST         857     A     
 POST               AX2    1                                                               POST         858     A     
 POST               BX4    X2+X4       INDEX = (X-1RA)*40B + Y-1RA                         POST         859     A     
 POST               LX4    1           INDEX = 2*INDEX                                     POST         860     A     
 POST               SA2    B3+X4                                                           POST         861     A     
 POST               SX7    "PC"+B1                                                         POST         862     A     
 POST               SX6    "PC"+4+2+3                                                      POST         863     A     
 POST               NZ     X7,CJP2     P = PC + SZ + 3 + IF( PC < 3 ) THEN 0 ELSE1         POST         864     A     
 POST               SX6    X6+1                                                            POST         865     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3273    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST      CJP2     AX6    2                                                               POST         866     A     
 POST               LX1    1+P.GEN-P.RA                                                    POST         867     A     
 POST               SX7    "BL"+X6     JPEND = BL + P/4                                    POST         868     A     
 POST               SX1    X1                                                              POST         869     A     
 POST               IX4    X7-X1       LPLEN[O.LOOP+INDEX] = JPEND - RA[WORDB[IH]]         POST         870     A     
 POST               BX6    X2+X4                                                           POST         871     A     
 POST               SA6    A2                                                              POST         872     A     
 POST               EQ     CII1                                                            POST         873     A     
 POST      RJXJ     SPACE  2,14                                                            POST         874     A     
 POST     *         RJXJ   JT,XI,IH #  +  JT XI,*+1    , -  RJ IH                          POST         875     A     
 POST                                                                                      POST         876     A     
 POST      .PLI     IFNE   .PLI,0                                          ?PL/I           POST         877     A     
 POST      )RJXJ    VFD    42/7L+ RJXJ ,18/1R,                                             POST         878     A     
 POST                                                                                      POST         879     A     
 POST      .RJXJ    LX5    -SI.CAP                                                         POST         880     A     
 POST               SA2    )JPX+X5                                                         POST         881     A     
 POST               MX1    -12                                                             POST         882     A     
 POST               LX2    -36                                                             POST         883     A     
 POST               BX1    -X1*X2                                                          POST         884     A     
 POST               LX1    6                                                               POST         885     A     
 POST               BX7    X3+X1                                                           POST         886     A     
 POST               SA7    A7+B1       SI = SI + 1;  [SI] = 10H  RJXJ JT,                  POST         887     A     
 POST               LX5    SI.CAP-SI.IHP                                                   POST         888     A     
 POST               SX3    1R,                                                             POST         889     A     
 POST               LX4    6                                                               POST         890     A     
 POST               BX7    X4+X3                                                           POST         891     A     
 POST               LX7    42                                                              POST         892     A     
 POST               SB4    60-18       UBC = 42                                            POST         893     A     
 POST               RJ     ASN         ADD THE NAME                                        POST         894     A     
 POST               SX6    "PC"+4                                                          POST         895     A     
 POST               ZR     X6,RJ63     IF PC = 0                                           POST         896     A     
 POST               S"PC"  -4          PC = 0                                              POST         897     A     
 POST               S"BL"  "BL"+1      BL = BL + 1                                         POST         898     A     
 POST               EQ     RJ63                                                            POST         899     A     
 POST      .PLI     ENDIF                                                  'PL/I           POST         900     A     
 POST      JIN      TITLE  UNCONDITIONAL JUMPS                                             POST         901     A     
 POST     **        INDEXED B JUMP - *  JP BI+IH *                                         POST         902     A     
 POST                                                                                      POST         903     A     
 POST      )JIN     VFD    42/5L  JP ,18/1L+                                               POST         904     A     
 POST                                                                                      POST         905     A     
 POST      .JIN     LX4    18                                                              POST         906     A     
 POST               BX6    X3+X4                                                           POST         907     A     
 POST               LX5    -SI.IHP                                                         POST         908     A     
 POST               SX7    X5                                                              POST         909     A     
 POST               NZ     X7,JIN1     IF IH[PI] " 0                                       POST         910     A     
 POST               SX4    1L -1L+                                                         POST         911     A     
 POST               MX5    -12                                                             POST         912     A     
 POST               BX6    X5*X6                                                           POST         913     A     
 POST               IX7    X6+X4                                                           POST         914     A     
 POST               SA7    A7+B1       TI = TI + 1;  [TI] = 8L  JP BI                      POST         915     A     
 POST               EQ     JIN2                                                            POST         916     A     
 POST                                                                                      POST         917     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3274    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST      JIN1     RJ     FLV         FORM LABEL VALUE                                    POST         918     A     
 POST               LX4    12                                                              POST         919     A     
 POST               MX5    -12                                                             POST         920     A     
 POST               BX3    -X5*X4                                                          POST         921     A     
 POST               BX6    X6+X3                                                           POST         922     A     
 POST               SA6    A7+B1       TI = TI + 1;  [TI] = 10H  JP BI+LA                  POST         923     A     
 POST               BX7    X5*X4                                                           POST         924     A     
 POST               SA7    A6+1        TI = TI + 1;  [TI] = 8LBEL                          POST         925     A     
 POST                                                                                      POST         926     A     
 POST     *         ADVANCE PARCEL COUNT, FORCE UPPER AFTER                                POST         927     A     
 POST                                                                                      POST         928     A     
 POST      JIN2     SX6    "PC"+B1     S = PC - 3                                          POST         929     A     
 POST               S"BL"  "BL"+B1     BL = BL + 1                                         POST         930     A     
 POST               S"PC"  -4          PC = 0        */ FORCE UPPER                        POST         931     A     
 POST               SA5    A5+B1       PI = PI + 1                                         POST         932     A     
 POST               MI     X6,CII2     IF S < 0      */ PC < 3                             POST         933     A     
 POST               S"BL"  "BL"+B1     BL = BL + 1                                         POST         934     A     
 POST               EQ     CII2                                                            POST         935     A     
 POST      UJP      SPACE  3,14                                                            POST         936     A     
 POST     **        UNCONDITIONAL JUMP - *  EQ IH  * OR *  ED IH,CA  *                     POST         937     A     
 POST                                                                                      POST         938     A     
 POST      )UJP     VFD    60/5L  EQ                                                       POST         939     A     
 POST                                                                                      POST         940     A     
 POST      .UJP     LX5    R1.INP                                                          POST         941     A     
 POST               BX6    X3                                                              POST         942     A     
 POST               SB4    X5                                                              POST         943     A     
 POST               LX5    R1.INP                                                          POST         944     A     
 POST               RJ     FLV                                                             POST         945          I
          -FCC1319
 POST               RJ     RLV         FORM LABEL VALUE                                    FCC1319       77     A     
 POST               BX7    X6                                                              POST         946     A     
 POST               LX6    X4                                                              POST         947     A     
 POST               RJ     CCC                                                             POST         948     A     
 POST               NZ     B4,UJP2     IF IN[R1] " 0                                       POST         949     A     
 POST               SB4    60-30       UBC = 60-30                                         POST         950     A     
 POST      UJP1     RJ     ADC                                                             POST         951     A     
 POST               RJ     TSB                                                             POST         952     A     
 POST               EQ     JIN2                                                            POST         953     A     
 POST                                                                                      POST         954     A     
 POST      UJP2     SA3    =5L  ED                                                         POST         955     A     
 POST               SX5    B4-B1                                                           POST         956     A     
 POST               BX7    X3                                                              POST         957     A     
 POST               SB4    60-30       UBC = 60-30                                         POST         958     A     
 POST               RJ     ADC                                                             POST         959     A     
 POST               BX6    X5                                                              POST         960     A     
 POST               RJ     CON                                                             POST         961     A     
 POST               SX5    1R,                                                             POST         962     A     
 POST               LX5    54                                                              POST         963     A     
 POST               BX6    X5+X6                                                           POST         964     A     
 POST               EQ     UJP1                                                            POST         965     A     
 POST      ENT      SPACE  3,14                                                            POST         966     A     
 POST     **        ENT - ALTERNATE ENTRY POINT DEFINITION                                 POST         967     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3275    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST     *         NOTE - A PREVIOUS *UJP* MUST HAVE FORCED UPPER, ELSE DISASTER.         POST         968          I
          -FEAT155A 
 POST                                                                                      POST         969     A     
 POST      )ENT     DATA   8L  ENTR.                                                       POST         970     A     
 POST                                                                                      POST         971     A     
 POST      .ENT     BX7    X3                                                              POST         972          I
          -FEAT155A 
 POST      .ENT     SX6    "PC"+4                                                          FEAT155A      82     A     
 POST               ZR     X6,ENT1     IF PC=0                                             FEAT155A      83     A     
 POST               S"PC"  -4          PC=0           */FORCE UPPER                        FEAT155A      84     A     
 POST               S"BL"  "BL"+1      BL=BL+1                                             FEAT155A      85     A     
 POST      ENT1     BX7    X3                                                              FEAT155A      86     A     
 POST               SB4    12          UBC = 12                                            POST         973     A     
 POST               RJ     ASN         ADD NAME                                            POST         974     A     
 POST               RJ     TSB         TERMINATE BUFFER                                    POST         975     A     
 POST               SA3    WB.LAB                                                          POST         976     A     
 POST               LX5    1                                                               POST         977     A     
 POST               SB2    X5+B1                                                           POST         978     A     
 POST               SX1    "BL"                                                            POST         979     A     
 POST               SA2    A0-B2       WORDB = [O.SYM-2*IH-1]                              POST         980     A     
 POST               LX1    P.RA                                                            POST         981     A     
 POST               MX7    -L.ADF                                                          POST         982     A     
 POST               IX4    X3+X1                                                           POST         983     A     
 POST               MX7    P.ADF                                                           POST         984     A     
 POST               BX2    X7*X2                                                           POST         985     A     
 POST               BX6    X4+X2       RA[WORDB] = BL                                      POST         986     A     
 POST               SA6    A2                                                              POST         987     A     
 POST               S"PC"  -4          PC = 0                                              POST         988     A     
 POST               SA1    =XTEMPA0.                                                       POST         989     A     
 POST               S"BL"  "BL"+3                                                          POST         990          I
          -F2950F4
 POST               ZR     X1,ENT2     BL = BL + IF( TEMPA0. = 0 ) THEN 3; ELSE 7          POST         991          I
          -F2950F4
 POST               S"BL"  "BL"+4                                                          POST         992          I
          -F2950F4
 POST               S"BL"  "BL"+4                                                          F2950F4      168     A     
 POST               ZR     X1,ENT2     BL = BL + IF( TEMPA0. = 0 ) THEN 4; ELSE 10         F2950F4      169     A     
 POST               S"BL"  "BL"+6                                                          F2950F4      170     A     
 POST                                                                                      POST         993     A     
 POST      ENT2     SA5    A5+B1       PI = PI + 1                                         POST         994     A     
 POST               EQ     CII2                                                            POST         995     A     
 POST      LAB      TITLE  LABEL DEFINATION                                                POST         996     A     
 POST     **        LABEL DEFINITION - FORCE UPPER BEFORE, DEFINE ADDRESS OF SYMBOL        POST         997     A     
 POST                                                                                      POST         998     A     
 POST      )LAB     DATA   7L BSS 0B                                                       POST         999     A     
 POST                                                                                      POST        1000     A     
 POST      .LAB     SX6    "PC"+4                                                          POST        1001     A     
 POST               ZR     X6,LAB1     IF PC = 0                                           POST        1002     A     
 POST               S"PC"  -4          PC = 0        */ FORCE UPPER BEFORE                 POST        1003     A     
 POST               S"BL"  "BL"+1      BL = BL + 1                                         POST        1004     A     
 POST                                                                                      POST        1005     A     
 POST      LAB1     SX7    X5-I.GL                                                         POST        1006     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3276    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               PL     X7,LAB2     IF IH[R1] > I.GL                                    POST        1007     A     
 POST                                                                                      POST        1008     A     
 POST               LX6    B1,X5                                                           POST        1009     A     
 POST               SX4    "BL"                                                            POST        1010     A     
 POST               SB2    X6+B1                                                           POST        1011     A     
 POST               SA2    A0-B2       WORDB = [O.SYM-2*IH[R1]-1]                          POST        1012     A     
 POST               SA1    =XWB.LAB                                                        POST        1013     A     
 POST               LX4    P.RA                                                            POST        1014     A     
 POST               IX7    X1+X4       RA[WORDB] = BL                                      POST        1015     A     
 POST               BX6    X2+X7                                                           POST        1016     A     
 POST               SA6    A2                                                              POST        1017     A     
 POST               EQ     LAB3                                                            POST        1018     A     
 POST                                                                                      POST        1019     A     
 POST      LAB2     SA1    O.GLT                                                           POST        1020     A     
 POST               SA2    =XL.ELT                                                         FCC2113       41     A     
 POST               SX6    "BL"                                                            POST        1021     A     
 POST               SB3    X7-1                                                            POST        1022     A     
 POST               SA6    X1+B3       GLT(H-1) = BL                                       POST        1023     A     
 POST               ZR     X2,LAB3     IF L.ELT = 0  */ NO ELIMINATED LABEL DEFS           FCC2113       42     A     
 POST                                                                                      FCC2113       43     A     
 POST     *         SEARCH *ELT* TO SEE IF THIS LABEL IS EQUIVALENT TO A                   FCC2113       44     A     
 POST     *         PROGRAMMER DEFINED LABEL, AND SET FLAG TO OUTPUT THE DEFINITION        FCC2113       45     A     
 POST     *         OF IT                                                                  FCC2113       46     A     
 POST                                                                                      FCC2113       47     A     
 POST               BX6    X7                                                              FCC2113       48     A     
 POST               SA1    =XO.ELT                                                         FCC2113       49     A     
 POST               SA6    X1          [ELT] = H     */ STORE SEARCH TERMINATOR            FCC2113       50     A     
 POST               SB4    X2                                                              FCC2113       51     A     
 POST               SA3    X1+B4             */ SEARCH TABLE                               FCC2113       52     A     
 POST     +         BX6    X3-X7                                                           FCC2113       53     A     
 POST               SA3    A3-B1                                                           FCC2113       54     A     
 POST               SB4    X6                                                              FCC2113       55     A     
 POST               AX6    18                                                              FCC2113       56     A     
 POST               NZ     B4,*-1                                                          FCC2113       57     A     
 POST               SA6    LABA        LABA = IH OF EQUIVALENT OR 0                        FCC2113       58     A     
 POST                                                                                      FCC2113       59     A     
 POST                                                                                      POST        1024     A     
 POST     *         OUTPUT LABEL DEFINITION - *IH BSS 0B  *                                POST        1025     A     
 POST                                                                                      POST        1026     A     
 POST      LAB3     SB4    60          UBC = 60                                            POST        1027     A     
 POST               RJ     FLV         FORM LABEL                                          POST        1028     A     
 POST               BX6    X4                                                              POST        1029     A     
 POST               RJ     CCC         COUNT CHARS                                         POST        1030     A     
 POST               SA3    )LAB                                                            POST        1031     A     
 POST               LX7    X6                                                              POST        1032     A     
 POST               SB4    B4-B3       UBC = UBC - CCC(LAB)                                POST        1033     A     
 POST               LX6    X3                                                              POST        1034     A     
 POST               SB3    42                                                              POST        1035     A     
 POST               RJ     ADC         ADD * BSS 0B*                                       POST        1036     A     
 POST               RJ     TSB                                                             POST        1037     A     
 POST               SA4    LABA                                                            FCC2113       60     A     
 POST               NZ     X4,LAB4     IF LABA " 0                                         FCC2113       61     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3277    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               SA5    A5+B1       PI = PI + 1                                         POST        1038     A     
 POST               EQ     CII2                                                            POST        1039     A     
 POST                                                                                      FCC2113       62     A     
 POST     *         OUTPUT LABEL DEF OF ELIMINATED LABEL                                   FCC2113       63     A     
 POST                                                                                      FCC2113       64     A     
 POST      LAB4     MX6    0                                                               FCC2113       65     A     
 POST               SA6    A4          CLEAR FLAG                                          FCC2113       66     A     
 POST               BX5    X4          SETUP X5                                            FCC2113       67     A     
 POST               EQ     LAB1                                                            FCC2113       68     A     
 POST                                                                                      FCC2113       69     A     
 POST      LABA     BSSZ   1                                                               FCC2113       70     A     
 POST      RJX      TITLE  RETURN JUMPS                                                    POST        1040     A     
 POST     **        RETURN JUMP - *  RJ IH  *                                              POST        1041     A     
 POST                                                                                      POST        1042     A     
 POST      )RJ3     VFD    60/5L  RJ                                                       POST        1043     A     
 POST                                                                                      POST        1044     A     
 POST      .RJ3     BX7    X3                                                              POST        1045     A     
 POST               SB4    60-30       UBC = 60-30                                         POST        1046     A     
 POST               RJ     ASN                                                             POST        1047     A     
 POST               RJ     TSB                                                             POST        1048     A     
 POST               EQ     JIN2                                                            POST        1049     A     
 POST      RJ6      SPACE  3,14                                                            POST        1050     A     
 POST     **        RETURN JUMP WITH TRACEBACK - *+ RJT IH,CA,F  *                         POST        1051     A     
 POST                                                                                      POST        1052     A     
 POST      )RJ6     VFD    60/6L+ RJT                                                      POST        1053     A     
 POST                                                                                      POST        1054     A     
 POST      .RJ6     SB2    4                                                               POST        1055     A     
 POST               BX7    X3                                                              POST        1056     A     
 POST               SX6    "PC"+B2                                                         POST        1057     A     
 POST               ZR     X6,RJ61     IF PC = 0     */ FORCE UPPER BEFORE                 POST        1058     A     
 POST               S"BL"  "BL"+B1     BL = BL + 1                                         POST        1059     A     
 POST               S"PC"  -B2         PC = 0                                              POST        1060     A     
 POST                                                                                      POST        1061     A     
 POST      RJ61     SB4    60-36       UBC = 60-36                                         POST        1062     A     
 POST               RJ     ASN         ADD NAME TO STRING                                  POST        1063     A     
 POST               LX5    -R1.INP                                                         POST        1064     A     
 POST               SX1    X5-7777B                                                        POST        1065     A     
 POST               SX6    X5                                                              POST        1066     A     
 POST               MI     X1,RJ62     IF IN[R1] < 7777B                                   POST        1067     A     
 POST               S"BL"  "BL"+B1     BL = BL + 1   */ ACCOUNT FOR EXTRA WORD             POST        1068     A     
 POST                                                                                      POST        1069     A     
 POST      RJ62     RJ     CON         CONVERT LINE NUMBER                                 POST        1070     A     
 POST               SX4    1R,                                                             POST        1071     A     
 POST               LX4    54                                                              POST        1072     A     
 POST               BX6    X4+X6                                                           POST        1073     A     
 POST               RJ     ADC                                                             POST        1074     A     
 POST               PL     B6,RJ63     IF FPFLAG = 0                                       POST        1075     A     
 POST               SB2    B6-B1                                                           POST        1076     A     
 POST               SX1    B1                                                              POST        1077     A     
 POST               SA2    A0+B2       WORDB = [O.SYM-2*IH-1]                              POST        1078     A     
 POST               SB6    RTT                                                             POST        1079     A     
 POST               LX1    P.RA                                                            POST        1080     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3278    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               IX6    X1+X2       RA[IH] = RA[IH] + 1                                 POST        1081     A     
 POST               SA6    A2                                                              POST        1082     A     
 POST               SA6    LSR         LSR = WORDB   */ INDICATE SUB REFS                  POST        1083     A     
 POST               SB3    12                                                              POST        1084     A     
 POST               SX6    2R,F                                                            POST        1085     A     
 POST               LX6    48                                                              POST        1086     A     
 POST               RJ     ADC         ADD *,F*                                            POST        1087     A     
 POST                                                                                      POST        1088     A     
 POST      RJ63     RJ     TSB         TERMINATE STRING                                    POST        1089     A     
 POST               SA5    A5+B1       PI = PI + 1                                         POST        1090     A     
 POST               S"BL"  "BL"+B1     BL = BL + 1   */ COUNT LENGTH OF RJ                 POST        1091     A     
 POST               EQ     CII2                                                            POST        1092     A     
 POST      ASN      TITLE  ASN - ADD SYMBOLIC NAME                                         POST        1093     A     
 POST     **        ASN - ADD SYMBOLIC NAME TO CHAR STRING                                 POST        1094     A     
 POST     *         ENTRY  (X5) = SHIFT( [PI] , -SI.IHP )                                  POST        1095     A     
 POST     *                (B4) = UBC , ETC                                                POST        1096     A     
 POST     *                                                                                POST        1097     A     
 POST     *         EXIT   (B6) = FPFLAG < 0 IF SYMBOL WAS A F.P.                          POST        1098     A     
 POST     *                                                                                POST        1099     A     
 POST     *         USES   X - 1, 2, 3, 4, 6 , B - 2, 3                                    POST        1100     A     
 POST                                                                                      POST        1101     A     
 POST      ASN0     BX3    X6                                                              POST        1102     A     
 POST               SA4    =6R000000                                                       POST        1103     A     
 POST               AX3    IH.IP                                                           POST        1104     A     
 POST               SA1    ASNA+X3                                                         POST        1105     A     
 POST               MX2    -3                                                              POST        1106     A     
 POST               SB2    B0                                                              POST        1107     A     
 POST               MX3    -IH.HL                                                          POST        1108     A     
 POST               SB3    60                                                              POST        1109     A     
 POST               BX6    -X3*X5                                                          POST        1110     A     
 POST                                                                                      POST        1111     A     
 POST      ASN1     BX3    -X2*X6                                                          POST        1112     A     
 POST               AX6    3                                                               POST        1113     A     
 POST               LX3    B2,X3                                                           POST        1114     A     
 POST               IX4    X3+X4                                                           POST        1115     A     
 POST               SB2    B2+6                                                            POST        1116     A     
 POST               NZ     X6,ASN1                                                         POST        1117     A     
 POST                                                                                      POST        1118     A     
 POST               SB3    B3-B2                                                           POST        1119     A     
 POST               LX4    B3,X4                                                           POST        1120     A     
 POST               MX6    30                                                              POST        1121     A     
 POST               BX4    X6*X4                                                           POST        1122     A     
 POST               LX4    -18                                                             POST        1123     A     
 POST               BX6    X1+X4                                                           POST        1124     A     
 POST               SB3    B2+18                                                           POST        1125     A     
 POST      ASN2     RJ     ADC         ADD NAME TO STRING                                  POST        1126     A     
 POST                                                                                      POST        1127     A     
 POST      ASN      ROUTINE                                                                POST        1128     A     
 POST               SX6    X5-I.GL                                                         POST        1129     A     
 POST               PL     X6,ASN0     IF IH[PI] \ I.GL                                    POST        1130     A     
 POST                                                                                      POST        1131     A     
 POST               SB3    X5                                                              POST        1132          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3279    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
          -FCC0882
 POST               MX1    -12                                                             FCC0882       14     A     
 POST               BX6    -X1*X5                                                          FCC0882       15     A     
 POST               SB3    X6                                                              FCC0882       16     A     
 POST               SB2    B3+B3                                                           POST        1133     A     
 POST               MX1    -18                                                             POST        1134     A     
 POST               SA2    A0-B2       WORDA = [O.SYM-2*IH[PI]]                            POST        1135     A     
 POST               SA3    =3R                                                             POST        1136     A     
 POST               BX4    X1*X2                                                           POST        1137     A     
 POST             MX1      -24                                                             FCC1576X       4     A     
 POST               LX2    59-P.FP                                                         POST        1138     A     
 POST               BX1    -X1*X4                                                          FCC1576X       5     A     
 POST               PL     X2,ASN3     IF ^FP[WORDA]                                       POST        1139     A     
 POST               SB6    -B2         FPFLAG = -2*IH[PI]                                  POST        1140     A     
 POST                                                                                      POST        1141     A     
 POST      ASN3     BX6    X4+X3                                                           POST        1142          I
          -FCC1576X 
 POST      ASN3     NZ     X1,ASN4     IF CHAR 7 " 0                                       FCC1576X       6     A     
 POST               SA3    =4R                                                             FCC1576X       7     A     
 POST      ASN4     BX6    X4+X3                                                           FCC1576X       8     A     
 POST               RJ     CCC         COUNT CHARS                                         POST        1143     A     
 POST               EQ     ASN2                                                            POST        1144     A     
 POST                                                                                      POST        1145     A     
 POST      ASNA     LIT    3L#GL,3L[AP,3L]IO                                               POST        1146     A     
 POST      FLV      TITLE  FLV - FORM LABEL VALUE                                          POST        1147     A     
 POST     **        FLV - FORM LABEL VALUE                                                 POST        1148     A     
 POST     *                                                                                POST        1149     A     
 POST     *         ENTRY  (X5) = SHIFT( [PI] , -SI.IHP )                                  POST        1150     A     
 POST     *                                                                                POST        1151     A     
 POST     *         EXIT   (X4) = 10HLABEL                                                 POST        1152     A     
 POST     *                (X2) = 0 IF LABEL NOT FROM SYMTAB, ELSE (A2) = WORDA            POST        1153     A     
 POST     *                                                                                POST        1154     A     
 POST     *         USES   X - 1, 2, 3, 4, 5, 7 , B - 2,3                                  POST        1155     A     
 POST                                                                                      POST        1156     A     
 POST      FLV0     SB3    X5                                                              POST        1157     A     
 POST               SA1    =4R                                                             POST        1158     A     
 POST               SB2    B3+B3                                                           POST        1159     A     
 POST               SA2    A0-B2       WORDA = [O.SYM-2*IH[PI]]                            POST        1160     A     
 POST               MX7    36                                                              POST        1161     A     
 POST               BX5    X7*X2                                                           POST        1162     A     
 POST               BX4    X5+X1                                                           POST        1163     A     
 POST      FLV      ROUTINE                                                                POST        1164     A     
 POST               SX7    X5-I.GL                                                         POST        1165     A     
 POST               MI     X7,FLV0     IF IH[PI] < I.GL                                    POST        1166     A     
 POST               SA1    =3L#GL                                                          POST        1167     A     
 POST               RJ     COD         CONVERT H FIELD TO DIGITS                           POST        1168     A     
 POST               SB3    B2-42                                                           POST        1169     A     
 POST               SA3    =10H                                                            POST        1170     A     
 POST               AX4    B3,X4                                                           POST        1171     A     
 POST               MX7    18                                                              POST        1172     A     
 POST               BX4    X1+X4       GLNNN                                               POST        1173     A     
 POST               AX7    B2,X7                                                           POST        1174     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3280    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               BX2    -X7*X3                                                          POST        1175     A     
 POST               BX4    X2+X4                                                           POST        1176     A     
 POST               SX2    0                                                               POST        1177     A     
 POST               EQ     FLV                                                             POST        1178     A     
 POST                                                                                      FCC1319       78     A     
 POST     **        RLV - FROM REFERENCED LABEL VALUE, SAME AS *FLV*, EXCEPT IT            FCC1319       79     A     
 POST     *         CHECKS THE *LC* BIT FOR A LABEL SUBSTITUTION.                          FCC1319       80     A     
 POST                                                                                      FCC1319       81     A     
 POST      RLV0     SA1    =3L#GL                                                          FCC1319       82     A     
 POST               RJ     COD                                                             FCC1319       83     A     
 POST               SA3    =10H                                                            FCC1319       84     A     
 POST               SB3    B2-42                                                           FCC1319       85     A     
 POST               AX4    B3,X4                                                           FCC1319       86     A     
 POST               MX7    18                                                              FCC1319       87     A     
 POST               BX4    X1+X4       #GLNNN                                              FCC1319       88     A     
 POST               AX7    B2,X7                                                           FCC1319       89     A     
 POST               BX2    -X7*X3                                                          FCC1319       90     A     
 POST               BX4    X2+X4       PAD WITH BLANKS                                     FCC1319       91     A     
 POST               SX2    0           X2 = 0                                              FCC1319       92     A     
 POST      RLV      ROUTINE                                                                FCC1319       93     A     
 POST               SX7    X5-I.GL                                                         FCC1319       94     A     
 POST               PL     X7,RLV0     IF IH[PI] \ I.GL                                    FCC1319       95     A     
 POST               SB3    X5                                                              FCC1319       96     A     
 POST               SB2    B3+B3                                                           FCC1319       97     A     
 POST               SA2    A0-B2       WORDA = SYM(IH)                                     FCC1319       98     A     
 POST               MX7    36                                                              FCC1319       99     A     
 POST               SA1    =4R                                                             FCC1319      100     A     
 POST               BX5    X7*X2                                                           FCC1319      101     A     
 POST               LX2    59-P.LC                                                         FCC1319      102     A     
 POST               BX4    X5+X1                                                           FCC1319      103     A     
 POST               PL     X2,RLV      IF ^LC[WORDA]                                       FCC1319      104     A     
 POST                                                                                      FCC1319      105     A     
 POST     *         CHECK *LCT* AND *BN* TO SEE IF THIS REFERENCE TO THE LABEL             FCC1319      106     A     
 POST     *         IS FROM INSIDE THE LOOP FOR WHICH THE LABEL WAS CHANGED.               FCC1319      107     A     
 POST                                                                                      FCC1319      108     A     
 POST               SA2    A2-B1       WORDB = WORDA - 1                                   FCC1319      109     A     
 POST               MX7    -L.LCO                                                          FCC1319      110     A     
 POST               BX3    -X7*X2      L = LCO[WORDB]                                      FCC1319      111     A     
 POST               SA1    O.LCT                                                           FCC1319      112     A     
 POST               SA2    O.BIT                                                           FCC1319      113     A     
 POST               SB2    X1                                                              FCC1319      114     A     
 POST               SB3    X2                                                              FCC1319      115     A     
 POST      RLV1     SA1    B2+X3       LCW = LCT(L)                                        FCC1319      116     A     
 POST               SA3    BN          K = BN                                              FCC1319      117     A     
 POST               MX5    -BI.OLNL                                                        FCC1319      118     A     
 POST                                                                                      FCC1319      119     A     
 POST      RLV2     BX7    X1-X3                                                           FCC1319      120     A     
 POST               BX7    -X5*X7                                                          FCC1319      121     A     
 POST               ZR     X7,RLV3     IF K = HBN[LCW]                                     FCC1319      122     A     
 POST               SA3    B3+X3                                                           FCC1319      123     A     
 POST               LX3    -BI.OLNP                                                        FCC1319      124     A     
 POST               BX3    -X5*X3      K = OLN[BIT(K)]                                     FCC1319      125     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3281    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               NZ     X3,RLV2     IF K " 0                                            FCC1319      126     A     
 POST                                                                                      FCC1319      127     A     
 POST               LX1    -LC.NEXTP                                                       FCC1319      128     A     
 POST               SX3    X1          L = NEXT[LCW]                                       FCC1319      129     A     
 POST               NZ     X3,RLV1     IF L " 0      */ NOT END OF CHAIN                   FCC1319      130     A     
 POST               EQ     RLV                                                             FCC1319      131     A     
 POST                                                                                      FCC1319      132     A     
 POST      RLV3     LX1    -LC.GLNP                                                        FCC1319      133     A     
 POST               SX7    X1          H = GLN[LCW]  */ CHANGE TO A *GL*                   FCC1319      134     A     
 POST               EQ     RLV0                                                            FCC1319      135     A     
 POST      COD      SPACE  2           COD                                                 POST        1179     A     
 POST     **        COD - CONVERT OCTAL DIGITS                                             POST        1180     A     
 POST     *                                                                                POST        1181     A     
 POST     *         ENTRY  (X7) = BINARY NUMBER                                            POST        1182     A     
 POST     *                                                                                POST        1183     A     
 POST     *         EXIT   (X4) = RIGHT JUSTIFIED BCD STRING                               POST        1184     A     
 POST     *                (B2) = 6*DIGIT COUNT                                            POST        1185     A     
 POST     *                                                                                POST        1186     A     
 POST     *         USES   X - 2, 3, 4, 5, 7                                               POST        1187     A     
 POST                                                                                      POST        1188     A     
 POST      COD      ROUTINE                                                                POST        1189     A     
 POST               SA4    =6R000000                                                       POST        1190     A     
 POST               MX2    -3                                                              POST        1191     A     
 POST               SB2    B0                                                              POST        1192     A     
 POST      COD1     BX5    -X2*X7                                                          POST        1193     A     
 POST               LX3    B2,X5                                                           POST        1194     A     
 POST               IX4    X3+X4                                                           POST        1195     A     
 POST               AX7    3                                                               POST        1196     A     
 POST               SB2    B2+6                                                            POST        1197     A     
 POST               NZ     X7,COD1                                                         POST        1198     A     
 POST               MX7    1                                                               POST        1199     A     
 POST               SB3    B2-59                                                           POST        1200     A     
 POST               LX7    B3,X7                                                           POST        1201     A     
 POST               BX4    -X7*X4                                                          POST        1202     A     
 POST               EQ     COD                                                             POST        1203     A     
 POST      ADC      SPACE  3,14        ADC                                                 POST        1204     A     
 POST     **        ADC - ADD CHARACTERS TO STRING                                         POST        1205     A     
 POST     *                                                                                POST        1206     A     
 POST     *         ENTRY  (X6) = CHAR STRING                                              POST        1207     A     
 POST     *                (B3) = BIT COUNT OF CHARS IN STRING                             POST        1208     A     
 POST     *                (X7) = ASSEMBLED STRING, 0L FORMAT                              POST        1209     A     
 POST     *                (B4) = UBC , UNUSED BIT COUNT ( FOR X7 )                        POST        1210     A     
 POST     *                                                                                POST        1211     A     
 POST     *         USES   X - 1, 2, 3, 4, 6 , B - 2                                       POST        1212     A     
 POST                                                                                      POST        1213     A     
 POST      ADC      ROUTINE                                                                POST        1214     A     
 POST               SB2    B4-B1                                                           POST        1215     A     
 POST               MX4    1                                                               POST        1216     A     
 POST               AX4    B2,X4                                                           POST        1217     A     
 POST               BX3    X4*X6                                                           POST        1218     A     
 POST               LX2    B4,X3                                                           POST        1219     A     
 POST               BX7    X2+X7                                                           POST        1220     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3282    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               BX1    -X4*X6                                                          POST        1221     A     
 POST               LX6    B4,X1                                                           POST        1222     A     
 POST               SB4    B4-B3       UBC = UBC - CC                                      POST        1223     A     
 POST               GT     B4,ADC      IF UBC > 0                                          POST        1224     A     
 POST               SA7    A7+B1       TI = TI + 1;  [TI] = STRING                         POST        1225     A     
 POST               SB4    B4+60       UBC = UBC + 60                                      POST        1226     A     
 POST               BX7    X6                                                              POST        1227     A     
 POST               EQ     ADC                                                             POST        1228     A     
 POST      CCC      SPACE  3,14        CCC                                                 POST        1229     A     
 POST     **        CCC - COUNT CHARS IN LEFT JUSTIFIED BLANK FILLED STRING                POST        1230     A     
 POST     *                ALGORITHM IS A VARIANT OF *SFN* ( SPACE FILL NAME )             POST        1231     A     
 POST     *                                                                                POST        1232     A     
 POST     *         ENTRY  (X6) = STRING TO BE ADDED ( @ 8 CHARS )                         POST        1233     A     
 POST     *                                                                                POST        1234     A     
 POST     *         EXIT   (B3) = 6*CHAR COUNT                                             POST        1235     A     
 POST     *                (X6) = 0L_STRING  ( TRAILING BLANKS REMOVED )                   POST        1236     A     
 POST     *                                                                                POST        1237     A     
 POST     *         USES   X - 1, 2, 3, 4 , B - 3                                          POST        1238     A     
 POST                                                                                      POST        1239     A     
 POST      CCC      ROUTINE                                                                POST        1240     A     
 POST               SA1    =1H                                                             POST        1241     A     
 POST               SB3    60-5                                                            POST        1242     A     
 POST               BX2    X1-X6                                                           POST        1243     A     
 POST               SX3    B1                                                              POST        1244     A     
 POST               SA1    =40404040404040404040B                                          POST        1245     A     
 POST               IX4    X2-X3       10LXXXX-177...                                      POST        1246     A     
 POST               BX3    -X4+X2      77...774X00...00                                    POST        1247     A     
 POST               BX4    X1*X3                                                           POST        1248     A     
 POST               LX3    B3,X4                                                           POST        1249     A     
 POST               IX2    X4-X3       373700..00                                          POST        1250     A     
 POST               BX1    X2+X4       7777770...0                                         POST        1251     A     
 POST               BX6    X1*X6                                                           POST        1252     A     
 POST               AX1    12                                                              POST        1253     A     
 POST               BX2    -X1                                                             POST        1254     A     
 POST               PX3    X2                                                              POST        1255     A     
 POST               NX4    B3,X3                                                           POST        1256     A     
 POST               EQ     CCC                                                             POST        1257     A     
 POST      CON      SPACE  3,14        CON                                                 POST        1258     A     
 POST     **        CON - CONVERT OCTAL NUMBER                                             POST        1259     A     
 POST     *                                                                                POST        1260     A     
 POST     *         ENTRY  (X6) = BINARY NUMBER                                            POST        1261     A     
 POST     *                                                                                POST        1262     A     
 POST     *         EXIT   (X6) = 0L;NNNNB                                                 POST        1263     A     
 POST     *                (B3) = 6*CHAR COUNT                                             POST        1264     A     
 POST     *                                                                                POST        1265     A     
 POST     *         USES   X - 2, 3, 4, 6  , B - 2, 3                                      POST        1266     A     
 POST                                                                                      POST        1267     A     
 POST      CON      ROUTINE                                                                POST        1268     A     
 POST               SA3    CONA                                                            POST        1269     A     
 POST               MX2    -3                                                              POST        1270     A     
 POST               UX4    B3,X3                                                           POST        1271     A     
 POST                                                                                      POST        1272     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3283    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST      CON1     BX3    -X2*X6                                                          POST        1273     A     
 POST               LX3    B3,X3                                                           POST        1274     A     
 POST               IX4    X3+X4                                                           POST        1275     A     
 POST               AX6    3                                                               POST        1276     A     
 POST               SB3    B3+6                                                            POST        1277     A     
 POST               NZ     X6,CON1                                                         POST        1278     A     
 POST                                                                                      POST        1279     A     
 POST               MX6    1                                                               POST        1280     A     
 POST               SB2    B3-59                                                           POST        1281     A     
 POST               AX2    -B2,X6                                                          POST        1282     A     
 POST               BX4    -X2*X4                                                          POST        1283     A     
 POST               SB2    B3-54                                                           POST        1284     A     
 POST               LX6    -B2,X4                                                          POST        1285     A     
 POST               SB3    B3+6                                                            POST        1286     A     
 POST               EQ     CON                                                             POST        1287     A     
 POST                                                                                      POST        1288     A     
 POST      CONA     VFD    12/2006B,48/7R000000B                                           POST        1289     A     
 POST      TSB      SPACE  3,14        TSB                                                 POST        1290     A     
 POST     **        TSB - TERMINATE STRING BUFFER                                          POST        1291     A     
 POST     *                                                                                POST        1292     A     
 POST     *         ENTRY  (X7) = LAST WORD OF ASSEMBLED STRING                            POST        1293     A     
 POST     *                (B4) = UNUSED BIT COUNT                                         POST        1294     A     
 POST                                                                                      POST        1295     A     
 POST      TSB0     BX4    X4*X2                                                           POST        1296     A     
 POST               BX7    X7+X4                                                           POST        1297     A     
 POST               SA7    A7+1                                                            POST        1298     A     
 POST      TSB      ROUTINE                                                                POST        1299     A     
 POST               SB3    B4-12                                                           POST        1300     A     
 POST               SA1    =1H                                                             POST        1301     A     
 POST               SB4    B4-59                                                           POST        1302     A     
 POST               MX2    1                                                               POST        1303     A     
 POST               AX3    -B4,X2                                                          POST        1304     A     
 POST               BX2    -X3*X1                                                          POST        1305     A     
 POST               MX4    -12                                                             POST        1306     A     
 POST               GE     B3,TSB0     IF UBC \ 12                                         POST        1307     A     
 POST               BX6    X2+X7                                                           POST        1308     A     
 POST               SA6    A7+B1                                                           POST        1309     A     
 POST               BX7    X4*X1                                                           POST        1310     A     
 POST               SA7    A6+B1                                                           POST        1311     A     
 POST               EQ     TSB                                                             POST        1312     A     
 POST      JUMPT    TITLE  OPCODE JUMP TABLE VECTOR                                        POST        1313     A     
 POST     **        OPR - DEFINE OPR MACRO TO FORM JUMP TABLE ENTRIES                      POST        1314     A     
 POST                                                                                      POST        1315     A     
 POST               MACRO  OPR,NAM                                                         POST        1316     A     
 POST      X        IFGE   OC.NAM,OC.LAB                                                   POST        1317     A     
 POST      X        IFLT   OC.NAM,OC.CLR                                                   POST        1318     A     
 POST               NOREF  )NAM,.NAM                                                       POST        1319     A     
 POST               SA3    )NAM                                                            POST        1320     A     
 POST               EQ     .NAM                                                            POST        1321     A     
 POST      X        ENDIF                                                                  POST        1322     A     
 POST               ENDM                                                                   POST        1323     A     
 POST                                                                                      POST        1324     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3284    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST      CIIA     BSS    0                                                               POST        1325     A     
 POST               LIST   -R                                                              POST        1326     A     
 POST               LOC    OC.LAB                                                          POST        1327     A     
 POST     *CALL     OPRDEFS                                                                POST        1328     A     
 POST               LOC    *O                                                              POST        1329     A     
 POST               LIST   R                                                               POST        1330     A     
 POST      OTC      TITLE  OTC- OUTPUT TERMINAL CODE                                       POST        1331     A     
 POST     **        OTC - OUTPUT TERMINAL CODE                                             POST        1332     A     
 POST     *                                                                                POST        1333     A     
 POST     *         OUTPUT CODE FOR -                                                      POST        1334     A     
 POST     *                APLISTS                                                         POST        1335     A     
 POST     *                STORAGE FOR TEMPORARIES                                         POST        1336     A     
 POST     *                VARDIM INITIALIZATION CODE                                      POST        1337     A     
 POST     *                TERMINATE F.P. SUBSTITUTION LISTS                               POST        1338     A     
 POST     *                ISSUE LEVEL 2/3 ADDRESS WORDS                                   POST        1339     A     
 POST                                                                                      POST        1340     A     
 POST      OTC      ENTRY.                                                                 POST        1341     A     
 POST               RJ     FSU         FORCE CODE. UPPER                                   POST        1342     A     
 POST               RJ     OPL         OUTPUT PARAMETER LIST CODE                          POST        1343     A     
 POST               RJ     OVC         OUTPUT VARDIM CODE                                  POST        1344     A     
 POST               RJ     IST         ISSUE STORAGE FOR TEMPS                             POST        1345     A     
 POST               RJ     TSL         TERMINATE F.P. SUBSTITUTION LISTS                   POST        1346     A     
 POST               RJ     ILW         ISSUE LEVEL WORDS                                   POST        1347     A     
 POST               RJ     FSU         FORCE CURRENT BLOCK UPPER                           POST        1348     A     
 POST               SA1    BLEN                                                            POST        1349     A     
 POST               SA2    BLPTR                                                           POST        1350     A     
 POST               BX6    X1          [BLPTR] = BLEN  */ SAVE LENGTH OF LAST BLOCK        POST        1351     A     
 POST               SA6    X2                                                              POST        1352     A     
 POST               EQ     OTC                                                             POST        1353     A     
 POST      AI       SPACE  3                                                               POST        1354     A     
 POST     **        AI. - APLIST INDEX TABLE ENTRY FORMAT                                  POST        1355     A     
 POST                                                                                      POST        1356     A     
 POST               DESCRIBE AI.,60                                                        POST        1357     A     
 POST      EQV      DEFINE 1           "0 IF EQUIVALENCED TO ANOTHER APLIST                POST        1358     A     
 POST               DEFINE 5                                                               POST        1359     A     
 POST      LINK     DEFINE 18          LINK TO NEXT IN EQV CHAIN                           POST        1360     A     
 POST      LEN      DEFINE 18          NUMBER OF ENTRIES IN APLIST                         POST        1361     A     
 POST      INDX     DEFINE 18          INDEX TO LWA+1 IN *APL*                             POST        1362     A     
 POST                                                                                      POST        1363     A     
 POST      BIAS     DEQU   LEN         BIAS FOR EQUIV ENTRIES                              POST        1364     A     
 POST      ORD      DEQU   INDX        ORDINAL OF EQUIVALENT                               POST        1365     A     
 POST      OPL      TITLE  OPL - OUTPUT PARAMETER LISTS                                    POST        1366     A     
 POST     **        OPL - OUTPUT PARAMETER LISTS ( AP LISTS )                              POST        1367     A     
 POST                                                                                      POST        1368     A     
 POST               USE    /TABLES/                                                        POST        1369     A     
 POST      EAC      BSS    1           EQUIV APLIST CHAIN                                  POST        1370     A     
 POST      AI       BSS    2           LOOP INDEX AND LIMIT                                POST        1371     A     
 POST      OPLA     BSS    2*64        WORKING STORAGE BUFFER                              POST        1372     A     
 POST               USE    0                                                               POST        1373     A     
 POST                                                                                      POST        1374     A     
 POST      OPLI     LX5    1+AP.STP                                                        POST        1375     A     
 POST               RJ     AAN         PLUG FOR INDIRECT MODE                              POST        1376     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3285    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST                                                                                      POST        1377     A     
 POST     OPL       ROUTINE                                                                POST        1378     A     
 POST               SA1    =XLEVEL                                                         POST        1379          I
          -FCC0504
 POST               SA1    =XLEVEL2                                                        FCC0504       20     A     
 POST               ZR     X1,OPL0     IF NO LEVEL STATEMENTS                              POST        1380     A     
 POST               SA2    OPLI                                                            POST        1381     A     
 POST               BX6    X2          [OPL5] = OPLI  */ PLUG THE RJ                       POST        1382     A     
 POST               SA6    OPL5                                                            POST        1383     A     
 POST                                                                                      POST        1384     A     
 POST      OPL0     ALLOC  TXT,400     ALLOC( TXT , 400 )                                  POST        1385     A     
 POST               SA1    O.API                                                           POST        1386     A     
 POST               SA2    N.AP                                                            POST        1387     A     
 POST               BX6    X1          AI = O.API                                          POST        1388     A     
 POST               IX7    X1+X2       AL = O.API + N.AP                                   POST        1389     A     
 POST               ZR     X2,OPL14    IF N.AP = 0                                         POST        1390          I
          -RSM3545C 
 POST               ZR     X2,OPL      IF N.AP = 0, EXIT..                                 RSM3545C     161     A     
 POST               SA6    AI                                                              POST        1391     A     
 POST               SA7    A6+B1                                                           POST        1392     A     
 POST               MX7    0                                                               POST        1393     A     
 POST               SA7    EAC         EAC = 0                                             POST        1394     A     
 POST                                                                                      POST        1395     A     
 POST     *         LOOP ON *API* AND OUTPUT THE APLISTS                                   POST        1396     A     
 POST                                                                                      POST        1397     A     
 POST               SA2    AI                                                              POST        1398     A     
 POST      OPL1     SA1    X2          AP = [AI]                                           POST        1399     A     
 POST               LX1    59-AI.EQVP                                                      POST        1400     A     
 POST               PL     X1,OPL3     IF ^EQV[AP]                                         POST        1401     A     
 POST                                                                                      POST        1402     A     
 POST               SA4    EAC                                                             POST        1403     A     
 POST               LX4    AI.LINKP                                                        POST        1404     A     
 POST               LX1    1+AI.EQVP                                                       POST        1405     A     
 POST               BX6    X1+X4       LINK[AP] = EAC                                      POST        1406     A     
 POST               SA6    A1                                                              POST        1407     A     
 POST               SX7    X2          EAC = AI                                            POST        1408     A     
 POST               SX2    X2+B1       AI = AI + 1                                         POST        1409     A     
 POST               SA7    A4                                                              POST        1410     A     
 POST                                                                                      POST        1411     A     
 POST      OPL2     SA5    A2+B1                                                           POST        1412     A     
 POST               IX0    X2-X5                                                           POST        1413     A     
 POST               MI     X0,OPL1     IF AI < AL                                          POST        1414     A     
 POST               EQ     OPL11                                                           POST        1415     A     
 POST                                                                                      POST        1416     A     
 POST     *         SETUP REGISTERS, OUTPUT APLIST LABEL DEF - *[APNNN BSS 0B *            POST        1417     A     
 POST                                                                                      POST        1418     A     
 POST      OPL3     SA5    O.APL                                                           POST        1419     A     
 POST               SA3    O.TXT                                                           POST        1420     A     
 POST               LX1    1+AI.EQVP-AI.INDXP                                              POST        1421     A     
 POST               SA4    O.API                                                           POST        1422     A     
 POST               IX6    X1+X5                                                           POST        1423     A     
 POST               SB7    X6          II = O.APL + INDX[AP]                               POST        1424     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3286    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               SX6    X2+B1       AI = AI + 1                                         POST        1425     A     
 POST               IX7    X6-X4       N = AI - O.API                                      POST        1426     A     
 POST               SA6    A2                                                              POST        1427     A     
 POST               LX1    AI.INDXP-AI.LENP                                                POST        1428     A     
 POST               SA7    X3+B1       SI = O.TXT + 1                                      POST        1429     A     
 POST               SB6    A7+B1       TI = SI + 1   */ START OF BUFFER                    POST        1430     A     
 POST               SA3    BLEN                                                            POST        1431     A     
 POST               BX6    X3          [AP] = BLEN   */ DEFINE ADDR                        POST        1432     A     
 POST               SA6    A1                                                              POST        1433     A     
 POST               SB5    X1+B1       LI = LEN[AP] + 1                                    POST        1434     A     
 POST               SX6    X6+B5       BLEN = BLEN + LI  */ ADVANCE BLOCK LENGTH           POST        1435     A     
 POST               SA6    A3                                                              POST        1436     A     
 POST               RJ     COD         CONVERT DIGITS                                      POST        1437     A     
 POST               SA2    =3L[AP                                                          POST        1438     A     
 POST               SA3    )LAB                                                            POST        1439     A     
 POST               SB3    42                                                              POST        1440     A     
 POST               SB4    B3-B2       UBC = 42 - CC(NNN)                                  POST        1441     A     
 POST               LX4    B4,X4                                                           POST        1442     A     
 POST               BX7    X4+X2                                                           POST        1443     A     
 POST               LX6    X3                                                              POST        1444     A     
 POST               RJ     ADC         FORMAT *[APNNN BSS 0B*                              POST        1445     A     
 POST               RJ     TSB                                                             POST        1446     A     
 POST               SA1    O.SYM                                                           POST        1447     A     
 POST               SA0    X1                                                              POST        1448     A     
 POST                                                                                      POST        1449     A     
 POST     *         OUTPUT THE PARAMTERS,  *  APL  SYM+CA*                                 POST        1450     A     
 POST                                                                                      POST        1451     A     
 POST      OPL4     SB5    B5-B1       LI = LI - 1                                         POST        1452     A     
 POST               SA3    =10H  APL                                                       POST        1453     A     
 POST               SA5    B7-B5       AW = [II-LI]                                        POST        1454     A     
 POST               SB4    60                                                              POST        1455     A     
 POST               BX7    X3                                                              POST        1456     A     
 POST               SA7    A7+B1                                                           POST        1457     A     
 POST               SX6    X5                                                              POST        1458     A     
 POST               MX7    0                                                               POST        1459     A     
 POST               LX5    59-AP.STP                                                       POST        1460     A     
 POST               PL     X5,OPL5     IF ^ST[AW]    */ NOT A -0 WORD                      POST        1461     A     
 POST               SA3    =8L-0B                                                          POST        1462     A     
 POST               BX7    X3                                                              POST        1463     A     
 POST               SA7    A7+B1                                                           POST        1464     A     
 POST               EQ     OPL8                                                            POST        1465     A     
 POST                                                                                      POST        1466     A     
 POST      OPL5     LX5    1+AP.STP                                                        POST        1467     A     
 POST               RJ     ASN         ADD THE NAME                                        POST        1468     A     
 POST               LX5    -AP.CAP                                                         POST        1469     A     
 POST               SX6    X5                                                              POST        1470     A     
 POST               ZR     X6,OPL7     IF CA = 0                                           POST        1471     A     
 POST               SX1    1R+                                                             POST        1472     A     
 POST               PL     X6,OPL6     IF CA > 0                                           POST        1473     A     
 POST               SX1    1R-                                                             POST        1474     A     
 POST               BX6    -X6                                                             POST        1475     A     
 POST      OPL6     LX1    54                                                              POST        1476     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3287    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               RJ     CON         CONVERT NUMBER                                      POST        1477     A     
 POST               BX6    X1+X6                                                           POST        1478     A     
 POST               RJ     ADC         +-NNNB TO STRING                                    POST        1479     A     
 POST                                                                                      POST        1480     A     
 POST      OPL7     RJ     TSB                                                             POST        1481     A     
 POST               PL     B6,OPL8     IF FPFLAG = 0 */ IH NOT AN F.P.                     POST        1482     A     
 POST               SA5    A5                                                              POST        1483     A     
 POST               SX6    B1          LSR = 1                                             POST        1484     A     
 POST               SA6    LSR                                                             POST        1485     A     
 POST               RJ     OSM         OUTPUT *SUB* MACRO                                  POST        1486     A     
 POST               SA3    O.TXT                                                           POST        1487     A     
 POST               SB6    X3+2        TI = [O.TXT] + 2                                    POST        1488     A     
 POST                                                                                      POST        1489     A     
 POST      OPL8     GT     B5,B1,OPL4  IF LI > 1                                           POST        1490     A     
 POST                                                                                      POST        1491     A     
 POST               SA3    =10H  APL                                                       POST        1492     A     
 POST               MX4    -12                                                             POST        1493     A     
 POST               BX7    X4*X3                                                           POST        1494     A     
 POST               SA7    A7+B1       OUTPUT *  APL   *   */ PARAM LIST TERM              POST        1495     A     
 POST                                                                                      POST        1496     A     
 POST               SB4    A7+B1                                                           POST        1497     A     
 POST               WLIC   B6,B4-B6    WRITE LINE IMAGES TO *COMPS*                        POST        1498     A     
 POST               SA2    AI                                                              POST        1499     A     
 POST               EQ     OPL2                                                            POST        1500     A     
 POST      OPL      SPACE  3,14                                                            POST        1501     A     
 POST     **        OUTPUT APLIST EQUIVALENCES                                             POST        1502     A     
 POST                                                                                      POST        1503     A     
 POST      OPL11    SA1    EAC                                                             POST        1504     A     
 POST               ZR     X1,OPL14    IF EAC = 0                                          POST        1505          I
          -RSM3545C 
 POST               ZR     X1,OPL      IF EAC = 0, EXIT..                                  RSM3545C     162     A     
 POST               SA2    O.API                                                           POST        1506     A     
 POST               SB6    X2-1        BASE = O.API - 1                                    POST        1507     A     
 POST               SA5    X1          I = EAC;  AJ = [I]                                  POST        1508     A     
 POST               SX0    A5-B6       N = I - BASE  */ ORD OF EQV LIST                    POST        1509     A     
 POST               SB5    B0          CA = 0                                              POST        1510     A     
 POST               LX5    -AI.LINKP                                                       POST        1511     A     
 POST               SX6    X5                                                              POST        1512     A     
 POST               LX5    AI.LINKP-AI.BIASP                                               POST        1513     A     
 POST               SA6    A1          EAC = LINK[AJ]                                      POST        1514     A     
 POST                                                                                      POST        1515     A     
 POST     *         CHAIN BACK TO FIND A NON-EQUIV ENTRY                                   POST        1516     A     
 POST                                                                                      POST        1517     A     
 POST      OPL12    SB5    B5+X5       CA = CA + BIAS[AJ]                                  POST        1518     A     
 POST               LX5    AI.BIASP-AI.ORDP                                                POST        1519     A     
 POST               SB7    X5          OI = ORD[AJ]                                        POST        1520     A     
 POST               SA5    B6+X5       AJ = BASE + OI                                      POST        1521     A     
 POST               LX5    59-AI.EQVP                                                      POST        1522     A     
 POST               PL     X5,OPL13    IF ^EQV[AJ]                                         POST        1523     A     
 POST               LX5    1+AI.EQVP-AI.BIASP                                              POST        1524     A     
 POST               EQ     OPL12                                                           POST        1525     A     
 POST                                                                                      POST        1526     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3288    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST      OPL13    LX5    1+AI.EQVP                                                       POST        1527     A     
 POST               SX6    X5+B5       [BASE+I] = [AJ] + CA  */ DEFINE ADDRESS             POST        1528     A     
 POST               SA6    B6+X0                                                           POST        1529     A     
 POST                                                                                      POST        1530     A     
 POST     *         OUTPUT EQU TO EQUIVALENCE THE APLISTS                                  POST        1531     A     
 POST                                                                                      POST        1532     A     
 POST               SA3    =10H  EPL                                                       POST        1533     A     
 POST               SB6    OPLA                                                            POST        1534     A     
 POST               BX7    X3                                                              POST        1535     A     
 POST               SA7    B6          SI = OPLA;  [SI] = 10H  EAL                         POST        1536     A     
 POST               SX7    X0                                                              POST        1537     A     
 POST               RJ     COD                                                             POST        1538     A     
 POST               SB4    60          UBC = 60                                            POST        1539     A     
 POST               SB4    B4-B2                                                           POST        1540     A     
 POST               LX6    B4,X4                                                           POST        1541     A     
 POST               SX7    B7                                                              POST        1542     A     
 POST               RJ     COD                                                             POST        1543     A     
 POST               SX3    1R,                                                             POST        1544     A     
 POST               LX3    B2,X3                                                           POST        1545     A     
 POST               SB2    B2+6                                                            POST        1546     A     
 POST               BX4    X3+X4                                                           POST        1547     A     
 POST               SB4    B4-B2                                                           POST        1548     A     
 POST               LX4    B4,X4                                                           POST        1549     A     
 POST               BX7    X4+X6                                                           POST        1550     A     
 POST               SX6    B5                                                              POST        1551     A     
 POST               RJ     CON         CONVERT CA                                          POST        1552     A     
 POST               SX4    1R,                                                             POST        1553     A     
 POST               LX4    54                                                              POST        1554     A     
 POST               BX6    X4+X6                                                           POST        1555     A     
 POST               RJ     ADC                                                             POST        1556     A     
 POST               RJ     TSB         *  EPL   N,I,CA *                                   POST        1557     A     
 POST               SB4    A7+B1                                                           POST        1558     A     
 POST               WLIC   B6,B4-B6    WRITE LINE IMAGES TO *COMPS*                        POST        1559     A     
 POST               EQ     OPL11                                                           POST        1560     A     
 POST      OPL      SPACE  3,14                                                            POST        1561          I
          -RSM3545C 
 POST     *         OUTPUT DUMMY SUB REFS FOR UNSUBBED F.P. S                              POST        1562          I
          -RSM3545C 
 POST                                                                                      POST        1563          I
          -RSM3545C 
 POST      OPL14    SA1    LSR                                                             POST        1564          I
          -RSM3545C 
 POST               SX7    0           L.TXT = 0                                           POST        1565          I
          -RSM3545C 
 POST               SA7    L.TXT                                                           POST        1566          I
          -RSM3545C 
 POST               ZR     X1,OPL      IF LSR = 0    */ NO SUBS                            POST        1567          I
          -RSM3545C 
 POST                                                                                      POST        1568          I
          -RSM3545C 
 POST               SA3    =10H  APL                                                       POST        1569          I
          -RSM3545C 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3289    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               SB6    OPLA                                                            POST        1570          I
          -RSM3545C 
 POST               MX4    -12                                                             POST        1571          I
          -RSM3545C 
 POST               BX7    X4*X3                                                           POST        1572          I
          -RSM3545C 
 POST               SA7    B6                                                              POST        1573          I
          -RSM3545C 
 POST               MX0    L.NAME                                                          POST        1574          I
          -RSM3545C 
 POST               SA2    O.SYM                                                           POST        1575          I
          -RSM3545C 
 POST               SA1    =6L  SUB                                                        POST        1576          I
          -RSM3545C 
 POST               SA5    X2-5        WORDB = O.SYM - 5   */ FIRST F.P.                   POST        1577          I
          -RSM3545C 
 POST               SB5    59-P.FP                                                         POST        1578          I
          -RSM3545C 
 POST               SB4    B0          DSR = 0                                             POST        1579          I
          -RSM3545C 
 POST               MX2    -24                                                             POST        1580          I
          -RSM3545C 
 POST               SA4    A5+B1                                                           POST        1581          I
          -RSM3545C 
 POST                                                                                      POST        1582          I
          -RSM3545C 
 POST      OPL15    LX5    -P.RA                                                           POST        1583          I
          -RSM3545C 
 POST               SB3    X5                                                              POST        1584          I
          -RSM3545C 
 POST               NZ     B3,OPL16    IF RA[WORDB] " 0  */ F.P. SUBBED                    POST        1585          I
          -RSM3545C 
 POST               SX3    B1                                                              POST        1586          I
          -RSM3545C 
 POST               IX6    X3+X5                                                           POST        1587          I
          -RSM3545C 
 POST               LX6    P.RA        RA[WORDB] = 1                                       POST        1588          I
          -RSM3545C 
 POST               SB4    B4+B1       DSR = DSR + 1                                       POST        1589          I
          -RSM3545C 
 POST               SA6    A5                                                              POST        1590          I
          -RSM3545C 
 POST               BX3    X0*X4                                                           POST        1591          I
          -RSM3545C 
 POST               LX3    24                                                              POST        1592          I
          -RSM3545C 
 POST               BX7    -X2*X3                                                          POST        1593          I
          -RSM3545C 
 POST               BX6    X1+X7                                                           POST        1594          I
          -RSM3545C 
 POST               SA6    A7+B1                                                           POST        1595          I
          -RSM3545C 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3290    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               BX7    X2*X3                                                           POST        1596          I
          -RSM3545C 
 POST               SA7    A6+B1                                                           POST        1597          I
          -RSM3545C 
 POST      OPL16    SA4    A5-B1       WORDA = WORDB - 1                                   POST        1598          I
          -RSM3545C 
 POST               SA5    A4-B1       WORDB = WORDA - 1                                   POST        1599          I
          -RSM3545C 
 POST               LX6    B5,X4                                                           POST        1600          I
          -RSM3545C 
 POST               MI     X6,OPL15    IF FP[WORDA]                                        POST        1601          I
          -RSM3545C 
 POST                                                                                      POST        1602          I
          -RSM3545C 
 POST               ZR     B4,OPL      IF DSR = 0    */ NO DUMMY SUB REFS                  POST        1603          I
          -RSM3545C 
 POST               SB4    A7+B1                                                           POST        1604          I
          -RSM3545C 
 POST               WLIC   B6,B4-B6    WRITE LINE IMAGES TO *COMPS*                        POST        1605          I
          -RSM3545C 
 POST               SA1    BLEN                                                            POST        1606          I
          -RSM3545C 
 POST               SX6    X1+B1       BLEN = BLEN + 1 */ ACCOUNT FOR 0 WORD               POST        1607          I
          -RSM3545C 
 POST               SA6    A1                                                              POST        1608          I
          -RSM3545C 
 POST               EQ     OPL                                                             POST        1609          I
          -RSM3545C 
 POST      AAN      EJECT              AAN                                                 POST        1610     A     
 POST     **        AAN - OUTPUT APLIST NAME                                               POST        1611     A     
 POST     *                                                                                POST        1612     A     
 POST     *         ENTRY  (X5) = *IH* OF NAME                                             POST        1613     A     
 POST                                                                                      POST        1614     A     
 POST      AAN0     RJ     ASN                                                             POST        1615     A     
 POST      AAN      ROUTINE                                                                POST        1616     A     
 POST               SX6    X5-I.GL                                                         POST        1617     A     
 POST               PL     X6,AAN0                                                         POST        1618     A     
 POST               SB3    X5                                                              POST        1619     A     
 POST               SB2    B3+B3                                                           POST        1620     A     
 POST               SB3    B2+B1                                                           POST        1621     A     
 POST               SA2    A0-B3       WORDB = [O.SYM-2*IH-1]                              POST        1622     A     
 POST               LX2    59-P.LCM                                                        POST        1623     A     
 POST               PL     X2,AAN0     IF ^LCM[WORDB]                                      POST        1624     A     
 POST               BX3    X2                                                              POST        1625     A     
 POST               LX3    1+P.LCM                                                         POST        1626     A     
 POST               R=     X6,10B-T.LAB                                                    POST        1627     A     
 POST               ERRMI  10B-T.LAB                                                       POST        1628     A     
 POST               LX6    P.TYP                                                           POST        1629     A     
 POST               IX3    X6+X3                                                           POST        1630     A     
 POST               MI     X3,AAN0     IF TYPE[WORDB] \ T.LAB                              POST        1631     A     
 POST                                                                                      POST        1632     A     
 POST               SA3    =10H  LAP                                                       POST        1633     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3291    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               LX2    1+P.LCM-P.RB                                                    POST        1634     A     
 POST               BX7    X3                                                              POST        1635     A     
 POST               MX6    -L.RB                                                           POST        1636     A     
 POST               SA7    A7          [SI] = 10H  LAP                                     POST        1637     A     
 POST               MX7    0                                                               FCC0982       49     A     
 POST               SA4    =XDIRECT                                                        FCC0982       50     A     
 POST               ZR     X4,AAN0     IF DIRECT MODE                                      FCC0982       51     A     
 POST               BX7    -X6*X2                                                          POST        1638     A     
 POST               LX5    -AP.CAP                                                         POST        1639     A     
 POST               LX2    P.RB-P.RA                                                       POST        1640     A     
 POST               SB2    X5                                                              POST        1641     A     
 POST               SX6    B2+X2       CA = CA[AW] + RA[WORDB]                             POST        1642     A     
 POST               RJ     COD                                                             POST        1643     A     
 POST               SX7    1R?                                                             POST        1644     A     
 POST               SB4    54          UBC = 54                                            POST        1645     A     
 POST               LX7    54                                                              POST        1646     A     
 POST               SB4    B4-B2       UBC = UBC - CC                                      POST        1647     A     
 POST               LX4    B4,X4                                                           POST        1648     A     
 POST               BX7    X4+X7                                                           POST        1649     A     
 POST               ZR     X6,AAN      IF C = 0                                            POST        1650     A     
 POST               RJ     CON                                                             POST        1651     A     
 POST               SX4    1R,                                                             POST        1652     A     
 POST               LX4    54                                                              POST        1653     A     
 POST               BX6    X4+X6       *,NNNNB*                                            POST        1654     A     
 POST               RJ     ADC                                                             POST        1655     A     
 POST               MX5    0                                                               POST        1656     A     
 POST               EQ     AAN                                                             POST        1657     A     
 POST      IST      TITLE  IST - ISSUE STORAGE FOR TEMPORARIES                             POST        1658     A     
 POST     **        IST - ISSUE STORAGE FOR TEMPORARIES                                    POST        1659     A     
 POST     *                OUTPUT BSS"S FOR COMPILER GENERATED SYMBOLS                     POST        1660     A     
 POST                                                                                      POST        1661     A     
 POST      IST      ROUTINE                                                                POST        1662     A     
 POST               SA5    ISTA                                                            POST        1663     A     
 POST               SA4    O.SYM                                                           POST        1664     A     
 POST               SA0    X4-1                                                            POST        1665     A     
 POST               SB6    OPLA+1                                                          POST        1666     A     
 POST               SB7    ISTB                                                            POST        1667     A     
 POST               SA7    B6-B1                                                           POST        1668     A     
 POST               SB4    B0          K = 0                                               POST        1669     A     
 POST               MX0    12                                                              POST        1670     A     
 POST               SA1    =8R.   BSS                                                      POST        1671     A     
 POST                                                                                      POST        1672     A     
 POST      IST1     SA4    X5          N = [N.ZZ]                                          POST        1673     A     
 POST               BX7    X0*X5                                                           POST        1674     A     
 POST               ZR     X4,IST2     IF N = 0      */ NO TEMP OF THIS TYPE               POST        1675     A     
 POST               LX5    30                                                              POST        1676     A     
 POST               SA3    X5          IH = [ZZ.]                                          POST        1677     A     
 POST               ZR     X3,IST2     IF [ZZ.] = 0  */ SYMBOL NOT DEF                     POST        1678     A     
 POST               LX3    1                                                               POST        1679     A     
 POST               SB2    X3                                                              POST        1680     A     
 POST               SA2    A0-B2       WORDB = [O.SYM-1-2*IH]                              POST        1681     A     
 POST               SA3    BLEN                                                            POST        1682     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3292    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               IX6    X4+X3       BLEN = BLEN + N                                     POST        1683     A     
 POST               LX3    P.RA                                                            POST        1684     A     
 POST               SA6    A3                                                              POST        1685     A     
 POST               BX6    X2+X3       RA[WORDB] = BLEN - N  */ DEFINE ADDRESS             POST        1686     A     
 POST               SA6    A2                                                              POST        1687     A     
 POST               SB4    B4+B1       K = K + 1                                           POST        1688     A     
 POST               BX7    X1+X7                                                           POST        1689     A     
 POST               SA7    A7+B1                                                           POST        1690     A     
 POST               BX6    X4                                                              POST        1691     A     
 POST               RJ     CON         CONVERT N TO BCD                                    POST        1692     A     
 POST               LX6    6                                                               POST        1693     A     
 POST               BX7    X6                                                              POST        1694     A     
 POST               SA7    A7+B1                                                           POST        1695     A     
 POST      IST2     SB7    B7-B1                                                           POST        1696     A     
 POST               SA5    A5+B1                                                           POST        1697     A     
 POST               NZ     B7,IST1                                                         POST        1698     A     
 POST               ZR     B4,IST      IF K = 0                                            POST        1699     A     
 POST                                                                                      POST        1700     A     
 POST               WLIC   B6,B4+B4    WRITE LINE IMAGES TO *COMPS*                        POST        1701     A     
 POST               EQ     IST                                                             POST        1702     A     
 POST                                                                                      POST        1703     A     
 POST      ISTA     BSS    0                                                               POST        1704     A     
 POST               ECHO   1,ZZ=(FP,ST,OT,VD,IT)                                           POST        1705     A     
 POST               VFD    12/2L_ZZ,18/=X_ZZ.,12/0,18/=XN.ZZ                               POST        1706     A     
 POST      ISTB     EQU    *-ISTA                                                          POST        1707     A     
 POST      TSL      TITLE  TSL - TERMINATE F.P. SUBSTITUTION LISTS                         POST        1708     A     
 POST     **        TSL - TERMINATE F.P. SUBSTITUTION LISTS                                POST        1709     A     
 POST     *         OUTPUT - *  USE FP  *, AND *  APL 0  * FOR EACH FP.                    POST        1710          I
          -RSM3545C 
 POST     *         OUTPUT A *USE F.P.* AND *VFD 12/2000,48/0* FOR THE LAST                RSM3545C     163     A     
 POST     *         F.P. ONLY.                                                             RSM3545C     164     A     
 POST                                                                                      POST        1711     A     
 POST      TSL      ROUTINE                                                                POST        1712     A     
 POST               SA1    LSR                                                             POST        1713     A     
 POST               ZR     X1,TSL      IF LSR = 0    */ NO SUBS                            POST        1714     A     
 POST                                                                                      POST        1715     A     
 POST               SX0    B1                                                              POST        1716          I
          -RSM3545C 
 POST               SA4    O.SYM                                                           POST        1717          I
          -RSM3545C 
 POST               LX0    P.RA                                                            POST        1718          I
          -RSM3545C 
 POST               SA3    N.FP                                                            POST        1719          I
          -RSM3545C 
 POST               SA5    X4-4        WORDA = [O.SYM-4]                                   POST        1720          I
          -RSM3545C 
 POST               SA1    =10H  APL                                                       POST        1721          I
          -RSM3545C 
 POST               MX7    -12                                                             POST        1722          I
          -RSM3545C 
 POST               SB2    X3          I = N.FP                                            POST        1723          I
          -RSM3545C 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3293    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               BX6    X7*X1                                                           POST        1724          I
          -RSM3545C 
 POST               SA2    =6L  USE                                                        POST        1725          I
          -RSM3545C 
 POST               MX1    18                                                              POST        1726          I
          -RSM3545C 
 POST               SB6    OPLA                                                            POST        1727          I
          -RSM3545C 
 POST               MX3    -24                                                             POST        1728          I
          -RSM3545C 
 POST               SB4    B6                                                              POST        1729          I
          -RSM3545C 
 POST                                                                                      POST        1730          I
          -RSM3545C 
 POST      TSL1     SA4    A5-B1       WORDB = WORDA - 1                                   POST        1731          I
          -RSM3545C 
 POST               LX5    24                                                              POST        1732          I
          -RSM3545C 
 POST               SB2    B2-B1       I = I - 1                                           POST        1733          I
          -RSM3545C 
 POST               IX7    X0+X4       RA[WORDB] = RA[WORDB] + 1                           POST        1734          I
          -RSM3545C 
 POST               BX4    -X3*X5                                                          POST        1735          I
          -RSM3545C 
 POST               SA7    A4                                                              POST        1736          I
          -RSM3545C 
 POST               BX7    X2+X4                                                           POST        1737          I
          -RSM3545C 
 POST               SA7    B4                                                              POST        1738          I
          -RSM3545C 
 POST               BX7    X1*X5                                                           POST        1739          I
          -RSM3545C 
 POST               SA7    A7+B1                                                           POST        1740          I
          -RSM3545C 
 POST               SA6    A7+B1                                                           POST        1741          I
          -RSM3545C 
 POST               SB4    A6+B1                                                           POST        1742          I
          -RSM3545C 
 POST               SA5    A4-B1       WORDA = WORDB - 1                                   POST        1743          I
          -RSM3545C 
 POST               NZ     B2,TSL1     IF I " 0                                            POST        1744          I
          -RSM3545C 
 POST                                                                                      POST        1745          I
          -RSM3545C 
 POST               WLIC   B6,B4-B6                                                        POST        1746          I
          -RSM3545C 
 POST               EQ     TSL                                                             POST        1747          I
          -RSM3545C 
 POST               SX0    B1                                                              RSM3545C     165     A     
 POST               SA3    N.FP                                                            RSM3545C     166     A     
 POST               LX0    P.RA                                                            RSM3545C     167     A     
 POST               IX2    X3+X3                                                           RSM3545C     168     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3294    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               SA4    O.SYM                                                           RSM3545C     169     A     
 POST               SB5    X2+2                                                            RSM3545C     170     A     
 POST               MX7    -12                                                             RSM3545C     171     A     
 POST               SB3    X4                                                              RSM3545C     172     A     
 POST               SA2    =6L  USE                                                        RSM3545C     173     A     
 POST               SA5    B3-B5       WORDA[LAST F.P.] = O.SYM-2 - 2*N.FP                 RSM3545C     174     A     
 POST               MX3    -24                                                             RSM3545C     175     A     
 POST               SA4    A5-B1       WORDB = WORDA - 1                                   RSM3545C     176     A     
 POST               LX5    24                                                              RSM3545C     177     A     
 POST               SA1    =10H  VFD 12/2                                                  RSM3545C     178     A     
 POST               BX7    X4+X0       RA[WORDB] = RA[WORDB] + 1                           RSM3545C     179          I
          -RSM3545CA
 POST               IX7    X4+X0       RA[WORDB] = RA[WORDB] + 1                           RSM3545CA      4     A     
 POST               BX4    -X3*X5      1*ST FOUR CHARACTERS OF F.P. NAME                   RSM3545C     180     A     
 POST               MX0    18                                                              RSM3545C     181     A     
 POST               SA7    A4                                                              RSM3545C     182     A     
 POST               BX6    X2+X4       *  USE XXXX*                                        RSM3545C     183     A     
 POST               BX7    X0*X5       LAST THREE CHARACTERS OF F.P. NAME                  RSM3545C     184     A     
 POST               SA6    OPLA                                                            RSM3545C     185     A     
 POST               SA7    A6+B1                                                           RSM3545C     186     A     
 POST               SA2    =10H000B,48/0B                                                  RSM3545C     187     A     
 POST               BX6    X1                                                              RSM3545C     188     A     
 POST               BX7    X2                                                              RSM3545C     189     A     
 POST               SA6    A7+B1                                                           RSM3545C     190     A     
 POST               SA7    A6+B1                                                           RSM3545C     191     A     
 POST               IX6    X6-X6                                                           RSM3545C     192     A     
 POST               SA6    A7+B1                                                           RSM3545C     193     A     
 POST               WLIC   OPLA,5                                                          RSM3545C     194     A     
 POST               EQ     TSL         EXIT..                                              RSM3545C     195     A     
 POST      OVC      TITLE  OVC - OUTPUT VARDIM CODE                                        POST        1748     A     
 POST     **        OVC - OUTPUT VARDIM INITIALIZATION CODE                                POST        1749     A     
 POST                                                                                      POST        1750     A     
 POST      OVC      ROUTINE                                                                POST        1751     A     
 POST               SA1    LSR                                                             POST        1752     A     
 POST               SA2    L.VDT                                                           POST        1753     A     
 POST               BX3    X1+X2                                                           POST        1754     A     
 POST               ZR     X3,OVC      IF LSR & L.VDT = 0                                  POST        1755     A     
 POST                                                                                      POST        1756     A     
 POST               OUTUSE VARDIM                                                          POST        1757     A     
 POST               SA1    =XVARDIM.                                                       POST        1758     A     
 POST               CALL   CUB         CUB( VARDIM. )  */ SWITCH TO VARDIM BLOCK           POST        1759     A     
 POST               SA1    LSR                                                             POST        1760     A     
 POST               ZR     X1,OVC1     IF LSR = 0    */ NO SUB REFS                        POST        1761     A     
 POST                                                                                      POST        1762     A     
 POST               SA2    O.SYM                                                           POST        1763     A     
 POST               MX0    L.NAME                                                          POST        1764     A     
 POST               MX1    -4*6                                                            RSM3545C     196     A     
 POST               SA3    X2-4                                                            POST        1765     A     
 POST               BX6    X0*X3                                                           POST        1766          I
          -RSM3545C 
 POST               SA6    OVCA+1                                                          POST        1767          I
          -RSM3545C 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3295    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               WLIC   A6-B1,2     *  ADDSUB  SUBLIST * TO COMPS                       POST        1768          I
          -RSM3545C 
 POST               SA1    BLEN                                                            POST        1769          I
          -RSM3545C 
 POST      #MD      IFNE   .CPU,76                                                         POST        1770          I
          -F7540FTA -RSM3545C 
 POST               SX6    X1+8        BLEN = BLEN + 8 / 9                                 POST        1771          I
          -F7540FTA -RSM3545C 
 POST      #MD      ELSE                                                                   POST        1772          I
          -F7540FTA -RSM3545C 
 POST               SX6    X1+9                                                            POST        1773          I
          -F7540FTA -RSM3545C 
 POST      #MD      ENDIF                                                                  POST        1774          I
          -F7540FTA -RSM3545C 
 POST               SX6    X1+9        BLEN = BLEN + 9                                     F7540FTA      15          I
          -RSM3545C 
 POST               SA6    A1                                                              POST        1775          I
          -RSM3545C 
 POST               BX5    X0*X3                                                           RSM3545C     197     A     
 POST               SA2    OVCA                                                            RSM3545C     198     A     
 POST               LX5    4*6                                                             RSM3545C     199     A     
 POST               MX0    3*6                                                             RSM3545C     200     A     
 POST               BX3    -X1*X5      FIRST 4 CHARACTERS                                  RSM3545C     201     A     
 POST               BX7    X0*X5       LAST 3 CHARACTERS                                   RSM3545C     202     A     
 POST               BX6    X1*X2                                                           RSM3545C     203     A     
 POST               SA7    A2+B1                                                           RSM3545C     204     A     
 POST               SA1    BLEN        BUMP BLOCK LENGTH BY 1                              RSM3545C     205     A     
 POST               BX6    X6+X3                                                           RSM3545C     206     A     
 POST               SX7    X1+B1                                                           RSM3545C     207     A     
 POST               SA6    A2                                                              RSM3545C     208     A     
 POST               SA7    A1                                                              RSM3545C     209     A     
 POST               WLIC   A6,OVCL     *SA3 1*ST F.P.*, *RJ SPA.*                          RSM3545C     210     A     
 POST                                                                                      POST        1776     A     
 POST      OVC1     SA1    L.VDT                                                           POST        1777     A     
 POST               ZR     X1,OVC5     IF L.VDT = 0                                        POST        1778     A     
 POST                                                                                      POST        1779     A     
 POST     *         FORM IL INSTRUCTIONS FOR *VD* INITIALIZATION AND CODE THEM.            POST        1780     A     
 POST                                                                                      POST        1781     A     
 POST               MX6    0                                                               POST        1782     A     
 POST               SA6    L.TXT       L.TXT = 0                                           POST        1783     A     
 POST               ADDWRD VDT,B0      ADDWRD( VDT , 0 ) */ TABLE TERMINATOR               POST        1784     A     
 POST               LX3    4                                                               POST        1785     A     
 POST               ALLOC  TXT,X3      ALLOC( TXT , 16*L.VDT )                             POST        1786     A     
 POST               SA4    O.VDT                                                           POST        1787     A     
 POST               SB7    X2          TB = O.TXT                                          POST        1788     A     
 POST               SB3    X2          TI = O.TXT                                          POST        1789     A     
 POST               SA5    X4          VI = [O.VDT]                                        POST        1790     A     
 POST               SB5    -4                                                              POST        1791     A     
 POST               SX0    -B5         RN = 4                                              POST        1792     A     
 POST               SB4    IH.CAP                                                          POST        1793     A     
 POST               SA2    =XVD.                                                           POST        1794     A     
 POST               MX1    0           BIAS = 0                                            POST        1795     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3296    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               LX2    IH.IHP                                                          POST        1796     A     
 POST               SB2    OC.BOS                                                          POST        1797     A     
 POST               SX6    B1                                                              POST        1798     A     
 POST               LX6    R1.INP                                                          POST        1799     A     
 POST               MX7    0                                                               POST        1800     A     
 POST               RJ     SRI         SRI(  BOS  0,0  )                                   POST        1801     A     
 POST                                                                                      POST        1802     A     
 POST      OVC2     SX7    X5                                                              POST        1803     A     
 POST               SB2    OC.LD                                                           POST        1804     A     
 POST               BX6    X0                                                              POST        1805     A     
 POST               RJ     SRI         SRI(  LD  RN,,,IH[VI]  )                            POST        1806     A     
 POST               AX5    18                                                              POST        1807     A     
 POST               ZR     X5,OVC3     IF IH2[VI] = 0                                      POST        1808     A     
 POST                                                                                      POST        1809     A     
 POST               BX6    X0                                                              POST        1810     A     
 POST               SX7    X5                                                              POST        1811     A     
 POST               RJ     SRI         SRI(  LD  RN,,,IH2[VI]  )                           POST        1812     A     
 POST                                                                                      POST        1813     A     
 POST               SX4    X0+B5                                                           POST        1814     A     
 POST               SB2    OC.IM                                                           POST        1815     A     
 POST               SX5    X4+B5                                                           POST        1816     A     
 POST               LX4    R1.RJP                                                          POST        1817     A     
 POST               LX5    R1.RKP                                                          POST        1818     A     
 POST               BX4    X4+X5                                                           POST        1819     A     
 POST               BX6    X0+X4                                                           POST        1820     A     
 POST               MX7    0                                                               POST        1821     A     
 POST               RJ     SRI         SRI(  IM  RN,RN-4,RN-8 )                            POST        1822     A     
 POST               EQ     OVC4                                                            POST        1823     A     
 POST                                                                                      POST        1824     A     
 POST      OVC3     SX4    X0+B5                                                           POST        1825     A     
 POST               SB2    OC.XMT                                                          POST        1826     A     
 POST               LX4    R1.RJP                                                          POST        1827     A     
 POST               MX7    0                                                               POST        1828     A     
 POST               BX6    X4+X0                                                           POST        1829     A     
 POST               RJ     SRI         SRI(  XMT  RN,RN-4 )                                POST        1830     A     
 POST                                                                                      POST        1831     A     
 POST      OVC4     SX0    X0+B5       RN = RN - 4                                         POST        1832     A     
 POST               LX4    B4,X1                                                           POST        1833     A     
 POST               SB2    OC.ST                                                           POST        1834     A     
 POST               BX7    X4+X2                                                           POST        1835     A     
 POST               BX6    X0                                                              POST        1836     A     
 POST               RJ     SRI         SRI(  ST  RN,,BIAS,VD.  )                           POST        1837     A     
 POST               SA5    A5+B1       VI = VI + 1                                         POST        1838     A     
 POST               SX1    X1+B1       BIAS = BIAS + 1                                     POST        1839     A     
 POST               NZ     X5,OVC2     IF [VI] " 0                                         POST        1840     A     
 POST                                                                                      POST        1841     A     
 POST               R=     B2,OC.EOQ                                                       POST        1842     A     
 POST               MX6    0                                                               POST        1843     A     
 POST               RJ     SRI         SRI(  EOQ  0,0 )                                    POST        1844     A     
 POST               SX6    B3-B7                                                           POST        1845     A     
 POST               SA6    L.TXT       L.TXT = TI - TB                                     POST        1846     A     
 POST               BX7    X1                                                              POST        1847     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3297    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               SA7    =XN.VD      N.VD = BIAS                                         POST        1848     A     
 POST               CALL   PSB         PROPAGATE SPECIAL BITS                              POST        1849     A     
 POST               CALL   SSP         MOVE BLOCK TO *SEQ*                                 POST        1850     A     
 POST               SX5    3                                                               POST        1851     A     
 POST               SX6    1                                                               POST        1852     A     
 POST               CALL   ESR         EXPAND SPECIAL REFS AND SQUEEZE                     POST        1853     A     
 POST               MX6    0                                                               POST        1854     A     
 POST               CALL   MCG         CODE THE SEQUENCE                                   POST        1855     A     
 POST               CALL   CII         CONVERT TO COMPASS                                  POST        1856     A     
 POST               RJ     FSU         FORCE VARDIM UPPER                                  POST        1857     A     
 POST                                                                                      POST        1858     A     
 POST      OVC5     SA1    =XCODE.                                                         POST        1859     A     
 POST               CALL   CUB         CUB( CODE. )  */ SWITCH BACK TO CODE BLOCK          POST        1860     A     
 POST               OUTUSE CODE.                                                           POST        1861     A     
 POST               EQ     OVC                                                             POST        1862     A     
 POST      SRI      SPACE  3,8         SRI                                                 POST        1863     A     
 POST     **        SRI - STORE RLIST INSTRUCTION                                          POST        1864     A     
 POST     *                                                                                POST        1865     A     
 POST     *         ENTRY  (B2) = OPCODE , (X6,X7) = R1,R2 WORDS                           POST        1866     A     
 POST                                                                                      POST        1867     A     
 POST      SRI      ROUTINE                                                                POST        1868     A     
 POST               SA4    =XF.RDT+B2                                                      POST        1869     A     
 POST               PX6    B2,X6                                                           POST        1870     A     
 POST               SA6    B3          [TI] = R1                                           POST        1871     A     
 POST               SA7    B3+B1       [TI+1] = R2                                         POST        1872     A     
 POST               BX6    X4                                                              POST        1873     A     
 POST               SA6    A7+B1       [TI+2] = RDT(OC)                                    POST        1874     A     
 POST               SX0    X0+4        RN = RN + 4                                         POST        1875     A     
 POST               MX7    0                                                               POST        1876     A     
 POST               SA7    A6+B1       [TI+3] = 0                                          POST        1877     A     
 POST               SB3    A7+B1       TI = TI + 4                                         POST        1878     A     
 POST               EQ     SRI                                                             POST        1879     A     
 POST                                                                                      POST        1880     A     
 POST      OVCA     DATA   18L  ADDSUB  SUBLIST                                            POST        1881          I
          -RSM3545C 
 POST      OVCA     DATA   C$  SA3 XXXXXXX$                                                RSM3545C     211     A     
 POST               DATA   C$  RJ SPA.$                                                    RSM3545C     212     A     
 POST      OVCL     EQU    *-OVCA                                                          RSM3545C     213     A     
 POST      ILW      SPACE  3,14        ILW                                                 POST        1882     A     
 POST     **        ILW - ISSUE LEVEL ADDRESS WORDS FOR LEVEL 2 AND 3 SYMBOLS              POST        1883     A     
 POST                                                                                      POST        1884     A     
 POST      ILW0     SA1    SDATA.                                                          POST        1885          I
          -FCC0451
 POST      ILWA     BSS    1           SAVE DATA.                                          FCC0451        9     A     
 POST                                                                                      FCC0451       10     A     
 POST      ILW0     SA1    ILWA                                                            FCC0451       11     A     
 POST               SA2    =XDATA.                                                         POST        1886     A     
 POST               IX6    X2-X1                                                           POST        1887     A     
 POST               NZ     X6,ILW      IF LEVEL WORDS ISSUED                               POST        1888          I
          -FCC0451
 POST               SA6    A1          SDATA. = 0 FOR *ALA*                                POST        1889          I
          -FCC0451
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3298    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               ZR     X6,ILW      IF NO LEVEL WORDS ISSUED                            FCC0451       12     A     
 POST               BX6    X1                                                              FCC0451       13     A     
 POST               SA6    =XSDATA.    FOR *ALA* IN FAX.                                   FCC0451       14     A     
 POST                                                                                      POST        1890     A     
 POST      ILW      ROUTINE                                                                POST        1891     A     
 POST               SA1    =XLEVEL                                                         POST        1892          I
          -FCC0504
 POST               SA1    =XLEVEL2                                                        FCC0504       21     A     
 POST               SA5    =XDIRECT                                                        POST        1893     A     
 POST               SX6    -1                                                              FCC0451       15     A     
 POST               SA6    SDATA.      SDATA. = -1                                         FCC0451       16     A     
 POST               ZR     X1,ILW      IF LEVEL = 0  */ NO LEVEL STMTS IN SUBPROGR         POST        1894     A     
 POST               ZR     X5,ILW      IF LCM=D MODE                                       POST        1895     A     
 POST               SA1    =XFSTEX                                                         POST        1896     A     
 POST               ZR     X1,ILW      IF FSTEX = 0  */ NO EXECUTABLE STMTS                POST        1897     A     
 POST                                                                                      POST        1898     A     
 POST               OUTUSE DATA.                                                           POST        1899     A     
 POST               SA1    =XDATA.                                                         POST        1900     A     
 POST               SX6    X1+                                                             POST        1901     A     
 POST               SA6    =XSDATA.    SAVE DATA. VALUE                                    POST        1902          I
          -FCC0451
 POST               SA6    ILWA        SAVE DATA.                                          FCC0451       17     A     
 POST                                                                                      POST        1903     A     
 POST               SA5    =XST.                                                           POST        1904     A     
 POST               LX5    1                                                               POST        1905     A     
 POST               SB6    X5          I = 2*ST.     */ INDEX                              POST        1906     A     
 POST                                                                                      POST        1907     A     
 POST     *         SCAN SYMBOL TABLE FOR *LEVEL 2/3* SYMBOLS                              POST        1908     A     
 POST                                                                                      POST        1909     A     
 POST      ILW1     SA3    O.SYM                                                           POST        1910     A     
 POST               SA4    =XSYMORD                                                        POST        1911     A     
 POST               SA0    X3-1                                                            POST        1912     A     
 POST               LX4    1                                                               POST        1913     A     
 POST               SB7    X4          LIMIT = 2*SYMORD                                    POST        1914     A     
 POST                                                                                      POST        1915     A     
 POST      ILW2     SA5    A0-B6       WORDB = [O.SYM-I]                                   POST        1916     A     
 POST               GE     B6,B7,ILW0  IF I \ LIMIT  */ END OF OF SYMTAB                   POST        1917     A     
 POST               LX5    59-P.LCM                                                        POST        1918     A     
 POST               SB6    B6+2        I = I + 2                                           POST        1919     A     
 POST               PL     X5,ILW2     IF ^LCM[WORDB]                                      POST        1920     A     
 POST               BX3    X5                                                              POST        1921     A     
 POST               SX7    10B-T.LAB                                                       POST        1922     A     
 POST               ERRMI  10B-T.LAB   TEST RELIES ON OVERFLOW                             POST        1923     A     
 POST               LX3    1+P.LCM                                                         POST        1924     A     
 POST               LX7    P.TYP                                                           POST        1925     A     
 POST               IX3    X7+X3                                                           POST        1926     A     
 POST               MI     X3,ILW2     IF TYPE[WORDB] \ T.LAB                              POST        1927     A     
 POST                                                                                      POST        1928     A     
 POST     *         ISSUE  * NAME LAP  ?MM,NNNB * TO COMPS                                 POST        1929     A     
 POST                                                                                      POST        1930     A     
 POST               SA3    DATA.                                                           POST        1931     A     
 POST               SX7    X3+B1       DATA. = DATA. + 1                                   POST        1932     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3299    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
 POST               SA7    A3                                                              POST        1933     A     
 POST               SA4    A5+B1       WORDA = WORDB + 1                                   POST        1934     A     
 POST               SA2    =3R LA                                                          POST        1935     A     
 POST               MX0    L.NAME                                                          POST        1936     A     
 POST               BX7    X0*X4                                                           POST        1937     A     
 POST               BX7    X2+X7                                                           POST        1938     A     
 POST               SA7    OPLA+1                                                          POST        1939     A     
 POST               LX5    1+P.LCM-P.RB                                                    POST        1940     A     
 POST               MX0    -L.RB                                                           POST        1941     A     
 POST               BX6    -X0*X5      BLOCK NUMBER                                        POST        1942     A     
 POST               RJ     CON                                                             POST        1943     A     
 POST               SX4    1R,-1RB                                                         POST        1944     A     
 POST               SB2    B3-66                                                           POST        1945     A     
 POST               LX6    6                                                               POST        1946     A     
 POST               LX4    -B2,X4                                                          POST        1947     A     
 POST               SX7    3RP ?                                                           POST        1948     A     
 POST               IX6    X6+X4       CHANGE B TO ,                                       POST        1949     A     
 POST               SB4    42          UBC = 42                                            POST        1950     A     
 POST               LX7    42                                                              POST        1951     A     
 POST               SB3    B3-6                                                            POST        1952     A     
 POST               RJ     ADC         ADD ?MM,                                            POST        1953     A     
 POST               LX5    P.RB-P.RA                                                       POST        1954     A     
 POST               SX6    X5                                                              POST        1955     A     
 POST               RJ     CON         CONVERT OFFSET                                      POST        1956     A     
 POST               LX6    6                                                               POST        1957     A     
 POST               SB3    B3-6                                                            POST        1958     A     
 POST               RJ     ADC                                                             POST        1959     A     
 POST               RJ     TSB                                                             POST        1960     A     
 POST               SX6    B6                                                              POST        1961     A     
 POST               SA6    OPLA                                                            POST        1962     A     
 POST               SB6    A6+B1                                                           POST        1963     A     
 POST               SB7    A7+B1                                                           POST        1964     A     
 POST               WRITEC F.CMPS,B6,B7-B6                                                 POST        1965     A     
 POST               SA5    OPLA                                                            POST        1966     A     
 POST               SB6    X5                                                              POST        1967     A     
 POST               EQ     ILW1                                                            POST        1968     A     
 POST                                                                                      POST        1969     A     
 POST               END                                                                    POST        1970     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - POST    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          POST                      1970      1784
          FCC0451                      9         9
          FCC0504                      2         2
          FCC0675                     11        11
          FCC0882                      3         3
          FCC0982                      4         4
          FEAT155A                     5         5
          FCC1319                     63        63
          F7540FTA                     1         0
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3300    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN POST    
  
          FCC1576X                     5         5
          RSM3545C                    54        53
          RSM3545CA                    1         1
          FCC1842X                    12        12
          FCC2113                     30        30
          F2950F4                      3         3
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ      *DECK     SQZ                                                                    SQZ            1     A     
 SQZ                IDENT  SQZ                                                             SQZ            2     A     
 SQZ       SBB      TITLE  SQZ - REDUNDANT OPERATION ELIMINATION                           SQZ            3     A     
 SQZ      *CALL     SSTCALL                                                                SQZ            4     A     
 SQZ                PASS2TM                                                                SQZ            5     A     
 SQZ       B=SQZ    RPVDEF                                                                 SQZ            6     A     
 SQZ                                                                                       SQZ            7     A     
 SQZ      *IF       DEF,SQZ,1                                                              SQZ            8     A     
 SQZ                TRACER (INITX,EDD,SQZ.X)                                               SQZ            9     A     
 SQZ                TABLES TXT,RND                                                         SQZ           10     A     
 SQZ                                                                                       SQZ           11     A     
 SQZ                EXT    F.RDT,BRN,BIR                                                   SQZ           12     A     
 SQZ                                                                                       SQZ           13     A     
 SQZ      **        SQZ - SQUEEZE INSTRUCTION SEQUENCE TO -                                SQZ           14     A     
 SQZ      *                ELIMINATE REDUNDANT AND UNUSED INSTRUCTIONS                     SQZ           15     A     
 SQZ      *                INSTRUCTION SIMPLIFICATION ( ALGEBRAIC IDENTITIES )             SQZ           16     A     
 SQZ      *                COMPILE TIME EVALUATION OF CONSTANT EXPRESSIONS                 SQZ           17     A     
 SQZ      *                GLOBAL TEMPORARY SQUEEZING ( IT."S )                            SQZ           18     A     
 SQZ      *                                                                                SQZ           19     A     
 SQZ      *         ENTRY  *TXT* TABLE HOLDS AN ARBITRARY COLLECTION OF BLOCKS             SQZ           20     A     
 SQZ      *         TERMINATED BY AN *EOQ*.  R-NUMBERS MAY NOT "ROLL OVER".                SQZ           21     A     
 SQZ      *                                                                                SQZ           22     A     
 SQZ      *         EXIT   BLOCK SQUEEZED, REDUNDANT AND USELESS INSTRUCTIONS              SQZ           23     A     
 SQZ      *         REMOVED. PRECEDENCE BITS ( PS,PRS,RJRS ) SET AND USES COUNTS           SQZ           24     A     
 SQZ      *         INSTALLED, LINK WORDS CLEARED.                                         SQZ           25          I
          -FCC0716
 SQZ      *         INSTALLED, LINK WORDS CLEARED AND *USI* BIT SET FOR REDUCED            FCC0716       10     A     
 SQZ      *         *IAZ/ISZ* INSTRUCTIONS TO PREVENT OVERSQUEEZING IN OPT=2 .             FCC0716       11     A     
 SQZ      *                                                                                SQZ           26     A     
 SQZ      *         S.I. JASIK - JAN 1973                                                  SQZ           27     A     
 SQZ                SPACE  2                                                               SQZ           28     A     
 SQZ                ENTRY  SBB                                                             SQZ           29     A     
 SQZ                QUAL   SQUEEZE                                                         SQZ           30     A     
 SQZ                SPACE  2                                                               SQZ           31     A     
 SQZ       CLEAR    MACRO              CLEAR LINK CHAINS                                   SQZ           32     A     
 SQZ                MX6    0                                                               SQZ           33     A     
 SQZ                SA6    MRC                                                             SQZ           34     A     
 SQZ                DUP    N.CHAIN-1,1                                                     SQZ           35     A     
 SQZ                SA6    A6+B1                                                           SQZ           36     A     
 SQZ                ENDM                                                                   SQZ           37     A     
 SQZ       LINK     SPACE  2                                                               SQZ           38     A     
 SQZ      **        I. - LINK INFORMATION WORD FORMAT DURING SQUEEZING                     SQZ           39     A     
 SQZ                                                                                       SQZ           40     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3301    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                DESCRIBE I.,60                                                         SQZ           41     A     
 SQZ       JP       DEFINE 1           =1 IF INSTRUCTION IS A JP ON *MRC*                  SQZ           42     A     
 SQZ                DEFINE 5                                                               SQZ           43     A     
 SQZ       RS       DEFINE 18          *RS* DEFINITION ADDRESS                             SQZ           44     A     
 SQZ       STC      DEFINE 18          STORE CHAIN ( POINTER TO PRECEEDING STORES          SQZ           45     A     
 SQZ       IC       DEFINE 18          MEMORY REF / MISC INSTRUCTION CHAINS                SQZ           46     A     
 SQZ                SPACE  2                                                               SQZ           47     A     
 SQZ       SQZ      TITLE  TABLE FORMATS, FLAGS                                            SQZ           48     A     
 SQZ      **        RN. - R-NUMBER DEFINITION/EQUIVALENCE TABLE FORMAT                     SQZ           49     A     
 SQZ                                                                                       SQZ           50     A     
 SQZ                DESCRIBE RN.,60                                                        SQZ           51     A     
 SQZ       Z        DEFINE 1           RI DEFINES A ZERO                                   SQZ           52     A     
 SQZ       C        DEFINE 1           SMALL CONSTANT ( S / FMA )                          SQZ           53     A     
 SQZ       SA       DEFINE 1           RI IS RESULT OF SA  RI,RJ                           SQZ           54     A     
 SQZ       IAC      DEFINE 1           IA/IS HAS A CONSTANT OPERAND                        SQZ           55     A     
 SQZ       INC      DEFINE 1           IA/IS IS AN INCREMENT ( I = I+CON )                 SQZ           56     A     
 SQZ       XMT      DEFINE 1           RI IS THE RESULT OF AN XMT                          SQZ           57     A     
 SQZ       XMTC     DEFINE 1           RI IS THE RESULT OF AN XMTC                         SQZ           58     A     
 SQZ       PZ       DEFINE 1           PACKED ZERO                                         SQZ           59     A     
 SQZ       NR       DEFINE 1           NORMALIZE NOT REQUIRED                              SQZ           60     A     
 SQZ       FMA      DEFINE 1           "0 IF FMA CHANGED TO A SET                          SQZ           61     A     
 SQZ                DEFINE 4                                                               SQZ           62     A     
 SQZ       USES     DEFINE 10          USES COUNT                                          SQZ           63     A     
 SQZ       TP       DEFINE 18          *TXT* ADDR OF INSTRUCTION DEFINING THE RI           SQZ           64     A     
 SQZ       RN       DEFINE 18          R-NUMBER / EQUIVALENT                               SQZ           65     A     
 SQZ                                                                                       SQZ           66     A     
 SQZ       CZ       DEQU   C,2         CONSTANT AND ZERO BITS                              SQZ           67     A     
 SQZ       CIA      DEQU   IAC,3       C, SA , IAC BITS                                    SQZ           68     A     
 SQZ       IACI     DEQU   INC,2       IAC & INC                                           SQZ           69     A     
 SQZ       FLAGS    SPACE  3                                                               SQZ           70     A     
 SQZ      *         FLAGS                                                                  SQZ           71     A     
 SQZ                                                                                       SQZ           72     A     
 SQZ       BIAS     BSSZ   1           *RNI* BIAS , =0 DURING PHASE 1 OF OPT=2             SQZ           73     A     
 SQZ                                                                                       SQZ           74     A     
 SQZ                USE    /TABLES/                                                        SQZ           75     A     
 SQZ       RNBT     BSS    2           R-NUMBER BIAS TABLE                                 SQZ           76     A     
 SQZ                                                                                       SQZ           77     A     
 SQZ       MRC      BSS    1           MEMORY REFERENCE CHAIN POINTER                      SQZ           78     A     
 SQZ       MIC      BSS    1           MISCELLANEOUS INSTRUCTION CHAIN                     SQZ           79     A     
 SQZ       SXTC     BSS    1           SXT CHAIN                                           SQZ           80     A     
 SQZ       N.CHAIN  EQU    *-MRC                                                           SQZ           81     A     
 SQZ       EOQA     BSS    1           ADDR OF FINAL *EOQ*                                 SQZ           82     A     
 SQZ       RN.MASK  EQU    600001B                                                         FCC0238AX     53     A     
 SQZ       IXF      BSS    1           "0 IF *IM* WITH *USI* BIT SET                       FCC0238AX     54     A     
 SQZ       RSS      BSS    1           RS SEPARATION FLAG                                  SQZ           83     A     
 SQZ       LSTA     BSS    1           LAST *ST* ADDRESS ( LINK WORD )                     SQZ           84          I
          -FCC0957
 SQZ       STC      BSS    1           ADDRESS OF FINAL STORE ( ^L2 )                      SQZ           85     A     
 SQZ       JPXA     BSS    1           R1 ADDRESS OF LAST *JPX*                            SQZ           86     A     
 SQZ                USE    0                                                               SQZ           87     A     
 SQZ                SPACE  2                                                               SQZ           88     A     
 SQZ      *         REGISTER ASSIGNMENTS                                                   SQZ           89     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3302    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                                                                                       SQZ           90     A     
 SQZ       TXT      MICRO  1,,/A0/     REGISTER HOLDING FWA OF BLOCK                       SQZ           91     A     
 SQZ       OC       MICRO  1,,/B3/     B REGISTER HOLDING OPCODE                           SQZ           92     A     
 SQZ       RN       MICRO  1,,/B7/     B REGISTER HOLDING BASE OF *RND*                    SQZ           93     A     
 SQZ      *         (B1) = 1                                                               SQZ           94     A     
 SQZ      *         (B2) = 2                                                               SQZ           95     A     
 SQZ      *         (X0) = MASK FOR RI FIELD                                               SQZ           96     A     
 SQZ      *         THROUGHOUT THE MASTER SQUEEZE LOOP                                     SQZ           97     A     
 SQZ      *         (A4,X4) = DESCRIPTOR OF CURRENT RLIST INSTRUCTION                      SQZ           98     A     
 SQZ      *         (A5) = ADDRESS OF INSTRUCTION BEING INSPECTED                          SQZ           99     A     
 SQZ      *         (B6) = RI OF CURRENT INSTRUCTION                                       SQZ          100     A     
 SQZ       SQZB     TITLE  SIE / SQZB - OPT=2 ENTRY POINTS TO SQUEEZE                      SQZ          101     A     
 SQZ      **        SIE - SQUEEZE INCREMENT EXPRESSION                                     SQZ          102     A     
 SQZ      *                                                                                SQZ          103     A     
 SQZ      *         EXIT   INSTRUCTIONS IN *TXT* RENUMBERED SO THAT THEY WILL              SQZ          104     A     
 SQZ      *                BE IN CANONICAL ORDER WHEN THEY ARE ADDED TO THE                SQZ          105     A     
 SQZ      *                LOOP HOLDING BLOCK.                                             SQZ          106     A     
 SQZ                                                                                       SQZ          107     A     
 SQZ       SIE      ROUTINE                                                                SQZ          108     A     
 SQZ                SA5    SIE                                                             SQZ          109     A     
 SQZ                SA2    =XL.MOD                                                         SQZ          110     A     
 SQZ                SA3    =XL.HB                                                          SQZ          111     A     
 SQZ                MX6    0           TSS = 0                                             SQZ          112     A     
 SQZ                IX4    X2+X3                                                           SQZ          113     A     
 SQZ                SX7    X4-8        BIAS = L.HB + L.MOD-8                               SQZ          114     A     
 SQZ                EQ     SQZB1                                                           SQZ          115     A     
 SQZ       SQZB     SPACE  3                                                               SQZ          116     A     
 SQZ      **        SQZB - OPT=2 ENTRY TO SQUEEZE                                          SQZ          117     A     
 SQZ      *                                                                                SQZ          118     A     
 SQZ      *                (X6) = TSS , =1 IF *TST* SQUEEZING IS TO BE DONE.               SQZ          119     A     
 SQZ                                                                                       SQZ          120     A     
 SQZ       SQZB     ROUTINE                                                                SQZ          121     A     
 SQZ                SA5    SQZB                                                            SQZ          122     A     
 SQZ                SX7    0           BIAS = 0                                            SQZ          123     A     
 SQZ                SA7    STLDS       STLDS = 0                                           SQZ          124     A     
 SQZ                                                                                       SQZ          125     A     
 SQZ       SQZB1    SA1    L.TXT                                                           SQZ          126     A     
 SQZ                SA2    SQZBA+X6                                                        SQZ          127     A     
 SQZ                SA7    BIAS                                                            SQZ          128     A     
 SQZ                BX6    X5                                                              SQZ          129     A     
 SQZ                LX7    X2                                                              SQZ          130     A     
 SQZ                SA6    SBB         [SBB] = EXIT ADDRESS                                SQZ          131     A     
 SQZ                SA7    SBB.JT      [SBB.JT] = *EOQ* PROCESSOR ADDRESS                  SQZ          132     A     
 SQZ                                                                                       SQZ          133          I
          -FCC0509
 SQZ                ALLOC  RND,X1-6    ALLOC( RND , L.TXT-6 )                              SQZ          134     A     
 SQZ                SA5    O.TXT                                                           SQZ          135     A     
 SQZ                MX0    -R1.RIL                                                         SQZ          136     A     
 SQZ                S"RN"  X2                                                              SQZ          137     A     
 SQZ                SB2    B1+B1                                                           SQZ          138     A     
 SQZ                S"TXT" X5                                                              SQZ          139     A     
 SQZ                EQ     SBB5A                                                           SQZ          140     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3303    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                                                                                       SQZ          141     A     
 SQZ       SQZBA    BSS    0                                                               SQZ          142     A     
 SQZ                LOC    0                                                               SQZ          143     A     
 SQZ                EQ     .EOQ        NO *TST* SQZ                                        SQZ          144     A     
 SQZ                EQ     STS                                                             SQZ          145     A     
 SQZ                LOC    *O                                                              SQZ          146     A     
 SQZ                                                                                       SQZ          147     A     
 SQZ                QUAL                                                                   SQZ          148     A     
 SQZ                                                                                       SQZ          149     A     
 SQZ       STLDS    ENTRY. 0           ST/LD SQUEEZE FLAG, "0 IF ST/LD SQZ DONE            SQZ          150     A     
 SQZ       SUVA     ENTRY. 0           SQUEEZED USE *BV* ADDR ( *AUV* CALL )               FCC0509       46     A     
 SQZ                                                                                       SQZ          151     A     
 SQZ                ENTRY  SIE,SQZB                                                        SQZ          152     A     
 SQZ       SIE      EQU    /SQUEEZE/SIE                                                    SQZ          153     A     
 SQZ       SQZB     EQU    /SQUEEZE/SQZB                                                   SQZ          154     A     
 SQZ                                                                                       SQZ          155     A     
 SQZ                QUAL   SQUEEZE                                                         SQZ          156     A     
 SQZ       STS      TITLE  STS - SQUEEZE TEMP STORES TO ELIMINATE REDUNDANT ONES           SQZ          157     A     
 SQZ      **        STS - SQUEEZE TEMP STORES ( *TST*"S ) TO ELIMINATE REDUNDANT           SQZ          158     A     
 SQZ      *         ONE"S AND SET THE *CA* FIELD OF THE NON-REDUNDANT ONES.                SQZ          159     A     
 SQZ      *                                                                                SQZ          160     A     
 SQZ      *         ENTRY  FROM *SBB.JT* WHEN *EOQ* IS ENCOUNTERED.                        SQZ          161     A     
 SQZ      *         EXIT   TO *EOQ* PROCESSOR WHEN FINISHED                                SQZ          162     A     
 SQZ                                                                                       SQZ          163     A     
 SQZ       STS      SA1    =XN.GT      N = N.GT      */ NUMBER OF ASSIGNED IT. S           SQZ          164     A     
 SQZ                SA5    STC                                                             SQZ          165     A     
 SQZ                SB2    OC.TST                                                          SQZ          166     A     
 SQZ                SB4    B0          USC = 0       */ UNASSIGNED *TST* CHAIN             SQZ          167     A     
 SQZ                SB5    X5          I = STC                                             SQZ          168     A     
 SQZ                SB6    "TXT"+3     TB = O.TXT + 3                                      SQZ          169     A     
 SQZ                SA0    B0          ASC = 0       */ ASSIGNED *TST* CHAIN               SQZ          170     A     
 SQZ                MX7    1                                                               SQZ          171     A     
 SQZ                EQ     STS2                                                            SQZ          172     A     
 SQZ                                                                                       SQZ          173     A     
 SQZ      *         SCAN *STC* AND FORM CHAINS OF ASSIGNED AND UNASSIGNED *TST*"S          SQZ          174     A     
 SQZ                                                                                       SQZ          175     A     
 SQZ       STS1     SX6    A0                                                              SQZ          176     A     
 SQZ                SA6    A5          [LI] = ASC    */ LINK LAST TO THIS                  SQZ          177     A     
 SQZ                SA0    A5+         ASC = LI      */ CHAIN POINTS TO THIS               SQZ          178     A     
 SQZ                                                                                       SQZ          179     A     
 SQZ       STS2     SA5    B5          LI = I                                              SQZ          180     A     
 SQZ                ZR     B5,STS3     IF I = 0      */ END OF CHAIN                       SQZ          181     A     
 SQZ                LX5    -I.STCP                                                         SQZ          182     A     
 SQZ                SA3    A5-3        R1 = LI - 3                                         SQZ          183     A     
 SQZ                SA4    A3+B1       R2 = R1 + 1                                         SQZ          184     A     
 SQZ                SB5    X5          I = STC[LI]                                         SQZ          185     A     
 SQZ                UX6    B3,X3                                                           SQZ          186     A     
 SQZ                NE     B3,B2,STS2  IF OC[R1] " OC.TST                                  SQZ          187     A     
 SQZ                                                                                       SQZ          188     A     
 SQZ                LX4    -IH.CAP                                                         SQZ          189     A     
 SQZ                SX2    X4          C = CA[R2]                                          SQZ          190     A     
 SQZ                IX6    X2-X1                                                           SQZ          191     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3304    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                BX5    -X0*X3                                                          SQZ          192     A     
 SQZ                SA7    B6+X5       LIP = TB + RI[R1];  [LIP] = 1S59  */ NOT AS         SQZ          193     A     
 SQZ                MI     X6,STS1     IF C < N      */ TEMP NUMBER ASSIGNED               SQZ          194     A     
 SQZ                                                                                       SQZ          195     A     
 SQZ                SX6    B4                                                              SQZ          196     A     
 SQZ                SA6    A5          [LI] = USC                                          SQZ          197     A     
 SQZ                SB4    A5          USC = LI                                            SQZ          198     A     
 SQZ                EQ     STS2                                                            SQZ          199     A     
 SQZ                                                                                       SQZ          200     A     
 SQZ       STS3     SA2    =XO.TET                                                         SQZ          201     A     
 SQZ                SB3    A0          I = ASC                                             SQZ          202     A     
 SQZ                SB5    X2                        (B5) = [O.TET]                        SQZ          203     A     
 SQZ                ZR     B3,STS7     IF I = 0      */ NO ASSIGNED TET"S                  SQZ          204     A     
 SQZ                                                                                       SQZ          205     A     
 SQZ      *         SET THE *CA*"S OF THE ASSIGNED *TST*"S IN THE LINK WORD OF             SQZ          206     A     
 SQZ      *         THE INSTRUCTION DEFINING THE *RI* IN THE *TST*.                        SQZ          207     A     
 SQZ                                                                                       SQZ          208     A     
 SQZ       STS4     SA3    B3-3        R1 = I - 3                                          SQZ          209     A     
 SQZ                SA4    A3+B1       R2 = R1 + 1                                         SQZ          210     A     
 SQZ                BX6    -X0*X3      R = RI[R1]                                          SQZ          211     A     
 SQZ                SA2    B6+X6       LIP = TB + R;  K = [LIP]                            SQZ          212     A     
 SQZ                LX4    -IH.CAP                                                         SQZ          213     A     
 SQZ                SX7    X4          C = CA[R2]                                          SQZ          214     A     
 SQZ                MI     X2,STS5     IF K < 0      */ NOT EQUIVALENCED                   SQZ          215     A     
 SQZ                                                                                       SQZ          216     A     
 SQZ      *         EQUIVALENCE THE CELLS IF THEY ARE BOTH INVARIANT TEMPS                 SQZ          217     A     
 SQZ                                                                                       SQZ          218     A     
 SQZ                SA3    B5+X7                                                           SQZ          219     A     
 SQZ                SX5    B1                                                              FCC2392       16     A     
 SQZ                LX5    T.CALP                                                          FCC2392       17     A     
 SQZ                BX4    X3*X5                                                           FCC2392       18     A     
 SQZ                NZ     X4,STS5     IF CA FIELD STILL IN USE                            FCC2392       19     A     
 SQZ                SA5    B5+X2                                                           SQZ          220     A     
 SQZ                BX4    X3*X5                                                           SQZ          221     A     
 SQZ                LX4    59-T.INVP                                                       SQZ          222     A     
 SQZ                PL     X4,STS5     IF ^( INV[TET(C)] & INV[TET(K)] )                   SQZ          223     A     
 SQZ                                                                                       SQZ          224     A     
 SQZ                BX7    X0*X3                                                           SQZ          225     A     
 SQZ                SX5    B1                                                              SQZ          226     A     
 SQZ                BX7    X7+X2       CA[TET(C)] = K                                      SQZ          227     A     
 SQZ                LX5    T.EQVP                                                          SQZ          228     A     
 SQZ                BX7    X5+X7       EQV[TET(C)] = 1                                     SQZ          229     A     
 SQZ                SA7    A3                                                              SQZ          230     A     
 SQZ                SA2    "RN"+X6     RNI = RND(R)                                        SQZ          231     A     
 SQZ                LX5    RN.USESP-T.EQVP                                                 SQZ          232     A     
 SQZ                IX6    X2-X5       USES[RNI] = USES[RNI] - 1                           SQZ          233     A     
 SQZ                SA6    A2                                                              SQZ          234     A     
 SQZ                MX6    0                                                               SQZ          235     A     
 SQZ                SA6    A4+B1       DI = R2 + 1;  [DI] = 0  */ KILL ST                  SQZ          236     A     
 SQZ                EQ     STS6                                                            SQZ          237     A     
 SQZ                                                                                       SQZ          238     A     
 SQZ       STS5     SA7    A2+         [LIP] = C     */ SET ASSIGNMENT                     SQZ          239     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3305    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                                                                                       SQZ          240     A     
 SQZ       STS6     SA5    B3          LI = [I]                                            SQZ          241     A     
 SQZ                SB3    X5          I = [LI]                                            SQZ          242     A     
 SQZ                NZ     B3,STS4     IF I " 0                                            SQZ          243     A     
 SQZ                                                                                       SQZ          244     A     
 SQZ      *         ASSIGN TEMP NUMBERS TO THE UNASSIGNED *TST*"S                          SQZ          245     A     
 SQZ                                                                                       SQZ          246     A     
 SQZ       STS7     SX2    B1          I = USC                                             SQZ          247     A     
 SQZ                LX2    RN.USESP                                                        SQZ          248     A     
 SQZ                ZR     B4,STS0     IF I = 0      */ NO UNASSIGNED TEMPS                SQZ          249     A     
 SQZ                                                                                       SQZ          250     A     
 SQZ       STS8     SA3    B4-3        R1 = I - 3                                          SQZ          251     A     
 SQZ                SA4    A3+B1       R2 = R1 + 1                                         SQZ          252     A     
 SQZ                BX6    -X0*X3                                                          SQZ          253     A     
 SQZ                SA5    B6+X6       LIP = TB + RI[R1];  K = [LIP]                       SQZ          254     A     
 SQZ                LX4    -IH.CAP     C = CA[R2]                                          SQZ          255     A     
 SQZ                MI     X5,STS9     IF K < 0      */ NO TEMP NUMBER ASSIGNED            SQZ          256     A     
 SQZ                                                                                       SQZ          257     A     
 SQZ      *         *TST* IS REDUNDANT, ELIMINATE IT                                       SQZ          258     A     
 SQZ                                                                                       SQZ          259     A     
 SQZ                SA3    "RN"+X6     R = RND(RI[R1])                                     SQZ          260     A     
 SQZ                MX7    0                                                               SQZ          261     A     
 SQZ                IX6    X3-X2       USES[R] = USES[R] - 1                               SQZ          262     A     
 SQZ                SA7    A4+B1       DI = R2 + 1;  [DI] = 0                              SQZ          263     A     
 SQZ                SA6    A3                                                              SQZ          264     A     
 SQZ                EQ     STS10                                                           SQZ          265     A     
 SQZ                                                                                       SQZ          266     A     
 SQZ      *         *TST* NOT REDUNDANT, ASSIGN IT A TEMP NUMBER                           SQZ          267     A     
 SQZ                                                                                       SQZ          268     A     
 SQZ       STS9     BX7    X1                                                              SQZ          269     A     
 SQZ                BX5    X0*X4                                                           SQZ          270     A     
 SQZ                SA7    A5          [LIP] = N     ASSIGN TEMP NUMBER                    SQZ          271     A     
 SQZ                IX6    X5+X1       CA[R2] = N                                          SQZ          272     A     
 SQZ                LX6    IH.CAP                                                          SQZ          273     A     
 SQZ                BX5    X1          K = N                                               SQZ          274     A     
 SQZ                SA6    A4                                                              SQZ          275     A     
 SQZ                SX1    X1+B1       N = N + 1                                           SQZ          276     A     
 SQZ                                                                                       SQZ          277     A     
 SQZ       STS10    SA3    B5+X4                                                           SQZ          278     A     
 SQZ                BX6    X3+X5       CA[TET(C)] = K  */ SET FINAL *CA* IN *TET*          SQZ          279     A     
 SQZ                SX3    1                                                               FCC2392       20     A     
 SQZ                LX3    T.CALP                                                          FCC2392       21     A     
 SQZ                BX6    X6+X3       CAL[TET(C)]=1  */ LOCK CA FIELD                     FCC2392       22     A     
 SQZ                SA6    A3                                                              SQZ          280     A     
 SQZ                BX7    X5-X4                                                           SQZ          281     A     
 SQZ                SB3    X7                                                              SQZ          282     A     
 SQZ                ZR     B3,STS11    IF C = K                                            SQZ          283     A     
 SQZ                                                                                       SQZ          284     A     
 SQZ                SA5    B5+X5                                                           SQZ          285     A     
 SQZ                MX7    1                                                               SQZ          286     A     
 SQZ                LX7    1+T.INVP                                                        SQZ          287     A     
 SQZ                BX6    X7*X6                                                           SQZ          288     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3306    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                BX5    -X7*X5                                                          SQZ          289     A     
 SQZ                BX6    X6+X5       INV[TET(K)] = INV[TET(C)]                           SQZ          290     A     
 SQZ                SA6    A5                                                              SQZ          291     A     
 SQZ                                                                                       SQZ          292     A     
 SQZ       STS11    SA4    B4          LI = I                                              SQZ          293     A     
 SQZ                SB4    X4          I = [LI]      */ NEXT ON CHAIN                      SQZ          294     A     
 SQZ                NZ     B4,STS8     IF I " 0                                            SQZ          295     A     
 SQZ                                                                                       SQZ          296     A     
 SQZ       STS0     BX7    X1          N.GT = N      */ NEXT AVAIL TEMP NO                 SQZ          297     A     
 SQZ                SA2    SQZBA                                                           SQZ          298     A     
 SQZ                SB2    B1+B1                                                           SQZ          299     A     
 SQZ                SA7    N.GT                                                            SQZ          300     A     
 SQZ                BX6    X2          [SBB.JT] = [SQZBA]  */ RESTORE *EOQ* PROC           SQZ          301     A     
 SQZ                S"TXT" B6-3                                                            SQZ          302     A     
 SQZ                SA6    SBB.JT                                                          SQZ          303     A     
 SQZ                EQ     .EOQ                                                            SQZ          304     A     
 SQZ       SQZ      TITLE  INITIALIZATION                                                  SQZ          305     A     
 SQZ      **        SBB - SQUEEZE EXTENDED BASIC BLOCK. ENTRY TO SQZ FROM PROSEQ.          SQZ          306     A     
 SQZ      *                                                                                SQZ          307     A     
 SQZ      *         ENTRY  (BRN) = BASE,LIMIT R-NUMBERS IN SEQUENCE                        SQZ          308     A     
 SQZ      *                (BIR) = BASE LIMIT INTERMEDIATE R-NUMBERS IN SEQUENCE.          SQZ          309     A     
 SQZ       SBB      ROUTINE                                                                SQZ          310     A     
 SQZ                SA1    BRN                                                             SQZ          311     A     
 SQZ                SA3    BIR                                                             SQZ          312     A     
 SQZ                SA2    A1+B1                                                           SQZ          313     A     
 SQZ                SA4    A3+B1                                                           SQZ          314     A     
 SQZ                IX2    X2-X1       DEL(R) = BRN(2) - BRN(1)                            SQZ          315     A     
 SQZ                SX0    B1+B1                                                           SQZ          316     A     
 SQZ                IX4    X4-X3       DEL(IR) = BIR(2) - BIR(1)                           SQZ          317     A     
 SQZ                IX7    X2+X4                                                           SQZ          318     A     
 SQZ                IX6    X0-X1                                                           SQZ          319     A     
 SQZ                IX1    X7+X0                                                           SQZ          320     A     
 SQZ                IX7    X0-X3                                                           SQZ          321     A     
 SQZ                SA6    RNBT        RNBT(0) = 2 - BRN(1)                                SQZ          322     A     
 SQZ                IX7    X2+X7                                                           SQZ          323     A     
 SQZ                SA7    A6+B1       RNBT(1) = 2 + DEL(R) - BIR(1)                       SQZ          324     A     
 SQZ                ALLOC  RND,X1      ALLOC( RND , DEL(IR)+DEL(R)+2 )                     SQZ          325     A     
 SQZ                                                                                       SQZ          326     A     
 SQZ      *         NOTE - ABSOLUTE ADDRESSES ARE USED THROUGHOUT THE REST OF              SQZ          327     A     
 SQZ      *         *SBB*, HENCE NO TABLE ALLOCATION REQUESTS MAY BE MADE.                 SQZ          328     A     
 SQZ                                                                                       SQZ          329     A     
 SQZ                SA1    O.TXT                                                           SQZ          330     A     
 SQZ                S"RN"  X2          (B7) = O.RND                                        SQZ          331     A     
 SQZ                S"TXT" X1          (A0) = O.TXT                                        SQZ          332     A     
 SQZ       SBB      SPACE  3           SBB                                                 SQZ          333     A     
 SQZ      **        REPLACE ALL OCCURRENCES OF R-NUMBERS BY INDICES TO *RND*.              SQZ          334     A     
 SQZ      *         MAP R,R+1,...,IR,IR+1,... INTO  2,3,4,...                              SQZ          335     A     
 SQZ      *         NOTE - LOOP IS STRUCTURED TO BE *INSTACK* FOR TYPE I PROCESSIN         SQZ          336     A     
 SQZ                                                                                       SQZ          337     A     
 SQZ                SB5    R1.RIL-1                                                        SQZ          338     A     
 SQZ                SB6    RNBT                                                            SQZ          339     A     
 SQZ                SB2    B1+B1                                                           SQZ          340     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3307    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                MX0    -R1.RIL     (X0) = MASK FOR EXTRACTING R-NUMBERS                SQZ          341     A     
 SQZ                MX1    1                                                               SQZ          342     A     
 SQZ                SA4    "TXT"+B2    DI = O.TXT + 2                                      SQZ          343     A     
 SQZ                EQ     SBB2                                                            SQZ          344     A     
 SQZ                                                                                       SQZ          345     A     
 SQZ      *         TYPE II/III                                                            SQZ          346     A     
 SQZ                                                                                       SQZ          347     A     
 SQZ       SBB1     BX3    -X0*X5      RI = RI[R1]                                         SQZ          348     A     
 SQZ                AX7    B5,X3                                                           SQZ          349     A     
 SQZ                SA2    X7+B6       BIAS = RNBT( SHIFT(RI,-15) )                        SQZ          350     A     
 SQZ                SA3    A5+B1       R2 = R1 + 1                                         SQZ          351     A     
 SQZ                IX6    X2+X5       RI = RI + BIAS                                      SQZ          352     A     
 SQZ                SA6    A5                                                              SQZ          353     A     
 SQZ                LX3    -IH.RFP                                                         SQZ          354     A     
 SQZ                BX6    -X0*X3                                                          SQZ          355     A     
 SQZ                AX7    B5,X6                                                           SQZ          356     A     
 SQZ                SB4    X6                                                              SQZ          357     A     
 SQZ                LE     B4,B1,SBB2  IF RF @ 1                                           SQZ          358     A     
 SQZ                SA2    X7+B6                                                           SQZ          359     A     
 SQZ                IX6    X2+X3       RF = RF + BIAS                                      SQZ          360     A     
 SQZ                LX6    IH.RFP                                                          SQZ          361     A     
 SQZ                SA6    A3                                                              SQZ          362     A     
 SQZ                                                                                       SQZ          363     A     
 SQZ       SBB2     SA5    A4+B2       R1 = DI + 2                                         SQZ          364     A     
 SQZ                SA4    A5+B2       DI = R1 + 2                                         SQZ          365     A     
 SQZ                LX4    58-D.TYP                                                        SQZ          366     A     
 SQZ                IX6    X4+X4                                                           SQZ          367     A     
 SQZ                BX7    X4-X6                                                           SQZ          368     A     
 SQZ                MI     X7,SBB1     IF TYPE[DI] = II ! III                              SQZ          369     A     
 SQZ                MI     X4,SBB5     IF TYPE[DI] = IV                                    SQZ          370     A     
 SQZ                                                                                       SQZ          371     A     
 SQZ      *         TYPE I INSTRUCTION                                                     SQZ          372     A     
 SQZ                                                                                       SQZ          373     A     
 SQZ                UX7    "OC",X5                                                         SQZ          374     A     
 SQZ                SX6    "OC"+6000B  RWD = OC[R1] + 6000B  */ PACKED OC + TERM           SQZ          375     A     
 SQZ                LX5    -R1.RJP     RNUMS = RJ/RK/RI                                    SQZ          376     A     
 SQZ                                                                                       SQZ          377     A     
 SQZ       SBB3     BX3    -X0*X5                                                          SQZ          378     A     
 SQZ                SB4    X3                                                              SQZ          379     A     
 SQZ                AX4    B5,X3                                                           SQZ          380     A     
 SQZ                SA2    X4+B6       BIAS = RNBT( SHIFT(RN,-15) )                        SQZ          381     A     
 SQZ                LX6    R1.RIL      RWD = SHIFT(RWD,16)                                 SQZ          382     A     
 SQZ                LE     B4,B1,SBB4  IF RN @ 1                                           SQZ          383     A     
 SQZ                IX3    X2+X3       RN = RN + BIAS                                      SQZ          384     A     
 SQZ       SBB4     LX5    R1.RIL      RNUMS = SHIFT(RNUMS,16)                             SQZ          385     A     
 SQZ                BX6    X6+X3                                                           SQZ          386     A     
 SQZ                PL     X6,SBB3     IF RWD > 0                                          SQZ          387     A     
 SQZ                BX7    -X1*X6      [R1] = TYI(OC,RJ,RK,RI)                             SQZ          388     A     
 SQZ                SA7    A5                                                              SQZ          389     A     
 SQZ                EQ     SBB2                                                            SQZ          390     A     
 SQZ                                                                                       SQZ          391     A     
 SQZ       SBB5     UX7    "OC",X5                                                         SQZ          392     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3308    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                NZ     "OC",SBB2   IF OC[R1] " EOQ                                     SQZ          393     A     
 SQZ       SBB      EJECT                                                                  SQZ          394     A     
 SQZ      **        SCAN *TXT* AND SETUP *RND*. CHAIN THE *RND* ENTRIES TO THE             SQZ          395     A     
 SQZ      *         INSTRUCTION THAT DEFINES THE *RI* ( RND INDEX ).                       SQZ          396     A     
 SQZ      *         SET PRECEDENCE BITS ( PS,PRS,RJRS ) FOR INSTRUCTIONS                   SQZ          397     A     
 SQZ      *         PRECEDING A STORE / REGISTER STORE.                                    SQZ          398     A     
 SQZ                                                                                       SQZ          399     A     
 SQZ       SBB5A    SB4    B2+B2                                                           SQZ          400     A     
 SQZ                SA2    F.RDT+OC.RS       (X2) = DESCR FOR A *RJ* RS                    SQZ          401     A     
 SQZ                SX7    B0          LINK = 0                                            SQZ          402     A     
 SQZ                SX1    B1                                                              SQZ          403     A     
 SQZ                LX1    D.^DP                                                           SQZ          404     A     
 SQZ                SB5    OC.RS                                                           SQZ          405     A     
 SQZ                BX2    -X1*X2                                                          SQZ          406     A     
 SQZ                LX1    D.PSP-D.^DP                                                     SQZ          407     A     
 SQZ                SB6    B0          RSL = 0                                             SQZ          408     A     
 SQZ                SA5    "TXT"                                                           SQZ          409     A     
 SQZ                EQ     SBB8                                                            SQZ          410     A     
 SQZ                                                                                       SQZ          411     A     
 SQZ       SBB6     SX6    B6                                                              SQZ          412     A     
 SQZ                SA6    A4+B1       [DI+1] = RSL                                        SQZ          413     A     
 SQZ                LX5    59-R1.INP                                                       SQZ          414     A     
 SQZ                SB6    A4+B1       RSL = DI + 1                                        SQZ          415     A     
 SQZ                PL     X5,SBB8     IF IN[R1] = 0  */ NORMAL REGISTER STORE             SQZ          416     A     
 SQZ                BX6    X2          ^D[DI] = 0                                          SQZ          417     A     
 SQZ                SA6    A4                                                              SQZ          418     A     
 SQZ                                                                                       SQZ          419     A     
 SQZ       SBB7     SX5    A5                                                              SQZ          420     A     
 SQZ                LX5    RN.TPP                                                          SQZ          421     A     
 SQZ                BX6    X5+X3       RND(RI) = RNDT(0,0,R1,RI[R1])                       SQZ          422     A     
 SQZ                SA6    "RN"+X3                                                         SQZ          423     A     
 SQZ                                                                                       SQZ          424     A     
 SQZ       SBB8     SA5    A5+B4       R1 = R1 + 4   */ ADVANCE TO NEXT INSTRUCTIO         SQZ          425     A     
 SQZ                SA4    A5+B2       DI = R1 + 2                                         SQZ          426     A     
 SQZ                BX3    -X0*X5                                                          SQZ          427     A     
 SQZ                LX4    59-D.^DP                                                        SQZ          428     A     
 SQZ                UX6    "OC",X5                                                         SQZ          429     A     
 SQZ                PL     X4,SBB7     IF D[DI]      */ DEFINES AN *RI* ( RESULT )         SQZ          430     A     
 SQZ                LX4    D.^DP-D.STP                                                     SQZ          431     A     
 SQZ                ZR     "OC",SBB9   IF OC[R1] = OC.EOQ                                  SQZ          432     A     
 SQZ                EQ     "OC",B5,SBB6      IF OC[R1] = OC.RS                             SQZ          433     A     
 SQZ                PL     X4,SBB8     IF ^ST[DI]                                          SQZ          434     A     
 SQZ                IFNE   .DAL,0,2                                        LVL 2           SQZ          435     A     
 SQZ                LX4    D.STP-D.L2P                                                     SQZ          436     A     
 SQZ                MI     X4,SBB8     IF L2[DI]                                           SQZ          437     A     
 SQZ                SA3    "RN"+X3                                                         SQZ          438     A     
 SQZ                SA7    A4+B1       [R1+3] = LINK                                       SQZ          439     A     
 SQZ                LX3    -RN.TPP                                                         SQZ          440     A     
 SQZ                SX7    A7                                                              SQZ          441     A     
 SQZ                LX7    18          LINK = R1 + 3                                       SQZ          442     A     
 SQZ                SA4    X3+B2       DJ = TP[RI] + 2                                     SQZ          443     A     
 SQZ                BX6    X1+X4                                                           SQZ          444     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3309    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                SA6    A4          PS[DJ] = 1                                          SQZ          445     A     
 SQZ                EQ     SBB8                                                            SQZ          446     A     
 SQZ                                                                                       SQZ          447     A     
 SQZ       SBB9     SX6    A5                                                              SQZ          448     A     
 SQZ                SA6    EOQA        EOQA = R1     */ SAVE *EOQ* ADDRESS                 SQZ          449     A     
 SQZ                LX7    -I.STCP     STC = LINK    */ ADDRESS OF FINAL STORE             SQZ          450     A     
 SQZ                SA7    STC                                                             SQZ          451     A     
 SQZ                                                                                       SQZ          452     A     
 SQZ      *         NOW SET THE REGISTER STORE PRECEDENCE BITS                             SQZ          453     A     
 SQZ                                                                                       SQZ          454     A     
 SQZ                ZR     B6,SBB11    IF RSL = 0    */ NO REGISTER STORES                 SQZ          455     A     
 SQZ                LX1    D.PRSP-D.PSP                                                    SQZ          456     A     
 SQZ                MX7    0                                                               SQZ          457     A     
 SQZ                                                                                       SQZ          458     A     
 SQZ       SBB10    SA2    B6-3        R1 = [RSL-3]                                        SQZ          459     A     
 SQZ                SA4    A2-B2       DI = R1 - 2   */ DESCR OF PREDECESSOR               SQZ          460     A     
 SQZ                LX2    -R1.INP+1                                                       SQZ          461     A     
 SQZ                SB5    X2                                                              SQZ          462     A     
 SQZ                SA2    B6                                                              SQZ          463     A     
 SQZ                LX5    B5,X1       BIT = SHIFT( PRS , 2*IN[R1] )                       SQZ          464     A     
 SQZ                SA7    B6          [R1+3] = 0                                          SQZ          465     A     
 SQZ                BX6    X5+X4       DI = DI ! BIT                                       SQZ          466     A     
 SQZ                SB6    X2          RSL = [RSL]                                         SQZ          467     A     
 SQZ                SA6    A4                                                              SQZ          468     A     
 SQZ                NZ     B6,SBB10    IF RSL " 0                                          SQZ          469     A     
 SQZ                                                                                       SQZ          470     A     
 SQZ      *         COMPLETE INITIALIZATION OF *RND*, SET REGISTERS FOR MAIN LOOP          SQZ          471     A     
 SQZ                                                                                       SQZ          472     A     
 SQZ       SBB11    SX5    "TXT"                                                           SQZ          473     A     
 SQZ                LX5    RN.TPP                                                          SQZ          474     A     
 SQZ                MX6    1                                                               SQZ          475     A     
 SQZ                LX6    1+RN.ZP                                                         SQZ          476     A     
 SQZ                SX4    B1                                                              SQZ          477     A     
 SQZ                BX6    X5+X6                                                           SQZ          478     A     
 SQZ                IX7    X5+X4                                                           SQZ          479     A     
 SQZ                LX4    RN.USESP+3                                                      SQZ          480     A     
 SQZ                BX6    X4+X6                                                           SQZ          481     A     
 SQZ                SA6    "RN"        RND(0) = RNDT(Z,8,O.TXT,0)   ( B0 )                 SQZ          482     A     
 SQZ                SA7    "RN"+B1     RND(1) = RNDT(0,0,O.TXT,1)   ( A0 )                 SQZ          483     A     
 SQZ                CLEAR              CLEAR CHAIN POINTERS                                SQZ          484     A     
 SQZ                SA6    RSS         RSS = 0                                             SQZ          485     A     
 SQZ                SA6    JPXA        JPXA = 0                                            SQZ          486     A     
 SQZ                SA6    IXF         IXF = 0                                             FCC0238AX     55     A     
 SQZ                SA4    "TXT"+B2    DI = O.TXT + 2                                      SQZ          487     A     
 SQZ                TRACE  INITX,RLIST                                                     SQZ          488     A     
 SQZ                EQ     MSL1                                                            SQZ          489     A     
 SQZ       EOQ      SPACE  3                                                               SQZ          490     A     
 SQZ      *         EOQ - END OF REDUCTION PHASE                                           SQZ          491     A     
 SQZ                                                                                       SQZ          492     A     
 SQZ                PROCESS EOQ                                                            SQZ          493     A     
 SQZ                RJ     EDD         XFER USES COUNTS, MARK DEAD DEFINITIONS             SQZ          494     A     
 SQZ                TRACE  EDD,RLIST                                                       SQZ          495     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3310    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                RJ     EDI         COMPRESS SEQUENCE                                   SQZ          496     A     
 SQZ                TRACE  SQZ.X,RLIST                                                     SQZ          497     A     
 SQZ                                                                                       SQZ          498     A     
 SQZ                SA2    BIAS                                                            SQZ          499     A     
 SQZ                SA0    B5+                                                             SQZ          500     A     
 SQZ                CALL   RNI         RENUMBER THE INSTRUCTIONS                           SQZ          501     A     
 SQZ                SX6    0                                                               SQZ          502     A     
 SQZ                SA6    L.RND       L.RND = 0                                           SQZ          503     A     
 SQZ                RJ     IXI         INSERT EXTRA INSTRUCTIONS                           FCC0238AX     56     A     
 SQZ                EQ     SBB         RETURN                                              SQZ          504     A     
 SQZ       MSL      TITLE  MASTER SQUEEZE LOOP                                             SQZ          505     A     
 SQZ      **        MSL - MASTER SQUEEZE LOOP                                              SQZ          506     A     
 SQZ      *         REPLACE INSTRUCTIONS WHOSE RESULTS ARE KNOWN WITH SIMPLER              SQZ          507     A     
 SQZ      *         INSTRUCTIONS, OR ELIMINATE REDUNDANT INSTRUCTIONS                      SQZ          508     A     
 SQZ      *         MOST OF THE SPECIAL CASING HERE CENTERS ABOUT REDUCING                 SQZ          509     A     
 SQZ      *         INSTRUCTIONS WHOSE OPERANDS ARE ZERO.  THIS IS NECESSARY               SQZ          510     A     
 SQZ      *         BECAUSE IN PASS 1, *ARITH* OUTPUTS MIXED MODE COMPUTATIONS AS          SQZ          511     A     
 SQZ      *         (REAL,0) OP COMPLEX , ETC.                                             SQZ          512     A     
 SQZ                                                                                       SQZ          513     A     
 SQZ                                                                                       SQZ          514     A     
 SQZ                PROCESS EOS                                                            SQZ          515          I
          -FCC0588
 SQZ       MSL1     SA5    A4+B2       R1 = DI + 2   */ ADVANCE TO NEXT INSTRUCTIO         SQZ          516     A     
 SQZ                SA4    A5+B2       DI = R1 + 2                                         SQZ          517     A     
 SQZ                MX1    D.TYL                                                           SQZ          518     A     
 SQZ                LX4    58-D.TYP                                                        SQZ          519     A     
 SQZ                BX6    X1*X4                                                           SQZ          520     A     
 SQZ                LX4    D.TYP+2                                                         SQZ          521     A     
 SQZ                UX7    "OC",X5                                                         SQZ          522     A     
 SQZ                NZ     X6,MSL3     IF TYPE[DI] " I                                     SQZ          523     A     
 SQZ                                                                                       SQZ          524     A     
 SQZ      *         TYPE I - REPLACE OPERAND R-NUMBERS WITH EQUIVALENTS FROM RND.          SQZ          525     A     
 SQZ                                                                                       SQZ          526     A     
 SQZ                LX7    -R1.RKP                                                         SQZ          527     A     
 SQZ                BX6    -X0*X7                                                          SQZ          528     A     
 SQZ                SA2    "RN"+X6     (X2) = RK = RND(RK)                                 SQZ          529     A     
 SQZ                LX7    R1.RKP-R1.RJP                                                   SQZ          530     A     
 SQZ                SA1    "RN"+X7     (X1) = RJ = RND(RJ)                                 SQZ          531     A     
 SQZ                LX4    59-D.CMP                                                        SQZ          532     A     
 SQZ                BX5    -X0*X5                                                          SQZ          533     A     
 SQZ                PL     X4,MSL2     IF ^CM[DI]                                          SQZ          534     A     
 SQZ                SB4    X1                                                              SQZ          535     A     
 SQZ                SB5    X2                                                              SQZ          536     A     
 SQZ                GE     B4,B5,MSL2  IF RJ \ RK    */ CANONICAL ORDER                    SQZ          537     A     
 SQZ                SA1    A2+                                                             SQZ          538     A     
 SQZ                SA2    "RN"+X7     SWAP( RJ , RK )                                     SQZ          539     A     
 SQZ                                                                                       SQZ          540     A     
 SQZ       MSL2     BX3    -X0*X1                                                          SQZ          541     A     
 SQZ                LX4    1+D.CMP                                                         SQZ          542     A     
 SQZ                PX5    "OC",X5                                                         SQZ          543     A     
 SQZ                BX6    -X0*X2                                                          SQZ          544     A     
 SQZ                LX3    R1.RJP                                                          SQZ          545     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3311    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                BX5    X3+X5                                                           SQZ          546     A     
 SQZ                LX6    R1.RKP                                                          SQZ          547     A     
 SQZ                IX7    X5+X6                                                           SQZ          548     A     
 SQZ                BX5    X5+X6                                                           SQZ          549     A     
 SQZ                SA7    A5+0        [R1] = TYI(OC,RJ,RK,RI)                             SQZ          550     A     
 SQZ                                                                                       SQZ          551     A     
 SQZ      **        JUMP TO INSTRUCTION PROCESSORS WITH -                                  SQZ          552     A     
 SQZ      *         (A5) = R1 = ADDRESS OF R1 WORD  , (X5) = [R1]                          SQZ          553     A     
 SQZ      *         (A4) = DI, ADDRESS OF DESCRIPTOR , (X4) = [DI]                         SQZ          554     A     
 SQZ      *         (B6) = RI = RI[R1]                                                     SQZ          555     A     
 SQZ      *         FOR TYPE I INSTRUCTIONS, (X1/X2) = RND(RJ)/RND(RK)                     SQZ          556     A     
 SQZ                                                                                       SQZ          557     A     
 SQZ       MSL3     BX3    -X0*X5                                                          SQZ          558     A     
 SQZ                SB6    X3          (B6) = RI                                           SQZ          559     A     
 SQZ                JP     SBB.JT+"OC" JUMP( SBB.JT(OC[R1]) )                              SQZ          560     A     
 SQZ       SXT      TITLE  MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                       SQZ          561     A     
 SQZ      **        SPECIAL PROCESSING OF TYPE I INSTRUCTIONS                              SQZ          562     A     
 SQZ                                                                                       SQZ          563     A     
 SQZ                PROCESS SXT        CONSTANT SHIFT PREDECESSOR                          SQZ          564     A     
 SQZ                SA3    A4+4        DIS = DI + 4                                        SQZ          565     A     
 SQZ                LX3    59-D.KSP                                                        SQZ          566     A     
 SQZ                PL     X3,AUC.RJ   IF ^KS[DIS]   */ NEXT IS NOT A CON SHIFT            SQZ          567     A     
 SQZ                LX1    59-RN.CP                                                        SQZ          568     A     
 SQZ                PL     X1,SXT0     IF ^C[RJ]                                           SQZ          569     A     
 SQZ                                                                                       SQZ          570     A     
 SQZ      *         CONSTANT OPERAND, EVALUATE SXT, SHIFT COMBINATION                      SQZ          571     A     
 SQZ                                                                                       SQZ          572     A     
 SQZ                LX1    1+RN.CP-RN.TPP                                                  SQZ          573     A     
 SQZ                SA3    X1          R1J = TP[RJ]                                        SQZ          574     A     
 SQZ                RJ     DCV         VAL = DCV(R1J)                                      SQZ          575     A     
 SQZ                SA2    A4+B2       R1S = DI + 2                                        SQZ          576     A     
 SQZ                SA3    A2+B1       R2S = R1S + 1                                       SQZ          577     A     
 SQZ                UX2    B3,X2                                                           SQZ          578     A     
 SQZ                LX3    -IH.CAP                                                         SQZ          579     A     
 SQZ                SB3    B3-OC.KLS                                                       SQZ          580     A     
 SQZ                LX1    RN.TPP+59-RN.CP                                                 SQZ          581     A     
 SQZ                SB4    X3                                                              SQZ          582     A     
 SQZ      +         LX6    B4,X7                                                           SQZ          583     A     
 SQZ                ZR     B3,*+1      VAL[RI] = SHIFT( VAL[RJ] , CA[R2S] )                SQZ          584     A     
 SQZ                AX6    B4,X7                                                           SQZ          585     A     
 SQZ                SX3    X6                                                              SQZ          586     A     
 SQZ                BX7    X6-X3                                                           SQZ          587     A     
 SQZ                NZ     X7,SXT0     IF VAL " SXIXJ(VAL)                                 SQZ          588     A     
 SQZ                                                                                       SQZ          589     A     
 SQZ                SA7    A4          [DI] = 0      */ KILL THE *SXT*                     SQZ          590     A     
 SQZ                SA5    A4+B2       R1 = DI + 2                                         SQZ          591     A     
 SQZ                SA4    A5+B2       DI = R1 + 2   */ ADVANCE TO NEXT INSTRUCTION        SQZ          592     A     
 SQZ                BX3    -X0*X5                                                          SQZ          593     A     
 SQZ                SB6    X3                                                              SQZ          594     A     
 SQZ                EQ     CCV                                                             SQZ          595     A     
 SQZ                                                                                       SQZ          596     A     
 SQZ       SXT0     SA2    SXTC                                                            SQZ          597     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3312    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                ZR     X2,SXT4     IF SXTC = 0   */ FIRST *SXT*                        SQZ          598     A     
 SQZ                LX1    1+RN.CP-RN.TPP                                                  SQZ          599     A     
 SQZ                SB5    X1          DEFA = TP[RJ]                                       SQZ          600     A     
 SQZ                BX5    X0*X5       KEY = TYI(OC,RJ,0,0)                                SQZ          601     A     
 SQZ                SA3    A4+B2                                                           SQZ          602     A     
 SQZ                UX7    B4,X3                                                           SQZ          603     A     
 SQZ                SA3    A3+B1                                                           SQZ          604     A     
 SQZ                LX3    -IH.CAP                                                         SQZ          605     A     
 SQZ                BX6    -X0*X3                                                          SQZ          606     A     
 SQZ                PX4    B4,X6       OC.CA = TY1(OC[R1+4],0,0,CA[R1+5])                  SQZ          607     A     
 SQZ                EQ     SXT2                                                            SQZ          608     A     
 SQZ                                                                                       SQZ          609     A     
 SQZ      *         SEARCH THE SXT CHAIN FOR A PREVIOUS OCCURRENCE WITH THE                SQZ          610     A     
 SQZ      *         SAME SHIFT FOLLOWING                                                   SQZ          611     A     
 SQZ                                                                                       SQZ          612     A     
 SQZ       SXT1     SA2    X2          SXTC = [SXTC]                                       SQZ          613     A     
 SQZ                SB4    X2                                                              SQZ          614     A     
 SQZ                LE     B4,B5,SXT3  IF SXTC @ DEFA                                      SQZ          615     A     
 SQZ       SXT2     SA3    X2-3        R1C = [SXTC-3]                                      SQZ          616     A     
 SQZ                BX6    X0*X3                                                           SQZ          617     A     
 SQZ                IX7    X5-X6                                                           SQZ          618     A     
 SQZ                NZ     X7,SXT1     IF KEY " TYI(OC,RJ,0,0)(SXTC)                       SQZ          619     A     
 SQZ                SA3    A3+5                                                            SQZ          620     A     
 SQZ                LX3    -IH.CAP                                                         SQZ          621     A     
 SQZ                BX7    -X0*X3                                                          SQZ          622     A     
 SQZ                SA3    A3-B1                                                           SQZ          623     A     
 SQZ                UX6    B4,X3                                                           SQZ          624     A     
 SQZ                PX6    B4,X7                                                           SQZ          625     A     
 SQZ                IX7    X6-X4                                                           SQZ          626     A     
 SQZ                NZ     X7,SXT1     IF OC.CA " OC.CA(SXTC+4)                            SQZ          627     A     
 SQZ                                                                                       SQZ          628     A     
 SQZ      *         MARK THE *SXT* AND THE FOLLOWING CON SHIFT AS REDUNDANT                SQZ          629     A     
 SQZ      *         NOTE - CON SHIFTS MAY NOT PRECEDE A STORE / REGISTER STORE.            SQZ          630     A     
 SQZ                                                                                       SQZ          631     A     
 SQZ                SA7    A4          [DI] = 0                                            SQZ          632     A     
 SQZ                BX2    -X0*X3      RIP = RI[R1C]   */ RI OF FIRST SHIFT                SQZ          633     A     
 SQZ                SA5    A4+B2       R1 = DI + 2   */ ADVANCE TO NEXT INST               SQZ          634     A     
 SQZ                SA7    A5+B2       [R1+2] = 0    */ MARK SHIFT DEAD                    SQZ          635     A     
 SQZ                BX4    -X0*X5                                                          SQZ          636     A     
 SQZ                SA3    "RN"+X2                                                         SQZ          637     A     
 SQZ                BX7    X3                                                              SQZ          638     A     
 SQZ                SA7    "RN"+X4     RND(RI) = RND(RIP)                                  SQZ          639     A     
 SQZ                SA4    A5+B2       DI = R1 + 2                                         SQZ          640     A     
 SQZ                EQ     MSL1                                                            SQZ          641     A     
 SQZ                                                                                       SQZ          642     A     
 SQZ      *         ADD THE *SXT* TO THE CHAIN                                             SQZ          643     A     
 SQZ                                                                                       SQZ          644     A     
 SQZ       SXT3     SA2    SXTC                                                            SQZ          645     A     
 SQZ                BX7    X2                                                              SQZ          646     A     
 SQZ                SA7    A4+B1       [DI+1] = SXTC                                       SQZ          647     A     
 SQZ       SXT4     SX6    A4+B1                                                           SQZ          648     A     
 SQZ                SA6    A2          SXTC = DI + 1                                       SQZ          649     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3313    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ      *         EQ     AUC.RJ                                                          SQZ          650     A     
 SQZ       AUC.RJ   SPACE  3                                                               SQZ          651     A     
 SQZ      **        AUC.RJ - ADVANCE USES COUNT FOR R-NUMBER IN *RJ* FIELD                 SQZ          652     A     
 SQZ                                                                                       SQZ          653     A     
 SQZ                PROCESS DAR                                                            SQZ          654     A     
 SQZ       AUC.RJ   LX5    -R1.RJP                                                         SQZ          655     A     
 SQZ                SX2    B1                                                              SQZ          656     A     
 SQZ                BX3    -X0*X5                                                          SQZ          657     A     
 SQZ                SA1    "RN"+X3                                                         SQZ          658     A     
 SQZ                LX2    RN.USESP                                                        SQZ          659     A     
 SQZ                IX6    X2+X1       USES[RJ] = USES[RJ] + 1                             SQZ          660     A     
 SQZ                SA6    A1+                                                             SQZ          661     A     
 SQZ                EQ     MSL1                                                            SQZ          662     A     
 SQZ                                                                                       SQZ          663     A     
 SQZ                PROCESS (KLS,KRS)  NON REDUNDANT CON SHIFT                             SQZ          664     A     
 SQZ                SA2    A5+B1       R2 = R1 + 1                                         SQZ          665     A     
 SQZ                SX3    B1                                                              SQZ          666     A     
 SQZ                LX2    -IH.RFP                                                         SQZ          667     A     
 SQZ                SA1    "RN"+X2     RF = RND(RF)                                        SQZ          668     A     
 SQZ                LX3    RN.USESP                                                        SQZ          669     A     
 SQZ                IX6    X3+X1       USES[RF] = USES[RF] + 1                             SQZ          670     A     
 SQZ                SA6    A1                                                              SQZ          671     A     
 SQZ                EQ     MSL1                                                            SQZ          672     A     
 SQZ       XMT      SPACE  3,14                                                            SQZ          673     A     
 SQZ       XMT0     S"OC"  OC.XMT                                                          SQZ          674     A     
 SQZ                RJ     URI         GENERATE AN *XMT*                                   SQZ          675     A     
 SQZ                                                                                       SQZ          676     A     
 SQZ       XMT      PROCESS XMT                                                            SQZ          677     A     
 SQZ                RJ     CTI         CHECK TRANSMIT INSTRUCTION                          SQZ          678     A     
 SQZ                EQ     SRCH                                                            SQZ          679          I
          -FCC0603
 SQZ                BX6    X4                                                              FCC0603       89     A     
 SQZ                LX6    59-D.PRSP                                                       FCC0603       90     A     
 SQZ                PL     X6,SRCH     IF ^PRS[DI]                                         FCC0603       91     A     
 SQZ                EQ     AUC.RJ                                                          FCC0603       92     A     
 SQZ       XMTC     SPACE  2                                                               SQZ          680     A     
 SQZ      *         XMTC - UNARY COMPLEMENT                                                SQZ          681     A     
 SQZ                                                                                       SQZ          682     A     
 SQZ       XMTC     PROCESS XMTC                                                           SQZ          683     A     
 SQZ                BX6    X1                                                              SQZ          684     A     
 SQZ                LX6    59-RN.CP                                                        SQZ          685     A     
 SQZ                MI     X6,XMTC1    IF C[RJ]                                            SQZ          686     A     
 SQZ                LX6    RN.CP-RN.XMTCP                                                  SQZ          687     A     
 SQZ                PL     X6,XMTC2    IF ^XMTC[RJ]                                        SQZ          688     A     
 SQZ                                                                                       SQZ          689     A     
 SQZ                LX1    -RN.TPP                                                         SQZ          690     A     
 SQZ                SA2    X1          R1P = R1[TP[RJ]]                                    SQZ          691     A     
 SQZ                LX2    -R1.RJP                                                         SQZ          692     A     
 SQZ                BX6    -X0*X2                                                          SQZ          693     A     
 SQZ                SA1    "RN"+X6                                                         SQZ          694     A     
 SQZ                LX6    R1.RJP                                                          SQZ          695     A     
 SQZ                EQ     XMT0                                                            SQZ          696     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3314    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                                                                                       SQZ          697     A     
 SQZ       XMTC1    LX1    -RN.TPP                                                         SQZ          698     A     
 SQZ                SA3    X1          R1J = TP[RJ]                                        SQZ          699     A     
 SQZ                RJ     DCV         VAL = DCV(R1J)                                      SQZ          700     A     
 SQZ                BX6    -X7         VAL = -VAL                                          SQZ          701     A     
 SQZ                MI     X6,CCV      IF VAL < 0                                          SQZ          702     A     
 SQZ                SX3    X6                                                              SQZ          703     A     
 SQZ                BX7    X6-X3                                                           SQZ          704     A     
 SQZ                NZ     X7,XMTC2    IF SETX(VAL) " VAL                                  SQZ          705     A     
 SQZ                ZR     B5,CCV      IF OC[RJ] = OC.S                                    SQZ          706     A     
 SQZ                LX1    RN.TPP                                                          SQZ          707     A     
 SQZ                SA3    "RN"+B6                                                         SQZ          708     A     
 SQZ                BX7    -X0*X1                                                          SQZ          709     A     
 SQZ                SX2    B1                                                              SQZ          710     A     
 SQZ                SA7    A5+B1       [R2] = RJ[R1J]  */ POINT TO RJ FOR *AND*            SQZ          711     A     
 SQZ                LX2    RN.FMAP                                                         SQZ          712     A     
 SQZ                BX7    X2+X3       FMA[RI] = 1                                         SQZ          713     A     
 SQZ                SA7    A3                                                              SQZ          714     A     
 SQZ                LX6    R1.INP                                                          SQZ          715     A     
 SQZ                S"OC"  OC.S                                                            SQZ          716     A     
 SQZ                RJ     URI         URI(  S  RI,VAL )                                   SQZ          717     A     
 SQZ                EQ     FMA                                                             SQZ          718     A     
 SQZ                                                                                       SQZ          719     A     
 SQZ       XMTC2    SA2    "RN"+B6                                                         SQZ          720     A     
 SQZ                SX6    B1                                                              SQZ          721     A     
 SQZ                LX6    RN.XMTCP                                                        SQZ          722     A     
 SQZ                BX7    X6+X2       XMTC[RI] = 1                                        SQZ          723     A     
 SQZ                SA7    A2                                                              SQZ          724     A     
 SQZ                EQ     SRCH                                                            SQZ          725     A     
 SQZ       AND      EJECT                                                                  SQZ          726     A     
 SQZ                PROCESS AND                                                            SQZ          727     A     
 SQZ                BX6    X1+X2                                                           SQZ          728     A     
 SQZ                LX6    59-RN.ZP                                                        SQZ          729     A     
 SQZ                MI     X6,ZERO     IF Z[RJ] ! Z[RK]                                    SQZ          730     A     
 SQZ                IX7    X1-X2                                                           SQZ          731     A     
 SQZ                ZR     X7,C.XMT    IF RJ = RK                                          SQZ          732     A     
 SQZ                LX6    RN.ZP-RN.CP                                                     SQZ          733     A     
 SQZ                PL     X6,AND3     IF ^( C[RJ] ! C[RK] )                               SQZ          734     A     
 SQZ                BX7    X1*X2                                                           SQZ          735     A     
 SQZ                LX7    59-RN.CP                                                        SQZ          736     A     
 SQZ                MI     X7,ECO      IF C[RJ] & C[RK]                                    SQZ          737     A     
 SQZ                                                                                       SQZ          738     A     
 SQZ      *         SEE IF CON IS A *FMA* CHANGED TO A *S*                                 SQZ          739     A     
 SQZ      *         IF SO, THEN CHANGE TO STR( FMA , RK )                                  SQZ          740     A     
 SQZ                                                                                       SQZ          741     A     
 SQZ                BX7    X6                                                              SQZ          742     A     
 SQZ                LX7    RN.CP-RN.FMAP                                                   SQZ          743     A     
 SQZ                PL     X7,AND3     IF ^(FMA[RJ] ! FMA[RK] )                            SQZ          744     A     
 SQZ                                                                                       SQZ          745     A     
 SQZ                BX6    X1                                                              SQZ          746     A     
 SQZ                LX6    59-RN.FMAP                                                      SQZ          747     A     
 SQZ                MI     X6,AND2     IF FMA[RJ]                                          SQZ          748     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3315    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                BX1    X2                                                              SQZ          749     A     
 SQZ                LX6    1+RN.FMAP   SWAP( RJ , RK )                                     SQZ          750     A     
 SQZ                BX2    X6                                                              SQZ          751     A     
 SQZ                                                                                       SQZ          752     A     
 SQZ       AND2     LX1    -RN.TPP                                                         SQZ          753     A     
 SQZ                BX2    -X0*X2                                                          SQZ          754     A     
 SQZ                SA1    X1+B1       RJ = [TP[RJ]+1]  */ R2 OF *S*                       SQZ          755     A     
 SQZ                LX2    R1.RKP                                                          SQZ          756     A     
 SQZ                S"OC"  OC.STR                                                          SQZ          757     A     
 SQZ                LX1    R1.RJP                                                          SQZ          758     A     
 SQZ                BX6    X1+X2                                                           SQZ          759     A     
 SQZ                EQ     CAO2                                                            SQZ          760     A     
 SQZ                                                                                       SQZ          761     A     
 SQZ       AND3     LX6    RN.CP-RN.XMTCP                                                  SQZ          762     A     
 SQZ                PL     X6,SRCH     IF ^XMTC[RJ] & ^XMTC[RK]                            SQZ          763     A     
 SQZ                S"OC"  OC.STR                                                          SQZ          764     A     
 SQZ                SB5    R1.RJP                                                          SQZ          765     A     
 SQZ                EQ     CAO                                                             SQZ          766     A     
 SQZ       DFM      EJECT                                                                  SQZ          767     A     
 SQZ                PROCESS (DFM,IM)                                                       SQZ          768          I
          -FCC0238AX
 SQZ                PROCESS IM                                                             FCC0238AX     57     A     
 SQZ                BX6    X4                                                              FCC0238AX     58     A     
 SQZ                LX6    59-D.USIP                                                       FCC0238AX     59     A     
 SQZ                PL     X6,DFM      IF ^USI[DI]                                         FCC0238AX     60     A     
 SQZ                SX6    B1                                                              FCC0238AX     61     A     
 SQZ                SA6    IXF         IXF = 1                                             FCC0238AX     62     A     
 SQZ                                                                                       FCC0238AX     63     A     
 SQZ       DFM      PROCESS DFM                                                            FCC0238AX     64     A     
 SQZ                BX6    X1+X2                                                           SQZ          769     A     
 SQZ                LX6    59-RN.ZP                                                        SQZ          770     A     
 SQZ                MI     X6,ZERO     IF Z[RJ] ! Z[RK]                                    SQZ          771     A     
 SQZ                LX6    RN.ZP-RN.CP                                                     SQZ          772     A     
 SQZ                PL     X6,SRCH     IF ^( C[RJ] ! C[RK] )                               SQZ          773     A     
 SQZ                BX7    X1*X2                                                           SQZ          774     A     
 SQZ                LX7    59-RN.CP                                                        SQZ          775     A     
 SQZ                PL     X7,DFM1     IF ^( C[RJ] & C[RK] )                               SQZ          776     A     
 SQZ                                                                                       SQZ          777     A     
 SQZ                S"OC"  OC.DFM                                                          SQZ          778     A     
 SQZ                EQ     ECO                                                             SQZ          779     A     
 SQZ                                                                                       SQZ          780     A     
 SQZ       DFM1     BX7    X1                                                              SQZ          781     A     
 SQZ                LX7    59-RN.CP                                                        SQZ          782     A     
 SQZ                MI     X7,DFM2     IF C[RJ]                                            SQZ          783     A     
 SQZ                BX1    X2                                                              SQZ          784     A     
 SQZ                LX7    1+RN.CP                                                         SQZ          785     A     
 SQZ                BX2    X7                                                              SQZ          786     A     
 SQZ                                                                                       SQZ          787     A     
 SQZ       DFM2     LX1    -RN.TPP                                                         SQZ          788     A     
 SQZ                SA3    X1                                                              SQZ          789     A     
 SQZ                RJ     DCV         VAL = VAL[RJ/RK]                                    SQZ          790     A     
 SQZ                MX6    59                                                              SQZ          791     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3316    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                IX3    X7-X6                                                           SQZ          792     A     
 SQZ                ZR     X7,ZERO     IF VAL = -0                                         SQZ          793     A     
 SQZ                MI     X3,SRCH     IF VAL < -1                                         SQZ          794     A     
 SQZ                AX3    2                                                               SQZ          795     A     
 SQZ                SB4    X7                                                              SQZ          796     A     
 SQZ                NZ     X3,SRCH     IF VAL > 2                                          SQZ          797     A     
 SQZ                SA1    "RN"+X2                                                         SQZ          798     A     
 SQZ                BX6    -X0*X2                                                          SQZ          799     A     
 SQZ                LX6    R1.RJP                                                          SQZ          800     A     
 SQZ                EQ     B4,B2,DFM3  IF VAL = 2                                          SQZ          801     A     
 SQZ                EQ     B4,B1,XMT0  IF VAL = 1                                          SQZ          802     A     
 SQZ                S"OC"  OC.XMTC                                                         SQZ          803     A     
 SQZ                RJ     URI         URI(  XMTC  RI,RJ )                                 SQZ          804     A     
 SQZ                EQ     XMTC                                                            SQZ          805     A     
 SQZ                                                                                       SQZ          806     A     
 SQZ       DFM3     BX7    X6                                                              SQZ          807     A     
 SQZ                LX7    R1.RKP-R1.RJP                                                   SQZ          808     A     
 SQZ                IX6    X6+X7                                                           SQZ          809     A     
 SQZ                S"OC"  OC.IA                                                           SQZ          810     A     
 SQZ                RJ     URI                                                             SQZ          811     A     
 SQZ                EQ     SRCH                                                            SQZ          812     A     
 SQZ       FM       SPACE  3,7                                                             SQZ          813     A     
 SQZ                PROCESS (FM,RFM)                                                       SQZ          814     A     
 SQZ                BX6    X1+X2                                                           SQZ          815     A     
 SQZ                LX6    59-RN.ZP                                                        SQZ          816     A     
 SQZ                MI     X6,ZERO     IF Z[RJ] ! Z[RK]                                    SQZ          817     A     
 SQZ                EQ     SRCH                                                            SQZ          818     A     
 SQZ                                                                                       SQZ          819     A     
 SQZ                PROCESS (FD,RFD)                                                       SQZ          820     A     
 SQZ                LX1    59-RN.ZP                                                        SQZ          821     A     
 SQZ                MI     X1,ZERO     IF Z[RJ]                                            SQZ          822     A     
 SQZ                LX1    RN.ZP-RN.PZP                                                    SQZ          823     A     
 SQZ                MI     X1,ZERO     IF PZ[RJ]                                           SQZ          824     A     
 SQZ                EQ     SRCH                                                            SQZ          825     A     
 SQZ                                                                                       SQZ          826     A     
 SQZ                PROCESS OR                                                             SQZ          827     A     
 SQZ                BX6    X1*X2                                                           SQZ          828     A     
 SQZ                LX6    59-RN.ZP                                                        SQZ          829     A     
 SQZ                MI     X6,ZERO     IF Z[RJ] & Z[RK]                                    SQZ          830     A     
 SQZ                IX7    X1-X2                                                           SQZ          831     A     
 SQZ                ZR     X7,C.XMT    IF RJ = RK                                          SQZ          832     A     
 SQZ                BX6    X1+X2                                                           SQZ          833     A     
 SQZ                LX6    59-RN.ZP                                                        SQZ          834     A     
 SQZ                MI     X6,C.XMT    IF Z[RJ] ! Z[RK]                                    SQZ          835     A     
 SQZ                LX6    RN.ZP-RN.XMTCP                                                  SQZ          836     A     
 SQZ                PL     X6,SRCH                                                         SQZ          837     A     
 SQZ                S"OC"  OC.IMP                                                          SQZ          838     A     
 SQZ                SB5    R1.RJP                                                          SQZ          839     A     
 SQZ                EQ     CAO                                                             SQZ          840     A     
 SQZ                                                                                       SQZ          841     A     
 SQZ                PROCESS XOR                                                            SQZ          842     A     
 SQZ                BX6    X1-X2                                                           SQZ          843     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3317    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                ZR     X6,ZERO     IF RND(RJ) = RND(RK)                                SQZ          844     A     
 SQZ                BX6    X1*X2                                                           SQZ          845     A     
 SQZ                LX6    59-RN.ZP                                                        SQZ          846     A     
 SQZ                MI     X6,ZERO     IF Z[RJ] & Z[RK]                                    SQZ          847     A     
 SQZ                BX6    X1+X2                                                           SQZ          848     A     
 SQZ                LX6    59-RN.ZP                                                        SQZ          849     A     
 SQZ                MI     X6,C.XMT    IF Z[RJ] ! Z[RK]                                    SQZ          850     A     
 SQZ                LX6    RN.ZP-RN.XMTCP                                                  SQZ          851     A     
 SQZ                PL     X6,SRCH     IF ^XMTC[RJ] & ^XMTC[RK]                            SQZ          852     A     
 SQZ                S"OC"  OC.EQV                                                          SQZ          853     A     
 SQZ                SB5    R1.RJP                                                          SQZ          854     A     
 SQZ                EQ     CAO                                                             SQZ          855     A     
 SQZ       IADD     SPACE  2                                                               SQZ          856     A     
 SQZ       IA0      RJ     GCV         GET CONSTANT VALUES                                 SQZ          857     A     
 SQZ                IX6    X6+X7       VAL[RI] = VAL[RJ] + VAL[RK]                         SQZ          858     A     
 SQZ                EQ     CCV                                                             SQZ          859     A     
 SQZ                                                                                       SQZ          860     A     
 SQZ                PROCESS IA                                                             SQZ          861     A     
 SQZ                BX7    X1*X2                                                           SQZ          862     A     
 SQZ                LX7    59-RN.CP                                                        SQZ          863     A     
 SQZ                MI     X7,IA0      IF C[RJ] & C[RK]                                    SQZ          864     A     
 SQZ                BX6    X1+X2                                                           SQZ          865     A     
 SQZ                LX6    59-RN.ZP                                                        SQZ          866     A     
 SQZ                MI     X6,C.XMT    IF Z[RJ] ! Z[RK]                                    SQZ          867     A     
 SQZ                LX6    RN.ZP-RN.XMTCP                                                  SQZ          868     A     
 SQZ                MI     X6,FA1      IF XMTC[RJ] ! XMTC[RK]                              SQZ          869     A     
 SQZ                LX6    RN.XMTCP-RN.CP                                                  SQZ          870          I
          -FCC0514
 SQZ                PL     X6,SRCH                                                         SQZ          871          I
          -FCC0514
 SQZ                                                                                       FCC0514      214     A     
 SQZ                BX7    X4                                                              FCC0716       12     A     
 SQZ                LX7    59-D.USIP                                                       FCC0716       13     A     
 SQZ                MI     X7,IA1      IF USI[DI]    */ USI OR REDUCED IAZ/ISZ             FCC0716       14     A     
 SQZ                LX1    -RN.TPP                                                         FCC0514      215     A     
 SQZ                SA3    X1          R1J = TP[RJ]                                        FCC0514      216     A     
 SQZ                SB5    OC.IS                                                           FCC0514      217     A     
 SQZ                UX7    B4,X3                                                           FCC0514      218     A     
 SQZ                LX1    RN.TPP                                                          FCC0514      219     A     
 SQZ                NE     B4,B5,IA1   IF OC[R1J] " OC.IS                                  FCC0514      220     A     
 SQZ                                                                                       FCC0514      221     A     
 SQZ                BX7    X5-X3                                                           FCC0514      222     A     
 SQZ                LX7    -R1.RKP                                                         FCC0514      223     A     
 SQZ                BX7    -X0*X7                                                          FCC0514      224     A     
 SQZ                LX3    -R1.RJP     RJX = RJ[R1J]                                       FCC0514      225     A     
 SQZ                ZR     X7,I.XMT    IF RK[R1] = RK[R1J]  */ REDUCE (J-K)+K TO J         FCC0514      226          I
          -FCC1660X 
 SQZ                NZ     X7,IA1      IF RK[R1] " RK[R1J]  */ NOT (J-K)+K                 FCC1660X       6     A     
 SQZ                                                                                       FCC1660X       7     A     
 SQZ                BX7    X1                                                              FCC1660X       8     A     
 SQZ                LX7    59-RN.INCP                                                      FCC1660X       9     A     
 SQZ                PL     X7,I.XMT    IF ^INC[R1J]                                        FCC1660X      10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3318    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                SX7    A3                                                              FCC1660X      11     A     
 SQZ                SB5    X3                                                              FCC1660X      12     A     
 SQZ                SA3    JPXA                                                            FCC1660X      13     A     
 SQZ                IX7    X7-X3                                                           FCC1660X      14     A     
 SQZ                SX3    B5                                                              FCC1660X      15     A     
 SQZ                PL     X7,I.XMT    IF R1J > JPXA */ IN THE SAME BLOCK                  FCC1660X      16     A     
 SQZ                                                                                       FCC0514      227     A     
 SQZ       IA1      LX6    RN.XMTCP-RN.CP                                                  FCC0514      228     A     
 SQZ                PL     X6,SRCH     IF ^( C(RJ] ! C[RK] )                               FCC0514      229     A     
 SQZ                EQ     CIA                                                             SQZ          872     A     
 SQZ       IAZ      SPACE  3,14                                                            SQZ          873     A     
 SQZ      *         IAZ - ADD ZERO TO OPERAND PRIOR TO USE IN A CONDITIONAL JUMP           SQZ          874     A     
 SQZ                                                                                       SQZ          875     A     
 SQZ                PROCESS IAZ                                                            SQZ          876     A     
 SQZ                BX7    X1*X2                                                           SQZ          877     A     
 SQZ                LX7    59-RN.CP                                                        SQZ          878     A     
 SQZ                MI     X7,IA0      IF C[RJ] & C[RK]                                    SQZ          879     A     
 SQZ                MX7    2                                                               SQZ          880     A     
 SQZ                BX6    X1+X2       RJK = RJ ! RK                                       SQZ          881     A     
 SQZ                LX6    58-RN.IACIP                                                     SQZ          882     A     
 SQZ                BX7    X7*X6                                                           SQZ          883     A     
 SQZ                NZ     X7,C.XMT    IF IAC[RJK] ! INC[RJK]                              SQZ          884          I
          -FCC0716
 SQZ                NZ     X7,IAZ1     IF IAC[RJK] ! INC[RJK]                              FCC0716       15     A     
 SQZ                LX6    1+RN.IACIP-RN.XMTCP                                             SQZ          885     A     
 SQZ                PL     X6,SRCH     IF ^XMTC[RJK]                                       SQZ          886     A     
 SQZ                EQ     FA1                                                             SQZ          887     A     
 SQZ                                                                                       FCC0716       16     A     
 SQZ       IAZ1     BX6    X2          RW = RKW                                            FCC0716       17     A     
 SQZ                LX6    59-RN.ZP                                                        FCC0716       18     A     
 SQZ                PL     X6,IAZ2     IF ^Z[RKW]                                          FCC0716       19     A     
 SQZ                BX6    X1          RW = RJW                                            FCC0716       20     A     
 SQZ                LX6    59-RN.ZP                                                        FCC0716       21     A     
 SQZ       IAZ2     LX6    1+RN.ZP-RN.TPP                                                  FCC0716       22     A     
 SQZ                SA3    X6+B2       DP = TP[RW] + 2                                     FCC0716       23     A     
 SQZ                SX7    B1                                                              FCC0716       24     A     
 SQZ                LX7    D.USIP                                                          FCC0716       25     A     
 SQZ                BX6    X7+X3       USI[DP] = 1   */ INHIBIT FURTHER REDUCTION          FCC0716       26     A     
 SQZ                SA6    A3                                                              FCC0716       27     A     
 SQZ                EQ     C.XMT                     */ GO CHANGE IAZ TO AN *XMT*          FCC0716       28     A     
 SQZ       DFA      SPACE  2,14                                                            SQZ          888     A     
 SQZ                PROCESS DFA                                                            SQZ          889     A     
 SQZ                BX6    X1+X2                                                           SQZ          890     A     
 SQZ                LX6    59-RN.ZP                                                        SQZ          891     A     
 SQZ                MI     X6,ZERO     IF Z[RJ] ! Z[RK]                                    SQZ          892     A     
 SQZ                LX6    RN.ZP-RN.XMTCP                                                  SQZ          893     A     
 SQZ                MI     X6,FA1      IF XMTC[RJ] ! XMTC[RK]                              SQZ          894     A     
 SQZ                EQ     SRCH                                                            SQZ          895     A     
 SQZ                                                                                       SQZ          896     A     
 SQZ                PROCESS (FA,RFA)                                                       SQZ          897     A     
 SQZ                BX6    X1*X2                                                           SQZ          898     A     
 SQZ                LX6    59-RN.CP                                                        SQZ          899     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3319    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                MI     X6,ECO      IF C[RJ] & C[RK]                                    SQZ          900     A     
 SQZ                BX6    X1+X2                                                           SQZ          901     A     
 SQZ                LX6    59-RN.ZP                                                        SQZ          902     A     
 SQZ                MI     X6,F.XMT    IF Z[RJ] ! Z[RK]                                    SQZ          903     A     
 SQZ                LX6    RN.ZP-RN.XMTCP                                                  SQZ          904     A     
 SQZ                BX7    X1-X2                                                           SQZ          905     A     
 SQZ                MI     X6,FA1      IF XMTC[RJ] ! XMTC[RK]                              SQZ          906     A     
 SQZ                NZ     X7,SRCH     IF RJ " RK    */ NOT X+X                            SQZ          907     A     
 SQZ                SA3    "RN"+B6                                                         SQZ          908     A     
 SQZ                SX6    B1                                                              SQZ          909     A     
 SQZ                LX6    RN.NRP                                                          SQZ          910     A     
 SQZ                BX7    X6+X3       NR[RND(RI)] = 1  */ INDICATE NORMALIZE NOT          SQZ          911     A     
 SQZ                SA7    A3                                                              SQZ          912     A     
 SQZ                EQ     SRCH                                                            SQZ          913     A     
 SQZ                                                                                       SQZ          914     A     
 SQZ       FA1      S"OC"  "OC"+1      OC = OC + 1   */ CHANGE ADD TO A SUBTRACT           SQZ          915     A     
 SQZ                SB5    R1.RKP                                                          SQZ          916     A     
 SQZ       CAO      SPACE  3,18                                                            SQZ          917     A     
 SQZ      **        CAO - CHANGE COMMUTATIVE-ADDITIVE OPERATION TO APPROPRIATE             SQZ          918     A     
 SQZ      *         SUBTRACTIVE OPERATION.                                                 SQZ          919     A     
 SQZ      *                                                                                SQZ          920     A     
 SQZ      *         ENTRY  (B3) = NEW OPCODE                                               SQZ          921     A     
 SQZ      *                (B5) = RJ/RK SHIFT COUNT                                        SQZ          922     A     
 SQZ      *                (X1/X2) = RND ENTRIES FOR RJ,RK                                 SQZ          923     A     
 SQZ      *                (X5) = R1 WORD                                                  SQZ          924     A     
 SQZ      *                (B6) = RI                                                       SQZ          925     A     
 SQZ                                                                                       SQZ          926     A     
 SQZ       CAO      BX6    X1                                                              SQZ          927     A     
 SQZ                LX5    -R1.RKP                                                         SQZ          928     A     
 SQZ                LX6    59-RN.XMTCP                                                     SQZ          929     A     
 SQZ                MI     X6,CAO1     IF XMTC[RJ]                                         SQZ          930     A     
 SQZ                BX1    X2                                                              SQZ          931     A     
 SQZ                LX5    R1.RKP-R1.RJP                                                   SQZ          932     A     
 SQZ                                                                                       SQZ          933     A     
 SQZ       CAO1     BX5    -X0*X5                                                          SQZ          934     A     
 SQZ                LX1    -RN.TPP                                                         SQZ          935     A     
 SQZ                SA2    X1          R1P = TP[RJ/K]                                      SQZ          936     A     
 SQZ                LX2    -R1.RJP                                                         SQZ          937     A     
 SQZ                BX1    -X0*X2      NEW R NUM                                           SQZ          938     A     
 SQZ                LX7    B5,X1                                                           SQZ          939     A     
 SQZ                SB5    B5-3*R1.RIL                                                     SQZ          940     A     
 SQZ                AX5    B5,X5                                                           SQZ          941     A     
 SQZ                BX6    X5+X7                                                           SQZ          942     A     
 SQZ                                                                                       SQZ          943     A     
 SQZ       CAO2     RJ     URI         UPDATE INSTRUCTIONS                                 SQZ          944          I
          -FCC0716
 SQZ       CAO2     SX3    B1                                                              FCC0716       29     A     
 SQZ                LX3    D.USIP                                                          FCC0716       30     A     
 SQZ                BX7    X3*X4                                                           FCC0716       31     A     
 SQZ                LX7    -D.USIP                                                         FCC0716       32     A     
 SQZ                SB4    X7          U = USI[DI]                                         FCC0716       33     A     
 SQZ                RJ     URI         UPDATE INSTRUCTION                                  FCC0716       34     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3320    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                SX7    B4                                                              FCC0716       35     A     
 SQZ                LX7    D.USIP                                                          FCC0716       36     A     
 SQZ                BX7    X7+X4       USI[DI] = USI[DI] ! U                               FCC0716       37     A     
 SQZ                SA7    A4                                                              FCC0716       38     A     
 SQZ                BX4    X7                                                              FCC0716       39     A     
 SQZ                LX6    -R1.RJP                                                         SQZ          945     A     
 SQZ                BX7    -X0*X6                                                          SQZ          946     A     
 SQZ                SA1    "RN"+X7     (X1) = RND(RJ)                                      SQZ          947     A     
 SQZ                LX6    R1.RJP-R1.RKP                                                   SQZ          948     A     
 SQZ                BX7    -X0*X6                                                          SQZ          949     A     
 SQZ                SA2    "RN"+X7     (X2) = RND(RK)                                      SQZ          950     A     
 SQZ                LX4    59-D.CMP                                                        SQZ          951     A     
 SQZ                PL     X4,CAO3     IF ^CM[DI]                                          SQZ          952     A     
 SQZ                SA4    A5-B2       DI = R1 - 2                                         SQZ          953     A     
 SQZ                EQ     MSL1        */ ADJUST RJ,RK BEFORE PROCESSING                   SQZ          954     A     
 SQZ                                                                                       SQZ          955     A     
 SQZ       CAO3     LX4    1+D.CMP                                                         SQZ          956     A     
 SQZ                JP     SBB.JT+"OC" JUMP( OC )    */ PROCESS NEW INSTRUCTION            SQZ          957     A     
 SQZ       I.XMT    SPACE  3                                                               FCC0514      230     A     
 SQZ      **        I.XMT - CHANGE IA/IS COMBINATION TO AN *XMT/XMTC*                      FCC0514      231     A     
 SQZ      *                                                                                FCC0514      232     A     
 SQZ      *         ENTRY  (X3) = RJX , *RJ* OF *XMT/XMTC*                                 FCC0514      233     A     
 SQZ                                                                                       FCC0514      234     A     
 SQZ       I.XMTC   S"OC"  OC.XMTC     OC = OC.XMTC                                        FCC0514      235     A     
 SQZ                EQ     I.XMT1                                                          FCC0514      236     A     
 SQZ                                                                                       FCC0514      237     A     
 SQZ       I.XMT    S"OC"  OC.XMT      OC = OC.XMT                                         FCC0514      238     A     
 SQZ       I.XMT1   BX6    -X0*X3                                                          FCC0514      239     A     
 SQZ                SA1    "RN"+X6     (X1) = RND(RJX)                                     FCC0514      240     A     
 SQZ                LX6    R1.RJP                                                          FCC0514      241     A     
 SQZ                RJ     URI         URI(  OC  RI,RJX )                                  FCC0514      242     A     
 SQZ                JP     SBB.JT+"OC" JUMP(SBB.JT(OC))                                    FCC0514      243     A     
 SQZ       STR      TITLE  MASTER SQUEEZE LOOP - TYPE I SUBTRACTIVE INSTRUCTIONS           SQZ          958     A     
 SQZ                PROCESS STR        NAND  ( ^RJ & RK )                                  SQZ          959     A     
 SQZ                BX6    X1-X2                                                           SQZ          960     A     
 SQZ                LX2    59-RN.ZP                                                        SQZ          961     A     
 SQZ                MI     X2,ZERO     IF Z[RK]                                            SQZ          962     A     
 SQZ                ZR     X6,ZERO     IF RJ = RK                                          SQZ          963     A     
 SQZ                LX1    59-RN.ZP                                                        SQZ          964     A     
 SQZ                MI     X1,C.XMT    IF Z[RJ]                                            SQZ          965     A     
 SQZ                S"OC"  OC.AND                                                          SQZ          966     A     
 SQZ                EQ     EQV1                                                            SQZ          967     A     
 SQZ       IMP      SPACE  3                                                               SQZ          968     A     
 SQZ                PROCESS IMP        NOR  ( ^RJ ! RK )                                   SQZ          969     A     
 SQZ                BX6    X1-X2                                                           SQZ          970     A     
 SQZ                ZR     X6,FMA60    IF RJ = RK                                          SQZ          971     A     
 SQZ                LX1    59-RN.ZP                                                        SQZ          972     A     
 SQZ                MI     X1,FMA60    IF Z[RJ]                                            SQZ          973     A     
 SQZ                LX2    59-RN.ZP                                                        SQZ          974     A     
 SQZ                MI     X2,C.XMTC   IF Z[RK]                                            SQZ          975     A     
 SQZ                S"OC"  OC.OR                                                           SQZ          976     A     
 SQZ                EQ     EQV1                                                            SQZ          977     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3321    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ       EQV      SPACE  3                                                               SQZ          978     A     
 SQZ                PROCESS EQV        NXOR  ( ^RJ XOR RK )                                SQZ          979     A     
 SQZ                BX6    X1*X2                                                           SQZ          980     A     
 SQZ                LX6    59-RN.ZP                                                        SQZ          981     A     
 SQZ                IX7    X1-X2                                                           SQZ          982     A     
 SQZ                MI     X6,FMA60    IF Z[RJ] & Z[RK]                                    SQZ          983     A     
 SQZ                ZR     X7,FMA60    IF RJ = RK                                          SQZ          984     A     
 SQZ                BX6    X1+X2                                                           SQZ          985     A     
 SQZ                LX6    59-RN.ZP                                                        SQZ          986     A     
 SQZ                MI     X6,C.XMTC   IF Z[RJ] ! Z[RK]                                    SQZ          987     A     
 SQZ                LX1    59-RN.ZP                                                        SQZ          988     A     
 SQZ                LX2    59-RN.ZP                                                        SQZ          989     A     
 SQZ                S"OC"  OC.XOR                                                          SQZ          990     A     
 SQZ                                                                                       SQZ          991     A     
 SQZ      *         CHANGE TO OPERATION NOT INVOLVING THE COMPLEMENT                       SQZ          992     A     
 SQZ                                                                                       SQZ          993     A     
 SQZ       EQV1     LX1    RN.ZP-RN.XMTCP                                                  SQZ          994     A     
 SQZ                PL     X1,SRCH     IF ^XMTC[RJ]                                        SQZ          995     A     
 SQZ                LX1    1+RN.ZP-RN.TPP                                                  SQZ          996          I
          -FCC0716
 SQZ                LX1    1+RN.XMTCP-RN.TPP                                               FCC0716       40     A     
 SQZ                SA3    X1          R1P = TP[RJ]                                        SQZ          997     A     
 SQZ                LX5    -R1.RKP                                                         SQZ          998     A     
 SQZ                BX5    -X0*X5      RK                                                  SQZ          999     A     
 SQZ                LX3    -R1.RJP                                                         SQZ         1000     A     
 SQZ                BX6    -X0*X3      RJ = RJ[R1P]                                        SQZ         1001     A     
 SQZ                EQ     SUB1                                                            SQZ         1002     A     
 SQZ       SUBTRACT SPACE  3,8                                                             SQZ         1003     A     
 SQZ                PROCESS DFS                                                            SQZ         1004     A     
 SQZ                BX6    X1+X2                                                           SQZ         1005     A     
 SQZ                LX6    59-RN.ZP                                                        SQZ         1006     A     
 SQZ                IX7    X1-X2                                                           SQZ         1007     A     
 SQZ                MI     X6,ZERO     IF Z[RJ] ! Z[RK]                                    SQZ         1008     A     
 SQZ                NZ     X7,SUB      IF RJ " RK                                          SQZ         1009     A     
 SQZ                EQ     ZERO                                                            SQZ         1010     A     
 SQZ                                                                                       SQZ         1011     A     
 SQZ                PROCESS (FS,RFS)                                                       SQZ         1012     A     
 SQZ                IX6    X1-X2                                                           SQZ         1013     A     
 SQZ                ZR     X6,ZERO     IF RJ = RK                                          SQZ         1014     A     
 SQZ                BX7    X1*X2                                                           SQZ         1015     A     
 SQZ                LX7    59-RN.CP                                                        SQZ         1016     A     
 SQZ                MI     X7,ECO      IF C[RJ] & C[RK]                                    SQZ         1017     A     
 SQZ                LX2    59-RN.ZP                                                        SQZ         1018     A     
 SQZ                MI     X2,F.XMT    IF Z[RK]                                            SQZ         1019     A     
 SQZ                LX1    59-RN.ZP                                                        SQZ         1020     A     
 SQZ                MI     X1,F.XMTC   IF Z[RJ]                                            SQZ         1021     A     
 SQZ                LX2    1+RN.ZP                                                         SQZ         1022     A     
 SQZ                EQ     SUB                                                             SQZ         1023     A     
 SQZ                                                                                       SQZ         1024     A     
 SQZ       IS0      RJ     GCV         GET CONSTANT VALUES                                 SQZ         1025     A     
 SQZ                IX6    X6-X7       VAL[RI] = VAL[RJ] - VAL[RK]                         SQZ         1026     A     
 SQZ                EQ     CCV                                                             SQZ         1027     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3322    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                                                                                       SQZ         1028     A     
 SQZ                PROCESS IS                                                             SQZ         1029     A     
 SQZ                BX6    X1-X2                                                           SQZ         1030     A     
 SQZ                SB4    X6                                                              SQZ         1031     A     
 SQZ                ZR     B4,ZERO     IF RN[RJ] = RN[RK]                                  SQZ         1032     A     
 SQZ                BX7    X1*X2                                                           SQZ         1033     A     
 SQZ                LX7    59-RN.CP                                                        SQZ         1034     A     
 SQZ                MI     X7,IS0      IF C[RJ] & C[RK]                                    SQZ         1035     A     
 SQZ                LX2    59-RN.ZP                                                        SQZ         1036     A     
 SQZ                MI     X2,C.XMT    IF Z[RK]                                            SQZ         1037     A     
 SQZ                LX1    59-RN.ZP                                                        SQZ         1038     A     
 SQZ                MI     X1,C.XMTC   IF Z[RJ]                                            SQZ         1039     A     
 SQZ                LX1    1+RN.ZP                                                         SQZ         1040     A     
 SQZ                LX2    1+RN.ZP                                                         SQZ         1041     A     
 SQZ                BX6    X1+X2                                                           SQZ         1042          I
          -FCC0514
 SQZ                                                                                       FCC0514      244     A     
 SQZ      *         CHECK FOR AND REDUCE COMBINATIONS OF THE FORM (J+K)-K , ETC.           FCC0514      245     A     
 SQZ                                                                                       FCC0514      246     A     
 SQZ                BX7    X4                                                              FCC0716       41     A     
 SQZ                LX7    59-D.USIP                                                       FCC0716       42     A     
 SQZ                MI     X7,IS4      IF USI[DI]    */ USI OR REDUCED IAZ/ISZ             FCC0716       43     A     
 SQZ                LX1    -RN.TPP                                                         FCC0514      247     A     
 SQZ                SA3    X1          R1J = TP[RJ]  */ CHECK J OPERAND                    FCC0514      248     A     
 SQZ                SB5    OC.IA                                                           FCC0514      249     A     
 SQZ                UX7    B4,X3                                                           FCC0514      250     A     
 SQZ                LX1    RN.TPP                                                          FCC0514      251     A     
 SQZ                NE     B4,B5,IS1   IF OC[R1J] " OC.IA                                  FCC0514      252     A     
 SQZ                                                                                       FCC0514      253     A     
 SQZ                LX3    -R1.RJP                                                         FCC0514      254     A     
 SQZ                BX7    X2-X3                                                           FCC0514      255     A     
 SQZ                LX3    R1.RJP-R1.RKP     RJX = RK[R1J]                                 FCC0514      256     A     
 SQZ                BX7    -X0*X7                                                          FCC0514      257     A     
 SQZ                ZR     X7,I.XMT    IF RJ[R1J] = RK  */ REDUCE (J+K)-J TO K             FCC0514      258          I
          -FCC1660X 
 SQZ                ZR     X7,IS1A     IF RJ[R1J] = RK  */ REDUCE (J+K)-J TO K             FCC1660X      17     A     
 SQZ                BX7    X2-X3                                                           FCC0514      259     A     
 SQZ                BX7    -X0*X7                                                          FCC0514      260     A     
 SQZ                NZ     X7,IS4      IF RK[R1J] " RK */ NOT (K+J)-K                      FCC0514      261     A     
 SQZ                LX3    R1.RKP-R1.RJP     RJX = RJ[R1J]                                 FCC0514      262     A     
 SQZ                EQ     I.XMT                                                           FCC0514      263          I
          -FCC1660X 
 SQZ                                                                                       FCC1660X      18     A     
 SQZ       IS1A     BX6    X1          RJW = RND(RJ)                                       FCC1660X      19     A     
 SQZ                EQ     IS3A                                                            FCC1660X      20     A     
 SQZ                                                                                       FCC0514      264     A     
 SQZ       IS1      NE     B4,B3,IS2   IF OC[R1J] " OC.IS                                  FCC0514      265     A     
 SQZ                LX3    -R1.RJP                                                         FCC0514      266     A     
 SQZ                BX7    X2-X3                                                           FCC0514      267     A     
 SQZ                BX7    -X0*X7                                                          FCC0514      268     A     
 SQZ                NZ     X7,IS4      IF RJ[R1J] " RK  */ NOT (J-K)-J                     FCC0514      269     A     
 SQZ                LX3    R1.RJP-R1.RKP     RJX = RK[R1P]                                 FCC0514      270     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3323    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                EQ     I.XMTC                                                          FCC0514      271     A     
 SQZ                                                                                       FCC0514      272     A     
 SQZ       IS2      LX2    -RN.TPP                                                         FCC0514      273     A     
 SQZ                SA3    X2          R1K = TP[RK]  */ CHECK K OPERAND                    FCC0514      274     A     
 SQZ                LX2    RN.TPP                                                          FCC0514      275     A     
 SQZ                UX7    B4,X3                                                           FCC0514      276     A     
 SQZ                NE     B4,B5,IS3   IF OC[R1K] " OC.IA                                  FCC0514      277     A     
 SQZ                LX3    -R1.RJP                                                         FCC0514      278     A     
 SQZ                BX7    X1-X3                                                           FCC0514      279     A     
 SQZ                LX3    R1.RJP-R1.RKP     RJX = RK[R1K]                                 FCC0514      280     A     
 SQZ                BX7    -X0*X7                                                          FCC0514      281     A     
 SQZ                ZR     X7,I.XMTC   IF RJ[R1K] = RJ  */ REDUCE J-(J+K) TO -K            FCC0514      282     A     
 SQZ                BX7    X1-X3                                                           FCC0514      283     A     
 SQZ                BX7    -X0*X7                                                          FCC0514      284     A     
 SQZ                NZ     X7,IS4      IF RK[R1K] " RJ  */ NOT J-(K+J)                     FCC0514      285     A     
 SQZ                LX3    R1.RKP-R1.RJP     RJX = RJ[R1K]                                 FCC0514      286     A     
 SQZ                EQ     I.XMTC                                                          FCC0514      287     A     
 SQZ                                                                                       FCC0514      288     A     
 SQZ       IS3      NE     B4,B3,IS4   IF OC[R1K] " OC.IS                                  FCC0514      289     A     
 SQZ                BX7    X3-X5                                                           FCC0514      290     A     
 SQZ                LX7    -R1.RJP                                                         FCC0514      291     A     
 SQZ                BX7    -X0*X7                                                          FCC0514      292     A     
 SQZ                NZ     X7,IS4      IF RJ[R1K] " RJ */ NOT J-(J-K)                      FCC0514      293     A     
 SQZ                LX3    -R1.RKP     RJX = RK[R1K]                                       FCC0514      294     A     
 SQZ                BX6    X2                                                              FCC1660X      21     A     
 SQZ                                                                                       FCC1660X      22     A     
 SQZ       IS3A     LX6    59-RN.INCP                                                      FCC1660X      23     A     
 SQZ                PL     X6,I.XMT    IF ^INC[RJW]                                        FCC1660X      24     A     
 SQZ                SX7    A3                                                              FCC1660X      25     A     
 SQZ                SB5    X3                                                              FCC1660X      26     A     
 SQZ                SA3    JPXA                                                            FCC1660X      27     A     
 SQZ                IX6    X7-X3                                                           FCC1660X      28     A     
 SQZ                SX3    B5                                                              FCC1660X      29     A     
 SQZ                PL     X6,I.XMT    IF R1P > JPXA */ IN THE SAME BLOCK                  FCC1660X      30     A     
 SQZ                EQ     IS4                                                             FCC1660X      31     A     
 SQZ                EQ     I.XMT                                                           FCC0514      295     A     
 SQZ                                                                                       FCC0514      296     A     
 SQZ       IS4      BX6    X1+X2                                                           FCC0514      297          I
          -FCC1719X 
 SQZ                LX6    59-RN.CP                                                        SQZ         1043          I
          -FCC1719X 
 SQZ                MI     X6,CIA      IF C[RJ] ! C[RK]                                    SQZ         1044          I
          -FCC1719X 
 SQZ                LX6    1+RN.CP+58-RN.IACIP                                             SQZ         1045          I
          -FCC1424  -FCC1719X 
 SQZ                MX7    2                                                               SQZ         1046          I
          -FCC1424  -FCC1719X 
 SQZ                BX7    X7*X6                                                           SQZ         1047          I
          -FCC1424  -FCC1719X 
 SQZ                ZR     X7,SUB      IF ^( IACI[RJ] ! IACI[RK] )                         SQZ         1048          I
          -FCC1424  -FCC1719X 
 SQZ                LX6    RN.CP-RN.INCP                                                   FCC1424        4          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3324    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
          -FCC1719X 
 SQZ       IS4      BX6    X2                                                              FCC1719X       5     A     
 SQZ                LX6    59-RN.CP                                                        FCC1719X       6     A     
 SQZ                MI     X6,CIA      IF C[RK]                                            FCC1719X       7     A     
 SQZ                BX6    X1+X2                                                           FCC1719X       8     A     
 SQZ                LX6    59-RN.INCP                                                      FCC1719X       9     A     
 SQZ                PL     X6,SUB      IF ^( INC[RJ] ! INC[RK] )                           FCC1424        5     A     
 SQZ                                                                                       SQZ         1049     A     
 SQZ      *         I = I + 1  $  IF( I .RO. N ) , MARK *IS* AS *INC*                      SQZ         1050     A     
 SQZ                                                                                       SQZ         1051     A     
 SQZ                SA3    "RN"+B6                                                         SQZ         1052     A     
 SQZ                SX7    B1                                                              SQZ         1053     A     
 SQZ                LX7    RN.INCP                                                         SQZ         1054     A     
 SQZ                BX6    X7+X3       INC[RI] = 1                                         SQZ         1055     A     
 SQZ                SA6    A3                                                              SQZ         1056     A     
 SQZ                                                                                       SQZ         1057     A     
 SQZ       SUB      LX2    59-RN.XMTCP                                                     SQZ         1058     A     
 SQZ                PL     X2,SRCH     IF ^XMTC[RK]                                        SQZ         1059     A     
 SQZ                LX2    1+RN.XMTCP-RN.TPP                                               SQZ         1060     A     
 SQZ                SA3    X2          R1P = TP[RK]                                        SQZ         1061     A     
 SQZ                S"OC"  "OC"-B1     CHANGE SUBTRACT TO AN ADD                           SQZ         1062     A     
 SQZ                LX5    -R1.RJP                                                         SQZ         1063     A     
 SQZ                BX6    -X0*X5      RJ                                                  SQZ         1064     A     
 SQZ                LX3    -R1.RJP                                                         SQZ         1065     A     
 SQZ                BX5    -X0*X3      RK = RJ[R1P]                                        SQZ         1066     A     
 SQZ                                                                                       SQZ         1067     A     
 SQZ       SUB1     IX7    X6-X5                                                           SQZ         1068     A     
 SQZ                PL     X7,SUB2     IF RJ \ RK                                          SQZ         1069     A     
 SQZ                SX7    X5                                                              SQZ         1070     A     
 SQZ                BX5    X6                                                              SQZ         1071     A     
 SQZ                LX6    X7                                                              SQZ         1072     A     
 SQZ                                                                                       SQZ         1073     A     
 SQZ       SUB2     LX6    R1.RJP                                                          SQZ         1074     A     
 SQZ                LX5    R1.RKP                                                          SQZ         1075     A     
 SQZ                BX6    X5+X6                                                           SQZ         1076     A     
 SQZ                EQ     CAO2        GO UPDATE AND PROCESS CHANGED INSTRUCTION           SQZ         1077     A     
 SQZ       ISZ      SPACE  2                                                               SQZ         1078     A     
 SQZ      *         ISZ - ADD 0 AND CHANGE SIGN PRIOR TO USE IN CONDITIONAL JUMP           SQZ         1079     A     
 SQZ      *         THE RJ OPERAND IS ASSUMED TO BE A *CLR  RJ,0* IN THE BELOW.            SQZ         1080     A     
 SQZ                                                                                       SQZ         1081     A     
 SQZ                PROCESS ISZ                                                            SQZ         1082     A     
 SQZ                BX6    X1*X2                                                           SQZ         1083     A     
 SQZ                LX6    59-RN.CP                                                        SQZ         1084     A     
 SQZ                MI     X6,IS0      IF C[RJ] & C[RK]                                    SQZ         1085     A     
 SQZ                                                                                       SQZ         1086     A     
 SQZ      *         SEE IF THE PRED ( *RK* ) IS AN *IS*, AND IF SO ELIMINATE THE           SQZ         1087     A     
 SQZ      *         *ISZ* BY REVERSING THE OPERANDS.                                       SQZ         1088     A     
 SQZ                                                                                       SQZ         1089     A     
 SQZ                LX2    -RN.TPP                                                         SQZ         1090     A     
 SQZ                SA3    X2          R1P = TP[RK]                                        SQZ         1091     A     
 SQZ                S"OC"  OC.IS                                                           SQZ         1092     A     
 SQZ                UX6    B4,X3                                                           SQZ         1093     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3325    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                NE     B4,"OC",SRCH      IF OC[R1P] " OC.IS                            SQZ         1094     A     
 SQZ                LX6    -R1.RJP                                                         SQZ         1095     A     
 SQZ                BX7    -X0*X6      J = RJ[R1P]                                         SQZ         1096     A     
 SQZ                SA1    "RN"+X7     RJW = RND(J)                                        SQZ         1097     A     
 SQZ                LX2    59-RN.IACP+RN.TPP                                               SQZ         1098     A     
 SQZ                MI     X2,ISZ1     IF IAC[RK]                                          SQZ         1099     A     
 SQZ                MX2    2                                                               SQZ         1100     A     
 SQZ                LX1    58-RN.IACIP                                                     SQZ         1101     A     
 SQZ                BX2    X2*X1                                                           SQZ         1102     A     
 SQZ                ZR     X2,SRCH     IF ^( IAC[RJW] ! INC[RJW] )                         SQZ         1103     A     
 SQZ                                                                                       SQZ         1104     A     
 SQZ       ISZ1     LX3    -R1.RKP                                                         SQZ         1105     A     
 SQZ                BX3    -X0*X3                                                          SQZ         1106     A     
 SQZ                LX7    R1.RKP                                                          SQZ         1107     A     
 SQZ                LX3    R1.RJP                                                          SQZ         1108     A     
 SQZ                BX6    X3+X7                                                           SQZ         1109     A     
 SQZ                RJ     URI         URI(  IS  RI,RK[R1P],RJ[R1P] )                      SQZ         1110     A     
 SQZ                SX3    B1                                                              FCC0716       44     A     
 SQZ                LX3    D.USIP                                                          FCC0716       45     A     
 SQZ                BX6    X3+X4       USI[DI] = 1   */ INHIBIT FURTHER REDUCTION          FCC0716       46     A     
 SQZ                SA6    A4                                                              FCC0716       47     A     
 SQZ                BX4    X3+X4                                                           FCC0716       48     A     
 SQZ                EQ     SRCH                                                            SQZ         1111     A     
 SQZ       CIA      EJECT                                                                  SQZ         1112     A     
 SQZ      **        CIA - CHECK IA/IS INSTRUCTION WITH A CONSTANT OPERAND                  SQZ         1113     A     
 SQZ      *         SET *IAC* BIT IF NOT AN INCREMENT ( I = I +-CON )                      SQZ         1114     A     
 SQZ                                                                                       SQZ         1115     A     
 SQZ       RN.CP    EQU    58                                                              SQZ         1116     A     
 SQZ       CIA      BX7    X2          RCW = RK;  RVW = RJ                                 SQZ         1117          I
          -FCC0715
 SQZ       CIA      BX7    X4                                                              FCC0715        6     A     
 SQZ                LX7    59-D.INCP                                                       FCC0715        7     A     
 SQZ                MI     X7,CIA2A    IF INC[DI]                                          FCC0715        8     A     
 SQZ                                                                                       FCC0715        9     A     
 SQZ                BX7    X2          RCW = RK;  RVW = RJ                                 FCC0715       10     A     
 SQZ                LX3    B1,X1                                                           SQZ         1118     A     
 SQZ                PL     X3,CIA1     IF ^C[RJ]                                           SQZ         1119     A     
 SQZ                BX7    X1          RCW = RJ                                            SQZ         1120     A     
 SQZ                BX1    X2          RVW = RK                                            SQZ         1121     A     
 SQZ                                                                                       SQZ         1122     A     
 SQZ       CIA1     LX7    -RN.TPP                                                         SQZ         1123     A     
 SQZ                SA3    X7          R1P = TP[RCW]                                       SQZ         1124     A     
 SQZ                UX6    B4,X3                                                           SQZ         1125     A     
 SQZ                LX3    -R1.INP                                                         SQZ         1126     A     
 SQZ                SB4    B4-OC.FMA                                                       SQZ         1127     A     
 SQZ                SX6    X3-60                                                           SQZ         1128     A     
 SQZ                NZ     B4,CIA2     IF OC[R1P] " OC.FMA                                 SQZ         1129     A     
 SQZ                PL     X6,CIA4     IF IN[R1P] \ 60  */ A -0                            SQZ         1130     A     
 SQZ                                                                                       SQZ         1131     A     
 SQZ      *         CONSTANT OPERAND NOT -0, AND CANT BE A *CLR*, SET IAC/INC BIT          SQZ         1132     A     
 SQZ                                                                                       SQZ         1133     A     
 SQZ       CIA2     SA3    A4+B2       R1S = DI + 2  */ NEXT INSTRUCTION                   SQZ         1134     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3326    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                SB4    RN.IACP     BIT = IAC                                           SQZ         1135     A     
 SQZ                BX6    X5-X3                                                           SQZ         1136     A     
 SQZ                BX7    -X0*X6                                                          SQZ         1137          I
          -FCC1025
 SQZ                NZ     X7,CIA3     IF RI[R1S] " RI[R1]                                 SQZ         1138          I
          -FCC1025
 SQZ                BX6    -X0*X6                                                          FCC1025       14     A     
 SQZ                NZ     X6,CIA3     IF RI[R1S] " RI[R1]                                 FCC1025       15     A     
 SQZ                UX6    B3,X3                                                           SQZ         1139     A     
 SQZ                SX7    B3-OC.ST                                                        SQZ         1140          I
          -FCC1025
 SQZ                NZ     X7,CIA3     IF OC[R1S] " OC.ST                                  SQZ         1141          I
          -FCC1025
 SQZ                SB5    OC.ST                                                           FCC1025       16     A     
 SQZ                NE     B3,B5,CIA3  IF OC[R1S] " OC.ST  */  NOT ST RI,                  FCC1025       17     A     
 SQZ                                                                                       SQZ         1142     A     
 SQZ                SA3    A3+B1       R2S = R1S + 1                                       SQZ         1143     A     
 SQZ                LX1    -RN.TPP                                                         SQZ         1144     A     
 SQZ                SA2    X1+B1       R2P = TP[RVW] + 1                                   SQZ         1145     A     
 SQZ                BX6    X2-X3                                                           SQZ         1146     A     
 SQZ                NZ     X6,CIA3     IF [R2P] " [R2S]  */ NOT I = I + CON                SQZ         1147     A     
 SQZ                SA2    A2-B1       R1P = R2P - 1                                       FCC1025       18     A     
 SQZ                UX6    B3,X2                                                           FCC1025       19     A     
 SQZ                SB5    OC.SA                                                           FCC1025       20     A     
 SQZ                EQ     B3,B5,CIA5  IF OC[R1P] = OC.SA                                  FCC1025       21     A     
 SQZ                SB4    RN.INCP     BIT = INC                                           SQZ         1148          I
          -FCC0715
 SQZ                                                                                       FCC0715       11     A     
 SQZ       CIA2A    SB4    RN.INCP     BIT = INC                                           FCC0715       12     A     
 SQZ                                                                                       SQZ         1149     A     
 SQZ       CIA3     SA3    "RN"+B6                                                         SQZ         1150     A     
 SQZ                SX6    B1                                                              SQZ         1151     A     
 SQZ                LX7    B4,X6                                                           SQZ         1152     A     
 SQZ                BX6    X7+X3       BIT[RND(RI)] = 1                                    SQZ         1153     A     
 SQZ                SA6    A3                                                              SQZ         1154     A     
 SQZ                EQ     SRCH                                                            SQZ         1155     A     
 SQZ                                                                                       SQZ         1156     A     
 SQZ      *         CON IS -0, CHANGE TO IAZ/ISZ SO *GPO* DOESNT THINK ITS AN *INC         SQZ         1157     A     
 SQZ                                                                                       SQZ         1158     A     
 SQZ       CIA4     BX6    X0*X5                                                           SQZ         1159     A     
 SQZ                S"OC"  "OC"-OC.IA+OC.IAZ                                               SQZ         1160     A     
 SQZ                RJ     URI         CHANGE INSTRUCTION                                  SQZ         1161     A     
 SQZ                EQ     SRCH                                                            SQZ         1162     A     
 SQZ                                                                                       FCC1025       22     A     
 SQZ      *         DEF/SA/INC/ST VAR SEQUENCE, CHANGE THE *INC* TO A *STT*.               FCC1025       23     A     
 SQZ                                                                                       FCC1025       24     A     
 SQZ       CIA5     SA3    X7          R1C = TP[RCW]                                       FCC1025       25     A     
 SQZ                RJ     DCV         C = DCV( R1C )                                      FCC1025       26     A     
 SQZ                BX6    X4                                                              FCC1025       27     A     
 SQZ                LX6    59-D.CMP                                                        FCC1025       28     A     
 SQZ                AX6    59                                                              FCC1025       29     A     
 SQZ                BX7    -X6-X7      C = XOR( C , ^CM[DI] )                              FCC1025       30     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3327    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                MX6    -IH.CAL                                                         FCC1025A       1     A     
 SQZ                BX7    -X6*X7                                                          FCC1025A       2     A     
 SQZ                LX2    -R1.RJP                                                         FCC1025       31     A     
 SQZ                BX6    -X0*X2      RF = RJ[R1P]                                        FCC1025       32     A     
 SQZ                LX7    IH.CAP                                                          FCC1025       33     A     
 SQZ                LX6    IH.RFP                                                          FCC1025       34     A     
 SQZ                BX7    X6+X7                                                           FCC1025       35     A     
 SQZ                SA7    A5+B1       [R1+1] = IHW(RF,C,0)                                FCC1025       36     A     
 SQZ                S"OC"  OC.STT                                                          FCC1025       37     A     
 SQZ                MX6    0                                                               FCC1025       38     A     
 SQZ                RJ     URI         URI( STT  RI,RF,C )                                 FCC1025       39     A     
 SQZ                EQ     .STT                                                            FCC1025       40     A     
 SQZ       PK/UP    TITLE  MASTER SQUEEZE LOOP - PACK/UNPACK                               SQZ         1163     A     
 SQZ                PROCESS PK                                                             SQZ         1164     A     
 SQZ                BX6    X1*X2                                                           SQZ         1165          I
          -FCC1085
 SQZ                LX6    59-RN.ZP                                                        SQZ         1166          I
          -FCC1085
 SQZ                PL     X6,SRCH     IF ^ ( Z[RK] & Z[RJ] )                              SQZ         1167          I
          -FCC1085
 SQZ                LX1    59-RN.ZP                                                        FCC1085       14     A     
 SQZ                PL     X1,IRCH     IF ^Z[RJ]     */ DONT OVERSQZ RJ USES               FCC1085       15     A     
 SQZ                LX0    R1.RJP                                                          FCC1085       16     A     
 SQZ                BX6    X0*X5                                                           FCC1085       17     A     
 SQZ                BX5    X0*X5       RJ[R1] = 0    */ INCASE RJ " 0                      FCC1085       18     A     
 SQZ                SA6    A5                                                              FCC1085       19     A     
 SQZ                LX0    -R1.RJP                                                         FCC1085       20     A     
 SQZ                LX2    59-RN.ZP                                                        FCC1085       21     A     
 SQZ                PL     X2,SRCH     IF ^Z[RK]     */ NOT A PACKED  ZERO                 FCC1085       22     A     
 SQZ                                                                                       FCC1085       23     A     
 SQZ                SX7    B1                                                              SQZ         1168     A     
 SQZ                SA3    "RN"+B6                                                         SQZ         1169     A     
 SQZ                LX7    RN.PZP                                                          SQZ         1170     A     
 SQZ                BX6    X7+X3                                                           SQZ         1171     A     
 SQZ                SA6    A3          PZ[RI] = 1                                          SQZ         1172     A     
 SQZ                EQ     SRCH                                                            SQZ         1173     A     
 SQZ       NR       SPACE  3                                                               SQZ         1174     A     
 SQZ                PROCESS (NR,RNZ)                                                       SQZ         1175     A     
 SQZ                LX1    59-RN.ZP                                                        SQZ         1176     A     
 SQZ                PL     X1,NR1      IF ^Z[RJ]                                           SQZ         1177     A     
 SQZ                BX3    X2                                                              SQZ         1178     A     
 SQZ                LX3    59-RN.ZP                                                        SQZ         1179     A     
 SQZ                MI     X3,ZERO     IF Z[RK]                                            SQZ         1180     A     
 SQZ                LX3    RN.ZP-RN.PZP                                                    SQZ         1181     A     
 SQZ                MI     X3,ZERO     IF PZ[RK]                                           SQZ         1182     A     
 SQZ                LX3    RN.PZP-RN.NRP                                                   SQZ         1183     A     
 SQZ                SX6    B1                                                              SQZ         1184     A     
 SQZ                MI     X3,SRCH4    IF NR[RK]                                           SQZ         1185     A     
 SQZ                SA3    "RN"+B6                                                         SQZ         1186     A     
 SQZ                LX6    RN.NRP                                                          SQZ         1187     A     
 SQZ                BX7    X6+X3       NR[RI] = 1                                          SQZ         1188     A     
 SQZ                SA7    A3                                                              SQZ         1189     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3328    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                EQ     SRCH                                                            SQZ         1190     A     
 SQZ                                                                                       SQZ         1191     A     
 SQZ       NR1      SB4    X1                                                              SQZ         1192     A     
 SQZ                NE     B4,B1,UP4   IF RK " 1     */ NOT *PNR*                          SQZ         1193          I
          -FCC0514
 SQZ                NE     B4,B1,UP4   IF RJ " 1     */ NOT *PNR*                          FCC0514      298     A     
 SQZ                                                                                       FCC0514      299     A     
 SQZ                LX2    -RN.TPP                                                         SQZ         1194     A     
 SQZ                SA2    X2          R1P = TP[RK]                                        SQZ         1195     A     
 SQZ                UX7    B4,X2                                                           SQZ         1196     A     
 SQZ                NE     B4,"OC",SRCH      IF OC[R1P] " OC[R1]                           SQZ         1197     A     
 SQZ                LX7    -R1.RJP                                                         SQZ         1198     A     
 SQZ                BX6    -X0*X7                                                          SQZ         1199     A     
 SQZ                SX3    B1                                                              SQZ         1200     A     
 SQZ                SB4    X6                                                              SQZ         1201     A     
 SQZ                GT     B4,B1,UP4   IF RJ[R1P] > 1                                      SQZ         1202     A     
 SQZ                                                                                       SQZ         1203     A     
 SQZ                LX3    R1.RJP                                                          SQZ         1204     A     
 SQZ                BX6    X2+X3       RJ[NRP] = 1                                         SQZ         1205          I
          -FCC0514
 SQZ                BX6    X2+X3       RJ[R1P] = 1                                         FCC0514      300     A     
 SQZ                SA6    A2                                                              SQZ         1206     A     
 SQZ                BX2    X2+X3                                                           SQZ         1207     A     
 SQZ                EQ     SRCH4             */ GO ELIMINITE THE INSTRUCTION               SQZ         1208     A     
 SQZ       UP       SPACE  3                                                               SQZ         1209     A     
 SQZ                PROCESS UP                                                             SQZ         1210     A     
 SQZ                LX2    59-RN.ZP                                                        SQZ         1211     A     
 SQZ                MI     X2,ZERO     IF Z[RK]                                            SQZ         1212     A     
 SQZ                LX2    1+RN.ZP-RN.TPP                                                  SQZ         1213     A     
 SQZ                SB4    B2+B2                                                           SQZ         1214     A     
 SQZ                SA3    X2+B4       R1S = TP[RK] + 4                                    SQZ         1215     A     
 SQZ                SB5    A5                                                              SQZ         1216     A     
 SQZ                SA2    UPA                                                             SQZ         1217     A     
 SQZ                BX5    X2*X5       KEY = TYI(UP,0,RK,0)                                SQZ         1218     A     
 SQZ                                                                                       SQZ         1219     A     
 SQZ       UP1      BX6    X2*X3                                                           SQZ         1220     A     
 SQZ                SA3    A3+B4       R1S = R1S + 4                                       SQZ         1221     A     
 SQZ                IX7    X5-X6                                                           SQZ         1222     A     
 SQZ                NZ     X7,UP1      IF [R1S-4] " KEY                                    SQZ         1223     A     
 SQZ                SA5    A5                                                              SQZ         1224     A     
 SQZ                SB3    A3-B4                                                           SQZ         1225     A     
 SQZ                GE     B3,B5,UP4   IF R1S \ R1   */ INSTRUCTION NOT REDUNDANT          SQZ         1226     A     
 SQZ                                                                                       SQZ         1227     A     
 SQZ                SA3    A3-B4                                                           SQZ         1228     A     
 SQZ                LX1    59-RN.ZP                                                        SQZ         1229     A     
 SQZ                MI     X1,UP2      IF Z[RJ]      */ BI,B0 CASE                         SQZ         1230     A     
 SQZ                LX3    -R1.RJP                                                         SQZ         1231     A     
 SQZ                BX2    -X0*X3                                                          SQZ         1232     A     
 SQZ                ZR     X2,UP4      IF Z[RJ[R1S]]  */ CANNOT HANDLE B0,BI CASE          SQZ         1233     A     
 SQZ                                                                                       SQZ         1234     A     
 SQZ                MX6    60                                                              SQZ         1235     A     
 SQZ                SA6    A4+4        [DI+4] = -0   */ MARK FOLLOWING *RS* AS DEA         SQZ         1236     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3329    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                SA2    "RN"+X2                                                         SQZ         1237     A     
 SQZ                BX6    X2                                                              SQZ         1238     A     
 SQZ                LX5    -R1.RJP                                                         SQZ         1239     A     
 SQZ                BX2    -X0*X5                                                          SQZ         1240     A     
 SQZ                SA6    "RN"+X2     RND(RJ[R1]) = RND(RJ[R1S])                          SQZ         1241     A     
 SQZ                LX3    R1.RJP                                                          SQZ         1242     A     
 SQZ                                                                                       SQZ         1243     A     
 SQZ       UP2      BX2    -X0*X3                                                          SQZ         1244     A     
 SQZ                SA1    "RN"+X2                                                         SQZ         1245     A     
 SQZ                BX6    X1          RND(RI[R1]) = RND(RI[R1S])                          SQZ         1246     A     
 SQZ                SA3    A3+B2       DJ = R1S + 2                                        SQZ         1247     A     
 SQZ                SA6    "RN"+B6                                                         SQZ         1248     A     
 SQZ                BX6    X3+X4       DJ = DJ ! DI                                        SQZ         1249     A     
 SQZ                SA7    A4          [DI] = 0                                            SQZ         1250     A     
 SQZ                SA6    A3                                                              SQZ         1251     A     
 SQZ                EQ     MSL1                                                            SQZ         1252     A     
 SQZ                                                                                       SQZ         1253     A     
 SQZ       UP4      LX5    R1.RJP-R1.RKP                                                   SQZ         1254     A     
 SQZ                EQ     AUC.RJ                                                          SQZ         1255     A     
 SQZ                                                                                       SQZ         1256     A     
 SQZ       UPA      VFD    12/-0,16/0,16/-0,16/0                                           SQZ         1257     A     
 SQZ       ILS      SPACE  3                                                               SQZ         1258     A     
 SQZ       TEMP     IFNE   0,0                                                             SQZ         1259     A     
 SQZ                PROCESS (ILS,IRS)                                                      SQZ         1260     A     
 SQZ                BX6    X1+X2                                                           SQZ         1261     A     
 SQZ                SB3    B3-OC.ILS                                                       SQZ         1262     A     
 SQZ                LX6    59-RN.CP                                                        SQZ         1263     A     
 SQZ                PL     X6,SRCH     IF ^( C[RJ] ! C[RK] )                               SQZ         1264     A     
 SQZ                BX7    X1*X2                                                           SQZ         1265     A     
 SQZ                LX7    59-RN.CP                                                        SQZ         1266     A     
 SQZ                PL     X7,ILS1     IF ^( C[RJ] & C[RK] )                               SQZ         1267     A     
 SQZ                                                                                       SQZ         1268     A     
 SQZ                RJ     GCV         GET CONSTANT VALUES                                 SQZ         1269     A     
 SQZ                SB4    X6                                                              SQZ         1270     A     
 SQZ                LX6    B4,X7                                                           SQZ         1271     A     
 SQZ                ZR     B3,CCV      VAL[RI] = SHIFT( VAL[RJ] , VAL[RK] )                SQZ         1272     A     
 SQZ                AX6    B4,X7                                                           SQZ         1273     A     
 SQZ                EQ     CCV                                                             SQZ         1274     A     
 SQZ                                                                                       SQZ         1275     A     
 SQZ       ILS1     LX2    59-RN.ZP                                                        SQZ         1276     A     
 SQZ                MI     X2,ZERO     IF Z[RK]                                            SQZ         1277     A     
 SQZ                LX1    59-RN.ZP                                                        SQZ         1278     A     
 SQZ                PL     X1,SRCH     IF ^Z[RJ]                                           SQZ         1279     A     
 SQZ                BX1    X2                                                              SQZ         1280     A     
 SQZ                S"OC"  OC.XMT                                                          SQZ         1281     A     
 SQZ                EQ     C.XMT2      GO OUTPUT XMT( RI , RK )                            SQZ         1282     A     
 SQZ       TEMP     ELSE                                                                   SQZ         1283     A     
 SQZ       IRCH     SPACE  4,8                                                             SQZ         1284     A     
 SQZ      *         THIS TEMPORARY CODE IS NECESSARY UNTIL MCG/JAM IS ABLE TO              SQZ         1285     A     
 SQZ      *         CODE SEQUENCES CONTAINING B-REGISTER JAMS.  THIS ILS/IRS               SQZ         1286     A     
 SQZ      *         PROCESSOR USES A SPECIAL SEARCH/SQUEEZE LOOP (IRCH) THAT               SQZ         1287     A     
 SQZ      *         SUPPRESSES ELIMINATION OF B-REG TRANSMITS (SHORT ADDS) PRE-            SQZ         1288     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3330    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ      *         CEDING INDEXED SHIFTS.  ONLY SA OR STT PREDECESSORS ARE                SQZ         1289          I
          -FCC0872
 SQZ      *         CEDING INDEXED SHIFTS.  ONLY S, SA, OR STT PREDECESSORS ARE            FCC0872        4     A     
 SQZ      *         CORRECTLY HANDLED AND THEY MUST DIRECTLY PRECEDE THE SHIFT IN          SQZ         1290     A     
 SQZ      *         THE SEQUENCE ALONG WITH THE RS.                                        SQZ         1291     A     
 SQZ                                                                                       SQZ         1292     A     
 SQZ                PROCESS (ILS,IRS)                                                      SQZ         1293     A     
 SQZ                BX6    X1+X2                                                           SQZ         1294     A     
 SQZ                SB3    B3-OC.ILS                                                       SQZ         1295     A     
 SQZ                LX6    59-RN.CP                                                        SQZ         1296     A     
 SQZ                PL     X6,IRCH     IF ^( C[RJ] ! C[RK] )                               SQZ         1297     A     
 SQZ                BX7    X1*X2                                                           SQZ         1298     A     
 SQZ                LX7    59-RN.CP                                                        SQZ         1299     A     
 SQZ                PL     X7,ILS1     IF ^( C[RJ] & C[RK] )                               SQZ         1300     A     
 SQZ                                                                                       SQZ         1301     A     
 SQZ                RJ     GCV         GET CONSTANT VALUES                                 SQZ         1302     A     
 SQZ                SB4    X6                                                              SQZ         1303     A     
 SQZ                LX6    B4,X7                                                           SQZ         1304     A     
 SQZ                ZR     B3,ICV      VAL[RI] = SHIFT( VAL[RJ] , VAL[RK] )                SQZ         1305     A     
 SQZ                AX6    B4,X7                                                           SQZ         1306     A     
 SQZ                EQ     ICV                                                             SQZ         1307     A     
 SQZ                                                                                       SQZ         1308     A     
 SQZ       ILS1     LX2    59-RN.ZP                                                        SQZ         1309     A     
 SQZ                MI     X2,ZERO     IF Z[RK]                                            SQZ         1310     A     
 SQZ                LX1    59-RN.ZP                                                        SQZ         1311     A     
 SQZ                PL     X1,IRCH     IF ^Z[RJ]                                           SQZ         1312     A     
 SQZ                BX1    X2                                                              SQZ         1313     A     
 SQZ                S"OC"  OC.XMT                                                          SQZ         1314     A     
 SQZ                EQ     C.XMT2      GO OUTPUT XMT( RI , RK )                            SQZ         1315     A     
 SQZ                SPACE  4,8                                                             SQZ         1316     A     
 SQZ      **        ICV - TEMPORARY CCV FOR ILS/IRS                                        SQZ         1317     A     
 SQZ      *         FAIL EXIT IS IRCH RATHER THAN SRCH.                                    SQZ         1318     A     
 SQZ      *         ENTRY  (X6) = VAL , TO BE REFORMED AS *S*/*FMA* INSTRUCTION            SQZ         1319     A     
 SQZ                                                                                       SQZ         1320     A     
 SQZ      *         TRY TO REDUCE CONSTANT TO A *FMA*                                      SQZ         1321     A     
 SQZ                                                                                       SQZ         1322     A     
 SQZ       ICV      PL     X6,ICV1     IF VAL > 0                                          SQZ         1323     A     
 SQZ                CX7    X6                                                              SQZ         1324     A     
 SQZ                MX3    1                                                               SQZ         1325     A     
 SQZ                SB4    X7-1                                                            SQZ         1326     A     
 SQZ                AX7    B4,X3                                                           SQZ         1327     A     
 SQZ                BX3    X7-X6                                                           SQZ         1328     A     
 SQZ                NZ     X3,ICV1     IF VAL " MASK( COUNT(VAL) )                         SQZ         1329     A     
 SQZ                S"OC"  OC.FMA                                                          SQZ         1330     A     
 SQZ                SX6    B4+B1                                                           SQZ         1331     A     
 SQZ                EQ     ICV2                                                            SQZ         1332     A     
 SQZ                                                                                       SQZ         1333     A     
 SQZ      *         TRY TO REDUCE CONSTANT TO A *S*                                        SQZ         1334     A     
 SQZ                                                                                       SQZ         1335     A     
 SQZ       ICV1     ZR     X6,ZERO     IF VAL = 0                                          SQZ         1336     A     
 SQZ                MX3    42                                                              SQZ         1337     A     
 SQZ                LX7    X6                                                              SQZ         1338     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3331    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                BX6    -X3*X6                                                          SQZ         1339     A     
 SQZ                AX7    17                                                              SQZ         1340     A     
 SQZ                NZ     X7,IRCH     IF SHIFT(VAL,-17) " 0                               SQZ         1341     A     
 SQZ                S"OC"  OC.S                                                            SQZ         1342     A     
 SQZ                                                                                       SQZ         1343     A     
 SQZ       ICV2     LX6    R1.INP                                                          SQZ         1344     A     
 SQZ                RJ     URI                                                             SQZ         1345     A     
 SQZ                MX7    0                                                               SQZ         1346     A     
 SQZ                SA7    A5+B1       [R1+1] = 0                                          SQZ         1347     A     
 SQZ                EQ     FMA                                                             SQZ         1348     A     
 SQZ                SPACE  4,8                                                             SQZ         1349     A     
 SQZ       IRCH     BX6    X0*X5       KEY = TYI(OC,RJ,RK,0)                               SQZ         1350     A     
 SQZ                LX5    -R1.RKP                                                         SQZ         1351     A     
 SQZ                BX3    -X0*X5                                                          SQZ         1352     A     
 SQZ                SB4    B2+B2       (B4) = 4                                            SQZ         1353     A     
 SQZ                LX5    R1.RKP-R1.RJP                                                   SQZ         1354     A     
 SQZ                SA2    "RN"+X3                                                         SQZ         1355     A     
 SQZ                BX3    -X0*X5                                                          SQZ         1356     A     
 SQZ                LX2    -RN.TPP                                                         SQZ         1357     A     
 SQZ                SA1    "RN"+X3                                                         SQZ         1358     A     
 SQZ                SB5    X2                                                              SQZ         1359     A     
 SQZ                LX1    -RN.TPP                                                         SQZ         1360     A     
 SQZ                SB3    X1          R1S = TP[RJ]                                        SQZ         1361     A     
 SQZ                GE     B3,B5,IRCH1 IF R1S \ TP[RK]                                     SQZ         1362     A     
 SQZ                SB3    B5          R1S = TP[RK]                                        SQZ         1363     A     
 SQZ                                                                                       SQZ         1364     A     
 SQZ       IRCH1    SA3    B3+4        R1S = R1S + 4                                       SQZ         1365     A     
 SQZ                SB5    A2                                                              SQZ         1366     A     
 SQZ                                                                                       SQZ         1367     A     
 SQZ      *         SEARCH FORWARD FROM MAX OF DEF ADDRESS OF OPERANDS.                    SQZ         1368     A     
 SQZ                                                                                       SQZ         1369     A     
 SQZ       IRCH2    BX7    X0*X3                                                           SQZ         1370     A     
 SQZ                SA3    A3+B4                                                           SQZ         1371     A     
 SQZ                IX5    X6-X7                                                           SQZ         1372     A     
 SQZ                NZ     X5,IRCH2    IF [R1S] " KEY                                      SQZ         1373     A     
 SQZ                SA2    A3-B2                                                           SQZ         1374     A     
 SQZ                SB3    A3-B4                                                           SQZ         1375     A     
 SQZ                ZR     X2,IRCH2    IF [DS] = 0   */ DEAD INSTRUCTION                   SQZ         1376     A     
 SQZ                SB3    A5-B3                                                           SQZ         1377     A     
 SQZ                GT     B3,SRCH3    IF R1S < R1M  */ INSTRUCTION IS REDUNDANT           SQZ         1378     A     
 SQZ                                                                                       SQZ         1379     A     
 SQZ                SB3    A5-8        R1J = R1 - 8                                        SQZ         1380     A     
 SQZ                MX2    -RN.USESL                                                       SQZ         1381     A     
 SQZ                LX1    RN.TPP-RN.USESP                                                 SQZ         1382     A     
 SQZ                BX5    -X2*X1                                                          SQZ         1383     A     
 SQZ                ZR     X5,IRCH5    IF USES[RND(RJ)] = 0                                SQZ         1384     A     
 SQZ                SA2    B3+B2       DI = R1J + 2 ;  DIW = [DI]                          SQZ         1385     A     
 SQZ                SA3    B3          R1I = R1J ;  R1W = [R1I]                            SQZ         1386     A     
 SQZ                MX7    1                                                               SQZ         1387     A     
 SQZ                NZ     X2,IRCH5    IF DIW .NE. 0 */ INS. NOT SQUEEZED                  SQZ         1388     A     
 SQZ                LX7    1+D.PRSP                                                        SQZ         1389     A     
 SQZ                UX5    B6,X3       OCI = OC[R1W]                                       SQZ         1390     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3332    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                SA3    =XF.RDT+B6                                                      SQZ         1391     A     
 SQZ                BX6    X3+X7                                                           SQZ         1392     A     
 SQZ                SA6    A2          [DI] = RDT(OCI) .OR. D.PRS                          SQZ         1393     A     
 SQZ                LX6    58-D.TYP                                                        SQZ         1394     A     
 SQZ                MI     X6,IRCH3    IF TY[DIW] = 3  */ STT                              SQZ         1395     A     
 SQZ                LX2    B1,X6                                                           FCC0872        5     A     
 SQZ                MI     X2,IRCH4    IF TY[DIW] = 2  */ S                                FCC0872        6     A     
 SQZ                BX6    X5                                                              SQZ         1396     A     
 SQZ                LX6    -R1.RJP                                                         SQZ         1397     A     
 SQZ                BX2    -X0*X6                                                          SQZ         1398     A     
 SQZ                SA3    "RN"+X2                                                         SQZ         1399     A     
 SQZ                MX6    1                                                               SQZ         1400     A     
 SQZ                LX6    1+RN.USESP                                                      SQZ         1401     A     
 SQZ                IX6    X3+X6                                                           SQZ         1402     A     
 SQZ                SA6    A3          USES[RND(RJ[R1W])] = USES[RND(RJ[R1W])] + 1         SQZ         1403     A     
 SQZ                EQ     IRCH4                                                           SQZ         1404     A     
 SQZ                                                                                       SQZ         1405     A     
 SQZ       IRCH3    SA3    B3+B1       R2I = R1I + 1 ;  R2W = [R2]                         SQZ         1406     A     
 SQZ                LX3    -IH.RFP                                                         SQZ         1407     A     
 SQZ                SA3    "RN"+X3                                                         SQZ         1408     A     
 SQZ                MX6    1                                                               SQZ         1409     A     
 SQZ                LX6    1+RN.USESP                                                      SQZ         1410     A     
 SQZ                IX6    X3+X6                                                           SQZ         1411     A     
 SQZ                SA6    A3          USES[RND(RF[R2W])] = USES[RND(RF[R2W])] + 1         SQZ         1412     A     
 SQZ                                                                                       SQZ         1413     A     
 SQZ       IRCH4    SA3    =XF.RDT+OC.RS                                                   SQZ         1414     A     
 SQZ                BX6    X3                                                              SQZ         1415     A     
 SQZ                SA6    A2+B4       [DI+4] = RDT(OC.RS)                                 SQZ         1416     A     
 SQZ                BX5    -X0*X5      RIJ = RI[R1W]                                       SQZ         1417     A     
 SQZ                SA2    A5                                                              SQZ         1418     A     
 SQZ                LX2    -R1.RJP                                                         SQZ         1419     A     
 SQZ                BX2    X0*X2                                                           SQZ         1420     A     
 SQZ                BX6    X2+X5                                                           SQZ         1421     A     
 SQZ                LX6    R1.RJP                                                          SQZ         1422     A     
 SQZ                SA6    A2                                                              SQZ         1423     A     
 SQZ                SX2    X5                                                              SQZ         1424     A     
 SQZ                LX5    RN.RNP                                                          SQZ         1425     A     
 SQZ                LX7    RN.USESP-D.PRSP                                                 SQZ         1426     A     
 SQZ                BX6    X5+X7                                                           SQZ         1427     A     
 SQZ                SX5    B3                                                              SQZ         1428     A     
 SQZ                LX5    RN.TPP                                                          SQZ         1429     A     
 SQZ                BX6    X6+X5                                                           SQZ         1430     A     
 SQZ                SA6    "RN"+X2     RND(RJ) = RNW(RIJ,1,R1J)                            SQZ         1431     A     
 SQZ                SA2    B5                                                              SQZ         1432     A     
 SQZ                IX7    X7+X2       USES[RK] = USES[RK] +1                              SQZ         1433     A     
 SQZ                SA7    A2                                                              SQZ         1434     A     
 SQZ                EQ     MSL1                                                            SQZ         1435     A     
 SQZ                                                                                       SQZ         1436     A     
 SQZ       IRCH5    LX1    RN.USESP                                                        SQZ         1437     A     
 SQZ                SX5    B1                                                              SQZ         1438     A     
 SQZ                LX5    RN.USESP                                                        SQZ         1439     A     
 SQZ                IX6    X5+X1       USES[RJ] = USES[RJ] + 1                             SQZ         1440     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3333    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                SA6    A1                                                              SQZ         1441     A     
 SQZ                SA2    B5                                                              SQZ         1442     A     
 SQZ                IX7    X5+X2       USES[RK] = USES[RK] + 1                             SQZ         1443     A     
 SQZ                SA7    A2                                                              SQZ         1444     A     
 SQZ                EQ     MSL1                                                            SQZ         1445     A     
 SQZ       TEMP     ENDIF                                                                  SQZ         1446     A     
 SQZ       SRCH     TITLE  SRCH - SEARCH FOR PREVIOUS OCCURANCE OF TYPE I INST             SQZ         1447     A     
 SQZ      **        SRCH - SEARCH FOR PREVIOUS OCCURRENCE OF TYPE I INSTRUCTION.           SQZ         1448     A     
 SQZ      *         ENTRY  (X5) = R1 WORD , (B6) = RI                                      SQZ         1449     A     
 SQZ                                                                                       SQZ         1450     A     
 SQZ                PROCESS (CX,SS)                                                        SQZ         1451     A     
 SQZ       SRCH     BX6    X0*X5       KEY = TYI(OC,RJ,RK,0)  */ SEARCH KEY                SQZ         1452     A     
 SQZ                LX5    -R1.RKP                                                         SQZ         1453     A     
 SQZ                BX3    -X0*X5                                                          SQZ         1454     A     
 SQZ                SB4    B2+B2       (B4) = 4                                            SQZ         1455     A     
 SQZ                LX5    R1.RKP-R1.RJP                                                   SQZ         1456     A     
 SQZ                SA2    "RN"+X3                                                         SQZ         1457     A     
 SQZ                BX3    -X0*X5                                                          SQZ         1458     A     
 SQZ                LX2    -RN.TPP                                                         SQZ         1459     A     
 SQZ                SA1    "RN"+X3                                                         SQZ         1460     A     
 SQZ                SB5    X2                                                              SQZ         1461     A     
 SQZ                LX1    -RN.TPP                                                         SQZ         1462     A     
 SQZ                SB3    X1                                                              SQZ         1463     A     
 SQZ                GE     B3,B5,SRCH1 R1S = MAX( TP[RJ] , TP[RK] ) */ MIN SRCH AD         SQZ         1464     A     
 SQZ                SB3    B5+                                                             SQZ         1465     A     
 SQZ       SRCH1    SA3    B3+4        R1S = R1S + 4                                       SQZ         1466     A     
 SQZ                SB5    A2                                                              SQZ         1467     A     
 SQZ                                                                                       SQZ         1468     A     
 SQZ      *         SEARCH FORWARD FROM MAX OF DEF ADDRESS OF OPERANDS.                    SQZ         1469     A     
 SQZ                                                                                       SQZ         1470     A     
 SQZ       SRCH2    BX7    X0*X3                                                           SQZ         1471     A     
 SQZ                SA3    A3+B4                                                           SQZ         1472     A     
 SQZ                IX5    X6-X7                                                           SQZ         1473     A     
 SQZ                NZ     X5,SRCH2    IF [R1S] " KEY                                      SQZ         1474     A     
 SQZ                SA2    A3-B2                                                           SQZ         1475     A     
 SQZ                SB3    A3-B4                                                           SQZ         1476     A     
 SQZ                ZR     X2,SRCH2    IF [DS] = 0   */ DEAD INSTRUCTION                   SQZ         1477     A     
 SQZ                SB3    A5-B3                                                           SQZ         1478     A     
 SQZ                GT     B3,SRCH3    IF R1S < R1M  */ INSTRUCTION IS REDUNDANT           SQZ         1479     A     
 SQZ                                                                                       SQZ         1480     A     
 SQZ      *         INSTRUCTION NOT REDUNDANT, BUMP USES OF OPERANDS                       SQZ         1481     A     
 SQZ                                                                                       SQZ         1482     A     
 SQZ                LX1    RN.TPP                                                          SQZ         1483     A     
 SQZ                SX5    B1                                                              SQZ         1484     A     
 SQZ                LX5    RN.USESP                                                        SQZ         1485     A     
 SQZ                IX6    X5+X1       USES[RJ] = USES[RJ] + 1                             SQZ         1486     A     
 SQZ                SA6    A1                                                              SQZ         1487     A     
 SQZ                SA2    B5                                                              SQZ         1488     A     
 SQZ                IX7    X5+X2       USES[RK] = USES[RK] + 1                             SQZ         1489     A     
 SQZ                SA7    A2                                                              SQZ         1490     A     
 SQZ                EQ     MSL1                                                            SQZ         1491     A     
 SQZ                                                                                       SQZ         1492     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3334    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ      *         SRCH4 - REDUNDANT INSTRUCTION FOUND, ATTEMPT TO ELIMINATE IT           SQZ         1493     A     
 SQZ      *         ENTRY  (X2) = WORD WITH RJ, RIGHT JUSTIFIED                            SQZ         1494     A     
 SQZ      *                (X4) = INSTRUCTION DESCRIPTOR                                   SQZ         1495     A     
 SQZ      *                (B6) = RI OF CURRENT INSTRUCTION                                SQZ         1496     A     
 SQZ                                                                                       SQZ         1497     A     
 SQZ       SRCH3    SA2    A3-4        RJ = RI[R1S]                                        SQZ         1498          I
          -FCC0238AX
 SQZ                SA4    A4+         REFETCH DESCR                                       SQZ         1499          I
          -FCC0238AX
 SQZ       SRCH3    SA1    A3-B2       DIS = R1S - 2                                       FCC0238AX     65     A     
 SQZ                SA5    A5          REFETCH R1 WORD                                     FCC0238AX     66     A     
 SQZ                SA4    A4          REFETCH DESCR                                       FCC0238AX     67     A     
 SQZ                SA2    A1-B2       RJ = RI[R1S-4]                                      FCC0238AX     68     A     
 SQZ                BX6    X1-X4                                                           FCC0238AX     69     A     
 SQZ                LX6    59-D.USIP                                                       FCC0238AX     70     A     
 SQZ                PL     X6,SRCH4    IF USI[DIS] = USI[DI]                               FCC0238AX     71     A     
 SQZ                UX6    "OC",X5                                                         FCC0238AX     72     A     
 SQZ                SX6    "OC"-OC.IM                                                      FCC0238AX     73     A     
 SQZ                NZ     X6,SRCH4    IF OC[R1] " OC.IM                                   FCC0238AX     74     A     
 SQZ                                                                                       FCC0238AX     75     A     
 SQZ                SX6    B1                                                              FCC0238AX     76     A     
 SQZ                LX6    D.USIP                                                          FCC0238AX     77     A     
 SQZ                BX7    -X6*X1      USI[DIS] = 0  */ SAFE IF ONE IS ALWAYS EXEC         FCC0238AX     78     A     
 SQZ                SA7    A1                                                              FCC0238AX     79     A     
 SQZ                                                                                       SQZ         1500     A     
 SQZ                                                                                       SQZ         1501     A     
 SQZ       SRCH4    MX6    -D.STRSL                                                        SQZ         1502     A     
 SQZ                BX2    -X0*X2                                                          SQZ         1503     A     
 SQZ                LX6    D.STRSP                                                         SQZ         1504     A     
 SQZ                SA1    "RN"+X2                                                         SQZ         1505     A     
 SQZ                BX7    -X6*X4                                                          SQZ         1506     A     
 SQZ                NZ     X7,SRCH5    IF STRS[DI] " 0                                     SQZ         1507     A     
 SQZ                SA7    A4          [DI] = 0                                            SQZ         1508     A     
 SQZ                BX6    X1                                                              SQZ         1509     A     
 SQZ                SA6    "RN"+B6     RND(RI) = RND(RJ)                                   SQZ         1510     A     
 SQZ                EQ     MSL1                                                            SQZ         1511     A     
 SQZ                                                                                       SQZ         1512     A     
 SQZ      *         STRS[DI] " 0, CHANGE TO AN XMT AND LET THE *XMT* PROCESSOR             SQZ         1513     A     
 SQZ      *         DO THE REST OF THE DIRTY WORK.                                         SQZ         1514     A     
 SQZ                                                                                       SQZ         1515     A     
 SQZ       SRCH5    MX7    -RN.XMTP                                                        SQZ         1516          I
          -FCC1413
 SQZ       SRCH5    SA3    "RN"+B6                                                         FCC1413        5     A     
 SQZ                LX3    59-RN.INCP                                                      FCC1413        6     A     
 SQZ                PL     X3,SRCH5A   IF ^INC[RI]                                         FCC1413        7     A     
 SQZ                SX7    B1                                                              FCC1413        8     A     
 SQZ                LX7    RN.INCP                                                         FCC1413        9     A     
 SQZ                BX1    X7+X1       INC[RJ] = 1                                         FCC1413       10     A     
 SQZ                LX7    RN.IACP-RN.INCP                                                 FCC1413       11     A     
 SQZ                BX6    -X7*X1      IAC[RJ] = 0                                         FCC1413       12     A     
 SQZ                SA6    A1                                                              FCC1413       13     A     
 SQZ                                                                                       FCC1413       14     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3335    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ       SRCH5A   MX7    -RN.XMTP                                                        FCC1413       15     A     
 SQZ                BX1    -X7*X1      XMT[RJ] = 0   */ SO WE CAN SQUEEZE XMITS            SQZ         1517     A     
 SQZ                                                                                       SQZ         1518     A     
 SQZ       SRCH6    LX2    R1.RJP                                                          SQZ         1519     A     
 SQZ                S"OC"  OC.XMT                                                          SQZ         1520     A     
 SQZ                BX6    X2                                                              SQZ         1521     A     
 SQZ                RJ     URI         GENERATE AN XMT                                     SQZ         1522     A     
 SQZ                RJ     CTI         TRY AND ELIMINATE IT                                SQZ         1523     A     
 SQZ                EQ     AUC.RJ                                                          SQZ         1524     A     
 SQZ       C.XMT    SPACE  3                                                               SQZ         1525     A     
 SQZ      **        F.XMTC/F.XMT - FLOATING POINT ADD/SUB REDUCES TO AN XMT/XMTC           SQZ         1526     A     
 SQZ                                                                                       SQZ         1527     A     
 SQZ       F.XMTC   S"OC"  OC.XMTC                                                         SQZ         1528     A     
 SQZ                EQ     F.XMT1                                                          SQZ         1529     A     
 SQZ                                                                                       SQZ         1530     A     
 SQZ       F.XMT    S"OC"  OC.XMT                                                          SQZ         1531     A     
 SQZ       F.XMT1   SA3    "RN"+B6                                                         SQZ         1532     A     
 SQZ                SX6    B1                                                              SQZ         1533     A     
 SQZ                LX6    RN.NRP                                                          SQZ         1534     A     
 SQZ                BX7    X6+X3       NR[RI] = 1    */ RESULT IS NORMALIZED FLAG          SQZ         1535     A     
 SQZ                SA7    A3                                                              SQZ         1536     A     
 SQZ                EQ     C.XMT1                                                          SQZ         1537     A     
 SQZ       C.XMT    SPACE  3                                                               SQZ         1538     A     
 SQZ      *         C.XMT / C.XMTC - CHANGE INSTRUCTION TO XMT / XMTC                      SQZ         1539     A     
 SQZ                                                                                       SQZ         1540     A     
 SQZ       C.XMTC   S"OC"  OC.XMTC                                                         SQZ         1541     A     
 SQZ                EQ     C.XMT1                                                          SQZ         1542     A     
 SQZ                                                                                       SQZ         1543     A     
 SQZ       C.XMT    S"OC"  OC.XMT                                                          SQZ         1544     A     
 SQZ       C.XMT1   SA1    A1                                                              SQZ         1545     A     
 SQZ                LX1    59-RN.ZP                                                        SQZ         1546     A     
 SQZ                PL     X1,C.XMT2   IF ^Z[RJ]                                           SQZ         1547     A     
 SQZ                SA1    A2                                                              SQZ         1548     A     
 SQZ                LX1    59-RN.ZP                                                        SQZ         1549     A     
 SQZ       C.XMT2   LX1    1+RN.ZP                                                         SQZ         1550     A     
 SQZ                BX6    -X0*X1                                                          SQZ         1551     A     
 SQZ                LX6    R1.RJP                                                          SQZ         1552     A     
 SQZ                RJ     URI         UPDATE REDUCED INSTRUCTION                          SQZ         1553     A     
 SQZ                SA1    "RN"+X1     (X1) = RND(RJ)                                      SQZ         1554     A     
 SQZ                JP     SBB.JT+"OC" JUMP( OC )                                          SQZ         1555     A     
 SQZ       CTI      TITLE  CTI - CHECK TRANSMIT INSTRUCTION                                SQZ         1556     A     
 SQZ      **        CTI - CHECK *XMT* INSTRUCTION TO SEE IF IT CAN BE ELIMINATED.          SQZ         1557     A     
 SQZ      *                                                                                SQZ         1558     A     
 SQZ      *         ENTRY  (X1) = RND(RJ)                                                  SQZ         1559     A     
 SQZ      *                X4,X5,B6 AS FROM THE MAIN LOOP                                  SQZ         1560     A     
 SQZ      *                                                                                SQZ         1561     A     
 SQZ      *         EXIT   (X5) = [R1] IF XMT CANNOT BE ELIMINATED, ELSE TO MAIN L         SQZ         1562     A     
 SQZ                                                                                       SQZ         1563     A     
 SQZ       CTI      ROUTINE                                                                SQZ         1564     A     
 SQZ                                                                                       SQZ         1565     A     
 SQZ      *         ELIMINATE XMT/XMT SEQUENCES                                            SQZ         1566     A     
 SQZ                                                                                       SQZ         1567     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3336    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ       CTI0     LX1    59-RN.XMTP                                                      SQZ         1568     A     
 SQZ                PL     X1,CTI1     IF ^XMT[RJ]                                         SQZ         1569     A     
 SQZ                LX1    1+RN.XMTP-RN.TPP                                                SQZ         1570     A     
 SQZ                SA2    X1          R1J = TP[RJ]                                        SQZ         1571     A     
 SQZ                S"OC"  OC.XMT                                                          SQZ         1572     A     
 SQZ                SX5    B6                                                              SQZ         1573     A     
 SQZ                LX2    -R1.RJP                                                         SQZ         1574     A     
 SQZ                BX3    -X0*X2      RJ = RJ[R1J]                                        SQZ         1575     A     
 SQZ                SA1    "RN"+X3                                                         SQZ         1576     A     
 SQZ                LX3    R1.RJP                                                          SQZ         1577     A     
 SQZ                PX6    "OC",X3                                                         SQZ         1578     A     
 SQZ                IX7    X6+X5                                                           SQZ         1579     A     
 SQZ                SA7    A5          [R1] = TYI(XMT,RJ,0,RI)                             SQZ         1580     A     
 SQZ                BX5    X6+X5                                                           SQZ         1581     A     
 SQZ                EQ     CTI0                                                            SQZ         1582     A     
 SQZ                                                                                       SQZ         1583     A     
 SQZ      *         DETERMINE PRECEDENCE BIT SETTING AND JUMP TO PROCESSOR.                SQZ         1584     A     
 SQZ                                                                                       SQZ         1585     A     
 SQZ       CTI1     LX1    1+RN.XMTP-RN.TPP                                                SQZ         1586     A     
 SQZ                SA3    X1+B2       DJ = [TP[RJ]+2]                                     SQZ         1587     A     
 SQZ                MX2    -D.STRSL                                                        SQZ         1588     A     
 SQZ                LX4    -D.STRSP                                                        SQZ         1589     A     
 SQZ                BX6    -X2*X4                                                          SQZ         1590     A     
 SQZ                SB4    X6                                                              SQZ         1591     A     
 SQZ                LX3    -D.STRSP                                                        SQZ         1592     A     
 SQZ                BX7    -X2*X3                                                          SQZ         1593     A     
 SQZ                LX1    RN.TPP                                                          SQZ         1594     A     
 SQZ                SB5    X7                                                              SQZ         1595     A     
 SQZ                JP     CTI2+B4     JUMP( STRS[DI] )  */ 0 - 2 = -/PRS/PS               SQZ         1596     A     
 SQZ                                                                                       SQZ         1597     A     
 SQZ       CTI2     EQ     CTI3        STRS[DI] = 0                                        SQZ         1598     A     
 SQZ                                                                                       SQZ         1599     A     
 SQZ                ZR     B5,CTI4     IF STRS[DJ] = 0                                     SQZ         1600     A     
 SQZ                EQ     CTI5                                                            SQZ         1601     A     
 SQZ                                                                                       SQZ         1602     A     
 SQZ                ZR     B5,CTI6     IF PS[DI]                                           SQZ         1603     A     
 SQZ                EQ     B5,B1,CTI5  IF PS[DI] & PRS[DJ]                                 SQZ         1604     A     
 SQZ                                                                                       SQZ         1605     A     
 SQZ      *         STRS[DI] = 0 OR PS[DI] & PS[DJ] , ELIMINATE *XMT*                      SQZ         1606     A     
 SQZ                                                                                       SQZ         1607     A     
 SQZ       CTI3     SA2    "RN"+B6                                                         SQZ         1608     A     
 SQZ                SX7    B1                                                              SQZ         1609     A     
 SQZ                LX7    RN.NRP                                                          SQZ         1610     A     
 SQZ                BX2    X7*X2                                                           SQZ         1611     A     
 SQZ                BX6    X2+X1       RND(RI) = RND(RJ) ! NR[RI]                          SQZ         1612     A     
 SQZ                SA6    A2                                                              SQZ         1613     A     
 SQZ                MX7    0                                                               SQZ         1614     A     
 SQZ                SX4    B4                                                              SQZ         1615     A     
 SQZ                SA7    A4          [DI] = 0                                            SQZ         1616     A     
 SQZ                BX6    X3+X4                                                           SQZ         1617     A     
 SQZ                LX6    D.STRSP                                                         SQZ         1618     A     
 SQZ                SA6    A3          DJ = DJ ! STRS[DI]                                  SQZ         1619     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3337    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                EQ     MSL1                                                            SQZ         1620     A     
 SQZ                                                                                       SQZ         1621     A     
 SQZ      *         PRS[DI] AND STRS[DJ] = 0                                               SQZ         1622     A     
 SQZ      *         KEEP XMT IF RJ IS A *DEF* OR *KS*, OR A *LD* AND THE *RS* IS           SQZ         1623     A     
 SQZ      *         NOT TO A LD REGISTER .                                                 SQZ         1624     A     
 SQZ                                                                                       SQZ         1625     A     
 SQZ       CTI4     SA2    CTIB                                                            SQZ         1626     A     
 SQZ                LX7    X3                                                              SQZ         1627     A     
 SQZ                BX6    X2*X3                                                           SQZ         1628     A     
 SQZ                NZ     X6,CTI5     IF PI[DJ] ! KS[DJ]                                  SQZ         1629     A     
 SQZ                LX7    D.STRSP+59-D.LDP                                                SQZ         1630     A     
 SQZ                MX6    -SO.RNL                                                         SQZ         1631     A     
 SQZ                PL     X7,CTI3     IF ^LD[DJ]                                          SQZ         1632     A     
 SQZ       #DAL     IFNE   .DAL,0                                                          SQZ         1633     A     
 SQZ                LX7    D.LDP-D.L2P                                                     SQZ         1634     A     
 SQZ                MI     X7,CTI3     IF L2[DJ]                                           SQZ         1635     A     
 SQZ       #DAL     ENDIF                                                                  SQZ         1636     A     
 SQZ                SA2    A4+B2       R1RS = DI + 2                                       SQZ         1637     A     
 SQZ                MX7    5                                                               SQZ         1638     A     
 SQZ                LX2    -R1.SOP                                                         SQZ         1639     A     
 SQZ                BX6    -X6*X2      REGN = SORN[R1RS]                                   SQZ         1640     A     
 SQZ                LX7    -1                                                              SQZ         1641     A     
 SQZ                SB5    X6                                                              SQZ         1642     A     
 SQZ                LX7    B5,X7                                                           SQZ         1643     A     
 SQZ                MI     X7,CTI3     IF 1 @ REGN @ 5  */ A LD REG                        SQZ         1644     A     
 SQZ                                                                                       SQZ         1645     A     
 SQZ      *         KEEP *XMT*                                                             SQZ         1646     A     
 SQZ                                                                                       SQZ         1647     A     
 SQZ       CTI5     SA2    "RN"+B6                                                         SQZ         1648          I
          -FCC1825X 
 SQZ                                                                                       FCC1825X       5     A     
 SQZ       CTI5     SA2    CTIC                                                            FCC1825X       6     A     
 SQZ                LX3    D.STRSP                                                         FCC1825X       7     A     
 SQZ                BX6    -X2+X3                                                          FCC1825X       8     A     
 SQZ                ZR     X6,CTI8     IF ZP[DJ] & (SZ[DJ] = 1) & (TY[DJ] = II)            FCC1825X       9     A     
 SQZ                SA2    "RN"+B6                                                         FCC1825X      10     A     
 SQZ                SA4    A5+B2       DI = R1 + 2   */ RESTORE X4                         FCC0603       93     A     
 SQZ                SX3    B1                                                              SQZ         1649     A     
 SQZ                LX3    RN.XMTP                                                         SQZ         1650     A     
 SQZ                BX6    X3+X2       XMT[RI] = 1                                         SQZ         1651     A     
 SQZ                SA6    A2                                                              SQZ         1652     A     
 SQZ                EQ     CTI                                                             SQZ         1653     A     
 SQZ                                                                                       SQZ         1654     A     
 SQZ      *         *XMT* PRECEDES A STORE. ELIMINATE IF PRED CAN PRECEDE A STORE.         SQZ         1655     A     
 SQZ                                                                                       SQZ         1656     A     
 SQZ       CTI6     SA2    CTIA                                                            SQZ         1657     A     
 SQZ                BX6    X2*X3                                                           SQZ         1658     A     
 SQZ       #DAL     IFEQ   .DAL,0                                                          SQZ         1659     A     
 SQZ                NZ     X6,CTI5     IF LD[DJ] ! KS[DJ]                                  SQZ         1660     A     
 SQZ       #DAL     ELSE                                                                   SQZ         1661     A     
 SQZ                ZR     X6,CTI7     IF ^( LD[DJ] ! KS[DJ] )                             SQZ         1662     A     
 SQZ                BX2    X3                                                              SQZ         1663     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3338    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                LX2    D.STRSP-1-D.L2P                                                 SQZ         1664     A     
 SQZ                PL     X2,CTI5     IF ^L2[DJ]                                          SQZ         1665     A     
 SQZ       CTI7     BSS    0                                                               SQZ         1666     A     
 SQZ       #DAL     ENDIF                                                                  SQZ         1667     A     
 SQZ                BX2    X3                                                              SQZ         1668     A     
 SQZ                LX2    D.STRSP-1-D.PIP                                                 SQZ         1669     A     
 SQZ                PL     X2,CTI3     IF ^PI[DJ]    */ RJ NOT A *DEF*                     SQZ         1670     A     
 SQZ                                                                                       SQZ         1671     A     
 SQZ                SA2    A3-B2       R1J = DJ - 2                                        SQZ         1672     A     
 SQZ                MX6    -SO.RNL                                                         SQZ         1673     A     
 SQZ                LX2    -R1.SOP                                                         SQZ         1674     A     
 SQZ                BX7    -X6*X2                                                          SQZ         1675     A     
 SQZ                SX6    X7-6                                                            SQZ         1676     A     
 SQZ                MI     X6,CTI5     IF SORN[R1J] < 6  */ NOT A STORE REG                SQZ         1677     A     
 SQZ                SB4    B0          STRS[DI] = 0                                        SQZ         1678     A     
 SQZ                EQ     CTI3                                                            SQZ         1679     A     
 SQZ                                                                                       FCC1825X      11     A     
 SQZ      *         CLR OR FMA THAT PRS IN 2 REGS, DUPLICATE IT INSTEAD OF AN XMT          FCC1825X      12     A     
 SQZ                                                                                       FCC1825X      13     A     
 SQZ       CTI8     SA2    A3-B2                                                           FCC1825X      14     A     
 SQZ                SA4    A5+B2       DESCR OF XMT                                        FCC1825X      15     A     
 SQZ                BX6    X0*X2       OC AND IN OF R1J                                    FCC1825X      16     A     
 SQZ                UX7    "OC",X2                                                         FCC1825X      17     A     
 SQZ                RJ     URI         CHANGE INSTRUCTION                                  FCC1825X      18     A     
 SQZ                JP     SBB.JT+"OC"                                                     FCC1825X      19     A     
 SQZ                                                                                       SQZ         1680     A     
 SQZ       CTIA     BFMW   D,(LD,KS),60-D.STRSP                                            SQZ         1681     A     
 SQZ       CTIB     BFMW   D,(KS,PI),60-D.STRSP                                            SQZ         1682     A     
 SQZ       STT      TITLE  MISCELLANEOUS INSTRUCTION PROCESSING                            SQZ         1683     A     
 SQZ      **        MISCELLANEOUS INSTRUCTION SQUEEZING                                    SQZ         1684     A     
 SQZ      *         INSTRUCTIONS MAY BE REGISTER STORED TO X OR B REGISTERS.               SQZ         1685     A     
 SQZ      *         OR THEY ARE TYPE II ( NO PREDECESSORS ).                               SQZ         1686     A     
 SQZ                                                                                       SQZ         1687     A     
 SQZ                PROCESS STT                                                            SQZ         1688     A     
 SQZ                SA2    A5+B1       R2 = R1 + 1                                         SQZ         1689     A     
 SQZ                LX2    -IH.RFP                                                         SQZ         1690          I
          -FCC0792
 SQZ                SA1    "RN"+X2     RFW = RND(RF[R2])                                   SQZ         1691          I
          -FCC0792
 SQZ                MX7    -RN.CIAL                                                        SQZ         1692          I
          -FCC0792
 SQZ                BX6    X0*X2       R2W = [R2]                                          SQZ         1693          I
          -FCC0792
 SQZ                LX7    RN.CIAP                                                         SQZ         1694          I
          -FCC0792
 SQZ                BX3    -X7*X1                                                          SQZ         1695          I
          -FCC0792
 SQZ                SX7    X1          RF[R2W] = RN[RFW]                                   SQZ         1696          I
          -FCC0792
 SQZ                ZR     X3,STT0     IF ^(C,SA,IAC)[RFW]                                 SQZ         1697          I
          -FCC0792
 SQZ                SA3    ARFA                                                            FCC0792        4     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3339    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                LX2    -IH.RFP                                                         FCC0792        5     A     
 SQZ                SA1    "RN"+X2     RFW = RND(RF[R2])                                   FCC0792        6     A     
 SQZ                BX6    X0*X2       R2W = [R2]                                          FCC0792        7     A     
 SQZ                SX7    X1          RF[R2W] = RN[RFW]                                   FCC0792        8     A     
 SQZ                BX3    X3*X1                                                           FCC0792        9     A     
 SQZ                ZR     X3,STT0     IF ^(C,SA,IAC,XMT)[RFW]                             FCC0792       10     A     
 SQZ                RJ     ARF         ADJUST RF,CA                                        SQZ         1698     A     
 SQZ                                                                                       SQZ         1699     A     
 SQZ       STT0     ZR     X6,STT5     IF CAIH[R2W] = 0  */ REDUCE TO SA                   SQZ         1700     A     
 SQZ                BX6    X6+X7                                                           SQZ         1701     A     
 SQZ                SB4    X7          R = RF[R2W]                                         SQZ         1702     A     
 SQZ                LX6    IH.RFP                                                          SQZ         1703     A     
 SQZ                BX5    X6                                                              SQZ         1704     A     
 SQZ                SX7    X6                                                              SQZ         1705     A     
 SQZ                SA6    A5+B1       [R2] = R2W                                          SQZ         1706     A     
 SQZ                SB5    STT4                                                            SQZ         1707     A     
 SQZ                SA2    MIC                                                             SQZ         1708     A     
 SQZ                GT     B4,B1,STT2  IF R > 1                                            SQZ         1709     A     
 SQZ                NZ     B4,STT1     IF R " 0                                            SQZ         1710     A     
 SQZ                NZ     X7,STT1     IF IH[R2W] " 0                                      SQZ         1711     A     
 SQZ                                                                                       SQZ         1712     A     
 SQZ      *         RF & IH = 0 , CHANGE INST TO A *S*                                     SQZ         1713     A     
 SQZ                                                                                       SQZ         1714     A     
 SQZ                LX6    -IH.CAP                                                         SQZ         1715     A     
 SQZ                SX7    X6          VAL = CA[R2]                                        SQZ         1716     A     
 SQZ                MX6    0                                                               SQZ         1717     A     
 SQZ                SA6    A5+B1       [R2] = 0                                            SQZ         1718     A     
 SQZ                EQ     SA0                                                             SQZ         1719     A     
 SQZ                                                                                       SQZ         1720     A     
 SQZ       STT1     SX3    B1                                                              SQZ         1721     A     
 SQZ                LX3    D.ZPP                                                           SQZ         1722     A     
 SQZ                BX7    X4+X3       ZP[DI] = 1                                          SQZ         1723     A     
 SQZ                SA7    A4                                                              SQZ         1724     A     
 SQZ                                                                                       SQZ         1725     A     
 SQZ       STT2     LX1    -RN.TPP                                                         SQZ         1726     A     
 SQZ                SB3    X1+3        DEFA = TP[RFW] + 3                                  SQZ         1727     A     
 SQZ                SB4    X2          I = MIC                                             SQZ         1728     A     
 SQZ                SA2    X1+2        DF = TP[RFW] + 2                                    SQZ         1729          I
          -FCC1928
 SQZ                SX6    1                                                               SQZ         1730          I
          -FCC1928
 SQZ                SX6    X5                                                              FCC1928        6     A     
 SQZ                ZR     X6,STT3     IF IH[R2] = 0 */ NO IH                              FCC1928        7     A     
 SQZ                                                                                       FCC1928        8     A     
 SQZ                SA2    X1+B2       DF = TP[RFW] + 2                                    FCC1928        9     A     
 SQZ                SX6    B1                                                              FCC1928       10     A     
 SQZ                LX6    D.RFP                                                           SQZ         1731     A     
 SQZ                BX7    X6+X2       RF[DF] = 1    */ SET SHORT USE FOR PRED             SQZ         1732     A     
 SQZ                SA7    A2+                                                             SQZ         1733          I
          -FCC1928
 SQZ                SA7    A2                                                              FCC1928       11     A     
 SQZ                                                                                       SQZ         1734     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3340    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ      *         SEARCH *MIC* FOR PREVIOUS OCCURANCE OF THE *STT*                       SQZ         1735     A     
 SQZ                                                                                       SQZ         1736     A     
 SQZ       STT3     LE     B4,B3,SMI5  IF I @ DEFA                                         SQZ         1737     A     
 SQZ                SA1    B4-B2       R2W = [I-2]                                         SQZ         1738     A     
 SQZ                BX6    X5-X1                                                           SQZ         1739     A     
 SQZ                SA2    B4          I = [I]                                             SQZ         1740     A     
 SQZ                SB4    X2                                                              SQZ         1741     A     
 SQZ                NZ     X6,STT3     IF [R2W] " [R2]                                     SQZ         1742     A     
 SQZ                                                                                       SQZ         1743     A     
 SQZ                SA2    A1-B1       R1W = R2W - 1                                       SQZ         1744     A     
 SQZ                SA3    A5          R1 = R1                                             SQZ         1745     A     
 SQZ                BX6    X2-X3                                                           SQZ         1746     A     
 SQZ                BX7    X0*X6                                                           SQZ         1747     A     
 SQZ                NZ     X7,STT3     IF (OC,H2)[R1] " (OC,H2)[R1W]                       SQZ         1748     A     
 SQZ                                                                                       SQZ         1749     A     
 SQZ                SA3    A1+B1       DJ = R2W + 1                                        SQZ         1750     A     
 SQZ                EQ     SMI2        GO TRY TO ELIMINATE IT                              SQZ         1751     A     
 SQZ                                                                                       SQZ         1752     A     
 SQZ       STT4     LX5    R1.RJP-IH.RFP     INST ^ REDUNDANT                              SQZ         1753     A     
 SQZ                EQ     AUC.RJ                                                          SQZ         1754     A     
 SQZ                EQ     STT3        RETRY ADDRESS                                       SQZ         1755     A     
 SQZ                                                                                       SQZ         1756     A     
 SQZ      *         CAIH = 0 , REDUCE *STT* TO *SA* OR *S*                                 SQZ         1757     A     
 SQZ                                                                                       SQZ         1758     A     
 SQZ       STT5     MX6    0           [R2] = 0                                            SQZ         1759     A     
 SQZ                SA6    A5+B1                                                           SQZ         1760     A     
 SQZ                ZR     X7,SA0      IF RF[R2W] = 0                                      SQZ         1761     A     
 SQZ                                                                                       SQZ         1762     A     
 SQZ                S"OC"  OC.SA                                                           SQZ         1763     A     
 SQZ                BX6    X7                                                              SQZ         1764     A     
 SQZ                SA1    "RN"+X7                                                         SQZ         1765     A     
 SQZ                LX6    R1.RJP                                                          SQZ         1766     A     
 SQZ                SA2    "RN"                                                            SQZ         1767     A     
 SQZ                RJ     URI         URI( SA  RI, RF[R2W] )                              SQZ         1768     A     
 SQZ       SA       SPACE  3,14                                                            SQZ         1769     A     
 SQZ                PROCESS SA                                                             SQZ         1770     A     
 SQZ                LX2    59-RN.ZP                                                        SQZ         1771     A     
 SQZ                PL     X2,SRCH     IF ^Z[RK]                                           SQZ         1772     A     
 SQZ                                                                                       SQZ         1773     A     
 SQZ                BX6    X1                                                              SQZ         1774     A     
 SQZ                LX1    -RN.TPP                                                         SQZ         1775     A     
 SQZ                SA2    X1+B2       DJP = TP[RJ] + 2                                    SQZ         1776     A     
 SQZ                SX3    B1                                                              SQZ         1777          I
          -FCC1928
 SQZ                SB3    X1+3        DEFA = TP[RJ] + 3                                   SQZ         1778     A     
 SQZ                SB5    SA.JT                                                           SQZ         1779     A     
 SQZ                LX6    59-RN.CP                                                        SQZ         1780     A     
 SQZ                LX3    D.RFP                                                           SQZ         1781          I
          -FCC1928
 SQZ                BX7    X3+X2       RF[DJP] = 1                                         SQZ         1782          I
          -FCC1928
 SQZ                SA7    A2                                                              SQZ         1783          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3341    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
          -FCC1928
 SQZ                PL     X6,SA1      IF ^C[RJ]                                           SQZ         1784     A     
 SQZ                SA3    X1          R1J = TP[RJ]                                        SQZ         1785     A     
 SQZ                RJ     DCV         VAL = DVC(R1J)                                      SQZ         1786     A     
 SQZ                SX7    X7+                                                             SQZ         1787     A     
 SQZ                                                                                       SQZ         1788     A     
 SQZ      *         SA0 - REDUCE SHORT CONSTANT TO A *S* INSTRUCTION                       SQZ         1789     A     
 SQZ                                                                                       SQZ         1790     A     
 SQZ       SA0      MX2    -18                                                             SQZ         1791     A     
 SQZ                BX1    X7                                                              SQZ         1792     A     
 SQZ                S"OC"  OC.S                                                            SQZ         1793     A     
 SQZ                BX6    -X2*X7                                                          SQZ         1794     A     
 SQZ                LX6    R1.INP                                                          SQZ         1795     A     
 SQZ                RJ     URI         URI(  S  RI,VAL )                                   SQZ         1796     A     
 SQZ                NZ     X1,.S       IF VAL " 0                                          SQZ         1797     A     
 SQZ                SX3    B1                                                              SQZ         1798     A     
 SQZ                LX3    D.SZP                                                           SQZ         1799     A     
 SQZ                IX6    X4-X3       SZ[DI] = 1                                          SQZ         1800     A     
 SQZ                BX4    X6                                                              SQZ         1801     A     
 SQZ                SA6    A4                                                              SQZ         1802     A     
 SQZ                EQ     .CLR        GO SET Z BIT FOR RI                                 SQZ         1803     A     
 SQZ                                                                                       SQZ         1804     A     
 SQZ                                                                                       SQZ         1805     A     
 SQZ       SA1      LX6    RN.CP-RN.IACP                                                   SQZ         1806     A     
 SQZ                PL     X6,SMI      IF ^IAC[RJ]                                         SQZ         1807     A     
 SQZ                                                                                       SQZ         1808     A     
 SQZ                LX2    59-D.CMP                                                        SQZ         1809     A     
 SQZ                MI     X2,SA2      IF CM[DJP]    */ *IA*                               SQZ         1810     A     
 SQZ                SA3    A2-B2       R1P = DJP - 2                                       SQZ         1811     A     
 SQZ                LX3    -R1.RJP                                                         SQZ         1812     A     
 SQZ                BX6    -X0*X3                                                          SQZ         1813     A     
 SQZ                SA2    "RN"+X6     RNJ = RND(RJ[R1P])                                  SQZ         1814     A     
 SQZ                LX2    59-RN.CP                                                        SQZ         1815     A     
 SQZ                MI     X2,SMI      IF C[RNJ]     */ CON - I CASE                       SQZ         1816     A     
 SQZ                                                                                       SQZ         1817     A     
 SQZ      *         CHANGE INSTRUCTION TO AN *STT*, LET *ARF* ADD THE CA.                  SQZ         1818     A     
 SQZ                                                                                       SQZ         1819     A     
 SQZ       SA2      LX5    -R1.RJP                                                         SQZ         1820     A     
 SQZ                BX7    -X0*X5                                                          SQZ         1821     A     
 SQZ                LX7    IH.RFP                                                          SQZ         1822     A     
 SQZ                SA7    A5+B1       R2 = R1 + 1;  [R2] = IHW(0,RJ[R1],0,0)              SQZ         1823     A     
 SQZ                SX6    0                                                               SQZ         1824     A     
 SQZ                S"OC"  OC.STT                                                          SQZ         1825     A     
 SQZ                RJ     URI         URI(  STT  RI,RJ  )                                 SQZ         1826     A     
 SQZ                EQ     .STT                                                            SQZ         1827     A     
 SQZ                                                                                       SQZ         1828     A     
 SQZ      *         SA NOT REDUNDANT, SET *SA* BIT                                         SQZ         1829     A     
 SQZ                                                                                       SQZ         1830     A     
 SQZ       SA5      SX2    B1                                                              SQZ         1831     A     
 SQZ                LX2    RN.SAP                                                          SQZ         1832     A     
 SQZ                BX6    X2+X3       SA[RND(RI)] = 1                                     SQZ         1833     A     
 SQZ                SA6    A3                                                              SQZ         1834     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3342    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                EQ     AUC.RJ                                                          SQZ         1835     A     
 SQZ                                                                                       SQZ         1836     A     
 SQZ       SA.JT    SA3    "RN"+B6                                                         SQZ         1837     A     
 SQZ                EQ     SA5                                                             SQZ         1838     A     
 SQZ                                                                                       SQZ         1839     A     
 SQZ                EQ     SMI1        RETRY                                               SQZ         1840     A     
 SQZ       CLR      SPACE  3,14                                                            SQZ         1841     A     
 SQZ      *         ZERO - INSTRUCTION REDUCES TO A ZERO                                   SQZ         1842     A     
 SQZ      *         CHANGE IT TO A *CLR* AND TRY TO ELIMINATE IT                           SQZ         1843     A     
 SQZ                                                                                       SQZ         1844     A     
 SQZ       ZERO     S"OC"  OC.CLR                                                          SQZ         1845     A     
 SQZ                MX6    0                                                               SQZ         1846     A     
 SQZ                SA6    A5+B1       [R2] = 0                                            SQZ         1847     A     
 SQZ                RJ     URI         URI( CLR  RI,0 )                                    SQZ         1848     A     
 SQZ       CLR      SPACE  3                                                               SQZ         1849     A     
 SQZ                PROCESS CLR                                                            SQZ         1850     A     
 SQZ                SA3    "RN"+B6                                                         SQZ         1851     A     
 SQZ                MX6    RN.CZL                                                          SQZ         1852     A     
 SQZ                LX6    RN.CZL+RN.CZP  C[RI] = Z[RI] = 1                                SQZ         1853     A     
 SQZ                BX7    X6+X3                                                           SQZ         1854     A     
 SQZ                SA7    A3                                                              SQZ         1855     A     
 SQZ                SB3    A0+3        DEFA = TXT + 3                                      FCC1085       24     A     
 SQZ                SB5    FMA1                                                            FCC1085       25     A     
 SQZ                EQ     SMI                                                             FCC1085       26     A     
 SQZ       FMA      SPACE  3                                                               SQZ         1856     A     
 SQZ       FMA      PROCESS (FMA,S)                                                        SQZ         1857     A     
 SQZ                SA3    "RN"+B6                                                         SQZ         1858          I
          -FCC1085
 SQZ                UX6    X5                                                              FCC1085       27     A     
 SQZ                AX6    R1.INP                                                          FCC1085       28     A     
 SQZ                NZ     X6,FMA0     IF IN[R1] " 0 */ VAL(RI) NOT 0                      FCC1085       29     A     
 SQZ                BX6    X4                                                              FCC1085       30     A     
 SQZ                LX6    59-D.PRSP                                                       FCC1085       31     A     
 SQZ                PL     X6,ZERO     IF ^PRS[DI]                                         FCC1085       32     A     
 SQZ                EQ     .CLR                      */ GO SET *Z* BIT                     FCC1085       33     A     
 SQZ                                                                                       FCC1085       34     A     
 SQZ       FMA0     SA3    "RN"+B6                                                         FCC1085       35     A     
 SQZ                MX6    1                                                               SQZ         1859     A     
 SQZ                LX6    1+RN.CP                                                         SQZ         1860     A     
 SQZ                BX7    X6+X3       C[RI] = 1                                           SQZ         1861     A     
 SQZ                SA7    A3                                                              SQZ         1862     A     
 SQZ                SB3    A0+3        DEFA = TXT + 3                                      SQZ         1863     A     
 SQZ                SB5    FMA1                                                            SQZ         1864     A     
 SQZ                EQ     SMI                                                             SQZ         1865     A     
 SQZ                                                                                       SQZ         1866     A     
 SQZ       FMA1     EQ     MSL1        FAIL EXIT                                           SQZ         1867     A     
 SQZ                EQ     SMI1        RETRY                                               SQZ         1868     A     
 SQZ       FMA60    SPACE  3                                                               SQZ         1869     A     
 SQZ      *         FMA60 - CHANGE INSTRUCTION TO  FMA  RI,60                              SQZ         1870     A     
 SQZ                                                                                       SQZ         1871     A     
 SQZ       FMA60    S"OC"  OC.FMA                                                          SQZ         1872     A     
 SQZ                SX6    60                                                              SQZ         1873     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3343    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                LX6    R1.INP                                                          SQZ         1874     A     
 SQZ                RJ     URI         URI( FMA  RI,60 )                                   SQZ         1875     A     
 SQZ                EQ     FMA                                                             SQZ         1876     A     
 SQZ       SMI      EJECT                                                                  SQZ         1877     A     
 SQZ      **        SMI - SQUEEZE MISCELLANEOUS INSTRUCTIONS                               SQZ         1878     A     
 SQZ      *                                                                                SQZ         1879     A     
 SQZ      *         ENTRY  (B3) = MIN SEARCH ADDRESS                                       SQZ         1880     A     
 SQZ      *                (B5) = FAIL EXIT PROCESSOR ADDRESS                              SQZ         1881     A     
 SQZ      *                X4,X5,B6 AS FROM MAIN LOOP                                      SQZ         1882     A     
 SQZ      *         NOTE - IN CASE OF RETRY THIS SUBROUTINE MAY BE ENTERED                 SQZ         1883     A     
 SQZ      *         AGAIN AT SMI1 / SMI2                                                   SQZ         1884     A     
 SQZ                                                                                       SQZ         1885     A     
 SQZ       SMI      SA2    MIC                                                             SQZ         1886     A     
 SQZ                SB4    X2          I = MIC                                             SQZ         1887     A     
 SQZ                                                                                       SQZ         1888     A     
 SQZ      *         SEARCH *MIC* FOR A PREVIOUS OCCURANCE OF CURRENT INSTRUCTION.          SQZ         1889     A     
 SQZ                                                                                       SQZ         1890     A     
 SQZ       SMI1     LE     B4,B3,SMI5  IF I @ DEFA                                         SQZ         1891     A     
 SQZ                SA1    B4-3                                                            SQZ         1892     A     
 SQZ                BX6    X5-X1                                                           SQZ         1893     A     
 SQZ                SA2    B4          I = [I]                                             SQZ         1894     A     
 SQZ                BX7    X0*X6                                                           SQZ         1895     A     
 SQZ                SB4    X2                                                              SQZ         1896     A     
 SQZ                NZ     X7,SMI1     IF MASK(-R1.RIL) & XOR(R1W,R1) " 0                  SQZ         1897     A     
 SQZ                SA3    A1+B2       DJ = R1W + 2                                        SQZ         1898     A     
 SQZ                                                                                       SQZ         1899     A     
 SQZ      *         ELIMINATE REDUNDANT INSTRUCTION , (X3) = [DJ] + ABOVE REG ASSI         SQZ         1900     A     
 SQZ                                                                                       SQZ         1901     A     
 SQZ       SMI2     BX6    X3+X4                                                           SQZ         1902     A     
 SQZ                SX1    B4                                                              SQZ         1903     A     
 SQZ                MX7    -D.STRSL                                                        SQZ         1904     A     
 SQZ                LX6    -D.STRSP                                                        SQZ         1905     A     
 SQZ                BX6    -X7*X6                                                          SQZ         1906     A     
 SQZ                SB4    X6                                                              SQZ         1907     A     
 SQZ                BX6    X3*X4                                                           SQZ         1908     A     
 SQZ                LX6    -D.STRSP                                                        SQZ         1909     A     
 SQZ                BX7    -X7*X6                                                          SQZ         1910     A     
 SQZ                JP     SMI3+B4     JUMP( STRS[DI] ! STRS[DJ] )                         SQZ         1911     A     
 SQZ                                                                                       SQZ         1912     A     
 SQZ       SMI3     EQ     SMI6        STRS[DJ] & STRS[DI] = 0                             SQZ         1913     A     
 SQZ                                                                                       SQZ         1914     A     
 SQZ                NZ     X7,SMI7     IF PRS[DJ] & PRS[[DI]                               SQZ         1915     A     
 SQZ                EQ     SMI8                                                            SQZ         1916     A     
 SQZ                                                                                       SQZ         1917     A     
 SQZ                EQ     SMI6        PS[DI] ! PS[DJ]                                     SQZ         1918     A     
 SQZ                                                                                       SQZ         1919     A     
 SQZ       SMI3A    SB4    X1+                                                             SQZ         1920     A     
 SQZ      *         EQ     SMI4        PS & PRS                                            SQZ         1921     A     
 SQZ                                                                                       SQZ         1922     A     
 SQZ       SMI4     ZR     B4,SMI5     IF I = 0                                            SQZ         1923     A     
 SQZ                JP     B5+1        */ EXIT FOR A RETRY                                 SQZ         1924     A     
 SQZ                                                                                       SQZ         1925     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3344    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ      *         INSTRUCTION NOT REDUNDANT, RETURN TO FAIL EXIT                         SQZ         1926     A     
 SQZ                                                                                       SQZ         1927     A     
 SQZ       SMI5     SA2    MIC                                                             SQZ         1928     A     
 SQZ                BX6    X2                                                              SQZ         1929     A     
 SQZ                SA6    A4+B1       [DI+1] = MIC                                        SQZ         1930     A     
 SQZ                SX7    A4+B1                                                           SQZ         1931     A     
 SQZ                SA7    A2          MIC = DI + 1                                        SQZ         1932     A     
 SQZ                JP     B5          */ RETURN TO FAIL EXIT                              SQZ         1933     A     
 SQZ                                                                                       SQZ         1934     A     
 SQZ      *         INSTRUCTION REDUNDANT, ELIMINATE SECOND OCCURANCE                      SQZ         1935     A     
 SQZ                                                                                       SQZ         1936     A     
 SQZ       SMI6     SA2    A3-B2       R1J = DJ - 2                                        SQZ         1937     A     
 SQZ                BX6    X3+X4                                                           SQZ         1938     A     
 SQZ                SA6    A3          DJ = DJ ! DI                                        SQZ         1939     A     
 SQZ                BX1    -X0*X2                                                          SQZ         1940     A     
 SQZ                MX7    0                                                               SQZ         1941     A     
 SQZ                SA2    "RN"+X1                                                         SQZ         1942     A     
 SQZ                BX6    X2                                                              SQZ         1943     A     
 SQZ                SA7    A4          [DI] = 0      */ MARK INST AS DEAD                  SQZ         1944     A     
 SQZ                SA6    "RN"+B6     RND(RI) = RND(RI[R1J])                              SQZ         1945     A     
 SQZ                EQ     MSL1                                                            SQZ         1946     A     
 SQZ                                                                                       SQZ         1947     A     
 SQZ      *         BOTH INSTRUCTIONS PRECEDE A REGISTER STORE.                            SQZ         1948     A     
 SQZ                                                                                       SQZ         1949     A     
 SQZ       SMI7     SB4    X1                                                              SQZ         1950     A     
 SQZ                SA1    A3+B1                                                           SQZ         1951     A     
 SQZ                SA2    A4+B2       RSI = R1 + 4                                        SQZ         1952     A     
 SQZ                LX1    -36                                                             SQZ         1953     A     
 SQZ                SA1    X1          RSJ = [RSL[DJ+1]]                                   SQZ         1954     A     
 SQZ                BX6    X1-X2                                                           SQZ         1955     A     
 SQZ                BX6    X0*X6                                                           SQZ         1956     A     
 SQZ                NZ     X6,SMI4     IF REG[RSJ] " REG[RSI]                              SQZ         1957     A     
 SQZ                                                                                       SQZ         1958     A     
 SQZ                MX7    60                                                              SQZ         1959     A     
 SQZ                SA7    A4+4        [DI+4] = -0   */ MARK FOLLOWING *RS* AS DEA         SQZ         1960     A     
 SQZ                EQ     SMI6                                                            SQZ         1961     A     
 SQZ                                                                                       SQZ         1962     A     
 SQZ      *         ONE OF THE INSTRUCTIONS PRECEDES AN RS.  IF IT IS TO A B REG,          SQZ         1963     A     
 SQZ      *         WE CANNOT REDUCE IT.                                                   SQZ         1964     A     
 SQZ                                                                                       SQZ         1965     A     
 SQZ       SMI8     LX4    59-D.PRSP                                                       SQZ         1966     A     
 SQZ                SA2    A4+B1       R1RS = DI + 1                                       SQZ         1967     A     
 SQZ                MI     X4,SMI9     IF PRS[DI]                                          SQZ         1968     A     
 SQZ                SA2    A3+B1                                                           SQZ         1969     A     
 SQZ                LX2    -36                                                             SQZ         1970     A     
 SQZ                SA2    X2          R1RS = [RSL[DJ+1]]                                  SQZ         1971     A     
 SQZ                                                                                       SQZ         1972     A     
 SQZ       SMI9     LX4    1+D.PRSP                                                        SQZ         1973     A     
 SQZ                MX6    -SO.RTL                                                         SQZ         1974     A     
 SQZ                LX2    -R1.SOP-SO.RTP                                                  SQZ         1975     A     
 SQZ                BX7    -X6*X2                                                          SQZ         1976     A     
 SQZ                NZ     X7,SMI6     IF SORT[R1RS] " 0  */ ^ A B-REG                     SQZ         1977     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3345    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                EQ     SMI3A                                                           SQZ         1978     A     
 SQZ       URI      EJECT                                                                  SQZ         1979     A     
 SQZ      **        URI - UPDATE REDUCED INSTRUCTION                                       SQZ         1980     A     
 SQZ      *         UPDATES CORE IMAGE AND REGISTERS OF A CHANGED TYPE I/II INST           SQZ         1981     A     
 SQZ      *                                                                                SQZ         1982     A     
 SQZ       CTIC     VFD    D.TYL/1     TYPE = II                                           FCC1825X      20     A     
 SQZ                POS    D.ZPP+1                                                         FCC1825X      21     A     
 SQZ                VFD    1/1                                                             FCC1825X      22     A     
 SQZ                POS    D.SZP+D.SZL                                                     FCC1825X      23     A     
 SQZ                VFD    D.SZL/1,*P/0                                                    FCC1825X      24     A     
 SQZ      *         ENTRY  (B3) = OPCODE                                                   SQZ         1983     A     
 SQZ      *                (X4) = OLD DESCRIPTOR                                           SQZ         1984     A     
 SQZ      *                (X6) = RJ/RK OR IN/SO FIELDS OF NEW WORD 1                      SQZ         1985     A     
 SQZ      *                                                                                SQZ         1986     A     
 SQZ      *         EXIT   (X4) = [DI] = ( NEW )                                           SQZ         1987     A     
 SQZ      *                (X5) = [R1] ( NEW )                                             SQZ         1988     A     
 SQZ      *                                                                                SQZ         1989     A     
 SQZ      *         USES   X - 3, 6, 7                                                     SQZ         1990     A     
 SQZ      *                A - 3, 6, 7                                                     SQZ         1991     A     
 SQZ                                                                                       SQZ         1992     A     
 SQZ       URI      ROUTINE                                                                SQZ         1993     A     
 SQZ                SA3    F.RDT+"OC"                                                      SQZ         1994     A     
 SQZ                MX7    -D.STRSL                                                        SQZ         1995     A     
 SQZ                SX5    B6                                                              SQZ         1996     A     
 SQZ                LX7    D.STRSP                                                         SQZ         1997     A     
 SQZ                IX6    X6+X5                                                           SQZ         1998     A     
 SQZ                BX4    -X7*X4                                                          SQZ         1999     A     
 SQZ                PX6    "OC",X6     [R1] = NEW WORD 1                                   SQZ         2000     A     
 SQZ                SA6    A5                                                              SQZ         2001     A     
 SQZ                BX7    X3+X4       [DI] = RDT(OC) ! STRS[DI]                           SQZ         2002     A     
 SQZ                LX5    X6                                                              SQZ         2003     A     
 SQZ                SA7    A4                                                              SQZ         2004     A     
 SQZ                LX4    X7                                                              SQZ         2005     A     
 SQZ                EQ     URI                                                             SQZ         2006     A     
 SQZ       ECO      SPACE  2,14                                                            SQZ         2007     A     
 SQZ      **        ECO - EVALUATE INSTRUCTION WITH CONSTANT OPERANDS                      SQZ         2008     A     
 SQZ      *                                                                                SQZ         2009     A     
 SQZ      *         ENTRY  (B3) = INSTRUCTION OPCODE ( = MACHINE OPCODE )                  SQZ         2010     A     
 SQZ                                                                                       SQZ         2011     A     
 SQZ       ECO      SA3    ECOA                                                            SQZ         2012     A     
 SQZ                SX6    "OC"                                                            SQZ         2013     A     
 SQZ                LX6    54                                                              SQZ         2014     A     
 SQZ                BX7    X6+X3                                                           SQZ         2015     A     
 SQZ                SA7    ECO1                                                            SQZ         2016     A     
 SQZ                RJ     GCV         GET CONSTANT VALUES ( ALSO FLUSH STACK )            SQZ         2017     A     
 SQZ                SB4    20B                                                             SQZ         2018     A     
 SQZ                LT     B3,B4,ECO1  IF OC[R1] < 20B   */ BOOLEAN INSTRUCTION            SQZ         2019     A     
 SQZ                OR     X6,SRCH     IF ^RANGE(VAL[RJ])                                  SQZ         2020     A     
 SQZ                ID     X6,SRCH     IF INDEF(VAL[RJ])                                   SQZ         2021     A     
 SQZ                OR     X7,SRCH     IF ^RANGE(VAL[RK])                                  SQZ         2022     A     
 SQZ                ID     X7,SRCH     IF INDEF(VAL[RK])                                   SQZ         2023     A     
 SQZ       ECO1     FX6    X6+X7       VAL = VAL[RJ] .OP. VAL[RK]                          SQZ         2024     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3346    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                LT     B3,B4,CCV   IF OC[R1] < 20B                                     SQZ         2025     A     
 SQZ                                                                                       SQZ         2026     A     
 SQZ      +         OR     X6,SRCH     IF ^RANGE(VAL)                                      SQZ         2027     A     
 SQZ                ID     X6,SRCH     IF INDEF(VAL)                                       SQZ         2028     A     
 SQZ                EQ     CCV                                                             SQZ         2029     A     
 SQZ                                                                                       SQZ         2030     A     
 SQZ       ECOA     VFD    6/00B,9/667B                                                    SQZ         2031     A     
 SQZ                LT     B3,B4,CCV                                                       SQZ         2032     A     
 SQZ                NO                                                                     SQZ         2033     A     
 SQZ       GCV      SPACE  2,14                                                            SQZ         2034     A     
 SQZ      **        GCV - GET CONSTANT VALUES ( CONSTANT FOLDING )                         SQZ         2035     A     
 SQZ      *                                                                                SQZ         2036     A     
 SQZ      *         ENTRY  (X1/X2) = RND(RJ/RK)                                            SQZ         2037     A     
 SQZ      *                                                                                SQZ         2038     A     
 SQZ      *         EXIT   (X6,X7) = VAL[RJ/RK]                                            SQZ         2039     A     
 SQZ                                                                                       SQZ         2040     A     
 SQZ       GCV      ROUTINE                                                                SQZ         2041     A     
 SQZ                LX1    -RN.TPP                                                         SQZ         2042     A     
 SQZ                SA3    X1          R1P = TP[RJ]                                        SQZ         2043     A     
 SQZ                RJ     DCV                                                             SQZ         2044     A     
 SQZ                LX2    -RN.TPP                                                         SQZ         2045     A     
 SQZ                BX6    X7          (X6) = VAL[RJ]                                      SQZ         2046     A     
 SQZ                SA3    X2          R1P = TP[RK]                                        SQZ         2047     A     
 SQZ                RJ     DCV         (X7) = VAL[RK]                                      SQZ         2048     A     
 SQZ                EQ     GCV                                                             SQZ         2049     A     
 SQZ       DCV      SPACE  3,14                                                            SQZ         2050     A     
 SQZ      **        DCV - DETERMINE CONSTANT VALUE                                         SQZ         2051     A     
 SQZ      *                                                                                SQZ         2052     A     
 SQZ      *         ENTRY  (X3) = R1 WORD OF *S* OR *FMA* INSTRUCTION                      SQZ         2053     A     
 SQZ      *                                                                                SQZ         2054     A     
 SQZ      *         EXIT   (X7) = VALUE OF CONSTANT                                        SQZ         2055     A     
 SQZ      *                (B5) = 0 IF OC = OC.S                                           SQZ         2056     A     
 SQZ                                                                                       SQZ         2057     A     
 SQZ       DCV      ROUTINE                                                                SQZ         2058     A     
 SQZ                UX3    B4,X3                                                           SQZ         2059     A     
 SQZ                SB5    B4-OC.S                                                         SQZ         2060     A     
 SQZ                LX3    -R1.INP                                                         SQZ         2061     A     
 SQZ                SX7    X3          VAL = IN[R1]                                        SQZ         2062     A     
 SQZ                ZR     B5,DCV      IF OC[R1] = OC.S                                    SQZ         2063     A     
 SQZ                SB4    X3-1                      */ ASSUME A *FMA*                     SQZ         2064     A     
 SQZ                MX3    1                                                               SQZ         2065     A     
 SQZ                AX7    B4,X3       VAL = MASK(IN[R1])                                  SQZ         2066     A     
 SQZ                PL     B4,DCV      IF IN[R1] \ 1                                       SQZ         2067     A     
 SQZ                MX7    0           VAL = 0                                             SQZ         2068     A     
 SQZ                EQ     DCV                                                             SQZ         2069     A     
 SQZ       CCV      SPACE  3                                                               SQZ         2070     A     
 SQZ      **        CCV - CONVERT CONSTANT VALUE                                           SQZ         2071     A     
 SQZ      *                                                                                SQZ         2072     A     
 SQZ      *         ENTRY  (X6) = VAL , TO BE REFORMED AS *S*/*FMA* INSTRUCTION            SQZ         2073     A     
 SQZ      *                (B6) = RI                                                       SQZ         2074     A     
 SQZ                                                                                       SQZ         2075     A     
 SQZ      *         TRY TO REDUCE CONSTANT TO A *FMA*                                      SQZ         2076     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3347    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                                                                                       SQZ         2077     A     
 SQZ       CCV      PL     X6,CCV1     IF VAL > 0                                          SQZ         2078     A     
 SQZ                CX7    X6                                                              SQZ         2079     A     
 SQZ                MX3    1                                                               SQZ         2080     A     
 SQZ                SB4    X7-1                                                            SQZ         2081     A     
 SQZ                AX7    B4,X3                                                           SQZ         2082     A     
 SQZ                BX3    X7-X6                                                           SQZ         2083     A     
 SQZ                NZ     X3,CCV1     IF VAL " MASK( COUNT(VAL) )                         SQZ         2084     A     
 SQZ                S"OC"  OC.FMA      OC = OC.FMA                                         SQZ         2085     A     
 SQZ                SX6    B4+B1       VAL = COUNT(VAL)                                    SQZ         2086     A     
 SQZ                EQ     CCV2                                                            SQZ         2087     A     
 SQZ                                                                                       SQZ         2088     A     
 SQZ      *         TRY TO REDUCE CONSTANT TO A *S*                                        SQZ         2089     A     
 SQZ                                                                                       SQZ         2090     A     
 SQZ       CCV1     ZR     X6,ZERO     IF VAL = 0                                          SQZ         2091     A     
 SQZ                MX3    42                                                              SQZ         2092     A     
 SQZ                LX7    X6                                                              SQZ         2093     A     
 SQZ                BX6    -X3*X6                                                          SQZ         2094     A     
 SQZ                AX7    17                                                              SQZ         2095     A     
 SQZ                NZ     X7,SRCH     IF SHIFT(VAL,-17) " 0                               SQZ         2096     A     
 SQZ                S"OC"  OC.S        OC = OC.S                                           SQZ         2097     A     
 SQZ                                                                                       SQZ         2098     A     
 SQZ       CCV2     LX6    R1.INP                                                          SQZ         2099     A     
 SQZ                RJ     URI         URI( OC  VAL,RI )                                   SQZ         2100     A     
 SQZ                MX7    0                                                               SQZ         2101     A     
 SQZ                SA7    A5+B1       [R1+1] = 0                                          SQZ         2102     A     
 SQZ                EQ     FMA                                                             SQZ         2103     A     
 SQZ       BTERM    EJECT                                                                  SQZ         2104     A     
 SQZ      *         BOS - BEGINNING OF STMT MARKER                                         SQZ         2105     A     
 SQZ                                                                                       SQZ         2106     A     
 SQZ                PROCESS BOS                                                            SQZ         2107     A     
 SQZ                LX5    -R1.INP                                                         SQZ         2108     A     
 SQZ                SX6    X5                                                              SQZ         2109     A     
 SQZ                SA6    =XLINENR    LINENR = IN[R1]  */ LINE NO OF THIS STMT            SQZ         2110     A     
 SQZ                                                                                       SQZ         2111     A     
 SQZ                PROCESS NOP                                                            SQZ         2112     A     
 SQZ                MX7    0                                                               SQZ         2113     A     
 SQZ                SA7    A4          [DI] = 0                                            SQZ         2114     A     
 SQZ                EQ     MSL1                                                            SQZ         2115     A     
 SQZ       RS       SPACE  3                                                               SQZ         2116          I
          -FCC0588
 SQZ                                                                                       FCC0588        5     A     
 SQZ                PROCESS EOS                                                            FCC0588        6     A     
 SQZ                SX3    X5                                                              FCC0588        7     A     
 SQZ                ZR     X3,MSL1     IF IH[R1] = 0 */ NOT A OPT=2 *EOS*                  FCC0588        8     A     
 SQZ                SA2    A5-B2       DIP = R1 - 2                                        FCC0588        9     A     
 SQZ                LX2    59-D.BMP                                                        FCC0588       10     A     
 SQZ                MI     X2,MSL1     IF BM[DIP]    */ LAST INST IS A *BM*                FCC0588       11     A     
 SQZ                EQ     .NOP                                                            FCC0588       12     A     
 SQZ                                                                                       FCC0588       13     A     
 SQZ      *         RS - REGISTER STORE                                                    SQZ         2117     A     
 SQZ                                                                                       SQZ         2118     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3348    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                PROCESS RS                                                             SQZ         2119     A     
 SQZ                ZR     X4,MSL1     IF [DI] = 0   */ DEAD INSTRUCTION                   SQZ         2120     A     
 SQZ                                                                                       SQZ         2121     A     
 SQZ                SA1    "RN"+B6     RI = RND(RI)                                        SQZ         2122     A     
 SQZ                BX6    X0*X5                                                           SQZ         2123     A     
 SQZ                BX2    -X0*X1                                                          SQZ         2124     A     
 SQZ                IX7    X6+X2                                                           SQZ         2125     A     
 SQZ                SA7    A5                                                              SQZ         2126     A     
 SQZ                BX6    X7-X5                                                           SQZ         2127     A     
 SQZ                BX5    X7                                                              SQZ         2128     A     
 SQZ                LX7    59-R1.INP                                                       SQZ         2129     A     
 SQZ                MI     X7,MSL1     IF IN[R1] " 0  */ RJ *RS*                           SQZ         2130     A     
 SQZ                                                                                       SQZ         2131     A     
 SQZ                LX1    -RN.TPP                                                         SQZ         2132     A     
 SQZ                SA2    X1+3                                                            SQZ         2133     A     
 SQZ                SX3    A5                                                              SQZ         2134     A     
 SQZ                LX3    36                                                              SQZ         2135     A     
 SQZ                BX7    X3+X2       RSL[TP[RI]+3] = R1                                  SQZ         2136     A     
 SQZ                SA7    A2                        */ LINK DEF TO *RS*                   SQZ         2137     A     
 SQZ                ZR     X6,RS1      IF RI DIDN"T CHANGE                                 SQZ         2138     A     
 SQZ                                                                                       SQZ         2139     A     
 SQZ                SA2    RSS                                                             SQZ         2140     A     
 SQZ                BX6    X2                                                              SQZ         2141     A     
 SQZ                SA6    A4+B1       [DI+1] = RSS ( ADD TO CHAIN OF SEPARATED            SQZ         2142     A     
 SQZ                SX7    A4+B1                      REGISTER STORES )                    SQZ         2143     A     
 SQZ                SA7    A2          RSS = DI + 1                                        SQZ         2144     A     
 SQZ                                                                                       SQZ         2145     A     
 SQZ      *         BUMP USES COUNT OF OPERAND IF *UJP* OR FULL LOCK *RS*.                 SQZ         2146     A     
 SQZ                                                                                       SQZ         2147     A     
 SQZ       RS1      BX6    X5                                                              SQZ         2148     A     
 SQZ                LX6    59-R1.SOP-SO.LKP                                                SQZ         2149     A     
 SQZ                MI     X6,MSL1     IF IF SOTLK[R1]   */ DONT COLLECT USES              SQZ         2150     A     
 SQZ                LX5    R1.RJP                                                          SQZ         2151     A     
 SQZ                EQ     AUC.RJ                                                          SQZ         2152     A     
 SQZ       BTERM    EJECT                                                                  SQZ         2153     A     
 SQZ      *         BLOCK TERMINATORS                                                      SQZ         2154     A     
 SQZ                                                                                       SQZ         2155     A     
 SQZ                PROCESS (UJP,RJ3,RJ6,LAB,ENT)                                          SQZ         2156     A     
 SQZ                CLEAR              CLEAR LINKED LISTS                                  SQZ         2157     A     
 SQZ                EQ     MSL1                                                            SQZ         2158     A     
 SQZ                                                                                       SQZ         2159     A     
 SQZ                PROCESS JIN                                                            SQZ         2160     A     
 SQZ                CLEAR              CLEAR LINKED LISTS                                  SQZ         2161     A     
 SQZ                SA1    "RN"+B6                                                         SQZ         2162     A     
 SQZ                LX1    59-RN.ZP                                                        SQZ         2163     A     
 SQZ                PL     X1,.JPX     IF ^Z[RI]                                           SQZ         2164     A     
 SQZ                BX6    X0*X5       RI[R1] = 0                                          SQZ         2165     A     
 SQZ                SA6    A5                                                              SQZ         2166     A     
 SQZ                EQ     MSL1                                                            SQZ         2167     A     
 SQZ                                                                                       SQZ         2168     A     
 SQZ      *         CONDITIONAL JUMPS                                                      SQZ         2169     A     
 SQZ                                                                                       SQZ         2170     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3349    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                PROCESS JPX                                                            SQZ         2171     A     
 SQZ                SA1    "RN"+B6                                                         SQZ         2172     A     
 SQZ                BX6    X0*X5                                                           SQZ         2173     A     
 SQZ                SA2    MRC                                                             SQZ         2174     A     
 SQZ                BX5    -X0*X1      RI = RND(RI)                                        SQZ         2175     A     
 SQZ                LX1    59-RN.XMTCP                                                     SQZ         2176     A     
 SQZ                PL     X1,JPX1     IF ^XMTC[RNI]                                       SQZ         2177     A     
 SQZ                                                                                       SQZ         2178     A     
 SQZ      *         CHANGE *JPX* TO OMIT *XMTC* IF *PL/MI* JUMPS                           SQZ         2179     A     
 SQZ                                                                                       SQZ         2180     A     
 SQZ                SA3    A5+B1       R2 = R1 + 1                                         SQZ         2181     A     
 SQZ                LX3    -IH.CAP     JT = CA[R2]   */ JUMP TYPE                          SQZ         2182     A     
 SQZ                SB5    X3                                                              SQZ         2183     A     
 SQZ                LT     B5,B2,JPX1  IF JT < 2     */ ZR, NZ                             SQZ         2184     A     
 SQZ                SB5    B5-B2                                                           SQZ         2185     A     
 SQZ                GE     B5,B2,JPX1  IF JT > 3     */ RANGE CHECK JUMPS                  SQZ         2186     A     
 SQZ                SX7    B1                                                              SQZ         2187     A     
 SQZ                BX7    X3-X7                                                           SQZ         2188     A     
 SQZ                LX7    IH.CAP      JT = XOR(JT,1)   */ TOGGLE *JT*                     SQZ         2189     A     
 SQZ                SA7    A3                                                              SQZ         2190     A     
 SQZ                LX1    1+RN.XMTCP-RN.TPP                                               SQZ         2191     A     
 SQZ                SA3    X1          R1P = TP[RNI]                                       SQZ         2192     A     
 SQZ                LX3    -R1.RJP                                                         SQZ         2193     A     
 SQZ                BX5    -X0*X3      RI = RJ[R1P]  */ SUBSTITUTE OPERAND OF XMTC         SQZ         2194     A     
 SQZ                                                                                       SQZ         2195     A     
 SQZ       JPX1     IX6    X6+X5                                                           SQZ         2196     A     
 SQZ                LX5    R1.RJP                                                          SQZ         2197     A     
 SQZ                SA6    A5                                                              SQZ         2198     A     
 SQZ                SX7    A5          JPXA = R1                                           SQZ         2199     A     
 SQZ                SA7    JPXA                                                            SQZ         2200     A     
 SQZ                MX4    1                                                               SQZ         2201     A     
 SQZ                ZR     X2,AUC.RJ   IF MRC = 0                                          SQZ         2202     A     
 SQZ                BX6    X4+X2                                                           SQZ         2203     A     
 SQZ                SA6    A4+B1       [DI+1] = 1S59 ! MRC                                 SQZ         2204     A     
 SQZ                SX7    A4+B1                                                           SQZ         2205     A     
 SQZ                SA7    A2          MRC = DI + 1                                        SQZ         2206     A     
 SQZ                EQ     AUC.RJ                                                          SQZ         2207     A     
 SQZ       DEF      SPACE  3                                                               SQZ         2208     A     
 SQZ                PROCESS DEF                                                            SQZ         2209     A     
 SQZ                SX3    B1                                                              SQZ         2210     A     
 SQZ                LX3    D.PSP                                                           SQZ         2211     A     
 SQZ                BX6    -X3*X4      PS[DI] = 0    */ PS BIT SET IN SBB8 LOOP            SQZ         2212     A     
 SQZ                SA6    A4                                                              SQZ         2213     A     
 SQZ                EQ     MSL1                                                            SQZ         2214     A     
 SQZ       RJXJ     SPACE  2,14                                                            SQZ         2215     A     
 SQZ       .PLI     IFNE   .PLI,0                                          ?PL/I           SQZ         2216     A     
 SQZ                                                                                       SQZ         2217     A     
 SQZ                PROCESS RJXJ                                                           SQZ         2218     A     
 SQZ                SA3    A5+B1       R2 = R1 + 1                                         SQZ         2219     A     
 SQZ                SA1    "RN"+X5     RIW = RND(RI[R1])                                   SQZ         2220     A     
 SQZ                BX5    X0*X5                                                           SQZ         2221     A     
 SQZ                LX3    -IH.RFP                                                         SQZ         2222     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3350    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                SA2    "RN"+X3     RFW = RND(RF[R2])                                   SQZ         2223     A     
 SQZ                BX3    X0*X3                                                           SQZ         2224     A     
 SQZ                SX6    X1                                                              SQZ         2225     A     
 SQZ                SX7    X2                                                              SQZ         2226     A     
 SQZ                IX6    X5+X6       RI[R1] = RN[RIW]                                    SQZ         2227     A     
 SQZ                SA6    A5                                                              SQZ         2228     A     
 SQZ                BX7    X3+X7       RF[R2] = RN[RFW]                                    SQZ         2229     A     
 SQZ                LX7    IH.RFP                                                          SQZ         2230     A     
 SQZ                SA7    A3                                                              SQZ         2231     A     
 SQZ                                                                                       SQZ         2232     A     
 SQZ                SX3    B1                                                              SQZ         2233     A     
 SQZ                LX3    RN.USESP                                                        SQZ         2234     A     
 SQZ                IX6    X1+X3       USES[RIW] = USES[RIW] + 1                           SQZ         2235     A     
 SQZ                SA6    A1                                                              SQZ         2236     A     
 SQZ                SA2    A2                                                              SQZ         2237     A     
 SQZ                IX7    X2+X3       USES[RFW] = USES[RFW] + 1                           SQZ         2238     A     
 SQZ                SA7    A2                                                              SQZ         2239     A     
 SQZ                EQ     MSL1                                                            SQZ         2240     A     
 SQZ                                                                                       SQZ         2241     A     
 SQZ       .PLI     ENDIF                                                  'PL/I           SQZ         2242     A     
 SQZ       SMR      TITLE  SMR - SQUEEZE MEMORY REFERENCES                                 SQZ         2243     A     
 SQZ      **        MEMORY REFERENCE PROCESSING                                            SQZ         2244     A     
 SQZ                                                                                       SQZ         2245     A     
 SQZ                PROCESS (TLD,TST,ILD)                                                  SQZ         2246     A     
 SQZ                SA3    A5+B1       R2 = R1 + 1                                         SQZ         2247     A     
 SQZ                SB5    "TXT"+3     DEFA = TXT + 3  */  MIN SEARCH ADDRESS              SQZ         2248     A     
 SQZ                BX6    X3          R2W = [R2]                                          SQZ         2249     A     
 SQZ                EQ     SMR                                                             SQZ         2250     A     
 SQZ       DRL      SPACE  2                                                               FCC2072        7     A     
 SQZ       .LCM     IFNE   .DAL,0                                                          FCC2072        8     A     
 SQZ                PROCESS (DRL,DWL)                                                      FCC2072        9     A     
 SQZ                LX1    -RN.TPP                                                         FCC2072       10     A     
 SQZ                SA2    X1          R1J = TP[RJW]                                       FCC2072       11     A     
 SQZ                SB5    X1+3        DEFA = TP[RJW] + 3                                  FCC2072       12     A     
 SQZ                SA3    A5+B1       R2 = R1 + 1                                         FCC2072       13     A     
 SQZ                UX6    B4,X2                                                           FCC2072       14     A     
 SQZ                SX6    B4-OC.STT                                                       FCC2072       15     A     
 SQZ                NZ     X6,SLD1     IF OC[R1J] " OC.STT                                 FCC2072       16     A     
 SQZ                SA3    A2+B1       R2 = R14 + 1  */ SUBSTITUTE R2 OF STT               FCC2072       17     A     
 SQZ                EQ     SLD1                                                            FCC2072       18     A     
 SQZ       .LCM     ENDIF                                                                  FCC2072       19     A     
 SQZ       PLD      SPACE  2                                                               SQZ         2251     A     
 SQZ                PROCESS (PLD,PST)                                                      SQZ         2252     A     
 SQZ                LX1    -RN.TPP                                                         SQZ         2253     A     
 SQZ                SA3    X1+B2       DJ = RP[RJW] + 2                                    SQZ         2254     A     
 SQZ                SX6    1                                                               SQZ         2255     A     
 SQZ                LX6    D.RFP                                                           SQZ         2256     A     
 SQZ                BX7    X6+X3       RF[DJ] = 1                                          SQZ         2257     A     
 SQZ                LX1    RN.TPP                                                          SQZ         2258     A     
 SQZ                SA7    A3                                                              SQZ         2259     A     
 SQZ       SLD      SPACE  2                                                               SQZ         2260     A     
 SQZ                PROCESS (SLD,SST,SDL,SDS,DRL,DWL)                                      SQZ         2261          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3351    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
          -FCC2072
 SQZ                PROCESS (SLD,SST,SDL,SDS)                                              FCC2072       20     A     
 SQZ                SA3    A5+B1       R2 = R1 + 1                                         SQZ         2262     A     
 SQZ                LX1    -RN.TPP                                                         SQZ         2263     A     
 SQZ                SB5    X1+3        DEFA = TP[RJW] + 3                                  SQZ         2264     A     
 SQZ                LX3    -IH.RFP                                                         SQZ         2265          I
          -FCC2072
 SQZ       SLD1     LX3    -IH.RFP                                                         FCC2072       21     A     
 SQZ                SA2    "RN"+X3     RFW = RND(RF[R2])                                   SQZ         2266          I
          -FCC0643
 SQZ                BX7    -X0*X3                                                          FCC0643       79     A     
 SQZ                SA2    "RN"+X7     RFW = RND(RF[R2])                                   FCC0643       80     A     
 SQZ                BX6    X0*X3                                                           SQZ         2267     A     
 SQZ                S"OC"  B0          OC = 0        */ INDICATE SHORT MEM REF             SQZ         2268     A     
 SQZ                SX7    X2                                                              SQZ         2269     A     
 SQZ                BX6    X6+X7       RF[R2] = RN[RFW]                                    SQZ         2270     A     
 SQZ                LX6    IH.RFP      R2W = [R2]                                          SQZ         2271     A     
 SQZ                SA6    A5+B1                                                           SQZ         2272     A     
 SQZ                EQ     SMR                                                             SQZ         2273     A     
 SQZ       LD       SPACE  2                                                               SQZ         2274     A     
 SQZ                PROCESS (LD,ST)                                                        SQZ         2275     A     
 SQZ                SA2    A5+B1       R2 = R1 + 1                                         SQZ         2276     A     
 SQZ                LX2    -IH.RFP                                                         SQZ         2277          I
          -FCC0792
 SQZ                SA1    "RN"+X2     RFW = RND(RF[R2])                                   SQZ         2278          I
          -FCC0792
 SQZ                MX7    -RN.CIAL                                                        SQZ         2279          I
          -FCC0792
 SQZ                BX6    X0*X2       R2W = [R2]                                          SQZ         2280          I
          -FCC0792
 SQZ                LX7    RN.CIAP                                                         SQZ         2281          I
          -FCC0792
 SQZ                BX3    -X7*X1                                                          SQZ         2282          I
          -FCC0792
 SQZ                SX7    X1          RF[R2W] = RN[RFW]                                   SQZ         2283          I
          -FCC0792
 SQZ                ZR     X3,LD1      IF ^(C,SA,IAC)[RFW]                                 SQZ         2284          I
          -FCC0792
 SQZ                SA3    ARFA                                                            FCC0792       11     A     
 SQZ                LX2    -IH.RFP                                                         FCC0792       12     A     
 SQZ                SA1    "RN"+X2     RFW = RND(RF[R2])                                   FCC0792       13     A     
 SQZ                BX6    X0*X2       R2W = [R2]                                          FCC0792       14     A     
 SQZ                SX7    X1          RF[R2W] = RN[RFW]                                   FCC0792       15     A     
 SQZ                BX3    X3*X1                                                           FCC0792       16     A     
 SQZ                ZR     X3,LD1      IF ^(C,SA,IAC,XMT)[RFW]                             FCC0792       17     A     
 SQZ                RJ     ARF         ADJUST RF,CA                                        SQZ         2285     A     
 SQZ                                                                                       SQZ         2286     A     
 SQZ       LD1      BX6    X6+X7                                                           SQZ         2287     A     
 SQZ                LX6    IH.RFP                                                          SQZ         2288     A     
 SQZ                SA6    A5+1        [R2] = R2W                                          SQZ         2289          I
          -FCC1029
 SQZ                SA6    A5+B1       [R2] = R2W                                          FCC1029        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3352    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                LX1    -RN.TPP                                                         SQZ         2290     A     
 SQZ                SB5    X1+3        DEFA = TP[RFW] + 3  */ MIN SRCH ADDRESS             SQZ         2291     A     
 SQZ      *         EQ     SMR                                                             SQZ         2292          I
          -FCC1029
 SQZ                ERRNZ  59-IH.LDP                                                       FCC1029        6     A     
 SQZ                PL     X6,SMR      IF ^LD[R2W]   */ ^PREFETCH ! APL *LD*               FCC1029        7     A     
 SQZ                                                                                       FCC1029        8     A     
 SQZ                LX4    59-D.STP                                                        FCC1029        9     A     
 SQZ                EQ     SMR2                                                            FCC1029       10     A     
 SQZ       SMR      EJECT                                                                  SQZ         2293     A     
 SQZ      **        SMR - SQUEEZE MEMORY REFERENCES                                        SQZ         2294     A     
 SQZ      *                                                                                SQZ         2295     A     
 SQZ      *         ENTRY  (X6) = R2W , R2 WORD OF INSTRUCTION WITH *RF* ADJUSTED          SQZ         2296     A     
 SQZ      *                (B5) = DEFA, MIN SEARCH ADDRESS                                 SQZ         2297     A     
 SQZ      *                (B3) = 0 IF A TYPE I MEM REF, ELSE *OC*                         SQZ         2298     A     
 SQZ      *                (A4,X4,A5,X5) AS FROM MAIN LOOP                                 SQZ         2299     A     
 SQZ                                                                                       SQZ         2300     A     
 SQZ       SMR      SA2    MRC                                                             SQZ         2301     A     
 SQZ                LX4    59-D.STP                                                        SQZ         2302     A     
 SQZ                MX1    -IH.IHL                                                         SQZ         2303     A     
 SQZ                                                                                       SQZ         2304     A     
 SQZ      *         SEARCH *MRC* BACKWARDS FOR REF TO SAME MEMORY LOCATION                 SQZ         2305     A     
 SQZ      *         OR INTERFERING STORE INTO THE SAME *IH* CLASS                          SQZ         2306     A     
 SQZ      *         NOTE THAT ONLY THE *IH* WORDS ARE CHECKED.                             SQZ         2307     A     
 SQZ                                                                                       SQZ         2308     A     
 SQZ       SMR1     SB4    X2          I = MRC                                             SQZ         2309     A     
 SQZ                SA2    X2          MRC = [MRC]                                         SQZ         2310     A     
 SQZ                LE     B4,B5,SMR2  IF I @ DEFA   */ END OF CHAIN                       SQZ         2311     A     
 SQZ                BX7    X2*X4                                                           SQZ         2312     A     
 SQZ                SA3    A2-B2       R2M = MRC - 2                                       SQZ         2313     A     
 SQZ                MI     X7,SMR2     IF JP[MRC] & ST[DI]                                 SQZ         2314     A     
 SQZ                BX7    X3-X6                                                           SQZ         2315     A     
 SQZ                ZR     X7,SMR7     IF [R2M] = R2W  */ REFS TO SAME MEMORY LOC          SQZ         2316     A     
 SQZ                                                                                       SQZ         2317     A     
 SQZ      *         CHECK FOR DATA INTERFERENCE                                            SQZ         2318     A     
 SQZ                                                                                       SQZ         2319     A     
 SQZ                LX7    -IH.IHP                                                         SQZ         2320     A     
 SQZ                BX3    -X1*X7                                                          SQZ         2321     A     
 SQZ                NZ     X3,SMR1     IF IH[R2M] " IH[R2W]                                SQZ         2322     A     
 SQZ                LX7    IH.IHP-IH.RFP                                                   SQZ         2323     A     
 SQZ                BX7    -X0*X7                                                          SQZ         2324     A     
 SQZ                SA3    A3+B1                                                           SQZ         2325     A     
 SQZ                ZR     X7,SMR1     IF RF[R2M] = RF[R2W]                                SQZ         2326     A     
 SQZ                LX3    59-D.STP                                                        SQZ         2327     A     
 SQZ                BX7    X3+X4                                                           SQZ         2328     A     
 SQZ                PL     X7,SMR1     IF ^( ST[DI] ! ST[DM] )                             SQZ         2329     A     
 SQZ       SMR      SPACE  2                                                               SQZ         2330     A     
 SQZ      *         LD/ST NOT REDUNDANT, ADD TO *MRC*, AND BUMP USES OF OPERANDS           SQZ         2331     A     
 SQZ                                                                                       SQZ         2332     A     
 SQZ       SMR2     SA2    MRC                                                             SQZ         2333     A     
 SQZ                SA3    A4+B1                                                           SQZ         2334     A     
 SQZ                LX6    -IH.RFP                                                         SQZ         2335     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3353    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                BX7    X2+X3       LINK[DI+1] = MRC                                    SQZ         2336     A     
 SQZ                SA7    A3                                                              SQZ         2337     A     
 SQZ                SB5    X6          R = RF[R2W]                                         SQZ         2338     A     
 SQZ                SX7    A4+B1                                                           SQZ         2339     A     
 SQZ                SX6    1                                                               SQZ         2340     A     
 SQZ                SA7    A2          MRC = DI + 1  */ CHAIN POINTS TO LAST               SQZ         2341     A     
 SQZ                LX6    RN.USESP                                                        SQZ         2342     A     
 SQZ                ZR     B3,SMR5     IF OC = 0     */ TYPE I MEM REF                     SQZ         2343     A     
 SQZ       SMR      SPACE  2,12                                                            SQZ         2344     A     
 SQZ      *         ADVANCE USES FOR TYPE III MEM REF                                      SQZ         2345     A     
 SQZ                                                                                       SQZ         2346     A     
 SQZ                SA1    "RN"+B5     RFW = RND(R)                                        SQZ         2347     A     
 SQZ                IX7    X6+X1       USES[RFW] = USES[RFW] + 1                           SQZ         2348     A     
 SQZ                LX1    -RN.TPP                                                         SQZ         2349     A     
 SQZ                SA7    A1                                                              SQZ         2350     A     
 SQZ                LE     B5,B1,SMR3        IF R @ 1                                      SQZ         2351     A     
 SQZ                                                                                       SQZ         2352     A     
 SQZ                SA2    X1+B2       DIP = TP[RFW] + 2                                   SQZ         2353     A     
 SQZ                SX3    B1                                                              SQZ         2354     A     
 SQZ                LX3    D.RFP                                                           SQZ         2355     A     
 SQZ                BX7    X3+X2       RF[DIP] = 1                                         SQZ         2356     A     
 SQZ                SA7    A2                                                              SQZ         2357     A     
 SQZ                                                                                       SQZ         2358     A     
 SQZ       SMR3     MI     X4,SMR4     IF ST[DI]                                           SQZ         2359     A     
 SQZ                                                                                       SQZ         2360     A     
 SQZ                GT     B5,B1,MSL1  IF R > 1                                            SQZ         2361     A     
 SQZ                LX4    1+D.STP                                                         SQZ         2362     A     
 SQZ                LX6    D.ZPP-RN.USESP                                                  SQZ         2363     A     
 SQZ                BX7    X6+X4       ZP[DI] = 1                                          SQZ         2364     A     
 SQZ                SA7    A4                                                              SQZ         2365     A     
 SQZ                EQ     MSL1                                                            SQZ         2366     A     
 SQZ                                                                                       SQZ         2367     A     
 SQZ      *         ADVANCE USES FOR *RI* IN STORE INSTRUCTION                             SQZ         2368     A     
 SQZ                                                                                       SQZ         2369     A     
 SQZ       SMR4     SA1    "RN"+B6                                                         SQZ         2370     A     
 SQZ                BX3    X0*X5                                                           SQZ         2371     A     
 SQZ                SA1    "RN"+X1     RIW = RND(RI)                                       SQZ         2372     A     
 SQZ                SX2    X1                                                              SQZ         2373     A     
 SQZ                IX7    X6+X1       USES[RIW] = USES[RIW] + 1                           SQZ         2374     A     
 SQZ                SA7    A1                                                              SQZ         2375     A     
 SQZ                BX6    X3+X2       RI[R1] = RN[RIW]                                    SQZ         2376     A     
 SQZ                SA6    A5                                                              SQZ         2377     A     
 SQZ                LX4    D.STP-D.L2P                                                     SQZ         2378          I
          -FCC0957
 SQZ                MI     X4,MSL1     IF L2[DI]                                           SQZ         2379          I
          -FCC0957
 SQZ                SX7    A4+B1                                                           SQZ         2380          I
          -FCC0957
 SQZ                SA7    LSTA        LSTA = DI + 1                                       SQZ         2381          I
          -FCC0957
 SQZ                EQ     MSL1                                                            SQZ         2382     A     
 SQZ                                                                                       SQZ         2383     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3354    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ      *         ADVANCE USES FOR TYPE I MEM REF                                        SQZ         2384     A     
 SQZ                                                                                       SQZ         2385     A     
 SQZ       SMR5     LX5    -R1.RJP                                                         SQZ         2386     A     
 SQZ                BX7    -X0*X5                                                          SQZ         2387     A     
 SQZ                SA1    "RN"+X7     RNJ = RND[RJ[R1])                                   SQZ         2388     A     
 SQZ                LX5    R1.RJP-R1.RKP                                                   SQZ         2389     A     
 SQZ                IX7    X6+X1       USES[RNJ] = USES[RNJ] + 1                           SQZ         2390     A     
 SQZ                SA7    A1                                                              SQZ         2391     A     
 SQZ                BX3    -X0*X5                                                          SQZ         2392     A     
 SQZ                SA1    "RN"+X3     RNK = RND(RK[R1])                                   SQZ         2393     A     
 SQZ                IX7    X6+X1       USES[RNK] = USES[RNK] + 1                           SQZ         2394     A     
 SQZ                SA7    A1                                                              SQZ         2395     A     
 SQZ                PL     X4,MSL1     IF ^ST[DI]                                          SQZ         2396     A     
 SQZ                                                                                       SQZ         2397     A     
 SQZ                LX5    R1.RKP                                                          SQZ         2398     A     
 SQZ                EQ     SMR4                                                            SQZ         2399     A     
 SQZ       SMR      SPACE  2,10                                                            SQZ         2400     A     
 SQZ      *         2 MEMORY REFERENCES TO THE SAME LOCATION                               SQZ         2401     A     
 SQZ                                                                                       SQZ         2402     A     
 SQZ       SMR7     SA1    A3-B1       R1M = R2M - 1                                       SQZ         2403     A     
 SQZ                SA3    A3+B1       DM = R2M + 1                                        SQZ         2404     A     
 SQZ                SB4    OC.ILD                                                          SQZ         2405     A     
 SQZ                LX3    59-D.STP                                                        SQZ         2406     A     
 SQZ                MI     X4,SMR11    IF ST[DI]                                           SQZ         2407     A     
 SQZ                MI     X3,SMR9     IF ST[DM]                                           SQZ         2408     A     
 SQZ                                                                                       SQZ         2409     A     
 SQZ      *         LD / LD - ELIMINATE THE SECOND                                         SQZ         2410     A     
 SQZ                                                                                       SQZ         2411     A     
 SQZ                NE     "OC",B4,SMR8      IF OC[R1] " OC.ILD                            SQZ         2412     A     
 SQZ                SA2    JPXA                                                            SQZ         2413     A     
 SQZ                SX6    A3                                                              SQZ         2414     A     
 SQZ                IX7    X6-X2                                                           SQZ         2415     A     
 SQZ                MI     X7,SMR8     IF DM < JPXA  */ FIRST IS BEFORE LAST *JPX*         SQZ         2416     A     
 SQZ                UX7    "OC",X1                                                         SQZ         2417     A     
 SQZ                SX6    "OC"-OC.LD                                                      SQZ         2418     A     
 SQZ                NZ     X6,SMR8     IF OC[R1M] " OC.LD                                  SQZ         2419     A     
 SQZ                                                                                       SQZ         2420     A     
 SQZ                PX7    B4,X1       OC[R1M] = OC.ILD                                    SQZ         2421     A     
 SQZ                SA7    A1                                                              SQZ         2422     A     
 SQZ                                                                                       SQZ         2423     A     
 SQZ       SMR8     BX7    X3*X4                                                           SQZ         2424     A     
 SQZ                LX7    D.STP-D.PRSP                                                    SQZ         2425     A     
 SQZ                MI     X7,SMR10    IF PRS[DM] & PRS[DI]                                SQZ         2426     A     
 SQZ                                                                                       SQZ         2427     A     
 SQZ      *         KILL THE SECOND AND OR IN THE PRECEDENCE BITS                          SQZ         2428     A     
 SQZ                                                                                       SQZ         2429     A     
 SQZ                BX7    X3+X4                                                           SQZ         2430     A     
 SQZ       #DAL     IFNE   .DAL,0                                                          SQZ         2431     A     
 SQZ                MX3    -D.STRSL                                                        SQZ         2432     A     
 SQZ                LX3    D.STRSP+59-D.STP                                                SQZ         2433     A     
 SQZ                BX6    -X3*X7                                                          SQZ         2434     A     
 SQZ                NZ     X6,SMR10    IF STRS[DI] ! STRS[DM]                              SQZ         2435     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3355    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ       #DAL     ENDIF                                                                  SQZ         2436     A     
 SQZ                MX6    0                                                               SQZ         2437     A     
 SQZ                LX7    1+D.STP                                                         SQZ         2438     A     
 SQZ                SA7    A3          DM = DM ! DI                                        SQZ         2439     A     
 SQZ                SA6    A4          [DI] = 0                                            SQZ         2440     A     
 SQZ                SA1    "RN"+X1                                                         SQZ         2441     A     
 SQZ                BX7    X1                                                              SQZ         2442     A     
 SQZ                SA7    "RN"+B6     RND(RI) = RND(RI[R1M])                              SQZ         2443     A     
 SQZ                EQ     MSL1                                                            SQZ         2444     A     
 SQZ       SMR      SPACE  2,12                                                            SQZ         2445     A     
 SQZ      *         ST / LD - CHANGE TO AN *XMT*                                           SQZ         2446     A     
 SQZ                                                                                       SQZ         2447     A     
 SQZ       SMR9     SA6    STLDS       STLDS = R2W   */ SET FLAG FOR *AUV*                 SQZ         2448     A     
 SQZ                NE     B3,B4,SMR10 IF OC[R1] " OC.ILD                                  SQZ         2449     A     
 SQZ                SA2    JPXA                                                            SQZ         2450     A     
 SQZ                SX6    A3                                                              SQZ         2451     A     
 SQZ                IX7    X6-X2                                                           SQZ         2452     A     
 SQZ                MI     X7,SMR10    IF DM < JPXA  */ *ST* BEFORE LAST *JPX*             SQZ         2453     A     
 SQZ                                                                                       SQZ         2454     A     
 SQZ                RJ     EFS         ELIMINATE FIRST STORE                               SQZ         2455     A     
 SQZ                                                                                       SQZ         2456     A     
 SQZ       SMR10    BX2    -X0*X1      RJ = RI[R1M]                                        SQZ         2457     A     
 SQZ                LX4    1+D.STP                                                         SQZ         2458     A     
 SQZ                SA1    "RN"+X2     (X1) = RND(RJ) FOR CTI                              SQZ         2459     A     
 SQZ                MX7    0                                                               SQZ         2460     A     
 SQZ                SA7    A5+B1       [R2] = 0                                            SQZ         2461     A     
 SQZ                EQ     SRCH6       CHANGE THE *LD* TO AN *XMT*                         SQZ         2462          I
          -FCC0509
 SQZ                                                                                       FCC0509       47     A     
 SQZ      *         SET BIT IN *SUVA* FOR REMOVED *LD* IF CALLED FROM GPO/AUV.             FCC0509       48     A     
 SQZ                                                                                       FCC0509       49     A     
 SQZ                SA2    SUVA                                                            FCC0509       50     A     
 SQZ                ZR     X2,SMR10A   IF SUVA = 0   */ NOT CALL FROM *AUV*                FCC0509       51     A     
 SQZ                LX5    -R1.INP                                                         FCC0509       52     A     
 SQZ                SB5    X5+B1       I = IN[R1]                                          FCC0509       53     A     
 SQZ                EQ     B5,B1,SMR10A      IF I = 0  */ NO *UDT* INDEX                   FCC0509       54     A     
 SQZ                SA3    =XO.UDT                                                         FCC0509       55     A     
 SQZ                SB4    X2                                                              FCC0509       56     A     
 SQZ                SA3    X3+B5       U2 = UDT(I+1)                                       FCC0509       57     A     
 SQZ                UX7    B3,X3       (B,WI) = BIT,WI)[U2]                                FCC0509       58     A     
 SQZ                SA2    B4+X3                                                           FCC0509       59     A     
 SQZ                SX6    B1                                                              FCC0509       60     A     
 SQZ                LX6    B3,X6                                                           FCC0509       61     A     
 SQZ                BX7    X6+X2       B[SUVA(WI)] = 1                                     FCC0509       62     A     
 SQZ                SA7    A2                                                              FCC0509       63     A     
 SQZ                                                                                       FCC0509       64     A     
 SQZ       SMR10A   SX2    X1          RJ = RN[RND(RJ)]                                    FCC0509       65     A     
 SQZ                EQ     SRCH6             */ CHANGE *LD* TO AN *XMT*                    FCC0509       66     A     
 SQZ       SMR      SPACE  3,14                                                            SQZ         2463     A     
 SQZ       SMR11    MI     X3,SMR12    IF ST[DM]                                           SQZ         2464     A     
 SQZ                                                                                       SQZ         2465     A     
 SQZ      *         LD / ST - CHECK FOR A = A                                              SQZ         2466     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3356    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                                                                                       SQZ         2467     A     
 SQZ                SA2    "RN"+B6                                                         SQZ         2468     A     
 SQZ                SA2    "RN"+X2     RI = RND(RI)                                        SQZ         2469     A     
 SQZ                LX2    59-RN.XMTP                                                      SQZ         2470     A     
 SQZ                PL     X2,SMR2     IF ^XMT[RI]                                         SQZ         2471     A     
 SQZ                LX2    1+RN.XMTP-RN.TPP                                                SQZ         2472     A     
 SQZ                SA2    X2          R1X = TP[RND(RI)]                                   SQZ         2473     A     
 SQZ                LX2    -R1.RJP                                                         SQZ         2474     A     
 SQZ                BX3    X1-X2                                                           SQZ         2475     A     
 SQZ                BX7    -X0*X3                                                          SQZ         2476     A     
 SQZ                NZ     X7,SMR2     IF RJ[R1X] " RI[RIM]                                SQZ         2477     A     
 SQZ                SA7    A4          [DI] = 0   ( KILL SECOND STORE )                    SQZ         2478     A     
 SQZ                EQ     MSL1                                                            SQZ         2479     A     
 SQZ                                                                                       SQZ         2480     A     
 SQZ      *         ST / ST - ELIMINATE THE FIRST STORE                                    SQZ         2481     A     
 SQZ                                                                                       SQZ         2482     A     
 SQZ       SMR12    RJ     EFS         ELEMINATE FIRST STORE                               SQZ         2483     A     
 SQZ                EQ     SMR2                                                            SQZ         2484     A     
 SQZ       EFS      TITLE  EFS - ELIMINATE FIRST STORE, ADJUST *PS* BIT                    SQZ         2485          I
          -FCC0957
 SQZ       EFS      SPACE  3                                                               FCC0957        5     A     
 SQZ      **        EFS - ELIMINATE FIRST STORE, ADJUST *PS* BIT FOR *RI* IN ST            SQZ         2486     A     
 SQZ      *                                                                                SQZ         2487     A     
 SQZ      *         ENTRY  (X1) = RIM , R1 OF FIRST STORE                                  SQZ         2488     A     
 SQZ      *                (A3) = DM , DESCRIPTOR ADDR                                     SQZ         2489     A     
 SQZ      *                                                                                SQZ         2490     A     
 SQZ      *         EXIT   (X1) = R , RI[R1M]                                              SQZ         2491     A     
 SQZ      *                (X6) = 0                                                        SQZ         2492     A     
 SQZ                                                                                       SQZ         2493     A     
 SQZ       EFS      ROUTINE                                                                SQZ         2494     A     
 SQZ                BX1    -X0*X1      R = RI[R1M]                                         SQZ         2495     A     
 SQZ                SA2    "RN"+X1     RNI = RND(R)                                        SQZ         2496     A     
 SQZ                MX6    60          D = [DM]                                            SQZ         2497     A     
 SQZ                SX7    B1                                                              SQZ         2498     A     
 SQZ                SA6    A3          [DM] = -0     */ KILL FIRST *ST*                    SQZ         2499     A     
 SQZ                ZR     X3,EFS      IF D = 0      */   ST,ILD,ILD SITUATION             SQZ         2500     A     
 SQZ                LX7    RN.USESP                                                        SQZ         2501     A     
 SQZ                IX7    X2-X7       USES[RNI] = USES[RNI] - 1                           SQZ         2502     A     
 SQZ                SA7    A2                                                              SQZ         2503     A     
 SQZ                BX3    X4                                                              FCC0957        6     A     
 SQZ                LX3    D.STP-D.L2P                                                     FCC0957        7     A     
 SQZ                MI     X3,EFS      IF L2[DI]     */ PS BIT NOT SET                     FCC0957        8     A     
 SQZ                LX2    -RN.TPP                                                         SQZ         2504     A     
 SQZ                MX3    -RN.USESL                                                       SQZ         2505          I
          -FCC0957
 SQZ                SB4    X2          DEFA = TP[RNI]  */ R1 ADDR OF DEF                   SQZ         2506     A     
 SQZ                LX7    -RN.USESP                                                       SQZ         2507          I
          -FCC0957
 SQZ                BX7    -X3*X7                                                          SQZ         2508          I
          -FCC0957
 SQZ                ZR     X7,EFS3     IF USES[RNI] = 0                                    SQZ         2509          I
          -FCC0957
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3357    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                                                                                       SQZ         2510          I
          -FCC0957
 SQZ      *         SEARCH PRECEEDING STORES TO SEE IF *RI* USED BY ANOTHER *ST*           SQZ         2511          I
          -FCC0957
 SQZ                                                                                       SQZ         2512          I
          -FCC0957
 SQZ                SB5    A4+B1       LINK = DI + 1                                       SQZ         2513          I
          -FCC0957
 SQZ                MI     X4,EFS1     IF ST[DI]     */ NOT *ILD*                          SQZ         2514          I
          -FCC0957
 SQZ                SA2    LSTA                                                            SQZ         2515          I
          -FCC0957
 SQZ                SB5    X2          LINK = LSTA   */ USE ADDR OF LAST ST                SQZ         2516          I
          -FCC0957
 SQZ                ZR     X2,EFS3     IF LINK = 0                                         SQZ         2517          I
          -FCC0957
 SQZ                SA3    STC                                                             FCC0957        9     A     
 SQZ                SB5    X3          LINK = STC                                          FCC0957       10     A     
 SQZ                                                                                       FCC0957       11     A     
 SQZ      *         SEARCH *STC* TO SEE IF *RI* IS USED BY ANOTHER *ST*                    FCC0957       12     A     
 SQZ                                                                                       SQZ         2518     A     
 SQZ       EFS1     SA2    B5-B1       DL = LINK - 1                                       SQZ         2519     A     
 SQZ                SA3    B5          LW = [LINK]                                         SQZ         2520     A     
 SQZ                ZR     X2,EFS2     IF [DL] = 0   */ DEAD INSTRUCTION                   SQZ         2521     A     
 SQZ                SA2    A2-2        R1L = DL - 2                                        SQZ         2522          I
          -FCC0957
 SQZ                SA2    A2-B2       R1L = DL - 2                                        FCC0957       13     A     
 SQZ                BX7    -X0*X2                                                          FCC0957       14     A     
 SQZ                SA2    "RN"+X7     RL = RN[RND(RI[R1L])]                               FCC0957       15     A     
 SQZ                BX7    X2-X1                                                           SQZ         2523     A     
 SQZ                BX2    -X0*X7                                                          SQZ         2524     A     
 SQZ                ZR     X2,EFS      IF RI[R1L] = R  */ USED BY ANOTHER ST               SQZ         2525          I
          -FCC0957
 SQZ                ZR     X2,EFS      IF RL = R     */ USED BY ANOTHER *ST*               FCC0957       16     A     
 SQZ       EFS2     LX3    -I.STCP                                                         SQZ         2526     A     
 SQZ                SB5    X3          LINK = STC[LW]                                      SQZ         2527     A     
 SQZ                NZ     B5,EFS1     IF LINK " 0                                         SQZ         2528          I
          -FCC0957
 SQZ                                                                                       SQZ         2529          I
          -FCC0957
 SQZ      *         NO OTHER PREVIOUS IN A *ST* ON *STC*, CHECK THIS *ST*                  SQZ         2530          I
          -FCC0957
 SQZ                                                                                       SQZ         2531          I
          -FCC0957
 SQZ       EFS3     SA3    "RN"+B6     RNI = RND(RI[R1])                                   SQZ         2532          I
          -FCC0957
 SQZ                BX7    X3-X1                                                           SQZ         2533          I
          -FCC0957
 SQZ                BX2    -X0*X7                                                          SQZ         2534          I
          -FCC0957
 SQZ                SX7    B1                                                              SQZ         2535          I
          -FCC0957
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3358    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                ZR     X2,EFS      IF RN[RNI] = R  */ USED BY THIS INST                SQZ         2536          I
          -FCC0957
 SQZ                GT     B5,B4,EFS1  IF LINK > DEFA                                      FCC0957       17     A     
 SQZ                                                                                       SQZ         2537     A     
 SQZ                SA2    B4+B2       DIP = DEFA + 2  */ DESCR OF DEF                     SQZ         2538     A     
 SQZ                SX7    B1                                                              FCC0957       18     A     
 SQZ                LX7    D.PSP                                                           SQZ         2539     A     
 SQZ                BX7    -X7*X2      PS[DIP] = 0                                         SQZ         2540     A     
 SQZ                SA7    A2                                                              SQZ         2541     A     
 SQZ                EQ     EFS                                                             SQZ         2542     A     
 SQZ       ARF      TITLE  ARF - ADJUST RF,CA OF INDEXED MEM REFERENCE                     SQZ         2543     A     
 SQZ      **        ARF - ADJUST RF,CA OF INDEXED MEMORY REFERENCE TO FOLD IN              SQZ         2544     A     
 SQZ      *                CONSTANT PART OF *RF*                                           SQZ         2545     A     
 SQZ      *                                                                                SQZ         2546     A     
 SQZ      *         ENTRY  (X1) = RND(RF)                                                  SQZ         2547     A     
 SQZ      *                (X3) = (C,SA,IAC)[RFW]                                          SQZ         2548     A     
 SQZ      *                (X6) = SHIFT( R2W , -IH.RFP ) AND RF[R2W] = 0                   SQZ         2549     A     
 SQZ      *                (X7) = RF                                                       SQZ         2550     A     
 SQZ      *                                                                                SQZ         2551     A     
 SQZ      *         EXIT   *RF* ADJUSTED AND X1,X6,X7 AS ON ENTRY                          SQZ         2552     A     
 SQZ                                                                                       FCC0792       18     A     
 SQZ       ARFA     BFMW   RN,(C,SA,IAC,XMT)                                               FCC0792       19     A     
 SQZ                                                                                       SQZ         2553     A     
 SQZ       ARF1     SA3    X1          R1P = TP[RFW]                                       SQZ         2554     A     
 SQZ                RJ     DCV         GET CONSTANT VALUE                                  SQZ         2555     A     
 SQZ                                                                                       SQZ         2556     A     
 SQZ       ARF0     LX6    IH.RFP-IH.CAP                                                   SQZ         2557     A     
 SQZ                SB4    X7                                                              SQZ         2558     A     
 SQZ                SX3    X6+B4       CAV = CA[R2] + SVAL                                 SQZ         2559     A     
 SQZ                MX7    -IH.CAL                                                         SQZ         2560     A     
 SQZ                BX3    -X7*X3                                                          SQZ         2561     A     
 SQZ                BX7    X7*X6                                                           SQZ         2562     A     
 SQZ                BX6    X3+X7       CA[R2] = CAV                                        SQZ         2563     A     
 SQZ                LX6    IH.CAP-IH.RFP                                                   SQZ         2564     A     
 SQZ                SA1    "RN"+X6     RFW = RND(RF[R2W])                                  SQZ         2565     A     
 SQZ                BX6    X0*X6       RF[R2W] = 0                                         SQZ         2566     A     
 SQZ                SX7    X1+         RF = RN[RFW]                                        SQZ         2567     A     
 SQZ                                                                                       SQZ         2568     A     
 SQZ       ARF      ROUTINE                                                                SQZ         2569     A     
 SQZ                LX3    59-RN.CP                                                        SQZ         2570     A     
 SQZ                LX1    -RN.TPP                                                         SQZ         2571     A     
 SQZ                MI     X3,ARF1     IF C[RFW]                                           SQZ         2572     A     
 SQZ                LX3    RN.CP-RN.SAP                                                    SQZ         2573          I
          -FCC0792
 SQZ                PL     X3,ARF3     IF ^SA[RFW]                                         SQZ         2574          I
          -FCC0792
 SQZ                LX3    RN.CP-RN.IACP                                                   FCC0792       20     A     
 SQZ                MI     X3,ARF3     IF IAC[RFW]                                         FCC0792       21     A     
 SQZ                LX3    RN.IACP-RN.XMTP                                                 FCC0792       22     A     
 SQZ                MI     X3,ARF2     IF XMT[RFW]                                         FCC0792       23     A     
 SQZ                                                                                       SQZ         2575     A     
 SQZ      *         RF IS RESULT OF *  SA  RI,RJ*, SUBSTITUTE *RJ*                         SQZ         2576     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3359    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                                                                                       SQZ         2577     A     
 SQZ                SA3    X1          R1P = TP[RFW]                                       SQZ         2578          I
          -FCC0792
 SQZ                SB4    OC.STT                                                          SQZ         2579     A     
 SQZ                NE     "OC",B4,ARF2      IF OC[R1] " OC.STT                            SQZ         2580     A     
 SQZ                BX2    X4                                                              SQZ         2581     A     
 SQZ                LX2    59-D.PRSP                                                       SQZ         2582     A     
 SQZ                MI     X2,ARF      IF PRS[DI]    */ AVOID B-REG DEADLOCKS              SQZ         2583          I
          -FCC0448
 SQZ                PL     X2,ARF2     IF ^PRS[DI]   */ NO DEADLOCK POSSIBLE               FCC0448      143     A     
 SQZ                                                                                       FCC0448      144     A     
 SQZ                LX1    RN.TPP                                                          FCC0448      145     A     
 SQZ                EQ     ARF                                                             FCC0448      146     A     
 SQZ                                                                                       SQZ         2584     A     
 SQZ       ARF2     BX6    X0*X6       RF[R2W] = 0                                         SQZ         2585          I
          -FCC0792
 SQZ       ARF2     SA3    X1          R1P = TP[RFW]                                       FCC0792       24     A     
 SQZ                BX6    X0*X6       RF[R2W] = 0                                         FCC0792       25     A     
 SQZ                LX3    -R1.RJP                                                         SQZ         2586     A     
 SQZ                BX7    -X0*X3      RF = RJ[R1P]                                        SQZ         2587     A     
 SQZ                SA1    "RN"+X7     RFW = RND(RF)                                       SQZ         2588     A     
 SQZ                EQ     ARF                                                             SQZ         2589     A     
 SQZ                                                                                       SQZ         2590     A     
 SQZ      *         *RF* IS *IAC*, ADD THE CONSTANT PART OF THE *RF* TO THE CA             SQZ         2591     A     
 SQZ                                                                                       SQZ         2592     A     
 SQZ       ARF3     SA3    X1          R1P = TP[R1W]                                       SQZ         2593     A     
 SQZ                SA1    X1+B2       DIP = R1P + 2                                       SQZ         2594     A     
 SQZ                LX3    -R1.RJP                                                         SQZ         2595     A     
 SQZ                BX7    -X0*X3                                                          SQZ         2596     A     
 SQZ                LX1    59-D.CMP                                                        SQZ         2597     A     
 SQZ                SA2    "RN"+X7     RNJ = RND(RJ[R1P])                                  SQZ         2598     A     
 SQZ                LX3    R1.RJP-R1.RKP                                                   SQZ         2599     A     
 SQZ                BX7    -X0*X3                                                          SQZ         2600     A     
 SQZ                SA3    "RN"+X7     RNK = RND(RK[R1P])                                  SQZ         2601     A     
 SQZ                LX2    59-RN.CP                                                        SQZ         2602     A     
 SQZ                PL     X2,ARF4     IF ^C[RNJ]                                          SQZ         2603     A     
 SQZ                                                                                       SQZ         2604     A     
 SQZ                PL     X1,ARF7     IF ^CM[DIP]   */ IS                                 SQZ         2605     A     
 SQZ                SX7    X3                                                              SQZ         2606     A     
 SQZ                LX2    1+RN.CP-RN.TPP                                                  SQZ         2607     A     
 SQZ                BX6    X6+X7       RF[R2W] = RN[RNK]                                   SQZ         2608     A     
 SQZ                SX3    X2                                                              SQZ         2609     A     
 SQZ                EQ     ARF5                                                            SQZ         2610     A     
 SQZ                                                                                       SQZ         2611     A     
 SQZ       ARF4     LX2    1+RN.CP                                                         SQZ         2612     A     
 SQZ                SX7    X2                                                              SQZ         2613     A     
 SQZ                BX6    X7+X6       RF[R2W] = RN[RNJ]                                   SQZ         2614     A     
 SQZ                LX3    -RN.TPP                                                         SQZ         2615     A     
 SQZ                                                                                       SQZ         2616     A     
 SQZ       ARF5     SA3    X3          R1P = TP[RNJ]                                       SQZ         2617     A     
 SQZ                AX1    59          SGN = SHIFT( CM[DI] , -59 )                         SQZ         2618     A     
 SQZ                RJ     DCV                                                             SQZ         2619     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3360    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                BX7    -X1-X7      SVAL = XOR( VAL[R1P] , ^SGN )                       SQZ         2620     A     
 SQZ                EQ     ARF0                                                            SQZ         2621     A     
 SQZ                                                                                       SQZ         2622     A     
 SQZ      *         CON - I CASE, LEAVE INSTRUCTION ALONE ( *LD* SQZ IN *PRE* )            SQZ         2623     A     
 SQZ                                                                                       SQZ         2624     A     
 SQZ       ARF7     SA3    A5+B1       R2 = R1 + 1                                         SQZ         2625     A     
 SQZ                LX3    -IH.RFP                                                         SQZ         2626     A     
 SQZ                SA1    "RN"+X3     RFW = RND(RF[R2])                                   SQZ         2627     A     
 SQZ                BX6    X0*X3                                                           SQZ         2628     A     
 SQZ                SX7    X1          RF = RN[RFW]                                        SQZ         2629     A     
 SQZ                EQ     ARF                                                             SQZ         2630     A     
 SQZ       EDD      TITLE  EDD - ELIMINATE DEAD DEFINITIONS                                SQZ         2631     A     
 SQZ      **        EDD - ELIMINATE DEAD DEFINITIONS ( USES = 0 ).                         SQZ         2632     A     
 SQZ      *         SCAN *TXT* BACKWARDS AND TRANSFER USES COUNTS TO DEFINITIONS.          SQZ         2633     A     
 SQZ      *         IF USES = 0 THEN MARK THE INSTRUCTION AS REDUNDANT.                    SQZ         2634     A     
 SQZ                                                                                       SQZ         2635     A     
 SQZ       EDD0     SA3    EDDA                                                            SQZ         2636     A     
 SQZ                BX6    X3                                                              SQZ         2637     A     
 SQZ                SA6    A5          RESTORE BOS                                         SQZ         2638     A     
 SQZ       EDD      ROUTINE                                                                SQZ         2639     A     
 SQZ                SA3    "TXT"                                                           SQZ         2640     A     
 SQZ                MX7    0                                                               SQZ         2641     A     
 SQZ                BX6    X3                                                              SQZ         2642     A     
 SQZ                SA6    EDDA                                                            SQZ         2643     A     
 SQZ                SA4    EOQA                                                            SQZ         2644     A     
 SQZ                SA7    "TXT"       (O.TXT) = 0                                         SQZ         2645     A     
 SQZ                SA5    X4          TA = EOQA                                           SQZ         2646     A     
 SQZ                SB5    59-D.^DP                                                        SQZ         2647     A     
 SQZ                SB6    60-IH.RFP                                                       SQZ         2648     A     
 SQZ                MX1    -D.USESL                                                        SQZ         2649     A     
 SQZ                LX1    RN.USESP                                                        SQZ         2650     A     
 SQZ                SX2    B1                                                              SQZ         2651     A     
 SQZ                LX2    RN.USESP                                                        SQZ         2652     A     
 SQZ                EQ     EDD2                                                            SQZ         2653     A     
 SQZ                                                                                       SQZ         2654     A     
 SQZ      *         TRANSFER USES COUNTS FROM *RND* TO INSTRUCTION DESCRIPTORS.            SQZ         2655     A     
 SQZ                                                                                       SQZ         2656     A     
 SQZ       EDD1     LX6    D.USESP-RN.USESP                                                SQZ         2657     A     
 SQZ                BX7    X4+X6       USES[DI] = USES                                     SQZ         2658     A     
 SQZ                SA7    A4                                                              SQZ         2659     A     
 SQZ                                                                                       SQZ         2660     A     
 SQZ      *         SCAN *TXT* BACKWARDS FOR DEAD INSTRUCTIONS                             SQZ         2661     A     
 SQZ                                                                                       SQZ         2662     A     
 SQZ       EDD2     SA4    A5-B2       DI = R1 - 2                                         SQZ         2663     A     
 SQZ                SA5    A4-B2       R1 = DI - 2                                         SQZ         2664     A     
 SQZ                ZR     X4,EDD2     IF [DI] = 0   */ DEAD INSTRUCTION                   SQZ         2665     A     
 SQZ                LX6    B5,X4                                                           SQZ         2666     A     
 SQZ                BX7    -X0*X5                                                          SQZ         2667     A     
 SQZ                ZR     X5,EDD0     IF [R1] = 0   */ LOOP TERMINATOR                    SQZ         2668     A     
 SQZ                MI     X6,EDD2     IF ^D[DI]     */ RI NOT A DEF                       SQZ         2669     A     
 SQZ                SA3    "RN"+X7                                                         SQZ         2670     A     
 SQZ                BX6    -X1*X3      USES = USES[RI]                                     SQZ         2671     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3361    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                NZ     X6,EDD1     IF USES " 0                                         SQZ         2672     A     
 SQZ                                                                                       SQZ         2673     A     
 SQZ      *         USELESS DEFINITION.  MARK IT REDUNDANT AND DECREMENT USES              SQZ         2674     A     
 SQZ      *         OF ITS OPERANDS.                                                       SQZ         2675     A     
 SQZ                                                                                       SQZ         2676     A     
 SQZ                LX4    59-D.RJRSP                                                      SQZ         2677     A     
 SQZ                MI     X4,EDD2     IF RJRS[DI]   */ PRECEDES LIVE RJ RS                SQZ         2678     A     
 SQZ                LX4    D.RJRSP-D.PRSP                                                  SQZ         2679     A     
 SQZ                SA6    A4                                                              SQZ         2680     A     
 SQZ                PL     X4,EDD2A    IF ^PRS[DI]                                         SQZ         2681     A     
 SQZ                SA6    A4+4        [DI+4] = 0    */ KILL FOLLOWING REG STORE           SQZ         2682     A     
 SQZ       EDD2A    LX4    1+D.PRSP+58-D.TYP [DI] = 0                                      SQZ         2683     A     
 SQZ                IX7    X4+X4                                                           SQZ         2684     A     
 SQZ                MI     X7,EDD4     IF TYPE[DI] = II                                    SQZ         2685     A     
 SQZ                MI     X4,EDD3     IF TYPE[DI] = III                                   SQZ         2686     A     
 SQZ                                                                                       SQZ         2687     A     
 SQZ      *         TYPE I                                                                 SQZ         2688     A     
 SQZ                                                                                       SQZ         2689     A     
 SQZ                LX5    -R1.RJP                                                         SQZ         2690     A     
 SQZ                BX6    -X0*X5                                                          SQZ         2691     A     
 SQZ                SA3    "RN"+X6                                                         SQZ         2692     A     
 SQZ                IX7    X3-X2       USES[RJ] = USES[RJ] - 1                             SQZ         2693     A     
 SQZ                SA7    A3                                                              SQZ         2694     A     
 SQZ                LX5    R1.RJP-R1.RKP                                                   SQZ         2695     A     
 SQZ                BX6    -X0*X5                                                          SQZ         2696     A     
 SQZ                SA3    "RN"+X6                                                         SQZ         2697     A     
 SQZ                IX7    X3-X2       USES[RK] = USES[RK] - 1                             SQZ         2698     A     
 SQZ                SA7    A3                                                              SQZ         2699     A     
 SQZ                EQ     EDD2                                                            SQZ         2700     A     
 SQZ                                                                                       SQZ         2701     A     
 SQZ      *         TYPE III                                                               SQZ         2702     A     
 SQZ                                                                                       SQZ         2703     A     
 SQZ       EDD3     SA3    A5+B1       R2 = R1 + 1                                         SQZ         2704     A     
 SQZ                LX6    B6,X3                                                           SQZ         2705     A     
 SQZ                SA3    "RN"+X6                                                         SQZ         2706     A     
 SQZ                IX7    X3-X2       USES[RF] = USES[RF] - 1                             SQZ         2707     A     
 SQZ                SA7    A3                                                              SQZ         2708     A     
 SQZ                EQ     EDD2                                                            SQZ         2709     A     
 SQZ                                                                                       SQZ         2710     A     
 SQZ      *         TYPE II , CHECK FOR AN RJ *RS*                                         SQZ         2711     A     
 SQZ                                                                                       SQZ         2712     A     
 SQZ       EDD4     LX4    D.TYP+1-D.PIP                                                   SQZ         2713     A     
 SQZ                PL     X4,EDD2     IF ^PI[DI]                                          SQZ         2714     A     
 SQZ                LX5    59-R1.INP                                                       SQZ         2715     A     
 SQZ                PL     X5,EDD2     IF IN[R1] = 0 */ NOT A *RJRS*                       SQZ         2716     A     
 SQZ                                                                                       SQZ         2717     A     
 SQZ                SA3    A5-B2       DJP = R1 - 2                                        SQZ         2718     A     
 SQZ                SA4    A3-B2       R1J = DJP - 2                                       SQZ         2719     A     
 SQZ                SX5    B1                                                              SQZ         2720     A     
 SQZ                LX5    D.RJRSP                                                         SQZ         2721     A     
 SQZ                BX6    -X5*X3      RJRS[DJP] = 0                                       SQZ         2722     A     
 SQZ                LX4    -R1.RJP                                                         SQZ         2723     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3362    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                SA6    A3                                                              SQZ         2724     A     
 SQZ                BX7    X0*X4       RJ[R1J] = 0                                         SQZ         2725     A     
 SQZ                LX7    R1.RJP                                                          SQZ         2726     A     
 SQZ                SA7    A4                                                              SQZ         2727     A     
 SQZ                EQ     EDD2                                                            SQZ         2728     A     
 SQZ                                                                                       SQZ         2729     A     
 SQZ       EDDA     BSS    1                                                               SQZ         2730     A     
 SQZ       EDI      TITLE  EDI - ELIMINATE DEAD INSTRUCTIONS                               SQZ         2731     A     
 SQZ      *         EDI - ELIMINATE DEAD INSTRUCTIONS ( COMPRESS *TXT* )                   SQZ         2732     A     
 SQZ                                                                                       SQZ         2733     A     
 SQZ       EDI0     SX6    B6-B5                                                           SQZ         2734     A     
 SQZ                SA6    L.TXT                                                           SQZ         2735     A     
 SQZ       EDI      ROUTINE                                                                SQZ         2736     A     
 SQZ                SA5    RSS                                                             SQZ         2737     A     
 SQZ                SB4    B2+B2                                                           SQZ         2738     A     
 SQZ                MX1    -D.USESL                                                        SQZ         2739     A     
 SQZ                LX1    D.USESP                                                         SQZ         2740     A     
 SQZ                SB3    -3                                                              SQZ         2741     A     
 SQZ                ZR     X5,EDI4     IF RSS = 0                                          SQZ         2742     A     
 SQZ                                                                                       SQZ         2743     A     
 SQZ      *         MOVE THE SEPARATED REGISTER STORES NEXT TO THEIR DEFINITIONS.          SQZ         2744     A     
 SQZ                                                                                       SQZ         2745     A     
 SQZ       EDI1     SA4    X5+B3       R1 = [RSS-3]                                        SQZ         2746     A     
 SQZ                SA3    A4+B2       DI = R1 + 2;  D = [DI]                              SQZ         2747     A     
 SQZ                MX7    0                                                               SQZ         2748     A     
 SQZ                SA7    A3          [DI] = 0                                            SQZ         2749     A     
 SQZ                BX6    -X1*X3                                                          SQZ         2750     A     
 SQZ                LX6    R1.INP+1-D.USESP                                                SQZ         2751     A     
 SQZ                BX2    -X0*X4                                                          SQZ         2752     A     
 SQZ                IX7    X4+X6       */ SAVE R1 OF RS & USES IN LINK WD OF DEF           SQZ         2753     A     
 SQZ                SA5    X5          RSS = [RSS]                                         SQZ         2754     A     
 SQZ                SA2    "RN"+X2     RIA = O.RND + RI[R1]  */ RND WORD                   SQZ         2755     A     
 SQZ                ZR     X3,EDI1A    IF D = 0      */ DEF IS DEAD                        SQZ         2756     A     
 SQZ                LX2    -RN.TPP                                                         SQZ         2757     A     
 SQZ                SA3    X2          R1P = TP[RIA]                                       SQZ         2758     A     
 SQZ                SA4    A4+B1       R2 = R1 + 1                                         SQZ         2759     A     
 SQZ                BX6    -X3         [R1P] = -[R1P]  */ SEP RS FLAG                      SQZ         2760     A     
 SQZ                SA6    A3                                                              SQZ         2761     A     
 SQZ                SA7    A6-B3       [R1P+3] = [R1] + USES[D]                            SQZ         2762     A     
 SQZ                BX6    X4                                                              SQZ         2763     A     
 SQZ                SA6    A2          [RIA] = [R2]  */ SAVE R2 OF RS IN *RND*             SQZ         2764     A     
 SQZ       EDI1A    NZ     X5,EDI1     IF RSS " 0                                          SQZ         2765     A     
 SQZ                                                                                       SQZ         2766     A     
 SQZ      *         NOW MOVE THE SEQUENCE UP                                               SQZ         2767     A     
 SQZ                                                                                       SQZ         2768     A     
 SQZ                MX6    0                                                               SQZ         2769     A     
 SQZ                SA6    "TXT"       [O.TXT] = 0                                         SQZ         2770     A     
 SQZ                MX1    -D.USESL                                                        SQZ         2771     A     
 SQZ                LX1    R1.INP+1                                                        SQZ         2772     A     
 SQZ                SA2    F.RDT+OC.RS                                                     SQZ         2773     A     
 SQZ                SA3    EOQA                                                            SQZ         2774     A     
 SQZ                SB5    X3-2        TA = EOQA - 2                                       SQZ         2775     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3363    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                SA5    X3                                                              SQZ         2776     A     
 SQZ                SB6    X3+B4       LWA + 1                                             SQZ         2777     A     
 SQZ                EQ     EDI3                                                            SQZ         2778     A     
 SQZ                                                                                       SQZ         2779     A     
 SQZ       EDI2     SA3    A4+B1       R1RS = DI + 1                                       SQZ         2780     A     
 SQZ                BX6    X1*X3                                                           SQZ         2781     A     
 SQZ                BX3    -X1*X3                                                          SQZ         2782     A     
 SQZ                SA6    B5-B2       [TA-2] = [R1RS]                                     SQZ         2783     A     
 SQZ                LX3    D.USESP-R1.INP-1                                                SQZ         2784     A     
 SQZ                BX7    X2+X3       D = RDT(OC.RS) ! USES[R1RS]                         SQZ         2785     A     
 SQZ                ZR     X3,EDI2A    IF USES[R1RS] = 0                                   SQZ         2786     A     
 SQZ                SX3    B1                                                              SQZ         2787     A     
 SQZ                LX3    D.^DP                                                           SQZ         2788     A     
 SQZ                BX7    -X3*X7      ^D[D] = 0                                           SQZ         2789     A     
 SQZ       EDI2A    BX6    -X0*X6                                                          SQZ         2790     A     
 SQZ                SA3    "RN"+X6     R2W = RND(RI[R1RS])                                 SQZ         2791     A     
 SQZ                BX5    -X5         [R1] = -[R1]                                        SQZ         2792     A     
 SQZ                BX6    X3                                                              SQZ         2793     A     
 SQZ                SA7    B5          [TA] = D                                            SQZ         2794     A     
 SQZ                SA6    B5-B1       [TA-1] = R2W                                        SQZ         2795     A     
 SQZ                MX7    0                                                               SQZ         2796     A     
 SQZ                SA7    A7+B1       [TA+1] = 0                                          SQZ         2797     A     
 SQZ                SB5    B5-B4       TA = TA - 4                                         SQZ         2798     A     
 SQZ                EQ     EDI3A                                                           SQZ         2799     A     
 SQZ                                                                                       SQZ         2800     A     
 SQZ       EDI3     SA4    A5-B2       DI = R1 - 2                                         SQZ         2801     A     
 SQZ                SA5    A4-B2       R1 = DI - 2                                         SQZ         2802     A     
 SQZ                ZR     X4,EDI3     IF [DI] = 0                                         SQZ         2803     A     
 SQZ       EDI3A    MI     X5,EDI2     IF [R1] < 0                                         SQZ         2804     A     
 SQZ                SA3    A5+B1       R2 = R1 + 1                                         SQZ         2805     A     
 SQZ                MX7    0                                                               SQZ         2806     A     
 SQZ                SA7    B5+B1       [R1+3] = 0                                          SQZ         2807     A     
 SQZ                BX6    X4                                                              SQZ         2808     A     
 SQZ                SA6    B5                                                              SQZ         2809     A     
 SQZ                LX7    X3                                                              SQZ         2810     A     
 SQZ                SA7    B5-B1                                                           SQZ         2811     A     
 SQZ                BX6    X5                                                              SQZ         2812     A     
 SQZ                SB5    B5-B4                                                           SQZ         2813     A     
 SQZ                SA6    A6-B2                                                           SQZ         2814     A     
 SQZ                NZ     X5,EDI3     IF [R1] " 0                                         SQZ         2815     A     
 SQZ                                                                                       SQZ         2816     A     
 SQZ                SA4    EDDA                                                            SQZ         2817     A     
 SQZ                SB5    A6          FWA                                                 SQZ         2818     A     
 SQZ                SX6    A6                                                              SQZ         2819     A     
 SQZ                SA6    O.TXT                                                           SQZ         2820     A     
 SQZ                BX7    X4                                                              SQZ         2821     A     
 SQZ                SA7    B5                                                              SQZ         2822     A     
 SQZ                EQ     EDI0                                                            SQZ         2823     A     
 SQZ       EDI      EJECT                                                                  SQZ         2824     A     
 SQZ      *         DEAD INSTRUCTION ELIMINATION WHEN NO SEPARATED REG STORES.             SQZ         2825     A     
 SQZ                                                                                       SQZ         2826     A     
 SQZ       EDI4     SA4    "TXT"+B2    DI = TXT + 2                                        SQZ         2827     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3364    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                SB5    "TXT"+6     TA = O.TXT + 6  */ STORE ADDRESS                    SQZ         2828     A     
 SQZ                                                                                       SQZ         2829     A     
 SQZ       EDI5     SA4    A4+B4       DI = DI + 4                                         SQZ         2830     A     
 SQZ                SA5    A4-B2       R1 = DI - 2                                         SQZ         2831     A     
 SQZ                ZR     X4,EDI5     IF [DI] = 0                                         SQZ         2832     A     
 SQZ                SA3    A4-B1       R2 = DI - 1                                         SQZ         2833     A     
 SQZ                MX7    0                                                               SQZ         2834     A     
 SQZ                BX6    X4                                                              SQZ         2835     A     
 SQZ                SA7    B5+B1       [R1+3] = 0                                          SQZ         2836     A     
 SQZ                UX2    "OC",X5                                                         SQZ         2837     A     
 SQZ                SA6    B5                                                              SQZ         2838     A     
 SQZ                BX7    X3                                                              SQZ         2839     A     
 SQZ                SA7    B5-B1                                                           SQZ         2840     A     
 SQZ                LX6    X5                                                              SQZ         2841     A     
 SQZ                SA6    B5-B2                                                           SQZ         2842     A     
 SQZ                SB5    B5+B4       TA = TA + 4                                         SQZ         2843     A     
 SQZ                NZ     "OC",EDI5   IF OC[R1] " OC.EOQ                                  SQZ         2844     A     
 SQZ                SB6    A6+B4                                                           SQZ         2845     A     
 SQZ                SB5    "TXT"                                                           SQZ         2846     A     
 SQZ                EQ     EDI0                                                            SQZ         2847     A     
 SQZ       IXI      TITLE  IXI - INSERT EXTRA INSTRUCTIONS                                 FCC0238AX     80     A     
 SQZ                DESCRIBE L.                                                            FCC0238AX     81     A     
 SQZ       OC       DEFINE 12          P(OC)   IM OR 0                                     FCC0238AX     82     A     
 SQZ                DEFINE 30                                                              FCC0238AX     83     A     
 SQZ       RN       DEFINE 18          GENERAL R-NUMBER                                    FCC0238AX     84     A     
 SQZ      **        IXI - INSERT EXTRA INSTRUCTIONS OF  *IM* OPCODES THAT HAVE A OPERAND   FCC0238AX     85     A     
 SQZ      *         THAT MAY BE INDEFINITE ( NEEDS TO BE UNPACKED )                        FCC0238AX     86     A     
 SQZ                                                                                       FCC0238AX     87     A     
 SQZ       IXI      ROUTINE                                                                FCC0238AX     88     A     
 SQZ                SA5    IXF                                                             FCC0238AX     89     A     
 SQZ                ZR     X5,IXI      IF IXF = 0                                          FCC0238AX     90     A     
 SQZ                SA2    O.TXT                                                           FCC0238AX     91     A     
 SQZ                SB5    OC.IM                                                           FCC0238AX     92     A     
 SQZ                SB4    4                                                               FCC0238AX     93     A     
 SQZ                MX1    0           NC = 0                                              FCC0238AX     94     A     
 SQZ                SX7    B0          N = 0                                               FCC0238AX     95     A     
 SQZ                SB6    59-D.USIP                                                       FCC0238AX     96     A     
 SQZ                SA5    X2          R1 = O.TXT                                          FCC0238AX     97     A     
 SQZ                SA7    X2+3                                                            FCC0238AX     98     A     
 SQZ                TRACE  IXI,RLIST                                                       FCC0238AX     99     A     
 SQZ                                                                                       FCC0238AX    100     A     
 SQZ       IXI1     SA5    A5+B4       R1 = R1 + 4                                         FCC0238AX    101     A     
 SQZ                SX7    X7+B4       N = N + 4                                           FCC0238AX    102     A     
 SQZ                SA7    A5+3                                                            FCC0238AX    103     A     
 SQZ                UX6    "OC",X5                                                         FCC0238AX    104     A     
 SQZ                ZR     "OC",IXI3   IF OC[R1] = 0                                       FCC0238AX    105     A     
 SQZ                NE     "OC",B5,IXI1      IF OC[R1] " OC.IM                             FCC0238AX    106     A     
 SQZ                SA4    A7-B1       DI = LI - 1                                         FCC0238AX    107     A     
 SQZ                LX3    B6,X4                                                           FCC0238AX    108     A     
 SQZ                PL     X3,IXI1     IF ^USI[DI]                                         FCC0238AX    109     A     
 SQZ                                                                                       FCC0238AX    110     A     
 SQZ      *         UNSAFE *IM*, MARK LINK WORD                                            FCC0238AX    111     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3365    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                                                                                       FCC0238AX    112     A     
 SQZ                SX1    X1+B4       NC = NC + 4                                         FCC0238AX    113     A     
 SQZ                SX7    X7+B4       N = N + 4                                           FCC0238AX    114     A     
 SQZ                PX6    "OC",X7                                                         FCC0238AX    115     A     
 SQZ                SA6    A7          [LI] = PACK(OC,N)                                   FCC0238AX    116     A     
 SQZ                EQ     IXI1                                                            FCC0238AX    117     A     
 SQZ                                                                                       FCC0238AX    118     A     
 SQZ      *         NO INSTRUCTIONS TO BE MODIFIED, CLEAR LINK WORDS                       FCC0238AX    119     A     
 SQZ                                                                                       FCC0238AX    120     A     
 SQZ       IXI20    MX7    0                                                               FCC0238AX    121     A     
 SQZ                SB2    X2                                                              FCC0238AX    122     A     
 SQZ                SB3    A5                                                              FCC0238AX    123     A     
 SQZ       IXI21    SA7    B2+3                                                            FCC0238AX    124     A     
 SQZ                SB2    B2+4                                                            FCC0238AX    125     A     
 SQZ                LE     B2,B3,IXI21                                                     FCC0238AX    126     A     
 SQZ                EQ     IXI                                                             FCC0238AX    127     A     
 SQZ                                                                                       FCC0238AX    128     A     
 SQZ       IXI3     ZR     X1,IXI20    IF NC = 0     */ NO EXTRA INSTRUCTIONS NEEDED       FCC0238AX    129     A     
 SQZ                ALLOC  TXT,X1      ALLOC( TXT , NC )                                   FCC0238AX    130     A     
 SQZ                SX0    RN.MASK                                                         FCC0238AX    131     A     
 SQZ                SB7    X2+3        TB = TXT + 3                                        FCC0238AX    132     A     
 SQZ                SB6    B6-4        FI = OLD(L.TXT)-4  */ FETCH INDEX                   FCC0238AX    133     A     
 SQZ                SB5    X3-4        SI = L.TXT - 4                                      FCC0238AX    134     A     
 SQZ                MX1    D.TYL                                                           FCC0238AX    135     A     
 SQZ                SB5    B7+B5                                                           FCC0238AX    136     A     
 SQZ                SB4    OC.IM                                                           FCC0238AX    137     A     
 SQZ                                                                                       FCC0238AX    138     A     
 SQZ      *         MOVE THE SEQUENCE UP IN *TXT* AND INSERT EXTRA INSTRUCTIONS            FCC0238AX    139     A     
 SQZ                                                                                       FCC0238AX    140     A     
 SQZ       IXI4     SA5    B7+B6       LI = TB + FI                                        FCC0238AX    141     A     
 SQZ                UX4    B3,X5                                                           FCC0238AX    142     A     
 SQZ                EQ     B3,B4,IXI9                                                      FCC0238AX    143     A     
 SQZ                                                                                       FCC0238AX    144     A     
 SQZ       IXI5     SA4    A5-B1       DI = LI - 1                                         FCC0238AX    145     A     
 SQZ                SA3    A4-B1                                                           FCC0238AX    146     A     
 SQZ                BX7    X4                                                              FCC0238AX    147     A     
 SQZ                LX3    -IH.RFP                                                         FCC0238AX    148     A     
 SQZ                SA7    B5-B1       [SI-1] = [DI]                                       FCC0238AX    149     A     
 SQZ                BX6    -X0*X3                                                          FCC0238AX    150     A     
 SQZ                SA2    B7+X6       ADJ RF AND MOVE R2 WORD                             FCC0238AX    151     A     
 SQZ                BX3    X0*X3                                                           FCC0238AX    152     A     
 SQZ                SX2    X2                                                              FCC0238AX    153     A     
 SQZ                IX7    X2+X3                                                           FCC0238AX    154     A     
 SQZ                LX7    IH.RFP                                                          FCC0238AX    155     A     
 SQZ                SA7    A7-B1                                                           FCC0238AX    156     A     
 SQZ                                                                                       FCC0238AX    157     A     
 SQZ                SA3    A3-B1       ADJ R1 WORD                                         FCC0238AX    158     A     
 SQZ                BX2    -X1+X4                                                          FCC0238AX    159     A     
 SQZ                ZR     X2,IXI8     IF TY[DI] = IV                                      FCC0238AX    160     A     
 SQZ                BX5    X1*X4                                                           FCC0238AX    161     A     
 SQZ                BX6    -X0*X3                                                          FCC0238AX    162     A     
 SQZ                SA2    B7+X6       LII = [TB+RI[R1]]                                   FCC0238AX    163     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3366    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                BX3    X0*X3                                                           FCC0238AX    164     A     
 SQZ                SX2    X2                                                              FCC0238AX    165     A     
 SQZ                BX3    X3+X2                                                           FCC0238AX    166     A     
 SQZ                NZ     X5,IXI8     IF TY[DI] " I                                       FCC0238AX    167     A     
 SQZ                                                                                       FCC0238AX    168     A     
 SQZ                LX3    -R1.RJP                                                         FCC0238AX    169     A     
 SQZ                BX6    -X0*X3                                                          FCC0238AX    170     A     
 SQZ                SA2    B7+X6                                                           FCC0238AX    171     A     
 SQZ                BX3    X0*X3                                                           FCC0238AX    172     A     
 SQZ                SX2    X2                                                              FCC0238AX    173     A     
 SQZ                BX3    X2+X3                                                           FCC0238AX    174     A     
 SQZ                LX3    R1.RJP-R1.RKP                                                   FCC0238AX    175     A     
 SQZ                BX6    -X0*X3                                                          FCC0238AX    176     A     
 SQZ                SA2    B7+X6                                                           FCC0238AX    177     A     
 SQZ                BX3    X0*X3                                                           FCC0238AX    178     A     
 SQZ                SX2    X2                                                              FCC0238AX    179     A     
 SQZ                BX3    X2+X3                                                           FCC0238AX    180     A     
 SQZ                LX3    R1.RKP                                                          FCC0238AX    181     A     
 SQZ                LX4    59-D.RJRSP                                                      FCC0238AX    182     A     
 SQZ                PL     X4,IXI8     IF ^RJRS[DI]                                        FCC0238AX    183     A     
 SQZ                                                                                       FCC0238AX    184     A     
 SQZ                BX7    -X0*X3                                                          FCC0238AX    185     A     
 SQZ                SX7    X7+4                                                            FCC0238AX    186     A     
 SQZ                LX7    R1.RJP      RJ[R1] = RI[R1] + 4                                 FCC0238AX    187     A     
 SQZ                BX3    X7+X3                                                           FCC0238AX    188     A     
 SQZ                                                                                       FCC0238AX    189     A     
 SQZ       IXI8     BX7    X3                                                              FCC0238AX    190     A     
 SQZ                SA7    A7-B1                                                           FCC0238AX    191     A     
 SQZ                MX6    0                                                               FCC0238AX    192     A     
 SQZ                SA6    B5          [SI] = 0                                            FCC0238AX    193     A     
 SQZ                SB5    B5-4        SI = SI - 4                                         FCC0238AX    194     A     
 SQZ                SB6    B6-4        FI = FI - 4                                         FCC0238AX    195     A     
 SQZ                GT     B6,IXI4     IF FI > 0                                           FCC0238AX    196     A     
 SQZ                                                                                       FCC0238AX    197     A     
 SQZ                TRACE  IXIX,RLIST                                                      FCC0238AX    198     A     
 SQZ                EQ     IXI                                                             FCC0238AX    199     A     
 SQZ                                                                                       FCC0238AX    200     A     
 SQZ       IXI9     SA3    F.RDT+B3                                                        FCC0238AX    201     A     
 SQZ                MX7    0                                                               FCC0238AX    202     A     
 SQZ                SA7    B5          [SI] = 0                                            FCC0238AX    203     A     
 SQZ                                                                                       FCC0238AX    204     A     
 SQZ                SA3    A5-B1       DESCR OF IM                                         FCC0238AX    205     A     
 SQZ                SX2    B1                                                              FCC0238AX    206     A     
 SQZ                LX2    D.USIP                                                          FCC0238AX    207     A     
 SQZ                BX6    -X2*X3      CLEAR USI BIT IN *IM*                               FCC0238AX    208     A     
 SQZ                SA6    B5-B1                                                           FCC0238AX    209     A     
 SQZ                SA7    A6-B1       R2 = 0                                              FCC0238AX    210     A     
 SQZ                SX7    X5          I = RN[LI]    */ NEW RI                             FCC0238AX    211     A     
 SQZ                SA5    A5-3        R1 = LI - 3                                         FCC0238AX    212     A     
 SQZ                LX5    -R1.RJP                                                         FCC0238AX    213     A     
 SQZ                BX2    -X0*X5      J = RJ[R1]                                          FCC0238AX    214     A     
 SQZ                LX5    R1.RJP-R1.RKP                                                   FCC0238AX    215     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3367    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                BX3    -X0*X5                                                          FCC0238AX    216     A     
 SQZ                SA4    B7+X2                                                           FCC0238AX    217     A     
 SQZ                SA5    B7+X3                                                           FCC0238AX    218     A     
 SQZ                SX4    X4          NJ = RN[TB(J)]                                      FCC0238AX    219     A     
 SQZ                SX5    X5          NK = RN[TB(K)]                                      FCC0238AX    220     A     
 SQZ                SX3    X7                (X3) = I                                      FCC0238AX    221     A     
 SQZ                SA2    A4-B1       DJ = LJ - 1                                         FCC0238AX    222     A     
 SQZ                CALL   CMO                                                             FCC0238AX    223     A     
 SQZ                ZR     X6,IXI12    IF J IS SAFE                                        FCC0238AX    224     A     
 SQZ                SX2    X4          UK = NJ                                             FCC0238AX    225     A     
 SQZ                SX4    X3-4        NJ = I - 4                                          FCC0238AX    226     A     
 SQZ                EQ     IXI13                                                           FCC0238AX    227     A     
 SQZ                                                                                       FCC0238AX    228     A     
 SQZ       IXI12    SX2    X5          UK = NK                                             FCC0238AX    229     A     
 SQZ                SX5    X3-4        NK = I - 4                                          FCC0238AX    230     A     
 SQZ                                                                                       FCC0238AX    231     A     
 SQZ       IXI13    PX6    B3,X3                                                           FCC0238AX    232     A     
 SQZ                LX4    R1.RJP                                                          FCC0238AX    233     A     
 SQZ                LX5    R1.RKP                                                          FCC0238AX    234     A     
 SQZ                BX4    X4+X5                                                           FCC0238AX    235     A     
 SQZ                BX6    X6+X4                                                           FCC0238AX    236     A     
 SQZ                SA6    A7-B1       NEW R1 = TYI(OC.IM,I,NJ,NK)                         FCC0238AX    237     A     
 SQZ                SB3    OC.UP                                                           FCC0238AX    238     A     
 SQZ                SX5    X3-4                                                            FCC0238AX    239     A     
 SQZ                SA4    F.RDT+B3                                                        FCC0238AX    240     A     
 SQZ                MX6    0                                                               FCC0238AX    241     A     
 SQZ                SA6    A6-B1       LINK WD = 0                                         FCC0238AX    242     A     
 SQZ                SX7    B1                                                              FCC0238AX    243     A     
 SQZ                BX7    X7+X4                                                           FCC0238AX    244     A     
 SQZ                SA7    A6-B1             DESCR + USES                                  FCC0238AX    245     A     
 SQZ                SA6    A7-B1       R2 =  0                                             FCC0238AX    246     A     
 SQZ                PX7    B3,X5                                                           FCC0238AX    247     A     
 SQZ                LX2    R1.RKP                                                          FCC0238AX    248     A     
 SQZ                BX6    X7+X2                                                           FCC0238AX    249     A     
 SQZ                SA6    A6-B1       R1 UP = TYI(OC.UP,I-4,0,UK)                         FCC0238AX    250     A     
 SQZ                SB5    B5-8        SI = SI - 8                                         FCC0238AX    251     A     
 SQZ                SB6    B6-4        FI = FI - 4                                         FCC0238AX    252     A     
 SQZ                EQ     IXI4                                                            FCC0238AX    253     A     
 SQZ       CMO      SPACE  3,14                                                            FCC0238AX    254     A     
 SQZ      **        CMO - CHECK MULTIPLY ( IM ) OPERAND TO SEE IF IT IS "SAFE"             FCC0238AX    255     A     
 SQZ      *         SO THAT THE *IM* CAN BE MOVED FROM THE SIDE BRANCH OF A LOOP.          FCC0238AX    256     A     
 SQZ      *                                                                                FCC0238AX    257     A     
 SQZ      *         ENTRY  (A2,X2) = :, DESCRIPTOR WORD                                    FCC0238AX    258     A     
 SQZ      *         ENTRY  (A2,X2) = D, DESCRIPTOR WORD                                    FCC0238AX    259     A     
 SQZ      *                                                                                FCC0238AX    260     A     
 SQZ      *         EXIT   (X6) = 0 IF OPERAND IS SAFE                                     FCC0238AX    261     A     
 SQZ      *                                                                                FCC0238AX    262     A     
 SQZ      *         USES   A2, B2, X2, X6, X7                                              FCC0238AX    263     A     
 SQZ                                                                                       FCC0238AX    264     A     
 SQZ       CMO      ROUTINE                                                                FCC0238AX    265     A     
 SQZ                LX2    59-D.ZPP                                                        FCC0238AX    266     A     
 SQZ                MX6    1           CMO = 1S59    */ UNSAFE                             FCC0238AX    267     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3368    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
 SQZ                PL     X2,CMO      IF ^ZP[D]     */ UNKNOWN OPERAND                    FCC0238AX    268     A     
 SQZ                SA2    A2-2        R1 = D - 2                                          FCC0238AX    269     A     
 SQZ                UX7    B2,X2                                                           FCC0238AX    270     A     
 SQZ                MX6    0           CMO = 0                                             FCC0238AX    271     A     
 SQZ                SX7    B2-OC.LD                                                        FCC0238AX    272     A     
 SQZ                NZ     X7,CMO      IF OC[R1] " OC.LD */ FMA OR S                       FCC0238AX    273     A     
 SQZ                SA2    A2+B1       R2 = R1 + 1                                         FCC0238AX    274     A     
 SQZ                SX7    X2                                                              FCC0238AX    275     A     
 SQZ                SA2    =XVD.                                                           FCC0238AX    276     A     
 SQZ                BX6    X2-X7       CMO = IH[R2] - VD.                                  FCC0238AX    277     A     
 SQZ                EQ     CMO                                                             FCC0238AX    278     A     
 SQZ       JUMPT    SPACE  2                                                               SQZ         2848     A     
 SQZ      **        OPR - DEFINE MACRO TO FORM JUMP TABLE FOR OPCODES                      SQZ         2849     A     
 SQZ                                                                                       SQZ         2850     A     
 SQZ                MACRO  OPR,NAM                                                         SQZ         2851     A     
 SQZ                IF     DEF,.NAM,2                                                      SQZ         2852     A     
 SQZ                EQ     .NAM                                                            SQZ         2853     A     
 SQZ                ELSE   1                                                               SQZ         2854     A     
 SQZ                EQ     SBB+4S15                                                        SQZ         2855     A     
 SQZ                ENDM                                                                   SQZ         2856     A     
 SQZ                                                                                       SQZ         2857     A     
 SQZ       SBB.JT   BSS    0                                                               SQZ         2858     A     
 SQZ                LOC    0                                                               SQZ         2859     A     
 SQZ      *CALL     OPRDEFS                                                                SQZ         2860     A     
 SQZ                LOC    *O                                                              SQZ         2861     A     
 SQZ                LIST   -G                                                              SQZ         2862     A     
 SQZ                                                                                       SQZ         2863     A     
 SQZ                QUAL                                                                   SQZ         2864     A     
 SQZ       CMO      EQENT  /SQUEEZE/CMO                                                    FCC0238AX    279     A     
 SQZ       SBB      EQU    /SQUEEZE/SBB                                                    SQZ         2865     A     
 SQZ                END                                                                    SQZ         2866     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - SQZ     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          SQZ                       2866      2768
          FCC0448                      4         4
          FCC0509                     21        21
          FCC0514                     87        83
          FCC0588                      9         9
          FCC0603                      5         5
          FCC0643                      2         2
          FCC0716                     39        39
          FCC0715                      7         7
          FCC0792                     22        22
          FCC0872                      3         3
          FCC1025                     27        27
          FCC0957                     14        14
          FCC1025A                     2         2
          FCC1029                      6         6
          FCC1085                     22        22
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3369    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SQZ     
  
          FCC1413                     11        11
          FCC1424                      2         1
          FCC1660X                    26        26
          FCC0238AX                  227       227
          FCC1719X                     5         5
          FCC1825X                    20        20
          FCC1928                      6         6
          FCC2072                     15        15
          FCC2392                      7         7
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG      *DECK     MCG                                                                    MCG            1     A     
 MCG                IDENT  MCG                                                             MCG            2     A     
 MCG       MCG      TITLE  MCG - MACHINE CODE GENERATOR                                    MCG            3     A     
 MCG      *CALL     SSTCALL                                                                MCG            4     A     
 MCG                PASS2TM                                                                MCG            5     A     
 MCG       B=MCG    RPVDEF                                                                 MCG            6     A     
 MCG                                                                                       MCG            7     A     
 MCG                TABLES TXT,TREE,PIT,OTI                                                MCG            8     A     
 MCG      *IF       DEF,MCG,1                                                              MCG            9     A     
 MCG                TRACER (II,FINAL,HEAD)                                                 MCG           10     A     
 MCG                                                                                       MCG           11     A     
 MCG       INCT     MICRO  .CPU-71,1,/11411/ INCREMENT UNIT TIME                           MCG           12     A     
 MCG       MCG      SPACE  3                                                               MCG           13     A     
 MCG      **        MCG - MACHINE CODE GENERATOR - SCHEDULING AND LOCAL REGISTER           MCG           14     A     
 MCG      *         ASSIGNMENT.                                                            MCG           15     A     
 MCG      *                                                                                MCG           16     A     
 MCG      *         S.I. JASIK - MARCH 73                                                  MCG           17     A     
 MCG      *                                                                                MCG           18     A     
 MCG      *         *MCG* ORDERS THE INSTRUCTIONS IN THE CODE SEQUENCE SUBJECT TO          MCG           19     A     
 MCG      *         THE CONSTRAINTS OF THE PARTIAL ORDER IMPOSED ON IT BY *BDT*,           MCG           20     A     
 MCG      *         WHICH ARE -                                                            MCG           21     A     
 MCG      *          1) DATA INTERFERENCE DEPENDENCIES ( LD/ST INTERFERENCE )              MCG           22     A     
 MCG      *          2) OPERAND DEPENDENCIES                                               MCG           23     A     
 MCG      *          3) BOUNDARY MARKER DEPENDENCIES  ( AN INSTRUCTION MUST BE             MCG           24     A     
 MCG      *         LINKED TO THE NODES OF THE BOUNDARIES OF THE BASIC BLOCK THAT          MCG           25     A     
 MCG      *         IT BELONGS TO ).                                                       MCG           26     A     
 MCG      *          4) EXPLICIT USE OF SPECIFIC RESOURCES ( REGISTERS ).                  MCG           27     A     
 MCG      *            I.E. THE REUSE/REDEFINITION OF A REGISTER MAY NOT OCCUR             MCG           28     A     
 MCG      *         UNTIL ALL USES OF THE FIRST DEFINITION HAVE BEEN EXHAUSTED.            MCG           29     A     
 MCG      *                                                                                MCG           30     A     
 MCG      *         THE RESULTANT NETWORK/DEPENDENCY GRAPH ( NOT A TREE ) IS               MCG           31     A     
 MCG      *         EXPRESSED AS A SUCCESSOR INDEX TABLE, SORTED BY PREDECESSOR,           MCG           32     A     
 MCG      *         LATE START TIME, AND SUCCESSOR ORDINAL, AND A COUNT OF THE             MCG           33     A     
 MCG      *         NUMBER OF PREDECESSORS OF EACH INSTRUCTION.                            MCG           34     A     
 MCG      *         THE PRED COUNT, INDEX TO *SIT*, ETC ARE KEPT IN THE LINK WORD          MCG           35     A     
 MCG      *         OF AN *IL* INSTRUCTION (R1+3 ) IN "I." FORMAT.                         MCG           36     A     
 MCG      *         THE ISSUE ( REMOVAL ) OF AN INSTRUCTION FROM THE NETWORK               MCG           37     A     
 MCG      *         REDUCES THE COUNT OF REMAINING PREDECESSORS ( CONSTRAINTS )            MCG           38     A     
 MCG      *         ON THE SUCCESSORS OF THE ISSUED INSTRUCTION.                           MCG           39     A     
 MCG      *         WHEN THE PRED COUNT BECOMES ZERO THE INSTRUCTION IS ADDED TO           MCG           40     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3370    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG      *         THE ISSUE CANDIDATE LIST, AND EVENTUALLY ISSUED.                       MCG           41     A     
 MCG      *         ALSO CALCULATED IN *BDT*, IS THE LATE START TIME, WHICH IS             MCG           42     A     
 MCG      *         THE LATEST TIME AT WHICH THE INSTRUCTION CAN BE ISSUED WITHOUT         MCG           43     A     
 MCG      *         INCREASING THE TOTAL TIME ( *SEQTIME* ) IT TAKES TO GET TO             MCG           44     A     
 MCG      *         THE *EOQ*.                                                             MCG           45     A     
 MCG      *                                                                                MCG           46     A     
 MCG      *         TO GENERATE CODE FOR A SEQUENTIAL MACHINE ( I.E. CPU @ 6400 )          MCG           47     A     
 MCG      *         IT IS SUFFICIENT TO CONSIDER ONLY THE REGISTER ALLOCATION (JAM         MCG           48     A     
 MCG      *         PROBLEM, AND ATTEMPT TO MINIMIZE THE CODE LENGTH AND NUMBER            MCG           49     A     
 MCG      *         OF STORES TO COMPILER GENERATED TEMPORARIES.                           MCG           50     A     
 MCG      *         FOR A MULTI-FUNCTIONAL UNIT MACHINE ( 6600, 7600 ) IT IS               MCG           51     A     
 MCG      *         NECESSARY TO ALSO CONSIDER TIMING INFORMATION AND SIMULATE             MCG           52     A     
 MCG      *         THE CPU ( TEMPORAL FUNCTIONAL UNIT AND REGISTER AVAILABILITY )         MCG           53     A     
 MCG      *                                                                                MCG           54     A     
 MCG      *         THE FORMER PROBLEM HAS A THEORETICAL SOLUTION ( AHO, ULLMAN -          MCG           55     A     
 MCG      *         1970 ) WHICH IS NOT COMBINATORIAL IN NATURE WHEN THE NETWORK           MCG           56     A     
 MCG      *         IS A TREE ( NO MULTIPLE USES OF THE RESULT OF AN INSTRUCTION )         MCG           57     A     
 MCG      *         , AS OPPOSED TO A DIRECTED ACYCLIC GRAPH.                              MCG           58     A     
 MCG      *                                                                                MCG           59     A     
 MCG      *         THE PROBLEM OF PRODUCING AN OPTIMAL SCHEDULE FOR A NETWORK             MCG           60     A     
 MCG      *         WITH N TASKS AND K PROCESSORS ( K = 9,10 IN OUR CASE )                 MCG           61     A     
 MCG      *         HAS NO GENERAL SOLUTION.  MOST OF THE CURRENT METHODS ARE              MCG           62     A     
 MCG      *         COMBINATORIAL IN NATURE ( AND IN THE NUMBER OF STEPS ).                MCG           63     A     
 MCG      *         IN ORDER TO KEEP COMPILATION TIME FINITE AND REASONABLE                MCG           64     A     
 MCG      *         WE CONTENT OURSELVES WITH A 1 PASS ALGORITHM.                          MCG           65     A     
 MCG      *         THE BASIC ALGORITHM FOR MAINTAINING THE ISSUE CANIDATE LIST IS SIMILAR MCG           66     A     
 MCG      *         SIMILAR TO THE "TOPOLOGICAL SORT" DESCRIBED IN VOL I OF KNUTH.         MCG           67     A     
 MCG      *         THE SELECTION CRITERIA FOR INSTRUCTION IN SCHEDULING MODE              MCG           68     A     
 MCG      *         IS "EARLIEST START TIME".                                              MCG           69     A     
 MCG      *                                                                                MCG           70     A     
 MCG      *         THE FOLLOWING ARE THE TIMING FORMULA OF THE 66/7600 -                  MCG           71     A     
 MCG      *                                                                                MCG           72     A     
 MCG      *         T(IS) = MAX( T , TRA(RESULT) , TFU(F) )          ISSUE TIME            MCG           73     A     
 MCG      *         T(EX) = MAX( T(IS) , TRA(OPERANDS) )             EXECUTE TIME          MCG           74     A     
 MCG      *                T(IS) = T(EX)  FOR A 7600                                       MCG           75     A     
 MCG      *         TRA(REGNO) = MAX( T(EX)+FT[DI] , TLU(REGNO) )    RESULT AVAIL          MCG           76     A     
 MCG      *         TFU(F) = TRA(REGNO) + 1                          FUNIT AVAIL           MCG           77     A     
 MCG      *         TLU(OPERANDS) = MAX( TLU(OPERANDS) , T(EX) )     LAST USE              MCG           78     A     
 MCG      *         T = T(EX) + N.PARCELS ( + IWTIME )               MIN ISSUE TIM         MCG           79     A     
 MCG      *                                                                                MCG           80     A     
 MCG      *         AT PRESENT THE SCHEDULER IGNORES THIRD ORDER CONFLICTS AND THE         MCG           81     A     
 MCG      *         FORMULAS IT USES ARE -                                                 MCG           82     A     
 MCG      *         TRA(REGNO) = T(EX) + FT[DI]                                            MCG           83     A     
 MCG      *         TRA(REGNO) = T(EX) + 1   WHEN A REGISTER IS RELEASED.                  MCG           84     A     
 MCG                                                                                       MCG           85     A     
 MCG                LIST   -R                                                              MCG           86     A     
 MCG                                                                                       MCG           87     A     
 MCG       BOOL     EQU    2           ORDINAL OF BOOLEAN UNIT                             MCG           88     A     
 MCG       RN.X0    EQU    20B         *SO* REGISTER NUMBER FOR X0                         MCG           89     A     
 MCG       RN.A0    EQU    10B         *SO* REGISTER NUMBER FOR A0                         MCG           90     A     
 MCG       AMX      EQU    -10B        RN.A0-RN.X0  , X TO A CONVERSION                    MCG           91     A     
 MCG       T(INF)   EQU    377777B     *INFINITY*                                          MCG           92     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3371    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG       MAX.GX   EQU    2           MAX NUMBER OF GENERATED XMITS                       MCG           93     A     
 MCG       DELTAT   EQU    4           MIN DELTA T FOR *LST* CHECK IN *SNI*                MCG           94     A     
 MCG                                                                                       MCG           95     A     
 MCG       MX.TXT   ENTRY. 100B        MAX *TXT* LENGTH                                    MCG           96     A     
 MCG                SPACE  2                                                               MCG           97     A     
 MCG      *         TYIOM - TYPE I OPERAND MASK AND SHIFT TABLE                            MCG           98     A     
 MCG                                                                                       MCG           99     A     
 MCG                ENTRY  TYIOM                                                           MCG          100     A     
 MCG       TYIOM    BSS    0                                                               MCG          101     A     
 MCG                VFD    12/2020B,16/-1,16/-1,16/0   RJ, RK                              MCG          102     A     
 MCG                VFD    12/2020B,16/0,16/-1,16/0    RK                                  MCG          103     A     
 MCG                VFD    12/2000B,16/-1,16/-1,16/-1  RJ, RK, RI                          MCG          104     A     
 MCG       FXR      TITLE  MACRO DEFINITIONS                                               MCG          105     A     
 MCG      **        FX. - VALUES OF THE REGISTERS FOR *FXR*                                MCG          106     A     
 MCG                                                                                       MCG          107     A     
 MCG                ECHO   1,N=(1,2,3,4,5,6,7)                                             MCG          108     A     
 MCG       FX.X_N   EQU    1S_N*1S8                                                        MCG          109     A     
 MCG       FX.X0    EQU    FX.X7*2                                                         MCG          110     A     
 MCG       FX.XT    EQU    1S8+1S17    SEARCH TERMINATOR AND EXPONENT BIT                  MCG          111     A     
 MCG                                                                                       MCG          112     A     
 MCG                ECHO   1,N=(0,1,2,3,4,5,6,7)  B-REGISTER BIT VALUES                    MCG          113     A     
 MCG       FX.B_N   EQU    1S_N                                                            MCG          114     A     
 MCG                                                                                       MCG          115     A     
 MCG      *         REGISTER CLASSES ( BIT VALUE MASKS )                                   MCG          116     A     
 MCG                                                                                       MCG          117     A     
 MCG       FB       EQU    2*FX.B7-1         ALL B REGISTERS                               MCG          118     A     
 MCG       FX       EQU    2*FX.X0-FB-1      ALL X REGISTERS                               MCG          119     A     
 MCG                                                                                       MCG          120     A     
 MCG       FX.LD    EQU    FX.X1+FX.X2+FX.X3+FX.X4+FX.X5   LOAD REGISTERS                  MCG          121     A     
 MCG       FX.ST    EQU    FX.X6+FX.X7       STORE REGISTERS                               MCG          122     A     
 MCG       FX.SCR   EQU    FX.X0+FX.LD+FX.ST ALL REGISTERS                                 MCG          123     A     
 MCG                                                                                       MCG          124     A     
 MCG      *         FXRA - REGISTER TRANSLATION TABLE ( SEARCH ORDER )                     MCG          125     A     
 MCG                                                                                       MCG          126     A     
 MCG       FXRA     BSS    0                                                               MCG          127     A     
 MCG                ECHO   1,N=(0,7,6,5,4,3,2,1)                                           MCG          128     A     
 MCG                VFD    42/FX.X_N,18/RN.X0+N                                            MCG          129     A     
 MCG                CON    -1          TABLE TERMINATOR                                    MCG          130     A     
 MCG       FXR      SPACE  2                                                               MCG          131     A     
 MCG      **        FXR - CALL *FXR* TO FIND A RESULT REGISTER IN CLASS *RC*               MCG          132     A     
 MCG      *         CALL -                                                                 MCG          133     A     
 MCG      *         FXR    RC,SEXIT,FEXIT                                                  MCG          134     A     
 MCG      *                RC = REGISTERS IN CLASS ( LD , ST , SCR )                       MCG          135     A     
 MCG      *                SEXIT = SUCCESS EXIT                                            MCG          136     A     
 MCG      *                FEXIT = FAIL EXIT ( FALL THROUGH IF ABSENT )                    MCG          137     A     
 MCG                                                                                       MCG          138     A     
 MCG       FXR      MACRO  RC,SEXIT,FEXIT                                                  MCG          139     A     
 MCG                SA1    AXR                                                             MCG          140     A     
 MCG                IF     -REG,RC,1                                                       MCG          141     A     
 MCG                SX5    FX.RC+FX.XT                                                     MCG          142     A     
 MCG                BX7    X1*X5       AVAIL = AXR & CLASS                                 MCG          143     A     
 MCG                NX6    B3,X7                                                           MCG          144     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3372    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA3    B3+FXRA+16-47                                                   MCG          145     A     
 MCG                IFGE   .CPU,74                                         ?66/76          MCG          146     A     
 MCG                SA2    TRA+X3                                                          MCG          147     A     
 MCG                SB2    X2                                                              MCG          148     A     
 MCG                SB3    X3                                                              MCG          149     A     
 MCG                LE     B2,B5,SEXIT IF TRA(REGNO) @ T(IS)                               MCG          150     A     
 MCG                ELSE   2                                               '66/76          MCG          151     A     
 MCG                SB3    X3                                                              MCG          152     A     
 MCG                GT     B3,SEXIT                                                        MCG          153     A     
 MCG                RJ     FXR                                                             MCG          154     A     
 MCG                SB3    X3                                                              MCG          155     A     
 MCG                IFC    NE,/FEXIT//,2                                                   MCG          156     A     
 MCG                MI     X3,FEXIT                                                        MCG          157     A     
 MCG                ELSE   1                                                               MCG          158     A     
 MCG                PL     X3,SEXIT                                                        MCG          159     A     
 MCG                ENDM                                                                   MCG          160     A     
 MCG       DEBUG    TITLE  DEBUGGING FACILITIES                                            MCG          161     A     
 MCG      **        PRNT - PRINT OUT *THING* AT *LAB* IF *THING* OR *LAB* IS               MCG          162     A     
 MCG      *         MENTIONED ON A *TRACER* DIRECTIVE.                                     MCG          163     A     
 MCG      *         TO DEFINE *PRNT* CALL LABELS -                                         MCG          164     A     
 MCG      *         TRACER (HEAD,II,FINAL,RUI,TIMES,ICL)                                   MCG          165     A     
 MCG                                                                                       MCG          166     A     
 MCG       PRNT     MACRO  LAB,THING,SAVPBI                                                MCG          167     A     
 MCG                LOCAL  APL         *** DESTROY B2,X6,A6 IF SAVPBI " 0                  MCG          168     A     
 MCG                IF     -DEF,/DEBUG/LAB,1                                               MCG          169     A     
 MCG       X        IF     DEF,/DEBUG/THING                                                MCG          170     A     
 MCG                IFC    NE,/SAVPBI//,3                                                  MCG          171     A     
 MCG                SB2    "DI"+B1                                                         MCG          172     A     
 MCG                SX6    B2-"TB"                                                         MCG          173     A     
 MCG                SA6    PBI+1                                                           MCG          174     A     
 MCG      +         RJ     CPR                                                             MCG          175     A     
 MCG      -         VFD    30/APL                                                          MCG          176     A     
 MCG                USE    DEBUG                                                           MCG          177     A     
 MCG       APL      CON    0,Z.THING,*+2,0,10H LAB                                         MCG          178     A     
 MCG                USE    0                                                               MCG          179     A     
 MCG       X        ENDIF                                                                  MCG          180     A     
 MCG                ENDM                                                                   MCG          181     A     
 MCG                                                                                       MCG          182     A     
 MCG       DBG      IF     DEF,DEBUG                                                       MCG          183          I
          -FCC1056
 MCG       .T       IFNE   TEST,0                                                          FCC1056        7     A     
 MCG                USE    DEBUG                                                           MCG          184     A     
 MCG       Z.ICL    CON    1           ISSUE CANIDATE LIST                                 MCG          185     A     
 MCG       Z.II     CON    2           ISSUED INSTRUCTION                                  MCG          186     A     
 MCG       Z.RUI    CON    3           REGISTER USEAGE INFO                                MCG          187     A     
 MCG       Z.TIMES  CON    4           FU AND X-REG AVAIL TIMES                            MCG          188     A     
 MCG       Z.FINAL  CON    5           FINAL SUMMARY                                       MCG          189     A     
 MCG       Z.HEAD   CON    6           LISTING HEADER ( II AND FINAL OPTIONS ONLY          MCG          190     A     
 MCG                                                                                       MCG          191     A     
 MCG      **        CPR - CALL PRINT ROUTINE                                               MCG          192     A     
 MCG                                                                                       MCG          193     A     
 MCG       CPR0     RJ     =XRESET=                                                        MCG          194     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3373    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG       CPR      ROUTINE                                                                MCG          195     A     
 MCG                RJ     =XSAVE=                                                         MCG          196     A     
 MCG                SA1    CPR                                                             MCG          197     A     
 MCG                SA4    O.TXT                                                           MCG          198     A     
 MCG                LX1    30                                                              MCG          199     A     
 MCG                SA2    X1-1                                                            MCG          200     A     
 MCG                BX6    X4                                                              MCG          201     A     
 MCG                SA6    X2          [APL] = [O.TXT]                                     MCG          202     A     
 MCG                SA1    A6                                                              MCG          203     A     
 MCG      +         RJ     =XPRNTMCG                                                       MCG          204     A     
 MCG                SA1    EOQA                                                            MCG          205     A     
 MCG                PL     X1,CPR0                                                         MCG          206     A     
 MCG                BX6    -X1                                                             MCG          207     A     
 MCG                SA6    A1                                                              MCG          208     A     
 MCG                RJ     =XRESET=                                                        MCG          209     A     
 MCG                SNAPT  TXT,CPR-ERR                                                     MCG          210     A     
 MCG                EQ     CPR                                                             MCG          211     A     
 MCG                                                                                       MCG          212     A     
 MCG                USE    0                                                               MCG          213     A     
 MCG       DBG      ENDIF                                                                  MCG          214          I
          -FCC1056
 MCG       .T       ENDIF                                                                  FCC1056        8     A     
 MCG       FLAGS    TITLE  VARIABLES                                                       MCG          215     A     
 MCG                USE    /MCG/                                                           MCG          216     A     
 MCG       N.INST   BSS    1           NUMBER OF INSTRUCTIONS ( L.TXT/4 )                  MCG          217     A     
 MCG       N.SP     BSS    1           -( NUMBER OF STORE PREDECESSOR OPS )                MCG          218     A     
 MCG       SEQTIME  BSS    1           CRITICAL PATH TIME                                  MCG          219     A     
 MCG                                                                                       MCG          220     A     
 MCG       ICL      BSS    1           ISSUE CANDIDATE LIST POINTER                        MCG          221     A     
 MCG       RMR      BSSZ   1           24/0,18/CA,18/A-REG NUMBER                          MCG          222     A     
 MCG                VFD    12/1776B,12/0,18/T(INF),18/T(INF)                               MCG          223     A     
 MCG       PBI      BSS    2           PREVIOUS BEST INST INFO ( PB. FORMAT )              MCG          224     A     
 MCG                                                                                       MCG          225     A     
 MCG       DT       CON    4           DELTA T FOR *LST* CHECK                             MCG          226     A     
 MCG       IWT      CON    .IWT        INTERWORD TIME ( =0 IF NOT A SLOW 6600 )            MCG          227     A     
 MCG                                                                                       MCG          228     A     
 MCG       AXR      CON    1S58+FX+FB  AVAILABLE X AND B REGISTERS                         MCG          229     A     
 MCG       ALR      CON    FX.LD+FX.XT AVAILABLE LOAD REGISTERS                            MCG          230     A     
 MCG       STL      CON    -FX.X6      STORE LOCKOUT FLAG                                  MCG          231     A     
 MCG                                                                                       MCG          232     A     
 MCG       RVT      BSSZ   24          REGISTER VALUE TABLE ( R-NUMBER IN REGISTER         MCG          233     A     
 MCG      *                            1/LOCK,59/INDEX TO *TXT* OF *RI* IN REG             MCG          234     A     
 MCG                                                                                       MCG          235     A     
 MCG                CON    1S59+T(INF)       TRA-1  ( FOR *FXR* )                          MCG          236     A     
 MCG       F.CLC    BSS    0          ?FWA OF CLEARED CELLS                                MCG          237     A     
 MCG       TRA      BSS    24          TIME REGNO(I) AVAILABLE ( BAX ORDER )               MCG          238     A     
 MCG       ARA      BSS    8           A-REGISTER ADDRESS INFO ( [IH WORD] )               MCG          239     A     
 MCG       TFU      BSS    12          TIME FU(I) AVAILABLE                                MCG          240     A     
 MCG       LST      BSS    2           COMPLETION TIME OF LAST STORE ( 6600 )              MCG          241     A     
 MCG       LLT      EQU    LST+1       COMPLETION TIME OF LAST LOAD                        MCG          242     A     
 MCG       LXR      BSS    1           LOCKED X AND B-REGISTERS                            MCG          243     A     
 MCG       NGX      BSS    1           N.GENERATED XMITS                                   MCG          244     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3374    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG       T        BSS    1           CURRENT SIMULATION TIME ( MINOR CYCLES )            MCG          245     A     
 MCG       PC       ENTRY. 0           PARCEL COUNT ( 0 - 3 )                              MCG          246     A     
 MCG       TRS      BSS    1           BIT I SET IF A RESULT WILL BE READY AT T+I          MCG          247     A     
 MCG       L.CLC    EQU    *-F.CLC    '                                                    MCG          248     A     
 MCG                                                                                       MCG          249     A     
 MCG       JLR      CON    0           BIT(47-REGNO) SET FOR REGISTERS LOCKED              MCG          250     A     
 MCG      *                            UNTIL NEXT UNCONDITIONAL JUMP.                      MCG          251     A     
 MCG       LRM      BSS    2           LOCKED REG MODE, INITIAL PIT LENGTH                 MCG          252     A     
 MCG       EOQA     CON    0           ADDRESS OF *EOQ* PROCESSOR                          MCG          253     A     
 MCG       IIP      BSS    2           ISSUED INST PTR ( *PIT* ADDR ) / O.PIT              MCG          254     A     
 MCG       EIW      BSS    1           -(NUMBER OF EXTRA PIT WORDS LEFT) JAM MODE          MCG          255     A     
 MCG                                                                                       MCG          256     A     
 MCG      *         RBV - REGISTER BIT VALUE TABLE ( *SO* REGNO ORDER )                    MCG          257     A     
 MCG                                                                                       MCG          258     A     
 MCG       RBV      BSS    0                                                               MCG          259     A     
 MCG                ECHO   1,N=(0,1,2,3,4,5,6,7)                                           MCG          260     A     
 MCG                CON    FX.B_N                                                          MCG          261     A     
 MCG                BSSZ   8           A-REGISTERS                                         MCG          262     A     
 MCG                ECHO   1,N=(0,1,2,3,4,5,6,7)                                           MCG          263     A     
 MCG                CON    FX.X_N                                                          MCG          264     A     
 MCG                                                                                       MCG          265     A     
 MCG                USE    /TABLES/                                                        MCG          266     A     
 MCG       SVL      BSS    100B        SAVED LINK WORDS                                    MCG          267     A     
 MCG                USE    0                                                               MCG          268     A     
 MCG                                                                                       MCG          269     A     
 MCG       DTT      BSS    1           DELTA T TABLE                                       MCG          270     A     
 MCG                ECHO   1,D=(DELTAT,8,16,32)                                            MCG          271     A     
 MCG                VFD    15/D                                                            MCG          272     A     
 MCG       TABLES   TITLE  TABLE DEFINATIONS                                               MCG          273     A     
 MCG      **        USES INDEX ( SUCCESSOR ) TABLE                                         MCG          274     A     
 MCG                                                                                       MCG          275     A     
 MCG                DESCRIBE U.,60                                                         MCG          276     A     
 MCG       LAST     DEFINE 1           "0 IF LAST EDGE OF A GROUP                          MCG          277     A     
 MCG       EQV      DEFINE 1           EQV  ( DATA INTERFERENCE ) LINK                     MCG          278          I
          -FCC0448
 MCG                DEFINE 4                                                               MCG          279          I
          -FCC0448
 MCG       RDL      DEFINE 1           REGISTER REDEFINITION LINK                          FCC0448      147     A     
 MCG       EQV      DEFINE 1           DATA INTERFERENCE LINK                              FCC0448      148     A     
 MCG                DEFINE 3                                                               FCC0448      149     A     
 MCG       PRED     DEFINE 18          INDEX TO *TXT* OF PRED                              MCG          280     A     
 MCG       LST      DEFINE 18          LATE START TIME OF SUCCESSOR                        MCG          281     A     
 MCG       SUCC     DEFINE 18          INDEX TO *TXT* OF SUCCESSOR                         MCG          282     A     
 MCG       INFO     SPACE  2                                                               MCG          283     A     
 MCG      *         LINK INFORMATION WORD    ( INFO SETUP BY *BDT* )                       MCG          284     A     
 MCG                                                                                       MCG          285     A     
 MCG                DESCRIBE I.,60                                                         MCG          286     A     
 MCG       II       DEFINE 1           "0 IF INSTRUCTION IS ISSUED ( POSTED )              MCG          287     A     
 MCG       IC       DEFINE 1           "0 IS INSTRUCTION ON ISSUE CANDIDATE LIST           MCG          288     A     
 MCG                DEFINE 1                                                               MCG          289     A     
 MCG       USES     DEFINE 9                                                               MCG          290     A     
 MCG       INDX     DEFINE 15          INDEX TO *TREE* OF SUCCESSORS OF INSTRUCTION        MCG          291     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3375    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG       LST      DEFINE 15          LATE START TIME                                     MCG          292     A     
 MCG       NPRED    DEFINE 18          NUMBER OF UNISSUED PREDECESSORS                     MCG          293     A     
 MCG                                                                                       MCG          294     A     
 MCG       LINK     DEQU   NPRED       INDEX TO NEXT ON ISSUE CANIDATE LIST                MCG          295     A     
 MCG       REG      DEQU   NPRED       REGISTER NUMBER THAT *RI* IS IN ( ISSUED )          MCG          296     A     
 MCG       PBI      SPACE  2                                                               MCG          297     A     
 MCG      **        FORMAT OF SAVED PREVIOUS BEST INSTRUCTION INFO                         MCG          298     A     
 MCG                                                                                       MCG          299     A     
 MCG                DESCRIBE PB.,60    FIRST WORD                                          MCG          300     A     
 MCG       REG      DEFINE 12          PACKED REGISTER ORDINAL                             MCG          301     A     
 MCG                DEFINE 12                                                              MCG          302     A     
 MCG       TEX      DEFINE 18          EXECUTION TIME                                      MCG          303     A     
 MCG       TIS      DEFINE 18          ISSUE TIME                                          MCG          304     A     
 MCG                                                                                       MCG          305     A     
 MCG                DESCRIBE PB.,60    SECOND WORD                                         MCG          306     A     
 MCG       FU       DEFINE 12          PACKED FUNIT ORDINAL                                MCG          307     A     
 MCG                DEFINE 12                                                              MCG          308     A     
 MCG       PI       DEFINE 18          INDEX TO *TXT* OF PREVIOUS INST                     MCG          309     A     
 MCG       LI       DEFINE 18          INDEX TO *TXT* OF PREVIOUS BEST INST                MCG          310     A     
 MCG       REGAS    SPACE  3                                                               MCG          311     A     
 MCG      **        THE FOLLOWING REGISTER ASSIGNMENTS ARE HELD OVER MOST OF *MCG*         MCG          312     A     
 MCG      *                                                                                MCG          313     A     
 MCG      *         (B1) = 1  , B2 - SCRATCH                                               MCG          314     A     
 MCG      *         B3 - REGNO                                                             MCG          315     A     
 MCG      *         B4 - T(EX) EXECUTION START TIME OF CURRENT INSTRUCTION                 MCG          316     A     
 MCG      *         B5 - T(IS) ISSUE TIME OF CURRENT INSTRUCTION                           MCG          317     A     
 MCG      *         B6 - TIS(PBI) IN *SNI*, *DRR*, ETC., ELSE SCRATCH                      MCG          318     A     
 MCG       TB       MICRO  1,,/B7/     O.TXT + 3                                           MCG          319     A     
 MCG       PI       MICRO  1,,/A0/     *TXT* INDEX OF PREVIOUS INSTRUCTION                 MCG          320     A     
 MCG       DI       MICRO  1,,/A4/     ADDRESS OF DESCRIPTOR OF CURRENT INST               MCG          321     A     
 MCG       RN       MICRO  1,,/-X0*/   R-NUMBER EXTRACTOR MASK                             MCG          322     A     
 MCG                                                                                       MCG          323     A     
 MCG      *         THE OTHER X-REGISTERS MAY BE USED AS SCRATCH .                         MCG          324     A     
 MCG       MCG      TITLE  CONTROL / INITIALIZATION                                        MCG          325     A     
 MCG                LIST   F,R                                                             MCG          326     A     
 MCG                                                                                       MCG          327     A     
 MCG      **        MCG - MACHINE CODE GENERATOR ( CONTROL / MAIN LOOP )                   MCG          328     A     
 MCG      *                                                                                MCG          329     A     
 MCG      *         ENTRY  (X6) = LRM , " 0 IF LOCKED X-REGISTERS                          MCG          330     A     
 MCG      *                                                                                MCG          331     A     
 MCG      *         EXIT   (X6) = FAIL , " 0 IF SCHEDULER COULDNT CODE THE                 MCG          332     A     
 MCG      *                SEQUENCE WITH LOCKED REGISTERS.                                 MCG          333     A     
 MCG                                                                                       MCG          334     A     
 MCG       MCG      ENTRY. **                                                              MCG          335     A     
 MCG                SA1    L.PIT                                                           MCG          336     A     
 MCG                SX7    X1+                                                             MCG          337     A     
 MCG                SA6    LRM         LRM = FLAG                                          MCG          338     A     
 MCG                SA7    A6+1        IPL = L.PIT   */ SAVE INITIAL *PIT* LENGTH          MCG          339     A     
 MCG                                                                                       MCG          340     A     
 MCG       #MD      IFGE   .CPU,74                                         ?66/76          MCG          341     A     
 MCG                SA5    L.TXT                                                           MCG          342     A     
 MCG                SA1    =XOPT2                                                          MCG          343     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3376    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SB2    X5-4*64                                                         MCG          344     A     
 MCG                SA2    =XWB                                                            MCG          345     A     
 MCG                PL     B2,MCG9     IF L.TXT \ 4*64                                     MCG          346     A     
 MCG                                                                                       MCG          347     A     
 MCG                NZ     X1,MCG1     IF OPT2 " 0                                         MCG          348     A     
 MCG                SX3    X2-1                                                            MCG          349     A     
 MCG                NZ     X3,MCG9     IF WB " 1     */ NOT OPT=1 & INNERMOST LOOP         MCG          350     A     
 MCG                                                                                       MCG          351     A     
 MCG       MCG1     SA5    O.TXT                                                           MCG          352     A     
 MCG                CALL   CRW         COMPUTE REG WIDTH                                   MCG          353     A     
 MCG                PRINT  MCG,(*  LINENR,REGW =*2I5),(=XLINENR,X6)                        MCG          354     A     
 MCG                SB6    X6                                                              MCG          355     A     
 MCG                SB7    9                                                               MCG          356     A     
 MCG                LT     B6,B7,MCG2  IF MAXW @ 8                                         MCG          357     A     
 MCG                GT     B6,B7,MCG9  IF MAXW > 9                                         MCG          358     A     
 MCG                                                                                       MCG          359     A     
 MCG       MCG2     SA1    DTT+1                                                           MCG          360     A     
 MCG                SB7    B7-B1                                                           MCG          361     A     
 MCG                BX7    X1          DTT = DTT(2)  */ SET INCREMENT VALUES               MCG          362     A     
 MCG                LT     B6,B7,MCG3  IF MAXW < 8                                         MCG          363     A     
 MCG                AX7    15          DTT = SHIFT(DTT,-15)  */ SET FOR 3 TRIES            MCG          364     A     
 MCG       MCG3     SA7    A1-B1                                                           MCG          365     A     
 MCG                MX6    0                                                               MCG          366     A     
 MCG                CALL   BDT         FORM THE DEPENDENCY GRAPH                           MCG          367     A     
 MCG                                                                                       MCG          368     A     
 MCG      *         SAVE THE LINK WORDS                                                    MCG          369     A     
 MCG                                                                                       MCG          370     A     
 MCG                SA1    O.TXT                                                           MCG          371     A     
 MCG                SA2    N.INST                                                          MCG          372     A     
 MCG                SA5    X1+3                                                            MCG          373     A     
 MCG                SB2    X2-1                                                            MCG          374     A     
 MCG                BX6    X5                                                              MCG          375     A     
 MCG                SA6    SVL                                                             MCG          376     A     
 MCG       MCG5     SA5    A5+4        FOR I = 1 TO N.INST;  SVL(I) = TXT(4*I)             MCG          377     A     
 MCG                SB2    B2-B1                                                           MCG          378     A     
 MCG                BX6    X5                                                              MCG          379     A     
 MCG                SA6    A6+B1                                                           MCG          380     A     
 MCG                NZ     B2,MCG5                                                         MCG          381     A     
 MCG                                                                                       MCG          382     A     
 MCG      *         TRY SCHEDULING THE SEQUENCE WITH DIFFERENT LOOK AHEAD VALUES           MCG          383     A     
 MCG      *         UNTIL IT CAN BE CODED SUCCESSFULLY ( *SIS* EXITS TO *MCG14* )          MCG          384     A     
 MCG                                                                                       MCG          385     A     
 MCG       MCG6     SA1    DTT                                                             MCG          386     A     
 MCG                MX3    -15                                                             MCG          387     A     
 MCG                BX6    -X3*X1      DT = DTT & 77777B  */ SET LOOK AHEAD VALUE          MCG          388     A     
 MCG                SA6    DT                                                              MCG          389     A     
 MCG                SX7    MCG14                                                           MCG          390     A     
 MCG                RJ     SIS         SCHEDULE THE SEQUENCE                               MCG          391     A     
 MCG                                                                                       MCG          392     A     
 MCG      *         FAILURE, RESTORE LINK WORDS AND TRY WITH A SMALLER DELTA T.            MCG          393     A     
 MCG                                                                                       MCG          394     A     
 MCG                SA1    DTT                                                             MCG          395     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3377    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                AX1    15                                                              MCG          396     A     
 MCG                BX6    X1          DTT = SHIFT(DTT,-15)  */ ADVANCE TO NEXT IN         MCG          397     A     
 MCG                SA6    A1                                                              MCG          398     A     
 MCG                ZR     X1,MCG11    IF DTT = 0    */ END OF DELTA T TABLE               MCG          399     A     
 MCG                                                                                       MCG          400     A     
 MCG                SA5    SVL                                                             MCG          401     A     
 MCG                SA1    O.TXT                                                           MCG          402     A     
 MCG                SA2    N.INST                                                          MCG          403     A     
 MCG                BX6    X5                                                              MCG          404     A     
 MCG                SB2    X2-1                                                            MCG          405     A     
 MCG                SA6    X1+3                                                            MCG          406     A     
 MCG                SB4    4                                                               MCG          407     A     
 MCG       MCG7     SA5    A5+B1       FOR I = 1 TO N.INST;  TXT(4*I) = SVL(I)             MCG          408     A     
 MCG                SB2    B2-B1                                                           MCG          409     A     
 MCG                BX6    X5                                                              MCG          410     A     
 MCG                SA6    A6+B4                                                           MCG          411     A     
 MCG                NZ     B2,MCG7                                                         MCG          412     A     
 MCG                                                                                       MCG          413     A     
 MCG                EQ     MCG6                                                            MCG          414     A     
 MCG                                                                                       MCG          415     A     
 MCG       MCG9     SX6    DELTAT                                                          MCG          416     A     
 MCG                SA6    DT          DT = DELTAT   */ SET DEFAULT DELTA T                MCG          417     A     
 MCG                                                                                       MCG          418     A     
 MCG       #MD      ENDIF                                                  ?66/76          MCG          419     A     
 MCG                                                                                       MCG          420     A     
 MCG      *         INITIALIZE FOR SCHEDULING MODE                                         MCG          421     A     
 MCG                                                                                       MCG          422     A     
 MCG       MCG10    MX6    0                                                               MCG          423     A     
 MCG                CALL   BDT         FORM THE DEPENDENCY GRAPH                           MCG          424     A     
 MCG                SX7    MCG14                                                           MCG          425     A     
 MCG                RJ     SIS         TRY AND SCHEDULE THE SEQUENCE                       MCG          426     A     
 MCG                                                                                       MCG          427     A     
 MCG      *         SCHEDULER FAILED, TRY *JAM* IF NOT *LOCKED X MODE*.                    MCG          428     A     
 MCG                                                                                       MCG          429     A     
 MCG       MCG11    SA1    LRM                                                             MCG          430     A     
 MCG                SX6    B1          FAIL = 1                                            MCG          431     A     
 MCG                MX7    0                                                               MCG          432     A     
 MCG                SA7    L.TREE      L.TREE = 0                                          MCG          433     A     
 MCG                NZ     X1,MCG      IF LRM " 0    */ LOCKED X-MODE                      MCG          434     A     
 MCG                SA1    ALR                                                             FCC0603       94     A     
 MCG                SX2    FX.LD                                                           FCC0603       95     A     
 MCG                BX3    X2*X1                                                           FCC0603       96     A     
 MCG                IX4    X2-X3                                                           FCC0603       97     A     
 MCG                NZ     X4,MCG      IF ALR&FX.LD " FX.LD  */ LOCKED A-REGISTERS         FCC0603       98     A     
 MCG                                                                                       MCG          435     A     
 MCG                RJ     /JAM/JAM    JAM CODE THE SEQUENCE                               MCG          436     A     
 MCG                                                                                       MCG          437     A     
 MCG      *         ACCUMULATE *FL* USED                                                   MCG          438          I
          -RSM2763X 
 MCG                                                                                       MCG          439          I
          -RSM2763X 
 MCG       MCG14    SA1    L.TXT                                                           MCG          440          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3378    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
          -RSM2763X 
 MCG                SA3    =XOPT2                                                          MCG          441          I
          -RSM2763X 
 MCG                SA2    =XMX.TXT                                                        MCG          442          I
          -RSM2763X 
 MCG                ZR     X3,MCG16    IF OPT2 = 0                                         MCG          443          I
          -RSM2763X 
 MCG                IX6    X1-X2                                                           MCG          444          I
          -RSM2763X 
 MCG                MI     X6,MCG16    IF L.TXT < MX.TXT                                   MCG          445          I
          -RSM2763X 
 MCG                BX7    X1                                                              MCG          446          I
          -RSM2763X 
 MCG                SA7    A2          MX.TXT = L.TXT                                      MCG          447          I
          -RSM2763X 
 MCG                CALL   AMU=        ACCUMULATE MEMORY USED                              MCG          448          I
          -RSM2763X 
 MCG                                                                                       MCG          449          I
          -RSM2763X 
 MCG       MCG16    BSS    0                                                               MCG          450          I
          -RSM2763X 
 MCG       MCG14    BSS    0                                                               RSM2763X     368     A     
 MCG                PRNT   JAM,FINAL                                                       MCG          451     A     
 MCG                SA1    LXR                                                             MCG          452     A     
 MCG                SX6    0           FAIL = 0                                            MCG          453     A     
 MCG                SA6    L.TREE      L.TREE = 0                                          MCG          454     A     
 MCG                ZR     X1,MCG      IF LXR = 0    */ RVT IS ZERO                        MCG          455     A     
 MCG                RJ     CLR         CLEAR *RVT*                                         MCG          456     A     
 MCG                EQ     MCG                                                             MCG          457     A     
 MCG       SIS      SPACE  3,14        SIS                                                 MCG          458     A     
 MCG      **        SIS - SCHEDULE INSTRUCTION SEQUENCE                                    MCG          459     A     
 MCG      *                                                                                MCG          460     A     
 MCG      *         ENTRY  (X7) = SUCCESS EXIT ADDRESS                                     MCG          461     A     
 MCG      *                                                                                MCG          462     A     
 MCG      *         EXIT   RETURNS TO CALLER IF CANNOT CODE SEQUENCE, ELSE TO              MCG          463     A     
 MCG      *                SUCCESS EXIT.                                                   MCG          464     A     
 MCG                                                                                       MCG          465     A     
 MCG       SIS0     SA1    LRM+1                                                           MCG          466     A     
 MCG                SX7    X1+         L.PIT = IPL   */ RESTORE *PIT* LENGTH               MCG          467     A     
 MCG                SA7    L.PIT                                                           MCG          468     A     
 MCG                RJ     CLR         CLEAR *RVT*                                         MCG          469     A     
 MCG                                                                                       MCG          470     A     
 MCG       SIS      ROUTINE                                                                MCG          471     A     
 MCG                SX0    0                                                               MCG          472     A     
 MCG                RJ     PRS         PRESET STORAGE                                      MCG          473     A     
 MCG       #MD      IFGE   .CPU,74                                         ?66/76          MCG          474     A     
 MCG                SA1    DT                                                              MCG          475     A     
 MCG                SA2    SNIB                                                            MCG          476     A     
 MCG                LX1    30                                                              MCG          477     A     
 MCG                BX7    X1+X2       PLUG *DT* IN *SNI*                                  MCG          478     A     
 MCG                SA7    SNI.P                                                           MCG          479     A     
 MCG       #MD      ENDIF                                                  ?66/76          MCG          480     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3379    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                EQ     SIS2                                                            MCG          481     A     
 MCG                                                                                       MCG          482     A     
 MCG       SIS1     RJ     AIL         ADJUST THE ISSUE LIST                               MCG          483     A     
 MCG                RJ     DUC         DECREMENT USES COUNTS                               MCG          484     A     
 MCG                SA4    "DI"                                                            MCG          485     A     
 MCG                RJ     ASC         ADVANCE THE CLOCKS                                  MCG          486     A     
 MCG                SA5    "DI"-2      R1 = DI - 2                                         MCG          487     A     
 MCG                RJ     SII         SAVE THE ISSUED INSTRUCTION                         MCG          488     A     
 MCG                                                                                       MCG          489     A     
 MCG       SIS2     RJ     SNI         SELECT THE NEXT INSTRUCTION TO ISSUE                MCG          490     A     
 MCG                PL     B3,SIS1     IF REGNO > 0  */ ISSUABLE INSTRUCTION FOUND         MCG          491     A     
 MCG       SIS      SPACE  1,10                                                            MCG          492     A     
 MCG      *         CHECK FOR A STORE REGISTER JAM, AND GENERATE AN *XMT*                  MCG          493     A     
 MCG      *         IF POSSIBLE.                                                           MCG          494     A     
 MCG                                                                                       MCG          495     A     
 MCG                SA1    AXR                                                             MCG          496     A     
 MCG                SA5    NGX                                                             MCG          497     A     
 MCG                SX2    FX.ST                                                           MCG          498     A     
 MCG                SX3    FX.SCR                                                          MCG          499     A     
 MCG                BX2    X2*X1                                                           MCG          500     A     
 MCG                BX3    X3*X1                                                           MCG          501     A     
 MCG                NZ     X2,SIS0     IF AXR & FX.ST " 0  */ NOT ST-REG JAM               MCG          502     A     
 MCG                ZR     X3,SIS0     IF AXR & FX.SCR = 0  */ ALL REGS IN USE             MCG          503     A     
 MCG                SB3    X5-MAX.GX                                                       MCG          504     A     
 MCG                ZR     B3,SIS0     IF NGX = MAX.GX  */ GEN XMT LIMIT REACHED           MCG          505     A     
 MCG                                                                                       MCG          506     A     
 MCG      *         FIND A ST-REG WHOSE RESULT CAN BE MOVED TO ANOTHER REGISTER.           MCG          507     A     
 MCG                                                                                       MCG          508     A     
 MCG                SB4    RN.X0+6     REGF = X6     */ TRY X6                             MCG          509     A     
 MCG                RJ     CSR                                                             MCG          510     A     
 MCG                ZR     X7,SIS3     IF CSR(REGF) = 0  */ RESULT CAN BE MOVED            MCG          511     A     
 MCG                SB4    B4+1        REGF = X7                                           MCG          512     A     
 MCG                RJ     CSR                                                             MCG          513     A     
 MCG                NZ     X7,SIS0     IF CSR(REGF) " 0                                    MCG          514     A     
 MCG                                                                                       MCG          515     A     
 MCG       SIS3     SA1    AXR                                                             MCG          516     A     
 MCG                SA2    T                                                               MCG          517     A     
 MCG                SX5    FX.SCR+FX.XT                                                    MCG          518     A     
 MCG                BX7    X1*X5       AVAIL = AXR & FX.SCR                                MCG          519     A     
 MCG                NX6    B3,X7                                                           MCG          520     A     
 MCG                SB5    X2+         T(IS) = T                                           MCG          521     A     
 MCG                SA3    B3+FXRA+16-47                                                   MCG          522     A     
 MCG                SA2    TRA+X3                                                          MCG          523     A     
 MCG                SB2    X2                                                              MCG          524     A     
 MCG                SB3    X3          REGR = FXR( SCR )  */ RESULT REG                    MCG          525     A     
 MCG                LE     B2,B5,SIS4  IF TRA(REGR) @ T(IS)                                MCG          526     A     
 MCG                SB5    B2          T(IS) = TRA(REGR)                                   MCG          527     A     
 MCG       SIS4     SB2    OC.XMT                                                          MCG          528     A     
 MCG                RJ     /JAM/OXI    OUTPUT AN *XMT* INSTRUCTION                         MCG          529     A     
 MCG                SA2    NGX                                                             MCG          530     A     
 MCG                SX6    X2+B1       NGX = NGX + 1                                       MCG          531     A     
 MCG                SA6    A2                                                              MCG          532     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3380    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                EQ     SIS2                                                            MCG          533     A     
 MCG       CSR      SPACE  3,14        CSR                                                 MCG          534     A     
 MCG      **        CSR - CHECK SPECIFIED REGISTER TO SEE IF THE RESULT IN IT              MCG          535     A     
 MCG      *         CAN BE MOVED TO ANOTHER REGISTER ( ^PRS , ETC).                        MCG          536     A     
 MCG      *                                                                                MCG          537     A     
 MCG      *         ENTRY  (B4) = REGF , REGNO OF REGISTER TO BE CHECKED.                  MCG          538     A     
 MCG      *                                                                                MCG          539     A     
 MCG      *         EXIT   (X7) = PSF = 0 IF RESULT IN REGF CAN BE MOVED                   MCG          540     A     
 MCG                                                                                       MCG          541     A     
 MCG       CSR4     LX4    D.PSP-D.PRSP                                                    MCG          542     A     
 MCG                MX6    1                                                               MCG          543     A     
 MCG                BX7    X6*X4       PSF = PRS[DI] */ MOVABLE IF ^PRS                    MCG          544     A     
 MCG                                                                                       MCG          545     A     
 MCG       CSR      ROUTINE                                                                MCG          546     A     
 MCG                SA1    RVT+B4      R = RVT(REGF)                                       MCG          547     A     
 MCG                SB6    "TB"-B1                                                         MCG          548     A     
 MCG                SA4    B6+X1       DI = BASE-1 + R                                     MCG          549     A     
 MCG                LX4    59-D.PIP                                                        MCG          550     A     
 MCG                MI     X4,CSR3     IF PI[DI]     */ PSEUDO INSTRUCTION                 MCG          551     A     
 MCG                LX4    D.PIP-D.PSP                                                     MCG          552     A     
 MCG                PL     X4,CSR4     IF ^PS[DI]                                          MCG          553     A     
 MCG                                                                                       MCG          554     A     
 MCG      *         RESULT *PS*, CHECK UNISSUED SUCCESSORS OF *R*                          MCG          555     A     
 MCG                                                                                       MCG          556     A     
 MCG       CSR0     SA5    A4+B1       LI = DI + 1                                         MCG          557     A     
 MCG                MX7    -I.INDXL    PSF = 1                                             MCG          558     A     
 MCG                SA2    O.TREE                                                          MCG          559     A     
 MCG                LX5    -I.INDXP                                                        MCG          560     A     
 MCG                BX6    -X7*X5                                                          MCG          561     A     
 MCG                SB2    X2                                                              MCG          562     A     
 MCG                SA3    B2+X6       UI = O.TREE + INDX[LI]                              MCG          563     A     
 MCG                                                                                       MCG          564     A     
 MCG       CSR1     LX3    -U.SUCCP                                                        MCG          565     A     
 MCG                SA5    "TB"+X3     SI = BASE + SUCC[UI]                                MCG          566     A     
 MCG                LX5    59-I.IIP                                                        MCG          567     A     
 MCG                MI     X5,CSR2     IF II[SI]     */ ISSUED                             MCG          568     A     
 MCG                SA1    A5-B1       D = SI - 1                                          MCG          569          I
          -FCC0393
 MCG                LX1    59-D.STP                                                        MCG          570          I
          -FCC0393
 MCG       #DAL     IFEQ   .DAL,0                                                          MCG          571          I
          -FCC0393
 MCG                MI     X1,CSR      IF ST[D]      */ UNISSUED *ST*                      MCG          572          I
          -FCC0393
 MCG       #DAL     ELSE                                                                   MCG          573          I
          -FCC0393
 MCG                PL     X1,CSR2     IF ^ST[D]                                           MCG          574          I
          -FCC0393
 MCG                LX1    D.STP-D.L2P                                                     MCG          575          I
          -FCC0393
 MCG                PL     X1,CSR      IF ^L2[D]                                           MCG          576          I
          -FCC0393
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3381    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG       #DAL     ENDIF                                                                  MCG          577          I
          -FCC0393
 MCG                SA2    A5-3        R1S = SI - 3                                        FCC0393        6     A     
 MCG                BX5    X2-X1                                                           FCC0393        7     A     
 MCG                BX6    "RN"X5                                                          FCC0393        8     A     
 MCG                NZ     X6,CSR2     IF RI[R1S] " R  */ NOT USED IN *RI*                 FCC0393        9     A     
 MCG                SA2    A5-B1       D = SI - 1                                          FCC0393       10     A     
 MCG                LX2    59-D.STP                                                        FCC0393       11     A     
 MCG                PL     X2,CSR2     IF ^ST[D]                                           FCC0393       12     A     
 MCG                LX2    D.STP-D.L2P                                                     FCC0393       13     A     
 MCG                PL     X2,CSR      IF ^L2[D]     */ UNISSUED STORE                     FCC0393       14     A     
 MCG       CSR2     BX6    X3          UL = UI                                             MCG          578     A     
 MCG                SA3    A3+B1       UI = UI + 1                                         MCG          579     A     
 MCG                LX6    U.SUCCP+59-U.LASTP                                              MCG          580     A     
 MCG                PL     X6,CSR1     IF ^LAST[UL]                                        MCG          581     A     
 MCG                                                                                       MCG          582     A     
 MCG                MX7    0           PSF = 0                                             MCG          583     A     
 MCG                EQ     CSR                                                             MCG          584     A     
 MCG                                                                                       MCG          585     A     
 MCG       CSR3     SA5    A4-2        R1 = DI - 2   */ INSTRUCTION IS A *DEF*             MCG          586     A     
 MCG                MX6    1                                                               MCG          587     A     
 MCG                LX5    58-R1.SOP-SO.LKP                                                MCG          588     A     
 MCG                BX7    X6*X5       PSF = SOLK[R1]/2  */ =1 IF A FULL LOCK              MCG          589     A     
 MCG                NZ     X7,CSR      IF PSF " 0                                          MCG          590     A     
 MCG                EQ     CSR0                                                            MCG          591     A     
 MCG       CLR      SPACE  3,10        CLR                                                 MCG          592     A     
 MCG      **        CLR - CLEAR *RVT*                                                      MCG          593     A     
 MCG                                                                                       MCG          594     A     
 MCG       CLR1     SA7    A6+B1       FOR I = 1 TO 23; RVT(I) = 0                         MCG          595     A     
 MCG                LX5    1                                                               MCG          596     A     
 MCG                SA6    A7+1                                                            MCG          597     A     
 MCG                MI     X5,CLR1                                                         MCG          598     A     
 MCG       CLR      ROUTINE                                                                MCG          599     A     
 MCG                SX6    B0                                                              MCG          600     A     
 MCG                MX5    22/2                                                            MCG          601     A     
 MCG                SX7    0                                                               MCG          602     A     
 MCG                SA6    RVT+1                                                           MCG          603     A     
 MCG                EQ     CLR1                                                            MCG          604     A     
 MCG       PRS      SPACE  3,24        PRS                                                 MCG          605     A     
 MCG      **        PRS - PRESET STORAGE ( INITIALIZATION )                                MCG          606     A     
 MCG      *                                                                                MCG          607     A     
 MCG      *         ENTRY  (X7) = *EOQ* PROCESSOR ADDRESS                                  MCG          608     A     
 MCG      *                (X0) = CODE MODE, 0/1 = NORMAL/JAM                              MCG          609     A     
 MCG                                                                                       MCG          610     A     
 MCG       PRS      ROUTINE                                                                MCG          611     A     
 MCG                SA7    EOQA        EOQA = EOQP                                         MCG          612     A     
 MCG                IFNE   .IWT,0,2                                                        MCG          613     A     
 MCG                SX6    .IWT                                                            MCG          614     A     
 MCG                SA6    IWT         IWT = .IWT    */ SET INTERWORD TIME                 MCG          615     A     
 MCG                SX7    FX+FB                                                           MCG          616     A     
 MCG                MX5    L.CLC/2                                                         MCG          617     A     
 MCG                PX7    X7                                                              MCG          618     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3382    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA7    AXR         AXR = PACK( 0 , FX + FB )                           MCG          619     A     
 MCG                SX6    FX.LD+FX.XT                                                     MCG          620     A     
 MCG                SA6    ALR         ALR = FX.LD                                         MCG          621     A     
 MCG                SX7    B0                                                              MCG          622     A     
 MCG                MX6    0                                                               MCG          623     A     
 MCG                                                                                       MCG          624     A     
 MCG                SA7    F.CLC       FOR I = 0 TO L.CL , CLC(I) = 0                      MCG          625     A     
 MCG       PRS1     SA6    A7+B1                                                           MCG          626     A     
 MCG                LX5    1                                                               MCG          627     A     
 MCG                NO                                                                     MCG          628     A     
 MCG                SA7    A6+B1                                                           MCG          629     A     
 MCG                MI     X5,PRS1                                                         MCG          630     A     
 MCG                                                                                       MCG          631     A     
 MCG                SA5    N.INST      WDS = N.INST                                        MCG          632     A     
 MCG                ZR     X0,PRS2     IF MODE = 0   */ NOT JAM MODE                       MCG          633     A     
 MCG                BX7    -X5                                                             MCG          634     A     
 MCG                LX5    1           WDS = 2*N.INST                                      MCG          635     A     
 MCG                SA7    EIW         EIW = -N.INST                                       MCG          636     A     
 MCG                ALLOC  OTI,30B     ALLOC OTI,30B                                       MCG          637     A     
 MCG                                                                                       MCG          638     A     
 MCG       PRS2     ALLOC  PIT,X5+MAX.GX     ALLOC( PIT , WDS+MAX.GX )                     MCG          639          I
          -FEAT155A 
 MCG                SA4    =XPARCEL                                                        MCG          640          I
          -FEAT155A 
 MCG       PRS2     ALLOC  PIT,X5+MAX.GX+1   ALLOC( PIT , WDS+MAX.GX+1 )                   FEAT155A      87     A     
 MCG                SA5    =XPARCEL                                                        FEAT155A      88     A     
 MCG                SB5    B6+B1                                                           MCG          641     A     
 MCG                BX7    X2                                                              MCG          642     A     
 MCG                SA7    IIP+1       IIP(2) = O.PIT                                      MCG          643     A     
 MCG                SX6    X2+B5                                                           MCG          644     A     
 MCG                SA6    A7-B1       IIP(1) = O.PIT + OLD(L.PIT) + 1                     MCG          645     A     
 MCG                BX7    X4                                                              MCG          646          I
          -FEAT155A 
 MCG                BX7    X5                                                              FEAT155A      89     A     
 MCG                SA7    PC          PC = PARCEL                                         MCG          647     A     
 MCG                                                                                       MCG          648     A     
 MCG      *         SET UP THE ISSUE CANDIDATE LIST BY ISSUING THE *BOS*                   MCG          649     A     
 MCG                                                                                       MCG          650     A     
 MCG                PRNT   JAM,HEAD                                                        MCG          651     A     
 MCG                SA3    O.TXT                                                           MCG          652     A     
 MCG                SB7    X3+3        BASE = O.TXT + 3                                    MCG          653     A     
 MCG                SA4    X3                                                              MCG          654     A     
 MCG                SB3    B0                                                              MCG          655     A     
 MCG                BX7    X4          [IIP-1] = [O.TXT]  */ SET *BOS* FOR POST            MCG          656     A     
 MCG                SA7    X6-1                                                            MCG          657     A     
 MCG                S"PI"  B0                                                              MCG          658          I
          -FEAT155A 
 MCG                SA4    =XCO.ER                                                         FEAT155A      90     A     
 MCG                NZ     X5,PRS3     IF PARCEL " 0                                       FEAT155A      91     A     
 MCG                ZR     X4,PRS3     IF ER = 0     */ NO OBJ TIME RPV                    FEAT155A      92     A     
 MCG                                                                                       FEAT155A      93     A     
 MCG                MX5    -R1.INP                                                         FEAT155A      94     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3383    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                BX7    X5*X7                                                           FEAT155A      95     A     
 MCG                SX4    200B                                                            FEAT155A      96     A     
 MCG                SB2    OC.STT                                                          FEAT155A      97     A     
 MCG                UX5    X7                                                              FCC2531        6     A     
 MCG                ZR     X5,PRS3     IF LINE NUMBER ZERO                                 FCC2531        7     A     
 MCG                PX7    B2,X7                                                           FEAT155A      98     A     
 MCG                BX7    X4+X7                                                           FEAT155A      99     A     
 MCG                SA7    A7+B1       [IIP] = SI(OC.STT,LINE,200B)                        FEAT155A     100     A     
 MCG                SX6    X6+B1       IIP = IIP + 1                                       FEAT155A     101     A     
 MCG                SA6    A6                                                              FEAT155A     102     A     
 MCG                SX7    B1+B1                                                           FEAT155A     103     A     
 MCG                SA7    PC          PC = 2                                              FEAT155A     104     A     
 MCG                                                                                       FEAT155A     105     A     
 MCG       PRS3     S"PI"  B0                                                              FEAT155A     106     A     
 MCG                SA5    "TB"                                                            MCG          659     A     
 MCG                RJ     AIL         INITIALIZE THE ISSUE LIST                           MCG          660     A     
 MCG                                                                                       MCG          661          I
          -FCC2535
 MCG                RJ     SSP         SET STORE PREDECESSOR COUNT                         FCC2535        9     A     
 MCG                EQ     PRS                                                             FCC2535       10     A     
 MCG       SSP      SPACE  3,14                                                            FCC2535       11     A     
 MCG      **        SSP - SET STORE PREDECESSOR ( N.SP ) FOR A SUBSEQUENCE                 FCC2535       12     A     
 MCG      *                                                                                FCC2535       13     A     
 MCG      *         ENTRY  (X4) = [DI] OF INSTRUCTION JUST ISSUED                          FCC2535       14     A     
 MCG                                                                                       FCC2535       15     A     
 MCG       SSP      ROUTINE                                                                FCC2535       16     A     
 MCG                LX4    -D.USESP                                                        MCG          662     A     
 MCG                MX5    -D.USESL                                                        MCG          663     A     
 MCG                BX2    -X4+X5                                                          MCG          664     A     
 MCG                MX7    0                                                               MCG          665     A     
 MCG                SX6    X2+B1                                                           MCG          666     A     
 MCG                SA6    N.SP        N.SP = -(USES[DI]-1)                                MCG          667     A     
 MCG                SA7    STL         STL = 0                                             MCG          668     A     
 MCG                AX3    B1,X2                                                           MCG          669     A     
 MCG                ZR     X3,PRS      IF N.SP @ 1                                         MCG          670          I
          -FCC2535
 MCG                ZR     X3,SSP      IF N.SP .LE. 1                                      FCC2535       17     A     
 MCG                SX7    -FX.X6                                                          MCG          671     A     
 MCG                SA7    A7          STL = -FX.X6                                        MCG          672     A     
 MCG                EQ     PRS                                                             MCG          673          I
          -FCC2535
 MCG                EQ     SSP                                                             FCC2535       18     A     
 MCG                TTL    MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION            MCG          674     A     
 MCG       SNI      TITLE  SNI - SELECT NEXT INSTRUCTION TO ISSUE                          MCG          675     A     
 MCG      **        SNI - SELECT NEXT INSTRUCTION TO BE POSTED ( ISSUED ) FROM             MCG          676     A     
 MCG      *         THE *ICL* ( ISSUE CANIDATE LIST ).                                     MCG          677     A     
 MCG      *         SCAN INSTRUCTIONS ON *ICL* FOR ONE THAT IS EXECUTABLE AT THE           MCG          678     A     
 MCG      *         CURRENT TIME, OR ONE WITH THE BEST ISSUE ( T(IS) ) AND                 MCG          679     A     
 MCG      *         EXECUTE TIME ( T(EX) ) ( EARLIEST START TIME ).                        MCG          680     A     
 MCG      *         NOTE - PSEUDO INSTRUCTIONS AND BOUNDARY MARKERS ARE ISSUED             MCG          681     A     
 MCG      *                FROM *DRR*.                                                     MCG          682     A     
 MCG      *                                                                                MCG          683     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3384    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG      *         EXIT   (B3) = REGNO OF ISSUABLE INST, < 0 IF NONE FOUND                MCG          684     A     
 MCG      *                (B4,B5) = T(EX), T(IS)                                          MCG          685     A     
 MCG      *                (A5) = LI ( ADDRESS OF LINK WORD OF ISSUABLE INSTRUCTION        MCG          686     A     
 MCG      *                (A0) = *TXT* INDEX OF PREVIOUS INSTRUCTION                      MCG          687     A     
 MCG      *                PBI WORDS SET.                                                  MCG          688     A     
 MCG                                                                                       MCG          689     A     
 MCG       SNIA     BSS    1           TEMP TO SAVE FUNIT ORDINAL                          MCG          690     A     
 MCG                                                                                       MCG          691     A     
 MCG       SNI      ROUTINE                                                                MCG          692     A     
 MCG                                                                                       MCG          693     A     
 MCG       SNI0     SA4    PBI-1                                                           MCG          694     A     
 MCG                SA3    ICL         CI = ICL                                            MCG          695     A     
 MCG                S"PI"  B0          PI = 0                                              MCG          696     A     
 MCG                BX6    X4                                                              MCG          697     A     
 MCG                SA6    A4+B1       PBI = PB1(FALSE,0,INFINITY,INFINITY)                MCG          698     A     
 MCG                SB6    X4          TIS[PBI] = INFINITY                                 MCG          699     A     
 MCG                                                                                       MCG          700     A     
 MCG      *         GET INST DESCR, CHECK FOR FIT IN CURRENT WORD                          MCG          701     A     
 MCG                                                                                       MCG          702     A     
 MCG       SNI1     SB4    X3+"TB"     LI = CI + BASE                                      MCG          703     A     
 MCG                SA2    T                                                               MCG          704     A     
 MCG                SA4    B4-B1       DI = LI - 1  ( DESCR)                               MCG          705     A     
 MCG                SB5    X2          T(IS) = T                                           MCG          706     A     
 MCG                LX4    58-D.SZP                                                        MCG          707     A     
 MCG                PL     X4,SNI4     IF SZ[DI] < 2 */ NO POSSIBLE SIZE FAULT             MCG          708     A     
 MCG                SA3    PC                                                              MCG          709     A     
 MCG                MX7    -2                                                              MCG          710     A     
 MCG                BX6    X3+X7                                                           MCG          711     A     
 MCG                NZ     X6,SNI4     IF PC " 3     */ NOT IN LAST PARCEL OF WORD         MCG          712     A     
 MCG                BX2    X4                                                              MCG          713     A     
 MCG                LX2    1+D.SZP-D.SRP                                                   MCG          714     A     
 MCG                PL     X2,SNI3     IF ^SR[DI]    */ NOT SIZE REDUCABLE                 MCG          715     A     
 MCG                                                                                       MCG          716     A     
 MCG      *         INSTRUCTION IS SIZE REDUCEABLE, CHECK A-REGISTERS TO SEE IF            MCG          717     A     
 MCG      *         ADDRESS IS IN ONE OF THEM.                                             MCG          718     A     
 MCG                                                                                       MCG          719     A     
 MCG                SA2    ARA+7       I = ARA(8)                                          MCG          720     A     
 MCG                SA3    "DI"-B1     R2 = DI - 1                                         MCG          721     A     
 MCG                SB2    ARA-1                                                           MCG          722     A     
 MCG                BX6    X3                                                              MCG          723     A     
 MCG                SA6    B2+B1       ARA(1) = [R2]                                       MCG          724     A     
 MCG                                                                                       MCG          725     A     
 MCG       SNI2     BX7    X3-X2                                                           MCG          726     A     
 MCG                SA2    A2-B1       I = I - 1                                           MCG          727     A     
 MCG                NZ     X7,SNI2     IF [I+1] " [R2]                                     MCG          728     A     
 MCG                SB3    A2-B2                                                           MCG          729     A     
 MCG                ZR     B3,SNI3     IF I = 0    */ MATCH WITH SEARCH TERMINATOR         MCG          730     A     
 MCG                                                                                       MCG          731     A     
 MCG                SA2    TRA+RN.A0+B3              */ COMPUTE TRUE ISSUE TIME            MCG          732     A     
 MCG                SB2    X2                                                              MCG          733     A     
 MCG                LE     B2,B5,SNI4                                                      MCG          734     A     
 MCG                SB5    X2                                                              MCG          735     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3385    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                EQ     SNI4                                                            MCG          736     A     
 MCG                                                                                       MCG          737     A     
 MCG       SNI3     SA1    IWT               */ SET PENALITY FOR SIZE FAULT                MCG          738     A     
 MCG                SX2    X1+B1                                                           MCG          739     A     
 MCG                SB5    X2+B5       T(IS) = T(IS) + IWT + 1                             MCG          740     A     
 MCG                                                                                       MCG          741     A     
 MCG      *         SELECT AN AVAILABLE FUNCTIONAL UNIT                                    MCG          742     A     
 MCG                                                                                       MCG          743     A     
 MCG       SNI4     LX4    2+D.SZP-D.F1P                                                   MCG          744     A     
 MCG                MX6    -D.F1L                                                          MCG          745     A     
 MCG                BX7    -X6*X4      F = F1[DI]                                          MCG          746     A     
 MCG                                                                                       MCG          747     A     
 MCG       #MD      IFGE   .CPU,74                                         ?66/76          MCG          748     A     
 MCG                SA3    TFU+X7      TFA = TFU(F)                                        MCG          749     A     
 MCG                SB3    X3                                                              MCG          750     A     
 MCG                LE     B3,B5,SNI5  IF TFA @ T(IS)                                      MCG          751     A     
 MCG       #MDA     IFEQ   .CPU,74                                         ?6600           MCG          752     A     
 MCG                LX4    D.F1P-D.F2P                                                     MCG          753     A     
 MCG                SX1    X7                        */ CHECK SECOND FUNIT                 MCG          754     A     
 MCG                BX7    -X6*X4      F2 = F2[DI]                                         MCG          755     A     
 MCG                SA2    TFU+X7      TF2 = TFU(F2)                                       MCG          756     A     
 MCG                LX4    D.F2P-D.F1P                                                     MCG          757     A     
 MCG                SB4    X2                                                              MCG          758     A     
 MCG                LE     B4,B5,SNI5  IF TF2 @ T(IS)                                      MCG          759     A     
 MCG                SB5    B4                                                              MCG          760     A     
 MCG                LE     B4,B3,SNI5  IF TF2 @ TF1                                        MCG          761     A     
 MCG                BX7    X1                                                              MCG          762     A     
 MCG       #MDA     ENDIF                                                  '6600           MCG          763     A     
 MCG                SB5    X3          T(IS) = TF1   */ MIN(TFA,TF2)                       MCG          764     A     
 MCG       #MD      ENDIF                                                  '66/76          MCG          765     A     
 MCG                                                                                       MCG          766     A     
 MCG      *         IF T(IS) @ TIS[PBI] THEN TRY TO GET A RESULT REG, CALC T(EX)           MCG          767     A     
 MCG                                                                                       MCG          768     A     
 MCG       SNI5     GT     B5,B6,SNI6  IF T(IS) > TIS[PBI]                                 MCG          769     A     
 MCG                SA7    SNIA                                                            MCG          770     A     
 MCG                LX4    D.F1P+59-D.NRP                                                  MCG          771     A     
 MCG                RJ     DRR         CALL DRR( DI , T(IS) , T(EX) , REGNO )              MCG          772     A     
 MCG                GT     B3,SNI7     IF REGNO > 0  */ INSTRUCTION IS ISSUABLE            MCG          773     A     
 MCG                ZR     B3,SNI0     IF REGNO = 0  */ A PSEUDO INSTRUCTION               MCG          774     A     
 MCG                                                                                       MCG          775     A     
 MCG       SNI6     SA5    "DI"+B1     LI = DI + 1                                         MCG          776     A     
 MCG                EQ     SNI9                      */ NO RESULT REG AVAIL                MCG          777     A     
 MCG                                                                                       MCG          778     A     
 MCG      *         COMPARE THIS INSTRUCTION TIMING WITH THAT OF *PBI*                     MCG          779     A     
 MCG                                                                                       MCG          780     A     
 MCG       SNI7     SA5    "DI"+B1     LI = DI + 1                                         MCG          781     A     
 MCG       #MD      IFEQ   .CPU,74                                         ?6600           MCG          782     A     
 MCG                GT     B5,B6,SNI9  IF T(IS) > TIS[PBI]                                 MCG          783     A     
 MCG                SA3    PBI                                                             MCG          784     A     
 MCG                LT     B5,B6,SNI8  IF T(IS) < TIS[PBI]                                 MCG          785     A     
 MCG                LX3    -PB.TEXP                                                        MCG          786     A     
 MCG                SB2    X3                                                              MCG          787     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3386    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                GE     B4,B2,SNI9  IF T(EX) \ TEX[PBI]                                 MCG          788     A     
 MCG       #MD      ELSE                                                   '66?76          MCG          789     A     
 MCG                SA4    "DI"                                                            MCG          790     A     
 MCG                GE     B4,B6,SNI9  IF T(EX) \ TEX[PBI]                                 MCG          791     A     
 MCG       #MD      IFGT   .CPU,74                                         ?7600           MCG          792     A     
 MCG                LX4    -D.LDP                                                          MCG          793     A     
 MCG       .D       BIT    D.^DP-D.LDP                                                     MCG          794     A     
 MCG                SX6    .D+1                                                            MCG          795     A     
 MCG                SB5    B4          T(IS) = T(EX)                                       MCG          796     A     
 MCG                BX7    X6*X4                                                           MCG          797     A     
 MCG                LX4    D.LDP-D.FTP                                                     MCG          798     A     
 MCG                NZ     X7,SNI8     IF ^D[DI] ! LD[DI]                                  MCG          799     A     
 MCG                                                                                       MCG          800     A     
 MCG      *         ADJUST T(EX) TO ACCOUNT FOR THE FUNIT TO REGISTER INPUT PATH           MCG          801     A     
 MCG                                                                                       MCG          802     A     
 MCG                SA2    T                                                               MCG          803     A     
 MCG                SA1    TRS                                                             MCG          804     A     
 MCG                MX6    -D.FTL                                                          MCG          805     A     
 MCG                BX7    -X6*X4                                                          MCG          806     A     
 MCG                IX3    X7-X2                                                           MCG          807     A     
 MCG                SB2    X3+B5                                                           MCG          808     A     
 MCG                SB4    B4-B1       T(EX) = T(EX) - 1                                   MCG          809     A     
 MCG                AX1    B2,X1       XSW = SHIFT(TRS, -(T(IS)+FT[DI]-T) )                MCG          810     A     
 MCG                                                                                       MCG          811     A     
 MCG       SNI7A    LX1    -1          XSW = SHIFT( XSW , 59 )                             MCG          812     A     
 MCG                SB4    B4+B1       T(EX) = T(EX) + 1                                   MCG          813     A     
 MCG                MI     X1,SNI7A    IF XSW < 0    */ RESULT STORED AT THIS TIME         MCG          814     A     
 MCG                SB5    B4          T(IS) = T(EX)                                       MCG          815     A     
 MCG                GE     B4,B6,SNI9  IF T(EX) \ TEX[PBI]                                 MCG          816     A     
 MCG       #MD      ENDIF                                                  '7600           MCG          817     A     
 MCG                                                                                       MCG          818     A     
 MCG      *         INSTRUCTION BETTER THAN PREVIOUS BEST, SAVE INFO IN *PBI*              MCG          819     A     
 MCG                                                                                       MCG          820     A     
 MCG       SNI8     SX4    B5                                                              MCG          821     A     
 MCG                SA1    SNIA                                                            MCG          822     A     
 MCG                SX3    B4                                                              MCG          823     A     
 MCG                LX4    PB.TISP                                                         MCG          824     A     
 MCG                PX6    B3,X4                                                           MCG          825     A     
 MCG                SX7    "PI"                                                            MCG          826     A     
 MCG                LX3    PB.TEXP                                                         MCG          827     A     
 MCG                SB2    X1                                                              MCG          828     A     
 MCG                SX2    A5-"TB"                                                         MCG          829     A     
 MCG                BX6    X3+X6                                                           MCG          830     A     
 MCG                SA1    T                                                               MCG          831     A     
 MCG                LX7    PB.PIP                                                          MCG          832     A     
 MCG                LX2    PB.LIP                                                          MCG          833     A     
 MCG                PX2    B2,X2                                                           MCG          834     A     
 MCG                SA6    PBI         PBI(0) = PBII(REG,T(EX),T(IS))                      MCG          835     A     
 MCG                IX7    X7+X2                                                           MCG          836     A     
 MCG                SB2    X1+                                                             MCG          837     A     
 MCG                SA7    A6+B1       PBI(1) = PBII2(FU,PI,LI)                            MCG          838     A     
 MCG                                                                                       MCG          839     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3387    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                EQ     B4,B2,SNI   IF T(EX) = T  */ EXIT IF THIS INST IS EXEC          MCG          840     A     
 MCG                                                                                       MCG          841     A     
 MCG                SB6    B5+         TIS[PBI] = T(IS)                                    MCG          842     A     
 MCG                                                                                       MCG          843     A     
 MCG      *         ADVANCE TO NEXT INSTRUCTION ON CHAIN                                   MCG          844     A     
 MCG                                                                                       MCG          845     A     
 MCG       SNI9     S"PI"  A5-"TB"     PI = LI - BASE                                      MCG          846     A     
 MCG                LX5    -I.LINKP                                                        MCG          847     A     
 MCG                SX3    X5          CI = LINK[LI]                                       MCG          848     A     
 MCG       #MD      IFGE   .CPU,74                                         ?66/76          MCG          849     A     
 MCG                SA1    PBI                                                             MCG          850     A     
 MCG                ZR     X3,SNI10    IF CI = 0                                           MCG          851     A     
 MCG                                                                                       MCG          852     A     
 MCG      *         ONLY CONSIDER INSTRUCTIONS THAT ARE "LATE" SO WE DO NOT CLOG           MCG          853     A     
 MCG      *         UP THE REGISTERS WITH RESULTS THAT CANNOT BE USED.                     MCG          854     A     
 MCG      *         I.E. DO NOT TRY TO CODE THE SEQUENCE IN A TIME LESS THAN THE           MCG          855     A     
 MCG      *         CRITICAL PATH TIME ( AN IMPOSSABILITY ).                               MCG          856     A     
 MCG                                                                                       MCG          857     A     
 MCG                SA5    "TB"+X3     LI = BASE + CI                                      MCG          858     A     
 MCG                UX7    B3,X1                                                           MCG          859     A     
 MCG                MI     B3,SNI1     IF REG[PBI] < 0 */NO ISSUABLE INST FOUND            MCG          860     A     
 MCG                SA2    T                                                               MCG          861     A     
 MCG                MX6    -I.LSTL                                                         MCG          862     A     
 MCG                LX5    -I.LSTP                                                         MCG          863     A     
 MCG                BX7    -X6*X5                                                          MCG          864     A     
 MCG                IX6    X2-X7                                                           MCG          865     A     
 MCG       SNI.P    SX6    X4+DELTAT                                                       MCG          866     A     
 MCG                PL     X6,SNI1     IF IF LST[LI] @ T+DT  */ INST IS *LATE*             MCG          867     A     
 MCG                                                                                       MCG          868     A     
 MCG       SNI10    BSS    0                                                               MCG          869     A     
 MCG       #MD      ELSE                                                   ?66/76          MCG          870     A     
 MCG                NZ     X3,SNI1     IF CI " 0                                           MCG          871     A     
 MCG                                                                                       MCG          872     A     
 MCG                SA1    PBI                                                             MCG          873     A     
 MCG       #MD      ENDIF                                                                  MCG          874     A     
 MCG                SA2    A1+B1                                                           MCG          875     A     
 MCG                UX3    B3,X1       REGNO = REG[PBI]                                    MCG          876     A     
 MCG                LX2    -PB.LIP                                                         MCG          877     A     
 MCG                MI     B3,SNI      IF REGNO < 0  */ NO ISSUABLE INST FOUND             MCG          878     A     
 MCG                                                                                       MCG          879     A     
 MCG                SA5    X2+"TB"     LI = LI[PBI] + BASE                                 MCG          880     A     
 MCG                LX2    PB.LIP-PB.PIP                                                   MCG          881     A     
 MCG                S"PI"  X2          PI = PI[PBI]                                        MCG          882     A     
 MCG                LX1    -PB.TISP                                                        MCG          883     A     
 MCG                SB5    X1          T(IS) = TIS[PBI]                                    MCG          884     A     
 MCG                LX1    PB.TISP-PB.TEXP                                                 MCG          885     A     
 MCG                SB4    X1          T(EX) = TEX[PBI]                                    MCG          886     A     
 MCG                EQ     SNI                                                             MCG          887     A     
 MCG                SPACE  2                                                               MCG          888     A     
 MCG                IFGE   .CPU,74,2                                                       MCG          889     A     
 MCG       SNIB     SX6    X4+0        SKELTON TO PLUG *SNI.P*                             MCG          890     A     
 MCG                PL     X4,SNI1                                                         MCG          891     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3388    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG       DRR      TITLE  DRR - DETERMINE RESULT REGISTER / T(EX)                         MCG          892     A     
 MCG      **        DRR - DETERMINE RESULT REGISTER / T(EX) OF INSTRUCTION                 MCG          893     A     
 MCG      *                                                                                MCG          894     A     
 MCG      *         ENTRY  (A4) = INSTRUCTION DESCRIPTOR ADDRESS ( DI )                    MCG          895     A     
 MCG      *                (X4) = SHIFT([DI],59-D.NRP)                                     MCG          896     A     
 MCG      *                                                                                MCG          897     A     
 MCG      *         EXIT   (B5) = T(IS) UPDATED                                            MCG          898     A     
 MCG      *                (B4) = T(EX)                                                    MCG          899     A     
 MCG      *                (B3) = ACT/REGNO, ACT = 0, THEN ISSUED PSEUDO INSTRUCTION       MCG          900     A     
 MCG      *                                  ACT < 0, IF NO RESULT REG AVAIL               MCG          901     A     
 MCG      *                                  ACT > 0, REGNO = ACT                          MCG          902     A     
 MCG      *                                                                                MCG          903     A     
 MCG      *         CALLS - CRU, FXR , PPI                                                 MCG          904     A     
 MCG      *         PRESERVES A0, A4, X0, B6, B7                                           MCG          905     A     
 MCG                                                                                       MCG          906     A     
 MCG       DRR      ROUTINE                                                                MCG          907     A     
 MCG                NX6    B3,X4                                                           MCG          908     A     
 MCG                SB4    B5+         T(EX) = T(IS)                                       MCG          909     A     
 MCG                LX4    1+D.NRP-D.TYP             */ [DI] POS FOR TYPE EXTRACT          MCG          910     A     
 MCG                JP     B3+DRR1     JUMP( NORMC( [X4] ) )                               MCG          911     A     
 MCG                                                                                       MCG          912     A     
 MCG       DRR1     BSS    0                                                               MCG          913     A     
 MCG                QUAL   DRR                                                             MCG          914     A     
 MCG                                                                                       MCG          915     A     
 MCG                SA5    "DI"+2      R1RS = DI + 2                                       MCG          916     A     
 MCG                EQ     RJRS                                                            MCG          917     A     
 MCG                                                                                       MCG          918     A     
 MCG                EQ     PS                                                              MCG          919     A     
 MCG                                                                                       MCG          920     A     
 MCG                SA5    "DI"+2      R1RS = DI + 2                                       MCG          921     A     
 MCG                EQ     PRS                                                             MCG          922     A     
 MCG                                                                                       MCG          923     A     
 MCG                EQ     ECJ         EC JUMP                                             MCG          924     A     
 MCG                                                                                       MCG          925     A     
 MCG                EQ     LVL2                                                            MCG          926     A     
 MCG                                                                                       MCG          927     A     
 MCG                EQ     LD                                                              MCG          928     A     
 MCG                                                                                       MCG          929     A     
 MCG                SA5    "DI"-2      R1 = DI - 2                                         MCG          930     A     
 MCG                EQ     ST                                                              MCG          931     A     
 MCG                                                                                       MCG          932     A     
 MCG                EQ     JP                                                              MCG          933     A     
 MCG                                                                                       MCG          934     A     
 MCG                SA5    "DI"-2      R1 = DI - 2                                         MCG          935     A     
 MCG                EQ     XMT                                                             MCG          936     A     
 MCG                                                                                       MCG          937     A     
 MCG                SA5    "DI"-B1     R2 = DI - 1                                         MCG          938     A     
 MCG                EQ     KS                                                              MCG          939     A     
 MCG                                                                                       MCG          940     A     
 MCG                SA5    "DI"-2      R1 = DI - 2                                         MCG          941     A     
 MCG                EQ     PI                        */ PSEUDO INSTRUCTION                 MCG          942     A     
 MCG                                                                                       MCG          943     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3389    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                EQ     MUC                                                             MCG          944     A     
 MCG                                                                                       MCG          945     A     
 MCG      *         EQ     SCR         ANY X REGISTER                                      MCG          946     A     
 MCG       SCR      EJECT                                                                  MCG          947     A     
 MCG      *         SCR - FIND AN X-REGISTER                                               MCG          948     A     
 MCG                                                                                       MCG          949     A     
 MCG       SCR      SA3    STL                                                             MCG          950     A     
 MCG                SX5    FX.XT+FX.SCR+X3   CLASS = SCR & ^STL                            MCG          951     A     
 MCG                                                                                       MCG          952     A     
 MCG       SCR1     FXR    X5,DRR2     REGNO = FXR( ^STL )                                 MCG          953     A     
 MCG                                                                                       MCG          954     A     
 MCG      *         NO REGISTER AVAILABLE, CHECK STORE LOCKOUT FLAG                        MCG          955     A     
 MCG                                                                                       MCG          956     A     
 MCG                SA5    AXR         CLASS = AXR                                         MCG          957     A     
 MCG                SA3    STL                                                             MCG          958     A     
 MCG                BX7    X3+X5                                                           MCG          959     A     
 MCG                ZR     X7,SCR1     IF AXR & STL " 0  */ X6 LOCKOUT AND AVAIL           MCG          960     A     
 MCG                ZR     X3,DRR      IF STL = 0    */ NO *ST* LOCKOUT                    MCG          961     A     
 MCG                SA3    L.OTI                                                           MCG          962     A     
 MCG                ZR     X3,DRR      IF L.OTI = 0  */ NOT JAM MODE                       MCG          963     A     
 MCG                                                                                       MCG          964     A     
 MCG                FXR    ST,DRR2     REGNO = FXR( ST )                                   MCG          965     A     
 MCG                EQ     DRR                                                             MCG          966     A     
 MCG       MUC      SPACE  2                                                               MCG          967     A     
 MCG      *         MUC - MULTI USE COMPUTATION                                            MCG          968     A     
 MCG                                                                                       MCG          969     A     
 MCG       MUC      FXR    ST,DRR2     REGNO = FXR( ST )                                   MCG          970     A     
 MCG                SX5    FX.XT+FX.SCR      CLASS = SCR                                   MCG          971     A     
 MCG                EQ     SCR1                                                            MCG          972     A     
 MCG       RJRS     SPACE  3,14                                                            MCG          973     A     
 MCG      **        INSTRUCTION PRECEDES AN RJ *RS*  ( UP / NR )                           MCG          974     A     
 MCG                                                                                       MCG          975     A     
 MCG       RJRS     MX2    -SO.REGL                                                        MCG          976          I
          -FCC0641
 MCG                LX5    -R1.SOP                                                         MCG          977          I
          -FCC0641
 MCG                SB3    -B1         ACT = -1                                            MCG          978          I
          -FCC0641
 MCG                BX6    -X2*X5      REGNO = SOREG[R1RS]                                 MCG          979          I
          -FCC0641
 MCG                SA1    RVT+X6                                                          MCG          980          I
          -FCC0641
 MCG                MX7    -I.USESL                                                        MCG          981          I
          -FCC0641
 MCG                SA2    "TB"+X1     LP = TB + RVT(REGNO)                                MCG          982          I
          -FCC0641
 MCG                LX7    I.USESP                                                         MCG          983          I
          -FCC0641
 MCG                BX3    -X7*X2                                                          MCG          984          I
          -FCC0641
 MCG                NZ     X3,DRR      IF USES[LP] " 0  */ B-REG IS IN USE                 MCG          985          I
          -FCC0641
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3390    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG       RJRS     RJ     FBR         REGNO = FBR( R1RS )                                 FCC0641       17     A     
 MCG                MI     B3,DRR      IF ACT < 0    */ NO B-REG FOUND                     FCC0641       18     A     
 MCG                SA2    TRA+X6                    */ ADJUST ISSUE TIME                  MCG          986     A     
 MCG                SB2    X2                                                              MCG          987     A     
 MCG                LE     B2,B5,RJRS1 T(IS) = MAX( T(IS) , TRA(REGNO) )                   MCG          988     A     
 MCG                SB4    X2                                                              MCG          989     A     
 MCG                SB5    B2                                                              MCG          990     A     
 MCG                                                                                       MCG          991     A     
 MCG       RJRS1    BX7    X4                                                              MCG          992     A     
 MCG                LX7    D.TYP-1-D.PSP                                                   MCG          993     A     
 MCG                PL     X7,SCR      IF ^PS[DI]                                          MCG          994     A     
 MCG       PS       SPACE  3,8                                                             MCG          995     A     
 MCG      *         INSTRUCTION PRECEDES A STORE                                           MCG          996     A     
 MCG                                                                                       MCG          997     A     
 MCG       PS       FXR    ST,DRR2     REGNO = FXR( ST )                                   MCG          998     A     
 MCG                EQ     DRR                                                             MCG          999     A     
 MCG       PRS      SPACE  3,14                                                            MCG         1000     A     
 MCG      *         INSTRUCTION PRECEDES A *RS* ( REG STORE )                              MCG         1001     A     
 MCG                                                                                       MCG         1002     A     
 MCG       PRS      MX2    -SO.REGL                                                        MCG         1003     A     
 MCG                LX5    -R1.SOP                                                         MCG         1004     A     
 MCG                BX6    -X2*X5      REGNO = SOREG[R1RS]                                 MCG         1005     A     
 MCG                SB3    X6                                                              MCG         1006     A     
 MCG                RJ     CRU         ACT = CRU( REGNO )                                  MCG         1007     A     
 MCG                MI     B3,DRR      IF ACT < 0    */ REGNO NOT AVAIL NOW                MCG         1008     A     
 MCG                                                                                       MCG         1009     A     
 MCG       #MD      IFEQ   .CPU,74                                         ?6600           MCG         1010          I
          -FCC0881
 MCG                BX7    X4                                                              MCG         1011          I
          -FCC0881
 MCG                LX7    D.TYP-1-D.LDP                                                   MCG         1012          I
          -FCC0881
 MCG                PL     X7,DRR2     IF ^LD[DI]                                          MCG         1013          I
          -FCC0881
 MCG                EQ     LD1                                                             MCG         1014          I
          -FCC0881
 MCG       #MD      ELSE                                                   '6600           MCG         1015          I
          -FCC0881
 MCG                EQ     DRR2                                                            MCG         1016          I
          -FCC0881
 MCG       #MD      ENDIF                                                  '7600           MCG         1017          I
          -FCC0881
 MCG                BX7    X4                                                              FCC0881        8     A     
 MCG                LX7    D.TYP-1-D.XMTP                                                  FCC0881        9     A     
 MCG                MI     X7,PRS1     IF XMT[DI]                                          FCC0881       10     A     
 MCG                                                                                       FCC0881       11     A     
 MCG                IFEQ   .CPU,74,2                                       ?6600           FCC0881       12     A     
 MCG                LX7    D.XMTP-D.LDP                                                    FCC0881       13     A     
 MCG                MI     X7,LD1      IF LD[DI]                                           FCC0881       14     A     
 MCG                EQ     DRR2                                                            FCC0881       15     A     
 MCG                                                                                       FCC0881       16     A     
 MCG       PRS1     SA5    "DI"-2      R1 = DI - 2                                         FCC0881       17     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3391    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                LX5    -R1.RJP                                                         FCC0881       18     A     
 MCG                BX7    "RN"X5                                                          FCC0881       19     A     
 MCG                SA2    "TB"+X7     LJ = BASE + RJ[R1]                                  FCC0881       20     A     
 MCG                LX2    -I.REGP                                                         FCC0881       21     A     
 MCG                SB2    X2                                                              FCC0881       22     A     
 MCG                NE     B2,B3,DRR2  IF REG[LJ] " REGNO                                  FCC0881       23     A     
 MCG                                                                                       FCC0881       24     A     
 MCG                LX5    R1.RJP                                                          FCC0881       25     A     
 MCG                LX2    I.REGP      (X2) = LINK WORD OF PRED                            FCC2535       19     A     
 MCG                BX7    "RN"X5      RI = RN[R1]                                         FCC0881       26     A     
 MCG                EQ     XMT1                                                            FCC0881       27     A     
 MCG       LVL2     SPACE  3,10                                                            MCG         1018     A     
 MCG      *         LEVEL 2 LD/ST  ( DRL/DWL )                                             MCG         1019     A     
 MCG                                                                                       MCG         1020     A     
 MCG       LVL2     LX6    D.L2P-47+59-D.STP                                               MCG         1021     A     
 MCG                PL     X6,SCR      IF ^ST[DI]                                          MCG         1022     A     
 MCG                SA5    "DI"-2      R1 = DI - 2                                         MCG         1023     A     
 MCG                EQ     ST                                                              MCG         1024     A     
 MCG       LD       SPACE  3,10                                                            MCG         1025     A     
 MCG      *         LD - INSTRUCTION IS A LOAD                                             MCG         1026     A     
 MCG                                                                                       MCG         1027     A     
 MCG       LD       SA5    ALR                                                             MCG         1028     A     
 MCG                FXR    X5,LD1,DRR  REGNO = FXR( ALR )                                  MCG         1029     A     
 MCG       LD1      BSS    0                                                               MCG         1030     A     
 MCG       #MD      IFEQ   .CPU,74                                         ?6600           MCG         1031     A     
 MCG                                                                                       MCG         1032     A     
 MCG      *         INSTRUCTION CANNOT ISSUE UNTIL LAST STORE IS COMPLETE                  MCG         1033     A     
 MCG                                                                                       MCG         1034     A     
 MCG                SA2    LST                                                             MCG         1035     A     
 MCG                SB2    X2                                                              MCG         1036     A     
 MCG                LE     B2,B5,DRR2  T(IS) = MAX( T(IS) , LST )                          MCG         1037     A     
 MCG                SB5    X2                                                              MCG         1038     A     
 MCG                SB4    X2                                                              MCG         1039     A     
 MCG       #MD      ENDIF                                                  '6600           MCG         1040     A     
 MCG                EQ     DRR2                                                            MCG         1041     A     
 MCG       ST       SPACE  3,10                                                            MCG         1042     A     
 MCG      *         STORE INSTRUCTION                                                      MCG         1043     A     
 MCG                                                                                       MCG         1044     A     
 MCG       ST       BX6    "RN"X5      RI = RN[R1]                                         MCG         1045     A     
 MCG                SA3    "TB"+X6     LP = BASE + RI                                      MCG         1046     A     
 MCG                LX3    -I.REGP                                                         MCG         1047     A     
 MCG                SB3    X3          REGNO = REG[LP]                                     MCG         1048     A     
 MCG                SA2    TRA+X3                                                          MCG         1049     A     
 MCG                SB2    X2                                                              MCG         1050     A     
 MCG       #MD      IFEQ   .CPU,74                                         ?6600           MCG         1051     A     
 MCG                LE     B2,B5,ST1   T(IS) = MAX( T(IS) , TRA(REGNO) )                   MCG         1052     A     
 MCG                SB5    X2                                                              MCG         1053     A     
 MCG                SB4    X2                                                              MCG         1054     A     
 MCG       ST1      SA1    LST                                                             MCG         1055     A     
 MCG                SA2    LLT                                                             MCG         1056     A     
 MCG                IX7    X1-X2                                                           MCG         1057     A     
 MCG                MI     X7,ST2      TLS = MAX( LST , LLT )                              MCG         1058     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3392    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                BX2    X1                                                              MCG         1059     A     
 MCG       ST2      SB2    X2                                                              MCG         1060     A     
 MCG       #MD      ENDIF                                                  '6600           MCG         1061     A     
 MCG                LE     B2,B5,DRR2  T(IS/EX) = MAX( T(IS/EX) , TLS )                    MCG         1062     A     
 MCG                SB5    X2                                                              MCG         1063     A     
 MCG                SB4    X2                                                              MCG         1064     A     
 MCG                EQ     DRR2                                                            MCG         1065     A     
 MCG       JP       SPACE  2                                                               MCG         1066     A     
 MCG      *         JUMP INSTRUCTION                                                       MCG         1067     A     
 MCG                                                                                       MCG         1068     A     
 MCG       ECJ      SX6    2                                                               MCG         1069     A     
 MCG                SA6    PC          PC = 2                                              MCG         1070     A     
 MCG                                                                                       MCG         1071     A     
 MCG       JP       RJ     PJI         PROCESS THE JUMP                                    MCG         1072     A     
 MCG                SB3    B0          REGNO = 0                                           MCG         1073     A     
 MCG                EQ     DRR                                                             MCG         1074     A     
 MCG       XMT      SPACE  2                                                               MCG         1075     A     
 MCG      *         XMT/SXT INSTRUCTIONS                                                   MCG         1076     A     
 MCG                                                                                       MCG         1077     A     
 MCG       XMT      BX7    "RN"X5      RI = RN[R1]                                         MCG         1078     A     
 MCG                LX5    -R1.RJP                                                         MCG         1079     A     
 MCG                BX6    "RN"X5      RJ = RJ[R1]                                         MCG         1080     A     
 MCG                SA3    "TB"+X6     LJ = BASE + RJ                                      MCG         1081          I
          -FCC2535
 MCG                MX1    -I.USESL+1                                                      MCG         1082          I
          -FCC2535
 MCG                SB3    X3          REGNO = REG[LJ]                                     MCG         1083          I
          -FCC2535
 MCG                LX3    -I.USESP-1                                                      MCG         1084          I
          -FCC2535
 MCG                BX2    -X1*X3                                                          MCG         1085          I
          -FCC2535
 MCG                NZ     X2,SCR      IF USES[LJ] " 1                                     MCG         1086          I
          -FCC2535
 MCG                SA2    "TB"+X6     LJ = BASE + RJ                                      FCC2535       20     A     
 MCG                MX1    -I.USESL+1                                                      FCC2535       21     A     
 MCG                SB3    X2          REGNO = REG[LJ]                                     FCC2535       22     A     
 MCG                LX1    I.USESP+1                                                       FCC2535       23     A     
 MCG                BX3    -X1*X2                                                          FCC2535       24     A     
 MCG                NZ     X3,SCR      IF USES[LJ] " 1                                     FCC2535       25     A     
 MCG                SA1    RVT+B3                                                          MCG         1087     A     
 MCG                MI     X1,SCR      IF LOCK[RVT(REGNO)]                                 MCG         1088     A     
 MCG                                                                                       MCG         1089     A     
 MCG      *         ISSUE THE INSTRUCTION                                                  MCG         1090     A     
 MCG                                                                                       MCG         1091     A     
 MCG                SA7    A1          RVT(REGNO) = RI                                     MCG         1092          I
          -FCC0881
 MCG       XMT1     SA7    RVT+B3      RVT(REGNO) = RI                                     FCC0881       28     A     
 MCG                SX3    B1                                                              FCC2535       26     A     
 MCG                LX3    I.USESP                                                         FCC2535       27     A     
 MCG                IX6    X2-X3       USES[LJ] = USES[LJ] - 1                             FCC2535       28     A     
 MCG                SA6    A2                                                              FCC2535       29     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3393    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA5    "DI"+B1     LI = DI + 1                                         MCG         1093     A     
 MCG                RJ     AIL         CALL AIL( PI , LI , REGNO )                         MCG         1094     A     
 MCG                PRINT  II,(* XMT X*O1*   OMITTED*),B3                                  FCC0881       29     A     
 MCG                SB3    B0          ACT = 0                                             MCG         1095     A     
 MCG                EQ     DRR                                                             MCG         1096     A     
 MCG       KS       SPACE  3,10                                                            MCG         1097     A     
 MCG      *         CONSTANT SHIFT INSTRUCTION                                             MCG         1098     A     
 MCG                                                                                       MCG         1099     A     
 MCG       KS       LX5    -IH.RFP                                                         MCG         1100     A     
 MCG                SA3    "TB"+X5     LJ = BASE + RF[R2]                                  MCG         1101     A     
 MCG                LX3    -I.REGP                                                         MCG         1102     A     
 MCG                SA2    TRA+X3                                                          MCG         1103     A     
 MCG                SB3    X3          REGNO = REG[LJ]                                     MCG         1104     A     
 MCG                SB2    X2                                                              MCG         1105     A     
 MCG                LE     B2,B5,DRR   T(IS/EX) = MAX( T(IS/EX) , TRA(REGNO) )             MCG         1106     A     
 MCG                SB4    X2                                                              MCG         1107     A     
 MCG                SB5    X2                                                              MCG         1108     A     
 MCG                EQ     DRR                                                             MCG         1109     A     
 MCG       PI       SPACE  3,8                                                             MCG         1110     A     
 MCG      *         PSEUDO INSTRUCTIONS ( EOQ, BOS, EOS, DAR, DEF, RS, LAB, ENT )          MCG         1111     A     
 MCG                                                                                       MCG         1112     A     
 MCG       PI       RJ     PPI                                                             MCG         1113     A     
 MCG                SB3    B0          ACT = 0                                             MCG         1114     A     
 MCG                EQ     DRR                                                             MCG         1115     A     
 MCG       GOT      SPACE  2                                                               MCG         1116     A     
 MCG       #MD      IFLT   .CPU,74                                         '6400           MCG         1117     A     
 MCG       DRR2     EQU    DRR                                                             MCG         1118     A     
 MCG       #MD      ELSE                                                   '6400           MCG         1119     A     
 MCG                                                                                       MCG         1120     A     
 MCG      *         GET OPERAND AVAILABLE TIMES AND ADJUST T(EX) ( TYPES I & III )         MCG         1121     A     
 MCG                                                                                       MCG         1122     A     
 MCG       DRR2     MX1    -D.TYL                                                          MCG         1123     A     
 MCG                SA5    "DI"-2      R1 = DI - 2                                         MCG         1124     A     
 MCG                BX7    -X1*X4                                                          MCG         1125     A     
 MCG                NZ     X7,DRR5     IF TYPE[DI] " I                                     MCG         1126     A     
 MCG                                                                                       MCG         1127     A     
 MCG                AX5    R1.RIL                                                          MCG         1128     A     
 MCG                BX7    "RN"X5      R = RK[R1]                                          MCG         1129     A     
 MCG                SA2    "TB"+X7                                                         MCG         1130     A     
 MCG                AX5    R1.RIL                                                          MCG         1131     A     
 MCG                LX2    -I.REGP     REGNO = REG[BASE+RN]                                MCG         1132     A     
 MCG                SA1    TRA+X2                                                          MCG         1133     A     
 MCG                SB2    X1                                                              MCG         1134     A     
 MCG                LE     B2,B4,DRR3  T(EX) = MAX( T(EX) , TRA(REGNO) )                   MCG         1135     A     
 MCG                SB4    X1                                                              MCG         1136     A     
 MCG       DRR3     BX7    "RN"X5      R = RJ[R1]                                          MCG         1137     A     
 MCG                SA2    "TB"+X7                                                         MCG         1138     A     
 MCG                LX2    -I.REGP                                                         MCG         1139     A     
 MCG                SA1    TRA+X2                                                          MCG         1140     A     
 MCG                SB2    X1                                                              MCG         1141     A     
 MCG                LE     B2,B4,DRR   T(EX) = MAX( T(EX) , TRA(REGNO) )                   MCG         1142     A     
 MCG                SB4    X1                                                              MCG         1143     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3394    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                EQ     DRR                                                             MCG         1144     A     
 MCG                                                                                       MCG         1145     A     
 MCG      *         PROCESS TYPE III INSTRUCTION, *RI* IS ALWAYS A DEFINATION              MCG         1146     A     
 MCG                                                                                       MCG         1147     A     
 MCG       DRR5     AX7    1                                                               MCG         1148     A     
 MCG                ZR     X7,DRR      IF TYPE[DI] = II  */ HAS NO OPERANDS                MCG         1149     A     
 MCG                SA2    "DI"-B1     R2 = DI - 1                                         MCG         1150     A     
 MCG                LX2    -IH.RFP                                                         MCG         1151     A     
 MCG                BX3    "RN"X2      RF = RF[R2]                                         MCG         1152     A     
 MCG                ZR     X3,DRR      IF RF = 0                                           MCG         1153     A     
 MCG                SA2    "TB"+X3                                                         MCG         1154     A     
 MCG                LX2    -I.REGP                                                         MCG         1155     A     
 MCG                SA3    TRA+X2                                                          MCG         1156     A     
 MCG                SB2    X3                                                              MCG         1157     A     
 MCG                LE     B2,B4,DRR   T(EX) = MAX( T(EX) , TRA(REGNO) )                   MCG         1158     A     
 MCG                SB4    B2                                                              MCG         1159     A     
 MCG                EQ     DRR                                                             MCG         1160     A     
 MCG                                                                                       MCG         1161     A     
 MCG       #MD      ENDIF                                                                  MCG         1162     A     
 MCG                QUAL                                                                   MCG         1163     A     
 MCG       CRU      TITLE  CRU - CHECK REMAINING USES                                      MCG         1164     A     
 MCG      **        CRU - CHECK REMAINING USES OF SPECIFIED REGISTER                       MCG         1165     A     
 MCG      *                TO SEE IF INSTRUCTION CAN BE ISSUED NOW                         MCG         1166     A     
 MCG      *                                                                                MCG         1167     A     
 MCG      *         ENTRY  (B3) = REGNO                                                    MCG         1168     A     
 MCG      *                (A4,X4) = DI, SHIFT([DI], -D.TYP )                              MCG         1169     A     
 MCG      *                                                                                MCG         1170     A     
 MCG      *         EXIT   (B3) = REGNO, IF AVAIL, ELSE < 0                                MCG         1171     A     
 MCG      *                B4, B5 UPDATED                                                  MCG         1172     A     
 MCG                                                                                       MCG         1173     A     
 MCG       CRU0     SA2    TRA+B2                                                          MCG         1174     A     
 MCG                SB3    B2          REGNO = SAVE                                        MCG         1175     A     
 MCG                SB2    X2                                                              MCG         1176     A     
 MCG                LE     B2,B5,CRU   T(IS/EX) = MAX( T(IS/EX) , TRA(REGNO) )             MCG         1177     A     
 MCG                SB4    X2                                                              MCG         1178     A     
 MCG                SB5    X2                                                              MCG         1179     A     
 MCG                                                                                       MCG         1180     A     
 MCG       CRU      ROUTINE                                                                MCG         1181     A     
 MCG                SA1    RVT+B3      R = RVT(REGNO)                                      MCG         1182          I
          -FCC1056
 MCG                SX6    B3-26B                                                          FCC1056        9     A     
 MCG                MI     X6,CRU1     IF REGNO < 26B  */ ^ A ST-REGISTER                  FCC1056       10     A     
 MCG                SA1    L.OTI                                                           FCC1056       11     A     
 MCG                NZ     X1,CRU1     IF L.OTI " 0  */ IN JAM MODE                        FCC1056       12     A     
 MCG                SA2    N.SP                                                            FCC1056       13     A     
 MCG                SX6    X2-1                                                            FCC1056       14     A     
 MCG                ZR     X6,CRU1     IF N.SP = 1   */ ALL STORES ISSUED                  FCC1056       15     A     
 MCG                SX1    B1                                                              FCC1056       16     A     
 MCG                SX2    B3                                                              FCC1056       17     A     
 MCG                BX3    X2-X1       OSR = XOR(REGNO,1)                                  FCC1056       18     A     
 MCG                SA1    RVT+X3                                                          FCC1056       19     A     
 MCG                SB2    "TB"-B1                                                         FCC1056       20     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3395    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA2    B2+X1       DOS = BASE-1 + RI[RVT(OSR)]                         FCC1056       21     A     
 MCG                LX2    59-D.PRSP                                                       FCC1056       22     A     
 MCG                PL     X2,CRU1     IF ^PRS[DOS]                                        FCC1056       23     A     
 MCG                                                                                       FCC1056       24     A     
 MCG                SB3    -B1         REGNO = -1    */ INDICATE REG NOT AVAIL             FCC1056       25     A     
 MCG                EQ     CRU                                                             FCC1056       26     A     
 MCG                                                                                       FCC1056       27     A     
 MCG       CRU1     SA1    RVT+B3      R = RVT(REGNO)                                      FCC1056       28     A     
 MCG                SB2    B3          SAVE = REGNO                                        MCG         1183     A     
 MCG                SB3    -B1         REGNO = -1                                          MCG         1184     A     
 MCG                SA2    AXR                                                             MCG         1185     A     
 MCG                SA3    RBV+B2                                                          MCG         1186     A     
 MCG                BX6    X2*X3                                                           MCG         1187     A     
 MCG                NZ     X6,CRU0     IF AXR & RBV(REGNO) " 0 */ REG IS AVAIL             MCG         1188     A     
 MCG                SA3    "TB"+X1     LP = BASE + R                                       MCG         1189     A     
 MCG                MX2    -I.USESL                                                        MCG         1190     A     
 MCG                LX3    -I.USESP                                                        MCG         1191     A     
 MCG                SX1    X1                        */ REMOVE LOCK BIT                    MCG         1192     A     
 MCG                BX2    -X2*X3      U = USES[LP]                                        MCG         1193     A     
 MCG                MX6    -D.TYL                                                          MCG         1194     A     
 MCG                ZR     X2,CRU0     IF U = 0                                            MCG         1195          I
          -FCC1555X 
 MCG                ZR     X2,CRU4     IF U = 0                                            FCC1555X       4     A     
 MCG                SX5    X2-2                                                            MCG         1196     A     
 MCG                BX7    -X6*X4                                                          MCG         1197     A     
 MCG                MI     X5,CRU1     IF U = 1                                            MCG         1198          I
          -FCC1056
 MCG                MI     X5,CRU2     IF U = 1                                            FCC1056       29     A     
 MCG                NZ     X5,CRU      IF U > 2                                            MCG         1199     A     
 MCG                                                                                       MCG         1200     A     
 MCG      *         CHECK 2 USES CASE                                                      MCG         1201     A     
 MCG                                                                                       MCG         1202     A     
 MCG                NZ     X7,CRU      IF TYPE[DI] " I                                     MCG         1203     A     
 MCG                SA5    "DI"-2      R1 = DI - 2                                         MCG         1204     A     
 MCG                LX5    -R1.RJP                                                         MCG         1205     A     
 MCG                BX7    "RN"X5                                                          MCG         1206     A     
 MCG                LX5    R1.RJP-R1.RKP                                                   MCG         1207     A     
 MCG                IX2    X7-X1                                                           MCG         1208     A     
 MCG                NZ     X2,CRU      IF RJ[R1] " R                                       MCG         1209     A     
 MCG                BX5    "RN"X5                                                          MCG         1210     A     
 MCG                IX2    X7-X5                                                           MCG         1211     A     
 MCG                ZR     X2,CRU0     IF RJ[R1] = RK[R1]                                  MCG         1212     A     
 MCG                EQ     CRU                                                             MCG         1213     A     
 MCG                                                                                       MCG         1214     A     
 MCG       CRU1     LX7    -1                                                              MCG         1215          I
          -FCC1056
 MCG       CRU2     LX7    -1                                                              FCC1056       30     A     
 MCG                MI     X7,CRU      IF TYPE[DI] = II ! IV                               MCG         1216     A     
 MCG                ZR     X7,CRU2     IF TYPE[DI] = I                                     MCG         1217          I
          -FCC1056
 MCG                ZR     X7,CRU3     IF TYPE[DI] = I                                     FCC1056       31     A     
 MCG       CRU      SPACE  1,10                                                            MCG         1218     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3396    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG      *         CHECK TYPE III INSTRUCTION                                             MCG         1219     A     
 MCG                                                                                       MCG         1220     A     
 MCG                SA5    "DI"-B1     R2 = DI - 1                                         MCG         1221     A     
 MCG                LX5    -IH.RFP                                                         MCG         1222     A     
 MCG                BX7    "RN"X5                                                          MCG         1223     A     
 MCG                IX2    X7-X1                                                           MCG         1224     A     
 MCG                ZR     X2,CRU0     IF RF[R2] = R                                       MCG         1225     A     
 MCG                EQ     CRU                                                             MCG         1226     A     
 MCG                                                                                       MCG         1227     A     
 MCG       CRU2     SA5    "DI"-2      R1 = DI - 2                                         MCG         1228          I
          -FCC1056
 MCG       CRU3     SA5    "DI"-2      R1 = DI - 2                                         FCC1056       32     A     
 MCG                LX5    -R1.RJP                                                         MCG         1229     A     
 MCG                BX7    "RN"X5                                                          MCG         1230     A     
 MCG                IX2    X1-X7                                                           MCG         1231     A     
 MCG                ZR     X2,CRU0     IF RJ[R1] = R                                       MCG         1232     A     
 MCG                LX5    R1.RJP-R1.RKP                                                   MCG         1233     A     
 MCG                BX7    "RN"X5                                                          MCG         1234     A     
 MCG                IX2    X1-X7                                                           MCG         1235     A     
 MCG                ZR     X2,CRU0     IF RK[R1] = R                                       MCG         1236     A     
 MCG                EQ     CRU                                                             MCG         1237     A     
 MCG                                                                                       FCC1555X       5     A     
 MCG      *         USES = 0, R-NUM IN REG MUST BE RESULT OF A FULL LOCK,                  FCC1555X       6     A     
 MCG      *         IF THIS INSTRUCTION *PRS* A TEMP LOCK, THEN TRY TO ASSIGN              FCC1555X       7     A     
 MCG      *         ANOTHER B-REGISTER.                                                    FCC1555X       8     A     
 MCG                                                                                       FCC1555X       9     A     
 MCG       CRU4     SA5    A4+2        R1RS = R1 + 2                                       FCC1555X      10     A     
 MCG                BX6    X5                                                              FCC1555X      11     A     
 MCG                LX6    59-R1.SOP-SO.LKP                                                FCC1555X      12     A     
 MCG                PL     X6,CRU0     IF SOLK[R1RS] " 1  */ NOT A TEMP LOCK               FCC1555X      13     A     
 MCG                RJ     FBR         FIND ANOTHER B-REGISTER                             FCC1555X      14     A     
 MCG                MI     B3,CRU      IF ACT < 0    */ NONE FOUND                         FCC1555X      15     A     
 MCG                SB2    B3                                                              FCC1555X      16     A     
 MCG                EQ     CRU0                                                            FCC1555X      17     A     
 MCG       FBR      TITLE  FBR - FIND AN AVAILABLE B-REGISTER ( *RJRS* ONLY )              FCC0641       19     A     
 MCG      **        FBR - FIND AN AVAILABLE B-REGISTER FOR AN INSTRUCTION THAT             FCC0641       20     A     
 MCG      *                            PRECEEDS A *RJRS*.                                  FCC0641       21     A     
 MCG      *                                                                                FCC0641       22     A     
 MCG      *         ENTRY  (A5,X5) = R1RS, [R1RS] , R1 WORD OF THE RJ *RS*                 FCC0641       23     A     
 MCG      *                                                                                FCC0641       24     A     
 MCG      *         EXIT   (B3) = ACT , < 0 IF NO B-REG WAS FOUND                          FCC0641       25     A     
 MCG      *                (X6) = REGNO , OF THE B-REGISTER                                FCC0641       26     A     
 MCG                                                                                       FCC0641       27     A     
 MCG       FBR      ROUTINE                                                                FCC0641       28     A     
 MCG                LX5    -R1.SOP                                                         FCC0641       29     A     
 MCG                MX2    -SO.REGL                                                        FCC0641       30     A     
 MCG                BX6    -X2*X5      REGNO = SOREG[R1RS]                                 FCC0641       31     A     
 MCG                RJ     CBR         ACT = CBR(REGNO)                                    FCC0641       32     A     
 MCG                PL     B3,FBR      IF ACT > 0                                          FCC0641       33     A     
 MCG                                                                                       FCC0641       34     A     
 MCG                SX6    7           REGNO = 7                                           FCC0641       35     A     
 MCG       FBR1     RJ     CBR         ACT = CBR(REGNO)                                    FCC0641       36     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3397    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                PL     B3,FBR2     IF ACT > 0                                          FCC0641       37     A     
 MCG                SX6    X6-1        REGNO = REGNO - 1                                   FCC0641       38     A     
 MCG                NZ     X6,FBR1     IF REGNO " 0                                        FCC0641       39     A     
 MCG                EQ     FBR                                                             FCC0641       40     A     
 MCG                                                                                       FCC0641       41     A     
 MCG       FBR2     BX5    X2*X5                                                           FCC0641       42     A     
 MCG                BX7    X6+X5       SOREG[R1RS] = REGNO                                 FCC0641       43     A     
 MCG                LX7    R1.SOP                                                          FCC0641       44     A     
 MCG                SA7    A5                                                              FCC0641       45     A     
 MCG                PRINT  II,(* FBR, NEW REGNO =*Z2),X6                                   FCC1555X      18     A     
 MCG                EQ     FBR                                                             FCC0641       46     A     
 MCG       CBR      SPACE  3                                                               FCC0641       47     A     
 MCG      **        CBR - CHECK B-REGISTER TO SEE IF IT IS AVAILABLE                       FCC0641       48     A     
 MCG      *                                                                                FCC0641       49     A     
 MCG      *         ENTRY  (X6) = REGNO                                                    FCC0641       50     A     
 MCG      *                                                                                FCC0641       51     A     
 MCG      *         EXIT   (B3) = ACT < 0 IF NOT AVAIL                                     FCC0641       52     A     
 MCG                                                                                       FCC0641       53     A     
 MCG       CBR      ROUTINE                                                                FCC0641       54     A     
 MCG                SB3    X6+         ACT = REGNO                                         FCC0641       55     A     
 MCG                SA1    RVT+X6                                                          FCC0641       56     A     
 MCG                ZR     X1,CBR      IF RVT(I) = 0                                       FCC0641       57     A     
 MCG                SA1    "TB"+X1     LIP = TB + RI[RVT(I)]                               FCC0641       58     A     
 MCG                MX3    -I.USESL                                                        FCC0641       59     A     
 MCG                LX3    I.USESP                                                         FCC0641       60     A     
 MCG                BX3    -X3*X1                                                          FCC0641       61     A     
 MCG                NZ     X3,CBR1     IF USES[LIP] " 0                                    FCC0641       62     A     
 MCG                SA1    A1-B1       DIP = LIP - 1                                       FCC0641       63     A     
 MCG                LX1    59-D.PRSP                                                       FCC0641       64     A     
 MCG                PL     X1,CBR1     IF ^PRS[DIP]                                        FCC0641       65     A     
 MCG                SA1    A1+2        R1P = DIP + 2                                       FCC0641       66     A     
 MCG                LX1    59-R1.SOP-SO.SFLP                                               FCC0641       67     A     
 MCG                MI     X1,CBR      IF SFL[R1P]   */ CAN REUSE THE REGISTER             FCC0641       68     A     
 MCG                                                                                       FCC0641       69     A     
 MCG       CBR1     SB3    -B1         ACT = -1                                            FCC0641       70     A     
 MCG                EQ     CBR                                                             FCC0641       71     A     
 MCG       FXR      TITLE  FXR - FIND AN AVAILABLE X-REGISTER                              MCG         1238     A     
 MCG      **        FXR - FIND A FREE X-REGISTER                                           MCG         1239     A     
 MCG      *                                                                                MCG         1240     A     
 MCG      *         ENTRY  (X5) = REGISTER CLASS BITS                                      MCG         1241     A     
 MCG      *                (X4) = SHIFT( [DI], -D.TYP )                                    MCG         1242     A     
 MCG      *                (X7) = AXR & REGS IN CLASS                                      MCG         1243     A     
 MCG      *                (B5) = T(IS)                                                    MCG         1244     A     
 MCG      *                                                                                MCG         1245     A     
 MCG      *         EXIT   (X3) = 1/FOUND,NOT FOUND,41/REG BIT,18/REGISTER NUMBER          MCG         1246     A     
 MCG      *                (B4,B5) = T(IS),T(EX) ARE UPDATED                               MCG         1247     A     
 MCG      *                                                                                MCG         1248     A     
 MCG      *         USES   B - 2, 3  , A - 2, 3                                            MCG         1249     A     
 MCG      *                X - 1, 2, 3, 5, 6, 7                                            MCG         1250     A     
 MCG                                                                                       MCG         1251     A     
 MCG       FXR0     SB5    X1          T(IS) = BT                                          MCG         1252     A     
 MCG                BX3    X6                                                              MCG         1253     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3398    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SB4    X1+         T(EX) = BT                                          MCG         1254     A     
 MCG                                                                                       MCG         1255     A     
 MCG       FXR      ROUTINE                                                                MCG         1256     A     
 MCG       #MD      IFGE   .CPU,74                                         ?66/76          MCG         1257     A     
 MCG                MI     X3,FXR2     IF REGNO < 0  */ NOTHING AVAIL IN THIS CLASS        MCG         1258     A     
 MCG                                                                                       MCG         1259     A     
 MCG      *         SEARCH FOR REGISTER IN CLASS WITH EARLIEST AVAILABLE TIME.             MCG         1260     A     
 MCG                                                                                       MCG         1261     A     
 MCG                BX6    X3                                                              MCG         1262     A     
 MCG                SX1    B2          BT = TRA(REGNO)                                     MCG         1263     A     
 MCG                                                                                       MCG         1264     A     
 MCG       FXR1     AX3    18                                                              MCG         1265     A     
 MCG                BX7    X7-X3       AVAIL = AVAIL - REGBIT(REGNO)                       MCG         1266     A     
 MCG                NO                                                                     MCG         1267     A     
 MCG                NX2    B2,X7                                                           MCG         1268     A     
 MCG                SA3    B2+FXRA+16-47   REGNO = FXRA( NORMC(AVAIL) )                    MCG         1269     A     
 MCG                MI     X3,FXR0                                                         MCG         1270     A     
 MCG                SA2    TRA+X3                                                          MCG         1271     A     
 MCG                SB3    X2                                                              MCG         1272     A     
 MCG                IX5    X2-X1                                                           MCG         1273     A     
 MCG                LE     B3,B5,FXR   IF TRA(REGNO) < T(IS)                               MCG         1274     A     
 MCG                                                                                       MCG         1275     A     
 MCG                PL     X5,FXR1     IF BT @ TRA(REGNO)                                  MCG         1276     A     
 MCG                BX6    X3                                                              MCG         1277     A     
 MCG                SX1    B3          BT = TRA(REGNO)                                     MCG         1278     A     
 MCG                EQ     FXR1                                                            MCG         1279     A     
 MCG       #MD      ENDIF                                                  '66/76          MCG         1280     A     
 MCG                                                                                       MCG         1281     A     
 MCG      *         CHECK REMAINING USES OF OPERANDS, SEE IF THEY ARE IN THE               MCG         1282     A     
 MCG      *         CLASS OF REGISTERS REQUESTED, AND WILL BE RELEASED BY ISSUE            MCG         1283     A     
 MCG      *         OF THE CURRENT INSTRUCTION ( MAY BE REUSED ).                          MCG         1284     A     
 MCG                                                                                       MCG         1285     A     
 MCG       FXR2     SA2    LXR                                                             MCG         1286     A     
 MCG                MX7    -D.TYL                                                          MCG         1287     A     
 MCG                BX6    -X2*X5      CLASS = ^LXR & CLASS                                MCG         1288     A     
 MCG                BX5    -X7*X4                                                          MCG         1289     A     
 MCG                ZR     X5,FXR3     IF TYPE[DI] = I                                     MCG         1290     A     
 MCG                AX7    B1,X5                                                           MCG         1291     A     
 MCG                ZR     X7,FXR      IF TYPE[DI] = II  */ NO OPERANDS                    MCG         1292     A     
 MCG       FXR      SPACE  1,10                                                            MCG         1293     A     
 MCG      *         CHECK TYPE III INSTRUCTION ( NOTE - RI IS A DEF )                      MCG         1294     A     
 MCG                                                                                       MCG         1295     A     
 MCG                SA5    "DI"-B1     R2 = DI - 1                                         MCG         1296     A     
 MCG                LX5    -IH.RFP                                                         MCG         1297     A     
 MCG                BX7    "RN"X5      RF = RF[R2]                                         MCG         1298     A     
 MCG                ZR     X7,FXR      IF RF = 0                                           MCG         1299     A     
 MCG                SA2    "TB"+X7     LP = BASE + RF                                      MCG         1300     A     
 MCG                SA1    RBV+X2      REGB = RBV( REG[LP] )                               MCG         1301     A     
 MCG                MX3    -I.USESL+1                                                      MCG         1302     A     
 MCG                BX6    X1*X6                                                           MCG         1303     A     
 MCG                ZR     X6,FXR      IF REGB & CLASS = 0                                 MCG         1304     A     
 MCG                SB3    X2                                                              MCG         1305     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3399    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                LX2    -I.USESP-1                                                      MCG         1306     A     
 MCG                BX7    -X3*X2                                                          MCG         1307     A     
 MCG                NZ     X7,FXR      IF USES[LP] " 1                                     MCG         1308     A     
 MCG                                                                                       MCG         1309     A     
 MCG       FXR2A    SA2    TRA+B3                                                          MCG         1310     A     
 MCG                SX3    B3          REGNO = REG[LP]                                     MCG         1311     A     
 MCG                SB2    X2                                                              MCG         1312     A     
 MCG                LE     B2,B5,FXR   T(IS/EX) = MAX( T(IS/EX) , TRA(REGNO) )             MCG         1313     A     
 MCG                SB4    X2                                                              MCG         1314     A     
 MCG                SB5    X2                                                              MCG         1315     A     
 MCG                EQ     FXR                                                             MCG         1316     A     
 MCG                                                                                       MCG         1317     A     
 MCG      *         CHECK OPERANDS OF TYPE I INSTRUCTION                                   MCG         1318     A     
 MCG                                                                                       MCG         1319     A     
 MCG       FXR3     BX2    X4                                                              MCG         1320     A     
 MCG                SA5    "DI"-2      R1 = DI - 2                                         MCG         1321     A     
 MCG                LX2    D.TYP-D.TYIOP                                                   MCG         1322     A     
 MCG                BX7    -X7*X2                                                          MCG         1323     A     
 MCG                SA1    TYIOM+X7                                                        MCG         1324     A     
 MCG                MX3    I.USESL-1                                                       MCG         1325     A     
 MCG                UX2    B2,X1                                                           MCG         1326     A     
 MCG                BX5    X2*X5                                                           MCG         1327     A     
 MCG                LX3    I.USESL+I.USESP                                                 MCG         1328     A     
 MCG                AX5    B2,X5       RNUMS = TYIOM[DI] & [R1]                            MCG         1329     A     
 MCG                SB3    0           RG = 0                                              MCG         1330     A     
 MCG                SB2    -T(INF)     TB = *INFINITY*                                     MCG         1331     A     
 MCG                                                                                       MCG         1332     A     
 MCG       FXR4     BX7    "RN"X5      R = RN[RNUMS]                                       MCG         1333     A     
 MCG                AX5    R1.RIL      RNUMS = SHIFT(RNUMS,-16)                            MCG         1334     A     
 MCG                ZR     X7,FXR5     IF R = 0                                            MCG         1335     A     
 MCG                SA2    "TB"+X7     LP = BASE + R                                       MCG         1336     A     
 MCG                BX1    X3*X2                                                           MCG         1337     A     
 MCG                ZR     X1,FXR6     IF USES[LP] = 1                                     MCG         1338     A     
 MCG                BX7    X5-X7                                                           MCG         1339     A     
 MCG                ZR     X7,FXR7     IF RJ = RK                                          MCG         1340     A     
 MCG       FXR5     NZ     X5,FXR4     IF RNUMS " 0                                        MCG         1341     A     
 MCG                NZ     B3,FXR2A    IF RG " 0     */ WINNER FOUND                       MCG         1342     A     
 MCG                SX3    -B1         REGNO = -1                                          MCG         1343     A     
 MCG                EQ     FXR                                                             MCG         1344     A     
 MCG                                                                                       MCG         1345     A     
 MCG       FXR6     SA1    RBV+X2                                                          MCG         1346     A     
 MCG                BX7    X1*X6                                                           MCG         1347     A     
 MCG                ZR     X7,FXR5     IF CLASS & RBV(REG[LP]) = 0                         MCG         1348     A     
 MCG                SA1    TRA+X2                                                          MCG         1349     A     
 MCG                SX7    X1+B2                                                           MCG         1350     A     
 MCG                PL     X7,FXR5     IF TRA(REG[LP]) \ TB                                MCG         1351     A     
 MCG                BX1    -X1                                                             MCG         1352     A     
 MCG                SB3    X2          RG = REG[LP]                                        MCG         1353     A     
 MCG                SB2    X1          TB = TRA(RG)                                        MCG         1354     A     
 MCG                EQ     FXR5                                                            MCG         1355     A     
 MCG                                                                                       MCG         1356     A     
 MCG      *         TYPE I  &  RJ = RK                                                     MCG         1357     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3400    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                                                                                       MCG         1358     A     
 MCG       FXR7     SB3    X2          REGNO = REG[LP]                                     MCG         1359     A     
 MCG                LX2    -I.USESP                                                        MCG         1360     A     
 MCG                MX3    -I.USESL                                                        MCG         1361     A     
 MCG                BX2    -X3*X2                                                          MCG         1362     A     
 MCG                SX7    X2-2                                                            MCG         1363     A     
 MCG                NZ     X7,FXR      IF USES[LP] " 2                                     MCG         1364     A     
 MCG                                                                                       MCG         1365     A     
 MCG                SA2    RBV+B3                                                          MCG         1366     A     
 MCG                BX6    X2*X6                                                           MCG         1367     A     
 MCG                ZR     X6,FXR      IF RBV(REGNO) & CLASS = 0                           MCG         1368     A     
 MCG                EQ     FXR2A                                                           MCG         1369     A     
 MCG                TTL    MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE                MCG         1370     A     
 MCG       PJI      TITLE  PJI - PROCESS JUMP INSTRUCTION                                  MCG         1371     A     
 MCG      **        PJI - PROCESS JUMP INSTRUCTION                                         MCG         1372     A     
 MCG      *                                                                                MCG         1373     A     
 MCG      *         ENTRY  (A4,X4) = DI, SHIFT( [DI] , -D.TYP )                            MCG         1374     A     
 MCG      *                                                                                MCG         1375     A     
 MCG      *         EXIT   INSTRUCTION ISSUED, *ICL* UPDATED, CLOCK ADVANCED, ETC.         MCG         1376     A     
 MCG                                                                                       MCG         1377     A     
 MCG       PJI      ROUTINE                                                                MCG         1378     A     
 MCG                MX1    -D.TYL                                                          MCG         1379     A     
 MCG                MX7    0                                                               MCG         1380     A     
 MCG                SB3    B0          REGNO = 0                                           MCG         1381     A     
 MCG                BX6    X1+X4                                                           MCG         1382     A     
 MCG                SA7    TRS         TRS = 0                                             MCG         1383     A     
 MCG                ZR     X6,PJI2     IF TYPE[DI] = IV                                    MCG         1384     A     
 MCG                                                                                       MCG         1385     A     
 MCG      *         DETERMINE EXECUTION TIME OF CONDITIONAL JP                             MCG         1386     A     
 MCG                                                                                       MCG         1387     A     
 MCG                SA1    "DI"-B1     R2 = DI - 1                                         MCG         1388     A     
 MCG                LX1    -IH.RFP                                                         MCG         1389     A     
 MCG                BX6    "RN"X1      R = RF[R2]                                          MCG         1390     A     
 MCG                ZR     X6,PJI1     IF R = 0                                            MCG         1391     A     
 MCG                SA3    "TB"+X6     LJ = BASE + R                                       MCG         1392     A     
 MCG                LX3    -I.REGP                                                         MCG         1393     A     
 MCG                SA2    TRA+X3                                                          MCG         1394     A     
 MCG                SB2    X2                                                              MCG         1395     A     
 MCG                LE     B2,B4,PJI1  T(EX) = MAX( T(EX) , TRA(REG[LJ]) )                 MCG         1396     A     
 MCG                SB4    X2                                                              MCG         1397     A     
 MCG       PJI1     SA1    A1-B1       R1 = R2 - 1                                         MCG         1398     A     
 MCG                BX6    "RN"X1      R = RI[R1]                                          MCG         1399     A     
 MCG                SA3    "TB"+X6     LJ = BASE + R                                       MCG         1400     A     
 MCG                LX3    -I.REGP                                                         MCG         1401     A     
 MCG                SB3    X3          REGNO = REG[LJ]                                     MCG         1402     A     
 MCG                SA2    TRA+X3                                                          MCG         1403     A     
 MCG                SB2    X2                                                              MCG         1404     A     
 MCG                LE     B2,B4,PJI2  T(EX) = MAX( T(EX) , TRA(REGNO) )                   MCG         1405     A     
 MCG                SB4    X2                                                              MCG         1406     A     
 MCG                                                                                       MCG         1407     A     
 MCG       PJI2     SA5    "DI"+B1     LI = DI + 1                                         MCG         1408     A     
 MCG                RJ     AIL         ADJUST THE ISSUE LIST                               MCG         1409     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3401    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                RJ     DUC         DECREMENT USES COUNTS                               MCG         1410     A     
 MCG                SA5    "DI"-2      R1 = DI - 2                                         MCG         1411     A     
 MCG                RJ     SII         SAVE THE INSTRUCTION                                MCG         1412     A     
 MCG                                                                                       MCG         1413     A     
 MCG       DBG      IF     DEF,/DEBUG/II                                                   MCG         1414     A     
 MCG                SX7    B4                                                              MCG         1415     A     
 MCG                PX6    B3,X7                                                           MCG         1416     A     
 MCG                LX7    PB.TEXP                                                         MCG         1417     A     
 MCG                BX6    X7+X6                                                           MCG         1418     A     
 MCG                SA6    PBI                                                             MCG         1419     A     
 MCG                PRNT   PJI,II,SAV                                                      MCG         1420     A     
 MCG       DBG      ENDIF                                                                  MCG         1421     A     
 MCG                                                                                       MCG         1422     A     
 MCG                SA5    "DI"-2      R1 = DI - 2                                         MCG         1423     A     
 MCG                UX5    B2,X5                                                           MCG         1424     A     
 MCG                SX7    B2-OC.JIN                                                       MCG         1425     A     
 MCG                MI     X7,PJI5     IF OC[R1] < OC.JIN  */ A CONDITIONAL JP             MCG         1426     A     
 MCG       PJI      SPACE  1,10                                                            MCG         1427     A     
 MCG      *         PROCESS UNCONDITIONAL JUMPS ( UJP / RJX / JIN )                        MCG         1428     A     
 MCG                                                                                       MCG         1429     A     
 MCG                S"DI"  "DI"                                                            FCC2535       30     A     
 MCG                RJ     SSP         SET N.SP FOR UPCOMING SEQUENCE                      FCC2535       31     A     
 MCG                RJ     AVC         ADVANCE CLOCK                                       MCG         1430     A     
 MCG                SA1    JLR                                                             MCG         1431     A     
 MCG                ZR     X1,PJI      IF JLR = 0    */ NO UJP LOCKED REGISTERS            MCG         1432          I
          -FCC1442
 MCG                MX6    0                                                               MCG         1433          I
          -FCC1442
 MCG                SA3    AXR                                                             MCG         1434          I
          -FCC1442
 MCG                MX7    13                                                              MCG         1435          I
          -FCC1442
 MCG                SA6    /JAM/ISC    ISC = 0       */ CLEAR ISSUED ST CHAIN              FCC0625        9          I
          -FCC1442
 MCG                                                                                       MCG         1436          I
          -FCC1442
 MCG                SA3    AXR                                                             FCC1442        6     A     
 MCG                MX6    0                                                               FCC1442        7     A     
 MCG                SA6    /JAM/ISC    ISC = 0       */ CLEAR ISSUED STORE CHAIN           FCC1442        8     A     
 MCG                MX7    13                                                              FCC1442        9     A     
 MCG                ZR     X1,PJI      IF JLR = 0    */ NO UJP LOCKED REGISTERS            FCC1442       10     A     
 MCG                                                                                       FCC1442       11     A     
 MCG       PJI4     PX1    X1                                                              MCG         1437     A     
 MCG                NX5    B2,X1       REGNO = NORMC( JLR )                                MCG         1438     A     
 MCG                SA2    RBV+B2                                                          MCG         1439     A     
 MCG                AX5    B2,X7                                                           MCG         1440     A     
 MCG                BX3    X2+X3       AXR = RBV(REGNO) ! AXR                              MCG         1441     A     
 MCG                SA6    RVT+B2      RVT(REGNO) = 0                                      MCG         1442     A     
 MCG                BX1    -X5*X1      JLR = ^MASK(13+REGNO) & JLR                         MCG         1443     A     
 MCG                NZ     X1,PJI4     IF JLR " 0                                          MCG         1444     A     
 MCG                BX7    X3                                                              MCG         1445     A     
 MCG                SA7    A3                                                              MCG         1446     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3402    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA6    A1                                                              MCG         1447     A     
 MCG                EQ     PJI                                                             MCG         1448     A     
 MCG                                                                                       MCG         1449     A     
 MCG      *         CONDITIONAL JUMP, ADVANCE CLOCK, PARCEL COUNT                          MCG         1450     A     
 MCG                                                                                       MCG         1451     A     
 MCG       PJI5     SA4    "DI"                                                            MCG         1452     A     
 MCG                MX1    -D.FTL                                                          MCG         1453     A     
 MCG                SA2    PC                                                              MCG         1454     A     
 MCG                LX4    -D.FTP                                                          MCG         1455     A     
 MCG                BX6    -X1*X4                                                          MCG         1456     A     
 MCG                SX7    X6+B4       T = T(EX) + FT[DI]                                  MCG         1457     A     
 MCG                SX6    B1+B1                                                           MCG         1458     A     
 MCG                SX3    X2-3                                                            MCG         1459     A     
 MCG                SA7    T                                                               MCG         1460     A     
 MCG                PL     X3,PJI6     PC = IF( PC = 3) 2 ; ELSE MOD( PC+2 , 4 )           MCG         1461     A     
 MCG                MX3    -2                                                              MCG         1462     A     
 MCG                IX2    X2+X6                                                           MCG         1463     A     
 MCG                BX6    -X3*X2                                                          MCG         1464     A     
 MCG       PJI6     SA6    A2                                                              MCG         1465     A     
 MCG                EQ     PJI                                                             MCG         1466     A     
 MCG       PPI      TITLE  PPI - PROCESS PSEUDO INSTRUCTION                                MCG         1467     A     
 MCG      **        PPI - PROCESS PSEUDO INSTRUCTION                                       MCG         1468     A     
 MCG      *         ENTRY  (A5,X5) = R1,[R1]                                               MCG         1469     A     
 MCG      *                (A4,X4) = DI, SHIFT([DI], -D.TYP )                              MCG         1470     A     
 MCG                                                                                       MCG         1471     A     
 MCG                PROCESS (BOS,EOS)                                                      MCG         1472     A     
 MCG       PPI0     SA5    "DI"+B1     LI = DI + 1                                         MCG         1473     A     
 MCG                RJ     AIL         CALL AIL( PI , LI , REGNO )                         MCG         1474     A     
 MCG                RJ     SSP         SET N.SP FOR UPCOMING SEQUENCE                      FCC2535       32     A     
 MCG                                                                                       MCG         1475     A     
 MCG       PPI      ROUTINE                                                                MCG         1476     A     
 MCG                PRNT   PPI,II,SAVPBI                                                   MCG         1477     A     
 MCG                UX7    B2,X5                                                           MCG         1478     A     
 MCG                SB3    B0          REGNO = 0                                           MCG         1479     A     
 MCG                JP     PPI.JT+B2   JUMP( PPI.JT( OC[R1] ) )                            MCG         1480     A     
 MCG       DAR      SPACE  2                                                               MCG         1481     A     
 MCG      *         DAR  RI,RJ - DEFINE A-REGISTER R-NUMBER                                MCG         1482     A     
 MCG                                                                                       MCG         1483     A     
 MCG                PROCESS DAR                                                            MCG         1484     A     
 MCG                SA4    "DI"                                                            MCG         1485     A     
 MCG                LX5    -R1.RJP                                                         MCG         1486     A     
 MCG                BX5    "RN"X5      RJ = RJ[R1]                                         MCG         1487     A     
 MCG                SA3    "TB"+X5     LJ = RJ + BASE                                      MCG         1488     A     
 MCG                LX3    -I.REGP                                                         MCG         1489     A     
 MCG                SA1    ALR                                                             MCG         1490          I
          -FCC0603
 MCG                SA2    RBV+X3                                                          MCG         1491          I
          -FCC0603
 MCG                SB3    X3+AMX      AREGNO = REG[LJ] + AMX                              MCG         1492          I
          -FCC0603
 MCG                BX6    -X2*X1      ALR = ^RBV(REG[LJ]) & ALR                           MCG         1493          I
          -FCC0603
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3403    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA6    A1                                                              MCG         1494          I
          -FCC0603
 MCG                SA1    RVT+X3                                                          MCG         1495          I
          -FCC0603
 MCG                SB4    B0          T(EX) = 0     */ MAKE X-REG AVAIL AT T = 0          MCG         1496          I
          -FCC0603
 MCG                MX2    1                                                               MCG         1497          I
          -FCC0603
 MCG                BX6    -X2*X1      LOCK[RVT(REGNO)] = 0                                MCG         1498          I
          -FCC0603
 MCG                SA6    A1                                                              MCG         1499          I
          -FCC0603
 MCG                SB3    X3+AMX      REGNO = REG[LJ] + AMX  */ A-REGISTER NUMBER         FCC0603       99     A     
 MCG                SB4    0           T(EX) = 0     */ MAKE X-REG AVAIL AT T = 0          FCC0603      100     A     
 MCG                RJ     DUC         DECREMENT USES COUNTS                               MCG         1500     A     
 MCG                SB4    B5          T(EX) = T(IS)                                       MCG         1501     A     
 MCG                EQ     PPI0                                                            MCG         1502     A     
 MCG       DEF      SPACE  2                                                               MCG         1503     A     
 MCG      *         DEF  RI,SOREG      DEFINE RI TO BE IN *SOREG*                          MCG         1504     A     
 MCG                                                                                       MCG         1505     A     
 MCG                PROCESS DEF                                                            MCG         1506     A     
 MCG                BX7    "RN"X5      RI = RI[R1]                                         MCG         1507     A     
 MCG                LX5    -R1.SOP                                                         MCG         1508     A     
 MCG                MX3    -SO.RTL-SO.RNL                                                  MCG         1509     A     
 MCG                BX6    -X3*X5                                                          MCG         1510     A     
 MCG                SB3    X6          REGNO = SOREG[R1]                                   MCG         1511     A     
 MCG                SA7    RVT+X6      RVT(REGNO) = RI                                     MCG         1512     A     
 MCG                LX5    58-SO.LKP                                                       MCG         1513     A     
 MCG                PL     X5,PPI4     IF SOLK[R1] = 0  */ NOT A FULL LOCK                 MCG         1514          I
          -FCC0603
 MCG                                                                                       MCG         1515          I
          -FCC0603
 MCG                SA1    LXR                                                             MCG         1516          I
          -FCC0603
 MCG                SA2    RBV+B3                                                          MCG         1517          I
          -FCC0603
 MCG                MX3    1                                                               MCG         1518          I
          -FCC0603
 MCG                SA1    AXR                                                             FCC0603      101     A     
 MCG                SA2    RBV+B3                                                          FCC0603      102     A     
 MCG                BX6    -X2*X1      AXR = ^RBV(REGNO) & AXR                             FCC0603      103     A     
 MCG                SA6    A1                                                              FCC0603      104     A     
 MCG                PL     X5,PPI0     IF SOLK[R1] = 0  */ NOT FULL /A-REG LOCK            FCC0603      105     A     
 MCG                LX5    1                                                               FCC0603      106     A     
 MCG                MI     X5,PPI4     IF SOLK[R1] = 3  */ A-REG LOCK                      FCC0603      107     A     
 MCG                                                                                       FCC0603      108     A     
 MCG                MX3    1                                                               FCC0603      109     A     
 MCG                SA1    LXR                                                             FCC0603      110     A     
 MCG                BX7    X3+X7       LOCK[RVT(REGNO)] = 1                                MCG         1519     A     
 MCG                SA7    A7                                                              MCG         1520     A     
 MCG                BX6    X1+X2       LXR = LXR ! RBV(REGNO)                              MCG         1521     A     
 MCG                SA6    A1                                                              MCG         1522     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3404    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                                                                                       MCG         1523          I
          -FCC0603
 MCG       PPI4     SA1    AXR                                                             MCG         1524          I
          -FCC0603
 MCG                SA2    RBV+B3                                                          MCG         1525          I
          -FCC0603
 MCG                BX6    -X2*X1      AXR = ^RBV(REGNO) & AXR                             MCG         1526          I
          -FCC0603
 MCG                SA6    A1                                                              MCG         1527          I
          -FCC0603
 MCG                EQ     PPI0                                                            MCG         1528          I
          -FCC0603
 MCG                EQ     PPI0                                                            FCC0603      111     A     
 MCG                                                                                       FCC0603      112     A     
 MCG       PPI4     SA1    ALR                                                             FCC0603      113     A     
 MCG                BX6    -X2*X1      ALR = ^RBV(REGNO) & ALR                             FCC0603      114     A     
 MCG                SA6    A1                                                              FCC0603      115     A     
 MCG                EQ     PPI0                                                            FCC0603      116     A     
 MCG       LAB      SPACE  3,10                                                            MCG         1529     A     
 MCG      *         LAB/ENT  IH,CA                                                         MCG         1530     A     
 MCG                                                                                       MCG         1531     A     
 MCG                PROCESS (LAB,ENT)                                                      MCG         1532     A     
 MCG                SA5    "DI"+B1     LI = DI + 1                                         MCG         1533     A     
 MCG                RJ     AIL         CALL AIL( PI , LI , 0 )                             MCG         1534     A     
 MCG                RJ     SSP         SET N.SP FOR UPCOMING SEQUENCE                      FCC2535       33     A     
 MCG                SA5    "DI"-2      R1 = DI - 2                                         MCG         1535     A     
 MCG                RJ     SII         SAVE THE ISSUED INSTRUCTION                         MCG         1536     A     
 MCG                IFNE   .IWT,0                                                          MCG         1537     A     
 MCG                SA3    "DI"-B1     R2 = DI - 1                                         MCG         1538     A     
 MCG                LX3    59-IH.STKP                                                      MCG         1539     A     
 MCG                PL     X3,PPI6     IF ^STK[R2]   */ LOOP NOT INSTACK                   MCG         1540     A     
 MCG                MX6    0                                                               MCG         1541     A     
 MCG                SA6    IWT         IWT = 0                                             MCG         1542     A     
 MCG       PPI6     BSS    0                                                               MCG         1543          I
          -FCC2535
 MCG                ENDIF                                                  '6600           MCG         1544     A     
 MCG                RJ     AVC         ADVANCE CLOCK                                       MCG         1545          I
          -FCC2535
 MCG       PPI6    RJ      AVC         ADVANCE THE CLOCK                                   FCC2535       34     A     
 MCG                EQ     PPI                                                             MCG         1546     A     
 MCG       RS       SPACE  2                                                               MCG         1547     A     
 MCG      *         RS  RI,LK,SOREG - REGISTER STORE PROCESSING                            MCG         1548     A     
 MCG                                                                                       MCG         1549     A     
 MCG                PROCESS RS                                                             MCG         1550     A     
 MCG                BX7    "RN"X5      RI = RI[R1]                                         MCG         1551     A     
 MCG                LX5    -R1.SOP                                                         MCG         1552     A     
 MCG                MX3    -SO.RTL-SO.RNL                                                  MCG         1553     A     
 MCG                BX6    -X3*X5      REGNO = SOREG[R1]                                   MCG         1554     A     
 MCG                LX5    -SO.LKP                                                         MCG         1555     A     
 MCG                MX3    -SO.LKL                                                         MCG         1556     A     
 MCG                BX2    -X3*X5                                                          MCG         1557     A     
 MCG                SB2    X2                                                              MCG         1558     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3405    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                JP     PPI9+B2     JUMP( SOLK[R1] )                                    MCG         1559          I
          -FCC0603
 MCG                                                                                       MCG         1560          I
          -FCC0603
 MCG       PPI9     BSS    0                                                               MCG         1561          I
          -FCC0603
 MCG                JP     PPI7+B2     JUMP( SOLK[R1] )                                    FCC0603      117     A     
 MCG                                                                                       FCC0603      118     A     
 MCG       PPI7     BSS    0                                                               FCC0603      119     A     
 MCG                LOC    0                                                               MCG         1562     A     
 MCG                SA1    JLR                                                             MCG         1563     A     
 MCG                EQ     PPI10                                                           MCG         1564     A     
 MCG                EQ     PPI0        */ TEMP LOCK                                        MCG         1565     A     
 MCG                EQ     PPI11                                                           MCG         1566     A     
 MCG                LOC    *O                                                              MCG         1567     A     
 MCG                                                                                       MCG         1568     A     
 MCG      *         RJ REGISTER STORE                                                      MCG         1569     A     
 MCG                                                                                       MCG         1570     A     
 MCG                SA3    "DI"-3      */ CHECK USES OF R-NUMBER OF X-REG OF PRED          MCG         1571     A     
 MCG                LX3    -I.REGP                                                         MCG         1572     A     
 MCG                SA1    TRA+X3      XREG = REG[DI-3]                                    MCG         1573     A     
 MCG                MX2    -I.USESL                                                        MCG         1574     A     
 MCG                LX3    I.REGP-I.USESP                                                  MCG         1575     A     
 MCG                SA7    RVT+X6      RVT(REGNO) = RI                                     MCG         1576     A     
 MCG                SA7    /JAM/LRN+X6 LRN(REGNO) = RI                                     FCC0641       72     A     
 MCG                SB3    X6                                                              MCG         1577     A     
 MCG                BX6    X1                                                              MCG         1578     A     
 MCG                SA6    TRA+B3      TRA(REGNO) = TRA(XREG)                              MCG         1579     A     
 MCG                BX6    -X2*X3                                                          MCG         1580     A     
 MCG                NZ     X6,PPI4     IF USES[DI-3] " 0                                   MCG         1581          I
          -FCC0603
 MCG                NZ     X6,PPI8     IF USES[DI-3] " 0  */ X-RESULT USED                 FCC0603      120     A     
 MCG                LX3    I.USESP-I.REGP                                                  MCG         1582     A     
 MCG                SA1    RBV+X3                                                          MCG         1583     A     
 MCG                SA2    AXR                                                             MCG         1584     A     
 MCG                SA6    RVT+X3      RVT( REG[DI-3] ) = 0                                MCG         1585     A     
 MCG                BX7    X1+X2                                                           MCG         1586     A     
 MCG                SA7    A2          AXR = AXR ! RBV(XREG)                               MCG         1587     A     
 MCG                EQ     PPI4                                                            MCG         1588          I
          -FCC0603
 MCG       PPI8     SA1    AXR                                                             FCC0603      121     A     
 MCG                SA2    RBV+B3                                                          FCC0603      122     A     
 MCG                BX6    -X2*X1      AXR = ^RBV(REGNO) & AXR                             FCC0603      123     A     
 MCG                SA6    A1                                                              FCC0603      124     A     
 MCG                EQ     PPI0                                                            FCC0603      125     A     
 MCG       RS       SPACE  2                                                               MCG         1589     A     
 MCG      *         UJP LOCK - SET TO CLEAR WHEN NEXT UJP/RJX/JIN ENCOUNTERED              MCG         1590     A     
 MCG                                                                                       MCG         1591     A     
 MCG       PPI10    SB2    X6-47                                                           MCG         1592     A     
 MCG                SX3    B1                                                              MCG         1593     A     
 MCG                AX2    B2,X3                                                           MCG         1594     A     
 MCG                BX6    X2+X1       JLR = SHIFT(1,47-REGNO) ! JLR                       MCG         1595     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3406    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA6    A1                                                              MCG         1596     A     
 MCG                EQ     PPI0                                                            MCG         1597     A     
 MCG                                                                                       MCG         1598     A     
 MCG      *         FULL LOCK - SET LOCK BITS IN *LXR* AND *RVT*                           MCG         1599     A     
 MCG                                                                                       MCG         1600     A     
 MCG       PPI11    SA5    RVT+X6                                                          MCG         1601     A     
 MCG                SA1    RBV+X6                                                          MCG         1602     A     
 MCG                SA3    LXR                                                             MCG         1603     A     
 MCG                MX2    1                                                               MCG         1604     A     
 MCG                BX6    X2+X5       LOCK[RVT(REGNO)] = 1                                MCG         1605     A     
 MCG                SA6    A5                                                              MCG         1606     A     
 MCG                SA5    "TB"+X7     LI = BASE + RI                                      MCG         1607     A     
 MCG                LX2    1+I.USESP                                                       MCG         1608     A     
 MCG                BX7    X1+X3       LXR = LXR ! RBV(REGNO)                              MCG         1609     A     
 MCG                SA7    A3                                                              MCG         1610     A     
 MCG                IX6    X5-X2       USES[LI] = USES[LI] - 1                             MCG         1611     A     
 MCG                SA6    A5                                                              MCG         1612     A     
 MCG                EQ     PPI0                                                            MCG         1613     A     
 MCG       EOQ      SPACE  2                                                               MCG         1614     A     
 MCG      *         EOQ - TERMINATE *PIT* BUFFER, EXIT TO EOQ ADDRESS                      MCG         1615     A     
 MCG                                                                                       MCG         1616     A     
 MCG                PROCESS EOQ                                                            MCG         1617     A     
 MCG                SA5    PPIB                                                            MCG         1618     A     
 MCG                RJ     SII         SII( NOP )                                          MCG         1619     A     
 MCG                SA3    IIP                                                             MCG         1620     A     
 MCG                SA4    A3+B1                                                           MCG         1621     A     
 MCG                IX6    X3-X4       L.PIT = IIP(1) - IIP(2)                             MCG         1622     A     
 MCG                SA1    EOQA                                                            MCG         1623     A     
 MCG                SA6    L.PIT                                                           MCG         1624     A     
 MCG                SB2    X1                                                              MCG         1625     A     
 MCG                JP     B2          JUMP( EOQA )                                        MCG         1626     A     
 MCG                                                                                       MCG         1627     A     
 MCG       PPIB     VFD    12/2000B+OC.NOP,48/0                                            MCG         1628     A     
 MCG       AIL      TITLE  AIL - ADJUST ISSUE LIST                                         MCG         1629     A     
 MCG      **        AIL - ADJUST ISSUE CANDIDATE LIST TO REMOVE ISSUED INSTRUCTION         MCG         1630     A     
 MCG      *         FROM IT. NOTE THAT BECAUSE THE SUCCESSORS OF AN INSTRUCTION            MCG         1631     A     
 MCG      *         ARE SORTED BY "LATE START TIME" IN THE USES INDEX TABLE, THE           MCG         1632     A     
 MCG      *         *ICL* WILL ALSO BE SORTED BY "LST".                                    MCG         1633     A     
 MCG      *                                                                                MCG         1634     A     
 MCG      *         ENTRY  (A5,X5) = LI,[LI] - LINK WORD OF ISSUED INSTRUCTION.            MCG         1635     A     
 MCG      *                (B3) = REGNO ( NEW VALUE OF LINK FIELD )                        MCG         1636     A     
 MCG      *                                                                                MCG         1637     A     
 MCG      *         EXIT   (A4,X4) = DI, [DI] - DESCRIPTOR OF ISSUED INSTRUCTION.          MCG         1638     A     
 MCG      *                (X0) = R-NUMBER EXTRACTOR MASK                                  MCG         1639     A     
 MCG      *                LINK[LI] = REGNO                                                MCG         1640     A     
 MCG      *                ICL = ISSUE CANDIDATE LIST POINTER UPDATED.                     MCG         1641     A     
 MCG      *                                                                                MCG         1642     A     
 MCG      *         USES   B - 2, 6   , X - ALL  ( RESETS X0 )                             MCG         1643     A     
 MCG                                                                                       MCG         1644     A     
 MCG                                                                                       MCG         1645     A     
 MCG      *         RESET *ICL* POINTER, AND SET EXIT CONDITIONS                           MCG         1646     A     
 MCG                                                                                       MCG         1647     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3407    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG       AIL0     MX0    -R1.RIL+1                                                       MCG         1648     A     
 MCG                SA4    A5-B1       DI = LI - 1                                         MCG         1649     A     
 MCG                LX0    1           (X0) = R-NUMBER EXTRACTOR MASK                      MCG         1650     A     
 MCG                SA1    "TB"                                                            MCG         1651     A     
 MCG                NZ     B6,AIL      IF PS " 0     */ DIDNT ISSUE FIRST ELEMENT          MCG         1652     A     
 MCG                SX6    X1          ICL = LINK[*BOS*]                                   MCG         1653     A     
 MCG                IX7    X1-X6                                                           MCG         1654     A     
 MCG                SA6    ICL                                                             MCG         1655     A     
 MCG                SA7    "TB"+       LINK[*BOS*] = 0                                     MCG         1656     A     
 MCG                                                                                       MCG         1657     A     
 MCG       AIL      ROUTINE                                                                MCG         1658     A     
 MCG                SA1    "PI"+"TB"                                                       MCG         1659     A     
 MCG                SB6    "PI"        PS = PI                                             MCG         1660     A     
 MCG                MX7    -I.LINKL                                                        MCG         1661     A     
 MCG                S"PI"  "PI"+"TB"   PI = PI + BASE                                      MCG         1662     A     
 MCG                SX3    X5                                                              MCG         1663     A     
 MCG                BX2    X7*X1                                                           MCG         1664     A     
 MCG                MX4    1                                                               MCG         1665     A     
 MCG                IX6    X2+X3       LINK[PI] = LINK[LI]                                 MCG         1666     A     
 MCG                LX4    I.IIP+1     II[LI] = 1    */ INDICATE ISSUED                    MCG         1667     A     
 MCG                SA3    "TB"+X3     NI = LINK[LI] + BASE                                MCG         1668     A     
 MCG                BX5    X7*X5                                                           MCG         1669     A     
 MCG                SA6    A1                                                              MCG         1670     A     
 MCG                SX2    B3                                                              MCG         1671     A     
 MCG                LX2    I.REGP                                                          MCG         1672     A     
 MCG                IX4    X2+X4       REG[LI] = REGNO                                     MCG         1673     A     
 MCG                SX0    B1                                                              MCG         1674     A     
 MCG                BX6    X4+X5                                                           MCG         1675     A     
 MCG                SA6    A5                                                              MCG         1676     A     
 MCG                MX7    -I.INDXL                                                        MCG         1677     A     
 MCG                SA2    O.TREE                                                          MCG         1678     A     
 MCG                LX5    -I.INDXP                                                        MCG         1679     A     
 MCG                BX1    -X7*X5                                                          MCG         1680     A     
 MCG                LX7    I.LSTP                                                          MCG         1681     A     
 MCG                IX2    X1+X2                                                           MCG         1682     A     
 MCG                BX4    -X7*X3      RN = LST[NI]                                        MCG         1683     A     
 MCG                SA2    X2          UI = O.TREE + INDX[LS]                              MCG         1684          I
          -FCC1056
 MCG                SA2    X2          UI = O.TREE + INDX[LI]                              FCC1056       33     A     
 MCG                EQ     AIL3                                                            MCG         1685     A     
 MCG                                                                                       MCG         1686     A     
 MCG      *         LINK THIS TO NEXT, LAST TO THIS                                        MCG         1687     A     
 MCG                                                                                       MCG         1688     A     
 MCG       AIL1     SX5    A3-"TB"                                                         MCG         1689     A     
 MCG                LX0    I.ICP                                                           MCG         1690     A     
 MCG                IX5    X0+X5       IC[SI] = 1                                          MCG         1691     A     
 MCG                BX6    X5+X6       LINK[SI] = NI - BASE                                MCG         1692     A     
 MCG                MX5    -I.LINKL                                                        MCG         1693     A     
 MCG                SA6    A1                                                              MCG         1694     A     
 MCG                LX0    -I.ICP                                                          MCG         1695     A     
 MCG                SA1    "PI"        LINK[PI] = SI - BASE                                MCG         1696     A     
 MCG                S"PI"  A6          PI = SI                                             MCG         1697     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3408    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                BX6    X5*X1                                                           MCG         1698     A     
 MCG                SX5    A6-"TB"                                                         MCG         1699     A     
 MCG                IX6    X6+X5                                                           MCG         1700     A     
 MCG                                                                                       MCG         1701     A     
 MCG      *         IF NOT LAST SUCCESSOR, ADVANCE TO NEXT                                 MCG         1702     A     
 MCG                                                                                       MCG         1703     A     
 MCG       AIL2     SA6    A1                                                              MCG         1704     A     
 MCG                MI     X2,AIL0     IF LAST[UI]                                         MCG         1705     A     
 MCG                SA2    A2+B1       UI = UI + 1                                         MCG         1706     A     
 MCG                                                                                       MCG         1707     A     
 MCG      *         REDUCE PRED COUNT OF SUCCESSORS OF INSTRUCTION.                        MCG         1708     A     
 MCG                                                                                       MCG         1709     A     
 MCG       AIL3     SA1    "TB"+X2     SI = SUCC[UI] + BASE                                MCG         1710     A     
 MCG                IX6    X1-X0       NPRED[SI] = NPRED[SI] - 1                           MCG         1711     A     
 MCG                SB2    X1+                                                             MCG         1712     A     
 MCG                NE     B2,B1,AIL2  IF NPRED[SI] " 0                                    MCG         1713     A     
 MCG                                                                                       MCG         1714     A     
 MCG      *         ADD SUCCESSOR TO LIST BEFORE NEXT WITH GREATER *LST*                   MCG         1715     A     
 MCG                                                                                       MCG         1716     A     
 MCG                BX1    -X7*X1                                                          MCG         1717     A     
 MCG                IX5    X1-X4                                                           MCG         1718     A     
 MCG       AIL4     MI     X5,AIL1     IF LST[SI] < RN                                     MCG         1719     A     
 MCG                S"PI"  A3          PI = NI                                             MCG         1720     A     
 MCG                SA3    "TB"+X3     NI = LINK[NI] + BASE                                MCG         1721     A     
 MCG                BX4    -X7*X3      RN = LST[NI]                                        MCG         1722     A     
 MCG                IX5    X1-X4                                                           MCG         1723     A     
 MCG                EQ     AIL4                                                            MCG         1724     A     
 MCG       DUC      TITLE  DUC - DECREMENT USES COUNTS                                     MCG         1725     A     
 MCG      **        DUC - DECREMENT USES COUNTS                                            MCG         1726     A     
 MCG      *                                                                                MCG         1727     A     
 MCG      *         ENTRY  (A4,X4) = DI, [DI]                                              MCG         1728     A     
 MCG      *                (B3) = REGNO  ( OF RESULT REGISTER )                            MCG         1729     A     
 MCG      *                (B4) = T(EX) OF INSTRUCTION                                     MCG         1730     A     
 MCG      *                                                                                MCG         1731     A     
 MCG      *         EXIT   RVT, AXR UPDATED                                                MCG         1732     A     
 MCG      *                                                                                MCG         1733     A     
 MCG      *         USES   B - 2, 6   X - 1 - 7                                            MCG         1734     A     
 MCG                                                                                       MCG         1735     A     
 MCG       DUC0     MI     X4,DUC      IF ^D[DI] ! TYPE[DI] = IV                           MCG         1736     A     
 MCG                SA5    "DI"-2      R1 = DI - 2                                         MCG         1737     A     
 MCG                SA1    RBV+B3                                                          MCG         1738     A     
 MCG                SA2    AXR                                                             MCG         1739     A     
 MCG                BX7    "RN"X5                                                          MCG         1740     A     
 MCG                SA7    B6+B3       RVT(REGNO) = RI                                     MCG         1741     A     
 MCG                BX6    -X1*X2      AXR = ^RBV(REGNO) & AXR                             MCG         1742     A     
 MCG                SA6    A2                                                              MCG         1743     A     
 MCG                                                                                       MCG         1744     A     
 MCG       DUC      ROUTINE                                                                MCG         1745     A     
 MCG                LX4    58-D.TYP                                                        MCG         1746     A     
 MCG                IX7    X4+X4                                                           MCG         1747     A     
 MCG                SB6    RVT                                                             MCG         1748     A     
 MCG                MX6    -D.TYIOL                                                        MCG         1749     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3409    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                MI     X7,DUC0     IF TYPE[DI] = II ! IV                               MCG         1750     A     
 MCG                                                                                       MCG         1751     A     
 MCG                SA5    "DI"-2      R1 = DI - 2                                         MCG         1752     A     
 MCG                PL     X4,DUC1     IF TYPE[DI] = I                                     MCG         1753     A     
 MCG                                                                                       MCG         1754     A     
 MCG      *         TYPE III INSTRUCTION                                                   MCG         1755     A     
 MCG                                                                                       MCG         1756     A     
 MCG                SA3    "DI"-B1     R2 = DI - 1                                         MCG         1757     A     
 MCG                LX4    1+D.TYP-D.^DP                                                   MCG         1758     A     
 MCG                BX7    "RN"X5      RI = RI[R1]                                         MCG         1759     A     
 MCG                LX3    -IH.RFP                                                         MCG         1760     A     
 MCG                BX5    "RN"X3      RNUMS = RF[R2]                                      MCG         1761     A     
 MCG                PL     X4,DUC2     IF DEF[DI]                                          MCG         1762     A     
 MCG                LX7    R1.RIL                                                          MCG         1763     A     
 MCG                BX5    X7+X5       RNUMS = SHIFT(RI,16) ! RNUMS                        MCG         1764     A     
 MCG                EQ     DUC2                                                            MCG         1765     A     
 MCG                                                                                       MCG         1766     A     
 MCG      *         TYPE I INSTRUCTION                                                     MCG         1767     A     
 MCG                                                                                       MCG         1768     A     
 MCG       DUC1     LX4    2+D.TYP-D.TYIOP                                                 MCG         1769     A     
 MCG                BX7    -X6*X4                                                          MCG         1770     A     
 MCG                SA3    TYIOM+X7                                                        MCG         1771     A     
 MCG                UX2    B2,X3                                                           MCG         1772     A     
 MCG                LX4    D.TYIOP+59-D.^DP                                                MCG         1773     A     
 MCG                BX1    X2*X5                                                           MCG         1774     A     
 MCG                AX5    B2,X1       RNUMS = TYIOM[DI] & [R1]                            MCG         1775     A     
 MCG                                                                                       MCG         1776     A     
 MCG      *         SETUP REGISTERS FOR LOOP                                               MCG         1777     A     
 MCG                                                                                       MCG         1778     A     
 MCG       DUC2     MX1    I.USESL-1                                                       MCG         1779     A     
 MCG                SX7    B1                                                              MCG         1780     A     
 MCG                LX1    I.USESL+I.USESP                                                 MCG         1781     A     
 MCG                BX3    "RN"X5      R = RI[RNUMS]                                       MCG         1782     A     
 MCG                LX7    I.USESP                                                         MCG         1783     A     
 MCG                NZ     X5,DUC4     IF RNUMS " 0                                        MCG         1784     A     
 MCG                EQ     DUC0                                                            MCG         1785     A     
 MCG                                                                                       MCG         1786     A     
 MCG      *         DECREMENT USES COUNTS OF OPERANDS, ADJUST *AXR*, *RVT*                 MCG         1787     A     
 MCG                                                                                       MCG         1788     A     
 MCG       DUC3     AX5    R1.RIL      RNUMS = SHIFT(RNUMS,-R1.RIL)                        MCG         1789     A     
 MCG                ZR     X5,DUC0     IF RNUMS = 0                                        MCG         1790     A     
 MCG                BX3    "RN"X5      R = RI[RNUMS]                                       MCG         1791     A     
 MCG       DUC4     SA2    "TB"+X3     LP = BASE + R                                       MCG         1792     A     
 MCG                ZR     X3,DUC3     IF R = 0                                            MCG         1793     A     
 MCG                IX6    X2-X7       USES[LP] = USES[LP] - 1                             MCG         1794     A     
 MCG                BX3    X1*X2                                                           MCG         1795     A     
 MCG                SA6    A2                                                              MCG         1796     A     
 MCG                NZ     X3,DUC3     IF USES[LP] " 0                                     MCG         1797     A     
 MCG                LX2    -I.REGP     REGP = REG[LP]                                      MCG         1798     A     
 MCG                SA3    B6+X2                                                           MCG         1799     A     
 MCG                MI     X3,DUC3     IF LOCK[RVT(REGP)]                                  MCG         1800     A     
 MCG                                                                                       MCG         1801     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3410    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG      *         RETURN REGISTER TO AVAILABLE LIST                                      MCG         1802     A     
 MCG                                                                                       MCG         1803     A     
 MCG                MX6    0                                                               MCG         1804     A     
 MCG                SA6    A3          RVT(REGP) = 0                                       MCG         1805     A     
 MCG                SX6    B4+B1                                                           MCG         1806     A     
 MCG                SA6    TRA+X2      TRA(REGNO) = T(EX) + 1                              MCG         1807     A     
 MCG                SA3    RBV+X2                                                          MCG         1808     A     
 MCG                SA2    AXR                                                             MCG         1809     A     
 MCG                BX6    X3+X2                                                           MCG         1810     A     
 MCG                SA6    A2          AXR = RBV(REGP) ! AXR                               MCG         1811     A     
 MCG                EQ     DUC3                                                            MCG         1812     A     
 MCG       ASC      TITLE  ASC - ADVANCE SIMULATION CLOCKS                                 MCG         1813     A     
 MCG      **        ASC - ADVANCE SIMULATION CLOCKS FOR ISSUED INSTRUCTION                 MCG         1814     A     
 MCG      *         ALSO DO LD/ST TO SLD/SST TRANSFORMATION AND ADJUST *SP* COUNT          MCG         1815     A     
 MCG      *         ENTRY  (A4,X4) = DI, [DI]                                              MCG         1816     A     
 MCG      *                (B4) = T(EX)                                                    MCG         1817     A     
 MCG      *                (B5) = T(IS)                                                    MCG         1818     A     
 MCG      *                (B3) = REGNO ( SOREGNO OF *RI* REGISTER )                       MCG         1819     A     
 MCG      *                                                                                MCG         1820     A     
 MCG      *         EXIT   (B3) = CHANGED TO A-REG NUMBER FOR LD/ST INSTRUCTIONS           MCG         1821     A     
 MCG      *                T, PC, TRA, TFU, LST, EXT. UPDATED.                             MCG         1822     A     
 MCG                                                                                       MCG         1823     A     
 MCG       ASC0     SA6    A1                                                              MCG         1824     A     
 MCG                IX7    X3+X7                                                           MCG         1825     A     
 MCG                PRNT   ASC,II                                                          MCG         1826     A     
 MCG                PRNT   ASC,ICL                                                         MCG         1827     A     
 MCG                PRNT   ASC,RUI                                                         MCG         1828     A     
 MCG                SA7    T                                                               MCG         1829     A     
 MCG                                                                                       MCG         1830     A     
 MCG       ASC      ROUTINE                                                                MCG         1831     A     
 MCG                MX7    -D.LDSTL                                                        MCG         1832     A     
 MCG                LX4    -D.LDSTP                                                        MCG         1833     A     
 MCG                SA2    PBI+1                                                           MCG         1834     A     
 MCG                BX1    -X7*X4                                                          MCG         1835     A     
 MCG                ZR     X1,ASC7     IF LDST[DI] = 0                                     MCG         1836     A     
 MCG       #DAL     IFNE   .DAL,0                                                          MCG         1837     A     
 MCG                BX3    X4                                                              MCG         1838     A     
 MCG                LX3    D.LDSTP+59-D.L2P                                                MCG         1839     A     
 MCG                MI     X3,ASC6     IF L2[DI]                                           MCG         1840     A     
 MCG       #DAL     ENDIF                                                                  MCG         1841     A     
 MCG                                                                                       MCG         1842     A     
 MCG      *         COMMON HANDLING OF LD/ST INSTRUCTIONS                                  MCG         1843     A     
 MCG                                                                                       MCG         1844     A     
 MCG                MX7    -SO.RNL                                                         MCG         1845     A     
 MCG                SX3    B3                                                              MCG         1846     A     
 MCG                AX1    D.LDP-D.LDSTP     I = LD[DI]                                    MCG         1847     A     
 MCG                UX5    B2,X2       F = FU[PBI+1]                                       MCG         1848     A     
 MCG                BX3    -X7*X3      RN = SORN[REGNO]                                    MCG         1849     A     
 MCG                SX7    B4+"INCT"   TFU(F) = T(EX) + INC TIME                           MCG         1850     A     
 MCG                LX4    D.LDSTP-D.SZP                                                   MCG         1851     A     
 MCG                SA2    TSL+X1                                                          MCG         1852     A     
 MCG                SB3    X3+RN.A0    REGNO = A0 + RN                                     MCG         1853     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3411    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG       #MD      IFGE   .CPU,74                                         ?66/76          MCG         1854     A     
 MCG                SA7    TFU+B2                                                          MCG         1855     A     
 MCG                SA7    TRA+RN.A0+X3      TRA(A0+RN) = T(EX) + INC TIME                 MCG         1856     A     
 MCG                SX6    X2+B4                                                           MCG         1857     A     
 MCG                SA6    TRA+RN.X0+X3      TRA(X0+RN) = T(EX) + TSL(I)                   MCG         1858     A     
 MCG                SA6    LST+X1      LST(I) = T(EX) + TSL(I)                             MCG         1859     A     
 MCG       #MD      ENDIF                                                  '66/76          MCG         1860     A     
 MCG                                                                                       MCG         1861     A     
 MCG       #MD      IFEQ   .CPU,76                                         ?7600           MCG         1862     A     
 MCG                SA2    T                                                               MCG         1863     A     
 MCG                SA3    TRS         BIT = 0                                             MCG         1864     A     
 MCG                SX5    B1                        */ ADJUST BIT VECTOR BASE             MCG         1865     A     
 MCG                IX7    X5-X2                                                           MCG         1866     A     
 MCG                SB6    B4+X7                                                           MCG         1867     A     
 MCG                AX6    B6,X3       TRS = SHIFT( TRS , -( T(EX)+1-T ) )                 MCG         1868     A     
 MCG                SA6    A3                                                              MCG         1869     A     
 MCG       #MD      ENDIF                                                  '7600           MCG         1870     A     
 MCG                                                                                       MCG         1871     A     
 MCG      *         CHECK FOR TRANSFORMATION TO SHORT LD/ST                                MCG         1872     A     
 MCG                                                                                       MCG         1873     A     
 MCG                MX5    D.ARL                                                           MCG         1874     A     
 MCG                LX5    D.ARL+D.ARP-D.SZP                                               MCG         1875     A     
 MCG                SA3    "DI"-B1     R2 = DI - 1                                         MCG         1876     A     
 MCG                BX1    X5*X4                                                           MCG         1877     A     
 MCG                LX6    X3                                                              MCG         1878          I
          -FCC0881
 MCG                MX7    1                                                               FCC0881       30     A     
 MCG                BX6    -X7*X3      LD[R2W] = 0   */ CLEAR APL LD BIT                   FCC0881       31     A     
 MCG                ZR     X1,ASC5     IF ^(SR[DI] ! FP[DI])                               MCG         1879     A     
 MCG                SB2    ARA-1                                                           MCG         1880     A     
 MCG                SA6    B2+B1       ARA(0) = [R2] */ SET SEARCH TERMINATOR              MCG         1881     A     
 MCG                PL     X1,ASC3     IF ^SR[DI]                                          MCG         1882     A     
 MCG                                                                                       MCG         1883     A     
 MCG                SA2    ARA+7       I = ARA(7)                                          MCG         1884     A     
 MCG       ASC1     BX5    X6-X2                                                           MCG         1885     A     
 MCG                SA2    A2-B1       I = I - 1                                           MCG         1886     A     
 MCG                NZ     X5,ASC1     IF [I] " [R2]                                       MCG         1887     A     
 MCG                SX7    A2-B2                                                           MCG         1888     A     
 MCG                ZR     X7,ASC2     IF I = 0      */ MATCH WITH SEARCH TERMIN           MCG         1889     A     
 MCG                SX4    B1          SZ[DI] = 1                                          MCG         1890     A     
 MCG                SA7    RMR         RMR = I - ARA(-1) */ SAVE A REG NUM                 MCG         1891     A     
 MCG                EQ     ASC5                                                            MCG         1892     A     
 MCG                                                                                       MCG         1893     A     
 MCG      *         CHECK FOR ELIMINATION OF F.P. ADDSUB                                   MCG         1894     A     
 MCG                                                                                       MCG         1895     A     
 MCG       ASC2     LX1    D.SRP-D.FPP                                                     MCG         1896     A     
 MCG                PL     X1,ASC5     IF ^FP[DI]                                          MCG         1897     A     
 MCG       ASC3     SA2    ARA+7                                                           MCG         1898     A     
 MCG                MX7    -IH.CAL                                                         MCG         1899     A     
 MCG                LX7    IH.CAP                                                          MCG         1900     A     
 MCG       ASC4     BX5    X6-X2                                                           MCG         1901     A     
 MCG                SA2    A2-1        I = I - 1                                           MCG         1902     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3412    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                BX3    X7*X5                                                           MCG         1903     A     
 MCG                NZ     X3,ASC4     IF RFIH[I] " RFIH[R2]                               MCG         1904     A     
 MCG                                                                                       MCG         1905     A     
 MCG                SX1    A2-B2       I = I - ARA(-1)                                     MCG         1906     A     
 MCG                SA2    A2+B1                                                           MCG         1907     A     
 MCG                ZR     X1,ASC5     IF I = 0                                            MCG         1908     A     
 MCG                SA6    ARA+B3-RN.A0                                                    MCG         1909     A     
 MCG                LX6    -IH.CAP                                                         MCG         1910     A     
 MCG                SB6    X6                                                              MCG         1911     A     
 MCG                LX2    -IH.CAP                                                         MCG         1912     A     
 MCG                SB2    X2                                                              MCG         1913     A     
 MCG                SX6    B6-B2       CA[R2] = CA[R2] - CA[I]                             MCG         1914     A     
 MCG                LX6    IH.CAP                                                          MCG         1915     A     
 MCG                BX7    -X7*X6                                                          MCG         1916     A     
 MCG                IX6    X7+X1                                                           MCG         1917     A     
 MCG                SA6    RMR         RMR = IHINFO(0,CA,AREGNO)                           MCG         1918     A     
 MCG                EQ     ASC9                                                            MCG         1919     A     
 MCG                                                                                       MCG         1920     A     
 MCG       ASC5     SA6    ARA+B3-RN.A0                                                    MCG         1921     A     
 MCG                EQ     ASC9                                                            MCG         1922     A     
 MCG                                                                                       MCG         1923     A     
 MCG      *         LEVEL 2 LD/ST ( DRL/DWL )                                              MCG         1924     A     
 MCG                                                                                       MCG         1925     A     
 MCG       #DAL     IFNE   .DAL,0                                                          MCG         1926     A     
 MCG       ASC6     SA1    L2T+X1-1                                                        MCG         1927          I
          -FCCA546X 
 MCG       ASC6     BSS    0                                                               FCCA546X       7     A     
 MCG      #MD       IFGT   .CPU,74                                                         FCCA546X       8     A     
 MCG                SA1    L2T+X1-1                                                        FCCA546X       9     A     
 MCG                BX6    X1                                                              MCG         1928     A     
 MCG                SA6    FUT+9       FUT(LCM) = L2T(LDST)  */ SET LD/ST TIME             MCG         1929     A     
 MCG      #MD       ENDIF                                                                  FCCA546X      10     A     
 MCG       #DAL     ENDIF                                                                  MCG         1930     A     
 MCG       ASC      SPACE  3                                                               MCG         1931     A     
 MCG      *         GENERAL INSTRUCTION                                                    MCG         1932     A     
 MCG                                                                                       MCG         1933     A     
 MCG       ASC7     LX4    D.LDSTP+59-D.PSP                                                MCG         1934     A     
 MCG                UX2    B2,X2       F = FU[PBI+1]                                       MCG         1935     A     
 MCG                PL     X4,ASC8     IF ^PS[DI]                                          MCG         1936     A     
 MCG                SA3    N.SP                                                            MCG         1937     A     
 MCG                SX6    X3+B1       N.SP = N.SP + 1                                     MCG         1938     A     
 MCG                SA6    A3                                                              MCG         1939     A     
 MCG                NZ     X6,ASC8     IF N.SP " 0                                         MCG         1940     A     
 MCG                SA6    STL         STL = 0       */ CLEAR STORE LOCKOUT FLAG           MCG         1941     A     
 MCG                                                                                       MCG         1942     A     
 MCG       ASC8     LX4    1+D.PSP-D.FTP                                                   MCG         1943     A     
 MCG                MX5    -D.FTL                                                          MCG         1944     A     
 MCG                BX3    -X5*X4                                                          MCG         1945     A     
 MCG                SX6    B4+X3       TRA(REGNO) = T(EX) + FT[DI]                         MCG         1946     A     
 MCG                LX4    D.FTP-D.SZP                                                     MCG         1947     A     
 MCG       #MD      IFLE   .CPU,74                                         ?6600           MCG         1948     A     
 MCG                SX7    X6+B1       TFU(F) = T(EX) + FT[DI] + 1   */ 6600               MCG         1949     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3413    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG       #MD      ELSE                                                   '66?76          MCG         1950     A     
 MCG                SA2    T                                                               MCG         1951     A     
 MCG                SA1    TRS                                                             MCG         1952     A     
 MCG                SX5    B1                                                              MCG         1953     A     
 MCG                IX3    X6-X2                                                           MCG         1954     A     
 MCG                IX7    X5-X2                                                           MCG         1955     A     
 MCG                SB6    X3                                                              MCG         1956     A     
 MCG                LX5    B6,X5                                                           MCG         1957     A     
 MCG                SB6    B4+X7                                                           MCG         1958     A     
 MCG                BX1    X5+X1       TRS = TRS ! SHIFT( 1 , TRA(REGNO) - T )             MCG         1959     A     
 MCG                AX7    B6,X1       TRS = SHIFT( TRS , -( T(EX)+1 - T ) )               MCG         1960     A     
 MCG                SA2    FUT+B2-1                                                        MCG         1961     A     
 MCG                SA7    A1                                                              MCG         1962     A     
 MCG                SX7    B4+X2       TFU(F) = T(EX) + FUT(F)       */ 7600               MCG         1963     A     
 MCG       #MD      ENDIF                                                  '7600           MCG         1964     A     
 MCG       #MD      IFGE   .CPU,74                                         ?66/76          MCG         1965     A     
 MCG                SA6    TRA+B3                                                          MCG         1966     A     
 MCG                SA7    TFU+B2                                                          MCG         1967     A     
 MCG       #MD      ENDIF                                                                  MCG         1968     A     
 MCG                                                                                       MCG         1969     A     
 MCG      *         ADVANCE SIMULATION CLOCK, AND PARCEL COUNT                             MCG         1970     A     
 MCG                                                                                       MCG         1971     A     
 MCG       ASC9     SA1    PC                                                              MCG         1972     A     
 MCG                MX5    -2                                                              MCG         1973     A     
 MCG                BX2    -X5*X4      NP = SZ[DI]                                         MCG         1974     A     
 MCG                IX6    X1+X2       PC = PC + NP                                        MCG         1975     A     
 MCG       #MD      IFEQ   .CPU,76                                         ?7600           MCG         1976     A     
 MCG                SX7    B5+1        T = T(EX) + 1                                       MCG         1977     A     
 MCG       #MD      ELSE                                                   ?6600           MCG         1978     A     
 MCG                SX7    B5+X2       T = T(IS) + NP                                      MCG         1979     A     
 MCG       #MD      ENDIF                                                  '6600           MCG         1980     A     
 MCG                BX3    X5*X6                                                           MCG         1981     A     
 MCG                ZR     X3,ASC0     IF PC < 4                                           MCG         1982     A     
 MCG                SA3    IWT                                                             MCG         1983     A     
 MCG                BX6    -X5*X6      PC = MOD( PC , 4 )                                  MCG         1984     A     
 MCG                ZR     X6,ASC0     IF PC = 0                                           MCG         1985     A     
 MCG                BX6    X2          PC = NP                                             MCG         1986     A     
 MCG                MX3    0           */ INTERWORD DELAY TAKEN CARE OF IN *SNI*           MCG         1987     A     
 MCG                EQ     ASC0                                                            MCG         1988     A     
 MCG                                                                                       MCG         1989     A     
 MCG       #MD      IFEQ   .CPU,76                                         ?7600           MCG         1990          I
          -FCC1451
 MCG       #MD      IFGT   .CPU,74                                         ?7600           FCC1451        7     A     
 MCG       TSL      CON    2,8         STORE/LOAD TIMES  *7600*                            MCG         1991     A     
 MCG                                                                                       MCG         1992     A     
 MCG       FUT      BSS    0           FUNCTION UNIT TIME TABLE                            MCG         1993     A     
 MCG                LOC    1                                                               MCG         1994     A     
 MCG                DATA   1,1,1,1,1                                                       MCG         1995     A     
 MCG                CON    2           MULTIPLY                                            MCG         1996     A     
 MCG                CON    1           NORM                                                MCG         1997     A     
 MCG                CON    18          DIVIDE                                              MCG         1998     A     
 MCG                DATA   1,3,1                                                           MCG         1999     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3414    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                LOC    *O                                                              MCG         2000     A     
 MCG                                                                                       MCG         2001     A     
 MCG       L2T      DATA   3,15        LEVEL 2 STORE/LOAD TIMES                            MCG         2002     A     
 MCG                                                                                       MCG         2003     A     
 MCG       #MD      ELSE                                                   '7600           MCG         2004     A     
 MCG       TSL      CON    9,8         STORE/LOAD TIMES  *6600*                            MCG         2005     A     
 MCG       #MD      ENDIF                                                  '6600           MCG         2006     A     
 MCG       AVC      TITLE  AVC - ADVANCE CLOCK FOR UJP/RJX/LAB INSTRUCTIONS                MCG         2007     A     
 MCG      **        AVC - ADVANCE CLOCK AFTER ISSUE OF LAB/UJP/RJX                         MCG         2008     A     
 MCG      *         ENTRY  (B4) = T(EX)                                                    MCG         2009     A     
 MCG      *         EXIT   T , PC UPDATED.  N.SP , STL SET IF STORES IN NEXT BLOCK.        MCG         2010     A     
 MCG                                                                                       MCG         2011     A     
 MCG      *         SET STORE LOCKOUT FLAG IF MORE THAN 1 STORE PRED IN NEXT BLOCK         MCG         2012     A     
 MCG                                                                                       MCG         2013     A     
 MCG       AVC0     SA4    "DI"                                                            MCG         2014     A     
 MCG                LX4    -D.USESP                                                        MCG         2015     A     
 MCG                MX5    -D.USESL                                                        MCG         2016     A     
 MCG                SA3    L.OTI                                                           MCG         2017     A     
 MCG                NZ     X3,AVC1     IF L.OTI " 0  */ JAM MODE                           MCG         2018     A     
 MCG                BX6    -X4+X5                                                          MCG         2019     A     
 MCG                AX3    B1,X6                                                           MCG         2020     A     
 MCG                ZR     X3,AVC1     IF N.SP @ 1                                         MCG         2021     A     
 MCG                SX6    X6+B1                                                           MCG         2022     A     
 MCG                SA6    N.SP        N.SP = -(USES[DI]-1)                                MCG         2023     A     
 MCG                SX7    -FX.X6                                                          MCG         2024     A     
 MCG                SA7    STL         STL = -FX.X6                                        MCG         2025     A     
 MCG                                                                                       MCG         2026     A     
 MCG       AVC1     SA3    "DI"-4      DL = DI - 4                                         MCG         2027     A     
 MCG                SA1    AVCA                                                            MCG         2028     A     
 MCG                BX2    -X1+X3                                                          MCG         2029     A     
 MCG                ZR     X2,AVC      IF BM[DL] & TYPE[DL] = IV                           MCG         2030     A     
 MCG                SETZERO ARA+1,7    FOR I = 1 TO 7; ARA(I) = 0                          MCG         2031     A     
 MCG                                                                                       MCG         2032     A     
 MCG       AVC      ROUTINE                                                                MCG         2033     A     
 MCG                SA1    ICL                                                             MCG         2034     A     
 MCG                MX2    -I.LSTL                                                         MCG         2035     A     
 MCG                SA3    "TB"+X1     L = BASE + ICL                                      MCG         2036     A     
 MCG                MX7    0                                                               MCG         2037     A     
 MCG                SA7    PC          PC = 0                                              MCG         2038     A     
 MCG                LX3    -I.LSTP                                                         MCG         2039     A     
 MCG                BX6    -X2*X3                                                          MCG         2040     A     
 MCG                SA6    T           T = LST[L]                                          MCG         2041     A     
 MCG                SA7    TRS         TRS = 0                                             MCG         2042     A     
 MCG                SA2    A3-3        R1 = L - 3                                          MCG         2043     A     
 MCG                UX3    B2,X2                                                           MCG         2044     A     
 MCG                ZR     B2,AVC      IF OC[R1] = OC.EOQ                                  MCG         2045     A     
 MCG                SB2    X6-10                                                           MCG         2046     A     
 MCG                GT     B2,B4,AVC0  IF T \ T(EX) + 10                                   MCG         2047     A     
 MCG                MX2    8-1                                                             MCG         2048     A     
 MCG                SA7    TRA+23                                                          MCG         2049     A     
 MCG                MX6    0                                                               FCC1442       12     A     
 MCG      +         LX2    1           FOR I = 16 TO 24, TRA(I) = 0                        MCG         2050     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3415    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA7    A7-B1                                                           MCG         2051     A     
 MCG                MI     X2,*                                                            MCG         2052          I
          -FCC1442
 MCG                SA6    A7-22+7     TRA(I-8) = 0  */ CLEAR B-REG ASSOCIATES             FCC1442       13     A     
 MCG                MI     X2,*-1                                                          FCC1442       14     A     
 MCG                MX2    14-1                                                            MCG         2053     A     
 MCG                SA7    TFU                                                             MCG         2054     A     
 MCG      +         LX2    1           FOR I = 1 TO 14, TFU(I) = 0                         MCG         2055     A     
 MCG                SA7    A7+B1                                                           MCG         2056     A     
 MCG                MI     X2,*                                                            MCG         2057     A     
 MCG                EQ     AVC0                                                            MCG         2058     A     
 MCG                                                                                       MCG         2059     A     
 MCG       AVCA     BFMW   D,(TY,BM)                                                       MCG         2060     A     
 MCG       SII      TITLE  SII - SAVE ISSUED INSTRUCTION                                   MCG         2061     A     
 MCG      **        SII - SAVE ISSUED INSTRUCTION FOR LATER PROCESSING                     MCG         2062     A     
 MCG      *                I.E. FINAL CONVERSION OF INSTRUCTION TO MACHINE CODE.           MCG         2063     A     
 MCG      *                                                                                MCG         2064     A     
 MCG      *         ENTRY  (B3) = REG[RI]                                                  MCG         2065     A     
 MCG      *                (A5,X5) = R1, [R1]                                              MCG         2066     A     
 MCG      *                                                                                MCG         2067     A     
 MCG      *         EXIT   INSTRUCTION SAVED IN *PIT*, IIP UPDATED.                        MCG         2068     A     
 MCG      *                                                                                MCG         2069     A     
 MCG      *         USES   B - 2, 6  ,  X - 1, 2, 3, 4, 5, 6, 7                            MCG         2070     A     
 MCG                                                                                       MCG         2071     A     
 MCG                QUAL   SII                                                             MCG         2072     A     
 MCG       SI.      SPACE  3                                                               MCG         2073     A     
 MCG      **        SI. - SAVED INSTRUCTION FORMAT ( *PIT* )                               MCG         2074     A     
 MCG      *                                                                                MCG         2075     A     
 MCG      *         TYPE I     OC,0,RK,RJ,RI                                               MCG         2076     A     
 MCG      *                                                                                MCG         2077     A     
 MCG      *         TYPE II    OC,IN,0,0,RI                                                MCG         2078     A     
 MCG      *                                                                                MCG         2079     A     
 MCG      *         TYPE III   OC,CA,IH,RF,RI + *H2* IN SECOND WORD IF *H2* BIT SET        MCG         2080     A     
 MCG      *                                                                                MCG         2081     A     
 MCG      *         TYPE IV    OC,CA,0,IH    ( SAME AS RLIST FORMAT )                      MCG         2082     A     
 MCG                                                                                       MCG         2083     A     
 MCG                LIST   -R                                                              MCG         2084     A     
 MCG                                                                                       MCG         2085     A     
 MCG                DESCRIBE SI.,60    SI(OC,CA,IH/RK,RJ,RI)                               MCG         2086     A     
 MCG       H2       DEFINE 1           *H2* FIELD IN NEXT WORD                             MCG         2087     A     
 MCG       OC       DEFINE 11          PACKED OPCODE                                       MCG         2088     A     
 MCG       CA       DEFINE 18          CONSTANT ADDEND                                     MCG         2089     A     
 MCG       IH       DEFINE 18          SYMBOL ORDINAL                                      MCG         2090     A     
 MCG       RJ       DEFINE 6                                                               MCG         2091     A     
 MCG       RI       DEFINE 6                                                               MCG         2092     A     
 MCG                                                                                       MCG         2093     A     
 MCG       RK       DEQU   IH,6                                                            MCG         2094     A     
 MCG                                                                                       MCG         2095     A     
 MCG                LIST   R                                                               MCG         2096     A     
 MCG       SII      EJECT                                                                  MCG         2097     A     
 MCG      *         TYPE 1 INSTRUCTION WITH 2 OPERANDS                                     MCG         2098     A     
 MCG                                                                                       MCG         2099     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3416    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG       TYI      LX5    -R1.RJP                                                         MCG         2100     A     
 MCG                BX6    "RN"X5                                                          MCG         2101     A     
 MCG                SA1    "TB"+X6                                                         MCG         2102     A     
 MCG                LX1    -I.REGP                                                         MCG         2103     A     
 MCG                LX5    R1.RJP-R1.RKP                                                   MCG         2104     A     
 MCG                BX4    "RN"X5                                                          MCG         2105     A     
 MCG                SA2    "TB"+X4                                                         MCG         2106     A     
 MCG                LX2    -I.REGP                                                         MCG         2107     A     
 MCG                SX6    X1                                                              MCG         2108     A     
 MCG                SX4    X2                                                              MCG         2109     A     
 MCG                LX6    SI.RJP                                                          MCG         2110     A     
 MCG                BX1    X6+X7       [IIP-1] = SI(OC,0,REG[RK],REG[RJ],REG[RI])          MCG         2111     A     
 MCG                LX4    SI.RKP                                                          MCG         2112     A     
 MCG                IX7    X1+X4                                                           MCG         2113     A     
 MCG                                                                                       MCG         2114     A     
 MCG       SII0     SA7    X3+                                                             MCG         2115     A     
 MCG                                                                                       MCG         2116     A     
 MCG       SII      ROUTINE            ** ENTRY/EXIT **                                    MCG         2117     A     
 MCG                SA3    IIP                                                             MCG         2118     A     
 MCG                UX4    B2,X5                                                           MCG         2119     A     
 MCG                SX2    B3                                                              MCG         2120     A     
 MCG                SA1    SIIA+B2                                                         MCG         2121     A     
 MCG                SX6    X3+B1       IIP = IIP + 1                                       MCG         2122     A     
 MCG                PX7    B2,X2       SIW = PACK(OC[R1],0,0,REG[R])                       MCG         2123     A     
 MCG                SB6    X1                                                              MCG         2124     A     
 MCG                SA6    A3                                                              MCG         2125     A     
 MCG                JP     B6          JUMP( SIIA( OC[R1] ) )                              MCG         2126     A     
 MCG       TYPEI    SPACE  3                                                               MCG         2127     A     
 MCG      *         TYPE 1 - RK = 0                                                        MCG         2128     A     
 MCG                                                                                       MCG         2129     A     
 MCG                PROCESS (XMT,XMTC,CX,DRL,DWL)                                          MCG         2130     A     
 MCG                LX5    -R1.RJP                                                         MCG         2131     A     
 MCG                BX6    "RN"X5                                                          MCG         2132     A     
 MCG                SA1    "TB"+X6                                                         MCG         2133     A     
 MCG                LX1    -I.REGP                                                         MCG         2134     A     
 MCG                SX2    X1                                                              MCG         2135     A     
 MCG                LX2    SI.RJP                                                          MCG         2136     A     
 MCG                BX7    X2+X7       [IIP-1] = SI(OC,0,REG[RJ],REG[RI])                  MCG         2137     A     
 MCG                EQ     SII0                                                            MCG         2138     A     
 MCG                                                                                       MCG         2139     A     
 MCG      *         TYPE I - RJ IS A DEF                                                   MCG         2140     A     
 MCG                                                                                       MCG         2141     A     
 MCG                PROCESS (UP,NR,RNZ)                                                    MCG         2142     A     
 MCG                LX5    -R1.RKP                                                         MCG         2143     A     
 MCG                BX6    "RN"X5                                                          MCG         2144     A     
 MCG                SA1    "TB"+X6                                                         MCG         2145     A     
 MCG                LX5    R1.RKP-R1.RJP                                                   MCG         2146     A     
 MCG                LX1    -I.REGP                                                         MCG         2147     A     
 MCG                SX2    X1                                                              MCG         2148     A     
 MCG                BX6    "RN"X5                                                          MCG         2149     A     
 MCG                LX2    SI.RKP                                                          MCG         2150     A     
 MCG                IX7    X2+X7       [IIP-1] = SI(OC,REG[RK],0,REG[RI])                  MCG         2151     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3417    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                ZR     X6,SII0     IF RJ[R1] = 0                                       MCG         2152     A     
 MCG                SA1    A5+4        R1S = R1 + 4                                        MCG         2153     A     
 MCG                MX5    -SO.RTL-SO.RNL                                                  MCG         2154     A     
 MCG                LX1    -R1.SOP                                                         MCG         2155     A     
 MCG                BX2    -X5*X1      REG[RJ] = SOREG[R1S]                                MCG         2156     A     
 MCG                LX2    SI.RJP                                                          MCG         2157     A     
 MCG                IX7    X2+X7                                                           MCG         2158     A     
 MCG                EQ     SII0                                                            MCG         2159     A     
 MCG                                                                                       MCG         2160     A     
 MCG      *         TYPE II INSTRUCTION                                                    MCG         2161     A     
 MCG                                                                                       MCG         2162     A     
 MCG       TYII     AX4    R1.INP                                                          MCG         2163     A     
 MCG                LX4    SI.CAP                                                          MCG         2164     A     
 MCG                BX7    X4+X7       [IIP-1] = SI(OC,IN[R1],0,0,REG[RI])                 MCG         2165     A     
 MCG                EQ     SII0                                                            MCG         2166     A     
 MCG                                                                                       MCG         2167     A     
 MCG                PROCESS (KLS,KRS)                                                      MCG         2168     A     
 MCG                SA1    A5+B1       R2 = R1 + 1                                         MCG         2169     A     
 MCG                LX1    -IH.CAP                                                         MCG         2170     A     
 MCG                SX2    X1                                                              MCG         2171     A     
 MCG                LX2    SI.CAP                                                          MCG         2172     A     
 MCG                BX7    X2+X7       [IIP-1] = SI(OC,CA[R2],0,0,REG[RI])                 MCG         2173     A     
 MCG                EQ     SII0                                                            MCG         2174     A     
 MCG                                                                                       MCG         2175     A     
 MCG      *         TYPE III JUMP INSTRUCTIONS                                             MCG         2176     A     
 MCG                                                                                       MCG         2177     A     
 MCG       TYIII    SA5    A5+B1       R2 = R1 + 1                                         MCG         2178     A     
 MCG                MX6    -IH.CAIHL                                                       MCG         2179     A     
 MCG                LX5    -IH.CAIHP                                                       MCG         2180     A     
 MCG                BX4    -X6*X5                                                          MCG         2181     A     
 MCG                LX5    IH.CAIHP-IH.RFP                                                 MCG         2182     A     
 MCG                SA1    "TB"+X5                                                         MCG         2183     A     
 MCG                LX1    -I.REGP                                                         MCG         2184     A     
 MCG                LX4    SI.IHP                                                          MCG         2185     A     
 MCG                SX2    X1                                                              MCG         2186     A     
 MCG                LX2    SI.RJP                                                          MCG         2187     A     
 MCG                BX6    X2+X4                                                           MCG         2188     A     
 MCG                IX7    X6+X7       [IIP-1] = SI(OC,0,IH[R2],REG[RF],REG[RI])           MCG         2189     A     
 MCG                EQ     SII0                                                            MCG         2190     A     
 MCG                                                                                       MCG         2191     A     
 MCG      *         TYPE IV INSTRUCTIONS AND *NOP* ( BUFFER TERMINATOR )                   MCG         2192     A     
 MCG                                                                                       MCG         2193     A     
 MCG                PROCESS NOP                                                            MCG         2194     A     
 MCG       TYIV     BX7    X5          [IIP-1] = [R1]                                      MCG         2195     A     
 MCG                EQ     SII0                                                            MCG         2196     A     
 MCG       SII      EJECT                                                                  MCG         2197     A     
 MCG      *         MEMORY REFERENCES                                                      MCG         2198     A     
 MCG                                                                                       MCG         2199     A     
 MCG                PROCESS (LD,ST,STT,TLD,TST,ILD)                                        MCG         2200     A     
 MCG                SA1    RMR                                                             MCG         2201     A     
 MCG                MX6    -IH.CAIHL                                                       MCG         2202     A     
 MCG                SA2    A5+B1       R2 = R1 + 1                                         MCG         2203     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3418    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                NZ     X1,LSS2     IF RMR " 0    */ REDUCABLE MEMREF                   MCG         2204     A     
 MCG                LX2    -IH.CAIHP                                                       MCG         2205     A     
 MCG                BX6    -X6*X2                                                          MCG         2206     A     
 MCG                LX2    IH.CAIHP-IH.RFP                                                 MCG         2207     A     
 MCG                SA1    "TB"+X2                                                         MCG         2208     A     
 MCG                SB6    X2                                                              MCG         2209     A     
 MCG                MX4    -R1.H2L                                                         MCG         2210     A     
 MCG                LX1    -I.REGP                                                         MCG         2211     A     
 MCG                SX2    X1                                                              MCG         2212     A     
 MCG                NE     B6,B1,LSS1  IF RF[R2] " 1                                       MCG         2213     A     
 MCG                SX2    RN.A0       REG[RF] = A0                                        MCG         2214     A     
 MCG       LSS1     LX6    SI.IHP                                                          MCG         2215     A     
 MCG                BX1    X6+X7                                                           MCG         2216     A     
 MCG                LX2    SI.RJP                                                          MCG         2217     A     
 MCG                IX7    X1+X2       [IIP-1] = SI(OC,CA,IH,REG[RF],REG[RI])              MCG         2218     A     
 MCG                LX5    -R1.H2P                                                         MCG         2219     A     
 MCG                BX6    -X4*X5                                                          MCG         2220     A     
 MCG                ZR     X6,SII0     IF H2[R1] = 0                                       MCG         2221     A     
 MCG                                                                                       MCG         2222     A     
 MCG                MX5    12                                                              MCG         2223     A     
 MCG                SA6    X3+B1       [IIP] = H2[R1]                                      MCG         2224     A     
 MCG                BX7    X5-X7       H2[IIP-1] = 1                                       MCG         2225     A     
 MCG                SA7    X3                                                              MCG         2226     A     
 MCG                SX6    A6+B1       IIP = IIP + 1                                       MCG         2227     A     
 MCG                SA6    A3                                                              MCG         2228     A     
 MCG                EQ     SII                                                             MCG         2229     A     
 MCG                                                                                       MCG         2230     A     
 MCG      *         REDUCABLE MEM REF                                                      MCG         2231     A     
 MCG                                                                                       MCG         2232     A     
 MCG       LSS2     SX2    X1                                                              MCG         2233     A     
 MCG                MX6    0                                                               MCG         2234     A     
 MCG                IX1    X1-X2                                                           MCG         2235     A     
 MCG                SA6    A1          RMR = 0                                             MCG         2236     A     
 MCG                SX4    X2+RN.A0                                                        MCG         2237     A     
 MCG                LX1    SI.CAP-IH.CAP                                                   MCG         2238     A     
 MCG                BX5    X1+X7                                                           MCG         2239     A     
 MCG                LX4    SI.RJP                                                          MCG         2240     A     
 MCG                IX7    X4+X5       [IIP-1] = SI(OC,CA[RMR],0,REG[RF],REG[RI])          MCG         2241     A     
 MCG                EQ     SII0                                                            MCG         2242     A     
 MCG       PLD      SPACE  2,8                                                             MCG         2243     A     
 MCG                PROCESS (PLD,PST)                                                      MCG         2244     A     
 MCG                SA2    A5+B1       R2 = R1 + 1                                         MCG         2245     A     
 MCG                LX4    -R1.RJP                                                         MCG         2246     A     
 MCG                SB6    X4                                                              MCG         2247     A     
 MCG                BX4    "RN"X4                                                          MCG         2248     A     
 MCG                SA1    "TB"+X4     LJ = TB + RJ[R1]                                    MCG         2249     A     
 MCG                LX2    -IH.CAP     C = CA[R2]                                          MCG         2250     A     
 MCG                SX6    RN.A0       REGJ = A0                                           MCG         2251     A     
 MCG                EQ     B6,B1,PLD1  IF RJ[R1] = 1                                       MCG         2252     A     
 MCG                LX1    -I.REGP                                                         MCG         2253     A     
 MCG                SX6    X1+         REGJ = REG[LJ]                                      MCG         2254     A     
 MCG                                                                                       MCG         2255     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3419    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG       PLD1     SA1    A1-B1       DJ = LJ - 1                                         MCG         2256     A     
 MCG                LX6    SI.RJP                                                          MCG         2257     A     
 MCG                SB6    A1-B1       R2P = DJ - 1                                        MCG         2258     A     
 MCG                BX7    X6+X7                                                           MCG         2259     A     
 MCG                LX1    59-D.PIP                                                        MCG         2260     A     
 MCG                MI     X1,PLD2     IF PI[DJ]     */ PRED IS A *DEF*                    MCG         2261     A     
 MCG                LX1    D.PIP-D.PRSP                                                    MCG         2262     A     
 MCG                PL     X1,PLD3     IF ^PRS[DI]   */ NOT REDEF OF REG                   MCG         2263     A     
 MCG                SB6    B6+4        R2P = R2P + 4 */ ADVANCE TO *RS*                    MCG         2264     A     
 MCG                                                                                       MCG         2265     A     
 MCG      *         OPT=2 PLD/PST, BASE CA IS IN R2 WORD OF *DEF/RS*                       MCG         2266     A     
 MCG                                                                                       MCG         2267     A     
 MCG       PLD2     SA1    B6                                                              MCG         2268     A     
 MCG                LX1    -IH.CAP                                                         MCG         2269     A     
 MCG                SB2    X1                                                              MCG         2270     A     
 MCG                SX2    X2+B2       C = CA[R2] + ( -CA[R2P] )                           MCG         2271     A     
 MCG                                                                                       MCG         2272     A     
 MCG       PLD3     MX5    -IH.CAL                                                         MCG         2273     A     
 MCG                BX2    -X5*X2                                                          MCG         2274     A     
 MCG                LX2    SI.CAP                                                          MCG         2275     A     
 MCG                BX7    X2+X7       [IIP-1] = SI(OC,C,0,REGJ,REG[RI])                   MCG         2276     A     
 MCG                EQ     SII0                                                            MCG         2277     A     
 MCG                                                                                       MCG         2278     A     
 MCG      *         CLR - GENERATE A MXI 0  OR A  BXI XI-XI                                MCG         2279     A     
 MCG                                                                                       MCG         2280     A     
 MCG                PROCESS CLR                                                            MCG         2281     A     
 MCG                SA1    PBI+1                                                           MCG         2282     A     
 MCG                SB2    OC.FMA                                                          MCG         2283     A     
 MCG                UX4    B6,X1                                                           MCG         2284     A     
 MCG                SX6    B6-BOOL                                                         MCG         2285     A     
 MCG                PX7    B2,X7       [IIP-1] = SI(FMA,0,0,0,0,REG[RI])                   MCG         2286     A     
 MCG                NZ     X6,SII0     IF FU[PBI+1] " BOOL                                 MCG         2287     A     
 MCG                SB2    OC.XOR                                                          MCG         2288     A     
 MCG                SX4    B3          R = REG[RI]                                         MCG         2289     A     
 MCG                LX4    SI.RJP                                                          MCG         2290     A     
 MCG                BX7    X4+X7                                                           MCG         2291     A     
 MCG                LX4    SI.RKP-SI.RJP                                                   MCG         2292     A     
 MCG                BX5    X4+X7                                                           MCG         2293     A     
 MCG                PX7    B2,X5       [IIP-1] = SI(XOR,0,R,R,R)                           MCG         2294     A     
 MCG                EQ     SII0                                                            MCG         2295     A     
 MCG                                                                                       MCG         2296     A     
 MCG      *         SXT -  - GENERATE AN *XMT* OR A NOMINAL LEFT SHIFT                     MCG         2297     A     
 MCG                                                                                       MCG         2298     A     
 MCG                PROCESS SXT                                                            MCG         2299     A     
 MCG                SA1    PBI+1                                                           MCG         2300     A     
 MCG                SB2    OC.XMT      OC = OC.XMT                                         MCG         2301     A     
 MCG                UX6    B6,X1                                                           MCG         2302     A     
 MCG                SX4    B6-BOOL                                                         MCG         2303     A     
 MCG                PX7    B2,X7                                                           MCG         2304     A     
 MCG                ZR     X4,.XMT     IF FU[PBI+1] = BOOL                                 MCG         2305     A     
 MCG                LX5    -R1.RJP                                                         MCG         2306     A     
 MCG                BX6    "RN"X5                                                          MCG         2307     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3420    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA1    "TB"+X6                                                         MCG         2308     A     
 MCG                LX1    -I.REGP                                                         MCG         2309     A     
 MCG                SB2    OC.ILS      OC = OC.ILS                                         MCG         2310     A     
 MCG                PX7    B2,X7                                                           MCG         2311     A     
 MCG                SX2    X1                                                              MCG         2312     A     
 MCG                LX2    SI.RKP                                                          MCG         2313     A     
 MCG                BX7    X2+X7       [IIP-1] = SI(OC,REG[RJ],0,REG[RI])                  MCG         2314     A     
 MCG                EQ     SII0                                                            MCG         2315     A     
 MCG       JUMPT    SPACE  3,14                                                            MCG         2316     A     
 MCG      *         OPR - DEFINE MACRO TO FROM JUMP TABLES FOR *PPI* AND *SII*             MCG         2317     A     
 MCG                                                                                       MCG         2318     A     
 MCG                MACRO  OPR,NAM,SS                                                      MCG         2319     A     
 MCG                NOREF  .NAM                                                            MCG         2320     A     
 MCG       TYP      MICRO  3,3,$SS$                                                        MCG         2321     A     
 MCG       X        IFLT   OC.NAM,OC.XMT                                                   MCG         2322     A     
 MCG                EQ     //.NAM            NAM                                           MCG         2323     A     
 MCG      -         JP     TY"TYP"                                                         MCG         2324     A     
 MCG       X        ELSE                                                                   MCG         2325     A     
 MCG                IF     DEF,.NAM,2                                                      MCG         2326     A     
 MCG                CON    .NAM              NAM                                           MCG         2327     A     
 MCG                SKIP   1                                                               MCG         2328     A     
 MCG                CON    TY"TYP"     NAM                                                 MCG         2329     A     
 MCG       X        ENDIF                                                                  MCG         2330     A     
 MCG                ENDM                                                                   MCG         2331     A     
 MCG       SII      SPACE  2                                                               MCG         2332     A     
 MCG       SIIA     BSS    0                                                               MCG         2333     A     
 MCG                LOC    0                                                               MCG         2334     A     
 MCG                LIST   G                                                               MCG         2335     A     
 MCG      *CALL     OPRDEFS                                                                MCG         2336     A     
 MCG                LIST   -G                                                              MCG         2337     A     
 MCG                LOC    *O                                                              MCG         2338     A     
 MCG                                                                                       MCG         2339     A     
 MCG                QUAL                                                                   MCG         2340     A     
 MCG                                                                                       MCG         2341     A     
 MCG       PPI.JT   EQU    /SII/SIIA                                                       MCG         2342     A     
 MCG       SII      EQU    /SII/SII                                                        MCG         2343     A     
 MCG       JAM      TTL    MCG - MACHINE CODE GENERATOR - JAM MODE                         MCG         2344     A     
 MCG       JAM      TITLE  JAM MODE / DOCUMENTION                                          MCG         2345     A     
 MCG      **        JAM MODE - OVERVIEW/STRATEGY                                           MCG         2346     A     
 MCG      *                                                                                MCG         2347     A     
 MCG      *         THE GOAL OF THE JAM ALGORITHM IS TO CODE INSTRUCTION SEQUENCE          MCG         2348     A     
 MCG      *         IN THE FINITE NUMBER OF REGISTERS ( 8 X-REGISTERS ) THAT WE            MCG         2349     A     
 MCG      *         HAVE ON THE 6X/7X THOUSAND SERIES MACHINES.  THE INITIAL               MCG         2350     A     
 MCG      *         SEQUENCE OF INSTRUCTIONS MAY REQUIRE MORE THAN 8 REGISTERS             MCG         2351     A     
 MCG      *         TO CODE BECAUSE REDUNDANT OPERATION ELIMINATION HAS EXTENDED           MCG         2352     A     
 MCG      *         THE RANGE OF THE USES OF INSTRUCTIONS, OR MAY REQUIRE LESS,            MCG         2353     A     
 MCG      *         BUT THE SCHEDULER MAY HAVE PICKED AN ORDER FOR THE INSTRUCTION         MCG         2354     A     
 MCG      *         THAT BROUGHT ABOUT A DEADLOCK.                                         MCG         2355     A     
 MCG      *         IN JAM MODE, SCHEDULING TAKES SECOND PRIORITY TO RESOURCE              MCG         2356     A     
 MCG      *         ALLOCATION.  THE INPUT TO JAM IS THE SEQUENCE OF INSTRUCTIONS          MCG         2357     A     
 MCG      *         LST[I] = (*TXT* INDEX[I])/2  ( INITIALLY ).                            MCG         2358     A     
 MCG      *            THE *SIT* IS ASSUMED TO HAVE NO DUPLICATE ENTRIES                   MCG         2359     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3421    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG      *         ( FOR *RIL* ) , AND OPERATIONS  WHICH PRECEED AN *RJX* REG             MCG         2360     A     
 MCG      *         STORES ARE LINKED TO THE RJX.  MOREOVER THE REGW FIELD OF              MCG         2361     A     
 MCG      *         THE DESCRIPTOR CONTAINS A COUNT OF THE NUMBER OF X-REGISTERS           MCG         2362     A     
 MCG      *         IN USE AT ANY GIVEN POINT.                                             MCG         2363     A     
 MCG      *         THE BASIC STRATEGY OF JAM MODE ASSUMES THAT THE ORDER OF THE           MCG         2364     A     
 MCG      *         INSTRUCTIONS IS A REASONABLE ONE AND ATTEMPTS TO ISSUE THE             MCG         2365     A     
 MCG      *         INSTRUCTIONS IN THAT ORDER.                                            MCG         2366     A     
 MCG      *         SINCE MOST PROBLEMS FROM REGISTER JAMMING ARISE FROM                   MCG         2367     A     
 MCG      *         ATTEMPTING TO KEEP TOO MANY PARTIAL RESULTS IN THE REGISTERS           MCG         2368     A     
 MCG      *         FOR TOO LONG, WE ADOPT THE FOLLOWING STRATEGY.                         MCG         2369     A     
 MCG      *         ON ENTRY TO JAM THE INSTRUCTIONS HAVE BEEN TOTALLY ORDERED,            MCG         2370     A     
 MCG      *         A SIT BUILT, AND THE NUMBER OF REGISTERS IN USE AT EACH POINT          MCG         2371     A     
 MCG      *         COMPUTED.                                                              MCG         2372     A     
 MCG      *         THE ALGORITHM THEN PROCEEDS TO ISSUE THE INSTRUCTIONS IN               MCG         2373     A     
 MCG      *         THE GIVEN ORDER AND ADJUSTS IT AS FOLLOWS:                             MCG         2374     A     
 MCG      *         WHEN A RESULT, R IN A REGISTER IS THE OPERAND OF AN                    MCG         2375     A     
 MCG      *         INSTRUCTION WHICH DOES NOT EXHAUST ITS USES, LOOK AT THE               MCG         2376     A     
 MCG      *         DISTANCE AND REGISTER REQUIREMENTS BETWEEN THE ISSUED                  MCG         2377     A     
 MCG      *         INSTRUCTION AND THE NEXT USE OF R.  IF THE USE IS                      MCG         2378     A     
 MCG      *         "FAR AWAY" AND TOO MANY OTHER RESULTS ARE BEING EXTENDED               MCG         2379     A     
 MCG      *         OVER THAT INTERVAL, THEN SAVE THE RESULT AND REISSUE THE               MCG         2380     A     
 MCG      *         INSTRUCTION.  IN THIS MANNER MOST CRISIS SITUATIONS ARE                MCG         2381     A     
 MCG      *         AVIODED AND THE SEQUENCE IS UNSQUEEZED IN A GRACEFUL FASHION.          MCG         2382     A     
 MCG       RV.      SPACE  3                                                               MCG         2383     A     
 MCG                QUAL   JAM                                                             MCG         2384     A     
 MCG                                                                                       MCG         2385     A     
 MCG                IF     DEF,/DEBUG/JAM,1                                                MCG         2386     A     
 MCG                TRACER (SSR,UJR)                                                       MCG         2387     A     
 MCG       N.UR0    EQU    9           NUMBER OF UNLOADED REGISTERS ( INIT VALUE )         MCG         2388     A     
 MCG                                                                                       MCG         2389     A     
 MCG      **        RV. - FORMAT OF *RVT* ENTRIES DURING JAM MODE                          MCG         2390     A     
 MCG                                                                                       MCG         2391     A     
 MCG                DESCRIBE RV.,60                                                        MCG         2392     A     
 MCG       LOCK     DEFINE 1           LOCK BIT                                            MCG         2393     A     
 MCG       COST     DEFINE 11          COST OF RESTORING RESULT IN REG                     MCG         2394     A     
 MCG                DEFINE 11                                                              MCG         2395     A     
 MCG       SRO      DEFINE 1           STORE REGISTER OUT ( UNSAVED RESULT )               MCG         2396     A     
 MCG       NU       DEFINE 18          *TXT* INDEX OF NEXT USE                             MCG         2397     A     
 MCG       RN       DEFINE 18          R-NUMBER IN THE REG                                 MCG         2398     A     
 MCG       JAM      TITLE  JAM MODE / CONTROL                                              MCG         2399     A     
 MCG      **        JAM - REGISTER JAM CODE GENERATION MODE                                MCG         2400     A     
 MCG                                                                                       MCG         2401     A     
 MCG       JAM0     SA1    M.OT                                                            MCG         2402     A     
 MCG                SA2    =XN.OT                                                          MCG         2403     A     
 MCG                MX7    0                                                               MCG         2404     A     
 MCG                IX3    X2-X1                                                           MCG         2405     A     
 MCG                SA7    L.OTI       L.OTI = 0                                           MCG         2406     A     
 MCG                BX6    X1                                                              MCG         2407     A     
 MCG                PL     X3,JAM            N.OT = MAX( N.OT , M.OT )                     MCG         2408     A     
 MCG                SA6    A2                                                              MCG         2409     A     
 MCG                                                                                       MCG         2410     A     
 MCG       JAM      ROUTINE                                                                MCG         2411     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3422    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SETZERO M.OT,10    SETZERO( M.OT , 10 )                                MCG         2412     A     
 MCG                                                                                       MCG         2413     A     
 MCG                SA4    L.TXT                                                           MCG         2414     A     
 MCG                SA2    O.TXT                                                           MCG         2415     A     
 MCG                SB2    X4-4                                                            MCG         2416     A     
 MCG                SA6    X2+3        FOR I = 3 TO L.TXT BY 4; TXT(I) = 0                 MCG         2417     A     
 MCG      +         SB2    B2-4                                                            MCG         2418     A     
 MCG                SA6    A6+4                                                            MCG         2419     A     
 MCG                GT     B2,*-1                                                          MCG         2420     A     
 MCG                                                                                       MCG         2421     A     
 MCG                CALL   RIO         RESET INSTRUCTION ORDER                             MCG         2422     A     
 MCG                SX6    B1                                                              MCG         2423     A     
 MCG                CALL   BDT         FORM THE DEPENDENCY INFO                            MCG         2424     A     
 MCG                SX7    JAM0                                                            MCG         2425     A     
 MCG                SX0    B1                                                              MCG         2426     A     
 MCG                RJ     PRS         PRESET STORAGE                                      MCG         2427     A     
 MCG                SX7    N.UR0                                                           MCG         2428     A     
 MCG                SA7    UR          UR = N.UR0                                          MCG         2429     A     
 MCG                MX6    0                                                               MCG         2430     A     
 MCG                SA6    N.SP        N.SP = 0                                            MCG         2431     A     
 MCG                SX7    -FX.X6                                                          MCG         2432     A     
 MCG                SA7    STL         STL = -FX.X6                                        MCG         2433     A     
 MCG                RJ     SMB                                                             MCG         2434     A     
 MCG                                                                                       MCG         2435     A     
 MCG      *         MAIN LOOP                                                              MCG         2436     A     
 MCG                                                                                       MCG         2437     A     
 MCG       JAM1     SA1    SF                                                              MCG         2438     A     
 MCG                SA2    AXR                                                             MCG         2439     A     
 MCG                BX6    X1*X2                                                           MCG         2440     A     
 MCG                ZR     X6,JAM2     IF SF & AXR = 0 */ NO UNSAVED STORES/ST REGS        MCG         2441     A     
 MCG                RJ     SUR         STORE UNSAVED RESULTS                               MCG         2442     A     
 MCG                                                                                       MCG         2443     A     
 MCG       JAM2     RJ     SNI         SELECT NEXT INSTRUCTION TO ISSUE                    MCG         2444     A     
 MCG                MI     B3,JAM6     IF REGNO < 0  */ NO ISSUABLE INST FOUND             MCG         2445     A     
 MCG                ZR     B3,JAM4     IF REGNO = 0  */ A ISSUED PSEUDO INST               MCG         2446     A     
 MCG                LX5    59-I.IIP                                                        MCG         2447     A     
 MCG                PL     X5,JAM3     IF ^II[L]                                           MCG         2448     A     
 MCG                SA1    UR                                                              MCG         2449     A     
 MCG                SX7    N.UR0                                                           MCG         2450     A     
 MCG                SX6    X1-1                                                            MCG         2451     A     
 MCG      +         IX3    X6-X7                                                           MCG         2452     A     
 MCG                PL     X3,*+1      UR = MAX( UR-1 , N.UR0 )                            MCG         2453     A     
 MCG                BX6    X7                                                              MCG         2454     A     
 MCG                SA6    A1                                                              MCG         2455     A     
 MCG                                                                                       MCG         2456     A     
 MCG       JAM3     LX5    1+I.IIP                                                         MCG         2457     A     
 MCG                RJ     AIL         ADJUST THE ISSUE LIST                               MCG         2458     A     
 MCG                RJ     DUC         DECREMENT USES COUNTS                               MCG         2459     A     
 MCG                S"DI"  "DI"                                                            MCG         2460     A     
 MCG                RJ     ASC         ADVANCE CLOCKS                                      MCG         2461     A     
 MCG                SA5    "DI"-2                                                          MCG         2462     A     
 MCG                RJ     SII         SAVE THE INSTRUCTION                                MCG         2463     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3423    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                                                                                       MCG         2464     A     
 MCG       JAM4     S"DI"  "DI"                                                            MCG         2465     A     
 MCG                RJ     SNU         SET NEXT USE ADDRESS                                MCG         2466     A     
 MCG                                                                                       MCG         2467     A     
 MCG       JAM5     ZR     X7,JAM1     IF UOR = 0    */ NO UNCLEARED OPERAND REGS          MCG         2468     A     
 MCG                RJ     CNU         CHECK NEXT USES OF OPERANDS                         MCG         2469     A     
 MCG                EQ     JAM1                                                            MCG         2470     A     
 MCG                                                                                       MCG         2471     A     
 MCG       JAM6     SA3    ICL                                                             MCG         2472     A     
 MCG                SX7    0                                                               MCG         2473     A     
 MCG                SA7    UOR         UOR = 0                                             MCG         2474     A     
 MCG                RJ     UJR         UNJAM THE REGISTERS                                 MCG         2475     A     
 MCG                SA1    UOR                                                             MCG         2476     A     
 MCG                SA2    T0                                                              MCG         2477     A     
 MCG                SB6    "TB"-B1                                                         MCG         2478     A     
 MCG                BX7    X1                                                              MCG         2479     A     
 MCG                S"DI"  B6+X2       DI = BASE-1 + T0                                    MCG         2480     A     
 MCG                EQ     JAM5                                                            MCG         2481     A     
 MCG       JCG      SPACE  3                                                               MCG         2482     A     
 MCG                USE    /MCG/                                                           MCG         2483     A     
 MCG       M.OT     BSS    1           MAX NUMBER OF OT.S IN CURRENT SEQUENCE              MCG         2484     A     
 MCG       SF       BSS    1           = FX.ST IF UNSAVED RESULTS NOT IN ST REGS           MCG         2485     A     
 MCG       LRN      BSS    8           LAST R-NUMBER IN B-REGISTER I                       MCG         2486     A     
 MCG       ISC      EQU    LRN         ISSUED STORE CHAIN                                  MCG         2487     A     
 MCG                                                                                       MCG         2488     A     
 MCG       CLASS    BSS    1           REGISTER CLASS                                      MCG         2489     A     
 MCG       R0       BSS    1           *TXT* INDEX OF INSTRUCTION  REMOVED FROM REGS       MCG         2490     A     
 MCG       T0       BSS    1           *TXT* INDEX OF INSTRUCTION TO BE ISSUED             MCG         2491     A     
 MCG       T0C      BSS    1           COPY OF T0                                          MCG         2492     A     
 MCG       SIW      BSS    1           INDEX OF AVAIL WORD IN *SIT*                        MCG         2493     A     
 MCG       DRI      BSS    4           DUMMY RLIST INSTRUCTION BUFFER                      MCG         2494     A     
 MCG       UOR      BSS    1           LIST OF UNCLEARED OP REGISTERS ( *UJR* )            MCG         2495     A     
 MCG       UR       CON    9           COUNT OF UNLOADED REGISTERS                         MCG         2496     A     
 MCG       PIS      BSS    1           POINT IN SEQUENCE                                   MCG         2497     A     
 MCG       TM       BSS    1           MAX *LST* OF ISSUABLE INST TO CONSIDER              MCG         2498     A     
 MCG                USE    0                                                               MCG         2499     A     
 MCG       SNI      TITLE  SNI - SELECT NEXT INSTRUCTION TO ISSUE                          MCG         2500     A     
 MCG      **        SNI - SELECT NEXT INSTRUCTION TO BE POSTED ( ISSUED ) FROM             MCG         2501     A     
 MCG      *         THE *ICL* ( ISSUE CANIDATE LIST ).                                     MCG         2502     A     
 MCG      *         SCAN INSTRUCTIONS ON *ICL* FOR WHICH LST[INST] < LST[ICL] + 7          MCG         2503     A     
 MCG      *         OTHERWISE THIS ROUTINE IS IDENTICAL TO THE SCHEDULER                   MCG         2504     A     
 MCG      *         VERSION OF *SNI*.                                                      MCG         2505     A     
 MCG      *                                                                                MCG         2506     A     
 MCG      *         EXIT   (B3) = REGNO OF ISSUABLE INST, < 0 IF NONE FOUND                MCG         2507     A     
 MCG      *                (B4,B5) = T(EX), T(IS)                                          MCG         2508     A     
 MCG      *                (A5) = LI ( ADDRESS OF LINK WORD OF ISSUABLE INSTRUCTION        MCG         2509     A     
 MCG      *                (A0) = *TXT* INDEX OF PREVIOUS INSTRUCTION                      MCG         2510     A     
 MCG      *                PBI WORDS SET.                                                  MCG         2511     A     
 MCG                                                                                       MCG         2512     A     
 MCG       SNI0     SA5    "DI"+1      LI = DI + 1                                         MCG         2513     A     
 MCG                                                                                       MCG         2514     A     
 MCG       SNI      ROUTINE                                                                MCG         2515     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3424    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA4    PBI-1                                                           MCG         2516     A     
 MCG                SA3    ICL         CI = ICL                                            MCG         2517     A     
 MCG                S"PI"  B0          PI = 0                                              MCG         2518     A     
 MCG                BX6    X4                                                              MCG         2519     A     
 MCG                SA6    A4+B1       PBI = PB1(FALSE,0,INFINITY,INFINITY)                MCG         2520     A     
 MCG                SB6    X4          TIS[PBI] = INFINITY                                 MCG         2521     A     
 MCG                SA5    "TB"+X3     L = BASE + CI                                       MCG         2522     A     
 MCG                MX7    -I.LSTL                                                         MCG         2523     A     
 MCG                LX5    -I.LSTP                                                         MCG         2524     A     
 MCG                BX2    -X7*X5                                                          MCG         2525     A     
 MCG                SX6    X2+7        TM = LST[L] + 7  */ MAX LATE START TIME             MCG         2526     A     
 MCG                SA6    TM                                                              MCG         2527     A     
 MCG                                                                                       MCG         2528     A     
 MCG      *         GET INST DESCR, CHECK FOR FIT IN CURRENT WORD                          MCG         2529     A     
 MCG                                                                                       MCG         2530     A     
 MCG       SNI1     SB4    X3+"TB"     LI = CI + BASE                                      MCG         2531     A     
 MCG                SA2    T                                                               MCG         2532     A     
 MCG                SA4    B4-B1       DI = LI - 1  ( DESCR)                               MCG         2533     A     
 MCG                SB5    X2          T(IS) = T                                           MCG         2534     A     
 MCG                LX4    58-D.SZP                                                        MCG         2535     A     
 MCG                PL     X4,SNI4     IF SZ[DI] < 2 */ NO POSSIBLE SIZE FAULT             MCG         2536     A     
 MCG                SA3    PC                                                              MCG         2537     A     
 MCG                MX7    -2                                                              MCG         2538     A     
 MCG                BX6    X3+X7                                                           MCG         2539     A     
 MCG                NZ     X6,SNI4     IF PC " 3     */ NOT IN LAST PARCEL OF WORD         MCG         2540     A     
 MCG                BX2    X4                                                              MCG         2541     A     
 MCG                LX2    1+D.SZP-D.SRP                                                   MCG         2542     A     
 MCG                PL     X2,SNI3     IF ^SR[DI]    */ NOT SIZE REDUCABLE                 MCG         2543     A     
 MCG                                                                                       MCG         2544     A     
 MCG      *         INSTRUCTION IS SIZE REDUCEABLE, CHECK A-REGISTERS TO SEE IF            MCG         2545     A     
 MCG      *         ADDRESS IS IN ONE OF THEM.                                             MCG         2546     A     
 MCG                                                                                       MCG         2547     A     
 MCG                SA2    ARA+7       I = ARA(8)                                          MCG         2548     A     
 MCG                SA3    "DI"-B1     R2 = DI - 1                                         MCG         2549     A     
 MCG                SB2    ARA-1                                                           MCG         2550     A     
 MCG                BX6    X3                                                              MCG         2551     A     
 MCG                SA6    B2+B1       ARA(1) = [R2]                                       MCG         2552     A     
 MCG                                                                                       MCG         2553     A     
 MCG       SNI2     BX7    X3-X2                                                           MCG         2554     A     
 MCG                SA2    A2-B1       I = I - 1                                           MCG         2555     A     
 MCG                NZ     X7,SNI2     IF [I+1] " [R2]                                     MCG         2556     A     
 MCG                SB3    A2-B2                                                           MCG         2557     A     
 MCG                ZR     B3,SNI3     IF I = 0    */ MATCH WITH SEARCH TERMINATOR         MCG         2558     A     
 MCG                                                                                       MCG         2559     A     
 MCG                SA2    TRA+RN.A0+B3              */ COMPUTE TRUE ISSUE TIME            MCG         2560     A     
 MCG                SB2    X2                                                              MCG         2561     A     
 MCG                LE     B2,B5,SNI4                                                      MCG         2562     A     
 MCG                SB5    X2                                                              MCG         2563     A     
 MCG                EQ     SNI4                                                            MCG         2564     A     
 MCG                                                                                       MCG         2565     A     
 MCG       SNI3     SA1    IWT               */ SET PENALITY FOR SIZE FAULT                MCG         2566     A     
 MCG                SX2    X1+B1                                                           MCG         2567     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3425    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SB5    X2+B5       T(IS) = T(IS) + IWT + 1                             MCG         2568     A     
 MCG                                                                                       MCG         2569     A     
 MCG      *         SELECT AN AVAILABLE FUNCTIONAL UNIT                                    MCG         2570     A     
 MCG                                                                                       MCG         2571     A     
 MCG       SNI4     LX4    2+D.SZP-D.F1P                                                   MCG         2572     A     
 MCG                MX6    -D.F1L                                                          MCG         2573     A     
 MCG                BX7    -X6*X4      F = F1[DI]                                          MCG         2574     A     
 MCG                SA3    TFU+X7      TFA = TFU(F)                                        MCG         2575     A     
 MCG                SB3    X3                                                              MCG         2576     A     
 MCG                LE     B3,B5,SNI5  IF TFA @ T(IS)                                      MCG         2577     A     
 MCG       #MD      IFEQ   .CPU,74                                         ?6600           MCG         2578     A     
 MCG                LX4    D.F1P-D.F2P                                                     MCG         2579     A     
 MCG                SX1    X7                        */ CHECK SECOND FUNIT                 MCG         2580     A     
 MCG                BX7    -X6*X4      F2 = F2[DI]                                         MCG         2581     A     
 MCG                SA2    TFU+X7      TF2 = TFU(F2)                                       MCG         2582     A     
 MCG                LX4    D.F2P-D.F1P                                                     MCG         2583     A     
 MCG                SB4    X2                                                              MCG         2584     A     
 MCG                LE     B4,B5,SNI5  IF TF2 @ T(IS)                                      MCG         2585     A     
 MCG                SB5    B4                                                              MCG         2586     A     
 MCG                LE     B4,B3,SNI5  IF TF2 @ TF1                                        MCG         2587     A     
 MCG                BX7    X1                                                              MCG         2588     A     
 MCG       #MD      ENDIF                                                  '6600           MCG         2589     A     
 MCG                SB5    X3          T(IS) = TF1   */ MIN(TFA,TF2)                       MCG         2590     A     
 MCG                                                                                       MCG         2591     A     
 MCG      *         IF T(IS) @ TIS[PBI] THEN TRY TO GET A RESULT REG, CALC T(EX)           MCG         2592     A     
 MCG                                                                                       MCG         2593     A     
 MCG       SNI5     GT     B5,B6,SNI6  IF T(IS) > TIS[PBI]                                 MCG         2594     A     
 MCG                SA7    SNIA                                                            MCG         2595     A     
 MCG                LX4    D.F1P+59-D.NRP                                                  MCG         2596     A     
 MCG                RJ     DRR         CALL DRR( DI , T(IS) , T(EX) , REGNO )              MCG         2597     A     
 MCG                GT     B3,SNI7     IF REGNO > 0  */ INSTRUCTION IS ISSUABLE            MCG         2598     A     
 MCG                ZR     B3,SNI0     IF REGNO = 0  */ A PSEUDO INSTRUCTION               MCG         2599     A     
 MCG                                                                                       MCG         2600     A     
 MCG       SNI6     SA5    "DI"+B1     LI = DI + 1                                         MCG         2601     A     
 MCG                EQ     SNI9                      */ NO RESULT REG AVAIL                MCG         2602     A     
 MCG                                                                                       MCG         2603     A     
 MCG      *         COMPARE THIS INSTRUCTION TIMING WITH THAT OF *PBI*                     MCG         2604     A     
 MCG                                                                                       MCG         2605     A     
 MCG       SNI7     SA5    "DI"+B1     LI = DI + 1                                         MCG         2606     A     
 MCG       #MD      IFEQ   .CPU,74                                         ?6600           MCG         2607     A     
 MCG                GT     B5,B6,SNI9  IF T(IS) > TIS[PBI]                                 MCG         2608     A     
 MCG                SA3    PBI                                                             MCG         2609     A     
 MCG                LT     B5,B6,SNI8  IF T(IS) < TIS[PBI]                                 MCG         2610     A     
 MCG                LX3    -PB.TEXP                                                        MCG         2611     A     
 MCG                SB2    X3                                                              MCG         2612     A     
 MCG                GE     B4,B2,SNI9  IF T(EX) \ TEX[PBI]                                 MCG         2613     A     
 MCG       #MD      ELSE                                                   '66?76          MCG         2614     A     
 MCG                SA4    "DI"                                                            MCG         2615     A     
 MCG                GE     B4,B6,SNI9  IF T(EX) \ TEX[PBI]                                 MCG         2616     A     
 MCG       #MD      IFGT   .CPU,74                                         ?7600           MCG         2617     A     
 MCG                LX4    -D.LDP                                                          MCG         2618     A     
 MCG       .D       BIT    D.^DP-D.LDP                                                     MCG         2619     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3426    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SX6    .D+1                                                            MCG         2620     A     
 MCG                SB5    B4          T(IS) = T(EX)                                       MCG         2621     A     
 MCG                BX7    X6*X4                                                           MCG         2622     A     
 MCG                LX4    D.LDP-D.FTP                                                     MCG         2623     A     
 MCG                NZ     X7,SNI8     IF ^D[DI] ! LD[DI]                                  MCG         2624     A     
 MCG                                                                                       MCG         2625     A     
 MCG      *         ADJUST T(EX) TO ACCOUNT FOR THE FUNIT TO REGISTER INPUT PATH           MCG         2626     A     
 MCG                                                                                       MCG         2627     A     
 MCG                SA2    T                                                               MCG         2628     A     
 MCG                SA1    TRS                                                             MCG         2629     A     
 MCG                MX6    -D.FTL                                                          MCG         2630     A     
 MCG                BX7    -X6*X4                                                          MCG         2631     A     
 MCG                IX3    X7-X2                                                           MCG         2632     A     
 MCG                SB2    X3+B5                                                           MCG         2633     A     
 MCG                SB4    B4-B1       T(EX) = T(EX) - 1                                   MCG         2634     A     
 MCG                AX1    B2,X1       XSW = SHIFT(TRS, -(T(IS)+FT[DI]-T) )                MCG         2635     A     
 MCG                                                                                       MCG         2636     A     
 MCG       SNI7A    LX1    -1          XSW = SHIFT( XSW , 59 )                             MCG         2637     A     
 MCG                SB4    B4+B1       T(EX) = T(EX) + 1                                   MCG         2638     A     
 MCG                MI     X1,SNI7A    IF XSW < 0    */ RESULT STORED AT THIS TIME         MCG         2639     A     
 MCG                SB5    B4          T(IS) = T(EX)                                       MCG         2640     A     
 MCG                GE     B4,B6,SNI9  IF T(EX) \ TEX[PBI]                                 MCG         2641     A     
 MCG       #MD      ENDIF                                                  '7600           MCG         2642     A     
 MCG                                                                                       MCG         2643     A     
 MCG      *         INSTRUCTION BETTER THAN PREVIOUS BEST, SAVE INFO IN *PBI*              MCG         2644     A     
 MCG                                                                                       MCG         2645     A     
 MCG       SNI8     SX4    B5                                                              MCG         2646     A     
 MCG                SA1    SNIA                                                            MCG         2647     A     
 MCG                SX3    B4                                                              MCG         2648     A     
 MCG                LX4    PB.TISP                                                         MCG         2649     A     
 MCG                PX6    B3,X4                                                           MCG         2650     A     
 MCG                SX7    "PI"                                                            MCG         2651     A     
 MCG                LX3    PB.TEXP                                                         MCG         2652     A     
 MCG                SB2    X1                                                              MCG         2653     A     
 MCG                SX2    A5-"TB"                                                         MCG         2654     A     
 MCG                BX6    X3+X6                                                           MCG         2655     A     
 MCG                SA1    T                                                               MCG         2656     A     
 MCG                LX7    PB.PIP                                                          MCG         2657     A     
 MCG                LX2    PB.LIP                                                          MCG         2658     A     
 MCG                PX2    B2,X2                                                           MCG         2659     A     
 MCG                SA6    PBI         PBI(0) = PBII(REG,T(EX),T(IS))                      MCG         2660     A     
 MCG                IX7    X7+X2                                                           MCG         2661     A     
 MCG                SB2    X1+                                                             MCG         2662     A     
 MCG                SA7    A6+B1       PBI(1) = PBII2(FU,PI,LI)                            MCG         2663     A     
 MCG                                                                                       MCG         2664     A     
 MCG                EQ     B4,B2,SNI   IF T(EX) = T  */ EXIT IF THIS INST IS EXEC          MCG         2665     A     
 MCG                                                                                       MCG         2666     A     
 MCG                SB6    B5          TIS[PBI] = T(IS)                                    MCG         2667     A     
 MCG                                                                                       MCG         2668     A     
 MCG      *         ADVANCE TO NEXT INSTRUCTION ON CHAIN                                   MCG         2669     A     
 MCG                                                                                       MCG         2670     A     
 MCG       SNI9     S"PI"  A5-"TB"     PI = LI - BASE                                      MCG         2671     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3427    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                LX5    -I.LINKP                                                        MCG         2672     A     
 MCG                SX3    X5          CI = LINK[LI]                                       MCG         2673     A     
 MCG                ZR     X3,SNI10    IF CI = 0                                           MCG         2674     A     
 MCG                                                                                       MCG         2675     A     
 MCG      *         ONLY CONSIDER INSTRUCTIONS THAT ARE NEAR THE FIRST ON THE ISSUE        MCG         2676     A     
 MCG      *         LIST, SO WE DO NOT GO TOO FAR ASTRAY FROM THE PREDETERMINED            MCG         2677     A     
 MCG      *         ORDER.                                                                 MCG         2678     A     
 MCG                                                                                       MCG         2679     A     
 MCG                MX6    -I.LSTL                                                         MCG         2680     A     
 MCG                SA5    "TB"+X3     LI = BASE + CI                                      MCG         2681     A     
 MCG                SA2    TM                                                              MCG         2682     A     
 MCG                LX5    -I.LSTP                                                         MCG         2683     A     
 MCG                BX7    -X6*X5                                                          MCG         2684     A     
 MCG                IX4    X7-X2                                                           MCG         2685     A     
 MCG                MI     X4,SNI1     IF LST[LI] < TM  */ INSTRUCTION IS NEAR T0          MCG         2686     A     
 MCG                                                                                       MCG         2687     A     
 MCG       SNI10    SA1    PBI                                                             MCG         2688     A     
 MCG                SA1    PBI                                                             MCG         2689          I
          -FCC0448
 MCG                SA2    A1+B1                                                           MCG         2690     A     
 MCG                UX3    B3,X1       REGNO = REG[PBI]                                    MCG         2691     A     
 MCG                LX2    -PB.LIP                                                         MCG         2692     A     
 MCG                MI     B3,SNI      IF REGNO < 0  */ NO ISSUABLE INST FOUND             MCG         2693     A     
 MCG                                                                                       MCG         2694     A     
 MCG                SA5    X2+"TB"     LI = LI[PBI] + BASE                                 MCG         2695     A     
 MCG                LX2    PB.LIP-PB.PIP                                                   MCG         2696     A     
 MCG                S"PI"  X2          PI = PI[PBI]                                        MCG         2697     A     
 MCG                LX1    -PB.TISP                                                        MCG         2698     A     
 MCG                SB5    X1          T(IS) = TIS[PBI]                                    MCG         2699     A     
 MCG                LX1    PB.TISP-PB.TEXP                                                 MCG         2700     A     
 MCG                SB4    X1          T(EX) = TEX[PBI]                                    MCG         2701     A     
 MCG                EQ     SNI                                                             MCG         2702     A     
 MCG       ISI      TITLE  ISI - ISSUE SELECTED INSTRUCTION                                MCG         2703     A     
 MCG      **        ISI - ISSUE SELECTED INSTRUCTION                                       MCG         2704     A     
 MCG      *                                                                                MCG         2705     A     
 MCG      *         ENTRY  (X2) = R , *TXT* INDEX OF INSTRUCTION                           MCG         2706     A     
 MCG      *                                                                                FCC0584        5     A     
 MCG      *         EXIT   (B3) < IF INSTRUCTION WAS NOT ISSUED                            MCG         2707     A     
 MCG      *                UOR SET                                                         FCC0584        6     A     
 MCG                                                                                       MCG         2708     A     
 MCG       ISI0     SA4    "DI"                                                            MCG         2709     A     
 MCG                RJ     SNU         SET ADDR OF NEXT USES                               MCG         2710     A     
 MCG                SA7    UOR                                                             FCC0584        7     A     
 MCG                                                                                       MCG         2711     A     
 MCG       ISI      ROUTINE                                                                MCG         2712     A     
 MCG                SA3    ICL         NI = ICL                                            MCG         2713     A     
 MCG                SB6    "TB"-B1                                                         MCG         2714          I
          -FCC2207
 MCG                SA5    "TB"+X2     LI = BASE + R                                       FCC2207       11     A     
 MCG                S"PI"  B0          PI = 0                                              MCG         2715     A     
 MCG                SA4    X2+B6       DI = BASE-1 + R                                     MCG         2716          I
          -FCC2207
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3428    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                S"DI"  A5-B1       DI = LI - 1                                         FCC2207       12     A     
 MCG                LX5    59-I.ICP                                                        FCC2207       13     A     
 MCG                IX6    X2-X3                                                           MCG         2717     A     
 MCG                PL     X5,*+1S17   IF ^IC[LI] BLOWUP                                   FCC2207       14     A     
 MCG                ZR     X6,ISI2     IF R = ICL                                          MCG         2718     A     
 MCG                                                                                       MCG         2719     A     
 MCG       ISI1     SA5    "TB"+X3     L = BASE + NI                                       MCG         2720     A     
 MCG                S"PI"  X3          PI = NI                                             MCG         2721     A     
 MCG                SX3    X5          NI = LINK[L]                                        MCG         2722     A     
 MCG                IX6    X3-X2                                                           MCG         2723     A     
 MCG                NZ     X6,ISI1     IF R " NI                                           MCG         2724     A     
 MCG                                                                                       MCG         2725     A     
 MCG       ISI2     SA1    T                                                               MCG         2726     A     
 MCG                LX4    -D.F1P                                                          MCG         2727     A     
 MCG                MX5    -D.F1L                                                          MCG         2728     A     
 MCG                SB5    X1          T(IS) = T                                           MCG         2729     A     
 MCG                BX6    -X5*X4                                                          MCG         2730     A     
 MCG                SB2    X6          FU[PBI+1] = F1[DI]                                  MCG         2731     A     
 MCG                PX6    B2,X2       LI[PBI+1] = R                                       MCG         2732     A     
 MCG                LX4    D.F1P+59-D.NRP                                                  MCG         2733     A     
 MCG                SA6    PBI+1                                                           MCG         2734     A     
 MCG                RJ     DRR         REGNO = DRR( DI )                                   MCG         2735     A     
 MCG                ZR     B3,ISI0     IF REGNO = 0  */ A PSEUDO INSTRUCTION               MCG         2736     A     
 MCG                MI     B3,ISI      IF REGNO < 0  */ NO RESULT REG FOUND                MCG         2737     A     
 MCG                SX3    B5                                                              MCG         2738     A     
 MCG                LX3    PB.TISP     TIS[PBI] = T(IS)                                    MCG         2739     A     
 MCG                SX2    B4                                                              MCG         2740     A     
 MCG                SA5    "DI"+B1     L = DI + 1                                          MCG         2741     A     
 MCG                LX2    PB.TEXP                                                         MCG         2742     A     
 MCG                PX3    B3,X3       REG[PBI] = REGNO                                    MCG         2743     A     
 MCG                BX6    X2+X3       TEX[PBI] = T(EX)                                    MCG         2744     A     
 MCG                SA6    PBI                                                             MCG         2745     A     
 MCG                LX5    59-I.IIP                                                        MCG         2746     A     
 MCG                PL     X5,ISI3     IF ^II[L]     */ NOT PREVIOUSLY ISSUED              MCG         2747     A     
 MCG                SA1    UR                                                              MCG         2748     A     
 MCG                SX7    N.UR0                                                           MCG         2749     A     
 MCG                SX6    X1-1                                                            MCG         2750     A     
 MCG      +         IX3    X6-X7                                                           MCG         2751     A     
 MCG                PL     X3,*+1      UR = MAX( UR-1 , N.UR0 )                            MCG         2752     A     
 MCG                BX6    X7                                                              MCG         2753     A     
 MCG                SA6    A1                                                              MCG         2754     A     
 MCG                                                                                       MCG         2755     A     
 MCG       ISI3     LX5    1+I.IIP                                                         MCG         2756     A     
 MCG                RJ     AIL         ADVANCE THE ISSUE LIST                              MCG         2757     A     
 MCG                RJ     DUC         DECREMENT USES COUNTS                               MCG         2758     A     
 MCG                SA4    "DI"                                                            MCG         2759     A     
 MCG                RJ     ASC         ADVANCE CLOCKS                                      MCG         2760     A     
 MCG                SA5    "DI"-2                                                          MCG         2761     A     
 MCG                RJ     SII         SAVE INSTRUCTION                                    MCG         2762     A     
 MCG                EQ     ISI0                                                            MCG         2763     A     
 MCG       CNU      TITLE  CNU - CHECK NEXT USE OF RESULTS IN REGISTERS                    MCG         2764     A     
 MCG      **        CNU - CHECK NEXT USE OF RESULTS IN REGISTERS OF OPERANDS               MCG         2765     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3429    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG      *                OF THE ISSUED INSTRUCTION AND RELEASE THE REGISTER              MCG         2766     A     
 MCG      *                IF THEIR NEXT USE IS "FAR AWAY".                                MCG         2767     A     
 MCG      *                                                                                MCG         2768     A     
 MCG      *         ENTRY  (X7) = UOR = LIST OF UNCLEARED OPERAND REGISTERS                MCG         2769     A     
 MCG      *                    UOR = 24/0,18/REG2,18/REG1,  REG1 " REG2 & REG1 " 0         MCG         2770     A     
 MCG      *                (A4) = DI OF INSTRUCTION                                        MCG         2771     A     
 MCG      *                (UR) = COUNT OF UNLOADED REGISTERS                              MCG         2772     A     
 MCG      *                                                                                MCG         2773     A     
 MCG      *         USES   B - 2, 3, 4, 5, 6  X - 1, 2, 3, 4, 5, 6, 7                      MCG         2774     A     
 MCG                                                                                       MCG         2775     A     
 MCG       MIN.D    EQU    14*4        MIN DISTANCE FOR UNLOAD CHECK ( 14 INST )           MCG         2776     A     
 MCG                                                                                       MCG         2777     A     
 MCG       CNU0     SX6    0                                                               FCC1580X       6     A     
 MCG                SA6    UOR         UOR = 0                                             FCC1580X       7     A     
 MCG       CNU      ROUTINE                                                                MCG         2778     A     
 MCG                SA4    "DI"                                                            FCC1580X       8     A     
 MCG                LX4    59-D.PIP                                                        FCC1580X       9     A     
 MCG                MI     X4,CNU0     IF PI[DI]     */ *DEF* OR *RS*                      FCC1580X      10     A     
 MCG                SA5    "DI"+B1     L = DI + 1                                          MCG         2779     A     
 MCG                MX4    -I.LSTL                                                         MCG         2780     A     
 MCG                LX5    -I.LSTP                                                         MCG         2781     A     
 MCG                BX3    -X4*X5                                                          MCG         2782     A     
 MCG                AX6    B1,X3       PIS = (LST[L]/2)*4  */ POINT IN SEQ                 MCG         2783     A     
 MCG                LX6    2                                                               MCG         2784     A     
 MCG                SA6    PIS                                                             MCG         2785     A     
 MCG                                                                                       MCG         2786     A     
 MCG      *         ORDER REG1,REG2 IN DECREASING DISTANCE OF NEXT USE                     MCG         2787     A     
 MCG                                                                                       MCG         2788     A     
 MCG                BX3    X7                                                              MCG         2789     A     
 MCG                AX3    18                                                              MCG         2790     A     
 MCG                ZR     X3,CNU1     IF REG2 = 0                                         MCG         2791     A     
 MCG                SA1    RVT+X7                                                          MCG         2792     A     
 MCG                SA2    RVT+X3                                                          MCG         2793     A     
 MCG                LX1    -RV.NUP                                                         MCG         2794     A     
 MCG                LX2    -RV.NUP                                                         MCG         2795     A     
 MCG                SB2    X1                                                              MCG         2796     A     
 MCG                SB3    X2                                                              MCG         2797     A     
 MCG                GE     B2,B3,CNU1  IF NU[RVT(REG1)] \ NU[RVT(REG2)]                    MCG         2798     A     
 MCG                SX7    X7                                                              MCG         2799     A     
 MCG                LX7    18                                                              MCG         2800     A     
 MCG                BX7    X3+X7       SWAP( REG1 , REG2 )                                 MCG         2801     A     
 MCG                                                                                       MCG         2802     A     
 MCG       CNU1     MX1    -D.REGWL                                                        MCG         2803     A     
 MCG                SA2    UR                                                              MCG         2804     A     
 MCG                LX1    D.REGWP                                                         MCG         2805     A     
 MCG                SA5    PIS                                                             MCG         2806     A     
 MCG                LX2    D.REGWP                                                         MCG         2807     A     
 MCG                SB6    "TB"-B1                                                         MCG         2808     A     
 MCG                SB5    X5+MIN.D    TMIN = PIS + MIN.D                                  MCG         2809     A     
 MCG                                                                                       MCG         2810     A     
 MCG       CNU2     SA5    RVT+X7                                                          MCG         2811     A     
 MCG                SX6    X7-RN.X0                                                        MCG         2812     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3430    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SB3    X7          REGNO = REG[UOR]                                    MCG         2813     A     
 MCG                AX7    18          UOR = SHIFT( UOR , -18 )                            MCG         2814     A     
 MCG                BX3    X5+X6                                                           MCG         2815     A     
 MCG                LX5    -RV.NUP                                                         MCG         2816     A     
 MCG                MI     X3,CNU4     IF LOCK[RVT(REGNO)] ! REGNO < RN.X0                 MCG         2817     A     
 MCG                SB4    X5          NS = NU[RVT(REGNO)]  */ POINT OF NEXT USE           MCG         2818     A     
 MCG                SA4    B6+X5       DI = BASE-1 + NS                                    MCG         2819     A     
 MCG                LE     B4,B5,CNU4  IF NS @ TMIN  */ USE IS NEARBY                      MCG         2820     A     
 MCG                                                                                       MCG         2821     A     
 MCG      *         SEARCH BACKWARDS FROM THE POINT OF NEXT USE FOR A "PEAK" IN            MCG         2822     A     
 MCG      *         THE REG WIDTH"S, AND IF FOUND TRY TO DUMP THE REGISTER.                MCG         2823     A     
 MCG                                                                                       MCG         2824     A     
 MCG       CNU3     BX5    -X1*X4                                                          MCG         2825     A     
 MCG                IX6    X2-X5       N = UR - REGW[DI]                                   MCG         2826     A     
 MCG                MI     X6,CNU5     IF N < 0      */ USE IS PAST A REG PEAK             MCG         2827     A     
 MCG                AX6    D.REGWP-2                                                       MCG         2828     A     
 MCG                SB2    X6+4        N = 4*(N+1)   */ MIN DIST TO MAKE REGW > UR         MCG         2829     A     
 MCG                SB4    B4-B2       NS = NS - N                                         MCG         2830     A     
 MCG                SA4    A4-B2       DI = DI - N                                         MCG         2831     A     
 MCG                GE     B4,B5,CNU3  IF NS \ TMIN                                        MCG         2832     A     
 MCG                                                                                       MCG         2833     A     
 MCG       CNU4     NZ     X7,CNU2     IF UOR " 0                                          MCG         2834     A     
 MCG                EQ     CNU                                                             MCG         2835     A     
 MCG                                                                                       MCG         2836     A     
 MCG      *         POINT OF NEXT USE OVER A REG WIDTH PEAK, DUMP THE REG                  MCG         2837     A     
 MCG                                                                                       MCG         2838     A     
 MCG       CNU5     SA3    T                                                               MCG         2839     A     
 MCG                SA7    UOR                                                             MCG         2840     A     
 MCG                BX6    X3                                                              MCG         2841     A     
 MCG                SA6    TRA+B3      TRA(REGNO) = T                                      MCG         2842     A     
 MCG                RJ     CRC         COMPUTE RESTORE COSTS FOR THIS REG                  MCG         2843     A     
 MCG                RJ     SSR         SAVE THE RESULT                                     MCG         2844     A     
 MCG                SA1    UOR                                                             MCG         2845     A     
 MCG                BX7    X1          UOR = CNUA                                          MCG         2846     A     
 MCG                ZR     X1,CNU      IF UOR = 0                                          MCG         2847     A     
 MCG                EQ     CNU1                                                            MCG         2848     A     
 MCG       SSR      TITLE  SSR - SAVE SPECIFIED REGISTER                                   MCG         2849     A     
 MCG      **        SSR - SAVE SPECIFIED REGISTER                                          MCG         2850     A     
 MCG      *                                                                                MCG         2851     A     
 MCG      *         ENTRY  (B3) = REGNO , REGISTER TO BE FREED                             MCG         2852     A     
 MCG      *                (B4) = COST ( OF SAVING RESULT IN REGNO )                       MCG         2853     A     
 MCG                                                                                       MCG         2854     A     
 MCG       SSR0     SA1    UR                                                              MCG         2855     A     
 MCG                SX6    X1+B1       UR = UR + 1   */ INCREMENT COUNT OF UNL REGS        MCG         2856     A     
 MCG                SA6    A1                                                              MCG         2857     A     
 MCG                RJ     AIS         ALLOCATE INSTRUCTION SPACE                          MCG         2858     A     
 MCG                                                                                       MCG         2859     A     
 MCG       SSR      ROUTINE                                                                MCG         2860     A     
 MCG                SX6    B4-3                                                            MCG         2861     A     
 MCG                MI     X6,SSR3     IF COST < 3                                         MCG         2862     A     
 MCG                                                                                       MCG         2863     A     
 MCG      *         COST = 3, COMPUTATION NOT IN A STORE REG                               MCG         2864     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3431    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                                                                                       MCG         2865     A     
 MCG                SA1    AXR                                                             MCG         2866     A     
 MCG                SX7    FX.ST                                                           MCG         2867     A     
 MCG                BX6    X7*X1                                                           MCG         2868     A     
 MCG                NZ     X6,SSR1     IF AXR & FX.ST " 0  */ IF A STORE REG IS AVAIL      MCG         2869     A     
 MCG                SX3    B1                                                              MCG         2870     A     
 MCG                SA2    RVT+B3                                                          MCG         2871     A     
 MCG                LX3    RV.SROP                                                         MCG         2872     A     
 MCG                BX6    X3+X2       SRO[RVT(REGNO)] = 1                                 MCG         2873     A     
 MCG                SA7    SF          SF = FX.ST    */ INDICATE UNSAVED RESULTS           MCG         2874     A     
 MCG                SA6    A2                                                              MCG         2875     A     
 MCG                EQ     SSR                                                             MCG         2876     A     
 MCG                                                                                       MCG         2877     A     
 MCG       SSR1     SB4    B3+         REGF = REGNO                                        MCG         2878     A     
 MCG                SB3    RN.X0+6                                                         MCG         2879     A     
 MCG                SB2    OC.XMT                                                          MCG         2880     A     
 MCG                SA3    RVT+B3                                                          MCG         2881     A     
 MCG                ZR     X3,SSR2     REGR = IF( RVT(X6) = 0 ) THEN X6; ELSE X7           MCG         2882     A     
 MCG                SB3    B3+1                                                            MCG         2883     A     
 MCG       SSR2     RJ     OXI         MOVE RESULT TO A STORE REG                          MCG         2884     A     
 MCG                SB4    2           COST = 2                                            MCG         2885     A     
 MCG                                                                                       MCG         2886     A     
 MCG       SSR3     SA1    RVT+B3                                                          MCG         2887     A     
 MCG                BX6    "RN"X1      R0 = RI[RVT(REGNO)]                                 MCG         2888     A     
 MCG                BX1    X6                                                              MCG         2889     A     
 MCG                SA6    R0                                                              MCG         2890     A     
 MCG                PRINT  SSR,(* R0,UR = *,O6,I5),(R0,UR)                                 MCG         2891     A     
 MCG                SA2    AXR                                                             MCG         2892     A     
 MCG                SA3    RBV+B3                                                          MCG         2893     A     
 MCG                MX6    0                                                               MCG         2894     A     
 MCG                BX7    X2+X3       AXR = AXR ! RBV(REGNO)  */ MAKE THE REG AVAIL       MCG         2895     A     
 MCG                SA6    A1          RVT(REGNO) = 0                                      MCG         2896     A     
 MCG                SA7    A2                                                              MCG         2897     A     
 MCG                                                                                       MCG         2898     A     
 MCG                GT     B4,B1,SSR4  IF COST > 1                                         MCG         2899     A     
 MCG                RJ     RII         REISSUE THE INSTRUCTION                             MCG         2900     A     
 MCG                EQ     SSR0                                                            MCG         2901     A     
 MCG                                                                                       MCG         2902     A     
 MCG       SSR4     SX6    0                                                               MCG         2903     A     
 MCG                SA6    T0          T0 = 0                                              MCG         2904     A     
 MCG                RJ     SRM         SAVE RESULT IN MEMORY                               MCG         2905     A     
 MCG                EQ     SSR0                                                            MCG         2906     A     
 MCG       SUR      SPACE  3,14        SUR                                                 MCG         2907     A     
 MCG      **        SUR - STORE UNSAVED RESULTS                                            MCG         2908     A     
 MCG      *                                                                                MCG         2909     A     
 MCG      *         ENTRY  AXR & FX. ST " 0 ( STORE REGISTER FREE )                        MCG         2910     A     
 MCG      *                SF " 0 , UNSAVED RESULTS IN THE REGISTERS THAT                  MCG         2911     A     
 MCG      *                      HAVE NO IMMEDIATE USES.                                   MCG         2912     A     
 MCG                                                                                       MCG         2913     A     
 MCG       SUR      ROUTINE                                                                MCG         2914     A     
 MCG                SB3    RN.X0+6                                                         MCG         2915     A     
 MCG                SB4    RN.X0       I = RN.X0                                           MCG         2916     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3432    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA1    RVT+B3                                                          MCG         2917     A     
 MCG                SX6    0           T0 = 0                                              MCG         2918     A     
 MCG                SA6    T0                                                              MCG         2919     A     
 MCG                ZR     X1,SUR1     REGR = IF( RVT(X6) = 0 ) THEN X6; ELSE X7           MCG         2920     A     
 MCG                SB3    B3+1                                                            MCG         2921     A     
 MCG                                                                                       MCG         2922     A     
 MCG       SUR1     SA1    RVT+B4                                                          MCG         2923     A     
 MCG                BX7    "RN"X1                                                          MCG         2924     A     
 MCG                LX1    59-RV.SROP                                                      MCG         2925     A     
 MCG                PL     X1,SUR2     IF ^SRO[RVT(I)]                                     MCG         2926     A     
 MCG                                                                                       MCG         2927     A     
 MCG                SB2    OC.XMT                                                          MCG         2928     A     
 MCG                SA7    R0          R0 = RI[RVT(I)]                                     MCG         2929     A     
 MCG                SX2    B4                                                              MCG         2930     A     
 MCG                PX6    B3,X2                                                           MCG         2931     A     
 MCG                SA6    SURA                                                            MCG         2932     A     
 MCG                RJ     OXI         OUTPUT AND XMIT                                     MCG         2933     A     
 MCG                SA1    UR                                                              MCG         2934     A     
 MCG                SX6    X1+B1       UR = UR + 1                                         MCG         2935     A     
 MCG                SA6    A1                                                              MCG         2936     A     
 MCG                RJ     SRM         AND SAVE RESULT IN MEMORY                           MCG         2937     A     
 MCG                SA2    SURA                                                            MCG         2938     A     
 MCG                SB4    X2                                                              MCG         2939     A     
 MCG                UX6    B3,X2                                                           MCG         2940     A     
 MCG                                                                                       MCG         2941     A     
 MCG       SUR2     SB4    B4+B1       I = I + 1                                           MCG         2942     A     
 MCG                SX6    B4-RN.X0-6                                                      MCG         2943     A     
 MCG                MI     X6,SUR1     IF I < RN.X6                                        MCG         2944     A     
 MCG                                                                                       MCG         2945     A     
 MCG                SA1    AXR                                                             MCG         2946     A     
 MCG                SA2    RBV+B3                                                          MCG         2947     A     
 MCG                SA6    RVT+B3      RVT(REGR) = 0 */ MAKE REG AVAIL                     MCG         2948     A     
 MCG                SA6    SF          SF = 0                                              MCG         2949     A     
 MCG                BX7    X1+X2       AXR = AXR ! RBV(REGR)                               MCG         2950     A     
 MCG                SA7    A1                                                              MCG         2951     A     
 MCG                EQ     SUR                                                             MCG         2952     A     
 MCG                                                                                       MCG         2953     A     
 MCG       SURA     BSS    1                                                               MCG         2954     A     
 MCG       UJR      TITLE  UJR - UNJAM REGISTERS                                           MCG         2955     A     
 MCG      **        UJR - UNJAM REGISTERS, FORCE ISSUE OF CURRENT INSTRUCTION              MCG         2956     A     
 MCG      *                BY FREEING UP A REGISTER, CREATING AN *XMT*, ETC.               MCG         2957     A     
 MCG      *                                                                                MCG         2958     A     
 MCG      *         ENTRY  (X3) = T0 , *TXT* INDEX OF INSTRUCTION TO BE ISSUED             MCG         2959     A     
 MCG      *                                                                                MCG         2960     A     
 MCG      *         EXIT   (UOR) = EXIT VALUE FROM *SNU* IF *ISI* WAS CALLED               MCG         2961     A     
 MCG                                                                                       MCG         2962          I
          -FCC0584
 MCG                                                                                       MCG         2963     A     
 MCG       UJR      ROUTINE                                                                MCG         2964     A     
 MCG                SB6    "TB"-1                                                          MCG         2965     A     
 MCG                S"DI"  X3+B6       DI = BASE-1 + T0                                    MCG         2966     A     
 MCG                BX6    X3                                                              MCG         2967     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3433    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA6    T0C         T0C = T0                                            MCG         2968     A     
 MCG                SA6    T0                                                              MCG         2969     A     
 MCG                RJ     DRT         CLASS = DRT( DI ) */ DETERMINE REG CLASS            MCG         2970     A     
 MCG                PRINT  UJR,(* TO = *,O6),T0                                            MCG         2971     A     
 MCG                PRNT   UJR,RUI                                                         MCG         2972     A     
 MCG                SA6    CLASS                                                           MCG         2973     A     
 MCG                RJ     AIS         ALLOCATE INSTRUCTION SPACE                          MCG         2974          I
          -FCC1451
 MCG                RJ     CSI         CHECK STORE REGISTERS                               MCG         2975          I
          -FCC1451
 MCG                SX7    0                                                               FCC1451        8     A     
 MCG                SA7    ISI         ISI = 0       */ INDICATE *ISI* NOT ENTERED         FCC1451        9     A     
 MCG                RJ     CSI         CHECK STORE REGISTERS                               FCC1451       10     A     
 MCG                SA1    ISI                                                             FCC1451       11     A     
 MCG                ZR     X1,UJR0     IF ISI = 0    */ NO INSTRUCTIONS ISSUED             FCC1451       12          I
          -FCC2061
 MCG                ZR     X1,UJR0A    IF ISI = 0 */NO INSTRUCTIONS ISSUED                 FCC2061       10     A     
 MCG                                                                                       FCC1451       13     A     
 MCG                SA2    T0                                                              FCC1451       14          I
          -FCC2061
 MCG       UJR0     SA2    T0                                                              FCC2061       11     A     
 MCG                RJ     ISI         TRY AND ISSUE T0                                    FCC1451       15     A     
 MCG                PRINT  JAM,(* CSI ISSUED A ST, REGNO =*Z2),B3                          FCC1451       16     A     
 MCG                PL     B3,UJR      IF REGNO \ 0  */ ISI ISSUED THE INSTRUCTION         FCC1451       17     A     
 MCG                                                                                       FCC1451       18     A     
 MCG       UJR0     RJ     AIS         ALLOCATE INSTRUCTION SPACE                          FCC1451       19          I
          -FCC2061
 MCG       UJR0A    RJ     AIS         ALLOCATE INSTRUCTION SPACE                          FCC2061       12     A     
 MCG                SA1    AXR                                                             MCG         2976     A     
 MCG                SX4    FX.SCR                                                          MCG         2977     A     
 MCG                BX6    X4*X1       AVAIL = AXR & FX.SCR                                MCG         2978     A     
 MCG                ZR     X6,UJR2     IF AVAIL = 0                                        MCG         2979     A     
 MCG                SA1    CLASS                                                           MCG         2980     A     
 MCG                BX7    X1*X6                                                           MCG         2981     A     
 MCG                NZ     X7,UJR      IF AVAIL & CLASS " 0                                MCG         2982     A     
 MCG                                                                                       MCG         2983     A     
 MCG       UJR1     SA1    CLASS                                                           MCG         2984     A     
 MCG                RJ     CRA         CHANGE REGISTER ASSIGNMENTS                         MCG         2985          I
          -FCC0584
 MCG                RJ     CRA         CHANGE REGISTER ASSIGNMENTS AND ISSUE *T0*          FCC0584        8     A     
 MCG                EQ     UJR                                                             MCG         2986     A     
 MCG                                                                                       MCG         2987     A     
 MCG       UJR2     SA1    CLASS                                                           MCG         2988     A     
 MCG                RJ     FRR         REGF = FRR(RVT,MCOST)  */ FIND A RESULT REG         MCG         2989     A     
 MCG                SX7    B4-3                                                            MCG         2990     A     
 MCG                MX5    0                                                               FCC2061       13     A     
 MCG                MI     X7,UJR3     IF MCOST < 3                                        MCG         2991     A     
 MCG                                                                                       MCG         2992     A     
 MCG      *         DUMP THE STORE REG WHOSE FIRST USE IS FURTHEST AWAY                    MCG         2993     A     
 MCG                                                                                       MCG         2994     A     
 MCG                SA5    O.TREE                                                          MCG         2995          I
          -FCC2207
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3434    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SB3    RN.X0+6     REGF = X6                                           MCG         2996          I
          -FCC2207
 MCG                SA1    RVT+B3                                                          MCG         2997          I
          -FCC2207
 MCG                MX7    -I.INDXL                                                        MCG         2998          I
          -FCC2207
 MCG                SB2    X5                                                              FCC2061       14          I
          -FCC2207
 MCG                SA2    A1+B1                                                           MCG         2999          I
          -FCC2207
 MCG                BX6    X1*X2                                                           FCC0881       32          I
          -FCC2061  -FCC2207
 MCG                MI     X6,UJR.E1   IF LOCK[RVT(X6)] & LOCK[RVT(X7)]                    FCC0881       33          I
          -FCC2061  -FCC2207
 MCG                SB2    X5                                                              MCG         3000          I
          -FCC2061  -FCC2207
 MCG                BX5    X1*X2                                                           FCC2061       15          I
          -FCC2207
 MCG                SA3    "TB"+X1     RX6 = BASE + RI[RVT(X6)]                            MCG         3001          I
          -FCC2207
 MCG                SA4    "TB"+X2     RX7 = BASE + RI[RVT(X7)]                            MCG         3002          I
          -FCC2207
 MCG                LX3    -I.INDXP                                                        MCG         3003          I
          -FCC2207
 MCG                LX4    -I.INDXP                                                        MCG         3004          I
          -FCC2207
 MCG                BX6    -X7*X3                                                          MCG         3005          I
          -FCC2207
 MCG                BX7    -X7*X4                                                          MCG         3006          I
          -FCC2207
 MCG                SA3    B2+X6       UI6 = O.TREE + INDX[RX6]                            MCG         3007          I
          -FCC2207
 MCG                SA4    B2+X7       UI7 = O.TREE + INDX[RX7]                            MCG         3008          I
          -FCC2207
 MCG                LX3    -U.SUCCP                                                        MCG         3009          I
          -FCC2207
 MCG                LX4    -U.SUCCP                                                        MCG         3010          I
          -FCC2207
 MCG                BX1    X1-X5                                                           FCC2061       16          I
          -FCC2207
 MCG                BX2    X2-X5                                                           FCC2061       17          I
          -FCC2207
 MCG                AX1    59                                                              FCC0881       34          I
          -FCC2207
 MCG                AX2    59                                                              FCC0881       35          I
          -FCC2207
 MCG                BX3    -X1*X3                                                          FCC0881       36          I
          -FCC2207
 MCG                BX4    -X2*X4                                                          FCC0881       37          I
          -FCC2207
 MCG                SB5    X3                                                              MCG         3011          I
          -FCC2207
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3435    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SB6    X4                                                              MCG         3012          I
          -FCC2207
 MCG                SB4    B1+B1       MCOST = 2                                           MCG         3013          I
          -FCC2207
 MCG      +         GT     B5,B6,*+1   IF( SUCC[UI6] > SUCC[UI7] )                         MCG         3014          I
          -FCC2207
 MCG                SB3    B3+1              THEN X6; ELSE X7                              MCG         3015          I
          -FCC2207
 MCG                                                                                       MCG         3016          I
          -FCC2207
 MCG                RJ     FSR         FIND A STORE REGISTER                               FCC2207       15     A     
 MCG                                                                                       FCC2207       16     A     
 MCG       UJR3     SA1    RVT+B3                                                          MCG         3017     A     
 MCG                SA2    RVT+RN.X0+6                                                     FCC2207       17          I
          -FCC2288
 MCG                SA3    A2+B1                                                           FCC2207       18          I
          -FCC2288
 MCG                BX6    "RN"X1      R0 = RI[RVT(REGF)]                                  MCG         3018     A     
 MCG                BX5    X2*X3                                                           FCC2207       19          I
          -FCC2288
 MCG                SA6    R0                                                              MCG         3019     A     
 MCG                PRINT  UJR,(* R0 = *,O6),R0                                            MCG         3020     A     
 MCG                SA1    AXR                                                             MCG         3021     A     
 MCG                SA2    RBV+B3                                                          MCG         3022     A     
 MCG                SA3    CLASS                                                           MCG         3023     A     
 MCG                BX6    X1+X2       AXR = AXR ! RBV(REGF) */ MAKE REG AVAIL             MCG         3024     A     
 MCG                SA6    A1                                                              MCG         3025     A     
 MCG                MX7    0                                                               MCG         3026     A     
 MCG                SA7    RVT+B3                                                          FCC2061       18     A     
 MCG                MI     X5,UJR10    IF BOTH X6 AND X7 LOCKED                            FCC2061       19     A     
 MCG                BX5    X2*X3                                                           MCG         3027     A     
 MCG                SA7    RVT+B3      RVT(REGF) = 0                                       MCG         3028          I
          -FCC2061
 MCG                NZ     X5,UJR5     IF CLASS & RBV(REGF) " 0                            MCG         3029     A     
 MCG                                                                                       MCG         3030     A     
 MCG      *         REGF NOT IN *CLASS*, FREE IT UP AND OUTPUT AN *XMT*                    MCG         3031     A     
 MCG                                                                                       MCG         3032     A     
 MCG                LE     B4,B1,UJR4  IF MCOST @ 1                                        MCG         3033     A     
 MCG                RJ     TGL         SHOULD R0 BE TOGGLED                                FCC2207       20     A     
 MCG                NZ     B4,UJR0     IF B4 " 0 R0 WAS TOGGLED                            FCC2207       21     A     
 MCG                SX6    0                                                               MCG         3034     A     
 MCG                SA6    T0          T0 = 0                                              MCG         3035     A     
 MCG                RJ     SRM         SAVE RESULT IN MEMORY                               MCG         3036     A     
 MCG                SA5    T0C                                                             MCG         3037     A     
 MCG                SX6    X5+         T0 = T0C      */ RESTORE T0                         MCG         3038     A     
 MCG                SA6    T0                                                              MCG         3039     A     
 MCG                EQ     UJR1                                                            MCG         3040     A     
 MCG                                                                                       MCG         3041     A     
 MCG       UJR4     SA1    R0                                                              MCG         3042     A     
 MCG                RJ     RII         RESET FOR REISSUE                                   MCG         3043     A     
 MCG                EQ     UJR1                                                            MCG         3044     A     
 MCG                                                                                       MCG         3045     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3436    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG      *         REGF IN *CLASS*, FREE IT UP                                            MCG         3046     A     
 MCG                                                                                       MCG         3047     A     
 MCG       UJR5     LE     B4,B1,UJR6  IF MCOST @ 1                                        MCG         3048     A     
 MCG                                                                                       MCG         3049     A     
 MCG                RJ     TGL         SHOULD R0 BE TOGGLED                                FCC2207       22     A     
 MCG                NZ     B4,UJR0     IF B4 " 0 R0 WAS TOGGLED                            FCC2207       23     A     
 MCG                RJ     SRM         SAVE RESULT IN MEMORY                               MCG         3050     A     
 MCG                EQ     UJR                                                             MCG         3051     A     
 MCG                                                                                       MCG         3052     A     
 MCG       UJR6     SA2    T0                                                              MCG         3053     A     
 MCG                RJ     ISI         ISSUE T0                                            MCG         3054     A     
 MCG                SA1    R0                                                              MCG         3055     A     
 MCG                SA7    UOR                                                             MCG         3056          I
          -FCC0584
 MCG                RJ     RII         RESET FOR REISSUE                                   MCG         3057     A     
 MCG                EQ     UJR                                                             MCG         3058     A     
 MCG                                                                                       FCC2061       20     A     
 MCG      *         BOTH X6 AND X7 LOCKED UP - FREE ONE OF THEM.                           FCC2061       21     A     
 MCG                                                                                       FCC2061       22     A     
 MCG       UJR10    SA1    R0                                                              FCC2061       23     A     
 MCG                SA3    LXR                                                             FCC2061       24     A     
 MCG                SB2    "TB"-1                                                          FCC2061       25     A     
 MCG                BX7    -X2*X3                                                          FCC2061       26     A     
 MCG                S"DI"  B2+X1       DI OF R0                                            FCC2061       27     A     
 MCG                SA7    A3          CLEAR LXR AT R0                                     FCC2061       28     A     
 MCG                LX4    59-D.PRSP                                                       FCC2061       29     A     
 MCG                PL     X4,UJR.E1   IF ^PRS ABORT                                       FCC2061       30     A     
 MCG                                                                                       FCC2061       31     A     
 MCG                RJ     OTS         OUTPUT TEMP STORE                                   FCC2061       32     A     
 MCG                                                                                       FCC2061       33     A     
 MCG                SA1    R0                                                              FCC2061       34     A     
 MCG                RJ     GLI         GENERATE LOAD OF TEMP                               FCC2061       35     A     
 MCG                                                                                       FCC2061       36     A     
 MCG      *         UPDATE DESCRIPTOR AND LINK WORDS OF R0.                                FCC2061       37     A     
 MCG                                                                                       FCC2061       38     A     
 MCG                SA1    R0                                                              FCC2061       39     A     
 MCG                SA3    "TB"+X1                                                         FCC2061       40     A     
 MCG                SX2    B1                                                              FCC2061       41     A     
 MCG                LX3    -I.USESP                                                        FCC2061       42     A     
 MCG                IX7    X2+X3       USES = USES + 1                                     FCC2061       43     A     
 MCG                SA4    A3-B1       DI = LI - 1                                         FCC2061       44     A     
 MCG                LX7    I.USESP                                                         FCC2061       45     A     
 MCG                SA7    A3                                                              FCC2061       46     A     
 MCG                LX2    D.PRSP                                                          FCC2061       47     A     
 MCG                BX7    -X2*X4      [DI] = [DI] AND ^PRS                                FCC2061       48     A     
 MCG                SA7    A4                                                              FCC2061       49     A     
 MCG                                                                                       FCC2061       50     A     
 MCG      *         GENERATE XMT OF LOADED TEMP AT END OF TEXT                             FCC2061       51     A     
 MCG                                                                                       FCC2061       52     A     
 MCG                ALLOC  TXT,8                                                           FCC2061       53     A     
 MCG                ALLOC  TREE,3      (B6) =  LTR = OLD(L.TREE)                           FCC2061       54     A     
 MCG                RJ     AIP                                                             FCC2061       55     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3437    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA1    R0                                                              FCC2061       56     A     
 MCG                SA2    L.TXT                                                           FCC2061       57     A     
 MCG                SX2    X2-8        LT = L.TXT - 8                                      FCC2061       58     A     
 MCG                SX7    B1                                                              FCC2061       59     A     
 MCG                SX6    B6                                                              FCC2061       60     A     
 MCG                LX6    I.INDXP                                                         FCC2061       61     A     
 MCG                BX6    X6+X7                                                           FCC2061       62     A     
 MCG                SA6    "TB"+X2     [LIT] = LW(O,O,LTR,0,1)                             FCC2061       63     A     
 MCG                SB2    OC.XMT                                                          FCC2061       64     A     
 MCG                SA4    F.RDT+B2                                                        FCC2061       65     A     
 MCG                LX7    D.PRSP                                                          FCC2061       66     A     
 MCG                BX6    X4+X7                                                           FCC2061       67     A     
 MCG                SA6    A6-B1       DIT=LIT-1;[DIT]=RDT(OC.XMT)!PRS                     FCC2061       68     A     
 MCG                MX7    0                                                               FCC2061       69     A     
 MCG                SA7    A6-B1       R2T=DIT-1;[R2T]=0                                   FCC2061       70     A     
 MCG                SX1    X1                                                              FCC2061       71     A     
 MCG                LX1    R1.RJP                                                          FCC2061       72     A     
 MCG                BX7    X1+X2                                                           FCC2061       73     A     
 MCG                PX6    B2,X7                                                           FCC2061       74     A     
 MCG                SA6    A7-B1       R1T=R2T-1;[R1T]=TYI(OC.XMT,R0,0,LT)                 FCC2061       75     A     
 MCG                LX1    -R1.RJP                                                         FCC2061       76     A     
 MCG                                                                                       FCC2061       77     A     
 MCG      *         GENERATE RS AFTER XMT.                                                 FCC2061       78     A     
 MCG                                                                                       FCC2061       79     A     
 MCG                SB2    X2+4        RSLT = LT + 4                                       FCC2061       80     A     
 MCG                SX6    B6+2                                                            FCC2061       81     A     
 MCG                SX7    B1                                                              FCC2061       82     A     
 MCG                LX6    I.INDXP                                                         FCC2061       83     A     
 MCG                BX7    X6+X7                                                           FCC2061       84     A     
 MCG                SA7    "TB"+B2     [LIT] = LW(0,0,LTR+2,0,1)                           FCC2061       85     A     
 MCG                SA3    F.RDT+OC.RS                                                     FCC2061       86     A     
 MCG                SB2    "TB"+B1                                                         FCC2061       87     A     
 MCG                BX7    X3                                                              FCC2061       88     A     
 MCG                SA7    A7-B1       DIT=LIT-1;[LIT]=F.RDT(OC.RS)                        FCC2061       89     A     
 MCG                MX6    0                                                               FCC2061       90     A     
 MCG                SA6    A7-B1       R2T=DIT-1;[R2T]=0                                   FCC2061       91     A     
 MCG                SA3    B2+X1       R1W OF RS OF R0                                     FCC2061       92     A     
 MCG                BX6    X0*X3       MASK OUT RI                                         FCC2061       93     A     
 MCG                BX7    X6+X2       REPLACE IT WITH LT                                  FCC2061       94     A     
 MCG                SA7    A6-B1       R1T=R2T-1;[R1T]=TYII(OC.RS,IN,SO,LT)                FCC2061       95     A     
 MCG                                                                                       FCC2061       96     A     
 MCG      *         ADJUST *SIT* SO THAT XMT IS THE LAST SUCCESSOR OF R0.                  FCC2061       97     A     
 MCG                                                                                       FCC2061       98     A     
 MCG                SA3    "TB"+X1                                                         FCC2061       99     A     
 MCG                SA4    O.TREE                                                          FCC2061      100     A     
 MCG                LX3    -I.INDXP                                                        FCC2061      101     A     
 MCG                MX7    -I.INDXL                                                        FCC2061      102     A     
 MCG                SB2    X4          =UO                                                 FCC2061      103     A     
 MCG                BX3    -X7*X3                                                          FCC2061      104     A     
 MCG                SA3    B2+X3       = UI                                                FCC2061      105     A     
 MCG                                                                                       FCC2061      106     A     
 MCG      *         SEARCH FOR LAST SUCCESSOR OF R0                                        FCC2061      107     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3438    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                                                                                       FCC2061      108     A     
 MCG       UJR20    LX3    59-U.LASTP                                                      FCC2061      109     A     
 MCG                MI     X3,UJR30    IF LAST                                             FCC2061      110     A     
 MCG                SA3    A3+B1                                                           FCC2061      111     A     
 MCG                EQ     UJR20       LOOP UNTIL LAST IS FOUND                            FCC2061      112     A     
 MCG                                                                                       FCC2061      113     A     
 MCG      *         MAKE LT THE LAST SUCCESSOR OF RO.                                      FCC2061      114     A     
 MCG                                                                                       FCC2061      115     A     
 MCG       UJR30    LX3    U.LASTP-U.SUCCP+1                                               FCC2061      116     A     
 MCG                BX7    X0*X3       MASK OUT SUCC.                                      FCC2061      117     A     
 MCG                BX6    X2+X7                                                           FCC2061      118     A     
 MCG                LX6    U.SUCCP                                                         FCC2061      119     A     
 MCG                SA6    A3          LAST SUCC OF R0 = LT                                FCC2061      120     A     
 MCG                                                                                       FCC2061      121     A     
 MCG      *         MAKE RS OF LT THE FIRST SUCCESSOR OF LT.                               FCC2061      122     A     
 MCG                                                                                       FCC2061      123     A     
 MCG                SX4    X2+4        RSLT = LT + 4                                       FCC2061      124     A     
 MCG                LX2    U.PREDP                                                         FCC2061      125     A     
 MCG                LX4    U.SUCCP                                                         FCC2061      126     A     
 MCG                BX7    X2+X4                                                           FCC2061      127     A     
 MCG                SA7    B2+B6       [LTR] = USES(0,LT,0,RSLT)                           FCC2061      128     A     
 MCG                                                                                       FCC2061      129     A     
 MCG      *         MAKE THE PREVIOUS LAST SUCCESSOR OF RO THE LAST SUCCESSOR OF LT.       FCC2061      130     A     
 MCG                                                                                       FCC2061      131     A     
 MCG                BX6    "RN"X3      LSR0 = PREV. LAST SUCCESSOR OF R0                   FCC2061      132     A     
 MCG                SX7    B1                                                              FCC2061      133     A     
 MCG                LX7    U.LASTP                                                         FCC2061      134     A     
 MCG                BX6    X6+X7                                                           FCC2061      135     A     
 MCG                BX7    X2+X6                                                           FCC2061      136     A     
 MCG                SA7    A7+B1       [LTR+1] = USES(1,LT,0,LSR0)                         FCC2061      137     A     
 MCG                                                                                       FCC2061      138     A     
 MCG      *         MAKE THE PREV. LAST SUCCESSOR OF RO THE LAST SUCCESSOR OF RSLT         FCC2061      139     A     
 MCG                                                                                       FCC2061      140     A     
 MCG                LX4    U.PREDP-U.SUCCP                                                 FCC2061      141     A     
 MCG                BX7    X4+X6                                                           FCC2061      142     A     
 MCG                SA7    A7+B1       [LTR+2] = USES(1,RSLT,0,LSR0)                       FCC2061      143     A     
 MCG                EQ     UJR0        TRY AGAIN                                           FCC2061      144     A     
 MCG                                                                                       MCG         3059     A     
 MCG      *         COMPILER ERROR, UNFORSEEN SITUATION                                    MCG         3060     A     
 MCG                                                                                       MCG         3061     A     
 MCG       DRT0     BSS    0                                                               MCG         3062     A     
 MCG       UJR.E1   BSS    0                                                               MCG         3063     A     
 MCG                PRNT   JAM,RUI                                                         MCG         3064     A     
 MCG      *IF       DEF,TESTFTN,1                                                          MCG         3065          I
          -FCC1656X 
 MCG                SNAPRL JAM-ERR                                                         MCG         3066          I
          -FCC0641
 MCG                SA1    =3LJAM                                                          MCG         3067          I
          -FCC0641
 MCG                CALL   PUNT        *** TEMP ***                                        MCG         3068          I
          -FCC0641
 MCG                EQ     *+1S17                                                          FCC0641       73     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3439    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG       FSR      SPACE  3,14                                                            FCC2207       24     A     
 MCG      **        FSR - FIND STORE REGISTER, NO REGS AVAIL                               FCC2207       25     A     
 MCG      *                                                                                FCC2207       26     A     
 MCG      *         EXIT   (B3) = REGNO, = 0 IF NOTHING FOUND                              FCC2207       27     A     
 MCG      *                (B4) = MCOST                                                    FCC2207       28     A     
 MCG      *         (X5) = NEG IF BOTH X6 AND X7 LOCKED.                                   FCC2207       29     A     
 MCG                                                                                       FCC2207       30     A     
 MCG       FSR      ROUTINE                                                                FCC2207       31     A     
 MCG                SA1    RVT+RN.X0+6                                                     FCC2207       32     A     
 MCG                SA2    A1+B1                                                           FCC2207       33     A     
 MCG                MX5    1                                                               FCC2207       34     A     
 MCG                BX6    X5*X1                                                           FCC2207       35     A     
 MCG                BX7    X5*X2                                                           FCC2207       36     A     
 MCG                SA6    FSRA        FSRA(1) = LOCK[RVT(X6)]                             FCC2207       37     A     
 MCG                SA7    A6+B1       FSRA(2) = LOCK[RVT(X7)]                             FCC2207       38     A     
 MCG                SA3    CLASS                                                           FCC2207       39     A     
 MCG                SX4    X3-FX.SCR                                                       FCC2207       40     A     
 MCG                ZR     X4,FSR2     IF CLASS = FX.SCR                                   FCC2207       41     A     
 MCG                SA2    T0                                                              FCC2207       42     A     
 MCG                RJ     GOR         GET REGNO"S OF OPERANDS OF T0                       FCC2207       43     A     
 MCG                                                                                       FCC2207       44     A     
 MCG       FSR1     ZR     X7,FSR2     IF END OF LIST                                      FCC2207       45     A     
 MCG                SX4    X7-RN.X0-6                                                      FCC2207       46     A     
 MCG                AX7    18                                                              FCC2207       47     A     
 MCG                MI     X4,FSR1     IF NOT A STORE REG                                  FCC2207       48     A     
 MCG                MX6    1                                                               FCC2207       49     A     
 MCG                SA6    FSRA+X4     INDICATE REGISTER IS NOT AVAIL                      FCC2207       50     A     
 MCG                EQ     FSR1                                                            FCC2207       51     A     
 MCG                                                                                       FCC2207       52     A     
 MCG       FSR2     SA1    FSRA                                                            FCC2207       53     A     
 MCG                SA2    A1+B1                                                           FCC2207       54     A     
 MCG                BX5    X1*X2                                                           FCC2207       55     A     
 MCG                SB3    RN.X0+6     REGNO = X6                                          FCC2207       56     A     
 MCG                SB4    B1+B1       MCOST = 2                                           FCC2207       57     A     
 MCG                MI     X5,FSR3     IF BOTH X6 AND X7 LOCKED                            FCC2207       58     A     
 MCG                BX7    X1+X2                                                           FCC2207       59     A     
 MCG                ZR     X7,FSR3     IF BOTH AVAILABLE                                   FCC2207       60     A     
 MCG                ZR     X1,FSR      IF X6 IS AVAILABLE                                  FCC2207       61     A     
 MCG                SB3    B3+B1       REGNO = RN.X7                                       FCC2207       62     A     
 MCG                EQ     FSR                                                             FCC2207       63     A     
 MCG                                                                                       FCC2207       64     A     
 MCG      *         BOTH ST REGS AVAIL, SEARCH FOR NEXT USE OF EACH.                       FCC2207       65     A     
 MCG                                                                                       FCC2207       66     A     
 MCG       FSR3     SA3    O.TREE                                                          FCC2207       67     A     
 MCG                SA1    RVT+RN.X0+6                                                     FCC2207       68     A     
 MCG                SA2    A1+B1                                                           FCC2207       69     A     
 MCG                MX7    -I.INDXL                                                        FCC2207       70     A     
 MCG                SB2    X3-1                                                            FCC2207       71     A     
 MCG                SA1    "TB"+X1     LX6 = TB + RVT(X6)                                  FCC2207       72     A     
 MCG                SA2    "TB"+X2     LX7 = TB + RVT(X7)                                  FCC2207       73     A     
 MCG                LX1    -I.INDXP                                                        FCC2207       74     A     
 MCG                LX2    -I.INDXP                                                        FCC2207       75     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3440    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                BX1    -X7*X1                                                          FCC2207       76     A     
 MCG                BX2    -X7*X2                                                          FCC2207       77     A     
 MCG                SB6    59-U.EQVP                                                       FCC2207       78     A     
 MCG                SA1    B2+X1       UX6 = TREE-1 + INDX[LX6]                            FCC2207       79     A     
 MCG                SA2    B2+X2       UX7 = TREE-1 + INDX[LX7]                            FCC2207       80     A     
 MCG                                                                                       FCC2207       81     A     
 MCG       FSR4     SA1    A1+B1       UX6 = UX6 + 1                                       FCC2207       82     A     
 MCG                LX6    B6,X1                                                           FCC2207       83     A     
 MCG                MI     X6,FSR4     IF EQV[UX6]                                         FCC2207       84     A     
 MCG                LX1    -U.SUCCP                                                        FCC2207       85     A     
 MCG                SA4    "TB"+X1     LIS = TB + SUCC[UX6]                                FCC2207       86     A     
 MCG                LX4    59-I.IIP                                                        FCC2207       87     A     
 MCG                MI     X4,FSR4     IF II[LIS]                                          FCC2207       88     A     
 MCG                                                                                       FCC2207       89     A     
 MCG       FSR5     SA2    A2+B1       UX7 = UX7 + 1                                       FCC2207       90     A     
 MCG                LX6    B6,X2                                                           FCC2207       91     A     
 MCG                MI     X6,FSR5     IF EQV[UX7]                                         FCC2207       92     A     
 MCG                LX1    -U.SUCCP                                                        FCC2207       93     A     
 MCG                SA4    "TB"+X2     LIST = TB + SUCC[UX7]                               FCC2207       94     A     
 MCG                LX4    59-I.IIP                                                        FCC2207       95     A     
 MCG                MI     X4,FSR5     IF II[LIS]                                          FCC2207       96     A     
 MCG                                                                                       FCC2207       97     A     
 MCG                SB5    X1                                                              FCC2207       98     A     
 MCG                SB6    X2                                                              FCC2207       99     A     
 MCG                GT     B5,B6,FSR   IF ( SUCC[UI6] > SUCC[UI7] )                        FCC2207      100     A     
 MCG                SB3    B3+B1             THEN RN.X6   ELSE RN.X7                       FCC2207      101     A     
 MCG                NE     B5,B6,FSR   IF SUCC[UX6] " SUCC[UX7]                            FCC2207      102     A     
 MCG                SA2    RVT+B3      RX7 = RVT + RN.X7                                   FCC2207      103     A     
 MCG                SA1    A2-B1       RX6 = RX7 - 1                                       FCC2207      104     A     
 MCG                MX7    -I.USESL                                                        FCC2207      105     A     
 MCG                SA1    "TB"+X1     LIX6 = BASE + RX6                                   FCC2207      106     A     
 MCG                SA2    "TB"+X2     LIX7 = BASE + RX7                                   FCC2207      107     A     
 MCG                LX1    -I.USESP                                                        FCC2207      108     A     
 MCG                LX2    -I.USESP                                                        FCC2207      109     A     
 MCG                BX1    -X7*X1                                                          FCC2207      110     A     
 MCG                BX2    -X7*X2                                                          FCC2207      111     A     
 MCG                SB5    X1                                                              FCC2207      112     A     
 MCG                SB6    X2                                                              FCC2207      113     A     
 MCG                GT     B6,B5,FSR    IF USES[LIX7] > USES[LIX6]                         FCC2207      114     A     
 MCG                SB3    B3-B1       REGNO = RN.X6                                       FCC2207      115     A     
 MCG                EQ     FSR                                                             FCC2207      116     A     
 MCG                                                                                       FCC2207      117     A     
 MCG       FSRA     BSS    2                                                               FCC2207      118     A     
 MCG       GOR      SPACE  3,14                                                            FCC2207      119     A     
 MCG      **        GOR - GET OPERAND REGISTERS OF INSTRUCTIONS THAT ARE                   FCC2207      120     A     
 MCG      *                A) NOT LOCKED                                                   FCC2207      121     A     
 MCG      *                B) NOT IN *CLASS*                                               FCC2207      122     A     
 MCG      *                                                                                FCC2207      123     A     
 MCG      *         ENTRY  (X2) = R-NUMBER OF INSTRUCTION TO CHECK OPERANDS OF             FCC2207      124     A     
 MCG      *                                                                                FCC2207      125     A     
 MCG      *         EXIT   (X7) = LOR, LIST OF REGISTERS                                   FCC2207      126     A     
 MCG                                                                                       FCC2207      127     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3441    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG       GOR      ROUTINE                                                                FCC2207      128     A     
 MCG                SB6    "TB"-B1                                                         FCC2207      129     A     
 MCG                S"DI"  B6+X2       DI = BASE-1 + T0                                    FCC2207      130     A     
 MCG                LX4    58-D.TYP                                                        FCC2207      131     A     
 MCG                MX7    0           LOR = 0                                             FCC2207      132     A     
 MCG                IX6    X4+X4                                                           FCC2207      133     A     
 MCG                MI     X6,GOR      IF TYPE[DI] = II ! IV                               FCC2207      134     A     
 MCG                PL     X4,GOR1     IF TYPE[DI] = I                                     FCC2207      135     A     
 MCG                                                                                       FCC2207      136     A     
 MCG      *         ASSEMBLE OPERAND R-NUMBERS                                             FCC2207      137     A     
 MCG                                                                                       FCC2207      138     A     
 MCG                SA3    "DI"-B1     R2 = DI - 1                                         FCC2207      139     A     
 MCG                LX3    -IH.RFP                                                         FCC2207      140     A     
 MCG                BX5    "RN"X3      RNUMS = RF[R2]                                      FCC2207      141     A     
 MCG                EQ     GOR2                                                            FCC2207      142     A     
 MCG                                                                                       FCC2207      143     A     
 MCG       GOR1     LX4    2+D.TYP-D.TYIOP                                                 FCC2207      144     A     
 MCG                MX6    -D.TYIOL                                                        FCC2207      145     A     
 MCG                SA5    "DI"-2      R1 = DI - 2                                         FCC2207      146     A     
 MCG                BX7    -X6*X4                                                          FCC2207      147     A     
 MCG                SA3    TYIOM+X7                                                        FCC2207      148     A     
 MCG                UX6    B2,X3                                                           FCC2207      149     A     
 MCG                BX2    X6*X5                                                           FCC2207      150     A     
 MCG                AX5    B2,X2       RNUMS = TYIO[R1,DI]                                 FCC2207      151     A     
 MCG                                                                                       FCC2207      152     A     
 MCG       GOR2     MX4    1                                                               FCC2207      153     A     
 MCG                LX4    1+RV.LOCKP                                                      FCC2207      154     A     
 MCG                SA1    CLASS                                                           FCC2207      155     A     
 MCG                                                                                       FCC2207      156     A     
 MCG       GOR3     BX6    "RN"X5      R = RI[RNUMS]                                       FCC2207      157     A     
 MCG                AX5    R1.RIL      RNUMS = SHIFT( RNUMS , -16 )                        FCC2207      158     A     
 MCG                ZR     X6,GOR4     IF R = 0                                            FCC2207      159     A     
 MCG                SA3    "TB"+X6     L = BASE + R                                        FCC2207      160     A     
 MCG                LX3    -I.REGP     REGNO = REG[L]                                      FCC2207      161     A     
 MCG                SA2    RBV+X3                                                          FCC2207      162     A     
 MCG                BX6    X2*X1                                                           FCC2207      163     A     
 MCG                NZ     X6,GOR4     IF RBV(REGNO) & CLASS " 0  */ REG IN CLASS          FCC2207      164     A     
 MCG                SA2    RVT+X3                                                          FCC2207      165     A     
 MCG                MI     X2,GOR4     IF LOCK[RVT(REGNO)]                                 FCC2207      166     A     
 MCG                LX7    18                                                              FCC2207      167     A     
 MCG                SX3    X3                                                              FCC2207      168     A     
 MCG                BX7    X3+X7       LOR = SHIFT(LOR,18) ! REGNO                         FCC2207      169     A     
 MCG       GOR4     NZ     X5,GOR3     IF RNUMS " 0                                        FCC2207      170     A     
 MCG                                                                                       FCC2207      171     A     
 MCG                EQ     GOR                                                             FCC2207      172     A     
 MCG       RII      TITLE  RII - RESET ISSUED INSTRUCTION                                  MCG         3069     A     
 MCG      **        RII - RESET ISSUED INSTRUCTION FOR REISSUE                             MCG         3070     A     
 MCG      *                                                                                MCG         3071     A     
 MCG      *         ENTRY  (X1) = R , *TXT* INDEX OF INSTRUCTION                           MCG         3072     A     
 MCG                                                                                       MCG         3073     A     
 MCG       RII      ROUTINE                                                                MCG         3074     A     
 MCG                RJ     RIL         RESET ISSUE LIST FOR R                              MCG         3075     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3442    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SB6    "TB"-B1                                                         MCG         3076     A     
 MCG                S"DI"  B6+B3       DI = BASE-1 + R0                                    MCG         3077     A     
 MCG                LX4    59-D.ZPP                                                        MCG         3078     A     
 MCG                MI     X4,RII      IF ZP[DI]     */ NOT A *LD* WITH OPERANDS           MCG         3079     A     
 MCG                                                                                       MCG         3080     A     
 MCG      *         ADJUST USES COUNTS OF OPERAND REGS, SET FOR REISSUE                    MCG         3081     A     
 MCG                                                                                       MCG         3082     A     
 MCG                LX4    1+D.ZPP+58-D.TYP                                                MCG         3083     A     
 MCG                PL     X4,RII1     IF TYPE[DI] = I                                     MCG         3084     A     
 MCG                SA3    "DI"-B1     R2 = DI - 1                                         MCG         3085     A     
 MCG                LX3    -IH.RFP                                                         MCG         3086     A     
 MCG                BX5    "RN"X3      RNUMS = RF[R2]                                      MCG         3087     A     
 MCG                EQ     RII2                                                            MCG         3088     A     
 MCG                                                                                       MCG         3089     A     
 MCG       RII1     SA3    "DI"-2      R1 = DI - 2                                         MCG         3090     A     
 MCG                SA2    TYIOM                                                           MCG         3091     A     
 MCG                UX6    B2,X2                                                           MCG         3092     A     
 MCG                BX7    X6*X3                                                           MCG         3093     A     
 MCG                AX5    B2,X7       RNUMS = TYIO[R1,0]                                  MCG         3094     A     
 MCG                                                                                       MCG         3095     A     
 MCG       RII2     SX4    B1                                                              MCG         3096     A     
 MCG                LX4    I.USESP                                                         MCG         3097     A     
 MCG                                                                                       MCG         3098     A     
 MCG       RII3     BX6    "RN"X5      R = RI[RNUMS]                                       MCG         3099     A     
 MCG                AX5    R1.RIL      RNUMS = SHIFT( RNUMS , -16 )                        MCG         3100     A     
 MCG                ZR     X6,RII4     IF R = 0                                            MCG         3101     A     
 MCG                SA3    "TB"+X6     L = BASE + R                                        MCG         3102     A     
 MCG                IX7    X3+X4       USES[L] = USES[L] + 1                               MCG         3103     A     
 MCG                SA7    A3                                                              MCG         3104     A     
 MCG                LX3    -I.REGP     REGNO = REG[L]                                      MCG         3105     A     
 MCG                SB3    X3                                                              MCG         3106     A     
 MCG                SA2    RVT+X3                                                          MCG         3107     A     
 MCG                BX1    X2-X6                                                           MCG         3108     A     
 MCG                BX3    "RN"X1                                                          MCG         3109     A     
 MCG                ZR     X3,RII4     IF RI[RVT(REGNO)] = R                               MCG         3110     A     
 MCG                SA1    AXR                                                             MCG         3111     A     
 MCG                SA3    RBV+B3                                                          MCG         3112     A     
 MCG                SA6    A2          RVT(REGNO) = R                                      MCG         3113     A     
 MCG                BX7    -X3*X1      AXR = AXR & ^RBV(REGNO)                             MCG         3114     A     
 MCG                SA7    A1                                                              MCG         3115     A     
 MCG       RII4     NZ     X5,RII3     IF RNUMS " 0                                        MCG         3116     A     
 MCG                                                                                       MCG         3117     A     
 MCG                EQ     RII                                                             MCG         3118     A     
 MCG       CSI      TITLE  CSI - CHECK STORE ISSUE                                         MCG         3119     A     
 MCG      **        CSI - CHECK STORE REGS FOR ISSUE OF A STORE INSTRUCTION                MCG         3120     A     
 MCG      *                RECOMPUTE PS BIT FOR RESULTS IN STORE REGS                      MCG         3121     A     
 MCG                                                                                       MCG         3122     A     
 MCG       CSI      ROUTINE                                                                MCG         3123     A     
 MCG                SB3    RN.X0+6     I = RN.X6                                           MCG         3124     A     
 MCG                                                                                       MCG         3125     A     
 MCG       CSI1     SA1    RVT+B3      R = RVT(I)                                          MCG         3126     A     
 MCG                SB6    "TB"-B1                                                         MCG         3127     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3443    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA4    B6+X1       DI = BASE-1 + R                                     MCG         3128     A     
 MCG                LX4    59-D.PSP                                                        MCG         3129     A     
 MCG                PL     X4,CSI4     IF ^PS[DI]    */ NOT A STORE PREDECESSOR            MCG         3130     A     
 MCG                                                                                       MCG         3131     A     
 MCG      *         CHECK FOR ISSUABLE STORES, ADJUST PS BIT                               MCG         3132     A     
 MCG                                                                                       MCG         3133     A     
 MCG                SA5    "DI"+B1     L = DI + 1                                          MCG         3134     A     
 MCG                MX7    -I.INDXL    ^P = 1                                              MCG         3135     A     
 MCG                SA2    O.TREE                                                          MCG         3136     A     
 MCG                LX5    -I.INDXP                                                        MCG         3137     A     
 MCG                BX6    -X7*X5                                                          MCG         3138     A     
 MCG                SB2    X2                                                              MCG         3139     A     
 MCG                MX2    1                                                               MCG         3140     A     
 MCG                SA3    B2+X6       UI = O.TREE + INDX[L]                               MCG         3141     A     
 MCG                                                                                       MCG         3142     A     
 MCG       CSI2     LX3    -U.SUCCP                                                        MCG         3143     A     
 MCG                SA5    "TB"+X3     SI = BASE + SUCC[UI]                                MCG         3144     A     
 MCG                LX5    59-I.IIP                                                        MCG         3145     A     
 MCG                MI     X5,CSI3     IF II[SI]                                           MCG         3146     A     
 MCG                SA1    A5-B1       D = SI - 1                                          MCG         3147     A     
 MCG                LX5    I.IIP-I.ICP                                                     MCG         3148     A     
 MCG                LX1    59-D.STP                                                        MCG         3149     A     
 MCG                BX6    X1*X5                                                           MCG         3150     A     
 MCG                MI     X6,CSI5     IF ST[D] & IC[SI]                                   MCG         3151     A     
 MCG       #DAL     IFNE   .DAL,0                                                          MCG         3152     A     
 MCG                BX5    X2*X1                                                           MCG         3153     A     
 MCG                LX1    D.STP-D.L2P                                                     MCG         3154     A     
 MCG                BX1    -X1*X5                                                          MCG         3155     A     
 MCG       #DAL     ENDIF                                                                  MCG         3156     A     
 MCG                BX7    -X1*X7      ^P = ^P & ^(ST[D] &^L2[D])                          MCG         3157     A     
 MCG       CSI3     LX3    U.SUCCP+59-U.LASTP                                              MCG         3158     A     
 MCG                BX6    X3          UL = UI                                             MCG         3159     A     
 MCG                SA3    A3+B1       UI = UI + 1                                         MCG         3160     A     
 MCG                PL     X6,CSI2     IF ^LAST[UL]                                        MCG         3161     A     
 MCG                                                                                       MCG         3162     A     
 MCG                PL     X7,CSI4     IF ^P = 0     */ RESULT STILL IS *PS*               MCG         3163     A     
 MCG                BX7    -X2*X4      PS[DI] = 0                                          MCG         3164     A     
 MCG                LX7    1+D.PSP                                                         MCG         3165     A     
 MCG                SA7    A4                                                              MCG         3166     A     
 MCG                                                                                       MCG         3167     A     
 MCG       CSI4     SB3    B3+B1       I = I + 1                                           MCG         3168     A     
 MCG                SX6    B3-RN.X0-7                                                      MCG         3169     A     
 MCG                ZR     X6,CSI1     IF I = RN.X7                                        MCG         3170     A     
 MCG                EQ     CSI                                                             MCG         3171     A     
 MCG                                                                                       MCG         3172     A     
 MCG       CSI5     SX2    A5-"TB"     R = SI - BASE                                       MCG         3173     A     
 MCG                RJ     ISI         ISSUE THE STORE                                     MCG         3174     A     
 MCG                SB3    B3-AMX      REGNO = REGNO - AMX */ RESTORE REGNO ( *ASC         FCC1555X      19          I
          -FCC2038
 MCG                SB3    RN.X0+6     I = RN.X6     */ RESET                              FCC2038        5     A     
 MCG                EQ     CSI1                                                            MCG         3175     A     
 MCG       DRT      TITLE  DRT - DETERMINE RESULT REGISTER TYPE ( CLASS )                  MCG         3176     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3444    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG      **        DRT - DETERMINE RESULT REGISTER TYPE ( CLASS ) NEEDED                  MCG         3177     A     
 MCG      *                                                                                MCG         3178     A     
 MCG      *         ENTRY  (A4,X4) = DI , [DI]                                             MCG         3179     A     
 MCG      *                                                                                MCG         3180     A     
 MCG      *         EXIT   (X6) = REGISTER CLASS BITS                                      MCG         3181     A     
 MCG                                                                                       MCG         3182     A     
 MCG       DRT      ROUTINE                                                                MCG         3183     A     
 MCG                LX4    59-D.NRP                                                        MCG         3184     A     
 MCG                SX6    FX.SCR      CLASS = FX.SCR                                      MCG         3185     A     
 MCG                NX7    B2,X4                                                           MCG         3186     A     
 MCG                JP     DRT1+B2     JUMP( NORMC[DI] )                                   MCG         3187     A     
 MCG                                                                                       MCG         3188     A     
 MCG       DRT1     BSS    0                                                               MCG         3189     A     
 MCG                SA5    "DI"+2      R1RS = DI + 2                                       MCG         3190     A     
 MCG                EQ     DRT2                                                            MCG         3191     A     
 MCG                                                                                       MCG         3192     A     
 MCG                SX6    FX.ST       CLASS = FX.ST                                       MCG         3193     A     
 MCG                EQ     DRT                                                             MCG         3194     A     
 MCG                                                                                       MCG         3195     A     
 MCG                SA5    "DI"+2      R1RS = DI + 2                                       MCG         3196     A     
 MCG                EQ     DRT3                                                            MCG         3197     A     
 MCG                                                                                       MCG         3198     A     
 MCG                EQ     DRT0        ECJ                                                 MCG         3199     A     
 MCG                                                                                       MCG         3200     A     
 MCG                EQ     DRT         LVL2                                                MCG         3201     A     
 MCG                                                                                       MCG         3202     A     
 MCG                SX6    FX.LD       CLASS = LD                                          MCG         3203     A     
 MCG                EQ     DRT                                                             MCG         3204     A     
 MCG                                                                                       MCG         3205     A     
 MCG                EQ     DRT0        ST                                                  MCG         3206     A     
 MCG                EQ     DRT0        JP                                                  MCG         3207     A     
 MCG                EQ     DRT         SXT                                                 MCG         3208     A     
 MCG                EQ     DRT0        KS                                                  MCG         3209     A     
 MCG                EQ     DRT0        PI                                                  MCG         3210     A     
 MCG                EQ     DRT         MUC                                                 MCG         3211     A     
 MCG                EQ     DRT         SCR                                                 MCG         3212     A     
 MCG                                                                                       MCG         3213     A     
 MCG      *         INSTRUCTION PRECEEDS AN *RJRS*, ENSURE B-REG IS AVAILABLE              MCG         3214     A     
 MCG                                                                                       MCG         3215     A     
 MCG       DRT2     LX5    -R1.SOP                                                         MCG         3216          I
          -FCC0641
 MCG                MX7    -SO.REGL                                                        MCG         3217          I
          -FCC0641
 MCG                BX3    -X7*X5                                                          MCG         3218          I
          -FCC0641
 MCG                LX4    D.NRP-D.PSP                                                     MCG         3219          I
          -FCC0641
 MCG                SA2    RVT+X3                                                          MCG         3220          I
          -FCC0641
 MCG                SA1    "TB"+X2     LP = TB + RVT(REGNO)                                MCG         3221          I
          -FCC0641
 MCG                MX7    -I.USESL                                                        MCG         3222          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3445    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
          -FCC0641
 MCG                LX7    I.USESP                                                         MCG         3223          I
          -FCC0641
 MCG                BX7    -X7*X1                                                          MCG         3224          I
          -FCC0641
 MCG                NZ     X7,DRT0     IF USES[LP] " 0  */ REG IS IN USE                   MCG         3225          I
          -FCC0641
 MCG       DRT2     RJ     FBR         REGNO = FBR( R1RS )                                 FCC0641       74     A     
 MCG                MI     B3,DRT0     IF ACT < 0    */ NO AVAILABLE B-REG                 FCC0641       75     A     
 MCG                LX4    D.NRP-D.PSP                                                     FCC0641       76     A     
 MCG                SX6    FX.SCR      CLASS = FX.SCR                                      FCC0641       77     A     
 MCG                PL     X4,DRT      IF ^PS[DI]                                          MCG         3226     A     
 MCG                SX6    FX.ST       CLASS = FX.ST                                       MCG         3227     A     
 MCG                EQ     DRT                                                             MCG         3228     A     
 MCG       DRT      SPACE  1,10                                                            MCG         3229     A     
 MCG      *         INSTRUCTION PRECEEDS A *RS*                                            MCG         3230     A     
 MCG                                                                                       MCG         3231     A     
 MCG       DRT3     LX5    -R1.SOP                                                         MCG         3232     A     
 MCG                MX7    -SO.REGL                                                        MCG         3233     A     
 MCG                BX3    -X7*X5                                                          MCG         3234     A     
 MCG                SA2    RBV+X3                                                          MCG         3235     A     
 MCG                SX6    X2          CLASS = RBV( SOREG[R1RS] )                          MCG         3236     A     
 MCG                EQ     DRT                                                             MCG         3237     A     
 MCG       FRR      TITLE  FRR - FIND RESULT REGISTER                                      MCG         3238     A     
 MCG      **        FRR - FIND RESULT REGISTER                                             MCG         3239     A     
 MCG      *                                                                                MCG         3240     A     
 MCG      *         ENTRY  (X1) = CLASS OF REGISTERS WHICH RESULT SHOULD BE IN             MCG         3241     A     
 MCG      *                (T0) = *TXT* INDEX OF INSTRUCTION TO BE ISSUED                  MCG         3242     A     
 MCG      *                                                                                MCG         3243     A     
 MCG      *         EXIT   (B3) = REGF , REGNO OF REGISTER THAT IS CHEIPEST TO FREE        MCG         3244     A     
 MCG      *                (B4) = MCOST , COST OF RESTORING *REGF*                         MCG         3245     A     
 MCG      *                                                                                MCG         3246     A     
 MCG      *         CALLS  CRC                                                             MCG         3247     A     
 MCG                                                                                       MCG         3248     A     
 MCG       FRR0     SB3    B0                                                              MCG         3249     A     
 MCG                SB6    B0          ABR = 0                                             MCG         3250     A     
 MCG                RJ     CRC         REGF = CRC(RVT,MCOST)                               MCG         3251     A     
 MCG                                                                                       MCG         3252     A     
 MCG       FRR      ROUTINE                                                                MCG         3253     A     
 MCG                SX6    X1-FX.SCR                                                       MCG         3254     A     
 MCG                ZR     X6,FRR0     IF CLASS = FX.SCR                                   MCG         3255     A     
 MCG                SA2    T0                                                              MCG         3256     A     
 MCG                SB6    "TB"-B1                                                         MCG         3257     A     
 MCG                S"DI"  B6+X2       DI = BASE-1 + T0                                    MCG         3258     A     
 MCG                LX4    58-D.TYP                                                        MCG         3259     A     
 MCG                IX7    X4+X4                                                           MCG         3260     A     
 MCG                MI     X7,FRR0     IF TYPE[DI] = II ! IV                               MCG         3261     A     
 MCG                PL     X4,FRR1     IF TYPE[DI] = I                                     MCG         3262     A     
 MCG                                                                                       MCG         3263     A     
 MCG      *         ASSEMBLE OPERAND R-NUMBERS                                             MCG         3264     A     
 MCG                                                                                       MCG         3265     A     
 MCG                SA3    "DI"-B1     R2 = DI - 1                                         MCG         3266     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3446    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                LX3    -IH.RFP                                                         MCG         3267     A     
 MCG                BX5    "RN"X3      RNUMS = RF[R2]                                      MCG         3268     A     
 MCG                EQ     FRR2                                                            MCG         3269     A     
 MCG                                                                                       MCG         3270     A     
 MCG       FRR1     LX4    2+D.TYP-D.TYIOP                                                 MCG         3271     A     
 MCG                MX6    -D.TYIOL                                                        MCG         3272     A     
 MCG                SA5    "DI"-2      R1 = DI - 2                                         MCG         3273     A     
 MCG                BX7    -X6*X4                                                          MCG         3274     A     
 MCG                SA3    TYIOM+X7                                                        MCG         3275     A     
 MCG                UX6    B2,X3                                                           MCG         3276     A     
 MCG                BX2    X6*X5                                                           MCG         3277     A     
 MCG                AX5    B2,X2       RNUMS = TYIO[R1,DI]                                 MCG         3278     A     
 MCG                                                                                       MCG         3279     A     
 MCG      *         LOCKOUT OPERANDS OF *T0* THAT ARE NOT IN *CLASS* SO *CRC*              MCG         3280     A     
 MCG      *         WON"T CONSIDER THEM.                                                   MCG         3281     A     
 MCG                                                                                       MCG         3282     A     
 MCG       FRR2     MX4    1                                                               MCG         3283     A     
 MCG                LX4    1+RV.LOCKP                                                      MCG         3284     A     
 MCG                MX7    0           I = 0         */ LIST OF LOCKED OPERAND REG         MCG         3285     A     
 MCG                                                                                       MCG         3286     A     
 MCG       FRR3     BX6    "RN"X5      R = RI[RNUMS]                                       MCG         3287     A     
 MCG                AX5    R1.RIL      RNUMS = SHIFT( RNUMS , -16 )                        MCG         3288     A     
 MCG                ZR     X6,FRR4     IF R = 0                                            MCG         3289     A     
 MCG                SA3    "TB"+X6     L = BASE + R                                        MCG         3290     A     
 MCG                LX3    -I.REGP     REGNO = REG[L]                                      MCG         3291     A     
 MCG                SA2    RBV+X3                                                          MCG         3292     A     
 MCG                BX6    X2*X1                                                           MCG         3293     A     
 MCG                NZ     X6,FRR4     IF RBV(REGNO) & CLASS " 0 */ REG IN CLASS           MCG         3294     A     
 MCG                SA2    RVT+X3                                                          MCG         3295     A     
 MCG                MI     X2,FRR4     IF LOCK[ RVT(REGNO) ]                               MCG         3296     A     
 MCG                LX7    18                                                              MCG         3297     A     
 MCG                SX3    X3                                                              MCG         3298     A     
 MCG                BX6    X4+X2                                                           MCG         3299     A     
 MCG                IX7    X3+X7       I = SHIFT( I , 18) ! REGNO                          MCG         3300     A     
 MCG                SA6    A2          LOCK[ RVT(REGNO) ] = 1                              MCG         3301     A     
 MCG       FRR4     NZ     X5,FRR3     IF RNUMS " 0                                        MCG         3302     A     
 MCG                                                                                       MCG         3303     A     
 MCG                SA7    FRRA        FRRA = I                                            MCG         3304     A     
 MCG                SB3    B0                                                              MCG         3305     A     
 MCG                SB6    B0          ABR = 0                                             MCG         3306     A     
 MCG                RJ     CRC         REGF = CRC(RVT,MCOST)                               MCG         3307     A     
 MCG                                                                                       MCG         3308     A     
 MCG      *         UNLOCK THE LOCKED OPERAND REGISTERS                                    MCG         3309     A     
 MCG                                                                                       MCG         3310     A     
 MCG                SA1    FRRA        I = FRRA                                            MCG         3311     A     
 MCG                MX4    1                                                               MCG         3312     A     
 MCG                LX4    1+RV.LOCKP                                                      MCG         3313     A     
 MCG                                                                                       MCG         3314     A     
 MCG       FRR5     SA2    RVT+X1                                                          MCG         3315     A     
 MCG                BX6    -X4*X2      LOCK[RVT(I)] = 0                                    MCG         3316     A     
 MCG                AX1    18          I = SHIFT( I , -18 )                                MCG         3317     A     
 MCG                SA6    A2                                                              MCG         3318     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3447    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                NZ     X1,FRR5                                                         MCG         3319     A     
 MCG                EQ     FRR                                                             MCG         3320     A     
 MCG                                                                                       MCG         3321     A     
 MCG       FRRA     BSS    1                                                               MCG         3322     A     
 MCG       CRC      TITLE  CRC - COMPUTE RESTORE COSTS                                     MCG         3323     A     
 MCG      **        CRC - COMPUTE RESTORE COSTS OF RESTABLISHING A RESULT IN A REG         MCG         3324     A     
 MCG      *                                                                                MCG         3325     A     
 MCG      *         ENTRY  (B3) = REGNO, IF 0 THEN CHECK ALL X-REGS, ELSE CHECK            MCG         3326     A     
 MCG      *                            ONLY "REGNO".                                       MCG         3327     A     
 MCG      *                (B6) = ABR " 0 IF B-REGISTERS AVAIL FOR A MOVE TO THEM          MCG         3328     A     
 MCG      *                                                                                MCG         3329     A     
 MCG      *         EXIT   (B3) = REGNO OF REGISTER WHICH IS CHEIPEST TO FREE              MCG         3330     A     
 MCG      *                (B4) = RESTORATION COST                                         MCG         3331     A     
 MCG      *                                                                                MCG         3332     A     
 MCG      *         PRESERVES - X0, B1, B7                                                 MCG         3333     A     
 MCG      *                                                                                MCG         3334     A     
 MCG      *         THE COST OF RESTORING A REGISTER ARE -                                 MCG         3335     A     
 MCG      *         COST   INSTRUCTION PROPERITIES / RESTORE ACTION                        MCG         3336     A     
 MCG      *                                                                                MCG         3337     A     
 MCG      *         -1     RF[DI] " 0 / MOVE RESULT TO AN AVAILABLE B-REGISTER             MCG         3338     A     
 MCG      *                                                                                MCG         3339     A     
 MCG      *         0      ZP[DI] & ^LD[DI] / REISSUE INSTRUCTION                          MCG         3340     A     
 MCG      *                                                                                MCG         3341     A     
 MCG      *         1      LD[DI] & ^(L2[DI] ! FP[DI]) & NO INTERFERING STORE ISSU         MCG         3342     A     
 MCG      *                   IF ZP[DI] ! OPERANDS"S ARE IN B-REGS , THEN REISSUE          MCG         3343     A     
 MCG      *                                                                                MCG         3344     A     
 MCG      *         2      RESULT IN X6/X7 WITH NO SPECIAL PROPERTIES                      MCG         3345     A     
 MCG      *                   STORE THE RESULT IN A TEMP CELL AND SETUP A *LD*             MCG         3346     A     
 MCG      *                   OF IT ( OT.+CA ).                                            MCG         3347     A     
 MCG                                                                                       MCG         3348     A     
 MCG       RF.SAV   EQU    0           TURN OFF *RF* LOGIC                                 MCG         3349     A     
 MCG                                                                                       MCG         3350     A     
 MCG       CRC0     SB6    RVT                                                             MCG         3351     A     
 MCG                SB3    A0-B6       REGNO = IREG                                        MCG         3352     A     
 MCG                                                                                       MCG         3353     A     
 MCG       CRC      ROUTINE                                                                MCG         3354     A     
 MCG                SA3    =22333333B                                                      MCG         3355     A     
 MCG                SA1    CRCA                                                            MCG         3356     A     
 MCG                SA2    RVT+RN.X0   I = RN.X0                                           MCG         3357     A     
 MCG                BX7    X3          RCOST = 22333333B                                   MCG         3358     A     
 MCG                SB4    4           MCOST = 4                                           MCG         3359     A     
 MCG                SB5    B0          MAXD = 0                                            MCG         3360     A     
 MCG                ZR     B3,CRC4     IF REGNO = 0                                        MCG         3361     A     
 MCG                                                                                       MCG         3362     A     
 MCG                SA2    RVT+B3      I = REGNO                                           MCG         3363     A     
 MCG                SB6    B0          ABR = 0                                             MCG         3364     A     
 MCG                SX6    B3-RN.X0-6                                                      MCG         3365     A     
 MCG                SX7    B1+B1                                                           MCG         3366     A     
 MCG                PL     X6,CRC4     RCOST = IF( REGNO \ X6 ) THEN 2 ELSE 3              MCG         3367     A     
 MCG                SX7    X7+B1                                                           MCG         3368     A     
 MCG                EQ     CRC4                                                            MCG         3369     A     
 MCG                                                                                       MCG         3370     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3448    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG      *         SEARCH *RVT* TO FIND RESULT WHICH IS CHEIPEST TO RESTORE,              MCG         3371     A     
 MCG      *         AND IS THE FURTHEST DISTANCE TO ITS NEXT USE.                          MCG         3372     A     
 MCG                                                                                       MCG         3373     A     
 MCG       CRC1     MX4    -3                                                              MCG         3374     A     
 MCG                BX6    -X4*X7      COST = RCOST & 7                                    MCG         3375     A     
 MCG                SB2    X6+                                                             MCG         3376     A     
 MCG                                                                                       MCG         3377     A     
 MCG       CRC2     PX6    B2,X2       COST[RVT(I)] = COST                                 MCG         3378     A     
 MCG                SA6    A2                                                              MCG         3379     A     
 MCG                GT     B2,B4,CRC3  IF COST > MCOST                                     MCG         3380     A     
 MCG                LX2    -RV.NUP                                                         MCG         3381     A     
 MCG                SB3    X2                                                              MCG         3382     A     
 MCG                ZR     B3,CRC3     IF NU[RVT(I)] = 0  */ RESULT NOT USED YET           MCG         3383     A     
 MCG                LT     B2,B4,CRC2A IF COST < MCOST                                     MCG         3384     A     
 MCG                LT     B3,B5,CRC3  IF NU[RVT(I)] < MAXD                                MCG         3385     A     
 MCG       CRC2A    SB4    B2          MCOST = COST                                        MCG         3386     A     
 MCG                SA0    A2          IREG = I                                            MCG         3387     A     
 MCG                SB5    B3          MAXD = NU[RVT(I)]                                   MCG         3388     A     
 MCG                                                                                       MCG         3389     A     
 MCG       CRC3     AX7    3           RCOST = SHIFT( RCOST , -3 )                         MCG         3390     A     
 MCG                SA2    A2+B1       I = I + 1                                           MCG         3391     A     
 MCG                ZR     X7,CRC0     IF RCOST = 0                                        MCG         3392     A     
 MCG                                                                                       MCG         3393     A     
 MCG       CRC4     MI     X2,CRC3     IF LOCK[RVT(I)]                                     MCG         3394     A     
 MCG                SB3    "TB"-B1                                                         MCG         3395     A     
 MCG                S"DI"  X2+B3       DI = BASE-1 + RI[RVT(I)]                            MCG         3396     A     
 MCG                ZR     X2,CRC3     IF RVT(I) = 0                                       MCG         3397     A     
 MCG                BX6    X1*X4                                                           MCG         3398     A     
 MCG                LX4    59-D.RFP                                                        MCG         3399     A     
 MCG                ZR     X6,CRC1     IF (LD[DI]&ZP[DI]&RF[DI]) = 0                       MCG         3400     A     
 MCG                PL     X4,CRC5     IF ^RF[DI]                                          MCG         3401     A     
 MCG                IFNE   RF.SAV,0                                                        MCG         3402     A     
 MCG                                                                                       MCG         3403     A     
 MCG                ZR     B6,CRC5     IF ABR = 0    */ NO B-REGS AVAIL                    MCG         3404     A     
 MCG                SB4    -B1         MCOST = -1                                          MCG         3405     A     
 MCG                SA0    A2          IREG = I                                            MCG         3406     A     
 MCG                EQ     CRC0                                                            MCG         3407     A     
 MCG                ENDIF                                                                  MCG         3408     A     
 MCG                                                                                       MCG         3409     A     
 MCG       CRC5     LX4    D.RFP-D.LDP                                                     MCG         3410     A     
 MCG                SB2    B0          COST = 0                                            MCG         3411     A     
 MCG                PL     X4,CRC2     IF ^LD[DI]    */ MUST BE ZEROP                      MCG         3412     A     
 MCG                                                                                       MCG         3413     A     
 MCG      *         INSTRUCTION IS A *LD*, SEE IF IT CAN BE REISSUED                       MCG         3414     A     
 MCG      *         IF IT HAS OPERANDS, SEE IF THEY ARE IN B-REGISTERS.                    MCG         3415     A     
 MCG                                                                                       MCG         3416     A     
 MCG                SA3    CRCB                                                            MCG         3417     A     
 MCG                BX6    X3*X4                                                           MCG         3418     A     
 MCG                LX4    D.LDP-D.ZPP                                                     MCG         3419     A     
 MCG                NZ     X6,CRC1     IF FP[DI] ! L2[DI]                                  MCG         3420     A     
 MCG                MI     X4,CRC9     IF ZP[DI]     */ NO REG PRED                        MCG         3421     A     
 MCG                LX4    1+D.ZPP+58-D.TYP                                                MCG         3422          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3449    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
          -FCC0584
 MCG                PL     X4,CRC6     IF TYPE[DI] = I                                     MCG         3423          I
          -FCC0584
 MCG                BX6    X4                                                              FCC0584        9     A     
 MCG                LX6    1+D.ZPP+58-D.TYP                                                FCC0584       10     A     
 MCG                PL     X6,CRC6     IF TYPE[DI] = I                                     FCC0584       11     A     
 MCG                SA3    "DI"-B1     R2 = DI - 1                                         MCG         3424     A     
 MCG                LX3    -IH.RFP                                                         MCG         3425     A     
 MCG                EQ     CRC7                                                            MCG         3426     A     
 MCG                                                                                       MCG         3427     A     
 MCG       CRC6     SA3    "DI"-2      R1 = DI - 2                                         MCG         3428     A     
 MCG                LX3    -R1.RJP                                                         MCG         3429     A     
 MCG                                                                                       MCG         3430     A     
 MCG       CRC7     BX6    "RN"X3      RN = RI[RWORD]                                      MCG         3431     A     
 MCG                SA5    "TB"+X6     L = BASE + R                                        MCG         3432     A     
 MCG                LX5    -I.REGP                                                         MCG         3433     A     
 MCG                SX3    X5-8                                                            MCG         3434     A     
 MCG                PL     X3,CRC1     IF REG[L] > 7 */ PRED NOT IN A B-REG                MCG         3435     A     
 MCG                SA5    LRN+X5                                                          MCG         3436     A     
 MCG                BX6    X6-X5                                                           MCG         3437     A     
 MCG                NZ     X6,CRC1     IF LRN( REG[L] ) " RN                               MCG         3438     A     
 MCG       CRC      SPACE  3,14                                                            MCG         3439     A     
 MCG      *         CHECK ISSUED STORE CHAIN FOR AN INTERFERING STORE                      MCG         3440     A     
 MCG                                                                                       MCG         3441     A     
 MCG       CRC9     LX4    D.ZPP-D.EQVP                                                    MCG         3442     A     
 MCG                SB2    B1          COST = 1                                            MCG         3443     A     
 MCG                PL     X4,CRC2     IF ^EQV[DI]                                         MCG         3444     A     
 MCG                SA3    ISC         J = ISC                                             MCG         3445     A     
 MCG                SA5    "DI"-1      R2 = DI - 1                                         MCG         3446     A     
 MCG                                                                                       MCG         3447     A     
 MCG      *         IF NEXT USE IS AN EQUIV LINK TO A STORE, THEN CANNOT RELOAD            MCG         3448     A     
 MCG                                                                                       MCG         3449     A     
 MCG                LX2    -RV.NUP                                                         MCG         3450     A     
 MCG                SA4    B3+X2       DS = BASE-1 + NU[RVT(I)]                            MCG         3451     A     
 MCG                LX2    RV.NUP                                                          MCG         3452     A     
 MCG                LX4    59-D.STP                                                        MCG         3453     A     
 MCG                PL     X4,CRC10    IF ^ST[DS]    */ NEXT USE NOT IN A STORE            MCG         3454     A     
 MCG                SA4    A4-B1       R2S = DS - 1                                        MCG         3455     A     
 MCG                LX4    -IH.RFP                                                         MCG         3456     A     
 MCG                BX6    X2-X4                                                           MCG         3457     A     
 MCG                BX4    "RN"X6                                                          MCG         3458     A     
 MCG                NZ     X4,CRC1     IF RF[R2S] " RI[RVT(I)]  */ AN EQUIV LINK           MCG         3459     A     
 MCG                                                                                       MCG         3460     A     
 MCG       CRC10    SX6    X3                                                              MCG         3461     A     
 MCG                ZR     X6,CRC1     IF J = 0                                            MCG         3462          I
          -FCC0584
 MCG                ZR     X6,CRC2     IF J = 0      */ END OF CHAIN                       FCC0584       12     A     
 MCG                SA3    "TB"+X3     L  = BASE + J;  J = [L]                             MCG         3463     A     
 MCG                SA4    A3-2        R2J = L - 2                                         MCG         3464     A     
 MCG                BX6    X4-X5                                                           MCG         3465     A     
 MCG                LX6    -IH.IHP                                                         MCG         3466     A     
 MCG                SB3    X6                                                              MCG         3467     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3450    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                NZ     B3,CRC10    IF IH[R2] " IH[R2J]                                 MCG         3468     A     
 MCG                LX6    IH.IHP-IH.RFP                                                   MCG         3469     A     
 MCG                SB3    X6                                                              MCG         3470     A     
 MCG                NZ     B3,CRC1     IF RF[R2] " RF[R2J]                                 MCG         3471          I
          -FCC1656X 
 MCG                NZ     B3,CRC11    IF RF[R2] " RF[R2J]                                 FCC1656X       5     A     
 MCG                LX6    IH.RFP-IH.CAP                                                   MCG         3472     A     
 MCG                SB3    X6                                                              MCG         3473     A     
 MCG                NZ     B3,CRC10    IF CA[R2] " CA[R2J]                                 MCG         3474     A     
 MCG                                                                                       FCC1656X       6     A     
 MCG       CRC11    SX4    A3-"TB"                                                         FCC1656X       7     A     
 MCG                SX6    X2+                                                             FCC1656X       8     A     
 MCG                IX6    X4-X6                                                           FCC1656X       9     A     
 MCG                MI     X6,CRC10    IF J < RI[RVT(I)]  */ ST BEFORE LD                  FCC1656X      10     A     
 MCG                                                                                       FCC1656X      11     A     
 MCG      *         ISSUE OF AN INTERFERING STORE COUNTS AS A USE, UPDATE *NU*             FCC1656X      12     A     
 MCG                                                                                       FCC1656X      13     A     
 MCG                LX2    -RV.NUP                                                         FCC1656X      14     A     
 MCG                SX6    X2                                                              FCC1656X      15     A     
 MCG                IX5    X4-X6                                                           FCC1656X      16     A     
 MCG                LX2    RV.NUP                                                          FCC1656X      17     A     
 MCG                MI     X5,CRC1     IF NU[RVT(I)] > J                                   FCC1656X      18     A     
 MCG                                                                                       FCC1656X      19     A     
 MCG                SA5    "TB"+X2     LI = BASE + RI[RVT(I)]                              FCC1656X      20     A     
 MCG                SA4    O.TREE                                                          FCC1656X      21     A     
 MCG                MX3    -I.INDXL                                                        FCC1656X      22     A     
 MCG                LX5    -I.INDXP                                                        FCC1656X      23     A     
 MCG                SB3    X4-1                                                            FCC1656X      24     A     
 MCG                BX3    -X3*X5                                                          FCC1656X      25     A     
 MCG                SA4    B3+X3       UI = TREE-1 + INDX[LI]                              FCC1656X      26     A     
 MCG                                                                                       FCC1656X      27     A     
 MCG       CRC12    SA4    A4+B1       UI = UI + 1                                         FCC1656X      28     A     
 MCG                LX4    -U.SUCCP                                                        FCC1656X      29     A     
 MCG                SA5    "TB"+X4     SI = BASE + SUCC[UI]                                FCC1656X      30     A     
 MCG                LX5    59-I.IIP                                                        FCC1656X      31     A     
 MCG                MI     X5,CRC12    IF II[SI]                                           FCC1656X      32     A     
 MCG                                                                                       FCC1656X      33     A     
 MCG                LX2    -RV.NUP                                                         FCC1656X      34     A     
 MCG                SX4    X4                                                              FCC1656X      35     A     
 MCG                BX2    X2-X6                                                           FCC1656X      36     A     
 MCG                BX6    X2+X4       NU[RVT(I)] = SUCC[UI]                               FCC1656X      37     A     
 MCG                LX6    RV.NUP                                                          FCC1656X      38     A     
 MCG                BX2    X6                                                              FCC1656X      39     A     
 MCG                SA6    A2                                                              FCC1656X      40     A     
 MCG                EQ     CRC1                                                            MCG         3475     A     
 MCG                                                                                       MCG         3476     A     
 MCG                IFEQ   RF.SAV,0,2                                                      MCG         3477     A     
 MCG       CRCA     BFMW   D,(LD,ZP)                                                       MCG         3478     A     
 MCG                ELSE   1                                                               MCG         3479     A     
 MCG       CRCA     BFMW   D,(LD,ZP,RF)                                                    MCG         3480     A     
 MCG       CRCB     BFMW   D,(L2,FP),59-D.LDP                                              MCG         3481     A     
 MCG       CRA      TITLE  CRA - CHANGE REGISTER ASSIGNMENT                                MCG         3482     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3451    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG      **        CRA - CHANGE REGISTER ASSIGNMENT                                       MCG         3483     A     
 MCG      *                                                                                MCG         3484     A     
 MCG      *         THOSE WISHING TO EXPRESS THEIR APPREATION FOR THE EXISTANCE OF         MCG         3485     A     
 MCG      *         THIS ROUTINE AND OTHERS WHICH GENERATE *XMT"S* , ETC MAY               MCG         3486     A     
 MCG      *         THANK SEYMOUR CRAY.                                                    MCG         3487     A     
 MCG      *                                                                                MCG         3488     A     
 MCG      *         ENTRY  AVAIL " 0 , AVAIL & CLASS = 0                                   MCG         3489     A     
 MCG      *                (X1) = CLASS                                                    MCG         3490     A     
 MCG      *                (T0) = TXT INDEX OF INSTRUCTION THAT CANNOT BE ISSUED           MCG         3491     A     
 MCG                                                                                       MCG         3492     A     
 MCG       CRA      ROUTINE                                                                MCG         3493     A     
 MCG                SX7    X1-FX.ST                                                        MCG         3494     A     
 MCG                NZ     X7,CRA4     IF CLASS " FX.ST                                    MCG         3495     A     
 MCG                                                                                       MCG         3496     A     
 MCG      *         STORE REGISTERS JAMMED, FREE ONE OF THEM UP                            MCG         3497     A     
 MCG                                                                                       MCG         3498     A     
 MCG                SA1    AXR                                                             MCG         3499     A     
 MCG                SX5    FX.SCR+FX.XT                                                    MCG         3500     A     
 MCG                BX7    X1*X5       AVAIL = AXR & FX.SCR                                MCG         3501     A     
 MCG                NX6    B3,X7                                                           MCG         3502     A     
 MCG                SA3    B3+FXRA+16-47                                                   MCG         3503     A     
 MCG                SB6    "TB"-B1                                                         MCG         3504     A     
 MCG                SB3    X3          REGR = FXRA( NORMC(AVAIL) )                         MCG         3505     A     
 MCG                SB4    RN.X0+6                                                         MCG         3506          I
          -FCC1056
 MCG                SB4    RN.X0+6     REGF = X6                                           FCC1056       34     A     
 MCG                SA1    RVT+B4      RX6 = RI[RVT(RN.X6)]                                MCG         3507     A     
 MCG                SA2    A1+B1       RX7 = RI[RVT(RN.X7)]                                MCG         3508     A     
 MCG                SA3    B6+X1                                                           MCG         3509          I
          -FCC1056
 MCG                SA4    B6+X2                                                           MCG         3510          I
          -FCC1056
 MCG                BX5    X3*X4                                                           MCG         3511          I
          -FCC1056
 MCG                LX5    59-D.PSP                                                        MCG         3512          I
          -FCC1056
 MCG                MI     X5,CRA2     IF PS[RX6] & PS[RX7]                                MCG         3513          I
          -FCC1056
 MCG                LX3    59-D.PSP                                                        MCG         3514          I
          -FCC1056
 MCG                PL     X3,CRA1     REGF = IF( ^PS[RX6] ) THEN X6 ELSE X7               MCG         3515          I
          -FCC1056
 MCG                SB4    B4+B1                                                           MCG         3516          I
          -FCC1056
 MCG                SA3    B6+X1       DX6 = BASE-1 + RX6                                  FCC1056       35     A     
 MCG                SA4    B6+X2       DX7 = BASE-1 + RX7                                  FCC1056       36     A     
 MCG                MX7    -D.STRSL                                                        FCC1056       37     A     
 MCG                LX7    D.STRSP                                                         FCC1056       38     A     
 MCG                BX5    -X7*X3                                                          FCC1056       39     A     
 MCG                BX6    -X7*X4                                                          FCC1056       40     A     
 MCG                ZR     X5,CRA1     IF STRS[DX6] = 0                                    FCC1056       41     A     
 MCG                NZ     X6,CRA2     IF STRS[DX7] " 0                                    FCC1056       42     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3452    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SB4    B4+1        REGF = X7                                           FCC1056       43     A     
 MCG                                                                                       MCG         3517     A     
 MCG       CRA1     SB2    OC.XMT                                                          MCG         3518     A     
 MCG                RJ     OXI         OUTPUT XMT REGF TO REGR                             MCG         3519     A     
 MCG                SA2    T0                                                              FCC0584       13     A     
 MCG                RJ     ISI         ISSUE T0                                            FCC0584       14     A     
 MCG                EQ     CRA                                                             MCG         3520     A     
 MCG                                                                                       MCG         3521     A     
 MCG      *         BOTH RESULT IN X6 AND X7 PS, THIS IS A PATHOLOGICAL CASE.              MCG         3522          I
          -FCC1056
 MCG      *         BOTH RESULTS IN X6 & X7 PS!PRS, THIS IS A PATHALOGICAL CASE.           FCC1056       44     A     
 MCG      *         U = A; V = B; IF(W) GO TO LAB; X(I) = C; X(J) = A; X(K) = B;           MCG         3523     A     
 MCG                                                                                       MCG         3524     A     
 MCG       CRA2     LX1    -RV.NUP                                                         MCG         3525     A     
 MCG                LX2    -RV.NUP                                                         MCG         3526     A     
 MCG                SB2    X1          DX6 = NU[RVT(RN.X6)]                                MCG         3527     A     
 MCG                SB5    X2          DX7 = NU[RVT(RN.X67]                                MCG         3528          I
          -FCC0393
 MCG                SB5    X2          DX7 = NU[RVT(RN.X7)]                                FCC0393       15     A     
 MCG                GE     B2,B5,CRA3  REGF = IF( DX6 \ DX7 ) THEN RN.X6 ELSE X7           MCG         3529     A     
 MCG                SB4    B4+B1                                                           MCG         3530     A     
 MCG                BX1    X2                                                              MCG         3531     A     
 MCG                                                                                       MCG         3532     A     
 MCG       CRA3     LX1    RV.NUP                                                          MCG         3533     A     
 MCG                SB2    OC.XMT                                                          MCG         3534     A     
 MCG                BX6    "RN"X1      R0 = RI[RVT(REGF)]                                  MCG         3535     A     
 MCG                PX7    B3,X6                                                           MCG         3536     A     
 MCG                SA7    R0                                                              MCG         3537     A     
 MCG                RJ     OXI         OUTPUT XMT REGF TO REGR                             MCG         3538     A     
 MCG                SA2    T0                                                              MCG         3539     A     
 MCG                RJ     ISI         ISSUE *T0*                                          MCG         3540     A     
 MCG                RJ     SXB         SETUP AN XMT BACK TO THE STORE REG                  MCG         3541          I
          -FCC0881
 MCG                SX6    B0                                                              FCC0881       38     A     
 MCG                RJ     SXB         SETUP *XMT* BACK                                    FCC0881       39     A     
 MCG                EQ     CRA                                                             MCG         3542     A     
 MCG                                                                                       MCG         3543     A     
 MCG      *         *LD* REGISTER NEEDED.                                                  MCG         3544     A     
 MCG                                                                                       MCG         3545     A     
 MCG       CRA4     SX7    X1-FX.LD                                                        MCG         3546     A     
 MCG                NZ     X7,CRA10    IF CLASS " FX.LD                                    MCG         3547     A     
 MCG                SB3    B0                                                              MCG         3548     A     
 MCG                SB6    B0          ABR = 0                                             MCG         3549     A     
 MCG                RJ     CRC         COMPUTE RESTORE COSTS                               MCG         3550     A     
 MCG                SA1    AXR                                                             MCG         3551     A     
 MCG                SX2    FX.ST                                                           MCG         3552     A     
 MCG                BX3    X2*X1                                                           MCG         3553     A     
 MCG                ZR     X3,CRA9     IF AXR & FX.ST = 0  */ NO STORE REG AVAIL           MCG         3554     A     
 MCG                                                                                       MCG         3555     A     
 MCG      *         STORE REG AVAIL, MOVE RESULT THAT HAS HIGHEST RESTORE COST             MCG         3556     A     
 MCG      *         AND IS FURTHEST DISTANCE TO A NEXT USE TO IT, ON THE ASSUMPTION        MCG         3557     A     
 MCG      *         THAT IT MAY BE SAVED LATER.                                            MCG         3558     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3453    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                                                                                       MCG         3559     A     
 MCG                SB4    -B1         MAXC = -1                                           MCG         3560     A     
 MCG                SB5    -B1         MAXD = -1                                           MCG         3561     A     
 MCG                SB2    RN.X0+1     I = X1                                              MCG         3562     A     
 MCG                SA0    B2          REGF = X1     */ INCASE ALL LD-REGS LOCKED          FCC0448      150     A     
 MCG                                                                                       MCG         3563     A     
 MCG       CRA5     SA1    RVT+B2                                                          MCG         3564     A     
 MCG                MI     X1,CRA7     IF LOCK[RVT(I)]                                     MCG         3565     A     
 MCG                IF     DEF,JXR,1                 */ TEST MODE ONLY                     MCG         3566          I
          -FCC0625
 MCG                ZR     X1,CRA7     IF RVT(I) = 0                                       MCG         3567          I
          -FCC0625
 MCG                SB6    "TB"-B1                                                         FCC0625       10     A     
 MCG                SA4    B6+X1       DI = TB-1 + RI[RVT(I)]                              FCC0625       11     A     
 MCG                LX4    59-D.PRSP                                                       FCC0625       12     A     
 MCG                MI     X4,CRA7     IF PRS[DI]                                          FCC0625       13     A     
 MCG                UX6    B3,X1                                                           MCG         3568     A     
 MCG                LX1    -RV.NUP                                                         MCG         3569     A     
 MCG                GT     B3,B4,CRA6  IF COST[RVT(I)] > MAXC                              MCG         3570     A     
 MCG                LT     B3,B4,CRA7  IF COST[RVT(I)] < MAXC                              MCG         3571     A     
 MCG                SB6    X1+                                                             MCG         3572     A     
 MCG                LT     B6,B5,CRA7  IF NU[RVT(I)] < MAXD                                MCG         3573     A     
 MCG       CRA6     SA0    B2          REGF = I                                            MCG         3574     A     
 MCG                SB4    B3          MAXC = COST[RVT(I)]                                 MCG         3575     A     
 MCG                SB5    B6          MAXD = NU[RVT(I)]                                   MCG         3576     A     
 MCG       CRA7     SB2    B2+1        I = I + 1                                           MCG         3577     A     
 MCG                SX6    B2-RN.X0-6                                                      MCG         3578     A     
 MCG                MI     X6,CRA5     IF I < RN.X6                                        MCG         3579     A     
 MCG                SB3    RN.X0+6                                                         MCG         3580     A     
 MCG                SA1    RVT+B3                                                          MCG         3581     A     
 MCG                SB4    A0                                                              MCG         3582     A     
 MCG                SB6    "TB"-B1                                                         MCG         3583     A     
 MCG                ZR     X1,CRA8     REGR = IF( RVT(X6) = 0 ) THEN X6 ELSE X7            MCG         3584     A     
 MCG                SB3    B3+B1                                                           MCG         3585     A     
 MCG                                                                                       MCG         3586     A     
 MCG       CRA8     SA1    RVT+B4                                                          MCG         3587     A     
 MCG                S"DI"  B6+X1       DI = BASE-1 + RI[RVT(REGF)]                         MCG         3588     A     
 MCG                LX4    59-D.PRSP                                                       MCG         3589     A     
 MCG                PL     X4,CRA1     IF ^PRS[DI]                                         MCG         3590     A     
 MCG                LX1    -RV.NUP                                                         MCG         3591     A     
 MCG                SA2    RBV+B4                                                          FCC0881       40     A     
 MCG                SA3    LXR                                                             FCC0881       41     A     
 MCG                BX6    -X2*X3      LXR = LXR & ^RBV(REGF)  */ CLEAR LOCK BIT           FCC0881       42     A     
 MCG                SA6    A3                                                              FCC0881       43     A     
 MCG                EQ     CRA3                                                            MCG         3592     A     
 MCG       CRA      SPACE  2,10                                                            MCG         3593     A     
 MCG      *         LD REG NEEDED AND NO STORE REG AVAILABLE                               MCG         3594          I
          -FCC0502
 MCG                                                                                       MCG         3595          I
          -FCC0502
 MCG       CRA9     SB4    B3                                                              MCG         3596          I
          -FCC0502
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3454    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SB3    RN.X0       REGR = RN.X0                                        MCG         3597          I
          -FCC0502
 MCG                SB6    "TB"-B1                                                         MCG         3598          I
          -FCC0502
 MCG                EQ     CRA8                                                            MCG         3599          I
          -FCC0502
 MCG      *         LD REG NEEDED AND NO ST REG AVAILABLE, SEARCH FOR ^PRS LD-REG.         FCC0502        5     A     
 MCG                                                                                       FCC0502        6     A     
 MCG       CRA9     SB3    RN.X0       REGR = RN.X0  */ RESULT REG                         FCC0502        7     A     
 MCG                SB6    "TB"-B1                                                         FCC0502        8     A     
 MCG                SB4    B3+B1       REGF = RN.X1  */ OPERAND                            FCC0502        9     A     
 MCG                                                                                       FCC0502       10     A     
 MCG       CRA9A    SA1    RVT+B4                                                          FCC0502       11     A     
 MCG                S"DI"  B6+X1       DI = TB-1 + RN[RVT(REGF)]                           FCC0502       12     A     
 MCG                LX4    59-D.PRSP                                                       FCC0502       13     A     
 MCG                PL     X4,CRA1     IF ^PRS[DI]                                         FCC0502       14     A     
 MCG                SB4    B4+B1       REGF = REGF + 1                                     FCC0502       15     A     
 MCG                SX6    B4-RN.X0-5                                                      FCC0502       16     A     
 MCG                MI     X6,CRA9A    IF REGF < RN.X5                                     FCC0502       17     A     
 MCG                                                                                       FCC0502       18     A     
 MCG                EQ     CRA8                                                            FCC0502       19     A     
 MCG                                                                                       MCG         3600     A     
 MCG      *         INSTRUCTION PRS AND CANNOT BE ISSUED                                   MCG         3601     A     
 MCG                                                                                       MCG         3602     A     
 MCG       CRA10    SA1    T0                                                              MCG         3603     A     
 MCG                SB6    "TB"+B1                                                         MCG         3604     A     
 MCG                SA2    X1+B6       R1RS = BASE + T0+4                                  MCG         3605     A     
 MCG                MX5    -SO.REGL                                                        MCG         3606     A     
 MCG                LX2    -R1.SOP                                                         MCG         3607     A     
 MCG                BX6    -X5*X2                                                          MCG         3608     A     
 MCG                SB4    X6          REGF = SOREG[R1RS]                                  MCG         3609     A     
 MCG                SX7    X6-8                                                            MCG         3610     A     
 MCG                MI     X7,CRA11    IF REGF @ 7   */ A B-REGISTER                       MCG         3611     A     
 MCG                SA1    AXR                                                             MCG         3612     A     
 MCG                SX5    FX.SCR+FX.XT                                                    MCG         3613     A     
 MCG                BX7    X1*X5       AVAIL = AXR & FX.SCR                                MCG         3614     A     
 MCG                NX6    B3,X7                                                           MCG         3615     A     
 MCG                SA3    B3+FXRA+16-47                                                   MCG         3616     A     
 MCG                SB3    X3          REGR = FXRA( NORMC(AVAIL) )                         MCG         3617     A     
 MCG                EQ     CRA1                                                            MCG         3618     A     
 MCG                                                                                       MCG         3619     A     
 MCG       CRA11    EQU    UJR.E1      B-REGISTER DEADLOCK                                 MCG         3620          I
          -FCC1555X 
 MCG      *         INSTRUCTION PRS TO A B-REGISTER AND IT CANNOT BE ISSUED, SEE           FCC1555X      20     A     
 MCG      *         IF THE USES OF THE R-NUMBER IN THE B-REGISTER ARE SUCH THAT            FCC1555X      21     A     
 MCG      *         WE CAN MOVE IT TO AN X-REGISTER.                                       FCC1555X      22     A     
 MCG                                                                                       FCC1555X      23     A     
 MCG       CRA11    SA1    RVT+B4                                                          FCC1555X      24     A     
 MCG                SA2    JLR                                                             FCC1555X      25     A     
 MCG                SB3    B4+12                                                           FCC1555X      26     A     
 MCG                LX2    B3                                                              FCC1555X      27     A     
 MCG                BX3    X1+X2                                                           FCC1555X      28          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3455    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
          -FCC1845X 
 MCG                MI     X3,CRA15    IF LOCK[RVT(REGF)] ! SHIFT(JLR,REGF+12) < 0         FCC1555X      29          I
          -FCC1845X 
 MCG                MI     X2,CRA15    IF SHIFT(JLR,REG+12) < 0 */ JUP LOCK                FCC1845X       7     A     
 MCG                SA2    "TB"+X1     LI = TB + RN[RVT(REGF)]                             FCC1555X      30     A     
 MCG                MX7    -I.INDXL                                                        FCC1555X      31     A     
 MCG                SA3    O.TREE                                                          FCC1555X      32     A     
 MCG                LX2    -I.INDXP                                                        FCC1555X      33     A     
 MCG                BX6    -X7*X2                                                          FCC1555X      34     A     
 MCG                SB3    X3                                                              FCC1555X      35     A     
 MCG                SA3    B3+X6       UI = TREE + INDX[LI]                                FCC1555X      36     A     
 MCG                EQ     CRA13                                                           FCC1555X      37     A     
 MCG                                                                                       FCC1555X      38     A     
 MCG       CRA12    LX3    59-U.LASTP+U.SUCCP                                              FCC1555X      39     A     
 MCG                MI     X3,CRA21    IF LAST[UI]                                         FCC1555X      40     A     
 MCG                SA3    A3+1        UI = UI + 1                                         FCC1555X      41     A     
 MCG                                                                                       FCC1555X      42     A     
 MCG       CRA13    LX3    -U.SUCCP                                                        FCC1555X      43     A     
 MCG                SA5    "TB"+X3     LIS = TB + SUCC[UI]                                 FCC1555X      44     A     
 MCG                LX5    59-I.IIP                                                        FCC1555X      45     A     
 MCG                MI     X5,CRA12    IF II[LIS]    */ ISSUED                             FCC1555X      46     A     
 MCG                SA5    A5-B1       DIS = LIS - 1                                       FCC1555X      47     A     
 MCG                SA2    A5-2                                                            FCC1655X       4     A     
 MCG                LX6    B1,X5                                                           FCC1555X      48     A     
 MCG                ERRNZ  59-D.TYP-1                                                      FCC1555X      49     A     
 MCG                MI     X6,CRA12    IF TYPE[DIS] = II ! IV                              FCC1555X      50     A     
 MCG                LX5    58-D.TYP                                                        FCC1555X      51     A     
 MCG                PL     X5,CRA14    IF TYPE[DIS] = I                                    FCC1555X      52     A     
 MCG                LX5    1+D.TYP-D.JPP                                                   FCC1555X      53     A     
 MCG                PL     X5,CRA12    IF ^JP[DIS]   */ ^ B USE                            FCC1555X      54     A     
 MCG                EQ     CRA15                                                           FCC1555X      55     A     
 MCG                                                                                       FCC1555X      56     A     
 MCG      *         TYPE I INST, B-RESULT IS USED IN RJ OF ILS, IRS AND PK, AND            FCC1555X      57     A     
 MCG      *         RJ, RK OF SA, SS, SLD, SST, SDL, SDS. SUFFICIENT TO CHECK              FCC1555X      58     A     
 MCG      *         FOR RK[R1] = 0 TO IMPLY X-USE POSSIBLE                                 FCC1555X      59     A     
 MCG                                                                                       FCC1555X      60     A     
 MCG       CRA14    SA5    A5-2        R1S = DIS - 2                                       FCC1555X      61     A     
 MCG                UX7    B3,X5                                                           FCC1655X       5     A     
 MCG                LX5    -R1.RKP                                                         FCC1555X      62     A     
 MCG                BX6    "RN"X5                                                          FCC1555X      63     A     
 MCG                ZR     X6,CRA12    IF RK[R1S] = 0  */ CAN MOVE TO AN X-REGISTE         FCC1555X      64     A     
 MCG                SB5    OC.SLD                                                          FCC1655X       6     A     
 MCG                LT     B3,B5,CRA15 IF OC[R1] < OC.SLD                                  FCC1655X       7     A     
 MCG                SB5    OC.SA                                                           FCC1655X       8     A     
 MCG                GT     B3,B5,CRA15 IF OC[R1] > OC.SA  */ NOT SLD, SST OR SA            FCC1655X       9     A     
 MCG                                                                                       FCC1655X      10     A     
 MCG      *         IF BOTH OPERANDS IN A B-REGISTER, THEN ONE CAN BE MOVED                FCC1655X      11     A     
 MCG                                                                                       FCC1655X      12     A     
 MCG                SX1    X1          R = RN[RVT(REGF)]  */ RI IN B-REG                   FCC1655X      13     A     
 MCG                BX7    X1-X6       ORN = RK[R1]                                        FCC1655X      14     A     
 MCG                NZ     X7,CRA14A   IF R " ORN                                          FCC1655X      15     A     
 MCG                LX5    R1.RKP-R1.RJP                                                   FCC1655X      16     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3456    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                BX6    "RN"X5      ORN = RJ[R1]                                        FCC1655X      17     A     
 MCG       CRA14A   SB5    "TB"-3                                                          FCC1655X      18     A     
 MCG                SA5    B5+X6       R1P = TXT(ORN)                                      FCC1655X      19     A     
 MCG                UX7    B3,X5                                                           FCC1655X      20     A     
 MCG                SB5    OC.DEF                                                          FCC1655X      21     A     
 MCG                NE     B3,B5,CRA15 IF OC[R1P] " OC.DEF                                 FCC1655X      22     A     
 MCG                LX5    -R1.SOP-SO.RTP                                                  FCC1655X      23     A     
 MCG                MX7    -SO.RTL                                                         FCC1655X      24     A     
 MCG                BX6    -X7*X5                                                          FCC1655X      25     A     
 MCG                ZR     X6,CRA21    IF RT[R1P] = 0  */ A B-REGISTER                     FCC1655X      26     A     
 MCG                                                                                       FCC1555X      65     A     
 MCG      *         INSTRUCTION HAS B USES THAT CANNOT BE CHANGED TO X USES.               FCC1555X      66     A     
 MCG                                                                                       FCC1555X      67     A     
 MCG       CRA15    EQ     UJR.E1                                                          FCC1555X      68     A     
 MCG                                                                                       FCC1555X      69     A     
 MCG      *         ALL FUTURE USES OF INSTRUCTION CAN BE X-USES, MOVE INSTRUCTION         FCC1555X      70     A     
 MCG      *         TO AN X-REGISTER.                                                      FCC1555X      71     A     
 MCG                                                                                       FCC1555X      72     A     
 MCG       CRA21    SA1    AXR                                                             FCC1555X      73     A     
 MCG                SA2    T                                                               FCC1555X      74     A     
 MCG                SX5    FX.SCR+FX.XT                                                    FCC1555X      75     A     
 MCG                BX7    X1*X5       AVAIL = AXR & FX.SCR                                FCC1555X      76     A     
 MCG                NX6    B3,X7                                                           FCC1555X      77     A     
 MCG                SB5    X2                                                              FCC1555X      78     A     
 MCG                SA3    B3+FXRA+16-47                                                   FCC1555X      79     A     
 MCG                SA2    TRA+X3                                                          FCC1555X      80     A     
 MCG                SB2    X2                                                              FCC1555X      81     A     
 MCG                SB3    X3          REGR = FXR( SCR )                                   FCC1555X      82     A     
 MCG                LE     B2,B5,CRA22 T(IS) = MAX( T , T(IS) )                            FCC1555X      83     A     
 MCG                SB5    B2                                                              FCC1555X      84     A     
 MCG       CRA22    SB2    OC.SA                                                           FCC1555X      85     A     
 MCG                RJ     OXI         OUTPUT A *SA*                                       FCC1555X      86     A     
 MCG                SA2    T0                                                              FCC1555X      87     A     
 MCG                RJ     ISI         ISSUE T0                                            FCC1555X      88     A     
 MCG                EQ     CRA                                                             FCC1555X      89     A     
 MCG       SXB      SPACE  3           SXB                                                 MCG         3621          I
          -FCC1056
 MCG       SXB      EJECT                                                                  FCC1056       45     A     
 MCG      **        SXB - SETUP XMT BACK ( INSTRUCTION PS/PRS )                            MCG         3622     A     
 MCG      *                                                                                MCG         3623     A     
 MCG      *         ENTRY  (R0) = *TXT* INDEX OF INSTRUCTION                               MCG         3624     A     
 MCG      *                (X6) = CALLF = 0 IF CALL FROM *CRA*                             FCC0881       44     A     
 MCG                                                                                       MCG         3625     A     
 MCG       SXB      ROUTINE                                                                MCG         3626     A     
 MCG                SA2    R0                                                              FCC0881       45     A     
 MCG                SB6    "TB"-B1                                                         FCC0881       46     A     
 MCG                SA4    B6+X2       DI = BASE-1 + R0                                    FCC0881       47     A     
 MCG                LX4    59-D.PSP                                                        FCC0881       48     A     
 MCG                MI     X4,SXBS     IF PS[DI]                                           FCC0881       49     A     
 MCG                                                                                       FCC0881       50     A     
 MCG                SA5    L.TXT       LT = L.TXT                                          MCG         3627     A     
 MCG                ALLOC  TXT,4                                                           MCG         3628     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3457    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA4    R0                                                              MCG         3629     A     
 MCG                UX6    B3,X4                                                           MCG         3630     A     
 MCG                BX7    X5                                                              MCG         3631     A     
 MCG                SA7    RVT+B3      RVT(REGR) = LT                                      MCG         3632     A     
 MCG                BX4    "RN"X4                                                          MCG         3633     A     
 MCG                IX3    X2+X5                                                           MCG         3634     A     
 MCG                IX2    X2+X4                                                           MCG         3635     A     
 MCG                MOVE   X1,X2,X3    MOVE( 4 , O.TXT+R0 , O.TXT+LT )                     MCG         3636     A     
 MCG                RJ     AIP         ADJUST POINTERS                                     MCG         3637     A     
 MCG                                                                                       MCG         3638     A     
 MCG      *         SETUP AN *XMT* WHERE THE ORIGINAL INSTRUCTION WAS                      MCG         3639     A     
 MCG                                                                                       MCG         3640     A     
 MCG                SA1    R0                                                              MCG         3641     A     
 MCG                SB2    OC.XMT                                                          MCG         3642     A     
 MCG                SB6    "TB"-B1                                                         MCG         3643     A     
 MCG                SA2    F.RDT+B2                                                        MCG         3644     A     
 MCG                MX6    -D.STRSL                                                        MCG         3645     A     
 MCG                S"DI"  B6+X1       D0 = BASE-1 + R0                                    MCG         3646     A     
 MCG                LX6    D.STRSP                                                         MCG         3647     A     
 MCG                MX7    0                                                               MCG         3648     A     
 MCG                SA7    "DI"-B1     [DI-1] = 0                                          MCG         3649     A     
 MCG                BX4    -X6*X4                                                          MCG         3650     A     
 MCG                LX5    R1.RJP                                                          MCG         3651     A     
 MCG                BX5    X5+X1                                                           MCG         3652     A     
 MCG                PX6    B2,X5                                                           MCG         3653     A     
 MCG                SA6    A7-B1       [DI-2] = TYI(OC.XMT,LT,0,R0)                        MCG         3654     A     
 MCG                BX7    X4+X2                                                           MCG         3655     A     
 MCG                SA7    A4          [DI] = RDT(OC.XMT) ! STRS[DI]                       MCG         3656     A     
 MCG                SA5    A4+B1                                                           FCC0881       51     A     
 MCG                MX3    1                                                               FCC0881       52     A     
 MCG                LX3    1+I.IIP                                                         FCC0881       53     A     
 MCG                BX6    -X3*X5      II[DI+1] = 0  */ CLEAR IN CASE STORED OUT           FCC0881       54     A     
 MCG                SA6    A5                                                              FCC0881       55     A     
 MCG                RJ     RIL         RESET THE ISSUE LIST                                MCG         3657     A     
 MCG                SA3    SIW                                                             MCG         3658     A     
 MCG                NZ     X3,SXB1     IF SIW " 0                                          MCG         3659          I
          -FCC0881
 MCG                NZ     X3,SXB0     IF SIW " 0                                          FCC0881       56     A     
 MCG                ALLOC  TREE,1                                                          MCG         3660     A     
 MCG                SX3    X3-1        SIW = L.TREE - 1                                    MCG         3661     A     
 MCG                RJ     AIP         ADJUST *PIT* POINTERS                               MCG         3662     A     
 MCG                                                                                       MCG         3663     A     
 MCG       SXB1     SA1    L.TXT                                                           MCG         3664          I
          -FCC0881
 MCG       SXB0     SA1    L.TXT                                                           FCC0881       57     A     
 MCG                SA2    SXBA                                                            MCG         3665     A     
 MCG                SA4    O.TREE                                                          MCG         3666     A     
 MCG                SB4    X1-4                                                            MCG         3667     A     
 MCG                SA5    "TB"+B4     L = BASE + L.TXT-4                                  MCG         3668     A     
 MCG                SB2    X3                                                              MCG         3669     A     
 MCG                BX6    -X2*X5                                                          MCG         3670     A     
 MCG                LX3    I.INDXP                                                         MCG         3671     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3458    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SX7    B1                                                              MCG         3672     A     
 MCG                BX6    X6+X3       INDX[L] = SIW                                       MCG         3673     A     
 MCG                LX7    I.USESP                                                         MCG         3674     A     
 MCG                IX6    X6+X7       USES[L] = 1                                         MCG         3675     A     
 MCG                SA2    R0                                                              FCC0881       58     A     
 MCG                MX5    -I.LSTL                                                         FCC0881       59     A     
 MCG                SA3    "TB"+X2     LI = BASE + R0                                      FCC0881       60     A     
 MCG                LX5    I.LSTP                                                          FCC0881       61     A     
 MCG                BX3    -X5*X3      LST = LST[LI] */ LST OF *XMT* BACK                  FCC0881       62     A     
 MCG                BX6    X3+X6       LST[L] = LST                                        FCC0881       63     A     
 MCG                SA6    A5                                                              MCG         3676     A     
 MCG                MX1    -D.STRSL                                                        FCC0625       14     A     
 MCG                SA5    A5-B1       DI = L - 1                                          FCC0625       15     A     
 MCG                LX1    D.STRSP                                                         FCC0625       16     A     
 MCG                BX6    X1*X5       STRS[DI] = 0  */ CLEAR *STRS* OF MOVED INST         FCC0625       17     A     
 MCG                SA6    A5                                                              FCC0625       18     A     
 MCG                                                                                       MCG         3677     A     
 MCG                LX7    U.LASTP-I.USESP                                                 MCG         3678     A     
 MCG                SA1    R0                                                              MCG         3679          I
          -FCC0881
 MCG                BX7    X7+X1                                                           MCG         3680          I
          -FCC0881
 MCG                SA7    X4+B2       [O.TREE+SIW] = SIT(1,0,0,R0)                        MCG         3681          I
          -FCC0881
 MCG                LX3    U.LSTP-I.LSTP                                                   FCC0881       64     A     
 MCG                SX2    X2                                                              FCC0881       65     A     
 MCG                BX3    X3+X2                                                           FCC0881       66     A     
 MCG                BX7    X7+X3                                                           FCC0881       67     A     
 MCG                SA7    X4+B2       TREE(SIW) = SIT(1,0,LST,R0)                         FCC0881       68     A     
 MCG                EQ     SXB                                                             MCG         3682     A     
 MCG                                                                                       FCC0881       69     A     
 MCG      *         INSTRUCTION *PS*, NOT ALL USES MAY BE STORES, SETUP *XMT LT,R0         FCC0881       70     A     
 MCG      *         AT END OF *TXT*, CHANGE *RI"S* IN THE ST"S, ^ST USES WILL WORK         FCC0881       71     A     
 MCG      *         OFF ORIGINAL *RI* ( R0 ).                                              FCC0881       72     A     
 MCG                                                                                       FCC0881       73     A     
 MCG       SXBS     SA6    SXBB                                                            FCC0881       74     A     
 MCG                SA2    R0                                                              FCC0881       75     A     
 MCG                SA1    L.TXT                                                           FCC0881       76     A     
 MCG                SA4    O.TREE                                                          FCC0881       77     A     
 MCG                SA5    "TB"+X2     LI = BASE + R0                                      FCC0881       78     A     
 MCG                MX7    -I.INDXL                                                        FCC0881       79     A     
 MCG                SB3    B0          UST = 0       */ N.ST USES                          FCC0881       80     A     
 MCG                SB4    X4                                                              FCC0881       81     A     
 MCG                SB5    B0          FSU = 0       */ FIRST ST USE                       FCC0881       82     A     
 MCG                LX5    -I.INDXP                                                        FCC0881       83     A     
 MCG                BX6    -X7*X5                                                          FCC0881       84     A     
 MCG                SA3    B4+X6       UI = TREE + INDX[LI]                                FCC0881       85     A     
 MCG                BX5    "RN"X2                    (X5) = R0                             FCC1126        7     A     
 MCG                EQ     SXB2                                                            FCC0881       86     A     
 MCG                                                                                       FCC0881       87     A     
 MCG      *         SCAN *SIT*, COUNT USES OF *R0* AS A ST-PRED, CHANGE THEM TO            FCC0881       88     A     
 MCG                USE AN *XMT* AT THE END OF *TXT* AS THEIR *RI*.                        FCC0881       89          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3459    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
          -RSM2763X 
 MCG      *         USE AN *XMT* AT THE END OF *TXT* AS THEIR *RI*.                        RSM2763X     369     A     
 MCG                                                                                       FCC0881       90     A     
 MCG       SXB1     LX3    59-U.LASTP                                                      FCC0881       91     A     
 MCG                MI     X3,SXB3     IF LAST[UI]                                         FCC0881       92     A     
 MCG                SA3    A3+1        UI = UI + 1                                         FCC0881       93     A     
 MCG                                                                                       FCC0881       94     A     
 MCG       SXB2     LX3    -U.SUCCP                                                        FCC0881       95     A     
 MCG                SA2    "TB"+X3     LIS = BASE + SUCC[UI]                               FCC0881       96     A     
 MCG                LX3    U.SUCCP                                                         FCC0881       97     A     
 MCG                LX2    59-I.IIP                                                        FCC0881       98     A     
 MCG                MI     X2,SXB1     IF II[LIS]                                          FCC0881       99     A     
 MCG                SA4    A2-B1       DIS = LIS - 1                                       FCC0881      100     A     
 MCG                LX4    59-D.STP                                                        FCC0881      101     A     
 MCG                PL     X4,SXB1     IF ^ST[DIS]                                         FCC0881      102     A     
 MCG                LX4    D.STP-D.L2P                                                     FCC0881      103     A     
 MCG                MI     X4,SXB1     IF L2[DIS]                                          FCC0881      104     A     
 MCG                                                                                       FCC0881      105          I
          -FCC1126
 MCG                SA4    A4-2        R1S = DIS - 2                                       FCC0881      106          I
          -FCC1126
 MCG                SA4    A4-2        R1S = DIS - 2                                       FCC1126        8     A     
 MCG                BX6    "RN"X4                                                          FCC1126        9     A     
 MCG                BX7    X5-X6                                                           FCC1126       10     A     
 MCG                NZ     X7,SXB1     IF RI[R1S] " R0  */ NOT RI USE                      FCC1126       11     A     
 MCG                                                                                       FCC1126       12     A     
 MCG                BX6    X0*X4                                                           FCC0881      107     A     
 MCG                BX7    X6+X1       RI[R1S] = L.TXT  */ CHANGE *RI*                     FCC0881      108     A     
 MCG                SA7    A4                                                              FCC0881      109     A     
 MCG                LX3    -U.PREDP                                                        FCC0881      110     A     
 MCG                BX2    X0*X3                                                           FCC0881      111     A     
 MCG                LX3    U.PREDP                                                         FCC0881      112     A     
 MCG                BX6    X2+X1       PRED[UI] = L.TXT                                    FCC0881      113     A     
 MCG                LX6    U.PREDP                                                         FCC0881      114     A     
 MCG                SB3    B3+B1       UST = UST + 1                                       FCC0881      115     A     
 MCG                SA6    A3                                                              FCC0881      116     A     
 MCG                NZ     B5,SXB1     IF FSU " 0                                          FCC0881      117     A     
 MCG                SB5    A2-"TB"     FSU = SUCC[UI]                                      FCC0881      118     A     
 MCG                EQ     SXB1                                                            FCC0881      119     A     
 MCG                                                                                       FCC0881      120     A     
 MCG      *         UPDATE LINK WORD OF *R0*, FORM *XMT LT,R0* AT END OF *TXT*.            FCC0881      121     A     
 MCG                                                                                       FCC0881      122     A     
 MCG       SXB3     SX5    B5                                                              FCC0881      123     A     
 MCG                PX5    B3,X5                                                           FCC0881      124     A     
 MCG                ALLOC  TXT,4       ALLOC( TXT , 4 )                                    FCC0881      125     A     
 MCG                UX6    B3,X5                                                           FCC0881      126     A     
 MCG                ALLOC  TREE,B3     ALLOC( TREE , UST );  LTR = OLD(L.TREE)             FCC0881      127     A     
 MCG                RJ     AIP         ADJUST POINTERS                                     FCC0881      128     A     
 MCG                SA1    R0                                                              FCC0881      129     A     
 MCG                SA3    "TB"+X1     LI = BASE + R0                                      FCC0881      130     A     
 MCG                UX5    B2,X5                                                           FCC0881      131     A     
 MCG                SB5    X2                        (B5) = O.TREE                         FCC0881      132     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3460    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SX6    B2-B1                                                           FCC0881      133     A     
 MCG                LX6    I.USESP                                                         FCC0881      134     A     
 MCG                SA4    A3-B1                                                           FCC0881      135     A     
 MCG                IX6    X3-X6       USES[LI] = USES[LI] + 1 - UST                       FCC0881      136     A     
 MCG                SA6    A3                                                              FCC0881      137     A     
 MCG                SX7    B1                                                              FCC0881      138     A     
 MCG                LX7    D.PSP                                                           FCC0881      139     A     
 MCG                BX7    -X7*X4      PS[LI-1] = 0                                        FCC0881      140     A     
 MCG                SA7    A4                                                              FCC0881      141     A     
 MCG                                                                                       FCC0881      142     A     
 MCG                SA2    L.TXT                                                           FCC0881      143     A     
 MCG                SX2    X2-4        LT = L.TXT - 4                                      FCC0881      144     A     
 MCG                SX7    B2                                                              FCC0881      145     A     
 MCG                LX7    I.USESP                                                         FCC0881      146     A     
 MCG                SX6    B6                                                              FCC0881      147     A     
 MCG                LX6    I.INDXP                                                         FCC0881      148     A     
 MCG                BX7    X6+X7                                                           FCC0881      149     A     
 MCG                LX5    I.LSTP-1                                                        FCC0881      150     A     
 MCG                BX7    X5+X7                                                           FCC0881      151     A     
 MCG                SX6    B1                                                              FCC0881      152     A     
 MCG                BX7    X6+X7       LIT = BASE + LT                                     FCC0881      153     A     
 MCG                SA7    "TB"+X2     [LIT] = LW(0,UST,LTR,FSU/2,1)                       FCC0881      154     A     
 MCG                SA4    F.RDT+OC.XMT                                                    FCC0881      155     A     
 MCG                LX6    D.PSP                                                           FCC0881      156     A     
 MCG                BX7    X4+X6                                                           FCC0881      157     A     
 MCG                SA7    A7-B1       DIT = LIT - 1;  [DIT] = RDT(OC.XMT) ! PS            FCC0881      158     A     
 MCG                MX6    0                                                               FCC0881      159     A     
 MCG                SA6    A7-B1       R2T = DIT - 1;  [R2T] = 0                           FCC0881      160     A     
 MCG                SB3    OC.XMT                                                          FCC0881      161     A     
 MCG                SX1    X1                                                              FCC0881      162     A     
 MCG                LX1    R1.RJP                                                          FCC0881      163     A     
 MCG                BX7    X1+X2                                                           FCC0881      164     A     
 MCG                PX6    B3,X7                                                           FCC0881      165     A     
 MCG                SA6    A6-B1       R1T = R2T - 1;  [R1T] = TYI(OC.XMT,R0,0,LT)         FCC0881      166     A     
 MCG                                                                                       FCC0881      167     A     
 MCG      *         RESCAN *SIT* FOR *R0* AND SUBDIVIDE IT INTO 2 LISTS.                   FCC0881      168     A     
 MCG                                                                                       FCC0881      169     A     
 MCG                LX3    -I.INDXP                                                        FCC0881      170     A     
 MCG                MX7    -I.INDXL                                                        FCC0881      171     A     
 MCG                BX6    -X7*X3                                                          FCC0881      172     A     
 MCG                SA3    B5+X6       UI = TREE + INDX[LI]                                FCC0881      173     A     
 MCG                SB3    A3          UO = UI                                             FCC0881      174     A     
 MCG                SB2    B5+B6       UX = TREE + LTR                                     FCC0881      175     A     
 MCG                SB4    B0          XI = 0        */ XMT LINK INSERTED                  FCC0881      176     A     
 MCG                LX5    U.LSTP-I.LSTP                                                   FCC0881      177     A     
 MCG                LX1    -R1.RJP                                                         FCC0881      178     A     
 MCG                SB5    60-U.PREDP                                                      FCC0881      179     A     
 MCG                EQ     SXB6                                                            FCC0881      180     A     
 MCG                                                                               A       FCC0881      181     A     
 MCG       SXB4     BX6    X3                                                              FCC0881      182     A     
 MCG                SA6    B3          [UO] = [UI]                                         FCC0881      183     A     
 MCG                SB3    B3+1        UO = UO + 1                                         FCC0881      184     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3461    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                                                                                       FCC0881      185     A     
 MCG       SXB5     LX3    59-U.LASTP                                                      FCC0881      186     A     
 MCG                MI     X3,SXB7     IF LAST[UI]                                         FCC0881      187     A     
 MCG                SA3    A3+1        UI = UI + 1                                         FCC0881      188     A     
 MCG                                                                                       FCC0881      189     A     
 MCG       SXB6     LX3    -U.SUCCP                                                        FCC0881      190     A     
 MCG                SA4    "TB"+X3     LIS = TB + SUCC[UI]                                 FCC0881      191     A     
 MCG                LX3    U.SUCCP                                                         FCC0881      192     A     
 MCG                LX4    59-I.IIP                                                        FCC0881      193     A     
 MCG                MI     X4,SXB5     IF II[LI]                                           FCC0881      194     A     
 MCG                LX7    B5,X3                                                           FCC0881      195     A     
 MCG                BX6    X7-X1                                                           FCC0881      196     A     
 MCG                BX7    "RN"X6                                                          FCC0881      197     A     
 MCG                ZR     X7,SXB4     IF PRED[UI] = R0                                    FCC0881      198     A     
 MCG                                                                                       FCC0881      199     A     
 MCG      *         ADD EDGE TO *XMT* LIST                                                 FCC0881      200     A     
 MCG                                                                                       FCC0881      201     A     
 MCG                BX6    X3                                                              FCC0881      202     A     
 MCG                SA6    B2          [UX] = [UI]                                         FCC0881      203     A     
 MCG                SB2    B2+B1       UX = UX + 1                                         FCC0881      204     A     
 MCG                NZ     B4,SXB5     IF XI " 0     */ ^ FIRST *ST*                       FCC0881      205     A     
 MCG                SB4    B1          XI = 1                                              FCC0881      206     A     
 MCG                BX6    X5+X2                                                           FCC0881      207     A     
 MCG                LX1    U.PREDP                                                         FCC0881      208     A     
 MCG                BX6    X1+X6                                                           FCC0881      209     A     
 MCG                LX1    -U.PREDP                                                        FCC0881      210     A     
 MCG                SA6    B3          [UO] = SIT(0,R0,FST,LT)                             FCC0881      211     A     
 MCG                SB3    B3+B1       UO = UO + 1                                         FCC0881      212     A     
 MCG                EQ     SXB5                                                            FCC0881      213     A     
 MCG                                                                                       FCC0881      214     A     
 MCG       SXB7     SA1    B2-B1                                                           FCC0881      215     A     
 MCG                SA3    B3-B1                                                           FCC0881      216     A     
 MCG                SA4    SXBB                                                            FCC0881      217     A     
 MCG                MX5    1                                                               FCC0881      218     A     
 MCG                LX5    1+U.LASTP                                                       FCC0881      219     A     
 MCG                BX6    X1+X5       LAST[UX-1] = 1  */ TERMINATE LISTS                  FCC0881      220     A     
 MCG                SA6    A1                                                              FCC0881      221     A     
 MCG                BX7    X3+X5       LAST[UO-1] = 1                                      FCC0881      222     A     
 MCG                SA7    A3                                                              FCC0881      223     A     
 MCG                NZ     X4,SXB      IF CALLF " 0  */ NOT CALL FROM *CRA*                FCC0881      224     A     
 MCG                SX1    X2                                                              FCC0881      225     A     
 MCG                SA2    "TB"+X1                                                         FCC0881      226     A     
 MCG                SX3    B1                                                              FCC0881      227     A     
 MCG                LX3    I.ICP                                                           FCC0881      228     A     
 MCG                BX6    X3+X2       IC[BASE+LT] = 1                                     FCC0881      229     A     
 MCG                SA6    A2                                                              FCC0881      230     A     
 MCG                RJ     RIL         PUT GENERATED XMT ON *ICL*                          FCC0881      231     A     
 MCG                EQ     SXB                                                             FCC0881      232     A     
 MCG                                                                                       MCG         3683     A     
 MCG       SXBA     BFMW   I,(USES,INDX)                                                   MCG         3684          I
          -FCC0881
 MCG       SXBA     BFMW   I,(USES,INDX,LST)                                               FCC0881      233     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3462    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG       SXBB     BSS    1                                                               FCC0881      234     A     
 MCG       OXI      TITLE  OXI - OUTPUT TRANSMIT INSTRUCTION                               MCG         3685     A     
 MCG      **        OXI - OUTPUT XMIT INSTRUCTION ( *XMT* OR *SA* )                        MCG         3686     A     
 MCG      *                                                                                MCG         3687     A     
 MCG      *         ENTRY  (B3) = REGR ( RESULT REGISTER )                                 MCG         3688     A     
 MCG      *                (B4) = REGF ( FROM )                                            MCG         3689     A     
 MCG      *                (B2) = OC , INSTRUCTION OPCODE                                  MCG         3690     A     
 MCG      *                                                                                MCG         3691     A     
 MCG      *         EXIT   INSTRUCTION ISSUED, AXR AND RVT UPDATED                         MCG         3692     A     
 MCG                                                                                       MCG         3693     A     
 MCG       OXI      ROUTINE                                                                MCG         3694     A     
 MCG                SA1    RVT+B4                                                          MCG         3695     A     
 MCG                MX7    0                                                               MCG         3696     A     
 MCG                BX6    X1          RVT(REGR) = RVT(REGF)                               MCG         3697     A     
 MCG                SA6    RVT+B3                                                          MCG         3698     A     
 MCG                SA2    AXR                                                             MCG         3699     A     
 MCG                SA3    RBV+B4                                                          MCG         3700     A     
 MCG                SA4    RBV+B3                                                          MCG         3701     A     
 MCG                SA7    A1          RVT(REGF) = 0                                       MCG         3702     A     
 MCG                BX5    -X4*X2                                                          MCG         3703     A     
 MCG                BX7    X5+X3       AXR = AXR & ^RBV(REGR) ! RBV(REGF)                  MCG         3704     A     
 MCG                SA7    A2                                                              MCG         3705     A     
 MCG                SA1    T                                                               MCG         3706     A     
 MCG                SA2    TRA+B3                                                          MCG         3707     A     
 MCG      +         IX3    X1-X2                                                           MCG         3708     A     
 MCG                PL     X3,*+1                                                          MCG         3709     A     
 MCG                BX1    X2                                                              MCG         3710     A     
 MCG                SX7    X1          T = MAX( T , TRA(REGR) )                            MCG         3711     A     
 MCG                SA7    A1                                                              MCG         3712     A     
 MCG                                                                                       MCG         3713     A     
 MCG                SA2    F.RDT+B2                                                        MCG         3714     A     
 MCG                BX5    "RN"X6      R = RI[RVT(REGR)]                                   MCG         3715     A     
 MCG                LX5    R1.RJP                                                          MCG         3716     A     
 MCG                PX7    B2,X5                                                           MCG         3717     A     
 MCG                MX6    0                                                               MCG         3718     A     
 MCG                SA7    DRI         [DRI] = TYI(OC,R,0,0)                               MCG         3719     A     
 MCG                SA6    A7+B1       [DRI+1] = 0                                         MCG         3720     A     
 MCG                BX7    X2                                                              MCG         3721     A     
 MCG                SA7    A6+B1       [DRI+2] = RDT(OC)                                   MCG         3722     A     
 MCG                SA4    A7                                                              MCG         3723     A     
 MCG                RJ     OEI         OUTPUT THE INSTRUCTION                              MCG         3724     A     
 MCG                                                                                       MCG         3725     A     
 MCG      *         ADJUST THE *REG* FIELD OF THE OPERAND                                  MCG         3726     A     
 MCG                                                                                       MCG         3727     A     
 MCG                SA1    RVT+B3                                                          MCG         3728     A     
 MCG                MX7    -I.REGL                                                         MCG         3729     A     
 MCG                SA2    "TB"+X1     L = BASE + RI[RVT(REGR)]                            MCG         3730     A     
 MCG                SX4    B3                                                              MCG         3731     A     
 MCG                BX3    X7*X2       REG[L] = REGR                                       MCG         3732     A     
 MCG                IX6    X3+X4                                                           MCG         3733     A     
 MCG                SA6    A2                                                              MCG         3734     A     
 MCG                EQ     OXI                                                             MCG         3735     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3463    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG       RIL      TITLE  RIL - RESET ISSUE LIST                                          MCG         3736     A     
 MCG      **        RIL - RESET ISSUE LIST TO REMOVE ISSUED INSTRUCTION FROM               MCG         3737     A     
 MCG      *                REGISTERS AND PLACE IT BACK ON THE ISSUE LIST.                  MCG         3738     A     
 MCG      *                                                                                MCG         3739     A     
 MCG      *         ENTRY  (X1) = R , *TXT* INDEX OF THE INSTRUCTION                       MCG         3740     A     
 MCG      *                                                                                MCG         3741     A     
 MCG      *         EXIT   (B4) = LST[R] , NEW *LST* OF THE INSTRUCTION                    MCG         3742     A     
 MCG      *                (B3) = R , *TXT* INDEX OF THE INSTRUCTION                       MCG         3743     A     
 MCG      *                (A0) = PI , *TXT* INDEX OF PREVIOUS INSTRUCTION ON *ICL*        MCG         3744     A     
 MCG      *                (SIW) = *SIT* INDEX OF AN AVAIL WORD, 0 IF NONE.                MCG         3745     A     
 MCG      *                                                                                MCG         3746     A     
 MCG      *         PRESERVES - X0, B7                                                     MCG         3747     A     
 MCG                                                                                       MCG         3748     A     
 MCG       RIL      ROUTINE                                                                MCG         3749     A     
 MCG                SA5    "TB"+X1     LI = BASE + R                                       MCG         3750     A     
 MCG                SA2    O.TREE                                                          MCG         3751     A     
 MCG                MX7    -I.INDXL                                                        MCG         3752     A     
 MCG                SB3    X1                                                              MCG         3753     A     
 MCG                SB2    X2                                                              MCG         3754     A     
 MCG                LX5    -I.INDXP                                                        MCG         3755     A     
 MCG                BX4    -X7*X5                                                          MCG         3756     A     
 MCG                SA3    B2+X4       UI = O.TREE + INDX[LI]                              MCG         3757     A     
 MCG                LX5    I.INDXP-I.LSTP                                                  MCG         3758     A     
 MCG                SB4    A3          US = UI                                             MCG         3759     A     
 MCG                MX4    -1                                                              MCG         3760     A     
 MCG                SB5    A3          UF = UI                                             MCG         3761     A     
 MCG                BX5    X7*X5                                                           MCG         3762     A     
 MCG                SX1    B1                                                              MCG         3763     A     
 MCG                SB6    B0          N = 0                                               MCG         3764     A     
 MCG                LX1    I.ICP                                                           MCG         3765     A     
 MCG                EQ     RIL3                                                            MCG         3766     A     
 MCG                                                                                       MCG         3767     A     
 MCG      *         REMOVE ISSUED SUCCESSORS OF R FROM *SIT*, ADJUST PRED COUNTS           MCG         3768     A     
 MCG      *         OF UNISSUED SUCC.                                                      MCG         3769     A     
 MCG                                                                                       MCG         3770     A     
 MCG       RIL1     IX7    X2-X4       NPRED[SI] = NPRED[SI] + 1                           MCG         3771     A     
 MCG                SA7    A2                                                              MCG         3772     A     
 MCG                                                                                       MCG         3773     A     
 MCG       RIL2     LX3    59-U.LASTP                                                      MCG         3774     A     
 MCG                MI     X3,RIL4     IF LAST[UI]                                         MCG         3775     A     
 MCG                SA3    A3+1        UI = UI + 1                                         MCG         3776     A     
 MCG                                                                                       MCG         3777     A     
 MCG       RIL3     LX3    -U.SUCCP                                                        MCG         3778     A     
 MCG                SA2    "TB"+X3     SI = BASE + SUCC[UI]                                MCG         3779     A     
 MCG                BX7    X1*X2                                                           MCG         3780     A     
 MCG                LX3    U.SUCCP                                                         MCG         3781     A     
 MCG                LX2    59-I.IIP                                                        MCG         3782     A     
 MCG                MI     X2,RIL2     IF II[SI]     */ IF ISSUED                          MCG         3783     A     
 MCG                LX6    B1,X3                                                           FCC0448      151     A     
 MCG                ERRNZ  58-U.RDLP                                                       FCC0448      152     A     
 MCG                MI     X6,RIL2     IF RDL[UI]    */ REMOVE REDEFINITION LINKS          FCC0448      153     A     
 MCG                BX6    X3                                                              MCG         3784     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3464    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA6    B4          [US] = [UI]                                         MCG         3785     A     
 MCG                SB4    B4+1        US = US + 1                                         MCG         3786     A     
 MCG                ZR     X7,RIL1     IF ^IC[SI]                                          MCG         3787     A     
 MCG                BX6    -X1*X2      IC[SI] = 0                                          MCG         3788     A     
 MCG                SB6    B6+B1       N = N + 1     */ COUNT NUM OF CHANGED IC"S          MCG         3789     A     
 MCG                SA6    A2                                                              MCG         3790     A     
 MCG                EQ     RIL2                                                            MCG         3791     A     
 MCG       RIL      SPACE  1,10                                                            MCG         3792     A     
 MCG      *         FINISH RESET OF *SIT*                                                  MCG         3793     A     
 MCG                                                                                       MCG         3794     A     
 MCG       RIL4     SA2    B5                                                              MCG         3795     A     
 MCG                SB5    A3+B1       UL = UI + 1                                         MCG         3796     A     
 MCG                SA3    B4-B1                                                           MCG         3797     A     
 MCG                MX4    1                                                               MCG         3798     A     
 MCG                LX4    1+U.LASTP                                                       MCG         3799     A     
 MCG                BX6    X4+X3       LAST[US-1] = 1                                      MCG         3800     A     
 MCG                SA6    A3                                                              MCG         3801     A     
 MCG                LX2    -U.LSTP                                                         MCG         3802     A     
 MCG                SX1    X2          RN = LST[UF]                                        MCG         3803     A     
 MCG                BX7    X5+X1       LST[LI] = RN  */ NEW LATE START TIME                MCG         3804     A     
 MCG                LX7    I.LSTP                                                          MCG         3805     A     
 MCG                SA7    A5                                                              MCG         3806     A     
 MCG                                                                                       MCG         3807     A     
 MCG      +         SX6    B4-B2                                                           MCG         3808     A     
 MCG                LT     B4,B5,*+1   SIW = IF( US < UL ) THEN US-O.TREE; ELSE 0          MCG         3809     A     
 MCG                MX6    0                                                               MCG         3810     A     
 MCG                SA6    SIW                                                             MCG         3811     A     
 MCG                SB4    X1+                                                             MCG         3812     A     
 MCG                ZR     B6,RIL8     IF N = 0                                            MCG         3813     A     
 MCG                                                                                       MCG         3814     A     
 MCG      *         REMOVE INSTRUCTIONS THAT ARE NO LONGER *IC"S* FROM *ICL*               MCG         3815     A     
 MCG                                                                                       MCG         3816     A     
 MCG                SA3    ICL         CI = ICL                                            MCG         3817     A     
 MCG                MX1    -I.LINKL                                                        MCG         3818     A     
 MCG                S"PI"  B0          PI = 0                                              MCG         3819     A     
 MCG                LX4    I.ICP-U.LASTP                                                   MCG         3820     A     
 MCG                EQ     RIL6                                                            MCG         3821     A     
 MCG                                                                                       MCG         3822     A     
 MCG       RIL5     S"PI"  X3          PI = CI                                             MCG         3823     A     
 MCG                SX3    X5          CI = LINK[L]                                        MCG         3824     A     
 MCG                ZR     X3,RIL7     IF CI = 0                                           MCG         3825     A     
 MCG                                                                                       MCG         3826     A     
 MCG       RIL6     SA5    "TB"+X3     L = BASE + CI                                       MCG         3827     A     
 MCG                BX2    X4*X5                                                           MCG         3828     A     
 MCG                NZ     X2,RIL5     IF IC[L]                                            MCG         3829     A     
 MCG                                                                                       MCG         3830     A     
 MCG                SA2    "TB"+"PI"                                                       MCG         3831     A     
 MCG                BX3    -X1*X5      CI = LINK[L]                                        MCG         3832     A     
 MCG                SB6    B6-B1       N = N - 1                                           MCG         3833     A     
 MCG                BX6    X1*X2                                                           MCG         3834     A     
 MCG                IX7    X6+X3       LINK[BASE+PI] = CI                                  MCG         3835     A     
 MCG                MX6    -1                                                              MCG         3836     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3465    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA7    A2                                                              MCG         3837     A     
 MCG                BX5    X1*X5       LINK[L] = 0                                         MCG         3838     A     
 MCG                IX6    X5-X6       NPRED[L] = 1                                        MCG         3839     A     
 MCG                SA6    A5                                                              MCG         3840     A     
 MCG                NZ     B6,RIL6     IF N " 0      */ NOT END OF DELETES                 MCG         3841     A     
 MCG                                                                                       MCG         3842     A     
 MCG                NZ     X3,RIL7     IF CI " 0                                           MCG         3843     A     
 MCG                SX3    "PI"                                                            MCG         3844     A     
 MCG                NZ     X3,RIL7     IF PI " 0     */ ICL NOT EMPTY                      MCG         3845     A     
 MCG                SA5    "TB"+B3     L = BASE + R                                        MCG         3846     A     
 MCG                MX1    -I.LINKL                                                        MCG         3847     A     
 MCG                BX6    X1*X5       LINK[L] = 0                                         MCG         3848     A     
 MCG                SX7    B3                                                              MCG         3849     A     
 MCG                SA6    A5                                                              MCG         3850     A     
 MCG                SA7    ICL         ICL = R                                             MCG         3851     A     
 MCG                EQ     RIL                                                             MCG         3852     A     
 MCG                                                                                       MCG         3853     A     
 MCG       RIL7     SA2    "TB"                                                            MCG         3854     A     
 MCG                SX6    X2                                                              MCG         3855     A     
 MCG                ZR     X6,RIL8     IF LINK[BASE] = 0                                   MCG         3856     A     
 MCG                SA6    ICL         ICL = LINK[BASE]                                    MCG         3857     A     
 MCG                BX7    X1*X2       LINK[BASE] = 0                                      MCG         3858     A     
 MCG                SA7    A2                                                              MCG         3859     A     
 MCG                                                                                       MCG         3860     A     
 MCG      *         ADD THE REMOVED INSTRUCTION BACK ONTO *ICL*                            MCG         3861     A     
 MCG                                                                                       MCG         3862     A     
 MCG       RIL8     SA3    ICL         CI = ICL                                            MCG         3863     A     
 MCG                SX2    B4                                                              MCG         3864     A     
 MCG                S"PI"  B0          PI = 0                                              MCG         3865     A     
 MCG                LX2    I.LSTP                                                          MCG         3866     A     
 MCG                MX1    -I.LSTL                                                         MCG         3867     A     
 MCG                SA5    "TB"+X3     L = BASE + CI                                       MCG         3868     A     
 MCG                LX1    I.LSTP                                                          MCG         3869     A     
 MCG                                                                                       MCG         3870     A     
 MCG       RIL9     BX4    -X1*X5                                                          MCG         3871     A     
 MCG                IX6    X2-X4                                                           MCG         3872     A     
 MCG                MI     X6,RIL10    IF LST[LI] > RN                                     MCG         3873     A     
 MCG                S"PI"  X3          PI = CI                                             MCG         3874     A     
 MCG                SX3    X5          CI = LINK[L]                                        MCG         3875     A     
 MCG                SA5    "TB"+X5     L = BASE + CI                                       MCG         3876     A     
 MCG                NZ     X3,RIL9     IF CI " 0                                           MCG         3877     A     
 MCG                                                                                       MCG         3878     A     
 MCG       RIL10    SA5    "TB"+B3     L = BASE + R                                        MCG         3879     A     
 MCG                MX1    -I.LINKL                                                        MCG         3880     A     
 MCG                SB6    "PI"                                                            MCG         3881     A     
 MCG                BX4    X1*X5                                                           MCG         3882     A     
 MCG                ZR     B6,RIL11    IF PI = 0                                           MCG         3883     A     
 MCG                SA2    "TB"+"PI"                                                       MCG         3884     A     
 MCG                IX6    X4+X3       LINK[L] = CI                                        MCG         3885     A     
 MCG                SX3    B3                                                              MCG         3886     A     
 MCG                SA6    A5                                                              MCG         3887     A     
 MCG                BX1    X1*X2                                                           MCG         3888     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3466    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                IX7    X1+X3       LINK[BASE+PI] = R                                   MCG         3889     A     
 MCG                SA7    A2                                                              MCG         3890     A     
 MCG                EQ     RIL                                                             MCG         3891     A     
 MCG                                                                                       MCG         3892     A     
 MCG       RIL11    SA3    ICL                                                             MCG         3893     A     
 MCG                IX6    X4+X3       LINK[L] = ICL                                       MCG         3894     A     
 MCG                SA6    A5                                                              MCG         3895     A     
 MCG                SX7    B3          ICL = R                                             MCG         3896     A     
 MCG                SA7    A3                                                              MCG         3897     A     
 MCG                EQ     RIL                                                             MCG         3898     A     
 MCG       SMB      TITLE  SMB - SET MULTIPLE USE COMPUTATION BIT                          MCG         3899     A     
 MCG      **        SMB - SET *MUC* BIT FOR MULTIPLE USE COMPUTATIONS WHOSE                MCG         3900     A     
 MCG      *         USES ARE SPREAD APART SO THAT *DRR* WILL TRY TO PUT THEM IN            MCG         3901     A     
 MCG      *         STORE REGISTERS AND AVOID HAVING TO OUTPUT *XMT"S* WHEN THEY           MCG         3902     A     
 MCG      *         ARE SAVED IN MEMORY LATER.                                             MCG         3903     A     
 MCG                                                                                       MCG         3904     A     
 MCG       SMB0     MX0    -R1.RIL+1                                                       MCG         3905     A     
 MCG                LX0    1                                                               MCG         3906     A     
 MCG                                                                                       MCG         3907     A     
 MCG       SMB      ROUTINE                                                                MCG         3908     A     
 MCG                SA2    L.TXT                                                           MCG         3909     A     
 MCG                SA5    O.TREE                                                          MCG         3910     A     
 MCG                MX0    -D.USESL                                                        MCG         3911     A     
 MCG                LX0    D.USESP                                                         MCG         3912     A     
 MCG                SB4    4                                                               MCG         3913     A     
 MCG                MX1    -I.INDXL                                                        MCG         3914     A     
 MCG                SB2    X2-4        I = L.TXT - 4                                       MCG         3915     A     
 MCG                SB3    X5                                                              MCG         3916     A     
 MCG                SX7    B1                                                              MCG         3917     A     
 MCG                SA3    SMBA                                                            MCG         3918     A     
 MCG                LX7    D.MUCP                                                          MCG         3919     A     
 MCG                S"DI"  "TB"-B1     DI = BASE - 1                                       MCG         3920     A     
 MCG                EQ     SMB2                                                            MCG         3921     A     
 MCG                                                                                       MCG         3922     A     
 MCG       SMB1     BX6    X7+X4       MUC[DI] = 1                                         MCG         3923     A     
 MCG                SA6    A4+                                                             MCG         3924     A     
 MCG                                                                                       MCG         3925     A     
 MCG       SMB2     SB2    B2-B4       I = I - 4                                           MCG         3926     A     
 MCG                S"DI"  "DI"+B4     DI = DI + 4                                         MCG         3927     A     
 MCG                ZR     B2,SMB0     IF I = 0                                            MCG         3928     A     
 MCG                BX2    -X0*X4                                                          MCG         3929     A     
 MCG                AX2    D.USESP+1                                                       MCG         3930     A     
 MCG                ZR     X2,SMB2     IF USES[DI] < 2                                     MCG         3931     A     
 MCG                                                                                       MCG         3932     A     
 MCG                BX6    X3*X4                                                           MCG         3933     A     
 MCG       #DAL     IFEQ   .DAL,0                                                          MCG         3934     A     
 MCG                NZ     X6,SMB2     IF BITS[DI] " 0                                     MCG         3935     A     
 MCG       #DAL     ELSE                                                                   MCG         3936     A     
 MCG                ZR     X6,SMB3     IF BITS[DI] = 0                                     MCG         3937     A     
 MCG                LX6    D.L2P-D.LDP                                                     MCG         3938     A     
 MCG                BX2    X4*X6                                                           MCG         3939     A     
 MCG                LX2    59-D.L2P                                                        MCG         3940     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3467    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                PL     X2,SMB2     IF ^( L2[DI]&LD[DI] )                               MCG         3941     A     
 MCG       SMB3     BSS    0                                                               MCG         3942     A     
 MCG       #DAL     ENDIF                                                                  MCG         3943     A     
 MCG                                                                                       MCG         3944     A     
 MCG      *         CHECK DISTANCE BETWEEN USES                                            MCG         3945     A     
 MCG                                                                                       MCG         3946     A     
 MCG                SA2    "DI"+B1     LI = DI + 1                                         MCG         3947     A     
 MCG                LX2    -I.INDXP                                                        MCG         3948     A     
 MCG                BX6    -X1*X2                                                          MCG         3949     A     
 MCG                SA5    B3+X6       UI = O.TREE + INDX[LI]                              MCG         3950     A     
 MCG                LX5    -U.SUCCP                                                        MCG         3951     A     
 MCG                SB5    X5+MIN.D    SL = SUCC[UI] + MIN.D                               MCG         3952     A     
 MCG                LX5    U.SUCCP+59-U.LASTP                                              MCG         3953     A     
 MCG                MI     X5,SMB2     IF LAST[UI]   */ 2 USES IN 1 INSTRUCTION            MCG         3954     A     
 MCG                                                                                       MCG         3955     A     
 MCG       SMB4     SA5    A5+B1       UI = UI + 1                                         MCG         3956     A     
 MCG                LX5    -U.SUCCP                                                        MCG         3957     A     
 MCG                SB6    X5          SI = SUCC[UI]                                       MCG         3958     A     
 MCG                GT     B6,B5,SMB1  IF SI > SL    */ DIST BETWEEN USES IS BIG           MCG         3959     A     
 MCG                LX5    U.SUCCP+59-U.LASTP                                              MCG         3960     A     
 MCG                SB5    B6+MIN.D    SL = SI + MIN.D                                     MCG         3961     A     
 MCG                PL     X5,SMB4     IF ^LAST[UI]                                        MCG         3962     A     
 MCG                EQ     SMB2                                                            MCG         3963     A     
 MCG                                                                                       MCG         3964     A     
 MCG       SMBA     BFMW   D,(RJRS,PS,PRS,ECJ,LD,ST,JP,XMT,KS,PI,ZP)                       MCG         3965     A     
 MCG       SNU      TITLE  SNU - SET NEXT USE DISTANCE                                     MCG         3966     A     
 MCG      **        SNU - SET NEXT USE OF OPERANDS OF INSTRUCTION IN *RVT*                 MCG         3967     A     
 MCG      *         NOTE - *SNU* MAY ONLY BE CALLED AFTER A CALL TO *DUC*.                 MCG         3968     A     
 MCG      *                                                                                MCG         3969     A     
 MCG      *         ENTRY  (A4,X4) = DI , [DI]                                             MCG         3970     A     
 MCG      *                                                                                MCG         3971     A     
 MCG      *         EXIT   *NU* FIELD UPDATED IN *RVT* OF OPERANDS OF INSTRUCTION          MCG         3972     A     
 MCG      *                STORES ADDED TO ISSUED STORE CHAIN ( *ISC* )                    MCG         3973     A     
 MCG      *                (X7) = UOR = LIST OF UNCLEARED OPERAND REGISTERS                MCG         3974     A     
 MCG      *                                                                                MCG         3975     A     
 MCG      *         USES   B - 2, 6 , X - 1, 2, 3, 4, 5, 6, 7                              MCG         3976     A     
 MCG                                                                                       MCG         3977     A     
 MCG       SNU0     MX7    0           UOR = 0                                             MCG         3978     A     
 MCG                MI     X4,SNU      IF TYPE[DI] = IV                                    MCG         3979     A     
 MCG                LX4    1+D.TYP-D.PIP                                                   MCG         3980     A     
 MCG                PL     X4,SNU6     IF ^PI[DI]    */ NOT A PSEUDO INSTRUCTION           MCG         3981     A     
 MCG                SA3    "DI"-2      R1 = DI - 2                                         MCG         3982     A     
 MCG                BX5    "RN"X3      R = RNUMS = RI[R1]                                  MCG         3983     A     
 MCG                UX6    B2,X3                                                           MCG         3984     A     
 MCG                SX7    B2-OC.DEF                                                       MCG         3985     A     
 MCG                NZ     X7,SNU2     IF OC[R1] " OC.DEF                                  MCG         3986     A     
 MCG                                                                                       MCG         3987     A     
 MCG      *         SEARCH *UIT* AND REMOVE LOGICAL LINKS FROM THE SUCCESSOR LIST          MCG         3988     A     
 MCG                                                                                       MCG         3989     A     
 MCG                SA2    "DI"+B1     LI = DI + 1                                         MCG         3990     A     
 MCG                LX4    1+D.PIP                                                         FCC0393       16     A     
 MCG                SA3    O.TREE                                                          MCG         3991     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3468    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                MX7    -I.INDXL                                                        MCG         3992     A     
 MCG                LX2    -I.INDXP                                                        MCG         3993     A     
 MCG                SB6    X3                                                              MCG         3994     A     
 MCG                BX6    -X7*X2                                                          MCG         3995     A     
 MCG                SA2    B6+X6       UI = O.TREE + INDX[LI]                              MCG         3996     A     
 MCG                SA3    A2-B1                                                           MCG         3997     A     
 MCG                SB2    A2          FLAG = UI     */ 0 IF SOMETHING STORED              MCG         3998     A     
 MCG                SB6    "TB"-B1     DB = BASE - 1                                       MCG         3999     A     
 MCG                BX6    X3                                                              MCG         4000     A     
 MCG                SA6    A3          US = UI - 1;  [US] = [UI-1]                         MCG         4001     A     
 MCG                                                                                       MCG         4002     A     
 MCG       RLL1     LX2    -U.SUCCP                                                        MCG         4003     A     
 MCG                SA3    B6+X2       DJ = DB + SUCC[UI]                                  MCG         4004     A     
 MCG                LX2    U.SUCCP                                                         MCG         4005     A     
 MCG                LX3    58-D.TYP                                                        MCG         4006     A     
 MCG                LX6    B1,X3                                                           MCG         4007     A     
 MCG                MI     X6,RLL4     IF TYPE[DJ] = II ! IV                               MCG         4008     A     
 MCG                SA1    A3-2        R1J = DJ - 2                                        MCG         4009     A     
 MCG                BX6    X5-X1                                                           MCG         4010     A     
 MCG                BX7    "RN"X6                                                          MCG         4011     A     
 MCG                ZR     X7,RLL3     IF RI[R1J] = R                                      MCG         4012          I
          -FCC0393
 MCG                MI     X3,RLL2     IF TYPE[DJ] = III                                   MCG         4013          I
          -FCC0393
 MCG                NZ     X7,RLL1A    IF RI[R1J] " R                                      FCC0393       17     A     
 MCG                                                                                       FCC0393       18     A     
 MCG      *         DEF USED IN *RI* OF ANOTHER INSTRUCTION, RESET *PS* IF A STORE         FCC0393       19     A     
 MCG                                                                                       FCC0393       20     A     
 MCG                LX3    1+D.TYP-D.STP                                                   FCC0393       21     A     
 MCG                PL     X3,RLL3     IF ^ST[DJ]                                          FCC0393       22     A     
 MCG       #DAL     IFNE   .DAL,0                                                          FCC0393       23     A     
 MCG                LX3    D.STP-D.L2P                                                     FCC0393       24     A     
 MCG                MI     X3,RLL3     IF L2[DJ]                                           FCC0393       25     A     
 MCG       #DAL     ENDIF                                                                  FCC0393       26     A     
 MCG                SX3    B1                                                              FCC0393       27     A     
 MCG                LX3    D.PSP                                                           FCC0393       28     A     
 MCG                BX7    X3+X4       PS[DI] = 1    */ INDICATE THAT *DEF* IS *PS         FCC0393       29     A     
 MCG                SA7    A4                                                              FCC0393       30     A     
 MCG                EQ     RLL3                                                            FCC0393       31     A     
 MCG                                                                                       FCC0393       32     A     
 MCG       RLL1A    MI     X3,RLL2     IF TYPE[DJ] = III                                   FCC0393       33     A     
 MCG                LX1    -R1.RJP                                                         MCG         4014     A     
 MCG                BX6    X5-X1                                                           MCG         4015     A     
 MCG                LX1    R1.RJP-R1.RKP                                                   MCG         4016     A     
 MCG                BX7    "RN"X6                                                          MCG         4017     A     
 MCG                ZR     X7,RLL3     IF RJ[R1J] = R                                      MCG         4018     A     
 MCG                BX6    X5-X1                                                           MCG         4019     A     
 MCG                BX7    "RN"X6                                                          MCG         4020     A     
 MCG                ZR     X7,RLL3     IF RK[R1J] = R                                      MCG         4021     A     
 MCG                EQ     RLL4                                                            MCG         4022     A     
 MCG                                                                                       MCG         4023     A     
 MCG       RLL2     SA1    A1+B1       R2J = R1J + 1                                       MCG         4024     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3469    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                LX1    -IH.RFP                                                         MCG         4025     A     
 MCG                BX6    X5-X1                                                           MCG         4026     A     
 MCG                BX7    "RN"X6                                                          MCG         4027     A     
 MCG                NZ     X7,RLL4     IF RF[R2J] " R                                      MCG         4028     A     
 MCG       RLL3     BX6    X2                                                              MCG         4029     A     
 MCG                SA6    A6+B1       US = US + 1;  [US] = [UI]                           MCG         4030     A     
 MCG                SB2    0           FLAG = 0                                            MCG         4031     A     
 MCG                                                                                       MCG         4032     A     
 MCG       RLL4     BX6    X2          UL = [UI]                                           MCG         4033     A     
 MCG                SA2    A2+B1       UI = UI + 1                                         MCG         4034     A     
 MCG                LX6    59-U.LASTP                                                      MCG         4035     A     
 MCG                PL     X6,RLL1     IF ^LAST[UL]                                        MCG         4036     A     
 MCG                                                                                       MCG         4037     A     
 MCG                MX7    1                                                               MCG         4038     A     
 MCG                LX7    1+U.LASTP                                                       MCG         4039     A     
 MCG                NZ     B2,RLL5     IF FLAG " 0   */ NOTHING STORED                     MCG         4040     A     
 MCG                SA2    A6                                                              MCG         4041     A     
 MCG                BX6    X7+X2       LAST[US] = 1                                        MCG         4042     A     
 MCG                SA6    A2                                                              MCG         4043     A     
 MCG                EQ     SNU2                                                            MCG         4044     A     
 MCG                                                                                       MCG         4045     A     
 MCG       RLL5     SA3    L.TXT                                                           MCG         4046     A     
 MCG                SX4    X3-4                                                            MCG         4047     A     
 MCG                BX6    X7+X4                                                           MCG         4048     A     
 MCG                SA6    B2          [FLAG] = UIT(1,0,0,L.TXT-4)                         MCG         4049     A     
 MCG                EQ     SNU2                                                            MCG         4050     A     
 MCG                                                                                       MCG         4051     A     
 MCG       SNU      ROUTINE                                                                MCG         4052     A     
 MCG                LX4    58-D.TYP                                                        MCG         4053     A     
 MCG                IX7    X4+X4                                                           MCG         4054     A     
 MCG                MI     X7,SNU0     IF TYPE[DI] = II ! IV                               MCG         4055     A     
 MCG                PL     X4,SNU1     IF TYPE[DI] = I                                     MCG         4056     A     
 MCG                                                                                       MCG         4057     A     
 MCG                SA3    "DI"-B1     R2 = DI - 1                                         MCG         4058     A     
 MCG                LX4    1+D.TYP-D.^DP                                                   MCG         4059     A     
 MCG                LX3    -IH.RFP                                                         MCG         4060     A     
 MCG                BX5    "RN"X3      RNUMS = RF[R2]                                      MCG         4061     A     
 MCG                PL     X4,SNU2     IF DEF[DI]                                          MCG         4062     A     
 MCG                SA3    A3-B1       R1 = R2 - 1                                         MCG         4063     A     
 MCG                LX5    R1.RIL                                                          MCG         4064     A     
 MCG                BX2    "RN"X3                                                          MCG         4065     A     
 MCG                IX5    X2+X5       RNUMS = SHIFT( RNUMS , 16) ! RI[R1]                 MCG         4066     A     
 MCG                EQ     SNU2                                                            MCG         4067     A     
 MCG                                                                                       MCG         4068     A     
 MCG       SNU1     LX4    2+D.TYP-D.TYIOP                                                 MCG         4069     A     
 MCG                MX6    -D.TYIOL                                                        MCG         4070     A     
 MCG                SA5    "DI"-2      R1 = DI - 2                                         MCG         4071     A     
 MCG                BX7    -X6*X4                                                          MCG         4072     A     
 MCG                SA3    SNUB+X7                                                         MCG         4073          I
          -FCC0719
 MCG                SA3    TYIOM+X7                                                        FCC0719        5     A     
 MCG                UX2    B2,X3                                                           MCG         4074     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3470    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                BX1    X2*X5                                                           MCG         4075     A     
 MCG                AX5    B2,X1       RNUMS = TYIO[R1,DI]                                 MCG         4076     A     
 MCG                NZ     X7,SNU2     IF TYIO[DI] " 0  */ NOT RJ,RK CASE                  MCG         4077     A     
 MCG                AX6    B2,X5                                                           MCG         4078     A     
 MCG                BX7    X6-X5                                                           MCG         4079     A     
 MCG                BX3    "RN"X7                                                          MCG         4080     A     
 MCG                NZ     X3,SNU2     IF RJ[R1] " RK[R1]                                  MCG         4081     A     
 MCG                AX5    B2,X5       RNUMS = RJ[R1]                                      MCG         4082     A     
 MCG                                                                                       MCG         4083     A     
 MCG       SNU2     SA3    O.TREE                                                          MCG         4084     A     
 MCG                MX1    -I.USESL                                                        MCG         4085     A     
 MCG                SB6    X3                                                              MCG         4086     A     
 MCG                IX7    X7-X7       UOR = 0                                             MCG         4087     A     
 MCG                LX1    I.USESP                                                         MCG         4088     A     
 MCG                MX4    -I.INDXL                                                        MCG         4089     A     
 MCG                                                                                       MCG         4090     A     
 MCG      *         SET *TXT* INDEX OF NEXT USE OF OPERANDS IN *RVT*                       MCG         4091     A     
 MCG                                                                                       MCG         4092     A     
 MCG       SNU3     BX6    "RN"X5      R = RI[RNUMS]                                       MCG         4093     A     
 MCG                ZR     X6,SNU5     IF R = 0                                            MCG         4094     A     
 MCG                SA3    "TB"+X6     L = BASE + R                                        MCG         4095     A     
 MCG                BX2    -X1*X3                                                          MCG         4096     A     
 MCG                ZR     X2,SNU5     IF USES[L] = 0                                      MCG         4097     A     
 MCG                                                                                       MCG         4098     A     
 MCG      *         SEARCH *SIT* TO FIND FIRST UNISSUED SUCCESSOR OF OPERAND               MCG         4099     A     
 MCG                                                                                       MCG         4100     A     
 MCG                LX3    -I.INDXP                                                        MCG         4101     A     
 MCG                BX6    -X4*X3                                                          MCG         4102     A     
 MCG                LX3    I.INDXP-I.REGP                                                  MCG         4103     A     
 MCG                SA2    B6+X6       UI = O.TREE + INDX[L]                               MCG         4104     A     
 MCG                SX6    X3          REGNO = REG[L]                                      MCG         4105     A     
 MCG       SNU4     LX2    -U.SUCCP                                                        MCG         4106     A     
 MCG                SA3    "TB"+X2     SI = BASE + SUCC[UI]                                MCG         4107     A     
 MCG                LX3    59-I.IIP                                                        MCG         4108     A     
 MCG                SA2    A2+B1       UI = UI + 1                                         MCG         4109          I
          -FCC0448
 MCG                MI     X3,SNU4     IF II[SI]                                           MCG         4110          I
          -FCC0448
 MCG                LX2    59-U.RDLP+U.SUCCP                                               FCC0448      154     A     
 MCG                BX3    X2+X3                                                           FCC0448      155     A     
 MCG                SA2    A2+B1       UI = UI + 1                                         FCC0448      156     A     
 MCG                MI     X3,SNU4     IF II[SI] ! RDL[UI-1]                               FCC0448      157     A     
 MCG                                                                                       MCG         4111     A     
 MCG                SA2    RVT+X6                                                          MCG         4112     A     
 MCG                LX7    18                                                              MCG         4113     A     
 MCG                IX7    X6+X7       UOR = SHIFT( UOR , 18 ) ! REGNO                     MCG         4114     A     
 MCG                LX2    -RV.NUP                                                         MCG         4115     A     
 MCG                SX6    A3-"TB"                                                         MCG         4116     A     
 MCG                BX3    X0*X2                                                           MCG         4117     A     
 MCG                IX6    X6+X3       NU[ RVT(REGNO) ] = SUCC[UI-1]                       MCG         4118     A     
 MCG                LX6    RV.NUP                                                          MCG         4119     A     
 MCG                SA6    A2                                                              MCG         4120     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3471    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                                                                                       MCG         4121     A     
 MCG       SNU5     AX5    R1.RIL      RNUMS = SHIFT( RNUMS , - 16 )                       MCG         4122     A     
 MCG                NZ     X5,SNU3     IF RNUMS " 0                                        MCG         4123     A     
 MCG                                                                                       MCG         4124     A     
 MCG      *         CHECK FOR STORES AND OPS THAT *PRS*, ADJUST APPROPIATE FLAGS           MCG         4125     A     
 MCG                                                                                       MCG         4126     A     
 MCG       SNU6     S"DI"  "DI"                                                            MCG         4127     A     
 MCG                SA1    SNUA                                                            MCG         4128     A     
 MCG                BX6    X1*X4                                                           MCG         4129     A     
 MCG                ZR     X6,SNU      IF ST[DI] & PRS[DI] = 0                             MCG         4130     A     
 MCG                LX4    59-D.STP                                                        MCG         4131     A     
 MCG                MI     X4,SNU7     IF ST[DI]                                           MCG         4132     A     
 MCG                                                                                       MCG         4133     A     
 MCG                SA5    "DI"+2      R1RS = DI + 2                                       MCG         4134     A     
 MCG                BX6    "RN"X5                                                          MCG         4135     A     
 MCG                LX5    -R1.SOP                                                         MCG         4136     A     
 MCG                MX1    -SO.RTL-SO.RNL                                                  MCG         4137     A     
 MCG                BX3    -X1*X5      RN = SOREG[R1RS]                                    MCG         4138     A     
 MCG                SX2    X3-8                                                            MCG         4139     A     
 MCG                PL     X2,SNU      IF RN > 7     */ IF NOT A B-REGISTER                MCG         4140     A     
 MCG                SA6    LRN+X3      LRN(RN) = R   */ SAVE LAST R-NUMBER IN B-REG        MCG         4141     A     
 MCG                EQ     SNU                                                             MCG         4142     A     
 MCG                                                                                       MCG         4143     A     
 MCG       SNU7     SA1    ISC                                                             MCG         4144     A     
 MCG                MX3    -I.LINKL                                                        MCG         4145     A     
 MCG                SA5    "DI"+B1     L = DI + 1                                          MCG         4146     A     
 MCG                BX2    X3*X5                                                           MCG         4147     A     
 MCG                BX6    X2+X1       LINK[L] = ISC */ POINT THIS TO LAST                 MCG         4148     A     
 MCG                SA6    A5                                                              MCG         4149     A     
 MCG                SX6    A5-"TB"                                                         MCG         4150     A     
 MCG                SA6    A1          ISC = L - BASE  */ CHAIN POINTS TO THIS             MCG         4151     A     
 MCG                                                                                       MCG         4152     A     
 MCG      *         ADJUST *PS* BIT FOR THE *RI* IN THE STORE                              MCG         4153     A     
 MCG                                                                                       MCG         4154     A     
 MCG                SA1    "DI"-2      R1 = DI - 2                                         MCG         4155     A     
 MCG                BX6    "RN"X1      R = RI[R1]                                          MCG         4156          I
          -FCC0393
 MCG                SA5    "TB"+X6     L = BASE + R                                        MCG         4157          I
          -FCC0393
 MCG                BX4    "RN"X1      R = RI[R1]                                          FCC0393       34     A     
 MCG                SA5    "TB"+X4     L = BASE + R                                        FCC0393       35     A     
 MCG                MX6    -I.INDXL                                                        MCG         4158     A     
 MCG                SA3    O.TREE                                                          MCG         4159     A     
 MCG                LX5    -I.INDXP                                                        MCG         4160     A     
 MCG                SB2    X3                                                              MCG         4161     A     
 MCG                BX2    -X6*X5                                                          MCG         4162     A     
 MCG                SA3    B2+X2       UI = O.TREE + INDX[L]                               MCG         4163     A     
 MCG                                                                                       MCG         4164     A     
 MCG       SNU9     LX3    -U.SUCCP                                                        MCG         4165     A     
 MCG                SA2    "TB"+X3     SI = BASE + SUCC[UI]                                MCG         4166     A     
 MCG                LX2    59-I.IIP                                                        MCG         4167     A     
 MCG                MI     X2,SNU10    IF II[SI]                                           MCG         4168     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3472    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA1    A2-3        R1S = SI - 3                                        FCC0393       36     A     
 MCG                BX2    X1-X4                                                           FCC0393       37     A     
 MCG                BX6    "RN"X2                                                          FCC0393       38     A     
 MCG                NZ     X6,SNU10    IF RI[R1S] " R                                      FCC0393       39     A     
 MCG                SA1    A2-B1       D = SI - 1                                          MCG         4169     A     
 MCG                LX1    59-D.STP                                                        MCG         4170     A     
 MCG       #DAL     IFEQ   .DAL,0                                                          MCG         4171     A     
 MCG                MI     X1,SNU      IF ST[DI]     */ AN UNISSUED STORE                  MCG         4172     A     
 MCG       #DAL     ELSE                                                                   MCG         4173     A     
 MCG                PL     X1,SNU10    IF ^ST[DI]                                          MCG         4174     A     
 MCG                LX1    D.STP-D.L2P                                                     MCG         4175     A     
 MCG                PL     X1,SNU      IF ^L2[DI]                                          MCG         4176     A     
 MCG       #DAL     ENDIF                                                                  MCG         4177     A     
 MCG       SNU10    LX3    U.SUCCP+59-U.LASTP                                              MCG         4178     A     
 MCG                BX6    X3          UL = UI                                             MCG         4179     A     
 MCG                SA3    A3+B1       UI = UI + 1                                         MCG         4180     A     
 MCG                PL     X6,SNU9     IF ^LAST[UL]                                        MCG         4181     A     
 MCG                                                                                       MCG         4182     A     
 MCG                SA5    A5-B1       D = L - 1                                           MCG         4183     A     
 MCG                SX4    B1                                                              MCG         4184     A     
 MCG                LX4    D.PSP                                                           MCG         4185     A     
 MCG                BX6    -X4*X5      PS[D] = 0     */ CLEAR *PS* BIT                     MCG         4186     A     
 MCG                SA6    A5                                                              MCG         4187     A     
 MCG                EQ     SNU                                                             MCG         4188     A     
 MCG                                                                                       MCG         4189     A     
 MCG       SNUA     BFMW   D,(PRS,ST)                                                      MCG         4190     A     
 MCG       TGL      EJECT                                                                  FCC2207      173     A     
 MCG                TITLE  TGL - TOGGLE TWO REGISTERS.                                     FCC2207      174     A     
 MCG      **        TGL - THIS ROUTINE WILL BE INOLKED BEFORE UJR                          FCC2207      175     A     
 MCG      *         TRIES TO STORE OUT A REGISTER.  BASICALLY IT WILL                      FCC2207      176     A     
 MCG      *         CHECK TO SEE IF R0 IS AN OPERAND OF T0.  IF THIS                       FCC2207      177     A     
 MCG      *         HAPPENS R0 WILL NOT BE STORED TO MEMORY BUT WILL                       FCC2207      178     A     
 MCG      *         BE SIMPLY TOGGLED WITH AN AVAILABLE REGISTER OF THE                    FCC2207      179     A     
 MCG      *         CLASS SOUGHT BY T0.  THIS MODULE IS AN ANSWER TO                       FCC2207      180     A     
 MCG      *         FCC2207 WHERE SRM OF R0 REMOVED T0 FROM THE ISSUE                      FCC2207      181     A     
 MCG      *         CANDIDATE LIST.                                                        FCC2207      182     A     
 MCG      *                                                                                FCC2207      183     A     
 MCG      *         ENTRY  (B3) = REGNO CURRENTLY ASSIGNED TO R0                           FCC2207      184     A     
 MCG      *                (T0) = INSTRUCTION TO BE ISSUED                                 FCC2207      185     A     
 MCG      *                (R0) = RESULT TO BE STORED                                      FCC2207      186     A     
 MCG      *                (CLASS) = CLASS BITS FOR T0                                     FCC2207      187     A     
 MCG                                                                                       FCC2207      188     A     
 MCG      *         EXIT   (B4) = REGNO. TOGGLED WITH R0 (= 0 NO TOGGLE)                   FCC2207      189     A     
 MCG                                                                                       FCC2207      190     A     
 MCG      *         MAINTAINS B3,T0,CLASS,R0                                               FCC2207      191     A     
 MCG                                                                                       FCC2207      192     A     
 MCG       RTGL     BSS    1                                                               FCC2207      193     A     
 MCG                                                                                       FCC2207      194     A     
 MCG       TGL      ROUTINE                                                                FCC2207      195     A     
 MCG                                                                                       FCC2207      196     A     
 MCG      *         FIND OPERANDS OF T0.                                                   FCC2207      197     A     
 MCG                                                                                       FCC2207      198     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3473    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SB4    B0                                                              FCC2207      199     A     
 MCG                SA2    T0                                                              FCC2207      200     A     
 MCG                RJ     GOR         GET OPERAND ROUTINE                                 FCC2207      201     A     
 MCG                                                                                       FCC2207      202     A     
 MCG      *         LOOK IN OPERAND LIST FOR R0.                                           FCC2207      203     A     
 MCG                                                                                       FCC2207      204     A     
 MCG                SX1    B3                                                              FCC2207      205     A     
 MCG       TGL20    ZR     X7,TGL      IF ROP = 0  */EXIT                                  FCC2207      206     A     
 MCG                BX5    X1-X7                                                           FCC2207      207     A     
 MCG                SX6    X5                                                              FCC2207      208     A     
 MCG                ZR     X6,TGL40    IF ROP = REGR0                                      FCC2207      209     A     
 MCG                AX7    18                                                              FCC2207      210     A     
 MCG                EQ     TGL20                                                           FCC2207      211     A     
 MCG                                                                                       FCC2207      212     A     
 MCG      *         R0 IS AN OPERAND OF T0 - TOGGLE IT.                                    FCC2207      213     A     
 MCG      *         CHECK IF R0 HAS MORE THAN ONE USE - IF SO FORGET IT.                   FCC2207      214     A     
 MCG                                                                                       FCC2207      215     A     
 MCG       TGL40    SA1    R0                                                              FCC2207      216     A     
 MCG                BX1    "RN"X1                                                          FCC2207      217     A     
 MCG                SA5    "TB"+X1     LT = BASE + R0                                      FCC2207      218     A     
 MCG                MX7    -I.USESL                                                        FCC2207      219     A     
 MCG                LX5    59-I.USESP                                                      FCC2207      220     A     
 MCG                BX6    -X7*X5                                                          FCC2207      221     A     
 MCG                NZ     X6,*+1S17   IF USES[LT] > 1 BLOWUP                              FCC2207      222     A     
 MCG                                                                                       FCC2207      223     A     
 MCG      *         FIND A REGISTER TO TOGGLE WITH R0.                                     FCC2207      224     A     
 MCG                                                                                       FCC2207      225     A     
 MCG                SA3    CLASS                                                           FCC2207      226     A     
 MCG                SA2    LXR                                                             FCC2207      227     A     
 MCG                BX7    -X2*X3      TRV = ^LXR & CLASS                                  FCC2207      228     A     
 MCG                ZR     X7,*+1S17   IF TRV = 0 BLOWUP                                   FCC2207      229     A     
 MCG                NX6    B4,X7                                                           FCC2207      230     A     
 MCG                SA3    B4+FXRA+16-47                                                   FCC2207      231     A     
 MCG                SB4    X3          REGTGL = FIRST TRV                                  FCC2207      232     A     
 MCG                                                                                       FCC2207      233     A     
 MCG      *         MAKE R0 UNAVAILABLE AND RESTORE RVT(REGR0)                             FCC2207      234     A     
 MCG                                                                                       FCC2207      235     A     
 MCG                SA2    RBV+B3                                                          FCC2207      236     A     
 MCG                SA3    AXR                                                             FCC2207      237     A     
 MCG                SX7    X1                                                              FCC2207      238     A     
 MCG                BX6    X3-X2                                                           FCC2207      239     A     
 MCG                SA7    RVT+B3      RVT(REGRO) = R0                                     FCC2207      240     A     
 MCG                SA6    A3          MAKE REGRO UNAVAIL.                                 FCC2207      241     A     
 MCG                                                                                       FCC2207      242     A     
 MCG      *         TOGGLE REGTGL AND R0.                                                  FCC2207      243     A     
 MCG      *         OUTPUT THE FOLLOWING SEQUENCE.                                         FCC2207      244     A     
 MCG      *         XOR    R0,R0,RTGL                                                      FCC2207      245     A     
 MCG      *         XOR    RTGL,R0,RTGL                                                    FCC2207      246     A     
 MCG      *         XOR    R0,R0,RTGL                                                      FCC2207      247     A     
 MCG                                                                                       FCC2207      248     A     
 MCG                SA2    RVT+B4                                                          FCC2207      249     A     
 MCG                PX7    B3,X1                                                           FCC2207      250     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3474    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                BX2    "RN"X2                                                          FCC2207      251     A     
 MCG                PX6    B4,X2                                                           FCC2207      252     A     
 MCG                SA7    A1                                                              FCC2207      253     A     
 MCG                SA6    RTGL                                                            FCC2207      254     A     
 MCG                SB2    OC.XOR                                                          FCC2207      255     A     
 MCG                SA3    =XF.RDT+B2                                                      FCC2207      256     A     
 MCG                BX1    "RN"X1      R0                                                  FCC2207      257     A     
 MCG                BX2    "RN"X2      RTGL                                                FCC2207      258     A     
 MCG                LX1    R1.RJP                                                          FCC2207      259     A     
 MCG                LX2    R1.RKP                                                          FCC2207      260     A     
 MCG                BX7    X1+X2                                                           FCC2207      261     A     
 MCG                PX6    B2,X7                                                           FCC2207      262     A     
 MCG                MX7    0                                                               FCC2207      263     A     
 MCG                SA6    DRI         DRI(0) = TYI(OC.XOR,R0,RTGL,0)                      FCC2207      264     A     
 MCG                SA7    A6+B1       DRI(1) = 0                                          FCC2207      265     A     
 MCG                BX6    X3                                                              FCC2207      266     A     
 MCG                SA6    A7+B1       DRI(2) = FX.RDT(OC.XOR)                             FCC2207      267     A     
 MCG                SA4    A6                                                              FCC2207      268     A     
 MCG                SX7    B3                                                              FCC2207      269     A     
 MCG                SA7    A4+B1       DRI(3) = REGR0                                      FCC2207      270     A     
 MCG                RJ     OEI         ISSUE XOR REGR0,R0,RTGL                             FCC2207      271     A     
 MCG                SA1    R0                                                              FCC2207      272     A     
 MCG                SA2    RTGL                                                            FCC2207      273     A     
 MCG                UX6    B4,X1                                                           FCC2207      274     A     
 MCG                UX7    B3,X2                                                           FCC2207      275     A     
 MCG                SA4    DRI+2                                                           FCC2207      276     A     
 MCG                SX7    B3                                                              FCC2207      277     A     
 MCG                SA7    A4+B1       DRI(3) = REGR0                                      FCC2207      278     A     
 MCG                RJ     OEI         ISSUE XOR REGTGL,R0,RTGL                            FCC2207      279     A     
 MCG                SA1    R0                                                              FCC2207      280     A     
 MCG                SA2    RTGL                                                            FCC2207      281     A     
 MCG                UX6    B3,X1                                                           FCC2207      282     A     
 MCG                UX7    B4,X2                                                           FCC2207      283     A     
 MCG                SA4    DRI+2                                                           FCC2207      284     A     
 MCG                SX7    B3                                                              FCC2207      285     A     
 MCG                SA7    A4+B1       DRI(3) = REGTGL                                     FCC2207      286     A     
 MCG                RJ     OEI         ISSUE XOR REGR0,R0,RTGL                             FCC2207      287     A     
 MCG                                                                                       FCC2207      288     A     
 MCG      *         TOGGLE RVT ENTRIES AND LINK WORDS.                                     FCC2207      289     A     
 MCG                                                                                       FCC2207      290     A     
 MCG                SA1    R0                                                              FCC2207      291     A     
 MCG                SA2    RTGL                                                            FCC2207      292     A     
 MCG                UX3    B3,X1       (B3) = REGR0                                        FCC2207      293     A     
 MCG                UX4    B4,X2       (B4) = REGTGL                                       FCC2207      294     A     
 MCG                SA1    RVT+B3                                                          FCC2207      295     A     
 MCG                SA2    RVT+B4                                                          FCC2207      296     A     
 MCG                BX6    X1                                                              FCC2207      297     A     
 MCG                BX7    X2                                                              FCC2207      298     A     
 MCG                SA6    A2          RVT(REGR0) = RVT(REGTGL)                            FCC2207      299     A     
 MCG                SA7    A1          RVT(REGTGL) = RVT(REGR0)                            FCC2207      300     A     
 MCG                SA1    "TB"+X3     LIR0 = BASE + R0                                    FCC2207      301     A     
 MCG                SA2    "TB"+X4     LIRTGL = BASE + RTGL                                FCC2207      302     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3475    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                BX6    X2                                                              FCC2207      303     A     
 MCG                BX7    X1                                                              FCC2207      304     A     
 MCG                SA6    A1          LIR0 = LIRTGL                                       FCC2207      305     A     
 MCG                SA7    A2          LIRTGL = LIR0                                       FCC2207      306     A     
 MCG                                                                                       FCC2207      307     A     
 MCG      *         RETURN                                                                 FCC2207      308     A     
 MCG                EQ     TGL                                                             FCC2207      309     A     
 MCG       SNUB     VFD    12/2020B,16/-1,16/-1,16/0                                       MCG         4191          I
          -FCC0719
 MCG                VFD    12/2020B,16/0,16/-1,16/0                                        MCG         4192          I
          -FCC0719
 MCG                VFD    12/2000B,32/0,16/-1   SDS,SST , IGNORE RJ AND RK                MCG         4193          I
          -FCC0719
 MCG       SRM      TITLE  SRM - SAVE RESULT IN MEMORY                                     MCG         4194     A     
 MCG      **        SRM - SAVE RESULT IN MEMORY AND SET FOR RELOAD OF INSTRUCTION          MCG         4195     A     
 MCG      *                                                                                MCG         4196     A     
 MCG      *         ENTRY  (B3) = REGNO , OF REGISTER TO BE STORED OUT                     MCG         4197     A     
 MCG      *                (R0) = *TXT* INDEX OF INSTRUCTION                               MCG         4198     A     
 MCG      *                (T0) = *TXT* INDEX OF INSTRUCTION TO ISSUE                      MCG         4199     A     
 MCG                                                                                       MCG         4200     A     
 MCG       SRM      ROUTINE                                                                MCG         4201     A     
 MCG                SA1    R0                                                              MCG         4202     A     
 MCG                SA2    O.TREE                                                          MCG         4203     A     
 MCG                SA5    "TB"+X1     LI = BASE + R0                                      MCG         4204     A     
 MCG                MX7    -I.INDXL                                                        MCG         4205     A     
 MCG                SB2    X2                                                              MCG         4206     A     
 MCG                LX5    -I.INDXP                                                        MCG         4207     A     
 MCG                BX6    -X7*X5                                                          MCG         4208     A     
 MCG                SA4    A5-B1       DI = LI - 1                                         MCG         4209     A     
 MCG                SB6    B2+X6       U0 = O.TREE + INDX[LI]                              MCG         4210     A     
 MCG                LX4    59-D.EQVP                                                       MCG         4211     A     
 MCG                PL     X4,SRM3     IF ^EQV[DI]   */ NO EQUIV LINKS                     MCG         4212     A     
 MCG                                                                                       MCG         4213     A     
 MCG      *         INSTRUCTION IS A PREDECESSOR OF INTERFERING STORES, REMOVE             MCG         4214     A     
 MCG      *         THE LOGICAL LINKS FROM *SIT*                                           MCG         4215     A     
 MCG                                                                                       MCG         4216     A     
 MCG                SA3    B6          UI = U0                                             MCG         4217     A     
 MCG                SB5    B6          US = U0                                             MCG         4218     A     
 MCG                                                                                       MCG         4219     A     
 MCG       SRM1     BX6    X3          UL = [UI]                                           MCG         4220     A     
 MCG                LX3    59-U.EQVP                                                       MCG         4221     A     
 MCG                MI     X3,SRM2     IF EQV[UI]                                          MCG         4222     A     
 MCG                SA6    B5+         [US] = UL                                           MCG         4223     A     
 MCG                SB5    B5+1        US = US + 1                                         MCG         4224     A     
 MCG       SRM2     SA3    A3+B1       UI = UI + 1                                         MCG         4225     A     
 MCG                LX6    59-U.LASTP                                                      MCG         4226     A     
 MCG                PL     X6,SRM1     IF ^LAST[UL]                                        MCG         4227     A     
 MCG                                                                                       MCG         4228     A     
 MCG                SA3    B5-B1                                                           MCG         4229     A     
 MCG                MX7    1                                                               MCG         4230     A     
 MCG                LX7    1+U.LASTP                                                       MCG         4231     A     
 MCG                BX6    X7+X3       LAST[US-1] = 1                                      MCG         4232     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3476    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA6    A3+                                                             MCG         4233     A     
 MCG                                                                                       MCG         4234     A     
 MCG      *         SEARCH SUCCESSORS OF *R0* FOR AN ISSUED STORE TO A                     MCG         4235     A     
 MCG      *         *CHEIP* ADDRESS.                                                       MCG         4236     A     
 MCG                                                                                       MCG         4237     A     
 MCG       SRM3     SA3    B6          UI = U0                                             MCG         4238     A     
 MCG                SA1    SRMA                                                            MCG         4239     A     
 MCG                R=     B6,59-U.LASTP+U.SUCCP                                           MCG         4240     A     
 MCG                SB2    59-D.STP                                                        MCG         4241     A     
 MCG                SB5    IH.RFP                                                          MCG         4242     A     
 MCG                                                                                       MCG         4243     A     
 MCG       SRM4     LX3    -U.SUCCP                                                        MCG         4244     A     
 MCG                SA5    "TB"+X3     SI = BASE + SUCC[UI]                                MCG         4245     A     
 MCG                LX5    59-I.IIP                                                        MCG         4246     A     
 MCG                PL     X5,SRM6     IF ^II[SI]    */ NOT ISSUED                         MCG         4247     A     
 MCG                SA4    A5-B1       DI = LI - 1                                         MCG         4248     A     
 MCG                LX6    B2,X4                                                           MCG         4249     A     
 MCG                PL     X6,SRM6     IF ^ST[DI]                                          MCG         4250     A     
 MCG                BX7    X1*X4                                                           MCG         4251     A     
 MCG                NZ     X7,SRM6     IF FP[DI] ! L2[DI] ! EQV[DI]                        MCG         4252     A     
 MCG                SA2    A4-B1       R2 = DI - 1                                         MCG         4253     A     
 MCG                AX7    B5,X2                                                           MCG         4254     A     
 MCG                SB4    X7                                                              MCG         4255     A     
 MCG                GE     B4,B1,SRM6  IF RF[R2] > 1                                       MCG         4256     A     
 MCG                LX4    58-D.TYP                                                        MCG         4257     A     
 MCG                MI     X4,SRM8     IF TYPE[DI] = III                                   MCG         4258     A     
 MCG                                                                                       MCG         4259     A     
 MCG       SRM6     LX6    B6,X3       UL = [UI]                                           MCG         4260     A     
 MCG                SA3    A3+B1       UI = UI + 1                                         MCG         4261     A     
 MCG                PL     X6,SRM4     IF ^LAST[UL]                                        MCG         4262     A     
 MCG                                                                                       MCG         4263     A     
 MCG                RJ     OTS         OUTPUT A TEMP STORE                                 MCG         4264     A     
 MCG                                                                                       MCG         4265     A     
 MCG       SRM7     SA2    T0                                                              MCG         4266     A     
 MCG                ZR     X2,SRM7A    IF T0 = 0     */ NO INSTRUCTION TO ISSUE            MCG         4267     A     
 MCG                RJ     ISI         ISSUE SELECTED INSTRUCTION                          MCG         4268     A     
 MCG                SA7    UOR                                                             MCG         4269          I
          -FCC0584
 MCG                                                                                       MCG         4270     A     
 MCG       SRM7A    SA1    R0                                                              MCG         4271     A     
 MCG                RJ     GLI         GENERATE A *LD* OF SAVED RESULT                     MCG         4272     A     
 MCG                EQ     SRM                                                             MCG         4273     A     
 MCG                                                                                       MCG         4274     A     
 MCG       SRM8     BX6    X2                                                              MCG         4275     A     
 MCG                SA6    DRI+1       DRI(2) = [R2]                                       MCG         4276     A     
 MCG                EQ     SRM7                                                            MCG         4277     A     
 MCG                                                                                       MCG         4278     A     
 MCG       SRMA     BFMW   D,(FP,L2,EQV)                                                   MCG         4279     A     
 MCG       GOT      TITLE  GOT - GET OT. ORDINAL                                           MCG         4280     A     
 MCG      **        GOT - GET OT. CELL ( TEMPORARY LOCATION ) FOR STORE TO TEMP            MCG         4281     A     
 MCG      *                                                                                MCG         4282     A     
 MCG      *         ENTRY  (X5) = RN , R-NUMBER TO BE SAVED IN THE OT.                     MCG         4283     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3477    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG      *                                                                                MCG         4284     A     
 MCG      *         EXIT   (X6) = IHWORD ( R2 ) OF AN AVAILABLE LOCATION                   MCG         4285     A     
 MCG                                                                                       MCG         4286     A     
 MCG       GOT      ROUTINE                                                                MCG         4287     A     
 MCG                SA1    M.OT                                                            MCG         4288     A     
 MCG                SA2    L.OTI                                                           MCG         4289     A     
 MCG                IX6    X1-X2                                                           MCG         4290     A     
 MCG                MI     X6,GOT1     IF M.OT < L.OTI                                     MCG         4291     A     
 MCG                ALLOC  OTI,30B     ALLOC( OTI , 30B )                                  MCG         4292     A     
 MCG                RJ     AIP         ADJUST *PIT* POINTERS                               MCG         4293     A     
 MCG                SA1    M.OT                                                            MCG         4294     A     
 MCG                                                                                       MCG         4295     A     
 MCG       GOT1     SA2    O.OTI                                                           MCG         4296     A     
 MCG                SB2    X1                                                              MCG         4297     A     
 MCG                MX7    -I.USESL                                                        MCG         4298     A     
 MCG                SA3    X2-1        OI = O.OTI - 1                                      MCG         4299     A     
 MCG                SA7    X2+B2       [O.OTI+M.OT] = -0  */ SEARCH TERMINATOR             MCG         4300     A     
 MCG                LX7    I.USESP                                                         MCG         4301     A     
 MCG                                                                                       MCG         4302     A     
 MCG      *         SEARCH FOR AN OT. CELL THAT IS NO LONGER BEING USED                    MCG         4303     A     
 MCG                                                                                       MCG         4304     A     
 MCG       GOT2     SA3    A3+B1       OI = OI + 1                                         MCG         4305     A     
 MCG                MI     X3,GOT3     IF [OI] < 0   */ END OF TABLE                       MCG         4306     A     
 MCG                SA2    "TB"+X3     LI = BASE + RI[OI]                                  MCG         4307     A     
 MCG                BX1    -X7*X2                                                          MCG         4308     A     
 MCG                NZ     X1,GOT2     IF USES[LI] " 0                                     MCG         4309     A     
 MCG                                                                                       MCG         4310     A     
 MCG                UX3    B2,X3       CA = UEXP(OI)                                       MCG         4311     A     
 MCG                EQ     GOT4                                                            MCG         4312     A     
 MCG                                                                                       MCG         4313     A     
 MCG       GOT3     SX6    B2+B1       CA = M.OT                                           MCG         4314     A     
 MCG                SA6    M.OT        M.OT = CA + 1                                       MCG         4315     A     
 MCG                                                                                       MCG         4316     A     
 MCG       GOT4     PX7    B2,X5                                                           MCG         4317     A     
 MCG                SA4    =XOT.                                                           MCG         4318     A     
 MCG                SX6    B2                                                              MCG         4319     A     
 MCG                SA7    A3          [OI] = PACK( CA , R-NUM )                           MCG         4320     A     
 MCG                LX6    IH.CAP                                                          MCG         4321     A     
 MCG                LX4    IH.IHP                                                          MCG         4322     A     
 MCG                BX6    X4+X6       IHWORD = IHW(0,CA,IH)                               MCG         4323     A     
 MCG                EQ     GOT                                                             MCG         4324     A     
 MCG       SRM      SPACE  3                                                               MCG         4325     A     
 MCG       OTS      TITLE  OTS - OUTPUT TEMP STORE                                         MCG         4326     A     
 MCG      **        OTS - OUTPUT TEMP STORE                                                MCG         4327     A     
 MCG      *                                                                                MCG         4328     A     
 MCG      *         ENTRY  (B3) = REGNO OF REGISTER TO BE STORED OUT                       MCG         4329     A     
 MCG      *                (R0) = TXT INDEX OF INSTRUCTION                                 MCG         4330     A     
 MCG      *                                                                                MCG         4331     A     
 MCG      *         EXIT   (DRI+1) = IH WORD OF SAVED RESULT                               MCG         4332     A     
 MCG                                                                                       MCG         4333     A     
 MCG       OTS      ROUTINE                                                                MCG         4334     A     
 MCG                SB2    OC.ST                                                           MCG         4335     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3478    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA5    R0          R = [R0]                                            MCG         4336     A     
 MCG                SA2    =XF.RDT+B2                                                      MCG         4337     A     
 MCG                PX6    B2,X5                                                           MCG         4338     A     
 MCG                SX4    B1                                                              MCG         4339     A     
 MCG                SA6    DRI         DRI(0) = TYII(OC.ST,0,0,R)                          MCG         4340     A     
 MCG                LX4    D.SRP                                                           MCG         4341     A     
 MCG                BX7    X4+X2                                                           MCG         4342     A     
 MCG                SA7    A6+2        DRI(2) = F.RDT(OC.ST) ! SR                          MCG         4343     A     
 MCG                SX6    B3                                                              MCG         4344     A     
 MCG                SA6    A7+B1       DRI(3) = REGNO                                      MCG         4345     A     
 MCG                RJ     GOT         DRI(1) = GOT(R)                                     MCG         4346     A     
 MCG                S"DI"  DRI+2       DI = DRI(2)                                         MCG         4347     A     
 MCG                SA5    A4+B1                                                           MCG         4348     A     
 MCG                SB3    X5                                                              MCG         4349     A     
 MCG                SA6    A4-B1                                                           MCG         4350     A     
 MCG                SB4    X5                                                              MCG         4351     A     
 MCG                RJ     OEI         OUTPUT THE INSTRUCTION                              MCG         4352     A     
 MCG                EQ     OTS                                                             MCG         4353     A     
 MCG       GLI      SPACE  3                                                               MCG         4354     A     
 MCG      **        GLI - GENERATE A *LD* OF A SAVED RESULT                                MCG         4355     A     
 MCG      *                                                                                MCG         4356     A     
 MCG      *         ENTRY  (X1) = R , *TXT* INDEX OF INSTRUCTION                           MCG         4357     A     
 MCG      *                (DRI+1) = IH WORD OF SAVED RESULT                               MCG         4358     A     
 MCG                                                                                       MCG         4359     A     
 MCG       GLI      ROUTINE                                                                MCG         4360     A     
 MCG                RJ     RIL         RESET R FOR REISSUE                                 MCG         4361     A     
 MCG                SB6    "TB"-B1                                                         MCG         4362     A     
 MCG                SA3    DRI+1                                                           MCG         4363     A     
 MCG                S"DI"  B6+B3       DI = BASE-1 + R                                     MCG         4364     A     
 MCG                SB2    OC.LD                                                           MCG         4365          I
          -FCC0584
 MCG                SX5    B3                                                              MCG         4366          I
          -FCC0584
 MCG                SA2    =XIT.                                                           FCC0584       15     A     
 MCG                SB2    OC.LD                                                           FCC0584       16     A     
 MCG                BX7    X2-X3                                                           FCC0584       17     A     
 MCG                SX2    X7                                                              FCC0584       18     A     
 MCG                NZ     X2,GLI1     OC = IF( IH[DRI+1] " IT. ) THEN OC.LD               FCC0584       19     A     
 MCG                SB2    OC.TLD                    ELSE OC.TLD                           FCC0584       20     A     
 MCG       GLI1     SX5    B3                                                              FCC0584       21     A     
 MCG                BX7    X3                                                              MCG         4367     A     
 MCG                SA1    F.RDT+B2                                                        MCG         4368     A     
 MCG                SA2    GLIA                                                            MCG         4369     A     
 MCG                PX6    B2,X5                                                           MCG         4370     A     
 MCG                SA7    "DI"-B1     [DI-1] = [DRI+1]  */ IH WORD                        MCG         4371     A     
 MCG                MX5    -D.STRSL                                                        MCG         4372     A     
 MCG                SA6    A7-B1       [DI-2] = TYII(OC.LD,0,0,R)                          MCG         4373          I
          -FCC0584
 MCG                SA6    A7-B1       [DI-1] = TYII(OC,0,0,R)                             FCC0584       22     A     
 MCG                BX1    X1+X2                                                           MCG         4374     A     
 MCG                LX5    D.STRSP                                                         MCG         4375     A     
 MCG                BX3    -X5*X4                                                          MCG         4376     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3479    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                BX7    X1+X3       [DI] = RDT(OC.LD) ! ZP ! SR ! STRS[DI]              MCG         4377          I
          -FCC0584
 MCG                BX7    X1+X3       [DI] = RDT(OC) ! ZP ! SR ! STRS[DI]                 FCC0584       23     A     
 MCG                SA7    "DI"                                                            MCG         4378     A     
 MCG                LX4    59-D.PSP                                                        MCG         4379     A     
 MCG                PL     X4,GLI      IF ^PS[DI]                                          MCG         4380     A     
 MCG       GLI      SPACE  1,10                                                            MCG         4381     A     
 MCG      *         GENERATE AN *XMT* TO MOVE THE RESULT TO A STORE REGISTER               MCG         4382     A     
 MCG      *         THE STRATEGY IS TO MOVE THE ORIGINAL INSTRUCTION TO THE END            MCG         4383          I
          -FCC0881
 MCG      *         OF *TXT* AND TO REPLACE THE ORIGINAL BY AN *XMT*.                      MCG         4384          I
          -FCC0881
 MCG                                                                                       MCG         4385          I
          -FCC0881
 MCG                SB2    "PI"                                                            MCG         4386          I
          -FCC0881
 MCG                SA5    L.TXT       LT = L.TXT    */ SAVE PREVIOUS LENGTH               MCG         4387          I
          -FCC0881
 MCG                MX3    -I.LINKL                                                        MCG         4388          I
          -FCC0881
 MCG                NZ     B2,GLI2           IF PI " 0                                     MCG         4389          I
          -FCC0881
 MCG                BX6    X5                                                              MCG         4390          I
          -FCC0881
 MCG                SA6    ICL         ICL = LT                                            MCG         4391          I
          -FCC0881
 MCG                EQ     GLI3                                                            MCG         4392          I
          -FCC0881
 MCG       GLI2     SA1    "TB"+B2                                                         MCG         4393          I
          -FCC0881
 MCG                BX2    X3*X1                                                           MCG         4394          I
          -FCC0881
 MCG                IX6    X2+X5       LINK[BASE+PI] = LT                                  MCG         4395          I
          -FCC0881
 MCG                SA6    A1                                                              MCG         4396          I
          -FCC0881
 MCG                                                                                       MCG         4397          I
          -FCC0881
 MCG       GLI3     SX7    B3                                                              MCG         4398          I
          -FCC0881
 MCG                SA7    GLIB                                                            MCG         4399          I
          -FCC0881
 MCG                SA2    SIW                                                             MCG         4400          I
          -FCC0881
 MCG                NZ     X2,GLI4     IF SIW " 0                                          MCG         4401          I
          -FCC0881
 MCG                ALLOC  TREE,1                                                          MCG         4402          I
          -FCC0881
 MCG                SX6    X3-1        SIW = L.TREE - 1                                    MCG         4403          I
          -FCC0881
 MCG                SA6    SIW                                                             MCG         4404          I
          -FCC0881
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3480    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG       GLI4     ALLOC  TXT,4                                                           MCG         4405          I
          -FCC0881
 MCG                RJ     AIP         ADJUST INSTRUCTION POINTERS                         MCG         4406          I
          -FCC0881
 MCG                                                                                       MCG         4407          I
          -FCC0881
 MCG                SA1    GLIB                                                            MCG         4408          I
          -FCC0881
 MCG                SB3    X1                                                              MCG         4409          I
          -FCC0881
 MCG                SB4    X5                                                              MCG         4410          I
          -FCC0881
 MCG                SA3    B3+X2       T0 = O.TXT + R                                      MCG         4411          I
          -FCC0881
 MCG                BX4    X0*X3                                                           MCG         4412          I
          -FCC0881
 MCG                IX6    X4+X5       RI[T0] = LT                                         MCG         4413          I
          -FCC0881
 MCG                SA6    B4+X2       TI = O.TXT + LT;  [TI] = [T0]                       MCG         4414          I
          -FCC0881
 MCG                SA3    A3+B1                                                           MCG         4415          I
          -FCC0881
 MCG                BX7    X3          [TI+1] = [T0+1]                                     MCG         4416          I
          -FCC0881
 MCG                SA7    A6+B1                                                           MCG         4417          I
          -FCC0881
 MCG                MX3    -D.STRSL                                                        MCG         4418          I
          -FCC0881
 MCG                SA4    A3+B1       D0 = T0 + 2                                         MCG         4419          I
          -FCC0881
 MCG                LX3    D.STRSP                                                         MCG         4420          I
          -FCC0881
 MCG                BX6    -X3*X4      S = STRS[D0]                                        MCG         4421          I
          -FCC0881
 MCG                BX7    X3*X4       STRS[D0] = 0                                        MCG         4422          I
          -FCC0881
 MCG                SA7    A7+B1       [TI+2] = [D0]                                       MCG         4423          I
          -FCC0881
 MCG                SA4    A4+B1       L = D0 + 1                                          MCG         4424          I
          -FCC0881
 MCG                SA3    SXBA                                                            MCG         4425          I
          -FCC0881
 MCG                SA2    SIW                                                             MCG         4426          I
          -FCC0881
 MCG                BX7    -X3*X4                                                          MCG         4427          I
          -FCC0881
 MCG                SB5    X2                                                              MCG         4428          I
          -FCC0881
 MCG                LX2    I.INDXP                                                         MCG         4429          I
          -FCC0881
 MCG                SX3    B1                                                              MCG         4430          I
          -FCC0881
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3481    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                BX7    X2+X7       INDX[L] = SIW                                       MCG         4431          I
          -FCC0881
 MCG                LX3    I.USESP                                                         MCG         4432          I
          -FCC0881
 MCG                BX7    X3+X7       USES[L] = 1                                         MCG         4433          I
          -FCC0881
 MCG                SA7    A7+B1       [TI+3] = [L]                                        MCG         4434          I
          -FCC0881
 MCG                LX3    U.LASTP-I.USESP                                                 MCG         4435          I
          -FCC0881
 MCG                SA2    O.TREE                                                          MCG         4436          I
          -FCC0881
 MCG                BX7    X1+X3                                                           MCG         4437          I
          -FCC0881
 MCG                SA7    X2+B5       [O.TREE+SIW] = SIT(1,0,0,R)                         MCG         4438          I
          -FCC0881
 MCG                                                                                       MCG         4439          I
          -FCC0881
 MCG      *         NOW SETUP AN *XMT* WHERE THE ORIGINAL INSTRUCTION WAS                  MCG         4440          I
          -FCC0881
 MCG                                                                                       MCG         4441          I
          -FCC0881
 MCG                SB2    OC.XMT                                                          MCG         4442          I
          -FCC0881
 MCG                SA2    F.RDT+B2                                                        MCG         4443          I
          -FCC0881
 MCG                BX7    X6+X2                                                           MCG         4444          I
          -FCC0881
 MCG                SA7    A4-B1       [T0+2] = RDT(OC.XMT) ! S                            MCG         4445          I
          -FCC0881
 MCG                MX6    0                                                               MCG         4446          I
          -FCC0881
 MCG                SA6    A7-B1       [T0+1] = 0                                          MCG         4447          I
          -FCC0881
 MCG                LX5    R1.RJP                                                          MCG         4448          I
          -FCC0881
 MCG                BX2    X5+X1                                                           MCG         4449          I
          -FCC0881
 MCG                PX7    B2,X2       [T0] = TYI(OC.XMT,LT,0,R)                           MCG         4450          I
          -FCC0881
 MCG                SA7    A6-B1                                                           MCG         4451          I
          -FCC0881
 MCG                SA3    GLIC                                                            MCG         4452          I
          -FCC0881
 MCG                BX4    -X3*X4      IC,RI,LINK[L] = 0                                   MCG         4453          I
          -FCC0881
 MCG                SX5    B1                                                              MCG         4454          I
          -FCC0881
 MCG                IX6    X4+X5       NPRED[L] = 1                                        MCG         4455          I
          -FCC0881
 MCG                SA6    A4                                                              MCG         4456          I
          -FCC0881
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3482    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                                                                                       FCC0881      235     A     
 MCG                SA6    R0          R0 = R                                              FCC0881      236     A     
 MCG                RJ     SXB         SETUP A *XMT* BACK TO THE *ST-REG*                  FCC0881      237     A     
 MCG                EQ     GLI                                                             MCG         4457     A     
 MCG                                                                                       MCG         4458     A     
 MCG       GLIA     BFMW   D,(ZP,SR)                                                       MCG         4459     A     
 MCG       GLIB     BSS    1                                                               MCG         4460          I
          -FCC0881
 MCG       GLIC     BFMW   I,(IC,LINK)                                                     MCG         4461          I
          -FCC0881
 MCG       OEI      TITLE  OEI - OUTPUT EXTRA INSTRUCTION                                  MCG         4462     A     
 MCG      **        OEI - OUTPUT EXTRA INSTRUCTION                                         MCG         4463     A     
 MCG      *                                                                                MCG         4464     A     
 MCG      *         ENTRY  (A4,X4) = DI, [DI] OF DUMMY INSTRUCTION                         MCG         4465     A     
 MCG      *                (B3) = REGNO OF RESULT REG OF INSTRUCTION                       MCG         4466     A     
 MCG      *                (B4) = REGO , REGNO OF OPERAND REGISTER                         MCG         4467     A     
 MCG      *                                                                                MCG         4468     A     
 MCG      *         CALLS  ASC, SII                                                        MCG         4469     A     
 MCG                                                                                       MCG         4470     A     
 MCG       OEI      ROUTINE                                                                MCG         4471     A     
 MCG                SA2    T                                                               MCG         4472     A     
 MCG                SA3    TRA+B4                                                          MCG         4473     A     
 MCG      +         IX6    X2-X3                                                           MCG         4474     A     
 MCG                PL     X6,*+1      T(IS) = MAX( T , TRA(REGO) )                        MCG         4475     A     
 MCG                BX2    X3                                                              MCG         4476     A     
 MCG                LX4    -D.F1P                                                          MCG         4477     A     
 MCG                SB6    "DI"+B1                                                         MCG         4478     A     
 MCG                MX7    -D.F1L                                                          MCG         4479     A     
 MCG                BX6    -X7*X4                                                          MCG         4480     A     
 MCG                SB2    X6                                                              MCG         4481     A     
 MCG                SX1    B6-"TB"                                                         MCG         4482     A     
 MCG                MX5    -18                                                             MCG         4483     A     
 MCG                SB4    X2          T(EX) = T(IS)                                       MCG         4484     A     
 MCG                BX6    -X5*X1                                                          MCG         4485     A     
 MCG                SB5    X2                                                              MCG         4486     A     
 MCG                PX7    B2,X6                                                           MCG         4487     A     
 MCG                SA7    PBI+1       FU[PBI(2)] = F1[DI]                                 MCG         4488     A     
 MCG                LX4    D.F1P                                                           MCG         4489     A     
 MCG                PX6    B3,X2       REG[PBI] = REGNO                                    MCG         4490     A     
 MCG                SA6    A7-B1                                                           MCG         4491     A     
 MCG                RJ     ASC         ADVANCE THE CLOCK                                   MCG         4492     A     
 MCG                SA5    "DI"-2      R1 = DI - 2                                         MCG         4493     A     
 MCG                RJ     SII         SAVE THE INSTRUCTION IN *PIT*                       MCG         4494     A     
 MCG                EQ     OEI                                                             MCG         4495     A     
 MCG       AIS      SPACE  3           AIS                                                 MCG         4496     A     
 MCG      **        AIS - ALLOCATE INSTRUCTION SPACE FOR EXTRA INSTRUCTIONS                MCG         4497     A     
 MCG                                                                                       MCG         4498     A     
 MCG       AIS      ROUTINE                                                                MCG         4499     A     
 MCG                SA1    EIW                                                             MCG         4500     A     
 MCG                SX6    X1+B1       EIW = EIW + 1                                       MCG         4501     A     
 MCG                SA6    A1                                                              MCG         4502     A     
 MCG                MI     X6,AIS      IF EIW < 0                                          MCG         4503     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3483    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
 MCG                SA1    N.INST                                                          MCG         4504     A     
 MCG                AX1    2                                                               MCG         4505     A     
 MCG                BX6    -X1                                                             MCG         4506     A     
 MCG                SA6    A6          EIW = -N.INST/4                                     MCG         4507     A     
 MCG                ALLOC  PIT,X1      ALLOC( PIT , N.INST/4 )                             MCG         4508     A     
 MCG                RJ     AIP         ADJUST POINTERS                                     MCG         4509     A     
 MCG                EQ     AIS                                                             MCG         4510     A     
 MCG       AIP      SPACE  3,14        AIP                                                 MCG         4511     A     
 MCG      **        AIP - ADJUST INSTRUCTION POINTERS ( AFTER A TABLE MANAGER CALL         MCG         4512     A     
 MCG      *                                                                                MCG         4513     A     
 MCG      *         EXIT   (B7) = O.TXT + 3                                                MCG         4514     A     
 MCG      *                                                                                MCG         4515     A     
 MCG      *         USES   X - 1, 4, 6, 7 , A - 1, 4, 6, 7                                 MCG         4516     A     
 MCG                                                                                       MCG         4517     A     
 MCG       AIP0     SA1    O.TXT                                                           MCG         4518     A     
 MCG                SB7    X1+3        BASE = O.TXT + 3                                    MCG         4519     A     
 MCG                                                                                       MCG         4520     A     
 MCG       AIP      ROUTINE                                                                MCG         4521     A     
 MCG                SA1    O.PIT                                                           MCG         4522     A     
 MCG                SA4    IIP+1                                                           MCG         4523     A     
 MCG                IX6    X1-X4                                                           MCG         4524     A     
 MCG                ZR     X6,AIP0     IF IIP(2) = O.PIT  */ *PIT* NOT MOVED               MCG         4525     A     
 MCG                BX7    X1                                                              MCG         4526     A     
 MCG                SA1    A4-B1                                                           MCG         4527     A     
 MCG                IX6    X1+X6       IIP = IIP - IIP(2) + O.PIT  */ RESET POINTER        MCG         4528     A     
 MCG                SA7    A4          IIP(2) = O.PIT    */ SAVE NEW BASE                  MCG         4529     A     
 MCG                SA6    A1                                                              MCG         4530     A     
 MCG                EQ     AIP0                                                            MCG         4531     A     
 MCG                                                                                       MCG         4532     A     
 MCG                QUAL                                                                   MCG         4533     A     
 MCG                                                                                       MCG         4534     A     
 MCG                END                                                                    MCG         4535     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - MCG     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          MCG                       4535      4265
          FCC0393                     34        34
          FCC0448                     11        11
          FCC0502                     15        15
          FCC0584                     19        19
          FCC0603                     32        32
          FCC0625                     10         9
          FCC0641                     61        61
          FCC0719                      1         1
          FCC0881                    230       221
          FEAT155A                    20        20
          FCC1056                     39        39
          FCC1126                      6         6
          FCC1442                      9         9
          FCC1451                     13        10
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3484    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MCG     
  
          RSM2763X                     2         2
          FCC1555X                    86        83
          FCC1580X                     5         5
          FCC1655X                    23        23
          FCC1656X                    36        36
          FCC1845X                     1         1
          FCC2038                      1         1
          FCC2061                    135       131
          FCC2207                    299       296
          FCCA546X                     4         4
          FCC2531                      2         2
          FCC2535                     26        26
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT      *DECK     BDT                                                                    BDT            1     A     
 BDT                IDENT  BDT                                                             BDT            2     A     
 BDT       BDT      TITLE  BDT - FORM DEPENDENCY GRAPH                                     BDT            3     A     
 BDT      *CALL     SSTCALL                                                                BDT            4     A     
 BDT       B=BDT    RPVDEF                                                                 BDT            5     A     
 BDT                PASS2TM                                                                BDT            6     A     
 BDT                TABLES TXT,TREE                                                        BDT            7     A     
 BDT      *IF       DEF,BDT,1                                                              BDT            8     A     
 BDT                TRACER BDT                                                             BDT            9     A     
 BDT       BDT      SPACE  3                                                               BDT           10     A     
 BDT      **        BDT - BUILD DEPENDENCY TREE ( FORM DEPENDENCY GRAPH )                  BDT           11     A     
 BDT      *         BDT FORMS THE DEPENDENCY GRAPH OF A SEQUENCE OF *IL*                   BDT           12     A     
 BDT      *         INSTRUCTIONS WHICH TAKES INTO ACCOUNT THE OPERAND, DATA                BDT           13     A     
 BDT      *         INTERFERENCE, REGISTER REDEFINITION AND BLOCK CONSTRAINT               BDT           14     A     
 BDT      *         DEPENDENCIES ( LINKS ) OF THE INSTRUCTIONS.  IT ALSO COMPUTES          BDT           15     A     
 BDT      *         THE PERT LATE START TIMES FOR EACH INSTRUCTION, AND SORTS THE          BDT           16     A     
 BDT      *         THE SUCCESSOR INDEX LISTS ACCORDING TO THEM.                           BDT           17     A     
 BDT      *                                                                                BDT           18     A     
 BDT      *         S.I. JASIK - FEB 1973                                                  BDT           19     A     
 BDT      *                                                                                BDT           20     A     
 BDT      *         ENTRY  (X6) = TREE MODE = 0/1 - PRIORITY CALC / JAM MODE               BDT           21     A     
 BDT      *                (SIOCALL) = 1 IF CALL FROM *RIO* FOR A PARTIAL TREE             BDT           22     A     
 BDT      *                *TXT* - INSTRUCTION SEQUENCE, LINK WORDS ARE ZERO.              BDT           23     A     
 BDT      *                                                                                BDT           24     A     
 BDT      *         EXIT   *TREE* = SUCCESSOR INDEX TABLE IN "U." FORMAT                   BDT           25     A     
 BDT      *                LINK WORDS OF INSTRUCTIONS IN "I." FORMAT                       BDT           26     A     
 BDT      *                N.INST, N.ST , SEQTIME SET                                      BDT           27     A     
 BDT                SPACE  3                                                               BDT           28     A     
 BDT                USE    /MCG/                                                           BDT           29     A     
 BDT       N.INST   BSS    1           NUMBER OF INSTRUCTIONS ( L.TXT/4 )                  BDT           30     A     
 BDT       N.ST     BSS    1           NUMBER OF STORES IN *TXT*                           BDT           31     A     
 BDT       SEQTIME  BSS    1           CRITICAL PATH TIME ( CALCULATED IN *CIP* )          BDT           32     A     
 BDT                USE    0                                                               BDT           33     A     
 BDT       DEBUG    SPACE  3                                                               BDT           34     A     
 BDT      **        DEBUGGING FACILITIES                                                   BDT           35     A     
 BDT      *                                                                                BDT           36     A     
 BDT      *         BASIC SNAPS - *IL* SEQUENCE AND *SIT* ON EXIT                          BDT           37     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3485    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT      *         TRACER BDT                                                             BDT           38     A     
 BDT      *                                                                                BDT           39     A     
 BDT      *         TO SNAP THE FINAL DEPENDENCY TREE                                      BDT           40     A     
 BDT      *         TRACER TREE                                                            BDT           41     A     
 BDT      *                                                                                BDT           42     A     
 BDT      *         TO TRACE EACH PHASE -                                                  BDT           43     A     
 BDT      *         TRACER (RNI,IH,FIL,FOL,FTL,FJL)                                        BDT           44     A     
 BDT                                                                                       BDT           45     A     
 BDT      **        TREE - SNAPSHOT DUMP OF THE DEPENDENCY TREE                            BDT           46     A     
 BDT      *         NOTE - TREE MACRO MAY BE CALLED BETWEEN FIL2 AND FTL5 ONLY             BDT           47     A     
 BDT                                                                                       BDT           48     A     
 BDT       TREE     MACRO  LAB                                                             BDT           49     A     
 BDT                IF     DEF,/DEBUG/LAB,1                                                BDT           50     A     
 BDT                SNAP   -A7,-TREEL,,1,200,1,TREE-LAB                                    BDT           51          I
          -FEAT155F 
 BDT       TREE-LAB SNAP   *A7,*TREEL,,,1,200,1                                            FEAT155F     261     A     
 BDT                ENDM                                                                   BDT           52     A     
 BDT       TABLES   TITLE  TABLE FORMATS                                                   BDT           53     A     
 BDT                LIST   -R                                                              BDT           54     A     
 BDT                                                                                       BDT           55     A     
 BDT      **        DEPENDENCY TREE ( FIL,FOL,FTL, ETC)                                    BDT           56     A     
 BDT                                                                                       BDT           57     A     
 BDT                DESCRIBE T.,60     TREE(SUCC,PRED)                                     BDT           58          I
          -FCC0448
 BDT                DESCRIBE T.,60     TREE(EQVL,SUCC,PRED)                                FCC0448      158     A     
 BDT                DEFINE 18                                                              BDT           59     A     
 BDT       SUCC     DEFINE 18          INDEX TO *TXT* OF SUCCESSOR                         BDT           60     A     
 BDT                DEFINE 1                                                               BDT           61     A     
 BDT       EQVL     DEFINE 1           DATA INTERFERENCE LINK                              BDT           62          I
          -FCC0448
 BDT                DEFINE 4                                                               BDT           63          I
          -FCC0448
 BDT       RDL      DEFINE 1           REGISTER REDEFINITION LINK                          FCC0448      159     A     
 BDT       EQVL     DEFINE 1           DATA INTERFERENCE LINK                              FCC0448      160     A     
 BDT                DEFINE 3                                                               FCC0448      161     A     
 BDT       PRED     DEFINE 18          INDEX TO *TXT* OF PREDECESSOR                       BDT           64     A     
 BDT       IHINFO   SPACE  3                                                               BDT           65     A     
 BDT      **        IH INFO TABLE ( FIL )                                                  BDT           66     A     
 BDT                                                                                       BDT           67     A     
 BDT                DESCRIBE IH.,60    IHINFO(BITS,R2W)                                    BDT           68     A     
 BDT       LD       DEFINE 1                                                               BDT           69     A     
 BDT       ST       DEFINE 1                                                               BDT           70     A     
 BDT       BM       DEFINE 1                                                               BDT           71     A     
 BDT                DEFINE 57          R2 WORD OF MEM REF INSTRUCTION                      BDT           72     A     
 BDT       USESI    SPACE  3                                                               BDT           73     A     
 BDT      **        USES INDEX TABLE ( FINAL FORMAT OF TREE )                              BDT           74     A     
 BDT      *                SORTED ON *PRED* , *LST* AND *SUCC* FIELDS.                     BDT           75     A     
 BDT                                                                                       BDT           76     A     
 BDT                DESCRIBE U.,60     SIT(LAST,PRED,LST,SUCC)                             BDT           77     A     
 BDT       LAST     DEFINE 1           "0 IF LAST EDGE OF A *PRED* GROUP                   BDT           78     A     
 BDT       EQV      DEFINE 1           DATA INTERFERENCE LINK                              BDT           79          I
          -FCC0448
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3486    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                DEFINE 4                                                               BDT           80          I
          -FCC0448
 BDT       RDL      DEFINE 1           REGISTER REDEFINITION LINK                          FCC0448      162     A     
 BDT       EQV      DEFINE 1           DATA INTERFERENCE LINK                              FCC0448      163     A     
 BDT                DEFINE 3                                                               FCC0448      164     A     
 BDT       PRED     DEFINE 18          INDEX TO *TXT* OF PREDECESSOR                       BDT           81     A     
 BDT       LST      DEFINE 18          LATE START TIME                                     BDT           82     A     
 BDT       SUCC     DEFINE 18          INDEX TO *TXT* OF SUCCESSOR                         BDT           83     A     
 BDT       INFO     SPACE  3                                                               BDT           84     A     
 BDT      **        I. - LINK WORD FORMAT FOR INSTRUCTION SCHEDULING ( BDT EXIT )          BDT           85     A     
 BDT                                                                                       BDT           86     A     
 BDT                DESCRIBE I.,60     UINFO(USES,INDX,PRI,NPRED)                          BDT           87     A     
 BDT                DEFINE 3                                                               BDT           88     A     
 BDT       USES     DEFINE 9           USES COUNT                                          BDT           89     A     
 BDT       INDX     DEFINE 15          ORDINAL TO SUCCESSOR LIST IN USES INDEX TBL         BDT           90     A     
 BDT       LST      DEFINE 15          LATE START TIME                                     BDT           91     A     
 BDT       NPRED    DEFINE 18          NUMBER OF UNISSUED PREDECESSORS                     BDT           92     A     
 BDT                                                                                       BDT           93     A     
 BDT       PRIOR    DEQU   LST         PRIORITY ( NEGATIVE OF LATE START TIME )            BDT           94     A     
 BDT       INIT     TITLE  INITIALIZATION                                                  BDT           95     A     
 BDT      **        LOCAL STORAGE                                                          BDT           96     A     
 BDT                                                                                       BDT           97     A     
 BDT                USE    /TABLES/                                                        BDT           98     A     
 BDT       BDTA     BSS    1           TREE BUILD MODE                                     BDT           99     A     
 BDT       EQVL     BSS    1           "0 IF JAM MODE AND EQUIV LINKS                      BDT          100     A     
 BDT       FBM      BSS    1           ORD OF FIRST BOUNDARY MARKER IN *TXT*               BDT          101     A     
 BDT       LBM      BSS    1           DESCR ADDRESS OF LAST *BM*                          BDT          102     A     
 BDT       FTREE    BSS    1           FWA OF TEMP TREE                                    BDT          103     A     
 BDT       TF       BSS    1           LWA+1 OF THE OPERAND LINKS ( TEMP TREE )            BDT          104     A     
 BDT       TREEL    BSS    1           LWA+1 OF THE TREE                                   BDT          105     A     
 BDT       TSTC     BSS    1           *TST* CHAIN ( NBIP " 0 & SIOCALL = 2 ONLY )         FCC0514      301     A     
 BDT       REGS     BSS    24          REGISTER STORE ADDRESS TABLE                        BDT          106     A     
 BDT                USE    0                                                               BDT          107     A     
 BDT                                                                                       BDT          108     A     
 BDT                                                                                       BDT          109     A     
 BDT       SIOCALL  BSSZ   1           "0 IF CALL FROM *RIO*                               BDT          110     A     
 BDT                                                                                       BDT          111     A     
 BDT                LIST   R                                                               BDT          112     A     
 BDT                                                                                       FCC0514      302     A     
 BDT       PI.CNP   EQU    36          IP. CLASS NUMBER                                    FCC0514      303     A     
 BDT       D.RDP    EQU    D.MUCP      REDEF ST (FIL10,SIO3)                               FCC1126       13     A     
 BDT                                                                                       BDT          113     A     
 BDT       OC       MICRO  1,,/B3/                                                         BDT          114     A     
 BDT       BDT      SPACE  3                                                               BDT          115     A     
 BDT       BDT      ENTRY.                                                                 BDT          116     A     
 BDT                QUAL   BDT                                                             BDT          117     A     
 BDT                SA1    L.TXT                                                           BDT          118     A     
 BDT                SA6    BDTA        SAVE TREE BUILD MODE                                BDT          119     A     
 BDT                BX7    X1                                                              BDT          120     A     
 BDT                AX7    2                                                               BDT          121     A     
 BDT                SA7    N.INST      N.INST = L.TXT/4                                    BDT          122     A     
 BDT                ZR     X6,BDT2     IF BDTA = 0   */ NOT JAM MODE                       BDT          123     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3487    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SX1    X1+200B     L.TREE = L.TREE + 200B  */ FUDGE FACTOR             BDT          124     A     
 BDT                                                                                       BDT          125     A     
 BDT       BDT2     ALLOC  TREE,X1     ALLOC( TREE , L.TREE )                              BDT          126     A     
 BDT                SX3    X3-1                                                            BDT          127     A     
 BDT                SA5    O.TXT                                                           BDT          128     A     
 BDT                IX6    X2+X3                                                           BDT          129     A     
 BDT                SA6    TREEL       TREEL = LWA+1 OF THE TEMP TREE                      BDT          130     A     
 BDT                                                                                       BDT          131     A     
 BDT                SA0    X5          (A0) = O.TXT                                        BDT          132     A     
 BDT                SB7    X2          (B7) = O.TREE                                       BDT          133     A     
 BDT                SB2    B1+B1       (B2) = 2                                            BDT          134     A     
 BDT                SB4    4           (B4) = 4                                            BDT          135     A     
 BDT                SX7    0                                                               FCC0514      304          I
          -FCC1739X 
 BDT                SA7    TSTC        TSTC = 0                                            FCC0514      305          I
          -FCC1739X 
 BDT                                                                                       BDT          136     A     
 BDT      *         THE TEMPORARY TREE IS FORMED IN *TREE* STARTING AT THE END             BDT          137     A     
 BDT      *         OF THE TABLE AND WORKING TOWARDS THE BEGINNING.                        BDT          138     A     
 BDT      *         (A7) HOLDS THE ADDRESS OF THE LAST EDGE ADDED TO IT FROM               BDT          139     A     
 BDT      *         *FIL3* TO *FTL7*.  DURING FIL THE *IHINFO* TABLE IS SETUP AT           BDT          140     A     
 BDT      *         THE BEGINNING OF *TREE*.                                               BDT          141     A     
 BDT       FIL      TITLE  FIL - FORM DATA INTERFERENCE LINKS                              BDT          142     A     
 BDT      **        FORM THE *IH* INFO TABLE                                               BDT          143     A     
 BDT      *                60/*TXT* INDEX OF INSTRUCTION                                   BDT          144     A     
 BDT      *                60/*IH* INFO WORD                                               BDT          145     A     
 BDT                                                                                       BDT          146     A     
 BDT       FIL      SA2    O.TREE                                                          BDT          147     A     
 BDT                MX6    60                                                              BDT          148     A     
 BDT                SA6    X2          IH = O.TREE,  [IH] = -0                             BDT          149     A     
 BDT                MX0    -1                                                              BDT          150     A     
 BDT                MX1    -D.LDSTL                                                        BDT          151     A     
 BDT                SB5    A0+B2       BASE = O.TXT + 2                                    BDT          152     A     
 BDT                LX1    D.LDSTP                                                         BDT          153     A     
 BDT                SB6    59-D.BMP                                                        BDT          154     A     
 BDT                SB7    B0          N.ST = 0                                            BDT          155     A     
 BDT                SA4    A0+B2       DI = O.TXT + 2                                      BDT          156     A     
 BDT                SA2    TREEL                                                           BDT          157     A     
 BDT                SA3    BDTA                                                            BDT          158     A     
 BDT                MX7    0                                                               BDT          159     A     
 BDT                SA7    TSTC        TSTC = 0                                            FCC1739X       5     A     
 BDT                SA7    X2          T = TREEL;  [T] = 0                                 BDT          160     A     
 BDT                SX6    A0                                                              BDT          161     A     
 BDT                MX5    -IH.BMP                                                         BDT          162     A     
 BDT                BX7    X5+X6                                                           BDT          163     A     
 BDT                SA7    A7-B1       T = T - 1;  [T] = BM[IH] ! O.TXT                    BDT          164     A     
 BDT                                                                                       BDT          165     A     
 BDT      *         SET FLAG FOR FULL EQUIV LINKING ( BETWEEN CONDITIONAL JUMPS )          BDT          166     A     
 BDT      *         IF JAM MODE. ASSUME THAT CONDITIONAL JUMPS ARE TYPE III.               BDT          167          I
          -FCC1695X 
 BDT      *         IF JAM MODE OR CALLED FROM *RIO*.                                      FCC1695X       5     A     
 BDT                                                                                       BDT          168     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3488    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SX2    B1                                                              BDT          169     A     
 BDT                LX2    D.BMP                                                           BDT          170          I
          -FCC1695X 
 BDT                ZR     X3,FIL2     FEL = IF( BDTA = 0 ) THEN BM; ELSE *TY*             BDT          171          I
          -FCC1695X 
 BDT                LX2    D.TYP-D.BMP                                                     BDT          172          I
          -FCC1695X 
 BDT                LX2    D.TYP       FET = TY      */TY IV BM"S ONLY                     FCC1695X       6     A     
 BDT                NZ     X3,FIL2     IF BDTA " 0                                         FCC1695X       7     A     
 BDT                SA3    SIOCALL                                                         FCC1695X       8     A     
 BDT                NZ     X3,FIL2     IF SIOCALL " 0                                      FCC1695X       9     A     
 BDT                LX2    D.BMP-D.TYP FEL = BM      */ DONT LINK ACROSS TY IIIJPS         FCC1695X      10     A     
 BDT                EQ     FIL2                                                            BDT          173     A     
 BDT                                                                                       BDT          174     A     
 BDT      *         SCAN THE SEQUENCE AND FORM AN *IH* INFO TABLE ENTRY FOR EACH           BDT          175     A     
 BDT      *         LD, ST AND BOUNDARY MARKER.                                            BDT          176     A     
 BDT                                                                                       BDT          177     A     
 BDT       FIL1     SA5    A4-B1       R2 = DI - 1                                         BDT          178     A     
 BDT                LX4    -D.STP                                                          BDT          179     A     
 BDT                BX3    -X0*X4                                                          BDT          180     A     
 BDT                IFNE   .DAL,0,2                                      LEVEL 2           BDT          181     A     
 BDT                LX4    D.STP-D.L2P                                                     BDT          182     A     
 BDT                BX3    -X4*X3                                                          BDT          183     A     
 BDT                                                                                       BDT          184     A     
 BDT                SA6    A6+B1       IH = IH + 1;  [IH] = DI - BASE                      BDT          185     A     
 BDT                LX7    IH.STP-D.LDSTP                                                  BDT          186     A     
 BDT                SB7    B7+X3       N.ST = N.ST + (ST[DI]&^L2[DI])                      BDT          187     A     
 BDT                BX6    X7+X5                                                           BDT          188     A     
 BDT                SA6    A6+B1       IH = IH + 1;  [IH] = IHINFO(LDST[DI],[R2])          BDT          189     A     
 BDT                ZR     X3,FIL2     IF (ST[DI]&^L2[DI]) = 0                             BDT          190     A     
 BDT                SX7    A4-B2                                                           BDT          191     A     
 BDT                SA7    A7-B1       T = T - 1;  [T] = R1                                BDT          192     A     
 BDT                                                                                       BDT          193     A     
 BDT       FIL2     SA4    A4+B4       DI = DI + 4                                         BDT          194     A     
 BDT                BX7    -X1*X4                                                          BDT          195     A     
 BDT                SX6    A4-B5                                                           BDT          196     A     
 BDT                LX3    B6,X4                                                           BDT          197     A     
 BDT                NZ     X7,FIL1     IF LDST[DI]                                         BDT          198     A     
 BDT                PL     X3,FIL2     IF ^BM[DI]                                          BDT          199     A     
 BDT                SA5    A4-B2       R1 = DI - 2                                         BDT          200     A     
 BDT                BX3    X2*X4                                                           BDT          201     A     
 BDT                ZR     X3,FIL2     IF FEL[DI] = 0  */ JAM MODE & TY III BM             BDT          202     A     
 BDT                SX7    A4-B2                                                           BDT          203     A     
 BDT                SA6    A6+B1       IH = IH + 1;  [IH] = DI - BASE                      BDT          204     A     
 BDT                UX3    "OC",X5                                                         BDT          205     A     
 BDT                MX6    -IH.BMP                                                         BDT          206     A     
 BDT                BX7    X6+X7                                                           BDT          207     A     
 BDT                SA6    A6+B1       IH = IH + 1;  [IH] = IHINFO(BM,0)                   BDT          208     A     
 BDT                SA7    A7-B1       T = T - 1;  [T] = BM[IH] ! R1                       BDT          209     A     
 BDT                NZ     "OC",FIL2   IF OC[R1] " 0                                       BDT          210     A     
 BDT                                                                                       BDT          211     A     
 BDT                SB6    A6          IHS = IH                                            BDT          212     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3489    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SX6    B7                                                              BDT          213     A     
 BDT                SA6    N.ST                                                            BDT          214     A     
 BDT                                                                                       BDT          215     A     
 BDT                IF     DEF,/DEBUG/IH,1                                                 BDT          216     A     
 BDT                SNAP   -O.TREE,-B6,,1,100,1,IH-INFO                                    BDT          217          I
          -FEAT155F 
 BDT       IH-INFO  SNAP   *O.TREE,B6                                                      FEAT155F     262     A     
 BDT       CSP      SPACE  3,14                                                            BDT          218     A     
 BDT      **        CSP - COUNT NUMBER OF STORE PREDECESSORS PER BASIC BLOCK               BDT          219     A     
 BDT      *         AND SAVE THE COUNTS IN THE USES FIELD OF THE DESCR OF THE              BDT          220     A     
 BDT      *         BOS/UJP/RJX/LAB STARTING THE BLOCK.                                    BDT          221     A     
 BDT                                                                                       BDT          222     A     
 BDT                ZR     B7,CSP6     IF N.ST = 0   */ IF NO STORE PREDECESSORS           BDT          223     A     
 BDT                MX0    -R1.RIL                                                         BDT          224     A     
 BDT                SB5    B0          NSP = 0       */ NUMBER OF STORE PRED               BDT          225     A     
 BDT                SA5    A7+B1       TI = T + 1                                          BDT          226     A     
 BDT                BX1    -X0         RMIN = 177777B                                      BDT          227     A     
 BDT                SB3    60-D.TYL                                                        BDT          228     A     
 BDT                SB7    T.SUCCP                                                         BDT          229     A     
 BDT                EQ     CSP2                                                            BDT          230     A     
 BDT                                                                                       BDT          231     A     
 BDT       CSP1     SA5    A5+B1       TI = TI + 1                                         BDT          232     A     
 BDT                BX1    X3          RMIN = R                                            BDT          233     A     
 BDT                SB5    B5+1        NSP = NSP + 1                                       BDT          234     A     
 BDT                                                                                       BDT          235     A     
 BDT       CSP2     MI     X5,CSP4     IF BM[TI]                                           BDT          236     A     
 BDT                SA4    X5          R1 = [TI]                                           BDT          237     A     
 BDT                BX3    -X0*X4      R = RI[R1]                                          BDT          238     A     
 BDT                LX6    B7,X3                                                           BDT          239     A     
 BDT                BX7    X6+X5       [TI] = TREE(R,R1)                                   BDT          240     A     
 BDT                IX4    X3-X1                                                           BDT          241     A     
 BDT                SA7    A5                                                              BDT          242     A     
 BDT                MI     X4,CSP1     IF R < RMIN                                         BDT          243     A     
 BDT                                                                                       BDT          244     A     
 BDT      *         POSSIBLE PS REVERSAL, SCAN BACKWARDS TO FIND *RI* IN STORE.            BDT          245     A     
 BDT                                                                                       BDT          246     A     
 BDT                SA4    A5-B1       TJ = TI - 1                                         BDT          247     A     
 BDT                SA5    A5+B1       TI = TI + 1                                         BDT          248     A     
 BDT       CSP3     AX6    B7,X4                                                           BDT          249     A     
 BDT                IX7    X6-X3                                                           BDT          250     A     
 BDT                ZR     X7,CSP2     IF SUCC[TJ] = R                                     BDT          251     A     
 BDT                SA4    A4-B1       TJ = TJ - 1                                         BDT          252     A     
 BDT                PL     X4,CSP3     IF ^BM[TJ]                                          BDT          253     A     
 BDT                SB5    B5+B1       NSP = NSP + 1                                       BDT          254     A     
 BDT                EQ     CSP2                                                            BDT          255     A     
 BDT                                                                                       BDT          256     A     
 BDT      *         BOUNDARY MARKER ENCOUNTERED, SAVE *NSP* IN IT IF TYPE = IV             BDT          257     A     
 BDT                                                                                       BDT          258     A     
 BDT       CSP4     SA4    X5+B2       DI = [TI] + 2                                       BDT          259     A     
 BDT                SA5    A5+1        TI = TI + 1                                         BDT          260     A     
 BDT                LX4    58-D.TYP                                                        BDT          261     A     
 BDT                AX6    B3,X4                                                           BDT          262     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3490    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                ZR     X6,CSP5     IF TYPE[DI] = IV                                    BDT          263     A     
 BDT                SX7    A4-B2                                                           BDT          264     A     
 BDT                SA7    A5-B1       [TI-1] = DI - 2 */ REMOVE BM BITS                   BDT          265     A     
 BDT                EQ     CSP2                                                            BDT          266     A     
 BDT                                                                                       BDT          267     A     
 BDT       CSP5     SX3    B5          USES[DI] = NSP                                      BDT          268     A     
 BDT                MX7    -D.USESL                                                        BDT          269     A     
 BDT                LX4    2+D.TYP                                                         BDT          270     A     
 BDT                SB5    B0          NSP = 0                                             BDT          271     A     
 BDT                BX4    X7*X4                                                           BDT          272     A     
 BDT                BX6    X3+X4                                                           BDT          273     A     
 BDT                SA6    A4                                                              BDT          274     A     
 BDT                NZ     X5,CSP2     IF [TI] " 0                                         BDT          275     A     
 BDT                                                                                       BDT          276     A     
 BDT       CSP6     SA1    TREEL                     */ REINTIALIZE THE TREE               BDT          277     A     
 BDT                SX7    0                                                               BDT          278     A     
 BDT                SA7    EQVL        EQVL = 0                                            BDT          279     A     
 BDT                SA7    X1          T = TREEL;  [T] = 0                                 BDT          280     A     
 BDT                                                                                       FCC0977       39     A     
 BDT      *         IF IN A LOOP, THEN CHECK *IHINFO* TABLE FOR *SRF* MEMORY               FCC0977       40     A     
 BDT      *         REFERENCES, AND INVENT AN *RF* FOR THEM.                               FCC0977       41     A     
 BDT      *         *SRF* MEMORY REFS ARE THE RESULT OF ADDRESS DIFFERENCING               FCC0977       42     A     
 BDT      *         SIMILAR *IP"S*, AND REFERENCES TO THE NON-BASE MEMBERS OF              FCC0977       43     A     
 BDT      *         THE CLASS DO NOT HAVE A REAL *RF* ASSOCIATED WITH THEM.                FCC0977       44     A     
 BDT                                                                                       FCC0977       45     A     
 BDT                                                                                       FCC0977       46     A     
 BDT                SA1    =XGRASRF                                                        FCC0977       47     A     
 BDT                ZR     X1,IRF5     IF GRASRF = 0 */ ^(IN LOOP & ADDR DIFF)             FCC0977       48     A     
 BDT                                                                                       FCC0977       49     A     
 BDT                MX0    -IH.RFL                                                         FCC0977       50     A     
 BDT                SA1    SIOCALL                                                         FCC0977       51     A     
 BDT                LX0    IH.RFP                                                          FCC0977       52     A     
 BDT                MX7    -2*R1.RIL                                                       FCC0977       53     A     
 BDT                SA5    B6          IH = IHS                                            FCC0977       54     A     
 BDT                LX7    R1.RIL                                                          FCC0977       55     A     
 BDT                SB3    A0                                                              FCC0977       56     A     
 BDT                SB5    59-IH.SRFP                                                      FCC0977       57     A     
 BDT                SB7    B1          IRN = 1       */ INVENTED R-NUMBER INDEX            FCC0977       58     A     
 BDT                                                                                       FCC0977       59     A     
 BDT      *         SEARCH *IHINFO* FOR *SRF* MEM REFS, AND INVENT A *RF*                  FCC0977       60     A     
 BDT      *         FOR EACH UNIQUE ORDERED PAIR - *(RJ,RK)* .                             FCC0977       61     A     
 BDT                                                                                       FCC0977       62     A     
 BDT       IRF1     SA5    A5-B2       IH = IH - 2                                         FCC0977       63     A     
 BDT                LX6    B5,X5                                                           FCC0977       64     A     
 BDT                PL     X6,IRF1     IF ^SRF[IH]                                         FCC0977       65     A     
 BDT                ZR     X5,IRF5     IF [IH] = 0   */ END OF *IHINFO*                    FCC0977       66     A     
 BDT                                                                                       FCC0977       67     A     
 BDT                SA4    A5-B1       R = [IH-1]                                          FCC0977       68     A     
 BDT                SA2    B3+X4       R1W = TXT(R)                                        FCC0977       69     A     
 BDT                BX6    -X7*X2      KEY = RJRK[R1W]                                     FCC0977       70     A     
 BDT                SA6    A7-B7       T(-IRN) = KEY */ SET SEARCH TERMINATOR              FCC0977       71     A     
 BDT                BX5    X0*X5                                                           FCC0977       72     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3491    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SA3    A7          TJ = T                                              FCC0977       73     A     
 BDT       IRF2     SA3    A3-B1       TJ = TJ - 1   */ SEARCH ORDERED PAIR LIST           FCC0977       74     A     
 BDT                BX2    X3-X6                                                           FCC0977       75     A     
 BDT                NZ     X2,IRF2     IF [TJ] " KEY                                       FCC0977       76     A     
 BDT                                                                                       FCC0977       77     A     
 BDT                SB4    A3                                                              FCC0977       78     A     
 BDT                SB4    A7-B4       J = T - TJ                                          FCC0977       79     A     
 BDT                LT     B4,B7,IRF3  IF J < IRN                                          FCC0977       80     A     
 BDT                SB7    B7+B1       IRN = IRN + 1                                       FCC0977       81     A     
 BDT       IRF3     SX2    B4                                                              FCC0977       82     A     
 BDT                LX2    2                                                               FCC0977       83     A     
 BDT                SX2    X2+B2                                                           FCC0977       84     A     
 BDT                LX2    IH.RFP      JR = 4*J+2    */ INVENTED R-NUM                     FCC0977       85     A     
 BDT                BX6    X2+X5       RF[IH] = JR   */ SET IN *IHINFO*                    FCC0977       86     A     
 BDT                SA6    A5                                                              FCC0977       87     A     
 BDT                SA4    A2+B1       R2 = TXT(R+1)                                       FCC0977       88     A     
 BDT                BX6    X0*X4       RF[R2] = 0                                          FCC0977       89     A     
 BDT                SA6    A4                                                              FCC0977       90     A     
 BDT                NZ     X1,IRF1     IF SIOCALL " 0  */ CALL FROM *RIO*                  FCC0977       91     A     
 BDT                                                                                       FCC0977       92     A     
 BDT                BX6    X2+X6       RF[R2] = JR                                         FCC0977       93     A     
 BDT                SA6    A6                                                              FCC0977       94     A     
 BDT                EQ     IRF1                                                            FCC0977       95     A     
 BDT                                                                                       FCC0977       96     A     
 BDT       IRF5     BSS    0                                                               FCC0977       97     A     
 BDT                TRACE  IRF,RLIST                                                       FCC0977       98     A     
 BDT                IF     DEF,/DEBUG/IRF,1                                                FCC0977       99     A     
 BDT       IH-IRFX  SNAP   *O.TREE,*B6                                                     FCC0977      100     A     
 BDT       FIL      EJECT                                                                  BDT          281     A     
 BDT      **        SCAN THE *IH* INFO TABLE FOR INTERFERING LD/ST, ST/ST                  BDT          282     A     
 BDT      *         COMBINATIONS AND FORM TREE LINKS FOR THEM.                             BDT          283     A     
 BDT                                                                                       BDT          284     A     
 BDT                MX0    -IH.IHL                                                         BDT          285     A     
 BDT                SA5    B6          IH = IHS                                            BDT          286     A     
 BDT                SB5    59-IH.BMP                                                       BDT          287     A     
 BDT                SA1    BDTA                                                            BDT          288     A     
 BDT                LX1    T.EQVLP     EQVB = SHIFT(BDTA,T.EQVLP)                          BDT          289     A     
 BDT                                                                                       BDT          290     A     
 BDT       FIL3     SA5    A5-B2       IH = IH - 2                                         BDT          291     A     
 BDT                LX6    B5,X5                                                           BDT          292     A     
 BDT                ZR     X5,FIL6     IF [IH] = 0   */ IF TABLE TERMINATOR                BDT          293     A     
 BDT                MI     X6,FIL3     IF BM[IH]                                           BDT          294     A     
 BDT                SA4    A5          J = IH                                              BDT          295     A     
 BDT                SA3    A5-B1                                                           BDT          296     A     
 BDT                LX3    T.SUCCP                                                         BDT          297     A     
 BDT                IX2    X1+X3                                                           BDT          298     A     
 BDT                                                                                       BDT          299     A     
 BDT       FIL4     SA4    A4-B2                                                           BDT          300     A     
 BDT                LX3    B5,X4                                                           BDT          301     A     
 BDT                MI     X3,FIL3     IF BM[J]                                            BDT          302     A     
 BDT                BX6    X4-X5       DIFF = XOR(IH,J)                                    BDT          303     A     
 BDT                LX6    -IH.IHP                                                         BDT          304     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3492    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                BX7    -X0*X6                                                          BDT          305     A     
 BDT                NZ     X7,FIL4     IF IH[DIFF] " 0                                     BDT          306     A     
 BDT                BX3    X4*X5                                                           BDT          307     A     
 BDT                LX6    IH.IHP-IH.RFP                                                   BDT          308     A     
 BDT                LX3    59-IH.LDP                                                       BDT          309     A     
 BDT                MI     X3,FIL4     IF LD[IH] & LD[J]                                   BDT          310     A     
 BDT                BX7    -X0*X6                                                          BDT          311     A     
 BDT                SA3    A4-B1       R1[J]                                               BDT          312     A     
 BDT                NZ     X7,FIL5     IF RF[DIFF] " 0                                     BDT          313     A     
 BDT                LX6    IH.RFP-IH.CAP                                                   BDT          314     A     
 BDT                BX7    -X0*X6                                                          BDT          315     A     
 BDT                NZ     X7,FIL4     IF CA[DIFF] " 0                                     BDT          316     A     
 BDT                                                                                       BDT          317     A     
 BDT      *         THE MEMORY REFERENCES INTERFERE, FORM A LINK BETWEEN THEM              BDT          318     A     
 BDT                                                                                       BDT          319     A     
 BDT       FIL5     IX7    X2+X3                                                           BDT          320     A     
 BDT                SB3    A7                                                              BDT          321     A     
 BDT                SA7    A7-1        T = T - 1;  [T] = TREE(EQVB,R1[IH],R1[J])           BDT          322     A     
 BDT                GE     B3,B6,FIL4  IF STORE ADDR \ LOWER LIMIT                         BDT          323     A     
 BDT                                                                                       BDT          324     A     
 BDT       FIL6     SA1    O.TREE                    */ CHECK WORKING STORAGE              BDT          325     A     
 BDT                TREE   FIL                                                             BDT          326     A     
 BDT                SA2    N.INST                                                          BDT          327     A     
 BDT                IX1    X1+X2                                                           BDT          328     A     
 BDT                LX2    1                                                               BDT          329     A     
 BDT                SA3    N.ST                                                            BDT          330     A     
 BDT                IX1    X1+X2                                                           BDT          331     A     
 BDT                IX2    X1+X3       TM = O.TREE + 3*N.INST + N.ST                       BDT          332     A     
 BDT                SX4    A7-B1                                                           BDT          333     A     
 BDT                IX1    X2-X4                                                           BDT          334     A     
 BDT                MI     X1,FIL8     IF TM < T     */ ENOUGH SPACE FOR REST              BDT          335     A     
 BDT                                                                                       BDT          336     A     
 BDT                EQ     GAS         REALLOCATE                                          BDT          337     A     
 BDT       FIL8     SPACE  3                                                               BDT          338     A     
 BDT      **        RESCAN THE *IH* INFO TABLE, SETUP INFORMATION FOR *MCG*                BDT          339     A     
 BDT      *         SCAN FOR LD/ST COMBINATIONS INTO THE SAME MEMORY LOCATION              BDT          340     A     
 BDT      *         WHEN THE SECOND HAS THE *SZ* BIT SET, AND SET THE *SR*                 BDT          341     A     
 BDT      *         ( SIZE REDUCABLE ) BIT FOR IT.                                         BDT          342     A     
 BDT                                                                                       BDT          343     A     
 BDT       FIL8     SA5    B6          I = IHS                                             BDT          344     A     
 BDT                SX1    B1                                                              BDT          345     A     
 BDT                MX0    -IH.BMP                                                         BDT          346     A     
 BDT                LX1    D.SRP                                                           BDT          347     A     
 BDT                SA4    SIOCALL                                                         FCC0514      306     A     
 BDT                SB3    58-D.SZP                                                        BDT          348     A     
 BDT                SB6    A0+B2       BASE = O.TXT + 2                                    BDT          349     A     
 BDT                AX4    1                                                               FCC0514      307     A     
 BDT                SB4    X4                        (B4) = SIOCALL - 1                    FCC0514      308     A     
 BDT                SB7    A0                        (B7) = TXT                            FCC0514      309     A     
 BDT                                                                                       BDT          350     A     
 BDT       FIL9     SA5    A5-B2       I = I - 2                                           BDT          351     A     
 BDT                ZR     X5,FIL11    IF [I] = 0                                          BDT          352     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3493    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                LX6    B5,X5                                                           BDT          353     A     
 BDT                MI     X6,FIL9     IF BM[I]                                            BDT          354     A     
 BDT                                                                                       BDT          355     A     
 BDT                SA3    A5-B1                                                           BDT          356     A     
 BDT                SA2    X3+B6       DI = BASE + [I-1]                                   BDT          357     A     
 BDT                LX6    B3,X2                                                           BDT          358     A     
 BDT                PL     X6,FIL9     IF SZ[DI] = 1 */ A 1 PARCEL INSTRCUTION             BDT          359     A     
 BDT                LX2    58-D.TYP                                                        BDT          360     A     
 BDT                PL     X2,FIL9     IF TYPE[DI] " III  */ NOT A *LD* OR *ST*            BDT          361     A     
 BDT                LX2    2+D.TYP                                                         FCC0448      165     A     
 BDT                                                                                       BDT          362          I
          -FCC1126
 BDT                SA4    A5+         J = I                                               BDT          363     A     
 BDT                                                                                       BDT          364     A     
 BDT       FIL10    SA4    A4-B2       J = J - 2                                           BDT          365     A     
 BDT                BX6    X4-X5                                                           BDT          366     A     
 BDT                LX3    B5,X4                                                           BDT          367     A     
 BDT                BX7    -X0*X6                                                          BDT          368     A     
 BDT                MI     X3,FIL9     IF BM[J]                                            BDT          369          I
          -FCC0448
 BDT                MI     X3,FIL10A   IF BM[J]                                            FCC0448      166          I
          -FCC0514
 BDT                MI     X3,FIL10C   IF BM[J]                                            FCC0514      310     A     
 BDT                NZ     X7,FIL10    IF IHINFO[J] " IHINFO[I]                            BDT          370     A     
 BDT                                                                                       BDT          371     A     
 BDT      *         IH"S,RF"S AND CA"S MATCH, SET *SR* BIT FOR MASTER MEM REF.             BDT          372     A     
 BDT                                                                                       BDT          373     A     
 BDT                BX6    X1+X2                                                           BDT          374     A     
 BDT                SA6    A2          SR[DI] = 1                                          BDT          375     A     
 BDT                ZR     B4,FIL9     IF SIOCALL < 2                                      FCC0514      311     A     
 BDT                LX5    -IH.RFP                                                         FCC0514      312     A     
 BDT                SX7    X5                                                              FCC0514      313     A     
 BDT                NZ     X7,FIL9     IF RF[I] " 0  */ INDEXED ST                         FCC0514      314     A     
 BDT                                                                                       FCC0514      315     A     
 BDT      *         MASTER IS A REDEF OF J, I MUST BE A *ST*, SAVE *RI* THAT IS            FCC0514      316     A     
 BDT      *         REDEFINED IN THE LINK WORD OF THE *ST* FOR *FTL*.                      FCC0514      317     A     
 BDT                                                                                       FCC0514      318     A     
 BDT                SA3    A4-B1       R = [J-1]                                           FCC0514      319     A     
 BDT                LX4    59-IH.LDP                                                       FCC0514      320     A     
 BDT                MI     X4,FIL10B   IF LD[J]                                            FCC0514      321     A     
 BDT                SA3    B7+X3       R = RI[TXT+R]                                       FCC0514      322     A     
 BDT       FIL10B   SA4    A2-B2       R1 = DI - 2                                         FCC0514      323     A     
 BDT                SX6    X3                                                              FCC0514      324     A     
 BDT                SX5    X4                                                              FCC0514      325     A     
 BDT                IX7    X5-X6                                                           FCC0514      326     A     
 BDT                MI     X7,FIL9     IF RI[R1] < R */ ST NOT A FUNCTION OF *LD*          FCC0514      327     A     
 BDT                                                                                       FCC0514      328     A     
 BDT                SA6    A2+B1       [DI+1] = R    */ SAVE *RI* OF *LD*                  FCC0514      329     A     
 BDT                SA2    A2                                                              FCC1126       14     A     
 BDT                LX1    D.RDP-D.SRP                                                     FCC1126       15     A     
 BDT                BX6    X1+X2       RD[DI] = 1                                          FCC1126       16     A     
 BDT                SA6    A2                                                              FCC1126       17     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3494    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                LX1    D.SRP-D.RDP                                                     FCC1126       18     A     
 BDT                SX6    X3                                                              FCC1126       19     A     
 BDT                                                                                       FCC0514      330     A     
 BDT      *         FORM CHAIN *TST*"S IF THEIR ARE ANY SIMILAR *IP*"S IN THE LOOP         FCC0514      331     A     
 BDT                                                                                       FCC0514      332     A     
 BDT                AX4    R1.OCP                                                          FCC0514      333     A     
 BDT                SA3    =XNBIP                                                          FCC0514      334     A     
 BDT                SX7    X4-OC.TST-1S10                                                  FCC0514      335     A     
 BDT                NZ     X7,FIL9     IF OC[R1] " OC.TST                                  FCC0514      336     A     
 BDT                ZR     X3,FIL9     IF NBIP = 0   */ NO SIMILAR *IP*"S IN SEQ           FCC0514      337     A     
 BDT                                                                                       FCC0514      338     A     
 BDT                SA3    TSTC                                                            FCC0514      339     A     
 BDT                BX6    X3+X6       [DI+1] = TSTC ! [DI+1]  */ ADD TO CHAIN             FCC0514      340     A     
 BDT                SA6    A6                                                              FCC0514      341          I
          -FCC1126
 BDT                SA6    A2+B1                                                           FCC1126       20     A     
 BDT                SX6    A6                                                              FCC0514      342     A     
 BDT                LX6    36          TSTC = SHIFT(DI+1,36)  */ CHAIN PTS TO THIS         FCC0514      343     A     
 BDT                SA6    A3+                                                             FCC0514      344     A     
 BDT                EQ     FIL9                                                            BDT          376     A     
 BDT                                                                                       FCC0448      167     A     
 BDT       FIL10A   SA3    A4-B1                                                           FCC0448      168          I
          -FCC0514
 BDT      *         CONTINUE SCAN IF J IS A CONDITIONAL JUMP                               FCC0514      345          I
          -FCC0715
 BDT      *         CONTINUE SCAN IF J IS A CONDITIONAL JUMP OR *EOS*                      FCC0715       13     A     
 BDT                                                                                       FCC0514      346     A     
 BDT       FIL10C   SA3    A4-B1                                                           FCC0514      347     A     
 BDT                ZR     X4,FIL9     IF [J] = 0                                          FCC0448      169     A     
 BDT                SA3    B6+X3       DJ = BASE + [I-1]                                   FCC0448      170     A     
 BDT                LX3    59-D.TYP                                                        FCC0448      171     A     
 BDT                PL     X3,FIL10    IF TYPE[DJ] = III  */ JPX OR JIN                    FCC0448      172     A     
 BDT                SA3    A3-B2       R1J = DJ - 2                                        FCC0715       14     A     
 BDT                AX3    R1.OCP                                                          FCC0715       15     A     
 BDT                SX6    X3-OC.EOS-2000B                                                 FCC0715       16     A     
 BDT                ZR     X6,FIL10    IF OC[R1J] = OC.EOS                                 FCC0715       17     A     
 BDT                EQ     FIL9                                                            FCC0448      173     A     
 BDT                                                                                       BDT          377     A     
 BDT      **        SCAN THE EQV LINKS AND UP THE *FT* OF PREDECESSORS TO FORCE            BDT          378     A     
 BDT      *         THEM TO START BEFORE OTHER COMPUTATIONS THAT WOULD HAVE                BDT          379     A     
 BDT      *         THE SAME *LST* .                                                       BDT          380     A     
 BDT                                                                                       BDT          381     A     
 BDT       FIL11    SA5    A7          TI = T                                              BDT          382     A     
 BDT                LX1    D.FTP-D.SRP                                                     BDT          383     A     
 BDT                ERRNZ  D.EQVP-D.FTP                                                    FCC0514      348     A     
 BDT                ZR     X5,FOL      IF [TI] = 0   */ NO EQUIV LINKS                     BDT          384          I
          -FCC0514
 BDT                ZR     X5,IPL      IF [TI] = 0   */ NO EQUIV LINKS                     FCC0514      349     A     
 BDT                                                                                       BDT          385     A     
 BDT       FIL12    SA4    B6+X5       DI = BASE + PRED[TI]                                BDT          386     A     
 BDT                SA5    A5+B1       TI = TI + 1                                         BDT          387     A     
 BDT                BX6    X4+X1       FT[DI] = FT[DI] ! 1                                 BDT          388     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3495    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SA6    A4                                                              BDT          389     A     
 BDT                NZ     X5,FIL12    IF [TI] " 0                                         BDT          390     A     
 BDT                                                                                       BDT          391     A     
 BDT                SA3    BDTA                                                            BDT          392     A     
 BDT                SX6    X3+                                                             BDT          393     A     
 BDT                SA6    EQVL        EQVL = BDTA   */ " 0 IF JAM AND EQV LINKS           BDT          394     A     
 BDT       IPL      EJECT                                                                  FCC0514      350     A     
 BDT      **        IPL - FORM *IP* REDEFINITION LINKS BETWEEN MEMBERS OF A CLASS          FCC0514      351     A     
 BDT      *         OF SIMILAR *IP*"S, SO ANY REORDERING THAT *RIO* DOES WILL NOT          FCC0514      352     A     
 BDT      *         CAUSE INCORRECT CODE TO BE GENERATED IF GRA DOES ANY ADDRESS           FCC0514      353     A     
 BDT      *         DIFFERENCING ( *MFA12* ).                                              FCC0514      354     A     
 BDT                                                                                       FCC0514      355     A     
 BDT       IPL      SA1    TSTC                                                            FCC0514      356     A     
 BDT                ZR     X1,FOL      IF TSTC = 0   */ NO INCREMENT TST"S                 FCC0514      357     A     
 BDT                                                                                       FCC0514      358     A     
 BDT                SA2    =XO.TET                                                         FCC0514      359     A     
 BDT                SA3    =XO.IIT                                                         FCC0514      360     A     
 BDT                SA4    O.TREE                                                          FCC0514      361     A     
 BDT                SB5    X2                        (B5) = TET                            FCC0514      362     A     
 BDT                SB6    X3                        (B6) = IIT                            FCC0514      363     A     
 BDT                SB7    X4                        (B7) = TREE                           FCC0514      364     A     
 BDT                AX1    36          I = SHIFT(TSTC,-36)                                 FCC0514      365     A     
 BDT                SB4    A0+B2       BASE = O.TXT + 2                                    FCC1518X      23     A     
 BDT                MX0    -D.USESL+1                                                      FCC1518X      24     A     
 BDT                                                                                       FCC0514      366     A     
 BDT       IPL1     SA4    X1          LI = I;  LIW = [LI]                                 FCC0514      367     A     
 BDT                SA3    A4-B2       R2W = [I-2]                                         FCC0514      368     A     
 BDT                SA5    A3-B1       R1W = [I-3]                                         FCC0514      369     A     
 BDT                LX3    -IH.CAP                                                         FCC0514      370     A     
 BDT                SA2    B5+X3       TETW = TET(CA[R2W])                                 FCC0514      371     A     
 BDT                LX2    -T.ITIP                                                         FCC0514      372     A     
 BDT                SX3    X2          J = ITI[TETW]                                       FCC0514      373     A     
 BDT                ZR     X3,IPL3     IF J = 0      */INVARIANT TEMP                      FCC0514      374     A     
 BDT                                                                                       FCC0514      375     A     
 BDT                SA3    B6+X3       PIW = IIT(J)                                        FCC0514      376     A     
 BDT                LX2    59-T.BIPP+T.ITIP                                                FCC0514      377     A     
 BDT                LX3    -PI.CNP     N = CN[PIW]   */ CLASS NUMBER                       FCC0514      378     A     
 BDT                SX6    X5          R = RI[R1W]   */ RI OF INCREMENT                    FCC0514      379     A     
 BDT                PL     X2,IPL2     IF ^BIP[TETW]                                       FCC0514      380     A     
 BDT                                                                                       FCC0514      381     A     
 BDT      *         BASE *IP* INCR, ALWAYS BEFORE ^BASE INCR BECAUSE OF *GPO*.             FCC0514      382     A     
 BDT                                                                                       FCC0514      383     A     
 BDT                SA6    B7+X3       TREE(N)  = R  */ SAVE *RI* OF INCR                  FCC0514      384     A     
 BDT                EQ     IPL3                                                            FCC0514      385     A     
 BDT                                                                                       FCC0514      386     A     
 BDT      *         ^BASE INCR, SETUP LINK WORD TO FORM REDEF LINKS FROM USES OF           FCC0514      387     A     
 BDT      *         *TLD* TO INCREMENT OF BASE IN *FTL* BY SETTING ALTERNATE               FCC0514      388     A     
 BDT      *         SUCCESSOR FIELD IN LINK WORD IF RLD < RB .                             FCC0514      389          I
          -FCC1518X 
 BDT      *         SUCCESSOR FIELD IN LINK WORD IF THE *TLD* IS "USED".                   FCC1518X      25     A     
 BDT                                                                                       FCC0514      390     A     
 BDT       IPL2     SA2    B7+X3       RB = TREE(N)  */ R-NUM OF BASE INCR                 FCC0514      391     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3496    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SX2     X2                                                             FCCA550X       5     A     
 BDT                LX6    T.SUCCP                                                         FCC0514      392     A     
 BDT                BX7    X6+X2                                                           FCC0514      393     A     
 BDT                SA7    A7-B1       T = T - 1;  [T] = TREE(0,R,RB)                      FCC0514      394     A     
 BDT                SX3    X4          RLD = RI[LIW] */ RI OF TLD                          FCC0514      395          I
          -FCC1518X 
 BDT                IX7    X3-X2                                                           FCC0514      396          I
          -FCC1518X 
 BDT                LX2    18                                                              FCC0514      397          I
          -FCC1518X 
 BDT                BX6    X2+X4       LW = SHIFT(RB,18) ! LIW                             FCC0514      398          I
          -FCC1518X 
 BDT                AX7    59                                                              FCC0514      399          I
          -FCC1518X 
 BDT                BX6    X7*X6       [LI] = IF( RLD < RB ) THEN LW ELSE 0                FCC0514      400          I
          -FCC1518X 
 BDT                SA6    A4                                                              FCC0514      401          I
          -FCC1518X 
 BDT                SA3    B4+X4       DI = BASE + RI[LIW]  */ DESCR OF *TLD*              FCC1518X      26     A     
 BDT                LX2    18                                                              FCC1518X      27     A     
 BDT                LX3    -D.USESP-1                                                      FCC1518X      28     A     
 BDT                BX7    -X0*X3                                                          FCC1518X      29     A     
 BDT                ZR     X7,IPL3     IF USES[DI] = 1  */ ONLY USED IN INCR INST          FCC1518X      30     A     
 BDT                BX6    X2+X4       [LI] = [LI] ! SHIFT(RB,18)                          FCC1518X      31     A     
 BDT                SA6    A4                                                              FCC1518X      32     A     
 BDT                                                                                       FCC0514      402     A     
 BDT       IPL3     AX4    36                                                              FCC0514      403     A     
 BDT                SX1    X4          I = SHIFT(LIW,-36)  */ ADVANCE TO NEXT              FCC0514      404     A     
 BDT                NZ     X1,IPL1     IF I " 0      */ NOT END OF CHAIN                   FCC0514      405     A     
 BDT                                                                                       FCC0514      406     A     
 BDT                TRACE  IPL,RLIST                                                       FCC0514      407     A     
 BDT       FOL      TITLE  FOL - FORM OPERAND LINKS                                        BDT          395     A     
 BDT      **        FOL - FORM OPERAND LINKS, FORM *BMC* ( INST LINKED TO *EOQ* )          BDT          396     A     
 BDT                                                                                       BDT          397     A     
 BDT       FOL      MX0    -R1.RIL+1                                                       BDT          398     A     
 BDT                SB4    OC.RS                                                           BDT          399     A     
 BDT                LX0    1           (X0) = R-NUM EXTRACTION MASK ( A0 => 0 )            BDT          400     A     
 BDT                SB5    A0+B2       BASE = O.TXT + 2                                    BDT          401     A     
 BDT                SB6    B0          ZPA = 0       */ ZERO PRED ADDRESS                  BDT          402     A     
 BDT                SB7    B0          N.RS = 0      */ N. *RS"S*                          BDT          403     A     
 BDT                SA4    A0+B2       DI = O.TXT + 2                                      BDT          404     A     
 BDT                SX6    A7                                                              BDT          405     A     
 BDT                SA6    TF          TF = T        */ LWA + 1 OF OPERAND LINKS           BDT          406     A     
 BDT                MX1    D.TYL                                                           BDT          407     A     
 BDT                SA3    O.TREE                                                          BDT          408     A     
 BDT                MX6    0                                                               BDT          409     A     
 BDT                SA6    X3          BMC = O.TREE;  [BMC] = 0                            BDT          410     A     
 BDT                SA0    X3                                                              BDT          411     A     
 BDT                EQ     FOL2                                                            BDT          412     A     
 BDT                                                                                       BDT          413     A     
 BDT      *         SAVE ADDR OF *SINK* INSTRUCTION ON *BMC* LIST                          BDT          414     A     
 BDT                                                                                       BDT          415     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3497    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT       FOL1     SX7    A4                                                              BDT          416     A     
 BDT                PX6    "OC",X7                                                         BDT          417     A     
 BDT                SA6    A0+B1       BMC = BMC + 1;  [BMC] = PK(OC,DI)                   BDT          418     A     
 BDT                SA0    A0+B1                                                           BDT          419     A     
 BDT                                                                                       BDT          420     A     
 BDT      *         GET NEXT INSTRUCTION, AND JUMP TO APPROPIATE PROCESSOR                 BDT          421     A     
 BDT                                                                                       BDT          422     A     
 BDT       FOL2     SA5    A4+B2       R1 = DI + 2                                         BDT          423     A     
 BDT                SA4    A5+B2       DI = R1 + 2                                         BDT          424     A     
 BDT                LX4    58-D.TYP                                                        BDT          425     A     
 BDT                BX7    X1*X4                                                           BDT          426     A     
 BDT                SX6    A4-B5       LA = DI - BASE                                      BDT          427     A     
 BDT                LX6    T.SUCCP                                                         BDT          428     A     
 BDT                NZ     X7,FOL5     IF TYPE[DI] " I                                     BDT          429     A     
 BDT                                                                                       BDT          430     A     
 BDT      *         PROCESS TYPE I INSTRUCTION                                             BDT          431     A     
 BDT                                                                                       BDT          432     A     
 BDT                LX5    -R1.RKP                                                         BDT          433     A     
 BDT                BX3    -X0*X5                                                          BDT          434     A     
 BDT                LX5    R1.RKP-R1.RJP                                                   BDT          435     A     
 BDT                BX2    -X0*X5                                                          BDT          436     A     
 BDT                LX5    R1.RJP-R1.RIP                                                   BDT          437     A     
 BDT                ZR     X3,FOL3     IF RK[R1] = 0                                       BDT          438     A     
 BDT                IX7    X6+X3                                                           BDT          439     A     
 BDT                SA7    A7-B1       T = T - 1;  [T] = TREE(LA,RK[R1])                   BDT          440     A     
 BDT       FOL3     IX3    X2-X3                                                           BDT          441     A     
 BDT                LX4    1+D.TYP-D.^DP                                                   BDT          442     A     
 BDT                ZR     X2,FOL4     IF RJ[R1] = 0                                       BDT          443     A     
 BDT                ZR     X3,FOL4     IF RJ = RK                                          BDT          444     A     
 BDT                IX7    X6+X2                                                           BDT          445     A     
 BDT                SA7    A7-B1       T = T - 1;  [T] = TREE(LA,RJ[R1])                   BDT          446     A     
 BDT       FOL4     PL     X4,FOL2     IF DEF[DI]                                          BDT          447     A     
 BDT                UX3    "OC",X5                                                         BDT          448     A     
 BDT                BX5    -X0*X5                                                          BDT          449     A     
 BDT                IX7    X6+X5                                                           BDT          450     A     
 BDT                SA7    A7-B1       T = T - 1;  [T] = TREE(LA,RI[R1])                   BDT          451     A     
 BDT                EQ     FOL1                                                            BDT          452     A     
 BDT                                                                                       BDT          453     A     
 BDT       FOL5     UX3    "OC",X5                                                         BDT          454     A     
 BDT                IX7    X4+X4                                                           BDT          455     A     
 BDT                MI     X4,FOL8     IF TYPE[DI] = III ! IV                              BDT          456     A     
 BDT                                                                                       BDT          457     A     
 BDT      **        TYPE II PROCESSING ( S, FMA, CLR , DEF, RS )                           BDT          458     A     
 BDT                                                                                       BDT          459     A     
 BDT                LX4    1+D.TYP-D.PIP                                                   BDT          460     A     
 BDT                MI     X4,FOL5A    IF PI[DI]     */ RS OR DEF                          BDT          461     A     
 BDT                SX2    B6                                                              BDT          462     A     
 BDT                IX7    X6+X2                                                           BDT          463     A     
 BDT                SA7    A7-B1       T = T - 1;  [T] = TREE(LA,ZPA)                      BDT          464     A     
 BDT                EQ     FOL2                                                            BDT          465     A     
 BDT                                                                                       BDT          466     A     
 BDT       FOL5A    BX3    -X0*X5                                                          BDT          467     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3498    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                EQ     "OC",B4,FOL6      IF OC[R1] = OC.RS                             BDT          468     A     
 BDT                SB6    A4-B5       ZPA = LA                                            BDT          469     A     
 BDT                EQ     FOL1                                                            BDT          470     A     
 BDT                                                                                       BDT          471     A     
 BDT      *         PROCESS REGISTER STORE                                                 BDT          472     A     
 BDT                                                                                       BDT          473     A     
 BDT       FOL6     LX5    59-R1.INP                                                       BDT          474     A     
 BDT                SB7    B7+B1       N.RS = N.RS + 1                                     BDT          475     A     
 BDT                PL     X5,FOL7     IF IN[R1] = 0                                       BDT          476     A     
 BDT                                                                                       BDT          477     A     
 BDT                SX3    X3-4                                                            BDT          478     A     
 BDT                IX7    X6+X3                                                           BDT          479     A     
 BDT                SA7    A7          T = TREE(LA,LA-4) */ ERASE BAD *RJ* LINK            BDT          480     A     
 BDT                SX6    A7                                                              BDT          481     A     
 BDT                SA6    A4+B1       [DI+1] = T                                          BDT          482     A     
 BDT                EQ     FOL1                                                            BDT          483     A     
 BDT                                                                                       BDT          484     A     
 BDT       FOL7     IX7    X6+X3                                                           BDT          485     A     
 BDT                SA7    A7-B1       T = T - 1;  [T] = TREE(LA,RI[R1])                   BDT          486     A     
 BDT                SX6    A7                                                              BDT          487     A     
 BDT                SA6    A4+B1       [DI+1] = T                                          BDT          488     A     
 BDT                EQ     FOL1                                                            BDT          489     A     
 BDT                                                                                       BDT          490     A     
 BDT      *         PROCESS TYPE III / IV INSTRUCTIONS                                     BDT          491     A     
 BDT                                                                                       BDT          492     A     
 BDT       FOL8     MI     X7,FOL10    IF TYPE[DI] = IV                                    BDT          493     A     
 BDT                                                                                       BDT          494     A     
 BDT                SA3    A5+B1       R2 = R1 + 1                                         BDT          495     A     
 BDT                LX4    1+D.TYP-D.^DP                                                   BDT          496     A     
 BDT                BX5    -X0*X5      RI = RI[R1]                                         BDT          497     A     
 BDT                LX3    -IH.RFP                                                         BDT          498     A     
 BDT                MI     X4,FOL9     IF ^D[DI]                                           BDT          499     A     
 BDT                                                                                       BDT          500     A     
 BDT                BX3    -X0*X3      RN = (RF[R2]/2)*2                                   BDT          501     A     
 BDT                NZ     X3,FOL8A    IF RN " 0                                           BDT          502     A     
 BDT                SX3    B6          RN = ZPA                                            BDT          503     A     
 BDT       FOL8A    IX7    X6+X3                                                           BDT          504     A     
 BDT                SA7    A7-B1       T = T + 1;  [T] = TREE(LA,RN)                       BDT          505     A     
 BDT                EQ     FOL2                                                            BDT          506     A     
 BDT                                                                                       BDT          507     A     
 BDT       FOL9     BX3    -X0*X3                                                          BDT          508     A     
 BDT                IX7    X6+X5                                                           BDT          509     A     
 BDT                LX4    1+D.^DP+58-D.TYP                                                BDT          510     A     
 BDT                SA7    A7-B1       T = T - 1;  [T] = TREE(LA,RI[R1])                   BDT          511     A     
 BDT                ZR     X3,FOL10    IF RF[R2] = 0                                       BDT          512     A     
 BDT                IX7    X6+X3                                                           BDT          513     A     
 BDT                SA7    A7-B1       T = T - 1;  [T] = TREE(LA,RF[R2])                   BDT          514     A     
 BDT                                                                                       BDT          515     A     
 BDT       FOL10    LX4    1+D.TYP-D.BMP                                                   BDT          516     A     
 BDT                PL     X4,FOL1     IF ^BM[DI]                                          BDT          517     A     
 BDT                SB6    A4-B5       ZPA = LA                                            BDT          518     A     
 BDT                NZ     "OC",FOL1   IF OC[R1] " 0                                       BDT          519     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3499    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                                                                                       BDT          520     A     
 BDT                TREE   FOL                                                             BDT          521     A     
 BDT       FTL      TITLE  FTL - FORM TERMINAL ( END OF SEQ ) LINKS                        BDT          522     A     
 BDT      **        FTL - FORM TERMINAL LINKS.                                             BDT          523     A     
 BDT      *         LINK DATA SINKS ( STORES ) AND BOUNDARY MARKERS ( JUMPS, LAB           BDT          524     A     
 BDT      *         DEFS, ETC ) TO LATER BOUNDARY MARKERS.                                 BDT          525     A     
 BDT      *         FORM REDEF LINKS FOR REG STORES THAT REDEFINE A REGISTER.              BDT          526     A     
 BDT                                                                                       BDT          527     A     
 BDT                SA1    N.INST                    */ CHECK WORKING STORAGE              BDT          528     A     
 BDT                SB3    X3                                                              BDT          529          I
          -FCC1739X 
 BDT                SB3    X1                                                              FCC1739X       6     A     
 BDT                SB3    A0+B3                                                           BDT          530     A     
 BDT                SB3    A7-B3                                                           BDT          531     A     
 BDT                SX1    B2-B3                                                           BDT          532     A     
 BDT                PL     X1,GAS      IF BMC + N.INST + 2 \ T                             BDT          533     A     
 BDT                                                                                       BDT          534     A     
 BDT                SA1    A7          TFO = T       */ FWA OF OPERAND LINKS               FCC0514      408     A     
 BDT                SX1    B6                                                              BDT          535     A     
 BDT                SA5    A0+B1       II = BMC + 1                                        BDT          536     A     
 BDT                LX1    T.SUCCP     LA = ZPA      */ LA = *EOQ* ADDR                    BDT          537     A     
 BDT                SA3    A0                                                              BDT          538     A     
 BDT                SA0    B0          FBM = 0                                             BDT          539     A     
 BDT                BX6    X3                                                              BDT          540     A     
 BDT                SA6    LBM         LBM = [BMC]   */ DI OF LAST *BM*                    BDT          541     A     
 BDT                MX4    23                                                              BDT          542     A     
 BDT                MX6    0                                                               BDT          543     A     
 BDT                ZR     B7,FTL3     IF N.RS = 0                                         BDT          544     A     
 BDT                                                                                       BDT          545     A     
 BDT                SA3    BDTA                                                            BDT          546     A     
 BDT                SA6    REGS                                                            BDT          547     A     
 BDT      +         LX4    1           FOR I = 0 TO 23;  REGS(I) = 0                       BDT          548     A     
 BDT                SA6    A6+B1                                                           BDT          549     A     
 BDT                MI     X4,*                                                            BDT          550     A     
 BDT                                                                                       BDT          551     A     
 BDT      *         IF JAM MODE THEN LINK *RI* IN *UJP* RS"S TO FOLLOWING RJX/UJP          BDT          552          I
          -FCC0448
 BDT      *         SO *SNU* WILL ACCURATELY SET THE *NEXT* USE ADDRESS.                   BDT          553          I
          -FCC0448
 BDT      *         IF JAM MODE, THEN LINK THE *RI* IN UJP AND FULL LOCK *RS"S*            FCC0448      174     A     
 BDT      *         TO THE FOLLOWING RJX/EOQ SO *SNU* WILL CORRECTLY SET THE NEXT          FCC0448      175     A     
 BDT      *         USE ADDRESS, IN CASE THE PRED HAS TO BE REISSUED.                      FCC0448      176     A     
 BDT                                                                                       BDT          554     A     
 BDT                ZR     X3,FTL3     IF BDTA = 0   */ NOT JAM MODE                       BDT          555     A     
 BDT                SA4    A5          I = II                                              BDT          556     A     
 BDT                SB7    OC.JIN                                                          BDT          557          I
          -FCC0448
 BDT                BX6    X1          JLA = LA                                            BDT          558          I
          -FCC0448
 BDT                MX2    -SO.LKL                                                         BDT          559          I
          -FCC0448
 BDT                BX6    X1          JLA = LA                                            FCC0448      177     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3500    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SB7    OC.JIN                                                          FCC0448      178     A     
 BDT                EQ     FTL1                                                            BDT          560     A     
 BDT                                                                                       BDT          561     A     
 BDT       FTL0     SB3    X4                                                              BDT          562     A     
 BDT                SX6    B3-B5       JLA = [I] - BASE                                    BDT          563     A     
 BDT                LX6    T.SUCCP                                                         BDT          564     A     
 BDT                                                                                       BDT          565     A     
 BDT       FTL1     SA4    A4-B1       I = I - 1                                           BDT          566     A     
 BDT                ZR     X4,FTL3     IF [I] = 0                                          BDT          567     A     
 BDT                UX5    "OC",X4                                                         BDT          568     A     
 BDT                GE     "OC",B7,FTL0      IF OC[I] \ OC.JIN                             BDT          569     A     
 BDT                NE     "OC",B4,FTL1      IF OC[I] " OC.RS                              BDT          570     A     
 BDT                                                                                       BDT          571     A     
 BDT                SA3    X4-2        R1 = [I] - 2                                        BDT          572     A     
 BDT                BX7    -X0*X3      R = RI[R1]                                          BDT          573     A     
 BDT                LX3    -R1.SOP-SO.LKP                                                  BDT          574          I
          -FCC0448
 BDT                BX5    -X2*X3                                                          BDT          575          I
          -FCC0448
 BDT                NZ     X5,FTL1     IF SOLK[R1] " 0  */ NOT A *UJP* LOCK                BDT          576          I
          -FCC0448
 BDT                LX3    59-R1.SOP-SO.LKP                                                FCC0448      179     A     
 BDT                MI     X3,FTL1     IF SOLK[R1] = 1!3  */ ^(UJP ! FULL LOCK)            FCC0448      180     A     
 BDT                IX7    X6+X7                                                           BDT          577     A     
 BDT                SA7    A7-B1       T = T - 1;  [T] = TREE(JLA,R)                       BDT          578     A     
 BDT                EQ     FTL1                                                            BDT          579     A     
 BDT       FTL      SPACE  3,14                                                            BDT          580     A     
 BDT      *         FORM THE BOUNDARY MARKER LINKS                                         BDT          581     A     
 BDT                                                                                       BDT          582     A     
 BDT       FTL2     SX1    A4-B5       LA = DI - BASE                                      BDT          583     A     
 BDT                SA0    A4-B5       FBM = LA                                            BDT          584     A     
 BDT                LX1    T.SUCCP                                                         BDT          585     A     
 BDT                                                                                       BDT          586     A     
 BDT       FTL3     SA5    A5-B1       II = II - 1                                         BDT          587     A     
 BDT                SB3    A5+40B                                                          FCC1700X       5     A     
 BDT                SB3    A7-B3                                                           FCC1700X       6     A     
 BDT                MI     B3,GAS0     IF II + 40 > T  */ POSSIBLE TABLE OVERLAP           FCC1700X       7     A     
 BDT                SA4    X5          DI = [II]                                           BDT          588     A     
 BDT                ZR     X5,FTL6     IF DI = 0                                           BDT          589     A     
 BDT                UX3    "OC",X5                                                         BDT          590     A     
 BDT                SX6    A4-B5       LINK = DI - BASE                                    BDT          591     A     
 BDT                IX7    X1+X6                                                           BDT          592     A     
 BDT                LX4    59-D.BMP                                                        BDT          593     A     
 BDT                SA7    A7-B1       T = T - 1;  [T] = TREE(LA,LINK)                     BDT          594     A     
 BDT                MI     X4,FTL2     IF BM[DI]                                           BDT          595     A     
 BDT                NE     "OC",B4,FTL3      IF OC[R1] " OC.RS                             BDT          596          I
          -FCC0514
 BDT                                                                                       BDT          597          I
          -FCC0514
 BDT                SA2    A4+B1       LW = [DI+1]                                         FCC0514      409     A     
 BDT                EQ     "OC",B4,FTL3C     IF OC[R1] = OC.RS                             FCC0514      410     A     
 BDT                ZR     X2,FTL3     IF LW = 0     */ *ST* NOT A REDEF                   FCC0514      411     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3501    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                                                                                       FCC0514      412     A     
 BDT      *         ST IS A REDEFINITION OF PREVIOUS LD/ST, *RD* IS THE R-NUMBER           FCC0514      413     A     
 BDT      *         BEING REDEFINED.  FORM REDEF LINKS TO FORCE ALL USES OF *RD*           FCC0514      414     A     
 BDT      *         TO COME BEFORE THIS *ST*.                                              FCC0514      415     A     
 BDT                                                                                       FCC0514      416     A     
 BDT                SA3    A4-B2       R1 = DI - 2                                         FCC0514      417     A     
 BDT                SB7    X2          RD = RI[LW]   */ R-NUM BEING REDEF                  FCC0514      418     A     
 BDT                AX2    18                                                              FCC0514      419     A     
 BDT                BX5    -X0*X3      R = RI[R1]    */ SUCCESSOR                          FCC0514      420     A     
 BDT                SX2    X2          ARD = SHIFT(LW,-18)  */ BASE INCR R-NUM             FCC0514      421     A     
 BDT                SB7    -B7                       (B7) = -RD                            FCC0514      422     A     
 BDT                SB6    0           RD2 = 0                                             FCC0514      423     A     
 BDT                ZR     X2,FTL3B    IF ARD = 0    */ NO ALTERNATE                       FCC0514      424     A     
 BDT                SB6    X5          RD2 = R       */ NO LINKS FROM RD2 TO ARD           FCC0514      425     A     
 BDT                SX5    X2          R = ARD                                             FCC0514      426     A     
 BDT                                                                                       FCC0514      427     A     
 BDT       FTL3B    MX6    0                                                               FCC0514      428     A     
 BDT                SA6    A2          [DI+1] = 0    */ CLEAR LINK WORD                    FCC0514      429     A     
 BDT                SX2    B1                                                              FCC0514      430     A     
 BDT                LX5    T.SUCCP                                                         FCC0514      431     A     
 BDT                SA4    A1          TI = TFO                                            FCC0514      432     A     
 BDT                LX2    T.RDLP                                                          FCC0514      433     A     
 BDT                BX6    X5+X2                                                           FCC0514      434     A     
 BDT                LX5    -T.SUCCP                                                        FCC0514      435     A     
 BDT                SA6    EQVL        EQVL = 1                                            FCC0514      436     A     
 BDT                                                                                       FCC0514      437     A     
 BDT      *         SEARCH OPERAND LINKS FOR USES OF *RD* AND FORM REDEF LINKS             FCC0514      438     A     
 BDT                                                                                       FCC0514      439     A     
 BDT       FTL3A    BX7    X4          TL = [TI]                                           FCC0514      440     A     
 BDT                SX2    X4+B7                                                           FCC0514      441     A     
 BDT                AX7    T.SUCCP                                                         FCC0514      442     A     
 BDT                SA4    A4+B1       TI = TI + 1                                         FCC0514      443     A     
 BDT                SX3    X7+B7                                                           FCC0514      444          I
          -FCC0715
 BDT                ZR     X3,FTL3     IF SUCC[TL] = RD  */ END OF SEARCH                  FCC0514      445          I
          -FCC0715
 BDT                SB3    X7+B7                                                           FCC0715       18     A     
 BDT                LE     B3,FTL3     IF SUCC[TL] @ RD  */ END OF SEARCH                  FCC0715       19     A     
 BDT                BX3    X5-X7                                                           FCC0514      446     A     
 BDT                NZ     X2,FTL3A    IF PRED[TL] " RD  */ NOT A USE OF *RD*              FCC0514      447     A     
 BDT                ZR     X3,FTL3A    IF SUCC[TL] = R  */ DONT FORM LINKS TO SELF         FCC0514      448     A     
 BDT                SB3    X7                                                              FCC0514      449     A     
 BDT                EQ     B3,B6,FTL3A IF SUCC[TL] = RD2  */ NO LINK BACK TO INCR          FCC0514      450     A     
 BDT                                                                                       FCC0514      451     A     
 BDT                BX7    X6+X7                                                           FCC0514      452     A     
 BDT                SA7    A7-B1       T = T - 1;  [T] = TREE(RDL,R,SUCC[TL])              FCC0514      453     A     
 BDT                ZR     B6,FTL3A    IF RD2 = 0    */ NO ALTERNATE                       FCC1518X      33     A     
 BDT                                                                                       FCC1518X      34     A     
 BDT      *         FORM REDEF LINK FROM NON-BASE INCR TO USE                              FCC1518X      35     A     
 BDT                                                                                       FCC1518X      36     A     
 BDT                LX7    -T.SUCCP                                                        FCC1518X      37     A     
 BDT                BX7    X7-X5                                                           FCC1518X      38     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3502    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SX2    B6                                                              FCC1518X      39     A     
 BDT                BX7    X2+X7                                                           FCC1518X      40     A     
 BDT                LX7    T.SUCCP                                                         FCC1518X      41     A     
 BDT                SA7    A7-B1       T = T - 1;  [T] = TREE(RDL,RD2,SUCC[TL])            FCC1518X      42     A     
 BDT                EQ     FTL3A                                                           FCC0514      454     A     
 BDT       FTL      SPACE  1,10                                                            FCC0514      455     A     
 BDT      *         REGISTER STORE PROCESSING                                              BDT          598     A     
 BDT                                                                                       BDT          599     A     
 BDT                SA3    A4-B2       R1 = DI - 2                                         BDT          600          I
          -FCC0514
 BDT       FTL3C    SA3    A4-B2       R1 = DI - 2                                         FCC0514      456     A     
 BDT                BX5    -X0*X3      R = RI[R1]                                          BDT          601     A     
 BDT                MX2    -SO.REGL                                                        BDT          602     A     
 BDT                LX3    -R1.SOP                                                         BDT          603     A     
 BDT                BX7    -X2*X3      REGNO = SOREG[R1]                                   BDT          604     A     
 BDT                LX3    59-SO.LKP                                                       BDT          605          I
          -FCC2212X 
 BDT                PL     X3,FTL3A    IF SOLK[R1] " 1 ! 3  */ ^ TEMP OR RJRS LOCK         BDT          606          I
          -FCC0514  -FCC2212X 
 BDT                PL     X3,FTL3D    IF SOLK[R1] " 1 ! 3  */ ^ TEMP OR RJRS LOCK         FCC0514      457          I
          -FCC2212X 
 BDT                SA2    SIOCALL                                                         BDT          607          I
          -FCC2212X 
 BDT                ZR     X2,FTL3A    IF SIOCALL = 0                                      BDT          608          I
          -FCC0514  -FCC2212X 
 BDT                ZR     X2,FTL3D    IF SIOCALL = 0                                      FCC0514      458          I
          -FCC2212X 
 BDT                                                                                       FCC0514      459          I
          -FCC2212X 
 BDT                SA6    REGS+X7     REGS(REGNO) = LINK                                  BDT          609          I
          -FCC2212X 
 BDT                MX6    0                                                               BDT          610          I
          -FCC2212X 
 BDT                SA6    A4+B1       [DI+1] = 0                                          BDT          611          I
          -FCC2212X 
 BDT                LX3    -1                                                              FCC0658        4          I
          -FCC2212X 
 BDT                PL     X3,FTL3     IF SOLK[R1] " 3                                     FCC0658        5          I
          -FCC2212X 
 BDT                SA2    A7+B1                                                           FCC0658        6          I
          -FCC2212X 
 BDT                BX7    X2                                                              FCC0658        7          I
          -FCC2212X 
 BDT                SA7    A7+B1       T = T+1; [T] = [T+1] */ ERASE LINK TO EOQ           FCC0658        8          I
          -FCC2212X 
 BDT                EQ     FTL3                                                            BDT          612          I
          -FCC2212X 
 BDT                                                                                       BDT          613     A     
 BDT       FTL3A    SA3    REGS+X7     L = REGS(REGNO) */ ORD OF LAST RS INTO REGNO        BDT          614          I
          -FCC0514
 BDT       FTL3D    SA3    REGS+X7     L = REGS(REGNO) */ ORD OF LAST RS INTO REGN         FCC0514      460     A     
 BDT                SA6    A3          REGS(REGNO) = LINK                                  BDT          615     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3503    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SA2    A4+B1       TA = [DI+1]                                         BDT          616     A     
 BDT                SA4    A4-B1       R2 = DI - 1                                         BDT          617     A     
 BDT                MX6    0                                                               BDT          618     A     
 BDT                SA6    A2          [DI+1] = 0                                          BDT          619     A     
 BDT                LX4    -IH.RFP                                                         BDT          620     A     
 BDT                SX4    X4                                                              BDT          621     A     
 BDT                ZR     X4,FTL4     IF RF[R2] = 0                                       BDT          622     A     
 BDT                BX6    X5          LINK = R                                            BDT          623     A     
 BDT                SX5    X4          R = RF[R2]                                          BDT          624     A     
 BDT                SA2    TF          TA = TF                                             BDT          625     A     
 BDT                EQ     FTL4A                                                           BDT          626     A     
 BDT                                                                                       BDT          627     A     
 BDT       FTL4     ZR     X3,FTL3     IF L = 0      */ NO PREVIOUS *RS* INTO REGNO        BDT          628     A     
 BDT                SX6    X3-4        LINK = L - 4                                        BDT          629     A     
 BDT                LX3    T.SUCCP                                                         BDT          630     A     
 BDT                IX7    X3-X1                                                           BDT          631     A     
 BDT                MI     X7,FTL4A    IF L < LA     */ LAST RS IN THIS BLOCK              BDT          632     A     
 BDT                                                                                       BDT          633     A     
 BDT                SA4    A4-B1       R1 = R2 - 1                                         BDT          634     A     
 BDT                LX4    59-R1.SOP-SO.LKP                                                BDT          635     A     
 BDT                MI     X4,FTL3     IF SOLK[R1] = 1 ! 3  */ TEMP OR RJRS LOCK           BDT          636     A     
 BDT                                                                                       BDT          637     A     
 BDT      *         2 *RS*"S INTO THE SAME REGISTER IN A BLOCK, MAKE THE                   BDT          638     A     
 BDT      *         SECOND A REDEFINITION OF THE FIRST.                                    BDT          639     A     
 BDT                                                                                       BDT          640     A     
 BDT       FTL4A    SA2    X2                                                              BDT          641     A     
 BDT                SA3    BDTA                                                            FCC0448      181     A     
 BDT                BX5    -X5                                                             BDT          642     A     
 BDT                LX6    T.SUCCP           (X6) = LINK                                   BDT          643     A     
 BDT                SB7    X5                (B7) = R                                      BDT          644     A     
 BDT                LX3    T.RDLP                                                          FCC0448      182     A     
 BDT                BX6    X6+X3       EQVB = SHIFT(BDTA,T.RDLP)                           FCC0448      183     A     
 BDT                SA6    EQVL        EQVL = 1                                            FCC0448      184     A     
 BDT       FTL      SPACE  1,10                                                            BDT          645     A     
 BDT      *         SEARCH FOR USES OF THE R-NUMBER IN INSTRUCTIONS FOLLOWING THE          BDT          646     A     
 BDT      *         CURRENT *RS*, AND FORM LINKS BETWEEN THEM AND THE INSTRUCTIION         BDT          647     A     
 BDT      *         PRECEEDING THE SECOND *RS*.                                            BDT          648     A     
 BDT                                                                                       BDT          649     A     
 BDT       FTL5     SA2    A2-B1       TA = TA - 1                                         BDT          650     A     
 BDT                BX7    X2-X6                                                           BDT          651     A     
 BDT                SX3    X2+B7                                                           BDT          652     A     
 BDT                AX7    T.SUCCP                                                         BDT          653     A     
 BDT                ZR     X7,FTL3     IF SUCC[TA] = LINK  */ END OF SEARCH                BDT          654     A     
 BDT                NZ     X3,FTL5     IF PRED[TA] " R     */ IF NOT A USE                 BDT          655     A     
 BDT                AX2    T.SUCCP                                                         BDT          656     A     
 BDT                IX7    X6+X2                                                           BDT          657     A     
 BDT                SA7    A7-B1       T = T - 1;  [T] = TREE(LINK,SUCC[TA])               BDT          658          I
          -FCC0448
 BDT                SA7    A7-B1       T = T - 1;  [T] = TREE(EQVB,LINK,SUCC[TA])          FCC0448      185     A     
 BDT                EQ     FTL5                                                            BDT          659     A     
 BDT                                                                                       BDT          660     A     
 BDT       FTL6     SB6    A0-4                                                            BDT          661          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3504    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
          -FCC0514
 BDT                SA4    N.INST                                                          BDT          662          I
          -FCC0514
 BDT                NZ     B6,FTL7     IF FBM " 4    */ NO LABEL AT *BOS*                  BDT          663          I
          -FCC0514
 BDT       FTL6     SA4    N.INST                                                          FCC0514      461     A     
 BDT                BX7    X1                                                              BDT          664     A     
 BDT                SA7    A7-B1       T = T - 1;  [T] = TREE(FBM,0)                       BDT          665     A     
 BDT                                                                                       BDT          666     A     
 BDT       FTL7     SB6    X4                        */ CHECK WORKING STORAGE              BDT          667          I
          -FCC0514
 BDT                SB6    X4                        */ CHECK WORKING STORAGE              FCC0514      462     A     
 BDT                SB6    A5+B6                                                           BDT          668     A     
 BDT                SB7    A7          FTREE = T                                           BDT          669     A     
 BDT                SX1    B6-B7                                                           BDT          670     A     
 BDT                GE     B6,B7,GAS   IF O.TREE + N.INST \ T                              BDT          671     A     
 BDT                TREE   FTL                                                             BDT          672     A     
 BDT                                                                                       BDT          673     A     
 BDT      *         SORT THE TEMPORARY TREE TO GROUP EDGES BY SUCCESSOR                    BDT          674     A     
 BDT                                                                                       BDT          675     A     
 BDT                SA2    TREEL                                                           BDT          676     A     
 BDT                SA3    EQVL                                                            BDT          677     A     
 BDT                SX6    A0                                                              BDT          678     A     
 BDT                SX7    A7                                                              BDT          679     A     
 BDT                SA6    FBM                                                             BDT          680     A     
 BDT                SA7    FTREE       FTREE = T                                           BDT          681     A     
 BDT                IX1    X2-X7       LEN = TREEL - FTREE                                 BDT          682     A     
 BDT                NZ     X3,FTL8     IF EQVL " 0                                         BDT          683     A     
 BDT                CALL   SHL         SORT( TREE , [SUCC,PRED] )                          BDT          684     A     
 BDT                EQ     FTL10                                                           BDT          685     A     
 BDT                                                                                       BDT          686     A     
 BDT      *         JAM MODE AND EQUIV LINKS, USE MASK SORT                                BDT          687     A     
 BDT                                                                                       BDT          688     A     
 BDT       FTL8     MX0    -1                                                              BDT          689          I
          -FCC0448
 BDT       FTL8     MX0    -2                                                              FCC0448      186     A     
 BDT                SB6    B0                                                              BDT          690     A     
 BDT                MX5    0                                                               BDT          691     A     
 BDT                LX0    T.EQVP                                                          BDT          692     A     
 BDT                CALL   SST         SORT( TREE , [SUCC,PRED] )                          BDT          693     A     
 BDT                                                                                       FCC0514      463     A     
 BDT       FTL10    BSS    0                                                               FCC0514      464     A     
 BDT       FJL      TITLE  FJL - FORM JUMP LINKS                                           BDT          694     A     
 BDT       FTL10    BSS    0                                                               BDT          695          I
          -FCC0514
 BDT                                                                                       BDT          696          I
          -FCC0514
 BDT      **        FJL - FORM LINKS TO JUMPS FROM BELOW TO CONSTRAIN INSTRUCTIIONS        BDT          697     A     
 BDT      *         TO BE TIED TO THE BLOCK THEY APPEAR IN.                                BDT          698     A     
 BDT                                                                                       BDT          699     A     
 BDT                SA1    FTREE                                                           BDT          700     A     
 BDT                SA3    O.TREE                                                          BDT          701     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3505    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SA4    FBM                                                             BDT          702     A     
 BDT                SA5    L.TXT                                                           BDT          703     A     
 BDT                SX6    X4+8                                                            BDT          704     A     
 BDT                MX7    0                                                               BDT          705     A     
 BDT                IX6    X6-X5                                                           BDT          706     A     
 BDT                ZR     X4,FJL      IF FBM = 0    */ NO BOUNDARY MARKERS                BDT          707     A     
 BDT                NZ     X6,FJL1     IF FBM+8 < L.TXT  */ SEQ HAS AN INTERIOR JP         BDT          708     A     
 BDT                                                                                       BDT          709     A     
 BDT      *         NO JUMPS                                                               BDT          710     A     
 BDT                                                                                       BDT          711     A     
 BDT       FJL      BX6    X1                                                              BDT          712     A     
 BDT                SA6    A3          O.TREE = FTREE                                      BDT          713     A     
 BDT                SA7    X1-1        [FTREE-1] = 0                                       BDT          714     A     
 BDT                EQ     FJL6                                                            BDT          715     A     
 BDT                                                                                       BDT          716     A     
 BDT      *         MOVE THE TEMP TREE DOWN AND ADD JUMP LINKS WHERE NECESSARY             BDT          717     A     
 BDT      *         ADD *JP* LINK IF ALL PREDECESSORS LIE BELOW THE *JP*                   BDT          718     A     
 BDT                                                                                       BDT          719     A     
 BDT       FJL1     SA5    X1-1        TI = FTREE - 1                                      BDT          720     A     
 BDT                SA2    O.TXT                                                           BDT          721     A     
 BDT                MX0    -T.SUCCL                                                        BDT          722     A     
 BDT                SB7    X4          JPL = FBM                                           BDT          723     A     
 BDT                SB5    X2+2        BASE = O.TXT + 2                                    BDT          724     A     
 BDT                SB6    60-T.SUCCP                                                      BDT          725     A     
 BDT                LX0    T.SUCCP                                                         BDT          726     A     
 BDT                SA7    X3          TS = O.TREE;  [TS] = 0                              BDT          727     A     
 BDT                SX6    X3+B1                                                           BDT          728     A     
 BDT                SA6    A3          O.TREE = O.TREE + 1                                 BDT          729     A     
 BDT                                                                                       BDT          730     A     
 BDT      *         MOVE LINKS PRECEEDING THE FIRST *BM* DOWN                              BDT          731     A     
 BDT                                                                                       BDT          732     A     
 BDT       FJL2     SA5    A5+B1       TI = TI + 1                                         BDT          733     A     
 BDT                LX4    B6,X5                                                           BDT          734     A     
 BDT                BX7    X5                                                              BDT          735     A     
 BDT                SB3    X4                                                              BDT          736     A     
 BDT                SA7    A7+B1       TS = TS + 1;  [TS] = [TI]                           BDT          737     A     
 BDT                LE     B3,B7,FJL2  IF SUCC[TI] @ JPL                                   BDT          738     A     
 BDT                                                                                       BDT          739     A     
 BDT      *         SCAN THE SET OF EDGES FOR EACH INSTRUCTION ( GROUPED BY SUCC )         BDT          740     A     
 BDT      *         AND IF THE LAST PRED ( MAX ) LINKS TO A NODE BELOW THE                 BDT          741          I
          -FCC0715A 
 BDT      *         AND IF THE MAX OF THE PRED < R, LINK TO A NODE BELOW THE               FCC0715A       4     A     
 BDT      *         LAST ENCOUNTERED *BM* , FORM A LINK TO IT.                             BDT          742     A     
 BDT                                                                                       BDT          743     A     
 BDT       FJL3     BX6    -X0*X5      R = SUCC[TI]                                        BDT          744     A     
 BDT                LX4    B6,X5                                                           BDT          745     A     
 BDT                SB3    X4+                                                             BDT          746          I
          -FCC0715A 
 BDT                                                                                       BDT          747          I
          -FCC0715A 
 BDT       FJL4     SB4    X5          M = PRED[TI]                                        BDT          748          I
          -FCC0715A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3506    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SA5    A5+B1       TI = TI + 1                                         BDT          749          I
          -FCC0715A 
 BDT                SB3    X4                                                              FCC0715A       5     A     
 BDT                SB4    B0          M = 0                                               FCC0715A       6     A     
 BDT                                                                                       FCC0715A       7     A     
 BDT       FJL4     SB2    X5                                                              FCC0715A       8     A     
 BDT                GT     B2,B3,FJL4A IF PRED[TI] > R  */ A REDEFINITION LINK             FCC0715A       9     A     
 BDT                SB4    X5          M = PRED[TI]                                        FCC0715A      10     A     
 BDT       FJL4A    SA5    A5+1        TI = TI + 1                                         FCC0715A      11     A     
 BDT                BX4    X6-X5                                                           BDT          750     A     
 BDT                LX7    X5                                                              BDT          751     A     
 BDT                BX3    -X0*X4                                                          BDT          752     A     
 BDT                SA7    A7+B1       TS = TS + 1;  [TS] = [TI]                           BDT          753     A     
 BDT                ZR     X3,FJL4     IF SUCC[TI] = R                                     BDT          754     A     
 BDT                                                                                       BDT          755     A     
 BDT                SX3    B7+                                                             BDT          756     A     
 BDT                SA2    B5+B3       DI = BASE + R                                       BDT          757     A     
 BDT                IX6    X6+X3                                                           BDT          758     A     
 BDT                GE     B4,B7,FJL5  IF M \ JPL                                          BDT          759     A     
 BDT                SA6    A7          [TS] = TREE(R,JPL)                                  BDT          760     A     
 BDT                SA7    A7+B1       TS = TS + 1;  [TS] = [TI]                           BDT          761     A     
 BDT                                                                                       BDT          762     A     
 BDT       FJL5     LX2    59-D.BMP                                                        BDT          763     A     
 BDT                PL     X2,FJL3     IF ^BM[DI]                                          BDT          764     A     
 BDT                SB7    B3          JPL = R                                             BDT          765     A     
 BDT                NZ     X5,FJL3     IF [TI] " 0                                         BDT          766     A     
 BDT                                                                                       BDT          767     A     
 BDT                SX6    A7          TREEL = TS                                          BDT          768     A     
 BDT                SA6    TREEL                                                           BDT          769     A     
 BDT                                                                                       BDT          770     A     
 BDT                IF     DEF,/DEBUG/FJL,1                                                BDT          771     A     
 BDT                SNAP   -O.TREE,-TREEL,,1,1000,1,TREE-FJL                               BDT          772          I
          -FEAT155F 
 BDT       TREE-FJL SNAP   *O.TREEL,*TREEL                                                 FEAT155F     263     A     
 BDT                                                                                       BDT          773     A     
 BDT       FJL6     SA1    SIOCALL                                                         BDT          774     A     
 BDT                ZR     X1,CIP      IF SIOCALL = 0                                      BDT          775     A     
 BDT                                                                                       BDT          776     A     
 BDT      *         BDT CALLED FROM *RIO*, SET *TREE* LENGTH AND EXIT                      BDT          777     A     
 BDT                                                                                       BDT          778     A     
 BDT                SA2    O.TREE                                                          BDT          779     A     
 BDT                SA3    TREEL                                                           BDT          780     A     
 BDT                IX6    X3-X2                                                           BDT          781     A     
 BDT                SA6    L.TREE      L.TREE = TREEL - O.TREE                             BDT          782     A     
 BDT                MX7    0                                                               BDT          783     A     
 BDT                SA7    A1          SIOCALL = 0                                         BDT          784     A     
 BDT                EQ     BDT                                                             BDT          785     A     
 BDT       CIP      TITLE  CIP - CALCULATE INSTRUCTION PRIORITIES                          BDT          786     A     
 BDT      **        CIP - CALCULATE INSTRUCTION PRIORITIES                                 BDT          787     A     
 BDT      *         CALCULATES TIME TO TRAVEL FROM *EOQ* TO *BOS* OF NETWORK               BDT          788     A     
 BDT      *         THROUGH THE NODES. NODE TIME IS EITHER THE INSTRUCTION TIME            BDT          789     A     
 BDT      *         FUN UNIT ) OR 1 ( FOR A NODE DEPTH CALCULATION ).                      BDT          790     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3507    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT      *         THEN CHANGE THE THE "PRIORITIES" INTO "LATE START TIMES",              BDT          791     A     
 BDT      *         WHERE  LST[LI] = SEQTIME - PRIOR[LI] , IS THE LATEST TIME              BDT          792     A     
 BDT      *         THAT AN INSTRUCTION MAY START WITHOUT LENGTHING THE SCHEDULE.          BDT          793     A     
 BDT                                                                                       BDT          794     A     
 BDT       CIP      MX0    -D.FTL                                                          BDT          795     A     
 BDT                SA1    BDTA                                                            BDT          796     A     
 BDT                LX0    D.FTP                                                           BDT          797     A     
 BDT                SA4    O.TXT                                                           BDT          798     A     
 BDT                SB4    I.PRIORP-D.FTP                                                  BDT          799     A     
 BDT                SA0    X4+3        BASE = O.TXT + 3                                    BDT          800     A     
 BDT                NZ     X1,CIP6     IF BDTA " 0   */ JAM MODE                           BDT          801     A     
 BDT                                                                                       BDT          802     A     
 BDT       CIP1     SA3    TREEL                                                           BDT          803     A     
 BDT                SA7    A1+         LBM = JPA                                           BDT          804     A     
 BDT                SA5    X3-1        TI = TREEL - 1                                      BDT          805     A     
 BDT                MX1    -D.USESL                                                        BDT          806     A     
 BDT                LX1    D.USESP                                                         BDT          807     A     
 BDT                SB7    60-T.SUCCP                                                      BDT          808     A     
 BDT                SB6    X5          P = PRED[TI]                                        BDT          809     A     
 BDT                LX5    -T.SUCCP                                                        BDT          810     A     
 BDT                SB5    X5          R = SUCC[TI]                                        BDT          811     A     
 BDT                SB3    A5          TL = TI                                             BDT          812     A     
 BDT                SA4    A0+B5       PI = BASE + R                                       BDT          813     A     
 BDT                SA3    A0+B6       PTI = BASE + P                                      BDT          814     A     
 BDT                SA2    A4-B1       DI = PI - 1   */ FT[*EOQ*] = 1                      BDT          815     A     
 BDT                                                                                       BDT          816     A     
 BDT      *         CALCULATE TIME TO REACH THIS INSTRUCTION                               BDT          817     A     
 BDT                                                                                       BDT          818     A     
 BDT       CIP2     BX6    -X0*X2                                                          BDT          819     A     
 BDT                LX5    B4,X6                                                           BDT          820     A     
 BDT                IX7    X4+X5       TOTIME = PRIOR[PI] + FT[DI]                         BDT          821     A     
 BDT                BX6    -X1*X2                                                          BDT          822     A     
 BDT                                                                                       BDT          823     A     
 BDT      *         PROPAGATE TIME TO REACH THIS INSTRUCTION TO ITS PREDECESSORS           BDT          824     A     
 BDT                                                                                       BDT          825     A     
 BDT       CIP3     SA5    A5-B1       TI = TI - 1                                         BDT          826     A     
 BDT                IX4    X3-X7                                                           BDT          827     A     
 BDT                SB6    X5          P = PRED[TI]                                        BDT          828     A     
 BDT                LX3    B7,X5                                                           BDT          829     A     
 BDT                SB2    X3                                                              BDT          830     A     
 BDT                PL     X4,CIP4     PRIOR[PTI] = MAX( PRIOR[PTI] , TOTIME )             BDT          831     A     
 BDT                SA7    A3                                                              BDT          832     A     
 BDT       CIP4     SA3    A0+B6       PTI = BASE + P                                      BDT          833     A     
 BDT                EQ     B2,B5,CIP3  IF SUCC[TI] = R                                     BDT          834     A     
 BDT                                                                                       BDT          835     A     
 BDT      *         SET PRIORITY INFO IN LAST WORD OF INSTRUCTION                          BDT          836     A     
 BDT                                                                                       BDT          837     A     
 BDT                LX6    I.USESP-D.USESP                                                 BDT          838     A     
 BDT                SX4    A5-B3       NPRED[PI] = -( TI - TL )                            BDT          839     A     
 BDT                BX7    X7+X6       USES[PI] = USES[DI]                                 BDT          840     A     
 BDT                LX4    I.NPREDP                                                        BDT          841     A     
 BDT                IX6    X7-X4                                                           BDT          842     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3508    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SA6    A4                                                              BDT          843     A     
 BDT                                                                                       BDT          844     A     
 BDT                SB5    B2          R = SUCC[TI]                                        BDT          845     A     
 BDT                SA4    A0+B2       PI = BASE + R                                       BDT          846     A     
 BDT                SB3    A5          TL = TI                                             BDT          847     A     
 BDT                SA2    A4-B1       DI = PI - 1                                         BDT          848     A     
 BDT                NZ     X5,CIP2     IF [TI] " 0                                         BDT          849     A     
 BDT                BX7    X4                                                              BDT          850     A     
 BDT                AX7    I.PRIORP                                                        BDT          851     A     
 BDT                SA7    SEQTIME     SEQTIME = PRIOR[PI]  */ TIME TO REACH *BOS*         BDT          852     A     
 BDT                                                                                       BDT          853     A     
 BDT      *         CONVERT THE PRIORITIES TO "LATE START TIMES".                          BDT          854          I
          -FCC0641
 BDT      *         CONVERT THE PRIORITIES TO *LATE START TIMES*, SET THE *LST"S*          FCC0641       78     A     
 BDT      *         OF *RS* INSTRUCTIONS TO ZERO TO FORCE THEM TO BE ISSUED                FCC0641       79     A     
 BDT      *         IMMEDIATELY AFTER THEIR PREDECESSORS IN *MCG*.                         FCC0641       80     A     
 BDT                                                                                       BDT          855     A     
 BDT                MX0    -I.PRIORL                                                       BDT          856     A     
 BDT                LX7    I.PRIORP                                                        BDT          857     A     
 BDT                SA1    N.INST                                                          BDT          858     A     
 BDT                SB4    4                                                               BDT          859     A     
 BDT                SB2    X1-1        I = N - 1                                           BDT          860     A     
 BDT                SA4    A4+B4       LI = BASE + 4                                       BDT          861     A     
 BDT                LX0    I.PRIORP                                                        BDT          862     A     
 BDT                BX5    -X0*X4                                                          BDT          863          I
          -FCC0641
 BDT                                                                                       BDT          864          I
          -FCC0641
 BDT       CIP5     IX2    X7-X5       LST[LI] = SEQTIME - PRIOR[LI]                       BDT          865          I
          -FCC0641
 BDT                BX3    X0*X4                                                           BDT          866          I
          -FCC0641
 BDT                SA4    A4+B4       LI = LI + 4                                         BDT          867          I
          -FCC0641
 BDT                IX6    X2+X3                                                           BDT          868          I
          -FCC0641
 BDT                SB2    B2-1        I = I - 1                                           BDT          869          I
          -FCC0641
 BDT                BX5    -X0*X4                                                          BDT          870          I
          -FCC0641
 BDT                SA6    A4-B4                                                           BDT          871          I
          -FCC0641
 BDT                NZ     B2,CIP5     IF I " 0                                            BDT          872          I
          -FCC0641
 BDT                SB5    OC.RS                                                           FCC0641       81     A     
 BDT                BX5    -X0*X4      PR = PRIOR[LI]                                      FCC0641       82     A     
 BDT                                                                                       FCC0641       83     A     
 BDT       CIP5     IX2    X7-X5       LST[LI] = SEQTIME - PR                              FCC0641       84     A     
 BDT                SA1    A4+B1       R1 = LI + 1   */ R1 WORD OF NEXT                    FCC0641       85     A     
 BDT                BX3    X0*X4                                                           FCC0641       86     A     
 BDT                SA4    A4+B4       LI = LI + 4                                         FCC0641       87     A     
 BDT                IX6    X2+X3                                                           FCC0641       88     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3509    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SB2    B2-B1       I = I - 1                                           FCC0641       89     A     
 BDT                UX1    B3,X1                                                           FCC0641       90     A     
 BDT                BX5    -X0*X4      PR = PRIOR[LI]                                      FCC0641       91     A     
 BDT                SA6    A4-B4                                                           FCC0641       92     A     
 BDT                NE     B3,B5,CIP5A IF OC[R1] " OC.RS                                   FCC0641       93     A     
 BDT                BX5    X7          PR = SEQTIME  */ FORCE LST = 0                      FCC0641       94     A     
 BDT       CIP5A    NZ     B2,CIP5     IF I " 0                                            FCC0641       95     A     
 BDT                                                                                       BDT          873     A     
 BDT       DBG      IF     DEF,/DEBUG/TREE                                                 BDT          874     A     
 BDT                SNAPRL BDT-X                                                           BDT          875     A     
 BDT                SA1    O.TREE                                                          BDT          876     A     
 BDT                SA5    TREEL                                                           BDT          877     A     
 BDT                IX6    X5-X1                                                           BDT          878     A     
 BDT                BX7    X1                                                              BDT          879     A     
 BDT                SA6    L.TREE      L.TREE = TREEL - O.TREE                             BDT          880     A     
 BDT                SA7    DTSA+1                                                          BDT          881     A     
 BDT                SX6    A0-3                                                            BDT          882     A     
 BDT                SA6    A7+2                                                            BDT          883     A     
 BDT                SA1    DTSA                                                            BDT          884     A     
 BDT                RJ     =XDMPTREE   SNAP THE DEPENDENCY TREE                            BDT          885     A     
 BDT                RJ     =XRESTORE                                                       BDT          886          I
          -FEAT155F 
 BDT                RJ     =XRESET=                                                        FEAT155F     264     A     
 BDT       DBG      ENDIF                                                                  BDT          887     A     
 BDT                                                                                       BDT          888     A     
 BDT                EQ     SIT                                                             BDT          889     A     
 BDT       CIP-JAM  EJECT                                                                  BDT          890     A     
 BDT      **        JAM MODE "PRIORITY" CALCULATION                                        BDT          891     A     
 BDT      *         ELIMINATE DUPLICATE EDGES FROM THE TREE. ( FOR MCG/RIL )               BDT          892     A     
 BDT      *         REFORMAT IT AS A USES INDEX TABLE.                                     BDT          893     A     
 BDT      *         SETUP THE USES, LST AND NPRED FIELDS IN THE LINK WORD.                 BDT          894     A     
 BDT                                                                                       BDT          895     A     
 BDT       CIP6     SA3    O.TREE                                                          BDT          896     A     
 BDT                MX1    -D.USESL                                                        BDT          897     A     
 BDT                SX0    B1+B1       PR = 2                                              BDT          898     A     
 BDT                LX1    D.USESP                                                         BDT          899     A     
 BDT                SB7    X3          TF = O.TREE                                         BDT          900     A     
 BDT                MX7    0                                                               BDT          901     A     
 BDT                LX0    U.LSTP                                                          BDT          902     A     
 BDT                SA7    B7-B1       UI = O.TREE - 1;  [UI] = 0 */ STORE ADDR            BDT          903     A     
 BDT                SB6    60-T.SUCCP                                                      BDT          904     A     
 BDT                SA5    X3          TI = O.TREE   */ FETCH ADDR                         BDT          905     A     
 BDT                SB5    B7-B1       UF = O.TREE - 1                                     BDT          906     A     
 BDT                SB2    I.LSTP-U.LSTP                                                   BDT          907     A     
 BDT                BX2    X0                                                              BDT          908     A     
 BDT                SB3    A0-B1                                                           BDT          909     A     
 BDT                                                                                       BDT          910     A     
 BDT      *         COUNT PREDECESSORS OF CURRENT SUCCESSOR                                BDT          911     A     
 BDT                                                                                       BDT          912     A     
 BDT       CIP7     BX6    X5          TL = [TI]                                           BDT          913     A     
 BDT                SA5    A5+B1       TI = TI + 1                                         BDT          914     A     
 BDT                LX7    B6,X6                                                           BDT          915     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3510    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                BX4    X6-X5                                                           BDT          916     A     
 BDT                ZR     X4,CIP7     IF [TI] = TL  */ DUP EDGE                           BDT          917     A     
 BDT                                                                                       BDT          918     A     
 BDT                IX7    X0+X7                                                           BDT          919     A     
 BDT                AX4    T.SUCCP                                                         BDT          920     A     
 BDT                SA7    A7+B1       UI = UI + 1;  [UI] = SIT(PRED[TL],PR,SUCC[TL])      BDT          921     A     
 BDT                ZR     X4,CIP7     IF SUCC[TI] = SUCC[TL]                              BDT          922     A     
 BDT                                                                                       BDT          923     A     
 BDT      *         SETUP INFO IN LINK WORD                                                BDT          924     A     
 BDT                                                                                       BDT          925     A     
 BDT                SA3    B3+X7       DI = O.TXT+2 + SUCC[TL]                             BDT          926     A     
 BDT                SX4    A7-B5       NPRED[LW] = UI - UF                                 BDT          927     A     
 BDT                LX7    B2,X0       LST[LW] = PR                                        BDT          928     A     
 BDT                LX4    I.NPREDP                                                        BDT          929     A     
 BDT                BX3    -X1*X3                                                          BDT          930     A     
 BDT                IX0    X0+X2       PR = PR + 2                                         BDT          931     A     
 BDT                LX3    I.USESP-D.USESP   USES[LW] = USES[DI]                           BDT          932     A     
 BDT                BX4    X4+X7                                                           BDT          933     A     
 BDT                SB5    A7          UF = UI                                             BDT          934     A     
 BDT                IX6    X4+X3                                                           BDT          935     A     
 BDT                SA6    A3+B1       LW = DI + 1                                         BDT          936     A     
 BDT                NZ     X5,CIP7     IF [TI] " 0                                         BDT          937     A     
 BDT                                                                                       BDT          938     A     
 BDT                BX6    X0                                                              BDT          939     A     
 BDT                SA6    A0          LST[BASE] = PR                                      BDT          940     A     
 BDT                MX7    0                                                               BDT          941     A     
 BDT                SA7    A7+B1       UI = UI + 1;  [UI] = 0                              BDT          942     A     
 BDT                SX6    A7                                                              BDT          943     A     
 BDT                SA6    TREEL       TREEL = UI                                          BDT          944     A     
 BDT                SX1    A7-B7       L.TREE = UI - O.TREE                                BDT          945     A     
 BDT                BX7    X1                                                              BDT          946     A     
 BDT                SA3    EQVL                                                            BDT          947     A     
 BDT                ZR     X3,SIT1A    IF EQVL = 0                                         BDT          948     A     
 BDT                                                                                       BDT          949     A     
 BDT                MX0    -1                                                              BDT          950          I
          -FCC0448
 BDT                MX0    -2                                                              FCC0448      187     A     
 BDT                SB6    B0                                                              BDT          951     A     
 BDT                MX5    0                                                               BDT          952     A     
 BDT                LX0    U.EQVP                                                          BDT          953     A     
 BDT                SA7    L.TREE                                                          BDT          954     A     
 BDT                CALL   SST         SORT( TREE , [PRED,SUCC] )                          BDT          955     A     
 BDT                EQ     SIT1B                                                           BDT          956     A     
 BDT       SIT      SPACE  2           SIT                                                 BDT          957     A     
 BDT      **        SIT - REFORMAT THE TREE AS A *USES INDEX* TABLE.                       BDT          958     A     
 BDT      *                24/PRED,18/LST[SUCC],18/SUCC                                    BDT          959     A     
 BDT                                                                                       BDT          960     A     
 BDT       SIT      SA1    TREEL                                                           BDT          961     A     
 BDT                SA5    X1-1        UI = TREEL - 1                                      BDT          962     A     
 BDT                MX0    -I.LSTL                                                         BDT          963     A     
 BDT                SB4    A0          BASE = O.TXT + 3                                    BDT          964     A     
 BDT                LX0    I.LSTP                                                          BDT          965     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3511    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SB5    60-T.SUCCP                                                      BDT          966     A     
 BDT                LX6    B5,X5                                                           BDT          967     A     
 BDT                                                                                       BDT          968     A     
 BDT       SIT1     SA4    B4+X6       PW = BASE + SUCC[UI]                                BDT          969     A     
 BDT                SA5    A5-B1       UI = UI - 1                                         BDT          970     A     
 BDT                BX3    -X0*X4                                                          BDT          971     A     
 BDT                LX3    U.LSTP-I.LSTP                                                   BDT          972     A     
 BDT                IX7    X3+X6       LST[UI+1] = LST[PI]                                 BDT          973     A     
 BDT                LX6    B5,X5                                                           BDT          974     A     
 BDT                SA7    A5+B1                                                           BDT          975     A     
 BDT                NZ     X5,SIT1     IF [UI] " 0                                         BDT          976     A     
 BDT                                                                                       BDT          977     A     
 BDT                SX6    A5+B1                                                           BDT          978     A     
 BDT                SB7    A5+B1       O.TREE = UI + 1                                     BDT          979     A     
 BDT                IX7    X1-X6       L.TREE = TREEL - O.TREE                             BDT          980     A     
 BDT                BX1    X7                                                              BDT          981     A     
 BDT       SIT1A    SA7    L.TREE                                                          BDT          982     A     
 BDT                CALL   SHL         SORT( TREE , [PRED,LST[SUCC],SUCC] )                BDT          983     A     
 BDT       SIT      SPACE  3                                                               BDT          984          I
          -FCC1126
 BDT       SIT      SPACE  2                                                               FCC1126       21     A     
 BDT      *         NOW SETUP THE USES INDEX INFO IN THE LINK WORD OF THE INST             BDT          985     A     
 BDT                                                                                       BDT          986     A     
 BDT       SIT1B    MX0    1                                                               BDT          987     A     
 BDT                SB3    U.PREDP                                                         BDT          988     A     
 BDT                LX0    1+U.LASTP                                                       BDT          989     A     
 BDT                SA5    B7          UI = O.TREE                                         BDT          990     A     
 BDT                MX1    -U.PREDL                                                        BDT          991     A     
 BDT                SB6    B7          UF = O.TREE                                         BDT          992     A     
 BDT                LX1    U.PREDP                                                         BDT          993     A     
 BDT                SB5    A0          BASE = O.TXT + 3                                    BDT          994     A     
 BDT                EQ     SIT3                                                            BDT          995     A     
 BDT                                                                                       BDT          996     A     
 BDT       SIT2     BX6    X2+X3       [LW] = UINFO(USES,INDX,LST,NPRED)                   BDT          997     A     
 BDT                SA6    A3+                                                             BDT          998     A     
 BDT                                                                                       BDT          999     A     
 BDT       SIT3     LX4    X5          UL = UI                                             BDT         1000     A     
 BDT                SA5    A5+B1       UI = UI + 1                                         BDT         1001     A     
 BDT                BX6    X4-X5                                                           BDT         1002     A     
 BDT                BX7    -X1*X6                                                          BDT         1003     A     
 BDT                ZR     X7,SIT3     IF PRED[UI] = PRED[UL]                              BDT         1004     A     
 BDT                                                                                       BDT         1005     A     
 BDT                AX6    B3,X4                                                           BDT         1006     A     
 BDT                SX2    B6-B7       INDX = UF - O.TREE                                  BDT         1007     A     
 BDT                BX7    X0+X4       LAST[UI-1] = 1                                      BDT         1008     A     
 BDT                SA3    B5+X6       LW = BASE + PRED[UL]                                BDT         1009     A     
 BDT                LX2    I.INDXP                                                         BDT         1010     A     
 BDT                SB6    A5          UF = UI                                             BDT         1011     A     
 BDT                SA7    A5-B1                                                           BDT         1012     A     
 BDT                NZ     X5,SIT2     IF [UI] " 0                                         BDT         1013     A     
 BDT                BX6    X2+X3                                                           BDT         1014     A     
 BDT                SA6    A3                                                              BDT         1015     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3512    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                                                                                       BDT         1016     A     
 BDT       DBG      IF     DEF,/DEBUG/BDT                                                  BDT         1017     A     
 BDT                SNAPRL BDT-X                                                           BDT         1018     A     
 BDT                SA2    O.TREE                                                          BDT         1019     A     
 BDT                SX7    A0-3                                                            BDT         1020     A     
 BDT                BX6    X2                                                              BDT         1021     A     
 BDT                SA6    DTSA+1                                                          BDT         1022     A     
 BDT                SA7    A6+2                                                            BDT         1023     A     
 BDT                SA1    DTSA                                                            BDT         1024     A     
 BDT                CALL   DMPSIT                                                          BDT         1025     A     
 BDT                CALL   RESET=                                                          BDT         1026     A     
 BDT       DBG      ENDIF                                                                  BDT         1027     A     
 BDT                EQ     BDT                                                             BDT         1028     A     
 BDT                                                                                       BDT         1029     A     
 BDT       DBG      IF     DEF,DEBUG                                                       BDT         1030          I
          -FCC1056
 BDT                USE    SNAPS                                                           BDT         1031          I
          -FCC1056
 BDT       .T       IFNE   TEST,0                                                          FCC1056       46     A     
 BDT                USE    DEBUG                                                           FCC1056       47     A     
 BDT       DTSA     CON    DTSB,0,L.TREE                                                   BDT         1032     A     
 BDT                BSSZ   2                                                               BDT         1033     A     
 BDT       DTSB     BSSZ   1           SNAP COUNT                                          BDT         1034     A     
 BDT                USE    0                                                               BDT         1035     A     
 BDT       DBG      ENDIF                                                                  BDT         1036          I
          -FCC1056
 BDT       .T       ENDIF                                                                  FCC1056       48     A     
 BDT       GAS      SPACE  3           GAS                                                 BDT         1037     A     
 BDT      **        GAS - GET ADDITIONAL SPACE TO BUILD THE TREE AND RESTART               BDT         1038     A     
 BDT      *         NOTE - THIS SUBROUTINE SHOULD ALMOST NEVER BE CALLED IF THE            BDT         1039     A     
 BDT      *         INITIAL STORAGE REQUEST IS SUFFICIENT.                                 BDT         1040     A     
 BDT      *         ENTRY  (X1) = MIN SPACE NEEDED                                         BDT         1041     A     
 BDT      *         EXIT   *TREE* SPACE INCREASED, POINTERS ADJUSTED, TO *FIL*             BDT         1042     A     
 BDT                                                                                       BDT         1043     A     
 BDT       GAS0     SX1    140B                                                            FCC1700X       8     A     
 BDT                                                                                       FCC1700X       9     A     
 BDT       GAS      SX1    X1+40B                                                          BDT         1044     A     
 BDT                ALLOC  TREE,X1     GET SPACE                                           BDT         1045     A     
 BDT                SA5    O.TXT                                                           BDT         1046     A     
 BDT                SX3    X3-1                                                            BDT         1047     A     
 BDT                IX6    X2+X3                                                           BDT         1048     A     
 BDT                SA6    TREEL                                                           BDT         1049     A     
 BDT                SA0    X5          (A0) = O.TXT                                        BDT         1050     A     
 BDT                SB2    B1+B1       (B2) = 2                                            BDT         1051     A     
 BDT                SB4    B2+B2       (B4) = 4                                            BDT         1052     A     
 BDT                EQ     FIL                                                             BDT         1053          I
          -FCC2020
 BDT                SX7    X3-70000B                                                       FCC2020       16     A     
 BDT                MI     X7,FIL      IF L.TREE < 70K                                     FCC2020       17     A     
 BDT                                                                                       FCC2020       18     A     
 BDT                LISTL  BDTM,L.BDTM LIST ERROR MESSAGE                                  FCC2020       19     A     
 BDT                EQ     =XPS2ABT                                                        FCC2020       20     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3513    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                                                                                       FCC2020       21     A     
 BDT       BDTM     DIS    ,/ * PROGRAM CONTAINS SEQUENCES THAT ARE TOO LONG, CANN         FCC2020       22     A     
 BDT      ,OT BE COMPILED /                                                                FCC2020       23     A     
 BDT       L.BDTM   EQU    *-BDTM                                                          FCC2020       24     A     
 BDT                                                                                       BDT         1054     A     
 BDT                QUAL                                                                   BDT         1055     A     
 BDT       RIO      TITLE  RIO - RESET INSTRUCTION ORDER                                   BDT         1056     A     
 BDT      **        RIO - RESET INSTRUCTION ORDER                                          BDT         1057     A     
 BDT      *                                                                                BDT         1058     A     
 BDT      *         RIO REORDERS THE INSTRUCTIONS TO BRING THEM TO AN ORDER THAT           BDT         1059     A     
 BDT      *         IS "MINIMUM" WIDTH WITH RESPECT TO ITS X-REGISTER                      BDT         1060     A     
 BDT      *         REQUIREMENTS.  THE ALGORITHM USED HERE IS STRAIGHT FROM                BDT         1061     A     
 BDT      *         AHO-ULLMAN VOLUME II, AND ACHIEVES A MINIMUM ONLY IN THE               BDT         1062     A     
 BDT      *         CASE OF NO MULTIPLE USES.                                              BDT         1063     A     
 BDT      *                                                                                BDT         1064     A     
 BDT      *         ENTRY  SEQUENCE TO BE REORDERED IN *TXT*, LINK WORDS ARE ZERO,         BDT         1065     A     
 BDT      *                USES COUNTS AND PRECEDENCE BITS SET IN DESCRIPTORS.             BDT         1066     A     
 BDT      *                (X6) = RMODE, 0 IF CALL FROM MCG, 1 IF CALL FROM GPO            FCC0514      465     A     
 BDT      *                                                                                BDT         1067     A     
 BDT      *         EXIT   (X6) = MAX REG WIDTH OF THE SEQUENCE                            BDT         1068     A     
 BDT      *                *REGW* FIELD SET IN THE DESCRIPTORS OF ALL INSTRUCTIONS.        BDT         1069     A     
 BDT      *                LINK WORDS CLEARED.                                             BDT         1070     A     
 BDT                                                                                       BDT         1071     A     
 BDT      *         JT. - RIO TREE AFTER REFORMATTING                                      BDT         1072     A     
 BDT                                                                                       BDT         1073     A     
 BDT                DESCRIBE JT.,60    JT(SUCC,LVL,PRED)                                   BDT         1074     A     
 BDT       SUCC     DEFINE 18                                                              BDT         1075     A     
 BDT                DEFINE 6                                                               BDT         1076     A     
 BDT       LVL      DEFINE 18          LEVEL OF PRED  ( NODE LABEL OR WEIGHT )             BDT         1077     A     
 BDT       PRED     DEFINE 18                                                              BDT         1078     A     
 BDT                                                                                       BDT         1079     A     
 BDT      *         I. - FORMAT OF LINK WORD DURING DEPTH FIRST SEARCH ( *SIO* )           BDT         1080     A     
 BDT                                                                                       BDT         1081     A     
 BDT                DESCRIBE I.,60     LW(FLAGS,PRI,LVL,NP)                                BDT         1082     A     
 BDT       MI       DEFINE 1           MARKED INSTRCUTION ( VISITED )                      BDT         1083     A     
 BDT       II       DEFINE 1           ISSUED INSTRUCTION                                  BDT         1084     A     
 BDT                DEFINE 4                                                               BDT         1085          I
          -FCC0791
 BDT       RDST     DEFINE 1           =1 IF A REDEF ST BELOW INST IN THE STACK            FCC0791        5     A     
 BDT                DEFINE 3                                                               FCC0791        6          I
          -FCC1126
 BDT       STCP     DEFINE 1           =1 IF ST CHAIN PROCESSED                            FCC1126       22     A     
 BDT                DEFINE 2                                                               FCC1126       23     A     
 BDT       PRI      DEFINE 18          ADDRESS OF PRED LIST IN *TREE*                      BDT         1086     A     
 BDT       LVL      DEFINE 18          LEVEL                                               BDT         1087          I
          -FCC0514
 BDT       LVL      DEFINE 18          LEVEL / ST CHAIN POINTER                            FCC0514      466     A     
 BDT       NP       DEFINE 18          N.PRED NOT YET VISITED                              BDT         1088     A     
 BDT                                                                                       BDT         1089     A     
 BDT       OI       DEQU   NP          OUTPUT INDEX ( FINAL ORED OF INSTRUCTION )          BDT         1090     A     
 BDT                                                                                       FCC1290        6     A     
 BDT       MIN.PR   EQU    10B         MIN PRIORITY FOR NON-TERMINAL INSTRUCTIONS          FCC1290        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3514    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT       RIO      SPACE  2                                                               BDT         1091     A     
 BDT       RIO      ENTRY. **                                                              BDT         1092     A     
 BDT                SA6    RMODE                                                           BDT         1093          I
          -FCC0514
 BDT                SX7    B1                                                              BDT         1094          I
          -FCC0514
 BDT                NZ     X6,RIO1     IF RMODE " 0  */ CALL FROM *GPO*                    FCC0514      467     A     
 BDT                SA1    =XPSLC                                                          FCC0514      468          I
          -FCC0675
 BDT                NZ     X1,SIO10    IF PSLC " 0   */ OUTSIDE OF ALL LOOPS               FCC0514      469          I
          -FCC0675
 BDT                SA1    =XHBI                                                           FCC0675      256     A     
 BDT                ZR     X1,SIO10    IF HBI = 0    */ OUTSIDE OF ALL LOOPS               FCC0675      257     A     
 BDT                                                                                       FCC0514      470     A     
 BDT       RIO1     SA6    RMODE                                                           FCC0514      471     A     
 BDT                SX7    X6+B1                                                           FCC0514      472     A     
 BDT                MX6    0                                                               BDT         1095     A     
 BDT                SA7    SIOCALL                                                         BDT         1096     A     
 BDT                CALL   BDT         FORM THE DEPENDENCY GRAPH                           BDT         1097     A     
 BDT                                                                                       BDT         1098     A     
 BDT      *         ALLOCATE EXTRA SPACE IN *TREE* FOR THE STACK, AND MOVED INSTS.         BDT         1099     A     
 BDT                                                                                       BDT         1100     A     
 BDT                SA3    N.INST                                                          BDT         1101     A     
 BDT                SA4    L.TREE                                                          BDT         1102     A     
 BDT                SA5    L.TXT                                                           BDT         1103     A     
 BDT                SB3    X3+B1                                                           BDT         1104     A     
 BDT                IX1    X5-X4                                                           BDT         1105     A     
 BDT                SB4    X1+B1                                                           BDT         1106     A     
 BDT                GT     B4,B3,RIO2  L = MAX( N.INST+2 , L.TXT - L.TREE )                BDT         1107     A     
 BDT                SX1    B3+B1                                                           BDT         1108     A     
 BDT       RIO2     ALLOC  TREE,X1     ALLOC( TREE , L )                                   BDT         1109     A     
 BDT                MX6    0                                                               BDT         1110     A     
 BDT                SA0    X2                        (A0) = TREE                           BDT         1111     A     
 BDT                SA6    X2+B6       TREE(OLD(LTREE)) = 0                                BDT         1112     A     
 BDT       RIO      SPACE  2,14                                                            BDT         1113     A     
 BDT      *         REFORMAT THE TREE, CALCULATE THE INSTRUCTION NODE LABELS AS            BDT         1114     A     
 BDT      *         PER AHO-ULLMAN, SETUP LINK WORDS FOR DEPTH FIRST SEARCH.               BDT         1115     A     
 BDT                                                                                       BDT         1116     A     
 BDT                MX7    2                                                               BDT         1117     A     
 BDT                SA4    O.TXT                                                           BDT         1118     A     
 BDT                SX6    B1                                                              BDT         1119          I
          -FCC1056
 BDT                SX6    B1+B1                                                           FCC1056       49          I
          -FCC1290
 BDT                SB2    MIN.PR                    (B2) = MIN.PR                         FCC1290        8     A     
 BDT                SX6    B2                                                              FCC1290        9     A     
 BDT                SB7    X4+3        TB = TXT + 3                                        BDT         1120     A     
 BDT                LX6    I.LVLP                                                          BDT         1121     A     
 BDT                BX7    X7+X6                                                           BDT         1122     A     
 BDT                SA7    B7          [TB] = LW(II,MI,0,1,0)                              BDT         1123          I
          -FCC1056
 BDT                SA7    B7          [TB] = LW(II,7I,0,2,0)                              FCC1056       50          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3515    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
          -FCC1290
 BDT                SA7    B7          [TB] = LW(II,MI,0,MIN.PR,0)                         FCC1290       10     A     
 BDT                MX0    -T.SUCCL                                                        BDT         1124     A     
 BDT                SB6    A0          TF = TREE                                           BDT         1125     A     
 BDT                LX0    T.SUCCP                                                         BDT         1126     A     
 BDT                MX1    0           DLV = 0       */ DIFFERENCE OF LEVELS               BDT         1127     A     
 BDT                SX2    B1          LLV = 1       */ LAST *LV*                          BDT         1128          I
          -FCC1056
 BDT                SB4    B1          MLV = 1       */ MAX LVL OF PRED                    BDT         1129          I
          -FCC1056
 BDT                SX2    B1+B1       LLV = 2       */ LAST *LV*                          FCC1056       51          I
          -FCC1290
 BDT                SB4    B1+B1       MLV = 2       */ MAX LVL OF PRED                    FCC1056       52          I
          -FCC1290
 BDT                SX2    B2          LLV = MIN.PR  */ LAST *LV*                          FCC1290       11     A     
 BDT                SB4    B2          MLV = MIN.PR  */ MAX LVL OF PRED                    FCC1290       12     A     
 BDT                SA5    A0          TI = TREE                                           BDT         1130     A     
 BDT                SB5    B7-B1       DB = TB - 1                                         BDT         1131     A     
 BDT                EQ     RIO5                                                            BDT         1132     A     
 BDT                                                                                       BDT         1133     A     
 BDT      *         STORE REFORMATTED EDGE, ADVANCE TO NEXT EDGE                           BDT         1134     A     
 BDT                                                                                       BDT         1135     A     
 BDT       RIO4     SA7    A5          [TI] = TN                                           BDT         1136     A     
 BDT                BX4    X5          TL = [TI]                                           BDT         1137     A     
 BDT                SB4    B3          MLV = LV                                            BDT         1138     A     
 BDT                SA5    A5+B1       TI = TI + 1                                         BDT         1139     A     
 BDT                BX6    X4-X5                                                           BDT         1140     A     
 BDT                BX7    -X0*X6                                                          BDT         1141     A     
 BDT                NZ     X7,RIO6     IF SUCC[TI] " SUCC[TL]                              BDT         1142     A     
 BDT                                                                                       BDT         1143     A     
 BDT      *         REFORMAT EDGE, UPDATE DLV, MLV                                         BDT         1144     A     
 BDT                                                                                       BDT         1145     A     
 BDT       RIO5     LX5    -T.PREDP    R = PRED[TI]                                        BDT         1146     A     
 BDT                SA3    B7+X5       LI = TB + R                                         BDT         1147     A     
 BDT                LX3    -I.LVLP     LV = LVL[LI]                                        BDT         1148     A     
 BDT                BX2    X2-X3                                                           BDT         1149     A     
 BDT                BX1    X1+X2       DLV = DLV ! XOR(LLV,LV)                             BDT         1150     A     
 BDT                SB3    X3                                                              BDT         1151     A     
 BDT                SX2    X3          LLV = LV                                            BDT         1152     A     
 BDT                SX6    X5                                                              BDT         1153     A     
 BDT                LX5    T.PREDP                                                         BDT         1154     A     
 BDT                LX6    JT.PREDP                                                        BDT         1155     A     
 BDT                BX4    -X0*X5                                                          BDT         1156     A     
 BDT                LX4    JT.SUCCP-T.SUCCP                                                BDT         1157     A     
 BDT                SX3    X3                                                              BDT         1158     A     
 BDT                BX6    X4+X6                                                           BDT         1159     A     
 BDT                LX3    JT.LVLP                                                         BDT         1160     A     
 BDT                BX7    X6+X3       TN = JT(SUCC[TI],LV,R)                              BDT         1161     A     
 BDT                GE     B3,B4,RIO4  IF LV \ MLV                                         BDT         1162     A     
 BDT                                                                                       BDT         1163     A     
 BDT      *         LV < MLV , SWAP EDGES                                                  BDT         1164     A     
 BDT                                                                                       BDT         1165     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3516    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SA4    A5-B1       TLL = [TI-1]                                        BDT         1166     A     
 BDT                SB3    B4+         LV = MLV                                            BDT         1167     A     
 BDT                SA7    A4          [TI-1] = TN                                         BDT         1168     A     
 BDT                BX7    X4          TN = TLL                                            BDT         1169     A     
 BDT                EQ     RIO4                                                            BDT         1170     A     
 BDT                                                                                       BDT         1171     A     
 BDT      *         TERMINATE EDGE GROUP, INITIALIZE FOR NEW GROUP                         BDT         1172     A     
 BDT                                                                                       BDT         1173     A     
 BDT       RIO6     SX6    B6          PRI = TF                                            BDT         1174     A     
 BDT                SX3    A5-B6       NP = TI - TF  */ N.PRED                             BDT         1175     A     
 BDT                LX6    I.PRIP                                                          BDT         1176     A     
 BDT                LX3    I.NPP                                                           BDT         1177     A     
 BDT                SX1    X1                                                              BDT         1178     A     
 BDT                BX7    X6+X3                                                           BDT         1179     A     
 BDT                LX4    -T.SUCCP    S = SUCC[TI]                                        BDT         1180     A     
 BDT                NZ     X1,RIO7     IF DLV " 0    */ PRED AT DIFF LEVELS                BDT         1181     A     
 BDT                AX3    I.NPP+1                                                         BDT         1182     A     
 BDT                ZR     X3,RIO7     IF NP = 1                                           BDT         1183     A     
 BDT                SB4    B4+B1       MLV = MLV + 1                                       BDT         1184     A     
 BDT                                                                                       BDT         1185     A     
 BDT      *         IF INSTRUCTION *PRS*, THEN CHECK FOR A TEMP LOCK, AND IF SO,           BDT         1186          I
          -FCC1290
 BDT      *         SET *LVL* TO ZERO TO FORCE IT TO COME JUST BEFORE IS USES              BDT         1187          I
          -FCC1290
 BDT      *         ( ILS,IRS KLUDGE ).                                                    BDT         1188          I
          -FCC1290
 BDT      *         IF INSTRUCTION IS TERMINAL ( ST OR *PRS* ) THEN ADJUST *LVL*           FCC1290       13     A     
 BDT      *         SO THE ORDER OF THE INSTRUCTIONS WILL BE - ST"S, PRS TO X0,6,7         FCC1290       14     A     
 BDT      *         AND PRS TO A LD-REG. IF THE INSTRUCTION PRS TO A B-REG AND IT          FCC1290       15     A     
 BDT      *         IS A TEMP LOCK, THEN SET *LVL* TO 0 TO FORCE IT TO COME                FCC1290       16     A     
 BDT      *         JUST BEFORE ITS USES. THIS IS THE INDEXED SHIFT KLUDGE.                FCC1290       17     A     
 BDT                                                                                       BDT         1189     A     
 BDT       RIO7     SA3    B5+X4       DI = DB + S                                         BDT         1190     A     
 BDT                SX2    B4+                                                             BDT         1191     A     
 BDT                LX3    59-D.PRSP                                                       BDT         1192     A     
 BDT                PL     X3,RIO7A    IF ^PRS[DI]                                         BDT         1193          I
          -FCC0625
 BDT                SA3    A3+2        R1RS = DI + 2                                       BDT         1194          I
          -FCC0514  -FCC0625
 BDT                LX3    D.PRSP-D.LDP                                                    FCC0514      473          I
          -FCC0625
 BDT                PL     X3,RIO7B    IF ^LD[DI]                                          FCC0514      474          I
          -FCC0625
 BDT                SA3    A3-B1       R2 = DI - 1                                         FCC0514      475          I
          -FCC0625
 BDT                LX3    59-IH.LDP                                                       FCC0514      476          I
          -FCC0625
 BDT                AX3    59                                                              FCC0514      477          I
          -FCC0625
 BDT                BX2    -X3*X2      MLV = ^LD[IH] & MLV  */ MLV = 0 IF APLIST L         FCC0514      478          I
          -FCC0625
 BDT                EQ     RIO7A                                                           FCC0514      479          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3517    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
          -FCC0625
 BDT                                                                                       FCC0514      480          I
          -FCC0625
 BDT       RIO7B    SA3    A3+2        R1RS = DI + 2                                       FCC0514      481          I
          -FCC0625
 BDT                LX3    59-R1.SOP-SO.LKP                                                BDT         1195          I
          -FCC0625
 BDT                PL     X3,RIO7A    IF SOLK[R1RS] " 1  */ ^ TEMP LOCK                   BDT         1196          I
          -FCC0625
 BDT                PL     X3,RIO7A    IF ^PRS[DI]                                         FCC0625       19          I
          -FCC0881
 BDT                SA3    A3+2        R1RS = DI + 2                                       FCC0625       20          I
          -FCC0881
 BDT                LX3    58-R1.SOP-SO.LKP                                                FCC0625       21          I
          -FCC0881
 BDT                MI     X2,RIO7A    IF SOLK[R1RS] > 1  */ ^ UJP OR TEMP LOCK            FCC0625       22          I
          -FCC0881
 BDT                SX2    B0          MLV = 0       */ FORCE LATE OUTPUT IN *SIO*         BDT         1197          I
          -FCC0881
 BDT                                                                                       BDT         1198          I
          -FCC0881
 BDT       RIO7A    LX2    I.LVLP                                                          BDT         1199          I
          -FCC0881
 BDT                PL     X3,RIO7B    IF ^PRS[DI]                                         FCC0881      238          I
          -FCC1056
 BDT                SA1    A3+2        R1RS = DI + 2                                       FCC0881      239          I
          -FCC1056
 BDT                MI     X3,RIO7AA   IF PRS[DI]                                          FCC1056       53     A     
 BDT                LX3    D.PRSP-D.STP                                                    FCC1056       54     A     
 BDT                PL     X3,RIO7B    IF ^ST[DI]                                          FCC1056       55     A     
 BDT                                                                                       FCC1056       56     A     
 BDT      *         FORCE STORES TO COME BEFORE RS"S TO X-REGISTERS                        FCC1056       57     A     
 BDT                                                                                       FCC1056       58     A     
 BDT                GT     B4,B1,RIO7B MLV = MAX( MLV , 2 )                                FCC1056       59          I
          -FCC1290
 BDT                SX2    B1+B1                                                           FCC1056       60          I
          -FCC1290
 BDT                GE     B4,B2,RIO7B MLV = MAX( MLV, MIN.PR )                            FCC1290       18     A     
 BDT                SX2    B2                                                              FCC1290       19     A     
 BDT                EQ     RIO7B                                                           FCC1056       61     A     
 BDT                                                                                       FCC1056       62     A     
 BDT       RIO7AA   SA1    A3+2        R1RS = R1 + 2                                       FCC1056       63          I
          -FCC1322
 BDT       RIO7AA   SA1    A3+2        R1RS = DI + 2                                       FCC1322        5          I
          -FCC1825X 
 BDT       RIO7AA   LX3    D.PRSP-D.ZPP                                                    FCC1825X      25     A     
 BDT                SX2    B0          SAVE = MLV;  MLV = 0  */ FORCE LATE OUTPUT          FCC1825X      26     A     
 BDT                MI     X3,RIO7B    IF ZP[DI]                                           FCC1825X      27     A     
 BDT                SA1    A3+2        R1RS = DI + 2                                       FCC1825X      28     A     
 BDT                LX1    58-R1.SOP-SO.LKP                                                FCC0881      240          I
          -FCC1290
 BDT                PL     X1,RIO7A    IF SOLK[R1RS] < 2  */ UJP ! TEMP LOCK               FCC0881      241          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3518    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
          -FCC1290
 BDT                LX1    SO.LKP-SO.RTP                                                   FCC0881      242          I
          -FCC1290
 BDT                PL     X1,RIO7B    IF SORT[R1RS] " 2  */ ^RS TO AN X-REG               FCC0881      243          I
          -FCC1290
 BDT                LX1    58-R1.SOP-SO.RTP                                                FCC1290       20     A     
 BDT                PL     X1,RIO7A    IF SORT[R1RS] " 2  */ ^RS TO AN X-REGISTER          FCC1290       21     A     
 BDT                                                                                       FCC0881      244     A     
 BDT                LX1    2+SO.RTP-SO.RNP                                                 FCC0881      245     A     
 BDT                MX3    -SO.RNL                                                         FCC0881      246     A     
 BDT                BX1    -X3*X1                                                          FCC0881      247     A     
 BDT                SB2    X1                                                              FCC0881      248          I
          -FCC1290
 BDT                SX3    301B                                                            FCC0881      249          I
          -FCC1290
 BDT                AX3    B2,X3                                                           FCC0881      250          I
          -FCC1290
 BDT                SB3    X1                                                              FCC1290       22     A     
 BDT                SX3    301B                                                            FCC1290       23     A     
 BDT                AX3    B3,X3                                                           FCC1290       24     A     
 BDT                MX1    -1                                                              FCC0881      251     A     
 BDT                BX2    -X1*X3      MLV = 1 & SHIFT(301B,-SORN[R1RS])                   FCC0881      252     A     
 BDT                SX2    X2+2        MLV = MLV + 2                                       FCC1290       25     A     
 BDT                EQ     RIO7B                                                           FCC0881      253     A     
 BDT                                                                                       FCC0881      254     A     
 BDT       RIO7A    SX2    0           MLV = 0       */ FORCE LATE OUTPUT IN *SIO*         FCC0881      255          I
          -FCC1290
 BDT       RIO7A    LX1    SO.RTP-SO.LKP                                                   FCC1290       26     A     
 BDT                MI     X1,RIO7B    IF SOLK[R1RS] = 2 */ ^(TEMP ! UJP) LOCK             FCC1290       27          I
          -FCC1322
 BDT                SX2    B0          MLV = 0       */ FORCE LATE OUTPUT IN *SIO*         FCC1290       28          I
          -FCC1322
 BDT                SX2    B0          SAVE = MLV;  MLV = 0 */ FORCE LATE OUTPUT           FCC1322        6          I
          -FCC1825X 
 BDT                PL     X1,RIO7B    IF SOLK[R1RS] < 2  */ IF TEMP OR UJP LOCK           FCC1322        7     A     
 BDT                LX3    D.PRSP-D.ZPP                                                    FCC1322        8          I
          -FCC1825X 
 BDT                MI     X3,RIO7B    IF ZP[DI]                                           FCC1322        9          I
          -FCC1825X 
 BDT                SX2    B4          MLV = SAVE                                          FCC1322       10     A     
 BDT                                                                                       FCC0881      256     A     
 BDT       RIO7B    LX2    I.LVLP                                                          FCC0881      257     A     
 BDT                BX6    X2+X7                                                           BDT         1200     A     
 BDT                SA6    B7+X4       [TB+S] = LW(0,PRI,MLV,NP)                           BDT         1201     A     
 BDT                LX5    -T.PREDP    R = PRED[TI]                                        BDT         1202     A     
 BDT                SA2    B7+X5                                                           BDT         1203     A     
 BDT                SB6    A5          TF = TI                                             BDT         1204     A     
 BDT                LX2    -I.LVLP     LLV = LVL[TB+R]                                     BDT         1205     A     
 BDT                MX1    0           DLV = 0                                             BDT         1206     A     
 BDT                SB4    X2          MLV = LLV                                           BDT         1207     A     
 BDT                LX5    T.PREDP                                                         BDT         1208     A     
 BDT                NZ     X5,RIO5     IF [TI] " 0   */ NOT END OF TREE                    BDT         1209     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3519    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT       RIO      SPACE  2,14                                                            BDT         1210          I
          -FCC1290
 BDT      *         SEARCH FOR TERMINAL *RS*"S TO STORE REGISTERS AND CLEAR THE            BDT         1211          I
          -FCC1290
 BDT      *         *LVL* IN THE TREE ENTRY SO THAT THEY MAY BE ISSUED LAST.               BDT         1212          I
          -FCC1290
 BDT                                                                                       BDT         1213          I
          -FCC1290
 BDT                SB7    B7-3                                                            BDT         1214          I
          -FCC1290
 BDT                SB4    OC.RS                                                           BDT         1215          I
          -FCC1290
 BDT                LX4    JT.SUCCP                                                        BDT         1216          I
          -FCC1290
 BDT                LX0    JT.SUCCP-T.SUCCP                                                BDT         1217          I
          -FCC1290
 BDT                SA3    A5          TJ = TI                                             BDT         1218          I
          -FCC1290
 BDT                MX5    -JT.LVLL                                                        BDT         1219          I
          -FCC1290
 BDT                MX7    -SO.REGL                                                        BDT         1220          I
          -FCC1290
 BDT                LX5    JT.LVLP                                                         BDT         1221          I
          -FCC1290
 BDT                                                                                       BDT         1222          I
          -FCC1290
 BDT       RIO8     SA3    A3-B1       TJ = TJ - 1                                         BDT         1223          I
          -FCC1290
 BDT                BX6    X3-X4                                                           BDT         1224          I
          -FCC1290
 BDT                LX3    -JT.PREDP                                                       BDT         1225          I
          -FCC1290
 BDT                SA2    B7+X3       R1 = TXT(PRED[TJ])                                  BDT         1226          I
          -FCC1290
 BDT                BX6    -X0*X6                                                          BDT         1227          I
          -FCC1290
 BDT                NZ     X6,RIO9     IF SUCC[TJ] " S                                     BDT         1228          I
          -FCC1290
 BDT                UX1    B2,X2                                                           BDT         1229          I
          -FCC1290
 BDT                LX2    -R1.SOP                                                         BDT         1230          I
          -FCC1290
 BDT                NE     B2,B4,RIO8  IF OC[R1] " OC[RS                                   BDT         1231          I
          -FCC1290
 BDT                                                                                       BDT         1232          I
          -FCC1290
 BDT                BX6    -X7*X2                                                          BDT         1233          I
          -FCC1290
 BDT                SX1    X6-26B                                                          BDT         1234          I
          -FCC1290
 BDT                MI     X1,RIO8     IF REG[R1] < 26B  */ NOT A STORE REG                BDT         1235          I
          -FCC1290
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3520    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                LX3    JT.PREDP                                                        BDT         1236          I
          -FCC1290
 BDT                BX6    X5*X3       LVL[TJ] = 0                                         BDT         1237          I
          -FCC1290
 BDT                SA6    A3                                                              BDT         1238          I
          -FCC1290
 BDT                EQ     RIO8                                                            BDT         1239          I
          -FCC1290
 BDT       RIO      SPACE  1,10                                                            BDT         1240     A     
 BDT      *         DETERMINE THE LIMITS OF THE TREE THAT HAVE TO BE SORTED, AND           BDT         1241     A     
 BDT      *         SORT THAT SUBSET ( USUALLY THE NULL SET ).                             BDT         1242     A     
 BDT                                                                                       BDT         1243     A     
 BDT       RIO9     SA1    A0          TL = [TREE]                                         BDT         1244          I
          -FCC1290
 BDT                SA1    A0          TL = [TREE]                                         FCC1290       29     A     
 BDT                SA2    A0+B1       TJ = TREE + 1                                       BDT         1245     A     
 BDT                SB7    B0          FWA = 0       */ FWA OF SORT SET                    BDT         1246     A     
 BDT                SB2    B1+B1                                                           BDT         1247     A     
 BDT                                                                                       BDT         1248     A     
 BDT       RIO10    IX3    X2-X1       DIF = [TJ] - TL                                     BDT         1249     A     
 BDT                BX1    X2          TL = [TJ]                                           BDT         1250     A     
 BDT                SA2    A2+1        TJ = TJ + 1                                         BDT         1251     A     
 BDT                PL     X3,RIO10    IF DIF \ 0    */ ELEMENTS IN ORDER                  BDT         1252     A     
 BDT                                                                                       BDT         1253     A     
 BDT                SB6    A2-1        LWA = TJ - 1                                        BDT         1254     A     
 BDT                ZR     X1,RIO11    IF TL = 0     */ END OF TREE                        BDT         1255     A     
 BDT                NZ     B7,RIO10    IF FWA " 0    */ NOT FIRST REVERSAL                 BDT         1256     A     
 BDT                SB7    A2-B2       FWA = TJ - 2                                        BDT         1257     A     
 BDT                EQ     RIO10                                                           BDT         1258     A     
 BDT                                                                                       BDT         1259     A     
 BDT       RIO11    BSS    0                                                               BDT         1260     A     
 BDT                IF     DEF,/DEBUG/RIO,1                                                BDT         1261     A     
 BDT                SNAP   -A0,-A5,,1,100,1,TREE-RIO                                       BDT         1262          I
          -FEAT155F 
 BDT       TREE-RIO SNAP   *A0,*A5                                                         FEAT155F     265     A     
 BDT                TRACE  RIO,RLIST                                                       BDT         1263     A     
 BDT                                                                                       BDT         1264     A     
 BDT                SA0    B6          ST = LWA      */ STACK ADDR FOR SIO                 BDT         1265     A     
 BDT                ZR     B7,RIO12    IF FWA = 0    */ NO REVERSALS                       BDT         1266     A     
 BDT                                                                                       FCC0514      482     A     
 BDT                SA2    B7          T = [FWA]                                           FCC0514      483     A     
 BDT                SA3    O.TXT                                                           FCC0514      484     A     
 BDT                SB5    X3+3                                                            FCC0514      485     A     
 BDT                LX2    -JT.SUCCP                                                       FCC0514      486     A     
 BDT                SA4    B5+X2       LI = TB + SUCC[T]                                   FCC0514      487     A     
 BDT                LX4    -I.PRIP                                                         FCC0514      488     A     
 BDT                SB7    X4          FWA = PRI[LI] */ FWA OF EDGE GROUP                  FCC0514      489     A     
 BDT                SX1    B6-B7                                                           BDT         1267     A     
 BDT                CALL   SHL         SORT( FWA , LWA-FWA )                               BDT         1268     A     
 BDT       RIO12    BSS    0                                                               BDT         1269          I
          -FCC0514
 BDT                                                                                       FCC0514      490     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3521    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT      *         IF CALL FROM *GPO*, THEN LINK ST PRED TO ST"S SO THAT *SIO*            FCC0514      491     A     
 BDT      *         CAN ARRANGE THE INSTRUCTIONS SO THAT THE ST,S FOLLOW THEIR RI.         FCC0514      492     A     
 BDT                                                                                       FCC0514      493     A     
 BDT       RIO12    SA2    O.TXT                                                           FCC0514      494     A     
 BDT                SA1    RMODE                                                           FCC0514      495     A     
 BDT                SB7    X2+3        TB = O.TXT + 3                                      FCC0514      496     A     
 BDT                ZR     X1,SIO      IF RMODE = 0                                        FCC0514      497     A     
 BDT                                                                                       FCC0514      498     A     
 BDT                SA3    L.TXT                                                           FCC0514      499     A     
 BDT                SB4    4                                                               FCC0514      500     A     
 BDT                SB3    X3-4        I = L.TXT - 4                                       FCC0514      501     A     
 BDT                MX1    -I.LVLL                                                         FCC0514      502     A     
 BDT                SA5    B7          LI = TB                                             FCC0514      503     A     
 BDT                LX1    I.LVLP                                                          FCC0514      504     A     
 BDT                SB6    B7-B1                                                           FCC0514      505     A     
 BDT                                                                                       FCC0514      506     A     
 BDT      *         CLEAR *LVL* FIELDS OF LINK WORDS                                       FCC0514      507     A     
 BDT                                                                                       FCC0514      508     A     
 BDT       RIO13    SA5    A5+B4       LI = LI + 4                                         FCC0514      509     A     
 BDT                SB3    B3-B4       I = I - 4                                           FCC0514      510     A     
 BDT                BX6    X1*X5                                                           FCC0514      511     A     
 BDT                SA6    A5          LVL[LI] = 0                                         FCC0514      512     A     
 BDT                NZ     B3,RIO13    IF I " 0                                            FCC0514      513     A     
 BDT                                                                                       FCC0514      514     A     
 BDT                SA4    B7-B1                                                           FCC0514      515     A     
 BDT                SX7    B1                                                              FCC0514      516     A     
 BDT                LX7    D.BMP                                                           FCC0514      517     A     
 BDT                BX6    X7+X4       BM[TXT+2] = 1                                       FCC0514      518     A     
 BDT                SA6    A4                                                              FCC0514      519     A     
 BDT                MX0    -R1.RIL                                                         FCC0514      520     A     
 BDT                                                                                       FCC0514      521     A     
 BDT      *         SCAN PRED OF BM"S FOR ST"S, AND FORM CHAIN FROM ST PRED TO ST"         FCC0514      522     A     
 BDT                                                                                       FCC0514      523     A     
 BDT       RIO14    LX5    -I.NPP                                                          FCC0514      524     A     
 BDT                SB5    X5          N = NP[LI]                                          FCC0514      525     A     
 BDT                LX5    I.NPP-I.PRIP                                                    FCC0514      526     A     
 BDT                SA3    X5+         TI = PRI[LI];  TE = [TI]                            FCC0514      527     A     
 BDT                                                                                       FCC0514      528     A     
 BDT      *         SCAN EDGE LIST FOR PREVIOUS *BM*                                       FCC0514      529     A     
 BDT                                                                                       FCC0514      530     A     
 BDT       RIO15    LX3    -JT.PREDP                                                       FCC0514      531     A     
 BDT                SA4    B6+X3       DI = TB-1 + PRED[TE]                                FCC0514      532     A     
 BDT                SB3    X3          RMIN = PRED[TE]  */ TXT INDEX OF PREV *BM*          FCC0514      533     A     
 BDT                SA3    A3+B1       TI = TI + 1;  TE = [TI]                             FCC0514      534     A     
 BDT                LX4    59-D.BMP                                                        FCC0514      535     A     
 BDT                PL     X4,RIO15    IF ^BM[DI]                                          FCC0514      536     A     
 BDT                                                                                       FCC0514      537     A     
 BDT                SA3    X5-1        TI = PRI[LI] - 1                                    FCC0514      538          I
          -FCC2273X 
 BDT                SX7    B3                                                              FCC0514      539          I
          -FCC2273X 
 BDT                SA7    RL          RL = RMIN                                           FCC0514      540          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3522    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
          -FCC2273X 
 BDT                SA7    A7+B1       RL(2) = RMIN                                        FCC2157        5          I
          -FCC2273X 
 BDT                LX7    I.LVLP                                                          FCC0514      541          I
          -FCC2273X 
 BDT                                                                                       FCC0514      542          I
          -FCC2273X 
 BDT      *         CHECK FOR MULTIPLE DEFS, AND LINK THEM TO LAST DEF                     FCC0514      543          I
          -FCC2273X 
 BDT                                                                                       FCC0514      544          I
          -FCC2273X 
 BDT       RIO16    LX4    D.BMP-D.^DP                                                     FCC0514      545          I
          -FCC2273X 
 BDT                MI     X4,RIO17    IF ^D[DI]     */ NOT A DEF                          FCC0514      546          I
          -FCC2273X 
 BDT                SA4    A4-B4       DI = DI - 4                                         FCC0514      547          I
          -FCC2273X 
 BDT                SA5    A4+B1       LI = DI + 1                                         FCC0514      548          I
          -FCC2273X 
 BDT                SB3    B3-B4       RMIN = RMIN - 4                                     FCC0514      549          I
          -FCC2273X 
 BDT                LX4    59-D.BMP                                                        FCC0514      550          I
          -FCC2273X 
 BDT                BX6    X7+X5       LVL[LI] = RL  */ LINK THIS DEF TO LAST DEF          FCC0514      551          I
          -FCC2273X 
 BDT                SA6    A5                                                              FCC0514      552          I
          -FCC2273X 
 BDT                MI     X4,RIO16    IF BM[DI]     */ NOT END OF *BM*"S                  FCC0514      553          I
          -FCC2273X 
 BDT                                                                                       FCC2157        6          I
          -FCC2273X 
 BDT                SX7    B3                                                              FCC2157        7          I
          -FCC2273X 
 BDT                SA7    RL+1        RL(2) = RMIN                                        FCC2157        8          I
          -FCC2273X 
 BDT                EQ     RIO17                                                           FCC2157        9          I
          -FCC2273X 
 BDT                                                                                       FCC0514      554          I
          -FCC2273X 
 BDT      *         SCAN EDGE LIST OF *BM* FOR *ST*"S THAT ARE LINKED TO IT                FCC0514      555          I
          -FCC2273X 
 BDT                                                                                       FCC0514      556          I
          -FCC2273X 
 BDT       RIO16A   SB3    X3          RMIN = PRED[TI]                                     FCC2157       10          I
          -FCC2273X 
 BDT                                                                                       FCC2157       11          I
          -FCC2273X 
 BDT       RIO17    ZR     B5,RIO19    IF N = 0      */ END OF EDGE LIST                   FCC0514      557          I
          -FCC2273X 
 BDT                SA3    A3+B1       TI = TI + 1;  TE = [TI]                             FCC0514      558          I
          -FCC2273X 
 BDT                SB5    B5-B1       N = N - 1                                           FCC0514      559          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3523    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
          -FCC2273X 
 BDT                LX3    -JT.PREDP                                                       FCC0514      560          I
          -FCC2273X 
 BDT                SA4    B6+X3       DI = TB-1 + PRED[TE]                                FCC0514      561          I
          -FCC2273X 
 BDT                LX4    59-D.STP                                                        FCC0514      562          I
          -FCC2157  -FCC2273X 
 BDT                LX4    59-D.BMP                                                        FCC2157       12          I
          -FCC2273X 
 BDT                MI     X4,RIO16A   IF BM[DI]                                           FCC2157       13          I
          -FCC2273X 
 BDT                LX4    D.BMP-D.STP                                                     FCC2157       14          I
          -FCC2273X 
 BDT                PL     X4,RIO17    IF ^ST[DI]    */ NOT A STORE                        FCC0514      563          I
          -FCC2273X 
 BDT                IFNE   .DAL,0,2                                                        FCC0514      564          I
          -FCC2273X 
 BDT                LX4    D.STP-D.L2P                                                     FCC0514      565          I
          -FCC2273X 
 BDT                MI     X4,RIO17    IF L2[DI]                                           FCC0514      566          I
          -FCC2273X 
 BDT                SA4    A4-2        R1 = DI - 2                                         FCC0514      567          I
          -FCC2273X 
 BDT                BX6    -X0*X4      R = RI[R1]                                          FCC0514      568          I
          -FCC2273X 
 BDT                SB2    X6                                                              FCC0514      569          I
          -FCC2273X 
 BDT                LT     B2,B3,RIO17 IF R < RMIN   */ PRED BEFORE PREV *BM*              FCC0514      570          I
          -FCC2273X 
 BDT                SA3    X5-1        TI = PRI[LI] - 1                                    FCC2273X       9     A     
 BDT                SX7    B3                                                              FCC2273X      10     A     
 BDT                SA7    RL          RL = RMIN                                           FCC2273X      11     A     
 BDT                LX7    I.LVLP                                                          FCC2273X      12     A     
 BDT                                                                                       FCC2273X      13     A     
 BDT      *         CHECK FOR MULTIPLE DEFS, AND LINK THEM TO LAST DEF                     FCC2273X      14     A     
 BDT                                                                                       FCC2273X      15     A     
 BDT       RIO16    LX4    D.BMP-D.^DP                                                     FCC2273X      16     A     
 BDT                MI     X4,RIO16A   IF ^D[DI] */NOT A DEF                               FCC2273X      17     A     
 BDT                SA4    A4-B4       DI = DI - 4                                         FCC2273X      18     A     
 BDT                SA5    A4+B1       LI = DI + 1                                         FCC2273X      19     A     
 BDT                SB3    B3-B4       RMIN = RMIN - 4                                     FCC2273X      20     A     
 BDT                LX4    59-D.BMP                                                        FCC2273X      21     A     
 BDT                BX6    X7+X5       LVL[LI] = RL  */ LINK THIS DEF TO LAST DEF          FCC2273X      22     A     
 BDT                SA6    A5                                                              FCC2273X      23     A     
 BDT                MI     X4,RIO16    IF BM[DI]     */ NOT END OF *BM*"S                  FCC2273X      24     A     
 BDT                                                                                       FCC2273X      25     A     
 BDT       RIO16A   SX7    B3                                                              FCC2273X      26     A     
 BDT                SA7    A7+B1       RL(2) = RMIN                                        FCC2273X      27     A     
 BDT                EQ     RIO17                                                           FCC2273X      28     A     
 BDT                                                                                       FCC2273X      29     A     
 BDT      *         SCAN EDGE LIST OF *BM* FOR *ST*"S THAT ARE LINKED TO IT                FCC2273X      30     A     
 BDT                                                                                       FCC2273X      31     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3524    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT       RIO16B   SB3    X3          RMIN = PRED[TI]                                     FCC2273X      32     A     
 BDT                                                                                       FCC2273X      33     A     
 BDT       RIO17    ZR     B5,RIO19    IF N = 0      */ END OF EDGE LIST                   FCC2273X      34     A     
 BDT                SA3    A3+B1       TI = TI + 1;  TE = [TI]                             FCC2273X      35     A     
 BDT                SB5    B5-B1       N = N - 1                                           FCC2273X      36     A     
 BDT                LX3    -JT.PREDP                                                       FCC2273X      37     A     
 BDT                SA4    B6+X3       DI = TB-1 + PRED[TE]                                FCC2273X      38     A     
 BDT                LX4    59-D.BMP                                                        FCC2273X      39     A     
 BDT                MI     X4,RIO16B   IF BM[DI]                                           FCC2273X      40     A     
 BDT                LX4    D.BMP-D.STP                                                     FCC2273X      41     A     
 BDT                PL     X4,RIO17    IF ^ST[DI]    */ NOT A STORE                        FCC2273X      42     A     
 BDT                IFNE   .DAL,0,2                                                        FCC2273X      43     A     
 BDT                LX4    D.STP-D.L2P                                                     FCC2273X      44     A     
 BDT                MI     X4,RIO17    IF L2[DI]                                           FCC2273X      45     A     
 BDT                SA4    A4-2        R1 = DI - 2                                         FCC2273X      46     A     
 BDT                BX6    -X0*X4      R = RI[R1]                                          FCC2273X      47     A     
 BDT                SB2    X6                                                              FCC2273X      48     A     
 BDT                LT     B2,B3,RIO17 IF R< RMIN */PRED BEFORE PREV *BM*                  FCC2273X      49     A     
 BDT                                                                                       FCC0514      571     A     
 BDT      *         DO NOT ADD ST TO CHAIN IF IT IS LINKED TO AN INTERFERING               FCC0514      572     A     
 BDT      *         LD OR ST BETWEEN IT AND ITS PRED ( RI ).                               FCC0514      573     A     
 BDT                                                                                       FCC0514      574     A     
 BDT                SA5    A4+3        LI = R1 + 3                                         FCC0514      575     A     
 BDT                LX5    -I.NPP                                                          FCC0514      576     A     
 BDT                SB2    X5          NSP = NP[LI]                                        FCC0514      577     A     
 BDT                LX5    I.NPP-I.PRIP                                                    FCC0514      578     A     
 BDT                MX2    -D.LDSTL                                                        FCC0514      579     A     
 BDT                SA5    X5          TJ = PRI[LI]                                        FCC0514      580     A     
 BDT                LX2    D.LDSTP                                                         FCC0514      581     A     
 BDT                                                                                       FCC0514      582     A     
 BDT       RIO17A   LX5    -JT.PREDP   J = PRED[TJ]                                        FCC0514      583     A     
 BDT                SX5    X5                                                              FCC0514      584     A     
 BDT                IX7    X6-X5                                                           FCC0514      585     A     
 BDT                PL     X7,RIO17B   IF J @ R      */ PRED IS BEFORE RI                  FCC0514      586     A     
 BDT                SA4    B6+X5       DJ = TB-1 + J                                       FCC0514      587     A     
 BDT                BX7    -X2*X4                                                          FCC0514      588     A     
 BDT                ZR     X7,RIO17B   IF ^LDST[DJ]  */ NOT A MEM REF                      FCC0514      589     A     
 BDT                LX4    59-D.EQVP                                                       FCC0514      590     A     
 BDT                MI     X4,RIO17    IF EQV[DJ]    */ INTERFERING MEM REF                FCC0514      591     A     
 BDT       RIO17B   SB2    B2-B1       NSP = NSP - 1                                       FCC0514      592     A     
 BDT                SA5    A5+B1       TJ = TJ + 1                                         FCC0514      593     A     
 BDT                NZ     B2,RIO17A   IF NSP " 0                                          FCC0514      594     A     
 BDT                                                                                       FCC0613        6     A     
 BDT      *         DO NOT LINK *ST* TO PRED IF IT IS A *DEF*, AND RF IS AN EXPR           FCC0613        7     A     
 BDT      *         SINCE WE MAY GET IN TROUBLE WHEN THERE ARE REDEFINITION LINKS.         FCC0613        8     A     
 BDT                                                                                       FCC0613        9     A     
 BDT                SA4    B6+X6       DIP = TB-1 + R                                      FCC0613       10     A     
 BDT                LX4    59-D.PIP                                                        FCC0613       11     A     
 BDT                PL     X4,RIO18    IF ^PI[DIP]   */ RI NOT A *DEF*                     FCC0613       12     A     
 BDT                                                                                       FCC0613       13     A     
 BDT                SA4    B6+X3       DI = TB-1 + PRED[TI]                                FCC0613       14     A     
 BDT                LX4    58-D.TYP                                                        FCC0613       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3525    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SA2    A4-B1       R2 = DI - 1                                         FCC0613       16     A     
 BDT                LX2    -IH.RFP     RF = RF[R2]                                         FCC0613       17     A     
 BDT                MI     X4,RIO17C   IF TYPE[DI] = III                                   FCC0613       18     A     
 BDT                SA2    A2-B1       R1 = R2 - 1                                         FCC0613       19     A     
 BDT                LX2    -R1.RJP     RF = RJ[R1]                                         FCC0613       20     A     
 BDT       RIO17C   BX2    -X0*X2                                                          FCC0613       21     A     
 BDT                SB2    X2                                                              FCC0613       22     A     
 BDT                LE     B2,B1,RIO18 IF RF @ 1     */ NO RF                              FCC0613       23     A     
 BDT                SA4    B6+B2       DIF = TB-1 + RF                                     FCC0613       24     A     
 BDT                LX4    59-D.ZPP                                                        FCC0613       25     A     
 BDT                PL     X4,RIO17    IF ^ZP[DIF]   */ NOT A SIMPLE *LD*                  FCC0613       26     A     
 BDT                                                                                       FCC0514      595     A     
 BDT      *         SCAN ST PRED CHAIN FOR END, AND ADD ST TO IT.                          FCC0514      596     A     
 BDT                                                                                       FCC0514      597     A     
 BDT       RIO18    SA5    B7+X6       LI = TB + R                                         FCC0514      598     A     
 BDT                BX6    -X1*X5      R = LVL[LI]                                         FCC0514      599     A     
 BDT                LX6    -I.LVLP                                                         FCC0514      600     A     
 BDT                NZ     X6,RIO18    IF R " 0      */ NOT END OF CHAIN                   FCC0514      601     A     
 BDT                                                                                       FCC0514      602     A     
 BDT                SX7    X3                                                              FCC0514      603     A     
 BDT                LX7    I.LVLP                                                          FCC0514      604     A     
 BDT                BX6    X7+X5       LVL[LI] = PRED[TE]                                  FCC0514      605     A     
 BDT                SA6    A5                                                              FCC0514      606     A     
 BDT                EQ     RIO17                                                           FCC0514      607     A     
 BDT                                                                                       FCC0514      608     A     
 BDT      *         CLEAR ST CHAIN PTRS FOR ALL BUT LAST DEF IN A SUB-SEQUENCE             FCC0514      609     A     
 BDT                                                                                       FCC0514      610     A     
 BDT       RIO19    SA3    RL                                                              FCC0514      611     A     
 BDT                SB5    X3                                                              FCC0514      612          I
          -FCC2157
 BDT                SA4    A3+B1                                                           FCC2157       15     A     
 BDT                SB5    X3                                                              FCC2157       16     A     
 BDT                SB3    X4          RMIN = RL(2)                                        FCC2157       17     A     
 BDT       RIO20    EQ     B3,B5,RIO21 IF RL = RMIN                                        FCC0514      613     A     
 BDT                SB5    B5-B4       RL = RL - 4                                         FCC0514      614     A     
 BDT                SA4    B7+B5       LI = TB + RL                                        FCC0514      615     A     
 BDT                BX7    X1*X4       LVL[LI] = 0   */ CLEAR *ST* CHAIN LINK              FCC0514      616     A     
 BDT                SA7    A4                                                              FCC0514      617     A     
 BDT                EQ     RIO20                                                           FCC0514      618     A     
 BDT                                                                                       FCC0514      619     A     
 BDT      *         ADVANCE TO PREVIOUS *BM*                                               FCC0514      620     A     
 BDT                                                                                       FCC0514      621     A     
 BDT       RIO21    SA5    B7+B3       LI = TB + RMIN                                      FCC0514      622     A     
 BDT                NZ     B3,RIO14    IF RMIN " 0   */ NOT *BOS*                          FCC0514      623     A     
 BDT                                                                                       FCC0514      624     A     
 BDT                SA4    B7-B1                                                           FCC0514      625     A     
 BDT                SX7    B1                                                              FCC0514      626     A     
 BDT                LX7    D.BMP                                                           FCC0514      627     A     
 BDT                BX6    -X7*X4      BM[TXT+2] = 0                                       FCC0514      628     A     
 BDT                SA6    A4                                                              FCC0514      629     A     
 BDT                LX7    D.PSP-D.BMP                                                     FCC0514      630     A     
 BDT                SX6    B1                                                              FCC0514      631     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3526    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                LX6    D.PIP                                                           FCC0514      632     A     
 BDT                BX7    X6+X7                                                           FCC0514      633     A     
 BDT                SA7    RMODE       RMODE = (PS,PI)                                     FCC0514      634     A     
 BDT       SIO      EJECT              SIO                                                 BDT         1270     A     
 BDT      *         SIO - SET INSTRUCTION ORDER BY A DEPTH FIRST SEARCH                    BDT         1271     A     
 BDT                                                                                       BDT         1272     A     
 BDT                SA2    O.TXT                                                           BDT         1273          I
          -FCC0514
 BDT                SA3    L.TXT                                                           BDT         1274          I
          -FCC0514
 BDT                SB7    X2+3        TB = TXT + 3                                        BDT         1275          I
          -FCC0514
 BDT       SIO      SA3    L.TXT                                                           FCC0514      635     A     
 BDT                SB4    60-I.PRIP                                                       BDT         1276     A     
 BDT                SX7    X3-4        N = L.TXT - 4 */ CURRENT INSTRUCTION                BDT         1277     A     
 BDT                SB5    4           ON = 4        */ OUTPUT INDEX                       BDT         1278     A     
 BDT                SA4    RMODE                                                           BDT         1279     A     
 BDT                MX0    1                                                               BDT         1280     A     
 BDT                LX0    1+I.MIP                                                         BDT         1281     A     
 BDT                SX1    B1                                                              BDT         1282     A     
 BDT                SB6    0           LII = 0       */ LAST ISSUED INSTRUCTION            BDT         1283     A     
 BDT                SKIP   1                                               ****            BDT         1284          I
          -FCC0514
 BDT                ZR     X4,SIO2     IF RMODE = 0                                        BDT         1285          I
          -FCC0514
 BDT                NZ     X4,SIO2     IF RMODE " 0  */ CALL FROM *GPO/CBB*                FCC0514      636     A     
 BDT                                                                                       BDT         1286     A     
 BDT      *         SEARCH FOR NEXT TERMINAL INSTRUCTION                                   BDT         1287     A     
 BDT                                                                                       BDT         1288          I
          -FCC0514
 BDT                                                                                       BDT         1289     A     
 BDT       SIO1     SA2    RIOA                                                            BDT         1290     A     
 BDT                SB3    4                                                               BDT         1291     A     
 BDT                SB2    B7-B1       DB = TB - 1                                         BDT         1292     A     
 BDT                SA4    B2+B6       DI = DB + LII                                       BDT         1293     A     
 BDT                                                                                       BDT         1294     A     
 BDT       SIO1A    SA4    A4+B3       DI = DI + 4                                         BDT         1295     A     
 BDT                BX6    X2*X4                                                           BDT         1296     A     
 BDT                ZR     X6,SIO1A    IF ^( BM[DI] ! ST[DI] )                             BDT         1297     A     
 BDT                                                                                       BDT         1298     A     
 BDT                SB6    A4-B2       LII = DI - DB                                       BDT         1299     A     
 BDT                SX7    A4-B2       N = LII                                             BDT         1300     A     
 BDT                                                                                       BDT         1301     A     
 BDT      *         VISIT CURRENT INSTRUCTION                                              BDT         1302     A     
 BDT                                                                                       BDT         1303     A     
 BDT       SIO2     SA5    B7+X7       LI = TB + N                                         BDT         1304     A     
 BDT                LX4    B4,X5                                                           BDT         1305          I
          -FCC0514
 BDT                SA2    RMODE                                                           FCC0514      637     A     
 BDT                SA4    A5-B1       DI = LI - 1                                         FCC0514      638     A     
 BDT                BX6    X2*X4                                                           FCC0514      639     A     
 BDT                ZR     X6,SIO2D    IF ^RMODE[DI] */ NOT *PS* RO *PI*                   FCC0514      640          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3527    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
          -FCC1126
 BDT                MX2    -I.LVLL                                                         FCC0514      641          I
          -FCC1126
 BDT                LX2    I.LVLP                                                          FCC0514      642          I
          -FCC1126
 BDT                BX6    -X2*X5                                                          FCC0514      643          I
          -FCC1126
 BDT                ZR     X6,SIO2D    IF LVL[LI] = 0  */ ST"S PROCESSED                   FCC0514      644          I
          -FCC1126
 BDT                ZR     X6,SIO2D    IF ^RMODE[DI] */ NOT *PS* ! *PI*                    FCC1126       24     A     
 BDT                BX6    X5                                                              FCC1126       25     A     
 BDT                LX6    59-I.STCPP                                                      FCC1126       26     A     
 BDT                MI     X6,SIO2D    IF STCP[LI]   */ STC PROCESSED                      FCC1126       27     A     
 BDT                LX6    1+I.STCPP-I.LVLP                                                FCC1126       28     A     
 BDT                SX2    X6                                                              FCC1126       29     A     
 BDT                ZR     X2,SIO2D    IF LVL[LI] = 0  */ NO ST CHAIN (EOQ/EOS)            FCC1126       30     A     
 BDT                                                                                       FCC0514      645     A     
 BDT      *         ADD ST"S TO THE STACK SO WE OUTPUT THEM IMMEDIATELY AFTER              FCC0514      646     A     
 BDT      *         THEIR PREDECESSORS ( RI AND RF )                                       FCC0514      647     A     
 BDT                                                                                       FCC0514      648     A     
 BDT                SX1    X7          T = N         */ SAVE N                             FCC0514      649          I
          -FCC1126
 BDT                LX6    -I.LVLP                                                         FCC0514      650          I
          -FCC1126
 BDT                SX7    X6          N = LVL[LI]                                         FCC0514      651          I
          -FCC1126
 BDT                BX6    X2*X5                                                           FCC0514      652          I
          -FCC1126
 BDT                SA6    A5          LVL[LI] = 0                                         FCC0514      653          I
          -FCC1126
 BDT                LX1    I.STCPP                                                         FCC1126       31     A     
 BDT                BX6    X1+X5       STCP[LI] = 1                                        FCC1126       32     A     
 BDT                SX1    X7          T = N         */ SAVE N                             FCC1126       33     A     
 BDT                LX6    -I.LVLP                                                         FCC1126       34     A     
 BDT                SX7    X6          N = LVL[LI]                                         FCC1126       35     A     
 BDT                BX6    X6-X7                                                           FCC1126       36     A     
 BDT                LX6    I.LVLP      LVL[LI] = 0                                         FCC1126       37     A     
 BDT                SA6    A5                                                              FCC1126       38     A     
 BDT                                                                                       FCC0514      654     A     
 BDT       SIO2A    SA5    B7+X7       LI = TB + N                                         FCC0514      655     A     
 BDT                BX6    X0*X5                                                           FCC0514      656     A     
 BDT                NZ     X6,SIO2C    IF MI[LI]     */ ST PROCESSED                       FCC0514      657     A     
 BDT                                                                                       FCC0514      658     A     
 BDT                SA7    A0+B1       [SI+1] = N    */ STACK N                            FCC0514      659     A     
 BDT                SA0    A0+B1       SI = SI + 1                                         FCC0514      660     A     
 BDT                                                                                       FCC0514      661     A     
 BDT                SA4    A5-B1       DI = LI - 1                                         FCC0514      662     A     
 BDT                SA3    A4-B1       R2 = DI -1                                          FCC0514      663     A     
 BDT                LX4    58-D.TYP                                                        FCC0514      664     A     
 BDT                LX3    -IH.RFP     R = RF[R2]                                          FCC0514      665     A     
 BDT                MI     X4,SIO2AA   IF TYPE[DI] = III                                   FCC0514      666     A     
 BDT                SA3    A3-B1       R1 = R2 - 1                                         FCC0514      667     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3528    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                MX4    -R1.RIL                                                         FCC0514      668     A     
 BDT                LX3    -R1.RJP                                                         FCC0514      669     A     
 BDT                BX3    -X4*X3      R = RJ[R1]                                          FCC0514      670     A     
 BDT       SIO2AA   SB2    X3                                                              FCC0514      671     A     
 BDT                LE     B2,B1,SIO2C IF R @ 1      */ NO RF                              FCC0514      672     A     
 BDT                                                                                       FCC0514      673     A     
 BDT                SA4    B7+B2       LIP = TB + R                                        FCC0514      674     A     
 BDT                LX4    59-I.MIP                                                        FCC0514      675     A     
 BDT                PL     X4,SIO2C    IF ^MI[LIP]                                         FCC0514      676          I
          -FCC1908
 BDT                LX4    I.MIP-I.IIP                                                     FCC0514      677          I
          -FCC1908
 BDT                MI     X4,SIO2A1   IF M[LIP]                                           FCC1908        5     A     
 BDT                SX4    B2                                                              FCC1908        6     A     
 BDT                IX4    X4-X1                                                           FCC1908        7     A     
 BDT                MI     X4,SIO2C    IF T > R                                            FCC1908        8     A     
 BDT                                                                                       FCC1908        9     A     
 BDT                SA0    A0-B1       SI = SI - 1   */ REMOVE N FROM STACK                FCC1908       10     A     
 BDT                PRINT  SIO,(* REMOVE STORE STACK --*)                                  FCC1908       11     A     
 BDT                EQ     SIO2C                                                           FCC1908       12     A     
 BDT                                                                                       FCC1908       13     A     
 BDT       SIO2A1   LX4    I.MIP-I.IIP                                                     FCC1908       14     A     
 BDT                MI     X4,SIO2C    IF II[LIP]    */ ISSUED                             FCC0514      678     A     
 BDT                                                                                       FCC0514      679     A     
 BDT      *         RF MARKED BUT NOT OUTPUT, ADD *N* BELOW IT IN THE STACK                FCC0514      680     A     
 BDT                                                                                       FCC0514      681     A     
 BDT                SA4    A0-B1       SJ = SI - 1                                         FCC0514      682     A     
 BDT                SB2    -B2                                                             FCC0514      683     A     
 BDT       SIO2B    BX6    X4          S = [SJ]                                            FCC0514      684     A     
 BDT                SX3    B2+X4                                                           FCC0514      685     A     
 BDT                SA6    A4+B1       [SJ+1] = S                                          FCC0514      686     A     
 BDT                SA4    A4-B1       SJ = SJ - 1                                         FCC0514      687     A     
 BDT                NZ     X3,SIO2B    IF S " R                                            FCC0514      688     A     
 BDT                SA7    A4+B1       [SJ+1] = N    */ INSERT N BELOW R                   FCC0514      689     A     
 BDT                                                                                       FCC0514      690     A     
 BDT       SIO2C    LX5    -I.LVLP                                                         FCC0514      691     A     
 BDT                SX7    X5          N = LVL[LI]                                         FCC0514      692     A     
 BDT                NZ     X7,SIO2A    IF N " 0      */ NOT END OF ST CHAIN                FCC0514      693     A     
 BDT                                                                                       FCC0514      694     A     
 BDT                SX7    X1          N = T */ RESTORE N                                  FCC0514      695     A     
 BDT                SX1    B1                                                              FCC0514      696     A     
 BDT                SA5    B7+X7       LI = TB + N                                         FCC0514      697     A     
 BDT                                                                                       FCC0514      698     A     
 BDT       SIO2D    LX4    B4,X5                                                           FCC0514      699     A     
 BDT                BX5    X0+X5       MI[LI] = 1                                          BDT         1306     A     
 BDT                LX3    B1,X5                                                           BDT         1307     A     
 BDT                ERRNZ  58-I.IIP                                                        BDT         1308     A     
 BDT                SB3    X4-1        EI = PRI[LI] - 1  */ EDGE INDEX                     BDT         1309     A     
 BDT                MI     X3,SIO5     IF II[LI]     */ ISSUED                             BDT         1310     A     
 BDT                                                                                       BDT         1311     A     
 BDT      *         SEARCH PRED TO SEE IF ALL ARE MARKED                                   BDT         1312     A     
 BDT                                                                                       BDT         1313     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3529    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT       SIO3     SA2    B3+X5       TI = EI + NP[LI]                                    BDT         1314     A     
 BDT                SB2    X5                                                              BDT         1315     A     
 BDT                ZR     B2,SIO4     IF NP[LI] = 0                                       BDT         1316     A     
 BDT                                                                                       BDT         1317     A     
 BDT                IX5    X5-X1       NP[LI] = NP[LI] - 1                                 BDT         1318     A     
 BDT                LX2    -JT.PREDP   R = PRED[TI]                                        BDT         1319     A     
 BDT                SA3    B7+X2       LIP = TB + R                                        BDT         1320     A     
 BDT                LX3    59-I.MIP                                                        BDT         1321          I
          -FCC0514
 BDT                MI     X3,SIO3     IF MI[LIP]    */ VISITED OR OUTPUT                  BDT         1322          I
          -FCC0514
 BDT                LX4    B1,X3                                                           FCC0514      700     A     
 BDT                SX2    X2                                                              FCC0514      701     A     
 BDT                MI     X4,SIO3     IF II[LIP]    */ ISSUED                             FCC0514      702     A     
 BDT                LX3    59-I.MIP                                                        FCC0514      703     A     
 BDT                MI     X3,SIO3A    IF MI[LIP]                                          FCC0514      704     A     
 BDT                IX6    X2-X7                                                           FCC0514      705     A     
 BDT                PL     X6,SIO3A    IF R > N      */ REDEF LINK                         FCC0514      706     A     
 BDT                                                                                       BDT         1323     A     
 BDT                SA7    A0+B1       [SI+1] = N                                          BDT         1324          I
          -FCC1126
 BDT       SIO3H    SA7    A0+B1       [SI+1] = N    */ STACK CURRENT INST                 FCC1126       39     A     
 BDT                SA0    A0+B1       SI = SI + 1                                         BDT         1325     A     
 BDT                BX6    X5                                                              BDT         1326     A     
 BDT                SA6    A5                                                              BDT         1327     A     
 BDT                SX7    X2          N = R         */ FOLLOW PRED                        BDT         1328     A     
 BDT                EQ     SIO2                                                            BDT         1329     A     
 BDT                                                                                       FCC1126       40     A     
 BDT       SIO3G    IX6    X2-X7                                                           FCC1126       41     A     
 BDT                PL     X6,SIO3     IF R > N      */ REDEF LINK                         FCC1126       42     A     
 BDT                PRINT  SIO,(* STACK N --- MARKED INST ---*)                            FCC1126       43     A     
 BDT                EQ     SIO3H                                                           FCC1126       44     A     
 BDT                                                                                       BDT         1330          I
          -FCC0514
 BDT                                                                                       FCC0514      707     A     
 BDT      *         *R* NOT OUTPUT, IF TOP OF STACK IS A REDEF *ST*, THEN SET *XU*         FCC0514      708     A     
 BDT      *         BIT IN IT, OR MOVE IT DOWN IN THE STACK AFTER R, SO WE AVOID           FCC0514      709     A     
 BDT      *         THE PROBLEM OF USES EXTENDING PAST A DEFINITION IN *GRA*.              FCC0514      710     A     
 BDT      *         SEE SECTION ON DEADLOCKS IN THE *IMS* FOR FURTHER INFORMATION.         FCC0514      711     A     
 BDT                                                                                       FCC0514      712     A     
 BDT       SIO3A    SA3    A0          SJ = SI;  S = [SJ]                                  FCC0514      713     A     
 BDT                SB2    B7-B1                                                           FCC0514      714          I
          -FCC0791
 BDT                BX4    X5                                                              FCC0791        7     A     
 BDT                SB2    B7-B1                                                           FCC0791        8     A     
 BDT                LX4    59-I.RDSTP                                                      FCC0791        9     A     
 BDT                MI     X4,SIO3AA   IF RDST[LI]   */ REDEF ST IN THE STACK              FCC0791       10          I
          -FCC1126
 BDT                SA4    B2+X3       DIS = TB-1 + S                                      FCC0514      715          I
          -FCC1126
 BDT                LX4    59-D.STP                                                        FCC0514      716          I
          -FCC1126
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3530    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                PL     X4,SIO3     IF ^ST[DIS]     */ NOT A STORE                      FCC0514      717          I
          -FCC1126
 BDT                SA4    A4-2        R1S = DIS - 2                                       FCC0514      718          I
          -FCC1126
 BDT                MX6    -R1.RIL                                                         FCC0514      719          I
          -FCC1126
 BDT                BX6    -X6*X4                                                          FCC0514      720          I
          -FCC1126
 BDT                BX4    X7-X6                                                           FCC0514      721          I
          -FCC1126
 BDT                NZ     X4,SIO3     IF RI[R1S] " N  */ NEXT INST ^ *ST  N,, *           FCC0514      722          I
          -FCC1126
 BDT                                                                                       FCC0514      723          I
          -FCC1126
 BDT                SA4    B7+X2       LIP = TB + R                                        FCC0514      724          I
          -FCC0791  -FCC1126
 BDT                SX4    B1                                                              FCC0791       11          I
          -FCC1126
 BDT                LX4    I.RDSTP                                                         FCC0791       12          I
          -FCC1126
 BDT                BX5    X4+X5       RDST[LI] = 1  */ INDICATE REDEF ST IN STK           FCC0791       13          I
          -FCC1126
 BDT                                                                                       FCC0791       14          I
          -FCC1126
 BDT       SIO3AA   SA4    B7+X2       LIP = TB + R                                        FCC0791       15          I
          -FCC1126
 BDT                LX4    59-I.MIP                                                        FCC0514      725          I
          -FCC1126
 BDT                PL     X4,SIO3D    IF ^MI[LIP]   */ R NOT IN THE STACK                 FCC0514      726          I
          -FCC1126
 BDT                                                                                       FCC0514      727          I
          -FCC1126
 BDT       SIO3B    SA3    A3-B1       SJ = SJ - 1;  S = [SJ]                              FCC0514      728          I
          -FCC1126
 BDT                SA4    B2+X3       DJ = TB-1 + S                                       FCC0514      729          I
          -FCC1126
 BDT                BX6    X3-X2                                                           FCC0514      730          I
          -FCC1126
 BDT                LX4    59-D.BMP                                                        FCC0514      731          I
          -FCC1126
 BDT                MI     X4,SIO3D    IF BM[DJ]       */ DONT MOVE ST PAST A *BM*         FCC0514      732          I
          -FCC1126
 BDT                NZ     X6,SIO3B    IF S " R        */ NOT END OF SEARCH                FCC0514      733          I
          -FCC1126
 BDT                                                                                       FCC0514      734          I
          -FCC1126
 BDT      *         MOVE TOP OF STACK UP TO DELAY OUTPUT OF N+4 UNTIL AFTER *R*            FCC0514      735          I
          -FCC1126
 BDT                                                                                       FCC0514      736          I
          -FCC1126
 BDT                SA3    A0+         SJ = SI                                             FCC0514      737          I
          -FCC1126
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3531    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SB2    X3+         SAVE = [SI]                                         FCC0514      738          I
          -FCC1126
 BDT                                                                                       FCC0514      739          I
          -FCC1126
 BDT       SIO3C    SA3    A3-B1       SJ = SJ - 1;  S = [SJ]                              FCC0514      740          I
          -FCC1126
 BDT                BX4    X3-X2                                                           FCC0514      741          I
          -FCC1126
 BDT                SX6    X3                                                              FCC0514      742          I
          -FCC1126
 BDT                SA6    A3+B1       [SJ+1] = S                                          FCC0514      743          I
          -FCC1126
 BDT                NZ     X4,SIO3C    IF S " R                                            FCC0514      744          I
          -FCC1126
 BDT                                                                                       FCC0514      745          I
          -FCC1126
 BDT                SX6    B2                                                              FCC0514      746          I
          -FCC1126
 BDT                SA6    A3          [SJ] = SAVE     */ RESTORE *ST* IN STACK            FCC0514      747          I
          -FCC1126
 BDT                EQ     SIO3                                                            FCC0514      748          I
          -FCC1126
 BDT                                                                                       FCC0514      749          I
          -FCC1126
 BDT      *         REDEF CANT BE MOVED BACK, SET *XU* BIT IN DESCR FOR *GRA*              FCC0514      750          I
          -FCC1126
 BDT                                                                                       FCC0514      751          I
          -FCC1126
 BDT       SIO3D    SA3    A0                                                              FCC0514      752          I
          -FCC0791  -FCC1126
 BDT                SA4    B2+X3       DIS = TB-1 + [SI]                                   FCC0514      753          I
          -FCC0791  -FCC1126
 BDT       SIO3D    SA3    A0+B1       SJ = SI + 1                                         FCC0791       16          I
          -FCC1126
 BDT                MX6    -R1.RIL                                                         FCC0791       17          I
          -FCC1126
 BDT       SIO3E    SA3    A3-B1      SJ = SJ - 1                                          FCC0791       18          I
          -FCC1126
 BDT                SA4    B2+X3       DIS = TB-1 + [SJ]                                   FCC0791       19          I
          -FCC1126
 BDT                LX4    59-D.STP                                                        FCC0791       20          I
          -FCC1126
 BDT                PL     X4,SIO3E    IF ^ST[DIS]                                         FCC0791       21          I
          -FCC1126
 BDT                SA4    A4-2        R1S = DIS - 2                                       FCC0791       22          I
          -FCC1126
 BDT                BX3   X4-X7                                                            FCC0791       23          I
          -FCC1126
 BDT                BX4    -X6*X3                                                          FCC0791       24          I
          -FCC1126
 BDT                NZ     X4,SIO3E    IF RI[R1S] " N  */ NOT * ST  N,, *                  FCC0791       25          I
          -FCC1126
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3532    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                                                                                       FCC0791       26          I
          -FCC1126
 BDT                SA4    A4+2        DIS = R1S + 2                                       FCC0791       27          I
          -FCC1126
 BDT                MI     X4,SIO3AA   IF RDST[LI]   */ NOT FIRST REDEF EDGE               FCC1126       45          I
          -FCC1908
 BDT                MI     X4,SIO3B    IF RDST[LI]   */ NOT FIRST REDEF EDGE               FCC1908       15     A     
 BDT                SA4    B2+X3       DIS = TB-1 + S                                      FCC1126       46     A     
 BDT                LX4    59-D.RDP                                                        FCC1126       47     A     
 BDT                PL     X4,SIO3G    IF ^RD[DIS]   */ NOT A REDEF STORE                  FCC1126       48     A     
 BDT                SA4    A4-2                                                            FCC1126       49     A     
 BDT                MX6    -R1.RIL                                                         FCC1126       50     A     
 BDT                BX6    -X6*X4                                                          FCC1126       51     A     
 BDT                BX4    X7-X6                                                           FCC1126       52     A     
 BDT                NZ     X4,SIO3G    IF RI[R1S] " N  */ TOP OF STK ^ *ST N,,*            FCC1126       53     A     
 BDT                                                                                       FCC1126       54     A     
 BDT                SX4    B1                                                              FCC1126       55     A     
 BDT                LX4    I.RDSTP                                                         FCC1126       56     A     
 BDT                BX5    X4+X5       RDST[LI] = 1  */ INDICATE REDEF ST ST IN STK        FCC1126       57     A     
 BDT                LX3    I.LVLP                                                          FCC1126       58     A     
 BDT                BX5    X3+X5       LVL[LI] = S                                         FCC1126       59     A     
 BDT                LX3    -I.LVLP                                                         FCC1126       60     A     
 BDT                                                                                       FCC1126       61     A     
 BDT       SIO3AA   SA4    B7+X2       LIP = TB + R                                        FCC1126       62          I
          -FCC1908
 BDT                LX4    59-I.MIP                                                        FCC1126       63          I
          -FCC1908
 BDT                PL     X4,SIO3F    IF ^MI[LIP]   */ R NOT IN THE STACK                 FCC1126       64          I
          -FCC1908
 BDT                                                                                       FCC1126       65          I
          -FCC1908
 BDT      *         LOOK AT THE STACK AND SEE IF WE CAN MOVE THE STORE BELOW R             FCC1126       66          I
          -FCC1908
 BDT      *         SO IT COMES OUT AFTER IT.                                              FCC1126       67          I
          -FCC1908
 BDT                                                                                       FCC1126       68          I
          -FCC1908
 BDT                SA4    A0          SJ = SI       */ SEARCH FOR STORE IN STK            FCC1126       69          I
          -FCC1908
 BDT                LX5    -I.LVLP                                                         FCC1126       70          I
          -FCC1908
 BDT                SX3    X5+         S = LVL[LI]   */ TXT INDEX OF *ST*                  FCC1126       71          I
          -FCC1908
 BDT                LX5    I.LVLP                                                          FCC1126       72          I
          -FCC1908
 BDT       SIO3B    BX6    X3-X4                                                           FCC1126       73          I
          -FCC1908
 BDT                SA4    A4-B1       SJ = SJ - 1                                         FCC1126       74          I
          -FCC1908
 BDT                NZ     X6,SIO3B    IF [SJ+1] " S                                       FCC1126       75          I
          -FCC1908
 BDT                                                                                       FCC1126       76          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3533    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
          -FCC1908
 BDT                SX4    A4+B1       SS = SJ + 1                                         FCC1126       77          I
          -FCC1908
 BDT                SA3    A0+         SJ = SI       */ SEARCH FOR *R*                     FCC1126       78          I
          -FCC1908
 BDT       SIO3C    BX6    X2-X3                                                           FCC1126       79          I
          -FCC1908
 BDT                SA3    A3-B1       SJ = SJ - 1                                         FCC1126       80          I
          -FCC1908
 BDT                NZ     X6,SIO3C    IF [SJ+1] " R                                       FCC1126       81          I
          -FCC1908
 BDT                SX3    A3+B1                                                           FCC1126       82          I
          -FCC1908
 BDT                IX6    X4-X3                                                           FCC1126       83          I
          -FCC1908
 BDT                MI     X6,SIO3     IF SS < SJ+1  */ S IS ALREADY BELOW R               FCC1126       84          I
          -FCC1908
 BDT                PRINT  SIO,(21X*MOVE ST DOWN*2Z6),(X4,X3)                              FCC1126       85          I
          -FCC1908
 BDT                                                                                       FCC1126       86          I
          -FCC1908
 BDT                SA3    X4          SJ = SS       */ MOVE THE STORE DOWN                FCC1126       87          I
          -FCC1908
 BDT                SX1    X3          S = [SJ]                                            FCC1126       88          I
          -FCC1908
 BDT       SIO3D    SA3    A3-B1       SJ = SJ - 1                                         FCC1126       89          I
          -FCC1908
 BDT                SA4    B2+X3       DIS = TB-1 + [SJ]                                   FCC1126       90          I
          -FCC1908
 BDT                BX6    X3                                                              FCC1126       91          I
          -FCC1908
 BDT                SA6    A3+B1       [SJ+1] = [SJ]                                       FCC1126       92          I
          -FCC1908
 BDT                LX4    59-D.BMP                                                        FCC1126       93          I
          -FCC1908
 BDT                MI     X4,SIO3E    IF BM[DIS]    */ CANT MOVE ST PAST A *BM*           FCC1126       94          I
          -FCC1908
 BDT                IX4    X2-X3                                                           FCC1126       95          I
          -FCC1908
 BDT                NZ     X4,SIO3D    IF [SJ] " R   */ IF NOT FINISHED                    FCC1126       96          I
          -FCC1908
 BDT                                                                                       FCC1126       97          I
          -FCC1908
 BDT                SX6    X1                                                              FCC1126       98          I
          -FCC1908
 BDT                SA6    A3          [SJ] = S                                            FCC1126       99          I
          -FCC1908
 BDT                SX1    B1                                                              FCC1126      100          I
          -FCC1908
 BDT                EQ     SIO3                                                            FCC1126      101          I
          -FCC1908
 BDT                                                                                       FCC1126      102          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3534    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
          -FCC1908
 BDT       SIO3E    SX6    X1                                                              FCC1126      103          I
          -FCC1908
 BDT                SA6    A6          [SJ+1] = S                                          FCC1126      104          I
          -FCC1908
 BDT                SX1    1                                                               FCC1126      105          I
          -FCC1908
 BDT                                                                                       FCC1126      106          I
          -FCC1908
 BDT      *         REDEF CANNOT BE MOVED BACK, SET *XU* BIT IN DESCR FOR *GRA*            FCC1126      107          I
          -FCC1908
 BDT                                                                                       FCC1126      108          I
          -FCC1908
 BDT       SIO3F    BX6    X5                                                              FCC1126      109          I
          -FCC1908
 BDT                LX6    -I.LVLP                                                         FCC1126      110          I
          -FCC1908
 BDT                SA4    B2+X6       DIS = TB-1 + LVL[LI]   */ DESCR OF *ST*             FCC1126      111          I
          -FCC1908
 BDT                PRINT  SIO,(21X*SET XU*Z5),X6                                          FCC1126      112          I
          -FCC1908
 BDT                SX3    B1                                                              FCC0514      754          I
          -FCC1908
 BDT                LX3    D.XUP                                                           FCC0514      755          I
          -FCC1908
 BDT                BX6    X3+X4       XU[DIS] = 1                                         FCC0514      756          I
          -FCC1908
 BDT                SA6    A4                                                              FCC0514      757          I
          -FCC1908
 BDT                EQ     SIO3                                                            FCC0514      758          I
          -FCC1908
 BDT       SIO3B    RJ     MSD         MOVE THE STORE DOWN / SET THE *XU* BIT              FCC1908       16     A     
 BDT                EQ     SIO3                                                            FCC1908       17     A     
 BDT                                                                                       FCC0514      759     A     
 BDT      *         OUTPUT INSTRUCTION                                                     BDT         1331     A     
 BDT                                                                                       BDT         1332     A     
 BDT       SIO4     LX1    I.IIP       II[LI] = 1                                          BDT         1333     A     
 BDT                SA4    A5-B1       DI = LI - 1                                         BDT         1334     A     
 BDT                SX2    B5          OI[LI] = ON                                         BDT         1335     A     
 BDT                LX2    I.OIP                                                           BDT         1336     A     
 BDT                BX3    X1+X2                                                           BDT         1337     A     
 BDT                SX1    B1                                                              BDT         1338     A     
 BDT                BX6    X3+X5                                                           BDT         1339     A     
 BDT                LX4    59-D.PRSP                                                       BDT         1340     A     
 BDT                SA6    A5                                                              BDT         1341     A     
 BDT                SB5    B5+4        ON = ON + 4                                         BDT         1342     A     
 BDT                PL     X4,SIO5     IF ^PRS[DI]                                         BDT         1343          I
          -FCC0514
 BDT       SIO      SPACE  1,10                                                            BDT         1344          I
          -FCC0514
 BDT      *         INSTRUCTION *PRS*, OUTPUT THE *RS*                                     BDT         1345          I
          -FCC0514
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3535    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                                                                                       BDT         1346          I
          -FCC0514
 BDT                SA5    A5+4        LI = LI + 4                                         BDT         1347          I
          -FCC0514
 BDT                MI     X4,SIO4A    IF PRS[DI]                                          FCC0514      760     A     
 BDT                LX4    D.PRSP-D.RJRSP                                                  FCC0514      761     A     
 BDT                PL     X4,SIO5     IF ^RJRS[DI]                                        FCC0514      762          I
          -FCC0642
 BDT                                                                                       FCC0514      763          I
          -FCC0642
 BDT      *         INSTRUCTION *PRS* OR *RJRS*, OUTPUT THE *RS*                           FCC0514      764          I
          -FCC0642
 BDT                MI     X4,SIO4A    IF RJRS[DI]                                         FCC0642        5     A     
 BDT                LX4    D.RJRSP-D.XMTP                                                  FCC0642        6     A     
 BDT                PL     X4,SIO5     IF ^XMT[DI]                                         FCC0642        7     A     
 BDT                SA4    A4+4        DI = DI + 4   */ CHECK NEXT FOR *KS*                FCC0642        8     A     
 BDT                LX4    59-D.KSP                                                        FCC0642        9     A     
 BDT                PL     X4,SIO5     IF ^KS[DI]                                          FCC0642       10     A     
 BDT                                                                                       FCC0642       11     A     
 BDT      *         INSTRUCTION *PRS*, *RJRS* OR IS A *SXT*, OUTPUT THE NEXT INST          FCC0642       12     A     
 BDT                                                                                       FCC0514      765     A     
 BDT       SIO4A    SA5    A5+4        LI = LI + 4                                         FCC0514      766     A     
 BDT                MX2    -I.OIL                                                          BDT         1348     A     
 BDT                LX2    I.OIP                                                           BDT         1349     A     
 BDT                BX6    X2*X5                                                           BDT         1350     A     
 BDT                BX5    X0+X6       MI[LI] = 1                                          BDT         1351     A     
 BDT                EQ     SIO4                                                            BDT         1352     A     
 BDT                                                                                       BDT         1353     A     
 BDT       SIO5     SA3    A0          N = [ST]                                            BDT         1354     A     
 BDT                SA0    A0-1        ST = ST - 1                                         BDT         1355     A     
 BDT                SX7    X3                                                              BDT         1356     A     
 BDT                NZ     X3,SIO2     IF N " 0                                            BDT         1357     A     
 BDT                                                                                       BDT         1358     A     
 BDT                SA4    A5-3        R1 = LI - 3                                         BDT         1359     A     
 BDT                SA0    A0+B1       ST = ST + 1                                         BDT         1360     A     
 BDT                UX6    B2,X4                                                           BDT         1361     A     
 BDT                NZ     B2,SIO1     IF OC[R1] " OC.EOQ                                  BDT         1362     A     
 BDT                                                                                       BDT         1363     A     
 BDT                TRACE  SIO,RLIST                                                       BDT         1364     A     
 BDT                                                                                       BDT         1365          I
          -FCC0514
 BDT       SIO      EJECT                                                                  FCC0514      767          I
          -FCC0791
 BDT       SIO      SPACE  2,10                                                            FCC0791       28     A     
 BDT      *         MOVE THE INSTRUCTIONS TO THEIR FINAL ORDER                             BDT         1366     A     
 BDT                                                                                       BDT         1367     A     
 BDT                SA1    L.TXT                                                           BDT         1368     A     
 BDT                SA3    O.TREE                                                          BDT         1369     A     
 BDT                SB6    B7-B1                     (B6) = TXT + 2                        BDT         1370     A     
 BDT                MOVE   X1-8,B7+B1,X3     MOVE( L.TXT-8 , TXT+4 , TREE )                BDT         1371     A     
 BDT                SA1    N.INST                                                          BDT         1372     A     
 BDT                SA2    O.TXT                                                           BDT         1373     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3536    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SA3    O.TREE                                                          BDT         1374     A     
 BDT                SB3    3                                                               BDT         1375     A     
 BDT                SA5    X3+B3       TI = TREE + 3                                       BDT         1376     A     
 BDT                SB7    X3                        (B7) = TREE                           BDT         1377     A     
 BDT                SX1    X1-2        N = N.INST - 2                                      BDT         1378     A     
 BDT                SX0    B1                                                              BDT         1379     A     
 BDT                                                                                       BDT         1380     A     
 BDT       SIO8     SA4    A5-B1       D = [TI-1]                                          BDT         1381     A     
 BDT                SA3    A4-B1       R2 = [TI-2]                                         BDT         1382     A     
 BDT                SA2    A5-B3       R1 = [TI-3]                                         BDT         1383     A     
 BDT                LX5    -I.OIP                                                          BDT         1384     A     
 BDT                SB5    X5          J = OI[TI]                                          BDT         1385     A     
 BDT                SA5    A5+4        TI = TI + 4                                         BDT         1386     A     
 BDT                BX6    X4                                                              BDT         1387     A     
 BDT                LX7    X3                                                              BDT         1388     A     
 BDT                SA6    B6+B5       TXT(J+2) = D                                        BDT         1389     A     
 BDT                IX1    X1-X0       N = N - 1                                           BDT         1390     A     
 BDT                SA7    A6-B1       TXT(J+1) = R2                                       BDT         1391     A     
 BDT                BX6    X2                                                              BDT         1392     A     
 BDT                SA6    A7-B1       TXT(J) = R1                                         BDT         1393     A     
 BDT                NZ     X1,SIO8     IF N " 0                                            BDT         1394     A     
 BDT                                                                                       BDT         1395     A     
 BDT                MX7    0                                                               BDT         1396     A     
 BDT                SA7    L.TREE      L.TREE = 0                                          BDT         1397     A     
 BDT                SA0    B6-2                                                            BDT         1398     A     
 BDT                SX2    0                                                               BDT         1399     A     
 BDT                CALL   RNI         RENUMBER THE INSTRUCTIONS                           BDT         1400     A     
 BDT                SA5    O.TXT                                                           BDT         1401          I
          -FCC0514
 BDT                                                                                       FCC0514      768     A     
 BDT       SIO10    SA5    O.TXT                                                           FCC0514      769     A     
 BDT                RJ     CRW         COMPUTE X-REGISTER WIDTH OF NEW ORDER               BDT         1402     A     
 BDT                EQ     RIO                                                             BDT         1403     A     
 BDT                                                                                       BDT         1404     A     
 BDT       RIOA     BFMW   D,(BM,ST)                                                       BDT         1405     A     
 BDT       RMODE    BSS    1           *RIO* MODE                                          BDT         1406     A     
 BDT       RL       BSS    1           *TXT* INDEX OF LAST *BM*                            FCC0514      770          I
          -FCC2157
 BDT       RL       BSS    2           *TXT* INDEX OF LAST *BM*  ( RIO16 - RIO17 )         FCC2157       18     A     
 BDT       MSD      SPACE  3                                                               FCC1908       18     A     
 BDT      **        MSD - MOVE STORE ( TOP OF STACK ) DOWN TO A POINT BELOW *R*.           FCC1908       19     A     
 BDT                                                                                       FCC1908       20     A     
 BDT       MSD      ROUTINE                                                                FCC1908       21     A     
 BDT                SA4    B7+X2       LIP = TB + R                                        FCC1908       22     A     
 BDT                LX4    59-I.MIP                                                        FCC1908       23     A     
 BDT                PL     X4,MSD5     IF ^MI[LIP]   */ R NOT IN THE STACK                 FCC1908       24     A     
 BDT                                                                                       FCC1908       25     A     
 BDT      *         SEE IF WE CAN MOVE *TOS* BELOW *R* SO IT COMES OUT AFTER IT            FCC1908       26     A     
 BDT                                                                                       FCC1908       27     A     
 BDT                SA4    A0          SJ = SI       */ SEARCH FOR STORE IN STK            FCC1908       28     A     
 BDT                LX5    -I.LVLP                                                         FCC1908       29     A     
 BDT                SX3    X5          S = LVL[LI]   */ TXT INDEX OF *ST*                  FCC1908       30     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3537    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                LX5    I.LVLP                                                          FCC1908       31     A     
 BDT       MSD1     BX6    X3-X4                                                           FCC1908       32     A     
 BDT                SA4    A4-B1       SJ = SJ - 1                                         FCC1908       33     A     
 BDT                NZ     X6,MSD1     IF [SJ+1] " S                                       FCC1908       34     A     
 BDT                                                                                       FCC1908       35     A     
 BDT                SX4    A4+B1       SS = SJ + 1                                         FCC1908       36     A     
 BDT                SA3    A0+         SJ = SI       */ SEARCH FOR *R*                     FCC1908       37     A     
 BDT       MSD2     BX6    X2-X3                                                           FCC1908       38     A     
 BDT                SA3    A3-B1       SJ = SJ - 1                                         FCC1908       39     A     
 BDT                NZ     X6,MSD2     IF [SJ+1] " R                                       FCC1908       40     A     
 BDT                SX3    A3+B1                                                           FCC1908       41     A     
 BDT                IX6    X4-X3                                                           FCC1908       42     A     
 BDT                MI     X6,MSD      IF SS < SJ+1  */ S IS ALREADY BELOW R               FCC1908       43     A     
 BDT                PRINT  SIO,(21X*MOVE STORE DOWN*)                                      FCC1908       44     A     
 BDT                                                                                       FCC1908       45     A     
 BDT                SA3    X4          SJ = SS       */ MOVE THE STORE DOWN                FCC1908       46     A     
 BDT                SX1    X3          S = [SJ]                                            FCC1908       47     A     
 BDT       MSD3     SA3    A3-B1       SJ = SJ - 1                                         FCC1908       48     A     
 BDT                SA4    B2+X3       DIS = TB-1 + [SJ]                                   FCC1908       49     A     
 BDT                BX6    X3                                                              FCC1908       50     A     
 BDT                SA6    A3+B1       [SJ+1] = [SJ]                                       FCC1908       51     A     
 BDT                LX4    59-D.BMP                                                        FCC1908       52     A     
 BDT                MI     X4,MSD4     IF BM[DIS]    */ CANT MOVE ST PAST A *BM*           FCC1908       53     A     
 BDT                IX4    X2-X3                                                           FCC1908       54     A     
 BDT                NZ     X4,MSD3     IF [SJ] " R   */ IF NOT FINISHED                    FCC1908       55     A     
 BDT                                                                                       FCC1908       56     A     
 BDT                SX6    X1                                                              FCC1908       57     A     
 BDT                SA6    A3          [SJ] = S                                            FCC1908       58     A     
 BDT                SX1    B1                                                              FCC1908       59     A     
 BDT                EQ     MSD                                                             FCC1908       60     A     
 BDT                                                                                       FCC1908       61     A     
 BDT       MSD4     SX6    X1                                                              FCC1908       62     A     
 BDT                SA6    A6          [SJ+1] = S                                          FCC1908       63     A     
 BDT                SX1    1                                                               FCC1908       64     A     
 BDT                                                                                       FCC1908       65     A     
 BDT      *         REDEF CANNOT BE MOVED BACK, SET *XU* BIT IN DESCR FOR *GRA*            FCC1908       66     A     
 BDT                                                                                       FCC1908       67     A     
 BDT       MSD5     BX6    X5                                                              FCC1908       68     A     
 BDT                LX6    -I.LVLP                                                         FCC1908       69     A     
 BDT                SA4    B2+X6       DIS = TB-1 + LVL[LI]  */ DESCR OF STORE             FCC1908       70     A     
 BDT                PRINT  SIO,(21X*SET XU*Z5),X6                                          FCC1908       71     A     
 BDT                SX3    B1                                                              FCC1908       72     A     
 BDT                LX3    D.XUP                                                           FCC1908       73     A     
 BDT                BX6    X3+X4       XU[DIS] = 1                                         FCC1908       74     A     
 BDT                SA6    A4                                                              FCC1908       75     A     
 BDT                EQ     MSD                                                             FCC1908       76     A     
 BDT       CRW      TITLE  CRW - COMPUTE REGISTER WIDTH OF A SEQUENCE                      BDT         1407     A     
 BDT      **        CRW - COMPUTE THE X-REGISTER WIDTH OF A INSTRUCTION SEQUENCE           BDT         1408     A     
 BDT      *         AND INSTALL IT IN THE DESCRIPTORS.                                     BDT         1409     A     
 BDT      *                                                                                BDT         1410     A     
 BDT      *         ENTRY  (X5) = FWA OF RLIST INSTRUCTION BLOCK                           BDT         1411     A     
 BDT      *                                                                                BDT         1412     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3538    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT      *         EXIT   (X6) = MAX REG WIDTH OF SEQUENCE                                BDT         1413     A     
 BDT                                                                                       BDT         1414     A     
 BDT       CRW      ENTRY. **                                                              BDT         1415     A     
 BDT                MX0    -R1.RIL+1                                                       BDT         1416     A     
 BDT                SB4    B0          RW = 0        */ REG WIDTH                          BDT         1417     A     
 BDT                MX1    -D.REGWL                                                        BDT         1418     A     
 BDT                LX0    1                                                               BDT         1419     A     
 BDT                SB5    B0          MW = 0        */ MAX WIDTH                          BDT         1420     A     
 BDT                LX1    D.REGWP                                                         BDT         1421     A     
 BDT                MX2    -D.USESL                                                        BDT         1422     A     
 BDT                SB7    X5+3        TB = TXT + 3                                        BDT         1423     A     
 BDT                SA4    B7-B1       DI = TB - 1                                         BDT         1424     A     
 BDT                SB3    OC.RS                                                           BDT         1425     A     
 BDT                MX7    0                                                               BDT         1426     A     
 BDT                SA7    B7          [TB] = 0                                            BDT         1427     A     
 BDT                EQ     CRW1                                                            BDT         1428     A     
 BDT                                                                                       BDT         1429     A     
 BDT      *         ^D OR PRS TO A B-REG, INSTALL REGW, CLEAR LINK WORD                    BDT         1430     A     
 BDT                                                                                       BDT         1431     A     
 BDT       CRW0     LX4    1+D.^DP                                                         BDT         1432     A     
 BDT                SX3    B4                                                              BDT         1433     A     
 BDT                BX4    X1*X4                                                           BDT         1434     A     
 BDT                LX3    D.REGWP                                                         BDT         1435     A     
 BDT                MX7    0                                                               BDT         1436     A     
 BDT                BX6    X3+X4       REGW[DI] = RW                                       BDT         1437     A     
 BDT                SA6    A4                                                              BDT         1438     A     
 BDT                SA7    A4+B1       [DI+1] = 0                                          BDT         1439     A     
 BDT                                                                                       BDT         1440     A     
 BDT      *         ADVANCE TO NEXT INSTRUCTION, JUMP ON TYPE                              BDT         1441     A     
 BDT                                                                                       BDT         1442     A     
 BDT       CRW1     SA5    A4+2        R1 = DI + 2                                         BDT         1443     A     
 BDT                SA4    A5+2        DI = R1 + 2                                         BDT         1444     A     
 BDT                UX5    B2,X5                                                           BDT         1445     A     
 BDT                LX4    58-D.TYP                                                        BDT         1446     A     
 BDT                IX7    X4+X4                                                           BDT         1447     A     
 BDT                MI     X4,CRW3     IF TYPE[DI] = III ! IV                              BDT         1448     A     
 BDT                MI     X7,CRW2     IF TYPE[DI] = II                                    BDT         1449     A     
 BDT                                                                                       BDT         1450     A     
 BDT      *         TYPE I                                                                 BDT         1451     A     
 BDT                                                                                       BDT         1452     A     
 BDT                LX7    1+D.TYP-D.TYIOP                                                 BDT         1453     A     
 BDT                MX3    -D.TYIOL                                                        BDT         1454     A     
 BDT                LX4    1+D.TYP-D.^DP                                                   BDT         1455     A     
 BDT                LT     B2,B3,CRW1A IF OC[R1] < OC.RS  */ *DAR*                         BDT         1456     A     
 BDT                BX6    -X3*X7                                                          BDT         1457     A     
 BDT                SA3    =XTYIOM+X6                                                      BDT         1458     A     
 BDT                UX7    B2,X3                                                           BDT         1459     A     
 BDT                BX6    X7*X5                                                           BDT         1460     A     
 BDT                AX5    B2,X6                                                           BDT         1461     A     
 BDT                AX5    B2,X6       RNUMS = TYIOM[DI,R1]                                BDT         1462     A     
 BDT                EQ     CRW7                                                            BDT         1463     A     
 BDT                                                                                       BDT         1464     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3539    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT      *         PROCESS *DAR*                                                          BDT         1465     A     
 BDT                                                                                       BDT         1466     A     
 BDT       CRW1A    AX5    R1.RJP                                                          BDT         1467     A     
 BDT                BX7    -X0*X5      R = RJ[R1]                                          BDT         1468     A     
 BDT                SA3    B7+X7       LI = TB + R                                         BDT         1469     A     
 BDT                SX6    X3-1        [LI] = [LI] - 1                                     BDT         1470     A     
 BDT                SA6    A3                                                              BDT         1471     A     
 BDT                NZ     X6,CRW0     IF [LI] " 0   */ NOT LAST USE                       BDT         1472     A     
 BDT                SB4    B4-B1       RW = RW - 1                                         BDT         1473     A     
 BDT                EQ     CRW0                                                            BDT         1474     A     
 BDT                                                                                       BDT         1475     A     
 BDT      *         TYPE II                                                                BDT         1476     A     
 BDT                                                                                       BDT         1477     A     
 BDT       CRW2     BX6    X4                                                              BDT         1478     A     
 BDT                LX4    1+D.TYP-D.^DP                                                   BDT         1479     A     
 BDT                LX6    1+D.TYP-D.PIP                                                   BDT         1480     A     
 BDT                PL     X6,CRW9     IF ^PI[DI]                                          BDT         1481     A     
 BDT                                                                                       BDT         1482     A     
 BDT                EQ     B2,B3,CRW0  IF OC[R1] = OC.RS                                   BDT         1483     A     
 BDT                LX5    58-R1.SOP-SO.RTP                                                BDT         1484     A     
 BDT                PL     X5,CRW0     IF SORT[R1] " 2  */ DEF NOT TO AN X-REG             BDT         1485     A     
 BDT                                                                                       BDT         1486     A     
 BDT                EQ     CRW9                                                            BDT         1487     A     
 BDT                                                                                       BDT         1488     A     
 BDT      *         TYPE IV                                                                BDT         1489     A     
 BDT                                                                                       BDT         1490     A     
 BDT       CRW3     PL     X7,CRW4     IF TYPE[DI] " IV                                    BDT         1491     A     
 BDT                ZR     B2,CRW11    IF OC[R1] = OC.EOQ                                  BDT         1492     A     
 BDT                                                                                       BDT         1493     A     
 BDT                LX4    1+D.TYP-D.^DP                                                   BDT         1494     A     
 BDT                SX6    B2-OC.EOS                                                       BDT         1495          I
          -FCC0883
 BDT                ZR     X6,CRW0     IF OC[R1] = OC.EOS                                  BDT         1496          I
          -FCC0883
 BDT                SX6    B2-OC.ENT                                                       FCC0883        4     A     
 BDT                MI     X6,CRW0     IF OC[R1] < OC.ENT  */ EOS OR LAB                   FCC0883        5     A     
 BDT                SB4    0           RW = 0        */ CLEAR UJP LOCKS                    BDT         1497     A     
 BDT                EQ     CRW0                                                            BDT         1498     A     
 BDT                                                                                       BDT         1499     A     
 BDT      *         TYPE III                                                               BDT         1500     A     
 BDT                                                                                       BDT         1501     A     
 BDT       CRW4     LX4    1+D.TYP-D.^DP     RNUMS = RI[R1]                                BDT         1502     A     
 BDT                MI     X4,CRW5     IF ^D[DI]                                           BDT         1503     A     
 BDT                MX5    0           RNUMS = 0                                           BDT         1504     A     
 BDT       CRW5     SA3    A5+B1       R2 = R1 + 1                                         BDT         1505     A     
 BDT                BX5    -X0*X5                                                          BDT         1506     A     
 BDT                LX3    -IH.RFP                                                         BDT         1507     A     
 BDT                BX6    -X0*X3      R = RF[R2]                                          BDT         1508     A     
 BDT                ZR     X6,CRW7     IF R = 0                                            BDT         1509     A     
 BDT                LX5    R1.RIL                                                          BDT         1510     A     
 BDT                BX5    X6+X5       RNUMS = SHIFT(RNUMS,R1.RIL) ! R                     BDT         1511     A     
 BDT                                                                                       BDT         1512     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3540    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT      *         DECREMENT USES OF OPERANDS ( RNUMS )                                   BDT         1513     A     
 BDT                                                                                       BDT         1514     A     
 BDT       CRW7     BX7    -X0*X5      R = RI[RNUMS]                                       BDT         1515     A     
 BDT                SA3    B7+X5       LI = TB + R                                         BDT         1516     A     
 BDT                SX6    X3-1        [LI] = [LI] - 1                                     BDT         1517     A     
 BDT                AX5    R1.RIL      RNUMS = SHIFT(RNUMS,-R1.RIL)                        BDT         1518     A     
 BDT                NZ     X6,CRW8     IF [LI] " 0   */ NOT LAST USE                       BDT         1519     A     
 BDT                SB4    B4-B1       RW = RW - 1                                         BDT         1520     A     
 BDT       CRW8     SA6    A3                                                              BDT         1521     A     
 BDT                NZ     X5,CRW7     IF RNUMS " 0                                        BDT         1522     A     
 BDT       RIO      SPACE  1,10                                                            BDT         1523     A     
 BDT      *         ADVANCE *RW* TO ACCOUNT FOR THE NEW RESULT                             BDT         1524     A     
 BDT                                                                                       BDT         1525     A     
 BDT       CRW9     MI     X4,CRW0     IF ^D[DI]                                           BDT         1526     A     
 BDT                BX6    X4                                                              BDT         1527     A     
 BDT                LX6    D.^DP-D.PRSP                                                    BDT         1528     A     
 BDT                PL     X6,CRW10    IF ^PRS[DI]                                         BDT         1529     A     
 BDT                SA3    A4+2        R1RS = DI + 2                                       BDT         1530     A     
 BDT                LX3    58-R1.SOP-SO.RTP                                                BDT         1531     A     
 BDT                PL     X3,CRW0     IF SORT[R1RS] " 2  */ NOT TO AN X-REG               BDT         1532     A     
 BDT                                                                                       BDT         1533     A     
 BDT       CRW10    LX4    1+D.^DP                                                         BDT         1534     A     
 BDT                SB4    B4+B1       RW = RW + 1                                         BDT         1535     A     
 BDT                BX4    X1*X4                                                           BDT         1536     A     
 BDT                SX3    B4                                                              BDT         1537     A     
 BDT                BX7    -X2*X4                                                          BDT         1538     A     
 BDT                SA7    A4+B1       [DI+1] = USES[DI]                                   BDT         1539     A     
 BDT                LX3    D.REGWP                                                         BDT         1540     A     
 BDT                BX6    X3+X4       REGW[DI] = RW                                       BDT         1541     A     
 BDT                SA6    A4                                                              BDT         1542     A     
 BDT                LE     B4,B5,CRW1  IF RW @ MW                                          BDT         1543     A     
 BDT                                                                                       BDT         1544     A     
 BDT                SB5    B4          MW = RW                                             BDT         1545     A     
 BDT                EQ     CRW1                                                            BDT         1546     A     
 BDT       CRW      SPACE  1,10                                                            BDT         1547     A     
 BDT      *         EOQ - SET MAX WIDTH IN DESCR OF *BOS* AND CLEAR LINK WORDS             BDT         1548     A     
 BDT                                                                                       BDT         1549     A     
 BDT       CRW11    SA3    B7-B1       DI = TB - 1                                         BDT         1550     A     
 BDT                SX6    B5                                                              BDT         1551     A     
 BDT                LX6    D.REGWP                                                         BDT         1552     A     
 BDT                BX3    X1*X3                                                           BDT         1553     A     
 BDT                MX7    0                                                               BDT         1554     A     
 BDT                BX6    X3+X6       REGW[TB-1] = MW  */ SET MAXW IN *BOS*               BDT         1555     A     
 BDT                SA6    A3                                                              BDT         1556     A     
 BDT                                                                                       BDT         1557     A     
 BDT                SA7    A3+B1                                                           BDT         1558     A     
 BDT                SB2    A3+B1                                                           BDT         1559     A     
 BDT                SB3    A4+B1                                                           BDT         1560     A     
 BDT                SB4    4                                                               BDT         1561     A     
 BDT      +         SB2    B2+B4       FOR I = 3 TO L.TXT BY 4;  TXT(I) = 0                BDT         1562     A     
 BDT                SA7    A7+B4                                                           BDT         1563     A     
 BDT                LT     B2,B3,*                                                         BDT         1564     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3541    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                TRACE  CRW,RLIST                                                       BDT         1565     A     
 BDT                                                                                       BDT         1566     A     
 BDT                SX6    B5          RIO.MAX = MW                                        BDT         1567     A     
 BDT                EQ     CRW                                                             BDT         1568     A     
 BDT       RNI      TITLE  RNI - RENUMBER INSTRUCTIONS                                     BDT         1569     A     
 BDT      **        RNI - RENUMBER INSTRUCTIONS                                            BDT         1570     A     
 BDT      *         RELABEL THE R-NUMBERS IN THE INSTRUCTIONS SO THAT FOR EACH             BDT         1571     A     
 BDT      *         *RI* WHICH DEFINES A RESULT, RI = R1 - O.TXT ( THE INDEX TO            BDT         1572     A     
 BDT      *         *TXT* OF THE INSTRUCTION ). WITH THIS LABELING, R-NUMBERS              BDT         1573     A     
 BDT      *         APPEARING AS OPERANDS ARE POINTERS TO THE INSTRUCTIONS WHICH           BDT         1574     A     
 BDT      *         ARE THE OPERANDS.                                                      BDT         1575     A     
 BDT      *                                                                                BDT         1576     A     
 BDT      *         ENTRY  (B7) = FWA OF SCRATCH TABLE USED FOR RENUMBERING                BDT         1577     A     
 BDT      *                (A0) = (O.TXT)                                                  BDT         1578     A     
 BDT      *                (X2) = M = NEW BASE R-NUMBER                                    BDT         1579     A     
 BDT      *                                                                                BDT         1580     A     
 BDT      *         EXIT   A0, B7 PRESERVED                                                BDT         1581     A     
 BDT      *                (B2) = 2                                                        BDT         1582     A     
 BDT      *                (B4) = 4                                                        BDT         1583     A     
 BDT      *                (X0) = M(-R1.RIL)                                               BDT         1584     A     
 BDT                                                                                       BDT         1585     A     
 BDT       RNI      ENTRY.                                                                 BDT         1586     A     
 BDT                TRACE  RNI,RLIST                                                       BDT         1587     A     
 BDT                SB2    B1+B1       (B2) = 2                                            BDT         1588     A     
 BDT                MX0    -R1.RIL                                                         BDT         1589     A     
 BDT                SB5    59-D.^DP                                                        BDT         1590     A     
 BDT                SB4    B2+B2       (B4) = 4                                            BDT         1591     A     
 BDT                SA4    A0+B2       DI = O.TXT + 2                                      BDT         1592     A     
 BDT                SX1    B4                                                              BDT         1593     A     
 BDT                BX7    X2                                                              BDT         1594     A     
 BDT                PX5    B2,X2                                                           BDT         1595     A     
 BDT                                                                                       BDT         1596     A     
 BDT      *         SETUP THE EQUIVALENCE TABLE BETWEEN THE R-NUMBERS                      BDT         1597     A     
 BDT                                                                                       BDT         1598     A     
 BDT       RNI1     UX6    "OC",X5                                                         BDT         1599     A     
 BDT                ZR     "OC",RNI3   IF OC[R1] = 0 */ END OF *TXT*                       BDT         1600     A     
 BDT                                                                                       BDT         1601     A     
 BDT       RNI2     SA4    A4+B4       DI = DI + 4                                         BDT         1602     A     
 BDT                IX2    X2+X1       M = M + 4                                           BDT         1603     A     
 BDT                SA5    A4-B2       R1 = DI - 2                                         BDT         1604     A     
 BDT                LX6    B5,X4                                                           BDT         1605     A     
 BDT                MI     X6,RNI1     IF ^D[DI]                                           BDT         1606     A     
 BDT                BX3    -X0*X5      RI = RI[R1]                                         BDT         1607     A     
 BDT                IX6    X2-X3                                                           BDT         1608     A     
 BDT                LX7    X2          MAXR = M                                            BDT         1609     A     
 BDT                SA6    B7+X3       T(RI) = M - RI                                      BDT         1610     A     
 BDT                EQ     RNI2                                                            BDT         1611     A     
 BDT       RNI      SPACE  3                                                               BDT         1612     A     
 BDT      *         RELABEL THE R-NUMBERS IN THE INSTRUCTIONS USING THE EQV TABLE          BDT         1613     A     
 BDT                                                                                       BDT         1614     A     
 BDT       RNI3     MX6    0                                                               BDT         1615     A     
 BDT                SA4    A0+B2       DI = O.TXT + 2                                      BDT         1616     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3542    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                SB6    R1.RIL                                                          BDT         1617     A     
 BDT                SA6    B7          T(0) = 0                                            BDT         1618     A     
 BDT                SA6    B7+B1       T(1) = 0                                            BDT         1619     A     
 BDT                EQ     RNI5                                                            BDT         1620     A     
 BDT       RNI      SPACE  1,10                                                            BDT         1621     A     
 BDT      *         PROCESS TYPE II / III INSTRUCTIONS                                     BDT         1622     A     
 BDT                                                                                       BDT         1623     A     
 BDT       RNI4     SA2    A5+B1       R2 = R1 + 1                                         BDT         1624     A     
 BDT                BX7    -X0*X5                                                          BDT         1625     A     
 BDT                SA3    B7+X7       RI = T(RI[R1])                                      BDT         1626     A     
 BDT                IX6    X5+X3                                                           BDT         1627     A     
 BDT                LX2    -IH.RFP                                                         BDT         1628     A     
 BDT                SA3    B7+X2                                                           BDT         1629     A     
 BDT                IX7    X2+X3       RF = T(RF[R2])                                      BDT         1630     A     
 BDT                SA6    A5                                                              BDT         1631     A     
 BDT                LX7    IH.RFP                                                          BDT         1632     A     
 BDT                SA7    A2+                                                             BDT         1633     A     
 BDT                                                                                       BDT         1634     A     
 BDT       RNI5     SA4    A4+B4       DI = DI + 4                                         BDT         1635     A     
 BDT                LX4    58-D.TYP                                                        BDT         1636     A     
 BDT                SA5    A4-B2       RI = DI - 2                                         BDT         1637     A     
 BDT                IX6    X4+X4                                                           BDT         1638     A     
 BDT                BX7    X4-X6                                                           BDT         1639     A     
 BDT                MI     X7,RNI4     IF TYPE[DI] = II ! III                              BDT         1640     A     
 BDT                MI     X4,RNI6     IF TYPE[DI] = IV                                    BDT         1641     A     
 BDT                                                                                       BDT         1642     A     
 BDT      *         PROCESS TYPE I INSTRUCTIONS                                            BDT         1643     A     
 BDT                                                                                       BDT         1644     A     
 BDT                LX5    -R1.RJP                                                         BDT         1645     A     
 BDT                BX1    -X0*X5                                                          BDT         1646     A     
 BDT                SA2    B7+X1                                                           BDT         1647     A     
 BDT                IX3    X5+X2       RJ = T( RJ[R1] )                                    BDT         1648     A     
 BDT                LX4    B6,X3                                                           BDT         1649     A     
 BDT                BX5    -X0*X4                                                          BDT         1650     A     
 BDT                SA1    B7+X5                                                           BDT         1651     A     
 BDT                IX7    X1+X4       RK = T( RK[R1] )                                    BDT         1652     A     
 BDT                SA2    A5+B1       R2 = R1 + 1                                         BDT         1653     A     
 BDT                LX6    B6,X7                                                           BDT         1654     A     
 BDT                BX3    -X0*X6                                                          BDT         1655     A     
 BDT                SA1    B7+X3                                                           BDT         1656     A     
 BDT                IX7    X1+X6       RI = T( RI[R1] )                                    BDT         1657     A     
 BDT                SA7    A5                                                              BDT         1658     A     
 BDT                ZR     X2,RNI5     IF [R2] = 0                                         BDT         1659     A     
 BDT                LX2    -IH.RFP                                                         BDT         1660     A     
 BDT                SA3    B7+X2                                                           BDT         1661          I
          -FCC0643
 BDT                BX7    -X0*X2                                                          FCC0643       81     A     
 BDT                SA3    B7+X7                                                           FCC0643       82     A     
 BDT                IX6    X2+X3       RF = T(RF[R2])                                      BDT         1662     A     
 BDT                LX6    IH.RFP                                                          BDT         1663     A     
 BDT                SA6    A2                                                              BDT         1664     A     
 BDT                EQ     RNI5                                                            BDT         1665     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3543    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BDT     
  
 BDT                                                                                       BDT         1666     A     
 BDT       RNI6     UX7    "OC",X5                                                         BDT         1667     A     
 BDT                NZ     "OC",RNI5   IF OC[R1] " 0                                       BDT         1668     A     
 BDT                EQ     RNI                                                             BDT         1669     A     
 BDT                                                                                       BDT         1670     A     
 BDT                END                                                                    BDT         1671     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - BDT     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          BDT                       1671      1532
          FCC0448                     30        28
          FCC0514                    470       346
          FCC0613                     21        21
          FCC0625                      4         0
          FCC0641                     18        18
          FCC0642                      8         8
          FCC0643                      2         2
          FCC0658                      5         0
          FCC0675                      2         2
          FCC0715                      7         7
          FCC0791                     24         5
          FCC0883                      2         2
          FCC0715A                     8         8
          FCC0881                     20        10
          FCC0977                     62        62
          FEAT155F                     5         5
          FCC1056                     18        11
          FCC1126                    100        48
          FCC1290                     24        22
          FCC1322                      6         2
          FCC1518X                    20        20
          FCC1695X                     6         6
          FCC1700X                     5         5
          FCC1739X                     2         2
          FCC1825X                     4         4
          FCC1908                     72        72
          FCC2020                      9         9
          FCC2157                     14         4
          FCC2273X                    41        41
          FCCA550X                     1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FTNDBG  
  
 FTNDBG   *DECK     FTNDBG                                                                 FTNDBG         1     A     
 FTNDBG   *IF       DEF,TESTFTN                                                            FTNDBG         2          I
          -FCCA589
 FTNDBG   *IF DEF,TEST                                                                     FCCA589       29     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3544    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FTNDBG  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FTNDBG                       2         1
          FCCA589                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DMPIIT  
  
 DMPIIT   *DECK     DMPIIT                                                                 DMPIIT         1     A     
 DMPIIT             SUBROUTINE DMPIIT( IIT , N , PIC )                                     DMPIIT         2     A     
 DMPIIT                                                                                    DMPIIT         3     A     
 DMPIIT   **        DMP IIT - FORMAT AND LIST INC VALUES AND INC FORMULAS IN *IIT*         DMPIIT         4     A     
 DMPIIT                                                                                    DMPIIT         5     A     
 DMPIIT             IMPLICIT INTEGER(A-Z)                                                  DMPIIT         6     A     
 DMPIIT             COMMON/LINE/LINECM(2)                                                  DMPIIT         7     A     
 DMPIIT             INTEGER IIT(N) , Z(1)                                                  DMPIIT         8     A     
 DMPIIT             COMMON/BVINFO/VL                                                       DMPIIT         9     A     
 DMPIIT             DATA VECNAM / 5L  LE   /                                               DMPIIT        10     A     
 DMPIIT                                                                                    DMPIIT        11     A     
 DMPIIT             LOC(X) = Z(X+1-Z)                                                      DMPIIT        12     A     
 DMPIIT             SYM(I) = LOC( LOC(12B)-2*I)                                            DMPIIT        13     A     
 DMPIIT             FIELD(X,P,L) = SHIFT(X,60-P) .A. .N.MASK(60-L)                         DMPIIT        14     A     
 DMPIIT   *                                  INC VALUES                                    DMPIIT        15     A     
 DMPIIT             TYP(X) = FIELD(X,48,3)                                                 DMPIIT        16     A     
 DMPIIT             VUDI(X) = FIELD(X,36,12)                                               DMPIIT        17     A     
 DMPIIT             VCA(X) = FIELD(X,18,18)                                                DMPIIT        18     A     
 DMPIIT             VIH(X) = FIELD(X,0,18)                                                 DMPIIT        19     A     
 DMPIIT   *                                  IA WORD                                       DMPIIT        20     A     
 DMPIIT             NWD(X) = FIELD(X,48,10)                                                DMPIIT        21     A     
 DMPIIT             CA(X) = FIELD(X,18,18)                                                 DMPIIT        22     A     
 DMPIIT             UDI(X) = FIELD(X,1,17)                                                 DMPIIT        23     A     
 DMPIIT   *                                  IB WORD                                       DMPIIT        24     A     
 DMPIIT             NLD(X) = FIELD(X,48,10)                                                DMPIIT        25     A     
 DMPIIT             ILD(X) = FIELD(X,0,18)                                                 DMPIIT        26     A     
 DMPIIT   *                                          E. WORD OF *RXI*                      DMPIIT        27     A     
 DMPIIT             SCR(X) = FIELD(X,59,1)                                                 DMPIIT        28     A     
 DMPIIT             JP(X) = FIELD(X,58,1)                                                  DMPIIT        29     A     
 DMPIIT             ALLP(X) = FIELD(X,57,1)                                                DMPIIT        30     A     
 DMPIIT             PRED(X) = FIELD(X,33,15)                                               DMPIIT        31     A     
 DMPIIT             BI(X) = FIELD(X,0,15)                                                  DMPIIT        32     A     
 DMPIIT                                                                                    DMPIIT        33     A     
 DMPIIT                                                                                    DMPIIT        34     A     
 DMPIIT             Z = LOCF(Z)                                                            DMPIIT        35     A     
 DMPIIT             PRINT 1                                                                DMPIIT        36     A     
 DMPIIT    1        FORMAT(/*   TYP  VAL, INCREMENT VALUES*/)                              DMPIIT        37     A     
 DMPIIT             LINECM = LINECM(2)                                                     DMPIIT        38     A     
 DMPIIT                                                                                    DMPIIT        39     A     
 DMPIIT             DO 10 I = 1,PIC                                                        DMPIIT        40     A     
 DMPIIT             T = TYP(IIT(I))                                                        DMPIIT        41     A     
 DMPIIT             V = VIH(IIT(I))                                                        DMPIIT        42     A     
 DMPIIT             PRINT 2,T                                                              DMPIIT        43     A     
 DMPIIT    2        FORMAT(I5)                                                             DMPIIT        44     A     
 DMPIIT             IF( T .NE. 0 ) GO TO 4                                                 DMPIIT        45     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3545    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DMPIIT  
  
 DMPIIT             PRINT 3,V                                                              DMPIIT        46     A     
 DMPIIT    3        FORMAT(Z8,*B*/)                                                        DMPIIT        47     A     
 DMPIIT             GO TO 10                                                               DMPIIT        48     A     
 DMPIIT                                                                                    DMPIIT        49     A     
 DMPIIT    4        ITW = IIT(I)                                                           DMPIIT        50     A     
 DMPIIT             PRINT 5,VCA(ITW),SYM(V),VUDI(ITW)/2                                    DMPIIT        51     A     
 DMPIIT    5        FORMAT(Z8,* + *A7,I5,*UDI*/)                                           DMPIIT        52     A     
 DMPIIT    10       CONTINUE                                                               DMPIIT        53     A     
 DMPIIT                                                                                    DMPIIT        54     A     
 DMPIIT   *         PRINT OUT THE INCREMENT FORMULAS                                       DMPIIT        55     A     
 DMPIIT                                                                                    DMPIIT        56     A     
 DMPIIT             I = PIC + 1                                                            DMPIIT        57     A     
 DMPIIT    15       PRINT 11                                                               DMPIIT        58     A     
 DMPIIT    11       FORMAT(/)                                                              DMPIIT        59     A     
 DMPIIT             X = IIT(I)                                                             DMPIIT        60     A     
 DMPIIT             I = I + 1                                                              DMPIIT        61     A     
 DMPIIT             IPASS = 0                                                              DMPIIT        62     A     
 DMPIIT             PRINT 16,I-2,FIELD(X,59,1),FIELD(X,36,18),FIELD(X,18,18) ,             DMPIIT        63     A     
 DMPIIT        1    FIELD(X,0,18)                                                          DMPIIT        64     A     
 DMPIIT    16       FORMAT(Z8*  PI WORD*Z3,3Z6/)                                           DMPIIT        65     A     
 DMPIIT                                                                                    DMPIIT        66     A     
 DMPIIT    20       ITW = IIT(I)                                                           DMPIIT        67     A     
 DMPIIT             NW = NWD(ITW)                                                          DMPIIT        68     A     
 DMPIIT             PRINT 21,NW,CA(ITW),UDI(ITW),NLD(IIT(I+1)),ILD(IIT(I+1))               DMPIIT        69     A     
 DMPIIT    21       FORMAT(10X,*NWD,CA,UDI =*2Z5,I5*  N.LD,ILD =*2Z5/)                     DMPIIT        70     A     
 DMPIIT             J = I + NW                                                             DMPIIT        71     A     
 DMPIIT             I = I + 2                                                              DMPIIT        72     A     
 DMPIIT                                                                                    DMPIIT        73     A     
 DMPIIT    30       PRINT 31                                                               DMPIIT        74     A     
 DMPIIT    31       FORMAT(10X)                                                            DMPIIT        75     A     
 DMPIIT             CALL PRNTRLI( IIT(I) )                                                 DMPIIT        76     A     
 DMPIIT             I = I + 4                                                              DMPIIT        77     A     
 DMPIIT             IF( I .LT. J ) GO TO 30                                                DMPIIT        78     A     
 DMPIIT             IF( IPASS .NE. 0 ) GO TO 35                                            DMPIIT        79     A     
 DMPIIT             IPASS = 1                                                              DMPIIT        80     A     
 DMPIIT             GO TO 20                                                               DMPIIT        81     A     
 DMPIIT                                                                                    DMPIIT        82     A     
 DMPIIT    35       IF( IIT(I) .NE. 0 ) GO TO 15                                           DMPIIT        83     A     
 DMPIIT                                                                                    DMPIIT        84     A     
 DMPIIT             LINECM = 0                                                             DMPIIT        85     A     
 DMPIIT             RETURN                                                                 DMPIIT        86     A     
 DMPIIT                                                                                    DMPIIT        87     A     
 DMPIIT                                                                                    DMPIIT        88     A     
 DMPIIT             ENTRY  PRNTRXI                                                         DMPIIT        89     A     
 DMPIIT                                                                                    DMPIIT        90     A     
 DMPIIT   *         PRNT RXI - PRINT OUT REGION EXIT INFORMATION ( GPO/FXI )               DMPIIT        91     A     
 DMPIIT                                                                                    DMPIIT        92     A     
 DMPIIT             I = 2                                                                  DMPIIT        93     A     
 DMPIIT                                                                                    DMPIIT        94     A     
 DMPIIT    100      X = IIT(I)                                                             DMPIIT        95     A     
 DMPIIT             PRINT 101,SCR(X),JP(X),ALLP(X),PRED(X),BI(X)                           DMPIIT        96     A     
 DMPIIT    101      FORMAT(/*    SCR,JP,ALLP =*3Z2*   PRED,SUCC BN =*2Z5/)                 DMPIIT        97     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3546    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DMPIIT  
  
 DMPIIT             I = I+1                                                                DMPIIT        98     A     
 DMPIIT             CALL PRNTABV( VECNAM , IIT(I) )                                        DMPIIT        99     A     
 DMPIIT             I = I + VL                                                             DMPIIT       100     A     
 DMPIIT             IF( IIT(I) .NE. 0 ) GO TO 100                                          DMPIIT       101     A     
 DMPIIT                                                                                    DMPIIT       102     A     
 DMPIIT             RETURN                                                                 DMPIIT       103     A     
 DMPIIT                                                                                    DMPIIT       104     A     
 DMPIIT             END                                                                    DMPIIT       105     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DMPIIT  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DMPIIT                     105       105
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DMPRLST 
  
 DMPRLST  *DECK     DMPRLST                                                                DMPRLST        1     A     
 DMPRLST            SUBROUTINE DMPRLST( CTR , TXT , LTXT )                                 DMPRLST        2     A     
 DMPRLST                                                                                   DMPRLST        3     A     
 DMPRLST  **        DMP RLST - PRINT *IL* INSTRUCTIONS IN *TXT* TABLE                      DMPRLST        4     A     
 DMPRLST                                                                                   DMPRLST        5     A     
 DMPRLST            IMPLICIT INTEGER(A-Z)                                                  DMPRLST        6     A     
 DMPRLST            INTEGER TXT(LTXT) , CTR(5) , STPR(4) , ZPT(2)                          DMPRLST        7     A     
 DMPRLST            COMMON/LINE/LINECM(2)                                                  DMPRLST        8     A     
 DMPRLST            DATA ZPT / 2R   , 2R Z /                                               DMPRLST        9     A     
 DMPRLST            DATA STPR / 3R    , 3R RS  , 3R SP  , 3R **  /                         DMPRLST       10     A     
 DMPRLST            FIELD(X,P,L) = SHIFT(X,60-P).A. .N.MASK(60-L)                          DMPRLST       11     A     
 DMPRLST            ZP(X) = FIELD(X,32B,1)                                                 DMPRLST       12     A     
 DMPRLST            PRS(X) = FIELD(X,38,2)                                                 DMPRLST       13     A     
 DMPRLST            OC(X) = FIELD(X,48,10)                                                 DMPRLST       14     A     
 DMPRLST                                                                                   DMPRLST       15     A     
 DMPRLST            CTR(1) = CTR(1)+1                                                      DMPRLST       16     A     
 DMPRLST            IF( CTR(1) .LT. CTR(3) ) RETURN                                        DMPRLST       17     A     
 DMPRLST            IF( CTR(3) .GT. CTR(4) ) RETURN                                        DMPRLST       18     A     
 DMPRLST            CTR(3) = CTR(3)+CTR(5)                                                 DMPRLST       19     A     
 DMPRLST            CALL SETST( 1 , 8L            )                                        DMPRLST       20     A     
 DMPRLST            PRINT 1,(CTR(I),I=1,2),LOCF(TXT)                                       DMPRLST       21     A     
 DMPRLST   1        FORMAT(//*   CALL*I5* OF -IL- DUMP FROM -*A10*   FWA =*Z6              DMPRLST       22     A     
 DMPRLST       .    /13X,*LINK WORD   INDEX  DESCRIPTOR*)                                  DMPRLST       23     A     
 DMPRLST                                                                                   DMPRLST       24     A     
 DMPRLST            LINECM = LINECM(2)                                                     DMPRLST       25     A     
 DMPRLST            N = LTXT                                                               DMPRLST       26     A     
 DMPRLST            I = 1                                                                  DMPRLST       27     A     
 DMPRLST                                                                                   DMPRLST       28     A     
 DMPRLST   10       DESCR = TXT(I+2)                                                       DMPRLST       29     A     
 DMPRLST            PSB = STPR( PRS(DESCR)+1 )                                             DMPRLST       30     A     
 DMPRLST            ZPB = ZPT( ZP(DESCR) + 1 )                                             DMPRLST       31     A     
 DMPRLST                                                                                   DMPRLST       32     A     
 DMPRLST            LW = TXT(I+3)                                                          DMPRLST       33     A     
 DMPRLST            UB = FIELD(LW,36,24)                                                   DMPRLST       34     A     
 DMPRLST            MB = FIELD(LW,18,18)                                                   DMPRLST       35     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3547    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DMPRLST 
  
 DMPRLST            LW = FIELD(LW,0,18)                                                    DMPRLST       36     A     
 DMPRLST            J = I - 1                                                              DMPRLST       37     A     
 DMPRLST            UBD = FIELD(DESCR,18,42)                                               DMPRLST       38     A     
 DMPRLST            MBD = FIELD(DESCR,9,9)                                                 DMPRLST       39     A     
 DMPRLST            DESCR = FIELD(DESCR,0,9)                                               DMPRLST       40     A     
 DMPRLST            PRINT 11,UB,MB,LW,J,UBD,MBD,DESCR,ZPB,PSB                              DMPRLST       41     A     
 DMPRLST   11       FORMAT(2X,O8,2Z6,Z8,2X,O14,2Z3,R2,R3)                                  DMPRLST       42     A     
 DMPRLST            CALL PRNT RLI( TXT(I) )                                                DMPRLST       43     A     
 DMPRLST            I = I + 4                                                              DMPRLST       44     A     
 DMPRLST            IF( I .GT. N ) GO TO 50                                                DMPRLST       45     A     
 DMPRLST            IF( OC( TXT(I-4) ) .NE. 0 ) GO TO 10                                   DMPRLST       46     A     
 DMPRLST                                                                                   DMPRLST       47     A     
 DMPRLST  *         PRINT TRAILING ENTRIES IN OCTAL                                        DMPRLST       48     A     
 DMPRLST                                                                                   DMPRLST       49     A     
 DMPRLST            PRINT 21                                                               DMPRLST       50     A     
 DMPRLST   21       FORMAT(/*  -- TRAILER WORDS --*//)                                     DMPRLST       51     A     
 DMPRLST                                                                                   DMPRLST       52     A     
 DMPRLST   20       PRINT 22,TXT(I)                                                        DMPRLST       53     A     
 DMPRLST   22       FORMAT(10X,O20/)                                                       DMPRLST       54     A     
 DMPRLST            I = I + 1                                                              DMPRLST       55     A     
 DMPRLST            IF( I .LT. N ) GO TO 20                                                DMPRLST       56          I
          -FCC0392
 DMPRLST            IF( I .LE. N ) GO TO 20                                                FCC0392      143     A     
 DMPRLST                                                                                   DMPRLST       57     A     
 DMPRLST   50       LINECM = 0                                                             DMPRLST       58     A     
 DMPRLST            RETURN                                                                 DMPRLST       59     A     
 DMPRLST            END                                                                    DMPRLST       60     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DMPRLST 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DMPRLST                     60        59
          FCC0392                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DMPSIT  
  
 DMPSIT   *DECK     DMPSIT                                                                 DMPSIT         1     A     
 DMPSIT             SUBROUTINE DMP SIT( CTR , TREE , LTREE , TXT )                         DMPSIT         2     A     
 DMPSIT                                                                                    DMPSIT         3     A     
 DMPSIT   **        DMP SIT - PRINT SUCCESSOR INDEX TABLE ( BDT EXIT )                     DMPSIT         4     A     
 DMPSIT                                                                                    DMPSIT         5     A     
 DMPSIT             IMPLICIT INTEGER(A-Z)                                                  DMPSIT         6     A     
 DMPSIT             INTEGER TREE(LTREE),TXT(1),CTR(5),SUBTTL(6)                            DMPSIT         7     A     
 DMPSIT             COMMON/LINE/LINECM(2)                                                  DMPSIT         8     A     
 DMPSIT             DATA SUBTTL(1) /                                                       DMPSIT         9     A     
 DMPSIT        .  48L     LST    PRED  SUCC  T(S)  USES  N.PR  INST              /         DMPSIT        10     A     
 DMPSIT                                                                                    DMPSIT        11     A     
 DMPSIT             FIELD(X,P,L) = SHIFT(X,60-P).A. .N.MASK(60-L)                          DMPSIT        12     A     
 DMPSIT             PRED(X) = FIELD(X,36,18)                                               DMPSIT        13     A     
 DMPSIT             ULST(X) = FIELD(X,18,18)                                               DMPSIT        14     A     
 DMPSIT             SUCC(X) = FIELD(X,0,18)                                                DMPSIT        15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3548    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DMPSIT  
  
 DMPSIT                                                                                    DMPSIT        16     A     
 DMPSIT             USES(X) = FIELD(X,48,9)                                                DMPSIT        17     A     
 DMPSIT             LST(X) = FIELD(X,18,15)                                                DMPSIT        18     A     
 DMPSIT             NPRED(X) = FIELD(X,0,18)                                               DMPSIT        19     A     
 DMPSIT                                                                                    DMPSIT        20     A     
 DMPSIT             CTR = CTR + 1                                                          DMPSIT        21     A     
 DMPSIT             LN = FIELD(TXT,30,18)                                                  DMPSIT        22     A     
 DMPSIT             PRINT 5,CTR(1),LN                                                      DMPSIT        23     A     
 DMPSIT    5        FORMAT(//* CALL*I5* TO TREE DMP, LINE NUMBER =*I5)                     DMPSIT        24     A     
 DMPSIT             CALL SETST( 5 , SUBTTL )                                               DMPSIT        25     A     
 DMPSIT                                                                                    DMPSIT        26     A     
 DMPSIT             LINECM = LINECM(2)                                                     DMPSIT        27     A     
 DMPSIT             PLAST = -1                                                             DMPSIT        28     A     
 DMPSIT                                                                                    DMPSIT        29     A     
 DMPSIT             DO 30 J = 1,LTREE                                                      DMPSIT        30     A     
 DMPSIT             S = SUCC( TREE(J) )                                                    DMPSIT        31     A     
 DMPSIT             TS = ULST( TREE(J) )                                                   DMPSIT        32     A     
 DMPSIT             P = PRED( TREE(J) )                                                    DMPSIT        33     A     
 DMPSIT             IF( P .EQ. PLAST ) GO TO 20                                            DMPSIT        34     A     
 DMPSIT                                                                                    DMPSIT        35     A     
 DMPSIT             PLAST = P                                                              DMPSIT        36     A     
 DMPSIT             LW = TXT(P+4)                                                          DMPSIT        37     A     
 DMPSIT             RK = LST(LW)                                                           DMPSIT        38     A     
 DMPSIT             U = USES(LW)                                                           DMPSIT        39     A     
 DMPSIT             NP = NPRED(LW)                                                         DMPSIT        40     A     
 DMPSIT             PRINT 15,RK,P,S,TS,U,NP                                                DMPSIT        41     A     
 DMPSIT    15       FORMAT(I8,Z8,Z6,3I6,2X)                                                DMPSIT        42     A     
 DMPSIT             CALL PRNT RLI( TXT(P+1) )                                              DMPSIT        43     A     
 DMPSIT             GO TO 30                                                               DMPSIT        44     A     
 DMPSIT                                                                                    DMPSIT        45     A     
 DMPSIT    20       PRINT 25,S,TS                                                          DMPSIT        46     A     
 DMPSIT    25       FORMAT(16X,Z6,I6/)                                                     DMPSIT        47     A     
 DMPSIT                                                                                    DMPSIT        48     A     
 DMPSIT    30       CONTINUE                                                               DMPSIT        49     A     
 DMPSIT                                                                                    DMPSIT        50     A     
 DMPSIT             LINECM = 0                                                             DMPSIT        51     A     
 DMPSIT             RETURN                                                                 DMPSIT        52     A     
 DMPSIT             END                                                                    DMPSIT        53     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DMPSIT  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DMPSIT                      53        53
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DMPTREE 
  
 DMPTREE  *DECK     DMPTREE                                                                DMPTREE        1     A     
 DMPTREE            SUBROUTINE DMPTREE( CTR, TREE , LTREE , TXT )                          DMPTREE        2     A     
 DMPTREE                                                                                   DMPTREE        3     A     
 DMPTREE  **        DMP TREE - PRINT DEPENDENCY TREE ( BDT/CIP )                           DMPTREE        4     A     
 DMPTREE                                                                                   DMPTREE        5     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3549    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DMPTREE 
  
 DMPTREE            IMPLICIT INTEGER(A-Z)                                                  DMPTREE        6     A     
 DMPTREE            INTEGER TREE(LTREE),TXT(1),CTR(5),SUBTTL(6)                            DMPTREE        7     A     
 DMPTREE            COMMON/LINE/LINECM(2)                                                  DMPTREE        8     A     
 DMPTREE            COMMON/MCG/XX(2),SEQTIME                                               DMPTREE        9     A     
 DMPTREE            DATA SUBTTL(1) /                                                       DMPTREE       10     A     
 DMPTREE       .  58L     LST    TIME    SUCC  PRED  USES  N.PR  INST            /         DMPTREE       11     A     
 DMPTREE                                                                                   DMPTREE       12     A     
 DMPTREE            FIELD(X,P,L) = SHIFT(X,60-P).A. .N.MASK(60-L)                          DMPTREE       13     A     
 DMPTREE            SUCCO(X) = FIELD(X,24,18)                                              DMPTREE       14     A     
 DMPTREE            SUCC(X) = FIELD(X,26,16)+1                                             DMPTREE       15     A     
 DMPTREE            PRED(X) = FIELD(X,2,16)+1                                              DMPTREE       16     A     
 DMPTREE                                                                                   DMPTREE       17     A     
 DMPTREE            USES(X) = FIELD(X,48,9)                                                DMPTREE       18     A     
 DMPTREE            LST(X) = FIELD(X,18,15)                                                DMPTREE       19     A     
 DMPTREE            NPRED(X) = FIELD(X,0,18)                                               DMPTREE       20     A     
 DMPTREE                                                                                   DMPTREE       21     A     
 DMPTREE            CTR(1) = CTR(1) + 1                                                    DMPTREE       22     A     
 DMPTREE            LN = FIELD(TXT,30,18)                                                  DMPTREE       23     A     
 DMPTREE            PRINT 5,CTR(1),LN                                                      DMPTREE       24     A     
 DMPTREE   5        FORMAT(//*  CALL*I5* TO TREE DMP,LINE NUMBER = *I5)                    DMPTREE       25     A     
 DMPTREE            CALL SETST( 6 , SUBTTL )                                               DMPTREE       26     A     
 DMPTREE            LINECM = LINECM(2)                                                     DMPTREE       27     A     
 DMPTREE                                                                                   DMPTREE       28     A     
 DMPTREE            SLAST = 0                                                              DMPTREE       29     A     
 DMPTREE            DO 30 J = 1,LTREE                                                      DMPTREE       30     A     
 DMPTREE            S = SUCC( TREE(J) )                                                    DMPTREE       31     A     
 DMPTREE            P = PRED( TREE(J) )                                                    DMPTREE       32     A     
 DMPTREE            IF( S .EQ. SLAST ) GO TO 20                                            DMPTREE       33     A     
 DMPTREE                                                                                   DMPTREE       34     A     
 DMPTREE            SLAST = S                                                              DMPTREE       35     A     
 DMPTREE            SO = SUCCO( TREE(J) )                                                  DMPTREE       36     A     
 DMPTREE            LW = TXT( SO + 4 )                                                     DMPTREE       37     A     
 DMPTREE            RK = LST(LW)                                                           DMPTREE       38     A     
 DMPTREE            PR = SEQTIME - RK                                                      DMPTREE       39     A     
 DMPTREE            U = USES(LW)                                                           DMPTREE       40     A     
 DMPTREE            NP = NPRED(LW)                                                         DMPTREE       41     A     
 DMPTREE            PRINT 15,RK,PR,S,P,U,NP                                                DMPTREE       42     A     
 DMPTREE   15       FORMAT(3I8,3I6,2X)                                                     DMPTREE       43     A     
 DMPTREE            CALL PRNT RLI( TXT( SO + 1 ) )                                         DMPTREE       44     A     
 DMPTREE            GO TO 30                                                               DMPTREE       45     A     
 DMPTREE                                                                                   DMPTREE       46     A     
 DMPTREE   20       PRINT 25,P                                                             DMPTREE       47     A     
 DMPTREE   25       FORMAT(24X,I6/)                                                        DMPTREE       48     A     
 DMPTREE                                                                                   DMPTREE       49     A     
 DMPTREE   30       CONTINUE                                                               DMPTREE       50     A     
 DMPTREE                                                                                   DMPTREE       51     A     
 DMPTREE            LINECM = 0                                                             DMPTREE       52     A     
 DMPTREE            RETURN                                                                 DMPTREE       53     A     
 DMPTREE            END                                                                    DMPTREE       54     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3550    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DMPTREE 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DMPTREE                     54        54
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DMPUDI  
  
 DMPUDI   *DECK     DMPUDI                                                                 DMPUDI         1     A     
 DMPUDI             SUBROUTINE DMPUDI( UDI , N )                                           DMPUDI         2     A     
 DMPUDI                                                                                    DMPUDI         3     A     
 DMPUDI   **        DMPUDI - PRINT ENTRIES IN *UDI* BEFORE THEY ARE REFORMATTED            DMPUDI         4     A     
 DMPUDI                                                                                    DMPUDI         5     A     
 DMPUDI             IMPLICIT INTEGER(A-Z)                                                  DMPUDI         6     A     
 DMPUDI             INTEGER UDI(N)                                                         DMPUDI         7     A     
 DMPUDI             COMMON/LINE/LINECM(2)                                                  DMPUDI         8     A     
 DMPUDI             INTEGER Z(1)                                                           DMPUDI         9     A     
 DMPUDI                                                                                    DMPUDI        10     A     
 DMPUDI             FIELD(X,P,L) = SHIFT(X,60-P) .A. .N.MASK(60-L)                         DMPUDI        11     A     
 DMPUDI             IH(X) = FIELD(X,0,18)                                                  DMPUDI        12     A     
 DMPUDI             CA(X) = FIELD(X,18,18)                                                 DMPUDI        13     A     
 DMPUDI             CR(X) = FIELD(X,54,1)                                                  DMPUDI        14     A     
 DMPUDI             SYM(X) = LOC( LOC(12B) - 2*X )                                         DMPUDI        15     A     
 DMPUDI             LOC(X) = Z(X+1-Z)                                                      DMPUDI        16     A     
 DMPUDI                                                                                    DMPUDI        17     A     
 DMPUDI             DATA NN / 0 /                                                          DMPUDI        18     A     
 DMPUDI                                                                                    DMPUDI        19     A     
 DMPUDI             Z = LOCF(Z)                                                            DMPUDI        20     A     
 DMPUDI                                                                                    DMPUDI        21     A     
 DMPUDI             PRINT 1                                                                DMPUDI        22     A     
 DMPUDI    1        FORMAT(///*  -- UDI SYMBOL DICTIONARY --*//)                           DMPUDI        23     A     
 DMPUDI    3        FORMAT(I6,4X)                                                          DMPUDI        24     A     
 DMPUDI    2        FORMAT(/)                                                              DMPUDI        25     A     
 DMPUDI    4        FORMAT(4X,Z6,2X,A7)                                                    DMPUDI        26     A     
 DMPUDI    5        FORMAT(12H   -CLASS-   ,A7)                                            DMPUDI        27     A     
 DMPUDI                                                                                    DMPUDI        28     A     
 DMPUDI             LINECM = LINECM(2)                                                     DMPUDI        29     A     
 DMPUDI             K = (N-2)/4                                                            DMPUDI        30     A     
 DMPUDI             I = 3                                                                  DMPUDI        31     A     
 DMPUDI                                                                                    DMPUDI        32     A     
 DMPUDI    10       J = I - 1                                                              DMPUDI        33     A     
 DMPUDI             PRINT 3, J                                                             DMPUDI        34     A     
 DMPUDI             J = MIN0( N , I+2 )                                                    DMPUDI        35     A     
 DMPUDI                                                                                    DMPUDI        36     A     
 DMPUDI             DO 20 K = I,J                                                          DMPUDI        37     A     
 DMPUDI             IHV = SYM( IH( UDI(K) ) )                                              DMPUDI        38     A     
 DMPUDI             CAV = CA( UDI(K) )                                                     DMPUDI        39     A     
 DMPUDI             IF( CR( UDI(K) ) .NE. 0 ) GO TO 15                                     DMPUDI        40     A     
 DMPUDI             IF( SHIFT(CAV,42) .LT. 0 ) CAV = CAV .O. MASK(42)                      DMPUDI        41     A     
 DMPUDI             PRINT 4,CAV,IHV                                                        DMPUDI        42     A     
 DMPUDI             GO TO 20                                                               DMPUDI        43     A     
 DMPUDI    15       PRINT 5,IHV                                                            DMPUDI        44     A     
 DMPUDI    20       CONTINUE                                                               DMPUDI        45     A     
 DMPUDI             PRINT 2                                                                DMPUDI        46     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3551    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DMPUDI  
  
 DMPUDI                                                                                    DMPUDI        47     A     
 DMPUDI             I = I + 3                                                              DMPUDI        48     A     
 DMPUDI             IF( I .LE. N ) GO TO 10                                                DMPUDI        49     A     
 DMPUDI                                                                                    DMPUDI        50     A     
 DMPUDI             IF( NN .NE. 0 ) RETURN                                                 DMPUDI        51     A     
 DMPUDI                                                                                    DMPUDI        52     A     
 DMPUDI   *         PRINT THE NAMES IN THE SYMBOL TABLE, 8 NAMES PER LINE                  DMPUDI        53     A     
 DMPUDI                                                                                    DMPUDI        54     A     
 DMPUDI             PRINT 25                                                               DMPUDI        55     A     
 DMPUDI    25       FORMAT(///*  -- SYMBOL TABLE NAMES --*//)                              DMPUDI        56     A     
 DMPUDI             I = LOC(12B)-2                                                         DMPUDI        57     A     
 DMPUDI             NN = LOC(13B)                                                          DMPUDI        58     A     
 DMPUDI             J = 1                                                                  DMPUDI        59     A     
 DMPUDI                                                                                    DMPUDI        60     A     
 DMPUDI    30       PRINT 31,J                                                             DMPUDI        61     A     
 DMPUDI    31       FORMAT(Z6)                                                             DMPUDI        62     A     
 DMPUDI             K = MAX0( I-16 , NN )                                                  DMPUDI        63     A     
 DMPUDI                                                                                    DMPUDI        64     A     
 DMPUDI    40       IHV = LOC(I) .A. MASK(42)                                              DMPUDI        65     A     
 DMPUDI             IF( FIELD(IHV,18,6) .EQ. 0 ) IHV = IHV .O.4R                           DMPUDI        66     A     
 DMPUDI             PRINT 41,IHV                                                           DMPUDI        67     A     
 DMPUDI    41       FORMAT(2X,A7)                                                          DMPUDI        68     A     
 DMPUDI             I = I - 2                                                              DMPUDI        69     A     
 DMPUDI             IF( I .GT. K ) GO TO 40                                                DMPUDI        70     A     
 DMPUDI                                                                                    DMPUDI        71     A     
 DMPUDI             PRINT 2                                                                DMPUDI        72     A     
 DMPUDI             J = J + 8                                                              DMPUDI        73     A     
 DMPUDI             IF( I .GT. NN ) GO TO 30                                               DMPUDI        74     A     
 DMPUDI                                                                                    DMPUDI        75     A     
 DMPUDI             LINECM = 0                                                             DMPUDI        76     A     
 DMPUDI             RETURN                                                                 DMPUDI        77     A     
 DMPUDI                                                                                    DMPUDI        78     A     
 DMPUDI             END                                                                    DMPUDI        79     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DMPUDI  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DMPUDI                      79        79
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTGRA 
  
 PRNTGRA  *DECK     PRNTGRA                                                                PRNTGRA        1     A     
 PRNTGRA            SUBROUTINE PRNT GRA( NAME , RCT , LEN , INDX )                         PRNTGRA        2     A     
 PRNTGRA            IMPLICIT INTEGER(A-Z)                                                  PRNTGRA        3     A     
 PRNTGRA                                                                                   PRNTGRA        4     A     
 PRNTGRA  *         PRNT GRA - PRINT OUT TABLES USED BY *GRA*                              PRNTGRA        5     A     
 PRNTGRA                                                                                   PRNTGRA        6     A     
 PRNTGRA            INTEGER RCT(LEN) , BVAL(17) , RCTTTL(6) , Z(1)                         PRNTGRA        7     A     
 PRNTGRA            COMMON/RCTFMT/BNAM(16) /LINE/LINECM(2)                                 PRNTGRA        8     A     
 PRNTGRA            COMMON/TABLES/ DUM(100B) , RAT(24),RVT(24) , IAI,TRA                   PRNTGRA        9     A     
 PRNTGRA            COMMON/TABLES/ ERC(3) , NVC,TUD , ABR,NAB,NTA,TRD ,                    PRNTGRA       10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3552    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTGRA 
  
 PRNTGRA       1           NXC,XCT(5),MLW,NLD(2) , MAA,NAA,ACT(8) , MFA(10) , SUPS         PRNTGRA       11     A     
 PRNTGRA       2  , NXS,MRU,NPS,PST(13)                                                    PRNTGRA       12     A     
 PRNTGRA                                                                                   PRNTGRA       13     A     
 PRNTGRA            COMMON/GPOGRA/ OMIT(12B) , MXPITL,EMF,ITL,MRA,NHB,XRF ,                PRNTGRA       14          I
          -FCC0985
 PRNTGRA            COMMON/GPOGRA/OMIT(10) , MXPITL,EMF,ITL,MRA,LGL,NHB,XRF ,              FCC0985       65     A     
 PRNTGRA       1    LCV(2),LUL(2),LIH,LR2W,NLJ,LTT,OENL,NENL,EPSI,MAXW,NEBB,               PRNTGRA       15     A     
 PRNTGRA       2           PITL,LBN,STP                                                    PRNTGRA       16          I
          -FCC0675
 PRNTGRA       2           PITL,STP                                                        FCC0675      258     A     
 PRNTGRA                                                                                   PRNTGRA       17     A     
 PRNTGRA            DATA RCTTTL / 58L RCT  RF     CA  IH     H2    REG1,2,IT PFT A         PRNTGRA       18     A     
 PRNTGRA       .PF NOC USE             /                                                   PRNTGRA       19     A     
 PRNTGRA                                                                                   PRNTGRA       20     A     
 PRNTGRA            LOC(X) = Z(X+Z)                                                        PRNTGRA       21     A     
 PRNTGRA            SYM(I) = LOC( LOC(12B) - 2*I )                                         PRNTGRA       22     A     
 PRNTGRA            FIELD(X,P,L) = .N.MASK(60-L).A.SHIFT(X,60-P)                           PRNTGRA       23     A     
 PRNTGRA  *                                  CAW                                           PRNTGRA       24     A     
 PRNTGRA            PRFT(X) = FIELD(X,44,3)                                                PRNTGRA       25     A     
 PRNTGRA            APLN(X) = FIELD(X,42,2)                                                PRNTGRA       26     A     
 PRNTGRA            NOCC(X) = FIELD(X,33,9)                                                PRNTGRA       27     A     
 PRNTGRA            SUSE(X) = FIELD(X,24,9)                                                PRNTGRA       28     A     
 PRNTGRA            UDI(X) = FIELD(X,0,18)                                                 PRNTGRA       29     A     
 PRNTGRA  *                                  C2W                                           PRNTGRA       30     A     
 PRNTGRA            MSK(X) = FIELD(X,59,1)                                                 PRNTGRA       31     A     
 PRNTGRA            RF(X)  = FIELD(X,36,18)                                                PRNTGRA       32     A     
 PRNTGRA            CA(X)  = FIELD(X,18,18)                                                PRNTGRA       33     A     
 PRNTGRA            IH(X)  = FIELD(X,0,18)                                                 PRNTGRA       34          I
          -FCC0882
 PRNTGRA            IH(X)  = FIELD(X,0,12)                                                 FCC0882       17     A     
 PRNTGRA  *                                  CCW                                           PRNTGRA       35     A     
 PRNTGRA            INCB(X) = FIELD(X,57,3)                                                PRNTGRA       36     A     
 PRNTGRA            INCP(X) = FIELD(X,36,18)                                               PRNTGRA       37     A     
 PRNTGRA            H2(X) = FIELD(X,18,18)                                                 PRNTGRA       38     A     
 PRNTGRA            REG2(X) = FIELD(X,12,6)                                                PRNTGRA       39     A     
 PRNTGRA            MIT(X) = FIELD(X,6,6)                                                  PRNTGRA       40     A     
 PRNTGRA            REG1(X) = FIELD(X,0,6)                                                 PRNTGRA       41     A     
 PRNTGRA  *                                  RAT                                           PRNTGRA       42     A     
 PRNTGRA            INV(X) = FIELD(X,59,1)                                                 PRNTGRA       43     A     
 PRNTGRA            R3(X) = FIELD(X,36,18)                                                 PRNTGRA       44     A     
 PRNTGRA            R2(X) = FIELD(X,18,18)                                                 PRNTGRA       45     A     
 PRNTGRA            R1(X) = FIELD(X,0,18)                                                  PRNTGRA       46     A     
 PRNTGRA                                                                                   PRNTGRA       47     A     
 PRNTGRA            Z = 1-LOCF(Z)                                                          PRNTGRA       48     A     
 PRNTGRA            INDXL = INDX                                                           PRNTGRA       49     A     
 PRNTGRA            PRINT 1,NAME                                                           PRNTGRA       50     A     
 PRNTGRA   1        FORMAT(/*   PRNTGRA CALL FROM -*A10)                                   PRNTGRA       51     A     
 PRNTGRA   2        FORMAT(/)                                                              PRNTGRA       52     A     
 PRNTGRA   3        FORMAT(6X)                                                             PRNTGRA       53     A     
 PRNTGRA   4        FORMAT(I4*U *)                                                         PRNTGRA       54     A     
 PRNTGRA            IF( RCT(1) .EQ. 0 ) GO TO 10                                           PRNTGRA       55     A     
 PRNTGRA                                                                                   PRNTGRA       56     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3553    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTGRA 
  
 PRNTGRA            CALL REMARK( 18L -- RCT ERROR -                )                       PRNTGRA       57     A     
 PRNTGRA            PRINT 6,RCT(1)                                                         PRNTGRA       58     A     
 PRNTGRA   6        FORMAT(//* ---- ERROR, RCT(0) = *O20* ----*//)                         PRNTGRA       59     A     
 PRNTGRA                                                                                   PRNTGRA       60     A     
 PRNTGRA   10       INDXL = SHIFT(INDXL,6)                                                 PRNTGRA       61     A     
 PRNTGRA            I = INDXL .A. 77B                                                      PRNTGRA       62     A     
 PRNTGRA            LINECM = 0                                                             PRNTGRA       63     A     
 PRNTGRA            IF( I .EQ. 0 ) RETURN                                                  PRNTGRA       64     A     
 PRNTGRA                                                                                   PRNTGRA       65     A     
 PRNTGRA  *               RCT   RAT    RVT   SEE   MTA   DXA   DAA   MFA   SUP             PRNTGRA       66     A     
 PRNTGRA            GO TO ( 20 , 100 , 140 , 160 , 180 , 200 , 220 , 240 , 260 ,           PRNTGRA       67     A     
 PRNTGRA       1                       280 ) , I                                           PRNTGRA       68     A     
 PRNTGRA                                                                                   PRNTGRA       69     A     
 PRNTGRA  *         PRINT CONTENTS OF *RCT*                                                PRNTGRA       70     A     
 PRNTGRA                                                                                   PRNTGRA       71     A     
 PRNTGRA   20       PRINT 2                                                                PRNTGRA       72     A     
 PRNTGRA            CALL SETST( 6 , RCTTTL )                                               PRNTGRA       73     A     
 PRNTGRA            LINECM = LINECM(2)                                                     PRNTGRA       74     A     
 PRNTGRA                                                                                   PRNTGRA       75     A     
 PRNTGRA            RCT(1) = MASK(42)                                                      PRNTGRA       76     A     
 PRNTGRA            DO 50 J = 1,LEN,3                                                      PRNTGRA       77     A     
 PRNTGRA            CAW = RCT(J)                                                           PRNTGRA       78     A     
 PRNTGRA            C2W = RCT(J+1)                                                         PRNTGRA       79     A     
 PRNTGRA            CCW = RCT(J+2)                                                         PRNTGRA       80     A     
 PRNTGRA            IHV = IH(C2W)                                                          PRNTGRA       81     A     
 PRNTGRA            IF( IHV .EQ. 0 ) GO TO 23                                              PRNTGRA       82     A     
 PRNTGRA            SYV = SYM(IHV)                                                         PRNTGRA       83     A     
 PRNTGRA            GO TO 24                                                               PRNTGRA       84     A     
 PRNTGRA   23       SYV = 7L                                                               PRNTGRA       85     A     
 PRNTGRA            IF( MSK(C2W) .EQ. 0 ) GO TO 24                                         PRNTGRA       86     A     
 PRNTGRA            SYV = 7L -MSK-                                                         PRNTGRA       87     A     
 PRNTGRA                                                                                   PRNTGRA       88     A     
 PRNTGRA   24       PRINT 21, J-1 , RF(C2W),CA(C2W),SYV                                    PRNTGRA       89     A     
 PRNTGRA   21       FORMAT(1X,I3,I4,Z7,1X,A7)                                              PRNTGRA       90     A     
 PRNTGRA                                                                                   PRNTGRA       91     A     
 PRNTGRA            SYV = 7L                                                               PRNTGRA       92     A     
 PRNTGRA            IHV = H2(CCW)                                                          PRNTGRA       93     A     
 PRNTGRA            IF( IHV .NE. 0 ) SYV = SYM( IHV )                                      PRNTGRA       94     A     
 PRNTGRA                                                                                   PRNTGRA       95     A     
 PRNTGRA            PRINT 25,SYV,REG1(CCW),REG2(CCW),MIT(CCW)                              PRNTGRA       96     A     
 PRNTGRA   25       FORMAT(1X,A7,Z3,Z2,Z3)                                                 PRNTGRA       97     A     
 PRNTGRA            PRINT 26,PRFT(CAW),APLN(CAW),NOCC(CAW),SUSE(CAW)                       PRNTGRA       98     A     
 PRNTGRA   26       FORMAT(4I4)                                                            PRNTGRA       99     A     
 PRNTGRA                                                                                   PRNTGRA      100     A     
 PRNTGRA            IF( INCP(CCW) .EQ. 0 ) GO TO 40                                        PRNTGRA      101     A     
 PRNTGRA            PRINT 27,INCB(CCW),INCP(CCW)                                           PRNTGRA      102     A     
 PRNTGRA   27       FORMAT(Z2,I4)                                                          PRNTGRA      103     A     
 PRNTGRA            GO TO 41                                                               PRNTGRA      104     A     
 PRNTGRA                                                                                   PRNTGRA      105     A     
 PRNTGRA   40       PRINT 3                                                                PRNTGRA      106     A     
 PRNTGRA                                                                                   PRNTGRA      107     A     
 PRNTGRA   41       U = UDI(CAW)/2                                                         PRNTGRA      108     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3554    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTGRA 
  
 PRNTGRA            IF( U.NE. 0 ) GO TO 28                                                 PRNTGRA      109     A     
 PRNTGRA            PRINT 3                                                                PRNTGRA      110     A     
 PRNTGRA            GO TO 29                                                               PRNTGRA      111     A     
 PRNTGRA   28       PRINT 4,U                                                              PRNTGRA      112     A     
 PRNTGRA                                                                                   PRNTGRA      113     A     
 PRNTGRA  *         COLLECT BIT VALUES AND PRINT THEM                                      PRNTGRA      114     A     
 PRNTGRA                                                                                   PRNTGRA      115     A     
 PRNTGRA   29       DO 30 I = 1,17                                                         PRNTGRA      116     A     
 PRNTGRA            BVAL(I) = 5R                                                           PRNTGRA      117     A     
 PRNTGRA            IF( (SHIFT(CAW,BNAM(I)).A.1) .EQ. 0 ) GO TO 30                         PRNTGRA      118     A     
 PRNTGRA            BVAL(I) = SHIFT( MASK(42).A.BNAM(I) , -18 )                            PRNTGRA      119     A     
 PRNTGRA   30       CONTINUE                                                               PRNTGRA      120     A     
 PRNTGRA                                                                                   PRNTGRA      121     A     
 PRNTGRA            PRINT 31,BVAL                                                          PRNTGRA      122     A     
 PRNTGRA   31       FORMAT(3R3,2(R4,3R3),3R4,2R3,R4/)                                      PRNTGRA      123     A     
 PRNTGRA                                                                                   PRNTGRA      124     A     
 PRNTGRA   50       CONTINUE                                                               PRNTGRA      125     A     
 PRNTGRA                                                                                   PRNTGRA      126     A     
 PRNTGRA            RCT(1) = 0                                                             PRNTGRA      127     A     
 PRNTGRA            CALL SETST( 0 )                                                        PRNTGRA      128     A     
 PRNTGRA            GO TO 10                                                               PRNTGRA      129     A     
 PRNTGRA                                                                                   PRNTGRA      130     A     
 PRNTGRA  *         PRINT NON-ZERO LOCATIONS IN *RAT*                                      PRNTGRA      131     A     
 PRNTGRA                                                                                   PRNTGRA      132     A     
 PRNTGRA   100      PRINT 101                                                              PRNTGRA      133     A     
 PRNTGRA   101      FORMAT(/* REGNO INV  R1  R2  R3*)                                      PRNTGRA      134     A     
 PRNTGRA                                                                                   PRNTGRA      135     A     
 PRNTGRA            DO 110 I = 1,24                                                        PRNTGRA      136     A     
 PRNTGRA            IF( RAT(I) .EQ. 0 ) GO TO 110                                          PRNTGRA      137     A     
 PRNTGRA            R = RAT(I)                                                             PRNTGRA      138     A     
 PRNTGRA            PRINT 105,I-1,INV(R),R1(R),R2(R),R3(R)                                 PRNTGRA      139     A     
 PRNTGRA   105      FORMAT(Z6,Z4,3I4)                                                      PRNTGRA      140     A     
 PRNTGRA                                                                                   PRNTGRA      141     A     
 PRNTGRA   110      CONTINUE                                                               PRNTGRA      142     A     
 PRNTGRA            GO TO 10                                                               PRNTGRA      143     A     
 PRNTGRA                                                                                   PRNTGRA      144     A     
 PRNTGRA  *         PRINT CONTENTS OF *RVT*                                                PRNTGRA      145     A     
 PRNTGRA                                                                                   PRNTGRA      146     A     
 PRNTGRA   140      PRINT 141,(RVT(I),I = 2,24)                                            PRNTGRA      147     A     
 PRNTGRA   141      FORMAT(* RVT -*23Z5)                                                   PRNTGRA      148     A     
 PRNTGRA            GO TO 10                                                               PRNTGRA      149     A     
 PRNTGRA                                                                                   PRNTGRA      150     A     
 PRNTGRA                                                                                   PRNTGRA      151     A     
 PRNTGRA  *                                          SEE                                   PRNTGRA      152     A     
 PRNTGRA   160      XRFLG = XRF                                                            PRNTGRA      153     A     
 PRNTGRA            IF( XRF .LT. 0 ) XRFLG = -1                                            PRNTGRA      154     A     
 PRNTGRA            IF( STP .NE. 0 ) STP = 1                                               PRNTGRA      155     A     
 PRNTGRA            NLJJ = NLJ .A. 77777B                                                  PRNTGRA      156     A     
 PRNTGRA            PRINT 161,MRA,NHB,XRFLG,NENL,EPSI,MAXW,NEBB,NVC,STP,NLJJ,LTT,          PRNTGRA      157     A     
 PRNTGRA       1           TUD,LCV(1),LUL(1)                                               PRNTGRA      158     A     
 PRNTGRA   161      FORMAT(/* SEE - MRA N.HB  XRF N.XN  EPSI MAXW N.EB N.VC  STP N         PRNTGRA      159     A     
 PRNTGRA       1.LJ  LTT  TUD*/Z10,3I5,Z6,7I5/*  LCV,LUL =*2O22)                           PRNTGRA      160     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3555    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTGRA 
  
 PRNTGRA            GO TO 10                                                               PRNTGRA      161     A     
 PRNTGRA                                                                                   PRNTGRA      162     A     
 PRNTGRA  *                                          MTA                                   PRNTGRA      163     A     
 PRNTGRA   180      PRINT 181,TRD,ABR                                                      PRNTGRA      164     A     
 PRNTGRA   181      FORMAT(/* MTA - TRD,ABR =*I3,2X,Z3)                                    PRNTGRA      165     A     
 PRNTGRA            GO TO 10                                                               PRNTGRA      166     A     
 PRNTGRA                                                                                   PRNTGRA      167     A     
 PRNTGRA  *                                          DXA                                   PRNTGRA      168     A     
 PRNTGRA   200      PRINT 201,MLW,NLD,NXC,XCT                                              PRNTGRA      169     A     
 PRNTGRA   201      FORMAT(/* DXA - MLW N.LD N.ST  NXC  -XCT-*/I10,9I5)                    PRNTGRA      170     A     
 PRNTGRA            GO TO 10                                                               PRNTGRA      171     A     
 PRNTGRA                                                                                   PRNTGRA      172     A     
 PRNTGRA  *                                          DAA                                   PRNTGRA      173     A     
 PRNTGRA   220      IF( NAA .EQ. 0 ) GO TO 10                                              PRNTGRA      174     A     
 PRNTGRA            LINECM = LINECM(2)                                                     PRNTGRA      175     A     
 PRNTGRA            PRINT 221,MAA,NAA                                                      PRNTGRA      176     A     
 PRNTGRA   221      FORMAT(/* DAA - MAX,N.AA = *2I3/*  A-CANIDATES, INC,ORD -*)            PRNTGRA      177     A     
 PRNTGRA                                                                                   PRNTGRA      178     A     
 PRNTGRA            DO 230 I = 1,NAA                                                       PRNTGRA      179     A     
 PRNTGRA            X = ACT(I)                                                             PRNTGRA      180     A     
 PRNTGRA            PRINT 223,FIELD(X,57,3),FIELD(X,36,18),FIELD(X,0,18)                   PRNTGRA      181     A     
 PRNTGRA   223      FORMAT(Z6,I3* X*Z1)                                                    PRNTGRA      182     A     
 PRNTGRA   230      CONTINUE                                                               PRNTGRA      183     A     
 PRNTGRA            PRINT 2                                                                PRNTGRA      184     A     
 PRNTGRA            GO TO 10                                                               PRNTGRA      185     A     
 PRNTGRA                                                                                   PRNTGRA      186     A     
 PRNTGRA  *                                          MFA                                   PRNTGRA      187     A     
 PRNTGRA   240      GO TO 10                                                               PRNTGRA      188     A     
 PRNTGRA                                                                                   PRNTGRA      189     A     
 PRNTGRA  *                                          SUP                                   PRNTGRA      190     A     
 PRNTGRA   260      IF( NPS .EQ. 0 ) GO TO 10                                              PRNTGRA      191     A     
 PRNTGRA            PRINT 261                                                              PRNTGRA      192     A     
 PRNTGRA   261      FORMAT(* POST STORES, REG RCT ORD*/)                                   PRNTGRA      193     A     
 PRNTGRA                                                                                   PRNTGRA      194     A     
 PRNTGRA            LINECM = LINECM(2)                                                     PRNTGRA      195     A     
 PRNTGRA            DO 270 I = 1,NPS                                                       PRNTGRA      196     A     
 PRNTGRA            X = PST(I)                                                             PRNTGRA      197     A     
 PRNTGRA            PRINT 262,FIELD(X,18,18),FIELD(X,0,18)                                 PRNTGRA      198     A     
 PRNTGRA   262      FORMAT(Z5,I4)                                                          PRNTGRA      199     A     
 PRNTGRA   270      CONTINUE                                                               PRNTGRA      200     A     
 PRNTGRA            PRINT 2                                                                PRNTGRA      201     A     
 PRNTGRA            GO TO 10                                                               PRNTGRA      202     A     
 PRNTGRA                                                                                   PRNTGRA      203     A     
 PRNTGRA  *                                          SXC                                   PRNTGRA      204     A     
 PRNTGRA   280      GO TO 10                                                               PRNTGRA      205     A     
 PRNTGRA                                                                                   PRNTGRA      206     A     
 PRNTGRA            END                                                                    PRNTGRA      207     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PRNTGRA 
  
          IDENTIFIER               TOTAL    ACTIVE
  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3556    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTGRA 
  
          PRNTGRA                    207       204
          FCC0675                      1         1
          FCC0882                      1         1
          FCC0985                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTMIO 
  
 PRNTMIO  *DECK     PRNTMIO                                                                PRNTMIO        1     A     
 PRNTMIO        SUBROUTINE PRNTMIO(LAB,INDX,OBIT,LBIT,OBST,LBST,OBLK,LBLK,RL,MPW)          PRNTMIO        2     A     
 PRNTMIO        IMPLICIT INTEGER (A-Z)                                                     PRNTMIO        3     A     
 PRNTMIO        DIMENSION OBLK(LBLK),OBIT(LBIT),OBST(LBST),CTR(5)                          PRNTMIO        4     A     
 PRNTMIO        COMMON/LINE/LINECM(2)                                                      PRNTMIO        5     A     
 PRNTMIO        DATA BLANK/10H          /,TEST/0/                                          PRNTMIO        6     A     
 PRNTMIO        DATA NRL/1/                                                                PRNTMIO        7     A     
 PRNTMIO                                                                                   PRNTMIO        8     A     
 PRNTMIO  *         FIELD DEFINITIONS                                                      PRNTMIO        9     A     
 PRNTMIO                                                                                   PRNTMIO       10     A     
 PRNTMIO        FIELD(X,P,L) = SHIFT(X,60-P).A. .N. MASK(60-L)                             PRNTMIO       11     A     
 PRNTMIO                                                                                   PRNTMIO       12     A     
 PRNTMIO  *         RANDOM INDEX WORD                                                      PRNTMIO       13     A     
 PRNTMIO                                                                                   PRNTMIO       14     A     
 PRNTMIO        RIC(X) = FIELD(X,59,1)                                                     PRNTMIO       15     A     
 PRNTMIO        RAT(X) = FIELD(X,58,1)                                                     PRNTMIO       16     A     
 PRNTMIO        ROFS(X) = FIELD(X,30,9)                                                    PRNTMIO       17     A     
 PRNTMIO        RLEN(X) = FIELD(X,39,18)                                                   PRNTMIO       18     A     
 PRNTMIO        RRA(X) = FIELD(X,0,30)                                                     PRNTMIO       19     A     
 PRNTMIO        RFWA(X) = FIELD(X,18,18)                                                   PRNTMIO       20     A     
 PRNTMIO        RLCM(X) = FIELD(X,0,18)                                                    PRNTMIO       21     A     
 PRNTMIO                                                                                   PRNTMIO       22     A     
 PRNTMIO  *         BLOCK ADDRESS WORD                                                     PRNTMIO       23     A     
 PRNTMIO                                                                                   PRNTMIO       24     A     
 PRNTMIO        ABLK(X) = FIELD(X,59,1)                                                    PRNTMIO       25     A     
 PRNTMIO        APRI(X) = FIELD(X,58,1)                                                    PRNTMIO       26     A     
 PRNTMIO        AHB(X) = FIELD(X,57,1)                                                     PRNTMIO       27     A     
 PRNTMIO        AFW(X) = FIELD(X,56,1)                                                     PRNTMIO       28     A     
 PRNTMIO        ABI(X) = FIELD(X,36,18)                                                    PRNTMIO       29     A     
 PRNTMIO        ALEN(X) = FIELD(X,18,18)                                                   PRNTMIO       30     A     
 PRNTMIO        AFWA(X) = FIELD(X,0,18)                                                    PRNTMIO       31     A     
 PRNTMIO                                                                                   PRNTMIO       32     A     
 PRNTMIO  *         BLOCK HEADER WORD                                                      PRNTMIO       33     A     
 PRNTMIO                                                                                   PRNTMIO       34     A     
 PRNTMIO        HAV(X) = FIELD(X,59,1)                                                     PRNTMIO       35     A     
 PRNTMIO        HPRI(X) = FIELD(X,58,1)                                                    PRNTMIO       36     A     
 PRNTMIO        HHB(X) = FIELD(X,57,1)                                                     PRNTMIO       37     A     
 PRNTMIO        HFW(X) = FIELD(X,56,1)                                                     PRNTMIO       38     A     
 PRNTMIO        HBI(X) = FIELD(X,36,18)                                                    PRNTMIO       39     A     
 PRNTMIO        HBST(X) = FIELD(X,18,18)                                                   PRNTMIO       40     A     
 PRNTMIO        HLEN(X) = FIELD(X,0,18)                                                    PRNTMIO       41     A     
 PRNTMIO                                                                                   PRNTMIO       42     A     
 PRNTMIO  *         BLOCK TRAILER WORD                                                     PRNTMIO       43     A     
 PRNTMIO                                                                                   PRNTMIO       44     A     
 PRNTMIO        TAV(X) = FIELD(X,59,1)                                                     PRNTMIO       45     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3557    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTMIO 
  
 PRNTMIO        TLKF(X) = FIELD(X,18,18)                                                   PRNTMIO       46     A     
 PRNTMIO        TLKB(X) = FIELD(X,36,18)                                                   PRNTMIO       47     A     
 PRNTMIO        TLEN(X) = FIELD(X,0,18)                                                    PRNTMIO       48     A     
 PRNTMIO                                                                                   PRNTMIO       49     A     
 PRNTMIO  *         MISC. FIELD DEFS                                                       PRNTMIO       50     A     
 PRNTMIO                                                                                   PRNTMIO       51     A     
 PRNTMIO        ZA(X) = FIELD(X,54,6)                                                      PRNTMIO       52     A     
 PRNTMIO        ZB(X) = FIELD(X,36,18)                                                     PRNTMIO       53     A     
 PRNTMIO        ZC(X) = FIELD(X,18,18)                                                     PRNTMIO       54     A     
 PRNTMIO        ZD(X) = FIELD(X,0,18)                                                      PRNTMIO       55     A     
 PRNTMIO                                                                                   PRNTMIO       56     A     
 PRNTMIO  *         FORMAT SPECIFICATIONS                                                  PRNTMIO       57     A     
 PRNTMIO                                                                                   PRNTMIO       58     A     
 PRNTMIO  10    FORMAT(/)                                                                  PRNTMIO       59     A     
 PRNTMIO  20    FORMAT(A6)                                                                 PRNTMIO       60     A     
 PRNTMIO  30    FORMAT(*--RI WORD--   IC  AT     LEN     OFS              RA     F         PRNTMIO       61     A     
 PRNTMIO       XWA*)                                                                       PRNTMIO       62     A     
 PRNTMIO  40    FORMAT(*--BA WORD--  BLK PRI  HB  FW      BI     LEN     FWA*)             PRNTMIO       63     A     
 PRNTMIO  50    FORMAT(*--BH WORD--   AV PRI  HB  FW      BI     BST     LEN*)             PRNTMIO       64     A     
 PRNTMIO  60    FORMAT(*--BT WORD--   AV         LKF     LKB     LEN*/)                    PRNTMIO       65     A     
 PRNTMIO  70    FORMAT(*--BLOCK INFORMATION TABLE--*/)                                     PRNTMIO       66     A     
 PRNTMIO  80    FORMAT(*--BLOCK STATUS TABLE--*/)                                          PRNTMIO       67     A     
 PRNTMIO  90    FORMAT(*--CONTENTS OF BLK--*/)                                             PRNTMIO       68     A     
 PRNTMIO  100   FORMAT(1H ,7X,Z7,3X)                                                       PRNTMIO       69     A     
 PRNTMIO  110   FORMAT(2I4,2Z8,6X,Z10,Z8)                                                  PRNTMIO       70     A     
 PRNTMIO  120   FORMAT(4I4,3Z8)                                                            PRNTMIO       71     A     
 PRNTMIO  130   FORMAT(I4,4X,3Z8)                                                          PRNTMIO       72     A     
 PRNTMIO  140   FORMAT(8X)                                                                 PRNTMIO       73     A     
 PRNTMIO  150   FORMAT(10X,Z2,3Z7)                                                         PRNTMIO       74     A     
 PRNTMIO  160   FORMAT(10X)                                                                PRNTMIO       75     A     
 PRNTMIO  165   FORMAT(16X)                                                                PRNTMIO       76     A     
 PRNTMIO  170   FORMAT(10X,*--BIW--*/)                                                     PRNTMIO       77     A     
 PRNTMIO  180   FORMAT(10X,*--BSW--*/)                                                     PRNTMIO       78     A     
 PRNTMIO                                                                                   PRNTMIO       79     A     
 PRNTMIO        LINECM(1) = LINECM(2)                                                      PRNTMIO       80     A     
 PRNTMIO        IF(TEST.EQ.LAB) GO TO 300                                                  PRNTMIO       81     A     
 PRNTMIO        TEST = LAB                                                                 PRNTMIO       82     A     
 PRNTMIO        PRINT 20, LAB                                                              PRNTMIO       83     A     
 PRNTMIO        GO TO 500                                                                  PRNTMIO       84     A     
 PRNTMIO  300   PRINT 20, BLANK                                                            PRNTMIO       85     A     
 PRNTMIO                                                                                   PRNTMIO       86     A     
 PRNTMIO  500   INDXX = INDX.AND.77B                                                       PRNTMIO       87     A     
 PRNTMIO        GO TO(1000,2000,3000,4000,5000,6000,7000),INDXX                            PRNTMIO       88     A     
 PRNTMIO                                                                                   PRNTMIO       89     A     
 PRNTMIO  *         PRINT RANDOM INDEX WORD                                                PRNTMIO       90     A     
 PRNTMIO                                                                                   PRNTMIO       91     A     
 PRNTMIO  1000  CONTINUE                                                                   PRNTMIO       92     A     
 PRNTMIO        PRINT 30                                                                   PRNTMIO       93     A     
 PRNTMIO        PRINT 10                                                                   PRNTMIO       94     A     
 PRNTMIO        MPL = MPW                                                                  PRNTMIO       95     A     
 PRNTMIO        ICX = RIC(MPL)                                                             PRNTMIO       96     A     
 PRNTMIO        ATX = RAT(MPL)                                                             PRNTMIO       97     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3558    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTMIO 
  
 PRNTMIO        LENX = RLEN(MPL)                                                           PRNTMIO       98     A     
 PRNTMIO        OFSX = ROFS(MPL)                                                           PRNTMIO       99     A     
 PRNTMIO        RAX = RRA(MPL)                                                             PRNTMIO      100     A     
 PRNTMIO        FWAX = RFWA(MPL)                                                           PRNTMIO      101     A     
 PRNTMIO        LCMX = RLCM(MPL)                                                           PRNTMIO      102     A     
 PRNTMIO        IF(ICX.EQ.0) GO TO 1100                                                    PRNTMIO      103     A     
 PRNTMIO        OFSX = 0                                                                   PRNTMIO      104     A     
 PRNTMIO        RAX = LCMX                                                                 PRNTMIO      105     A     
 PRNTMIO        GO TO 1200                                                                 PRNTMIO      106     A     
 PRNTMIO  1100  FWAX = 0                                                                   PRNTMIO      107     A     
 PRNTMIO        IF(ATX.EQ.1) RAX = LCMX                                                    PRNTMIO      108     A     
 PRNTMIO  1200  PRINT 100,RL                                                               PRNTMIO      109     A     
 PRNTMIO        PRINT 110, ICX,ATX,LENX,OFSX,RAX,FWAX                                      PRNTMIO      110     A     
 PRNTMIO        PRINT 10                                                                   PRNTMIO      111     A     
 PRNTMIO        GO TO 9000                                                                 PRNTMIO      112     A     
 PRNTMIO                                                                                   PRNTMIO      113     A     
 PRNTMIO  *         PRINT BLOCK ADDRESS WORD                                               PRNTMIO      114     A     
 PRNTMIO                                                                                   PRNTMIO      115     A     
 PRNTMIO  2000  CONTINUE                                                                   PRNTMIO      116     A     
 PRNTMIO        PRINT 40                                                                   PRNTMIO      117     A     
 PRNTMIO        PRINT 10                                                                   PRNTMIO      118     A     
 PRNTMIO        MPL = MPW                                                                  PRNTMIO      119     A     
 PRNTMIO        BLKX = ABLK(MPL)                                                           PRNTMIO      120     A     
 PRNTMIO        PRIX = APRI(MPL)                                                           PRNTMIO      121     A     
 PRNTMIO        HBX = AHB(MPL)                                                             PRNTMIO      122     A     
 PRNTMIO        FWX = AFW(MPL)                                                             PRNTMIO      123     A     
 PRNTMIO        BIX = ABI(MPL)                                                             PRNTMIO      124     A     
 PRNTMIO        LENX = ALEN(MPL)                                                           PRNTMIO      125     A     
 PRNTMIO        FWAX = AFWA(MPL)                                                           PRNTMIO      126     A     
 PRNTMIO        PRINT 100, RL                                                              PRNTMIO      127     A     
 PRNTMIO        PRINT 120, BLKX,PRIX,HBX,FWX,BIX,LENX,FWAX                                 PRNTMIO      128     A     
 PRNTMIO        PRINT 10                                                                   PRNTMIO      129     A     
 PRNTMIO        GO TO 9000                                                                 PRNTMIO      130     A     
 PRNTMIO                                                                                   PRNTMIO      131     A     
 PRNTMIO  *         PRINT BLOCK HEADER WORD                                                PRNTMIO      132     A     
 PRNTMIO                                                                                   PRNTMIO      133     A     
 PRNTMIO  3000  CONTINUE                                                                   PRNTMIO      134     A     
 PRNTMIO        PRINT 50                                                                   PRNTMIO      135     A     
 PRNTMIO        PRINT 10                                                                   PRNTMIO      136     A     
 PRNTMIO        MPL = MPW                                                                  PRNTMIO      137     A     
 PRNTMIO        AVX = HAV(MPL)                                                             PRNTMIO      138     A     
 PRNTMIO        PRIX = HPRI(MPL)                                                           PRNTMIO      139     A     
 PRNTMIO        HBX = HHB(MPL)                                                             PRNTMIO      140     A     
 PRNTMIO        FWX = HFW(MPL)                                                             PRNTMIO      141     A     
 PRNTMIO        BIX = HBI(MPL)                                                             PRNTMIO      142     A     
 PRNTMIO        BSTX = HBST(MPL)                                                           PRNTMIO      143     A     
 PRNTMIO        LENX = HLEN(MPL)                                                           PRNTMIO      144     A     
 PRNTMIO        PRINT 100, RL                                                              PRNTMIO      145     A     
 PRNTMIO        PRINT 120, AVX,PRIX,HBX,FWX,BIX,BSTX,LENX                                  PRNTMIO      146     A     
 PRNTMIO        PRINT 10                                                                   PRNTMIO      147     A     
 PRNTMIO        GO TO 9000                                                                 PRNTMIO      148     A     
 PRNTMIO                                                                                   PRNTMIO      149     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3559    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTMIO 
  
 PRNTMIO  *         PRINT BLOCK TRAILER WORD                                               PRNTMIO      150     A     
 PRNTMIO                                                                                   PRNTMIO      151     A     
 PRNTMIO  4000  CONTINUE                                                                   PRNTMIO      152     A     
 PRNTMIO        PRINT 60                                                                   PRNTMIO      153     A     
 PRNTMIO        MPL = MPW                                                                  PRNTMIO      154     A     
 PRNTMIO        AVX = TAV(MPL)                                                             PRNTMIO      155     A     
 PRNTMIO        LKFX = TLKF(MPL)                                                           PRNTMIO      156     A     
 PRNTMIO        LKBX = TLKB(MPL)                                                           PRNTMIO      157     A     
 PRNTMIO        LENX = TLEN(MPL)                                                           PRNTMIO      158     A     
 PRNTMIO        PRINT 100, RL                                                              PRNTMIO      159     A     
 PRNTMIO        PRINT 130, AVX,LKFX,LKBX,LENX                                              PRNTMIO      160     A     
 PRNTMIO        PRINT 10                                                                   PRNTMIO      161     A     
 PRNTMIO        GO TO 9000                                                                 PRNTMIO      162     A     
 PRNTMIO                                                                                   PRNTMIO      163     A     
 PRNTMIO  *         PRINT BIT TABLE                                                        PRNTMIO      164     A     
 PRNTMIO                                                                                   PRNTMIO      165     A     
 PRNTMIO  5000  CONTINUE                                                                   PRNTMIO      166     A     
 PRNTMIO        PRINT 10                                                                   PRNTMIO      167     A     
 PRNTMIO        PRINT 20, BLANK                                                            PRNTMIO      168     A     
 PRNTMIO        PRINT 70                                                                   PRNTMIO      169     A     
 PRNTMIO        PRINT 20, BLANK                                                            PRNTMIO      170     A     
 PRNTMIO        PRINT 30                                                                   PRNTMIO      171     A     
 PRNTMIO        PRINT 170                                                                  PRNTMIO      172     A     
 PRNTMIO        DO 5500 I = 1,LBIT,2                                                       PRNTMIO      173     A     
 PRNTMIO        MPZ = OBIT(I)                                                              PRNTMIO      174     A     
 PRNTMIO        ZAX = ZA(MPZ)                                                              PRNTMIO      175     A     
 PRNTMIO        ZBX = ZB(MPZ)                                                              PRNTMIO      176     A     
 PRNTMIO        ZCX = ZC(MPZ)                                                              PRNTMIO      177     A     
 PRNTMIO        ZDX = ZD(MPZ)                                                              PRNTMIO      178     A     
 PRNTMIO        MPL = OBIT(I+1)                                                            PRNTMIO      179     A     
 PRNTMIO        MPLX = I-1                                                                 PRNTMIO      180     A     
 PRNTMIO        ICX = RIC(MPL)                                                             PRNTMIO      181     A     
 PRNTMIO        ATX = RAT(MPL)                                                             PRNTMIO      182     A     
 PRNTMIO        LENX = RLEN(MPL)                                                           PRNTMIO      183     A     
 PRNTMIO        OFSX = ROFS(MPL)                                                           PRNTMIO      184     A     
 PRNTMIO        RAX = RRA(MPL)                                                             PRNTMIO      185     A     
 PRNTMIO        FWAX = RFWA(MPL)                                                           PRNTMIO      186     A     
 PRNTMIO        LCMX = RLCM(MPL)                                                           PRNTMIO      187     A     
 PRNTMIO        IF(ICX.EQ.0) GO TO 5100                                                    PRNTMIO      188     A     
 PRNTMIO        OFSX = 0                                                                   PRNTMIO      189     A     
 PRNTMIO        RAX = LCMX                                                                 PRNTMIO      190     A     
 PRNTMIO        GO TO 5200                                                                 PRNTMIO      191     A     
 PRNTMIO  5100  FWAX = 0                                                                   PRNTMIO      192     A     
 PRNTMIO        IF(ATX.EQ.1) RAX = LCMX                                                    PRNTMIO      193     A     
 PRNTMIO  5200  PRINT 100, MPLX                                                            PRNTMIO      194     A     
 PRNTMIO        PRINT 110, ICX,ATX,LENX,OFSX,RAX,FWAX                                      PRNTMIO      195     A     
 PRNTMIO        PRINT 150, ZAX,ZBX,ZCX,ZDX                                                 PRNTMIO      196     A     
 PRNTMIO        PRINT 10                                                                   PRNTMIO      197     A     
 PRNTMIO  5500  CONTINUE                                                                   PRNTMIO      198     A     
 PRNTMIO        GO TO 9000                                                                 PRNTMIO      199     A     
 PRNTMIO                                                                                   PRNTMIO      200     A     
 PRNTMIO  *         PRINT BST TABLE                                                        PRNTMIO      201     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3560    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTMIO 
  
 PRNTMIO                                                                                   PRNTMIO      202     A     
 PRNTMIO  6000  CONTINUE                                                                   PRNTMIO      203     A     
 PRNTMIO        PRINT 10                                                                   PRNTMIO      204     A     
 PRNTMIO        PRINT 20, BLANK                                                            PRNTMIO      205     A     
 PRNTMIO        PRINT 80                                                                   PRNTMIO      206     A     
 PRNTMIO        PRINT 20, BLANK                                                            PRNTMIO      207     A     
 PRNTMIO        PRINT 40                                                                   PRNTMIO      208     A     
 PRNTMIO        PRINT 180                                                                  PRNTMIO      209     A     
 PRNTMIO        DO 6500 I = 1,LBST,2                                                       PRNTMIO      210     A     
 PRNTMIO        MPL = OBST(I)                                                              PRNTMIO      211     A     
 PRNTMIO        MPLX = I-1                                                                 PRNTMIO      212     A     
 PRNTMIO        BLKX = ABLK(MPL)                                                           PRNTMIO      213     A     
 PRNTMIO        PRIX = APRI(MPL)                                                           PRNTMIO      214     A     
 PRNTMIO        HBX = AHB(MPL)                                                             PRNTMIO      215     A     
 PRNTMIO        FWX = AFW(MPL)                                                             PRNTMIO      216     A     
 PRNTMIO        BIX = ABI(MPL)                                                             PRNTMIO      217     A     
 PRNTMIO        LENX = ALEN(MPL)                                                           PRNTMIO      218     A     
 PRNTMIO        FWAX = AFWA(MPL)                                                           PRNTMIO      219     A     
 PRNTMIO        PRINT 100, MPLX                                                            PRNTMIO      220     A     
 PRNTMIO        PRINT 120, BLKX,PRIX,HBX,FWX,BIX,LENX,FWAX                                 PRNTMIO      221     A     
 PRNTMIO        MPZ = OBST(I+1)                                                            PRNTMIO      222     A     
 PRNTMIO        ZAX = ZA(MPZ)                                                              PRNTMIO      223     A     
 PRNTMIO        ZBX = ZB(MPZ)                                                              PRNTMIO      224     A     
 PRNTMIO        ZCX = ZC(MPZ)                                                              PRNTMIO      225     A     
 PRNTMIO        ZDX = ZD(MPZ)                                                              PRNTMIO      226     A     
 PRNTMIO        PRINT 140                                                                  PRNTMIO      227     A     
 PRNTMIO        PRINT 150, ZAX,ZBX,ZCX,ZDX                                                 PRNTMIO      228     A     
 PRNTMIO        PRINT 10                                                                   PRNTMIO      229     A     
 PRNTMIO  6500  CONTINUE                                                                   PRNTMIO      230     A     
 PRNTMIO        GO TO 9000                                                                 PRNTMIO      231     A     
 PRNTMIO                                                                                   PRNTMIO      232     A     
 PRNTMIO  *         PRINT CONTENTS OF BLK                                                  PRNTMIO      233     A     
 PRNTMIO                                                                                   PRNTMIO      234     A     
 PRNTMIO  7000  CONTINUE                                                                   PRNTMIO      235     A     
 PRNTMIO        PRINT 10                                                                   PRNTMIO      236     A     
 PRNTMIO        PRINT 20, BLANK                                                            PRNTMIO      237     A     
 PRNTMIO        PRINT 90                                                                   PRNTMIO      238     A     
 PRNTMIO        I = 1                                                                      PRNTMIO      239     A     
 PRNTMIO  7100  I = I+1                                                                    PRNTMIO      240     A     
 PRNTMIO        MPL = OBLK(I)                                                              PRNTMIO      241     A     
 PRNTMIO        IF(MPL.EQ.0) GO TO 9000                                                    PRNTMIO      242     A     
 PRNTMIO        PRINT 20, BLANK                                                            PRNTMIO      243     A     
 PRNTMIO        PRINT 50                                                                   PRNTMIO      244     A     
 PRNTMIO        PRINT 165                                                                  PRNTMIO      245     A     
 PRNTMIO        PRINT 60                                                                   PRNTMIO      246     A     
 PRNTMIO        MPLX = LOCF(OBLK(I))                                                       PRNTMIO      247     A     
 PRNTMIO        AVX = HAV(MPL)                                                             PRNTMIO      248     A     
 PRNTMIO        PRIX = HPRI(MPL)                                                           PRNTMIO      249     A     
 PRNTMIO        HBX = HHB(MPL)                                                             PRNTMIO      250     A     
 PRNTMIO        FWX = HFW(MPL)                                                             PRNTMIO      251     A     
 PRNTMIO        BIX = HBI(MPL)                                                             PRNTMIO      252     A     
 PRNTMIO        BSTX = HBST(MPL)                                                           PRNTMIO      253     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3561    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTMIO 
  
 PRNTMIO        LENX = HLEN(MPL)                                                           PRNTMIO      254     A     
 PRNTMIO        PRINT 100, MPLX                                                            PRNTMIO      255     A     
 PRNTMIO        PRINT 120, AVX,PRIX,HBX,FWX,BIX,BSTX,LENX                                  PRNTMIO      256     A     
 PRNTMIO        PRINT 160                                                                  PRNTMIO      257     A     
 PRNTMIO        K = I+1                                                                    PRNTMIO      258     A     
 PRNTMIO        I = I+LENX-1                                                               PRNTMIO      259     A     
 PRNTMIO        MPL = OBLK(I)                                                              PRNTMIO      260     A     
 PRNTMIO        MPLX = LOCF(OBLK(I))                                                       PRNTMIO      261     A     
 PRNTMIO        AVX = TAV(MPL)                                                             PRNTMIO      262     A     
 PRNTMIO        LKFX = TLKF(MPL)                                                           PRNTMIO      263     A     
 PRNTMIO        LKBX = TLKB(MPL)                                                           PRNTMIO      264     A     
 PRNTMIO        LENX = TLEN(MPL)                                                           PRNTMIO      265     A     
 PRNTMIO        PRINT 100, MPLX                                                            PRNTMIO      266     A     
 PRNTMIO        PRINT 130, AVX,LKFX,LKBX,LENX                                              PRNTMIO      267     A     
 PRNTMIO        PRINT 10                                                                   PRNTMIO      268     A     
 PRNTMIO        IF(AVX.EQ.1) GO TO 7100                                                    PRNTMIO      269     A     
 PRNTMIO        IF(FWX.EQ.1) GO TO 7100                                                    PRNTMIO      270     A     
 PRNTMIO        IF(NRL.EQ.1) GO TO 7100                                                    PRNTMIO      271     A     
 PRNTMIO        LTXT = LENX-2                                                              PRNTMIO      272     A     
 PRNTMIO        CTR(1) = 0                                                                 PRNTMIO      273     A     
 PRNTMIO        CTR(2) = 10HPRNTBLK                                                        PRNTMIO      274     A     
 PRNTMIO        CTR(3) = 1                                                                 PRNTMIO      275     A     
 PRNTMIO        CTR(4) = 2                                                                 PRNTMIO      276     A     
 PRNTMIO        CTR(5) = 1                                                                 PRNTMIO      277     A     
 PRNTMIO        CALL DMPRLST(CTR,OBLK(K),LTXT)                                             PRNTMIO      278     A     
 PRNTMIO        LINECM(1) = LINECM(2)                                                      PRNTMIO      279     A     
 PRNTMIO        GO TO 7100                                                                 PRNTMIO      280     A     
 PRNTMIO                                                                                   PRNTMIO      281     A     
 PRNTMIO  *         END PROCESSING                                                         PRNTMIO      282     A     
 PRNTMIO                                                                                   PRNTMIO      283     A     
 PRNTMIO  9000  LINECM(1) = 0                                                              PRNTMIO      284     A     
 PRNTMIO        RETURN                                                                     PRNTMIO      285     A     
 PRNTMIO        END                                                                        PRNTMIO      286     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PRNTMIO 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PRNTMIO                    286       286
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTUDI 
  
 PRNTUDI  *DECK     PRNTUDI                                                                PRNTUDI        1     A     
 PRNTUDI            SUBROUTINE PRNTUDI( UDI , N )                                          PRNTUDI        2     A     
 PRNTUDI                                                                                   PRNTUDI        3     A     
 PRNTUDI  *         PRNT UDI - PRINT *USE/DEF* BITS SET IN *UDT* ( GPO / GRA )             PRNTUDI        4     A     
 PRNTUDI                                                                                   PRNTUDI        5     A     
 PRNTUDI            IMPLICIT INTEGER(A-Z)                                                  PRNTUDI        6     A     
 PRNTUDI            INTEGER UDI(N),BVAL(12),BV(7)                                          PRNTUDI        7     A     
 PRNTUDI            COMMON/LINE/LINECM(2)                                                  PRNTUDI        8     A     
 PRNTUDI                                                                                   PRNTUDI        9     A     
 PRNTUDI            DATA BVAL / 1H  ,5H DEFR , 1H ,4H DEF , 1H  , 4H DBU                   PRNTUDI       10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3562    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTUDI 
  
 PRNTUDI       1  , 1H  , 4H USE , 1H  , 4H ^RD , 1H  , 4H IST /                           PRNTUDI       11     A     
 PRNTUDI                                                                                   PRNTUDI       12     A     
 PRNTUDI            FIELD(X,P,L) = .N.MASK(60-L).A.SHIFT(X,60-P)                           PRNTUDI       13     A     
 PRNTUDI            STC(X) = FIELD(X,45,9)                                                 PRNTUDI       14     A     
 PRNTUDI                                                                                   PRNTUDI       15     A     
 PRNTUDI            PRINT 1                                                                PRNTUDI       16     A     
 PRNTUDI   1        FORMAT (/*  -- USE/DEF BIT SETTING --*/)                               PRNTUDI       17     A     
 PRNTUDI   2        FORMAT(/)                                                              PRNTUDI       18     A     
 PRNTUDI                                                                                   PRNTUDI       19     A     
 PRNTUDI            LINECM = LINECM(2)                                                     PRNTUDI       20     A     
 PRNTUDI            PC = 1                                                                 PRNTUDI       21     A     
 PRNTUDI                                                                                   PRNTUDI       22     A     
 PRNTUDI            DO 20 I = 1,N,2                                                        PRNTUDI       23     A     
 PRNTUDI            B = MASK(6) .A. UDI(I)                                                 PRNTUDI       24     A     
 PRNTUDI            IF( B .EQ. 0 ) GO TO 20                                                PRNTUDI       25     A     
 PRNTUDI                                                                                   PRNTUDI       26     A     
 PRNTUDI            DO 15 K = 1,6                                                          PRNTUDI       27     A     
 PRNTUDI            B = SHIFT(B,1)                                                         PRNTUDI       28     A     
 PRNTUDI            J = B.A.1                                                              PRNTUDI       29     A     
 PRNTUDI   15       BV(K) = BVAL(2*K+J-1)                                                  PRNTUDI       30     A     
 PRNTUDI                                                                                   PRNTUDI       31     A     
 PRNTUDI            BV(7) = STC( UDI(I) )                                                  PRNTUDI       32     A     
 PRNTUDI            J = I/2                                                                PRNTUDI       33     A     
 PRNTUDI            PRINT 11,J,BV                                                          PRNTUDI       34     A     
 PRNTUDI   11       FORMAT(I8*U *A5,5A4,I4)                                                PRNTUDI       35     A     
 PRNTUDI                                                                                   PRNTUDI       36     A     
 PRNTUDI            PC = PC + 1                                                            PRNTUDI       37     A     
 PRNTUDI            IF( (PC.A.1) .EQ. 0 ) PRINT 2                                          PRNTUDI       38     A     
 PRNTUDI                                                                                   PRNTUDI       39     A     
 PRNTUDI   20       CONTINUE                                                               PRNTUDI       40     A     
 PRNTUDI                                                                                   PRNTUDI       41     A     
 PRNTUDI            IF( (PC.A.1) .NE. 0 ) PRINT 2                                          PRNTUDI       42     A     
 PRNTUDI            LINECM = 0                                                             PRNTUDI       43     A     
 PRNTUDI                                                                                   PRNTUDI       44     A     
 PRNTUDI            RETURN                                                                 PRNTUDI       45     A     
 PRNTUDI                                                                                   PRNTUDI       46     A     
 PRNTUDI            END                                                                    PRNTUDI       47     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PRNTUDI 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PRNTUDI                     47        47
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTABV 
  
 PRNTABV  *DECK     PRNTABV                                                                PRNTABV        1     A     
 PRNTABV            SUBROUTINE PRNTABV( NAME , BVT )                                       PRNTABV        2     A     
 PRNTABV            IMPLICIT INTEGER(A-Z)                                                  PRNTABV        3     A     
 PRNTABV                                                                                   PRNTABV        4     A     
 PRNTABV  **        PRNTABV - PRINT A BIT VECTOR                                           PRNTABV        5     A     
 PRNTABV  *                NAME = 5L NAM  , OR A RIGHT ADJUSTED BINARY NUMBER              PRNTABV        6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3563    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTABV 
  
 PRNTABV  *                BVT - FWA OF BIT VECTOR                                         PRNTABV        7     A     
 PRNTABV                                                                                   PRNTABV        8     A     
 PRNTABV            COMMON/BVINFO/ VL, NVAR /LINE/LINECM(2)                                PRNTABV        9     A     
 PRNTABV            INTEGER BVT(1),B(3)                                                    PRNTABV       10     A     
 PRNTABV   1        FORMAT(/)                                                              PRNTABV       11     A     
 PRNTABV                                                                                   PRNTABV       12     A     
 PRNTABV            LINECM = LINECM(2)                                                     PRNTABV       13     A     
 PRNTABV            VN = 2-60                                                              PRNTABV       14     A     
 PRNTABV                                                                                   PRNTABV       15     A     
 PRNTABV            DO 40 J = 1,VL                                                         PRNTABV       16     A     
 PRNTABV            VN = VN + 60                                                           PRNTABV       17     A     
 PRNTABV            IF( SHIFT(NAME,-54) .EQ. 0 ) GO TO 5                                   PRNTABV       18     A     
 PRNTABV            PRINT 2,NAME                                                           PRNTABV       19     A     
 PRNTABV   2        FORMAT(A5)                                                             PRNTABV       20     A     
 PRNTABV            GO TO 15                                                               PRNTABV       21     A     
 PRNTABV   5        PRINT 3,NAME                                                           PRNTABV       22     A     
 PRNTABV   3        FORMAT(I4,1X)                                                          PRNTABV       23     A     
 PRNTABV                                                                                   PRNTABV       24     A     
 PRNTABV   15       VM = MIN0( NVAR+1 , VN+59 )                                            PRNTABV       25     A     
 PRNTABV            DO 25 I = VN,VM,3                                                      PRNTABV       26     A     
 PRNTABV   25       PRINT 26,I                                                             PRNTABV       27     A     
 PRNTABV   26       FORMAT(I4)                                                             PRNTABV       28     A     
 PRNTABV            PRINT 4                                                                PRNTABV       29     A     
 PRNTABV   4        FORMAT(/7X)                                                            PRNTABV       30     A     
 PRNTABV                                                                                   PRNTABV       31     A     
 PRNTABV            KG = ( (VM-VN)/3 + 1 ) *3                                              PRNTABV       32     A     
 PRNTABV            BW = BVT(J)                                                            PRNTABV       33     A     
 PRNTABV                                                                                   PRNTABV       34     A     
 PRNTABV            DO 30 I = 1,KG,3                                                       PRNTABV       35     A     
 PRNTABV            SC = 1 - I                                                             PRNTABV       36     A     
 PRNTABV            B(1) = SHIFT(BW,SC).A.1                                                PRNTABV       37     A     
 PRNTABV            B(2) = SHIFT(BW,SC-1).A.1                                              PRNTABV       38     A     
 PRNTABV            B(3) = SHIFT(BW,SC-2).A.1                                              PRNTABV       39     A     
 PRNTABV   30       PRINT 22,B                                                             PRNTABV       40     A     
 PRNTABV   22       FORMAT(1X,3O1)                                                         PRNTABV       41     A     
 PRNTABV            PRINT 1                                                                PRNTABV       42     A     
 PRNTABV                                                                                   PRNTABV       43     A     
 PRNTABV   40       CONTINUE                                                               PRNTABV       44     A     
 PRNTABV                                                                                   PRNTABV       45     A     
 PRNTABV            LINECM = 0                                                             PRNTABV       46     A     
 PRNTABV            RETURN                                                                 PRNTABV       47     A     
 PRNTABV                                                                                   PRNTABV       48     A     
 PRNTABV            END                                                                    PRNTABV       49     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PRNTABV 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PRNTABV                     49        49
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTBV  
  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3564    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTBV  
  
 PRNTBV   *DECK     PRNTBV                                                                 PRNTBV         1     A     
 PRNTBV             SUBROUTINE PRNTBV( BVT , INDX , NV )                                   PRNTBV         2     A     
 PRNTBV                                                                                    PRNTBV         3     A     
 PRNTBV   **        PRNTBV - PRINT BIT VECTORS / LIVE EXIT VECTORS                         PRNTBV         4     A     
 PRNTBV                                                                                    PRNTBV         5     A     
 PRNTBV             IMPLICIT INTEGER(A-Z)                                                  PRNTBV         6     A     
 PRNTBV             INTEGER BVT(1),INDX(1) , B(3) , VECTBL(3)                              PRNTBV         7     A     
 PRNTBV             COMMON/BVINFO/ VL, NVAR /LINE/LINECM(2)                                PRNTBV         8     A     
 PRNTBV             DATA VECTBL / 5H DEF  , 5H UBD  , 5H USE   /                           PRNTBV         9     A     
 PRNTBV                                                                                    PRNTBV        10     A     
 PRNTBV             LINENR(X) = SHIFT(X,-18).A.77777B                                      PRNTBV        11     A     
 PRNTBV             SETX(X) = X.A.377777B                                                  PRNTBV        12     A     
 PRNTBV    1        FORMAT(/)                                                              PRNTBV        13     A     
 PRNTBV    2        FORMAT(/*  -- BIT VECTORS --*)                                         PRNTBV        14     A     
 PRNTBV    3        FORMAT(1X/)                                                            PRNTBV        15     A     
 PRNTBV             PRINT 2                                                                PRNTBV        16     A     
 PRNTBV             K = 1                                                                  PRNTBV        17     A     
 PRNTBV             MODE = 0                                                               PRNTBV        18     A     
 PRNTBV             WI = INDX + 1                                                          PRNTBV        19     A     
 PRNTBV                                                                                    PRNTBV        20     A     
 PRNTBV    5        LINECM = LINECM(2)                                                     PRNTBV        21     A     
 PRNTBV                                                                                    PRNTBV        22     A     
 PRNTBV   *         LOOP FOR VECTOR                                                        PRNTBV        23     A     
 PRNTBV             DO 50 KK = 1,NV                                                        PRNTBV        24     A     
 PRNTBV             BLINE = 0                                                              PRNTBV        25     A     
 PRNTBV             VN = 2-60                                                              PRNTBV        26     A     
 PRNTBV                                                                                    PRNTBV        27     A     
 PRNTBV             DO 40 J = 1,VL                                                         PRNTBV        28     A     
 PRNTBV             VN = VN + 60                                                           PRNTBV        29     A     
 PRNTBV             BW = BVT(WI)                                                           PRNTBV        30     A     
 PRNTBV             IF( BW .NE. 0 ) GO TO 15                                               PRNTBV        31     A     
 PRNTBV             IF( (MASK(1).A.BW) .EQ. 0 ) GO TO 40                                   PRNTBV        32     A     
 PRNTBV                                                                                    PRNTBV        33     A     
 PRNTBV    15       VM = MIN0( NVAR-1 , VN+59 )                                            PRNTBV        34     A     
 PRNTBV             IF( BLINE .NE. 0 ) GO TO 16                                            PRNTBV        35     A     
 PRNTBV             PRINT 3                                                                PRNTBV        36     A     
 PRNTBV             BLINE = 1                                                              PRNTBV        37     A     
 PRNTBV    16       IF( K .EQ. 0 ) GO TO 20                                                PRNTBV        38     A     
 PRNTBV             PRINT 21,VECTBL(K)                                                     PRNTBV        39     A     
 PRNTBV    21       FORMAT(A5)                                                             PRNTBV        40     A     
 PRNTBV             GO TO 24                                                               PRNTBV        41     A     
 PRNTBV    20       I = LINENR( INDX(2*KK+1) )                                             PRNTBV        42     A     
 PRNTBV             PRINT 23,I                                                             PRNTBV        43     A     
 PRNTBV    23       FORMAT(I5)                                                             PRNTBV        44     A     
 PRNTBV                                                                                    PRNTBV        45     A     
 PRNTBV    24       DO 25 I = VN,VM,3                                                      PRNTBV        46     A     
 PRNTBV    25       PRINT 26,I                                                             PRNTBV        47     A     
 PRNTBV    26       FORMAT(I4)                                                             PRNTBV        48     A     
 PRNTBV                                                                                    PRNTBV        49     A     
 PRNTBV             PRINT 4                                                                PRNTBV        50     A     
 PRNTBV    4        FORMAT(/7X)                                                            PRNTBV        51     A     
 PRNTBV             KG = VM+1 - VN                                                         PRNTBV        52     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3565    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTBV  
  
 PRNTBV                                                                                    PRNTBV        53     A     
 PRNTBV             DO 30 I = 1,KG,3                                                       PRNTBV        54     A     
 PRNTBV             SC = 1 - I                                                             PRNTBV        55     A     
 PRNTBV             B(1) = SHIFT(BW,SC).A.1                                                PRNTBV        56     A     
 PRNTBV             B(2) = SHIFT(BW,SC-1).A.1                                              PRNTBV        57     A     
 PRNTBV             B(3) = SHIFT(BW,SC-2).A.1                                              PRNTBV        58     A     
 PRNTBV    30       PRINT 22,B                                                             PRNTBV        59     A     
 PRNTBV    22       FORMAT(1X,3O1)                                                         PRNTBV        60     A     
 PRNTBV             PRINT 1                                                                PRNTBV        61     A     
 PRNTBV                                                                                    PRNTBV        62     A     
 PRNTBV    40       WI = WI + 1                                                            PRNTBV        63     A     
 PRNTBV             IF( MODE .NE. 0 ) GO TO 45                                             PRNTBV        64     A     
 PRNTBV             K = K + 1                                                              PRNTBV        65     A     
 PRNTBV             GO TO 50                                                               PRNTBV        66     A     
 PRNTBV    45       WI = SETX( INDX(2*KK+3) ) + MODE                                       PRNTBV        67     A     
 PRNTBV    50       CONTINUE                                                               PRNTBV        68     A     
 PRNTBV                                                                                    PRNTBV        69     A     
 PRNTBV             LINECM = 0                                                             PRNTBV        70     A     
 PRNTBV             IF( MODE .NE. 0 ) CALL SETST( 0 )                                      PRNTBV        71     A     
 PRNTBV             RETURN                                                                 PRNTBV        72     A     
 PRNTBV                                                                                    PRNTBV        73     A     
 PRNTBV   *         PRNTLX - PRINT PROGRAM LIVE EXIT BIT VECTORS                           PRNTBV        74     A     
 PRNTBV                                                                                    PRNTBV        75     A     
 PRNTBV             ENTRY  PRNTLX                                                          PRNTBV        76     A     
 PRNTBV             CALL SETST( 3 , 28L LINE   LIVE EXIT VECTORS            )              PRNTBV        77     A     
 PRNTBV             K = 0                                                                  PRNTBV        78     A     
 PRNTBV             MODE = 3*VL + 1                                                        PRNTBV        79     A     
 PRNTBV             WI = SETX( INDX(3) ) + MODE                                            PRNTBV        80     A     
 PRNTBV             GO TO 5                                                                PRNTBV        81     A     
 PRNTBV                                                                                    PRNTBV        82     A     
 PRNTBV             END                                                                    PRNTBV        83     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PRNTBV  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PRNTBV                      83        83
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTRLI 
  
 PRNTRLI  *DECK     PRNTRLI                                                                PRNTRLI        1     A     
 PRNTRLI            SUBROUTINE PRNT RLI( FRW )                                             PRNTRLI        2     A     
 PRNTRLI            IMPLICIT INTEGER(A-Z)                                                  PRNTRLI        3     A     
 PRNTRLI                                                                                   PRNTRLI        4     A     
 PRNTRLI  **        PRNT RLI - PRINT 1 *IL* ( RLIST ) INSTRUCTION                          PRNTRLI        5     A     
 PRNTRLI                                                                                   PRNTRLI        6     A     
 PRNTRLI            INTEGER FRW(3),RLI(3),PTAB(3),RTAB(3),Z(1)                             PRNTRLI        7     A     
 PRNTRLI            INTEGER JPX(8),JPBB(8)                                                 PRNTRLI        8     A     
 PRNTRLI            COMMON/OPRS/ OPRS(1)                                                   PRNTRLI        9     A     
 PRNTRLI            EQUIVALENCE (RL2,RLI(2) )                                              PRNTRLI       10     A     
 PRNTRLI                                                                                   PRNTRLI       11     A     
 PRNTRLI            DATA RTAB / 2RB0 , 2RA0 , 2RX0 /                                       PRNTRLI       12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3566    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTRLI 
  
 PRNTRLI            DATA PTAB / 3L#GL , 3L[AP , 3L]IO /                                    PRNTRLI       13     A     
 PRNTRLI            DATA JPX / 2HZR , 2HNZ , 2HPL , 2HMI , 2HIR , 2HOR , 2HDF              PRNTRLI       14     A     
 PRNTRLI       .           , 2HID /                                                        PRNTRLI       15     A     
 PRNTRLI            DATA JPBB / 2HEQ , 2HNE , 2HGE , 2HLT /                                PRNTRLI       16     A     
 PRNTRLI                                                                                   PRNTRLI       17     A     
 PRNTRLI            FIELD(X,P,L) = SHIFT(X,60-P).A. .N.MASK(60-L)                          PRNTRLI       18     A     
 PRNTRLI            KS(X) = FIELD(X,31,1)                                                  PRNTRLI       19     A     
 PRNTRLI  *                                  R1 WORD                                       PRNTRLI       20     A     
 PRNTRLI            OC(X) = FIELD(X,48,7)                                                  PRNTRLI       21     A     
 PRNTRLI            RJ(X) = FIELD(X,32,16)                                                 PRNTRLI       22     A     
 PRNTRLI            RK(X) = FIELD(X,16,16)                                                 PRNTRLI       23     A     
 PRNTRLI            RI(X) = FIELD(X,0,16)                                                  PRNTRLI       24     A     
 PRNTRLI  *                                  R1 WORD / TYPE II AND III                     PRNTRLI       25     A     
 PRNTRLI            IN(X) = FIELD(X,30,18)                                                 PRNTRLI       26     A     
 PRNTRLI            SO(X) = FIELD(X,16,13)                                                 PRNTRLI       27     A     
 PRNTRLI            H2(X) = FIELD(X,18,12)                                                 PRNTRLI       28     A     
 PRNTRLI  *                                  R2 OR IH WORD                                 PRNTRLI       29     A     
 PRNTRLI            RF(X) = FIELD(X,36,18)                                                 PRNTRLI       30     A     
 PRNTRLI            CA(X) = FIELD(X,18,18)                                                 PRNTRLI       31     A     
 PRNTRLI            IH(X) = FIELD(X,0,18)                                                  PRNTRLI       32     A     
 PRNTRLI            SYM(I) = LOC(LOC(12B)-2*I).A.MASK(42)                                  PRNTRLI       33     A     
 PRNTRLI            LOC(X) = Z(X+1-Z)                                                      PRNTRLI       34     A     
 PRNTRLI            Z = LOCF(Z)                                                            PRNTRLI       35     A     
 PRNTRLI                                                                                   PRNTRLI       36     A     
 PRNTRLI            RLI = IABS( FRW )                                                      PRNTRLI       37     A     
 PRNTRLI            RL2 = FRW(2)                                                           PRNTRLI       38     A     
 PRNTRLI            RLI(3) = FRW(3)                                                        PRNTRLI       39     A     
 PRNTRLI            OCV = OC(RLI)+1                                                        PRNTRLI       40     A     
 PRNTRLI            RIV = RI(RLI)                                                          PRNTRLI       41     A     
 PRNTRLI            NAM = OPRS(OCV).A.MASK(24)                                             PRNTRLI       42     A     
 PRNTRLI            GO TO ( 20, 30, 33, 50 ) OPRS(OCV)                                     PRNTRLI       43          I
          -FCC0448
 PRNTRLI            GO TO ( 20 , 30 , 33 , 50 ) OPRS(OCV) .A. 17B                          FCC0448      188     A     
 PRNTRLI                                                                                   PRNTRLI       44     A     
 PRNTRLI  **        TYPE I INSTRUCTION                                                     PRNTRLI       45     A     
 PRNTRLI                                                                                   PRNTRLI       46     A     
 PRNTRLI   20       RJV = RJ(RLI)                                                          PRNTRLI       47     A     
 PRNTRLI            RKV = RK(RLI)                                                          PRNTRLI       48     A     
 PRNTRLI            PRINT 21,NAM,RIV,RJV                                                   PRNTRLI       49     A     
 PRNTRLI   21       FORMAT(2X,A4,Z6,Z7)                                                    PRNTRLI       50     A     
 PRNTRLI            IF( RKV .EQ. 0 ) GO TO 23                                              PRNTRLI       51     A     
 PRNTRLI            PRINT 22,RKV                                                           PRNTRLI       52     A     
 PRNTRLI   22       FORMAT(Z7)                                                             PRNTRLI       53     A     
 PRNTRLI            GO TO 25                                                               PRNTRLI       54     A     
 PRNTRLI                                                                                   PRNTRLI       55     A     
 PRNTRLI   23       PRINT 24                                                               PRNTRLI       56     A     
 PRNTRLI   24       FORMAT(7X)                                                             PRNTRLI       57     A     
 PRNTRLI                                                                                   PRNTRLI       58     A     
 PRNTRLI   25       IF( RL2 .EQ. 0 ) GO TO 100                                             PRNTRLI       59     A     
 PRNTRLI            CAV = CA(RL2)                                                          PRNTRLI       60     A     
 PRNTRLI            RFV = RF(RL2)                                                          PRNTRLI       61     A     
 PRNTRLI            H2V = 0                                                                PRNTRLI       62     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3567    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTRLI 
  
 PRNTRLI            GO TO 39                                                               PRNTRLI       63     A     
 PRNTRLI                                                                                   PRNTRLI       64     A     
 PRNTRLI  **        TYPE II INSTRUCTION                                                    PRNTRLI       65     A     
 PRNTRLI                                                                                   PRNTRLI       66     A     
 PRNTRLI   30       INV = IN(RLI)                                                          PRNTRLI       67     A     
 PRNTRLI            PRINT 31,NAM,RIV,INV                                                   PRNTRLI       68     A     
 PRNTRLI   31       FORMAT(2X,A4,Z6,Z7,*B*)                                                PRNTRLI       69     A     
 PRNTRLI                                                                                   PRNTRLI       70     A     
 PRNTRLI            SOX = SO(RLI)                                                          PRNTRLI       71     A     
 PRNTRLI            IF( SOX. EQ. 0 ) GO TO 100                                             PRNTRLI       72     A     
 PRNTRLI            INV = FIELD(SOX,8,2)                                                   PRNTRLI       73     A     
 PRNTRLI                               SOX = SHIFT( 2R0  + (300B.A.SOX) , 12 ) .O.         PRNTRLI       74     A     
 PRNTRLI       .           ( RTAB( (SOX.A.70B)/8 + 1 ) +(SOX.A.7B) )                       PRNTRLI       75     A     
 PRNTRLI            PRINT 32,INV,SOX                                                       PRNTRLI       76     A     
 PRNTRLI   32       FORMAT(Z3,1X,R4,4X)                                                    PRNTRLI       77     A     
 PRNTRLI                                                                                   PRNTRLI       78     A     
 PRNTRLI            IF( RL2 .EQ. 0 ) GO TO 100                                             PRNTRLI       79     A     
 PRNTRLI            RFV = RF(RL2)                                                          PRNTRLI       80     A     
 PRNTRLI            CAV = CA(RL2)                                                          PRNTRLI       81     A     
 PRNTRLI            H2V = 0                                                                PRNTRLI       82     A     
 PRNTRLI            PRINT 26                                                               PRNTRLI       83     A     
 PRNTRLI   26       FORMAT(10X)                                                            PRNTRLI       84     A     
 PRNTRLI            GO TO 40                                                               PRNTRLI       85     A     
 PRNTRLI                                                                                   PRNTRLI       86     A     
 PRNTRLI  **        TYPE III INSTRUCTION                                                   PRNTRLI       87     A     
 PRNTRLI                                                                                   PRNTRLI       88     A     
 PRNTRLI   33       CAV = CA(RL2)                                                          PRNTRLI       89     A     
 PRNTRLI            RFV = RF(RL2)                                                          PRNTRLI       90     A     
 PRNTRLI            IF( (NAM.A.MASK(12)) .NE. 2LJP ) GO TO 35                              PRNTRLI       91     A     
 PRNTRLI            I = NAM                                                                PRNTRLI       92     A     
 PRNTRLI            NAM = JPX(CAV+1)                                                       PRNTRLI       93     A     
 PRNTRLI            IF( I .EQ. 4LJPX  ) GO TO 34                                           PRNTRLI       94     A     
 PRNTRLI            NAM = JPBB(CAV+1)                                                      PRNTRLI       95     A     
 PRNTRLI   34       CAV = 0                                                                PRNTRLI       96     A     
 PRNTRLI                                                                                   PRNTRLI       97     A     
 PRNTRLI   35       PRINT 21,NAM,RIV,RFV                                                   PRNTRLI       98     A     
 PRNTRLI                                                                                   PRNTRLI       99     A     
 PRNTRLI            IF( KS(RLI(3)) .EQ. 0 ) GO TO 36                                       PRNTRLI      100     A     
 PRNTRLI            PRINT 135,CAV                                                          PRNTRLI      101     A     
 PRNTRLI   135      FORMAT(I6)                                                             PRNTRLI      102     A     
 PRNTRLI            GO TO 100                                                              PRNTRLI      103     A     
 PRNTRLI                                                                                   PRNTRLI      104     A     
 PRNTRLI   36       PRINT 24                                                               PRNTRLI      105     A     
 PRNTRLI            H2V = H2(RLI)                                                          PRNTRLI      106     A     
 PRNTRLI            INV = IN(RLI)/2                                                        PRNTRLI      107     A     
 PRNTRLI   38       IF( INV .EQ. 0 ) GO TO 39                                              PRNTRLI      108     A     
 PRNTRLI            PRINT 138,INV                                                          PRNTRLI      109     A     
 PRNTRLI   138      FORMAT(I5*U*)                                                          PRNTRLI      110     A     
 PRNTRLI            GO TO 40                                                               PRNTRLI      111     A     
 PRNTRLI                                                                                   PRNTRLI      112     A     
 PRNTRLI   39       PRINT 139                                                              PRNTRLI      113     A     
 PRNTRLI   139      FORMAT(6X)                                                             PRNTRLI      114     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3568    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTRLI 
  
 PRNTRLI                                                                                   PRNTRLI      115     A     
 PRNTRLI  *         PRINT *IH* WORD - * IH +CA  RF -H2 *                                   PRNTRLI      116     A     
 PRNTRLI   40       IHV = IH(RL2)                                                          PRNTRLI      117     A     
 PRNTRLI            IF = SHIFT(IHV,-15)                                                    PRNTRLI      118     A     
 PRNTRLI            IF( IF .NE. 0 ) GO TO 41                                               PRNTRLI      119     A     
 PRNTRLI            IHV = IHV .A. 7777B                                                    PRNTRLI      120     A     
 PRNTRLI            SYV = 7L                                                               PRNTRLI      121     A     
 PRNTRLI            IF( RFV .EQ. 1 ) SYV = 7L -A0-                                         PRNTRLI      122     A     
 PRNTRLI            IF( IHV .NE. 0 ) SYV = SYM(IHV)                                        PRNTRLI      123     A     
 PRNTRLI            IF( (SYV.A..N.MASK(36)) .EQ. 0 ) SYV = SYV.O.4R                        PRNTRLI      124     A     
 PRNTRLI            PRINT 140,SYV                                                          PRNTRLI      125     A     
 PRNTRLI   140      FORMAT(2X,A7)                                                          PRNTRLI      126     A     
 PRNTRLI            GO TO 42                                                               PRNTRLI      127     A     
 PRNTRLI                                                                                   PRNTRLI      128     A     
 PRNTRLI   41       PRINT 141,PTAB(IF),IHV                                                 PRNTRLI      129     A     
 PRNTRLI   141      FORMAT(2X,A3,O4)                                                       PRNTRLI      130     A     
 PRNTRLI                                                                                   PRNTRLI      131     A     
 PRNTRLI   42       IF( (CAV+RFV/2) .EQ. 0 ) GO TO 45                                      PRNTRLI      132     A     
 PRNTRLI            PRINT 142,CAV                                                          PRNTRLI      133     A     
 PRNTRLI   142      FORMAT(*+*O6)                                                          PRNTRLI      134     A     
 PRNTRLI                                                                                   PRNTRLI      135     A     
 PRNTRLI            IF( RFV/2 .EQ. 0 ) GO TO 45                                            PRNTRLI      136     A     
 PRNTRLI            PRINT 143,RFV                                                          PRNTRLI      137     A     
 PRNTRLI   143      FORMAT(*  R*O6)                                                        PRNTRLI      138     A     
 PRNTRLI                                                                                   PRNTRLI      139     A     
 PRNTRLI   45       IF( H2V .EQ. 0 ) GO TO 100                                             PRNTRLI      140     A     
 PRNTRLI            SYV = SYM(H2V)                                                         PRNTRLI      141     A     
 PRNTRLI            PRINT 145,SYV                                                          PRNTRLI      142     A     
 PRNTRLI   145      FORMAT(*  -*A7)                                                        PRNTRLI      143     A     
 PRNTRLI            GO TO 100                                                              PRNTRLI      144     A     
 PRNTRLI                                                                                   PRNTRLI      145     A     
 PRNTRLI  **        TYPE IV INSTRUCTION                                                    PRNTRLI      146     A     
 PRNTRLI                                                                                   PRNTRLI      147     A     
 PRNTRLI   50       CAV = IN(RLI)                                                          PRNTRLI      148     A     
 PRNTRLI            IHV = IH(RLI)                                                          PRNTRLI      149     A     
 PRNTRLI            INV = H2(RLI)                                                          PRNTRLI      150     A     
 PRNTRLI            IF( OCV .NE. 2 ) GO TO 52                                              PRNTRLI      151     A     
 PRNTRLI  *                                          BOS                                   PRNTRLI      152     A     
 PRNTRLI            PRINT 51,CAV,IHV,INV                                                   PRNTRLI      153     A     
 PRNTRLI   51       FORMAT(* STMT*I5,Z6*B*Z2)                                              PRNTRLI      154     A     
 PRNTRLI            GO TO 60                                                               PRNTRLI      155     A     
 PRNTRLI                                                                                   PRNTRLI      156     A     
 PRNTRLI   52       IF( OCV .NE. 3 ) GO TO 54                                              PRNTRLI      157     A     
 PRNTRLI  *                                          EOS                                   PRNTRLI      158     A     
 PRNTRLI            PRINT 53,NAM,IHV,INV                                                   PRNTRLI      159     A     
 PRNTRLI   53       FORMAT(2X,A4,Z10*B*Z2)                                                 PRNTRLI      160     A     
 PRNTRLI            GO TO 60                                                               PRNTRLI      161     A     
 PRNTRLI                                                                                   PRNTRLI      162     A     
 PRNTRLI  *                                  LAB,UJP,RJX,EOQ, ETC                          PRNTRLI      163     A     
 PRNTRLI   54       IF = SHIFT(IHV,-15)                                                    PRNTRLI      164     A     
 PRNTRLI            IF( IF .EQ. 0 ) GO TO 56                                               PRNTRLI      165     A     
 PRNTRLI            PRINT 55,NAM,PTAB(IF),IHV,CAV                                          PRNTRLI      166     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3569    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTRLI 
  
 PRNTRLI            GO TO 60                                                               PRNTRLI      167     A     
 PRNTRLI   55       FORMAT(2X,A4,3X,A3,O4,* / *O6)                                         PRNTRLI      168     A     
 PRNTRLI                                                                                   PRNTRLI      169     A     
 PRNTRLI   56       SYV = 7L                                                               PRNTRLI      170     A     
 PRNTRLI            IF( IHV .NE. 0 ) SYV = SYM(IHV)                                        PRNTRLI      171     A     
 PRNTRLI            IF( FIELD(SYV,0,24) .EQ. 0 ) SYV = SYV .O. 4R                          PRNTRLI      172     A     
 PRNTRLI            PRINT 57,NAM,SYV,CAV                                                   PRNTRLI      173     A     
 PRNTRLI   57       FORMAT(2X,A4,3X,A7,* / *O6)                                            PRNTRLI      174     A     
 PRNTRLI                                                                                   PRNTRLI      175     A     
 PRNTRLI   60       IF( RL2 .EQ. 0 ) GO TO 100                                             PRNTRLI      176     A     
 PRNTRLI            RIV = FIELD(RL2,0,18)                                                  PRNTRLI      177     A     
 PRNTRLI            RJV = FIELD(RL2,18,18)                                                 PRNTRLI      178     A     
 PRNTRLI            RKV = FIELD(RL2,36,18)                                                 PRNTRLI      179     A     
 PRNTRLI            OCV = FIELD(RL2,54,6)                                                  PRNTRLI      180     A     
 PRNTRLI            PRINT 61,OCV,RKV,RJV,RIV                                               PRNTRLI      181     A     
 PRNTRLI   61       FORMAT(4X,O2,3Z6)                                                      PRNTRLI      182     A     
 PRNTRLI                                                                                   PRNTRLI      183     A     
 PRNTRLI   100      PRINT 101                                                              PRNTRLI      184     A     
 PRNTRLI   101      FORMAT(/)                                                              PRNTRLI      185     A     
 PRNTRLI            RETURN                                                                 PRNTRLI      186     A     
 PRNTRLI                                                                                   PRNTRLI      187     A     
 PRNTRLI            END                                                                    PRNTRLI      188     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PRNTRLI 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PRNTRLI                    188       187
          FCC0448                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTMCG 
  
 PRNTMCG  *DECK     PRNTMCG                                                                PRNTMCG        1     A     
 PRNTMCG            SUBROUTINE PRNT MCG( TXT , INDX , LAB )                                PRNTMCG        2     A     
 PRNTMCG                                                                                   PRNTMCG        3     A     
 PRNTMCG  **        PRNT MCG - *MCG* DEBUGGING PRINT ROUTINES                              PRNTMCG        4     A     
 PRNTMCG                                                                                   PRNTMCG        5     A     
 PRNTMCG            IMPLICIT INTEGER(A-Z)                                                  PRNTMCG        6     A     
 PRNTMCG            INTEGER TXT(1)                                                         PRNTMCG        7     A     
 PRNTMCG            COMMON/MCG/NINST,NSTORES,SEQTIME,ICL,RMR,DUMMY,PBI(2),DT,IWT           PRNTMCG        8     A     
 PRNTMCG            COMMON/MCG/AXR,ALR,STL,RVT(24),DUM2,TRA(24),ARA(8),TFU(12)             PRNTMCG        9     A     
 PRNTMCG            COMMON/MCG/LST(2),LXR,NGX,T,PC,TRS                                     PRNTMCG       10     A     
 PRNTMCG            COMMON/MCG/ JLR,TLAB,TJP,EOQA,IIP(2),EIW,RBV(24)                       PRNTMCG       11     A     
 PRNTMCG                                                                                   PRNTMCG       12     A     
 PRNTMCG            COMMON/LINE/LINECM(2)                                                  PRNTMCG       13     A     
 PRNTMCG            INTEGER REGS(24),FUNITS(2,9),XREGT(2,8)                                PRNTMCG       14     A     
 PRNTMCG            INTEGER SUBTTL(6)                                                      PRNTMCG       15     A     
 PRNTMCG            DATA SUBTTL(1) /                                                       PRNTMCG       16     A     
 PRNTMCG       .58L  PC  LATE     T   TIS   TEX   TRA   TFU  USES  REG  INST     /         PRNTMCG       17     A     
 PRNTMCG            DATA REGS / 2RB0,2RB1,2RB2,2RB3,2RB4,2RB5,2RB6,2RB7,                   PRNTMCG       18     A     
 PRNTMCG       .    2RA0,2RA1,2RA2,2RA3,2RA4,2RA5,2RA6,2RA7,2RX0,2RX1,2RX2,2RX3,           PRNTMCG       19     A     
 PRNTMCG       .    2RX4,2RX5,2RX6,2RX7    /                                               PRNTMCG       20     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3570    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTMCG 
  
 PRNTMCG            DATA (FUNITS(1,I),I=1,9) /5L BOOL , 5L SHFT , 5L IADD ,                PRNTMCG       21     A     
 PRNTMCG       .    5L FADD , 5L MULT , 5L MUL2 , 5L DIV  , 5L INC1 , 5L INC2  /           PRNTMCG       22     A     
 PRNTMCG                                                                                   PRNTMCG       23     A     
 PRNTMCG            FIELD(X,P,L) = SHIFT(X,60-P).A. .N.MASK(60-L)                          PRNTMCG       24     A     
 PRNTMCG                                                                                   PRNTMCG       25     A     
 PRNTMCG            LINK(X) = FIELD(X,0,18)                                                PRNTMCG       26     A     
 PRNTMCG            RANK(X) = FIELD(X,18,15)                                               PRNTMCG       27     A     
 PRNTMCG                                                                                   PRNTMCG       28     A     
 PRNTMCG            OC(X) = FIELD(X,48,7)                                                  PRNTMCG       29     A     
 PRNTMCG            RI(X) = FIELD(X,0,16)                                                  PRNTMCG       30     A     
 PRNTMCG            TI(X) = FIELD(X,0,18)                                                  PRNTMCG       31     A     
 PRNTMCG            TE(X) = FIELD(X,18,18)                                                 PRNTMCG       32     A     
 PRNTMCG            REG(X) = FIELD(X,48,6)                                                 PRNTMCG       33     A     
 PRNTMCG            FU(X)  = FIELD(X,48,6)                                                 PRNTMCG       34     A     
 PRNTMCG            LI(X) = FIELD(X,0,18)                                                  PRNTMCG       35     A     
 PRNTMCG                                                                                   PRNTMCG       36     A     
 PRNTMCG            USES(X) = FIELD(X,48,9)                                                PRNTMCG       37     A     
 PRNTMCG            FT(X) = FIELD(X,53,5)                                                  PRNTMCG       38     A     
 PRNTMCG            SZ(X) = FIELD(X,23,2)                                                  PRNTMCG       39     A     
 PRNTMCG                                                                                   PRNTMCG       40     A     
 PRNTMCG            GO TO ( 1 , 100 , 200 , 300 , 400 , 500 ) INDX                         PRNTMCG       41     A     
 PRNTMCG                                                                                   PRNTMCG       42     A     
 PRNTMCG  **        PRINT OUT THE ISSUE CANIDATE LIST                                      PRNTMCG       43     A     
 PRNTMCG                                                                                   PRNTMCG       44     A     
 PRNTMCG   1        IF( ICL .NE. 0 ) GO TO 10                                              PRNTMCG       45     A     
 PRNTMCG            PRINT 5,LAB                                                            PRNTMCG       46     A     
 PRNTMCG   5        FORMAT(A6," ** ERROR **, ICL = 0"/)                                    PRNTMCG       47     A     
 PRNTMCG            EOQA = -EOQA                                                           PRNTMCG       48     A     
 PRNTMCG            RETURN                                                                 PRNTMCG       49     A     
 PRNTMCG                                                                                   PRNTMCG       50     A     
 PRNTMCG   10       LINECM = LINECM(2)                                                     PRNTMCG       51     A     
 PRNTMCG            PRINT 11,LAB,ICL                                                       PRNTMCG       52     A     
 PRNTMCG   11       FORMAT(/A6* ICL =*Z6)                                                  PRNTMCG       53     A     
 PRNTMCG            J = 1                                                                  PRNTMCG       54     A     
 PRNTMCG  *         RL,RT,RR = RANK LAST, RANK THIS, RANK REVERSAL FLAG (*ERROR*)          PRNTMCG       55     A     
 PRNTMCG            RL = RR = 0                                                            PRNTMCG       56     A     
 PRNTMCG            K = ICL                                                                PRNTMCG       57     A     
 PRNTMCG   20       K = LINK( TXT(K+4) )                                                   PRNTMCG       58     A     
 PRNTMCG            IF( K .EQ. 0 ) GO TO 30                                                PRNTMCG       59     A     
 PRNTMCG            RT = RANK( TXT(K+4) )                                                  PRNTMCG       60     A     
 PRNTMCG            IF( RT .LT. RL ) RR = K                                                PRNTMCG       61     A     
 PRNTMCG            RL = RT                                                                PRNTMCG       62     A     
 PRNTMCG            PRINT 21,K                                                             PRNTMCG       63     A     
 PRNTMCG   21       FORMAT(Z6)                                                             PRNTMCG       64     A     
 PRNTMCG            J = J + 1                                                              PRNTMCG       65     A     
 PRNTMCG            IF( J .LT. 15 ) GO TO 20                                               PRNTMCG       66     A     
 PRNTMCG            J = 0                                                                  PRNTMCG       67     A     
 PRNTMCG            PRINT 22                                                               PRNTMCG       68     A     
 PRNTMCG   22       FORMAT(/12X)                                                           PRNTMCG       69     A     
 PRNTMCG            IF( RR .EQ. 0 ) GO TO 20                                               PRNTMCG       70     A     
 PRNTMCG                                                                                   PRNTMCG       71     A     
 PRNTMCG   30       IF( J .NE. 0 ) PRINT 31                                                PRNTMCG       72     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3571    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTMCG 
  
 PRNTMCG   31       FORMAT(/)                                                              PRNTMCG       73     A     
 PRNTMCG            IF( RR .EQ. 0 ) GO TO 40                                               PRNTMCG       74     A     
 PRNTMCG            PRINT 32,RR                                                            PRNTMCG       75     A     
 PRNTMCG   32       FORMAT(6X,O6,* IS IN WRONG ORDER, RANK REVERSAL OR LOOP IN ICL         PRNTMCG       76     A     
 PRNTMCG       .*/)                                                                        PRNTMCG       77     A     
 PRNTMCG            EOQA = -EOQA                                                           PRNTMCG       78     A     
 PRNTMCG            NRE = NRE + 1                                                          PRNTMCG       79     A     
 PRNTMCG            IF( NRE .LE. 5 ) CALL REMARK(28L -RANK REVERSAL ERROR-       )         PRNTMCG       80     A     
 PRNTMCG                                                                                   PRNTMCG       81     A     
 PRNTMCG   40       LINECM = 0                                                             PRNTMCG       82     A     
 PRNTMCG            RETURN                                                                 PRNTMCG       83     A     
 PRNTMCG                                                                                   PRNTMCG       84     A     
 PRNTMCG  **        PRINT THE ISSUED INSTRUCTION                                           PRNTMCG       85     A     
 PRNTMCG                                                                                   PRNTMCG       86     A     
 PRNTMCG   100      LIX = LI( PBI(2) )                                                     PRNTMCG       87     A     
 PRNTMCG            LIX = SHIFT( SHIFT(LIX,42) , -42)                                      PRNTMCG       88     A     
 PRNTMCG                                                                                   PRNTMCG       89     A     
 PRNTMCG   101      OCV = OC( TXT(LIX+1) )                                                 PRNTMCG       90     A     
 PRNTMCG            U = USES( TXT(LIX+4) )                                                 PRNTMCG       91     A     
 PRNTMCG            OCV = OC( TXT(LIX+1) )                                                 PRNTMCG       92     A     
 PRNTMCG            IWD = 0                                                                PRNTMCG       93     A     
 PRNTMCG            LINECM = LINECM(2)                                                     PRNTMCG       94     A     
 PRNTMCG            IF( OCV .GT. 7 ) GO TO 110                                             PRNTMCG       95     A     
 PRNTMCG  *                            PRINT OUT TIME FOR PSEUDO INSTRUCTION               PRNTMCG       96     A     
 PRNTMCG            IF( HEADER .NE. 0  ) GO TO 104                                         PRNTMCG       97     A     
 PRNTMCG            PRINT 111,PC,IWD,T                                                     PRNTMCG       98     A     
 PRNTMCG            PRINT 102                                                              PRNTMCG       99     A     
 PRNTMCG   102      FORMAT(29X)                                                            PRNTMCG      100     A     
 PRNTMCG            GO TO 120                                                              PRNTMCG      101     A     
 PRNTMCG                                                                                   PRNTMCG      102     A     
 PRNTMCG   104      PRINT 103,PC,T,U                                                       PRNTMCG      103     A     
 PRNTMCG   103      FORMAT(I4,6X,I6,24X,I6,5X)                                             PRNTMCG      104     A     
 PRNTMCG            GO TO 120                                                              PRNTMCG      105     A     
 PRNTMCG                                                                                   PRNTMCG      106     A     
 PRNTMCG   110      TIS = TI(PBI)                                                          PRNTMCG      107     A     
 PRNTMCG            TEX = TE(PBI)                                                          PRNTMCG      108     A     
 PRNTMCG            FUO = FU(PBI(2))                                                       PRNTMCG      109     A     
 PRNTMCG            REGNO = REG(PBI)                                                       PRNTMCG      110     A     
 PRNTMCG            TRAT = TRA(REGNO+1)                                                    PRNTMCG      111     A     
 PRNTMCG            TFUA = TFU(FUO+1)                                                      PRNTMCG      112     A     
 PRNTMCG            REGNO = REGS(REGNO+1)                                                  PRNTMCG      113     A     
 PRNTMCG            IWD = TIS - RANK( TXT(LIX+4) )                                         PRNTMCG      114     A     
 PRNTMCG            MAXEST = MAX0( MAXEST , RANK(TXT(LIX+4))-T )                           PRNTMCG      115     A     
 PRNTMCG                                                                                   PRNTMCG      116     A     
 PRNTMCG            IF( HEADER. EQ. 0 ) GO TO 115                                          PRNTMCG      117     A     
 PRNTMCG            PRINT 114,PC,IWD,T,TIS,TEX,TRAT,TFUA,U,REGNO                           PRNTMCG      118     A     
 PRNTMCG   114      FORMAT(I4,7I6,3X,R2)                                                   PRNTMCG      119     A     
 PRNTMCG            GO TO 120                                                              PRNTMCG      120     A     
 PRNTMCG                                                                                   PRNTMCG      121     A     
 PRNTMCG   115      PRINT 111,PC,IWD,T,TIS,TEX,TRAT,TFUA,U,REGNO                           PRNTMCG      122     A     
 PRNTMCG   111      FORMAT(I4,* T,TI,TE,TRA,TFU,USES *7I6,3X,R2)                           PRNTMCG      123     A     
 PRNTMCG                                                                                   PRNTMCG      124     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3572    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTMCG 
  
 PRNTMCG   120      CALL PRNTRLI( TXT( LIX+1 ) )                                           PRNTMCG      125     A     
 PRNTMCG            IF( OCV .NE. 10B ) GO TO 240                                           PRNTMCG      126          I
          -FCC1555X 
 PRNTMCG            LINECM = 0                                                             FCC1555X      90     A     
 PRNTMCG  C         CHECK FOR XMT/SA WITH RI = 0 AND SKIP CHECK IF SO                      FCC1555X      91     A     
 PRNTMCG            IF( RI( TXT(LIX+1) ) .NE. 0 ) GO TO 240                                PRNTMCG      127     A     
 PRNTMCG            LINECM = 0                                                             PRNTMCG      128          I
          -FCC1555X 
 PRNTMCG            IF( OCV .EQ. 10B ) RETURN                                              FCC1555X      92     A     
 PRNTMCG            IF( OCV .NE. 60B ) GO TO 240                                           FCC1555X      93     A     
 PRNTMCG            RETURN                                                                 PRNTMCG      129     A     
 PRNTMCG                                                                                   PRNTMCG      130     A     
 PRNTMCG  **        PRINT OUT REGISTER USEAGE INFO                                         PRNTMCG      131     A     
 PRNTMCG   200      CONTINUE                                                               PRNTMCG      132     A     
 PRNTMCG            PRINT 201,REGS                                                         PRNTMCG      133     A     
 PRNTMCG   201      FORMAT(4X,24(3X,R2))                                                   PRNTMCG      134     A     
 PRNTMCG            LINECM = LINECM(2)                                                     PRNTMCG      135     A     
 PRNTMCG                                                                                   PRNTMCG      136     A     
 PRNTMCG  *         PRINT R-NUMBERS IN REGISTERS                                           PRNTMCG      137     A     
 PRNTMCG                                                                                   PRNTMCG      138     A     
 PRNTMCG            PRINT 202                                                              PRNTMCG      139     A     
 PRNTMCG   202      FORMAT(*  RI*)                                                         PRNTMCG      140     A     
 PRNTMCG            DO 220 I = 1,24                                                        PRNTMCG      141     A     
 PRNTMCG            IF( RVT(I) .NE. 0 ) GO TO 215                                          PRNTMCG      142     A     
 PRNTMCG            PRINT 211                                                              PRNTMCG      143     A     
 PRNTMCG   211      FORMAT(5X)                                                             PRNTMCG      144     A     
 PRNTMCG            GO TO 220                                                              PRNTMCG      145     A     
 PRNTMCG   215      PRINT 216,RVT(I)                                                       PRNTMCG      146     A     
 PRNTMCG   216      FORMAT(Z5)                                                             PRNTMCG      147     A     
 PRNTMCG   220      CONTINUE                                                               PRNTMCG      148     A     
 PRNTMCG                                                                                   PRNTMCG      149     A     
 PRNTMCG  *         PRINT REMAINING USES OF RI IN REG                                      PRNTMCG      150     A     
 PRNTMCG                                                                                   PRNTMCG      151     A     
 PRNTMCG            PRINT 221                                                              PRNTMCG      152     A     
 PRNTMCG   221      FORMAT(/*  USES D *)                                                   PRNTMCG      153     A     
 PRNTMCG            DO 230 I = 2,24                                                        PRNTMCG      154     A     
 PRNTMCG            IF( RVT(I) .NE. 0 ) GO TO 225                                          PRNTMCG      155     A     
 PRNTMCG            PRINT 222                                                              PRNTMCG      156     A     
 PRNTMCG   222      FORMAT(5X)                                                             PRNTMCG      157     A     
 PRNTMCG            GO TO 230                                                              PRNTMCG      158     A     
 PRNTMCG                                                                                   PRNTMCG      159     A     
 PRNTMCG   225      U = USES( TXT( RVT(I) + 4 ) )                                          PRNTMCG      160     A     
 PRNTMCG            PRINT 226,U                                                            PRNTMCG      161     A     
 PRNTMCG   226      FORMAT(I5)                                                             PRNTMCG      162     A     
 PRNTMCG   230      CONTINUE                                                               PRNTMCG      163     A     
 PRNTMCG            PRINT 31                                                               PRNTMCG      164     A     
 PRNTMCG   240      LINECM = 0                                                             PRNTMCG      165     A     
 PRNTMCG                                                                                   PRNTMCG      166     A     
 PRNTMCG  *         NOW RUN SOME CONSISENCY CHECKS                                         PRNTMCG      167     A     
 PRNTMCG  *         REG( TXT(RVT(I))) = I - 1                                              PRNTMCG      168     A     
 PRNTMCG                                                                                   PRNTMCG      169     A     
 PRNTMCG            RUSE = 0                                                               PRNTMCG      170     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3573    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTMCG 
  
 PRNTMCG            DO 250 I = 2,24                                                        PRNTMCG      171     A     
 PRNTMCG            IF( RVT(I) .EQ. 0 ) GO TO 250                                          PRNTMCG      172     A     
 PRNTMCG            REGNO = LINK( TXT( RVT(I) + 4 ) )                                      PRNTMCG      173     A     
 PRNTMCG            IF( REGNO.EQ. I - 1 ) GO TO 250                                        PRNTMCG      174     A     
 PRNTMCG            IF( REGNO .EQ. 10B ) GO TO 250                                         PRNTMCG      175     A     
 PRNTMCG            K = RVT(I)                                                             PRNTMCG      176     A     
 PRNTMCG            PRINT 246,I-1,REGNO,TXT(K+4),K                                         PRNTMCG      177     A     
 PRNTMCG   246      FORMAT("  ERROR, REG IN RVT("O2") IS "O2,2O22)                         PRNTMCG      178     A     
 PRNTMCG            RUSE = 1                                                               PRNTMCG      179     A     
 PRNTMCG   250      CONTINUE                                                               PRNTMCG      180     A     
 PRNTMCG                                                                                   PRNTMCG      181     A     
 PRNTMCG                                                                                   PRNTMCG      182     A     
 PRNTMCG  *         MAKE SURE THAT *AXR* IS CORRECT                                        PRNTMCG      183     A     
 PRNTMCG                                                                                   PRNTMCG      184     A     
 PRNTMCG            DO 260 I = 2,24                                                        PRNTMCG      185     A     
 PRNTMCG            IF( RBV(I) .EQ. 0 ) GO TO 260                                          PRNTMCG      186     A     
 PRNTMCG            BIT = AXR .A. RBV(I)                                                   PRNTMCG      187     A     
 PRNTMCG            IF( RVT(I) .NE. 0 ) GO TO 255                                          PRNTMCG      188     A     
 PRNTMCG            IF( BIT .NE. 0 ) GO TO 260                                             PRNTMCG      189     A     
 PRNTMCG            PRINT 251,I-1                                                          PRNTMCG      190     A     
 PRNTMCG   251      FORMAT(" ** ERROR **, RVT("O2") = 0 AND REG NOT AVAIL")                PRNTMCG      191     A     
 PRNTMCG            RUSE = 1                                                               PRNTMCG      192     A     
 PRNTMCG            GO TO 260                                                              PRNTMCG      193     A     
 PRNTMCG                                                                                   PRNTMCG      194     A     
 PRNTMCG   255      IF( BIT .EQ. 0 ) GO TO 260                                             PRNTMCG      195     A     
 PRNTMCG            PRINT 256,I-1                                                          PRNTMCG      196     A     
 PRNTMCG   256      FORMAT(" **ERROR **, RVT("O2*) " 0 AND REG IS AVAIL*)                  PRNTMCG      197     A     
 PRNTMCG            RUSE = 1                                                               PRNTMCG      198     A     
 PRNTMCG   260      CONTINUE                                                               PRNTMCG      199     A     
 PRNTMCG            IF( RUSE .EQ. 0 ) RETURN                                               PRNTMCG      200     A     
 PRNTMCG            NRUSEE = NRUSEE + 1                                                    PRNTMCG      201     A     
 PRNTMCG            IF( NRUSEE .LE. 5 ) CALL REMARK( 22L -REG USEAGE ERROR-      )         PRNTMCG      202     A     
 PRNTMCG            RETURN                                                                 PRNTMCG      203     A     
 PRNTMCG                                                                                   PRNTMCG      204     A     
 PRNTMCG  **        PRINT FUNIT AND X-REG AVAIL TIMES                                      PRNTMCG      205     A     
 PRNTMCG                                                                                   PRNTMCG      206     A     
 PRNTMCG   300      DO 310 I = 1,9                                                         PRNTMCG      207     A     
 PRNTMCG   310      FUNITS(2,I) = TFU(I+2)                                                 PRNTMCG      208     A     
 PRNTMCG            DO 320 I = 1,8                                                         PRNTMCG      209     A     
 PRNTMCG            XREGT(1,I) = REGS(I+16)                                                PRNTMCG      210     A     
 PRNTMCG   320      XREGT(2,I) = TRA(I+16)                                                 PRNTMCG      211     A     
 PRNTMCG            PRINT 321,LAB,FUNITS,XREGT,LST                                         PRNTMCG      212     A     
 PRNTMCG   321      FORMAT(A6, 9(A5,I5)/6X,8(2X,R2,I6)," LST "I5," LLT"I6)                 PRNTMCG      213     A     
 PRNTMCG            RETURN                                                                 PRNTMCG      214     A     
 PRNTMCG                                                                                   PRNTMCG      215     A     
 PRNTMCG  **        FINAL CHECK                                                            PRNTMCG      216     A     
 PRNTMCG  *         ENSURE JLR,LXR,NSTORES = 0 AND RVT(I) = 0 FOR I = 0 TO 23              PRNTMCG      217     A     
 PRNTMCG  *         PRINT OUT SEQTIME AND MCG TIME                                         PRNTMCG      218     A     
 PRNTMCG                                                                                   PRNTMCG      219     A     
 PRNTMCG   400      LINECM = LINECM(2)                                                     PRNTMCG      220     A     
 PRNTMCG            CALL SETST( 0 )                                                        PRNTMCG      221     A     
 PRNTMCG            PRINT 401,MAXEST,DT                                                    PRNTMCG      222     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3574    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRNTMCG 
  
 PRNTMCG   401      FORMAT(/* MCG SUMMARY, MAX(EST),DELTA T =*2I4,2X)                      PRNTMCG      223     A     
 PRNTMCG                                                                                   PRNTMCG      224     A     
 PRNTMCG            IF( NSTORES .GE. 0 ) GO TO 403                                         PRNTMCG      225     A     
 PRNTMCG            PRINT 402,"N.ST = ", -NSTORES                                          PRNTMCG      226     A     
 PRNTMCG   402      FORMAT(A10,O20)                                                        PRNTMCG      227     A     
 PRNTMCG   403      IF( JLR .EQ. 0 ) GO TO 404                                             PRNTMCG      228     A     
 PRNTMCG            PRINT 402, "  JLR = ",JLR                                              PRNTMCG      229     A     
 PRNTMCG   404      IF( LXR .EQ. 0 ) GO TO 405                                             PRNTMCG      230     A     
 PRNTMCG            PRINT 402, "  LXR = ",LXR                                              PRNTMCG      231     A     
 PRNTMCG   405      IF( (AXR.A.377777B) .EQ. 377777B ) GO TO 410                           PRNTMCG      232     A     
 PRNTMCG            PRINT 402 , "  AXR = " , AXR                                           PRNTMCG      233     A     
 PRNTMCG                                                                                   PRNTMCG      234     A     
 PRNTMCG   410      RVTE = 0                                                               PRNTMCG      235     A     
 PRNTMCG            DO 415 I = 1,24                                                        PRNTMCG      236     A     
 PRNTMCG   415      RVTE = RVTE + RVT(I)                                                   PRNTMCG      237     A     
 PRNTMCG            IF( RVTE .EQ. 0 ) GO TO 420                                            PRNTMCG      238     A     
 PRNTMCG            PRINT 411                                                              PRNTMCG      239     A     
 PRNTMCG   411      FORMAT(*  RVT " 0 *)                                                   PRNTMCG      240     A     
 PRNTMCG                                                                                   PRNTMCG      241     A     
 PRNTMCG  *                COMPUTE TIME FOR A SEQUENTIAL MACHINE                           PRNTMCG      242     A     
 PRNTMCG   420      T64 = -1                                                               PRNTMCG      243     A     
 PRNTMCG            DO 425 I = 2,NINST                                                     PRNTMCG      244     A     
 PRNTMCG   425      T64 = T64 + FT( TXT(4*I-1) )                                           PRNTMCG      245     A     
 PRNTMCG                                                                                   PRNTMCG      246     A     
 PRNTMCG   430      PRINT 426, SEQTIME,T64,T                                               PRNTMCG      247     A     
 PRNTMCG   426      FORMAT(/" *********"," PERT TIME, T(6400), T = ",3I6/)                 PRNTMCG      248     A     
 PRNTMCG            LINECM = 0                                                             PRNTMCG      249     A     
 PRNTMCG            HEADER = 0                                                             PRNTMCG      250     A     
 PRNTMCG            RETURN                                                                 PRNTMCG      251     A     
 PRNTMCG                                                                                   PRNTMCG      252     A     
 PRNTMCG  **        HEAD OPTION - SET LISTING HEADER FLAG AND SUB TITLE                    PRNTMCG      253     A     
 PRNTMCG                                                                                   PRNTMCG      254     A     
 PRNTMCG   500      HEADER = 1                                                             PRNTMCG      255     A     
 PRNTMCG            CALL SETST( 6 , SUBTTL )                                               PRNTMCG      256     A     
 PRNTMCG            LIX = 0                                                                PRNTMCG      257     A     
 PRNTMCG            MAXEST = 0                                                             PRNTMCG      258     A     
 PRNTMCG            GO TO 101                                                              PRNTMCG      259     A     
 PRNTMCG                                                                                   PRNTMCG      260     A     
 PRNTMCG            END                                                                    PRNTMCG      261     A     
 PRNTMCG  *ENDIF                                                                           PRNTMCG      262     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PRNTMCG 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PRNTMCG                    262       260
          FCC1555X                     4         4
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE      *DECK     PRE                                                                    PRE            1     A     
 PRE                IDENT  PRE                                                             PRE            2     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3575    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE       PRE      TITLE  PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                  PRE            3     A     
 PRE      *CALL     SSTCALL                                                                PRE            4     A     
 PRE       B=PRE    RPVDEF                                                                 PRE            5     A     
 PRE                PASS2TM                                                                PRE            6     A     
 PRE                                                                                       PRE            7     A     
 PRE       M.DOBGN  EQU    2           DO BEGIN MACRO NUMBER                               PRE            8     A     
 PRE                                                                                       PRE            9     A     
 PRE      **        PRE - SEQUENCE ACCUMULATION AND PRE PROCESSING                         PRE           10     A     
 PRE                                                                                       PRE           11     A     
 PRE       M.BLK    EQU    2004B       MAX BLOCK SIZE ( IF EXT REFS )                      PRE           12     A     
 PRE                                                                                       PRE           13     A     
 PRE                EXT    RRL,RLI,MACTYP,MACWDS,MACINS,O.EMRB,O.MAC,F.RDT                 PRE           14     A     
 PRE                EXT    OPTLVL,RSELECT,O.LOOP,L.LOOP,O.GLT,N.GL,O.API,N.AP              PRE           15     A     
 PRE                EXT    N.GL0,OPT2,CBN,O.LCM                                            PRE           16     A     
 PRE                EXT    LM,MU,TOV,O.TEND                                                PRE           17     A     
 PRE                                                                                       PRE           18     A     
 PRE                TABLES TXT,CFT,IOL,APL,VDT,ALS,RND                                     PRE           19     A     
 PRE                TABLES MOD                                                             PRE           20     A     
 PRE                                                                                       PRE           21     A     
 PRE      **        FLAGS                                                                  PRE           22     A     
 PRE                                                                                       PRE           23     A     
 PRE                ENTRY  BRN                                                             PRE           24     A     
 PRE       BRN      BSS    2           BASE/LAST R-NUMBERS OCCURING IN THE BLOCK           PRE           25     A     
 PRE                                                                                       PRE           26     A     
 PRE       LSN      ENTRY. 0           LAST STATEMENT NUMBER ENCOUNTERED                   PRE           27     A     
 PRE                                                                                       PRE           28     A     
 PRE       WB       ENTRY. 0           =1 IF IN A WELLBE LOOP, =1S59 IF OPT=0              PRE           29     A     
 PRE       M.TXT    CON    0           MAX *TXT* LENGTH ( WORKING STORAGE * 3/8 )          PRE           30     A     
 PRE       RS       CON    0           "0 IF RETURNS IN APLIST ( OPT = 2 )                 PRE           31     A     
 PRE       XR       ENTRY. 0           EXTERNAL REFS IN BLOCK / SEQUENCE                   PRE           32     A     
 PRE       PAPL     CON    0           PREVIOUS LENGTH OF *APL*                            PRE           33     A     
 PRE       PIOL     ENTRY. 0           PREVIOUS LENGTH OF *IOL*                            PRE           34     A     
 PRE       AI       SPACE  3                                                               PRE           35     A     
 PRE      **        AI. - APLIST INDEX TABLE ENTRY FORMAT                                  PRE           36     A     
 PRE                                                                                       PRE           37     A     
 PRE                DESCRIBE AI.,60                                                        PRE           38     A     
 PRE       EQV      DEFINE 1                                                               PRE           39     A     
 PRE                DEFINE 5                                                               PRE           40          I
          -FCC0672
 PRE       BASE     DEFINE 1           BASE MEMBER OF A CLASS OF EQUIV APLISTS             FCC0672       11     A     
 PRE                DEFINE 4                                                               FCC0672       12     A     
 PRE       LINK     DEFINE 18                                                              PRE           41     A     
 PRE       LEN      DEFINE 18                                                              PRE           42     A     
 PRE       INDX     DEFINE 18                                                              PRE           43     A     
 PRE                                                                                       PRE           44     A     
 PRE       BIAS     DEQU   LEN                                                             PRE           45     A     
 PRE       ORD      DEQU   INDX                                                            PRE           46     A     
 PRE       CFTE     SPACE  3,14                                                            PRE           47     A     
 PRE      **        CFTE - CONTROL FLOW TABLE ENTRY MACRO                                  PRE           48     A     
 PRE      *                                                                                PRE           49     A     
 PRE      *                FROM = BLOCK NUMBER OF *FROM* EDGE                              PRE           50     A     
 PRE      *                TO = BLOCK NUMBER / *IH* OF TARGET BLOCK                        PRE           51     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3576    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE      *                TYPE = *IH* IF *TO* IS AN IH AND THIS IS A JUMP EDGE.           PRE           52     A     
 PRE                                                                                       PRE           53     A     
 PRE       CFTE     MACRO  FROM,TO,TYP                                                     PRE           54     A     
 PRE                IFC    EQ,/FROM/CBN/,2                                                 PRE           55     A     
 PRE                SA1    CBN                                                             PRE           56     A     
 PRE                ELSE   1                                                               PRE           57     A     
 PRE                R=     X1,FROM                                                         PRE           58     A     
 PRE                R=     X2,TO                                                           PRE           59     A     
 PRE                LX1    CF.FROMP                                                        PRE           60     A     
 PRE                LX2    CF.TOP                                                          PRE           61     A     
 PRE                IFC    EQ,/TYP/IH/,3                                                   PRE           62     A     
 PRE                MX0    1                                                               PRE           63     A     
 PRE                LX0    1+CF.IHP                                                        PRE           64     A     
 PRE                BX2    X0+X2                                                           PRE           65     A     
 PRE                BX1    X1+X2                                                           PRE           66     A     
 PRE                ADDWRD CFT,X1                                                          PRE           67     A     
 PRE                IF     DEF,/DEBUG/CFT,1                                                PRE           68     A     
 PRE                RJ     PFE                                                             PRE           69     A     
 PRE                ENDM                                                                   PRE           70     A     
 PRE       DBG      IF     DEF,/DEBUG/CFT                                                  PRE           71     A     
 PRE                                                                                       PRE           72     A     
 PRE      **        PFE - PRINT FLOW EDGE                                                  PRE           73     A     
 PRE                                                                                       PRE           74     A     
 PRE       PFE      ROUTINE                                                                PRE           75     A     
 PRE                SX7    X6                                                              PRE           76     A     
 PRE                SA7    PFEA+1                                                          PRE           77     A     
 PRE                AX6    CF.FROMP                                                        PRE           78     A     
 PRE                SX7    X6                                                              PRE           79     A     
 PRE                SA7    A7-B1                                                           PRE           80     A     
 PRE                PL     X6,PFE1                                                         PRE           81     A     
 PRE                PRINT  CFT,(2I6,Z6),(LSN,PFEA,PFEA+1)                                  PRE           82     A     
 PRE                EQ     PFE                                                             PRE           83     A     
 PRE       PFE1     PRINT  CFT,(3I6),(LSN,PFEA,PFEA+1)                                     PRE           84     A     
 PRE                EQ     PFE                                                             PRE           85     A     
 PRE                                                                                       PRE           86     A     
 PRE       PFEA     BSS    2                                                               PRE           87     A     
 PRE       DBG      ENDIF                                                                  PRE           88     A     
 PRE       CFT      SPACE  2                                                               PRE           89     A     
 PRE      **        CF - CONTROL FLOW TABLE FORMAT                                         PRE           90     A     
 PRE      *         BLOCK NUMBER CONVENTIONS                                               PRE           91     A     
 PRE      *                0 - EXIT BLOCK                                                  PRE           92     A     
 PRE      *                1 - PSEUDO ENTRY BLOCK                                          PRE           93     A     
 PRE      *                2 - FIRST REAL BLOCK                                            PRE           94     A     
 PRE                                                                                       PRE           95     A     
 PRE                DESCRIBE CF.,60                                                        PRE           96     A     
 PRE       IH       DEFINE 1           "0 IF *TO* IS A SYMTAB ORD ( IH )                   PRE           97     A     
 PRE                DEFINE 11                                                              PRE           98     A     
 PRE       FROM     DEFINE 18          BLOCK EDGE EMINATES FROM                            PRE           99     A     
 PRE                DEFINE 12                                                              PRE          100     A     
 PRE       TO       DEFINE 18          BLOCK NUMBER / IH OF SUCCESSOR                      PRE          101     A     
 PRE       PRE      EJECT                                                                  PRE          102     A     
 PRE      **        INITIALIZATION                                                         PRE          103     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3577    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                                                                                       PRE          104     A     
 PRE       PRE      ENTRY.                                                                 PRE          105     A     
 PRE                QUAL   CODE                                                            PRE          106     A     
 PRE                SA2    =XN.FP                                                          PRE          107     A     
 PRE                SA3    =XLEVEL                                                         PRE          108          I
          -FCC0504
 PRE                SA3    =XLEVEL2                                                        FCC0504       22     A     
 PRE                BX7    X2+X3       FPL2 = N.FP ! LEVEL                                 PRE          109     A     
 PRE                SA7    =XFPL2                                                          PRE          110     A     
 PRE                                                                                       PRE          111     A     
 PRE                SA1    =XCODE.                                                         PRE          112     A     
 PRE                CALL   CUB         CUB( CODE. )  */ CHANGE TO CODE. BLOCK              PRE          113     A     
 PRE                                                                                       PRE          114     A     
 PRE      *         INITIALIZE FIXED TABLES AT THE TOP OF CORE                             PRE          115     A     
 PRE      *            *RA* , ... GLT , API , 0 , LOOP , MISC , SYMTAB , *FL*.             PRE          116     A     
 PRE                                                                                       PRE          117     A     
 PRE                SA1    =XLWAWORK                                                       PRE          118     A     
 PRE                SA4    =XR=FLAG                                                        PRE          119     A     
 PRE                SB1    1                                                               PRE          120     A     
 PRE                BX6    X1          LW = LWAWORK                                        PRE          121     A     
 PRE                MX7    0                                                               PRE          122     A     
 PRE                ZR     X4,PRE1     IF R = 0      */ NO REFMAP                          PRE          123     A     
 PRE                SA3    L.LOOP                                                          PRE          124     A     
 PRE                LX3    1                                                               PRE          125     A     
 PRE                IX6    X6-X3       LW = LW - 2*L.LOOP                                  PRE          126     A     
 PRE                SA6    O.LOOP      O.LOOP = LW                                         PRE          127     A     
 PRE                                                                                       PRE          128     A     
 PRE       PRE1     SB6    -B1                                                             PRE          129     A     
 PRE                SX6    X6+B6       LW = LW - 1                                         PRE          130          I
          -RSM2763X 
 PRE                SA7    X6          [LW] = 0      */ FOR *FAX*                          PRE          131          I
          -RSM2763X 
 PRE                SA2    N.AP                                                            PRE          132     A     
 PRE                SA3    N.GL                                                            PRE          133     A     
 PRE                SX7    X2+B6       N.AP = N.AP - 1                                     PRE          134     A     
 PRE                SB3    X6+B6                                                           PRE          135     A     
 PRE                IX6    X6-X7       LW = LW - N.AP                                      PRE          136     A     
 PRE                SA7    A2                                                              PRE          137     A     
 PRE                SA6    O.API       O.API = LW                                          PRE          138     A     
 PRE                SB2    X6                                                              PRE          139     A     
 PRE                SX7    X3+B6       N.GL = N.GL - 1                                     PRE          140     A     
 PRE                IX6    X6-X7       LW = LW - N.GL                                      PRE          141     A     
 PRE                SA7    A3                                                              PRE          142     A     
 PRE                SA7    N.GL0       N.GL0 = N.GL  */ NUMBER OF PASS 1 GL"S              PRE          143     A     
 PRE                SA6    O.GLT       O.GLT = LW                                          PRE          144     A     
 PRE                SX6    X6+B6       LW = LW - 1                                         PRE          145          I
          -FCC2204
 PRE                SX5    X6                                                              FCC2204        6     A     
 PRE                SB1    X7                                                              FCC2204        7     A     
 PRE                LE     B1,B0,PRE1B IF NO PASS 1 GL*S                                   FCC2204        8     A     
 PRE                SETZERO X5,X7      ZERO GLT                                            FCC2204        9     A     
 PRE                                                                                       FCC2204       10     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3578    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE       PRE1B    SX6    X5+B6       LW = LW - 1                                         FCC2204       11     A     
 PRE                SB1    1                                                               FCC2204       12     A     
 PRE                SA6    A1          LWAWORK = LW  */ FOR REFMAP                         PRE          146     A     
 PRE                SA6    O.TEND      O.TEND = LW                                         PRE          147     A     
 PRE                                                                                       PRE          148     A     
 PRE                SA2    LM                                                              PRE          149          I
          -RSM2763X 
 PRE                MX7    1                                                               PRE          150          I
          -RSM2763X 
 PRE                IX1    X6-X2       WS = O.TEND - LM  */ WORKING STORAGE                PRE          151          I
          -RSM2763X 
 PRE                SB5    X1-2000B                                                        PRE          152          I
          -RSM2763X 
 PRE                MI     B5,TOV      IF WS < 2000B */ IF NOT ENOUGH SPACE                PRE          153          I
          -RSM2763X 
 PRE                                                                                       PRE          154          I
          -RSM2763X 
 PRE                MX7    1                                                               RSM2763X     370     A     
 PRE      +         SA7    B3          FOR I = N TO 0;  API(I) = *EQV*                     PRE          155     A     
 PRE                SB3    B3-B1                                                           PRE          156     A     
 PRE                GE     B3,B2,*                                                         PRE          157     A     
 PRE                                                                                       PRE          158     A     
 PRE                AX1    4                                                               PRE          159          I
          -RSM2763X 
 PRE                BX2    X1                                                              PRE          160          I
          -RSM2763X 
 PRE                LX1    2           M.TXT = 5/16 WORKING STORAGE                        PRE          161          I
          -RSM2763X 
 PRE                IX7    X1+X2                                                           PRE          162          I
          -RSM2763X 
 PRE                CALL   CWS=                                                            RSM2763X     371     A     
 PRE                AX7    2           M.TXT = MAX-WORK-STORAGE / 4                        RSM2763X     372     A     
 PRE                SB2    X7                                                              PRE          163     A     
 PRE                SB3    12000B                                                          PRE          164     A     
 PRE                LE     B2,B3,PRE1A M.TXT = MIN( M.TXT , 12000B )                       PRE          165     A     
 PRE                SX7    B3+                                                             PRE          166     A     
 PRE       PRE1A    SA7    M.TXT                                                           PRE          167     A     
 PRE                LX1    1                                                               PRE          168          I
          -RSM2763X 
 PRE                AX1    B1,X6                                                           RSM2763X     373     A     
 PRE                ALLOC  TXT,X1      GOOSE THE TABLE MANAGER                             PRE          169     A     
 PRE                SX7    4                                                               PRE          170     A     
 PRE                SA7    MU          MU = 4                                              PRE          171     A     
 PRE                SA7    A3          L.TXT = 4                                           PRE          172     A     
 PRE                                                                                       PRE          173     A     
 PRE      *         INITIALIZE FOR GLOBAL FLOW ANALYSIS IF OPT \ 2                         PRE          174     A     
 PRE                                                                                       PRE          175     A     
 PRE                SA1    OPT2                                                            PRE          176     A     
 PRE                ZR     X1,PRE4     IF OPT2 = 0                                         PRE          177     A     
 PRE                                                                                       PRE          178     A     
 PRE                CALL   IMPA        INITIALIZE MASS I/O PROCESSING                      PRE          179     A     
 PRE                                                                                       PRE          180     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3579    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE      *         ALLOCATE AND CLEAR OUT A BASE TABLE FOR *UDI*                          PRE          181     A     
 PRE                                                                                       PRE          182     A     
 PRE                SA2    =XMAX.RL                                                        PRE          183     A     
 PRE                SA5    LM          O.UDB = LM    */ USE/DEF HASH TABLE                 PRE          184     A     
 PRE                SX1    X2+101B                                                         PRE          185     A     
 PRE                ALLOC  TXT,X1      ALLOC( TXT , MAX.RL + 101B )                        PRE          186     A     
 PRE                IX6    X1+X5                                                           PRE          187     A     
 PRE                SA6    A5          LM = LM+100B+MAX.RL                                 PRE          188     A     
 PRE                SX7    4                                                               PRE          189     A     
 PRE                SA6    A2          O.TXT = LM                                          PRE          190     A     
 PRE                SA7    A3          L.TXT = 4                                           PRE          191     A     
 PRE                SETZERO X5,100B    SETZERO( O.UDB , 100B )                             PRE          192     A     
 PRE                ALLOC  UDI,2       ALLOC( UDI , 2 )                                    PRE          193     A     
 PRE                                                                                       PRE          194     A     
 PRE      *         ENTER SPECIAL SYMBOLS WHICH ARE NOT DEAD ON EXIT IN *UDI*              PRE          195     A     
 PRE      *         SO WE CAN FIND THEM EASLY LATER                                        PRE          196     A     
 PRE                                                                                       PRE          197     A     
 PRE                SA1    =XVALUE.                                                        PRE          198     A     
 PRE                SA5    =XFUNTYPE                                                       PRE          199     A     
 PRE                ZR     X1,PRE2     IF VALUE. = 0 */ NOT A FUNCTION SUBPROGRAM          PRE          200     A     
 PRE                SX5    X5-1                                                            PRE          201     A     
 PRE                LX5    AP.P1P                                                          PRE          202     A     
 PRE                BX1    X5+X1                                                           PRE          203     A     
 PRE                ADDWRD IOL,X1                                                          PRE          204     A     
 PRE                SB2    B1                                                              PRE          205     A     
 PRE                MX5    0                                                               PRE          206     A     
 PRE                SX6    A2          TBL = O.IOL                                         PRE          207     A     
 PRE                CALL   CPL         ADD VALUE. TO IOL                                   PRE          208     A     
 PRE                MX7    0                                                               PRE          209     A     
 PRE                SA7    L.IOL       L.IOL = 0                                           PRE          210     A     
 PRE                                                                                       PRE          211     A     
 PRE       PRE2     ALLOC  BST,4       ALLOC( BST , 4 )  */ RANDOM INDEX                   PRE          212     A     
 PRE                                                                                       PRE          213     A     
 PRE                CFTE   1,2         FLOW( 1 , 2 )                                       PRE          214     A     
 PRE                SA1    =XLCM.OA                                                        PRE          215     A     
 PRE                BX6    X1                                                              PRE          216     A     
 PRE                SA6    O.LCM       O.LCM = LCM.OA  */ SET BASE OF ALLOC LCM            PRE          217     A     
 PRE                SA2    =XRETURNS                                                       PRE          218     A     
 PRE                NZ     X2,PRE5     IF RETURNS " 0  */ NEED TO CHECK APLISTS            PRE          219     A     
 PRE                                                                                       PRE          220     A     
 PRE       PRE4     SA1    PAL2                                                            PRE          221     A     
 PRE                BX6    X1          [PAL1] = [PAL2]  */ PLUG CODE                       PRE          222     A     
 PRE                SA6    PAL1                                                            PRE          223     A     
 PRE                                                                                       PRE          224     A     
 PRE      *         SETUP A *BOS* AT BEGINNING OF *TXT* AND *MOD*.                         PRE          225     A     
 PRE                                                                                       PRE          226     A     
 PRE       PRE5     ALLOC  MOD,4                                                           PRE          227     A     
 PRE                SA5    F.RDT+OC.BOS                                                    PRE          228     A     
 PRE                SA2    O.TXT                                                           PRE          229     A     
 PRE                SA1    O.SYM                                                           PRE          230     A     
 PRE                SA3    O.MOD                                                           PRE          231     A     
 PRE                MX6    0                                                               PRE          232     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3580    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                PX7    B1,X6                                                           PRE          233     A     
 PRE                SA7    X2                                                              PRE          234     A     
 PRE                SA7    X3                                                              PRE          235     A     
 PRE                SA6    X2+B1       [R2] = 0                                            PRE          236     A     
 PRE                SA6    X3+B1                                                           PRE          237     A     
 PRE                BX7    X5                                                              PRE          238     A     
 PRE                SA7    A6+B1                                                           PRE          239     A     
 PRE                SA6    A7+B1                                                           PRE          240     A     
 PRE                SA7    X2+2                                                            PRE          241     A     
 PRE                SA6    A7+B1                                                           PRE          242     A     
 PRE                SA6    X1-1        [O.SYM-1] = 0 */ SYM 0 IS ^FP, ETC ( GRA )          PRE          243     A     
 PRE                                                                                       PRE          244     A     
 PRE                ADDWRD ALS,B0      ADDWRD( ALS , 0 ) */ *ALS* SRCH TERMINATOR          PRE          245     A     
 PRE                                                                                       PRE          246     A     
 PRE                SA1    OPTLVL                                                          PRE          247     A     
 PRE                NZ     X1,PPS1     IF OPTLVL " 0                                       PRE          248     A     
 PRE                MX6    1           WB = 1S59     */ FORCE SEQ ACCUMULATION             PRE          249     A     
 PRE                SA6    WB                        */ TO END OF STMT                     PRE          250     A     
 PRE                EQ     PPS1                                                            PRE          251     A     
 PRE                BSS    0                                                               PRE          252     A     
 PRE       PREBUF   EQU    PRE+1       FWA OF SCRATCH BUFFER SPACE                         PRE          253     A     
 PRE                                                                                       PRE          254     A     
 PRE       L.INIT   EQU    *-PREBUF    L.INIT CODE, AVAILABLE AS A BUFFER                  PRE          255     A     
 PRE       SCRB     SPACE  3                                                               PRE          256     A     
 PRE      **        SCRB - DECLARE USE OF SCRATCH CELLS IN *INIT* CODE                     PRE          257     A     
 PRE                                                                                       PRE          258     A     
 PRE       .SCR     SET    0                                                               PRE          259     A     
 PRE                                                                                       PRE          260     A     
 PRE                MACRO  SCRB,LL,N                                                       PRE          261     A     
 PRE       LL       EQU    PREBUF                                                          PRE          262     A     
 PRE       .SCR     MAX    .SCR,N                                                          PRE          263     A     
 PRE                ERRPL  N-L.INIT    LL BUFFER EXCEEDS AVAIL SPACE                       PRE          264     A     
 PRE                ENDM                                                                   PRE          265     A     
 PRE       PPS      TITLE  PPS - SEQUENCE PRE PROCESSING                                   PRE          266     A     
 PRE      **        PPS - PRE PROCESS SEQUENCE, MAIN LOOP                                  PRE          267     A     
 PRE                                                                                       PRE          268     A     
 PRE       PPS0     RJ     ERM         ADD RLIST INSTRUCTIONS TO *TXT*                     PRE          269     A     
 PRE                                                                                       PRE          270     A     
 PRE      *         READ NEXT R-MACRO, CHECK FOR RLIST INSTRUCTION, SPECIAL OR             PRE          271     A     
 PRE      *         *MACROX* MACRO.                                                        PRE          272     A     
 PRE                                                                                       PRE          273     A     
 PRE       PPS1     RJ     RRL         GET NEXT RLIST INST/ MACRO                          PRE          274     A     
 PRE                SA2    RLI+1       R1 = RLI(2)   */ R1  / HEADER WORD                  PRE          275     A     
 PRE                UX7    B2,X2                                                           PRE          276     A     
 PRE                SB6    -B2                                                             PRE          277     A     
 PRE                SA7    BRN+1       [BRN+1] = HEADER WORD */ MAX R-NUM FOR *SQZ*        PRE          278     A     
 PRE                GT     B2,B1,PPS3  IF OC[R1] > OC.BOS  */ AN RLIST INSTRUCTION         PRE          279     A     
 PRE                SB3    B2+=XMACORG                                                     PRE          280     A     
 PRE                SA1    O.MAC                                                           PRE          281     A     
 PRE                LE     B3,PPS2     IF -OC[R1] \ MACORG  */ *MACROX* MACRO              PRE          282     A     
 PRE                JP     PPS.M+B6    JUMP( -OC[R1] )                                     PRE          283     A     
 PRE                                                                                       PRE          284     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3581    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE      *         PPS.M - JUMP TABLE FOR THE SPECIAL MACROS                              PRE          285     A     
 PRE                                                                                       PRE          286     A     
 PRE                EQ     BOS         BEGINNING OF STMT MARKER                            PRE          287     A     
 PRE       PPS.M    BSS    0                                                               PRE          288     A     
 PRE                LOC    0                                                               PRE          289     A     
 PRE                EQ     PPS6        EOQ                                                 PRE          290     A     
 PRE                EQ     PAL         APLIST                                              PRE          291     A     
 PRE                SB3    =XDOBGN                                                         PRE          292     A     
 PRE                EQ     PDB         DO BEGIN                                            PRE          293     A     
 PRE                SB3    =XDOEND                                                         PRE          294     A     
 PRE                EQ     PDE         DO END                                              PRE          295     A     
 PRE                SX6    OC.LD                                                           PRE          296     A     
 PRE                EQ     PAR         PROCESS ARRAY REFERENCE                             PRE          297     A     
 PRE                SX6    OC.ST                                                           PRE          298     A     
 PRE                EQ     PAR                                                             PRE          299     A     
 PRE                SX6    OC.STT                                                          PRE          300     A     
 PRE                EQ     PAR                                                             PRE          301     A     
 PRE                EQ     *+1S17                                                          PRE          302     A     
 PRE                EQ     EXM         EXPONENTIAL MACRO                                   PRE          303     A     
 PRE                EQ     SFR         SAVE FUNCTION RESULT                                PRE          304     A     
 PRE                EQ     PIO         I/O LIST USE/DEF INFO                               PRE          305     A     
 PRE                LOC    *O                                                              PRE          306     A     
 PRE       PPS      EJECT                                                                  PRE          307     A     
 PRE      **        PROCESS *MACROX* MACRO                                                 PRE          308     A     
 PRE                                                                                       PRE          309     A     
 PRE       PPS2     CALL   EMR         EXPAND THE MACRO                                    PRE          310     A     
 PRE                SA1    MACTYP                                                          PRE          311     A     
 PRE                SB2    X1+                                                             PRE          312     A     
 PRE                JP     PPS.MT+B2   JUMP( MACTYP(OC) )                                  PRE          313     A     
 PRE                                                                                       PRE          314     A     
 PRE       PPS.MT   BSS    0                                                               PRE          315     A     
 PRE                LOC    0                                                               PRE          316     A     
 PRE                EQ     PPS0                                                            PRE          317     A     
 PRE                EQ     LAB         LABEL DEFINITION                                    PRE          318     A     
 PRE                EQ     ENT         ENTRY. DEFINITION                                   PRE          319     A     
 PRE                EQ     EXIT        RETURN MACRO                                        PRE          320     A     
 PRE                EQ     UJP         UNCONDITIONAL JUMP                                  PRE          321     A     
 PRE                EQ     IFM         IF MACRO                                            PRE          322     A     
 PRE                EQ     AGO         ASSIGNED GOTO                                       PRE          323     A     
 PRE                EQ     CGO         COMPUTED GOTO                                       PRE          324     A     
 PRE                EQ     RJX         MACRO WITH A RETURN JUMP                            PRE          325     A     
 PRE                EQ     RSM         REG STORE MACRO                                     PRE          326     A     
 PRE                EQ     STM         STORE MACRO ( PROGRAMMER DEFINED VARIABLE )         PRE          327     A     
 PRE                LOC    *O                                                              PRE          328     A     
 PRE       PPS      SPACE  3                                                               PRE          329     A     
 PRE      *         PROCESS RLIST INSTRUCTION                                              PRE          330     A     
 PRE                                                                                       PRE          331     A     
 PRE       PPS3     RJ     ARI         ADD INSTRUCTION TO *TXT*                            PRE          332     A     
 PRE                LX6    59-D.BMP                                                        PRE          333     A     
 PRE                PL     X6,PPS1     IF ^BM[DI]                                          PRE          334     A     
 PRE                                                                                       PRE          335     A     
 PRE                CALL   PROSEQ      PROCESS THE BLOCK                                   PRE          336     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3582    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                SA1    CBN         PBN = CBN                                           PRE          337     A     
 PRE                SX6    X1+B1       CBN = CBN + 1                                       PRE          338     A     
 PRE                SA6    A1                                                              PRE          339     A     
 PRE                CFTE   X1,X6       FLOW( PBN , CBN )                                   PRE          340     A     
 PRE                EQ     PPS1                                                            PRE          341     A     
 PRE                                                                                       PRE          342     A     
 PRE       PPS4     RJ     ARI         ADD THE INSTRUCTION TO *TXT*                        PRE          343     A     
 PRE                                                                                       PRE          344     A     
 PRE       PPS5     SX7    0           L.RND = 0                                           PRE          345     A     
 PRE                SA7    L.RND                                                           PRE          346     A     
 PRE                EQ     PPS1                                                            PRE          347     A     
 PRE       EOQ      SPACE  3                                                               PRE          348     A     
 PRE       PPS6     SA2    L.TXT                                                           PRE          349     A     
 PRE                SX6    0           L.ALS = 0                                           PRE          350     A     
 PRE                SA6    L.ALS                                                           PRE          351     A     
 PRE                SX7    X2-4                                                            PRE          352     A     
 PRE                ZR     X7,PRE      IF L.TXT = 4                                        PRE          353     A     
 PRE                                                                                       PRE          354     A     
 PRE                CALL   PROSEQ      CODE LAST SEQUENCE                                  PRE          355     A     
 PRE                EQ     PRE                                                             PRE          356     A     
 PRE       LAB      TITLE  SPECIAL MACRO PROCESSING                                        PRE          357     A     
 PRE      **        LAB - LABEL DEFINITION                                                 PRE          358     A     
 PRE                                                                                       PRE          359     A     
 PRE       LAB      RJ     RRL                                                             PRE          360     A     
 PRE                MX0    -IH.IL                                                          PRE          361     A     
 PRE                SA1    RLI+1       R1 WORD                                             PRE          362     A     
 PRE                LX0    IH.IP                                                           PRE          363     A     
 PRE                BX2    -X0*X1                                                          PRE          364     A     
 PRE                NZ     X2,LAB1     IF NOT IN SYMTAB ( GL"S ARE ALWAYS ACTIVE )         PRE          365     A     
 PRE                MX0    -L.ADF-P.RB                                                     PRE          366     A     
 PRE                SA4    CVI                                                             PRE          367     A     
 PRE                SA5    O.SYM                                                           PRE          368     A     
 PRE                MX7    0                                                               PRE          369     A     
 PRE                BX6    X4                                                              PRE          370     A     
 PRE                SA6    A1+B1       [RLI+2] = CVI                                       PRE          371     A     
 PRE                SA7    A4          CVI = 0                                             PRE          372     A     
 PRE                LX1    1                                                               PRE          373     A     
 PRE                SB2    X1+B1                                                           PRE          374     A     
 PRE                EQ     B2,B1,LAB2  IF IH[R1] = 0 */ UNREACHABLE CODE MARKER            PRE          375     A     
 PRE                SA0    X5                                                              PRE          376     A     
 PRE                SA2    A0-B2       WORDB = [O.SYM-2*IH-1]                              PRE          377     A     
 PRE                BX6    X0*X2       CLEAR ADDRESS DEF AND BLOCK ORDINAL FIELDS          PRE          378     A     
 PRE                SA6    A2                                                              PRE          379     A     
 PRE                LX2    59-P.GEN                                                        PRE          380     A     
 PRE                MI     X2,LAB1     IF A *DO* GENERATED LABEL                           PRE          381     A     
 PRE                LX2    P.GEN-P.RSN                                                     PRE          382     A     
 PRE                PL     X2,PPS1     IF ^ REFERENCED */ INACTIVE                         PRE          383     A     
 PRE                                                                                       PRE          384     A     
 PRE       LAB1     SA1    WB                                                              PRE          385     A     
 PRE                NZ     X1,PPS4     IF WB " 0     */ ADD LABEL AND CONTINUE             PRE          386     A     
 PRE                SA5    OPT2                                                            PRE          387     A     
 PRE                NZ     X5,LAB3     IF OPT2 " 0                                         PRE          388     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3583    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                                                                                       PRE          389     A     
 PRE                RJ     ARI         ADD LABEL DEF TO *TXT*                              PRE          390     A     
 PRE                SX6    B6-4                                                            PRE          391     A     
 PRE                ZR     X6,PPS1     IF L.TXT = 4  */ LABEL DEF FIRST IN SEQ             PRE          392     A     
 PRE                EQ     UJP1                                                            PRE          393     A     
 PRE                                                                                       PRE          394     A     
 PRE      *         UNREACHABLE CODE                                                       PRE          395     A     
 PRE                                                                                       PRE          396     A     
 PRE       LAB2     CALL   FSU         FORCE NEXT SEQUENCE UPPER                           PRE          397     A     
 PRE                EQ     PPS1                                                            PRE          398     A     
 PRE       LAB      SPACE  3                                                               PRE          399     A     
 PRE      *         OPT=2 LABEL DEFINITION PROCESSING                                      PRE          400     A     
 PRE                                                                                       PRE          401     A     
 PRE       LAB3     SA3    L.TXT                                                           PRE          402     A     
 PRE                SB3    X3-4                                                            PRE          403     A     
 PRE                ZR     B3,LAB4     IF L.TXT = 4  */ LABEL AT BEGINNING                 PRE          404     A     
 PRE                                                                                       PRE          405     A     
 PRE                CALL   PROSEQ      PROCESS CURRENT SEQUENCE                            PRE          406     A     
 PRE                SA1    CBN         PBN = CBN                                           PRE          407     A     
 PRE                SX6    X1+B1       CBN = CBN + 1                                       PRE          408     A     
 PRE                SA6    A1                                                              PRE          409     A     
 PRE                CFTE   X1,X6       FLOW( PBN , CBN )                                   PRE          410     A     
 PRE       LAB      SPACE  1,10                                                            PRE          411     A     
 PRE      *         DEFINE BLOCK NUMBER ASSOCIATED WITH THIS LABEL                         PRE          412     A     
 PRE                                                                                       PRE          413     A     
 PRE       LAB4     RJ     ARI         ADD LABEL DEF TO *TXT*                              PRE          414     A     
 PRE                SA2    CBN                                                             PRE          415     A     
 PRE                SB2    X1-I.GL-1                                                       PRE          416     A     
 PRE                MI     B2,LAB5     IF IH[R1] < I.GL                                    PRE          417     A     
 PRE                SA3    O.GLT                                                           PRE          418     A     
 PRE                BX6    X2                                                              PRE          419     A     
 PRE                SA6    X3+B2       GLT(H-1) = CBN                                      PRE          420     A     
 PRE                EQ     PPS1                                                            PRE          421     A     
 PRE                                                                                       PRE          422     A     
 PRE       LAB5     SA3    O.SYM                                                           PRE          423     A     
 PRE                LX1    1                                                               PRE          424     A     
 PRE                SB2    X1+B1                                                           PRE          425     A     
 PRE                SA0    X3                                                              PRE          426     A     
 PRE                SA4    A0-B2       WORDB = [O.SYM-2*IH-1]                              PRE          427     A     
 PRE                BX6    X4+X2       BN[WORDB] = CBN */ SET BLOCK NUMBER IN SYMTAB       PRE          428     A     
 PRE                SA6    A4                                                              PRE          429     A     
 PRE                EQ     PPS1                                                            PRE          430     A     
 PRE       ENT      SPACE  3,9                                                             PRE          431     A     
 PRE      **        ENT - ALTERNATE ENTRY POINT DEFINITION                                 PRE          432     A     
 PRE                                                                                       PRE          433     A     
 PRE       ENT      RJ     ERM         ADD INSTRUCTION TO SEQ                              PRE          434     A     
 PRE                SA3    OPT2                                                            PRE          435     A     
 PRE                ZR     X3,PPS1     IF OPT2 = 0                                         PRE          436     A     
 PRE                                                                                       PRE          437     A     
 PRE                SA2    CBN                                                             PRE          438     A     
 PRE                CFTE   1,X2        FLOW( 1 , CBN ) */ PSEUDO ENTRY TO THIS             PRE          439     A     
 PRE                EQ     PPS1                                                            PRE          440     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3584    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE       EXIT     SPACE  3,9                                                             PRE          441     A     
 PRE      **        EXIT MACRO ( RETURN / NSRETURN )                                       PRE          442     A     
 PRE                                                                                       PRE          443     A     
 PRE       EXIT     RJ     ERM         ADD INSTRUCTIONS TO *TXT*                           PRE          444     A     
 PRE                SA1    WB                                                              PRE          445     A     
 PRE                SA2    OPT2                                                            PRE          446     A     
 PRE                NZ     X1,PPS5     IF WB " 0                                           PRE          447     A     
 PRE                ZR     X2,UJP1     IF OPT2 = 0                                         PRE          448     A     
 PRE                                                                                       PRE          449     A     
 PRE                CFTE   CBN,B0      FLOW( CBN , 0 ) */ SHOW FLOW TO EXIT                PRE          450     A     
 PRE                EQ     UJP3                                                            PRE          451     A     
 PRE       GOTO     SPACE  3,14                                                            PRE          452     A     
 PRE      **        GOTO - ASSIGNED / COMPUTED GOTO PROCESSING                             PRE          453     A     
 PRE                                                                                       PRE          454     A     
 PRE       AGO      RJ     ERM         ADD INSTRUCTIONS TO *TXT*                           PRE          455     A     
 PRE                SA5    =XCBUF+2                                                        PRE          456     A     
 PRE                SB5    B0          FLAG = 0                                            PRE          457     A     
 PRE                SX6    X5          N.BRANCH = CBUF(2)                                  PRE          458     A     
 PRE                NZ     X6,CGO1     IF N.BRANCH " 0                                     PRE          459     A     
 PRE                SA1    WB                                                              PRE          460     A     
 PRE                ZR     X1,UJP1     IF WB = 0                                           PRE          461     A     
 PRE                EQ     PPS1                                                            PRE          462     A     
 PRE       CGO      SPACE  2                                                               PRE          463     A     
 PRE       CGO      RJ     ERM         ADD INSTRUCTIONS TO *TXT*                           PRE          464     A     
 PRE                SA2    =XCBUF+1    CBUF(1) = -( N.BRANCH + 1 )                         PRE          465     A     
 PRE                SB5    B1          FLAG = 1                                            PRE          466     A     
 PRE                SX3    X2+B1                                                           PRE          467     A     
 PRE                BX6    -X3                                                             PRE          468     A     
 PRE                                                                                       PRE          469     A     
 PRE       CGO1     SA1    O.TXT                                                           PRE          470     A     
 PRE                SB2    X1                                                              PRE          471     A     
 PRE                SX2    B7-B2       LT = LTXT - O.TXT  */ SAVE OLD TXT LENGTH           PRE          472     A     
 PRE                PX7    B5,X2                                                           PRE          473     A     
 PRE                SA7    CGOA+1      CGOA = N.BRANCH                                     PRE          474     A     
 PRE                                                                                       PRE          475     A     
 PRE       CGO2     SA6    CGOA                                                            PRE          476     A     
 PRE                RJ     RRL         READ IN UJP                                         PRE          477     A     
 PRE                RJ     ARI         ADD IT TO *TXT*                                     PRE          478     A     
 PRE                SA1    CGOA                                                            PRE          479     A     
 PRE                SX6    X1-1        CGOA = CGOA - 1                                     PRE          480     A     
 PRE                NZ     X6,CGO2     IF CGOA " 0                                         PRE          481     A     
 PRE                                                                                       PRE          482     A     
 PRE                SA1    WB                                                              PRE          483     A     
 PRE                SA2    OPT2                                                            PRE          484     A     
 PRE                NZ     X1,PPS5     IF WB " 0                                           PRE          485     A     
 PRE                ZR     X2,UJP1     IF OPT2 = 0                                         PRE          486     A     
 PRE                                                                                       PRE          487     A     
 PRE      *         COLLECT FLOW INFO                                                      PRE          488     A     
 PRE                                                                                       PRE          489     A     
 PRE                ADDWRD TXT,B0                                                          PRE          490     A     
 PRE                SA1    CGOA+1                                                          PRE          491     A     
 PRE                SB2    X2                                                              PRE          492     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3585    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                SA5    B2+X1       R1J = O.TXT + LT                                    PRE          493     A     
 PRE                                                                                       PRE          494     A     
 PRE       CGO3     CFTE   CBN,X5,IH   FLOW( CBN , IH[R1J] )                               PRE          495     A     
 PRE                SA5    A5+4        R1J = R1J + 4                                       PRE          496     A     
 PRE                NZ     X5,CGO3     IF [R1J] " 0                                        PRE          497     A     
 PRE                                                                                       PRE          498     A     
 PRE                SA1    CGOA+1                                                          PRE          499     A     
 PRE                SA2    L.TXT                                                           PRE          500     A     
 PRE                SX6    X2-1        L.TXT = L.TXT - 1                                   PRE          501     A     
 PRE                UX3    B2,X1                                                           PRE          502     A     
 PRE                NZ     B2,CGO4     IF FLAG " 0   */ C GOTO                             PRE          503     A     
 PRE                BX6    X3          L.TXT = LT                                          PRE          504     A     
 PRE       CGO4     SA6    A2                                                              PRE          505     A     
 PRE                EQ     UJP3                                                            PRE          506     A     
 PRE                                                                                       PRE          507     A     
 PRE       CGOA     SCRB   2                                                               PRE          508     A     
 PRE       IFM      SPACE  3,24                                                            PRE          509     A     
 PRE      **        IFM - IF MACRO PROCESSING                                              PRE          510     A     
 PRE                                                                                       PRE          511     A     
 PRE       IFM      RJ     ERM         ADD INSTRUCTIONS TO *TXT*                           PRE          512     A     
 PRE                SA1    OPT2                                                            PRE          513     A     
 PRE                SX7    0           L.RND = 0                                           PRE          514     A     
 PRE                SA7    L.RND                                                           PRE          515     A     
 PRE                ZR     X1,PPS1     IF OPT2 = 0                                         PRE          516     A     
 PRE                                                                                       PRE          517     A     
 PRE      *         COLLECT FLOW INFORMATION                                               PRE          518     A     
 PRE                                                                                       PRE          519     A     
 PRE                SB2    B1+B1                                                           PRE          520     A     
 PRE                SB4    B2+B2                                                           PRE          521     A     
 PRE                SB7    B7-B4       R1A = LTXT - 4  */ R1 OF LAST JUMP                  PRE          522     A     
 PRE                SA5    B7          R1L = [R1A]                                         PRE          523     A     
 PRE                UX4    B3,X5                                                           PRE          524     A     
 PRE                SX6    B3                                                              PRE          525     A     
 PRE                SA6    IFMA        I = IFMA;  [I] = OC[R1L] */ OC OF LAST JP           PRE          526     A     
 PRE                                                                                       PRE          527     A     
 PRE       IFM1     SA4    B7+B2       DI = R1A + 2                                        PRE          528     A     
 PRE                SB7    B7-B4       R1A = R1A - 4                                       PRE          529     A     
 PRE                LX4    59-D.JPP                                                        PRE          530     A     
 PRE                SA3    A4-B1       R2 = DI - 1                                         PRE          531     A     
 PRE                PL     X4,IFM3     IF ^JP[DI]                                          PRE          532     A     
 PRE                LX3    -IH.IHP                                                         PRE          533     A     
 PRE                LX4    D.JPP-D.TYP                                                     PRE          534     A     
 PRE                PL     X4,IFM2     IF TY[DI] = III                                     PRE          535     A     
 PRE                SA3    A3-1        R1 = R2 - 1                                         PRE          536     A     
 PRE                LX3    -R1.IHP                                                         PRE          537     A     
 PRE       IFM2     SX6    X3                                                              PRE          538     A     
 PRE                SA6    A6+B1       I = I + 1;  [I] = IH[R2/R1]                         PRE          539     A     
 PRE                GE     B7,B6,IFM1  IF R1A \ FTXT                                       PRE          540     A     
 PRE                                                                                       PRE          541     A     
 PRE       IFM3     MX6    0                                                               PRE          542     A     
 PRE                SA6    A6+B1       I = I + 1;  [I] = 0                                 PRE          543     A     
 PRE                SA5    IFMA+1      I = IFMA + 1                                        PRE          544     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3586    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                                                                                       PRE          545     A     
 PRE       IFM4     CFTE   CBN,X5,IH   FLOW( CBN , [I] )                                   PRE          546     A     
 PRE                SA5    A5+B1       I = I + 1                                           PRE          547     A     
 PRE                NZ     X5,IFM4     IF [I] " 0                                          PRE          548     A     
 PRE                                                                                       PRE          549     A     
 PRE                SA1    IFMA                                                            PRE          550     A     
 PRE                SX6    X1-OC.UJP                                                       PRE          551     A     
 PRE                ZR     X6,UJP3     IF OC[LASTJP] = OC.UJP  */ TERMINATE BLOCK          PRE          552     A     
 PRE                                                                                       PRE          553     A     
 PRE                CFTE   CBN,X1+B1   FLOW( CBN , CBN + 1 )                               PRE          554     A     
 PRE                EQ     UJP3                                                            PRE          555     A     
 PRE                                                                                       PRE          556     A     
 PRE       IFMA     SCRB   5                                                               PRE          557     A     
 PRE       UJP      SPACE  3,14                                                            PRE          558     A     
 PRE      **        UJP - UNCONDITIONAL JUMP  ( UJP LAB ) PROCESSING                       PRE          559     A     
 PRE                                                                                       PRE          560     A     
 PRE       UJP      RJ     ERM         ADD INSTRUCTION TO *TXT*                            PRE          561     A     
 PRE                SA1    WB                                                              PRE          562     A     
 PRE                SA2    OPT2                                                            PRE          563     A     
 PRE                SX7    0           L.RND = 0                                           PRE          564     A     
 PRE                SA7    L.RND                                                           PRE          565     A     
 PRE                NZ     X1,PPS1     IF WB " 0     */ OPT=1  & OPTIMIZABLE LOOP          PRE          566     A     
 PRE                NZ     X2,UJP2     IF OPT2 " 0   */ FLOW ANALYSIS                      PRE          567     A     
 PRE                                                                                       PRE          568     A     
 PRE       UJP1     CALL   PROSEQ      PROCESS CURRENT SEQUENCE                            PRE          569     A     
 PRE                EQ     PPS1                                                            PRE          570     A     
 PRE                                                                                       PRE          571     A     
 PRE       UJP2     SA3    B6          R1 = FTXT     */ R1 OF UJP                          PRE          572     A     
 PRE                CFTE   CBN,X3,IH   FLOW( CBN , IH[R1] )                                PRE          573     A     
 PRE                                                                                       PRE          574     A     
 PRE       UJP3     CALL   PROSEQ      PROCESS BLOCK                                       PRE          575     A     
 PRE                SA1    CBN                                                             PRE          576     A     
 PRE                SX6    X1+B1       CBN = CBN + 1 */ ADVANCE TO NEXT BLOCK              PRE          577     A     
 PRE                SA6    A1                                                              PRE          578     A     
 PRE                EQ     PPS1                                                            PRE          579     A     
 PRE       RJX      SPACE  3,14                                                            PRE          580     A     
 PRE      **        RJX - MACRO THAT CONTAINS A RETURN JUMP                                PRE          581     A     
 PRE                                                                                       PRE          582     A     
 PRE       RJX      RJ     ERM         ADD INSTRUCTIONS TO *TXT*                           PRE          583     A     
 PRE                MX6    1           APLF = 1S59                                         PRE          584     A     
 PRE                SA6    XR                                                              PRE          585     A     
 PRE                MX7    0                                                               PRE          586     A     
 PRE                SA2    B6+2        DI = R1 + 2   */ OF FIRST INSTRUCTION               PRE          587     A     
 PRE                MX0    1                                                               PRE          588     A     
 PRE                LX2    59-D.LDP                                                        PRE          589     A     
 PRE                SA7    L.RND       L.RND = 0                                           PRE          590     A     
 PRE                                                                                       PRE          591     A     
 PRE                PL     X2,RJX1     IF ^LD[DI]    */ MACRO IS AN RJ ONLY                PRE          592     A     
 PRE                SA3    B6+B1       IH = R1 + 1                                         PRE          593     A     
 PRE                LX0    1+IH.LDP                                                        PRE          594     A     
 PRE                BX6    X0+X3       LD[IH] = 1  ( TO INHIBIT ST/LD SQUEEZING )          PRE          595     A     
 PRE                SA6    A3          APLF = [IH]                                         PRE          596     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3587    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                                                                                       PRE          597     A     
 PRE       RJX1     SA1    B7-4        R1 = LTXT - 4                                       PRE          598     A     
 PRE                SA2    O.SYM                                                           PRE          599     A     
 PRE                SA5    OPT2                                                            PRE          600     A     
 PRE                SA6    RJXA        RJXA = APLF                                         PRE          601     A     
 PRE                LX1    1                                                               PRE          602     A     
 PRE                SA0    X2                                                              PRE          603     A     
 PRE                SB2    X1+B1                                                           PRE          604     A     
 PRE                SA3    A0-B2       WORDB = [O.SYM-2*IH[R1]-1]                          PRE          605     A     
 PRE                MX0    -L.FTYP                                                         PRE          606     A     
 PRE                LX3    -P.FTYP                                                         PRE          607     A     
 PRE                BX0    -X0*X3      F = FTYP[WORDB]                                     PRE          608     A     
 PRE                SX7    X0+B1                                                           PRE          609     A     
 PRE                LX7    FI.FTP                                                          PRE          610     A     
 PRE                SB3    X0                                                              PRE          611     A     
 PRE                SA7    A1+B1       R2 = R1 + 1;  FT[R2] = F + 1                        PRE          612     A     
 PRE                                                                                       PRE          613     A     
 PRE      *         PROCESS *BEF*                                                          PRE          614     A     
 PRE                                                                                       PRE          615     A     
 PRE                NE     B3,B1,RJX2  IF F " 1                                            PRE          616     A     
 PRE                LX3    P.FTYP-P.RA                                                     PRE          617     A     
 PRE                SX4    X3                                                              PRE          618     A     
 PRE                LX4    FI.REGPP                                                        PRE          619     A     
 PRE                BX7    X4+X7       REGP[R2] = RA[WORDB]  */ B-REGS PRESERVED           PRE          620     A     
 PRE                SA7    A7                                                              PRE          621     A     
 PRE                EQ     PPS1                                                            PRE          622     A     
 PRE                                                                                       PRE          623     A     
 PRE      *         PROCESS I/O LIST FUNCTION                                              PRE          624     A     
 PRE                                                                                       PRE          625     A     
 PRE       RJX2     ZR     B3,RJX3     IF F = 0                                            PRE          626     A     
 PRE                ZR     X5,PPS1     IF OPT2 = 0                                         PRE          627          I
          -FCC1624X 
 PRE                                                                                       FCC1624X       5     A     
 PRE       RJX2A    ZR     X5,PPS1     IF OPT2 = 0                                         FCC1624X       6     A     
 PRE                SA1    PIOL        INDX[R1+1] = PIOL                                   PRE          628     A     
 PRE                SA2    L.IOL                                                           PRE          629     A     
 PRE                IX3    X2-X1       LEN[R1+1] = L.IOL - PIOL                            PRE          630     A     
 PRE                ZR     X3,PPS1     IF LEN[R1+1] = 0                                    PRE          631     A     
 PRE                LX3    FI.LENP                                                         PRE          632     A     
 PRE                IX4    X3+X1                                                           PRE          633     A     
 PRE                BX7    X4+X7                                                           PRE          634     A     
 PRE                SA7    A7                                                              PRE          635     A     
 PRE                BX6    X2          PIOL = L.IOL                                        PRE          636     A     
 PRE                SA6    A1                                                              PRE          637     A     
 PRE                EQ     PPS1                                                            PRE          638     A     
 PRE                                                                                       PRE          639     A     
 PRE      *         PROCESS USER FUNCTION                                                  PRE          640     A     
 PRE                                                                                       PRE          641     A     
 PRE       RJX3     SB5    X6-I.AP                                                         PRE          642     A     
 PRE                MI     B5,PPS1     IF IH[APLF] < I.AP */ NO APLIST                     PRE          643     A     
 PRE                SB5    X6-I.IO                                                         PRE          644     A     
 PRE                PL     B5,PPS1     IF IH[APLF] > I.IO  */ BUF I/O COM SPOIL            PRE          645          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3588    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
          -FCC1624X 
 PRE                PL     B5,RJX2A    IF IH[APLF] \ I.IO */ BUF I/O COM SPOIL             FCC1624X       7     A     
 PRE                ZR     X5,RJX6     IF OPT2 = 0                                         PRE          646     A     
 PRE                                                                                       PRE          647     A     
 PRE      *         COUNT APLIST LENGTH, CHAIN APLIST TO *UDI*                             PRE          648     A     
 PRE                                                                                       PRE          649     A     
 PRE                SA5    PAPL                                                            PRE          650     A     
 PRE                SA4    L.APL                                                           PRE          651     A     
 PRE                SA2    RETURNS                                                         PRE          652     A     
 PRE                IX6    X4-X5       LEN = L.APL - PAPL                                  PRE          653     A     
 PRE                SB2    X6                                                              PRE          654     A     
 PRE                ZR     X2,RJX5     IF RETURNS = 0  */ NO RETURNS IN APLIST             PRE          655     A     
 PRE                SA1    O.APL                                                           PRE          656     A     
 PRE                SB3    B2          N = LEN                                             PRE          657     A     
 PRE                SB2    -B1         LEN = -1                                            PRE          658     A     
 PRE                SB4    X5                                                              PRE          659     A     
 PRE                SA4    X1+B4       AI = O.APL + PAPL                                   PRE          660     A     
 PRE       RJX4     SB5    X4          IHF = IH[A                                          PRE          661     A     
 PRE                SB2    B2+B1       LEN = LEN + 1                                       PRE          662     A     
 PRE                SA4    A4+1        AI = AI + 1                                         PRE          663     A     
 PRE                ZR     B5,RJX5     IF IHF = 0                                          PRE          664     A     
 PRE                LT     B2,B3,RJX4  IF LEN < N                                          PRE          665     A     
 PRE                                                                                       PRE          666     A     
 PRE       RJX5     ZR     B2,RJX6     IF LEN = 0                                          PRE          667     A     
 PRE                SX6    O.APL                                                           PRE          668     A     
 PRE                CALL   CPL         CHAIN PARAMETER LIST TO *UDI*                       PRE          669     A     
 PRE                SA2    O.TXT                                                           PRE          670     A     
 PRE                SA3    L.TXT                                                           PRE          671     A     
 PRE                LX0    FI.LENP                                                         PRE          672     A     
 PRE                SA7    PIOL        PIOL = L.IOL                                        PRE          673     A     
 PRE                IX7    X2+X3                                                           PRE          674     A     
 PRE                SA5    X7-3        R2 = O.TXT + L.TXT - 3                              PRE          675     A     
 PRE                BX1    X0+X1                                                           PRE          676     A     
 PRE                IX6    X1+X5                                                           PRE          677     A     
 PRE                SA6    A5                                                              PRE          678     A     
 PRE                                                                                       PRE          679     A     
 PRE       RJX6     SA3    RJXA                                                            PRE          680     A     
 PRE                CALL   PPL         PROCESS PARAMETER LIST                              PRE          681     A     
 PRE                EQ     PPS1                                                            PRE          682     A     
 PRE                                                                                       PRE          683     A     
 PRE       RJXA     SCRB   1                                                               PRE          684     A     
 PRE       RSM      SPACE  3                                                               PRE          685     A     
 PRE      **        RSM - REG STORE MACRO                                                  PRE          686     A     
 PRE                                                                                       PRE          687     A     
 PRE       RSM      RJ     RRL         GET INSTRUCTION                                     PRE          688     A     
 PRE                SA2    O.TXT                                                           PRE          689     A     
 PRE                SA5    L.TXT                                                           PRE          690     A     
 PRE                SA1    RLI+1       R1                                                  PRE          691     A     
 PRE                IX7    X2+X5                                                           PRE          692     A     
 PRE                MX0    -R1.RIL                                                         PRE          693     A     
 PRE                SA4    X7-4                                                            PRE          694     A     
 PRE                SB2    -4          WC = -4                                             PRE          695     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3589    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                                                                                       PRE          696     A     
 PRE       RSM1     BX6    X1-X4                                                           PRE          697     A     
 PRE                SA4    A4-4                                                            PRE          698     A     
 PRE                BX7    -X0*X6                                                          PRE          699     A     
 PRE                SB2    B2+4        WC = WC + 4                                         PRE          700     A     
 PRE                NZ     X7,RSM1     IF RI"S DONT MATCH                                  PRE          701     A     
 PRE                                                                                       PRE          702     A     
 PRE                NZ     B2,RSM2     IF WC " 0                                           PRE          703     A     
 PRE                RJ     ARI                                                             PRE          704     A     
 PRE                EQ     PPS1                                                            PRE          705     A     
 PRE                                                                                       PRE          706     A     
 PRE       RSM2     SX0    B2                                                              PRE          707     A     
 PRE                ALLOC  TXT,4       SUFFLE SEQUENCE TO GET RS NEXT TO DEF               PRE          708     A     
 PRE                IX5    X2+X5                                                           PRE          709     A     
 PRE                IX2    X5-X0       FROM = O.TXT + OLD(L.TXT) - WC                      PRE          710     A     
 PRE                SX3    X2+4        TO = FROM + 4                                       PRE          711     A     
 PRE                SB2    X2                                                              PRE          712     A     
 PRE                SX1    X0                                                              PRE          713     A     
 PRE                RJ     MVE=        MOVE JUNK IN BETWEEN DEF UP                         PRE          714     A     
 PRE                SA1    RLI+1       R1                                                  PRE          715     A     
 PRE                SA2    RLI                                                             PRE          716     A     
 PRE                BX6    X1                                                              PRE          717     A     
 PRE                MX7    0                                                               PRE          718     A     
 PRE                SA6    B2          [R1] = [RLI+1]                                      PRE          719     A     
 PRE                SA7    B2+B1       [R2] = 0                                            PRE          720     A     
 PRE                BX6    X2                                                              PRE          721     A     
 PRE                SA6    A7+B1                                                           PRE          722     A     
 PRE                SA7    A6+B1                                                           PRE          723     A     
 PRE                EQ     PPS1                                                            PRE          724     A     
 PRE       STM      SPACE  3                                                               PRE          725     A     
 PRE      **        STM - PROCESS STORE TO PROGRAMMER DEFINED VARIABLE                     PRE          726     A     
 PRE      *         SEARCH *RND* FOR STORE INTO SAME *IH* AND CLEAR IF FOUND               PRE          727     A     
 PRE                                                                                       PRE          728     A     
 PRE       STM      RJ     ERM         EXPAND MACRO                                        PRE          729     A     
 PRE                                                                                       PRE          730     A     
 PRE       STM0     SA2    L.RND                                                           PRE          731     A     
 PRE                SA1    O.RND                                                           PRE          732     A     
 PRE                ZR     X2,PPS1     IF L.RND = 0                                        PRE          733     A     
 PRE                SA4    O.SYM                                                           PRE          734     A     
 PRE                SB2    OC.ST                                                           PRE          735     A     
 PRE                MX0    -IH.IHL                                                         PRE          736     A     
 PRE                SB3    X1                                                              PRE          737     A     
 PRE                SA3    B3+X2       LW = O.RND + L.RND                                  PRE          738     A     
 PRE                SA0    X4+                                                             PRE          739     A     
 PRE                BX7    X3          LAST = [LW]                                         PRE          740     A     
 PRE                                                                                       PRE          741     A     
 PRE       STM1     SB7    B7-4        LTXT = LTXT - 4                                     PRE          742     A     
 PRE                SA5    B7          R1 = LTXT                                           PRE          743     A     
 PRE                UX6    B4,X5                                                           PRE          744     A     
 PRE                NE     B4,B2,PPS1  IF OC[R1] " OC.ST                                   PRE          745     A     
 PRE                LT     B7,B6,PPS1  IF LTXT < FTXT  */ END OF MACRO                     PRE          746     A     
 PRE                SA5    B7+B1       R2 = LTXT + 1                                       PRE          747     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3590    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                BX6    -X0*X5                                                          PRE          748     A     
 PRE                LX5    1                                                               PRE          749     A     
 PRE                SB5    X5+B1                                                           PRE          750     A     
 PRE                SA1    A0-B5       WORDB = [O.SYM-2*IH[R2]-1]                          PRE          751     A     
 PRE                LX1    59-P.SUB                                                        PRE          752     A     
 PRE                PL     X1,STM1     IF ^SUB[WORDB]  */ IH NOT USED IN SUBSCRIPT         PRE          753     A     
 PRE                SA2    B3          I = O.RND                                           PRE          754     A     
 PRE                SA6    A3          [LW] = IH[R2]                                       PRE          755     A     
 PRE                                                                                       PRE          756     A     
 PRE       STM2     BX4    X6-X2                                                           PRE          757     A     
 PRE                SA2    A2+1        I = I + 1                                           PRE          758     A     
 PRE                SB5    X4                                                              PRE          759     A     
 PRE                NZ     B5,STM2     IF IH[I-1] " IH[R2]                                 PRE          760     A     
 PRE                                                                                       PRE          761     A     
 PRE                AX4    IH.CAIHL                                                        PRE          762     A     
 PRE                SA7    A3          [LW] = LAST   */ RESTORE WORD                       PRE          763     A     
 PRE                ZR     X4,STM1     IF RN[I-1] = 0  */ ENTRY NOT IN TABLE               PRE          764     A     
 PRE                                                                                       PRE          765     A     
 PRE                SX7    0                                                               PRE          766     A     
 PRE                SA7    L.RND       L.RND = 0                                           PRE          767     A     
 PRE                EQ     PPS1                                                            PRE          768     A     
 PRE       PAL      EJECT                                                                  PRE          769     A     
 PRE      **        PAL - PROCESS APLIST MACRO                                             PRE          770     A     
 PRE                                                                                       PRE          771     A     
 PRE       PAL      SA1    X1+B1                                                           PRE          772     A     
 PRE                ADDWRD APL,X1                                                          PRE          773     A     
 PRE                                                                                       PRE          774     A     
 PRE      *         COLLECT FLOW INFO IF *RETURNS* APPEARED ON A *CALL*                    PRE          775     A     
 PRE      *         AND OPT2 " 0 . OTHERWISE CODE IS BYPASSED BY A PLUG .                  PRE          776     A     
 PRE                                                                                       PRE          777     A     
 PRE       PAL1     SA1    O.SYM                                                           PRE          778     A     
 PRE                LX6    -AP.IHP                                                         PRE          779     A     
 PRE                SB2    X6+                                                             PRE          780     A     
 PRE                ZR     B2,PPS1     IF IH[AP] = 0                                       PRE          781     A     
 PRE                SX4    X6-I.GL                                                         PRE          782     A     
 PRE                PL     X4,PPS1     IF IH[AP] \ I.GL                                    PRE          783     A     
 PRE                                                                                       PRE          784     A     
 PRE                SA0    X1-1                                                            PRE          785     A     
 PRE                SB3    B2+B2                                                           PRE          786     A     
 PRE                SA2    A0-B3       WORDB = [O.SYM-1-2*IH]                              PRE          787     A     
 PRE                MX6    -L.TYP                                                          PRE          788     A     
 PRE                LX2    -P.TYP                                                          PRE          789     A     
 PRE                BX3    -X6*X2                                                          PRE          790     A     
 PRE                SX4    X3-T.LAB                                                        PRE          791     A     
 PRE                NZ     X4,PPS1     IF TYPE[WORDB] " T.LAB                              PRE          792     A     
 PRE                                                                                       PRE          793     A     
 PRE                SA6    RS          RS = 1        */ INDICATE SEQ TERMINATION WANTED    PRE          794     A     
 PRE                CFTE   CBN,B2,IH   FLOW( CBN , IH[AP] )                                PRE          795     A     
 PRE       PAL2     EQ     PPS1                                                            PRE          796     A     
 PRE       PIO      SPACE  3,14                                                            PRE          797     A     
 PRE      **        PIO - PROCESS I/O SYMBOL LIST FOR OPT=2 USE/DEF INFO                   PRE          798     A     
 PRE                                                                                       PRE          799     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3591    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE       PIO      LX2    -R1.INP                                                         PRE          800          I
          -FCC2202
 PRE                SX6    O.MAC                                                           PRE          801          I
          -FCC2202
 PRE                SX5    B1                                                              PRE          802          I
          -FCC2202
 PRE                SB2    X2                                                              PRE          803          I
          -FCC2202
 PRE       PIO      LX2    -R1.SOP     RIGHT JUSTIFY FORMAT SYMBOL ORDINAL                 FCC2202       57     A     
 PRE                MX0    -R1.SOL                                                         FCC2202       58     A     
 PRE                BX6    -X0*X2                                                          FCC2202       59     A     
 PRE                LX2    -R1.INP+R1.SOP RIGHT JUSTIFY OPERAND COUNT                      FCC2202       60     A     
 PRE                ZR     X6,PIO2     IF NO FORMAT                                        FCC2202       61     A     
 PRE                SA1    O.SYM                                                           FCC2202       62     A     
 PRE                IX0    X6+X6       I*ORDINAL                                           FCC2202       63     A     
 PRE                IX0    X1-X0                                                           FCC2202       64     A     
 PRE                SA1    X0-1        WORDB = [O.SYM-2*ORD-1]                             FCC2202       65     A     
 PRE                MX0    59                                                              FCC2202       66     A     
 PRE                BX6    -X0*X1      BIT 0 = 1 MEANS V OR = IN FORMAT                    FCC2202       67     A     
 PRE                LX6    -1                                                              FCC2202       68     A     
 PRE                ZR     X6,PIO2                                                         FCC2202       69     A     
 PRE                SB2    X2          LENGTH, NO OF ENTRIES IN TABLE                      FCC2202       70     A     
 PRE                SA5    O.MAC       ADDRESS OF MACRO REF, SEE READRL                    FCC2202       71     A     
 PRE                SA5    X5                                                              FCC2202       72     A     
 PRE       PIO1     SA5    A5+B1       X5 = IOLIST ENTRY                                   FCC2202       73     A     
 PRE                BX7    -X6*X5      CLEAR DEF BIT IF V OR = IS IN FORMAT                FCC2202       74     A     
 PRE                SA7    A5          REPLACE MODIFIED IOLIST ENTRY                       FCC2202       75     A     
 PRE                SB2    B2-B1       N = N - 1                                           FCC2202       76     A     
 PRE                NZ     B2,PIO1                                                         FCC2202       77     A     
 PRE       PIO2     SX6    O.MAC       ADDRESS OF MACRO REF, SEE READRL                    FCC2202       78     A     
 PRE                SX5    B1          TABLE INDEX OF PARAMETER LIST                       FCC2202       79     A     
 PRE                SB2    X2          NUMBER OF ENTRIES IN TABLE                          FCC2202       80     A     
 PRE                CALL   CPL         CHAIN I/O LIST ENTRIES TO *UDI*                     PRE          804     A     
 PRE                EQ     PPS1                                                            PRE          805     A     
 PRE       BOS      EJECT                                                                  PRE          806     A     
 PRE      **        BOS - PROCESS BEGIN OF STATEMENT MARKER                                PRE          807     A     
 PRE                                                                                       PRE          808     A     
 PRE       BOS      SA5    O.TXT                                                           PRE          809     A     
 PRE                SA4    L.TXT                                                           PRE          810     A     
 PRE                IX6    X4+X5                                                           PRE          811     A     
 PRE                SB7    X5+B1                                                           PRE          812     A     
 PRE                SA3    X6-4                                                            PRE          813     A     
 PRE                UX7    B2,X3                                                           PRE          814     A     
 PRE                NE     B2,B1,BOS1  IF LAST IN *TXT* IS NOT A *BOS*                     PRE          815     A     
 PRE                BX7    X2                                                              PRE          816     A     
 PRE                SA7    A3          OVERWRITE PREVIOUS *BOS*                            PRE          817     A     
 PRE                AX7    R1.INP                                                          PRE          818     A     
 PRE                SX6    X7                                                              PRE          819     A     
 PRE                SA6    LSN         SET LAST STMT NUMBER                                PRE          820     A     
 PRE                SX4    X4-4                                                            PRE          821     A     
 PRE                NZ     X4,PPS1     IF NOT FIRST *BOS*                                  PRE          822     A     
 PRE                SA6    =XLINENR    LINENR = FSN  */ SET FIRST STMT NUMBER              PRE          823     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3592    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                SX7    X2                                                              PRE          824     A     
 PRE                SA7    BRN         BRN = RI[R1]  */ BASE R-NUMBER                      PRE          825     A     
 PRE                EQ     PPS1                                                            PRE          826     A     
 PRE                                                                                       PRE          827     A     
 PRE       BOS1     SA1    M.TXT                                                           PRE          828     A     
 PRE                SA2    OPTLVL                                                          PRE          829     A     
 PRE                ZR     X2,BOS5     IF OPT = 0                                          PRE          830     A     
 PRE                SA3    RS                                                              PRE          831     A     
 PRE                NZ     X3,BOS6     IF RS " 0     */ RETURNS TERMINATION                PRE          832     A     
 PRE                SA2    XR                                                              PRE          833     A     
 PRE                IX6    X4-X1                                                           PRE          834     A     
 PRE                PL     X6,BOS4     IF L.TXT \ M.TXT                                    PRE          835     A     
 PRE                SX6    X4-M.BLK                                                        PRE          836     A     
 PRE                MI     X6,BOS2     IF L.TXT < M.BLK                                    PRE          837     A     
 PRE                NZ     X2,BOS4     IF XR " 0     */ EXT REFS                           PRE          838     A     
 PRE                                                                                       PRE          839     A     
 PRE      *         ADD THE *BOS* TO THE SEQUENCE AND CONTINUE                             PRE          840     A     
 PRE                                                                                       PRE          841     A     
 PRE       BOS2     RJ     ARI         ADD *BOS* TO *TXT*                                  PRE          842     A     
 PRE                AX1    R1.INP                                                          PRE          843     A     
 PRE                SX7    X1                                                              PRE          844     A     
 PRE                SA7    LSN         LSN = IN[R1]                                        PRE          845     A     
 PRE                SX6    0                                                               PRE          846     A     
 PRE                SA6    XR          XR = 0                                              PRE          847     A     
 PRE                EQ     PPS1                                                            PRE          848     A     
 PRE                                                                                       PRE          849     A     
 PRE       BOS4     SA4    OPT2                                                            PRE          850     A     
 PRE                NZ     X4,BOS6     IF OPT2 " 0                                         PRE          851     A     
 PRE                                                                                       PRE          852     A     
 PRE                SA1    WB                                                              PRE          853     A     
 PRE                AX6    B1,X1       WB = SHIFT(WB,-1)  */ CLEAR WB IF = 1               PRE          854     A     
 PRE                SA6    A1                                                              PRE          855     A     
 PRE                                                                                       PRE          856     A     
 PRE       BOS5     CALL   PROSEQ      PROCESS THE ACCUMULATED INSTRUCTIONS                PRE          857     A     
 PRE                SA2    RLI+1                                                           PRE          858     A     
 PRE                EQ     BOS                                                             PRE          859     A     
 PRE                                                                                       PRE          860     A     
 PRE      *         OPT=2 AND SEQ OVERFLOW OR RETURNS TERMINATION                          PRE          861     A     
 PRE                                                                                       PRE          862     A     
 PRE       BOS6     CALL   PROSEQ      TERMINATE SEQUENCE                                  PRE          863     A     
 PRE                SA1    CBN         PBN = CBN                                           PRE          864     A     
 PRE                MX7    0                                                               PRE          865     A     
 PRE                SX6    X1+B1       CBN = CBN + 1                                       PRE          866     A     
 PRE                SA7    RS          RS = 0                                              PRE          867     A     
 PRE                SA6    A1                                                              PRE          868     A     
 PRE                CFTE   X1,X6       FLOW( PBN , CBN )                                   PRE          869     A     
 PRE                SA2    RLI+1                                                           PRE          870     A     
 PRE                EQ     BOS                                                             PRE          871     A     
 PRE       PSX      SPACE  3,8                                                             PRE          872     A     
 PRE       EXM      TITLE  EXM - EXPAND EXPONENTIAL MACRO                                  PRE          873     A     
 PRE      **        EXM - EXPAND EXPONENTIAL MACRO                                         PRE          874     A     
 PRE      *         ALGORITHM ADAPTED FROM ARTICLE ON LOCAL OPTIMIZATIONS BY               PRE          875     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3593    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE      *         J.C. BAGWELL IN SIGPLAN, JULY 1970.                                    PRE          876     A     
 PRE      *         RMACRO ARGUMENT WORDS -                                                PRE          877     A     
 PRE      *         WORD 1 28/,16/RI[OPERAND],16/RI[RESULT]                                PRE          878     A     
 PRE      *         WORD 2 24/,18/OPCODE,18/EXPONENT ( N )                                 PRE          879     A     
 PRE                                                                                       PRE          880     A     
 PRE       EXM      SA2    X1+B1       RI[OP],RI[RESULT]                                   PRE          881     A     
 PRE                MX0    -RM.RIL                                                         PRE          882     A     
 PRE                SA3    A2+B1       OC.XX,EXP                                           PRE          883     A     
 PRE                BX6    -X0*X2                                                          PRE          884     A     
 PRE                AX2    RM.RIL                                                          PRE          885     A     
 PRE                BX7    -X0*X2                                                          PRE          886     A     
 PRE                SA7    EXMC        EXMC(1) = RI[OP]                                    PRE          887     A     
 PRE                SA5    EXMB-2+X3   ECW = EXMB(N) */ EXPANSION CONTROL WORD             PRE          888     A     
 PRE                AX3    RM.CAL                                                          PRE          889     A     
 PRE                SX0    X3                                                              PRE          890     A     
 PRE                SA6    EXMC+X5     EXMC(N.INST) = RI[RESULT]                           PRE          891     A     
 PRE                                                                                       PRE          892     A     
 PRE      *         FILL IN INTERMEDIATE R-NUMBERS IN *EXMC*                               PRE          893     A     
 PRE                                                                                       PRE          894     A     
 PRE                SX1    X5                                                              PRE          895     A     
 PRE                LX1    2                                                               PRE          896     A     
 PRE                SB2    X5-1                                                            PRE          897     A     
 PRE                ZR     B2,EXM2                                                         PRE          898     A     
 PRE                SA4    =XNIRN                                                          PRE          899     A     
 PRE                SX6    X4+B2                                                           PRE          900     A     
 PRE                SX7    X4+B2       NIRN = NIRN + N.INST - 1                            PRE          901     A     
 PRE       EXM1     SX6    X6-1                                                            PRE          902     A     
 PRE                SB2    B2-B1                                                           PRE          903     A     
 PRE                SA6    A6-B1                                                           PRE          904     A     
 PRE                NZ     B2,EXM1                                                         PRE          905     A     
 PRE                SA7    A4                                                              PRE          906     A     
 PRE                                                                                       PRE          907     A     
 PRE       EXM2     ALLOC  TXT,X1      ALLOC( TXT , 4*N.INST )                             PRE          908     A     
 PRE                SB7    X2+B6                                                           PRE          909     A     
 PRE                SA3    EXMC+1      I = EXMC(2);  R = [I]                               PRE          910     A     
 PRE                SB2    X0                                                              PRE          911     A     
 PRE                MX0    -3                                                              PRE          912     A     
 PRE                                                                                       PRE          913     A     
 PRE      *         GENERATE A SERIES OF MULTIPLY MACROS, BASED ON THE *ECW*               PRE          914     A     
 PRE                                                                                       PRE          915     A     
 PRE       EXM3     LX5    3           ECW = SHIFT(ECW,3)                                  PRE          916     A     
 PRE                BX6    -X0*X5      J = OGET[ECW]                                       PRE          917     A     
 PRE                ZR     X6,PPS1     IF J = 0      */ END OF EXPANSION                   PRE          918     A     
 PRE                SA4    EXMA-1+X6   OCW = EXMA(J)                                       PRE          919     A     
 PRE                SB3    A3                                                              PRE          920     A     
 PRE                SA1    B3+X4       RK = EXMC( I - RKO[OCW] )                           PRE          921     A     
 PRE                AX4    18                                                              PRE          922     A     
 PRE                SA2    B3+X4       RJ = EXMC( I - RJO[OCW] )                           PRE          923     A     
 PRE                LX1    R1.RKP                                                          PRE          924     A     
 PRE                LX2    R1.RJP                                                          PRE          925     A     
 PRE                BX3    X3+X1                                                           PRE          926     A     
 PRE                MX7    0           R2 = 0                                              PRE          927     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3594    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                IX6    X3+X2       R1 = TYI(OC,RJ,RK,R)                                PRE          928     A     
 PRE                RJ     SRI         SRI( R1 , R2 , OC ) */ STORE THE INST               PRE          929     A     
 PRE                SA3    A3+B1       I = I + 1;  R = [I]                                 PRE          930     A     
 PRE                EQ     EXM3                                                            PRE          931     A     
 PRE                                                                                       PRE          932     A     
 PRE      **        EXMA - TABLE OF OPERAND R-NUMBER INDICES                               PRE          933     A     
 PRE                                                                                       PRE          934     A     
 PRE       EXORN    MACRO  RJ,RK                                                           PRE          935     A     
 PRE                VFD    24/,18/-RJ,18/-RK                                               PRE          936     A     
 PRE                ENDM                                                                   PRE          937     A     
 PRE                                                                                       PRE          938     A     
 PRE       EXMA     BSS    0                                                               PRE          939     A     
 PRE                LOC    1                                                               PRE          940     A     
 PRE                EXORN  1,1         (RI-1)*(RI-1)                                       PRE          941     A     
 PRE                EXORN  1,2         (RI-1)*(RI-2)                                       PRE          942     A     
 PRE                EXORN  1,3         (RI-1)*(RI-3)                                       PRE          943     A     
 PRE                EXORN  1,4         (RI-1)*(RI-4)                                       PRE          944     A     
 PRE                EXORN  1,5         (RI-1)*(RI-5)                                       PRE          945     A     
 PRE                EXORN  2,3         (RI-2)*(RI-3)                                       PRE          946     A     
 PRE                EXORN  3,4         (RI-3)*(RI-4)                                       PRE          947     A     
 PRE                LOC    *O                                                              PRE          948     A     
 PRE                                                                                       PRE          949     A     
 PRE       EXOC     MACRO  A                                                               PRE          950     A     
 PRE       .N       SET    0                                                               PRE          951     A     
 PRE       .S       SET    A_B                                                             PRE          952     A     
 PRE                DUP    14,4        COUNT NUMBER OF OGITS IN STRING                     PRE          953     A     
 PRE       .S       SET    .S/8                                                            PRE          954     A     
 PRE       .N       SET    .N+3                                                            PRE          955     A     
 PRE                IFEQ   .S,0,1                                                          PRE          956     A     
 PRE                STOPDUP                                                                PRE          957     A     
 PRE                VFD    .N/A_B,*P/.N/3                                                  PRE          958     A     
 PRE                ENDM                                                                   PRE          959     A     
 PRE                NOREF  .N,.S                                                           PRE          960     A     
 PRE                                                                                       PRE          961     A     
 PRE      **        EXMB - EXPONENTIAL MACRO EXPANSION SKELTON CONTROL TABLE               PRE          962     A     
 PRE      *         FORMAT - 42/DDDD0,18/N.INST ( IN MACRO EXPANSION )                     PRE          963     A     
 PRE      *                D = DIGIT INDICATING OPERANDS OF MULTIPLY OPERATOR.             PRE          964     A     
 PRE      *                I.E. AN INDEX INTO *EXMA*.                                      PRE          965     A     
 PRE                                                                                       PRE          966     A     
 PRE       EXMB     BSS    0                                                               PRE          967     A     
 PRE                LOC    2                                                               PRE          968     A     
 PRE                EXOC   1           X**2                                                PRE          969     A     
 PRE                EXOC   12          X**2 * X                                            PRE          970     A     
 PRE                EXOC   11          (X**2)**2                                           PRE          971     A     
 PRE                EXOC   113         (X**2)**2 * X                                       PRE          972     A     
 PRE                EXOC   112         (X**2)**2) * X**2                                   PRE          973     A     
 PRE                EXOC   1162        (X**2)**2 * (X**2 * X)                              PRE          974     A     
 PRE                EXOC   111         ((X**2)**2)**2                                      PRE          975     A     
 PRE                EXOC   1114                                                            PRE          976     A     
 PRE                EXOC   1131                                                            PRE          977     A     
 PRE                EXOC   11623                                                           PRE          978     A     
 PRE                EXOC   1112                                                            PRE          979     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3595    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                EXOC   11125                                                           PRE          980     A     
 PRE                EXOC   11124                                                           PRE          981     A     
 PRE                EXOC   12113                                                           PRE          982     A     
 PRE                EXOC   1111        (((X**2)**2)**2)**2                                 PRE          983     A     
 PRE                LOC    *O                                                              PRE          984     A     
 PRE                                                                                       PRE          985     A     
 PRE       EXMC     SCRB   7           R-NUMBER BUFFER                                     PRE          986     A     
 PRE       SFR      TITLE  SFR - SAVED FUNCTION RESULT MACRO                               PRE          987     A     
 PRE      **        SFR - SAVE FUNCTION RESULT MACRO                                       PRE          988     A     
 PRE      *         THE EXPANSION OF THE MACRO IS JUST A STORE TO TEMPORARY,               PRE          989     A     
 PRE      *         BUT LATER IN THE STATEMENT, THE SAME R-NUMBER IS USED IN A             PRE          990     A     
 PRE      *         *LD* FROM THE TEMP, WHICH WE CANT ALLOW.                               PRE          991     A     
 PRE                                                                                       PRE          992     A     
 PRE      *         SEARCH BACKWARD FOR THE DEFINATION OF THE R-NUMBER IN THE STORE        PRE          993     A     
 PRE      *         AND CHANGE THE OCCURANCE OF IT TO AN INTERMEDIATE R-NUMBER.            PRE          994     A     
 PRE                                                                                       PRE          995     A     
 PRE       SFR      SX1    4                                                               PRE          996     A     
 PRE                RJ     ISE         INITIALIZE FOR AN EXPANSION                         PRE          997     A     
 PRE                                                                                       PRE          998     A     
 PRE                SB4    4                                                               PRE          999     A     
 PRE                MX0    -R1.RIL                                                         PRE         1000     A     
 PRE                SA4    B7-B4                                                           PRE         1001     A     
 PRE                SA1    A0+B1       RI = [BASE+1]                                       PRE         1002     A     
 PRE                SB2    OC.ST                                                           PRE         1003     A     
 PRE                                                                                       PRE         1004     A     
 PRE       SFR1     BX6    X4-X1                                                           PRE         1005     A     
 PRE                BX7    -X0*X6                                                          PRE         1006     A     
 PRE                SA4    A4-B4                                                           PRE         1007     A     
 PRE                NZ     X7,SFR1     IF RI[TXT] " RI                                     PRE         1008     A     
 PRE                                                                                       PRE         1009     A     
 PRE                SA4    A4+B4                                                           PRE         1010     A     
 PRE                BX5    X0*X4                                                           PRE         1011     A     
 PRE                SX6    B6                                                              PRE         1012     A     
 PRE                IX7    X5+X6       RI[TXT] = NIRN                                      PRE         1013     A     
 PRE                SA7    A4                                                              PRE         1014     A     
 PRE                SA1    A0                                                              PRE         1015     A     
 PRE                SA2    A0+2                                                            PRE         1016     A     
 PRE                LX1    IH.IHP                                                          PRE         1017     A     
 PRE                LX2    IH.CAP                                                          PRE         1018     A     
 PRE                BX7    X1+X2                                                           PRE         1019     A     
 PRE                RJ     SRI         ST  NIRN,0,IH,CA                                    PRE         1020     A     
 PRE                SB6    B6+B1       NIRN = NIRN + 1                                     PRE         1021     A     
 PRE                RJ     TSE         TERMINATE THE EXPANSION                             PRE         1022     A     
 PRE                EQ     PPS1                                                            PRE         1023     A     
 PRE       PDM      TITLE  PDM - PROCESS DO BEGIN/END MACROS                               PRE         1024     A     
 PRE      **        PDM - PROCESS DO BEGIN/END MACROS                                      PRE         1025     A     
 PRE                                                                                       PRE         1026     A     
 PRE       PDB      MX0    -1                                                              PRE         1027     A     
 PRE                AX2    18+2                                                            PRE         1028     A     
 PRE                EQ     PDB1                                                            PRE         1029     A     
 PRE                                                                                       PRE         1030     A     
 PRE       PDE      MX0    -2                                                              PRE         1031     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3596    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                LX2    -R1.INP                                                         PRE         1032     A     
 PRE                SB7    X2          WC = IN[R1]                                         PRE         1033     A     
 PRE                LX2    R1.INP-18                                                       PRE         1034     A     
 PRE                                                                                       PRE         1035     A     
 PRE       PDB1     BX3    -X0*X2                                                          PRE         1036     A     
 PRE                SA4    X1+4        DOI = [O.MAC+4]  */ LOOP INFO WORD                  PRE         1037     A     
 PRE                SB3    X3+B3       OC[O.MAC] = BASE + CV(B/CD)[RLI(2)]                 PRE         1038     A     
 PRE                SA3    O.LOOP                                                          PRE         1039     A     
 PRE                SB2    B2+M.DOBGN                                                      PRE         1040     A     
 PRE                SA5    LSN                                                             PRE         1041     A     
 PRE                SB4    -B3                                                             PRE         1042     A     
 PRE                PX7    B4,X7                                                           PRE         1043     A     
 PRE                SB3    X3                                                              PRE         1044     A     
 PRE                SA7    X1                                                              PRE         1045     A     
 PRE                NZ     B2,PDE1     IF OC " M.DOBGN                                     PRE         1046     A     
 PRE                                                                                       PRE         1047     A     
 PRE      *         ADD INFO FROM RMACRO TO LOOP TABLE FOR REFMAP                          PRE         1048     A     
 PRE                                                                                       PRE         1049     A     
 PRE                ZR     X3,PDB2     IF O.LOOP = 0 */ NO LOOP TABLE                      PRE         1050     A     
 PRE                MX0    24                                                              PRE         1051     A     
 PRE                BX6    X0*X4       LOOP(LN[DOI]) = [DOI]                               PRE         1052     A     
 PRE                LX4    -18                                                             PRE         1053     A     
 PRE                SA6    B3+X4                                                           PRE         1054     A     
 PRE                BX7    X5          LOOP(LN[DOI]+1) = LSN                               PRE         1055     A     
 PRE                SA7    A6+B1                                                           PRE         1056     A     
 PRE                                                                                       PRE         1057     A     
 PRE      *         IF OPT = 1 AND LOOP IS OPTIMIZABLE, THEN SET WB = 1                    PRE         1058     A     
 PRE                                                                                       PRE         1059     A     
 PRE       PDB2     SA2    OPTLVL                                                          PRE         1060     A     
 PRE                SX0    167B        NON OPTIMIZABLE LOOP FLAGS                          PRE         1061     A     
 PRE                SX7    X2-1                                                            PRE         1062     A     
 PRE                NZ     X7,PDB4     IF OPTLVL " 1                                       PRE         1063     A     
 PRE                                                                                       PRE         1064     A     
 PRE                SA3    O.SYM                                                           PRE         1065     A     
 PRE                SA2    X1+B1                                                           PRE         1066     A     
 PRE                SA0    X3                                                              PRE         1067     A     
 PRE                LX2    1                                                               PRE         1068     A     
 PRE                SB3    X2+B1                                                           PRE         1069     A     
 PRE                LX0    P.FLG                                                           PRE         1070     A     
 PRE                SA4    A0-B3       WORDB = [O.SYM-2*IH[LGL]-1]                         PRE         1071     A     
 PRE                BX7    X0*X4                                                           PRE         1072     A     
 PRE                NZ     X7,PDB4     IF OPTF[WORDB] " 0  */ LOOP NOT OPTIMIZABLE         PRE         1073     A     
 PRE                                                                                       PRE         1074     A     
 PRE                SX7    B1                                                              PRE         1075     A     
 PRE                SA7    WB          WB = 1                                              PRE         1076     A     
 PRE                                                                                       PRE         1077     A     
 PRE       PDB4     CALL   EMR         EXPAND MACRO                                        PRE         1078     A     
 PRE                RJ     ERM         ADD INSTRUCTIONS TO *TXT*                           PRE         1079     A     
 PRE                SX7    0                                                               PRE         1080     A     
 PRE                SA7    L.RND       L.RND = 0                                           PRE         1081     A     
 PRE                                                                                       PRE         1082     A     
 PRE      *         ADD LOOP CV TO ACTIVE LOOP STACK AND ENTER IN *UDI*                    PRE         1083     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3597    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                                                                                       PRE         1084     A     
 PRE                SA1    B7-3        R2L = LTXT - 3                                      PRE         1085     A     
 PRE                ADDWRD ALS,X1      ADDWRD( ALS , CAIH[R2L] )                           PRE         1086     A     
 PRE                SA5    OPT2                                                            PRE         1087     A     
 PRE                ZR     X5,PDB5     IF OPT2 = 0                                         PRE         1088     A     
 PRE                SX6    A2                                                              PRE         1089     A     
 PRE                SB2    B1                                                              PRE         1090     A     
 PRE                SX5    X3-1                                                            PRE         1091     A     
 PRE                CALL   CPL         GET *UDI* INDEX OF LOOP CV                          PRE         1092     A     
 PRE                SX7    X7-1                                                            PRE         1093     A     
 PRE                SX6    B5                                                              PRE         1094     A     
 PRE                SA7    A7          L.IOL = L.IOL - 1                                   PRE         1095     A     
 PRE                SA6    CVI         CVI = CPL(CA,HI)  */ *UDI* INDEX OF CV              PRE         1096     A     
 PRE                EQ     PPS1                                                            PRE         1097     A     
 PRE                                                                                       PRE         1098     A     
 PRE       PDB5     SA1    WB                                                              PRE         1099     A     
 PRE                SX6    X1-1                                                            PRE         1100     A     
 PRE                NZ     X6,PPS1     IF WB " 1                                           PRE         1101     A     
 PRE                                                                                       PRE         1102     A     
 PRE                SA6    A1+         WB = 0                                              PRE         1103     A     
 PRE                CALL   PROSEQ      CODE THE PROLOGUE                                   PRE         1104     A     
 PRE                SX6    1                                                               PRE         1105     A     
 PRE                SA6    WB          WB = 1                                              PRE         1106     A     
 PRE                EQ     PPS1                                                            PRE         1107     A     
 PRE                                                                                       PRE         1108     A     
 PRE       CVI      BSSZ   1           *UDI* INDEX OF LOOP CONTROL VAR                     PRE         1109     A     
 PRE       PDM      EJECT                                                                  PRE         1110     A     
 PRE      *         PROCESS DO END                                                         PRE         1111     A     
 PRE                                                                                       PRE         1112     A     
 PRE       PDE1     SA2    L.ALS                                                           PRE         1113     A     
 PRE                SX6    X2-1        L.ALS = L.ALS - 1                                   PRE         1114     A     
 PRE                SB3    B3+B1                                                           PRE         1115     A     
 PRE                SA6    A2                                                              PRE         1116     A     
 PRE                ZR     B7,PPS1     IF WC = 0     */ 1 TRIP LOOP DO-END MACRO           PRE         1117     A     
 PRE                                                                                       PRE         1118     A     
 PRE                ZR     X3,PDE2     IF O.LOOP = 0                                       PRE         1119     A     
 PRE                LX4    -18                                                             PRE         1120     A     
 PRE                SA2    B3+X4                                                           PRE         1121     A     
 PRE                LX5    18                                                              PRE         1122     A     
 PRE                BX7    X5+X2                                                           PRE         1123     A     
 PRE                SA7    A2          LOOP(LN[DOI]+1) = LSN+FSN    FOR LOOP               PRE         1124     A     
 PRE                                                                                       PRE         1125     A     
 PRE      *         ADD INSTRUCTIONS TO *TXT*, SET *RF* BIT FOR *LD*"S IN MACRO            PRE         1126     A     
 PRE      *         SINCE THEY MUST ALL BE < 377777B ( REFERENCE MANUAL ).                 PRE         1127     A     
 PRE                                                                                       PRE         1128     A     
 PRE       PDE2     CALL   EMR         EXPAND THE MACRO                                    PRE         1129     A     
 PRE                SA2    F.RDT+OC.LD                                                     PRE         1130     A     
 PRE                SX3    B1                                                              PRE         1131     A     
 PRE                LX3    D.RFP                                                           PRE         1132     A     
 PRE                BX6    X3+X2       RF[RDT(OC.LD)] = 1                                  PRE         1133     A     
 PRE                SA6    A2                                                              PRE         1134     A     
 PRE                RJ     ERM         ADD INSTRUCTIONS TO *TXT*                           PRE         1135     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3598    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                SA2    F.RDT+OC.LD                                                     PRE         1136     A     
 PRE                SA1    OPT2                                                            PRE         1137     A     
 PRE                SX3    B1                                                              PRE         1138     A     
 PRE                LX3    D.RFP                                                           PRE         1139     A     
 PRE                BX6    -X3*X2      RF[RDT(OC.LD)] = 0                                  PRE         1140     A     
 PRE                SA6    A2                                                              PRE         1141     A     
 PRE                ZR     X1,UJP1     IF OPT2 = 0                                         PRE         1142     A     
 PRE                                                                                       PRE         1143     A     
 PRE                SA3    B7-3        R2J = LTXT - 3  */ LOOP BACK JUMP                   PRE         1144     A     
 PRE                SA5    CBN                                                             PRE         1145     A     
 PRE                CFTE   X5,X3,IH    FLOW( CBN , IH[R2J] )                               PRE         1146     A     
 PRE                CFTE   X5,X5+B1    FLOW( CBN , CBN + 1 )                               PRE         1147     A     
 PRE                EQ     UJP3                                                            PRE         1148     A     
 PRE       PPL      TITLE  PPL - PROCESS PARAMETER LIST                                    PRE         1149     A     
 PRE      **        PPL - PROCESS PARAMETER LIST                                           PRE         1150     A     
 PRE      *                SETUP *API* TABLE ENTRY DESCRIBING THE PARAM LIST.              PRE         1151     A     
 PRE      *                THEN TRY TO REDUCE THE LIST IF IT IS COMMON WITH THE            PRE         1152     A     
 PRE      *                TAIL END OF ANOTHER APLIST.                                     PRE         1153     A     
 PRE      *                                                                                PRE         1154     A     
 PRE      *         ENTRY  (X3) = IH OF PARAMETER LIST                                     PRE         1155     A     
 PRE                                                                                       PRE         1156     A     
 PRE       PPLA     BFMW   AP,(ST,CAIH)                                                    PRE         1157     A     
 PRE                                                                                       PRE         1158     A     
 PRE       PPL0     SX6    B4+                                                             PRE         1159     A     
 PRE                SA6    PAPL        PAPL = L.APL                                        PRE         1160     A     
 PRE                                                                                       PRE         1161     A     
 PRE       PPL      ROUTINE                                                                PRE         1162     A     
 PRE                SB7    X3-I.AP     N = H[IH]     */ APLIST NUMBER                      PRE         1163     A     
 PRE                SA1    O.API                                                           PRE         1164     A     
 PRE                SA2    PAPL                                                            PRE         1165     A     
 PRE                SA3    L.APL                                                           PRE         1166     A     
 PRE                SA0    X1-1                                                            PRE         1167     A     
 PRE                IX7    X3-X2                                                           PRE         1168     A     
 PRE                SB5    X7          LN = LEN[N]   */ LENGTH OF THIS LIST                PRE         1169     A     
 PRE                LX7    AI.LENP                                                         PRE         1170     A     
 PRE                SB4    X3          IN = INDX[N]  */ INDEX TO LWA+1                     PRE         1171     A     
 PRE                LX3    AI.INDXP                                                        PRE         1172     A     
 PRE                BX6    X7+X3                                                           PRE         1173     A     
 PRE                SA6    A0+B7       API(N) = AINFO(0,0,L.APL-PAPL,L.APL)                PRE         1174     A     
 PRE                                                                                       PRE         1175     A     
 PRE      *         NOW SEARCH THE ACCUMULATED APLISTS AND ATTEMPT TO ELIMINATE            PRE         1176     A     
 PRE      *         ANY COMMON APLISTS                                                     PRE         1177     A     
 PRE                                                                                       PRE         1178     A     
 PRE                SA4    O.APL                                                           PRE         1179     A     
 PRE                SA5    X4-1        BASE = O.APL - 1                                    PRE         1180     A     
 PRE                SA1    PPLA                                                            PRE         1181     A     
 PRE                SB6    B7          J = N                                               PRE         1182     A     
 PRE                BX6    X1                                                              PRE         1183     A     
 PRE                                                                                       PRE         1184     A     
 PRE       PPL1     SB6    B6-B1       J = J - 1                                           PRE         1185     A     
 PRE                SA1    A0+B6       AJ = API(J)                                         PRE         1186     A     
 PRE                ZR     B6,PPL0     IF J = 0                                            PRE         1187     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3599    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                LX1    59-AI.EQVP                                                      PRE         1188     A     
 PRE                MI     X1,PPL1     IF EQV[AJ]                                          PRE         1189     A     
 PRE                                                                                       PRE         1190     A     
 PRE                LX1    1+AI.EQVP-AI.INDXP                                              PRE         1191     A     
 PRE                SB2    X1          IJ = INDX[AJ]                                       PRE         1192     A     
 PRE                LX1    AI.INDXP-AI.LENP                                                PRE         1193     A     
 PRE                SB3    X1          LJ = LEN[AJ]                                        PRE         1194     A     
 PRE                SX0    X1                                                              PRE         1195     A     
 PRE                SX7    B6                                                              PRE         1196     A     
 PRE                LT     B3,B5,PPL2  (LS,EI) = IF( LJ < LN )  (LJ,J) ELSE (LN,N)         PRE         1197     A     
 PRE                SX0    B5                                                              PRE         1198     A     
 PRE                SX7    B7                                                              PRE         1199     A     
 PRE                                                                                       PRE         1200     A     
 PRE       PPL2     SA2    A5+B4       SN = BASE + IN                                      PRE         1201     A     
 PRE                SA3    A5+B2       SI = BASE + IJ                                      PRE         1202     A     
 PRE                BX4    -X0         M = -LS                                             PRE         1203     A     
 PRE                                                                                       PRE         1204     A     
 PRE       PPL3     BX5    X2-X3                                                           PRE         1205     A     
 PRE                SX4    X4+1        M = M + 1                                           PRE         1206     A     
 PRE                BX3    X6*X5                                                           PRE         1207     A     
 PRE                NZ     X3,PPL1     IF (ST,CAIH)[SN] " (ST,CAIH)[SJ]                    PRE         1208     A     
 PRE                SA2    A2-B1       SN = SN - 1                                         PRE         1209     A     
 PRE                SA3    A3-B1       SJ = SJ - 1                                         PRE         1210     A     
 PRE                NZ     X4,PPL3     IF M " 0                                            PRE         1211     A     
 PRE                                                                                       PRE         1212     A     
 PRE      *         EQUIVALENCE THE SHORTER LIST TO THE LONGER ONE                         PRE         1213     A     
 PRE                                                                                       PRE         1214     A     
 PRE                SX5    B6+B7                                                           PRE         1215     A     
 PRE                MX6    1                                                               PRE         1216     A     
 PRE                LX6    1+AI.EQVP                                                       PRE         1217     A     
 PRE                IX4    X5-X7       ORD[API(EI)] = J + N - EI                           PRE         1218     A     
 PRE                SX3    B3+B5                                                           PRE         1219     A     
 PRE                LX4    AI.ORDP                                                         PRE         1220     A     
 PRE                LX0    1                                                               PRE         1221     A     
 PRE                IX2    X3-X0       BIAS[API(EI)] = MAX(LJ,LN) - LS                     PRE         1222     A     
 PRE                LX2    AI.BIASP                                                        PRE         1223     A     
 PRE                IX4    X2+X4                                                           PRE         1224     A     
 PRE                BX6    X4+X6                                                           PRE         1225     A     
 PRE                SB6    X7                                                              PRE         1226     A     
 PRE                SA6    A0+B6                                                           PRE         1227     A     
 PRE                NE     B6,B7,PPL4  IF EI " N     */ IF ELIMINATED NOT LAST             PRE         1228          I
          -FCC0672
 PRE                                                                                       PRE         1229          I
          -FCC0672
 PRE                SX7    B4-B5       L.APL = PAPL                                        PRE         1230          I
          -FCC0672
 PRE                SA7    L.APL                                                           PRE         1231          I
          -FCC0672
 PRE                SX7    B4-B5                     (X7) = PAPL                           FCC0672       13     A     
 PRE                LX4    -AI.ORDP    K = ORD[API(EI)]  */ ORD OF BASE OF CLASS           FCC0672       14     A     
 PRE                SB5    X4                                                              FCC0672       15     A     
 PRE                SA4    A0+B5                                                           FCC0672       16     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3600    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                SX6    B1                                                              FCC0672       17     A     
 PRE                LX6    AI.BASEP                                                        FCC0672       18     A     
 PRE                BX6    X6+X4       BASE[API(K)] = 1  */ MARK AS *BASE*                 FCC0672       19     A     
 PRE                SA6    A4                                                              FCC0672       20     A     
 PRE                NE     B6,B7,PPL4  IF EI " N     */ ELIMINATED NOT LAST                FCC0672       21     A     
 PRE                SA7    L.APL       L.APL = PAPL                                        FCC0672       22     A     
 PRE                EQ     PPL                                                             PRE         1232     A     
 PRE                                                                                       PRE         1233     A     
 PRE      *         LOWER ONE IS SHORTER, MOVE APLISTS ABOVE IT DOWN                       PRE         1234     A     
 PRE                                                                                       PRE         1235     A     
 PRE       PPL4     SB6    B6+B1       K = J + 1                                           PRE         1236     A     
 PRE                SX4    B3                                                              PRE         1237     A     
 PRE                LX4    AI.INDXP                                                        PRE         1238     A     
 PRE                SA1    L.APL                                                           PRE         1239     A     
 PRE                                                                                       PRE         1240     A     
 PRE       PPL5     SA2    A0+B6       AK = O.API-1 + K                                    PRE         1241     A     
 PRE                SB6    B6+B1       K = K + 1                                           PRE         1242     A     
 PRE                LX2    59-AI.EQVP                                                      PRE         1243     A     
 PRE                MI     X2,PPL6     IF EQV[AK]                                          PRE         1244     A     
 PRE                IX6    X2-X4                                                           PRE         1245     A     
 PRE                SA6    A2+         INDX[AK] = INDX[AK] - LEN[AJ]                       PRE         1246     A     
 PRE       PPL6     LE     B6,B7,PPL5  IF K @ N                                            PRE         1247     A     
 PRE                                                                                       PRE         1248     A     
 PRE                LX4    -AI.INDXP                                                       PRE         1249     A     
 PRE                IX6    X1-X4       L.APL = L.APL - LEN[AJ]                             PRE         1250     A     
 PRE                SA6    A1                                                              PRE         1251     A     
 PRE                SA6    PAPL        PAPL = L.APL                                        PRE         1252     A     
 PRE                                                                                       PRE         1253          I
          -FCC0672
 PRE                SB6    A5+B1                                                           PRE         1254     A     
 PRE                SX2    B6+B2                                                           PRE         1255     A     
 PRE                IX3    X2-X4                                                           PRE         1256     A     
 PRE                MOVE   B4-B2,X2,X3 MOVE( IN-IJ , O.APL+IJ , O.APL+IJ-LJ )              PRE         1257     A     
 PRE                EQ     PPL                                                             PRE         1258     A     
 PRE       ARI      TITLE  SUBROUTINES                                                     PRE         1259     A     
 PRE      **        ARI - ADD RLIST INSTRUCTION TO SEQUENCE                                PRE         1260     A     
 PRE      *                                                                                PRE         1261     A     
 PRE      *         EXIT   (B6) = L.TXT - 4 , PREVIOUS VALUE OF *L.TXT*                    PRE         1262     A     
 PRE      *                (X1) = [R1] , R1 WORD OF INSTRUCTION                            PRE         1263     A     
 PRE      *                (X6) = DESCRIPTOR                                               PRE         1264     A     
 PRE                                                                                       PRE         1265     A     
 PRE       ARI0     SA3    A1-B1       DESCR                                               PRE         1266     A     
 PRE                LX7    X2                                                              PRE         1267     A     
 PRE                SA7    X4+B1                                                           PRE         1268     A     
 PRE                BX6    X3                                                              PRE         1269     A     
 PRE                MX7    0                                                               PRE         1270     A     
 PRE                SA6    A7+B1                                                           PRE         1271     A     
 PRE                SA7    A6+B1       [R1+3] = 0                                          PRE         1272     A     
 PRE       ARI      ROUTINE                                                                PRE         1273     A     
 PRE                ALLOC  TXT,4                                                           PRE         1274     A     
 PRE                SA1    RLI+1       R1                                                  PRE         1275     A     
 PRE                SX4    X2+B6                                                           PRE         1276     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3601    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                SA2    A1+B1       R2                                                  PRE         1277     A     
 PRE                BX6    X1                                                              PRE         1278     A     
 PRE                SA6    X4                                                              PRE         1279     A     
 PRE                EQ     ARI0                                                            PRE         1280     A     
 PRE       ISE      SPACE  3           ISE                                                 PRE         1281     A     
 PRE      **        ISE - INITIALIZE SPECIAL MACRO EXPANSION                               PRE         1282     A     
 PRE      *                                                                                PRE         1283     A     
 PRE      *         ENTRY  (X1) = 4* MAX NUMBER OF INSTRUCTIONS IN EXPANSION               PRE         1284     A     
 PRE                                                                                       PRE         1285     A     
 PRE       ISE      ROUTINE                                                                PRE         1286     A     
 PRE                ALLOC  TXT,X1                                                          PRE         1287     A     
 PRE                SA5    NIRN                                                            PRE         1288     A     
 PRE                SA1    O.MAC                                                           PRE         1289     A     
 PRE                SB7    X2+B6       (B7) = STORE ADDRESS                                PRE         1290     A     
 PRE                SB6    X5          (B6) = NEXT AVAIL R-NUMBER                          PRE         1291     A     
 PRE                SA0    X1+B1       (A0) = FWA OF MACRO PARAMETERS                      PRE         1292     A     
 PRE                EQ     ISE                                                             PRE         1293     A     
 PRE       SRI      SPACE  3,8         SRI                                                 PRE         1294     A     
 PRE      **        SRI - STORE RLIST INSTRUCTION                                          PRE         1295     A     
 PRE      *                                                                                PRE         1296     A     
 PRE      *         ENTRY  (B2,X6,X7) = OPCODE, R1,R2 WORDS                                PRE         1297     A     
 PRE      *                                                                                PRE         1298     A     
 PRE      *         EXIT   (A6,X6) = DESCRIPTOR                                            PRE         1299     A     
 PRE                                                                                       PRE         1300     A     
 PRE       SRI      ROUTINE                                                                PRE         1301     A     
 PRE                SA4    F.RDT+B2                                                        PRE         1302     A     
 PRE                PX6    B2,X6                                                           PRE         1303     A     
 PRE                SA7    B7+B1       R2                                                  PRE         1304     A     
 PRE                SA6    B7          R1                                                  PRE         1305     A     
 PRE                MX7    0                                                               PRE         1306     A     
 PRE                BX6    X4                                                              PRE         1307     A     
 PRE                SA6    A7+B1       DESCR                                               PRE         1308     A     
 PRE                SA7    A6+B1       LINK = 0                                            PRE         1309     A     
 PRE                SB7    A7+B1       SA = SA + 4                                         PRE         1310     A     
 PRE                EQ     SRI                                                             PRE         1311     A     
 PRE       TSE      SPACE  3,8         TSE                                                 PRE         1312     A     
 PRE      **        TSE - TERMINATE SPECIAL EXPANSION                                      PRE         1313     A     
 PRE                                                                                       PRE         1314     A     
 PRE       TSE      ROUTINE                                                                PRE         1315     A     
 PRE                SA4    O.TXT                                                           PRE         1316     A     
 PRE                SX6    B6                                                              PRE         1317     A     
 PRE                SB4    X4                                                              PRE         1318     A     
 PRE                SA6    NIRN                                                            PRE         1319     A     
 PRE                SX7    B7-B4                                                           PRE         1320     A     
 PRE                SA7    L.TXT       UPDATE L.TXT                                        PRE         1321     A     
 PRE                EQ     TSE                                                             PRE         1322     A     
 PRE       ERM      SPACE  3,8         ERM                                                 PRE         1323     A     
 PRE      **        ERM - EXPAND REFERENCED MACRO                                          PRE         1324     A     
 PRE      *         EXIT   (B6) = FTXT = FWA OF MACRO EXPANSION                            PRE         1325     A     
 PRE      *                (B7) = LTXT = LWA+1 OF MACRO EXPANSION                          PRE         1326     A     
 PRE                                                                                       PRE         1327     A     
 PRE       ERM1     SA6    A7-B1       [TA+1] = 0    */ CLEAR R2 WORD                      PRE         1328     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3602    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                SB7    B7+B4       TA = TA + 4                                         PRE         1329     A     
 PRE                ZR     B5,ERM      IF N = 0                                            PRE         1330     A     
 PRE                                                                                       PRE         1331     A     
 PRE       ERM2     UX3    B3,X5       OC = OC[W]                                          PRE         1332     A     
 PRE                BX6    X5                                                              PRE         1333     A     
 PRE                SA4    A0+B3       D = RDT(OC)                                         PRE         1334     A     
 PRE                SA5    A5+B1       W = W + 1                                           PRE         1335     A     
 PRE                SB5    B5-B4       N = N - 4                                           PRE         1336     A     
 PRE                BX7    X4                                                              PRE         1337     A     
 PRE                SA6    B7          [TA] = [W-1]                                        PRE         1338     A     
 PRE                AX4    D.TYP                                                           PRE         1339     A     
 PRE                BX3    X0+X4                                                           PRE         1340     A     
 PRE                SX2    X3+B1                                                           PRE         1341     A     
 PRE                SA7    B7+B2       [TA+2] = [D]                                        PRE         1342     A     
 PRE                MX6    0                                                               PRE         1343     A     
 PRE                SA6    A7+B1       [TA+3] = 0    */ CLEAR LINK WORD                    PRE         1344     A     
 PRE                NZ     X2,ERM1     IF TYPE[DI] " III                                   PRE         1345     A     
 PRE                                                                                       PRE         1346     A     
 PRE                BX7    X5                                                              PRE         1347     A     
 PRE                SA5    A5+B1       W = W + 1                                           PRE         1348     A     
 PRE                SB7    B7+4        TA = TA + 4                                         PRE         1349     A     
 PRE                SA7    A7-B1       [TA-2] = [W-1]                                      PRE         1350     A     
 PRE                NZ     B5,ERM2     IF N " 0                                            PRE         1351     A     
 PRE                                                                                       PRE         1352     A     
 PRE       ERM      ROUTINE                                                                PRE         1353     A     
 PRE                SA1    MACINS                                                          PRE         1354     A     
 PRE                SA5    O.EMRB      W = O.EMRB                                          PRE         1355     A     
 PRE       ERM3     LX1    2                                                               PRE         1356     A     
 PRE                ALLOC  TXT,X1      ALLOC( TXT , 4*MACINS )                             PRE         1357     A     
 PRE                SA0    F.RDT                                                           PRE         1358     A     
 PRE                SB2    B1+B1                                                           PRE         1359     A     
 PRE                SB4    B2+B2                                                           PRE         1360     A     
 PRE                MX0    -D.TYL                                                          PRE         1361     A     
 PRE                SB5    X1          N = 4*MACINS                                        PRE         1362     A     
 PRE                SB6    X2+B6                                                           PRE         1363     A     
 PRE                MX6    0                                                               PRE         1364     A     
 PRE                SB7    B6          TA = O.TXT + (L.TXT-4*MACINS)                       PRE         1365     A     
 PRE                SA6    MACWDS      MACWDS = 0                                          PRE         1366     A     
 PRE                EQ     ERM2                                                            PRE         1367     A     
 PRE       PAR      TTL    PRE / PAR - PROCESS ARRAY REFERENCE                             PRE         1368     A     
 PRE       PAR      TITLE  ISSUE MACRO                                                     PRE         1369     A     
 PRE                MACRO  OPR,N,P                                                         PRE         1370     A     
 PRE       N$T      MICRO  18-15,3,/P/                                                     PRE         1371     A     
 PRE                ENDM                                                                   PRE         1372     A     
 PRE                                                                                       PRE         1373     A     
 PRE      *CALL     OPRDEFS                                                                PRE         1374     A     
 PRE                                                                                       PRE         1375     A     
 PRE      **        ISSUE - MACRO TO ISSUE AN RLIST INSTRUCTION                            PRE         1376     A     
 PRE                                                                                       PRE         1377     A     
 PRE       ISSUE    MACROE OP,IH,CA,RF,RJ,RK,IN,TY,CAIH                                    PRE         1378     A     
 PRE       CAT      IFC    NE, CAIH                                                        PRE         1379     A     
 PRE       IHT      MICRO  1,,/CAIH/                                                       PRE         1380     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3603    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE       CAT      ELSE                                                                   PRE         1381     A     
 PRE       IHT      MICRO  1,,/IH/                                                         PRE         1382     A     
 PRE       CAT      ENDIF                                                                  PRE         1383     A     
 PRE       TYT      IFC    NE, TY                                                          PRE         1384     A     
 PRE                TYPE_TY  OP,"IHT",CA,RF,RJ,RK,IN                                       PRE         1385     A     
 PRE       TYT      ELSE                                                                   PRE         1386     A     
 PRE                TYPE"OP$T" OP,"IHT",CA,RF,RJ,RK,IN                                     PRE         1387     A     
 PRE       TYT      ENDIF                                                                  PRE         1388     A     
 PRE                ENDM                                                                   PRE         1389     A     
 PRE                                                                                       PRE         1390     A     
 PRE       TYPEI    MACRO  OP,IH,CA,RF,RJ,RK,IN                                            PRE         1391     A     
 PRE                SX6    B7                                                              PRE         1392     A     
 PRE       OPT      IFC    NE, OP B3                                                       PRE         1393     A     
 PRE                SB3    OC.OP                                                           PRE         1394     A     
 PRE       OPT      ENDIF                                                                  PRE         1395     A     
 PRE                LX6    R1.RIP                                                          PRE         1396     A     
 PRE       RJT      IFC    NE, RJ                                                          PRE         1397     A     
 PRE                L_RJ   R1.RJP                                                          PRE         1398     A     
 PRE                BX6    X6+RJ                                                           PRE         1399     A     
 PRE       RJT      ENDIF                                                                  PRE         1400     A     
 PRE       RKT      IFC    NE, RK                                                          PRE         1401     A     
 PRE                L_RK   R1.RKP                                                          PRE         1402     A     
 PRE                BX6    X6+RK                                                           PRE         1403     A     
 PRE       RKT      ENDIF                                                                  PRE         1404     A     
 PRE                SB7    B7+B1                                                           PRE         1405     A     
 PRE                PX7    B3,X6                                                           PRE         1406     A     
 PRE                SA7    B2                                                              PRE         1407     A     
 PRE                SB2    B2+B1                                                           PRE         1408     A     
 PRE                ENDM                                                                   PRE         1409     A     
 PRE                                                                                       PRE         1410     A     
 PRE       TYPEII   MACRO  OP,IH,CA,RF,RJ,RK,IN                                            PRE         1411     A     
 PRE                SX6    B7                                                              PRE         1412     A     
 PRE       OPT      IFC    NE, OP B3                                                       PRE         1413     A     
 PRE                SB3    OC.OP                                                           PRE         1414     A     
 PRE       OPT      ENDIF                                                                  PRE         1415     A     
 PRE                LX6    R1.RIP                                                          PRE         1416     A     
 PRE       INT      IFC    NE, IN                                                          PRE         1417     A     
 PRE                L_IN   R1.INP                                                          PRE         1418     A     
 PRE                BX6    X6+IN                                                           PRE         1419     A     
 PRE       INT      ENDIF                                                                  PRE         1420     A     
 PRE                SB7    B7+B1                                                           PRE         1421     A     
 PRE                PX7    B3,X6                                                           PRE         1422     A     
 PRE                SA7    B2                                                              PRE         1423     A     
 PRE                SB2    B2+B1                                                           PRE         1424     A     
 PRE                ENDM                                                                   PRE         1425     A     
 PRE                                                                                       PRE         1426     A     
 PRE       TYPEIII  MACRO  OP,IHR,CA,RF,RJ,RK,IN                                           PRE         1427     A     
 PRE                SX6    B7                                                              PRE         1428     A     
 PRE       OPT      IFC    NE, OP B3                                                       PRE         1429     A     
 PRE                SB3    OC.OP                                                           PRE         1430     A     
 PRE       OPT      ENDIF                                                                  PRE         1431     A     
 PRE                LX6    R1.RIP                                                          PRE         1432     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3604    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE       CAT      IFC    NE, CA                                                          PRE         1433     A     
 PRE                L_CA   IH.CAP                                                          PRE         1434     A     
 PRE       CAT      ENDIF                                                                  PRE         1435     A     
 PRE                PX7    B3,X6                                                           PRE         1436     A     
 PRE                SA7    B2                                                              PRE         1437     A     
 PRE                SB7    B7+B1                                                           PRE         1438     A     
 PRE       RFT      IFC    NE, RF                                                          PRE         1439     A     
 PRE                L_RF   IH.RFP                                                          PRE         1440     A     
 PRE       IHT      IFC    NE, IHR                                                         PRE         1441     A     
 PRE                L_IHR  IH.IHP                                                          PRE         1442     A     
 PRE                BX6    RF+IHR                                                          PRE         1443     A     
 PRE       CAT      IFC    NE, CA                                                          PRE         1444     A     
 PRE                BX6    X6+CA                                                           PRE         1445     A     
 PRE       CAT      ENDIF                                                                  PRE         1446     A     
 PRE       IHT      ELSE                                                                   PRE         1447     A     
 PRE       CAT      IFC    NE, CA                                                          PRE         1448     A     
 PRE                BX6    RF+CA                                                           PRE         1449     A     
 PRE       CAT      ELSE                                                                   PRE         1450     A     
 PRE                BX6    RF                                                              PRE         1451     A     
 PRE       CAT      ENDIF                                                                  PRE         1452     A     
 PRE       IHT      ENDIF                                                                  PRE         1453     A     
 PRE       RFT      ELSE                                                                   PRE         1454     A     
 PRE       IHT      IFC    NE, IHR                                                         PRE         1455     A     
 PRE                L_IHR  IH.IHP                                                          PRE         1456     A     
 PRE       CAT      IFC    NE, CA                                                          PRE         1457     A     
 PRE                BX6    CA+IHR                                                          PRE         1458     A     
 PRE       CAT      ELSE                                                                   PRE         1459     A     
 PRE                BX6    IHR                                                             PRE         1460     A     
 PRE       CAT      ENDIF                                                                  PRE         1461     A     
 PRE       IHT      ELSE                                                                   PRE         1462     A     
 PRE       CAT      IFC    NE, CA                                                          PRE         1463     A     
 PRE                BX6    CA                                                              PRE         1464     A     
 PRE       CAT      ELSE                                                                   PRE         1465     A     
 PRE                MX6    0                                                               PRE         1466     A     
 PRE       CAT      ENDIF                                                                  PRE         1467     A     
 PRE       IHT      ENDIF                                                                  PRE         1468     A     
 PRE       RFT      ENDIF                                                                  PRE         1469     A     
 PRE                SA5    =XMACINS    NUMBER OF TYPE 3/S GENERATED                        PRE         1470     A     
 PRE                SA6    B2+B1                                                           PRE         1471     A     
 PRE                SX6    X5+B1                                                           PRE         1472     A     
 PRE                SB2    A6+B1                                                           PRE         1473     A     
 PRE                SA6    A5          MACINS = MACINS + 1                                 PRE         1474     A     
 PRE                ENDM                                                                   PRE         1475     A     
 PRE       TABLES   TITLE  TABLE FORMATS                                                   PRE         1476     A     
 PRE      **        TERM TABLE FORMAT.                                                     PRE         1477     A     
 PRE                                                                                       PRE         1478     A     
 PRE                DESCRIBE TT.,60                                                        PRE         1479     A     
 PRE       LD       DEFINE 18          LOOP DEPTH                                          PRE         1480     A     
 PRE       P        DEFINE 18          LINK TO RND                                         PRE         1481     A     
 PRE       SUB      DEFINE 6           SUBSCRIPT TERM ORDINAL                              PRE         1482     A     
 PRE       MC       DEFINE 18          MULTIPLICITIVE CONSTANT                             PRE         1483     A     
 PRE                                                                                       PRE         1484     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3605    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE      **        R-NUMBER DEFINITION TABLE.                                             PRE         1485     A     
 PRE                                                                                       PRE         1486     A     
 PRE                DESCRIBE RN.,60                                                        PRE         1487     A     
 PRE                DEFINE 6                                                               PRE         1488     A     
 PRE       RI       DEFINE 18          R-NUMBER OF VARIABLE                                PRE         1489     A     
 PRE       CA       DEFINE 18          BIAS                                                PRE         1490     A     
 PRE       IH       DEFINE 18          SYMBOL ORDINAL                                      PRE         1491     A     
 PRE                                                                                       PRE         1492     A     
 PRE       CAIH     DEQU   IH,36                                                           PRE         1493     A     
 PRE                                                                                       PRE         1494     A     
 PRE       MDIMS    =      3           MAX NUMBER OF DIMENSIONS                            PRE         1495     A     
 PRE                                                                                       PRE         1496     A     
 PRE      *         ITS - IXFN TEMPORARY STORAGE, INITIALIZED AT START OF PAR.             PRE         1497     A     
 PRE                                                                                       PRE         1498     A     
 PRE       IXFNO    BSS    0           SAVE ORG COUNTER                                    PRE         1499     A     
 PRE                ORG    PREBUF+.SCR+1                                                   PRE         1500     A     
 PRE       O.ITS    BSS    0                                                               PRE         1501     A     
 PRE       TIF      BSS    1           TERM ISSUED FLAG                                    PRE         1502     A     
 PRE       CA       BSS    1           CONSTANT ADDEND                                     PRE         1503     A     
 PRE                                                                                       PRE         1504     A     
 PRE      **        TTS - TERM TEMPORARY STORAGE.                                          PRE         1505     A     
 PRE      *         INITIALIZED AT START OF PROCESSING FOR EACH UNIQUE IH,CA.              PRE         1506     A     
 PRE                                                                                       PRE         1507     A     
 PRE       O.TTS    BSS    0                                                               PRE         1508     A     
 PRE       STF      BSS    1           SUB-TERM ISSUED FLAG                                PRE         1509     A     
 PRE       SCC      BSS    MDIMS       SUBSCRIPT COMPUTATION COEFFICIENTS                  PRE         1510     A     
 PRE       L.TTS    EQU    *-O.TTS                                                         PRE         1511     A     
 PRE       L.ITS    EQU    *-O.ITS                                                         PRE         1512     A     
 PRE                                                                                       PRE         1513     A     
 PRE       ITT      BSS    2*MDIMS+1     IXFN TERM TABLE                                   PRE         1514     A     
 PRE       OP       BSS    1                                                               PRE         1515     A     
 PRE       MRESULT  BSS    1           HOLDS 1/XMTC-FLAG,59/R-NUMBER OF PRODUCT            PRE         1516     A     
 PRE       TEMP     BSS    5                                                               PRE         1517     A     
 PRE       LRND     BSS    1           LOCAL L.RND                                         PRE         1518     A     
 PRE       LVDT     BSS    1           LOCAL L.VDT                                         PRE         1519     A     
 PRE      *                                  DIT,CDC,VDS PRESERVED BETWEEN CALLS           PRE         1520     A     
 PRE       DIT      BSS    MDIMS       DIMENSION INDEX TABLE                               PRE         1521     A     
 PRE       CDC      BSS    MDIMS       CONSTANT DIMENSION COEFFICIENTS                     PRE         1522     A     
 PRE       VDS      BSS    MDIMS       VARIABLE DIMENSION SYMBOLS                          PRE         1523     A     
 PRE                ERRPL  *-PREBUF-L.INIT   MAKE INIT CODE LONGER                         PRE         1524     A     
 PRE                ORG    IXFNO       RESTORE ORG COUNTER                                 PRE         1525     A     
 PRE                                                                                       PRE         1526     A     
 PRE                USE    /TABLES/                                                        PRE         1527     A     
 PRE       ICB      BSS    200B        IXFN CODE BUFFER                                    PRE         1528     A     
 PRE                USE    0                                                               PRE         1529     A     
 PRE                                                                                       PRE         1530     A     
 PRE       PDIM     BSSZ   1           DIM WORD OF PREVIOUS IXFN                           PRE         1531     A     
 PRE       PAR      TITLE  MAIN LOOP                                                       PRE         1532     A     
 PRE      **        PAR - PROCESS ARRAY REFERENCE ( IXFN )                                 PRE         1533     A     
 PRE      *         LOOP THROUGH VARIABLE INFORMATION OF IXFN MACRO (A1 CONTAINS           PRE         1534     A     
 PRE      *         ADDRESS OF FIRST VARIABLE TERM WORD ON EXIT FROM ISP).  PVT            PRE         1535     A     
 PRE      *         IS CALLED TO PROCESS EACH VARIABLE WORD, AND MAKES AN ENTRY IN         PRE         1536     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3606    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE      *         THE IXFN TERM TABLE.  PCT IS CALLED FOR EACH ADDITIVE CONSTANT         PRE         1537     A     
 PRE      *         WORD, AND EITHER DRIVES THAT CONSTANT INTO THE FINAL CA (IF            PRE         1538     A     
 PRE      *         NO PERTINENT DIMENSIONS ARE VARIABLE) OR ISSUES A TERM TO              PRE         1539     A     
 PRE      *         THE IXFN CODE BUFFER.                                                  PRE         1540     A     
 PRE                                                                                       PRE         1541     A     
 PRE       PAR      CALL   ISP         INITIALIZE SUBSCRIPT PROCESSING                     PRE         1542     A     
 PRE                                                                                       PRE         1543     A     
 PRE       PAR1     CALL   PVT         PROCESS VARIABLE 1                                  PRE         1544     A     
 PRE                SA1    A1+B1                                                           PRE         1545     A     
 PRE                CALL   PVT         PROCESS VARIABLE 2                                  PRE         1546     A     
 PRE                SA1    A1+B1                                                           PRE         1547     A     
 PRE                CALL   PCT         PROCESS ADDITIVE CONSTANT                           PRE         1548     A     
 PRE                SA1    A1+B1                                                           PRE         1549     A     
 PRE                NZ     X1,PAR1     IF MACRO NOT FULLY SCANNED                          PRE         1550     A     
 PRE                                                                                       PRE         1551     A     
 PRE                MX6    0                                                               PRE         1552     A     
 PRE                SA6    A0          ZERO FOLLOWING ITT                                  PRE         1553     A     
 PRE                                                                                       PRE         1554     A     
 PRE      *         THE IXFN TERM TABLE HAS NOW BEEN CONSTRUCTED.  WE PROCEED TO           PRE         1555     A     
 PRE      *         SORT THE TABLE, WHICH CONSISTS OF ONE ENTRY PER VARIABLE               PRE         1556     A     
 PRE      *         REFERENCE, INTO SIMPLE ASCENDING ORDER.  THIS GROUPS REFS TO           PRE         1557     A     
 PRE      *         A SINGLE VARIABLE TOGETHER, WITH VARIABLES APPEARING AS LOOP           PRE         1558     A     
 PRE      *         CONTROL VARIABLES SINKING TO THE BOTTOM, INNERMOST LOOP LAST.          PRE         1559     A     
 PRE      *         THIS GROUPING HAS THE EFFECT OF PLACING MOST-INVARIANT                 PRE         1560     A     
 PRE      *         VARIABLE REFS FIRST, TO AID THE LATER REMOVAL OF INVARIANT             PRE         1561     A     
 PRE      *         EXPRESSIONS.                                                           PRE         1562     A     
 PRE                                                                                       PRE         1563     A     
 PRE                SA3    ITT-1                                                           PRE         1564     A     
 PRE                SA1    A3                                                              PRE         1565     A     
 PRE                                                                                       PRE         1566     A     
 PRE       PAR3     SA3    A3+B1       ITT(I)                                              PRE         1567     A     
 PRE                ZR     X3,PAR6     IF END OF ITT, END OF SORT                          PRE         1568     A     
 PRE                SA2    A3                                                              PRE         1569     A     
 PRE                                                                                       PRE         1570     A     
 PRE       PAR4     SA2    A2+B1       ITT(J)                                              PRE         1571     A     
 PRE                ZR     X2,PAR3     IF END OF ITT                                       PRE         1572     A     
 PRE                IX0    X3-X2                                                           PRE         1573     A     
 PRE                PL     X0,PAR4     IF ITT(I) .LE. ITT(J)                               PRE         1574     A     
 PRE                                                                                       PRE         1575     A     
 PRE      *         SWITCH ITT(I) AND ITT(J).                                              PRE         1576     A     
 PRE                                                                                       PRE         1577     A     
 PRE                BX6    X3                                                              PRE         1578     A     
 PRE                LX7    X2                                                              PRE         1579     A     
 PRE                SA6    A2                                                              PRE         1580     A     
 PRE                BX3    X2                                                              PRE         1581     A     
 PRE                SA7    A3                                                              PRE         1582     A     
 PRE                EQ     PAR4                                                            PRE         1583     A     
 PRE                  EJECT                                                                PRE         1584     A     
 PRE      *         LOOP THROUGH SORTED ITT, ISSUING THE CONTRIBUTION OF EACH              PRE         1585     A     
 PRE      *         UNIQUE VARIABLE TO THE ULTIMATE ARRAY INDEX.  FOR EACH ENTRY           PRE         1586     A     
 PRE      *         IN THE ITT, WE MAKE A CONTRIBUTION TO THE APPROPRIATE SCC              PRE         1587     A     
 PRE      *         ELEMENT, AND WHEN THE END OF THE ENTRIES FOR THE CURRENT               PRE         1588     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3607    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE      *         VARIABLE IS REACHED, IST IS CALLED TO ISSUE THAT VARIABLE/S            PRE         1589     A     
 PRE      *         CONTRIBUTION TO THE IXFN.                                              PRE         1590     A     
 PRE      *                                                                                PRE         1591     A     
 PRE      *         THE SCC VECTOR CONTAINS THE COEFFICIENTS OF THE MDIMS TERMS            PRE         1592     A     
 PRE      *         THAT MAY POSSIBLY PERTAIN TO AN INDEX VARIABLE, WHERE MDIMS            PRE         1593     A     
 PRE      *         IS THE NUMBER OF DIMENSIONS THAT THE REFERENCED ARRAY HAS.             PRE         1594     A     
 PRE      *         SCC(1) IS THE COEFFICIENT OF THE VARIABLE, SCC(2) IS THE COEF-         PRE         1595     A     
 PRE      *         FICIENT OF THE VARIABLE TIMES THE FIRST VARDIM, SCC(3) IS THE          PRE         1596     A     
 PRE      *         COEFFICIENT OF THE VARIABLE TIMES THE FIRST  VARDIM TIMES THE          PRE         1597     A     
 PRE      *         SECOND VARDIM, ETC.                                                    PRE         1598     A     
 PRE      *         SOME EXAMPLES OF THE SCC SCHEME (USED TO ASSOSCIATE SIMILAR            PRE         1599     A     
 PRE      *         TERMS) SHOULD HELP CLARIFY ITS IMPLEMENTATION.                         PRE         1600     A     
 PRE      *                                                                                PRE         1601     A     
 PRE      *         DIMENSION A(M,N,1),B(M,2,1),C(4,5,1)                                   PRE         1602     A     
 PRE      *                                                                                PRE         1603     A     
 PRE      *         A(I,I,3*I)                                                             PRE         1604     A     
 PRE      *                                                                                PRE         1605     A     
 PRE      *         SCC(1)=1                                                               PRE         1606     A     
 PRE      *         SCC(2)=1                                                               PRE         1607     A     
 PRE      *         SCC(3)=3   OR  LOC(A) + I + M*I + 3*M*N*I + CA                         PRE         1608     A     
 PRE      *                                                                                PRE         1609     A     
 PRE      *         B(I,I,3*I)                                                             PRE         1610     A     
 PRE      *                                                                                PRE         1611     A     
 PRE      *         SCC(1)=1                                                               PRE         1612     A     
 PRE      *         SCC(2)=1+2*3                                                           PRE         1613     A     
 PRE      *         SCC(3)=0   OR  LOC(B) + I + 7*M*I + CA                                 PRE         1614     A     
 PRE      *                                                                                PRE         1615     A     
 PRE      *         C(I,I,3*I)                                                             PRE         1616     A     
 PRE      *                                                                                PRE         1617     A     
 PRE      *         SCC(1)=1+4*1+4*5*3                                                     PRE         1618     A     
 PRE      *         SCC(2)=0                                                               PRE         1619     A     
 PRE      *         SCC(3)=0   OR  LOC(C) + 65*I + CA                                      PRE         1620     A     
 PRE      *                                                                                PRE         1621     A     
 PRE      *         THE CONTRIBUTION OF THE CONSTANT DIMENSIONS TO AN SCC TERM,            PRE         1622     A     
 PRE      *         SUCH AS 4*5 FOR THIRD TERM REFERENCES TO C, IS LOADED FROM             PRE         1623     A     
 PRE      *         THE CDC (CONSTANT DIMENSION COEFFICIENTS) TABLE, FORMED DURING         PRE         1624     A     
 PRE      *         IXFN INITIALIZATION.  IT SHOULD BE FURTHER NOTED THAT A NEW            PRE         1625     A     
 PRE      *         SCC TABLE IS CONSTRUCTED FOR EACH UNIQUE VARIABLE IN AN IXFN.          PRE         1626     A     
 PRE                                                                                       PRE         1627     A     
 PRE       PAR6     MX0    -TT.SUBL                                                        PRE         1628     A     
 PRE                SA1    A1+B1       ITT(I)                                              PRE         1629     A     
 PRE                ZR     X1,PAR7     IF END OF ITT                                       PRE         1630     A     
 PRE                LX1    -TT.SUBP                                                        PRE         1631     A     
 PRE                BX2    -X0*X1      SUBSCRIPT ORDINAL                                   PRE         1632     A     
 PRE                SA3    DIT-1+X2    DIT(SUB)                                            PRE         1633     A     
 PRE                SA4    CDC-1+X2    CDC(SUB)                                            PRE         1634     A     
 PRE                LX1    TT.SUBP-TT.MCP                                                  PRE         1635     A     
 PRE                SX2    X1          MC                                                  PRE         1636     A     
 PRE                SA3    SCC-1+X3    SCC(DIT(SUB))                                       PRE         1637     A     
 PRE                IX5    X4*X2                                                           PRE         1638     A     
 PRE                IX6    X3+X5                                                           PRE         1639     A     
 PRE                SA6    A3        SCC(DIT(SUB)) = SCC(DIT(SUB)) + MC * CDC(SUB)         PRE         1640     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3608    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                MX0    -TT.PL                                                          PRE         1641     A     
 PRE                LX1    TT.MCP-TT.PP                                                    PRE         1642     A     
 PRE                BX1    -X0*X1      POINTER TO RND ENTRY                                PRE         1643     A     
 PRE                SA2    A1+B1                                                           PRE         1644     A     
 PRE                LX2    -TT.PP                                                          PRE         1645     A     
 PRE                BX2    -X0*X2      POINTER TO RND ENTRY FOR NEXT ITT ENTRY             PRE         1646     A     
 PRE                IX6    X1-X2                                                           PRE         1647     A     
 PRE                ZR     X6,PAR6     IF IH,CA OF NEXT TERM MATCHES THIS TERM             PRE         1648     A     
 PRE                CALL   IST         ISSUE SUBSCRIPT TERM                                PRE         1649     A     
 PRE                EQ     PAR6                                                            PRE         1650     A     
 PRE                SPACE  4                                                               PRE         1651     A     
 PRE      *         PRODUCE LD/ST/STT TO ARRAY.                                            PRE         1652     A     
 PRE                                                                                       PRE         1653     A     
 PRE       PAR7     SA1    O.MAC       (X1) = FWA MACRO                                    PRE         1654     A     
 PRE                SA2    X1          MACRO HEADER                                        PRE         1655     A     
 PRE                SX6    B7                                                              PRE         1656     A     
 PRE                SA6    =XNIRN                                                          PRE         1657     A     
 PRE                MX0    -RM.RIL                                                         PRE         1658     A     
 PRE                BX3    -X0*X2      R-NUMBER FROM MACRO                                 PRE         1659     A     
 PRE                SB7    X3          FOR ISSUE                                           PRE         1660     A     
 PRE                MX0    -1                                                              PRE         1661     A     
 PRE                AX2    RM.RIL                                                          PRE         1662     A     
 PRE                BX3    -X0*X2                                                          PRE         1663     A     
 PRE                SB5    X3          DOUBLE/COMPLEX ARRAY BIT                            PRE         1664     A     
 PRE                SA2    X1+B1       ARRAY IH,CA                                         PRE         1665     A     
 PRE                SX3    X2          (X3) = IH                                           PRE         1666     A     
 PRE                LX2    -IH.CAP                                                         PRE         1667     A     
 PRE                SB3    X2          B3 = CA                                             PRE         1668     A     
 PRE                SA1    CA          CA FROM TERM CALCULATION                            PRE         1669     A     
 PRE                SX6    X1+B3                                                           PRE         1670     A     
 PRE                SA4    TIF         R-NUMBER OF LAST TERM ISSUED                        PRE         1671     A     
 PRE                SA5    OP          OC.LD/ST/STT                                        PRE         1672     A     
 PRE                SB6    OC.STT                                                          PRE         1673     A     
 PRE                SB3    X5                                                              PRE         1674     A     
 PRE                BX1    X6                                                              PRE         1675     A     
 PRE                                                                                       PRE         1676     A     
 PRE       PAR8     MX0    -IH.CAL                                                         PRE         1677     A     
 PRE                BX1    -X0*X1                                                          PRE         1678     A     
 PRE                ISSUE  OP=B3,TY=III,IH=X3,CA=X1,RF=X4                                  PRE         1679     A     
 PRE                ZR     B5,PAR9     IF NOT DOUBLE WORD ARRAY                            PRE         1680     A     
 PRE                EQ     B3,B6,PAR9  IF SET IXFN                                         PRE         1681     A     
 PRE                LX1    -IH.CAP                                                         PRE         1682     A     
 PRE                SB5    B0                                                              PRE         1683     A     
 PRE                LX3    -IH.IHP                                                         PRE         1684     A     
 PRE                SX1    X1+B1       CA = CA + 1                                         PRE         1685     A     
 PRE                LX4    -IH.RFP     RESTORE SEMANTIC INFO                               PRE         1686     A     
 PRE                EQ     PAR8        ISSUE SECOND LD/ST/STT                              PRE         1687     A     
 PRE                                                                                       PRE         1688     A     
 PRE       PAR9     SA1    MACINS      NUMBER OF TYPE 3 INSTRUCTIONS ISSUED                PRE         1689     A     
 PRE                SA5    ICB         FWA OF CODE FOR EEM                                 PRE         1690     A     
 PRE                SX0    A5-B2       (X0) = - NUMBER OF WORDS IN CODE BUFFER             PRE         1691     A     
 PRE                BX0    -X0                                                             PRE         1692     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3609    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                IX6    X0-X1                                                           PRE         1693     A     
 PRE                SA6    A1          MACINS = INSTRUCTIONS ISSUED                        PRE         1694     A     
 PRE                SA2    TEMP+2                                                          PRE         1695     A     
 PRE                SA1    A2+B1                                                           PRE         1696     A     
 PRE                BX6    X2                                                              PRE         1697     A     
 PRE                SA6    X1          RESTORE WORD FOLLOWING IXFN                         PRE         1698     A     
 PRE                SA1    LRND                                                            PRE         1699     A     
 PRE                SA2    LVDT                                                            PRE         1700     A     
 PRE                BX6    X1                                                              PRE         1701     A     
 PRE                LX7    X2                                                              PRE         1702     A     
 PRE                SA6    L.RND                                                           PRE         1703     A     
 PRE                SA7    L.VDT                                                           PRE         1704     A     
 PRE                SA1    MACINS                                                          PRE         1705     A     
 PRE                SA3    OP                                                              PRE         1706     A     
 PRE                SA2    PAR.JT+X3-OC.LD                                                 PRE         1707     A     
 PRE                BX6    X2                                                              PRE         1708     A     
 PRE                SA6    ERM         PLUG ERM RETURN ADDRESS                             PRE         1709     A     
 PRE                EQ     ERM3        FILE EXPANSION IN TEXT                              PRE         1710     A     
 PRE                                                                                       PRE         1711     A     
 PRE       PAR.JT   BSS    0                                                               PRE         1712     A     
 PRE                LOC    OC.LD                                                           PRE         1713     A     
 PRE                EQ     PPS1        FOR OC.LD                                           PRE         1714     A     
 PRE                EQ     STM0        FOR OC.ST                                           PRE         1715     A     
 PRE                EQ     PPS1        FOR OC.STT                                          PRE         1716     A     
 PRE                LOC    *O                                                              PRE         1717     A     
 PRE       ISP      TITLE  ISP - INITIALIZE SUBSCRIPT PROCESSING.                          PRE         1718     A     
 PRE      **        ISP - INITIALIZE SUBSCRIPT PROCESSING.                                 PRE         1719     A     
 PRE                                                                                       PRE         1720     A     
 PRE       ISP0     SA2    =XNIRN                                                          PRE         1721     A     
 PRE                SA1    A1+B1                                                           PRE         1722     A     
 PRE                SB7    X2          (B7) = NEXT AVAILABLE INTERMEDIATE R                PRE         1723     A     
 PRE                                                                                       PRE         1724     A     
 PRE       ISP      ROUTINE                                                                PRE         1725     A     
 PRE                SA6    OP          OP = OC.LD/ST/STT                                   PRE         1726     A     
 PRE                ALLOC  RND,6       ALLOCATE FOR R-NUMBER DEFINITION TABLE              PRE         1727     A     
 PRE                SX6    B6                                                              PRE         1728     A     
 PRE                SA6    LRND                                                            PRE         1729     A     
 PRE                ALLOC  VDT,2                                                           PRE         1730     A     
 PRE                SX6    B6                                                              PRE         1731     A     
 PRE                SA6    LVDT                                                            PRE         1732     A     
 PRE                SETZERO  O.ITS,L.ITS                                                   PRE         1733     A     
 PRE                SB2    ICB         (B2) = NEXT ICB STORE ADDRESS                       PRE         1734     A     
 PRE                SA0    ITT         A0 = NEXT ITT ENTRY ADDRESS                         PRE         1735     A     
 PRE                MX6    0                                                               PRE         1736     A     
 PRE                SA3    O.MAC                                                           PRE         1737     A     
 PRE                SA2    X3                                                              PRE         1738     A     
 PRE                LX2    -R1.INP                                                         PRE         1739     A     
 PRE                SA6    =XMACINS                                                        PRE         1740     A     
 PRE                SB5    X2+B1       (B5) = MACRO LENGTH                                 PRE         1741     A     
 PRE                SA1    A2+B5                                                           PRE         1742     A     
 PRE                BX7    X1                                                              PRE         1743     A     
 PRE                SA6    A2+B5       (LWA IXFN + 1) = 0                                  PRE         1744     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3610    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                SA7    TEMP+2      SAVE WORD FOLLOWING IXFN, AND ADDRESS               PRE         1745     A     
 PRE                SX6    A6                                                              PRE         1746     A     
 PRE                SA6    TEMP+3                                                          PRE         1747     A     
 PRE                SA1    X3+2        DIMENSION INFO                                      PRE         1748     A     
 PRE                SA2    PDIM        X2 = DIM INFO OF PREVIOUS IXFN                      PRE         1749     A     
 PRE                BX6    X1                                                              PRE         1750     A     
 PRE                IX0    X2-X1                                                           PRE         1751     A     
 PRE                SA6    A2          PDIM = DIM INFO                                     PRE         1752     A     
 PRE                ZR     X0,ISP0     IF PDIM .EQ. DIM INFO                               PRE         1753     A     
 PRE                SB3    DIT                                                             PRE         1754     A     
 PRE                SB4    CDC                                                             PRE         1755     A     
 PRE                SB5    VDS                                                             PRE         1756     A     
 PRE                SX7    B1                                                              PRE         1757     A     
 PRE                SA7    B3          DIT(1) = 1                                          PRE         1758     A     
 PRE                SA7    B4          CDC(1) = 1                                          PRE         1759     A     
 PRE                MX7    0                                                               PRE         1760     A     
 PRE                SA7    B5          J = 1 ;  VDS(J) = 0                                 PRE         1761     A     
 PRE                SB6    B0          I = 2                                               PRE         1762     A     
 PRE                BX3    X1                                                              PRE         1763     A     
 PRE                LX1    3+1         PABC(DIMENSION 1) = PABC(1) TO BIT 0                PRE         1764     A     
 PRE                MX0    -1                                                              PRE         1765     A     
 PRE                                                                                       PRE         1766     A     
 PRE       ISP1     BX2    -X0*X1      (X2) = PABC(I - 1)                                  PRE         1767     A     
 PRE                SA4    B3+B6       DIT(I - 1)                                          PRE         1768     A     
 PRE                IX6    X4+X2                                                           PRE         1769     A     
 PRE                SA6    A4+B1       DIT(I) = DIT(I - 1) + PABC(I -  1)                  PRE         1770     A     
 PRE                SX5    X3          (X3) = DT = DIM(I - 1)                              PRE         1771     A     
 PRE                ZR     X2,ISP2     IF DIM(I - 1) IS CONSTANT                           PRE         1772     A     
 PRE                BX7    X7+X5                                                           PRE         1773     A     
 PRE                SA7    A7+B1       J = J + 1 ;  VDS(J) = VDS(J-1) ! DIM(J-1)           PRE         1774     A     
 PRE                SX5    B1          DT = 1                                              PRE         1775     A     
 PRE                LX7    18                                                              PRE         1776     A     
 PRE                                                                                       PRE         1777     A     
 PRE       ISP2     SA4    B4+B6       CDC(I - 1)                                          PRE         1778     A     
 PRE                IX6    X4*X5                                                           PRE         1779     A     
 PRE                LX1    1           ADVANCE PABC                                        PRE         1780     A     
 PRE                SA6    A4+B1       CDC(I) = CDC(I - 1) * DT                            PRE         1781     A     
 PRE                SB6    B6+B1       I = I + 1                                           PRE         1782     A     
 PRE                LX3    -18         ADVANCE DIM                                         PRE         1783     A     
 PRE                SX5    B6-2                                                            PRE         1784     A     
 PRE                NZ     X5,ISP1     IF I .NE. 4                                         PRE         1785     A     
 PRE                EQ     ISP0                                                            PRE         1786     A     
 PRE       PVT      TITLE  PVT - PROCESS VARIABLE TERM.                                    PRE         1787     A     
 PRE      **        PVT - PROCESS VARIABLE TERM.                                           PRE         1788     A     
 PRE                                                                                       PRE         1789     A     
 PRE       PVT      ROUTINE                                                                PRE         1790     A     
 PRE                MX0    -IX.CAIHL                                                       PRE         1791     A     
 PRE                LX1    -IX.CAIHP                                                       PRE         1792     A     
 PRE                BX2    -X0*X1                                                          PRE         1793     A     
 PRE                ZR     X2,PVT      IF IH,CA .EQ. 0                                     PRE         1794     A     
 PRE                SX4    V.SUB                                                           PRE         1795     A     
 PRE                SA3    O.SYM                                                           PRE         1796     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3611    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                SB6    X2          IH                                                  PRE         1797     A     
 PRE                SB4    X3-1                                                            PRE         1798     A     
 PRE                SB5    B6+B6                                                           PRE         1799     A     
 PRE                SA3    B4-B5       WORD B                                              PRE         1800     A     
 PRE                BX6    X3+X4       SET SUB BIT                                         PRE         1801     A     
 PRE                SA6    A3                                                              PRE         1802     A     
 PRE                SA3    O.RND       ORIGIN OF R-NUMBER DEFINITION TABLE                 PRE         1803     A     
 PRE                SA4    LRND        LOCAL L.RND                                         PRE         1804     A     
 PRE                IX6    X3+X4                                                           PRE         1805     A     
 PRE                SB6    X6          B6 = LWA(RND) + 1                                   PRE         1806     A     
 PRE                SA5    X3-1                                                            PRE         1807     A     
 PRE                                                                                       PRE         1808     A     
 PRE       PVT1     SB5    A5+B1       I = I + 1                                           PRE         1809     A     
 PRE                EQ     B5,B6,PVT5  IF END OF RND                                       PRE         1810     A     
 PRE                SA5    B5          (X5) = RND(I)                                       PRE         1811     A     
 PRE                LX5    -RN.CAIHP                                                       PRE         1812     A     
 PRE                BX5    -X0*X5                                                          PRE         1813     A     
 PRE                IX6    X2-X5                                                           PRE         1814     A     
 PRE                NZ     X6,PVT1     IF CA,IH NOT IN RND                                 PRE         1815     A     
 PRE                                                                                       PRE         1816     A     
 PRE       PVT2     LX1    IX.CAIHP-IX.MCP                                                 PRE         1817     A     
 PRE                SA4    O.ALS       (X4) = FWA OF ACTIVE LOOP STACK                     PRE         1818     A     
 PRE                SB6    X4                                                              PRE         1819     A     
 PRE                SA3    L.ALS                                                           PRE         1820     A     
 PRE                SA4    X3+B6                                                           PRE         1821     A     
 PRE                                                                                       PRE         1822     A     
 PRE       PVT3     SA4    A4-B1       I = I - 1 ,  X4 = ALS(I)                            PRE         1823     A     
 PRE                ZR     X4,PVT4     IF HEAD OF TABLE                                    PRE         1824     A     
 PRE                IX6    X4-X2                                                           PRE         1825     A     
 PRE                NZ     X6,PVT3     IF CA,IH NOT IN TABLE                               PRE         1826     A     
 PRE                                                                                       PRE         1827     A     
 PRE       PVT4     SX4    A4-B6       ALS ORDINAL                                         PRE         1828     A     
 PRE                LX4    TT.LDP                                                          PRE         1829     A     
 PRE                MX0    -IX.SUBL-IX.MCL                                                 PRE         1830     A     
 PRE                BX2    -X0*X1      (X2) = SUB AND MC                                   PRE         1831     A     
 PRE                LX2    TT.MCP                                                          PRE         1832     A     
 PRE                BX6    X2+X4       OR (TT.SUB,TT.MC,TT.LD)                             PRE         1833     A     
 PRE                SX3    A5          POINTER TO RND TABLE                                PRE         1834     A     
 PRE                LX3    TT.PP                                                           PRE         1835     A     
 PRE                BX7    X6+X3                                                           PRE         1836     A     
 PRE                SA7    A0          TT(NTE) = OR(LD,P,SUB,MC)                           PRE         1837     A     
 PRE                SA0    A0+B1       NEXT AVAILABLE ITT ADDRESS                          PRE         1838     A     
 PRE                EQ     PVT                                                             PRE         1839     A     
 PRE                                                                                       PRE         1840     A     
 PRE       PVT5     BX3    X2                                                              PRE         1841     A     
 PRE                ISSUE  OP=LD,CAIH=X3                                                   PRE         1842     A     
 PRE                SX0    B7-B1                                                           PRE         1843     A     
 PRE                LX0    RN.RIP                                                          PRE         1844     A     
 PRE                LX2    RN.CAIHP                                                        PRE         1845     A     
 PRE                BX6    X0+X2                                                           PRE         1846     A     
 PRE                SA6    B6          B6 = NEW LWA OF RND TABLE                           PRE         1847     A     
 PRE                SX7    X4+B1                                                           PRE         1848     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3612    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                SA7    A4          L.RND = L.RND + 1                                   PRE         1849     A     
 PRE                SA5    A6          RESTORE FOR TERM TABLE                              PRE         1850     A     
 PRE                EQ     PVT2                                                            PRE         1851     A     
 PRE       PCT      SPACE  4,18        PCT                                                 PRE         1852     A     
 PRE      **        PCT - PROCESS CONSTANT TERM.                                           PRE         1853     A     
 PRE                                                                                       PRE         1854     A     
 PRE       PCT0     SA3    CA                                                              PRE         1855     A     
 PRE                IX7    X6+X3       CA = CA + AC * CDC(SUB)                             PRE         1856     A     
 PRE                SA7    A3                                                              PRE         1857     A     
 PRE                                                                                       PRE         1858     A     
 PRE       PCT      ROUTINE                                                                PRE         1859     A     
 PRE                SA2    A1-B1       PREVIOUS VARIABLE TERM                              PRE         1860     A     
 PRE                MX0    -IX.SUBL                                                        PRE         1861     A     
 PRE                LX2    -IX.SUBP                                                        PRE         1862     A     
 PRE                BX4    -X0*X2      SUBSCRIPT NUMBER                                    PRE         1863     A     
 PRE                SA3    DIT-1+X4    DIT(SUB)                                            PRE         1864     A     
 PRE                SA5    CDC-1+X4    (X5) = CDC(SUB)                                     PRE         1865     A     
 PRE                SA2    VDS-1+X3    (X2) = VDS(DIT(SUB))                                PRE         1866     A     
 PRE                IX6    X1*X5       (X6) = AC  * CDC(SUB)                               PRE         1867     A     
 PRE                ZR     X6,PCT      IF MULTIPLIER FOR CON CALCULATION .EQ. 0            PRE         1868     A     
 PRE                ZR     X2,PCT0     IF NO VARIABLE DIMENSION PERTAIN                    PRE         1869     A     
 PRE                SA6    TEMP        SAVE MULTIPLIER                                     PRE         1870     A     
 PRE                CALL   LVE         LOAD VARDIM EXPRESSION                              PRE         1871     A     
 PRE                SA2    TEMP                                                            PRE         1872     A     
 PRE                SB6    B7-B1                                                           PRE         1873     A     
 PRE                CALL   ICM         ISSUE LOGICAL MULTIPLY BY CONSTANT                  PRE         1874     A     
 PRE                SA3    MRESULT                                                         PRE         1875     A     
 PRE                CALL   ITA         ISSUE ADD OF GENERATED TERM                         PRE         1876     A     
 PRE                EQ     PCT                                                             PRE         1877     A     
 PRE       PAR      TITLE  SUBROUTINES                                                     PRE         1878     A     
 PRE      **        LVE - LOAD VARDIM EXPRESSION.                                          PRE         1879     A     
 PRE                                                                                       PRE         1880     A     
 PRE       LVE0     SA2    =XVD.                                                           PRE         1881     A     
 PRE                SX0    B6                                                              PRE         1882     A     
 PRE                ISSUE  OP=LD,IH=X2,CA=X0                                               PRE         1883     A     
 PRE                                                                                       PRE         1884     A     
 PRE       LVE      ROUTINE                                                                PRE         1885     A     
 PRE                SB6    B0                                                              PRE         1886     A     
 PRE                SA4    O.VDT                                                           PRE         1887     A     
 PRE                SA3    LVDT                                                            PRE         1888     A     
 PRE                ZR     X3,LVE2     IF NO VARDIM TABLE                                  PRE         1889     A     
 PRE                SA5    X4          FIRST ENTRY OF VDT                                  PRE         1890     A     
 PRE                SB5    X3                                                              PRE         1891     A     
 PRE                                                                                       PRE         1892     A     
 PRE       LVE1     IX6    X5-X2                                                           PRE         1893     A     
 PRE                ZR     X6,LVE0     IF EXPRESSION MATCHES THIS VDT ENTRY                PRE         1894     A     
 PRE                SB6    B6+B1                                                           PRE         1895     A     
 PRE                SA5    A5+B1                                                           PRE         1896     A     
 PRE                LT     B6,B5,LVE1  IF MORE ENTRIES IN VDT                              PRE         1897     A     
 PRE                                                                                       PRE         1898     A     
 PRE       LVE2     BX6    X2                                                              PRE         1899     A     
 PRE                SA6    X4+B6       VDT(N) = X2                                         PRE         1900     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3613    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                SX7    B6+B1                                                           PRE         1901     A     
 PRE                SA7    A3          LVDT = LVDT + 1                                     PRE         1902     A     
 PRE                EQ     LVE0                                                            PRE         1903     A     
 PRE       IST      SPACE  3,18        IST                                                 PRE         1904     A     
 PRE      **        IST - ISSUE SUBSCRIPT TERM.                                            PRE         1905     A     
 PRE                                                                                       PRE         1906     A     
 PRE       IST0     SA2    TEMP+4                                                          PRE         1907     A     
 PRE                SA1    X2          RESTORE A1                                          PRE         1908     A     
 PRE                                                                                       PRE         1909     A     
 PRE       IST      ROUTINE                                                                PRE         1910     A     
 PRE                SX6    A1                                                              PRE         1911     A     
 PRE                SA6    TEMP+4      SAVE A1                                             PRE         1912     A     
 PRE                SA2    X1                                                              PRE         1913     A     
 PRE                LX2    -RN.RIP                                                         PRE         1914     A     
 PRE                SX6    X2                                                              PRE         1915     A     
 PRE                SA6    TEMP        TEMP = R-NUMBER OF VARIABLE                         PRE         1916     A     
 PRE                SA1    SCC+3       I = 4                                               PRE         1917     A     
 PRE                                                                                       PRE         1918     A     
 PRE       IST1     SA1    A1-B1       I = I - 1 ,  (I) = SCC(I)                           PRE         1919     A     
 PRE                SB6    SCC-1                                                           PRE         1920     A     
 PRE                SX0    A1-B6                                                           PRE         1921     A     
 PRE                ZR     X0,IST5     IF END OF SCC TABLE                                 PRE         1922     A     
 PRE                ZR     X1,IST1     IF NO SUBTERM                                       PRE         1923     A     
 PRE                SA2    A1+VDS-SCC  VDS(I)                                              PRE         1924     A     
 PRE                ZR     X2,IST3     IF NO VARDIM IN SUBTERM                             PRE         1925     A     
 PRE                CALL   LVE         LOAD VARDIM EXPRESSION                              PRE         1926     A     
 PRE                SA2    A1          X2 = SCC(I)                                         PRE         1927     A     
 PRE                SB6    B7-B1       OPERAND OF MULTIPLY ( = VARDIM)                     PRE         1928     A     
 PRE                CALL   ICM         ISSUE LOGICAL MULTIPLY                              PRE         1929     A     
 PRE                SA2    MRESULT                                                         PRE         1930     A     
 PRE                SA4    STF                                                             PRE         1931     A     
 PRE                SX7    X2                                                              PRE         1932     A     
 PRE                ZR     X4,IST2     IF FIRST SUBTERM                                    PRE         1933     A     
 PRE                MX0    1                                                               PRE         1934     A     
 PRE                BX5    X0*X2                                                           PRE         1935     A     
 PRE                LX5    1                                                               PRE         1936     A     
 PRE                SB3    OC.IA+X5    OC.IA/IS                                            PRE         1937     A     
 PRE                ISSUE  OP=B3,TY=I,RJ=X4,RK=X7                                          PRE         1938     A     
 PRE                SX6    B7-B1                                                           PRE         1939     A     
 PRE                SA6    A4                                                              PRE         1940     A     
 PRE                EQ     IST1                                                            PRE         1941     A     
 PRE                                                                                       PRE         1942     A     
 PRE       IST2     SA7    A4          STF = R-NUMBER OF ACCUMULATION                      PRE         1943     A     
 PRE                PL     X2,IST1     IF XMTC FLAG NOT SET BY ICM                         PRE         1944     A     
 PRE                ISSUE  OP=XMTC,RJ=X7                                                   PRE         1945     A     
 PRE                SX6    B7-B1                                                           PRE         1946     A     
 PRE                SA6    A4                                                              PRE         1947     A     
 PRE                EQ     IST1                                                            PRE         1948     A     
 PRE                                                                                       PRE         1949     A     
 PRE       IST3     SA4    STF                                                             PRE         1950     A     
 PRE                MX0    -IH.CAL                                                         PRE         1951     A     
 PRE                BX2    -X0*X1                                                          PRE         1952     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3614    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                NZ     X4,IST4     IF NOT FIRST SUBTERM                                PRE         1953     A     
 PRE                SA3    TEMP                                                            PRE         1954     A     
 PRE                SX2    X2          EXTEND SIGN FOR ICM                                 PRE         1955     A     
 PRE                SB6    X3          B6 = R-NUMBER OF VARIABLE                           PRE         1956     A     
 PRE                CALL   ICM         ISSUE MULTIPLY BY CONSTANT                          PRE         1957     A     
 PRE                SA3    MRESULT                                                         PRE         1958     A     
 PRE                EQ     IST6                                                            PRE         1959     A     
 PRE                                                                                       PRE         1960     A     
 PRE       IST4     ISSUE  OP=STT,RF=X4,CA=X2                                              PRE         1961     A     
 PRE                SX6    B7-B1                                                           PRE         1962     A     
 PRE                SA6    A4          STF = R-NUMBER OF ACCUMULATION                      PRE         1963     A     
 PRE                                                                                       PRE         1964     A     
 PRE       IST5     SA2    STF                                                             PRE         1965     A     
 PRE                SA3    TEMP        R-NUMBER OF VARIABLE                                PRE         1966     A     
 PRE                ZR     X2,IST0     IF NOTHING ISSUED                                   PRE         1967     A     
 PRE                ISSUE  OP=IM,RJ=X2,RK=X3                                               PRE         1968     A     
 PRE                SX3    B7-B1       FOR ITA                                             PRE         1969     A     
 PRE                                                                                       PRE         1970     A     
 PRE       IST6     CALL   ITA         ADD TERM TO PREVIOUS TERM ACCUMULATION              PRE         1971     A     
 PRE                SETZERO  O.TTS,L.TTS                                                   PRE         1972     A     
 PRE                EQ     IST0                                                            PRE         1973     A     
 PRE       ITA      SPACE  3,18        ITA                                                 PRE         1974     A     
 PRE      **        ITA - ISSUE TERM ADD.                                                  PRE         1975     A     
 PRE                                                                                       PRE         1976     A     
 PRE       ITA0     SX6    B7-1                                                            PRE         1977     A     
 PRE                SA6    TIF         TIF = R-NUMBER OF THIS ACCUMULATION                 PRE         1978     A     
 PRE                                                                                       PRE         1979     A     
 PRE       ITA      ROUTINE                                                                PRE         1980     A     
 PRE                SA2    TIF                                                             PRE         1981     A     
 PRE                SX7    X3                                                              PRE         1982     A     
 PRE                MX0    1                                                               PRE         1983     A     
 PRE                NZ     X2,ITA2     IF NOT FIRST TERM ISSUED                            PRE         1984     A     
 PRE                MI     X3,ITA1     IF XMTC FLAG ON                                     PRE         1985     A     
 PRE                SA7    TIF                                                             PRE         1986     A     
 PRE                EQ     ITA                                                             PRE         1987     A     
 PRE                                                                                       PRE         1988     A     
 PRE       ITA1     ISSUE  OP=XMTC,RJ=X7                                                   PRE         1989     A     
 PRE                EQ     ITA0                                                            PRE         1990     A     
 PRE                                                                                       PRE         1991     A     
 PRE       ITA2     BX5    X0*X3                                                           PRE         1992     A     
 PRE                LX5    1                                                               PRE         1993     A     
 PRE                SB3    OC.IA+X5    OC.IA/IS                                            PRE         1994     A     
 PRE                ISSUE  OP=B3,TY=I,RJ=X2,RK=X7                                          PRE         1995     A     
 PRE                EQ     ITA0                                                            PRE         1996     A     
 PRE       ICM      EJECT  ISSUE CONSTANT MULTIPLY.                                        PRE         1997     A     
 PRE      **        ICM - ISSUE CONSTANT MULTIPLY.                                         PRE         1998     A     
 PRE      *         ISSUES RLIST TO IXFN CODE BUFFER FOR A LOGICAL INTEGER                 PRE         1999     A     
 PRE      *         MULTIPLY OF A CONSTANT TIMES SOME OPERAND.  MULTIPLIES ARE             PRE         2000     A     
 PRE      *         REDUCED IN STRENGTH TO ADDS (IF CONSTANT = 2) OR TO SHIFT              PRE         2001     A     
 PRE      *         AND ADD SEQUENCES (IF CONSTANT = 2**J, 2**J+2**K OR 2**K-2**J)         PRE         2002     A     
 PRE      *                                                                                PRE         2003     A     
 PRE      *         ENTRY  X2 = CONSTANT MULTIPLIER                                        PRE         2004     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3615    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE      *                B6 = R-NUMBER OF MULTIPLICAND                                   PRE         2005     A     
 PRE      *                B7 = NEXT AVAILABLE INTERMEDIATE R-NUMBER                       PRE         2006     A     
 PRE      *                B2 = NEXT AVAILABLE ADDRESS IN IXFN CODE BUFFER                 PRE         2007     A     
 PRE      *                B1 = 1                                                          PRE         2008     A     
 PRE      *                                                                                PRE         2009     A     
 PRE      *         EXIT   B7 - UPDATED                                                    PRE         2010     A     
 PRE      *                B2 - UPDATED                                                    PRE         2011     A     
 PRE      *                B1 - PRESERVED                                                  PRE         2012     A     
 PRE      *                A0 - PRESERVED                                                  PRE         2013     A     
 PRE      *                A1 - PRESERVED                                                  PRE         2014     A     
 PRE      *                (MRESULT) - 1/XMTC-NECESSARY FLAG,59/R-NUMBER OF RESULT         PRE         2015     A     
 PRE      *                                                                                PRE         2016     A     
 PRE      *         USES   ALL OTHER REGISTERS                                             PRE         2017     A     
 PRE                                                                                       PRE         2018     A     
 PRE       ICM0     SX6    B7-1                                                            PRE         2019     A     
 PRE                                                                                       PRE         2020     A     
 PRE       ICM0A    SA2    TEMP+1                                                          PRE         2021     A     
 PRE                MX0    1                                                               PRE         2022     A     
 PRE                BX1    X0*X2       SIGN BIT OF ORIGINAL CONSTANT                       PRE         2023     A     
 PRE                BX6    X6+X1                                                           PRE         2024     A     
 PRE                SA6    MRESULT                                                         PRE         2025     A     
 PRE                                                                                       PRE         2026     A     
 PRE       ICM      ROUTINE                                                                PRE         2027     A     
 PRE                ZR     X2,ICM7     IF CONSTANT .EQ. 0                                  PRE         2028     A     
 PRE                BX6    X2                                                              PRE         2029     A     
 PRE                SA6    TEMP+1      SAVE CON                                            PRE         2030     A     
 PRE                AX6    59                                                              PRE         2031     A     
 PRE                BX2    X2-X6       (X2) = ABS(CON)                                     PRE         2032     A     
 PRE                SB5    47                                                              PRE         2033     A     
 PRE                SX1    B1          X1 = 1                                              PRE         2034     A     
 PRE                IX6    X2-X1                                                           PRE         2035     A     
 PRE                BX0    X2*X6                                                           PRE         2036     A     
 PRE                NZ     X0,ICM3     IF CON NOT 2**J                                     PRE         2037     A     
 PRE                NX6    B4,X2                                                           PRE         2038     A     
 PRE                SB4    B5-B4       B4 = J = LOG2(CON)                                  PRE         2039     A     
 PRE                SX2    B6          X2 = OPERAND                                        PRE         2040     A     
 PRE                ZR     B4,ICM1     IF CONSTANT .EQ. 1                                  PRE         2041     A     
 PRE                NE     B4,B1,ICM2  IF CONSTANT .NE. 2                                  PRE         2042     A     
 PRE                BX1    X2          X1 = OPERAND                                        PRE         2043     A     
 PRE                ISSUE  OP=IA,RJ=X1,RK=X2  ISSUE OP + OP                                PRE         2044     A     
 PRE                EQ     ICM0                                                            PRE         2045     A     
 PRE                                                                                       PRE         2046     A     
 PRE       ICM1     SX6    X2                                                              PRE         2047     A     
 PRE                EQ     ICM0A                                                           PRE         2048     A     
 PRE                                                                                       PRE         2049     A     
 PRE       ICM2     ISSUE  OP=SXT,RJ=X2                                                    PRE         2050     A     
 PRE                SX2    B4          CA = SHIFT COUNT = J                                PRE         2051     A     
 PRE                SX3    B7-B1                                                           PRE         2052     A     
 PRE                ISSUE  OP=KLS,RF=X3,CA=X2                                              PRE         2053     A     
 PRE                EQ     ICM0                                                            PRE         2054     A     
 PRE                                                                                       PRE         2055     A     
 PRE       ICM3     IX5    X0-X1                                                           PRE         2056     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3616    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                BX3    X0*X5                                                           PRE         2057     A     
 PRE                NZ     X3,ICM4     IF CONSTANT NOT 2**J + 2**K                         PRE         2058     A     
 PRE                NX6    B4,X0                                                           PRE         2059     A     
 PRE                SB4    B5-B4       B4 = MAX(J,K)                                       PRE         2060     A     
 PRE                IX6    X2-X0                                                           PRE         2061     A     
 PRE                SX2    B6          X2 = R-NUMBER OF OPERAND                            PRE         2062     A     
 PRE                NX0    B3,X6                                                           PRE         2063     A     
 PRE                SB5    B5-B3       B5 = MIN(J,K)                                       PRE         2064     A     
 PRE                SX1    B4-B5       X1 = MAX(J,K) - MIN(J,K)                            PRE         2065     A     
 PRE                BX4    X2                                                              PRE         2066     A     
 PRE                ISSUE  OP=SXT,RJ=X4                                                    PRE         2067     A     
 PRE                SX3    B7-B1                                                           PRE         2068     A     
 PRE                ISSUE  OP=KLS,RF=X3,CA=X1                                              PRE         2069     A     
 PRE                SX3    B7-B1                                                           PRE         2070     A     
 PRE                ISSUE  OP=IA,RJ=X3,RK=X2                                               PRE         2071     A     
 PRE                ZR     B5,ICM0     IF MIN(J,K) .EQ. 0                                  PRE         2072     A     
 PRE                SX3    B7-B1                                                           PRE         2073     A     
 PRE                ISSUE  OP=SXT,RJ=X3                                                    PRE         2074     A     
 PRE                SX3    B7-B1                                                           PRE         2075     A     
 PRE                SX1    B5                                                              PRE         2076     A     
 PRE                ISSUE  OP=KLS,RF=X3,CA=X1                                              PRE         2077     A     
 PRE                EQ     ICM0                                                            PRE         2078     A     
 PRE                                                                                       PRE         2079     A     
 PRE       ICM4     BX7    X2+X6                                                           PRE         2080     A     
 PRE                IX0    X7+X1                                                           PRE         2081     A     
 PRE                BX1    X0*X7                                                           PRE         2082     A     
 PRE                NZ     X1,ICM6     IF CONST NOT 2**K - 2**J                            PRE         2083     A     
 PRE                NX6    B4,X0                                                           PRE         2084     A     
 PRE                SB4    B5-B4       B4 = K                                              PRE         2085     A     
 PRE                IX2    X0-X2                                                           PRE         2086     A     
 PRE                NX3    B3,X2                                                           PRE         2087     A     
 PRE                SX2    B6          X2 = OPERAND                                        PRE         2088     A     
 PRE                SB5    B5-B3       B5 = J                                              PRE         2089     A     
 PRE                BX4    X2                                                              PRE         2090     A     
 PRE                ISSUE  OP=SXT,RJ=X4                                                    PRE         2091     A     
 PRE                SX3    B7-B1                                                           PRE         2092     A     
 PRE                SX4    B4                                                              PRE         2093     A     
 PRE                ISSUE  OP=KLS,RF=X3,CA=X4                                              PRE         2094     A     
 PRE                SX0    B7-B1                                                           PRE         2095     A     
 PRE                ZR     B5,ICM5     IF J .EQ. 0                                         PRE         2096     A     
 PRE                ISSUE  OP=SXT,RJ=X2                                                    PRE         2097     A     
 PRE                SX4    B5          J                                                   PRE         2098     A     
 PRE                SX2    B7-B1                                                           PRE         2099     A     
 PRE                ISSUE  OP=KLS,RF=X2,CA=X4                                              PRE         2100     A     
 PRE                SX2    B7-B1                                                           PRE         2101     A     
 PRE                                                                                       PRE         2102     A     
 PRE       ICM5     ISSUE  OP=IS,RJ=X0,RK=X2                                               PRE         2103     A     
 PRE                EQ     ICM0                                                            PRE         2104     A     
 PRE                                                                                       PRE         2105     A     
 PRE       ICM6     SA3    TEMP+1      ORIGINAL CONSTANT                                   PRE         2106     A     
 PRE                MX0    -18                                                             PRE         2107     A     
 PRE                BX2    -X0*X3      IN                                                  PRE         2108     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3617    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PRE     
  
 PRE                ISSUE  OP=S,IN=X2                                                      PRE         2109     A     
 PRE                SX1    B6          OPERAND                                             PRE         2110     A     
 PRE                SX2    B7-B1                                                           PRE         2111     A     
 PRE                ISSUE  OP=IM,RJ=X1,RK=X2                                               PRE         2112     A     
 PRE                SX6    B7-B1                                                           PRE         2113     A     
 PRE                SA6    MRESULT                                                         PRE         2114     A     
 PRE                EQ     ICM                                                             PRE         2115     A     
 PRE                                                                                       PRE         2116     A     
 PRE       ICM7     ISSUE  OP=CLR                                                          PRE         2117     A     
 PRE                SX6    B7-B1                                                           PRE         2118     A     
 PRE                SA6    MRESULT                                                         PRE         2119     A     
 PRE                EQ     ICM                                                             PRE         2120     A     
 PRE                                                                                       PRE         2121     A     
 PRE                END                                                                    PRE         2122     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PRE     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PRE                       2122      2095
          FCC0504                      1         1
          FCC0672                     12        12
          RSM2763X                     4         4
          FCC1624X                     3         3
          FCC2204                      7         7
          FCC2202                     24        24
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA      *DECK     CFA                                                                    CFA            1     A     
 CFA                IDENT  CFA                                                             CFA            2     A     
 CFA       CFA      TITLE  CFA - CONTROL FLOW ANALYSIS ROUTINES                            CFA            3     A     
 CFA      *CALL     SSTCALL                                                                CFA            4     A     
 CFA       B=CFA    RPVDEF                                                                 CFA            5     A     
 CFA                PASS2TM                                                                CFA            6     A     
 CFA                                                                                       CFA            7     A     
 CFA      *IF       DEF,CFA,1                                                              CFA            8     A     
 CFA                TRACER GPO                                                             CFA            9     A     
 CFA       CFA      SPACE  2                                                               CFA           10     A     
 CFA      **        CFA - CONTROL FLOW ANALYSIS ROUTINES ( OPT=2 )                         CFA           11     A     
 CFA      *         CFA PROCESSES THE CONTROL FLOW INFORMATION FORMED IN *PRE* TO          CFA           12     A     
 CFA      *         FIND THE LOOPS IN THE PROGRAM, AND TO BUILD THE GRAPH/INTERVAL         CFA           13     A     
 CFA      *         STRUCTURE TABLES WHICH ARE USED BY THE OPTIMIZERS ( GPO/GRA )          CFA           14     A     
 CFA      *         TO DIRECT THE GLOBAL OPTIMIZATION.                                     CFA           15     A     
 CFA      *                                                                                CFA           16     A     
 CFA      *         S.I. JASIK - SEPT 11, 1973                                             CFA           17     A     
 CFA                                                                                       CFA           18     A     
 CFA                LIST   -R,X                                                            CFA           19     A     
 CFA                                                                                       CFA           20     A     
 CFA                ENTRY  DGS,F.CFA                                                       CFA           21     A     
 CFA                                                                                       CFA           22     A     
 CFA                TABLES GST,CFT,BST,GLT,OTI,RND                                         CFA           23     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3618    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA       O.BIT    EQU    O.BST                                                           CFA           24     A     
 CFA       L.BIT    EQU    L.BST                                                           CFA           25     A     
 CFA                EXT    CBN,M.GRL,N.DG,NPB                                              CFA           26     A     
 CFA                                                                                       CFA           27     A     
 CFA       MAX.GST  EQU    1400B       MAX GRAPH SPACE ( INCORE )                          CFA           28     A     
 CFA                                                                                       CFA           29     A     
 CFA      **        DEBUG FACILITIES                                                       CFA           30     A     
 CFA      *                                                                                CFA           31     A     
 CFA      *         TRACER (FGS,FGS.X,FIS1,FIS.X,CBD.X,FDG.X)                              CFA           32     A     
 CFA       SCRATCH  SPACE  3                                                               CFA           33     A     
 CFA      *         SCRATCH CELLS USED DURING GRAPH / INTERVAL FORMATION                   CFA           34     A     
 CFA                                                                                       CFA           35     A     
 CFA                USE    /TABLES/                                                        CFA           36     A     
 CFA       PBN      BSS    1           PREVIOUS BLOCK NUMBER ( *CBN* ON ENTRY )            CFA           37     A     
 CFA                                                                                       CFA           38     A     
 CFA       LB       BSS    2           LINK BACKWARDS / L.GST AT START OF GRAPH            CFA           39     A     
 CFA       N.BLK    BSS    1           NUMBER OF BLOCKS IN GRAPH                           CFA           40     A     
 CFA                                                                                       CFA           41     A     
 CFA       LC       BSS    1           SAVED LENGTH OF *CFT*                               CFA           42     A     
 CFA       EIB      BSS    2           EDGE INDEX BASE                                     CFA           43     A     
 CFA       EII      EQU    EIB         EDGE INDEX INDEX  ( RELATIVE TO O.GST )             CFA           44     A     
 CFA       ETB      EQU    EIB+1       EDGE TABLE BASE                                     CFA           45     A     
 CFA       ILB      BSS    1           INTERVAL LIST BASE                                  CFA           46     A     
 CFA                                                                                       CFA           47     A     
 CFA       HTL      BSS    1           HEADER TABLE LIST                                   CFA           48     A     
 CFA       NPH      BSS    1           N.PRED OF HEADER AT BEGIN OF INTERVAL               CFA           49     A     
 CFA       FTH      BSS    1           FALL THROUGH TO HEADER FROM A LATCHING NODE         FCC0408       92     A     
 CFA       SCR      BSS    1           "0 IF GRAPH CONTAINS LOOPS                          CFA           50     A     
 CFA       LINT     BSS    1                                                               CFA           51          I
          -FCC0392
 CFA       IP       BSS    1           INTERVAL POINTER ( CBD )                            CFA           52     A     
 CFA       NN       BSS    1           N.NODES REMAINING ( CBD12 )                         CFA           53     A     
 CFA       I        EQU    NN                                                              CFA           54     A     
 CFA                USE    0                                                               CFA           55     A     
 CFA                SPACE  2                                                               CFA           56     A     
 CFA      *CALL     CFTBLD                                                                 CFA           57     A     
 CFA       TMP      SPACE  3                                                               CFA           58     A     
 CFA      **        I. - TEMPORARY TABLE FOR INTERVAL FORMATION                            CFA           59     A     
 CFA                                                                                       CFA           60     A     
 CFA                DESCRIBE I.,60                                                         CFA           61     A     
 CFA       INI      DEFINE 1           IN AN INTERVAL                                      CFA           62     A     
 CFA       INH      DEFINE 1           IN HEADER LIST                                      CFA           63     A     
 CFA                DEFINE 4                                                               CFA           64          I
          -FCC1191
 CFA       1P       DEFINE 1           =1 IF ONLY 1 PREDECESSOR                            FCC1191        6     A     
 CFA                DEFINE 3                                                               FCC1191        7     A     
 CFA       HN       DEFINE 18          HEADER NODE NUMBER                                  CFA           65     A     
 CFA       IA       DEFINE 18          ADDRESS OF NODE IN INTERVAL LIST                    CFA           66     A     
 CFA       PC       DEFINE 18          PREDECESSOR COUNT                                   CFA           67     A     
 CFA                SPACE  2                                                               CFA           68     A     
 CFA      **        I. - TEMP TABLE FOR BACK DOMINATOR CALCULATION                         CFA           69     A     
 CFA      *         NOTE - IF NODES IN INTERVAL @ 60 , THEN BITN = NI                      CFA           70     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3619    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                                                                                       CFA           71     A     
 CFA                DESCRIBE I.,60                                                         CFA           72     A     
 CFA       BITN     DEFINE 12          PACKED BIT NUMBER                                   CFA           73     A     
 CFA       WI       DEFINE 18          WORD INDEX                                          CFA           74     A     
 CFA       BVI      DEFINE 18          BIT VECTOR INDEX                                    CFA           75     A     
 CFA       NI       DEFINE 12          NODE INDEX ( REL TO INTERVAL BASE )                 CFA           76     A     
 CFA                SPACE  2                                                               CFA           77     A     
 CFA                LIST   R                                                               CFA           78     A     
 CFA                QUAL   CODE                                                            CFA           79     A     
 CFA       CGT      TITLE  CGT - CHECK GRAPH TABLE LENGTH AND FLUSH IF NECESSARY           CFA           80     A     
 CFA      **        CGT - CHECK GRAPH TABLE LENGTH AND FLUSH TO DISK IF TOO BIG            CFA           81     A     
 CFA                                                                                       CFA           82     A     
 CFA       CGT      ROUTINE                                                                CFA           83     A     
 CFA                SA1    L.GST                                                           CFA           84     A     
 CFA                SX2    X1-MAX.GST                                                      CFA           85     A     
 CFA                MI     X2,CGT      IF L.GST < MAX.GRS  */ SMALL ENOUGH FOR CORE        CFA           86     A     
 CFA                SA5    N.DG                                                            CFA           87     A     
 CFA                ZR     X5,CGT      IF N.DG = 0   */ NO DERIVED GRAPHS                  CFA           88     A     
 CFA                                                                                       CFA           89     A     
 CFA      *         FLUSH GRAPHS TO DISK, SETUP RANDOM INDEX IN WORKING STORAGE.           CFA           90     A     
 CFA                                                                                       CFA           91     A     
 CFA                SA3    O.GST                                                           CFA           92     A     
 CFA                SX4    X3+B1       FWA = O.GST + 1                                     CFA           93     A     
 CFA                SA5    X4                                                              CFA           94     A     
 CFA                LX5    -GA.LFP     LEN = LF[FWA]                                       CFA           95     A     
 CFA                MX6    0                                                               CFA           96     A     
 CFA                SX7    B1                                                              CFA           97     A     
 CFA                SA6    I           I = 0                                               CFA           98     A     
 CFA                SA7    =XGIC       GIC = 1       */ INDEX                              CFA           99     A     
 CFA                                                                                       CFA          100     A     
 CFA       CGT1     SA2    GIC                                                             CFA          101     A     
 CFA                IX7    X2+X5       GIC = GIC + LEN                                     CFA          102     A     
 CFA                SA7    A2                                                              CFA          103     A     
 CFA                CALL   SBD         SAVE GRAPH ON DISK                                  CFA          104     A     
 CFA                SA5    =XO.IST                                                         CFA          105     A     
 CFA                BX7    X1                                                              CFA          106     A     
 CFA                SB2    X5                                                              CFA          107     A     
 CFA                SA1    I                                                               CFA          108     A     
 CFA                SA7    B2+X1       IST(I) = RIW  */ SAVE MASS STORAGE ADDRESS          CFA          109     A     
 CFA                SX6    X1+B1       I = I + 1                                           CFA          110     A     
 CFA                SA3    O.GST                                                           CFA          111     A     
 CFA                SA5    GIC                                                             CFA          112     A     
 CFA                IX4    X3+X5       FWA = O.GST + GIC                                   CFA          113     A     
 CFA                SA2    X4                                                              CFA          114     A     
 CFA                LX2    -GA.LFP                                                         CFA          115     A     
 CFA                SX5    X2          LEN = LF[FWA]                                       CFA          116     A     
 CFA                SA6    A1                                                              CFA          117     A     
 CFA                NZ     X5,CGT1     IF LEN " 0                                          CFA          118     A     
 CFA                                                                                       CFA          119     A     
 CFA                SA4    =XM.GRL                                                         CFA          120     A     
 CFA                SX6    B2                                                              CFA          121     A     
 CFA                SX7    A7+B1                                                           CFA          122     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3620    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                SA6    GIC         GIC = O.IST   */ POINT TO FIRST GRAPH               CFA          123     A     
 CFA                SA7    O.IST       O.IST = O.IST + I                                   CFA          124     A     
 CFA                SX6    X4+1                                                            CFA          125     A     
 CFA                SA6    L.GST       L.GST = M.GRL + 1                                   CFA          126     A     
 CFA                EQ     CGT                                                             CFA          127     A     
 CFA       DGS      TITLE  DGS - DERIVE GRAPH STRUCTURE                                    CFA          128     A     
 CFA      **        DGS - DERIVE GRAPH STRUCTURE ( CONTROL FLOW INFORMATION )              CFA          129     A     
 CFA                                                                                       CFA          130     A     
 CFA       DGS0     ADDWRD GST,B0      ADDWRD( GST , 0 )                                   CFA          131     A     
 CFA                SA6    L.CFT       L.CFT = 0                                           CFA          132     A     
 CFA                                                                                       CFA          133     A     
 CFA                RJ     CGT         CHECK GRAPH TABLES                                  CFA          134     A     
 CFA                                                                                       CFA          135     A     
 CFA       DGS      ROUTINE                                                                CFA          136     A     
 CFA                CALL   AFT         ADJUST FLOW TABLE                                   CFA          137     A     
 CFA                MX6    0                                                               CFA          138     A     
 CFA                SA6    L.GST       L.GST = 0                                           CFA          139     A     
 CFA                ADDWRD GST,B0      ADDWRD( GST , 0 )                                   CFA          140     A     
 CFA                SA5    CBN                                                             CFA          141     A     
 CFA                MX6    0                                                               CFA          142     A     
 CFA                BX7    X5                                                              CFA          143     A     
 CFA                SA6    LB          LB = 0        */ LINK BACKWARDS                     CFA          144     A     
 CFA                SA7    PBN         PBN = CBN       */ CBN AT BEGIN OF GRAPH            CFA          145     A     
 CFA                SX7    X7-1                                                            CFA          146     A     
 CFA                SA7    N.BLK       N.BLK = CBN - 1 */ NUMBER OF BLOCKS                 CFA          147     A     
 CFA                SA7    NPB         NPB  = CBN - 1  */ N.PROGRAM BLOCKS                 CFA          148     A     
 CFA                                                                                       CFA          149     A     
 CFA                RJ     FGS         FORM GRAPH STRUCTURE                                CFA          150     A     
 CFA                RJ     FIS         FORM INTERVAL STRUCTURE                             CFA          151     A     
 CFA                RJ     MRB         MARK REACHABLE BLOCKS                               CFA          152     A     
 CFA                                                                                       CFA          153     A     
 CFA      *         FORM DERVIED GRAPH OF CURRENT GRAPH IT IT HAS LOOPS                    CFA          154     A     
 CFA                                                                                       CFA          155     A     
 CFA       DGS1     SA1    SCR                                                             CFA          156     A     
 CFA                ZR     X1,DGS0     IF SCR = 0    */ NO LOOPS                           CFA          157     A     
 CFA                                                                                       CFA          158     A     
 CFA                RJ     FDG         FORM DERIVED GRAPH                                  CFA          159     A     
 CFA                SA1    N.DG                                                            CFA          160     A     
 CFA                SA2    CBN                                                             CFA          161     A     
 CFA                SX6    X1+B1       N.DG = N.DG + 1                                     CFA          162     A     
 CFA                LX7    X2                                                              CFA          163     A     
 CFA                SA7    PBN         PBN = CBN                                           CFA          164     A     
 CFA                SA6    A1                                                              CFA          165     A     
 CFA                                                                                       CFA          166     A     
 CFA                RJ     FGS         FORM GRAPH STRUCTURE TABLES                         CFA          167     A     
 CFA                RJ     FIS         FORM INTERVAL STRUCTURE                             CFA          168     A     
 CFA                EQ     DGS1                                                            CFA          169     A     
 CFA       AFT      TITLE  AFT - ADJUST FLOW TABLE                                         CFA          170     A     
 CFA      **        AFT - ADJUST FLOW TABLE TO REPLACE *IH* ORDINALS WITH BLOCK            CFA          171     A     
 CFA      *                NUMBERS IN *TO* FIELD ( FORWARD REFERENCES ).                   CFA          172     A     
 CFA                                                                                       CFA          173     A     
 CFA       AFT      ROUTINE                                                                CFA          174     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3621    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                SA1    L.CFT                                                           CFA          175     A     
 CFA                SA2    O.CFT                                                           CFA          176     A     
 CFA                SA3    O.SYM                                                           CFA          177     A     
 CFA                SA4    O.GLT                                                           CFA          178     A     
 CFA                SA0    X3-1                                                            CFA          179     A     
 CFA                SB2    X4-I.GL-1                                                       CFA          180     A     
 CFA                SB3    X2          I = O.CFT                                           CFA          181     A     
 CFA                MX0    -CF.FROMP                                                       CFA          182     A     
 CFA                SB4    B3+X1       L = I + L.CFT                                       CFA          183     A     
 CFA                MX7    -12                                                             CFA          184     A     
 CFA                SB6    I.GL                                                            CFA          185     A     
 CFA                EQ     AFT2                                                            CFA          186     A     
 CFA                                                                                       CFA          187     A     
 CFA       AFT1     SA4    B2+B5       BN = GLT(H-1)                                       CFA          188     A     
 CFA                IX6    X6+X4                                                           CFA          189     A     
 CFA                SA6    A5+         TO[CI] = BN                                         CFA          190     A     
 CFA                                                                                       CFA          191     A     
 CFA       AFT2     SA5    B3          CI = I                                              CFA          192     A     
 CFA                GE     B3,B4,AFT   IF I \ L      */ END OF TABLE                       CFA          193     A     
 CFA                LX5    59-CF.JPP                                                       CFA          194     A     
 CFA                SB3    B3+B1       I = I + 1                                           CFA          195     A     
 CFA                PL     X5,AFT2     IF ^JP[CI]    */ *TO* IS A BLOCK NUMBER             CFA          196     A     
 CFA                LX5    1+CF.JPP                                                        CFA          197     A     
 CFA                SB5    X5          H = TO[CI]                                          CFA          198     A     
 CFA                BX6    X0*X5                                                           CFA          199     A     
 CFA                GE     B5,B6,AFT1  IF H \ I.GL                                         CFA          200     A     
 CFA                                                                                       CFA          201     A     
 CFA                SB5    B5+B5                                                           CFA          202     A     
 CFA                SA4    A0-B5       WORDB = [O.SYM-1-2*H]                               CFA          203     A     
 CFA                BX3    -X7*X4                                                          CFA          204     A     
 CFA                IX6    X6+X3       TO[CI] = BN[WORDB]                                  CFA          205     A     
 CFA                SA6    A5+                                                             CFA          206     A     
 CFA                EQ     AFT2                                                            CFA          207     A     
 CFA       MRB      TITLE  MRB - MARK REACHABLE BLOCKS                                     CFA          208     A     
 CFA      **        MRB - MARK REACHABLE BLOCKS                                            CFA          209     A     
 CFA      *         SET *RB* BIT IN *BIT* FOR BLOCKS THAT ARE IN INTERVALS.                CFA          210     A     
 CFA                                                                                       CFA          211     A     
 CFA       MRB      ROUTINE                                                                CFA          212     A     
 CFA                SA1    O.GST                                                           CFA          213     A     
 CFA                SA2    ILB                                                             CFA          214     A     
 CFA                MX0    1                                                               CFA          215     A     
 CFA                LX0    1+BI.RBP                                                        CFA          216     A     
 CFA                IX7    X1+X2                                                           CFA          217     A     
 CFA                SA3    N.BLK                                                           CFA          218     A     
 CFA                SA4    O.BIT                                                           CFA          219     A     
 CFA                SB2    X3          NB = N.BLK                                          CFA          220     A     
 CFA                SB3    X4                                                              CFA          221     A     
 CFA                SA5    X7          IP = O.GST + ILB                                    CFA          222     A     
 CFA                                                                                       CFA          223     A     
 CFA       MRB1     LX5    -IP.NODEP                                                       CFA          224     A     
 CFA                SB4    X5          N = NODE[IP]                                        CFA          225     A     
 CFA                SB2    B2-B4       NB = NB - N                                         CFA          226     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3622    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                SA5    A5+B1       IP = IP + 1                                         CFA          227     A     
 CFA                                                                                       CFA          228     A     
 CFA       MRB2     LX5    -IM.BNP                                                         CFA          229     A     
 CFA                SX7    X5                                                              CFA          230     A     
 CFA                LX7    1                                                               CFA          231     A     
 CFA                SA4    B3+X7                                                           CFA          232     A     
 CFA                BX6    X0+X4       RB[BIT(BN[IP])] = 1                                 CFA          233     A     
 CFA                SA5    A5+B1       IP = IP + 1                                         CFA          234     A     
 CFA                SB4    B4-1        N = N - 1                                           CFA          235     A     
 CFA                SA6    A4                                                              CFA          236     A     
 CFA                NZ     B4,MRB2     IF N " 0                                            CFA          237     A     
 CFA                NZ     X5,MRB1     IF [IP] " 0                                         CFA          238     A     
 CFA                                                                                       CFA          239     A     
 CFA      *         PROGRAM GRAPH CONTAINS UNREACHABLE BLOCKS.                             CFA          240     A     
 CFA      *         REFORM THE EDGE TABLES AND THE INTERVALS, SINCE THE DEAD CODE MAY      CFA          241     A     
 CFA      *         MAY CAUSE THE FORMATION OF SOME SUB-MAXIMAL INTERVALS.                 CFA          242     A     
 CFA                                                                                       CFA          243     A     
 CFA                ZR     B2,MRB      IF NB = 0     */ ALL BLOCKS REACHABLE               CFA          244     A     
 CFA                SA1    LC                                                              CFA          245     A     
 CFA                MX6    0                                                               CFA          246     A     
 CFA                SA6    L.CFT       L.CFT = 0                                           CFA          247     A     
 CFA                SA6    =XL.LCT     L.LCT = 0                                           FCC1319      136     A     
 CFA                SA6    LB          LB = 0                                              CFA          248     A     
 CFA                SA6    =XN.FTH     N.FTH = 0                                           FCC2113       71     A     
 CFA                ALLOC  CFT,X1      ALLOC( CFT , LC )                                   CFA          249     A     
 CFA                SA1    O.BIT                                                           CFA          250     A     
 CFA                SB2    X2          C0 = O.CFT                                          CFA          251     A     
 CFA                SA5    B2-B1                                                           CFA          252     A     
 CFA                BX7    X5                                                              CFA          253     A     
 CFA                SA7    A5          CI = C0 - 1                                         CFA          254     A     
 CFA                SB4    B1          BN = 1                                              CFA          255     A     
 CFA                SA4    N.BLK                                                           CFA          256     A     
 CFA                SA3    O.GST                                                           CFA          257     A     
 CFA                SB5    X4                                                              CFA          258     A     
 CFA                SB7    X3+3        EIB = O.GST + 3                                     CFA          259     A     
 CFA                MX0    1+ET.SUCCL                                                      CFA          260     A     
 CFA                LX0    ET.SUCCL                                                        CFA          261     A     
 CFA                SA2    X1+2        BI = O.BIT + 2                                      CFA          262     A     
 CFA                SX1    B1                                                              CFA          263     A     
 CFA                LX1    CF.FROMP                                                        CFA          264     A     
 CFA                SX6    B1                                                              CFA          265     A     
 CFA                SA6    L.GST       L.GST = 1                                           CFA          266     A     
 CFA                EQ     MRB4                                                            CFA          267     A     
 CFA                                                                                       CFA          268     A     
 CFA      *         UNREACHABLE BLOCK, SHOW FLOW TO EXIT NODE ( FOR *FGS* )                CFA          269     A     
 CFA                                                                                       CFA          270     A     
 CFA       MRB3     BX7    X1                                                              CFA          271     A     
 CFA                SA7    A7+B1       CI = CI + 1;  [CI] = CFTE( BN , 0 )                 CFA          272     A     
 CFA                EQ     MRB6                                                            CFA          273     A     
 CFA                                                                                       CFA          274     A     
 CFA       MRB4     LX2    59-BI.RBP                                                       CFA          275     A     
 CFA                PL     X2,MRB3     IF ^RB[BI]                                          CFA          276     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3623    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                SA5    B7+B4       EI = EIB + BN                                       CFA          277     A     
 CFA                LX5    -EI.SUIP                                                        CFA          278     A     
 CFA                UX6    B6,X5       NS = NS[EI]                                         CFA          279     A     
 CFA                SA4    B7+X5       SI = EIB + SUI[EI]                                  CFA          280     A     
 CFA                                                                                       CFA          281     A     
 CFA       MRB5     BX3    X0*X4                                                           CFA          282     A     
 CFA                IX7    X1+X3                                                           CFA          283     A     
 CFA                SA7    A7+B1       CI = CI + 1;  [CI] = CFTE( BN , SUCC[SI] )          CFA          284     A     
 CFA                SB6    B6-B1       NS = NS - 1                                         CFA          285     A     
 CFA                SA4    A4+B1       SI = SI + 1                                         CFA          286     A     
 CFA                NZ     B6,MRB5     IF NS " 0                                           CFA          287     A     
 CFA                                                                                       CFA          288     A     
 CFA       MRB6     SB4    B4+B1       BN = BN + 1                                         CFA          289     A     
 CFA                SA2    A2+2        BI = BI + 2                                         CFA          290     A     
 CFA                SX1    B4                                                              CFA          291     A     
 CFA                LX1    CF.FROMP                                                        CFA          292     A     
 CFA                LE     B4,B5,MRB4  IF BN @ N.BLK                                       CFA          293     A     
 CFA                                                                                       CFA          294     A     
 CFA                SB6    A7+B1                                                           CFA          295     A     
 CFA                SX6    B6-B2       L.CFT = CI + 1 - C0                                 CFA          296     A     
 CFA                SA6    L.CFT                                                           CFA          297     A     
 CFA                SX7    B5+B1       CBN = N.BLK + 1                                     CFA          298     A     
 CFA                SA7    CBN                                                             CFA          299     A     
 CFA                RJ     FGS         REFORM GRAPH STRUCTURE TABLES                       CFA          300     A     
 CFA                RJ     FIS         REFORM INTERVALS                                    CFA          301     A     
 CFA                                                                                       CFA          302     A     
 CFA      *         SCAN *BIT* AND LIST LINE NUMBERS OF UNREACHABLE BLOCKS                 CFA          303     A     
 CFA                                                                                       CFA          304     A     
 CFA                SA1    =XPROGNAM                                                       CFA          305     A     
 CFA                BX6    X1                                                              CFA          306     A     
 CFA                SA6    MRBD+2                                                          CFA          307     A     
 CFA                MESSAGE MRBD,,R    *   DEAD CODE IN - PROGNAM *                        CFA          308     A     
 CFA                                                                                       CFA          309     A     
 CFA                SA1    =XSLIST                                                         FCC1623X       5     A     
 CFA                NZ     X1,MRB6A    IF SOURCE LIST ON                                   FCC1623X       6     A     
 CFA                SA1    =XR=FLAG                                                        CFA          310     A     
 CFA                ZR     X1,MRB      IF NO MAP                                           CFA          311     A     
 CFA                                                                                       CFA          312     A     
 CFA                LISTL  MRBB,1                                                          CFA          313          I
          -FCC1623X 
 CFA       MRB6A    LISTL  MRBB,1                                                          FCC1623X       7     A     
 CFA                LISTL  MRBA,MRBB+1-MRBA                                                CFA          314     A     
 CFA                SB6    4           I = 4                                               CFA          315     A     
 CFA                                                                                       CFA          316     A     
 CFA       MRB7     SA1    =1H                                                             CFA          317     A     
 CFA                SA3    L.BIT                                                           CFA          318     A     
 CFA                SA5    O.BIT                                                           CFA          319     A     
 CFA                BX6    X1                                                              CFA          320     A     
 CFA                SB7    X3                                                              CFA          321     A     
 CFA                SA6    MRBA                                                            CFA          322     A     
 CFA                SX0    -MRBC                                                           CFA          323     A     
 CFA                EQ     B6,B7,MRB   IF I = L.BIT                                        CFA          324     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3624    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                                                                                       CFA          325     A     
 CFA       MRB8     SA1    X5+B6       BIW = BIT(I)                                        CFA          326     A     
 CFA                LX1    59-BI.RBP                                                       CFA          327     A     
 CFA                PL     X1,MRB11    IF ^RB[BIW]                                         CFA          328     A     
 CFA       MRB9     SB6    B6+2        I = I + 2                                           CFA          329     A     
 CFA                LT     B6,B7,MRB8  IF I < L.BIT                                        CFA          330     A     
 CFA                                                                                       CFA          331     A     
 CFA       MRB10    RJ     LAL         LIST LAST LINE                                      CFA          332     A     
 CFA                EQ     MRB                                                             CFA          333     A     
 CFA                                                                                       CFA          334     A     
 CFA       MRB11    LX1    1+BI.RBP-BI.FLNP                                                CFA          335     A     
 CFA                SX1    X1                                                              CFA          336     A     
 CFA                CALL   CDD         CONVERT LINE NUMBER                                 CFA          337     A     
 CFA                SA6    A6+B1       STORE IN LINE BUFFER                                CFA          338     A     
 CFA                SX0    X0+B1                                                           CFA          339     A     
 CFA                MI     X0,MRB9     IF NOT A FULL LINE                                  CFA          340     A     
 CFA                                                                                       CFA          341     A     
 CFA                RJ     LAL         LIST LINE                                           CFA          342     A     
 CFA                EQ     MRB7                                                            CFA          343     A     
 CFA                                                                                       CFA          344     A     
 CFA       MRBA     DATA   H* STATEMENTS BEGINNING AT BELOW LINE NUMBERS ARE UNREA         CFA          345     A     
 CFA      ,CHABLE ( DEAD CODE ), AND WILL NOT BE PROCESSED*                                CFA          346     A     
 CFA       MRBB     DATA   8L                                                              CFA          347     A     
 CFA       MRBC     EQU    MRBB-MRBA-1                                                     CFA          348     A     
 CFA       MRBD     DATA   28L     DEAD CODE IN - NAMEXXX                                  CFA          349     A     
 CFA       LAL      SPACE  3           LAL                                                 CFA          350     A     
 CFA      **        LAL - LIST A LINE                                                      CFA          351     A     
 CFA                                                                                       CFA          352     A     
 CFA       LAL      ROUTINE                                                                CFA          353     A     
 CFA                SA4    MRBB                                                            CFA          354     A     
 CFA                SX7    B6                                                              CFA          355     A     
 CFA                BX6    X4                                                              CFA          356     A     
 CFA                SA6    A6+B1                                                           CFA          357     A     
 CFA                SB7    A6+B1                                                           CFA          358     A     
 CFA                SA7    I                                                               CFA          359     A     
 CFA                LISTL  MRBA,B7-MRBA                                                    CFA          360     A     
 CFA                SA3    I                                                               CFA          361     A     
 CFA                SB6    X3+2        I = I + 2                                           CFA          362     A     
 CFA                EQ     LAL                                                             CFA          363     A     
 CFA       FGS      TITLE  FGS - FORM GRAPH STRUCTURE TABLES                               CFA          364     A     
 CFA      **        FGS - FORM GRAPH STRUCTURE TABLES                                      CFA          365     A     
 CFA      *         FORM EDGE INDEX AND COMPRESS EDGE TABLES FROM *CFT* .                  CFA          366     A     
 CFA                                                                                       CFA          367     A     
 CFA       FGS      ROUTINE                                                                CFA          368     A     
 CFA                SX1    B1                                                              CFA          369     A     
 CFA                LX1    CF.FROMP                                                        CFA          370     A     
 CFA                ADDWRD CFT,X1      FLOW( 1 , 0 ) */ DUMMY EXIT EDGE                    CFA          371     A     
 CFA                ADDWRD CFT,B0      ADDWRD( CFT , 0 )                                   CFA          372     A     
 CFA                SX1    X3-1                                                            CFA          373     A     
 CFA                SB7    X2                                                              CFA          374     A     
 CFA                MX0    60-CF.JPP                                                       CFA          375     A     
 CFA                BX6    X3                                                              CFA          376     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3625    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                SB6    B0                                                              CFA          377     A     
 CFA                BX0    -X0                                                             CFA          378     A     
 CFA                MX5    0                                                               CFA          379     A     
 CFA                SA6    LC          LC = L.CFT    */ SAVE IN CASE GRAPH REDONE          CFA          380     A     
 CFA                CALL   SST         SORT( CFT , [FROM,TO] )                             CFA          381     A     
 CFA                TRACE  FGS,CFT                                                         CFA          382     A     
 CFA                                                                                       CFA          383     A     
 CFA      *         ALLOCATE SPACE FOR EDGE INDEX AND EDGE TABLES                          CFA          384     A     
 CFA                                                                                       CFA          385     A     
 CFA                SA5    N.BLK                                                           CFA          386     A     
 CFA                SA3    L.CFT                                                           CFA          387     A     
 CFA                IX6    X5+X3                                                           CFA          388     A     
 CFA                SX1    X6+3                                                            CFA          389     A     
 CFA                ALLOC  GST,X1      ALLOC( GST , 3+N.BLK+L.CFT )                        CFA          390     A     
 CFA                SB5    B6+2                                                            CFA          391     A     
 CFA                SX6    B5+X2       EIB = O.GST + OLD(L.GST) + 2                        CFA          392     A     
 CFA                SX7    B6                                                              CFA          393     A     
 CFA                SA7    LB+1        LB(2) = OLD(L.GST)  */ BASE OF THIS GRAPH           CFA          394     A     
 CFA                SA6    EIB                                                             CFA          395     A     
 CFA                SX4    X5+B1                                                           CFA          396     A     
 CFA                IX7    X6+X4       ETB = EIB + 1 + N.BLK                               CFA          397     A     
 CFA                SA7    A6+B1                                                           CFA          398     A     
 CFA                                                                                       CFA          399     A     
 CFA      *         SCAN *CFT* AND SET SUCCESSOR INDEX INFO IN *GST*                       CFA          400     A     
 CFA      *         NOTE THAT EVERY BLOCK, EXCEPT THE EXIT BLOCK HAS A SUCCESSOR,          CFA          401     A     
 CFA      *         EXCEPT LOOPS THAT HAVE NO EXITS.                                       CFA          402     A     
 CFA                                                                                       CFA          403     A     
 CFA                SA1    O.CFT                                                           CFA          404     A     
 CFA                SB2    X6          E0 = EIB                                            CFA          405     A     
 CFA                SB4    X7          EF = ETB                                            CFA          406     A     
 CFA                SB7    X1          CF = [O.CFT]                                        CFA          407     A     
 CFA                SX6    2000B                                                           CFA          408     A     
 CFA                SA5    X1          CI = [O.CFT]                                        CFA          409     A     
 CFA                LX6    EI.NSP                                                          CFA          410     A     
 CFA                MX4    1+CF.TOL                                                        CFA          411     A     
 CFA                LX4    CF.TOL                                                          CFA          412     A     
 CFA                MX1    -CF.FROML                                                       CFA          413     A     
 CFA                SB3    B4-B1                                                           CFA          414     A     
 CFA                                                                                       CFA          415     A     
 CFA       FGS0     SA6    B3          FOR I = ETB-1 TO EIB;  NS[I] = 0                    CFA          416     A     
 CFA                SB3    B3-B1                                                           CFA          417     A     
 CFA                GE     B3,B2,FGS0                                                      CFA          418     A     
 CFA                BX7    X4*X5                                                           CFA          419     A     
 CFA                LX1    CF.FROMP                                                        CFA          420     A     
 CFA                MX0    -CF.JPP                                                         CFA          421     A     
 CFA                SA7    B4          ET = ETB;  [ET] = JPTO[CI]                          CFA          422     A     
 CFA                SX2    2000B                                                           CFA          423     A     
 CFA                LX2    EI.NPP                                                          CFA          424     A     
 CFA                                                                                       CFA          425     A     
 CFA       FGS1     BX3    X5          CL = [CI]                                           CFA          426     A     
 CFA                SA5    A5+B1       CI = CI + 1                                         CFA          427     A     
 CFA                BX7    X3-X5                                                           CFA          428     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3626    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                BX6    -X0*X7                                                          CFA          429     A     
 CFA                ZR     X6,FGS1     IF [CI] = CL                                        CFA          430          I
          -FCC0448
 CFA                                                                                       CFA          431          I
          -FCC0448
 CFA                BX7    X4*X5                                                           CFA          432          I
          -FCC0448
 CFA                NZ     X6,FGS1A    IF FROMTO[CI] " FROMTO[CL]                          FCC0448      189     A     
 CFA                                                                                       FCC0448      190     A     
 CFA                SA3    A7                                                              FCC0448      191     A     
 CFA                BX6    X0*X5                                                           FCC0448      192     A     
 CFA                BX7    X6+X3       [ET] = [ET] ! JP[CI]  */ OR *JP* BIT                FCC0448      193     A     
 CFA                SA7    A7                                                              FCC0448      194     A     
 CFA                EQ     FGS1                                                            FCC0448      195     A     
 CFA                                                                                       FCC0448      196     A     
 CFA       FGS1A    BX7    X4*X5                                                           FCC0448      197     A     
 CFA                SA7    A7+B1       ET = ET + 1;  [ET] = JPTO[CI]                       CFA          433     A     
 CFA                BX6    -X1*X6                                                          CFA          434     A     
 CFA                ZR     X6,FGS1     IF FROM[CI] = FROM[CL]                              CFA          435     A     
 CFA                                                                                       CFA          436     A     
 CFA                SB3    A7-B4       NS = ET - EF                                        CFA          437     A     
 CFA                SX6    B4-B2       SUI = EF - E0                                       CFA          438     A     
 CFA                PX7    B3,X6                                                           CFA          439     A     
 CFA                LX3    -CF.FROMP   J = FROM[CL]                                        CFA          440     A     
 CFA                SB4    A7          EF = ET                                             CFA          441     A     
 CFA                LX7    EI.SUIP                                                         CFA          442     A     
 CFA                BX6    X2+X7                                                           CFA          443     A     
 CFA                SA6    B2+X3       (NS,SUI)[EI+J] = (NS,SUI)                           CFA          444     A     
 CFA                NZ     X5,FGS1     IF [CI] " 0                                         CFA          445     A     
 CFA                                                                                       CFA          446     A     
 CFA      *         SET INTERVAL LIST POINTERS IN GRAPH HEADER WORD                        CFA          447     A     
 CFA                                                                                       CFA          448     A     
 CFA                SA4    O.GST                                                           CFA          449     A     
 CFA                SA3    N.BLK                                                           CFA          450     A     
 CFA                SB5    X4-1                                                            CFA          451     A     
 CFA                LX3    GB.NBP      NB[GB] = N.BLK                                      CFA          452     A     
 CFA                SX6    A7-B5                                                           CFA          453     A     
 CFA                SA6    L.GST       L.GST = ET + 1 - O.GST                              CFA          454     A     
 CFA                SA6    ILB         ILB = L.GST   */ INTERVAL LIST BASE                 CFA          455     A     
 CFA                SX6    A7-B2                                                           CFA          456     A     
 CFA                SX6    X6+B1       ILI[GB] = ET+1 - EIB  */ INTERVAL LIST INDEX        CFA          457     A     
 CFA                LX6    GB.ILIP                                                         CFA          458     A     
 CFA                IX7    X3+X6                                                           CFA          459     A     
 CFA                SA7    B2-B1       GB= EIB - 1                                         CFA          460     A     
 CFA                                                                                       CFA          461     A     
 CFA      *         SWAP FROM, TO FIELDS IN *CFT* AND SORT TABLE                           CFA          462     A     
 CFA                                                                                       CFA          463     A     
 CFA                MX0    60-CF.JPP                                                       CFA          464     A     
 CFA                SA5    B7          CI = CF                                             CFA          465     A     
 CFA                SB5    CF.FROMP                                                        CFA          466     A     
 CFA       FGS2     BX6    -X0*X5      SWAP( FROM[CI] , TO[CI] )                           CFA          467     A     
 CFA                SA5    A5+B1       CI = CI + 1                                         CFA          468     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3627    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                LX7    B5,X6                                                           CFA          469     A     
 CFA                SA7    A5-B1                                                           CFA          470     A     
 CFA                NZ     X5,FGS2     IF [CI] " 0                                         CFA          471     A     
 CFA                                                                                       CFA          472     A     
 CFA                SX1    A5-B7       L.CFT = CI - CF  */ FOR SORT                        CFA          473     A     
 CFA                CALL   SHL         SORT( CFT , [FROM,TO] )                             CFA          474     A     
 CFA                                                                                       CFA          475     A     
 CFA      *         ADD THE PREDECESSOR INFORMATION TO THE EDGE TABLES                     CFA          476     A     
 CFA                                                                                       CFA          477     A     
 CFA                SA1    O.CFT                                                           CFA          478     A     
 CFA                SA3    EIB                                                             CFA          479     A     
 CFA                SA2    A3+B1                                                           CFA          480     A     
 CFA                MX0    -CF.TOL                                                         CFA          481     A     
 CFA                SA5    X1          CI = [O.CFT]                                        CFA          482     A     
 CFA                SA4    X2          ET = [ETB]                                          CFA          483     A     
 CFA                SB2    X3          E0 = EIB                                            CFA          484     A     
 CFA                SB4    A4          EF = ET                                             CFA          485     A     
 CFA                BX2    -X0*X5                                                          CFA          486     A     
 CFA                LX2    ET.PREDP                                                        CFA          487     A     
 CFA                MX1    -CF.FROML                                                       CFA          488     A     
 CFA                BX6    X2+X4       PRED[ET] = TO[CI]                                   CFA          489     A     
 CFA                LX1    CF.FROMP                                                        CFA          490     A     
 CFA                SA6    A4                                                              CFA          491     A     
 CFA                                                                                       CFA          492     A     
 CFA       FGS3     BX3    X5          CL = [CI]                                           CFA          493     A     
 CFA                SA5    A5+B1       CI = CI + 1                                         CFA          494     A     
 CFA                BX7    X3-X5                                                           CFA          495     A     
 CFA                ZR     X7,FGS3     IF [CI] = CL                                        CFA          496     A     
 CFA                SA4    A4+B1       ET = ET + 1                                         CFA          497     A     
 CFA                BX2    -X0*X5                                                          CFA          498     A     
 CFA                LX2    ET.PREDP                                                        CFA          499     A     
 CFA                IX6    X2+X4                                                           CFA          500     A     
 CFA                SA6    A4          PRED[ET] = TO[CI]                                   CFA          501     A     
 CFA                BX2    -X1*X7                                                          CFA          502     A     
 CFA                ZR     X2,FGS3     IF FROM[CI] = FROM[CL]                              CFA          503     A     
 CFA                                                                                       CFA          504     A     
 CFA                LX3    -CF.FROMP                                                       CFA          505     A     
 CFA                SB5    A4-B4       NP = ET - EF                                        CFA          506     A     
 CFA                SX6    B4-B2       PRI = EF - E0                                       CFA          507     A     
 CFA                SA2    B2+X3       EI = EIB + FROM[CL]                                 CFA          508     A     
 CFA                PX6    B5,X6                                                           CFA          509     A     
 CFA                LX6    EI.PRIP                                                         CFA          510     A     
 CFA                SB4    A4          EF = ET                                             CFA          511     A     
 CFA                BX7    X2+X6                                                           CFA          512     A     
 CFA                SA7    A2          NP[EI] = NP;  PRI[EI] = PRI                         CFA          513     A     
 CFA                NZ     X5,FGS3     IF [CI] " 0                                         CFA          514     A     
 CFA                                                                                       CFA          515     A     
 CFA      *         ADJUST GRAPH TABLES TO REMOVE DUMMY EXIT EDGE INFO                     CFA          516     A     
 CFA                                                                                       CFA          517     A     
 CFA                SA2    B2+B1       EI1 = EIT(1)                                        CFA          518     A     
 CFA                SA1    B2          EI0 = EIT(0)                                        CFA          519     A     
 CFA                SX7    B1                                                              CFA          520     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3628    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                LX7    EI.NSP                                                          CFA          521     A     
 CFA                IX2    X2-X7       NS[EI1] = NS[EI1] - 1                               CFA          522     A     
 CFA                LX7    EI.SUIP-EI.NSP                                                  CFA          523     A     
 CFA                IX6    X2+X7       SUI[EI1] = SUI[EI1] + 1                             CFA          524     A     
 CFA                LX7    EI.NPP-EI.SUIP                                                  CFA          525     A     
 CFA                SA6    A2                                                              CFA          526     A     
 CFA                IX1    X1-X7       NP[EI0] = NP[EI0] - 1                               CFA          527     A     
 CFA                LX7    EI.PRIP-EI.NPP                                                  CFA          528     A     
 CFA                IX6    X1+X7       PRI[EI0] = PRI[EI0] + 1                             CFA          529     A     
 CFA                SA6    A1                                                              CFA          530     A     
 CFA                                                                                       CFA          531     A     
 CFA                SA1    O.GST                                                           CFA          532     A     
 CFA                SX2    B2                                                              CFA          533     A     
 CFA                IX6    X2-X1       EII = EIB - O.GST  */ MAKE RELATIVE                 CFA          534     A     
 CFA                SA6    EII                                                             CFA          535     A     
 CFA                                                                                       CFA          536     A     
 CFA                TRACE  FGS.X,GST                                                       CFA          537     A     
 CFA                EQ     FGS                                                             CFA          538     A     
 CFA       FIS      TITLE  FIS - FORM INTERVAL STRUCTURE                                   CFA          539     A     
 CFA      **        FIS - FORM INTERVAL STRUCTURE OF A PROGRAM FLOW GRAPH                  CFA          540     A     
 CFA      *                                                                                CFA          541     A     
 CFA      *         THE ALGORITHM FOR INTERVAL FORMATION USED HERE IS A VARIANT OF         CFA          542     A     
 CFA      *         THE ONE DESCRIBED IN AHO-ULLMAN, VOLUME II, PAGES 937 - 941 .          CFA          543     A     
 CFA      *         THE BACK DOMINATOR CALCULATION IS DERIVED IN THE                       CFA          544     A     
 CFA      *         ARTICLE BY FRAN ALLEN IN THE JULY 1970 SIGPLAN.                        CFA          545     A     
 CFA                                                                                       CFA          546     A     
 CFA      *         B-REGISTER ASSIGNMENT FOR INTERVAL FORMATION/ BACK DOMINATOR           CFA          547     A     
 CFA      *         CALCULATION LOOPS                                                      CFA          548     A     
 CFA                                                                                       CFA          549     A     
 CFA      *         B2, B3 - SCRATCH, LOOP COUNTS                                          CFA          550     A     
 CFA       IB       MICRO  1,,/B4/     IBA - INTERVAL BASE ADDRESS                         CFA          551     A     
 CFA       GS       MICRO  1,,/B5/     O.GST                                               CFA          552     A     
 CFA       PC       MICRO  1,,/B6/     PC - TEMP SCRATCH TABLE                             CFA          553     A     
 CFA       EI       MICRO  1,,/B7/     EIB - FWA OF EDGE INDEX TABLE                       CFA          554     A     
 CFA                                                                                       CFA          555     A     
 CFA      *         FOR BACK DOMINATOR CALC B4, B7 AS ABOVE AND B5, B6  ARE BV , T         CFA          556     A     
 CFA       BV       MICRO  1,,/B5/     BV - O.RND , BIT VECTOR TABLE                       CFA          557     A     
 CFA       T        MICRO  1,,/B6/     T - TEMP SCRATCH TABLE                              CFA          558     A     
 CFA                                                                                       CFA          559     A     
 CFA       FIS      ROUTINE                                                                CFA          560     A     
 CFA                SA5    N.BLK                                                           CFA          561     A     
 CFA                SX0    X5+2                                                            CFA          562     A     
 CFA                BX1    X0                                                              CFA          563     A     
 CFA                LX1    2                                                               CFA          564     A     
 CFA                ALLOC  GST,X1      ALLOC( GST , 4*(N.BLK+2) )                          CFA          565     A     
 CFA                SA4    EII                                                             CFA          566     A     
 CFA                SB2    X5          N = N.BLK                                           CFA          567     A     
 CFA                S"GS"  X2                                                              CFA          568     A     
 CFA                S"EI"  "GS"+X4     EIB = O.GST + EII                                   CFA          569     A     
 CFA                IX3    X2+X3                                                           CFA          570     A     
 CFA                IX6    X3-X0       HTL = O.GST + L.GST - ( N.BLK + 2 )                 CFA          571     A     
 CFA                S"PC"  X6+B1       O.PCT = HTL + 1                                     CFA          572     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3629    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                SA6    HTL                                                             CFA          573     A     
 CFA                                                                                       CFA          574     A     
 CFA      *         SETUP HEADER NODE LIST AND PRED COUNT TABLE                            CFA          575     A     
 CFA                                                                                       CFA          576     A     
 CFA                SX7    B1                                                              CFA          577     A     
 CFA                SA7    X6          HI = HTL;  [HI] = 1                                 CFA          578     A     
 CFA                SA0    A7-B1       HI = HI - 1                                         CFA          579     A     
 CFA                MX7    0                                                               CFA          580          I
          -FCC0392
 CFA                SA7    LINT        LINT = 0      */ LAST INTERVAL                      CFA          581          I
          -FCC0392
 CFA                                                                                       CFA          582     A     
 CFA                SA5    "EI"+B1     EI = EIB + 1                                        CFA          583     A     
 CFA                SA4    FISB                                                            CFA          584     A     
 CFA                BX6    X4                                                              CFA          585     A     
 CFA                SA6    "PC"        PI = O.PCT;  INI[PI] = 1 */ EXIT NODE *INI*         CFA          586     A     
 CFA                SX0    B1                                                              FCC1191        8     A     
 CFA                LX0    I.1PP                                                           FCC1191        9     A     
 CFA                                                                                       CFA          587     A     
 CFA       FIS1     LX5    -EI.PRIP                                                        CFA          588     A     
 CFA                UX4    B3,X5                                                           CFA          589     A     
 CFA                SX6    B3                                                              CFA          590     A     
 CFA                LX6    I.PCP                                                           CFA          591     A     
 CFA                SA6    A6+B1       PI = PI + 1;  PC[PI] = NP[EI]                       CFA          592          I
          -FCC1191
 CFA                NE     B3,B1,FIS1A IF NP[EI] " 1                                       FCC1191       10     A     
 CFA                BX6    X0+X6       1P[P2+1] = 1                                        FCC1191       11     A     
 CFA       FIS1A    SA6    A6+B1       PI = PI + 1]  PC[PI] = NP[EI]                       FCC1191       12     A     
 CFA                SB2    B2-B1       N = N - 1                                           CFA          593     A     
 CFA                SA5    A5+B1       EI = EI + 1                                         CFA          594     A     
 CFA                NZ     B2,FIS1     IF N " 0                                            CFA          595     A     
 CFA       FIS      SPACE  2,8                                                             CFA          596     A     
 CFA      *         INTERVAL FORMATION LOOP                                                CFA          597     A     
 CFA      *         SELECT NEXT HEADER NODE AS MIN OF NODES IN HEADER LIST NOT IN          CFA          598     A     
 CFA      *         AN INTERVAL, TO AVOID BLOCK NUMBER REVERSALS AND EXCESSIVE             CFA          599     A     
 CFA      *         RANDOM READS LATER ON IN *GPO*.                                        CFA          600     A     
 CFA                                                                                       CFA          601     A     
 CFA                SA1    ILB                                                             CFA          602     A     
 CFA                S"IB"  "GS"+X1     IBA = O.GST + ILB  */ INTERVAL BASE ADDRESS         CFA          603     A     
 CFA                TRACE  FIS1,GST                                                        CFA          604     A     
 CFA                                                                                       CFA          605     A     
 CFA       FIS2     SA3    HTL                                                             CFA          606     A     
 CFA                MX7    0                                                               CFA          607     A     
 CFA                SA7    A0          [HI] = 0      */ SEARCH TERMINATOR                  CFA          608     A     
 CFA                SB3    377777B     MHN = *INFINITY*  */ MIN *HN*                       CFA          609     A     
 CFA                MX0    0           HNA = 0       */ HEADER NODE ADDRESS                CFA          610     A     
 CFA                SA5    X3+B1       J = HTL + 1                                         CFA          611     A     
 CFA                                                                                       CFA          612     A     
 CFA       FIS3     SA5    A5-B1       J = J - 1;  HN = [J]                                CFA          613     A     
 CFA                SB2    X5                                                              CFA          614     A     
 CFA                ZR     X5,FIS4     IF HN = 0                                           CFA          615     A     
 CFA                GE     B2,B3,FIS3  IF HN > MHN                                         CFA          616     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3630    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                SA4    "PC"+X5                                                         CFA          617     A     
 CFA                LX4    59-I.INIP                                                       CFA          618     A     
 CFA                MI     X4,FIS3     IF INI[PCT(HN)]                                     CFA          619     A     
 CFA                SX0    A5          HNA = J                                             CFA          620     A     
 CFA                SB3    B2          MHN = HN                                            CFA          621     A     
 CFA                EQ     FIS3                                                            CFA          622     A     
 CFA                                                                                       CFA          623     A     
 CFA       FIS4     ZR     X0,FIS15    IF HNA = 0    */ NOTHING FOUND                      CFA          624     A     
 CFA                SA5    X0          HN = [HLA]                                          CFA          625     A     
 CFA                SA1    A0+B1                                                           CFA          626     A     
 CFA                BX6    X1                                                              CFA          627     A     
 CFA                SA6    A5          SWAP( [HI+1] , [HLA] )                              CFA          628     A     
 CFA                BX7    X5                                                              CFA          629     A     
 CFA                SA7    A1                                                              CFA          630     A     
 CFA                SA0    A0+B1       HI = HI + 1                                         CFA          631     A     
 CFA                SA4    "PC"+X5     PCW = PCT(HN)                                       CFA          632     A     
 CFA                                                                                       CFA          633     A     
 CFA      *         NOW REMOVE ANY ENTRIES THAT ARE *INI*                                  CFA          634     A     
 CFA                                                                                       CFA          635     A     
 CFA       FIS4A    SA2    X3          J = [HTL]                                           CFA          636     A     
 CFA                SA1    "PC"+X2                                                         CFA          637     A     
 CFA                SX3    X3-1        HTL = HTL - 1                                       CFA          638     A     
 CFA                LX1    59-I.INIP                                                       CFA          639     A     
 CFA                MI     X1,FIS4A    IF INI[PCT(J)]                                      CFA          640     A     
 CFA                SX7    X3+B1                                                           CFA          641     A     
 CFA                SA7    A3          HTL = HTL + 1                                       CFA          642     A     
 CFA                                                                                       FCC0408       93     A     
 CFA                MX6    0                                                               FCC0408       94     A     
 CFA                SA6    FTH         FTH = 0                                             FCC0408       95     A     
 CFA       FIS      SPACE  3,14                                                            CFA          643     A     
 CFA      *         PLACE HEADER NODE IN INTERVAL                                          CFA          644     A     
 CFA                                                                                       CFA          645     A     
 CFA                MX1    -ET.JPP                                                         CFA          646     A     
 CFA                BX6    X1*X5                                                           CFA          647     A     
 CFA                SA6    "IB"        [IBA] = JP[HN]  */ SAVE *JP* INDICATOR              CFA          648     A     
 CFA                SX5    X5                                                              CFA          649     A     
 CFA                LX4    -I.PCP                                                          CFA          650     A     
 CFA                SX6    X4                                                              CFA          651     A     
 CFA                SA2    FISA                                                            CFA          652     A     
 CFA                BX7    X2+X5                                                           CFA          653     A     
 CFA                SA7    "IB"+B1     II = IBA + 1;  [II] = INTM(AP,HN,0,0,HN)            CFA          654     A     
 CFA                SA6    NPH         NPH = PC[PCW] */ N.PRED TO HN ON ENTRY              CFA          655     A     
 CFA                                                                                       CFA          656     A     
 CFA                LX4    I.PCP                                                           CFA          657     A     
 CFA                SX0    B1                                                              CFA          658     A     
 CFA                LX0    I.PCP                                                           CFA          659     A     
 CFA                LX5    I.HNP                                                           CFA          660     A     
 CFA                MX3    1                                                               CFA          661     A     
 CFA                LX3    1+I.INIP                                                        CFA          662     A     
 CFA                BX1    X3+X5                                                           CFA          663     A     
 CFA                LX3    I.INHP-I.INIP                                                   CFA          664     A     
 CFA                BX2    X3+X5                                                           CFA          665     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3631    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                SX7    A7                                                              CFA          666     A     
 CFA                LX7    I.IAP                                                           CFA          667     A     
 CFA                LX6    I.PCP                                                           CFA          668     A     
 CFA                IX3    X6+X7                                                           CFA          669     A     
 CFA                BX6    X3+X1       PCT(HN) = ITW(INI,0,HN,II,NPH)                      CFA          670     A     
 CFA                SA6    A4                                                              CFA          671     A     
 CFA                                                                                       CFA          672     A     
 CFA      *         SCAN THE ELEMENTS IN THE INTERVAL AND DECREMENT THE PRED COUNT         CFA          673     A     
 CFA      *         OF THEIR SUCCESSORS, AND ADD NODES TO INTERVAL IF ALL PRED             CFA          674     A     
 CFA      *         ARE IN IT, AND NODE WAS FIRST REACHED IN THIS INTERVAL.                CFA          675     A     
 CFA      *         (A5) = ICN, FETCH ADDR  , (A7) = II, STORE ADDR                        CFA          676     A     
 CFA      *         (X0) = 1, (X1) = *INI*+BN[HN], (X2) = *INH*+BN[HN]                     CFA          677     A     
 CFA                                                                                       CFA          678     A     
 CFA                SA5    A7          ICN = II      */ INDEX TO CURRENT NODE              CFA          679     A     
 CFA                BX7    -X5                                                             CFA          680     A     
 CFA                SB2    X7          HN = BN[II]                                         CFA          681     A     
 CFA                                                                                       CFA          682     A     
 CFA       FIS5     LX5    -IM.BNP                                                         CFA          683     A     
 CFA                SA4    "EI"+X5     EI = EIB + BN[ICN]                                  CFA          684     A     
 CFA                LX4    -EI.SUIP                                                        CFA          685     A     
 CFA                UX7    B3,X4       N = NS[EI]                                          CFA          686     A     
 CFA                SA4    "EI"+X4     SI = EIB + SUI[EI]                                  CFA          687     A     
 CFA                LE     B3,FIS10A   IF N @ 0                                            CFA          688     A     
 CFA                                                                                       CFA          689     A     
 CFA       FIS6     LX4    -ET.SUCCP   I = SUCC[SI]                                        CFA          690     A     
 CFA                SA3    "PC"+X4     PW = PCT(I)                                         CFA          691     A     
 CFA                IX6    X3-X0       PC[PW] = PC[PW] - 1                                 CFA          692     A     
 CFA                LX3    59-I.INIP                                                       CFA          693     A     
 CFA                LX7    B1,X3                                                           CFA          694     A     
 CFA                SA6    A3                                                              CFA          695     A     
 CFA                MI     X3,FIS9     IF INI[PW]                                          CFA          696     A     
 CFA                MI     X7,FIS7     IF INH[PW]                                          CFA          697     A     
 CFA                                                                                       CFA          698     A     
 CFA      *         CHECK ADD TO HEADER LIST                                               CFA          699     A     
 CFA                                                                                       CFA          700     A     
 CFA                SX7    X6                                                              CFA          701     A     
 CFA                ZR     X7,FIS8     IF PC[PW] = 0                                       CFA          702     A     
 CFA                BX6    X2+X6       INH[PW] = 1;  HN[PW] = HN                           CFA          703     A     
 CFA                SA6    A6                                                              CFA          704     A     
 CFA                SX6    X4                                                              CFA          705     A     
 CFA                LX4    ET.SUCCP+59-ET.JPP                                              CFA          706     A     
 CFA                MX7    1                                                               CFA          707     A     
 CFA                BX4    X7*X4                                                           CFA          708     A     
 CFA                BX6    X4+X6       [HI] = JP[SI] ! I                                   CFA          709     A     
 CFA                SA6    A0                                                              CFA          710     A     
 CFA                SA0    A0-B1       HI = HI - 1                                         CFA          711     A     
 CFA                EQ     FIS10                                                           CFA          712     A     
 CFA                                                                                       CFA          713     A     
 CFA      *         IN HEADER LIST, CHECK ADD TO INTERVAL                                  CFA          714     A     
 CFA                                                                                       CFA          715     A     
 CFA       FIS7     SX7    X6                                                              CFA          716     A     
 CFA                BX3    X6-X2                                                           CFA          717     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3632    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                NZ     X7,FIS10    IF PC[PW] " 0                                       CFA          718     A     
 CFA                LX3    -I.HNP                                                          CFA          719     A     
 CFA                SX7    X3                                                              CFA          720     A     
 CFA                NZ     X7,FIS10    IF HN[PW] " HN */ FIRST REACHED BY ANOTHER          CFA          721     A     
 CFA                                                                                       CFA          722     A     
 CFA      *         ADD NODE TO THIS INTERVAL                                              CFA          723     A     
 CFA                                                                                       CFA          724     A     
 CFA       FIS8     SX7    X4                                                              CFA          725     A     
 CFA                SA7    A7+B1       II = II + 1;  [II] = I                              CFA          726     A     
 CFA                SX3    A7                                                              CFA          727     A     
 CFA                LX3    I.IAP                                                           CFA          728     A     
 CFA                SX7    X6                        */ PRESERVE PRED COUNT                FCC1191       13     A     
 CFA                BX3    X3+X7                                                           FCC1191       14     A     
 CFA                BX6    X3+X1       INI[PW] = 1;  IA[PW] = II                           CFA          729     A     
 CFA                SA6    A6                                                              CFA          730          I
          -FCC1191
 CFA                SA6    A3                                                              FCC1191       15     A     
 CFA                                                                                       FCC1191       16     A     
 CFA      *         CHECK IMMEDIATE SUCC AND ADD IT TO THE INTERVAL IF IT                  FCC1191       17     A     
 CFA      *         IS THE ONLY EDGE BETWEEN THE ADDED NODE AND THE SUCCESSOR.             FCC1191       18     A     
 CFA                                                                                       FCC1191       19     A     
 CFA                SA3    "EI"+X4     EI = EIB + I                                        FCC1191       20     A     
 CFA                LX3    -EI.SUIP                                                        FCC1191       21     A     
 CFA                UX7    B1,X3                                                           FCC1191       22     A     
 CFA                SX6    B1-1                                                            FCC1191       23     A     
 CFA                SB1    1                                                               FCC1191       24     A     
 CFA                NZ     X6,FIS10    IF NS[EI] > 1                                       FCC1191       25     A     
 CFA                SA3    "EI"+X3     SIS = EIB + SUI[EI]                                 FCC1191       26     A     
 CFA                LX3    -ET.SUCCP                                                       FCC1191       27     A     
 CFA                SX4    X3          I = SUCC[SIS]                                       FCC1191       28     A     
 CFA                SA3    "PC"+X4     PW = PCT(I)                                         FCC1191       29     A     
 CFA                LX3    59-I.1PP                                                        FCC1191       30     A     
 CFA                SX6    B1          PC[PW] = 1                                          FCC1191       31     A     
 CFA                MI     X3,FIS8     IF 1P[PW]     */ ONLY 1 PRED                        FCC1191       32     A     
 CFA                EQ     FIS10                                                           CFA          731     A     
 CFA                                                                                       CFA          732     A     
 CFA       FIS9     SX3    B2+X4                                                           CFA          733     A     
 CFA                NZ     X3,FIS10    IF SUCC[SI] " HN                                    CFA          734     A     
 CFA                                                                                       CFA          735     A     
 CFA                LX0    IM.LNP                                                          CFA          736     A     
 CFA                BX6    X0+X5       LN[ICN] = 1   */ INDICATE A LATCHING NODE           CFA          737     A     
 CFA                LX0    -IM.LNP                                                         CFA          738          I
          -FCC0408
 CFA                SA6    A5+                                                             CFA          739          I
          -FCC0408
 CFA                SA6    A5                                                              FCC0408       96     A     
 CFA                SX0    B1                                                              FCC0408       97     A     
 CFA                SX6    B1                                                              FCC0408       98     A     
 CFA                LX4    59-ET.JPP+ET.SUCCP                                              FCC0408       99     A     
 CFA                MI     X4,FIS10    IF JP[SI]     */ REACHED BY A JUMP                  FCC0408      100     A     
 CFA                                                                                       FCC0408      101     A     
 CFA                SA6    FTH         FTH = 1       */ INDICATE FALL THROUGH TO H         FCC0408      102     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3633    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                                                                                       CFA          740     A     
 CFA       FIS10    SB3    B3-B1       N = N - 1                                           CFA          741     A     
 CFA                SA4    A4+B1       SI = SI + 1                                         CFA          742     A     
 CFA                GT     B3,FIS6     IF N > 0                                            CFA          743     A     
 CFA                                                                                       CFA          744     A     
 CFA      *         CONTINUE THIS INTERVAL IF ELEMENTS WERE ADDED                          CFA          745     A     
 CFA                                                                                       CFA          746     A     
 CFA       FIS10A   SB3    A5                                                              CFA          747     A     
 CFA                SX6    A7-B3                                                           CFA          748     A     
 CFA                ZR     X6,FIS11    IF II = ICN   */ END OF INTERVAL                    CFA          749     A     
 CFA                                                                                       CFA          750     A     
 CFA                SA5    A5+B1       ICN = ICN + 1                                       CFA          751     A     
 CFA                EQ     FIS5                                                            CFA          752     A     
 CFA       FIS      SPACE  2,14                                                            CFA          753     A     
 CFA      *         TERMINATE THIS INTERVAL, SETUP HEADER WORD                             CFA          754     A     
 CFA                                                                                       CFA          755     A     
 CFA       FIS11    SA3    LINT                                                            CFA          756          I
          -FCC0392
 CFA                SX1    A5-"IB"     NODE[IBA] = ICN - IBA  */ N.NODES IN INTERVAL       CFA          757          I
          -FCC0392
 CFA                LX1    IP.NODEP                                                        CFA          758          I
          -FCC0392
 CFA                LX3    IP.LBP      LB[IBA] = LINT                                      CFA          759          I
          -FCC0392
 CFA                IX7    X1+X3                                                           CFA          760          I
          -FCC0392
 CFA                LX1    -IP.NODEP                                                       CFA          761          I
          -FCC0392
 CFA                SX6    X1+B1       LINT = NODE[IBA] + 1  */ NEW LINK BACKWARDS         CFA          762          I
          -FCC0392
 CFA                SA6    A3                                                              CFA          763          I
          -FCC0392
 CFA                                                                                       CFA          764          I
          -FCC0392
 CFA                SA1    "IB"+B1     IHA = IBA + 1                                       CFA          765          I
          -FCC0392
 CFA       FIS11    SA1    "IB"+B1     IHA = IBA + 1                                       FCC0392      144     A     
 CFA                SA2    NPH                                                             CFA          766     A     
 CFA                LX1    -IM.BNP     HN = BN[IHA]  */ HEADER NODE                        CFA          767     A     
 CFA                SA3    "PC"+X1                                                         CFA          768     A     
 CFA                LX3    -I.PCP                                                          CFA          769     A     
 CFA                SX5    X3                                                              CFA          770     A     
 CFA                IX0    X2-X5       N.LN = NPH - PC[ PCT(HN) ]                          CFA          771     A     
 CFA                SA4    "EI"+X1     EI = EIB + HN                                       CFA          772     A     
 CFA                LX1    IM.BNP                                                          CFA          773     A     
 CFA                LX4    -EI.PRIP                                                        CFA          774     A     
 CFA                SA2    "IB"        IB0 = IBA;  GLN = [IBA] */ GL NEEDED FLAG           CFA          775     A     
 CFA                UX4    B3,X4                                                           CFA          776     A     
 CFA                SX5    B3                                                              CFA          777     A     
 CFA                IX3    X5-X0       N.XP = NP[EI] - N.LN                                CFA          778     A     
 CFA                SB2    X3                                                              CFA          779     A     
 CFA                SX7    A5-"IB"     NODE[IBA] = ICN - IBA */ N.NODES IN INTERVA         FCC0392      145     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3634    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                SX6    X7+B1                                                           FCC0392      146     A     
 CFA                LX7    IP.NODEP                                                        FCC0392      147     A     
 CFA                S"IB"  "IB"+X6     IBA = IBA + NODE[IBA] + 1  */ ADVANCE *IBA*         CFA          780     A     
 CFA                EQ     B2,B1,FIS11A      IF N.XP = 1                                   CFA          781     A     
 CFA                MX2    1           GLN = 1                                             CFA          782     A     
 CFA       FIS11A   LX2    1+IP.GLP                                                        CFA          783     A     
 CFA                BX7    X2+X7       GL[IB0] = GLN                                       CFA          784     A     
 CFA                LX0    IP.NIPP                                                         FCC0392      148     A     
 CFA                BX7    X0+X7       NIP[IB0] = N.LN  */ N.INTERNAL PRED                 FCC0392      149     A     
 CFA                SA7    A2                                                              CFA          785     A     
 CFA                ZR     X0,FIS2     IF N.LN = 0   */ NO LATCHING NODES                  CFA          786     A     
 CFA                                                                                       FCC0408      103     A     
 CFA                SA3    L.LCT                                                           FCC1319      137     A     
 CFA                LX2    -IP.GLP                                                         FCC1319      138     A     
 CFA                IX6    X2+X3       L.LCT = L.LCT + GLN                                 FCC1319      139     A     
 CFA                SA6    A3                                                              FCC1319      140     A     
 CFA                SA3    FTH                                                             FCC0408      104     A     
 CFA                SA2    =XN.FTH                                                         FCC2113       72     A     
 CFA                IX6    X2+X3       N.FTH = N.FTH + FTH                                 FCC2113       73     A     
 CFA                SA6    A2                                                              FCC2113       74     A     
 CFA                LX3    IP.FTP                                                          FCC0408      105     A     
 CFA                BX7    X3+X7       FT[IB0] = FTH                                       FCC0408      106     A     
 CFA                SA2    CBN         PB[IB0] = CBN */ SET PROLOGUE BLOCK NUMBER          CFA          787     A     
 CFA                SX6    X2+B1       CBN = CBN + 1                                       CFA          788     A     
 CFA                LX2    IP.PBP                                                          CFA          789     A     
 CFA                SA6    A2                                                              CFA          790     A     
 CFA                BX7    X2+X7                                                           CFA          791     A     
 CFA                SA7    A7                                                              CFA          792     A     
 CFA                                                                                       CFA          793     A     
 CFA      *         MARK NODES THAT ARE IN *SCR* OF INTERVAL                               CFA          794     A     
 CFA      *         BY MARKING ALL PRED OF THE LN AS *SCR*                                 CFA          795     A     
 CFA                                                                                       CFA          796     A     
 CFA                SA5    A5+B1       II = ICN + 1                                        CFA          797     A     
 CFA                MX0    1                                                               CFA          798     A     
 CFA                LX0    1+IM.SCRP                                                       CFA          799     A     
 CFA                SB2    59-IM.LNP                                                       CFA          800     A     
 CFA                                                                                       CFA          801     A     
 CFA       FIS12    SA5    A5-B1       II = II - 1                                         CFA          802     A     
 CFA                LX6    B2,X5                                                           CFA          803     A     
 CFA                LX5    59-IM.SCRP                                                      CFA          804     A     
 CFA                BX3    X6+X5                                                           CFA          805     A     
 CFA                PL     X3,FIS12    IF ^(LN[II] ! SCR[II])                              CFA          806     A     
 CFA                LX5    1+IM.SCRP                                                       CFA          807     A     
 CFA                BX7    X0+X5       SCR[II] = 1   */ MARK NODE AS IN SCR                CFA          808     A     
 CFA                LX6    IM.LNP-IM.HNP                                                   CFA          809     A     
 CFA                SA7    A5                                                              CFA          810     A     
 CFA                MI     X6,FIS2     IF HN[II]     */ END OF INTERVAL                    CFA          811     A     
 CFA                                                                                       CFA          812     A     
 CFA                LX5    -IM.BNP                                                         CFA          813     A     
 CFA                SA4    "EI"+X5     EI = EIB + BN[II]                                   CFA          814     A     
 CFA                LX4    -EI.PRIP                                                        CFA          815     A     
 CFA                UX6    B3,X4       N = NP[EI]                                          CFA          816     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3635    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                SA3    "EI"+X4     PI = EIB + PRI[EI]                                  CFA          817     A     
 CFA                                                                                       CFA          818     A     
 CFA       FIS13    LX3    -ET.PREDP                                                       CFA          819     A     
 CFA                SA2    "PC"+X3                                                         CFA          820     A     
 CFA                LX2    -I.IAP      NA = IA[PCT(PRED[PI])]                              CFA          821     A     
 CFA                SA1    X2                                                              CFA          822     A     
 CFA                BX6    X0+X1       SCR[NA] = 1                                         CFA          823     A     
 CFA                SA6    A1                                                              CFA          824     A     
 CFA                SB3    B3-B1       N = N - 1                                           CFA          825     A     
 CFA                SA3    A3+B1       PI = PI + 1                                         CFA          826     A     
 CFA                NZ     B3,FIS13    IF N " 0                                            CFA          827     A     
 CFA                                                                                       CFA          828     A     
 CFA                EQ     FIS12                                                           CFA          829     A     
 CFA       FIS      SPACE  3                                                               CFA          830     A     
 CFA      *         TERMINATE INTERVAL LIST                                                CFA          831     A     
 CFA                                                                                       CFA          832     A     
 CFA       FIS15    MX6    0                                                               CFA          833     A     
 CFA                SA6    "IB"        [IBA] = 0     */ LIST TERMINATOR                    CFA          834     A     
 CFA                SA2    PBN                                                             CFA          835     A     
 CFA                SA3    CBN                                                             CFA          836     A     
 CFA                SX1    "IB"-"GS"                                                       CFA          837     A     
 CFA                SA4    "EI"-B1     GB = EIB - 1                                        CFA          838     A     
 CFA                IX6    X3-X2       SCR = CBN - PBN */ NUMBER OF LOOPS                  CFA          839     A     
 CFA                SX2    X6                                                              FCC0392      150     A     
 CFA                SX7    X1+B1       L.GST = IBA + 1 - O.GST                             CFA          840     A     
 CFA                SA7    L.GST                                                           CFA          841     A     
 CFA                SA6    SCR                                                             CFA          842     A     
 CFA                LX6    GB.NLPP                                                         CFA          843     A     
 CFA                BX6    X6+X4       NLP[GB] = SCR */ N. LOOPS                           CFA          844     A     
 CFA                SA6    A4                                                              CFA          845     A     
 CFA                SA1    =XM.LP                                                          FCC0392      151     A     
 CFA                IX3    X1-X2                                                           FCC0392      152     A     
 CFA      +         PL     X3,*+1      M.LP = MAX( M.LP , SCR )                            FCC0392      153     A     
 CFA                BX6    X2                                                              FCC0392      154     A     
 CFA                SA6    A1                                                              FCC0392      155     A     
 CFA                                                                                       CFA          846     A     
 CFA      *         SETUP FOWARD/BACKWARD LINKS IN GRAPH                                   CFA          847     A     
 CFA                                                                                       CFA          848     A     
 CFA                SA2    LB                                                              CFA          849     A     
 CFA                SA3    A2+B1                                                           CFA          850     A     
 CFA                IX6    X7-X3       LF = L.GST - LB(2)                                  CFA          851     A     
 CFA                LX2    GA.LBP                                                          CFA          852     A     
 CFA                LX6    GA.LFP                                                          CFA          853     A     
 CFA                BX7    X6+X2                                                           CFA          854     A     
 CFA                SA7    "EI"-2      [EIB-2] = GA(LB,LF)                                 CFA          855     A     
 CFA                SA4    M.GRL                                                           CFA          856     A     
 CFA      +         IX1    X6-X4                                                           CFA          857     A     
 CFA                MI     X1,*+1      M.GRL = MAX( M.GRL , LF )                           CFA          858     A     
 CFA                SA6    A4                                                              CFA          859     A     
 CFA       FIS      SPACE  3,14                                                            CFA          860     A     
 CFA      *         MARK THE EXIT NODES OF THE INTERVALS. THEY ARE THE PRED OF THE         CFA          861     A     
 CFA      *         INTERVAL HEADER NODES.                                                 CFA          862     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3636    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                                                                                       CFA          863     A     
 CFA                SA1    ILB                                                             CFA          864     A     
 CFA                SX0    B1                                                              CFA          865     A     
 CFA                LX0    IM.ENP                                                          CFA          866     A     
 CFA                SB2    -B0         HN = 0        */ START WITH PROG EXIT               CFA          867     A     
 CFA                SA1    "GS"+X1     NIP = O.GST + ILB  */ NEXT TO PROCESS               CFA          868     A     
 CFA                                                                                       CFA          869     A     
 CFA       FIS16    SA5    "EI"-B2     EI = EIB + HN                                       CFA          870     A     
 CFA                LX5    -EI.PRIP                                                        CFA          871     A     
 CFA                UX6    B3,X5       N = NP[EI]                                          CFA          872     A     
 CFA                SA4    "EI"+X5     PI = EIB + PRI[EI]                                  CFA          873     A     
 CFA                LE     B3,FIS19    IF N @ 0                                            CFA          874     A     
 CFA                                                                                       CFA          875     A     
 CFA       FIS17    LX4    -ET.PREDP                                                       CFA          876     A     
 CFA                SA3    "PC"+X4                                                         CFA          877     A     
 CFA                LX3    -I.IAP                                                          CFA          878     A     
 CFA                SA2    X3          NA = IA[PCT(PRED[PI])]                              CFA          879     A     
 CFA                LX3    I.IAP-I.HNP                                                     CFA          880     A     
 CFA                SX5    X3+B2                                                           CFA          881     A     
 CFA                ZR     X5,FIS18    IF HN[NA] = HN  */ PRED IN THIS INTERVAL            CFA          882     A     
 CFA                BX6    X0+X2                                                           CFA          883     A     
 CFA                SA6    A2          EN[NA] = 1                                          CFA          884     A     
 CFA                                                                                       CFA          885     A     
 CFA       FIS18    SB3    B3-B1       N = N - 1                                           CFA          886     A     
 CFA                SA4    A4+B1       PI = PI + 1                                         CFA          887     A     
 CFA                NZ     B3,FIS17    IF N " 0                                            CFA          888     A     
 CFA                                                                                       CFA          889     A     
 CFA       FIS19    LX1    -IP.NODEP                                                       CFA          890     A     
 CFA                SB3    X1                                                              CFA          891     A     
 CFA                ZR     B3,FIS20    IF NODE[NIP] = 0  */ END OF INTERVAL LIST           CFA          892     A     
 CFA                SA2    A1+B1                                                           CFA          893     A     
 CFA                LX2    -IM.BNP                                                         CFA          894     A     
 CFA                BX3    -X2                                                             CFA          895     A     
 CFA                SB2    X3          HN = BN[NIP+1]                                      CFA          896     A     
 CFA                SA1    A2+B3       NIP = NIP + NODE[NIP]                               CFA          897     A     
 CFA                EQ     FIS16                                                           CFA          898     A     
 CFA                                                                                       CFA          899     A     
 CFA                                                                                       CFA          900     A     
 CFA      *         SETUP THE *BI* FIELD IN THE INTERVAL MEMBERS                           CFA          901     A     
 CFA                                                                                       CFA          902     A     
 CFA       FIS20    SA1    L.OTI                                                           CFA          903     A     
 CFA                SA2    ILB                                                             CFA          904     A     
 CFA                ZR     X1,FIS23    IF L.OTI = 0  */ FIRST GRAPH                        CFA          905     A     
 CFA                                                                                       CFA          906     A     
 CFA                SA3    O.OTI                                                           CFA          907     A     
 CFA                SA5    "GS"+X2     IP = O.GST + ILB                                    CFA          908     A     
 CFA                MX6    0                                                               CFA          909     A     
 CFA                SB3    X3          T = O.OTI                                           CFA          910     A     
 CFA                SA6    A1          L.OTI = 0                                           CFA          911     A     
 CFA                                                                                       CFA          912     A     
 CFA       FIS21    LX5    -IP.NODEP                                                       CFA          913     A     
 CFA                SB2    X5+         N = NODE[IP]                                        CFA          914     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3637    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                SA5    A5+1        IP = IP + 1                                         CFA          915     A     
 CFA                                                                                       CFA          916     A     
 CFA       FIS22    LX5    -IM.BNP                                                         CFA          917     A     
 CFA                SA4    B3+X5                                                           CFA          918     A     
 CFA                LX5    IM.BNP                                                          CFA          919     A     
 CFA                LX4    IM.BIP+1                                                        CFA          920     A     
 CFA                BX6    X4+X5       BI[IP] = 2*T(BN[IP])                                CFA          921     A     
 CFA                SA6    A5                                                              CFA          922     A     
 CFA                SB2    B2-B1       N = N - 1                                           CFA          923     A     
 CFA                SA5    A5+B1       IP = IP + 1                                         CFA          924     A     
 CFA                NZ     B2,FIS22    IF N " 0                                            CFA          925     A     
 CFA                NZ     X5,FIS21    IF [IP] " 0                                         CFA          926     A     
 CFA                                                                                       CFA          927     A     
 CFA                EQ     FIS26                                                           CFA          928     A     
 CFA                                                                                       CFA          929     A     
 CFA      *         SET *BI* FIELD FOR *IM* IN FIRST GRAPH                                 CFA          930     A     
 CFA                                                                                       CFA          931     A     
 CFA       FIS23    SA5    "GS"+X2     IP = O.GST + ILB                                    CFA          932     A     
 CFA                SB2    IM.BIP+1                                                        CFA          933     A     
 CFA                                                                                       CFA          934     A     
 CFA       FIS24    LX5    -IP.NODEP                                                       CFA          935     A     
 CFA                SB3    X5+         N = NODE[IP]                                        CFA          936     A     
 CFA                SA5    A5+1        IP = IP + 1                                         CFA          937     A     
 CFA                                                                                       CFA          938     A     
 CFA       FIS25    LX5    -IM.BNP                                                         CFA          939     A     
 CFA                SX4    X5                                                              CFA          940     A     
 CFA                LX5    IM.BNP                                                          CFA          941     A     
 CFA                LX3    B2,X4                                                           CFA          942     A     
 CFA                BX6    X3+X5       BI[IP] = 2*BN[IP]                                   CFA          943     A     
 CFA                SA6    A5                                                              CFA          944     A     
 CFA                SB3    B3-B1       N = N - 1                                           CFA          945     A     
 CFA                SA5    A5+B1       IP = IP + 1                                         CFA          946     A     
 CFA                NZ     B3,FIS25    IF N " 0                                            CFA          947     A     
 CFA                NZ     X5,FIS24    IF [IP] " 0                                         CFA          948     A     
 CFA       FIS      SPACE  3,14                                                            CFA          949     A     
 CFA      *         RESCAN THE INTERVALS AND REORDER THEM SO AS TO GET RID OF ANY          CFA          950     A     
 CFA      *         REVERSALS WHICH ARE NOT CONSISTANT WITH PROGRAM ORDER.                 CFA          951     A     
 CFA                                                                                       CFA          952     A     
 CFA       FIS26    SA5    "GS"+X2     IP = O.GST + ILB                                    CFA          953     A     
 CFA                                                                                       CFA          954     A     
 CFA       FIS27    LX5    -IP.NODEP                                                       CFA          955     A     
 CFA                SB2    X5-2        N = NODE[IP] - 2                                    CFA          956     A     
 CFA                GT     B2,FIS28    IF N > 2                                            CFA          957     A     
 CFA                SB2    X5+B1                                                           CFA          958     A     
 CFA                SA5    A5+B2       IP = IP + N+1                                       CFA          959     A     
 CFA                NZ     X5,FIS27    IF [IP] " 0                                         CFA          960     A     
 CFA                EQ     CBD                                                             CFA          961     A     
 CFA                                                                                       CFA          962     A     
 CFA      *         SCAN INTERVAL AND CHECK FOR REVERSALS                                  CFA          963     A     
 CFA                                                                                       CFA          964     A     
 CFA       FIS28    SA0    A5          IPF = IP                                            CFA          965     A     
 CFA                SA5    A5+2        IP = IP + 2   */ FIRST AFTER HEADER                 CFA          966     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3638    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                SB6    B0          SWAP = 0                                            CFA          967     A     
 CFA                BX7    X5          LIW = [IP]                                          CFA          968     A     
 CFA                LX5    -IM.BNP                                                         CFA          969     A     
 CFA                SB5    X5                                                              CFA          970     A     
 CFA                                                                                       CFA          971     A     
 CFA       FIS29    SA5    A5+B1       IP = IP + 1                                         CFA          972     A     
 CFA                SB2    B2-B1       N = N - 1                                           CFA          973     A     
 CFA                LX5    -IM.BNP                                                         CFA          974     A     
 CFA                SB4    X5+                                                             CFA          975     A     
 CFA                LX5    IM.BNP                                                          CFA          976     A     
 CFA                GT     B4,B5,FIS31 IF BN[IP] > BN[LIW]  */ IN ORDER                    CFA          977     A     
 CFA                                                                                       CFA          978     A     
 CFA      *         SWAP NODES IF *LIW* IS NOT A PRED OF *IP*                              CFA          979     A     
 CFA                                                                                       CFA          980     A     
 CFA                SA4    "EI"+X7     EI = EIB + BN[LIW]                                  CFA          981     A     
 CFA                SB4    -B4                                                             CFA          982     A     
 CFA                LX4    -EI.SUIP                                                        CFA          983     A     
 CFA                SA3    "EI"+X4     SI = EIB + SUI[EI]                                  CFA          984     A     
 CFA                UX6    B3,X4       NS = NS[EI]                                         CFA          985     A     
 CFA                                                                                       CFA          986     A     
 CFA       FIS30    LX3    -ET.SUCCP                                                       CFA          987     A     
 CFA                SX6    B4+X3                                                           CFA          988     A     
 CFA                ZR     X6,FIS31    IF SUCC[SI] = BN[IP]                                CFA          989     A     
 CFA                SB3    B3-B1       NS = NS - 1                                         CFA          990     A     
 CFA                SA3    A3+B1       SI = SI + 1                                         CFA          991     A     
 CFA                NZ     B3,FIS30    IF NS " 0                                           CFA          992     A     
 CFA                                                                                       CFA          993     A     
 CFA                BX6    X5                                                              CFA          994     A     
 CFA                SA6    A5-B1       [IP-1] = [IP]                                       CFA          995     A     
 CFA                SA7    A5          [IP] = LIW                                          CFA          996     A     
 CFA                BX5    X7                                                              CFA          997     A     
 CFA                SB6    B1          SWAP = 1                                            CFA          998     A     
 CFA                                                                                       CFA          999     A     
 CFA       FIS31    BX7    X5          LIW = [IP]                                          CFA         1000     A     
 CFA                LX5    -IM.BNP                                                         CFA         1001     A     
 CFA                SB5    X5                                                              CFA         1002     A     
 CFA                NZ     B2,FIS29    IF N " 0                                            CFA         1003     A     
 CFA                ZR     B6,FIS32    IF SWAP = 0   */ NO INTERCHANGES                    CFA         1004     A     
 CFA                SA5    A0          IP = IPF                                            CFA         1005     A     
 CFA                LX5    -IP.NODEP                                                       CFA         1006     A     
 CFA                SB2    X5-2        N = NODE[IP] - 2                                    CFA         1007     A     
 CFA                EQ     FIS28                                                           CFA         1008     A     
 CFA                                                                                       CFA         1009     A     
 CFA       FIS32    SA5    A5+B1       IP = IP + 1                                         CFA         1010     A     
 CFA                NZ     X5,FIS27    IF [IP] " 0                                         CFA         1011     A     
 CFA       CBD      TITLE  CBD - COMPUTE BACK DOMINATORS                                   CFA         1012     A     
 CFA      **        CBD - COMPUTE BACK DOMINATORS                                          CFA         1013     A     
 CFA      *                                                                                CFA         1014     A     
 CFA      *         RESCAN THE INTERVAL LIST AND COMPUTE THE BACK DOMINATORS AND           CFA         1015     A     
 CFA      *         INTERVAL ARTICULATION POINTS. THE FORMULAS USED ARE -                  CFA         1016     A     
 CFA      *         BD(B) = & ( IP ! BD(IP) ) , IP  AN IMMEDIATE PRED OF B                 CFA         1017     A     
 CFA      *         AP(INT) = & ( B ! BD(B) ) , B AN EXIT NODE                             CFA         1018     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3639    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA      *         THE BIT VECTORS BVT(I) = I ! BD(I)                                     CFA         1019     A     
 CFA                                                                                       CFA         1020     A     
 CFA      *         SETUP BLOCK TO INTERVAL TRANSITION TABLE                               CFA         1021     A     
 CFA                                                                                       CFA         1022     A     
 CFA       CBD      MX6    0                                                               CFA         1023     A     
 CFA                TRACE  FIS.X,GST                                                       CFA         1024     A     
 CFA                SA6    L.CFT       L.CFT = 0                                           CFA         1025     A     
 CFA                SA2    N.BLK                                                           CFA         1026     A     
 CFA                ALLOC  CFT,X2+B1   ALLOC( CFT , N.BLK + 1 )                            CFA         1027     A     
 CFA                SA4    O.GST                                                           CFA         1028     A     
 CFA                SA5    ILB                                                             CFA         1029     A     
 CFA                S"T"   X2          T = O.CFT                                           CFA         1030     A     
 CFA                IX6    X4+X5                                                           CFA         1031     A     
 CFA                SA5    X6          II = O.GST + ILB                                    CFA         1032     A     
 CFA                SX0    B1                                                              CFA         1033     A     
 CFA                SB2    B0          MB = 0        */ MAX N.BLOCKS IN INTERVAL           CFA         1034     A     
 CFA                LX0    I.WIP                                                           CFA         1035     A     
 CFA                SX1    B1                                                              CFA         1036     A     
 CFA                LX1    I.NIP                                                           CFA         1037     A     
 CFA                SB5    48                                                              CFA         1038     A     
 CFA                                                                                       CFA         1039     A     
 CFA       CBD1     LX5    -IP.NODEP                                                       CFA         1040     A     
 CFA                SB3    X5          NN = NODE[II]                                       CFA         1041     A     
 CFA                SB4    B0          BITN = 0                                            CFA         1042     A     
 CFA                MX2    0           WI = NI = 0                                         CFA         1043     A     
 CFA                SA5    A5+B1       II = II + 1                                         CFA         1044     A     
 CFA                GE     B2,B3,CBD2  MB = MAX( MB , NN )                                 CFA         1045     A     
 CFA                SB2    B3+                                                             CFA         1046     A     
 CFA                                                                                       CFA         1047     A     
 CFA       CBD2     PX6    B4,X2                                                           CFA         1048     A     
 CFA                LX5    -IM.BNP                                                         CFA         1049     A     
 CFA                SA6    "T"+X5      T(BN[II]) = TTW(BITN,WI,NI)                         CFA         1050     A     
 CFA                SB4    B4+B1       BITN = BITN + 1                                     CFA         1051     A     
 CFA                IX2    X2+X1       NI = NI + 1                                         CFA         1052     A     
 CFA                LT     B4,B5,CBD3  IF BITN < 48                                        CFA         1053     A     
 CFA                IX2    X2+X0       WI = WI + 1                                         CFA         1054     A     
 CFA                SB4    B0          BITN = 0                                            CFA         1055     A     
 CFA       CBD3     SB3    B3-B1       NN = NN - 1                                         CFA         1056     A     
 CFA                SA5    A5+B1       II = II + 1                                         CFA         1057     A     
 CFA                NZ     B3,CBD2     IF NN " 0                                           CFA         1058     A     
 CFA                                                                                       CFA         1059     A     
 CFA                NZ     X5,CBD1     IF [II] " 0   */ NOT END OF INTERVALS               CFA         1060     A     
 CFA                                                                                       CFA         1061     A     
 CFA      *         ALLOCATE SPACE FOR A BIT VECTOR TABLE                                  CFA         1062     A     
 CFA                                                                                       CFA         1063     A     
 CFA                SX1    B2+47                                                           CFA         1064     A     
 CFA                SX2    B5                                                              CFA         1065     A     
 CFA                IX7    X1/X2,B6    VM = (MB+47) / 48                                   CFA         1066     A     
 CFA                SX2    B2+B1                                                           CFA         1067     A     
 CFA                IX1    X2*X7                                                           CFA         1068     A     
 CFA                ALLOC  RND,X1      ALLOC( RND , (MB+1)*VM )                            CFA         1069     A     
 CFA                                                                                       CFA         1070     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3640    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                SA1    O.GST                                                           CFA         1071     A     
 CFA                SA3    ILB                                                             CFA         1072     A     
 CFA                SA5    EII                                                             CFA         1073     A     
 CFA                SB3    X1                                                              CFA         1074     A     
 CFA                S"BV"  X2          BV = O.RND    */ BASE OF BIT VECTOR TABLE           CFA         1075     A     
 CFA                S"EI"  B3+X5       EIB = O.GST + EII                                   CFA         1076     A     
 CFA                SA2    O.CFT                                                           CFA         1077     A     
 CFA                SA4    B3+X3       IP = O.GST + ILB                                    CFA         1078     A     
 CFA                S"T"   X2          T = O.CFT                                           CFA         1079     A     
 CFA                                                                                       CFA         1080     A     
 CFA      *         PROCESS NEXT INTERVAL                                                  CFA         1081     A     
 CFA                                                                                       CFA         1082     A     
 CFA       CBD4     LX4    -IP.NODEP                                                       CFA         1083     A     
 CFA                S"IB"  A4+B1       IBA = IP + 1  */ INTERVAL BASE ADDR ( ( HNA )       CFA         1084     A     
 CFA                SB2    X4          NN = NODE[IP]                                       CFA         1085     A     
 CFA                SX6    "IB"+B2     IP = IBA + NN                                       CFA         1086     A     
 CFA                SA6    IP                                                              CFA         1087     A     
 CFA                NE     B2,B1,CBD6  IF NN " 1                                           CFA         1088     A     
 CFA                                                                                       CFA         1089     A     
 CFA       CBD5     SA3    IP                                                              CFA         1090     A     
 CFA                SA4    X3+                                                             CFA         1091     A     
 CFA                NZ     X4,CBD4     IF [IP] " 0   */ IF NOT END OF LIST                 CFA         1092     A     
 CFA                MX7    0                                                               CFA         1093     A     
 CFA                SA7    L.CFT       L.CFT = 0                                           CFA         1094     A     
 CFA                SA7    L.RND                                                           CFA         1095     A     
 CFA                TRACE  CBD.X,GST                                                       CFA         1096     A     
 CFA                EQ     FIS                                                             CFA         1097     A     
 CFA                                                                                       CFA         1098     A     
 CFA      *         PROCESS INTERVAL WITH @ 48 NODES                                       CFA         1099     A     
 CFA                                                                                       CFA         1100     A     
 CFA       CBD6     SB3    48                                                              CFA         1101     A     
 CFA                GT     B2,B3,CBD12 IF NN > 48                                          CFA         1102     A     
 CFA                                                                                       CFA         1103     A     
 CFA                SA0    B2-B1       NN = NN - 1                                         CFA         1104     A     
 CFA                SA5    "IB"+B1     II = IBA + 1  */ INDEX TO INTERVAL                  CFA         1105     A     
 CFA                SX0    B1                                                              CFA         1106     A     
 CFA                MX7    60          AN = -0                                             CFA         1107     A     
 CFA                SX6    B1                                                              CFA         1108     A     
 CFA                SA6    "BV"        BV(0) = 1     */ HEADER NODE                        CFA         1109     A     
 CFA                                                                                       CFA         1110     A     
 CFA      *         COMPUTE BACK DOMINATORS OF NODES                                       CFA         1111     A     
 CFA      *         BD = & BVT(IP)                                                         CFA         1112     A     
 CFA                                                                                       CFA         1113     A     
 CFA       CBD7     LX5    -IM.BNP                                                         CFA         1114     A     
 CFA                SA3    "EI"+X5     EI = EIB + BN[II]                                   CFA         1115     A     
 CFA                LX3    -EI.PRIP                                                        CFA         1116     A     
 CFA                UX6    B3,X3       N = NP[EI]                                          CFA         1117     A     
 CFA                SA4    "EI"+X3     PI = EIB + PRI[EI]                                  CFA         1118     A     
 CFA                SB2    A5-"IB"     I = II - IBA                                        CFA         1119     A     
 CFA                MX1    60          BD = -0                                             CFA         1120     A     
 CFA                                                                                       CFA         1121     A     
 CFA       CBD8     LX4    -ET.PREDP                                                       CFA         1122     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3641    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                SA3    "T"+X4                                                          CFA         1123     A     
 CFA                LX3    -I.NIP      J = NI[T(PRED[PI])]                                 CFA         1124     A     
 CFA                SA2    "BV"+X3                                                         CFA         1125     A     
 CFA                SB3    B3-B1       N = N - 1                                           CFA         1126     A     
 CFA                BX1    X1*X2       BD = BD & BVT(J)                                    CFA         1127     A     
 CFA                SA4    A4+B1       PI = PI + 1                                         CFA         1128     A     
 CFA                NZ     B3,CBD8     IF N " 0                                            CFA         1129     A     
 CFA                                                                                       CFA         1130     A     
 CFA                LX2    B2,X0                                                           CFA         1131     A     
 CFA                BX6    X1+X2       BVT(I) = BD ! SHIFT(1,I)                            CFA         1132     A     
 CFA                LX5    IM.BNP+59-IM.ENP                                                CFA         1133     A     
 CFA                SA6    "BV"+B2                                                         CFA         1134     A     
 CFA                PL     X5,CBD9     IF ^EN[II]                                          CFA         1135     A     
 CFA                BX7    X6*X7       AN = AN & BVT(I)                                    CFA         1136     A     
 CFA                                                                                       CFA         1137     A     
 CFA      *         CALCULATE IMMEDIATE BACK DOMINATOR ORDINAL                             CFA         1138     A     
 CFA                                                                                       CFA         1139     A     
 CFA       CBD9     PX1    X1                                                              CFA         1140     A     
 CFA                LX5    1+IM.ENP                                                        CFA         1141     A     
 CFA                SB3    47                                                              CFA         1142     A     
 CFA                NX2    B2,X1       FBD = 47-NORMC( PACK(BD) )                          CFA         1143     A     
 CFA                SX4    B3-B2                                                           CFA         1144     A     
 CFA                SA2    "IB"+X4                                                         CFA         1145     A     
 CFA                LX4    IM.IBDP                                                         CFA         1146     A     
 CFA                BX6    X4+X5       IBD[II] = FBD                                       CFA         1147     A     
 CFA                SA6    A5                                                              CFA         1148     A     
 CFA                LX0    IM.DOMP                                                         CFA         1149     A     
 CFA                BX6    X0+X2       DOM[IBA+FBD] = 1                                    CFA         1150     A     
 CFA                LX0    -IM.DOMP                                                        CFA         1151     A     
 CFA                SA6    A2                                                              CFA         1152     A     
 CFA                                                                                       CFA         1153     A     
 CFA                SB2    A0-B1       NN = NN - 1                                         CFA         1154     A     
 CFA                SA0    A0-B1                                                           CFA         1155     A     
 CFA                SA5    A5+B1       II = II + 1                                         CFA         1156     A     
 CFA                NZ     B2,CBD7     IF NN " 0                                           CFA         1157     A     
 CFA                                                                                       CFA         1158     A     
 CFA      *         PROPAGATE *AN* BIT VECTOR TO INTERVAL LIST                             CFA         1159     A     
 CFA                                                                                       CFA         1160     A     
 CFA                SA4    "IB"                                                            CFA         1161     A     
 CFA                LX4    59-IM.ENP                                                       CFA         1162     A     
 CFA                MI     X4,CBD5     IF EN[IBA]    */ HEADER IS AN EXIT NODE             CFA         1163     A     
 CFA                ZR     X7,CBD5     IF AN = 0                                           CFA         1164     A     
 CFA                                                                                       CFA         1165     A     
 CFA                SX1    B1                                                              CFA         1166     A     
 CFA                LX1    IM.APP                                                          CFA         1167     A     
 CFA                                                                                       CFA         1168     A     
 CFA       CBD11    PX5    X7                                                              CFA         1169     A     
 CFA                NX6    B2,X5                                                           CFA         1170     A     
 CFA                SB2    B3-B2       J = 47 - NORMC(AN)                                  CFA         1171     A     
 CFA                SA2    "IB"+B2                                                         CFA         1172     A     
 CFA                LX4    B2,X0                                                           CFA         1173     A     
 CFA                BX6    X1+X2       AP[IBA+J] = 1                                       CFA         1174     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3642    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                BX7    -X4*X7      AN = AN & ^SHIFT(1,J)                               CFA         1175     A     
 CFA                SA6    A2                                                              CFA         1176     A     
 CFA                NZ     X7,CBD11    IF AN " 0                                           CFA         1177     A     
 CFA                                                                                       CFA         1178     A     
 CFA                EQ     CBD5                                                            CFA         1179     A     
 CFA       CBD      SPACE  3,14                                                            CFA         1180     A     
 CFA      *         NODE[INTERVAL] > 48 , MULTI WORD BIT VECTOR CALCULATION                CFA         1181     A     
 CFA                                                                                       CFA         1182     A     
 CFA       VL       MICRO  1,,/X1/     VECTOR LENGTH                                       CFA         1183     A     
 CFA       BI       MICRO  1,,/"BV"/   BVT(I) DURING MULTI WORD CALC                       CFA         1184     A     
 CFA                                                                                       CFA         1185     A     
 CFA       CBD12    SX6    B2-B1       NN = NN - 1                                         CFA         1186     A     
 CFA                SA6    NN                                                              CFA         1187     A     
 CFA                SX2    B3                                                              CFA         1188     A     
 CFA                SX1    X6+B3                                                           CFA         1189     A     
 CFA                I"VL"  X1/X2,B3    VL = (NN+48)/48  */ VECTOR LENGTH                   CFA         1190     A     
 CFA                                                                                       CFA         1191     A     
 CFA      *         INITIALIZE BIT VECTORS FOR ARTICULATION POINTS AND HEADER NODE         CFA         1192     A     
 CFA                                                                                       CFA         1193     A     
 CFA                MX6    60                                                              CFA         1194     A     
 CFA                SA6    "BV"        BVT(0) = -0                                         CFA         1195     A     
 CFA                SX7    B1                                                              CFA         1196     A     
 CFA                SA7    "BV"+"VL"   BVT(VL) = 1                                         CFA         1197     A     
 CFA                MX7    0                                                               CFA         1198     A     
 CFA                SB2    X1          FOR I = 1 TO VL - 1,                                CFA         1199     A     
 CFA                                                                                       CFA         1200     A     
 CFA      +         SA6    A6+B1       BVT(I) = 0                                          CFA         1201     A     
 CFA                SB2    B2-1                                                            CFA         1202     A     
 CFA                SA7    A7+B1       BVT(I+VL) = 0                                       CFA         1203     A     
 CFA                GT     B2,B1,*-1   END                                                 CFA         1204     A     
 CFA                                                                                       CFA         1205     A     
 CFA                SA5    "IB"                                                            CFA         1206     A     
 CFA                SA0    "BV"                                                            CFA         1207     A     
 CFA                S"BI"  "BV"+"VL"   BI = O.BVT + VL */ INDEX TO BIT VECTOR              CFA         1208     A     
 CFA                LX5    -IM.BNP                                                         CFA         1209     A     
 CFA                SA4    "T"+X5                                                          CFA         1210     A     
 CFA                SX6    "BI"                                                            CFA         1211     A     
 CFA                LX6    I.BVIP                                                          CFA         1212     A     
 CFA                BX7    X4+X6       BVI[T(BN[IBA])] = BI                                CFA         1213     A     
 CFA                SA7    A4                                                              CFA         1214     A     
 CFA                S"BI"  "BI"+"VL"   BI = BI + VL                                        CFA         1215     A     
 CFA                SA5    A5+B1       II = IBA + 1  */ INTERVAL INDEX                     CFA         1216     A     
 CFA                                                                                       CFA         1217     A     
 CFA      *         CALCULATE BACK DOMINATOR OF THIS NODE                                  CFA         1218     A     
 CFA                                                                                       CFA         1219     A     
 CFA       CBD14    LX5    -IM.BNP                                                         CFA         1220     A     
 CFA                SA3    "EI"+X5     EI = EIB + BN[II]                                   CFA         1221     A     
 CFA                LX3    -EI.PRIP                                                        CFA         1222     A     
 CFA                UX6    B3,X3       N = NP[EI]                                          CFA         1223     A     
 CFA                SA4    "EI"+X3     PI = EIB + PRI[EI]                                  CFA         1224     A     
 CFA                LX4    -ET.PREDP                                                       CFA         1225     A     
 CFA                SA3    "T"+X4      TW = T(PRED[PI])                                    CFA         1226     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3643    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                SB2    "VL"        I = VL                                              CFA         1227     A     
 CFA                LX3    -I.BVIP                                                         CFA         1228     A     
 CFA                SA2    X3          BJ = BVT[TW]                                        CFA         1229     A     
 CFA                BX6    X2                                                              CFA         1230     A     
 CFA                SA6    "BI"        BK = BI;  [BK] = [BJ]                               CFA         1231     A     
 CFA       CBD15    SA2    A2+B1       BJ = BJ + 1                                         CFA         1232     A     
 CFA                SB2    B2-B1       I = I - 1                                           CFA         1233     A     
 CFA                BX6    X2                                                              CFA         1234     A     
 CFA                SA6    A6+B1       BK = BK + 1;  [BK] = [BJ]                           CFA         1235     A     
 CFA                GT     B2,B1,CBD15 IF I > 1                                            CFA         1236     A     
 CFA                EQ     B3,B1,CBD17 IF N = 1                                            CFA         1237     A     
 CFA                                                                                       CFA         1238     A     
 CFA       CBD16    SA4    A4+B1       PI = PI + 1                                         CFA         1239     A     
 CFA                LX4    -ET.PREDP                                                       CFA         1240     A     
 CFA                SA3    "T"+X4                                                          CFA         1241     A     
 CFA                LX3    -I.BVIP                                                         CFA         1242     A     
 CFA                SB2    "VL"                                                            CFA         1243     A     
 CFA                SA2    "BI"                                                            CFA         1244     A     
 CFA                RJ     ABV         BD(I) = BD(I) & BVT(PRED)                           CFA         1245     A     
 CFA                SB3    B3-B1       N = N - 1                                           CFA         1246     A     
 CFA                GT     B3,B1,CBD16 IF N > 1                                            CFA         1247     A     
 CFA                                                                                       CFA         1248     A     
 CFA      *         CALCULATE IMMEDIATE BACK DOMINATOR                                     CFA         1249     A     
 CFA                                                                                       CFA         1250     A     
 CFA       CBD17    SA4    "BI"+"VL"   BJ = BI + VL                                        CFA         1251     A     
 CFA                SB3    47                                                              CFA         1252     A     
 CFA                                                                                       CFA         1253     A     
 CFA       CBD18    SA4    A4-B1       BJ = BJ - 1                                         CFA         1254     A     
 CFA                ZR     X4,CBD18    IF [BJ] = 0                                         CFA         1255     A     
 CFA                PX6    X4                                                              CFA         1256     A     
 CFA                NX3    B2,X6                                                           CFA         1257     A     
 CFA                SX2    A4-"BI"                                                         CFA         1258     A     
 CFA                SB2    B3-B2                                                           CFA         1259     A     
 CFA                LX2    4                                                               CFA         1260     A     
 CFA                SX0    B1                                                              CFA         1261     A     
 CFA                LX3    B1,X2                                                           CFA         1262     A     
 CFA                IX6    X2+X3                                                           CFA         1263     A     
 CFA                LX0    IM.DOMP                                                         CFA         1264     A     
 CFA                SX2    B2+X6       FBD = 47 - NORMC([BJ]) + 48*( BJ - BI )             CFA         1265     A     
 CFA                SA3    "IB"+X2                                                         CFA         1266     A     
 CFA                BX6    X0+X3       DOM[IBA+FBD] = 1                                    CFA         1267     A     
 CFA                SA6    A3                                                              CFA         1268     A     
 CFA                                                                                       CFA         1269     A     
 CFA                SA4    "T"+X5      TW = T(BN[II])                                      CFA         1270     A     
 CFA                LX5    IM.BNP                                                          CFA         1271     A     
 CFA                LX2    IM.IBDP                                                         CFA         1272     A     
 CFA                BX6    X2+X5       IBD[II] = FBD                                       CFA         1273     A     
 CFA                SA6    A5                                                              CFA         1274     A     
 CFA                SX3    "BI"                                                            CFA         1275     A     
 CFA                LX3    I.BVIP                                                          CFA         1276     A     
 CFA                BX6    X3+X4       BVI[TW] = BI  */ INSTALL BIT VECTOR ADDRESS         CFA         1277     A     
 CFA                SA6    A4                                                              CFA         1278     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3644    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                UX4    B3,X4                                                           CFA         1279     A     
 CFA                SX0    B1                                                              CFA         1280     A     
 CFA                LX4    -I.WIP      W = WI[TW]                                          CFA         1281     A     
 CFA                SA2    "BI"+X4                                                         CFA         1282     A     
 CFA                LX0    B3,X0                                                           CFA         1283     A     
 CFA                BX7    X0+X2       BVT(BI+W) = BVT(BI+W) ! SHIFT(1,BITN[TW])           CFA         1284     A     
 CFA                SA7    A2                                                              CFA         1285     A     
 CFA                LX5    59-IM.ENP                                                       CFA         1286     A     
 CFA                PL     X5,CBD19    IF ^EN[II]    */ IF NOT AN EXIT NODE                CFA         1287     A     
 CFA                SB2    "VL"                                                            CFA         1288     A     
 CFA                SA2    A0                                                              CFA         1289     A     
 CFA                SX3    "BI"                                                            CFA         1290     A     
 CFA                RJ     ABV         AN = AN & BVT(BI)                                   CFA         1291     A     
 CFA                                                                                       CFA         1292     A     
 CFA       CBD19    SA2    NN                                                              CFA         1293     A     
 CFA                S"BI"  "BI"+"VL"   BI = BI + VL                                        CFA         1294     A     
 CFA                SA5    A5+B1       II = II + 1                                         CFA         1295     A     
 CFA                SX6    X2-1        NN = NN - 1                                         CFA         1296     A     
 CFA                SA6    A2+                                                             CFA         1297     A     
 CFA                NZ     X6,CBD14    IF NN " 0                                           CFA         1298     A     
 CFA                                                                                       CFA         1299     A     
 CFA                S"BV"  A0                                                              CFA         1300     A     
 CFA                SA2    "IB"                                                            CFA         1301     A     
 CFA                LX2    59-IM.ENP                                                       CFA         1302     A     
 CFA                MI     X2,CBD5     IF EN[IBA]    */ IF HEADER IS AN EXIT NODE          CFA         1303     A     
 CFA                                                                                       CFA         1304     A     
 CFA      *         PROPAGATE *AN* BIT VECTOR TO INTERVAL MEMBERS                          CFA         1305     A     
 CFA                                                                                       CFA         1306     A     
 CFA                SB3    47                                                              CFA         1307     A     
 CFA                SA5    "BV"+"VL"   BI = O.BVT + VL                                     CFA         1308     A     
 CFA                SX2    B3+B1                                                           CFA         1309     A     
 CFA                SX0    B1                                                              CFA         1310     A     
 CFA                IX2    X1*X2       WA = 48 * VL  */ WORD ADDEND                        CFA         1311     A     
 CFA                SX7    B1                                                              CFA         1312     A     
 CFA                LX7    IM.APP                                                          CFA         1313     A     
 CFA                                                                                       CFA         1314     A     
 CFA       CBD20    SX2    X2-48                                                           CFA         1315     A     
 CFA                MI     X2,CBD5     IF WA < 0                                           CFA         1316     A     
 CFA                SA5    A5-B1       BI = BI - 1;  AN = [BI]                             CFA         1317     A     
 CFA                ZR     X5,CBD20    IF AN = 0                                           CFA         1318     A     
 CFA                                                                                       CFA         1319     A     
 CFA       CBD21    PX6    X5                                                              CFA         1320     A     
 CFA                NX4    B2,X6                                                           CFA         1321     A     
 CFA                SB2    B3-B2       J = 47 - NORMC(AN)                                  CFA         1322     A     
 CFA                LX3    B2,X0                                                           CFA         1323     A     
 CFA                SB2    B2+X2                                                           CFA         1324     A     
 CFA                BX5    -X3*X5      AN = ^SHIFT(1,J) & AN                               CFA         1325     A     
 CFA                SA3    "IB"+B2                                                         CFA         1326     A     
 CFA                BX6    X7+X3       AP[IBA+WA+J] = 1                                    CFA         1327     A     
 CFA                SA6    A3                                                              CFA         1328     A     
 CFA                NZ     X5,CBD21    IF AN " 0                                           CFA         1329     A     
 CFA                EQ     CBD20                                                           CFA         1330     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3645    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                                                                                       CFA         1331     A     
 CFA       FISA     BFMW   IM,(AP,HN)                                                      CFA         1332     A     
 CFA       FISB     VFD    2/3,40/FISB,18/377777B                                          CFA         1333     A     
 CFA       ABV      SPACE  2           ABV                                                 CFA         1334     A     
 CFA      **        ABV - *AND* BIT VECTORS                                                CFA         1335     A     
 CFA      *                                                                                CFA         1336     A     
 CFA      *         ENTRY  (B2) = VL , BIT VECTOR LENGTH                                   CFA         1337     A     
 CFA      *                (A2) = ADDRESS OF OPERAND/RESULT BIT VECTOR                     CFA         1338     A     
 CFA      *                (X3) = ADDRESS OF SECOND OPERAND                                CFA         1339     A     
 CFA                                                                                       CFA         1340     A     
 CFA       ABV1     BX6    X2*X3                                                           CFA         1341     A     
 CFA                SA3    A3+B1                                                           CFA         1342     A     
 CFA                SB2    B2-B1                                                           CFA         1343     A     
 CFA                SA6    A2                                                              CFA         1344     A     
 CFA                SA2    A2+1                                                            CFA         1345     A     
 CFA                GT     B2,ABV1                                                         CFA         1346     A     
 CFA       ABV      ROUTINE                                                                CFA         1347     A     
 CFA                SA3    X3                                                              CFA         1348     A     
 CFA                EQ     ABV1                                                            CFA         1349     A     
 CFA       FDG      TITLE  FDG - FORM DERIVED GRAPH                                        CFA         1350     A     
 CFA      **        FDG - FORM DERIVED GRAPH OF A SET OF INTERVALS                         CFA         1351     A     
 CFA      *         THIS ROUTINE DEVIATES FROM THE NORMAL PROCEDURE THAT REDUCES           CFA         1352     A     
 CFA      *         EACH INTERVAL TO A POINT. INSTEAD IT REDUCES ONLY THE STRONGLY         CFA         1353     A     
 CFA      *         CONNECTED REGIONS OF AN INTERVAL TO A POINT AND LEAVES THE             CFA         1354     A     
 CFA      *         REST OF THE BLOCKS ALONE.                                              CFA         1355     A     
 CFA                                                                                       CFA         1356     A     
 CFA                DESCRIBE T.,60     T(OLD BN) = 30/NEW NODENUM,30/NEW BLOCK NUM         CFA         1357     A     
 CFA       NN       DEFINE 30          NEW NODE NUMBER                                     CFA         1358     A     
 CFA       NBN      DEFINE 30          NEW BLOCK NUMBER                                    CFA         1359     A     
 CFA                                                                                       CFA         1360     A     
 CFA       FDG      ROUTINE                                                                CFA         1361     A     
 CFA                SA5    N.BLK                                                           CFA         1362     A     
 CFA                ALLOC  OTI,X5+B1   ALLOC( OTI , N.BLK+1 )  */ TRANSITION TBL           CFA         1363     A     
 CFA                SA4    LC                                                              CFA         1364     A     
 CFA                SX0    X4+4                                                            CFA         1365     A     
 CFA                IX1    X0+X5                                                           CFA         1366          I
          -FCC0408
 CFA                IX1    X0+X1                                                           FCC0408      107     A     
 CFA                ALLOC  CFT,X1      ALLOC( CFT , LC+5+N.BLK )                           CFA         1367     A     
 CFA                IX1    X0+X2                                                           CFA         1368     A     
 CFA                SB2    X1          O.T = O.CFT + LC+4  */ TEMP TABLE                   CFA         1369     A     
 CFA                SA3    ILB                                                             CFA         1370     A     
 CFA                SA4    O.GST                                                           CFA         1371     A     
 CFA                SA0    X2          C0 = O.CFT                                          CFA         1372     A     
 CFA                SX6    X2+B1       O.CFT = O.CFT + 1                                   CFA         1373     A     
 CFA                SA6    A2                                                              CFA         1374     A     
 CFA                SB4    X4                                                              CFA         1375     A     
 CFA                SA1    EII                                                             CFA         1376     A     
 CFA                SA5    B4+X3       IP = O.GST + ILB                                    CFA         1377     A     
 CFA                SB4    B4+X1       EIB = O.GST + EII                                   CFA         1378     A     
 CFA                MX6    0                                                               CFA         1379     A     
 CFA                SA6    B2          T(0) = 0                                            CFA         1380     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3646    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                SB6    1+IM.SCRP-IM.BIP                                                CFA         1381     A     
 CFA                                                                                       CFA         1382     A     
 CFA      *         CLEAR OUT TRANSITION TABLE IN CASE OF UNREACHABLE CODE                 CFA         1383     A     
 CFA                                                                                       CFA         1384     A     
 CFA                SA4    N.BLK       N = N.BLK;  I = 0                                   CFA         1385     A     
 CFA                MX6    2                                                               CFA         1386     A     
 CFA       FDG0     SX4    X4-1        N = N - 1                                           CFA         1387     A     
 CFA                SA6    A6+1        I = I + 1;  T(I) = 1S58                             CFA         1388     A     
 CFA                NZ     X4,FDG0     IF N " 0                                            CFA         1389     A     
 CFA                                                                                       CFA         1390     A     
 CFA      *         FORM THE TRANSITION TABLE, AND REASSIGN NODE NUMBERS TO THE            CFA         1391     A     
 CFA      *         BLOCKS THAT ARE CONSISTANT WITH THEIR PROGRAM ORDER.                   CFA         1392     A     
 CFA      *         FIRST SCAN THE INTERVALS                                               CFA         1393     A     
 CFA                                                                                       CFA         1394     A     
 CFA       FTT1     LX5    -IP.NODEP                                                       CFA         1395     A     
 CFA                SB3    X5          N = NODE[IP]                                        CFA         1396     A     
 CFA                LX5    IP.NODEP-IP.PBP                                                 CFA         1397     A     
 CFA                SX7    X5          HB = PB[IP]   */ NEW *BN* OF *SCR*                  CFA         1398     A     
 CFA                SA5    A5+B1       IP = IP + 1                                         CFA         1399     A     
 CFA                ZR     X7,FTT2     IF HB = 0     */ NO *SCR*                           CFA         1400     A     
 CFA                                                                                       CFA         1401     A     
 CFA                LX5    -IM.BNP     HN = BN[IP]                                         CFA         1402     A     
 CFA                SA7    B2+X5       T(HN) = TTW(0,HB)                                   CFA         1403     A     
 CFA                MX0    1                                                               CFA         1404     A     
 CFA                SX4    X5                                                              CFA         1405     A     
 CFA                BX7    X0+X7                                                           CFA         1406     A     
 CFA                LX4    T.NNP                                                           CFA         1407     A     
 CFA                BX7    X4+X7       TSW = TTW(1S29+HN,HB)                               CFA         1408     A     
 CFA                EQ     FTT4                                                            CFA         1409     A     
 CFA                                                                                       CFA         1410     A     
 CFA       FTT2     LX5    59-IM.SCRP                                                      CFA         1411     A     
 CFA                PL     X5,FTT3     IF ^SCR[IP]                                         CFA         1412     A     
 CFA                LX5    1+IM.SCRP-IM.BNP                                                CFA         1413     A     
 CFA                SA7    B2+X5       T(BN[IP]) = TSW                                     CFA         1414     A     
 CFA                EQ     FTT4                                                            CFA         1415     A     
 CFA                                                                                       CFA         1416     A     
 CFA       FTT3     LX3    B6,X5                                                           CFA         1417     A     
 CFA                LX5    1+IM.SCRP-IM.BNP                                                CFA         1418     A     
 CFA                SX6    X3                                                              CFA         1419     A     
 CFA                AX6    1                                                               CFA         1420     A     
 CFA                SA6    B2+X5       T(BN[IP]) = TTW(0,BI[IP]/2)                         CFA         1421     A     
 CFA                                                                                       CFA         1422     A     
 CFA       FTT4     SB3    B3-B1       N = N - 1                                           CFA         1423     A     
 CFA                SA5    A5+B1       IP = IP + 1                                         CFA         1424     A     
 CFA                NZ     B3,FTT2     IF N " 0                                            CFA         1425     A     
 CFA                NZ     X5,FTT1     IF [IP] " 0                                         CFA         1426     A     
 CFA                                                                                       CFA         1427     A     
 CFA      *         RESCAN THE TEMP TABLE AND ASSIGN NEW NODE NUMBERS TO THE NODES         CFA         1428     A     
 CFA      *         THAT ARE ^SCR OR HEADER.                                               CFA         1429     A     
 CFA                                                                                       CFA         1430     A     
 CFA                SA2    N.BLK                                                           CFA         1431     A     
 CFA                SX0    B1                                                              CFA         1432     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3647    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA                SB3    B1          I = 1                                               CFA         1433     A     
 CFA                SB5    X2                                                              CFA         1434     A     
 CFA                LX0    T.NNP       J = 1                                               CFA         1435     A     
 CFA                BX1    X0                                                              CFA         1436     A     
 CFA                                                                                       CFA         1437     A     
 CFA       FTT5     SA4    B2+B3                                                           CFA         1438     A     
 CFA                MI     X4,FTT6     IF T(I) < 0   */ SCR AND NOT HEADER                 CFA         1439     A     
 CFA                BX6    X0+X4                                                           CFA         1440     A     
 CFA                SA6    A4+         NN[T(I)] = J                                        CFA         1441     A     
 CFA                IX0    X0+X1       J = J + 1                                           CFA         1442     A     
 CFA       FTT6     SB3    B3+B1       I = I + 1                                           CFA         1443     A     
 CFA                LE     B3,B5,FTT5  IF I @ N.BLK                                        CFA         1444     A     
 CFA                                                                                       CFA         1445     A     
 CFA      *         NOW SET THE *NN* OF THE ENTRIES THAT ARE SCR & ^HEADER                 CFA         1446     A     
 CFA                                                                                       CFA         1447     A     
 CFA                MX6    1                                                               CFA         1448     A     
 CFA                SB3    B1          I = 1                                               CFA         1449     A     
 CFA                LX6    -1                                                              CFA         1450     A     
 CFA                SA6    B2          T(0) = 1S58                                         CFA         1451     A     
 CFA                                                                                       CFA         1452     A     
 CFA       FTT7     SA4    B2+B3                                                           CFA         1453     A     
 CFA                PL     X4,FTT8     IF T(I) > 0                                         CFA         1454     A     
 CFA                LX4    -T.NNP      OBN = NN[T(I)]                                      CFA         1455     A     
 CFA                SA3    B2+X4                                                           CFA         1456     A     
 CFA                BX6    X3          T(I) = T(OBN)                                       CFA         1457     A     
 CFA                SA6    A4                                                              CFA         1458     A     
 CFA       FTT8     SB3    B3+B1       I = I + 1                                           CFA         1459     A     
 CFA                LE     B3,B5,FTT7  IF I @ N.BLK                                        CFA         1460     A     
 CFA                                                                                       CFA         1461     A     
 CFA                MX6    0                                                               CFA         1462     A     
 CFA                SA6    B2          T(0) = 0                                            CFA         1463     A     
 CFA                                                                                       CFA         1464     A     
 CFA      *         SCAN TEMP TABLE AND SETUP *OTI* FOR USE BY *FIS*                       CFA         1465     A     
 CFA                                                                                       CFA         1466     A     
 CFA                SA1    O.OTI                                                           CFA         1467     A     
 CFA                AX0    T.NNP                                                           CFA         1468     A     
 CFA                BX6    X0                                                              CFA         1469     A     
 CFA                SA6    L.OTI       L.OTI = J                                           CFA         1470     A     
 CFA                SB6    T.NNP                                                           CFA         1471     A     
 CFA                SB3    X1                                                              CFA         1472     A     
 CFA                SA5    B2+X2       TI = O.T + NB                                       CFA         1473     A     
 CFA                SX6    X6-1                                                            CFA         1474     A     
 CFA                SA6    N.BLK                                                           CFA         1475     A     
 CFA                MX7    0                                                               CFA         1476     A     
 CFA                SA7    B3          OTI(0) = 0                                          CFA         1477     A     
 CFA                                                                                       CFA         1478     A     
 CFA       FDG5     AX4    B6,X5                                                           CFA         1479     A     
 CFA                SX6    X5                                                              CFA         1480     A     
 CFA                SA6    B3+X4       OTI(NN[TI]) = NBN[TI]                               CFA         1481     A     
 CFA                SA5    A5-B1       TI = TI - 1                                         CFA         1482     A     
 CFA                NZ     X5,FDG5     IF [TI] " 0                                         CFA         1483     A     
 CFA                                                                                       CFA         1484     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3648    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CFA     
  
 CFA      *         REDUCE THE GRAPH BY REDUCING THE *SCR*"S OF THE INTERVALS TO           CFA         1485     A     
 CFA      *         POINTS                                                                 CFA         1486     A     
 CFA                                                                                       CFA         1487     A     
 CFA                SB7    B1          I = 1                                               CFA         1488     A     
 CFA                SA7    A0          CI = C0                                             CFA         1489     A     
 CFA                MX6    -ET.JPP                                                         CFA         1490     A     
 CFA                SB6    T.NNP                                                           CFA         1491     A     
 CFA                MX0    CF.FROML                                                        CFA         1492     A     
 CFA                LX0    CF.FROML+CF.FROMP                                               CFA         1493     A     
 CFA                                                                                       CFA         1494     A     
 CFA       FDG6     SA4    B4+B7       EI = EIB + I                                        CFA         1495     A     
 CFA                SA2    B2+B7                                                           CFA         1496     A     
 CFA                LX2    CF.FROMP-T.NNP                                                  CFA         1497     A     
 CFA                BX1    X0*X2       FE = NN[T(I)] */ FROM EDGE                          CFA         1498     A     
 CFA                LX4    -EI.SUIP                                                        CFA         1499     A     
 CFA                UX7    B3,X4       N = NS[EI]                                          CFA         1500     A     
 CFA                SA5    B4+X4       SI = EIB + SUI[EI]                                  CFA         1501     A     
 CFA                SB7    B7+1        I = I + 1                                           CFA         1502     A     
 CFA                LE     B3,FDG9     IF N @ 0                                            CFA         1503     A     
 CFA                                                                                       CFA         1504     A     
 CFA       FDG7     LX5    -ET.SUCCP                                                       CFA         1505     A     
 CFA                SA3    B2+X5                                                           CFA         1506     A     
 CFA                LX3    CF.FROMP-T.NNP                                                  CFA         1507     A     
 CFA                BX2    X0*X3       TE = NN[T(SUCC[SI])]                                CFA         1508     A     
 CFA                IX7    X1-X2                                                           CFA         1509     A     
 CFA                LX2    CF.TOP-CF.FROMP                                                 CFA         1510     A     
 CFA                ZR     X7,FDG8     IF FE = TE                                          CFA         1511     A     
 CFA                                                                                       CFA         1512     A     
 CFA                BX5    X6*X5                                                           CFA         1513     A     
 CFA                IX4    X1+X2                                                           CFA         1514     A     
 CFA                BX7    X5+X4                                                           CFA         1515     A     
 CFA                SA7    A7+B1       CI = CI + 1;  [CI] = CFTE(JP[SI], FE , TE )         CFA         1516     A     
 CFA                                                                                       CFA         1517     A     
 CFA       FDG8     SB3    B3-B1       N = N - 1                                           CFA         1518     A     
 CFA                SA5    A5+B1       SI = SI + 1                                         CFA         1519     A     
 CFA                NZ     B3,FDG7     IF N " 0                                            CFA         1520     A     
 CFA                                                                                       CFA         1521     A     
 CFA       FDG9     LE     B7,B5,FDG6  IF I @ NB                                           CFA         1522     A     
 CFA                                                                                       CFA         1523     A     
 CFA                SB3    A0                                                              CFA         1524     A     
 CFA                SX6    A7-B3       L.CFT = CI - C0                                     CFA         1525     A     
 CFA                SA6    L.CFT                                                           CFA         1526     A     
 CFA                                                                                       CFA         1527     A     
 CFA                TRACE  FDG.X,OTI                                                       CFA         1528     A     
 CFA                EQ     FDG                                                             CFA         1529     A     
 CFA                                                                                       CFA         1530     A     
 CFA                QUAL                                                                   CFA         1531     A     
 CFA                                                                                       CFA         1532     A     
 CFA       DGS      EQU    /CODE/DGS                                                       CFA         1533     A     
 CFA                                                                                       CFA         1534     A     
 CFA       F.CFA    END                                                                    CFA         1535     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3649    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CFA     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CFA                       1535      1512
          FCC0392                     12        12
          FCC0408                     16        16
          FCC0448                      9         9
          FCC1191                     27        27
          FCC1319                      5         5
          FCC1623X                     3         3
          FCC2113                      4         4
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDT     
  
 UDT      *DECK     UDT                                                                    UDT            1     A     
 UDT                IDENT  UDT                                                             UDT            2     A     
 UDT       UDT      TITLE  UDT - USE/DEF TABLE PROCESSING                                  UDT            3     A     
 UDT      *CALL     SSTCALL                                                                UDT            4     A     
 UDT       B=UDT    RPVDEF                                                                 UDT            5     A     
 UDT                PASS2TM                                                                UDT            6     A     
 UDT                                                                                       UDT            7     A     
 UDT      *IF       DEF,UDT,1                                                              UDT            8          I
          -FCCT005
 UDT                TRACER UDI                                                             UDT            9          I
          -FCCT005
 UDT       UDT      SPACE  2                                                               UDT           10     A     
 UDT      **        UDT - USE/DEF TABLE INITIALIZATION                                     UDT           11     A     
 UDT      *                                                                                UDT           12     A     
 UDT      *         MISCELLANEOUS ROUTINES FOR THE PREPROCESSING PHASE OF OPT=2 .          UDT           13     A     
 UDT       UDT      SPACE  2                                                               UDT           14     A     
 UDT                LIST   -R                                                              UDT           15     A     
 UDT                                                                                       UDT           16     A     
 UDT                TABLES BST,IOL,RND,RXI,TXT,UDI                                         UDT           17     A     
 UDT                                                                                       UDT           18     A     
 UDT                ECHO   4,A=(BIT,BVT),B=(BST,RXI)                                       UDT           19     A     
 UDT                EXT    Z.B                                                             UDT           20     A     
 UDT       Z.A      EQU    Z.B                                                             UDT           21     A     
 UDT       O.A      EQU    O.B                                                             UDT           22     A     
 UDT       L.A      EQU    L.B                                                             UDT           23     A     
 UDT                SPACE  2                                                               UDT           24     A     
 UDT                USE    //                                                              UDT           25     A     
 UDT       O.UDB    BSS    100B        FWA OF USE/DEF HASH TABLE                           UDT           26     A     
 UDT                USE    0                                                               UDT           27     A     
 UDT                                                                                       UDT           28     A     
 UDT                USE    /BVINFO/                                                        UDT           29     A     
 UDT       VL       BSS    1           BIT VECTOR LENGTH                                   UDT           30     A     
 UDT       N.VAR    BSS    1           N.VARIABLES IN *UDT*                                UDT           31     A     
 UDT       BVL      BSS    1           VL - 1                                              UDT           32     A     
 UDT       RCV      BSS    1           =1 IF REFERENCED COMMON VARIABLES                   UDT           33     A     
 UDT                USE    0                                                               UDT           34     A     
 UDT                                                                                       UDT           35     A     
 UDT      *         BLOCK HEADER TRAILER WORD DEFINTIONS                                   UDT           36     A     
 UDT                                                                                       UDT           37     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3650    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDT     
  
 UDT       BH.LENP  EQU    0                                                               UDT           38     A     
 UDT       BH.BIP   EQU    36                                                              UDT           39     A     
 UDT       BT.LENP  EQU    0                                                               UDT           40     A     
 UDT                                                                                       UDT           41     A     
 UDT      *CALL     CFTBLD                                                                 UDT           42     A     
 UDT                                                                                       UDT           43     A     
 UDT                LIST   X                                                               UDT           44     A     
 UDT                                                                                       UDT           45     A     
 UDT      *CALL     UDTBLD                                                                 UDT           46     A     
 UDT                LIST   R                                                               UDT           47     A     
 UDT       AUT      TITLE  AUT - ADJUST USE/DEF INDEX TABLE                                UDT           48     A     
 UDT      **        AUT - ADJUST USE/DEF INEX TABLE TO BRING TO WORKING FORM               UDT           49     A     
 UDT      *         SORT TABLE BY [IH,CR] TO CHAIN CLASS"S AND EXPAND TO 2 WDS/ENTRY       UDT           50     A     
 UDT                                                                                       UDT           51     A     
 UDT      *         I. - TEMP SORT TABLE FORMAT                                            UDT           52     A     
 UDT                                                                                       UDT           53     A     
 UDT                DESCRIBE I.,60                                                         UDT           54     A     
 UDT                DEFINE 12                                                              UDT           55     A     
 UDT       IH       DEFINE 18                                                              UDT           56     A     
 UDT                DEFINE 11                                                              UDT           57     A     
 UDT       CR       DEFINE 1                                                               UDT           58     A     
 UDT       UI       DEFINE 18                                                              UDT           59     A     
 UDT                                                                                       UDT           60     A     
 UDT       AUT      ENTRY.                                                                 UDT           61     A     
 UDT                SA5    L.UDI                                                           UDT           62     A     
 UDT                SX7    X5-2                                                            UDT           63     A     
 UDT                NZ     X7,AUT0     IF L.UDI " 2  */ TABLE NON-EMPTY                    UDT           64     A     
 UDT                ADDWRD UDI,1       ADDWRD( UDI , 1 )  */ DUMMY ENTRY                   UDT           65     A     
 UDT       AUT0     BSS    0                                                               UDT           66     A     
 UDT       DBG      IF     DEF,/DEBUG/UDI                                                  UDT           67          I
          -FCCT005
 UDT       .T       IFNE   TEST,0                                                          FCCT005        5     A     
 UDT                SA1    =XCO.SNAP                                                       FCCT005        6     A     
 UDT                LX1    1R2                                                             FCCT005        7     A     
 UDT                PL     X1,AUTT     IF SNAP=2 NOT SELECTED                              FCCT005        8     A     
 UDT                DCALL  DMPUDI,([O.UDI],L.UDI)    PRINT SYMBOL DICTIONARY               UDT           68     A     
 UDT       DBG      ENDIF                                                                  UDT           69          I
          -FCCT005
 UDT       AUTT     BSS    0                                                               FCCT005        9     A     
 UDT       .T       ENDIF                                                                  FCCT005       10     A     
 UDT                SA5    L.UDI                                                           UDT           70     A     
 UDT                BX6    X5                                                              UDT           71     A     
 UDT                LX5    1                                                               UDT           72     A     
 UDT                SA6    N.VAR       N.VAR = L.UDI                                       UDT           73     A     
 UDT                ALLOC  UDI,X5+3    ALLOC( UDI , 2*N.VAR + 3 )                          UDT           74     A     
 UDT                SB2    B6-2        N = OLD(L.UDI-2)                                    UDT           75     A     
 UDT                BX6    X5                                                              UDT           76     A     
 UDT                SA6    A3          L.UDI = 2*N.VAR  */ EXTRA SPACE FOR SORT ONLY       UDT           77     A     
 UDT                SB3    X2+B1                                                           UDT           78     A     
 UDT                SB7    B3+X5       T0 = O.UDI+1 + 2*N.VAR                              UDT           79     A     
 UDT                SX0    B1                                                              UDT           80     A     
 UDT                MX7    0                                                               UDT           81     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3651    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDT     
  
 UDT                SA5    X2+2        UI = O.UDI + 2                                      UDT           82     A     
 UDT                LX0    UA.CRP                                                          UDT           83     A     
 UDT                SB4    B1+B1                                                           UDT           84     A     
 UDT                SA7    B7-B1       TI = T0 - 1;  [TI] = 0                              UDT           85     A     
 UDT                SX4    B4+B4       I = 4                                               UDT           86     A     
 UDT                SX1    B2+                                                             UDT           87     A     
 UDT                                                                                       UDT           88     A     
 UDT      *         FORM SORT TABLE SO AS TO GROUP BY *IH"S*                               UDT           89     A     
 UDT                                                                                       UDT           90     A     
 UDT       AUT1     BX3    X0*X5                                                           UDT           91     A     
 UDT                LX5    -UA.IHP                                                         UDT           92     A     
 UDT                LX3    I.CRP-UA.CRP                                                    UDT           93     A     
 UDT                SX2    X5                                                              UDT           94     A     
 UDT                IX6    X3+X4       SW = ITF(IH,CR,I)                                   UDT           95     A     
 UDT                LX2    I.IHP                                                           UDT           96     A     
 UDT                SA5    A5+B1       UI = UI + 1                                         UDT           97     A     
 UDT                BX7    X2+X6                                                           UDT           98     A     
 UDT                SB2    B2-B1       N = N - 1                                           UDT           99     A     
 UDT                SX4    X4+B4       I = I + 2                                           UDT          100     A     
 UDT                SA7    A7+B1       TI = TI + 1;  [TI] = SW                             UDT          101     A     
 UDT                NZ     B2,AUT1     IF N " 0                                            UDT          102     A     
 UDT                                                                                       UDT          103     A     
 UDT                SA0    A7          TL = TI                                             UDT          104     A     
 UDT                CALL   SHL         SORT( UDI , [IH,CR,I] )                             UDT          105     A     
 UDT       AUT      SPACE  3,14                                                            UDT          106     A     
 UDT      *         NOW SETUP FINAL FORM OF USE/DEF INDEX TABLE WHERE ALL                  UDT          107     A     
 UDT      *         CLASS MEMBERS POINT TO THEIR BASE MEMBER AND THE MEMBERS OF            UDT          108     A     
 UDT      *         THE CLASS ARE CHAINED FROM THE BASE MEMBER TO THE CLASS.               UDT          109     A     
 UDT                                                                                       UDT          110     A     
 UDT                SA2    O.UDI                                                           UDT          111     A     
 UDT                SA3    O.SYM                                                           UDT          112     A     
 UDT                SX0    B1                                                              UDT          113     A     
 UDT                SA1    AUTA                                                            UDT          114     A     
 UDT                LX0    I.CRP                                                           UDT          115     A     
 UDT                SA5    A0          TI = TL                                             UDT          116     A     
 UDT                SB2    X2                                                              UDT          117     A     
 UDT                SA0    X3                                                              UDT          118     A     
 UDT                SB6    I.IHP-1                                                         UDT          119     A     
 UDT                SX3    B1                                                              FCC0807       17     A     
 UDT                LX3    P.LOCF                                                          FCC0807       18     A     
 UDT                                                                                       UDT          120     A     
 UDT       AUT2     ZR     X5,AUT4     IF [TI] = 0   */ END OF TABLE                       UDT          121     A     
 UDT                BX7    X0*X5       C = CR[TI]                                          UDT          122     A     
 UDT                SX6    X5          I = UI[TI]                                          UDT          123     A     
 UDT                AX5    B6,X5                                                           UDT          124     A     
 UDT                SB3    X5          IHB = IH[TI]                                        UDT          125     A     
 UDT                LX7    UD.CRP-I.CRP                                                    UDT          126     A     
 UDT                SA2    A0-B3       WORDA = [O.SYM-2*IHB]                               UDT          127     A     
 UDT                BX4    X1*X2                                                           UDT          128     A     
 UDT                SA2    A2-B1       WORDB = WORDA - 1                                   FCC0807       19     A     
 UDT                BX5    X3*X2                                                           FCC0807       20     A     
 UDT                LX5    P.COM-P.LOCF                                                    FCC0807       21     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3652    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDT     
  
 UDT                BX4    X4+X5       COM = COM ! LOCF                                    FCC0807       22     A     
 UDT                LX4    UD.COMP-P.COM                                                   UDT          129     A     
 UDT                SA5    A5-B1       TI = TI - 1                                         UDT          130     A     
 UDT                LX2    X7                                                              UDT          131     A     
 UDT                BX7    X4+X7                                                           UDT          132     A     
 UDT                SA7    B2+X6       UDI(I) = UDIT(COM,C,0,0,0);  UL = UDI(I)            UDT          133     A     
 UDT                ZR     X2,AUT2     IF C = 0      */ NOT A CLASS REP                    UDT          134     A     
 UDT                                                                                       UDT          135     A     
 UDT      *         CHAIN CLASS MEMBERS FROM BASE, AND POINT THEM TO THE BASE MEMBER       UDT          136     A     
 UDT                                                                                       UDT          137     A     
 UDT                LX2    UD.CMP-UD.CRP                                                   UDT          138     A     
 UDT                BX4    X2+X4                                                           UDT          139     A     
 UDT                LX6    UD.BMIP                                                         UDT          140     A     
 UDT                IX6    X4+X6                                                           UDT          141     A     
 UDT                                                                                       UDT          142     A     
 UDT       AUT3     AX4    B6,X5                                                           UDT          143     A     
 UDT                SB7    X4                                                              UDT          144     A     
 UDT                NE     B7,B3,AUT2  IF IH[TI] " IHB                                     UDT          145     A     
 UDT                SX2    X5          J = UI[TI]                                          UDT          146     A     
 UDT                SA5    A5-B1       TI = TI - 1                                         UDT          147     A     
 UDT                LX2    UD.ECLP                                                         UDT          148     A     
 UDT                BX7    X2+X7       ECL[UL] = J   */ LINK LAST TO THIS                  UDT          149     A     
 UDT                SA7    A7                                                              UDT          150     A     
 UDT                LX2    -UD.ECLP                                                        UDT          151     A     
 UDT                BX7    X6                                                              UDT          152     A     
 UDT                SA7    B2+X2       UDI(J) = UDIT(COM,0,I,0);  UL = UDI(J)              UDT          153     A     
 UDT                EQ     AUT3                                                            UDT          154     A     
 UDT                                                                                       UDT          155     A     
 UDT       AUTA     BFMW   UD,(FP,COM),P.COM-UD.COMP                                       UDT          156     A     
 UDT       AUT      SPACE  3,14                                                            UDT          157     A     
 UDT      *         FORM "SPOIL" BIT VECTOR FOR COMMON VARIABLES                           UDT          158     A     
 UDT                                                                                       UDT          159     A     
 UDT       AUT4     SA5    N.VAR                                                           UDT          160     A     
 UDT                SX2    60                                                              UDT          161     A     
 UDT                SX1    X5+57                                                           UDT          162     A     
 UDT                IX7    X1/X2       L = (N.VAR+57) / 60                                 UDT          163     A     
 UDT                LX2    B1,X7                                                           UDT          164     A     
 UDT                SA7    VL          VL = L                                              UDT          165     A     
 UDT                SX6    X7-1                                                            UDT          166     A     
 UDT                SA6    BVL         BVL = L - 1                                         UDT          167     A     
 UDT                LX7    2                                                               UDT          168     A     
 UDT                IX1    X2+X7                                                           UDT          169     A     
 UDT                ALLOC  BVT,X1      ALLOC( BVT , 6*L )                                  UDT          170     A     
 UDT                                                                                       UDT          171     A     
 UDT                SA4    O.UDI                                                           UDT          172     A     
 UDT                SB2    X5-2        N = N.VAR - 2                                       UDT          173     A     
 UDT                SB4    -B1                                                             UDT          174     A     
 UDT                SB6    B0          BITN = 0                                            UDT          175     A     
 UDT                SB7    60                                                              UDT          176     A     
 UDT                MX7    0           WI = 0                                              UDT          177     A     
 UDT                PX7    B4,X7                                                           UDT          178     A     
 UDT                MX6    -UD.ISTP                                                        UDT          179     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3653    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDT     
  
 UDT                SA6    X4          UDI(0) = (DEFR,DEF,^RD,IST)                         UDT          180     A     
 UDT                SA7    X4+B1       UDI(1) = PACK(-1,0) */ NO REP IN BIT VECT           UDT          181     A     
 UDT                SA7    X4+3        UDI(3) = PACK(-1,0) */ FOR FIRST 2 ENTRIES          UDT          182     A     
 UDT                MX6    0           SV = 0                                              UDT          183     A     
 UDT                SA6    A7-B1       UDI(2) = 0                                          UDT          184     A     
 UDT                SX0    1                                                               UDT          185     A     
 UDT                SA5    A7+B1       UI = UDI(4)                                         UDT          186     A     
 UDT                MX1    0           SVS = 0       */ SPOIL VECTOR SUM                   UDT          187     A     
 UDT                LX0    UD.COMP                                                         UDT          188     A     
 UDT                SB3    UD.COMP     J = 0                                               UDT          189     A     
 UDT                                                                                       UDT          190     A     
 UDT       AUT5     PX7    B6,X7                                                           UDT          191     A     
 UDT                BX4    X0*X5                                                           UDT          192     A     
 UDT                SA7    A5+B1       US = UI + 1;  [US] = PACK(BITN,WI)                  UDT          193     A     
 UDT                SB2    B2-B1       N = N - 1                                           UDT          194     A     
 UDT                AX3    B3,X4       SV = SV ! SHIFT(1,COM[UI])                          UDT          195     A     
 UDT                SB3    B3-B1       J = J - 1                                           UDT          196     A     
 UDT                BX6    X3+X6                                                           UDT          197     A     
 UDT                SA5    A7+B1       UI = US + 1                                         UDT          198     A     
 UDT                SB6    B6+B1       BITN = BITN + 1                                     UDT          199     A     
 UDT                ZR     B2,AUT6     IF N = 0                                            UDT          200     A     
 UDT                LT     B6,B7,AUT5  IF BITN < 60                                        UDT          201     A     
 UDT                SB3    UD.COMP                                                         UDT          202     A     
 UDT                                                                                       UDT          203     A     
 UDT       AUT6     SA6    X2          [BI] = SV                                           UDT          204     A     
 UDT                BX1    X1+X6       SVS = SVS ! SV                                      UDT          205     A     
 UDT                SX2    X2+B1       BI = BI + 1                                         UDT          206     A     
 UDT                SB6    B0          BITN = 0                                            UDT          207     A     
 UDT                MX6    0           SV = 0                                              UDT          208     A     
 UDT                SX7    X7+B1       WI = WI + 1                                         UDT          209     A     
 UDT                NZ     B2,AUT5     IF N " 0                                            UDT          210     A     
 UDT                                                                                       UDT          211     A     
 UDT                CX7    X1                                                              UDT          212     A     
 UDT                SA7    RCV         RCV = COUNT(SVS)  */ REFED COMMON VARS FLAG         UDT          213     A     
 UDT       AUT      SPACE  1,10                                                            UDT          214     A     
 UDT      *         FORM DEAD DEFINITION CANIDATE COMPLEMENT VECTOR                        UDT          215     A     
 UDT      *         ^DDC = CR ! CM .                                                       UDT          216     A     
 UDT                                                                                       UDT          217     A     
 UDT                MX6    0           VW = 0                                              UDT          218     A     
 UDT                SA5    BVL                                                             UDT          219     A     
 UDT                SA1    AUTB                                                            UDT          220     A     
 UDT                SB6    X5+B1       INDX = BVL + 1                                      UDT          221     A     
 UDT                SA0    X5+B1       L = BVL + 1                                         UDT          222     A     
 UDT                RJ     FSV         FORM *DDC* VECTOR                                   UDT          223     A     
 UDT                                                                                       UDT          224     A     
 UDT      *         FORM THE PROGRAM ENTRY/EXIT NODE BITS VECTORS FOR USE IN THE           UDT          225     A     
 UDT      *         LIVE EXIT BIT VECTOR COMPUTATION.  LET S = THE SET OF COMMON           UDT          226     A     
 UDT      *         VARS, F.P.S AND THE FUNCTION VALUE ( VALUE. ). I.E. THE SET            UDT          227     A     
 UDT      *         OF VARIABLES WHICH ARE LIVE ON EXIT FROM THE SUBPROGRAM.               UDT          228     A     
 UDT      *         THEN DEF(0) = 0, AND UBD(0) = USE(0) = LX(0) = S .                     UDT          229     A     
 UDT                                                                                       UDT          230     A     
 UDT                SA2    O.BIT                                                           UDT          231     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3654    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDT     
  
 UDT                SX6    B6                                                              UDT          232     A     
 UDT                LX6    BI.BVIP                                                         UDT          233     A     
 UDT                SA6    X2          BVI[BIT(0)] = 2*L                                   UDT          234     A     
 UDT                SA6    X2+2        BVI[BIT(2)] = 2*L                                   UDT          235     A     
 UDT                MX7    0                                                               UDT          236     A     
 UDT                SB7    B7+A0                                                           UDT          237     A     
 UDT      +         SA7    B5+B6       FOR I = 0 TO BVL; DEF(0) = 0                        UDT          238     A     
 UDT                SB6    B6+B1                                                           UDT          239     A     
 UDT                LT     B6,B7,*                                                         UDT          240     A     
 UDT                SA2    =XFUNTYPE                                                       UDT          241     A     
 UDT                SB6    B6+A0       INDX = 4*L                                          UDT          242     A     
 UDT                MX6    0           VW = 0                                              UDT          243     A     
 UDT                ZR     X2,AUT9     IF FUNTYPE = 0                                      UDT          244     A     
 UDT                SX3    X2-1        F = FUNTYPE                                         UDT          245     A     
 UDT                BX6    X2+X3       VW = F + (F-1)                                      UDT          246     A     
 UDT       AUT9     SA1    AUTC                                                            UDT          247     A     
 UDT                RJ     FSV         FORM EXIT BLOCK *USE* VECTOR                        UDT          248     A     
 UDT                                                                                       UDT          249     A     
 UDT      *         SET LX = USE AND UBD = USE                                             UDT          250     A     
 UDT                                                                                       UDT          251     A     
 UDT                SB2    A0                                                              UDT          252     A     
 UDT                SB6    B6-B2       I = 4*L;  UL = 5*L                                  UDT          253     A     
 UDT       AUT10    SA5    B5+B6       UVA = O.BVI + I;  VW = [UVA]                        UDT          254     A     
 UDT                SB6    B6+B1       I = I + 1                                           UDT          255     A     
 UDT                LX7    X5                                                              UDT          256     A     
 UDT                SA7    A5-B2       UFA = UVA - L;  [UFA] = VW                          UDT          257     A     
 UDT                SA7    A5+B2       LXA = UVA + L;  [LXA] = VW                          UDT          258     A     
 UDT                LT     B6,B7,AUT10 IF I < UL                                           UDT          259     A     
 UDT                                                                                       UDT          260     A     
 UDT                SA2    =XN.FP                                                          UDT          261     A     
 UDT                ZR     X2,AUT      IF N.FP = 0   */ NO F.P. S                          UDT          262     A     
 UDT                SA1    AUTC                                                            UDT          263     A     
 UDT                MX6    0           VW = 0                                              UDT          264     A     
 UDT                SX7    B1                                                              UDT          265     A     
 UDT                SB6    B0          INDX = 0                                            UDT          266     A     
 UDT                SA7    RCV         RCV = 1                                             UDT          267     A     
 UDT                RJ     FSV         INCLUDE F.P.S IN COMMON VAR SPOIL VECTOR            UDT          268     A     
 UDT                                                                                       UDT          269     A     
 UDT                EQ     AUT                                                             UDT          270     A     
 UDT                                                                                       UDT          271     A     
 UDT       AUTB     BFMW   UD,(CR,CM)                                                      UDT          272     A     
 UDT       AUTC     BFMW   UD,(FP,COM)                                                     UDT          273     A     
 UDT       FSV      SPACE  3,24        FSV                                                 UDT          274     A     
 UDT      **        FSV - FORM SPECIAL BIT VECTOR FROM *UDI*                               UDT          275     A     
 UDT      *                                                                                UDT          276     A     
 UDT      *         ENTRY  (X1) = FM , MASK FOR BITS IN SET.                               UDT          277     A     
 UDT      *                (X6) = VW , FIRST WORD OF VECTOR ( PARTIAL )                    UDT          278     A     
 UDT      *                (A0) = L = BVL+1                                                UDT          279     A     
 UDT      *                (B6) = *BVT* STORE INDEX                                        UDT          280     A     
 UDT      *                                                                                UDT          281     A     
 UDT      *         EXIT   (B5) = [O.BVT]                                                  UDT          282     A     
 UDT      *                (B6) = INDX + L                                                 UDT          283     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3655    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDT     
  
 UDT                                                                                       UDT          284     A     
 UDT       FSV      ROUTINE                                                                UDT          285     A     
 UDT                SA2    N.VAR                                                           UDT          286     A     
 UDT                SA3    O.BVT                                                           UDT          287     A     
 UDT                SA4    O.UDI                                                           UDT          288     A     
 UDT                SB4    X2-2        N = N.VAR - 2                                       UDT          289     A     
 UDT                SB5    X3                                                              UDT          290     A     
 UDT                SB7    B6+A0       UL = INDX + L                                       UDT          291     A     
 UDT                SA5    X4+4        UI = [O.UDI] + 4                                    UDT          292     A     
 UDT                SB2    B0          BITN = 0                                            UDT          293     A     
 UDT                SB3    60                                                              UDT          294     A     
 UDT                SX0    B1                                                              UDT          295     A     
 UDT                                                                                       UDT          296     A     
 UDT       FSV1     BX7    X1*X5       B = FM[UI]                                          UDT          297     A     
 UDT                SA5    A5+2        UI = UI + 2                                         UDT          298     A     
 UDT                SB4    B4-B1       N = N - 1                                           UDT          299     A     
 UDT                ZR     X7,FSV2     IF B = 0      */ VAR NOT IN SET                     UDT          300     A     
 UDT                LX4    B2,X0                                                           UDT          301     A     
 UDT                BX6    X4+X6       VW = VW ! SHIFT( 1 , BITN )                         UDT          302     A     
 UDT       FSV2     SB2    B2+1        BITN = BITN + 1                                     UDT          303     A     
 UDT                ZR     B4,FSV3     IF N = 0                                            UDT          304     A     
 UDT                LT     B2,B3,FSV1  IF BITN < 60                                        UDT          305     A     
 UDT                SB2    0           BITN = 0                                            UDT          306     A     
 UDT       FSV3     SA6    B5+B6       BVT(INDX) = VW                                      UDT          307     A     
 UDT                SB6    B6+1        INDX = INDX + 1                                     UDT          308     A     
 UDT                MX6    0           VW = 0                                              UDT          309     A     
 UDT                LT     B6,B7,FSV1  IF INDX < UL                                        UDT          310     A     
 UDT                                                                                       UDT          311     A     
 UDT                EQ     FSV                                                             UDT          312     A     
 UDT       CMR      TITLE  CMR - CHAIN MEMORY REFERENCES TO *UDI*                          UDT          313     A     
 UDT      **        CMR - CHAIN MEMORY REFS IN *TXT* TO *UDI* BY THE *IN* FIELD            UDT          314     A     
 UDT      *         SETUP LINKS FROM INSTRUCTIONS TO *UDI* FOR LATER USE/DEF PROCESSING    UDT          315     A     
 UDT      *                                                                                UDT          316     A     
 UDT      *         AP AND IO LIST LD/ST"S ARE IGNORED                                     UDT          317     A     
 UDT      *         F.P. ADDRESS LOADS ARE CHAINED TO ENTRY 1                              UDT          318     A     
 UDT                                                                                       UDT          319     A     
 UDT       CMR0     SX6    B6+         L.UDI  = UI                                         UDT          320     A     
 UDT                SA6    L.UDI                                                           UDT          321     A     
 UDT                                                                                       UDT          322     A     
 UDT       CMR      ENTRY.                                                                 UDT          323     A     
 UDT                SA1    L.TXT                                                           UDT          324     A     
 UDT                AX1    2                                                               UDT          325     A     
 UDT                ALLOC  UDI,X1      ALLOC( UDI , L.TXT/4 );  UI = OLD( L.UDI )          UDT          326     A     
 UDT                SA5    O.TXT                                                           UDT          327     A     
 UDT                SB7    X2          UDI = O.UDI                                         UDT          328     A     
 UDT                MX0    -D.LDSTL                                                        UDT          329     A     
 UDT                SB2    B1+B1                                                           UDT          330     A     
 UDT                LX0    D.LDSTP                                                         UDT          331     A     
 UDT                SA4    X5+B2       DI = O.TXT + 2                                      UDT          332     A     
 UDT                MX1    -IH.CAIHL                                                       UDT          333     A     
 UDT                LX1    IH.CAIHP                                                        UDT          334     A     
 UDT                SA2    O.SYM                                                           FCC1088       27     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3656    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDT     
  
 UDT                SA0    X2-1                      (A0) = SYM-1                          FCC1088       28     A     
 UDT                                                                                       UDT          335     A     
 UDT      *         SCAN *TXT* FOR MEMORY REFS AND CHAIN THEM TO *UDI*                     UDT          336     A     
 UDT                                                                                       UDT          337     A     
 UDT       CMR1     SA5    A4+B2       R1 = DI + 2                                         UDT          338     A     
 UDT                SA4    A5+B2       DI = R1 + 2                                         UDT          339     A     
 UDT                UX7    B3,X5                                                           UDT          340     A     
 UDT                BX6    -X0*X4                                                          UDT          341     A     
 UDT                ZR     B3,CMR0     IF OC[R1] = 0 */ END OF BLOCK                       UDT          342     A     
 UDT                ZR     X6,CMR1     IF LDST[DI] = 0  */ NOT A MEM REF                   UDT          343     A     
 UDT                                                                                       UDT          344     A     
 UDT                SA3    A5+B1       R2 = R1 + 1                                         UDT          345     A     
 UDT                BX7    -X1*X3      IHF = CAIH[R2]                                      UDT          346     A     
 UDT                MX2    -6                                                              UDT          347     A     
 UDT                LX3    -IH.RFP                                                         UDT          348     A     
 UDT                LX7    -IH.IHP                                                         UDT          349     A     
 UDT                BX4    -X2*X7      HI = IHF & 77B  */ HASH INDEX                       UDT          350     A     
 UDT                SB3    X3          C0 = RF[R2]                                         UDT          351     A     
 UDT                NZ     B3,CMR6     IF RF[R2] " 0                                       UDT          352     A     
 UDT                                                                                       UDT          353     A     
 UDT                SX6    X7-I.GL                                                         UDT          354     A     
 UDT                SA2    =XCON.                                                          UDT          355          I
          -FCC1088
 UDT                PL     X6,CMR1     IF IH[R2] \ I.GL  */ REF TO AP/IO LIST              UDT          356     A     
 UDT                BX6    X7-X2                                                           UDT          357          I
          -FCC1088
 UDT                SX6    X6                                                              UDT          358          I
          -FCC1088
 UDT                NZ     X6,CMR2     IH[R2] " CON.                                       UDT          359          I
          -FCC1088
 UDT                                                                                       UDT          360          I
          -FCC1088
 UDT                SX7    X7+         IHF = IH[R2]  */ REMOVE *CA*                        UDT          361          I
          -FCC1088
 UDT                LX6    B1,X7                                                           FCC1088       29     A     
 UDT                SB5    X6                                                              FCC1088       30     A     
 UDT                SA2    A0-B5       WORDB = SYM(IH[R2])                                 FCC1088       31     A     
 UDT                SB5    B1          CL = 1                                              FCC1088       32     A     
 UDT                LX2    59-P.LDO                                                        FCC1088       33     A     
 UDT                MI     X2,CMR5     IF LDO[WORDB] */ VAR IS LOAD ONLY                   FCC1088       34     A     
 UDT                                                                                       UDT          362     A     
 UDT       CMR2     SA2    O.UDB+X4    CI = UDB(HI)                                        UDT          363     A     
 UDT                ZR     X2,CMR4     IF CI = 0     */ BASE TABLE ENTRY IS EMPTY          UDT          364     A     
 UDT                                                                                       UDT          365     A     
 UDT      *         SEARCH HASH CHAIN                                                      UDT          366     A     
 UDT                                                                                       UDT          367     A     
 UDT                SA7    B7          [UDI] = IHF   */ SEARCH TERMINATOR                  UDT          368     A     
 UDT                SB3    X2          C0 = CI       */ INDEX TO LAST ON CHAIN             UDT          369     A     
 UDT                                                                                       UDT          370     A     
 UDT       CMR3     SA3    B7+X2       UDW = UDI(CI)                                       UDT          371     A     
 UDT                SB5    X2          CL = CI                                             UDT          372     A     
 UDT                BX6    X3-X7                                                           UDT          373     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3657    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDT     
  
 UDT                LX3    -UA.HLP                                                         UDT          374     A     
 UDT                SX2    X3          CI = HL[UDW]                                        UDT          375     A     
 UDT                BX4    -X1*X6                                                          UDT          376     A     
 UDT                NZ     X4,CMR3     IF CAIH[UDW] " IHF                                  UDT          377     A     
 UDT                                                                                       UDT          378     A     
 UDT                NZ     B5,CMR5     IF CL " 0     */ ENTRY IN TABLE                     UDT          379     A     
 UDT                                                                                       UDT          380     A     
 UDT      *         ADD  *CAIH* TO *UDI*                                                   UDT          381     A     
 UDT                                                                                       UDT          382     A     
 UDT       CMR4     SX4    B3                                                              UDT          383     A     
 UDT                SX6    B6          UL = UI                                             UDT          384     A     
 UDT                LX4    UA.HLP                                                          UDT          385     A     
 UDT                BX7    X4+X7                                                           UDT          386     A     
 UDT                SA7    B7+B6       UDI(UI) = UDIW(0,C0,IHF)                            UDT          387     A     
 UDT                SB6    B6+B1       UI = UI + 1                                         UDT          388     A     
 UDT                SB5    X6          CL = UL                                             UDT          389     A     
 UDT                SA6    A2          UDB(HI) = UL  */ UPDATE BASE TABLE                  UDT          390     A     
 UDT                                                                                       UDT          391     A     
 UDT      *         CHAIN ENTRY TO *UDI*                                                   UDT          392     A     
 UDT                                                                                       UDT          393     A     
 UDT       CMR5     SX4    B5                                                              UDT          394     A     
 UDT                LX4    R1.INP+1                                                        UDT          395     A     
 UDT                BX6    X4+X5       IN[R1] = 2*CL                                       UDT          396     A     
 UDT                SA6    A5                                                              UDT          397     A     
 UDT                EQ     CMR1                                                            UDT          398     A     
 UDT                                                                                       UDT          399     A     
 UDT      *         INDEXED MEMORY REF                                                     UDT          400     A     
 UDT                                                                                       UDT          401     A     
 UDT       CMR6     SB5    B1          CL = 1                                              UDT          402     A     
 UDT                EQ     B3,B5,CMR5  IF RF[R2] = 1                                       UDT          403     A     
 UDT                SA3    CMRA                                                            UDT          404     A     
 UDT                SB3    B0          C0 = 0                                              UDT          405     A     
 UDT                BX7    X3+X7       CR[IHF] = 1;  CA[IHF] = -0                          UDT          406     A     
 UDT                EQ     CMR2                                                            UDT          407     A     
 UDT                                                                                       UDT          408     A     
 UDT       CMRA     BFMW   UA,(CR,CA)                                                      UDT          409     A     
 UDT       CPL      TITLE  CPL - CHAIN PARAMETER LIST ENTRIES TO *UDI*                     UDT          410     A     
 UDT      **        CPL - CHAIN PARAMETER LIST ENTRIES TO *UDI*                            UDT          411     A     
 UDT      *                                                                                UDT          412     A     
 UDT      *         ENTRY  (X5) = INDEX , TABLE INDEX OF PARAMETER LIST                    UDT          413     A     
 UDT      *                (X6) = TBL , ADDRESS OF TABLE POINTER                           UDT          414     A     
 UDT      *                (B2) = LEN , NUMBER OF ENTRIES IN TABLE                         UDT          415     A     
 UDT      *                                                                                UDT          416     A     
 UDT      *         EXIT   (X1) = INDX , TO LIST IN *IOL*                                  UDT          417     A     
 UDT      *                (X0) = LEN , OF LIST IN *IOL*                                   UDT          418     A     
 UDT      *                (X7) = L.IOL                                                    UDT          419     A     
 UDT      *                (B5) = *UDI* INDEX OF LAST ENTRY IN ARG LIST                    UDT          420     A     
 UDT                                                                                       UDT          421     A     
 UDT       CPL      ENTRY.                                                                 UDT          422     A     
 UDT                LX5    18                                                              UDT          423     A     
 UDT                PX4    B2,X5                                                           UDT          424     A     
 UDT                SX1    B2+B2                                                           UDT          425     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3658    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDT     
  
 UDT                BX5    X4+X6                                                           UDT          426     A     
 UDT                ALLOC  IOL,X1      ALLOC( IOL , 2*LEN )                                UDT          427     A     
 UDT                SX0    B6                                                              UDT          428     A     
 UDT                ALLOC  UDI,X1      ALLOC( UDI , 2*LEN );  UI = OLD(L.UDI)              UDT          429     A     
 UDT                SB4    X2          UDI = O.UDI                                         UDT          430     A     
 UDT                UX7    B2,X5       N = LEN                                             UDT          431     A     
 UDT                SA2    O.IOL                                                           UDT          432     A     
 UDT                IX1    X2+X0       S0 = O.IOL + OLD(L.IOL)                             UDT          433     A     
 UDT                SA0    X1          SI = S0       */ STORE INDEX                        UDT          434     A     
 UDT                SA4    X5                                                              UDT          435     A     
 UDT                AX7    18                                                              UDT          436     A     
 UDT                IX6    X4+X7                                                           UDT          437     A     
 UDT                MX0    -IH.CAIHL                                                       UDT          438     A     
 UDT                SA5    X6          TI = O.TBL + INDEX                                  UDT          439          I
          -FCC1088
 UDT                SA3    O.SYM                                                           FCC1088       35     A     
 UDT                SA5    X6+         TI = O.TBL + INDEX                                  FCC1088       36     A     
 UDT                SB7    X3-1                      (B7) = SYM-1                          FCC1088       37     A     
 UDT                                                                                       UDT          440     A     
 UDT       CPL1     BX7    -X0*X5      IHF = CAIH[TI]                                      UDT          441     A     
 UDT                LX5    59-AP.CRP                                                       UDT          442     A     
 UDT                PL     X5,CPL2     IF ^CR[TI]                                          UDT          443     A     
 UDT                SA3    CMRA                                                            UDT          444     A     
 UDT                LX5    1+AP.CRP                                                        UDT          445     A     
 UDT                BX7    X3+X7       CR[IHF] = 1;  CA[IHF] = -0                          UDT          446     A     
 UDT                EQ     CPL3                                                            UDT          447     A     
 UDT                                                                                       UDT          448     A     
 UDT       CPL2     LX5    AP.CRP-AP.P1P                                                   UDT          449     A     
 UDT                MI     X5,CPL4     IF P1[TI]     */ DOUBLE / COMPLEX                   UDT          450     A     
 UDT                LX5    1+AP.P1P                                                        UDT          451     A     
 UDT                                                                                       UDT          452     A     
 UDT       CPL3     RJ     SUI                                                             UDT          453     A     
 UDT                BX2    X2*X5                                                           UDT          454     A     
 UDT                SB2    B2-B1       N = N - 1                                           UDT          455     A     
 UDT                BX6    X2+X6                                                           UDT          456     A     
 UDT                SA5    A5+B1       TI = TI + 1                                         UDT          457     A     
 UDT                SA6    A0          [SI] = IO[TI] ! SUI( IHF )                          UDT          458          I
          -FCC0789
 UDT                SA6    A0          [SI] = (IO,USE)[TI] ! SUI( IHF )                    FCC0789       28     A     
 UDT                SA0    A0+B1       SI = SI + 1                                         UDT          459     A     
 UDT                NZ     B2,CPL1     IF N " 0                                            UDT          460     A     
 UDT                                                                                       UDT          461     A     
 UDT      *         SET EXIT CONDITIONS                                                    UDT          462     A     
 UDT                                                                                       UDT          463     A     
 UDT                SA2    O.IOL                                                           UDT          464     A     
 UDT                SB5    X6                                                              UDT          465     A     
 UDT                SX3    A0                                                              UDT          466     A     
 UDT                SX6    B6                                                              UDT          467     A     
 UDT                SA6    L.UDI       L.UDI = UI                                          UDT          468     A     
 UDT                IX7    X3-X2       L.IOL = SI - O.IOL                                  UDT          469     A     
 UDT                IX0    X3-X1       LEN = SI - S0 */ LIST LENGTH                        UDT          470     A     
 UDT                SA7    L.IOL                                                           UDT          471     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3659    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDT     
  
 UDT                IX1    X1-X2       INDX = S0 - O.IOL                                   UDT          472     A     
 UDT                EQ     CPL                                                             UDT          473     A     
 UDT                                                                                       UDT          474     A     
 UDT      *         DOUBLE/COMPLEX ENTRY                                                   UDT          475     A     
 UDT                                                                                       UDT          476     A     
 UDT       CPL4     LX5    1+AP.P1P                                                        UDT          477     A     
 UDT                RJ     SUI                                                             UDT          478     A     
 UDT                BX2    X2*X5                                                           UDT          479     A     
 UDT                SX4    B1                                                              UDT          480     A     
 UDT                BX6    X2+X6                                                           UDT          481     A     
 UDT                LX4    IH.CAP                                                          UDT          482     A     
 UDT                SA6    A0          [SI] = IO[TI] < SUI( IHF )                          UDT          483          I
          -FCC0789
 UDT                SA6    A0          [SI] = (IO,USE)[TI] ! SUI( IHF )                    FCC0789       29     A     
 UDT                SA0    A0+B1       SI = SI + 1                                         UDT          484     A     
 UDT                IX7    X4+X7       CA[IHF] = CA[IHF] + 1 */ CA ALWAYS POSITIVE         UDT          485     A     
 UDT                EQ     CPL3                                                            UDT          486     A     
 UDT       SUI      TITLE  SUI - SET *UDI* INDEX                                           UDT          487     A     
 UDT      **        SUI - SET *UDI* INDEX                                                  UDT          488     A     
 UDT      *                                                                                UDT          489     A     
 UDT      *         ENTRY  (X0) = MASK(-UA.CAIHL)                                          UDT          490     A     
 UDT      *                (X7) = IHF , CA,IH OF LOCATION                                  UDT          491     A     
 UDT      *                (B4) = O.UDI                                                    UDT          492     A     
 UDT      *                (B6) = UI , NEXT AVAIL LOC IN *UDI*                             UDT          493     A     
 UDT      *                (B7) = O.SYM - 1                                                FCC1088       38     A     
 UDT      *                                                                                UDT          494     A     
 UDT      *         EXIT   (X6) = U0 = INDEX TO IHF IN *UDI*                               UDT          495     A     
 UDT      *                (X2) = 1S59                                                     UDT          496          I
          -FCC0789
 UDT      *                (X2) = MASK(60-AP.USEP)  ( 3S58 )                               FCC0789       30     A     
 UDT      *                                                                                UDT          497     A     
 UDT      *         USES   B - 3, 5                                                        UDT          498     A     
 UDT      *                A - 2, 3, 6                                                     UDT          499     A     
 UDT      *                X - 2, 3, 4, 6                                                  UDT          500     A     
 UDT                                                                                       UDT          501     A     
 UDT       SUI0     SX6    B5+B5       U0 = 2*CL                                           UDT          502     A     
 UDT                MX2    1                                                               UDT          503          I
          -FCC0789
 UDT                MX2    -AP.USEP                                                        FCC0789       31     A     
 UDT                                                                                       UDT          504     A     
 UDT       SUI      ROUTINE                                                                UDT          505     A     
 UDT                LX6    B1,X7                                                           FCC1088       39     A     
 UDT                SB3    X6                                                              FCC1088       40     A     
 UDT                SA2    B7-B3       WORDB = SYM(IH)                                     FCC1088       41     A     
 UDT                SB5    B1          CL = 1        */ SET FOR LD ONLY CLASS              FCC1088       42     A     
 UDT                LX2    59-P.LDO                                                        FCC1088       43     A     
 UDT                MI     X2,SUI0     IF LDO[WORDB] */ VAR IS LD ONLY                     FCC1088       44     A     
 UDT                MX4    -6                                                              UDT          506     A     
 UDT                BX6    -X4*X7      HI = IHF & 77B                                      UDT          507     A     
 UDT                SA7    B4          [UDI] = IHF   */ SET SEARCH TERMINATOR              UDT          508     A     
 UDT                SB3    B0          C0 = 0                                              UDT          509          I
          -FCC1088
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3660    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDT     
  
 UDT                SA2    O.UDB+X6    CI = UDB(HI)                                        UDT          510     A     
 UDT                SX4    0                                                               UDT          511          I
          -FCC1088
 UDT                SX4    B0          C0 = 0                                              FCC1088       45     A     
 UDT                ZR     X2,SUI2     IF CI = 0     */ BASE TABLE ENTRY IS EMPTY          UDT          512     A     
 UDT                SB3    X2+         C0 = CI                                             UDT          513          I
          -FCC1088
 UDT                SB3    X2          C0 = CI                                             FCC1088       46     A     
 UDT                                                                                       UDT          514     A     
 UDT      *         SEARCH HASH CHAIN                                                      UDT          515     A     
 UDT                                                                                       UDT          516     A     
 UDT       SUI1     SA3    B4+X2       UDW = UDI(CI)                                       UDT          517     A     
 UDT                SB5    X2          CL = CI                                             UDT          518     A     
 UDT                BX6    X3-X7                                                           UDT          519     A     
 UDT                LX3    -UA.HLP                                                         UDT          520     A     
 UDT                SX2    X3          CI = HL[UDW]                                        UDT          521     A     
 UDT                BX4    -X0*X6                                                          UDT          522     A     
 UDT                NZ     X4,SUI1     IF CAIH[UDW] " IHF                                  UDT          523     A     
 UDT                                                                                       UDT          524     A     
 UDT                NZ     B5,SUI0     IF CL " 0     */ ENTRY IN TABLE                     UDT          525     A     
 UDT                                                                                       UDT          526     A     
 UDT      *         ADD ENTRY TO *UDI*                                                     UDT          527     A     
 UDT                                                                                       UDT          528     A     
 UDT                SX4    B3                                                              UDT          529     A     
 UDT                LX4    UA.HLP                                                          UDT          530     A     
 UDT       SUI2     BX6    X4+X7       UDI(UI) = UDIW(0,C0,IHF)                            UDT          531     A     
 UDT                SA6    B4+B6                                                           UDT          532     A     
 UDT                SX6    B6          U0 = UI                                             UDT          533     A     
 UDT                MX2    1                                                               UDT          534          I
          -FCC0789
 UDT                MX2    -AP.USEP                                                        FCC0789       32     A     
 UDT                SB6    B6+B1       UI = UI + 1                                         UDT          535     A     
 UDT                SA6    A2          UDB(HI) = U0                                        UDT          536     A     
 UDT                LX6    1           U0 = 2*U0                                           UDT          537     A     
 UDT                EQ     SUI                                                             UDT          538     A     
 UDT       PBB      TITLE  PBB - PROCESS BASIC BLOCK FOR OPT = 2                           UDT          539     A     
 UDT      **        PBB - PROCESS BASIC BLOCK FOR OPT = 2                                  UDT          540     A     
 UDT      *                                                                                UDT          541     A     
 UDT      *         SETUP *BIT* ENTRY FOR *TXT* IN BLOCK AND DUMP BLOCK TO MASS            UDT          542     A     
 UDT      *         STORAGE.                                                               UDT          543     A     
 UDT      *                                                                                UDT          544     A     
 UDT      *         ENTRY  *TXT* - SQUEEZED BASIC BLOCK                                    UDT          545     A     
 UDT      *                *IOL* - PARAMETER LIST INFO                                     UDT          546     A     
 UDT      *                                                                                UDT          547     A     
 UDT      *         EXIT   BLOCK WRITTEN TO MASS STORAGE                                   UDT          548     A     
 UDT      *                RI[*BOS*] = *BIT* INDEX OF BLOCK                                UDT          549     A     
 UDT      *                R2[*BOS*] = 42/0,18/L.TXT, INSTRUCTION LENGTH                   UDT          550     A     
 UDT                                                                                       UDT          551     A     
 UDT       PBB      ENTRY.                                                                 UDT          552     A     
 UDT                CALL   CMR         CHAIN MEMORY REFS TO *UDI*                          UDT          553     A     
 UDT                                                                                       UDT          554     A     
 UDT      *         SET INFO IN R1, R2 WORDS OF *BOS*                                      UDT          555     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3661    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDT     
  
 UDT                                                                                       UDT          556     A     
 UDT                SA3    O.TXT                                                           UDT          557     A     
 UDT                SA2    L.TXT                                                           UDT          558     A     
 UDT                SA1    L.IOL                                                           UDT          559     A     
 UDT                SA5    X3          R1 = [O.TXT]                                        UDT          560     A     
 UDT                MX0    -IH.IHL                                                         UDT          561     A     
 UDT                SA4    L.BIT                                                           UDT          562     A     
 UDT                BX5    X0*X5                                                           UDT          563     A     
 UDT                IX7    X4+X5       IH[R1] = L.BIT  */ SAVE BLOCK NUMBER                UDT          564     A     
 UDT                SA7    A5                                                              UDT          565     A     
 UDT                BX6    X2                                                              UDT          566     A     
 UDT                LX6    R2.TXTLP                                                        UDT          567     A     
 UDT                SA6    A7+B1       R2 = R1 + 1;  TXTL[R2] = L.TXT                      UDT          568     A     
 UDT                                                                                       UDT          569     A     
 UDT                IX7    X1+X2                                                           UDT          570     A     
 UDT                SA3    =XM.BBL                                                         UDT          571     A     
 UDT                IX0    X3-X7                                                           UDT          572     A     
 UDT                PL     X0,PBB0     M.BBL = MAX( M.BBL , L.TXT + L.IOL )                UDT          573     A     
 UDT                SA7    A3+                                                             UDT          574     A     
 UDT                                                                                       UDT          575     A     
 UDT       PBB0     ZR     X1,PBB1     IF L.IOL = 0  */ NO PARAMETER LISTS                 UDT          576     A     
 UDT                ALLOC  TXT,X1                                                          UDT          577     A     
 UDT                SX3    X2+B6                                                           UDT          578     A     
 UDT                SA2    O.IOL                                                           UDT          579     A     
 UDT                MOVE   X1,X2,X3    MOVE( L.IOL , O.IOL , O.TXT + OLD(L.TXT) )          UDT          580     A     
 UDT                MX6    0                                                               UDT          581     A     
 UDT                SA6    L.IOL       L.IOL = 0                                           UDT          582     A     
 UDT                SA6    =XPIOL      PIOL = 0                                            UDT          583     A     
 UDT                                                                                       UDT          584     A     
 UDT      *         SETUP *BIT* ENTRY, AND DUMP BLOCK TO MASS STORAGE                      UDT          585     A     
 UDT                                                                                       UDT          586     A     
 UDT       PBB1     ALLOC  BIT,1       ALLOC( BIT , 1 )                                    UDT          587     A     
 UDT                SA4    O.TXT       FSCM = [O.TXT]  */ FWA OF BLOCK                     UDT          588     A     
 UDT                SB5    X2+B6       BI = O.BIT + OLD(L.BIT)                             UDT          589     A     
 UDT                SA3    X4          R1 = [O.TXT]                                        UDT          590     A     
 UDT                LX3    -R1.INP                                                         UDT          591     A     
 UDT                SX6    X3                                                              UDT          592     A     
 UDT                LX6    BI.FLNP     FLN[BI] = IN[R1]                                    UDT          593     A     
 UDT                SA1    X4+4        R1 = R1 + 4   */ LOOKAT FIRST INSTRUCTION           UDT          594     A     
 UDT                UX7    B2,X1                                                           UDT          595     A     
 UDT                SB3    B2-OC.LAB                                                       UDT          596     A     
 UDT                NZ     B3,PBB2     IF OC[R1] " OC.LAB                                  UDT          597     A     
 UDT                SX0    B1                                                              UDT          598     A     
 UDT                SB4    X1          LIH = IH[R1]                                        UDT          599     A     
 UDT                LX0    BI.ILP      IL[BI] = 1                                          UDT          600     A     
 UDT                BX6    X0+X6                                                           UDT          601     A     
 UDT                                                                                       UDT          602     A     
 UDT       PBB2     SA2    X4+B1       LTXT = [O.TXT+1]                                    UDT          603     A     
 UDT                SB7    X2-8                                                            UDT          604     A     
 UDT                SA5    X4+B7       R1L = O.TXT + LTXT-8                                UDT          605     A     
 UDT                UX7    B2,X5                                                           UDT          606     A     
 UDT                SX0    B2-OC.UJP                                                       UDT          607     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3662    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDT     
  
 UDT                NZ     X0,PBB3     IF OC[R1L] " OC.UJP                                 UDT          608          I
          -FCC1755X 
 UDT                SX0    B1                                                              UDT          609          I
          -FCC1755X 
 UDT                ZR     X0,PBB2A    IF OC[RI] = OC.UJP                                  FCC1755X       5     A     
 UDT                SX0    B2-OC.JIN                                                       FCC1755X       6     A     
 UDT                NZ     X0,PBB3      IF OC[R1L] " OC.JIN                                FCC1755X       7     A     
 UDT       PBB2A    SX0    B1                                                              FCC1755X       8     A     
 UDT                LX0    BI.FJP                                                          UDT          610     A     
 UDT                BX6    X0+X6       FJ[BI] = 1    */ INDICATE FINAL *UJP*               UDT          611     A     
 UDT                SX7    X2-12                                                           UDT          612     A     
 UDT                NZ     X7,PBB3     IF LTXT " 12  */ NOT 2 INSTRUCTION BLOCK            UDT          613     A     
 UDT                NZ     B3,PBB3     IF OC[R1] " OC.LAB                                  UDT          614     A     
 UDT                LX0    BI.LJPP-BI.FJP                                                  UDT          615     A     
 UDT                BX6    X0+X6       LJP[BI] = 1   */ INDICATE LAB/JP ONLY               UDT          616     A     
 UDT                                                                                       UDT          617     A     
 UDT       PBB3     SA5    L.TXT                                                           UDT          618     A     
 UDT                SA3    =XL.PTXT                                                        UDT          619     A     
 UDT                IX7    X3+X5       L.PTXT = L.PTXT + L.TXT                             UDT          620     A     
 UDT                SA7    A3                                                              UDT          621     A     
 UDT                                                                                       UDT          622     A     
 UDT      *         INHIBIT COMBINATION OF LARGE BLOCKS WITH EXTERNAL REFS IN CBB          UDT          623     A     
 UDT                                                                                       UDT          624     A     
 UDT                SX7    X5-2004B                                                        UDT          625     A     
 UDT                SA3    =XXR                                                            UDT          626     A     
 UDT                MI     X7,PBB4     IF L.TXT < 2000B                                    UDT          627     A     
 UDT                LX3    1+BI.FJP                                                        UDT          628     A     
 UDT                BX6    X3+X6       FJ[BI] = XR                                         UDT          629     A     
 UDT                                                                                       UDT          630     A     
 UDT       PBB4     SX7    X5+2        L = L.TXT + 2                                       UDT          631     A     
 UDT                IX0    X4+X5       LTXT = O.TXT + L.TXT                                UDT          632     A     
 UDT                SA6    B5                                                              UDT          633     A     
 UDT                LX7    BT.LENP                                                         UDT          634     A     
 UDT                SA7    X0          [LTXT] = BTW(0,0,0,L)  */ TRAILER WORD              UDT          635     A     
 UDT                SX3    B6                                                              UDT          636     A     
 UDT                LX3    BH.BIP                                                          UDT          637     A     
 UDT                LX7    BH.LENP-BT.LENP                                                 UDT          638     A     
 UDT                BX7    X3+X7                                                           UDT          639     A     
 UDT                SA7    X4-1        [O.TXT-1] = BHW(0,OLD(L.BIT),0,L)                   UDT          640     A     
 UDT                SB2    0           FLCM = 0                                            UDT          641     A     
 UDT                CALL   SMB         SMB( O.TXT , L.TXT )                                UDT          642     A     
 UDT                ADDWRD BIT,X1      ADDWRD( BIT , RIW )                                 UDT          643     A     
 UDT                EQ     PBB                                                             UDT          644     A     
 UDT                                                                                       UDT          645     A     
 UDT                ENTRY  F.UDT                                                           UDT          646     A     
 UDT                                                                                       UDT          647     A     
 UDT       F.UDT    END                                                                    UDT          648     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - UDT     
  
          IDENTIFIER               TOTAL    ACTIVE
  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3663    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN UDT     
  
          UDT                        648       627
          FCC0789                      5         5
          FCC0807                      6         6
          FCC1088                     20        20
          FCCT005                      6         6
          FCC1755X                     4         4
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN READRL  
  
 READRL   *DECK     READRL                                                                 READRL         1     A     
 READRL             IDENT  READRL                                                          READRL         2     A     
 READRL    RRL      TITLE  READRL - RLIST FILE READ ROUTINES                               READRL         3     A     
 READRL   *CALL     SSTCALL                                                                READRL         4     A     
 READRL             PASS2TM                                                                READRL         5     A     
 READRL    B=RRL    RPVDEF                                                                 READRL         6     A     
 READRL    RRL      SPACE  3                                                               READRL         7     A     
 READRL   **        READRL - RLIST FILE READ ROUTINES                                      READRL         8     A     
 READRL                                                                                    READRL         9     A     
 READRL    L.RLB    EQU    200B        LENGTH OF INTERMEDIATE RLIST BUFFER                 READRL        10     A     
 READRL                                                                                    READRL        11     A     
 READRL    RLI      ENTRY.             DESCRIPTOR AND RLIST WORDS                          READRL        12     A     
 READRL             BSS    2                                                               READRL        13     A     
 READRL                                                                                    READRL        14     A     
 READRL    O.MAC    ENTRY. 0           ADDRESS OF MACRO REFERENCE                          READRL        15     A     
 READRL             SPACE  3                                                               READRL        16     A     
 READRL   *         THE SIZE OF *EMRB* MUST BE SET LARGE ENOUGH AS TO ACCOMIDATE           READRL        17     A     
 READRL   *                A) THE LARGEST MACRO IN *MACROX*                                READRL        18     A     
 READRL   *                B) A *IXFN* MACRO WITH 7 DIMENSIONS ( 7*4+... )                 READRL        19     A     
 READRL   *                C) I/O LIST DEF MACROS OF UP TO 30D WORDS.                      READRL        20     A     
 READRL   *         DO NOT DISTURB THE CELLS BETWEEN F.MAC AND BP .                        READRL        21     A     
 READRL                                                                                    READRL        22     A     
 READRL    F.MAC    CON    0           LWA+1 OF MACRO EXPANSION                            READRL        23     A     
 READRL    MACWDS   ENTRY. 0           - ( NUMBER OF WORDS REMAINING )                     READRL        24     A     
 READRL    MACTYP   ENTRY.             MACRO TYPE                                          READRL        25     A     
 READRL    MACINS   ENTRY.             NUMBER OF INSTRUCTIONS IN MACRO                     READRL        26     A     
 READRL             ENTRY  O.EMRB                                                          READRL        27     A     
 READRL    O.EMRB   BSS    30D        *EMR* EXPANSION BUFFER ( MUST PRECEED *RLB*)         READRL        28     A     
 READRL    RLB      BSS    L.RLB       RLIST BUFFER                                        READRL        29     A     
 READRL    RLBL     BSS    0           LWA+1 OF THE BUFFER                                 READRL        30     A     
 READRL    BP       CON    0           RLB POINTER ( NEGATIVE INDEX )                      READRL        31     A     
 READRL    MB       CON    0           MACRO BIAS                                          READRL        32     A     
 READRL    RRL      TITLE  RRL - READ RLIST FILE                                           READRL        33     A     
 READRL   **        RRL - READ NEXT *IL* INSTRUCTION OR RMACRO FROM RLIST FILE             READRL        34     A     
 READRL   *                                                                                READRL        35     A     
 READRL   *         EXIT   (RLI - RLI+2) = DESCRIPTOR, R1 AND R2 WORDS OF NEXT             READRL        36     A     
 READRL   *                *IL* INSTRUCTION, OR IN THE CASE OF A MACRO -                   READRL        37     A     
 READRL   *                (RLI+1) = MACRO HEADER WORD                                     READRL        38     A     
 READRL   *                (O.MAC) = FWA OF THE MACRO IN *EMRB*                            READRL        39     A     
 READRL                                                                                    READRL        40     A     
 READRL    RRL      ENTRY.                                                                 READRL        41     A     
 READRL             QUAL   CODE                                                            READRL        42     A     
 READRL             RJ     ROW         READ A WORD                                         READRL        43     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3664    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN READRL  
  
 READRL             UX5    B2,X7                                                           READRL        44     A     
 READRL             SA7    RLI+1                                                           READRL        45     A     
 READRL             PL     B2,RRL3     IF NOT A MACRO                                      READRL        46     A     
 READRL                                                                                    READRL        47     A     
 READRL   *         MACRO - SEE IF IS CONTAINED IN THE BUFFER                              READRL        48     A     
 READRL                                                                                    READRL        49     A     
 READRL             SA1    BP                                                              READRL        50     A     
 READRL             AX5    R1.INP      POSITION WORD COUNT                                 READRL        51     A     
 READRL             SX6    RLBL-1+X1                                                       READRL        52     A     
 READRL             SA6    O.MAC       SET ADDRESS OF MACRO REFERENCE                      READRL        53     A     
 READRL             IX7    X5+X1       WDS IN MACRO - WDS LEFT IN BUFFER                   READRL        54     A     
 READRL             SA7    A1                                                              READRL        55     A     
 READRL             MI     X7,RRL      IF MACRO IS IN THE BUFFER                           READRL        56     A     
 READRL             ZR     X7,RRL                                                          READRL        57     A     
 READRL             SA7    MB          SAVE MACRO BIAS                                     READRL        58     A     
 READRL             SX4    X1-1                                                            READRL        59     A     
 READRL             BX1    -X4         N.WDS OF MACRO IN BUFFER                            READRL        60     A     
 READRL             SX6    RLB+X4      MACRO START ADDRESS                                 READRL        61     A     
 READRL             SA6    A6          RESET O.MAC                                         READRL        62     A     
 READRL             MOVE   X1,RLBL+X4,X6     MOVE MACRO DOWN                               READRL        63     A     
 READRL             RJ     RFB         REFILL BUFFER                                       READRL        64     A     
 READRL             SA1    BP                                                              READRL        65     A     
 READRL             SA2    MB          ADJUST BP TO ACCOUNT FOR PARTIAL MACRO              READRL        66     A     
 READRL             IX6    X2+X1       AT THE BEGINNING OF THE BUFFER                      READRL        67     A     
 READRL             SA6    A1                                                              READRL        68     A     
 READRL             EQ     RRL                                                             READRL        69     A     
 READRL                                                                                    READRL        70     A     
 READRL   *         *IL* INSTRUCTION - SET DESCR IN OUTPUT BUFFER AND GET                  READRL        71     A     
 READRL   *         SECOND WORD FOR TYPE 3 ENTRIES.                                        READRL        72     A     
 READRL                                                                                    READRL        73     A     
 READRL    RRL3     SA1    =XF.RDT+B2                                                      READRL        74     A     
 READRL             MX0    -D.TYL                                                          READRL        75     A     
 READRL             BX6    X1                                                              READRL        76     A     
 READRL             AX1    D.TYP                                                           READRL        77     A     
 READRL             SA6    A7-B1       RLI = DESCR(OC)                                     READRL        78     A     
 READRL             BX4    X0+X1                                                           READRL        79     A     
 READRL             IX7    X7-X7                                                           READRL        80     A     
 READRL             SX3    X4+B1                                                           READRL        81     A     
 READRL             SA7    A7+B1       [RLI+2] = 0                                         READRL        82     A     
 READRL             NZ     X3,RRL      IF NOT TYPE 3                                       READRL        83     A     
 READRL             RJ     ROW                                                             READRL        84     A     
 READRL             SA7    RLI+2       STORE THE SECOND WORD                               READRL        85     A     
 READRL             EQ     RRL                                                             READRL        86     A     
 READRL    ROW      SPACE  3,8         ROW                                                 READRL        87     A     
 READRL   **        ROW - READ ONE WORD OF RLIST FROM MACRO BUFFER/*RLB*                   READRL        88     A     
 READRL   *         EXIT   (X3) = (X7) = WORD READ                                         READRL        89     A     
 READRL                                                                                    READRL        90     A     
 READRL    ROW0     SA2    F.MAC                                                           READRL        91     A     
 READRL             SX6    X1+B1       ADVANCE BUFFER POINTER                              READRL        92     A     
 READRL             IX4    X2+X1                                                           READRL        93     A     
 READRL             SA3    X4          FETCH WORD                                          READRL        94     A     
 READRL             BX7    X3                                                              READRL        95     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3665    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN READRL  
  
 READRL             SA6    A1+0                                                            READRL        96     A     
 READRL    ROW      ROUTINE                                                                READRL        97     A     
 READRL             SA1    MACWDS                                                          READRL        98     A     
 READRL             SA2    BP                                                              READRL        99     A     
 READRL             NZ     X1,ROW0     IF READING FROM A MACRO EXPANSION                   READRL       100     A     
 READRL             SA3    RLBL+X2     FETCH WORD                                          READRL       101     A     
 READRL             SX6    X2+B1       ADVANCE BUFFER POINTER                              READRL       102     A     
 READRL             BX7    X3                                                              READRL       103     A     
 READRL             SA6    A2+0                                                            READRL       104     A     
 READRL             MI     X2,ROW      IF WORD WAS FROM THE BUFFER                         READRL       105     A     
 READRL             RJ     RFB         REFILL THE BUFFER                                   READRL       106     A     
 READRL             SA2    BP                                                              READRL       107     A     
 READRL             SA3    RLBL+X2                                                         READRL       108     A     
 READRL             SX6    X2+B1       ADVANCE BUFFER INDEX                                READRL       109     A     
 READRL             BX7    X3                                                              READRL       110     A     
 READRL             SA6    A2                                                              READRL       111     A     
 READRL             EQ     ROW                                                             READRL       112     A     
 READRL    RFB      SPACE  3           RFB                                                 READRL       113     A     
 READRL   **        RFB - REFILL BUFFER                                                    READRL       114     A     
 READRL                                                                                    READRL       115     A     
 READRL    RFB      ROUTINE                                                                READRL       116     A     
 READRL             SX6    -L.RLB                                                          READRL       117     A     
 READRL             SA6    BP                                                              READRL       118     A     
 READRL             BX4    -X6                                                             READRL       119     A     
 READRL             READW  =XF.RLST,RLBL+X6,X4  REFILL BUFFER                              READRL       120     A     
 READRL             EQ     RFB                                                             READRL       121     A     
 READRL    EMR      TITLE  EMR - EXPAND MACRO REFERENCE                                    READRL       122     A     
 READRL   **        EMR - EXPAND MACRO REFERENCE                                           READRL       123     A     
 READRL   *                                                                                READRL       124     A     
 READRL   *         ENTRY  (X1) = FWA OF MACRO  REFERENCE                                  READRL       125     A     
 READRL   *                                                                                READRL       126     A     
 READRL   *         EXIT   (MACWDS) = N.WORDS IN MACRO                                     READRL       127     A     
 READRL   *                (MACTYP) = MACRO TYPE ( FROM *ENDR* CARD )                      READRL       128     A     
 READRL   *                (MACINS) = N.*IL* INSTRUCTION IN MACRO                          READRL       129     A     
 READRL   *                (F.MAC) = LWA+1 OF MACRO EXPANSION                              READRL       130     A     
 READRL   *                THE R1 AND R2 WORDS OF THE *IL* INSTRUCTIONS IN THE             READRL       131     A     
 READRL   *                MACRO ARE STORED IN *EMRB*.                                     READRL       132     A     
 READRL                                                                                    READRL       133     A     
 READRL    OC       MICRO  1,,/B2/     REGISTER USEAGE                                     READRL       134     A     
 READRL    SY       MICRO  1,,/B3/                                                         READRL       135     A     
 READRL    RN       MICRO  1,,/B4/                                                         READRL       136     A     
 READRL    CA       MICRO  1,,/B5/                                                         READRL       137     A     
 READRL    IR       MICRO  1,,/B6/                                                         READRL       138     A     
 READRL                                                                                    READRL       139     A     
 READRL             EXT    SBUF,RBUF,CBUF,F.MACD                                           READRL       140     A     
 READRL    EMR      SPACE  2                                                               READRL       141     A     
 READRL    EMR0     SX7    A7+1        (F.MAC) = LWA+1 OF MACRO EXPANSION                  READRL       142     A     
 READRL             SA7    F.MAC                                                           READRL       143     A     
 READRL                                                                                    READRL       144     A     
 READRL             QUAL                                                                   READRL       145     A     
 READRL    EMR      ENTRY.                                                                 READRL       146     A     
 READRL             QUAL   CODE                                                            READRL       147     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3666    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN READRL  
  
 READRL             SA1    X1          FIRST WORD OF THE MACRO REF                         READRL       148     A     
 READRL             UX2    "OC",X1                                                         READRL       149     A     
 READRL             SA4    =XNIRN      NEXT INTERMEDIATE R-NUMBER                          READRL       150     A     
 READRL             MX0    -6                                                              READRL       151     A     
 READRL             S"OC"  -"OC"       MAKE OPCODE POSITIVE                                READRL       152     A     
 READRL             SA3    F.MACD+"OC" (X3) = MACRO DESCRIPTOR WORD                        READRL       153     A     
 READRL             S"IR"  X4-100001B  (B6) = BASE OF INTERMEDIATE R NUMBERS               READRL       154     A     
 READRL             SA5    X3          (X5) = MACRO TEXT WORD                              READRL       155     A     
 READRL             AX3    18                                                              READRL       156     A     
 READRL             BX7    X0+X3       - WORD COUNT                                        READRL       157     A     
 READRL             AX3    6                                                               READRL       158     A     
 READRL             SA7    MACWDS                                                          READRL       159     A     
 READRL             BX7    -X0*X3                                                          READRL       160     A     
 READRL             AX3    6                                                               READRL       161     A     
 READRL             SA7    A7+B1       MACRO TYPE                                          READRL       162     A     
 READRL             BX7    -X0*X3                                                          READRL       163     A     
 READRL             SB7    X7          (B7) = NUMBER OF WORDS LEFT IN MACRO SKELTO         READRL       164     A     
 READRL             SA7    A7+B1       NUMBER OF INSTRUCTIONS                              READRL       165     A     
 READRL             AX3    6                                                               READRL       166     A     
 READRL             BX2    -X0*X3      NUMBER OF GENERATED R NUMBERS                       READRL       167     A     
 READRL             AX3    6                                                               READRL       168     A     
 READRL             IX6    X2+X4       ADVANCE RNUMBER COUNTER                             READRL       169     A     
 READRL             SA6    A4                                                              READRL       170     A     
 READRL                                                                                    READRL       171     A     
 READRL   *         UNPACK MACRO PARAMS TO THEIR BUFFERS                                   READRL       172     A     
 READRL                                                                                    READRL       173     A     
 READRL             BX4    -X0*X3                                                          READRL       174     A     
 READRL             MX6    0                                                               READRL       175     A     
 READRL             SA1    A1+B1                                                           READRL       176     A     
 READRL             ZR     X4,EMR2     IF NO SYM PARAMS                                    READRL       177     A     
 READRL             SA6    SBUF                                                            READRL       178     A     
 READRL             MX7    -RM.IHL                                                         READRL       179     A     
 READRL             SB4    X4                                                              READRL       180     A     
 READRL             SB2    RM.IHL                                                          READRL       181     A     
 READRL    EMR1     BX6    -X7*X1                                                          READRL       182     A     
 READRL             SA6    A6+B1       STORE SYM PARAMS                                    READRL       183     A     
 READRL             LX2    B2,X1                                                           READRL       184     A     
 READRL             SA1    A1+B1       NEXT MACRO REF WORD                                 READRL       185     A     
 READRL             SB4    B4-2                                                            READRL       186     A     
 READRL             BX6    -X7*X2                                                          READRL       187     A     
 READRL             SA6    A6+B1                                                           READRL       188     A     
 READRL             GT     B4,EMR1                                                         READRL       189     A     
 READRL                                                                                    READRL       190     A     
 READRL    EMR2     AX3    6                                                               READRL       191     A     
 READRL             SX6    B1                                                              READRL       192     A     
 READRL             MX7    -RM.RIL                                                         READRL       193     A     
 READRL             BX4    -X3+X0                                                          READRL       194     A     
 READRL             SA6    RBUF+1                                                          READRL       195     A     
 READRL             SB3    -3                                                              READRL       196     A     
 READRL             SB4    X4                                                              READRL       197     A     
 READRL             SB2    RM.RIL                                                          READRL       198     A     
 READRL             GE     B4,B3,EMR4  IF -N \ -3                                          READRL       199     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3667    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN READRL  
  
 READRL    EMR3     BX6    -X7*X1                                                          READRL       200     A     
 READRL             AX1    B2,X1                                                           READRL       201     A     
 READRL             SA6    A6+B1                                                           READRL       202     A     
 READRL             BX6    -X7*X1                                                          READRL       203     A     
 READRL             SA6    A6+B1                                                           READRL       204     A     
 READRL             AX2    B2,X1                                                           READRL       205     A     
 READRL             SA1    A1+B1                                                           READRL       206     A     
 READRL             SB4    B4-B3                                                           READRL       207     A     
 READRL             BX6    -X7*X2                                                          READRL       208     A     
 READRL             SA6    A6+B1                                                           READRL       209     A     
 READRL             LT     B4,B3,EMR3                                                      READRL       210     A     
 READRL                                                                                    READRL       211     A     
 READRL    EMR4     JP     EMR5+B4                                                         READRL       212     A     
 READRL   +         BX6    -X7*X1                                                          READRL       213     A     
 READRL             SA6    A6+B1                                                           READRL       214     A     
 READRL             AX1    B2,X1                                                           READRL       215     A     
 READRL   +         BX6    -X7*X1                                                          READRL       216     A     
 READRL             SA6    A6+B1                                                           READRL       217     A     
 READRL             AX1    B2,X1                                                           READRL       218     A     
 READRL   +         BX6    -X7*X1                                                          READRL       219     A     
 READRL             SA1    A1+B1                                                           READRL       220     A     
 READRL             NO                                                                     READRL       221     A     
 READRL             SA6    A6+B1                                                           READRL       222     A     
 READRL                                                                                    READRL       223     A     
 READRL    EMR5     AX3    6                                                               READRL       224     A     
 READRL             BX4    -X3+X0                                                          READRL       225     A     
 READRL             ZR     X4,EMR6     IF NO PARAMETRIC CONS / FINISHED                    READRL       226     A     
 READRL             MX7    -RM.CAL                                                         READRL       227     A     
 READRL             SB4    X4                                                              READRL       228     A     
 READRL             MX6    0                                                               READRL       229     A     
 READRL             SB2    RM.CAL                                                          READRL       230     A     
 READRL             SA6    CBUF                                                            READRL       231     A     
 READRL             GE     B4,B3,EMR4  IF -N \ -3                                          READRL       232     A     
 READRL             EQ     EMR3                                                            READRL       233     A     
 READRL                                                                                    READRL       234     A     
 READRL   **        EXPAND THE MACRO REFERENCE                                             READRL       235     A     
 READRL   *         X5 = MACRO TEXT WORD , B7 = NUMBER OF WORDS LEFT , A7 = STORE          READRL       236     A     
 READRL                                                                                    READRL       237     A     
 READRL    EMR6     S"SY"  SBUF        INITIALIZE REGISTERS FOR THE EXPANSION              READRL       238     A     
 READRL             S"RN"  RBUF                                                            READRL       239     A     
 READRL             MX0    -R1.RIL                                                         READRL       240     A     
 READRL             S"CA"  CBUF                                                            READRL       241     A     
 READRL             MX6    -R1.CAL                                                         READRL       242     A     
 READRL                                                                                    READRL       243     A     
 READRL    EMR7     UX4    "OC",X5                                                         READRL       244     A     
 READRL             SA1    F.RDT+"OC"  FETCH DESCRIPTOR                                    READRL       245     A     
 READRL             LX1    58-D.TYP                                                        READRL       246     A     
 READRL             IX2    X1+X1                                                           READRL       247     A     
 READRL             MI     X1,EMR15    IF TYPES 3 OR 4                                     READRL       248     A     
 READRL                                                                                    READRL       249     A     
 READRL   *         EXPAND A TYPE 1 RLIST INST                                             READRL       250     A     
 READRL                                                                                    READRL       251     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3668    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN READRL  
  
 READRL             BX3    -X0*X5      RI                                                  READRL       252     A     
 READRL             LX5    -R1.RIL                                                         READRL       253     A     
 READRL             SX4    X3+"IR"                                                         READRL       254     A     
 READRL             BX1    -X0*X5      RK                                                  READRL       255     A     
 READRL             MI     X5,EMR8     IF A GENERATED R                                    READRL       256     A     
 READRL             SA4    "RN"+X3                                                         READRL       257     A     
 READRL    EMR8     PX7    "OC",X4                                                         READRL       258     A     
 READRL             MI     X2,EMR12    IF TYPE 2                                           READRL       259     A     
 READRL             LX5    -R1.RIL                                                         READRL       260     A     
 READRL             SX2    X1+"IR"                                                         READRL       261     A     
 READRL             MI     X5,EMR9     IF A GENERATED R                                    READRL       262     A     
 READRL             SA2    "RN"+X1                                                         READRL       263     A     
 READRL    EMR9     BX3    -X0*X5      EXTRACT RJ                                          READRL       264     A     
 READRL             LX5    -R1.RIL                                                         READRL       265     A     
 READRL             SX4    "IR"+X3                                                         READRL       266     A     
 READRL             LX2    R1.RKP                                                          READRL       267     A     
 READRL             BX7    X2+X7                                                           READRL       268     A     
 READRL             MI     X5,EMR10    IF A GENERATED R                                    READRL       269     A     
 READRL             SA4    "RN"+X3                                                         READRL       270     A     
 READRL    EMR10    SA5    A5+B1       NEXT TEXT WORD                                      READRL       271     A     
 READRL             LX4    R1.RJP                                                          READRL       272     A     
 READRL             SB7    B7-B1       I = I - 1                                           READRL       273     A     
 READRL             BX7    X4+X7                                                           READRL       274     A     
 READRL             SA7    A7+B1                                                           READRL       275     A     
 READRL             GT     B7,EMR7     IF MORE TO PROCESS                                  READRL       276     A     
 READRL             EQ     EMR0                                                            READRL       277     A     
 READRL                                                                                    READRL       278     A     
 READRL   *         EXPAND A TYPE 2 REFERENCE                                              READRL       279     A     
 READRL                                                                                    READRL       280     A     
 READRL    EMR12    MX2    -R1.SOL+1                                                       READRL       281     A     
 READRL             BX4    -X2*X5      EXTRACT *SO* FIELD                                  READRL       282     A     
 READRL             LX5    -R1.SOL                                                         READRL       283     A     
 READRL             BX3    -X6*X5      EXTRACT CA                                          READRL       284     A     
 READRL             LX4    R1.SOP                                                          READRL       285     A     
 READRL             PL     X5,EMR13    IF A CON                                            READRL       286     A     
 READRL             SA3    "CA"+X3     PARAMETRIC VALUE                                    READRL       287     A     
 READRL    EMR13    LX3    R1.CAP                                                          READRL       288     A     
 READRL             SA5    A5+B1       NEXT TEXT WORD                                      READRL       289     A     
 READRL             BX4    X7+X4                                                           READRL       290     A     
 READRL             SB7    B7-B1       I = I - 1                                           READRL       291     A     
 READRL             IX7    X3+X4                                                           READRL       292     A     
 READRL             SA7    A7+B1                                                           READRL       293     A     
 READRL             GT     B7,EMR7     IF MORE TO PROCESS                                  READRL       294     A     
 READRL             EQ     EMR0                                                            READRL       295     A     
 READRL                                                                                    READRL       296     A     
 READRL   *         EXPAND A TYPE 3 REFERENCE                                              READRL       297     A     
 READRL   *         MACRO SKELTON WORD IS - 12/OC,3/SY,12/CA,1/CAF,16/RF,16/RI             READRL       298     A     
 READRL                                                                                    READRL       299     A     
 READRL    EMR15    MI     X2,EMR19    IF TYPE 4                                           READRL       300     A     
 READRL             BX3    -X0*X5      RI                                                  READRL       301     A     
 READRL             LX5    -R1.RIL                                                         READRL       302     A     
 READRL             SX2    "IR"+X3                                                         READRL       303     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3669    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN READRL  
  
 READRL             MI     X5,EMR16    IF A GENERATED R                                    READRL       304     A     
 READRL             SA2    "RN"+X3     GET PARAMETRIC RI                                   READRL       305     A     
 READRL    EMR16    BX3    -X0*X5      RF                                                  READRL       306     A     
 READRL             AX4    45                                                              READRL       307     A     
 READRL             PX7    "OC",X2                                                         READRL       308     A     
 READRL             LX5    -R1.RIL                                                         READRL       309     A     
 READRL             SX2    "IR"+X3                                                         READRL       310     A     
 READRL             MI     X5,EMR17    IF A GENERATED R                                    READRL       311     A     
 READRL             SA2    "RN"+X3                                                         READRL       312     A     
 READRL    EMR17    LX2    IH.RFP                                                          READRL       313     A     
 READRL             SA4    "SY"+X4     FETCH SY VALUE                                      READRL       314     A     
 READRL             LX5    2*R1.RIL+15       CA TO TOP BIT                                 READRL       315     A     
 READRL             SB7    B7-B1       I = I - 1                                           READRL       316     A     
 READRL             AX5    2*R1.RIL+15       SIGN EXTEND CA                                READRL       317     A     
 READRL             SA7    A7+B1       STORE FIRST WORD                                    READRL       318     A     
 READRL             BX3    X2+X4                                                           READRL       319     A     
 READRL             LX5    -1                                                              READRL       320     A     
 READRL             BX1    -X6*X5                                                          READRL       321     A     
 READRL             PL     X5,EMR18    IF AN ACTUAL CA                                     READRL       322     A     
 READRL             SA1    "CA"+X1                                                         READRL       323     A     
 READRL    EMR18    SA5    A5+B1       NEXT TEXT WORD                                      READRL       324     A     
 READRL             LX1    IH.CAP                                                          READRL       325     A     
 READRL             BX7    X1+X3                                                           READRL       326     A     
 READRL             SA7    A7+B1       STORE SECOND WORD                                   READRL       327     A     
 READRL             GT     B7,EMR7     IF MORE TO PROCESS                                  READRL       328     A     
 READRL             EQ     EMR0                                                            READRL       329     A     
 READRL                                                                                    READRL       330     A     
 READRL   *         EXPAND A TYPE 4 REFERENCE                                              READRL       331     A     
 READRL                                                                                    READRL       332     A     
 READRL    EMR19    SA1    "SY"+X5     IH VALUE                                            READRL       333     A     
 READRL             LX5    -R1.CAP                                                         READRL       334     A     
 READRL             SA4    "CA"+X5     GET FORMAL CA ( ALWAYS )                            READRL       335     A     
 READRL             PX3    "OC",X1                                                         READRL       336     A     
 READRL             SB7    B7-B1       I = I - 1                                           READRL       337     A     
 READRL             LX4    R1.CAP                                                          READRL       338     A     
 READRL             SA5    A5+B1       NEXT TEXT WORD                                      READRL       339     A     
 READRL             BX7    X4+X3       COMBINE FIELDS                                      READRL       340     A     
 READRL             SA7    A7+1                                                            READRL       341     A     
 READRL             GT     B7,EMR7     IF MORE TO PROCESS                                  READRL       342     A     
 READRL             EQ     EMR0                                                            READRL       343     A     
 READRL                                                                                    READRL       344     A     
 READRL             END                                                                    READRL       345     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - READRL  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          READRL                     345       345
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX   *DECK     MACROX                                                                 MACROX         1     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3670    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             IDENT  MACROX                                                          MACROX         2     A     
 MACROX    MACROX   TITLE  MACROX - OBJECT CODE PRODUCTION DATA BASE                       MACROX         3     A     
 MACROX   *CALL     SSTCALL                                                                MACROX         4     A     
 MACROX    B=MACRX  RPVDEF                                                                 MACROX         5     A     
 MACROX             LIST   -R          ** TURN OFF THE REF MAP **                          MACROX         6     A     
 MACROX    MACROX   SPACE  3                                                               MACROX         7     A     
 MACROX   **        MACROX - OBJECT CODE PRODUCTION DATA BASE                              MACROX         8     A     
 MACROX   *                                                                                MACROX         9     A     
 MACROX   *         MACROX CONTAINS 2 TABLES WHICH DEFINE THE CODE PRODUCED                MACROX        10     A     
 MACROX   *         FOR A GIVEN "RLIST" MACRO CALL.                                        MACROX        11     A     
 MACROX   *                                                                                MACROX        12     A     
 MACROX   *         THE MACRO DESCRIPTOR TABLE, STARTING AT "MACDESC" CONTAINS             MACROX        13     A     
 MACROX   *         ONE WORD FOR EACH RLIST MACRO DESCRIBING -                             MACROX        14     A     
 MACROX   *         THE NUMBER OF SYMBOLS, R NUMBERS, CONSTANTS, INTERMEDIATE              MACROX        15     A     
 MACROX   *         PARAMETERS, AND THE FWA AND LENGTH OF THE MACRO.                       MACROX        16     A     
 MACROX   *                                                                                MACROX        17     A     
 MACROX   *         THE SECOND TABLE CONTAINS THE MACRO TEXT NECESSARY IN ORDER            MACROX        18     A     
 MACROX   *         FOR *EMR* TO EXPAND THE MACRO INTO *IL* BY SUBSTITUTING                MACROX        19     A     
 MACROX   *         THE ACTUAL PARAMETERS FROM THE MACRO CALL.                             MACROX        20     A     
 MACROX                                                                                    MACROX        21     A     
 MACROX             USE    MACTEXT     MACRO TEXT BLOCK                                    MACROX        22     A     
 MACROX             USE    MACDESC     TABLE OF DESCRIPTORS                                MACROX        23     A     
 MACROX    MACDESC  BSS    0                                                               MACROX        24     A     
 MACROX                                                                                    MACROX        25     A     
 MACROX             ENTRY  MACORG                                                          MACROX        26     A     
 MACROX    MACORG   EQU    100B        BASE NUMBER OF MACROX MACROS                        MACROX        27     A     
 MACROX    MACNUM   SET    MACORG      INITIALIZE MACNUM                                   MACROX        28     A     
 MACROX             ENTRY  F.MACD                                                          MACROX        29     A     
 MACROX    F.MACD   EQU    MACDESC-MACORG    BASE OF MACRO DESCRIPTOR TABLE                MACROX        30     A     
 MACROX                                                                                    MACROX        31     A     
 MACROX             ECHO   1,X=(SM,CM,RM,.UNUS)                                            MACROX        32     A     
 MACROX    X        SET    0                                                               MACROX        33     A     
 MACROX                                                                                    MACROX        34     A     
 MACROX    AVAIL    MICRO  ,,          EMPTY                                               MACROX        35     A     
 MACROX                                                                                    MACROX        36     A     
 MACROX   *         PARAMETER EXPANSION BUFFERS FOR *EMR*                                  MACROX        37     A     
 MACROX                                                                                    MACROX        38     A     
 MACROX             RMT                                                                    MACROX        39     A     
 MACROX             USE    MACTEXT                                                         MACROX        40     A     
 MACROX             ENTRY  SBUF,RBUF,CBUF                                                  MACROX        41     A     
 MACROX             LIST   D                                                               MACROX        42     A     
 MACROX    SBUF     BSSZ   SM+2        SYMBOL BUFFER                                       MACROX        43     A     
 MACROX    RBUF     CON    0,1         R NUMBER BUFFER                                     MACROX        44     A     
 MACROX             BSSZ   RM+2                                                            MACROX        45     A     
 MACROX    CBUF     BSSZ   CM+3        CONSTANT PARAM BUFFER                               MACROX        46     A     
 MACROX             RMT                                                                    MACROX        47     A     
 MACROX    MACROS   TITLE  MACRO DEFINITIONS                                               MACROX        48     A     
 MACROX   **        DEFINE SYMBOLS USED IN RMACROS                                         MACROX        49     A     
 MACROX   *                PJ - J"TH PARAMETRIC R-NUMBER                                   MACROX        50     A     
 MACROX   *                IJ - J"TH INTERMEDIATE R-NUMBER                                 MACROX        51     A     
 MACROX   *                KJ - J"TH PARAMETRIC CONSTANT                                   MACROX        52     A     
 MACROX   *                THE J"TH PARAMETRIC SYMBOL IS REFERED TO BY ITS NUMBER.         MACROX        53     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3671    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX                                                                                    MACROX        54     A     
 MACROX    X        SET    1                                                               MACROX        55     A     
 MACROX             DUP    24                                                              MACROX        56     A     
 MACROX    C        DECMIC X                                                               MACROX        57     A     
 MACROX    I"C"     EQU    1S15+X                                                          MACROX        58     A     
 MACROX             NOREF  I"C"                                                            MACROX        59     A     
 MACROX             IFLT   X,9,3                                                           MACROX        60     A     
 MACROX             NOREF  P"C",K"C"                                                       MACROX        61     A     
 MACROX    P"C"     EQU    X+1                                                             MACROX        62     A     
 MACROX    K"C"     EQU    X                                                               MACROX        63     A     
 MACROX    X        SET    X+1                                                             MACROX        64     A     
 MACROX             ENDD                                                                   MACROX        65     A     
 MACROX    TYPEI SPACE 3                                                                   MACROX        66     A     
 MACROX   **        TYPEI - GENERATE TYPE I *IL* INSTRUCTION MACRO DEFINITION              MACROX        67     A     
 MACROX   *                VFD  12/1S10+OC,16/RJ,16/RK,16/RI                               MACROX        68     A     
 MACROX                                                                                    MACROX        69     A     
 MACROX             MACRO  TYPEI,NAM,OC,SS                                                 MACROX        70     A     
 MACROX    C        GETARG 23,4,(SS)                                                       MACROX        71     A     
 MACROX    Z        IFC    NE,/"C"/COMM/                                                   MACROX        72     A     
 MACROX    NAM      MACRO  RI,RJ,RK                                                        MACROX        73     A     
 MACROX     VFD 12/OC,16/RJ,16/RK,16/RI                                                    MACROX        74     A     
 MACROX   IMAX MAX IMAX,RI-100000B                                                         MACROX        75     A     
 MACROX    NAM      ENDM                                                                   MACROX        76     A     
 MACROX    Z        ELSE                                                                   MACROX        77     A     
 MACROX    NAM      MACRO  RI,RJ,RK                                                        MACROX        78     A     
 MACROX     IFGE RJ,RK,2                                                                   MACROX        79     A     
 MACROX     VFD 12/OC,16/RJ,16/RK,16/RI                                                    MACROX        80     A     
 MACROX             SKIP   2                                                               MACROX        81     A     
 MACROX     VFD 12/OC                                                                      MACROX        82     A     
 MACROX     VFD 16/RK,16/RJ,16/RI                                                          MACROX        83     A     
 MACROX   IMAX MAX IMAX,RI-100000B                                                         MACROX        84     A     
 MACROX    NAM      ENDM                                                                   MACROX        85     A     
 MACROX    Z        ENDIF                                                                  MACROX        86     A     
 MACROX    TYPEI    ENDM                                                                   MACROX        87     A     
 MACROX    TYPEII   SPACE  3                                                               MACROX        88     A     
 MACROX   **        TYPEII - GENERATE TYPE II *IL* INSTRUCTION MACRO DEFINITION            MACROX        89     A     
 MACROX   *                VFD  12/1S10+OC,18/IN,1/INFLAG,13/SO,16/RI                      MACROX        90     A     
 MACROX   *                INFLAG = 0 THEN *IN* IS CON, ELSE ORDINAL OF PARAMETER          MACROX        91     A     
 MACROX                                                                                    MACROX        92     A     
 MACROX             MACRO  TYPEII,NAM,OC                                                   MACROX        93     A     
 MACROX    NAM      MACRO  RI,IN,SO                                                        MACROX        94     A     
 MACROX     IFC LT,/IN/0/,2                                                                MACROX        95     A     
 MACROX     VFD 12/OC,18/IN,14/1S13+SO,16/RI                                               MACROX        96     A     
 MACROX     ELSE 1                                                                         MACROX        97     A     
 MACROX     VFD 12/OC,18/IN,14/SO,16/RI                                                    MACROX        98     A     
 MACROX   IMAX MAX IMAX,RI-100000B                                                         MACROX        99     A     
 MACROX             ENDM                                                                   MACROX       100     A     
 MACROX    TYPEIII  SPACE  4,8                                                             MACROX       101     A     
 MACROX   **        TYPEIII - GENERATE TYPE III *IL* INSTRUCTION MACRO DEFINITION          MACROX       102     A     
 MACROX   *         NOTE - FOR ACTUAL CA"X ( NUMBERS ), ABS(CA) < 4000B                    MACROX       103     A     
 MACROX                                                                                    MACROX       104     A     
 MACROX             MACRO  TYPEIII,NAM,OC                                                  MACROX       105     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3672    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX    NAM      MACRO  RI,RF,CA,SY                                                     MACROX       106     A     
 MACROX     IFC LT,/CA/0/,2                                                                MACROX       107     A     
 MACROX     VFD 12/OC,3/SY,12/CA,1/1,16/RF,16/RI                                           MACROX       108     A     
 MACROX     ELSE 1                                                                         MACROX       109     A     
 MACROX     VFD 12/OC,3/SY,12/CA,1/0,16/RF,16/RI                                           MACROX       110     A     
 MACROX   IMAX MAX IMAX,RI-100000B                                                         MACROX       111     A     
 MACROX   TY3 SET TY3+1                                                                    MACROX       112     A     
 MACROX             ENDM                                                                   MACROX       113     A     
 MACROX    XJUMPS   SPACE  3                                                               MACROX       114     A     
 MACROX   **        TYPE III X-JUMPS                                                       MACROX       115     A     
 MACROX                                                                                    MACROX       116     A     
 MACROX             ECHO   ,JT=("XJUMPS")                                                  MACROX       117     A     
 MACROX                                                                                    MACROX       118     A     
 MACROX    JT       MACRO  RI,IH                                                           MACROX       119     A     
 MACROX     VFD 12/2000B+OC.JPX,3/IH,12/JC.JT,33/RI                                        MACROX       120     A     
 MACROX    TY3 SET TY3+1                                                                   MACROX       121     A     
 MACROX    JT       ENDM                                                                   MACROX       122     A     
 MACROX                                                                                    MACROX       123     A     
 MACROX    RJ_JT    MACRO  RI,RF,IH                                                        MACROX       124     A     
 MACROX     VFD 12/2000B+OC.RJXJ,3/IH,12/JC.JT,17/RF,16/RI                                 MACROX       125     A     
 MACROX    TY3 SET TY3+1                                                                   MACROX       126     A     
 MACROX             ENDM                                                                   MACROX       127     A     
 MACROX                                                                                    MACROX       128     A     
 MACROX             ENDD                                                                   MACROX       129     A     
 MACROX                                                                                    MACROX       130     A     
 MACROX    ORX      OPSYN  OR          SAVE DEFINITION OF *OR* X-JUMP                      MACROX       131     A     
 MACROX             PURGMAC OR                                                             MACROX       132     A     
 MACROX    TYPEIV   SPACE  3                                                               MACROX       133     A     
 MACROX   **        TYPEIV - GENERATE TYPE IV *IL* INSTRUCTION MACRO DEFINITIONS           MACROX       134     A     
 MACROX   *                VFD  12/1S10+OC,18/CA,30/SY  ( CA IS ALWAYS A FORMAL CA         MACROX       135     A     
 MACROX                                                                                    MACROX       136     A     
 MACROX             MACRO  TYPEIV,NAM,OC                                                   MACROX       137     A     
 MACROX    NAM      MACRO  CA,SY                                                           MACROX       138     A     
 MACROX     VFD 12/OC,18/CA,30/SY                                                          MACROX       139     A     
 MACROX             ENDM                                                                   MACROX       140     A     
 MACROX    OPR      SPACE  3                                                               MACROX       141     A     
 MACROX   **        OPR - MACRO TO DEFINE THE *IL* INSTRUCTION MACRO DEFINITIONS.          MACROX       142     A     
 MACROX                                                                                    MACROX       143     A     
 MACROX             MACRO  OPR,NAME,SS                                                     MACROX       144     A     
 MACROX             IF     -DEF,/NODEF/NAME,3                                              MACROX       145     A     
 MACROX    T        GETARG 18,3,(SS)                                                       MACROX       146     A     
 MACROX    OC       OCTMIC OC.NAME+2000B                                                   MACROX       147     A     
 MACROX    NAME     TYPE"T" "OC"B,(SS)                                                     MACROX       148     A     
 MACROX             ENDM                                                                   MACROX       149     A     
 MACROX    RMACRO   SPACE  3,14                                                            MACROX       150     A     
 MACROX   **        RMACRO - BEGIN *IL* MACRO DEFINITION                                   MACROX       151     A     
 MACROX                                                                                    MACROX       152     A     
 MACROX             MACRO  RMACRO,NAM,NSY,NR,NC                                            MACROX       153     A     
 MACROX             LOC    MACNUM                                                          MACROX       154     A     
 MACROX    NAM      BSS    0                                                               MACROX       155     A     
 MACROX    TY3 SET 0                                                                       MACROX       156     A     
 MACROX    IMAX SET 0                                                                      MACROX       157     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3673    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX    SM MAX SM,NSY                                                                   MACROX       158     A     
 MACROX    RM MAX RM,NR                                                                    MACROX       159     A     
 MACROX    CM MAX CM,NC                                                                    MACROX       160     A     
 MACROX    MACNUM   SET    MACNUM+1                                                        MACROX       161     A     
 MACROX             USE    MACTEXT                                                         MACROX       162     A     
 MACROX    FM       SET    *                                                               MACROX       163     A     
 MACROX    MP       SET    NC*10000B+NR*100B+NSY                                           MACROX       164     A     
 MACROX             ENDM                                                                   MACROX       165     A     
 MACROX    ENDR     SPACE  2                                                               MACROX       166     A     
 MACROX   **        ENDR - TERMINATE A *RMACRO* DEFINITION.                                MACROX       167     A     
 MACROX                                                                                    MACROX       168     A     
 MACROX             MACRO  ENDR,MT                                                         MACROX       169     A     
 MACROX    LM SET *-FM                                                                     MACROX       170     A     
 MACROX             USE    MACDESC                                                         MACROX       171     A     
 MACROX     ERRZR LM       MACRO TEXT MAY NOT BE EMPTY                                     MACROX       172     A     
 MACROX     VFD 18/MP,6/IMAX,6/LM,6/.MT,6/-LM-TY3,18/FM                                    MACROX       173     A     
 MACROX             ENDM                                                                   MACROX       174     A     
 MACROX    UNUSED   SPACE  2                                                               MACROX       175     A     
 MACROX   **        UNUSED - DEFINE AN UNUSED RMACRO NUMBER                                MACROX       176     A     
 MACROX                                                                                    MACROX       177     A     
 MACROX    UNUSED   MACRO                                                                  MACROX       178     A     
 MACROX    MACNUM   OCTMIC MACNUM,3                                                        MACROX       179     A     
 MACROX    AVAIL    MICRO  1,,/"AVAIL" "MACNUM"/                                           MACROX       180     A     
 MACROX             USE    MACDESC                                                         MACROX       181     A     
 MACROX   *                FORCE A MODE ERROR IN *MACROE*                                  MACROX       182     A     
 MACROX             CON    1S17+MACNUM                                                     MACROX       183     A     
 MACROX    MACNUM   SET    MACNUM+1                                                        MACROX       184     A     
 MACROX    .UNUS    SET    .UNUS+1                                                         MACROX       185     A     
 MACROX             ENDM                                                                   MACROX       186     A     
 MACROX    SODEF    SPACE  3                                                               MACROX       187     A     
 MACROX   **        IN RLIST MACROS ONE MAY SPECIFY A SPECIFIC DESTINATION REGISTE         MACROX       188     A     
 MACROX   *         FOR THE *RI* OF AN INSTRUCTION BY IMMEDIATELY FOLLOWING IT             MACROX       189     A     
 MACROX   *         WITH A REGISTER STORE INSTRUCTION.                                     MACROX       190     A     
 MACROX   *         THE NAMES OF THE REGISTER APPEARS IN THE *SO* FIELD FOLLOWED           MACROX       191     A     
 MACROX   *         BY A PERIOD, AND PRECEEDED BY A T ONLY IF IT IS A TEMPORARY            MACROX       192     A     
 MACROX   *         REGISTER STORE.                                                        MACROX       193     A     
 MACROX                                                                                    MACROX       194     A     
 MACROX             ECHO   3,R=(B,X),Z=(0,20B)                                             MACROX       195     A     
 MACROX             ECHO   2,N=(0,1,2,3,4,5,6,7)                                           MACROX       196     A     
 MACROX    R_N.     EQU    Z+N                                                             MACROX       197     A     
 MACROX    T_R_N.   EQU    SO.TLOCK+Z+N                                                    MACROX       198     A     
 MACROX                                                                                    MACROX       199     A     
 MACROX    A0.      EQU    10B         SO REG NUMBER FOR A0                                MACROX       200     A     
 MACROX    SBR      EQU    B2.         SCRATCH B-REGISTER USED FOR INDEXED SHIFTS          MACROX       201     A     
 MACROX   *                            JUMPS, UNPACKS, ETC                                 MACROX       202     A     
 MACROX    NODEF    SPACE  3                                                               MACROX       203     A     
 MACROX   **        THE BELOW OPCODES MAY NOT APPEAR IN MACROX                             MACROX       204     A     
 MACROX   *         I.E. - IT IS IMPOSSIBLE FOR *EMR* TO PROPERLY EXPAND THEM, ETC         MACROX       205     A     
 MACROX                                                                                    MACROX       206     A     
 MACROX             QUAL   NODEF                                                           MACROX       207     A     
 MACROX             ECHO   1,N=(EOQ,BOS,DAR,PLD,PST,SLD,SST,SDL,SDS,DRL,DWL)               MACROX       208     A     
 MACROX    N        EQU    1                                                               MACROX       209     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3674    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX                                                                                    MACROX       210     A     
 MACROX             QUAL                                                                   MACROX       211     A     
 MACROX   *CALL     OPRDEFS                                                                MACROX       212     A     
 MACROX             SPACE 3                                                                MACROX       213     A     
 MACROX             PURGMAC TYPEI,TYPEII,TYPEIII,TYPEIV                                    MACROX       214     A     
 MACROX                                                                                    MACROX       215     A     
 MACROX   *         ADJUST DEFINITION OF *OR* SO IT CAN EXPAND TO AN INCLUSIVE OR          MACROX       216     A     
 MACROX   *         OR THE *OR* X-JUMP.                                                    MACROX       217     A     
 MACROX                                                                                    MACROX       218     A     
 MACROX    IOR      OPSYN  OR                                                              MACROX       219     A     
 MACROX             PURGMAC OR                                                             MACROX       220     A     
 MACROX                                                                                    MACROX       221     A     
 MACROX    OR       MACRO  RI,RJ,RK                                                        MACROX       222     A     
 MACROX             IFC    NE,/RK//,2                                                      MACROX       223     A     
 MACROX             IOR    RI,RJ,RK                                                        MACROX       224     A     
 MACROX             ELSE   1                                                               MACROX       225     A     
 MACROX             ORX    RI,RJ                                                           MACROX       226     A     
 MACROX             ENDM                                                                   MACROX       227     A     
 MACROX    RJUSES   SPACE  3                                                               MACROX       228     A     
 MACROX   **        REDEFINE THE UP, NR MACROS SO THAT THEY AUTOMATICALLY GENERATE         MACROX       229     A     
 MACROX   *         A REGISTER STORE ON THE *RJ* FIELD IF IT IS " 0 .                      MACROX       230     A     
 MACROX                                                                                    MACROX       231     A     
 MACROX    UP.      OPSYN  UP                                                              MACROX       232     A     
 MACROX    NR.      OPSYN  NR                                                              MACROX       233     A     
 MACROX             PURGMAC UP,NR                                                          MACROX       234     A     
 MACROX                                                                                    MACROX       235     A     
 MACROX    UP       MACRO  RI,RJ,RK                                                        MACROX       236     A     
 MACROX             UP.    RI,RJ,RK                                                        MACROX       237     A     
 MACROX             IFNE   RJ,0,1                                                          MACROX       238     A     
 MACROX             RS     RJ,1,SO.RJLK+SBR                                                MACROX       239     A     
 MACROX             ENDM                                                                   MACROX       240     A     
 MACROX                                                                                    MACROX       241     A     
 MACROX    NR       MACRO  RI,RJ,RK                                                        MACROX       242     A     
 MACROX             NR.    RI,RJ,RK                                                        MACROX       243     A     
 MACROX             IFNE   RJ,0,1                                                          MACROX       244     A     
 MACROX             RS     RJ,1,SO.RJLK+SBR                                                MACROX       245     A     
 MACROX             ENDM                                                                   MACROX       246     A     
 MACROX                                                                                    MACROX       247     A     
 MACROX   *         PNR - PROTECTED NORMALIZE, CANNOT BE ELEMINATED BY *SQZ* .             MACROX       248     A     
 MACROX                                                                                    MACROX       249     A     
 MACROX    PNR      MACRO  RI,RJ,RK                                                        MACROX       250     A     
 MACROX             NR.    RI,1,RK                                                         MACROX       251     A     
 MACROX             ENDM                                                                   MACROX       252     A     
 MACROX    LDAP     SPACE  3                                                               MACROX       253     A     
 MACROX   **        LDAP - LOAD APLIST ADDRESS                                             MACROX       254     A     
 MACROX                                                                                    MACROX       255     A     
 MACROX    LDAP     MACRO  CA,IH,RI                                                        MACROX       256     A     
 MACROX             LD     RI,,CA,IH                                                       MACROX       257     A     
 MACROX             RS     RI,,X1.                                                         MACROX       258     A     
 MACROX             ENDM                                                                   MACROX       259     A     
 MACROX             SPACE  3                                                               MACROX       260     A     
 MACROX   **        DEFINE VALUES OF MACRO TYPE FOR *ENDR* MACRO                           MACROX       261     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3675    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX                                                                                    MACROX       262     A     
 MACROX    .        EQU    0                                                               MACROX       263     A     
 MACROX    .LABEL   EQU    1           LABEL DEFINITION                                    MACROX       264     A     
 MACROX    .ENTRY   EQU    2           ENTRY. DEFINITION                                   MACROX       265     A     
 MACROX    .EXIT    EQU    3           SUBROUTINE EXIT                                     MACROX       266     A     
 MACROX    .UJP     EQU    4           UNCONDITIONAL JUMP MACRO                            MACROX       267     A     
 MACROX    .IF      EQU    5           IF MACRO                                            MACROX       268     A     
 MACROX    .AGOTO   EQU    6           ASSIGNED GOTO                                       MACROX       269     A     
 MACROX    .CGOTO   EQU    7           COMPUTED GOTO                                       MACROX       270     A     
 MACROX    .RJX     EQU    8           MACRO WITH AN *RJX* TO AN EXT ROUTINE               MACROX       271     A     
 MACROX    .REGST   EQU    9           MACRO WITH A *RS* THAT MIGHT BE SEPARATED           MACROX       272     A     
 MACROX   *                            FROM OPERATION DEFINING THE *RI*.                   MACROX       273     A     
 MACROX    .STORE   EQU    10          STORE TO PROGRAMMER DEFINED VARIABLES               MACROX       274     A     
 MACROX    JUMPS    TITLE  UNCONDITIONAL JUMPS / LABEL DEFINITION                          MACROX       275     A     
 MACROX    RETURN   RMACRO 1,0,0                                                           MACROX       276     A     
 MACROX             UJP    0,1                                                             MACROX       277     A     
 MACROX    EXIT     ENDR                                                                   MACROX       278     A     
 MACROX                                                                                    MACROX       279     A     
 MACROX    NSRETURN RMACRO 1,1,1                                                           MACROX       280     A     
 MACROX             LD     I1,1,K1     LOAD A0+ORDINAL                                     MACROX       281     A     
 MACROX             SA     I2,I1                                                           MACROX       282     A     
 MACROX             RS     I2,,SO.TLOCK+SBR                                                MACROX       283     A     
 MACROX             LD     I3,0,0,1    LOAD TEMPA0.                                        MACROX       284     A     
 MACROX             EOS                * TO PREVENT THE *SA* FROM FLOATING                 MACROX       285     A     
 MACROX             SA     I4,I3       RESTORE A0                                          MACROX       286     A     
 MACROX             RS     I4,,A0.           *LOCK UNTIL NEXT UJP*                         MACROX       287     A     
 MACROX             JIN    I2                                                              MACROX       288     A     
 MACROX    EXIT     ENDR                                                                   MACROX       289     A     
 MACROX                                                                                    MACROX       290     A     
 MACROX    PEND     RMACRO 2,0,2       EQ  END. / STOP. ( PROGRAM EXIT MACROS )            MACROX       291     A     
 MACROX             LDAP   K2,2,I1                                                         MACROX       292     A     
 MACROX             UJP    0,1                                                             MACROX       293     A     
 MACROX    EXIT     ENDR                                                                   MACROX       294     A     
 MACROX                                                                                    MACROX       295     A     
 MACROX    ENTRY    RMACRO 1,0,0       ALTERNATE ENTRY POINT DEFINITION                    MACROX       296     A     
 MACROX             ENT    0,1                                                             MACROX       297     A     
 MACROX    ENTRY    ENDR                                                                   MACROX       298     A     
 MACROX                                                                                    MACROX       299     A     
 MACROX    LABEL    RMACRO 1,0,0       LABEL DEFINITION                                    MACROX       300     A     
 MACROX             LAB    0,1                                                             MACROX       301     A     
 MACROX    LABEL    ENDR                                                                   MACROX       302     A     
 MACROX                                                                                    MACROX       303     A     
 MACROX    UJUMP    RMACRO 1,0,0       UNCONDITIONAL JUMP                                  MACROX       304     A     
 MACROX             UJP    0,1                                                             MACROX       305     A     
 MACROX    UJP      ENDR                                                                   MACROX       306     A     
 MACROX                                                                                    MACROX       307     A     
 MACROX    ASSIGN   RMACRO 2,0,1       ASSIGN LABEL TO IVAR                                MACROX       308     A     
 MACROX             STT    I1,,,1      SXI   LABEL                                         MACROX       309     A     
 MACROX             ST     I1,,K1,2                                                        MACROX       310     A     
 MACROX    STORE    ENDR                                                                   MACROX       311     A     
 MACROX                                                                                    MACROX       312     A     
 MACROX    AGOTO    RMACRO 1,0,2       ASSIGNED GOTO , ( K2 = N.BRANCES IF OPT=2 )         MACROX       313     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3676    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             LD     I1,,K1,1                                                        MACROX       314     A     
 MACROX             SA     I2,I1                                                           MACROX       315     A     
 MACROX             RS     I2,,SO.TLOCK+SBR                                                MACROX       316     A     
 MACROX             JIN    I2                                                              MACROX       317     A     
 MACROX    AGOTO    ENDR                                                                   MACROX       318     A     
 MACROX                                                                                    MACROX       319     A     
 MACROX    CGOTO    RMACRO 2,1,2       COMPUTED GOTO                                       MACROX       320          I
          -FCC1085
 MACROX    CGOTO    RMACRO 2,1,3       COMPUTED GOTO                                       FCC1085       36     A     
 MACROX             STT    I1,P1,-1    R2 = X1-1                                           MACROX       321          I
          -FCC0422
 MACROX             STT    I2,P1,K1    R3 = X1-N.BRANCHS                                   MACROX       322          I
          -FCC0422
 MACROX             IMP    I3,I2,I1    R4 = -R3+R2                                         MACROX       323          I
          -FCC0422
 MACROX             SXT    I4,I3                                                           MACROX       324          I
          -FCC0422
 MACROX             KRS    I5,I4,59                                                        MACROX       325          I
          -FCC0422
 MACROX             STR    I6,I5,P1    R6 = 0 IF OUT OF RANGE                              MACROX       326          I
          -FCC0422
 MACROX             SA     I7,I6                                                           MACROX       327          I
          -FCC0422
 MACROX             RS     I7,,SO.TLOCK+SBR                                                MACROX       328          I
          -FCC0422
 MACROX             JIN    I7,,,1      JP   B1+#GLNNN                                      MACROX       329          I
          -FCC0422
 MACROX             FMA    I1,59                                                           FCC0422        3     A     
 MACROX             IA     I2,P1,I1    R1 = X1-1                                           FCC0422        4     A     
 MACROX             S      I3,K1                                                           FCC0422        5     A     
 MACROX             IA     I4,P1,I3    R2 = X1-N.BRANCH                                    FCC0422        6     A     
 MACROX             IMP    I5,I4,I2    R3 = -R2+R1                                         FCC0422        7     A     
 MACROX             SXT    I6,I5                                                           FCC0422        8     A     
 MACROX             KRS    I7,I6,59                                                        FCC0422        9     A     
 MACROX             STR    I8,I7,P1    R4 = 0 IF OUT OF RANGE                              FCC0422       10          I
          -FCC1085
 MACROX             SA     I9,I8                                                           FCC0422       11          I
          -FCC1085
 MACROX             RS     I9,,SO.TLOCK+SBR                                                FCC0422       12          I
          -FCC1085
 MACROX             JIN    I9,,,1      JP   B1+#GLNNN                                      FCC0422       13          I
          -FCC1085
 MACROX             FMA    I8,K3       I8 = -1 IF LINENUM > 4095 ELSE 0                    FCC1085       37     A     
 MACROX             IS     I9,P1,I8                                                        FCC1085       38     A     
 MACROX             STR    I10,I7,I9   R4 = 0 IF OUT OF RANGE                              FCC1085       39     A     
 MACROX             SA     I11,I10                                                         FCC1085       40     A     
 MACROX             RS     I11,,SO.TLOCK+SBR                                               FCC1085       41     A     
 MACROX             JIN    I11,,,1                                                         FCC1085       42     A     
 MACROX             LAB    0,1         #GLN  BSS  0                                        MACROX       330     A     
 MACROX             RJ6    K2,2        RJ  ACGOER$,12/LINE NUM,18/TRACE.                   MACROX       331     A     
 MACROX    CGOTO    ENDR                                                                   MACROX       332     A     
 MACROX    RJX      TITLE  FUNCTION / SUBROUTINE CALL MACROS                               MACROX       333     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3677    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX   *     REGISTER STORE MACROS FOR BASIC EXT ARGS.  THE 1ST 4 ARE USED IF           MACROX       334     A     
 MACROX   *   THE ARG IS A FUNCTION RESULT, OTHERWISE, THE LAST 4 ARE USED.                MACROX       335     A     
 MACROX                                                                                    MACROX       336     A     
 MACROX    RI=X1    RMACRO 0,1,0       RI=X1                                               MACROX       337     A     
 MACROX             XMT    I1,P1                                                           MACROX       338     A     
 MACROX             RS     I1,0,X1.                                                        MACROX       339     A     
 MACROX             ENDR                                                                   MACROX       340     A     
 MACROX                                                                                    MACROX       341     A     
 MACROX    RI=X3    RMACRO 0,1,0       RI=X3                                               MACROX       342     A     
 MACROX             XMT    I1,P1                                                           MACROX       343     A     
 MACROX             RS     I1,0,X3.                                                        MACROX       344     A     
 MACROX             ENDR                                                                   MACROX       345     A     
 MACROX                                                                                    MACROX       346     A     
 MACROX    RI=X2    RMACRO 0,1,0       RI=X2                                               MACROX       347     A     
 MACROX             XMT    I1,P1                                                           MACROX       348     A     
 MACROX             RS     I1,0,X2.                                                        MACROX       349     A     
 MACROX             ENDR                                                                   MACROX       350     A     
 MACROX                                                                                    MACROX       351     A     
 MACROX    RI=X4    RMACRO 0,1,0       RI=X4                                               MACROX       352     A     
 MACROX             XMT    I1,P1                                                           MACROX       353     A     
 MACROX             RS     I1,0,X4.                                                        MACROX       354     A     
 MACROX             ENDR                                                                   MACROX       355     A     
 MACROX                                                                                    MACROX       356     A     
 MACROX    RI=X1.   RMACRO 0,1,0       RI=X1                                               MACROX       357     A     
 MACROX             RS     P1,0,X1.                                                        MACROX       358     A     
 MACROX    REGST    ENDR                                                                   MACROX       359     A     
 MACROX                                                                                    MACROX       360     A     
 MACROX    RI=X3.   RMACRO 0,1,0       RI=X3                                               MACROX       361     A     
 MACROX             RS     P1,0,X3.                                                        MACROX       362     A     
 MACROX    REGST    ENDR                                                                   MACROX       363     A     
 MACROX                                                                                    MACROX       364     A     
 MACROX    RI=X2.   RMACRO 0,1,0       RI=X2                                               MACROX       365     A     
 MACROX             RS     P1,0,X2.                                                        MACROX       366     A     
 MACROX    REGST    ENDR                                                                   MACROX       367     A     
 MACROX                                                                                    MACROX       368     A     
 MACROX    RI=X4.   RMACRO 0,1,0       RI=X4                                               MACROX       369     A     
 MACROX             RS     P1,0,X4.                                                        MACROX       370     A     
 MACROX    REGST    ENDR                                                                   MACROX       371     A     
 MACROX    RJX      SPACE  3                                                               MACROX       372     A     
 MACROX   *         RETURN JUMP MACROS                                                     MACROX       373     A     
 MACROX                                                                                    MACROX       374     A     
 MACROX    BEFCALL  RMACRO 1,0,0       BASIC EXT FUNCTION CALL                             MACROX       375     A     
 MACROX             RJ3    0,1                                                             MACROX       376     A     
 MACROX    RJX      ENDR                                                                   MACROX       377     A     
 MACROX                                                                                    MACROX       378     A     
 MACROX    RJ60     RMACRO 1,0,1       RJ6 - NO APLIST                                     MACROX       379     A     
 MACROX             RJ6    K1,1                                                            MACROX       380     A     
 MACROX    RJX      ENDR                                                                   MACROX       381     A     
 MACROX                                                                                    MACROX       382     A     
 MACROX    GEFWOTR  RMACRO 2,0,2       GEN EXT CALL WITHOUT TRACEBACK                      MACROX       383     A     
 MACROX             LDAP   K2,2,I1                                                         MACROX       384     A     
 MACROX             RJ3    0,1                                                             MACROX       385     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3678    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX    RJX      ENDR                                                                   MACROX       386     A     
 MACROX                                                                                    MACROX       387     A     
 MACROX    GEFCALL  RMACRO 2,0,2       GENERAL EXTERNAL FUNCTION CALL                      MACROX       388     A     
 MACROX             LDAP   K2,2,I1                                                         MACROX       389     A     
 MACROX             RJ6    K1,1        AND CALL THE ROUTINE WITH TRACEBACK                 MACROX       390     A     
 MACROX    RJX      ENDR                                                                   MACROX       391     A     
 MACROX    DEF      SPACE  3                                                               MACROX       392     A     
 MACROX    DEFX6    RMACRO 0,1,0       DEFINE X6=RI                                        MACROX       393     A     
 MACROX             DEF    P1,0,X6.                                                        MACROX       394     A     
 MACROX             ENDR                                                                   MACROX       395     A     
 MACROX                                                                                    MACROX       396     A     
 MACROX    DEFX7    RMACRO 0,1,0       DEFINE X7=RI                                        MACROX       397     A     
 MACROX             DEF    P1,0,X7.                                                        MACROX       398     A     
 MACROX             ENDR                                                                   MACROX       399     A     
 MACROX                                                                                    MACROX       400     A     
 MACROX    STEMP    RMACRO 1,1,1       STORE TO COMPILER GENERATED TEMPORARY               MACROX       401     A     
 MACROX             ST     P1,,K1,1                                                        MACROX       402     A     
 MACROX             ENDR                                                                   MACROX       403     A     
 MACROX                                                                                    MACROX       404     A     
 MACROX             UNUSED                                                                 MACROX       405     A     
 MACROX    BASIC    TITLE  ARITH MACROS                                                    MACROX       406     A     
 MACROX    DBLD     RMACRO 1,3,2       DBL LOAD                                            MACROX       407     A     
 MACROX             LD     P1,P2,K1,1                                                      MACROX       408     A     
 MACROX             LD     P3,P2,K2,1                                                      MACROX       409     A     
 MACROX             ENDR                                                                   MACROX       410     A     
 MACROX                                                                                    MACROX       411     A     
 MACROX    DBLSTR   RMACRO 1,3,2       DOUBLE STORE (MUST FOLLOW DBLE LOAD)                MACROX       412     A     
 MACROX             ST     P1,P2,K1,1                                                      MACROX       413     A     
 MACROX             ST     P3,P2,K2,1                                                      MACROX       414     A     
 MACROX    STORE    ENDR                                                                   MACROX       415     A     
 MACROX                                                                                    MACROX       416     A     
 MACROX    LOAD     RMACRO 1,2,1       SINGLE LOAD                                         MACROX       417     A     
 MACROX             LD     P1,P2,K1,1                                                      MACROX       418     A     
 MACROX             ENDR                                                                   MACROX       419     A     
 MACROX                                                                                    MACROX       420     A     
 MACROX    STORE    RMACRO 1,2,1       SINGLE STORE                                        MACROX       421     A     
 MACROX             ST     P1,P2,K1,1                                                      MACROX       422     A     
 MACROX    STORE    ENDR                                                                   MACROX       423     A     
 MACROX                                                                                    MACROX       424     A     
 MACROX    XMIT     RMACRO 0,2,0       TRANSMIT                                            MACROX       425     A     
 MACROX             XMT    P1,P2                                                           MACROX       426     A     
 MACROX             ENDR                                                                   MACROX       427     A     
 MACROX                                                                                    MACROX       428     A     
 MACROX    DBLXMT   RMACRO 0,4,0       DBLE TRANSMIT (MUST FOLLOW SNGLE XMT)               MACROX       429     A     
 MACROX             XMT    P1,P2                                                           MACROX       430     A     
 MACROX             XMT    P3,P4                                                           MACROX       431     A     
 MACROX             ENDR                                                                   MACROX       432     A     
 MACROX                                                                                    MACROX       433     A     
 MACROX             UNUSED                                                                 MACROX       434     A     
 MACROX                                                                                    MACROX       435     A     
 MACROX             UNUSED                                                                 MACROX       436     A     
 MACROX                                                                                    MACROX       437     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3679    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             UNUSED                                                                 MACROX       438     A     
 MACROX                                                                                    MACROX       439     A     
 MACROX    SET.CON  RMACRO 0,1,1       SET R TO A CON                                      MACROX       440     A     
 MACROX             S      P1,K1                                                           MACROX       441     A     
 MACROX             ENDR                                                                   MACROX       442     A     
 MACROX                                                                                    MACROX       443     A     
 MACROX    SETR     RMACRO 1,2,1       SET RI=IH+CA+RF (SXTAMC EQU SETMC+1)                MACROX       444     A     
 MACROX             STT    P1,P2,K1,1                                                      MACROX       445     A     
 MACROX             ENDR                                                                   MACROX       446     A     
 MACROX                                                                                    MACROX       447     A     
 MACROX    P2TON    RMACRO 0,2,1       (2**K)**N = SHIFT( MASK(1) , K+1 )                  MACROX       448     A     
 MACROX             FMA    I1,1                                                            MACROX       449     A     
 MACROX             STT    I2,P1,K1    K1 = K + 1                                          MACROX       450     A     
 MACROX             RS     I2,,SO.TLOCK+SBR                                                MACROX       451     A     
 MACROX             ILS    P2,I2,I1                                                        MACROX       452     A     
 MACROX             ENDR                                                                   MACROX       453     A     
 MACROX                                                                                    MACROX       454     A     
 MACROX    MASKZR   RMACRO 0,1,0       MXI   0                                             MACROX       455     A     
 MACROX             CLR    P1,0                                                            MACROX       456     A     
 MACROX             ENDR                                                                   MACROX       457     A     
 MACROX                                                                                    MACROX       458     A     
 MACROX    DBLZR    RMACRO 0,2,0       ZERO 2 REGISTERS                                    MACROX       459     A     
 MACROX             CLR    P1,0                                                            MACROX       460     A     
 MACROX             CLR    P2,0                                                            MACROX       461     A     
 MACROX             ENDR                                                                   MACROX       462     A     
 MACROX                                                                                    MACROX       463     A     
 MACROX    SDL      RMACRO 1,2,1       SNGLE TO DBLE LD (SDLMC EQU MZZMC+1)                MACROX       464     A     
 MACROX             LD     I1,0,K1,1                                                       MACROX       465     A     
 MACROX             XMT    P1,I1                                                           MACROX       466     A     
 MACROX             CLR    P2,0                                                            MACROX       467     A     
 MACROX             ENDR                                                                   MACROX       468     A     
 MACROX                                                                                    MACROX       469     A     
 MACROX    MINUSZR  RMACRO 0,1,0       -0                                                  MACROX       470     A     
 MACROX             FMA    P1,60                                                           MACROX       471     A     
 MACROX             ENDR                                                                   MACROX       472     A     
 MACROX                                                                                    MACROX       473     A     
 MACROX    DLTS     RMACRO 1,3,2       DBLE LD TO SNGLE (DLTSMC EQU MIZMC+1)               MACROX       474     A     
 MACROX             LD     P1,P2,K1,1                                                      MACROX       475     A     
 MACROX             ENDR                                                                   MACROX       476     A     
 MACROX    MODECH   SPACE  4                                                               MACROX       477     A     
 MACROX   **        MODE CHANGE MACROS                                                     MACROX       478     A     
 MACROX                                                                                    MACROX       479     A     
 MACROX    ITOR     RMACRO 0,2,0,,10   INTEGER TO REAL                                     MACROX       480     A     
 MACROX             PK     I1,0,P1                                                         MACROX       481     A     
 MACROX             NR     P2,0,I1                                                         MACROX       482     A     
 MACROX             ENDR                                                                   MACROX       483     A     
 MACROX                                                                                    MACROX       484     A     
 MACROX    ITODC    RMACRO 0,3,0       INTEGER TO DOUBLE OR COMPLEX                        MACROX       485     A     
 MACROX             PK     I1,0,P1                                                         MACROX       486     A     
 MACROX             CLR    P3,0                                                            MACROX       487     A     
 MACROX             NR     P2,0,I1                                                         MACROX       488     A     
 MACROX             ENDR                                                                   MACROX       489     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3680    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX                                                                                    MACROX       490     A     
 MACROX    RTOI     RMACRO 0,2,0,,10   REAL TO INTEGER                                     MACROX       491     A     
 MACROX             UP     I1,I2,P1                                                        MACROX       492     A     
 MACROX             ILS    P2,I2,I1                                                        MACROX       493     A     
 MACROX             ENDR                                                                   MACROX       494     A     
 MACROX                                                                                    MACROX       495     A     
 MACROX    RDCOH.DC RMACRO 0,3,0       REAL,DBLE,CMPX,OCT,HOL TO DBL OR CMPX               MACROX       496     A     
 MACROX             XMT    P2,P1                                                           MACROX       497     A     
 MACROX             CLR    P3,0                                                            MACROX       498     A     
 MACROX             ENDR                                                                   MACROX       499     A     
 MACROX                                                                                    MACROX       500     A     
 MACROX    DTOR     RMACRO 0,2,0,,10   DOUBLE TO REAL                                      MACROX       501     A     
 MACROX             XMT    P2,P1                                                           MACROX       502     A     
 MACROX             ENDR                                                                   MACROX       503     A     
 MACROX    REL-MAC  TITLE  LOGICAL/RELATIONAL MACROS                                       MACROX       504     A     
 MACROX    .OR.     RMACRO 0,3,0       .OR.                                                MACROX       505     A     
 MACROX             OR     P1,P3,P2                                                        MACROX       506     A     
 MACROX             ENDR                                                                   MACROX       507     A     
 MACROX                                                                                    MACROX       508     A     
 MACROX    .AND.    RMACRO 0,3,0       .AND.                                               MACROX       509     A     
 MACROX             AND    P1,P3,P2                                                        MACROX       510     A     
 MACROX             ENDR                                                                   MACROX       511     A     
 MACROX                                                                                    MACROX       512     A     
 MACROX    .NOT.    RMACRO 0,2,0                                                           MACROX       513     A     
 MACROX             XMTC   P1,P2                                                           MACROX       514     A     
 MACROX             ENDR                                                                   MACROX       515     A     
 MACROX                                                                                    MACROX       516     A     
 MACROX   **        RELATIONAL MACROS                                                      MACROX       517     A     
 MACROX                                                                                    MACROX       518     A     
 MACROX    .LE.REAL RMACRO 0,3,0                                                           MACROX       519     A     
 MACROX             FS     I1,P3,P2                                                        MACROX       520     A     
 MACROX             PNR    I2,,I1                                                          MACROX       521     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       522     A     
 MACROX             XMTC   P1,I2                                                           MACROX       523     A     
 MACROX    #MD      ELSE                                                                   MACROX       524     A     
 MACROX             CLR    I3                                                              MACROX       525     A     
 MACROX             IAZ    I4,I3,I2                                                        MACROX       526     A     
 MACROX             XMTC   P1,I4                                                           MACROX       527     A     
 MACROX    #MD      ENDIF                                                                  MACROX       528     A     
 MACROX             ENDR                                                                   MACROX       529     A     
 MACROX                                                                                    MACROX       530     A     
 MACROX    .LE.INT  RMACRO 0,3,0                                                           MACROX       531     A     
 MACROX             IS     I1,P3,P2                                                        MACROX       532     A     
 MACROX             CLR    I2                                                              MACROX       533     A     
 MACROX             IAZ    I3,I2,I1                                                        MACROX       534     A     
 MACROX             XMTC   P1,I3                                                           MACROX       535     A     
 MACROX             ENDR                                                                   MACROX       536     A     
 MACROX                                                                                    MACROX       537     A     
 MACROX    .LE.DBL  RMACRO 0,6,0                                                           MACROX       538     A     
 MACROX             DFS    I1,P3,P2                                                        MACROX       539     A     
 MACROX             FS     I2,P6,P5                                                        MACROX       540     A     
 MACROX             FS     I3,P3,P2                                                        MACROX       541     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3681    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             PNR    I4,,I3                                                          MACROX       542     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       543     A     
 MACROX             FA     I5,I2,I1                                                        MACROX       544     A     
 MACROX             FA     I6,I5,I4                                                        MACROX       545     A     
 MACROX             XMTC   P1,I6                                                           MACROX       546     A     
 MACROX    #MD      ELSE                                                                   MACROX       547     A     
 MACROX             CLR    I5                                                              MACROX       548     A     
 MACROX             IAZ    I6,I5,I4                                                        MACROX       549     A     
 MACROX             FA     I7,I1,I2                                                        MACROX       550     A     
 MACROX             FA     I8,I6,I7                                                        MACROX       551     A     
 MACROX             XMTC   P1,I8                                                           MACROX       552     A     
 MACROX    #MD      ENDIF                                                                  MACROX       553     A     
 MACROX             ENDR                                                                   MACROX       554     A     
 MACROX                                                                                    MACROX       555     A     
 MACROX    .LE.CMPX RMACRO 0,6,0                                                           MACROX       556     A     
 MACROX             FS     I1,P3,P2                                                        MACROX       557     A     
 MACROX             PNR    I2,,I1                                                          MACROX       558     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       559     A     
 MACROX             XMTC   P1,I2                                                           MACROX       560     A     
 MACROX    #MD      ELSE                                                                   MACROX       561     A     
 MACROX             CLR    I3                                                              MACROX       562     A     
 MACROX             IAZ    I4,I3,I2                                                        MACROX       563     A     
 MACROX             XMTC   P1,I4                                                           MACROX       564     A     
 MACROX    #MD      ENDIF                                                                  MACROX       565     A     
 MACROX             ENDR                                                                   MACROX       566     A     
 MACROX                                                                                    MACROX       567     A     
 MACROX    .LT.REAL RMACRO 0,3,0                                                           MACROX       568     A     
 MACROX             FS     I1,P2,P3                                                        MACROX       569     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       570     A     
 MACROX             PNR    P1,,I1                                                          MACROX       571     A     
 MACROX    #MD      ELSE                                                                   MACROX       572     A     
 MACROX             NR     I2,0,I1                                                         MACROX       573     A     
 MACROX             CLR    I3                                                              MACROX       574     A     
 MACROX             IAZ    P1,I3,I2                                                        MACROX       575     A     
 MACROX    #MD      ENDIF                                                                  MACROX       576     A     
 MACROX             ENDR                                                                   MACROX       577     A     
 MACROX                                                                                    MACROX       578     A     
 MACROX    .LT.INT  RMACRO 0,3,0                                                           MACROX       579     A     
 MACROX             IS     I1,P2,P3                                                        MACROX       580     A     
 MACROX             CLR    I2                                                              MACROX       581     A     
 MACROX             IAZ    P1,I2,I1                                                        MACROX       582     A     
 MACROX             ENDR                                                                   MACROX       583     A     
 MACROX                                                                                    MACROX       584     A     
 MACROX    .LT.DBL  RMACRO 0,6,0                                                           MACROX       585     A     
 MACROX             FS     I1,P5,P6                                                        MACROX       586     A     
 MACROX             FS     I2,P2,P3                                                        MACROX       587     A     
 MACROX             PNR    I3,,I2                                                          MACROX       588     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       589     A     
 MACROX             DFS    I4,P2,P3                                                        MACROX       590     A     
 MACROX             FA     I5,I4,I1                                                        MACROX       591     A     
 MACROX             FA     P1,I5,I3                                                        MACROX       592     A     
 MACROX    #MD      ELSE                                                                   MACROX       593     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3682    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             CLR    I4                                                              MACROX       594     A     
 MACROX             IAZ    I5,I4,I3                                                        MACROX       595     A     
 MACROX             DFS    I6,P2,P3                                                        MACROX       596     A     
 MACROX             FA     I7,I1,I6                                                        MACROX       597     A     
 MACROX             FA     P1,I5,I7                                                        MACROX       598     A     
 MACROX    #MD      ENDIF                                                                  MACROX       599     A     
 MACROX             ENDR                                                                   MACROX       600     A     
 MACROX                                                                                    MACROX       601     A     
 MACROX    .LT.CMPX RMACRO 0,6,0                                                           MACROX       602     A     
 MACROX             FS     I1,P2,P3                                                        MACROX       603     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       604     A     
 MACROX             PNR    P1,,I1                                                          MACROX       605     A     
 MACROX    #MD      ELSE                                                                   MACROX       606     A     
 MACROX             CLR    I2                                                              MACROX       607     A     
 MACROX             IAZ    P1,I2,I1                                                        MACROX       608     A     
 MACROX    #MD      ENDIF                                                                  MACROX       609     A     
 MACROX             ENDR                                                                   MACROX       610     A     
 MACROX                                                                                    MACROX       611     A     
 MACROX    .GE.REAL RMACRO 0,3,0                                                           MACROX       612     A     
 MACROX             FS     I1,P2,P3                                                        MACROX       613     A     
 MACROX             PNR    I2,,I1                                                          MACROX       614     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       615     A     
 MACROX             XMTC   P1,I2                                                           MACROX       616     A     
 MACROX    #MD      ELSE                                                                   MACROX       617     A     
 MACROX             CLR    I3                                                              MACROX       618     A     
 MACROX             IAZ    I4,I3,I2                                                        MACROX       619     A     
 MACROX             XMTC   P1,I4                                                           MACROX       620     A     
 MACROX    #MD      ENDIF                                                                  MACROX       621     A     
 MACROX             ENDR                                                                   MACROX       622     A     
 MACROX                                                                                    MACROX       623     A     
 MACROX    .GE.INT  RMACRO 0,3,0                                                           MACROX       624     A     
 MACROX             IS     I1,P2,P3                                                        MACROX       625     A     
 MACROX             CLR    I2                                                              MACROX       626     A     
 MACROX             IAZ    I3,I2,I1                                                        MACROX       627     A     
 MACROX             XMTC   P1,I3                                                           MACROX       628     A     
 MACROX             ENDR                                                                   MACROX       629     A     
 MACROX                                                                                    MACROX       630     A     
 MACROX    .GE.DBL  RMACRO 0,6,0                                                           MACROX       631     A     
 MACROX             DFS    I1,P2,P3                                                        MACROX       632     A     
 MACROX             FS     I2,P2,P3                                                        MACROX       633     A     
 MACROX             PNR    I3,,I2                                                          MACROX       634     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       635     A     
 MACROX             FS     I4,P5,P6                                                        MACROX       636     A     
 MACROX             FA     I5,I4,I1                                                        MACROX       637     A     
 MACROX             FA     I6,I5,I3                                                        MACROX       638     A     
 MACROX             XMTC   P1,I6                                                           MACROX       639     A     
 MACROX    #MD      ELSE                                                                   MACROX       640     A     
 MACROX             CLR    I4                                                              MACROX       641     A     
 MACROX             IAZ    I5,I4,I3                                                        MACROX       642     A     
 MACROX             FS     I6,P5,P6                                                        MACROX       643     A     
 MACROX             FA     I7,I1,I6                                                        MACROX       644     A     
 MACROX             FA     I8,I5,I7                                                        MACROX       645     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3683    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             XMTC   P1,I8                                                           MACROX       646     A     
 MACROX    #MD      ENDIF                                                                  MACROX       647     A     
 MACROX             ENDR                                                                   MACROX       648     A     
 MACROX                                                                                    MACROX       649     A     
 MACROX    .GE.CMPX RMACRO 0,6,0                                                           MACROX       650     A     
 MACROX             FS     I1,P2,P3                                                        MACROX       651     A     
 MACROX             PNR    I2,,I1                                                          MACROX       652     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       653     A     
 MACROX             XMTC   P1,I2                                                           MACROX       654     A     
 MACROX    #MD      ELSE                                                                   MACROX       655     A     
 MACROX             CLR    I3                                                              MACROX       656     A     
 MACROX             IAZ    I4,I3,I2                                                        MACROX       657     A     
 MACROX             XMTC   P1,I4                                                           MACROX       658     A     
 MACROX    #MD      ENDIF                                                                  MACROX       659     A     
 MACROX             ENDR                                                                   MACROX       660     A     
 MACROX                                                                                    MACROX       661     A     
 MACROX    .GT.REAL RMACRO 0,3,0                                                           MACROX       662     A     
 MACROX             FS     I1,P3,P2                                                        MACROX       663     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       664     A     
 MACROX             PNR    P1,,I1                                                          MACROX       665     A     
 MACROX    #MD      ELSE                                                                   MACROX       666     A     
 MACROX             NR     I2,0,I1                                                         MACROX       667     A     
 MACROX             CLR    I3                                                              MACROX       668     A     
 MACROX             IAZ    P1,I3,I2                                                        MACROX       669     A     
 MACROX    #MD      ENDIF                                                                  MACROX       670     A     
 MACROX             ENDR                                                                   MACROX       671     A     
 MACROX                                                                                    MACROX       672     A     
 MACROX    .GT.INT  RMACRO 0,3,0                                                           MACROX       673     A     
 MACROX             IS     I1,P3,P2                                                        MACROX       674     A     
 MACROX             CLR    I2                                                              MACROX       675     A     
 MACROX             IAZ    P1,I2,I1                                                        MACROX       676     A     
 MACROX             ENDR                                                                   MACROX       677     A     
 MACROX                                                                                    MACROX       678     A     
 MACROX    .GT.DBL  RMACRO 0,6,0                                                           MACROX       679     A     
 MACROX             FS     I2,P3,P2                                                        MACROX       680     A     
 MACROX             FS     I1,P6,P5                                                        MACROX       681     A     
 MACROX             PNR    I3,,I2                                                          MACROX       682     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       683     A     
 MACROX             DFS    I4,P3,P2                                                        MACROX       684     A     
 MACROX             FA     I5,I4,I1                                                        MACROX       685     A     
 MACROX             FA     P1,I5,I3                                                        MACROX       686     A     
 MACROX    #MD      ELSE                                                                   MACROX       687     A     
 MACROX             CLR    I4                                                              MACROX       688     A     
 MACROX             IAZ    I5,I4,I3                                                        MACROX       689     A     
 MACROX             DFS    I6,P3,P2                                                        MACROX       690     A     
 MACROX             FA     I7,I1,I6                                                        MACROX       691     A     
 MACROX             FA     P1,I5,I7                                                        MACROX       692     A     
 MACROX    #MD      ENDIF                                                                  MACROX       693     A     
 MACROX             ENDR                                                                   MACROX       694     A     
 MACROX                                                                                    MACROX       695     A     
 MACROX    .GT.CMPX RMACRO 0,6,0                                                           MACROX       696     A     
 MACROX             FS     I1,P3,P2                                                        MACROX       697     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3684    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       698     A     
 MACROX             PNR    P1,,I1                                                          MACROX       699     A     
 MACROX    #MD      ELSE                                                                   MACROX       700     A     
 MACROX             NR     I2,0,I1                                                         MACROX       701     A     
 MACROX             CLR    I3                                                              MACROX       702     A     
 MACROX             IAZ    P1,I3,I2                                                        MACROX       703     A     
 MACROX    #MD      ENDIF                                                                  MACROX       704     A     
 MACROX             ENDR                                                                   MACROX       705     A     
 MACROX                                                                                    MACROX       706     A     
 MACROX    .NE.REAL RMACRO 0,3,0                                                           MACROX       707     A     
 MACROX             FS     I1,P2,P3                                                        MACROX       708     A     
 MACROX             PNR    I2,,I1                                                          MACROX       709     A     
 MACROX             CLR    I3                                                              MACROX       710     A     
 MACROX             ISZ    I4,I3,I2                                                        MACROX       711     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       712     A     
 MACROX             OR     P1,I4,I2                                                        MACROX       713     A     
 MACROX    #MD      ELSE                                                                   MACROX       714     A     
 MACROX             IAZ    I5,I3,I2                                                        MACROX       715     A     
 MACROX             OR     P1,I5,I4                                                        MACROX       716     A     
 MACROX    #MD      ENDIF                                                                  MACROX       717     A     
 MACROX             ENDR                                                                   MACROX       718     A     
 MACROX                                                                                    MACROX       719     A     
 MACROX    .NE.INT  RMACRO 0,3,0                                                           MACROX       720     A     
 MACROX             CLR    I1                                                              MACROX       721     A     
 MACROX             IS     I2,P2,P3                                                        MACROX       722     A     
 MACROX             IAZ    I3,I2,I1                                                        MACROX       723     A     
 MACROX             ISZ    I4,I1,I3                                                        MACROX       724     A     
 MACROX             OR     P1,I4,I3                                                        MACROX       725     A     
 MACROX             ENDR                                                                   MACROX       726     A     
 MACROX                                                                                    MACROX       727     A     
 MACROX    .NE.DBL  RMACRO 0,6,0                                                           MACROX       728     A     
 MACROX             FS     I1,P2,P3                                                        MACROX       729     A     
 MACROX             FS     I2,P5,P6                                                        MACROX       730     A     
 MACROX             PNR    I3,,I1                                                          MACROX       731     A     
 MACROX             CLR    I4                                                              MACROX       732     A     
 MACROX             PNR    I5,,I2                                                          MACROX       733     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       734     A     
 MACROX             OR     I6,I5,I3                                                        MACROX       735     A     
 MACROX             ISZ    I7,I4,I6                                                        MACROX       736     A     
 MACROX             OR     P1,I7,I6                                                        MACROX       737     A     
 MACROX    #MD      ELSE                                                                   MACROX       738     A     
 MACROX             IAZ    I6,I4,I3                                                        MACROX       739     A     
 MACROX             IAZ    I7,I5,I4                                                        MACROX       740     A     
 MACROX             OR     I8,I6,I7                                                        MACROX       741     A     
 MACROX             ISZ    I9,I4,I8                                                        MACROX       742     A     
 MACROX             OR     P1,I9,I8                                                        MACROX       743     A     
 MACROX    #MD      ENDIF                                                                  MACROX       744     A     
 MACROX             ENDR                                                                   MACROX       745     A     
 MACROX                                                                                    MACROX       746     A     
 MACROX    .NE.CMPX RMACRO 0,6,0                                                           MACROX       747     A     
 MACROX             FS     I1,P2,P3                                                        MACROX       748     A     
 MACROX             FS     I2,P5,P6                                                        MACROX       749     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3685    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             PNR    I3,,I1                                                          MACROX       750     A     
 MACROX             CLR    I4                                                              MACROX       751     A     
 MACROX             PNR    I5,,I2                                                          MACROX       752     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       753     A     
 MACROX             OR     I6,I5,I3                                                        MACROX       754     A     
 MACROX             ISZ    I7,I4,I6                                                        MACROX       755     A     
 MACROX             OR     P1,I7,I6                                                        MACROX       756     A     
 MACROX    #MD      ELSE                                                                   MACROX       757     A     
 MACROX             IAZ    I6,I4,I3                                                        MACROX       758     A     
 MACROX             IAZ    I7,I5,I4                                                        MACROX       759     A     
 MACROX             OR     I8,I6,I7                                                        MACROX       760     A     
 MACROX             ISZ    I9,I4,I8                                                        MACROX       761     A     
 MACROX             OR     P1,I9,I8                                                        MACROX       762     A     
 MACROX    #MD      ENDIF                                                                  MACROX       763     A     
 MACROX             ENDR                                                                   MACROX       764     A     
 MACROX                                                                                    MACROX       765     A     
 MACROX    .EQ.REAL RMACRO 0,3,0                                                           MACROX       766     A     
 MACROX             FS     I1,P2,P3                                                        MACROX       767     A     
 MACROX             PNR    I2,,I1                                                          MACROX       768     A     
 MACROX             CLR    I3                                                              MACROX       769     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       770     A     
 MACROX             ISZ    I4,I3,I2                                                        MACROX       771     A     
 MACROX             EQV    P1,I2,I4                                                        MACROX       772     A     
 MACROX    #MD      ELSE                                                                   MACROX       773     A     
 MACROX             IAZ    I4,I3,I2                                                        MACROX       774     A     
 MACROX             ISZ    I5,I3,I4                                                        MACROX       775     A     
 MACROX             EQV    P1,I4,I5                                                        MACROX       776     A     
 MACROX    #MD      ENDIF                                                                  MACROX       777     A     
 MACROX             ENDR                                                                   MACROX       778     A     
 MACROX                                                                                    MACROX       779     A     
 MACROX    .EQ.INT  RMACRO 0,3,0                                                           MACROX       780     A     
 MACROX             IS     I1,P2,P3                                                        MACROX       781     A     
 MACROX             CLR    I2                                                              MACROX       782     A     
 MACROX             IAZ    I3,I2,I1                                                        MACROX       783     A     
 MACROX             ISZ    I4,I2,I3                                                        MACROX       784     A     
 MACROX             EQV    P1,I4,I3                                                        MACROX       785     A     
 MACROX             ENDR                                                                   MACROX       786     A     
 MACROX                                                                                    MACROX       787     A     
 MACROX    .EQ.DBL  RMACRO 0,6,0                                                           MACROX       788     A     
 MACROX             FS     I1,P2,P3                                                        MACROX       789     A     
 MACROX             PNR    I2,,I1                                                          MACROX       790     A     
 MACROX             FS     I3,P5,P6                                                        MACROX       791     A     
 MACROX             CLR    I4                                                              MACROX       792     A     
 MACROX             PNR    I5,,I2                                                          MACROX       793     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       794     A     
 MACROX             OR     I6,I5,I2                                                        MACROX       795     A     
 MACROX             ISZ    I7,I4,I6                                                        MACROX       796     A     
 MACROX             EQV    P1,I7,I6                                                        MACROX       797     A     
 MACROX    #MD      ELSE                                                                   MACROX       798     A     
 MACROX             IAZ    I6,I4,I2                                                        MACROX       799     A     
 MACROX             IAZ    I7,I4,I5                                                        MACROX       800     A     
 MACROX             OR     I8,I6,I7                                                        MACROX       801     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3686    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             ISZ    I9,I4,I8                                                        MACROX       802     A     
 MACROX             EQV    P1,I9,I8                                                        MACROX       803     A     
 MACROX    #MD      ENDIF                                                                  MACROX       804     A     
 MACROX             ENDR                                                                   MACROX       805     A     
 MACROX                                                                                    MACROX       806     A     
 MACROX    .EQ.CMPX RMACRO 0,6,0                                                           MACROX       807     A     
 MACROX             FS     I1,P2,P3                                                        MACROX       808     A     
 MACROX             PNR    I2,,I1                                                          MACROX       809     A     
 MACROX             FS     I3,P5,P6                                                        MACROX       810     A     
 MACROX             CLR    I4                                                              MACROX       811     A     
 MACROX             PNR    I5,,I3                                                          MACROX       812     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX       813     A     
 MACROX             OR     I6,I5,I2                                                        MACROX       814     A     
 MACROX             ISZ    I7,I4,I6                                                        MACROX       815     A     
 MACROX             EQV    P1,I7,I6                                                        MACROX       816     A     
 MACROX    #MD      ELSE                                                                   MACROX       817     A     
 MACROX             IAZ    I6,I4,I2                                                        MACROX       818     A     
 MACROX             IAZ    I7,I4,I5                                                        MACROX       819     A     
 MACROX             OR     I8,I6,I7                                                        MACROX       820     A     
 MACROX             ISZ    I9,I4,I8                                                        MACROX       821     A     
 MACROX             EQV    P1,I9,I8                                                        MACROX       822     A     
 MACROX    #MD      ENDIF                                                                  MACROX       823     A     
 MACROX             ENDR                                                                   MACROX       824     A     
 MACROX             TITLE  ARITHMETIC OPERATIONS                                           MACROX       825     A     
 MACROX    SUB.REAL RMACRO 0,3,0       REAL - REAL                                         MACROX       826     A     
 MACROX             FS     I1,P2,P3                                                        MACROX       827     A     
 MACROX             NR     P1,0,I1                                                         MACROX       828     A     
 MACROX             ENDR                                                                   MACROX       829     A     
 MACROX                                                                                    MACROX       830     A     
 MACROX    SUB.INT  RMACRO 0,3,0       INTEGER - INTEGER                                   MACROX       831     A     
 MACROX             IS     P1,P2,P3                                                        MACROX       832     A     
 MACROX             ENDR                                                                   MACROX       833     A     
 MACROX                                                                                    MACROX       834     A     
 MACROX    SUBD     RMACRO 0,6,0       DOUBLE - DOUBLE                                     MACROX       835     A     
 MACROX             FS     I1,P2,P3                                                        MACROX       836     A     
 MACROX             DFS    I2,P2,P3                                                        MACROX       837     A     
 MACROX             FS     I3,P5,P6                                                        MACROX       838     A     
 MACROX             NR     I4,0,I1                                                         MACROX       839          I
          -FCC0491
 MACROX             FA     I5,I3,I2                                                        MACROX       840     A     
 MACROX             FA     I6,I5,I4                                                        MACROX       841          I
          -FCC0491
 MACROX             FA     I6,I5,I1                                                        FCC0491        5     A     
 MACROX             NR     I7,0,I6                                                         MACROX       842     A     
 MACROX             DFA    I8,I5,I4                                                        MACROX       843          I
          -FCC0491
 MACROX             DFA    I8,I5,I1                                                        FCC0491        6     A     
 MACROX             NR     I9,0,I8     THIS IS IN CASE A-B=0                               MACROX       844     A     
 MACROX             FA     P1,I9,I7                                                        MACROX       845     A     
 MACROX             DFA    P4,I9,I7                                                        MACROX       846     A     
 MACROX             ENDR                                                                   MACROX       847     A     
 MACROX                                                                                    MACROX       848     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3687    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX    SUBC     RMACRO 0,6,0       COMPLEX - COMPLEX                                   MACROX       849     A     
 MACROX             FS     I1,P2,P3                                                        MACROX       850     A     
 MACROX             NR     P1,0,I1                                                         MACROX       851     A     
 MACROX             FS     I2,P5,P6                                                        MACROX       852     A     
 MACROX             NR     P4,0,I2                                                         MACROX       853     A     
 MACROX             ENDR                                                                   MACROX       854     A     
 MACROX                                                                                    MACROX       855     A     
 MACROX    ADD.REAL RMACRO 0,3,0       REAL + REAL                                         MACROX       856     A     
 MACROX             FA     I1,P3,P2                                                        MACROX       857     A     
 MACROX             NR     P1,0,I1                                                         MACROX       858     A     
 MACROX             ENDR                                                                   MACROX       859     A     
 MACROX                                                                                    MACROX       860     A     
 MACROX    ADD.INT  RMACRO 0,3,0       INTEGER + INTEGER                                   MACROX       861     A     
 MACROX             IA     P1,P3,P2                                                        MACROX       862     A     
 MACROX             ENDR                                                                   MACROX       863     A     
 MACROX                                                                                    MACROX       864     A     
 MACROX    ADDD     RMACRO 0,6,0       DOUBLE + DOUBLE                                     MACROX       865     A     
 MACROX             FA     I1,P3,P2                                                        MACROX       866     A     
 MACROX             DFA    I2,P3,P2                                                        MACROX       867     A     
 MACROX             FA     I3,P6,P5                                                        MACROX       868     A     
 MACROX             NR     I4,0,I1                                                         MACROX       869          I
          -FCC0491
 MACROX             FA     I5,I3,I2                                                        MACROX       870     A     
 MACROX             FA     I6,I5,I4                                                        MACROX       871          I
          -FCC0491
 MACROX             FA     I6,I5,I1                                                        FCC0491        7     A     
 MACROX             NR     I7,0,I6     I4 AND I5 COULD HAVE OPPOSITE SIGNS                 MACROX       872     A     
 MACROX             DFA    I8,I4,I5    THE FOLLOWING NR IS IN CASE A+B=0                   MACROX       873          I
          -FCC0491
 MACROX             DFA    I8,I5,I1                                                        FCC0491        8     A     
 MACROX             NR     I9,0,I8                                                         MACROX       874     A     
 MACROX             FA     P1,I9,I7                                                        MACROX       875     A     
 MACROX             DFA    P4,I9,I7                                                        MACROX       876     A     
 MACROX             ENDR                                                                   MACROX       877     A     
 MACROX                                                                                    MACROX       878     A     
 MACROX    ADDC     RMACRO 0,6,0       COMPLEX + COMPLEX                                   MACROX       879     A     
 MACROX             FA     I1,P3,P2                                                        MACROX       880     A     
 MACROX             NR     P1,0,I1                                                         MACROX       881     A     
 MACROX             FA     I2,P6,P5                                                        MACROX       882     A     
 MACROX             NR     P4,0,I2                                                         MACROX       883     A     
 MACROX             ENDR                                                                   MACROX       884     A     
 MACROX                                                                                    MACROX       885     A     
 MACROX    MPY.REAL RMACRO 0,3,0       REAL * REAL                                         MACROX       886     A     
 MACROX             FM     P1,P3,P2                                                        MACROX       887     A     
 MACROX             ENDR                                                                   MACROX       888     A     
 MACROX                                                                                    MACROX       889     A     
 MACROX    MPY.INT  RMACRO 0,3,0       INTEGER * INTEGER                                   MACROX       890     A     
 MACROX             IM     P1,P3,P2                                                        MACROX       891     A     
 MACROX             ENDR                                                                   MACROX       892     A     
 MACROX                                                                                    MACROX       893     A     
 MACROX    MPYD     RMACRO 0,6,0       DOUBLE * DOUBLE                                     MACROX       894     A     
 MACROX             FM     I1,P5,P3    I1=L(A)*H(B)                                        MACROX       895     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3688    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             FM     I2,P2,P6    I2=H(A)*L(B)                                        MACROX       896     A     
 MACROX             FA     I3,I1,I2    I3=I1+I2                                            MACROX       897     A     
 MACROX             FM     I4,P2,P3    I4=H(A)*H(B)                                        MACROX       898     A     
 MACROX             DFM    I5,P2,P3    I5=H(A)L*H(B)                                       MACROX       899     A     
 MACROX             FA     I6,I3,I5                                                        MACROX       900     A     
 MACROX             FA     P1,I4,I6                                                        MACROX       901     A     
 MACROX             DFA    P4,I4,I6                                                        MACROX       902     A     
 MACROX             ENDR                                                                   MACROX       903     A     
 MACROX                                                                                    MACROX       904     A     
 MACROX    MPYC     RMACRO 0,6,0       COMPLEX * COMPLEX                                   MACROX       905     A     
 MACROX             FM     I1,P2,P3    I1=R(A)*R(B)                                        MACROX       906     A     
 MACROX             FM     I2,P5,P6    I2=I(A)*I(B)                                        MACROX       907     A     
 MACROX             FS     I3,I1,I2    I3=I1-I2                                            MACROX       908     A     
 MACROX             NR     P1,0,I3     P1=N(I3)                                            MACROX       909     A     
 MACROX             FM     I4,P2,P6    I4=R(A)*I(B)                                        MACROX       910     A     
 MACROX             FM     I5,P5,P3    I5=I(A)*R(B)                                        MACROX       911     A     
 MACROX             FA     I6,I4,I5    I6=I4+I5                                            MACROX       912     A     
 MACROX             NR     P4,0,I6     P4=N(I6)                                            MACROX       913     A     
 MACROX             ENDR                                                                   MACROX       914     A     
 MACROX                                                                                    MACROX       915     A     
 MACROX    DIV.REAL RMACRO 0,3,0       REAL / REAL                                         MACROX       916     A     
 MACROX             FD     P1,P2,P3                                                        MACROX       917     A     
 MACROX             ENDR                                                                   MACROX       918     A     
 MACROX                                                                                    MACROX       919     A     
 MACROX    DIV.INT  RMACRO 0,3,0       INTEGER / INTEGER                                   MACROX       920     A     
 MACROX             PK     I1,0,P3     I1=P(J)                                             MACROX       921     A     
 MACROX             NR     I2,0,I1     I2=N(I1)                                            MACROX       922     A     
 MACROX             PK     I3,0,P2     I3=P(I)                                             MACROX       923     A     
 MACROX             FD     I4,I3,I2                                                        MACROX       924     A     
 MACROX             UP     I5,I6,I4                                                        MACROX       925     A     
 MACROX             ILS    P1,I6,I5                                                        MACROX       926     A     
 MACROX             ENDR                                                                   MACROX       927     A     
 MACROX                                                                                    MACROX       928     A     
 MACROX    DIVD     RMACRO 0,6,0       DOUBLE / DOUBLE                                     MACROX       929     A     
 MACROX             FD     I1,P2,P3    I1=HA/HB                                            MACROX       930     A     
 MACROX             FM     I2,I1,P3    GET HIGH ORDER REMAINDER                            MACROX       931     A     
 MACROX             FS     I3,P2,I2                                                        MACROX       932     A     
 MACROX             DFS    I4,P2,I2                                                        MACROX       933     A     
 MACROX             NR     I5,0,I3                                                         MACROX       934     A     
 MACROX             FA     I6,I4,I5                                                        MACROX       935     A     
 MACROX             DFM    I7,I1,P3                                                        MACROX       936     A     
 MACROX             FM     I8,I1,P6                                                        MACROX       937     A     
 MACROX             FS     I9,P5,I7                                                        MACROX       938     A     
 MACROX             FA     I10,I6,I9                                                       MACROX       939     A     
 MACROX             FS     I11,I10,I8                                                      MACROX       940     A     
 MACROX             FD     I12,I11,P3                                                      MACROX       941     A     
 MACROX             DFA    I13,I1,I12                                                      MACROX       942     A     
 MACROX             FA     I14,I1,I12                                                      MACROX       943     A     
 MACROX             NR     I15,0,I14                                                       MACROX       944     A     
 MACROX             FA     P1,I13,I15                                                      MACROX       945     A     
 MACROX             DFA    P4,I13,I15                                                      MACROX       946     A     
 MACROX             ENDR                                                                   MACROX       947     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3689    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX                                                                                    MACROX       948     A     
 MACROX    DIVC     RMACRO 0,6,0       COMPLEX / COMPLEX                                   MACROX       949     A     
 MACROX             FM     I1,P2,P6    I1=A*D                                              MACROX       950     A     
 MACROX             FM     I2,P5,P3    I2=B*C                                              MACROX       951     A     
 MACROX             FS     I3,I2,I1    I3=I2-I1                                            MACROX       952     A     
 MACROX             NR     I4,0,I3     I4=NR(I3)                                           MACROX       953     A     
 MACROX             FM     I5,P2,P3                                                        MACROX       954     A     
 MACROX             FM     I6,P5,P6                                                        MACROX       955     A     
 MACROX             FA     I7,I5,I6                                                        MACROX       956     A     
 MACROX             NR     I8,0,I7     I8=N(A*C+B*D)                                       MACROX       957     A     
 MACROX             FM     I9,P3,P3                                                        MACROX       958     A     
 MACROX             FM     I10,P6,P6                                                       MACROX       959     A     
 MACROX             FA     I11,I9,I10                                                      MACROX       960     A     
 MACROX             NR     I12,0,I11                                                       MACROX       961     A     
 MACROX             FD     P1,I8,I12                                                       MACROX       962     A     
 MACROX             FD     P4,I4,I12                                                       MACROX       963     A     
 MACROX             ENDR                                                                   MACROX       964     A     
 MACROX                                                                                    MACROX       965     A     
 MACROX    UMINUS   RMACRO 0,2,0       -REAL OR -INTEGER                                   MACROX       966     A     
 MACROX             XMTC   P1,P2                                                           MACROX       967     A     
 MACROX             ENDR                                                                   MACROX       968     A     
 MACROX                                                                                    MACROX       969     A     
 MACROX    UMINUS2  RMACRO 0,4,0       -DOUBLE, -COMPLEX                                   MACROX       970     A     
 MACROX             XMTC   P1,P2                                                           MACROX       971     A     
 MACROX             XMTC   P3,P4                                                           MACROX       972     A     
 MACROX             ENDR                                                                   MACROX       973     A     
 MACROX                                                                                    MACROX       974     A     
 MACROX    RMINR    RMACRO 0,3,0       -A + B                                              MACROX       975     A     
 MACROX             FS     I1,P3,P2                                                        MACROX       976     A     
 MACROX             NR     P1,0,I1                                                         MACROX       977     A     
 MACROX             ENDR                                                                   MACROX       978     A     
 MACROX                                                                                    MACROX       979     A     
 MACROX    RMINI    RMACRO 0,3,0       REVERSE MINUS, INTEGER                              MACROX       980     A     
 MACROX             IS     P1,P3,P2                                                        MACROX       981     A     
 MACROX             ENDR                                                                   MACROX       982     A     
 MACROX                                                                                    MACROX       983     A     
 MACROX    RMIND    RMACRO 0,6,0       REVERSE MINUS, DOUBLE                               MACROX       984     A     
 MACROX             FS     I1,P3,P2                                                        MACROX       985     A     
 MACROX             DFS    I2,P3,P2                                                        MACROX       986     A     
 MACROX             FS     I3,P6,P5                                                        MACROX       987     A     
 MACROX             NR     I4,0,I1                                                         MACROX       988          I
          -FCC0491
 MACROX             FA     I5,I2,I3                                                        MACROX       989     A     
 MACROX             FA     I6,I4,I5                                                        MACROX       990          I
          -FCC0491
 MACROX             FA     I6,I1,I5                                                        FCC0491        9     A     
 MACROX             NR     I7,0,I6                                                         MACROX       991     A     
 MACROX             DFA    I8,I4,I5                                                        MACROX       992          I
          -FCC0491
 MACROX             DFA    I8,I1,I5                                                        FCC0491       10     A     
 MACROX             NR     I9,0,I8                                                         MACROX       993     A     
 MACROX             FA     P1,I7,I9                                                        MACROX       994     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3690    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             DFA    P4,I7,I9                                                        MACROX       995     A     
 MACROX             ENDR                                                                   MACROX       996     A     
 MACROX                                                                                    MACROX       997     A     
 MACROX    RMINC    RMACRO 0,6,0       REVERSE MINUS, COMPLEX                              MACROX       998     A     
 MACROX             FS     I1,P3,P2                                                        MACROX       999     A     
 MACROX             NR     P1,0,I1                                                         MACROX      1000     A     
 MACROX             FS     I2,P6,P5                                                        MACROX      1001     A     
 MACROX             NR     P4,0,I2                                                         MACROX      1002     A     
 MACROX             ENDR                                                                   MACROX      1003     A     
 MACROX                                                                                    MACROX      1004     A     
 MACROX    RDIVR    RMACRO 0,3,0       REVERSE DIVIDE, REAL                                MACROX      1005     A     
 MACROX             FD     P1,P3,P2                                                        MACROX      1006     A     
 MACROX             ENDR                                                                   MACROX      1007     A     
 MACROX                                                                                    MACROX      1008     A     
 MACROX    DIVCR    RMACRO 0,6,0       COMPLEX / REAL                                      MACROX      1009     A     
 MACROX             FD     P1,P2,P3                                                        MACROX      1010     A     
 MACROX             FD     P4,P5,P3                                                        MACROX      1011     A     
 MACROX             ENDR                                                                   MACROX      1012     A     
 MACROX                                                                                    MACROX      1013     A     
 MACROX    RDIVD    RMACRO 0,6,0       REVERSE DIVIDE, DOUBLE                              MACROX      1014     A     
 MACROX             FD     I1,P3,P2                                                        MACROX      1015     A     
 MACROX             FM     I2,I1,P2                                                        MACROX      1016     A     
 MACROX             FS     I3,P3,I2                                                        MACROX      1017     A     
 MACROX             DFS    I4,P3,I2                                                        MACROX      1018     A     
 MACROX             NR     I5,0,I3                                                         MACROX      1019     A     
 MACROX             FA     I6,I4,I5                                                        MACROX      1020     A     
 MACROX             DFM    I7,I1,P2                                                        MACROX      1021     A     
 MACROX             FM     I8,I1,P5                                                        MACROX      1022     A     
 MACROX             FS     I9,P6,I7                                                        MACROX      1023     A     
 MACROX             FA     I10,I6,I9                                                       MACROX      1024     A     
 MACROX             FS     I11,I10,I8                                                      MACROX      1025     A     
 MACROX             FD     I12,I11,P2                                                      MACROX      1026     A     
 MACROX             DFA    P4,I1,I12                                                       MACROX      1027     A     
 MACROX             FA     P1,I1,I12                                                       MACROX      1028     A     
 MACROX             ENDR                                                                   MACROX      1029     A     
 MACROX                                                                                    MACROX      1030     A     
 MACROX    RDIVC    RMACRO 0,6,0       REVERSE DIVIDE, COMPLEX                             MACROX      1031     A     
 MACROX             FM     I1,P3,P5                                                        MACROX      1032     A     
 MACROX             FM     I2,P6,P2                                                        MACROX      1033     A     
 MACROX             FS     I3,I2,I1                                                        MACROX      1034     A     
 MACROX             NR     I4,0,I3                                                         MACROX      1035     A     
 MACROX             FM     I5,P3,P2                                                        MACROX      1036     A     
 MACROX             FM     I6,P6,P5                                                        MACROX      1037     A     
 MACROX             FA     I7,I5,I6                                                        MACROX      1038     A     
 MACROX             NR     I8,0,I7                                                         MACROX      1039     A     
 MACROX             FM     I9,P2,P2                                                        MACROX      1040     A     
 MACROX             FM     I10,P5,P5                                                       MACROX      1041     A     
 MACROX             FA     I11,I9,I10                                                      MACROX      1042     A     
 MACROX             NR     I12,0,I11                                                       MACROX      1043     A     
 MACROX             FD     P1,I8,I12                                                       MACROX      1044     A     
 MACROX             FD     P4,I4,I12                                                       MACROX      1045     A     
 MACROX             ENDR                                                                   MACROX      1046     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3691    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             TITLE  ROUNDED OPERATION MACROS                                        MACROX      1047     A     
 MACROX    SUBRREAL RMACRO 0,3,0       ROUNDED REAL SUBTRACT                               MACROX      1048     A     
 MACROX             RFS    I1,P2,P3                                                        MACROX      1049     A     
 MACROX             NR     P1,0,I1                                                         MACROX      1050     A     
 MACROX             ENDR                                                                   MACROX      1051     A     
 MACROX                                                                                    MACROX      1052     A     
 MACROX    SUBRCMPX RMACRO 0,6,0       ROUNDED COMPLEX SUBTRACT                            MACROX      1053     A     
 MACROX             RFS    I1,P2,P3                                                        MACROX      1054     A     
 MACROX             NR     P1,0,I1                                                         MACROX      1055     A     
 MACROX             RFS    I2,P5,P6                                                        MACROX      1056     A     
 MACROX             NR     P4,0,I2                                                         MACROX      1057     A     
 MACROX             ENDR                                                                   MACROX      1058     A     
 MACROX                                                                                    MACROX      1059     A     
 MACROX    ADDRREAL RMACRO 0,3,0       ROUNDED REAL ADD                                    MACROX      1060     A     
 MACROX             RFA    I1,P2,P3                                                        MACROX      1061     A     
 MACROX             NR     P1,0,I1                                                         MACROX      1062     A     
 MACROX             ENDR                                                                   MACROX      1063     A     
 MACROX                                                                                    MACROX      1064     A     
 MACROX    ADDRCMPX RMACRO 0,6,0       ROUNDED COMPLEX ADD                                 MACROX      1065     A     
 MACROX             RFA    I1,P2,P3                                                        MACROX      1066     A     
 MACROX             NR     P1,0,I1                                                         MACROX      1067     A     
 MACROX             RFA    I2,P5,P6                                                        MACROX      1068     A     
 MACROX             NR     P4,0,I2                                                         MACROX      1069     A     
 MACROX             ENDR                                                                   MACROX      1070     A     
 MACROX                                                                                    MACROX      1071     A     
 MACROX    MPYRREAL RMACRO 0,3,0       ROUNDED REAL MULTIPLY                               MACROX      1072     A     
 MACROX             RFM    P1,P2,P3                                                        MACROX      1073     A     
 MACROX             ENDR                                                                   MACROX      1074     A     
 MACROX                                                                                    MACROX      1075     A     
 MACROX    MPYRCMPX RMACRO 0,6,0       ROUNDED COMPLEX MULTIPLY                            MACROX      1076     A     
 MACROX             RFM    I1,P2,P3                                                        MACROX      1077     A     
 MACROX             RFM    I2,P5,P6                                                        MACROX      1078     A     
 MACROX             RFS    I3,I1,I2                                                        MACROX      1079     A     
 MACROX             NR     P1,0,I3                                                         MACROX      1080     A     
 MACROX             RFM    I4,P2,P6                                                        MACROX      1081     A     
 MACROX             RFM    I5,P5,P3                                                        MACROX      1082     A     
 MACROX             RFA    I6,I4,I5                                                        MACROX      1083     A     
 MACROX             NR     P4,0,I6                                                         MACROX      1084     A     
 MACROX             ENDR                                                                   MACROX      1085     A     
 MACROX                                                                                    MACROX      1086     A     
 MACROX    DIVRREAL RMACRO 0,3,0       ROUNDED REAL DIVIDE                                 MACROX      1087     A     
 MACROX             RFD    P1,P2,P3                                                        MACROX      1088     A     
 MACROX             ENDR                                                                   MACROX      1089     A     
 MACROX                                                                                    MACROX      1090     A     
 MACROX    DIVRCMPX RMACRO 0,6,0       ROUNDED COMPLEX DIVIDE                              MACROX      1091     A     
 MACROX             RFM    I1,P2,P6    P2*P6                                               MACROX      1092     A     
 MACROX             RFM    I2,P5,P3    P5*P3                                               MACROX      1093     A     
 MACROX             RFS    I3,I2,I1                                                        MACROX      1094     A     
 MACROX             NR     I4,0,I3     P5*P3 - P2*P6                                       MACROX      1095     A     
 MACROX             RFM    I5,P2,P3    P2*P3                                               MACROX      1096     A     
 MACROX             RFM    I6,P5,P6    P5*P6                                               MACROX      1097     A     
 MACROX             RFA    I7,I5,I6                                                        MACROX      1098     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3692    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             NR     I8,0,I7     P2*P3 + P5*P6                                       MACROX      1099     A     
 MACROX             RFM    I9,P3,P3    P3**2                                               MACROX      1100     A     
 MACROX             RFM    I10,P6,P6   P6**2                                               MACROX      1101     A     
 MACROX             RFA    I11,I9,I10                                                      MACROX      1102     A     
 MACROX             NR     I12,0,I11   P3**2 + P6**2                                       MACROX      1103     A     
 MACROX             RFD    P1,I8,I12   (P2*P3 + P5*P6)/(P3**2 + P6**2)                     MACROX      1104     A     
 MACROX             RFD    P4,I4,I12   (P2*P3 + P5*P6)/(P3**2 + P6**2)                     MACROX      1105     A     
 MACROX             ENDR                                                                   MACROX      1106     A     
 MACROX                                                                                    MACROX      1107     A     
 MACROX    RMINREAL RMACRO 0,3,0       ROUNDED REAL REVERSE SUBTRACT                       MACROX      1108     A     
 MACROX             RFS    I1,P3,P2                                                        MACROX      1109     A     
 MACROX             NR     P1,0,I1                                                         MACROX      1110     A     
 MACROX             ENDR                                                                   MACROX      1111     A     
 MACROX                                                                                    MACROX      1112     A     
 MACROX    RMINRCMP RMACRO 0,6,0       ROUNDED COMPLEX REVERSE SUBTRACT                    MACROX      1113     A     
 MACROX             RFS    I1,P3,P2                                                        MACROX      1114     A     
 MACROX             NR     P1,0,I1                                                         MACROX      1115     A     
 MACROX             RFS    I2,P6,P5                                                        MACROX      1116     A     
 MACROX             NR     P4,0,I2                                                         MACROX      1117     A     
 MACROX             ENDR                                                                   MACROX      1118     A     
 MACROX                                                                                    MACROX      1119     A     
 MACROX    RDIVRREL RMACRO 0,3,0       ROUNDED REAL REVERSE DIVIDE                         MACROX      1120     A     
 MACROX             RFD    P1,P3,P2                                                        MACROX      1121     A     
 MACROX             ENDR                                                                   MACROX      1122     A     
 MACROX                                                                                    MACROX      1123     A     
 MACROX    RDIVRCMP RMACRO 0,6,0       ROUNDED COMPLEX REVERSE DIVIDE                      MACROX      1124     A     
 MACROX             RFM    I1,P3,P5    P3*P5                                               MACROX      1125     A     
 MACROX             RFM    I2,P6,P2    P6*P2                                               MACROX      1126     A     
 MACROX             RFS    I3,I2,I1                                                        MACROX      1127     A     
 MACROX             NR     I4,0,I3     P3*P5 - P6*P2                                       MACROX      1128     A     
 MACROX             RFM    I5,P3,P2    P3*P2                                               MACROX      1129     A     
 MACROX             RFM    I6,P6,P5    P6*P5                                               MACROX      1130     A     
 MACROX             RFA    I7,I5,I6                                                        MACROX      1131     A     
 MACROX             NR     I8,0,I7     P3*P2 + P6*P5                                       MACROX      1132     A     
 MACROX             RFM    I9,P2,P2    P2**2                                               MACROX      1133     A     
 MACROX             RFM    I10,P5,P5   P5**2                                               MACROX      1134     A     
 MACROX             RFA    I11,I9,I10                                                      MACROX      1135     A     
 MACROX             NR     I12,0,I11   P2**2 + P5**2                                       MACROX      1136     A     
 MACROX             RFD    P1,I8,I12   (P3*P2 + P6*P5)/(P2**2 + P5**2)                     MACROX      1137     A     
 MACROX             RFD    P4,I4,I12   (P3*P5 - P6*P3)/(P2**2 + P5**2)                     MACROX      1138     A     
 MACROX             ENDR                                                                   MACROX      1139     A     
 MACROX             TITLE  INTRINSIC FUNCTION MACROS                                       MACROX      1140     A     
 MACROX   **        INTRINSIC FUNCTION MACRO SKELTONS                                      MACROX      1141     A     
 MACROX                                                                                    MACROX      1142     A     
 MACROX                                                                                    MACROX      1143     A     
 MACROX    ABS      RMACRO 0,2,0                                                           MACROX      1144     A     
 MACROX             SXT    I1,P1                                                           MACROX      1145     A     
 MACROX             KRS    I2,I1,59                                                        MACROX      1146     A     
 MACROX             XOR    P2,I2,P1    B                                                   MACROX      1147     A     
 MACROX             ENDR                                                                   MACROX      1148     A     
 MACROX                                                                                    MACROX      1149     A     
 MACROX             UNUSED                                                                 MACROX      1150     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3693    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX                                                                                    MACROX      1151     A     
 MACROX    DABS     RMACRO 0,4,0                                                           MACROX      1152     A     
 MACROX             SXT    I1,P1                                                           MACROX      1153     A     
 MACROX             KRS    I2,I1,59                                                        MACROX      1154     A     
 MACROX             XOR    P3,I2,P1    B                                                   MACROX      1155     A     
 MACROX             XOR    P4,I2,P2    B                                                   MACROX      1156     A     
 MACROX             ENDR                                                                   MACROX      1157     A     
 MACROX                                                                                    MACROX      1158     A     
 MACROX    AINT     RMACRO 0,2,0                                                           MACROX      1159     A     
 MACROX             CLR    I1                                                              MACROX      1160     A     
 MACROX             PK     I2,0,I1                                                         MACROX      1161     A     
 MACROX             FA     I3,I2,P1                                                        MACROX      1162     A     
 MACROX             NR     P2,0,I3                                                         MACROX      1163     A     
 MACROX             ENDR                                                                   MACROX      1164     A     
 MACROX                                                                                    MACROX      1165     A     
 MACROX    INT      RMACRO 0,2,0                                                           MACROX      1166     A     
 MACROX             UP     I1,I2,P1                                                        MACROX      1167     A     
 MACROX             ILS    P2,I2,I1                                                        MACROX      1168     A     
 MACROX             ENDR                                                                   MACROX      1169     A     
 MACROX                                                                                    MACROX      1170     A     
 MACROX    IDINT    RMACRO 0,3,0                                                           MACROX      1171     A     
 MACROX             UP     I1,I2,P1                                                        MACROX      1172     A     
 MACROX             ILS    P3,I2,I1                                                        MACROX      1173     A     
 MACROX             ENDR                                                                   MACROX      1174     A     
 MACROX                                                                                    MACROX      1175     A     
 MACROX    AMOD     RMACRO 0,3,0                                                           MACROX      1176     A     
 MACROX             FD     I1,P1,P2    F                                                   MACROX      1177     A     
 MACROX             CLR    I2                                                              MACROX      1178     A     
 MACROX             PK     I3,0,I2                                                         MACROX      1179     A     
 MACROX             FA     I4,I3,I1                                                        MACROX      1180          I
          -FCC1070
 MACROX             NR     I6,0,I4                                                         MACROX      1181          I
          -FCC1070
 MACROX             FM     I7,P2,I6    F                                                   MACROX      1182          I
          -FCC1070
 MACROX             FS     I8,P1,I7    F                                                   MACROX      1183          I
          -FCC1070
 MACROX             NR     P3,0,I8                                                         MACROX      1184          I
          -FCC1070
 MACROX             DFA    I4,I3,I1                                                        FCC1070       10          I
          -FCC1583AX
 MACROX             NR     I5,0,I4                                                         FCC1070       11          I
          -FCC1583AX
 MACROX             FM     P3,I5,P2                                                        FCC1070       12          I
          -FCC1583AX
 MACROX             FA     I4,I1,I3                                                        FCC1583AX     20     A     
 MACROX             NR     I5,0,I4                                                         FCC1583AX     21     A     
 MACROX             FM     I6,I5,P2                                                        FCC1583AX     22     A     
 MACROX             DFM    I7,I5,P2                                                        FCC1583AX     23     A     
 MACROX             DFS    I8,P1,I6                                                        FCC1583AX     24     A     
 MACROX             FS     I9,P1,I6                                                        FCC1583AX     25     A     
 MACROX             FS     I10,I8,I7                                                       FCC1583AX     26     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3694    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             NR     I11,0,I9                                                        FCC1583AX     27     A     
 MACROX             FA     I12,I10,I11                                                     FCC1583AX     28     A     
 MACROX             NR     P3,0,I12                                                        FCC1583AX     29     A     
 MACROX             ENDR                                                                   MACROX      1185     A     
 MACROX                                                                                    MACROX      1186     A     
 MACROX    MOD      RMACRO 0,3,0                                                           MACROX      1187     A     
 MACROX             PK     I1,,P1                                                          MACROX      1188     A     
 MACROX             PK     I2,,P2                                                          MACROX      1189     A     
 MACROX             NR     I3,,I2                                                          MACROX      1190     A     
 MACROX             FD     I4,I1,I3                                                        MACROX      1191     A     
 MACROX             UP     I5,I6,I4                                                        MACROX      1192     A     
 MACROX             ILS    I7,I6,I5                                                        MACROX      1193     A     
 MACROX             IM     I8,I7,P2                                                        MACROX      1194     A     
 MACROX             IS     P3,P1,I8                                                        MACROX      1195     A     
 MACROX             ENDR                                                                   MACROX      1196     A     
 MACROX                                                                                    MACROX      1197     A     
 MACROX    FLOAT    RMACRO 0,2,0                                                           MACROX      1198     A     
 MACROX             PK     I1,,P1                                                          MACROX      1199     A     
 MACROX             NR     P2,,I1                                                          MACROX      1200     A     
 MACROX             ENDR                                                                   MACROX      1201     A     
 MACROX                                                                                    MACROX      1202     A     
 MACROX    IFIX     RMACRO 0,2,0                                                           MACROX      1203     A     
 MACROX             UP     I1,I2,P1                                                        MACROX      1204     A     
 MACROX             ILS    P2,I2,I1                                                        MACROX      1205     A     
 MACROX             ENDR                                                                   MACROX      1206     A     
 MACROX                                                                                    MACROX      1207     A     
 MACROX    SIGN     RMACRO 0,3,0                                                           MACROX      1208     A     
 MACROX             SXT    I1,P1                                                           MACROX      1209          I
          -FCC0491
 MACROX             KRS    I2,I1,59                                                        MACROX      1210          I
          -FCC0491
 MACROX             XOR    I3,I2,P1    B                                                   MACROX      1211          I
          -FCC0491
 MACROX             SXT    I4,P2       B                                                   MACROX      1212          I
          -FCC0491
 MACROX             KRS    I5,I4,59    A                                                   MACROX      1213          I
          -FCC0491
 MACROX             XOR    P3,I5,I3    B                                                   MACROX      1214          I
          -FCC0491
 MACROX             XOR    I1,P1,P2                                                        FCC0491       11     A     
 MACROX             SXT    I2,I1                                                           FCC0491       12     A     
 MACROX             KRS    I3,I2,59                                                        FCC0491       13     A     
 MACROX             XOR    P3,P1,I3                                                        FCC0491       14     A     
 MACROX             ENDR                                                                   MACROX      1215     A     
 MACROX                                                                                    MACROX      1216     A     
 MACROX    MODP2    RMACRO 0,2,1       MOD( I , 2**K1 )                                    MACROX      1217     A     
 MACROX             SXT    I1,P1                                                           MACROX      1218     A     
 MACROX             KRS    I2,I1,59                                                        MACROX      1219     A     
 MACROX             XOR    I3,P1,I2          ABS(P1)                                       MACROX      1220     A     
 MACROX             FMA    I4,K1                                                           MACROX      1221     A     
 MACROX             STR    I5,I4,I3                                                        MACROX      1222     A     
 MACROX             XOR    P2,I5,I2                                                        MACROX      1223     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3695    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             ENDR                                                                   MACROX      1224     A     
 MACROX                                                                                    MACROX      1225     A     
 MACROX    DSIGN    RMACRO 0,6,0                                                           MACROX      1226     A     
 MACROX             SXT    I1,P1                                                           MACROX      1227     A     
 MACROX             KRS    I2,I1,59                                                        MACROX      1228     A     
 MACROX             XOR    I3,I2,P1                                                        MACROX      1229     A     
 MACROX             XOR    I4,I2,P2                                                        MACROX      1230     A     
 MACROX             SXT    I5,P3                                                           MACROX      1231     A     
 MACROX             KRS    I6,I5,59                                                        MACROX      1232     A     
 MACROX             XOR    P5,I6,I3                                                        MACROX      1233     A     
 MACROX             XOR    P6,I6,I4                                                        MACROX      1234     A     
 MACROX             ENDR                                                                   MACROX      1235     A     
 MACROX                                                                                    MACROX      1236     A     
 MACROX    DIM      RMACRO 0,3,0                                                           MACROX      1237     A     
 MACROX             FS     I1,P1,P2                                                        MACROX      1238     A     
 MACROX             NR     I2,0,I1                                                         MACROX      1239     A     
 MACROX             SXT    I3,I1                                                           MACROX      1240     A     
 MACROX             KRS    I4,I3,59                                                        MACROX      1241     A     
 MACROX             STR    P3,I4,I2                                                        MACROX      1242     A     
 MACROX             ENDR                                                                   MACROX      1243     A     
 MACROX                                                                                    MACROX      1244     A     
 MACROX    IDIM     RMACRO 0,3,0                                                           MACROX      1245     A     
 MACROX             IS     I1,P1,P2                                                        MACROX      1246     A     
 MACROX             SXT    I2,I1                                                           MACROX      1247     A     
 MACROX             KRS    I3,I2,59                                                        MACROX      1248     A     
 MACROX             STR    P3,I3,I1                                                        MACROX      1249     A     
 MACROX             ENDR                                                                   MACROX      1250     A     
 MACROX                                                                                    MACROX      1251     A     
 MACROX    SNGL     RMACRO 0,3,0                                                           MACROX      1252     A     
 MACROX             XMT    P3,P1                                                           MACROX      1253     A     
 MACROX             ENDR                                                                   MACROX      1254     A     
 MACROX                                                                                    MACROX      1255     A     
 MACROX    REAL     RMACRO 0,3,0                                                           MACROX      1256     A     
 MACROX             XMT    P3,P1                                                           MACROX      1257     A     
 MACROX             ENDR                                                                   MACROX      1258     A     
 MACROX                                                                                    MACROX      1259     A     
 MACROX    AIMAG    RMACRO 0,3,0                                                           MACROX      1260     A     
 MACROX             XMT    P3,P2                                                           MACROX      1261     A     
 MACROX             ENDR                                                                   MACROX      1262     A     
 MACROX                                                                                    MACROX      1263     A     
 MACROX    DBLE     RMACRO 0,3,0                                                           MACROX      1264     A     
 MACROX             XMT    P2,P1                                                           MACROX      1265     A     
 MACROX             CLR    P3,0                                                            MACROX      1266     A     
 MACROX             ENDR                                                                   MACROX      1267     A     
 MACROX                                                                                    MACROX      1268     A     
 MACROX    CMPLX    RMACRO 0,4,0                                                           MACROX      1269     A     
 MACROX             XMT    P3,P1                                                           MACROX      1270     A     
 MACROX             XMT    P4,P2                                                           MACROX      1271     A     
 MACROX             ENDR                                                                   MACROX      1272     A     
 MACROX                                                                                    MACROX      1273     A     
 MACROX    CONJG    RMACRO 0,4,0                                                           MACROX      1274     A     
 MACROX             CLR    I1,0                                                            MACROX      1275     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3696    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             XMT    P3,P1                                                           MACROX      1276     A     
 MACROX             ISZ    P4,I1,P2    NOT TO GENERATE -0.                                 MACROX      1277     A     
 MACROX             ENDR                                                                   MACROX      1278     A     
 MACROX                                                                                    MACROX      1279     A     
 MACROX    SHIFT    RMACRO 0,3,0                                                           MACROX      1280     A     
 MACROX             SA     I1,P2                                                           MACROX      1281     A     
 MACROX             RS     I1,,SO.TLOCK+SBR                                                MACROX      1282     A     
 MACROX             ILS    P3,I1,P1                                                        MACROX      1283     A     
 MACROX             ENDR                                                                   MACROX      1284     A     
 MACROX                                                                                    MACROX      1285     A     
 MACROX    AND      RMACRO 0,3,0                                                           MACROX      1286     A     
 MACROX             AND    P3,P2,P1                                                        MACROX      1287     A     
 MACROX             ENDR                                                                   MACROX      1288     A     
 MACROX                                                                                    MACROX      1289     A     
 MACROX    OR       RMACRO 0,3,0                                                           MACROX      1290     A     
 MACROX             OR     P3,P2,P1                                                        MACROX      1291     A     
 MACROX             ENDR                                                                   MACROX      1292     A     
 MACROX                                                                                    MACROX      1293     A     
 MACROX    COMPL    RMACRO 0,2,0                                                           MACROX      1294     A     
 MACROX             XMTC   P2,P1                                                           MACROX      1295     A     
 MACROX             ENDR                                                                   MACROX      1296     A     
 MACROX                                                                                    MACROX      1297     A     
 MACROX    MASK     RMACRO 0,2,0       VARIABLE LENGTH MASK                                MACROX      1298     A     
 MACROX             FMA    I2,1        1S59                                                MACROX      1299     A     
 MACROX             STT    I1,P1,-1    SHIFT COUNT - 1                                     MACROX      1300     A     
 MACROX             RS     I1,,SO.TLOCK+SBR                                                MACROX      1301     A     
 MACROX             IRS    I3,I1,I2    CORRECT MASK IF CONST .GT. 0                        MACROX      1302     A     
 MACROX             SXT    I4,I3       MOVE RESULT                                         MACROX      1303     A     
 MACROX             KRS    I5,I4,59    EXTEND SIGN                                         MACROX      1304     A     
 MACROX             AND    P2,I5,I3                                                        MACROX      1305     A     
 MACROX             ENDR                                                                   MACROX      1306     A     
 MACROX                                                                                    MACROX      1307     A     
 MACROX    MASK(C)  RMACRO 0,1,1       MASK(CON)                                           MACROX      1308     A     
 MACROX             FMA    P1,K1                                                           MACROX      1309     A     
 MACROX             ENDR                                                                   MACROX      1310     A     
 MACROX                                                                                    MACROX      1311     A     
 MACROX    KLSHIFT  RMACRO 0,2,1                                                           MACROX      1312     A     
 MACROX             SXT    I1,P1                                                           MACROX      1313     A     
 MACROX             KLS    P2,I1,K1                                                        MACROX      1314     A     
 MACROX             ENDR                                                                   MACROX      1315     A     
 MACROX                                                                                    MACROX      1316     A     
 MACROX    KRSHIFT  RMACRO 0,2,1                                                           MACROX      1317     A     
 MACROX             SXT    I1,P1                                                           MACROX      1318     A     
 MACROX             KRS    P2,I1,K1                                                        MACROX      1319     A     
 MACROX             ENDR                                                                   MACROX      1320     A     
 MACROX                                                                                    MACROX      1321     A     
 MACROX             UNUSED                                                                 MACROX      1322     A     
 MACROX                                                                                    MACROX      1323     A     
 MACROX    XOR      RMACRO 0,3,0       Y = XOR(A,B)                                        MACROX      1324     A     
 MACROX             XOR    P3,P2,P1                                                        MACROX      1325     A     
 MACROX             ENDR                                                                   MACROX      1326     A     
 MACROX                                                                                    MACROX      1327     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3697    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX    COUNT    RMACRO 0,2,0       Y = COUNT(A)                                        MACROX      1328     A     
 MACROX             CX     P2,P1                                                           MACROX      1329     A     
 MACROX             ENDR                                                                   MACROX      1330     A     
 MACROX                                                                                    MACROX      1331     A     
 MACROX    UNPEXP   RMACRO 0,2,0       EXP = UNPEXP(A)                                     MACROX      1332     A     
 MACROX             UP     I1,I2,P1                                                        MACROX      1333     A     
 MACROX             SA     P2,I2       MOVE TO AN X REGISTER                               MACROX      1334     A     
 MACROX             ENDR                                                                   MACROX      1335     A     
 MACROX                                                                                    MACROX      1336     A     
 MACROX    UNPCOE   RMACRO 0,2,0       COE = UNPCOE(A)                                     MACROX      1337     A     
 MACROX             UP     P2,0,P1     P2 = COEFFICIENT                                    MACROX      1338     A     
 MACROX             ENDR                                                                   MACROX      1339     A     
 MACROX                                                                                    MACROX      1340     A     
 MACROX    PKEXPCO  RMACRO 0,3,0                                                           MACROX      1341     A     
 MACROX             SA     I1,P1       MOVE EXPONENT TO A B REGISTER                       MACROX      1342     A     
 MACROX             RS     I1,,SO.TLOCK+SBR                                                MACROX      1343     A     
 MACROX             PK     P3,I1,P2                                                        MACROX      1344     A     
 MACROX             ENDR                                                                   MACROX      1345     A     
 MACROX                                                                                    MACROX      1346     A     
 MACROX    RANF(0)  RMACRO 1,1,0       Y = RANF(0)                                         MACROX      1347     A     
 MACROX             LD     I1,0,0,1    I1 = RANDOM.  ( SEED )                              MACROX      1348     A     
 MACROX             LD     I2,0,1,1    I2 = RANMLT. ( MULTIPLIER )                         MACROX      1349     A     
 MACROX   *                                  LOCF(RANMLT.) = LOCF(RANDOM.)+1               MACROX      1350     A     
 MACROX             DFM    I3,I2,I1                                                        MACROX      1351     A     
 MACROX             NR     P1,0,I3     RESULT = NORM(I1*I2)                                MACROX      1352     A     
 MACROX             ST     I3,0,0,1    UPDATE SEED                                         MACROX      1353     A     
 MACROX             ENDR                                                                   MACROX      1354     A     
 MACROX                                                                                    MACROX      1355     A     
 MACROX    SETX     RMACRO 0,2,0       SHORT SET FUNCTION                                  MACROX      1356     A     
 MACROX             SA     P2,P1                                                           MACROX      1357     A     
 MACROX             ENDR                                                                   MACROX      1358     A     
 MACROX                                                                                    MACROX      1359     A     
 MACROX    DMULTF   RMACRO 0,3,0       P3 = D(P1*P2)                                       MACROX      1360     A     
 MACROX             DFM    P3,P2,P1                                                        MACROX      1361     A     
 MACROX             ENDR                                                                   MACROX      1362     A     
 MACROX                                                                                    MACROX      1363     A     
 MACROX    NORM     RMACRO 0,2,0       NORMALIZE ARGUMENT                                  MACROX      1364     A     
 MACROX             NR     P2,0,P1                                                         MACROX      1365     A     
 MACROX             ENDR                                                                   MACROX      1366     A     
 MACROX                                                                                    MACROX      1367     A     
 MACROX    NORMC    RMACRO 0,2,0       RETURN NORMALIZATION COUNT                          MACROX      1368     A     
 MACROX             NR     I2,I1,P1                                                        MACROX      1369     A     
 MACROX             SA     P2,I1                                                           MACROX      1370     A     
 MACROX             ENDR                                                                   MACROX      1371     A     
 MACROX                                                                                    MACROX      1372     A     
 MACROX    IFTHEN   RMACRO 0,4,0       Y = IFTHEN(LOGICAL,A,B)                             MACROX      1373     A     
 MACROX             SXT    I1,P1                                                           MACROX      1374     A     
 MACROX             KRS    I2,I1,59                                                        MACROX      1375     A     
 MACROX             AND    I3,I2,P2    L & A                                               MACROX      1376     A     
 MACROX             STR    I4,I2,P3    ^L & B                                              MACROX      1377     A     
 MACROX             IA     P4,I4,I3                                                        MACROX      1378     A     
 MACROX             ENDR                                                                   MACROX      1379     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3698    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX                                                                                    MACROX      1380     A     
 MACROX    FADD     RMACRO 0,3,0       Y = FADD(A,B)                                       MACROX      1381     A     
 MACROX             FA     P3,P2,P1                                                        MACROX      1382     A     
 MACROX             ENDR                                                                   MACROX      1383     A     
 MACROX                                                                                    MACROX      1384     A     
 MACROX    RADD     RMACRO 0,3,0       Y = RADD(A,B)                                       MACROX      1385     A     
 MACROX             RFA    P3,P2,P1                                                        MACROX      1386     A     
 MACROX             ENDR                                                                   MACROX      1387     A     
 MACROX                                                                                    MACROX      1388     A     
 MACROX    FSUB     RMACRO 0,3,0       Y = FSUB(A,B)                                       MACROX      1389     A     
 MACROX             FS     P3,P2,P1                                                        MACROX      1390          I
          -FCC0408
 MACROX             FS     P3,P1,P2                                                        FCC0408      108     A     
 MACROX             ENDR                                                                   MACROX      1391     A     
 MACROX                                                                                    MACROX      1392     A     
 MACROX    RSUB     RMACRO 0,3,0       Y = RSUB(A,B)                                       MACROX      1393     A     
 MACROX             RFS    P3,P2,P1                                                        MACROX      1394          I
          -FCC0408
 MACROX             RFS    P3,P1,P2                                                        FCC0408      109     A     
 MACROX             ENDR                                                                   MACROX      1395     A     
 MACROX             TITLE  MAX/MIN MACROS                                                  MACROX      1396     A     
 MACROX    MAXI     RMACRO 0,3,0       MAX INTEGER                                         MACROX      1397     A     
 MACROX             IS     I1,P1,P2    I                                                   MACROX      1398     A     
 MACROX             SXT    I2,I1       B                                                   MACROX      1399     A     
 MACROX             KRS    I3,I2,59    A                                                   MACROX      1400     A     
 MACROX             AND    I4,I3,P2    B                                                   MACROX      1401          I
          -FCC1108
 MACROX             STR    I5,I3,P1    B                                                   MACROX      1402          I
          -FCC1108
 MACROX             IA     P3,I5,I4                                                        MACROX      1403          I
          -FCC1108
 MACROX             XOR    I4,P2,P1                                                        FCC1108        5     A     
 MACROX             AND    I5,I4,I3                                                        FCC1108        6     A     
 MACROX             XOR    P3,I5,P1                                                        FCC1108        7     A     
 MACROX             ENDR                                                                   MACROX      1404     A     
 MACROX                                                                                    MACROX      1405     A     
 MACROX    MAXR     RMACRO 0,3,0       MAX REAL                                            MACROX      1406     A     
 MACROX             FS     I1,P1,P2                                                        MACROX      1407     A     
 MACROX             SXT    I2,I1                                                           MACROX      1408     A     
 MACROX             KRS    I3,I2,59                                                        MACROX      1409     A     
 MACROX             AND    I4,I3,P2                                                        MACROX      1410          I
          -FCC1108
 MACROX             STR    I5,I3,P1                                                        MACROX      1411          I
          -FCC1108
 MACROX             IA     P3,I5,I4                                                        MACROX      1412          I
          -FCC1108
 MACROX             XOR    I4,P2,P1                                                        FCC1108        8     A     
 MACROX             AND    I5,I4,I3                                                        FCC1108        9     A     
 MACROX             XOR    P3,I5,P1                                                        FCC1108       10     A     
 MACROX             ENDR                                                                   MACROX      1413     A     
 MACROX                                                                                    MACROX      1414     A     
 MACROX    MAXD     RMACRO 0,6,0       MAX DOUBLE                                          MACROX      1415     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3699    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             FS     I1,P1,P3    GET SIGN OF ARG1-ARG2                               MACROX      1416     A     
 MACROX             DFS    I2,P1,P3                                                        MACROX      1417     A     
 MACROX             FS     I3,P2,P4                                                        MACROX      1418     A     
 MACROX             NR     I4,0,I1                                                         MACROX      1419     A     
 MACROX             FA     I5,I2,I3                                                        MACROX      1420     A     
 MACROX             FA     I6,I4,I5                                                        MACROX      1421     A     
 MACROX             SXT    I7,I6       EXTEND SIGN                                         MACROX      1422     A     
 MACROX             KRS    I8,I7,59                                                        MACROX      1423     A     
 MACROX             AND    I9,I8,P3                                                        MACROX      1424          I
          -FCC1108
 MACROX             AND    I10,I8,P4                                                       MACROX      1425          I
          -FCC1108
 MACROX             STR    I11,I8,P1                                                       MACROX      1426          I
          -FCC1108
 MACROX             STR    I12,I8,P2                                                       MACROX      1427          I
          -FCC1108
 MACROX             IA     P5,I9,I11                                                       MACROX      1428          I
          -FCC1108
 MACROX             OR     P6,I10,I12                                                      MACROX      1429          I
          -FCC1108
 MACROX             XOR    I9,P1,P3                                                        FCC1108       11     A     
 MACROX             XOR    I10,P2,P4                                                       FCC1108       12     A     
 MACROX             AND    I11,I8,I9                                                       FCC1108       13     A     
 MACROX             XOR    P5,I11,P1                                                       FCC1108       14     A     
 MACROX             AND    I12,I8,I10                                                      FCC1108       15     A     
 MACROX             XOR    P6,I12,P2                                                       FCC1108       16     A     
 MACROX             ENDR                                                                   MACROX      1430     A     
 MACROX                                                                                    MACROX      1431     A     
 MACROX    MINI     RMACRO 0,3,0       MIN INTEGER                                         MACROX      1432     A     
 MACROX             IS     I1,P2,P1                                                        MACROX      1433          I
          -FCC1108
 MACROX             IS     I1,P1,P2                                                        FCC1108       17     A     
 MACROX             SXT    I2,I1                                                           MACROX      1434     A     
 MACROX             KRS    I3,I2,59                                                        MACROX      1435     A     
 MACROX             AND    I4,I3,P2                                                        MACROX      1436          I
          -FCC1108
 MACROX             STR    I5,I3,P1                                                        MACROX      1437          I
          -FCC1108
 MACROX             IA     P3,I5,I4                                                        MACROX      1438          I
          -FCC1108
 MACROX             XOR    I4,P2,P1                                                        FCC1108       18     A     
 MACROX             AND    I5,I4,I3                                                        FCC1108       19     A     
 MACROX             XOR    P3,I5,P2                                                        FCC1108       20     A     
 MACROX             ENDR                                                                   MACROX      1439     A     
 MACROX                                                                                    MACROX      1440     A     
 MACROX    MINR     RMACRO 0,3,0       MIN REAL                                            MACROX      1441     A     
 MACROX             FS     I1,P2,P1                                                        MACROX      1442          I
          -FCC1108
 MACROX             FS     I1,P1,P2                                                        FCC1108       21     A     
 MACROX             SXT    I2,I1                                                           MACROX      1443     A     
 MACROX             KRS    I3,I2,59                                                        MACROX      1444     A     
 MACROX             AND    I4,I3,P2                                                        MACROX      1445          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3700    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
          -FCC1108
 MACROX             STR    I5,I3,P1                                                        MACROX      1446          I
          -FCC1108
 MACROX             IA     P3,I5,I4                                                        MACROX      1447          I
          -FCC1108
 MACROX             XOR    I4,P2,P1                                                        FCC1108       22     A     
 MACROX             AND    I5,I4,I3                                                        FCC1108       23     A     
 MACROX             XOR    P3,I5,P2                                                        FCC1108       24     A     
 MACROX             ENDR                                                                   MACROX      1448     A     
 MACROX                                                                                    MACROX      1449     A     
 MACROX    MIND     RMACRO 0,6,0       MIN DOUBLE                                          MACROX      1450     A     
 MACROX             FS     I1,P3,P1                                                        MACROX      1451          I
          -FCC1108
 MACROX             DFS    I2,P3,P1                                                        MACROX      1452          I
          -FCC1108
 MACROX             FS     I3,P4,P2                                                        MACROX      1453          I
          -FCC1108
 MACROX             FS     I1,P1,P3                                                        FCC1108       25     A     
 MACROX             DFS    I2,P1,P3                                                        FCC1108       26     A     
 MACROX             FS     I3,P2,P4                                                        FCC1108       27     A     
 MACROX             NR     I4,0,I1                                                         MACROX      1454     A     
 MACROX             FA     I5,I2,I3                                                        MACROX      1455     A     
 MACROX             FA     I6,I4,I5                                                        MACROX      1456     A     
 MACROX             SXT    I7,I6                                                           MACROX      1457     A     
 MACROX             KRS    I8,I7,59                                                        MACROX      1458     A     
 MACROX             AND    I9,I8,P3                                                        MACROX      1459          I
          -FCC1108
 MACROX             AND    I10,I8,P4                                                       MACROX      1460          I
          -FCC1108
 MACROX             STR    I11,I8,P1                                                       MACROX      1461          I
          -FCC1108
 MACROX             STR    I12,I8,P2                                                       MACROX      1462          I
          -FCC1108
 MACROX             IA     P5,I9,I11                                                       MACROX      1463          I
          -FCC1108
 MACROX             OR     P6,I10,I12                                                      MACROX      1464          I
          -FCC1108
 MACROX             XOR    I9,P1,P3                                                        FCC1108       28     A     
 MACROX             XOR    I10,P2,P4                                                       FCC1108       29     A     
 MACROX             AND    I11,I8,I9                                                       FCC1108       30     A     
 MACROX             XOR    P5,I11,P3                                                       FCC1108       31     A     
 MACROX             AND    I12,I8,I10                                                      FCC1108       32     A     
 MACROX             XOR    P6,I12,P4                                                       FCC1108       33     A     
 MACROX             ENDR                                                                   MACROX      1465     A     
 MACROX    I/O-MAC  TITLE  I/O MACROS                                                      MACROX      1466     A     
 MACROX   *         FORMAT I/O LIST ELEMENT AT EXECUTION TIME                              MACROX      1467     A     
 MACROX                                                                                    MACROX      1468     A     
 MACROX    IOAPL    RMACRO 0,3,1       12/TYPE,24/ITEMCT,24/ADDR                           MACROX      1469     A     
 MACROX             S      I1,K1          K1      P1        P2                             MACROX      1470     A     
 MACROX             SXT    I2,I1                                                           MACROX      1471     A     
 MACROX             KLS    I3,I2,48                                                        MACROX      1472     A     
 MACROX             FMA    I4,36                                                           MACROX      1473     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3701    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             STR    I5,I4,P1                                                        MACROX      1474     A     
 MACROX             SXT    I6,I5                                                           MACROX      1475     A     
 MACROX             KLS    I7,I6,24                                                        MACROX      1476     A     
 MACROX             OR     I8,I7,I3                                                        MACROX      1477     A     
 MACROX             IA     P3,I8,P2                                                        MACROX      1478     A     
 MACROX             ENDR                                                                   MACROX      1479     A     
 MACROX                                                                                    MACROX      1480     A     
 MACROX    SSORI    RMACRO 0,2,2       SET, SHIFT, OR                                      MACROX      1481     A     
 MACROX             S      I1,K1                                                           MACROX      1482     A     
 MACROX             SXT    I2,I1                                                           MACROX      1483     A     
 MACROX             KLS    I3,I2,K2                                                        MACROX      1484     A     
 MACROX             OR     P1,I3,P2                                                        MACROX      1485     A     
 MACROX             ENDR                                                                   MACROX      1486     A     
 MACROX                                                                                    MACROX      1487     A     
 MACROX    MSORI    RMACRO 0,2,2             MASK, SHIFT, OR                               MACROX      1488     A     
 MACROX             FMA    I1,K1                                                           MACROX      1489     A     
 MACROX             SXT    I2,I1                                                           MACROX      1490     A     
 MACROX             KLS    I3,I2,K2                                                        MACROX      1491     A     
 MACROX             OR     P1,I3,P2                                                        MACROX      1492     A     
 MACROX             ENDR                                                                   MACROX      1493     A     
 MACROX                                                                                    MACROX      1494     A     
 MACROX   *         MACROS TO COMPUTE PRODUCT OF DIMENSIONS OF AN ARRAY                    MACROX      1495     A     
 MACROX                                                                                    MACROX      1496     A     
 MACROX    V1       RMACRO 3,1,1                                                           MACROX      1497     A     
 MACROX             LD     I1,0,0,1                                                        MACROX      1498     A     
 MACROX             XMT    P1,I1                                                           MACROX      1499     A     
 MACROX             ENDR                                                                   MACROX      1500     A     
 MACROX                                                                                    MACROX      1501     A     
 MACROX    V2       RMACRO 3,1,1                                                           MACROX      1502     A     
 MACROX             LD     I1,0,0,1                                                        MACROX      1503     A     
 MACROX             LD     I2,0,0,2                                                        MACROX      1504     A     
 MACROX             IM     P1,I2,I1                                                        MACROX      1505     A     
 MACROX             ENDR                                                                   MACROX      1506     A     
 MACROX                                                                                    MACROX      1507     A     
 MACROX    V3       RMACRO 3,1,1                                                           MACROX      1508     A     
 MACROX             LD     I1,0,0,1                                                        MACROX      1509     A     
 MACROX             LD     I2,0,0,2                                                        MACROX      1510     A     
 MACROX             LD     I3,0,0,3                                                        MACROX      1511     A     
 MACROX             IM     I4,I2,I1                                                        MACROX      1512     A     
 MACROX             IM     P1,I4,I3                                                        MACROX      1513     A     
 MACROX             ENDR                                                                   MACROX      1514     A     
 MACROX                                                                                    MACROX      1515     A     
 MACROX    V1C1     RMACRO 3,1,1                                                           MACROX      1516     A     
 MACROX             LD     I1,0,0,1                                                        MACROX      1517     A     
 MACROX             S      I2,K1                                                           MACROX      1518     A     
 MACROX             IM     P1,I2,I1                                                        MACROX      1519     A     
 MACROX             ENDR                                                                   MACROX      1520     A     
 MACROX                                                                                    MACROX      1521     A     
 MACROX    V2C1     RMACRO 3,1,1                                                           MACROX      1522     A     
 MACROX             LD     I1,0,0,1                                                        MACROX      1523     A     
 MACROX             LD     I2,0,0,2                                                        MACROX      1524     A     
 MACROX             S      I3,K1                                                           MACROX      1525     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3702    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             IM     I4,I2,I1                                                        MACROX      1526     A     
 MACROX             IM     P1,I4,I3                                                        MACROX      1527     A     
 MACROX             ENDR                                                                   MACROX      1528     A     
 MACROX                                                                                    MACROX      1529     A     
 MACROX    BCM.V30  RMACRO 3,1,1                                                           MACROX      1530     A     
 MACROX             LD     I1,0,0,1                                                        MACROX      1531     A     
 MACROX             LD     I2,0,0,2                                                        MACROX      1532     A     
 MACROX             LD     I3,0,0,3                                                        MACROX      1533     A     
 MACROX             IM     I4,I2,I1                                                        MACROX      1534     A     
 MACROX             IA     I5,I3,I3                                                        MACROX      1535     A     
 MACROX             IM     P1,I5,I4                                                        MACROX      1536     A     
 MACROX             ENDR                                                                   MACROX      1537     A     
 MACROX                                                                                    MACROX      1538     A     
 MACROX   **        COLLAPSED I/O LIST MACROS                                              MACROX      1539     A     
 MACROX   *         PARAMETERS USED --                                                     MACROX      1540     A     
 MACROX   *                   1        I/O ROUTINE NAME SYMBOL ORDINAL                     MACROX      1541     A     
 MACROX   *                   2,K2     FIRST VARIABLE (BASE,BIAS)                          MACROX      1542     A     
 MACROX   *                   3,K3     SECOND VARIABLE (BASE,BIAS) IF PRESENT              MACROX      1543     A     
 MACROX   *                   K1       CONSTANT (OR CONSTANT MULTIPLIER)                   MACROX      1544     A     
 MACROX   *                   K3       (SECOND CONSTANT IF PRESENT)                        MACROX      1545     A     
 MACROX   *                   P1       FIRST WORD ADDRESS                                  MACROX      1546     A     
 MACROX   *                   P2       LAST WORD ADDRESS + 1 OR                            MACROX      1547     A     
 MACROX   *                            R-NUMBER TO PLACE LENGTH INTO                       MACROX      1548     A     
 MACROX                                                                                    MACROX      1549     A     
 MACROX    IOLP1C   RMACRO 4,6,4       LENGTH = CON                                        MACROX      1550     A     
 MACROX             S      I1,K1                                                           MACROX      1551     A     
 MACROX             SXT    I2,I1                                                           MACROX      1552     A     
 MACROX             KLS    I3,I2,24                                                        MACROX      1553     A     
 MACROX             S      I4,K4                                                           MACROX      1554     A     
 MACROX             SXT    I5,I4                                                           MACROX      1555     A     
 MACROX             KLS    I6,I5,48                                                        MACROX      1556     A     
 MACROX             OR     I7,I3,I6                                                        MACROX      1557     A     
 MACROX             IA     P1,P2,I7                                                        MACROX      1558     A     
 MACROX             ENDR                                                                   MACROX      1559     A     
 MACROX                                                                                    MACROX      1560     A     
 MACROX    IOLCVMC  RMACRO 4,6,4       P2=FWA, LEN=CON*(VAR-CON)                           MACROX      1561     A     
 MACROX             LD     I1,,K2,2                                                        MACROX      1562     A     
 MACROX             S      I2,K3                                                           MACROX      1563     A     
 MACROX             FMA    I3,59                                                           MACROX      1564          I
          -FEAT123A 
 MACROX             IS     I4,I2,I3                                                        MACROX      1565          I
          -FEAT123A 
 MACROX             IS     I5,I1,I4                                                        MACROX      1566          I
          -FEAT123A 
 MACROX             SXT    I6,I5                                                           MACROX      1567          I
          -FEAT123A 
 MACROX             KRS    I7,I6,59                                                        MACROX      1568          I
          -FEAT123A 
 MACROX             STR    I8,I7,I5                                                        MACROX      1569          I
          -FEAT123A 
 MACROX             IS     I9,I8,I3    LEN=1+.N.I7.A.(L-1)                                 MACROX      1570          I
          -FEAT123A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3703    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             S      I10,K1                                                          MACROX      1571          I
          -FEAT123A 
 MACROX             IM     P1,I10,I9                                                       MACROX      1572          I
          -FEAT123A 
 MACROX             IS     I3,I1,I2                                                        FEAT123A       5     A     
 MACROX             S      I4,K1                                                           FEAT123A       6     A     
 MACROX             IM     P1,I3,I4                                                        FEAT123A       7     A     
 MACROX             ENDR                                                                   MACROX      1573     A     
 MACROX                                                                                    MACROX      1574     A     
 MACROX    IOLCCMV  RMACRO 4,6,4       LEN=CON*(CON-VAR)                                   MACROX      1575     A     
 MACROX             LD     I1,,K2,2                                                        MACROX      1576     A     
 MACROX             S      I2,K3                                                           MACROX      1577     A     
 MACROX             FMA    I3,59                                                           MACROX      1578          I
          -FEAT123A 
 MACROX             IA     I4,I3,I2    L=V-C                                               MACROX      1579          I
          -FEAT123A 
 MACROX             IS     I5,I4,I1                                                        MACROX      1580          I
          -FEAT123A 
 MACROX             SXT    I6,I5                                                           MACROX      1581          I
          -FEAT123A 
 MACROX             KRS    I7,I6,59                                                        MACROX      1582          I
          -FEAT123A 
 MACROX             STR    I8,I7,I5                                                        MACROX      1583          I
          -FEAT123A 
 MACROX             IS     I9,I8,I3    LEN=1+.N.I7.A.(L-1)                                 MACROX      1584          I
          -FEAT123A 
 MACROX             S      I10,K1                                                          MACROX      1585          I
          -FEAT123A 
 MACROX             IM     P1,I10,I9                                                       MACROX      1586          I
          -FEAT123A 
 MACROX             IS     I3,I2,I1                                                        FEAT123A       8     A     
 MACROX             S      I4,K1                                                           FEAT123A       9     A     
 MACROX             IM     P1,I3,I4                                                        FEAT123A      10     A     
 MACROX             ENDR                                                                   MACROX      1587     A     
 MACROX                                                                                    MACROX      1588     A     
 MACROX    IOLCVMV  RMACRO 4,6,4       LEN=CON*(VAR-VAR)                                   MACROX      1589     A     
 MACROX             LD     I1,,K2,2                                                        MACROX      1590     A     
 MACROX             LD     I2,,K3,3                                                        MACROX      1591     A     
 MACROX             IS     I3,I2,I1    L-1=VAR-VAR                                         MACROX      1592     A     
 MACROX             SXT    I4,I3       IF I2-I1=-0                                         MACROX      1593          I
          -FEAT123A 
 MACROX             KRS    I5,I4,59    IS=-0                                               MACROX      1594          I
          -FEAT123A 
 MACROX             STR    I6,I5,I3    I6=0                                                MACROX      1595          I
          -FEAT123A 
 MACROX             FMA    I7,59                                                           MACROX      1596          I
          -FEAT123A 
 MACROX             IS     I8,I6,I7    LEN=1+.N.I5.A.(VAR-VAR)                             MACROX      1597          I
          -FEAT123A 
 MACROX             S      I9,K1                                                           MACROX      1598          I
          -FEAT123A 
 MACROX             IM     P1,I9,I8                                                        MACROX      1599          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3704    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
          -FEAT123A 
 MACROX             FMA    I4,59                                                           FEAT123A      11     A     
 MACROX             IS     I5,I3,I4                                                        FEAT123A      12     A     
 MACROX             S      I6,K1                                                           FEAT123A      13     A     
 MACROX             IM     P1,I5,I6                                                        FEAT123A      14     A     
 MACROX             ENDR                                                                   MACROX      1600     A     
 MACROX                                                                                    MACROX      1601     A     
 MACROX    IOLCV    RMACRO 4,6,4       LEN=CON*VAR                                         MACROX      1602     A     
 MACROX             LD     I1,,K2,2                                                        MACROX      1603     A     
 MACROX             FMA    I2,59                                                           MACROX      1604          I
          -FEAT123A 
 MACROX             IA     I3,I1,I2    L-1=VAR-1                                           MACROX      1605          I
          -FEAT123A 
 MACROX             SXT    I4,I3                                                           MACROX      1606          I
          -FEAT123A 
 MACROX             KRS    I5,I4,59                                                        MACROX      1607          I
          -FEAT123A 
 MACROX             STR    I6,I5,I3                                                        MACROX      1608          I
          -FEAT123A 
 MACROX             IS     I7,I6,I2    LEN=1+.N.I5.A.(L-1)                                 MACROX      1609          I
          -FEAT123A 
 MACROX             S      I8,K1                                                           MACROX      1610          I
          -FEAT123A 
 MACROX             IM     P1,I8,I7                                                        MACROX      1611          I
          -FEAT123A 
 MACROX             S      I2,K1                                                           FEAT123A      15     A     
 MACROX             IM     P1,I1,I2                                                        FEAT123A      16     A     
 MACROX             ENDR                                                                   MACROX      1612     A     
 MACROX                                                                                    MACROX      1613     A     
 MACROX    IOLP1P2  RMACRO 4,6,4       LENGTH = LWA+1 - FWA                                MACROX      1614     A     
 MACROX             IS     I1,P3,P2                                                        MACROX      1615     A     
 MACROX             S      I2,1                                                            MACROX      1616          I
          -FEAT123A 
 MACROX             IS     I3,I1,I2                                                        MACROX      1617          I
          -FEAT123A 
 MACROX             SXT    I4,I3                                                           MACROX      1618          I
          -FEAT123A 
 MACROX             KRS    I5,I4,59                                                        MACROX      1619          I
          -FEAT123A 
 MACROX             AND    I6,I5,I2                                                        MACROX      1620          I
          -FEAT123A 
 MACROX             STR    I7,I5,I1                                                        MACROX      1621          I
          -FEAT123A 
 MACROX             IA     I8,I6,I7                                                        MACROX      1622          I
          -FEAT123A 
 MACROX             S      I9,K4                                                           MACROX      1623     A     
 MACROX             SXT    I10,I9                                                          MACROX      1624     A     
 MACROX             KLS    I11,I10,48                                                      MACROX      1625     A     
 MACROX             FMA    I12,36                                                          MACROX      1626     A     
 MACROX             STR    I13,I12,I8                                                      MACROX      1627          I
          -FEAT123A 
 MACROX             STR    I13,I12,I1                                                      FEAT123A      17     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3705    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             SXT    I14,I13                                                         MACROX      1628     A     
 MACROX             KLS    I15,I14,K1                                                      MACROX      1629     A     
 MACROX             OR     I16,I11,I15                                                     MACROX      1630     A     
 MACROX             IA     P1,P2,I16                                                       MACROX      1631     A     
 MACROX             ENDR                                                                   MACROX      1632     A     
 MACROX    IF-MAC   TITLE  IF MACROS                                                       MACROX      1633     A     
 MACROX    IF(R)123 RMACRO 3,2,0       IF (REAL   )  1, 2, 3                               MACROX      1634     A     
 MACROX             ZR     P1,2                                                            MACROX      1635     A     
 MACROX             PL     P1,3                                                            MACROX      1636     A     
 MACROX             UJP    0,1                                                             MACROX      1637     A     
 MACROX    IF       ENDR                                                                   MACROX      1638     A     
 MACROX    IF(I)123 EQU    IF(R)123                                                        MACROX      1639     A     
 MACROX    IF(D)123 EQU    IF(R)123                                                        MACROX      1640     A     
 MACROX                                                                                    MACROX      1641     A     
 MACROX    IF(R)122 RMACRO 3,2,0       IF (REAL   )  1, 2, 2                               MACROX      1642     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX      1643     A     
 MACROX             PNR    I1,,P1                                                          MACROX      1644     A     
 MACROX             PL     I1,2                                                            MACROX      1645     A     
 MACROX    #MD      ELSE                                                                   MACROX      1646     A     
 MACROX             CLR    I1                                                              MACROX      1647     A     
 MACROX             IAZ    I2,I1,P1                                                        MACROX      1648     A     
 MACROX             PL     I2,2                                                            MACROX      1649     A     
 MACROX    #MD      ENDIF                                                                  MACROX      1650     A     
 MACROX             UJP    0,1                                                             MACROX      1651     A     
 MACROX    IF       ENDR                                                                   MACROX      1652     A     
 MACROX                                                                                    MACROX      1653     A     
 MACROX    IF(I)122 RMACRO 3,2,0       IF (INTEGER)  1, 2, 2                               MACROX      1654     A     
 MACROX             CLR    I1                                                              MACROX      1655     A     
 MACROX             IAZ    I2,I1,P1                                                        MACROX      1656     A     
 MACROX             PL     I2,2                                                            MACROX      1657     A     
 MACROX             UJP    0,1                                                             MACROX      1658     A     
 MACROX    IF       ENDR                                                                   MACROX      1659     A     
 MACROX    IF(D)122 EQU    IF(R)122                                                        MACROX      1660     A     
 MACROX                                                                                    MACROX      1661     A     
 MACROX    IF(R)113 RMACRO 3,2,0       IF (REAL   )  1, 1, 3                               MACROX      1662     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX      1663     A     
 MACROX             XMTC   I1,P1                                                           MACROX      1664     A     
 MACROX             PNR    I2,,I1                                                          MACROX      1665     A     
 MACROX    #MD      ELSE                                                                   MACROX      1666     A     
 MACROX             CLR    I1                                                              MACROX      1667     A     
 MACROX             ISZ    I2,I1,P1                                                        MACROX      1668     A     
 MACROX    #MD      ENDIF                                                                  MACROX      1669     A     
 MACROX             PL     I2,1                                                            MACROX      1670     A     
 MACROX             UJP    0,3                                                             MACROX      1671     A     
 MACROX    IF       ENDR                                                                   MACROX      1672     A     
 MACROX                                                                                    MACROX      1673     A     
 MACROX    IF(I)113 RMACRO 3,2,0       IF (INTEGER)  1, 1, 3                               MACROX      1674     A     
 MACROX             CLR    I1                                                              MACROX      1675     A     
 MACROX             ISZ    I2,I1,P1                                                        MACROX      1676     A     
 MACROX             PL     I2,1                                                            MACROX      1677     A     
 MACROX             UJP    0,3                                                             MACROX      1678     A     
 MACROX    IF       ENDR                                                                   MACROX      1679     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3706    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX    IF(D)113 EQU    IF(R)113                                                        MACROX      1680     A     
 MACROX                                                                                    MACROX      1681     A     
 MACROX    IF(R)121 RMACRO 3,2,0       IF (REAL   )  1, 2, 1                               MACROX      1682     A     
 MACROX             ZR     P1,2                                                            MACROX      1683     A     
 MACROX             UJP    0,1                                                             MACROX      1684     A     
 MACROX    IF       ENDR                                                                   MACROX      1685     A     
 MACROX    IF(I)121 EQU    IF(R)121                                                        MACROX      1686     A     
 MACROX    IF(D)121 EQU    IF(R)121                                                        MACROX      1687     A     
 MACROX                                                                                    MACROX      1688     A     
 MACROX    IF(R)N23 RMACRO 3,2,0       IF (REAL   )  N, 2, 3                               MACROX      1689     A     
 MACROX             ZR     P1,2                                                            MACROX      1690     A     
 MACROX             PL     P1,3                                                            MACROX      1691     A     
 MACROX    IF       ENDR                                                                   MACROX      1692     A     
 MACROX    IF(I)N23 EQU    IF(R)N23                                                        MACROX      1693     A     
 MACROX    IF(D)N23 EQU    IF(R)N23                                                        MACROX      1694     A     
 MACROX                                                                                    MACROX      1695     A     
 MACROX    IF(R)1N3 RMACRO 3,2,0       IF (REAL   )  1, N, 3                               MACROX      1696     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX      1697     A     
 MACROX             PNR    I1,,P1                                                          MACROX      1698     A     
 MACROX             MI     I1,1                                                            MACROX      1699     A     
 MACROX             NZ     I1,3                                                            MACROX      1700     A     
 MACROX    #MD      ELSE                                                                   MACROX      1701     A     
 MACROX             CLR    I1                                                              MACROX      1702     A     
 MACROX             IAZ    I2,I1,P1                                                        MACROX      1703     A     
 MACROX             MI     I2,1                                                            MACROX      1704     A     
 MACROX             NZ     I2,3                                                            MACROX      1705     A     
 MACROX    #MD      ENDIF                                                                  MACROX      1706     A     
 MACROX    IF       ENDR                                                                   MACROX      1707     A     
 MACROX                                                                                    MACROX      1708     A     
 MACROX    IF(I)1N3 RMACRO 3,2,0       IF (INTEGER)  1, N, 3                               MACROX      1709     A     
 MACROX             CLR    I1                                                              MACROX      1710     A     
 MACROX             IAZ    I2,I1,P1                                                        MACROX      1711     A     
 MACROX             MI     I2,1                                                            MACROX      1712     A     
 MACROX             NZ     I2,3                                                            MACROX      1713     A     
 MACROX    IF       ENDR                                                                   MACROX      1714     A     
 MACROX    IF(D)1N3 EQU    IF(R)1N3                                                        MACROX      1715     A     
 MACROX                                                                                    MACROX      1716     A     
 MACROX    IF(R)12N RMACRO 3,2,0       IF (REAL   )  1, 2, N                               MACROX      1717     A     
 MACROX             ZR     P1,2                                                            MACROX      1718     A     
 MACROX             MI     P1,1                                                            MACROX      1719     A     
 MACROX    IF       ENDR                                                                   MACROX      1720     A     
 MACROX    IF(I)12N EQU    IF(R)12N                                                        MACROX      1721     A     
 MACROX    IF(D)12N EQU    IF(R)12N                                                        MACROX      1722     A     
 MACROX                                                                                    MACROX      1723     A     
 MACROX    IF(R)N22 RMACRO 3,2,0       IF (REAL   )  N, 2, 2                               MACROX      1724     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX      1725     A     
 MACROX             PNR    I1,,P1                                                          MACROX      1726     A     
 MACROX             PL     I1,2                                                            MACROX      1727     A     
 MACROX    #MD      ELSE                                                                   MACROX      1728     A     
 MACROX             CLR    I1                                                              MACROX      1729     A     
 MACROX             IAZ    I2,I1,P1                                                        MACROX      1730     A     
 MACROX             PL     I2,2                                                            MACROX      1731     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3707    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX    #MD      ENDIF                                                                  MACROX      1732     A     
 MACROX    IF       ENDR                                                                   MACROX      1733     A     
 MACROX                                                                                    MACROX      1734     A     
 MACROX    IF(I)N22 RMACRO 3,2,0       IF (INTEGER)  N, 2, 2                               MACROX      1735     A     
 MACROX             CLR    I1                                                              MACROX      1736     A     
 MACROX             IAZ    I2,I1,P1                                                        MACROX      1737     A     
 MACROX             PL     I2,2                                                            MACROX      1738     A     
 MACROX    IF       ENDR                                                                   MACROX      1739     A     
 MACROX    IF(D)N22 EQU    IF(R)N22                                                        MACROX      1740     A     
 MACROX                                                                                    MACROX      1741     A     
 MACROX    IF(R)1NN RMACRO 3,2,0       IF (REAL   )  1, N, N                               MACROX      1742     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX      1743     A     
 MACROX             PNR    I1,,P1                                                          MACROX      1744     A     
 MACROX             MI     I1,1                                                            MACROX      1745     A     
 MACROX    #MD      ELSE                                                                   MACROX      1746     A     
 MACROX             CLR    I1                                                              MACROX      1747     A     
 MACROX             IAZ    I2,I1,P1                                                        MACROX      1748     A     
 MACROX             MI     I2,1                                                            MACROX      1749     A     
 MACROX    #MD      ENDIF                                                                  MACROX      1750     A     
 MACROX    IF       ENDR                                                                   MACROX      1751     A     
 MACROX                                                                                    MACROX      1752     A     
 MACROX    IF(I)1NN RMACRO 3,2,0       IF (INTEGER)  1, N, N                               MACROX      1753     A     
 MACROX             CLR    I1                                                              MACROX      1754     A     
 MACROX             IAZ    I2,I1,P1                                                        MACROX      1755     A     
 MACROX             MI     I2,1                                                            MACROX      1756     A     
 MACROX    IF       ENDR                                                                   MACROX      1757     A     
 MACROX    IF(D)1NN EQU    IF(R)1NN                                                        MACROX      1758     A     
 MACROX                                                                                    MACROX      1759     A     
 MACROX    IF(R)NN3 RMACRO 3,2,0       IF (REAL   )  N, N, 3                               MACROX      1760     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX      1761     A     
 MACROX             XMTC   I1,P1                                                           MACROX      1762     A     
 MACROX             PNR    I2,,I1                                                          MACROX      1763     A     
 MACROX             MI     I2,3                                                            MACROX      1764     A     
 MACROX    #MD      ELSE                                                                   MACROX      1765     A     
 MACROX             CLR    I1                                                              MACROX      1766     A     
 MACROX             ISZ    I2,I1,P1                                                        MACROX      1767     A     
 MACROX             MI     I2,3                                                            MACROX      1768     A     
 MACROX    #MD      ENDIF                                                                  MACROX      1769     A     
 MACROX    IF       ENDR                                                                   MACROX      1770     A     
 MACROX                                                                                    MACROX      1771     A     
 MACROX    IF(I)NN3 RMACRO 3,2,0       IF (INTEGER)  N, N, 3                               MACROX      1772     A     
 MACROX             CLR    I1                                                              MACROX      1773     A     
 MACROX             ISZ    I2,I1,P1                                                        MACROX      1774     A     
 MACROX             MI     I2,3                                                            MACROX      1775     A     
 MACROX    IF       ENDR                                                                   MACROX      1776     A     
 MACROX    IF(D)NN3 EQU    IF(R)NN3                                                        MACROX      1777     A     
 MACROX                                                                                    MACROX      1778     A     
 MACROX    IF(R)11N RMACRO 3,2,0       IF (REAL   )  1, 1, N                               MACROX      1779     A     
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX      1780     A     
 MACROX             XMTC   I1,P1                                                           MACROX      1781     A     
 MACROX             PNR    I2,,I1                                                          MACROX      1782     A     
 MACROX             PL     I2,1                                                            MACROX      1783     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3708    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX    #MD      ELSE                                                                   MACROX      1784     A     
 MACROX             CLR    I1                                                              MACROX      1785     A     
 MACROX             ISZ    I2,I1,P1                                                        MACROX      1786     A     
 MACROX             PL     I2,1                                                            MACROX      1787     A     
 MACROX    #MD      ENDIF                                                                  MACROX      1788     A     
 MACROX    IF       ENDR                                                                   MACROX      1789     A     
 MACROX                                                                                    MACROX      1790     A     
 MACROX    IF(I)11N RMACRO 3,2,0       IF (INTEGER)  1, 1, N                               MACROX      1791     A     
 MACROX             CLR    I1                                                              MACROX      1792     A     
 MACROX             ISZ    I2,I1,P1                                                        MACROX      1793     A     
 MACROX             PL     I2,1                                                            MACROX      1794     A     
 MACROX    IF       ENDR                                                                   MACROX      1795     A     
 MACROX    IF(D)11N EQU    IF(R)11N                                                        MACROX      1796     A     
 MACROX                                                                                    MACROX      1797     A     
 MACROX    IF(R)N2N RMACRO 3,2,0       IF (REAL   )  N, 2, N                               MACROX      1798     A     
 MACROX             ZR     P1,2                                                            MACROX      1799     A     
 MACROX    IF       ENDR                                                                   MACROX      1800     A     
 MACROX    IF(I)N2N EQU    IF(R)N2N                                                        MACROX      1801     A     
 MACROX    IF(D)N2N EQU    IF(R)N2N                                                        MACROX      1802     A     
 MACROX                                                                                    MACROX      1803     A     
 MACROX    IF(R)1N1 RMACRO 3,2,0       IF (REAL   )  1, N, 1                               MACROX      1804     A     
 MACROX             NZ     P1,1                                                            MACROX      1805     A     
 MACROX    IF       ENDR                                                                   MACROX      1806     A     
 MACROX    IF(I)1N1 EQU    IF(R)1N1                                                        MACROX      1807     A     
 MACROX    IF(D)1N1 EQU    IF(R)1N1                                                        MACROX      1808     A     
 MACROX    LOGICAL  SPACE  3                                                               MACROX      1809     A     
 MACROX   **        LOGICAL IF MACROS                                                      MACROX      1810     A     
 MACROX                                                                                    MACROX      1811     A     
 MACROX    IF(L)12  RMACRO 3,2,0       IF (LOGICAL)  1, 2                                  MACROX      1812     A     
 MACROX             MI     P1,1                                                            MACROX      1813     A     
 MACROX             UJP    0,2                                                             MACROX      1814     A     
 MACROX    IF       ENDR                                                                   MACROX      1815     A     
 MACROX                                                                                    MACROX      1816     A     
 MACROX    IF(L)N2  RMACRO 3,2,0       IF (LOGICAL)  N, 2                                  MACROX      1817     A     
 MACROX             PL     P1,2                                                            MACROX      1818     A     
 MACROX    IF       ENDR                                                                   MACROX      1819     A     
 MACROX                                                                                    MACROX      1820     A     
 MACROX    IF(L)1N  RMACRO 3,2,0       IF (LOGICAL)  1, N                                  MACROX      1821     A     
 MACROX             MI     P1,1                                                            MACROX      1822     A     
 MACROX    IF       ENDR                                                                   MACROX      1823     A     
 MACROX                                                                                    MACROX      1824     A     
 MACROX    IF(C)121 RMACRO 3,2,0                                                           MACROX      1825     A     
 MACROX             NZ     P1,1                                                            MACROX      1826     A     
 MACROX             NZ     P2,1                                                            MACROX      1827     A     
 MACROX             UJP    0,2                                                             MACROX      1828     A     
 MACROX    IF       ENDR                                                                   MACROX      1829     A     
 MACROX                                                                                    MACROX      1830     A     
 MACROX    IF(C)N2N RMACRO 3,2,0                                                           MACROX      1831     A     
 MACROX             CLR    I1                                                              MACROX      1832     A     
 MACROX             IAZ    I2,P1,I1                                                        MACROX      1833     A     
 MACROX             IAZ    I3,P2,I1                                                        MACROX      1834     A     
 MACROX             OR     I4,I2,I3                                                        MACROX      1835     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3709    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             FMA    I5,59                                                           MACROX      1836     A     
 MACROX             IA     I6,I4,I5                                                        MACROX      1837     A     
 MACROX             EQV    I7,I6,I4                                                        MACROX      1838     A     
 MACROX             PL     I7,2                                                            MACROX      1839     A     
 MACROX    IF       ENDR                                                                   MACROX      1840     A     
 MACROX                                                                                    MACROX      1841     A     
 MACROX    IF(C)1N1 RMACRO 3,2,0                                                           MACROX      1842     A     
 MACROX             NZ     P1,1                                                            MACROX      1843     A     
 MACROX             NZ     P2,1                                                            MACROX      1844     A     
 MACROX    IF       ENDR                                                                   MACROX      1845     A     
 MACROX                                                                                    MACROX      1846     A     
 MACROX    IF(R)111 RMACRO 3,2,0,A     IF (REAL   )  1, 1, 1                               MACROX      1847     A     
 MACROX             UJP    0,1                                                             MACROX      1848     A     
 MACROX    UJP      ENDR                                                                   MACROX      1849     A     
 MACROX    LD-LD    TITLE  LCM LOAD MACROS                                                 MACROX      1850     A     
 MACROX    INDMDLD  RMACRO 4,6,4       INDIRECT MODE LCM LOAD                              MACROX      1851     A     
 MACROX             LD     I1,0,K1,1                                                       MACROX      1852     A     
 MACROX             XMT    P1,I1                                                           MACROX      1853     A     
 MACROX             ST     P1,0,K2,2                                                       MACROX      1854     A     
 MACROX             ENDR                                                                   MACROX      1855     A     
 MACROX    DEBUG    SPACE  4,10                                                            MACROX      1856     A     
 MACROX   *         MACROS FOR DEBUG MODE                                                  MACROX      1857     A     
 MACROX                                                                                    MACROX      1858     A     
 MACROX    JPB0     RMACRO 0,0,0                                                           MACROX      1859     A     
 MACROX             CLR    I1,0        FUDGE A ZERO TO GET THORUGH *SQZ*                   MACROX      1860     A     
 MACROX             JIN    I1                                                              MACROX      1861     A     
 MACROX             ENDR                                                                   MACROX      1862     A     
 MACROX    FCLSPP   SPACE  3,14                                                            FCCT003       58     A     
 MACROX    #T       IFNE   TEST,0                                                          FCCT003       59     A     
 MACROX   *         DEFINITIONS OF SPECIAL INLINE FUNCTIONS FOR *FCL* PROJECT              FCCT003       60     A     
 MACROX                                                                                    FCCT003       61     A     
 MACROX    FMULT    RMACRO 0,3,0                                                           FCCT003       62     A     
 MACROX             FM     P3,P2,P1                                                        FCCT003       63     A     
 MACROX             ENDR                                                                   FCCT003       64     A     
 MACROX                                                                                    FCCT003       65     A     
 MACROX    RMULT    RMACRO 0,3,0                                                           FCCT003       66     A     
 MACROX             RFM    P3,P2,P1                                                        FCCT003       67     A     
 MACROX             ENDR                                                                   FCCT003       68     A     
 MACROX                                                                                    FCCT003       69     A     
 MACROX    FDIV     RMACRO 0,3,0                                                           FCCT003       70     A     
 MACROX             FD     P3,P1,P2                                                        FCCT003       71     A     
 MACROX             ENDR                                                                   FCCT003       72     A     
 MACROX                                                                                    FCCT003       73     A     
 MACROX    DADD     RMACRO 0,3,0                                                           FCCT003       74     A     
 MACROX             DFA    P3,P1,P2                                                        FCCT003       75     A     
 MACROX             ENDR                                                                   FCCT003       76     A     
 MACROX                                                                                    FCCT003       77     A     
 MACROX    DSUB     RMACRO 0,3,0                                                           FCCT003       78     A     
 MACROX             DFS    P3,P1,P2                                                        FCCT003       79     A     
 MACROX             ENDR                                                                   FCCT003       80     A     
 MACROX                                                                                    FCCT003       81     A     
 MACROX    RNORM    RMACRO 0,2,0                                                           FCCT003       82     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3710    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             RNZ    P2,0,P1                                                         FCCT003       83     A     
 MACROX             ENDR                                                                   FCCT003       84     A     
 MACROX                                                                                    FCCT003       85     A     
 MACROX    DSUMH    RMACRO 0,6,0                                                           FCCT003       86     A     
 MACROX             FA     P5,P1,P3                                                        FCCT003       87     A     
 MACROX             DFA    I1,P1,P3                                                        FCCT003       88     A     
 MACROX             FA     I2,P2,P4                                                        FCCT003       89     A     
 MACROX             FA     P6,I1,I2                                                        FCCT003       90     A     
 MACROX             ENDR                                                                   FCCT003       91     A     
 MACROX                                                                                    FCCT003       92     A     
 MACROX    DDIFH    RMACRO 0,6,0                                                           FCCT003       93     A     
 MACROX             FS     P5,P1,P3                                                        FCCT003       94     A     
 MACROX             DFS    I1,P1,P3                                                        FCCT003       95     A     
 MACROX             FS     I2,P2,P4                                                        FCCT003       96     A     
 MACROX             FA     P6,I1,I2                                                        FCCT003       97     A     
 MACROX             ENDR                                                                   FCCT003       98     A     
 MACROX                                                                                    FCCT003       99     A     
 MACROX    DDIVH    RMACRO 0,6,0                                                           FCCT003      100     A     
 MACROX             FD     P5,P1,P3                                                        FCCT003      101     A     
 MACROX             FM     I2,P5,P3                                                        FCCT003      102     A     
 MACROX             FS     I3,P1,I2                                                        FCCT003      103     A     
 MACROX             DFS    I4,P1,I2                                                        FCCT003      104     A     
 MACROX             NR     I5,0,I3                                                         FCCT003      105     A     
 MACROX             FA     I6,I4,I5                                                        FCCT003      106     A     
 MACROX             DFM    I7,P5,P3                                                        FCCT003      107     A     
 MACROX             FM     I8,P5,P4                                                        FCCT003      108     A     
 MACROX             FS     I9,P2,I7                                                        FCCT003      109     A     
 MACROX             FA     I10,I6,I9                                                       FCCT003      110     A     
 MACROX             FS     I11,I10,I8                                                      FCCT003      111     A     
 MACROX             FD     P6,I11,P3                                                       FCCT003      112     A     
 MACROX             ENDR                                                                   FCCT003      113     A     
 MACROX                                                                                    FCCT003      114     A     
 MACROX    DMULH    RMACRO 0,6,0                                                           FCCT003      115     A     
 MACROX             FM     P5,P1,P3                                                        FCCT003      116     A     
 MACROX             FM     I1,P2,P3                                                        FCCT003      117     A     
 MACROX             FM     I2,P1,P4                                                        FCCT003      118     A     
 MACROX             FA     I3,I1,I2                                                        FCCT003      119     A     
 MACROX             DFM    I5,P1,P3                                                        FCCT003      120     A     
 MACROX             FA     P6,I3,I5                                                        FCCT003      121     A     
 MACROX             ENDR                                                                   FCCT003      122     A     
 MACROX                                                                                    FCCT003      123     A     
 MACROX    BOOL     RMACRO 0,2,0                                                           FCCT003      124     A     
 MACROX             XMT    P2,P1                                                           FCCT003      125     A     
 MACROX             ENDR                                                                   FCCT003      126     A     
 MACROX    #T       ENDIF                                                                  FCCT003      127     A     
 MACROX                                                                                    MACROX      1863          I
          -FCC0514
 MACROX   *         OPTIMIZED IF-MACROS WITH MINUS-ZERO PROTECT.                           MACROX      1864          I
          -FCC0514
 MACROX                                                                                    MACROX      1865          I
          -FCC0514
 MACROX    IF(S)122 RMACRO 3,2,0       ZERO PROTECTED IF(L)12                              MACROX      1866          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3711    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
          -FCC0514
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX      1867          I
          -FCC0514
 MACROX             MI     P1,1                                                            MACROX      1868          I
          -FCC0514
 MACROX    #MD      ELSE                                                                   MACROX      1869          I
          -FCC0514
 MACROX             CLR    I1                                                              MACROX      1870          I
          -FCC0514
 MACROX             IAZ    I2,I1,P1                                                        MACROX      1871          I
          -FCC0514
 MACROX             MI     I2,1                                                            MACROX      1872          I
          -FCC0514
 MACROX    #MD      ENDIF                                                                  MACROX      1873          I
          -FCC0514
 MACROX             UJP    0,2                                                             MACROX      1874          I
          -FCC0514
 MACROX    IF       ENDR                                                                   MACROX      1875          I
          -FCC0514
 MACROX                                                                                    MACROX      1876          I
          -FCC0514
 MACROX    IF(S)N22 RMACRO 3,2,0       ZERO-PROTECTED IF(L)N2                              MACROX      1877          I
          -FCC0514
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX      1878          I
          -FCC0514
 MACROX             PL     P1,2                                                            MACROX      1879          I
          -FCC0514
 MACROX    #MD      ELSE                                                                   MACROX      1880          I
          -FCC0514
 MACROX             CLR    I1                                                              MACROX      1881          I
          -FCC0514
 MACROX             IAZ    I2,I1,P1                                                        MACROX      1882          I
          -FCC0514
 MACROX             PL     I2,2                                                            MACROX      1883          I
          -FCC0514
 MACROX    #MD      ENDIF                                                                  MACROX      1884          I
          -FCC0514
 MACROX    IF       ENDR                                                                   MACROX      1885          I
          -FCC0514
 MACROX                                                                                    MACROX      1886          I
          -FCC0514
 MACROX    IF(S)1NN RMACRO 3,2,0       ZERO-PROTECTED IF(L)1N                              MACROX      1887          I
          -FCC0514
 MACROX    #MD      IFEQ   .NRFCO,1                                                        MACROX      1888          I
          -FCC0514
 MACROX             MI     P1,1                                                            MACROX      1889          I
          -FCC0514
 MACROX    #MD      ELSE                                                                   MACROX      1890          I
          -FCC0514
 MACROX             CLR    I1                                                              MACROX      1891          I
          -FCC0514
 MACROX             IAZ    I2,I1,P1                                                        MACROX      1892          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3712    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
          -FCC0514
 MACROX             MI     I2,1                                                            MACROX      1893          I
          -FCC0514
 MACROX    #MD      ENDIF                                                                  MACROX      1894          I
          -FCC0514
 MACROX    IF       ENDR                                                                   MACROX      1895          I
          -FCC0514
 MACROX    DO-MAC   TITLE  DO BEGIN/END MACROS                                             MACROX      1896     A     
 MACROX             ENTRY  DOBGN,DOEND                                                     MACROX      1897     A     
 MACROX    DOBGN    EQU    MACNUM      BASE OF DO BEGIN MACROS                             MACROX      1898     A     
 MACROX                                                                                    MACROX      1899     A     
 MACROX    DOI=CON  RMACRO 5,1,4       DO N I = CON                                        MACROX      1900     A     
 MACROX             S      P1,K1                                                           MACROX      1901     A     
 MACROX             ST     P1,,K4,5    I = CON                                             MACROX      1902     A     
 MACROX             ENDR                                                                   MACROX      1903     A     
 MACROX                                                                                    MACROX      1904     A     
 MACROX    DOI=VAR  RMACRO 5,1,4       DO N I = VAR                                        MACROX      1905     A     
 MACROX             LD     I1,,K1,2                                                        MACROX      1906     A     
 MACROX             XMT    P1,I1                                                           MACROX      1907     A     
 MACROX             ST     P1,,K4,5                                                        MACROX      1908     A     
 MACROX             ENDR                                                                   MACROX      1909     A     
 MACROX                                                                                    MACROX      1910     A     
 MACROX    DOI=EXP  RMACRO 5,1,4       DO N I = EXP                                        MACROX      1911     A     
 MACROX             XMT    I1,P1                                                           MACROX      1912     A     
 MACROX             ST     I1,,K4,5                                                        MACROX      1913     A     
 MACROX             ENDR                                                                   MACROX      1914     A     
 MACROX                                                                                    MACROX      1915     A     
 MACROX    DOEND    EQU    MACNUM      BASE OF DO END MACROS                               MACROX      1916     A     
 MACROX                                                                                    MACROX      1917     A     
 MACROX    DOXCC    RMACRO 5,1,4       DO N I = B,CC,CD                                    MACROX      1918     A     
 MACROX             LD     I1,,K4,5                                                        MACROX      1919     A     
 MACROX             STT    I2,I1,K3    I = I + D                                           MACROX      1920     A     
 MACROX             ST     I2,,K4,5                                                        MACROX      1921     A     
 MACROX             STT    I3,I2,K2                                                        MACROX      1922     A     
 MACROX             MI     I3,1                                                            MACROX      1923     A     
 MACROX             ENDR                                                                   MACROX      1924     A     
 MACROX                                                                                    MACROX      1925     A     
 MACROX    DOXCV    RMACRO 5,1,4       DO N I = B,CC,SD                                    MACROX      1926     A     
 MACROX             LD     I1,,K4,5                                                        MACROX      1927     A     
 MACROX             LD     I2,,K3,4                                                        MACROX      1928     A     
 MACROX             IA     I3,I2,I1    I = I + D                                           MACROX      1929     A     
 MACROX             ST     I3,,K4,5                                                        MACROX      1930     A     
 MACROX             STT    I4,I3,K2                                                        MACROX      1931     A     
 MACROX             MI     I4,1                                                            MACROX      1932     A     
 MACROX             ENDR                                                                   MACROX      1933     A     
 MACROX                                                                                    MACROX      1934     A     
 MACROX    DOXVC    RMACRO 5,1,4       DO N I = B,SC,D                                     MACROX      1935     A     
 MACROX             LD     I1,,K4,5                                                        MACROX      1936     A     
 MACROX             STT    I2,I1,K3    I = I + D                                           MACROX      1937     A     
 MACROX             ST     I2,,K4,5                                                        MACROX      1938     A     
 MACROX             LD     I3,,K2,3                                                        MACROX      1939     A     
 MACROX             IS     I4,I3,I2                                                        MACROX      1940     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3713    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN MACROX  
  
 MACROX             PL     I4,1        IF( I @ D ) GO TO )XX                               MACROX      1941     A     
 MACROX             ENDR                                                                   MACROX      1942     A     
 MACROX                                                                                    MACROX      1943     A     
 MACROX    DOXVV    RMACRO 5,1,4       DO N I = B,SC,SD                                    MACROX      1944     A     
 MACROX             LD     I1,,K4,5                                                        MACROX      1945     A     
 MACROX             LD     I2,,K3,4                                                        MACROX      1946     A     
 MACROX             IA     I3,I2,I1    I = I + D                                           MACROX      1947     A     
 MACROX             ST     I3,,K4,5                                                        MACROX      1948     A     
 MACROX             LD     I4,,K2,3                                                        MACROX      1949     A     
 MACROX             IS     I5,I4,I3                                                        MACROX      1950     A     
 MACROX             PL     I5,1        IF( I @ D ) GO TO )XX                               MACROX      1951     A     
 MACROX             ENDR                                                                   MACROX      1952     A     
 MACROX             SPACE  4                                                               MACROX      1953     A     
 MACROX             LIST   L,A                                                             MACROX      1954     A     
 MACROX    U        EQU    .UNUS       NUMBER OF UNUSED MACROS                             MACROX      1955     A     
 MACROX                                                                                    MACROX      1956     A     
 MACROX   *                            ** LIST OF UNUSED R-MACRO NUMBERS **                MACROX      1957     A     
 MACROX                                                                                    MACROX      1958     A     
 MACROX             NIL    "AVAIL"                                                         MACROX      1959     A     
 MACROX                                                                                    MACROX      1960     A     
 MACROX             END    FTN22                                                           MACROX      1961     A     
 MACROX   *WEOR,0                                                                          MACROX      1962          I
          -FCCA589
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - MACROX  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          MACROX                    1962      1826
          FCC0408                      2         2
          FCC0422                     11         7
          FCC0491                     10        10
          FEAT123A                    13        13
          FCC1070                      3         0
          FCC1085                      7         7
          FCC1108                     29        29
          FCCT003                     70        70
          FCC1583AX                   10        10
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN WEOR6*  
  
 WEOR6*   *DECK WEOR6*                                                                     FCCA589       30     A     
 WEOR6*   *WEOR 0                                                                          FCCA589       31     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - WEOR6*  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FCCA589                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FRAME   
  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3714    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FRAME   
  
 FRAME    *DECK FRAME                                                                      FCCA589       32     A     
 FRAME              IDENT  FTN                                                             FCCA589       33     A     
 FRAME              LCC    OVERLAY(FTN,0,0)                                                FCCA589       34     A     
 FRAME              COMMENT FTN4 MAIN OVERLAY                                              FCCA589       35     A     
 FRAME              END                                                                    FCCA589       36     A     
 FRAME    *IF -DEF,TSOFF                                                                   FCCA590        7     A     
 FRAME              IDENT  FTN10                                                           FCCA589       37     A     
 FRAME              LCC    OVERLAY(FTN,1,0,O=LDPT)                                         FCCA589       38     A     
 FRAME              COMMENT FTN4 TS COMPILER                                               FCCA589       39     A     
 FRAME              SST    A                                                               FCCA589       40     A     
 FRAME                                                                                     FCCA589       41     A     
 FRAME     .T       IFNE   TEST,0                                                          FCCA589       42     A     
 FRAME                                                                                     FCCA589       43     A     
 FRAME    *         DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.         FCCA589       44     A     
 FRAME                                                                                     FCCA589       45     A     
 FRAME              ENTRY  FWA1.0                                                          FCCA589       46     A     
 FRAME     FWA1.0   BSS    0           BEGIN DECK NAME/ADDRESS TABLE                       FCCA589       47     A     
 FRAME              VFD    42/3LRA0,18/RA.SSW      BASE OF (0,0) OVERLAY                   FCCA589       48     A     
 FRAME              VFD    42/3LFTN,18/RA.ORG+LDR.00                                       FCCA589       49     A     
 FRAME              VFD    42/5LFTN10,18/FWA1.0    BASE OF (1,0) OVERLAY                   FCCA589       50     A     
 FRAME              VFD    42/6LTABLES,18/=XB=TABL                                         FCCA589       51     A     
 FRAME              VFD    42/6LERRORS,18/=XB=ERROR                                        FCCA589       52     A     
 FRAME              VFD    42/5LBATCH,18/=XB=BATCH                                         FCCA589       53     A     
 FRAME              VFD    42/6LHEADER,18/=XB=HEAD                                         FCCA589       54     A     
 FRAME              VFD    42/3LPIG,18/=XB=PIG                                             FCCA589       55     A     
 FRAME              VFD    42/3LEND,18/=XB=END                                             FCCA589       56     A     
 FRAME              VFD    42/5LALLOC,18/=XB=ALLOC                                         FCCA589       57     A     
 FRAME              VFD    42/4LMAIN,18/=XB=MAIN                                           FCCA589       58     A     
 FRAME              VFD    42/3LLEX,18/=XB=LEX                                             FCCA589       59     A     
 FRAME              VFD    42/3LKEY,18/=XB=KEY                                             FCCA589       60     A     
 FRAME              VFD    42/2LIF,18/=XB=IF                                               FCCA589       61     A     
 FRAME              VFD    42/6LTSDATA,18/=XB=TSDAT                                        FCCA589       62     A     
 FRAME              VFD    42/4LDECL,18/=XB=DECL                                           FCCA589       63     A     
 FRAME              VFD    42/4LTYPE,18/=XB=TYPE                                           FCCA589       64     A     
 FRAME              VFD    42/3LFMT,18/=XB=FMT                                             FCCA589       65     A     
 FRAME              VFD    42/2LIO,18/=XB=IO                                               FCCA589       66     A     
 FRAME              VFD    42/3LNUM,18/=XB=NUM                                             FCCA589       67     A     
 FRAME              VFD    42/3LPAR,18/=XB=PAR                                             FCCA589       68     A     
 FRAME              VFD    42/6LCONRED,18/=XB=CON                                          FCCA589       69     A     
 FRAME              VFD    42/3LASF,18/=XB=ASF                                             FCCA589       70     A     
 FRAME              VFD    42/2LDO,18/=XB=DO                                               FCCA589       71     A     
 FRAME              VFD    42/3LFUN,18/=XB=FUN                                             FCCA589       72     A     
 FRAME              VFD    42/3LREG,18/=XB=REG                                             FCCA589       73     A     
 FRAME              VFD    42/3LGEN,18/=XB=GEN                                             FCCA589       74     A     
 FRAME              VFD    42/5LTSNAP,18/=XB=TSNAP                                         FCCA589       75     A     
 FRAME              VFD    42/4LINIT,18/=XB=INIT                                           FCCA589       76     A     
 FRAME              VFD    42/3LMAP,18/=XB=MAP                                             FCCA589       77     A     
 FRAME              VFD    42/4LLIST,18/=XB=LIST                                           FCCA589       78     A     
 FRAME              USE    //                                                              FCCA589       79     A     
 FRAME     BLNKCOM  BSS    0                                                               FCCA589       80     A     
 FRAME              USE    *                                                               FCCA589       81     A     
 FRAME              VFD    42/7LBLNKCOM,18/BLNKCOM                                         FCCA589       82     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3715    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FRAME   
  
 FRAME              DATA   0                                                               FCCA589       83     A     
 FRAME     .T       ENDIF                                                                  FCCA589       84     A     
 FRAME              END                                                                    FCCA589       85     A     
 FRAME              IDENT  TABLES                                                          FCCA589       86     A     
 FRAME              END                                                                    FCCA589       87     A     
 FRAME              IDENT  ERRORS                                                          FCCA589       88     A     
 FRAME              END                                                                    FCCA589       89     A     
 FRAME              IDENT  BATCH                                                           FCCA589       90     A     
 FRAME              END                                                                    FCCA589       91     A     
 FRAME              IDENT  HEADER                                                          FCCA589       92     A     
 FRAME              END                                                                    FCCA589       93     A     
 FRAME              IDENT  PIG                                                             FCCA589       94     A     
 FRAME              END                                                                    FCCA589       95     A     
 FRAME              IDENT  END                                                             FCCA589       96     A     
 FRAME              END                                                                    FCCA589       97     A     
 FRAME              IDENT  ALLOC                                                           FCCA589       98     A     
 FRAME              END                                                                    FCCA589       99     A     
 FRAME              IDENT  MAIN                                                            FCCA589      100     A     
 FRAME              END                                                                    FCCA589      101     A     
 FRAME              IDENT  LEX                                                             FCCA589      102     A     
 FRAME              END                                                                    FCCA589      103     A     
 FRAME              IDENT  KEY                                                             FCCA589      104     A     
 FRAME              END                                                                    FCCA589      105     A     
 FRAME              IDENT  IF                                                              FCCA589      106     A     
 FRAME              END                                                                    FCCA589      107     A     
 FRAME              IDENT  TSDATA                                                          FCCA589      108     A     
 FRAME              END                                                                    FCCA589      109     A     
 FRAME              IDENT  DECL                                                            FCCA589      110     A     
 FRAME              END                                                                    FCCA589      111     A     
 FRAME              IDENT  TYPE                                                            FCCA589      112     A     
 FRAME              END                                                                    FCCA589      113     A     
 FRAME              IDENT  FMT                                                             FCCA589      114     A     
 FRAME              END                                                                    FCCA589      115     A     
 FRAME              IDENT  IO                                                              FCCA589      116     A     
 FRAME              END                                                                    FCCA589      117     A     
 FRAME              IDENT  NUM                                                             FCCA589      118     A     
 FRAME              END                                                                    FCCA589      119     A     
 FRAME              IDENT  PAR                                                             FCCA589      120     A     
 FRAME              END                                                                    FCCA589      121     A     
 FRAME              IDENT  CONRED                                                          FCCA589      122     A     
 FRAME              END                                                                    FCCA589      123     A     
 FRAME              IDENT  ASF                                                             FCCA589      124     A     
 FRAME              END                                                                    FCCA589      125     A     
 FRAME              IDENT  DO                                                              FCCA589      126     A     
 FRAME              END                                                                    FCCA589      127     A     
 FRAME              IDENT  FUN                                                             FCCA589      128     A     
 FRAME              END                                                                    FCCA589      129     A     
 FRAME              IDENT  REG                                                             FCCA589      130     A     
 FRAME              END                                                                    FCCA589      131     A     
 FRAME              IDENT  GEN                                                             FCCA589      132     A     
 FRAME              END                                                                    FCCA589      133     A     
 FRAME              IDENT  TSNAP                                                           FCCA589      134     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3716    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FRAME   
  
 FRAME              END                                                                    FCCA589      135     A     
 FRAME              IDENT  INIT                                                            FCCA589      136     A     
 FRAME              END                                                                    FCCA589      137     A     
 FRAME              IDENT  MAP                                                             FCCA589      138     A     
 FRAME              END                                                                    FCCA589      139     A     
 FRAME              IDENT  LIST                                                            FCCA589      140     A     
 FRAME              END                                                                    FCCA589      141     A     
 FRAME    *ENDIF                                                                           FCCA590        8     A     
 FRAME              IDENT  FTN20                                                           FCCA589      142     A     
 FRAME              LCC    OVERLAY(FTN,2,0,O=LDPT)                                         FCCA589      143     A     
 FRAME              COMMENT FTN4 OPT COMPILER - BATCH CONTROLLER                           FCCA589      144     A     
 FRAME                                                                                     FCCA589      145     A     
 FRAME              SST                                                                    FCCA589      146     A     
 FRAME                                                                                     FCCA589      147     A     
 FRAME                                                                                     FCCA589      148     A     
 FRAME    *         DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.         FCCA589      149     A     
 FRAME                                                                                     FCCA589      150     A     
 FRAME              ENTRY  FWA2.0                                                          FCCA589      151     A     
 FRAME     FWA2.0   BSS    0           BEGIN DECK NAME/ADDRESS TABLE                       FCCA589      152     A     
 FRAME              VFD    42/3LRA0,18/RA.SSW      BASE OF (0,0) OVERLAY                   FCCA589      153     A     
 FRAME              VFD    42/3LFTN,18/RA.ORG+LDR.00                                       FCCA589      154     A     
 FRAME              VFD    42/5LFTN20,18/FWA2.0    BASE OF (2,0) OVERLAY                   FCCA589      155     A     
 FRAME              VFD    42/6LLSTPRO,18/=XB=LSTPR                                        FCCA589      156     A     
 FRAME              VFD    42/7LOUTPK20,18/=XB=OPK20                                       FCCA589      157     A     
 FRAME              VFD    42/4LSNAP,18/=XB=SNAP                                           FCCA589      158     A     
 FRAME              DATA   0                                                               FCCA589      159     A     
 FRAME                                                                                     FCCA589      160     A     
 FRAME              END                                                                    FCCA589      161     A     
 FRAME              IDENT  LSTPRO                                                          FCCA589      162     A     
 FRAME              END                                                                    FCCA589      163     A     
 FRAME              IDENT  OUTPK20                                                         FCCA589      164     A     
 FRAME              END                                                                    FCCA589      165     A     
 FRAME              IDENT  SNAP                                                            FCCA589      166     A     
 FRAME              END                                                                    FCCA589      167     A     
 FRAME              IDENT  FTN23                                                           FCCA589      168     A     
 FRAME              LCC    OVERLAY(FTN,2,3)                                                FCCA589      169     A     
 FRAME              COMMENT FTN4 OPT COMPILER - ERROR MSG PROCESSING (PASS 1B)             FCCA589      170     A     
 FRAME                                                                                     FCCA589      171     A     
 FRAME    *         DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.         FCCA589      172     A     
 FRAME                                                                                     FCCA589      173     A     
 FRAME              ENTRY  B=FTN23                                                         FCCA589      174     A     
 FRAME     B=FTN23  VFD    42/5LFTN23,18/*                                                 FCCA589      175     A     
 FRAME              VFD    42/6LFTNMSG,18/=XB=FTMSG                                        FCCA589      176     A     
 FRAME              USE    //                                                              FCCA589      177     A     
 FRAME     BLNKCOM  BSS    0                                                               FCCA589      178     A     
 FRAME              USE    *                                                               FCCA589      179     A     
 FRAME              VFD    42/7LBLNKCOM,18/BLNKCOM                                         FCCA589      180     A     
 FRAME              DATA   0           TABLE TERMINATOR                                    FCCA589      181     A     
 FRAME                                                                                     FCCA589      182     A     
 FRAME              END                                                                    FCCA589      183     A     
 FRAME              IDENT  FTNMSG                                                          FCCA589      184     A     
 FRAME              END                                                                    FCCA589      185     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3717    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FRAME   
  
 FRAME              IDENT  FTN21                                                           FCCA589      186     A     
 FRAME              LCC    OVERLAY(FTN,2,1)                                                FCCA589      187     A     
 FRAME              COMMENT FTN4 OPT COMPILER - PASS 1(NO DEBUG)                           FCCA589      188     A     
 FRAME                                                                                     FCCA589      189     A     
 FRAME    *         DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.         FCCA589      190     A     
 FRAME                                                                                     FCCA589      191     A     
 FRAME              ENTRY  B=FTN21                                                         FCCA589      192     A     
 FRAME     B=FTN21  VFD    42/5LFTN21,18/*                                                 FCCA589      193     A     
 FRAME              VFD    42/6LPS1CTL,18/=XB=PS1CT                                        FCCA589      194     A     
 FRAME              VFD    42/5LSTMTP,18/=XB=STMTP                                         FCCA589      195     A     
 FRAME              VFD    42/6LENDPRO,18/=XB=ENDPR                                        FCCA589      196     A     
 FRAME              VFD    42/7LSCANNER,18/=XB=SCANR                                       FCCA589      197     A     
 FRAME              VFD    42/7LDMPELST,18/=XDMPELST-3                                     FCCA589      198     A     
 FRAME              VFD    42/7LCONVERT,18/=XB=CNVRT                                       FCCA589      199     A     
 FRAME              VFD    42/4LDATA,18/=XB=DATA                                           FCCA589      200     A     
 FRAME              VFD    42/5LERPRO,18/=XB=ERPRO                                         FCCA589      201     A     
 FRAME              VFD    42/3LFLY,18/=XB=FLY                                             FCCA589      202     A     
 FRAME              VFD    42/6LLISTIO,18/=XB=LSTIO                                        FCCA589      203     A     
 FRAME              VFD    42/5LARITH,18/=XB=ARITH                                         FCCA589      204     A     
 FRAME              VFD    42/6LASFPRO,18/=XB=ASFPR                                        FCCA589      205     A     
 FRAME              VFD    42/4LCALL,18/=XB=CALL                                           FCCA589      206     A     
 FRAME              VFD    42/4LGOTO,18/=XB=GOTO                                           FCCA589      207     A     
 FRAME              VFD    42/6LDOPROC,18/=XB=DOPRC                                        FCCA589      208     A     
 FRAME              VFD    42/7LDPCLOSE,18/=XB=DPCLS                                       FCCA589      209     A     
 FRAME              VFD    42/6LDECPRO,18/=XB=DECPR                                        FCCA589      210     A     
 FRAME              VFD    42/6LPH1CTL,18/=XB=PH1CT                                        FCCA589      211     A     
 FRAME              USE    //                                                              FCCA589      212     A     
 FRAME     BLNKCOM  BSS    0                                                               FCCA589      213     A     
 FRAME              USE    *                                                               FCCA589      214     A     
 FRAME              VFD    42/7LBLNKCOM,18/BLNKCOM                                         FCCA589      215     A     
 FRAME              DATA   0                                                               FCCA589      216     A     
 FRAME                                                                                     FCCA589      217     A     
 FRAME              END                                                                    FCCA589      218     A     
 FRAME              IDENT  PS1CTL                                                          FCCA589      219     A     
 FRAME              END                                                                    FCCA589      220     A     
 FRAME              IDENT  STMTP                                                           FCCA589      221     A     
 FRAME              END                                                                    FCCA589      222     A     
 FRAME              IDENT  ENDPRO                                                          FCCA589      223     A     
 FRAME              END                                                                    FCCA589      224     A     
 FRAME              IDENT  SCANNER                                                         FCCA589      225     A     
 FRAME              END                                                                    FCCA589      226     A     
 FRAME              IDENT  DMPELST                                                         FCCA589      227     A     
 FRAME              END                                                                    FCCA589      228     A     
 FRAME              IDENT  CONVERT                                                         FCCA589      229     A     
 FRAME              END                                                                    FCCA589      230     A     
 FRAME              IDENT  DATA                                                            FCCA589      231     A     
 FRAME              END                                                                    FCCA589      232     A     
 FRAME              IDENT  ERPRO                                                           FCCA589      233     A     
 FRAME              END                                                                    FCCA589      234     A     
 FRAME              IDENT  FLY                                                             FCCA589      235     A     
 FRAME              END                                                                    FCCA589      236     A     
 FRAME              IDENT  LISTIO                                                          FCCA589      237     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3718    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FRAME   
  
 FRAME              END                                                                    FCCA589      238     A     
 FRAME              IDENT  ARITH                                                           FCCA589      239     A     
 FRAME              END                                                                    FCCA589      240     A     
 FRAME              IDENT  ASFPRO                                                          FCCA589      241     A     
 FRAME              END                                                                    FCCA589      242     A     
 FRAME              IDENT  CALL                                                            FCCA589      243     A     
 FRAME              END                                                                    FCCA589      244     A     
 FRAME              IDENT  GOTO                                                            FCCA589      245     A     
 FRAME              END                                                                    FCCA589      246     A     
 FRAME              IDENT  DBGLNK                                                          FCCA589      247     A     
 FRAME              END                                                                    FCCA589      248     A     
 FRAME              IDENT  DOPROC                                                          FCCA589      249     A     
 FRAME              END                                                                    FCCA589      250     A     
 FRAME              IDENT  DPCLOSE                                                         FCCA589      251     A     
 FRAME              END                                                                    FCCA589      252     A     
 FRAME              IDENT  DECPRO                                                          FCCA589      253     A     
 FRAME              END                                                                    FCCA589      254     A     
 FRAME              IDENT  PH1CTL                                                          FCCA589      255     A     
 FRAME              END                                                                    FCCA589      256     A     
 FRAME              IDENT  FTN25                                                           FCCA589      257     A     
 FRAME    *CALL     SSTCALL                                                                FCCA589      258     A     
 FRAME     #OVL     IFEQ   .OVL,0                                                          FCCA589      259     A     
 FRAME              LCC    OVERLAY(FTN,2,2)                                                FCCA589      260     A     
 FRAME              COMMENT FTN4 OPT COMPILER - PASS 2 AND 3                               FCCA589      261     A     
 FRAME                                                                                     FCCA589      262     A     
 FRAME              ENTRY  B=FTN22                                                         FCCA589      263     A     
 FRAME     B=FTN22  VFD    42/5LFTN22,18/*                                                 FCCA589      264     A     
 FRAME              VFD    42/6LPS3CTL,18/=XB=PS3CT                                        FCCA589      265     A     
 FRAME              VFD    42/3LFAX,18/=XB=FAX                                             FCCA589      266     A     
 FRAME              VFD    42/6LREFMAP,18/=XB=REFMP                                        FCCA589      267     A     
 FRAME    *CALL     FWACOM                                                                 FCCA589      268     A     
 FRAME     #OVL     ELSE                                                                   FCCA589      269     A     
 FRAME              LCC    OVERLAY(FTN,2,5)                                                FCCA589      270     A     
 FRAME              COMMENT FTN4 OPT COMPILER - PASS 3(REF MAP/ASSEMBLY)                   FCCA589      271     A     
 FRAME                                                                                     FCCA589      272     A     
 FRAME              ENTRY  B=FTN25                                                         FCCA589      273     A     
 FRAME     B=FTN25  VFD    42/5LFTN25,18/*                                                 FCCA589      274     A     
 FRAME              VFD    42/6LPS3CTL,18/=XB=PS3CT                                        FCCA589      275     A     
 FRAME              VFD    42/3LFAX,18/=XB=FAX                                             FCCA589      276     A     
 FRAME              VFD    42/6LREFMAP,18/=XB=REFMP                                        FCCA589      277     A     
 FRAME              USE    //                                                              FCCA589      278     A     
 FRAME     BLNKCOM  BSS    0                                                               FCCA589      279     A     
 FRAME              USE    *                                                               FCCA589      280     A     
 FRAME              VFD    42/7LBLNKCOM,18/BLNKCOM                                         FCCA589      281     A     
 FRAME              DATA   0                                                               FCCA589      282     A     
 FRAME     #OVL     ENDIF                                                                  FCCA589      283     A     
 FRAME                                                                                     FCCA589      284     A     
 FRAME              LIST   -R                                                              FCCA589      285     A     
 FRAME                                                                                     FCCA589      286     A     
 FRAME              END                                                                    FCCA589      287     A     
 FRAME              IDENT  PS3CTL                                                          FCCA589      288     A     
 FRAME              END                                                                    FCCA589      289     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3719    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FRAME   
  
 FRAME              IDENT  FAX                                                             FCCA589      290     A     
 FRAME              END                                                                    FCCA589      291     A     
 FRAME              IDENT  REFMAP                                                          FCCA589      292     A     
 FRAME              END                                                                    FCCA589      293     A     
 FRAME              IDENT  FTN22                                                           FCCA589      294     A     
 FRAME    *CALL     SSTCALL                                                                FCCA589      295     A     
 FRAME     #OVL     IFNE   .OVL,0                                                          FCCA589      296     A     
 FRAME              LCC    OVERLAY(FTN,2,2)                                                FCCA589      297     A     
 FRAME              COMMENT FTN4 OPT COMPILER - PASS 2 - RLIST OPTIMIZER                   FCCA589      298     A     
 FRAME                                                                                     FCCA589      299     A     
 FRAME    *         DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.         FCCA589      300     A     
 FRAME                                                                                     FCCA589      301     A     
 FRAME              ENTRY  B=FTN22                                                         FCCA589      302     A     
 FRAME     B=FTN22  VFD    42/5LFTN22,18/*                                                 FCCA589      303     A     
 FRAME    *CALL     FWACOM                                                                 FCCA589      304     A     
 FRAME                                                                                     FCCA589      305     A     
 FRAME              LIST   -R                                                              FCCA589      306     A     
 FRAME     #OVL     ENDIF                                                                  FCCA589      307     A     
 FRAME                                                                                     FCCA589      308     A     
 FRAME              END                                                                    FCCA589      309     A     
 FRAME              IDENT  CLOSE2                                                          FCCA589      310     A     
 FRAME              END                                                                    FCCA589      311     A     
 FRAME              IDENT  MIO                                                             FCCA589      312     A     
 FRAME              END                                                                    FCCA589      313     A     
 FRAME              IDENT  FBV                                                             FCCA589      314     A     
 FRAME              END                                                                    FCCA589      315     A     
 FRAME              IDENT  GPO                                                             FCCA589      316     A     
 FRAME              END                                                                    FCCA589      317     A     
 FRAME              IDENT  GRA                                                             FCCA589      318     A     
 FRAME              END                                                                    FCCA589      319     A     
 FRAME              IDENT  PROSEQ                                                          FCCA589      320     A     
 FRAME              END                                                                    FCCA589      321     A     
 FRAME              IDENT  POST                                                            FCCA589      322     A     
 FRAME              END                                                                    FCCA589      323     A     
 FRAME              IDENT  SQZ                                                             FCCA589      324     A     
 FRAME              END                                                                    FCCA589      325     A     
 FRAME              IDENT  MCG                                                             FCCA589      326     A     
 FRAME              END                                                                    FCCA589      327     A     
 FRAME              IDENT  BDT                                                             FCCA589      328     A     
 FRAME              END                                                                    FCCA589      329     A     
 FRAME    *IF DEF,TEST                                                                     FCCA590        9     A     
 FRAME              IDENT  DMPIIT                                                          FCCA590       10     A     
 FRAME              END                                                                    FCCA590       11     A     
 FRAME              IDENT  DMPRLST                                                         FCCA590       12     A     
 FRAME              END                                                                    FCCA590       13     A     
 FRAME              IDENT  DMPSIT                                                          FCCA590       14     A     
 FRAME              END                                                                    FCCA590       15     A     
 FRAME              IDENT  DMPTREE                                                         FCCA590       16     A     
 FRAME              END                                                                    FCCA590       17     A     
 FRAME              IDENT  DMPUDI                                                          FCCA590       18     A     
 FRAME              END                                                                    FCCA590       19     A     
 FRAME              IDENT  PRNTGRA                                                         FCCA590       20     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3720    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FRAME   
  
 FRAME              END                                                                    FCCA590       21     A     
 FRAME              IDENT  PRNTMIO                                                         FCCA590       22     A     
 FRAME              END                                                                    FCCA590       23     A     
 FRAME              IDENT  PRNTUDI                                                         FCCA590       24     A     
 FRAME              END                                                                    FCCA590       25     A     
 FRAME              IDENT  PRNTABV                                                         FCCA590       26     A     
 FRAME              END                                                                    FCCA590       27     A     
 FRAME              IDENT  PRNTBV                                                          FCCA590       28     A     
 FRAME              END                                                                    FCCA590       29     A     
 FRAME              IDENT  PRNTRLI                                                         FCCA590       30     A     
 FRAME              END                                                                    FCCA590       31     A     
 FRAME              IDENT  PRNTMCG                                                         FCCA590       32     A     
 FRAME              END                                                                    FCCA590       33     A     
 FRAME    *ENDIF                                                                           FCCA590       34     A     
 FRAME              IDENT  PRE                                                             FCCA589      330     A     
 FRAME              END                                                                    FCCA589      331     A     
 FRAME              IDENT  CFA                                                             FCCA589      332     A     
 FRAME              END                                                                    FCCA589      333     A     
 FRAME              IDENT  UDT                                                             FCCA589      334     A     
 FRAME              END                                                                    FCCA589      335     A     
 FRAME              IDENT  READRL                                                          FCCA589      336     A     
 FRAME              END                                                                    FCCA589      337     A     
 FRAME              IDENT  MACROX                                                          FCCA589      338     A     
 FRAME              END                                                                    FCCA589      339     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FRAME   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FCCA589                    308       308
          FCCA590                     28        28
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN WEOR7*  
  
 WEOR7*   *DECK WEOR7*                                                                     FCCA589      340     A     
 WEOR7*   *WEOR 0                                                                          FCCA589      341     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - WEOR7*  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FCCA589                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FRAMDBUG
  
 FRAMDBUG *DECK FRAMDBUG                                                                   FCCA589      342     A     
 FRAMDBUG           IDENT  FTN24                                                           FCCA589      343     A     
 FRAMDBUG           LCC    OVERLAY(FTN,2,4)                                                FCCA589      344     A     
 FRAMDBUG           COMMENT FTN4 OPT COMPILER - DEBUG PASS 1                               FCCA589      345     A     
 FRAMDBUG                                                                                  FCCA589      346     A     
 FRAMDBUG *         DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.         FCCA589      347     A     
 FRAMDBUG                                                                                  FCCA589      348     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3721    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FRAMDBUG
  
 FRAMDBUG           ENTRY  B=FTN24                                                         FCCA589      349     A     
 FRAMDBUG  B=FTN24  VFD    42/5LFTN24,18/*                                                 FCCA589      350     A     
 FRAMDBUG           VFD    42/7LDBGPHCT,18/=XB=DBGPH                                       FCCA589      351     A     
 FRAMDBUG           VFD    42/7LOUTPK24,18/=XB=OPK24                                       FCCA589      352     A     
 FRAMDBUG           VFD    42/3LPUT,18/=XPUT-1                                             FCCA589      353     A     
 FRAMDBUG           VFD    42/7LPUTUPDT,18/=XPUTUPDT-1                                     FCCA589      354     A     
 FRAMDBUG           VFD    42/6LBUGACT,18/=XBUGACT-1                                       FCCA589      355     A     
 FRAMDBUG           VFD    42/6LGETOUT,18/=XGETOUT-1                                       FCCA589      356     A     
 FRAMDBUG           VFD    42/6LTURNON,18/=XTURNON-1                                       FCCA589      357     A     
 FRAMDBUG           VFD    42/7LBUGSOUT,18/=XBUGSOUT-1                                     FCCA589      358     A     
 FRAMDBUG           VFD    42/6LBUGCON,18/=XBUGCON-1                                       FCCA589      359     A     
 FRAMDBUG           VFD    42/7LTURNOFF,18/=XTURNOFF-1                                     FCCA589      360     A     
 FRAMDBUG           VFD    42/7LDEBUGER,18/=XDEBUGER-1                                     FCCA589      361     A     
 FRAMDBUG           VFD    42/6LBUGPRO,18/=XBUGPRO-1                                       FCCA589      362     A     
 FRAMDBUG           VFD    42/5LPUTIN,18/=XPUTIN-1                                         FCCA589      363     A     
 FRAMDBUG           VFD    42/6LSETARR,18/=XSETARR-2                                       FCCA589      364     A     
 FRAMDBUG           VFD    42/6LBUGCLO,18/=XBUGCLO-2                                       FCCA589      365     A     
 FRAMDBUG           VFD    42/7LSAVREGS,18/=XB=SVREG                                       FCCA589      366     A     
 FRAMDBUG           VFD    42/6LPS1CTL,18/=XB=PS1CT                                        FCCA589      367     A     
 FRAMDBUG           VFD    42/5LSTMTP,18/=XB=STMTP                                         FCCA589      368     A     
 FRAMDBUG           VFD    42/6LENDPRO,18/=XB=ENDPR                                        FCCA589      369     A     
 FRAMDBUG           VFD    42/7LSCANNER,18/=XB=SCANR                                       FCCA589      370     A     
 FRAMDBUG           VFD    42/7LDMPELST,18/=XDMPELST-3                                     FCCA589      371     A     
 FRAMDBUG           VFD    42/7LCONVERT,18/=XB=CNVRT                                       FCCA589      372     A     
 FRAMDBUG           VFD    42/4LDATA,18/=XB=DATA                                           FCCA589      373     A     
 FRAMDBUG           VFD    42/5LERPRO,18/=XB=ERPRO                                         FCCA589      374     A     
 FRAMDBUG           VFD    42/3LFLY,18/=XB=FLY                                             FCCA589      375     A     
 FRAMDBUG           VFD    42/6LLISTIO,18/=XB=LSTIO                                        FCCA589      376     A     
 FRAMDBUG           VFD    42/5LARITH,18/=XB=ARITH                                         FCCA589      377     A     
 FRAMDBUG           VFD    42/6LASFPRO,18/=XB=ASFPR                                        FCCA589      378     A     
 FRAMDBUG           VFD    42/4LCALL,18/=XB=CALL                                           FCCA589      379     A     
 FRAMDBUG           VFD    42/4LGOTO,18/=XB=GOTO                                           FCCA589      380     A     
 FRAMDBUG           VFD    42/6LDOPROC,18/=XB=DOPRC                                        FCCA589      381     A     
 FRAMDBUG           VFD    42/7LDPCLOSE,18/=XB=DPCLS                                       FCCA589      382     A     
 FRAMDBUG           VFD    42/6LDECPRO,18/=XB=DECPR                                        FCCA589      383     A     
 FRAMDBUG           VFD    42/6LPH1CTL,18/=XB=PH1CT                                        FCCA589      384     A     
 FRAMDBUG           USE    //                                                              FCCA589      385     A     
 FRAMDBUG  BLNKCOM  BSS    0                                                               FCCA589      386     A     
 FRAMDBUG           USE    *                                                               FCCA589      387     A     
 FRAMDBUG           VFD    42/7LBLNKCOM,18/BLNKCOM                                         FCCA589      388     A     
 FRAMDBUG           DATA   0                                                               FCCA589      389     A     
 FRAMDBUG                                                                                  FCCA589      390     A     
 FRAMDBUG           END                                                                    FCCA589      391     A     
 FRAMDBUG           IDENT  DBGPHCT                                                         FCCA589      392     A     
 FRAMDBUG           END                                                                    FCCA589      393     A     
 FRAMDBUG           IDENT  OUTPK24                                                         FCCA589      394     A     
 FRAMDBUG           END                                                                    FCCA589      395     A     
 FRAMDBUG           IDENT  PUT                                                             FCCA589      396     A     
 FRAMDBUG           END                                                                    FCCA589      397     A     
 FRAMDBUG           IDENT  PUTUPDT                                                         FCCA589      398     A     
 FRAMDBUG           END                                                                    FCCA589      399     A     
 FRAMDBUG           IDENT  BUGACT                                                          FCCA589      400     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3722    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FRAMDBUG
  
 FRAMDBUG           END                                                                    FCCA589      401     A     
 FRAMDBUG           IDENT  GETOUT                                                          FCCA589      402     A     
 FRAMDBUG           END                                                                    FCCA589      403     A     
 FRAMDBUG           IDENT  TURNON                                                          FCCA589      404     A     
 FRAMDBUG           END                                                                    FCCA589      405     A     
 FRAMDBUG           IDENT  BUGSOUT                                                         FCCA589      406     A     
 FRAMDBUG           END                                                                    FCCA589      407     A     
 FRAMDBUG           IDENT  BUGCON                                                          FCCA589      408     A     
 FRAMDBUG           END                                                                    FCCA589      409     A     
 FRAMDBUG           IDENT  TURNOFF                                                         FCCA589      410     A     
 FRAMDBUG           END                                                                    FCCA589      411     A     
 FRAMDBUG           IDENT  DEBUGER                                                         FCCA589      412     A     
 FRAMDBUG           END                                                                    FCCA589      413     A     
 FRAMDBUG           IDENT  BUGPRO                                                          FCCA589      414     A     
 FRAMDBUG           END                                                                    FCCA589      415     A     
 FRAMDBUG           IDENT  PUTIN                                                           FCCA589      416     A     
 FRAMDBUG           END                                                                    FCCA589      417     A     
 FRAMDBUG           IDENT  SETARR                                                          FCCA589      418     A     
 FRAMDBUG           END                                                                    FCCA589      419     A     
 FRAMDBUG           IDENT  BUGCLO                                                          FCCA589      420     A     
 FRAMDBUG           END                                                                    FCCA589      421     A     
 FRAMDBUG           IDENT  SAVREGS                                                         FCCA589      422     A     
 FRAMDBUG           END                                                                    FCCA589      423     A     
 FRAMDBUG           IDENT  PS1CTL                                                          FCCA589      424     A     
 FRAMDBUG           END                                                                    FCCA589      425     A     
 FRAMDBUG           IDENT  STMTP                                                           FCCA589      426     A     
 FRAMDBUG           END                                                                    FCCA589      427     A     
 FRAMDBUG           IDENT  ENDPRO                                                          FCCA589      428     A     
 FRAMDBUG           END                                                                    FCCA589      429     A     
 FRAMDBUG           IDENT  SCANNER                                                         FCCA589      430     A     
 FRAMDBUG           END                                                                    FCCA589      431     A     
 FRAMDBUG           IDENT  DMPELST                                                         FCCA589      432     A     
 FRAMDBUG           END                                                                    FCCA589      433     A     
 FRAMDBUG           IDENT  CONVERT                                                         FCCA589      434     A     
 FRAMDBUG           END                                                                    FCCA589      435     A     
 FRAMDBUG           IDENT  DATA                                                            FCCA589      436     A     
 FRAMDBUG           END                                                                    FCCA589      437     A     
 FRAMDBUG           IDENT  ERPRO                                                           FCCA589      438     A     
 FRAMDBUG           END                                                                    FCCA589      439     A     
 FRAMDBUG           IDENT  FLY                                                             FCCA589      440     A     
 FRAMDBUG           END                                                                    FCCA589      441     A     
 FRAMDBUG           IDENT  LISTIO                                                          FCCA589      442     A     
 FRAMDBUG           END                                                                    FCCA589      443     A     
 FRAMDBUG           IDENT  ARITH                                                           FCCA589      444     A     
 FRAMDBUG           END                                                                    FCCA589      445     A     
 FRAMDBUG           IDENT  ASFPRO                                                          FCCA589      446     A     
 FRAMDBUG           END                                                                    FCCA589      447     A     
 FRAMDBUG           IDENT  CALL                                                            FCCA589      448     A     
 FRAMDBUG           END                                                                    FCCA589      449     A     
 FRAMDBUG           IDENT  GOTO                                                            FCCA589      450     A     
 FRAMDBUG           END                                                                    FCCA589      451     A     
 FRAMDBUG           IDENT  DOPROC                                                          FCCA589      452     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3723    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN FRAMDBUG
  
 FRAMDBUG           END                                                                    FCCA589      453     A     
 FRAMDBUG           IDENT  DPCLOSE                                                         FCCA589      454     A     
 FRAMDBUG           END                                                                    FCCA589      455     A     
 FRAMDBUG           IDENT  DECPRO                                                          FCCA589      456     A     
 FRAMDBUG           END                                                                    FCCA589      457     A     
 FRAMDBUG           IDENT  PH1CTL                                                          FCCA589      458     A     
 FRAMDBUG           END                                                                    FCCA589      459     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - FRAMDBUG
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FCCA589                    118       118
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN WEOR8*  
  
 WEOR8*   *DECK WEOR8*                                                                     FCCA589      460     A     
 WEOR8*   *WEOR 0                                                                          FCCA589      461     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - WEOR8*  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          FCCA589                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN *DEBUG* 
  
 *DEBUG*  *DECK     *DEBUG*,COMPASS                                                        *DEBUG*        1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - *DEBUG* 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          *DEBUG*                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT  *DECK     DBGPHCT                                                                DBGPHCT        1     A     
 DBGPHCT            IDENT  DBGPHCT                                                         DBGPHCT        2     A     
 DBGPHCT            TITLE              DBGPHCT - DEBUG OPTION CONTROLLER                   DBGPHCT        3     A     
 DBGPHCT  *CALL,SSTCALL                                                                    DBGPHCT        4     A     
 DBGPHCT  ***                                                                              DBGPHCT        5     A     
 DBGPHCT  *         DBGPHCT - DEBUG OPTION CONTROLLER AND COMPASS SUBROUTINES              DBGPHCT        6     A     
 DBGPHCT  *                                                                                DBGPHCT        7     A     
 DBGPHCT            SPACE  3                                                               DBGPHCT        8     A     
 DBGPHCT   B=DBGPH  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             DBGPHCT        9     A     
 DBGPHCT            ENTRY  ALLARR,ALLCALL,ALLFUNC,GOTOSFL,NOGOFLG,TRACEL,ALLROU            DBGPHCT       10          I
          -FCCT006X 
 DBGPHCT            ENTRY  D.PACK                                                          DBGPHCT       11          I
          -FCCT006X 
 DBGPHCT            ENTRY  ALLARR                                                          FCCT006X       5     A     
 DBGPHCT            ENTRY  ALLCALL                                                         FCCT006X       6     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3724    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            ENTRY  ALLFUNC                                                         FCCT006X       7     A     
 DBGPHCT            ENTRY  GOTOSFL                                                         FCCT006X       8     A     
 DBGPHCT            ENTRY  NOGOFLG                                                         FCCT006X       9     A     
 DBGPHCT            ENTRY  TRACEL                                                          FCCT006X      10     A     
 DBGPHCT            ENTRY  D.SAASI                                                         DBGPHCT       12     A     
 DBGPHCT                                                                                   DBGPHCT       13     A     
 DBGPHCT            TABLES DCON,CON                                                        DBGPHCT       14     A     
 DBGPHCT                                                                                   DBGPHCT       15     A     
 DBGPHCT   SYM1     EQU    12B                                                             DBGPHCT       16     A     
 DBGPHCT   SYMEND   EQU    13B                                                             DBGPHCT       17     A     
 DBGPHCT   TYPE     EQU    24B                                                             DBGPHCT       18     A     
 DBGPHCT   ATYPE    EQU    51B         AUXILIARY STMT TYPE CODE                            DBGPHCT       19     A     
 DBGPHCT   SELIST   EQU    32B                                                             DBGPHCT       20     A     
 DBGPHCT   LELIST   EQU    34B                                                             DBGPHCT       21     A     
 DBGPHCT   DUKE     EQU    RA.SSW+37B  INITIAL LINE NR (BIN) OF LAST STATEMENT             DBGPHCT       22     A     
 DBGPHCT   PROGRAM  EQU    56B               SUBPROGRAM TYPE FLAG                          DBGPHCT       23     A     
 DBGPHCT   NLABEL   EQU    RA.SSW+60B  NEXT STMT LABEL                                     DBGPHCT       24     A     
 DBGPHCT  *                            0     EMPTY OR ILLEGAL LABEL                        DBGPHCT       25     A     
 DBGPHCT  *                            .NZ.  NEXT LABEL, DPC LEFT JUST, BLANK FILL         DBGPHCT       26     A     
 DBGPHCT                                                                                   DBGPHCT       27     A     
 DBGPHCT   E.IMDS   EQU    60                CONFLICTING USE OF NAME,FORTRAN DEBUG         DBGPHCT       28     A     
 DBGPHCT   E.DCUN   EQU    61                CONFLICTING USE OF NAME, DEBUG-FORTRA         DBGPHCT       29     A     
 DBGPHCT                                                                                   DBGPHCT       30     A     
 DBGPHCT   FWASAVE  BSSZ   1                                                               DBGPHCT       31     A     
 DBGPHCT            SPACE  4,8                                                             DBGPHCT       32     A     
 DBGPHCT  **        STATEMENT TYPE CODES.                                                  DBGPHCT       33     A     
 DBGPHCT                                                                                   DBGPHCT       34     A     
 DBGPHCT   ST.END   =      13          END (NORMAL)                                        DBGPHCT       35     A     
 DBGPHCT   ST.INV   =      37          END (INVENTED)                                      DBGPHCT       36     A     
 DBGPHCT                                                                                   FCC1843X       5     A     
 DBGPHCT  **        DEFINE SYSTEM AND TESTMODE DEBUG FILE NAME.                            FCC1843X       6     A     
 DBGPHCT                                                                                   FCC1843X       7     A     
 DBGPHCT  #T        IFEQ   TEST,0                                                          FCC1843X       8     A     
 DBGPHCT   OPT      MICRO  1,, ZZZZZOP                                                     FCC1843X       9     A     
 DBGPHCT  #T        ELSE                                                                   FCC1843X      10     A     
 DBGPHCT   OPT      MICRO  1,, FTNOPT                                                      FCC1843X      11     A     
 DBGPHCT  #T        ENDIF                                                                  FCC1843X      12     A     
 DBGPHCT            TITLE                                                                  DBGPHCT       37     A     
 DBGPHCT  *CALL     PARSEM                                                                 DBGPHCT       38     A     
 DBGPHCT  *CALL,DBGCOM                                                                     DBGPHCT       39     A     
 DBGPHCT   DBGEPKT  TITLE  DBGEPKT - DEBUG EXTERNAL PACKET PROCESSING CONTROLLER           DBGPHCT       40     A     
 DBGPHCT  ***       DBGEPKT - DEBUG EXTERNAL PACKET PROCESSING CONTROLLER.                 DBGPHCT       41     A     
 DBGPHCT  *                                                                                DBGPHCT       42     A     
 DBGPHCT  *                                                                                DBGPHCT       43     A     
 DBGPHCT                                                                                   DBGPHCT       44     A     
 DBGPHCT            QUAL   DBGEPKT                                                         DBGPHCT       45     A     
 DBGPHCT                                                                                   DBGPHCT       46     A     
 DBGPHCT                                                                                   DBGPHCT       47     A     
 DBGPHCT   DBGEPKT  SUBR               ** ENTRY/EXIT **                                    DBGPHCT       48     A     
 DBGPHCT            SB1    1                                                               DBGPHCT       49     A     
 DBGPHCT            SX0    DEBUG-1     FWA //                                              FCCT006X      11     A     
 DBGPHCT            SX1    =XPROGNAM                                                       FCCT006X      12     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3725    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            BX6    X0                                                              FCCT006X      13     A     
 DBGPHCT            IX7    X1-X0                                                           FCCT006X      14     A     
 DBGPHCT            SA6    LDEBUG                                                          FCCT006X      15     A     
 DBGPHCT            SA7    DBGPROG     ADDR PROG UNIT NAME REL TO //                       FCCT006X      16     A     
 DBGPHCT            SA2    =XFWAWORK                                                       FCCT006X      17     A     
 DBGPHCT            SA3    LNGIND                                                          FCCT006X      18     A     
 DBGPHCT            IX6    X2-X0                                                           FCCT006X      19     A     
 DBGPHCT            IX7    X6+X3                                                           FCCT006X      20     A     
 DBGPHCT            SA6    SDBGIND     FWA DEBUG INDEX = (FWAWORK) REL TO //               FCCT006X      21     A     
 DBGPHCT            SA7    D.SAREA     FWA AREA LIST REL TO //                             FCCT006X      22     A     
 DBGPHCT            SA7    D.EAREA                                                         FCCT006X      23     A     
 DBGPHCT            SA1    =XDFLAG                                                         DBGPHCT       50     A     
 DBGPHCT            MI     X1,EXP71    IF EXT PACKET PROCESSING PHASE ALREADY DONE         DBGPHCT       51          I
          -FCC0618
 DBGPHCT                                                                                   DBGPHCT       52          I
          -FCC0618
 DBGPHCT  **        NORMAL EXTERNAL PACKET PROCESSING.                                     DBGPHCT       53          I
          -FCC0618
 DBGPHCT                                                                                   DBGPHCT       54          I
          -FCC0618
 DBGPHCT            SX2    =XPROGNAM                                                       DBGPHCT       55          I
          -FCCT006X 
 DBGPHCT            SX6    DEBUG-1                                                         DBGPHCT       56          I
          -FCCT006X 
 DBGPHCT            IX7    X2-X6                                                           DBGPHCT       57          I
          -FCCT006X 
 DBGPHCT            SA6    LDEBUG      SET FWA BLANK COMMON                                DBGPHCT       58          I
          -FCCT006X 
 DBGPHCT            SA7    DBGPROG     ADDR OF PROG UNIT NAME REL TO BLANK COMMON          DBGPHCT       59          I
          -FCCT006X 
 DBGPHCT            MI     X1,EXP71    IF EXT PACKET PROCESSING ALREADY DONE               FCC0618        6     A     
 DBGPHCT                                                                                   FCC0618        7     A     
 DBGPHCT  **        NORMAL EXTERNAL PACKET PROCESSING.                                     FCC0618        8     A     
 DBGPHCT                                                                                   FCC0618        9     A     
 DBGPHCT            SX6    1RE                                                             DBGPHCT       60     A     
 DBGPHCT            SA6    C.PACK      SET *EXTERNAL PACKET* STATUS                        DBGPHCT       61     A     
 DBGPHCT            SX7    B1          SET *EXTERNAL PACKET* STATUS                        DBGPHCT       62     A     
 DBGPHCT            SB2    B0          SET *EXTERNAL PACKET* STATUS                        DBGPHCT       63     A     
 DBGPHCT            SA6    DBGPHCT     SET *EXTERNAL PACKET* STATUS                        FCC1852       14     A     
 DBGPHCT            SA7    D.PACK                                                          DBGPHCT       64     A     
 DBGPHCT            RJ     MIA         MISC INIT A                                         DBGPHCT       65     A     
 DBGPHCT                                                                                   DBGPHCT       66     A     
 DBGPHCT  *         MAIN PROCESSING LOOP.                                                  DBGPHCT       67     A     
 DBGPHCT                                                                                   DBGPHCT       68     A     
 DBGPHCT   EXP2     SA1    =20H     DEBUG PACKET                                           DBGPHCT       69     A     
 DBGPHCT            SA2    A1+B1                                                           DBGPHCT       70     A     
 DBGPHCT            BX6    X1                                                              DBGPHCT       71     A     
 DBGPHCT            LX7    X2                                                              DBGPHCT       72     A     
 DBGPHCT            SA6    =XTL.PTYP   *DEBUG PACKET* TO TITLE LINE                        DBGPHCT       73     A     
 DBGPHCT            SA7    A6+B1                                                           DBGPHCT       74     A     
 DBGPHCT            SA2    SYMEND                                                          DBGPHCT       75     A     
 DBGPHCT            RJ     DTABLE      SET UP DEBUG TABLES                                 DBGPHCT       76     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3726    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            ZR     B6,EXP81    IF NO ROOM FOR TABLES                               DBGPHCT       77     A     
 DBGPHCT            SA1    SUCCESS                                                         DBGPHCT       78     A     
 DBGPHCT            ZR     X1,EXP3     IF NO DEBUG INFO ON DISK                            DBGPHCT       79     A     
 DBGPHCT            CALLF  BUGPRO      SET UP DRL AND DVL                                  DBGPHCT       80     A     
 DBGPHCT   EXP3     RJ     SNS         SCAN NEXT (FIRST) STATEMENT                         DBGPHCT       81     A     
 DBGPHCT            SA2    =XFWAWORK                                                       DBGPHCT       82     A     
 DBGPHCT            SA3    LNGIND                                                          DBGPHCT       83     A     
 DBGPHCT            SX4    DEBUG-1                                                         DBGPHCT       84     A     
 DBGPHCT            IX6    X2-X4                                                           DBGPHCT       85     A     
 DBGPHCT            IX7    X6+X3                                                           DBGPHCT       86     A     
 DBGPHCT            SA6    SDBGIND     FWA DEBUG INDEX = (FWAWORK) REL TO //               DBGPHCT       87     A     
 DBGPHCT            SA7    D.SAREA     AREA LIST STARTS AFTER INDEX                        DBGPHCT       88     A     
 DBGPHCT            SA7    D.EAREA                                                         DBGPHCT       89     A     
 DBGPHCT            EQ     B7,B6,EXP4  IF KEYWORD *DEBUG*                                  DBGPHCT       90     A     
 DBGPHCT            ZR     B2,EXP91    IF NOT A DEBUG STATEMENT                            DBGPHCT       91     A     
 DBGPHCT            DBGERR (C$ DEBUG STATEMENT MISSING OR BAD AT START OF PACKET.)         DBGPHCT       92     A     
 DBGPHCT            MI     B2,EXP3     IF BAD DEBUG STATEMENT, GET NEXT ONE                DBGPHCT       93     A     
 DBGPHCT            SA1    SPIDER      (X1) = DUMMY ROUTINE NAME                           DBGPHCT       94     A     
 DBGPHCT            SA2    D.EDRL                                                          DBGPHCT       95     A     
 DBGPHCT            SX6    B1                                                              DBGPHCT       96     A     
 DBGPHCT            MX7    1                                                               DBGPHCT       97     A     
 DBGPHCT            SA6    ALLROU      SET *APPLIES TO ALL ROUTINES*                       DBGPHCT       98     A     
 DBGPHCT            SA7    DEBUG+X2    2ND WD OF DRL ENTRY - SET BIT 59 *ACTIVE*           DBGPHCT       99     A     
 DBGPHCT            BX6    X1                                                              DBGPHCT      100     A     
 DBGPHCT            SA6    A7-B1       1ST WD OF DRL ENTRY - ENTER DUMMY ROUTINE           DBGPHCT      101     A     
 DBGPHCT            SX7    X2+2                                                            DBGPHCT      102     A     
 DBGPHCT            SA7    A2          UPDATE POINTER TO NEXT AVAILABLE ENTRY              DBGPHCT      103     A     
 DBGPHCT   EXP4     SA1    D.EAREA                                                         DBGPHCT      104     A     
 DBGPHCT            SA2    =XFWAWORK                                                       DBGPHCT      105     A     
 DBGPHCT            SX6    X1                                                              DBGPHCT      106     A     
 DBGPHCT            BX7    X2                                                              DBGPHCT      107     A     
 DBGPHCT            SA6    D.NESTW     NEXT AVAILABLE OPTIONS LIST WORD                    DBGPHCT      108     A     
 DBGPHCT            SA7    FWASAVE     SAVE (FWAWORK)                                      DBGPHCT      109     A     
 DBGPHCT            SX6    4                                                               DBGPHCT      110     A     
 DBGPHCT            SA6    D.NEST      SET TO 1ST POSITION IN OPTIONS LIST WORD            DBGPHCT      111     A     
 DBGPHCT            CALL   DSL         DUMP SAVED LINES                                    DBGPHCT      112     A     
 DBGPHCT                                                                                   DBGPHCT      113     A     
 DBGPHCT  *         PACKET PROCESSING LOOP.                                                DBGPHCT      114     A     
 DBGPHCT                                                                                   DBGPHCT      115     A     
 DBGPHCT   EXP11    RJ     POINTRS     SET POINTERS FOR FORTRAN ROUTINES                   DBGPHCT      116     A     
 DBGPHCT            CALLF  BUGCON      CONVERT STATEMENT TO TABLE FORM                     DBGPHCT      117     A     
 DBGPHCT   EXP12    SA1    C$STMT                                                          DBGPHCT      118          I
          -FEAT121L 
 DBGPHCT   EXP12    RJ     DLO         CHECK NEXT STMT FOR C/-LIST OPTION                  FEAT121L     663     A     
 DBGPHCT            SA2    TYPE                                                            DBGPHCT      119     A     
 DBGPHCT            ZR     X1,EXP21    IF NEXT STATEMENT NOT C$                            DBGPHCT      120          I
          -FCC1469X 
 DBGPHCT            NZ     X1,EXP12A   IF NEXT STATEMENT IS C$                             FCC1469X      30     A     
 DBGPHCT            SA1    =XDFLAG                                                         FCC1469X      31     A     
 DBGPHCT            AX1    1                                                               FCC1469X      32     A     
 DBGPHCT            ZR     X1,EXP21    IF INPUT FILE NOT EXTERNAL DEBUG FILE               FCC1469X      33     A     
 DBGPHCT            SA1    CP.CARD                                                         FCC1954        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3727    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            ZR     X1,EXP21    IF EOS/EOP/EOI                                      FCC1954        9     A     
 DBGPHCT                                                                                   FCC1469X      34     A     
 DBGPHCT   EXP12A   SB3    X2-41                                                           FCC1469X      35     A     
 DBGPHCT            SB3    X2-41                                                           DBGPHCT      121          I
          -FCC1469X 
 DBGPHCT            SA1    D.NESTW     PRESET AREA OR OPTIONS LIST                         DBGPHCT      122     A     
 DBGPHCT            PL     B3,EXP13    IF NOT *DEBUG* OR *AREA* STATEMENT                  DBGPHCT      123     A     
 DBGPHCT            SA1    D.EAREA                                                         DBGPHCT      124     A     
 DBGPHCT   EXP13    SX6    DEBUG-1+X1                                                      DBGPHCT      125     A     
 DBGPHCT            SA6    =XFWAWORK                                                       DBGPHCT      126     A     
 DBGPHCT            RJ     SNS         SCAN NEXT STATEMENT                                 DBGPHCT      127          I
          -FCC1954
 DBGPHCT   EXP13A   RJ     SNS         SCAN NEXT STATEMENT                                 FCC1954       10     A     
 DBGPHCT            GT     B2,B0,EXP11 IF A GOOD DEBUG STATEMENT                           FCC1851        8     A     
 DBGPHCT            SA1    CP.CARD                                                         FCC1469X      36          I
          -FCC1954
 DBGPHCT            ZR     X1,EXP21    IF EOS/EOP/EOI                                      FCC1469X      37          I
          -FCC1954
 DBGPHCT            GT     B2,B0,EXP11 IF GOOD DEBUG STATEMENT                             DBGPHCT      128          I
          -FCC1851
 DBGPHCT            EQ     EXP12                                                           DBGPHCT      129          I
          -FCC1954
 DBGPHCT            SA3    =XDFLAG                                                         FCC1954       11     A     
 DBGPHCT            SA1    CP.CARD                                                         FCC1954       12     A     
 DBGPHCT            AX3    1                                                               FCC1954       13     A     
 DBGPHCT            ZR     X3,EXP12    IF INPUT FILE = MAIN                                FCC1954       14     A     
 DBGPHCT            DBGERR (NON-DEBUG LINE FOUND ON EXTERNAL DEBUG FILE...IGNORED)         FCC1954       15     A     
 DBGPHCT            NZ     X1,EXP13A   IF NOT EOS/EOP/EOI ON DEBUG FILE                    FCC1954       16     A     
 DBGPHCT            PL     X1,EXP21    IF EOS/EOP/EOI                                      FCC1954       17     A     
 DBGPHCT            EQ     EXP13A      SCAN NEXT STATEMENT                                 FCC1954       18     A     
 DBGPHCT                                                                                   DBGPHCT      130     A     
 DBGPHCT  *         NON-DEBUG STATEMENT PENDING.  WRAP UP EXT PACKET PROCESSING.           DBGPHCT      131     A     
 DBGPHCT                                                                                   DBGPHCT      132     A     
 DBGPHCT   EXP21    SX6    B0+                                                             DBGPHCT      133     A     
 DBGPHCT            SA6    D.POW       SET *CLEAR PACKET AREA LIST* FLAG                   DBGPHCT      134     A     
 DBGPHCT            CALLF  BUGCLO      FLUSH PACKET AREA LIST TO DISK                      DBGPHCT      135     A     
 DBGPHCT            SA1    FWASAVE                                                         DBGPHCT      136     A     
 DBGPHCT            BX6    X1                                                              DBGPHCT      137     A     
 DBGPHCT            SA6    =XFWAWORK   RESTORE (FWAWORK)                                   DBGPHCT      138     A     
 DBGPHCT   EXP22    SB1    1                                                               DBGPHCT      139     A     
 DBGPHCT            RJ     D.RESET     RESTORE TABLE POSITIONS AND TITLE LINE              DBGPHCT      140     A     
 DBGPHCT            SA1    =XDFLAG                                                         DBGPHCT      141     A     
 DBGPHCT            MX7    -1                                                              DBGPHCT      142     A     
 DBGPHCT            AX1    1                                                               DBGPHCT      143     A     
 DBGPHCT            SA7    D.COL       SET *DEBUG PACKET FINISHED* STATUS                  DBGPHCT      144     A     
 DBGPHCT            ZR     X1,EXP31    IF INPUT FILE = MAIN                                DBGPHCT      145     A     
 DBGPHCT                                                                                   DBGPHCT      146     A     
 DBGPHCT  *         SWITCH TO MAIN INPUT FILE AND SCAN FOR MORE C$ DEBUG INFO.             DBGPHCT      147     A     
 DBGPHCT                                                                                   DBGPHCT      148     A     
 DBGPHCT            CALL   DSL         DUMP SAVED LINES                                    DBGPHCT      149     A     
 DBGPHCT            SX6    B0+                                                             DBGPHCT      150     A     
 DBGPHCT            SA6    =XN.LINES   PRESET FOR PAGE EJECT ON NEXT *LISTL* CALL          DBGPHCT      151     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3728    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            SA6    =XN.FERR    IGNORE FATAL-TO-EXEC ERRS IN EXTERNAL PKT           DBGPHCT      152     A     
 DBGPHCT            CLOSE  =XF.IN,NR,RCL                                                   DBGPHCT      153     A     
 DBGPHCT            SA1    =XFV.IN                                                         DBGPHCT      154     A     
 DBGPHCT            MX0    7*6                                                             DBGPHCT      155     A     
 DBGPHCT            SX7    B1                                                              DBGPHCT      156     A     
 DBGPHCT            BX6    X0*X1       EXTRACT MAIN INPUT FILE NAME                        DBGPHCT      157     A     
 DBGPHCT            SX2    X1          EXTRACT ADDRESS OF INPUT FET OR FIT                 DBGPHCT      158     A     
 DBGPHCT            SA7    =XDFLAG     SET *DEBUG = MAIN* STATUS                           DBGPHCT      159     A     
 DBGPHCT                                                                                   DBGPHCT      160     A     
 DBGPHCT   #RM      IFEQ   CP#RM,0                                                         DBGPHCT      161     A     
 DBGPHCT            BX6    X6+X7       MERGE CIO COMPLETE BIT                              DBGPHCT      162     A     
 DBGPHCT            SA6    X2          UPDATE INPUT FET                                    DBGPHCT      163     A     
 DBGPHCT            SETFIL FILE=(=XF.IN),MODE=RESET      REINITIALIZE FET                  DBGPHCT      164     A     
 DBGPHCT            OPEN   =XF.IN,READNR                                                   DBGPHCT      165     A     
 DBGPHCT            READ   =XF.IN      FILL INPUT BUFFER                                   DBGPHCT      166     A     
 DBGPHCT   #RM      ELSE                                                                   DBGPHCT      167     A     
 DBGPHCT            STORE  X2,LFN=X6                                                       DBGPHCT      168     A     
 DBGPHCT            OPEN   =XF.IN                                                          DBGPHCT      169     A     
 DBGPHCT   #RM      ENDIF                                                                  DBGPHCT      170     A     
 DBGPHCT                                                                                   DBGPHCT      171     A     
 DBGPHCT            EQ     EXP2        REPEAT MAIN LOOP FOR MAIN INPUT FILE                DBGPHCT      172     A     
 DBGPHCT                                                                                   DBGPHCT      173     A     
 DBGPHCT  *         NON-DEBUG STATEMENT PENDING FROM MAIN INPUT FILE.                      DBGPHCT      174     A     
 DBGPHCT  *         CALL *SCANNER* TO TYPE IT FOR *PH1CTL*.                                DBGPHCT      175     A     
 DBGPHCT                                                                                   DBGPHCT      176     A     
 DBGPHCT   EXP31    SX6    B0+                                                             DBGPHCT      177     A     
 DBGPHCT            SA6    =XN.LINES   PRESET FOR PAGE EJECT ON NEXT *LISTL* CALL          DBGPHCT      178     A     
 DBGPHCT            RJ     SNS         SCAN NEXT STATEMENT                                 DBGPHCT      179     A     
 DBGPHCT                                                                                   DBGPHCT      180     A     
 DBGPHCT  *         TERMINATE EXTERNAL PACKET PROCESSING AND EXIT.                         DBGPHCT      181     A     
 DBGPHCT                                                                                   DBGPHCT      182     A     
 DBGPHCT   EXP39    SA1    LNGDRL                                                          DBGPHCT      183     A     
 DBGPHCT            SA2    LNGDVL                                                          DBGPHCT      184     A     
 DBGPHCT            SA3    LNGIND                                                          DBGPHCT      185     A     
 DBGPHCT            SA4    DISPOW                                                          DBGPHCT      186     A     
 DBGPHCT            SA5    RECORD                                                          DBGPHCT      187     A     
 DBGPHCT            BX6    X1                                                              DBGPHCT      188     A     
 DBGPHCT            LX7    X2                                                              DBGPHCT      189     A     
 DBGPHCT            SA6    =XGL.DRL                                                        DBGPHCT      190     A     
 DBGPHCT            SA7    =XGL.DVL                                                        DBGPHCT      191     A     
 DBGPHCT            LX4    18                                                              DBGPHCT      192     A     
 DBGPHCT            SB5    B1                                                              DBGPHCT      193     A     
 DBGPHCT            BX6    X3                                                              DBGPHCT      194     A     
 DBGPHCT            IX7    X4+X5                                                           DBGPHCT      195     A     
 DBGPHCT            SA6    =XGL.IND                                                        DBGPHCT      196     A     
 DBGPHCT            SA7    =XLASTREC                                                       DBGPHCT      197     A     
 DBGPHCT            MX6    -1                                                              DBGPHCT      198     A     
 DBGPHCT            SX7    B1                                                              DBGPHCT      199     A     
 DBGPHCT            SA6    =XDFLAG     SET *EXT PACKET ILLEGAL* STATUS                     DBGPHCT      200     A     
 DBGPHCT            SA7    INDEXNO                                                         DBGPHCT      201     A     
 DBGPHCT            SA1    TYPE                                                            DBGPHCT      202     A     
 DBGPHCT            MX7    0                                                               FCC1852       15     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3729    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            SB7    X1          (B7) = STATEMENT TYPE CODE                          DBGPHCT      203     A     
 DBGPHCT            SA7    DBGPHCT     CLEAR *EXTERNAL PACKET* STATUS                      FCC1852       16     A     
 DBGPHCT            EQ     EXIT.                                                           DBGPHCT      204     A     
 DBGPHCT                                                                                   DBGPHCT      205     A     
 DBGPHCT                                                                                   DBGPHCT      206     A     
 DBGPHCT  **        ABNORMAL EXTERNAL PACKET PROCESSING.                                   DBGPHCT      207     A     
 DBGPHCT                                                                                   DBGPHCT      208     A     
 DBGPHCT  *         HERE WHEN *DBGPHCT* IS RE-ENTERED BETWEEN PROGRAM UNITS.               DBGPHCT      209     A     
 DBGPHCT  *         CHECK FOR SPURIOUS EXTERNAL PACKET.                                    DBGPHCT      210     A     
 DBGPHCT                                                                                   DBGPHCT      211     A     
 DBGPHCT   EXP71    RJ     SNS         SCAN NEXT (FIRST) STATEMENT                         DBGPHCT      212     A     
 DBGPHCT            ZR     B2,EXIT.    IF NOT DEBUG STATEMENT                              DBGPHCT      213     A     
 DBGPHCT            DBGERR (AN EXTERNAL PACKET IS ILLEGAL BETWEEN PROGRAM UNITS.)          DBGPHCT      214     A     
 DBGPHCT            EQ     EXP71       SCAN OFF C$ STATEMENTS                              DBGPHCT      215     A     
 DBGPHCT                                                                                   DBGPHCT      216     A     
 DBGPHCT  *         HERE IF NO ROOM FOR DEBUG TABLES.                                      DBGPHCT      217     A     
 DBGPHCT                                                                                   DBGPHCT      218     A     
 DBGPHCT   EXP81    SA1    SUCCESS                                                         DBGPHCT      219     A     
 DBGPHCT            NZ     X1,EXP82    IF DEBUG INFO ON DISK                               DBGPHCT      220     A     
 DBGPHCT            SX6    B1                                                              DBGPHCT      221     A     
 DBGPHCT            SA6    A1                                                              DBGPHCT      222     A     
 DBGPHCT            RJ     WRTMS1                                                          DBGPHCT      223     A     
 DBGPHCT            SA1    SDBGIND                                                         DBGPHCT      224     A     
 DBGPHCT            SX6    B0+                                                             DBGPHCT      225     A     
 DBGPHCT            SA6    DEBUG+X1    CLEAR DRL                                           DBGPHCT      226     A     
 DBGPHCT            NO                                                                     DBGPHCT      227     A     
 DBGPHCT            SA6    A6+B1       CLEAR DVL                                           DBGPHCT      228     A     
 DBGPHCT            RJ     WRTMS4                                                          DBGPHCT      229     A     
 DBGPHCT   EXP82    RJ     SNS         SCAN NEXT (FIRST) STATEMENT                         DBGPHCT      230     A     
 DBGPHCT            ZR     B2,EXP91    IF FIRST STATEMENT NOT C$                           DBGPHCT      231     A     
 DBGPHCT   EXP83    MI     B2,EXP84    IF BAD DEBUG STATEMENT                              DBGPHCT      232     A     
 DBGPHCT            RJ     POINTRS     SET POINTERS FOR FORTRAN ROUTINES                   DBGPHCT      233     A     
 DBGPHCT            CALLF  BUGCON      CONVERT STATEMENT TO TABLE FORM                     DBGPHCT      234     A     
 DBGPHCT   EXP84    SA1    C$STMT                                                          DBGPHCT      235          I
          -FEAT121L 
 DBGPHCT            SB1    1                                                               DBGPHCT      236          I
          -FEAT121L 
 DBGPHCT   EXP84    RJ     DLO         CHECK NEXT STMT FOR C/-LIST OPTION                  FEAT121L     664     A     
 DBGPHCT            ZR     X1,EXP22    IF NEXT STATEMENT NOT C$                            DBGPHCT      237     A     
 DBGPHCT            RJ     SNS         SCAN NEXT STATEMENT                                 DBGPHCT      238     A     
 DBGPHCT            EQ     EXP83                                                           DBGPHCT      239     A     
 DBGPHCT                                                                                   DBGPHCT      240     A     
 DBGPHCT  *         HERE IF FIRST STATEMENT IS NON-DEBUG.                                  DBGPHCT      241     A     
 DBGPHCT                                                                                   DBGPHCT      242     A     
 DBGPHCT   EXP91    SA1    =XDFLAG                                                         DBGPHCT      243     A     
 DBGPHCT            AX2    X1,B1                                                           DBGPHCT      244     A     
 DBGPHCT            ZR     X2,EXP92    IF INPUT FILE = MAIN                                DBGPHCT      245     A     
 DBGPHCT            DBGERR (NO DEBUG INFORMATION FOUND ON EXTERNAL DEBUG FILE.)            DBGPHCT      246     A     
 DBGPHCT            EQ     EXP22                                                           DBGPHCT      247     A     
 DBGPHCT                                                                                   DBGPHCT      248     A     
 DBGPHCT   EXP92    RJ     D.RESET     RESTORE TABLE POSITIONS                             DBGPHCT      249     A     
 DBGPHCT            EQ     EXP39       TERMINATE                                           DBGPHCT      250     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3730    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            SPACE  4,4                                                             DBGPHCT      251     A     
 DBGPHCT            QUAL   *                                                               DBGPHCT      252     A     
 DBGPHCT                                                                                   DBGPHCT      253     A     
 DBGPHCT   DBGEPKT  =      /DBGEPKT/DBGEPKT                                                DBGPHCT      254     A     
 DBGPHCT            ENTRY  DBGEPKT                                                         DBGPHCT      255     A     
 DBGPHCT            TITLE              DBGIPKT - INTERNAL PACKET PROCESSING                DBGPHCT      256     A     
 DBGPHCT  ***                                                                              DBGPHCT      257     A     
 DBGPHCT  *         DBGIPKT - CONTROLLER FOR DEBUG OPTION INTERNAL PACKET                  DBGPHCT      258     A     
 DBGPHCT  *         PROCESSING                                                             DBGPHCT      259     A     
 DBGPHCT  *                                                                                DBGPHCT      260     A     
 DBGPHCT   DBGIPKT  ENTRY.                                                                 DBGPHCT      261     A     
 DBGPHCT            SA2    NOPROG       NON ZERO IF NO PROGRAM CARD AND                    DBGPHCT      262          I
          -FEAT121L 
 DBGPHCT                                CALLING DBGIPKT ONLY TO SET UP                     DBGPHCT      263          I
          -FEAT121L 
 DBGPHCT                                FOR FURTHER PROCESSING                             DBGPHCT      264          I
          -FEAT121L 
 DBGPHCT            BX6    X6-X6                                                           DBGPHCT      265     A     
 DBGPHCT            LX7    X6                                                              DBGPHCT      266     A     
 DBGPHCT            SA6    SUCCESS      SET TO 'NOTHING ON DISK'                           DBGPHCT      267     A     
 DBGPHCT            SA7    D.NOGO      SET TO *PROCESS DEBUG STATEMENTS*                   FCC0618       10     A     
 DBGPHCT            SA1    C$STMT                                                          DBGPHCT      268          I
          -FEAT121L 
 DBGPHCT            SB1    1                                                               DBGPHCT      269          I
          -FEAT121L 
 DBGPHCT            RJ     DLO         CHECK NEXT STMT FOR C/-LIST OPTION                  FEAT121L     665     A     
 DBGPHCT            SA2    NOPROG                                                          FEAT121L     666     A     
 DBGPHCT            SA7    D.NOGO       SET TO 'PROCESS DEBUG STATEMENTS'                  DBGPHCT      270          I
          -FCC0618
 DBGPHCT            ZR     X1,D.PI22    FIRST STATEMENT NOT DEBUG                          DBGPHCT      271     A     
 DBGPHCT            NZ     X2,D.PI22    IF NO PROGRAM CARD CONDITION HOLDS                 DBGPHCT      272          I
          -FEAT121L 
 DBGPHCT            NZ     X2,D.PI22   IF NO PROGRAM LINE WAS FOUND AND CALLING            FEAT121L     667     A     
 DBGPHCT  *                              *DBGIPKT* ONLY TO SET UP FOR FURTHER              FEAT121L     668     A     
 DBGPHCT  *                              PROCESSING                                        FEAT121L     669     A     
 DBGPHCT            SB2    B1          SET *INTERNAL PACKET* STATUS                        DBGPHCT      273     A     
 DBGPHCT            RJ     MIA         MISC INIT A                                         DBGPHCT      274     A     
 DBGPHCT            SA2    =XLWAWORK                                                       DBGPHCT      275     A     
 DBGPHCT            RJ     DTABLE       SET UP DEBUG TABLES                                DBGPHCT      276     A     
 DBGPHCT            ZR     B6,D.PI4    IF NO ROOM FOR TABLES                               DBGPHCT      277     A     
 DBGPHCT            RJ     POINTRS      SET UP FORTRAN POINTERS                            DBGPHCT      278     A     
 DBGPHCT            SA3    SELIST                                                          DBGPHCT      279     A     
 DBGPHCT            SX6    -1                                                              DBGPHCT      280     A     
 DBGPHCT            SA6    SUCCESS      SET TO 'INFORMATION ON DISK'                       DBGPHCT      281     A     
 DBGPHCT            IX7    X1-X4                                                           DBGPHCT      282     A     
 DBGPHCT            SA7    A1           LWAWORK=LWAWORK-LNGDRL-LNGDVL-2                    DBGPHCT      283     A     
 DBGPHCT            IX6    X3-X4                                                           DBGPHCT      284     A     
 DBGPHCT            SA6    A3           SELIST=SELIST+LNGDRL-LNGDVL-2                      DBGPHCT      285     A     
 DBGPHCT            CALLF  BUGPRO,B1   SET UP DRL AND DVL                                  DBGPHCT      286     A     
 DBGPHCT            SX7    4                                                               DBGPHCT      287     A     
 DBGPHCT            SA1    D.EAREA                                                         DBGPHCT      288     A     
 DBGPHCT            SA7    D.NEST                                                          DBGPHCT      289     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3731    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            MX6    -1                                                              DBGPHCT      290     A     
 DBGPHCT            BX7    X1                                                              DBGPHCT      291     A     
 DBGPHCT            SA6    D.PACK       SET TO 'INTERNAL PACKET'                           DBGPHCT      292     A     
 DBGPHCT            SA7    D.NESTW      SET START OF OPTIONS LIST FOR BUGCON               DBGPHCT      293     A     
 DBGPHCT            SX6    1RI                                                             DBGPHCT      294     A     
 DBGPHCT            SA1    =XFWAWORK                                                       DBGPHCT      295     A     
 DBGPHCT            SA6    C.PACK       SET TO 'INTERNAL PACKET'                           DBGPHCT      296     A     
 DBGPHCT            BX7    X1                                                              DBGPHCT      297     A     
 DBGPHCT            SA7    FWASAVE      SAVE FWAWORK                                       DBGPHCT      298     A     
 DBGPHCT                                                                                   DBGPHCT      299     A     
 DBGPHCT  *         LOOK FOR C$  DEBUG AS FIRST CARD OF PACKET                             DBGPHCT      300     A     
 DBGPHCT                                                                                   DBGPHCT      301     A     
 DBGPHCT   D.PI4    RJ     SNS         SCAN NEXT (FIRST) STATEMENT                         DBGPHCT      302     A     
 DBGPHCT            PL     B2,D.PI2    IF NOT BAD DEBUG LINE                               DBGPHCT      303     A     
 DBGPHCT            SA1    C$STMT                                                          DBGPHCT      304          I
          -FEAT121L 
 DBGPHCT            RJ     DLO         CHECK NEXT STMT FOR C/-LIST OPTION                  FEAT121L     670     A     
 DBGPHCT            NZ     X1,D.PI4     TRY AGAIN FOR A C$  DEBUG CARD                     DBGPHCT      305     A     
 DBGPHCT            EQ     D.PI45       NO MORE DEBUG CARDS                                DBGPHCT      306     A     
 DBGPHCT                                                                                   DBGPHCT      307     A     
 DBGPHCT   D.PI2    SB6    DBGFSTT                                                         DBGPHCT      308     A     
 DBGPHCT            EQ     B7,B6,D.PI247  PROCESS THE C$ DEBUG CARD                        DBGPHCT      309     A     
 DBGPHCT                                                                                   DBGPHCT      310     A     
 DBGPHCT            SA1    D.NOGO                                                          DBGPHCT      311     A     
 DBGPHCT            DBGERR (C$ DEBUG STATEMENT MISSING OR BAD AT START OF PACKET.)         DBGPHCT      312     A     
 DBGPHCT            NZ     X1,D.PI247   DO NOT PROCESS DUMMY CARD, BUT                     DBGPHCT      313     A     
 DBGPHCT  *                             CHECK CURRENT CARD FOR SYNTAX                      DBGPHCT      314     A     
 DBGPHCT                                                                                   DBGPHCT      315     A     
 DBGPHCT  *         PROCESS DUMMY DEBUG CARD                                               DBGPHCT      316     A     
 DBGPHCT                                                                                   DBGPHCT      317     A     
 DBGPHCT            SA2    SYM1                                                            DBGPHCT      318     A     
 DBGPHCT            MX0    42                                                              DBGPHCT      319     A     
 DBGPHCT            SA1    X2-2         GET ROUTINE NAME                                   DBGPHCT      320     A     
 DBGPHCT            SA2    D.EDRL                                                          DBGPHCT      321     A     
 DBGPHCT            BX6    X0*X1                                                           DBGPHCT      322     A     
 DBGPHCT            MX7    1                                                               DBGPHCT      323     A     
 DBGPHCT            SA6    X2+DEBUG-1   ENTER NAME IN DRL                                  DBGPHCT      324     A     
 DBGPHCT            SA7    A6+1         ACTIVATE ROUTINE NAME                              DBGPHCT      325     A     
 DBGPHCT            SX6    X2+2                                                            DBGPHCT      326     A     
 DBGPHCT            MX7    0                                                               DBGPHCT      327     A     
 DBGPHCT            SA6    A2           UPDATE END OF DRL                                  DBGPHCT      328     A     
 DBGPHCT            SA7    AREAFLG      SET TO 'DEBUG STATEMENT PROCESSED LAST'            DBGPHCT      329     A     
 DBGPHCT            EQ     D.PI247      PROCESS THE CURRENT CARD                           DBGPHCT      330     A     
 DBGPHCT                                                                                   DBGPHCT      331     A     
 DBGPHCT  *         MAIN LOOP FOR PROCESSING DEBUG CARDS                                   DBGPHCT      332     A     
 DBGPHCT                                                                                   DBGPHCT      333     A     
 DBGPHCT   D.PI24   SA2    TYPE                                                            DBGPHCT      334     A     
 DBGPHCT            SB3    40                                                              DBGPHCT      335     A     
 DBGPHCT            SB7    X2                                                              DBGPHCT      336     A     
 DBGPHCT            SA1    D.EAREA      CONTINUE WITH AREA LIST OR OPTIONS LIST            DBGPHCT      337     A     
 DBGPHCT            LE     B7,B3,D.PI245  LAST STMT DEBUG OR AREA                          DBGPHCT      338     A     
 DBGPHCT            SA1    D.NESTW      LAST STMT OPTION                                   DBGPHCT      339     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3732    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT   D.PI245  SX6    X1+DEBUG-1                                                      DBGPHCT      340     A     
 DBGPHCT            SA6    =XFWAWORK                                                       DBGPHCT      341     A     
 DBGPHCT            RJ     SNS         SCAN NEXT STATEMENT                                 DBGPHCT      342     A     
 DBGPHCT            MI     B2,D.PI33   IF BAD DEBUG STATEMENT                              DBGPHCT      343     A     
 DBGPHCT   D.PI247  RJ     POINTRS      SET UP POINTERS FOR FORTRAN ROUTINES               DBGPHCT      344     A     
 DBGPHCT            CALLF  BUGCON,B1   CONVERT STATEMENT TO TABLE FORM                     DBGPHCT      345     A     
 DBGPHCT   D.PI33   SA1    C$STMT                                                          DBGPHCT      346          I
          -FEAT121L 
 DBGPHCT   D.PI33   RJ     DLO         CHECK NEXT STMT FOR C/-LIST OPTION                  FEAT121L     671     A     
 DBGPHCT            NZ     X1,D.PI24    GET THE NEXT DEBUG STATEMENT                       DBGPHCT      347     A     
 DBGPHCT                                                                                   DBGPHCT      348     A     
 DBGPHCT  *         END LOOP                                                               DBGPHCT      349     A     
 DBGPHCT                                                                                   DBGPHCT      350     A     
 DBGPHCT   D.PI45   SA2    SUCCESS                                                         DBGPHCT      351     A     
 DBGPHCT            PL     X2,D.PI22    NOTHING ON DISK                                    DBGPHCT      352     A     
 DBGPHCT            BX6    X6-X6                                                           DBGPHCT      353     A     
 DBGPHCT            SA6    D.POW                                                           DBGPHCT      354     A     
 DBGPHCT            CALLF  BUGCLO,B1   FLUSH AREA LISTS TO DISK                            DBGPHCT      355     A     
 DBGPHCT            SA1    FWASAVE                                                         DBGPHCT      356     A     
 DBGPHCT            SA2    =XL.DCON                                                        DBGPHCT      357     A     
 DBGPHCT            SX6    3                                                               DBGPHCT      358     A     
 DBGPHCT            IX7    X1+X2        ADJUST FWAWORK BY LENGTH OF DCON                   DBGPHCT      359     A     
 DBGPHCT            SA6    INDEXNO      INTERNAL PACKET EXISTS                             DBGPHCT      360     A     
 DBGPHCT            SA7    =XFWAWORK    RESTORE FWAWORK                                    DBGPHCT      361     A     
 DBGPHCT   D.PI222  SA2    =XLWAWORK                                                       DBGPHCT      362     A     
 DBGPHCT            SX1    DEBUG+200                                                       DBGPHCT      363          I
          -FCC0761
 DBGPHCT            SX1    DEBUG+100                                                       FCC0761       24     A     
 DBGPHCT            IX3    X2-X1                                                           DBGPHCT      364     A     
 DBGPHCT            NG     X3,D.PI25    NOT ENOUGH ROOM FOR DEBUGGING                      DBGPHCT      365     A     
 DBGPHCT            SA1    SYM1         ADDRESS OF START OF SYMTAB                         DBGPHCT      366          I
          -FCC0761
 DBGPHCT            SX3    X2-1                                                            DBGPHCT      367          I
          -FCC0761
 DBGPHCT            SB4    -100                                                            DBGPHCT      368          I
          -FCC0761
 DBGPHCT            IX1    X1-X3        X1 = SYM1-LWAWORK+1                                DBGPHCT      369          I
          -FCC0761
 DBGPHCT            SX3    X2+B4        X3 = LWAWORK-100                                   DBGPHCT      370          I
          -FCC0761
 DBGPHCT            MOVE   X1,X2,X3                                                        DBGPHCT      371          I
          -FCC0761
 DBGPHCT            SB6    DEBUG-1                                                         DBGPHCT      372          I
          -FCC0761
 DBGPHCT            BX6    X6-X6                                                           DBGPHCT      373          I
          -FCC0761
 DBGPHCT            SB6    DEBUG-1-100                                                     FCC0761       25     A     
 DBGPHCT            MX6    0                                                               FCC0761       26     A     
 DBGPHCT            SB6    -B6                                                             DBGPHCT      374     A     
 DBGPHCT            SA1    SYM1                                                            DBGPHCT      375     A     
 DBGPHCT            SA6    D.NOGO       RESET TO 'PROCESS DEBUG STATEMENTS'                DBGPHCT      376     A     
 DBGPHCT            SX7    X1+B6                                                           DBGPHCT      377     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3733    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            SA2    A1+B1       ADDRESS OF END OF SYMTAB                            DBGPHCT      378          I
          -FCC0761
 DBGPHCT            SB4    -100                                                            DBGPHCT      379          I
          -FCC0761
 DBGPHCT            SA7    D.SFDIT      D.SFDIT = SYM1-DEBUG+1                             DBGPHCT      380          I
          -FCC0761
 DBGPHCT            SB3    B4+B1                                                           DBGPHCT      381          I
          -FCC0761
 DBGPHCT            SX6    X7+B3                                                           DBGPHCT      382          I
          -FCC0761
 DBGPHCT            SX7    X1+B4                                                           DBGPHCT      383          I
          -FCC0761
 DBGPHCT            SA7    A1           SYM1 = SYM1-100                                    DBGPHCT      384          I
          -FCC0761
 DBGPHCT            SA6    D.SAASI      D.SAASI = SYM1-DEBUG+1-100+1                       DBGPHCT      385          I
          -FCC0761
 DBGPHCT            SA1    =XLWAWORK    LAST WORD ADDRESS OF WORKING STORAGE               DBGPHCT      386          I
          -FCC0761
 DBGPHCT            SA3    SELIST       ADDRESS OF START OF ELIST                          DBGPHCT      387          I
          -FCC0761
 DBGPHCT            SX7    X2+B4                                                           DBGPHCT      388          I
          -FCC0761
 DBGPHCT            SX6    X1+B4                                                           DBGPHCT      389          I
          -FCC0761
 DBGPHCT            SA7    A2           SYMEND = SYMEND-100                                DBGPHCT      390          I
          -FCC0761
 DBGPHCT            SA6    A1           LWAWORK = LWAWORK-100                              DBGPHCT      391          I
          -FCC0761
 DBGPHCT            SX7    X3+B4                                                           DBGPHCT      392          I
          -FCC0761
 DBGPHCT            SA7    A3           SELIST = SELIST-100                                DBGPHCT      393          I
          -FCC0761
 DBGPHCT            SA7    D.SFDIT     D.SFDIT = SYM1-DEBUG+1+100                          FCC0761       27     A     
 DBGPHCT            SX6    X7-99                                                           FCC0761       28     A     
 DBGPHCT            SA6    D.SAASI     D.SAASI = SYM1-DEBUG+1+1                            FCC0761       29     A     
 DBGPHCT                                                                                   DBGPHCT      394     A     
 DBGPHCT  *         RESET FLAGS, SET FLAGS TO INTERSPERSED, AND EXIT                       DBGPHCT      395     A     
 DBGPHCT                                                                                   DBGPHCT      396     A     
 DBGPHCT   D.PI27   BX6    X6-X6                                                           DBGPHCT      397     A     
 DBGPHCT            SA2    LNGIND                                                          DBGPHCT      398     A     
 DBGPHCT            SX7    B0                                                              DBGPHCT      399     A     
 DBGPHCT            SA6    D.OPFLG      SET TO 'NO OPTIONS TO SEND TO DISK'                DBGPHCT      400     A     
 DBGPHCT            SA7    D.PACK       SET PACKET FLAG TO 'INTERSPERSED'                  DBGPHCT      401     A     
 DBGPHCT            SA6    D.PADD       SET TO 'INTERSPERSED'                              DBGPHCT      402     A     
 DBGPHCT            SB5    B1                                                              DBGPHCT      403     A     
 DBGPHCT            BX7    X2                                                              DBGPHCT      404     A     
 DBGPHCT            SA7    =XGL.IND     UPDATE INDEX LENGTH                                DBGPHCT      405     A     
 DBGPHCT            EQ     DBGIPKT      EXIT                                               DBGPHCT      406     A     
 DBGPHCT                                                                                   DBGPHCT      407     A     
 DBGPHCT  *         NOT ENOUGH ROOM TO PROCESS DEBUG INFORMATION                           DBGPHCT      408     A     
 DBGPHCT                                                                                   DBGPHCT      409     A     
 DBGPHCT   D.PI25   SA1    D.NOGO                                                          DBGPHCT      410     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3734    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            NZ     X1,D.PI27    MESSAGE ALREADY PRINTED                            DBGPHCT      411     A     
 DBGPHCT            MX6    59                                                              DBGPHCT      412     A     
 DBGPHCT            SA6    A1                                                              DBGPHCT      413     A     
 DBGPHCT            DBGERR (MORE CORE NEEDED FOR DEBUG PROCESSING)                         DBGPHCT      414     A     
 DBGPHCT            EQ     D.PI27                                                          DBGPHCT      415     A     
 DBGPHCT                                                                                   DBGPHCT      416     A     
 DBGPHCT   D.PI22   SX6    1                                                               DBGPHCT      417     A     
 DBGPHCT            SA6    INDEXNO      NO INTERNAL PACKET INFORMATION                     DBGPHCT      418     A     
 DBGPHCT            EQ     D.PI222                                                         DBGPHCT      419     A     
 DBGPHCT            TITLE              DBGINT - INTERSPERSED STATEMENT PROCESSING          DBGPHCT      420     A     
 DBGPHCT  ***                                                                              DBGPHCT      421     A     
 DBGPHCT  *         DBGINT - INTERSPERSED STATEMENT PROCESSOR                              DBGPHCT      422     A     
 DBGPHCT  *                                                                                DBGPHCT      423     A     
 DBGPHCT                                                                                   DBGPHCT      424     A     
 DBGPHCT   DBGINT   ENTRY.                                                                 DBGPHCT      425     A     
 DBGPHCT            SX7    -1                                                              DBGPHCT      426     A     
 DBGPHCT            SA7    PHSFLAG      SET PHSFLAG TO PHASE 1                             DBGPHCT      427     A     
 DBGPHCT                                                                                   DBGPHCT      428     A     
 DBGPHCT   DBGINT8  RJ     SNS         SCAN NEXT STATEMENT                                 DBGPHCT      429     A     
 DBGPHCT            MI     B2,DBGINT3  IF BAD DEBUG STATEMENT                              DBGPHCT      430     A     
 DBGPHCT                                                                                   DBGPHCT      431     A     
 DBGPHCT   DBGINT2  SX7    4                                                               DBGPHCT      432     A     
 DBGPHCT            SA7    D.NEST       SET FIELD POSITION IN OPTIONS LIST                 DBGPHCT      433     A     
 DBGPHCT            SB1    1                                                               DBGPHCT      434     A     
 DBGPHCT            RJ     POINTRS                                                         DBGPHCT      435     A     
 DBGPHCT            SX7    X6+1                                                            DBGPHCT      436     A     
 DBGPHCT            SA6    D.EAREA      D.EAREA = D.DOLAST                                 DBGPHCT      437     A     
 DBGPHCT            SA7    D.OPL       START OF OPTIONS FOR *TURNON*                       DBGPHCT      438     A     
 DBGPHCT            SA7    D.NESTW                       AND FOR BUGCON                    DBGPHCT      439     A     
 DBGPHCT            CALLF  BUGCON       CONVERT STATEMENT TO TABLE FORM                    DBGPHCT      440     A     
 DBGPHCT            SA1    TYPE                                                            DBGPHCT      441     A     
 DBGPHCT            SX2    1401B        IF STMT TYPE .EQ. 39, 40, OR 48                    DBGPHCT      442     A     
 DBGPHCT            SB2    X1+11       (DEBUG, AREA OR OFF)                                DBGPHCT      443     A     
 DBGPHCT            LX3    X2,B2                                                           DBGPHCT      444     A     
 DBGPHCT            NG     X3,DBGINT3   NO LIST PROCESSING                                 DBGPHCT      445     A     
 DBGPHCT            CALLF  TURNON                                                          DBGPHCT      446     A     
 DBGPHCT   DBGINT3  SA1    C$STMT                                                          DBGPHCT      447          I
          -FEAT121L 
 DBGPHCT            SB1    1                                                               DBGPHCT      448          I
          -FEAT121L 
 DBGPHCT   DBGINT3  RJ     DLO         CHECK NEXT STMT FOR C/-LIST OPTION                  FEAT121L     672     A     
 DBGPHCT            NZ     X1,DBGINT8   MORE DEBUG STATEMENTS TO PROCESS                   DBGPHCT      449     A     
 DBGPHCT            MX6    0                                                               DBGPHCT      450     A     
 DBGPHCT            SB5    B1                                                              DBGPHCT      451     A     
 DBGPHCT            SA6    PHSFLAG     SET *NOT PHASE 1*                                   DBGPHCT      452     A     
 DBGPHCT            EQ     DBGINT      EXIT ...                                            DBGPHCT      453     A     
 DBGPHCT   DBGINTX  SPACE  4,8                                                             DBGPHCT      454     A     
 DBGPHCT  *         ENTRY WHEN A DEBUG CARD FOLLOWS AN UNRECOGNIZED FTN STMT               DBGPHCT      455     A     
 DBGPHCT  *                                                                                DBGPHCT      456     A     
 DBGPHCT   DBGINTX  ENTRY.                                                                 DBGPHCT      457     A     
 DBGPHCT            PLUG   AT=DBGINT,FROM=DBGINTX,VOID=NO                                  DBGPHCT      458          I
          -F2950F4
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3735    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            PLUG   AT=DBGINT,FROM=DBGINTX                                          F2950F4      171     A     
 DBGPHCT            SB6    DBGEXTP                                                         DBGPHCT      459     A     
 DBGPHCT            NE     B7,B6,DBGINT2     IF ALREADY TYPED                              DBGPHCT      460     A     
 DBGPHCT            RJ     GETTYPE                                                         DBGPHCT      461     A     
 DBGPHCT            NZ     B7,DBGINT2  IF TYPE OK                                          DBGPHCT      462     A     
 DBGPHCT            EQ     DBGINT3     ERROR                                               DBGPHCT      463     A     
 DBGPHCT   DOP      TITLE  DEBUG OPTION PROCESSOR FOR PASS 1, PHASE 2                      DBGPHCT      464     A     
 DBGPHCT  **        DOP - DEBUG OPTION PROCESSOR FOR PASS 1, PHASE 2.                      DBGPHCT      465     A     
 DBGPHCT  *                                                                                DBGPHCT      466     A     
 DBGPHCT  *                TASKS PERFORMED --                                              DBGPHCT      467     A     
 DBGPHCT  *         1.  SETS (D.ON) .LT. 0 AND CALLS *BUGACT* TO TURN OFF ALL              DBGPHCT      468     A     
 DBGPHCT  *         OPTIONS DESIGNATED TO END AT THE STATEMENT JUST PROCESSED.             DBGPHCT      469     A     
 DBGPHCT  *                                                                                DBGPHCT      470     A     
 DBGPHCT  *         2.  CALLS *SCANNER* TO TYPE AND TRANSFORM THE NEXT STATEMENT           DBGPHCT      471     A     
 DBGPHCT  *         TO E-LIST.                                                             DBGPHCT      472     A     
 DBGPHCT  *                                                                                DBGPHCT      473     A     
 DBGPHCT  *         3.  SETS (D.ON) = 0 AND CALLS *BUGACT* TO TURN ON ALL OPTIONS          DBGPHCT      474     A     
 DBGPHCT  *         DESIGNATED TO BEGIN AT THE NEW STATEMENT.                              DBGPHCT      475     A     
 DBGPHCT  *                                                                                DBGPHCT      476     A     
 DBGPHCT  *         4.  IF THE NEW STATEMENT IS A DEBUG OPTION (ACTION), CALLS             DBGPHCT      477     A     
 DBGPHCT  *         *BUGCON* TO CONVERT IT TO OPTIONS LIST FORM.  THEN CALLS               DBGPHCT      478     A     
 DBGPHCT  *         *TURNON* TO ACTIVATE THE NEW OPTION.                                   DBGPHCT      479     A     
 DBGPHCT  *                                                                                DBGPHCT      480     A     
 DBGPHCT  *         ENTRY  NONE                                                            DBGPHCT      481     A     
 DBGPHCT  *                                                                                DBGPHCT      482     A     
 DBGPHCT  *         EXIT   (B1) = 1                                                        DBGPHCT      483     A     
 DBGPHCT  *                                                                                DBGPHCT      484     A     
 DBGPHCT  *         USES   ALL                                                             DBGPHCT      485     A     
 DBGPHCT  *                                                                                DBGPHCT      486     A     
 DBGPHCT  *         CALLS  ADEXTS, BUGACT, BUGCON, CALLF, POINTRS, SNS, TURNON,            DBGPHCT      487     A     
 DBGPHCT  *                WRM                                                             DBGPHCT      488     A     
 DBGPHCT                                                                                   DBGPHCT      489     A     
 DBGPHCT                                                                                   DBGPHCT      490     A     
 DBGPHCT            QUAL   DOP                                                             DBGPHCT      491     A     
 DBGPHCT                                                                                   DBGPHCT      492     A     
 DBGPHCT   DOP      SUBR               ** ENTRY/EXIT **                                    DBGPHCT      493     A     
 DBGPHCT                                                                                   DBGPHCT      494     A     
 DBGPHCT  *         ISSUE *RJ FTNERR.* TO R-LIST IF A FATAL-TO-EXECUTION ERROR             DBGPHCT      495     A     
 DBGPHCT  *         WAS FOUND IN THE LAST STATEMENT.                                       DBGPHCT      496     A     
 DBGPHCT                                                                                   DBGPHCT      497     A     
 DBGPHCT            SA1    FEFLAG                                                          DBGPHCT      498     A     
 DBGPHCT            SA2    NOGOFLG                                                         DBGPHCT      499     A     
 DBGPHCT            ZR     X1,DOP2     IF NO FATAL ERROR IN LAST STMT                      DBGPHCT      500     A     
 DBGPHCT            NZ     X2,DOP2     IF C$-NOGO ACTIVE                                   DBGPHCT      501     A     
 DBGPHCT            ADEXTS =8RFTNERR.                                                      DBGPHCT      502     A     
 DBGPHCT            SA1    DUKE        (X1) = LINE NR OF LAST INIT LINE                    DBGPHCT      503     A     
 DBGPHCT            SX6    B1          (X6) = SYMTAB ORDINAL OF *FTNERR.*                  DBGPHCT      504     A     
 DBGPHCT            BX7    X1                                                              DBGPHCT      505     A     
 DBGPHCT            SA6    DOPB                                                            DBGPHCT      506     A     
 DBGPHCT            SA7    DOPB+1                                                          DBGPHCT      507     A     
 DBGPHCT            WRM    DOPA        MACRO TO R-LIST                                     DBGPHCT      508     A     
 DBGPHCT                                                                                   DBGPHCT      509     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3736    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT  *         TURN OFF ALL OPTIONS.                                                  DBGPHCT      510     A     
 DBGPHCT                                                                                   DBGPHCT      511     A     
 DBGPHCT   DOP2     SA1    =XFSTEX                                                         DBGPHCT      512     A     
 DBGPHCT            SA2    NOACT                                                           DBGPHCT      513     A     
 DBGPHCT            SB1    1                                                               DBGPHCT      514     A     
 DBGPHCT            ZR     X1,DOP11    IF FIRST EXECUTABLE STMT NOT FOUND YET              DBGPHCT      515     A     
 DBGPHCT            NZ     X2,DOP11    IF NO DEBUG PACKET INFORMATION                      DBGPHCT      516     A     
 DBGPHCT            SX6    B1+                                                             DBGPHCT      517     A     
 DBGPHCT            SA6    D.ON        SET *TURN OPTIONS OFF*                              DBGPHCT      518     A     
 DBGPHCT            RJ     POINTRS                                                         DBGPHCT      519     A     
 DBGPHCT            CALLF  BUGACT      DEACTIVATE ALL OPTIONS                              DBGPHCT      520     A     
 DBGPHCT                                                                                   DBGPHCT      521     A     
 DBGPHCT  *         TURN OPTIONS OFF/ON FOR COMMENT AND CONTINUATION LINES                 DBGPHCT      522     A     
 DBGPHCT  *         SCANNED SINCE INITIAL LINE OF LAST STATEMENT.                          DBGPHCT      523     A     
 DBGPHCT                                                                                   DBGPHCT      524     A     
 DBGPHCT            SA1    DUKE        (X1) = LINE NR OF LAST INITIAL LINE                 DBGPHCT      525     A     
 DBGPHCT            SA2    =XDUKE1     (X2) = LINE NR OF NEXT INITIAL LINE                 DBGPHCT      526     A     
 DBGPHCT            SB1    1                                                               DBGPHCT      527     A     
 DBGPHCT            SB2    X1+B1                                                           DBGPHCT      528     A     
 DBGPHCT            SB3    X2                                                              DBGPHCT      529     A     
 DBGPHCT            GE     B2,B3,DOP11 IF NO INTERVENING COMMENT OR CONTIN LINES           DBGPHCT      530     A     
 DBGPHCT            SX6    B0+                                                             DBGPHCT      531     A     
 DBGPHCT            SA6    D.ON        SET *TURN OPTIONS ON*                               DBGPHCT      532     A     
 DBGPHCT            SA6    SCNUPDT                                                         DBGPHCT      533     A     
 DBGPHCT            SA6    D.LABEL     NO LABEL POSSIBLE ON COMMENT OR CONTIN              DBGPHCT      534     A     
 DBGPHCT   DOP3     SX6    B0+                                                             DBGPHCT      535     A     
 DBGPHCT            SA6    DOPB        INITIALIZE LOOP COUNTER                             DBGPHCT      536     A     
 DBGPHCT   DOP4     SA1    DOPB                                                            DBGPHCT      537     A     
 DBGPHCT            SA2    DUKE        (X2) = LAST INITIAL LINE NR                         DBGPHCT      538     A     
 DBGPHCT            SA3    =XDUKE1     (X3) = NEXT INITIAL LINE NR                         DBGPHCT      539     A     
 DBGPHCT            SX6    X1+B1       LOOP COUNT + 1                                      DBGPHCT      540     A     
 DBGPHCT            IX7    X2+X6                                                           DBGPHCT      541     A     
 DBGPHCT            LX1    X6,B1       2 * LOOP COUNT                                      DBGPHCT      542     A     
 DBGPHCT            IX2    X7-X3                                                           DBGPHCT      543     A     
 DBGPHCT            SA3    COUNTUP     (X3) = NR OF SAVED UPDATE ID TABLE ENTRIES          DBGPHCT      544     A     
 DBGPHCT            PL     X2,DOP6     IF ALL CONTIN AND COMMENTS PROCESSED                DBGPHCT      545     A     
 DBGPHCT            SA6    A1                                                              DBGPHCT      546     A     
 DBGPHCT            IX3    X3-X1                                                           DBGPHCT      547     A     
 DBGPHCT            SA7    D.DUKE1     LINE NR FOR OPTIONS PROCESSING                      DBGPHCT      548     A     
 DBGPHCT            SA1    UPDTTBL-2+X1                                                    DBGPHCT      549     A     
 DBGPHCT            SA2    A1+1                                                            DBGPHCT      550     A     
 DBGPHCT            BX6    X1                                                              DBGPHCT      551     A     
 DBGPHCT            LX7    X2                                                              DBGPHCT      552     A     
 DBGPHCT            PL     X3,DOP5     IF NOT PAST END OF SAVED UPDATE ID TABLE            DBGPHCT      553     A     
 DBGPHCT            MX6    0                                                               DBGPHCT      554     A     
 DBGPHCT            SX7    B0                                                              DBGPHCT      555     A     
 DBGPHCT   DOP5     SA6    D.CURUD     CURRENT UPDATE ID FOR OPTIONS PROCESSING            DBGPHCT      556     A     
 DBGPHCT            SA7    A6+1                                                            DBGPHCT      557     A     
 DBGPHCT            CALLF  BUGACT      ACTIVATE OR DEACTIVATE OPTIONS                      DBGPHCT      558     A     
 DBGPHCT            SB1    1                                                               DBGPHCT      559     A     
 DBGPHCT            EQ     DOP4        LOOP FOR NEXT COMMENT OR CONTIN LINE                DBGPHCT      560     A     
 DBGPHCT                                                                                   DBGPHCT      561     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3737    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT   DOP6     SA1    D.ON                                                            DBGPHCT      562     A     
 DBGPHCT            MX6    1                                                               DBGPHCT      563     A     
 DBGPHCT            SA6    A1          SET *TURN OPTIONS OFF*                              DBGPHCT      564     A     
 DBGPHCT            ZR     X1,DOP3     IF LAST CYCLE TURNED OPTIONS ON                     DBGPHCT      565     A     
 DBGPHCT                                                                                   DBGPHCT      566     A     
 DBGPHCT  *         PROCESS NEXT STATEMENT.                                                DBGPHCT      567     A     
 DBGPHCT                                                                                   DBGPHCT      568     A     
 DBGPHCT   DOP11    SA1    C$STMT                                                          DBGPHCT      569          I
          -FEAT121L 
 DBGPHCT   DOP11    RJ     DLO         CHECK NEXT STMT FOR C/-LIST OPTION                  FEAT121L     673     A     
 DBGPHCT            ZR     X1,DOP14    IF NEXT STATEMENT NOT C$                            DBGPHCT      570     A     
 DBGPHCT                                                                                   DBGPHCT      571     A     
 DBGPHCT  *         PROCESS NEW C$ STATEMENT.                                              DBGPHCT      572     A     
 DBGPHCT                                                                                   DBGPHCT      573     A     
 DBGPHCT            RJ     SNS         SCAN NEXT STATAMENT                                 DBGPHCT      574     A     
 DBGPHCT   DOP12    SA1    NOACT                                                           DBGPHCT      575     A     
 DBGPHCT            SX6    B0+                                                             DBGPHCT      576     A     
 DBGPHCT            NZ     X1,DOP13    IF NO DEBUG PACKET INFORMATION                      DBGPHCT      577     A     
 DBGPHCT            SA6    D.ON        SET *TURN OPTIONS ON*                               DBGPHCT      578     A     
 DBGPHCT            RJ     POINTRS                                                         DBGPHCT      579     A     
 DBGPHCT            CALLF  BUGACT      ACTIVATE OPTIONS                                    DBGPHCT      580     A     
 DBGPHCT   DOP13    SA1    TYPE                                                            DBGPHCT      581     A     
 DBGPHCT            SB2    X1-41                                                           DBGPHCT      582     A     
 DBGPHCT            MI     B2,DOP2     IF NOT AN ACTION DEBUG STATEMENT                    DBGPHCT      583     A     
 DBGPHCT            SX6    4                                                               DBGPHCT      584     A     
 DBGPHCT            SA6    D.NEST                                                          DBGPHCT      585     A     
 DBGPHCT            RJ     POINTRS                                                         DBGPHCT      586     A     
 DBGPHCT            SA1    D.DOLAST                                                        DBGPHCT      587     A     
 DBGPHCT            SX6    X1+B1                                                           DBGPHCT      588     A     
 DBGPHCT            BX7    X1                                                              DBGPHCT      589     A     
 DBGPHCT            SA6    D.NESTW                                                         DBGPHCT      590     A     
 DBGPHCT            SA7    D.EAREA                                                         DBGPHCT      591     A     
 DBGPHCT            SA6    D.OPL                                                           DBGPHCT      592     A     
 DBGPHCT            CALLF  BUGCON      POST NEW STMT INFO TO DEBUG TABLES                  DBGPHCT      593     A     
 DBGPHCT            SA1    TYPE                                                            DBGPHCT      594     A     
 DBGPHCT            SB2    X1-48                                                           DBGPHCT      595     A     
 DBGPHCT            ZR     B2,DOP2     IF *OFF* STATEMENT                                  DBGPHCT      596     A     
 DBGPHCT            CALLF  TURNON      SET NEW OPTION STATUS *ON*                          DBGPHCT      597     A     
 DBGPHCT            EQ     DOP2                                                            DBGPHCT      598     A     
 DBGPHCT                                                                                   DBGPHCT      599     A     
 DBGPHCT  *         PROCESS NEW NON-C$ STATEMENT.                                          DBGPHCT      600     A     
 DBGPHCT                                                                                   DBGPHCT      601     A     
 DBGPHCT   DOP14    RJ     SNS         SCAN NEXT STATEMENT                                 DBGPHCT      602     A     
 DBGPHCT            NZ     B2,DOP12    IF IT WAS C$ STMT (PROBABLE FTN BUG)                DBGPHCT      603     A     
 DBGPHCT            SA1    =XFSTEX                                                         DBGPHCT      604     A     
 DBGPHCT            ZR     X1,EXIT.    IF FIRST EXECUTABLE STMT NOT FOUND YET              DBGPHCT      605     A     
 DBGPHCT            SA2    NOACT                                                           DBGPHCT      606     A     
 DBGPHCT            NZ     X2,EXIT.    IF NO DEBUG PACKET INFORMATION                      DBGPHCT      607     A     
 DBGPHCT            SX6    B0+                                                             DBGPHCT      608     A     
 DBGPHCT            SA6    D.ON        SET *TURN OPTIONS ON*                               DBGPHCT      609     A     
 DBGPHCT            RJ     POINTRS                                                         DBGPHCT      610     A     
 DBGPHCT            CALLF  BUGACT                                                          DBGPHCT      611     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3738    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            SB1    1                                                               DBGPHCT      612     A     
 DBGPHCT            EQ     EXIT.                                                           DBGPHCT      613     A     
 DBGPHCT                                                                                   DBGPHCT      614     A     
 DBGPHCT                                                                                   DBGPHCT      615     A     
 DBGPHCT                                                                                   DBGPHCT      616     A     
 DBGPHCT   RJ60     =      122B        *RJ* R-LIST MACRO NUMBER                            DBGPHCT      617     A     
 DBGPHCT   DOPA     RMHDR  RJ60,2      MACRO SKELETON WORD 1                               DBGPHCT      618     A     
 DBGPHCT   DOPB     BSSZ   2           MACRO WORDS 2 AND 3  .. ALSO SCRATCH                DBGPHCT      619     A     
 DBGPHCT   DOP      SPACE  4,4                                                             DBGPHCT      620     A     
 DBGPHCT            QUAL   *                                                               DBGPHCT      621     A     
 DBGPHCT                                                                                   DBGPHCT      622     A     
 DBGPHCT   DOP      =      /DOP/DOP                                                        DBGPHCT      623     A     
 DBGPHCT            ENTRY  DOP                                                             DBGPHCT      624     A     
 DBGPHCT            TITLE              SUBROUTINES                                         DBGPHCT      625     A     
 DBGPHCT   DLO      SPACE  4,8                                                             FEAT121L     674     A     
 DBGPHCT  **        DLO - DEBUG LIST OPTION CHECK.                                         FEAT121L     675     A     
 DBGPHCT  *                                                                                FEAT121L     676     A     
 DBGPHCT  *                CALL *PLO* TO CHECK TO SEE IF NEXT STATEMENT IS A               FEAT121L     677     A     
 DBGPHCT  *         C/-LIST DIRECTIVE AND IF IT IS, TO PROCESS IT. THIS SUBROUTINE         FEAT121L     678     A     
 DBGPHCT  *         IS NECESSARY SO THAT A C/-LIST DIRECTIVE DOES NOT BREAK A              FEAT121L     679     A     
 DBGPHCT  *         DEBUG PACKET.                                                          FEAT121L     680     A     
 DBGPHCT  *                                                                                FEAT121L     681     A     
 DBGPHCT  *                                                                                FEAT121L     682     A     
 DBGPHCT  *         ENTRY  NONE                                                            FEAT121L     683     A     
 DBGPHCT  *                                                                                FEAT121L     684     A     
 DBGPHCT  *         EXIT   (X1) = .ZR. IF NEXT STATEMENT IS NOT C$-DEBUG                   FEAT121L     685     A     
 DBGPHCT  *                     = .NZ. IF NEXT STATEMENT IS C$-DEBUG                       FEAT121L     686     A     
 DBGPHCT  *                (B1) = 1                                                        FEAT121L     687     A     
 DBGPHCT  *                                                                                FEAT121L     688     A     
 DBGPHCT  *         USES   ALL                                                             FEAT121L     689     A     
 DBGPHCT  *                                                                                FEAT121L     690     A     
 DBGPHCT  *         CALLS  PLO (SCANNER)                                                   FEAT121L     691     A     
 DBGPHCT                                                                                   FEAT121L     692     A     
 DBGPHCT                                                                                   FEAT121L     693     A     
 DBGPHCT   DLO      SUBR               ** ENTRY/EXIT **                                    FEAT121L     694     A     
 DBGPHCT            CALL   PLO         PROCESS C/-LIST OPTION                              FEAT121L     695     A     
 DBGPHCT            SA1    C$STMT                                                          FEAT121L     696     A     
 DBGPHCT            SB1    1                                                               FEAT121L     697     A     
 DBGPHCT            EQ     EXIT.                                                           FEAT121L     698     A     
 DBGPHCT   DTABLE   SPACE  4,8                                                             FEAT121L     699     A     
 DBGPHCT  ***                                                                              DBGPHCT      626     A     
 DBGPHCT  *         DTABLE - SET UP TABLES FOR DEBUG PACKET PROCESSING                     DBGPHCT      627     A     
 DBGPHCT  *                                                                                DBGPHCT      628     A     
 DBGPHCT  *         CALLING SEQUENCE                                                       DBGPHCT      629     A     
 DBGPHCT  *         ENTRY     X2 = START OF TABLES TO BE MOVED SO THAT DEBUG               DBGPHCT      630     A     
 DBGPHCT  *                        TABLES CAN BE BUILT                                     DBGPHCT      631     A     
 DBGPHCT  *                        FOR EXTERNAL PACKET - SYMEND                            DBGPHCT      632     A     
 DBGPHCT  *                        FOR INTERNAL PACKET - LWAWORK                           DBGPHCT      633     A     
 DBGPHCT  *         EXIT   B6 = 0, IF NO ROOM FOR DEBUG TABLES                             DBGPHCT      634     A     
 DBGPHCT  *                   B6 = 1, ELSE                                                 DBGPHCT      635     A     
 DBGPHCT  *                   X4 = LNGDVL + LNGDRL + 2                                     DBGPHCT      636     A     
 DBGPHCT  *                                                                                DBGPHCT      637     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3739    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT                                                                                   DBGPHCT      638     A     
 DBGPHCT   DTABLEX  SA1    D.NOGO       SET D.NOGO TO 'DO NOT PROCESS STMTS'               DBGPHCT      639     A     
 DBGPHCT            SB6    B0           SET FLAG TO 'NO ROOM'                              DBGPHCT      640     A     
 DBGPHCT            SA6    A1                SET NOT ENUF ROOM FLAG                        DBGPHCT      641     A     
 DBGPHCT            NZ     X1,DTABLE   IF ERROR MESSAGE ALREADY ISSUED                     DBGPHCT      642     A     
 DBGPHCT            DBGERR   (MORE CORE NEEDED FOR DEBUG MODE)                             DBGPHCT      643     A     
 DBGPHCT                                                                                   DBGPHCT      644     A     
 DBGPHCT   DTABLE   BSS    1                                                               DBGPHCT      645          I
          -FCCT006X 
 DBGPHCT   DTABLE   EQ     *+4S15      ** ENTRY/EXIT **                                    FCCT006X      24     A     
 DBGPHCT            SX1    DEBUG+501                                                       DBGPHCT      646     A     
 DBGPHCT            IX6    X2-X1                                                           DBGPHCT      647     A     
 DBGPHCT            NG     X6,DTABLEX   IF .LT. 500 WORDS AVAILABLE                        DBGPHCT      648     A     
 DBGPHCT                                                                                   DBGPHCT      649     A     
 DBGPHCT  *         MOVE SYMTAB AND ELIST FOR DEBUG TABLES                                 DBGPHCT      650     A     
 DBGPHCT                                                                                   DBGPHCT      651     A     
 DBGPHCT            SA3    SYM1                                                            DBGPHCT      652     A     
 DBGPHCT            SA4    LNGDRL                                                          DBGPHCT      653     A     
 DBGPHCT            IX5    X3-X2                                                           DBGPHCT      654     A     
 DBGPHCT            SX1    X5+1                                                            DBGPHCT      655     A     
 DBGPHCT            SA5    LNGDVL                                                          DBGPHCT      656     A     
 DBGPHCT            SX3    X4+2                                                            DBGPHCT      657     A     
 DBGPHCT            IX4    X3+X5        LENGTH DRL + LENGTH DVL +2                         DBGPHCT      658     A     
 DBGPHCT            IX3    X2-X4                                                           DBGPHCT      659     A     
 DBGPHCT            MOVE   X1,X2,X3                                                        DBGPHCT      660     A     
 DBGPHCT                                                                                   DBGPHCT      661     A     
 DBGPHCT  *         RESET POINTERS AND SET DEBUG TABLE POINTERS                            DBGPHCT      662     A     
 DBGPHCT                                                                                   DBGPHCT      663     A     
 DBGPHCT            SA1    LNGIND       LENGTH OF INDEX                                    DBGPHCT      664     A     
 DBGPHCT            SA2    SYM1         ADDRESS OF START OF SYMTAB                         DBGPHCT      665     A     
 DBGPHCT            SX6    B1                                                              DBGPHCT      666     A     
 DBGPHCT            IX7    X1+X6                                                           DBGPHCT      667     A     
 DBGPHCT            SA6    SDBGIND      SDBGIND = 1                                        DBGPHCT      668     A     
 DBGPHCT            SA7    D.SAREA      AREA LIST                                          DBGPHCT      669     A     
 DBGPHCT            SX1    DEBUG-1                                                         DBGPHCT      670     A     
 DBGPHCT            IX6    X2+X6                                                           DBGPHCT      671     A     
 DBGPHCT            SA7    D.EAREA                                                         DBGPHCT      672     A     
 DBGPHCT            SA3    LNGDRL       LENGTH DEBUG ROUTINE LIST                          DBGPHCT      673     A     
 DBGPHCT            SA6    DBGRFMP      DBGRFMAP = SYM1+1                                  DBGPHCT      674     A     
 DBGPHCT            IX7    X6-X1                                                           DBGPHCT      675     A     
 DBGPHCT            SX3    X3+2                                                            DBGPHCT      676     A     
 DBGPHCT            IX6    X7-X3                                                           DBGPHCT      677     A     
 DBGPHCT            SA7    D.RFMAP      D.RFMAP = DBGRFMP-DEBUG+1                          DBGPHCT      678     A     
 DBGPHCT            SA6    D.SDRL       DEBUG ROUTINE LIST                                 DBGPHCT      679     A     
 DBGPHCT            SA6    D.EDRL                                                          DBGPHCT      680     A     
 DBGPHCT            SA1    LNGDVL                                                          DBGPHCT      681     A     
 DBGPHCT            IX7    X6-X1                                                           DBGPHCT      682     A     
 DBGPHCT            SA5    SYMEND                                                          DBGPHCT      683     A     
 DBGPHCT            IX4    X3+X1        LNGDRL+LNGDVL+2                                    DBGPHCT      684     A     
 DBGPHCT            SA7    D.SDVL                                                          DBGPHCT      685     A     
 DBGPHCT            SB6    B1          (B6) = RETURN *ENOUGH ROOM* STATUS                  DBGPHCT      686     A     
 DBGPHCT            IX6    X2-X4                                                           DBGPHCT      687     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3740    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            SA7    D.EDVL                                                          DBGPHCT      688     A     
 DBGPHCT            SA6    A2           SYM1 = SYM1-LNGDVL-LNGDRL-2                        DBGPHCT      689     A     
 DBGPHCT            IX7    X5-X4                                                           DBGPHCT      690     A     
 DBGPHCT            SA7    A5           SYMEND = SYMEND-LNGDVL-LNGDRL-2                    DBGPHCT      691     A     
 DBGPHCT            EQ     DTABLE       RETURN                                             DBGPHCT      692     A     
 DBGPHCT   MIA      SPACE  4,8                                                             DBGPHCT      693     A     
 DBGPHCT  **        MIA - MISCELLANEOUS INITIALIZATION, PART A.                            DBGPHCT      694     A     
 DBGPHCT  *                                                                                DBGPHCT      695     A     
 DBGPHCT  *                                                                                DBGPHCT      696     A     
 DBGPHCT  *         ENTRY  (B2) = 0 IF EXTERNAL PACKET, = 1 IF INTERNAL PACKET             DBGPHCT      697     A     
 DBGPHCT  *                                                                                DBGPHCT      698     A     
 DBGPHCT  *         EXIT   (B1) = 1                                                        DBGPHCT      699     A     
 DBGPHCT  *                                                                                DBGPHCT      700     A     
 DBGPHCT  *         USES   X - 1, 2, 3, 6, 7                                               DBGPHCT      701     A     
 DBGPHCT  *                A - 1, 2, 3, 6, 7                                               DBGPHCT      702     A     
 DBGPHCT  *                B - 1                                                           DBGPHCT      703     A     
 DBGPHCT  *                                                                                DBGPHCT      704     A     
 DBGPHCT  *         CALLS  NONE                                                            DBGPHCT      705     A     
 DBGPHCT                                                                                   DBGPHCT      706     A     
 DBGPHCT                                                                                   DBGPHCT      707     A     
 DBGPHCT   MIA      SUBR               ** ENTRY/EXIT **                                    DBGPHCT      708     A     
 DBGPHCT            SA1    =XGL.IND                                                        DBGPHCT      709     A     
 DBGPHCT            SA2    =XGL.DRL                                                        DBGPHCT      710     A     
 DBGPHCT            SA3    =XLASTREC                                                       DBGPHCT      711     A     
 DBGPHCT            BX6    X1                                                              DBGPHCT      712     A     
 DBGPHCT            LX7    X2                                                              DBGPHCT      713     A     
 DBGPHCT            SA6    LNGIND                                                          DBGPHCT      714     A     
 DBGPHCT            SA7    LNGDRL                                                          DBGPHCT      715     A     
 DBGPHCT            MX1    42                                                              DBGPHCT      716     A     
 DBGPHCT            BX7    X1*X3                                                           DBGPHCT      717     A     
 DBGPHCT            SX6    X3                                                              DBGPHCT      718     A     
 DBGPHCT            LX7    -18                                                             DBGPHCT      719     A     
 DBGPHCT            SA6    RECORD                                                          DBGPHCT      720     A     
 DBGPHCT            SA7    DISPOW                                                          DBGPHCT      721     A     
 DBGPHCT            SA1    =XGL.DVL                                                        DBGPHCT      722     A     
 DBGPHCT            SX6    X1+B2                                                           DBGPHCT      723     A     
 DBGPHCT            SA6    LNGDVL                                                          DBGPHCT      724     A     
 DBGPHCT            SB1    1                                                               DBGPHCT      725     A     
 DBGPHCT            EQ     EXIT.                                                           DBGPHCT      726     A     
 DBGPHCT   D.RESET  SPACE  4,8                                                             DBGPHCT      727     A     
 DBGPHCT  **        D.RESET - RESTORE TABLE POSITIONS AND TITLE LINE.                      DBGPHCT      728     A     
 DBGPHCT  *                                                                                DBGPHCT      729     A     
 DBGPHCT  *                MOVES *SYMTAB* AND *E-LIST* TO ORIGINAL POSITIONS.              DBGPHCT      730     A     
 DBGPHCT  *         CLEARS *DEBUG PACKET* FROM TITLE LINE.                                 DBGPHCT      731     A     
 DBGPHCT  *                                                                                DBGPHCT      732     A     
 DBGPHCT  *                                                                                DBGPHCT      733     A     
 DBGPHCT  *         ENTRY  (B1) = 1                                                        DBGPHCT      734     A     
 DBGPHCT  *                                                                                DBGPHCT      735     A     
 DBGPHCT  *         EXIT   (B1) = 1                                                        DBGPHCT      736     A     
 DBGPHCT  *                                                                                DBGPHCT      737     A     
 DBGPHCT  *         USES   X - 1, 2, 3, 4, 6, 7                                            DBGPHCT      738     A     
 DBGPHCT  *                A - 1, 2, 3, 6, 7                                               DBGPHCT      739     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3741    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT  *                B - NONE                                                        DBGPHCT      740     A     
 DBGPHCT  *                                                                                DBGPHCT      741     A     
 DBGPHCT  *         CALLS  MOVE                                                            DBGPHCT      742     A     
 DBGPHCT                                                                                   DBGPHCT      743     A     
 DBGPHCT                                                                                   DBGPHCT      744     A     
 DBGPHCT   D.RESET  SUBR               ** ENTRY/EXIT **                                    DBGPHCT      745     A     
 DBGPHCT            SA3    D.NOGO                                                          FCC1117X       9     A     
 DBGPHCT            SA1    SYM1         ADDRESS OF START OF SYMTAB                         DBGPHCT      746     A     
 DBGPHCT            MI     X3,EXIT.    IF *DTABLE* DIDN-T MOVE TABLES, EXIT                FCC1117X      10     A     
 DBGPHCT            SA2    =XLWAWORK   LAST WORD ADDRESS OF WORKING STORAGE                DBGPHCT      747     A     
 DBGPHCT            SA3    DBGRFMP     ADDRESS OF DEBUG"S REFMAP                           DBGPHCT      748     A     
 DBGPHCT            SX4    X1+B1                                                           DBGPHCT      749     A     
 DBGPHCT            IX6    X3-X4                                                           DBGPHCT      750     A     
 DBGPHCT            IX1    X4-X2       SYM1+1-LWAWORK                                      DBGPHCT      751     A     
 DBGPHCT            SA6    D.ELAST     D.ELAST = DBGRFMP-SYM1-1                            DBGPHCT      752     A     
 DBGPHCT            IX3    X3-X1                                                           DBGPHCT      753     A     
 DBGPHCT            MOVE   X1,X2,X3                                                        DBGPHCT      754     A     
 DBGPHCT                                                                                   DBGPHCT      755     A     
 DBGPHCT  *         RESET POINTERS                                                         DBGPHCT      756     A     
 DBGPHCT                                                                                   DBGPHCT      757     A     
 DBGPHCT            SA1    D.ELAST     ADDRESS OF END OF ELIST                             DBGPHCT      758     A     
 DBGPHCT            SA2    SYM1        ADDRESS OF START OF SYMTAB                          DBGPHCT      759     A     
 DBGPHCT            IX6    X2+X1                                                           DBGPHCT      760     A     
 DBGPHCT            SA3    SYMEND      ADDRESS OF END OF SYMTAB                            DBGPHCT      761     A     
 DBGPHCT            SA6    A2          SYM1 = SYM1+D.ELAST                                 DBGPHCT      762     A     
 DBGPHCT            IX7    X3+X1                                                           DBGPHCT      763     A     
 DBGPHCT            SA2    =XLWAWORK   LAST WORD ADDRESS OF WORKING STORAGE                DBGPHCT      764     A     
 DBGPHCT            SA7    A3          SYMEND = SYMEND+D.ELAST                             DBGPHCT      765     A     
 DBGPHCT            IX6    X2+X1                                                           DBGPHCT      766     A     
 DBGPHCT            SA3    SELIST      ADDRESS OF START OF ELIST                           DBGPHCT      767     A     
 DBGPHCT            SA6    A2          LWAWORK = LWAWORK+D.ELAST                           DBGPHCT      768     A     
 DBGPHCT            IX7    X3+X1                                                           DBGPHCT      769     A     
 DBGPHCT            SA7    A3          SELIST = SELIST+D.ELAST                             DBGPHCT      770     A     
 DBGPHCT            SA1    =1H         CLEAR *DEBUG PACKET* FROM TITLE LINE                DBGPHCT      771     A     
 DBGPHCT            NO                                                                     DBGPHCT      772     A     
 DBGPHCT            BX6    X1                                                              DBGPHCT      773     A     
 DBGPHCT            SA6    =XTL.PTYP                                                       DBGPHCT      774     A     
 DBGPHCT            SA6    A6+B1                                                           DBGPHCT      775     A     
 DBGPHCT            EQ     EXIT.                                                           DBGPHCT      776     A     
 DBGPHCT   POINTRS  SPACE  4,8                                                             DBGPHCT      777     A     
 DBGPHCT  **        POINTRS - SET UP ADDRESSES FOR FORTRAN SUBROUTINES.                    DBGPHCT      778     A     
 DBGPHCT  *                                                                                DBGPHCT      779     A     
 DBGPHCT  *         CALLING SEQUENCE                                                       DBGPHCT      780     A     
 DBGPHCT  *         ENTRY     NONE                                                         DBGPHCT      781     A     
 DBGPHCT  *         EXIT      A1,X1     LWAWORK, (LWAWORK)                                 DBGPHCT      782     A     
 DBGPHCT  *                   A6,X6     D.DOLAST, (D.DOLAST)                               DBGPHCT      783     A     
 DBGPHCT  *                (B1) = 1                                                        DBGPHCT      784     A     
 DBGPHCT  *                                                                                DBGPHCT      785     A     
 DBGPHCT   POINTRS  SUBR   =           ** ENTRY/EXIT **                                    DBGPHCT      786     A     
 DBGPHCT            SA2    SELIST       ADDRESS OF START OF ELIST                          DBGPHCT      787     A     
 DBGPHCT            SX0    DEBUG-1      LOCATION OF BLANK COMMON                           DBGPHCT      788     A     
 DBGPHCT            SB1    1                                                               DBGPHCT      789     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3742    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            SA3    LELIST       ADDRESS OF END OF ELIST                            DBGPHCT      790     A     
 DBGPHCT            IX7    X2-X0                                                           DBGPHCT      791     A     
 DBGPHCT            SA1    =XLWAWORK    LAST WORD ADDRESS OF WORKING STORAGE               DBGPHCT      792     A     
 DBGPHCT            IX6    X3-X0                                                           DBGPHCT      793     A     
 DBGPHCT            SA7    D.ELIST      D.ELIST = SELIST-DEBUG+1                           DBGPHCT      794     A     
 DBGPHCT            SA2    SYM1         ADDRESS OF START OF SYMTAB                         DBGPHCT      795     A     
 DBGPHCT            SA3    SYMEND                                                          DBGPHCT      796     A     
 DBGPHCT            SA6    D.LELST                                                         DBGPHCT      797     A     
 DBGPHCT            IX7    X1-X0                                                           DBGPHCT      798     A     
 DBGPHCT            IX6    X2-X0                                                           DBGPHCT      799     A     
 DBGPHCT            SA7    D.ELAST                                                         DBGPHCT      800     A     
 DBGPHCT            SA6    D.SSMTB      D.SSMTB = SYM1-DEBUG+1                             DBGPHCT      801     A     
 DBGPHCT            SA5    FWAWORK      FIRST WORD ADDRESS OF WORKING STORAGE              DBGPHCT      802     A     
 DBGPHCT            IX7    X3-X0                                                           DBGPHCT      803     A     
 DBGPHCT            SA7    D.ESMTB                                                         DBGPHCT      804     A     
 DBGPHCT            IX6    X5-X0                                                           DBGPHCT      805     A     
 DBGPHCT            SA6    D.DOLAST     D.DOLAST = FWAWORK-DEBUG+1                         DBGPHCT      806     A     
 DBGPHCT            EQ     EXIT.                                                           DBGPHCT      807     A     
 DBGPHCT   DMVWDS   SPACE  4,8                                                             DBGPHCT      808     A     
 DBGPHCT  **        DMVWDS - CALL *MOVE* FOR A FORTRAN SUBROUTINE.                         DBGPHCT      809     A     
 DBGPHCT  *                                                                                DBGPHCT      810     A     
 DBGPHCT  *         CALLING SEQUENCE:                                                      DBGPHCT      811     A     
 DBGPHCT  *                CALL DMVWDS( WORDCT, FWA, DESTADD )                             DBGPHCT      812     A     
 DBGPHCT  *                WORDCT = NO OF WDS TO MOVE                                      DBGPHCT      813     A     
 DBGPHCT  *                FWA    = BEG ADDRESS OF WDS TO BE MOVED                         DBGPHCT      814     A     
 DBGPHCT  *                DESTADD= NEW FWA                                                DBGPHCT      815     A     
 DBGPHCT  *                                                                                DBGPHCT      816     A     
 DBGPHCT  *         ON EXIT:                                                               DBGPHCT      817     A     
 DBGPHCT  *                WORDCT NO OF WDS WILL BEGIN AT DESTADD INSTEAD OF FWA           DBGPHCT      818     A     
 DBGPHCT  *                                                                                DBGPHCT      819     A     
 DBGPHCT   DMVWDS   SUBR   =           ** ENTRY/EXIT **                                    DBGPHCT      820     A     
 DBGPHCT            SA2    A1+1         X2 = FWA                                           DBGPHCT      821     A     
 DBGPHCT            SA3    A2+1         X3 = DESTADD                                       DBGPHCT      822     A     
 DBGPHCT            SA1    X1           X1 = WORDCT                                        DBGPHCT      823     A     
 DBGPHCT            MOVE   X1,X2,X3                                                        DBGPHCT      824     A     
 DBGPHCT            EQ     EXIT.                                                           DBGPHCT      825     A     
 DBGPHCT                                                                                   DBGPHCT      826     A     
 DBGPHCT                                                                                   DBGPHCT      827     A     
 DBGPHCT                                                                                   DBGPHCT      828     A     
 DBGPHCT   D.TEMP   BSSZ   1                 .NE. 0 IF WAITING FOR EOR TO FLUSH BU         DBGPHCT      829     A     
 DBGPHCT            EJECT                                                                  DBGPHCT      830     A     
 DBGPHCT   SNS      SPACE  4,8                                                             DBGPHCT      831     A     
 DBGPHCT  **        SNS - SCAN NEXT STATEMENT.                                             DBGPHCT      832     A     
 DBGPHCT  *                                                                                DBGPHCT      833     A     
 DBGPHCT  *                                                                                DBGPHCT      834     A     
 DBGPHCT  *         ENTRY  NONE                                                            DBGPHCT      835     A     
 DBGPHCT  *                                                                                DBGPHCT      836     A     
 DBGPHCT  *         EXIT   (B1) = 1                                                        DBGPHCT      837     A     
 DBGPHCT  *                (B2) = .GT. 0 IF GOOD DEBUG STATEMENT                           DBGPHCT      838     A     
 DBGPHCT  *                     = .LT. 0 IF BAD DEBUG STATEMENT                            DBGPHCT      839     A     
 DBGPHCT  *                     =      0 IF NOT DEBUG STATEMENT                            DBGPHCT      840     A     
 DBGPHCT  *                (B6) = DBGFSTT (LOWEST DEBUG STATEMENT TYPE CODE)               DBGPHCT      841     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3743    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT  *                (B7) = STATEMENT TYPE CODE AS RETURNED BY *SCANNER*             DBGPHCT      842     A     
 DBGPHCT  *                                                                                DBGPHCT      843     A     
 DBGPHCT  *         USES   ALL                                                             DBGPHCT      844     A     
 DBGPHCT  *                                                                                DBGPHCT      845     A     
 DBGPHCT  *         CALLS  PLUG, SCANNER                                                   DBGPHCT      846     A     
 DBGPHCT                                                                                   DBGPHCT      847     A     
 DBGPHCT                                                                                   DBGPHCT      848     A     
 DBGPHCT   SNS      SUBR               ** ENTRY/EXIT **                                    DBGPHCT      849     A     
 DBGPHCT   SNS1     SA1    D.COL                                                           DBGPHCT      850     A     
 DBGPHCT            MX6    0                                                               DBGPHCT      851     A     
 DBGPHCT            SA6    COUNTUP                                                         DBGPHCT      852     A     
 DBGPHCT            SA6    SCNUPDT                                                         DBGPHCT      853     A     
 DBGPHCT            SA6    TYPFLAG     CLEAR *BAD TYPE* STATUS                             DBGPHCT      854     A     
 DBGPHCT            NZ     X1,SNS3     IF EXTERNAL PACKET PROCESSED LAST                   DBGPHCT      855     A     
 DBGPHCT   SNS2     PLUG   AT=SNS2,TO=SNS4,VOID=NO                                         DBGPHCT      856          I
          -F2950F4
 DBGPHCT   SNS2     PLUG   AT=SNS2,TO=SNS4                                                 F2950F4      172     A     
 DBGPHCT   SNS3     SX6    =XCONSTOR                                                       DBGPHCT      857     A     
 DBGPHCT            SA6    D.STOR                                                          DBGPHCT      858     A     
 DBGPHCT            SX1    DEBUG-1                                                         DBGPHCT      859     A     
 DBGPHCT            IX7    X6-X1                                                           DBGPHCT      860     A     
 DBGPHCT            MX6    0                                                               DBGPHCT      861     A     
 DBGPHCT            SA7    D.SCON1                                                         DBGPHCT      862     A     
 DBGPHCT            SA6    =XIDENTOK                                                       DBGPHCT      863     A     
 DBGPHCT   SNS4     CALL   SCANNER                                                         DBGPHCT      864     A     
 DBGPHCT            SA1    TYPE                                                            DBGPHCT      865     A     
 DBGPHCT            SX2    X1-DBGEXTP                                                      DBGPHCT      866     A     
 DBGPHCT            NZ     X2,SNS5     IF STATEMENT ALREADY TYPED                          DBGPHCT      867     A     
 DBGPHCT            RJ     GETTYPE                                                         DBGPHCT      868     A     
 DBGPHCT   SNS5     SA1    TYPE                                                            DBGPHCT      869     A     
 DBGPHCT            SA2    TYPFLAG                                                         DBGPHCT      870     A     
 DBGPHCT            SB1    1                                                               DBGPHCT      871     A     
 DBGPHCT            SA3    =XDFLAG                                                         DBGPHCT      872          I
          -FCC1954
 DBGPHCT            SB6    DBGFSTT                                                         DBGPHCT      873     A     
 DBGPHCT            SB2    X1          SET TYPE = *GOOD DEBUG*                             DBGPHCT      874     A     
 DBGPHCT            SB7    X1                                                              DBGPHCT      875     A     
 DBGPHCT            GE     B7,B6,EXIT. IF GOOD DEBUG STATEMENT                             DBGPHCT      876     A     
 DBGPHCT            SB2    -1          SET TYPE = *BAD DEBUG*                              DBGPHCT      877     A     
 DBGPHCT            NZ     X2,EXIT.    IF BAD DEBUG STATEMENT                              DBGPHCT      878     A     
 DBGPHCT            SA1    =XCP.CARD                                                       DBGPHCT      879     A     
 DBGPHCT            AX3    1                                                               DBGPHCT      880     A     
 DBGPHCT            SB2    B0          SET TYPE = *NOT DEBUG*                              DBGPHCT      881     A     
 DBGPHCT            ZR     X3,EXIT.    IF INPUT FILE = MAIN                                DBGPHCT      882          I
          -FCC1954
 DBGPHCT            NZ     X1,SNS7     IF NOT EOS/EOP/EOI (DEBUG FILE)                     DBGPHCT      883          I
          -FCC1954
 DBGPHCT            PL     X1,EXIT.    IF EOS/EOP/EOI                                      DBGPHCT      884          I
          -FCC1954
 DBGPHCT   SNS7     DBGERR (NON-DEBUG LINE FOUND ON EXTERNAL DEBUG FILE ... IGNORE         DBGPHCT      885          I
          -FCC1954
 DBGPHCT  ,D.)                                                                             DBGPHCT      886          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3744    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
          -FCC1954
 DBGPHCT            EQ     SNS1        CONTINUE SCAN                                       DBGPHCT      887          I
          -FCC1954
 DBGPHCT            EQ     EXIT.                                                           FCC1954       19     A     
 DBGPHCT   TDI      SPACE  4,8                                                             DBGPHCT      888     A     
 DBGPHCT  **        TDI - TRANSFER DEBUG INFORMATION.                                      DBGPHCT      889     A     
 DBGPHCT  *                                                                                DBGPHCT      890     A     
 DBGPHCT  *                TRANSFERS STATEMENT TYPE, LABEL, LINE NUMBER AND UPDATE         DBGPHCT      891     A     
 DBGPHCT  *         IDENTIFIER INFORMATION FROM NORMAL WORKING LOCATIONS TO DEBUG          DBGPHCT      892     A     
 DBGPHCT  *         COMMON BLOCKS.                                                         DBGPHCT      893     A     
 DBGPHCT  *                                                                                DBGPHCT      894     A     
 DBGPHCT  *                                                                                DBGPHCT      895     A     
 DBGPHCT  *         ENTRY  NONE                                                            DBGPHCT      896          I
          -FCC0937
 DBGPHCT  *         ENTRY  (B1) = 1.                                                       FCC0937       11     A     
 DBGPHCT  *                                                                                DBGPHCT      897     A     
 DBGPHCT  *         EXIT   NONE                                                            DBGPHCT      898     A     
 DBGPHCT  *                                                                                DBGPHCT      899     A     
 DBGPHCT  *         USES   X - 1, 2, 3, 4, 6, 7                                            DBGPHCT      900     A     
 DBGPHCT  *                A - 1, 2, 3, 4, 6, 7                                            DBGPHCT      901     A     
 DBGPHCT  *                B - NONE                                                        DBGPHCT      902     A     
 DBGPHCT  *                                                                                DBGPHCT      903     A     
 DBGPHCT  *         CALLS  D.IDSAV                                                         DBGPHCT      904     A     
 DBGPHCT                                                                                   DBGPHCT      905     A     
 DBGPHCT                                                                                   DBGPHCT      906     A     
 DBGPHCT   TDI      SUBR   =           ** ENTRY/EXIT **                                    DBGPHCT      907     A     
 DBGPHCT            SA1    D.NDUKE                                                         DBGPHCT      908     A     
 DBGPHCT            SA2    D.NLBEL                                                         DBGPHCT      909     A     
 DBGPHCT            SA3    DUKE1                                                           DBGPHCT      910     A     
 DBGPHCT            SA4    NLABEL                                                          DBGPHCT      911     A     
 DBGPHCT            BX6    X1                                                              DBGPHCT      912     A     
 DBGPHCT            LX7    X2                                                              DBGPHCT      913     A     
 DBGPHCT            SA6    D.DUKE1     CURRENT STATEMENT LINE NUMBER (BINARY)              DBGPHCT      914     A     
 DBGPHCT            SA7    D.LABEL     CURRENT STATEMENT LABEL (DPC)                       DBGPHCT      915     A     
 DBGPHCT            MX1    30                                                              DBGPHCT      916     A     
 DBGPHCT            BX6    X3                                                              DBGPHCT      917     A     
 DBGPHCT            LX4    -30                                                             DBGPHCT      918     A     
 DBGPHCT            BX7    -X1*X4                                                          DBGPHCT      919     A     
 DBGPHCT            SA6    A1          NEXT STATEMENT LINE NUMBER (BINARY)                 DBGPHCT      920     A     
 DBGPHCT            SA7    A2          NEXT STATEMENT LABEL (DPC)                          DBGPHCT      921     A     
 DBGPHCT            SA1    D.NCURU                                                         FCC0937       12     A     
 DBGPHCT            SA2    A1+B1                                                           FCC0937       13     A     
 DBGPHCT            BX6    X1                                                              FCC0937       14     A     
 DBGPHCT            LX7    X2                                                              FCC0937       15     A     
 DBGPHCT            SA6    D.CURUD     CURRENT STATEMENT UPDATE IDENTIFIER                 FCC0937       16     A     
 DBGPHCT            SA7    A6+B1                                                           FCC0937       17     A     
 DBGPHCT            SB2    D.NCURU                                                         FCC0937       18     A     
 DBGPHCT            RJ     D.IDSAV     SAVE NEXT STATEMENT UPDATE IDENTIFIER               FCC0937       19     A     
 DBGPHCT            SA1    TYPE                                                            DBGPHCT      922     A     
 DBGPHCT            NO                                                                     DBGPHCT      923     A     
 DBGPHCT            BX6    X1                                                              DBGPHCT      924     A     
 DBGPHCT            SA6    D.TYPE                                                          DBGPHCT      925     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3745    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            RJ     D.IDSAV     SAVE UPDATE IDENTIFIER                              DBGPHCT      926          I
          -FCC0937
 DBGPHCT            EQ     EXIT.                                                           DBGPHCT      927     A     
 DBGPHCT            TITLE  SUBROUTINES CALLED BY *SCANNER*.                                DBGPHCT      928     A     
 DBGPHCT   DBGERR   SPACE  4,8                                                             DBGPHCT      929     A     
 DBGPHCT  **        DBGERR - LIST DEBUG ERROR MESSAGE.                                     DBGPHCT      930     A     
 DBGPHCT  *                                                                                DBGPHCT      931     A     
 DBGPHCT  *         ENTRY  (A5) = MESSAGE FWA                                              DBGPHCT      932     A     
 DBGPHCT  *                                                                                DBGPHCT      933     A     
 DBGPHCT                                                                                   DBGPHCT      934     A     
 DBGPHCT                                                                                   DBGPHCT      935     A     
 DBGPHCT   DBGERR   SUBR   =           ** ENTRY/EXIT **                                    DBGPHCT      936     A     
 DBGPHCT            MX6    -1                                                              DBGPHCT      937     A     
 DBGPHCT            SX7    A5                                                              DBGPHCT      938     A     
 DBGPHCT            SA6    TYPFLAG     SET *BAD DEBUG STATEMENT*                           DBGPHCT      939     A     
 DBGPHCT            SB1    1                                                               DBGPHCT      940     A     
 DBGPHCT            SA7    DERA        TEMP SAVE (A5)                                      DBGPHCT      941     A     
 DBGPHCT            CALL   LSL         LIST SAVED LINE(S)                                  DBGPHCT      942     A     
 DBGPHCT            SA1    DERA                                                            DBGPHCT      943     A     
 DBGPHCT            MX0    -12                                                             DBGPHCT      944     A     
 DBGPHCT            SA5    X1                                                              DBGPHCT      945     A     
 DBGPHCT   DER2     BX6    -X0*X5                                                          DBGPHCT      946     A     
 DBGPHCT            SA5    A5+B1                                                           DBGPHCT      947     A     
 DBGPHCT            NZ     X6,DER2     IF NOT EOL TERMINATOR                               DBGPHCT      948     A     
 DBGPHCT            SB6    X1                                                              DBGPHCT      949     A     
 DBGPHCT            SB2    A5-B6       (B2) = MESSAGE LENGTH                               DBGPHCT      950     A     
 DBGPHCT            SX1    A5-B6                                                           DBGPHCT      951     A     
 DBGPHCT            SX2    B6                                                              DBGPHCT      952     A     
 DBGPHCT            SB2    B2+B1       INCR LINE LENGTH FOR WORD *DEBUG*                   DBGPHCT      953     A     
 DBGPHCT            SB6    DBGMSG      (B6) = MESSAGE BUFFER FWA                           DBGPHCT      954     A     
 DBGPHCT            SX3    B6+B1                                                           DBGPHCT      955     A     
 DBGPHCT            MOVE   X1,X2,X3    (DOES NOT USE B2 OR B6)                             DBGPHCT      956     A     
 DBGPHCT            LISTL  B6,B2                                                           DBGPHCT      957     A     
 DBGPHCT            EQ     EXIT.                                                           DBGPHCT      958     A     
 DBGPHCT                                                                                   DBGPHCT      959     A     
 DBGPHCT                                                                                   DBGPHCT      960     A     
 DBGPHCT                                                                                   DBGPHCT      961     A     
 DBGPHCT   DERA     BSS    1           FOR TEMP SAVE OF (A5) = DEBUG ERR MSG FWA           DBGPHCT      962     A     
 DBGPHCT   TYPFLAG  ENTRY. 0           .NZ. IF BAD DEBUG STATEMENT                         DBGPHCT      963     A     
 DBGPHCT                                                                                   DBGPHCT      964     A     
 DBGPHCT                                                                                   DBGPHCT      965     A     
 DBGPHCT                                                                                   DBGPHCT      966     A     
 DBGPHCT  *         DEBUG ERROR MESSAGE BUFFER.                                            DBGPHCT      967     A     
 DBGPHCT  *                                                                                DBGPHCT      968     A     
 DBGPHCT   DBGMSG   DATA   10H   DEBUG-                                                    DBGPHCT      969     A     
 DBGPHCT            BSSZ   9           DEBUG ERROR MSG MAX LENGTH IS 88 CHARS              DBGPHCT      970     A     
 DBGPHCT            EJECT                                                                  DBGPHCT      971     A     
 DBGPHCT   D.IDSAV  SPACE  4,8                                                             DBGPHCT      972     A     
 DBGPHCT  **        D.IDSAV - SAVE UPDATE IDENT FROM NEW SOURCE LINE.                      DBGPHCT      973     A     
 DBGPHCT  *                                                                                DBGPHCT      974     A     
 DBGPHCT  *                                                                                DBGPHCT      975     A     
 DBGPHCT  *         ENTRY  NONE                                                            DBGPHCT      976          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3746    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
          -FCC0937
 DBGPHCT  *                                                                                DBGPHCT      977          I
          -FCC0937
 DBGPHCT  *         EXIT   CURRENT LINE INFO MOVED FROM (D.NCURU) TO (D.CURUD).            DBGPHCT      978          I
          -FCC0937
 DBGPHCT  *                (D.NCURU)   = IDENT NAME FROM COLS 74-80, 8L FORMAT.            DBGPHCT      979          I
          -FCC0937
 DBGPHCT  *                (D.NCURU)+1 = IDENT SEQUENCE NUMBER FROM COLS 82-86,            DBGPHCT      980          I
          -FCC0937
 DBGPHCT  *                                PREFIXED WITH A PERIOD, 0L FORMAT.              DBGPHCT      981          I
          -FCC0937
 DBGPHCT  *                (A6, X6) = D.NCURU, (D.NCURU)                                   DBGPHCT      982          I
          -FCC0937
 DBGPHCT  *                (A7, X7) = D.NCURU+1, (D.NCURU)+1                               DBGPHCT      983          I
          -FCC0937
 DBGPHCT  *         ENTRY  (B2) = UPDATE IDENT DESTINATION ADDRESS.                        FCC0937       20     A     
 DBGPHCT  *                                                                                FCC0937       21     A     
 DBGPHCT  *         EXIT   ((B2)) = IDENT NAME FROM COLUMNS 74-80, 8L FORMAT.              FCC0937       22     A     
 DBGPHCT  *                ((B2)+1) = IDENT SEQUENCE NUMBER FROM COLUMNS 82-86,            FCC0937       23     A     
 DBGPHCT  *                            PREFIXED WITH A PERIOD, 0L FORMAT.                  FCC0937       24     A     
 DBGPHCT  *                (B1) = 1                                                        DBGPHCT      984     A     
 DBGPHCT  *                                                                                DBGPHCT      985     A     
 DBGPHCT  *         USES   X - 1, 2, 3, 4, 6, 7                                            DBGPHCT      986     A     
 DBGPHCT  *                A - 1, 2, 3, 4, 6, 7                                            DBGPHCT      987          I
          -FCC0937
 DBGPHCT  *                A - 3, 4, 6, 7.                                                 FCC0937       25     A     
 DBGPHCT  *                B - 1                                                           DBGPHCT      988     A     
 DBGPHCT  *                                                                                DBGPHCT      989     A     
 DBGPHCT  *         CALLS  NONE.                                                           DBGPHCT      990     A     
 DBGPHCT                                                                                   DBGPHCT      991     A     
 DBGPHCT                                                                                   DBGPHCT      992     A     
 DBGPHCT   D.IDSAV  SUBR               ** ENTRY/EXIT **                                    DBGPHCT      993     A     
 DBGPHCT            SB1    1                                                               DBGPHCT      994     A     
 DBGPHCT            SA1    D.NCURU     TRANSFER *NEXT* LINE INFO TO *CURRENT*              DBGPHCT      995          I
          -FCC0937
 DBGPHCT            SA2    A1+B1                                                           DBGPHCT      996          I
          -FCC0937
 DBGPHCT            SA3    =XCP.CARD+7                                                     DBGPHCT      997     A     
 DBGPHCT            SA4    A3+B1                                                           DBGPHCT      998     A     
 DBGPHCT            BX6    X1                                                              DBGPHCT      999          I
          -FCC0937
 DBGPHCT            LX7    X2                                                              DBGPHCT     1000          I
          -FCC0937
 DBGPHCT            SA6    D.CURUD                                                         DBGPHCT     1001          I
          -FCC0937
 DBGPHCT            SA7    A6+B1                                                           DBGPHCT     1002          I
          -FCC0937
 DBGPHCT            MX1    7*6                                                             DBGPHCT     1003     A     
 DBGPHCT            SX2    1R                                                              DBGPHCT     1004     A     
 DBGPHCT            LX3    3*6         LEFT ADJUST COL 74                                  DBGPHCT     1005     A     
 DBGPHCT            BX6    X1*X3       EXTRACT COLS 74-80                                  DBGPHCT     1006     A     
 DBGPHCT            LX2    2*6                                                             DBGPHCT     1007     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3747    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            IX6    X6+X2       SUFFIX BLANK                                        DBGPHCT     1008     A     
 DBGPHCT            SA6    A1                                                              DBGPHCT     1009          I
          -FCC0937
 DBGPHCT            SA6    B2                                                              FCC0937       26     A     
 DBGPHCT            MX1    5*6                                                             DBGPHCT     1010     A     
 DBGPHCT            SX2    1R.                                                             DBGPHCT     1011     A     
 DBGPHCT            LX1    -1*6                                                            DBGPHCT     1012     A     
 DBGPHCT            BX7    X1*X4       EXTRACT COLS 82-86                                  DBGPHCT     1013     A     
 DBGPHCT            LX2    9*6                                                             DBGPHCT     1014     A     
 DBGPHCT            IX7    X2+X7       PREFIX PERIOD                                       DBGPHCT     1015     A     
 DBGPHCT            SA7    A6+B1                                                           DBGPHCT     1016     A     
 DBGPHCT            EQ     EXIT.                                                           DBGPHCT     1017     A     
 DBGPHCT            EJECT                                                                  DBGPHCT     1018     A     
 DBGPHCT   D.IDSP   SPACE  4,8                                                             DBGPHCT     1019     A     
 DBGPHCT  **        D.IDSPEC - SPECIAL EXTENSION OF 'D.IDSAVE' FOR COMMENT AND             DBGPHCT     1020     A     
 DBGPHCT  *                    BLANK CARDS.  SINCE THESE CARDS ARE ESSENTIALLY             DBGPHCT     1021     A     
 DBGPHCT  *                    TRANSPARENT TO FTN, THEIR UPDATE IDENTS MUST BE             DBGPHCT     1022     A     
 DBGPHCT  *                    SAVED BY THIS SUBROUTINE.                                   DBGPHCT     1023     A     
 DBGPHCT  *                                                                                DBGPHCT     1024     A     
 DBGPHCT  *  ON EXIT  - UPDATE IDENT IS SAVED IF TABLE SPACE WAS AVAILABLE (HOLDS          DBGPHCT     1025     A     
 DBGPHCT  *             20 IDENTS MAX).  DEBUG DIAGNOSTIC IS SENT IF THE TABLE             DBGPHCT     1026     A     
 DBGPHCT  *             OVERFLOWED.                                                        DBGPHCT     1027     A     
 DBGPHCT  *                                                                                DBGPHCT     1028     A     
 DBGPHCT  *         REGISTERS ALTERED (IN ADDITION TO THOSE USED BY 'PUTUPDT') -           DBGPHCT     1029          I
          -FCC0937
 DBGPHCT  *                            X0,X1,X2,X3,      X6,X7                             DBGPHCT     1030          I
          -FCC0937
 DBGPHCT  *                               A1,A2,A3,      A6,A7                             DBGPHCT     1031          I
          -FCC0937
 DBGPHCT  *                                        B4                                      DBGPHCT     1032          I
          -FCC0937
 DBGPHCT  *                                                                                DBGPHCT     1033          I
          -FCC0937
 DBGPHCT  *         USES   ALL.                                                            FCC0937       27     A     
 DBGPHCT                                                                                   FCC0937       28     A     
 DBGPHCT                                                                                   FCC0937       29     A     
 DBGPHCT   D.IDSP   SUBR   =           ** ENTRY/EXIT **                                    DBGPHCT     1034     A     
 DBGPHCT            SA1    NOACT                                                           DBGPHCT     1035     A     
 DBGPHCT            SA2    SCNUPDT                                                         DBGPHCT     1036     A     
 DBGPHCT            NZ     X1,EXIT.    IF NO DEBUG PACKET INFORMATION                      DBGPHCT     1037     A     
 DBGPHCT            MI     X2,EXIT.    IF SAVE TABLE FULL                                  DBGPHCT     1038     A     
 DBGPHCT            SB2    D.CURUD                                                         FCC0937       30     A     
 DBGPHCT            RJ     D.IDSAV     SAVE UPDATE IDENT                                   DBGPHCT     1039     A     
 DBGPHCT            SA6    D.CURUD     PRE-ADVANCE UPDATE INFO TO *CURRENT*                DBGPHCT     1040          I
          -FCC0937
 DBGPHCT            SA7    A6+B1                                                           DBGPHCT     1041          I
          -FCC0937
 DBGPHCT            SX6    B1                                                              DBGPHCT     1042     A     
 DBGPHCT            SA6    SCNUPDT     SET *SPECIAL CALL* STATUS                           DBGPHCT     1043     A     
 DBGPHCT            CALLF  PUTUPDT                                                         DBGPHCT     1044     A     
 DBGPHCT            SA1    SCNUPDT                                                         DBGPHCT     1045     A     
 DBGPHCT            SB1    1                                                               DBGPHCT     1046     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3748    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            MX6    0                                                               DBGPHCT     1047     A     
 DBGPHCT            SB5    B1+                                                             DBGPHCT     1048     A     
 DBGPHCT            SA6    A1          CLEAR SCNUPDT                                       DBGPHCT     1049     A     
 DBGPHCT            PL     X1,EXIT.    IF SAVE TABLE DID NOT OVERFLOW                      DBGPHCT     1050     A     
 DBGPHCT            DBGERR (OVERFLOW OF SAVED UPDATE ID TABLE)                             DBGPHCT     1051     A     
 DBGPHCT            EQ     EXIT.                                                           DBGPHCT     1052     A     
 DBGPHCT            EJECT                                                                  DBGPHCT     1053     A     
 DBGPHCT   ISITDBG  SPACE  4,8                                                             DBGPHCT     1054     A     
 DBGPHCT  **        ISITDBG - DETERMINE DEBUG STATEMENT TYPE.                              DBGPHCT     1055     A     
 DBGPHCT  *                                                                                DBGPHCT     1056     A     
 DBGPHCT  *  THIS CLOSED SUBROUTINE SEARCHES A TABLE OF DEBUG KEYWORD PICTURES,            DBGPHCT     1057     A     
 DBGPHCT  *  SEEKING A MATCH WITH THE CURRENT STATEMENT.  IF A MATCH IS FOUND,             DBGPHCT     1058     A     
 DBGPHCT  *  THE DEBUG STATEMENT TYPE NUMBER IS STORED IN 'TYPE' AND'D.TYPE'.              DBGPHCT     1059     A     
 DBGPHCT  *  IF NO MATCH IS FOUND, 'TYPE' AND 'D.TYPE' ARE SET TO ZERO, 'TYPFLAG'          DBGPHCT     1060     A     
 DBGPHCT  *  IS SET TO <NOT FOUND> (-1), AND A DEBUG DIAGNOSTIC MESSAGE IS SENT TO         DBGPHCT     1061     A     
 DBGPHCT  *  THE SOURCE LISTING FILE.                                                      DBGPHCT     1062     A     
 DBGPHCT  *                                                                                DBGPHCT     1063     A     
 DBGPHCT  *  ON ENTRY  -   NO REGISTER ASSUMPTIONS.                                        DBGPHCT     1064     A     
 DBGPHCT  *                                                                                DBGPHCT     1065     A     
 DBGPHCT  *  ON EXIT   -   X6 = DEBUG STATEMENT TYPE ( =0 IF UNIDENTIFIED).                DBGPHCT     1066     A     
 DBGPHCT  *                (B1) = 1                                                        DBGPHCT     1067     A     
 DBGPHCT  *                B2 = NEXT NON-BLANK CHARACTER.                                  DBGPHCT     1068     A     
 DBGPHCT  *                B7 = X6                                                         DBGPHCT     1069     A     
 DBGPHCT  *                                                                                DBGPHCT     1070     A     
 DBGPHCT  *  REGISTERS PRESERVED - X5,B1,B3,B6                                             DBGPHCT     1071          I
          -FCCT006X 
 DBGPHCT  *         USES   ALL                                                             FCCT006X      25     A     
 DBGPHCT  *                                                                                DBGPHCT     1072     A     
 DBGPHCT  *         CALLS  DBGERR, PACK7, PLUG                                             FCCT006X      26     A     
 DBGPHCT                                                                                   DBGPHCT     1073     A     
 DBGPHCT   ISIT2    SX6    B4+48       DEVELOP DEBUG STATEMENT TYPE                        DBGPHCT     1074     A     
 DBGPHCT            SA6    TYPE                                                            DBGPHCT     1075     A     
 DBGPHCT   ISIT3    SB7    X6                                                              DBGPHCT     1076     A     
 DBGPHCT            NO                                                                     DBGPHCT     1077     A     
 DBGPHCT            SA6    D.TYPE      SAVE STMT TYPE FOR DEBUG PROCESSOR                  DBGPHCT     1078     A     
 DBGPHCT                                                                                   DBGPHCT     1079     A     
 DBGPHCT   ISITDBG  SUBR   =           ** SCANNER ENTRY/COMMON EXIT **                     DBGPHCT     1080     A     
 DBGPHCT            SX6    DBGEXTP                                                         DBGPHCT     1081     A     
 DBGPHCT            SA6    TYPE                                                            DBGPHCT     1082     A     
 DBGPHCT            SB1    1                                                               DBGPHCT     1083     A     
 DBGPHCT            CALL   PACK7       PACK DEBUG STATEMENT KEYWORD                        DBGPHCT     1084     A     
 DBGPHCT            SA1    TYPE                                                            DBGPHCT     1085     A     
 DBGPHCT            SX6    0                                                               DBGPHCT     1086     A     
 DBGPHCT            NZ     X1,ISIT4    IF 'PACK7' DID NOT REPORT STRING > 7 CHARAC         DBGPHCT     1087     A     
 DBGPHCT            EQ     ISIT3                                                           DBGPHCT     1088     A     
 DBGPHCT                                                                                   DBGPHCT     1089     A     
 DBGPHCT   GETTYPE  SUBR   =           ** DBGPHCT AND PS1CTL ENTRY **                      DBGPHCT     1090          I
          -FCCT006X 
 DBGPHCT   GETTYPE  SUBR               ** DBGPHCT ENTRY **                                 FCCT006X      27     A     
 DBGPHCT                                                                                   DBGPHCT     1091     A     
 DBGPHCT            SB1    1                                                               DBGPHCT     1092     A     
 DBGPHCT            PLUG   AT=ISITDBG,FROM=GETTYPE   EXT RETURN TO COMMON EXIT             DBGPHCT     1093          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3749    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
          -FCCT006X 
 DBGPHCT            PLUG   AT=ISITDBG,FROM=GETTYPE,VOID=NO                                 FCCT006X      28          I
          -F2950F4
 DBGPHCT            PLUG   AT=ISITDBG,FROM=GETTYPE                                         F2950F4      173     A     
 DBGPHCT   ISIT4    SA3    SELIST                                                          DBGPHCT     1094     A     
 DBGPHCT            SA2    D.STTYP     FIRST DEBUG KEYWORD PICTURE                         DBGPHCT     1095     A     
 DBGPHCT            SA3    X3          DEBUG STMT KEYWORD                                  DBGPHCT     1096     A     
 DBGPHCT            SB4    -D.LSTTP    KEYWORD PICTURE TABLE LENGTH (COMPLEMENT)           DBGPHCT     1097     A     
 DBGPHCT                                                                                   DBGPHCT     1098     A     
 DBGPHCT  *  SEARCH DEBUG KEYWORD PICTURE TABLE FOR MATCH WITH STATEMENT KEYWORD.          DBGPHCT     1099     A     
 DBGPHCT                                                                                   DBGPHCT     1100     A     
 DBGPHCT   ISIT5    BX0    X3-X2       STATEMENT - PICTURE                                 DBGPHCT     1101     A     
 DBGPHCT            SB4    B4+B1                                                           DBGPHCT     1102     A     
 DBGPHCT            SA2    A2+1        NEXT PICTURE                                        DBGPHCT     1103     A     
 DBGPHCT            ZR     X0,ISIT2    IF STATEMENT MATCHES PICTURE                        DBGPHCT     1104     A     
 DBGPHCT            LE     B4,B0,ISIT5 IF PICTURE TABLE NOT EXHAUSTED                      DBGPHCT     1105     A     
 DBGPHCT            BX6    X6-X6                                                           DBGPHCT     1106     A     
 DBGPHCT            SA6    TYPE                                                            DBGPHCT     1107     A     
 DBGPHCT            DBGERR (UNRECOGNIZED DEBUG STATEMENT)                                  DBGPHCT     1108     A     
 DBGPHCT            EQ     ISIT3                                                           DBGPHCT     1109     A     
 DBGPHCT                                                                                   DBGPHCT     1110     A     
 DBGPHCT  *         DEBUG STATEMENT PICTURE TABLE.                                         DBGPHCT     1111     A     
 DBGPHCT                                                                                   DBGPHCT     1112     A     
 DBGPHCT   D.STTYP  VFD    12/2001B,48/8HDEBUG                                             DBGPHCT     1113     A     
 DBGPHCT            VFD    12/2001B,48/8HAREA                                              DBGPHCT     1114     A     
 DBGPHCT            VFD    12/2001B,48/8HARRAYS                                            DBGPHCT     1115     A     
 DBGPHCT            VFD    12/2001B,48/8HCALLS                                             DBGPHCT     1116     A     
 DBGPHCT            VFD    12/2001B,48/8HFUNCS                                             DBGPHCT     1117     A     
 DBGPHCT            VFD    12/2001B,48/8HGOTOS                                             DBGPHCT     1118     A     
 DBGPHCT            VFD    12/2001B,48/8HNOGO                                              DBGPHCT     1119     A     
 DBGPHCT            VFD    12/2001B,48/8HSTORES                                            DBGPHCT     1120     A     
 DBGPHCT            VFD    12/2001B,48/8HTRACE                                             DBGPHCT     1121     A     
 DBGPHCT            VFD    12/2001B,48/8HOFF                                               DBGPHCT     1122     A     
 DBGPHCT   D.LSTTP  EQU    *-D.STTYP   NR OF DEBUG STMT TYPES                              DBGPHCT     1123     A     
 DBGPHCT            TITLE              WRTMS , RDMS - RANDOM I/O SUBROUTINES               DBGPHCT     1124     A     
 DBGPHCT   DLEN     =      129D        LENGTH OF CIO BUFFER FOR DEBUG RANDOM FILE          DBGPHCT     1125     A     
 DBGPHCT                                                                                   DBGPHCT     1126     A     
 DBGPHCT  **        WRTMS1 - INITIALIZE RANDOM FILE FET/FIT AND OPEN FILE.                 DBGPHCT     1127     A     
 DBGPHCT  *                                                                                DBGPHCT     1128     A     
 DBGPHCT  *         ENTRY  FROM FTN ROUTINE - CALL WRTMS1                                  DBGPHCT     1129     A     
 DBGPHCT  *                                                                                DBGPHCT     1130     A     
 DBGPHCT  *         EXIT   DEBUG FILE IS OPEN.                                             DBGPHCT     1131     A     
 DBGPHCT  *                (B1) = 1                                                        DBGPHCT     1132     A     
 DBGPHCT  *                                                                                DBGPHCT     1133     A     
 DBGPHCT  *         USES   X - 0 THRU 7                                                    DBGPHCT     1134     A     
 DBGPHCT  *                A - 1 THRU 7                                                    DBGPHCT     1135     A     
 DBGPHCT  *                B - 1, 3, 4                                                     DBGPHCT     1136     A     
 DBGPHCT  *                                                                                DBGPHCT     1137     A     
 DBGPHCT  *         CALLS  OPEN                                                            DBGPHCT     1138     A     
 DBGPHCT                                                                                   DBGPHCT     1139     A     
 DBGPHCT   WRTMS1   ENTRY. **                                                              DBGPHCT     1140     A     
 DBGPHCT            SB1    1                                                               DBGPHCT     1141     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3750    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT                                                                                   DBGPHCT     1142     A     
 DBGPHCT   #RM      IFEQ   CP#RM,0                                                         DBGPHCT     1143     A     
 DBGPHCT                                                                                   DBGPHCT     1144     A     
 DBGPHCT            RECALL F.DEBUG     WAIT FOR I/O TO COMPLETE                            DBGPHCT     1145     A     
 DBGPHCT                                                                                   DBGPHCT     1146     A     
 DBGPHCT  *         SET UP FET FOR DEBUG FILE                                              DBGPHCT     1147     A     
 DBGPHCT                                                                                   DBGPHCT     1148     A     
 DBGPHCT            SA1    DFET        FIRST WORD OF FET                                   DBGPHCT     1149     A     
 DBGPHCT            SA2    A1+B1       SECOND WORD                                         DBGPHCT     1150     A     
 DBGPHCT            BX7    X1                                                              DBGPHCT     1151     A     
 DBGPHCT            LX6    X2                                                              DBGPHCT     1152     A     
 DBGPHCT            SA7    F.DEBUG                                                         DBGPHCT     1153     A     
 DBGPHCT            SA6    A7+B1       FIRST AND RANDOM BIT                                DBGPHCT     1154     A     
 DBGPHCT            SX6    X6                                                              DBGPHCT     1155     A     
 DBGPHCT            SA6    A6+B1       IN                                                  DBGPHCT     1156     A     
 DBGPHCT            SA6    A6+B1       OUT                                                 DBGPHCT     1157     A     
 DBGPHCT            SX7    X6+DLEN                                                         DBGPHCT     1158     A     
 DBGPHCT            SA7    A6+B1       LIMIT                                               DBGPHCT     1159     A     
 DBGPHCT                                                                                   DBGPHCT     1160     A     
 DBGPHCT   #RM      ENDIF                                                                  DBGPHCT     1161     A     
 DBGPHCT                                                                                   DBGPHCT     1162     A     
 DBGPHCT            SX2    DEBUG-1                                                         DBGPHCT     1163     A     
 DBGPHCT            SA1    =XL.DCON                                                        DBGPHCT     1164     A     
 DBGPHCT            SA4    SDBGIND     FWA OF DEBUG INDEX                                  DBGPHCT     1165     A     
 DBGPHCT            SA3    D.OPEN                                                          DBGPHCT     1166     A     
 DBGPHCT            IX4    X4+X1                                                           DBGPHCT     1167     A     
 DBGPHCT            BX6    X4                                                              DBGPHCT     1168     A     
 DBGPHCT            SA6    A4           ALLOW FOR LENGTH OF DCON                           DBGPHCT     1169     A     
 DBGPHCT            PL     X3,WRTMS1A  IF CALL NOT FROM BUGPRO                             DBGPHCT     1170     A     
 DBGPHCT            SA5    FWAWORK                                                         DBGPHCT     1171     A     
 DBGPHCT            IX6    X5-X2                                                           DBGPHCT     1172     A     
 DBGPHCT            SA6    A4          SET SDBGIND                                         DBGPHCT     1173     A     
 DBGPHCT            BX4    X6                                                              DBGPHCT     1174     A     
 DBGPHCT                                                                                   DBGPHCT     1175     A     
 DBGPHCT   WRTMS1A  IX0    X2+X4       FWA OF INDEX                                        DBGPHCT     1176     A     
 DBGPHCT            MX6    0                                                               DBGPHCT     1177     A     
 DBGPHCT            SA2    GL.IND      LENGTH                                              DBGPHCT     1178     A     
 DBGPHCT            SB4    B0                                                              DBGPHCT     1179     A     
 DBGPHCT            SB3    X2                                                              DBGPHCT     1180     A     
 DBGPHCT   D.PHCLR  SA6    X0+B4        CLEAR OUT INDEX                                    DBGPHCT     1181     A     
 DBGPHCT            SB4    B4+B1                                                           DBGPHCT     1182     A     
 DBGPHCT            GT     B3,B4,D.PHCLR                                                   DBGPHCT     1183     A     
 DBGPHCT                                                                                   DBGPHCT     1184     A     
 DBGPHCT   #RM      IFEQ   CP#RM,0                                                         DBGPHCT     1185     A     
 DBGPHCT                                                                                   DBGPHCT     1186     A     
 DBGPHCT            LX2    18                                                              DBGPHCT     1187     A     
 DBGPHCT            BX6    X0+X2                                                           DBGPHCT     1188     A     
 DBGPHCT            SX7    B1                                                              DBGPHCT     1189     A     
 DBGPHCT            SA6    F.DEBUG+I.RAN2 SET UP RANDOM FILE WORD                          DBGPHCT     1190     A     
 DBGPHCT            SA7    D.OPEN                                                          DBGPHCT     1191     A     
 DBGPHCT                                                                                   DBGPHCT     1192     A     
 DBGPHCT            OPEN   F.DEBUG,WRITENR,RECALL                                          DBGPHCT     1193     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3751    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            EQ     WRTMS1                                                          DBGPHCT     1194     A     
 DBGPHCT                                                                                   DBGPHCT     1195     A     
 DBGPHCT   DFET     VFD    42/6LFTNOPT,18/3                                                DBGPHCT     1196          I
          -FCC1843X 
 DBGPHCT   DFET     VFD    42/0L"OPT",18/3                                                 FCC1843X      13     A     
 DBGPHCT            VFD    12/0,1/1,23/0,6/3,18/BUFF                                       DBGPHCT     1197     A     
 DBGPHCT                                                                                   DBGPHCT     1198     A     
 DBGPHCT            USE    BUFF                                                            DBGPHCT     1199     A     
 DBGPHCT   BUFF     BSS    DLEN        BUFFER OF THE DEBUG RANDOM FILE                     DBGPHCT     1200     A     
 DBGPHCT            USE    *                                                               DBGPHCT     1201     A     
 DBGPHCT                                                                                   DBGPHCT     1202     A     
 DBGPHCT   #RM      ELSE                                                                   DBGPHCT     1203     A     
 DBGPHCT                                                                                   DBGPHCT     1204     A     
 DBGPHCT            SX7    B1                                                              DBGPHCT     1205     A     
 DBGPHCT            SA7    D.OPEN      SET OPEN FLAG                                       DBGPHCT     1206     A     
 DBGPHCT            STORE  =XFI.DBG,MXL=X2  INDEX LENGTH                                   DBGPHCT     1207     A     
 DBGPHCT            STORE  =XFI.DBG,MXA=X0  INDEX ADDRESS                                  DBGPHCT     1208     A     
 DBGPHCT                                                                                   DBGPHCT     1209     A     
 DBGPHCT            IFEQ   CP#RM,6,2                                                       DBGPHCT     1210     A     
 DBGPHCT            STORE  =XFI.DBG,FWB=BUFF                                               DBGPHCT     1211     A     
 DBGPHCT            STORE  =XFI.DBG,BFS=DLEN                                               DBGPHCT     1212     A     
 DBGPHCT                                                                                   DBGPHCT     1213     A     
 DBGPHCT            OPENM  =XFI.DBG,I-O,N,WA                                               DBGPHCT     1214     A     
 DBGPHCT            FETCH  =XFI.DBG,CXA,X1   LOCATION (WA) OF MASTER INDEX ON FILE         DBGPHCT     1215     A     
 DBGPHCT            ZR     X1,WRTMS1B        IF A NEW FILE                                 DBGPHCT     1216     A     
 DBGPHCT            GETW   =XFI.DBG,X0,X2,,X1  GET INDEX FROM FILE                         DBGPHCT     1217     A     
 DBGPHCT            EQ     WRTMS1                                                          DBGPHCT     1218     A     
 DBGPHCT                                                                                   DBGPHCT     1219     A     
 DBGPHCT   WRTMS1B  STORE  =XFI.DBG,NAA=1    PRESET NEXT AVAILABLE WRITE ADDR = 1          DBGPHCT     1220     A     
 DBGPHCT            EQ     WRTMS1      EXIT                                                DBGPHCT     1221     A     
 DBGPHCT                                                                                   DBGPHCT     1222     A     
 DBGPHCT   #RM      ENDIF                                                                  DBGPHCT     1223     A     
 DBGPHCT                                                                                   DBGPHCT     1224     A     
 DBGPHCT            EJECT                                                                  DBGPHCT     1225     A     
 DBGPHCT  ***                                                                              DBGPHCT     1226     A     
 DBGPHCT  *         WRTMS2 - MOVE WORDS FROM AN AREA LIST TO DEBUG FILE BUFFER             DBGPHCT     1227     A     
 DBGPHCT  *                FOR RECORD MANAGER I/O A RECORD IS WRITTEN TO                   DBGPHCT     1228     A     
 DBGPHCT  *                THE FILE.                                                       DBGPHCT     1229     A     
 DBGPHCT  *                                                                                DBGPHCT     1230     A     
 DBGPHCT  *         ENTRY  FROM FTN ROUTINE -                                              DBGPHCT     1231     A     
 DBGPHCT  *                CALL WRTMS2( FWA , LENGTH , RECORD NO )                         DBGPHCT     1232     A     
 DBGPHCT  *                (A1) = FWA OF PARAMETER LIST                                    DBGPHCT     1233     A     
 DBGPHCT  *                                                                                DBGPHCT     1234     A     
 DBGPHCT  *         EXIT   (B1) = 1                                                        DBGPHCT     1235     A     
 DBGPHCT  *                                                                                DBGPHCT     1236     A     
 DBGPHCT  *         USES   X - 1 THRU 6                                                    DBGPHCT     1237     A     
 DBGPHCT  *                A - 1 THRU 6                                                    DBGPHCT     1238     A     
 DBGPHCT  *                B - 1, 4                                                        DBGPHCT     1239     A     
 DBGPHCT  *                                                                                DBGPHCT     1240     A     
 DBGPHCT  *         CALLS  WRITEW                                                          DBGPHCT     1241     A     
 DBGPHCT                                                                                   DBGPHCT     1242     A     
 DBGPHCT   WRTMS2   ENTRY. **                                                              DBGPHCT     1243     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3752    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT                                                                                   DBGPHCT     1244     A     
 DBGPHCT   #RM      IFNE   CP#RM,0                                                         DBGPHCT     1245     A     
 DBGPHCT            FETCH  =XFI.DBG,NAA,X7   NEXT AVAILABLE WRITE ADDRESS                  DBGPHCT     1246     A     
 DBGPHCT   #RM      ENDIF                                                                  DBGPHCT     1247     A     
 DBGPHCT                                                                                   DBGPHCT     1248     A     
 DBGPHCT            SB1    1                                                               DBGPHCT     1249     A     
 DBGPHCT            SA2    A1+B1                                                           DBGPHCT     1250     A     
 DBGPHCT            SA3    A2+B1                                                           DBGPHCT     1251     A     
 DBGPHCT            SA4    D.TEMP                                                          DBGPHCT     1252     A     
 DBGPHCT            SA2    X2                (X2) = TRANSFER LENGTH (WORDS)                DBGPHCT     1253     A     
 DBGPHCT            NZ     X4,WRTMS21        IF NOT THE INITIAL WRITE                      DBGPHCT     1254     A     
 DBGPHCT            SA5    SDBGIND                                                         DBGPHCT     1255     A     
 DBGPHCT            SB4    X5+DEBUG-1        ABSOLUTE ADDRE                                DBGPHCT     1256     A     
 DBGPHCT            SA3    X3                RECORD NUMBER                                 DBGPHCT     1257     A     
 DBGPHCT            SX6    X3+B4                                                           DBGPHCT     1258     A     
 DBGPHCT            SA6    A4                SET FLAG FOR NEXT NOT INITIAL WRITE           DBGPHCT     1259     A     
 DBGPHCT                                                                                   DBGPHCT     1260     A     
 DBGPHCT   #RM      IFEQ   CP#RM,0                                                         DBGPHCT     1261     A     
 DBGPHCT                                                                                   DBGPHCT     1262     A     
 DBGPHCT            SA6    F.DEBUG+I.RAN1    SET ADDRESS TO STORE DISK ADDR IN             DBGPHCT     1263     A     
 DBGPHCT   WRTMS21  WRITEW F.DEBUG,X1,X2                                                   DBGPHCT     1264     A     
 DBGPHCT                                                                                   DBGPHCT     1265     A     
 DBGPHCT   #RM      ELSE                                                                   DBGPHCT     1266     A     
 DBGPHCT                                                                                   DBGPHCT     1267     A     
 DBGPHCT            SA7    X6          UPDATE INDEX CONTROL WORD                           DBGPHCT     1268     A     
 DBGPHCT   WRTMS21  PUTW   =XFI.DBG,X1,X2,,X7                                              DBGPHCT     1269     A     
 DBGPHCT            FETCH  =XFI.DBG,WA,X1                                                  DBGPHCT     1270     A     
 DBGPHCT            STORE  =XFI.DBG,NAA=X1   UPDATE NEXT AVAILABLE WRITE ADDRESS           DBGPHCT     1271     A     
 DBGPHCT                                                                                   DBGPHCT     1272     A     
 DBGPHCT   #RM      ENDIF                                                                  DBGPHCT     1273     A     
 DBGPHCT                                                                                   DBGPHCT     1274     A     
 DBGPHCT            EQ     WRTMS2      EXIT                                                DBGPHCT     1275     A     
 DBGPHCT            SPACE  3                                                               DBGPHCT     1276     A     
 DBGPHCT  ***                                                                              DBGPHCT     1277     A     
 DBGPHCT  *         WRTMS3 - TERMINATE RANDOM RECORD ON DEBUG FILE                         DBGPHCT     1278     A     
 DBGPHCT  *                    AND CLEAR FLAG TO INITIAL WRITE.                            DBGPHCT     1279     A     
 DBGPHCT  *                    FOR RECORD MANAGER CLEAR THE FLAG ONLY.                     DBGPHCT     1280     A     
 DBGPHCT  *                                                                                DBGPHCT     1281     A     
 DBGPHCT  *         ENTRY  FROM FTN ROUTINE - CALL WRTMS3                                  DBGPHCT     1282     A     
 DBGPHCT  *                (A1) = FWA OF PARAMETER LIST                                    DBGPHCT     1283     A     
 DBGPHCT  *                                                                                DBGPHCT     1284     A     
 DBGPHCT  *         EXIT   DEBUG FILE BUFFER FLUSHED AND EOR WRITTEN.                      DBGPHCT     1285     A     
 DBGPHCT  *                                                                                DBGPHCT     1286     A     
 DBGPHCT  *         USES   X - 6                                                           DBGPHCT     1287     A     
 DBGPHCT  *                A - 6                                                           DBGPHCT     1288     A     
 DBGPHCT  *                B - NONE                                                        DBGPHCT     1289     A     
 DBGPHCT  *                                                                                DBGPHCT     1290     A     
 DBGPHCT  *         CALLS  WRITER                                                          DBGPHCT     1291     A     
 DBGPHCT                                                                                   DBGPHCT     1292     A     
 DBGPHCT   WRTMS3   ENTRY. **                                                              DBGPHCT     1293     A     
 DBGPHCT            MX6    0                                                               DBGPHCT     1294     A     
 DBGPHCT            SA6    D.TEMP            CLEAR FLAG                                    DBGPHCT     1295     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3753    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT                                                                                   DBGPHCT     1296     A     
 DBGPHCT   #RM      IFEQ   CP#RM,0                                                         DBGPHCT     1297     A     
 DBGPHCT            WRITER F.DEBUG,RECALL    WRITE RECORD, FLUSH BUFFER                    DBGPHCT     1298     A     
 DBGPHCT   #RM      ENDIF                                                                  DBGPHCT     1299     A     
 DBGPHCT                                                                                   DBGPHCT     1300     A     
 DBGPHCT            EQ     WRTMS3                                                          DBGPHCT     1301     A     
 DBGPHCT            SPACE  3                                                               DBGPHCT     1302     A     
 DBGPHCT  ***                                                                              DBGPHCT     1303     A     
 DBGPHCT  *         WRTMS4 - CLOSE DEBUG RANDOM FILE                                       DBGPHCT     1304     A     
 DBGPHCT  *                                                                                DBGPHCT     1305     A     
 DBGPHCT  *         ENTRY  FROM FTN ROUTINE - CALL WRTMS4                                  DBGPHCT     1306     A     
 DBGPHCT  *                                                                                DBGPHCT     1307     A     
 DBGPHCT  *         EXIT   DEBUG FILE CLOSED.                                              DBGPHCT     1308     A     
 DBGPHCT  *                                                                                DBGPHCT     1309     A     
 DBGPHCT  *         USES   X - 6                                                           DBGPHCT     1310     A     
 DBGPHCT  *                A - 6                                                           DBGPHCT     1311     A     
 DBGPHCT  *                B - NONE                                                        DBGPHCT     1312     A     
 DBGPHCT  *                                                                                DBGPHCT     1313     A     
 DBGPHCT  *         CALLS  CLOSE                                                           DBGPHCT     1314     A     
 DBGPHCT                                                                                   DBGPHCT     1315     A     
 DBGPHCT   WRTMS4   ENTRY. **                                                              DBGPHCT     1316     A     
 DBGPHCT            MX6    0                                                               DBGPHCT     1317     A     
 DBGPHCT            SA6    D.OPEN            CLEAR FLAG                                    DBGPHCT     1318     A     
 DBGPHCT                                                                                   DBGPHCT     1319     A     
 DBGPHCT   #RM      IFEQ   CP#RM,0                                                         DBGPHCT     1320     A     
 DBGPHCT            CLOSE  F.DEBUG,NR,RECALL                                               DBGPHCT     1321     A     
 DBGPHCT   #RM      ELSE                                                                   DBGPHCT     1322     A     
 DBGPHCT            FETCH  =XFI.DBG,MXA,X0   INDEX ADDRESS                                 DBGPHCT     1323     A     
 DBGPHCT            FETCH  =XFI.DBG,MXL,X1   INDEX LENGTH                                  DBGPHCT     1324     A     
 DBGPHCT            FETCH  =XFI.DBG,NAA,X2   NEXT AVAILABLE WRITE ADDRESS                  DBGPHCT     1325     A     
 DBGPHCT            STORE  =XFI.DBG,CXA=X2   SAVE FILE ADDRESS OF INDEX                    DBGPHCT     1326     A     
 DBGPHCT            PUTW   =XFI.DBG,X0,X1,,X2  PUT INDEX ON FILE                           DBGPHCT     1327     A     
 DBGPHCT            CLOSEM =XFI.DBG,N,,WA                                                  DBGPHCT     1328     A     
 DBGPHCT   #RM      ENDIF                                                                  DBGPHCT     1329     A     
 DBGPHCT                                                                                   DBGPHCT     1330     A     
 DBGPHCT            EQ     WRTMS4                                                          DBGPHCT     1331     A     
 DBGPHCT            EJECT                                                                  DBGPHCT     1332     A     
 DBGPHCT  ***                                                                              DBGPHCT     1333     A     
 DBGPHCT  *         RDMS1 - READMS ROUTINE FOR FTN DEBUG ROUTINES                          DBGPHCT     1334     A     
 DBGPHCT  *                                                                                DBGPHCT     1335     A     
 DBGPHCT  *         THE CALLING SEQUENCE IS THE SAME AS FOR THE STANDARD FORTRAN           DBGPHCT     1336     A     
 DBGPHCT  *         READMS ROUTINE.                                                        DBGPHCT     1337     A     
 DBGPHCT  *                                                                                DBGPHCT     1338     A     
 DBGPHCT  *         CALL RDMS1 ( ARRAYS, NWDS, NUMBER )                                    DBGPHCT     1339     A     
 DBGPHCT  *                                                                                DBGPHCT     1340     A     
 DBGPHCT  *         ENTRY  (A1) = FWA OF PARAMETER LIST                                    DBGPHCT     1341     A     
 DBGPHCT  *                                                                                DBGPHCT     1342     A     
 DBGPHCT  *         EXIT   (B1) = 1                                                        DBGPHCT     1343     A     
 DBGPHCT  *                                                                                DBGPHCT     1344     A     
 DBGPHCT  *         USES   X - 0 THRU 7                                                    DBGPHCT     1345     A     
 DBGPHCT  *                A - 1 THRU 7                                                    DBGPHCT     1346     A     
 DBGPHCT  *                B - 1, 5                                                        DBGPHCT     1347     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3754    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT  *                                                                                DBGPHCT     1348     A     
 DBGPHCT  *         CALLS  READSKP                                                         DBGPHCT     1349     A     
 DBGPHCT                                                                                   DBGPHCT     1350     A     
 DBGPHCT   RDMS1    ENTRY. **                                                              DBGPHCT     1351     A     
 DBGPHCT                                                                                   DBGPHCT     1352     A     
 DBGPHCT   #RM      IFEQ   CP#RM,0                                                         DBGPHCT     1353     A     
 DBGPHCT                                                                                   DBGPHCT     1354     A     
 DBGPHCT            SB1    1                                                               DBGPHCT     1355     A     
 DBGPHCT            SA2    A1          FWA ARRAY                                           DBGPHCT     1356     A     
 DBGPHCT            SA3    A2+B1       (X3) = ADDRESS OF NWDS                              DBGPHCT     1357     A     
 DBGPHCT            MX0    -24                                                             DBGPHCT     1358     A     
 DBGPHCT            SA4    A3+B1       (X4) = ADDRESS OF RECORD NUMBER                     DBGPHCT     1359     A     
 DBGPHCT            SA5    =XF.DEBUG+I.RAN2  INDEX ADDRESS                                 DBGPHCT     1360     A     
 DBGPHCT            SA4    X4          (X4) = RECORD NUMBER                                DBGPHCT     1361     A     
 DBGPHCT            SB5    X4                                                              DBGPHCT     1362     A     
 DBGPHCT            SA1    X5+B5       EXTRACT APPROPRIATE INDEX WORD                      DBGPHCT     1363     A     
 DBGPHCT            BX6    -X0*X1       RETAIN PRU NUMBER                                  DBGPHCT     1364     A     
 DBGPHCT            SX1    =XF.DEBUG                                                       DBGPHCT     1365     A     
 DBGPHCT            SA6    A5-B1       STORE INTO DISK ADDRESS IN FET                      DBGPHCT     1366     A     
 DBGPHCT            SX7    X2          FWA                                                 DBGPHCT     1367     A     
 DBGPHCT            MX0    -18                                                             DBGPHCT     1368     A     
 DBGPHCT            SA3    X3          (X3) = NWDS                                         DBGPHCT     1369     A     
 DBGPHCT            SA2    X1+B1       FIRST                                               DBGPHCT     1370     A     
 DBGPHCT            BX6    X0*X2                                                           DBGPHCT     1371     A     
 DBGPHCT            IX7    X6+X7        PRESERVE L FIELD AND RANDOM BIT                    DBGPHCT     1372     A     
 DBGPHCT            SA7    A2                                                              DBGPHCT     1373     A     
 DBGPHCT            SX6    X7                                                              DBGPHCT     1374     A     
 DBGPHCT            SA6    A2+B1       IN                                                  DBGPHCT     1375     A     
 DBGPHCT            IX5    X6+X3                                                           DBGPHCT     1376     A     
 DBGPHCT            SA6    A6+B1       OUT                                                 DBGPHCT     1377     A     
 DBGPHCT            SA3    A6+B1       OLD LIMIT WORD                                      DBGPHCT     1378     A     
 DBGPHCT            SX5    X5+B1                                                           DBGPHCT     1379     A     
 DBGPHCT            BX2    X0*X3                                                           DBGPHCT     1380     A     
 DBGPHCT            IX7    X2+X5        NEW LIMIT                                          DBGPHCT     1381     A     
 DBGPHCT            SA7    A3                                                              DBGPHCT     1382     A     
 DBGPHCT            READSKP F.DEBUG,RECALL                                                 DBGPHCT     1383     A     
 DBGPHCT            EQ     RDMS1                                                           DBGPHCT     1384     A     
 DBGPHCT                                                                                   DBGPHCT     1385     A     
 DBGPHCT   #RM      ELSE                                                                   DBGPHCT     1386     A     
 DBGPHCT                                                                                   DBGPHCT     1387     A     
 DBGPHCT            SB1    1                                                               DBGPHCT     1388     A     
 DBGPHCT            FETCH  =XFI.DBG,MXA,X5  (X5)=FWA OF DEBUG INDEX                        DBGPHCT     1389     A     
 DBGPHCT            SA2    A1+B1       (X2)=ADDRESS OF NWDS                                DBGPHCT     1390     A     
 DBGPHCT            SA3    A2+B1       (X3) = ADDRESS OF RECORD NUMBER                     DBGPHCT     1391     A     
 DBGPHCT            SA2    X2          (X2)=NWDS                                           DBGPHCT     1392     A     
 DBGPHCT            SA3    X3          (X3) = RECORD NUMBER                                DBGPHCT     1393     A     
 DBGPHCT            MX0    -24                                                             DBGPHCT     1394     A     
 DBGPHCT            SB4    X3          (B4)=RECORD NUMBER                                  DBGPHCT     1395     A     
 DBGPHCT            SA4    X5+B4       GET INDEX WORD                                      DBGPHCT     1396     A     
 DBGPHCT            BX6    -X0*X4      FILE WA OF RECORD                                   DBGPHCT     1397     A     
 DBGPHCT            SB5    X2          (B5)=NWDS                                           DBGPHCT     1398     A     
 DBGPHCT            GETWP  =XFI.DBG,X1,X2,,X6,SKIP                                         DBGPHCT     1399     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3755    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            SB3    B0                                                              DBGPHCT     1400     A     
 DBGPHCT   RDMS1A   SB4    B5-B3       (B4)=WORDS REMAINING TO GET                         DBGPHCT     1401     A     
 DBGPHCT            SB2    X2          (B2)=WORDS JUST GOTTEN                              DBGPHCT     1402     A     
 DBGPHCT            GE     B2,B4,RDMS1 IF READ TRANSFER COMPLETE, EXIT                     DBGPHCT     1403     A     
 DBGPHCT            SB3    B2+B3       (B3)=WORDS READ SO FAR                              DBGPHCT     1404     A     
 DBGPHCT            SX2    B5-B3       (X2)=WORDS REMAINING TO GET                         DBGPHCT     1405     A     
 DBGPHCT            SX1    X1+B2       (X1)=NEW ADDRESS IN ARRAYS TO READ INTO             DBGPHCT     1406     A     
 DBGPHCT            GETWP  =XFI.DBG,X1,X2                                                  DBGPHCT     1407     A     
 DBGPHCT            EQ     RDMS1A                                                          DBGPHCT     1408     A     
 DBGPHCT                                                                                   DBGPHCT     1409     A     
 DBGPHCT   #RM      ENDIF                                                                  DBGPHCT     1410     A     
 DBGPHCT   CFO      TITLE  CFO - CHECK FIRST OCCURRENCE OF NAME                            DBGPHCT     1411     A     
 DBGPHCT  **        CFO - CHECK FIRST OCCURRENCE OF A NAME IN A FORTRAN STATEMENT          DBGPHCT     1412     A     
 DBGPHCT  *         WHEN THE NAME HAS BEEN PREVIOUSLY MENTIONED IN A DEBUG                 DBGPHCT     1413     A     
 DBGPHCT  *         STATEMENT.  CHECKS SETTING OF DEBUG BITS AGAINST USEAGE IN             DBGPHCT     1414     A     
 DBGPHCT  *         CONTEXT.                                                               DBGPHCT     1415     A     
 DBGPHCT  *                                                                                DBGPHCT     1416     A     
 DBGPHCT  *         ON ENTRY:                                                              DBGPHCT     1417     A     
 DBGPHCT  *                A0-A2, X1,X2,X6,X7 AS SET BY SYMBOL AT FIRST OCCURANCE          DBGPHCT     1418     A     
 DBGPHCT  *                EXIT.                                                           DBGPHCT     1419     A     
 DBGPHCT  *                X0 = CONTEXT FLAG, 0 IF A VAR OR ARRAY , 1 IF EXTERNAL          DBGPHCT     1420     A     
 DBGPHCT  *                                                                                DBGPHCT     1421     A     
 DBGPHCT  *         ON EXIT:                                                               DBGPHCT     1422     A     
 DBGPHCT  *                IF SETTING OF DEBUG BITS MATCHS PRESENT CONTEXT                 DBGPHCT     1423     A     
 DBGPHCT  *                 THEN X2 = X2+X7                                                DBGPHCT     1424     A     
 DBGPHCT  *                ELSE INFORMATIVE ERROR MESSAGE ISSUED, DEBUG BIT FIELD          DBGPHCT     1425     A     
 DBGPHCT  *                CLEARED, SYMBOL TABLE ENTRY UPDATED AND X1,X2,X6                DBGPHCT     1426     A     
 DBGPHCT  *                AS THEY WERE ON ENTRY ( ALONG WITH A0,B1,B2,A1,A2 )             DBGPHCT     1427     A     
 DBGPHCT                                                                                   DBGPHCT     1428     A     
 DBGPHCT                                                                                   DBGPHCT     1429     A     
 DBGPHCT   CFO      SUBR   =           ** ENTRY/EXIT **                                    DBGPHCT     1430     A     
 DBGPHCT            IX2    X2+X7             RESTORE DEBUG BITS                            DBGPHCT     1431     A     
 DBGPHCT            AX7    P.IF                                                            DBGPHCT     1432     A     
 DBGPHCT            SX3    1                                                               DBGPHCT     1433     A     
 DBGPHCT            BX7    X3*X7             IF BIT                                        DBGPHCT     1434     A     
 DBGPHCT            IX0    X0-X7                                                           DBGPHCT     1435     A     
 DBGPHCT            ZR     X0,EXIT.          IF NO CONFLICT                                DBGPHCT     1436     A     
 DBGPHCT            RJ     DBGCUN            ISSUE ERROR MESSAGE                           DBGPHCT     1437     A     
 DBGPHCT            EQ     EXIT.                                                           DBGPHCT     1438     A     
 DBGPHCT   DBGCUN   SPACE  4,8                                                             DBGPHCT     1439     A     
 DBGPHCT  **        DBGCUN - ISSUE ERROR MESSAGE FOR ILLEGAL MENTION OF A NAME             DBGPHCT     1440     A     
 DBGPHCT  *         IN A DEBUG STMT                                                        DBGPHCT     1441     A     
 DBGPHCT                                                                                   DBGPHCT     1442     A     
 DBGPHCT                                                                                   DBGPHCT     1443     A     
 DBGPHCT   DBGCUN   SUBR   =           ** ENTRY/EXIT **                                    DBGPHCT     1444     A     
 DBGPHCT            MX0    60-12                                                           DBGPHCT     1445     A     
 DBGPHCT            BX7    -X0*X2            SAVE P- FIELD                                 DBGPHCT     1446     A     
 DBGPHCT            SA6    TEMP              SAVE X6 ( SAVED NATURAL TYPE )                DBGPHCT     1447     A     
 DBGPHCT            SA7    A2                UPDATE WORD B OF SYMTAB                       DBGPHCT     1448     A     
 DBGPHCT            SX2    B1                                                              DBGPHCT     1449          I
          -FCC2053
 DBGPHCT            SX6    B1                                                              FCC2053        7     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3756    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            BX2    X6                                                              FCC2053        8     A     
 DBGPHCT            SA6    SAVORD      SAVE ORDINAL OF SYMBOL ENTRY                        FCC2053        9     A     
 DBGPHCT            CALL   PSYM              FORMAT NAME FOR ERPRO                         DBGPHCT     1450     A     
 DBGPHCT            POSTER SEV=INF,NR=E.DCUN,FMT=DPC,TXT=X3                                DBGPHCT     1451     A     
 DBGPHCT            SA3    SYM1              RESTORE REGISTERS                             DBGPHCT     1452     A     
 DBGPHCT            SA4    TEMP                                                            DBGPHCT     1453     A     
 DBGPHCT            SA0    X3                                                              DBGPHCT     1454          I
          -FCC2053
 DBGPHCT            SA1    SAVORD                                                          FCC2053       10     A     
 DBGPHCT            SA0    X3                                                              FCC2053       11     A     
 DBGPHCT            SB1    X1                                                              FCC2053       12     A     
 DBGPHCT            SB2    B1+B1             2*ORD                                         DBGPHCT     1455     A     
 DBGPHCT            SA1    A0-B2             WORD A OF SYMTAB ENTRY                        DBGPHCT     1456     A     
 DBGPHCT            SA2    A1-B5             WORD B                                        DBGPHCT     1457     A     
 DBGPHCT            BX6    X4                RESTORE X6                                    DBGPHCT     1458     A     
 DBGPHCT            EQ     EXIT.                                                           DBGPHCT     1459     A     
 DBGPHCT            TITLE              DSYMTAB - FORTRAN LINKAGE TO SYMBOL TABLE           DBGPHCT     1460     A     
 DBGPHCT  ***                                                                              DBGPHCT     1461     A     
 DBGPHCT  *         DSYMTAB - CALL SYMBOL FOR A FORTRAN DEBUG PROCESSOR ROUTINE            DBGPHCT     1462     A     
 DBGPHCT  *                                                                                DBGPHCT     1463     A     
 DBGPHCT  *         CALLING SEQUENCE:                                                      DBGPHCT     1464     A     
 DBGPHCT  *                CALL DSYMTAB( NAME , ORD*2 )                                    DBGPHCT     1465     A     
 DBGPHCT  *         OR     ORD*2 = DSYMTAB( NAME )                                         DBGPHCT     1466     A     
 DBGPHCT  *                                                                                DBGPHCT     1467     A     
 DBGPHCT                                                                                   DBGPHCT     1468     A     
 DBGPHCT                                                                                   DBGPHCT     1469     A     
 DBGPHCT  *         FIRST OCCURRENCE.                                                      DBGPHCT     1470     A     
 DBGPHCT                                                                                   DBGPHCT     1471     A     
 DBGPHCT   DSYM1    SX0    T.DBG                                                           DBGPHCT     1472     A     
 DBGPHCT            LX0    P.TYP                                                           DBGPHCT     1473     A     
 DBGPHCT            BX2    X0+X2             SET TYPE T.UDV                                DBGPHCT     1474     A     
 DBGPHCT            LX6    P.SNT-P.TYP                                                     DBGPHCT     1475     A     
 DBGPHCT            BX7    X6+X2             SAVE NATURAL TYPE                             DBGPHCT     1476     A     
 DBGPHCT            SA7    A2                                                              DBGPHCT     1477     A     
 DBGPHCT   DSYMX    SA5    TEMPA0                                                          DBGPHCT     1478     A     
 DBGPHCT            SA2    SYMEND                                                          DBGPHCT     1479     A     
 DBGPHCT            SX6    DEBUG-1                                                         DBGPHCT     1480     A     
 DBGPHCT            IX6    X2-X6                                                           DBGPHCT     1481     A     
 DBGPHCT            SA6    D.ESMTB           UPDATE SYMEND FOR FTN ROUTINES                DBGPHCT     1482     A     
 DBGPHCT            SA2    A5+B5             ADDR OF SECOND ARG OR 0                       DBGPHCT     1483     A     
 DBGPHCT            SX6    B1+B1             X6 = 2*ORD                                    DBGPHCT     1484     A     
 DBGPHCT            SA0    X5                RESTORE A0                                    DBGPHCT     1485     A     
 DBGPHCT            ZR     X2,DSYMTAB        IF CALLED AS A FUNCTION                       DBGPHCT     1486     A     
 DBGPHCT            SA6    X2                                                              DBGPHCT     1487     A     
 DBGPHCT                                                                                   DBGPHCT     1488     A     
 DBGPHCT   DSYMTAB  ENTRY.                                                                 DBGPHCT     1489     A     
 DBGPHCT            SA2    A1+1                                                            DBGPHCT     1490     A     
 DBGPHCT            SA1    X1                SYMBOL                                        DBGPHCT     1491     A     
 DBGPHCT            BX7    X2                                                              DBGPHCT     1492     A     
 DBGPHCT            SX6    A0                                                              DBGPHCT     1493     A     
 DBGPHCT            SA6    TEMPA0            SAVE A0                                       DBGPHCT     1494     A     
 DBGPHCT            SA7    TEMP                                                            DBGPHCT     1495     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3757    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            SYMBOL                   ENTER IN SYMTAB                               DBGPHCT     1496     A     
 DBGPHCT            ZR     X7,DSYM1          IF THE FIRST TIME                             DBGPHCT     1497     A     
 DBGPHCT            EQ     DSYMX             REPEATED MENTION IN A DEBUG STMT              DBGPHCT     1498     A     
 DBGPHCT                                                                                   DBGPHCT     1499     A     
 DBGPHCT  *         NAME IN SYMBOL TABLE DUE TO FIRST OCCURRANCE IN A "FORTRAN"            DBGPHCT     1500     A     
 DBGPHCT  *         STATEMENT                                                              DBGPHCT     1501     A     
 DBGPHCT                                                                                   DBGPHCT     1502     A     
 DBGPHCT            BX3    X2                                                              DBGPHCT     1503     A     
 DBGPHCT            MX0    60-L.TYP                                                        DBGPHCT     1504     A     
 DBGPHCT            SX5    B1-1                                                            DBGPHCT     1505     A     
 DBGPHCT            NZ     X5,DSYM2          IF ORDINAL NOT PROGRAM UNIT NAME              DBGPHCT     1506     A     
 DBGPHCT            SA4    =XVALUE.                                                        DBGPHCT     1507     A     
 DBGPHCT            ZR     X4,DSYMX          IF NOT A FUNCTION SUBPROGRAM                  DBGPHCT     1508     A     
 DBGPHCT            SB1    X4                                                              DBGPHCT     1509     A     
 DBGPHCT            EQ     DSYMX                                                           DBGPHCT     1510     A     
 DBGPHCT   DSYM2    AX3    P.TYP                                                           DBGPHCT     1511     A     
 DBGPHCT            BX4    -X0*X3            TYPE                                          DBGPHCT     1512     A     
 DBGPHCT            SX5    X4-T.ECS                                                        DBGPHCT     1513     A     
 DBGPHCT            NG     X5,DSYMX          IF A LEGAL TYPE                               DBGPHCT     1514     A     
 DBGPHCT            SX2    B1                                                              DBGPHCT     1515     A     
 DBGPHCT            CALL   PSYM              FORMAT THE NAME FOR ERPRO                     DBGPHCT     1516     A     
 DBGPHCT            POSTER SEV=INF,NR=E.IMDS,FMT=DPC,TXT=X3,RETURN=DSYMX                   DBGPHCT     1517     A     
 DBGPHCT   FIXPNTR  SPACE  4,8                                                             DBGPHCT     1518     A     
 DBGPHCT  **        FIXPNTR - RESET ADDRESSES FROM FORTRAN SUBROUTINE VALUES.              DBGPHCT     1519     A     
 DBGPHCT                                                                                   DBGPHCT     1520     A     
 DBGPHCT                                                                                   DBGPHCT     1521     A     
 DBGPHCT   FIXPNTR  SUBR   =           ** ENTRY/EXIT **                                    DBGPHCT     1522     A     
 DBGPHCT            SB5    1                                                               DBGPHCT     1523     A     
 DBGPHCT            SA2    D.SSMTB     ADDRESS OF START OF SYMBOL TABLE                    DBGPHCT     1524     A     
 DBGPHCT            SX1    DEBUG-1     LOCATION OF BLANK COMMON                            DBGPHCT     1525     A     
 DBGPHCT            IX6    X2+X1                                                           DBGPHCT     1526     A     
 DBGPHCT            SA3    D.ESMTB                                                         DBGPHCT     1527     A     
 DBGPHCT            SA4    D.ELAST     ADDRESS OF END OF ELIST                             DBGPHCT     1528     A     
 DBGPHCT            SA6    SYM1        SYM1 = D.SSMTB+DEBUG-1                              DBGPHCT     1529     A     
 DBGPHCT            IX7    X3+X1                                                           DBGPHCT     1530     A     
 DBGPHCT            IX6    X4+X1                                                           DBGPHCT     1531     A     
 DBGPHCT            SA7    SYMEND                                                          DBGPHCT     1532     A     
 DBGPHCT            SA2    D.LELST                                                         DBGPHCT     1533     A     
 DBGPHCT            SA3    D.ELIST                                                         DBGPHCT     1534     A     
 DBGPHCT            SA6    =XLWAWORK    LWAWORK = D.ELAST+DEBUG-1                          DBGPHCT     1535     A     
 DBGPHCT            IX7    X2+X1                                                           DBGPHCT     1536     A     
 DBGPHCT            IX6    X3+X1                                                           DBGPHCT     1537     A     
 DBGPHCT            SA7    LELIST      LELIST = D.LELST+DEBUG-1                            DBGPHCT     1538     A     
 DBGPHCT            SA6    SELIST      SELIST = D.ELIST+DEBUG-1                            DBGPHCT     1539     A     
 DBGPHCT            EQ     EXIT.                                                           DBGPHCT     1540     A     
 DBGPHCT   DINPH2   TITLE  DINPH2 - INITIALIZE DEBUG PROCESSOR FOR PHASE 2                 DBGPHCT     1541     A     
 DBGPHCT  **        DINPH2 - INITIALIZE DEBUG PROCESSOR FOR PHASE 2.                       DBGPHCT     1542     A     
 DBGPHCT                                                                                   DBGPHCT     1543     A     
 DBGPHCT                                                                                   DBGPHCT     1544     A     
 DBGPHCT   DINPH2   SUBR   =           ** ENTRY/EXIT **                                    DBGPHCT     1545     A     
 DBGPHCT            SA5    L.DCON                                                          DBGPHCT     1546     A     
 DBGPHCT            ZR     X5,DINPH2A        IF NO CONSTANTS                               DBGPHCT     1547     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3758    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT                                                                                   DBGPHCT     1548     A     
 DBGPHCT  *         MOVE CONSTANTS ENCOUNTERED DURING PHASE 1 TO THE CON TABLE             DBGPHCT     1549     A     
 DBGPHCT                                                                                   DBGPHCT     1550     A     
 DBGPHCT            ALLOC  CON,X5            GET SPACE                                     DBGPHCT     1551     A     
 DBGPHCT            SA1    L.DCON                                                          DBGPHCT     1552     A     
 DBGPHCT            SA2    O.DCON                                                          DBGPHCT     1553     A     
 DBGPHCT            SA3    O.CON                                                           DBGPHCT     1554     A     
 DBGPHCT            BX6    X1                                                              DBGPHCT     1555     A     
 DBGPHCT            SA6    L.CON             SET LENGTH OF CON TABLE                       DBGPHCT     1556     A     
 DBGPHCT            MOVE   X1,X2,X3                                                        DBGPHCT     1557     A     
 DBGPHCT                                                                                   DBGPHCT     1558     A     
 DBGPHCT   DINPH2A  SYMBOL =8RLABEL.         LABEL. TO SYMTAB                              DBGPHCT     1559     A     
 DBGPHCT            SA3    =XWB.CON                                                        DBGPHCT     1560     A     
 DBGPHCT            BX7    X3+X2             SET WORD B BITS                               DBGPHCT     1561     A     
 DBGPHCT            SX6    B1                                                              DBGPHCT     1562     A     
 DBGPHCT            SA7    A2                                                              DBGPHCT     1563     A     
 DBGPHCT            SA6    =XLABEL.          SAVE ORDINAL                                  DBGPHCT     1564     A     
 DBGPHCT            EQ     EXIT.                                                           DBGPHCT     1565     A     
 DBGPHCT            TITLE              DCONV - CONVERT CONSTANT FOR DEBUG PROCESSO         DBGPHCT     1566     A     
 DBGPHCT  ,R                                                                               DBGPHCT     1567     A     
 DBGPHCT   TEMPA0   BSS    1                 SAVED VALUE OF A0                             DBGPHCT     1568     A     
 DBGPHCT   TEMP     BSS    4                 MUST COME AFTER TEMPA0                        DBGPHCT     1569     A     
 DBGPHCT   SIGN     BSS    1                 0 OR -0                                       DBGPHCT     1570     A     
 DBGPHCT   WORDS    BSS    1                 WORD COUNT - 1                                DBGPHCT     1571     A     
 DBGPHCT   CONTYPE  BSS    1                 CONSTANT TYPE CODE                            DBGPHCT     1572     A     
 DBGPHCT   SAVORD   BSS    1           SAVED ORDINAL OF SYMBOL ENTRY (DBGCUN)              FCC2053       13     A     
 DBGPHCT                                                                                   DBGPHCT     1573     A     
 DBGPHCT  ***                                                                              DBGPHCT     1574     A     
 DBGPHCT  *         DCONV - ENTER A CONSTANT IN THE CON TABLE FOR THE DEBUG                DBGPHCT     1575     A     
 DBGPHCT  *         OPTION PROCESSOR                                                       DBGPHCT     1576     A     
 DBGPHCT  *                                                                                DBGPHCT     1577     A     
 DBGPHCT  *         ON ENTRY:                                                              DBGPHCT     1578     A     
 DBGPHCT  *                X1 = LOCF(ELIST)                                                DBGPHCT     1579     A     
 DBGPHCT  *                 = POINTER TO START OF CONSTANT                                 DBGPHCT     1580     A     
 DBGPHCT  *                                                                                DBGPHCT     1581     A     
 DBGPHCT  *         ON EXIT:                                                               DBGPHCT     1582     A     
 DBGPHCT  *                X6 = 42/0,3/TYPE,1/FLAG,14/ORDINAL                              DBGPHCT     1583     A     
 DBGPHCT  *                WHERE FLAG = 1 IF CONSTANT IS ENTERED IN GLOBAL TABLE           DBGPHCT     1584     A     
 DBGPHCT  *         OR X6 .LT. 0 IF AN ERROR OCCURED                                       DBGPHCT     1585     A     
 DBGPHCT  *                ELIST IS ADVANCED TO POINT PAST THE CONSTANT                    DBGPHCT     1586     A     
 DBGPHCT  *                                                                                DBGPHCT     1587     A     
 DBGPHCT                                                                                   DBGPHCT     1588     A     
 DBGPHCT  *         ERROR EXIT                                                             DBGPHCT     1589     A     
 DBGPHCT                                                                                   DBGPHCT     1590     A     
 DBGPHCT   DCONV.E  MX6    1                                                               DBGPHCT     1591     A     
 DBGPHCT            SA1    TEMPA0            RESTORE A0                                    DBGPHCT     1592     A     
 DBGPHCT            SA0    X1                                                              DBGPHCT     1593     A     
 DBGPHCT            EQ     DCONV                                                           DBGPHCT     1594     A     
 DBGPHCT                                                                                   DBGPHCT     1595     A     
 DBGPHCT  *         NORMAL EXIT                                                            DBGPHCT     1596     A     
 DBGPHCT                                                                                   DBGPHCT     1597     A     
 DBGPHCT   DCONVX   SA2    CONTYPE                                                         DBGPHCT     1598     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3759    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            LX2    15                POSITION TYPE                                 DBGPHCT     1599     A     
 DBGPHCT            BX6    X1+X2             42/0,3/TYPE,1/FLAG,14/ORDINAL                 DBGPHCT     1600     A     
 DBGPHCT            SA5    TEMPA0                                                          DBGPHCT     1601     A     
 DBGPHCT            SA0    X5                RESTORE A0                                    DBGPHCT     1602     A     
 DBGPHCT                                                                                   DBGPHCT     1603     A     
 DBGPHCT   DCONV    ENTRY.                                                                 DBGPHCT     1604     A     
 DBGPHCT            SA2    X1                RELATIVE ELIST POINTER                        DBGPHCT     1605     A     
 DBGPHCT            SB7    DEBUG-1                                                         DBGPHCT     1606     A     
 DBGPHCT            SA4    X2+B7             FIRST ELEMENT                                 DBGPHCT     1607     A     
 DBGPHCT            UX1    B2,X4                                                           DBGPHCT     1608     A     
 DBGPHCT            SB5    1                                                               DBGPHCT     1609     A     
 DBGPHCT            SX6    A0                                                              DBGPHCT     1610     A     
 DBGPHCT            SA6    TEMPA0            SAVE A0                                       DBGPHCT     1611     A     
 DBGPHCT                                                                                   DBGPHCT     1612     A     
 DBGPHCT            MX7    0                                                               DBGPHCT     1613     A     
 DBGPHCT            IF.EQ  EL.(,DCONV.C      IF A COMPLEX CONSTANT                         DBGPHCT     1614     A     
 DBGPHCT            IF.EQ  CON,DCONV2        IF A CONSTANT                                 DBGPHCT     1615     A     
 DBGPHCT            IF.EQ  EL.PLUS,DCONV1    IF A +                                        DBGPHCT     1616     A     
 DBGPHCT            IF.NE  EL.MINUS,DCONV.E  IF NOT -                                      DBGPHCT     1617     A     
 DBGPHCT            MX7    60                                                              DBGPHCT     1618     A     
 DBGPHCT   DCONV1   NEXTE                                                                  DBGPHCT     1619     A     
 DBGPHCT            IF.NE  CON,DCONV.E       IF NOT A CONSTANT                             DBGPHCT     1620     A     
 DBGPHCT                                                                                   DBGPHCT     1621     A     
 DBGPHCT   DCONV2   SA7    SIGN              SAVE SIGN                                     DBGPHCT     1622     A     
 DBGPHCT            SB7    B7+B5                                                           DBGPHCT     1623     A     
 DBGPHCT            SX6    A4-B7             UPDATE ELIST POINTER                          DBGPHCT     1624     A     
 DBGPHCT            SA6    A2                                                              DBGPHCT     1625     A     
 DBGPHCT                                                                                   DBGPHCT     1626     A     
 DBGPHCT            AX1    45                                                              DBGPHCT     1627     A     
 DBGPHCT            BX6    X1                                                              DBGPHCT     1628     A     
 DBGPHCT            SX2    X1-T.DBL                                                        DBGPHCT     1629     A     
 DBGPHCT            SA6    CONTYPE           SAVE CONSTANT TYPE                            DBGPHCT     1630     A     
 DBGPHCT            MX7    0                                                               DBGPHCT     1631     A     
 DBGPHCT            NZ     X2,DCONV3         IF NOT DOUBLE                                 DBGPHCT     1632     A     
 DBGPHCT            SX7    B5                                                              DBGPHCT     1633     A     
 DBGPHCT   DCONV3   SA7    WORDS             SAVE WORD COUNT - 1                           DBGPHCT     1634     A     
 DBGPHCT            BX1    X4                                                              DBGPHCT     1635     A     
 DBGPHCT            SB1    -B5                                                             DBGPHCT     1636     A     
 DBGPHCT            CALL   CONVERT           CONVERT THE CONSTANT                          DBGPHCT     1637     A     
 DBGPHCT            BX6    X1                                                              DBGPHCT     1638     A     
 DBGPHCT            LX7    X2                                                              DBGPHCT     1639     A     
 DBGPHCT            SA6    TEMP                                                            DBGPHCT     1640     A     
 DBGPHCT            SA7    A6+B5             SAVE CONSTANT                                 DBGPHCT     1641     A     
 DBGPHCT                                                                                   DBGPHCT     1642     A     
 DBGPHCT   DCONV4   SA3    D.PACK                                                          DBGPHCT     1643     A     
 DBGPHCT            SX0    X3-1                                                            DBGPHCT     1644     A     
 DBGPHCT            ZR     X0,DCONV.G        IF PROCESSING A PACKET                        DBGPHCT     1645     A     
 DBGPHCT                                                                                   DBGPHCT     1646     A     
 DBGPHCT            SA5    =XPHASE                                                         DBGPHCT     1647     A     
 DBGPHCT            ZR     X5,DCONV5         IF PHASE 1                                    DBGPHCT     1648     A     
 DBGPHCT                                                                                   DBGPHCT     1649     A     
 DBGPHCT  *         PHASE 2 - ENTER THE CONSTANT IN CONTAB                                 DBGPHCT     1650     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3760    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT                                                                                   DBGPHCT     1651     A     
 DBGPHCT            SA4    WORDS                                                           DBGPHCT     1652     A     
 DBGPHCT            SB1    X4+B5             WORD COUNT                                    DBGPHCT     1653     A     
 DBGPHCT            CALL   CONVERT           ENTER CONSTANT IN CONTAB                      DBGPHCT     1654     A     
 DBGPHCT            AX1    30                POSITION CA                                   DBGPHCT     1655     A     
 DBGPHCT            EQ     DCONVX                                                          DBGPHCT     1656     A     
 DBGPHCT                                                                                   DBGPHCT     1657     A     
 DBGPHCT  *         PHASE 1 - ENTER THE CONSTANT IN DCON                                   DBGPHCT     1658     A     
 DBGPHCT                                                                                   DBGPHCT     1659     A     
 DBGPHCT   DCONV5   SA4    O.DCON                                                          DBGPHCT     1660     A     
 DBGPHCT            SA5    L.DCON                                                          DBGPHCT     1661     A     
 DBGPHCT            MX0    0                                                               DBGPHCT     1662     A     
 DBGPHCT            RJ     SRCH              SEARCH FOR A MATCH IN DCON                    DBGPHCT     1663     A     
 DBGPHCT            NG     B2,DCONVX         IF A MATCH                                    DBGPHCT     1664     A     
 DBGPHCT                                                                                   DBGPHCT     1665     A     
 DBGPHCT            ADDWD  DCON,X1                                                         DBGPHCT     1666     A     
 DBGPHCT            SA5    WORDS                                                           DBGPHCT     1667     A     
 DBGPHCT            ZR     X5,DCONV5A        IF NOT 2 WORDS                                DBGPHCT     1668     A     
 DBGPHCT            ADDWD  A0,TEMP+1         ADD SECOND WORD                               DBGPHCT     1669     A     
 DBGPHCT                                                                                   DBGPHCT     1670     A     
 DBGPHCT   DCONV5A  SA1    TEMP+2            ORDINAL                                       DBGPHCT     1671     A     
 DBGPHCT            EQ     DCONVX                                                          DBGPHCT     1672     A     
 DBGPHCT                                                                                   DBGPHCT     1673     A     
 DBGPHCT  *         GLOBAL PACKET - SAVE THE CONSTANT THE THE GLOBAL CON TABLE             DBGPHCT     1674     A     
 DBGPHCT                                                                                   DBGPHCT     1675     A     
 DBGPHCT   DCONV.G  SA4    =XO.GCON                                                        DBGPHCT     1676     A     
 DBGPHCT            SA5    =XL.GCON                                                        DBGPHCT     1677     A     
 DBGPHCT            SX0    1S14              FLAG                                          DBGPHCT     1678     A     
 DBGPHCT            RJ     SRCH              SEARCH FOR A MATCH                            DBGPHCT     1679     A     
 DBGPHCT            NG     B2,DCONVX         IF FOUND                                      DBGPHCT     1680     A     
 DBGPHCT                                                                                   DBGPHCT     1681     A     
 DBGPHCT            RJ     ADDGCON           ADD FIRST WORD TO GCON                        DBGPHCT     1682     A     
 DBGPHCT            SA5    WORDS                                                           DBGPHCT     1683     A     
 DBGPHCT            ZR     X5,DCONV5A        IF ONLY 1 WORD                                DBGPHCT     1684     A     
 DBGPHCT            SA1    TEMP+1                                                          DBGPHCT     1685     A     
 DBGPHCT            RJ     ADDGCON           ADD SECOND WORD                               DBGPHCT     1686     A     
 DBGPHCT            EQ     DCONV5A                                                         DBGPHCT     1687     A     
 DBGPHCT            SPACE  3                                                               DBGPHCT     1688     A     
 DBGPHCT  *         PROCESS COMPLEX CONSTANT                                               DBGPHCT     1689     A     
 DBGPHCT                                                                                   DBGPHCT     1690     A     
 DBGPHCT   DCONV.C  SB6    TEMP                                                            DBGPHCT     1691     A     
 DBGPHCT            RJ     CHC               CHECK THE REAL PART                           DBGPHCT     1692     A     
 DBGPHCT            IF.NE  EL.COMMA,DCONV.E  IF NO COMMA                                   DBGPHCT     1693     A     
 DBGPHCT            SB6    TEMP+2                                                          DBGPHCT     1694     A     
 DBGPHCT            RJ     CHC               CHECK THE IMAGINARY PART                      DBGPHCT     1695     A     
 DBGPHCT            IF.NE  EL.),DCONV.E      IF NOT A )                                    DBGPHCT     1696     A     
 DBGPHCT            SB7    B7+B5                                                           DBGPHCT     1697     A     
 DBGPHCT            SX7    A4-B7                                                           DBGPHCT     1698     A     
 DBGPHCT            SA7    A2                UPDATE ELIST POINTER                          DBGPHCT     1699     A     
 DBGPHCT                                                                                   DBGPHCT     1700     A     
 DBGPHCT            SA1    TEMP                                                            DBGPHCT     1701     A     
 DBGPHCT            SB1    -B5                                                             DBGPHCT     1702     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3761    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT            CALL   CONVERT           CONVERT THE REAL PART                         DBGPHCT     1703     A     
 DBGPHCT            SA2    TEMP+1            SIGN                                          DBGPHCT     1704     A     
 DBGPHCT            BX6    X1-X2                                                           DBGPHCT     1705     A     
 DBGPHCT            SA6    A2-B5             SAVE IN TEMP                                  DBGPHCT     1706     A     
 DBGPHCT                                                                                   DBGPHCT     1707     A     
 DBGPHCT            SA1    A2+B5             ELIST FOR IMAGINARY PART                      DBGPHCT     1708     A     
 DBGPHCT            SB1    -B5                                                             DBGPHCT     1709     A     
 DBGPHCT            CALL   CONVERT                                                         DBGPHCT     1710     A     
 DBGPHCT            SA2    TEMP+3            SIGN OF IMAGINARY PART                        DBGPHCT     1711     A     
 DBGPHCT            BX6    X1-X2                                                           DBGPHCT     1712     A     
 DBGPHCT            SA6    TEMP+1                                                          DBGPHCT     1713     A     
 DBGPHCT            SA1    A6-B5             REAL PART                                     DBGPHCT     1714     A     
 DBGPHCT            BX2    X6                                                              DBGPHCT     1715     A     
 DBGPHCT            SX7    B5                                                              DBGPHCT     1716     A     
 DBGPHCT            SA7    WORDS                                                           DBGPHCT     1717     A     
 DBGPHCT            SX6    T.CPLX                                                          DBGPHCT     1718     A     
 DBGPHCT            SA6    CONTYPE           SET TYPE                                      DBGPHCT     1719     A     
 DBGPHCT            EQ     DCONV4                                                          DBGPHCT     1720     A     
 DBGPHCT            EJECT                                                                  DBGPHCT     1721     A     
 DBGPHCT  ***                                                                              DBGPHCT     1722     A     
 DBGPHCT  *         CHC - CHECK HALF OF COMPLEX CONSTANT                                   DBGPHCT     1723     A     
 DBGPHCT  *                                                                                DBGPHCT     1724     A     
 DBGPHCT  *         ON ENTRY:                                                              DBGPHCT     1725     A     
 DBGPHCT  *                B6 = TWO WORD AREA TO STORE CONSTANT AND SIGN IN                DBGPHCT     1726     A     
 DBGPHCT  *                A4 = ITEM BEFORE CONSTANT                                       DBGPHCT     1727     A     
 DBGPHCT  *                                                                                DBGPHCT     1728     A     
 DBGPHCT  *         ON EXIT:                                                               DBGPHCT     1729     A     
 DBGPHCT  *                A4 POINTS PAST CONSTANT AND B2,X4 HOLD ELIST ITEM               DBGPHCT     1730     A     
 DBGPHCT  *                                                                                DBGPHCT     1731     A     
 DBGPHCT                                                                                   DBGPHCT     1732     A     
 DBGPHCT   CHC      SUBR                     ** ENTRY/EXIT **                              DBGPHCT     1733     A     
 DBGPHCT            NEXTE                                                                  DBGPHCT     1734     A     
 DBGPHCT            MX7    0                                                               DBGPHCT     1735     A     
 DBGPHCT            IF.EQ  CON,CHC2          IF A CONSTANT                                 DBGPHCT     1736     A     
 DBGPHCT            IF.EQ  EL.PLUS,CHC1      IF +                                          DBGPHCT     1737     A     
 DBGPHCT            MX7    60                                                              DBGPHCT     1738     A     
 DBGPHCT            IF.NE  EL.MINUS,DCONV.E  IF NOT -                                      DBGPHCT     1739     A     
 DBGPHCT   CHC1     NEXTE                                                                  DBGPHCT     1740     A     
 DBGPHCT            IF.NE  CON,DCONV.E       IF NOT A CONSTANT                             DBGPHCT     1741     A     
 DBGPHCT   CHC2     BX6    X4                                                              DBGPHCT     1742     A     
 DBGPHCT            AX1    45                                                              DBGPHCT     1743     A     
 DBGPHCT            SA6    B6                SAVE ELIST FOR CONSTANT                       DBGPHCT     1744     A     
 DBGPHCT            SA7    B6+B5             AND SIGN                                      DBGPHCT     1745     A     
 DBGPHCT            SX2    X1-T.REAL                                                       DBGPHCT     1746     A     
 DBGPHCT            NEXTE                                                                  DBGPHCT     1747     A     
 DBGPHCT            ZR     X2,EXIT.          IF TYPE REAL                                  DBGPHCT     1748     A     
 DBGPHCT            EQ     DCONV.E                                                         DBGPHCT     1749     A     
 DBGPHCT            TITLE              ADDGCON - ADD A WORD TO GLOBAL CON TABLE            DBGPHCT     1750     A     
 DBGPHCT  ***                                                                              DBGPHCT     1751     A     
 DBGPHCT  *         ADDGCON - ADD A WORD TO THE GLOBAL CON TABLE                           DBGPHCT     1752     A     
 DBGPHCT  *                                                                                DBGPHCT     1753     A     
 DBGPHCT  *         ON ENTRY:                                                              DBGPHCT     1754     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3762    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT  *                X1 = WORD TO BE ADDED                                           DBGPHCT     1755     A     
 DBGPHCT  *                                                                                DBGPHCT     1756     A     
 DBGPHCT                                                                                   DBGPHCT     1757     A     
 DBGPHCT   ADDGCON1 IX0    X2+X3                                                           DBGPHCT     1758     A     
 DBGPHCT            SX7    X3+B5             LEN = LEN+1                                   DBGPHCT     1759     A     
 DBGPHCT            SA6    X0                STORE WORD                                    DBGPHCT     1760     A     
 DBGPHCT            SA7    A3                                                              DBGPHCT     1761     A     
 DBGPHCT                                                                                   DBGPHCT     1762     A     
 DBGPHCT   ADDGCON  SUBR                     ** ENTRY/EXIT **                              DBGPHCT     1763     A     
 DBGPHCT            SA3    =XL.GCON          TABLE LENGTH                                  DBGPHCT     1764     A     
 DBGPHCT            SA2    =XO.GCON          TABLE FWA                                     DBGPHCT     1765     A     
 DBGPHCT            SX7    X3-S.GCON                                                       DBGPHCT     1766     A     
 DBGPHCT            BX6    X1                                                              DBGPHCT     1767     A     
 DBGPHCT            MI     X7,ADDGCON1       IF TABLE NOT FULL                             DBGPHCT     1768     A     
 DBGPHCT            SA5    GCONF             OVERFLOW-MSG-ISSUED FLAG                      DBGPHCT     1769     A     
 DBGPHCT            NZ     X5,ADDGCON2       IF WE ISSUED IT ALREADY                       DBGPHCT     1770     A     
 DBGPHCT            MX6    1                                                               DBGPHCT     1771     A     
 DBGPHCT            SA6    A5                SET FLAG                                      DBGPHCT     1772     A     
 DBGPHCT            SA1    =C/GLOBAL CON TABLE OVERFLOW/                                   DBGPHCT     1773     A     
 DBGPHCT            CALL   DBGERR                                                          DBGPHCT     1774     A     
 DBGPHCT   ADDGCON2 SX1    1S14                                                            DBGPHCT     1775     A     
 DBGPHCT            EQ     DCONVX                                                          DBGPHCT     1776     A     
 DBGPHCT                                                                                   DBGPHCT     1777     A     
 DBGPHCT                                                                                   DBGPHCT     1778     A     
 DBGPHCT                                                                                   DBGPHCT     1779     A     
 DBGPHCT   GCONF    BSSZ   1           .NZ. IF *GCON* OVERFLOW                             DBGPHCT     1780     A     
 DBGPHCT            TITLE              SRCH - SEARCH A CON TABLE                           DBGPHCT     1781     A     
 DBGPHCT  ***                                                                              DBGPHCT     1782     A     
 DBGPHCT  *         SRCH - SEARCH A CON TABLE FOR A MATCH                                  DBGPHCT     1783     A     
 DBGPHCT  *                                                                                DBGPHCT     1784     A     
 DBGPHCT  *         ON ENTRY:                                                              DBGPHCT     1785     A     
 DBGPHCT  *                X0 = FLAG ( 0 OR 1S14 )                                         DBGPHCT     1786     A     
 DBGPHCT  *                X1,X2 = WORDS 1 AND 2 OF CONSTANT                               DBGPHCT     1787     A     
 DBGPHCT  *                X4,X5 = FWA AND LENGTH OF CON TABLE                             DBGPHCT     1788     A     
 DBGPHCT  *                                                                                DBGPHCT     1789     A     
 DBGPHCT  *         ON EXIT:                                                               DBGPHCT     1790     A     
 DBGPHCT  *                IF A MATCH IS FOUND, THEN                                       DBGPHCT     1791     A     
 DBGPHCT  *                 B2 .LT. 0 AND X1 = FLAG+ORDINAL                                DBGPHCT     1792     A     
 DBGPHCT  *                ELSE                                                            DBGPHCT     1793     A     
 DBGPHCT  *                 B2 .GE. 0 AND (TEMP+2) = FLAG+LENGTH OF TABLE                  DBGPHCT     1794     A     
 DBGPHCT  *                AND X1,X2 INTACT                                                DBGPHCT     1795     A     
 DBGPHCT  *                                                                                DBGPHCT     1796     A     
 DBGPHCT                                                                                   DBGPHCT     1797     A     
 DBGPHCT   SRCHX    SX1    X0+B1                                                           DBGPHCT     1798     A     
 DBGPHCT            SB2    -B5                                                             DBGPHCT     1799     A     
 DBGPHCT   SRCH                                                                            DBGPHCT     1800     A     
 DBGPHCT            SA3    WORDS                                                           DBGPHCT     1801     A     
 DBGPHCT            SB6    X3                WORD COUNT - 1                                DBGPHCT     1802     A     
 DBGPHCT            SA3    X4                X3 = CURRENT WORD                             DBGPHCT     1803     A     
 DBGPHCT            SB2    X5                B2 = TABLE LENGTH                             DBGPHCT     1804     A     
 DBGPHCT            IX6    X0+X5                                                           DBGPHCT     1805     A     
 DBGPHCT            SB1    -B5               INITIALIZE INDEX                              DBGPHCT     1806     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3763    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DBGPHCT 
  
 DBGPHCT   SRCH1    SB1    B1+B5                                                           DBGPHCT     1807     A     
 DBGPHCT            BX7    X1-X3             WORD 1 - TABLE ENTRY                          DBGPHCT     1808     A     
 DBGPHCT            GE     B1,B2,SRCH2       IF END OF THE TABLE                           DBGPHCT     1809     A     
 DBGPHCT            SA3    A3+B5                                                           DBGPHCT     1810     A     
 DBGPHCT            NZ     X7,SRCH1          IF NO HIT                                     DBGPHCT     1811     A     
 DBGPHCT            NG     X7,SRCH1          IF COMPLEMENTS                                DBGPHCT     1812     A     
 DBGPHCT            ZR     B6,SRCHX          IF ONLY 1 WORD                                DBGPHCT     1813     A     
 DBGPHCT            SB3    B1+B5                                                           DBGPHCT     1814     A     
 DBGPHCT            BX7    X2-X3             WORD 2 - TABLE ENTRY                          DBGPHCT     1815     A     
 DBGPHCT            GE     B3,B2,SRCH2       IF END OF THE TABLE                           DBGPHCT     1816     A     
 DBGPHCT            NZ     X7,SRCH1          IF NO HIT                                     DBGPHCT     1817     A     
 DBGPHCT            PL     X7,SRCHX          IF NOT COMPLEMENTS                            DBGPHCT     1818     A     
 DBGPHCT            EQ     SRCH1                                                           DBGPHCT     1819     A     
 DBGPHCT                                                                                   DBGPHCT     1820     A     
 DBGPHCT  *         NOT FOUND EXIT                                                         DBGPHCT     1821     A     
 DBGPHCT                                                                                   DBGPHCT     1822     A     
 DBGPHCT   SRCH2    SA6    TEMP+2            SAVE FLAG+ORDINAL                             DBGPHCT     1823     A     
 DBGPHCT            EQ     SRCH                                                            DBGPHCT     1824     A     
 DBGPHCT            SPACE  4                                                               DBGPHCT     1825     A     
 DBGPHCT            LIST   D                                                               DBGPHCT     1826     A     
 DBGPHCT            END                                                                    DBGPHCT     1827     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DBGPHCT 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DBGPHCT                   1827      1730
          FEAT121L                    37        37
          FCC0618                      5         5
          FCC0761                      6         6
          FCC0937                     20        20
          FCC1117X                     2         2
          FCC1469X                     8         6
          FCCT006X                    24        23
          FCC1843X                     9         9
          FCC1851                      1         1
          FCC1852                      3         3
          FCC1954                     12        12
          FCC2053                      7         7
          F2950F4                      3         3
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN OUTPK24 
  
 OUTPK24  *DECK OUTPK24                                                                    OUTPK24        1     A     
 OUTPK24            IDENT  OUTPK24                                                         OUTPK24        2     A     
 OUTPK24   B=OPK24  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             OUTPK24        3     A     
 OUTPK24  *CALL,SSTCALL                                                                    OUTPK24        4     A     
 OUTPK24   .TEST    IFEQ   TEST,0                                                          OUTPK24        5     A     
 OUTPK24  *CALL OUTPTK                                                                     OUTPK24        6     A     
 OUTPK24   .TEST    ENDIF                                                                  OUTPK24        7     A     
 OUTPK24            END                                                                    OUTPK24        8     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3764    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - OUTPK24 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          OUTPK24                      8         8
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUT     
  
 PUT      *DECK,PUT                                                                        PUT            1     A     
 PUT            SUBROUTINE PUT                                                             PUT            2     A     
 PUT      C                                                                                PUT            3     A     
 PUT      C  THIS SUBROUTINE SEARCHES A LIST FOR THE CURRENT LINE OR STATEMENT             PUT            4     A     
 PUT      C  NUMBER.  THE NUMBER IS ENTERED IN THE LIST IF SO DESIGNATED.                  PUT            5     A     
 PUT      C  ENTRY: NEXT = THE BEGINNING ADDRESS OF THE LIST TO BE SEARCHED                PUT            6     A     
 PUT      C         ITEM = THE LINE OR STATEMENT NUMBER, RIGHT JUSTIFIED                   PUT            7     A     
 PUT      C         TO FM = 0 IF TO LIST                                                   PUT            8     A     
 PUT      C               = 1 IF FROM LIST                                                 PUT            9     A     
 PUT      C         BD ADD = THE ADDRESS OF THE BOUND TO BE ADDED                          PUT           10     A     
 PUT      C                = 0 IF NO ENTRY TO BE MADE                                      PUT           11     A     
 PUT      C         SAREA = THE BEGINNING ADDRESS OF THE AREA LIST                         PUT           12     A     
 PUT      C  EXIT:  NEXT = THE ADDRESS OF THE LINE OR STATEMENT NUMBER, IF FOUND           PUT           13     A     
 PUT      C              = 0 ELSE                                                          PUT           14     A     
 PUT      C                                                                                PUT           15     A     
 PUT      *CALL FDBGCOM                                                                    PUT           16     A     
 PUT         60 NEXT1 = NEXT                                                               PUT           17     A     
 PUT            N FIELD = 2                                                                PUT           18     A     
 PUT            IF (TO FM .EQ. 1) GO TO 10                                                 PUT           19     A     
 PUT            N FIELD = SHIFT(DEBUG(SAREA+NEXT-2),-23).AND.3                             PUT           20     A     
 PUT         10 IF ((SHIFT(DEBUG(SAREA+NEXT+N FIELD) , TOFM* 30) .AND.                     PUT           21     A     
 PUT           ,    SHIFT(MASK(30),30))                                                    PUT           22     A     
 PUT           ,    - ITEM) 20, 50, 40                                                     PUT           23     A     
 PUT         20 NEXT = ADDRESS(DEBUG(SAREA+NEXT))                                          PUT           24     A     
 PUT            IF (NEXT.NE.0) GO TO 60                                                    PUT           25     A     
 PUT            DEBUG(SAREA+NEXT1) = DEBUG(SAREA+NEXT1) .OR. BD ADD                        PUT           26     A     
 PUT            RETURN                                                                     PUT           27     A     
 PUT         40 NEXT = ADDRESS(SHIFT(DEBUG(SAREA+NEXT),20))                                PUT           28     A     
 PUT            IF (NEXT.NE.0) GO TO 60                                                    PUT           29     A     
 PUT            DEBUG(SAREA+NEXT1) = DEBUG(SAREA+NEXT1) .OR. SHIFT(BD ADD, 40)             PUT           30     A     
 PUT            RETURN                                                                     PUT           31     A     
 PUT         50 IF (BDADD.EQ.0) RETURN                                                     PUT           32     A     
 PUT            IF (BDADD.EQ.NEXT1) RETURN                                                 PUT           33     A     
 PUT         80 NEXT1 = NEXT                                                               PUT           34     A     
 PUT            NEXT = ADDRESS(SHIFT(DEBUG(SAREA+NEXT),-20))                               PUT           35     A     
 PUT            IF (NEXT.NE.0) GO TO 80                                                    PUT           36     A     
 PUT            DEBUG(SAREA+NEXT1) = DEBUG(SAREA+NEXT1).OR.SHIFT(BD ADD, 20)               PUT           37     A     
 PUT            RETURN                                                                     PUT           38     A     
 PUT            END                                                                        PUT           39     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PUT     
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PUT                         39        39
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3765    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUT     
  
0 
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUTUPDT 
  
 PUTUPDT  *DECK,PUTUPDT                                                                    PUTUPDT        1     A     
 PUTUPDT        SUBROUTINE PUT UPDT                                                        PUTUPDT        2     A     
 PUTUPDT  C                                                                                PUTUPDT        3     A     
 PUTUPDT  C  THIS SUBROUTINE SEARCHES THE UPDATE -FROM- LIST FOR AN UPDATE                 PUTUPDT        4     A     
 PUTUPDT  C  IDENTIFIER. THE IDENTIFIER IS ENTERED IN THE LIST IF SO DESIGNATED.           PUTUPDT        5     A     
 PUTUPDT  C                                                                                PUTUPDT        6     A     
 PUTUPDT  C  ENTRY: NEXT = THE BEGINNING ADDRESS OF THE UPDATE -FROM- LIST LEFT            PUTUPDT        7     A     
 PUTUPDT  C  JUSTIFIED IN BITS 59-41                                                       PUTUPDT        8     A     
 PUTUPDT  C         CUR UP DT (1) = THE CURRENT UPDATE NAME, LEFT JUSTIFIED                PUTUPDT        9     A     
 PUTUPDT  C         CUR UP DT (2) = THE CURRENT UPDATE NUMBER, LEFT JUSTIFIED              PUTUPDT       10     A     
 PUTUPDT  C         NXT ITEM = -1, IF  -TO-  BOUND TO BE ADDED                             PUTUPDT       11     A     
 PUTUPDT  C                  =  0, IF   NO   BOUND TO BE ADDED                             PUTUPDT       12     A     
 PUTUPDT  C                  =  1, IF -FROM- BOUND TO BE ADDED                             PUTUPDT       13     A     
 PUTUPDT  C         BD ADD = THE ADDRESS OF THE BOUND TO BE ADDED                          PUTUPDT       14     A     
 PUTUPDT  C  EXIT:  NEXT = THE ADDRESS OF THE UPDATE IDENTIFIER, IF FOUND                  PUTUPDT       15     A     
 PUTUPDT  C              = 0 ELSE                                                          PUTUPDT       16     A     
 PUTUPDT  C         N FIELD   =  0 IF FROM BOUND                                           PUTUPDT       17     A     
 PUTUPDT  C                 .NE. 0 IF  TO  BOUND                                           PUTUPDT       18     A     
 PUTUPDT  *CALL FDBGCOM                                                                    PUTUPDT       19          I
          -FCC0937
 PUTUPDT  *CALL LDBGCOM                                                                    FCC0937       31     A     
 PUTUPDT        IF (SCNUPDT .EQ. 0) GO TO 18                                               PUTUPDT       20     A     
 PUTUPDT        NXT ITEM = 0                                                               PUTUPDT       21     A     
 PUTUPDT        NEXT = SHIFT(ADDRESS(FM LIST), 42)                                         PUTUPDT       22     A     
 PUTUPDT     18 IF (DFPACK .EQ. 0) GO TO 16                                                PUTUPDT       23     A     
 PUTUPDT        LINE DIS = SHIFT(CUR UP DT(2), 6)                                          PUTUPDT       24     A     
 PUTUPDT        IJK = 0                                                                    PUTUPDT       25     A     
 PUTUPDT        IK = 0                                                                     PUTUPDT       26     A     
 PUTUPDT        DO 12 IJ = 1,5                                                             PUTUPDT       27     A     
 PUTUPDT        LINE DIS = SHIFT(LINE DIS, 6)                                              PUTUPDT       28     A     
 PUTUPDT        IN LINE = LINEDIS .AND. 77B                                                PUTUPDT       29     A     
 PUTUPDT        IF( IN LINE .EQ. 1R ) GO TO 14                                             PUTUPDT       30     A     
 PUTUPDT        IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+)) GO TO 13                   PUTUPDT       31     A     
 PUTUPDT        IJK = 1                                                                    PUTUPDT       32     A     
 PUTUPDT        GO TO 12                                                                   PUTUPDT       33     A     
 PUTUPDT     14 IF (IJK .EQ. 1) GO TO 13                                                   PUTUPDT       34     A     
 PUTUPDT        LINE DIS = (LINE DIS .AND. MASK(54)) .OR. 1R0                              PUTUPDT       35     A     
 PUTUPDT        IK = IK +1                                                                 PUTUPDT       36     A     
 PUTUPDT     12 CONTINUE                                                                   PUTUPDT       37     A     
 PUTUPDT        IF (IK .EQ. 5) GO TO 13                                                    PUTUPDT       38     A     
 PUTUPDT        CUR UP DT(2) = SHIFT(LINE DIS, 24)                                         PUTUPDT       39     A     
 PUTUPDT     16 IF (NEXT) 10, 20, 30                                                       PUTUPDT       40     A     
 PUTUPDT     10 NEXT = SHIFT(NEXT, 18)                                                     PUTUPDT       41     A     
 PUTUPDT        NEXT = SHIFT(MASK(18),18) - NEXT                                           PUTUPDT       42     A     
 PUTUPDT        NEXT1 = NEXT                                                               PUTUPDT       43     A     
 PUTUPDT        N FIELD = SHIFT(DEBUG(SAREA+NEXT-2), -23).AND.3                            PUTUPDT       44     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3766    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUTUPDT 
  
 PUTUPDT        IF ((SHIFT(CUR UP DT(1),30) .AND. (SHIFT(MASK(30), 30)) )                  PUTUPDT       45     A     
 PUTUPDT       ,   - (DEBUG(SAREA+NEXT+NFIELD-1) .AND. (SHIFT(MASK(30), 30)) ))            PUTUPDT       46     A     
 PUTUPDT       ,                                                     40, 50, 60            PUTUPDT       47     A     
 PUTUPDT     40 NEXT = SHIFT(DEBUG(SAREA+NEXT),2).AND. MASK(18)                            PUTUPDT       48     A     
 PUTUPDT        IF (NEXT) 10, 70, 30                                                       PUTUPDT       49     A     
 PUTUPDT     60 NEXT = SHIFT(ADDRESS(DEBUG(SAREA+NEXT)),42)                                PUTUPDT       50     A     
 PUTUPDT        IF (NEXT) 10, 80, 30                                                       PUTUPDT       51     A     
 PUTUPDT     50 IF (((SHIFT(CUR UP DT(1), 30) .AND. MASK(18)) .OR.                         PUTUPDT       52     A     
 PUTUPDT       ,     (SHIFT(CUR UP DT(2),-18) .AND. SHIFT(MASK(42), 42))) -                PUTUPDT       53     A     
 PUTUPDT       ,    DEBUG(SAREA + NEXT + NFIELD)) 40, 90, 60                               PUTUPDT       54     A     
 PUTUPDT     70 IF (NXT ITEM) 100, 110, 120                                                PUTUPDT       55     A     
 PUTUPDT    100 BD ADD = SHIFT(MASK(18),18) - BD ADD                                       PUTUPDT       56     A     
 PUTUPDT    120 DEBUG(SAREA+NEXT1) = DEBUG(SAREA+NEXT1) .OR. SHIFT(BD ADD, 40)             PUTUPDT       57     A     
 PUTUPDT    110 RETURN                                                                     PUTUPDT       58     A     
 PUTUPDT     80 IF (NXT ITEM) 130, 140, 150                                                PUTUPDT       59     A     
 PUTUPDT    130 BD ADD = SHIFT(MASK(18),18) - BD ADD                                       PUTUPDT       60     A     
 PUTUPDT    150 DEBUG(SAREA+NEXT1) = DEBUG(SAREA+NEXT1) .OR. BD ADD                        PUTUPDT       61     A     
 PUTUPDT    140 RETURN                                                                     PUTUPDT       62     A     
 PUTUPDT                                                                                   PUTUPDT       63     A     
 PUTUPDT                                                                                   PUTUPDT       64     A     
 PUTUPDT                                                                                   PUTUPDT       65     A     
 PUTUPDT     90 IF (SCNUPDT .EQ. 0) GO TO 91                                               PUTUPDT       66     A     
 PUTUPDT        IF (COUNTUP .EQ. 20) GO TO 94                                              PUTUPDT       67     A     
 PUTUPDT        COUNTUP = COUNTUP + 1                                                      PUTUPDT       68     A     
 PUTUPDT        UPDTTBL(COUNTUP) = CUR UP DT(1)                                            PUTUPDT       69     A     
 PUTUPDT        COUNTUP = COUNTUP + 1                                                      PUTUPDT       70     A     
 PUTUPDT        UPDTTBL(COUNTUP) = CUR UP DT(2)                                            PUTUPDT       71     A     
 PUTUPDT        RETURN                                                                     PUTUPDT       72     A     
 PUTUPDT                                                                                   PUTUPDT       73     A     
 PUTUPDT                                                                                   PUTUPDT       74     A     
 PUTUPDT                                                                                   PUTUPDT       75     A     
 PUTUPDT     94 SCNUPDT = -1                                                               PUTUPDT       76     A     
 PUTUPDT        RETURN                                                                     PUTUPDT       77     A     
 PUTUPDT                                                                                   PUTUPDT       78     A     
 PUTUPDT                                                                                   PUTUPDT       79     A     
 PUTUPDT                                                                                   PUTUPDT       80     A     
 PUTUPDT     91 IF (NXT ITEM .EQ. 0) RETURN                                                PUTUPDT       81     A     
 PUTUPDT                                                                                   PUTUPDT       82     A     
 PUTUPDT                                                                                   PUTUPDT       83     A     
 PUTUPDT                                                                                   PUTUPDT       84     A     
 PUTUPDT    160 NEXT = SHIFT(ADDRESS(DEBUG(SAREA+NEXT)), 22)                               PUTUPDT       85     A     
 PUTUPDT        IF (NEXT) 170, 180, 190                                                    PUTUPDT       86     A     
 PUTUPDT    170 NEXT = SHIFT(NEXT, 18)                                                     PUTUPDT       87     A     
 PUTUPDT        NEXT = SHIFT(MASK(18),18) - NEXT                                           PUTUPDT       88     A     
 PUTUPDT        NEXT1 = NEXT                                                               PUTUPDT       89     A     
 PUTUPDT        GO TO 160                                                                  PUTUPDT       90     A     
 PUTUPDT    190 NEXT = SHIFT(NEXT, 18)                                                     PUTUPDT       91     A     
 PUTUPDT        NEXT1 = NEXT                                                               PUTUPDT       92     A     
 PUTUPDT        GO TO 160                                                                  PUTUPDT       93     A     
 PUTUPDT    180 IF (NXT ITEM) 195, 210, 200                                                PUTUPDT       94     A     
 PUTUPDT    195 BD ADD = SHIFT(MASK(18),18) - BD ADD                                       PUTUPDT       95     A     
 PUTUPDT    200 DEBUG(SAREA+NEXT1) = DEBUG(SAREA+NEXT1).OR.SHIFT(BD ADD, 20)               PUTUPDT       96     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3767    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUTUPDT 
  
 PUTUPDT    210 RETURN                                                                     PUTUPDT       97     A     
 PUTUPDT     30 NEXT = SHIFT(NEXT, 18)                                                     PUTUPDT       98     A     
 PUTUPDT        NEXT1 = NEXT                                                               PUTUPDT       99     A     
 PUTUPDT        N FIELD = 0                                                                PUTUPDT      100     A     
 PUTUPDT        IF (((CUR UP DT(1) .AND..NOT. MINZERO) .OR.                                PUTUPDT      101     A     
 PUTUPDT       ,    (SHIFT(CUR UP DT(2), 12) .AND. MINZERO))-                              PUTUPDT      102     A     
 PUTUPDT       ,    DEBUG(SAREA + NEXT + 2)) 40, 300, 60                                   PUTUPDT      103     A     
 PUTUPDT    300 IF ((SHIFT(CUR UP DT(2),12) .AND. MASK(30)) -                              PUTUPDT      104     A     
 PUTUPDT       ,    (DEBUG(SAREA + NEXT + 3) .AND. MASK(30)) )                             PUTUPDT      105     A     
 PUTUPDT       ,    40,  90, 60                                                            PUTUPDT      106     A     
 PUTUPDT     20 IF (NXT ITEM) 310, 320, 330                                                PUTUPDT      107     A     
 PUTUPDT    310 BD ADD = SHIFT(MASK(18),18) - BD ADD                                       PUTUPDT      108     A     
 PUTUPDT    330 FM LIST = FM LIST .OR. BD ADD                                              PUTUPDT      109     A     
 PUTUPDT    320 RETURN                                                                     PUTUPDT      110     A     
 PUTUPDT     13 IF (SCNUPDT .NE. 0) RETURN                                                 PUTUPDT      111     A     
 PUTUPDT        NEXT = 0                                                                   PUTUPDT      112     A     
 PUTUPDT        RETURN                                                                     PUTUPDT      113     A     
 PUTUPDT        END                                                                        PUTUPDT      114     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PUTUPDT 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PUTUPDT                    114       113
          FCC0937                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGACT  
  
 BUGACT   *DECK,BUGACT                                                                     BUGACT         1     A     
 BUGACT         SUBROUTINE BUGACT                                                          BUGACT         2     A     
 BUGACT   C                                                                                BUGACT         3     A     
 BUGACT   C  THIS SUBROUTINE IS CALLED BEFORE AND AFTER THE PROCESSING OF EACH             BUGACT         4     A     
 BUGACT   C  EXECUTABLE STATEMENT BY PS1CTL$.  IT IN TURN CALLS -PUT- AND                  BUGACT         5     A     
 BUGACT   C  -PUT UPDT- TO SEARCH FOR A LINE NUMBER, STATEMENT NUMBER, OR UPDATE           BUGACT         6     A     
 BUGACT   C  IDENTIFIER MATCH.  IF FOUND, EITHER -TURN ON- OR -TURN OFF- IS CALLED         BUGACT         7     A     
 BUGACT   C  TO PROCESS THE OPTIONS LIST OR LISTS ASSOCIATED WITH THE STATEMENT.           BUGACT         8     A     
 BUGACT   C                                                                                BUGACT         9     A     
 BUGACT   C  ENTRY: DFON = 0 IF CALL IS BEFORE THE STATEMENT HAS BEEN PROCESSED            BUGACT        10     A     
 BUGACT   C              = 1 AFTERWARDS                                                    BUGACT        11     A     
 BUGACT   C         DUKE1 = THE LINE NUMBER OF THE STATEMENT IN BINARY                     BUGACT        12     A     
 BUGACT   C         CLABEL = THE STATEMENT NUMBER, IF ANY, OF THE STATEMENT,               BUGACT        13     A     
 BUGACT   C                  RIGHT JUSTIFIED IN DISPLAY CODE                               BUGACT        14     A     
 BUGACT   C         CUR UP DT (1) = THE UPDATE IDENTIFIER NAME, IF ANY, OF THE             BUGACT        15     A     
 BUGACT   C                         STATEMENT, LEFT JUSTIFIED IN DISPLAY CODE              BUGACT        16     A     
 BUGACT   C         CUR UP DT (2) = THE UPDATE IDENTIFIER NUMBER, IF ANY, OF THE           BUGACT        17     A     
 BUGACT   C                         STATEMENT, LEFT JUSTIFIED IN DISPLAY CODE              BUGACT        18     A     
 BUGACT   C         TO LIST = THE WORD CONTAINING THE BEGINNING ADDRESSES OF THE           BUGACT        19     A     
 BUGACT   C                   -T0- BOUND LISTS                                             BUGACT        20     A     
 BUGACT   C         FM LIST = THE WORD CONTAINING THE BEGINNING ADDRESSES OF THE           BUGACT        21     A     
 BUGACT   C                     -FROM- BOUND LISTS                                         BUGACT        22     A     
 BUGACT   C                                                                                BUGACT        23     A     
 BUGACT   *CALL FDBGCOM                                                                    BUGACT        24          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3768    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGACT  
  
          -FCC0937
 BUGACT   *CALL LDBGCOM                                                                    FCC0937       32     A     
 BUGACT         P ADD = 1                                                                  BUGACT        25     A     
 BUGACT         IF (DFON.NE.0) GO TO 10                                                    BUGACT        26     A     
 BUGACT         IF (FM LIST.EQ.0) GO TO 100                                                BUGACT        27     A     
 BUGACT         IF (ADDRESS(SHIFT(FM LIST, 20)).EQ.0) GO TO 20                             BUGACT        28     A     
 BUGACT         NEXT = ADDRESS(SHIFT(FM LIST, 20))                                         BUGACT        29     A     
 BUGACT         TO FM = 1                                                                  BUGACT        30     A     
 BUGACT         ITEM = DUKE1                                                               BUGACT        31     A     
 BUGACT         BD ADD = 0                                                                 BUGACT        32     A     
 BUGACT         CALL PUT                                                                   BUGACT        33     A     
 BUGACT         IF (NEXT.EQ.0) GO TO 20                                                    BUGACT        34     A     
 BUGACT      40 DFOPL = ADDRESS(DEBUG(SAREA+NEXT-1))                                       BUGACT        35     A     
 BUGACT         CALL TURNON                                                                BUGACT        36     A     
 BUGACT         NEXT = ADDRESS(SHIFT(DEBUG(SAREA+NEXT), -20))                              BUGACT        37     A     
 BUGACT         IF (NEXT.NE.0) GO TO 40                                                    BUGACT        38     A     
 BUGACT   C                                                                                BUGACT        39     A     
 BUGACT   C  HERE IF STATEMENT NUMBER FROM LIST                                            BUGACT        40     A     
 BUGACT   C                                                                                BUGACT        41     A     
 BUGACT      20 IF (ADDRESS(SHIFT(FM LIST, -20)).EQ.0) GO TO 70                            BUGACT        42     A     
 BUGACT         NEXT = ADDRESS(SHIFT(FM LIST, -20))                                        BUGACT        43     A     
 BUGACT         ITEM = CLABEL                                                              BUGACT        44     A     
 BUGACT         TO FM = 1                                                                  BUGACT        45     A     
 BUGACT         BD ADD = 0                                                                 BUGACT        46     A     
 BUGACT         CALL PUT                                                                   BUGACT        47     A     
 BUGACT         IF (NEXT.EQ.0) GO TO 70                                                    BUGACT        48     A     
 BUGACT      80 DFOPL = ADDRESS(DEBUG(SAREA+NEXT-1))                                       BUGACT        49     A     
 BUGACT         CALL TURNON                                                                BUGACT        50     A     
 BUGACT         NEXT = ADDRESS(SHIFT(DEBUG(SAREA+NEXT), -20))                              BUGACT        51     A     
 BUGACT         IF (NEXT.NE.0) GO TO 80                                                    BUGACT        52     A     
 BUGACT   C                                                                                BUGACT        53     A     
 BUGACT   C  HERE IF UPDATE IDENTIFIER TO OR FROM LIST                                     BUGACT        54     A     
 BUGACT   C                                                                                BUGACT        55     A     
 BUGACT      70 NEXT = SHIFT(ADDRESS(FM LIST), 42)                                         BUGACT        56     A     
 BUGACT         IF (NEXT.EQ.0) GO TO 100                                                   BUGACT        57     A     
 BUGACT         NXT ITEM = 0                                                               BUGACT        58     A     
 BUGACT         CALL PUT UPDT                                                              BUGACT        59     A     
 BUGACT         IF (NEXT.EQ.0) GO TO 100                                                   BUGACT        60     A     
 BUGACT         IF (DFON.NE.0) GO TO 150                                                   BUGACT        61     A     
 BUGACT         IF ( N FIELD .NE. 0) GO TO 130                                             BUGACT        62     A     
 BUGACT     120 DFOPL = ADDRESS(DEBUG(SAREA+NEXT-1))                                       BUGACT        63     A     
 BUGACT         CALL TURNON                                                                BUGACT        64     A     
 BUGACT     130 NEXT = SHIFT((SHIFT(DEBUG(SAREA+NEXT),20) .AND.                            BUGACT        65     A     
 BUGACT        ,       SHIFT(MASK(18), 60-2) ), 2)                                         BUGACT        66     A     
 BUGACT         IF (NEXT) 90, 100, 110                                                     BUGACT        67     A     
 BUGACT      90 NEXT = SHIFT(NEXT,18)                                                      BUGACT        68     A     
 BUGACT         NEXT = SHIFT(MASK(18),18) - NEXT                                           BUGACT        69     A     
 BUGACT         IF (DFON.EQ.0) 130, 160                                                    BUGACT        70     A     
 BUGACT     110 NEXT = SHIFT(NEXT, 18)                                                     BUGACT        71     A     
 BUGACT         IF (DFON .EQ. 0) 120, 130                                                  BUGACT        72     A     
 BUGACT     150 IF (N FIELD .EQ. 0) GO TO 130                                              BUGACT        73     A     
 BUGACT     160 DFOPL = ADDRESS(DEBUG(SAREA+NEXT-2))                                       BUGACT        74     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3769    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGACT  
  
 BUGACT         CALL TURNOFF                                                               BUGACT        75     A     
 BUGACT         GO TO 130                                                                  BUGACT        76     A     
 BUGACT     100 P ADD = 0                                                                  BUGACT        77     A     
 BUGACT         RETURN                                                                     BUGACT        78     A     
 BUGACT   C  HERE IF WE MAY HAVE TO TURN OFF SOME OPTIONS                                  BUGACT        79     A     
 BUGACT   C                                                                                BUGACT        80     A     
 BUGACT      10 IF (TO LIST .EQ. 0) GO TO 70                                               BUGACT        81     A     
 BUGACT         IF (ADDRESS(SHIFT(TO LIST, 20)).EQ.0) GO TO 300                            BUGACT        82     A     
 BUGACT         NEXT = ADDRESS(SHIFT(TO LIST, 20))                                         BUGACT        83     A     
 BUGACT         TO FM = 0                                                                  BUGACT        84     A     
 BUGACT         ITEM = DUKE1                                                               BUGACT        85     A     
 BUGACT         BD ADD = 0                                                                 BUGACT        86     A     
 BUGACT         CALL PUT                                                                   BUGACT        87     A     
 BUGACT         IF (NEXT.EQ.0) GO TO 300                                                   BUGACT        88     A     
 BUGACT     310 DFOPL = ADDRESS(DEBUG(SAREA+NEXT-2))                                       BUGACT        89     A     
 BUGACT         CALL TURNOFF                                                               BUGACT        90     A     
 BUGACT         NEXT = ADDRESS(SHIFT(DEBUG(SAREA+NEXT), -20))                              BUGACT        91     A     
 BUGACT         IF (NEXT.NE.0) GO TO 310                                                   BUGACT        92     A     
 BUGACT     300 IF (ADDRESS(SHIFT(TO LIST, -20)).EQ.0) GO TO 70                            BUGACT        93     A     
 BUGACT   C                                                                                BUGACT        94     A     
 BUGACT   C  HERE IF WE MAY HAVE TO TURN OFF OPTIONS FOR STATEMENT NUMBERS                 BUGACT        95     A     
 BUGACT   C                                                                                BUGACT        96     A     
 BUGACT         NEXT = ADDRESS(SHIFT(TO LIST, -20))                                        BUGACT        97     A     
 BUGACT         ITEM = CLABEL                                                              BUGACT        98     A     
 BUGACT         TO FM = 0                                                                  BUGACT        99     A     
 BUGACT         BD ADD = 0                                                                 BUGACT       100     A     
 BUGACT         CALL PUT                                                                   BUGACT       101     A     
 BUGACT         IF (NEXT.EQ.0) GO TO 70                                                    BUGACT       102     A     
 BUGACT     320 DFOPL = ADDRESS(DEBUG(SAREA+NEXT-2))                                       BUGACT       103     A     
 BUGACT         CALL TURNOFF                                                               BUGACT       104     A     
 BUGACT         NEXT = ADDRESS(SHIFT(DEBUG(SAREA+NEXT), -20))                              BUGACT       105     A     
 BUGACT         IF (NEXT.NE.0) 320, 70                                                     BUGACT       106     A     
 BUGACT         END                                                                        BUGACT       107     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - BUGACT  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          BUGACT                     107       106
          FCC0937                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GETOUT  
  
 GETOUT   *DECK,GETOUT                                                                     GETOUT         1     A     
 GETOUT         SUBROUTINE GET OUT                                                         GETOUT         2     A     
 GETOUT   C                                                                                GETOUT         3     A     
 GETOUT   C  THIS SUBROUTINE OBTAINS THE NEXT 12-BIT FIELD FROM THE CURRENT                GETOUT         4     A     
 GETOUT   C  OPTIONS LIST AND RETURNS IT IN  OH.                                           GETOUT         5     A     
 GETOUT   C  ENTRY: DFOPL = THE ADDRESS OF THE CURRENT OPTION WORD IN THE OPTIONS          GETOUT         6     A     
 GETOUT   C                 LIST                                                           GETOUT         7     A     
 GETOUT   C         MULT = THE POINTER TO THE CURRENT FIELD IN THE OPTIONS LIST            GETOUT         8     A     
 GETOUT   C  EXIT:  OH = THE NEXT 12-BIT OPTION FIELD                                      GETOUT         9     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3770    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN GETOUT  
  
 GETOUT   C                                                                                GETOUT        10     A     
 GETOUT   *CALL FDBGCOM                                                                    GETOUT        11          I
          -FCC0937
 GETOUT   *CALL LDBGCOM                                                                    FCC0937       33     A     
 GETOUT         MULT = MULT - 1                                                            GETOUT        12     A     
 GETOUT         IF (MULT.GE.0) GO TO 10                                                    GETOUT        13     A     
 GETOUT         MULT = 4                                                                   GETOUT        14     A     
 GETOUT         DFOPL = DFOPL + 1                                                          GETOUT        15     A     
 GETOUT      10 OH = SHIFT(DEBUG(DFOPL) .AND. SHIFT(MINZERO, MULT*12),(5-MULT)*12)         GETOUT        16     A     
 GETOUT         RETURN                                                                     GETOUT        17     A     
 GETOUT         END                                                                        GETOUT        18     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - GETOUT  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          GETOUT                      18        17
          FCC0937                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TURNON  
  
 TURNON   *DECK,TURNON                                                                     TURNON         1     A     
 TURNON         SUBROUTINE TURNON                                                          TURNON         2     A     
 TURNON   C                                                                                TURNON         3     A     
 TURNON   C  THIS SUBROUTINE TRAVERSES AN OPTIONS LIST AND TURNS ON ALL LEGAL              TURNON         4     A     
 TURNON   C  OPTIONS THAT IT FINDS.  IT ALSO SETS UP THE ERROR FIELD IN THE FIRST          TURNON         5     A     
 TURNON   C  WORD OF THE ASSOCIATED B-CELL, IF NECESSARY.                                  TURNON         6     A     
 TURNON   C  ENTRY: DFOPL = THE ADDRESS OF THE BEGINNING OF THE OPTIONS LIST TO BE         TURNON         7     A     
 TURNON   C                 TRAVERSED                                                      TURNON         8     A     
 TURNON   C         P ADD = 0 IF INTERSPERSED OR FROM BUGCON                               TURNON         9     A     
 TURNON   C         P ADD = 1 IF IN PACKET                                                 TURNON        10     A     
 TURNON   C         NEXT = THE ADDRESS OF THE -FROM- BOUND IN THE ASSOCIATED               TURNON        11     A     
 TURNON   C                B-CELL                                                          TURNON        12     A     
 TURNON   C                                                                                TURNON        13     A     
 TURNON   *CALL FDBGCOM                                                                    TURNON        14          I
          -FCC0937
 TURNON   *CALL LDBGCOM                                                                    FCC0937       34     A     
 TURNON             IF(MISFLAG.LT.0 .OR. DFNOGO.LT.0) RETURN                               FCC0761       30     A     
 TURNON         IF ((P ADD .EQ. 0).OR.(DEBUG(SAREA+NEXT+1).GE.0)) GO TO 100                TURNON        15     A     
 TURNON   C                                                                                TURNON        16     A     
 TURNON   C  HERE IF -T0- FIELD OCCURRED BEFORE -FROM- FIELD                               TURNON        17     A     
 TURNON   C                                                                                TURNON        18     A     
 TURNON         DEBUG(SAREA+NEXT-1) =(DEBUG(SAREA+NEXT-1).AND.SHIFT(MASK(57),20))          TURNON        19     A     
 TURNON        ,    .OR. SHIFT(3, 20)                                                      TURNON        20     A     
 TURNON         DEBUG(SAREA+NEXT) = DEBUG(SAREA+NEXT) .OR. MASK(1)                         TURNON        21     A     
 TURNON         RETURN                                                                     TURNON        22     A     
 TURNON   C                                                                                TURNON        23     A     
 TURNON   C  HERE TO DETERMINE WHICH OPTION TO TURN ON                                     TURNON        24     A     
 TURNON     100 MULT = 5                                                                   TURNON        25     A     
 TURNON      10 CALL GET OUT                                                               TURNON        26     A     
 TURNON         IF (OH .EQ. 0) RETURN                                                      TURNON        27     A     
 TURNON         IF ( OH .EQ. MINZERO) GO TO 30                                             TURNON        28     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3771    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TURNON  
  
 TURNON         GO TO (1000, 2000, 3000, 4000, 5000, 6000, 7000, 8000) OH                  TURNON        29     A     
 TURNON   C                                                                                TURNON        30     A     
 TURNON   C  HERE IF THE ARRAYS OPTION IS TO BE TURNED ON                                  TURNON        31     A     
 TURNON   C                                                                                TURNON        32     A     
 TURNON    1000 CALL GET OUT                                                               TURNON        33     A     
 TURNON         IF ( (OH .EQ. 0) .OR. (OH .EQ. MINZERO) ) GO TO 1020                       TURNON        34     A     
 TURNON   C  HERE IF TURNING ON INDIVIDUAL ARRAYS                                          TURNON        35     A     
 TURNON    1080 SYMTABB = SSYMTAB - OH - 1                                                 TURNON        36     A     
 TURNON         IF ( (TYPE(DEBUG(SYMTAB B)) .EQ. DBGTYPE(1)) .AND.                         TURNON        37     A     
 TURNON        ,    BITOFF(DEBUG(SYMTAB B),IFBIT(1)) ) GO TO 1030                          TURNON        38     A     
 TURNON         IF (BITON(DEBUG(SSYMTAB - OH),DIMBIT(1)) .AND.                             TURNON        39     A     
 TURNON        ,     (TYPE(DEBUG(SYMTAB B)) .LT. CONTYPE(1))    )     GO TO 1030           TURNON        40     A     
 TURNON         IF (PHSFLAG .NE. 0) GO TO 1030                                             TURNON        41     A     
 TURNON         TEMP = FSTRIP(DEBUG(SSYMTAB - OH))                                         TURNON        42     A     
 TURNON         IF (DRLELT(TEMP) .EQ. DRLELT(VALUE) ) TEMP = DEBUG(DBGPROG)                TURNON        43     A     
 TURNON         WRITE(DBGOUT, 1040) TEMP                                                   TURNON        44     A     
 TURNON    1040 FORMAT( * AT THIS POINT THE ARRAYS OPTION IS ILLEGAL FOR *, A7)            TURNON        45     A     
 TURNON         GO TO 1050                                                                 TURNON        46     A     
 TURNON    1030 ASHIFT = 8                                                                 TURNON        47     A     
 TURNON         CALL SETARR,RETURNS(1050)                                                  TURNON        48     A     
 TURNON         DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .OR. PLACE(NOTBIT(1)) .OR.               TURNON        49     A     
 TURNON        ,   PLACE(ACBIT(1)) .OR. SHIFT(AASI,19)                                     TURNON        50     A     
 TURNON         DEBUG(SAASI+AASI) = DEBUG(SAASI+AASI) + 1                                  TURNON        51     A     
 TURNON    1050 CALL GET OUT                                                               TURNON        52     A     
 TURNON         IF ( (OH .NE. 0) .AND. (OH .NE. MINZERO) ) GO TO 1080                      TURNON        53     A     
 TURNON         IF (OH.EQ.0) 10, 30                                                        TURNON        54     A     
 TURNON   C                                                                                TURNON        55     A     
 TURNON   C  HERE IF ALL ARRAYS ARE TO BE TURNED ON                                        TURNON        56     A     
 TURNON   C                                                                                TURNON        57     A     
 TURNON    1020 ALLARR = ALLARR + 1                                                        TURNON        58     A     
 TURNON         IF (OH .EQ. 0) 10, 30                                                      TURNON        59     A     
 TURNON   C  HERE IF THE CALLS OPTION IS TO BE TURNED ON                                   TURNON        60     A     
 TURNON   C                                                                                TURNON        61     A     
 TURNON    2000 CALL GET OUT                                                               TURNON        62     A     
 TURNON         IF ( (OH .EQ. 0) .OR. (OH .EQ. MINZERO) ) GO TO 2010                       TURNON        63     A     
 TURNON   C                                                                                TURNON        64     A     
 TURNON   C  HERE IF TURNING ON INDIVIDUAL CALLS                                           TURNON        65     A     
 TURNON   C                                                                                TURNON        66     A     
 TURNON    2050 SYM TAB B = SSYMTAB-OH-1                                                   TURNON        67     A     
 TURNON         IF ( TYPE(DEBUG(SYMTAB B)) .EQ. DBGTYPE(1))           GO TO 2022           TURNON        68     A     
 TURNON         IF (BITON(DEBUG(SYMTAB B),EXTBIT(1)) .AND.                                 TURNON        69     A     
 TURNON        ,    BITOFF(DEBUG(SSYMTAB - OH),FUNCBIT(1)) .AND.                           TURNON        70     A     
 TURNON        ,    BITOFF(DEBUG(SYMTAB B),LASTBIT(1)) ) GO TO 2020                        TURNON        71     A     
 TURNON    2024 TEMP = FSTRIP(DEBUG(SSYMTAB - OH))                                         TURNON        72     A     
 TURNON         IF (DRLELT(TEMP) .EQ. DRLELT(VALUE) ) TEMP = DEBUG(DBGPROG)                TURNON        73     A     
 TURNON         WRITE(DBGOUT, 2030) TEMP                                                   TURNON        74     A     
 TURNON    2030 FORMAT( * AT THIS POINT THE CALLS OPTION IS ILLEGAL FOR *, A7)             TURNON        75     A     
 TURNON         GO TO 2040                                                                 TURNON        76     A     
 TURNON    2022 IF (BITOFF(DEBUG(SYMTAB B),NOTBIT(1))  ) GO TO 2020                        TURNON        77     A     
 TURNON         IF (BITOFF(DEBUG(SYMTAB B),IFBIT(1)) .OR.                                  TURNON        78     A     
 TURNON        ,    BITON(DEBUG(SYMTAB B),SFBIT(1))  .OR.                                  TURNON        79     A     
 TURNON        ,    BITON(DEBUG(SYMTAB B),LASTBIT(1)) ) GO TO 2024                         TURNON        80     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3772    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TURNON  
  
 TURNON    2020 DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .OR. PLACE(NOTBIT(1)) .OR.               TURNON        81     A     
 TURNON        ,    PLACE(IFBIT(1)) .OR. PLACE(ACBIT(1)) + INC FCNT(1)                     TURNON        82     A     
 TURNON    2040 CALL GET OUT                                                               TURNON        83     A     
 TURNON         IF ( (OH .NE. 0) .AND. (OH .NE. MINZERO) ) GO TO 2050                      TURNON        84     A     
 TURNON         IF (OH.EQ.0) 10, 30                                                        TURNON        85     A     
 TURNON   C                                                                                TURNON        86     A     
 TURNON   C  HERE IF ALL CALLS ARE TO BE TURNED ON                                         TURNON        87     A     
 TURNON   C                                                                                TURNON        88     A     
 TURNON    2010 ALLCALL = ALLCALL + 1                                                      TURNON        89     A     
 TURNON         IF (OH .EQ. 0) 10, 30                                                      TURNON        90     A     
 TURNON   C  HERE IF THE FUNCS OPTION IS TO BE TURNED ON                                   TURNON        91     A     
 TURNON   C                                                                                TURNON        92     A     
 TURNON    3000 CALL GET OUT                                                               TURNON        93     A     
 TURNON         IF ( ( OH .EQ. 0) .OR. (OH .EQ. MINZERO) ) GO TO 3010                      TURNON        94     A     
 TURNON   C                                                                                TURNON        95     A     
 TURNON   C  HERE IF TURNING ON INDIVIDUAL FUNCS                                           TURNON        96     A     
 TURNON    3050 SYMTAB B = SSYMTAB-OH-1                                                    TURNON        97     A     
 TURNON         IF ( TYPE(DEBUG(SYMTAB B)) .EQ. DBGTYPE(1))      GO TO 3022                TURNON        98     A     
 TURNON         IF (BITON(DEBUG(SYMTAB B),EXTBIT(1)) .AND.                                 TURNON        99     A     
 TURNON        ,    BITON(DEBUG(SSYMTAB - OH),FUNCBIT(1)) .AND.                            TURNON       100     A     
 TURNON        ,    BITOFF(DEBUG(SYMTAB B),LASTBIT(1)) ) GO TO 3020                        TURNON       101     A     
 TURNON         IF  (BITOFF(DEBUG(SSYMTAB-OH),DIMBIT(1)) .AND.                             TURNON       102     A     
 TURNON        ,    BITOFF(DEBUG(SSYMTAB-OH),COMBIT(1))  .AND.                             TURNON       103     A     
 TURNON        ,     BITOFF(DEBUG(SYMTAB B),ASFBIT(1))  .AND.                              TURNON       104     A     
 TURNON        ,     BITOFF(DEBUG(SSYMTAB-OH),EQUBIT(1)))  GO TO 3020                      TURNON       105     A     
 TURNON    3024 TEMP = FSTRIP(DEBUG(SSYMTAB - OH))                                         TURNON       106     A     
 TURNON         IF (DRLELT(TEMP) .EQ. DRLELT(VALUE) ) TEMP = DEBUG(DBGPROG)                TURNON       107     A     
 TURNON         WRITE(DBGOUT, 3030) TEMP                                                   TURNON       108     A     
 TURNON    3030 FORMAT( * AT THIS POINT THE FUNCS OPTION IS ILLEGAL FOR *, A7)             TURNON       109     A     
 TURNON         GO TO 3040                                                                 TURNON       110     A     
 TURNON    3022 IF (BITOFF(DEBUG(SYMTAB B),NOTBIT(1)) ) GO TO 3020                         TURNON       111     A     
 TURNON         IF (BITOFF(DEBUG(SYMTAB B),IFBIT(1)) .OR.                                  TURNON       112     A     
 TURNON        ,        BITON(DEBUG(SYMTAB B),ACBIT(1)) .OR.                               TURNON       113     A     
 TURNON        ,        BITON(DEBUG(SYMTAB B),LASTBIT(1)) ) GO TO 3024                     TURNON       114     A     
 TURNON    3020 DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .OR. PLACE(NOTBIT(1)) .OR.               TURNON       115     A     
 TURNON        ,    PLACE(IFBIT(1)) .OR. PLACE(SFBIT(1)) + INC FCNT(1)                     TURNON       116     A     
 TURNON    3040 CALL GET OUT                                                               TURNON       117     A     
 TURNON         IF ( (OH .NE. 0) .AND. (OH .NE. MINZERO) ) GO TO 3050                      TURNON       118     A     
 TURNON         IF (OH.EQ.0) 10, 30                                                        TURNON       119     A     
 TURNON   C                                                                                TURNON       120     A     
 TURNON   C  HERE IF ALL FUNCS ARE TO BE TURNED ON                                         TURNON       121     A     
 TURNON   C                                                                                TURNON       122     A     
 TURNON    3010 ALLFUNC = ALLFUNC + 1                                                      TURNON       123     A     
 TURNON         IF (OH .EQ. 0) 10, 30                                                      TURNON       124     A     
 TURNON   C                                                                                TURNON       125     A     
 TURNON   C  HERE IF THE GOTOS OPTION IS TO BE TURNED ON                                   TURNON       126     A     
 TURNON   C                                                                                TURNON       127     A     
 TURNON    4000 CALL GET OUT                                                               TURNON       128     A     
 TURNON         GO TOS FL = GO TOS FL + 1                                                  TURNON       129     A     
 TURNON         IF (OH.EQ.0) 10, 30                                                        TURNON       130     A     
 TURNON   C                                                                                TURNON       131     A     
 TURNON   C  HERE IF THE NO GO OPTION IS TO BE TURNED ON                                   TURNON       132     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3773    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TURNON  
  
 TURNON   C                                                                                TURNON       133     A     
 TURNON    5000 NOGOFLG = -1                                                               TURNON       134     A     
 TURNON         CALL GET OUT                                                               TURNON       135     A     
 TURNON         IF (OH.EQ.0) 10, 30                                                        TURNON       136     A     
 TURNON   C                                                                                TURNON       137     A     
 TURNON   C  HERE IF THE STORES OPTION IS TO BE TURNED ON                                  TURNON       138     A     
 TURNON   C                                                                                TURNON       139     A     
 TURNON    6000 CALL GET OUT                                                               TURNON       140     A     
 TURNON         IF (OH.EQ.0) GO TO 10                                                      TURNON       141     A     
 TURNON         IF (OH .EQ. MINZERO) GO TO 30                                              TURNON       142     A     
 TURNON         SYMTAB B = SSYMTAB-OH-1                                                    TURNON       143     A     
 TURNON         IF ( (TYPE(DEBUG(SYMTAB B)) .EQ. DBGTYPE(1)) . AND.                        TURNON       144     A     
 TURNON        ,    BITOFF(DEBUG(SYMTAB B),IFBIT(1)) ) GO TO 6010                          TURNON       145     A     
 TURNON         IF ( ( TYPE(DEBUG(SYMTAB B)) .LT. CONTYPE(1)) .AND.                        TURNON       146     A     
 TURNON        ,    BITOFF(DEBUG(SYMTAB B),EXTBIT(1)) .AND.                                TURNON       147     A     
 TURNON        ,    BITOFF(DEBUG(SYMTAB B),ASFBIT(1)) ) GO TO 6010                         TURNON       148     A     
 TURNON         TEMP = FSTRIP(DEBUG(SSYMTAB - OH))                                         TURNON       149     A     
 TURNON         IF (DRLELT(TEMP) .EQ. DRLELT(VALUE) ) TEMP = DEBUG(DBGPROG)                TURNON       150     A     
 TURNON         WRITE(DBGOUT, 6020) TEMP                                                   TURNON       151     A     
 TURNON    6020 FORMAT( * AT THIS POINT THE STORES OPTION IS ILLEGAL FOR *, A7)            TURNON       152     A     
 TURNON         GO TO 6000                                                                 TURNON       153     A     
 TURNON    6010 ASHIFT = 38                                                                TURNON       154     A     
 TURNON         CALL SETARR, RETURNS(6000)                                                 TURNON       155     A     
 TURNON         DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .OR. PLACE(NOTBIT(1)) .OR.               TURNON       156     A     
 TURNON        ,   PLACE(SFBIT(1))                                                         TURNON       157     A     
 TURNON        ,    .OR. SHIFT(AASI, 19)                                                   TURNON       158     A     
 TURNON         DEBUG(SAASI+AASI) = DEBUG(SAASI+AASI)+SHIFT(1,30)                          TURNON       159     A     
 TURNON         GO TO 6000                                                                 TURNON       160     A     
 TURNON   C                                                                                TURNON       161     A     
 TURNON   C  HERE IF THE STORES OPTION WITH RELATIONAL OPERATORS IS TO BE TURNED           TURNON       162     A     
 TURNON   C                                 ON                                             TURNON       163     A     
 TURNON   C                                                                                TURNON       164     A     
 TURNON    7000 MULT = 0                                                                   TURNON       165     A     
 TURNON         CALL GET OUT                                                               TURNON       166     A     
 TURNON         IF (OH.EQ.0) GO TO 10                                                      TURNON       167     A     
 TURNON         IF (OH .EQ. MINZERO) GO TO 30                                              TURNON       168     A     
 TURNON         SYMTAB B = SSYMTAB-OH-1                                                    TURNON       169     A     
 TURNON         IF ( (TYPE(DEBUG(SYMTAB B)) .EQ. DBGTYPE(1)) .AND.                         TURNON       170     A     
 TURNON        ,    BITOFF(DEBUG(SYMTAB B),IFBIT(1)) .AND.                                 TURNON       171     A     
 TURNON        ,    BITOFF(DEBUG(DFOPL),LST S BIT(1)) ) GO TO 7010                         TURNON       172     A     
 TURNON         IF ( (TYPE(DEBUG(SYMTAB B)) .LT. CONTYPE(1)) .AND.                         TURNON       173     A     
 TURNON        ,    BITOFF(DEBUG(SYMTAB B),ASFBIT(1)) .AND.                                TURNON       174     A     
 TURNON        ,    BITOFF(DEBUG(SYMTAB B),EXTBIT(1)) .AND.                                TURNON       175     A     
 TURNON        ,    BITOFF(DEBUG(DFOPL),LST S BIT(1)) ) GO TO 7010                         TURNON       176     A     
 TURNON    7025 TEMP = FSTRIP(DEBUG(SSYMTAB - OH))                                         TURNON       177     A     
 TURNON         IF (DRLELT(TEMP) .EQ. DRLELT(VALUE) ) TEMP = DEBUG(DBGPROG)                TURNON       178     A     
 TURNON         WRITE(DBGOUT, 7020) TEMP                                                   TURNON       179     A     
 TURNON    7020 FORMAT( * AT THIS POINT THE STORES OPTION WITH RELATIONAL OPERATOR         TURNON       180     A     
 TURNON        ,S IS ILLEGAL FOR *, A7)                                                    TURNON       181     A     
 TURNON         GO TO 7000                                                                 TURNON       182     A     
 TURNON    7010 ASHIFT = 10                                                                TURNON       183     A     
 TURNON         CALL SETARR, RETURNS(7000)                                                 TURNON       184     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3774    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TURNON  
  
 TURNON         IF (P ADD .EQ. 0) GO TO 7060                                               TURNON       185     A     
 TURNON         IF (SHIFT(DEBUG(DFOPL   ),59-26).LT.0) GO TO 7025                          TURNON       186     A     
 TURNON         DEBUG(DFOPL   ) = DEBUG(DFOPL   ) + SHIFT(1,18)                            TURNON       187     A     
 TURNON         IF ((SHIFT(DEBUG(DFOPL),-18) .AND. 777B) .NE. 1) GO TO 7000                TURNON       188     A     
 TURNON         DFOPL2 = ADDRESS(SHIFT(DEBUG(SAASI+AASI),18))                              TURNON       189     A     
 TURNON         IF (DFOPL2.NE.0) GO TO 7040                                                TURNON       190     A     
 TURNON         DEBUG(SAASI+AASI) = DEBUG(SAASI+AASI).OR.SHIFT(DFOPL,42)                   TURNON       191     A     
 TURNON         GO TO 7050                                                                 TURNON       192     A     
 TURNON    7040 DFOPL1 = DFOPL2                                                            TURNON       193     A     
 TURNON         DFOPL2 = ADDRESS(DEBUG(DFOPL2))                                            TURNON       194     A     
 TURNON         IF (DFOPL2.NE.0) GO TO 7040                                                TURNON       195     A     
 TURNON         DEBUG(DFOPL1) = DEBUG(DFOPL1).OR.DFOPL                                     TURNON       196     A     
 TURNON    7050 DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .OR. PLACE(NOTBIT(1)) .OR.               TURNON       197     A     
 TURNON        ,    PLACE(SFBIT(1))                                                        TURNON       198     A     
 TURNON        ,    .OR. SHIFT(AASI, 19)                                                   TURNON       199     A     
 TURNON         DEBUG(DFOPL   ) = DEBUG(DFOPL   ) + SHIFT(1,18)                            TURNON       200     A     
 TURNON         GO TO 7000                                                                 TURNON       201     A     
 TURNON    7060 TEMP = DEBUG(DFOPL) .AND. MASK(33)                                         TURNON       202     A     
 TURNON         SASI = ADDRESS(SHIFT(DEBUG(SAASI+AASI),-12))                               TURNON       203     A     
 TURNON         IF ( SASI.EQ.0) 7100, 7110                                                 TURNON       204     A     
 TURNON    7070 NXT STR = SASI                                                             TURNON       205     A     
 TURNON         SASI = ADDRESS(DEBUG(SAASI+SASI))                                          TURNON       206     A     
 TURNON         IF(SASI.EQ.0) GO TO 7120                                                   FCC0446        5     A     
 TURNON         SASI = SASI-SAASI                                                          FCC0446        6     A     
 TURNON         IF (SASI.EQ.0) GO TO 7120                                                  TURNON       207     A     
 TURNON    7110 IF (TEMP .NE. (DEBUG(SAASI+SASI) .AND. MASK(33)) ) GO TO 7070              TURNON       208     A     
 TURNON         IF (SHIFT(DEBUG(SAASI+SASI),59-26).LT.0) GO TO 7025                        TURNON       209     A     
 TURNON         DEBUG(SAASI+SASI) = DEBUG(SAASI+SASI)+SHIFT(1,18)                          TURNON       210     A     
 TURNON         GO TO 7050                                                                 TURNON       211     A     
 TURNON    7120 ASHIFT = 0                                                                 TURNON       212     A     
 TURNON         SASI = AASI                                                                TURNON       213     A     
 TURNON         CALL SETARR, RETURNS(7025)                                                 TURNON       214     A     
 TURNON         DEBUG(SAASI + NXT STR) = DEBUG(SAASI + NXT STR).OR.AASI                    TURNON       215     A     
 TURNON         DEBUG(SAASI + AASI) = DEBUG(DFOPL) + SHIFT(1,18)                           TURNON       216     A     
 TURNON         AASI = SASI                                                                TURNON       217     A     
 TURNON         GO TO 7050                                                                 TURNON       218     A     
 TURNON    7100 ASHIFT = 0                                                                 TURNON       219     A     
 TURNON         SASI = AASI                                                                TURNON       220     A     
 TURNON         CALL SETARR, RETURNS(7025)                                                 TURNON       221     A     
 TURNON         DEBUG(SAASI + SASI) = DEBUG(SAASI+SASI).OR.SHIFT(AASI,12)                  TURNON       222     A     
 TURNON         DEBUG(SAASI+AASI) = DEBUG(DFOPL).OR.SHIFT(1,18)                            TURNON       223     A     
 TURNON         AASI = SASI                                                                TURNON       224     A     
 TURNON         GO TO 7050                                                                 TURNON       225     A     
 TURNON   C                                                                                TURNON       226     A     
 TURNON   C  HERE IF THE TRACE OPTION IS TO BE TURNED ON                                   TURNON       227     A     
 TURNON   C                                                                                TURNON       228     A     
 TURNON    8020 WRITE (DBGOUT, 8021)                                                       TURNON       229     A     
 TURNON    8021 FORMAT (* AT THIS POINT THE TRACE OPTION IS ILLEGAL *)                     TURNON       230     A     
 TURNON    8001 MULT = 0                                                                   TURNON       231     A     
 TURNON         CALL GET OUT                                                               TURNON       232     A     
 TURNON         IF(OH .EQ. 0) 10, 30                                                       TURNON       233     A     
 TURNON    8000 MULT = 0                                                                   TURNON       234     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3775    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TURNON  
  
 TURNON         CALL GET OUT                                                               TURNON       235     A     
 TURNON         IF ( (OH .EQ. 0) .AND. (SHIFT(DEBUG(DFOPL), 30) .GE. 0) ) GO TO 10         TURNON       236     A     
 TURNON         IF (OH .EQ. MINZERO) GO TO 30                                              TURNON       237     A     
 TURNON         IF (P ADD .NE. 0) GO TO 8010                                               TURNON       238     A     
 TURNON         ASHIFT = 0                                                                 TURNON       239     A     
 TURNON         CALL SETARR, RETURNS(8020)                                                 TURNON       240     A     
 TURNON         TEMP = DEBUG(DFOPL) .AND. MASK(6)                                          TURNON       241     A     
 TURNON         SASI = ADDRESS(TRCADD)                                                     TURNON       242     A     
 TURNON         IF (SASI.EQ.0) 8100, 8110                                                  TURNON       243     A     
 TURNON    8070 NXT STR = SASI                                                             TURNON       244     A     
 TURNON         SASI = ADDRESS(DEBUG(SAASI+SASI))                                          TURNON       245     A     
 TURNON         IF (SASI.EQ.0) GO TO 8120                                                  TURNON       246     A     
 TURNON    8110 IF(TEMP.NE.(DEBUG(SAASI+SASI).AND.MASK(6))  )         GO TO 8070           TURNON       247     A     
 TURNON         IF (SHIFT(DEBUG(SAASI+SASI),59-26).LT.0) GO TO 8020                        TURNON       248     A     
 TURNON         DEBUG(SAASI+SASI) = DEBUG(SAASI+SASI) + SHIFT(1,18)                        TURNON       249     A     
 TURNON         GO TO 8200                                                                 TURNON       250     A     
 TURNON    8120 CALL SETARR, RETURNS(8020)                                                 TURNON       251     A     
 TURNON         DEBUG(SAASI + NXT STR) = DEBUG(SAASI + NXT STR).OR.AASI                    TURNON       252     A     
 TURNON         DEBUG(SAASI + AASI) = DEBUG(DFOPL) + SHIFT(1, 18)                          TURNON       253     A     
 TURNON         GO TO 8200                                                                 TURNON       254     A     
 TURNON    8100 CALL SETARR, RETURNS(8020)                                                 TURNON       255     A     
 TURNON         TRCADD = TRCADD .OR. AASI                                                  TURNON       256     A     
 TURNON         DEBUG(SAASI + AASI) = DEBUG(DFOPL) + SHIFT(1,18)                           TURNON       257     A     
 TURNON         GO TO 8200                                                                 TURNON       258     A     
 TURNON    8010 IF (SHIFT(DEBUG(DFOPL),59-26).LT.0) GO TO 8020                             TURNON       259     A     
 TURNON         DFOPL2= ADDRESS(SHIFT(TRCADD,30))                                          TURNON       260     A     
 TURNON         IF(DFOPL2.EQ.DFOPL) GO TO 8050                                             TURNON       261     A     
 TURNON         IF(DFOPL2.NE.0) GO TO 8040                                                 TURNON       262     A     
 TURNON         TRCADD = TRCADD.OR.SHIFT(DFOPL, 30)                                        TURNON       263     A     
 TURNON         GO TO 8050                                                                 TURNON       264     A     
 TURNON    8040 DFOPL1 = DFOPL2                                                            TURNON       265     A     
 TURNON         DFOPL2 = ADDRESS(DEBUG(DFOPL2))                                            TURNON       266     A     
 TURNON         IF(DFOPL2.EQ.DFOPL) GO TO 8050                                             TURNON       267     A     
 TURNON         IF(DFOPL2.NE.0) GO TO 8040                                                 TURNON       268     A     
 TURNON         DEBUG(DFOPL1) = DEBUG(DFOPL1).OR.DFOPL                                     TURNON       269     A     
 TURNON    8050 DEBUG(DFOPL) = DEBUG(DFOPL) + SHIFT(1,18)                                  TURNON       270     A     
 TURNON    8200 IF (SHIFT(OH,-6).GT.TRACEL) TRACEL = SHIFT(OH,-6)                          TURNON       271     A     
 TURNON         GO TO 8001                                                                 TURNON       272     A     
 TURNON   C                                                                                TURNON       273     A     
 TURNON   C  HERE IF DONE TURNING ON OPTIONS.  SET ERROR TO NO -T0- AND PUT -TO-           TURNON       274     A     
 TURNON   C  BOUND IN -TO- LIST IF LINE OR STATEMENT NUMBER.                               TURNON       275     A     
 TURNON   C                                                                                TURNON       276     A     
 TURNON      30 IF (P ADD .EQ. 0) RETURN                                                   TURNON       277     A     
 TURNON         DEBUG(SAREA+NEXT-1) =(DEBUG(SAREA+NEXT-1) .AND.                            TURNON       278     A     
 TURNON        ,   SHIFT(MASK(57),20)) .OR. SHIFT(1,20)                                    TURNON       279     A     
 TURNON         TO FM = 0                                                                  TURNON       280     A     
 TURNON         BD ADD = NEXT + 1                                                          TURNON       281     A     
 TURNON         NEXT1 = NEXT                                                               TURNON       282     A     
 TURNON         IF ((SHIFT(DEBUG(SAREA+NEXT-1),4).AND.3) - 1) 40, 50, 20                   TURNON       283     A     
 TURNON      40 NEXT = ADDRESS(SHIFT(TO LIST, 20))                                         TURNON       284     A     
 TURNON         IF (NEXT.NE.0) GO TO 60                                                    TURNON       285     A     
 TURNON         TO LIST = TO LIST .OR. SHIFT(BD ADD, 40)                                   TURNON       286     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3776    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TURNON  
  
 TURNON         GO TO 20                                                                   TURNON       287     A     
 TURNON      50 NEXT = ADDRESS(SHIFT(TO LIST, -20))                                        TURNON       288     A     
 TURNON         IF (NEXT.NE.0) GO TO 60                                                    TURNON       289     A     
 TURNON         TO LIST = TO LIST .OR. SHIFT(BD ADD, 20)                                   TURNON       290     A     
 TURNON         GO TO 20                                                                   TURNON       291     A     
 TURNON      60 TEMP = 2                                                                   TURNON       292     A     
 TURNON         IF ((SHIFT(DEBUG(SAREA+NEXT1-1),2).AND.3).EQ.2) TEMP = 3                   TURNON       293     A     
 TURNON         ITEMSAV = ITEM                                                             TURNON       294     A     
 TURNON         ITEM = DEBUG(SAREA+NEXT1+TEMP) .AND. SHIFT(MASK(30),30)                    TURNON       295     A     
 TURNON         CALL PUT                                                                   TURNON       296     A     
 TURNON         ITEM = ITEMSAV                                                             TURNON       297     A     
 TURNON      20 DEBUG(SAREA+NEXT1) = DEBUG(SAREA+NEXT1) .OR. MASK(1)                       TURNON       298     A     
 TURNON         NEXT = NEXT1                                                               TURNON       299     A     
 TURNON         RETURN                                                                     TURNON       300     A     
 TURNON         END                                                                        TURNON       301     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - TURNON  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          TURNON                     301       300
          FCC0446                      2         2
          FCC0761                      1         1
          FCC0937                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGSOUT 
  
 BUGSOUT  *DECK,BUGSOUT                                                                    BUGSOUT        1     A     
 BUGSOUT        SUBROUTINE BUGSOUT                                                         BUGSOUT        2     A     
 BUGSOUT  C  THIS SUBROUTINE LOOKS FOR ERRONEOUS B-CELLS IN FIDIT.  IT IS CALLED           BUGSOUT        3     A     
 BUGSOUT  C  BY PS1CTL$ JUST BEFORE IT TERMINATES PHASE 2, AND PRINTS OUT THE BAD          BUGSOUT        4     A     
 BUGSOUT  C  BOUNDS ALONG WITH A PERTINENT DIAGNOSTIC MESSAGE.                             BUGSOUT        5     A     
 BUGSOUT  C  ENTRY: FIDIT = THE BEGINNING ADDRESS OF THE AREA LIST                         BUGSOUT        6     A     
 BUGSOUT  C         EFIDIT = THE ENDING ADDRESS OF THE AREA LIST                           BUGSOUT        7     A     
 BUGSOUT  *CALL FDBGCOM                                                                    BUGSOUT        8          I
          -FCC0937
 BUGSOUT  *CALL LDBGCOM                                                                    FCC0937       35     A     
 BUGSOUT        DATA ((ERRMSG(I,J),I=1,5),J=1,5) /250H BOTH BOUNDS OUT OF RANGE OF         BUGSOUT        9     A     
 BUGSOUT       , ROUTINE               -TO- BOUND OUT OF RANGE OF ROUTINE                  BUGSOUT       10     A     
 BUGSOUT       ,      THIS IS AN IMPOSSIBLE SITUATION                    -TO- BOUN         BUGSOUT       11     A     
 BUGSOUT       ,D OCCURS IN ROUTINE BEFORE -FROM- BOUND  -FROM- BOUND OUT OF RANGE         BUGSOUT       12     A     
 BUGSOUT       , OF ROUTINE             /                                                  BUGSOUT       13     A     
 BUGSOUT        DFPACK = -1                                                                BUGSOUT       14     A     
 BUGSOUT        IF((DEBUG(FIDIT) .AND. MASK(6)) .EQ. SHIFT(POINT,54))                      BUGSOUT       15     A     
 BUGSOUT       ,    FIDIT = FIDIT + 1                                                      BUGSOUT       16     A     
 BUGSOUT        IF (FIDIT .GE. EFIDIT) RETURN                                              BUGSOUT       17     A     
 BUGSOUT    210 ERR NUM = (SHIFT(DEBUG(FIDIT), -20) .AND. 7B) + 1                          BUGSOUT       18     A     
 BUGSOUT        IF (ERR NUM .EQ. 6) GO TO 200                                              BUGSOUT       19     A     
 BUGSOUT        DTYPE = SHIFT(DEBUG(FIDIT),10) .AND. 77B                                   BUGSOUT       20     A     
 BUGSOUT        DLINE = SHIFT(DEBUG(FIDIT), -25) .AND. MINZERO                             BUGSOUT       21     A     
 BUGSOUT        NUM ERR = NUM ERR + 1                                                      BUGSOUT       22     A     
 BUGSOUT        GO TO (10,20,30,45,50,60,70,45,90,100,110,45),                             BUGSOUT       23     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3777    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGSOUT 
  
 BUGSOUT       ,    (SHIFT(DEBUG(FIDIT),4).AND.17B)+1                                      BUGSOUT       24     A     
 BUGSOUT  C  HERE FOR ( LINE NUMBER, LINE NUMBER)                                          BUGSOUT       25     A     
 BUGSOUT     10 DEBUG(FIDIT+2) = SHIFT(DEBUG(FIDIT+3), 30) .AND.                           BUGSOUT       26     A     
 BUGSOUT       ,    SHIFT(MASK(30),30)                                                     BUGSOUT       27     A     
 BUGSOUT        DEBUG(FIDIT+3) = DEBUG(FIDIT+3) .AND. SHIFT(MASK(30),30)                   BUGSOUT       28     A     
 BUGSOUT        IF(DEBUG(FIDIT+3). NE. LSTLINE) GO TO 15                                   BUGSOUT       29     A     
 BUGSOUT        IF (ERR NUM .EQ.2) GO TO 204                                               BUGSOUT       30     A     
 BUGSOUT        DEBUG(FIDIT+3) = 2H *                                                      BUGSOUT       31     A     
 BUGSOUT        ERR NUM = 5                                                                BUGSOUT       32     A     
 BUGSOUT     15 IF(NUMERR .EQ. 1) WRITE(DBGOUT,1)                                          BUGSOUT       33     A     
 BUGSOUT        IF(DEBUG(FIDIT+3) .EQ. 2H *) GO TO 18                                      BUGSOUT       34     A     
 BUGSOUT        WRITE (DBGOUT, 11) DLINE, DTYPE, DEBUG(FIDIT + 2), DEBUG(FIDIT+3),         BUGSOUT       35     A     
 BUGSOUT       ,    (ERR MSG(I,ERR NUM),I=1,5)                                             BUGSOUT       36     A     
 BUGSOUT     11 FORMAT(14H AT DEBUG LINE,I5,R1,3H- (,9X,1HL,I5,1H,,9X,1HL,I5,1H),          BUGSOUT       37     A     
 BUGSOUT       ,    5A10)                                                                  BUGSOUT       38     A     
 BUGSOUT        GO TO 200                                                                  BUGSOUT       39     A     
 BUGSOUT     18 WRITE(DBGOUT, 12) DLINE, DTYPE, DEBUG(FIDIT+2), DEBUG(FIDIT+3),            BUGSOUT       40     A     
 BUGSOUT       ,   (ERR MSG(I,ERR NUM),I=1,5)                                              BUGSOUT       41     A     
 BUGSOUT     12 FORMAT(14H AT DEBUG LINE,I5,R1,3H- (,9X,1HL,I5,1H,,9X,A6,1H),              BUGSOUT       42     A     
 BUGSOUT       ,    5A10)                                                                  BUGSOUT       43     A     
 BUGSOUT        GO TO 200                                                                  BUGSOUT       44     A     
 BUGSOUT  C  HERE FOR ( LINE NUMBER, STATEMENT NUMBER)                                     BUGSOUT       45     A     
 BUGSOUT     20 DEBUG(FIDIT+2) = SHIFT(DEBUG(FIDIT+3), 30) .AND.                           BUGSOUT       46     A     
 BUGSOUT       ,    SHIFT(MASK(30),30)                                                     BUGSOUT       47     A     
 BUGSOUT        IF (NUM ERR .EQ. 1) WRITE ( DBGOUT, 1)                                     BUGSOUT       48     A     
 BUGSOUT        WRITE (DBGOUT, 21) DLINE, DTYPE, DEBUG(FIDIT +2), DEBUG(FIDIT+3),          BUGSOUT       49     A     
 BUGSOUT       ,    (ERR MSG(I,ERR NUM),I=1,5)                                             BUGSOUT       50     A     
 BUGSOUT     21 FORMAT(14H AT DEBUG LINE,I5,R1,3H- (,9X,1HL,I5,1H,,10X,R5,1H),             BUGSOUT       51     A     
 BUGSOUT       ,    5A10)                                                                  BUGSOUT       52     A     
 BUGSOUT        GO TO 200                                                                  BUGSOUT       53     A     
 BUGSOUT  C  HERE FOR ( LINE NUMBER, UPDATE IDENTIFIER)                                    BUGSOUT       54     A     
 BUGSOUT     30 DEBUG(FIDIT+2) = SHIFT(DEBUG(FIDIT+3), 30) .AND.                           BUGSOUT       55     A     
 BUGSOUT       ,    SHIFT(MASK(30),30)                                                     BUGSOUT       56     A     
 BUGSOUT        IF (NUM ERR .EQ. 1) WRITE ( DBGOUT, 1)                                     BUGSOUT       57     A     
 BUGSOUT        WRITE (DBGOUT, 31) DLINE, DTYPE, DEBUG(FIDIT +2),                          BUGSOUT       58     A     
 BUGSOUT       ,    DEBUG(FIDIT + 3), DEBUG(FIDIT + 4),                                    BUGSOUT       59     A     
 BUGSOUT       ,    (ERR MSG(I,ERR NUM),I=1,5)                                             BUGSOUT       60     A     
 BUGSOUT     31 FORMAT(14H AT DEBUG LINE,I5,R1,3H- (,9X,1HL,I5,2H, ,R5, A9, 1H),           BUGSOUT       61     A     
 BUGSOUT       ,    5A10)                                                                  BUGSOUT       62     A     
 BUGSOUT        GO TO 200                                                                  BUGSOUT       63     A     
 BUGSOUT  C  HERE FOR ( STATEMENT NUMBER, LINE NUMBER)                                     BUGSOUT       64     A     
 BUGSOUT     50 DEBUG(FIDIT+2) = DEBUG(FIDIT+3) .AND. SHIFT(MASK(30),30)                   BUGSOUT       65     A     
 BUGSOUT        IF(DEBUG(FIDIT+2). NE. LSTLINE) GO TO 55                                   BUGSOUT       66     A     
 BUGSOUT        IF (ERR NUM .EQ.2) GO TO 204                                               BUGSOUT       67     A     
 BUGSOUT        DEBUG(FIDIT+2) = 2H *                                                      BUGSOUT       68     A     
 BUGSOUT        ERR NUM = 5                                                                BUGSOUT       69     A     
 BUGSOUT     55 IF(NUMERR .EQ. 1) WRITE(DBGOUT,1)                                          BUGSOUT       70     A     
 BUGSOUT        IF(DEBUG(FIDIT+2) .EQ. 2H *) GO TO 58                                      BUGSOUT       71     A     
 BUGSOUT        WRITE (DBGOUT, 51) DLINE, DTYPE, DEBUG(FIDIT + 3), DEBUG(FIDIT+2),         BUGSOUT       72     A     
 BUGSOUT       ,    (ERR MSG(I,ERR NUM),I=1,5)                                             BUGSOUT       73     A     
 BUGSOUT     51 FORMAT(14H AT DEBUG LINE,I5,R1,3H- (,10X,A5,1H,,9X,1HL,I5,1H),             BUGSOUT       74     A     
 BUGSOUT       ,    5A10)                                                                  BUGSOUT       75     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3778    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGSOUT 
  
 BUGSOUT        GO TO 200                                                                  BUGSOUT       76     A     
 BUGSOUT     58 WRITE(DBGOUT, 52) DLINE, DTYPE, DEBUG(FIDIT+3), DEBUG(FIDIT+2),            BUGSOUT       77     A     
 BUGSOUT       ,   (ERR MSG(I,ERR NUM),I=1,5)                                              BUGSOUT       78     A     
 BUGSOUT     52 FORMAT(14H AT DEBUG LINE,I5,R1,3H- (,10X,A5,1H,,9X,A6,1H),                 BUGSOUT       79     A     
 BUGSOUT       ,    5A10)                                                                  BUGSOUT       80     A     
 BUGSOUT        GO TO 200                                                                  BUGSOUT       81     A     
 BUGSOUT  C  HERE FOR ( STATEMENT NUMBER, STATEMENT NUMBER)                                BUGSOUT       82     A     
 BUGSOUT     60 IF (NUM ERR .EQ. 1) WRITE( DBGOUT, 1)                                      BUGSOUT       83     A     
 BUGSOUT        WRITE (DBGOUT, 61) DLINE, DTYPE, DEBUG(FIDIT+3), DEBUG(FIDIT+3),           BUGSOUT       84     A     
 BUGSOUT       ,    (ERR MSG(I,ERR NUM),I=1,5)                                             BUGSOUT       85     A     
 BUGSOUT     61 FORMAT(14H AT DEBUG LINE,I5,R1,3H- (, 10X, A5, 1H,, 10X, R5, 1H),          BUGSOUT       86     A     
 BUGSOUT       ,    5A10)                                                                  BUGSOUT       87     A     
 BUGSOUT        GO TO 200                                                                  BUGSOUT       88     A     
 BUGSOUT  C  HERE FOR ( STATEMENT NUMBER, UPDATE IDENTIFIER)                               BUGSOUT       89     A     
 BUGSOUT     70 IF (NUM ERR .EQ. 1) WRITE ( DBGOUT, 1)                                     BUGSOUT       90     A     
 BUGSOUT        WRITE (DBGOUT, 71) DLINE, DTYPE, DEBUG(FIDIT+3),                           BUGSOUT       91     A     
 BUGSOUT       ,    DEBUG(FIDIT + 3), DEBUG(FIDIT + 4),                                    BUGSOUT       92     A     
 BUGSOUT       ,    (ERR MSG(I,ERR NUM),I=1,5)                                             BUGSOUT       93     A     
 BUGSOUT     71 FORMAT(14H AT DEBUG LINE,I5,R1,3H- (, 10X, A5, 2H, , R5, A9, 1H),          BUGSOUT       94     A     
 BUGSOUT       ,    5A10)                                                                  BUGSOUT       95     A     
 BUGSOUT        GO TO 200                                                                  BUGSOUT       96     A     
 BUGSOUT  C  HERE FOR ( UPDATE IDENTIFIER, LINE NUMBER)                                    BUGSOUT       97     A     
 BUGSOUT     90 DEBUG(FIDIT+2) = DEBUG(FIDIT+4) .AND. SHIFT(MASK(30),30)                   BUGSOUT       98     A     
 BUGSOUT        IF (DEBUG(FIDIT + 2) .NE. LSTLINE) GO TO 206                               BUGSOUT       99     A     
 BUGSOUT        IF(NUMERR .EQ. 2) GO TO 204                                                BUGSOUT      100     A     
 BUGSOUT        DEBUG(FIDIT+2) = 2H *                                                      BUGSOUT      101     A     
 BUGSOUT        ERR NUM = 5                                                                BUGSOUT      102     A     
 BUGSOUT        GO TO 206                                                                  BUGSOUT      103     A     
 BUGSOUT    204 NUM ERR = NUM ERR - 1                                                      BUGSOUT      104     A     
 BUGSOUT        GO TO 200                                                                  BUGSOUT      105     A     
 BUGSOUT    206 IF (NUM ERR .EQ. 1) WRITE ( DBGOUT, 1)                                     BUGSOUT      106     A     
 BUGSOUT        IF(DEBUG(FIDIT+2) .EQ. 2H *) GO TO 98                                      BUGSOUT      107     A     
 BUGSOUT        WRITE (DBGOUT, 91) DLINE, DTYPE, DEBUG(FIDIT + 3),                         BUGSOUT      108     A     
 BUGSOUT       ,    DEBUG(FIDIT + 4), DEBUG(FIDIT + 2),                                    BUGSOUT      109     A     
 BUGSOUT       ,    (ERR MSG(I,ERR NUM),I=1,5)                                             BUGSOUT      110     A     
 BUGSOUT     91 FORMAT(14H AT DEBUG LINE,I5,R1,4H- ( ,A10,A4,1H,,9X, 1HL,I5, 1H),          BUGSOUT      111     A     
 BUGSOUT       ,    5A10)                                                                  BUGSOUT      112     A     
 BUGSOUT        GO TO 200                                                                  BUGSOUT      113     A     
 BUGSOUT     98 WRITE(DBGOUT, 92) DLINE, DTYPE, DEBUG(FIDIT+3),                            BUGSOUT      114     A     
 BUGSOUT       ,   DEBUG(FIDIT+4), DEBUG(FIDIT+2),                                         BUGSOUT      115     A     
 BUGSOUT       ,   (ERR MSG(I,ERR NUM),I=1,5)                                              BUGSOUT      116     A     
 BUGSOUT     92 FORMAT(14H AT DEBUG LINE,I5,R1,4H- ( ,A10, A4,1H,,9X,A6,1H),               BUGSOUT      117     A     
 BUGSOUT       ,    5A10)                                                                  BUGSOUT      118     A     
 BUGSOUT        GO TO 200                                                                  BUGSOUT      119     A     
 BUGSOUT  C  HERE FOR ( UPDATE IDENTIFIER, STATEMENT NUMBER)                               BUGSOUT      120     A     
 BUGSOUT    100 IF (NUM ERR .EQ. 1) WRITE (DBGOUT, 1)                                      BUGSOUT      121     A     
 BUGSOUT        WRITE (DBGOUT, 101) DLINE, DTYPE, DEBUG(FIDIT+3), DEBUG(FIDIT+4),          BUGSOUT      122     A     
 BUGSOUT       ,    DEBUG(FIDIT+4), (ERR MSG(I,ERRNUM),I=1,5)                              BUGSOUT      123     A     
 BUGSOUT    101 FORMAT(14H AT DEBUG LINE,I5,R1,4H- ( , A10, A4, 1H,, 10X, R5, 1H),         BUGSOUT      124     A     
 BUGSOUT       ,    5A10)                                                                  BUGSOUT      125     A     
 BUGSOUT        GO TO 200                                                                  BUGSOUT      126     A     
 BUGSOUT  C  HERE FOR ( UPDATE IDENTIFIER, UPDATE IDENTIFIER)                              BUGSOUT      127     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3779    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGSOUT 
  
 BUGSOUT    110 IF (NUM ERR .EQ. 1) WRITE (DBGOUT, 1)                                      BUGSOUT      128     A     
 BUGSOUT      1 FORMAT (4X, 23HDEBUG- AREA LIST ERRORS)                                    BUGSOUT      129     A     
 BUGSOUT        WRITE(DBGOUT, 111) DLINE, DTYPE, DEBUG(FIDIT+3), DEBUG(FIDIT+4),           BUGSOUT      130     A     
 BUGSOUT       ,    DEBUG(FIDIT+4), DEBUG(FIDIT+5), (ERR MSG(I,ERR NUM),I=1,5)             BUGSOUT      131     A     
 BUGSOUT    111 FORMAT(14H AT DEBUG LINE,I5,R1,4H- ( , A10, A4, 2H, , R5, A9, 1H),         BUGSOUT      132     A     
 BUGSOUT       ,    5A10)                                                                  BUGSOUT      133     A     
 BUGSOUT        GO TO 200                                                                  BUGSOUT      134     A     
 BUGSOUT     45 WRITE (DBGOUT, 46)                                                         BUGSOUT      135     A     
 BUGSOUT  46    FORMAT(* DEBUG: WOULD YOU BELIEVE THAT SOMEBODY GOOFED  *)                 BUGSOUT      136     A     
 BUGSOUT    200 FIDIT = FIDIT + (SHIFT(DEBUG(FIDIT),-23).AND.3) +3                         BUGSOUT      137     A     
 BUGSOUT    220 IF (FIDIT .GE. EFIDIT) RETURN                                              BUGSOUT      138     A     
 BUGSOUT        IF ((DEBUG(FIDIT) .AND. MASK(6)).NE.SHIFT(POINT,54))  GO TO 210            BUGSOUT      139     A     
 BUGSOUT        FIDIT = FIDIT + 1                                                          BUGSOUT      140     A     
 BUGSOUT        GO TO 220                                                                  BUGSOUT      141     A     
 BUGSOUT        END                                                                        BUGSOUT      142     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - BUGSOUT 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          BUGSOUT                    142       141
          FCC0937                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON   *DECK,BUGCON                                                                     BUGCON         1     A     
 BUGCON         SUBROUTINE BUGCON                                                          BUGCON         2     A     
 BUGCON   C  THIS ROUTINE TAKES DEBUG STATEMENT ELIST AND CONVERTS IT INTO A DEBUG         BUGCON         3     A     
 BUGCON   C  LIST REPRESENTATION.  AREA AND OPTIONS LISTS ARE SENT TO DISK VIA A           BUGCON         4     A     
 BUGCON   C  RJ BUGPRO WHEN NECESSARY.                                                     BUGCON         5     A     
 BUGCON   C              DFPACK =  1 IF STATEMENT IS IN EXTERNAL PACKET                    BUGCON         6     A     
 BUGCON   C                     = -1 IF INTERNAL PACKET                                    BUGCON         7     A     
 BUGCON   C                     =  0 IF INTERSPERSED                                       BUGCON         8     A     
 BUGCON   C              DFNOGO.LT.0 IF NOT ENUF ROOM FOR DEBUG TABLES                     BUGCON         9     A     
 BUGCON   C                     =  0 ELSE                                                  BUGCON        10     A     
 BUGCON   C              DFTYPE =  TYPE OF DEBUG STATEMENT                                 BUGCON        11     A     
 BUGCON   C              DFNESTW=  CURRENT WORD FOR LIST                                   BUGCON        12     A     
 BUGCON   C              DFNEST =  CURRENT POSITION IN DFNESTW                             BUGCON        13     A     
 BUGCON   C              REFMAP = THE BEGINNING ADDRESS OF REFMAP                          BUGCON        14     A     
 BUGCON   C              ELAST  = THE LAST ADDRESS OF ELIST                                BUGCON        15     A     
 BUGCON   C              SDVL   = THE BEGINNING ADDRESS OF DVL                             BUGCON        16     A     
 BUGCON   *CALL FDBGCOM                                                                    BUGCON        17          I
          -FCC0937
 BUGCON   *CALL LDBGCOM                                                                    FCC0937       36     A     
 BUGCON         DATA MISFLAG  /0/                                                          BUGCON        18     A     
 BUGCON         DATA MINZERO /7777B/                                                       BUGCON        19     A     
 BUGCON         DATA RECORD /4/                                                            BUGCON        20     A     
 BUGCON         DATA OPENFL /0/                                                            BUGCON        21     A     
 BUGCON         DATA POW /1/                                                               BUGCON        22     A     
 BUGCON         DATA COW /0/                                                               BUGCON        23     A     
 BUGCON         DATA DBGOUT /2/                                                            BUGCON        24     A     
 BUGCON         DATA RTAB    /2, 1, 5, 6, 3, 4, 7, 0, 8/                                   BUGCON        25     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3780    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON         DATA RANGE   /20012201160705555555B/                                       BUGCON        26     A     
 BUGCON         DATA INDEF   /20011116040506555555B/                                       BUGCON        27     A     
 BUGCON         DATA OUTDBG  /77777777400001777777B/                                       BUGCON        28     A     
 BUGCON         DATA DBGPIC  / 8HPAARRAYS, 7HPACALLS, 7HPAFUNCS, 7HPAGOTOS,                BUGCON        29     A     
 BUGCON        ,              6HPANOGO, 8HPASTORES, 10H          , 7HPATRACE,              BUGCON        30     A     
 BUGCON        ,              5HPAOFF/                                                     BUGCON        31     A     
 BUGCON         DATA LTFLAG  /.FALSE./                                                     BUGCON        32     A     
 BUGCON         DATA LFLAG   /.FALSE./                                                     BUGCON        33     A     
 BUGCON         DATA TRACEL  /-1/                                                          BUGCON        34     A     
 BUGCON         DATA DUNIT  /5LDEBUG/                                                      BUGCON        35     A     
 BUGCON         DATA NEXT /0/                                                              BUGCON        36     A     
 BUGCON         DATA TO LIST /0/                                                           BUGCON        37     A     
 BUGCON         DATA FM LIST /0/                                                           BUGCON        38     A     
 BUGCON         DATA FIDIT /0/                                                             BUGCON        39     A     
 BUGCON         DATA EFIDIT /0/                                                            BUGCON        40     A     
 BUGCON         DATA OH /-1/                                                               BUGCON        41     A     
 BUGCON         DATA RBLANKS /00000000005555555555B/                                       BUGCON        42     A     
 BUGCON         DATA CUR OP BD /0/                                                         BUGCON        43     A     
 BUGCON         DATA NO LIN /0/                                                            BUGCON        44     A     
 BUGCON         DATA AASIADD /0/                                                           BUGCON        45     A     
 BUGCON         DATA NAASI /0/                                                             BUGCON        46     A     
 BUGCON         DATA STAR1 /0/                                                             BUGCON        47     A     
 BUGCON         DATA STAR2 /0/                                                             BUGCON        48     A     
 BUGCON         DATA SAMLINE /0/                                                           BUGCON        49     A     
 BUGCON         DATA FSTLINE /00000000010000000000B/                                       BUGCON        50     A     
 BUGCON         DATA LSTLINE /00000000007777777777B/                                       BUGCON        51     A     
 BUGCON         DATA STAR /22B/                                                            BUGCON        52     A     
 BUGCON         DATA COMMA /03B/                                                           BUGCON        53     A     
 BUGCON         DATA RPAREN  /02B/                                                         BUGCON        54     A     
 BUGCON         DATA EOS/4B/                                                               BUGCON        55     A     
 BUGCON         DATA LPAREN  /06B/                                                         BUGCON        56     A     
 BUGCON         DATA SLASH  /23B/                                                          BUGCON        57     A     
 BUGCON         DATA POINT /57B/                                                           BUGCON        58     A     
 BUGCON         DATA SYMBL/01B/                                                            BUGCON        59     A     
 BUGCON         DATA CONST /0/                                                             BUGCON        60     A     
 BUGCON         DATA TRCADD /0/                                                            BUGCON        61     A     
 BUGCON         DATA BLNG /0/                                                              BUGCON        62     A     
 BUGCON         DATA OPREC  /5/                                                            BUGCON        63     A     
 BUGCON         DATA LNG IND /100/                                                         BUGCON        64     A     
 BUGCON         DATA OVRFLOW /0/                                                           BUGCON        65     A     
 BUGCON         DATA CFPACK  /0/                                                           BUGCON        66     A     
 BUGCON         DATA OPWORD /0/                                                            BUGCON        67     A     
 BUGCON         DATA TRACE ON /0/                                                          BUGCON        68     A     
 BUGCON         DATA TOT LNG /0/                                                           BUGCON        69     A     
 BUGCON         DATA REL FLG /0/                                                           BUGCON        70     A     
 BUGCON         DATA STOSWAP /0/                                                           BUGCON        71     A     
 BUGCON         DATA VALUE /10HVALUE.    /                                                 BUGCON        72     A     
 BUGCON         DATA  OPDRL /0/                                                            BUGCON        73     A     
 BUGCON         ELIST = ELIST - 1                                                          BUGCON        74     A     
 BUGCON         IF (DFTYPE-40) 1010, 1010, 2010                                            BUGCON        75     A     
 BUGCON   *                                                                                BUGCON        76     A     
 BUGCON   *  HERE IF DEBUG CARD                                                            BUGCON        77     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3781    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON   *  INITIALIZE ALLROU AND -A- FLAG OF DRL, BRANCH ON FIRST CHARACTER              BUGCON        78     A     
 BUGCON      10 AREA FLG = 0                                                               BUGCON        79     A     
 BUGCON         ALL ROU = 0                                                                BUGCON        80     A     
 BUGCON         TRACE ON = 0                                                               BUGCON        81     A     
 BUGCON         NDRL = 0                                                                   BUGCON        82     A     
 BUGCON         MISFLAG = 0                                                                BUGCON        83     A     
 BUGCON         IF ( (DFNOGO .LT. 0) .OR. (DFPACK .EQ. 0) ) GO TO 190                      BUGCON        84     A     
 BUGCON         DRL = SDRL                                                                 BUGCON        85     A     
 BUGCON     200 IF (DRL.EQ.EDRL) GO TO 190                                                 BUGCON        86     A     
 BUGCON         DEBUG(DRL+1) = DEBUG(DRL+1) .AND. .NOT. MASK(1)                            BUGCON        87     A     
 BUGCON         DRL = DRL + 2                                                              BUGCON        88     A     
 BUGCON         GO TO 200                                                                  BUGCON        89     A     
 BUGCON     190 IF (EFORM(DEBUG(ELIST)).EQ.EOS) GO TO (90, 100, 80),(DFPACK+2)             BUGCON        90     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)).EQ.LPAREN) GO TO 30                                BUGCON        91     A     
 BUGCON   *                                                                                BUGCON        92     A     
 BUGCON   *  HERE IF MISSING DELIMETER                                                     BUGCON        93     A     
 BUGCON   *                                                                                BUGCON        94     A     
 BUGCON     110 M = 1                                                                      BUGCON        95     A     
 BUGCON         CALL DEBUG ER                                                              BUGCON        96     A     
 BUGCON         RETURN                                                                     BUGCON        97     A     
 BUGCON   *                                                                                BUGCON        98     A     
 BUGCON   *  HERE IF TURNING ON ALLROU AND -A- FLAGS OF ALL ROUTINES (MAYBE)               BUGCON        99     A     
 BUGCON   *                                                                                BUGCON       100     A     
 BUGCON      80 IF (DFNOGO .LT. 0) RETURN                                                  BUGCON       101     A     
 BUGCON         ALLROU = 1                                                                 BUGCON       102     A     
 BUGCON         DRL = SDRL-2                                                               BUGCON       103     A     
 BUGCON         SPIDIS = 1                                                                 BUGCON       104     A     
 BUGCON      70 DRL = DRL+2                                                                BUGCON       105     A     
 BUGCON         IF (DRL.EQ.EDRL) GO TO 50                                                  BUGCON       106     A     
 BUGCON         IF (SPIDIS.EQ.0) GO TO 60                                                  BUGCON       107     A     
 BUGCON         IF ((DRLELT(DEBUG(DRL)) .EQ. SPIDER) .AND.                                 BUGCON       108     A     
 BUGCON        ,   ((DEBUG(DRL+1) .AND. SHIFT(MASK(39), 60-1)) .EQ. 0))                    BUGCON       109     A     
 BUGCON        ,     SPIDIS = 0                                                            BUGCON       110     A     
 BUGCON      60 DEBUG(DRL+1) = DEBUG(DRL+1) .OR. MASK(1)                                   BUGCON       111     A     
 BUGCON         GO TO 70                                                                   BUGCON       112     A     
 BUGCON      50 IF (SPIDIS.EQ.0) RETURN                                                    BUGCON       113     A     
 BUGCON         IF (DRL .NE. REFMAP) GO TO 10100                                           BUGCON       114     A     
 BUGCON         DLFLG = 1                                                                  BUGCON       115     A     
 BUGCON         ENTRY DMVCON                                                               BUGCON       116     A     
 BUGCON   10030 IF (ELAST - 10 .GE. AREAEND) GO TO 10010                                   BUGCON       117     A     
 BUGCON         WRITE (DBGOUT, 10020)                                                      BUGCON       118     A     
 BUGCON   10020 FORMAT(14X, *DEBUG: MORE CORE IS NEEDED.  FURTHER PACKET DEBUG STA         BUGCON       119     A     
 BUGCON        ,TEMENTS WILL BE CHECKED FOR SYNTAX BUT NOT PROCESSED. *)                   BUGCON       120     A     
 BUGCON         DFNOGO = -1                                                                BUGCON       121     A     
 BUGCON         IF (DLFLG.NE.5) GO TO 10011                                                BUGCON       122     A     
 BUGCON         DLFLG = 0                                                                  BUGCON       123     A     
 BUGCON         RETURN                                                                     BUGCON       124     A     
 BUGCON   10011 POW = 0                                                                    BUGCON       125     A     
 BUGCON         CALL BUGCLO                                                                BUGCON       126     A     
 BUGCON         GO TO ( 100, 150, 1185, 2020, 100), DLFLG                                  BUGCON       127     A     
 BUGCON   10010 CALL DMVWDS (DRL - ELAST, DEBUG(ELAST), DEBUG(ELAST - 10))                 BUGCON       128     A     
 BUGCON         ELAST = ELAST - 10                                                         BUGCON       129     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3782    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON         SSYMTAB = SSYMTAB - 10                                                     BUGCON       130     A     
 BUGCON         ESYMTAB = ESYMTAB - 10                                                     BUGCON       131     A     
 BUGCON         SDRL = SDRL - 10                                                           BUGCON       132     A     
 BUGCON         EDRL = EDRL - 10                                                           BUGCON       133     A     
 BUGCON         SDVL = SDVL - 10                                                           BUGCON       134     A     
 BUGCON         EDVL = EDVL - 10                                                           BUGCON       135     A     
 BUGCON         ELIST = ELIST - 10                                                         BUGCON       136     A     
 BUGCON         D LNG DRL = D LNG DRL + 10                                                 BUGCON       137     A     
 BUGCON         CALL FIXPNTR                                                               BUGCON       138     A     
 BUGCON         DRL = DRL - 10                                                             BUGCON       139     A     
 BUGCON         GO TO ( 10100, 10200, 10300, 10400, 94), DLFLG                             BUGCON       140     A     
 BUGCON   10100 DEBUG(DRL) = SPIDER                                                        BUGCON       141     A     
 BUGCON         DEBUG(DRL+1) = MASK(1)                                                     BUGCON       142     A     
 BUGCON         EDRL = EDRL+2                                                              BUGCON       143     A     
 BUGCON     100 RETURN                                                                     BUGCON       144     A     
 BUGCON   *                                                                                BUGCON       145     A     
 BUGCON   *  HERE IF EOS AND DFPACK=-1                                                     BUGCON       146     A     
 BUGCON   *                                                                                BUGCON       147     A     
 BUGCON      90 IF (DFNOGO.LT.0) RETURN                                                    BUGCON       148     A     
 BUGCON         ALL ROU = 0                                                                BUGCON       149     A     
 BUGCON         DRL = SDRL - 2                                                             BUGCON       150     A     
 BUGCON         TEMP = DRLELT(DEBUG(DBGPROG))                                              BUGCON       151     A     
 BUGCON      93 DRL = DRL + 2                                                              BUGCON       152     A     
 BUGCON         IF (DRL .EQ. EDRL) GO TO 91                                                BUGCON       153     A     
 BUGCON         IF ( (DRLELT(DEBUG(DRL)) .EQ. TEMP) .AND.                                  BUGCON       154     A     
 BUGCON        ,   ((DEBUG(DRL+1) .AND. SHIFT(MASK(39),60-1)) .EQ. 0)) 92, 93              BUGCON       155     A     
 BUGCON      91 IF (DRL .NE. REFMAP) GO TO 94                                              BUGCON       156     A     
 BUGCON         DLFLG = 5                                                                  BUGCON       157     A     
 BUGCON         GO TO 10030                                                                BUGCON       158     A     
 BUGCON      94 DEBUG(DRL) = TEMP                                                          BUGCON       159     A     
 BUGCON         EDRL = EDRL + 2                                                            BUGCON       160     A     
 BUGCON         DEBUG(DRL+1) = 0                                                           BUGCON       161     A     
 BUGCON      92 DEBUG(DRL+1) = DEBUG(DRL+1) .OR. MASK(1)                                   BUGCON       162     A     
 BUGCON         RETURN                                                                     BUGCON       163     A     
 BUGCON   *                                                                                BUGCON       164     A     
 BUGCON   C  HERE IF EXPECTING SYMBOL                                                      BUGCON       165     A     
 BUGCON      30 ELIST = ELIST - 1                                                          BUGCON       166     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)).NE.SYMBL) GO TO 115                                BUGCON       167     A     
 BUGCON         NDRL = NDRL + 1                                                            BUGCON       168     A     
 BUGCON         TEMP = DRLELT(SHIFT(DEBUG(ELIST), 12) )                                    BUGCON       169     A     
 BUGCON         IF ((DFPACK .LT. 0) .AND. (TEMP .NE. DRLELT(DEBUG(DBGPROG))))              BUGCON       170     A     
 BUGCON        ,    GO TO 131                                                              BUGCON       171     A     
 BUGCON         IF (DFNOGO .LT. 0) GO TO 150                                               BUGCON       172     A     
 BUGCON         DRL = SDRL                                                                 BUGCON       173     A     
 BUGCON     140 IF (DRL.EQ.EDRL) GO TO 120                                                 BUGCON       174     A     
 BUGCON         IF ( (DRLELT(DEBUG(DRL)) .EQ. TEMP)                                        BUGCON       175     A     
 BUGCON        ,    .AND. ((DEBUG(DRL+1) .AND. SHIFT(MASK(39),60-1)) .EQ. 0))              BUGCON       176     A     
 BUGCON        ,    GO TO 130                                                              BUGCON       177     A     
 BUGCON         DRL = DRL+2                                                                BUGCON       178     A     
 BUGCON         GO TO 140                                                                  BUGCON       179     A     
 BUGCON     120 IF (DRL .NE. REFMAP) GO TO 10200                                           BUGCON       180     A     
 BUGCON         DLFLG = 2                                                                  BUGCON       181     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3783    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON         GO TO 10030                                                                BUGCON       182     A     
 BUGCON   10200 DEBUG(DRL) = DRLELT(SHIFT(DEBUG(ELIST), 12))                               BUGCON       183     A     
 BUGCON         DEBUG(DRL+1) = MASK(1)                                                     BUGCON       184     A     
 BUGCON         EDRL = EDRL+2                                                              BUGCON       185     A     
 BUGCON         GO TO 150                                                                  BUGCON       186     A     
 BUGCON     130 DEBUG(DRL+1) = DEBUG(DRL+1) .OR. MASK(1)                                   BUGCON       187     A     
 BUGCON   *                                                                                BUGCON       188     A     
 BUGCON   C  HERE IF EXPECTING DELIMETER                                                   BUGCON       189     A     
 BUGCON   *                                                                                BUGCON       190     A     
 BUGCON     150 ELIST = ELIST-1                                                            BUGCON       191     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)).EQ.COMMA) GO TO 30                                 BUGCON       192     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)).NE.RPAREN) GO TO 110                               BUGCON       193     A     
 BUGCON         IF (EFORM(DEBUG(ELIST-1)) .EQ. EOS) RETURN                                 BUGCON       194     A     
 BUGCON     152 M = 2                                                                      BUGCON       195     A     
 BUGCON         CALL DEBUG ER                                                              BUGCON       196     A     
 BUGCON         RETURN                                                                     BUGCON       197     A     
 BUGCON     131 M = 16                                                                     BUGCON       198     A     
 BUGCON         CALL DEBUG ER                                                              BUGCON       199     A     
 BUGCON         GO TO 150                                                                  BUGCON       200     A     
 BUGCON   *                                                                                BUGCON       201     A     
 BUGCON   *  HERE IF MISSING SYMBOL                                                        BUGCON       202     A     
 BUGCON   *                                                                                BUGCON       203     A     
 BUGCON     115 M = 3                                                                      BUGCON       204     A     
 BUGCON         CALL DEBUG ER                                                              BUGCON       205     A     
 BUGCON         RETURN                                                                     BUGCON       206     A     
 BUGCON   *                                                                                BUGCON       207     A     
 BUGCON   *                                                                                BUGCON       208     A     
 BUGCON   *  HERE IF A DEBUG OR AREA CARD                                                  BUGCON       209     A     
 BUGCON   *                                                                                BUGCON       210     A     
 BUGCON    1010 IF(DFOPFLG.EQ.0) GO TO 1020                                                BUGCON       211     A     
 BUGCON   *                                                                                BUGCON       212     A     
 BUGCON   *  HERE IF HAVE OPTIONS TO WRITE OUT                                             BUGCON       213     A     
 BUGCON   *                                                                                BUGCON       214     A     
 BUGCON         IF (DFNEST .NE.4) GO TO 1017                                               BUGCON       215     A     
 BUGCON         IF ( ( DFNESTW - AREAEND - 1) .EQ. 0) GO TO 1018                           BUGCON       216     A     
 BUGCON         DFNEST = -1                                                                BUGCON       217     A     
 BUGCON         DFNESTW = DFNESTW - 1                                                      BUGCON       218     A     
 BUGCON    1017 DFNEST = DFNEST + 1                                                        BUGCON       219     A     
 BUGCON    1018 OH = MINZERO                                                               BUGCON       220     A     
 BUGCON         CALL PUT IN                                                                BUGCON       221     A     
 BUGCON         IF (DFNEST .EQ. 4) DFNESTW = DFNESTW - 1                                   BUGCON       222     A     
 BUGCON         DFOPFLG = 0                                                                BUGCON       223     A     
 BUGCON         DEBUG(OPDRL+1)  =  (DEBUG(OPDRL+1) .AND. SHIFT(MASK(42), 24))              BUGCON       224     A     
 BUGCON        ,     .OR. SHIFT(DFNESTW - AREAEND, 24)                                     BUGCON       225     A     
 BUGCON         IF (OPENFL .EQ. 0) CALL WRTMS1                                             BUGCON       226     A     
 BUGCON   11111 CALL WRTMS2 (DEBUG(AREAEND + 1), DFNESTW - AREAEND, OPREC)                 BUGCON       227     A     
 BUGCON         CALL WRTMS3                                                                BUGCON       228     A     
 BUGCON         DEBUG(SDBGIND+OPREC)  =  (DEBUG(SDBGIND+OPREC) .AND.                       BUGCON       229     A     
 BUGCON        ,     SHIFT(MASK(42), 24)) .OR. SHIFT(DFNESTW-AREAEND, 24)                  BUGCON       230     A     
 BUGCON         DFNESTW = AREAEND + 1                                                      BUGCON       231     A     
 BUGCON         DFNEST = 4                                                                 BUGCON       232     A     
 BUGCON         STOSWAP = 0                                                                BUGCON       233     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3784    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON         TRACEON = 0                                                                BUGCON       234     A     
 BUGCON         OPWORD = 0                                                                 BUGCON       235     A     
 BUGCON         MISFLAG = 0                                                                BUGCON       236     A     
 BUGCON         DRL = SDRL - 2                                                             BUGCON       237     A     
 BUGCON   10201 DRL = DRL + 2                                                              BUGCON       238     A     
 BUGCON         IF (DRL .EQ. EDRL) GO TO 1020                                              BUGCON       239     A     
 BUGCON         TEMP = ADDRESS(DEBUG(DRL))                                                 BUGCON       240     A     
 BUGCON         IF (SHIFT(TEMP, 42) .GT. 0)                                                BUGCON       241     A     
 BUGCON        ,   DEBUG(DRL) = DRLELT(DEBUG(DRL)) .OR.(SHIFT(MASK(18),18) - TEMP)         BUGCON       242     A     
 BUGCON         GO TO 10201                                                                BUGCON       243     A     
 BUGCON   *                                                                                BUGCON       244     A     
 BUGCON   *  HERE IF NO OPTIONS TO WRITE OUT                                               BUGCON       245     A     
 BUGCON   *                                                                                BUGCON       246     A     
 BUGCON    1020 IF (DFTYPE.EQ.39) GO TO 10                                                 BUGCON       247     A     
 BUGCON         IF (MISFLAG .EQ. -1) MISFLAG = 0                                           BUGCON       248     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)) .NE. SLASH) GO TO (1162,1415,1130),                BUGCON       249     A     
 BUGCON        ,                                                DFPACK+ 2                  BUGCON       250     A     
 BUGCON         GO TO 1050                                                                 BUGCON       251     A     
 BUGCON   *                                                                                BUGCON       252     A     
 BUGCON   *  HERE IF EXPECTED /, (, ,, OR ), IS MISSING                                    BUGCON       253     A     
 BUGCON   *                                                                                BUGCON       254     A     
 BUGCON    1130 M = 1                                                                      BUGCON       255     A     
 BUGCON    1135 CALL DEBUG ER                                                              BUGCON       256     A     
 BUGCON   *                                                                                BUGCON       257     A     
 BUGCON   *  HERE TO SET UP RETURN CONDITIONS                                              BUGCON       258     A     
 BUGCON   *                                                                                BUGCON       259     A     
 BUGCON    1430 IF (MISFLAG.EQ.0) MISFLAG = -1                                             BUGCON       260     A     
 BUGCON         CUR OP BD =0                                                               BUGCON       261     A     
 BUGCON         CUR ROUT = 0                                                               BUGCON       262     A     
 BUGCON         IF (BLNG .EQ. 0) RETURN                                                    BUGCON       263     A     
 BUGCON         DEBUG(BOUND WD) = SHIFT(BLNG, 24)                                          BUGCON       264     A     
 BUGCON         BLNG = 0                                                                   BUGCON       265     A     
 BUGCON         RETURN                                                                     BUGCON       266     A     
 BUGCON   *                                                                                BUGCON       267     A     
 BUGCON   *  HERE IF LOOKING FOR LEGAL ROUTINE NAME                                        BUGCON       268     A     
 BUGCON   *                                                                                BUGCON       269     A     
 BUGCON    1050 ELIST = ELIST - 1                                                          BUGCON       270     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)).EQ.SYMBL) GO TO 1160                               BUGCON       271     A     
 BUGCON    1245 M = 3                                                                      BUGCON       272     A     
 BUGCON         GO TO 1135                                                                 BUGCON       273     A     
 BUGCON   *                                                                                BUGCON       274     A     
 BUGCON   *  HERE IF LOOKING FOR LEGAL ROUTINE IN DRL                                      BUGCON       275     A     
 BUGCON    1160 IF (DFPACK.NE.0) GO TO 1165                                                BUGCON       276     A     
 BUGCON         ELIST = ELIST - 1                                                          BUGCON       277     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)).EQ.SLASH) 1410, 1130                               BUGCON       278     A     
 BUGCON    1165 IF (DFNOGO .LT. 0) GO TO 1185                                              BUGCON       279     A     
 BUGCON         DRL = SDRL                                                                 BUGCON       280     A     
 BUGCON         MATCH = DRLELT(SHIFT(DEBUG(ELIST),12))                                     BUGCON       281     A     
 BUGCON    1190 IF (DRL.EQ.EDRL) GO TO 1200                                                BUGCON       282     A     
 BUGCON         IF ((DRLELT(DEBUG(DRL)).EQ.MATCH).AND.                                     BUGCON       283     A     
 BUGCON        ,   ((DEBUG(DRL+1) .AND. SHIFT(MASK(39),60-1)) .EQ. 0) .AND.                BUGCON       284     A     
 BUGCON        ,    (DEBUG(DRL+1).LT.0)) GO TO 1180                                        BUGCON       285     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3785    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON         DRL = DRL + 2                                                              BUGCON       286     A     
 BUGCON         GO TO 1190                                                                 BUGCON       287     A     
 BUGCON    1200 IF (ALLROU.NE.0) GO TO 1220                                                BUGCON       288     A     
 BUGCON         M = 4                                                                      BUGCON       289     A     
 BUGCON         GO TO 1135                                                                 BUGCON       290     A     
 BUGCON    1220 IF (DRL .NE. REFMAP) GO TO 10300                                           BUGCON       291     A     
 BUGCON         DLFLG = 3                                                                  BUGCON       292     A     
 BUGCON         GO TO 10030                                                                BUGCON       293     A     
 BUGCON   10300 DEBUG(DRL) = DRLELT(SHIFT(DEBUG(ELIST), 12))                               BUGCON       294     A     
 BUGCON         DEBUG(DRL + 1) = MASK(1)                                                   BUGCON       295     A     
 BUGCON         EDRL = EDRL + 2                                                            BUGCON       296     A     
 BUGCON   *                                                                                BUGCON       297     A     
 BUGCON   *  HERE IF ROUTINE ACTIVE IN DEBUG ROUTINE LIST                                  BUGCON       298     A     
 BUGCON   *                                                                                BUGCON       299     A     
 BUGCON    1180 CUR ROUT = DRLELT(DEBUG(DRL))                                              BUGCON       300     A     
 BUGCON    1185 ELIST = ELIST - 1                                                          BUGCON       301     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)).EQ.SLASH) 1230, 1130                               BUGCON       302     A     
 BUGCON   C                                                                                BUGCON       303     A     
 BUGCON   C  HERE IF INTERNAL PACKET AND NO ROUTINE LIST                                   BUGCON       304     A     
 BUGCON   C                                                                                BUGCON       305     A     
 BUGCON    1162 ELIST = ELIST + 1                                                          BUGCON       306     A     
 BUGCON         IF (DFNOGO .LT. 0) GO TO 1410                                              BUGCON       307     A     
 BUGCON         DRL = SDRL - 2                                                             BUGCON       308     A     
 BUGCON         TEMP = DRLELT(DEBUG(DBGPROG))                                              BUGCON       309     A     
 BUGCON   11622 DRL = DRL + 2                                                              BUGCON       310     A     
 BUGCON         IF (DRLELT(DEBUG(DRL)) .NE. TEMP) GO TO 11622                              BUGCON       311     A     
 BUGCON         CUR ROUT = TEMP                                                            BUGCON       312     A     
 BUGCON         GO TO 1230                                                                 BUGCON       313     A     
 BUGCON   *                                                                                BUGCON       314     A     
 BUGCON   *  HERE TO SET UP COW, POW, AND DISPOW                                           BUGCON       315     A     
 BUGCON   *                                                                                BUGCON       316     A     
 BUGCON    1230 IF((COW.NE.0).OR.(DFNOGO.LT.0)) GO TO 1410                                 BUGCON       317     A     
 BUGCON         COW = POW + 1                                                              BUGCON       318     A     
 BUGCON         POW = COW                                                                  BUGCON       319     A     
 BUGCON         I = 0                                                                      BUGCON       320     A     
 BUGCON    1110 IF ((DISPOW.AND.77B) .NE. 1R9) GO TO 1100                                  BUGCON       321     A     
 BUGCON         DISPOW = SHIFT(DISPOW,-6)                                                  BUGCON       322     A     
 BUGCON         I = I+1                                                                    BUGCON       323     A     
 BUGCON         GO TO 1110                                                                 BUGCON       324     A     
 BUGCON    1100 IF (I.NE.6) GO TO 1120                                                     BUGCON       325     A     
 BUGCON         WRITE (DBGOUT, 1101)                                                       BUGCON       326     A     
 BUGCON    1101 FORMAT(15X, *DEBUG: NO MORE OPTIONS LIST NUMBERS*)                         BUGCON       327     A     
 BUGCON         DFNOGO = -1                                                                BUGCON       328     A     
 BUGCON         CUR ROUT = 0                                                               BUGCON       329     A     
 BUGCON         GO TO 1410                                                                 BUGCON       330     A     
 BUGCON    1120 DISPOW = DISPOW + 1                                                        BUGCON       331     A     
 BUGCON    1150 IF (I.EQ.0) GO TO 1410                                                     BUGCON       332     A     
 BUGCON         DISPOW = SHIFT(DISPOW,6) .OR. 1R0                                          BUGCON       333     A     
 BUGCON         I = I - 1                                                                  BUGCON       334     A     
 BUGCON         GO TO 1150                                                                 BUGCON       335     A     
 BUGCON   *                                                                                BUGCON       336     A     
 BUGCON   *  HERE IF LOOKING FOR LEGAL BOUNDS FORM ( F, T)                                 BUGCON       337     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3786    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON   *                                                                                BUGCON       338     A     
 BUGCON   11410 ELIST = ELIST + 1                                                          BUGCON       339     A     
 BUGCON    1410 IF (AREA FLG .LT. 0) GO TO 1321                                            BUGCON       340     A     
 BUGCON         IF (DFTYPE .NE. 40) GO TO 10401                                            BUGCON       341     A     
 BUGCON         AREA FLG = 1                                                               BUGCON       342     A     
 BUGCON         ELIST = ELIST - 1                                                          BUGCON       343     A     
 BUGCON    1415 IF (EFORM(DEBUG(ELIST)).NE.LPAREN) GO TO 1130                              BUGCON       344     A     
 BUGCON         ELIST = ELIST - 1                                                          BUGCON       345     A     
 BUGCON         ELIST1 = ELIST                                                             BUGCON       346     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)) - 1) 1240, 1250, 1241                              BUGCON       347     A     
 BUGCON    1241 IF (EFORM(DEBUG(ELIST)).NE. STAR) GO TO 1245                               BUGCON       348     A     
 BUGCON         STAR1 = -1                                                                 BUGCON       349     A     
 BUGCON         FM BOUND = 0                                                               BUGCON       350     A     
 BUGCON         GO TO 1260                                                                 BUGCON       351     A     
 BUGCON    1240 FM BOUND = 1                                                               BUGCON       352     A     
 BUGCON         GO TO 1260                                                                 BUGCON       353     A     
 BUGCON    1250 FM BOUND = 0                                                               BUGCON       354     A     
 BUGCON         ELIST = ELIST - 1                                                          BUGCON       355     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)).NE.CONST) GO TO 1270                               BUGCON       356     A     
 BUGCON         FM BOUND = 2                                                               BUGCON       357     A     
 BUGCON    1260 ELIST = ELIST - 1                                                          BUGCON       358     A     
 BUGCON    1270 IF((SHIFT(DEBUG(ELIST+1),18).AND.77B).EQ.1RL) GO TO 1272                   BUGCON       359     A     
 BUGCON         IF((FMBOUND.NE.0) .OR. (STAR1.NE.0)) GO TO 1272                            BUGCON       360     A     
 BUGCON    1293 M = 5                                                                      BUGCON       361     A     
 BUGCON         GO TO 1135                                                                 BUGCON       362     A     
 BUGCON    1272 IF(EFORM(DEBUG(ELIST)) .EQ. COMMA) GO TO 1271                              BUGCON       363     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)) .NE. RPAREN) GO TO 1130                            BUGCON       364     A     
 BUGCON         IF (STAR1 .NE. 0) GO TO 1131                                               BUGCON       365     A     
 BUGCON         SAMLINE = -1                                                               BUGCON       366     A     
 BUGCON         TO BOUND = FM BOUND                                                        BUGCON       367     A     
 BUGCON         GO TO 1291                                                                 BUGCON       368     A     
 BUGCON    1271 ELIST = ELIST - 1                                                          BUGCON       369     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)) - SYMBL) 1285, 1280, 1281                          BUGCON       370     A     
 BUGCON    1281 IF (EFORM(DEBUG(ELIST)) .NE. STAR) GO TO 1245                              BUGCON       371     A     
 BUGCON         STAR2 = -1                                                                 BUGCON       372     A     
 BUGCON         TO BOUND = 0                                                               BUGCON       373     A     
 BUGCON         GO TO 1295                                                                 BUGCON       374     A     
 BUGCON    1285 TO BOUND = 1                                                               BUGCON       375     A     
 BUGCON         GO TO 1295                                                                 BUGCON       376     A     
 BUGCON    1280 TO BOUND = 0                                                               BUGCON       377     A     
 BUGCON         ELIST = ELIST - 1                                                          BUGCON       378     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)) .NE. CONST) GO TO 1290                             BUGCON       379     A     
 BUGCON         TO BOUND = 2                                                               BUGCON       380     A     
 BUGCON    1295 ELIST = ELIST - 1                                                          BUGCON       381     A     
 BUGCON    1290 IF((SHIFT(DEBUG(ELIST+1),18).AND.77B).EQ.1RL) GO TO 1292                   BUGCON       382     A     
 BUGCON         IF((TOBOUND.NE.0) .OR. (STAR2.NE.0)) GO TO 1292                            BUGCON       383     A     
 BUGCON         GO TO 1293                                                                 BUGCON       384     A     
 BUGCON    1292 IF (EFORM(DEBUG(ELIST)) .NE. RPAREN) GO TO 1130                            BUGCON       385     A     
 BUGCON    1291 IF ((CUR ROUT .EQ.0) .OR. (DFNOGO .LT. 0)) GO TO 1300                      BUGCON       386     A     
 BUGCON   *                                                                                BUGCON       387     A     
 BUGCON   *  HERE IF CORRECT FORM FOR BOUNDS - SET UP HEADER OR OPTIONS WORD OR            BUGCON       388     A     
 BUGCON   *  BOTH IF NECESSARY                                                             BUGCON       389     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3787    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON         IF (DFPACK . EQ. 0) RETURN                                                 BUGCON       390     A     
 BUGCON   *                                                                                BUGCON       391     A     
 BUGCON    1321 IF ( SHIFT(ADDRESS(DEBUG(DRL)), 42) .GT. 0) GO TO 1310                     BUGCON       392     A     
 BUGCON         AREAEND = AREAEND + 1                                                      BUGCON       393     A     
 BUGCON         IF (AREAEND .GE. ELAST) CALL BUGCLO, RETURNS(1302)                         BUGCON       394     A     
 BUGCON         BLNG = 1                                                                   BUGCON       395     A     
 BUGCON         DEBUG(AREAEND) = SHIFT(DISPOW, 18) .OR. OPWORD                             BUGCON       396     A     
 BUGCON         OPWORD = AREAEND                                                           BUGCON       397     A     
 BUGCON         IF (ADDRESS(DEBUG(DRL)).EQ.0) GO TO 1320                                   BUGCON       398     A     
 BUGCON         DEBUG(SHIFT(MASK(18), 18) - ADDRESS(DEBUG(DRL))) =                         BUGCON       399     A     
 BUGCON        ,    DEBUG(SHIFT(MASK(18),18) - ADDRESS (DEBUG(DRL))) .OR.                  BUGCON       400     A     
 BUGCON        ,         (SHIFT(MASK(18),18) - AREAEND)                                    BUGCON       401     A     
 BUGCON         GO TO 1315                                                                 BUGCON       402     A     
 BUGCON    1320 DEBUG(DRL) = DEBUG(DRL) .OR. (SHIFT(MASK(18),18) - AREAEND)                BUGCON       403     A     
 BUGCON         DEBUG(DRL+1) = DEBUG(DRL+1) .OR. AREAEND                                   BUGCON       404     A     
 BUGCON    1315 AREAEND = AREAEND + 1                                                      BUGCON       405     A     
 BUGCON         IF (AREAEND .GE. ELAST) CALL BUGCLO, RETURNS(1302)                         BUGCON       406     A     
 BUGCON         GO TO 1325                                                                 BUGCON       407     A     
 BUGCON    1310 IF (CUR OP BD .NE. 0) GO TO 1330                                           BUGCON       408     A     
 BUGCON         AREAEND = AREAEND + 1                                                      BUGCON       409     A     
 BUGCON         IF (AREAEND .GE. ELAST) CALL BUGCLO, RETURNS(1302)                         BUGCON       410     A     
 BUGCON         DEBUG(ADDRESS(DEBUG(DRL))) = DEBUG(ADDRESS(DEBUG(DRL))).OR.AREAEND         BUGCON       411     A     
 BUGCON         BLNG = 0                                                                   BUGCON       412     A     
 BUGCON    1325 BLNG = BLNG + 1                                                            BUGCON       413     A     
 BUGCON         CUR OP BD = -1                                                             BUGCON       414     A     
 BUGCON         DEBUG(DRL) = DRLELT(DEBUG(DRL)).OR.AREAEND                                 BUGCON       415     A     
 BUGCON         DEBUG(DRL+1) =DEBUG(DRL+1) .OR. MASK(1)                                    BUGCON       416     A     
 BUGCON         BOUND WD = AREAEND                                                         BUGCON       417     A     
 BUGCON   *                                                                                BUGCON       418     A     
 BUGCON   *  HERE TO CONVERT ELIST OF BOUNDS INTO B-CELL                                   BUGCON       419     A     
 BUGCON   *                                                                                BUGCON       420     A     
 BUGCON    1330 NO = 0                                                                     BUGCON       421     A     
 BUGCON         IF (FM BOUND.EQ.2) NO = 1                                                  BUGCON       422     A     
 BUGCON         NO = NO + 1                                                                BUGCON       423     A     
 BUGCON         IF (TO BOUND .EQ. 2) NO = NO + 1                                           BUGCON       424     A     
 BUGCON         AREAEND = AREAEND + 3 + NO                                                 BUGCON       425     A     
 BUGCON         IF (AREAEND .GE. ELAST) CALL BUGCLO, RETURNS (1302)                        BUGCON       426     A     
 BUGCON         BLNG = BLNG + 3 + NO                                                       BUGCON       427     A     
 BUGCON         DEBUG(AREAEND-2-NO) = SHIFT(FM BOUND, 58) .OR. SHIFT(TO BOUND, 56)         BUGCON       428     A     
 BUGCON        ,    .OR. SHIFT(CFPACK, 50) .OR. SHIFT(DUKE1, 25) .OR. SHIFT(NO,23)         BUGCON       429     A     
 BUGCON         NO = NO - 1                                                                BUGCON       430     A     
 BUGCON         DEBUG(AREAEND-2-NO) = 0                                                    BUGCON       431     A     
 BUGCON         DEBUG(AREAEND-1-NO) = 0                                                    BUGCON       432     A     
 BUGCON         GO TO (1340, 1350, 1360) FM BOUND + 1                                      BUGCON       433     A     
 BUGCON    1340 IF (STAR1 .EQ. 0) GO TO 1341                                               BUGCON       434     A     
 BUGCON         STAR1 = 0                                                                  BUGCON       435     A     
 BUGCON         DEBUG(AREAEND - NO) = FSTLINE                                              BUGCON       436     A     
 BUGCON         GO TO 1370                                                                 BUGCON       437     A     
 BUGCON    1341 LINE NO = 0                                                                BUGCON       438     A     
 BUGCON         LINE DIS = SHIFT(DEBUG(ELIST1), 18) .AND. MASK(42)                         BUGCON       439     A     
 BUGCON    1342 LINE DIS = SHIFT(LINE DIS, 6)                                              BUGCON       440     A     
 BUGCON         IN LINE = LINE DIS .AND. 77B                                               BUGCON       441     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3788    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON         IF (IN LINE .EQ. 1R ) GO TO 1344                                           BUGCON       442     A     
 BUGCON         IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+)) GO TO 1139                 BUGCON       443     A     
 BUGCON         LINE NO = LINE NO * 10 + (IN LINE - 1R0)                                   BUGCON       444     A     
 BUGCON         GO TO 1342                                                                 BUGCON       445     A     
 BUGCON    1344 IF ((LINE NO.AND.MASK(30)) .NE. 0)                    GO TO 1139           BUGCON       446     A     
 BUGCON         DEBUG(AREAEND - NO) = SHIFT(LINE NO, 30)                                   BUGCON       447     A     
 BUGCON         GO TO 1370                                                                 BUGCON       448     A     
 BUGCON    1350 LINE DIS = DEBUG(DFSCON1 + (ADDRESS(DEBUG(ELIST1)) - CONSTOR))             BUGCON       449     A     
 BUGCON         DO 1352 IJ = 1,10                                                          BUGCON       450     A     
 BUGCON         IN LINE = SHIFT(LINEDIS,6) .AND. 77B                                       BUGCON       451     A     
 BUGCON         IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+)) GO TO 1139                 BUGCON       452     A     
 BUGCON         IF (IN LINE .NE. 1R0) GO TO 1354                                           BUGCON       453     A     
 BUGCON         LINE DIS = (SHIFT(LINE DIS,6) .AND. MASK(54)) .OR. 1R                      BUGCON       454     A     
 BUGCON    1352 CONTINUE                                                                   BUGCON       455     A     
 BUGCON         GO TO 1139                                                                 BUGCON       456     A     
 BUGCON    1354 IF ((LINE DIS .AND. SHIFT(MASK(30),30)) .NE. 5R     ) GO TO 1139           BUGCON       457     A     
 BUGCON         DO 1356 IJ = 1,5                                                           BUGCON       458     A     
 BUGCON         LINE DIS = SHIFT(LINE DIS, 6)                                              BUGCON       459     A     
 BUGCON         IN LINE = LINEDIS .AND. 77B                                                BUGCON       460     A     
 BUGCON         IF (IN LINE .EQ. 1R ) GO TO 1356                                           BUGCON       461     A     
 BUGCON         IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+)) GO TO 1139                 BUGCON       462     A     
 BUGCON    1356 CONTINUE                                                                   BUGCON       463     A     
 BUGCON         DEBUG(AREAEND - NO) = SHIFT(LINEDIS,30) .AND. MASK(30)                     BUGCON       464     A     
 BUGCON         GO TO 1370                                                                 BUGCON       465     A     
 BUGCON    1360 KJ = 0                                                                     BUGCON       466     A     
 BUGCON    1361 LINE DIS = DEBUG(DFSCON1 +(ADDRESS(DEBUG(ELIST1-1)) - CONSTOR))            BUGCON       467     A     
 BUGCON         IN LINE = SHIFT(LINEDIS,6) .AND. 77B                                       BUGCON       468     A     
 BUGCON         IF (IN LINE .NE. 1R.) GO TO 1139                                           BUGCON       469     A     
 BUGCON         LINE DIS = (SHIFT(LINE DIS,6) .AND. MASK(54)) .OR. 1R                      BUGCON       470     A     
 BUGCON         UP DIS = IN LINE                                                           BUGCON       471     A     
 BUGCON         DO 1362 IJ = 1,9                                                           BUGCON       472     A     
 BUGCON         IN LINE = SHIFT(LINEDIS,6) .AND. 77B                                       BUGCON       473     A     
 BUGCON         IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+)) GO TO 1139                 BUGCON       474     A     
 BUGCON         IF (IN LINE .NE. 1R0) GO TO 1364                                           BUGCON       475     A     
 BUGCON         LINE DIS = (SHIFT(LINE DIS,6) .AND. MASK(54)) .OR. 1R                      BUGCON       476     A     
 BUGCON    1362 CONTINUE                                                                   BUGCON       477     A     
 BUGCON         GO TO 1139                                                                 BUGCON       478     A     
 BUGCON    1364 IF ((LINE DIS .AND. SHIFT(MASK(30),30)) .NE. 5R     ) GO TO 1139           BUGCON       479     A     
 BUGCON         UP NO = 0                                                                  BUGCON       480     A     
 BUGCON         DO 1366 JK = 1,6                                                           BUGCON       481     A     
 BUGCON         IN LINE = SHIFT(LINEDIS,6) .AND. 77B                                       BUGCON       482     A     
 BUGCON         IF (IN LINE .EQ. 1R ) GO TO 1368                                           BUGCON       483     A     
 BUGCON         IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+)) GO TO 1139                 BUGCON       484     A     
 BUGCON         UP NO = SHIFT(UP NO, 6) .OR. IN LINE                                       BUGCON       485     A     
 BUGCON         LINE DIS = SHIFT(LINE DIS, 6)                                              BUGCON       486     A     
 BUGCON    1366 CONTINUE                                                                   BUGCON       487     A     
 BUGCON    1368 IF (JK .EQ. 6) GO TO 1369                                                  BUGCON       488     A     
 BUGCON         JKJ = 6-JK                                                                 BUGCON       489     A     
 BUGCON         DO 1367 IJ = 1,JKJ                                                         BUGCON       490     A     
 BUGCON         UPDIS = SHIFT (UPDIS,6) .OR. 1R                                            BUGCON       491     A     
 BUGCON    1367 CONTINUE                                                                   BUGCON       492     A     
 BUGCON    1369 UP DIS = SHIFT(UP DIS, 6*(JK-1)) .OR. UP NO                                BUGCON       493     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3789    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON         IF (KJ .EQ.1) GO TO  1402                                                  BUGCON       494     A     
 BUGCON         UP DIS = SHIFT(UP DIS, 36)                                                 BUGCON       495     A     
 BUGCON         DEBUG(AREAEND-NO) = (SHIFT(DEBUG(ELIST1), 12) .AND..NOT. MINZERO)          BUGCON       496     A     
 BUGCON        ,    .OR. (UP DIS .AND. MINZERO)                                            BUGCON       497     A     
 BUGCON         ELIST1 = ELIST1 - 1                                                        BUGCON       498     A     
 BUGCON         NO = NO - 1                                                                BUGCON       499     A     
 BUGCON         DEBUG(AREAEND - NO) = UP DIS .AND. MASK(30)                                BUGCON       500     A     
 BUGCON    1370 IF(SAMLINE.EQ.0) GO TO 1371                                                BUGCON       501     A     
 BUGCON         SAMLINE = 0                                                                BUGCON       502     A     
 BUGCON         IF (FM BOUND .EQ. 2) ELIST1 = ELIST1 + 1                                   BUGCON       503     A     
 BUGCON         GO TO 1372                                                                 BUGCON       504     A     
 BUGCON    1371 ELIST1 = ELIST1 - 2                                                        BUGCON       505     A     
 BUGCON    1372 GO TO (1380, 1390, 1400) TO BOUND + 1                                      BUGCON       506     A     
 BUGCON    1380 IF (STAR2 .EQ. 0) GO TO 1381                                               BUGCON       507     A     
 BUGCON         STAR2 = 0                                                                  BUGCON       508     A     
 BUGCON         DEBUG(AREAEND) = DEBUG(AREAEND) .OR. LSTLINE                               BUGCON       509     A     
 BUGCON         GO TO 1300                                                                 BUGCON       510     A     
 BUGCON    1381 LINE NO = 0                                                                BUGCON       511     A     
 BUGCON         LINE DIS = SHIFT(DEBUG(ELIST1),18) .AND. MASK(42)                          BUGCON       512     A     
 BUGCON    1382 LINE DIS = SHIFT(LINE DIS, 6)                                              BUGCON       513     A     
 BUGCON         IN LINE = LINE DIS .AND. 77B                                               BUGCON       514     A     
 BUGCON         IF (IN LINE .EQ. 1R ) GO TO 1384                                           BUGCON       515     A     
 BUGCON         IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+)) GO TO 1139                 BUGCON       516     A     
 BUGCON         LINE NO = LINE NO * 10 + (IN LINE - 1R0)                                   BUGCON       517     A     
 BUGCON         GO TO 1382                                                                 BUGCON       518     A     
 BUGCON    1384 IF ((LINE NO .AND. MASK(30)) .GT. 0)                  GO TO 1139           BUGCON       519     A     
 BUGCON         DEBUG(AREAEND) = DEBUG(AREAEND) .OR. LINE NO                               BUGCON       520     A     
 BUGCON         GO TO 1300                                                                 BUGCON       521     A     
 BUGCON    1390 LINE DIS = DEBUG(DFSCON1 + (ADDRESS(DEBUG(ELIST1)) - CONSTOR))             BUGCON       522     A     
 BUGCON         DO 1392 IJ = 1,10                                                          BUGCON       523     A     
 BUGCON         IN LINE = SHIFT(LINEDIS,6) .AND. 77B                                       BUGCON       524     A     
 BUGCON         IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+)) GO TO 1139                 BUGCON       525     A     
 BUGCON         IF (IN LINE .NE. 1R0) GO TO 1394                                           BUGCON       526     A     
 BUGCON         LINE DIS = (SHIFT(LINE DIS,6) .AND. MASK(54)) .OR. 1R                      BUGCON       527     A     
 BUGCON    1392 CONTINUE                                                                   BUGCON       528     A     
 BUGCON         GO TO 1139                                                                 BUGCON       529     A     
 BUGCON    1394 IF ((LINE DIS .AND. SHIFT(MASK(30),30))  .NE. 5R     )GO TO 1139           BUGCON       530     A     
 BUGCON         DO 1396 IJ = 1,5                                                           BUGCON       531     A     
 BUGCON         LINE DIS = SHIFT(LINE DIS, 6)                                              BUGCON       532     A     
 BUGCON         IN LINE = LINE DIS .AND. 77B                                               BUGCON       533     A     
 BUGCON         IF (IN LINE .EQ. 1R ) GO TO 1396                                           BUGCON       534     A     
 BUGCON         IF ((IN LINE .LE. 1RZ) .OR. (IN LINE .GE. 1R+))GO TO 1139                  BUGCON       535     A     
 BUGCON    1396 CONTINUE                                                                   BUGCON       536     A     
 BUGCON         DEBUG(AREAEND) = DEBUG(AREAEND) .OR.                                       BUGCON       537     A     
 BUGCON        ,    (LINE DIS .AND. SHIFT(MASK(30),30))                                    BUGCON       538     A     
 BUGCON         GO TO 1300                                                                 BUGCON       539     A     
 BUGCON    1400 KJ = 1                                                                     BUGCON       540     A     
 BUGCON         GO TO 1361                                                                 BUGCON       541     A     
 BUGCON    1402 DEBUG(ELIST1) = SHIFT(DEBUG(ELIST1),42)                                    BUGCON       542     A     
 BUGCON         DEBUG(AREAEND - 1) = DEBUG(AREAEND - 1) .OR.                               BUGCON       543     A     
 BUGCON        ,    (DEBUG(ELIST1) .AND. SHIFT(MASK(30),30))                               BUGCON       544     A     
 BUGCON         DEBUG(AREAEND) = DEBUG(ELIST1) .AND. MASK(18)  .OR.                        BUGCON       545     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3790    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON        ,   (SHIFT(UP DIS,6) .AND. SHIFT(MASK(42),  42))                            BUGCON       546     A     
 BUGCON         GO TO 1300                                                                 BUGCON       547     A     
 BUGCON    1303 WRITE (DBGOUT, 71)                                                         BUGCON       548     A     
 BUGCON         DFNOGO = -13                                                               BUGCON       549     A     
 BUGCON         GO TO 1300                                                                 BUGCON       550     A     
 BUGCON    1302 POW = -1                                                                   BUGCON       551     A     
 BUGCON         CALL BUGCLO, RETURNS (1303)                                                BUGCON       552     A     
 BUGCON         DFNOGO = -13                                                               BUGCON       553     A     
 BUGCON    1131 STAR1 = 0                                                                  BUGCON       554     A     
 BUGCON         M= 13                                                                      BUGCON       555     A     
 BUGCON         CALL DEBUG ER                                                              BUGCON       556     A     
 BUGCON   *                                                                                BUGCON       557     A     
 BUGCON   *  HERE IF DONE PROCESSING A BOUNDS SPECIFICATION                                BUGCON       558     A     
 BUGCON   *                                                                                BUGCON       559     A     
 BUGCON    1300 IF (AREA FLG .LT. 0) GO TO (20123, 20111) - AREA FLG                       BUGCON       560     A     
 BUGCON         ELIST = ELIST - 1                                                          BUGCON       561     A     
 BUGCON         MISFLAG = 1                                                                BUGCON       562     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)).EQ. COMMA) GO TO 1410                              BUGCON       563     A     
 BUGCON         IF (EFORM (DEBUG(ELIST)).EQ.LPAREN) GO TO 11410                            BUGCON       564     A     
 BUGCON         CUR ROUT = 0                                                               BUGCON       565     A     
 BUGCON         CUR OP BD = 0                                                              BUGCON       566     A     
 BUGCON         IF (BLNG .EQ. 0) GO TO 11138                                               BUGCON       567     A     
 BUGCON         DEBUG(BOUND WD) = SHIFT(BLNG, 24)                                          BUGCON       568     A     
 BUGCON         BLNG = 0                                                                   BUGCON       569     A     
 BUGCON   11138 IF (EFORM(DEBUG(ELIST)) .EQ. SLASH) GO TO 1050                             BUGCON       570     A     
 BUGCON         IF(EFORM(DEBUG(ELIST)).NE. EOS) GO TO 1130                                 BUGCON       571     A     
 BUGCON         IF((CUR ROUT .EQ. 0).OR.(DFNOGO.LT.0)) GO TO 1430                          BUGCON       572     A     
 BUGCON         RETURN                                                                     BUGCON       573     A     
 BUGCON    1139 M = 5                                                                      BUGCON       574     A     
 BUGCON         CALL DEBUG ER                                                              BUGCON       575     A     
 BUGCON         AREAEND = AREAEND -4-NO                                                    BUGCON       576     A     
 BUGCON         BLNG = BLNG - 4 - NO                                                       BUGCON       577     A     
 BUGCON         IF (BLNG - 2) 1191, 1192, 1430                                             BUGCON       578     A     
 BUGCON    1191 TEMP = ADDRESS(DEBUG(DRL+1)) + 1                                           BUGCON       579     A     
 BUGCON    1196 IF (SHIFT(TEMP, 42)) 1193, 1193, 1194                                      BUGCON       580     A     
 BUGCON    1193 TEMP = (SHIFT(MASK(18),18) - TEMP) + 1                                     BUGCON       581     A     
 BUGCON    1194 ITEMP = ADDRESS(DEBUG(TEMP))                                               BUGCON       582     A     
 BUGCON         IF (ITEMP .EQ. AREAEND) GO TO 1195                                         BUGCON       583     A     
 BUGCON         TEMP = ITEMP                                                               BUGCON       584     A     
 BUGCON         GO TO 1196                                                                 BUGCON       585     A     
 BUGCON    1195 DEBUG(TEMP) = DRLELT(DEBUG(TEMP))                                          BUGCON       586     A     
 BUGCON         DEBUG(DRL) = DRLELT(DEBUG(DRL)) .OR. TEMP                                  BUGCON       587     A     
 BUGCON         AREAEND = AREAEND - 1                                                      BUGCON       588     A     
 BUGCON         BLNG = 0                                                                   BUGCON       589     A     
 BUGCON         GO TO 1430                                                                 BUGCON       590     A     
 BUGCON    1192 AREAEND = AREAEND - 1                                                      BUGCON       591     A     
 BUGCON         ITEMP = ADDRESS(DEBUG(DRL+1))                                              BUGCON       592     A     
 BUGCON         TEMP = 0                                                                   BUGCON       593     A     
 BUGCON    1197 IF (ITEMP .EQ. AREAEND) GO TO 1199                                         BUGCON       594     A     
 BUGCON         TEMP = ITEMP + 1                                                           BUGCON       595     A     
 BUGCON    1198 TEMP = ADDRESS(DEBUG(TEMP))                                                BUGCON       596     A     
 BUGCON         IF (SHIFT(TEMP, 42) .GE. 0) GO TO 1198                                     BUGCON       597     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3791    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON         ITEMP = (SHIFT(MASK(18),18)) - TEMP                                        BUGCON       598     A     
 BUGCON         GO TO 1197                                                                 BUGCON       599     A     
 BUGCON    1199 DEBUG(DRL) = DRLELT(DEBUG(DRL)) .OR. TEMP                                  BUGCON       600     A     
 BUGCON         DEBUG(DRL+1) = DEBUG(DRL+1) .AND. SHIFT(MASK(59), 60-1)                    BUGCON       601     A     
 BUGCON         IF (TEMP .EQ. 0) DEBUG(DRL+1) = DRLELT(DEBUG(DRL+1))                       BUGCON       602     A     
 BUGCON         AREAEND = AREAEND - 1                                                      BUGCON       603     A     
 BUGCON         DEBUG(SAREA+NEXT) = DEBUG(SAREA+NEXT) .OR. MASK(1)                         BUGCON       604     A     
 BUGCON         GO TO 1430                                                                 BUGCON       605     A     
 BUGCON   *                                                                                BUGCON       606     A     
 BUGCON   *  HERE IF OPTIONS STATEMENT                                                     BUGCON       607     A     
 BUGCON   *                                                                                BUGCON       608     A     
 BUGCON    2010 IF (DFPACK.EQ.0) GO TO 2020                                                BUGCON       609     A     
 BUGCON         IF (DFNOGO .LT. 0) GO TO 2020                                              BUGCON       610     A     
 BUGCON         IF (DFOPFLG .EQ. -1) GO TO 2020                                            BUGCON       611     A     
 BUGCON         IF ( (MISFLAG .LT. 0) .AND. (OPWORD .EQ. 0) ) GO TO 2020                   BUGCON       612     A     
 BUGCON         IF (AREA FLG .EQ. 1) GO TO 2011                                            BUGCON       613     A     
 BUGCON         FM BOUND = 0                                                               BUGCON       614     A     
 BUGCON         TO BOUND = 0                                                               BUGCON       615     A     
 BUGCON         DRL = SDRL - 2                                                             BUGCON       616     A     
 BUGCON         AREA FLG = -1                                                              BUGCON       617     A     
 BUGCON         IF (ALL ROU .NE. 0) 20122, 20131                                           BUGCON       618     A     
 BUGCON   20123 DEBUG(BOUND WD) = SHIFT( BLNG, 24)                                         BUGCON       619     A     
 BUGCON   20131 DRL = DRL + 2                                                              BUGCON       620     A     
 BUGCON         IF (DRL .EQ. EDRL) GO TO 2011                                              BUGCON       621     A     
 BUGCON         IF ((DEBUG(DRL) .LT. 0) .OR. (DEBUG(DRL+1) .GE. 0)) GO TO 20131            BUGCON       622     A     
 BUGCON         STAR1 = -1                                                                 BUGCON       623     A     
 BUGCON         STAR2 = -1                                                                 BUGCON       624     A     
 BUGCON         GO TO 1230                                                                 BUGCON       625     A     
 BUGCON   20122 STAR1 = -1                                                                 BUGCON       626     A     
 BUGCON         STAR2 = -1                                                                 BUGCON       627     A     
 BUGCON         AREA FLG = -2                                                              BUGCON       628     A     
 BUGCON         IF (DFPACK .EQ. 1) GO TO 2012                                              BUGCON       629     A     
 BUGCON         TEMP = DRLELT(DEBUG(DBGPROG))                                              BUGCON       630     A     
 BUGCON         DRL = SDRL - 2                                                             BUGCON       631     A     
 BUGCON   20125 DRL = DRL + 2                                                              BUGCON       632     A     
 BUGCON         IF ((DRLELT(DEBUG(DRL)) .EQ. TEMP) .AND.                                   BUGCON       633     A     
 BUGCON        ,   ((DEBUG(DRL+1) .AND. SHIFT(MASK(39),60-1)) .EQ. 0))1230, 20125          BUGCON       634     A     
 BUGCON    2012 DRL = DRL + 2                                                              BUGCON       635     A     
 BUGCON         IF ((DRLELT(DEBUG(DRL)) .EQ. SPIDER) .AND.                                 BUGCON       636     A     
 BUGCON        ,   ((DEBUG(DRL+1) .AND. SHIFT(MASK(39),60-1)) .EQ. 0))1230, 2012           BUGCON       637     A     
 BUGCON   20111 DEBUG(BOUND WD) = SHIFT(BLNG, 24)                                          BUGCON       638     A     
 BUGCON    2011 COW = 0                                                                    BUGCON       639     A     
 BUGCON         CUR OP BD = 0                                                              BUGCON       640     A     
 BUGCON         CUR ROUT = DRLELT(DEBUG(DRL))                                              BUGCON       641     A     
 BUGCON         RECORD = RECORD + 1                                                        BUGCON       642     A     
 BUGCON         DRL = EDRL                                                                 BUGCON       643     A     
 BUGCON         IF (RECORD .LT. LNGIND) GO TO 2032                                         BUGCON       644     A     
 BUGCON         IF (ELAST - AREAEND .GT. 50) GO TO 2034                                    BUGCON       645     A     
 BUGCON         POW = -1                                                                   BUGCON       646     A     
 BUGCON         CALL BUGCLO, RETURNS (2036)                                                BUGCON       647     A     
 BUGCON    2036 DFNOGO = -13                                                               BUGCON       648     A     
 BUGCON    2034 CALL DMVWDS ((AREAEND - SAREA) + 1, DEBUG(SAREA), DEBUG(SAREA+50))         BUGCON       649     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3792    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON         SAREA = SAREA + 50                                                         BUGCON       650     A     
 BUGCON         AREAEND = AREAEND + 50                                                     BUGCON       651     A     
 BUGCON         LNG IND = LNG IND + 50                                                     BUGCON       652     A     
 BUGCON         OP WORD = OP WORD + 50                                                     BUGCON       653     A     
 BUGCON         TEMP = OPWORD                                                              BUGCON       654     A     
 BUGCON   20321 TEMP1 = ADDRESS(DEBUG(TEMP))                                               BUGCON       655     A     
 BUGCON         IF (TEMP1 .EQ. 0) GO TO 2032                                               BUGCON       656     A     
 BUGCON         DEBUG(TEMP) = DEBUG(TEMP) + 50                                             BUGCON       657     A     
 BUGCON         TEMP = TEMP1                                                               BUGCON       658     A     
 BUGCON         GO TO 20321                                                                BUGCON       659     A     
 BUGCON    2032 IF (DRL .NE. REFMAP) GO TO 10400                                           BUGCON       660     A     
 BUGCON         DLFLG = 4                                                                  BUGCON       661     A     
 BUGCON         GO TO 10030                                                                BUGCON       662     A     
 BUGCON   10400 DEBUG(DRL+1) = RECORD                                                      BUGCON       663     A     
 BUGCON   20323 TEMP = ADDRESS(DEBUG(OPWORD))                                              BUGCON       664     A     
 BUGCON         DEBUG(OPWORD) = DRLELT(DEBUG(OPWORD)) .OR. RECORD                          BUGCON       665     A     
 BUGCON         IF (TEMP .EQ. 0) GO TO 20322                                               BUGCON       666     A     
 BUGCON         OPWORD = TEMP                                                              BUGCON       667     A     
 BUGCON         GO TO 20323                                                                BUGCON       668     A     
 BUGCON   20322 OPWORD = 0                                                                 BUGCON       669     A     
 BUGCON   10401 DEBUG(DRL) = SHIFT(DISPOW,18)                                              BUGCON       670     A     
 BUGCON         OPDRL = DRL                                                                BUGCON       671     A     
 BUGCON         OPREC = RECORD                                                             BUGCON       672     A     
 BUGCON         DFNESTW = AREAEND +1                                                       BUGCON       673     A     
 BUGCON         IF (DFNESTW .EQ. ELAST) CALL BUGCLO, RETURNS (2222)                        BUGCON       674     A     
 BUGCON         DFNEST = 4                                                                 BUGCON       675     A     
 BUGCON         EDRL = EDRL + 2                                                            BUGCON       676     A     
 BUGCON         DFOPFLG = -1                                                               BUGCON       677     A     
 BUGCON         AREA FLG = 0                                                               BUGCON       678     A     
 BUGCON         GO TO 2020                                                                 BUGCON       679     A     
 BUGCON    2223 WRITE (DBGOUT, 71)                                                         BUGCON       680     A     
 BUGCON      71 FORMAT( 14X, *DEBUG: MORE CORE IS NEEDED FOR DEBUG PROCESSING. *)          BUGCON       681     A     
 BUGCON         DFNOGO = -13                                                               BUGCON       682     A     
 BUGCON         GO TO 2020                                                                 BUGCON       683     A     
 BUGCON    2222 POW = -1                                                                   BUGCON       684     A     
 BUGCON         CALL BUGCLO, RETURNS (2223)                                                BUGCON       685     A     
 BUGCON         DFNOGO = -13                                                               BUGCON       686     A     
 BUGCON    2020 LTFLAG = .FALSE.                                                           BUGCON       687     A     
 BUGCON         LFLAG = .FALSE.                                                            BUGCON       688     A     
 BUGCON         GO TO (2100, 2100, 2100, 2400, 2500, 2600, 2800, 2900)                     BUGCON       689     A     
 BUGCON        ,    DFTYPE - 40                                                            BUGCON       690     A     
 BUGCON   *                                                                                BUGCON       691     A     
 BUGCON   *  HERE IF ARRAYS, CALLS, OR FUNCS                                               BUGCON       692     A     
 BUGCON   *                                                                                BUGCON       693     A     
 BUGCON    2100 IF (EFORM(DEBUG(ELIST)) .EQ. LPAREN)  GO TO 2110                           BUGCON       694     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)) .NE. EOS) GO TO 2200                               BUGCON       695     A     
 BUGCON         CUR OP BD = 0                                                              BUGCON       696     A     
 BUGCON         IF ((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) RETURN                         BUGCON       697     A     
 BUGCON         OH = DFTYPE - 40                                                           BUGCON       698     A     
 BUGCON         CALL PUT IN                                                                BUGCON       699     A     
 BUGCON         OH = 0                                                                     BUGCON       700     A     
 BUGCON         CALL PUT IN                                                                BUGCON       701     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3793    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON    2122 IF ((DFPACK .NE. 0) .OR. (DFNOGO .LT. 0) .OR. (OH .NE. 0)) RETURN          BUGCON       702     A     
 BUGCON         IF (MISFLAG .EQ. -1) RETURN                                                BUGCON       703     A     
 BUGCON         IF (DFNEST .NE. 4) GO TO 2124                                              BUGCON       704     A     
 BUGCON         IF ( (DFNESTW - AREAEND - 1) .EQ. 0) GO TO 2127                            BUGCON       705     A     
 BUGCON         DFNEST = -1                                                                BUGCON       706     A     
 BUGCON         DFNESTW = DFNESTW - 1                                                      BUGCON       707     A     
 BUGCON    2124 DFNEST = DFNEST + 1                                                        BUGCON       708     A     
 BUGCON    2127 OH = MINZERO                                                               BUGCON       709     A     
 BUGCON         CALL PUT IN                                                                BUGCON       710     A     
 BUGCON         RETURN                                                                     BUGCON       711     A     
 BUGCON   *                                                                                BUGCON       712     A     
 BUGCON   *  HERE IF LOOKING FOR LEGAL SYMBOL                                              BUGCON       713     A     
 BUGCON   *                                                                                BUGCON       714     A     
 BUGCON    2110 ELIST = ELIST - 1                                                          BUGCON       715     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)) .EQ. SYMBL)  GO TO 2145                            BUGCON       716     A     
 BUGCON    1247 IF (CUR OP BD .EQ. 0) GO TO 1246                                           BUGCON       717     A     
 BUGCON         CUR OP BD = 0                                                              BUGCON       718     A     
 BUGCON         IF ((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) GO TO 1246                     BUGCON       719     A     
 BUGCON         OH= 0                                                                      BUGCON       720     A     
 BUGCON         CALL PUT IN                                                                BUGCON       721     A     
 BUGCON    1246 M = 3                                                                      BUGCON       722     A     
 BUGCON         CALL DEBUG ER                                                              BUGCON       723     A     
 BUGCON         GO TO 2122                                                                 BUGCON       724     A     
 BUGCON   *                                                                                BUGCON       725     A     
 BUGCON   *  HERE TO CHECK FOR SYMBOL IN DVL OR ELSE PUT IT IN                             BUGCON       726     A     
 BUGCON   *                                                                                BUGCON       727     A     
 BUGCON    2145 IF (DFPACK .NE. 0) GO TO 2260                                              BUGCON       728     A     
 BUGCON         CALL DSYMTAB(DEBUG(ELIST),NO)                                              BUGCON       729     A     
 BUGCON         GO TO 2130                                                                 BUGCON       730     A     
 BUGCON    2260 IF ((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) GO TO 2250                     BUGCON       731     A     
 BUGCON         DVL = SDVL                                                                 BUGCON       732     A     
 BUGCON         NO = 0                                                                     BUGCON       733     A     
 BUGCON    2155 IF (DVL.GE.EDVL) GO TO 2140                                                BUGCON       734     A     
 BUGCON         IF (DEBUG(DVL).EQ.DEBUG(ELIST)) GO TO 2130                                 BUGCON       735     A     
 BUGCON         DVL = DVL + 1                                                              BUGCON       736     A     
 BUGCON         NO = NO + 1                                                                BUGCON       737     A     
 BUGCON         GO TO 2155                                                                 BUGCON       738     A     
 BUGCON    2140 DVL = DVL + 1                                                              BUGCON       739     A     
 BUGCON         IF (DVL .NE. SDRL) GO TO 2142                                              BUGCON       740     A     
 BUGCON         DLFLG = 1                                                                  BUGCON       741     A     
 BUGCON   10500 IF (ELAST - 25 .GE. DFNESTW) GO TO 10510                                   BUGCON       742     A     
 BUGCON         WRITE (DBGOUT, 10020)                                                      BUGCON       743     A     
 BUGCON         POW = 0                                                                    BUGCON       744     A     
 BUGCON         CALL BUGCLO                                                                BUGCON       745     A     
 BUGCON         DFNOGO = -1                                                                BUGCON       746     A     
 BUGCON         GO TO (2250, 2640), DLFLG                                                  BUGCON       747     A     
 BUGCON   10510 CALL DMVWDS (DVL - ELAST, DEBUG(ELAST), DEBUG(ELAST - 25))                 BUGCON       748     A     
 BUGCON         ELAST = ELAST - 25                                                         BUGCON       749     A     
 BUGCON         SSYMTAB = SSYMTAB - 25                                                     BUGCON       750     A     
 BUGCON         ESYMTAB = ESYMTAB - 25                                                     BUGCON       751     A     
 BUGCON         SDVL = SDVL - 25                                                           BUGCON       752     A     
 BUGCON         EDVL = EDVL - 25                                                           BUGCON       753     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3794    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON         ELIST = ELIST - 25                                                         BUGCON       754     A     
 BUGCON         DVL = DVL - 25                                                             BUGCON       755     A     
 BUGCON         CALL FIXPNTR                                                               BUGCON       756     A     
 BUGCON         D LNG DVL = D LNG DVL + 25                                                 BUGCON       757     A     
 BUGCON         GO TO (2142, 2662) DLFLG                                                   BUGCON       758     A     
 BUGCON    2142 EDVL = EDVL + 1                                                            BUGCON       759     A     
 BUGCON         DEBUG(DVL) = DEBUG(ELIST)                                                  BUGCON       760     A     
 BUGCON         NO = NO +1                                                                 BUGCON       761     A     
 BUGCON   *                                                                                BUGCON       762     A     
 BUGCON   *  HERE PUT ORDINAL OF SYMBOL WITH OPTIONS SYMBOL IN OPTIONS LIST                BUGCON       763     A     
 BUGCON   *                                                                                BUGCON       764     A     
 BUGCON    2130 IF (CUR OP BD .NE. 0) GO TO 2150                                           BUGCON       765     A     
 BUGCON         CUR OP BD = -1                                                             BUGCON       766     A     
 BUGCON         OH = DFTYPE - 40                                                           BUGCON       767     A     
 BUGCON         CALL PUT IN                                                                BUGCON       768     A     
 BUGCON    2150 OH = NO                                                                    BUGCON       769     A     
 BUGCON         OH = NO                                                                    BUGCON       770     A     
 BUGCON         CALL PUT IN                                                                BUGCON       771     A     
 BUGCON   *                                                                                BUGCON       772     A     
 BUGCON   *  HERE WHEN EXPECTING DELIMETER                                                 BUGCON       773     A     
 BUGCON   *                                                                                BUGCON       774     A     
 BUGCON    2250 ELIST = ELIST - 1                                                          BUGCON       775     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)) .EQ. COMMA)  GO TO 2110                            BUGCON       776     A     
 BUGCON    2740 IF (EFORM(DEBUG(ELIST)) .EQ. RPAREN) GO TO 2165                            BUGCON       777     A     
 BUGCON         CUR OP BD = 0                                                              BUGCON       778     A     
 BUGCON         IF ((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) GO TO 2200                     BUGCON       779     A     
 BUGCON         OH = 0                                                                     BUGCON       780     A     
 BUGCON         CALL PUT IN                                                                BUGCON       781     A     
 BUGCON    2200 M = 1                                                                      BUGCON       782     A     
 BUGCON         CALL DEBUG ER                                                              BUGCON       783     A     
 BUGCON         GO TO 2122                                                                 BUGCON       784     A     
 BUGCON    2165 ELIST = ELIST - 1                                                          BUGCON       785     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)) .EQ. EOS) GO TO 2170                               BUGCON       786     A     
 BUGCON         M = 2                                                                      BUGCON       787     A     
 BUGCON         CALL DEBUG ER                                                              BUGCON       788     A     
 BUGCON    2170 CUR OP BD = 0                                                              BUGCON       789     A     
 BUGCON         IF ((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) RETURN                         BUGCON       790     A     
 BUGCON         OH= 0                                                                      BUGCON       791     A     
 BUGCON         CALL PUT IN                                                                BUGCON       792     A     
 BUGCON         GO TO 2122                                                                 BUGCON       793     A     
 BUGCON    2400 IF (EFORM(DEBUG(ELIST)) .NE. EOS) GO TO 2202                               BUGCON       794     A     
 BUGCON   *                                                                                BUGCON       795     A     
 BUGCON   *  HERE IF PLAIN OLE GOTOS                                                       BUGCON       796     A     
 BUGCON   *                                                                                BUGCON       797     A     
 BUGCON         IF (LFLAG) GO TO 2980                                                      BUGCON       798     A     
 BUGCON         IF ((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) RETURN                         BUGCON       799     A     
 BUGCON         OH = 4                                                                     BUGCON       800     A     
 BUGCON         CALL PUT IN                                                                BUGCON       801     A     
 BUGCON         OH= 0                                                                      BUGCON       802     A     
 BUGCON         CALL PUT IN                                                                BUGCON       803     A     
 BUGCON         GO TO 2122                                                                 BUGCON       804     A     
 BUGCON    2202 M = 10                                                                     BUGCON       805     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3795    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON         CALL DEBUG ER                                                              BUGCON       806     A     
 BUGCON         GO TO 2122                                                                 BUGCON       807     A     
 BUGCON   *                                                                                BUGCON       808     A     
 BUGCON   *  HERE IF NOGO STATEMENT                                                        BUGCON       809     A     
 BUGCON   *                                                                                BUGCON       810     A     
 BUGCON    2500 IF (EFORM(DEBUG(ELIST)) .NE. EOS)  GO TO 2510                              BUGCON       811     A     
 BUGCON         IF ( (DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1) ) RETURN                       BUGCON       812     A     
 BUGCON         OH= 5                                                                      BUGCON       813     A     
 BUGCON         CALL PUT IN                                                                BUGCON       814     A     
 BUGCON         OH= 0                                                                      BUGCON       815     A     
 BUGCON         CALL PUT IN                                                                BUGCON       816     A     
 BUGCON         IF (DFPACK .LT. 0) NOGOFLG = -1                                            BUGCON       817     A     
 BUGCON         GO TO 2122                                                                 BUGCON       818     A     
 BUGCON    2510 M = 7                                                                      BUGCON       819     A     
 BUGCON         CALL DEBUG ER                                                              BUGCON       820     A     
 BUGCON         RETURN                                                                     BUGCON       821     A     
 BUGCON   *                                                                                BUGCON       822     A     
 BUGCON   *  HERE IF STORES STATEMENT                                                      BUGCON       823     A     
 BUGCON   *                                                                                BUGCON       824     A     
 BUGCON    2600 IF (EFORM(DEBUG(ELIST)) .NE. LPAREN)  GO TO 2200                           BUGCON       825     A     
 BUGCON   *                                                                                BUGCON       826     A     
 BUGCON   *  HERE TO FIND OR PUT SYMBOL IN DVL                                             BUGCON       827     A     
 BUGCON   *                                                                                BUGCON       828     A     
 BUGCON    2730 ELIST = ELIST - 1                                                          BUGCON       829     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)) .NE. SYMBL) GO TO 1247                             BUGCON       830     A     
 BUGCON         DVL = SDVL                                                                 BUGCON       831     A     
 BUGCON         NO = 0                                                                     BUGCON       832     A     
 BUGCON         IF (DFPACK .NE. 0) GO TO 2650                                              BUGCON       833     A     
 BUGCON         IF ((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) GO TO 2640                     BUGCON       834     A     
 BUGCON         CALL DSYMTAB(DEBUG(ELIST),NO)                                              BUGCON       835     A     
 BUGCON         GO TO 2640                                                                 BUGCON       836     A     
 BUGCON    2650 IF((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) GO TO 2640                      BUGCON       837     A     
 BUGCON         IF (DVL.GE.EDVL) GO TO 2660                                                BUGCON       838     A     
 BUGCON         IF (DEBUG(DVL).EQ.DEBUG(ELIST)) GO TO 2640                                 BUGCON       839     A     
 BUGCON         DVL = DVL + 1                                                              BUGCON       840     A     
 BUGCON         NO = NO + 1                                                                BUGCON       841     A     
 BUGCON         GO TO 2650                                                                 BUGCON       842     A     
 BUGCON    2660 DVL = DVL + 1                                                              BUGCON       843     A     
 BUGCON         IF (DVL.NE.SDRL) GO TO 2662                                                BUGCON       844     A     
 BUGCON         DLFLG = 2                                                                  BUGCON       845     A     
 BUGCON         GO TO 10500                                                                BUGCON       846     A     
 BUGCON    2662 DEBUG(DVL) = DEBUG(ELIST)                                                  BUGCON       847     A     
 BUGCON         EDVL = DVL                                                                 BUGCON       848     A     
 BUGCON         NO = NO + 1                                                                BUGCON       849     A     
 BUGCON   *                                                                                BUGCON       850     A     
 BUGCON   *  HERE TO LOOK FOR , OR .REL OP.                                                BUGCON       851     A     
 BUGCON   *                                                                                BUGCON       852     A     
 BUGCON    2640 ELIST = ELIST - 1                                                          BUGCON       853     A     
 BUGCON         IF((EFORM(DEBUG(ELIST)) .EQ. COMMA) .OR.                                   BUGCON       854     A     
 BUGCON        ,   (EFORM(DEBUG(ELIST)) .EQ. RPAREN) ) GO TO 2610                          BUGCON       855     A     
 BUGCON         IF ((DEBUG(ELIST) .AND. 77B) .EQ. 5)  GO TO 2620                           BUGCON       856     A     
 BUGCON         M = 12                                                                     BUGCON       857     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3796    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON    2672 CALL DEBUG ER                                                              BUGCON       858     A     
 BUGCON    2673 IF (CUR OP BD .EQ. 0) RETURN                                               BUGCON       859     A     
 BUGCON         IF((DFNOGO .LT. 0) .OR. (MISFLAG .EQ. -1)) RETURN                          BUGCON       860     A     
 BUGCON         OH = 0                                                                     BUGCON       861     A     
 BUGCON         IF (DFPACK .EQ. 0) OH = MINZERO                                            BUGCON       862     A     
 BUGCON         CALL PUT IN                                                                BUGCON       863     A     
 BUGCON         CUR OP BD = 0                                                              FCC2053       14     A     
 BUGCON         RETURN                                                                     BUGCON       864     A     
 BUGCON    2620 REL OP = RTAB(EFORM(DEBUG(ELIST)) - 9)                                     BUGCON       865     A     
 BUGCON         IF ((REL OP .NE. 0) .AND. (REL OP .LT. 7)) GO TO 2622                      BUGCON       866     A     
 BUGCON         IF (REL OP .NE. 8) GO TO 2624                                              BUGCON       867     A     
 BUGCON         REL OP = 0                                                                 BUGCON       868     A     
 BUGCON         REL FLG = -1                                                               BUGCON       869     A     
 BUGCON    2624 NO CONST = 0                                                               BUGCON       870     A     
 BUGCON         ELIST = ELIST - 1                                                          BUGCON       871     A     
 BUGCON         GO TO 2700                                                                 BUGCON       872     A     
 BUGCON    2622 ELIST = ELIST - 1                                                          BUGCON       873     A     
 BUGCON         NO CONST = DCONV(ELIST)                                                    BUGCON       874     A     
 BUGCON         IF (NO CONST) 2694, 2695, 2700                                             BUGCON       875     A     
 BUGCON    2694 IF (EFORM(DEBUG(ELIST)) .EQ. SYMBL)  GO TO 2641                            BUGCON       876     A     
 BUGCON         M = 14                                                                     BUGCON       877     A     
 BUGCON         GO TO 2672                                                                 BUGCON       878     A     
 BUGCON    2695 IF(OVRFLOW .LT. 0) GO TO 2673                                              BUGCON       879     A     
 BUGCON         OVRFLOW = -1                                                               BUGCON       880     A     
 BUGCON         M = 15                                                                     BUGCON       881     A     
 BUGCON         GO TO 2672                                                                 BUGCON       882     A     
 BUGCON    2641 DVL = SDVL                                                                 BUGCON       883     A     
 BUGCON         NOCONST = 0                                                                BUGCON       884     A     
 BUGCON         IF (DFPACK .NE. 0) GO TO 2642                                              BUGCON       885     A     
 BUGCON         IF  ((DFNOGO.LT.0).OR.(MISFLAG.EQ.-1))GO TO 2725                           BUGCON       886     A     
 BUGCON         CALL DSYMTAB(DEBUG(ELIST),NOCONST)                                         BUGCON       887     A     
 BUGCON         NOCONST = SHIFT(NOCONST, -1)                                               BUGCON       888     A     
 BUGCON    2645 ELIST = ELIST-1                                                            BUGCON       889     A     
 BUGCON         NO CONST = NO CONST .OR. SHIFT(PLACE(VARBIT(1)), -30)                      BUGCON       890     A     
 BUGCON         GO TO 2700                                                                 BUGCON       891     A     
 BUGCON    2642 IF (( DFNOGO.LT.0).OR.(MISFLAG.EQ.-1))GO TO 2725                           BUGCON       892     A     
 BUGCON         IF (DVL.GE.EDVL) GO TO 2643                                                BUGCON       893     A     
 BUGCON         IF(DEBUG(DVL).EQ.DEBUG(ELIST))GO TO 2645                                   BUGCON       894     A     
 BUGCON         DVL = DVL+1                                                                BUGCON       895     A     
 BUGCON         NOCONST = NOCONST + 1                                                      BUGCON       896     A     
 BUGCON         GO TO 2642                                                                 BUGCON       897     A     
 BUGCON    2643 DVL = DVL+1                                                                BUGCON       898     A     
 BUGCON         IF(DVL.NE.SDRL)GO TO 2644                                                  BUGCON       899     A     
 BUGCON         DLFLG = 2                                                                  BUGCON       900     A     
 BUGCON         GO TO 10500                                                                BUGCON       901     A     
 BUGCON    2644 DEBUG(DVL) = DEBUG(ELIST)                                                  BUGCON       902     A     
 BUGCON         EDVL = DVL                                                                 BUGCON       903     A     
 BUGCON         NOCONST = NOCONST + 1                                                      BUGCON       904     A     
 BUGCON         GO TO 2645                                                                 BUGCON       905     A     
 BUGCON   *                                                                                BUGCON       906     A     
 BUGCON   *  HERE TO PUT STORES WITH .REL OP. IN OPTIONS LIST                              BUGCON       907     A     
 BUGCON   *                                                                                BUGCON       908     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3797    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON    2702 REL OP = 7                                                                 BUGCON       909     A     
 BUGCON         REL FLG = 0                                                                BUGCON       910     A     
 BUGCON    2700 IF ((CUR OP BD .NE. 0).AND.(STOSWAP.EQ.1)) GO TO 2710                      BUGCON       911     A     
 BUGCON         IF ( (CUR OP BD .NE. -1) .OR. (STOSWAP .NE. -1) ) GO TO 2701               BUGCON       912     A     
 BUGCON         IF ((MISFLAG.LT.0) .OR. (DFNOGO.LT.0)) GO TO 2701                          BUGCON       913     A     
 BUGCON         OH = 0                                                                     BUGCON       914     A     
 BUGCON         CALL PUT IN                                                                BUGCON       915     A     
 BUGCON    2701 STOSWAP = 1                                                                BUGCON       916     A     
 BUGCON         CUR OP BD = -1                                                             BUGCON       917     A     
 BUGCON         IF ((MISFLAG.LT.0) .OR. (DFNOGO.LT.0)) GO TO 2725                          BUGCON       918     A     
 BUGCON         OH= 7                                                                      BUGCON       919     A     
 BUGCON         CALL PUT IN                                                                BUGCON       920     A     
 BUGCON    2710 IF ((MISFLAG.LT.0) .OR. (DFNOGO.LT.0)) GO TO 2725                          BUGCON       921     A     
 BUGCON         IF (DFNEST.EQ.4) GO TO 2720                                                BUGCON       922     A     
 BUGCON         DFNEST = 4                                                                 BUGCON       923     A     
 BUGCON         DFNESTW = DFNESTW + 1                                                      BUGCON       924     A     
 BUGCON         IF (DFNESTW.EQ.ELAST) CALL BUGCLO, RETURNS (2841)                          BUGCON       925     A     
 BUGCON    2720 DEBUG(DFNESTW) = SHIFT(NO, 48) .OR. SHIFT(NOCONST, 30) .OR.                BUGCON       926     A     
 BUGCON        ,    SHIFT(REL OP, 27)                                                      BUGCON       927     A     
 BUGCON         DFNESTW = DFNESTW + 1                                                      BUGCON       928     A     
 BUGCON         IF (DFNESTW .EQ. ELAST) CALL BUGCLO, RETURNS (2849)                        BUGCON       929     A     
 BUGCON    2725 IF (REL FLG .NE. 0) GO TO 2702                                             BUGCON       930     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)) .EQ. COMMA) 2730, 2740                             BUGCON       931     A     
 BUGCON   *                                                                                BUGCON       932     A     
 BUGCON   *  HERE TO PUT SYMBOL ORDINAL FOR STORES WITHOUT IN OPTIONS LIST                 BUGCON       933     A     
 BUGCON   *  EXITS FOR NEW SYMBOL IF COMMA LAST IN ELIST                                   BUGCON       934     A     
 BUGCON   *                                                                                BUGCON       935     A     
 BUGCON    2610 IF ((CUR OP BD .NE. 0).AND.(STOSWAP.EQ.-1)) GO TO 2750                     BUGCON       936     A     
 BUGCON         IF ( (CUR OP BD .NE. -1) .OR. (STOSWAP .NE. 1) ) GO TO 2611                BUGCON       937     A     
 BUGCON         IF ((MISFLAG.LT.0) .OR. (DFNOGO.LT.0)) GO TO 2611                          BUGCON       938     A     
 BUGCON         OH = 0                                                                     BUGCON       939     A     
 BUGCON         CALL PUT IN                                                                BUGCON       940     A     
 BUGCON    2611 STOSWAP = -1                                                               BUGCON       941     A     
 BUGCON         CUR OP BD = -1                                                             BUGCON       942     A     
 BUGCON         IF ((MISFLAG.LT.0) .OR. (DFNOGO.LT.0)) GO TO 2755                          BUGCON       943     A     
 BUGCON         OH= 6                                                                      BUGCON       944     A     
 BUGCON         CALL PUT IN                                                                BUGCON       945     A     
 BUGCON    2750 IF ((MISFLAG.LT.0) .OR. (DFNOGO.LT.0)) GO TO 2755                          BUGCON       946     A     
 BUGCON         OH = NO                                                                    BUGCON       947     A     
 BUGCON         CALL PUT IN                                                                BUGCON       948     A     
 BUGCON    2755 IF (EFORM(DEBUG(ELIST)) .EQ. COMMA) 2730, 2740                             BUGCON       949     A     
 BUGCON   *                                                                                BUGCON       950     A     
 BUGCON   *  HERE IF TRACE STATEMENT                                                       BUGCON       951     A     
 BUGCON   *                                                                                BUGCON       952     A     
 BUGCON    2800 IF (EFORM(DEBUG(ELIST)) .EQ. LPAREN)  GO TO 2810                           BUGCON       953     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)) .NE. EOS) GO TO 2204                               BUGCON       954     A     
 BUGCON         IF (TRACEL .GE. 0) RETURN                                                  BUGCON       955     A     
 BUGCON         LEVEL = 0                                                                  BUGCON       956     A     
 BUGCON         GO TO 2830                                                                 BUGCON       957     A     
 BUGCON    2810 ELIST = ELIST - 1                                                          BUGCON       958     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)) .EQ. CONST) GO TO 2820                             BUGCON       959     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)) .EQ. PLUS(X)) GO  TO 2819                          BUGCON       960     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3798    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON    2811 M = 6                                                                      BUGCON       961     A     
 BUGCON         CALL DEBUG ER                                                              BUGCON       962     A     
 BUGCON         RETURN                                                                     BUGCON       963     A     
 BUGCON    2819 ELIST = ELIST - 1                                                          BUGCON       964     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)) .NE. CONST) GO TO 2811                             BUGCON       965     A     
 BUGCON    2820 LEVEL = 0                                                                  BUGCON       966     A     
 BUGCON         LVL DIS = DEBUG(ADDRESS(DEBUG(ELIST)) - LDEBUG)                            BUGCON       967     A     
 BUGCON    2824 LVL DIS = SHIFT(LVL DIS, 6)                                                BUGCON       968     A     
 BUGCON         IN LVL = LVL DIS .AND. 77B                                                 BUGCON       969     A     
 BUGCON         IF(IN LVL .EQ.1R ) GO TO 2822                                              BUGCON       970     A     
 BUGCON         IF ((IN LVL .LE. 1RZ) .OR. (IN LVL .GE. 1R+)) GO TO 2822                   BUGCON       971     A     
 BUGCON         LEVEL = LEVEL * 10 + (IN LVL -1R0)                                         BUGCON       972     A     
 BUGCON         GO TO 2824                                                                 BUGCON       973     A     
 BUGCON    2822 IF (LEVEL .LE. 50) GO TO 2830                                              BUGCON       974     A     
 BUGCON         M = 7                                                                      BUGCON       975     A     
 BUGCON         CALL DEBUG ER                                                              BUGCON       976     A     
 BUGCON         RETURN                                                                     BUGCON       977     A     
 BUGCON    2830 IF ((MISFLAG.EQ.-1) .OR. (DFNOGO.LT.0)) GO TO 2850                         BUGCON       978     A     
 BUGCON         OH= 8                                                                      BUGCON       979     A     
 BUGCON         CALL PUT IN                                                                BUGCON       980     A     
 BUGCON         IF (DFNEST.EQ.4) GO TO 2840                                                BUGCON       981     A     
 BUGCON         DFNEST = 4                                                                 BUGCON       982     A     
 BUGCON         DFNESTW = DFNESTW + 1                                                      BUGCON       983     A     
 BUGCON         IF (DFNESTW .EQ. ELAST) CALL BUGCLO, RETURNS (2841)                        BUGCON       984     A     
 BUGCON    2840 DEBUG(DFNESTW) = SHIFT(LEVEL, 54)                                          BUGCON       985     A     
 BUGCON         IF (LEVEL .EQ. 0) DEBUG(DFNESTW) =                                         BUGCON       986     A     
 BUGCON        ,          DEBUG(DFNESTW) .OR. SHIFT(MASK(1),30)                            BUGCON       987     A     
 BUGCON         DFNESTW = DFNESTW + 1                                                      BUGCON       988     A     
 BUGCON         IF (DFNESTW .EQ. ELAST) CALL BUGCLO, RETURNS (2849)                        BUGCON       989     A     
 BUGCON    2850 IF (EFORM(DEBUG(ELIST)) .EQ. EOS) GO TO 2860                               BUGCON       990     A     
 BUGCON         ELIST = ELIST - 1                                                          BUGCON       991     A     
 BUGCON         GO TO 2740                                                                 BUGCON       992     A     
 BUGCON    2860 IF ((MISFLAG .EQ. -1) .OR. (DFNOGO .LT. 0)) RETURN                         BUGCON       993     A     
 BUGCON         OH = 0                                                                     BUGCON       994     A     
 BUGCON         CALL PUT IN                                                                BUGCON       995     A     
 BUGCON         GO TO 2122                                                                 BUGCON       996     A     
 BUGCON    2841 DFNESTW = DFNESTW - 1                                                      BUGCON       997     A     
 BUGCON    2847 DFNEST = DFNEST + 1                                                        BUGCON       998     A     
 BUGCON         OH = MINZERO                                                               BUGCON       999     A     
 BUGCON         CALL PUT IN                                                                BUGCON      1000     A     
 BUGCON         POW = 0                                                                    BUGCON      1001     A     
 BUGCON         CALL BUGCLO                                                                BUGCON      1002     A     
 BUGCON         IF (DFTYPE .EQ. 48) 2850, 2725                                             BUGCON      1003     A     
 BUGCON    2849 DFNESTW = DFNESTW - 2                                                      BUGCON      1004     A     
 BUGCON         GO TO 2847                                                                 BUGCON      1005     A     
 BUGCON    2204 M = 11                                                                     BUGCON      1006     A     
 BUGCON         CALL DEBUG ER                                                              BUGCON      1007     A     
 BUGCON         RETURN                                                                     BUGCON      1008     A     
 BUGCON    2900 IF (EFORM(DEBUG(ELIST)) .EQ. EOS) GO TO 2910                               BUGCON      1009     A     
 BUGCON         LTFLAG = .TRUE.                                                            BUGCON      1010     A     
 BUGCON         IF (DFPACK .NE. 0) LFLAG = .TRUE.                                          BUGCON      1011     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)) .NE. LPAREN) GO TO 110                             BUGCON      1012     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3799    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON   C                                                                                BUGCON      1013     A     
 BUGCON   C  HERE IF LOOKING FOR A DEBUG OPTION                                            BUGCON      1014     A     
 BUGCON   C                                                                                BUGCON      1015     A     
 BUGCON         ELIST = ELIST - 1                                                          BUGCON      1016     A     
 BUGCON         DFNESTW = DOLAST + 1                                                       BUGCON      1017     A     
 BUGCON         DFOPL = DFNESTW                                                            BUGCON      1018     A     
 BUGCON         DFNEST = 4                                                                 BUGCON      1019     A     
 BUGCON    2960 DO 2930 I = 1, 9                                                           BUGCON      1020     A     
 BUGCON         IF (DEBUG(ELIST) .EQ. DBGPIC(I)) GO TO 2970                                BUGCON      1021     A     
 BUGCON    2930 CONTINUE                                                                   BUGCON      1022     A     
 BUGCON         M = 8                                                                      BUGCON      1023     A     
 BUGCON         CALL DEBUG ER                                                              BUGCON      1024     A     
 BUGCON         RETURN                                                                     BUGCON      1025     A     
 BUGCON    2970 ELIST = ELIST - 1                                                          BUGCON      1026     A     
 BUGCON         IF (LFLAG .OR. (I.EQ.5)) GO TO 2980                                        BUGCON      1027     A     
 BUGCON         IF (I .EQ. 9) GO TO 3000                                                   BUGCON      1028     A     
 BUGCON         OH = I                                                                     BUGCON      1029     A     
 BUGCON         CALL PUTIN                                                                 BUGCON      1030     A     
 BUGCON         OH = 0                                                                     BUGCON      1031     A     
 BUGCON         CALL PUTIN                                                                 BUGCON      1032     A     
 BUGCON    2980 IF (EFORM(DEBUG(ELIST)) .NE. COMMA) GO TO 2990                             BUGCON      1033     A     
 BUGCON         ELIST = ELIST - 1                                                          BUGCON      1034     A     
 BUGCON         IF (EFORM(DEBUG(ELIST)) .EQ. SYMBL) GO TO 2960                             BUGCON      1035     A     
 BUGCON         M = 3                                                                      BUGCON      1036     A     
 BUGCON         CALL DEBUG ER                                                              BUGCON      1037     A     
 BUGCON         RETURN                                                                     BUGCON      1038     A     
 BUGCON    2990 IF (EFORM(DEBUG(ELIST)) .NE. RPAREN) GO TO 110                             BUGCON      1039     A     
 BUGCON         IF (EFORM(DEBUG(ELIST-1)) .NE. EOS) GO TO 152                              BUGCON      1040     A     
 BUGCON         IF (LFLAG) RETURN                                                          BUGCON      1041     A     
 BUGCON         OH = MINZERO                                                               BUGCON      1042     A     
 BUGCON         CALL PUTIN                                                                 BUGCON      1043     A     
 BUGCON         CALL TURN OFF                                                              BUGCON      1044     A     
 BUGCON         GO TO 3010                                                                 BUGCON      1045     A     
 BUGCON    3000 M = 9                                                                      BUGCON      1046     A     
 BUGCON         CALL DEBUG ER                                                              BUGCON      1047     A     
 BUGCON         RETURN                                                                     BUGCON      1048     A     
 BUGCON   C                                                                                BUGCON      1049     A     
 BUGCON   C  IF JUST OFF AND IN INTERSPERSED MODE, TURN OFF ALL DEBUG BITS IN THE          BUGCON      1050     A     
 BUGCON   C  SYMBOL TABLE                                                                  BUGCON      1051     A     
 BUGCON   C                                                                                BUGCON      1052     A     
 BUGCON    2910 IF (DFPACK .NE. 0) RETURN                                                  BUGCON      1053     A     
 BUGCON         SYMTAB = SSYMTAB - 2                                                       BUGCON      1054     A     
 BUGCON    3030 IF (SYMTAB.EQ.ESYMTAB) GO TO 3020                                          BUGCON      1055     A     
 BUGCON         IF (  (  (TYPE(DEBUG(SYMTAB - 1)) .LE. CONTYPE(1)) .OR.                    BUGCON      1056     A     
 BUGCON        ,         (TYPE(DEBUG(SYMTAB - 1)) .EQ. DBGTYPE(1))  ) .AND.                BUGCON      1057     A     
 BUGCON        ,      (  (SHIFT(DEBUG(SYMTAB), 44) .GE. 0) .OR.                            BUGCON      1058     A     
 BUGCON        ,         (SHIFT(DEBUG(SYMTAB - 1), 5 ) .LT. 0) .OR.                        BUGCON      1059     A     
 BUGCON        ,         (SHIFT(DEBUG(SYMTAB - 1), 15) .LT. 0)  )  )                       BUGCON      1060     A     
 BUGCON        ,    DEBUG(SYMTAB - 1) = DEBUG(SYMTAB - 1) .AND. OUTDBG                     BUGCON      1061     A     
 BUGCON         SYMTAB = SYMTAB - 2                                                        BUGCON      1062     A     
 BUGCON         GO TO 3030                                                                 BUGCON      1063     A     
 BUGCON    3020 NAASI = 0                                                                  BUGCON      1064     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3800    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON         AASIADD = 0                                                                BUGCON      1065     A     
 BUGCON         ALL CALL = 0                                                               BUGCON      1066     A     
 BUGCON         ALL ARR  = 0                                                               BUGCON      1067     A     
 BUGCON         ALL FUNC = 0                                                               BUGCON      1068     A     
 BUGCON         GO TOS FL = 0                                                              BUGCON      1069     A     
 BUGCON         TRCADD = 0                                                                 BUGCON      1070     A     
 BUGCON         TRACEL = -1                                                                BUGCON      1071     A     
 BUGCON   C                                                                                BUGCON      1072     A     
 BUGCON   C  TURN ON ANY OPTIONS THAT SHOULD NOT HAVE BEEN AFFECTED BY THE -OFF-           BUGCON      1073     A     
 BUGCON   C                                                                                BUGCON      1074     A     
 BUGCON    3010 IF (PHSFLAG .NE. 0) RETURN                                                 BUGCON      1075     A     
 BUGCON         P ADD = 0                                                                  BUGCON      1076     A     
 BUGCON         IF (TO LIST .EQ. 0) GO TO 3040                                             BUGCON      1077     A     
 BUGCON         IF (ADDRESS(SHIFT(TO LIST, 20)).EQ.0) GO TO 3050                           BUGCON      1078     A     
 BUGCON         TO SHIFT = 20                                                              BUGCON      1079     A     
 BUGCON   C                                                                                BUGCON      1080     A     
 BUGCON   C  TURN ON OPTIONS ASSOCIATED WITH EITHER LINE OR STATEMENT NUMBER -TO-          BUGCON      1081     A     
 BUGCON   C  BOUNDS                                                                        BUGCON      1082     A     
 BUGCON   C                                                                                BUGCON      1083     A     
 BUGCON   C                                                                                BUGCON      1084     A     
 BUGCON   C  THE FOLLOWING VARIABLES ARE USED WHILE SEARCHING A TREE:                      BUGCON      1085     A     
 BUGCON   C                                                                                BUGCON      1086     A     
 BUGCON   C         DFSAVE = THE CURRENT NODE (EXCLUDING EQUALS)                           BUGCON      1087     A     
 BUGCON   C         NEXT1  = THE ADDRESS OF DFSAVE                                         BUGCON      1088     A     
 BUGCON   C         DFSAVE1 = THE PREVIOUS NODE (EXCLUDING EQUALS)                         BUGCON      1089     A     
 BUGCON   C         LASTADD = THE ADDRESS OF DFSAVE1                                       BUGCON      1090     A     
 BUGCON   C                                                                                BUGCON      1091     A     
 BUGCON    4010 DFSAVE1 = 0                                                                BUGCON      1092     A     
 BUGCON         LASTADD = 0                                                                BUGCON      1093     A     
 BUGCON         NEXT = ADDRESS(SHIFT(TO LIST, TO SHIFT))                                   BUGCON      1094     A     
 BUGCON         FSTADD = NEXT                                                              BUGCON      1095     A     
 BUGCON    3080 DFSAVE = DEBUG(NEXT + SAREA)                                               BUGCON      1096     A     
 BUGCON         NEXT1 = NEXT                                                               BUGCON      1097     A     
 BUGCON    3060 IF ( DEBUG(SAREA + NEXT) .LT. 0) GO TO 3061                                BUGCON      1098     A     
 BUGCON         DFOPL = ADDRESS(DEBUG(SAREA+NEXT-2))                                       BUGCON      1099     A     
 BUGCON         CALL TURN ON                                                               BUGCON      1100     A     
 BUGCON    3061 NEXT = ADDRESS(SHIFT(DEBUG(NEXT + SAREA), -20))                            BUGCON      1101     A     
 BUGCON         IF (NEXT.NE.0) GO TO 3060                                                  BUGCON      1102     A     
 BUGCON         NEXT = ADDRESS(DFSAVE)                                                     BUGCON      1103     A     
 BUGCON         IF (NEXT.EQ.0) GO TO 3070                                                  BUGCON      1104     A     
 BUGCON         DFSAVE1 = (DFSAVE.AND.MASK(42)) .OR. LASTADD                               BUGCON      1105     A     
 BUGCON         LASTADD = NEXT1                                                            BUGCON      1106     A     
 BUGCON         GO TO 3080                                                                 BUGCON      1107     A     
 BUGCON    3070 NEXT = ADDRESS(SHIFT(DFSAVE, 20))                                          BUGCON      1108     A     
 BUGCON         IF (NEXT.EQ.0) GO TO 3090                                                  BUGCON      1109     A     
 BUGCON         DFSAVE1 = (DFSAVE .AND. SHIFT(MASK(40), 40)) .OR.                          BUGCON      1110     A     
 BUGCON        ,          SHIFT(LASTADD, 40) .OR. MASK(1)                                  BUGCON      1111     A     
 BUGCON         LASTADD = NEXT1                                                            BUGCON      1112     A     
 BUGCON         GO TO 3080                                                                 BUGCON      1113     A     
 BUGCON    3090 IF (NEXT1 .EQ. FSTADD) GO TO (3050, 3040), (TO SHIFT / 20)                 BUGCON      1114     A     
 BUGCON         IF (DFSAVE1.LT.0) GO TO 4000                                               BUGCON      1115     A     
 BUGCON         NEXT = ADDRESS(DFSAVE1)                                                    BUGCON      1116     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3801    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON         DFSAVE = (DFSAVE1.AND.MASK(42)) .OR. NEXT1                                 BUGCON      1117     A     
 BUGCON         DFSAVE1 = DEBUG(NEXT + SAREA)                                              BUGCON      1118     A     
 BUGCON         NEXT1 = LASTADD                                                            BUGCON      1119     A     
 BUGCON         LASTADD = NEXT                                                             BUGCON      1120     A     
 BUGCON         GO TO 3070                                                                 BUGCON      1121     A     
 BUGCON    4000 NEXT = ADDRESS(SHIFT(DFSAVE1, 20))                                         BUGCON      1122     A     
 BUGCON         DFSAVE = (DFSAVE1 .AND. SHIFT(MASK(40), 40)) .OR. SHIFT(NEXT1,40)          BUGCON      1123     A     
 BUGCON         DFSAVE1 = DEBUG(NEXT + SAREA)                                              BUGCON      1124     A     
 BUGCON         NEXT1 = LASTADD                                                            BUGCON      1125     A     
 BUGCON         LASTADD = NEXT                                                             BUGCON      1126     A     
 BUGCON         GO TO 3090                                                                 BUGCON      1127     A     
 BUGCON   C                                                                                BUGCON      1128     A     
 BUGCON   C  CHECK TO SEE IF THERE IS A STATEMENT NUMBER -TO- BOUNDS LIST                  BUGCON      1129     A     
 BUGCON   C                                                                                BUGCON      1130     A     
 BUGCON    3050 IF (ADDRESS(SHIFT(TO LIST, -20)).EQ.0) GO TO 3040                          BUGCON      1131     A     
 BUGCON          TO SHIFT = 40                                                             BUGCON      1132     A     
 BUGCON         GO TO 4010                                                                 BUGCON      1133     A     
 BUGCON   C                                                                                BUGCON      1134     A     
 BUGCON   C  IF THERE IS AN UPDATE IDENTIFIER -FROM- BOUNDS LIST, FIND ALL OF THE          BUGCON      1135     A     
 BUGCON   C  ACTIVE -TO- BOUNDS AND TURN ON THE ASSOCIATED OPTIONS                         BUGCON      1136     A     
 BUGCON   C                                                                                BUGCON      1137     A     
 BUGCON    3040 NEXT = SHIFT(ADDRESS(FM LIST),42)                                          BUGCON      1138     A     
 BUGCON         FSTADD = SHIFT(NEXT, 18)                                                   BUGCON      1139     A     
 BUGCON         LASTADD = 0                                                                BUGCON      1140     A     
 BUGCON         DFSAVE1 = 0                                                                BUGCON      1141     A     
 BUGCON         IF (NEXT) 4020, 4030, 4040                                                 BUGCON      1142     A     
 BUGCON    4030 RETURN                                                                     BUGCON      1143     A     
 BUGCON    4020 NEXT1 = SHIFT(NEXT, 18)                                                    BUGCON      1144     A     
 BUGCON         NEXT = SHIFT(MASK(18),18) - NEXT1                                          BUGCON      1145     A     
 BUGCON         DFSAVE = DEBUG(NEXT + SAREA)                                               BUGCON      1146     A     
 BUGCON    4090 IF (DEBUG(SAREA+NEXT) .LT. 0) GO TO 4050                                   BUGCON      1147     A     
 BUGCON          DFOPL = ADDRESS(DEBUG(NEXT+SAREA-2) )                                     BUGCON      1148     A     
 BUGCON         CALL TURN ON                                                               BUGCON      1149     A     
 BUGCON    4050 NEXT = SHIFT(ADDRESS(SHIFT(DEBUG(SAREA+NEXT), -20)), 42)                   BUGCON      1150     A     
 BUGCON         IF (NEXT) 4060, 4070, 4055                                                 BUGCON      1151     A     
 BUGCON    4060 NEXT = SHIFT(MASK(18),18) - SHIFT(NEXT,18)                                 BUGCON      1152     A     
 BUGCON         GO TO 4090                                                                 BUGCON      1153     A     
 BUGCON    4055 NEXT = SHIFT(NEXT, 18)                                                     BUGCON      1154     A     
 BUGCON         GO TO 4050                                                                 BUGCON      1155     A     
 BUGCON    4070 NEXT = SHIFT(ADDRESS(DFSAVE),42)                                           BUGCON      1156     A     
 BUGCON         IF (NEXT) 5000, 5010, 5020                                                 BUGCON      1157     A     
 BUGCON    5000 DFSAVE1 = (DFSAVE.AND.MASK(42)) .OR. LASTADD                               BUGCON      1158     A     
 BUGCON         LASTADD = NEXT1                                                            BUGCON      1159     A     
 BUGCON         GO TO 4020                                                                 BUGCON      1160     A     
 BUGCON    5020 DFSAVE1 = (DFSAVE.AND.MASK(42)) .OR. LASTADD                               BUGCON      1161     A     
 BUGCON         LASTADD = NEXT1                                                            BUGCON      1162     A     
 BUGCON    4040 NEXT1 = SHIFT(NEXT, 18)                                                    BUGCON      1163     A     
 BUGCON         DFSAVE = DEBUG(NEXT1+ SAREA)                                               BUGCON      1164     A     
 BUGCON         NEXT = SHIFT(ADDRESS(SHIFT(DFSAVE,20)),42)                                 BUGCON      1165     A     
 BUGCON         IF (NEXT) 4060, 4070, 4055                                                 BUGCON      1166     A     
 BUGCON    5010 NEXT = SHIFT((DFSAVE.AND.SHIFT(MASK(18), 60-2)), 2)                        BUGCON      1167     A     
 BUGCON         IF (NEXT) 5040, 5050, 5060                                                 BUGCON      1168     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3802    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCON  
  
 BUGCON    5040 DFSAVE1 = (DFSAVE .AND. SHIFT(MASK(40), 40)) .OR.                          BUGCON      1169     A     
 BUGCON        ,          SHIFT(LASTADD, 40) .OR. MASK(1)                                  BUGCON      1170     A     
 BUGCON         LASTADD = NEXT1                                                            BUGCON      1171     A     
 BUGCON         GO TO 4020                                                                 BUGCON      1172     A     
 BUGCON    5060 DFSAVE1 = (DFSAVE .AND. SHIFT(MASK(40), 40)) .OR.                          BUGCON      1173     A     
 BUGCON        ,          SHIFT(LASTADD, 40) .OR. MASK(1)                                  BUGCON      1174     A     
 BUGCON         LASTADD = NEXT1                                                            BUGCON      1175     A     
 BUGCON         GO TO 4040                                                                 BUGCON      1176     A     
 BUGCON    5050 IF (NEXT1.EQ.FSTADD) RETURN                                                BUGCON      1177     A     
 BUGCON          IF (DFSAVE1.LT.0) GO TO 5070                                              BUGCON      1178     A     
 BUGCON         NEXT = ADDRESS(DFSAVE1)                                                    BUGCON      1179     A     
 BUGCON         DFSAVE = (DFSAVE1 .AND. MASK(42)) .OR. NEXT1                               BUGCON      1180     A     
 BUGCON         NEXT1 = LASTADD                                                            BUGCON      1181     A     
 BUGCON         LASTADD = NEXT                                                             BUGCON      1182     A     
 BUGCON         IF (SHIFT(NEXT,42).LT.0) NEXT = SHIFT(MASK(18),18) - NEXT                  BUGCON      1183     A     
 BUGCON         DFSAVE1 = DEBUG(NEXT + SAREA)                                              BUGCON      1184     A     
 BUGCON         GO TO 5010                                                                 BUGCON      1185     A     
 BUGCON    5070 NEXT = ADDRESS(SHIFT(DFSAVE1,20))                                          BUGCON      1186     A     
 BUGCON         DFSAVE = (DFSAVE1 .AND. SHIFT(MASK(40), 40)) .OR. SHIFT(NEXT1,40)          BUGCON      1187     A     
 BUGCON         NEXT1 = LASTADD                                                            BUGCON      1188     A     
 BUGCON         LASTADD = NEXT                                                             BUGCON      1189     A     
 BUGCON         IF (SHIFT(NEXT,42).LT.0) NEXT = SHIFT(MASK(18),18) - NEXT                  BUGCON      1190     A     
 BUGCON         DFSAVE1 = DEBUG(NEXT + SAREA)                                              BUGCON      1191     A     
 BUGCON         GO TO 5050                                                                 BUGCON      1192     A     
 BUGCON         END                                                                        BUGCON      1193     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - BUGCON  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          BUGCON                    1193      1192
          FCC0937                      1         1
          FCC2053                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TURNOFF 
  
 TURNOFF  *DECK,TURNOFF                                                                    TURNOFF        1     A     
 TURNOFF        SUBROUTINE TURN OFF                                                        TURNOFF        2     A     
 TURNOFF  C                                                                                TURNOFF        3     A     
 TURNOFF  C  THIS SUBROUTINE PASSES THROUGH AN OPTIONS LIST AND TURNS OFF ALL              TURNOFF        4     A     
 TURNOFF  C  LEGAL OPTIONS THAT IF FINDS.  IT ALSO SETS UP THE ERROR FIELD IN THE          TURNOFF        5     A     
 TURNOFF  C  FIRST WORD OF THE ASSOCIATED B-CELL, IF NECESSARY.                            TURNOFF        6     A     
 TURNOFF  C  ENTRY: DFOPL = THE ADDRESS OF THE BEGINNING OF THE OPTIONS LIST TO BE         TURNOFF        7     A     
 TURNOFF  C                 PASSED THROUGH.                                                TURNOFF        8     A     
 TURNOFF  C         NEXT = THE ADDRESS OF THE -TO- BOUND IN THE ASSOCIATED B-CELL          TURNOFF        9     A     
 TURNOFF  C         P ADD = 0 IF IN INTERSPERSED MODE                                      TURNOFF       10     A     
 TURNOFF  C               = 1 IF IN PACKET MODE                                            TURNOFF       11     A     
 TURNOFF  C         SSYMTAB = THE BEGINNING ADDRESS OF THE SYMBOL TABLE                    TURNOFF       12     A     
 TURNOFF  C         SAASI   = THE BEGINNING ADDRESS OF THE AREA LIST                       TURNOFF       13     A     
 TURNOFF  C         AASI    = THE CURRENT WORD IN AASI                                     TURNOFF       14     A     
 TURNOFF  C         ESYMTAB  = THE ENDING ADDRESS OF THE SYMBOL TABLE                      TURNOFF       15     A     
 TURNOFF  C  INTERMEDIATE: OH = THE CURRENT OH FIELD IN THE OPTIONS LIST                   TURNOFF       16     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3803    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TURNOFF 
  
 TURNOFF  C                                                                                TURNOFF       17     A     
 TURNOFF  C                                                                                TURNOFF       18     A     
 TURNOFF  *CALL FDBGCOM                                                                    TURNOFF       19          I
          -FCC0937
 TURNOFF  *CALL LDBGCOM                                                                    FCC0937       37     A     
 TURNOFF  C                                                                                TURNOFF       20     A     
 TURNOFF  C  HERE TO CHECK IF THE -TO- BOUND OCCURS AFTER A -FROM- BOUND                   TURNOFF       21     A     
 TURNOFF  C                                                                                TURNOFF       22     A     
 TURNOFF        IF ((PADD .EQ. 0) .OR. (DEBUG(SAREA+NEXT-1) .LT. 0)) GO TO 100             TURNOFF       23     A     
 TURNOFF        DEBUG(SAREA+NEXT-2) = (DEBUG(SAREA+NEXT-2).AND.SHIFT(MASK(57),20))         TURNOFF       24     A     
 TURNOFF       ,    .OR. SHIFT(3, 20)                                                      TURNOFF       25     A     
 TURNOFF        DEBUG(SAREA+NEXT) = DEBUG(SAREA+NEXT) .OR. MASK(1)                         TURNOFF       26     A     
 TURNOFF        RETURN                                                                     TURNOFF       27     A     
 TURNOFF  C                                                                                TURNOFF       28     A     
 TURNOFF  C  HERE TO DETERMINE WHICH OPTION TO TURN OFF                                    TURNOFF       29     A     
 TURNOFF  C                                                                                TURNOFF       30     A     
 TURNOFF    100 MULT = 5                                                                   TURNOFF       31     A     
 TURNOFF     10 CALL GET OUT                                                               TURNOFF       32     A     
 TURNOFF        IF (OH .EQ. 0) RETURN                                                      TURNOFF       33     A     
 TURNOFF        IF ( OH .EQ. MINZERO) GO TO 30                                             TURNOFF       34     A     
 TURNOFF        GO TO (1000,2000,3000,4000,5000,6000,7000,8001) OH                         TURNOFF       35     A     
 TURNOFF  C                                                                                TURNOFF       36     A     
 TURNOFF  C  HERE IF THE ARRAYS OPTION IS TO BE TURNED OFF FOR INDIVIDUALS                 TURNOFF       37     A     
 TURNOFF  C                                                                                TURNOFF       38     A     
 TURNOFF   1000 IF (LTFLAG) GO TO 1011                                                     TURNOFF       39     A     
 TURNOFF        CALL GETOUT                                                                TURNOFF       40     A     
 TURNOFF        IF ( (OH .EQ. 0) .OR. (OH .EQ. MINZERO) ) GO TO 1010                       TURNOFF       41     A     
 TURNOFF        ASHIFT = -1                                                                TURNOFF       42     A     
 TURNOFF   1040 SYMTAB B = SSYMTAB-OH-1                                                    TURNOFF       43     A     
 TURNOFF        IF (BITOFF(DEBUG(SYMTAB B),NOTBIT(1)) .OR.                                 TURNOFF       44     A     
 TURNOFF       ,        BITON(DEBUG(SYMTAB B),IFBIT(1)) .OR.                               TURNOFF       45     A     
 TURNOFF       ,        BITOFF(DEBUG(SYMTAB B),ACBIT(1)) ) GO TO 1020                      TURNOFF       46     A     
 TURNOFF        CALL SETARR, RETURNS(1020)                                                 TURNOFF       47     A     
 TURNOFF        DEBUG(SAASI+AASI) = DEBUG(SAASI+AASI) - 1                                  TURNOFF       48     A     
 TURNOFF        IF ((DEBUG(SAASI+AASI).AND.777B).NE.0) GO TO 1020                          TURNOFF       49     A     
 TURNOFF        DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. SHIFT(MASK(59), 33+1)              TURNOFF       50     A     
 TURNOFF        IF (BITOFF(DEBUG(SYMTAB B),SFBIT(1)) .AND.                                 TURNOFF       51     A     
 TURNOFF       ,    (ADDRESS(SHIFT(DEBUG(SAASI+AASI),18)).EQ.0).AND.                       TURNOFF       52     A     
 TURNOFF       ,    (ADDRESS(SHIFT(DEBUG(SAASI+AASI),-12)).EQ.0))                          TURNOFF       53     A     
 TURNOFF       ,DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. NOTDBG(1)                          TURNOFF       54     A     
 TURNOFF   1020 CALL GET OUT                                                               TURNOFF       55     A     
 TURNOFF        IF (OH.EQ.0) GO TO 10                                                      TURNOFF       56     A     
 TURNOFF        IF (OH .EQ. MINZERO) 30, 1040                                              TURNOFF       57     A     
 TURNOFF  C  HERE IF ALL ARRAYS ARE TO BE TURNED OFF                                       TURNOFF       58     A     
 TURNOFF   1010 ALLARR = ALLARR - 1                                                        TURNOFF       59     A     
 TURNOFF        IF (OH .EQ. 0) 10, 30                                                      TURNOFF       60     A     
 TURNOFF  C                                                                                TURNOFF       61     A     
 TURNOFF  C  HERE IF ARRAYS IS TO BE TURNED OFF DUE TO AN OFF STATEMENT                    TURNOFF       62     A     
 TURNOFF  C                                                                                TURNOFF       63     A     
 TURNOFF   1011 ALLARR = 0                                                                 TURNOFF       64     A     
 TURNOFF        SYMTAB B = SSYMTAB - 1                                                     TURNOFF       65     A     
 TURNOFF   1014 SYMTAB B = SYMTAB B - 2                                                    TURNOFF       66     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3804    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TURNOFF 
  
 TURNOFF        IF (SYMTAB B .LE. ESYMTAB) GO TO 1020                                      TURNOFF       67     A     
 TURNOFF        IF ( SHIFT(DEBUG(SYMTAB B + 1),59-13) .GE. 0)  GO TO 1014                  TURNOFF       68     A     
 TURNOFF        IF (BITOFF (DEBUG(SYMTAB B), NOTBIT(1))  .OR.                              TURNOFF       69     A     
 TURNOFF       ,    BITOFF (DEBUG(SYMTAB B),  ACBIT(1))  .OR.                              TURNOFF       70     A     
 TURNOFF       ,    BITON  (DEBUG(SYMTAB B),  IFBIT(1))) GO TO 1014                        TURNOFF       71     A     
 TURNOFF        IF (BITOFF (DEBUG(SYMTAB B),  SFBIT(1)))                                   TURNOFF       72     A     
 TURNOFF       ,      DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. NOTDBG(1)                    TURNOFF       73     A     
 TURNOFF        DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. .NOT. PLACE(ACBIT(1))              TURNOFF       74     A     
 TURNOFF        GO TO 1014                                                                 TURNOFF       75     A     
 TURNOFF  C  HERE IF THE CALLS OPTION IS TO BE TURNED OFF FOR INDIVIDUALS                  TURNOFF       76     A     
 TURNOFF   2000 IF (LTFLAG) GO TO 2011                                                     TURNOFF       77     A     
 TURNOFF        CALL GETOUT                                                                TURNOFF       78     A     
 TURNOFF        IF ( (OH .EQ. 0) .OR. (OH .EQ. MINZERO) ) GO TO 2010                       TURNOFF       79     A     
 TURNOFF   2040 SYMTAB B = SSYMTAB-OH-1                                                    TURNOFF       80     A     
 TURNOFF   2041 IF (BITOFF (DEBUG(SYMTAB B), NOTBIT(1) )  .OR.                             TURNOFF       81     A     
 TURNOFF       ,    BITOFF(DEBUG(SYMTAB B),ACBIT(1)) .OR.                                  TURNOFF       82     A     
 TURNOFF       ,    BITOFF (DEBUG(SYMTAB B),  IFBIT(1) )  )  GO TO 2021                    TURNOFF       83     A     
 TURNOFF        DEBUG(SYMTAB B) = DEBUG(SYMTAB B) - INC FCNT (1)                           TURNOFF       84     A     
 TURNOFF        IF (FCNT FLD(DEBUG(SYMTAB B)) .EQ. 0)                                      TURNOFF       85     A     
 TURNOFF       ,     DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. NOT DBG(1)                    TURNOFF       86     A     
 TURNOFF   2021 IF (LTFLAG) GO TO 2012                                                     TURNOFF       87     A     
 TURNOFF   2020 CALL GET OUT                                                               TURNOFF       88     A     
 TURNOFF        IF (OH.EQ.0) GO TO 10                                                      TURNOFF       89     A     
 TURNOFF        IF (OH .EQ. MINZERO) 30, 2040                                              TURNOFF       90     A     
 TURNOFF  C                                                                                TURNOFF       91     A     
 TURNOFF  C  HERE IF ALL CALLS ARE TO BE TURNED OFF                                        TURNOFF       92     A     
 TURNOFF  C                                                                                TURNOFF       93     A     
 TURNOFF   2010 ALLCALL = ALLCALL - 1                                                      TURNOFF       94     A     
 TURNOFF        IF (OH .EQ. 0) 10, 30                                                      TURNOFF       95     A     
 TURNOFF  C                                                                                TURNOFF       96     A     
 TURNOFF  C  HERE IF CALLS IS TO BE TURNED OFF DUE TO AN OFF STATEMENT                     TURNOFF       97     A     
 TURNOFF  C                                                                                TURNOFF       98     A     
 TURNOFF   2011 ALLCALL = 0                                                                TURNOFF       99     A     
 TURNOFF        SYMTAB B = SSYMTAB - 1                                                     TURNOFF      100     A     
 TURNOFF   2012 SYMTAB B = SYMTAB B - 2                                                    TURNOFF      101     A     
 TURNOFF        IF (SYMTAB B - ESYMTAB) 2020, 2020, 2041                                   TURNOFF      102     A     
 TURNOFF  C                                                                                TURNOFF      103     A     
 TURNOFF  C                                                                                TURNOFF      104     A     
 TURNOFF  C  HERE IF FUNCS OPTIONS ARE TO BE TURNED OFF INDIVIDUALLY                       TURNOFF      105     A     
 TURNOFF   3000 IF (LTFLAG)  GO TO 3011                                                    TURNOFF      106     A     
 TURNOFF        CALL GETOUT                                                                TURNOFF      107     A     
 TURNOFF        IF ( (OH .EQ. 0) .OR. (OH .EQ. MINZERO) ) GO TO 3010                       TURNOFF      108     A     
 TURNOFF   3040 SYMTAB B = SSYMTAB-OH-1                                                    TURNOFF      109     A     
 TURNOFF   3041 IF (BITOFF (DEBUG(SYMTAB B), NOTBIT(1) )  .OR.                             TURNOFF      110     A     
 TURNOFF       ,    BITOFF(DEBUG(SYMTAB B),SFBIT(1)) .OR.                                  TURNOFF      111     A     
 TURNOFF       ,    BITOFF (DEBUG(SYMTAB B),  IFBIT(1) )  )  GO TO 3021                    TURNOFF      112     A     
 TURNOFF        DEBUG(SYMTAB B) = DEBUG(SYMTAB B) - INC FCNT(1)                            TURNOFF      113     A     
 TURNOFF        IF (FCNT FLD(DEBUG(SYMTAB B)) .EQ. 0)                                      TURNOFF      114     A     
 TURNOFF       ,     DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. NOTDBG(1)                     TURNOFF      115     A     
 TURNOFF   3021 IF (LTFLAG) GO TO 3012                                                     TURNOFF      116     A     
 TURNOFF   3020 CALL GET OUT                                                               TURNOFF      117     A     
 TURNOFF        IF (OH.EQ.0) GO TO 10                                                      TURNOFF      118     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3805    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TURNOFF 
  
 TURNOFF        IF (OH .EQ. MINZERO) 30, 3040                                              TURNOFF      119     A     
 TURNOFF  C                                                                                TURNOFF      120     A     
 TURNOFF  C  HERE IF ALL FUNCS OPTIONS ARE TO BE TURNED OFF                                TURNOFF      121     A     
 TURNOFF  C                                                                                TURNOFF      122     A     
 TURNOFF   3010 ALLFUNC = ALLFUNC - 1                                                      TURNOFF      123     A     
 TURNOFF        IF (OH .EQ. 0) 10, 30                                                      TURNOFF      124     A     
 TURNOFF  C                                                                                TURNOFF      125     A     
 TURNOFF  C  HERE IF FUNCS IS TO BE TURNED OFF DUE TO AN OFF STATEMENT                     TURNOFF      126     A     
 TURNOFF  C                                                                                TURNOFF      127     A     
 TURNOFF   3011 ALLFUNC = 0                                                                TURNOFF      128     A     
 TURNOFF        SYMTAB B = SSYMTAB - 1                                                     TURNOFF      129     A     
 TURNOFF   3012 SYMTAB B = SYMTAB B - 2                                                    TURNOFF      130     A     
 TURNOFF        IF (SYMTAB B - ESYMTAB) 3020, 3020, 3041                                   TURNOFF      131     A     
 TURNOFF  C                                                                                TURNOFF      132     A     
 TURNOFF  C  HERE IF THE GOTOS OPTION IS TO BE TURNED OFF                                  TURNOFF      133     A     
 TURNOFF  C                                                                                TURNOFF      134     A     
 TURNOFF   4000 CALL GET OUT                                                               TURNOFF      135     A     
 TURNOFF        GO TOS FL = GO TOS FL - 1                                                  TURNOFF      136     A     
 TURNOFF        IF (LTFLAG)  GO TOS FL = 0                                                 TURNOFF      137     A     
 TURNOFF        IF (OH .EQ. 0) 10, 30                                                      TURNOFF      138     A     
 TURNOFF  C                                                                                TURNOFF      139     A     
 TURNOFF  C  HERE IF THE NOGO OPTION IS TO BE SKIPPED OVER                                 TURNOFF      140     A     
 TURNOFF  C                                                                                TURNOFF      141     A     
 TURNOFF   5000 CALL GET OUT                                                               TURNOFF      142     A     
 TURNOFF        IF (OH.EQ.0) 10, 30                                                        TURNOFF      143     A     
 TURNOFF  C                                                                                TURNOFF      144     A     
 TURNOFF  C  HERE IF THE STORES OPTION IS TO BE TURNED OFF                                 TURNOFF      145     A     
 TURNOFF   6000 IF (LTFLAG) GO TO 6070                                                     TURNOFF      146     A     
 TURNOFF        ASHIFT = -1                                                                TURNOFF      147     A     
 TURNOFF   6010 CALL GET OUT                                                               TURNOFF      148     A     
 TURNOFF        IF (OH.EQ.0) GO TO 10                                                      TURNOFF      149     A     
 TURNOFF        IF (OH .EQ. MINZERO) GO TO 30                                              TURNOFF      150     A     
 TURNOFF        SYMTAB B = SSYMTAB-OH-1                                                    TURNOFF      151     A     
 TURNOFF        IF (BITOFF(DEBUG(SYMTAB B),NOTBIT(1)) .OR.                                 TURNOFF      152     A     
 TURNOFF       ,    BITOFF(DEBUG(SYMTAB B),SFBIT(1))  .OR.                                 TURNOFF      153     A     
 TURNOFF       ,    BITON(DEBUG(SYMTAB B),IFBIT(1)) ) GO TO 6010                           TURNOFF      154     A     
 TURNOFF        CALL SETARR, RETURNS(6010)                                                 TURNOFF      155     A     
 TURNOFF        IF ((DEBUG(SAASI+AASI).AND.SHIFT(777B, 30)).EQ.0) GO TO 6010               TURNOFF      156     A     
 TURNOFF        DEBUG(SAASI+AASI) = DEBUG(SAASI+AASI) - SHIFT(1,30)                        TURNOFF      157     A     
 TURNOFF        IF ((DEBUG(SAASI+AASI).AND.SHIFT(777B, 30)).NE.0) GO TO 6010               TURNOFF      158     A     
 TURNOFF        DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. SHIFT(MASK(59),30)                 TURNOFF      159     A     
 TURNOFF        IF (BITOFF(DEBUG(SYMTAB B),ACBIT(1))   .AND.                               TURNOFF      160     A     
 TURNOFF       ,    (ADDRESS(SHIFT(DEBUG(SAASI+AASI),18)).EQ.0).AND.                       TURNOFF      161     A     
 TURNOFF       ,    (ADDRESS(SHIFT(DEBUG(SAASI+AASI),-12)).EQ.0))                          TURNOFF      162     A     
 TURNOFF       ,     DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. NOTDBG(1)                     TURNOFF      163     A     
 TURNOFF        GO TO 6010                                                                 TURNOFF      164     A     
 TURNOFF  C  HERE IF THE STORES OPTION WITH RELATIONAL OPERATORS IS TO BE TURNED           TURNOFF      165     A     
 TURNOFF  C                                OFF                                             TURNOFF      166     A     
 TURNOFF   7000 LSHIFT = 18                                                                TURNOFF      167     A     
 TURNOFF        IF (P ADD .EQ. 0) LSHIFT = -12                                             TURNOFF      168     A     
 TURNOFF        ASHIFT = -1                                                                TURNOFF      169     A     
 TURNOFF   7010 MULT = 0                                                                   TURNOFF      170     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3806    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TURNOFF 
  
 TURNOFF        CALL GET OUT                                                               TURNOFF      171     A     
 TURNOFF        IF (OH.EQ.0) GO TO 10                                                      TURNOFF      172     A     
 TURNOFF        IF (OH .EQ. MINZERO) GO TO 30                                              TURNOFF      173     A     
 TURNOFF        SYMTAB B = SSYMTAB-OH-1                                                    TURNOFF      174     A     
 TURNOFF        IF (BITOFF(DEBUG(SYMTAB B),NOTBIT(1)) .OR.                                 TURNOFF      175     A     
 TURNOFF       ,    BITON(DEBUG(SYMTAB B),IFBIT(1)) ) GO TO 7010                           TURNOFF      176     A     
 TURNOFF        IF (P ADD .EQ. 0) GO TO 7080                                               TURNOFF      177     A     
 TURNOFF        IF ((SHIFT(DEBUG(DFOPL),-18).AND.777B).EQ.0) GO TO 7010                    TURNOFF      178     A     
 TURNOFF        DEBUG(DFOPL) = DEBUG(DFOPL) - SHIFT(1,18)                                  TURNOFF      179     A     
 TURNOFF        IF ((SHIFT(DEBUG(DFOPL),-18).AND.777B).NE.0) GO TO 7010                    TURNOFF      180     A     
 TURNOFF        CALL SETARR, RETURNS(7010)                                                 TURNOFF      181     A     
 TURNOFF        NXT STR = ADDRESS(SHIFT(DEBUG(SAASI+AASI),18))                             TURNOFF      182     A     
 TURNOFF        IF (NXT STR .EQ. DFOPL) 7050, 7070                                         TURNOFF      183     A     
 TURNOFF   7060 NXT STR = NXT STR1                                                         TURNOFF      184     A     
 TURNOFF   7070 NXT STR1 = ADDRESS(DEBUG(NXT STR))                                         TURNOFF      185     A     
 TURNOFF        IF (NXT STR1 .NE. DFOPL) GO TO 7060                                        TURNOFF      186     A     
 TURNOFF        DEBUG(NXTSTR) = (DEBUG(NXTSTR) .AND. SHIFT(MASK(42), -18)) .OR.            TURNOFF      187     A     
 TURNOFF       ,    ADDRESS(DEBUG(NXT STR1))                                               TURNOFF      188     A     
 TURNOFF        GO TO 7010                                                                 TURNOFF      189     A     
 TURNOFF   7050 TEMP = ADDRESS(DEBUG(NXT STR))                                             TURNOFF      190     A     
 TURNOFF        DEBUG(SAASI+AASI) = DEBUG(SAASI+AASI)+SHIFT(TEMP,60-LSHIFT)                TURNOFF      191     A     
 TURNOFF        IF (TEMP.NE.0) GO TO 7010                                                  TURNOFF      192     A     
 TURNOFF   7130 IF(((SHIFT(DEBUG(SAASI+AASI),30).AND.777B).EQ.0).AND.                      TURNOFF      193     A     
 TURNOFF       ,    (ADDRESS(SHIFT(DEBUG(SAASI+AASI),LSHIFT)).EQ.0).AND.                   TURNOFF      194     A     
 TURNOFF       ,    BITOFF(DEBUG(SYMTAB B),ACBIT(1)) )                                     TURNOFF      195     A     
 TURNOFF       ,     DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. NOT DBG(1)                    TURNOFF      196     A     
 TURNOFF        GO TO 7010                                                                 TURNOFF      197     A     
 TURNOFF   7080 CALL SETARR, RETURNS(7010)                                                 TURNOFF      198     A     
 TURNOFF        TEMP = DEBUG(DFOPL) .AND. MASK(33)                                         TURNOFF      199     A     
 TURNOFF        SASI = ADDRESS(SHIFT(DEBUG(SAASI+AASI),-12))                               TURNOFF      200     A     
 TURNOFF        IF (SASI.EQ.0) GO TO 7130                                                  TURNOFF      201     A     
 TURNOFF        IF (TEMP .EQ. (DEBUG(SAASI+SASI) .AND. MASK(33)) ) GO TO 7100              TURNOFF      202     A     
 TURNOFF   7120 NXT STR = SASI                                                             TURNOFF      203     A     
 TURNOFF        SASI = ADDRESS(DEBUG(SAASI+SASI))                                          TURNOFF      204     A     
 TURNOFF        IF (SASI.EQ.0) GO TO 7010                                                  TURNOFF      205     A     
 TURNOFF        IF (TEMP .NE. (DEBUG(SAASI+SASI) .AND. MASK(33)) ) GO TO 7120              TURNOFF      206     A     
 TURNOFF        IF ((SHIFT(DEBUG(SAASI+SASI), -18).AND.777B).EQ.0) GO TO 7010              TURNOFF      207     A     
 TURNOFF        DEBUG(SAASI+SASI) = DEBUG(SAASI+SASI) - SHIFT(1,18)                        TURNOFF      208     A     
 TURNOFF        IF ((SHIFT(DEBUG(SAASI+SASI), -18).AND.777B).EQ.0)                         TURNOFF      209     A     
 TURNOFF       ,DEBUG(SAASI+NXTSTR) = (DEBUG(SAASI+NXTSTR) .AND. MASK(42))                 TURNOFF      210     A     
 TURNOFF       ,    .OR.ADDRESS(DEBUG(SAASI+SASI))                                         TURNOFF      211     A     
 TURNOFF            GO TO 7010                                                             TURNOFF      212     A     
 TURNOFF   7100 DEBUG(SAASI+SASI) = DEBUG(SAASI+SASI) - SHIFT(1,18)                        TURNOFF      213     A     
 TURNOFF        IF ((SHIFT(DEBUG(SAASI+AASI), -18).AND.777B).NE.0) GO TO 7010              TURNOFF      214     A     
 TURNOFF        DEBUG(SAASI+AASI) = (DEBUG(SAASI+AASI) .AND. SHIFT(MASK(42), 12))          TURNOFF      215     A     
 TURNOFF       ,   .OR. SHIFT(ADDRESS(DEBUG(SAASI+SASI)), 12)                              TURNOFF      216     A     
 TURNOFF        IF (ADDRESS(DEBUG(SAASI+SASI)).EQ.0) 7130, 7010                            TURNOFF      217     A     
 TURNOFF  C                                                                                TURNOFF      218     A     
 TURNOFF  C  HERE IF STORES IS TO BE TURNED OFF DUE TO AN OFF STATEMENT                    TURNOFF      219     A     
 TURNOFF  C          (WITH OR WITHOUT RELATIONALS CANNOT BE SPECIFIED)                     TURNOFF      220     A     
 TURNOFF   6070 SYMTAB B = SSYMTAB - 1                                                     TURNOFF      221     A     
 TURNOFF   6071 SYMTAB B = SYMTAB B - 2                                                    TURNOFF      222     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3807    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TURNOFF 
  
 TURNOFF        IF (SYMTAB B .LE. ESYMTAB) GO TO 6010                                      TURNOFF      223     A     
 TURNOFF        IF ( (TYPE(DEBUG(SYMTAB B)) .GE. CONTYPE(1)) .AND.                         TURNOFF      224     A     
 TURNOFF       ,     (TYPE(DEBUG(SYMTAB B)) .NE. DBGTYPE(1)) ) GO TO 6071                  TURNOFF      225     A     
 TURNOFF        IF (BITOFF (DEBUG(SYMTAB B), NOTBIT(1))  .OR.                              TURNOFF      226     A     
 TURNOFF       ,    BITOFF (DEBUG(SYMTAB B),  SFBIT(1))  .OR.                              TURNOFF      227     A     
 TURNOFF       ,    BITON  (DEBUG(SYMTAB B),  IFBIT(1))) GO TO 6071                        TURNOFF      228     A     
 TURNOFF        IF (BITOFF (DEBUG(SYMTAB B),  ACBIT(1)))                                   TURNOFF      229     A     
 TURNOFF       ,      DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. NOTDBG(1)                    TURNOFF      230     A     
 TURNOFF        DEBUG(SYMTAB B) = DEBUG(SYMTAB B) .AND. .NOT. PLACE(SFBIT(1))              TURNOFF      231     A     
 TURNOFF        GO TO 6071                                                                 TURNOFF      232     A     
 TURNOFF  C                                                                                TURNOFF      233     A     
 TURNOFF  C  HERE IF THE TRACE OPTION IS TO BE TURNED OFF                                  TURNOFF      234     A     
 TURNOFF  C                                                                                TURNOFF      235     A     
 TURNOFF   8000 MULT = 0                                                                   TURNOFF      236     A     
 TURNOFF        CALL GETOUT                                                                TURNOFF      237     A     
 TURNOFF        IF (OH.EQ. 0) 10, 30                                                       TURNOFF      238     A     
 TURNOFF   8001 IF (LTFLAG) GO TO 8011                                                     TURNOFF      239     A     
 TURNOFF        MULT = 0                                                                   TURNOFF      240     A     
 TURNOFF        CALL GET OUT                                                               TURNOFF      241     A     
 TURNOFF        IF ( (OH .EQ. 0) .AND. (SHIFT(DEBUG(DFOPL), 30) .GE. 0)) GO TO 10          TURNOFF      242     A     
 TURNOFF        IF (OH .EQ. MINZERO) GO TO 30                                              TURNOFF      243     A     
 TURNOFF        LEVSHFT = 30                                                               TURNOFF      244     A     
 TURNOFF        TAASI = 0                                                                  TURNOFF      245     A     
 TURNOFF        IF (P ADD .NE.0) GO TO 8300                                                TURNOFF      246     A     
 TURNOFF        LEVSHFT = 0                                                                TURNOFF      247     A     
 TURNOFF        TAASI = SAASI                                                              TURNOFF      248     A     
 TURNOFF   8300 TEMP = SHIFT(OH,-6)                                                        TURNOFF      249     A     
 TURNOFF        SASI = ADDRESS(SHIFT(TRCADD,LEVSHFT))                                      TURNOFF      250     A     
 TURNOFF        IF (SASI.EQ.0) GO TO 8000                                                  TURNOFF      251     A     
 TURNOFF        TRACED = TRACEL                                                            TURNOFF      252     A     
 TURNOFF        IF (TEMP .GE. TRACED) TRACED = -1                                          TURNOFF      253     A     
 TURNOFF   8120 NXT STR = SASI                                                             TURNOFF      254     A     
 TURNOFF        IF (TEMP.EQ.(SHIFT(DEBUG(TAASI+SASI),6).AND.77B)) GO TO 8100               TURNOFF      255     A     
 TURNOFF        IF ((SHIFT(DEBUG(TAASI+SASI),6).AND.77B).GT.TRACED)                        TURNOFF      256     A     
 TURNOFF       ,    TRACED = SHIFT(DEBUG(TAASI+SASI),6).AND.77B                            TURNOFF      257     A     
 TURNOFF        SASI = ADDRESS(DEBUG(TAASI+SASI))                                          TURNOFF      258     A     
 TURNOFF        IF (SASI.EQ.0) GO TO 8000                                                  TURNOFF      259     A     
 TURNOFF        IF (TEMP.NE.(SHIFT(DEBUG(TAASI+SASI),6).AND.77B)) GO TO 8120               TURNOFF      260     A     
 TURNOFF        IF ((DEBUG(TAASI+SASI).AND.SHIFT(777B,18)).EQ.0) GO TO 8000                TURNOFF      261     A     
 TURNOFF        DEBUG(TAASI+SASI) = DEBUG(TAASI+SASI) - SHIFT(1,18)                        TURNOFF      262     A     
 TURNOFF        IF ((DEBUG(TAASI+SASI).AND.SHIFT(777B,18)).NE.0) GO TO 8000                TURNOFF      263     A     
 TURNOFF        DEBUG(TAASI + NXT STR) = (DEBUG(TAASI + NXT STR).AND. MASK(42))            TURNOFF      264     A     
 TURNOFF       ,    .OR. ADDRESS(DEBUG(TAASI + SASI))                                      TURNOFF      265     A     
 TURNOFF   8230 IF (TEMP.LT.TRACEL) GO TO 8000                                             TURNOFF      266     A     
 TURNOFF        TRACEL = TRACED                                                            TURNOFF      267     A     
 TURNOFF   8210 SASI = ADDRESS(DEBUG(TAASI+SASI))                                          TURNOFF      268     A     
 TURNOFF        IF (SASI.EQ.0) GO TO 8200                                                  TURNOFF      269     A     
 TURNOFF        IF ((SHIFT(DEBUG(TAASI+SASI),6).AND.77B).GT.TRACEL)                        TURNOFF      270     A     
 TURNOFF       ,    TRACEL = SHIFT(DEBUG(TAASI+SASI),6).AND.77B                            TURNOFF      271     A     
 TURNOFF        GO TO 8210                                                                 TURNOFF      272     A     
 TURNOFF   8200 SASI = ADDRESS(SHIFT(TRCADD,LEVSHFT-30))                                   TURNOFF      273     A     
 TURNOFF   8220 IF (SASI.EQ.0) GO TO 8000                                                  TURNOFF      274     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3808    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN TURNOFF 
  
 TURNOFF        IF ((SHIFT(DEBUG(TAASI+SASI),6).AND.77B).GT.TRACEL)                        TURNOFF      275     A     
 TURNOFF       ,    TRACEL = SHIFT(DEBUG(TAASI+SASI),6).AND.77B                            TURNOFF      276     A     
 TURNOFF        SASI = ADDRESS(DEBUG(TAASI+SASI))                                          TURNOFF      277     A     
 TURNOFF        GO TO 8220                                                                 TURNOFF      278     A     
 TURNOFF   8100 IF ((DEBUG(TAASI+SASI).AND.SHIFT(777B,18)).EQ.0) GO TO 8000                TURNOFF      279     A     
 TURNOFF        DEBUG(TAASI+SASI) = DEBUG(TAASI+SASI) - SHIFT(1,18)                        TURNOFF      280     A     
 TURNOFF        IF ((DEBUG(TAASI+SASI).AND.SHIFT(777B,18)).NE.0) GO TO 8000                TURNOFF      281     A     
 TURNOFF        TRCADD = SHIFT(ADDRESS(SHIFT(TRCADD,LEVSHFT-30)),LEVSHFT+30).OR.           TURNOFF      282     A     
 TURNOFF       ,    SHIFT(ADDRESS(DEBUG(TAASI+SASI)),LEVSHFT)                              TURNOFF      283     A     
 TURNOFF        GO TO 8230                                                                 TURNOFF      284     A     
 TURNOFF  C                                                                                TURNOFF      285     A     
 TURNOFF  C  HERE IF TRACE IS TO BE TURNED OFF DUE TO AN OFF STATEMENT                     TURNOFF      286     A     
 TURNOFF  C                                                                                TURNOFF      287     A     
 TURNOFF   8011 TRACEL = -1                                                                TURNOFF      288     A     
 TURNOFF        GO TO 6010                                                                 TURNOFF      289     A     
 TURNOFF  C                                                                                TURNOFF      290     A     
 TURNOFF  C  HERE IF TURN OFF OPTION IS ENCOUNTERED                                        TURNOFF      291     A     
 TURNOFF  C                                                                                TURNOFF      292     A     
 TURNOFF   9000 CALL GET OUT                                                               TURNOFF      293     A     
 TURNOFF        IF (OH.EQ.0) GO TO 10                                                      TURNOFF      294     A     
 TURNOFF        IF (OH .NE. MINZERO) GO TO 9000                                            TURNOFF      295     A     
 TURNOFF  C                                                                                TURNOFF      296     A     
 TURNOFF  C  HERE IF DONE TURNING OFF OPTIONS.  SET ERROR TO BOUND O.K.                    TURNOFF      297     A     
 TURNOFF  C                                                                                TURNOFF      298     A     
 TURNOFF     30 IF (P ADD .EQ. 0) RETURN                                                   TURNOFF      299     A     
 TURNOFF        DEBUG(SAREA+NEXT-2) = DEBUG(SAREA+NEXT-2) .OR. SHIFT(1, 22)                TURNOFF      300     A     
 TURNOFF        DEBUG(SAREA+NEXT) = DEBUG(SAREA+NEXT).OR.MASK(1)                           TURNOFF      301     A     
 TURNOFF        RETURN                                                                     TURNOFF      302     A     
 TURNOFF        END                                                                        TURNOFF      303     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - TURNOFF 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          TURNOFF                    303       302
          FCC0937                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DEBUGER 
  
 DEBUGER  *DECK,DEBUGER                                                                    DEBUGER        1     A     
 DEBUGER        SUBROUTINE DEBUG ER                                                        DEBUGER        2     A     
 DEBUGER  C                                                                                DEBUGER        3     A     
 DEBUGER  C  THIS ROUTINE PRINTS ERROR MESSAGES FOR FORTRAN DEBUG ROUTINES.  THE           DEBUGER        4     A     
 DEBUGER  C  INCORRECT STATEMENT LINE IS PRINTED IF THE NO LIST OPTION IS ON.              DEBUGER        5     A     
 DEBUGER  C  UPON ENTRY:                                                                   DEBUGER        6     A     
 DEBUGER  C         M       = THE DEBUG ERROR NUMBER.                                      DEBUGER        7     A     
 DEBUGER  *CALL FDBGCOM                                                                    DEBUGER        8          I
          -FCC0937
 DEBUGER  *CALL LDBGCOM                                                                    FCC0937       38     A     
 DEBUGER        DATA PREDBG  /10H DEBUG SYN, 10HTAX ERROR /                                DEBUGER        9     A     
 DEBUGER        FEFLAG = -1                                                                DEBUGER       10     A     
 DEBUGER      5 GO TO ( 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130,            DEBUGER       11     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3809    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DEBUGER 
  
 DEBUGER       ,    140, 150, 160) M                                                       DEBUGER       12     A     
 DEBUGER     10 WRITE (DBGOUT, 11) PREDBG, DUKE1                                           DEBUGER       13     A     
 DEBUGER     11 FORMAT(14X,2A10,*LINE *,I5,*- EXPECTED /, (, ,, OR ), MISSING*)            DEBUGER       14     A     
 DEBUGER        GO TO 1000                                                                 DEBUGER       15     A     
 DEBUGER     20 WRITE (DBGOUT, 21) PREDBG, DUKE1                                           DEBUGER       16     A     
 DEBUGER     21 FORMAT(14X,2A10,*LINE *,I5,*- CHARACTERS PAST )*)                          DEBUGER       17     A     
 DEBUGER        GO TO 1000                                                                 DEBUGER       18     A     
 DEBUGER     30 WRITE (DBGOUT, 31) PREDBG, DUKE1                                           DEBUGER       19     A     
 DEBUGER     31 FORMAT(14X,2A10,*LINE *,I5,*- EXPECTED SYMBOL, MISSING*)                   DEBUGER       20     A     
 DEBUGER        GO TO 1000                                                                 DEBUGER       21     A     
 DEBUGER     40 WRITE (DBGOUT, 41) PREDBG, DUKE1                                           DEBUGER       22     A     
 DEBUGER     41 FORMAT(14X,2A10,*LINE *,I5,*- ROUTINE DOES NOT APPEAR IN DEBUG ROU         DEBUGER       23     A     
 DEBUGER       ,TINE LIST*)                                                                DEBUGER       24     A     
 DEBUGER        GO TO 1000                                                                 DEBUGER       25     A     
 DEBUGER     50 WRITE (DBGOUT, 51) PREDBG,DUKE1                                            DEBUGER       26     A     
 DEBUGER     51 FORMAT(14X,2A10,*LINE *,I5,*- BAD BOUND*)                                  DEBUGER       27     A     
 DEBUGER        GO TO 1000                                                                 DEBUGER       28     A     
 DEBUGER     60 WRITE (DBGOUT, 61) PREDBG, DUKE1                                           DEBUGER       29     A     
 DEBUGER     61 FORMAT(14X,2A10,*LINE *,I5,*- LEVEL INTEGER EXPECTED, MISSING*)            DEBUGER       30     A     
 DEBUGER        GO TO 1000                                                                 DEBUGER       31     A     
 DEBUGER     70 WRITE (DBGOUT, 71) PREDBG, DUKE1                                           DEBUGER       32     A     
 DEBUGER     71 FORMAT(14X,2A10,*LINE *,I5,*- ILLEGAL CHARACTERS PAST NOGO*)               DEBUGER       33     A     
 DEBUGER        GO TO 1000                                                                 DEBUGER       34     A     
 DEBUGER     80 WRITE (DBGOUT, 81) PREDBG, DUKE1                                           DEBUGER       35     A     
 DEBUGER     81 FORMAT(14X,2A10,*LINE *,I5,*- LEGAL OPTION EXPECTED, MISSING*)             DEBUGER       36     A     
 DEBUGER        GO TO 1000                                                                 DEBUGER       37     A     
 DEBUGER     90 WRITE (DBGOUT, 91)  PREDBG, DUKE1                                          DEBUGER       38     A     
 DEBUGER     91 FORMAT(14X,2A10,*LINE *,I5,*- AN OFF STATEMENT SHOULD NOT APPEAR I         DEBUGER       39     A     
 DEBUGER       ,N AN OFF STATEMENT*)                                                       DEBUGER       40     A     
 DEBUGER        GO TO 1000                                                                 DEBUGER       41     A     
 DEBUGER    100 WRITE (DBGOUT, 101) PREDBG, DUKE1                                          DEBUGER       42     A     
 DEBUGER    101 FORMAT(14X,2A10,*LINE *,I5,*- ILLEGAL CHARACTERS PAST GO TOS*)             DEBUGER       43     A     
 DEBUGER        GO TO 1000                                                                 DEBUGER       44     A     
 DEBUGER    110 WRITE (DBGOUT, 111) PREDBG, DUKE1                                          DEBUGER       45     A     
 DEBUGER    111 FORMAT(14X,2A10,*LINE *,I5,*- ILLEGAL CHARACTERS PAST TRACE*)              DEBUGER       46     A     
 DEBUGER        GO TO 1000                                                                 DEBUGER       47     A     
 DEBUGER    120 WRITE (DBGOUT, 121) PREDBG, DUKE1                                          DEBUGER       48     A     
 DEBUGER    121 FORMAT(14X,2A10,*LINE *,I5,*- EXPECTED ,, ), OR .REL OP., MISSING*         DEBUGER       49     A     
 DEBUGER       ,    )                                                                      DEBUGER       50     A     
 DEBUGER        GO TO 1000                                                                 DEBUGER       51     A     
 DEBUGER    130 WRITE (DBGOUT,131) PREDBG, DUKE1                                           DEBUGER       52     A     
 DEBUGER    131 FORMAT ( 14X, 2A10, *LINE *, I5, 37H- BOUND FORM (*) MEANINGLESS,          DEBUGER       53     A     
 DEBUGER       ,IGNORED)                                                                   DEBUGER       54     A     
 DEBUGER        GO TO 1000                                                                 DEBUGER       55     A     
 DEBUGER    140 WRITE(DBGOUT,141) PREDBG,DUKE1                                             DEBUGER       56     A     
 DEBUGER    141 FORMAT(14X,2A10,*LINE *,I5,*- ILLEGAL CONSTANT*)                           DEBUGER       57     A     
 DEBUGER        GO TO 1000                                                                 DEBUGER       58     A     
 DEBUGER    150 WRITE(DBGOUT,151) DUKE1                                                    DEBUGER       59     A     
 DEBUGER    151 FORMAT(14X,* DEBUG ERROR ON LINE *,I5,*- CONSTANT TABLE OVERFLOW*)         DEBUGER       60     A     
 DEBUGER        GO TO 1000                                                                 DEBUGER       61     A     
 DEBUGER    160 WRITE (DBGOUT, 161) PREDBG, DUKE1                                          DEBUGER       62     A     
 DEBUGER    161 FORMAT (14X, 2A10, *LINE *,I5, *- ILLEGAL ROUTINE IN DEBUG LIST*)          DEBUGER       63     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3810    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN DEBUGER 
  
 DEBUGER   1000 RETURN                                                                     DEBUGER       64     A     
 DEBUGER        END                                                                        DEBUGER       65     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - DEBUGER 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          DEBUGER                     65        64
          FCC0937                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGPRO  
  
 BUGPRO   *DECK,BUGPRO                                                                     BUGPRO         1     A     
 BUGPRO         SUBROUTINE BUGPRO                                                          BUGPRO         2     A     
 BUGPRO   C                                                                                BUGPRO         3     A     
 BUGPRO   C  IF IN DEBUG MODE, THIS ROUTINE BRINGS ALL DEBUG INFORMATION                   BUGPRO         4     A     
 BUGPRO   C  PERTAINING TO THE ROUTINE BEING COMPILED FROM THE RANDOM ACCESS DEBUF         BUGPRO         5     A     
 BUGPRO   C  FILE INTO CENTRAL MEMORY.  THE B-CELL LINKS FOR THE -FROM- AND                BUGPRO         6     A     
 BUGPRO   C  OPTIONS LISTS ARE SET UP AND THE SYMBOL TABLE ORDINALS ARE                    BUGPRO         7     A     
 BUGPRO   C  SUBSTITUTED FOR THE DVL ORDINALS.                                             BUGPRO         8     A     
 BUGPRO   C                                                                                BUGPRO         9     A     
 BUGPRO   C  UPON ENTRY:  SDBGIND = THE STARTING ADDRESS OF THE DEBUG RANDOM               BUGPRO        10     A     
 BUGPRO   C                         ACCESS FILE INDEX                                      BUGPRO        11     A     
 BUGPRO   C               DOLAST  = THE ENDING ADDRESS OF THE DO TABLES                    BUGPRO        12     A     
 BUGPRO   C               ELAST   = THE ADDRESS OF THE LAST WORD OF E-LIST                 BUGPRO        13     A     
 BUGPRO   C               SSYMTAB = THE BEGINNING ADDRESS OF THE SYMBOL TABLE              BUGPRO        14     A     
 BUGPRO   C                                                                                BUGPRO        15     A     
 BUGPRO   C                                                                                BUGPRO        16     A     
 BUGPRO   C  OPEN THE DEBUG RANDOM ACCESS FILE TO SEE IF IT CONTAINS ANY INFO              BUGPRO        17     A     
 BUGPRO   C                                                                                BUGPRO        18     A     
 BUGPRO   *CALL FDBGCOM                                                                    BUGPRO        19          I
          -FCC0937
 BUGPRO   *CALL LDBGCOM                                                                    FCC0937       39     A     
 BUGPRO         OPENFL = -1                                                                BUGPRO        20     A     
 BUGPRO         LNDRLSV = LNG DRL                                                          BUGPRO        21     A     
 BUGPRO         LNDVLSV = LNG DVL                                                          BUGPRO        22     A     
 BUGPRO         CALL WRTMS1                                                                BUGPRO        23     A     
 BUGPRO         IF (DF PACK .NE. 0) INDEX NO = 1                                           BUGPRO        24     A     
 BUGPRO         LNG DRL = LENGTH(DEBUG(SDBGIND+INDEX NO))                                  BUGPRO        25     A     
 BUGPRO         IF (LNG DRL .EQ. 0) 30, 10                                                 BUGPRO        26     A     
 BUGPRO      60 WRITE (DBGOUT, 71)                                                         BUGPRO        27     A     
 BUGPRO      71 FORMAT(14X, *DEBUG: MORE CORE IS NEEDED FOR DEBUG PROCESSING. *)           BUGPRO        28     A     
 BUGPRO         LNG DRL = LNDRLSV                                                          BUGPRO        29     A     
 BUGPRO         LNG DVL = LNDVLSV                                                          BUGPRO        30     A     
 BUGPRO      30 IF (INDEXNO .EQ. 3) NOACT = -1                                             BUGPRO        31     A     
 BUGPRO         CALL WRTMS4                                                                BUGPRO        32     A     
 BUGPRO         RETURN                                                                     BUGPRO        33     A     
 BUGPRO                                                                                    BUGPRO        34     A     
 BUGPRO   C  BRING IN DEBUG ROUTINE LIST FROM DISK AND SEARCH IT FOR NAME OF               BUGPRO        35     A     
 BUGPRO   C  CURRENT ROUTINE                                                               BUGPRO        36     A     
 BUGPRO                                                                                    BUGPRO        37     A     
 BUGPRO      10 IF (DFPACK .EQ. 0) GO TO 11                                                BUGPRO        38     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3811    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGPRO  
  
 BUGPRO         CALL RDMS1 ( DEBUG(SDRL), LNG DRL, 1)                                      BUGPRO        39     A     
 BUGPRO         EDRL = SDRL + LNG DRL                                                      BUGPRO        40     A     
 BUGPRO         LNG DVL = LENGTH (DEBUG(SDBGIND+2))                                        BUGPRO        41     A     
 BUGPRO         CALL RDMS1 ( DEBUG(SDVL), LNG DVL, 2)                                      BUGPRO        42     A     
 BUGPRO         EDVL = SDVL + LNGDVL - 1                                                   BUGPRO        43     A     
 BUGPRO         CALL WRTMS4                                                                BUGPRO        44     A     
 BUGPRO         LNG DRL = LNDRLSV                                                          BUGPRO        45     A     
 BUGPRO         LNG DVL = LNDVLSV                                                          BUGPRO        46     A     
 BUGPRO         RETURN                                                                     BUGPRO        47     A     
 BUGPRO                                                                                    BUGPRO        48     A     
 BUGPRO                                                                                    BUGPRO        49     A     
 BUGPRO                                                                                    BUGPRO        50     A     
 BUGPRO      11 CALL RDMS1 (DEBUG(DOLAST + LNG IND + 1), LNG DRL, INDEXNO)                 BUGPRO        51     A     
 BUGPRO         ROU NAME = DRLELT(DEBUG(SSYMTAB-2))                                        BUGPRO        52     A     
 BUGPRO         DRL = DOLAST + LNG IND - 1                                                 BUGPRO        53     A     
 BUGPRO         SDRL = DRL + 2                                                             BUGPRO        54     A     
 BUGPRO         EDRL = DRL + LNG DRL + 2                                                   BUGPRO        55     A     
 BUGPRO         NN = 0                                                                     BUGPRO        56     A     
 BUGPRO         N = 0                                                                      BUGPRO        57     A     
 BUGPRO         TOT LNG = 0                                                                BUGPRO        58     A     
 BUGPRO      20 DRL = DRL + 2                                                              BUGPRO        59     A     
 BUGPRO         IF (DRL .EQ. EDRL) GO TO 50                                                BUGPRO        60     A     
 BUGPRO         IF (ROU NAME .NE. DRLELT(DEBUG(DRL))) GO TO 20                             BUGPRO        61     A     
 BUGPRO   C                                                                                BUGPRO        62     A     
 BUGPRO   C  IF NAME IS FOUND, DETERMINE AMOUNT OF SPACE NECESSARY FOR DEBUG               BUGPRO        63     A     
 BUGPRO   C  TABLES FOR THIS ROUTINE.                                                      BUGPRO        64     A     
 BUGPRO   C                                                                                BUGPRO        65     A     
 BUGPRO         TEMP = ADDRESS(DEBUG(DRL+1))                                               BUGPRO        66     A     
 BUGPRO         IF (TEMP .NE. 0)                                                           BUGPRO        67     A     
 BUGPRO        ,    TOT LNG = TLENGTH(DEBUG(SDBGIND + TEMP))                               BUGPRO        68     A     
 BUGPRO         N=2                                                                        BUGPRO        69     A     
 BUGPRO      40 IF (ROU NAME .NE. DRLELT(DEBUG(DRL + N))) GO TO 50                         BUGPRO        70     A     
 BUGPRO         TEMP = ADDRESS(DEBUG(DRL+N+1))                                             BUGPRO        71     A     
 BUGPRO         IF (TEMP .NE. 0)                                                           BUGPRO        72     A     
 BUGPRO        ,    TOT LNG = TLENGTH(DEBUG(SDBGIND+TEMP)) + TOT LNG                       BUGPRO        73     A     
 BUGPRO         N= N + 2                                                                   BUGPRO        74     A     
 BUGPRO         GO TO 40                                                                   BUGPRO        75     A     
 BUGPRO      50 IDRL = SDRL - 2                                                            BUGPRO        76     A     
 BUGPRO      52 IDRL = IDRL + 2                                                            BUGPRO        77     A     
 BUGPRO         IF (IDRL .EQ. EDRL) GO TO 51                                               BUGPRO        78     A     
 BUGPRO         IF (SPIDER .NE. DRLELT(DEBUG(IDRL))) GO TO 52                              BUGPRO        79     A     
 BUGPRO         TEMP = ADDRESS(DEBUG(IDRL + 1))                                            BUGPRO        80     A     
 BUGPRO         IF (TEMP .NE. 0)                                                           BUGPRO        81     A     
 BUGPRO        ,    TOT LNG = TLENGTH(DEBUG(SDBGIND + TEMP)) + TOT LNG                     BUGPRO        82     A     
 BUGPRO      53 NN = NN + 2                                                                BUGPRO        83     A     
 BUGPRO         IF (SPIDER .NE. DRLELT(DEBUG(IDRL + NN ))) GO TO 51                        BUGPRO        84     A     
 BUGPRO         TEMP = ADDRESS(DEBUG(IDRL + NN + 1))                                       BUGPRO        85     A     
 BUGPRO         IF (TEMP .NE. 0)                                                           BUGPRO        86     A     
 BUGPRO        ,    TOT LNG = TLENGTH(DEBUG(SDBGIND + TEMP)) + TOT LNG                     BUGPRO        87     A     
 BUGPRO         GO TO 53                                                                   BUGPRO        88     A     
 BUGPRO      51 IF (TOT LNG .EQ. 0) GO TO 30                                               BUGPRO        89     A     
 BUGPRO         LNG DVL = LENGTH(DEBUG(SDBGIND + INDEX NO + 1))                            BUGPRO        90     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3812    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGPRO  
  
 BUGPRO         IF ((DOLAST + LNG IND + LNG DRL + LNG DVL) .GE.                            BUGPRO        91     A     
 BUGPRO        ,    (ELAST - TOT LNG - (2* LNG DVL))) GO TO 60                             BUGPRO        92     A     
 BUGPRO   C  MOVE SYMTAB AND E-LIST DOWN IN CORE SO THAT THE AREA AND OPTIONS              BUGPRO        93     A     
 BUGPRO   C  LISTS CAN BE BROUGHT IN FROM DISK.  PROCESS AREA LISTS AS THEY ARE            BUGPRO        94     A     
 BUGPRO   C  BROUGHT IN. FIRST BRING IN AREA LISTS, OPTION LISTS AS THEY ARE MET.          BUGPRO        95     A     
 BUGPRO   C                                                                                BUGPRO        96     A     
 BUGPRO         BASE ADD = FIDIT                                                           BUGPRO        97     A     
 BUGPRO         AREAEND = FIDIT - 1                                                        BUGPRO        98     A     
 BUGPRO         IF ((ELAST - TOT LNG) .GT. DOLAST) GO TO 81                                BUGPRO        99     A     
 BUGPRO         WRITE (DBGOUT, 10020)                                                      BUGPRO       100     A     
 BUGPRO   10020 FORMAT(14X,*DEBUG: MORE CORE IS NEEDED TO BRING PACKETS IN FROM DI         BUGPRO       101     A     
 BUGPRO        ,SK.  ONLY INTERSPERSED STATEMENTS WILL BE PROCESSED. *)                    BUGPRO       102     A     
 BUGPRO         CALL WRTMS4                                                                BUGPRO       103     A     
 BUGPRO         LNG DRL = LNDRLSV                                                          BUGPRO       104     A     
 BUGPRO         LNG DVL = LNDVLSV                                                          BUGPRO       105     A     
 BUGPRO         RETURN                                                                     BUGPRO       106     A     
 BUGPRO                                                                                    BUGPRO       107     A     
 BUGPRO                                                                                    BUGPRO       108     A     
 BUGPRO                                                                                    BUGPRO       109     A     
 BUGPRO      81 TOT LNG = TOT LNG + 1                                                      BUGPRO       110     A     
 BUGPRO         CALL DMVWDS (FIDIT-ELAST+1, DEBUG(ELAST), DEBUG(ELAST-TOTLNG) )            BUGPRO       111     A     
 BUGPRO         ELAST = ELAST - TOT LNG                                                    BUGPRO       112     A     
 BUGPRO         SSYMTAB = SSYMTAB - TOT LNG                                                BUGPRO       113     A     
 BUGPRO         ESYMTAB = ESYMTAB - TOT LNG                                                BUGPRO       114     A     
 BUGPRO         ELIST = ELIST - TOT LNG                                                    BUGPRO       115     A     
 BUGPRO         LELIST = LELIST - TOT LNG                                                  BUGPRO       116     A     
 BUGPRO         EFIDIT = FIDIT                                                             BUGPRO       117     A     
 BUGPRO         FIDIT = FIDIT - TOT LNG                                                    BUGPRO       118     A     
 BUGPRO         SAASI = SAASI - TOT LNG                                                    BUGPRO       119     A     
 BUGPRO         CALL FIXPNTR                                                               BUGPRO       120     A     
 BUGPRO         SAV UP DT(1) = CUR UP DT (1)                                               BUGPRO       121     A     
 BUGPRO         SAV UP DT(2) = CUR UP DT (2)                                               BUGPRO       122     A     
 BUGPRO         IF (N .EQ. 0) GO TO 70                                                     BUGPRO       123     A     
 BUGPRO      80 N = N - 2                                                                  BUGPRO       124     A     
 BUGPRO         IF (N .LT. 0) GO TO 70                                                     BUGPRO       125     A     
 BUGPRO         TEMP = ADDRESS(DEBUG(DRL+N+1))                                             BUGPRO       126     A     
 BUGPRO         IF (TEMP .EQ. 0) GO TO 80                                                  BUGPRO       127     A     
 BUGPRO         LNG ROU = LENGTH(DEBUG(SDBGIND + TEMP))                                    BUGPRO       128     A     
 BUGPRO         BASE ADD = BASE ADD - LNG ROU                                              BUGPRO       129     A     
 BUGPRO         IF (LNG ROU .EQ. 0) GO TO 80                                               BUGPRO       130     A     
 BUGPRO         CALL RDMS1 (DEBUG(BASE ADD), LNG ROU, ADDRESS(DEBUG(DRL+N+1)))             BUGPRO       131     A     
 BUGPRO         GO TO 80                                                                   BUGPRO       132     A     
 BUGPRO      70 IF (NN .EQ. 0) GO TO 73                                                    BUGPRO       133     A     
 BUGPRO      72 NN = NN - 2                                                                BUGPRO       134     A     
 BUGPRO         IF (NN .LT. 0) GO TO 73                                                    BUGPRO       135     A     
 BUGPRO         TEMP = ADDRESS(DEBUG(IDRL + NN + 1))                                       BUGPRO       136     A     
 BUGPRO         IF (TEMP .EQ. 0) GO TO 72                                                  BUGPRO       137     A     
 BUGPRO         LNG ROU = LENGTH(DEBUG(SDBGIND + TEMP))                                    BUGPRO       138     A     
 BUGPRO         BASE ADD = BASE ADD - LNG ROU                                              BUGPRO       139     A     
 BUGPRO         IF (LNG ROU .EQ. 0) GO TO 72                                               BUGPRO       140     A     
 BUGPRO         CALL RDMS1 ( DEBUG(BASE ADD), LNG ROU, ADDRESS(DEBUG(IDRL+NN+1)))          BUGPRO       141     A     
 BUGPRO         GO TO 72                                                                   BUGPRO       142     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3813    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGPRO  
  
 BUGPRO      73 SAREA = BASE ADD                                                           BUGPRO       143     A     
 BUGPRO         EFIDIT = AREAEND                                                           BUGPRO       144     A     
 BUGPRO         FIDIT = SAREA                                                              BUGPRO       145     A     
 BUGPRO         FT ADD = 0                                                                 BUGPRO       146     A     
 BUGPRO         N = 0                                                                      BUGPRO       147     A     
 BUGPRO         AREAEND = AREAEND - SAREA                                                  BUGPRO       148     A     
 BUGPRO     550 FT ADD = FT ADD + N                                                        BUGPRO       149     A     
 BUGPRO         IF (AREAEND .LE. FT ADD) GO TO 90                                          BUGPRO       150     A     
 BUGPRO   C                                                                                BUGPRO       151     A     
 BUGPRO   C  GET NEXT WORD OF AREA LIST.  IF OPTIONS WORD, BRING CORRESPONDING             BUGPRO       152     A     
 BUGPRO   C  OPTION IN FROM DISK.                                                          BUGPRO       153     A     
 BUGPRO         RECORD = ADDRESS(DEBUG(SAREA + FT ADD))                                    BUGPRO       154     A     
 BUGPRO         IF (RECORD .EQ. 0) GO TO 600                                               BUGPRO       155     A     
 BUGPRO         LNG OPT = LENGTH(DEBUG(SDBGIND + RECORD))                                  BUGPRO       156     A     
 BUGPRO         BASE ADD = BASE ADD - LNG OPT                                              BUGPRO       157     A     
 BUGPRO         IF (LNG OPT .EQ. 0) GO TO 602                                              BUGPRO       158     A     
 BUGPRO         CALL RDMS1 ( DEBUG(BASE ADD), LNG OPT, RECORD)                             BUGPRO       159     A     
 BUGPRO     602 FT ADD = FT ADD +1                                                         BUGPRO       160     A     
 BUGPRO   C                                                                                BUGPRO       161     A     
 BUGPRO   C  IF B-CELL, .OR. IN FWA OPTIONS LIST.  SET UP -FROM- BOUND LIST LINKS.         BUGPRO       162     A     
 BUGPRO   C                                                                                BUGPRO       163     A     
 BUGPRO     600 DEBUG(SAREA + FT ADD) = DEBUG(SAREA + FT ADD) .OR. BASE ADD                BUGPRO       164     A     
 BUGPRO         TO FM = 1                                                                  BUGPRO       165     A     
 BUGPRO         BD ADD = FT ADD + 1                                                        BUGPRO       166     A     
 BUGPRO         BDS ADD = FT ADD + 3                                                       BUGPRO       167     A     
 BUGPRO         IF ((SHIFT(DEBUG(SAREA + FT ADD), 2).AND. 3) - 1) 100, 200, 300            BUGPRO       168     A     
 BUGPRO     100 IF (ADDRESS(SHIFT(FM LIST, 20)) .NE. 0) GO TO 110                          BUGPRO       169     A     
 BUGPRO         FM LIST = FM LIST .OR. SHIFT(BD ADD, 40)                                   BUGPRO       170     A     
 BUGPRO         N = 3                                                                      BUGPRO       171     A     
 BUGPRO         GO TO 400                                                                  BUGPRO       172     A     
 BUGPRO     110 ITEM = SHIFT(DEBUG(SAREA + BDSADD) .AND. MASK(30),30)                      BUGPRO       173     A     
 BUGPRO         NEXT = ADDRESS(SHIFT(FM LIST, 20))                                         BUGPRO       174     A     
 BUGPRO         CALL PUT                                                                   BUGPRO       175     A     
 BUGPRO         N = 3                                                                      BUGPRO       176     A     
 BUGPRO         GO TO 400                                                                  BUGPRO       177     A     
 BUGPRO     200 IF (ADDRESS(SHIFT(FM LIST, -20)) .NE. 0) GO TO 210                         BUGPRO       178     A     
 BUGPRO         FM LIST = FM LIST .OR. SHIFT(BD ADD, 20)                                   BUGPRO       179     A     
 BUGPRO         N = 3                                                                      BUGPRO       180     A     
 BUGPRO         GO TO 400                                                                  BUGPRO       181     A     
 BUGPRO     210 ITEM = SHIFT(DEBUG(SAREA + BDSADD) .AND. MASK(30),30)                      BUGPRO       182     A     
 BUGPRO         NEXT = ADDRESS(SHIFT(FM LIST, -20))                                        BUGPRO       183     A     
 BUGPRO         CALL PUT                                                                   BUGPRO       184     A     
 BUGPRO         N = 3                                                                      BUGPRO       185     A     
 BUGPRO         GO TO 400                                                                  BUGPRO       186     A     
 BUGPRO     300 NXT ITEM = 1                                                               BUGPRO       187     A     
 BUGPRO         NEXT = SHIFT(ADDRESS(FM LIST), 42)                                         BUGPRO       188     A     
 BUGPRO         CUR UP DT(1) = DEBUG(SAREA + BDSADD) .AND..NOT. MINZERO                    BUGPRO       189     A     
 BUGPRO         CUR UP DT(2) = SHIFT(DEBUG(SAREA + BDSADD) .AND. MINZERO, 48)              BUGPRO       190     A     
 BUGPRO        ,   .OR. SHIFT(DEBUG(SAREA + BDSADD + 1) .AND. MASK(30), -12)               BUGPRO       191     A     
 BUGPRO         CALL PUT UP DT                                                             BUGPRO       192     A     
 BUGPRO         N = 4                                                                      BUGPRO       193     A     
 BUGPRO   C                                                                                BUGPRO       194     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3814    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGPRO  
  
 BUGPRO   C  SET THE -TO- BOUND LIST LINKS                                                 BUGPRO       195     A     
 BUGPRO   C                                                                                BUGPRO       196     A     
 BUGPRO     400 BD ADD = BD ADD + 1                                                        BUGPRO       197     A     
 BUGPRO         TO FM = 0                                                                  BUGPRO       198     A     
 BUGPRO         BDS ADD = FT ADD + N                                                       BUGPRO       199     A     
 BUGPRO         IF ((SHIFT(DEBUG(SAREA + FT ADD), 4) .AND. 3) - 1) 410, 410, 500           BUGPRO       200     A     
 BUGPRO     410 N = N + 1                                                                  BUGPRO       201     A     
 BUGPRO         GO TO 550                                                                  BUGPRO       202     A     
 BUGPRO     500 NXT ITEM = -1                                                              BUGPRO       203     A     
 BUGPRO         NEXT = SHIFT(ADDRESS(FM LIST), 42)                                         BUGPRO       204     A     
 BUGPRO         CUR UP DT(1) = (SHIFT(DEBUG(SAREA + BDSADD), 30) .AND. MASK(30))           BUGPRO       205     A     
 BUGPRO        ,    .OR. (SHIFT(ADDRESS(SHIFT(DEBUG(SAREA+BDS ADD+1), 18)), 12))           BUGPRO       206     A     
 BUGPRO         CUR UP DT(2) = SHIFT(DEBUG(SAREA + BDS ADD + 1), 18).AND.MASK(42)          BUGPRO       207     A     
 BUGPRO         CALL PUT UP DT                                                             BUGPRO       208     A     
 BUGPRO         N = N + 2                                                                  BUGPRO       209     A     
 BUGPRO         GO TO 550                                                                  BUGPRO       210     A     
 BUGPRO   C                                                                                BUGPRO       211     A     
 BUGPRO   C  BRING THE DVL FROM DISK AND ADD ITS ENTRIES TO THE SYMBOL TABLE               BUGPRO       212     A     
 BUGPRO   C                                                                                BUGPRO       213     A     
 BUGPRO      90 IF (LNG DVL .EQ. 0) GO TO 900                                              BUGPRO       214     A     
 BUGPRO         TEMP = 2 * LNG DVL                                                         BUGPRO       215     A     
 BUGPRO         CALL DMVWDS ( ELIST-ELAST+1, DEBUG(ELAST), DEBUG(ELAST-TEMP) )             BUGPRO       216     A     
 BUGPRO         ELAST = ELAST - TEMP                                                       BUGPRO       217     A     
 BUGPRO         ELIST = ELIST - TEMP                                                       BUGPRO       218     A     
 BUGPRO         LELIST = LELIST - TEMP                                                     BUGPRO       219     A     
 BUGPRO         CALL FIXPNTR                                                               BUGPRO       220     A     
 BUGPRO         CALL RDMS1 ( DEBUG(DOLAST + LNG IND + 1), LNG DVL, INDEX NO + 1)           BUGPRO       221     A     
 BUGPRO         DVL = DOLAST + LNG IND + 1                                                 BUGPRO       222     A     
 BUGPRO         EDVL = DVL + LNG DVL                                                       BUGPRO       223     A     
 BUGPRO     610 DVL = DVL + 1                                                              BUGPRO       224     A     
 BUGPRO         IF (DVL.EQ.EDVL) GO TO 620                                                 BUGPRO       225     A     
 BUGPRO         CALL DSYMTAB(DEBUG(DVL),OH)                                                BUGPRO       226     A     
 BUGPRO         DEBUG(DVL) = DRLELT(SHIFT(DEBUG(DVL), 12) ) .OR. OH                        BUGPRO       227     A     
 BUGPRO         GO TO 610                                                                  BUGPRO       228     A     
 BUGPRO   C                                                                                BUGPRO       229     A     
 BUGPRO   C  GO THROUGH THE OPTIONS LISTS AND REPLACE DVL ORDINALS WITH SYMBOL             BUGPRO       230     A     
 BUGPRO   C  TABLE ORDINALS                                                                BUGPRO       231     A     
 BUGPRO   C                                                                                BUGPRO       232     A     
 BUGPRO     620 DFOPL = BASEADD - 1                                                        BUGPRO       233     A     
 BUGPRO         DVL = DOLAST + LNG IND + 1                                                 BUGPRO       234     A     
 BUGPRO         OPENFL = -1                                                                BUGPRO       235     A     
 BUGPRO     630 DFOPL = DFOPL + 1                                                          BUGPRO       236     A     
 BUGPRO         IF (DFOPL .EQ. SAREA) GO TO 900                                            BUGPRO       237     A     
 BUGPRO         MULT = 5                                                                   BUGPRO       238     A     
 BUGPRO     750 CALL GET OUT                                                               BUGPRO       239     A     
 BUGPRO         IF((OH.EQ.MINZERO) .OR. (OH.EQ.0)) GO TO 630                               BUGPRO       240     A     
 BUGPRO         GO TO (700, 700, 700, 710, 710, 700, 720, 730, 630) OH                     BUGPRO       241     A     
 BUGPRO     700 CALL GET OUT                                                               BUGPRO       242     A     
 BUGPRO         IF (OH.EQ.0) GO TO 750                                                     BUGPRO       243     A     
 BUGPRO         IF (OH .EQ. MINZERO) GO TO 630                                             BUGPRO       244     A     
 BUGPRO         DFNESTW = DFOPL                                                            BUGPRO       245     A     
 BUGPRO         DFNEST = MULT                                                              BUGPRO       246     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3815    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGPRO  
  
 BUGPRO         OH = DEBUG(DVL + OH) .AND. MINZERO                                         BUGPRO       247     A     
 BUGPRO         CALL PUT IN                                                                BUGPRO       248     A     
 BUGPRO         GO TO 700                                                                  BUGPRO       249     A     
 BUGPRO     710 CALL GET OUT                                                               BUGPRO       250     A     
 BUGPRO         IF (OH.EQ.0) GO TO 750                                                     BUGPRO       251     A     
 BUGPRO         IF (OH.EQ.MINZERO) 630, 710                                                BUGPRO       252     A     
 BUGPRO     720 DFOPL = DFOPL + 1                                                          BUGPRO       253     A     
 BUGPRO     640 DEBUG(DFOPL) = (DEBUG(DFOPL).AND.SHIFT(MASK(42), 60-12)) .OR.              BUGPRO       254     A     
 BUGPRO        , SHIFT(DEBUG(DVL + (SHIFT(DEBUG(DFOPL),12).AND.MINZERO)) .AND.             BUGPRO       255     A     
 BUGPRO        , MINZERO, 48)                                                              BUGPRO       256     A     
 BUGPRO         IF (BITON(DEBUG(DFOPL),VARBIT(1)))                                         BUGPRO       257     A     
 BUGPRO        ,    DEBUG(DFOPL)  =  (DEBUG(DFOPL) .AND. SHIFT(MASK(48), 30)) .OR.         BUGPRO       258     A     
 BUGPRO        ,     SHIFT((DEBUG(DVL + (SHIFT(DEBUG(DFOPL),30) .AND. MINZERO))            BUGPRO       259     A     
 BUGPRO        ,     .AND. MINZERO), 29)                                                   BUGPRO       260     A     
 BUGPRO         MULT = 5                                                                   BUGPRO       261     A     
 BUGPRO         DFOPL = DFOPL + 1                                                          BUGPRO       262     A     
 BUGPRO         CALL GET OUT                                                               BUGPRO       263     A     
 BUGPRO         IF (OH.EQ.0) GO TO 750                                                     BUGPRO       264     A     
 BUGPRO         IF (OH.EQ.MINZERO) 630, 640                                                BUGPRO       265     A     
 BUGPRO     730 DFOPL = DFOPL + 1                                                          BUGPRO       266     A     
 BUGPRO         MULT = 0                                                                   BUGPRO       267     A     
 BUGPRO         CALL GET OUT                                                               BUGPRO       268     A     
 BUGPRO         IF (OH.EQ.0) 750, 630                                                      BUGPRO       269     A     
 BUGPRO     900 IF ( ADDRESS(SHIFT(FM LIST, 20)).EQ. 0) GO TO 999                          BUGPRO       270     A     
 BUGPRO         IF (DUKE1 - 1 .EQ. 0) RETURN                                               BUGPRO       271     A     
 BUGPRO         DUKE1 = DUKE1 - 1                                                          BUGPRO       272     A     
 BUGPRO         P ADD = 1                                                                  BUGPRO       273     A     
 BUGPRO         TO FM = 1                                                                  BUGPRO       274     A     
 BUGPRO         BD ADD = 0                                                                 BUGPRO       275     A     
 BUGPRO         DO 910 ITEM = 1, DUKE1, 1                                                  BUGPRO       276     A     
 BUGPRO         NEXT = ADDRESS(SHIFT(FM LIST, 20) )                                        BUGPRO       277     A     
 BUGPRO         CALL PUT                                                                   BUGPRO       278     A     
 BUGPRO         IF (NEXT .EQ. 0) GO TO 910                                                 BUGPRO       279     A     
 BUGPRO     905 DFOPL = ADDRESS(DEBUG(SAREA + NEXT - 1) )                                  BUGPRO       280     A     
 BUGPRO         CALL TURN ON                                                               BUGPRO       281     A     
 BUGPRO         BD ADD = 0                                                                 BUGPRO       282     A     
 BUGPRO         NEXT = ADDRESS(SHIFT(DEBUG(SAREA + NEXT), -20) )                           BUGPRO       283     A     
 BUGPRO         IF (NEXT .NE. 0) GO TO 905                                                 BUGPRO       284     A     
 BUGPRO     910 CONTINUE                                                                   BUGPRO       285     A     
 BUGPRO         IF (ADDRESS(SHIFT(TO LIST, 20)).EQ. 0) GO TO 930                           BUGPRO       286     A     
 BUGPRO         TO FM = 0                                                                  BUGPRO       287     A     
 BUGPRO         DO 920 ITEM = 1, DUKE1, 1                                                  BUGPRO       288     A     
 BUGPRO         NEXT = ADDRESS(SHIFT(TO LIST,20) )                                         BUGPRO       289     A     
 BUGPRO         CALL PUT                                                                   BUGPRO       290     A     
 BUGPRO         IF (NEXT .EQ. 0) GO TO 920                                                 BUGPRO       291     A     
 BUGPRO     915 DFOPL = ADDRESS(DEBUG(SAREA + NEXT - 2) )                                  BUGPRO       292     A     
 BUGPRO         CALL TURN OFF                                                              BUGPRO       293     A     
 BUGPRO         NEXT = ADDRESS(SHIFT(DEBUG(SAREA + NEXT), -20) )                           BUGPRO       294     A     
 BUGPRO         IF (NEXT .NE. 0) GO TO 915                                                 BUGPRO       295     A     
 BUGPRO     920 CONTINUE                                                                   BUGPRO       296     A     
 BUGPRO     930 DUKE1 = DUKE1 + 1                                                          BUGPRO       297     A     
 BUGPRO         P ADD = 0                                                                  BUGPRO       298     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3816    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGPRO  
  
 BUGPRO     999 CALL WRTMS4                                                                BUGPRO       299     A     
 BUGPRO         CUR UP DT (1) = SAV UP DT (1)                                              BUGPRO       300     A     
 BUGPRO         CUR UP DT (2) = SAV UP DT (2)                                              BUGPRO       301     A     
 BUGPRO         LNG DRL = LNDRLSV                                                          BUGPRO       302     A     
 BUGPRO         LNG DVL = LNDVLSV                                                          BUGPRO       303     A     
 BUGPRO         RETURN                                                                     BUGPRO       304     A     
 BUGPRO         END                                                                        BUGPRO       305     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - BUGPRO  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          BUGPRO                     305       304
          FCC0937                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN PUTIN   
  
 PUTIN    *DECK,PUTIN                                                                      PUTIN          1     A     
 PUTIN          SUBROUTINE PUT IN                                                          PUTIN          2     A     
 PUTIN    C                                                                                PUTIN          3     A     
 PUTIN    C  THIS SUBROUTINE PUTS A 12-BIT -OH- FIELD INTO THE NEXT AVAILABLE              PUTIN          4     A     
 PUTIN    C  12-BIT FIELD OF THE OPTIONS LIST.                                             PUTIN          5     A     
 PUTIN    C  ENTRY: DFNESTW = THE ADDRESS OF THE CURRENT OPTION WORD IN THE                PUTIN          6     A     
 PUTIN    C                   OPTIONS LIST                                                 PUTIN          7     A     
 PUTIN    C         OH = THE 12-BIT FIELD TO BE ENTERED IN THE OPTIONS LIST                PUTIN          8     A     
 PUTIN    C         DFNEST = A POINTER TO THE NEXT AVAILABLE 12-BIT FIELD IN THE           PUTIN          9     A     
 PUTIN    C                  OPTIONS LIST                                                  PUTIN         10     A     
 PUTIN    C         ELAST = THE ENDING ADDRESS OF ELIST                                    PUTIN         11     A     
 PUTIN    C  UPON EXIT, DFNEST AND DFNESTW ARE UPDATED.                                    PUTIN         12     A     
 PUTIN    C                                                                                PUTIN         13     A     
 PUTIN    *CALL FDBGCOM                                                                    PUTIN         14          I
          -FCC0937
 PUTIN    *CALL LDBGCOM                                                                    FCC0937       40     A     
 PUTIN          DEBUG(DFNESTW) = (DEBUG(DFNESTW) .AND.                                     PUTIN         15     A     
 PUTIN         ,    ( .NOT.SHIFT(MINZERO, 12*DFNEST))) .OR.                                PUTIN         16     A     
 PUTIN         ,    SHIFT( OH, 12 * DFNEST)                                                PUTIN         17     A     
 PUTIN          DFNEST = DFNEST - 1                                                        PUTIN         18     A     
 PUTIN          IF (DFNEST .GE. 0) RETURN                                                  PUTIN         19     A     
 PUTIN          DFNEST = 4                                                                 PUTIN         20     A     
 PUTIN          DFNESTW = DFNESTW + 1                                                      PUTIN         21     A     
 PUTIN          IF (DFNESTW .EQ. ELAST) CALL BUGCLO, RETURNS (10)                          PUTIN         22     A     
 PUTIN          IF (OPENFL .GE. 0) DEBUG(DFNESTW)= 0                                       PUTIN         23     A     
 PUTIN          RETURN                                                                     PUTIN         24     A     
 PUTIN       10 DEBUG(DFNESTW - 1) = DEBUG(DFNESTW - 1) .OR. MINZERO                       PUTIN         25     A     
 PUTIN          POW = 0                                                                    PUTIN         26     A     
 PUTIN          CALL BUGCLO                                                                PUTIN         27     A     
 PUTIN          RETURN                                                                     PUTIN         28     A     
 PUTIN          END                                                                        PUTIN         29     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3817    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - PUTIN   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          PUTIN                       29        28
          FCC0937                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SETARR  
  
 SETARR   *DECK,SETARR                                                                     SETARR         1     A     
 SETARR         SUBROUTINE SETARR, RETURNS(I)                                              SETARR         2     A     
 SETARR   C                                                                                SETARR         3     A     
 SETARR   C  THIS ROUTINE IS USED TO OBTAIN ORDINALS OF ENTRIES IN DYDIT.                  SETARR         4     A     
 SETARR   C  ENTRY: ASHIFT =  8 NEED AASI FOR ARRAYS OPTION, CHECK FOR REFS                SETARR         5     A     
 SETARR   C                = 38 NEED AASI FOR STORES OPTION, CHECK FOR REFS                SETARR         6     A     
 SETARR   C                = 10 NEED AASI FOR STORES OPTION W/ RELATIONAL OPS              SETARR         7     A     
 SETARR   C                =  0 NEED FREE AASI WORD                                        SETARR         8     A     
 SETARR   C                = -1 NEED AASI, NO CHECKS                                       SETARR         9     A     
 SETARR   C         OH = THE SYMBOL TABLE ORDINAL OF THE CURRENT SYMBOL                    SETARR        10     A     
 SETARR   C         SSYMTAB = THE BEGINNING ADDRESS OF THE SYMBOL TABLE                    SETARR        11     A     
 SETARR   C         SAASI   = THE BEGINNING ADDRESS OF AASI                                SETARR        12     A     
 SETARR   C         SFIDIT  = THE BEGINNING ADDRESS OF THE FIXED AREA LIST                 SETARR        13     A     
 SETARR   C  EXIT:  NORMAL RETURN = AASI FOUND                                             SETARR        14     A     
 SETARR   C                  AASI = ORDINAL OF FOUND AASI IN DYDIT                         SETARR        15     A     
 SETARR   C         RETURNS I = (1) AASI NOT FOUND                                         SETARR        16     A     
 SETARR   C                             OR                                                 SETARR        17     A     
 SETARR   C                     (2) TOO MANY REFS FOR SPECIFIED OPTION                     SETARR        18     A     
 SETARR   *CALL FDBGCOM                                                                    SETARR        19          I
          -FCC0937
 SETARR   *CALL LDBGCOM                                                                    FCC0937       41     A     
 SETARR         IF (ASHIFT.EQ.0) GO TO 10                                                  SETARR        20     A     
 SETARR         AASI = SHIFT(DEBUG(SSYMTAB-OH-1), -19) .AND. MINZERO                       SETARR        21     A     
 SETARR         IF (AASI.EQ.0) GO TO 10                                                    SETARR        22     A     
 SETARR         IF (ASHIFT.LT.0) RETURN                                                    SETARR        23     A     
 SETARR         IF (SHIFT(DEBUG(SAASI+AASI), 59-ASHIFT) .GE. 0) RETURN                     SETARR        24     A     
 SETARR         TEMP = FSTRIP(DEBUG(SSYMTAB - OH))                                         SETARR        25     A     
 SETARR         IF (DRLELT(TEMP) .EQ. DRLELT(VALUE) ) TEMP = DEBUG(DBGPROG)                SETARR        26     A     
 SETARR         WRITE(DBGOUT, 11) TEMP                                                     SETARR        27     A     
 SETARR      11 FORMAT( * TOO MANY STORES OR ARRAYS OPTION REFERENCES FOR *, A7)           SETARR        28     A     
 SETARR         RETURN I                                                                   SETARR        29     A     
 SETARR   C                                                                                SETARR        30     A     
 SETARR   C  HERE IF ONLY WANT WORD                                                        SETARR        31     A     
 SETARR   C                                                                                SETARR        32     A     
 SETARR      10 IF (ASHIFT.LT.0) RETURN I                                                  SETARR        33     A     
 SETARR         IF (NO LIN .LT. 0) GO TO 220                                               SETARR        34     A     
 SETARR         NAASI = NAASI + 1                                                          SETARR        35     A     
 SETARR         IF ( (SAASI+NAASI) .EQ. FIDIT) GO TO 200                                   SETARR        36     A     
 SETARR         AASI = NAASI                                                               SETARR        37     A     
 SETARR         DEBUG(SAASI + AASI) = 0                                                    SETARR        38     A     
 SETARR         RETURN                                                                     SETARR        39     A     
 SETARR     200 NO LIN = -1                                                                SETARR        40     A     
 SETARR         NAASI = NAASI - 1                                                          SETARR        41     A     
 SETARR     220 IF (AASIADD.EQ.0) GO TO 300                                                SETARR        42     A     
 SETARR         AASI = ADDRESS(DEBUG(AASIADD+SAASI))                                       SETARR        43     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3818    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SETARR  
  
 SETARR         AASIADD = ADDRESS(DEBUG(SAASI+AASI))                                       SETARR        44     A     
 SETARR         RETURN                                                                     SETARR        45     A     
 SETARR   C                                                                                SETARR        46     A     
 SETARR   C  HERE IF HAVE TO ASK FOR MORE ROOM                                             SETARR        47     A     
 SETARR   C                                                                                SETARR        48     A     
 SETARR     300 IF ((ELAST - 25).LE.DOLAST) GO TO 400                                      SETARR        49     A     
 SETARR         CALL DMVWDS (FIDIT - ELAST + 1, DEBUG(ELAST), DEBUG(ELAST - 25) )          SETARR        50     A     
 SETARR         ELAST = ELAST - 25                                                         SETARR        51     A     
 SETARR         SSYMTAB = SSYMTAB - 25                                                     SETARR        52     A     
 SETARR         ESYMTAB = ESYMTAB - 25                                                     SETARR        53     A     
 SETARR         SYMTAB B = SYMTAB B - 25                                                   FCC1109X       7     A     
 SETARR         SAASI = SAASI - 25                                                         SETARR        54     A     
 SETARR         NAASI = NAASI + 1                                                          SETARR        55     A     
 SETARR         AASI = NAASI                                                               SETARR        56     A     
 SETARR         CALL FIXPNTR                                                               SETARR        57     A     
 SETARR         DEBUG(SAASI + AASI) = 0                                                    SETARR        58     A     
 SETARR         RETURN                                                                     SETARR        59     A     
 SETARR     400 WRITE(DBGOUT, 401)                                                         SETARR        60     A     
 SETARR     401 FORMAT( * REQUEST FOR AASI WORD DENIED.  ASK FOR MORE CORE. *)             SETARR        61     A     
 SETARR         RETURN I                                                                   SETARR        62     A     
 SETARR         END                                                                        SETARR        63     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - SETARR  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          SETARR                      63        62
          FCC0937                      1         1
          FCC1109X                     1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCLO  
  
 BUGCLO   *DECK,BUGCLO                                                                     BUGCLO         1     A     
 BUGCLO         SUBROUTINE BUGCLO, RETURNS(I)                                              BUGCLO         2     A     
 BUGCLO   C                                                                                BUGCLO         3     A     
 BUGCLO   C  THIS SUBROUTINE TAKES DEBUG INFORMATION FROM CENTRAL MEMORY AND               BUGCLO         4     A     
 BUGCLO   C  PLACES IT IN A RANDOM FILE                                                    BUGCLO         5     A     
 BUGCLO   C  ENTRY: POW  = 0 ALL DEBUG TABLES ARE DUMPED TO DISK                           BUGCLO         6     A     
 BUGCLO   C            .NE.0 DUMP AS MANY AREA LISTS AS IS POSSIBLE TO DISK.               BUGCLO         7     A     
 BUGCLO   C                  THIS CONDITION HOLDS WHEN MORE ROOM IS NEEDED FOR             BUGCLO         8     A     
 BUGCLO   C                  EITHER AN OPTIONS OR AN AREA LIST.                            BUGCLO         9     A     
 BUGCLO   C         DFOPFLG  = 0 IF OPTIONS NOT IN CORE                                    BUGCLO        10     A     
 BUGCLO   C                .NE.0 IF OPTIONS ARE IN CORE                                    BUGCLO        11     A     
 BUGCLO   C         AREAEND = THE ENDING ADDRESS OF THE AREA LIST                          BUGCLO        12     A     
 BUGCLO   C         DFNESTW = THE LAST ADDRESS OF THE OPTIONS LIST                         BUGCLO        13     A     
 BUGCLO   C         OPREC = THE RECORD NUMBER OF THE CURRENT OPTIONS LIST                  BUGCLO        14     A     
 BUGCLO   C         SDRL = THE STARTING ADDRESS OF THE DRL                                 BUGCLO        15     A     
 BUGCLO   C         EDRL = THE ENDING ADDRESS OF THE DRL - SDRL                            BUGCLO        16     A     
 BUGCLO   C         SDVL = THE STARTING ADDRESS OF THE DVL                                 BUGCLO        17     A     
 BUGCLO   C         EDVL = THE ENDING ADDRESS OF THE DVL - SDVL                            BUGCLO        18     A     
 BUGCLO   C         OPDRL = THE ORDINAL OF THE CURRENT OPTIONS LIST IN THE DRL             BUGCLO        19     A     
 BUGCLO   C                                                                                BUGCLO        20     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3819    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCLO  
  
 BUGCLO   *CALL FDBGCOM                                                                    BUGCLO        21          I
          -FCC0937
 BUGCLO   *CALL LDBGCOM                                                                    FCC0937       42     A     
 BUGCLO         IF (DFPACK .EQ. 0) RETURN I                                                BUGCLO        22     A     
 BUGCLO         IF (DFNOGO .LT. 0) RETURN                                                  BUGCLO        23     A     
 BUGCLO         IF (SDRL .NE. EDRL) GO TO 26                                               BUGCLO        24     A     
 BUGCLO         INDEXNO = 1                                                                BUGCLO        25     A     
 BUGCLO         RETURN                                                                     BUGCLO        26     A     
 BUGCLO      26 IF (OPENFL .EQ. 0) CALL WRTMS1                                             BUGCLO        27     A     
 BUGCLO   C  SEND THE OPTIONS TO DISK IF THEY ARE COMPLETE BUT STILL IN CORE               BUGCLO        28     A     
 BUGCLO         IF ((DFOPFLG .EQ. 0) .OR. (POW .NE. 0)) GO TO 20                           BUGCLO        29     A     
 BUGCLO         IF ( (DFNESTW - AREAEND) .EQ. 0) GO TO 22                                  BUGCLO        30     A     
 BUGCLO         IF (DFNEST .NE. 4) GO TO 24                                                BUGCLO        31     A     
 BUGCLO         IF ( (DFNESTW - AREAEND - 1) .EQ. 0) GO TO 25                              BUGCLO        32     A     
 BUGCLO         DFNEST = -1                                                                BUGCLO        33     A     
 BUGCLO         DFNESTW = DFNESTW - 1                                                      BUGCLO        34     A     
 BUGCLO      24 DFNEST = DFNEST + 1                                                        BUGCLO        35     A     
 BUGCLO      25 OH = MINZERO                                                               BUGCLO        36     A     
 BUGCLO         CALL PUT IN                                                                BUGCLO        37     A     
 BUGCLO         CALL WRTMS2 (DEBUG(AREAEND + 1), DFNESTW - AREAEND, OPREC)                 BUGCLO        38     A     
 BUGCLO         CALL WRTMS3                                                                BUGCLO        39     A     
 BUGCLO         IF (DFNEST .EQ. 4) DFNESTW = DFNESTW - 1                                   BUGCLO        40     A     
 BUGCLO      22 DFOPFLG = 0                                                                BUGCLO        41     A     
 BUGCLO         DEBUG(SDBGIND + OPREC) = (DEBUG(SDBGIND + OPREC) .AND.                     BUGCLO        42     A     
 BUGCLO        ,   SHIFT(MASK(42), 24)) .OR. (SHIFT((DFNESTW - AREAEND), 24))              BUGCLO        43     A     
 BUGCLO         DEBUG(OPDRL + 1) = (DEBUG(OPDRL + 1) .AND.SHIFT(MASK(42), 24))             BUGCLO        44     A     
 BUGCLO        ,   .OR. SHIFT(DFNESTW - AREAEND, 24)                                       BUGCLO        45     A     
 BUGCLO   C                                                                                BUGCLO        46     A     
 BUGCLO   C  SEND AREA LISTS TO DISK BY NAME OF ROUTINE                                    BUGCLO        47     A     
 BUGCLO   C                                                                                BUGCLO        48     A     
 BUGCLO      20 DRL = SDRL - 2                                                             BUGCLO        49     A     
 BUGCLO     310 IF (POW .GE. 0) GO TO 300                                                  BUGCLO        50     A     
 BUGCLO         DRL = DRL + 2                                                              BUGCLO        51     A     
 BUGCLO         IF (DRL .EQ. EDRL) GO TO 320                                               BUGCLO        52     A     
 BUGCLO         IF (ADDRESS(DEBUG(DRL)) .EQ. 0) GO TO 310                                  BUGCLO        53     A     
 BUGCLO         DEBUG(DRL) = 0                                                             BUGCLO        54     A     
 BUGCLO         DEBUG(DRL+1) = 0                                                           BUGCLO        55     A     
 BUGCLO         GO TO 310                                                                  BUGCLO        56     A     
 BUGCLO     300 NO OF WDS = 0                                                              BUGCLO        57     A     
 BUGCLO         DLFLG = 5                                                                  BUGCLO        58     A     
 BUGCLO      70 RECORD = RECORD + 1                                                        BUGCLO        59     A     
 BUGCLO         IF (RECORD .LT. LNGIND) GO TO 400                                          BUGCLO        60     A     
 BUGCLO     380 IF (ELAST - DFNESTW .GT. 50) GO TO 390                                     BUGCLO        61     A     
 BUGCLO         IF (NO OF WDS .NE. 0) GO TO 330                                            BUGCLO        62     A     
 BUGCLO         POW = -1                                                                   BUGCLO        63     A     
 BUGCLO         GO TO 310                                                                  BUGCLO        64     A     
 BUGCLO     330 CALL DMVWDS ( ELAST - (SAREA + NO OF WDS), DEBUG(SAREA +NOOFWDS),          BUGCLO        65     A     
 BUGCLO        ,    DEBUG(SAREA))                                                          BUGCLO        66     A     
 BUGCLO         AREAEND = AREAEND - NO OF WDS                                              BUGCLO        67     A     
 BUGCLO         DFNESTW = DFNESTW - NO OF WDS                                              BUGCLO        68     A     
 BUGCLO         BOUND WD = BOUND WD - NO OF WDS                                            BUGCLO        69     A     
 BUGCLO         OP WORD = OP WORD - NO OF WDS                                              BUGCLO        70     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3820    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCLO  
  
 BUGCLO         TEMP = OPWORD                                                              BUGCLO        71     A     
 BUGCLO     331 TEMP1 = ADDRESS(DEBUG(TEMP))                                               BUGCLO        72     A     
 BUGCLO         IF (TEMP1 .EQ. 0) GO TO 332                                                BUGCLO        73     A     
 BUGCLO         DEBUG(TEMP) = DEBUG(TEMP) - 50                                             BUGCLO        74     A     
 BUGCLO         TEMP = TEMP1                                                               BUGCLO        75     A     
 BUGCLO         GO TO 331                                                                  BUGCLO        76     A     
 BUGCLO     332 NDRL = SDRL - 2                                                            BUGCLO        77     A     
 BUGCLO     350 NDRL = NDRL + 2                                                            BUGCLO        78     A     
 BUGCLO         IF (NDRL .EQ. EDRL) GO TO 370                                              BUGCLO        79     A     
 BUGCLO         IF (ADDRESS(DEBUG(NDRL))) 340, 350, 360                                    BUGCLO        80     A     
 BUGCLO     340 DEBUG(NDRL) = DRLELT(DEBUG(NDRL)) .OR. SHIFT(MASK(18),18) -                BUGCLO        81     A     
 BUGCLO        ,    ADDRESS(DEBUG(NDRL))                                                   BUGCLO        82     A     
 BUGCLO     360 DEBUG(NDRL+1) = DEBUG(NDRL+1) - NO OF WDS                                  BUGCLO        83     A     
 BUGCLO         DEBUG(NDRL) = DEBUG(NDRL) - NO OF WDS                                      BUGCLO        84     A     
 BUGCLO         GO TO 350                                                                  BUGCLO        85     A     
 BUGCLO     370 NO OF WDS = 0                                                              BUGCLO        86     A     
 BUGCLO         GO TO 380                                                                  BUGCLO        87     A     
 BUGCLO     390 IF (AREAEND .GT. DFNESTW) DFNESTW = AREAEND                                BUGCLO        88     A     
 BUGCLO         CALL DMVWDS (DFNESTW -(SAREA - 1), DEBUG(SAREA), DEBUG(SAREA +50))         BUGCLO        89     A     
 BUGCLO         SAREA = SAREA + 50                                                         BUGCLO        90     A     
 BUGCLO         AREAEND = AREAEND + 50                                                     BUGCLO        91     A     
 BUGCLO         DFNESTW = DFNESTW + 50                                                     BUGCLO        92     A     
 BUGCLO         LNG IND = LNG IND + 50                                                     BUGCLO        93     A     
 BUGCLO         NDRL = SDRL - 2                                                            BUGCLO        94     A     
 BUGCLO     420 NDRL = NDRL + 2                                                            BUGCLO        95     A     
 BUGCLO         IF (NDRL .EQ. EDRL) GOTO 400                                               BUGCLO        96     A     
 BUGCLO         IF(ADDRESS(DEBUG(NDRL))) 410, 420, 440                                     BUGCLO        97     A     
 BUGCLO     410 DEBUG(NDRL) = DRLELT(DEBUG(NDRL)) .OR. SHIFT(MASK(18),18) -                BUGCLO        98     A     
 BUGCLO        ,    ADDRESS(DEBUG(NDRL))                                                   BUGCLO        99     A     
 BUGCLO     440 DEBUG(NDRL+1) = DEBUG(NDRL+1) + 50                                         BUGCLO       100     A     
 BUGCLO         DEBUG(NDRL) = DEBUG(NDRL) + 50                                             BUGCLO       101     A     
 BUGCLO         GO TO 420                                                                  BUGCLO       102     A     
 BUGCLO     400 ALNG = 0                                                                   BUGCLO       103     A     
 BUGCLO         TLNG = 0                                                                   BUGCLO       104     A     
 BUGCLO      40 DRL = DRL + 2                                                              BUGCLO       105     A     
 BUGCLO         IF (DRL.EQ.EDRL) GO TO 30                                                  BUGCLO       106     A     
 BUGCLO         IF (ADDRESS(DEBUG(DRL)).EQ.0) GO TO 40                                     BUGCLO       107     A     
 BUGCLO         NXT ADD = ADDRESS(DEBUG(DRL+1))                                            BUGCLO       108     A     
 BUGCLO         IF (DRLELT(DEBUG(NXT ADD)) .EQ. DRLELT(DEBUG(OPDRL)) .AND.                 BUGCLO       109     A     
 BUGCLO        ,    POW .NE. 0) GO TO 40                                                   BUGCLO       110     A     
 BUGCLO     100 TEMP = DEBUG(NXT ADD)                                                      BUGCLO       111     A     
 BUGCLO         DEBUG(NXT ADD) = DEBUG(NXT ADD + 1)                                        BUGCLO       112     A     
 BUGCLO         DEBUG(NXT ADD + 1) = TEMP                                                  BUGCLO       113     A     
 BUGCLO         TEMP = SDRL - 2                                                            BUGCLO       114     A     
 BUGCLO      61 TEMP = TEMP + 2                                                            BUGCLO       115     A     
 BUGCLO         IF (TEMP .EQ. EDRL) GO TO 80                                               BUGCLO       116     A     
 BUGCLO         IF (DRLELT(DEBUG(NXT ADD + 1)) .NE. DRLELT(DEBUG(TEMP))) GO TO 61          BUGCLO       117     A     
 BUGCLO         TLNG = TLNG + LENGTH(DEBUG(TEMP + 1))                                      BUGCLO       118     A     
 BUGCLO      60 LNG = LENGTH(DEBUG(NXT ADD))                                               BUGCLO       119     A     
 BUGCLO         ALNG = ALNG + LNG - 1                                                      BUGCLO       120     A     
 BUGCLO         NO OF WDS = NO  OF WDS + LNG                                               BUGCLO       121     A     
 BUGCLO         TLNG = TLNG + LNG - 1                                                      BUGCLO       122     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3821    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCLO  
  
 BUGCLO         CALL WRTMS2 (DEBUG(NXT ADD + 1), LNG - 1, RECORD)                          BUGCLO       123     A     
 BUGCLO         NXT ADD = ADDRESS(DEBUG(NXT ADD))                                          BUGCLO       124     A     
 BUGCLO         IF (SHIFT(NXT ADD, 42)) 500, 80, 60                                        BUGCLO       125     A     
 BUGCLO     500 NXT ADD = SHIFT(MASK(18), 18) - NXT ADD                                    BUGCLO       126     A     
 BUGCLO         IF (DRLELT(DEBUG(NXT ADD)) .NE. DRLELT(DEBUG(OPDRL)) .OR.                  BUGCLO       127     A     
 BUGCLO        ,    POW .EQ. 0) GO TO 100                                                  BUGCLO       128     A     
 BUGCLO      80 CALL WRTMS3                                                                BUGCLO       129     A     
 BUGCLO         DEBUG(DRL) = (DEBUG(DRL).AND.MASK(42)) .OR. NXT ADD                        BUGCLO       130     A     
 BUGCLO         DEBUG(DRL+1) = MASK(1) .OR. SHIFT(ALNG, 24) .OR.RECORD                     BUGCLO       131     A     
 BUGCLO         DEBUG(SDBGIND+RECORD)=SHIFT(MASK(18),18).AND.DEBUG(SDBGIND+RECORD)         BUGCLO       132     A     
 BUGCLO         DEBUG(SDBGIND + RECORD) = DEBUG(SDBGIND + RECORD) .OR.                     BUGCLO       133     A     
 BUGCLO        ,    SHIFT(TLNG, 42) .OR. SHIFT(ALNG, 24)                                   BUGCLO       134     A     
 BUGCLO         GO TO 70                                                                   BUGCLO       135     A     
 BUGCLO      30 IF (POW .NE. 0) GO TO 120                                                  BUGCLO       136     A     
 BUGCLO   C                                                                                BUGCLO       137     A     
 BUGCLO   C  SORT THE ROUTINES IN THE DRL IN ASCENDING ORDER AND SEND THEM TO THE          BUGCLO       138     A     
 BUGCLO   C  RANDOM FILE                                                                   BUGCLO       139     A     
 BUGCLO   C                                                                                BUGCLO       140     A     
 BUGCLO     320 IF (EDRL .EQ. SDRL) GO TO 32                                               BUGCLO       141     A     
 BUGCLO         IF ( SDRL .EQ. (EDRL - 2) ) GO TO 710                                      BUGCLO       142     A     
 BUGCLO         IJ = SDRL                                                                  BUGCLO       143     A     
 BUGCLO     205 IK = IJ + 2                                                                BUGCLO       144     A     
 BUGCLO     210 IL = 1                                                                     BUGCLO       145     A     
 BUGCLO     220 IF ((SHIFT(DEBUG(IJ), IL*6) .AND. 77B) -                                   BUGCLO       146     A     
 BUGCLO        ,    (SHIFT(DEBUG(IK), IL*6) .AND. 77B)) 230,240,250                        BUGCLO       147     A     
 BUGCLO     240 IL = IL + 1                                                                BUGCLO       148     A     
 BUGCLO         IF (IL .EQ. 8) 230, 220                                                    BUGCLO       149     A     
 BUGCLO     250 TEMP = DEBUG(IJ)                                                           BUGCLO       150     A     
 BUGCLO         DEBUG(IJ) = DEBUG(IK)                                                      BUGCLO       151     A     
 BUGCLO         DEBUG(IK) = TEMP                                                           BUGCLO       152     A     
 BUGCLO         TEMP = DEBUG(IJ + 1)                                                       BUGCLO       153     A     
 BUGCLO         DEBUG(IJ + 1) = DEBUG(IK + 1)                                              BUGCLO       154     A     
 BUGCLO         DEBUG(IK + 1) = TEMP                                                       BUGCLO       155     A     
 BUGCLO     230 IK = IK + 2                                                                BUGCLO       156     A     
 BUGCLO         IF (IK .LT. EDRL) GO TO 210                                                BUGCLO       157     A     
 BUGCLO         IJ = IJ + 2                                                                BUGCLO       158     A     
 BUGCLO         IF (IJ .LT. (EDRL - 2) ) GO TO 205                                         BUGCLO       159     A     
 BUGCLO     700 IF (DEBUG(SDRL) .NE. 0) GO TO 710                                          BUGCLO       160     A     
 BUGCLO         SDRL = SDRL + 2                                                            BUGCLO       161     A     
 BUGCLO         GO TO 700                                                                  BUGCLO       162     A     
 BUGCLO     710 IX = 1                                                                     BUGCLO       163     A     
 BUGCLO         IF (DFPACK .LT. 0) IX = 3                                                  BUGCLO       164     A     
 BUGCLO         IF ( EDRL .EQ. SDRL) GO TO 32                                              BUGCLO       165     A     
 BUGCLO         CALL WRTMS2 (DEBUG(SDRL), EDRL - SDRL, IX)                                 BUGCLO       166     A     
 BUGCLO         SUCCESS = 1                                                                BUGCLO       167     A     
 BUGCLO         CALL WRTMS3                                                                BUGCLO       168     A     
 BUGCLO      32 DEBUG(SDBGIND+IX) = (DEBUG(SDBGIND+IX) .AND. SHIFT(MASK(42),24))           BUGCLO       169     A     
 BUGCLO        ,   .OR. SHIFT(EDRL-SDRL, 24)                                               BUGCLO       170     A     
 BUGCLO         IF (EDVL .EQ. SDVL) GO TO 34                                               BUGCLO       171     A     
 BUGCLO         IX = 2                                                                     BUGCLO       172     A     
 BUGCLO         IF (DFPACK .LT. 0) IX = 4                                                  BUGCLO       173     A     
 BUGCLO         CALL WRTMS2 (DEBUG(SDVL), 1+ EDVL - SDVL, IX)                              BUGCLO       174     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3822    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN BUGCLO  
  
 BUGCLO         CALL WRTMS3                                                                BUGCLO       175     A     
 BUGCLO         DEBUG(SDBGIND+IX) = (DEBUG(SDBGIND+IX) .AND. SHIFT(MASK(42),24))           BUGCLO       176     A     
 BUGCLO        ,   .OR. SHIFT(EDVL-SDVL+1, 24)                                             BUGCLO       177     A     
 BUGCLO      34 CALL WRTMS4                                                                BUGCLO       178     A     
 BUGCLO         IF (POW .LT. 0) RETURN I                                                   BUGCLO       179     A     
 BUGCLO         RETURN                                                                     BUGCLO       180     A     
 BUGCLO   C                                                                                BUGCLO       181     A     
 BUGCLO   C  HERE IF HAVE TO MOVE REMAINS OF AREA AND OPTIONS LISTS DOWN TO AUXTAB         BUGCLO       182     A     
 BUGCLO   C                                                                                BUGCLO       183     A     
 BUGCLO     120 CALL DMVWDS (ELAST - (SAREA + NO OF WDS), DEBUG(SAREA +NO OF WDS),         BUGCLO       184     A     
 BUGCLO        ,    DEBUG(SAREA))                                                          BUGCLO       185     A     
 BUGCLO         AREAEND = AREAEND - NO OF WDS                                              BUGCLO       186     A     
 BUGCLO         NDRL = EDRL                                                                BUGCLO       187     A     
 BUGCLO         DFNESTW = DFNESTW - NO OF WDS                                              BUGCLO       188     A     
 BUGCLO         BOUND WD = BOUND WD - NO OF WDS                                            BUGCLO       189     A     
 BUGCLO         OP WORD = OP WORD - NO OF WDS                                              BUGCLO       190     A     
 BUGCLO         TEMP = OPWORD                                                              BUGCLO       191     A     
 BUGCLO     121 TEMP1 = ADDRESS(DEBUG(TEMP))                                               BUGCLO       192     A     
 BUGCLO         IF (TEMP1 .EQ. 0) GO TO 122                                                BUGCLO       193     A     
 BUGCLO         DEBUG(TEMP)= DEBUG(TEMP) - 50                                              BUGCLO       194     A     
 BUGCLO         TEMP = TEMP1                                                               BUGCLO       195     A     
 BUGCLO         GO TO 121                                                                  BUGCLO       196     A     
 BUGCLO     122 DRL = SDRL - 2                                                             BUGCLO       197     A     
 BUGCLO     130 DRL = SDRL + 2                                                             BUGCLO       198     A     
 BUGCLO         IF (DRL.NE.EDRL) GO TO 134                                                 BUGCLO       199     A     
 BUGCLO         IF (DLFLG .NE. 0) RETURN                                                   BUGCLO       200     A     
 BUGCLO         RETURN I                                                                   BUGCLO       201     A     
 BUGCLO     134 IF (ADDRESS(DEBUG(DRL))) 129, 130, 131                                     BUGCLO       202     A     
 BUGCLO     129 DEBUG(DRL) = DRLELT(DEBUG(DRL)) .OR. SHIFT(MASK(18),18) -                  BUGCLO       203     A     
 BUGCLO        ,    ADDRESS(DEBUG(DRL))                                                    BUGCLO       204     A     
 BUGCLO     131 IF (NDRL .NE. REFMAP) GO TO 132                                            BUGCLO       205     A     
 BUGCLO         IF (DLFLG.EQ.0) GO TO 136                                                  BUGCLO       206     A     
 BUGCLO         CALL DMVCON                                                                BUGCLO       207     A     
 BUGCLO         IF (DLFLG.NE.0) GO TO 132                                                  BUGCLO       208     A     
 BUGCLO     136 DEBUG(DRL) = DRLELT(DEBUG(DRL))                                            BUGCLO       209     A     
 BUGCLO         GO TO 130                                                                  BUGCLO       210     A     
 BUGCLO     132 NXT ADD = ADDRESS(DEBUG(DRL))                                              BUGCLO       211     A     
 BUGCLO         DEBUG(DRL) = DRLELT(DEBUG(DRL))                                            BUGCLO       212     A     
 BUGCLO         DEBUG(NDRL) = DEBUG(DRL).OR.(SHIFT(MASK(18),18) - NXT ADD +                BUGCLO       213     A     
 BUGCLO        ,    NO OF WDS)                                                             BUGCLO       214     A     
 BUGCLO         DEBUG(NDRL + 1) = MASK(1) .OR. (NXT ADD - NO OF WDS)                       BUGCLO       215     A     
 BUGCLO         NDRL = NDRL + 2                                                            BUGCLO       216     A     
 BUGCLO         NXT ADD = NXT ADD + 1                                                      BUGCLO       217     A     
 BUGCLO     140 IF (ADDRESS(DEBUG(NXT ADD)).EQ.0) GO TO 130                                BUGCLO       218     A     
 BUGCLO         NXT ADD1= ADDRESS(DEBUG(NXT ADD))                                          BUGCLO       219     A     
 BUGCLO         DEBUG(NXT ADD) = DRLELT(DEBUG(NXT ADD)) .OR. (NXT ADD1 -NO OF WDS)         BUGCLO       220     A     
 BUGCLO         NXT ADD = NXT ADD1                                                         BUGCLO       221     A     
 BUGCLO         GO TO 140                                                                  BUGCLO       222     A     
 BUGCLO         END                                                                        BUGCLO       223     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3823    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - BUGCLO  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          BUGCLO                     223       222
          FCC0937                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SAVREGS 
  
 SAVREGS  *DECK,SAVREGS                                                                    SAVREGS        1     A     
 SAVREGS            IDENT  SAVREGS                                                         SAVREGS        2     A     
 SAVREGS            TITLE  REGISTER SAVE AND RESTORE ROUTINE                               SAVREGS        3     A     
 SAVREGS  *CALL,SSTCALL                                                                    SAVREGS        4     A     
 SAVREGS            TITLE              SAVE REGISTERS                                      SAVREGS        5     A     
 SAVREGS   B=SVREG  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY             SAVREGS        6     A     
 SAVREGS   SAVREG   ENTRY.                                                                 SAVREGS        7     A     
 SAVREGS   B1BITS   BSS    0                                                               SAVREGS        8     A     
 SAVREGS            DUP    18                                                              SAVREGS        9     A     
 SAVREGS  +         PL     B1,*+2                                                          SAVREGS       10     A     
 SAVREGS            RJ     *+1                                                             SAVREGS       11     A     
 SAVREGS  +         DATA   0                                                               SAVREGS       12     A     
 SAVREGS  +         SB1    B1+B1                                                           SAVREGS       13     A     
 SAVREGS            ENDD                                                                   SAVREGS       14     A     
 SAVREGS            SPACE  1                                                               SAVREGS       15     A     
 SAVREGS            SB1    A7-B0                                                           SAVREGS       16     A     
 SAVREGS            SA7    SVX+7             .X7                                           SAVREGS       17     A     
 SAVREGS            SX7    B1-B0                                                           SAVREGS       18     A     
 SAVREGS            SA7    SVA+7             .A7                                           SAVREGS       19     A     
 SAVREGS            SX7    A6-B0                                                           SAVREGS       20     A     
 SAVREGS            SB1    1                                                               SAVREGS       21     A     
 SAVREGS            SA6    SVX+6             .X6                                           SAVREGS       22     A     
 SAVREGS            SA7    A7-B1             .A6                                           SAVREGS       23     A     
 SAVREGS            BX6    X5                                                              SAVREGS       24     A     
 SAVREGS            SX7    A5-B0                                                           SAVREGS       25     A     
 SAVREGS            SA6    A6-B1             .X5                                           SAVREGS       26     A     
 SAVREGS            SA7    A7-B1             .A5                                           SAVREGS       27     A     
 SAVREGS            BX6    X4                                                              SAVREGS       28     A     
 SAVREGS            SX7    A4-B0                                                           SAVREGS       29     A     
 SAVREGS            SA6    A6-B1             .X4                                           SAVREGS       30     A     
 SAVREGS            SA7    A7-B1             .A4                                           SAVREGS       31     A     
 SAVREGS            BX6    X3                                                              SAVREGS       32     A     
 SAVREGS            SX7    A3-B0                                                           SAVREGS       33     A     
 SAVREGS            SA6    A6-B1             .X3                                           SAVREGS       34     A     
 SAVREGS            SA7    A7-B1             .A3                                           SAVREGS       35     A     
 SAVREGS            BX6    X2                                                              SAVREGS       36     A     
 SAVREGS            SX7    A2-B0                                                           SAVREGS       37     A     
 SAVREGS            SA6    A6-B1             .X2                                           SAVREGS       38     A     
 SAVREGS            SA7    A7-B1             .A2                                           SAVREGS       39     A     
 SAVREGS            BX6    X1                                                              SAVREGS       40     A     
 SAVREGS            SX7    A1-B0                                                           SAVREGS       41     A     
 SAVREGS            SA6    A6-B1             .X1                                           SAVREGS       42     A     
 SAVREGS            SA7    A7-B1             .A1                                           SAVREGS       43     A     
 SAVREGS            BX6    X0                                                              SAVREGS       44     A     
 SAVREGS            SX7    A0-B0                                                           SAVREGS       45     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3824    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SAVREGS 
  
 SAVREGS            SA6    A6-B1             .X0                                           SAVREGS       46     A     
 SAVREGS            SA7    A7-B1             .A0                                           SAVREGS       47     A     
 SAVREGS            SX6    B7-B0                                                           SAVREGS       48     A     
 SAVREGS            SX7    B6-B0                                                           SAVREGS       49     A     
 SAVREGS            SA6    A7-B1             .B7                                           SAVREGS       50     A     
 SAVREGS            SA7    A6-B1             .B6                                           SAVREGS       51     A     
 SAVREGS            SX6    B5-B0                                                           SAVREGS       52     A     
 SAVREGS            SX7    B4-B0                                                           SAVREGS       53     A     
 SAVREGS            SA6    A7-B1             .B5                                           SAVREGS       54     A     
 SAVREGS            SA7    A6-B1             .B4                                           SAVREGS       55     A     
 SAVREGS            SX6    B3-B0                                                           SAVREGS       56     A     
 SAVREGS            SX7    B2-B0                                                           SAVREGS       57     A     
 SAVREGS            SA6    A7-B1             .B3                                           SAVREGS       58     A     
 SAVREGS            SA7    A6-B1             .B2                                           SAVREGS       59     A     
 SAVREGS            SB2    18                                                              SAVREGS       60     A     
 SAVREGS            MX6    0                                                               SAVREGS       61     A     
 SAVREGS            BX7    X7-X7                                                           SAVREGS       62     A     
 SAVREGS            SA1    B1BITS+1                                                        SAVREGS       63     A     
 SAVREGS   EXPANDB1 IX0    X7+X7                                                           SAVREGS       64     A     
 SAVREGS            AX1    56                                                              SAVREGS       65     A     
 SAVREGS            BX7    X0+X1                                                           SAVREGS       66     A     
 SAVREGS            SA6    A1                                                              SAVREGS       67     A     
 SAVREGS            SB2    B2-B1                                                           SAVREGS       68     A     
 SAVREGS            NO                                                                     SAVREGS       69     A     
 SAVREGS            SA1    A1+3                                                            SAVREGS       70     A     
 SAVREGS            GE     B2,B1,EXPANDB1                                                  SAVREGS       71     A     
 SAVREGS            LX7    60-18             (SIGN EXTEND VALUE FROM B1, PRESERVE          SAVREGS       72     A     
 SAVREGS            AX7    60-18              A POSSIBLE -0)                               SAVREGS       73     A     
 SAVREGS            SA7    A7-B1             .B1                                           SAVREGS       74     A     
 SAVREGS            ZR     SAVREG                                                          SAVREGS       75     A     
 SAVREGS            TITLE              RESTORE REGISTERS                                   SAVREGS       76     A     
 SAVREGS   RESREG   ENTRY.                                                                 SAVREGS       77     A     
 SAVREGS            SA1    INSTMASK                                                        SAVREGS       78     A     
 SAVREGS            SA2    WICKED                                                          SAVREGS       79     A     
 SAVREGS            SA3    SVB+0                                                           SAVREGS       80     A     
 SAVREGS            SB2    4                                                               SAVREGS       81     A     
 SAVREGS            SB7    1                                                               SAVREGS       82     A     
 SAVREGS            MX7    60-18                                                           SAVREGS       83     A     
 SAVREGS   NOREST   BX2    X1*X2             SETUP INSTRUCTIONS TO RESTORE THE             SAVREGS       84     A     
 SAVREGS            SA4    A3+B7               B-REGISTERS.                                SAVREGS       85     A     
 SAVREGS            BX3    -X7*X3                                                          SAVREGS       86     A     
 SAVREGS            LX3    30                                                              SAVREGS       87     A     
 SAVREGS            BX4    -X7*X4                                                          SAVREGS       88     A     
 SAVREGS            IX2    X2+X3                                                           SAVREGS       89     A     
 SAVREGS            BX6    X2+X4                                                           SAVREGS       90     A     
 SAVREGS            SB2    B2-B7                                                           SAVREGS       91     A     
 SAVREGS            SA6    A2                                                              SAVREGS       92     A     
 SAVREGS            NO                                                                     SAVREGS       93     A     
 SAVREGS            SA3    A4+B7                                                           SAVREGS       94     A     
 SAVREGS            SA2    A2+B7                                                           SAVREGS       95     A     
 SAVREGS            GE     B2,B7,NOREST                                                    SAVREGS       96     A     
 SAVREGS            SA2    SVX+0                                                           SAVREGS       97     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3825    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SAVREGS 
  
 SAVREGS            BX0    X2                .X0                                           SAVREGS       98     A     
 SAVREGS            SA2    A2+B7                                                           SAVREGS       99     A     
 SAVREGS            SA1    A1+B7             (FLIP1)                                       SAVREGS      100     A     
 SAVREGS            UX3    X2,B1                                                           SAVREGS      101     A     
 SAVREGS            LX3    10                                                              SAVREGS      102     A     
 SAVREGS            MI     X2,FOR                                                          SAVREGS      103     A     
 SAVREGS            SA1    A1+B7             (FLIP2)                                       SAVREGS      104     A     
 SAVREGS   FOR      BX6    X1                                                              SAVREGS      105     A     
 SAVREGS            UX3    X3,B2                                                           SAVREGS      106     A     
 SAVREGS            SA6    THE               (STORE 'BX1 -X1' OR 'NO' INSTRUCTION)         SAVREGS      107     A     
 SAVREGS            LX3    10                                                              SAVREGS      108     A     
 SAVREGS            SA1    SVA+0                                                           SAVREGS      109     A     
 SAVREGS            UX3    X3,B3                                                           SAVREGS      110     A     
 SAVREGS            SA5    SVA+7                                                           SAVREGS      111     A     
 SAVREGS            SA0    X1-0              .A0                                           SAVREGS      112     A     
 SAVREGS            SA4    X5-0                                                            SAVREGS      113     A     
 SAVREGS            LX3    10                                                              SAVREGS      114     A     
 SAVREGS            BX7    X4                                                              SAVREGS      115     A     
 SAVREGS            UX3    X3,B4                                                           SAVREGS      116     A     
 SAVREGS            SA5    A5-B7                                                           SAVREGS      117     A     
 SAVREGS            SA2    X5-0                                                            SAVREGS      118     A     
 SAVREGS            LX3    10                                                              SAVREGS      119     A     
 SAVREGS            BX6    X2                                                              SAVREGS      120     A     
 SAVREGS            SA7    A4-B0             .A7                                           SAVREGS      121     A     
 SAVREGS            SA6    A2-B0             .A6                                           SAVREGS      122     A     
 SAVREGS            UX3    X3,B5                                                           SAVREGS      123     A     
 SAVREGS            SA5    A5-B7                                                           SAVREGS      124     A     
 SAVREGS            SA4    A5-B7                                                           SAVREGS      125     A     
 SAVREGS            LX3    10                                                              SAVREGS      126     A     
 SAVREGS            UX2    X3,B6                                                           SAVREGS      127     A     
 SAVREGS            SA3    A4-B7                                                           SAVREGS      128     A     
 SAVREGS            SA2    SVX+7                                                           SAVREGS      129     A     
 SAVREGS            SA1    A2-B7                                                           SAVREGS      130     A     
 SAVREGS            SA5    X5-0              .A5                                           SAVREGS      131     A     
 SAVREGS            BX7    X2                .X7                                           SAVREGS      132     A     
 SAVREGS            LX6    X1                .X6                                           SAVREGS      133     A     
 SAVREGS            SA2    A1-B7                                                           SAVREGS      134     A     
 SAVREGS            SA4    X4-0              .A4                                           SAVREGS      135     A     
 SAVREGS            BX5    X2                .X5                                           SAVREGS      136     A     
 SAVREGS            SA1    A2-B7                                                           SAVREGS      137     A     
 SAVREGS            LX4    X1                .X4                                           SAVREGS      138     A     
 SAVREGS            SA1    A1-B7                                                           SAVREGS      139     A     
 SAVREGS            SA2    A3-B7                                                           SAVREGS      140     A     
 SAVREGS            SA3    X3-0              .A3                                           SAVREGS      141     A     
 SAVREGS            BX3    X1                .X3                                           SAVREGS      142     A     
 SAVREGS            SA1    A1-B7                                                           SAVREGS      143     A     
 SAVREGS            SA2    X2-0              .A2                                           SAVREGS      144     A     
 SAVREGS            BX2    X1                .X2                                           SAVREGS      145     A     
 SAVREGS            SA1    SVA+1                                                           SAVREGS      146     A     
 SAVREGS            SA1    X1-0              .A1                                           SAVREGS      147     A     
 SAVREGS            BX1    -X1-X1                                                          SAVREGS      148     A     
 SAVREGS            SB7    X1-0                                                            SAVREGS      149     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3826    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN SAVREGS 
  
 SAVREGS            MX1    0                                                               SAVREGS      150     A     
 SAVREGS            PX1    X1,B6                                                           SAVREGS      151     A     
 SAVREGS            LX1    60-10                                                           SAVREGS      152     A     
 SAVREGS            PX1    X1,B5                                                           SAVREGS      153     A     
 SAVREGS            LX1    60-10                                                           SAVREGS      154     A     
 SAVREGS            PX1    X1,B4                                                           SAVREGS      155     A     
 SAVREGS            LX1    60-10                                                           SAVREGS      156     A     
 SAVREGS            PX1    X1,B3                                                           SAVREGS      157     A     
 SAVREGS            LX1    60-10                                                           SAVREGS      158     A     
 SAVREGS   THE      PX1    X1,B2                                                           SAVREGS      159     A     
 SAVREGS            LX1    60-10                                                           SAVREGS      160     A     
 SAVREGS            PX1    X1,B1                                                           SAVREGS      161     A     
 SAVREGS            NO                       (OR A BX1 -X1, SEE ABOVE)                     SAVREGS      162     A     
 SAVREGS   WICKED   SB0    B7+0              (YES, B0 WILL NOT BE CHANGED.)                SAVREGS      163     A     
 SAVREGS            SB1    B7+0                                                            SAVREGS      164     A     
 SAVREGS            SB2    B7+0                                                            SAVREGS      165     A     
 SAVREGS            SB3    B7+0                                                            SAVREGS      166     A     
 SAVREGS            SB4    B7+0                                                            SAVREGS      167     A     
 SAVREGS            SB5    B7+0                                                            SAVREGS      168     A     
 SAVREGS            SB6    B7+0                                                            SAVREGS      169     A     
 SAVREGS            SB7    B7+0                                                            SAVREGS      170     A     
 SAVREGS            ZR     RESREG                                                          SAVREGS      171     A     
 SAVREGS            SPACE  2                                                               SAVREGS      172     A     
 SAVREGS   INSTMASK DATA   77770000007777000000B                                           SAVREGS      173     A     
 SAVREGS   FLIP1    PX1    X1,B2                                                           SAVREGS      174     A     
 SAVREGS            LX1    60-10                                                           SAVREGS      175     A     
 SAVREGS            PX1    X1,B1                                                           SAVREGS      176     A     
 SAVREGS            BX1    -X1                                                             SAVREGS      177     A     
 SAVREGS   FLIP2    PX1    X1,B2                                                           SAVREGS      178     A     
 SAVREGS            LX1    60-10                                                           SAVREGS      179     A     
 SAVREGS            PX1    X1,B1                                                           SAVREGS      180     A     
 SAVREGS            NO                                                                     SAVREGS      181     A     
 SAVREGS   SVB      BSSZ   1                                                               SAVREGS      182     A     
 SAVREGS            BSS    7                                                               SAVREGS      183     A     
 SAVREGS   SVA      BSS    8                                                               SAVREGS      184     A     
 SAVREGS   SVX      BSS    8                                                               SAVREGS      185     A     
 SAVREGS            END                                                                    SAVREGS      186     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - SAVREGS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          SAVREGS                    186       186
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - TOTALS
  
          IDENTIFIER               TOTAL    ACTIVE
  
          YANK$$$                      0         0
          *COMDKS*                     1         1
          FA=CLO                      41        31
          FA=DEFS                    389       389
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3827    
  
          FA=EOF                      41        41
          FA=EOR                      41        41
          FA=FLSH                     54        51
          FA=OPE                      61        50
          FA=RDC                      78        70
          FA=RDW                     128       121
          FA=RWX                      49        49
          FA=SET                     194       188
          FA=WTC                      83        83
          FA=WTW                      77        75
          SSTCALL                      5         5
          COMCCDD                     62        62
          COMCCOD                     55        55
          COMCDXB                     86        86
          COMCMVE                     93        93
          COMCCIO                     84        84
          COMCRDC                     78        78
          COMCRDW                    321       320
          COMCWTC                     70        70
          COMCWTW                    274       274
          OPTIONS                    490       398
          PARSEM                      97        97
          FMACDEF                     56        56
          DBGCOM                     113       113
          OPRDEFS                    166       166
          FDBGCOM                    112       112
          FWACOM                      24        23
          *TEXTS*                      1         1
          TSTEXT                    2361      2210
          FTNMAC                     489       305
          FTNTEXT                   1949      1814
          *FTN*                        1         1
          FTNRES                    1539      1385
          FTN                       2092      1804
          *TSMODE*                     1         1
          TABLES                    1704      1469
          ERRORS                    1682      1334
          BATCH                      435       347
          HEADER                     721       615
          PIG                        480       397
          LIST                       487       468
          MAP                       1419       680
          END                       2209      1940
          ALLOC                     1715      1503
          MAIN                      1764      1183
          LEX                       1748      1424
          KEY                       1548      1490
          IF                         359       333
          TSDATA                    1971      1932
          DECL                      2208      2094
          TYPE                       462       424
          FMT                        874       848
          IO                        2364      2043
          NUM                        861       842
          REG                       2019      1893
          PAR                       3937      3640
          CONRED                     945       869
          GEN                       5321      5060
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3828    
  
          FUN                        375       367
          ASF                        575       561
          DO                         785       763
          INIT                       510       412
          *BATCH*                      1         1
          LSTPRO                    1787      1607
          OUTPTK                    1146      1114
          OUTPK20                      8         8
          *FTNMSG*                     1         1
          FTNMSG                    1163      1106
          *PASS1*                      1         1
          PS1CTL                     999       954
          COUNTMC                     26        26
          STMTP                     1061      1055
          ENDPRO                    1023       965
          SCANNER                   3636      3267
          DMPELST                    209       207
          CONVERT                    662       661
          DATA                      2358      2299
          ERPRO                     1451      1406
          FLY                        566       563
          LISTIO                    3321      3136
          ARITH                     8936      8378
          ASFPRO                     482       474
          CALL                       459       428
          GOTO                       755       754
          DBGLNK                      78        76
          DOPROC                    1785      1686
          DPCLOSE                   2209       761
          DECPRO                    1415      1266
          PH1CTL                    1518      1440
          *PASS3*                      1         1
          PS3CTL                     129       124
          FAX                       5806      5251
          REFMAP                    2976      2864
          *PASS2*                      1         1
          CLOSE2                     108        87
          CFTBLD                      71        69
          IOTBLD                      55        55
          GPOCOM                     182       177
          UDTBLD                      54        53
          MIO                       2079      1941
          FBV                        311       311
          GPO                       6191      5643
          GRA                       6290      5754
          PROSEQ                    2631      2532
          POST                      1970      1784
          SQZ                       2866      2768
          MCG                       4535      4265
          BDT                       1671      1532
          FTNDBG                       2         1
          DMPIIT                     105       105
          DMPRLST                     60        59
          DMPSIT                      53        53
          DMPTREE                     54        54
          DMPUDI                      79        79
          PRNTGRA                    207       204
          PRNTMIO                    286       286
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3829    
  
          PRNTUDI                     47        47
          PRNTABV                     49        49
          PRNTBV                      83        83
          PRNTRLI                    188       187
          PRNTMCG                    262       260
          PRE                       2122      2095
          CFA                       1535      1512
          UDT                        648       627
          READRL                     345       345
          MACROX                    1962      1826
          *DEBUG*                      1         1
          DBGPHCT                   1827      1730
          OUTPK24                      8         8
          PUT                         39        39
          PUTUPDT                    114       113
          BUGACT                     107       106
          GETOUT                      18        17
          TURNON                     301       300
          BUGSOUT                    142       141
          BUGCON                    1193      1192
          TURNOFF                    303       302
          DEBUGER                     65        64
          BUGPRO                     305       304
          PUTIN                       29        28
          SETARR                      63        62
          BUGCLO                     223       222
          SAVREGS                    186       186
          HISTORY                      3         3
          COMAREG                    228       228
          FCC0380                      1         1
          L393                         1         1
          FCC0218                      7         7
          FCC0220                    113       109
          FCC0385                     15        15
          FCC0389                      8         8
          FCC0390                      8         4
          FCC0391                     10        10
          FCC0392                    155       151
          FCC0393                     39        39
          FCC0394                     13        13
          FCC0408                    109        74
          FCC0413                     26        25
          FCC0414                     80        78
          FCC0415                     47        37
          L397                         1         1
          FCC0407                     14        14
          FCC0412                     41        24
          FCC0418                     96        95
          FCC0422                     13         9
          FCC0435                      5         5
          FCC0441                     16        16
          FCC0446                      6         6
          FCC0448                    197       152
          FCC0451                     17        17
          FCC0458                     27        27
          FCC0475                      8         6
          FCC0476                      6         6
          FCC0477                     10         8
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3830    
  
          FCC0481                     10         8
          FCC0490                      7         7
          FCC0491                     14        14
          FCC0498                     52        49
          FCC0499                     53        53
          FCC0502                     19        19
          FCC0504                     22        20
          FCC0506                     17        17
          FCC0508                     19        19
          FCC0509                     66        66
          FCC0513                     34        31
          FCC0517                      6         6
          FCC0518                      4         3
          FCC0519                     16        14
          FCC0520                     13        13
          FCC0521                      8         5
          FCC0522                     13        13
          FCC0534                      8         8
          FEAT79BZ                     7         7
          FEAT121A                   126       114
          FEAT121L                   699       652
          FEAT123A                    17        17
          L401                         1         1
          FCC0493                     82        72
          FCC0511                      4         4
          FCC0514                    770       639
          FCC0524                     47        47
          FCC0525                      7         7
          FCC0527                      6         6
          FCC0529                      8         7
          FCC0535                     13        13
          FCC0544                     76        74
          FCC0558                     13        13
          FCC0564                     21        17
          FCC0569                      5         5
          FCC0574                      9         9
          FCC0584                     23        23
          FCC0586                     21        21
          FCC0588                     13        13
          FCC0590                      9         9
          L406                         1         1
          FCCCPRT                      1         0
          FSCALE                     281       280
          FCC0400                     69        69
          FCC0396                     30        30
          FCC0458A                     4         4
          FCC0537                    110       107
          FCC0539                    232       208
          FCC0556                     39        39
          FCC0570                     47        46
          FCC0575                     11        11
          FCC0579                     14        14
          FCC0583                     53        51
          FCC0585                     11        11
          FCC0589                     20        18
          FCC0593                     34        31
          FCC0594                     24        21
          FCC0596                      6         3
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3831    
  
          FCC0597                     27        26
          FCC0599                      6         5
          FCC0603                    125       121
          FCC0611                      8         8
          FCC0612                      6         6
          FCC0613                     26        26
          FCC0614                     22        17
          FCC0616                     30        29
          FCC0618                     10        10
          FCC0623                     60        57
          FCC0578                      5         5
          FCC0587                     11        11
          FCC0624                     10         9
          FCC0625                     22        16
          FCC0628                     48        46
          FCC0634                     12        11
          FCC0637                      4         4
          FCC0640                      9         9
          FCC0641                     95        95
          FCC0642                     12        12
          FCC0643                     82        82
          FCC0644                      8         8
          FCC0645                     40        39
          FCC0646                     69        68
          FCC0651                     16        16
          FCC0658                      8         3
          FCC0602                     21        21
          FCC0654                      9         9
          FCC0656                     56        55
          FCC0714                      8         8
          FCC0716                     48        48
          FCC0728                      9         9
          FCC0732                      9         9
          FCC0761                     30        30
          FEAT126A                  1080       761
          FCC0709                     50        46
          FEAT126B                   933       692
          FEAT126C                   200       173
          FEAT126AA                   23        18
          FEAT126AB                   17        15
          FEAT126AC                    9         4
          FEAT126BA                    8         8
          FEAT126BB                   17        17
          FEAT126BC                   18        18
          FEAT126CA                   26        26
          FEAT129                    581       126
          L410                         1         1
          FCC0566                     10        10
          FCC0580                    146        54
          FCC0639                     10         9
          FCC0672                     22        22
          FCC0675                    258       246
          FCC0683                     12        12
          FCC0684                     11        11
          FCC0696                     19        18
          FCC0708                     12        12
          FCC0711                     53        48
          FCC0715                     19        19
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3832    
  
          FCC0718                     17        17
          FCC0719                      5         5
          FCC0733                      4         4
          FCC0735                     27        27
          FCC0741                     16         5
          FCC0743                     18        17
          FCC0744                     16        16
          FCC0751                      5         5
          FCC0752                      8         8
          FCC0762                     11        11
          FCC0775                     11        11
          FCC0784                      5         5
          FCC0789                     32        32
          FCC0791                     28         9
          FCC0792                     25        25
          FCC0826                     16        15
          L414                         1         1
          FCC0635                     10         9
          FCC0717                    263       252
          FCC0764                     19        19
          FCC0768                      8         8
          FCC0780                     10         9
          FCC0787                    224       223
          FCC0794                     21        21
          FCC0805                     29        26
          FCC0811                     45        45
          FCC0812                     15        15
          FCC0813                    176       142
          FCC0814                      7         7
          FCC0818                     24        24
          FCC0822                     25        25
          FCC0824                     21        21
          FCC0827                      8         8
          FCC0828                      9         9
          FCC0839                      6         6
          FCC0840                      8         8
          FCC0841                     10        10
          FCC0842                      6         6
          FCC0844                     27        26
          FCC0848                      5         5
          FCC0872                      6         6
          FCC0878                     35        35
          FCC0882                     17        17
          FCC0883                      5         5
          FCC0885                     11         8
          FCC0887                     13        13
          FCC0888                      4         4
          FCC0903                      9         9
          FCC0912                     42        42
          FCC0919                      8         8
          FCC0931                     17        16
          FCC0943                      4         4
          S3143FC                     60        28
          *L420*                       1         1
          FCC0715A                    11        11
          FCC0777                      9         9
          FCC0835                     12        12
          FCC0859                     16        14
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3833    
  
          FCC0864                     13        13
          FCC0881                    257       238
          FCC0902                      6         6
          FCC0909                     79        79
          FCC0914                     92        92
          FCC0946                     15        15
          FCC0960                     23        23
          FCC0961                      9         9
          FCC0962                     12         8
          FCC0963                      5         5
          FCC0970                      7         7
          FCC0975                     10        10
          FCC0977                    100        99
          FCC0980                     16        16
          FCC0982                     51        51
          FCC0990                     18        18
          FCC0994                      8         6
          FCC0996                      4         4
          FCC1004                      8         6
          FCC1011                      5         5
          FCC1013                     10        10
          FCC1014                    104       104
          FCC1025                     40        40
          FCC1028                     18        12
          TEXTCOM                     57        57
          FEAT79CZ                    13        13
          FEAT155A                   106       101
          FEAT155B                    52        52
          FEAT155C                   195       194
          FEAT155D                   138       136
          FEAT155E                   364       166
          FEAT155G                   994       955
          FEAT155H                   186       179
          FEAT155J                    36        33
          FCC*76                       4         3
          CP139FC                    258       255
          LDBGCOM                      5         5
          FCC0937                     42        42
          FEAT155AB                    5         5
          FEAT155EA                   49        14
          FEAT155HA                    6         5
          FCC0957                     18        18
          FCC0985                     65        55
          FCC1097                     16        15
          FEAT155F                   265       263
          COMCSVR                    436       436
          DBG=IDP                   4503      3886
          DBG=MAC                    352       351
          TSNAP                      999       961
          SNAP                       315       315
          FEAT155HB                    3         0
          FEAT155K                     9         5
          S3143FCA                     3         3
          FEAT155EB                   15         9
          FEAT155GA                   16        16
          FEAT155FA                    7         7
          *L428*                       1         1
          FCC0807                     22        22
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3834    
  
          FCC0825                     21        21
          FCC0868                     17        17
          FCC0949                     13        13
          FCC0964                      5         5
          FCC0966                    109       108
          FCC1007                     10        10
          FCC1010                     18        10
          FCC1012                     11        11
          FCC1015                      8         8
          FCC1025A                     2         2
          FCC1029                     10        10
          FCC1039                     31        31
          FCC1040                     10        10
          FCC1045                      8         8
          FCC1046                     66        65
          FCC1055                     16        16
          FCC1056                     63        56
          FCC1058                     11        11
          FCC1062                      5         5
          FCC1068                     11        11
          FCC1070                     12         3
          FCC1082                      5         5
          FCC1085                     42        42
          FCC1088                     46        46
          FCC1091                      8         8
          FCC1092                     30        30
          FCC1096                     14        14
          FCC1107                     11        11
          FCC1108                     33        33
          FCC1119                     44        44
          FCC1123                      7         7
          FCC1124                      5         5
          FCC1126                    112        60
          FCC1127                     27        27
          FCC1129                     18         6
          FCC1142                      8         8
          FCC1155                      7         7
          FCC1163                     14        14
          FCC1169                     82        81
          FCC1200                     52        50
          FCC1208                     87        84
          FCC1215                      4         4
          FCC1224                     25        25
          *L433*                       1         1
          FCC0976                      9         9
          FCC0995                     12         9
          FCC1134                    128       125
          FCC1175                      5         5
          FCC1191                     32        32
          FCC1196                     10        10
          FCC1201                      7         7
          FCC1206                      3         3
          FCC1210                     11        11
          FCC1211                     18        18
          FCC1213                      6         6
          FCC1222                     10        10
          FCC1226                      5         5
          FCC1227                     13        12
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3835    
  
          FCC1237                     24        24
          FCC1238                      7         7
          FCC1239                      9         9
          FCC1247                     37        32
          FCC1254                    132       132
          FCC1259                     28        28
          FCC1274                     23        23
          FCC1275                     10        10
          FCC1283                      9         9
          FCC1290                     29        27
          FCC1293                     16        16
          FCC1295                     13        13
          FCC1314                      7         7
          COMCSFN                     49        49
          FCCT001                     18        18
          FCCT002                     79        79
          FCCT003                    127       127
          DBG0001                    132       132
          DBG0002                   1539      1536
          DBG0003                      4         4
          *L439*                       1         1
          FCC0971                     76        72
          FCC1179                     49        49
          FCC1244                      4         4
          FCC1247A                    10        10
          FCC1258                     14        14
          FCC1264                     69        53
          FCC1286                      8         8
          FCC1294                     23        23
          FCC1299                     12        12
          FCC1307                    121       120
          FCC1309                     14         6
          FCC1313                      6         6
          FCC1319                    140       140
          FCC1320                     12        12
          FCC1322                     10         6
          FCC1332                     16        15
          FCC1336                      9         9
          FCC1337                     11        11
          FCC1339                      6         6
          FCC1352                      6         6
          FCC1353                     22        22
          FCC1373                      7         7
          FCC1385                     17        17
          FCC1388                      6         6
          FCC1410                     13        12
          FCC1412                     17        17
          FCC1413                     15        15
          FCC1421                     14        14
          FCC1424                      5         4
          FCC1425                      7         7
          FCC1442                     14        14
          FCC1449                      8         8
          FCC1451                     19        16
          FCC1453                      5         5
          *L444*                       1         1
          FCC*77X                      5         4
          F7540FT                     71        58
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3836    
  
          COMFRNC                    114       114
          IOBUFL                      43        43
          RSM2763X                   373       369
          RSM2763AX                    7         7
          FCCT005                     10        10
          FCC1059X                    16        16
          FCC1086X                     8         8
          FCC1109X                     7         7
          FCC1117X                    10        10
          FCC1128X                    10        10
          FCC1134AX                   68        68
          FCC1173X                    10        10
          FCC1252X                    20        20
          FCC1300X                    59        59
          FCC1328X                   643       639
          FCC1328AX                   14        14
          FCC1328BX                    5         5
          FCC1361X                    21         6
          FCC1371X                    18        18
          FCC1390X                    10        10
          FCC1402X                    24        24
          FCC1434X                    41        41
          FCC1448X                    11        11
          FCC1464X                     6         6
          FCC1467X                     5         5
          FCC1469X                    37        35
          FCC1476X                    12        12
          FCC1479X                    10        10
          FCC1491X                     8         8
          FCC1495X                     6         5
          FCC1495AX                   12        12
          FCC1498X                     6         6
          FCC1504X                    31        31
          FCC1510X                     5         5
          FCC1512X                     7         7
          FCC1513X                    28        28
          FCC1514X                     4         4
          FCC1518X                    42        40
          FCC1530X                    16        16
          FCC1531X                     7         7
          FCC1532X                    12        12
          FCC1545X                     6         6
          FCC1551X                     8         8
          FCC1555X                    93        90
          FCC1556X                    18        12
          FCC1559X                    25         8
          *L452*                       1         1
          F7540FTA                    15        13
          DBG0004                      4         4
          DBG0005                      7         7
          DBG0006                    419       419
          DBG0009                     38        38
          FCCT006X                    28        27
          FCCT007                      5         5
          FCC1456X                     4         4
          FCC1462X                    25        25
          FCC1463X                    22        20
          FCC1550X                    24        24
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3837    
  
          FCC1558X                    10        10
          FCC1568X                     7         7
          FCC1571X                    18        18
          FCC1573X                    46        45
          FCC1576X                     8         8
          FCC1580X                    10        10
          FCC1583AX                   29        29
          FCC1587X                     7         7
          FCC1596X                     7         7
          FCC1603X                     8         8
          FCC1605X                     7         7
          FCC1608X                    44        44
          FCC1616X                     7         7
          FCC1623X                     7         7
          FCC1624X                     7         7
          FCC1626X                     9         9
          FCC1636X                    17        17
          FCC1644X                    21        21
          FCC1645X                     4         4
          FCC1646X                    26        26
          FCC1653X                    24        24
          FCC1655X                    26        26
          FCC1656X                    40        40
          FCC1658X                    18        14
          FCC1660X                    31        31
          FCC1681X                     4         3
          *L460*                       1         1
          RSM3545C                   213       212
          RSM3545CA                    4         4
          FCC0885AX                   13        13
          FCC0238AX                  279       279
          FCC1289X                  1718      1646
          FCC1289AX                   54        50
          FCC1289BX                    8         8
          FCC1524X                    30        29
          FCC1563X                    63        63
          FCC1584X                    15        15
          FCC1588X                    16        16
          FCC1590X                    86        84
          FCC1638X                   105       105
          FCC1664X                    18        18
          FCC1668X                     7         7
          FCC1670X                    32        32
          FCC1677X                     9         9
          FCC1678X                     7         7
          FCC1692X                     5         5
          FCC1695X                    10        10
          FCC1700X                     9         9
          FCC1703X                     6         6
          FCC1706X                    11        11
          FCC1709X                     9         9
          FCC1710X                    27        27
          FCC1716X                    31        31
          FCC1719X                     9         9
          FCC1728X                    15        15
          FCC1731X                     6         6
          FCC1736X                     8         8
          FCC1739X                     6         6
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3838    
  
          FCC1740X                    16        16
          FCC1741X                     5         5
          FCC1746X                     6         6
          FCC1754                     14        14
          FCC1755X                     8         8
          FCC1767X                     7         7
          FCC1769X                    20        20
          FCC1770X                    17        17
          FCC1776X                    11        11
          FCC1790X                     6         6
          FCC1795X                     4         4
          FCC1797X                    24        21
          FCC1801X                     7         7
          FCC1808X                     7         7
          FCC1812X                    10        10
          FCC1822X                     8         8
          FCC1825X                    28        28
          FCC1828X                     9         9
          *L470*                       1         1
          FCC*78X                      5         4
          FCCT010                     84        84
          F191FCC                     32        32
          STLOAD                      18        18
          F162FTNA                  1526      1466
          FCC1289CX                   15        15
          FCC1826                      9         5
          FCC1829                     25        19
          FCC1837X                    31        31
          FCC1842X                    16        16
          FCC1843X                    13        13
          FCC1845X                     7         7
          FCC1847X                    15        10
          FCC1851                      8         8
          FCC1852                     16        16
          FCC1853X                    11        11
          FCC1858X                     4         4
          FCC1870                      5         5
          FCC1872                     13        12
          FCC1879                    148       148
          FCC1891                      5         5
          F66FCC                     873       852
          F66FCCA                      7         7
          FCC1886                      7         7
          FCCA405                      4         4
          FCC1882                      6         6
          *L477*                       1         1
          FCCA403                     40        40
          FCCA406                     53        52
          FCC1897                      5         5
          FCC1902                      4         4
          FCC1918                     27        27
          FCC1923                      9         9
          FCCA402                     68        68
          FCCA408                    326       326
          FCCA410                     37        22
          FCC1908                     76        76
          FCC1924                      9         9
          FCC1925                     11        11
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3839    
  
          FCC1928                     11        11
          FCC1936                     13        12
          FCC1946                    177       168
          FCC1954                     19        19
          FCC1957                     17        17
          FCC1967                      7         7
          FCC2009                      6         6
          *L485*                       1         1
          FCCA426                     12        12
          FCCA437                      6         6
          FCC1811XA                   31        31
          FCC1901                     65        65
          FCC1960                     97        95
          FCC1984                     10        10
          FCC1997                     15        15
          FCC1998                     20        20
          FCC2031                     11        11
          FCCA434                      6         6
          FCCA435                     16        16
          FCCA442                     11        10
          FCCA444                     21        21
          FCCA451                     22        18
          FCCA456                     10        10
          FCC1972                     30        30
          FCC1983                     37        37
          FCC2004                      5         5
          FCC2030                      9         9
          FCC2038                      5         5
          FCC2039                      6         6
          FCC2045                     13        12
          FCC2051                     18        17
          FCC2053                     14        14
          FCC2056                     15        15
          *L498*                       1         1
          FCC*79                       5         4
          FEAT1070C                  209       202
          FCCA422                     65        33
          FCCA454                     24        23
          FCCA455                      9         8
          FCCA462                      6         6
          FCCA463                     10        10
          FCCA465                      5         5
          FCCA468                     10        10
          FCCA469                     13        13
          FCCA474                     18        18
          FCCA476                     11        11
          FCC1964                     12         9
          FCC2020                     24        24
          FCC2059                     12        12
          FCC2064                     18        18
          FCC2069A                    10        10
          FCC2072                     21        21
          FCC2074                     12        12
          FCC2078                      8         8
          FCC2091                      5         5
          FCC2092                      7         7
          FCC2104                     22        19
          FCC2108                     27        27
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3840    
  
          FCC2109                     23        23
          FCC2111                      7         7
          FCC2113                     74        73
          FCC2115                     19        19
          FCC2119                     21        21
          FCC2126                     17        17
          FCC2138                      6         6
          *L505*                       1         1
          F2950F4                    173       148
          FCCA475                     17        17
          FCCA487                      8         8
          FCCA488                     11        11
          FCCA488A                     7         7
          FCCA489                     31        31
          FCCA495                      6         6
          FCC2120                     17        17
          FCC2149                     16        16
          FCC2157                     18         8
          FCC2159                      8         8
          FCC2165                      5         5
          FCC2168                      5         5
          *L508*                       1         1
          FCCA499X                    55        55
          FCCA505                      9         9
          FCCA506X                     5         5
          FCCA510                     25        17
          FCCA511                      6         6
          FCCA519                     20        20
          FCC2061                    144       140
          FCC2124                     88        88
          FCC2129                     52        52
          FCC2135                     66        66
          FCC2150                     14        14
          FCC2170                     48        48
          FCC2175                     28        28
          FCC2177                     12        12
          FCC2184                      8         8
          FCC2186                      9         9
          FCC2189                     17        17
          FCC2194                     37        37
          FCC2196                      5         5
          FCC2203                     18        18
          FCC2204                     12        12
          FCC2212X                     6         6
          *L518*                       1         1
          FCC*80                       5         3
          FCCA473                     69        43
          FCCA509X                    40        40
          FCCA513X                    53        53
          FCC2174                     12        12
          FCC2198                      6         6
          FCC2207                    309       306
          FCC2222                      5         5
          FCC2228                     15        15
          FCC2229                     45        45
          FCC2230X                    13        13
          FCC2240                     18        18
          FCC2271X                    47        47
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3841    
  
          FCC2273X                    49        49
          *L528*                       1         1
          RSM4033                     17        17
          FCCA493                     12        12
          FCCA526                     14        14
          FCCA527                     14        14
          FCCA530                     11        11
          FCCA531                     18        18
          FCCA532                      6         6
          FCCA533                     12        12
          FCCA534                     24        18
          FCCA535                     22        22
          FCCA536                      6         6
          FCCA537                      6         6
          FCCA543                     19        19
          FCCA546X                    10        10
          FCC2292                     16         8
          FCCA549                     20        19
          FCCA550X                     5         5
          FCCA551                      7         7
          FCC1768                     28        28
          FCC2202                     80        78
          FCC2239                     26        26
          FCC2246                      8         8
          FCC2253                      7         7
          FCC2259                     12        12
          FCC2272                     12        12
          FCC2277                      6         6
          FCC2282                     19        19
          FCC2285                     17        17
          FCC2288                      8         8
          FCC2291                     19        19
          FCC2305                     19        19
          FCC2306                     19        19
          FCC2313                      7         7
          FCC2319                     11        11
          *L538*                       1         1
          FCC*81                       6         4
          FCCA540                     18        18
          FCCA553                     10        10
          FCCA556                      8         8
          FCCA557                     28        28
          FCC2125                     57        57
          FCC2307                     27        27
          FCC2318                      7         7
          FCC2321                     13        13
          FCC2323                     12        12
          FCC2330                     12        12
          FCC2334                     19        19
          FCC2345                      9         9
          FCC2365                     35        35
          FCC2381                     27        27
          *L552*                       1         1
          FCCA561                     32        32
          FCCA562                      8         8
          FCCA564                     13        13
          FCCA573                      4         4
          FCCA580                     19        19
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/08. 12.46.07.      PAGE3842    
  
          FCC2338                      7         7
          FCC2360                     14        14
          FCC2362                     11        11
          FCC2391                     13        13
          FCC2392                     22        22
          FCC2419                      7         7
          *L564*                       1         1
          FCC*82                       6         6
          FCCA577                      5         5
          FCCA588                     15        15
          FCCA589                    461       461
          FCCA590                     34        34
          FCC2436                     10        10
          FCC2450                      6         6
          FCC2472                      8         8
          *L577*                       1         1
          FCC2448                      5         5
          *L587*                       1         1
          FCC2531                      7         7
          *L601*                       1         1
          FCCA592                     14         5
          FCCA593                     72        72
          FCCA594                     22        22
          FCC2535                     34        34
          FCC2548                     27        27
          *L617*                       1         1
          FCCA595                      6         6
          FCC2563                     38        38
          *L628*                       1         1
          *L642*                       1         1
          FCCA596                     16        16
          FCCA597                      5         5
          *L650*                       1         1
          FCCA598                      6         6
          *L670*                       1         1
          *L688*                       1         1
          *L716*                       1         1
          *L739*                       1         1
          FCC2567                      7         7
          *L780*                       1         1
          *L797*                       1         1
          *L803*                       1         1
          *L826*                       1         1
          *L840*                       1         1
          *L847*                       1         1
          *L851*                       1         1
          *L859*                       1         1
          *L871*                       1         1
          PSRLEVEL                     2         2
112.52.46.UCLP, 01, 031,    245.952KLNS.
